Q
3 
R
0 
0 
0                   OPERATING SYSTEM =  NOS 2.8.7 871/871.   23/09/20. PRINTED = 24/05/02. 15.59.26.
0                   UJN          =  FTNTS       FAMILY    = CYBER         JOB ORIGIN    = BATCH.              
                    CREATING JSN =  AABF        USER NAME = INSTALL       SERVICE CLASS = BATCH.                        
                                                                                                              
0 
0 
       AAAAAAAAAA    AAAAAAAAAA    AAAAAAAAAA   IIIIIIIIIIII   AAAAAAAAAA    AAAAAAAAAA   BBBBBBBBBBB   FFFFFFFFFFFF  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  IIIIIIIIIIII  AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBBB  FFFFFFFFFFFF  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBBB  FFFFFFFF      
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBB   FFFFFFFF      
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  FF            
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  BBBBBBBBBBBB  FF            
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  BBBBBBBBBBB   FF            
Q
T
2  MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
S
2 
R
1UNLABELED OLDPL               CARDS ENCOUNTERED IN INPUT             UPDATE 1.4-871.      24/05/02. 15.49.14.      PAGE   1    
  
 /////    *COMPILE COMCARG.COMPCOM    
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 15.49.14.      PAGE   2    
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          COMPASS   SCP05     CPC1      MCPC1     CCIO1     COPE1     CSRT1     CPC2    
          CMP1      CMP3      CP13226   CMP4      CMP5      CMP6      CMP7      CMP8    
          CMP9      CMP10     CMP11     CMP12     CMP13     CP12752   CMP5A     CMP14   
          CMP15     CMP16     CMP17     CMP18     CMP19     CMP20     CMP21     COMTEXT 
          CMP22     CMP24     CMP25     CMP26     CMP27     CMP28     CMP17A    CMP029  
          CMP029A   CMP030    CMP031    CMP034    CMP039    CMP041    CMP042    CMP64G  
          CMP043    CPC30     COMPCOM   CMP30     CMP30A    CPS001    CPS002    CPS003  
          CPS004    CPS005    CMP036    CMP054    CMP057    CMP069    CMP085    CWEOR   
          CMP052    CMP109    CMP136    CPS005A   CPS008    CPS009    CPS010    CPS011  
          CPS012    CPS020    CPS028    CMP165    CMP051    CMP064    CMP162    L376F   
          CPS038    CPS047    CMP111    HISTORY   L380      CMP146    CPS026    CPS032  
          CPS052    CPS056    CPS061    CPS062    CPS063    CPS064    CMP146A   L383    
          CMP149    CPS057    CPS066    CPS069    CPS073    L383F     L386      L393    
          L397      CP114     L401      L406      CPSCPRT   CP096A    L410      CPS106  
          CPS110    CPS112    L414      S3143CP   *L420*    CPS*76    CP139CP   CP147   
          CP154     CPS085    *L428*    CPS126    CPS127    CPS130    CPS135    CPS141  
          *L433*    *L439*    CPS150    CPS153    *L446*    CPS*77    CPSVER34  CP161CP 
          F7540CP   F7820CP   CPS146    CPS167    *L452*    CPS118X   CPS173    *L460*  
          CPS076X   CPS144    CPS147X   CPS151    CPS161    CPS164X   CPS172    CPS176  
          *L470*    F4720     COMCARG   COMCCDD   COMCCFD   COMCCIO   COMCCOD   COMCCPT 
          COMCDXB   COMCMTM   COMCMTP   COMCMVE   COMCRDC   COMCRDH   COMCRDO   COMCRDS 
          COMCRDW   COMCRSR   COMCSFN   COMCSRT   COMCSST   COMCSTF   COMCSVR   COMCSYS 
          COMCUPC   COMCWOD   COMCWTC   COMCWTH   COMCWTO   COMCWTS   COMCWTW   COMCXJR 
          COMCZTB   CPUREL    CALLCPU   FEAT184N  FEAT184NA CPS*78    CPSA070   CPSA083 
          CPSA096   CPSA098   CPSA097   CPSA094   CPS168    CPSA104   CPSA107   *L477*  
          CPSA106   CPS188    CPS192    CPSA112   CPS198    *L485*    F4720A    F4720B  
          F4720C    F4720D    F4810A    F4810B    CPSA115   CPS202    CPSA117   CPSA119 
          CPSA123   CPSA125   CPSA126   *L498*    CPS*79    CPSA129   CPSA133   CPSA138 
          *L505*    CPSA132   CPSA134   CPSA142   CPS186    CPS191    CPS213    CPS216  
          CPS218    CPS227    *L508*    CPSA141   CPSA163   CPSA168   CPS219A   CPS234  
          CPS239    CPS243    CPS247    CPSA158   CPSA161   CPS236    CPS240    CPS*80  
          CPSA159   *L518*    *L528*    CPS251    F4820     F4820A    RSM4159   F233CMU 
          SIE7969   CPSA116   CPSA140   CPSA148   CPSA169   CPS214    CPSA181   CPSA184 
          CPSA187   CPSA195   CPSA196   CPSA204   CPS232    CPS0253   CPS254    CPS0257 
          CPS258    CPS0263   CPS0267   *L538*    CPS*81    F4830CP   AIDTEXT   CPSA197 
          CPSA198   CPSA200   CPSA210   CPSA213   CPSA214   CPS0275   CPS0278   CPS0279 
          CPS0281   *L552*    CPSA175   CPSA186   CPSA199   CPSA208   CPSA216   CPSA218 
          CPSA220   CPSA225   CPSA226   CPSA229   CPSA230   CPSA246   CPS211    CPS0241 
          CPS0287   CPS0289   CPS0303   CPS0307   *L564*    CPS*82    F4820B    NADTEXT 
          CPSA227   CPSA233   CPSA234   CPSA235   CPSA236   CPSA240   CPSA241   CPSA242 
          CPSA243   CPSA244   CPSA245   CPSA251   CPS0306   CPS0320   CPS0323   *L577*  
          CPSA257   CPSA259   CPS0094   CPS0325   CPS0338   CPS0340   CPS0343   CPS0345 
          *L587*    CPSA261   CPS2608   *L601*    CPSA265   COMCCPM   *L617*    CPSA266 
          *L628*    *L642*    CPSA274   CPS2627   CPS2628   *L650*    CPSA276   CPSA281 
          CPSA282   CPSA283   CPS0329   CPS2667   *L670*    CPSA284   CPSA286   CPSA287 
          CPSA288   CPSA289   CPSA292   CDCM      CDCMOPT   CWEOR2    CPSA293   CPSA295 
          CPSA297   CPSA300   CPS2658   CPS2659   CPS2672   *L688*    *L716*    CPS2660 
          *L739*    CPSA291   CPSA305   CPSA306   CPS0328   *L780*    *L797*    *L803*  
          *L826*    *L840*    *L847*    *L851*    *L859*    *L871*    PSRLEVEL
0                 75 PURGED IDENTS WERE FOUND   
  
1UNLABELED OLDPL                   DECK LIST                          UPDATE 1.4-871.      24/05/02. 15.49.14.      PAGE   3    
  
0          DECK LIST AS READ FROM OLDPL PLUS ADDED NEW DECKS
  
  
          YANK$$$   HISTORY   COMCARG   COMCCDD   COMCCFD   COMCCIO   COMCCOD   COMCCPM 
          COMCCPT   COMCDXB   COMCMNS   COMCMOS   COMCMTM   COMCMTP   COMCMVE   COMCRDC 
          COMCRDH   COMCRDO   COMCRDS   COMCRDW   COMCRSR   COMCSFN   COMCSRT   COMCSST 
          COMCSTF   COMCSVR   COMCSYS   COMCUPC   COMCWOD   COMCWTC   COMCWTH   COMCWTO 
          COMCWTS   COMCWTW   COMCXJR   COMCZTB   CPUREL    CALLCPU   CWEOR     COMPCOM 
          COMPASS   AIDTEXT   NADTEXT   CWEOR2    CDCMOPT   CDCM    
0       
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   COMCARG   COMCCDD   COMCCFD   COMCCIO   COMCCOD   COMCCPM   COMCCPT 
          COMCDXB   COMCMNS   COMCMOS   COMCMTM   COMCMTP   COMCMVE   COMCRDC   COMCRDH 
          COMCRDO   COMCRDS   COMCRDW   COMCRSR   COMCSFN   COMCSRT   COMCSST   COMCSTF 
          COMCSVR   COMCSYS   COMCUPC   COMCWOD   COMCWTC   COMCWTH   COMCWTO   COMCWTS 
          COMCWTW   COMCXJR   COMCZTB   CPUREL    CALLCPU   CWEOR     COMPCOM 
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL               CARDS ENCOUNTERED IN INPUT             UPDATE 1.4-871.      24/05/02. 15.49.19.      PAGE   1    
  
 /////    /COMPILE,CFCC     
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
0       
  
0       
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          AM2       BAS       BE4       CCG       CD2       CL5       CPS       C45     
          DBU       DCL       DC2       DL3       FCC       FCL       FC5       FDB     
          FL5       FO4       F45       ID1       KPLA      KPLB      LDR       PA1     
          PMD       QU3       SMP       ST5       SW1       UPD       XSY       CAM2    
          CBAS      CBE4      CCCG      CCD2      CCL5      CCPS      CC45      CDBU    
          CDCL      CDC2      CDL3      CFCC      CFCL      CFC5      CFDB      CFL5    
          CFO4      CF45      CID1      CKPLA     CKPLB     CLDR      CPA1      CPMD    
          CQU3      CSMP      CST5      CSW1      CUPD      CXSY      ATF       BS5     
          CC5       CHA       DG5       MCS       NA5       PS5       RB5       RN5     
          TCH       CATF      CBS5      CCC5      CCHA      CDG5      CMCS      CNA5    
          CPS5      CRB5      CRN5      CTCH      CCL       CCCL      RHC       RHF     
          RHP       ITF       CRHC      CRHF      CRHP      CITF      APL       BIN     
          CED       CNT       FCP       FMT       HCD       LCP       MAP       MA3     
          NSS       NS2       ST4       CAPL      CBIN      CCED      CCNT      CFCP    
          CFMT      CHCD      CLCP      CMAP      CMA3      CNSS      CNS2      CST4    
0       
  
0          DECK LIST AS READ FROM OLDPL PLUS ADDED NEW DECKS
  
  
          YANK$$$   AM2       BAS       BE4       CCG       CD2       CL5       CPS     
          C45       DBU       DCL       DC2       DL3       FCC       FCL       FC5     
          FDB       FL5       FO4       F45       ID1       KPLA      KPLB      LDR     
          PA1       PMD       QU3       SMP       ST5       SW1       UPD       XSY     
          CAM2      CBAS      CBE4      CCCG      CCD2      CCL5      CCPS      CC45    
          CDBU      CDCL      CDC2      CDL3      CFCC      CFCL      CFC5      CFDB    
          CFL5      CFO4      CF45      CID1      CKPLA     CKPLB     CLDR      CPA1    
          CPMD      CQU3      CSMP      CST5      CSW1      CUPD      CXSY      ATF     
          BS5       CC5       CHA       DG5       MCS       NA5       PS5       RB5     
          RN5       TCH       CATF      CBS5      CCC5      CCHA      CDG5      CMCS    
          CNA5      CPS5      CRB5      CRN5      CTCH      CCL       CCCL      RHC     
          RHF       RHP       ITF       CRHC      CRHF      CRHP      CITF      APL     
          BIN       CED       CNT       FCP       FMT       HCD       LCP       MAP     
          MA3       NSS       NS2       ST4       CAPL      CBIN      CCED      CCNT    
          CFCP      CFMT      CHCD      CLCP      CMAP      CMA3      CNSS      CNS2    
          CST4    
1UNLABELED OLDPL              DECK LIST AS WRITTEN, IF NEWPL          UPDATE 1.4-871.      24/05/02. 15.49.19.      PAGE   2    
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   CFCC    
0       
  
          DECKS WRITTEN TO COMPILE FILE 
  
          CFCC    
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   1    
  
0       
  
 FWACOM   *IF DEF,TEST                                                                     FCCA589       11 
 FWACOM   *ENDIF                                                                           FWACOM        18 
0       
  
 OPRDEFS  *IF       DEF,PLI,1                                                              OPRDEFS      141 
0       
  
 TSTEXT   *CALL OPTIONS                                                                    TSTEXT        15 
 TSTEXT   *IF -DEF,TEST,1                                                                  FCCA589       12 
 TSTEXT   *IF DEF,TEST,1                                                                   FCCA589       13 
 TSTEXT   *CALL FA=DEFS                                                                    TSTEXT        17 
 TSTEXT   *CALL COMAREG                                                                    TSTEXT        68 
 TSTEXT   *CALL TEXTCOM                                                                    FEAT155D      11 
 TSTEXT   *CALL DBG=MAC                                                                    FEAT155F       4 
0       
  
 WEOR1*   *WEOR 0                                                                          FCCA589       15 
0       
  
 FTNMAC   *CALL     OPTIONS                                                                FTNMAC        14 
 FTNMAC   *CALL STLOAD                                                                     FCCA408       42 
0       
  
 WEOR2*   *WEOR 0                                                                          FCCA589       17 
0       
  
 FTNTEXT  *IF DEF,PLI,1                                                                    FTNTEXT       26 
 FTNTEXT  *IF -DEF,PLI,1                                                                   FTNTEXT       28 
 FTNTEXT  *CALL OPTIONS                                                                    FTNTEXT       30 
 FTNTEXT  *IF -DEF,TEST,1                                                                  FCCA589       18 
 FTNTEXT  *IF DEF,TEST,1                                                                   FCCA589       19 
 FTNTEXT  *CALL TEXTCOM                                                                    FEAT155D      12 
 FTNTEXT  *CALL     FA=DEFS                                                                FTNTEXT      571 
 FTNTEXT  *CALL COMAREG                                                                    FEAT155F      83 
 FTNTEXT  *CALL     DBG=MAC                                                                FEAT155F      88 
 FTNTEXT  *CALL     OPRDEFS                                                                FTNTEXT     1829 
 FTNTEXT  *CALL STLOAD                                                                     FCCA408       66 
0       
  
 WEOR3*   *WEOR 0                                                                          FCCA589       21 
0       
  
 FTN      *CALL SSTCALL                                                                    FTN            5 
 FTN      *CALL FTNRES                                                                     FTN            6 
 FTNRES   *CALL     IOBUFL                                                                 RSM2763X       6 
 FTNRES   *CALL COMPCOM                                                                    FCCA589       22 
 FTN      *CALL COMCDXB                                                                    FTN         1200 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   2    
  
 FTN      *CALL FA=SET                                                                     FTN         1203 
 FTN      *CALL     COMCCPM                                                                FCCA593       15 
 FTN      *CALL SSTCALL                                                                    FTN         1994 
 FTN      *CALL FTNRES                                                                     FTN         2039 
 FTNRES   *CALL     IOBUFL                                                                 RSM2763X       6 
 FTNRES   *CALL COMPCOM                                                                    FCCA589       22 
0       
  
 WEOR4*   *WEOR 0                                                                          FCCA589       24 
0       
  
 TABLES   *CALL     COMCCIO                                                                TABLES      1348 
 TABLES   *CALL     COMCRDC                                                                TABLES      1350 
 TABLES   *CALL     COMCRDW                                                                TABLES      1352 
 TABLES   *CALL     COMCWTC                                                                TABLES      1354 
 TABLES   *CALL     COMCWTW                                                                TABLES      1356 
 TABLES   *CALL     COMCMVE                                                                TABLES      1359 
 TABLES   *CALL     FA=CLO                                                                 TABLES      1361 
 TABLES   *CALL     FA=EOF                                                                 TABLES      1363 
 TABLES   *CALL     FA=EOR                                                                 TABLES      1365 
 TABLES   *CALL     FA=FLSH                                                                TABLES      1367 
 TABLES   *CALL     FA=OPE                                                                 TABLES      1369 
 TABLES   *CALL     FA=RDC                                                                 TABLES      1371 
 TABLES   *CALL     FA=RDW                                                                 TABLES      1373 
 TABLES   *CALL     FA=RWX                                                                 TABLES      1375 
 TABLES   *CALL     FA=WTC                                                                 TABLES      1377 
 TABLES   *CALL     FA=WTW                                                                 TABLES      1379 
0       
  
 MAIN     *CALL COMFRNC                                                                    FCC1328X     518 
0       
  
 LEX      *CALL FSCALE                                                                     FCC0400       60 
0       
  
 IO       *CALL STLOAD                                                                     FCCA408      203 
0       
  
 TSNAP    *CALL DBG=IDP                                                                    TSNAP        157 
 TSNAP    *CALL COMCCDD                                                                    TSNAP        977 
 TSNAP    *CALL COMCCOD                                                                    TSNAP        978 
 TSNAP    *CALL COMCDXB                                                                    TSNAP        979 
 TSNAP    *CALL COMCSFN                                                                    FCCT007        4 
 TSNAP    *CALL COMCSVR                                                                    TSNAP        980 
0       
  
 INIT     *CALL FA=SET                                                                     INIT         376 
0       
  
 WEOR5*   *WEOR 0                                                                          FCCA589       26 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   3    
  
0       
  
 LSTPRO   *CALL     SSTCALL                                                                LSTPRO         4 
 LSTPRO   *CALL     IOBUFL                                                                 RSM2763X       9 
 LSTPRO   *CALL COMCCDD                                                                    LSTPRO       646 
 LSTPRO   *CALL COMCCOD                                                                    LSTPRO       653 
 LSTPRO   *CALL COMCDXB                                                                    LSTPRO       660 
 LSTPRO   *CALL COMCMVE                                                                    LSTPRO       667 
 LSTPRO   *CALL COMCSFN                                                                    FCC1328X     552 
 LSTPRO   *CALL COMCCIO                                                                    LSTPRO       676 
 LSTPRO   *CALL COMCRDC                                                                    LSTPRO       683 
 LSTPRO   *CALL COMCRDW                                                                    LSTPRO       690 
 LSTPRO   *CALL COMCWTC                                                                    LSTPRO       697 
 LSTPRO   *CALL COMCWTW                                                                    LSTPRO       704 
 LSTPRO   *CALL     FA=CLO                                                                 LSTPRO       859 
 LSTPRO   *CALL     FA=EOF                                                                 LSTPRO       862 
 LSTPRO   *CALL  FA=EOR                                                                    LSTPRO       865 
 LSTPRO   *CALL     FA=FLSH                                                                LSTPRO       867 
 LSTPRO   *CALL     FA=OPE                                                                 LSTPRO       870 
 LSTPRO   *CALL     FA=RDC                                                                 LSTPRO       873 
 LSTPRO   *CALL     FA=RDW                                                                 LSTPRO       877 
 LSTPRO   *CALL     FA=RWX                                                                 LSTPRO       880 
 LSTPRO   *CALL     FA=WTC                                                                 LSTPRO       883 
 LSTPRO   *CALL     FA=WTW                                                                 LSTPRO       886 
 LSTPRO   *CALL FA=SET                                                                     LSTPRO       891 
 LSTPRO   *CALL,STLOAD                                                                     F162FTNA     835 
0       
  
 OUTPK20  *CALL,SSTCALL                                                                    OUTPK20        4 
 OUTPK20  *CALL OUTPTK                                                                     OUTPK20        6 
0       
  
 SNAP     *CALL DBG=IDP                                                                    SNAP         130 
 SNAP     *CALL COMCSFN                                                                    FCCT007        5 
 SNAP     *CALL COMCSVR                                                                    SNAP         290 
0       
  
 FTNMSG   *CALL     SSTCALL                                                                FTNMSG         5 
0       
  
 PS1CTL   *CALL     SSTCALL                                                                PS1CTL         4 
 PS1CTL   *CALL,DBGCOM                                                                     PS1CTL        28 
0       
  
 STMTP    *CALL     SSTCALL                                                                STMTP          4 
 STMTP    *CALL     PARSEM                                                                 STMTP         28 
 STMTP    *CALL     FMACDEF                                                                STMTP         29 
0       
  
 ENDPRO   *CALL     SSTCALL                                                                ENDPRO         4 
 ENDPRO   *CALL     COUNTMC                                                                ENDPRO       836 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   4    
  
0       
  
 SCANNER  *CALL     SSTCALL                                                                SCANNER        4 
 SCANNER  *CALL DBGCOM                                                                     SCANNER      492 
 SCANNER  *CALL COMFRNC                                                                    FCC1328X     643 
0       
  
 DMPELST  *IF -DEF,TEST                                                                    FCCA589       27 
 DMPELST  *ENDIF                                                                           DMPELST       18 
 DMPELST  *IF DEF,TEST                                                                     FCCA589       28 
 DMPELST  *ENDIF                                                                           DMPELST      209 
0       
  
 CONVERT  *CALL FSCALE                                                                     CONVERT      661 
0       
  
 DATA     *CALL     SSTCALL                                                                DATA           4 
 DATA     *CALL     PARSEM                                                                 DATA         154 
 DATA     *CALL     FMACDEF                                                                DATA         155 
0       
  
 ERPRO    *CALL     SSTCALL                                                                ERPRO          4 
0       
  
 FLY      *CALL,SSTCALL                                                                    FLY            3 
0       
  
 LISTIO   *CALL     SSTCALL                                                                LISTIO         4 
 LISTIO   *CALL     PARSEM                                                                 LISTIO       246 
 LISTIO   *CALL     FMACDEF                                                                LISTIO       247 
 LISTIO   *CALL,STLOAD                                                                     F162FTNA     905 
0       
  
 ARITH    *CALL     SSTCALL                                                                ARITH          4 
 ARITH    *CALL     COUNTMC                                                                ARITH        200 
 ARITH    *CALL PARSEM                                                                     ARITH        214 
0       
  
 ASFPRO   *CALL     SSTCALL                                                                ASFPRO         4 
 ASFPRO   *CALL     PARSEM                                                                 ASFPRO        49 
0       
  
 CALL     *CALL     SSTCALL                                                                CALL           4 
0       
  
 GOTO     *CALL     SSTCALL                                                                GOTO           4 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   5    
  
0       
  
 DBGLNK   *CALL,SSTCALL                                                                    DBGLNK         3 
0       
  
 DOPROC   *CALL     SSTCALL                                                                DOPROC         4 
0       
  
 DPCLOSE  *CALL     SSTCALL                                                                DPCLOSE        4 
 DPCLOSE  *CALL FMACDEF                                                                    DPCLOSE      117 
0       
  
 DECPRO   *CALL     SSTCALL                                                                DECPRO         4 
 DECPRO   *CALL     PARSEM                                                                 DECPRO        60 
0       
  
 PH1CTL   *CALL     SSTCALL                                                                PH1CTL         4 
 PH1CTL   *CALL     DBGCOM                                                                 PH1CTL        60 
 PH1CTL   *CALL     PARSEM                                                                 PH1CTL        68 
 PH1CTL   *CALL     FMACDEF                                                                PH1CTL        69 
0       
  
 PS3CTL   *CALL     SSTCALL                                                                PS3CTL         4 
0       
  
 FAX      *CALL     SSTCALL                                                                FAX            4 
 FAX      *CALL STLOAD                                                                     FCCA408      263 
0       
  
 REFMAP   *CALL     SSTCALL                                                                REFMAP         4 
0       
  
 CLOSE2   *CALL     SSTCALL                                                                CLOSE2         4 
0       
  
 MIO      *CALL     SSTCALL                                                                MIO            4 
 MIO      *IF       DEF,MIO,1                                                              MIO            7 
 MIO      *CALL     IOTBLD                                                                 MIO           96 
0       
  
 FBV      *CALL     SSTCALL                                                                FBV            4 
 FBV      *IF       DEF,FBV,1                                                              FBV            9 
 FBV      *CALL     CFTBLD                                                                 FBV           33 
0       
  
 GPO      *CALL     SSTCALL                                                                GPO            4 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   6    
  
 GPO      *IF       DEF,GPO,2                                                              GPO            8 
 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 
0       
  
 GRA      *CALL     SSTCALL                                                                GRA            4 
 GRA      *IF       DEF,GRA,1                                                              GRA            8 
 GRA      *CALL     UDTBLD                                                                 GRA           50 
 GRA      *CALL     GPOCOM                                                                 GRA           51 
 GRA      *CALL     OPRDEFS                                                                GRA         1523 
 GRA      *CALL     OPRDEFS                                                                GRA         6288 
0       
  
 PROSEQ   *CALL     SSTCALL                                                                PROSEQ         4 
 PROSEQ   *CALL     OPRDEFS                                                                PROSEQ      1934 
 PROSEQ   *CALL     OPRDEFS                                                                PROSEQ      2026 
0       
  
 POST     *CALL     SSTCALL                                                                POST           4 
 POST     *CALL     OPRDEFS                                                                POST        1328 
0       
  
 SQZ      *CALL     SSTCALL                                                                SQZ            4 
 SQZ      *IF       DEF,SQZ,1                                                              SQZ            8 
 SQZ      *CALL     OPRDEFS                                                                SQZ         2860 
0       
  
 MCG      *CALL     SSTCALL                                                                MCG            4 
 MCG      *IF       DEF,MCG,1                                                              MCG            9 
 MCG      *CALL     OPRDEFS                                                                MCG         2336 
0       
  
 BDT      *CALL     SSTCALL                                                                BDT            4 
 BDT      *IF       DEF,BDT,1                                                              BDT            8 
0       
  
 FTNDBG   *IF DEF,TEST                                                                     FCCA589       29 
0       
  
 PRNTMCG  *ENDIF                                                                           PRNTMCG      262 
0       
  
 PRE      *CALL     SSTCALL                                                                PRE            4 
 PRE      *CALL     OPRDEFS                                                                PRE         1374 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   7    
  
0       
  
 CFA      *CALL     SSTCALL                                                                CFA            4 
 CFA      *IF       DEF,CFA,1                                                              CFA            8 
 CFA      *CALL     CFTBLD                                                                 CFA           57 
0       
  
 UDT      *CALL     SSTCALL                                                                UDT            4 
 UDT      *CALL     CFTBLD                                                                 UDT           42 
 UDT      *CALL     UDTBLD                                                                 UDT           46 
0       
  
 READRL   *CALL     SSTCALL                                                                READRL         4 
0       
  
 MACROX   *CALL     SSTCALL                                                                MACROX         4 
 MACROX   *CALL     OPRDEFS                                                                MACROX       212 
0       
  
 WEOR6*   *WEOR 0                                                                          FCCA589       31 
0       
  
 FRAME    *IF -DEF,TSOFF                                                                   FCCA590        7 
 FRAME    *ENDIF                                                                           FCCA590        8 
 FRAME    *CALL     SSTCALL                                                                FCCA589      258 
 FRAME    *CALL     FWACOM                                                                 FCCA589      268 
 FRAME    *CALL     SSTCALL                                                                FCCA589      295 
 FRAME    *CALL     FWACOM                                                                 FCCA589      304 
 FRAME    *IF DEF,TEST                                                                     FCCA590        9 
 FRAME    *ENDIF                                                                           FCCA590       34 
0       
  
 WEOR7*   *WEOR 0                                                                          FCCA589      341 
0       
  
 WEOR8*   *WEOR 0                                                                          FCCA589      461 
0       
  
 DBGPHCT  *CALL,SSTCALL                                                                    DBGPHCT        4 
 DBGPHCT  *CALL     PARSEM                                                                 DBGPHCT       38 
 DBGPHCT  *CALL,DBGCOM                                                                     DBGPHCT       39 
0       
  
 OUTPK24  *CALL,SSTCALL                                                                    OUTPK24        4 
 OUTPK24  *CALL OUTPTK                                                                     OUTPK24        6 
0       
  
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   8    
  
 PUT      *CALL FDBGCOM                                                                    PUT           16 
0       
  
 PUTUPDT  *CALL LDBGCOM                                                                    FCC0937       31 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 BUGACT   *CALL LDBGCOM                                                                    FCC0937       32 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 GETOUT   *CALL LDBGCOM                                                                    FCC0937       33 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 TURNON   *CALL LDBGCOM                                                                    FCC0937       34 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 BUGSOUT  *CALL LDBGCOM                                                                    FCC0937       35 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 BUGCON   *CALL LDBGCOM                                                                    FCC0937       36 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 TURNOFF  *CALL LDBGCOM                                                                    FCC0937       37 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 DEBUGER  *CALL LDBGCOM                                                                    FCC0937       38 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 BUGPRO   *CALL LDBGCOM                                                                    FCC0937       39 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 PUTIN    *CALL LDBGCOM                                                                    FCC0937       40 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 SETARR   *CALL LDBGCOM                                                                    FCC0937       41 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE   9    
  
0       
  
 BUGCLO   *CALL LDBGCOM                                                                    FCC0937       42 
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4 
0       
  
 SAVREGS  *CALL,SSTCALL                                                                    SAVREGS        4 
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE  10    
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          *COMDKS*  FA=CLO    FA=DEFS   FA=EOF    FA=EOR    FA=FLSH   FA=OPE    FA=RDC  
          FA=RDW    FA=RWX    FA=SET    FA=WTC    FA=WTW    SSTCALL   COMCCDD   COMCCOD 
          COMCDXB   COMCMVE   COMCCIO   COMCRDC   COMCRDW   COMCWTC   COMCWTW   OPTIONS 
          PARSEM    FMACDEF   DBGCOM    OPRDEFS   FDBGCOM   FWACOM    *TEXTS*   TSTEXT  
          FTNMAC    FTNTEXT   *FTN*     FTNRES    FTN       *TSMODE*  TABLES    ERRORS  
          BATCH     HEADER    PIG       LIST      MAP       END       ALLOC     MAIN    
          LEX       KEY       IF        TSDATA    DECL      TYPE      FMT       IO      
          NUM       REG       PAR       CONRED    GEN       FUN       ASF       DO      
          INIT      *BATCH*   LSTPRO    OUTPTK    OUTPK20   *FTNMSG*  FTNMSG    *PASS1* 
          PS1CTL    COUNTMC   STMTP     ENDPRO    SCANNER   DMPELST   CONVERT   DATA    
          ERPRO     FLY       LISTIO    ARITH     ASFPRO    CALL      GOTO      DBGLNK  
          DOPROC    DPCLOSE   DECPRO    PH1CTL    *PASS3*   PS3CTL    FAX       REFMAP  
          *PASS2*   CLOSE2    CFTBLD    IOTBLD    GPOCOM    UDTBLD    MIO       FBV     
          GPO       GRA       PROSEQ    POST      SQZ       MCG       BDT       FTNDBG  
          DMPIIT    DMPRLST   DMPSIT    DMPTREE   DMPUDI    PRNTGRA   PRNTMIO   PRNTUDI 
          PRNTABV   PRNTBV    PRNTRLI   PRNTMCG   PRE       CFA       UDT       READRL  
          MACROX    *DEBUG*   DBGPHCT   OUTPK24   PUT       PUTUPDT   BUGACT    GETOUT  
          TURNON    BUGSOUT   BUGCON    TURNOFF   DEBUGER   BUGPRO    PUTIN     SETARR  
          BUGCLO    SAVREGS   HISTORY   COMAREG   FCC0380   L393      FCC0218   FCC0220 
          FCC0385   FCC0389   FCC0390   FCC0391   FCC0392   FCC0393   FCC0394   FCC0408 
          FCC0413   FCC0414   FCC0415   L397      FCC0407   FCC0412   FCC0418   FCC0422 
          FCC0435   FCC0441   FCC0446   FCC0448   FCC0451   FCC0458   FCC0475   FCC0476 
          FCC0477   FCC0481   FCC0490   FCC0491   FCC0498   FCC0499   FCC0502   FCC0504 
          FCC0506   FCC0508   FCC0509   FCC0513   FCC0517   FCC0518   FCC0519   FCC0520 
          FCC0521   FCC0522   FCC0534   FEAT79BZ  FEAT121A  FEAT121L  FEAT123A  L401    
          FCC0493   FCC0511   FCC0514   FCC0524   FCC0525   FCC0527   FCC0529   FCC0535 
          FCC0544   FCC0558   FCC0564   FCC0569   FCC0574   FCC0584   FCC0586   FCC0588 
          FCC0590   L406      FCCCPRT   FSCALE    FCC0400   FCC0396   FCC0458A  FCC0537 
          FCC0539   FCC0556   FCC0570   FCC0575   FCC0579   FCC0583   FCC0585   FCC0589 
          FCC0593   FCC0594   FCC0596   FCC0597   FCC0599   FCC0603   FCC0611   FCC0612 
          FCC0613   FCC0614   FCC0616   FCC0618   FCC0623   FCC0578   FCC0587   FCC0624 
          FCC0625   FCC0628   FCC0634   FCC0637   FCC0640   FCC0641   FCC0642   FCC0643 
          FCC0644   FCC0645   FCC0646   FCC0651   FCC0658   FCC0602   FCC0654   FCC0656 
          FCC0714   FCC0716   FCC0728   FCC0732   FCC0761   FEAT126A  FCC0709   FEAT126B
          FEAT126C  FEAT126AA FEAT126AB FEAT126AC FEAT126BA FEAT126BB FEAT126BC FEAT126CA 
          FEAT129   L410      FCC0566   FCC0580   FCC0639   FCC0672   FCC0675   FCC0683 
          FCC0684   FCC0696   FCC0708   FCC0711   FCC0715   FCC0718   FCC0719   FCC0733 
          FCC0735   FCC0741   FCC0743   FCC0744   FCC0751   FCC0752   FCC0762   FCC0775 
          FCC0784   FCC0789   FCC0791   FCC0792   FCC0826   L414      FCC0635   FCC0717 
          FCC0764   FCC0768   FCC0780   FCC0787   FCC0794   FCC0805   FCC0811   FCC0812 
          FCC0813   FCC0814   FCC0818   FCC0822   FCC0824   FCC0827   FCC0828   FCC0839 
          FCC0840   FCC0841   FCC0842   FCC0844   FCC0848   FCC0872   FCC0878   FCC0882 
          FCC0883   FCC0885   FCC0887   FCC0888   FCC0903   FCC0912   FCC0919   FCC0931 
          FCC0943   S3143FC   *L420*    FCC0715A  FCC0777   FCC0835   FCC0859   FCC0864 
          FCC0881   FCC0902   FCC0909   FCC0914   FCC0946   FCC0960   FCC0961   FCC0962 
          FCC0963   FCC0970   FCC0975   FCC0977   FCC0980   FCC0982   FCC0990   FCC0994 
          FCC0996   FCC1004   FCC1011   FCC1013   FCC1014   FCC1025   FCC1028   TEXTCOM 
          FEAT79CZ  FEAT155A  FEAT155B  FEAT155C  FEAT155D  FEAT155E  FEAT155G  FEAT155H
          FEAT155J  FCC*76    CP139FC   LDBGCOM   FCC0937   FEAT155AB FEAT155EA FEAT155HA 
          FCC0957   FCC0985   FCC1097   FEAT155F  COMCSVR   DBG=IDP   DBG=MAC   TSNAP   
          SNAP      FEAT155HB FEAT155K  S3143FCA  FEAT155EB FEAT155GA FEAT155FA *L428*  
          FCC0807   FCC0825   FCC0868   FCC0949   FCC0964   FCC0966   FCC1007   FCC1010 
          FCC1012   FCC1015   FCC1025A  FCC1029   FCC1039   FCC1040   FCC1045   FCC1046 
          FCC1055   FCC1056   FCC1058   FCC1062   FCC1068   FCC1070   FCC1082   FCC1085 
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE  11    
  
          FCC1088   FCC1091   FCC1092   FCC1096   FCC1107   FCC1108   FCC1119   FCC1123 
          FCC1124   FCC1126   FCC1127   FCC1129   FCC1142   FCC1155   FCC1163   FCC1169 
          FCC1200   FCC1208   FCC1215   FCC1224   *L433*    FCC0976   FCC0995   FCC1134 
          FCC1175   FCC1191   FCC1196   FCC1201   FCC1206   FCC1210   FCC1211   FCC1213 
          FCC1222   FCC1226   FCC1227   FCC1237   FCC1238   FCC1239   FCC1247   FCC1254 
          FCC1259   FCC1274   FCC1275   FCC1283   FCC1290   FCC1293   FCC1295   FCC1314 
          COMCSFN   FCCT001   FCCT002   FCCT003   DBG0001   DBG0002   DBG0003   *L439*  
          FCC0971   FCC1179   FCC1244   FCC1247A  FCC1258   FCC1264   FCC1286   FCC1294 
          FCC1299   FCC1307   FCC1309   FCC1313   FCC1319   FCC1320   FCC1322   FCC1332 
          FCC1336   FCC1337   FCC1339   FCC1352   FCC1353   FCC1373   FCC1385   FCC1388 
          FCC1410   FCC1412   FCC1413   FCC1421   FCC1424   FCC1425   FCC1442   FCC1449 
          FCC1451   FCC1453   *L444*    FCC*77X   F7540FT   COMFRNC   IOBUFL    RSM2763X
          RSM2763AX FCCT005   FCC1059X  FCC1086X  FCC1109X  FCC1117X  FCC1128X  FCC1134AX 
          FCC1173X  FCC1252X  FCC1300X  FCC1328X  FCC1328AX FCC1328BX FCC1361X  FCC1371X
          FCC1390X  FCC1402X  FCC1434X  FCC1448X  FCC1464X  FCC1467X  FCC1469X  FCC1476X
          FCC1479X  FCC1491X  FCC1495X  FCC1495AX FCC1498X  FCC1504X  FCC1510X  FCC1512X
          FCC1513X  FCC1514X  FCC1518X  FCC1530X  FCC1531X  FCC1532X  FCC1545X  FCC1551X
          FCC1555X  FCC1556X  FCC1559X  *L452*    F7540FTA  DBG0004   DBG0005   DBG0006 
          DBG0009   FCCT006X  FCCT007   FCC1456X  FCC1462X  FCC1463X  FCC1550X  FCC1558X
          FCC1568X  FCC1571X  FCC1573X  FCC1576X  FCC1580X  FCC1583AX FCC1587X  FCC1596X
          FCC1603X  FCC1605X  FCC1608X  FCC1616X  FCC1623X  FCC1624X  FCC1626X  FCC1636X
          FCC1644X  FCC1645X  FCC1646X  FCC1653X  FCC1655X  FCC1656X  FCC1658X  FCC1660X
          FCC1681X  *L460*    RSM3545C  RSM3545CA FCC0885AX FCC0238AX FCC1289X  FCC1289AX 
          FCC1289BX FCC1524X  FCC1563X  FCC1584X  FCC1588X  FCC1590X  FCC1638X  FCC1664X
          FCC1668X  FCC1670X  FCC1677X  FCC1678X  FCC1692X  FCC1695X  FCC1700X  FCC1703X
          FCC1706X  FCC1709X  FCC1710X  FCC1716X  FCC1719X  FCC1728X  FCC1731X  FCC1736X
          FCC1739X  FCC1740X  FCC1741X  FCC1746X  FCC1754   FCC1755X  FCC1767X  FCC1769X
          FCC1770X  FCC1776X  FCC1790X  FCC1795X  FCC1797X  FCC1801X  FCC1808X  FCC1812X
          FCC1822X  FCC1825X  FCC1828X  *L470*    FCC*78X   FCCT010   F191FCC   STLOAD  
          F162FTNA  FCC1289CX FCC1826   FCC1829   FCC1837X  FCC1842X  FCC1843X  FCC1845X
          FCC1847X  FCC1851   FCC1852   FCC1853X  FCC1858X  FCC1870   FCC1872   FCC1879 
          FCC1891   F66FCC    F66FCCA   FCC1886   FCCA405   FCC1882   *L477*    FCCA403 
          FCCA406   FCC1897   FCC1902   FCC1918   FCC1923   FCCA402   FCCA408   FCCA410 
          FCC1908   FCC1924   FCC1925   FCC1928   FCC1936   FCC1946   FCC1954   FCC1957 
          FCC1967   FCC2009   *L485*    FCCA426   FCCA437   FCC1811XA FCC1901   FCC1960 
          FCC1984   FCC1997   FCC1998   FCC2031   FCCA434   FCCA435   FCCA442   FCCA444 
          FCCA451   FCCA456   FCC1972   FCC1983   FCC2004   FCC2030   FCC2038   FCC2039 
          FCC2045   FCC2051   FCC2053   FCC2056   *L498*    FCC*79    FEAT1070C FCCA422 
          FCCA454   FCCA455   FCCA462   FCCA463   FCCA465   FCCA468   FCCA469   FCCA474 
          FCCA476   FCC1964   FCC2020   FCC2059   FCC2064   FCC2069A  FCC2072   FCC2074 
          FCC2078   FCC2091   FCC2092   FCC2104   FCC2108   FCC2109   FCC2111   FCC2113 
          FCC2115   FCC2119   FCC2126   FCC2138   *L505*    F2950F4   FCCA475   FCCA487 
          FCCA488   FCCA488A  FCCA489   FCCA495   FCC2120   FCC2149   FCC2157   FCC2159 
          FCC2165   FCC2168   *L508*    FCCA499X  FCCA505   FCCA506X  FCCA510   FCCA511 
          FCCA519   FCC2061   FCC2124   FCC2129   FCC2135   FCC2150   FCC2170   FCC2175 
          FCC2177   FCC2184   FCC2186   FCC2189   FCC2194   FCC2196   FCC2203   FCC2204 
          FCC2212X  *L518*    FCC*80    FCCA473   FCCA509X  FCCA513X  FCC2174   FCC2198 
          FCC2207   FCC2222   FCC2228   FCC2229   FCC2230X  FCC2240   FCC2271X  FCC2273X
          *L528*    RSM4033   FCCA493   FCCA526   FCCA527   FCCA530   FCCA531   FCCA532 
          FCCA533   FCCA534   FCCA535   FCCA536   FCCA537   FCCA543   FCCA546X  FCC2292 
          FCCA549   FCCA550X  FCCA551   FCC1768   FCC2202   FCC2239   FCC2246   FCC2253 
          FCC2259   FCC2272   FCC2277   FCC2282   FCC2285   FCC2288   FCC2291   FCC2305 
          FCC2306   FCC2313   FCC2319   *L538*    FCC*81    FCCA540   FCCA553   FCCA556 
          FCCA557   FCC2125   FCC2307   FCC2318   FCC2321   FCC2323   FCC2330   FCC2334 
          FCC2345   FCC2365   FCC2381   *L552*    FCCA561   FCCA562   FCCA564   FCCA573 
          FCCA580   FCC2338   FCC2360   FCC2362   FCC2391   FCC2392   FCC2419   *L564*  
          FCC*82    FCCA577   FCCA588   FCCA589   FCCA590   FCC2436   FCC2450   FCC2472 
          *L577*    FCC2448   *L587*    FCC2531   *L601*    FCCA592   FCCA593   FCCA594 
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE  12    
  
          FCC2535   FCC2548   *L617*    FCCA595   FCC2563   *L628*    *L642*    FCCA596 
          FCCA597   *L650*    FCCA598   *L670*    *L688*    *L716*    *L739*    FCC2567 
          *L780*    *L797*    *L803*    *L826*    *L840*    *L847*    *L851*    *L859*  
          *L871*    PSRLEVEL
0                119 PURGED IDENTS WERE FOUND   
  
0       
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   HISTORY   *COMDKS*  COMAREG   COMCCDD   COMCCIO   COMCCOD   COMCDXB 
          COMCMVE   COMCRDC   COMCRDW   COMCSFN   COMCSVR   COMCWTC   COMCWTW   COMFRNC 
          DBGCOM    DBG=IDP   DBG=MAC   FA=CLO    FA=DEFS   FA=EOF    FA=EOR    FA=FLSH 
          FA=OPE    FA=RDC    FA=RDW    FA=RWX    FA=SET    FA=WTC    FA=WTW    FDBGCOM 
          FMACDEF   FSCALE    FWACOM    IOBUFL    LDBGCOM   OPRDEFS   OPTIONS   PARSEM  
          SSTCALL   STLOAD    TEXTCOM   *TEXTS*   TSTEXT    WEOR1*    FTNMAC    WEOR2*  
          FTNTEXT   WEOR3*    *FTN*     FTNRES    FTN       WEOR4*    *TSMODE*  TABLES  
          ERRORS    BATCH     HEADER    PIG       END       ALLOC     MAIN      LEX     
          KEY       IF        TSDATA    DECL      TYPE      FMT       IO        NUM     
          PAR       CONRED    ASF       DO        FUN       REG       GEN       TSNAP   
          INIT      MAP       LIST      WEOR5*    *BATCH*   LSTPRO    OUTPTK    OUTPK20 
          SNAP      *FTNMSG*  FTNMSG    *PASS1*   PS1CTL    COUNTMC   STMTP     ENDPRO  
          SCANNER   DMPELST   CONVERT   DATA      ERPRO     FLY       LISTIO    ARITH   
          ASFPRO    CALL      GOTO      DBGLNK    DOPROC    DPCLOSE   DECPRO    PH1CTL  
          *PASS3*   PS3CTL    FAX       REFMAP    *PASS2*   CLOSE2    CFTBLD    IOTBLD  
          GPOCOM    UDTBLD    MIO       FBV       GPO       GRA       PROSEQ    POST    
          SQZ       MCG       BDT       FTNDBG    DMPIIT    DMPRLST   DMPSIT    DMPTREE 
          DMPUDI    PRNTGRA   PRNTMIO   PRNTUDI   PRNTABV   PRNTBV    PRNTRLI   PRNTMCG 
          PRE       CFA       UDT       READRL    MACROX    WEOR6*    FRAME     WEOR7*  
          FRAMDBUG  WEOR8*    *DEBUG*   DBGPHCT   OUTPK24   PUT       PUTUPDT   BUGACT  
          GETOUT    TURNON    BUGSOUT   BUGCON    TURNOFF   DEBUGER   BUGPRO    PUTIN   
          SETARR    BUGCLO    SAVREGS 
0       
  
           COMMON DECKS ENCOUNTERED   
  
          HISTORY   COMAREG   COMCCDD   COMCCIO   COMCCOD   COMCDXB   COMCMVE   COMCRDC 
          COMCRDW   COMCSFN   COMCSVR   COMCWTC   COMCWTW   COMFRNC   DBGCOM    DBG=IDP 
          DBG=MAC   FA=CLO    FA=DEFS   FA=EOF    FA=EOR    FA=FLSH   FA=OPE    FA=RDC  
          FA=RDW    FA=RWX    FA=SET    FA=WTC    FA=WTW    FDBGCOM   FMACDEF   FSCALE  
          FWACOM    IOBUFL    LDBGCOM   OPRDEFS   OPTIONS   PARSEM    SSTCALL   STLOAD  
          TEXTCOM   FTNRES    COMPCOM   COMCCPM   OUTPTK    COUNTMC   CFTBLD    IOTBLD  
          GPOCOM    UDTBLD  
1UNLABELED OLDPL              DECKS WRITTEN TO COMPILE FILE           UPDATE 1.4-871.      24/05/02. 15.49.22.      PAGE  13    
  
          *COMDKS*  *TEXTS*   TSTEXT    WEOR1*    FTNMAC    WEOR2*    FTNTEXT   WEOR3*  
          *FTN*     FTN       WEOR4*    *TSMODE*  TABLES    ERRORS    BATCH     HEADER  
          PIG       END       ALLOC     MAIN      LEX       KEY       IF        TSDATA  
          DECL      TYPE      FMT       IO        NUM       PAR       CONRED    ASF     
          DO        FUN       REG       GEN       TSNAP     INIT      MAP       LIST    
          WEOR5*    *BATCH*   LSTPRO    OUTPK20   SNAP      *FTNMSG*  FTNMSG    *PASS1* 
          PS1CTL    STMTP     ENDPRO    SCANNER   DMPELST   CONVERT   DATA      ERPRO   
          FLY       LISTIO    ARITH     ASFPRO    CALL      GOTO      DBGLNK    DOPROC  
          DPCLOSE   DECPRO    PH1CTL    *PASS3*   PS3CTL    FAX       REFMAP    *PASS2* 
          CLOSE2    MIO       FBV       GPO       GRA       PROSEQ    POST      SQZ     
          MCG       BDT       FTNDBG    PRE       CFA       UDT       READRL    MACROX  
          WEOR6*    FRAME     WEOR7*    FRAMDBUG  WEOR8*    *DEBUG*   DBGPHCT   OUTPK24 
          PUT       PUTUPDT   BUGACT    GETOUT    TURNON    BUGSOUT   BUGCON    TURNOFF 
          DEBUGER   BUGPRO    PUTIN     SETARR    BUGCLO    SAVREGS 
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TSTEXT 
                          0                       END 
  
  
  
  
                                                  IDENT  TSTEXT                                                  TSTEXT      2
                                                  STEXT                                                          TSTEXT      3
                                                  LIST   F,X                                                     TSTEXT      4
                                                  SST                                                            TSTEXT      5
  
  
  
  
                                        ***       TSTEXT - SYSTEM TEXT FOR C.D.C. FAST FORTRAN COMPILER.         TSTEXT      7
                                        *                                                                        TSTEXT      8
                                        *                                                                        TSTEXT      9
                                        *         AUTHORS EMERITUS:                                              TSTEXT     10
                                        *                RICHARD H. FRANK   (CHIEF DESIGNER) 1971                TSTEXT     11
                                        *                PAUL H. MC QUESTEN (CHIEF ASSISTANT) 1971               TSTEXT     12
                                                                                                                 TSTEXT     13
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      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.         S3143FC     5
                                        *                                                                        OPTIONS     7
                                        *         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC     OPTIONS     8
                                        *         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL-  OPTIONS     9
                                        *         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY   OPTIONS    10
                                        *         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION    OPTIONS    11
                                        *         AND SPECIFIC FUNCTIONAL REQUIREMENTS.                          OPTIONS    12
                                        *                                                                        OPTIONS    13
                                        *         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN     OPTIONS    14
                                        *         THE PROGRAM DECK  < FTN > .                                    OPTIONS    15
  
  
  
  
                                        *         ************************************************************** OPTIONS    17
                                        *         *                                                            * OPTIONS    18
                                        *         *                                                            * OPTIONS    19
                                        *         *   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    20
                                        *         *                                                            * OPTIONS    21
                                        *         *                                                            * OPTIONS    22
                                        *         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       * OPTIONS    23
                                        *         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         * OPTIONS    24
                                        *         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             * OPTIONS    25
                                        *         *                                                            * OPTIONS    26
                                        *         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       * OPTIONS    27
                                        *         *      BE CHANGED.                                           * OPTIONS    28
                                        *         *                                                            * OPTIONS    29
                                        *         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    * OPTIONS    30
                                        *         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           * OPTIONS    31
                                        *         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      * OPTIONS    32
                                        *         *                                                            * OPTIONS    33
                                        *         *                                                            * OPTIONS    34
                                        *         ************************************************************** OPTIONS    35
  
  
  
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE     3
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS    54
                                        *                                                                        OPTIONS    55
                                        *         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE   OPTIONS    56
                                        *                                                                        OPTIONS    57
                                        *                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A     OPTIONS    58
                                        *                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS      OPTIONS    59
                                        *                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE       OPTIONS    60
                                        *                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND          OPTIONS    61
                                        *                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE.    OPTIONS    62
                                        *                                                                        OPTIONS    63
                                        *                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER      OPTIONS    64
                                        *                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL       OPTIONS    65
                                        *                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING        OPTIONS    66
                                        *                REQUIREMENTS.                                           OPTIONS    67
                                        *                   1.  INSURE THAT THE TEXT CONTAINING THE              OPTIONS    68
                                        *                       INSTALLATION PARAMETERS CONTAINS CYBER 76        OPTIONS    69
                                        *                       VALUES.                                          OPTIONS    70
                                        *                   2.  SELECT THE DESIRED VALUE FOR THE DEFMOD MACRO    F2950F4    24
                                        *                       DEFINED IN THE BOX ENTITLED -                    OPTIONS    72
                                        *                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES      OPTIONS    73
                                        *                       MODEL."                                          OPTIONS    74
                                        *                                                                        OPTIONS    75
                                        *         CAUTIONS -                                                     OPTIONS    76
                                        *                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING    OPTIONS    77
                                        *                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE.      OPTIONS    78
                                        *                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL     OPTIONS    79
                                        *                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC". OPTIONS    80
                                        *                    THE STANDARD "OPTIONS" COMDECK MUST BE USED.        OPTIONS    81
                                        *                                                                        OPTIONS    82
                                        ***                                                                      OPTIONS    83
  
  
  
                                        ***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL.                OPTIONS    85
                                        *                                                                        OPTIONS    86
                                         LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME               OPTIONS    87
                                        VER       MICRO  1,3,/4.8/                                               PSRLEVEL    1
                                        PSR       MICRO  1,,$871$                                                PSRLEVEL    2
                                                  IF     MIC,PSR,2                                               OPTIONS    89
                                         MODLVL   MICRO  1,9,$"PSR"         $                                    OPTIONS    90
                                                  SKIP   1                                                       OPTIONS    91
                                         MODLVL   MICRO  1,9,$"MODLEVEL"         $                               OPTIONS    92
  
  
                                        **        VALMDL - VALIDATE MACRO FOR THE HP.F MICRO                     F2950F4    25
                                                                                                                 F2950F4    26
                                                  MACRO  VALMDL,MDL                                              FCC2563     6
                                                  QUAL   IPARAM                                                  FCC2563     7
                                         MDLNUM   MICRO  2,,-"HF.P"-                                             FCC2563     8
                                                  IFC    NE,-"MDLNUM"-S-                                         FCC2563     9
                                                  ELSE                                                           FCC2563    10
                                         MDL      MICRO  1,,-73-                                                 FCC2563    11
                                                  ENDIF                                                          FCC2563    12
                                                  IFC    NE,-"MDLNUM"-74-                                        FCC2563    13
                                                  IFC    NE,-"MDLNUM"-76-                                        FCC2563    14
                                                  ELSE                                                           FCC2563    15
                                         MDL      MICRO  1,,-"MDLNUM"-                                           FCC2563    16
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE     4
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         VALMDL
  
                                                  ENDIF                                                          FCC2563    17
                                                  IFC    NE,-"MDLNUM"-175-                                       FCC2563    18
                                                  IFC    NE,-"MDLNUM"-176-                                       FCC2563    19
                                                  ELSE                                                           FCC2563    20
                                         MDL      MICRO  2,,-"MDLNUM"-                                           FCC2563    21
                                                  ENDIF                                                          FCC2563    22
                                                  IFC    NE,-"MDLNUM"-740-                                       FCC2563    23
                                                  IFC    NE,-"MDLNUM"-750-                                       FCC2563    24
                                                  IFC    NE,-"MDLNUM"-760-                                       FCC2563    25
                                                  ELSE                                                           FCC2563    26
                                         MDL      MICRO  1,,-75-                                                 FCC2563    27
                                                  ENDIF                                                          FCC2563    28
                                                  IFC    NE,-"MDLNUM"-865-                                       FCC2563    29
                                                  IFC    NE,-"MDLNUM"-875-                                       FCC2563    30
                                                  IFC    NE,-"MDLNUM"-990-                                       FCCA596    10
                                                  IFC    NE,-"MDLNUM"-994-                                       FCC2567     6
                                                  IFC    NE,-"MDLNUM"-995-                                       FCC2567     7
                                                  ELSE                                                           FCC2563    31
                                         MDL      MICRO  1,,-76-                                                 FCC2563    32
                                                  ENDIF                                                          FCC2563    33
                                                  IF     -MIC,MDL,2                                              FCC2563    34
                                                  LIST   A                                                       FCC2563    35
                                                  ERR    ILLEGAL VALUE OF HF.P MICRO = "MDLNUM"                  FCC2563    36
                                                  QUAL   *                                                       FCC2563    37
                                                  ENDM                                                           FCC2563    38
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE     5
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.                 OPTIONS    94
                                        *                                                                        OPTIONS    95
                                        *         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS      OPTIONS    96
                                        *                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT    OPTIONS    97
                                        *                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE         OPTIONS    98
                                        *                INSTALLED AND EXECUTED ON.                              OPTIONS    99
                                        *                                                                        OPTIONS   100
                                                  QUAL   IPARAM                                                  OPTIONS   101
                                                  IPARAMS                                                        OPTIONS   102
                                                   DEFINHF                                                       F2950F4    51
                                                   IF    -MIC,HF.E      IF EXIT SEQUENTIAL NOT DEFINED.          F2950F4    52
                                   1     CT7X      EQU   1              NORMAL EXIT SEQUENTAL NOT DEFINED        F2950F4    53
                                                   ELSE  1                                                       F2950F4    54
                                         CT7X      EQU   0              NORMAL EXIT SEQUENTIAL DEFINED           F2950F4    55
                                                  QUAL   *                                                       OPTIONS   103
                                        *                                                                        OPTIONS   104
                                        *         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE   OPTIONS   105
                                        *         PRECEDING CALL TO IPARAMS.                                     OPTIONS   106
                                        *                                                                        OPTIONS   107
                                        *         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO   OPTIONS   108
                                        *                THE LAST TWO CHARACTERS OF THE CYBER "HF.P" MICRO, I.E. F2950F4    56
                                        *                74, 75, 76. IT IS REFERENCED WHENEVER THE               F2950F4    57
                                        *                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST      OPTIONS   111
                                        *                BE KNOWN. FOR MACHINES WITH SERIAL CPU S "HF.P"         F2950F4    58
                                        *                RETURNS AN *S*. 73D IS SUBSTITUTED FOR THE *S* VALUE.   F2950F4    59
                                        *         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1   OPTIONS   113
                                        *                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING    FEAT126A    6
                                        *                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.           FEAT126A    7
                                        *                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS     OPTIONS   115
                                        *                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO   OPTIONS   116
                                        *                DETERMINE MACHINE DIFFERENCES.                          OPTIONS   117
                                                                                                                 OPTIONS   118
                              140000     IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH              OPTIONS   119
                                                                                                                 OPTIONS   120
                                         MDL      VALMDL                                                         F2950F4    60
                                 111     CT.CPU   EQU    "MDL"       COMPILE-TIME CPU                            OPTIONS   122
                                                                                                                 OPTIONS   123
                                   1     .OT      SET    1           SET FOR NOS                                 FEAT126A    8
                                         #OS      IFC    EQ,/"OS.NAME"/SCOPE /                                   OPTIONS   125
                                         .VER     MICRO  1,1,/"OS.VER"/                                          FEAT126A    9
                                         .OT      SET    ".VER"      SET FOR SCOPE "OS.VER"                      FEAT126A   10
                                         #OS      ENDIF                                                          OPTIONS   129
                                   1     .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM               OPTIONS   130
                                   1     CT.7X    EQU    /IPARAM/CT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED F2950F4    61
                                        *                                                                        OPTIONS   131
                                        ***                                                                      OPTIONS   132
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE     6
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS.                  OPTIONS   134
                                                                                                                 OPTIONS   135
                                                                                                                 OPTIONS   136
                                        *         ************************************************************** OPTIONS   137
                                        *         *                                                            * OPTIONS   138
                                        *         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     * S3143FC    29
                                        *         *                                                            * OPTIONS   140
                                        *         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       * OPTIONS   141
                                        *         *            ----                       ----                 * OPTIONS   142
                                        *         *                                                            * OPTIONS   143
                                        *         *            71                         6400                 * FCC1847X    6
                                        *         *            72                         6200                 * OPTIONS   144
                                        *         *            73                         6400                 * OPTIONS   145
                                        *         *            73-2                       6500                 * OPTIONS   146
                                        *         *            74                         6600                 * OPTIONS   147
                                        *         *            74-2                       6700                 * OPTIONS   148
                                        *         *            76                         7600                 * OPTIONS   149
                                        *         *            171                        6400                 * FCC1847X    7
                                        *         *            172                        6400                   FCC1264     7
                                        *         *            173                        6400                   FCC1264     8
                                        *         *            174                        6400                   FCC1264     9
                                        *         *            175                        CYBER 175 CPU          FCC1264    10
                                        *         *            176                        7600                   FCC1264    11
                                        *         *                                                            * OPTIONS   150
                                        *         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  * OPTIONS   151
                                        *         *      IGNORED.  TO BUILD A CROSS-MODEL COMPILER, SELECT A   * OPTIONS   152
                                        *         *      VALUE FROM THE LIST ABOVE, REMOVE THE ASTERISK, AND   * OPTIONS   153
                                        *         *      INSERT THE PROPER VALUE ON THE FOLLOWING  LINE.       * OPTIONS   154
                                        *         DEFMOD 74                                                      F2950F4    62
                                        *         *                                                            * OPTIONS   156
                                        *         ************************************************************** OPTIONS   157
  
  
  
                                        *         ************************************************************** OPTIONS   159
                                        *         *                                                            * OPTIONS   160
                                        *         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          * OPTIONS   161
                                        *         *                                                            * OPTIONS   162
                                        *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     * OPTIONS   163
                                        *         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      * OPTIONS   164
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  * OPTIONS   165
                                        *         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    * OPTIONS   166
                                        *         *      PARAMETER TO ZERO.                                    * OPTIONS   167
                                   0     .IWT     EQU    0                                                       OPTIONS   168
                                        *         *                                                            * OPTIONS   169
                                        *         ************************************************************** OPTIONS   170
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE     7
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   184
                                        *         *                                                            * OPTIONS   185
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   * OPTIONS   186
                                        *         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         * OPTIONS   187
                                        *         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    * OPTIONS   188
                                        *         *      VALUES ARE --                                         * OPTIONS   189
                                        *         *                                                            * OPTIONS   190
                                        *         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    * OPTIONS   191
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   192
                                        *         *                                                            * OPTIONS   193
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   194
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   195
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   196
                                        *CP#RM    =      0                                                     * OPTIONS   197
                                        *         *                                                            * OPTIONS   198
                                        *         ************************************************************** OPTIONS   199
  
  
  
  
                                        *         ************************************************************** OPTIONS   201
                                        *         *                                                            * OPTIONS   202
                                        *         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    * OPTIONS   203
                                        *         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   * OPTIONS   204
                                        *         *      VALUES ARE -                                          * OPTIONS   205
                                        *         *                                                            * OPTIONS   206
                                        *         *                  1 = ECS AVAILABLE                         * OPTIONS   207
                                        *         *                  0 = NO ECS AVAILABLE                      * OPTIONS   208
                                        *         *                                                            * OPTIONS   209
                                        *         *                  LOWER CYBER DEFAULT =                     * OPTIONS   210
                                        *         *                        0  FOR KRONOS OPERATING SYSTEM      * OPTIONS   211
                                        *         *                        /IPARAM/IP.MECS  FOR SCOPE          * OPTIONS   212
                                        *         *                  CYBER 76 DEFAULT IS 1                     * OPTIONS   213
                                        *         *                                                            * OPTIONS   214
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   215
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   216
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   217
                                        *CT.ECS   EQU    0                                                     * OPTIONS   218
                                        *         *                                                            * OPTIONS   219
                                        *         ************************************************************** OPTIONS   220
  
  
  
                                        *         ************************************************************** FEAT121A   10
                                        *         *                                                            * FEAT121A   11
                                        *         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  * FEAT121A   12
                                        *         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    * FEAT121A   13
                                        *         *      NOT ZERO, THEN WHEN OPT=2 AND *UO* ARE SELECTED, THE  * FEAT121A   14
                                        *         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN * FEAT121A   15
                                        *         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     * FEAT121A   16
                                        *         *      SUCH AS SIN, SQRT, EXP, ETC.                            FEAT121A   17
                                        *         *                                                            * FEAT121A   18
                                   1     .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY       FEAT121A   19
                                        *         *                                                            * FEAT121A   20
                                        *         ************************************************************** FEAT121A   21
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE     8
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                        *         ************************************************************** OPTIONS   222
                                        *         *                                                            * OPTIONS   223
                                        *         *      SELECT OVERLAY STRUCTURE.  VALUES ARE -               * OPTIONS   224
                                        *         *                                                            * OPTIONS   225
                                        *         *                  0 = FAX AND REFMAP ARE LOADED AS PART     * OPTIONS   226
                                        *         *                      OF THE (2,2) OVERLAY, PASS2.          * OPTIONS   227
                                        *         *                  1 = FAX AND REFMAP ARE LOADED AS A        * OPTIONS   228
                                        *         *                        SEPARATE OVERLAY. (DEFAULT)         * OPTIONS   229
                                        *         *                                                            * OPTIONS   230
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   231
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO 0.                  * OPTIONS   232
                                        *         *                                                            * OPTIONS   233
                                   1     .OVL     =      1           FAX AND REFMAP ON SEPARATE OVERLAY          OPTIONS   234
                                        *         *                                                            * OPTIONS   235
                                        *         ************************************************************** OPTIONS   236
  
  
  
  
                                        *         ************************************************************** F66FCC     20
                                        *         *                                                            * F66FCC     21
                                        *         *      SELECT USES OF INTERACTIVE DEBUG.                     * F66FCC     22
                                        *         *      NOT SUPPORTED ON SCOPE 2.                               F66FCC     23
                                        *         *      PERMISSIBLE VALUES ARE --                             * F66FCC     24
                                        *         *                  1 = ASSEMBLE CODE FOR INTERACTIVE DEBUG   * F66FCC     25
                                        *         *                  (DEFAULT FOR LOWER CYBER)                 * F66FCC     26
                                        *         *                  0 = DO NOT ASSEMBLE INTER. DEBUG CODE     * F66FCC     27
                                        *         *                  (DEFAULT FOR CYBER 76)                    * F66FCC     28
                                        *         *                                                            * F66FCC     29
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * F66FCC     30
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE       * F66FCC     31
                                        *         *      ON THE FOLLOWING LINE.                                * F66FCC     32
                                        *.FID     =      1                                                     * F66FCC     33
                                        *         *                                                            * F66FCC     34
                                        *         ************************************************************** F66FCC     35
  
  
  
                                        *         ************************************************************** OPTIONS   238
                                        *         *                                                            * OPTIONS   239
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     * OPTIONS   240
                                        *         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  * OPTIONS   241
                                        *         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      * OPTIONS   242
                                        *         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN * S3143FC    30
                                        *         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    * S3143FC    31
                                        *         *      VALUES ARE --                                         * OPTIONS   245
                                        *         *                                                            * OPTIONS   246
                                        *         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    * OPTIONS   247
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   248
                                        *         *                                                            * OPTIONS   249
                                        *         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        * OPTIONS   250
                                        *         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   * OPTIONS   251
                                        *         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    * OPTIONS   252
                                        *         *      VALUE ON THE FOLLOWING LINE.                          * OPTIONS   253
                                        *OT#RM    =      6                                                       OPTIONS   254
                                        *         *                                                            * OPTIONS   255
                                        *         ************************************************************** OPTIONS   256
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE     9
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** FEAT126AB   6
                                        *         *                                                            * FEAT126AB   7
                                        *         *      SELECT WIDTH OF PAGE IN CHARACTERS WHEN COMPILER      * FEAT126AB   8
                                        *         *      LISTINGS ARE PRINTED AS A TERMINAL FILE.              * FEAT126AB   9
                                        *         *                                                            * FEAT126AB  10
                                 110     PW.TTY   =      72                                                      FEAT126AB  11
                                        *         *                                                            * FEAT126AB  12
                                        *         ************************************************************** FEAT126AB  13
  
  
  
                                        *         ************************************************************** OPTIONS   266
                                        *         *                                                            * OPTIONS   267
                                        *         *      CALL FORMAT FOR LOADING COMPILER OVERLAYS.  VALUES -- * OPTIONS   268
                                        *         *           2 = ISSUE TWO-WORD LOADER CALLS.                 * OPTIONS   269
                                        *         *                  (UPPER CYBER, I.E. CYBER 76, DEFAULT)     * OPTIONS   270
                                        *         *           3 = ISSUE THREE-WORD LOADER CALLS.               * OPTIONS   271
                                        *         *                  (LOWER CYBER DEFAULT)                     * OPTIONS   272
                                        *         *                                                            * OPTIONS   273
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   274
                                        *         *      REMOVE THE ASTERISK AND INSERT THE DESIRED VALUE ON   * OPTIONS   275
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   276
                                        *LDRCALL  =      3                                                     * OPTIONS   277
                                        *         *                                                            * OPTIONS   278
                                        *         ************************************************************** OPTIONS   279
  
  
  
  
                                        *         ************************************************************** CP139FC    12
                                        *         *                                                            * CP139FC    13
                                        *         *      SELECT TYPE OF LOADER TABLE FOR COMPILER OVERLAYS.    * CP139FC    14
                                        *         *      TABLE TYPE MUST AGREE WITH THAT OF THE OPERATING      * CP139FC    15
                                        *         *      SYSTEM OVERLAY LOADER, AND OF THE COMPASS ASSEMBLER.  * CP139FC    16
                                        *         *      PERMISSIBLE VALUES ARE --                             * CP139FC    17
                                        *         *            50 =  ASCM (5000) TABLE.                        * CP139FC    18
                                        *         *            54 = EACPM (5400) TABLE.   (DEFAULT)            * CP139FC    19
                                        *         *                                                            * CP139FC    20
                                        *LDRTABL  SET    54                                                    * CP139FC    21
                                        *         *                                                            * CP139FC    22
                                        *         ************************************************************** CP139FC    23
  
  
  
                                        *         ************************************************************** OPTIONS   281
                                        *         *                                                            * OPTIONS   282
                                        *         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      * OPTIONS   283
                                        *         *                                                            * OPTIONS   284
                                         C        MICRO  1,,/#/                                                  OPTIONS   285
                                        *         *                                                            * OPTIONS   286
                                        *         ************************************************************** OPTIONS   287
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    10
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                        *         ************************************************************** FEAT121L    5
                                        *                                                                      * FEAT126B    3
                                        *         *      SELECT USE OF C/-LIST OPTIONS TO CONDITIONALLY TURN   * FEAT121L    6
                                        *         *      ON AND OFF SOURCE LISTING AT COMPILE TIME. TO DESELECT* FEAT121L    7
                                        *         THIS OPTION, SET THE SYMBOL ON THE FOLLOWING LINE EQUAL TO 0.  FEAT126B    4
                                        *         *                                                            * FEAT121L    9
                                   1     #NL      =      1                                                       FEAT121L   10
                                        *         *                                                            * FEAT121L   11
                                        *         ************************************************************** FEAT121L   12
  
  
  
                                        *         ************************************************************** OPTIONS   289
                                        *         *                                                            * OPTIONS   290
                                        *         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  * OPTIONS   291
                                        *         *                                                            * OPTIONS   292
                                        *         *                  CRM VALUES.                              *  F162FTNA   39
                                   6     L.FCLX   =      6           LENGTH OF FIT EXTENSION FOR FCL WSA         F162FTNA   40
                                  51     L.FIT6   =      43B+L.FCLX  FIT LENGTH, +6 FOR FCL                      F162FTNA   41
                                2003     L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH                   FCC0902     6
                                 101     L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB  OPTIONS   297
                                 401     L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB OPTIONS   298
                                        *         *                                                            * OPTIONS   299
                                        *         *                  7RM VALUES                                * OPTIONS   300
                                  20     L.FIT7   =      16D         FIT LENGTH                                  OPTIONS   301
                                   0     L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH                   OPTIONS   303
                                        *         *                                                            * OPTIONS   304
                                        *         ************************************************************** OPTIONS   305
  
  
  
  
                                        *         ************************************************************** OPTIONS   307
                                        *         *                                                            * OPTIONS   308
                                        *         *      F I X E D   L E N G T H   T A B L E S.                * OPTIONS   309
                                        *         *                                                            * OPTIONS   310
                                        *         ************************************************************** OPTIONS   311
                                        *         *                                                            * OPTIONS   312
                                        *         *      LENGTH OF INTERMEDIATE STORAGE AREA FOR ALL CON-      * OPTIONS   313
                                        *         *      STANTS IN ANY ONE SOURCE STATEMENT.  EACH CONSTANT    * OPTIONS   314
                                        *         *      BEGINS ON A NEW WORD BOUNDARY, AND IS PACKED AS TEN   * OPTIONS   315
                                        *         *      DISPLAY-CODED CHARACTERS PER WORD.                    * OPTIONS   316
                                        *         *                                                            * OPTIONS   317
                                 454     CONSTORS EQU    300D                                                    OPTIONS   318
                                        *         *                                                            * OPTIONS   319
                                        *         ************************************************************** OPTIONS   320
                                        *         *                                                            * OPTIONS   321
                                        *         *      LENGTH OF SAVED OPERATOR STACK.                       * OPTIONS   322
                                        *         *                                                            * OPTIONS   323
                                 240     MXOSE    EQU    160D                                                    OPTIONS   324
                                        *         *                                                            * OPTIONS   325
                                        *         ************************************************************** OPTIONS   326
                                        *         *                                                            * OPTIONS   327
                                        *         *      LENGTH OF SAVED FUNCTION RESULT TABLE.                * OPTIONS   328
                                        *         *                                                            * OPTIONS   329
                                 132     MXFRSTB  EQU    90D                                                     OPTIONS   330
                                        *         *                                                            * OPTIONS   331
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    11
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   332
                                        *         *                                                            * OPTIONS   333
                                        *         *      LENGTH OF *ARLIST* BUFFER.                            * OPTIONS   334
                                        *         *                                                            * OPTIONS   335
                                3200     ARLSZ    EQU    3200B                                                   OPTIONS   336
                                        *         *                                                            * OPTIONS   337
                                        *         ************************************************************** OPTIONS   338
                                        *         *                                                            * OPTIONS   339
                                        *         *      MAXIMUM LENGTH OF GLOBAL DEBUG CONSTANT TABLE.        * OPTIONS   340
                                        *         *                                                            * OPTIONS   341
                                 310     S.GCON   =      200D                                                    OPTIONS   342
                                        *         *                                                            * OPTIONS   343
                                        *         ************************************************************** OPTIONS   344
  
  
  
                                        *         ************************************************************** OPTIONS   346
                                        *         *                                                            * OPTIONS   347
                                        *         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         * OPTIONS   348
                                        *         *                                                            * OPTIONS   349
                                        *         *      WHEN THE FOLLOWING PARAMETER IS ZERO, <ARITH> WILL    * OPTIONS   350
                                        *         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    * OPTIONS   351
                                        *         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        * OPTIONS   352
                                        *         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       * OPTIONS   353
                                        *         *                                                            * OPTIONS   354
                                   0     NOINVERT EQU    0                                                       OPTIONS   355
                                        *         *                                                            * OPTIONS   356
                                        *         ************************************************************** OPTIONS   357
  
  
  
                                        ***       POST MORTEM DUMP INSTALLATION PARAMETERS                       FEAT1070C  35
  
                                        **        MAN.FL - POST PROCESSOR FIELD LENGTH                           FEAT1070C  37
                                        *                USED BY FORSYS=,PMDMP=                                  FEAT1070C  38
                               32000    MAN.FL    EQU    32000B      WAS 26000B, INCREASE FOR STATIC COMPILE     FEAT1070C  39
                                                                                 OF POST PROCESSOR.              FEAT1070C  40
  
                                        **        MAN.LINP - NUMBER OF LINES / PAGE                              FEAT1070C  42
                                        *                USED BY FTN,PMDMP=                                      FEAT1070C  43
                                 124    MAN.LINP  EQU    84D                                                     FEAT1070C  44
  
  
                                        **        MAN.XJP - POST MORTEM DUMP COMMUNICATION WORD                  FEAT1070C  46
                                        *                USED BY FORSYS=,PMDMP=                                  FEAT1070C  47
                                  51    MAN.XJP   EQU    51B                                                     FEAT1070C  48
  
  
                                        **        IDENTIFIERS FOR COMPILER TABLES ON ZZZZZSY                     FEAT1070C  50
                                        *                USED BY FTN,PMDMP= (DMPVAR)                             FEAT1070C  51
  
                                   1    ZZ.SYM    EQU    1           SYMBOL TABLE                                FEAT1070C  53
                                   2    ZZ.COM    EQU    2           COMMON BLOCK TABLE                          FEAT1070C  54
                                   3    ZZ.DIM    EQU    3           DIMENSION TABLE                             FEAT1070C  55
  
  
  
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    12
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                 124    L.PAGE    EQU    MAN.LINP                                                FEAT1070C  57
  
  
  
                                        *         ************************************************************** OPTIONS   367
                                        *         *                                                            * OPTIONS   368
                                        *         *      ERROR LISTING LINE LIMIT.                             * OPTIONS   369
                                        *         *                                                            * OPTIONS   370
                                 144     ERRMAX   EQU    100D                                                    OPTIONS   371
                                        *         *                                                            * OPTIONS   372
                                        *         ************************************************************** OPTIONS   373
  
  
  
                                        ***                                                                      OPTIONS   375
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF     OPTIONS   376
                                        *         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE    OPTIONS   377
                                        *         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF    OPTIONS   378
                                        *         THE *HF.P* MICRO OBTAINED FROM A CALL TO *IPARAMS* AND         F2950F4    63
                                        *         *DEFINHF* AT THE BEGINNING OF *OPTIONS*.                       F2950F4    64
                                        *                                                                        OPTIONS   381
                                        *         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE   OPTIONS   382
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   383
                                        *                                                                        CP139FC    24
                                        *         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR     CP139FC    25
                                        *                OPT=2 USE DURING COMPILATIONS.                          CP139FC    26
                                        *                                                                        CP139FC    27
                                        *         LDRCALL DEFINES THE FORMAT OF LOADER CALLS.  IT IS DESCRIBED   OPTIONS   384
                                        *                IN THE *OPTIONS* COMDECK.                               OPTIONS   385
                                        *                                                                        CP139FC    28
                                        *         LDRTABL  INDICATES THE TYPE OF LOADER TABLE THAT PREFIXES      CP139FC    29
                                        *                EACH COMPILER ABSOLUTE OVERLAY.                         CP139FC    30
                                                                                                                 CP139FC    31
                                                                                                                 OPTIONS   386
                                         #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU                            OPTIONS   387
                                         #MD      IFEQ   .OS,2                                                   F7540FT    18
                                                                                                                 OPTIONS   388
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   389
                                                                                                                 OPTIONS   390
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   391
                                         CP#RM    EQU    7           USE 7RM AT COMPILE-TIME                     OPTIONS   392
                                         #RM      ENDIF                                                          OPTIONS   393
                                                                                                                 OPTIONS   394
                                         #LD      IF     -DEF,LDRCALL                                            OPTIONS   395
                                         LDRCALL  EQU    2           SELECT TWO-WORD LOADER CALLS                OPTIONS   396
                                         #LD      ENDIF                                                          OPTIONS   397
                                                                                                                 OPTIONS   398
                                         #ECS     IF     -DEF,CT.ECS                                             OPTIONS   399
                                         CT.ECS   EQU    1           USE LCM AT COMPILE TIME                     OPTIONS   400
                                         #ECS     ENDIF                                                          OPTIONS   401
                                                                                                                 OPTIONS   402
                                         #FID     IF     -DEF,.FID                                               F66FCC     36
                                         .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE      F66FCC     37
                                         #FID     ENDIF                                                          F66FCC     38
                                                                                                                 F66FCC     39
                                         #MD      ELSE                                                           OPTIONS   403
                                                                                                                 OPTIONS   404
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    13
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.               S3143FC    32
                                                                                                                 OPTIONS   406
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   407
                                   0     CP#RM    EQU    0           USE CIO AT COMPILE-TIME                     OPTIONS   408
                                         #RM      ENDIF                                                          OPTIONS   409
                                                                                                                 OPTIONS   410
                                         #LD      IF     -DEF,LDRCALL                                            OPTIONS   411
                                   3     LDRCALL  EQU    3           SELECT THREE-WORD LOADER CALLS              OPTIONS   412
                                         #LD      ENDIF                                                          OPTIONS   413
                                                                                                                 OPTIONS   414
                                         #ECS     IF     -DEF,CT.ECS,4                                           OPTIONS   415
                                         #ECS     IF     DEF,/IPARAM/IP.MECS,2                                   OPTIONS   416
                                   1     CT.ECS   EQU    /IPARAM/IP.MECS                                         OPTIONS   417
                                         #ECS     SKIP   1                                                       OPTIONS   418
                                         CT.ECS   EQU    0                                                       OPTIONS   419
                                         #ECS     ENDIF                                                          OPTIONS   420
                                                                                                                 OPTIONS   421
                                         #FID     IF     -DEF,.FID                                               F66FCC     40
                                   1     .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE             F66FCC     41
                                         #FID     ENDIF                                                          F66FCC     42
                                                                                                                 F66FCC     43
                                         #MD      ENDIF                                                          OPTIONS   422
  
  
  
  
                                        *         DEFINE COMPILER OVERLAY LOADER TABLE LENGTHS.                  CP139FC    33
                                                                                                                 CP139FC    34
                                                  IF     -DEF,LDRTABL,1                                          CP139FC    35
                                  66     LDRTABL  SET    54                                                      CP139FC    36
                                                                                                                 CP139FC    37
                                                  IFEQ   LDRTABL,50,3                                            CP139FC    38
                                         LDR.00   =      1                                                       CP139FC    39
                                         LDR.NN   =      1                                                       CP139FC    40
                                                  SKIP   5                                                       CP139FC    41
                                                  IFEQ   LDRTABL,54,3                                            CP139FC    42
                                  11     LDR.00   =      11B                                                     CP139FC    43
                                   5     LDR.NN   =      5                                                       CP139FC    44
                                                  SKIP   1                                                       CP139FC    45
                                                  ERR    *LDRTABL* VALUE NOT 50 OR 54  "SEQUENCE"                CP139FC    46
  
  
  
  
                                        ***                                                                      OPTIONS   432
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    14
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS   434
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF      OPTIONS   435
                                        *         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN    OPTIONS   436
                                        *         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF      OPTIONS   437
                                        *         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME          OPTIONS   438
                                        *         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH     OPTIONS   439
                                        *         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*.              OPTIONS   440
                                        *                                                                        OPTIONS   441
                                        *         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE    OPTIONS   442
                                        *                LAST TWO CHARACTERS OF THE *HF.P* MICRO, I.E. 73, 74,   F2950F4    65
                                        *                75, 76. IT IS TO BE USED FOR OBJECT-TIME HARDWARE       F2950F4    66
                                        *                DIFFERENCES ONLY. IF THE *HF.P* MICRO RETURNS AN *S*    F2950F4    67
                                        *                THEN THE MACHINE HAS A SERIAL CPU AND *.CPU* IS         F2950F4    68
                                        *                SET EQUAL TO 73D.                                       F2950F4    69
                                        *         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS     OPTIONS   446
                                        *                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF    OPTIONS   447
                                        *                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0,      OPTIONS   448
                                        *                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY      OPTIONS   449
                                        *                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE.        OPTIONS   450
                                        *         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE    OPTIONS   451
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   452
                                                                                                                 OPTIONS   453
                                         MDL      VALMDL                                                         F2950F4    70
                                                                                                                 S3143FC    34
                                 111     .CPU     EQU    "MDL"       OBJECT TIME CPU                             OPTIONS   459
                                                                                                                 F2950F4    71
                                                  QUAL   IPARAM                                                  F2950F4    72
                                                  IPARAMS                                                        F2950F4    73
                                                  DEFINHF                                                        F2950F4    74
                                                                                                                 F2950F4    75
                                                  IF     -MIC,HF.S,2   IF SEQUENTIAL STACK NOT DEFINED           F2950F4    76
                                  -1     LSTACK   EQU    -1                                                      F2950F4    77
                                                  SKIP   5                                                       F2950F4    78
                                         STACK    MICRO  2,,/"HF.S"/                                             F2950F4    79
                                                  IFC    EQ,/"STACK"/0/,2                                        F2950F4    80
                                         LSTACK   EQU    -1                                                      F2950F4    81
                                                  SKIP   1                                                       F2950F4    82
                                         LSTACK   EQU    "STACK"                                                 F2950F4    83
                                                                                                                 F2950F4    84
                                                  IF     -MIC,HF.L    IF LCM NOT DEFINED                         F2950F4    85
                                         DAL      EQU    0           LCM ACCESS NOT ALLOWED                      F2950F4    86
                                         LCM      MICRO  1,,/ECS/                                                FCCA553     7
                                                  ELSE                                                           FCCA553     8
                                         LCM      MICRO  1,,/LCM/                                                FCCA553     9
                                   1     DAL      EQU    1           LCM ACCESS ALLOWED                          F2950F4    88
                                                  ENDIF                                                          FCCA553    10
                                                                                                                 F2950F4    89
                                                  IF     -MIC,HF.E     IF NORMAL EXIT SEQUENTIAL NOT DEFINED     F2950F4    90
                                   1     OT7X     EQU    1              NORMAL EXIT SEQUENTIAL NOT DEFINED       F2950F4    91
                                                  ELSE   1                                                       F2950F4    92
                                         OT7X     EQU    0              NORMAL EXIT SEQUENTIAL DEFINED           F2950F4    93
                                                  QUAL   *                                                       F2950F4    94
                                                                                                                 F2950F4    95
                                   0     L.STACK  EQU    /IPARAM/LSTACK+1    MAX INSTACK LOOP LENGTH + 1         F2950F4    96
                                   1     .DAL     EQU    /IPARAM/DAL        .NZ. IF LCM DIRECT ACCESS ALLOWED    F2950F4    97
                                   1     OT.7X    EQU    /IPARAM/OT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED F2950F4    98
                                   1     .NRFCO   EQU   1             HARDWARE NORMALIZE FCO INSTALLED           F2950F4    99
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    15
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                                                                                                 F2950F4   100
                                                                                                                 F7540FT    22
                                        *         CYBER 76/176 DEFAULT VALUES.                                   F7540FT    23
                                                                                                                 OPTIONS   464
                                         #MD      IFEQ   .CPU,76                                                 OPTIONS   465
                                                                                                                 OPTIONS   468
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   469
                                         #OS      IFEQ   .OS,2                                                   F7540FT    24
                                         OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O                 OPTIONS   470
                                         #OS      ELSE                                                           F7540FT    25
                                         OT#RM    =      6           USE *CRM* FOR OBJECT-TIME I/O               F7540FT    26
                                         #OS      ENDIF                                                          F7540FT    27
                                         #RM      ENDIF                                                          OPTIONS   471
                                                                                                                 OPTIONS   472
                                         SCM      MICRO  1,,/SCM/                                                OPTIONS   473
                                                                                                                 OPTIONS   475
                                         #MD      ELSE                                                           OPTIONS   476
                                                                                                                 OPTIONS   477
                                        *         LOWER CYBER DEFAULT VALUES.                                    OPTIONS   478
                                                                                                                 OPTIONS   479
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   480
                                   6     OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O                 OPTIONS   481
                                         #RM      ENDIF                                                          OPTIONS   482
                                                                                                                 OPTIONS   483
                                         SCM      MICRO  1,,/CM/                                                 OPTIONS   484
                                                                                                                 OPTIONS   486
                                         #MD      ENDIF                                                          OPTIONS   487
                                        ***                                                                      OPTIONS   489
                                        ****                                                                     OPTIONS   490
                                        *         SELECT SYSTEM - OR TEST-MODE COMPILER CONFIGURATION.           FCCA451     7
                                                                                                                 FCCA451     8
                                   0     TEST     =      0           ASSEMBLE COMPILER IN NORMAL (SYSTEM) MODE   FCCA451    10
                                                                                                                 FCCA451    13
                                        *                                                                        FCCA451    14
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    16
        I/O MACRO CODING CONVENTIONS. 
  
                                        **        I/O MACRO CODING CONVENTIONS.                                  FA=DEFS     2
                                        *                                                                        FA=DEFS     3
                                        *         1.  MACRO DEFINITIONS THAT ACCEPT NULL CALLING PARAMETERS      FA=DEFS     4
                                        *         SHOULD BE AVOIDED, PARTICULARLY WHEN A NULL PARAMETER IMPLIES  FA=DEFS     5
                                        *         THAT A REGISTER IS ALREADY PROPERLY LOADED.  THE ASSUMPTIONS   FA=DEFS     6
                                        *         OR REGISTERS MAY HAVE TO BE CHANGED IN THE FUTURE, WHICH COULD FA=DEFS     7
                                        *         COMPEL RECODING OF ALL CALLS TO THE MACRO IF NULL PARAMETERS   FA=DEFS     8
                                        *         HAVE SPECIFIC MEANINGS.                                        FA=DEFS     9
                                        *             THE PREFERRED TECHNIQUE IS TO REQUIRE EXPLICIT CALL        FA=DEFS    10
                                        *         PARAMETERS, AND THEN SQUEEZE OUT REDUNDANT CODE WITH THE       FA=DEFS    11
                                        *         (R=) PSEUDO-OP OR OTHER METHOD.                                FA=DEFS    12
                                        *                                                                        FA=DEFS    13
                                        *         2.  *USES* LISTS ONLY THE REGISTERS DESTROYED BY THE MACRO     FA=DEFS    14
                                        *         CALL EXPANSION.  REGISTERS DESTROYED BY INNER MACRO OR         FA=DEFS    15
                                        *         SUBROUTINE CALLS ARE LISTED IN THE DESCRIPTION OF THE CALLED   FA=DEFS    16
                                        *         ITEM.                                                          FA=DEFS    17
                                        *             THE ONLY EXCEPTION TO THIS IS THAT REGISTERS DESTROYED BY  FA=DEFS    18
                                        *         THE (R=) PSEUDO-OP SHOULD BE LISTED IN THE *USES* BLOCK OF     FA=DEFS    19
                                        *         THE CALLER.                                                    FA=DEFS    20
                                        *                                                                        FA=DEFS    21
                                        *         3.  BOTH MACRO AND SUBROUTINE CALLS ARE LISTED IN *CALLS*.     FA=DEFS    22
                                        *                                                                        FA=DEFS    23
                                        *         4.  CONDITIONAL ASSEMBLY PSEUDO-OPS (IF.., ELSE, SKIP, ENDIF)  FA=DEFS    24
                                        *         ARE ALWAYS EITHER COUNT-CONTROLLED OR LABELED, TO AVOID MACRO  FA=DEFS    25
                                        *         NESTING PROBLEMS.                                              FA=DEFS    26
                                        *             COUNT CONTROL IS PREFERRED WHERE THE LINE COUNTS ARE       FA=DEFS    27
                                        *         SMALL (.LE. 9), TO REDUCE ASSEMBLY TIME.                       FA=DEFS    28
                                        *             LABELING IS PREFERRED FOR LARGER LINE COUNTS, TO REDUCE    FA=DEFS    29
                                        *         THE CHANCE OF COUNT ERRORS AND TO ENHANCE CODE READABILITY.    FA=DEFS    30
                                        *                                                                        FA=DEFS    31
                                        *         5.  ADDRESS TERMINOLOGY.                                       FA=DEFS    32
                                        *                THE FOLLOWING CONVENTIONS ARE ADOPTED FOR REFERRING     FA=DEFS    33
                                        *         TO A GROUP OF CONTIGUOUS STORAGE LOCATIONS.                    FA=DEFS    34
                                        *             A.  *FWA* OR FIRST WORD ADDRESS IS THE SMALLEST STORAGE    FA=DEFS    35
                                        *             ADDRESS FOR THE GROUP.                                     FA=DEFS    36
                                        *             B.  *LWA* OR LAST WORD ADDRESS IS THE LARGEST STORAGE      FA=DEFS    37
                                        *             ADDRESS FOR THE GROUP.                                     FA=DEFS    38
                                        *             C.  *ADDRESS*, IF NOT OTHERWISE QUALIFIED, IS THE FIRST    FA=DEFS    39
                                        *             WORD ADDRESS.                                              FA=DEFS    40
                                        *             D. *FWA* IS PREFERRED WHEN BOTH *FWA* AND *LWA* ARE        FA=DEFS    41
                                        *             BEING MENTIONED, TO AVOID CONFUSION.  OTHERWISE,           FA=DEFS    42
                                        *             *ADDRESS* IS PREFERRED.                                    FA=DEFS    43
                                        *             E.  *LWA+1* IS NEVER, NEVER ABBREVIATED AS *LWA*.          FA=DEFS    44
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    17
        I/O SYSTEM SYMBOLS
  
                                         #RM      IFEQ   CP#RM,0                                                 FA=DEFS    47
  
  
  
  
                                        ****      FET STRUCTURE AND WORD OFFSETS.                                FA=DEFS    49
                                        *                                                                        FA=DEFS    50
                                        *                                                                        FA=DEFS    51
                                        *              OFFSET        CONTENTS                                    FA=DEFS    52
                                        *              ------        --------                                    FA=DEFS    53
                                                                                                                 FA=DEFS    54
                                   0     I.FET    =      0           42/EXTERNAL LFN, 18/CIO CODE AND STATUS     FA=DEFS    55
                                   1     I.FIRST  =      1           36/0, 6/FET LEN - 5, 18/FIRST               FA=DEFS    56
                                   1     I.DT     =      1           12/DEVICE TYPE,48/0                         FEAT126A    5
                                   2     I.IN     =      2           60/IN                                       FA=DEFS    57
                                   3     I.OUT    =      3           60/OUT                                      FA=DEFS    58
                                   4     I.LIMIT  =      4           42/0,18/LIMIT                               FA=DEFS    59
                                   4     I.PRU    =      4           26/0,16/PRU SIZE,18/0                       FA=DEFS    60
                                   5     I.CBSET  =      5           24/0, 18/PASS 1 LEN, 18/PASS 1 FWA          FA=DEFS    61
                                   6     I.RAN1   =      6           RANDOM FILE INFORMATION                     FA=DEFS    62
                                   7     I.RAN2   =      7           RANDOM FILE INFORMATION                     FA=DEFS    63
                                        ****                                                                     FA=DEFS    64
  
  
  
  
                                         #RM      ELSE                                                           FA=DEFS    66
                                                  SPACE  4                                                       FA=DEFS    67
                                        ****      PSEUDO-FET STRUCTURE AND WORD OFFSETS.                         FA=DEFS    68
                                        *                                                                        FA=DEFS    69
                                        *                                                                        FA=DEFS    70
                                        *              OFFSET        CONTENTS                                    FA=DEFS    71
                                        *              ------        --------                                    FA=DEFS    72
                                                                                                                 FA=DEFS    73
                                         I.CBSET  =      -1          CIO BUFFER PASS 1 PARAMS - 42/LEN, 18/FWA   FA=DEFS    74
                                         I.FIT    =      0           1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR  FA=DEFS    75
                                         I.FIRST  =      1           60/FIRST                                    FA=DEFS    76
                                         I.IN     =      2           60/IN                                       FA=DEFS    77
                                         I.OUT    =      3           60/OUT                                      FA=DEFS    78
                                         I.LIMIT  =      4           60/LIMIT                                    FA=DEFS    79
                                         I.HBSET  =      5           HOLDING BUF PASS 1 PARAMS - 42/LEN, 18/FWA  FA=DEFS    80
                                        ****                                                                     FA=DEFS    81
                                                  SPACE  4                                                       FA=DEFS    82
                                         #RM      ENDIF                                                          FA=DEFS    83
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    18
        I/O GENERAL MACROS                                            SETFIL
  
                                        **        SETFIL - SET PARAMS IN FILE MANAGEMENT TABLES.                 FA=DEFS    86
                                        *                                                                        FA=DEFS    87
                                        *                                                                        FA=DEFS    88
                                        *         TO SET INITIAL PARAMETER VALUES IN FILE TABLES,                FA=DEFS    89
                                        *         SETFIL    FILE=FNAM,MODE=INIT,FWA=ADDR                         FA=DEFS    90
                                        *          OR                                                            FA=DEFS    91
                                        *         SETFIL    FILE=FNAM,MODE=INIT,LWA1=ADDR                        FA=DEFS    92
                                        *                                                                        FA=DEFS    93
                                        *         TO RESTORE FILE TABLES TO INITIAL (PASS 1) CONDITIONS,         FA=DEFS    94
                                        *         SETFIL    FILE=FNAM,MODE=RESET                                 FA=DEFS    95
                                        *                                                                        FA=DEFS    96
                                        *         ENTRY  *FNAM* = FILE NAME                                      FA=DEFS    97
                                        *                 MODE  = *INIT* OR *RESET*                              FA=DEFS    98
                                        *                *ADDR* = BUFFER FWA OR LWA+1, TO MATCH EQUIV PARAM      FA=DEFS    99
                                        *                                                                        FA=DEFS   100
                                        *         USES   X - 1, 2                                                FA=DEFS   101
                                        *                B - 2, 3                                                FA=DEFS   102
                                        *                                                                        FA=DEFS   103
                                        *         CALLS  FA=SET                                                  FA=DEFS   104
                                                                                                                 FA=DEFS   105
                                                                                                                 FA=DEFS   106
                                                  PURGMAC   SETFIL                                               FA=DEFS   107
                                                                                                                 FA=DEFS   108
                                         SETFIL   MACROE FILE,MODE,FWA,LWA1                                      FA=DEFS   109
                                                  LOCAL  CHECK                                                   FA=DEFS   110
                                         CHECK    SET    0                                                       FA=DEFS   111
                                                  IFC    NE, LWA1  ,1                                            FA=DEFS   112
                                         CHECK    SET    CHECK+1                                                 FA=DEFS   113
                                                  IFC    NE, FWA  ,1                                             FA=DEFS   114
                                         CHECK    SET    CHECK+2                                                 FA=DEFS   115
                                        *                            SET FILE ADDRESS.                           FA=DEFS   116
                                                  IFEQ   CP#RM,0,2                                               FA=DEFS   117
                                                  R=     X2,FILE                                                 FA=DEFS   118
                                                  SKIP   1                                                       FA=DEFS   119
                                                  R=     A2,FILE                                                 FA=DEFS   120
                                         .M       IFC    NE, MODE INIT                                           FA=DEFS   121
                                        *                            VALIDATE MODE PARAMETER.                    FA=DEFS   122
                                                  IFC    NE, MODE RESET ,1                                       FA=DEFS   123
                                                  ERR    (MODE) BAD MODE# "SEQUENCE"                             FA=DEFS   124
                                        *                            RESET MODE.                                 FA=DEFS   125
                                                  IFNE   CHECK,0,1                                               FA=DEFS   126
                                         7        ERR    MODE#RESET, FWA#/LWA1# IGNORED "SEQUENCE"               FA=DEFS   127
                                                  IFEQ   CP#RM,0,2                                               FA=DEFS   128
                                                  SA1    X2+I.CBSET                                              FA=DEFS   129
                                                  SKIP   1                                                       FA=DEFS   130
                                                  SA1    A2+I.HBSET                                              FA=DEFS   131
                                                  SB3    B0                                                      FA=DEFS   132
                                                  SB2    X1                                                      FA=DEFS   133
                                         .M       ELSE                                                           FA=DEFS   134
                                        *                            INITIALIZE MODE.                            FA=DEFS   135
                                                  IFGE   CHECK,2,5                                               FA=DEFS   136
                                                  IFGE   CHECK,3,1                                               FA=DEFS   137
                                         7        ERR    BOTH FWA# AND LWA1# SPECIFIED, LWA1# IGNORED "SEQUENCE" FA=DEFS   138
                                        *                            SET FWA.                                    FA=DEFS   139
                                                  R=     B2,FWA                                                  FA=DEFS   140
                                                  SB3    B0                                                      FA=DEFS   141
                                                  SKIP   5                                                       FA=DEFS   142
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    19
        I/O GENERAL MACROS                                            SETFIL
  
                                                  IFLE   CHECK,0,2                                               FA=DEFS   143
                                                  ERR    NO FWA#/LWA1# "SEQUENCE"                                FA=DEFS   144
                                                  SKIP   2                                                       FA=DEFS   145
                                        *                            SET LWA1.                                   FA=DEFS   146
                                                  R=     B3,LWA1                                                 FA=DEFS   147
                                                  SB2    B0                                                      FA=DEFS   148
                                         .M       ENDIF                                                          FA=DEFS   149
                                        *                            CALL PROCESSING SUBROUTINE.                 FA=DEFS   150
                                                  RJ     =XFA=SET                                                FA=DEFS   151
                                         SETFIL   ENDM                                                           FA=DEFS   152
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    20
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                         #RM      IFNE   CP#RM,0                                                 FA=DEFS   154
                                         BKSP     SPACE  4,8                                                     FA=DEFS   155
                                        **        BKSP - BACKSPACE FILE ONE RECORD.                              FA=DEFS   156
                                        *                                                                        FA=DEFS   157
                                        *                                                                        FA=DEFS   158
                                        *         BKSP      FILE                                                 FA=DEFS   159
                                        *                                                                        FA=DEFS   160
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   161
                                        *                                                                        FA=DEFS   162
                                        *         USES   X2, A2                                                  FA=DEFS   163
                                        *                                                                        FA=DEFS   164
                                        *         CALLS  SKIPBL                                                  FA=DEFS   165
                                                                                                                 FA=DEFS   166
                                                                                                                 FA=DEFS   167
                                                  PURGMAC   BKSP                                                 FA=DEFS   168
                                                                                                                 FA=DEFS   169
                                         BKSP     MACRO  F                                                       FA=DEFS   170
                                                  R=     A2,F                                                    FA=DEFS   171
                                                  SKIPBL X2,1                                                    FA=DEFS   172
                                         BKSP     ENDM                                                           FA=DEFS   173
                                         CLOSE    SPACE  4,8                                                     FA=DEFS   174
                                        **        CLOSE - CLOSE FILE.                                            FA=DEFS   175
                                        *                                                                        FA=DEFS   176
                                        *         CLOSES *FILE*, USING POSITIONING PARAMETER (CF) CURRENTLY      FA=DEFS   177
                                        *         IN THE FIT.                                                    FA=DEFS   178
                                        *                                                                        FA=DEFS   179
                                        *                                                                        FA=DEFS   180
                                        *         CLOSE     FILE                                                 FA=DEFS   181
                                        *                                                                        FA=DEFS   182
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   183
                                        *                                                                        FA=DEFS   184
                                        *         USES   X2, A2                                                  FA=DEFS   185
                                        *                                                                        FA=DEFS   186
                                        *         CALLS  FA=CLO                                                  FA=DEFS   187
                                                                                                                 FA=DEFS   188
                                                                                                                 FA=DEFS   189
                                                  PURGMAC   CLOSE                                                FA=DEFS   190
                                                                                                                 FA=DEFS   191
                                         CLOSE    MACRO  F                                                       FA=DEFS   192
                                                  R=     A2,F                                                    FA=DEFS   193
                                                  RJ     =XFA=CLO                                                FA=DEFS   194
                                         CLOSE    ENDM                                                           FA=DEFS   195
                                         OPEN     SPACE  4,8                                                     FA=DEFS   196
                                        **        OPEN - OPEN FILE.                                              FA=DEFS   197
                                        *                                                                        FA=DEFS   198
                                        *         OPENS *FILE*, USING PROCESSING DIRECTION (PD) AND POSITIONING  FA=DEFS   199
                                        *         (OF) PARAMETERS CURRENTLY IN THE FIT.                          FA=DEFS   200
                                        *                                                                        FA=DEFS   201
                                        *                                                                        FA=DEFS   202
                                        *         OPEN      FILE                                                 FA=DEFS   203
                                        *                                                                        FA=DEFS   204
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   205
                                        *                                                                        FA=DEFS   206
                                        *         USES   X2, A2                                                  FA=DEFS   207
                                        *                                                                        FA=DEFS   208
                                        *         CALLS  FA=OPE                                                  FA=DEFS   209
                                                                                                                 FA=DEFS   210
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    21
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                                                                                                 FA=DEFS   211
                                                  PURGMAC   OPEN                                                 FA=DEFS   212
                                                                                                                 FA=DEFS   213
                                         OPEN     MACRO  F                                                       FA=DEFS   214
                                                  R=     A2,F                                                    FA=DEFS   215
                                                  RJ     =XFA=OPE                                                FA=DEFS   216
                                         OPEN     ENDM                                                           FA=DEFS   217
                                         REWIND   SPACE  4,8                                                     FA=DEFS   218
                                        **        REWIND- REWIND A FILE/BUFFER.                                  FA=DEFS   219
                                        *                                                                        FA=DEFS   220
                                        *         THIS EXTENSION OF A NORMAL *REWIND* PREVENTS UNNECESSARY I/O   FA=DEFS   221
                                        *         TRANSFERS OF SMALL INTERNAL SCRATCH FILES BETWEEN CENTRAL      FA=DEFS   222
                                        *         MEMORY AND MASS STORAGE.                                       FA=DEFS   223
                                        *                                                                        FA=DEFS   224
                                        *                                                                        FA=DEFS   225
                                        *         REWIND    FILE,RECALL                                          FA=DEFS   226
                                        *                                                                        FA=DEFS   227
                                        *         ENTRY  *FILE*    = FILE NAME                                   FA=DEFS   228
                                        *                *RECALL*  = IGNORED; INCLUDED FOR CIO COMPATIBILITY     FA=DEFS   229
                                        *                                                                        FA=DEFS   230
                                        *         USES   X2, A2                                                  FA=DEFS   231
                                        *                                                                        FA=DEFS   232
                                        *         CALLS  FA=RWX                                                  FA=DEFS   233
                                                                                                                 FA=DEFS   234
                                                                                                                 FA=DEFS   235
                                                  PURGMAC   REWIND                                               FA=DEFS   236
                                                                                                                 FA=DEFS   237
                                         REWIND   MACRO  F                                                       FA=DEFS   238
                                                  R=     A2,F                                                    FA=DEFS   239
                                                  RJ     =XFA=RWX                                                FA=DEFS   240
                                         REWIND   ENDM                                                           FA=DEFS   241
                                         WRITEF   SPACE  4,8                                                     FA=DEFS   242
                                        **        WRITEF - WRITE END-OF-FILE/PARTITION ON FILE.                  FA=DEFS   243
                                        *                                                                        FA=DEFS   244
                                        *         WRITES END-OF-FILE/PARTITION ON *FILE*.  THE HOLDING BUFFER,   FA=DEFS   245
                                        *         IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-F.            FA=DEFS   246
                                        *                                                                        FA=DEFS   247
                                        *                                                                        FA=DEFS   248
                                        *         WRITEF    FILE                                                 FA=DEFS   249
                                        *                                                                        FA=DEFS   250
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   251
                                        *                                                                        FA=DEFS   252
                                        *         USES   X2, A2                                                  FA=DEFS   253
                                        *                                                                        FA=DEFS   254
                                        *         CALLS  FA=FLSH, RECORD MANAGER                                 FA=DEFS   255
                                                                                                                 FA=DEFS   256
                                                                                                                 FA=DEFS   257
                                                  PURGMAC   WRITEF                                               FA=DEFS   258
                                                                                                                 FA=DEFS   259
                                         WRITEF   MACRO  F                                                       FA=DEFS   260
                                                  R=     A2,F                                                    FA=DEFS   261
                                                  RJ     =XFA=EOF                                                FA=DEFS   262
                                         WRITEF   ENDM                                                           FA=DEFS   263
                                         WRITER   SPACE  4,8                                                     FA=DEFS   264
                                        **        WRITER - WRITE END-OF-RECORD/SECTION ON FILE.                  FA=DEFS   265
                                        *                                                                        FA=DEFS   266
                                        *         WRITES LEVEL 0 END-OF-RECORD/SECTION ON *FILE*.  THE HOLDING   FA=DEFS   267
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    22
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                        *         BUFFER, IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-R.    FA=DEFS   268
                                        *                                                                        FA=DEFS   269
                                        *                                                                        FA=DEFS   270
                                        *         WRITER    FILE                                                 FA=DEFS   271
                                        *                                                                        FA=DEFS   272
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   273
                                        *                                                                        FA=DEFS   274
                                        *         USES   X2, A2                                                  FA=DEFS   275
                                        *                                                                        FA=DEFS   276
                                        *         CALLS  FA=FLSH, RECORD MANAGER                                 FA=DEFS   277
                                                                                                                 FA=DEFS   278
                                                                                                                 FA=DEFS   279
                                                  PURGMAC   WRITER                                               FA=DEFS   280
                                                                                                                 FA=DEFS   281
                                         WRITER   MACRO  F                                                       FA=DEFS   282
                                                  R=     A2,F                                                    FA=DEFS   283
                                                  RJ     =XFA=EOR                                                FA=DEFS   284
                                         WRITER   ENDM                                                           FA=DEFS   285
                                         #RM      ENDIF                                                          FA=DEFS   286
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    23
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                         #RM      IFNE   CP#RM,0                                                 FA=DEFS   288
                                         READC    SPACE  4,8                                                     FA=DEFS   289
                                        **        READC - READ ONE CODED LINE IN -C- FORMAT.                     FA=DEFS   290
                                        *                                                                        FA=DEFS   291
                                        *                                                                        FA=DEFS   292
                                        *         READC     FILE,TO,WORDS                                        FA=DEFS   293
                                        *                                                                        FA=DEFS   294
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   295
                                        *                *TO*    = WSA ADDRESS                                   FA=DEFS   296
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   297
                                        *                                                                        FA=DEFS   298
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   299
                                        *                                                                        FA=DEFS   300
                                        *         CALLS  FA=RDC                                                  FA=DEFS   301
                                                                                                                 FA=DEFS   302
                                                                                                                 FA=DEFS   303
                                                  PURGMAC   READC                                                FA=DEFS   304
                                                                                                                 FA=DEFS   305
                                         READC    MACRO  F,S,N                                                   FA=DEFS   306
                                                  R=     B6,S                                                    FA=DEFS   307
                                                  R=     B7,N                                                    FA=DEFS   308
                                                  R=     A2,F                                                    FA=DEFS   309
                                                  RJ     =XFA=RDC                                                FA=DEFS   310
                                         READC    ENDM                                                           FA=DEFS   311
                                         READW    SPACE  4,8                                                     FA=DEFS   312
                                        **        READW - READ WORDS TO WORKING STORAGE AREA.                    FA=DEFS   313
                                        *                                                                        FA=DEFS   314
                                        *                                                                        FA=DEFS   315
                                        *         READW     FILE,TO,WORDS                                        FA=DEFS   316
                                        *                                                                        FA=DEFS   317
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   318
                                        *                *TO*    = WSA ADDRESS                                   FA=DEFS   319
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   320
                                        *                                                                        FA=DEFS   321
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   322
                                        *                                                                        FA=DEFS   323
                                        *         CALLS  FA=RDW                                                  FA=DEFS   324
                                                                                                                 FA=DEFS   325
                                                                                                                 FA=DEFS   326
                                                  PURGMAC   READW                                                FA=DEFS   327
                                                                                                                 FA=DEFS   328
                                         READW    MACRO  F,S,N                                                   FA=DEFS   329
                                                  R=     B6,S                                                    FA=DEFS   330
                                                  R=     B7,N                                                    FA=DEFS   331
                                                  R=     A2,F                                                    FA=DEFS   332
                                                  RJ     =XFA=RDW                                                FA=DEFS   333
                                         READW    ENDM                                                           FA=DEFS   334
                                         WRITEC   SPACE  4,8                                                     FA=DEFS   335
                                        **        WRITEC - WRITE ONE CODED LINE IN -C- FORMAT.                   FA=DEFS   336
                                        *                                                                        FA=DEFS   337
                                        *                                                                        FA=DEFS   338
                                        *         WRITEC    FILE,FROM,WORDS                                      FA=DEFS   339
                                        *                                                                        FA=DEFS   340
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   341
                                        *                *FROM*  = WSA ADDRESS                                   FA=DEFS   342
                                        *                *WORDS* = LINE LENGTH (WORDS).  IF ZERO OR OMITTED,     FA=DEFS   343
                                        *                            LENGTH WILL BE DETERMINED BY SCANNING TO    FA=DEFS   344
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    24
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                        *                            AN END-OF-LINE MARKER -- SLOWLY.            FA=DEFS   345
                                        *                                                                        FA=DEFS   346
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   347
                                        *                                                                        FA=DEFS   348
                                        *         CALLS  FA=WTC                                                  FA=DEFS   349
                                                                                                                 FA=DEFS   350
                                                                                                                 FA=DEFS   351
                                                  PURGMAC   WRITEC                                               FA=DEFS   352
                                                                                                                 FA=DEFS   353
                                         WRITEC   MACRO  F,S,N                                                   FA=DEFS   354
                                                  R=     B6,S                                                    FA=DEFS   355
                                                  IFC    NE, N  ,2                                               FA=DEFS   356
                                        *                            SET GIVEN LENGTH.                           FA=DEFS   357
                                                  R=     B7,N                                                    FA=DEFS   358
                                                  SKIP   1                                                       FA=DEFS   359
                                        *                            SET LENGTH OMITTED.                         FA=DEFS   360
                                                  SB7    B0                                                      FA=DEFS   361
                                                  R=     A2,F                                                    FA=DEFS   362
                                                  RJ     =XFA=WTC                                                FA=DEFS   363
                                         WRITEC   ENDM                                                           FA=DEFS   364
                                         WRITEW   SPACE  4,8                                                     FA=DEFS   365
                                        **        WRITEW - WRITE WORDS FROM WORKING STORAGE AREA.                FA=DEFS   366
                                        *                                                                        FA=DEFS   367
                                        *                                                                        FA=DEFS   368
                                        *         WRITEW    FILE,FROM,WORDS                                      FA=DEFS   369
                                        *                                                                        FA=DEFS   370
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   371
                                        *                *FROM*  = WSA ADDRESS                                   FA=DEFS   372
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   373
                                        *                                                                        FA=DEFS   374
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   375
                                        *                                                                        FA=DEFS   376
                                        *         CALLS  FA=WTW                                                  FA=DEFS   377
                                                                                                                 FA=DEFS   378
                                                                                                                 FA=DEFS   379
                                                  PURGMAC   WRITEW                                               FA=DEFS   380
                                                                                                                 FA=DEFS   381
                                         WRITEW   MACRO  F,S,N                                                   FA=DEFS   382
                                                  R=     B6,S                                                    FA=DEFS   383
                                                  R=     B7,N                                                    FA=DEFS   384
                                                  R=     A2,F                                                    FA=DEFS   385
                                                  RJ     =XFA=WTW                                                FA=DEFS   386
                                         WRITEW   ENDM                                                           FA=DEFS   387
                                                  SPACE  4                                                       FA=DEFS   388
                                         #RM      ENDIF                                                          FA=DEFS   389
                                         POPMAC    OPSYN  PURGMAC                                                F2950F4     6
                                         POPDEF    OPSYN  PURGDEF                                                F2950F4     7
                                                                                                                 F2950F4     8
                                                   PURGDEF  =A,Q                                                 F2950F4     9
                                                   PURGDEF  =A,A                                                 F2950F4    10
                                                   PURGDEF  =A,AQ                                                F2950F4    11
                                                   PURGDEF  =A,BQ                                                F2950F4    12
                                                   PURGDEF  =A,XQ                                                F2950F4    13
                                                   PURGDEF  =B,Q                                                 F2950F4    14
                                                   PURGDEF  =B,AQ                                                F2950F4    15
                                                   PURGDEF  =B,B                                                 F2950F4    16
                                                   PURGDEF  =B,BQ                                                F2950F4    17
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    25
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                                   PURGDEF  =B,XQ                                                F2950F4    18
                                                   PURGDEF  =X,Q                                                 F2950F4    19
                                                   PURGDEF  =X,AQ                                                F2950F4    20
                                                   PURGDEF  =X,BQ                                                F2950F4    21
                                                   PURGDEF  =X,X                                                 F2950F4    22
                                                   PURGDEF  =X,XQ                                                F2950F4    23
  
  
  
  
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    26
        SYS=SYM  -  OP SYSTEM INTERFACE SYMBOLS                       SYSTEM
  
                                        **        SYSTEM = SCOPE 3.4                                             TSTEXT     20
                                        *                  (BUT WITH CIO INSTEAD OF 6RM INTERFACE)               TSTEXT     21
                                                                                                                 TSTEXT     22
                                                                                                                 TSTEXT     23
                                         RUN      MICRO  1,,/"LPNAME"/                                           TSTEXT     24
                                         VERSION  MICRO  1,,/"VER"/                                              TSTEXT     25
                                1001     L.SBUF   EQU    1001B       STANDARD LENGTH BUFFER (SCOPE)              TSTEXT     26
                                         EXT      MICRO  1,, .       SUFFIX FOR STANDARD EXTERNALS               TSTEXT     27
                                         FILE     MICRO  1,, "C"     SUFFIX FOR FILE NAMES                       TSTEXT     28
                                                                                                                 TSTEXT     29
                                                                                                                 TSTEXT     30
                                                                                                                 TSTEXT     35
                                   6     CHAR     EQU    6           NUMBER OF BITS PER CHARACTER                TSTEXT     36
                                  73     P.       EQU    59          SIGN BIT POSITION (NOT SUBJECT TO CHANGE)   TSTEXT     37
                                         BLOWUP   MICRO  1,, *+4S15  OUT OF BOUNDS JUMP ADDRESS                  TSTEXT     38
  
  
  
  
                                        **        *CIO* REQUESTS                                                 TSTEXT     40
                                                                                                                 TSTEXT     41
                                  10     IO.READ  EQU    10B         BUFFERED READ                               TSTEXT     42
                                  14     IO.RITE  EQU    14B         BUFFERED WRITE                              TSTEXT     43
                                  24     IO.EOR   EQU    24B         WRITE END-OF-RECORD                         TSTEXT     44
                                  34     IO.EOF   EQU    34B         WRITE END-OF-FILE                           TSTEXT     45
                                  50     IO.REW   EQU    50B         REWIND FILE                                 TSTEXT     46
                                 170     IO.RETN  =      170B        RETURN FILE TO SYSTEM                       TSTEXT     47
                                 114     IO.EVICT EQU    114B        EVICT MASS STORAGE FILE                     TSTEXT     48
                                                                                                                 TSTEXT     49
                                         POPMAC   OPSYN  PURGMAC                                                 TSTEXT     50
                                         POPDEF   OPSYN  PURGDEF                                                 TSTEXT     51
                                                                                                                 TSTEXT     52
                                                  PURGDEF  =A,Q                                                  TSTEXT     53
                                                  PURGDEF  =A,A                                                  TSTEXT     54
                                                  PURGDEF  =A,AQ                                                 TSTEXT     55
                                                  PURGDEF  =A,BQ                                                 TSTEXT     56
                                                  PURGDEF  =A,XQ                                                 TSTEXT     57
                                                  PURGDEF  =B,Q                                                  TSTEXT     58
                                                  PURGDEF  =B,AQ                                                 TSTEXT     59
                                                  PURGDEF  =B,B                                                  TSTEXT     60
                                                  PURGDEF  =B,BQ                                                 TSTEXT     61
                                                  PURGDEF  =B,XQ                                                 TSTEXT     62
                                                  PURGDEF  =X,Q                                                  TSTEXT     63
                                                  PURGDEF  =X,AQ                                                 TSTEXT     64
                                                  PURGDEF  =X,BQ                                                 TSTEXT     65
                                                  PURGDEF  =X,X                                                  TSTEXT     66
                                                  PURGDEF  =X,XQ                                                 TSTEXT     67
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    27
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.
  
             0                                    CTEXT  COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.        COMAREG     2
  
  
  
  
                                        ***       COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.               COMAREG     4
                                        *                                                                        COMAREG     5
                                        *         R. H. GOODELL.     71/06/01.                                   COMAREG     6
                                        *                                                                        COMAREG     7
                                        *         CONTROL DATA  PROPRIETARY PRODUCT.                             COMAREG     8
                                        *         COPYRIGHT CONTROL DATA CORP. 1971.                             COMAREG     9
  
  
  
  
                                        ***              THE FOLLOWING SET OF  MACROS,  OPDEFS,  AND  CPOPS      COMAREG    11
                                        *         DEFINE PSEUDO MACHINE INSTRUCTIONS FOR SETTING A REGISTER      COMAREG    12
                                        *         TO  A  VALUE INVOLVING REGISTERS AND/OR CONSTANTS.  THESE      COMAREG    13
                                        *         INSTRUCTIONS GENERATE NO CODE AT ALL OR A 15-BIT  MACHINE      COMAREG    14
                                        *         INSTRUCTION WHENEVER POSSIBLE DEPENDING ON THE EXPRESSION      COMAREG    15
                                        *         VALUE  AND WHETHER *B1=1* IS DEFINED, WITHOUT MOST OF THE      COMAREG    16
                                        *         DEFICIENCIES OF THE R=  PSEUDO  INSTRUCTION  IN  COMPASS.      COMAREG    17
                                        *         EXAMPLES --                                                    COMAREG    18
                                        *                                                                        COMAREG    19
                                        *         COMPASS         R= FORM          NEW FORM        COMMENTS      COMAREG    20
                                        *                                                                        COMAREG    21
                                        *         SX1   1         R=   X1,1        =X1   1                       COMAREG    22
                                        *         SA1   EXP       R=   A1,EXP      =A1   EXP                     COMAREG    23
                                        *         SB4   B4+1      R=   B4,B4+1     =B4   B4+1      NOTE 1.       COMAREG    24
                                        *         SA6   A6+EXP    R=   A6,A6+EXP   =A6   A6+EXP    NOTE 2.       COMAREG    25
                                        *         SB.I  B.J       ---------        =B.I  B.J       NOTE 3.       COMAREG    26
                                        *         BX6   X4        ---------        =X6   X4        BOOLEAN.      COMAREG    27
                                        *                                                                        COMAREG    28
                                        *         NOTE 1.   R= GENERATES 30 BITS.  NEW IS 15 BITS IF B1=1.       COMAREG    29
                                        *         NOTE 2.   R= GENERATES 30 BITS.  NEW IS 15 BITS IF B1=1        COMAREG    30
                                        *                            AND (EXP) IS EVALUATABLE AND = +- 1.        COMAREG    31
                                        *         NOTE 3.   R= CANNOT HANDLE SYMBOLIC REGISTERS.  NEW FORM       COMAREG    32
                                        *                            GENERATES NO CODE IF  (I) = (J).            COMAREG    33
                                        *         * NOTE * THIS COMDECK WILL DISAPPEAR WHEN COMPASS 4.0 ARRIVES. COMAREG    34
                                                                                                                 COMAREG    35
                                                                                                                 COMAREG    36
                                 D_O              BASE   OCTAL                                                   COMAREG    37
  
  
  
  
                                        *         A-REGISTER SETS.                                               COMAREG    39
                                                                                                                 COMAREG    40
                                                                                                                 COMAREG    41
                                         =A       CPOP   0,560,100         =AI                                   COMAREG    42
                                                                                                                 COMAREG    43
                                         =A,Q     OPDEF  I,Q               =AI    K                              COMAREG    44
                                          '?REG#S2 A.I,(Q)                                                       COMAREG    45
                                          ENDM                                                                   COMAREG    46
                                                                                                                 COMAREG    47
                                         =A,A     OPDEF  I,J               =AI    AJ                             COMAREG    48
                                          IFNE I,J,1                                                             COMAREG    49
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    28
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              =A
  
                                          SA.I A.J                                                               COMAREG    50
                                          ENDM                                                                   COMAREG    51
                                                                                                                 COMAREG    52
                                         =A,AQ    OPDEF  I,J,Q             =AI    AJ+K                           COMAREG    53
                                          '?REG#S1 A.I,A.J,(Q)                                                   COMAREG    54
                                          ENDM                                                                   COMAREG    55
                                                                                                                 COMAREG    56
                                         =A,A+B   CPOP   0,540,132         =AI    AJ+BK                          COMAREG    57
                                         =A,A-B   CPOP   0,550,132         =AI    AJ-BK                          COMAREG    58
                                                                                                                 COMAREG    59
                                         =A,B     CPOP   0,560,120         =AI    BJ                             COMAREG    60
                                                                                                                 COMAREG    61
                                         =A,BQ    OPDEF  I,J,Q             =AI    BJ+K                           COMAREG    62
                                          '?REG#S1 A.I,B.J,(Q)                                                   COMAREG    63
                                          ENDM                                                                   COMAREG    64
                                                                                                                 COMAREG    65
                                         =A,B+A   CPOP   0,540,123         =AI    BK+AJ                          COMAREG    66
                                         =A,B+B   CPOP   0,560,132         =AI    BJ+BK                          COMAREG    67
                                         =A,B+X   CPOP   0,530,123         =AI    BK+XJ                          COMAREG    68
                                         =A,B-B   CPOP   0,570,132         =AI    BJ-BK                          COMAREG    69
                                         =A,-B    CPOP   0,570,102         =AI    -BK                            COMAREG    70
                                         =A,-B+A  CPOP   0,550,123         =AI    -BK+AJ                         COMAREG    71
                                         =A,-B+B  CPOP   0,570,123         =AI    -BK+BJ                         COMAREG    72
                                                                                                                 COMAREG    73
                                         =A,X     CPOP   0,530,120         =AI    XJ                             COMAREG    74
                                                                                                                 COMAREG    75
                                         =A,XQ    OPDEF  I,J,Q             =AI    XJ+K                           COMAREG    76
                                          '?REG#S0 A.I,X.J,(Q)                                                   COMAREG    77
                                          ENDM                                                                   COMAREG    78
                                                                                                                 COMAREG    79
                                         =A,X+B   CPOP   0,530,132         =AI    XJ+BK                          COMAREG    80
  
  
  
  
                                        *         B-REGISTER SETS.                                               COMAREG    82
                                                                                                                 COMAREG    83
                                                                                                                 COMAREG    84
                                         =B       CPOP   0,660,100         =BI                                   COMAREG    85
                                                                                                                 COMAREG    86
                                         =B,Q     OPDEF  I,Q               =BI    K                              COMAREG    87
                                          '?REG#S2 B.I,(Q)                                                       COMAREG    88
                                          ENDM                                                                   COMAREG    89
                                                                                                                 COMAREG    90
                                         =B,A     CPOP   0,640,120         =BI    AJ                             COMAREG    91
                                                                                                                 COMAREG    92
                                         =B,AQ    OPDEF  I,J,Q             =BI    AJ+K                           COMAREG    93
                                          '?REG#S1 B.I,A.J,(Q)                                                   COMAREG    94
                                          ENDM                                                                   COMAREG    95
                                                                                                                 COMAREG    96
                                         =B,A+B   CPOP   0,640,132         =BI    AJ+BK                          COMAREG    97
                                         =B,A-B   CPOP   0,650,132         =BI    AJ-BK                          COMAREG    98
                                                                                                                 COMAREG    99
                                         =B,B     OPDEF  I,J               =BI    BJ                             COMAREG   100
                                          IFNE I,J,1                                                             COMAREG   101
                                          SB.I B.J                                                               COMAREG   102
                                          ENDM                                                                   COMAREG   103
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    29
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              =B
  
                                                                                                                 COMAREG   104
                                         =B,BQ    OPDEF  I,J,Q             =BI    BJ+K                           COMAREG   105
                                          '?REG#S1 B.I,B.J,(Q)                                                   COMAREG   106
                                          ENDM                                                                   COMAREG   107
                                                                                                                 COMAREG   108
                                         =B,B+A   CPOP   0,640,123         =BI    BK+AJ                          COMAREG   109
                                         =B,B+B   CPOP   0,660,132         =BI    BJ+BK                          COMAREG   110
                                         =B,B-B   CPOP   0,670,132         =BI    BJ-BK                          COMAREG   111
                                         =B,B+X   CPOP   0,630,123         =BI    BK+XJ                          COMAREG   112
                                         =B,-B    CPOP   0,670,102         =BI    -BK                            COMAREG   113
                                         =B,-B+A  CPOP   0,650,123         =BI    -BK+AJ                         COMAREG   114
                                         =B,-B+B  CPOP   0,670,123         =BI    -BK+BJ                         COMAREG   115
                                                                                                                 COMAREG   116
                                         =B,X     CPOP   0,630,120         =BI    XJ                             COMAREG   117
                                                                                                                 COMAREG   118
                                         =B,XQ    OPDEF  I,J,Q             =BI    XJ+K                           COMAREG   119
                                          '?REG#S0 B.I,X.J,(Q)                                                   COMAREG   120
                                          ENDM                                                                   COMAREG   121
                                                                                                                 COMAREG   122
                                         =B,X+B   CPOP   0,630,132         =BI    XJ+BK                          COMAREG   123
  
  
  
  
                                        *         X-REGISTER SETS, PLUS SOME FAKES.                              COMAREG   125
                                                                                                                 COMAREG   126
                                                                                                                 COMAREG   127
                                         =X       CPOP   0,130,111         =XI                 BOOLEAN           COMAREG   128
                                                                                                                 COMAREG   129
                                         =X,Q     OPDEF  I,Q               =XI    K                              COMAREG   130
                                          '?REG#S2 X.I,(Q)                                                       COMAREG   131
                                          ENDM                                                                   COMAREG   132
                                                                                                                 COMAREG   133
                                         =X,A     CPOP   0,740,120         =XI    AJ                             COMAREG   134
                                                                                                                 COMAREG   135
                                         =X,AQ    OPDEF  I,J,Q             =XI    AJ+K                           COMAREG   136
                                          '?REG#S1 X.I,A.J,(Q)                                                   COMAREG   137
                                          ENDM                                                                   COMAREG   138
                                                                                                                 COMAREG   139
                                         =X,A+B   CPOP   0,740,132         =XI    AJ+BK                          COMAREG   140
                                         =X,A-B   CPOP   0,750,132         =XI    AJ-BK                          COMAREG   141
                                                                                                                 COMAREG   142
                                         =X,B     CPOP   0,760,120         =XI    BJ                             COMAREG   143
                                                                                                                 COMAREG   144
                                         =X,BQ    OPDEF  I,J,Q             =XI    BJ+K                           COMAREG   145
                                          '?REG#S1 X.I,B.J,(Q)                                                   COMAREG   146
                                          ENDM                                                                   COMAREG   147
                                                                                                                 COMAREG   148
                                         =X,B+A   CPOP   0,740,123         =XI    BK+AJ                          COMAREG   149
                                         =X,B+B   CPOP   0,760,132         =XI    BJ+BK                          COMAREG   150
                                         =X,B-B   CPOP   0,770,132         =XI    BJ-BK                          COMAREG   151
                                         =X,B+X   CPOP   0,730,123         =XI    BK+XJ                          COMAREG   152
                                         =X,-B    CPOP   0,770,102         =XI    -BK                            COMAREG   153
                                         =X,-B+A  CPOP   0,750,123         =XI    -BK+AJ                         COMAREG   154
                                         =X,-B+B  CPOP   0,770,123         =XI    -BK+BJ                         COMAREG   155
                                                                                                                 COMAREG   156
                                         =X,X     OPDEF  I,J               =XI    XJ          BOOLEAN            COMAREG   157
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    30
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              =X
  
                                          IFNE I,J,1                                                             COMAREG   158
                                          BX.I X.J                                                               COMAREG   159
                                          ENDM                                                                   COMAREG   160
                                                                                                                 COMAREG   161
                                         =X,XQ    OPDEF  I,J,Q             =XI    XJ+K                           COMAREG   162
                                          '?REG#S0 X.I,X.J,(Q)                                                   COMAREG   163
                                          ENDM                                                                   COMAREG   164
                                                                                                                 COMAREG   165
                                         =X,X+B   CPOP   0,730,132         =XI    XJ+BK                          COMAREG   166
                                         =X,X+X   CPOP   0,360,132         =XI    XJ+XK       LONG ADD           COMAREG   167
                                         =X,X-X   CPOP   0,370,132         =XI    XJ-XK       LONG ADD           COMAREG   168
                                         =X,-X    CPOP   0,140,122         =XI    -XK         BOOLEAN            COMAREG   169
                                         =X,-X+X  CPOP   0,370,123         =XI    -XK+XJ      LONG ADD           COMAREG   170
  
  
  
  
                                        *         INTERNAL MACROS USED BY SOME OF THE ABOVE.                     COMAREG   172
                                                                                                                 COMAREG   173
                                                                                                                 COMAREG   174
                                                  PURGMAC '?REG#S0,'?REG#S1,'?REG#S2                             COMAREG   175
                                                                                                                 COMAREG   176
                                         '?REG#S0 MACRO  I,J,Q       FOR VARIABLE FIELD SYNTAX = XQ              COMAREG   177
                                          IF DEF,B1=1+Q,8D                                                       COMAREG   178
                                        '?REG#QQ SET Q                                                           COMAREG   179
                                          IFEQ '?REG#QQ,1,2                                                      COMAREG   180
                                          S;A J+B1                                                               COMAREG   181
                                          SKIP 5                                                                 COMAREG   182
                                          IFEQ '?REG#QQ,,3                                                       COMAREG   183
                                          IFNE I,J,3                                                             COMAREG   184
                                          S;A J                                                                  COMAREG   185
                                          SKIP 1                                                                 COMAREG   186
                                          S;A J+Q                                                                COMAREG   187
                                          ENDM                                                                   COMAREG   188
                                                                                                                 COMAREG   189
                                         '?REG#S1 MACRO  I,J,Q       FOR VARIABLE FIELD SYNTAX = AQ OR BQ        COMAREG   190
                                          IF DEF,B1=1+Q,11D                                                      COMAREG   191
                                        '?REG#QQ SET Q                                                           COMAREG   192
                                          IFEQ '?REG#QQ,1,2                                                      COMAREG   193
                                          S;A J+B1                                                               COMAREG   194
                                          SKIP 8D                                                                COMAREG   195
                                          IFEQ '?REG#QQ,,3                                                       COMAREG   196
                                          IFNE I,J,6                                                             COMAREG   197
                                          S;A J                                                                  COMAREG   198
                                          SKIP 4                                                                 COMAREG   199
                                          IFEQ '?REG#QQ,-1,2                                                     COMAREG   200
                                          S;A J-B1                                                               COMAREG   201
                                          SKIP 1                                                                 COMAREG   202
                                          S;A J+Q                                                                COMAREG   203
                                          ENDM                                                                   COMAREG   204
                                                                                                                 COMAREG   205
                                         '?REG#S2 MACRO  I,Q         FOR VARIABLE FIELD SYNTAX = Q               COMAREG   206
                                          IF DEF,B1=1+Q,14D                                                      COMAREG   207
                                        '?REG#QQ SET Q                                                           COMAREG   208
                                          IFEQ '?REG#QQ,1,3                                                      COMAREG   209
                                          IFNE I,B1,1                                                            COMAREG   210
                                          S;A B1                                                                 COMAREG   211
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    31
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              '?REG#S0
  
                                          SKIP 10D                                                               COMAREG   212
                                          IFEQ '?REG#QQ,,2                                                       COMAREG   213
                                          S;A B0                                                                 COMAREG   214
                                          SKIP 7                                                                 COMAREG   215
                                          IFEQ '?REG#QQ,-1,2                                                     COMAREG   216
                                          S;A -B1                                                                COMAREG   217
                                          SKIP 4                                                                 COMAREG   218
                                          IFEQ '?REG#QQ,2,2                                                      COMAREG   219
                                          S;A B1+B1                                                              COMAREG   220
                                          SKIP 1                                                                 COMAREG   221
                                          S;A Q                                                                  COMAREG   222
                                          ENDM                                                                   COMAREG   223
  
  
  
  
                                 O_D              BASE   *                                                       COMAREG   225
                                                                                                                 COMAREG   226
                                                                                                                 COMAREG   227
                                         COMAREG  ENDX                                                           COMAREG   228
                                                                                                                 TSTEXT     69
                                                                                                                 TSTEXT     70
                                        **        MOVE - MOVE BLOCK OF CORE.                                     TSTEXT     71
                                        *                                                                        TSTEXT     72
                                        *         MOVE   COUNT,FROM,TO                                           TSTEXT     73
                                                                                                                 TSTEXT     74
                                                                                                                 TSTEXT     75
                                                  PURGMAC   MOVE                                                 FCCA511     5
                                         MOVE     MACRO  C,F,T                                                   TSTEXT     76
                                                  =X1    C                                                       TSTEXT     77
                                                  =X2    F                                                       TSTEXT     78
                                                  =X3    T                                                       TSTEXT     79
                                                  RJ     =XMVE=                                                  TSTEXT     80
                                         MOVE     ENDM                                                           TSTEXT     81
  
  
  
  
                                                                                                                 TSTEXT     83
                                         #OS      ENDIF                                                          TSTEXT     84
                                                                                                                 TSTEXT     85
  
  
  
  
  
  
  
  
                                         .1       ECHO   ,OP=(LE,LT,EQ,NE,GT,GE)                                 TSTEXT     88
                                                                                                                 TSTEXT     89
                                                  POPMAC OP_1                                                    TSTEXT     90
                                         OP_1     MACRO  B,Q                                                     TSTEXT     91
                                                  OP     B,B1,Q                                                  TSTEXT     92
                                                  ENDM                                                           TSTEXT     93
                                                                                                                 TSTEXT     94
                                         .1       ENDD                                                           TSTEXT     95
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    32
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.
  
                                                                                                                 TSTEXT     96
  
  
  
  
                                        **        ADDREF - ADD REFERENCE TO TABLE.                               TSTEXT     98
                                        *                                                                        TSTEXT     99
                                        *                                                                        TSTEXT    100
                                        *         ADDREF TAG,TYPE,RETURN                                         TSTEXT    101
                                        *         (TAG) = X-REGISTER CONTAINING THE TAG (X6)                     TSTEXT    102
                                        *                18/TAG,42/IGNORED                                       TSTEXT    103
                                        *                                                                        TSTEXT    104
                                        *         (TYPE) = TYPE OF REFERENCE (X1).                               TSTEXT    105
                                        *                1R FORMAT CHARACTERS.  CALL SHOULD USE ONE OF THE       TSTEXT    106
                                        *                CR.XXX SYMBOLS.                                         TSTEXT    107
                                        *                                                                        TSTEXT    108
                                        *         (RETURN) = RETURN ADDRESS (B7).                                TSTEXT    109
                                        *                *+1 IF OMITTED.                                         TSTEXT    110
                                                                                                                 TSTEXT    111
                                                                                                                 TSTEXT    112
                                         ADDREF   MACRO  TAG,TYPE,RETURN                                         TSTEXT    113
                                                  IFC    NE, TAG X6 ,1                                           TSTEXT    114
                                                  BX6    TAG                                                     TSTEXT    115
                                                  =X1    TYPE                                                    TSTEXT    116
                                                  IFC    NE, B7 RETURN ,1                                        TSTEXT    117
                                                  SB7    RETURN  *+2-*P/60D                                      TSTEXT    118
                                                  EQ     =XERT                                                   TSTEXT    119
                                         ADDREF   ENDM                                                           TSTEXT    120
  
  
  
  
                                        **        ADSXX- ADD ENTRY TO A HASHED TABLE.                            TSTEXT    122
                                        *                                                                        TSTEXT    123
                                        *         ADSYM  TS.SYM      TO ADD A *SYMBOL*                           TSTEXT    124
                                        *         ADSTN  TS.STN      TO ADD A *STATEMENT NUMBER*                 TSTEXT    125
                                        *                                                                        TSTEXT    126
                                        *         ENTRY  (X6) = 48/[SYMBOL TO ENTER], 12/0                       TSTEXT    127
                                        *                (X7) = 18/0, 42/[SECOND WORD OF ENTRY]                  TSTEXT    128
                                        *                (TABLNAM) = TS.SYM  OR TS.STAT                          TSTEXT    129
                                        *         CALLS  ESY IF *SYMBOL* CALL.                                   TSTEXT    130
                                        *                ESN IF *STATEMENT NUMBER* CALL.                         TSTEXT    131
                                                                                                                 TSTEXT    132
                                                                                                                 TSTEXT    133
                                         ADSYM    MACRO  TABL                                                    TSTEXT    134
                                                  =A1    TABL                                                    TSTEXT    135
                                                  RJ     =XESY                                                   TSTEXT    136
                                         ADSYM    ENDM                                                           TSTEXT    137
                                                                                                                 TSTEXT    138
                                                                                                                 TSTEXT    139
                                         ADSTN    MACRO  TABL                                                    TSTEXT    140
                                                  =A1    TABL                                                    TSTEXT    141
                                                  RJ     =XESN                                                   TSTEXT    142
                                         ADSTN    ENDM                                                           TSTEXT    143
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    33
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              ADDWD 
  
                                        **        ADDWD- ADD WORD TO MANAGED TABLE                               TSTEXT    145
                                        *                                                                        TSTEXT    146
                                        *         ADDWD  TNAM                                                    TSTEXT    147
                                                                                                                 TSTEXT    148
                                                                                                                 TSTEXT    149
                                         ADDWD    MACRO  TNAM                                                    TSTEXT    150
                                                  =A1    TNAM                                                    TSTEXT    151
                                                  RJ     =XADW                                                   TSTEXT    152
                                         ADDWD    ENDM                                                           TSTEXT    153
  
  
  
  
                                        **        ALLOC - ALLOCATE ROOM FOR TABLE.                               TSTEXT    155
                                        *                                                                        TSTEXT    156
                                        *                                                                        TSTEXT    157
                                        *         ALLOC  TNAM,ROOM         SCM TABLE                             TSTEXT    158
                                        *         ALLOX  TNAM,ROOM         LCM TABLE                             TSTEXT    159
                                        *                                                                        TSTEXT    160
                                        *         *TNAM* _ ORIGIN WORD OF TABLE TO BE ALLOCATED.                 TSTEXT    161
                                        *         *ROOM* = NUMBER OF WORDS TO EXPAND (OR SHRINK, IF NEGATIVE).   TSTEXT    162
                                                                                                                 TSTEXT    163
                                                                                                                 TSTEXT    164
                                         ALLOC    MACRO  T,R                                                     TSTEXT    165
                                                  =A1    T                                                       TSTEXT    166
                                                  =X0    R                                                       TSTEXT    167
                                                  RJ     =XALC                                                   TSTEXT    168
                                         ALLOC    ENDM                                                           TSTEXT    169
                                                                                                                 TSTEXT    170
                                         ALLOX    MACRO  T,R                                                     TSTEXT    171
                                                  =A1    T                                                       TSTEXT    172
                                                  =X0    R                                                       TSTEXT    173
                                                  RJ     =XALE                                                   TSTEXT    174
                                         ALLOX    ENDM                                                           TSTEXT    175
  
  
  
  
                                        **        ANSI - MACRO TO PROCESS *ANSI* DIAGNOSTICS.                    TSTEXT    177
                                        *                                                                        TSTEXT    178
                                        *         ANSI   ARG                                                     TSTEXT    179
                                        *                                                                        TSTEXT    180
                                        *         *ARG*  = ADDRESS OF ERROR.                                     TSTEXT    181
                                                                                                                 TSTEXT    182
                                                                                                                 TSTEXT    183
                                         ANSI     MACRO  ARG                                                     TSTEXT    184
                                                  =B7    ARG                                                     TSTEXT    185
                                                  RJ     =XANSI=                                                 TSTEXT    186
                                         ANSI     ENDM                                                           TSTEXT    187
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    34
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              BITMIC
  
                                        **        BITMIC - MACRO TO GENERATE BIT MASKS FOR CHARACTER STRINGS     TSTEXT    189
                                        *                                                                        TSTEXT    190
                                        * MIKE    BITMIC (BITS),OFF                                              TSTEXT    191
                                        * MIKE    LETMIC (LETS),OFF             (ALTERNATE FORM)                 TSTEXT    192
                                        *                                                                        TSTEXT    193
                                        *         *MIKE* = THE NAME OF THE MICRO TO BE GENERATED.                TSTEXT    194
                                        *         *BITS* = (BIT1,BIT2,...,BITN)                                  TSTEXT    195
                                        *                WHERE EACH *BITN* IS A VALUE OF A BIT THAT IS TO BE SET TSTEXT    196
                                        *         *LETS* = A CHARACTER STRING, (ABCD...N) IMPLIES THAT           TSTEXT    197
                                        *                THE BIT VALUES ARE (1RA,1RB,1RC,...,1RN).               TSTEXT    198
                                        *                THIS ALTERNATE FORM IS MERELY A CONVENIENCE ITEM.       TSTEXT    199
                                        *         *OFF*  = OFFSET, IF OTHER THAN 59.                             TSTEXT    200
                                        *                                                                        TSTEXT    201
                                        *         GENERATES A MICRO WHICH IS A 20 OCTAL DIGIT INTEGER (WITH      TSTEXT    202
                                        *                THE *B* SUFFIX PRESENT) WHICH REPRESENTS THE SUM OF     TSTEXT    203
                                        *                    ---     2**(OFF-BIT(N))     ---                     TSTEXT    204
                                        *                TAKEN OVER ALL *N* PARAMETERS.                          TSTEXT    205
                                        *                *OFF* IS = 59 UNLESS EXPLICITLY MENTIONED.              TSTEXT    206
                                        *                                                                        TSTEXT    207
                                        *         USES   (AS SCRATCH SYMBOLS)  A B C D E F G                     TSTEXT    208
                                                                                                                 TSTEXT    209
                                                                                                                 TSTEXT    210
                                                  MACRO  BITMIC,LOC,BITS,OFF                                     TSTEXT    211
                                         C        OCTMIC ,10D                                                    TSTEXT    212
                                         D        OCTMIC ,10D                                                    TSTEXT    213
                                         F        SET    OFF 59D                                                 TSTEXT    214
                                                  IRP    BITS                                                    TSTEXT    215
                                        ..2       IFLE   F-BITS,29                                               TSTEXT    216
                                         E        DECMIC F-BITS,2                                                TSTEXT    217
                                         C        OCTMIC 1S"E"+"C"B,10D                                          TSTEXT    218
                                        ..2       ELSE                                                           TSTEXT    219
                                         E        DECMIC F-30-BITS,2                                             TSTEXT    220
                                         D        OCTMIC 1S"E"+"D"B,10D                                          TSTEXT    221
                                        ..2       ENDIF                                                          TSTEXT    222
                                                  IRP                                                            TSTEXT    223
                                         LOC      MICRO  1,, "D""C"B                                             TSTEXT    224
                                         BITMIC   ENDM                                                           TSTEXT    225
                                                                                                                 TSTEXT    226
                                                                                                                 TSTEXT    227
                                                  MACRO  LETMIC,LOC,BITS,OFF                                     TSTEXT    228
                                         A        SET    0                                                       TSTEXT    229
                                         B        MICRO  1,,^_BITS_^                                             TSTEXT    230
                                         C        OCTMIC ,10D                                                    TSTEXT    231
                                         D        OCTMIC ,10D                                                    TSTEXT    232
                                         F        SET    OFF 59D                                                 TSTEXT    233
                                         G        MICCNT B                                                       TSTEXT    234
                                        .1        DUP    G                                                       TSTEXT    235
                                         A        SET    A+1                                                     TSTEXT    236
                                         B        MICRO  A,1,^_BITS_^                                            TSTEXT    237
                                        ..2       IFLE   F-1R"B",29                                              TSTEXT    238
                                         E        DECMIC F-1R"B",2                                               TSTEXT    239
                                         C        OCTMIC 1S"E"+"C"B,10D                                          TSTEXT    240
                                        ..2       ELSE                                                           TSTEXT    241
                                         E        DECMIC F-30-1R"B",2                                            TSTEXT    242
                                         D        OCTMIC 1S"E"+"D"B,10D                                          TSTEXT    243
                                        ..2       ENDIF                                                          TSTEXT    244
                                        .1        ENDD                                                           TSTEXT    245
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    35
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              BITMIC
  
                                         LOC      MICRO  1,, "D""C"B                                             TSTEXT    246
                                         LETMIC   ENDM                                                           TSTEXT    247
  
  
  
  
                                        **        BXQ -  CONVIENCE MACRO TO ZERO AN *X* REGISTER                 TSTEXT    249
                                        *                (ON THE 6400, BXI XI-XI IS FASTER THAN MXI 00)          TSTEXT    250
                                                                                                                 TSTEXT    251
                                                                                                                 TSTEXT    252
                                         BXQ      OPDEF  I,Q                                                     TSTEXT    253
                                                  IFNE   Q,0,1                                                   TSTEXT    254
                                                  ERR    BXQ  -  Q NOT ZERO                                      TSTEXT    255
                                                  IFMI   Q,2                                                     TSTEXT    256
                                                  BX.I   -X.I-X.I                                                TSTEXT    257
                                                  SKIP   1                                                       TSTEXT    258
                                                  BX.I   X.I-X.I                                                 TSTEXT    259
                                         BXQ      ENDM                                                           TSTEXT    260
  
  
  
  
                                        **        CLAS= -MACRO TO LOAD "CLASS" BITS INTO A REGISTER.             TSTEXT    262
                                                                                                                 TSTEXT    263
                                                                                                                 TSTEXT    264
                                         CLAS=    MACRO  REG,BITS                                                TSTEXT    265
                                         A        SET    0                                                       TSTEXT    266
                                                  IRP    BITS                                                    TSTEXT    267
                                         A        SET    A+M.BITS                                                TSTEXT    268
                                                  IRP                                                            TSTEXT    269
                                                  R=     REG,A                                                   TSTEXT    270
                                         CLAS=    ENDM                                                           TSTEXT    271
  
  
  
  
                                        **        CLEAR - MACRO FOR SEQUENCES OF PRESETS.                        TSTEXT    273
                                                                                                                 TSTEXT    274
                                                                                                                 TSTEXT    275
                                         CLEAR    MACRO  CELL                                                    TSTEXT    276
                                         A        SET    6+7-A                                                   TSTEXT    277
                                        .1        IF     DEF,CELL                                                TSTEXT    278
                                         .2       IFEQ   C,CELL-1                                                TSTEXT    279
                                         B        SET    6+7-A                                                   TSTEXT    280
                                                  SA.A   A.B+B1                                                  TSTEXT    281
                                         .2       ELSE                                                           TSTEXT    282
                                                  SA.A   CELL                                                    TSTEXT    283
                                         .2       ENDIF                                                          TSTEXT    284
                                         C        SET    CELL                                                    TSTEXT    285
                                        .1        ELSE                                                           TSTEXT    286
                                         C        SET    0                                                       TSTEXT    287
                                                  SA.A   CELL                                                    TSTEXT    288
                                        .1        ENDIF                                                          TSTEXT    289
                                         CLEAR    ENDM                                                           TSTEXT    290
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    36
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              CLONG 
  
                                        **        CLONG - MACRO TO COMPILE 30-BIT INSTRUCTIONS                   TSTEXT    292
                                        *                                                                        TSTEXT    293
                                        *         CLONG  XR,INST                                                 TSTEXT    294
                                                                                                                 TSTEXT    295
                                                                                                                 TSTEXT    296
                                         CLONG    MACRO  XR,INST                                                 TSTEXT    297
                                                  =X7    INST                                                    TSTEXT    298
                                                  L_XR   P.LTAG+L.LI12                                           TSTEXT    299
                                                  BX7    X7+XR                                                   TSTEXT    300
                                                  LX7    -L.LI12                                                 TSTEXT    301
                                                  WCODE  X7                                                      TSTEXT    302
                                         CLONG    ENDM                                                           TSTEXT    303
  
  
  
  
                                        **        COMP - COMPILE 15 BIT INSTRUCTION                              TSTEXT    305
                                        *                                                                        TSTEXT    306
                                        *         COMP   REG,INST                                                TSTEXT    307
                                        *                                                                        TSTEXT    308
                                        *         *REG*  = B OR X REGISTER TO BE MERGED WITH *INST*              TSTEXT    309
                                        *         *INST* = TYPE OF INSTRUCTION TO COMPILE                        TSTEXT    310
                                        *                  (MAY BE 12, 15, OR 18 BITS LONG)                      TSTEXT    311
                                                                                                                 TSTEXT    312
                                                                                                                 TSTEXT    313
                                         COMP     MACRO  BR,CON                                                  TSTEXT    314
                                         A        MICRO  1,5,B_CON_B                                             TSTEXT    315
                                         L."A"    MAC=REF "A"B                                                   TSTEXT    316
                                                  SX7    BR+CON                                                  TSTEXT    317
                                        .1        IFLT   CON,7777B                                               TSTEXT    318
                                                  LX7    48                                                      TSTEXT    319
                                        .1        ELSE                                                           TSTEXT    320
                                         .2       IFLT   CON,77777B                                              TSTEXT    321
                                                  LX7    45                                                      TSTEXT    322
                                         .2       ELSE                                                           TSTEXT    323
                                                  LX7    42                                                      TSTEXT    324
                                         .2       ENDIF                                                          TSTEXT    325
                                        .1        ENDIF                                                          TSTEXT    326
                                                  WCODE  X7                                                      TSTEXT    327
                                         COMP     ENDM                                                           TSTEXT    328
  
  
  
  
                                        **        DEFINE - MACRO USED FOR BIT POSITIONS AND LENGTH               TSTEXT    330
                                        *         OF FIELDS USED IN COMPILER TABLES AND ENTRYS                   TSTEXT    331
                                        *                                                                        TSTEXT    332
                                        * SYM     DEFINE LOW,LEN                                                 TSTEXT    333
                                        *                                                                        TSTEXT    334
                                        *         *SYM*  = NAME OF FIELD                                         TSTEXT    335
                                        *         *LOW*  = BIT NUMBER OF LOW-ORDER POSITION OF FIELD             TSTEXT    336
                                        *         *LEN*  = LENGTH OF FIELD (IN BITS), OR EMPTY FOR A SINGLE BIT  TSTEXT    337
                                                                                                                 TSTEXT    338
                                                                                                                 TSTEXT    339
                                                  MACRO  DEFINE,SYM,LOW,LEN                                      TSTEXT    340
                                         P.SYM    EQU    LOW         LOW-ORDER BIT POSITION OF FIELD             TSTEXT    341
                                        .1        IFC    EQ,//LEN/                                               TSTEXT    342
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    37
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              DEFINE
  
                                         .2       IFLT   LOW,20                                                  TSTEXT    343
                                         A        DECMIC LOW                                                     TSTEXT    344
                                         M.SYM    EQU    1S_"A"           = 2**"A"  (LOW)                        TSTEXT    345
                                         .2       ENDIF                                                          TSTEXT    346
                                        .1        ELSE                                                           TSTEXT    347
                                         L.SYM    EQU    LEN         LENGTH OF FIELD                             TSTEXT    348
                                        .1        ENDIF                                                          TSTEXT    349
                                         DEFINE   ENDM                                                           TSTEXT    350
  
  
  
  
  
  
  
  
                                        **        IFBIT- MACRO TO TEST A BIT WHICH HAS A P.XXX DEFINITION.       TSTEXT    353
                                        *                                                                        TSTEXT    354
                                        *         IFBIT  XN,WHICH/OFFSET,WHERE                                   TSTEXT    355
                                        *                                                                        TSTEXT    356
                                        *         JUMPS TO "WHERE" IF BIT 2**"WHICH" IS ON (=1), UNLESS "WHICH"  TSTEXT    357
                                        *         IS PRECEEDED BY A MINUS WILL JUMP IF OFF (=0).                 TSTEXT    358
                                        *         BIT TO BE TESTED IS IN "XN" AND HAS BEEN SHIFTED (CIRCULARLY)  TSTEXT    359
                                        *         UNTIL BIT 2**(P."OFFSET") IS IN THE SIGN BIT POSITION.  THE    TSTEXT    360
                                        *         "OFFSET" PARAMETER IS, OF COURSE, OMITTED IF "XN" IS IN        TSTEXT    361
                                        *         NOMINAL POSITION.                                              TSTEXT    362
                                        *                                                                        TSTEXT    363
                                        *         EXAMPLES:                                                      TSTEXT    364
                                        *                                                                        TSTEXT    365
                                        *         1.     IFBIT  X5,REAL,HEXX             EXIT IF TYPE REAL       TSTEXT    366
                                        *                                                                        TSTEXT    367
                                        *         2.     IFBIT  X3,-LONG,ATS             IF SINGLE-WORD ELEMENT  TSTEXT    368
                                        *                                                                        TSTEXT    369
                                        *         3.     IFBIT  X6,-COMM,GLK             IF NOT IN COMMON        TSTEXT    370
                                        *                IFBIT  X6,INT/COMM,GLL          IF TYPE INTEGER         TSTEXT    371
                                        *                LX6    P.INT+1                  RESTORE X6              TSTEXT    372
                                                                                                                 TSTEXT    373
                                                                                                                 TSTEXT    374
                                         IFBIT    MACRO  XN,WHICH,WHERE                                          TSTEXT    375
                                                  SBIT   XN,WHICH                                                TSTEXT    376
                                        .1        IFC    NE,,WHERE,,                                             TSTEXT    377
                                         E        MICRO  2*B,2, *MIPL                                            TSTEXT    378
                                                  "E"    XN,WHERE                                                TSTEXT    379
                                        .1        ENDIF                                                          TSTEXT    380
                                         IFBIT    ENDM                                                           TSTEXT    381
  
  
  
  
                                        **        JPQ -  REDEFINE *JP* AS A *FAST JUMP* (04)                     TSTEXT    383
                                                                                                                 TSTEXT    384
                                                                                                                 TSTEXT    385
                                         JPQ      CPSYN  EQQ                                                     TSTEXT    386
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    38
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              MOVE
  
                                        **        MVE -  MOVE BLOCK OF CORE                                      TSTEXT    388
                                        *                                                                        TSTEXT    389
                                        *         MVE    COUNT,FROM,TO                                           TSTEXT    390
                                                                                                                 TSTEXT    391
                                                                                                                 TSTEXT    392
                                         MVE      MACRO  C,F,T                                                   TSTEXT    393
                                                  =X1    C                                                       TSTEXT    394
                                                  =X2    F                                                       TSTEXT    395
                                                  =X3    T                                                       TSTEXT    396
                                                  RJ     =XMVE                                                   TSTEXT    397
                                         MVE      ENDM                                                           TSTEXT    398
  
  
  
  
                                        **        PIA -  MACRO TO CONVERT INSTRUCTION ADDRESS FOR LISTING.       TSTEXT    425
                                        *                                                                        TSTEXT    426
                                        *         PIA    FROM,TO                                                 TSTEXT    427
                                        *                                                                        TSTEXT    428
                                        *         FROM   = ADDRESS OF VALUE TO BE CONVERTED.                     TSTEXT    429
                                        *                  <SA1 FROM>                                            TSTEXT    430
                                        *         TO     = ADDRESS OF CELL TO RECEIVE RESULT                     TSTEXT    431
                                        *                  <SA6 TO>                                              TSTEXT    432
                                        *         ENTRY  X1 = VALUE, @ 2**17-1                                   TSTEXT    433
                                        *         EXIT   X6 = DPC CONVERSION, SUITABLE FOR LISTING, LEADING      TSTEXT    434
                                        *                     ZEROES SUPPRESSED,                                 TSTEXT    435
                                        *                     FORMAT  " 123456 - "                               TSTEXT    436
                                        *         CALLS PIA (Q.V.)                                               TSTEXT    437
                                                                                                                 TSTEXT    438
                                                                                                                 TSTEXT    439
                                         PIA      MACRO  F,T                                                     TSTEXT    440
                                                  IFC    NE,**F*,1                                               TSTEXT    441
                                                  SA1    F                                                       TSTEXT    442
                                                  RJ     =XCOD                                                   TSTEXT    443
                                                  IFC    NE,**T*,1                                               TSTEXT    444
                                                  SA6    T                                                       TSTEXT    445
                                         PIA      ENDM                                                           TSTEXT    446
  
  
  
  
                                        **        PLINE- PRINT CODED LINE ON OUTPUT FILE.                        TSTEXT    448
                                        *                                                                        TSTEXT    449
                                        *         PLINE  ADDR,L,N                                                FEAT126A   11
                                        *                                                                        TSTEXT    451
                                        *         *ADDR* = FWA OF LINE IN *C* FORMAT.                            TSTEXT    452
                                        *         *L*    = NUMBER OF WORDS TO BE PRINTED                         FEAT126A   12
                                        *         *N*    = NUMBER OF BLANK LINES BEFORE LINE.                    TSTEXT    453
                                        *                                                                        TSTEXT    454
                                        *         CALLS  WBL, WOF.                                               TSTEXT    455
                                                                                                                 TSTEXT    456
                                                                                                                 TSTEXT    457
                                         PLINE    MACRO  ADDR,L,N                                                FEAT126A   13
                                                  =X1    ADDR                                                    TSTEXT    459
                                                  IFC    NE,=L==,2                                               FEAT126A   14
                                                  =X2    L                                                       FEAT126A   15
                                                  SKIP   1                                                       FEAT126A   16
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    39
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              PLINE 
  
                                                  SX2    B0                                                      FEAT126A   17
                                                  IFC    NE,=N==,3                                               TSTEXT    460
                                                  =X6    N                                                       TSTEXT    461
                                                  RJ     =XWBL                                                   TSTEXT    462
                                                  SKIP   1                                                       TSTEXT    463
                                                  RJ     =XWOF                                                   TSTEXT    464
                                         PLINE    ENDM                                                           TSTEXT    465
  
  
  
  
                                        **        RMT= - MACRO TO FORCE MICRO EVALUATION FOR REMOTES.            TSTEXT    467
                                        *                                                                        TSTEXT    468
                                        * BLOCK   RMT=   (S)                                                     TSTEXT    469
                                        *                                                                        TSTEXT    470
                                        *         *BLOCK* IS THE RMT BLOCK LABEL, IF ANY.                        TSTEXT    471
                                        *         (S) IS THE STATEMENT TO BE ENTERED INTO THAT RMT BLOCK.        TSTEXT    472
                                                                                                                 TSTEXT    473
                                                                                                                 TSTEXT    474
                                                  MACRO  RMT=,BLK,S                                              TSTEXT    475
                                         BLK      RMT                                                            TSTEXT    476
                                         S                                                                       TSTEXT    477
                                         BLK      RMT                                                            TSTEXT    478
                                         RMT=     ENDM                                                           TSTEXT    479
  
  
  
  
                                        **        RPVDEF - DEFINE FWA OF ROUTINE FOR REPRIEVE UTILITY.           TSTEXT    481
                                        *                                                                        TSTEXT    482
                                        *         DEFINES THE FIRST WORD ADDRESS OF A ROUTINE AND DECLARES       TSTEXT    483
                                        *         IT AS AN ENTRY POINT, FOR FORMING THE NAME/ADDRESS TABLES      TSTEXT    484
                                        *         USED BY THE UTILITY ROUTINE *RPV* (LOCATED IN *TABLES*).       TSTEXT    485
                                        *         FOR PROPER OPERATION, THIS MACRO MUST BE CALLED AT THE         TSTEXT    486
                                        *         BEGINNING OF EACH ROUTINE, BEFORE ANY OTHER INSTRUCTION OR     TSTEXT    487
                                        *         PSEUDO-OP THAT WOULD CAUSE *COMPASS-S* LOCATION COUNTER TO BE  TSTEXT    488
                                        *         ADVANCED.                                                      TSTEXT    489
                                        *                                                                        TSTEXT    490
                                        *                                                                        TSTEXT    491
                                        *  *TAG*  RPVDEF                                                         TSTEXT    492
                                        *                                                                        TSTEXT    493
                                        *         ENTRY  *TAG* = SYMBOLIC NAME OF ROUTINE FWA.                   TSTEXT    494
                                                                                                                 TSTEXT    495
                                                                                                                 TSTEXT    496
                                                  PURGMAC   RPVDEF                                               TSTEXT    497
                                                                                                                 TSTEXT    498
                                         RPRV     IFEQ   TEST                                                    TSTEXT    499
                                                                                                                 TSTEXT    500
                                         RPVDEF   OPSYN  NIL                                                     TSTEXT    501
                                                                                                                 TSTEXT    502
                                         RPRV     ELSE                                                           TSTEXT    503
                                                                                                                 TSTEXT    504
                                                  MACRO  RPVDEF,T                                                TSTEXT    505
                                                  ENTRY  T                                                       TSTEXT    506
                                         T        BSS    0                                                       TSTEXT    507
                                         RPVDEF   ENDM                                                           TSTEXT    508
                                                                                                                 TSTEXT    509
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    40
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              RPVDEF
  
                                         RPRV     ENDIF                                                          TSTEXT    510
  
  
  
  
                                        **        SBIT - MACRO TO SHIFT A BIT INTO SIGN POSITION.                TSTEXT    512
                                        *                                                                        TSTEXT    513
                                        *         SBIT   XN,WHICH/OFFSET                                         TSTEXT    514
                                        *                                                                        TSTEXT    515
                                        *         SHIFTS *XN* LEFT CIRCULAR UNTIL BIT 2**P.WHICH IS IN SIGN BIT  TSTEXT    516
                                        *                POSITION.  *WHICH* MAY BE PRECEDED BY A MINUS SIGN.     TSTEXT    517
                                        *                IF THE REGISTER HAS ALREADY BEEN SHIFTED, THEN          TSTEXT    518
                                        *                BIT 2**P.OFFSET IS THE BIT NOW AT 2**59.                TSTEXT    519
                                        *                                                                        TSTEXT    520
                                        *         TO RESTORE A REGISTER AFTER USING SBIT, DO A                   TSTEXT    521
                                        *         --     LXN    P.WHICH+1     --                                 TSTEXT    522
                                        *                                                                        TSTEXT    523
                                        *         OF COURSE, THE MACRO MAY BE USED TO POSITION TO ANY POSITION,  TSTEXT    524
                                        *                (NOT JUST 2**59).  TO POSITION TO BIT *P.OTHER*,        TSTEXT    525
                                        *         --     SBIT   XN,WHICH/OFFSET+A    --,                         TSTEXT    526
                                        *                            WHERE  *A* =  MOD (P.OTHER+1, 60).          TSTEXT    527
                                        *                IN THIS CASE, HOWEVER, THE CODER MUST INSURE THAT THE   TSTEXT    528
                                        *                FINAL SHIFT COUNT IS IN THE RANGE COMPASS WILL ASSEMBLE TSTEXT    529
                                        *                PROPERLY (I.E...  -60 .LE. COUNT .LE. 60).              TSTEXT    530
                                        *                                                                        TSTEXT    531
                                        *         IF THE FINAL SHIFT COUNT IS ZERO (AND PREVIOUSLY DEFINED),     TSTEXT    532
                                        *                NO INSTRUCTION WILL BE GENERATED.                       TSTEXT    533
                                        *                                                                        TSTEXT    534
                                        *         NOTE THAT *IFBIT* MAKES ASSUMPTIONS ABOUT SOME OF THE SCRATCH  TSTEXT    535
                                        *                SYMBOLS USED BY *SBIT* -- USE CAUTION.                  TSTEXT    536
                                                                                                                 TSTEXT    537
                                                                                                                 TSTEXT    538
                                         SBIT     MACRO  XN,WHICH                                                TSTEXT    539
                                         A        MICRO  1,1, WHICH                                              TSTEXT    540
                                         B        SET    1                                                       TSTEXT    541
                                                  IFC    EQ, - "A" ,1                                            TSTEXT    542
                                         B        SET    2                                                       TSTEXT    543
                                         C        MICRO  B,,/WHICH/                                              TSTEXT    544
                                         D        MICCNT C                                                       TSTEXT    545
                                         E        MICRO  B+D+1,, WHICH                                           TSTEXT    546
                                         .2       IF     DEF,P."E"-P."C"                                         TSTEXT    547
                                                  IFEQ   P."E"-P."C",,1                                          TSTEXT    548
                                         .2       ELSE                                                           TSTEXT    549
                                                  L_XN   P."E"-P."C"                                             TSTEXT    550
                                         .2       ENDIF                                                          TSTEXT    551
                                         SBIT     ENDM                                                           TSTEXT    552
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    41
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              SCAN
  
                                        **        SCAN - MACRO TO CALL SCAN ROUTINES                             TSTEXT    554
                                        *                                                                        TSTEXT    555
                                        *         SCAN   TABLE,TYPE                                              TSTEXT    556
                                        *                                                                        TSTEXT    557
                                        *         TABLE  = NAME OF TABLE TO BE SCANNED (TS.NAM, TBI, ETC.)       TSTEXT    558
                                        *         TYPE   = TYPE OF SCAN TO PERFORM (NAME OF SCAN ROUTINE).       TSTEXT    559
                                        *                                                                        TSTEXT    560
                                        * EXAMPLES---                                                            TSTEXT    561
                                        *    1.-- SCAN   I,SCT                                                   TSTEXT    562
                                        *         SA1    TBI                                                     TSTEXT    563
                                        *         RJ     SCT                                                     TSTEXT    564
                                        *                                                                        TSTEXT    565
                                        *    2.-- SCAN   TS.NAM,BTR                                              TSTEXT    566
                                        *         SA1    TS.NAM                                                  TSTEXT    567
                                        *         RJ     BTR                                                     TSTEXT    568
                                                                                                                 TSTEXT    569
                                                                                                                 TSTEXT    570
                                         SCAN     MACRO  TABLE,TYPE                                              TSTEXT    571
                                                  =A1    TABLE                                                   TSTEXT    572
                                                  RJ     TYPE                                                    TSTEXT    573
                                         SCAN     ENDM                                                           TSTEXT    574
                                                                                                                 TSTEXT    575
                                        **        SECT - MACRO TO FORM SECTION TITLES AND SET LISTING FLAGS.     TSTEXT    576
                                        *                                                                        TSTEXT    577
                                        * NAM     SECT   (HEAD)                                                  TSTEXT    578
                                        *                                                                        TSTEXT    579
                                        *         *NAM*  NAME OF SECTION                                         TSTEXT    580
                                        *         *HEAD* TITLE FOR THIS SECTION                                  TSTEXT    581
                                                                                                                 TSTEXT    582
                                                                                                                 TSTEXT    583
                                                  MACRO  SECT,NAM,HEAD                                           TSTEXT    584
                                                  TITLE  /NAM  HEAD                                              TSTEXT    585
                                                  LIST   F,X                                                     TSTEXT    586
                                         SECT     ENDM                                                           TSTEXT    587
  
  
  
  
                                        **        SHRINK - COLLAPSE TABLE TO GIVEN LENGTH.                       TSTEXT    589
                                        *                                                                        TSTEXT    590
                                        *         SHRINK TNAM,SIZE                                               TSTEXT    591
                                        *                                                                        TSTEXT    592
                                        *         TNAM   _ LENGTH WORD FOR TABLE TO BE COLLAPSED.                TSTEXT    593
                                        *         SIZE   = NEW SIZE.  (DISASTER IF SIZE .GT. CURRENT LENGTH.)    TSTEXT    594
                                                                                                                 TSTEXT    595
                                                                                                                 TSTEXT    596
                                         SHRINK   MACRO  TNAM,SIZE                                               TSTEXT    597
                                                  =X6    SIZE                                                    TSTEXT    598
                                                  =A6    TNAM                                                    TSTEXT    599
                                         SHRINK   ENDM                                                           TSTEXT    600
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    42
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              SYMASK
  
                                        **        SYMASK - MACRO TO GENERATE MASKS OF SYMBOLIC FIELDS.           TSTEXT    602
                                        *                                                                        TSTEXT    603
                                        * LOC     SYMASK (FIELD1,FIELD2,...,FIELDN)                              TSTEXT    604
                                        *                                                                        TSTEXT    605
                                        *         *LOC*  = NAME OF THE LITERAL TO BE GENERATED.                  TSTEXT    606
                                        *                IF LOCATION FIELD IS BLANK, LITERAL WILL NOT BE CREATED TSTEXT    607
                                        *                AND MICRO NAMED "E" CONTAINS THE 20-OCTAL DIGIT VALUE.  TSTEXT    608
                                        *         FIELD(I) ARE SYMBOLIC NAMES OF FIELDS TO BE SET.               TSTEXT    609
                                        *                GENERATES A LITERAL WITH 1-BITS IN SPECIFIED FIELDS,    TSTEXT    610
                                        *                AND 0-BITS ELSEWHERE.  THE DESIGNATED FIELDS MUST HAVE  TSTEXT    611
                                        *                P.FIELD DEFINITIONS (SEE *DEFINE* MACRO).               TSTEXT    612
                                                                                                                 TSTEXT    613
                                                                                                                 TSTEXT    614
                                                  MACRO  SYMASK,LOC,FLD                                          TSTEXT    615
                                         C        MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000 TSTEXT    616
                                        ,00000_0000000000                                                        TSTEXT    617
                                        *                                                                        TSTEXT    618
                                                  IRP    FLD                                                     TSTEXT    619
                                        *                            NUMBER OF BITS IN THIS FIELD                TSTEXT    620
                                         A        SET    1                                                       TSTEXT    621
                                                  IF     DEF,L.FLD,1                                             TSTEXT    622
                                         A        SET    L.FLD                                                   TSTEXT    623
                                         A        MICRO  1,A, 1111111111_1111111111_1111111111_1111111111_111111 TSTEXT    624
                                        ,1111_1111111111                                                         TSTEXT    625
                                        *                            EXTRACT TRAILING BITS                       TSTEXT    626
                                         .1       IFEQ   P.FLD                                                   TSTEXT    627
                                         B        MICRO                                                          TSTEXT    628
                                         .1       ELSE                                                           TSTEXT    629
                                         B        MICRO  61-P.FLD,, "C"                                          TSTEXT    630
                                         .1       ENDIF                                                          TSTEXT    631
                                        *                            EXTRACT LEADING BITS                        TSTEXT    632
                                         .1       IFEQ   60-P.FLD-A                                              TSTEXT    633
                                         D        MICRO                                                          TSTEXT    634
                                         .1       ELSE                                                           TSTEXT    635
                                         D        MICRO  1,60-P.FLD-A, "C"                                       TSTEXT    636
                                         .1       ENDIF                                                          TSTEXT    637
                                        *                            MERGE NEW PIECES                            TSTEXT    638
                                         C        MICRO  1,60, "D""A""B"                                         TSTEXT    639
                                                  IRP                                                            TSTEXT    640
                                        *                            CONVERT BINARY TO OCTAL                     TSTEXT    641
                                         E        MICRO                                                          TSTEXT    642
                                         E        SET    0                                                       TSTEXT    643
                                         .1       DUP    60D/3                                                   TSTEXT    644
                                         E        SET    E+1                                                     TSTEXT    645
                                         F        MICRO  3*E-2,1, "C"                                            TSTEXT    646
                                         G        MICRO  3*E-1,1, "C"                                            TSTEXT    647
                                         H        MICRO  3*E-0,1, "C"                                            TSTEXT    648
                                         F        OCTMIC "F"*4+"G"*2+"H",1                                       TSTEXT    649
                                         E        MICRO  1,, "E""F"                                              TSTEXT    650
                                         .1       ENDD                                                           TSTEXT    651
                                        *                                                                        TSTEXT    652
                                                  IFC    NE,  LOC ,1                                             TSTEXT    653
                                         LOC      LIT    "E"B                                                    TSTEXT    654
                                         SYMASK   ENDM                                                           TSTEXT    655
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    43
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              TSF 
  
                                        **        TSF -  GENERAL MACRO FOR SETTING CALLING SEQUENCE TO *TSF*     TSTEXT    657
                                        *                TO TAG A *SPECIAL* FUNCTION. (SEE CLASS2 WRITE-UP FOR   TSTEXT    658
                                        *                TABLE TS.SYM)                                           TSTEXT    659
                                                                                                                 TSTEXT    660
                                                                                                                 TSTEXT    661
                                         TSF      MACRO  SYMPNT,TYPE                                             TSTEXT    662
                                                  =B4    SYMPNT                                                  TSTEXT    663
                                                  =X6    TYPE                                                    TSTEXT    664
                                                  RJ     =XTSF                                                   TSTEXT    665
                                         TSF      ENDM                                                           TSTEXT    666
  
  
  
  
                                        **        TAGASF - MACRO TO BE USED WHENEVER TRANSLATING AN *ASF*        TSTEXT    668
                                        *                USES *TSF* MACRO.                                       TSTEXT    669
                                                                                                                 TSTEXT    670
                                                                                                                 TSTEXT    671
                                         TAGASF   MACRO  SYMPNT                                                  TSTEXT    672
                                                  TSF    SYMPNT,M.NVAR+M.FUN+M.ASF                               TSTEXT    673
                                         TAGASF   ENDM                                                           TSTEXT    674
  
  
  
  
                                        **        TAGEXT - MACRO TO BE USED WHENEVER TRANSLATING AN *EXTERNAL*   TSTEXT    676
                                        *                USES *TSF* MACRO.                                       TSTEXT    677
                                                                                                                 TSTEXT    678
                                                                                                                 TSTEXT    679
                                         TAGEXT   MACRO  SYMPNT                                                  TSTEXT    680
                                                  TSF    SYMPNT,M.NVAR+M.EXT                                     TSTEXT    681
                                         TAGEXT   ENDM                                                           TSTEXT    682
  
  
  
  
                                        **        TAGINL - MACRO TO BE USED WHENEVER TRANSLATING AN *INLINE*     TSTEXT    684
                                        *                USES *TSF* MACRO.                                       TSTEXT    685
                                                                                                                 TSTEXT    686
                                                                                                                 TSTEXT    687
                                         TAGINL   MACRO  SYMPNT                                                  TSTEXT    688
                                                  TSF    SYMPNT,M.NVAR+M.INLINE+M.FUN                            TSTEXT    689
                                         TAGINL   ENDM                                                           TSTEXT    690
  
  
  
  
                                        **        TAGFUN - MACRO TO BE USED WHENEVER TRANSLATING AN *FUNCTION*   TSTEXT    692
                                        *                USES *TSF* MACRO.                                       TSTEXT    693
                                                                                                                 TSTEXT    694
                                                                                                                 TSTEXT    695
                                         TAGFUN   MACRO  SYMPNT                                                  TSTEXT    696
                                                  TSF    SYMPNT,M.NVAR+M.FUN+M.EXT                               TSTEXT    697
                                         TAGFUN   ENDM                                                           TSTEXT    698
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    44
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              TAGSUB
  
                                        **        TAGSUB - MACRO TO BE USED WHENEVER TRANSLATING AN *SUBROUTINE* TSTEXT    700
                                        *                USES *TSF* MACRO.                                       TSTEXT    701
                                                                                                                 TSTEXT    702
                                                                                                                 TSTEXT    703
                                         TAGSUB   MACRO  SYMPNT                                                  TSTEXT    704
                                                  TSF    SYMPNT,M.NVAR+M.SUB+M.EXT                               TSTEXT    705
                                         TAGSUB   ENDM                                                           TSTEXT    706
  
  
  
  
                                        **        TAGSEX - MACRO TO BE USED WHENEVER TRANSLATING AN              TSTEXT    708
                                        *                *SYSTEM EXTERNAL*.  USES *TSF* MACRO.                   TSTEXT    709
                                                                                                                 TSTEXT    710
                                                                                                                 TSTEXT    711
                                         TAGSEX   MACRO  SYMPNT                                                  TSTEXT    712
                                                  TSF    SYMPNT,M.SYSEXT                                         TSTEXT    713
                                         TAGSEX   ENDM                                                           TSTEXT    714
  
  
  
  
                                        **        WARN - MACRO TO PRINT WARNING MESSAGES                         TSTEXT    716
                                        *                                                                        TSTEXT    717
                                        *         WARN   ERR                                                     TSTEXT    718
                                        *         FATAL  ERR         (ONLY IF *FATAL* ERROR)                     TSTEXT    719
                                        *         ANSI   ERR         (ONLY IF *ANSI * ERROR)                     TSTEXT    720
                                        *                                                                        TSTEXT    721
                                        *         *ERR*  = THE NAME OF THE ERROR TO BE PRINTED.                  TSTEXT    722
                                        *                                                                        TSTEXT    723
                                        *         WILL PRINT THE SPECIFIED ERROR AND RETURN, WITHOUT CLOBBERING  TSTEXT    724
                                        *                MANY REGISTERS, PROVIDED THE EXIT ADDRESS FOR THAT      TSTEXT    725
                                        *                ERROR IS *PWE1*.  CALLS *PWE*.                          TSTEXT    726
                                        *         SEE *PWE* FOR DETAILS.                                         TSTEXT    727
                                                                                                                 TSTEXT    728
                                         WARN     MACRO  ADDR                                                    TSTEXT    729
                                                  =B7    ADDR                                                    TSTEXT    730
                                                  RJ     =XPWE                                                   TSTEXT    731
                                         WARN     ENDM                                                           TSTEXT    732
                                                                                                                 TSTEXT    733
                                         FATAL    OPSYN  WARN                                                    TSTEXT    734
                                         NOTE     OPSYN  WARN                                                    TSTEXT    735
  
  
  
  
                                        **        MESAGE - DISPLAY MESSAGE                                       TSTEXT    737
                                        *                                                                        TSTEXT    738
                                        *         MESAGE ADDR,OPTIONS,RCL                                        TSTEXT    739
                                        *                                                                        TSTEXT    740
                                        *         ENTRY  *ADDR* = ADDRESS OF MESSAGE IN *C* FORMAT.              TSTEXT    741
                                        *         *OPTION* = AS DEFINED BY OPERATING SYSTEM.                     TSTEXT    742
                                                                                                                 TSTEXT    743
                                                                                                                 TSTEXT    744
                                         MESAGE   OPSYN  MESSAGE                                                 TSTEXT    745
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    45
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.
  
                                                  SYSCOM B1                                                      TSTEXT    747
                                                                                                                 TSTEXT    748
                                                                                                                 TSTEXT    749
                                        ****      ASSEMBLY CONSTANTS.                                            TSTEXT    750
                                                                                                                 TSTEXT    751
                                                                                                                 TSTEXT    752
                                  36              COL    30          COLUMN FOR COMMENT FIELD.                   TSTEXT    753
                                   0     .CMLOD   EQU    0           NO COMPILE TO CORE                          TSTEXT    754
                                   4     FLSLOP   =      4           AMOUNT OF SLOP FOR MANAGER =                FEAT155D    7
                                        *                            (1/2**N)*(WIDTH OF TABLE AREA)              FEAT155D    8
                                1000     INC.LTN  =      1000B       FIELD LENGTH INCREMENT WHEN FL .LT. NOM.FL  FEAT155D    9
                                2000     INC.GTN  =      2000B       FIELD LENGTH INCREMENT WHEN FL .GT. NOM.FL  FEAT155D   10
                                                                                                                 TSTEXT    755
                                 240     N.OPSTK  EQU    240B        NUM WORDS RESERVED FOR OPERAND STACK        TSTEXT    756
                                 240     N.ELSTK  EQU    240B        NUM WORDS RESERVED FOR ELEMENT STACK        FCC0813     5
                                                                                                                 TSTEXT    758
                                 764     MAX.BLK  =      500D        MAXIMUM NUMBER OF COMMON BLOCKS             TSTEXT    759
                                                                                                                 TSTEXT    760
                                  77     MAX.SARG =      63D         MAXIMUM NUMBER OF ARGUMENTS TO SUBPROGRAM   TSTEXT    761
                                                                                                                 TSTEXT    762
                                  61     MAX.PARG EQU    49D         MAXIMUM NUMBER OF ARGUMENTS TO MAIN PROGRAM FCC2246     6
                                                                                                                 TSTEXT    764
                                   3     ANS.DIM  EQU    3           ANSI VALUE OF ...                           TSTEXT    765
                                   3     MAX.DIM  EQU    3           MAXIMUM NUMBER DIMENSIONS PERMITTED         TSTEXT    766
                                                                                                                 TSTEXT    767
                                  23     ANS.CONT EQU    19D         MAX. NO. OF CONTIN. CARDS PERMITTED BY ANSI FCC0844     5
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    46
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              MXX+X 
  
                                        **        MXX+X  - SELECT GREATER (MAXIMUM FUNCTION) OF TWO INTEGERS.    TEXTCOM     3
                                        *                                                                        TEXTCOM     4
                                        *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES  TEXTCOM     5
                                        *         THE ALGEBRAICALLY GREATER VALUE IN *XI*.                       TEXTCOM     6
                                        *                                                                        TEXTCOM     7
                                        *         MXI    XJ+XK                                                   TEXTCOM     8
                                        *                                                                        TEXTCOM     9
                                        *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*             TEXTCOM    10
                                        *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED   TEXTCOM    11
                                        *                                                                        TEXTCOM    12
                                        *         EXIT   (X.LARGER) = 0                                          TEXTCOM    13
                                        *                (X.SMALLER) = UNCHANGED                                 TEXTCOM    14
                                        *         IF ON ENTRY (XJ)=(XK),                                         TEXTCOM    15
                                        *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                      TEXTCOM    16
                                        *                (XI) = MAX(XJ,XK)                                       TEXTCOM    17
                                        *                                                                        TEXTCOM    18
                                        *         USES   XI, XJ, XK                                              TEXTCOM    19
                                                                                                                 TEXTCOM    20
                                                  PURGDEF   MXX+X                                                TEXTCOM    21
                                                                                                                 TEXTCOM    22
                                         MXX+X    OPDEF  I,J,K                                                   TEXTCOM    23
                                          IX.I X.J-X.K                                                           TEXTCOM    24
                                          AX.I -1                                                                TEXTCOM    25
                                          BX.J -X.I*X.J                                                          TEXTCOM    26
                                          BX.K X.I*X.K                                                           TEXTCOM    27
                                          IX.I X.J+X.K                                                           TEXTCOM    28
                                         MXX+X    ENDM                                                           TEXTCOM    29
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    47
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              MXX-X 
  
                                        **        MXX-X  - SELECT LESSER (MINIMUM FUNCTION) OF TWO INTEGERS.     TEXTCOM    31
                                        *                                                                        TEXTCOM    32
                                        *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES  TEXTCOM    33
                                        *         THE ALGEBRAICALLY LESSER VALUE IN *XI*.                        TEXTCOM    34
                                        *                                                                        TEXTCOM    35
                                        *         MXI    XJ-XK                                                   TEXTCOM    36
                                        *                                                                        TEXTCOM    37
                                        *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*             TEXTCOM    38
                                        *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED   TEXTCOM    39
                                        *                                                                        TEXTCOM    40
                                        *         EXIT   (X.LARGER) = 0                                          TEXTCOM    41
                                        *                (X.SMALLER) = UNCHANGED                                 TEXTCOM    42
                                        *                IF ON ENTRY (XJ)=(XK)                                   TEXTCOM    43
                                        *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                      TEXTCOM    44
                                        *                XI = MIN(XJ,XK)                                         TEXTCOM    45
                                        *                                                                        TEXTCOM    46
                                        *         USES   XI, XJ, XK                                              TEXTCOM    47
                                                                                                                 TEXTCOM    48
                                                  PURGDEF   MXX-X                                                TEXTCOM    49
                                                                                                                 TEXTCOM    50
                                         MXX-X    OPDEF  I,J,K                                                   TEXTCOM    51
                                          IX.I X.J-X.K                                                           TEXTCOM    52
                                          AX.I  -1                                                               TEXTCOM    53
                                          BX.J X.I*X.J                                                           TEXTCOM    54
                                          BX.K -X.I*X.K                                                          TEXTCOM    55
                                          IX.I X.J+X.K                                                           TEXTCOM    56
                                         MXX-X    ENDM                                                           TEXTCOM    57
                                                                                                                 TSTEXT    771
                              360000     MAX.BUFL EQU    360000B                                                 TSTEXT    772
                              377777     MAX.RECL EQU    1S17-1                                                  TSTEXT    773
                                                                                                                 TSTEXT    774
                                 100     MIN.LF   EQU    100B        MINIMUM NUMBER OF WORDS TO BE KEPT RESERVED TSTEXT    775
                                                                     FOR THE *LONG FILE*, PAST (IGE) OR (A7).    TSTEXT    776
                                                                                                                 TSTEXT    777
                                                                                                                 TSTEXT    778
                                                  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     TSTEXT    779
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    48
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.
  
                                        **        TRUBL - COMPILER MAL-FUNCTION FLAG.                            TSTEXT    781
                                        *                                                                        TSTEXT    782
                                        *         TRUBL  ERR                                                     TSTEXT    783
                                        *                                                                        TSTEXT    784
                                        *         *ERR* = NAME OF THE *Z-ERROR* TO PUT OUT.                      TSTEXT    785
                                        *                                                                        TSTEXT    786
                                        *         IN *TEST* MODE, WILL DUMP REGISTERS AND PRINT THE ERROR LINE.  TSTEXT    787
                                        *         WHEN *TEST* = 0, WILL BE ONLY A JUMP OUT OF BOUNDS.            TSTEXT    788
                                                                                                                 TSTEXT    789
                                                                                                                 TSTEXT    790
                                         TEST     IFEQ   TEST        BLOW UP IF NOT IN TEST MODE                 TSTEXT    791
                                                                                                                 TSTEXT    792
                                         TRUBL    MACRO  NAM                                                     TSTEXT    793
                                                  EQ     "BLOWUP"   NAM                                          TSTEXT    794
                                         TRUBL    ENDM                                                           TSTEXT    795
                                                                                                                 TSTEXT    796
                                         TEST     ELSE               DUMP REGISTERS IN TEST MODE                 TSTEXT    797
                                                                                                                 TSTEXT    798
                                         TRUBL    MACRO  NAM                                                     TSTEXT    799
                                        **                           SAVE REGISTERS                              TSTEXT    800
                                                  RJ     =XSVR=                                                  TSTEXT    801
                                        **                           DISPLAY ALL REGISTERS                       TSTEXT    802
                                                  RJ     =XDAR=                                                  TSTEXT    803
                                                  EQ     NAM   "BLOWUP"                                          TSTEXT    804
                                         TRUBL    ENDM                                                           TSTEXT    805
                                                                                                                 TSTEXT    806
                                         TEST     ENDIF                                                          TSTEXT    807
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    49
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                         SNAP     IFEQ   TEST                                                    TSTEXT    809
                                                                                                                 TSTEXT    810
                                                                                                                 TSTEXT    811
                                        **        SNAP MACROS  - IF NO SNAP REQUESTED                            TSTEXT    812
                                                                                                                 TSTEXT    813
                                                                                                                 TSTEXT    814
                                         BREAK    OPSYN  NIL                                                     FEAT155F    3
                                         CORE     OPSYN  NIL                                                     TSTEXT    815
                                         DUMPT    OPSYN  NIL                                                     TSTEXT    816
                                         REG      OPSYN  NIL                                                     TSTEXT    817
                                         SNAP     OPSYN  NIL                                                     TSTEXT    818
                                         STRING   OPSYN  NIL                                                     TSTEXT    819
                                                                                                                 TSTEXT    820
                                         SNAP     ELSE                                                           TSTEXT    821
                                                                                                                 TSTEXT    822
                                        **        SNAP MACROS - IF SNAP TURNED ON                                TSTEXT    823
                                         DBG=MAC  CTEXT  DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.   DBG=MAC     2
                                         DBG=MAC  SPACE  4,8                                                     DBG=MAC     3
                                                  IF     -DEF,QUAL$,1                                            DBG=MAC     4
                                                  QUAL   DBG=MAC                                                 DBG=MAC     5
                                                  BASE   D                                                       DBG=MAC     6
                                         DBG=MAC  SPACE  4,8                                                     DBG=MAC     7
                                        **        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    SPACE  4,8                                                     DBG=MAC    18
                                        **        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
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    50
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                                                                                                 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
                                        *                                                                        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=     SPACE  4,8                                                     DBG=MAC    68
                                        **        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       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    51
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                         .1       IFC    EQ,/NAME//                                              DBG=MAC   100
                                                  CON    0                                                       DBG=MAC   101
                                         .1       ELSE                                                           DBG=MAC   102
                                                  CON    10H_NAME                                                DBG=MAC   103
                                         .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      SPACE  4,8                                                     DBG=MAC   108
                                        **        REG - REGISTER SNAPSHOT.                                       DBG=MAC   109
                                        *                                                                        DBG=MAC   110
                                        *                                                                        DBG=MAC   111
                                        * NAME    REG    RG,LL,UL,INC                                            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
                                        *                                                                        DBG=MAC   131
                                        *         EXIT   NONE                                                    DBG=MAC   132
                                        *                                                                        DBG=MAC   133
                                        *         USES   NONE                                                    DBG=MAC   134
                                        *                                                                        DBG=MAC   135
                                        *         CALLS  FRK=,REG=,RGR=                                          DBG=MAC   136
                                                                                                                 DBG=MAC   137
                                                                                                                 DBG=MAC   138
                                                  PURGMAC REG                                                    DBG=MAC   139
                                                                                                                 DBG=MAC   140
                                                  MACRO  REG,NAME,RG,LL,UL,INC,NUSE                              DBG=MAC   141
                                                  LOCAL  RTN                                                     DBG=MAC   142
                                                  LOCAL  APL                                                     DBG=MAC   143
                                        *                                                                        DBG=MAC   144
                                         +        RJ     =XREG=                                                  DBG=MAC   145
                                         -        VFD    30/APL                                                  DBG=MAC   146
                                        *                                                                        DBG=MAC   147
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   148
                                                  USE    DEBUG                                                   DBG=MAC   149
                                        *                                                                        DBG=MAC   150
                                         #NUSE    ELSE                                                           DBG=MAC   151
                                                  EQ     RTN                                                     DBG=MAC   152
                                         #NUSE    ENDIF                                                          DBG=MAC   153
                                         APL      BSS    0                                                       DBG=MAC   154
                                                  FRK=   (NAME),LL,UL,INC                                        DBG=MAC   155
                                                  RGR=   (RG)                                                    DBG=MAC   156
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    52
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                        *                                                                        DBG=MAC   157
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   158
                                                  USE    *                                                       DBG=MAC   159
                                        *                                                                        DBG=MAC   160
                                         #NUSE    ELSE                                                           DBG=MAC   161
                                         RTN      BSS    0                                                       DBG=MAC   162
                                         #NUSE    ENDIF                                                          DBG=MAC   163
                                        *                                                                        DBG=MAC   164
                                         REG      ENDM                                                           DBG=MAC   165
                                                                                                                 DBG=MAC   166
                                                  PURGMAC REGS                                                   DBG=MAC   167
                                         REGS     OPSYN  REG                                                     DBG=MAC   168
                                         RGR=     SPACE  4,8                                                     DBG=MAC   169
                                        **        RGR= - GENERATE REGISTER PARAMETER LIST.                       DBG=MAC   170
                                        *                                                                        DBG=MAC   171
                                        *                                                                        DBG=MAC   172
                                        *                SEE *DSR/DBG=IDP*.                                      DBG=MAC   173
                                        *                                                                        DBG=MAC   174
                                        *         RGR=   RG                                                      DBG=MAC   175
                                        *                                                                        DBG=MAC   176
                                        *         RGR=                                                           DBG=MAC   177
                                        *         RGR=   (X1,X2,A3,B4)                                           DBG=MAC   178
                                        *         RGR=   NOREG                                                   DBG=MAC   179
                                        *                                                                        DBG=MAC   180
                                        *         ENTRY  RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          DBG=MAC   181
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    DBG=MAC   182
                                        *                          DESIRED TO BE DUMPED                          DBG=MAC   183
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     DBG=MAC   184
                                        *                          DUMPED                                        DBG=MAC   185
                                        *                                                                        DBG=MAC   186
                                        *         EXIT   NONE                                                    DBG=MAC   187
                                        *                                                                        DBG=MAC   188
                                        *         USES   NONE                                                    DBG=MAC   189
                                        *                                                                        DBG=MAC   190
                                        *         CALLS  NONE                                                    DBG=MAC   191
                                                                                                                 DBG=MAC   192
                                                                                                                 DBG=MAC   193
                                                  PURGMAC RGR=                                                   DBG=MAC   194
                                                                                                                 DBG=MAC   195
                                         RGR=     MACRO  RG                                                      DBG=MAC   196
                                        *                                                                        DBG=MAC   197
                                         .1       IFC    EQ,/RG//                                                DBG=MAC   198
                                                  DATA   -1                                                      DBG=MAC   199
                                         .1       ELSE                                                           DBG=MAC   200
                                        *                                                                        DBG=MAC   201
                                         .2       IRP    RG                                                      DBG=MAC   202
                                         .3       IF     -REG,RG                                                 DBG=MAC   203
                                                  DATA   0                                                       DBG=MAC   204
                                         .3       ELSE                                                           DBG=MAC   205
                                         .T       MICRO  1,1,/RG/                                                DBG=MAC   206
                                         .R       MICRO  2,1,/RG/                                                DBG=MAC   207
                                                  VFD    60/=XSV_".T"+".R"                                       DBG=MAC   208
                                         .3       ENDIF                                                          DBG=MAC   209
                                         .2       IRP                                                            DBG=MAC   210
                                        *                                                                        DBG=MAC   211
                                                  DATA   0                                                       DBG=MAC   212
                                         .1       ENDIF                                                          DBG=MAC   213
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    53
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                        *                                                                        DBG=MAC   214
                                         RGR=     ENDM                                                           DBG=MAC   215
                                         SNAP     SPACE  4,8                                                     DBG=MAC   216
                                        **        SNAP - SNAPSHOT OF REGISTERS AND CORE.                         DBG=MAC   217
                                        *                                                                        DBG=MAC   218
                                        *                                                                        DBG=MAC   219
                                        * NAME    SNAP   FWA,LWA,LNG,RG,LL,UL,INC                                DBG=MAC   220
                                        *         SNAP   *FWA,,**LNG,(X1,X2,B5,A1)                               DBG=MAC   221
                                        *                                                                        DBG=MAC   222
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   DBG=MAC   223
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    DBG=MAC   224
                                        *                     =  NULL IF NO SNAP HEADER                          DBG=MAC   225
                                        *                FWA  =  FWA OF CORE TO BE DUMPED. THIS PARAMETER MUST   DBG=MAC   226
                                        *                          APPEAR IF A CORE DUMP IS DESIRED.             DBG=MAC   227
                                        *                LWA  =  LWA OF CORE TO BE DUMPED. (OPTIONAL)            DBG=MAC   228
                                        *                LNG  =  NR OF WORDS TO BE DUMPED. *LWA* AND *LNG* ARE   DBG=MAC   229
                                        *                          RELATED AS FOLLOWS--  DUMP IS FROM            DBG=MAC   230
                                        *                          FWA TO FWA+LNG UNLESS LNG IS NULL OR ZERO.    DBG=MAC   231
                                        *                          IN THAT CASE, DUMP IS FROM FWA TO LWA.        DBG=MAC   232
                                        *                RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          DBG=MAC   233
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    DBG=MAC   234
                                        *                          DESIRED TO BE DUMPED                          DBG=MAC   235
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     DBG=MAC   236
                                        *                          DUMPED                                        DBG=MAC   237
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         DBG=MAC   238
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       DBG=MAC   239
                                        *                INC  =  INCREMENT (DEFAULT=1)                           DBG=MAC   240
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    DBG=MAC   241
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     DBG=MAC   242
                                        *                          ASSEMBLED AFTER *RJ*                          DBG=MAC   243
                                        *                                                                        DBG=MAC   244
                                        *         NOTES-- AN INDIRECT ADDRESSING SYNTAX IS PROVIDED FOR THE FWA, DBG=MAC   245
                                        *         LWA, AND LNG PARAMETERS. ANY OF THESE PARAMETERS PRECEDED BY   DBG=MAC   246
                                        *         AN ASTERICK (*) DENOTES ONE LEVEL OF INDIRECT ADDRESSING.      DBG=MAC   247
                                        *         N LEVELS OF INDIRECT ADDRESSING ARE POSSIBLE (N.LE.2**21-1)    DBG=MAC   248
                                        *         BY STACKING ASTERICKS. (E.G.  SNAP  **X1,***LWA)               DBG=MAC   249
                                        *                                                                        DBG=MAC   250
                                        *                A SINGLE REGISTER OR AN ADDRESS EXPRESSION CAN BE USED  DBG=MAC   251
                                        *         FOR THE FWA, LWA, OR LNG PARAMETER, BUT A MIX (E.G. SNAP X1+1) DBG=MAC   252
                                        *         IS NOT ALLOWED.                                                DBG=MAC   253
                                        *                                                                        DBG=MAC   254
                                        *         EXIT   NONE                                                    DBG=MAC   255
                                        *                                                                        DBG=MAC   256
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      DBG=MAC   257
                                        *                                                                        DBG=MAC   258
                                        *         CALLS  SNP=                                                    DBG=MAC   259
                                                                                                                 DBG=MAC   260
                                                                                                                 DBG=MAC   261
                                                  PURGMAC SNAP                                                   DBG=MAC   262
                                                                                                                 DBG=MAC   263
                                                  MACRO  SNAP,NAME,FWA,LWA,LNG,RG,LL,UL,INC,NUSE                 DBG=MAC   264
                                                  LOCAL  RTN                                                     DBG=MAC   265
                                                  LOCAL  APL                                                     DBG=MAC   266
                                        *                                                                        DBG=MAC   267
                                         +        RJ     =XSNP=                                                  DBG=MAC   268
                                         -        VFD    30/APL                                                  DBG=MAC   269
                                        *                                                                        DBG=MAC   270
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    54
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   271
                                                  USE    DEBUG                                                   DBG=MAC   272
                                        *                                                                        DBG=MAC   273
                                         #NUSE    ELSE                                                           DBG=MAC   274
                                                  EQ     RTN                                                     DBG=MAC   275
                                         #NUSE    ENDIF                                                          DBG=MAC   276
                                         APL      BSS    0                                                       DBG=MAC   277
                                                  FRK=   (NAME),LL,UL,INC                                        DBG0003     4
                                                  SNG=   (FWA)                                                   DBG=MAC   279
                                                  SNG=   (LWA)                                                   DBG=MAC   280
                                                  SNG=   (LNG)                                                   DBG=MAC   281
                                                  RGR=   (RG)                                                    DBG=MAC   282
                                        *                                                                        DBG=MAC   283
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   284
                                                  USE    *                                                       DBG=MAC   285
                                        *                                                                        DBG=MAC   286
                                         #NUSE    ELSE                                                           DBG=MAC   287
                                         RTN      BSS    0                                                       DBG=MAC   288
                                         #NUSE    ENDIF                                                          DBG=MAC   289
                                        *                                                                        DBG=MAC   290
                                         SNAP     ENDM                                                           DBG=MAC   291
                                         SNG=     SPACE  4,8                                                     DBG=MAC   292
                                        **        SNG= - GENERATE INDIRECT/ADDRESS FIELDS.                       DBG=MAC   293
                                        *                                                                        DBG=MAC   294
                                        *                                                                        DBG=MAC   295
                                        *         GENERATES--                                                    DBG=MAC   296
                                        *                                                                        DBG=MAC   297
                                        *         VFD    18/0                                                    DBG=MAC   298
                                        *         VFD    21/NR OF LEVELS OF INDIRECT ADDRESSING (0=DIRECT)       DBG=MAC   299
                                        *         VFD    21/ADDRESS AT BEGINNING OF INDIRECT CHAIN               DBG=MAC   300
                                        *                                                                        DBG=MAC   301
                                        *         SNG=   (*ADDR)                                                 DBG=MAC   302
                                        *                                                                        DBG=MAC   303
                                        *         ENTRY  *        =  A LEVEL OF INDIRECT ADDRESSING.             DBG=MAC   304
                                        *                              NO * MEANS DIRECT ADDRESSING.             DBG=MAC   305
                                        *                              E.G. *ADDR MEANS THE CONTENTS OF ADDR     DBG=MAC   306
                                        *                              CONTAIN AN ADDRESS THAT IS TO BE USED BY  DBG=MAC   307
                                        *                              SNAP UTILITY.                             DBG=MAC   308
                                        *                ADDR     =  THE BEGINNING OF THE ADDRESS CHAIN.         DBG=MAC   309
                                                                                                                 DBG=MAC   310
                                                                                                                 DBG=MAC   311
                                                  PURGMAC SNG=                                                   DBG=MAC   312
                                                                                                                 DBG=MAC   313
                                         SNG=     MACRO  ARG                                                     DBG=MAC   314
                                         .9       SET    -1                                                      DBG=MAC   315
                                         +        VFD    18/0                                                    DBG=MAC   316
                                        *                                                                        DBG=MAC   317
                                         .D       DUP    -1                                                      DBG=MAC   318
                                         .9       SET    .9+1                                                    DBG=MAC   319
                                         .1       MICRO  .9+1,1,/ARG/                                            DBG=MAC   320
                                                  IFC    NE,/".1"/*/,1                                           DBG=MAC   321
                                                  STOPDUP                                                        DBG=MAC   322
                                         .D       ENDD                                                           DBG=MAC   323
                                        *                                                                        DBG=MAC   324
                                         .2       MICRO  .9+1,,/ARG/                                             DBG=MAC   325
                                        *                                                                        DBG=MAC   326
                                         #RG      IF     REG,".2"                                                DBG=MAC   327
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    55
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                                  IFEQ   .9,0,1                                                  DBG=MAC   328
                                         .9       SET    .9+1                                                    DBG=MAC   329
                                         .3       MICRO  1,1,/".2"/                                              DBG=MAC   330
                                         .4       MICRO  2,1,/".2"/                                              DBG=MAC   331
                                         .2       MICRO  1,,/=XSV=".3"+".4"/                                     DBG=MAC   332
                                        *                                                                        DBG=MAC   333
                                         #RG      ELSE                                                           DBG=MAC   334
                                         .5       MICRO  1,2,/".2"/                                              DBG=MAC   335
                                                  IFC    EQ,/".5"/=X/,1                                          DBG=MAC   336
                                         .2       MICRO  3,,/".2"/                                               DBG=MAC   337
                                                  IF     -DEF,".2",1                                             DBG=MAC   338
                                                  SKIP   1                                                       DBG=MAC   339
                                                  IF     -ABS,".2",1                                             DBG=MAC   340
                                         .2       MICRO  1,,/=X".2"/                                             DBG=MAC   341
                                         #RG      ENDIF                                                          DBG=MAC   342
                                        *                                                                        DBG=MAC   343
                                                  VFD    21/.9                                                   DBG=MAC   344
                                                  VFD    21/".2"                                                 DBG=MAC   345
                                         SNG=     ENDM                                                           DBG=MAC   346
                                         DBG=MAC  SPACE  4,8                                                     DBG=MAC   347
                                                  BASE   *                                                       DBG=MAC   348
                                         QUAL$    IF     -DEF,QUAL$                                              DBG=MAC   349
                                                  QUAL   *                                                       DBG=MAC   350
                                         QUAL$    ENDIF                                                          DBG=MAC   351
                                                  ENDX                                                           DBG=MAC   352
                                         CORE     SPACE  4,8                                                     FEAT155F    5
                                        **        CORE - MACRO TO SNAPSHOT CORE.                                 TSTEXT    825
                                        *                                                                        TSTEXT    826
                                        *                                                                        TSTEXT    827
                                        * LABEL   CORE   FWA,LENGTH                                              TSTEXT    828
                                        *                                                                        TSTEXT    829
                                        *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                       TSTEXT    830
                                        *         CALLS  SNP=                                                    TSTEXT    831
                                                                                                                 TSTEXT    832
                                                                                                                 TSTEXT    833
                                                  MACRO  CORE,NAM,FWA,LNG                                        TSTEXT    834
                                         NAM      SNAP   FWA,,LNG,NR                                             FEAT155F    6
                                         CORE     ENDM                                                           TSTEXT    836
                                         DUMPT    SPACE  4,8                                                     TSTEXT    837
                                        **        DUMPT- MACRO TO DUMP COMPILER TABLES.                          TSTEXT    838
                                        *                                                                        TSTEXT    839
                                        *         CALLS THE *SNAP* PACKAGE TO DUMP SPECIFIED TABLES.             TSTEXT    840
                                        *                                                                        TSTEXT    841
                                        * NAME    DUMPT  (P1,P2,...,PN)                                          TSTEXT    842
                                        *                                                                        TSTEXT    843
                                        *         EACH PARAMETER IS THE ADDRESS OF A TABLE, OR AN INCLUSIVE      TSTEXT    844
                                        *                RANGE OF TABLES TO BE DUMPED.  A RANGE OF TABLES IS     TSTEXT    845
                                        *                INDICATED BY THE ADDRESS OF THE FIRST TABLE PARAMETER   TSTEXT    846
                                        *                WORD, FOLLOWED BY A DASH (*-*), FOLLOWED BY THE LAST    TSTEXT    847
                                        *                TABLE TO BE DUMPED.                                     TSTEXT    848
                                        *         IF FWA GREATER THAN LWA, ONLY FWA WILL BE DUMPED.              TSTEXT    849
                                        *                                                                        TSTEXT    850
                                        *  EXAMPLE --                                                            TSTEXT    851
                                        *         DUMPT  (TT.PEM,TS.NAM-TA.NAM,TP.ARR)                           TSTEXT    852
                                        *                                                                        TSTEXT    853
                                        *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                       TSTEXT    854
                                        *         CALLS  DMT=                                                    TSTEXT    855
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    56
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                                                                                                 TSTEXT    856
                                                                                                                 TSTEXT    857
                                                  MACRO  DUMPT,NAME,TAB,LL,UL,INC,NUSE                           FEAT155F    7
                                                  LOCAL  RTN                                                     FEAT155F    8
                                                  LOCAL  APL                                                     FEAT155F    9
                                        *                                                                        FEAT155F   10
                                         +        RJ     =XDMT=                                                  TSTEXT    860
                                         -        VFD    30/APL                                                  FEAT155F   11
                                        *                                                                        FEAT155F   12
                                         #NUSE    IFC    EQ,/NUSE//                                              FEAT155F   13
                                                  USE    DEBUG                                                   FEAT155F   14
                                        *                                                                        FEAT155F   15
                                         #NUSE    ELSE                                                           FEAT155F   16
                                                  EQ     RTN                                                     FEAT155F   17
                                         #NUSE    ENDIF                                                          FEAT155F   18
                                        *                                                                        FEAT155F   19
                                         APL      BSS    0                                                       FEAT155F   20
                                                  FRK=   (NAME),LL,UL,INC                                        TSTEXT    862
                                                  IRP    TAB                                                     TSTEXT    863
                                         A        MICRO  1,,-TAB-                                                TSTEXT    864
                                         B        MICCNT A                                                       TSTEXT    865
                                         C        MICRO  B+1,1, TAB                                              TSTEXT    866
                                         D        MICRO  1,, "A"                                                 TSTEXT    867
                                        .1        IFC    EQ,/-/"C"/                                              TSTEXT    868
                                         D        MICRO  B+2,, TAB                                               TSTEXT    869
                                         .2       IFLT   "D","A"                                                 TSTEXT    870
                                         8        ERR    DUMPT - "A" .GT. "D", ONLY "A" WILL BE DUMPED.          TSTEXT    871
                                         D        MICRO  1,, "A"                                                 TSTEXT    872
                                        .2        ENDIF                                                          TSTEXT    873
                                        .1        ENDIF                                                          TSTEXT    874
                                                  VFD    18/0,21/"D",21/"A"                                      FEAT155F   21
                                                  IRP                                                            TSTEXT    876
                                                  VFD    60/0                                                    TSTEXT    877
                                        *                                                                        FEAT155F   22
                                         #NUSE    IFC    EQ,/NUSE//                                              FEAT155F   23
                                                  USE    *                                                       FEAT155F   24
                                        *                                                                        FEAT155F   25
                                         #NUSE    ELSE                                                           FEAT155F   26
                                         RTN      BSS    0                                                       FEAT155F   27
                                         #NUSE    ENDIF                                                          FEAT155F   28
                                        *                                                                        FEAT155F   29
                                         DUMPT    ENDM                                                           TSTEXT    879
                                         STRING   SPACE  4,8                                                     FEAT155F   30
                                        **        STRING - FORMATTED SNAPSHOT OF STRING BUFFER.                  FEAT155F   31
                                        *                                                                        FEAT155F   32
                                        *                                                                        FEAT155F   33
                                        * NAME    STRING LL,UL,INC                                               FEAT155F   34
                                        *                                                                        FEAT155F   35
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   FEAT155F   36
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    FEAT155F   37
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         FEAT155F   38
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       FEAT155F   39
                                        *                INC  =  INCREMENT   (DEFAULT=1)                         FEAT155F   40
                                        *                          SEE *FRK=* MACRO.                             FEAT155F   41
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    FEAT155F   42
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     FEAT155F   43
                                        *                          ASSEMBLED AFTER *RJ*                          FEAT155F   44
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    57
        SNAP1  -  SNAP MACROS                                         SNAP
  
                                        *                                                                        FEAT155F   45
                                        *         EXIT   NONE                                                    FEAT155F   46
                                        *                                                                        FEAT155F   47
                                        *         USES   NONE                                                    FEAT155F   48
                                        *                                                                        FEAT155F   49
                                        *         CALLS  FRK=,SBD                                                FEAT155F   50
                                                                                                                 FEAT155F   51
                                                                                                                 FEAT155F   52
                                                  PURGMAC STRING                                                 FEAT155F   53
                                                                                                                 FEAT155F   54
                                                  MACRO  STRING,NAME,LL,UL,INC,NUSE                              FEAT155F   55
                                                  LOCAL  RTN                                                     FEAT155F   56
                                                  LOCAL  APL                                                     FEAT155F   57
                                        *                                                                        FEAT155F   58
                                         +        RJ     =XSBD                                                   FEAT155F   59
                                         -        VFD    30/APL                                                  FEAT155F   60
                                        *                                                                        FEAT155F   61
                                         #NUSE    IFC    EQ,/NUSE//                                              FEAT155F   62
                                                  USE    DEBUG                                                   FEAT155F   63
                                        *                                                                        FEAT155F   64
                                         #NUSE    ELSE                                                           FEAT155F   65
                                                  EQ     RTN                                                     FEAT155F   66
                                         #NUSE    ENDIF                                                          FEAT155F   67
                                        *                                                                        FEAT155F   68
                                         APL      BSS    0                                                       FEAT155F   69
                                                  FRK=   (NAME),LL,UL,INC                                        FEAT155F   70
                                        *                                                                        FEAT155F   71
                                         #NUSE    IFC    EQ,/NUSE//                                              FEAT155F   72
                                                  USE    *                                                       FEAT155F   73
                                        *                                                                        FEAT155F   74
                                         #NUSE    ELSE                                                           FEAT155F   75
                                         RTN      BSS    0                                                       FEAT155F   76
                                         #NUSE    ENDIF                                                          FEAT155F   77
                                        *                                                                        FEAT155F   78
                                         STRING   ENDM                                                           FEAT155F   79
                                                                                                                 TSTEXT    949
                                         SNAP     ENDIF                                                          TSTEXT    950
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    58
        /TABLES  T A B L E   DEFINITIONS. 
  
                                         TABLES   SECT   (T A B L E   DEFINITIONS.),1                            TSTEXT    951
  
                                                                                                                 TSTEXT    952
                                                                                                                 TSTEXT    953
                                   1     FUDGE    EQU    1           AMOUNT OF SLOP SPACE BETWEEN TABLES         TSTEXT    954
                                        ****                                                                     TSTEXT    956
                                        *         LONGFILE - CONTAINS GENERATED PSEUDO - OBJECT CODE.            TSTEXT    957
                                        *         AS INSTRUCTIONS ARE COMPILED THEY ARE ENTERED INTO THE *LONG   TSTEXT    958
                                        *         FILE* ONE INSTRUCTION PER WORD.  THE *K* PORTION OF A 30 - BIT TSTEXT    959
                                        *         INSTRUCTION WILL CONTAIN A *SHORT CONSTANT* OR A TAG.  WHEN    TSTEXT    960
                                        *         THE END OF A SOURCE PROGRAM - UNIT IS ENCOUNTERED, THE LONG    TSTEXT    961
                                        *         FILE (AND CONTENTS OF APPROPRIATE TABLES) ARE USED TO GENERATE TSTEXT    962
                                        *         ACTUAL LOADER TEXT.  THUS, WE MAY CONSIDER THE LONG FILE TO BE TSTEXT    963
                                        *         A COMPILER SCRATCH TAPE, AND *END* STATEMENT PROCESSING TO BE  TSTEXT    964
                                        *         A *PASS 2*.                                                    TSTEXT    965
                                        *                                                                        TSTEXT    966
                                        *         THE LONG FILE RESIDES ENTIRELY IN CORE.  DURING STATEMENT      TSTEXT    967
                                        *         PROCESSING, *A7* ALWAYS POINTS TO THE LAST COMPILED            TSTEXT    968
                                        *         INSTRUCTION.  WHEN A STATEMENT PROCESSOR DECIDES THAT AN INST- TSTEXT    969
                                        *         RUCTION MUST BE COMPILED, IT IS NECESSARY MERELY TO ASSEMBLE   TSTEXT    970
                                        *         THE (PSEUDO) INSTRUCTION INTO *X7* AND ADVANCE *A7*.           TSTEXT    971
                                        *         THE DIFFERENT ENTRY FORMATS ARE DESCRIBED BELOW :              TSTEXT    972
                                                                                                                 TSTEXT    973
                                                                                                                 TSTEXT    974
                                        * T.INT   TABLE  5           INTERMEDIATE FILE                           TSTEXT    975
                                        *TT.LF    TABLE  =,T.INT                                                 TSTEXT    976
                                                                                                                 TSTEXT    977
                                                                                                                 TSTEXT    978
                                                                                                                 TSTEXT    979
                                                                                                                 TSTEXT    980
                                        *  1.     15 BIT INSTRUCTIONS                                            TSTEXT    981
                                        *         +--------------+---------------------------------------------+ TSTEXT    982
                                        *         +              +/////////////////////////////////////////////+ TSTEXT    983
                                        *         +   I N S T    +/////////////////////////////////////////////+ TSTEXT    984
                                        *         +              +/////////////////////////////////////////////+ TSTEXT    985
                                        *         +--------------+---------------------------------------------+ TSTEXT    986
                                        *                15                         45                           TSTEXT    987
                                        *         THE *BXI  XJ* (10B) INSTRUCTION IS COMPILED AS 10IJ0 AND       TSTEXT    988
                                        *         CHANGED LATER TO 10IJJ.                                        TSTEXT    989
                                                                                                                 TSTEXT    990
                                         LI15     DEFINE 45,15       15 - BIT INSTRUCTION.                       TSTEXT    991
                                                                                                                 TSTEXT    992
                                         LGH      DEFINE 54,6                                                    TSTEXT    993
                                         LI       DEFINE 51,3                                                    TSTEXT    994
                                         LJ       DEFINE 48,3                                                    TSTEXT    995
                                         LK       DEFINE 45,3                                                    TSTEXT    996
                                                                                                                 TSTEXT    997
                                                                                                                 TSTEXT    998
                                        *  2.     30 - BIT INSTRUCTIONS                                          TSTEXT    999
                                        *         +-----------+-----------------+-----------------------+----+-+ TSTEXT   1000
                                        *         +           +                 +                       +////+C+ TSTEXT   1001
                                        *         + G,H,I,J   +                 +                       +////+O+ TSTEXT   1002
                                        *         + OP-CODE   +     T  A  G     +      B  I  A  S       +////+M+ TSTEXT   1003
                                        *         +           +                  +                      +////+P+ TSTEXT   1004
                                        *         +-----------+-----------------+-----------------------+----+-+ TSTEXT   1005
                                        *                    12       18                   24                 1  TSTEXT   1006
                                                                                                                 TSTEXT   1007
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    59
        /TABLES  T A B L E   DEFINITIONS. 
  
                                                                                                                 TSTEXT   1008
                                         LI12     DEFINE 48,12       *GHIJ* OP-CODE PORTION                      TSTEXT   1009
                                         LTAG     DEFINE 30,18       *K* - ADDRESS PORTION                       TSTEXT   1010
                                                                     WILL BE A TAG OR SHORT CONSTANT             TSTEXT   1011
                                         LBIAS    DEFINE 12,18                                                   TSTEXT   1012
                                         LNEG     DEFINE 0           COMPLEMENT TAG                              TSTEXT   1013
                                                                     IF = 1 COMPLEMENT THE ADDRESS OF THE TAG    TSTEXT   1014
                                                                                                                 TSTEXT   1015
                                                                                                                 TSTEXT   1016
                                        *  3.     PSEUDO - INSTRUCTIONS (GH=00)                                  TSTEXT   1017
                                        *         +-----------+-----------------+-----------+-----------------+  TSTEXT   1018
                                        *         +           +                 +           +                 +  TSTEXT   1019
                                        *         +   I.XX    +    T A G        +  LINE NO. +    L O C N      +  TSTEXT   1020
                                        *         +           +                 +           +                 +  TSTEXT   1021
                                        *         +-----------+-----------------+-----------+-----------------+  TSTEXT   1022
                                        *              12            18             12            18             TSTEXT   1023
                                   0     I.BSS    EQU    0000B       *LOCN BSS  TAG*                             TSTEXT   1024
                                         TRC      DEFINE 18,12                                                   TSTEXT   1025
                                         LOCN     DEFINE 0,18        LOCATION FIELD.  THIS IS THE ONLY WAY TO    TSTEXT   1026
                                                                     DEFINE A TAG WITHIN THE COMPILED CODE.  IF  TSTEXT   1027
                                                                     LOCN IS < C.CON IT IS A *FORCE UPPER* ONLY, TSTEXT   1028
                                                                     AND WILL NOT CAUSE A TAG TO BE CREATED.     TSTEXT   1029
                                                                                                                 TSTEXT   1030
                                        *         TAG    NUMBER OF WORDS TO BE RESERVED.  USUALLY ZERO.          TSTEXT   1031
                                                                                                                 TSTEXT   1032
                                                                                                                 TSTEXT   1033
                                        **        I.CALL             +RJ   TAG                                   TSTEXT   1034
                                        *                            -VFD 12/LINE NO.,18/TRACEBACK WORD          TSTEXT   1035
                                                                                                                 TSTEXT   1036
                                   1     I.CALL   EQU    0001B       RJ WITH TRACE                               TSTEXT   1037
                                                                                                                 TSTEXT   1038
                                                                                                                 TSTEXT   1039
                                        **        I.RJ               RJ   TAG                                    TSTEXT   1040
                                        *                            BSS  0                                      TSTEXT   1041
                                                                                                                 TSTEXT   1042
                                   2     I.RJ     EQU    0002B       RETURN JUMP                                 TSTEXT   1043
                                                                                                                 TSTEXT   1044
                                                                                                                 TSTEXT   1045
                                        **        I.JP               JP   TAG + (B)                              TSTEXT   1046
                                        *                            BSS  0                                      TSTEXT   1047
                                                                                                                 TSTEXT   1048
                                   3     I.JP     EQU    3           INDEXED JUMP                                TSTEXT   1049
                                                                                                                 TSTEXT   1050
                                                                                                                 TSTEXT   1051
                                        **        I.EQ               EQ   B0,B0,TAG                              TSTEXT   1052
                                        *                            BSS  0                                      TSTEXT   1053
                                                                                                                 TSTEXT   1054
                                   4     I.EQ     EQU    4           UNCONDITIONAL JUMP                          TSTEXT   1055
                                        ****                                                                     TSTEXT   1056
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    60
        /TABLES  T A B L E   DEFINITIONS.                             MISC
  
                                        ****      MISCELLEANOUS FIELDS                                           TSTEXT   1058
                                                                                                                 TSTEXT   1059
                                                                                                                 TSTEXT   1060
                                         LCON     DEFINE 18,9        LENGTH OF *HOLLERITH* CONSTANT              FCC0844     6
                                         CLCON    DEFINE 27,15       CHARACTER LENGTH OF *HOLLERITH* CONSTANT    FCC0844     7
                                         SHC      DEFINE 42,18       SHORT CONSTANT                              TSTEXT   1063
                                                                                                                 TSTEXT   1064
                                        ****                                                                     TSTEXT   1065
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    61
        /TABLES  T A B L E   DEFINITIONS.                             TS.ARG
  
                                        ****      TT.USE - USE COUNT OF ALL ELEMENT IN A EXPRESSION              TSTEXT   1067
                                                                                                                 TSTEXT   1068
                                        *         ENTRY FORMAT INTO USE TABLE.                                   TSTEXT   1069
                                        *                                                                        TSTEXT   1070
                                        *         +--------------+---+-----------------+-----+-------------+---+ TSTEXT   1071
                                        *         +              +   +                 +     +             +   + TSTEXT   1072
                                        *         +  USE COUNT   +MOD+   T   A   G     + MIS +   B  I  A  S+PAR+ TSTEXT   1073
                                        *         +              +   +                 +     +             +   + TSTEXT   1074
                                        *         +--------------+---+-----------------+-----+-------------+---+ TSTEXT   1075
                                                                                                                 TSTEXT   1076
                                        * TT.USE  TABLE  3                                                       TSTEXT   1077
                                        ****                                                                     TSTEXT   1078
  
  
  
  
                                        ****      TT.SCR - ARGUMENT TAG SCRATCH TABLE.                           FEAT126C   37
                                                                                                                 TSTEXT   1081
                                                                                                                 TSTEXT   1082
                                        * TT.SCR  TABLE  3           SCRATCH TABLE.                              TSTEXT   1083
                                                                                                                 TSTEXT   1084
                                         TAG      DEFINE 42,18       ARGUMENT TAG                                TSTEXT   1085
                                        ****                                                                     TSTEXT   1086
  
  
  
  
                                        ****      TS.CON - CONSTANT VALUE TABLE                                  TSTEXT   1088
                                                                                                                 TSTEXT   1089
                                        *         59                                                          0  TSTEXT   1090
                                        *         +-----------------------------------------------------------+  TSTEXT   1091
                                        *         +                                                           +  TSTEXT   1092
                                        *         +            A C T U A L             C O N S T A N T        +  TSTEXT   1093
                                        *         +                                                           +  TSTEXT   1094
                                        *         +-----------------------------------------------------------+  TSTEXT   1095
                                        *         +                     --  60  --                            +  TSTEXT   1096
                                                                                                                 TSTEXT   1097
                                                                                                                 TSTEXT   1098
                                        * TS.CON  TABLE  3           CONSTANT VALUES                             TSTEXT   1099
                                        ****                                                                     TSTEXT   1100
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    62
        /TABLES  T A B L E   DEFINITIONS.                             TS.SYM
  
                                        **        TS.SYM - SYMBOL TABLE.                                         TSTEXT   1102
                                        *                                                                        TSTEXT   1103
                                        *         (1ST WORD OF TABLE ENTRY - SYMBOL WORD)                        TSTEXT   1104
                                        *                                                                        TSTEXT   1105
                                        *         59                                       18                 0  TSTEXT   1106
                                        *         +-----------------------------------------+-----------------+  TSTEXT   1107
                                        *         +                                         +                 +  TSTEXT   1108
                                        *         +      S  Y  M  B  O  L                   +  HASH POINTER   +  TSTEXT   1109
                                        *         +                                         +                 +  TSTEXT   1110
                                        *         +-----------------------------------------+-----------------+  TSTEXT   1111
                                        *         +                  42                     +     18          +  TSTEXT   1112
                                        *                                                                        TSTEXT   1113
                                        *                                                                        TSTEXT   1114
                                        *                                                                        TSTEXT   1115
                                        *         (2ND WORD OF TABLE ENTRY - TAG WORD)                           TSTEXT   1116
                                        *                                                                        TSTEXT   1117
                                        *         59               42   37           24    18             3   0  TSTEXT   1118
                                        *         +-----------------+--+-+------------+-----+-------------+---+  TSTEXT   1119
                                        *         +                 +//+ +            + F P +             +   +  TSTEXT   1120
                                        *         +     T  A  G     +//+N+ TP.DIM PT. +     +  C L A S S  +MOD+  TSTEXT   1121
                                        *         +                 +//+ +            + NO. +             +   +  TSTEXT   1122
                                        *         +-----------------+--+-+------------+-----+-------------+---+  TSTEXT   1123
                                        *         +       18        +3 +2+     13     +  6  +      15     + 3 +  TSTEXT   1124
  
  
  
  
                                        ****                                                                     TSTEXT   1126
                                   7     PSYM     EQU    7           LOG(2) OF SYM TAB HASH BASE                 TSTEXT   1127
                                        ****                         (= NUMBER OF BITS TO HASH.)                 TSTEXT   1128
                                   7     A        DECMIC PSYM                                                    FCC0813     7
                                 200     LSYM     EQU    1S"A"                                                   TSTEXT   1130
                                                                                                                 TSTEXT   1131
                                        * TS.SYM  TABLE  5,LSYM      SYMBOLS                                     TSTEXT   1132
                                                                                                                 TSTEXT   1133
                                        ****                                                                     TSTEXT   1134
                                         SYM      DEFINE 18,42       VARIABLE NAME                               TSTEXT   1135
                                         TNAM     DEFINE 0,18        HASH CHAIN LINK                             TSTEXT   1136
                                        ****                                                                     TSTEXT   1137
                                                                                                                 TSTEXT   1138
                                         VERR.    MICRO  1,, 5R-ERR- ERROR SYMBOL                                TSTEXT   1139
  
  
  
  
                                        **** 1.   GENERAL FIELD DEFINITION FOR *TAG* ENTRY.                      TSTEXT   1141
                                                                                                                 TSTEXT   1142
                                                                                                                 TSTEXT   1143
                                         TGB      DEFINE 55,5        TAG TYPE                                    TSTEXT   1144
                                         PWF      DEFINE 42,13       TAG ORDINAL                                 TSTEXT   1145
                                         TAG      DEFINE P.PWF,L.PWF+L.TGB                                       TSTEXT   1146
                                         FPS      DEFINE 39,1        ON IF FP USED AS SUBSCRIPT                  TSTEXT   1147
                                         LEVN     DEFINE 37,2        LEVEL NUMBER IF LEV CLASS BIT ON            TSTEXT   1148
                                         PNT      DEFINE 24,13       GENERAL POINTER FIELD --                    TSTEXT   1149
                                                                     FOR ARRAYS IT IS THE TP.DIM ORDINAL.        TSTEXT   1150
                                                                     IF NLST OR ENT, = ADDRESS.                  TSTEXT   1151
                                                                                                                 TSTEXT   1152
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    63
        /TABLES  T A B L E   DEFINITIONS.                             TAG 
  
                                                                                                                 TSTEXT   1153
                                         FPNO     DEFINE 18,6        FORMAL PARAMETER NUMBER.  ZERO IF NOT.      TSTEXT   1154
                                                                     VALUE IS 1 TO 63.  DEFINED ONLY WHEN --     TSTEXT   1155
                                                                     A.  *VAR* BIT IS SET (PROGRAMMER VARIABLE). TSTEXT   1156
                                                                     B.  *NVAR* SET, AND NONE OF (*BEF*, *ASF*,  TSTEXT   1157
                                                                         NOR *INLINE*) IS SET -- I. E.,          TSTEXT   1158
                                                                         FOR A PROGRAMMER *SUBROUTINE* OR        TSTEXT   1159
                                                                         *FUNCTION*.                             TSTEXT   1160
                                                                                                                 TSTEXT   1161
                                         UARGC    DEFINE 24,6        ARGUMENT COUNT = NUMBER OF ARGUMENTS TO     TSTEXT   1162
                                                                     A USER SUBROUTINE OR FUNCTION.              TSTEXT   1163
                                        *                NOTE -- BE VERY CAREFUL ABOUT THE DIFFERENCE BETWEEN    TSTEXT   1164
                                        *                            THIS FIELD AND *ARGC*.                      TSTEXT   1165
                                        ****                                                                     TSTEXT   1166
                                                                                                                 TSTEXT   1167
                                         CLASS    DEFINE 3,15        *CLASS* OF SYMBOL                           TSTEXT   1168
                                                                                                                 TSTEXT   1169
                                        ****                                                                     TSTEXT   1170
                                        *         NOTE - THESE DEFINES REPLACE THOSE FORMERLY GENERATED BY THE   TSTEXT   1171
                                        *         CLASS MACRO, WITH P.CLASS AS BASE.                             TSTEXT   1172
                                                                                                                 TSTEXT   1173
                                         DEF      DEFINE P.CLASS+0                                               TSTEXT   1174
                                         FP       DEFINE P.CLASS+1                                               TSTEXT   1175
                                         ENT      DEFINE P.CLASS+2                                               TSTEXT   1176
                                         EXT      DEFINE P.CLASS+3                                               TSTEXT   1177
                                         LEV      DEFINE P.CLASS+4   IS A LEVEL VARIABLE                         TSTEXT   1178
                                         ARY      DEFINE P.CLASS+5                                               TSTEXT   1179
                                         NLST     DEFINE P.CLASS+6                                               TSTEXT   1180
                                         EQUIV    DEFINE P.CLASS+7                                               TSTEXT   1181
                                         COMM     DEFINE P.CLASS+8                                               TSTEXT   1182
                                         VAR      DEFINE P.CLASS+9                                               TSTEXT   1183
                                         NVAR     DEFINE P.CLASS+10                                              TSTEXT   1184
                                         RP       DEFINE P.CLASS+11                                              TSTEXT   1185
                                         TYP      DEFINE P.CLASS+12                                              FCC1237     6
                                         EST      DEFINE P.CLASS+13  APPEARS IN EXTERNAL STATEMENT               FCC1716X    6
                                                                                                                 TSTEXT   1186
                                         CLASS2   DEFINE P.ENT,P.RP+1-P.ENT                                      TSTEXT   1187
                                                                                                                 TSTEXT   1188
                                        ****                                                                     TSTEXT   1189
                                        *         NOTE - THESE DEFINES REPLACE THOSE FORMERLY GENERATED BY THE   TSTEXT   1190
                                        *         CLASS MACRO, WITH P.ENT AS BASE.                               TSTEXT   1191
                                                                                                                 TSTEXT   1192
                                         ENT=     DEFINE P.ENT+0                                                 TSTEXT   1193
                                         EXT=     DEFINE P.ENT+1                                                 TSTEXT   1194
                                         FUN      DEFINE P.ENT+2                                                 TSTEXT   1195
                                         BEF      DEFINE P.ENT+3                                                 TSTEXT   1196
                                         SUB      DEFINE P.ENT+4                                                 TSTEXT   1197
                                         ASF      DEFINE P.ENT+5                                                 TSTEXT   1198
                                         INLINE   DEFINE P.ENT+6                                                 TSTEXT   1199
                                        ****      SYMBOL TABLE ENTRY FORMAT FOR EITHER *BEF* OR *INTRINSIC*      TSTEXT   1200
                                        *                                                                        TSTEXT   1201
                                        *         +-----------------+---+-+-+--------+--+-----+-------------+--+ FCC0966     5
                                        *         +                 +///+B+A+ SHIFT  +A + NUM +             +M + FCC0966     6
                                        *         +   T    A    G   +///+E+N+ COUNT  +R + OF  +  C L A S S  +O + FCC0966     7
                                        *         +                 +///+F+S+  OR    +G + ARGS+             +D + FCC0966     8
                                        *         +                 +///+F+I+ ADDRESS+M +     +             +E + FCC0966     9
                                        *         +-----------------+---+-+-+--------+--+-----+-------------+--+ FCC0966    10
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    64
        /TABLES  T A B L E   DEFINITIONS.                             TAG 
  
                                        *                18            7        9      3   6         15      3   TSTEXT   1208
                                                                                                                 TSTEXT   1209
                                                                                                                 TSTEXT   1210
                                         ARGMF    DEFINE 24,3                                                    TSTEXT   1211
                                         JPADF    DEFINE 27,9                                                    TSTEXT   1212
                                         ANSIF    DEFINE 36,1                                                    TSTEXT   1213
                                         BEFF     DEFINE 37,1                                                    TSTEXT   1214
                                                                                                                 TSTEXT   1216
                                         ARGC     DEFINE 18,6        ARGUMENT COUNT = NUMBER OF ARGUMENTS TO     TSTEXT   1217
                                                                     AN *NVAR*.  DEFINED ONLY FOR A *BEF*, *ASF* TSTEXT   1218
                                                                     OR *INLINE*.                                TSTEXT   1219
                                        *                NOTE -- BE VERY CAREFUL ABOUT THE DIFFERENCE BETWEEN    TSTEXT   1220
                                        *                            THIS FIELD AND *UARGC*.                     TSTEXT   1221
                                                                                                                 TSTEXT   1222
                                         ASFP     DEFINE 24,18       ASF SKELETON POINTER - DEFINED ONLY FOR ASF FCC1201     4
                                        ****                                                                     TSTEXT   1224
  
  
  
  
                                        **** 4.   MODE - THE FOLLOWING SYMBOLS DEFINE THE MODE A SYMBOL MAY HAVE TSTEXT   1226
                                        *                ON ENTRY TO THE SYMBOL TABLE.                           TSTEXT   1228
                                                                                                                 TSTEXT   1229
                                                                                                                 TSTEXT   1230
                                         MODE     DEFINE 0,P.CLASS   *MODE* OF ELEMENT.                          TSTEXT   1231
                                                                                                                 TSTEXT   1232
                                   7     M.MODE   EQU    7           UPPER LIMIT VALUE OF MODE,                  TSTEXT   1233
                                                                                                                 TSTEXT   1234
                                   0     M.UNIV   EQU    0           CHAMELEON.                                  TSTEXT   1235
                                   1     M.LOG    EQU    1           LOGICAL                                     TSTEXT   1236
                                   2     M.INT    EQU    2           INTEGER                                     TSTEXT   1237
                                   3     M.REAL   EQU    3           REAL                                        TSTEXT   1238
                                                                                                                 TSTEXT   1239
                                         LONG     DEFINE 2           IS A DOUBLE-WORD ELEMENT,                   TSTEXT   1240
                                   4     M.DBL    EQU    4           DOUBLE PRECISION,                           TSTEXT   1241
                                   5     M.CPLX   EQU    5           COMPLEX,                                    TSTEXT   1242
                                                                                                                 TSTEXT   1243
                                   5     L.TYPE   EQU    M.CPLX      NUMBER OF DIFFERENT (HONEST) TYPES.         TSTEXT   1244
                                                                                                                 TSTEXT   1245
                                   6     M.CHAR   EQU    6           CHAR STRING WITH LIST-DIRECTED I/O          TSTEXT   1246
                                   6     M.NAML   EQU    6           NAMELIST (FAKE)                             TSTEXT   1247
                                   7     M.SUBRT  EQU    7           SUBROUTINE (FAKE)                           TSTEXT   1248
                                                                                                                 TSTEXT   1249
                               20100     M.SYSEXT EQU    M.NVAR+M.EXT      FOR STANDARD SYSTEM ROUTINES.         TSTEXT   1250
                               20710     M.BEFF   EQU    M.NVAR+M.EXT+M.FUN+M.BEF+M.DEF                          TSTEXT   1251
                               24210     M.INLF   EQU    M.NVAR+M.INLINE+M.FUN+M.DEF                             TSTEXT   1252
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    65
        /TABLES  T A B L E   DEFINITIONS.                             TA.NAM
  
                                        ****      TA.NAM - VARIABLE ADDRESS TABLE                                TSTEXT   1254
                                                                                                                 TSTEXT   1255
                                        *         +-----------------+-----+-----------+-----------------------+  TSTEXT   1256
                                        *         +                 +/////+           + OVER   +    BLOCK     +  TSTEXT   1257
                                        *         +   TAG  ORDINAL  +/////+ BLOCK NO. +        +   RELATIVE   +  TSTEXT   1258
                                        *         +                 +/////+           + FLOW   +   ADDRESS    +  TSTEXT   1259
                                        *         +-----------------+-----+-----------+-----------------------+  TSTEXT   1260
                                        *         PARALLEL TO TT.NAM.                                            TSTEXT   1261
                                        *         THIS TABLE IS ALLOCATED TWICE, FIRST WHEN DECLARATIVES ARE     TSTEXT   1262
                                        *                CLOSED, AND AGAIN AT *END* TIME.                        TSTEXT   1263
                                                                                                                 TSTEXT   1264
                                        * TA.NAM  TABLE  3           ADDRESS OF VARIABLES                        TSTEXT   1265
                                                                                                                 TSTEXT   1266
                                         TAG      DEFINE 42,18       TAG (ORDINAL ONLY)                          TSTEXT   1267
                                         BLOCK    DEFINE 24,12       TS.BLK ORDINAL                              TSTEXT   1268
                                         RELADD   DEFINE  0,24       BLOCK-RELATIVE ADDRESS                      TSTEXT   1269
                                        ****                                                                     TSTEXT   1270
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    66
        /TABLES  T A B L E   DEFINITIONS.                             TS.STN
  
                                        ****      TS.STN - STATEMENT NUMBER TABLE.                               TSTEXT   1272
                                        *         (1ST WORD OF TABLE - SYMBOL WORD)                              TSTEXT   1273
                                        *         59                                       18                 0  TSTEXT   1274
                                        *         +-----------------------------------------+-----------------+  TSTEXT   1275
                                        *         +                                         +                 +  TSTEXT   1276
                                        *         +   S T A T E M E N T      L A B E L      +  HASH POINTER   +  TSTEXT   1277
                                        *         +                                         +                 +  TSTEXT   1278
                                        *         +-----------------------------------------+-----------------+  TSTEXT   1279
                                        *         +                   42                    +      18         +  TSTEXT   1280
                                                                                                                 TSTEXT   1281
                                   5     PSTN     EQU    5           LOG(2) OF NUM OF STAT TAB ENTRIES           TSTEXT   1282
                                   5     A        DECMIC PSTN                                                    FCC0813     8
                                  40     LSTN     EQU    1S"A"                                                   TSTEXT   1284
                                                                                                                 TSTEXT   1285
                                        * TS.STN  TABLE  4,LSTN      STATEMENT NUMBER TABLE                      TSTEXT   1286
                                         SERR.    MICRO  1,, 5R(ERR) ERROR LABEL FOR STATEMENT ERROR             TSTEXT   1287
                                         STN      DEFINE 18,30       STATEMENT NUMBER (R-JUST, ZERO FILL)        TSTEXT   1288
                                                                                                                 TSTEXT   1289
                                        *         (2ND WORD OF TABLE ENTRY - TAG WORD)                           TSTEXT   1290
                                        *         +-----------------+-----------------+------------+----------+  TSTEXT   1291
                                        *         +                 +                 +            +          +  TSTEXT   1292
                                        *         +     T  A  G          ADDRESS        LINK POINT.+  CLASS   +  TSTEXT   1293
                                        *         +                 +                 +            +          +  TSTEXT   1294
                                        *         +-----------------+-----------------+------------+----------+  TSTEXT   1295
                                        *                                                                        TSTEXT   1296
                                                                                                                 TSTEXT   1297
                                         TAG      DEFINE 42,18                                                   TSTEXT   1298
                                         SNAD     DEFINE 24,18                                                   TSTEXT   1299
                                         SLINK    DEFINE 11,13                                                   TSTEXT   1300
                                         SNCLS    DEFINE 0,11                                                    TSTEXT   1301
                                                                                                                 TSTEXT   1302
                                        *         SNCLS FIELD DEFINITION                                         TSTEXT   1303
                                                                                                                 TSTEXT   1304
                                         SNREF    DEFINE 0           IF STATEMENT NUMBER REFERENCED              TSTEXT   1305
                                         SNDEF    DEFINE 1           IF     -      -     DEFINED.                TSTEXT   1306
                                         SNINA    DEFINE 2           IF     -      -     IS INACTIVE             TSTEXT   1307
                                         SNE      DEFINE 3           IF     -      -     IS ENTRY TO *DO*        TSTEXT   1308
                                         SNX      DEFINE 4           IF     -      -     IS EXIT FROM *DO*       TSTEXT   1309
                                         SNNS     DEFINE 5                               IF NESTED *DO*          TSTEXT   1310
                                         SNEX     DEFINE 6                               IF EXTERNAL CALL IN DO  TSTEXT   1311
                                         SNLAB    DEFINE 7           IF     -      -    IS CONTROL               TSTEXT   1312
                                         SNFMT    DEFINE 8           IF     -      -     IS A FORMAT NUMBER      TSTEXT   1313
                                         SNDOT    DEFINE 9           IF     -      -     DO-TERMINATOR           TSTEXT   1314
                                         SNOPE    DEFINE 10          DO LOOP IS OPEN - (EXTENDED RANGE.)         TSTEXT   1315
                                                                     (CAN ONLY BE SET ON TAGS HAVING *SNDOT* BIT TSTEXT   1316
                                                                      SET.)                                      TSTEXT   1317
                                        ****                                                                     TSTEXT   1318
                                         #FID     IFNE   .FID,0                                                  F66FCC     44
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    67
        /TABLES  T A B L E   DEFINITIONS.                             T.LNT 
  
                                        ****      T.LNT - LINE NUMBER TABLE                                      F66FCC     46
                                                                                                                 F66FCC     47
                                        *                          42    36                18                 0  F66FCC     48
                                        *         +-----------------+-----+-----------------+-----------------+  F66FCC     49
                                        *         +                 +/////+                 +                 +  F66FCC     50
                                        *         +STATEMENT NUMBER +/////+   LINE NUMBER   +  LINE ADDRESS   +  F66FCC     51
                                        *         +                 +/////+                 +                 +  F66FCC     52
                                        *         +-----------------+-----+-----------------+-----------------+  F66FCC     53
                                        *                 18                      18                18           F66FCC     54
                                                                                                                 F66FCC     55
                                        * T.LNT   TABLE  4           IMAGE OF 57 LOADER TABLE                    F66FCC     56
                                                                                                                 F66FCC     57
                                                                                                                 F66FCC     58
                                         SN       DEFINE 42,18       STATEMENT NUMBER (LABEL)                    F66FCC     59
                                         LN       DEFINE 18,18       LINE NUMBER                                 F66FCC     60
                                         OCORG    DEFINE 0,18        ADDRESS OF LINE                             F66FCC     61
                                        ****                                                                     F66FCC     62
                                         #FID     ENDIF                                                          F66FCC     63
  
  
  
  
                                        ****      TT.COMM - COMMON TAG TABLE.                                    TSTEXT   1320
                                                                                                                 TSTEXT   1321
                                        *         59              42                24    18                 0   TSTEXT   1322
                                        *         +-----------------+-----+-----------+-----------------------+  TSTEXT   1323
                                        *         +                 +/////+           + OVER   +    BLOCK     +  TSTEXT   1324
                                        *         +   TAG  ORDINAL  +/////+ BLOCK NO. +        +   RELATIVE   +  TSTEXT   1325
                                        *         +                 +/////+           + FLOW   +   ADDRESS    +  TSTEXT   1326
                                        *         +-----------------+-----+-----------+-----------------------+  TSTEXT   1327
                                        *         +      18        +       18        +  6  +      18         +   TSTEXT   1328
                                                                                                                 TSTEXT   1329
                                        * TT.COMM TABLE  =,TT.USE    COMMON TAGS (PHASE 1 ONLY)                  TSTEXT   1330
                                                                                                                 TSTEXT   1331
                                         TAG      DEFINE 42,18       V- OR W- TAG                                TSTEXT   1332
                                         BLOCK    DEFINE 24,12       TS.BLK ORDINAL                              TSTEXT   1333
                                         RELADD   DEFINE  0,24       BLOCK-RELATIVE ADDRESS                      TSTEXT   1334
                                        ****                                                                     TSTEXT   1335
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    68
        /TABLES  T A B L E   DEFINITIONS.                             TP.DIM
  
                                        ****      TP.DIM - DIMENSION PARAMETER TABLE                             TSTEXT   1337
                                                                                                                 TSTEXT   1338
                                        *         5    5    4 4                      2                           TSTEXT   1339
                                        *         9    4    9 7                      4                       0   TSTEXT   1340
                                        *         +----+----+-+----------------------+-----------------------+   TSTEXT   1341
                                        *         + NR +WORD+V+T                     +T                      +   TSTEXT   1342
                                        *         +    +COUN+D+D    D I M  2         +D    D I M  1          +   TSTEXT   1343
                                        *         +DIMS+THIS+I+I          (4,6,...)  +I          (3,5,...)   +   TSTEXT   1344
                                        *         +    +NTRY+M+M                     +M                      +   TSTEXT   1345
                                        *         +----+----+-+----------------------+-----------------------+   TSTEXT   1346
                                        *         + 6  + 5  +1+        24            +           24          +   TSTEXT   1347
                                                                                                                 TSTEXT   1348
                                                                                                                 TSTEXT   1349
                                        * TP.DIM  TABLE  1,2         DIMENSION PARAMETERS                        TSTEXT   1350
                                                                                                                 TSTEXT   1351
                                                                                                                 TSTEXT   1352
                                        *         THIS TABLE HOLDS THE DIMENSIONING INFORMATION FOR EVERY ARRAY  TSTEXT   1353
                                        *                DECLARATION.  THE *PNT* FIELD OF TT.NAM (FOR AN ARRAY)  TSTEXT   1354
                                        *                CONTAINS THE ORDINAL OF THE CORRESPONDING TP.DIM ENTRY. TSTEXT   1355
                                        *                NOTE SPECIFICALLY THAT MORE THAN ONE ARRAY MAY POINT TO TSTEXT   1356
                                        *                THE SAME DIM TABLE ENTRY (HOPEFULLY, NOT UNLESS THE     TSTEXT   1357
                                        *                ARRAYS HAVE IDENTICAL DIMENSIONS).                      TSTEXT   1358
                                                                                                                 TSTEXT   1359
                                         NDIM     DEFINE 54,6        NUMBER OF DIMENSIONS OF THIS ARRAY.         TSTEXT   1360
                                         VDIM     DEFINE 29          *ON* IF THIS ARRAY IS VARIABLY DIMENSIONED. TSTEXT   1361
                                                                                                                 TSTEXT   1362
                                        *         THE NDIM, WDIM, AND VDIM FIELDS ARE PRESENT ONLY IN THE FIRST  TSTEXT   1363
                                        *                WORD OF AN ENTRY.                                       TSTEXT   1364
                                                                                                                 TSTEXT   1365
                                                                                                                 TSTEXT   1366
                                  36     P.DIM    EQU    30          POSITION OF UPPER FIELDS.                   TSTEXT   1367
                                  30     L.DIM    EQU    24          LENGTH OF EACH DIM DESCRIPTOR.              TSTEXT   1368
                                         TDIM     DEFINE L.DIM-1     TAG FLAG BIT FOR EACH DIM DESCRIPTOR.       TSTEXT   1369
                                                                       (RELATIVE POSITION WITHIN EACH FIELD.)    TSTEXT   1370
                                                                     SET IF THIS DESCRIPTOR IS A TAG ORDINAL     TSTEXT   1371
                                                                     INSTEAD OF A NUMBER                         TSTEXT   1372
                                         SDIM     DEFINE P.TDIM-1    INDICATE VARIABLE DIMENSION ALREADY DEFINED TSTEXT   1373
                                                                     IN LOCAL *V-TAG* CELL.                      TSTEXT   1374
                                         CDIM     DEFINE P.SDIM-1    INDICATE THIS DIMENSIONALITY WITHIN A       TSTEXT   1375
                                                                     VARIABLE DIMENSIONED ARRAY IS A CONSTANT.   TSTEXT   1376
                                                                                                                 TSTEXT   1377
                                        *         OBVIOUSLY, IF ANY OF THE *TDIM* BITS IN AN ENTRY ARE SET, THE  TSTEXT   1378
                                        *                *VDIM* BIT WILL BE SET ALSO.                            TSTEXT   1379
                                                                                                                 TSTEXT   1380
                                        *         THE LOWER 48 BITS ARE DIVIDED INTO TWO 24 BIT FIELDS WHICH     TSTEXT   1381
                                        *                CONTAIN THE DIMENSIONALITY DESCRIPTORS.                 TSTEXT   1382
                                        *         COUNTING DIMENSIONS IN THE SOURCE STATEMENT FROM LEFT TO RIGHT TSTEXT   1383
                                        *                DIMENSION NUMBER ONE IS IN THE LOWER DIM FIELD OF THE   TSTEXT   1384
                                        *                FIRST WORD.  THE UPPER BYTE IS DIM 2.                   TSTEXT   1385
                                        *         SUCCEEDING WORDS CONSIST OF MORE DIM FIELDS, THE LOWER ONE     TSTEXT   1386
                                        *                ALWAYS CONTAINING AN ODD DIMENSIONALITY, AND THE UPPER  TSTEXT   1387
                                        *                WITH THE (NEXT) EVEN ONE.  THIS CONTINUES FOR AS MANY   TSTEXT   1388
                                        *                WORDS AS ARE NECESSARY TO REPRESENT THE ARRAY.          TSTEXT   1389
                                        *         UNUSED FIELDS (WHEN AN ARRAY HAS AN ODD NUMBER OF DIMENSIONS)  TSTEXT   1390
                                        *                ARE ZERO.  A LOWER DESCRIPTOR CAN NEVER BE ZERO.        TSTEXT   1391
                                                                                                                 TSTEXT   1392
                                         DIMOS    DEFINE 0,L.DIM     INITIAL ARRAY OFFSET.  USED BY SUBSCRIPT    TSTEXT   1393
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    69
        /TABLES  T A B L E   DEFINITIONS.                             TP.DIM
  
                                                                     PROCESSORS.                                 TSTEXT   1394
                                        *         DIMOS  =  SIGMA [1@J@N, PI (0@K@J-1, DIM(K)) ]                 TSTEXT   1395
                                                                                                                 TSTEXT   1396
                                         DIMLG    DEFINE P.DIM,L.DIM       ARRAY SIZE.  TOTAL NUMBER OF ELEMENTS TSTEXT   1397
                                                                     NOT NUMBER OF WORDS (UNLESS ELEMENT LENGTH  TSTEXT   1398
                                                                     = 1 WORD).                                  TSTEXT   1399
                                                                                                                 TSTEXT   1400
                                        *         THESE TWO FIELDS ARE IN ONE WORD AS THE LAST WORD OF THE       TSTEXT   1401
                                        *                ENTRY.  THEY ARE NOT KNOWN FOR A VARIABLY DIMENSIONED   TSTEXT   1402
                                        *                ARRAY, AND THEREFORE THIS WORD IS NOT PRESENT IF *VDIM* TSTEXT   1403
                                        *                IS SET.                                                 TSTEXT   1404
                                        ****                                                                     TSTEXT   1405
  
  
  
  
                                        ****      TP.DO - DO PARAMETER TABLE.                                    TSTEXT   1407
                                        *                                                                        TSTEXT   1408
                                        *         (6 WORD TABLE ENTRY FORMAT)                                    TSTEXT   1409
                                        *         1ST FOUR ENTRYS USE THE TAG ENTRY FORMAT FOR *TS.SYM*          TSTEXT   1410
                                        *         1.  INITIAL VARIABLE.    (M1)                                  TSTEXT   1411
                                        *         2.  LIMIT   VARIABLE.    (M2)                                  TSTEXT   1412
                                        *         3.  INCREMENT VARIABLE.  (M3)                                  TSTEXT   1413
                                        *         4.  CONTROL VARIABLE.    (CI)                                  TSTEXT   1414
                                        *         5.  RETURN ADDRESS TAG.                                        TSTEXT   1415
                                        *         6.  DO STATEMENT NUMBER.                                       TSTEXT   1416
                                                                                                                 TSTEXT   1417
                                                                                                                 TSTEXT   1418
                                        * TP.DO   TABLE  2           DO PARAMETER TABLE                          TSTEXT   1419
                                                                                                                 TSTEXT   1420
                                   0     OR.DOSI  EQU    0           ORDINAL OF INITIAL (STARTING) VALUE TAG.    TSTEXT   1421
                                   1     OR.DOLI  EQU    1              -    -  LIMIT VALUE TAG.                 TSTEXT   1422
                                   2     OR.DOII  EQU    2              -    -  INCREMENT VALUE TAG.             TSTEXT   1423
                                   3     OR.DOCI  EQU    3              -    -  CONTROL VALUE TAG.               TSTEXT   1424
                                   4     OR.DORT  EQU    4              -    -  RETURN ADDRESS TAG.              TSTEXT   1425
                                   5     OR.DOSN  EQU    5           ORDINAL OF DO STATEMENT TAG.                TSTEXT   1426
                                         DOTAG    DEFINE 18,18       IF *DO* IS AN I/O TYPE OR.DOSN CONTAINS     TSTEXT   1427
                                                                     GENERATED TAG FOR DO IN LOW ORDER OF WORD   TSTEXT   1428
                                                                     IF NOT AN I/O DO TAG FOR STATEMENT IS       TSTEXT   1429
                                                                     SHIFTED UP BY P.DOTAG.                      TSTEXT   1430
                                                                                                                 TSTEXT   1431
                                   5     OR.DFLAG EQU    5           ORDINAL IN TURPLE FOR *DO* BEGIN OF FLAG    TSTEXT   1432
                                        *                            TO INDICATE TO PASS *2* PROCESSING OF *DO*  TSTEXT   1433
                                        *                            WHERE *DO* BEGIN *TURPLE* IS LOCATED IN     TSTEXT   1434
                                        *                            PARSED FILE.                                TSTEXT   1435
                                                                                                                 TSTEXT   1436
                                         DFLAG    DEFINE 42,18       FIELD FOR *DO* BEGIN *TURPLE* RELATIVE      TSTEXT   1437
                                        *                            ADDRESS FOR PASS *2* AND PASS *3*           TSTEXT   1438
                                        *                            PROCESSING.                                 TSTEXT   1439
                                                                                                                 TSTEXT   1440
                                   6     L.DOE    EQU    6           LENGTH OF EACH *DO* ENTRY.                  TSTEXT   1441
                                        ****                                                                     TSTEXT   1442
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    70
        /TABLES  T A B L E   DEFINITIONS.                             TT.EQU
  
                                        ****      TT.EQU - EQUIVALENCE TAG TABLE.                                TSTEXT   1444
                                        *         USED TO ACCUMULATE EQUIVALENCE INFORMATION DURING DECLARATIVE  TSTEXT   1445
                                        *                PROCESSING.  THROWN AWAY AFTER IT IS PROCESSED INTO     TSTEXT   1446
                                        *                TP.EQU AT *XUT* TIME.                                   TSTEXT   1447
                                                                                                                 TSTEXT   1448
                                                                                                                 TSTEXT   1449
                                        * TS.EQU  TABLE  1           TRANSLATED EQUIVALENCE STATEMENTS           TSTEXT   1450
                                                                                                                 TSTEXT   1451
                                         EQLINK   DEFINE 48,12       LINK TO ROOT                                TSTEXT   1452
                                         EQHI     DEFINE 24,24       SPACE ABOVE ROOT NEEDED                     TSTEXT   1453
                                         EQLO     DEFINE  0,24       SPACE BELOW ROOT NEEDED                     TSTEXT   1454
                                        ****                                                                     TSTEXT   1455
  
  
  
  
                                        ****      TP.EQU - EQUIVALENCE PARAMETER TABLE.                          TSTEXT   1457
                                        *         CONTAINS EQUIVALENCE PAIRS AND OFFSETS.                        TSTEXT   1458
                                                                                                                 TSTEXT   1459
                                                                                                                 TSTEXT   1460
                                        * TP.EQU  TABLE  =,TS.EQU    EQUIVALENCE PARAMETER TABLE                 TSTEXT   1461
                                                                                                                 TSTEXT   1462
                                         EQU2     DEFINE P.TAG,L.TAG  SECONDARY NAME TAG                         TSTEXT   1463
                                         EQU1     DEFINE 24,L.TAG    PRIMARY NAME TAG                            TSTEXT   1464
                                         EQUB     DEFINE 0,24        BIAS:  ADDR[PRIMARY]+BIAS = ADDR[SECONDARY] TSTEXT   1465
                                        ****                                                                     TSTEXT   1466
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    71
        /TABLES  T A B L E   DEFINITIONS.                             TP.FMT
  
                                        ****      TP.FMT - FORMATS AND NAMELIST GROUPS                           TSTEXT   1468
                                                                                                                 TSTEXT   1469
                                                                                                                 TSTEXT   1470
                                        * TP.FMT  TABLE  3                                                       TSTEXT   1471
                                        ****                                                                     TSTEXT   1472
  
  
  
  
                                        ****      TT.ASF - *ASF* SKELETON TABLE.                                 TSTEXT   1474
                                        *         CAN BE TRASHED AT *END* STATEMENT TIME.                        TSTEXT   1475
                                                                                                                 TSTEXT   1476
                                                                                                                 TSTEXT   1477
                                        * TT.ASF  TABLE  2                                                       TSTEXT   1478
                                        ****                                                                     TSTEXT   1479
  
  
  
  
                                        ****      TT.PAR - PARSED FILE.                                          TSTEXT   1481
                                                                                                                 TSTEXT   1482
                                                                                                                 TSTEXT   1483
                                        * TT.PAR  TABLE  3                                                       TSTEXT   1484
                                                                                                                 TSTEXT   1485
                                                                                                                 TSTEXT   1486
                                        **        PARSED FILE ENTRY ORDINAL DEFINITIONS.                         TSTEXT   1487
                                        *                ORDINALS ARE GIVEN RELATIVE TO EACH TURPLE.             TSTEXT   1488
                                                                                                                 TSTEXT   1489
                                   3     L.TURP   EQU    3           LENGTH OF EACH TURPLE.                      TSTEXT   1490
                                                                                                                 TSTEXT   1491
                                   0     OR.OPR   EQU    0           ORDINAL OF  OPERATOR.                       TSTEXT   1492
                                   1     OR.1OP   EQU    1           ORDINAL OF  FIRST OPERAND.                  TSTEXT   1493
                                   2     OR.2OP   EQU    2           ORDINAL OF  SECOND OPERAND.                 TSTEXT   1494
                                        ****                                                                     TSTEXT   1495
  
  
  
  
                                        **        T.VDIM - VARIABLE DIMENSION PRE-SET TURPLES.                   TSTEXT   1497
                                        *                                                                        TSTEXT   1498
                                        *         TURPLES FOR PRE-COMPUTING VARIABLE DIMENSION SUBSCRIPT         TSTEXT   1499
                                        *         TERMS ARE ACCUMULATED IN THIS TABLE.  WHEN THE *END* STATEMENT TSTEXT   1500
                                        *         IS ENCOUNTERED, THESE TURPLES ARE COMPILED INTO THE OBJECT     TSTEXT   1501
                                        *         PROGRAM.                                                       TSTEXT   1502
                                                                                                                 TSTEXT   1503
                                                                                                                 TSTEXT   1504
                                        * T.VDIM  TABLE  1           VARIABLE DIMENSION TURPLES.                 TSTEXT   1505
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    72
        /TABLES  T A B L E   DEFINITIONS.                             TP.NLST 
  
                                        ****      TP.NLST - TABLE OF "NAMELIST" GROUPS.                          TSTEXT   1507
                                        *         NAMELIST GROUP DEFINITIONS ARE STORED IN HERE.                 TSTEXT   1508
                                        *         THE *ARR* FIELD OF THE TT.NAM ENTRY OF A NAMELIST-GROUP NAME   TSTEXT   1509
                                        *                POINTS INTO THIS TABLE.                                 TSTEXT   1510
                                                                                                                 TSTEXT   1511
                                                                                                                 TSTEXT   1512
                                        * TP.NLST TABLE  1                                                       TSTEXT   1513
                                        ****                                                                     TSTEXT   1514
  
  
  
  
                                        ****      TP.APL - TABLE OF ACTUAL PARAMETER LISTS.                      TSTEXT   1516
                                        *         ORDINALS OF *AL-TAGS* POINT INTO THIS TABLE.                   TSTEXT   1517
                                                                                                                 TSTEXT   1518
                                                                                                                 TSTEXT   1519
                                        * TP.APL  TABLE  3           ACTUAL PARAMETER LISTS                      TSTEXT   1520
                                                                                                                 TSTEXT   1521
                                        *         TAG AND BIAS FIELDS MUST HAVE SAME POSITION RELATIVE TO EACH   TSTEXT   1522
                                        *                OTHER AS THEY DO IN THE LONG FILE.  MUST ALSO BE SAME   TSTEXT   1523
                                        *                LENGTH.                                                 TSTEXT   1524
                                                                                                                 TSTEXT   1525
                                         ATAG     DEFINE 42,L.TAG    TAG (VAR, CON, OR TEM)                      TSTEXT   1526
                                         ABIAS    DEFINE 24,L.LBIAS                                              TSTEXT   1527
                                                  IFNE   P.LTAG-P.LBIAS,P.ATAG-P.ABIAS,1                         TSTEXT   1528
                                                  ERR    AP-LIST AND LONG FILE TAG/BIAS FIELDS OUT OF SYNCH.     TSTEXT   1529
                                                                                                                 TSTEXT   1530
                                         ASIZ     DEFINE 0,13        FOR AN I/O ITEM, THIS IS NBREL,             TSTEXT   1531
                                                                     VALUE DEPENDS ON (ATYP) --                  TSTEXT   1532
                                         ATYP     DEFINE 13,3                                                    TSTEXT   1533
                                   1     AP=SIZ   EQU    1           1 _ ASIZ IS ELEMENT LENGTH                  TSTEXT   1534
                                   2     AP=CON   EQU    2           2 _ ASIZ IS CON-TAG ORDINAL                 TSTEXT   1535
                                   3     AP=TEM   EQU    3           3 _ ASIZ IS TEM-TAG ORDINAL.                TSTEXT   1536
                                   4     AP=PRO   EQU    4           4 _ ASIZ IS PRO-TAG ORDINAL                 TSTEXT   1537
                                   5     AP=UIOC  EQU    5           5 _ ASIZ IS OUTPUT CONTROL                  TSTEXT   1538
                                                                                                                 TSTEXT   1539
                                         AVAR     DEFINE 16          SET *VAR* BIT IN THE I/O LIST               TSTEXT   1540
                                         AFIT     DEFINE 17          SET *FIT* BIT IN THE I/O LIST               TSTEXT   1541
                                         ALCM     DEFINE 20          SET *LCM* BIT IN THE I/O LIST               TSTEXT   1544
                                                                                                                 TSTEXT   1545
                                         APIO     DEFINE 0,21        IF ENTIRE FIELD IS ZERO, THIS IS NOT AN     TSTEXT   1546
                                                                     I/O ITEM, BUT MERELY A NORMAL AP-LIST       TSTEXT   1547
                                                                     ENTRY, SAVING *KAP* MUCH GRIEF.             TSTEXT   1548
                                                                     A LEVEL 3 ITEM GETS TREATED AS AN I/O ITEM, TSTEXT   1549
                                                                     AGAIN SAVING *KAP* SOME GRIEF.              TSTEXT   1550
                                                                                                                 TSTEXT   1551
                                        **        AN OBJECT-LIBRARY (I/O) AP-LIST ENTRY HAS THE FOLLOWING FORMAT TSTEXT   1552
                                        *                IN THE BINARY --                                        TSTEXT   1553
                                                                                                                 TSTEXT   1554
                                         IOLCM    DEFINE 59          ITEM IS LCM/ECS RESIDENT                    TSTEXT   1555
                                         IOFIT    DEFINE 59          ITEM IS A VARIABLE FIT INDICATOR.           TSTEXT   1556
                                         IOFP     DEFINE 58          ITEM IS A FORMAL PARAMETER.                 TSTEXT   1557
                                         IOIND    DEFINE 57          ITEM IS INDIRECTLY REFERENCED.              TSTEXT   1558
                                                                     (FOR AN ACTUAL LIST-VARIABLE, THE ITEM      TSTEXT   1559
                                                                     LENGTH IS INDIRECTED.)                      TSTEXT   1560
                                         IOTYP    DEFINE 48,L.MODE TYPE OF ITEM                                  TSTEXT   1563
                                         IOSIZ    DEFINE 30,18       ADDRESS OF WORD CONTAINING NUMBER OF        TSTEXT   1564
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    73
        /TABLES  T A B L E   DEFINITIONS.                             TP.APL
  
                                                                     ELEMENTS IN THIS I/O LIST ITEM, WHEN        TSTEXT   1565
                                                                     *IOIND* IS SET.                             TSTEXT   1566
                                         IOLEN    DEFINE 24,24       LENGTH OF I/O ITEM WHEN *IOIND* IS NOT SET. TSTEXT   1567
                                         IOADDR   DEFINE 0,L.ABIAS   ADDRESS OF THE ITEM.                        TSTEXT   1568
                                         IOARG    DEFINE 0,6         F.P. ORDINAL, WHEN *IOFP* IS SET.           TSTEXT   1569
                                        ****                                                                     TSTEXT   1570
  
  
  
  
                                        ****      TP.ILI - TABLE OF INPUT LIST ITEMS                             TSTEXT   1572
                                        *         INPUT VARIABLES AND ARRAY NAMES ARE STORED IN THIS TABLE IN    TSTEXT   1573
                                        *         THE FORM OF PASS 2 TAGS.  ARRAY SUBSCRIPTS ARE CHECKED FOR     TSTEXT   1574
                                        *         MATCHES WITH THE ITEMS IN THE TABLE.  I/O RESTART CALLS WILL   TSTEXT   1575
                                        *         BE FORCED WHEN A MATCH IS FOUND.                               TSTEXT   1576
                                                                                                                 TSTEXT   1577
                                                                                                                 TSTEXT   1578
                                        *TP.ILI   TABLE  3           INPUT LIST ITEMS                            TSTEXT   1579
                                        ****                                                                     TSTEXT   1580
  
  
  
  
                                        ****      TA.PRO - TABLE OF PROGRAM ADDRESSES.                           TSTEXT   1582
                                        *         EVENTUALLY CONTAINS THE ADDRESS OF ALL PROGRAM TAGS.           TSTEXT   1583
                                        *         ORDINALS OF *L-TAGS* POINT INTO THIS TABLE.                    TSTEXT   1584
                                                                                                                 TSTEXT   1585
                                                                                                                 TSTEXT   1586
                                        * TA.PRO  TABLE  3,4                                                     TSTEXT   1587
                                        ****                                                                     TSTEXT   1588
  
  
  
  
                                        ****      TS.DAT - DATA STATEMENT TABLE.                                 TSTEXT   1590
                                                                                                                 TSTEXT   1591
                                                                                                                 TSTEXT   1592
                                        * TS.DAT  TABLE  1                                                       TSTEXT   1593
                                                                                                                 TSTEXT   1594
                                        *         THE ENTRIES IN THIS TABLE ARE DIRECTIVES TO THE END PROCESSOR  TSTEXT   1595
                                        *                TO OUTPUT THE NECESSARY LOADER TEXT.                    TSTEXT   1596
                                        *         THE TYPE OF AN ENTRY IS GIVEN BY THE EXPONENT FIELD --         TSTEXT   1597
                                                                                                                 TSTEXT   1598
                                        *  .S            OUTPUT A SHORT (@ 2**48-1 IN MAGNITUDE) CONSTANT.       TSTEXT   1599
                                        *                                                                        TSTEXT   1600
                                        *  .W            OUTPUT A FULL WORD OF DATA (TWO WORD ENTRY).            TSTEXT   1601
                                        *                            DATUM IN THE NEXT TABLE WORD.               TSTEXT   1602
                                        *                                                                        TSTEXT   1603
                                        *  .O            RESET THE ORIGIN COUNTER TO --                          TSTEXT   1604
                                                                                                                 TSTEXT   1605
                                         DTAG     DEFINE 48-L.TAG,L.TAG    VARIABLE ADDRESS                      TSTEXT   1606
                                         DBIAS    DEFINE P.DTAG-L.LBIAS,L.LBIAS     OFFSET                       TSTEXT   1607
                                                                                                                 TSTEXT   1608
                                        *  .R            OUTPUT A REPLICATION TABLE (TWO WORD ENTRY) --          TSTEXT   1609
                                        *         WORD 1,  (DTAG) = BLOCK LENGTH                                 TSTEXT   1610
                                        *                  (17-00) = REPLICATION COUNT +1                        TSTEXT   1611
                                        *         WORD 2,  (DTAG)  =  ADDRESS INCREMENT                          TSTEXT   1612
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    74
        /TABLES  T A B L E   DEFINITIONS.                             TS.DAT
  
                                        *                  (17-00) =  DESTINATION ADDRESS                        TSTEXT   1613
                                                                                                                 TSTEXT   1614
                                                                                                                 TSTEXT   1615
                                        *         DIL - DATA INITIALIZATION LIST POINTERS.                       TSTEXT   1616
                                        *          FORMAT:  24/0,18/FWA OF DVL,18/FWA OF DIL                     TSTEXT   1617
                                        *         BUILT BY A BACKWARDS SCAN OF THE DATA STATEMENT.               TSTEXT   1618
                                                                                                                 TSTEXT   1619
                                        * TL.DAT  TABLE  =,TT.USE    AUX DATA TABLE, LOCAL TO EACH DATA STMNT.   TSTEXT   1620
                                                                                                                 TSTEXT   1621
                                         DLVAR    DEFINE 18,18       FWA OF DVL (VARIABLE LIST)                  TSTEXT   1622
                                         DLITM    DEFINE  0,18       FWA OF DIL (  ITEM   LIST)                  TSTEXT   1623
                                                                                                                 TSTEXT   1624
                                                                                                                 TSTEXT   1625
                                        * TI.DAT  TABLE  =,TT.SCR    AUX DATA TABLE, LOCAL TO EACH DATA STMNT.   TSTEXT   1626
                                                                     CONTAINS CONSTANTS FOUND IN THE STATEMENT   TSTEXT   1627
                                                                     AND REP FACTORS, PLUS OTHER GOODIES.        TSTEXT   1628
                                                                                                                 TSTEXT   1629
                                         DIWC     DEFINE  0,18       WORD COUNT                                  TSTEXT   1630
                                         DINDX    DEFINE 18,18       INDEX FIELD                                 TSTEXT   1631
                                         DIRL     DEFINE 36,18       REP LIST ITEM COUNT                         TSTEXT   1632
                                         DICIF    DEFINE 54,3        CONSTANT ITEM FACTOR                        TSTEXT   1633
                                        *                            NOTE.  THE ABOVE FIELD USED TO BE 5 BITS    TSTEXT   1634
                                        *                            LONG, BUT WAS TRUNCATED TO 3 ON THE         TSTEXT   1635
                                        *                            ADDITION OF THE *DNEGH* FIELD.              TSTEXT   1636
                                                                     = 1 OR 2 IF ALL ITEMS ARE THE SAME LENGTH,  TSTEXT   1637
                                                                     AND LENGTH = 1 OR 2, ELSE ZERO.             TSTEXT   1638
                                         DNEGH    DEFINE 57          SET IF A MINUS SIGN PRECEEDED A HOLL        TSTEXT   1639
                                         DIHOL    DEFINE 58          IF THIS IS A HOLLERITH CONSTANT             TSTEXT   1640
                                         DIREP    DEFINE 59          IF THIS IS A REP COUNT                      TSTEXT   1641
                                                                                                                 TSTEXT   1642
                                  72     P.SDPF   EQU    58                SINGLE/DOUBLE PRECISION FLAG          TSTEXT   1643
                                  44     P.CTYP   EQU    36          CONSTANT TYPE FIELD POSITION                FCC1563X    7
                                  22     P.SYMORD EQU    18                SYMTAB ORD IN BITS 18-35              TSTEXT   1644
                                        ****                                                                     TSTEXT   1645
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    75
        /TABLES  T A B L E   DEFINITIONS.                             T.FILE
  
                                        ****      T.FILE - DESCRIPTIONS OF PROGRAMMER FILES.                     TSTEXT   1647
                                        *                                                                        TSTEXT   1648
                                        *         NOTE   ALTHOUGH LOGICALLY A DISTINCT TABLE, THIS INFORMATION   TSTEXT   1649
                                        *                PHYSICALLY RESIDES IN THE FIRST PART OF TS.DAT.         TSTEXT   1650
                                        *                                                                        TSTEXT   1651
                                        *         WORD 1 --                                                      TSTEXT   1652
                                        *                42/ 0L FILENAME                                         TSTEXT   1653
                                        *                18/ -GARBAGE-                                           TSTEXT   1654
                                        *         WORD 2 --                                                      TSTEXT   1655
                                        *                 1/ EQUIVALENCED FLAG                                   FEAT126C   38
                                        *                 5/ -GARBAGE-                                           FEAT126C   39
                                        *                18/ TAG OF BUFFER ADDRESS                               TSTEXT   1657
                                        *                18/ FIT ADDRESS                                         TSTEXT   1658
                                        *                18/ BUFFER LENGTH                                       TSTEXT   1659
                                        *         WORD 3 --                                                      FEAT126C   40
                                        *                 1/ 0 = VALID ENTRY                                     FEAT126C   41
                                        *                    1 = NO ENTRY                                        FEAT126C   42
                                        *                 5/ -GARBAGE-                                           FEAT126C   43
                                        *                18/ RECORD LENGTH TAG                                   FEAT126C   44
                                        *                18/ -GARBAGE-                                           FEAT126C   45
                                        *                18/ RECORD LENGTH                                       FEAT126C   46
                                        *                                                                        TSTEXT   1660
                                        *         THE END OF THE TABLE IS MARKED BY AN ALL-ZERO WORD.            TSTEXT   1661
                                        *         THUS, ITS LENGTH IS =  2*(NARGS)+1                             TSTEXT   1662
                                                                                                                 TSTEXT   1663
                                                                                                                 TSTEXT   1664
                                        * T.FILE  TABLE  =,TS.DAT                                                TSTEXT   1665
                                                                                                                 TSTEXT   1666
                                                                                                                 TSTEXT   1667
                                         FNAM     DEFINE 18,7*CHAR   FILE NAME                                   TSTEXT   1668
                                                                                                                 TSTEXT   1669
                                         FEQU     DEFINE 59          EQUIVALENCED FILE FLAG                      TSTEXT   1670
                                         FBUF     DEFINE 36,18       BUFFER TAG                                  TSTEXT   1671
                                         FFIT     DEFINE 18,18       FIT ADDRESS                                 TSTEXT   1672
                                         FLEN     DEFINE  0,18       BUFFER LENGTH                               TSTEXT   1673
                                   4     L.BTRB   EQU    4           WIDTH OF RELOCATION BYTE                    F162FTNA   42
                                   3     L.LIST   EQU    3           LENGTH OF *Q8NTRY* *LIST* AP-LIST           F162FTNA   43
                                  12     L.FIT1   EQU    10          RELATIVE POSITION OF 2ND HALF FIT TO FIT RA F162FTNA   44
                                   3     L.REPI   EQU    3           LENGTH OF REPL TABLE                        F162FTNA   45
                                         BTBFS    DEFINE 0,18        FIT *BFS* (CIRC BUFFER SIZE) FIELD          F162FTNA   46
                                         BTWSA    DEFINE 0,18        FIT *WSA* FIELD                             F162FTNA   47
                                         BTMRL    DEFINE 36,24       FIT *MRL* FIELD                             F162FTNA   48
                                         BTRA     DEFINE 0,18        REPL SOURCE AND DESTINATION FIELDS          F162FTNA   49
                                         BTRI     DEFINE 27,18       REPL DESTINATION INCREMENT                  F162FTNA   50
                                         BTRC     DEFINE 42,18       REPL REPLICATION COUNT                      F162FTNA   51
                                         BTCN     DEFINE 48,12       CODE NUMBER                                 F162FTNA   52
                                         BTWC     DEFINE 36,12       WORD COUNT                                  F162FTNA   53
                                         BTRL     DEFINE 18,9        RELOCATION BASE                             F162FTNA   54
                                         BTYP     DEFINE 17          BLOCK TYPE (PIDL DESCRIPTORS)               F162FTNA   55
                                         FREC     DEFINE 36,18       WSA TAG                                     F162FTNA   56
                                         FRCL     DEFINE 0,18        MRL                                         F162FTNA   57
                                         BTXRL    DEFINE 0,9         XLINK RELOCATION BASE                       FCCA408    13
                                         BTXSZ    DEFINE 18,6        XLINK ADDRESS FIELD LENGTH                  FCCA408    14
                                         BTXPS    DEFINE 24,6        XLINK ADDRESS FIELD POSITION                FCCA408    15
                                         BTXRA    DEFINE 30,24       XLINK RELATIVE ADDRESS                      FCCA408    16
                                  36     L.STLF   EQU    30          LENGTH OF WEAK EXT. TABLE FIELD             FCCA408    17
                                        ****                                                                     TSTEXT   1674
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    76
        /TABLES  T A B L E   DEFINITIONS.                             TT.REF
  
                                        ****      TT.REF - CROSS REFERENCE TABLE.                                TSTEXT   1676
                                                                                                                 TSTEXT   1677
                                                                                                                 TSTEXT   1678
                                        * TT.REF  TABLE  4                                                       TSTEXT   1679
                                                                                                                 TSTEXT   1680
                                         TAG      DEFINE 42,18       TAG                                         TSTEXT   1681
                                         CRLIN    DEFINE 6,22        LINE NUMBER OF REFERENCE                    FEAT155E   13
                                         CRUSE    DEFINE  0,6        USAGE LETTER                                TSTEXT   1683
                                        *                                                                        TSTEXT   1684
                                        *         POSSIBLE ENTRY CONDITIONS TO TT.REF                            TSTEXT   1685
                                        *                                                                        TSTEXT   1686
                                                                                                                 TSTEXT   1687
                                        *         STATEMENT NUMBERS                                              TSTEXT   1688
                                                                                                                 TSTEXT   1689
                                   6     CR.FMT   EQU    1RF                                                     TSTEXT   1690
                                  14     CR.LAB   EQU    1RL                                                     TSTEXT   1691
                                   1     CR.AGN   EQU    1RA                                                     TSTEXT   1692
                                  55     CR.GOTO  EQU    1R                                                      TSTEXT   1693
                                   4     CR.DO    EQU    1RD                                                     TSTEXT   1694
                                   3     CR.IFN   EQU    1RC         CONDITIONAL USAGE.                          TSTEXT   1695
                                                                                                                 TSTEXT   1696
                                        *         VARIABLES/FUNCTIONS                                            TSTEXT   1697
                                                                                                                 TSTEXT   1698
                                  55     CR.REF   EQU    1R                                                      TSTEXT   1699
                                  54     CR.STR   EQU    1R=         STORE                                       TSTEXT   1700
                                   1     CR.PAR   EQU    1RA                                                     TSTEXT   1701
                                   1     CR.CALL  EQU    1RA         CALL ARGUMENT.                              TSTEXT   1702
                                   4     CR.DEC   EQU    1RD         DECLARATIVE STATEMENT                       TSTEXT   1703
                                  11     CR.DAT   EQU    1RI         DATA INITIALIZED                            TSTEXT   1704
                                   7     CR.VGOTO EQU    1RG         VARIABLE USED IN GOTO.                      TSTEXT   1705
                                   1     CR.INF   EQU    1RA         INSIDE FUNCTION.                            TSTEXT   1706
                                  22     CR.INP   EQU    1RR         INPUT  STATEMENT                            TSTEXT   1707
                                   5     CR.NTR   EQU    1RE         ENTRY POINT                                 TSTEXT   1708
                                  23     CR.ARY   EQU    1RS         SUBSCRIPT                                   TSTEXT   1709
                                  27     CR.OUT   EQU    1RW         OUTPUT STATEMENT                            TSTEXT   1710
                                  30     CR.SUB   EQU    1RX                                                     TSTEXT   1711
                                   3     CR.DOI   EQU    1RC         DO LOOP CONTROL                             TSTEXT   1712
                                   6     CR.IF    EQU    1RF                                                     TSTEXT   1713
                                        ****                                                                     TSTEXT   1714
  
  
  
  
                                        ****      TS.BLK - COMMON BLOCK NAME TABLE.                              TSTEXT   1716
                                        *         CONTAINS COMMON BLOCK NAMES AND LENGTHS.                       TSTEXT   1717
                                        *         ZEROTH ENTRY IS NOT USED:  IT IS A PSUEDO-BLOCK FOR PROGRAM-   TSTEXT   1718
                                        *                RELATIVE ADDRESS GAMES.                                 TSTEXT   1719
                                                                                                                 TSTEXT   1721
                                                                                                                 TSTEXT   1722
                                        * TS.BLK  TABLE  1,2*2                                                   TSTEXT   1723
                                                                                                                 TSTEXT   1724
                                         SYM      DEFINE 18,42       BLOCK NAME                                  TSTEXT   1725
                                         CTAG     DEFINE 42,18       ECS/LCM POINTER TAG                         TSTEXT   1726
                                         LVLFLD   DEFINE 38,4        LEVEL DOPE                                  TSTEXT   1727
                                         CNFL     DEFINE 41          LEVEL CONFLICT BIT                          TSTEXT   1728
                                         DFLT     DEFINE 40          LEVEL DEFAULT BIT                           TSTEXT   1729
                                         BLVL     DEFINE 38,2        BLOCK LEVEL                                 TSTEXT   1730
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    77
        /TABLES  T A B L E   DEFINITIONS.                             TS.BLK
  
                                         BLEN     DEFINE 0,24        BLOCK LENGTH                                TSTEXT   1731
                                                                                                                 TSTEXT   1732
                                        **        THERE IS 1 POINTER WORD FOR EACH ECS/LCM COMMON BLOCK.         TSTEXT   1733
                                        *         IT IS REFERENCED VIA THE PROGRAM TAG STORED IN *CTAG*.         TSTEXT   1734
                                        *         THE CNFL BIT IS ON IF NAMES IN THE COMMON BLOCK ARE ASSIGNED   TSTEXT   1735
                                        *                TO CONFLICTING LEVELS.                                  TSTEXT   1736
                                        *         THE DFLT BIT IS ON IF ONE OR MORE NAMES ARE DEFAULTED TO THE   TSTEXT   1737
                                        *                LEVEL ESTABLISHED FOR THE BLOCK.                        TSTEXT   1738
                                                                                                                 TSTEXT   1739
                                        ****                                                                     TSTEXT   1741
  
  
  
  
                                        ****      TS.ENT - ENTRY POINT TABLE.                                    TSTEXT   1743
                                                                                                                 TSTEXT   1744
                                                                                                                 TSTEXT   1745
                                        * TS.ENT  TABLE  1                                                       TSTEXT   1746
                                                                                                                 TSTEXT   1748
                                         SYM      DEFINE 18,42       NAME                                        TSTEXT   1749
                                         EORD     DEFINE 0,18        ORDINAL INTO TT.NAM                         TSTEXT   1750
                                        ****                                                                     TSTEXT   1751
  
  
  
  
                                        ****      TT.FILL - TABLE TO ACCUMULATE *FILL* BYTES FOR BINARY OUTPUT.  TSTEXT   1753
                                                                                                                 TSTEXT   1754
                                                                                                                 TSTEXT   1755
                                        * TT.FILL TABLE  =,TT.COMM                                               TSTEXT   1756
                                        ****                                                                     TSTEXT   1757
  
  
  
  
                                        ****      TT.LINK - TABLE TO ACCUMULATE *LINK* BYTES FOR BINARY OUTPUT.  TSTEXT   1759
                                                                                                                 TSTEXT   1760
                                                                                                                 TSTEXT   1761
                                        * TT.LINK TABLE  =,TS.EQU                                                TSTEXT   1762
                                        ****                                                                     TSTEXT   1763
  
  
  
  
                                        ****      TT.XFIL - TABLE TO ACCUMULATE *XFILL* WORDS FOR BINARY OUTPUT  TSTEXT   1765
                                                                                                                 TSTEXT   1766
                                                                                                                 TSTEXT   1767
                                        * TT.XFIL TABLE  =,TT.SCR                                                TSTEXT   1768
                                        ****                                                                     TSTEXT   1769
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    78
        /TABLES  T A B L E   DEFINITIONS. 
  
                                        ****      TN.EXT - TEMPORARY TABLE OF EXTERNAL NAMES.                    TSTEXT   1771
                                        *         USED ONLY BY VARIABLE MAP ROUTINES.                            TSTEXT   1772
                                                                                                                 TSTEXT   1773
                                                                                                                 TSTEXT   1774
                                        * TN.EXT  TABLE  =,TP.EQU                                                TSTEXT   1775
                                        ****                                                                     TSTEXT   1776
  
  
  
  
                                        ****      TN.BLK - TEMPORARY TABLE OF BLOCK NAMES.                       TSTEXT   1778
                                        *         USED ONLY BY VARIABLE MAP ROUTINES.                            TSTEXT   1779
                                        *         CONTAINS NAMES ONLY, ONE WORD PER NAME.  // ADDED.             TSTEXT   1780
                                        *         ORDERED BY BLOCK NUMBER.                                       TSTEXT   1781
                                                                                                                 TSTEXT   1782
                                                                                                                 TSTEXT   1783
                                        * TN.BLK  TABLE  =,TT.LF     BLOCK NAMES.                                TSTEXT   1784
                                        ****                                                                     TSTEXT   1785
  
  
  
  
                                        ****      T.END - MUST BE THE LAST TABLE.                                TSTEXT   1787
                                                                                                                 TSTEXT   1788
                                                                                                                 TSTEXT   1789
                                        * T.END   TABLE  0           DUMMY FOR MANAGER                           TSTEXT   1790
                                        ****                                                                     TSTEXT   1791
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    79
        /DEF  SYMBOL DEFINITIONS. 
  
                                         DEF      SECT   (SYMBOL DEFINITIONS.),1                                 TSTEXT   1793
  
  
  
  
  
                                        **        CBSS - MACRO TO COMPILE A *BSS* OPERATION                      TSTEXT   1795
                                        *                                                                        TSTEXT   1796
                                        *         CBSS   LOC,SIZE,REG                                            TSTEXT   1797
                                        *                                                                        TSTEXT   1798
                                        *         *LOC*  = LOCATION TAG TO BE DEFINED (= 1 FOR FORCE UPPER ONLY) TSTEXT   1799
                                        *         *SIZE* = AMOUNT OF SPACE TO RESERVE (= 0 FOR DEFINITION ONLY)  TSTEXT   1800
                                        *         *REG*  = REGISTER TO COMPILE FROM (*X7* ASSUMED IF OMITTED)    TSTEXT   1801
                                        *                  IF OMITTED, INSTRUCTION WILL BE FORMED IN THE         TSTEXT   1802
                                        *                  SPECIFIED REGISTER, BUT WILL NOT BE STORED TO CORE.   TSTEXT   1803
                                                                                                                 TSTEXT   1804
                                                                                                                 TSTEXT   1805
                                         CBSS     MACRO  LOC,SIZE,REG                                            TSTEXT   1806
                                         A        MICRO  1,, X7                                                  TSTEXT   1807
                                                  IFC    NE,*REG**,1                                             TSTEXT   1808
                                         A        MICRO  1,, REG                                                 TSTEXT   1809
                                                  R=     "A",LOC                                                 TSTEXT   1810
                                                  IFC    EQ,*REG**,1                                             TSTEXT   1811
                                                  WCODE  X7                                                      TSTEXT   1812
                                         CBSS     ENDM                                                           TSTEXT   1813
                                                                                                                 TSTEXT   1814
                                                                                                                 TSTEXT   1815
                                        **        CRJ -  COMPILE CALL TO *CRJ* TO COMPILE *RJ* TO EXTERNAL       TSTEXT   1816
                                        * EXAMPLES---                                                            TSTEXT   1817
                                        *                                                                        TSTEXT   1818
                                        *    1.-- CRJ                                                            TSTEXT   1819
                                        *         SX1    B1          ALLOW TRACE INFORMATION TO BE COMPILED      TSTEXT   1820
                                        *         RJ     CRJ                                                     TSTEXT   1821
                                        *                                                                        TSTEXT   1822
                                        *    2.-- CRJ    ALLOW                                                   TSTEXT   1823
                                        *         SX1    B1          ALLOW TRACE INFORMATION TO BE COMPILED      TSTEXT   1824
                                        *         RJ     CRJ                                                     TSTEXT   1825
                                        *                                                                        TSTEXT   1826
                                        *    3.-- CRJ    NONE                                                    TSTEXT   1827
                                        *         SX1    B0          DO NOT COMPILE TRACE INFORMATION            TSTEXT   1828
                                        *         RJ     CRJ                                                     TSTEXT   1829
                                        *                                                                        TSTEXT   1830
                                        *    4.-- CRJ    MUST                                                    TSTEXT   1831
                                        *         SX1    -B1         MUST COMPILE TRACE INFORMATION              TSTEXT   1832
                                        *         RJ     CRJ                                                     TSTEXT   1833
                                                                                                                 TSTEXT   1834
                                                                                                                 TSTEXT   1835
                                         CRJ      MACRO  TYPE                                                    TSTEXT   1836
                                         A        MICRO  1,1, TYPE                                               TSTEXT   1837
                                        .1        IFC    EQ,**"A"*                                               TSTEXT   1838
                                                  =X1    1                                                       TSTEXT   1839
                                        .1        ENDIF                                                          TSTEXT   1840
                                         .2       IFC    EQ,*A*"A"*                                              TSTEXT   1841
                                                  =X1    1                                                       TSTEXT   1842
                                         .2       ENDIF                                                          TSTEXT   1843
                                         .3       IFC    EQ,*N*"A"*                                              TSTEXT   1844
                                                  BX1    0                                                       TSTEXT   1845
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    80
        /DEF  SYMBOL DEFINITIONS.                                     CBSS
  
                                         .3       ENDIF                                                          TSTEXT   1846
                                         .4       IFC    EQ,*M*"A"*                                              TSTEXT   1847
                                                  =X1    -1                                                      TSTEXT   1848
                                         .4       ENDIF                                                          TSTEXT   1849
                                                  RJ     CRJ                                                     TSTEXT   1850
                                         CRJ      ENDM                                                           TSTEXT   1851
  
  
  
  
                                        **        DRITE - MACRO TO BE USED FOR CHECKING DELAYED STORE ACTIVITY   TSTEXT   1853
                                        *                ARGUMENT *CONTROL* MAY BE --                            TSTEXT   1854
                                        *                  A.  *DEACTIVATE = DEACTIVATES ANY DELAYED STORE IN    TSTEXT   1855
                                        *                                    PROGRESS.                           TSTEXT   1856
                                        *                  B.  *X1-X7*     = DEACTIVATE DELAYED STORE ONLY IF    TSTEXT   1857
                                        *                                    (X1-X7) = (DRITE).                  TSTEXT   1858
                                                                                                                 TSTEXT   1859
                                                                                                                 TSTEXT   1860
                                         DRITE    MACRO  CONTROL                                                 TSTEXT   1861
                                        .1        IFC    EQ,*CONTROL*DEACTIVATE*                                 TSTEXT   1862
                                                  BX0    0                                                       TSTEXT   1863
                                        .1        ELSE                                                           TSTEXT   1864
                                         .2       IFC    NE,*CONTROL*X0*                                         TSTEXT   1865
                                                  BX0    CONTROL                                                 TSTEXT   1866
                                         .2       ENDIF                                                          TSTEXT   1867
                                        .1        ENDIF                                                          TSTEXT   1868
                                                  RJ     =XCDS                                                   TSTEXT   1869
                                         DRITE    ENDM                                                           TSTEXT   1870
  
  
  
  
                                        **        WCODE - WRITE INTERMEDIATE CODE FILE.                          TSTEXT   1872
                                        *                                                                        TSTEXT   1873
                                        *         WCODE   REG,RETURN                                             TSTEXT   1874
                                        *                                                                        TSTEXT   1875
                                        *         REG =   ANY *X* REGISTER, (X7)                                 TSTEXT   1876
                                        *         RETURN = RETURN ADDRESS.  *+1 ASSUMED IF OMITTED.              TSTEXT   1877
                                        *                            (B2) IS NATURAL REGISTER.                   TSTEXT   1878
                                        *                                                                        TSTEXT   1879
                                        *         USED FOR WRITING *ALL* INTERMEDIATE CODE TO INTERMEDIATE FILE  TSTEXT   1880
                                        *                                                                        TSTEXT   1881
                                        *         CALLS  WIN                                                     TSTEXT   1882
                                                                                                                 TSTEXT   1883
                                                                                                                 TSTEXT   1884
                                         WCODE    MACRO  R,RETURN                                                TSTEXT   1885
                                                  IFC    NE,/X7/R/,1                                             TSTEXT   1886
                                                  BX7    R                                                       TSTEXT   1887
                                         +        =B2    RETURN   *+1                                            TSTEXT   1888
                                                  JP     =XWIN                                                   TSTEXT   1889
                                         WCODE    ENDM                                                           TSTEXT   1890
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    81
        /DEF  SYMBOL DEFINITIONS. 
  
                                                                                                                 TSTEXT   1893
                              100000     C.SCR    EQU    10BS12      SCRATCH TAG FOR STATUS OF OPERANDS IN       TSTEXT   1894
                                                                     TT.SCR DURING PASS *2* PROCESSING.          TSTEXT   1895
                              200000     C.BASE   EQU    20BS12                                                  TSTEXT   1896
                               20000     C.DIF    EQU    2BS12                                                   TSTEXT   1897
                                                                                                                 TSTEXT   1898
                              200000     C.VAR    EQU    20BS12      TAG FOR ALL SYMBOLS IN TS/TT.NAM            TSTEXT   1899
                              200000     C.SYM    EQU    C.VAR                                                   TSTEXT   1900
                                                                                                                 TSTEXT   1902
                              240000     C.STN    EQU    24BS12      TAG FOR ALL STATEMENT NUMBERS.              TSTEXT   1903
                              240000     C.STAT   EQU    C.STN       ** TEMP **                                  TSTEXT   1904
                                                                                                                 TSTEXT   1906
                                        ****      C.PRO - *PROGRAM* TAGS FOR GENERATED LABELS.                   TSTEXT   1907
                                        *                                                                        TSTEXT   1908
                                        *         THIS TYPE OF TAG IS GENERATED IN THE FOLLOWING SITUATIONS --   TSTEXT   1909
                                        *                LOCAL *DO* LOOP LABELS.                                 TSTEXT   1910
                                        *                ACTUAL PARAMETER LIST LABELS.                           TSTEXT   1911
                                        *                TARGET FOR IMPLIED *IF* JUMP.                           TSTEXT   1912
                                        *                LABEL FOR I/O BUFFER OF EACH OBJECT-PROGRAM FILE.       TSTEXT   1913
                                        *                LABEL FOR WORKING STORAGE AREA OF OBJECT-PROGRAM FILE.  TSTEXT   1914
                                        *         WHEN A NEW *PROGRAM* TAG IS NEEDED, INCREMENT THE (*TG.PRO*)   TSTEXT   1915
                                        *                AND THE NEW VALUE IS THE TAG TO USE.  THAT IS, THE      TSTEXT   1916
                                        *                CONTENTS OF *TG.PRO* ALWAYS CONTAINS THE LAST TAG USED, TSTEXT   1917
                                        *                *NOT* THE NEXT TO BE USED.                              TSTEXT   1918
                                        *         THE FIRST FEW OF THESE TAGS HAVE PRE-DEFINED MEANINGS.  THEY   TSTEXT   1919
                                        *                ARE LISTED HERE.                                        TSTEXT   1920
                                                                                                                 TSTEXT   1921
                                                                                                                 TSTEXT   1922
                              260000     C.PRO    EQU    26BS12      PROGRAM-LOCAL TAGS                          TSTEXT   1923
                              260000     C.APL    EQU    C.PRO       ACTUAL PARAMETER LIST TAGS ARE THE SAME     TSTEXT   1924
                                                                                                                 TSTEXT   1925
                                                                                                                 TSTEXT   1926
                              260000     CT.TRAC  EQU    C.PRO       *TRACE.* = THE TRACEBACK WORD.              TSTEXT   1927
                              260001     CT.TPA0  EQU    CT.TRAC+1   *TEMPA0.* = (A0) SAVED HEREIN.              TSTEXT   1928
                              260002     CT.SVA0  EQU    CT.TPA0+1   *SAVEA0.* = (A1) SAVED IN THIS ONE.         TSTEXT   1929
                              260002     CT.TPA1  EQU    CT.SVA0                                                 F66FCC     64
                              260003     CT.FILE  EQU    CT.SVA0+1   *FILE.* = THE *Q8NTRY* FILE VECTOR.         TSTEXT   1930
                              260004     CT.INIT  EQU    CT.FILE+1   SUBPROGRAM INITIALIZATION CODE.             TSTEXT   1931
                              260005     CT.BEGIN EQU    CT.INIT+1   FIRST INSTRUCTION IN A SUBPROGRAM.          TSTEXT   1932
                              260006     CT.RETN  EQU    CT.BEGIN+1  SUBPROGRAM *RETURN* CODE.                   TSTEXT   1933
                              260007     CT.RJS   EQU    CT.RETN+1   DUMMY RJT FOR RJSUB-ING                     TSTEXT   1934
                              260007     CT.LAST  EQU    CT.RJS                                                  TSTEXT   1935
                                        ****                         FILE BUFFER TAGS ARE NEXT.                  TSTEXT   1936
                              300000     C.VDIM   EQU    30BS12      VARIABLE DIMENSION TAGS                     TSTEXT   1937
                              320000     C.TEM    EQU    32BS12      TEMPORARY TAG                               TSTEXT   1938
                              340000     C.CON    EQU    34BS12      TAG FOR ALL CONSTANTS IN TS/TT.CON.         TSTEXT   1939
                              340000     C.END    EQU    C.CON                                                   TSTEXT   1940
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    82
        /DEF  SYMBOL DEFINITIONS. 
  
                                                                                                                 TSTEXT   1942
                                        *         NOTE  THESE EQUATES ARE USED AS ORDINALS INTO THE CHARMAP      TSTEXT   1943
                                        *         TABLE.  IF THE STRUCTURE OF THAT TABLE CHANGES, THESE EQUATES  TSTEXT   1944
                                        *         MUST BE MODIFIED                                               TSTEXT   1945
                                                                                                                 TSTEXT   1946
                                   0     O.DEF    EQU    0                                                       TSTEXT   1947
                                   0     O.EOS    EQU    0                                                       TSTEXT   1948
                                   1     O.HOLL   EQU    1                                                       TSTEXT   1949
                                   2     O.CONS   EQU    2                                                       TSTEXT   1950
                                   3     O.VAR    EQU    3                                                       TSTEXT   1951
                                   4     O.PL     EQU    4                                                       TSTEXT   1952
                                   4     O.SEP    EQU    O.PL                                                    TSTEXT   1953
                                   5     O.MIN    EQU    5                                                       TSTEXT   1954
                                   6     O.STAR   EQU    6                                                       TSTEXT   1955
                                   6     O.MULT   EQU    O.STAR                                                  TSTEXT   1956
                                   7     O.SLASH  EQU    7                                                       TSTEXT   1957
                                   7     O.DIV    EQU    O.SLASH                                                 TSTEXT   1958
                                  10     O.LP     EQU    8                                                       TSTEXT   1959
                                  10     O.(      EQU    O.LP                                                    TSTEXT   1960
                                  11     O.RP     EQU    9                                                       TSTEXT   1961
                                  11     O.)      EQU    O.RP                                                    TSTEXT   1962
                                  12     O.=      EQU    10                                                      TSTEXT   1963
                                  13     O.COMMA  EQU    11                                                      TSTEXT   1964
                                  13     O.SDEF   EQU    O.COMMA                                                 TSTEXT   1965
                                  14     O.LT     EQU    12                                                      TSTEXT   1966
                                  15     O.LE     EQU    13                                                      TSTEXT   1967
                                  16     O.EQ     EQU    14                                                      TSTEXT   1968
                                  17     O.NE     EQU    15                                                      TSTEXT   1969
                                  20     O.GE     EQU    16                                                      TSTEXT   1970
                                  21     O.GT     EQU    17                                                      TSTEXT   1971
                                  22     O.NOT    EQU    18                                                      TSTEXT   1972
                                  23     O.AND    EQU    19                                                      TSTEXT   1973
                                  24     O.XOR    EQU    20                                                      TSTEXT   1974
                                  25     O.OR     EQU    21                                                      TSTEXT   1975
                                  26     O.EXP    EQU    22                                                      TSTEXT   1976
                                  27     O.UMIN   EQU    23                                                      TSTEXT   1977
                                  30     O.TRUE   EQU    24                                                      TSTEXT   1978
                                  31     O.FALSE  EQU    25                                                      TSTEXT   1979
                                  32     O.SLP    EQU    26                                                      TSTEXT   1980
                                  32     O.FLP    EQU    O.SLP                                                   TSTEXT   1981
                                  32     O.ILP    EQU    O.SLP                                                   TSTEXT   1982
                                  32     O.ALP    EQU    O.SLP                                                   TSTEXT   1983
                                  32     O.S(     EQU    O.SLP                                                   TSTEXT   1984
                                  33     O.ANDN   EQU    27                                                      TSTEXT   1985
                                  34     O.XORN   EQU    28                                                      TSTEXT   1986
                                  35     O.ORN    EQU    29                                                      TSTEXT   1987
                                  36     O.$      EQU    30                                                      TSTEXT   1988
                                  37     O.PERIOD EQU    31                                                      TSTEXT   1989
                                  40     O.ASFA   EQU    32                                                      TSTEXT   1990
                                  41     O.IF     EQU    33                                                      TSTEXT   1991
                                  42     O.SPACE  EQU    34                                                      TSTEXT   1992
                                  43     O.DOB    EQU    35                                                      TSTEXT   1993
                                  44     O.DOC    EQU    36                                                      TSTEXT   1994
                                  45     O.DOC1   EQU    37                                                      TSTEXT   1995
                                  46     O.DOC2   EQU    38                                                      TSTEXT   1996
                                  47     O.ARY    EQU    39                                                      TSTEXT   1997
                                  50     O.BSS    EQU    40                                                      TSTEXT   1998
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    83
        /DEF  SYMBOL DEFINITIONS. 
  
                                  51     O.ARG1   EQU    41                                                      TSTEXT   1999
                                  52     O.ARG2   EQU    42                                                      TSTEXT   2000
                                  53     O.RJ     EQU    43                                                      TSTEXT   2001
                                  54     O.MXP    EQU    44                                                      TSTEXT   2002
                                  55     O.NTR    EQU    45                                                      TSTEXT   2003
                                  56     O.RANF   EQU    46                                                      TSTEXT   2004
                                  57     O.SHF    EQU    47                                                      TSTEXT   2005
                                  60     O.NOOP   EQU    48                                                      TSTEXT   2006
                                  61     O.ASSN   EQU    49                                                      TSTEXT   2007
                                  62     O.GOTO   EQU    50                                                      TSTEXT   2008
                                  63     O.GOTC   EQU    51                                                      TSTEXT   2009
                                  64     O.GOAS   EQU    52                                                      TSTEXT   2010
                                  65     O.MODC   EQU    53                                                      TSTEXT   2011
                                  66     O.PLUG   EQU    54                                                      TSTEXT   2012
                                  67     IO.DOC   EQU    55                                                      TSTEXT   2013
                                  70     IO.DOB   EQU    56                                                      TSTEXT   2014
                                  71     O.OTR    EQU    57                                                      FEAT155G   24
                                  72     O.XMIT   EQU    58                                                      FCC2194     5
                                  74     LG.SYM   EQU    60                                                      TSTEXT   2018
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    84
        /DEF  SYMBOL DEFINITIONS. 
  
                                        **        SB -   MICROS DEFINING POSITIONS OF CELLS IN THE STRING BUFFER TSTEXT   2020
                                                                                                                 TSTEXT   2021
                                                                                                                 TSTEXT   2022
                                   6     SB.HEAD  EQU    6           NUMBER OF HEADER CELLS ON *SB*              TSTEXT   2023
                                         SB.LN    MICRO  1,, A0+1                                                TSTEXT   2024
                                         SB.STN   MICRO  1,, A0+2                                                TSTEXT   2025
                                         SB.KEY   MICRO  1,, A0+3                                                TSTEXT   2026
                                         SB.FWA   MICRO  1,, A0+SB.HEAD                                          TSTEXT   2027
                                         SB.BOS   MICRO  1,, CST.BOS                                             TSTEXT   2028
                                                                                                                 TSTEXT   2029
                                  52     L.CDPC   EQU    7*CHAR      LENGTH OF CHARACTER *DPC* FOR OPERATOR.     TSTEXT   2033
                                        **        ALL GLOBAL MICROS.                                             TSTEXT   2035
                                                                                                                 TSTEXT   2036
                                                                                                                 TSTEXT   2037
                                         CCRMOD   BITMIC (M.REAL,M.INT,M.UNIV)                                   TSTEXT   2038
                                         CCROPS   BITMIC (O.PL,O.MIN,O.STAR,O.SLASH,O.UMIN)                      TSTEXT   2039
                                         C$*      LETMIC C$*         BIT MASK FOR CONTINUATION CARDS.            TSTEXT   2040
                                         LETHLR   LETMIC HLR         BIT MASK FOR LETTERS *H L R*                TSTEXT   2041
                                         NUM09    LETMIC 0123456789  BIT MASK FOR NUMBERS *0 - 9*                TSTEXT   2042
                                                                                                                 TSTEXT   2043
                                         INT      LETMIC IJKLMN                                                  TSTEXT   2044
                                         REAL     LETMIC ABCDEFGHOPQRSTUVWXYZ                                    TSTEXT   2045
                                                                                                                 TSTEXT   2046
                                         FMTSEP   BITMIC (1R/,1R(,1R),1R*,(1R,),1R",1R#,1R')                     TSTEXT   2047
                                         FMTSEP2  BITMIC ((1R,),1R))                                             TSTEXT   2048
                                         FMTSEP3  BITMIC (1R+,1R-)                                               TSTEXT   2049
                                         IOSEP    BITMIC (O.EOS,O.COMMA)                                         TSTEXT   2050
                                         SPOP     BITMIC (O.SLP,O.LP)                                            TSTEXT   2051
                                         SUBOPS   BITMIC (O.PL,O.MIN,O.STAR)                                     TSTEXT   2052
                                         SUBOPS1  BITMIC (O.PL,O.MIN)                                            TSTEXT   2053
                                         SUBOPS2  BITMIC (O.PL,O.MIN,O.STAR,O.ARY)                               FCC0575     4
                                                                                                                 TSTEXT   2054
                                  15     ATYP     DECMIC P.ATYP                                                  TSTEXT   2055
                                   1     AP=SIZ   DECMIC AP=SIZ                                                  TSTEXT   2056
                                   2     AP=CON   DECMIC AP=CON                                                  TSTEXT   2057
                                   3     AP=TEM   DECMIC AP=TEM                                                  TSTEXT   2058
                                   5     AP=UIOC  DECMIC AP=UIOC                                                 TSTEXT   2059
                                                                                                                 TSTEXT   2060
                                  23     ANS.CONT DECMIC ANS.CONT                                                TSTEXT   2061
                                 764     MAX.BLK  DECMIC MAX.BLK                                                 TSTEXT   2062
                                   3     MAX.DIM  DECMIC MAX.DIM                                                 TSTEXT   2063
                                  77     MAX.SARG DECMIC MAX.SARG                                                TSTEXT   2064
                                  61     MAX.PARG DECMIC MAX.PARG                                                TSTEXT   2065
                                                                                                                 TSTEXT   2066
                                   0     O.BOS    EQU    0           BEGINNING OF STATEMENT MARKER               TSTEXT   2067
                                         O.BOS    MICRO  1,, B0                                                  TSTEXT   2068
                                                  IFEQ   O.HOLL,1,1                                              TSTEXT   2069
                                         O.HOLL   MICRO  1,, B1                                                  TSTEXT   2070
                                                                                                                 TSTEXT   2071
                                         M.CON    BITMIC (O.LP,O.MIN,O.PL,O.CONS,O.HOLL,O.PERIOD,O.TRUE,O.FALSE) TSTEXT   2072
                                         M.SEP    BITMIC (O.COMMA,O.SLASH,O.RP)                                  TSTEXT   2073
                                         M.SEP1   BITMIC (O.COMMA,O.SLASH,O.LP)                                  TSTEXT   2074
                                                                                                                 TSTEXT   2075
                                         LEGT     BITMIC (O.LE,O.GT)                                             TSTEXT   2076
                                         PREUNAR  BITMIC (O.=,O.COMMA,O.LP,O.LT,O.LE,O.NE,O.EQ,O.GE,O.GT,O.AND,O TSTEXT   2077
                                        ,.NOT,O.OR,O.XOR,O.SLP)                                                  TSTEXT   2078
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    85
        /DEF  SYMBOL DEFINITIONS.                                     REGFILE 
  
                                        **        DEFINITION OF REGISTERS TO USE FOR CLASS OF REGISTER           TSTEXT   2081
                                                                                                                 TSTEXT   2082
                                                                                                                 TSTEXT   2083
                                         RUSE     DEFINE 0,9         USE COUNT                                   TSTEXT   2084
                                 400     RLOCK    EQU    1S8         LOCK REGISTER BIT                           TSTEXT   2085
                                  11     A        DECMIC L.RUSE                                                  TSTEXT   2086
                                 777     MAX.USEC EQU    1S"A"-1     MAXIMUM USE COUNT                           TSTEXT   2087
                                                                                                                 TSTEXT   2088
                                         RGTYP    DEFINE 0,18        TYPE OF REGISTER (ORDINAL INTO RGFILE)      TSTEXT   2089
                                         RGNUM    DEFINE 18,18       NUMBER OF REGISTERS IN REGISTER SCAN WORD   TSTEXT   2090
                                         RGMSK    DEFINE 36,18       MASK TO USE FOR REGISTER SCAN WORD.         TSTEXT   2091
                                         RGINS    DEFINE 54,6        6 BIT OP-CODE TO LOAD REGISTER              TSTEXT   2092
                                  20     P.RLOCK  EQU    16                                                      TSTEXT   2093
                              100000     RHUSE    EQU    1S15        HIGHEST VALUE FOR USE COUNT ON A REGISTER   TSTEXT   2094
  
  
  
  
                                        *                                                                        TSTEXT   2096
                                        *         NOTE -- THESE EQUATES ARE USED TO INDEX INTO THE REGISTER      TSTEXT   2097
                                        *         FILE.  IF THE ACTUAL CELLS ARE TO BE ADDRESSED, CHECK THE NEW  TSTEXT   2098
                                        *         NAMES IN THE REGISTER FILE.                                    TSTEXT   2099
                                        *                                                                        TSTEXT   2100
                                   0     RGFILE   EQU    0           STARTING OFFSET FOR REGISTER FILE           TSTEXT   2101
                                   0     R.B0     EQU    0                                                       TSTEXT   2102
                                   1     R.B1     EQU    1                                                       TSTEXT   2103
                                   2     R.B2     EQU    2                                                       TSTEXT   2104
                                   3     R.B3     EQU    3                                                       TSTEXT   2105
                                   4     R.B4     EQU    4                                                       TSTEXT   2106
                                   5     R.B5     EQU    5                                                       TSTEXT   2107
                                   6     R.B6     EQU    6                                                       TSTEXT   2108
                                   7     R.B7     EQU    7                                                       TSTEXT   2109
                                   0     REG.B    EQU    R.B0        *B* REGISTERS                               TSTEXT   2110
                                                                                                                 TSTEXT   2111
                                  10     R.A0     EQU    8                                                       TSTEXT   2112
                                  11     R.A1     EQU    9                                                       TSTEXT   2113
                                  12     R.A2     EQU    10                                                      TSTEXT   2114
                                  13     R.A3     EQU    11                                                      TSTEXT   2115
                                  14     R.A4     EQU    12                                                      TSTEXT   2116
                                  15     R.A5     EQU    13                                                      TSTEXT   2117
                                  16     R.A6     EQU    14                                                      TSTEXT   2118
                                  17     R.A7     EQU    15                                                      TSTEXT   2119
                                  10     REG.A    EQU    R.A0        *A* REGISTERS                               TSTEXT   2120
                                                                                                                 TSTEXT   2121
                                  20     R.X0     EQU    16                                                      TSTEXT   2122
                                  21     R.X1     EQU    17                                                      TSTEXT   2123
                                  22     R.X2     EQU    18                                                      TSTEXT   2124
                                  23     R.X3     EQU    19                                                      TSTEXT   2125
                                  24     R.X4     EQU    20                                                      TSTEXT   2126
                                  25     R.X5     EQU    21                                                      TSTEXT   2127
                                  26     R.X6     EQU    22                                                      TSTEXT   2128
                                  27     R.X7     EQU    23                                                      TSTEXT   2129
                                  20     REG.X    EQU    R.X0        *X* REGISTERS                               TSTEXT   2130
                                                                                                                 TSTEXT   2131
                                  27     L.RGFILE EQU    23                                                      TSTEXT   2132
                                         PBLK     DEFINE 8           BLOCKDATA                                   TSTEXT   2133
                                         PFNC     DEFINE 9           FUNCTION                                    TSTEXT   2134
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    86
        /DEF  SYMBOL DEFINITIONS. 
  
                                         PSUB     DEFINE 10          SUBROUTINE                                  TSTEXT   2135
                                         PPRO     DEFINE 11          PROGRAM                                     TSTEXT   2136
  
  
  
  
                                        *         CONTROLS ACTIONS OF TABLE MANAGER                              TSTEXT   2139
                                                                                                                 TSTEXT   2140
                                   0     PASS=AFS EQU    0           0 = MORE ROOM NEEDED FOR CONTINUATION CARDS TSTEXT   2141
                                   1     PASS=PAR EQU    1           1 =  PARSE.                                 TSTEXT   2142
                                   2     PASS=ARI EQU    2           2 =  ARITH, OR ANY-TIME (A7) _ LONG FILE.   TSTEXT   2143
                                   3     PASS=PIG EQU    3           3 =  DURING *PIG* PROCESSING.               TSTEXT   2144
                                   4     PASS=END EQU    4           4 =  *END* PROCESSING.                      TSTEXT   2145
                                   5     PASS=MAP EQU    5           5 =  DURING REF-MAP PROCESSING.             TSTEXT   2146
                                                                                                                 TSTEXT   2147
                                         SATAG    DEFINE 42,18       TAG FOR ARRAY PROCESSING.                   TSTEXT   2150
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    87
        /DEF  SYMBOL DEFINITIONS. 
  
                                        ****      DEFINITIONS OF CELL/VARIABLE S USED BY TS COMPILER             TSTEXT   2152
                                                                                                                 TSTEXT   2153
                                                                                                                 TSTEXT   2154
                                   3     L.PSTACK EQU    3           LENGTH OF LOCAL PAREN STACK                 TSTEXT   2155
                                                                     SUB-FIELD SET IN ARGMODE.                   TSTEXT   2156
                                         AMAD     DEFINE 0,18        AGMODE JUMP ADDRESS FOR PROCESSING PARENS   TSTEXT   2157
                                                                     OR COMMAS WHILE PARSING STATEMENT.          TSTEXT   2158
                                         AMC      DEFINE 18,18       ADDRESS FOR PROCESSING COMMA OPERATOR ABOUT TSTEXT   2159
                                                                     TO BE POPPED DURING PARSING.                TSTEXT   2160
                                                                     VALUE CONTAINED IN THIS FIELD IS ALWAYS     TSTEXT   2161
                                                                     REPRESENTED AS A C=XXX, WHICH DEFINES THE   TSTEXT   2162
                                                                     ROUTINE TO JP TO WHEN IN THE APPROPRIATE    TSTEXT   2163
                                                                     ARGMODE.                                    TSTEXT   2164
                                         AMATR    DEFINE 36,12       ATTRIBUTES FOR THIS ARGMODE                 TSTEXT   2165
                                         AMFUN    DEFINE P.AMATR     ALLOW FUNCTION REFERENCE WITHOUT *(*        TSTEXT   2166
                                         AMEOS    DEFINE P.AMATR+1   EOS UNARY CHECK                             TSTEXT   2167
                                         AMRP     DEFINE P.AMATR+2   SPECIAL CHECK ON ILLEGAL RPAREN             TSTEXT   2168
                                         AMADDR   DEFINE P.AMATR+3   ADDRESS REQUESTED (VERSUS VALUE)            TSTEXT   2169
                                         AMWHOL   DEFINE P.AMATR+4   ALLOW MULTI-WORD HOLLERITH CONSTANTS        TSTEXT   2170
                                         AMEQ     DEFINE P.AMATR+5   ALLOW *=*                                   TSTEXT   2171
                                                                                                                 TSTEXT   2172
                                         AMR      DEFINE 48,12       VALUE FOR REFERENCES TO SYMBOL FOR ZERO     TSTEXT   2173
                                                                     LEVEL SYMBOLS FOUND WHILE PARSING STATEMENT TSTEXT   2174
                                                                                                                 TSTEXT   2175
                                                                     DEFINED SUBFIELDS IN ARGCOMA                TSTEXT   2176
                                         ACC      DEFINE 0,18        DEFINED ARGUMENT COUNT FOR FUNCTION,        TSTEXT   2177
                                                                     SUBROUTINE.                                 TSTEXT   2178
                                         ACM      DEFINE 18,18       DEFINED ARGUMENT MODE FOR ARGUMENTS TO      TSTEXT   2179
                                                                     FUNCTION, SUBROUTINE, ARRAY..               TSTEXT   2180
                                                                                                                 TSTEXT   2181
                                                                                                                 TSTEXT   2182
                                        ****      PASS 2 - DEFINITION OF AN OPERAND WITHIN A *TURPLE*            TSTEXT   2183
                                                                                                                 TSTEXT   2184
                                         2TAG     DEFINE P.TAG,L.TAG       TAG                                   TSTEXT   2185
                                         2BIAS    DEFINE 24,18                                                   TSTEXT   2186
                                         2CLAS    DEFINE 9,6                                                     TSTEXT   2187
                                                                                                                 TSTEXT   2188
                                         2FPNO    DEFINE 18,6                                                    TSTEXT   2189
                                         2STAT    DEFINE 15,3                                                    TSTEXT   2190
                                         USTAT    DEFINE 0+P.2STAT   STATUS OF UPPER HALF OF TAG                 TSTEXT   2191
                                         LSTAT    DEFINE 1+P.2STAT   STATUS OF LOWER HALF OF TAG                 TSTEXT   2192
                                         TYPE     DEFINE 2+P.2STAT    TYPE OF TAG (FOR REGISTER FILE USE)        TSTEXT   2193
                                                                                                                 TSTEXT   2194
                                         2MODE    DEFINE P.MODE,L.MODE                                           TSTEXT   2195
                                                                                                                 FCC1134     5
                                        *         *ARE* BIT IS FOR COMMUNICATION BETWEEN PAR AND IO.             FCC1134     6
                                                                                                                 FCC1134     7
                                         LCF      DEFINE 6           LOCF ARGUMENT                               FCC1134     8
                                         ARE      DEFINE 7           ENTIRE ARRAY REFERENCED                     FCC1134     9
                                                                                                                 TSTEXT   2196
                                         PTAGU    DEFINE P.2TAG,L.2TAG         UPPER  18 BIT TAG                 TSTEXT   2197
                                         PTAGM    DEFINE P.2TAG-L.2TAG,L.2TAG  MIDDLE 18 BIT TAG                 TSTEXT   2198
                                         PTAGL    DEFINE 0,L.2TAG              LOWER  18 BIT TAG                 TSTEXT   2199
                                                                                                                 TSTEXT   2200
                                        **        VARIOUS BIT DEFINITIONS FOR *2CLAS* FIELD SET DURING PARSING   TSTEXT   2201
                                        *         OF A STATEMENT FOR PASS *2* PROCESSING OF A TAG.               TSTEXT   2202
                                                                                                                 TSTEXT   2203
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    88
        /DEF  SYMBOL DEFINITIONS. 
  
                                         INTR     DEFINE 0+P.2CLAS   INTERMEDIATE.                               TSTEXT   2204
                                         ADDR     DEFINE 1+P.2CLAS   SET = ADDRESS, OFF = VALUE.                 TSTEXT   2205
                                         SHORT    DEFINE 2+P.2CLAS   SHORT CONSTANT.                             TSTEXT   2206
                                         MSHORT   DEFINE P.2BIAS,6   SHORT CONSTANT THAT IS WILL BE GENERATED BY TSTEXT   2207
                                                                     *MASK* INSTRUCTION.                         TSTEXT   2208
                                                                     REPRESENTED BY A *TAG* OF *0* AND A SHIFT   TSTEXT   2209
                                                                     COUNT IN *MSHORT* FIELD.                    TSTEXT   2210
                                         SMULT    DEFINE 3+P.2CLAS   SUBSCRIPT MULTIPLIER DURING PASS *1*        TSTEXT   2211
                                         2PRO     DEFINE 3+P.2CLAS   TAG IS PROGRAM TAG                          TSTEXT   2212
                                         2EQUIV   DEFINE 4+P.2CLAS                                               TSTEXT   2213
                                         2ARY     DEFINE 5+P.2CLAS                                               TSTEXT   2214
                                                                                                                 TSTEXT   2215
                                                                                                                 TSTEXT   2216
                                        **        LAYOUT OF *TURPLE* TAG AS DEFINED BY ABOVE DEFINITIONS.        TSTEXT   2217
                                        *                                                                        TSTEXT   2218
                                        **T PASS2 18/2TAG,18/2BIAS,6/2FPNO,3/2STAT,6/2CLAS,6/0,3/M               TSTEXT   2219
                                        *                                                                        TSTEXT   2220
                                        *         M = 2MODE                                                      TSTEXT   2221
                                        ****                                                                     TSTEXT   2222
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    89
        /DEF  SYMBOL DEFINITIONS. 
  
                                        ****      FIELD DEFINITIONS FOR OPERATOR CELL.                           TSTEXT   2224
                                                                                                                 TSTEXT   2225
                                                                                                                 TSTEXT   2226
                                         SBPR     DEFINE 0,18        *SB*  PRIORITY.                             TSTEXT   2227
                                         STPR     DEFINE 18,9        STACK PRIORITY.                             TSTEXT   2228
                                         MODC     DEFINE P.STPR,L.STPR     MODE CONVERSION BITS (SET WHEN POP)   TSTEXT   2229
                                         DMOD     DEFINE 27,4        DOMINANT MODE POINTER.                      TSTEXT   2230
                                         ATTR     DEFINE 31,11       ATTRIBUTE OF OPERATOR.                      TSTEXT   2231
                                                                                                                 TSTEXT   2232
                                        *         ATTRIBUTE SUB-FIELD BIT DEFINITIONS.                           TSTEXT   2233
                                                                                                                 TSTEXT   2234
                                         AS       DEFINE P.ATTR      ASSOCIATIVE PROPERTY OPERATOR.              TSTEXT   2235
                                         COM      DEFINE P.AS+1      COMMUTATIVE PROPERTY OPERATOR.              TSTEXT   2236
                                         DIS      DEFINE P.COM+1     DISTRIBUTIVE PROPERTY OPERATOR.             TSTEXT   2237
                                         MODLS    DEFINE P.DIS+1     MODELESS OPERATOR.                          TSTEXT   2238
                                         UNAR     DEFINE P.MODLS+1   UNARY OPERATOR.                             TSTEXT   2239
                                         NSQEZ    DEFINE P.UNAR+1    IF OPERATOR IS NOT SQUEEZABLE.              TSTEXT   2240
                                         NONSTD   DEFINE P.NSQEZ+1   IF OPERATOR NOT A STANDARD - PROCESSED EXT. TSTEXT   2241
                                         OPADDR   DEFINE P.NONSTD+1  DEFINE OPERATOR RESULTS IN A ADDRESS        TSTEXT   2242
                                         OPVAL    DEFINE P.OPADDR    =0 IF VALUE REQUESTED                       TSTEXT   2243
                                                                                                                 TSTEXT   2244
                                         JPAD     DEFINE 42,18       ADDRESS OF OPERATOR PROCESSOR.              TSTEXT   2245
                                        ****                                                                     TSTEXT   2246
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    90
        /DEF  SYMBOL DEFINITIONS.                                     SETOP 
  
                                        ****      LGR -  LETTER GROUP TABLE FOR STATEMENT RECOGNIZERS.           TSTEXT   2248
                                        *                                                                        TSTEXT   2249
                                        *                THE *LGR* TABLE SERVES THREE FUNCTIONS --               TSTEXT   2250
                                        *         (1) =  DESCRIBES THE KEYWORD OF THE STATEMENT (IF ANY),        TSTEXT   2251
                                        *         (2) =  INDICATES ANY SPECIAL ATTRIBUTES, AND                   TSTEXT   2252
                                        *         (3) =  DEFINES WHERE A STATEMENT MAY OCCUR.                    TSTEXT   2253
                                        *                                                                        TSTEXT   2254
                                        *                SYNTACTICALLY RECOGNIZED STATEMENTS ARE NOT PART OF THE TSTEXT   2255
                                        *         *LGR* TABLE PROPER, BUT RATHER FAKE ENTRIES DESCRIBING THEIR   TSTEXT   2256
                                        *         PROPERTIES ARE APPENDED TO THE END OF THE TABLE (PAST THE      TSTEXT   2257
                                        *         LENGTH INDICATED BY *LG.LGR*).                                 TSTEXT   2258
                                                                                                                 TSTEXT   2259
                                                                                                                 TSTEXT   2260
                                         SKEY     DEFINE 36,4*CHAR   FIRST FOUR CHARACTERS OF KEYWORD.           TSTEXT   2261
                                                                     0L FORMAT.  IS = -1 FOR SYNTACTICALLY       TSTEXT   2262
                                                                     RECOGNIZED STATEMENTS.                      TSTEXT   2263
                                                                                                                 TSTEXT   2264
                                         SCPM     DEFINE 31,5        ORDINAL OF STAGE VECTOR, DESCRIBED BELOW.   TSTEXT   2265
                                                                                                                 TSTEXT   2266
                                         SATTR    DEFINE 25,6        SPECIAL ATTRIBUTES, DESCRIBED BELOW.        TSTEXT   2267
                                                                                                                 TSTEXT   2268
                                         SLEN     DEFINE 18,7        NUMBER OF BITS, MINUS ONE, IN THE ENTIRE    TSTEXT   2269
                                                                     KEYWORD.                                    TSTEXT   2270
                                                                                                                 TSTEXT   2271
                                         SJMP     DEFINE 0,18        ADDRESS OF THE STATEMENT PROCESSOR.         TSTEXT   2272
                                                                                                                 TSTEXT   2273
                                                                                                                 TSTEXT   2274
                                        **        SPECIAL ATTRIBUTES AND THEIR MEANINGS ARE --                   TSTEXT   2275
                                                                                                                 TSTEXT   2276
                                         SBKD     DEFINE 0+P.SATTR   LEGAL IN BLOCKDATA SUBPROGRAMS.             TSTEXT   2277
                                                                                                                 TSTEXT   2278
                                         SCDS     DEFINE 1+P.SATTR   MUST DEACTIVATE ANY DELAYED STORE BEFORE    TSTEXT   2279
                                                                     PROCESSING STATEMENT.                       TSTEXT   2280
                                                                                                                 TSTEXT   2281
                                         SGEN     DEFINE 2+P.SATTR   ADDRESS APPEARS ON LISTING (I.E.--          TSTEXT   2282
                                                                     GENERATES OBJECT CODE).                     TSTEXT   2283
                                                                                                                 TSTEXT   2284
                                         SLBL     DEFINE 3+P.SATTR   STATEMENT LABEL IS ALLOWED AND PROCESSED    TSTEXT   2285
                                                                     NORMALLY (BY *GSN*).                        TSTEXT   2286
                                                                                                                 TSTEXT   2287
                                         SNIF     DEFINE 4+P.SATTR   ILLEGAL AS OBJECT OF ONE-BRANCH *IF*.       TSTEXT   2288
                                                                                                                 TSTEXT   2289
                                         SDON     DEFINE 5+P.SATTR   ILLEGAL AS TERMINATOR OF A *DO*             TSTEXT   2290
                                        ****                                                                     TSTEXT   2291
                                                                                                                 TSTEXT   2292
                                   5     LG.STN   EQU    5           NUMBER OF DIGITS TO ASSEMBLE FOR STMT. NO.  TSTEXT   2293
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    91
        /DEF  SYMBOL DEFINITIONS. 
  
                                         HEREIF   MACRO  KEY                                                     TSTEXT   2295
                                         A        MICRO  5,3,/KEY/                                               TSTEXT   2296
                                         D        MICRO  8,,/KEY/                                                TSTEXT   2297
                                         B        MICRO  1,6,/KEY/                                               TSTEXT   2298
                                                  VFD    42/0L"D",18/0L"A"                                       TSTEXT   2299
                                         "B"_=    BSS    0                                                       TSTEXT   2300
                                                  ENTRY  "B"_=                                                   TSTEXT   2301
                                         HEREIF   ENDM                                                           TSTEXT   2302
                                                                                                                 TSTEXT   2303
                                                                                                                 TSTEXT   2304
                                        **        SATTR - MACRO TO DESCRIBE STATEMENT ATTRIBUTES.                TSTEXT   2305
                                        *                CALLED BY NON-KEYWORD STATEMENTS, AND BY *HEREIF* (TO   TSTEXT   2306
                                        *         FORCE MICRO EVALUATION).  ALL *SATTR* SOURCE-LEVEL CALLS MUST  TSTEXT   2307
                                        *         APPEAR AFTER *LG.LEN* IS DEFINED.                              TSTEXT   2308
                                        *                                                                        TSTEXT   2309
                                        * LOC     SATTR  KEY,ADDR,STAGE,(ATTR),LEN                               TSTEXT   2310
                                        *                                                                        TSTEXT   2311
                                        *         (KEY)  = FIRST FOUR CHARACTERS OF KEYWORD OR -1                TSTEXT   2312
                                        *         (LOC)  = NAME TO BE GIVEN TO /JUMPTO./ ORDINAL.                TSTEXT   2313
                                        *         (ADDR) = ADDRESS OF STATEMENT PROCESSOR.                       TSTEXT   2314
                                        *         (STAGE)= NAME OF STAGE VECTOR (ROW)                            TSTEXT   2315
                                        *         (ATTR) = NAME(S) OF ATTRIBUTE BIT(S)                           TSTEXT   2316
                                        *         (LEN)  = LENGTH (IN CHARACTERS) OF KEYWORD                     TSTEXT   2317
                                                                                                                 TSTEXT   2318
                                                                                                                 TSTEXT   2319
                                                  MACRO  SATTR,LOC,KEY,ADDR,STAGE,ATTR,LEN                       TSTEXT   2320
                                         LOC      VFD    L.SKEY/KEY,L.SCPM/CPM=STAGE                             TSTEXT   2321
                                        .1        IFC    NE,//ATTR/        NECESSARY UNTIL COMPASS FIXED.        TSTEXT   2322
                                                  IRP    ATTR                                                    TSTEXT   2323
                                                  POS    P.S_ATTR+1                                              TSTEXT   2324
                                                  VFD    1/1         (ATTR)                                      TSTEXT   2325
                                                  IRP                                                            TSTEXT   2326
                                        .1        ENDIF                                                          TSTEXT   2327
                                                  POS    P.SATTR                                                 TSTEXT   2328
                                        .1        IFC    NE,//LEN/                                               TSTEXT   2329
                                                  VFD    L.SLEN/LEN*CHAR-1,L.SJMP/=X_ADDR                        TSTEXT   2330
                                        .1        ELSE                                                           TSTEXT   2331
                                                  VFD    L.SLEN/,L.SJMP/=X_ADDR                                  TSTEXT   2332
                                        .1        ENDIF                                                          TSTEXT   2333
                                         SATTR    ENDM                                                           TSTEXT   2334
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    92
        /DEF  SYMBOL DEFINITIONS. 
  
                                   7     LG.VAR   EQU    7           NUMBER OF CHARACTERS TO ASSEMBLE FOR        TSTEXT   2336
                                                                     TABBING PROCESS.                            TSTEXT   2337
                                  -3     S=NLST   EQU    -3          FLAG VALUE FOR *NAMELIST* I/O STATEMENT     TSTEXT   2338
                                  -1     S=END    EQU    -1          =-1   USED BY *SPR* TO INDICATE WHO CALLED  TSTEXT   2339
                                  -1     S=RET    EQU    S=END       =-1                                         TSTEXT   2340
                                   0     S=PAU    EQU    S=END+1     = 0                                         TSTEXT   2341
                                   1     S=STOP   EQU    S=PAU+1     =+1                                         TSTEXT   2342
                                                                                                                 TSTEXT   2343
                                         MODE     DEFINE 0,3               FUNCTION MODE.                        TSTEXT   2344
                                         FARGC    DEFINE 3,L.ARGC    ARGUMENT COUNT.                             TSTEXT   2345
                                         FARGM    DEFINE 9,3               ARGUMENT MODE.                        TSTEXT   2346
                                         FJPAD    DEFINE 12,9              JUMP ADDRESS/SHIT COUNT FIELD.        TSTEXT   2347
                                         FANSI    DEFINE 21,1              IF ANSI = 1. NON ANSI = 0.            TSTEXT   2348
                                         FBEF     DEFINE 22,1              INDICATE *BEF* VS INTRINSIC.          TSTEXT   2349
                                         FDPC     DEFINE 24,36             *DPC* FOR FUNCTION.                   TSTEXT   2351
                                        ****                                                                     TSTEXT   2352
                                                                                                                 TSTEXT   2353
                                        **        REGISTER FIELDS IN PARSED FILE                                 TSTEXT   2354
                                                                                                                 TSTEXT   2355
                                         UREG     DEFINE 0,6         LOAD REGISTER UPPER PART.                   TSTEXT   2356
                                         LREG     DEFINE 6,6         LOAD REGISTER LOWER PART.                   TSTEXT   2357
                                                                                                                 TSTEXT   2358
                                                                                                                 TSTEXT   2359
             0                                    END                                                            TSTEXT   2360
  
                             57600B CM  STORAGE USED             6091 STATEMENTS      838 SYMBOLS      000002 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.187 SECONDS        1009 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANS.CONT       23                  45/26 D   84/39
        ANS.DIM         3                  45/23 D
        AP=CON          2                  72/32 D   84/35
        AP=PRO          4                  72/34 D
        AP=SIZ          1                  72/31 D   84/34
        AP=TEM          3                  72/33 D   84/36
        AP=UIOC         5                  72/35 D   84/37
        ARLSZ        3200                  11/05 D
        B1=1            0 
        CHAR            6                  26/13 D   75/30     84/11     90/14
        CONSTORS      454                  10/44 D
        CP#RM           0                  13/03 F   13/04 D   17/01 F   20/01 F   23/01 F
        CR.AGN          1                  76/17 D
        CR.ARY         23                  76/34 D
        CR.CALL         1                  76/27 D
        CR.DAT         11                  76/29 D
        CR.DEC          4                  76/28 D
        CR.DO           4                  76/19 D
        CR.DOI          3                  76/37 D
        CR.FMT          6                  76/15 D
        CR.GOTO        55                  76/18 D
        CR.IF           6                  76/38 D
        CR.IFN          3                  76/20 D
        CR.INF          1                  76/31 D
        CR.INP         22                  76/32 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        CR.LAB         14                  76/16 D
        CR.NTR          5                  76/33 D
        CR.OUT         27                  76/35 D
        CR.PAR          1                  76/26 D
        CR.REF         55                  76/24 D
        CR.STR         54                  76/25 D
        CR.SUB         30                  76/36 D
        CR.VGOTO        7                  76/30 D
        CT.BEGIN   260005                  81/39 D   81/40
        CT.CPU        111                   5/36 D   12/35 F
        CT.ECS          1                  13/11 F   13/13 D
        CT.FILE    260003                  81/37 D   81/38
        CT.INIT    260004                  81/38 D   81/39
        CT.LAST    260007                  81/42 D
        CT.RETN    260006                  81/40 D   81/41
        CT.RJS     260007                  81/41 D   81/42
        CT.SVA0    260002                  81/35 D   81/36     81/37
        CT.TPA0    260001                  81/34 D   81/35
        CT.TPA1    260002                  81/36 D
        CT.TRAC    260000                  81/33 D   81/34
        CT.7X           1                   5/44 D
        C.APL      260000                  81/30 D
        C.BASE     200000                  81/04 D
        C.CON      340000                  81/46 D   81/47
        C.DIF       20000                  81/05 D
        C.END      340000                  81/47 D
        C.PRO      260000                  81/29 D   81/30     81/33
        C.SCR      100000                  81/02 D
        C.STAT     240000                  81/11 D
        C.STN      240000                  81/10 D   81/11
        C.SYM      200000                  81/08 D
        C.TEM      320000                  81/45 D
        C.VAR      200000                  81/07 D   81/08
        C.VDIM     300000                  81/44 D
        ERRMAX        144                  12/09 D
        FLSLOP          4                  45/09 D
        FUDGE           1                  58/05 D
        INC.GTN      2000                  45/12 D
        INC.LTN      1000                  45/11 D
        IO.DOB         70                  83/16 D
        IO.DOC         67                  83/15 D
        IO.EOF         34                  26/25 D
        IO.EOR         24                  26/24 D
        IO.EVICT      114                  26/28 D
        IO.READ        10                  26/22 D
        IO.RETN       170                  26/27 D
        IO.REW         50                  26/26 D
        IO.RITE        14                  26/23 D
        IP.MFL     140000                   5/33 D
        I.BSS           0                  59/17 D
        I.CALL          1                  59/30 D
        I.CBSET         5                  17/19 D
        I.DT            1                  17/14 D
        I.EQ            4                  59/48 D
        I.FET           0                  17/12 D
        I.FIRST         1                  17/13 D
        I.IN            2                  17/15 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        I.JP            3                  59/42 D
        I.LIMIT         4                  17/17 D
        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.RJ            2                  59/36 D
        LDRCALL         3                  13/07 F   13/08 D
        LDRTABL        66                  13/29 F   13/30 D   13/32 F   13/36 F
        LDR.NN          5                  13/38 D
        LDR.00         11                  13/37 D
        LG.STN          5                  90/46 D
        LG.SYM         74                  83/19 D
        LG.VAR          7                  92/01 D
        LSTN           40                  66/13 D
        LSYM          200                  62/32 D
        L.ABIAS        22                  72/24 D   73/04
        L.ACC          22                  87/26 D
        L.ACM          22                  87/28 D
        L.AMAD         22                  87/06 D
        L.AMATR        14                  87/14 D
        L.AMC          22                  87/08 D
        L.AMR          14                  87/22 D
        L.ANSIF         1                  64/06 D
        L.APIO         25                  72/41 D
        L.ARGC          6                  64/09 D   92/10
        L.ARGMF         3                  64/04 D
        L.ASFP         22                  64/15 D
        L.ASIZ         15                  72/28 D
        L.ATAG         22                  72/23 D
        L.ATTR         13                  89/08 D
        L.ATYP          3                  72/30 D
        L.BEFF          1                  64/07 D
        L.BLEN         30                  77/01 D
        L.BLOCK        14                  65/15 D   67/36 D
        L.BLVL          2                  76/57 D
        L.BTBFS        22                  75/40 D
        L.BTCN         14                  75/46 D
        L.BTMRL        30                  75/42 D
        L.BTRA         22                  75/43 D
        L.BTRB          4                  75/36 D
        L.BTRC         22                  75/45 D
        L.BTRI         22                  75/44 D
        L.BTRL         11                  75/48 D
        L.BTWC         14                  75/47 D
        L.BTWSA        22                  75/41 D
        L.BTXPS         6                  75/54 D
        L.BTXRA        30                  75/55 D
        L.BTXRL        11                  75/52 D
        L.BTXSZ         6                  75/53 D
        L.CDPC         52                  84/11 D
        L.CLASS        17                  63/16 D
        L.CLASS2       12                  63/37 D
        L.CLCON        17                  60/05 D
        L.CRLIN        26                  76/07 D
        L.CRUSE         6                  76/08 D
        L.CTAG         22                  76/53 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        L.DBIAS        22                  73/52 D
        L.DFLAG        22                  69/47 D
        L.DICIF         3                  74/21 D
        L.DIM          30                  68/32 D   68/33     68/57     69/04
        L.DIMLG        30                  69/04 D
        L.DIMOS        30                  68/57 D
        L.DINDX        22                  74/19 D
        L.DIRL         22                  74/20 D
        L.DIWC         22                  74/18 D
        L.DLITM        22                  74/11 D
        L.DLVAR        22                  74/10 D
        L.DMOD          4                  89/07 D
        L.DOE           6                  69/51 D
        L.DOTAG        22                  69/37 D
        L.DTAG         22                  73/51 D
        L.EORD         22                  77/21 D
        L.EQHI         30                  70/10 D
        L.EQLINK       14                  70/09 D
        L.EQLO         30                  70/11 D
        L.EQUB         30                  70/25 D
        L.EQU1         22                  70/24 D
        L.EQU2         22                  70/23 D
        L.FANSI         1                  92/13 D
        L.FARGC         6                  92/10 D
        L.FARGM         3                  92/11 D
        L.FBEF          1                  92/14 D
        L.FBUF         22                  75/33 D
        L.FCLX          6                  10/18 D   10/19
        L.FDPC         44                  92/15 D
        L.FFIT         22                  75/34 D
        L.FIT1         12                  75/38 D
        L.FIT6         51                  10/19 D
        L.FIT7         20                  10/25 D
        L.FJPAD        11                  92/12 D
        L.FLEN         22                  75/35 D
        L.FNAM         52                  75/30 D
        L.FPNO          6                  63/02 D
        L.FPS           1                  62/52 D
        L.FRCL         22                  75/51 D
        L.FREC         22                  75/50 D
        L.IOADDR       22                  73/04 D
        L.IOARG         6                  73/05 D
        L.IOBUF6     2003                  10/20 D
        L.IOBUF7        0                  10/26 D
        L.IOLEN        30                  73/03 D
        L.IOSIZ        22                  72/57 D
        L.IOTYP         3                  72/56 D
        L.JPAD         22                  89/22 D
        L.JPADF        11                  64/05 D
        L.LBIAS        22                  59/05 D   72/24     73/52
        L.LCON         11                  60/04 D
        L.LEVN          2                  62/53 D
        L.LGH           6                  58/43 D
        L.LI            3                  58/44 D
        L.LIST          3                  75/37 D
        L.LI12         14                  59/02 D
        L.LI15         17                  58/41 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        L.LJ            3                  58/45 D
        L.LK            3                  58/46 D
        L.LN           22                  67/15 D
        L.LOCN         22                  59/19 D
        L.LREG          6                  92/21 D
        L.LTAG         22                  59/03 D
        L.LVLFLD        4                  76/54 D
        L.MODC         11                  89/06 D
        L.MODE          3                  64/25 D   72/56     87/44     92/09 D
        L.MSHORT        6                  88/04 D
        L.NDIM          6                  68/24 D
        L.OCORG        22                  67/16 D
        L.PAGE        124                  12/01 D
        L.PNT          15                  62/54 D
        L.PSTACK        3                  87/04 D
        L.PTAGL        22                  87/53 D
        L.PTAGM        22                  87/52 D
        L.PTAGU        22                  87/51 D
        L.PWF          15                  62/50 D   62/51
        L.RELADD       30                  65/16 D   67/37 D
        L.REPI          3                  75/39 D
        L.RGFILE       27                  85/55 D
        L.RGINS         6                  85/12 D
        L.RGMSK        22                  85/11 D
        L.RGNUM        22                  85/10 D
        L.RGTYP        22                  85/09 D
        L.RUSE         11                  85/04 D   85/06
        L.SATAG        22                  86/16 D
        L.SATTR         6                  90/20 D
        L.SBPR         22                  89/04 D
        L.SBUF       1001                  26/07 D
        L.SCPM          5                  90/18 D
        L.SHC          22                  60/06 D
        L.SJMP         22                  90/25 D
        L.SKEY         30                  90/14 D
        L.SLEN          7                  90/22 D
        L.SLINK        15                  66/29 D
        L.SN           22                  67/14 D
        L.SNAD         22                  66/28 D
        L.SNCLS        13                  66/30 D
        L.STACK         0                  14/54 D
        L.STLF         36                  75/56 D
        L.STN          36                  66/17 D
        L.STPR         11                  89/05 D   89/06
        L.SYM          52                  62/37 D   76/52 D   77/20 D
        L.TAG          22                  61/22 D   65/14 D   67/35 D   70/24     73/51     87/34
                                           62/51 D   66/27 D   70/23     72/23     76/06 D
        L.TGB           5                  62/49 D   62/51
        L.TIN         101                  10/21 D
        L.TNAM         22                  62/38 D
        L.TOUT        401                  10/22 D
        L.TRC          14                  59/18 D
        L.TURP          3                  71/29 D
        L.TYPE          5                  64/38 D
        L.UARGC         6                  63/10 D
        L.UREG          6                  92/20 D
        L.2BIAS        22                  87/35 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        L.2CLAS         6                  87/36 D
        L.2FPNO         6                  87/38 D
        L.2MODE         3                  87/44 D
        L.2STAT         3                  87/39 D
        L.2TAG         22                  87/34 D   87/51     87/52     87/53
        MAN.FL      32000                  11/36 D
        MAN.LINP      124                  11/41 D   12/01
        MAN.XJP        51                  11/46 D
        MAX.BLK       764                  45/17 D   84/40
        MAX.BUFL   360000                  47/29 D
        MAX.DIM         3                  45/24 D   84/41
        MAX.PARG       61                  45/21 D   84/43
        MAX.RECL   377777                  47/30 D
        MAX.SARG       77                  45/19 D   84/42
        MAX.USEC      777                  85/07 D
        MIN.LF        100                  47/32 D
        MXFRSTB       132                  10/56 D
        MXOSE         240                  10/50 D
        M.ADDR       2000                  88/02 D
        M.AFIT     400000                  72/38 D
        M.ARE         200                  87/49 D
        M.ARY         400                  63/27 D
        M.ASF        2000                  63/48 D
        M.AVAR     200000                  72/37 D
        M.BEF         400                  63/46 D   64/45
        M.BEFF      20710                  64/45 D
        M.BTYP     400000                  75/49 D
        M.CHAR          6                  64/40 D
        M.COMM       4000                  63/30 D
        M.CPLX          5                  64/36 D   64/38
        M.DBL           4                  64/35 D
        M.DEF          10                  63/22 D   64/45     64/46
        M.ENT          40                  63/24 D
        M.ENT=         40                  63/43 D
        M.EQUIV      2000                  63/29 D
        M.EST      200000                  63/35 D
        M.EXT         100                  63/25 D   64/44     64/45
        M.EXT=        100                  63/44 D
        M.FP           20                  63/23 D
        M.FUN         200                  63/45 D   64/45     64/46
        M.INLF      24210                  64/46 D
        M.INLINE     4000                  63/49 D   64/46
        M.INT           2                  64/31 D
        M.INTR       1000                  88/01 D
        M.LCF         100                  87/48 D
        M.LEV         200                  63/26 D
        M.LNEG          1                  59/06 D
        M.LOG           1                  64/30 D
        M.LONG          4                  64/34 D
        M.LSTAT    200000                  87/41 D
        M.MODE          7                  64/27 D
        M.NAML          6                  64/41 D
        M.NLST       1000                  63/28 D
        M.NVAR      20000                  63/32 D   64/44     64/45     64/46
        M.PBLK        400                  85/56 D
        M.PFNC       1000                  85/57 D
        M.PPRO       4000                  86/02 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        M.PSUB       2000                  86/01 D
        M.REAL          3                  64/32 D
        M.RP        40000                  63/33 D
        M.SHORT      4000                  88/03 D
        M.SMULT     10000                  88/08 D
        M.SNDEF         2                  66/35 D
        M.SNDOT      1000                  66/43 D
        M.SNE          10                  66/37 D
        M.SNEX        100                  66/40 D
        M.SNFMT       400                  66/42 D
        M.SNINA         4                  66/36 D
        M.SNLAB       200                  66/41 D
        M.SNNS         40                  66/39 D
        M.SNOPE      2000                  66/44 D
        M.SNREF         1                  66/34 D
        M.SNX          20                  66/38 D
        M.SUB        1000                  63/47 D
        M.SUBRT         7                  64/42 D
        M.SYSEXT    20100                  64/44 D
        M.TYP      100000                  63/34 D
        M.TYPE     400000                  87/42 D
        M.UNIV          0                  64/29 D
        M.USTAT    100000                  87/40 D
        M.VAR       10000                  63/31 D
        M.2ARY      40000                  88/11 D
        M.2EQUIV    20000                  88/10 D
        M.2PRO      10000                  88/09 D
        NOINVERT        0                  11/26 D
        N.ELSTK       240                  45/15 D
        N.OPSTK       240                  45/14 D
        OR.DFLAG        5                  69/42 D
        OR.DOCI         3                  69/34 D
        OR.DOII         2                  69/33 D
        OR.DOLI         1                  69/32 D
        OR.DORT         4                  69/35 D
        OR.DOSI         0                  69/31 D
        OR.DOSN         5                  69/36 D
        OR.OPR          0                  71/31 D
        OR.1OP          1                  71/32 D
        OR.2OP          2                  71/33 D
        OT.7X           1                  14/56 D
        OT#RM           6                  15/21 F   15/22 D
        O.ALP          32                  82/42 D
        O.AND          23                  82/32 D
        O.ANDN         33                  82/44 D
        O.ARG1         51                  83/01 D
        O.ARG2         52                  83/02 D
        O.ARY          47                  82/56 D
        O.ASFA         40                  82/49 D
        O.ASSN         61                  83/09 D
        O.BOS           0                  84/45 D
        O.BSS          50                  82/57 D
        O.COMMA        13                  82/23 D   82/24
        O.CONS          2                  82/09 D
        O.DEF           0                  82/06 D
        O.DIV           7                  82/17 D
        O.DOB          43                  82/52 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        O.DOC          44                  82/53 D
        O.DOC1         45                  82/54 D
        O.DOC2         46                  82/55 D
        O.EOS           0                  82/07 D
        O.EQ           16                  82/27 D
        O.EXP          26                  82/35 D
        O.FALSE        31                  82/38 D
        O.FLP          32                  82/40 D
        O.GE           20                  82/29 D
        O.GOAS         64                  83/12 D
        O.GOTC         63                  83/11 D
        O.GOTO         62                  83/10 D
        O.GT           21                  82/30 D
        O.HOLL          1                  82/08 D   84/47 F
        O.IF           41                  82/50 D
        O.ILP          32                  82/41 D
        O.LE           15                  82/26 D
        O.LP           10                  82/18 D   82/19
        O.LT           14                  82/25 D
        O.MIN           5                  82/13 D
        O.MODC         65                  83/13 D
        O.MULT          6                  82/15 D
        O.MXP          54                  83/04 D
        O.NE           17                  82/28 D
        O.NOOP         60                  83/08 D
        O.NOT          22                  82/31 D
        O.NTR          55                  83/05 D
        O.OR           25                  82/34 D
        O.ORN          35                  82/46 D
        O.OTR          71                  83/17 D
        O.PERIOD       37                  82/48 D
        O.PL            4                  82/11 D   82/12
        O.PLUG         66                  83/14 D
        O.RANF         56                  83/06 D
        O.RJ           53                  83/03 D
        O.RP           11                  82/20 D   82/21
        O.SDEF         13                  82/24 D
        O.SEP           4                  82/12 D
        O.SHF          57                  83/07 D
        O.SLASH         7                  82/16 D   82/17
        O.SLP          32                  82/39 D   82/40     82/41     82/42     82/43
        O.SPACE        42                  82/51 D
        O.STAR          6                  82/14 D   82/15
        O.S(           32                  82/43 D
        O.TRUE         30                  82/37 D
        O.UMIN         27                  82/36 D
        O.VAR           3                  82/10 D
        O.XMIT         72                  83/18 D
        O.XOR          24                  82/33 D
        O.XORN         34                  82/45 D
        O.(            10                  82/19 D
        O.)            11                  82/21 D
        O.$            36                  82/47 D
        O.=            12                  82/22 D
        PASS=AFS        0                  86/09 D
        PASS=ARI        2                  86/11 D
        PASS=END        4                  86/13 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        PASS=MAP        5                  86/14 D
        PASS=PAR        1                  86/10 D
        PASS=PIG        3                  86/12 D
        PSTN            5                  66/11 D   66/12
        PSYM            7                  62/29 D   62/31
        PW.TTY        110                   9/06 D
        P.             73                  26/14 D
        P.ABIAS        30                  72/24 D   72/25 F
        P.ACC           0                  87/26 D
        P.ACM          22                  87/28 D
        P.ADDR         12                  88/02 D
        P.AFIT         21                  72/38 D
        P.ALCM         24                  72/39 D
        P.AMAD          0                  87/06 D
        P.AMADDR       47                  87/18 D
        P.AMATR        44                  87/14 D   87/15     87/16     87/17     87/18     87/19     87/20
        P.AMC          22                  87/08 D
        P.AMEOS        45                  87/16 D
        P.AMEQ         51                  87/20 D
        P.AMFUN        44                  87/15 D
        P.AMR          60                  87/22 D
        P.AMRP         46                  87/17 D
        P.AMWHOL       50                  87/19 D
        P.ANSIF        44                  64/06 D
        P.APIO          0                  72/41 D
        P.ARE           7                  87/49 D
        P.ARGC         22                  64/09 D
        P.ARGMF        30                  64/04 D
        P.ARY          10                  63/27 D
        P.AS           37                  89/12 D   89/13
        P.ASF          12                  63/48 D
        P.ASFP         30                  64/15 D
        P.ASIZ          0                  72/28 D
        P.ATAG         52                  72/23 D   72/25 F
        P.ATTR         37                  89/08 D   89/12
        P.ATYP         15                  72/30 D   84/33
        P.AVAR         20                  72/37 D
        P.BEF          10                  63/46 D
        P.BEFF         45                  64/07 D
        P.BLEN          0                  77/01 D
        P.BLOCK        30                  65/15 D   67/36 D
        P.BLVL         46                  76/57 D
        P.BTBFS         0                  75/40 D
        P.BTCN         60                  75/46 D
        P.BTMRL        44                  75/42 D
        P.BTRA          0                  75/43 D
        P.BTRC         52                  75/45 D
        P.BTRI         33                  75/44 D
        P.BTRL         22                  75/48 D
        P.BTWC         44                  75/47 D
        P.BTWSA         0                  75/41 D
        P.BTXPS        30                  75/54 D
        P.BTXRA        36                  75/55 D
        P.BTXRL         0                  75/52 D
        P.BTXSZ        22                  75/53 D
        P.BTYP         21                  75/49 D
        P.CDIM         25                  68/39 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        P.CLASS         3                  63/16 D   63/23     63/25     63/27     63/29     63/31     63/33     63/35
                                           63/22     63/24     63/26     63/28     63/30     63/32     63/34     64/25
        P.CLASS2        5                  63/37 D
        P.CLCON        33                  60/05 D
        P.CNFL         51                  76/55 D
        P.COM          40                  89/13 D   89/14
        P.COMM         13                  63/30 D
        P.CRLIN         6                  76/07 D
        P.CRUSE         0                  76/08 D
        P.CTAG         52                  76/53 D
        P.CTYP         44                  74/32 D
        P.DBIAS        14                  73/52 D
        P.DEF           3                  63/22 D
        P.DFLAG        52                  69/47 D
        P.DFLT         50                  76/56 D
        P.DICIF        66                  74/21 D
        P.DIHOL        72                  74/28 D
        P.DIM          36                  68/31 D   69/04
        P.DIMLG        36                  69/04 D
        P.DIMOS         0                  68/57 D
        P.DINDX        22                  74/19 D
        P.DIREP        73                  74/29 D
        P.DIRL         44                  74/20 D
        P.DIS          41                  89/14 D   89/15
        P.DIWC          0                  74/18 D
        P.DLITM         0                  74/11 D
        P.DLVAR        22                  74/10 D
        P.DMOD         33                  89/07 D
        P.DNEGH        71                  74/27 D
        P.DOTAG        22                  69/37 D
        P.DTAG         36                  73/51 D   73/52
        P.ENT           5                  63/24 D   63/43     63/45     63/47     63/49
                                           63/37     63/44     63/46     63/48
        P.ENT=          5                  63/43 D
        P.EORD          0                  77/21 D
        P.EQHI         30                  70/10 D
        P.EQLINK       60                  70/09 D
        P.EQLO          0                  70/11 D
        P.EQUB          0                  70/25 D
        P.EQUIV        12                  63/29 D
        P.EQU1         30                  70/24 D
        P.EQU2         52                  70/23 D
        P.EST          20                  63/35 D
        P.EXT           6                  63/25 D
        P.EXT=          6                  63/44 D
        P.FANSI        25                  92/13 D
        P.FARGC         3                  92/10 D
        P.FARGM        11                  92/11 D
        P.FBEF         26                  92/14 D
        P.FBUF         44                  75/33 D
        P.FDPC         30                  92/15 D
        P.FEQU         73                  75/32 D
        P.FFIT         22                  75/34 D
        P.FJPAD        14                  92/12 D
        P.FLEN          0                  75/35 D
        P.FNAM         22                  75/30 D
        P.FP            4                  63/23 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        P.FPNO         22                  63/02 D
        P.FPS          47                  62/52 D
        P.FRCL          0                  75/51 D
        P.FREC         44                  75/50 D
        P.FUN           7                  63/45 D
        P.INLINE       13                  63/49 D
        P.INTR         11                  88/01 D
        P.IOADDR        0                  73/04 D
        P.IOARG         0                  73/05 D
        P.IOFIT        73                  72/51 D
        P.IOFP         72                  72/52 D
        P.IOIND        71                  72/53 D
        P.IOLCM        73                  72/50 D
        P.IOLEN        30                  73/03 D
        P.IOSIZ        36                  72/57 D
        P.IOTYP        60                  72/56 D
        P.JPAD         52                  89/22 D
        P.JPADF        33                  64/05 D
        P.LBIAS        14                  59/05 D   72/25 F
        P.LCF           6                  87/48 D
        P.LCON         22                  60/04 D
        P.LEV           7                  63/26 D
        P.LEVN         45                  62/53 D
        P.LGH          66                  58/43 D
        P.LI           63                  58/44 D
        P.LI12         60                  59/02 D
        P.LI15         55                  58/41 D
        P.LJ           60                  58/45 D
        P.LK           55                  58/46 D
        P.LN           22                  67/15 D
        P.LNEG          0                  59/06 D
        P.LOCN          0                  59/19 D
        P.LONG          2                  64/34 D
        P.LREG          6                  92/21 D
        P.LSTAT        20                  87/41 D
        P.LTAG         36                  59/03 D   72/25 F
        P.LVLFLD       46                  76/54 D
        P.MODC         22                  89/06 D
        P.MODE          0                  64/25 D   87/44     92/09 D
        P.MODLS        42                  89/15 D   89/16
        P.MSHORT       30                  88/04 D
        P.NDIM         66                  68/24 D
        P.NLST         11                  63/28 D
        P.NONSTD       45                  89/18 D   89/19
        P.NSQEZ        44                  89/17 D   89/18
        P.NVAR         15                  63/32 D
        P.OCORG         0                  67/16 D
        P.OPADDR       46                  89/19 D   89/20
        P.OPVAL        46                  89/20 D
        P.PBLK         10                  85/56 D
        P.PFNC         11                  85/57 D
        P.PNT          30                  62/54 D
        P.PPRO         13                  86/02 D
        P.PSUB         12                  86/01 D
        P.PTAGL         0                  87/53 D
        P.PTAGM        30                  87/52 D
        P.PTAGU        52                  87/51 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        P.PWF          52                  62/50 D   62/51
        P.RELADD        0                  65/16 D   67/37 D
        P.RGINS        66                  85/12 D
        P.RGMSK        44                  85/11 D
        P.RGNUM        22                  85/10 D
        P.RGTYP         0                  85/09 D
        P.RLOCK        20                  85/13 D
        P.RP           16                  63/33 D   63/37
        P.RUSE          0                  85/04 D
        P.SATAG        52                  86/16 D
        P.SATTR        31                  90/20 D   90/30     90/32     90/35     90/38     90/41     90/43
        P.SBKD         31                  90/30 D
        P.SBPR          0                  89/04 D
        P.SCDS         32                  90/32 D
        P.SCPM         37                  90/18 D
        P.SDIM         26                  68/37 D   68/39
        P.SDON         36                  90/43 D
        P.SDPF         72                  74/31 D
        P.SGEN         33                  90/35 D
        P.SHC          52                  60/06 D
        P.SHORT        13                  88/03 D
        P.SJMP          0                  90/25 D
        P.SKEY         44                  90/14 D
        P.SLBL         34                  90/38 D
        P.SLEN         22                  90/22 D
        P.SLINK        13                  66/29 D
        P.SMULT        14                  88/08 D
        P.SN           52                  67/14 D
        P.SNAD         30                  66/28 D
        P.SNCLS         0                  66/30 D
        P.SNDEF         1                  66/35 D
        P.SNDOT        11                  66/43 D
        P.SNE           3                  66/37 D
        P.SNEX          6                  66/40 D
        P.SNFMT        10                  66/42 D
        P.SNIF         35                  90/41 D
        P.SNINA         2                  66/36 D
        P.SNLAB         7                  66/41 D
        P.SNNS          5                  66/39 D
        P.SNOPE        12                  66/44 D
        P.SNREF         0                  66/34 D
        P.SNX           4                  66/38 D
        P.STN          22                  66/17 D
        P.STPR         22                  89/05 D   89/06
        P.SUB          11                  63/47 D
        P.SYM          22                  62/37 D   76/52 D   77/20 D
        P.SYMORD       22                  74/33 D
        P.TAG          52                  61/22 D   62/51 D   65/14 D   66/27 D   67/35 D   70/23     76/06 D   87/34
        P.TDIM         27                  68/33 D   68/37
        P.TGB          67                  62/49 D
        P.TNAM          0                  62/38 D
        P.TRC          22                  59/18 D
        P.TYP          17                  63/34 D
        P.TYPE         21                  87/42 D
        P.UARGC        30                  63/10 D
        P.UNAR         43                  89/16 D   89/17
        P.UREG          0                  92/20 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        P.USTAT        17                  87/40 D
        P.VAR          14                  63/31 D
        P.VDIM         35                  68/25 D
        P.2ARY         16                  88/11 D
        P.2BIAS        30                  87/35 D   88/04
        P.2CLAS        11                  87/36 D   88/01     88/02     88/03     88/08     88/09     88/10     88/11
        P.2EQUIV       15                  88/10 D
        P.2FPNO        22                  87/38 D
        P.2MODE         0                  87/44 D
        P.2PRO         14                  88/09 D
        P.2STAT        17                  87/39 D   87/40     87/41     87/42
        P.2TAG         52                  87/34 D   87/51     87/52
        REG.A          10                  85/43 D
        REG.B           0                  85/33 D
        REG.X          20                  85/53 D
        RGFILE          0                  85/24 D
        RHUSE      100000                  85/14 D
        RLOCK         400                  85/05 D
        R.A0           10                  85/35 D   85/43
        R.A1           11                  85/36 D
        R.A2           12                  85/37 D
        R.A3           13                  85/38 D
        R.A4           14                  85/39 D
        R.A5           15                  85/40 D
        R.A6           16                  85/41 D
        R.A7           17                  85/42 D
        R.B0            0                  85/25 D   85/33
        R.B1            1                  85/26 D
        R.B2            2                  85/27 D
        R.B3            3                  85/28 D
        R.B4            4                  85/29 D
        R.B5            5                  85/30 D
        R.B6            6                  85/31 D
        R.B7            7                  85/32 D
        R.X0           20                  85/45 D   85/53
        R.X1           21                  85/46 D
        R.X2           22                  85/47 D
        R.X3           23                  85/48 D
        R.X4           24                  85/49 D
        R.X5           25                  85/50 D
        R.X6           26                  85/51 D
        R.X7           27                  85/52 D
        SB.HEAD         6                  84/04 D
        S=END     7777776                  92/04 D   92/05     92/06
        S=NLST    7777774                  92/03 D
        S=PAU           0                  92/06 D   92/07
        S=RET     7777776                  92/05 D
        S=STOP          1                  92/07 D
        S.GCON        310                  11/11 D
        TEST            0                  15/32 D   39/47 F   48/11 F   49/01 F
        ZZ.COM          2                  11/53 D
        ZZ.DIM          3                  11/54 D
        ZZ.SYM          1                  11/52 D
        .CDCLIB         1                   7/53 D
        .CMLOD          0                  45/08 D
        .CPU          111                  14/25 D   15/05 F
        .DAL            1                  14/55 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        .FID            1                  13/18 F   13/19 D   66/48 F
        .IWT            0                   6/44 D
        .NRFCO          1                  14/57 D
        .OS             1                   5/43 D
        .OT             1                   5/38 D    5/43
        .OVL            1                   8/13 D
        #NL             1                  10/07 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  IPARAM
  
  
        CT7X            1                   5/12 D    5/44
        DAL             1                  14/45 D   14/55
        IP.ACNT         0                   5/09 D
        IP.ARCH         1                   5/09 D
        IP.BCFAP        2                   5/09 D
        IP.CC7          1                   5/09 D
        IP.CHTIM        1                   5/09 D
        IP.CMU          0                   5/09 D   14/28 D
        IP.CP           6                   5/09 D
        IP.CPLM         5                   5/09 D
        IP.CR         105                   5/09 D
        IP.CSET         0                   5/09 D   14/28 D
        IP.C176         0                   5/09 D
        IP.C63          2                   5/09 D
        IP.C64.1        0                   5/09 D    5/09     14/28
        IP.C64.2        1                   5/09 D
        IP.DBAL      3777                   5/09 D
        IP.DEBUG        1                   5/09 D
        IP.ECSB         0                   5/09 D
        IP.FT           1                   5/09 D   14/28 D
        IP.HT           0                   5/09 D    5/09     14/28 D
        IP.IACES       13                   5/09 D
        IP.IDFM         1                   5/09 D
        IP.ILCMD        1                   5/09 D
        IP.ILR          0                   5/09 D
        IP.IMUL         1                   5/09 D
        IP.INTCM        1                   5/09 D
        IP.IOLM       100                   5/09 D
        IP.IQD          6                   5/09 D
        IP.IQPW         3                   5/09 D
        IP.IUSID      201                   5/09 D
        IP.LINK         1                   5/09 D
        IP.LVF         70                   5/09 D
        IP.MCPU         1                   5/09 D
        IP.MECS         1                   5/09 D   13/12 F   13/13     14/28 D
        IP.MFL     140000                   5/09 D    5/33
        IP.MMS        100                   5/09 D
        IP.MPPU        12                   5/09 D
        IP.MPR         20                   5/09 D
        IP.MREWR        0                   5/09 D
        IP.MSCT         0                   5/09 D
        IP.MSLM       200                   5/09 D
        IP.MTL      77777                   5/09 D
1       T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                      COMPASS 3.7-871.     24/05/02. 15.50.21.      PAGE   106
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        IP.NDFS         1                   5/09 D
        IP.NJFL        20                   5/09 D
        IP.OPRI         0                   5/09 D
        IP.OQD         10                   5/09 D
        IP.PD           6                   5/09 D
        IP.PFAC         0                   5/09 D
        IP.PFRP         5                   5/09 D
        IP.POSFL        5                   5/09 D
        IP.PPS2X        2                   5/09 D
        IP.PS          74                   5/09 D
        IP.RM           0                   5/09 D
        IP.RPMAX     1747                   5/09 D
        IP.RTMTR        0                   5/09 D
        IP.SCHDE        0                   5/09 D
        IP.SECS         0                   5/09 D
        IP.SEP          1                   5/09 D
        IP.SFL      50000                   5/09 D
        IP.SIDLE        1                   5/09 D
        IP.SIOL         0                   5/09 D
        IP.SMS          0                   5/09 D
        IP.SPR         10                   5/09 D
        IP.SPT          0                   5/09 D
        IP.SRMS         0                   5/09 D
        IP.STL        100                   5/09 D
        IP.TCPUB        4                   5/09 D
        IP.TF           0                   5/09 D
        IP.TYPE     14710                   5/09 D
        IP.UP          10                   5/09 D
        IP.US           0                   5/09 D
        IP.XJ           1                   5/09 D
        IP.1M1          3                   5/09 D
        IP.1WB          2                   5/09 D
        IP.1ZZ          0                   5/09 D
        IP.819          0                   5/09 D
        LSTACK    7777776                  14/32 D   14/54
        OT7X            1                  14/49 D   14/56
        PR.BATCH        1                   5/09 D    5/09
        PR.IDLE         0                   5/09 D   14/28 D
        PR.INT          2                   5/09 D    5/09
        PR.SCP          3                   5/09 D    5/09
        PR.SYS          4                   5/09 D
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTNMAC 
                          0                       END 
  
  
  
  
                                                  IDENT  FTNMAC                                                  FTNMAC      2
                                                  STEXT                                                          FTNMAC      4
                                                  LIST   F                                                       FTNMAC      5
  
  
  
  
                                        ***       FTNMAC - FORTRAN EXTENDED OBJECT CODE MACRO DEFINITION TEXT.   FTNMAC      7
                                        *                                                                        FTNMAC      8
                                        *         THIS FILE CONTAINS THE MACRO DEFINITIONS AND DECLARATIVE       FTNMAC      9
                                        *         STATEMENTS NECESSARY FOR THE "COMPASS" ASSEMBLER TO ASSEMBLE   FTNMAC     10
                                        *         THE COMPS FILE.                                                FTNMAC     11
                                        *                                                                        FTNMAC     12
                                                                                                                 FTNMAC     13
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      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.         S3143FC     5
                                        *                                                                        OPTIONS     7
                                        *         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC     OPTIONS     8
                                        *         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL-  OPTIONS     9
                                        *         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY   OPTIONS    10
                                        *         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION    OPTIONS    11
                                        *         AND SPECIFIC FUNCTIONAL REQUIREMENTS.                          OPTIONS    12
                                        *                                                                        OPTIONS    13
                                        *         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN     OPTIONS    14
                                        *         THE PROGRAM DECK  < FTN > .                                    OPTIONS    15
  
  
  
  
                                        *         ************************************************************** OPTIONS    17
                                        *         *                                                            * OPTIONS    18
                                        *         *                                                            * OPTIONS    19
                                        *         *   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    20
                                        *         *                                                            * OPTIONS    21
                                        *         *                                                            * OPTIONS    22
                                        *         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       * OPTIONS    23
                                        *         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         * OPTIONS    24
                                        *         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             * OPTIONS    25
                                        *         *                                                            * OPTIONS    26
                                        *         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       * OPTIONS    27
                                        *         *      BE CHANGED.                                           * OPTIONS    28
                                        *         *                                                            * OPTIONS    29
                                        *         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    * OPTIONS    30
                                        *         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           * OPTIONS    31
                                        *         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      * OPTIONS    32
                                        *         *                                                            * OPTIONS    33
                                        *         *                                                            * OPTIONS    34
                                        *         ************************************************************** OPTIONS    35
  
  
  
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE     3
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS    54
                                        *                                                                        OPTIONS    55
                                        *         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE   OPTIONS    56
                                        *                                                                        OPTIONS    57
                                        *                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A     OPTIONS    58
                                        *                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS      OPTIONS    59
                                        *                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE       OPTIONS    60
                                        *                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND          OPTIONS    61
                                        *                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE.    OPTIONS    62
                                        *                                                                        OPTIONS    63
                                        *                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER      OPTIONS    64
                                        *                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL       OPTIONS    65
                                        *                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING        OPTIONS    66
                                        *                REQUIREMENTS.                                           OPTIONS    67
                                        *                   1.  INSURE THAT THE TEXT CONTAINING THE              OPTIONS    68
                                        *                       INSTALLATION PARAMETERS CONTAINS CYBER 76        OPTIONS    69
                                        *                       VALUES.                                          OPTIONS    70
                                        *                   2.  SELECT THE DESIRED VALUE FOR THE DEFMOD MACRO    F2950F4    24
                                        *                       DEFINED IN THE BOX ENTITLED -                    OPTIONS    72
                                        *                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES      OPTIONS    73
                                        *                       MODEL."                                          OPTIONS    74
                                        *                                                                        OPTIONS    75
                                        *         CAUTIONS -                                                     OPTIONS    76
                                        *                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING    OPTIONS    77
                                        *                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE.      OPTIONS    78
                                        *                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL     OPTIONS    79
                                        *                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC". OPTIONS    80
                                        *                    THE STANDARD "OPTIONS" COMDECK MUST BE USED.        OPTIONS    81
                                        *                                                                        OPTIONS    82
                                        ***                                                                      OPTIONS    83
  
  
  
                                        ***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL.                OPTIONS    85
                                        *                                                                        OPTIONS    86
                                         LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME               OPTIONS    87
                                        VER       MICRO  1,3,/4.8/                                               PSRLEVEL    1
                                        PSR       MICRO  1,,$871$                                                PSRLEVEL    2
                                                  IF     MIC,PSR,2                                               OPTIONS    89
                                         MODLVL   MICRO  1,9,$"PSR"         $                                    OPTIONS    90
                                                  SKIP   1                                                       OPTIONS    91
                                         MODLVL   MICRO  1,9,$"MODLEVEL"         $                               OPTIONS    92
  
  
                                        **        VALMDL - VALIDATE MACRO FOR THE HP.F MICRO                     F2950F4    25
                                                                                                                 F2950F4    26
                                                  MACRO  VALMDL,MDL                                              FCC2563     6
                                                  QUAL   IPARAM                                                  FCC2563     7
                                         MDLNUM   MICRO  2,,-"HF.P"-                                             FCC2563     8
                                                  IFC    NE,-"MDLNUM"-S-                                         FCC2563     9
                                                  ELSE                                                           FCC2563    10
                                         MDL      MICRO  1,,-73-                                                 FCC2563    11
                                                  ENDIF                                                          FCC2563    12
                                                  IFC    NE,-"MDLNUM"-74-                                        FCC2563    13
                                                  IFC    NE,-"MDLNUM"-76-                                        FCC2563    14
                                                  ELSE                                                           FCC2563    15
                                         MDL      MICRO  1,,-"MDLNUM"-                                           FCC2563    16
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE     4
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         VALMDL
  
                                                  ENDIF                                                          FCC2563    17
                                                  IFC    NE,-"MDLNUM"-175-                                       FCC2563    18
                                                  IFC    NE,-"MDLNUM"-176-                                       FCC2563    19
                                                  ELSE                                                           FCC2563    20
                                         MDL      MICRO  2,,-"MDLNUM"-                                           FCC2563    21
                                                  ENDIF                                                          FCC2563    22
                                                  IFC    NE,-"MDLNUM"-740-                                       FCC2563    23
                                                  IFC    NE,-"MDLNUM"-750-                                       FCC2563    24
                                                  IFC    NE,-"MDLNUM"-760-                                       FCC2563    25
                                                  ELSE                                                           FCC2563    26
                                         MDL      MICRO  1,,-75-                                                 FCC2563    27
                                                  ENDIF                                                          FCC2563    28
                                                  IFC    NE,-"MDLNUM"-865-                                       FCC2563    29
                                                  IFC    NE,-"MDLNUM"-875-                                       FCC2563    30
                                                  IFC    NE,-"MDLNUM"-990-                                       FCCA596    10
                                                  IFC    NE,-"MDLNUM"-994-                                       FCC2567     6
                                                  IFC    NE,-"MDLNUM"-995-                                       FCC2567     7
                                                  ELSE                                                           FCC2563    31
                                         MDL      MICRO  1,,-76-                                                 FCC2563    32
                                                  ENDIF                                                          FCC2563    33
                                                  IF     -MIC,MDL,2                                              FCC2563    34
                                                  LIST   A                                                       FCC2563    35
                                                  ERR    ILLEGAL VALUE OF HF.P MICRO = "MDLNUM"                  FCC2563    36
                                                  QUAL   *                                                       FCC2563    37
                                                  ENDM                                                           FCC2563    38
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE     5
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.                 OPTIONS    94
                                        *                                                                        OPTIONS    95
                                        *         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS      OPTIONS    96
                                        *                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT    OPTIONS    97
                                        *                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE         OPTIONS    98
                                        *                INSTALLED AND EXECUTED ON.                              OPTIONS    99
                                        *                                                                        OPTIONS   100
                                                  QUAL   IPARAM                                                  OPTIONS   101
                                                  IPARAMS                                                        OPTIONS   102
                                                   DEFINHF                                                       F2950F4    51
                                                   IF    -MIC,HF.E      IF EXIT SEQUENTIAL NOT DEFINED.          F2950F4    52
                                   1     CT7X      EQU   1              NORMAL EXIT SEQUENTAL NOT DEFINED        F2950F4    53
                                                   ELSE  1                                                       F2950F4    54
                                         CT7X      EQU   0              NORMAL EXIT SEQUENTIAL DEFINED           F2950F4    55
                                                  QUAL   *                                                       OPTIONS   103
                                        *                                                                        OPTIONS   104
                                        *         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE   OPTIONS   105
                                        *         PRECEDING CALL TO IPARAMS.                                     OPTIONS   106
                                        *                                                                        OPTIONS   107
                                        *         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO   OPTIONS   108
                                        *                THE LAST TWO CHARACTERS OF THE CYBER "HF.P" MICRO, I.E. F2950F4    56
                                        *                74, 75, 76. IT IS REFERENCED WHENEVER THE               F2950F4    57
                                        *                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST      OPTIONS   111
                                        *                BE KNOWN. FOR MACHINES WITH SERIAL CPU S "HF.P"         F2950F4    58
                                        *                RETURNS AN *S*. 73D IS SUBSTITUTED FOR THE *S* VALUE.   F2950F4    59
                                        *         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1   OPTIONS   113
                                        *                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING    FEAT126A    6
                                        *                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.           FEAT126A    7
                                        *                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS     OPTIONS   115
                                        *                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO   OPTIONS   116
                                        *                DETERMINE MACHINE DIFFERENCES.                          OPTIONS   117
                                                                                                                 OPTIONS   118
                              140000     IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH              OPTIONS   119
                                                                                                                 OPTIONS   120
                                         MDL      VALMDL                                                         F2950F4    60
                                 111     CT.CPU   EQU    "MDL"       COMPILE-TIME CPU                            OPTIONS   122
                                                                                                                 OPTIONS   123
                                   1     .OT      SET    1           SET FOR NOS                                 FEAT126A    8
                                         #OS      IFC    EQ,/"OS.NAME"/SCOPE /                                   OPTIONS   125
                                         .VER     MICRO  1,1,/"OS.VER"/                                          FEAT126A    9
                                         .OT      SET    ".VER"      SET FOR SCOPE "OS.VER"                      FEAT126A   10
                                         #OS      ENDIF                                                          OPTIONS   129
                                   1     .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM               OPTIONS   130
                                   1     CT.7X    EQU    /IPARAM/CT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED F2950F4    61
                                        *                                                                        OPTIONS   131
                                        ***                                                                      OPTIONS   132
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE     6
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS.                  OPTIONS   134
                                                                                                                 OPTIONS   135
                                                                                                                 OPTIONS   136
                                        *         ************************************************************** OPTIONS   137
                                        *         *                                                            * OPTIONS   138
                                        *         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     * S3143FC    29
                                        *         *                                                            * OPTIONS   140
                                        *         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       * OPTIONS   141
                                        *         *            ----                       ----                 * OPTIONS   142
                                        *         *                                                            * OPTIONS   143
                                        *         *            71                         6400                 * FCC1847X    6
                                        *         *            72                         6200                 * OPTIONS   144
                                        *         *            73                         6400                 * OPTIONS   145
                                        *         *            73-2                       6500                 * OPTIONS   146
                                        *         *            74                         6600                 * OPTIONS   147
                                        *         *            74-2                       6700                 * OPTIONS   148
                                        *         *            76                         7600                 * OPTIONS   149
                                        *         *            171                        6400                 * FCC1847X    7
                                        *         *            172                        6400                   FCC1264     7
                                        *         *            173                        6400                   FCC1264     8
                                        *         *            174                        6400                   FCC1264     9
                                        *         *            175                        CYBER 175 CPU          FCC1264    10
                                        *         *            176                        7600                   FCC1264    11
                                        *         *                                                            * OPTIONS   150
                                        *         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  * OPTIONS   151
                                        *         *      IGNORED.  TO BUILD A CROSS-MODEL COMPILER, SELECT A   * OPTIONS   152
                                        *         *      VALUE FROM THE LIST ABOVE, REMOVE THE ASTERISK, AND   * OPTIONS   153
                                        *         *      INSERT THE PROPER VALUE ON THE FOLLOWING  LINE.       * OPTIONS   154
                                        *         DEFMOD 74                                                      F2950F4    62
                                        *         *                                                            * OPTIONS   156
                                        *         ************************************************************** OPTIONS   157
  
  
  
                                        *         ************************************************************** OPTIONS   159
                                        *         *                                                            * OPTIONS   160
                                        *         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          * OPTIONS   161
                                        *         *                                                            * OPTIONS   162
                                        *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     * OPTIONS   163
                                        *         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      * OPTIONS   164
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  * OPTIONS   165
                                        *         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    * OPTIONS   166
                                        *         *      PARAMETER TO ZERO.                                    * OPTIONS   167
                                   0     .IWT     EQU    0                                                       OPTIONS   168
                                        *         *                                                            * OPTIONS   169
                                        *         ************************************************************** OPTIONS   170
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE     7
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   184
                                        *         *                                                            * OPTIONS   185
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   * OPTIONS   186
                                        *         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         * OPTIONS   187
                                        *         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    * OPTIONS   188
                                        *         *      VALUES ARE --                                         * OPTIONS   189
                                        *         *                                                            * OPTIONS   190
                                        *         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    * OPTIONS   191
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   192
                                        *         *                                                            * OPTIONS   193
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   194
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   195
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   196
                                        *CP#RM    =      0                                                     * OPTIONS   197
                                        *         *                                                            * OPTIONS   198
                                        *         ************************************************************** OPTIONS   199
  
  
  
  
                                        *         ************************************************************** OPTIONS   201
                                        *         *                                                            * OPTIONS   202
                                        *         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    * OPTIONS   203
                                        *         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   * OPTIONS   204
                                        *         *      VALUES ARE -                                          * OPTIONS   205
                                        *         *                                                            * OPTIONS   206
                                        *         *                  1 = ECS AVAILABLE                         * OPTIONS   207
                                        *         *                  0 = NO ECS AVAILABLE                      * OPTIONS   208
                                        *         *                                                            * OPTIONS   209
                                        *         *                  LOWER CYBER DEFAULT =                     * OPTIONS   210
                                        *         *                        0  FOR KRONOS OPERATING SYSTEM      * OPTIONS   211
                                        *         *                        /IPARAM/IP.MECS  FOR SCOPE          * OPTIONS   212
                                        *         *                  CYBER 76 DEFAULT IS 1                     * OPTIONS   213
                                        *         *                                                            * OPTIONS   214
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   215
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   216
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   217
                                        *CT.ECS   EQU    0                                                     * OPTIONS   218
                                        *         *                                                            * OPTIONS   219
                                        *         ************************************************************** OPTIONS   220
  
  
  
                                        *         ************************************************************** FEAT121A   10
                                        *         *                                                            * FEAT121A   11
                                        *         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  * FEAT121A   12
                                        *         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    * FEAT121A   13
                                        *         *      NOT ZERO, THEN WHEN OPT=2 AND *UO* ARE SELECTED, THE  * FEAT121A   14
                                        *         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN * FEAT121A   15
                                        *         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     * FEAT121A   16
                                        *         *      SUCH AS SIN, SQRT, EXP, ETC.                            FEAT121A   17
                                        *         *                                                            * FEAT121A   18
                                   1     .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY       FEAT121A   19
                                        *         *                                                            * FEAT121A   20
                                        *         ************************************************************** FEAT121A   21
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE     8
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                        *         ************************************************************** OPTIONS   222
                                        *         *                                                            * OPTIONS   223
                                        *         *      SELECT OVERLAY STRUCTURE.  VALUES ARE -               * OPTIONS   224
                                        *         *                                                            * OPTIONS   225
                                        *         *                  0 = FAX AND REFMAP ARE LOADED AS PART     * OPTIONS   226
                                        *         *                      OF THE (2,2) OVERLAY, PASS2.          * OPTIONS   227
                                        *         *                  1 = FAX AND REFMAP ARE LOADED AS A        * OPTIONS   228
                                        *         *                        SEPARATE OVERLAY. (DEFAULT)         * OPTIONS   229
                                        *         *                                                            * OPTIONS   230
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   231
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO 0.                  * OPTIONS   232
                                        *         *                                                            * OPTIONS   233
                                   1     .OVL     =      1           FAX AND REFMAP ON SEPARATE OVERLAY          OPTIONS   234
                                        *         *                                                            * OPTIONS   235
                                        *         ************************************************************** OPTIONS   236
  
  
  
  
                                        *         ************************************************************** F66FCC     20
                                        *         *                                                            * F66FCC     21
                                        *         *      SELECT USES OF INTERACTIVE DEBUG.                     * F66FCC     22
                                        *         *      NOT SUPPORTED ON SCOPE 2.                               F66FCC     23
                                        *         *      PERMISSIBLE VALUES ARE --                             * F66FCC     24
                                        *         *                  1 = ASSEMBLE CODE FOR INTERACTIVE DEBUG   * F66FCC     25
                                        *         *                  (DEFAULT FOR LOWER CYBER)                 * F66FCC     26
                                        *         *                  0 = DO NOT ASSEMBLE INTER. DEBUG CODE     * F66FCC     27
                                        *         *                  (DEFAULT FOR CYBER 76)                    * F66FCC     28
                                        *         *                                                            * F66FCC     29
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * F66FCC     30
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE       * F66FCC     31
                                        *         *      ON THE FOLLOWING LINE.                                * F66FCC     32
                                        *.FID     =      1                                                     * F66FCC     33
                                        *         *                                                            * F66FCC     34
                                        *         ************************************************************** F66FCC     35
  
  
  
                                        *         ************************************************************** OPTIONS   238
                                        *         *                                                            * OPTIONS   239
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     * OPTIONS   240
                                        *         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  * OPTIONS   241
                                        *         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      * OPTIONS   242
                                        *         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN * S3143FC    30
                                        *         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    * S3143FC    31
                                        *         *      VALUES ARE --                                         * OPTIONS   245
                                        *         *                                                            * OPTIONS   246
                                        *         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    * OPTIONS   247
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   248
                                        *         *                                                            * OPTIONS   249
                                        *         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        * OPTIONS   250
                                        *         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   * OPTIONS   251
                                        *         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    * OPTIONS   252
                                        *         *      VALUE ON THE FOLLOWING LINE.                          * OPTIONS   253
                                        *OT#RM    =      6                                                       OPTIONS   254
                                        *         *                                                            * OPTIONS   255
                                        *         ************************************************************** OPTIONS   256
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE     9
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** FEAT126AB   6
                                        *         *                                                            * FEAT126AB   7
                                        *         *      SELECT WIDTH OF PAGE IN CHARACTERS WHEN COMPILER      * FEAT126AB   8
                                        *         *      LISTINGS ARE PRINTED AS A TERMINAL FILE.              * FEAT126AB   9
                                        *         *                                                            * FEAT126AB  10
                                 110     PW.TTY   =      72                                                      FEAT126AB  11
                                        *         *                                                            * FEAT126AB  12
                                        *         ************************************************************** FEAT126AB  13
  
  
  
                                        *         ************************************************************** OPTIONS   266
                                        *         *                                                            * OPTIONS   267
                                        *         *      CALL FORMAT FOR LOADING COMPILER OVERLAYS.  VALUES -- * OPTIONS   268
                                        *         *           2 = ISSUE TWO-WORD LOADER CALLS.                 * OPTIONS   269
                                        *         *                  (UPPER CYBER, I.E. CYBER 76, DEFAULT)     * OPTIONS   270
                                        *         *           3 = ISSUE THREE-WORD LOADER CALLS.               * OPTIONS   271
                                        *         *                  (LOWER CYBER DEFAULT)                     * OPTIONS   272
                                        *         *                                                            * OPTIONS   273
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   274
                                        *         *      REMOVE THE ASTERISK AND INSERT THE DESIRED VALUE ON   * OPTIONS   275
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   276
                                        *LDRCALL  =      3                                                     * OPTIONS   277
                                        *         *                                                            * OPTIONS   278
                                        *         ************************************************************** OPTIONS   279
  
  
  
  
                                        *         ************************************************************** CP139FC    12
                                        *         *                                                            * CP139FC    13
                                        *         *      SELECT TYPE OF LOADER TABLE FOR COMPILER OVERLAYS.    * CP139FC    14
                                        *         *      TABLE TYPE MUST AGREE WITH THAT OF THE OPERATING      * CP139FC    15
                                        *         *      SYSTEM OVERLAY LOADER, AND OF THE COMPASS ASSEMBLER.  * CP139FC    16
                                        *         *      PERMISSIBLE VALUES ARE --                             * CP139FC    17
                                        *         *            50 =  ASCM (5000) TABLE.                        * CP139FC    18
                                        *         *            54 = EACPM (5400) TABLE.   (DEFAULT)            * CP139FC    19
                                        *         *                                                            * CP139FC    20
                                        *LDRTABL  SET    54                                                    * CP139FC    21
                                        *         *                                                            * CP139FC    22
                                        *         ************************************************************** CP139FC    23
  
  
  
                                        *         ************************************************************** OPTIONS   281
                                        *         *                                                            * OPTIONS   282
                                        *         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      * OPTIONS   283
                                        *         *                                                            * OPTIONS   284
                                         C        MICRO  1,,/#/                                                  OPTIONS   285
                                        *         *                                                            * OPTIONS   286
                                        *         ************************************************************** OPTIONS   287
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    10
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                        *         ************************************************************** FEAT121L    5
                                        *                                                                      * FEAT126B    3
                                        *         *      SELECT USE OF C/-LIST OPTIONS TO CONDITIONALLY TURN   * FEAT121L    6
                                        *         *      ON AND OFF SOURCE LISTING AT COMPILE TIME. TO DESELECT* FEAT121L    7
                                        *         THIS OPTION, SET THE SYMBOL ON THE FOLLOWING LINE EQUAL TO 0.  FEAT126B    4
                                        *         *                                                            * FEAT121L    9
                                   1     #NL      =      1                                                       FEAT121L   10
                                        *         *                                                            * FEAT121L   11
                                        *         ************************************************************** FEAT121L   12
  
  
  
                                        *         ************************************************************** OPTIONS   289
                                        *         *                                                            * OPTIONS   290
                                        *         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  * OPTIONS   291
                                        *         *                                                            * OPTIONS   292
                                        *         *                  CRM VALUES.                              *  F162FTNA   39
                                   6     L.FCLX   =      6           LENGTH OF FIT EXTENSION FOR FCL WSA         F162FTNA   40
                                  51     L.FIT6   =      43B+L.FCLX  FIT LENGTH, +6 FOR FCL                      F162FTNA   41
                                2003     L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH                   FCC0902     6
                                 101     L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB  OPTIONS   297
                                 401     L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB OPTIONS   298
                                        *         *                                                            * OPTIONS   299
                                        *         *                  7RM VALUES                                * OPTIONS   300
                                  20     L.FIT7   =      16D         FIT LENGTH                                  OPTIONS   301
                                   0     L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH                   OPTIONS   303
                                        *         *                                                            * OPTIONS   304
                                        *         ************************************************************** OPTIONS   305
  
  
  
  
                                        *         ************************************************************** OPTIONS   307
                                        *         *                                                            * OPTIONS   308
                                        *         *      F I X E D   L E N G T H   T A B L E S.                * OPTIONS   309
                                        *         *                                                            * OPTIONS   310
                                        *         ************************************************************** OPTIONS   311
                                        *         *                                                            * OPTIONS   312
                                        *         *      LENGTH OF INTERMEDIATE STORAGE AREA FOR ALL CON-      * OPTIONS   313
                                        *         *      STANTS IN ANY ONE SOURCE STATEMENT.  EACH CONSTANT    * OPTIONS   314
                                        *         *      BEGINS ON A NEW WORD BOUNDARY, AND IS PACKED AS TEN   * OPTIONS   315
                                        *         *      DISPLAY-CODED CHARACTERS PER WORD.                    * OPTIONS   316
                                        *         *                                                            * OPTIONS   317
                                 454     CONSTORS EQU    300D                                                    OPTIONS   318
                                        *         *                                                            * OPTIONS   319
                                        *         ************************************************************** OPTIONS   320
                                        *         *                                                            * OPTIONS   321
                                        *         *      LENGTH OF SAVED OPERATOR STACK.                       * OPTIONS   322
                                        *         *                                                            * OPTIONS   323
                                 240     MXOSE    EQU    160D                                                    OPTIONS   324
                                        *         *                                                            * OPTIONS   325
                                        *         ************************************************************** OPTIONS   326
                                        *         *                                                            * OPTIONS   327
                                        *         *      LENGTH OF SAVED FUNCTION RESULT TABLE.                * OPTIONS   328
                                        *         *                                                            * OPTIONS   329
                                 132     MXFRSTB  EQU    90D                                                     OPTIONS   330
                                        *         *                                                            * OPTIONS   331
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    11
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   332
                                        *         *                                                            * OPTIONS   333
                                        *         *      LENGTH OF *ARLIST* BUFFER.                            * OPTIONS   334
                                        *         *                                                            * OPTIONS   335
                                3200     ARLSZ    EQU    3200B                                                   OPTIONS   336
                                        *         *                                                            * OPTIONS   337
                                        *         ************************************************************** OPTIONS   338
                                        *         *                                                            * OPTIONS   339
                                        *         *      MAXIMUM LENGTH OF GLOBAL DEBUG CONSTANT TABLE.        * OPTIONS   340
                                        *         *                                                            * OPTIONS   341
                                 310     S.GCON   =      200D                                                    OPTIONS   342
                                        *         *                                                            * OPTIONS   343
                                        *         ************************************************************** OPTIONS   344
  
  
  
                                        *         ************************************************************** OPTIONS   346
                                        *         *                                                            * OPTIONS   347
                                        *         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         * OPTIONS   348
                                        *         *                                                            * OPTIONS   349
                                        *         *      WHEN THE FOLLOWING PARAMETER IS ZERO, <ARITH> WILL    * OPTIONS   350
                                        *         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    * OPTIONS   351
                                        *         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        * OPTIONS   352
                                        *         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       * OPTIONS   353
                                        *         *                                                            * OPTIONS   354
                                   0     NOINVERT EQU    0                                                       OPTIONS   355
                                        *         *                                                            * OPTIONS   356
                                        *         ************************************************************** OPTIONS   357
  
  
  
                                        ***       POST MORTEM DUMP INSTALLATION PARAMETERS                       FEAT1070C  35
  
                                        **        MAN.FL - POST PROCESSOR FIELD LENGTH                           FEAT1070C  37
                                        *                USED BY FORSYS=,PMDMP=                                  FEAT1070C  38
                               32000    MAN.FL    EQU    32000B      WAS 26000B, INCREASE FOR STATIC COMPILE     FEAT1070C  39
                                                                                 OF POST PROCESSOR.              FEAT1070C  40
  
                                        **        MAN.LINP - NUMBER OF LINES / PAGE                              FEAT1070C  42
                                        *                USED BY FTN,PMDMP=                                      FEAT1070C  43
                                 124    MAN.LINP  EQU    84D                                                     FEAT1070C  44
  
  
                                        **        MAN.XJP - POST MORTEM DUMP COMMUNICATION WORD                  FEAT1070C  46
                                        *                USED BY FORSYS=,PMDMP=                                  FEAT1070C  47
                                  51    MAN.XJP   EQU    51B                                                     FEAT1070C  48
  
  
                                        **        IDENTIFIERS FOR COMPILER TABLES ON ZZZZZSY                     FEAT1070C  50
                                        *                USED BY FTN,PMDMP= (DMPVAR)                             FEAT1070C  51
  
                                   1    ZZ.SYM    EQU    1           SYMBOL TABLE                                FEAT1070C  53
                                   2    ZZ.COM    EQU    2           COMMON BLOCK TABLE                          FEAT1070C  54
                                   3    ZZ.DIM    EQU    3           DIMENSION TABLE                             FEAT1070C  55
  
  
  
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    12
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                 124    L.PAGE    EQU    MAN.LINP                                                FEAT1070C  57
  
  
  
                                        *         ************************************************************** OPTIONS   367
                                        *         *                                                            * OPTIONS   368
                                        *         *      ERROR LISTING LINE LIMIT.                             * OPTIONS   369
                                        *         *                                                            * OPTIONS   370
                                 144     ERRMAX   EQU    100D                                                    OPTIONS   371
                                        *         *                                                            * OPTIONS   372
                                        *         ************************************************************** OPTIONS   373
  
  
  
                                        ***                                                                      OPTIONS   375
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF     OPTIONS   376
                                        *         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE    OPTIONS   377
                                        *         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF    OPTIONS   378
                                        *         THE *HF.P* MICRO OBTAINED FROM A CALL TO *IPARAMS* AND         F2950F4    63
                                        *         *DEFINHF* AT THE BEGINNING OF *OPTIONS*.                       F2950F4    64
                                        *                                                                        OPTIONS   381
                                        *         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE   OPTIONS   382
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   383
                                        *                                                                        CP139FC    24
                                        *         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR     CP139FC    25
                                        *                OPT=2 USE DURING COMPILATIONS.                          CP139FC    26
                                        *                                                                        CP139FC    27
                                        *         LDRCALL DEFINES THE FORMAT OF LOADER CALLS.  IT IS DESCRIBED   OPTIONS   384
                                        *                IN THE *OPTIONS* COMDECK.                               OPTIONS   385
                                        *                                                                        CP139FC    28
                                        *         LDRTABL  INDICATES THE TYPE OF LOADER TABLE THAT PREFIXES      CP139FC    29
                                        *                EACH COMPILER ABSOLUTE OVERLAY.                         CP139FC    30
                                                                                                                 CP139FC    31
                                                                                                                 OPTIONS   386
                                         #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU                            OPTIONS   387
                                         #MD      IFEQ   .OS,2                                                   F7540FT    18
                                                                                                                 OPTIONS   388
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   389
                                                                                                                 OPTIONS   390
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   391
                                         CP#RM    EQU    7           USE 7RM AT COMPILE-TIME                     OPTIONS   392
                                         #RM      ENDIF                                                          OPTIONS   393
                                                                                                                 OPTIONS   394
                                         #LD      IF     -DEF,LDRCALL                                            OPTIONS   395
                                         LDRCALL  EQU    2           SELECT TWO-WORD LOADER CALLS                OPTIONS   396
                                         #LD      ENDIF                                                          OPTIONS   397
                                                                                                                 OPTIONS   398
                                         #ECS     IF     -DEF,CT.ECS                                             OPTIONS   399
                                         CT.ECS   EQU    1           USE LCM AT COMPILE TIME                     OPTIONS   400
                                         #ECS     ENDIF                                                          OPTIONS   401
                                                                                                                 OPTIONS   402
                                         #FID     IF     -DEF,.FID                                               F66FCC     36
                                         .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE      F66FCC     37
                                         #FID     ENDIF                                                          F66FCC     38
                                                                                                                 F66FCC     39
                                         #MD      ELSE                                                           OPTIONS   403
                                                                                                                 OPTIONS   404
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    13
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.               S3143FC    32
                                                                                                                 OPTIONS   406
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   407
                                   0     CP#RM    EQU    0           USE CIO AT COMPILE-TIME                     OPTIONS   408
                                         #RM      ENDIF                                                          OPTIONS   409
                                                                                                                 OPTIONS   410
                                         #LD      IF     -DEF,LDRCALL                                            OPTIONS   411
                                   3     LDRCALL  EQU    3           SELECT THREE-WORD LOADER CALLS              OPTIONS   412
                                         #LD      ENDIF                                                          OPTIONS   413
                                                                                                                 OPTIONS   414
                                         #ECS     IF     -DEF,CT.ECS,4                                           OPTIONS   415
                                         #ECS     IF     DEF,/IPARAM/IP.MECS,2                                   OPTIONS   416
                                   1     CT.ECS   EQU    /IPARAM/IP.MECS                                         OPTIONS   417
                                         #ECS     SKIP   1                                                       OPTIONS   418
                                         CT.ECS   EQU    0                                                       OPTIONS   419
                                         #ECS     ENDIF                                                          OPTIONS   420
                                                                                                                 OPTIONS   421
                                         #FID     IF     -DEF,.FID                                               F66FCC     40
                                   1     .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE             F66FCC     41
                                         #FID     ENDIF                                                          F66FCC     42
                                                                                                                 F66FCC     43
                                         #MD      ENDIF                                                          OPTIONS   422
  
  
  
  
                                        *         DEFINE COMPILER OVERLAY LOADER TABLE LENGTHS.                  CP139FC    33
                                                                                                                 CP139FC    34
                                                  IF     -DEF,LDRTABL,1                                          CP139FC    35
                                  66     LDRTABL  SET    54                                                      CP139FC    36
                                                                                                                 CP139FC    37
                                                  IFEQ   LDRTABL,50,3                                            CP139FC    38
                                         LDR.00   =      1                                                       CP139FC    39
                                         LDR.NN   =      1                                                       CP139FC    40
                                                  SKIP   5                                                       CP139FC    41
                                                  IFEQ   LDRTABL,54,3                                            CP139FC    42
                                  11     LDR.00   =      11B                                                     CP139FC    43
                                   5     LDR.NN   =      5                                                       CP139FC    44
                                                  SKIP   1                                                       CP139FC    45
                                                  ERR    *LDRTABL* VALUE NOT 50 OR 54  "SEQUENCE"                CP139FC    46
  
  
  
  
                                        ***                                                                      OPTIONS   432
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    14
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS   434
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF      OPTIONS   435
                                        *         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN    OPTIONS   436
                                        *         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF      OPTIONS   437
                                        *         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME          OPTIONS   438
                                        *         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH     OPTIONS   439
                                        *         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*.              OPTIONS   440
                                        *                                                                        OPTIONS   441
                                        *         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE    OPTIONS   442
                                        *                LAST TWO CHARACTERS OF THE *HF.P* MICRO, I.E. 73, 74,   F2950F4    65
                                        *                75, 76. IT IS TO BE USED FOR OBJECT-TIME HARDWARE       F2950F4    66
                                        *                DIFFERENCES ONLY. IF THE *HF.P* MICRO RETURNS AN *S*    F2950F4    67
                                        *                THEN THE MACHINE HAS A SERIAL CPU AND *.CPU* IS         F2950F4    68
                                        *                SET EQUAL TO 73D.                                       F2950F4    69
                                        *         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS     OPTIONS   446
                                        *                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF    OPTIONS   447
                                        *                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0,      OPTIONS   448
                                        *                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY      OPTIONS   449
                                        *                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE.        OPTIONS   450
                                        *         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE    OPTIONS   451
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   452
                                                                                                                 OPTIONS   453
                                         MDL      VALMDL                                                         F2950F4    70
                                                                                                                 S3143FC    34
                                 111     .CPU     EQU    "MDL"       OBJECT TIME CPU                             OPTIONS   459
                                                                                                                 F2950F4    71
                                                  QUAL   IPARAM                                                  F2950F4    72
                                                  IPARAMS                                                        F2950F4    73
                                                  DEFINHF                                                        F2950F4    74
                                                                                                                 F2950F4    75
                                                  IF     -MIC,HF.S,2   IF SEQUENTIAL STACK NOT DEFINED           F2950F4    76
                                  -1     LSTACK   EQU    -1                                                      F2950F4    77
                                                  SKIP   5                                                       F2950F4    78
                                         STACK    MICRO  2,,/"HF.S"/                                             F2950F4    79
                                                  IFC    EQ,/"STACK"/0/,2                                        F2950F4    80
                                         LSTACK   EQU    -1                                                      F2950F4    81
                                                  SKIP   1                                                       F2950F4    82
                                         LSTACK   EQU    "STACK"                                                 F2950F4    83
                                                                                                                 F2950F4    84
                                                  IF     -MIC,HF.L    IF LCM NOT DEFINED                         F2950F4    85
                                         DAL      EQU    0           LCM ACCESS NOT ALLOWED                      F2950F4    86
                                         LCM      MICRO  1,,/ECS/                                                FCCA553     7
                                                  ELSE                                                           FCCA553     8
                                         LCM      MICRO  1,,/LCM/                                                FCCA553     9
                                   1     DAL      EQU    1           LCM ACCESS ALLOWED                          F2950F4    88
                                                  ENDIF                                                          FCCA553    10
                                                                                                                 F2950F4    89
                                                  IF     -MIC,HF.E     IF NORMAL EXIT SEQUENTIAL NOT DEFINED     F2950F4    90
                                   1     OT7X     EQU    1              NORMAL EXIT SEQUENTIAL NOT DEFINED       F2950F4    91
                                                  ELSE   1                                                       F2950F4    92
                                         OT7X     EQU    0              NORMAL EXIT SEQUENTIAL DEFINED           F2950F4    93
                                                  QUAL   *                                                       F2950F4    94
                                                                                                                 F2950F4    95
                                   0     L.STACK  EQU    /IPARAM/LSTACK+1    MAX INSTACK LOOP LENGTH + 1         F2950F4    96
                                   1     .DAL     EQU    /IPARAM/DAL        .NZ. IF LCM DIRECT ACCESS ALLOWED    F2950F4    97
                                   1     OT.7X    EQU    /IPARAM/OT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED F2950F4    98
                                   1     .NRFCO   EQU   1             HARDWARE NORMALIZE FCO INSTALLED           F2950F4    99
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    15
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                                                                                                 F2950F4   100
                                                                                                                 F7540FT    22
                                        *         CYBER 76/176 DEFAULT VALUES.                                   F7540FT    23
                                                                                                                 OPTIONS   464
                                         #MD      IFEQ   .CPU,76                                                 OPTIONS   465
                                                                                                                 OPTIONS   468
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   469
                                         #OS      IFEQ   .OS,2                                                   F7540FT    24
                                         OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O                 OPTIONS   470
                                         #OS      ELSE                                                           F7540FT    25
                                         OT#RM    =      6           USE *CRM* FOR OBJECT-TIME I/O               F7540FT    26
                                         #OS      ENDIF                                                          F7540FT    27
                                         #RM      ENDIF                                                          OPTIONS   471
                                                                                                                 OPTIONS   472
                                         SCM      MICRO  1,,/SCM/                                                OPTIONS   473
                                                                                                                 OPTIONS   475
                                         #MD      ELSE                                                           OPTIONS   476
                                                                                                                 OPTIONS   477
                                        *         LOWER CYBER DEFAULT VALUES.                                    OPTIONS   478
                                                                                                                 OPTIONS   479
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   480
                                   6     OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O                 OPTIONS   481
                                         #RM      ENDIF                                                          OPTIONS   482
                                                                                                                 OPTIONS   483
                                         SCM      MICRO  1,,/CM/                                                 OPTIONS   484
                                                                                                                 OPTIONS   486
                                         #MD      ENDIF                                                          OPTIONS   487
                                        ***                                                                      OPTIONS   489
                                        ****                                                                     OPTIONS   490
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    16
  
  
                                        ***                                                                      F162FTNA   58
                                        *         MACROS OUTPUT BY THE HEADER CARD PROCESSOR.                    F162FTNA   59
                                        *                                                                        F162FTNA   60
  
  
  
  
                                        **        USEBLK - ESTABLISH ORDER OF PROGRAM BLOCKS.                    F162FTNA   62
                                                                                                                 FTNMAC     16
                                                                                                                 F162FTNA   63
                                                  PURGMAC   USEBLK                                               F162FTNA   64
                                                                                                                 FTNMAC     18
                                         USEBLK   MACRO                                                          FTNMAC     19
                                                  USE    START.            1                                     FTNMAC     20
                                                  USE    VARDIM.           2                                     FTNMAC     21
                                                  USE    ENTRY.            3                                     FTNMAC     22
                                                  USE    CODE.             4                                     FTNMAC     23
                                                  USE    DATA.             5                                     FTNMAC     24
                                                  USE    DATA..            6                                     FTNMAC     25
                                                  USE    HOL.              7                                     FTNMAC     26
                                        *                                  DEFINE .CPU FOR MACROS IN FTNMAC.     F162FTNA   65
                                         .CPU     EQU    "MDL"                                                   F162FTNA   66
                                         USEBLK   ENDM                                                           F162FTNA   67
  
  
  
  
                                        **        STLTAB - GENERATE STATIC MODE WEAK EXTERNAL TABLE.             FCCA408    19
                                        *                                                                        FCCA408    20
                                        *         STLTAB NAME                                                    FCCA408    21
                                        *                                                                        FCCA408    22
                                        *         ARGS   *NAME*  = NAME OF *FCL* STATIC LOAD BLOCK. NOTE         FCCA408    23
                                        *                          THAT THIS TABLE IS GENERATED WITH ALL         FCCA408    24
                                        *                          POSSIBLE NAMES.                               FCCA408    25
                                                                                                                 FCCA408    26
                                                                                                                 FCCA408    27
                                                  PURGMAC STLTAB                                                 FCCA408    28
                                                                                                                 FCCA408    29
                                         STLTAB   MACRO  NAME                                                    FCCA408    30
                                                  VFD    30/=Y_NAME                                              FCCA408    31
                                         STLTAB   ENDM                                                           FCCA408    32
  
  
  
  
                                        **        LIBLNK - RUN-TIME OBJECT LIBRARY COMMUNICATION LINK.           F162FTNA   69
                                        *                                                                        FTNMAC     27
                                        *                                                                        FTNMAC     33
                                        *         LIBLNK NRFILES,PRNTLIM,STATIC,WKEXT                            FCCA408    33
                                        *                                                                        F162FTNA   71
                                        *         ARGS   *NRFILES* = NUMBER OF FILES DECLARED BY MAIN PROGRAM.   F162FTNA   72
                                        *                *PRNTLIM* = RUN-TIME OUTPUT FILE PRINT LIMIT.           F162FTNA   73
                                        *                *STATIC*  = 1 IF STATIC LOAD OPTION SELECTED.           F162FTNA   74
                                        *                            MAY BE OMITTED FOR DYNAMIC LOAD.            F162FTNA   75
                                        *                *WKEXT*   = 1 IF WEAK EXTERNAL TABLE MUST BE GENERATED. FCCA408    34
                                        *                              WILL ONLY BE SET TO 1 FOR MAIN PROGRAMS   FCCA408    35
                                        *                              WITHOUT FILES AND STATIC = 1.             FCCA408    36
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    17
                                                                      LIBLNK
  
                                                                                                                 FTNMAC     34
                                                                                                                 FTNMAC     36
                                                  PURGMAC   LIBLNK                                               F162FTNA   76
                                                                                                                 F162FTNA   77
                                         LIBLNK   MACRO  N,PL,S,W                                                FCCA408    37
                                                  LOCAL  ST                                                      F162FTNA   79
                                         ST       SET    S  0                                                    F162FTNA   80
                                        +         VFD    12/N+2000B,30/0,18/FILES.                               F162FTNA   81
                                                  VFD    1/ST,59/PL                                              F162FTNA   82
                                         .1       IFEQ   W,1                                                     FCCA408    38
                                                  VFD    12/2001B,48/WXTTAB.                                     FCCA408    39
                                                  CON    0                                                       FCCA408    40
                                         WXTTAB.  BSS    0                                                       FCCA408    41
                                                  STLTAB STLCRM.,1                                               STLOAD      8
                                                  STLTAB STLRP2.                                                 STLOAD      9
                                                  STLTAB STLICO.                                                 STLOAD     10
                                                  STLTAB STLOCO.                                                 STLOAD     11
                                                  STLTAB STLIBI.                                                 STLOAD     12
                                                  STLTAB STLOBI.                                                 STLOAD     13
                                                  STLTAB STLIBU.                                                 STLOAD     14
                                                  STLTAB STLOBU.                                                 STLOAD     15
                                                  STLTAB STLBAK.                                                 STLOAD     16
                                                  STLTAB STLENF.                                                 STLOAD     17
                                                  STLTAB STLREW.                                                 STLOAD     18
                                                  STLTAB STLCMM.                                                 FCCA535     9
                                                  IFNE   *P,0,1                                                  FCCA408    43
                                                  VFD    30/0                                                    FCCA408    44
                                         .1       ENDIF                                                          FCCA408    45
                                         +        CON    0                                                       FCCA408    46
                                         LIBLNK   ENDM                                                           F162FTNA   84
  
  
  
  
                                        **        TRACE - TRACE BACK DATA MACRO.                                 F162FTNA   86
                                                                                                                 F162FTNA   87
                                                                                                                 F162FTNA   88
                                                  PURGMAC   TRACE                                                F162FTNA   89
                                                                                                                 F162FTNA   90
                                         TRACE    MACRO  NAME,ADDR,NARGS                                         FTNMAC     37
                                         TRACE.   VFD    42/0H_NAME,18/ADDR                                      FTNMAC     38
                                        *                                  DEFINE ARGS. FOR ENTR. MACRO.         F162FTNA   91
                                         ARGS.    EQU    NARGS 0                                                 F162FTNA   92
                                        *         CONDITIONALLY DEFINE *TEMPA0.* FOR *PENTRY* MACRO TESTS.       FTNMAC     40
                                                  IFC    NE,/NARGS//,1                                           FTNMAC     41
                                         TEMPA0.  BSS    1                                                       FTNMAC     42
                                         TRACE    ENDM                                                           F162FTNA   93
  
  
  
  
                                        **        PENTRY - PROGRAM ENTRY NAME MACRO.                             F162FTNA   95
                                                                                                                 F162FTNA   96
                                                                                                                 F162FTNA   97
                                                  PURGMAC   PENTRY                                               F162FTNA   98
                                                                                                                 FTNMAC     46
                                         PENTRY   MACRO  NAME,LNAME,VAL,ER                                       FEAT155A    6
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    18
                                                                      PENTRY
  
                                                  IFNE   ER,0,2                                                  FEAT155A    7
                                        +         SB0    B2-Z.+TRACE.                                            FEAT155A    8
                                                  SB0    B2+TRACE.                                               FEAT155A    9
                                         EXIT.    BSS    0                                                       FTNMAC     48
                                                  IFEQ   VAL,2,2                                                 FTNMAC     49
                                                  SA5    VALUE.+1                                                FTNMAC     50
                                                  BX7    X5                                                      FTNMAC     51
                                                  IFNE   VAL,0,2                                                 FTNMAC     52
                                                  SA4    VALUE.                                                  FTNMAC     53
                                                  BX6    X4                                                      FTNMAC     54
                                                  IF     DEF,TEMPA0.,2                                           FTNMAC     55
                                                  SA3    TEMPA0.                                                 FTNMAC     56
                                                  SA0    X3+0                                                    FTNMAC     57
                                                  ENTRY  NAME                                                    FTNMAC     58
                                         NAME     BSS    0                                                       FTNMAC     59
                                                  IFC    NE,//LNAME/,1                                           FTNMAC     61
                                         LNAME    EQ     *+4S15                                                  F162FTNA   99
                                                  IF     DEF,TEMPA0.,3                                           FTNMAC     64
                                        +         SX6    A0                                                      FTNMAC     65
                                                  SA0    A1                                                      FTNMAC     66
                                                  SA6    TEMPA0.                                                 FTNMAC     67
                                         PENTRY   ENDM                                                           F162FTNA  100
  
  
  
  
                                        **        FLINK - FILE NAME LINK MACRO.                                  F162FTNA  102
                                                                                                                 F162FTNA  103
                                                                                                                 F162FTNA  104
                                                  PURGMAC   FLINK                                                F162FTNA  105
                                                                                                                 FTNMAC     71
                                         FLINK    MACRO  NAME                                                    FTNMAC     72
                                         X        MICRO  1,,"C"NAME"C"                                           FTNMAC     73
                                                  VFD    42/0L"X",18/NAME                                        FTNMAC     74
                                         FLINK    ENDM                                                           F162FTNA  106
  
  
  
  
                                        **        FEQU - FILE NAME EQUIVALENCE MACRO.                            F162FTNA  108
                                        *                                                                        F162FTNA  109
                                        *         ALSO USED BY THE ENTRY STMT PROCESSOR TO DEFINE ENTRY POINTS   F162FTNA  110
                                        *         THAT OCCUR BEFORE THE FIRST EXECUTABLE STATEMENT.              F162FTNA  111
                                                                                                                 FTNMAC     76
                                                                                                                 F162FTNA  112
                                                  PURGMAC   FEQU                                                 F162FTNA  113
                                                                                                                 FTNMAC     80
                                         FEQU     MACRO  LFN1,LFN2,NOENT                                         FTNMAC     81
                                                  IFC    EQ,/NOENT//,1                                           FTNMAC     82
                                                  ENTRY  LFN1                                                    FTNMAC     83
                                         LFN1     EQU    LFN2                                                    FTNMAC     84
                                         FEQU     ENDM                                                           F162FTNA  114
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    19
                                                                      FILXRM
  
                                        **        FILCRM/FIL7RM - FORM FILE FIT AND BUFFERS.                     F162FTNA  116
                                        *                                                                        F162FTNA  117
                                        *                                                                        F162FTNA  118
                                        *         FILCRM    NAME,BFS,MRL,STATIC,NOEPT                            F162FTNA  119
                                        *         FIL7RM    NAME,BFS,MRL,,NOEPT                                  F162FTNA  120
                                        *                                                                        F162FTNA  121
                                        *         ARGS   *NAME*   = LOGICAL FILE NAME, WITH SPECIAL CHAR SUFFIX. F162FTNA  122
                                        *                *BFS*    = CIO BUFFER LENGTH (BFS).                     F162FTNA  123
                                        *                *MRL*    = MAXIMUM RECORD LENGTH IN CHARACTERS (MRL).   F162FTNA  124
                                        *                *STATIC* = NON-BLANK IF STATIC LOAD OPTION SELECTED.    F162FTNA  125
                                        *                *NOEPT*  = NON-BLANK IF *SYSEDIT* OPTION SELECTED.      F162FTNA  126
                                        *                           IF BLANK, *NAME* IS DECLARED TO BE AN        F162FTNA  127
                                        *                           ENTRY POINT.                                 F162FTNA  128
                                                                                                                 F162FTNA  129
                                                                                                                 F162FTNA  130
                                        **                           DEFINE CRM FIT AND BUFFERS.                 F162FTNA  131
                                                                                                                 F162FTNA  132
                                                  PURGMAC   FILCRM                                               F162FTNA  133
                                                                                                                 F162FTNA  134
                                         FILCRM   MACRO  NAME,BFS,MRL,STATIC,NOEPT                               F162FTNA  135
                                                  LOCAL  FWB,WSA,MRLW                                            F162FTNA  136
                                        *                            DECLARE ENTRY POINT IF *NOEPT* IS BLANK.    F162FTNA  137
                                                  IFC    EQ,$NOEPT$$,1                                           F162FTNA  138
                                                  ENTRY  NAME                                                    F162FTNA  139
                                        *                                                                        F162FTNA  140
                                        *                            DEFINE CRM FIT SKELETON.                    F162FTNA  141
                                        *                                                                        F162FTNA  142
                                         LFN      MICRO  1,,"C"_NAME_"C"                                         F162FTNA  143
                                        *                                  WORD 0 - LOGICAL FILE NAME (LFN),     F162FTNA  144
                                        *                                           CIO COMPLETE BIT (CMPLT).    F162FTNA  145
                                         NAME     VFD    42/0L"LFN",18/1                                         F162FTNA  146
                                        *                                  WORD 1 - FWA CIO BUFFER (FWB).        F162FTNA  147
                                                  IFEQ   BFS,0,1                                                 FCCA408    47
                                         FWB      SET    0                                                       FCCA408    48
                                                  VFD    36/0,6/L.FIT6-L.FCLX-5,18/FWB                           FCCA408    49
                                                  BSSZ   12B-*+NAME                                              F162FTNA  150
                                        *                                  WORD 12B - LABEL TYPE (LT)=ANY.       F162FTNA  151
                                                  VFD    36/0,2/3,22/0                                           F162FTNA  152
                                        *                                  WORD 13B - OPEN (OF)=N, CLOSE (CF)=N. F162FTNA  153
                                                  VFD    25/0,2/2,3/2,30/0                                       F162FTNA  154
                                        *                                  WORD 14B - MAXIMUM RECORD LEN (MRL).  F162FTNA  155
                                                  VFD    24/MRL,36/0                                             F162FTNA  156
                                        *                                  WORD 15B - DAYFILE CONTROL (DFC)=3.   F162FTNA  157
                                                  VFD    2/0,2/3,56/0                                            F162FTNA  158
                                                  DATA   0                                                       F162FTNA  159
                                        *                                  ASSEMBLE WORKING STORAGE AREA.        F162FTNA  160
                                        *                                  WORD 17B - ERROR OPT (EO)=6, (WSA).   F162FTNA  161
                                        *                                  WORD 21B - CIRCULAR BUFF SIZE (BFS).  F162FTNA  162
                                        *                                  WORD 43B - (MRL), (WSA).              F162FTNA  163
                                                  IFNE   MRL,0,11                                                FCCA561     8
                                                  VFD    27/0,3/6,12/0,18/WSA                                    F162FTNA  165
                                                  BSSZ   1                                                       F162FTNA  166
                                                  VFD    42/0,18/BFS                                             F162FTNA  167
                                                  DATA   0                                                       FCCA561     9
                                                  DATA   0                                                       FCCA561    10
                                                  DATA   0                                                       FCCA561    11
                                                  DATA   0                                                       FCCA561    12
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    20
                                                                      FILXRM
  
                                                  VFD    20/0,4/1,36/0         FORTRAN GENERATED FIT FLAG        FCCA561    13
                                                  BSSZ   43B-*+NAME                                              F162FTNA  168
                                                  VFD    24/MRL,18/0,18/WSA                                      F162FTNA  169
                                                  SKIP   8                                                       FCCA561    14
                                        *                                  ASSEMBLE NO WORKING STORAGE AREA.     F162FTNA  171
                                        *                                  WORD 17B - ERROR OPTION (EO)=6.       F162FTNA  172
                                        *                                  WORD 21B - CIRCULAR BUFF SIZE (BFS).  F162FTNA  173
                                        *                                  WORD 43B - 0.                         F162FTNA  174
                                                  VFD    27/0,3/6,30/0                                           F162FTNA  175
                                                  BSSZ   1                                                       F162FTNA  176
                                                  VFD    42/0,18/BFS                                             F162FTNA  177
                                                  DATA   0                                                       FCCA561    15
                                                  DATA   0                                                       FCCA561    16
                                                  DATA   0                                                       FCCA561    17
                                                  DATA   0                                                       FCCA561    18
                                                  VFD    20/0,4/1,36/0         FORTRAN GENERATED FIT FLAG        FCCA561    19
                                        *                                  COMPLETE FIT.                         F162FTNA  178
                                                  BSSZ   51B-*+NAME                                              F162FTNA  179
                                        *                                                                        F162FTNA  180
                                        *                            DEFINE CIO BUFFER.                          F162FTNA  181
                                        *                                                                        F162FTNA  182
                                                  IFNE   BFS,0,1                                                 F162FTNA  183
                                         FWB      BSS    BFS                                                     F162FTNA  184
                                        *                                                                        F162FTNA  185
                                        *                            DEFINE WORKING STORAGE AREA.                F162FTNA  186
                                        *                                                                        F162FTNA  187
                                                  IFNE   MRL,0,3                                                 F162FTNA  188
                                         MRLW     SET    MRL+9D                                                  F162FTNA  189
                                         MRLW     SET    MRLW/10D                                                F162FTNA  190
                                         WSA      BSS    MRLW                                                    F162FTNA  191
                                         FILCRM   ENDM                                                           F162FTNA  192
                                                                                                                 F162FTNA  193
                                                                                                                 F162FTNA  194
                                        **                           DEFINE 7RM FIT AND BUFFER.                  F162FTNA  195
                                                                                                                 F162FTNA  196
                                                  PURGMAC   FIL7RM                                               F162FTNA  197
                                                                                                                 F162FTNA  198
                                         FIL7RM   MACRO  NAME,BFS,MRL,,NOEPT                                     F162FTNA  199
                                                  LOCAL  MRLW,UBC,WSA                                            F162FTNA  200
                                        *                            DECLARE ENTRY POINT IF *NOEPT* IS BLANK.    F162FTNA  201
                                                  IFC    EQ,$NOEPT$$,1                                           F162FTNA  202
                                                  ENTRY  NAME                                                    F162FTNA  203
                                        *                                                                        F162FTNA  204
                                        *                            DEFINE 7RM FIT SKELETON.                    F162FTNA  205
                                        *                                                                        F162FTNA  206
                                         NAME     BSSZ   2                                                       F162FTNA  207
                                        *                                  WORD 2 - OPEN (OF)=N, LABEL (LT)=UL.  F162FTNA  208
                                                  VFD    24/0,2/2,4/1,2/2,28/0                                   FCCA561    20
                                                  BSSZ   3                                                       F162FTNA  210
                                        *                                  WORD 6 - (MRL - UBC,MRLW), (WSA).     F162FTNA  211
                                                  IFNE   MRL,0,5                                                 F162FTNA  212
                                         MRLW     SET    MRL+9D                                                  F162FTNA  213
                                         MRLW     SET    MRLW/10D                                                F162FTNA  214
                                         UBC      SET    10*MRLW-MRL                                             F162FTNA  215
                                         UBC      SET    6*UBC                                                   F162FTNA  216
                                                  VFD    6/UBC,18/MRLW,15/0,21/WSA                               F162FTNA  217
                                                  DATA   0                                                       FCCA561    21
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    21
                                                                      FILXRM
  
                                                  VFD    14/0,4/1,42/0         FORTRAN GENERATED FIT FLAG        FCCA561    22
                                        *                                  COMPLETE FIT.                         F162FTNA  218
                                                  BSSZ   20B-*+NAME                                              F162FTNA  219
                                        *                                                                        F162FTNA  220
                                        *                            DEFINE WORKING STORAGE AREA (WSA).          F162FTNA  221
                                        *                                                                        F162FTNA  222
                                                  IFNE   MRL,0,2                                                 F162FTNA  223
                                                  BSS    BFS                                                     F162FTNA  224
                                         WSA      BSS    MRLW                                                    F162FTNA  225
                                         FIL7RM   ENDM                                                           F162FTNA  226
  
  
  
  
                                        **        FILEF - FORM FILE TABLES.                                      FTNMAC     87
                                        *                                                                        F162FTNA  227
                                        *         77 FEB 01. -- FORTRAN EXTENDED OBJECT CODE NOW REFERENCES THE  F162FTNA  228
                                        *         *FILCRM/FIL7RM* MACRO INSTEAD OF THE *FILEF* MACRO.            F162FTNA  229
                                        *                THE *FILEF* MACRO DEFINITION THAT FOLLOWS WILL BE       F162FTNA  230
                                        *         PERMANENTLY REMOVED FROM *FTNMAC* BY 78 JAN 01.  USERS ARE     F162FTNA  231
                                        *         ADVISED TO MODIFY EXISTING SYMBOLIC CODE BEFORE THAT DATE,     F162FTNA  232
                                        *         BY RECOMPILING OR OTHER SUITABLE METHOD.                       F162FTNA  233
                                        *                                                                        FTNMAC     88
                                        *         FORMS THE FOLLOWING FILE TABLES --                             FTNMAC     89
                                        *                A.  SKELETON FILE INFORMATION TABLE (FIT).              FTNMAC     90
                                        *                B.  SKELETON FILE ENVIRONMENT TABLE (FET) - 6RM ONLY.   FTNMAC     91
                                        *                C.  CIRCULAR I/O BUFFER - 6RM ONLY.                     FTNMAC     92
                                        *                D.  IF *FMRL* IS NON-ZERO, ALLOCATES A WORKING STORAGE  FTNMAC     93
                                        *                    AREA, OF LENGTH (*FMRL*+9)/10+4 WORDS.              FTNMAC     94
                                        *                                                                        FTNMAC     95
                                        *                                                                        FTNMAC     96
                                        *         FILEF     BUFL,FMRL,NAME,NOENT                                 FTNMAC     97
                                        *                                                                        FTNMAC     98
                                        *         ENTRY  *BUFL*  = CIO BUFFER LENGTH (WORDS).                    FTNMAC     99
                                        *                *FMRL*  = MAXIMUM RECORD LENGTH (CHARACTERS).           FTNMAC    100
                                        *                          MAY BE ZERO OR OMITTED.                       FTNMAC    101
                                        *                *NAME*  = FILE NAME.                                    FTNMAC    102
                                        *                *NOENT* = NON-BLANK TO SUPPRESS DECLARATION OF          FTNMAC    103
                                        *                          *NAME* AS AN ENTRY POINT.  MAY BE OMITTED.    FTNMAC    104
                                                                                                                 FTNMAC    105
                                                                                                                 FTNMAC    106
                                                  PURGMAC   FILEF                                                FTNMAC    107
                                                                                                                 FTNMAC    108
                                         #RM      IFEQ   OT#RM,6                                                 FTNMAC    109
                                                                                                                 FTNMAC    110
                                         FILEF    MACRO  BUFL,FMRL,NAME,NOENT                                    FTNMAC    111
                                                  LOCAL  FMRLW,FWSA,FFET,FBUF                                    FTNMAC    112
                                                  IFC    EQ,$NOENT$$,1                                           FTNMAC    113
                                                  ENTRY  NAME                                                    FTNMAC    114
                                         FWSA     MICRO  1,, 0                                                   FTNMAC    115
                                        *                            SET MAXIMUM RECORD LENGTH (WORDS).          FTNMAC    116
                                                  IFNE   FMRL,0,4                                                FTNMAC    117
                                         FMRLW    SET    FMRL+9D                                                 FTNMAC    118
                                         FMRLW    SET    FMRLW/10D                                               FTNMAC    119
                                         FWSA     MICRO  1,,$FWSA$                                               FTNMAC    120
                                                  SKIP   1                                                       FTNMAC    121
                                         FMRLW    SET    0                                                       FTNMAC    122
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    22
                                                                      FILEF 
  
                                        *                            FORM 6RM FIT SKELETON.                      FTNMAC    123
                                         NAME     DATA   0                                                       FTNMAC    124
                                                  CON    FFET                                                    FTNMAC    125
                                                  VFD    24/0,2/2,4/0,2/3,28/0   OPEN (NO REWIND), LT=ANY        FTNMAC    126
                                                  VFD    24/0,18/BUFL,18/0                                       FTNMAC    127
                                                  DATA   0                                                       FTNMAC    128
                                                  CON    FBUF                                                    FTNMAC    129
                                                  VFD    24/FMRL,15/0,21/"FWSA"                                  FTNMAC    130
                                                  BSSZ   19D-*+NAME                                              FTNMAC    131
                                        *                            FORM FET SKELETON.                          FTNMAC    132
                                         FFET     BSSZ   13D                                                     FTNMAC    133
                                        *                            FORM CIO BUFFER.                            FTNMAC    134
                                         FBUF     BSSZ   BUFL                                                    FTNMAC    135
                                        *                            FORM WSA.                                   FTNMAC    136
                                                  BSSZ   4*FMRLW/FMRLW                                           FTNMAC    137
                                         FWSA     BSSZ   FMRLW                                                   FTNMAC    138
                                         FILEF    ENDM                                                           FTNMAC    139
                                                                                                                 FTNMAC    140
                                         #RM      ELSE                                                           FTNMAC    141
                                                                                                                 FTNMAC    142
                                         FILEF    MACRO  BUFL,FMRL,NAME,NOENT                                    FTNMAC    143
                                                  LOCAL  FMRLW,FWSA                                              FTNMAC    144
                                                  IFC    EQ,$NOENT$$,1                                           FTNMAC    145
                                                  ENTRY  NAME                                                    FTNMAC    146
                                         FWSA     MICRO  1,, 0                                                   FTNMAC    147
                                        *                            SET MAXIMUM RECORD LENGTH (WORDS).          FTNMAC    148
                                                  IFNE   FMRL,0,5                                                FTNMAC    149
                                         FMRLW    SET    FMRL+9D                                                 FTNMAC    150
                                         FMRLW    SET    FMRLW/10D                                               FTNMAC    151
                                         FWSA     MICRO  1,,$FWSA$                                               FTNMAC    152
                                         FMRLW1   SET    60*FMRLW-6*FMRL                                         FTNMAC    153
                                                  SKIP   2                                                       FTNMAC    154
                                         FMRLW1   SET    0                                                       FTNMAC    155
                                         FMRLW    SET    0                                                       FTNMAC    156
                                        *                            FORM 7RM FIT SKELETON.                      FTNMAC    157
                                         NAME     BSSZ   2                                                       FTNMAC    158
                                                  VFD    24/0,2/2,4/0,2/2,28/0   OPEN (NO REWIND), LT=UL         FTNMAC    159
                                                  BSSZ   3                                                       FTNMAC    160
                                                  VFD    6/FMRLW1,18/FMRLW,15/0,21/"FWSA"                        FTNMAC    161
                                                  BSSZ   16D-*+NAME                                              FTNMAC    162
                                        *                            FORM WSA.                                   FTNMAC    163
                                                  BSSZ   4*FMRLW/FMRLW                                           FTNMAC    164
                                         FWSA     BSSZ   FMRLW                                                   FTNMAC    165
                                         FILEF    ENDM                                                           FTNMAC    166
                                                                                                                 FTNMAC    167
                                         #RM      ENDIF                                                          FTNMAC    168
  
  
  
                                        *         FILE - FORM A FIT, FET, AND BUFFER FOR A FILE                  FTNMAC    170
                                        *                                                                        FTNMAC    171
                                        *         73 JUN 01. -- FORTRAN EXTENDED OBJECT CODE NOW REFERENCES THE  FTNMAC    172
                                        *         *FILEF* MACRO INSTEAD OF THE *FILE* MACRO, TO INCLUDE A        FTNMAC    173
                                        *         WORKING STORAGE AREA AND TO PREVENT POSSIBLE INTERFERENCE      FTNMAC    174
                                        *         FROM/TO THE RECORD MANAGER *FILE* MACRO.                       FTNMAC    175
                                        *                THE FOLLOWING DEFINITION OF *FILE* WILL BE PERMANENTLY  FTNMAC    176
                                        *         REMOVED FROM *FTNMAC* BY 74 JUN 01.  USERS ARE ADVISED TO      FTNMAC    177
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    23
  
  
                                        *         MODIFY EXISTING SYMBOLIC CODE BEFORE THAT DATE, BY             FTNMAC    178
                                        *         RECOMPILING OR OTHER SUITABLE METHOD.                          FTNMAC    179
                                                                                                                 FTNMAC    180
                                                  PURGMAC   FILE                                                 FTNMAC    181
                                                                                                                 FTNMAC    182
                                         FILE     MACRO  LEN,NAME,NOENT                                          FTNMAC    183
                                                  IFC    EQ,/NOENT//,1                                           FTNMAC    184
                                                  ENTRY  NAME                                                    FTNMAC    185
                                         NAME     BSSZ   1                                                       FTNMAC    186
                                                  VFD    42/0,18/NAME+18   FET ADDRESS                           FTNMAC    187
                                                  VFD    24/0,2/2,4/0,2/3,28/0    LT=ANY , NOREWIND              FTNMAC    188
                                                  VFD    24/0,18/LEN+2,18/0    BUFFER SIZE                       FTNMAC    189
                                                  BSSZ   1                                                       FTNMAC    190
                                                  VFD    42/0,18/NAME+18+10    BUFFER ADDRESS                    FTNMAC    191
                                                  BSSZ   12+10+LEN+2 18 FOR FIT   10 FOR FET                     FTNMAC    192
                                                  ENDM                                                           FTNMAC    193
  
  
  
                                        *         FORPAR - MACRO TO ESTABLISH THE ORDERING OF THE F.P.           FTNMAC    195
                                        *         BLOCKS FOR FORMAL PARAMETER ADDRESS SUBSTITUTION.              RSM3545C    7
                                        *         ASSIGNS BASE ADDRESSES FOR EACH F.P. BLOCK AND                 RSM3545C    8
                                        *         GENERATES A SPECIAL F.P. SYMBOL EQUATED TO THIS F.P.           RSM3545C    9
                                        *         POSITION IN THE PARAMETER LIST.                                RSM3545C   10
                                                                                                                 FTNMAC    197
                                         FORPAR   MACRO  FP                                                      RSM3545C   11
                                                  USE    FP                                                      RSM3545C   12
                                         FP       BSS    0                                                       RSM3545C   13
                                                  IF     -DEF,.NFP,2                                             RSM3545C   14
                                         .DEL     SET    -1                                                      RSM3545C   15
                                         .NFP     SET    0                                                       RSM3545C   16
                                         .FP      SET    0                                                       RSM3545C   17
                                         (FP      EQU    .NFP                                                    RSM3545C   18
                                         .NFP     SET    .NFP+1                                                  RSM3545C   19
                                                  ENDM                                                           FTNMAC    201
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    24
  
  
                                        ***                                                                      FTNMAC    203
                                        *         GENERAL MACROS.                                                F162FTNA  234
                                        *                                                                        FTNMAC    205
  
  
  
  
                                        **        GNAME - MACRO TO DEFINE A NAMELIST GROUP NAME.                 F162FTNA  236
                                                                                                                 F162FTNA  237
                                                                                                                 F162FTNA  238
                                                  PURGMAC   GNAME                                                F162FTNA  239
                                                                                                                 F162FTNA  240
                                         GNAME    MACRO  NAME                                                    FTNMAC    206
                                                  LOCAL  X                                                       FTNMAC    207
                                        *                            REMOVE POSSIBLE $.                          F162FTNA  241
                                         X        MICRO  1,,$NAME$                                               F162FTNA  242
                                         NAME     BSS    0                                                       FTNMAC    209
                                                  VFD    42/0L"X",18/0                                           FTNMAC    210
                                         GNAME    ENDM                                                           F162FTNA  243
  
  
  
  
                                        **        NAME - DEFINE PROPERTIES OF A NAMELIST GROUP VARIABLE.         F162FTNA  245
                                                                                                                 F162FTNA  246
                                                                                                                 F162FTNA  247
                                                  PURGMAC   NAME                                                 F162FTNA  248
                                                                                                                 F162FTNA  249
                                         NAME     MACRO  N,T,BASE,BIAS,FP,NDIM,D1,D2,D3                          FTNMAC    217
                                                  LOCAL  Z                                                       FTNMAC    218
                                         Z        MICRO  1,,$N$                                                  FTNMAC    219
                                                  VFD    42/0L"Z",12/NDIM,6/T-T/8*8                              FTNMAC    220
                                         .FP      IFC    NE,/FP//                                                FTNMAC    221
                                                  VFD    30/D1,1/T/8,1/1,28/FP                                   FTNMAC    222
                                         .FP      ELSE                                                           FTNMAC    223
                                                  VFD    30/D1                                                   FTNMAC    224
                                         .BASE    IFC    NE,/BASE//                                              FTNMAC    225
                                                  VFD    1/T/8,29/BASE+BIAS                                      FTNMAC    226
                                         .BASE    ELSE                                                           FTNMAC    227
                                                  VFD    1/T/8,29/N                                              FTNMAC    228
                                         .BASE    ENDIF                                                          FTNMAC    229
                                         .FP      ENDIF                                                          FTNMAC    230
                                                  IFGT   NDIM,1,1                                                FTNMAC    231
                                                  VFD    30/D3,30/D2                                             FTNMAC    232
                                         NAME     ENDM                                                           F162FTNA  250
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    25
                                                                      FMT 
  
                                        **        FMT - DEFINE A FORMAT LABEL.                                   F162FTNA  252
                                                                                                                 FTNMAC    233
                                                                                                                 F162FTNA  253
                                                  PURGMAC   FMT                                                  F162FTNA  254
                                                                                                                 F162FTNA  255
                                         FMT      MACRO  LABEL                                                   FTNMAC    239
                                                  LOCAL  X                                                       FTNMAC    240
                                         X        MICRO  2,,/LABEL/                                              FTNMAC    241
                                         LABEL    DATA   6L "X"                                                  FTNMAC    242
                                         FMT      ENDM                                                           F162FTNA  256
  
  
  
  
                                        **        EIO - MACRO TO DEFINE I/O APLIST TERMINATOR.                   F162FTNA  258
                                                                                                                 F162FTNA  259
                                                                                                                 F162FTNA  260
                                                  PURGMAC   EIO                                                  F162FTNA  261
                                                                                                                 F162FTNA  262
                                         EIO      MACRO  P                                                       FTNMAC    256
                                                  VFD    60/P                                                    FTNMAC    257
                                         EIO      ENDM                                                           F162FTNA  263
  
  
  
  
                                        **        IOM - MACRO TO DEFINE I/O APLIST ENTRY.                        F162FTNA  265
                                                                                                                 F162FTNA  266
                                                                                                                 F162FTNA  267
                                                  PURGMAC   IOM                                                  F162FTNA  268
                                                                                                                 F162FTNA  269
                                         IOM      MACRO  BASE1,BIAS,TYPE,COUNT,B59,B57,BASE2                     FTNMAC    263
                                         .P       MICRO  1,,                                                     FCC0448     5
                                         .1       MICRO  1,1,/BASE1/                                             FCC0448     6
                                                  IFC    EQ,/".1"/#/,1                                           FCC0448     7
                                         .P       MICRO  1,,/=S/                                                 FCC0448     8
                                                  VFD    1/B59                                                   FTNMAC    264
                                                  IFC    EQ,/BASE1//,2                                           FTNMAC    265
                                                  VFD    1/1                                                     FTNMAC    266
                                                  ELSE   1                                                       FTNMAC    267
                                                  VFD    1/0                                                     FTNMAC    268
                                                  VFD    1/B57                                                   FTNMAC    269
                                                  VFD    9/TYPE                                                  FTNMAC    270
                                                  IFC    EQ,/BASE2//,3                                           FTNMAC    272
                                                  VFD    24/COUNT                                                FTNMAC    273
                                                  VFD    24/".P"BASE1+BIAS                                       FCC0448     9
                                                  SKIP   2                                                       FCC2345     9
                                                  VFD    24/COUNT                                                FTNMAC    276
                                                  VFD    18/BASE2,6/BIAS                                         FTNMAC    277
                                         IOM      ENDM                                                           F162FTNA  270
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    26
                                                                      ORG 
  
                                        **        ORG - SET FWA ADDRESS FOR DATA PLACEMENT.                      F162FTNA  272
                                        *                                                                        FTNMAC    285
                                        *                                                                        F162FTNA  273
                                        *         ARGS   *NAME* = SYMBOL NAME.  IF ABSENT, MACRO GENERATES       F162FTNA  274
                                        *                         AN  *  ORG. K.*  STATEMENT.                    F162FTNA  275
                                        *                *BIAS* = SYMBOL BIAS.                                   F162FTNA  276
                                        *                *F*    = NON-BLANK IF 2ND OCCURRENCE OF A USAGE DEFINED F162FTNA  277
                                        *                         VARIABLE.                                      F162FTNA  278
                                                                                                                 FTNMAC    291
                                                                                                                 FTNMAC    292
                                         ORG.     OPSYN  ORG                                                     FTNMAC    293
                                                  PURGMAC   ORG                                                  FTNMAC    294
                                                                                                                 FTNMAC    295
                                         ORG      MACRO  NAME+BIAS,F                                             FTNMAC    296
                                        NN        IFC    NE,//NAME/                                              FTNMAC    297
                                        *                                                                        F162FTNA  279
                                        D         IF     -DEF,NAME                                               FTNMAC    299
                                                  USE    DATA.                                                   FTNMAC    300
                                         NAME     BSS    0                                                       FTNMAC    301
                                        D         ELSE                                                           FTNMAC    302
                                                  IFC    NE,/F//,2                                               FTNMAC    303
                                                  USE    DATA.                                                   FTNMAC    304
                                        *                            SAVE CURRENT DATA. ADDRESS.                 F162FTNA  280
                                         K.       SET    *                                                       F162FTNA  281
                                                  ORG.   NAME+BIAS                                               FTNMAC    306
                                         S.       SET    *                                                       FTNMAC    307
                                        D         ENDIF                                                          FTNMAC    308
                                        *                                                                        F162FTNA  282
                                        NN        ELSE                                                           FTNMAC    310
                                        *                            RESTORE ADDRESS.                            F162FTNA  283
                                                  ORG.   K.                                                      F162FTNA  284
                                        NN        ENDIF                                                          FTNMAC    312
                                        *                                                                        FTNMAC    318
                                         ORG      ENDM                                                           F162FTNA  285
  
  
  
  
                                        **        REPI - INSTANT REPLICATION TABLE MACRO.                        F162FTNA  287
                                        *                                                                        F162FTNA  288
                                        *                                                                        F162FTNA  289
                                        *         ARGS   *DLEN*   = LENGTH OF CONSTANTS TO BE REPLICATED.        F162FTNA  290
                                        *                *RC*     = REPETITION COUNT.                            F162FTNA  291
                                        *                *INC*    = INCREMENT OF FIRST WORD ADDRESS.             F162FTNA  292
                                        *                *DESTIN* = DESTINATION ADDRESS.                         F162FTNA  293
                                                                                                                 FTNMAC    324
                                                                                                                 FTNMAC    325
                                         REPI.    OPSYN  REPI                                                    FTNMAC    326
                                                  PURGMAC   REPI                                                 FTNMAC    327
                                                                                                                 FTNMAC    328
                                         REPI     MACRO  DLEN,RC,INC,DESTIN                                      FTNMAC    329
                                                  LOCAL  II                                                      FTNMAC    330
                                        *                            PROVIDE 3RD ARG IF ABSENT.                  F162FTNA  294
                                         II       SET    INC  0                                                  F162FTNA  295
                                                  IFC    EQ,//DESTIN/                                            FTNMAC    332
                                                  REPI.  S/S.,B/DLEN,C/RC,I/II                                   FTNMAC    333
                                                  ELSE                                                           FTNMAC    334
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    27
                                                                      REPI
  
                                                  REPI.  S/S.,B/DLEN,C/RC,I/II,D/S.+DESTIN                       FTNMAC    335
                                                  ENDIF                                                          FTNMAC    336
                                         REPI     ENDM                                                           F162FTNA  296
  
  
  
  
                                        **        HOL - MACRO TO PUT OUT THE LAST WORD OF A HOLLERITH CONSTANT.  F162FTNA  298
                                                                                                                 F162FTNA  299
                                                                                                                 F162FTNA  300
                                                  PURGMAC   HOL                                                  F162FTNA  301
                                                                                                                 F162FTNA  302
                                         HOL      OPSYN  DATA                                                    FTNMAC    342
  
  
  
  
                                        **        ENTR. - DEFINE ALTERNATE ENTRY POINT IN FORTRAN PROGRAM UNIT.  F162FTNA  304
                                                                                                                 F162FTNA  305
                                                                                                                 F162FTNA  306
                                                  PURGMAC   ENTR.                                                F162FTNA  307
                                                                                                                 F162FTNA  308
                                         ENTR.    MACRO  N                                                       FTNMAC    348
                                                  LOCAL  X,Z                                                     FTNMAC    349
                                        *                                                                        F162FTNA  309
                                         ANA      IFEQ   ARGS.,0                                                 FTNMAC    351
                                        *                                                                        F162FTNA  310
                                        *         *ENTR.* MACRO FOR SUBROUTINE WITHOUT ARGUMENTS.                F162FTNA  311
                                        *         TRANSFER  *EQ EXIT.*  JUMP TO MAIN ENTRY POINT.                F162FTNA  312
                                        *                                                                        F162FTNA  313
                                                  ENTRY  N                                                       FTNMAC    356
                                         N        BSSZ   1                                                       FTNMAC    357
                                                  SA1    N                                                       FTNMAC    358
                                                  BX6    X1                                                      FTNMAC    359
                                                  SA6    ENTRY.                                                  FTNMAC    360
                                                  RJ     *+1                                                     F2950F4   101
                                                  BSSZ   1                                                       F2950F4   102
                                                  BSS    0                                                       FTNMAC    361
                                        *                                                                        F162FTNA  314
                                         ANA      ELSE                                                           FTNMAC    363
                                        *                                                                        F162FTNA  315
                                        *         *ENTR.* MACRO FOR SUBROUTINE WITH FORMAL PARAMETERS.           F162FTNA  316
                                        *                                                                        F162FTNA  317
                                         N        BSSZ   1                                                       FTNMAC    367
                                                  ENTRY  N                                                       FTNMAC    368
                                                  SA2    X                                                       FTNMAC    369
                                                  BX6    X2                                                      FTNMAC    370
                                                  SA6    FTNNOP.                                                 FTNMAC    371
                                                  RJ     *+1                                                     F2950F4   103
                                                  BSSZ   1                                                       F2950F4   104
                                                  EQ     ENTRY.+1                                                FTNMAC    372
                                         X        EQ     Z                                                       FTNMAC    373
                                         Z        SA1    NOPS.                                                   FTNMAC    374
                                                  SA2    N                                                       FTNMAC    375
                                                  BX6    X1                                                      FTNMAC    376
                                                  LX7    X2                                                      FTNMAC    377
                                                  SA6    FTNNOP.                                                 FTNMAC    378
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    28
                                                                      ENTR. 
  
                                                  SA7    ENTRY.                                                  FTNMAC    379
                                                  RJ     *+1                                                     F2950F4   105
                                                  BSSZ   1                                                       F2950F4   106
                                                  BSS    0                                                       FTNMAC    380
                                        *                                                                        F162FTNA  318
                                         ANA      ENDIF                                                          FTNMAC    382
                                        *                                                                        F162FTNA  319
                                         ENTR.    ENDM                                                           F162FTNA  320
  
  
  
  
                                        **        APL - FORM APLIST PARAMETER WORD.                              F162FTNA  322
                                                                                                                 F162FTNA  323
                                                                                                                 F162FTNA  324
                                                  PURGMAC   APL                                                  F162FTNA  325
                                                                                                                 FTNMAC    388
                                         APL      MACRO  X                                                       FTNMAC    389
                                                  CON    X 0                                                     FTNMAC    390
                                         APL      ENDM                                                           F162FTNA  326
  
  
  
  
                                        **        EPL - DEFINE EQUIVALENCED APLIST.                              F162FTNA  328
                                                                                                                 F162FTNA  329
                                                                                                                 F162FTNA  330
                                                  PURGMAC   EPL                                                  F162FTNA  331
                                                                                                                 FTNMAC    394
                                         EPL      MACRO  N,I,CA                                                  FTNMAC    395
                                         [AP_N    EQU    [AP_I+CA                                                FTNMAC    396
                                         EPL      ENDM                                                           F162FTNA  332
  
  
  
  
                                        **        LAP - DEFINE LCM APLIST ITEM.                                  FTNMAC    399
                                                                                                                 F162FTNA  334
                                                                                                                 F162FTNA  335
                                                  PURGMAC   LAP                                                  F162FTNA  336
                                                                                                                 FTNMAC    400
                                         LAP      MACRO  SYM,BIAS                                                FTNMAC    401
                                                  VFD    1/1,59/SYM+BIAS                                         FTNMAC    402
                                         LAP      ENDM                                                           F162FTNA  337
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    29
  
  
                                        ***                                                                      FTNMAC    405
                                        *         MACROS ISSUED BY *POST*.                                       F162FTNA  339
                                        *                                                                        FTNMAC    407
  
  
  
  
                                        **        RJT - DEFINE RETURN JUMP WITH TRACEBACK MACRO.                 F162FTNA  341
                                                                                                                 F162FTNA  342
                                                                                                                 F162FTNA  343
                                                  PURGMAC   RJT                                                  F162FTNA  344
                                                                                                                 FTNMAC    413
                                         RJT      MACRO  SYM,LINE,FP                                             FTNMAC    414
                                         +        RJ     SYM                                                     FTNMAC    415
                                                  IFC    NE,//FP/,1                                              FTNMAC    416
                                                  SUB    SYM                                                     FTNMAC    417
                                                  IFLT   LINE,7777B,2                                            FTNMAC    418
                                        -         VFD    12/LINE,18/TRACE.                                       FTNMAC    419
                                                  ELSE   3                                                       FTNMAC    420
                                        -         VFD    12/-0,18/TRACE.                                         FCC1085     6
                                                  SB0    0                                                       FTNMAC    422
                                                  SB0    LINE                                                    FTNMAC    423
                                         RJT      ENDM                                                           F162FTNA  345
  
  
  
  
                                        **        ED - OUTPUT EQ JUMP FOR *DEBUG* MODE FOR TRACED LABEL.         FTNMAC    426
                                                                                                                 F162FTNA  347
                                                                                                                 F162FTNA  348
                                                  PURGMAC   ED                                                   F162FTNA  349
                                                                                                                 FTNMAC    427
                                         ED       MACRO  SYM,CA                                                  FTNMAC    428
                                        +         EQ     SYM                                                     FTNMAC    429
                                        -         VFD    30/LABEL.+CA                                            FTNMAC    430
                                         ED       ENDM                                                           F162FTNA  350
  
  
  
  
                                        **        SUB - RUN-TIME FORMAL PARAMETER SUBSTITUTION MACRO.            F162FTNA  352
                                                                                                                 F162FTNA  353
                                                                                                                 F162FTNA  354
                                                  PURGMAC   SUB                                                  F162FTNA  355
                                                                                                                 F162FTNA  356
                                         SUB      MACRO  FP,CA                                                   RSM3545C   20
                                         .POS     SET    $+2001B-$/59*61                                         RSM3545C   21
                                         .ORG     SET    *L-$/59                                                 RSM3545C   22
                                                  USE    FP                                                      RSM3545C   23
                                                  IFEQ   *L,FP,1                                                 RSM3545C   24
                                         .DEL     SET    1                                                       RSM3545C   25
                                                  IFEQ   .ORG,.FP,1                                              RSM3545C   26
                                         .DEL     SET    1                                                       RSM3545C   27
                                                  VFD    12/.DEL*.POS,6/(FP,6/0,18/CA,18/.ORG                    RSM3545C   28
                                         .DEL     SET    -1                                                      RSM3545C   29
                                         .FP      SET    .ORG                                                    RSM3545C   30
                                                  USE    *                                                       FTNMAC    438
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    30
                                                                      SUB 
  
                                                  ENDM                                                           FTNMAC    439
  
  
  
             0                                    END                                                            FTNMAC    488
  
                             46500B CM  STORAGE USED             1855 STATEMENTS      130 SYMBOLS      000002 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.208 SECONDS          69 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ARLSZ        3200                  11/05 D
        CONSTORS      454                  10/44 D
        CP#RM           0                  13/03 F   13/04 D
        CT.CPU        111                   5/36 D   12/35 F
        CT.ECS          1                  13/11 F   13/13 D
        CT.7X           1                   5/44 D
        ERRMAX        144                  12/09 D
        IP.MFL     140000                   5/33 D
        LDRCALL         3                  13/07 F   13/08 D
        LDRTABL        66                  13/29 F   13/30 D   13/32 F   13/36 F
        LDR.NN          5                  13/38 D
        LDR.00         11                  13/37 D
        L.FCLX          6                  10/18 D   10/19
        L.FIT6         51                  10/19 D
        L.FIT7         20                  10/25 D
        L.IOBUF6     2003                  10/20 D
        L.IOBUF7        0                  10/26 D
        L.PAGE        124                  12/01 D
        L.STACK         0                  14/54 D
        L.TIN         101                  10/21 D
        L.TOUT        401                  10/22 D
        MAN.FL      32000                  11/36 D
        MAN.LINP      124                  11/41 D   12/01
        MAN.XJP        51                  11/46 D
        MXFRSTB       132                  10/56 D
        MXOSE         240                  10/50 D
        NOINVERT        0                  11/26 D
        OT.7X           1                  14/56 D
        OT#RM           6                  15/21 F   15/22 D   21/44 F
        PW.TTY        110                   9/06 D
        S.GCON        310                  11/11 D
        ZZ.COM          2                  11/53 D
        ZZ.DIM          3                  11/54 D
        ZZ.SYM          1                  11/52 D
        .CDCLIB         1                   7/53 D
        .CPU          111                  14/25 D   15/05 F
        .DAL            1                  14/55 D
        .FID            1                  13/18 F   13/19 D
        .IWT            0                   6/44 D
        .NRFCO          1                  14/57 D
        .OS             1                   5/43 D
        .OT             1                   5/38 D    5/43
        .OVL            1                   8/13 D
        #NL             1                  10/07 D
1       FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                    COMPASS 3.7-871.     24/05/02. 15.50.26.      PAGE    31
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
                                                  SYMBOL QUALIFIER =  IPARAM
  
  
        CT7X            1                   5/12 D    5/44
        DAL             1                  14/45 D   14/55
        IP.MECS         1                  13/12 F   13/13
        IP.MFL     140000                   5/33
        LSTACK    7777776                  14/32 D   14/54
        OT7X            1                  14/49 D   14/56
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTNTEXT
                          0                       END 
  
  
  
  
                                                  IDENT  FTNTEXT                                                 FTNTEXT     2
                                                  STEXT                                                          FTNTEXT     3
                                                  LIST   F,X                                                     FEAT155F   80
  
  
  
  
                                        ***       FTNTEXT - FORTRAN EXTENDED ASSEMBLY/INSTALLATION TEXT.         FTNTEXT     7
                                        *                                                                        FTNTEXT     8
                                        *                *FTNTEXT* IS THE GLOBAL TEXT FOR ASSEMBLY/INSTALLATION  FTNTEXT     9
                                        *         OF THE FORTRAN EXTENDED COMPILER.  IT CONTAINS DEFINITIONS     FTNTEXT    10
                                        *         OF MACROS, MICROS, SYMBOLS AND OPDEFS, ORGANIZED AS FOLLOWS... FTNTEXT    11
                                        *                                                                        FTNTEXT    12
                                        *         COMPILER INSTALLATION OPTIONS.                                 FTNTEXT    13
                                        *         GENERAL MACROS ( USED BY ALL PARTS OF THE COMPILER ).          FTNTEXT    14
                                        *         I/O MACROS.                                                    FTNTEXT    15
                                        *         SYMBOL TABLE / REFMAP MACROS ( PASS 1 ).                       FTNTEXT    16
                                        *         MACROS FOR DEBUGGING.                                          FTNTEXT    17
                                        *         PASS 1 TABLE MANAGER MACROS.                                   FTNTEXT    18
                                        *         SYMBOL TABLE BIT AND FIELD DEFINTIONS.                         FTNTEXT    19
                                        *         MISCELLANEOUS PASS 1 MACROS.                                   FTNTEXT    20
                                        *         PASS 2 FIELD DEFINITIONS AND TABLE FORMATS.                    FTNTEXT    21
  
  
  
                                        **        DEFINE SYMBOL TO CONTROL CONDITIONAL ASSEMBLY OF CODE FOR      FTNTEXT    23
                                        *         *PL/I* IN PASS 2.  *DEFINE PLI  TO ACTIVATE ASSEMBLY .         FTNTEXT    24
                                                                                                                 FTNTEXT    25
                                   0     .PLI     EQU    0           DO NOT ASSEMBLE CODE FOR PL/I               FTNTEXT    29
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      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.         S3143FC     5
                                        *                                                                        OPTIONS     7
                                        *         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC     OPTIONS     8
                                        *         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL-  OPTIONS     9
                                        *         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY   OPTIONS    10
                                        *         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION    OPTIONS    11
                                        *         AND SPECIFIC FUNCTIONAL REQUIREMENTS.                          OPTIONS    12
                                        *                                                                        OPTIONS    13
                                        *         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN     OPTIONS    14
                                        *         THE PROGRAM DECK  < FTN > .                                    OPTIONS    15
  
  
  
  
                                        *         ************************************************************** OPTIONS    17
                                        *         *                                                            * OPTIONS    18
                                        *         *                                                            * OPTIONS    19
                                        *         *   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    20
                                        *         *                                                            * OPTIONS    21
                                        *         *                                                            * OPTIONS    22
                                        *         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       * OPTIONS    23
                                        *         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         * OPTIONS    24
                                        *         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             * OPTIONS    25
                                        *         *                                                            * OPTIONS    26
                                        *         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       * OPTIONS    27
                                        *         *      BE CHANGED.                                           * OPTIONS    28
                                        *         *                                                            * OPTIONS    29
                                        *         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    * OPTIONS    30
                                        *         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           * OPTIONS    31
                                        *         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      * OPTIONS    32
                                        *         *                                                            * OPTIONS    33
                                        *         *                                                            * OPTIONS    34
                                        *         ************************************************************** OPTIONS    35
  
  
  
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE     3
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS    54
                                        *                                                                        OPTIONS    55
                                        *         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE   OPTIONS    56
                                        *                                                                        OPTIONS    57
                                        *                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A     OPTIONS    58
                                        *                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS      OPTIONS    59
                                        *                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE       OPTIONS    60
                                        *                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND          OPTIONS    61
                                        *                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE.    OPTIONS    62
                                        *                                                                        OPTIONS    63
                                        *                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER      OPTIONS    64
                                        *                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL       OPTIONS    65
                                        *                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING        OPTIONS    66
                                        *                REQUIREMENTS.                                           OPTIONS    67
                                        *                   1.  INSURE THAT THE TEXT CONTAINING THE              OPTIONS    68
                                        *                       INSTALLATION PARAMETERS CONTAINS CYBER 76        OPTIONS    69
                                        *                       VALUES.                                          OPTIONS    70
                                        *                   2.  SELECT THE DESIRED VALUE FOR THE DEFMOD MACRO    F2950F4    24
                                        *                       DEFINED IN THE BOX ENTITLED -                    OPTIONS    72
                                        *                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES      OPTIONS    73
                                        *                       MODEL."                                          OPTIONS    74
                                        *                                                                        OPTIONS    75
                                        *         CAUTIONS -                                                     OPTIONS    76
                                        *                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING    OPTIONS    77
                                        *                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE.      OPTIONS    78
                                        *                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL     OPTIONS    79
                                        *                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC". OPTIONS    80
                                        *                    THE STANDARD "OPTIONS" COMDECK MUST BE USED.        OPTIONS    81
                                        *                                                                        OPTIONS    82
                                        ***                                                                      OPTIONS    83
  
  
  
                                        ***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL.                OPTIONS    85
                                        *                                                                        OPTIONS    86
                                         LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME               OPTIONS    87
                                        VER       MICRO  1,3,/4.8/                                               PSRLEVEL    1
                                        PSR       MICRO  1,,$871$                                                PSRLEVEL    2
                                                  IF     MIC,PSR,2                                               OPTIONS    89
                                         MODLVL   MICRO  1,9,$"PSR"         $                                    OPTIONS    90
                                                  SKIP   1                                                       OPTIONS    91
                                         MODLVL   MICRO  1,9,$"MODLEVEL"         $                               OPTIONS    92
  
  
                                        **        VALMDL - VALIDATE MACRO FOR THE HP.F MICRO                     F2950F4    25
                                                                                                                 F2950F4    26
                                                  MACRO  VALMDL,MDL                                              FCC2563     6
                                                  QUAL   IPARAM                                                  FCC2563     7
                                         MDLNUM   MICRO  2,,-"HF.P"-                                             FCC2563     8
                                                  IFC    NE,-"MDLNUM"-S-                                         FCC2563     9
                                                  ELSE                                                           FCC2563    10
                                         MDL      MICRO  1,,-73-                                                 FCC2563    11
                                                  ENDIF                                                          FCC2563    12
                                                  IFC    NE,-"MDLNUM"-74-                                        FCC2563    13
                                                  IFC    NE,-"MDLNUM"-76-                                        FCC2563    14
                                                  ELSE                                                           FCC2563    15
                                         MDL      MICRO  1,,-"MDLNUM"-                                           FCC2563    16
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE     4
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         VALMDL
  
                                                  ENDIF                                                          FCC2563    17
                                                  IFC    NE,-"MDLNUM"-175-                                       FCC2563    18
                                                  IFC    NE,-"MDLNUM"-176-                                       FCC2563    19
                                                  ELSE                                                           FCC2563    20
                                         MDL      MICRO  2,,-"MDLNUM"-                                           FCC2563    21
                                                  ENDIF                                                          FCC2563    22
                                                  IFC    NE,-"MDLNUM"-740-                                       FCC2563    23
                                                  IFC    NE,-"MDLNUM"-750-                                       FCC2563    24
                                                  IFC    NE,-"MDLNUM"-760-                                       FCC2563    25
                                                  ELSE                                                           FCC2563    26
                                         MDL      MICRO  1,,-75-                                                 FCC2563    27
                                                  ENDIF                                                          FCC2563    28
                                                  IFC    NE,-"MDLNUM"-865-                                       FCC2563    29
                                                  IFC    NE,-"MDLNUM"-875-                                       FCC2563    30
                                                  IFC    NE,-"MDLNUM"-990-                                       FCCA596    10
                                                  IFC    NE,-"MDLNUM"-994-                                       FCC2567     6
                                                  IFC    NE,-"MDLNUM"-995-                                       FCC2567     7
                                                  ELSE                                                           FCC2563    31
                                         MDL      MICRO  1,,-76-                                                 FCC2563    32
                                                  ENDIF                                                          FCC2563    33
                                                  IF     -MIC,MDL,2                                              FCC2563    34
                                                  LIST   A                                                       FCC2563    35
                                                  ERR    ILLEGAL VALUE OF HF.P MICRO = "MDLNUM"                  FCC2563    36
                                                  QUAL   *                                                       FCC2563    37
                                                  ENDM                                                           FCC2563    38
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE     5
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.                 OPTIONS    94
                                        *                                                                        OPTIONS    95
                                        *         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS      OPTIONS    96
                                        *                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT    OPTIONS    97
                                        *                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE         OPTIONS    98
                                        *                INSTALLED AND EXECUTED ON.                              OPTIONS    99
                                        *                                                                        OPTIONS   100
                                                  QUAL   IPARAM                                                  OPTIONS   101
                                                  IPARAMS                                                        OPTIONS   102
                                                   DEFINHF                                                       F2950F4    51
                                                   IF    -MIC,HF.E      IF EXIT SEQUENTIAL NOT DEFINED.          F2950F4    52
                                   1     CT7X      EQU   1              NORMAL EXIT SEQUENTAL NOT DEFINED        F2950F4    53
                                                   ELSE  1                                                       F2950F4    54
                                         CT7X      EQU   0              NORMAL EXIT SEQUENTIAL DEFINED           F2950F4    55
                                                  QUAL   *                                                       OPTIONS   103
                                        *                                                                        OPTIONS   104
                                        *         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE   OPTIONS   105
                                        *         PRECEDING CALL TO IPARAMS.                                     OPTIONS   106
                                        *                                                                        OPTIONS   107
                                        *         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO   OPTIONS   108
                                        *                THE LAST TWO CHARACTERS OF THE CYBER "HF.P" MICRO, I.E. F2950F4    56
                                        *                74, 75, 76. IT IS REFERENCED WHENEVER THE               F2950F4    57
                                        *                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST      OPTIONS   111
                                        *                BE KNOWN. FOR MACHINES WITH SERIAL CPU S "HF.P"         F2950F4    58
                                        *                RETURNS AN *S*. 73D IS SUBSTITUTED FOR THE *S* VALUE.   F2950F4    59
                                        *         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1   OPTIONS   113
                                        *                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING    FEAT126A    6
                                        *                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.           FEAT126A    7
                                        *                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS     OPTIONS   115
                                        *                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO   OPTIONS   116
                                        *                DETERMINE MACHINE DIFFERENCES.                          OPTIONS   117
                                                                                                                 OPTIONS   118
                              140000     IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH              OPTIONS   119
                                                                                                                 OPTIONS   120
                                         MDL      VALMDL                                                         F2950F4    60
                                 111     CT.CPU   EQU    "MDL"       COMPILE-TIME CPU                            OPTIONS   122
                                                                                                                 OPTIONS   123
                                   1     .OT      SET    1           SET FOR NOS                                 FEAT126A    8
                                         #OS      IFC    EQ,/"OS.NAME"/SCOPE /                                   OPTIONS   125
                                         .VER     MICRO  1,1,/"OS.VER"/                                          FEAT126A    9
                                         .OT      SET    ".VER"      SET FOR SCOPE "OS.VER"                      FEAT126A   10
                                         #OS      ENDIF                                                          OPTIONS   129
                                   1     .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM               OPTIONS   130
                                   1     CT.7X    EQU    /IPARAM/CT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED F2950F4    61
                                        *                                                                        OPTIONS   131
                                        ***                                                                      OPTIONS   132
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE     6
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS.                  OPTIONS   134
                                                                                                                 OPTIONS   135
                                                                                                                 OPTIONS   136
                                        *         ************************************************************** OPTIONS   137
                                        *         *                                                            * OPTIONS   138
                                        *         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     * S3143FC    29
                                        *         *                                                            * OPTIONS   140
                                        *         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       * OPTIONS   141
                                        *         *            ----                       ----                 * OPTIONS   142
                                        *         *                                                            * OPTIONS   143
                                        *         *            71                         6400                 * FCC1847X    6
                                        *         *            72                         6200                 * OPTIONS   144
                                        *         *            73                         6400                 * OPTIONS   145
                                        *         *            73-2                       6500                 * OPTIONS   146
                                        *         *            74                         6600                 * OPTIONS   147
                                        *         *            74-2                       6700                 * OPTIONS   148
                                        *         *            76                         7600                 * OPTIONS   149
                                        *         *            171                        6400                 * FCC1847X    7
                                        *         *            172                        6400                   FCC1264     7
                                        *         *            173                        6400                   FCC1264     8
                                        *         *            174                        6400                   FCC1264     9
                                        *         *            175                        CYBER 175 CPU          FCC1264    10
                                        *         *            176                        7600                   FCC1264    11
                                        *         *                                                            * OPTIONS   150
                                        *         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  * OPTIONS   151
                                        *         *      IGNORED.  TO BUILD A CROSS-MODEL COMPILER, SELECT A   * OPTIONS   152
                                        *         *      VALUE FROM THE LIST ABOVE, REMOVE THE ASTERISK, AND   * OPTIONS   153
                                        *         *      INSERT THE PROPER VALUE ON THE FOLLOWING  LINE.       * OPTIONS   154
                                        *         DEFMOD 74                                                      F2950F4    62
                                        *         *                                                            * OPTIONS   156
                                        *         ************************************************************** OPTIONS   157
  
  
  
                                        *         ************************************************************** OPTIONS   159
                                        *         *                                                            * OPTIONS   160
                                        *         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          * OPTIONS   161
                                        *         *                                                            * OPTIONS   162
                                        *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     * OPTIONS   163
                                        *         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      * OPTIONS   164
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  * OPTIONS   165
                                        *         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    * OPTIONS   166
                                        *         *      PARAMETER TO ZERO.                                    * OPTIONS   167
                                   0     .IWT     EQU    0                                                       OPTIONS   168
                                        *         *                                                            * OPTIONS   169
                                        *         ************************************************************** OPTIONS   170
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE     7
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   184
                                        *         *                                                            * OPTIONS   185
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   * OPTIONS   186
                                        *         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         * OPTIONS   187
                                        *         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    * OPTIONS   188
                                        *         *      VALUES ARE --                                         * OPTIONS   189
                                        *         *                                                            * OPTIONS   190
                                        *         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    * OPTIONS   191
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   192
                                        *         *                                                            * OPTIONS   193
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   194
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   195
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   196
                                        *CP#RM    =      0                                                     * OPTIONS   197
                                        *         *                                                            * OPTIONS   198
                                        *         ************************************************************** OPTIONS   199
  
  
  
  
                                        *         ************************************************************** OPTIONS   201
                                        *         *                                                            * OPTIONS   202
                                        *         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    * OPTIONS   203
                                        *         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   * OPTIONS   204
                                        *         *      VALUES ARE -                                          * OPTIONS   205
                                        *         *                                                            * OPTIONS   206
                                        *         *                  1 = ECS AVAILABLE                         * OPTIONS   207
                                        *         *                  0 = NO ECS AVAILABLE                      * OPTIONS   208
                                        *         *                                                            * OPTIONS   209
                                        *         *                  LOWER CYBER DEFAULT =                     * OPTIONS   210
                                        *         *                        0  FOR KRONOS OPERATING SYSTEM      * OPTIONS   211
                                        *         *                        /IPARAM/IP.MECS  FOR SCOPE          * OPTIONS   212
                                        *         *                  CYBER 76 DEFAULT IS 1                     * OPTIONS   213
                                        *         *                                                            * OPTIONS   214
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   215
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   216
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   217
                                        *CT.ECS   EQU    0                                                     * OPTIONS   218
                                        *         *                                                            * OPTIONS   219
                                        *         ************************************************************** OPTIONS   220
  
  
  
                                        *         ************************************************************** FEAT121A   10
                                        *         *                                                            * FEAT121A   11
                                        *         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  * FEAT121A   12
                                        *         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    * FEAT121A   13
                                        *         *      NOT ZERO, THEN WHEN OPT=2 AND *UO* ARE SELECTED, THE  * FEAT121A   14
                                        *         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN * FEAT121A   15
                                        *         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     * FEAT121A   16
                                        *         *      SUCH AS SIN, SQRT, EXP, ETC.                            FEAT121A   17
                                        *         *                                                            * FEAT121A   18
                                   1     .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY       FEAT121A   19
                                        *         *                                                            * FEAT121A   20
                                        *         ************************************************************** FEAT121A   21
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE     8
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                        *         ************************************************************** OPTIONS   222
                                        *         *                                                            * OPTIONS   223
                                        *         *      SELECT OVERLAY STRUCTURE.  VALUES ARE -               * OPTIONS   224
                                        *         *                                                            * OPTIONS   225
                                        *         *                  0 = FAX AND REFMAP ARE LOADED AS PART     * OPTIONS   226
                                        *         *                      OF THE (2,2) OVERLAY, PASS2.          * OPTIONS   227
                                        *         *                  1 = FAX AND REFMAP ARE LOADED AS A        * OPTIONS   228
                                        *         *                        SEPARATE OVERLAY. (DEFAULT)         * OPTIONS   229
                                        *         *                                                            * OPTIONS   230
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   231
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO 0.                  * OPTIONS   232
                                        *         *                                                            * OPTIONS   233
                                   1     .OVL     =      1           FAX AND REFMAP ON SEPARATE OVERLAY          OPTIONS   234
                                        *         *                                                            * OPTIONS   235
                                        *         ************************************************************** OPTIONS   236
  
  
  
  
                                        *         ************************************************************** F66FCC     20
                                        *         *                                                            * F66FCC     21
                                        *         *      SELECT USES OF INTERACTIVE DEBUG.                     * F66FCC     22
                                        *         *      NOT SUPPORTED ON SCOPE 2.                               F66FCC     23
                                        *         *      PERMISSIBLE VALUES ARE --                             * F66FCC     24
                                        *         *                  1 = ASSEMBLE CODE FOR INTERACTIVE DEBUG   * F66FCC     25
                                        *         *                  (DEFAULT FOR LOWER CYBER)                 * F66FCC     26
                                        *         *                  0 = DO NOT ASSEMBLE INTER. DEBUG CODE     * F66FCC     27
                                        *         *                  (DEFAULT FOR CYBER 76)                    * F66FCC     28
                                        *         *                                                            * F66FCC     29
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * F66FCC     30
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE       * F66FCC     31
                                        *         *      ON THE FOLLOWING LINE.                                * F66FCC     32
                                        *.FID     =      1                                                     * F66FCC     33
                                        *         *                                                            * F66FCC     34
                                        *         ************************************************************** F66FCC     35
  
  
  
                                        *         ************************************************************** OPTIONS   238
                                        *         *                                                            * OPTIONS   239
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     * OPTIONS   240
                                        *         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  * OPTIONS   241
                                        *         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      * OPTIONS   242
                                        *         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN * S3143FC    30
                                        *         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    * S3143FC    31
                                        *         *      VALUES ARE --                                         * OPTIONS   245
                                        *         *                                                            * OPTIONS   246
                                        *         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    * OPTIONS   247
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   248
                                        *         *                                                            * OPTIONS   249
                                        *         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        * OPTIONS   250
                                        *         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   * OPTIONS   251
                                        *         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    * OPTIONS   252
                                        *         *      VALUE ON THE FOLLOWING LINE.                          * OPTIONS   253
                                        *OT#RM    =      6                                                       OPTIONS   254
                                        *         *                                                            * OPTIONS   255
                                        *         ************************************************************** OPTIONS   256
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE     9
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** FEAT126AB   6
                                        *         *                                                            * FEAT126AB   7
                                        *         *      SELECT WIDTH OF PAGE IN CHARACTERS WHEN COMPILER      * FEAT126AB   8
                                        *         *      LISTINGS ARE PRINTED AS A TERMINAL FILE.              * FEAT126AB   9
                                        *         *                                                            * FEAT126AB  10
                                 110     PW.TTY   =      72                                                      FEAT126AB  11
                                        *         *                                                            * FEAT126AB  12
                                        *         ************************************************************** FEAT126AB  13
  
  
  
                                        *         ************************************************************** OPTIONS   266
                                        *         *                                                            * OPTIONS   267
                                        *         *      CALL FORMAT FOR LOADING COMPILER OVERLAYS.  VALUES -- * OPTIONS   268
                                        *         *           2 = ISSUE TWO-WORD LOADER CALLS.                 * OPTIONS   269
                                        *         *                  (UPPER CYBER, I.E. CYBER 76, DEFAULT)     * OPTIONS   270
                                        *         *           3 = ISSUE THREE-WORD LOADER CALLS.               * OPTIONS   271
                                        *         *                  (LOWER CYBER DEFAULT)                     * OPTIONS   272
                                        *         *                                                            * OPTIONS   273
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   274
                                        *         *      REMOVE THE ASTERISK AND INSERT THE DESIRED VALUE ON   * OPTIONS   275
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   276
                                        *LDRCALL  =      3                                                     * OPTIONS   277
                                        *         *                                                            * OPTIONS   278
                                        *         ************************************************************** OPTIONS   279
  
  
  
  
                                        *         ************************************************************** CP139FC    12
                                        *         *                                                            * CP139FC    13
                                        *         *      SELECT TYPE OF LOADER TABLE FOR COMPILER OVERLAYS.    * CP139FC    14
                                        *         *      TABLE TYPE MUST AGREE WITH THAT OF THE OPERATING      * CP139FC    15
                                        *         *      SYSTEM OVERLAY LOADER, AND OF THE COMPASS ASSEMBLER.  * CP139FC    16
                                        *         *      PERMISSIBLE VALUES ARE --                             * CP139FC    17
                                        *         *            50 =  ASCM (5000) TABLE.                        * CP139FC    18
                                        *         *            54 = EACPM (5400) TABLE.   (DEFAULT)            * CP139FC    19
                                        *         *                                                            * CP139FC    20
                                        *LDRTABL  SET    54                                                    * CP139FC    21
                                        *         *                                                            * CP139FC    22
                                        *         ************************************************************** CP139FC    23
  
  
  
                                        *         ************************************************************** OPTIONS   281
                                        *         *                                                            * OPTIONS   282
                                        *         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      * OPTIONS   283
                                        *         *                                                            * OPTIONS   284
                                         C        MICRO  1,,/#/                                                  OPTIONS   285
                                        *         *                                                            * OPTIONS   286
                                        *         ************************************************************** OPTIONS   287
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    10
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                        *         ************************************************************** FEAT121L    5
                                        *                                                                      * FEAT126B    3
                                        *         *      SELECT USE OF C/-LIST OPTIONS TO CONDITIONALLY TURN   * FEAT121L    6
                                        *         *      ON AND OFF SOURCE LISTING AT COMPILE TIME. TO DESELECT* FEAT121L    7
                                        *         THIS OPTION, SET THE SYMBOL ON THE FOLLOWING LINE EQUAL TO 0.  FEAT126B    4
                                        *         *                                                            * FEAT121L    9
                                   1     #NL      =      1                                                       FEAT121L   10
                                        *         *                                                            * FEAT121L   11
                                        *         ************************************************************** FEAT121L   12
  
  
  
                                        *         ************************************************************** OPTIONS   289
                                        *         *                                                            * OPTIONS   290
                                        *         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  * OPTIONS   291
                                        *         *                                                            * OPTIONS   292
                                        *         *                  CRM VALUES.                              *  F162FTNA   39
                                   6     L.FCLX   =      6           LENGTH OF FIT EXTENSION FOR FCL WSA         F162FTNA   40
                                  51     L.FIT6   =      43B+L.FCLX  FIT LENGTH, +6 FOR FCL                      F162FTNA   41
                                2003     L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH                   FCC0902     6
                                 101     L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB  OPTIONS   297
                                 401     L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB OPTIONS   298
                                        *         *                                                            * OPTIONS   299
                                        *         *                  7RM VALUES                                * OPTIONS   300
                                  20     L.FIT7   =      16D         FIT LENGTH                                  OPTIONS   301
                                   0     L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH                   OPTIONS   303
                                        *         *                                                            * OPTIONS   304
                                        *         ************************************************************** OPTIONS   305
  
  
  
  
                                        *         ************************************************************** OPTIONS   307
                                        *         *                                                            * OPTIONS   308
                                        *         *      F I X E D   L E N G T H   T A B L E S.                * OPTIONS   309
                                        *         *                                                            * OPTIONS   310
                                        *         ************************************************************** OPTIONS   311
                                        *         *                                                            * OPTIONS   312
                                        *         *      LENGTH OF INTERMEDIATE STORAGE AREA FOR ALL CON-      * OPTIONS   313
                                        *         *      STANTS IN ANY ONE SOURCE STATEMENT.  EACH CONSTANT    * OPTIONS   314
                                        *         *      BEGINS ON A NEW WORD BOUNDARY, AND IS PACKED AS TEN   * OPTIONS   315
                                        *         *      DISPLAY-CODED CHARACTERS PER WORD.                    * OPTIONS   316
                                        *         *                                                            * OPTIONS   317
                                 454     CONSTORS EQU    300D                                                    OPTIONS   318
                                        *         *                                                            * OPTIONS   319
                                        *         ************************************************************** OPTIONS   320
                                        *         *                                                            * OPTIONS   321
                                        *         *      LENGTH OF SAVED OPERATOR STACK.                       * OPTIONS   322
                                        *         *                                                            * OPTIONS   323
                                 240     MXOSE    EQU    160D                                                    OPTIONS   324
                                        *         *                                                            * OPTIONS   325
                                        *         ************************************************************** OPTIONS   326
                                        *         *                                                            * OPTIONS   327
                                        *         *      LENGTH OF SAVED FUNCTION RESULT TABLE.                * OPTIONS   328
                                        *         *                                                            * OPTIONS   329
                                 132     MXFRSTB  EQU    90D                                                     OPTIONS   330
                                        *         *                                                            * OPTIONS   331
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    11
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   332
                                        *         *                                                            * OPTIONS   333
                                        *         *      LENGTH OF *ARLIST* BUFFER.                            * OPTIONS   334
                                        *         *                                                            * OPTIONS   335
                                3200     ARLSZ    EQU    3200B                                                   OPTIONS   336
                                        *         *                                                            * OPTIONS   337
                                        *         ************************************************************** OPTIONS   338
                                        *         *                                                            * OPTIONS   339
                                        *         *      MAXIMUM LENGTH OF GLOBAL DEBUG CONSTANT TABLE.        * OPTIONS   340
                                        *         *                                                            * OPTIONS   341
                                 310     S.GCON   =      200D                                                    OPTIONS   342
                                        *         *                                                            * OPTIONS   343
                                        *         ************************************************************** OPTIONS   344
  
  
  
                                        *         ************************************************************** OPTIONS   346
                                        *         *                                                            * OPTIONS   347
                                        *         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         * OPTIONS   348
                                        *         *                                                            * OPTIONS   349
                                        *         *      WHEN THE FOLLOWING PARAMETER IS ZERO, <ARITH> WILL    * OPTIONS   350
                                        *         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    * OPTIONS   351
                                        *         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        * OPTIONS   352
                                        *         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       * OPTIONS   353
                                        *         *                                                            * OPTIONS   354
                                   0     NOINVERT EQU    0                                                       OPTIONS   355
                                        *         *                                                            * OPTIONS   356
                                        *         ************************************************************** OPTIONS   357
  
  
  
                                        ***       POST MORTEM DUMP INSTALLATION PARAMETERS                       FEAT1070C  35
  
                                        **        MAN.FL - POST PROCESSOR FIELD LENGTH                           FEAT1070C  37
                                        *                USED BY FORSYS=,PMDMP=                                  FEAT1070C  38
                               32000    MAN.FL    EQU    32000B      WAS 26000B, INCREASE FOR STATIC COMPILE     FEAT1070C  39
                                                                                 OF POST PROCESSOR.              FEAT1070C  40
  
                                        **        MAN.LINP - NUMBER OF LINES / PAGE                              FEAT1070C  42
                                        *                USED BY FTN,PMDMP=                                      FEAT1070C  43
                                 124    MAN.LINP  EQU    84D                                                     FEAT1070C  44
  
  
                                        **        MAN.XJP - POST MORTEM DUMP COMMUNICATION WORD                  FEAT1070C  46
                                        *                USED BY FORSYS=,PMDMP=                                  FEAT1070C  47
                                  51    MAN.XJP   EQU    51B                                                     FEAT1070C  48
  
  
                                        **        IDENTIFIERS FOR COMPILER TABLES ON ZZZZZSY                     FEAT1070C  50
                                        *                USED BY FTN,PMDMP= (DMPVAR)                             FEAT1070C  51
  
                                   1    ZZ.SYM    EQU    1           SYMBOL TABLE                                FEAT1070C  53
                                   2    ZZ.COM    EQU    2           COMMON BLOCK TABLE                          FEAT1070C  54
                                   3    ZZ.DIM    EQU    3           DIMENSION TABLE                             FEAT1070C  55
  
  
  
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    12
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS 
  
                                 124    L.PAGE    EQU    MAN.LINP                                                FEAT1070C  57
  
  
  
                                        *         ************************************************************** OPTIONS   367
                                        *         *                                                            * OPTIONS   368
                                        *         *      ERROR LISTING LINE LIMIT.                             * OPTIONS   369
                                        *         *                                                            * OPTIONS   370
                                 144     ERRMAX   EQU    100D                                                    OPTIONS   371
                                        *         *                                                            * OPTIONS   372
                                        *         ************************************************************** OPTIONS   373
  
  
  
                                        ***                                                                      OPTIONS   375
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF     OPTIONS   376
                                        *         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE    OPTIONS   377
                                        *         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF    OPTIONS   378
                                        *         THE *HF.P* MICRO OBTAINED FROM A CALL TO *IPARAMS* AND         F2950F4    63
                                        *         *DEFINHF* AT THE BEGINNING OF *OPTIONS*.                       F2950F4    64
                                        *                                                                        OPTIONS   381
                                        *         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE   OPTIONS   382
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   383
                                        *                                                                        CP139FC    24
                                        *         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR     CP139FC    25
                                        *                OPT=2 USE DURING COMPILATIONS.                          CP139FC    26
                                        *                                                                        CP139FC    27
                                        *         LDRCALL DEFINES THE FORMAT OF LOADER CALLS.  IT IS DESCRIBED   OPTIONS   384
                                        *                IN THE *OPTIONS* COMDECK.                               OPTIONS   385
                                        *                                                                        CP139FC    28
                                        *         LDRTABL  INDICATES THE TYPE OF LOADER TABLE THAT PREFIXES      CP139FC    29
                                        *                EACH COMPILER ABSOLUTE OVERLAY.                         CP139FC    30
                                                                                                                 CP139FC    31
                                                                                                                 OPTIONS   386
                                         #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU                            OPTIONS   387
                                         #MD      IFEQ   .OS,2                                                   F7540FT    18
                                                                                                                 OPTIONS   388
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   389
                                                                                                                 OPTIONS   390
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   391
                                         CP#RM    EQU    7           USE 7RM AT COMPILE-TIME                     OPTIONS   392
                                         #RM      ENDIF                                                          OPTIONS   393
                                                                                                                 OPTIONS   394
                                         #LD      IF     -DEF,LDRCALL                                            OPTIONS   395
                                         LDRCALL  EQU    2           SELECT TWO-WORD LOADER CALLS                OPTIONS   396
                                         #LD      ENDIF                                                          OPTIONS   397
                                                                                                                 OPTIONS   398
                                         #ECS     IF     -DEF,CT.ECS                                             OPTIONS   399
                                         CT.ECS   EQU    1           USE LCM AT COMPILE TIME                     OPTIONS   400
                                         #ECS     ENDIF                                                          OPTIONS   401
                                                                                                                 OPTIONS   402
                                         #FID     IF     -DEF,.FID                                               F66FCC     36
                                         .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE      F66FCC     37
                                         #FID     ENDIF                                                          F66FCC     38
                                                                                                                 F66FCC     39
                                         #MD      ELSE                                                           OPTIONS   403
                                                                                                                 OPTIONS   404
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    13
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.               S3143FC    32
                                                                                                                 OPTIONS   406
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   407
                                   0     CP#RM    EQU    0           USE CIO AT COMPILE-TIME                     OPTIONS   408
                                         #RM      ENDIF                                                          OPTIONS   409
                                                                                                                 OPTIONS   410
                                         #LD      IF     -DEF,LDRCALL                                            OPTIONS   411
                                   3     LDRCALL  EQU    3           SELECT THREE-WORD LOADER CALLS              OPTIONS   412
                                         #LD      ENDIF                                                          OPTIONS   413
                                                                                                                 OPTIONS   414
                                         #ECS     IF     -DEF,CT.ECS,4                                           OPTIONS   415
                                         #ECS     IF     DEF,/IPARAM/IP.MECS,2                                   OPTIONS   416
                                   1     CT.ECS   EQU    /IPARAM/IP.MECS                                         OPTIONS   417
                                         #ECS     SKIP   1                                                       OPTIONS   418
                                         CT.ECS   EQU    0                                                       OPTIONS   419
                                         #ECS     ENDIF                                                          OPTIONS   420
                                                                                                                 OPTIONS   421
                                         #FID     IF     -DEF,.FID                                               F66FCC     40
                                   1     .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE             F66FCC     41
                                         #FID     ENDIF                                                          F66FCC     42
                                                                                                                 F66FCC     43
                                         #MD      ENDIF                                                          OPTIONS   422
  
  
  
  
                                        *         DEFINE COMPILER OVERLAY LOADER TABLE LENGTHS.                  CP139FC    33
                                                                                                                 CP139FC    34
                                                  IF     -DEF,LDRTABL,1                                          CP139FC    35
                                  66     LDRTABL  SET    54                                                      CP139FC    36
                                                                                                                 CP139FC    37
                                                  IFEQ   LDRTABL,50,3                                            CP139FC    38
                                         LDR.00   =      1                                                       CP139FC    39
                                         LDR.NN   =      1                                                       CP139FC    40
                                                  SKIP   5                                                       CP139FC    41
                                                  IFEQ   LDRTABL,54,3                                            CP139FC    42
                                  11     LDR.00   =      11B                                                     CP139FC    43
                                   5     LDR.NN   =      5                                                       CP139FC    44
                                                  SKIP   1                                                       CP139FC    45
                                                  ERR    *LDRTABL* VALUE NOT 50 OR 54  "SEQUENCE"                CP139FC    46
  
  
  
  
                                        ***                                                                      OPTIONS   432
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    14
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS   434
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF      OPTIONS   435
                                        *         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN    OPTIONS   436
                                        *         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF      OPTIONS   437
                                        *         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME          OPTIONS   438
                                        *         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH     OPTIONS   439
                                        *         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*.              OPTIONS   440
                                        *                                                                        OPTIONS   441
                                        *         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE    OPTIONS   442
                                        *                LAST TWO CHARACTERS OF THE *HF.P* MICRO, I.E. 73, 74,   F2950F4    65
                                        *                75, 76. IT IS TO BE USED FOR OBJECT-TIME HARDWARE       F2950F4    66
                                        *                DIFFERENCES ONLY. IF THE *HF.P* MICRO RETURNS AN *S*    F2950F4    67
                                        *                THEN THE MACHINE HAS A SERIAL CPU AND *.CPU* IS         F2950F4    68
                                        *                SET EQUAL TO 73D.                                       F2950F4    69
                                        *         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS     OPTIONS   446
                                        *                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF    OPTIONS   447
                                        *                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0,      OPTIONS   448
                                        *                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY      OPTIONS   449
                                        *                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE.        OPTIONS   450
                                        *         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE    OPTIONS   451
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   452
                                                                                                                 OPTIONS   453
                                         MDL      VALMDL                                                         F2950F4    70
                                                                                                                 S3143FC    34
                                 111     .CPU     EQU    "MDL"       OBJECT TIME CPU                             OPTIONS   459
                                                                                                                 F2950F4    71
                                                  QUAL   IPARAM                                                  F2950F4    72
                                                  IPARAMS                                                        F2950F4    73
                                                  DEFINHF                                                        F2950F4    74
                                                                                                                 F2950F4    75
                                                  IF     -MIC,HF.S,2   IF SEQUENTIAL STACK NOT DEFINED           F2950F4    76
                                  -1     LSTACK   EQU    -1                                                      F2950F4    77
                                                  SKIP   5                                                       F2950F4    78
                                         STACK    MICRO  2,,/"HF.S"/                                             F2950F4    79
                                                  IFC    EQ,/"STACK"/0/,2                                        F2950F4    80
                                         LSTACK   EQU    -1                                                      F2950F4    81
                                                  SKIP   1                                                       F2950F4    82
                                         LSTACK   EQU    "STACK"                                                 F2950F4    83
                                                                                                                 F2950F4    84
                                                  IF     -MIC,HF.L    IF LCM NOT DEFINED                         F2950F4    85
                                         DAL      EQU    0           LCM ACCESS NOT ALLOWED                      F2950F4    86
                                         LCM      MICRO  1,,/ECS/                                                FCCA553     7
                                                  ELSE                                                           FCCA553     8
                                         LCM      MICRO  1,,/LCM/                                                FCCA553     9
                                   1     DAL      EQU    1           LCM ACCESS ALLOWED                          F2950F4    88
                                                  ENDIF                                                          FCCA553    10
                                                                                                                 F2950F4    89
                                                  IF     -MIC,HF.E     IF NORMAL EXIT SEQUENTIAL NOT DEFINED     F2950F4    90
                                   1     OT7X     EQU    1              NORMAL EXIT SEQUENTIAL NOT DEFINED       F2950F4    91
                                                  ELSE   1                                                       F2950F4    92
                                         OT7X     EQU    0              NORMAL EXIT SEQUENTIAL DEFINED           F2950F4    93
                                                  QUAL   *                                                       F2950F4    94
                                                                                                                 F2950F4    95
                                   0     L.STACK  EQU    /IPARAM/LSTACK+1    MAX INSTACK LOOP LENGTH + 1         F2950F4    96
                                   1     .DAL     EQU    /IPARAM/DAL        .NZ. IF LCM DIRECT ACCESS ALLOWED    F2950F4    97
                                   1     OT.7X    EQU    /IPARAM/OT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED F2950F4    98
                                   1     .NRFCO   EQU   1             HARDWARE NORMALIZE FCO INSTALLED           F2950F4    99
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    15
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                                                                                                 F2950F4   100
                                                                                                                 F7540FT    22
                                        *         CYBER 76/176 DEFAULT VALUES.                                   F7540FT    23
                                                                                                                 OPTIONS   464
                                         #MD      IFEQ   .CPU,76                                                 OPTIONS   465
                                                                                                                 OPTIONS   468
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   469
                                         #OS      IFEQ   .OS,2                                                   F7540FT    24
                                         OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O                 OPTIONS   470
                                         #OS      ELSE                                                           F7540FT    25
                                         OT#RM    =      6           USE *CRM* FOR OBJECT-TIME I/O               F7540FT    26
                                         #OS      ENDIF                                                          F7540FT    27
                                         #RM      ENDIF                                                          OPTIONS   471
                                                                                                                 OPTIONS   472
                                         SCM      MICRO  1,,/SCM/                                                OPTIONS   473
                                                                                                                 OPTIONS   475
                                         #MD      ELSE                                                           OPTIONS   476
                                                                                                                 OPTIONS   477
                                        *         LOWER CYBER DEFAULT VALUES.                                    OPTIONS   478
                                                                                                                 OPTIONS   479
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   480
                                   6     OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O                 OPTIONS   481
                                         #RM      ENDIF                                                          OPTIONS   482
                                                                                                                 OPTIONS   483
                                         SCM      MICRO  1,,/CM/                                                 OPTIONS   484
                                                                                                                 OPTIONS   486
                                         #MD      ENDIF                                                          OPTIONS   487
                                        ***                                                                      OPTIONS   489
                                        ****                                                                     OPTIONS   490
                                        *         SELECT SYSTEM - OR TEST-MODE COMPILER CONFIGURATION.           FCCA451    15
                                                                                                                 FCCA451    16
                                   0     TEST     =      0           ASSEMBLE COMPILER IN NORMAL (SYSTEM) MODE   FCCA451    18
                                                                                                                 FCCA451    21
                                        *                                                                        FCCA451    22
  
  
  
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    16
        INTEGER ARITHMETIC MACROS AND OPDEFS                          CW
  
                                        **        CW - CONVERT CHARACTER COUNT TO WORD COUNT.                    FTNTEXT    34
                                        *                                                                        FTNTEXT    35
                                        *         COMPUTES--  WORD COUNT = (CHAR COUNT + 9) / 10                 FTNTEXT    36
                                        *         VALIDITY- *RESULT* IS GOOD FOR 0.LE.*OPERAND*.LE.262133D       FCC1448X    7
                                        *         RESULT IS WRONG OUTSIDE OF THIS RANGE.                         FCC1448X    8
                                        *                                                                        FTNTEXT    40
                                        *         CW        X.RESULT,X.OPERAND                                   FTNTEXT    41
                                        *                                                                        FTNTEXT    42
                                        *         ENTRY  *X.RESULT*  = X-REG TO RECEIVE INTEGER WORD COUNT       FTNTEXT    43
                                        *                *X.OPERAND* = X-REG CONTAINING INTEGER CHARACTER COUNT  FTNTEXT    44
                                        *                                                                        FTNTEXT    45
                                        *         USES   X.OPERAND, X.RESULT                                     FTNTEXT    46
                                                                                                                 FTNTEXT    47
                                                  PURGDEF   CW,X,X                                               FTNTEXT    48
                                                                                                                 FTNTEXT    49
                                         CW,X,X   OPDEF  R,P                                                     FTNTEXT    50
                                          MX.R -18D                                                              FCC1448X    9
                                          SX.P X.P+9D                                                            FCC1448X   10
                                          BX.R -X.R*X.P                                                          FCC1448X   11
                                        *                            52429 = (2**19) / 10 + 1                    FTNTEXT    52
                                          SX.P 52429D                                                            FTNTEXT    53
                                          IX.R X.R*X.P                                                           FTNTEXT    54
                                          AX.R 19D                                                               FTNTEXT    55
                                          ENDM                                                                   FTNTEXT    56
  
  
  
  
                                                  PURGDEF  IXX*X                                                 FTNTEXT    58
                                         IXX*X    CPSYN  DXX*X                                                   FTNTEXT    59
  
  
  
  
                                        **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                     FTNTEXT    61
                                        *                                                                        FTNTEXT    62
                                        *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS    FTNTEXT    63
                                        *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.       FTNTEXT    64
                                        *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                        FTNTEXT    65
                                        *                                                                        FTNTEXT    66
                                        *         LXI       JK                                                   FTNTEXT    67
                                        *                                                                        FTNTEXT    68
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED                              FTNTEXT    69
                                        *                *JK* = SHIFT COUNT EXPRESSION                           FTNTEXT    70
                                        *                                                                        FTNTEXT    71
                                        *         USES   XI                                                      FTNTEXT    72
                                                                                                                 FTNTEXT    73
                                         ^XQ      CPSYN     LXQ                                                  FTNTEXT    74
                                                  PURGDEF   LXQ                                                  FTNTEXT    75
                                                                                                                 FTNTEXT    76
                                         LXQ      OPDEF     I,JK                                                 FTNTEXT    77
                                          IFNE JK,0,2                                                            FTNTEXT    78
                                          IFNE JK_&60D,0,1                                                       FTNTEXT    79
                                          ^X.I JK                                                                FTNTEXT    80
                                          ENDM                                                                   FTNTEXT    81
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    17
        INTEGER ARITHMETIC MACROS AND OPDEFS                          MXX+X 
  
                                        **        MXX+X  - SELECT GREATER (MAXIMUM FUNCTION) OF TWO INTEGERS.    TEXTCOM     3
                                        *                                                                        TEXTCOM     4
                                        *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES  TEXTCOM     5
                                        *         THE ALGEBRAICALLY GREATER VALUE IN *XI*.                       TEXTCOM     6
                                        *                                                                        TEXTCOM     7
                                        *         MXI    XJ+XK                                                   TEXTCOM     8
                                        *                                                                        TEXTCOM     9
                                        *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*             TEXTCOM    10
                                        *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED   TEXTCOM    11
                                        *                                                                        TEXTCOM    12
                                        *         EXIT   (X.LARGER) = 0                                          TEXTCOM    13
                                        *                (X.SMALLER) = UNCHANGED                                 TEXTCOM    14
                                        *         IF ON ENTRY (XJ)=(XK),                                         TEXTCOM    15
                                        *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                      TEXTCOM    16
                                        *                (XI) = MAX(XJ,XK)                                       TEXTCOM    17
                                        *                                                                        TEXTCOM    18
                                        *         USES   XI, XJ, XK                                              TEXTCOM    19
                                                                                                                 TEXTCOM    20
                                                  PURGDEF   MXX+X                                                TEXTCOM    21
                                                                                                                 TEXTCOM    22
                                         MXX+X    OPDEF  I,J,K                                                   TEXTCOM    23
                                          IX.I X.J-X.K                                                           TEXTCOM    24
                                          AX.I -1                                                                TEXTCOM    25
                                          BX.J -X.I*X.J                                                          TEXTCOM    26
                                          BX.K X.I*X.K                                                           TEXTCOM    27
                                          IX.I X.J+X.K                                                           TEXTCOM    28
                                         MXX+X    ENDM                                                           TEXTCOM    29
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    18
        INTEGER ARITHMETIC MACROS AND OPDEFS                          MXX-X 
  
                                        **        MXX-X  - SELECT LESSER (MINIMUM FUNCTION) OF TWO INTEGERS.     TEXTCOM    31
                                        *                                                                        TEXTCOM    32
                                        *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES  TEXTCOM    33
                                        *         THE ALGEBRAICALLY LESSER VALUE IN *XI*.                        TEXTCOM    34
                                        *                                                                        TEXTCOM    35
                                        *         MXI    XJ-XK                                                   TEXTCOM    36
                                        *                                                                        TEXTCOM    37
                                        *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*             TEXTCOM    38
                                        *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED   TEXTCOM    39
                                        *                                                                        TEXTCOM    40
                                        *         EXIT   (X.LARGER) = 0                                          TEXTCOM    41
                                        *                (X.SMALLER) = UNCHANGED                                 TEXTCOM    42
                                        *                IF ON ENTRY (XJ)=(XK)                                   TEXTCOM    43
                                        *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                      TEXTCOM    44
                                        *                XI = MIN(XJ,XK)                                         TEXTCOM    45
                                        *                                                                        TEXTCOM    46
                                        *         USES   XI, XJ, XK                                              TEXTCOM    47
                                                                                                                 TEXTCOM    48
                                                  PURGDEF   MXX-X                                                TEXTCOM    49
                                                                                                                 TEXTCOM    50
                                         MXX-X    OPDEF  I,J,K                                                   TEXTCOM    51
                                          IX.I X.J-X.K                                                           TEXTCOM    52
                                          AX.I  -1                                                               TEXTCOM    53
                                          BX.J X.I*X.J                                                           TEXTCOM    54
                                          BX.K -X.I*X.K                                                          TEXTCOM    55
                                          IX.I X.J+X.K                                                           TEXTCOM    56
                                         MXX-X    ENDM                                                           TEXTCOM    57
  
  
  
  
                                        **        WC - CONVERT WORD COUNT TO CHARACTER COUNT.                    FTNTEXT   112
                                        *                                                                        FTNTEXT   113
                                        *         COMPUTES-- CHAR COUNT = WORD COUNT * 10                        FTNTEXT   114
                                        *                                                                        FTNTEXT   115
                                        *                                                                        FTNTEXT   116
                                        *         WC        X.RESULT,X.OPERAND                                   FTNTEXT   117
                                        *                                                                        FTNTEXT   118
                                        *         ENTRY  *X.RESULT*  = X-REG TO RECEIVE INTEGER CHARACTER COUNT  FTNTEXT   119
                                        *                *X.OPERAND* = X-REG CONTAINING INTEGER WORD COUNT       FTNTEXT   120
                                        *                                                                        FTNTEXT   121
                                        *         USES   X.OPERAND, X.RESULT                                     FTNTEXT   122
                                                                                                                 FTNTEXT   123
                                                                                                                 FTNTEXT   124
                                                  PURGDEF   WC,X,X                                               FTNTEXT   125
                                                                                                                 FTNTEXT   126
                                         WC,X,X   OPDEF  R,O                                                     FTNTEXT   127
                                          IX.R X.O+X.O                                                           FTNTEXT   128
                                          LX.O 3                                                                 FTNTEXT   129
                                          IX.R X.O+X.R                                                           FTNTEXT   130
                                          ENDM                                                                   FTNTEXT   131
  
  
  
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    19
        GENERAL MACROS                                                BIT 
  
                                        **        BIT - SET SYMBOL TO 2**N.                                      FTNTEXT   135
                                        *                                                                        FTNTEXT   136
                                        *                                                                        FTNTEXT   137
                                        *  SYM    BIT       PWR                                                  FTNTEXT   138
                                        *                                                                        FTNTEXT   139
                                        *         ENTRY  [SYM] = SYMBOL TO BE SET                                FTNTEXT   140
                                        *                [PWR] = DESIRED POWER OF 2                              FTNTEXT   141
                                        *                                                                        FTNTEXT   142
                                        *         EXIT   [SYM] = 2**[PWR]                                        FTNTEXT   143
                                        *                                                                        FTNTEXT   144
                                        *         USES   NONE                                                    FTNTEXT   145
                                        *                                                                        FTNTEXT   146
                                        *         CALLS  NONE                                                    FTNTEXT   147
                                                                                                                 FTNTEXT   148
                                                                                                                 FTNTEXT   149
                                                  PURGMAC   BIT                                                  FTNTEXT   150
                                                                                                                 FTNTEXT   151
                                                  MACRO  BIT,SYM,PWR                                             FTNTEXT   152
                                         P        DECMIC PWR                                                     FTNTEXT   153
                                         SYM      SET    1S"P"                                                   FTNTEXT   154
                                         BIT      ENDM                                                           FTNTEXT   155
  
  
  
  
                                        **        CALL - CALL A ROUTINE.                                         FTNTEXT   157
                                        *                                                                        FTNTEXT   158
                                        *         GENERATES--    RJ  =X*ROUTINE*.                                FTNTEXT   159
                                        *                                                                        FTNTEXT   160
                                        *                                                                        FTNTEXT   161
                                        *         CALL      ROUTINE                                              FTNTEXT   162
                                        *                                                                        FTNTEXT   163
                                        *         ENTRY  *ROUTINE* = NAME OF CALLED ROUTINE                      FTNTEXT   164
                                        *                                                                        FTNTEXT   165
                                        *         USES   NONE                                                    FTNTEXT   166
                                                                                                                 FTNTEXT   167
                                                                                                                 FTNTEXT   168
                                                  PURGMAC   CALL                                                 FTNTEXT   169
                                                                                                                 FTNTEXT   170
                                         CALL     MACRO  R                                                       FTNTEXT   171
                                          RJ =X_R                                                                FTNTEXT   172
                                          ENDM                                                                   FTNTEXT   173
  
  
  
  
                                        **        ENTRY. - DEFINE ENTRY POINT AND ITS CONTENTS.                  FTNTEXT   175
                                        *                                                                        FTNTEXT   176
                                        *         REGISTER SNAPS MAY BE OBTAINED AT ENTRY POINTS DEFINED WITH    FTNTEXT   177
                                        *         THIS MACRO BY USING THE -REGSNAP- DEBUGGING MACRO.             FTNTEXT   178
                                        *                                                                        FTNTEXT   179
                                        *                                                                        FTNTEXT   180
                                        * NAME    ENTRY.    VALUE                                                FTNTEXT   181
                                        *                                                                        FTNTEXT   182
                                        *                *NAME*  = ENTRY POINT NAME                              FTNTEXT   183
                                        *                                                                        FTNTEXT   184
                                        *                *VALUE* = * OR ** OR ANY OTHER LEGAL COMPASS EXPRESSION FTNTEXT   185
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    20
        GENERAL MACROS                                                ENTRY.
  
                                        *                                                                        FTNTEXT   186
                                        *                          *     (FOR LOCAL SUBROUTINES)    EXPANDS TO-- FTNTEXT   187
                                        *                                 NAME  EQ     *+1S17                    FTNTEXT   188
                                        *                                                                        FTNTEXT   189
                                        *                          **    (FOR GLOBAL SUBROUTINES)   EXPANDS TO-- FTNTEXT   190
                                        *                                       ENTRY  NAME                      FTNTEXT   191
                                        *                                 NAME  EQ     *+1S17                    FTNTEXT   192
                                        *                                                                        FTNTEXT   193
                                        *                          ELSE  (FOR GLOBAL STORAGE LOCN)  EXPANDS TO-- FTNTEXT   194
                                        *                                       ENTRY  NAME                      FTNTEXT   195
                                        *                                 NAME  CON    VALUE                     FTNTEXT   196
                                        *                                                                        FTNTEXT   197
                                        *         CALLS  NONE                                                    FTNTEXT   198
                                        *                                                                        FTNTEXT   199
                                        *         USES   NONE                                                    FTNTEXT   200
                                                                                                                 FTNTEXT   201
                                                                                                                 FTNTEXT   202
                                                  PURGMAC   ENTRY.                                               FTNTEXT   203
                                                                                                                 FTNTEXT   204
                                                  MACRO  ENTRY.,NAME,VALUE                                       FTNTEXT   205
                                          IFC NE,$VALUE$*$,2                                                     FEAT126A   18
                                          ENTRY NAME                                                             FTNTEXT   207
                                          IFC EQ,$VALUE$**$,2                                                    FEAT126A   19
                                        NAME EQ *+1S17                                                           FTNTEXT   209
                                          SKIP 1                                                                 FTNTEXT   210
                                        NAME CON VALUE                                                           FTNTEXT   211
                                        *                            REGISTER SNAP FACILITY.                     FTNTEXT   212
                                          IF DEF,)NAME,1                                                         FTNTEXT   213
                                         NAME REGS                                                               FEAT155F   81
                                        ENTRY. ENDM                                                              FTNTEXT   215
  
  
  
                                        **        EQENT - EQUATE SYMBOL, DECLARE ENTRY POINT.                    FTNTEXT   217
                                        *                                                                        FTNTEXT   218
                                        *SYM      EQENT  LAB                                                     FTNTEXT   219
                                        *                                                                        FTNTEXT   220
                                        *         ENTRY - "SYM" = SYMBOL TO BE MADE AN ENTRY POINT               FTNTEXT   221
                                        *                "LAB" = VALUE OF ENTRY POINT                            FTNTEXT   222
                                        *                                                                        FTNTEXT   223
                                        *         GENERATES -                                                    FTNTEXT   224
                                        *         ENTRY  SYM                                                     FTNTEXT   225
                                        *SYM      EQU    LAB                                                     FTNTEXT   226
                                        *                                                                        FTNTEXT   227
                                        *         CALLS  NONE                                                    FTNTEXT   228
                                                                                                                 FTNTEXT   229
                                                  PURGMAC EQENT                                                  FTNTEXT   230
                                                                                                                 FTNTEXT   231
                                                  MACRO  EQENT,SYM,LAB                                           FTNTEXT   232
                                                  ENTRY  SYM                                                     FTNTEXT   233
                                         SYM      EQU    LAB                                                     FTNTEXT   234
                                         EQENT    ENDM                                                           FTNTEXT   235
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    21
        GENERAL MACROS                                                LOVER 
  
                                        **        LOVER - LOAD FTN OVERLAY.                                      FTNTEXT   237
                                        *                                                                        FTNTEXT   238
                                        *         FORMS 3-WORD LOADER CALL AND EXITS TO LOAD REQUEST ROUTINE.    FTNTEXT   239
                                        *                                                                        FTNTEXT   240
                                        *                                                                        FTNTEXT   241
                                        *         LOVER     OVL*P**S*                                            FTNTEXT   242
                                        *                                                                        FTNTEXT   243
                                        *         ENTRY  *P* = OVERLAY PRIMARY LEVEL NUMBER                      FTNTEXT   244
                                        *                *S* = OVERLAY SECONDARY LEVEL NUMBER                    FTNTEXT   245
                                        *                                                                        FTNTEXT   246
                                        *         EXIT   TO *LOVER*.                                             FTNTEXT   247
                                        *                (X4) = LIBRARY NAME, 0L FORMAT                          FTNTEXT   248
                                        *                (X6) = OVERLAY NAME, 0L FORMAT                          FTNTEXT   249
                                        *                (X7) = 12/OVERLAY LEVEL (0P0S),                         FTNTEXT   250
                                        *                        9/LOADER REQUEST FLAGS,                         FTNTEXT   251
                                        *                        3/0,                                            FTNTEXT   252
                                        *                       18/LWA SPACE AVAILABLE TO LOADER,                FTNTEXT   253
                                        *                       18/FWA LOAD                                      FTNTEXT   254
                                        *                                                                        FTNTEXT   255
                                        *         CALLS  NONE                                                    FTNTEXT   256
                                        *                                                                        FTNTEXT   257
                                        *         USES   X - ALL BUT 0                                           FTNTEXT   258
                                        *                A - 1, 3, 4, 5                                          FTNTEXT   259
                                        *                B - NONE                                                FTNTEXT   260
                                                                                                                 FTNTEXT   261
                                                                                                                 FTNTEXT   262
                                                  PURGMAC   LOVER                                                FTNTEXT   263
                                                                                                                 FTNTEXT   264
                                         LOVER    MACRO  NAME                                                    FTNTEXT   265
                                                  LOCAL  P,S                                                     FTNTEXT   266
                                         P        MICRO  4,1,/NAME/                                              FTNTEXT   267
                                         S        MICRO  5,1,/NAME/                                              FTNTEXT   268
                                        *                            FWA, LWA+1 OF LOAD.                         FTNTEXT   269
                                                  IFEQ   "S",0,3                                                 FTNTEXT   270
                                        *                            PRIMARY OVERLAY                             FTNTEXT   271
                                                  SA5    CP.NFLS                                                 FTNTEXT   272
                                                  SX7    CP.ORG                                                  FTNTEXT   273
                                                  SKIP   2                                                       FTNTEXT   274
                                        *                                  SECONDARY OVERLAYS.                   FTNTEXT   275
                                                  SA5    =XLWAWORK                                               FTNTEXT   276
                                                  SX7    =XLWA2.0+1                                              FTNTEXT   277
                                        *                            OVERLAY NAME.                               FTNTEXT   278
                                                  SA1    =X_NAME                                                 FTNTEXT   279
                                        *                            LIBRARY OR FILE NAME.                       FTNTEXT   280
                                                  IFEQ   LDRCALL,2,1                                             FTNTEXT   281
                                                  IFNE   TEST,0,1                                                FTNTEXT   282
                                                  SA4    =XOVLA                                                  FTNTEXT   283
                                        *                            OVERLAY LEVEL, LOADER REQUEST FLAGS.        FTNTEXT   284
                                                  IFEQ   LDRCALL,2,2                                             FTNTEXT   285
                                                  SX2    0"P"0"S"014B-10B*TEST/TEST                              FTNTEXT   286
                                                  SKIP   1                                                       FTNTEXT   287
                                                  SX2    0"P"0"S"000B                                            FTNTEXT   288
                                        *                            COMBINE LEVEL, FLAGS, FWA, LWA+1.           FTNTEXT   289
                                                  BX6    X1                                                      FTNTEXT   290
                                                  LX2    39D                                                     FTNTEXT   291
                                        *                                                                        FTNTEXT   292
                                                  IFEQ   LDRCALL,3,2                                             FTNTEXT   293
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    22
        GENERAL MACROS                                                LOVER 
  
                                                  SA3    =XOVLB      (X3) = LOADER REQUEST FLAGS                 FTNTEXT   294
                                                  BX2    X2+X3                                                   FTNTEXT   295
                                        *                                                                        FTNTEXT   296
                                                  BX7    X2+X7                                                   FTNTEXT   297
                                                  LX5    18D                                                     FTNTEXT   298
                                                  BX7    X7+X5                                                   FTNTEXT   299
                                                  EQ     =XLOVER                                                 FTNTEXT   300
                                         LOVER    ENDM                                                           FTNTEXT   301
  
  
  
  
                                        **        MOVE - MOVE DATA BLOCK.                                        FTNTEXT   303
                                        *                                                                        FTNTEXT   304
                                        *                                                                        FTNTEXT   305
                                        *         MOVE      COUNT,FROM,TO                                        FTNTEXT   306
                                        *                                                                        FTNTEXT   307
                                        *         ENTRY  *COUNT* = WORD COUNT OF BLOCK TO BE MOVED               FTNTEXT   308
                                        *                *FROM*  = ADDRESS OF FIRST WORD OF BLOCK                FTNTEXT   309
                                        *                *TO*    = ADDRESS OF FIRST WORD OF DESTINATION          FTNTEXT   310
                                        *                                                                        FTNTEXT   311
                                        *         USES   X - 1, 2, 3                                             FTNTEXT   312
                                        *                A - NONE                                                FTNTEXT   313
                                        *                B - 1                                                   FTNTEXT   314
                                        *                                                                        FTNTEXT   315
                                        *         CALLS  MVE= (COMCMVE)                                          FTNTEXT   316
                                                                                                                 FTNTEXT   317
                                                                                                                 FTNTEXT   318
                                                  PURGMAC   MOVE                                                 FCCA511     6
                                         MOVE     MACRO  C,F,T                                                   FTNTEXT   319
                                                  R=     X1,C                                                    FTNTEXT   320
                                                  R=     X2,F                                                    FTNTEXT   321
                                                  R=     X3,T                                                    FTNTEXT   322
                                                  IF     -DEF,B1=1,1                                             FTNTEXT   323
                                                  SB1    1                                                       FTNTEXT   324
                                                  RJ     =XMVE=                                                  FTNTEXT   325
                                         MOVE     ENDM                                                           FTNTEXT   326
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    23
        GENERAL MACROS                                                PLUG
  
                                        **        PLUG - MODIFY COMPILER CODE DURING EXECUTION.                  FTNTEXT   328
                                        *                                                                        FTNTEXT   329
                                        *         SELF-MODIFYING (PLUGGING) CODE MAY SEEMINGLY FAIL ON CYBER     FTNTEXT   330
                                        *         74 / 6600 AND LARGER MODELS, DUE TO THE HARDWARE INSTRUCTION   FTNTEXT   331
                                        *         STACK AND 1- OR 2-WORD INSTRUCTION LOOKAHEAD.  BECAUSE OF THIS FTNTEXT   332
                                        *         PROBLEM, AND THE UNREADABILITY OF PLUGGED CODE, THE TECHNIQUE  FTNTEXT   333
                                        *         IS NOT DESIRABLE FOR WIDE USAGE.  EFFICIENCY CONSIDERATIONS    FTNTEXT   334
                                        *         ARE OCCASIONALLY MORE IMPORTANT, HOWEVER, SO WE FORMALIZE      FTNTEXT   335
                                        *         PLUGGING WITH THE FOLLOWING MACRO.  IT INCLUDES A SAFEGUARD    FTNTEXT   336
                                        *         AGAINST THE STACK/LOOKAHEAD PROBLEM, AND IS PREFERABLE TO      FTNTEXT   337
                                        *         DIRECT CODE FOR READABILITY AND DEBUGGING EASE.                FTNTEXT   338
                                        *                                                                        FTNTEXT   339
                                        *         TWO FORMS OF *PLUG* ARE AVAILABLE ...                          FTNTEXT   340
                                        *                                                                        FTNTEXT   341
                                        *                                                                        FTNTEXT   342
                                        *         FORM 1 - PLUGS A CALLER-PROVIDED WORD OF CODE.                 FTNTEXT   343
                                        *                                                                        FTNTEXT   344
                                        *         PLUG      AT=,FROM=,FREG=,SREG=,VOID=                          FTNTEXT   345
                                        *                                                                        FTNTEXT   346
                                        *                                                                        FTNTEXT   347
                                        *         FORM 2 - FABRICATES AND PLUGS AN -EQ- JUMP.                    FTNTEXT   348
                                        *         RESTRICTION - THE 1-REGISTER METHOD USED FOR FORMING THE -EQ-  FTNTEXT   349
                                        *         JUMP IS NOT VALID IF *TO* IS .GT. 177777B ABSOLUTE.  THIS IS   FTNTEXT   350
                                        *         NOT A PROBLEM IN FTN, SINCE ALL ADDRESSES ARE .LT. 100000B.    FTNTEXT   351
                                        *                                                                        FTNTEXT   352
                                        *         PLUG      AT=,TO=,SREG=,VOID=                                  FTNTEXT   353
                                        *                                                                        FTNTEXT   354
                                        *                                                                        FTNTEXT   355
                                        *         ENTRY  *AT*   = ADDRESS WHERE PLUG TO BE STORED.               FTNTEXT   356
                                        *                *FREG* = (FORM 1 ONLY) (OPTIONAL)  NUMBER OF A,X REG    FTNTEXT   357
                                        *                         TO USE FOR FETCHING CODE WORD.  MUST BE 1-5.   FTNTEXT   358
                                        *                         USES A1 AND X1 IF OMITTED.  IGNORED IF *FROM*  FTNTEXT   359
                                        *                         SPECIFIES AN X-REGISTER.                       FTNTEXT   360
                                        *                *FROM* = (FORM 1 ONLY)  SOURCE OF CODE WORD TO PLUG.    FTNTEXT   361
                                        *                         MAY BE AN X-REGISTER CONTAINING THE CODE WORD  FTNTEXT   362
                                        *                         ( E.G., FROM=X3 ), OR AN ADDRESS EXPRESSION.   FTNTEXT   363
                                        *                *SREG* = (OPTIONAL)  NUMBER OF A,X REG TO USE FOR       FTNTEXT   364
                                        *                         STORING PLUG.  MUST BE 6 OR 7.  USES X6 AND A6 FTNTEXT   365
                                        *                         IF OMITTED.                                    FTNTEXT   366
                                        *                *TO*   = (FORM 2 ONLY)  -EQ- JUMP ADDRESS.              FTNTEXT   367
                                        *                *VOID* = (OPTIONAL)                                     FTNTEXT   368
                                        *                         *NO* = DO NOT GENERATE STACK-VOIDING CODE.     FTNTEXT   369
                                        *                         ELSE OR OMITTED = GENERATE STACK-VOIDING CODE. F7540FTA    9
                                        *                                                                        FTNTEXT   372
                                        *         CALLS  NONE                                                    FTNTEXT   373
                                        *                                                                        FTNTEXT   374
                                        *         USES   AS ABOVE                                                FTNTEXT   375
                                                                                                                 FTNTEXT   376
                                                                                                                 FTNTEXT   377
                                                  PURGMAC   PLUG                                                 FTNTEXT   378
                                                                                                                 FTNTEXT   379
                                         PLUG     MACROE AT,TO,FROM,FREG,SREG,VOID                               FTNTEXT   380
                                                  LOCAL  FN,SN                                                   FTNTEXT   381
                                         SN       SET    SREG  6                                                 FTNTEXT   382
                                                  IFLT   SN,6,1                                                  FTNTEXT   383
                                                  ERR    *PLUG* STORE REG MUST BE 6 OR 7 AT ["SEQUENCE"].        FTNTEXT   384
                                         .F1      IFC    EQ, TO                                                  FTNTEXT   385
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    24
        GENERAL MACROS                                                PLUG
  
                                         .F1A     IF     REG,FROM                                                FTNTEXT   386
                                        *                            FORM 1A - CODE WORD IN AN X-REGISTER.       FTNTEXT   387
                                         SN       OCTMIC SN,1                                                    FTNTEXT   388
                                         SN       MICRO  1,, X"SN"                                               FTNTEXT   389
                                                  IFC    NE, FROM "SN" ,1                                        FTNTEXT   390
                                                  BX.SN  FROM                                                    FTNTEXT   391
                                         .F1A     ELSE                                                           FTNTEXT   392
                                        *                            FORM 1B - FETCH CODE WORD FROM *FROM*.      FTNTEXT   393
                                         FN       SET    FREG  1                                                 FTNTEXT   394
                                                  IFGE   FN,1,2                                                  FTNTEXT   395
                                                  IFLE   FN,5,1                                                  FTNTEXT   396
                                                  SKIP   1                                                       FTNTEXT   397
                                                  ERR    FETCH REG NOT 1-5 "SEQUENCE"                            FTNTEXT   398
                                                  SA.FN  FROM                                                    FTNTEXT   399
                                                  BX.SN  X.FN                                                    FTNTEXT   400
                                         .F1A     ENDIF                                                          FTNTEXT   401
                                         .F1      ELSE                                                           FTNTEXT   402
                                        *                            FORM 2 - FABRICATE -EQ- JUMP TO *TO*.       FTNTEXT   403
                                                  SX.SN  TO                                                      FTNTEXT   404
                                                  LX.SN  2+30D                                                   FTNTEXT   405
                                        *                            2000BS48+*JPADR*S32                         FTNTEXT   406
                                                  PX.SN  X.SN,B0                                                 FTNTEXT   407
                                        *                            0400BS48+*JPADR*S30                         FTNTEXT   408
                                                  LX.SN  -2                                                      FTNTEXT   409
                                         .F1      ENDIF                                                          FTNTEXT   410
                                        *                            STORE THE PLUG.                             FTNTEXT   411
                                                  SA.SN  AT                                                      FTNTEXT   412
                                        *                            GENERATE STACK-VOIDING CODE.                FTNTEXT   413
                                                  IFC    NE, VOID NO ,3                                          F7540FTA   10
                                                  RJ     *+1                                                     FTNTEXT   416
                                                  EQ     *+1S17                                                  FTNTEXT   417
                                                  BSS    0                                                       FTNTEXT   418
                                         PLUG     ENDM                                                           FTNTEXT   419
  
  
  
  
                                        **        ROUTINE - DEFINE LOCAL SUBROUTINE ENTRY POINT.                 FTNTEXT   421
                                        *                                                                        FTNTEXT   422
                                        *                                                                        FTNTEXT   423
                                        * NAME    ROUTINE                                                        FTNTEXT   424
                                        *                                                                        FTNTEXT   425
                                        *         ENTRY  *NAME* = NAME OF SUBROUTINE.                            FTNTEXT   426
                                                                                                                 FTNTEXT   427
                                                                                                                 FTNTEXT   428
                                                  PURGMAC   ROUTINE                                              FTNTEXT   429
                                                                                                                 FTNTEXT   430
                                                  MACRO  ROUTINE,NAME                                            FTNTEXT   431
                                         NAME     JP     *+1S17                                                  FTNTEXT   432
                                                  NOREF  )NAME                                                   FTNTEXT   433
                                                  IF     DEF,)NAME,1                                             FTNTEXT   434
                                                  PRINT  NAME,(* ENTERED*)                                       FTNTEXT   435
                                         ROUTINE  ENDM                                                           FTNTEXT   436
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    25
        GENERAL MACROS                                                RPVDEF
  
                                        **        RPVDEF - DEFINE FWA OF ROUTINE FOR REPRIEVE UTILITY.           FTNTEXT   438
                                        *                                                                        FTNTEXT   439
                                        *         DEFINES THE FIRST WORD ADDRESS OF A ROUTINE AND DECLARES       FTNTEXT   440
                                        *         IT AS AN ENTRY POINT, FOR FORMING THE NAME/ADDRESS TABLES      FTNTEXT   441
                                        *         USED BY THE UTILITY ROUTINE *RPV* (LOCATED IN *LSTPRO*).       FTNTEXT   442
                                        *         FOR PROPER OPERATION, THIS MACRO MUST BE CALLED AT THE         FTNTEXT   443
                                        *         BEGINNING OF EACH ROUTINE, BEFORE ANY OTHER INSTRUCTION OR     FTNTEXT   444
                                        *         PSEUDO-OP THAT WOULD CAUSE *COMPASS-S* LOCATION COUNTER TO BE  FTNTEXT   445
                                        *         ADVANCED.                                                      FTNTEXT   446
                                        *                                                                        FTNTEXT   447
                                        *                                                                        FTNTEXT   448
                                        *  *TAG*  RPVDEF                                                         FTNTEXT   449
                                        *                                                                        FTNTEXT   450
                                        *         ENTRY  *TAG* = SYMBOLIC NAME OF ROUTINE FWA.                   FTNTEXT   451
                                                                                                                 FTNTEXT   452
                                                                                                                 FTNTEXT   453
                                                  PURGMAC   RPVDEF                                               FTNTEXT   454
                                                                                                                 FTNTEXT   455
                                                  MACRO  RPVDEF,T                                                FTNTEXT   456
                                                  NOREF  T                                                       FTNTEXT   457
                                                  ENTRY  T                                                       FTNTEXT   458
                                         T        BSS    0                                                       FTNTEXT   459
                                         RPVDEF   ENDM                                                           FTNTEXT   460
  
  
  
  
                                        **        FWA - DEFINE ENTRY FOR *RPV* FWA TABLE.                        FTNTEXT   462
                                        *                                                                        FTNTEXT   463
                                        *         FWA    NAM,EPN                                                 FTNTEXT   464
                                        *                                                                        FTNTEXT   465
                                        *         ENTRY  *NAM* = NAME OF SUBROUTINE                              FTNTEXT   466
                                        *                *EPN* = FWA NAME                                        FTNTEXT   467
                                                                                                                 FTNTEXT   468
                                                  PURGMAC FWA                                                    FTNTEXT   469
                                                                                                                 FTNTEXT   470
                                         FWA      MACRO  NAM,EPN                                                 FTNTEXT   471
                                                  VFD    42/0L_NAM                                               FEAT155F   82
                                                  VFD    18/=XB=_EPN                                             FTNTEXT   473
                                                  NOREF  B=_EPN                                                  FTNTEXT   474
                                                  ENDM                                                           FTNTEXT   475
  
  
  
  
                                        **        SETCORE - SET BLOCK OF MEMORY TO A GIVEN VALUE.                FTNTEXT   477
                                        *                                                                        FTNTEXT   478
                                        *                                                                        FTNTEXT   479
                                        *         SETCORE   FWA,LEN                                              FTNTEXT   480
                                        *                                                                        FTNTEXT   481
                                        *         ENTRY  *FWA* = BLOCK ADDRESS                                   FTNTEXT   482
                                        *                *LEN* = BLOCK LENGTH                                    FTNTEXT   483
                                        *                (X6)  = VALUE TO SET                                    FTNTEXT   484
                                        *                                                                        FTNTEXT   485
                                        *         USES   X1, A6                                                  FTNTEXT   486
                                        *                                                                        FTNTEXT   487
                                        *         CALLS  SETCORE                                                 FTNTEXT   488
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    26
        GENERAL MACROS                                                SETCORE 
  
                                                                                                                 FTNTEXT   489
                                                                                                                 FTNTEXT   490
                                                  PURGMAC   SETCORE                                              FTNTEXT   491
                                                                                                                 FTNTEXT   492
                                         SETCORE  MACRO  F,L                                                     FTNTEXT   493
                                                  R=     X1,L                                                    FTNTEXT   494
                                                  SA6    F                                                       FTNTEXT   495
                                                  RJ     =XSETCORE                                               FTNTEXT   496
                                         SETCORE  ENDM                                                           FTNTEXT   497
  
  
  
  
                                        **        SETZERO - SET BLOCK OF MEMORY TO ZERO.                         FTNTEXT   499
                                        *                                                                        FTNTEXT   500
                                        *                                                                        FTNTEXT   501
                                        *         SETZERO   FWA,LEN                                              FTNTEXT   502
                                        *                                                                        FTNTEXT   503
                                        *         ENTRY  *FWA* = BLOCK ADDRESS                                   FTNTEXT   504
                                        *                *LEN* = BLOCK LENGTH                                    FTNTEXT   505
                                        *                                                                        FTNTEXT   506
                                        *         USES   X1, X6, A6                                              FTNTEXT   507
                                        *                                                                        FTNTEXT   508
                                                                                                                 FTNTEXT   509
                                                                                                                 FTNTEXT   510
                                                  PURGMAC   SETZERO                                              FTNTEXT   511
                                                                                                                 FTNTEXT   512
                                         SETZERO  MACRO  F,L                                                     FTNTEXT   513
                                                  BX6    X6-X6                                                   FTNTEXT   514
                                                  SA6    F                                                       FTNTEXT   515
                                         .1       IF     DEF,L                                                   FTNTEXT   516
                                         .1       IF     ABS,L                                                   FTNTEXT   517
                                         .1       IF     -REG,L                                                  FTNTEXT   518
                                         .1       IFLT   L,60                                                    FTNTEXT   519
                                         .2       IFNE   L,1                                                     FTNTEXT   520
                                                  MX1    L-1                                                     FTNTEXT   521
                                                  IF     -DEF,B1=1,1                                             FTNTEXT   522
                                                  SB1    1                                                       FTNTEXT   523
                                        +         LX1    1                                                       FTNTEXT   524
                                                  SA6    A6+B1                                                   FTNTEXT   525
                                                  MI     X1,*                                                    FTNTEXT   526
                                         .1       ELSE                                                           FTNTEXT   527
                                                  R=     X1,L                                                    FTNTEXT   528
                                                  RJ     =XSETCORE                                               FTNTEXT   529
                                         .2       ENDIF                                                          FTNTEXT   530
                                         .1       ENDIF                                                          FTNTEXT   531
                                         SETZERO  ENDM                                                           FTNTEXT   532
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    27
        GENERAL MACROS                                                XR= 
  
                                        **        XR= - X-REGISTER VERSION OF R= PSEUDO INSTRUCTION.             FTNTEXT   534
                                        *                                                                        FTNTEXT   535
                                        *         IF *EXPR* = *LDREG*, GENERATES NOTHING.                        FTNTEXT   536
                                        *         IF *EXPR* = OTHER X-REG, GENERATES BOOLEAN XMIT TO *LDREG*.    FTNTEXT   537
                                        *         IF *EXPR* = ELSE, GENERATES INCREMENT INSTR TO LOAD *LDREG*.   FTNTEXT   538
                                        *                                                                        FTNTEXT   539
                                        *                                                                        FTNTEXT   540
                                        *         XR=       LDREG,EXPR                                           FTNTEXT   541
                                        *                                                                        FTNTEXT   542
                                        *         ENTRY  *LDREG* = X-REGISTER TO BE LOADED.  MUST BE X1 THRU X5. FTNTEXT   543
                                        *                *EXPR*  = ADDRESS EXPRESSION FOR VALUE TO BE LOADED.    FTNTEXT   544
                                        *                                                                        FTNTEXT   545
                                        *         USES   *LDREG* AND ITS A-REGISTER.                             FTNTEXT   546
                                        *                                                                        FTNTEXT   547
                                        *         CALLS  NONE                                                    FTNTEXT   548
                                                                                                                 FTNTEXT   549
                                                                                                                 FTNTEXT   550
                                                  PURGMAC   XR=                                                  FTNTEXT   551
                                                                                                                 FTNTEXT   552
                                         XR=      MACRO  R,E                                                     FTNTEXT   553
                                          LOCAL A                                                                FTNTEXT   554
                                        A MICRO 1,, E                                                            FTNTEXT   555
                                        A MICCNT A                                                               FTNTEXT   556
                                          IFEQ A,2,5                                                             FTNTEXT   557
                                        A MICRO 1,1, E                                                           FTNTEXT   558
                                          IFC EQ, "A" X ,3                                                       FTNTEXT   559
                                          IFC NE, R E ,1                                                         FTNTEXT   560
                                          B_R E                                                                  FTNTEXT   561
                                          SKIP 6                                                                 FTNTEXT   562
                                        A MICRO 2,1, R                                                           FTNTEXT   563
                                          IFC GE, "A" 1 ,3                                                       FTNTEXT   564
                                          IFC LT, "A" 6 ,2                                                       FTNTEXT   565
                                          SA"A" E                                                                FTNTEXT   566
                                          SKIP 1                                                                 FTNTEXT   567
                                          ERR (R) NOT X1-X5 "SEQUENCE"                                           FTNTEXT   568
                                         XR=      ENDM                                                           FTNTEXT   569
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    28
        I/O MACRO CODING CONVENTIONS                                  CODING
  
                                        **        I/O MACRO CODING CONVENTIONS.                                  FA=DEFS     2
                                        *                                                                        FA=DEFS     3
                                        *         1.  MACRO DEFINITIONS THAT ACCEPT NULL CALLING PARAMETERS      FA=DEFS     4
                                        *         SHOULD BE AVOIDED, PARTICULARLY WHEN A NULL PARAMETER IMPLIES  FA=DEFS     5
                                        *         THAT A REGISTER IS ALREADY PROPERLY LOADED.  THE ASSUMPTIONS   FA=DEFS     6
                                        *         OR REGISTERS MAY HAVE TO BE CHANGED IN THE FUTURE, WHICH COULD FA=DEFS     7
                                        *         COMPEL RECODING OF ALL CALLS TO THE MACRO IF NULL PARAMETERS   FA=DEFS     8
                                        *         HAVE SPECIFIC MEANINGS.                                        FA=DEFS     9
                                        *             THE PREFERRED TECHNIQUE IS TO REQUIRE EXPLICIT CALL        FA=DEFS    10
                                        *         PARAMETERS, AND THEN SQUEEZE OUT REDUNDANT CODE WITH THE       FA=DEFS    11
                                        *         (R=) PSEUDO-OP OR OTHER METHOD.                                FA=DEFS    12
                                        *                                                                        FA=DEFS    13
                                        *         2.  *USES* LISTS ONLY THE REGISTERS DESTROYED BY THE MACRO     FA=DEFS    14
                                        *         CALL EXPANSION.  REGISTERS DESTROYED BY INNER MACRO OR         FA=DEFS    15
                                        *         SUBROUTINE CALLS ARE LISTED IN THE DESCRIPTION OF THE CALLED   FA=DEFS    16
                                        *         ITEM.                                                          FA=DEFS    17
                                        *             THE ONLY EXCEPTION TO THIS IS THAT REGISTERS DESTROYED BY  FA=DEFS    18
                                        *         THE (R=) PSEUDO-OP SHOULD BE LISTED IN THE *USES* BLOCK OF     FA=DEFS    19
                                        *         THE CALLER.                                                    FA=DEFS    20
                                        *                                                                        FA=DEFS    21
                                        *         3.  BOTH MACRO AND SUBROUTINE CALLS ARE LISTED IN *CALLS*.     FA=DEFS    22
                                        *                                                                        FA=DEFS    23
                                        *         4.  CONDITIONAL ASSEMBLY PSEUDO-OPS (IF.., ELSE, SKIP, ENDIF)  FA=DEFS    24
                                        *         ARE ALWAYS EITHER COUNT-CONTROLLED OR LABELED, TO AVOID MACRO  FA=DEFS    25
                                        *         NESTING PROBLEMS.                                              FA=DEFS    26
                                        *             COUNT CONTROL IS PREFERRED WHERE THE LINE COUNTS ARE       FA=DEFS    27
                                        *         SMALL (.LE. 9), TO REDUCE ASSEMBLY TIME.                       FA=DEFS    28
                                        *             LABELING IS PREFERRED FOR LARGER LINE COUNTS, TO REDUCE    FA=DEFS    29
                                        *         THE CHANCE OF COUNT ERRORS AND TO ENHANCE CODE READABILITY.    FA=DEFS    30
                                        *                                                                        FA=DEFS    31
                                        *         5.  ADDRESS TERMINOLOGY.                                       FA=DEFS    32
                                        *                THE FOLLOWING CONVENTIONS ARE ADOPTED FOR REFERRING     FA=DEFS    33
                                        *         TO A GROUP OF CONTIGUOUS STORAGE LOCATIONS.                    FA=DEFS    34
                                        *             A.  *FWA* OR FIRST WORD ADDRESS IS THE SMALLEST STORAGE    FA=DEFS    35
                                        *             ADDRESS FOR THE GROUP.                                     FA=DEFS    36
                                        *             B.  *LWA* OR LAST WORD ADDRESS IS THE LARGEST STORAGE      FA=DEFS    37
                                        *             ADDRESS FOR THE GROUP.                                     FA=DEFS    38
                                        *             C.  *ADDRESS*, IF NOT OTHERWISE QUALIFIED, IS THE FIRST    FA=DEFS    39
                                        *             WORD ADDRESS.                                              FA=DEFS    40
                                        *             D. *FWA* IS PREFERRED WHEN BOTH *FWA* AND *LWA* ARE        FA=DEFS    41
                                        *             BEING MENTIONED, TO AVOID CONFUSION.  OTHERWISE,           FA=DEFS    42
                                        *             *ADDRESS* IS PREFERRED.                                    FA=DEFS    43
                                        *             E.  *LWA+1* IS NEVER, NEVER ABBREVIATED AS *LWA*.          FA=DEFS    44
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    29
        I/O SYSTEM SYMBOLS
  
                                         #RM      IFEQ   CP#RM,0                                                 FA=DEFS    47
  
  
  
  
                                        ****      FET STRUCTURE AND WORD OFFSETS.                                FA=DEFS    49
                                        *                                                                        FA=DEFS    50
                                        *                                                                        FA=DEFS    51
                                        *              OFFSET        CONTENTS                                    FA=DEFS    52
                                        *              ------        --------                                    FA=DEFS    53
                                                                                                                 FA=DEFS    54
                                   0     I.FET    =      0           42/EXTERNAL LFN, 18/CIO CODE AND STATUS     FA=DEFS    55
                                   1     I.FIRST  =      1           36/0, 6/FET LEN - 5, 18/FIRST               FA=DEFS    56
                                   1     I.DT     =      1           12/DEVICE TYPE,48/0                         FEAT126A    5
                                   2     I.IN     =      2           60/IN                                       FA=DEFS    57
                                   3     I.OUT    =      3           60/OUT                                      FA=DEFS    58
                                   4     I.LIMIT  =      4           42/0,18/LIMIT                               FA=DEFS    59
                                   4     I.PRU    =      4           26/0,16/PRU SIZE,18/0                       FA=DEFS    60
                                   5     I.CBSET  =      5           24/0, 18/PASS 1 LEN, 18/PASS 1 FWA          FA=DEFS    61
                                   6     I.RAN1   =      6           RANDOM FILE INFORMATION                     FA=DEFS    62
                                   7     I.RAN2   =      7           RANDOM FILE INFORMATION                     FA=DEFS    63
                                        ****                                                                     FA=DEFS    64
  
  
  
  
                                         #RM      ELSE                                                           FA=DEFS    66
                                                  SPACE  4                                                       FA=DEFS    67
                                        ****      PSEUDO-FET STRUCTURE AND WORD OFFSETS.                         FA=DEFS    68
                                        *                                                                        FA=DEFS    69
                                        *                                                                        FA=DEFS    70
                                        *              OFFSET        CONTENTS                                    FA=DEFS    71
                                        *              ------        --------                                    FA=DEFS    72
                                                                                                                 FA=DEFS    73
                                         I.CBSET  =      -1          CIO BUFFER PASS 1 PARAMS - 42/LEN, 18/FWA   FA=DEFS    74
                                         I.FIT    =      0           1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR  FA=DEFS    75
                                         I.FIRST  =      1           60/FIRST                                    FA=DEFS    76
                                         I.IN     =      2           60/IN                                       FA=DEFS    77
                                         I.OUT    =      3           60/OUT                                      FA=DEFS    78
                                         I.LIMIT  =      4           60/LIMIT                                    FA=DEFS    79
                                         I.HBSET  =      5           HOLDING BUF PASS 1 PARAMS - 42/LEN, 18/FWA  FA=DEFS    80
                                        ****                                                                     FA=DEFS    81
                                                  SPACE  4                                                       FA=DEFS    82
                                         #RM      ENDIF                                                          FA=DEFS    83
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    30
        I/O GENERAL MACROS                                            SETFIL
  
                                        **        SETFIL - SET PARAMS IN FILE MANAGEMENT TABLES.                 FA=DEFS    86
                                        *                                                                        FA=DEFS    87
                                        *                                                                        FA=DEFS    88
                                        *         TO SET INITIAL PARAMETER VALUES IN FILE TABLES,                FA=DEFS    89
                                        *         SETFIL    FILE=FNAM,MODE=INIT,FWA=ADDR                         FA=DEFS    90
                                        *          OR                                                            FA=DEFS    91
                                        *         SETFIL    FILE=FNAM,MODE=INIT,LWA1=ADDR                        FA=DEFS    92
                                        *                                                                        FA=DEFS    93
                                        *         TO RESTORE FILE TABLES TO INITIAL (PASS 1) CONDITIONS,         FA=DEFS    94
                                        *         SETFIL    FILE=FNAM,MODE=RESET                                 FA=DEFS    95
                                        *                                                                        FA=DEFS    96
                                        *         ENTRY  *FNAM* = FILE NAME                                      FA=DEFS    97
                                        *                 MODE  = *INIT* OR *RESET*                              FA=DEFS    98
                                        *                *ADDR* = BUFFER FWA OR LWA+1, TO MATCH EQUIV PARAM      FA=DEFS    99
                                        *                                                                        FA=DEFS   100
                                        *         USES   X - 1, 2                                                FA=DEFS   101
                                        *                B - 2, 3                                                FA=DEFS   102
                                        *                                                                        FA=DEFS   103
                                        *         CALLS  FA=SET                                                  FA=DEFS   104
                                                                                                                 FA=DEFS   105
                                                                                                                 FA=DEFS   106
                                                  PURGMAC   SETFIL                                               FA=DEFS   107
                                                                                                                 FA=DEFS   108
                                         SETFIL   MACROE FILE,MODE,FWA,LWA1                                      FA=DEFS   109
                                                  LOCAL  CHECK                                                   FA=DEFS   110
                                         CHECK    SET    0                                                       FA=DEFS   111
                                                  IFC    NE, LWA1  ,1                                            FA=DEFS   112
                                         CHECK    SET    CHECK+1                                                 FA=DEFS   113
                                                  IFC    NE, FWA  ,1                                             FA=DEFS   114
                                         CHECK    SET    CHECK+2                                                 FA=DEFS   115
                                        *                            SET FILE ADDRESS.                           FA=DEFS   116
                                                  IFEQ   CP#RM,0,2                                               FA=DEFS   117
                                                  R=     X2,FILE                                                 FA=DEFS   118
                                                  SKIP   1                                                       FA=DEFS   119
                                                  R=     A2,FILE                                                 FA=DEFS   120
                                         .M       IFC    NE, MODE INIT                                           FA=DEFS   121
                                        *                            VALIDATE MODE PARAMETER.                    FA=DEFS   122
                                                  IFC    NE, MODE RESET ,1                                       FA=DEFS   123
                                                  ERR    (MODE) BAD MODE# "SEQUENCE"                             FA=DEFS   124
                                        *                            RESET MODE.                                 FA=DEFS   125
                                                  IFNE   CHECK,0,1                                               FA=DEFS   126
                                         7        ERR    MODE#RESET, FWA#/LWA1# IGNORED "SEQUENCE"               FA=DEFS   127
                                                  IFEQ   CP#RM,0,2                                               FA=DEFS   128
                                                  SA1    X2+I.CBSET                                              FA=DEFS   129
                                                  SKIP   1                                                       FA=DEFS   130
                                                  SA1    A2+I.HBSET                                              FA=DEFS   131
                                                  SB3    B0                                                      FA=DEFS   132
                                                  SB2    X1                                                      FA=DEFS   133
                                         .M       ELSE                                                           FA=DEFS   134
                                        *                            INITIALIZE MODE.                            FA=DEFS   135
                                                  IFGE   CHECK,2,5                                               FA=DEFS   136
                                                  IFGE   CHECK,3,1                                               FA=DEFS   137
                                         7        ERR    BOTH FWA# AND LWA1# SPECIFIED, LWA1# IGNORED "SEQUENCE" FA=DEFS   138
                                        *                            SET FWA.                                    FA=DEFS   139
                                                  R=     B2,FWA                                                  FA=DEFS   140
                                                  SB3    B0                                                      FA=DEFS   141
                                                  SKIP   5                                                       FA=DEFS   142
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    31
        I/O GENERAL MACROS                                            SETFIL
  
                                                  IFLE   CHECK,0,2                                               FA=DEFS   143
                                                  ERR    NO FWA#/LWA1# "SEQUENCE"                                FA=DEFS   144
                                                  SKIP   2                                                       FA=DEFS   145
                                        *                            SET LWA1.                                   FA=DEFS   146
                                                  R=     B3,LWA1                                                 FA=DEFS   147
                                                  SB2    B0                                                      FA=DEFS   148
                                         .M       ENDIF                                                          FA=DEFS   149
                                        *                            CALL PROCESSING SUBROUTINE.                 FA=DEFS   150
                                                  RJ     =XFA=SET                                                FA=DEFS   151
                                         SETFIL   ENDM                                                           FA=DEFS   152
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    32
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                         #RM      IFNE   CP#RM,0                                                 FA=DEFS   154
                                         BKSP     SPACE  4,8                                                     FA=DEFS   155
                                        **        BKSP - BACKSPACE FILE ONE RECORD.                              FA=DEFS   156
                                        *                                                                        FA=DEFS   157
                                        *                                                                        FA=DEFS   158
                                        *         BKSP      FILE                                                 FA=DEFS   159
                                        *                                                                        FA=DEFS   160
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   161
                                        *                                                                        FA=DEFS   162
                                        *         USES   X2, A2                                                  FA=DEFS   163
                                        *                                                                        FA=DEFS   164
                                        *         CALLS  SKIPBL                                                  FA=DEFS   165
                                                                                                                 FA=DEFS   166
                                                                                                                 FA=DEFS   167
                                                  PURGMAC   BKSP                                                 FA=DEFS   168
                                                                                                                 FA=DEFS   169
                                         BKSP     MACRO  F                                                       FA=DEFS   170
                                                  R=     A2,F                                                    FA=DEFS   171
                                                  SKIPBL X2,1                                                    FA=DEFS   172
                                         BKSP     ENDM                                                           FA=DEFS   173
                                         CLOSE    SPACE  4,8                                                     FA=DEFS   174
                                        **        CLOSE - CLOSE FILE.                                            FA=DEFS   175
                                        *                                                                        FA=DEFS   176
                                        *         CLOSES *FILE*, USING POSITIONING PARAMETER (CF) CURRENTLY      FA=DEFS   177
                                        *         IN THE FIT.                                                    FA=DEFS   178
                                        *                                                                        FA=DEFS   179
                                        *                                                                        FA=DEFS   180
                                        *         CLOSE     FILE                                                 FA=DEFS   181
                                        *                                                                        FA=DEFS   182
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   183
                                        *                                                                        FA=DEFS   184
                                        *         USES   X2, A2                                                  FA=DEFS   185
                                        *                                                                        FA=DEFS   186
                                        *         CALLS  FA=CLO                                                  FA=DEFS   187
                                                                                                                 FA=DEFS   188
                                                                                                                 FA=DEFS   189
                                                  PURGMAC   CLOSE                                                FA=DEFS   190
                                                                                                                 FA=DEFS   191
                                         CLOSE    MACRO  F                                                       FA=DEFS   192
                                                  R=     A2,F                                                    FA=DEFS   193
                                                  RJ     =XFA=CLO                                                FA=DEFS   194
                                         CLOSE    ENDM                                                           FA=DEFS   195
                                         OPEN     SPACE  4,8                                                     FA=DEFS   196
                                        **        OPEN - OPEN FILE.                                              FA=DEFS   197
                                        *                                                                        FA=DEFS   198
                                        *         OPENS *FILE*, USING PROCESSING DIRECTION (PD) AND POSITIONING  FA=DEFS   199
                                        *         (OF) PARAMETERS CURRENTLY IN THE FIT.                          FA=DEFS   200
                                        *                                                                        FA=DEFS   201
                                        *                                                                        FA=DEFS   202
                                        *         OPEN      FILE                                                 FA=DEFS   203
                                        *                                                                        FA=DEFS   204
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   205
                                        *                                                                        FA=DEFS   206
                                        *         USES   X2, A2                                                  FA=DEFS   207
                                        *                                                                        FA=DEFS   208
                                        *         CALLS  FA=OPE                                                  FA=DEFS   209
                                                                                                                 FA=DEFS   210
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    33
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                                                                                                 FA=DEFS   211
                                                  PURGMAC   OPEN                                                 FA=DEFS   212
                                                                                                                 FA=DEFS   213
                                         OPEN     MACRO  F                                                       FA=DEFS   214
                                                  R=     A2,F                                                    FA=DEFS   215
                                                  RJ     =XFA=OPE                                                FA=DEFS   216
                                         OPEN     ENDM                                                           FA=DEFS   217
                                         REWIND   SPACE  4,8                                                     FA=DEFS   218
                                        **        REWIND- REWIND A FILE/BUFFER.                                  FA=DEFS   219
                                        *                                                                        FA=DEFS   220
                                        *         THIS EXTENSION OF A NORMAL *REWIND* PREVENTS UNNECESSARY I/O   FA=DEFS   221
                                        *         TRANSFERS OF SMALL INTERNAL SCRATCH FILES BETWEEN CENTRAL      FA=DEFS   222
                                        *         MEMORY AND MASS STORAGE.                                       FA=DEFS   223
                                        *                                                                        FA=DEFS   224
                                        *                                                                        FA=DEFS   225
                                        *         REWIND    FILE,RECALL                                          FA=DEFS   226
                                        *                                                                        FA=DEFS   227
                                        *         ENTRY  *FILE*    = FILE NAME                                   FA=DEFS   228
                                        *                *RECALL*  = IGNORED; INCLUDED FOR CIO COMPATIBILITY     FA=DEFS   229
                                        *                                                                        FA=DEFS   230
                                        *         USES   X2, A2                                                  FA=DEFS   231
                                        *                                                                        FA=DEFS   232
                                        *         CALLS  FA=RWX                                                  FA=DEFS   233
                                                                                                                 FA=DEFS   234
                                                                                                                 FA=DEFS   235
                                                  PURGMAC   REWIND                                               FA=DEFS   236
                                                                                                                 FA=DEFS   237
                                         REWIND   MACRO  F                                                       FA=DEFS   238
                                                  R=     A2,F                                                    FA=DEFS   239
                                                  RJ     =XFA=RWX                                                FA=DEFS   240
                                         REWIND   ENDM                                                           FA=DEFS   241
                                         WRITEF   SPACE  4,8                                                     FA=DEFS   242
                                        **        WRITEF - WRITE END-OF-FILE/PARTITION ON FILE.                  FA=DEFS   243
                                        *                                                                        FA=DEFS   244
                                        *         WRITES END-OF-FILE/PARTITION ON *FILE*.  THE HOLDING BUFFER,   FA=DEFS   245
                                        *         IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-F.            FA=DEFS   246
                                        *                                                                        FA=DEFS   247
                                        *                                                                        FA=DEFS   248
                                        *         WRITEF    FILE                                                 FA=DEFS   249
                                        *                                                                        FA=DEFS   250
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   251
                                        *                                                                        FA=DEFS   252
                                        *         USES   X2, A2                                                  FA=DEFS   253
                                        *                                                                        FA=DEFS   254
                                        *         CALLS  FA=FLSH, RECORD MANAGER                                 FA=DEFS   255
                                                                                                                 FA=DEFS   256
                                                                                                                 FA=DEFS   257
                                                  PURGMAC   WRITEF                                               FA=DEFS   258
                                                                                                                 FA=DEFS   259
                                         WRITEF   MACRO  F                                                       FA=DEFS   260
                                                  R=     A2,F                                                    FA=DEFS   261
                                                  RJ     =XFA=EOF                                                FA=DEFS   262
                                         WRITEF   ENDM                                                           FA=DEFS   263
                                         WRITER   SPACE  4,8                                                     FA=DEFS   264
                                        **        WRITER - WRITE END-OF-RECORD/SECTION ON FILE.                  FA=DEFS   265
                                        *                                                                        FA=DEFS   266
                                        *         WRITES LEVEL 0 END-OF-RECORD/SECTION ON *FILE*.  THE HOLDING   FA=DEFS   267
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    34
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                        *         BUFFER, IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-R.    FA=DEFS   268
                                        *                                                                        FA=DEFS   269
                                        *                                                                        FA=DEFS   270
                                        *         WRITER    FILE                                                 FA=DEFS   271
                                        *                                                                        FA=DEFS   272
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   273
                                        *                                                                        FA=DEFS   274
                                        *         USES   X2, A2                                                  FA=DEFS   275
                                        *                                                                        FA=DEFS   276
                                        *         CALLS  FA=FLSH, RECORD MANAGER                                 FA=DEFS   277
                                                                                                                 FA=DEFS   278
                                                                                                                 FA=DEFS   279
                                                  PURGMAC   WRITER                                               FA=DEFS   280
                                                                                                                 FA=DEFS   281
                                         WRITER   MACRO  F                                                       FA=DEFS   282
                                                  R=     A2,F                                                    FA=DEFS   283
                                                  RJ     =XFA=EOR                                                FA=DEFS   284
                                         WRITER   ENDM                                                           FA=DEFS   285
                                         #RM      ENDIF                                                          FA=DEFS   286
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    35
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                         #RM      IFNE   CP#RM,0                                                 FA=DEFS   288
                                         READC    SPACE  4,8                                                     FA=DEFS   289
                                        **        READC - READ ONE CODED LINE IN -C- FORMAT.                     FA=DEFS   290
                                        *                                                                        FA=DEFS   291
                                        *                                                                        FA=DEFS   292
                                        *         READC     FILE,TO,WORDS                                        FA=DEFS   293
                                        *                                                                        FA=DEFS   294
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   295
                                        *                *TO*    = WSA ADDRESS                                   FA=DEFS   296
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   297
                                        *                                                                        FA=DEFS   298
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   299
                                        *                                                                        FA=DEFS   300
                                        *         CALLS  FA=RDC                                                  FA=DEFS   301
                                                                                                                 FA=DEFS   302
                                                                                                                 FA=DEFS   303
                                                  PURGMAC   READC                                                FA=DEFS   304
                                                                                                                 FA=DEFS   305
                                         READC    MACRO  F,S,N                                                   FA=DEFS   306
                                                  R=     B6,S                                                    FA=DEFS   307
                                                  R=     B7,N                                                    FA=DEFS   308
                                                  R=     A2,F                                                    FA=DEFS   309
                                                  RJ     =XFA=RDC                                                FA=DEFS   310
                                         READC    ENDM                                                           FA=DEFS   311
                                         READW    SPACE  4,8                                                     FA=DEFS   312
                                        **        READW - READ WORDS TO WORKING STORAGE AREA.                    FA=DEFS   313
                                        *                                                                        FA=DEFS   314
                                        *                                                                        FA=DEFS   315
                                        *         READW     FILE,TO,WORDS                                        FA=DEFS   316
                                        *                                                                        FA=DEFS   317
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   318
                                        *                *TO*    = WSA ADDRESS                                   FA=DEFS   319
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   320
                                        *                                                                        FA=DEFS   321
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   322
                                        *                                                                        FA=DEFS   323
                                        *         CALLS  FA=RDW                                                  FA=DEFS   324
                                                                                                                 FA=DEFS   325
                                                                                                                 FA=DEFS   326
                                                  PURGMAC   READW                                                FA=DEFS   327
                                                                                                                 FA=DEFS   328
                                         READW    MACRO  F,S,N                                                   FA=DEFS   329
                                                  R=     B6,S                                                    FA=DEFS   330
                                                  R=     B7,N                                                    FA=DEFS   331
                                                  R=     A2,F                                                    FA=DEFS   332
                                                  RJ     =XFA=RDW                                                FA=DEFS   333
                                         READW    ENDM                                                           FA=DEFS   334
                                         WRITEC   SPACE  4,8                                                     FA=DEFS   335
                                        **        WRITEC - WRITE ONE CODED LINE IN -C- FORMAT.                   FA=DEFS   336
                                        *                                                                        FA=DEFS   337
                                        *                                                                        FA=DEFS   338
                                        *         WRITEC    FILE,FROM,WORDS                                      FA=DEFS   339
                                        *                                                                        FA=DEFS   340
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   341
                                        *                *FROM*  = WSA ADDRESS                                   FA=DEFS   342
                                        *                *WORDS* = LINE LENGTH (WORDS).  IF ZERO OR OMITTED,     FA=DEFS   343
                                        *                            LENGTH WILL BE DETERMINED BY SCANNING TO    FA=DEFS   344
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    36
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                        *                            AN END-OF-LINE MARKER -- SLOWLY.            FA=DEFS   345
                                        *                                                                        FA=DEFS   346
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   347
                                        *                                                                        FA=DEFS   348
                                        *         CALLS  FA=WTC                                                  FA=DEFS   349
                                                                                                                 FA=DEFS   350
                                                                                                                 FA=DEFS   351
                                                  PURGMAC   WRITEC                                               FA=DEFS   352
                                                                                                                 FA=DEFS   353
                                         WRITEC   MACRO  F,S,N                                                   FA=DEFS   354
                                                  R=     B6,S                                                    FA=DEFS   355
                                                  IFC    NE, N  ,2                                               FA=DEFS   356
                                        *                            SET GIVEN LENGTH.                           FA=DEFS   357
                                                  R=     B7,N                                                    FA=DEFS   358
                                                  SKIP   1                                                       FA=DEFS   359
                                        *                            SET LENGTH OMITTED.                         FA=DEFS   360
                                                  SB7    B0                                                      FA=DEFS   361
                                                  R=     A2,F                                                    FA=DEFS   362
                                                  RJ     =XFA=WTC                                                FA=DEFS   363
                                         WRITEC   ENDM                                                           FA=DEFS   364
                                         WRITEW   SPACE  4,8                                                     FA=DEFS   365
                                        **        WRITEW - WRITE WORDS FROM WORKING STORAGE AREA.                FA=DEFS   366
                                        *                                                                        FA=DEFS   367
                                        *                                                                        FA=DEFS   368
                                        *         WRITEW    FILE,FROM,WORDS                                      FA=DEFS   369
                                        *                                                                        FA=DEFS   370
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   371
                                        *                *FROM*  = WSA ADDRESS                                   FA=DEFS   372
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   373
                                        *                                                                        FA=DEFS   374
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   375
                                        *                                                                        FA=DEFS   376
                                        *         CALLS  FA=WTW                                                  FA=DEFS   377
                                                                                                                 FA=DEFS   378
                                                                                                                 FA=DEFS   379
                                                  PURGMAC   WRITEW                                               FA=DEFS   380
                                                                                                                 FA=DEFS   381
                                         WRITEW   MACRO  F,S,N                                                   FA=DEFS   382
                                                  R=     B6,S                                                    FA=DEFS   383
                                                  R=     B7,N                                                    FA=DEFS   384
                                                  R=     A2,F                                                    FA=DEFS   385
                                                  RJ     =XFA=WTW                                                FA=DEFS   386
                                         WRITEW   ENDM                                                           FA=DEFS   387
                                                  SPACE  4                                                       FA=DEFS   388
                                         #RM      ENDIF                                                          FA=DEFS   389
                                         POPMAC    OPSYN  PURGMAC                                                F2950F4     6
                                         POPDEF    OPSYN  PURGDEF                                                F2950F4     7
                                                                                                                 F2950F4     8
                                                   PURGDEF  =A,Q                                                 F2950F4     9
                                                   PURGDEF  =A,A                                                 F2950F4    10
                                                   PURGDEF  =A,AQ                                                F2950F4    11
                                                   PURGDEF  =A,BQ                                                F2950F4    12
                                                   PURGDEF  =A,XQ                                                F2950F4    13
                                                   PURGDEF  =B,Q                                                 F2950F4    14
                                                   PURGDEF  =B,AQ                                                F2950F4    15
                                                   PURGDEF  =B,B                                                 F2950F4    16
                                                   PURGDEF  =B,BQ                                                F2950F4    17
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    37
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                                   PURGDEF  =B,XQ                                                F2950F4    18
                                                   PURGDEF  =X,Q                                                 F2950F4    19
                                                   PURGDEF  =X,AQ                                                F2950F4    20
                                                   PURGDEF  =X,BQ                                                F2950F4    21
                                                   PURGDEF  =X,X                                                 F2950F4    22
                                                   PURGDEF  =X,XQ                                                F2950F4    23
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    38
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.
  
             0                                    CTEXT  COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.        COMAREG     2
  
  
  
  
                                        ***       COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.               COMAREG     4
                                        *                                                                        COMAREG     5
                                        *         R. H. GOODELL.     71/06/01.                                   COMAREG     6
                                        *                                                                        COMAREG     7
                                        *         CONTROL DATA  PROPRIETARY PRODUCT.                             COMAREG     8
                                        *         COPYRIGHT CONTROL DATA CORP. 1971.                             COMAREG     9
  
  
  
  
                                        ***              THE FOLLOWING SET OF  MACROS,  OPDEFS,  AND  CPOPS      COMAREG    11
                                        *         DEFINE PSEUDO MACHINE INSTRUCTIONS FOR SETTING A REGISTER      COMAREG    12
                                        *         TO  A  VALUE INVOLVING REGISTERS AND/OR CONSTANTS.  THESE      COMAREG    13
                                        *         INSTRUCTIONS GENERATE NO CODE AT ALL OR A 15-BIT  MACHINE      COMAREG    14
                                        *         INSTRUCTION WHENEVER POSSIBLE DEPENDING ON THE EXPRESSION      COMAREG    15
                                        *         VALUE  AND WHETHER *B1=1* IS DEFINED, WITHOUT MOST OF THE      COMAREG    16
                                        *         DEFICIENCIES OF THE R=  PSEUDO  INSTRUCTION  IN  COMPASS.      COMAREG    17
                                        *         EXAMPLES --                                                    COMAREG    18
                                        *                                                                        COMAREG    19
                                        *         COMPASS         R= FORM          NEW FORM        COMMENTS      COMAREG    20
                                        *                                                                        COMAREG    21
                                        *         SX1   1         R=   X1,1        =X1   1                       COMAREG    22
                                        *         SA1   EXP       R=   A1,EXP      =A1   EXP                     COMAREG    23
                                        *         SB4   B4+1      R=   B4,B4+1     =B4   B4+1      NOTE 1.       COMAREG    24
                                        *         SA6   A6+EXP    R=   A6,A6+EXP   =A6   A6+EXP    NOTE 2.       COMAREG    25
                                        *         SB.I  B.J       ---------        =B.I  B.J       NOTE 3.       COMAREG    26
                                        *         BX6   X4        ---------        =X6   X4        BOOLEAN.      COMAREG    27
                                        *                                                                        COMAREG    28
                                        *         NOTE 1.   R= GENERATES 30 BITS.  NEW IS 15 BITS IF B1=1.       COMAREG    29
                                        *         NOTE 2.   R= GENERATES 30 BITS.  NEW IS 15 BITS IF B1=1        COMAREG    30
                                        *                            AND (EXP) IS EVALUATABLE AND = +- 1.        COMAREG    31
                                        *         NOTE 3.   R= CANNOT HANDLE SYMBOLIC REGISTERS.  NEW FORM       COMAREG    32
                                        *                            GENERATES NO CODE IF  (I) = (J).            COMAREG    33
                                        *         * NOTE * THIS COMDECK WILL DISAPPEAR WHEN COMPASS 4.0 ARRIVES. COMAREG    34
                                                                                                                 COMAREG    35
                                                                                                                 COMAREG    36
                                 D_O              BASE   OCTAL                                                   COMAREG    37
  
  
  
  
                                        *         A-REGISTER SETS.                                               COMAREG    39
                                                                                                                 COMAREG    40
                                                                                                                 COMAREG    41
                                         =A       CPOP   0,560,100         =AI                                   COMAREG    42
                                                                                                                 COMAREG    43
                                         =A,Q     OPDEF  I,Q               =AI    K                              COMAREG    44
                                          '?REG#S2 A.I,(Q)                                                       COMAREG    45
                                          ENDM                                                                   COMAREG    46
                                                                                                                 COMAREG    47
                                         =A,A     OPDEF  I,J               =AI    AJ                             COMAREG    48
                                          IFNE I,J,1                                                             COMAREG    49
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    39
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              =A
  
                                          SA.I A.J                                                               COMAREG    50
                                          ENDM                                                                   COMAREG    51
                                                                                                                 COMAREG    52
                                         =A,AQ    OPDEF  I,J,Q             =AI    AJ+K                           COMAREG    53
                                          '?REG#S1 A.I,A.J,(Q)                                                   COMAREG    54
                                          ENDM                                                                   COMAREG    55
                                                                                                                 COMAREG    56
                                         =A,A+B   CPOP   0,540,132         =AI    AJ+BK                          COMAREG    57
                                         =A,A-B   CPOP   0,550,132         =AI    AJ-BK                          COMAREG    58
                                                                                                                 COMAREG    59
                                         =A,B     CPOP   0,560,120         =AI    BJ                             COMAREG    60
                                                                                                                 COMAREG    61
                                         =A,BQ    OPDEF  I,J,Q             =AI    BJ+K                           COMAREG    62
                                          '?REG#S1 A.I,B.J,(Q)                                                   COMAREG    63
                                          ENDM                                                                   COMAREG    64
                                                                                                                 COMAREG    65
                                         =A,B+A   CPOP   0,540,123         =AI    BK+AJ                          COMAREG    66
                                         =A,B+B   CPOP   0,560,132         =AI    BJ+BK                          COMAREG    67
                                         =A,B+X   CPOP   0,530,123         =AI    BK+XJ                          COMAREG    68
                                         =A,B-B   CPOP   0,570,132         =AI    BJ-BK                          COMAREG    69
                                         =A,-B    CPOP   0,570,102         =AI    -BK                            COMAREG    70
                                         =A,-B+A  CPOP   0,550,123         =AI    -BK+AJ                         COMAREG    71
                                         =A,-B+B  CPOP   0,570,123         =AI    -BK+BJ                         COMAREG    72
                                                                                                                 COMAREG    73
                                         =A,X     CPOP   0,530,120         =AI    XJ                             COMAREG    74
                                                                                                                 COMAREG    75
                                         =A,XQ    OPDEF  I,J,Q             =AI    XJ+K                           COMAREG    76
                                          '?REG#S0 A.I,X.J,(Q)                                                   COMAREG    77
                                          ENDM                                                                   COMAREG    78
                                                                                                                 COMAREG    79
                                         =A,X+B   CPOP   0,530,132         =AI    XJ+BK                          COMAREG    80
  
  
  
  
                                        *         B-REGISTER SETS.                                               COMAREG    82
                                                                                                                 COMAREG    83
                                                                                                                 COMAREG    84
                                         =B       CPOP   0,660,100         =BI                                   COMAREG    85
                                                                                                                 COMAREG    86
                                         =B,Q     OPDEF  I,Q               =BI    K                              COMAREG    87
                                          '?REG#S2 B.I,(Q)                                                       COMAREG    88
                                          ENDM                                                                   COMAREG    89
                                                                                                                 COMAREG    90
                                         =B,A     CPOP   0,640,120         =BI    AJ                             COMAREG    91
                                                                                                                 COMAREG    92
                                         =B,AQ    OPDEF  I,J,Q             =BI    AJ+K                           COMAREG    93
                                          '?REG#S1 B.I,A.J,(Q)                                                   COMAREG    94
                                          ENDM                                                                   COMAREG    95
                                                                                                                 COMAREG    96
                                         =B,A+B   CPOP   0,640,132         =BI    AJ+BK                          COMAREG    97
                                         =B,A-B   CPOP   0,650,132         =BI    AJ-BK                          COMAREG    98
                                                                                                                 COMAREG    99
                                         =B,B     OPDEF  I,J               =BI    BJ                             COMAREG   100
                                          IFNE I,J,1                                                             COMAREG   101
                                          SB.I B.J                                                               COMAREG   102
                                          ENDM                                                                   COMAREG   103
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    40
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              =B
  
                                                                                                                 COMAREG   104
                                         =B,BQ    OPDEF  I,J,Q             =BI    BJ+K                           COMAREG   105
                                          '?REG#S1 B.I,B.J,(Q)                                                   COMAREG   106
                                          ENDM                                                                   COMAREG   107
                                                                                                                 COMAREG   108
                                         =B,B+A   CPOP   0,640,123         =BI    BK+AJ                          COMAREG   109
                                         =B,B+B   CPOP   0,660,132         =BI    BJ+BK                          COMAREG   110
                                         =B,B-B   CPOP   0,670,132         =BI    BJ-BK                          COMAREG   111
                                         =B,B+X   CPOP   0,630,123         =BI    BK+XJ                          COMAREG   112
                                         =B,-B    CPOP   0,670,102         =BI    -BK                            COMAREG   113
                                         =B,-B+A  CPOP   0,650,123         =BI    -BK+AJ                         COMAREG   114
                                         =B,-B+B  CPOP   0,670,123         =BI    -BK+BJ                         COMAREG   115
                                                                                                                 COMAREG   116
                                         =B,X     CPOP   0,630,120         =BI    XJ                             COMAREG   117
                                                                                                                 COMAREG   118
                                         =B,XQ    OPDEF  I,J,Q             =BI    XJ+K                           COMAREG   119
                                          '?REG#S0 B.I,X.J,(Q)                                                   COMAREG   120
                                          ENDM                                                                   COMAREG   121
                                                                                                                 COMAREG   122
                                         =B,X+B   CPOP   0,630,132         =BI    XJ+BK                          COMAREG   123
  
  
  
  
                                        *         X-REGISTER SETS, PLUS SOME FAKES.                              COMAREG   125
                                                                                                                 COMAREG   126
                                                                                                                 COMAREG   127
                                         =X       CPOP   0,130,111         =XI                 BOOLEAN           COMAREG   128
                                                                                                                 COMAREG   129
                                         =X,Q     OPDEF  I,Q               =XI    K                              COMAREG   130
                                          '?REG#S2 X.I,(Q)                                                       COMAREG   131
                                          ENDM                                                                   COMAREG   132
                                                                                                                 COMAREG   133
                                         =X,A     CPOP   0,740,120         =XI    AJ                             COMAREG   134
                                                                                                                 COMAREG   135
                                         =X,AQ    OPDEF  I,J,Q             =XI    AJ+K                           COMAREG   136
                                          '?REG#S1 X.I,A.J,(Q)                                                   COMAREG   137
                                          ENDM                                                                   COMAREG   138
                                                                                                                 COMAREG   139
                                         =X,A+B   CPOP   0,740,132         =XI    AJ+BK                          COMAREG   140
                                         =X,A-B   CPOP   0,750,132         =XI    AJ-BK                          COMAREG   141
                                                                                                                 COMAREG   142
                                         =X,B     CPOP   0,760,120         =XI    BJ                             COMAREG   143
                                                                                                                 COMAREG   144
                                         =X,BQ    OPDEF  I,J,Q             =XI    BJ+K                           COMAREG   145
                                          '?REG#S1 X.I,B.J,(Q)                                                   COMAREG   146
                                          ENDM                                                                   COMAREG   147
                                                                                                                 COMAREG   148
                                         =X,B+A   CPOP   0,740,123         =XI    BK+AJ                          COMAREG   149
                                         =X,B+B   CPOP   0,760,132         =XI    BJ+BK                          COMAREG   150
                                         =X,B-B   CPOP   0,770,132         =XI    BJ-BK                          COMAREG   151
                                         =X,B+X   CPOP   0,730,123         =XI    BK+XJ                          COMAREG   152
                                         =X,-B    CPOP   0,770,102         =XI    -BK                            COMAREG   153
                                         =X,-B+A  CPOP   0,750,123         =XI    -BK+AJ                         COMAREG   154
                                         =X,-B+B  CPOP   0,770,123         =XI    -BK+BJ                         COMAREG   155
                                                                                                                 COMAREG   156
                                         =X,X     OPDEF  I,J               =XI    XJ          BOOLEAN            COMAREG   157
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    41
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              =X
  
                                          IFNE I,J,1                                                             COMAREG   158
                                          BX.I X.J                                                               COMAREG   159
                                          ENDM                                                                   COMAREG   160
                                                                                                                 COMAREG   161
                                         =X,XQ    OPDEF  I,J,Q             =XI    XJ+K                           COMAREG   162
                                          '?REG#S0 X.I,X.J,(Q)                                                   COMAREG   163
                                          ENDM                                                                   COMAREG   164
                                                                                                                 COMAREG   165
                                         =X,X+B   CPOP   0,730,132         =XI    XJ+BK                          COMAREG   166
                                         =X,X+X   CPOP   0,360,132         =XI    XJ+XK       LONG ADD           COMAREG   167
                                         =X,X-X   CPOP   0,370,132         =XI    XJ-XK       LONG ADD           COMAREG   168
                                         =X,-X    CPOP   0,140,122         =XI    -XK         BOOLEAN            COMAREG   169
                                         =X,-X+X  CPOP   0,370,123         =XI    -XK+XJ      LONG ADD           COMAREG   170
  
  
  
  
                                        *         INTERNAL MACROS USED BY SOME OF THE ABOVE.                     COMAREG   172
                                                                                                                 COMAREG   173
                                                                                                                 COMAREG   174
                                                  PURGMAC '?REG#S0,'?REG#S1,'?REG#S2                             COMAREG   175
                                                                                                                 COMAREG   176
                                         '?REG#S0 MACRO  I,J,Q       FOR VARIABLE FIELD SYNTAX = XQ              COMAREG   177
                                          IF DEF,B1=1+Q,8D                                                       COMAREG   178
                                        '?REG#QQ SET Q                                                           COMAREG   179
                                          IFEQ '?REG#QQ,1,2                                                      COMAREG   180
                                          S;A J+B1                                                               COMAREG   181
                                          SKIP 5                                                                 COMAREG   182
                                          IFEQ '?REG#QQ,,3                                                       COMAREG   183
                                          IFNE I,J,3                                                             COMAREG   184
                                          S;A J                                                                  COMAREG   185
                                          SKIP 1                                                                 COMAREG   186
                                          S;A J+Q                                                                COMAREG   187
                                          ENDM                                                                   COMAREG   188
                                                                                                                 COMAREG   189
                                         '?REG#S1 MACRO  I,J,Q       FOR VARIABLE FIELD SYNTAX = AQ OR BQ        COMAREG   190
                                          IF DEF,B1=1+Q,11D                                                      COMAREG   191
                                        '?REG#QQ SET Q                                                           COMAREG   192
                                          IFEQ '?REG#QQ,1,2                                                      COMAREG   193
                                          S;A J+B1                                                               COMAREG   194
                                          SKIP 8D                                                                COMAREG   195
                                          IFEQ '?REG#QQ,,3                                                       COMAREG   196
                                          IFNE I,J,6                                                             COMAREG   197
                                          S;A J                                                                  COMAREG   198
                                          SKIP 4                                                                 COMAREG   199
                                          IFEQ '?REG#QQ,-1,2                                                     COMAREG   200
                                          S;A J-B1                                                               COMAREG   201
                                          SKIP 1                                                                 COMAREG   202
                                          S;A J+Q                                                                COMAREG   203
                                          ENDM                                                                   COMAREG   204
                                                                                                                 COMAREG   205
                                         '?REG#S2 MACRO  I,Q         FOR VARIABLE FIELD SYNTAX = Q               COMAREG   206
                                          IF DEF,B1=1+Q,14D                                                      COMAREG   207
                                        '?REG#QQ SET Q                                                           COMAREG   208
                                          IFEQ '?REG#QQ,1,3                                                      COMAREG   209
                                          IFNE I,B1,1                                                            COMAREG   210
                                          S;A B1                                                                 COMAREG   211
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    42
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              '?REG#S0
  
                                          SKIP 10D                                                               COMAREG   212
                                          IFEQ '?REG#QQ,,2                                                       COMAREG   213
                                          S;A B0                                                                 COMAREG   214
                                          SKIP 7                                                                 COMAREG   215
                                          IFEQ '?REG#QQ,-1,2                                                     COMAREG   216
                                          S;A -B1                                                                COMAREG   217
                                          SKIP 4                                                                 COMAREG   218
                                          IFEQ '?REG#QQ,2,2                                                      COMAREG   219
                                          S;A B1+B1                                                              COMAREG   220
                                          SKIP 1                                                                 COMAREG   221
                                          S;A Q                                                                  COMAREG   222
                                          ENDM                                                                   COMAREG   223
  
  
  
  
                                 O_D              BASE   *                                                       COMAREG   225
                                                                                                                 COMAREG   226
                                                                                                                 COMAREG   227
                                         COMAREG  ENDX                                                           COMAREG   228
  
  
  
  
                                        **        LISTL - LIST ONE LINE.                                         FTNTEXT   574
                                        *                                                                        FTNTEXT   575
                                        *         WRITE ONE CODED LINE FROM *BUF* TO THE OUTPUT FILE.  IF PAGE   FTNTEXT   576
                                        *         IS FULL, EJECT AND WRITE TITLE LINE(S) FIRST.                  FTNTEXT   577
                                        *                                                                        FTNTEXT   578
                                        *                                                                        FTNTEXT   579
                                        *         LISTL     BUF,WORDS                                            FTNTEXT   580
                                        *                                                                        FTNTEXT   581
                                        *         ENTRY  *BUF*   = FIRST WORD ADDRESS OF LINE BUFFER             FTNTEXT   582
                                        *                *WORDS* = LINE LENGTH (WORDS)                           FTNTEXT   583
                                        *                                                                        FTNTEXT   584
                                        *         USES   B6, B7                                                  FTNTEXT   585
                                        *                                                                        FTNTEXT   586
                                        *         CALLS  FA=LOL                                                  FTNTEXT   587
                                                                                                                 FTNTEXT   588
                                                                                                                 FTNTEXT   589
                                                  PURGMAC   LISTL                                                FTNTEXT   590
                                                                                                                 FTNTEXT   591
                                         LISTL    MACRO  S,N                                                     FTNTEXT   592
                                                  R=     B6,S                                                    FTNTEXT   593
                                        *                                                                        FTNTEXT   594
                                                  IFC    EQ, N  ,1                                               FTNTEXT   595
                                                  ERR    NO LENGTH "SEQUENCE"                                    FTNTEXT   596
                                        *                                                                        FTNTEXT   597
                                                  IFGE   CP#RM,6,1                                               FTNTEXT   598
                                                  R=     B7,N                                                    FTNTEXT   599
                                        *                                                                        FTNTEXT   600
                                                  RJ     =XFA=LOL                                                FTNTEXT   601
                                         LISTL    ENDM                                                           FTNTEXT   602
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    43
        COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.              NUPAGE
  
                                        **        NUPAGE - EJECT AND TITLE NEW PAGE.                             FTNTEXT   604
                                        *                                                                        FTNTEXT   605
                                        *         EJECTS PAGE.  WRITES TITLE AND SUBTITLE LINES ON NEW PAGE.     FTNTEXT   606
                                        *         RESETS LINES-PER-PAGE COUNTER.                                 FTNTEXT   607
                                        *                                                                        FTNTEXT   608
                                        *                                                                        FTNTEXT   609
                                        *         NUPAGE    (NO CALLING PARAMETERS)                              FTNTEXT   610
                                        *                                                                        FTNTEXT   611
                                        *         ENTRY  NO REQUIREMENTS.                                        FTNTEXT   612
                                        *                                                                        FTNTEXT   613
                                        *         EXIT   PAGE EJECTED, NEW PAGE TITLED.                          FTNTEXT   614
                                        *                *N.LINES* RESET TO FULL PAGE LINE COUNT.                FTNTEXT   615
                                        *                                                                        FTNTEXT   616
                                        *         USES   NONE                                                    FTNTEXT   617
                                        *                                                                        FTNTEXT   618
                                        *         CALLS  FA=NPG                                                  FTNTEXT   619
                                                                                                                 FTNTEXT   620
                                                                                                                 FTNTEXT   621
                                                  PURGMAC   NUPAGE                                               FTNTEXT   622
                                                                                                                 FTNTEXT   623
                                         NUPAGE   MACRO                                                          FTNTEXT   624
                                                  RJ     =XFA=NPG                                                FTNTEXT   625
                                         NUPAGE   ENDM                                                           FTNTEXT   626
                                                                                                                 FTNTEXT   627
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    44
        LABEL/NAME PROCESSING REQUEST MACROS                          ADEXTS
  
                                        **        ADEXTS - GET ORDINAL OF EXTERNAL SYMBOL.                       FTNTEXT   630
                                        *                                                                        FTNTEXT   631
                                        *         ARG:   SAME AS "SYMBOL"                                        FTNTEXT   632
                                        *                                                                        FTNTEXT   633
                                         ADEXTS   MACRO  NAME                                                    FTNTEXT   634
                                                  SYMBOL NAME                                                    FTNTEXT   635
                                                  MX0    1                                                       FTNTEXT   636
                                                  LX0    1+P.EXT                                                 FTNTEXT   637
                                                  BX7    X0+X2                                                   FTNTEXT   638
                                                  SA7    A2                                                      FTNTEXT   639
                                         ADEXTS   ENDM                                                           FTNTEXT   640
  
  
  
  
                                        **        ADDREF - ADD REFERENCE TO REF TABLE FOR VARIABLE ORDINAL.      FTNTEXT   642
                                        *                                                                        FTNTEXT   643
                                        *                ORD - ORDINAL OF THE VARIABLE ( RIGHT JUSTIFIED )       FTNTEXT   644
                                        *                TYPE - REF, DEF OR FREF FOR REFERENCE, DEFINITION       FTNTEXT   645
                                        *                OR FILE REFERENCE                                       FTNTEXT   646
                                        *                                                                        FTNTEXT   647
                                                                                                                 FTNTEXT   648
                                         REF=     MICRO  1,,/MX2    0/                                           FTNTEXT   649
                                         DEF=     MICRO  1,,/MX2    1/                                           FTNTEXT   650
                                         FREF=    MICRO  1,,/SX2    1/                                           FTNTEXT   651
                                                                                                                 FTNTEXT   652
                                         ADDREF   MACRO  ORD,TYPE                                                FTNTEXT   653
                                                  IF     -REG,ORD                                                FTNTEXT   654
                                                  SA1    ORD                                                     FTNTEXT   655
                                                  SB1    X1                                                      FTNTEXT   656
                                                  ELSE                                                           FTNTEXT   657
                                                  IFC    NE,/ORD/B1/,1                                           FTNTEXT   658
                                                  SB1    ORD                                                     FTNTEXT   659
                                                  ENDIF                                                          FTNTEXT   660
                                        *                                                                        FTNTEXT   661
                                         X        IFC    EQ,//TYPE/                                              FTNTEXT   662
                                                  "REF="             ASSUME A REFERENCE                          FTNTEXT   663
                                         X        ELSE                                                           FTNTEXT   664
                                                  IFC    NE,/TYPE/REF/,2                                         FTNTEXT   665
                                                  IFC    NE,/TYPE/DEF/,1                                         FTNTEXT   666
                                                  IFC    EQ,/TYPE/FREF/,2                                        FTNTEXT   667
                                                  "TYPE="                                                        FTNTEXT   668
                                         Y        IFEQ   0,1                                                     FTNTEXT   669
                                         Z        IF     -REG,TYPE                                               FTNTEXT   670
                                                  SA2    TYPE                                                    FTNTEXT   671
                                         Z        ELSE                                                           FTNTEXT   672
                                                  IFC    NE,/X2/TYPE/                                            FTNTEXT   673
                                                  BX2    TYPE                                                    FTNTEXT   674
                                                  ENDIF                                                          FTNTEXT   675
                                        *                                                                        FTNTEXT   676
                                                  RJ     =XADDREF                                                FTNTEXT   677
                                         ADDREF   ENDM                                                           FTNTEXT   678
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    45
        LABEL/NAME PROCESSING REQUEST MACROS                          WRM 
  
                                        **        WRM - WRITE R-MACRO TO *RLIST* FILE.                           FTNTEXT   681
                                        *                                                                        FTNTEXT   682
                                        *         WRM       FWA                                                  FTNTEXT   683
                                        *                                                                        FTNTEXT   684
                                        *                *FWA* = FWA OF R-MACRO  ( ONLY 1 MACRO, PLEASE ).       FTNTEXT   685
                                        *                                                                        FTNTEXT   686
                                        *         CALLS  WRITEW                                                  FTNTEXT   687
                                        *                                                                        FTNTEXT   688
                                        *         USES   B7                                                      FTNTEXT   689
                                                                                                                 FTNTEXT   690
                                         WRM      MACRO  F                                                       FTNTEXT   691
                                                  R=     B7,F                                                    FTNTEXT   692
                                                  RJ     =XWRM                                                   FTNTEXT   693
                                         WRM      ENDM                                                           FTNTEXT   694
  
  
  
                                        **        CFO - CHECK FIRST OCCURRENCE OF NAME IN STATEMENT.             FTNTEXT   696
                                        *                                                                        FTNTEXT   697
                                        *                                                                        FTNTEXT   698
                                        *         CFO       CONTEXT                                              FTNTEXT   699
                                        *                                                                        FTNTEXT   700
                                        *         ENTRY  *CONTEXT* = CONTEXT THAT NAME APPEARED IN;  VALUES --   FTNTEXT   701
                                        *                    *VAR* - VARIABLE OR ARRAY                           FTNTEXT   702
                                        *                    *EXT* - FUNCTION OR SUBROUTINE                      FTNTEXT   703
                                        *                                                                        FTNTEXT   704
                                        *         USES   X0                                                      FTNTEXT   705
                                        *                                                                        FTNTEXT   706
                                        *         CALLS  CFO                                                     FTNTEXT   707
                                                                                                                 FTNTEXT   708
                                                                                                                 FTNTEXT   709
                                                  PURGMAC   CFO                                                  FTNTEXT   710
                                                                                                                 FTNTEXT   711
                                         CFO      MACRO  C                                                       FTNTEXT   712
                                                  IFC    EQ, C EXT ,2                                            FTNTEXT   713
                                                  R=     X0,1                                                    FTNTEXT   714
                                                  SKIP   2                                                       FTNTEXT   715
                                                  IFC    EQ, C VAR ,3                                            FTNTEXT   716
                                                  MX0    0                                                       FTNTEXT   717
                                                  RJ     =XCFO                                                   FTNTEXT   718
                                                  SKIP   1                                                       FTNTEXT   719
                                                  ERR    (C) BAD *CONTEXT* "SEQUENCE"                            FTNTEXT   720
                                         CFO      ENDM                                                           FTNTEXT   721
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    46
        LABEL/NAME PROCESSING REQUEST MACROS                          SYMBOL
  
                                        **        SYMBOL - SEARCH SYMBOL TABLE FOR A SYMBOL.                     FTNTEXT   723
                                        *                                                                        FTNTEXT   724
                                        *                                                                        FTNTEXT   725
                                        *         SYMBOL    NAME,NOFIND                                          FTNTEXT   726
                                        *                                                                        FTNTEXT   727
                                        *         ENTRY  *NAME*   = ADDRESS OF CELL CONTAINING THE SYMBOL.       FTNTEXT   728
                                        *                *NOFIND* = EXIT ADDRESS IF SYMBOL NOT FOUND; IF BLANK,  FTNTEXT   729
                                        *                           CONTINUES AT CURRENT CODE SEQUENCE.          FTNTEXT   730
                                        *                                                                        FTNTEXT   731
                                        *         EXIT   TO *NOFIND*   IF NOT FOUND (FIRST OCCURRENCE)           FTNTEXT   732
                                        *                TO *NOFIND*+1 IF FOUND (NOT FIRST OCCURRENCE)           FTNTEXT   733
                                        *                                                                        FTNTEXT   734
                                        *         USES   A1, X1, B7                                              FTNTEXT   735
                                        *                                                                        FTNTEXT   736
                                        *         CALLS  SYMBOL                                                  FTNTEXT   737
                                                                                                                 FTNTEXT   738
                                                                                                                 FTNTEXT   739
                                                  PURGMAC   SYMBOL                                               FTNTEXT   740
                                                                                                                 FTNTEXT   741
                                         SYMBOL   MACRO  N,F                                                     FTNTEXT   742
                                                  IFC    NE, N  ,1                                               FTNTEXT   743
                                                  SA1    N                                                       FTNTEXT   744
                                                  SB7    F  *+2-*P/60D                                           FTNTEXT   745
                                                  EQ     =XSYMBOL                                                FTNTEXT   746
                                         SYMBOL   ENDM                                                           FTNTEXT   747
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    47
         MACROS FOR DEBUGGING                                         REGSNAP 
  
                                        **        REGSNAP - SNAP REGISTERS AT ENTRY POINTS.                      FTNTEXT   750
                                        *                                                                        FTNTEXT   751
                                        *         ACTIVATES REGISTER SNAP AT EACH ENTRY POINT DEFINED WITH THE   FTNTEXT   752
                                        *         -ENTRY.- MACRO AND NAMED ON THE -REGSNAP- CALL CARD.           FTNTEXT   753
                                        *         THE SNAP COUNT IS LIMITED TO 100D PER ENTRY POINT BY THE       FEAT155F   84
                                        *         -REGS- DEBUG MACRO.                                            FTNTEXT   755
                                        *                                                                        FTNTEXT   756
                                        *                                                                        FTNTEXT   757
                                        *         REGSNAP   (NAME1,NAME2,...,NAMEN)                              FTNTEXT   758
                                        *                                                                        FTNTEXT   759
                                        *         ENTRY  *NAMEK* = NAME OF ENTRY POINT TO BE SNAPPED             FTNTEXT   760
                                        *                                                                        FTNTEXT   761
                                        *         EXIT   SNAP ACTIVATED                                          FTNTEXT   762
                                        *                                                                        FTNTEXT   763
                                        *         USES   NONE                                                    FTNTEXT   764
                                        *                                                                        FTNTEXT   765
                                        *         CALLS  NONE                                                    FEAT155F   85
                                                                                                                 FTNTEXT   767
                                                                                                                 FTNTEXT   768
                                                  PURGMAC   REGSNAP                                              FTNTEXT   769
                                                                                                                 FTNTEXT   770
                                         REGSNAP  MACRO  P                                                       FTNTEXT   771
                                                  IF     -DEF,DEBUG,1                                            FEAT155F   86
                                         DEBUG    SET    1                                                       FTNTEXT   773
                                                  IRP    P                                                       FTNTEXT   775
                                         )P       =      1           DEFINE SYMBOL                               FTNTEXT   776
                                                  IRP                                                            FTNTEXT   777
                                         REGSNAP  ENDM                                                           FTNTEXT   778
  
  
  
  
                                         BREAK    OPSYN  NIL                                                     FEAT155F   87
                                         ELIST    OPSYN  NIL                                                     FTNTEXT   780
                                         REGS     OPSYN  NIL                                                     FTNTEXT   781
                                         SNAP     OPSYN  NIL                                                     FTNTEXT   782
                                         SNAPT    OPSYN  NIL                                                     FTNTEXT   783
                                         TABDMP   OPSYN  NIL                                                     FTNTEXT   784
                                                                                                                 FTNTEXT   785
                                                                                                                 FTNTEXT   786
                                         .T       IFNE   TEST,0                                                  FTNTEXT   787
                                         DBG=MAC  CTEXT  DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.   DBG=MAC     2
                                         DBG=MAC  SPACE  4,8                                                     DBG=MAC     3
                                                  IF     -DEF,QUAL$,1                                            DBG=MAC     4
                                                  QUAL   DBG=MAC                                                 DBG=MAC     5
                                                  BASE   D                                                       DBG=MAC     6
                                         DBG=MAC  SPACE  4,8                                                     DBG=MAC     7
                                        **        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
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    48
         MACROS FOR DEBUGGING 
  
                                         BREAK    SPACE  4,8                                                     DBG=MAC    18
                                        **        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
                                        *                                                                        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=     SPACE  4,8                                                     DBG=MAC    68
                                        **        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
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    49
         MACROS FOR DEBUGGING 
  
                                        *                          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       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      SPACE  4,8                                                     DBG=MAC   108
                                        **        REG - REGISTER SNAPSHOT.                                       DBG=MAC   109
                                        *                                                                        DBG=MAC   110
                                        *                                                                        DBG=MAC   111
                                        * NAME    REG    RG,LL,UL,INC                                            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
                                        *                                                                        DBG=MAC   131
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    50
         MACROS FOR DEBUGGING 
  
                                        *         EXIT   NONE                                                    DBG=MAC   132
                                        *                                                                        DBG=MAC   133
                                        *         USES   NONE                                                    DBG=MAC   134
                                        *                                                                        DBG=MAC   135
                                        *         CALLS  FRK=,REG=,RGR=                                          DBG=MAC   136
                                                                                                                 DBG=MAC   137
                                                                                                                 DBG=MAC   138
                                                  PURGMAC REG                                                    DBG=MAC   139
                                                                                                                 DBG=MAC   140
                                                  MACRO  REG,NAME,RG,LL,UL,INC,NUSE                              DBG=MAC   141
                                                  LOCAL  RTN                                                     DBG=MAC   142
                                                  LOCAL  APL                                                     DBG=MAC   143
                                        *                                                                        DBG=MAC   144
                                         +        RJ     =XREG=                                                  DBG=MAC   145
                                         -        VFD    30/APL                                                  DBG=MAC   146
                                        *                                                                        DBG=MAC   147
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   148
                                                  USE    DEBUG                                                   DBG=MAC   149
                                        *                                                                        DBG=MAC   150
                                         #NUSE    ELSE                                                           DBG=MAC   151
                                                  EQ     RTN                                                     DBG=MAC   152
                                         #NUSE    ENDIF                                                          DBG=MAC   153
                                         APL      BSS    0                                                       DBG=MAC   154
                                                  FRK=   (NAME),LL,UL,INC                                        DBG=MAC   155
                                                  RGR=   (RG)                                                    DBG=MAC   156
                                        *                                                                        DBG=MAC   157
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   158
                                                  USE    *                                                       DBG=MAC   159
                                        *                                                                        DBG=MAC   160
                                         #NUSE    ELSE                                                           DBG=MAC   161
                                         RTN      BSS    0                                                       DBG=MAC   162
                                         #NUSE    ENDIF                                                          DBG=MAC   163
                                        *                                                                        DBG=MAC   164
                                         REG      ENDM                                                           DBG=MAC   165
                                                                                                                 DBG=MAC   166
                                                  PURGMAC REGS                                                   DBG=MAC   167
                                         REGS     OPSYN  REG                                                     DBG=MAC   168
                                         RGR=     SPACE  4,8                                                     DBG=MAC   169
                                        **        RGR= - GENERATE REGISTER PARAMETER LIST.                       DBG=MAC   170
                                        *                                                                        DBG=MAC   171
                                        *                                                                        DBG=MAC   172
                                        *                SEE *DSR/DBG=IDP*.                                      DBG=MAC   173
                                        *                                                                        DBG=MAC   174
                                        *         RGR=   RG                                                      DBG=MAC   175
                                        *                                                                        DBG=MAC   176
                                        *         RGR=                                                           DBG=MAC   177
                                        *         RGR=   (X1,X2,A3,B4)                                           DBG=MAC   178
                                        *         RGR=   NOREG                                                   DBG=MAC   179
                                        *                                                                        DBG=MAC   180
                                        *         ENTRY  RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          DBG=MAC   181
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    DBG=MAC   182
                                        *                          DESIRED TO BE DUMPED                          DBG=MAC   183
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     DBG=MAC   184
                                        *                          DUMPED                                        DBG=MAC   185
                                        *                                                                        DBG=MAC   186
                                        *         EXIT   NONE                                                    DBG=MAC   187
                                        *                                                                        DBG=MAC   188
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    51
         MACROS FOR DEBUGGING 
  
                                        *         USES   NONE                                                    DBG=MAC   189
                                        *                                                                        DBG=MAC   190
                                        *         CALLS  NONE                                                    DBG=MAC   191
                                                                                                                 DBG=MAC   192
                                                                                                                 DBG=MAC   193
                                                  PURGMAC RGR=                                                   DBG=MAC   194
                                                                                                                 DBG=MAC   195
                                         RGR=     MACRO  RG                                                      DBG=MAC   196
                                        *                                                                        DBG=MAC   197
                                         .1       IFC    EQ,/RG//                                                DBG=MAC   198
                                                  DATA   -1                                                      DBG=MAC   199
                                         .1       ELSE                                                           DBG=MAC   200
                                        *                                                                        DBG=MAC   201
                                         .2       IRP    RG                                                      DBG=MAC   202
                                         .3       IF     -REG,RG                                                 DBG=MAC   203
                                                  DATA   0                                                       DBG=MAC   204
                                         .3       ELSE                                                           DBG=MAC   205
                                         .T       MICRO  1,1,/RG/                                                DBG=MAC   206
                                         .R       MICRO  2,1,/RG/                                                DBG=MAC   207
                                                  VFD    60/=XSV_".T"+".R"                                       DBG=MAC   208
                                         .3       ENDIF                                                          DBG=MAC   209
                                         .2       IRP                                                            DBG=MAC   210
                                        *                                                                        DBG=MAC   211
                                                  DATA   0                                                       DBG=MAC   212
                                         .1       ENDIF                                                          DBG=MAC   213
                                        *                                                                        DBG=MAC   214
                                         RGR=     ENDM                                                           DBG=MAC   215
                                         SNAP     SPACE  4,8                                                     DBG=MAC   216
                                        **        SNAP - SNAPSHOT OF REGISTERS AND CORE.                         DBG=MAC   217
                                        *                                                                        DBG=MAC   218
                                        *                                                                        DBG=MAC   219
                                        * NAME    SNAP   FWA,LWA,LNG,RG,LL,UL,INC                                DBG=MAC   220
                                        *         SNAP   *FWA,,**LNG,(X1,X2,B5,A1)                               DBG=MAC   221
                                        *                                                                        DBG=MAC   222
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   DBG=MAC   223
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    DBG=MAC   224
                                        *                     =  NULL IF NO SNAP HEADER                          DBG=MAC   225
                                        *                FWA  =  FWA OF CORE TO BE DUMPED. THIS PARAMETER MUST   DBG=MAC   226
                                        *                          APPEAR IF A CORE DUMP IS DESIRED.             DBG=MAC   227
                                        *                LWA  =  LWA OF CORE TO BE DUMPED. (OPTIONAL)            DBG=MAC   228
                                        *                LNG  =  NR OF WORDS TO BE DUMPED. *LWA* AND *LNG* ARE   DBG=MAC   229
                                        *                          RELATED AS FOLLOWS--  DUMP IS FROM            DBG=MAC   230
                                        *                          FWA TO FWA+LNG UNLESS LNG IS NULL OR ZERO.    DBG=MAC   231
                                        *                          IN THAT CASE, DUMP IS FROM FWA TO LWA.        DBG=MAC   232
                                        *                RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          DBG=MAC   233
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    DBG=MAC   234
                                        *                          DESIRED TO BE DUMPED                          DBG=MAC   235
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     DBG=MAC   236
                                        *                          DUMPED                                        DBG=MAC   237
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         DBG=MAC   238
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       DBG=MAC   239
                                        *                INC  =  INCREMENT (DEFAULT=1)                           DBG=MAC   240
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    DBG=MAC   241
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     DBG=MAC   242
                                        *                          ASSEMBLED AFTER *RJ*                          DBG=MAC   243
                                        *                                                                        DBG=MAC   244
                                        *         NOTES-- AN INDIRECT ADDRESSING SYNTAX IS PROVIDED FOR THE FWA, DBG=MAC   245
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    52
         MACROS FOR DEBUGGING 
  
                                        *         LWA, AND LNG PARAMETERS. ANY OF THESE PARAMETERS PRECEDED BY   DBG=MAC   246
                                        *         AN ASTERICK (*) DENOTES ONE LEVEL OF INDIRECT ADDRESSING.      DBG=MAC   247
                                        *         N LEVELS OF INDIRECT ADDRESSING ARE POSSIBLE (N.LE.2**21-1)    DBG=MAC   248
                                        *         BY STACKING ASTERICKS. (E.G.  SNAP  **X1,***LWA)               DBG=MAC   249
                                        *                                                                        DBG=MAC   250
                                        *                A SINGLE REGISTER OR AN ADDRESS EXPRESSION CAN BE USED  DBG=MAC   251
                                        *         FOR THE FWA, LWA, OR LNG PARAMETER, BUT A MIX (E.G. SNAP X1+1) DBG=MAC   252
                                        *         IS NOT ALLOWED.                                                DBG=MAC   253
                                        *                                                                        DBG=MAC   254
                                        *         EXIT   NONE                                                    DBG=MAC   255
                                        *                                                                        DBG=MAC   256
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      DBG=MAC   257
                                        *                                                                        DBG=MAC   258
                                        *         CALLS  SNP=                                                    DBG=MAC   259
                                                                                                                 DBG=MAC   260
                                                                                                                 DBG=MAC   261
                                                  PURGMAC SNAP                                                   DBG=MAC   262
                                                                                                                 DBG=MAC   263
                                                  MACRO  SNAP,NAME,FWA,LWA,LNG,RG,LL,UL,INC,NUSE                 DBG=MAC   264
                                                  LOCAL  RTN                                                     DBG=MAC   265
                                                  LOCAL  APL                                                     DBG=MAC   266
                                        *                                                                        DBG=MAC   267
                                         +        RJ     =XSNP=                                                  DBG=MAC   268
                                         -        VFD    30/APL                                                  DBG=MAC   269
                                        *                                                                        DBG=MAC   270
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   271
                                                  USE    DEBUG                                                   DBG=MAC   272
                                        *                                                                        DBG=MAC   273
                                         #NUSE    ELSE                                                           DBG=MAC   274
                                                  EQ     RTN                                                     DBG=MAC   275
                                         #NUSE    ENDIF                                                          DBG=MAC   276
                                         APL      BSS    0                                                       DBG=MAC   277
                                                  FRK=   (NAME),LL,UL,INC                                        DBG0003     4
                                                  SNG=   (FWA)                                                   DBG=MAC   279
                                                  SNG=   (LWA)                                                   DBG=MAC   280
                                                  SNG=   (LNG)                                                   DBG=MAC   281
                                                  RGR=   (RG)                                                    DBG=MAC   282
                                        *                                                                        DBG=MAC   283
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   284
                                                  USE    *                                                       DBG=MAC   285
                                        *                                                                        DBG=MAC   286
                                         #NUSE    ELSE                                                           DBG=MAC   287
                                         RTN      BSS    0                                                       DBG=MAC   288
                                         #NUSE    ENDIF                                                          DBG=MAC   289
                                        *                                                                        DBG=MAC   290
                                         SNAP     ENDM                                                           DBG=MAC   291
                                         SNG=     SPACE  4,8                                                     DBG=MAC   292
                                        **        SNG= - GENERATE INDIRECT/ADDRESS FIELDS.                       DBG=MAC   293
                                        *                                                                        DBG=MAC   294
                                        *                                                                        DBG=MAC   295
                                        *         GENERATES--                                                    DBG=MAC   296
                                        *                                                                        DBG=MAC   297
                                        *         VFD    18/0                                                    DBG=MAC   298
                                        *         VFD    21/NR OF LEVELS OF INDIRECT ADDRESSING (0=DIRECT)       DBG=MAC   299
                                        *         VFD    21/ADDRESS AT BEGINNING OF INDIRECT CHAIN               DBG=MAC   300
                                        *                                                                        DBG=MAC   301
                                        *         SNG=   (*ADDR)                                                 DBG=MAC   302
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    53
         MACROS FOR DEBUGGING 
  
                                        *                                                                        DBG=MAC   303
                                        *         ENTRY  *        =  A LEVEL OF INDIRECT ADDRESSING.             DBG=MAC   304
                                        *                              NO * MEANS DIRECT ADDRESSING.             DBG=MAC   305
                                        *                              E.G. *ADDR MEANS THE CONTENTS OF ADDR     DBG=MAC   306
                                        *                              CONTAIN AN ADDRESS THAT IS TO BE USED BY  DBG=MAC   307
                                        *                              SNAP UTILITY.                             DBG=MAC   308
                                        *                ADDR     =  THE BEGINNING OF THE ADDRESS CHAIN.         DBG=MAC   309
                                                                                                                 DBG=MAC   310
                                                                                                                 DBG=MAC   311
                                                  PURGMAC SNG=                                                   DBG=MAC   312
                                                                                                                 DBG=MAC   313
                                         SNG=     MACRO  ARG                                                     DBG=MAC   314
                                         .9       SET    -1                                                      DBG=MAC   315
                                         +        VFD    18/0                                                    DBG=MAC   316
                                        *                                                                        DBG=MAC   317
                                         .D       DUP    -1                                                      DBG=MAC   318
                                         .9       SET    .9+1                                                    DBG=MAC   319
                                         .1       MICRO  .9+1,1,/ARG/                                            DBG=MAC   320
                                                  IFC    NE,/".1"/*/,1                                           DBG=MAC   321
                                                  STOPDUP                                                        DBG=MAC   322
                                         .D       ENDD                                                           DBG=MAC   323
                                        *                                                                        DBG=MAC   324
                                         .2       MICRO  .9+1,,/ARG/                                             DBG=MAC   325
                                        *                                                                        DBG=MAC   326
                                         #RG      IF     REG,".2"                                                DBG=MAC   327
                                                  IFEQ   .9,0,1                                                  DBG=MAC   328
                                         .9       SET    .9+1                                                    DBG=MAC   329
                                         .3       MICRO  1,1,/".2"/                                              DBG=MAC   330
                                         .4       MICRO  2,1,/".2"/                                              DBG=MAC   331
                                         .2       MICRO  1,,/=XSV=".3"+".4"/                                     DBG=MAC   332
                                        *                                                                        DBG=MAC   333
                                         #RG      ELSE                                                           DBG=MAC   334
                                         .5       MICRO  1,2,/".2"/                                              DBG=MAC   335
                                                  IFC    EQ,/".5"/=X/,1                                          DBG=MAC   336
                                         .2       MICRO  3,,/".2"/                                               DBG=MAC   337
                                                  IF     -DEF,".2",1                                             DBG=MAC   338
                                                  SKIP   1                                                       DBG=MAC   339
                                                  IF     -ABS,".2",1                                             DBG=MAC   340
                                         .2       MICRO  1,,/=X".2"/                                             DBG=MAC   341
                                         #RG      ENDIF                                                          DBG=MAC   342
                                        *                                                                        DBG=MAC   343
                                                  VFD    21/.9                                                   DBG=MAC   344
                                                  VFD    21/".2"                                                 DBG=MAC   345
                                         SNG=     ENDM                                                           DBG=MAC   346
                                         DBG=MAC  SPACE  4,8                                                     DBG=MAC   347
                                                  BASE   *                                                       DBG=MAC   348
                                         QUAL$    IF     -DEF,QUAL$                                              DBG=MAC   349
                                                  QUAL   *                                                       DBG=MAC   350
                                         QUAL$    ENDIF                                                          DBG=MAC   351
                                                  ENDX                                                           DBG=MAC   352
                                        **        DUMP OF E-LIST ( PASS 1 ).                                     FTNTEXT   857
                                                                                                                 FTNTEXT   858
                                                  PURGMAC   ELIST                                                FTNTEXT   859
                                                                                                                 FTNTEXT   860
                                         ELIST    MACRO  BCD                                                     FTNTEXT   861
                                                  RJ     =XSEL                                                   FTNTEXT   862
                                                  DATA   10H_BCD                                                 FTNTEXT   863
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    54
         MACROS FOR DEBUGGING 
  
                                         ELIST    ENDM                                                           FTNTEXT   864
                                                                                                                 FTNTEXT   865
                                        **        SNAPT - SNAP A TABLE WITH POINTERS O.TBL AND L.TBL.            FTNTEXT   866
                                                                                                                 FTNTEXT   867
                                                  PURGMAC   SNAPT                                                FTNTEXT   868
                                                                                                                 FTNTEXT   869
                                         SNAPT    MACRO  TBL,BCD                                                 FTNTEXT   870
                                         BCD      SNAP   *O.TBL,,*L.TBL                                          FEAT155F   89
                                         SNAPT    ENDM                                                           FTNTEXT   872
                                                                                                                 FTNTEXT   873
                                         .T       ENDIF                                                          FTNTEXT   876
  
  
  
  
                                        **        PRINT - PRINT THE CONTENTS OF A LIST OF LOCATIONS.             FTNTEXT   878
                                        *                                                                        FTNTEXT   879
                                        *                                                                        FTNTEXT   880
                                        *         PRINT  LAB,FMT,(LIST)                                          FTNTEXT   881
                                        *                                                                        FTNTEXT   882
                                        *         LAB - STATEMENT PRINTED IF *LAB* MENTIONED ON A *TRACER* LIST  FTNTEXT   883
                                        *                IF BLANK, THEN UNCONDITIONALLY PRINT.                   FTNTEXT   884
                                        *         FMT - PARENTHESIED FORTRAN FORMAT                              FTNTEXT   885
                                        *         LIST - PARENTHESIZED LIST OF NAMES AND OR REGISTERS TO BE      FTNTEXT   886
                                        *                PRINTED.                                                FTNTEXT   887
                                        *                                                                        FTNTEXT   888
                                        *         SAMPLE CALL --                                                 FTNTEXT   889
                                        *         PRINT XXX,(* SIP,IIP =*,2I6),(SIP,IIP)   WILL PRODUCE -        FTNTEXT   890
                                        *         XXX SIP,IIP = NNNNNN NNNNNN                                    FTNTEXT   891
                                        *                                                                        FTNTEXT   892
                                        *         THIS MACRO IS FOR INTERNAL DEBUGGING ONLY ( TEST MODE ).       FTNTEXT   893
                                                                                                                 FTNTEXT   894
                                                                                                                 FTNTEXT   895
                                                  PURGMAC   PRINT                                                FTNTEXT   896
                                                                                                                 FTNTEXT   897
                                         PRINT    MACRO  LAB,FMT,LIST                                            FTNTEXT   898
                                                  LOCAL  APL,LFMT                                                FTNTEXT   899
                                         .P       IFC    NE,/LAB//,2                                             FTNTEXT   900
                                         .P       IF     -DEF,)LAB,1                                             FTNTEXT   901
                                         .P       IF     DEF,/DEBUG/LAB                                          FTNTEXT   902
                                                  USE    DEBUG                                                   FTNTEXT   903
                                         APL      CON    =XOUTPUT#                                               FTNTEXT   904
                                                  CON    LFMT                                                    FTNTEXT   905
                                                  IRP    LIST                                                    FTNTEXT   906
                                                  IF     REG,LIST,4                                              FTNTEXT   907
                                         L        MICRO  1,1,/LIST/                                              FTNTEXT   908
                                         N        MICRO  2,1,/LIST/                                              FTNTEXT   909
                                                  VFD    12/2,30/1S6,18/=XSV="L"+"N"                             FEAT155F   90
                                                  SKIP   1                                                       FTNTEXT   911
                                                  VFD    12/2,30/1S6,18/LIST                                     FTNTEXT   912
                                                  IRP                                                            FTNTEXT   913
                                         LFMT     CON    0                                                       FTNTEXT   914
                                                  DIS    ,$(* LAB *,FMT)$                                        FTNTEXT   915
                                                  USE    *                                                       FTNTEXT   916
                                                  RJ     =XSAVE=                                                 FTNTEXT   917
                                                  SA1    APL                                                     FTNTEXT   918
                                                  RJ     =XOUTCI.                                                FTNTEXT   919
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    55
         MACROS FOR DEBUGGING                                         PRINT 
  
                                                  RJ     =XRESET=                                                FTNTEXT   920
                                         .P       ENDIF                                                          FTNTEXT   921
                                         PRINT    ENDM                                                           FTNTEXT   922
  
  
  
                                        **        TRACER - DEFINE ROUTINES/PHASES TO BE TRACED.                  FTNTEXT   924
                                        *                                                                        FTNTEXT   925
                                        *         TRACER (RTN1,...,RTNI)                                         FTNTEXT   926
                                                                                                                 FTNTEXT   927
                                         TRACER   MACRO  P                                                       FTNTEXT   928
                                                  QUAL   DEBUG                                                   FTNTEXT   932
                                                  IRP    P                                                       FTNTEXT   933
                                         P        EQU    1                                                       FTNTEXT   934
                                                  IRP                                                            FTNTEXT   935
                                                  QUAL   *                                                       FTNTEXT   936
                                                  ENDM                                                           FTNTEXT   937
  
  
  
                                        **        TRACE - CONDITIONALLY SNAP CONTENTS OF SPECIFIED TABLE.        FTNTEXT   939
                                        *         CALL -                                                         FTNTEXT   940
                                        *         TRACE  LAB,TBL,BLK                                             FTNTEXT   941
                                        *                                                                        FTNTEXT   942
                                        *         LAB - SNAP LABEL THAT IS TO BE SPECIFIED ON *TRACER* LIST      FTNTEXT   943
                                        *                TO ACTIVATE THE PRINTOUT.                               FTNTEXT   944
                                        *         TBL -  IF NOT = RLIST, THEN NAME OF TABLE ( FWA,LEN = O.TBL,   FTNTEXT   945
                                        *                L.TBL ) TO BE PRINTED IN OCTAL FORMAT.                  FTNTEXT   946
                                        *                IF = RLIST , THEN CALL *DMPRLST* TO PRINT THE TABLE.    FTNTEXT   947
                                        *                TABLE PRINTED OUT IS *TXT* IF *BLK* IS NOT SPECIFIED,   FTNTEXT   948
                                        *                ELSE *BLK*.                                             FTNTEXT   949
                                                                                                                 FTNTEXT   950
                                         TRACE    MACRO  RTN,TBL,BLK                                             FTNTEXT   951
                                         T        IF     DEF,/DEBUG/RTN                                          FTNTEXT   952
                                                  IRP    TBL                                                     FTNTEXT   953
                                         TB       IFC    NE,/TBL/RLIST/,2                                        FTNTEXT   954
                                         TBL-RTN  SNAP   *O.TBL,,*L.TBL,NR                                       FEAT155F   92
                                         TB       ELSE   1                                                       FTNTEXT   956
                                         BLK      SNAPRL RTN                                                     FTNTEXT   957
                                                  IRP                                                            FTNTEXT   958
                                         T        ENDIF                                                          FTNTEXT   959
                                                  ENDM                                                           FTNTEXT   960
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    56
         MACROS FOR DEBUGGING                                         SNAPRL
  
                                        **        SNAPRL - INTERPRETIVE DUMP OF AN *RLIST* SEQUENCE.             FTNTEXT   962
                                                                                                                 FTNTEXT   963
                                                  PURGMAC  SNAPRL                                                FTNTEXT   964
                                                  MACRO  SNAPRL,BLK,L,LL,UL,INC                                  FTNTEXT   965
                                                  LOCAL  X,Y                                                     FTNTEXT   966
                                                  CALL   SAVE=                                                   FTNTEXT   967
                                                  SA1    X                                                       FTNTEXT   968
                                                  IFC    EQ,//BLK/,2                                             FTNTEXT   969
                                                  SA2    =XO.TXT                                                 FTNTEXT   970
                                                  ELSE   1                                                       FTNTEXT   971
                                                  SA2    =XO.BLK                                                 FTNTEXT   972
                                                  BX6    X2                                                      FTNTEXT   973
                                                  SA6    X+1                                                     FTNTEXT   974
                                                  CALL   DMPRLST                                                 FTNTEXT   975
                                                  CALL   RESET=                                                  FTNTEXT   976
                                                  USE    DEBUG                                                   FTNTEXT   977
                                         X        CON    Y                                                       FTNTEXT   978
                                                  IFC    EQ,//BLK/,2                                             FTNTEXT   979
                                                  CON    0,=XL.TXT,0                                             FTNTEXT   980
                                                  ELSE   1                                                       FTNTEXT   981
                                                  CON    0,=XL.BLK,0                                             FTNTEXT   982
                                         Y        SNAPCTRS (L BLK),LL,UL,INC                                     FTNTEXT   983
                                                  USE    *                                                       FTNTEXT   984
                                         SNAPRL   ENDM                                                           FTNTEXT   985
                                                                                                                 FTNTEXT   986
                                         SNAPCTRS MACRO  L,LL,UL,INC                                             FTNTEXT   987
                                                  CON    0,10H L                                                 FTNTEXT   988
                                                  CON    LL 1                                                    FTNTEXT   989
                                                  CON    UL 200                                                  FTNTEXT   990
                                                  CON    INC 1                                                   FTNTEXT   991
                                         SNAPCTRS ENDM                                                           FTNTEXT   992
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    57
         MACROS FOR DEBUGGING                                         DCALL 
  
                                        **        DCALL - CALL TO DEBUGGING FORTRAN ROUTINE ( PASS 2 ).          FTNTEXT   994
                                        *                                                                        FTNTEXT   995
                                        *         DCALL ROUTINE,(PARAMLIST)                                      FTNTEXT   996
                                        *                                                                        FTNTEXT   997
                                        *         [X] IS THE CONTENTS OF X.                                      FTNTEXT   998
                                        *         CONSTANTS MUST BE WRITTEN AS =X  ( =3 ).                       FTNTEXT   999
                                                                                                                 FTNTEXT  1000
                                         DCALL    MACRO  RTN,P                                                   FTNTEXT  1001
                                                  LOCAL  APL                                                     FTNTEXT  1002
                                                  RJ     =XSAVE=                                                 FTNTEXT  1003
                                                  USE    DEBUG                                                   FTNTEXT  1004
                                         APL      BSS    0                                                       FTNTEXT  1005
                                                  NOREF  .N                                                      FTNTEXT  1006
                                         .N       SET    0                                                       FTNTEXT  1007
                                        *                                                                        FTNTEXT  1008
                                                  IRP    P                                                       FTNTEXT  1009
                                         .1       MICRO  1,1,/P/                                                 FTNTEXT  1010
                                                  IFC    EQ,/".1"/[/                                             FTNTEXT  1011
                                         .1       MICRO  2,,]_P_]                                                FTNTEXT  1012
                                                  USE    *                                                       FTNTEXT  1013
                                                  SA2    =X".1"                                                  FTNTEXT  1014
                                                  SX6    X2+                                                     FTNTEXT  1015
                                                  SA6    APL+.N                                                  FTNTEXT  1016
                                                  USE    DEBUG                                                   FTNTEXT  1017
                                                  BSS    1                                                       FTNTEXT  1018
                                                  ELSE   4                                                       FTNTEXT  1019
                                                  IFC    EQ,/".1"/=/,2                                           FTNTEXT  1020
                                                  VFD    42/,18/P                                                FTNTEXT  1021
                                                  SKIP   1                                                       FTNTEXT  1022
                                                  VFD    42/,18/=X_P                                             FTNTEXT  1023
                                         .N       SET    .N+1                                                    FTNTEXT  1024
                                                  IRP                                                            FTNTEXT  1025
                                        *                                                                        FTNTEXT  1026
                                                  DATA   0                                                       FTNTEXT  1027
                                                  USE    *                                                       FTNTEXT  1028
                                        *                                                                        FTNTEXT  1029
                                                  SA1    APL                                                     FTNTEXT  1030
                                                  RJ     =X_RTN                                                  FTNTEXT  1031
                                                  RJ     =XRESET=                                                FTNTEXT  1032
                                         DCALL    ENDM                                                           FTNTEXT  1033
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    58
         MACROS TO CALL THE TABLE MANAGER ROUTINES
  
                                        **        PASS 1 TABLE MANAGER MACROS.                                   FTNTEXT  1035
                                                                                                                 FTNTEXT  1036
                                        **        ADDWD - ADD A SINGLE WORD TO THE END OF A MANAGED TABLE.       FTNTEXT  1037
                                        *                                                                        FTNTEXT  1038
                                        *         ARGUMENTS:                                                     FTNTEXT  1039
                                        *                TNAM - TABLE NAME                                       FTNTEXT  1040
                                        *                WORD - WORD TO BE ADDED                                 FTNTEXT  1041
                                        *                MAY BE A REGISTER EXPRESSION OR MEMORY LOCATION         FTNTEXT  1042
                                        *                                                                        FTNTEXT  1043
                                         ADDWD    MACRO  TNAM,WORD                                               FTNTEXT  1044
                                                  LOADX  1,WORD                                                  FTNTEXT  1045
                                                  IFC    NE,/TNAM//,2                                            FTNTEXT  1046
                                                  IFC    NE,/TNAM/A0/,1                                          FTNTEXT  1047
                                                  SA0    =XZ.TNAM                                                FTNTEXT  1048
                                                  RJ     =XADDWD                                                 FTNTEXT  1049
                                         ADDWD    ENDM                                                           FTNTEXT  1050
  
  
  
  
                                        **        ALLOC - CALL *ALLOC* TO ALLOCATE +-N EXTRA WORDS.              FTNTEXT  1052
                                        *                                                                        FTNTEXT  1053
                                        *         ARGUMENTS:                                                     FTNTEXT  1054
                                        *                TNAM - TABLE NAME                                       FTNTEXT  1055
                                        *                NWDS - TABLE INCREMENT OR DECREMENT                     FTNTEXT  1056
                                        *                                                                        FTNTEXT  1057
                                         ALLOC    MACRO  TNAM,NWDS                                               FTNTEXT  1058
                                                  IF     -REG,NWDS,2                                             FCC2186     5
                                                  IF     ABS,NWDS,1                                              FCC2186     6
                                         P        ERR                ABSOLUTE VALUE NFG                          FCC2186     7
                                                  LOADX  5,NWDS                                                  FTNTEXT  1059
                                                  IFC    NE,/TNAM//,2                                            FTNTEXT  1060
                                                  IFC    NE,/TNAM/A0/,1                                          FTNTEXT  1061
                                                  SA0    =XZ.TNAM                                                FTNTEXT  1062
                                                  RJ     =XALLOC                                                 FTNTEXT  1063
                                         ALLOC    ENDM                                                           FTNTEXT  1064
  
  
  
  
                                        **        ALLAE - ALLOCATE ALMOST ALL OF AVAILABLE CORE FOR TABLE N.     FTNTEXT  1066
                                        *                                                                        FTNTEXT  1067
                                        *         ARGUMENTS:                                                     FTNTEXT  1068
                                        *                TNAM - TABLE NAME                                       FTNTEXT  1069
                                        *                                                                        FTNTEXT  1070
                                         ALLAE    MACRO  TNAM                                                    FTNTEXT  1071
                                                  SA0    =XZ.TNAM                                                FTNTEXT  1072
                                                  RJ     =XALLAE                                                 FTNTEXT  1073
                                         ALLAE    ENDM                                                           FTNTEXT  1074
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    59
         MACROS TO CALL THE TABLE MANAGER ROUTINES                    TABLES
  
                                         TABLES   MACRO  A,B,C,D,E,F,G,H,I,J                                     FTNTEXT  1076
                                                  EXT    O.A,L.A                                                 FTNTEXT  1077
                                                  IFC    NE,/B//,1                                               FTNTEXT  1078
                                                  TABLES B,C,D,E,F,G,H,I,J                                       FTNTEXT  1079
                                         TABLES   ENDM                                                           FTNTEXT  1080
  
  
  
  
                                         LOADX    MACRO  N,WORD            LOAD XN WITH WORD                     FTNTEXT  1082
                                                  LOCAL  L                                                       FTNTEXT  1083
                                        O         IFC    NE,/WORD//                                              FTNTEXT  1084
                                        *                                                                        FTNTEXT  1085
                                         R        IF     REG,WORD                                                FTNTEXT  1086
                                        *                                                                        FTNTEXT  1087
                                         L        MICRO  1,1,/WORD/                                              FTNTEXT  1088
                                         RR       IFC    NE,/"L"/X/                                              FTNTEXT  1089
                                                  SX.N   WORD                                                    FTNTEXT  1090
                                         RR       ELSE                                                           FTNTEXT  1091
                                         L        MICRO  2,1,/WORD/                                              FTNTEXT  1092
                                                  IFC    NE,/"L"/N/,1                                            FTNTEXT  1093
                                                  BX.N   WORD                                                    FTNTEXT  1094
                                         RR       ENDIF                                                          FTNTEXT  1095
                                        *                                                                        FTNTEXT  1096
                                         R        ELSE                                                           FTNTEXT  1097
                                                  SA.N   WORD                                                    FTNTEXT  1098
                                         R        ENDIF                                                          FTNTEXT  1099
                                        *                                                                        FTNTEXT  1100
                                        O         ENDIF                                                          FTNTEXT  1101
                                         LOADX    ENDM                                                           FTNTEXT  1102
  
  
  
  
                                        **        DBGERR - SEND A MESSAGE FROM *DEBUG* OPTION PROCESSOR TO THE   FTNTEXT  1104
                                        *                LIST FILE.                                              FTNTEXT  1105
                                        *                                                                        FTNTEXT  1106
                                        *         ARGUMENT:                                                      FTNTEXT  1107
                                        *                TEXT = TEXT OF THE MESSAGE                              FTNTEXT  1108
                                        *                                                                        FTNTEXT  1109
                                         DBGERR   MACRO  TEXT                                                    FTNTEXT  1110
                                                  SA5    =C/TEXT/                                                FTNTEXT  1111
                                                  RJ     =XDBGERR                                                FTNTEXT  1112
                                         DBGERR   ENDM                                                           FTNTEXT  1113
  
  
  
  
                                        **        CALLF - CALL A FORTRAN ROUTINE FROM A COMPASS ROUTINE.         FTNTEXT  1115
                                        *                                                                        FTNTEXT  1116
                                                                                                                 FTNTEXT  1117
                                         CALLF    MACRO  NAME,RESET                                              FTNTEXT  1118
                                                  SA1    =0                NO ARG LIST                           FTNTEXT  1119
                                                  RJ     =XNAME                                                  FTNTEXT  1120
                                                  IFC    NE,//RESET/,1                                           FTNTEXT  1121
                                                  SB5    1                 RESET B5 FOR COMPASS ROUTINES         FTNTEXT  1122
                                         CALLF    ENDM                                                           FTNTEXT  1123
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    60
         SYSTEM SYMBOL DEFINITIONS
  
                                        ***                                                                      FTNTEXT  1125
                                        *         SYSTEM SYMBOL DEFINITIONS FOR THE *FTN* COMPILER.              FTNTEXT  1126
                                        *                                                                        FTNTEXT  1127
                                        *         THE FOLLOWING SET OF EQU-S DEFINES THE VALUES, BIT             FTNTEXT  1128
                                        *         POSITIONS AND LENGTHS OF VARIOUS FIELDS IN THE INTERNAL        FTNTEXT  1129
                                        *         TABLES OF THE COMPILER.                                        FTNTEXT  1130
                                        *                                                                        FTNTEXT  1131
                                        *         THE FIRST TABLE OF INTEREST IS THE 2 WORD/ENTRY SYMBOL         FTNTEXT  1132
                                        *         TABLE. FOR EACH ENTRY THE WORDS ARE CALLED WORD A AND WORD B.  FTNTEXT  1133
                                        *                                                                        FTNTEXT  1134
                                        *         THE ADDRESS FUNCTION TO FETCH WORDS A AND B OF OF THE          FTNTEXT  1135
                                        *         SYMBOL WITH ORDINAL *N* IS:                                    FTNTEXT  1136
                                        *                                                                        FTNTEXT  1137
                                        *         WORD A = CONT( CONT(SYM1)-2*N )                                FTNTEXT  1138
                                        *         WORD B = CONT( CONT(SYM1)-2*N-1 )                              FTNTEXT  1139
                                        *                                                                        FTNTEXT  1140
                                        *         ONE SHOULD NOTE THE FOLLOWING FACTS:                           FTNTEXT  1141
                                        *                                                                        FTNTEXT  1142
                                        *         ORDINAL 0 IS UNUSED.                                           FTNTEXT  1143
                                        *         ORDINAL 1 WILL ALWAYS BE THE SUBPROGRAM NAME.                  FTNTEXT  1144
                                        *         ORDINALS 2 - K+1 WILL BE THE FORMAL PARAMETERS ( OR FILE       FTNTEXT  1145
                                        *         NAMES ) ORDERED AS THEY APPEARED ON THE SUBPROGRAM CARD.       FTNTEXT  1146
                                        *         IF THE SUBPROGRAM IS A SUBROUTINE WITH *RETURNS* PARAMETERS,   FTNTEXT  1147
                                        *         THEN THEY WILL COME NEXT.                                      FTNTEXT  1148
                                        *         AFTER THIS, CERTAIN SPECIAL SYMBOLS SUCH AS *VALUE.*,          FTNTEXT  1149
                                        *         *TEMPA0.* AND *TRACE.*.                                        FTNTEXT  1150
                                        *                                                                        FTNTEXT  1151
                                        *         THE REST OF THE SYMBOLS IN THE TABLE WILL HAVE NO SPECIAL      FTNTEXT  1152
                                        *         ORDER AND WILL BE PLACED IN THE TABLE AS THEY APPEAR.          FTNTEXT  1153
                                        *                                                                        FTNTEXT  1154
  
  
  
                                        ***                                                                      FTNTEXT  1156
                                        *         THE FORMAT OF THE SYMBOLS IS X.NAME WHERE :                    FTNTEXT  1157
                                        *         X IS A 1 OR 2 CHARACTER PREFIX AND NAME IS THE NAME            FTNTEXT  1158
                                        *         ASSOCIATED WITH THE SYMBOL.                                    FTNTEXT  1159
                                        *                                                                        FTNTEXT  1160
                                        *         THE PREFIXES USED ARE:                                         FTNTEXT  1161
                                        *                                                                        FTNTEXT  1162
                                        *         *P*  FOR THE POSITION OF THE BASE OF A BIT FIELD IN A WORD.    FTNTEXT  1163
                                        *         *L*  FOR THE LENGTH OF THE BIT FIELD.                          FTNTEXT  1164
                                        *              *L.* SYMBOLS WILL BE DEFINED ONLY IF *L.NAM* .NE. 1.      FTNTEXT  1165
                                        *         *T*  FOR VALUES IN THE TYPE FIELD.                             FTNTEXT  1166
                                        *         *V*  FOR THE VALUES OF BITS WHERE *P.NAME* IS .LT. 17.         FTNTEXT  1167
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    61
         SYMBOL TABLE BIT DEFINITIONS 
  
                                        **        SYMBOL TABLE BIT AND FIELD DESCRIPTIONS.                       FTNTEXT  1169
                                                                                                                 FTNTEXT  1170
                                        *         WORD A.                                                        FTNTEXT  1171
                                                                                                                 FTNTEXT  1172
                                  22     P.NAME   EQU    18                SYMBOL NAME                           FTNTEXT  1173
                                  52     L.NAME   EQU    42                7 CHARACTERS FOR THE NAME             FTNTEXT  1174
                                                                                                                 FTNTEXT  1175
                                  21     P.FP     EQU    17                FORMAL PARAMETER                      FTNTEXT  1176
                                                                                                                 FTNTEXT  1177
                                  20     P.DEF    EQU    16                DEFINITION BIT ( SYMBOL STORED INTO ) FTNTEXT  1178
                              200000     V.DEF    EQU    1S16              VALUE OF THE BIT                      FTNTEXT  1179
                                                                                                                 FTNTEXT  1180
                                  17     P.FUN    EQU    15                NAME USED AS A FUNCTION               FTNTEXT  1181
                              100000     V.FUN    EQU    1S15                                                    FTNTEXT  1182
                                                                                                                 FTNTEXT  1183
                                  16     P.COM    EQU    14                SYMBOL IS IN COMMON                   FTNTEXT  1184
                               40000     V.COM    EQU    1S14                                                    FTNTEXT  1185
                                                                                                                 FTNTEXT  1186
                                  15     P.DIM    EQU    13                SYMBOL IS A DIMENTIONED VARIABLE      FTNTEXT  1187
                               20000     V.DIM    EQU    1S13                                                    FTNTEXT  1188
                                                                                                                 FTNTEXT  1189
                                  14     P.EQU    EQU    12                NON BASE MEMBER OF AN EQUIVALENCE     FTNTEXT  1190
                               10000     V.EQU    EQU    1S12              CLASS                                 FTNTEXT  1191
                                                                                                                 FCC1319     6
                                  17     P.LC     EQU    15          LABEL CHANGE BIT ( TRANSFER LABELS ONLY )   FCC1319     7
                                  14     L.LCO    EQU    12          LAB CHANGE TABLE ORDINAL ( IN WORD B )      FCC1319     8
                                                                                                                 FTNTEXT  1192
                                        *         WORD B.                                                        FTNTEXT  1193
                                                                                                                 FTNTEXT  1194
                                  70     P.TYP    EQU    56                BASE OF THE TYPE FIELD                FTNTEXT  1195
                                   4     L.TYP    EQU    4                 LENGTH OF THE TYPE FIELD              FTNTEXT  1196
                                                                                                                 FTNTEXT  1197
                                   0     T.LOG    EQU    0                 TYPE LOGICAL                          FTNTEXT  1198
                                   1     T.INT    EQU    1                 TYPE INTEGER                          FTNTEXT  1199
                                   2     T.REAL   EQU    2                 TYPE REAL                             FTNTEXT  1200
                                   3     T.DBL    EQU    3                 DOUBLE PRECISION                      FTNTEXT  1201
                                   4     T.CPLX   EQU    4                 TYPE COMPLEX                          FTNTEXT  1202
                                   5     T.OCT    EQU    5                 TYPE OCTAL ( IN E LIST CONSTANTS ONLY FTNTEXT  1203
                                   5     T.ILL    EQU    5                 TYPES \ TO THIS ARE ILLEGAL IN        FTNTEXT  1204
                                        *                                  EXPRESSIONS                           FTNTEXT  1205
                                   6     T.HOL    EQU    6                 TYPE HOL ( IN ELIST CONSTANTS ONLY )  FTNTEXT  1206
                                   5     T.ECS    EQU    5                 ECS VARIABLE OR ARRAY                 FTNTEXT  1207
                                   6     T.LAB    EQU    6                 STMT NUMBERS, FORMAT OR GENERATED LAB FTNTEXT  1208
                                   7     T.RTN    EQU    7                 RETURN S FORMAL PARAMETER             FTNTEXT  1209
                                  10     T.NML    EQU    10B               NAMELIST GROUP NAME                   FTNTEXT  1210
                                  12     T.ENT    EQU    12B               ENTRY POINT NAME                      FTNTEXT  1211
                                  13     T.LFN    EQU    13B               LOGICAL FILE NAME                     FTNTEXT  1212
                                  14     T.CGS    EQU    14B               COMPILER GENERATED SYMBOL             FTNTEXT  1213
                                  17     T.DBG    EQU    17B               UNREFERENCED NAME PLACED IN THE       FTNTEXT  1214
                                        *                                  SYMBOL TABLE BY THE DEBUG PROCESSOR   FTNTEXT  1215
                                                                                                                 FTNTEXT  1216
                                  67     P.ASF    EQU    55                ARITHMETIC STMT FUNCTION              FTNTEXT  1217
                                  66     P.EXT    EQU    54                EXTERNAL REFERENCE                    FTNTEXT  1218
                                  65     P.EST    EQU    53          IN EXTERNAL STATEMENT                       FCC1716X    7
                                                                                                                 FTNTEXT  1219
                                  51     P.DIMP   EQU    41                ORDINAL TO DIMTAB (1,2,3,...)         FTNTEXT  1220
                                  14     L.DIMP   EQU    12                                                      FTNTEXT  1221
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    62
         SYMBOL TABLE BIT DEFINITIONS 
  
                                                                                                                 FTNTEXT  1222
                                  13     P.SCA    EQU    11          DIMP = SCAP BIT IN WORD B.                  FTNTEXT  1223
                                4000     V.SCA    EQU    1S11                                                    FTNTEXT  1224
                                                                                                                 FTNTEXT  1225
                                  12     P.SUB    EQU    10          SET BY PASS 2 IXFN PROCESSOR IF USED AS     FTNTEXT  1226
                                2000     V.SUB    EQU    1S10        A SUBSCRIPT                                 FTNTEXT  1227
                                                                                                                 FCC1088     6
                                  11     P.LDO    EQU    9           =1 IF VAR IS LD ONLY ( CON. , HOL. , ETC )  FCC1088     7
                                1000     V.LDO    EQU    1S9                                                     FCC1088     8
                                                                                                                 FTNTEXT  1228
                                  50     P.VAR    EQU    40                NAME USED AS A VARIABLE               FTNTEXT  1229
                                                                                                                 FTNTEXT  1230
                                  51     P.FMODE  EQU    P.DIMP            FILE MODE ( SET BY LISTIO )           FTNTEXT  1231
                                   5     L.FMODE  EQU    5                                                       FTNTEXT  1232
                                                                                                                 RSM3545C   31
                                   5     P.NFU    EQU    5B                NOT FIRST USE BIT, USED BY *FAX*      RSM3545C   32
                                                                                                                 FTNTEXT  1233
                                   4     P.LOCF   EQU    4           =1 IF VAR IS ARG TO *LOCF* FUNCTION         FCC0807     5
                                                                                                                 RSM3545C   33
                                   1     P.LCM    EQU    1           LCM RESIDENT BIT                            FTNTEXT  1234
                                   0     P.FPB    EQU    0           FP BIT IN WORD B                            FTNTEXT  1235
                                                                                                                 FTNTEXT  1236
                                   2     P.LVL    EQU    2                                                       FTNTEXT  1237
                                   2     L.LVL    EQU    2                                                       FTNTEXT  1238
                                                                                                                 FTNTEXT  1239
                                        *         FIELDS USED FOR ADDRESS DEFINITION.                            FTNTEXT  1240
                                                                                                                 FTNTEXT  1241
                                  45     P.RL     EQU    37                RELOCATION TYPE                       FTNTEXT  1242
                                   2     L.RL     EQU    2                 ABS , PROGRAM , COMMON AND EXTERNAL   FTNTEXT  1243
                                         P.RL     MICRO  1,,/37/                                                 FTNTEXT  1244
                                                                                                                 FTNTEXT  1245
                                  23     P.RA     EQU    19          RELATIVE ADDRESS / F.P. BLOCK LENGTH        FTNTEXT  1246
                                  22     L.RA     EQU    18                                                      FTNTEXT  1247
                                                                                                                 FTNTEXT  1248
                                  14     P.RB     EQU    12                RELOCATION BASE ORDINAL               FTNTEXT  1249
                                   7     L.RB     EQU    7                 1 - 61 FOR COMMON BLOCKS              FTNTEXT  1250
                                         P.RB     MICRO  1,,/12/           0 - 6 FOR LOCAL BLOCKS                FTNTEXT  1251
                                        *                                  AND 7 - 70 FOR FORMAL PARAMETERS      FTNTEXT  1252
                                 177     M.NCB    EQU    127               MAXIMUM NUMBER OF COMMON BLOCKS       FTNTEXT  1253
                                                                                                                 FTNTEXT  1254
                                  14     P.ADF    EQU    P.RB              ADDRESS DEFINITION FIELD              FTNTEXT  1255
                                  33     L.ADF    EQU    L.RL+L.RA+L.RB                                          FTNTEXT  1256
                                                                                                                 FTNTEXT  1257
                                        *         BITS FOR THE DEBUG PROCESSOR ( PASS 1 ONLY ).                  FTNTEXT  1258
                                                                                                                 FTNTEXT  1259
                                  43     P.SNT    EQU    35                SAVED NATURAL TYPE                    FTNTEXT  1260
                                   3     L.SNT    EQU    3                                                       FTNTEXT  1261
                                                                                                                 FTNTEXT  1262
                                  37     P.DIF    EQU    31                BASE OF 4 BIT DEBUG FLAG FIELD        FTNTEXT  1263
                                   4     L.DIF    EQU    4                                                       FTNTEXT  1264
                                                                                                                 FTNTEXT  1265
                                  37     P.NOT    EQU    P.DIF                                                   FTNTEXT  1266
                                  40     P.IF     EQU    P.DIF+1                                                 FTNTEXT  1267
                                  41     P.SF     EQU    P.DIF+2           STORES OR FUNC                        FTNTEXT  1268
                                  42     P.AC     EQU    P.DIF+3           ARRAYS OR CALLS                       FTNTEXT  1269
                                                                                                                 FTNTEXT  1270
                                  23     P.DTO    EQU    19                DEBUG TABLE ORDINAL                   FTNTEXT  1271
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    63
         SYMBOL TABLE BIT DEFINITIONS 
  
                                  14     L.DTO    EQU    12                                                      FTNTEXT  1272
                                                                                                                 FTNTEXT  1273
                                  23     P.DBGI   EQU    P.DTO             BASE OF DEBUG FIELD                   FTNTEXT  1274
                                  20     L.DBGI   EQU    L.DTO+L.DIF       LENGTH                                FTNTEXT  1275
                                                                                                                 FTNTEXT  1276
                                        *         BITS SET FOR A FUNCTION OR SUBROUTINE.                         FTNTEXT  1277
                                                                                                                 FTNTEXT  1278
                                  56     P.FARG   EQU    46                NUMBER OF ARGUMENTS                   FTNTEXT  1279
                                   6     L.FARG   EQU    6                                                       FTNTEXT  1280
                                                                                                                 FTNTEXT  1281
                                  55     P.LIB    EQU    45                LIBRARY FUNCTION                      FTNTEXT  1282
                                  53     P.IOF    EQU    43          I/O FUNCTION                                FTNTEXT  1283
                                  52     P.BEF    EQU    42                BEF CALL BY VALUE                     FTNTEXT  1284
                                  51     P.INF    EQU    41          INTRINSIC FUNCTION                          FTNTEXT  1285
                                  47     P.FCALL  EQU    39          = 1 AFTER FIRST CALL                        FCC2305    13
                                                                                                                 FTNTEXT  1286
                                  52     P.FTYP   EQU    P.BEF       BASE OF FUNCTION TYPE FIELD                 FTNTEXT  1287
                                   2     L.FTYP   EQU    2                                                       FTNTEXT  1288
                                                                                                                 FTNTEXT  1289
                                        *         WORD B ( FOR LABELS ).                                         FTNTEXT  1290
                                                                                                                 FTNTEXT  1291
                                  67     P.GEN    EQU    55                DO GENERATED LABELS                   FTNTEXT  1292
                                                                                                                 FTNTEXT  1293
                                        *         FOR LABELS NOT GENERATED BY THE COMPILER THE BITS OF WORD B    FTNTEXT  1294
                                        *         HAVE THE FOLLOWING MEANINGS --                                 FTNTEXT  1295
                                                                                                                 FTNTEXT  1296
                                  66     P.RZ     EQU    54                FOR DO LOOPS                          FTNTEXT  1297
                                  65     P.RSN    EQU    53                REFERENCED AS STMT NO - ACTIVE LABEL  FTNTEXT  1298
                                        *                                  BIT MAY BE CLEARED BY OPTIMIZERS      FTNTEXT  1299
                                  64     P.DSN    EQU    52                LABEL DEFINED AS A STMT NUMBER        FTNTEXT  1300
                                  63     P.DFN    EQU    51                LABEL DEFINED AS A FORMAT NUMBER      FTNTEXT  1301
                                  62     P.RFN    EQU    50                LABEL REFERENCED AS A FORMAT NUMBER   FTNTEXT  1302
                                  61     P.RAS    EQU    49                REFERENCED IN CONTEXT AS A STMT NO    FTNTEXT  1303
                                        *                                  THIS BIT IS USED FOR ERROR CHECKING   FTNTEXT  1304
                                  60     P.DLT    EQU    48                USED AS A DO LOOP TERMINATOR          FTNTEXT  1305
                                                                                                                 FTNTEXT  1306
                                  63     P.SLD    EQU    P.DFN             STMT LABEL DEFINITION FIELD           FTNTEXT  1307
                                   2     L.SLD    EQU    2                                                       FTNTEXT  1308
                                                                                                                 FTNTEXT  1309
                                        *         BITS SET FOR A STMT NUMBER THAT ARE USED TO CHECK FOR          FTNTEXT  1310
                                        *         CONFLICTING USE OF A LABEL BY FORMAT LABEL PROCESSORS.         FTNTEXT  1311
                                                                                                                 FTNTEXT  1312
                                         )ZZ      BIT    P.DSN-P.DLT                                             FTNTEXT  1313
                                         )ZZ1     BIT    P.RAS-P.DLT                                             FTNTEXT  1314
                                  23     M.FNCHK  EQU    )ZZ+)ZZ1+1        BIT MASK TO CHECK FOR FMT NO USED AS  FTNTEXT  1315
                                  60     P.FNCHK  EQU    P.DLT             STMT LABEL                            FTNTEXT  1316
                                                                                                                 FTNTEXT  1317
                                        *         WORD B FIELDS FOR STATEMENT NUMBERS.                           FTNTEXT  1318
                                                                                                                 FTNTEXT  1319
                                  14     P.LOR    EQU    12                LOOP ORDINAL IN WHICH LABEL IS        FTNTEXT  1320
                                        *                                  REFERENCED                            FTNTEXT  1321
                                  14     L.LOR    EQU    12                                                      FTNTEXT  1322
                                                                                                                 FTNTEXT  1323
                                  30     P.TRO    EQU    24                LABEL TRACE ORDINAL ( D OPTION )      FTNTEXT  1324
                                  14     L.TRO    EQU    12                                                      FTNTEXT  1325
                                                                                                                 FTNTEXT  1326
                                  44     P.DLN    EQU    36                LINE NO LABEL IS DEFINED ON ( DUKE )  FTNTEXT  1327
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    64
         SYMBOL TABLE BIT DEFINITIONS 
  
                                  14     L.DLN    EQU    12                                                      FTNTEXT  1328
                                                                                                                 FTNTEXT  1329
                                 127     V.OPT    EQU    127B              BITS INHIBITING LOOP OPTIMIZATION     FTNTEXT  1330
                                                                                                                 FTNTEXT  1331
                                        *         WORD B FIELDS FOR DO-GENERATED LABELS.                         FTNTEXT  1332
                                                                                                                 FTNTEXT  1333
                                  60     P.FLG    =      48                                                      FTNTEXT  1334
                                   7     L.FLG    =      7                                                       FTNTEXT  1335
                                                                                                                 FTNTEXT  1336
                                  30     P.TTLN   =      24                DO-BEGIN LINE NUMBER                  FTNTEXT  1337
                                  14     L.TTLN   =      L.DLN                                                   FTNTEXT  1338
  
  
  
  
                                        ***       OUTSYM - MACRO TO DUMP A TABLE TO FILE ZZZZZSY                 FEAT1070C  59
                                        *                                                                        FEAT1070C  60
                                         OUTSYM   MACRO  TABTYPE,FWA,LENGTH                                      FEAT1070C  61
                                                  IFC    NE,*X2*FWA*,1                                           FEAT1070C  62
                                                  SX2    FWA                                                     FEAT1070C  63
                                                  IFC    NE,*X3*LENGTH*,1                                        FEAT1070C  64
                                                  SX3    LENGTH                                                  FEAT1070C  65
                                                  SX6    TABTYPE                                                 FEAT1070C  66
                                                  IFEQ   TABTYPE,ZZ.SYM                                          FEAT1070C  67
                                                  SA1    =XCO.ER     ER FLAG                                     FEAT1070C  68
                                                  SA5    =XCO.OLVL   OPT LEVEL                                   FEAT1070C  69
                                                  LX1    1+2                                                     FEAT1070C  70
                                                  BX5    X5+X1       1/ER,2/OPT                                  FEAT1070C  71
                                                  ELSE   1                                                       FEAT1070C  72
                                                  MX5    0           ONLY PASS OPT INFO FOR SYMBOL TABLES        FEAT1070C  73
                                                  RJ     =XPUTTAB                                                FEAT1070C  74
                                                  ENDM                                                           FEAT1070C  75
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    65
        MACROS AND EQUS FOR PASS 1
  
                                        *         LENGTHS OF THE VARIOUS FIELDS IN THE R-MACRO WORDS.            FTNTEXT  1340
                                                                                                                 FTNTEXT  1341
                                  36     RM.IHL   EQU    30          IH                                          FTNTEXT  1342
                                  20     RM.RIL   EQU    16          RI ( R-NUMBER )                             FTNTEXT  1343
                                  22     RM.CAL   EQU    18          CA ( CONSTANTS )                            FTNTEXT  1344
  
  
  
  
                                                  MACRO  EREXIT,LOC,ERNUM  ERROR EXIT MACRO                      FTNTEXT  1346
                                         LOC      BSS    0                                                       FTNTEXT  1347
                                                  SB6    ERNUM                                                   FTNTEXT  1348
                                        (LOC      EQU    *                                                       FTNTEXT  1349
                                         EREXIT   ENDM                                                           FTNTEXT  1350
  
  
  
  
                                        **        RMHDR - FORM AN R-LIST MACRO HEADER WORD.                      FTNTEXT  1352
                                        *                MACNUM = RLIST MACRO ORDINAL                            FTNTEXT  1353
                                        *                IN = WORD COUNT FOR THE REST OF THE MACRO               FTNTEXT  1354
                                        *                                                                        FTNTEXT  1355
                                         RMHDR    MACRO  MACNUM,IN                                               FTNTEXT  1356
                                                  VFD    12/1777B-MACNUM,18/IN,30/0                              FTNTEXT  1357
                                                  ENDM                                                           FTNTEXT  1358
  
  
  
  
                                        **        RMEQU - DEFINE AN R-MACRO MACRO ORDINAL                        FTNTEXT  1360
                                        *                                                                        FTNTEXT  1361
                                        * A       RMEQU  B                                                       FTNTEXT  1362
                                        *                                                                        FTNTEXT  1363
                                        *                A = SYMBOL TO BE DEFINED                                FTNTEXT  1364
                                        *                B = NUMERIC VALUE OF SYMBOL OR BLANK                    FTNTEXT  1365
                                        *                IF B IS BLANK THEN A = MACNUM                           FTNTEXT  1366
                                                                                                                 FTNTEXT  1367
                                                  MACRO  RMEQU,A,B                                               FTNTEXT  1368
                                         A = B MACNUM                                                            FTNTEXT  1369
                                         MACNUM SET A+1                                                          FTNTEXT  1370
                                         RMEQU    ENDM                                                           FTNTEXT  1371
  
  
  
  
                                        **        OUTUSE - OUTPUT A *  USE NAME* STATEMENT FOR A LOCAL RB.       FTNTEXT  1373
                                        *                                                                        FTNTEXT  1374
                                         OUTUSE   MACRO  NAME                                                    FTNTEXT  1375
                                                  LOCAL  N                                                       FTNTEXT  1376
                                         N        MICRO  1,6,/NAME/                                              FTNTEXT  1377
                                                  SX6    =XU"N"                                                  FTNTEXT  1378
                                                  RJ     =XOUTUSE                                                FTNTEXT  1379
                                         OUTUSE   ENDM                                                           FTNTEXT  1380
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    66
        MACROS AND EQUS FOR PASS 1                                    POSTER
  
                                        **        POSTER - POST ERROR MESSAGE TO ERROR TABLE.                    FTNTEXT  1382
                                        *                                                                        FTNTEXT  1383
                                        *         *POSTER* MAY BE CALLED DURING PASS 1 ONLY.                     FTNTEXT  1384
                                        *         POSTS ERROR MESSAGE NUMBER, SOURCE LINE NUMBER AND 10-CHARAC   FTNTEXT  1385
                                        *         CALLER TEXT TO THE PASS 1 ERROR TABLE.  AT THE END OF PASS 1,  FTNTEXT  1386
                                        *         *FTNMSG* (2,3 OVERLAY) IS LOADED TO LIST THE CORRESPONDING     FTNTEXT  1387
                                        *         ERROR MESSAGE, INCLUDING LINE NUMBER AND TEXT.                 FTNTEXT  1388
                                        *                                                                        FTNTEXT  1389
                                        *                                                                        FTNTEXT  1390
                                        *         POSTER    NR=,SEV=,FMT=,TXT=,RETURN=                           FTNTEXT  1391
                                        *                                                                        FTNTEXT  1392
                                        *         ENTRY  *NR*     = ERROR MESSAGE NUMBER (AS IN -FTNMSG-).       FTNTEXT  1393
                                        *                           MAY BE SET TO /**/.  CALLER THEN ACCEPTS     FTNTEXT  1394
                                        *                           RESPONSIBILITY FOR (X3), (X4) AND (B6).      FTNTEXT  1395
                                        *                           *RETURN* AND *SEV* WILL STILL BE ACCEPTED.   FTNTEXT  1396
                                        *                *SEV*    = SEVERITY CODE, AS FOLLOWS --                 FTNTEXT  1397
                                        *                           *ANSI* = NON-ANSI INFORMATIVE MESSAGE, TO BE FTNTEXT  1398
                                        *                                    LISTED ONLY IF -X- LIST OPTION ON.  FTNTEXT  1399
                                        *                           *FC*   = FATAL-TO-COMPILATION ERROR.         FTNTEXT  1400
                                        *                           *FE*   = FATAL-TO-EXECUTION ERROR.           FTNTEXT  1401
                                        *                           *INF*  = INFORMATIVE ERROR MESSAGE.          FTNTEXT  1402
                                        *                *FMT*    = FORMAT OF TEXT WORD TO BE INSERTED IN THE    FTNTEXT  1403
                                        *                           ERROR MESSAGE LISTING LINE.  VALUES ARE --   FTNTEXT  1404
                                        *                          *DPC*   = 8 DISPLAY-CODED CHARAC, -R- FORMAT  FTNTEXT  1405
                                        *                          *ELIST* = E-LIST ENTRY (12/OP CODE, 48/MISC ) FTNTEXT  1406
                                        *                           IF OMITTED, NO TEXT IS INSERTED.             FTNTEXT  1407
                                        *                *TXT*    = X-REGISTER CONTAINING TEXT WORD, OR ADDRESS  FTNTEXT  1408
                                        *                           EXPRESSION FOR TEXT WORD LOCATION.           FTNTEXT  1409
                                        *                           MAY NOT BE BLANK IF *FMT* SPECIFIED.         FTNTEXT  1410
                                        *                *RETURN* = RETURN ADDRESS EXPRESSION, OR BLANK.         FTNTEXT  1411
                                        *                           IF BLANK, RETURNS TO PRESENT CODE SEQUENCE.  FTNTEXT  1412
                                        *                           IGNORED IF *SEV=FC*.                         FTNTEXT  1413
                                        *                                                                        FTNTEXT  1414
                                        *         EXIT   IF *SEV=FC*, CALLER SURRENDERS CONTROL TO ERROR         FTNTEXT  1415
                                        *                PROCESSING.  REST OF CURRENT STATEMENT WILL BE IGNORED, FTNTEXT  1416
                                        *                AND COMPILER BEGINS AN ERROR-SCAN-ONLY MODE.  NO OBJECT FTNTEXT  1417
                                        *                CODE WILL BE GENERATED.                                 FTNTEXT  1418
                                        *                IF *SEV* = ELSE, *RETURN* PARAMETER IS HONORED.         FTNTEXT  1419
                                        *                                                                        FTNTEXT  1420
                                        *         USES   X - 3, 4                                                FTNTEXT  1421
                                        *                A - 3, 4                                                FTNTEXT  1422
                                        *                B - 4, 6, 7                                             FTNTEXT  1423
                                        *                                                                        FTNTEXT  1424
                                        *         CALLS  ERPRO, XR=                                              FTNTEXT  1425
                                                                                                                 FTNTEXT  1426
                                                                                                                 FTNTEXT  1427
                                                  PURGMAC   POSTER                                               FTNTEXT  1428
                                                                                                                 FTNTEXT  1429
                                         POSTER   MACROE NR,SEV,TXT,FMT,RETURN                                   FTNTEXT  1430
                                                  IFC    NE, NR ** ,10                                           FTNTEXT  1431
                                        *                            SET DISPLAY-CODED TEXT FORMAT.              FTNTEXT  1432
                                                  IFC    EQ, FMT DPC ,4                                          FTNTEXT  1433
                                                  XR=    X3,TXT                                                  FTNTEXT  1434
                                                  BX4    X4-X4                                                   FTNTEXT  1435
                                                  R=     B6,NR                                                   FTNTEXT  1436
                                                  SKIP   5                                                       FTNTEXT  1437
                                        *                            SET E-LIST TEXT FORMAT.                     FTNTEXT  1438
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    67
        MACROS AND EQUS FOR PASS 1                                    POSTER
  
                                                  IFC    EQ, FMT ELIST ,3                                        FTNTEXT  1439
                                                  XR=    X4,TXT                                                  FTNTEXT  1440
                                                  R=     B6,NR                                                   FTNTEXT  1441
                                                  SKIP   1                                                       FTNTEXT  1442
                                        *                            SET ERROR NUMBER (NO TEXT).                 FTNTEXT  1443
                                                  R=     B6,-NR                                                  FTNTEXT  1444
                                        *                            SET RETURN ADDRESS.                         FTNTEXT  1445
                                                  IFC    NE, SEV FC ,5                                           FTNTEXT  1446
                                                  IFC    NE, RETURN B7 ,4                                        FTNTEXT  1447
                                                  IFEQ   TEST,0,2                                                FTNTEXT  1448
                                                  SB7    RETURN  *+2-*P/60D                                      FTNTEXT  1449
                                                  SKIP   1                                                       FTNTEXT  1450
                                                  SB7    RETURN  *+2                                             FTNTEXT  1451
                                        *                            SET -ERPRO- ENTRY ADDRESS.                  FTNTEXT  1452
                                                  ECHO   8,A=(FE,INF,ANSI,FC),B=(ERPRO,ERPROI,ASAER,FATALER)     FTNTEXT  1453
                                                  IFC    EQ, SEV A ,7                                            FTNTEXT  1454
                                                  STOPDUP                                                        FTNTEXT  1455
                                                  IFEQ   TEST,0,2                                                FTNTEXT  1456
                                                  EQ     =X_B                                                    FTNTEXT  1457
                                                  SKIP   2                                                       FTNTEXT  1458
                                                  SB4    =X_B                                                    FTNTEXT  1459
                                                  RJ     =XTEM                                                   FTNTEXT  1460
                                                  SKIP   1                                                       FTNTEXT  1461
                                                  ERR    (SEV) BAD SEV# "SEQUENCE"                               FTNTEXT  1462
                                         POSTER   ENDM                                                           FTNTEXT  1463
                                                                                                                 FTNTEXT  1464
                                                                                                                 FTNTEXT  1465
                                                  PURGMAC   POSTERR                                              FTNTEXT  1466
                                         POSTERR  OPSYN  POSTER      OBSOLETE MACRO NAME                         FTNTEXT  1467
  
  
  
                                        **        E-LIST TYPE CODE VALUES.                                       FTNTEXT  1469
                                                                                                                 FTNTEXT  1470
                                   0     EL.CON   EQU    0                 CONSTANT                              FTNTEXT  1471
                                   1     EL.ID    EQU    1                 NAME                                  FTNTEXT  1472
                                   2     EL.)     EQU    2                 RIGHT PAREN                           FTNTEXT  1473
                                   3     EL.COMMA EQU    3                 COMMA                                 FTNTEXT  1474
                                   4     EL.EOS   EQU    4                 END OF STATEMENT                      FTNTEXT  1475
                                   5     EL.=     EQU    5                 EQUALS SIGN                           FTNTEXT  1476
                                   6     EL.(     EQU    6                 LEFT PAREN                            FTNTEXT  1477
                                   7     EL.OR    EQU    7                 .OR.                                  FTNTEXT  1478
                                  10     EL.AND   EQU    10B               .AND.                                 FTNTEXT  1479
                                  11     EL.NOT   EQU    11B               .NOT.                                 FTNTEXT  1480
                                  12     EL.LE    EQU    12B               .LE.                                  FTNTEXT  1481
                                  13     EL.LT    EQU    13B               .LT.                                  FTNTEXT  1482
                                  14     EL.GE    EQU    14B               .GE.                                  FTNTEXT  1483
                                  15     EL.GT    EQU    15B               .GT.                                  FTNTEXT  1484
                                  16     EL.NE    EQU    16B               .NE.                                  FTNTEXT  1485
                                  17     EL.EQ    EQU    17B               .EQ.                                  FTNTEXT  1486
                                  20     EL.MINUS EQU    20B               -                                     FTNTEXT  1487
                                  21     EL.PLUS  EQU    21B               +                                     FTNTEXT  1488
                                  22     EL.STAR  EQU    22B               *                                     FTNTEXT  1489
                                  23     EL.SLASH EQU    23B               /                                     FTNTEXT  1490
                                  24     EL.DSTR  EQU    24B               **                                    FTNTEXT  1491
                                  25     EL.S)    EQU    25B               SPECIAL PAREN FOR DO-S AND REDUNDANT  FTNTEXT  1492
                                        *                                  PARENTHESIS                           FTNTEXT  1493
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    68
        FIELD DEFINITION MACROS                                       DESCRIBE
  
                                        **        DESCRIBE, DEFINE - FIELD DEFINITION MACROS.                    FTNTEXT  1495
                                        *                                                                        FTNTEXT  1496
                                        *         MACROS TO FACILITATE FIELD DESCRIPTION, WHERE FIELDS ARE       FTNTEXT  1497
                                        *         SUB-WORD ENTITIES.  THE 'DESCRIBE' MACRO IS USED TO PROVIDE    FTNTEXT  1498
                                        *         A PREFIX FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES. FTNTEXT  1499
                                        *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE         FTNTEXT  1500
                                        *         DEFINED0                                                       FTNTEXT  1501
                                        *                                                                        FTNTEXT  1502
                                        *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT    FTNTEXT  1503
                                        *                              WHICH COMPRISES THE NAMED FIELD (WITHIN   FTNTEXT  1504
                                        *                              A WORD BITS ARE NUMBERED ACCORDING TO     FTNTEXT  1505
                                        *                              THE POWER OF TWO WHICH THEY REPRESENT)    FTNTEXT  1506
                                        *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD           FTNTEXT  1507
                                        *                                                                        FTNTEXT  1508
                                        *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-  FTNTEXT  1509
                                        *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER   FTNTEXT  1510
                                        *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.  FTNTEXT  1511
                                        *                                                                        FTNTEXT  1512
                                        *         'DESCRIBE' REFERENCE --                                        FTNTEXT  1513
                                        *                                                                        FTNTEXT  1514
                                        *                DESCRIBE PFX,BITSLONG,TOPBIT                            FTNTEXT  1515
                                        *                                                                        FTNTEXT  1516
                                        *         WHERE  PFX  IS THE PREFIX MENTIONED ABOVE,                     FTNTEXT  1517
                                        *           BITSLONG  IS THE TOTAL LENGTH IN BITS OF THE STRUCTURE,      FTNTEXT  1518
                                        *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED,           FTNTEXT  1519
                                        *             TOPBIT  THE BEGINNING (I.E. LEFTMOST) BIT OF THE STRUCTURE FTNTEXT  1520
                                        *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE        FTNTEXT  1521
                                        *                                                                        FTNTEXT  1522
                                        *         'DEFINE' REFERENCE --                                          FTNTEXT  1523
                                        *         NAME   DEFINE  LENGTH,RESET                                    FTNTEXT  1524
                                        *                                                                        FTNTEXT  1525
                                        *         WHERE NAME IS THE NAME OF THE FIELD MENTIONED ABOVE, IF NOT    FTNTEXT  1526
                                        *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.      FTNTEXT  1527
                                        *             LENGTH IS THE BIT LENGTH OF THE FIELD (OR FILLER), A VALUE FTNTEXT  1528
                                        *                    ONE IS ASSUMED IF THIS PARAMETER IS OMITTED         FTNTEXT  1529
                                        *              RESET IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE        FTNTEXT  1530
                                        *                    DEFINED RELATIVE TO BIT POSITION 'RESET' AS THE     FTNTEXT  1531
                                        *                    TOPMOST (LEFTMOST) BIT.                             FTNTEXT  1532
                                        *                                                                        FTNTEXT  1533
                                        *         UNLESS THE 'RESET' PARAMETER OCCURS, EACH 'DEFINE' IS          FTNTEXT  1534
                                        *         CONSIDERED TO REFERENCE A FIELD BEGINNING TO THE IMMEDIATE     FTNTEXT  1535
                                        *         RIGHT OF THE PRECEDING FIELD.                                  FTNTEXT  1536
                                        *                                                                        FTNTEXT  1537
                                        *         CONSIDER THE FOLLOWING EXAMPLE                                 FTNTEXT  1538
                                        *                                                                        FTNTEXT  1539
                                        *         TABLE X      .------.-------.------.                           FTNTEXT  1540
                                        *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE @ 100)     FTNTEXT  1541
                                        *                      .------.-------.------.                           FTNTEXT  1542
                                        *                       '      '       '     '                           FTNTEXT  1543
                                        *                      59     47      17     0                           FTNTEXT  1544
                                        *                                                                        FTNTEXT  1545
                                        *                 OR   .------.--------------.                           FTNTEXT  1546
                                        *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)         FTNTEXT  1547
                                        *                      .------.--------------.                           FTNTEXT  1548
                                        *                       '      '             '                           FTNTEXT  1549
                                        *                      59     47             0                           FTNTEXT  1550
                                        *                                                                        FTNTEXT  1551
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    69
        FIELD DEFINITION MACROS                                       DESCRIBE
  
                                        *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE FTNTEXT  1552
                                        *                                  TWO CHARACTERS 'X.'                   FTNTEXT  1553
                                        *         TYPE   DEFINE  12                                              FTNTEXT  1554
                                        *         MSG    DEFINE  48                                              FTNTEXT  1555
                                        *         VALUE  DEFINE  X.MSGP+47                                       FTNTEXT  1556
                                        *         SUBV   DEFINE  18                                              FTNTEXT  1557
                                        *                                                                        FTNTEXT  1558
                                        *       THE SYMBOLS DEFINED WOULD BE                                     FTNTEXT  1559
                                        *                                                                        FTNTEXT  1560
                                        *                X.TYPEP   EQU  48                                       FTNTEXT  1561
                                        *                X.TYPEL   EQU  12                                       FTNTEXT  1562
                                        *                X.MSGP    EQU   0                                       FTNTEXT  1563
                                        *                X.MSGL    EQU  48                                       FTNTEXT  1564
                                        *                X.VALUEP  EQU  18                                       FTNTEXT  1565
                                        *                X.VALUEL  EQU  30                                       FTNTEXT  1566
                                        *                X.SUBVP   EQU   0                                       FTNTEXT  1567
                                        *                X.SUBVL   EQU  18                                       FTNTEXT  1568
                                                                                                                 FTNTEXT  1569
                                         DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT                                  FTNTEXT  1570
                                                  NOREF  /"QUAL"/.B,/"QUAL"/.L,/"QUAL"/.1                        FTNTEXT  1571
                                         .P       MICRO  1,,/PREFIX/                                             FTNTEXT  1572
                                         .L       SET    BITSLONG 60                                             FTNTEXT  1573
                                         .B       SET    TOPBIT .L-1                                             FTNTEXT  1574
                                         DESCRIBE ENDM                                                           FTNTEXT  1575
                                                                                                                 FTNTEXT  1576
                                                  MACRO  DEFINE,N,LONG,RESET                                     FTNTEXT  1577
                                         .1       SET    LONG 1                                                  FTNTEXT  1578
                                                  IFC    NE,//RESET/,2                                           FTNTEXT  1579
                                         .B       SET    RESET                                                   FTNTEXT  1580
                                         .L       SET    1000                                                    FTNTEXT  1581
                                                  IFC    NE,//N/,4                                               FTNTEXT  1582
                                         ".P"N_P  EQU    .B-.1+1                                                 FTNTEXT  1583
                                         ".P"N_L  EQU    .1                                                      FTNTEXT  1584
                                                  IFEQ   .1,1,1                                                  FTNTEXT  1585
                                                  NOREF  ".P"N_L                                                 FTNTEXT  1586
                                         .L       SET    .L-.1                                                   FTNTEXT  1587
                                         .B       SET    .B-.1                                                   FTNTEXT  1588
                                                  IFLT   .L,0,1                                                  FTNTEXT  1589
                                                   ERR    TOTAL FIELD LENGTHS ARE LONGER THAN SPECIFIED          FTNTEXT  1590
                                                  IFLT   .B,0,3                                                  FTNTEXT  1591
                                                  IFNE   .B,-1,1                                                 FTNTEXT  1592
                                                   ERR    FIELD SPANS A WORD BOUNDARY                            FTNTEXT  1593
                                         .B       SET    59                                                      FTNTEXT  1594
                                         DEFINE   ENDM                                                           FTNTEXT  1595
                                                                                                                 FTNTEXT  1596
                                        **        DEQU - DEFINE EQUIVALENCED FIELDS                              FTNTEXT  1597
                                                                                                                 FTNTEXT  1598
                                                  MACRO  DEQU,N,B,LEN                                            FTNTEXT  1599
                                         ".P"N_P  EQU    ".P"B_P                                                 FTNTEXT  1600
                                         ".P"N_L  EQU    LEN ".P"B_L                                             FTNTEXT  1601
                                                  IFEQ   ".P"N_L,1,1                                             FTNTEXT  1602
                                                  NOREF  ".P"N_L                                                 FTNTEXT  1603
                                                  ENDM                                                           FTNTEXT  1604
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    70
        FIELD DEFINITION MACROS                                       BMFW
  
                                        **        BFMW - CREATE A BIT FIELD MASK WORD.                           FTNTEXT  1606
                                        *                                                                        FTNTEXT  1607
                                        * LAB     BFMW   PREFIX,(BITLIST),SHFT                                   FTNTEXT  1608
                                        *                                                                        FTNTEXT  1609
                                        *         PREFIX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.           FTNTEXT  1610
                                        *         BITLIST = LIST OF BIT FIELDS TO APPEAR IN MASK                 FTNTEXT  1611
                                        *         SHFT = AMOUNT BY WHICH WORD IN REGISTERS HAS BEEN SHIFTED      FTNTEXT  1612
                                                                                                                 FTNTEXT  1613
                                                  MACRO  BFMW,LAB,PR,BIT,SHFT                                    FTNTEXT  1614
                                                  IFC    NE,/"QUAL"//,1                                          FTNTEXT  1615
                                                  NOREF  /"QUAL"/.P,/"QUAL"/.Z                                   FTNTEXT  1616
                                        *                                                                        FTNTEXT  1617
                                         LAB      BSS    0                                                       FTNTEXT  1618
                                         .Z       SET    0                                                       FTNTEXT  1619
                                                                                                                 FTNTEXT  1620
                                                  IRP    BIT                                                     FTNTEXT  1621
                                         .P       SET    PR.BIT_P+PR.BIT_L+SHFT                                  FTNTEXT  1622
                                                  IFGT   .P,60,1                                                 FTNTEXT  1623
                                         .P       SET    .P-60                                                   FTNTEXT  1624
                                                  IFNE   .P,PR.BIT_L,3                                           FTNTEXT  1625
                                                  POS    .P                                                      FTNTEXT  1626
                                                  VFD    PR.BIT_L/-0                                             FTNTEXT  1627
                                                  ELSE   1                                                       FTNTEXT  1628
                                         .Z       SET    .P                                                      FTNTEXT  1629
                                                  IRP                                                            FTNTEXT  1630
                                        *                                                                        FTNTEXT  1631
                                                  IFNE   .Z,0,3                                                  FTNTEXT  1632
                                                  POS    .Z                                                      FTNTEXT  1633
                                                  VFD    .Z/-0                                                   FTNTEXT  1634
                                                  ELSE   1                                                       FTNTEXT  1635
                                                  VFD    *P/0                                                    FTNTEXT  1636
                                        *                                                                        FTNTEXT  1637
                                                  ENDM                                                           FTNTEXT  1638
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    71
        PASS 2 DEFINITIONS AND TABLE FORMATS                          DESCR 
  
                                        **        *IL* INSTRUCTION DESCRIPTOR FIELDS ( ALL INSTRUCTION TYPES )   FTNTEXT  1640
                                        *         INSTRUCTION ATTRIBUTES ( PROPERTY BITS ).                      FTNTEXT  1641
                                                                                                                 FTNTEXT  1642
                                                  DESCRIBE D.,60                                                 FTNTEXT  1643
                                         TY       DEFINE 2           RLIST TYPE - 1 ( = 0-3 )                    FTNTEXT  1644
                                         FT       DEFINE 5           FUNCTIONAL UNIT TIME IN MINOR CYCLES        FTNTEXT  1645
                                         NR       DEFINE 1           D.RJRSP+12 ( BIT SHIFT FOR *MCG* IN *DRR* ) FTNTEXT  1646
                                                  DEFINE 1           =1 TO SIMULATE A EXPONENT                   FTNTEXT  1647
                                         F1       DEFINE 4           FIRST FUNCTION UNIT ORDINAL                 FTNTEXT  1648
                                         F2       DEFINE 4           SECOND FUNCTION UNIT ORDINAL                FTNTEXT  1649
                                         BM       DEFINE 1           NODE BOUNDARY MARKER ( JUMP, LABEL, ETC )   FTNTEXT  1650
                                         ^D       DEFINE 1           SET IF INSTRUCTION DOESN-T DEF AN RI/ NO RI FTNTEXT  1651
                                                                                                                 FTNTEXT  1652
                                        **        NOTE - THE BIT FIELD FROM *RJRS* TO *JFT* IS USED BY THE       FTNTEXT  1653
                                        *         SCHEDULER TO ASSIGN RESULT REGISTERS, SO PLEASE DO NOT REORDER FTNTEXT  1654
                                                                                                                 FTNTEXT  1655
                                         RJRS     DEFINE 1           PRECEDES AN RJ REGISTER STORE               FTNTEXT  1656
                                         PS       DEFINE 1           INST IS AN IMMEDIATE PREDECESSOR OF A STORE FTNTEXT  1657
                                         PRS      DEFINE 1           PRECEDES A REGISTER STORE                   FTNTEXT  1658
                                         ECJ      DEFINE 1           ERROR CHECK (FALL THROUGH) JUMP             FTNTEXT  1659
                                         L2       DEFINE 1           LEVEL 2 LD/ST                               FTNTEXT  1660
                                         LD       DEFINE 1           LOAD                                        FTNTEXT  1661
                                         ST       DEFINE 1           STORE                                       FTNTEXT  1662
                                         JP       DEFINE 1           JUMP                                        FTNTEXT  1663
                                         XMT      DEFINE 1           XMT/SXT                                     FTNTEXT  1664
                                         KS       DEFINE 1           OPERATION DESTROYS OPERAND ( CON SHIFTS )   FTNTEXT  1665
                                         PI       DEFINE 1           PSEUDO INSTRUCTION ( RS,DAR,DEF,LAB, ETC )  FTNTEXT  1666
                                         MUC      DEFINE 1           MULTI USE COMPUTATION ( *JAM* MODE )        FTNTEXT  1667
                                         JFT      DEFINE 1           JAM FUNCTION TIME, "0 IF USES A FUNCTION UN FTNTEXT  1668
                                                                                                                 FTNTEXT  1669
                                         USI      DEFINE 1           UNSAFE INSTRUCTION ( INTERRUPT POSSIBLE )   FTNTEXT  1670
                                         ZP       DEFINE 1           =1 IF INSTRUCTION HAS NO OPERANDS           FTNTEXT  1671
                                         CM       DEFINE 1           "0 IF OPERANDS ARE COMMUTATIVE              FTNTEXT  1672
                                         SZ       DEFINE 2           INSTRUCTION SIZE ( PARCEL COUNT )           FTNTEXT  1673
                                         SR       DEFINE 1           SET FOR SIZE REDUCIBLE LD/ST-S              FTNTEXT  1674
                                         FP       DEFINE 1           SET IF IH IS AN F.P.                        FTNTEXT  1675
                                         XU       DEFINE 1           USES EXTEND PAST A REDEF ( SIO AND GRA )    FCC0514     5
                                         RF       DEFINE 1           RI USED IN *RF* OF LD/ST/STT/SA             FTNTEXT  1677
                                         INC      DEFINE 1           INCREMENT INSTRUCTION ( IA/IS/STT/ST )      FTNTEXT  1678
                                         REGW     DEFINE 9           X-REGISTER WIDTH OF THE SEQUENCE AT A INST  FTNTEXT  1679
                                         USES     DEFINE 9           USES COUNT                                  FTNTEXT  1680
                                                                                                                 FTNTEXT  1681
                                        *         COMBINATIONS OF DESCRIPTOR BIT FIELDS                          FTNTEXT  1682
                                                                                                                 FTNTEXT  1683
                                         LDST     DEQU   ST,2        LD AND ST BITS ( MEMORY REFERENCE )         FTNTEXT  1684
                                         STRS     DEQU   PRS,2       STORE / RS PRECEDENCE BITS                  FTNTEXT  1685
                                         AR       DEQU   FP,2        ADDRESS REDUCTION BITS ( *MCG* )            FTNTEXT  1686
                                         LSJ      DEQU   JP,3        LD / ST / JP BITS                           FTNTEXT  1687
                                         TYIO     DEQU   RJRS,2      TYPE I OPERAND BIT DETERMINOR               FTNTEXT  1688
                                        *                            0 - RJ,RK ARE OPERANDS                      FTNTEXT  1689
                                        *                            1 - RK IS AN OPERAND                        FTNTEXT  1690
                                        *                            2 - RI,RJ,RK ARE OPERANDS                   FTNTEXT  1691
                                         EQV      DEQU   FT,1        "0 IF INST IS PRED OF AN EQUIV LINK         FTNTEXT  1692
                                        *                ASSUMES THAT FUN TIME OF LD/ST-S IS AN EVEN NUMBER.     FTNTEXT  1693
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    72
        PASS 2 DEFINITIONS AND TABLE FORMATS                          RLIST 
  
                                        **        *IL* INSTRUCTION FIELD DEFINITIONS                             FTNTEXT  1695
                                                                                                                 FTNTEXT  1696
                                                  DESCRIBE R1.,60    TYI(OC,RJ,RK,RI) / TYII(OC,IN,SO,RI) , ETC  FTNTEXT  1697
                                                                                                                 FTNTEXT  1698
                                        *         TYPE 1 *IL* - BINARY OPERATIONS - RI = RJ.OP.RK                FTNTEXT  1699
                                        *                12/PACKED OC,16/RJ,16/RK,16/RI                          FTNTEXT  1700
                                                                                                                 FTNTEXT  1701
                                         OC       DEFINE 12          PACKED OP CODE                              FTNTEXT  1702
                                         RJ       DEFINE 16          FIRST OPERAND                               FTNTEXT  1703
                                         RK       DEFINE 16          SECOND OPERAND                              FTNTEXT  1704
                                         RI       DEFINE 16          RESULT RNUMBER                              FTNTEXT  1705
                                                                                                                 FTNTEXT  1706
                                        *         TYPE 2 *IL* - 1 ADDRESS AND PSEUDOS - .OP.RI = IN              FTNTEXT  1707
                                        *                12/PACKED OC,18/IN,14/SO,16/RI                          FTNTEXT  1708
                                                                                                                 FTNTEXT  1709
                                         IN       DEFINE 18,R1.RJP+15      A CA FIELD                            FTNTEXT  1710
                                         SO       DEFINE 14          REGISTER DESIGNATOR                         FTNTEXT  1711
                                                                                                                 FTNTEXT  1712
                                        *         TYPE 3 *IL* - LOADS,STORES AND JUMPS                           FTNTEXT  1713
                                        *                12/PACKED OC,18/IN,12/H2,2/0,16/RI                      FTNTEXT  1714
                                        *                R2 WORD = IHINFO FORMAT ( SEE BELOW )                   FTNTEXT  1715
  
  
                                        *         TYPE 4 *IL* - SPECIAL INSTRUCTIONS, BOUNDARY MARKERS, ETC.     FTNTEXT  1717
                                        *                12/PACKED OC,18/CA,12/H2,18/IH                          FTNTEXT  1718
                                                                                                                 FTNTEXT  1719
                                                  DESCRIBE R1.,60    TYIV(OC,CA,H2,IH)                           FTNTEXT  1720
                                         OC       DEFINE 12                                                      FTNTEXT  1721
                                         CA       DEFINE 18                                                      FTNTEXT  1722
                                         H2       DEFINE 12          SYMTAB ORDINAL, MISCELLANEOUS INFO          FTNTEXT  1723
                                         IH       DEFINE 18          IH FIELD                                    FTNTEXT  1724
  
  
  
                                        **        IH INFO WORD/ R2 WORD FOR MEMORY REFERENCES AND TYPE III INST  FTNTEXT  1726
                                        *         NOTE - LD,ST,BM BITS SET BY *BDT* IN *FIL* DURING INTERFERENCE FTNTEXT  1727
                                        *                LINKING PHASE ONLY ( BITS ARE SET IN *IH* TABLE ).      FTNTEXT  1728
                                        *         LD BIT SET FOR APLIST LD-S IN *PRE* TO PREVENT SQUEEZING OF    FTNTEXT  1729
                                        *                ST/LD SEQUENCES IN *SQZ*.                               FTNTEXT  1730
                                                                                                                 FTNTEXT  1731
                                                  DESCRIBE IH.,60    IHW(RF,CA,IH)                               FTNTEXT  1732
                                         LD       DEFINE 1           LD BIT FROM DESCR                           FTNTEXT  1733
                                         ST       DEFINE 1           ST BIT FROM DESCR                           FTNTEXT  1734
                                         BM       DEFINE 1           SET FOR BOUNDARY MARKERS                    FTNTEXT  1735
                                                  DEFINE 1                                                       FCC1918     7
                                         SIA      DEFINE 1           STT GEN BY *GRA* OF LCM&FP  ADDRESS         FCC1918     8
                                        *                              WHERE VALUE OF RF MAY BE NEGATIVE         FCC1918     9
                                         SRF      DEFINE 1           =1 IF SPECIAL RF NECESSARY ( RF = (RJ,RK) ) FCC0977     7
                                         RF       DEFINE 18          R-NUMBER OF MODIFIER                        FTNTEXT  1738
                                         CA       DEFINE 18          CONSTANT ADDEND                             FTNTEXT  1739
                                         I        DEFINE 3           TABLE NUMBER ( 0 - SYMTAB, ETC )            FTNTEXT  1740
                                         H        DEFINE 15          ORDINAL INTO TABLE                          FTNTEXT  1741
                                         IH       DEQU   H,18                                                    FTNTEXT  1742
                                                                                                                 FTNTEXT  1743
                                         CAIH     DEQU   H,36        COMBINATION OF CA AND IH FIELDS             FTNTEXT  1744
                                                                                                                 FTNTEXT  1745
                               20000     IH.LCMA  EQU    1S13        =1 IF LCM=I ADDRESS LOAD ( ^F.P. )          FCC0882     6
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    73
        PASS 2 DEFINITIONS AND TABLE FORMATS                          IHINFO
  
                               40000     IH.LCM   EQU    1S14        *LCM* ( LEVEL 2 ) BIT VALUE SET IN *IH*     FTNTEXT  1746
                                        *                            FIELD FOR *DRL/DWL*-S .                     FTNTEXT  1747
                              200000     RF.MV    EQU    1S16        BIT SET IN *RF* FIELD OF PLD,PST,DRL,DWL    FCC0643     7
                                        *                            IF RF IS -VAR  ( A(C-VAR)  ).               FCC0643     8
  
  
                                        *         I FIELD VALUES FOR THE FORWARD REFERENCE TABLES.               FTNTEXT  1749
                                                                                                                 FTNTEXT  1750
                              100000     I.GL     EQU    1S15        #GLNNN                                      FTNTEXT  1751
                              200000     I.AP     EQU    2S15        [APNNN                                      FTNTEXT  1752
                              300000     I.IO     EQU    3S15        ]IONNN                                      FTNTEXT  1753
  
  
  
                                        **        SO FIELD  - USED FOR SPECIFYING EXPLICIT RESULT REGISTERS      FTNTEXT  1755
                                        *                     IN *RS* AND *DEF* INSTRUCTIONS ONLY.               FTNTEXT  1756
                                        *                2/INV INFO,2/LOCK TYPE,3/REG TYPE,3/REG NUMBER          FTNTEXT  1757
                                                                                                                 FTNTEXT  1758
                                                  DESCRIBE SO.,11                                                FCC0641     6
                                         SFL      DEFINE 1           SCRATCHABLE FULL LOCK ( TEMP/FULL LOCK )    FCC0641     7
                                         INVC     DEFINE 1           INVARIANT IN CURRENT LOOP                   FTNTEXT  1760
                                         INV      DEFINE 1           INVARIANT IN INNER LOOP                     FTNTEXT  1761
                                         LK       DEFINE 2           LOCK TYPE, *RS* INSTRUCTION ONLY            FTNTEXT  1762
                                        *                            0 - HOLD UNTIL NEXT UNCONDITIONAL JUMP      FTNTEXT  1763
                                        *                            1 - HOLD UNTIL USES[RI] = 0                 FTNTEXT  1764
                                        *                            2 - HOLD UNTIL REDEF OR *EOQ*               FTNTEXT  1765
                                        *                            3 - RJ RS, IT IS A *DEF* IN DISGUISE.       FTNTEXT  1766
                                        *                            3 - A-REG LOCK ( INITIAL *DEF* OF PREFETCH) FCC0603     8
                                         RT       DEFINE 3           REGISTER TYPE ( BAX = 0/1/2 )               FTNTEXT  1767
                                         RN       DEFINE 3           REGISTER NUMBER ( 0 - 7 )                   FTNTEXT  1768
                                         REG      DEQU   RN,6        RT + RN FIELDS                              FTNTEXT  1769
                                                                                                                 FTNTEXT  1770
                                         .LKP     BIT    SO.LKP                                                  FTNTEXT  1771
                                 100     SO.TLOCK EQU    .LKP        TEMP LOCK                                   FTNTEXT  1772
                                        *                              WARNING - TEMP LOCKS CAN BE ELIMINATED    FTNTEXT  1773
                                        *                              IN *SQZ* IF THEY HAVE NO *REAL* USES.     FTNTEXT  1774
                                 200     SO.LOCK  EQU    2*.LKP      FULL LOCK ( UNTIL REDEF / *EOQ* )           FTNTEXT  1775
                                 300     SO.RJLK  EQU    3*.LKP      RJ LOCK ( B-REG DEF FOR UP / NR INSTRUCTION FTNTEXT  1776
                                                                                                                 FTNTEXT  1777
                                   0     RT.BR    EQU    0           VALUE OF B REGISTER TYPE                    FTNTEXT  1778
                                   2     RT.XR    EQU    2           VALUE OF X REGISTER TYPE                    FTNTEXT  1779
  
  
  
                                        **        AP / IO LIST ENTRY FORMAT FOR APLIST PROCESSING, USE/DEF INFO  FTNTEXT  1781
                                                                                                                 FTNTEXT  1782
                                                  DESCRIBE AP.,60                                                FTNTEXT  1783
                                         ST       DEFINE 1           ST APL ( IH,CA ARE FOR OPT=2 INFO ONLY )    FTNTEXT  1784
                                         USE      DEFINE 1           =1 IF INPUT LIST ITEM MAY NOT BE DEFINED    FCC0789     7
                                         P1       DEFINE 1           +1 REF FOR A DOUBLE/COMPLEX VARIABLE        FTNTEXT  1785
                                                  DEFINE 2                                                       FCC0789     8
                                         CR       DEFINE 1           CLASS REFERENCE                             FTNTEXT  1787
                                                  DEFINE 18                                                      FTNTEXT  1788
                                         CA       DEFINE 18          BIAS                                        FTNTEXT  1789
                                         IH       DEFINE 18          SYMBOL ORDINAL                              FTNTEXT  1790
                                                                                                                 FTNTEXT  1791
                                         IO       DEQU   ST,1        =1 IF INPUT ( DEF ) IN *IOL*                FTNTEXT  1792
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    74
        PASS 2 DEFINITIONS AND TABLE FORMATS                          APL 
  
                                         CAIH     DEQU   IH,36                                                   FTNTEXT  1793
  
  
  
                                        **        FI. - FUNCTION INFORMATION WORD ( R2 ) FOR RJX-S.              FTNTEXT  1795
                                                                                                                 FTNTEXT  1796
                                                  DESCRIBE FI.,60                                                FTNTEXT  1797
                                         FT       DEFINE 6           FUNCTION TYPE                               FTNTEXT  1798
                                        *                            0 - IGNORE, 1 - USER, 2 - BEF, 3 - I/O      FTNTEXT  1799
                                         REGP     DEFINE 18          B-REGISTERS PRESERVED ( *BEF"S* ONLY )      FTNTEXT  1800
                                         LEN      DEFINE 18          LIST LENGTH                                 FTNTEXT  1801
                                         INDX     DEFINE 18          INDEX TO FWA OF LIST IN *IOL*               FTNTEXT  1802
  
  
  
                                        **        IH. - IH WORD OF LOOP GENERATED LABELS                         FTNTEXT  1804
                                                                                                                 FTNTEXT  1805
                                                  DESCRIBE IH.,60                                                FTNTEXT  1806
                                         STK      DEFINE 1           SET IF LOOP FITS IN INSTRUCTION STACK       FTNTEXT  1807
                                                  DEFINE 41                                                      FTNTEXT  1808
                                         ICV      DEFINE 18          INDEX OF LOOP *CV* TO *UDI*                 FTNTEXT  1809
  
  
  
                                        **        IX. - DEFINE FIELDS FOR MC,IH WORD OF *IXFN* MACRO             FTNTEXT  1811
                                                                                                                 FTNTEXT  1812
                                                  DESCRIBE IX.,60                                                FTNTEXT  1813
                                         SUB      DEFINE 6           SUBSCRIPT TERM ORDINAL                      FTNTEXT  1814
                                         MC       DEFINE 18          MULTIPLICATIVE CONSTANT FOR VARIABLE        FTNTEXT  1815
                                         CA       DEFINE 18          BIAS                                        FTNTEXT  1816
                                         IH       DEFINE 18          SYMBOL ORDINAL                              FTNTEXT  1817
                                                                                                                 FTNTEXT  1818
                                         CAIH     DEQU   IH,36       COMBINED IH,CA FIELD                        FTNTEXT  1819
  
  
  
  
  
                                        **        OPR - MACRO TO DEFINE *IL* INSTRUCTION OPCODES ( OC. SYMBOLS ) FTNTEXT  1821
                                                                                                                 FTNTEXT  1822
                                                  MACRO  OPR,N                                                   FTNTEXT  1823
                                         OC.N     EQU    .OC                                                     FTNTEXT  1824
                                         .OC      SET    .OC+1                                                   FTNTEXT  1825
                                         OPR      ENDM                                                           FTNTEXT  1826
                                                                                                                 FTNTEXT  1827
                                                  SKIP   1           SO SYMBOLS ARE PUT IN STEXT RECORD          FTNTEXT  1828
                                                  CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
                                        **        OPRDEFS - DEFINE THE PROPERTIES OF THE *IL* INSTRUCTIONS.      OPRDEFS     3
                                                                                                                 OPRDEFS     4
                                                  NOREF  .OC                                                     OPRDEFS     5
                                   0     .OC      SET    0           OPCODE OF THE FIRST RLIST INSTRUCTION       OPRDEFS     6
                                                                                                                 OPRDEFS     7
                                        **        GETARG - GET ARGUMENT STARTING IN COLUMN N FROM STRING SS      OPRDEFS     8
                                        *         M IS MAXIMUM STRING LENGTH                                     OPRDEFS     9
                                        *         NOTE: S IS THE NULL MICRO IF THE ARG HAS LEADING BLANKS        OPRDEFS    10
                                                                                                                 OPRDEFS    11
                                                  MACRO  GETARG,S,N,M,SS                                         OPRDEFS    12
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    75
        PASS 2 DEFINITIONS AND TABLE FORMATS                          OPRS
  
                                         S        MICRO  N-15,M,$SS$                                             OPRDEFS    13
                                         S        MICRO  1,, "S"                                                 OPRDEFS    14
                                         GETARG   ENDM                                                           OPRDEFS    15
                                                                                                                 OPRDEFS    16
                                        **        V= - SCAN FIRST LIST AND SET RESULT TO VALUE IN SECOND LIST    OPRDEFS    17
                                                                                                                 OPRDEFS    18
                                                  MACRO  V=,V,S,L1,L2                                            OPRDEFS    19
                                         V        SET    -1                                                      OPRDEFS    20
                                                  ECHO   3,P1=(L1),P2=(L2)                                       OPRDEFS    21
                                                  IFC    EQ,/S/P1/,2                                             OPRDEFS    22
                                         V        SET    P2                                                      OPRDEFS    23
                                                  STOPDUP                                                        OPRDEFS    24
                                                  ERRMI  V           ILLEGAL MACRO PARAM - S                     OPRDEFS    25
                                         V=       ENDM                                                           OPRDEFS    26
                                                                                                                 OPRDEFS    27
                                        **        FUNIT - DEFINE FUNCTIONAL UNIT CODES FOR *OPR* MACRO           OPRDEFS    28
                                                                                                                 OPRDEFS    29
                                                  MACRO  FUNIT,N,F66,F76                                         OPRDEFS    30
                                         M        IFEQ   .CPU,76,2                                               OPRDEFS    31
                                         N        EQU    F76 F66           DEFAULT TO 6600 UNIT                  OPRDEFS    32
                                         M        SKIP   1                                                       OPRDEFS    33
                                         N        EQU    F66                                                     OPRDEFS    34
                                         FUNIT    ENDM                                                           OPRDEFS    35
  
  
                                        **        FUNCTIONAL UNIT CODES FOR 6600/7600                            OPRDEFS    37
                                        *                                                                        OPRDEFS    38
                                        * UNIT           66,76 UNIT NUMBER                                       OPRDEFS    39
                                                                                                                 OPRDEFS    40
                                                  QUAL   FUNIT                                                   OPRDEFS    41
                                        *PSEUDO   FUNIT  0                                                       OPRDEFS    42
                                         BRANCH   FUNIT  1                                                       OPRDEFS    43
                                         BOOL     FUNIT  2                                                       OPRDEFS    44
                                         SHIFT    FUNIT  3                                                       OPRDEFS    45
                                         IADD     FUNIT  4                                                       OPRDEFS    46
                                         FADD     FUNIT  5                                                       OPRDEFS    47
                                         MULT     FUNIT  6                 MULT2 = 7 FOR A 6600                  OPRDEFS    48
                                         DIVIDE   FUNIT  8                                                       OPRDEFS    49
                                         INC      FUNIT  9                 INC2 = 10 ON A 6600                   OPRDEFS    50
                                         NORM     FUNIT  SHIFT,7                                                 OPRDEFS    51
                                         BJUMP    FUNIT  INC,BRANCH                                              OPRDEFS    52
                                         XJUMP    FUNIT  IADD,BRANCH                                             OPRDEFS    53
                                         LCM      FUNIT  10                LCM PSEUDO FUNCT UNIT FOR 7600        OPRDEFS    54
                                         POPC     FUNIT  DIVIDE,11                                               OPRDEFS    55
                                         PACK     FUNIT  SHIFT,BOOL                                              OPRDEFS    56
                                                  QUAL   *                                                       OPRDEFS    57
  
  
                                        **        FORMAT OF THE *OPR* DEFINITION IS -                            OPRDEFS    59
                                        * NAM     OPR ( TYPE  COMM  USI  T6/T7  UNIT1 UNIT2  LEN K=J  SPEC   B ) OPRDEFS    60
                                        *                                                                        OPRDEFS    61
                                        *         NAME - MEMONIC NAME OF *IL* INSTRUCTION                        OPRDEFS    62
                                        *         TYPE - RLIST TYPE ( I - IV )                                   OPRDEFS    63
                                        *         COMM - "COMM" IF OPERANDS ARE COMMUTATIVE, ELSE "-"            OPRDEFS    64
                                        *         USI  - "USI" IF INSTRUCTION IS UNSAFE TO MOVE BECAUSE IT       OPRDEFS    65
                                        *                MAY CAUSE AN INTERRUPT ( FLOATING POINT OPERATIONS ).   OPRDEFS    66
                                        *         T6/T7 - 6600/7600 EXECUTION TIME OR "-" FOR SPECIAL INST       OPRDEFS    67
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    76
        PASS 2 DEFINITIONS AND TABLE FORMATS
  
                                        *                FOR B-JUMPS THE STACK TIME IS USED.                     OPRDEFS    68
                                        *                FOR X-JUMPS THE FALL THROUGH TIME IS USED.              OPRDEFS    69
                                        *                TIMES FOR LAB, AND UNCONDITIONAL JUMPS IS SET AT 31     OPRDEFS    70
                                        *                TO ALLOW THEM TO APPEAR IN THE MIDDLE OF A SEQUENCE.    OPRDEFS    71
                                        *         UNIT1 - FUNCTIONAL UNIT WHICH EXECUTES THE INSTRUCTION         OPRDEFS    72
                                        *         UNIT2 - SECOND FUNCTIONAL UNIT, IF AN ALTERNATE UNIT IS        OPRDEFS    73
                                        *               AVAILABLE AND DIFFERENT FROM THE FIRST.                  OPRDEFS    74
                                        *               "FU1" IN THE CASE OF DUPLEXED UNITS ON THE 6600          OPRDEFS    75
                                        *                ( INCREMENT AND MULTIPLY ).                             OPRDEFS    76
                                        *         LEN  - INSTRUCTION LENGTH IN BITS ( 15,30,60,- )               OPRDEFS    77
                                        *         K=J - MISCELLANEOUS INSTRUCTION PROPERTIES                     OPRDEFS    78
                                        *         SPEC - ANY SPECIAL PROPERTIES OF THE INSTRUCTION               OPRDEFS    79
                                        *         B   - BOUNDARY MARKER ( BEGINS OR TERMINATES A BASIC BLOCK )   OPRDEFS    80
                                        *                                                                        OPRDEFS    81
                                        * NAM     OPR ( TYPE  COMM  USI  T6/T7  UNIT1 UNIT2  LEN K=J  SPEC   B ) OPRDEFS    82
                                                                                                                 OPRDEFS    83
                                         EOQ      OPR (  IV     -    -    1/1    -     -      -              A ) OPRDEFS    84
                                         BOS      OPR (  IV     -    -     -     -     -      -                ) OPRDEFS    85
                                         EOS      OPR (  IV     -    -     -     -     -      -              A ) OPRDEFS    86
                                         DAR      OPR (  I      -    -     -     -     -      -                ) OPRDEFS    87
                                         RS       OPR (  II     -    -     -     -     -      -       REGST    ) OPRDEFS    88
                                         DEF      OPR (  II     -    -     -     -     -      -              D ) OPRDEFS    89
                                         LAB      OPR (  IV     -    -   31/31   -     -      -              B ) OPRDEFS    90
                                         ENT      OPR (  IV     -    -     -     -     -      -              B ) OPRDEFS    91
                                                                                                                 OPRDEFS    92
                                         XMT      OPR (  I      -    -    3/2  BOOL   SHIFT  15  K=J           ) OPRDEFS    93
                                         AND      OPR (  I    COMM   -    3/2  BOOL    -     15                ) OPRDEFS    94
                                         OR       OPR (  I    COMM   -    3/2  BOOL    -     15                ) OPRDEFS    95
                                         XOR      OPR (  I    COMM   -    3/2  BOOL    -     15                ) OPRDEFS    96
                                         XMTC     OPR (  I      -    -    3/2  BOOL    -     15  K=J           ) OPRDEFS    97
                                         STR      OPR (  I      -    -    3/2  BOOL    -     15                ) OPRDEFS    98
                                         IMP      OPR (  I      -    -    3/2  BOOL    -     15                ) OPRDEFS    99
                                         EQV      OPR (  I    COMM   -    3/2  BOOL    -     15                ) OPRDEFS   100
                                         KLS      OPR (  III    -    -    3/2  SHIFT   -     15  K=J           ) OPRDEFS   101
                                         KRS      OPR (  III    -    -    3/2  SHIFT   -     15  K=J           ) OPRDEFS   102
                                         ILS      OPR (  I      -    -    3/2  SHIFT   -     15                ) OPRDEFS   103
                                         IRS      OPR (  I      -    -    3/2  SHIFT   -     15                ) OPRDEFS   104
                                         NR       OPR (  I      -   USI   4/3  NORM    -     15  2R            ) OPRDEFS   105
                                         RNZ      OPR (  I      -   USI   4/3  NORM    -     15  2R            ) OPRDEFS   106
                                         UP       OPR (  I      -    -    3/2  PACK    -     15  2R            ) OPRDEFS   107
                                         PK       OPR (  I      -    -    3/2  PACK    -     15                ) OPRDEFS   108
                                         FA       OPR (  I    COMM  USI   4/4  FADD    -     15                ) OPRDEFS   109
                                         FS       OPR (  I      -   USI   4/4  FADD    -     15                ) OPRDEFS   110
                                         DFA      OPR (  I    COMM  USI   4/4  FADD    -     15                ) OPRDEFS   111
                                         DFS      OPR (  I      -   USI   4/4  FADD    -     15                ) OPRDEFS   112
                                         RFA      OPR (  I    COMM  USI   4/4  FADD    -     15                ) OPRDEFS   113
                                         RFS      OPR (  I      -   USI   4/4  FADD    -     15                ) OPRDEFS   114
                                         IA       OPR (  I    COMM   -    3/2  IADD    -     15                ) OPRDEFS   115
                                         IS       OPR (  I      -    -    3/2  IADD    -     15                ) OPRDEFS   116
                                         FM       OPR (  I    COMM  USI  10/5  MULT   FU1    15                ) OPRDEFS   117
                                         RFM      OPR (  I    COMM  USI  10/5  MULT   FU1    15                ) OPRDEFS   118
                                         DFM      OPR (  I    COMM  USI  10/5  MULT   FU1    15                ) OPRDEFS   119
                                         FMA      OPR (  II     -    -    3/2  SHIFT   -     15  K=J  ZEROP    ) OPRDEFS   120
                                         FD       OPR (  I      -   USI  29/20 DIVIDE  -     15                ) OPRDEFS   121
                                         RFD      OPR (  I      -   USI  29/20 DIVIDE  -     15                ) OPRDEFS   122
                                         NOP      OPR (  III    -    -     -     -     -      -       REGST    ) OPRDEFS   123
                                         CX       OPR (  I      -    -    8/2  POPC    -     15  K=J           ) OPRDEFS   124
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    77
        PASS 2 DEFINITIONS AND TABLE FORMATS
  
                                                                                                                 OPRDEFS   125
                                         LD       OPR (  III    -    -    8/8  INC    FU1    30       LOAD     ) OPRDEFS   126
                                         ST       OPR (  III    -    -   10/2  INC    FU1    30       STORE    ) OPRDEFS   127
                                         STT      OPR (  III    -    -    3/2  INC    FU1    30                ) OPRDEFS   128
                                         PLD      OPR (  I      -    -    8/8  INC    FU1    30       LOAD     ) OPRDEFS   129
                                         PST      OPR (  I      -    -   10/2  INC    FU1    30       STORE    ) OPRDEFS   130
                                         S        OPR (  II     -    -    3/2  INC    FU1    30       ZEROP    ) OPRDEFS   131
                                         SLD      OPR (  I    COMM   -    8/8  INC    FU1    15       LOAD     ) OPRDEFS   132
                                         SST      OPR (  I    COMM   -   10/2  INC    FU1    15       STORE    ) OPRDEFS   133
                                         SA       OPR (  I    COMM   -    3/2  INC    FU1    15                ) OPRDEFS   134
                                         SDL      OPR (  I      -    -    8/8  INC    FU1    15       LOAD     ) OPRDEFS   135
                                         SDS      OPR (  I      -    -   10/2  INC    FU1    15       STORE    ) OPRDEFS   136
                                         SS       OPR (  I      -    -    3/2  INC    FU1    15                ) OPRDEFS   137
                                         DRL      OPR (  I      -    -    0/17 LCM     -     15  K=J  LOAD2    ) OPRDEFS   138
                                         DWL      OPR (  I      -    -    0/3  LCM     -     15  K=J  STORE2   ) OPRDEFS   139
                                                                                                                 OPRDEFS   140
                                         JPX      OPR (  III    -    -   11/2  XJUMP   -     30       JUMP   C ) OPRDEFS   143
                                         JPBB     OPR (  III    -    -    8/3  BJUMP   -     30       JUMP   C ) OPRDEFS   144
                                                                                                                 OPRDEFS   145
                                         JIN      OPR (  III    -    -   14/13 INC    FU1    30       UJUMP  A ) OPRDEFS   146
                                         RJ3      OPR (  IV     -    -   31/31 BRANCH  -     30       UJUMP  A ) OPRDEFS   147
                                         RJ6      OPR (  IV     -    -   31/31 BRANCH  -     30       UJUMP  A ) OPRDEFS   148
                                         UJP      OPR (  IV     -    -   14/13 BJUMP  FU1    30       UJUMP  A ) OPRDEFS   149
                                                                                                                 OPRDEFS   150
                                         ILD      OPR (  III    -    -    8/8  INC    FU1    30       LOAD     ) OPRDEFS   151
                                         TLD      OPR (  III    -    -    8/8  INC    FU1    30       LOAD     ) OPRDEFS   152
                                         TST      OPR (  III    -    -   10/2  INC    FU1    30       STORE    ) OPRDEFS   153
                                         IAZ      OPR (  I    COMM   -    3/2  IADD    -     15                ) OPRDEFS   154
                                         ISZ      OPR (  I      -    -    3/2  IADD    -     15                ) OPRDEFS   155
                                         IM       OPR (  I    COMM   -   10/5  MULT   FU1    15                ) OPRDEFS   156
                                         CLR      OPR (  II     -    -    3/2  SHIFT  BOOL   15  K=J  ZEROP    ) OPRDEFS   157
                                         SXT      OPR (  I      -    -    3/2  BOOL   SHIFT  15  K=J           ) OPRDEFS   158
                                                                                                                 OPRDEFS   159
                                        *         DEFINE MICROS FOR THE CONDITIONAL X AND B JUMPS                OPRDEFS   160
                                                                                                                 OPRDEFS   161
                                         XJUMPS   MICRO  1,,/ZR,NZ,PL,MI,OR,IR,DF,ID/                            OPRDEFS   162
                                         BJUMPS   MICRO  1,,/EQ,NE,GE,LT/                                        OPRDEFS   163
                                                                                                                 OPRDEFS   164
                                                  PURGMAC GETARG,FUNIT,V=,OPR                                    OPRDEFS   165
                                                  ENDX                                                           OPRDEFS   166
                                                                                                                 FTNTEXT  1830
                                        *         DEFINE SUBINDEX OPCODES FOR THE X AND B JUMPS ( IN *CA* FIELD  FTNTEXT  1831
                                                                                                                 FTNTEXT  1832
                                                  NOREF  .Z                                                      FTNTEXT  1833
                                   0     .Z       SET    0                                                       FTNTEXT  1834
                                                  ECHO   2,T=("XJUMPS")                                          FTNTEXT  1835
                                         JC.T     EQU    .Z                                                      FTNTEXT  1836
                                         .Z       SET    .Z+1                                                    FTNTEXT  1837
                                                                                                                 FTNTEXT  1838
                                   0     .Z       SET    0                                                       FTNTEXT  1839
                                                  ECHO   2,T=("BJUMPS")                                          FTNTEXT  1840
                                         JC.T     EQU    .Z                                                      FTNTEXT  1841
                                         .Z       SET    .Z+1                                                    FTNTEXT  1842
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    78
        PASS 2 TABLE FORMATS                                          BIT 
  
                                        **        BI. - DEFINE FIRST WORD OF A 2 WORD ENTRY IN *BIT*             FTNTEXT  1844
                                                                                                                 FTNTEXT  1845
                                                  DESCRIBE BI.,60                                                FTNTEXT  1846
                                         RB       DEFINE 1           REACHABLE BLOCK ( SET FOR PROG BLOCKS ONLY  FTNTEXT  1847
                                         CB       DEFINE 1           CODED ( NOW IN *MCG/SII* FORMAT )           FTNTEXT  1848
                                         IL       DEFINE 1           INITIAL LABEL                               FTNTEXT  1849
                                         FJ       DEFINE 1           FINAL *UJP*                                 FTNTEXT  1850
                                         LJP      DEFINE 1           BLOCKS CONSISTS OF A *LAB/UJP* ONLY         FTNTEXT  1851
                                         HN       DEFINE 1           =1 IF HEADER NODE OF A INTERVAL & *SCR*     FCC0392     9
                                         FTH      DEFINE 1           =1 IF A *HB* THAT IS FROM A *FTH* LOOP      FCC0675     6
                                         OLN      DEFINE 15          BN OF HB OF LOOP THAT BLOCK IS IN           FCC1319     9
                                         PC       DEFINE 2           PARCEL COUNT                                FTNTEXT  1854
                                         FLN      DEFINE 18          FIRST LINE NUMBER ( PROG BLOCKS ONLY )      FTNTEXT  1855
                                         BVI      DEFINE 18          *BVT* INDEX TO BIT VECTORS                  FTNTEXT  1856
                                                                                                                 FTNTEXT  1857
                                         PII      DEQU   PC,17       INDEX TO *PSI* POST STORE INFO ( "0 )       FTNTEXT  1858
                                         PBN      DEQU   FLN         PROG BLOCK INDEX OF HOLDING BLOCK           FTNTEXT  1859
                                        *                            *BIT* INDEX OF HEADER NODE OF LOOP THAT IT  FTNTEXT  1860
                                        *                            IS THE HOLDING BLOCK OF                     FTNTEXT  1861
  
  
  
                                        **        ML. - MOD LIST TABLE ENTRY FORMAT                              FTNTEXT  1863
                                        *                                                                        FTNTEXT  1864
                                        *         *MLT* IS THE *MOD* LIST INDEX TABLE.  *MOD* CONSISTS OF RLIST  FTNTEXT  1865
                                        *         INSTRUCTIONS ( 4 WORDS/INSTRUCTION ), AND THE FIRST ENTRY IS   FTNTEXT  1866
                                        *         A DUMMY *BOS*.                                                 FTNTEXT  1867
                                        *         OPERANDS OF INSTRUCTIONS IN *MOD* WHICH REFERENCE INSTRUCTIONS FTNTEXT  1868
                                        *         IN *SEQ* HAVE BIT 15 OF THE R-NUMBER SET ( R+100000B ) .       FTNTEXT  1869
                                        *                                                                        FTNTEXT  1870
                                        *         FOR FURTHER INFORMATION ONE MAY LOOK AT *MPB* IN *GPO*.        FTNTEXT  1871
                                                                                                                 FTNTEXT  1872
                                                  DESCRIBE ML.,60    MCW(DEL,II,NI,MTI)                          FTNTEXT  1873
                                         DEL      DEFINE 1           DELETE FLAG                                 FTNTEXT  1875
                                                  DEFINE 5                                                       FTNTEXT  1876
                                         II       DEFINE 18          INSERT INDEX ( IN *SEQ* )                   FTNTEXT  1877
                                         NI       DEFINE 18          N. INSTRUCTIONS TO BE INSERTED              FTNTEXT  1878
                                         MTI      DEFINE 18          *MOD* TABLE INDEX                           FTNTEXT  1879
  
  
  
                                        **        T. - TEMP EQUIVALENCE TABLE FORMAT                             FTNTEXT  1881
                                                                                                                 FTNTEXT  1882
                                                  DESCRIBE T.,60     TETW(FLAGS,ITI,BI,CA)                       FTNTEXT  1883
                                         INV      DEFINE 1           =1 IF *INV* TEMP                            FTNTEXT  1884
                                         EQV      DEFINE 1           EQV TO ANOTHER *TET*                        FTNTEXT  1885
                                         FA       DEFINE 1           FINAL ASSIGNMENT OF *CA* ( *POST* )         FTNTEXT  1886
                                         CAL      DEFINE 1           CA FIELD LOCKED                             FCC2392    11
                                                  DEFINE 1                                                       FCC2392    12
                                         BIP      DEFINE 1           BASE MEMBER OF *IP* CLASS                   FTNTEXT  1888
                                         ITI      DEFINE 18          INDEX TO INC FORMULA INFO IN *IIT* ( ^INV ) FTNTEXT  1889
                                         BI       DEFINE 18          INDEX IN BLOCK WHERE *LD* GOES              FTNTEXT  1890
                                         CA       DEFINE 18          BIAS OF TST* ( SET IN SQZ * )               FTNTEXT  1891
                                                                                                                 FTNTEXT  1892
                                         HBN      DEQU   ITI         BN OF HB (LOOP) THAT IT. IS ASSOC WITH      FCC0675     8
                                         REG      DEQU   BI          REGISTER THAT IT IS IN ( *MTA* )            FTNTEXT  1894
                                         IPF      DEQU   ITI,19      *IP* FIELDS                                 FTNTEXT  1895
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    79
        PASS 2 TABLE FORMATS
  
                                        **        LC. - LABEL CHANGE TABLE ( MULTI PREDECESSOR LOOPS )           FCC1319    11
                                                                                                                 FCC1319    12
                                                  DESCRIBE LC.                                                   FCC1319    13
                                                  DEFINE 6                                                       FCC1319    14
                                         NEXT     DEFINE 18          LINK TO NEXT ON CHAIN, 0 IF NONE            FCC1319    15
                                         GLN      DEFINE 18          H FIELD OF GL VALUE OF LABEL                FCC1319    16
                                         HBN      DEFINE 18          BN OF HB THAT LABEL IS DEFINED IN           FCC1319    17
  
  
  
                                        **        DC.   DEBUG (LOADER) CONTROL WORD.                             F66FCC     66
                                        *                                                                        F66FCC     67
                                        *         DC IS A DESCRIPTION OF THE LOADER CONTROL WORD WHICH           F66FCC     68
                                        *         FTN INTERROGATES TO DETERMINE IF *CID* IS *ON* FOR             F66FCC     69
                                        *         THIS COMPILATION.                                              F66FCC     70
                                                                                                                 F66FCC     71
                                                  DESCRIBE DC.,60                                                F66FCC     72
                                                  DEFINE 24                                                      F66FCCA     4
                                         FID      DEFINE 1                                                       F66FCCA     5
  
  
  
  
                                        **        STLTAB - MACRO TO DETERMINE LENGTH OF WEAK EXTERNAL TABLE.     FCCA408    51
                                        *                                                                        FCCA408    52
                                        *         STLTAB NAME                                                    FCCA408    53
                                        *                                                                        FCCA408    54
                                        *         ARGS   *NAME*   = NAME OF *FCL* STATIC LOAD BLOCK.             FCCA408    55
                                                                                                                 FCCA408    56
                                                                                                                 FCCA408    57
                                                  PURGMAC STLTAB                                                 FCCA408    58
                                                                                                                 FCCA408    59
                                         STLTAB   MACRO  NAME                                                    FCCA408    60
                                         S.1      SET    S.1+1                                                   FCCA408    61
                                         STLTAB   ENDM                                                           FCCA408    62
                                                                                                                 FCCA408    63
                                   0     S.1      SET    0                                                       FCCA408    64
                                                                                                                 FCCA408    65
                                                  STLTAB STLCRM.,1                                               STLOAD      8
                                                  STLTAB STLRP2.                                                 STLOAD      9
                                                  STLTAB STLICO.                                                 STLOAD     10
                                                  STLTAB STLOCO.                                                 STLOAD     11
                                                  STLTAB STLIBI.                                                 STLOAD     12
                                                  STLTAB STLOBI.                                                 STLOAD     13
                                                  STLTAB STLIBU.                                                 STLOAD     14
                                                  STLTAB STLOBU.                                                 STLOAD     15
                                                  STLTAB STLBAK.                                                 STLOAD     16
                                                  STLTAB STLENF.                                                 STLOAD     17
                                                  STLTAB STLREW.                                                 STLOAD     18
                                                  STLTAB STLCMM.                                                 FCCA535     9
                                                                                                                 FCCA408    67
                                   7     L.STL    =      S.1-S.1/2*2+S.1/2+1 LENGTH/2 + REMAINDER + EOT          FCCA408    68
                                  14     N.STL    =      S.1                                                     FCCA408    69
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    80
        PASS 2 TABLE FORMATS                                          PASS2TM 
  
                                        **        PASS 2 TABLE MANAGER MACRO DEFINITIONS                         FTNTEXT  1897
                                                                                                                 FTNTEXT  1898
                                         PASS2TM  MACRO                                                          FTNTEXT  1899
                                                                                                                 FTNTEXT  1900
                                        **        ADDWRD - ADD WORD TO MANAGED TABLE.                            FTNTEXT  1901
                                        *                                                                        FTNTEXT  1902
                                        *         ADDWRD TABLE,REG                                               FTNTEXT  1903
                                        *         ENTRY  *TABLE* = TABLE NUMBER.                                 FTNTEXT  1904
                                        *                *REG* = REGISTER NAME OR EXPRESSION FOR WORD TO ADD.    FTNTEXT  1905
                                        *         USES   A0, X1.                                                 FTNTEXT  1906
                                                                                                                 FTNTEXT  1907
                                                  PURGMAC ADDWRD                                                 FTNTEXT  1908
                                         ADDWRD   MACRO  A,B                                                     FTNTEXT  1909
                                                  R=     X1,B                                                    FTNTEXT  1910
                                                  R=     A0,=XZ.A                                                FTNTEXT  1911
                                                  RJ     =XADW=                                                  FTNTEXT  1912
                                         ADDWRD   ENDM                                                           FTNTEXT  1913
                                                                                                                 FTNTEXT  1914
                                        **        ALLOC - ALLOCATE TABLE SPACE.                                  FTNTEXT  1915
                                        *                                                                        FTNTEXT  1916
                                        *         ALLOC  TABLE,WORDS                                             FTNTEXT  1917
                                        *         ENTRY  *TABLE* = TABLE NUMBER.                                 FTNTEXT  1918
                                        *                *WORDS* = WORD COUNT OF TABLE.                          FTNTEXT  1919
                                                                                                                 FTNTEXT  1920
                                                  PURGMAC ALLOC                                                  FTNTEXT  1921
                                         ALLOC    MACRO  A,B                                                     FTNTEXT  1922
                                                  R=     X1,B                                                    FTNTEXT  1923
                                                  R=     A0,=XZ.A                                                FTNTEXT  1924
                                                  RJ     =XATS=                                                  FTNTEXT  1925
                                         ALLOC    ENDM                                                           FTNTEXT  1926
                                                                                                                 FTNTEXT  1927
                                        **        PROCESS - DEFINE PROCESSOR ADDRESSES FOR LIST OF NAMES         FTNTEXT  1928
                                        *                                                                        FTNTEXT  1929
                                        *         PROCESS (A,B,C,...,Z)                                          FTNTEXT  1930
                                                                                                                 FTNTEXT  1931
                                                  PURGMAC PROCESS                                                FTNTEXT  1932
                                         PROCESS  MACRO  P                                                       FTNTEXT  1933
                                                  IRP    P                                                       FTNTEXT  1934
                                                  NOREF  .P                                                      FTNTEXT  1935
                                         .P       BSS    0                                                       FTNTEXT  1936
                                                  IRP                                                            FTNTEXT  1937
                                         PROCESS  ENDM                                                           FTNTEXT  1938
                                                                                                                 FTNTEXT  1939
                                                  B1=1                                                           FTNTEXT  1940
                                                  NOREF  .B,.D,.L,.P,.Z,.1                                       FTNTEXT  1941
                                         Z.TXT    EQU    1                                                       FTNTEXT  1942
                                         O.SYM    EQU    12B         POINTER TO FWA OF SYMTAB                    FTNTEXT  1943
                                                  PURGMAC  ADEXTS,ADDREF,SYMBOL,WRM,CFO,CALLF,POSTER,LOADX       FTNTEXT  1944
                                                                                                                 FTNTEXT  1945
                                         PASS2TM  ENDM                                                           FTNTEXT  1946
                                                                                                                 FTNTEXT  1947
             0                                    END                                                            FTNTEXT  1948
  
                             53700B CM  STORAGE USED             5970 STATEMENTS      619 SYMBOLS      000002 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.858 SECONDS         672 REFERENCES
  
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    81
        SYMBOLIC REFERENCE TABLE. 
  
        AP.CAIHL       44                  74/01 D
        AP.CAIHP        0                  74/01 D
        AP.CAL         22                  73/54 D
        AP.CAP         22                  73/54 D
        AP.CRP         66                  73/52 D
        AP.IHL         22                  73/55 D
        AP.IHP          0                  73/55 D   74/01
        AP.IOP         73                  73/57 D
        AP.P1P         71                  73/50 D
        AP.STP         73                  73/48 D   73/57
        AP.USEP        72                  73/49 D
        ARLSZ        3200                  11/05 D
        BI.BVIL        22                  78/14 D
        BI.BVIP         0                  78/14 D
        BI.CBP         72                  78/05 D
        BI.FJP         70                  78/07 D
        BI.FLNL        22                  78/13 D   78/17
        BI.FLNP        22                  78/13 D   78/17
        BI.FTHP        65                  78/10 D
        BI.HNP         66                  78/09 D
        BI.ILP         71                  78/06 D
        BI.LJPP        67                  78/08 D
        BI.OLNL        17                  78/11 D
        BI.OLNP        46                  78/11 D
        BI.PBNL        22                  78/17 D
        BI.PBNP        22                  78/17 D
        BI.PCL          2                  78/12 D
        BI.PCP         44                  78/12 D   78/16
        BI.PIIL        21                  78/16 D
        BI.PIIP        44                  78/16 D
        BI.RBP         73                  78/04 D
        CONSTORS      454                  10/44 D
        CP#RM           0                  13/03 F   13/04 D   29/01 F   32/01 F   35/01 F
        CT.CPU        111                   5/36 D   12/35 F
        CT.ECS          1                  13/11 F   13/13 D
        CT.7X           1                   5/44 D
        DC.FIDP        43                  79/19 D
        D.ARL           2                  71/47 D
        D.ARP          25                  71/47 D
        D.BMP          52                  71/11 D
        D.CMP          31                  71/33 D
        D.ECJP         45                  71/20 D
        D.EQVP         65                  71/53 D
        D.FPP          25                  71/36 D   71/47
        D.FTL           5                  71/06 D
        D.FTP          65                  71/06 D   71/53
        D.F1L           4                  71/09 D
        D.F1P          57                  71/09 D
        D.F2L           4                  71/10 D
        D.F2P          53                  71/10 D
        D.INCP         22                  71/39 D
        D.JFTP         34                  71/29 D
        D.JPP          41                  71/24 D   71/48
        D.KSP          37                  71/26 D
        D.LDP          43                  71/22 D
        D.LDSTL         2                  71/45 D
        D.LDSTP        42                  71/45 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    82
        SYMBOLIC REFERENCE TABLE. 
  
        D.LSJL          3                  71/48 D
        D.LSJP         41                  71/48 D
        D.L2P          44                  71/21 D
        D.MUCP         35                  71/28 D
        D.NRP          64                  71/07 D
        D.PIP          36                  71/27 D
        D.PRSP         46                  71/19 D   71/46
        D.PSP          47                  71/18 D
        D.REGWL        11                  71/40 D
        D.REGWP        11                  71/40 D
        D.RFP          23                  71/38 D
        D.RJRSP        50                  71/17 D   71/49
        D.SRP          26                  71/35 D
        D.STP          42                  71/23 D   71/45
        D.STRSL         2                  71/46 D
        D.STRSP        46                  71/46 D
        D.SZL           2                  71/34 D
        D.SZP          27                  71/34 D
        D.TYIOL         2                  71/49 D
        D.TYIOP        50                  71/49 D
        D.TYL           2                  71/05 D
        D.TYP          72                  71/05 D
        D.USESL        11                  71/41 D
        D.USESP         0                  71/41 D
        D.USIP         33                  71/31 D
        D.XMTP         40                  71/25 D
        D.XUP          24                  71/37 D
        D.ZPP          32                  71/32 D
        D.^DP          51                  71/12 D
        EL.AND         10                  67/43 D
        EL.COMMA        3                  67/38 D
        EL.CON          0                  67/35 D
        EL.DSTR        24                  67/55 D
        EL.EOS          4                  67/39 D
        EL.EQ          17                  67/50 D
        EL.GE          14                  67/47 D
        EL.GT          15                  67/48 D
        EL.ID           1                  67/36 D
        EL.LE          12                  67/45 D
        EL.LT          13                  67/46 D
        EL.MINUS       20                  67/51 D
        EL.NE          16                  67/49 D
        EL.NOT         11                  67/44 D
        EL.OR           7                  67/42 D
        EL.PLUS        21                  67/52 D
        EL.SLASH       23                  67/54 D
        EL.STAR        22                  67/53 D
        EL.S)          25                  67/56 D
        EL.(            6                  67/41 D
        EL.)            2                  67/37 D
        EL.=            5                  67/40 D
        ERRMAX        144                  12/09 D
        FI.FTL          6                  74/08 D
        FI.FTP         66                  74/08 D
        FI.INDXL       22                  74/12 D
        FI.INDXP        0                  74/12 D
        FI.LENL        22                  74/11 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        FI.LENP        22                  74/11 D
        FI.REGPL       22                  74/10 D
        FI.REGPP       44                  74/10 D
        IH.BMP         71                  72/44 D
        IH.CAIHL       44                  72/55 D
        IH.CAIHP        0                  72/55 D
        IH.CAL         22                  72/50 D
        IH.CAP         22                  72/50 D
        IH.HL          17                  72/52 D
        IH.HP           0                  72/52 D   72/53     72/55
        IH.ICVL        22                  74/21 D
        IH.ICVP         0                  74/21 D
        IH.IHL         22                  72/53 D
        IH.IHP          0                  72/53 D
        IH.IL           3                  72/51 D
        IH.IP          17                  72/51 D
        IH.LCM      40000                  73/01 D
        IH.LCMA     20000                  72/57 D
        IH.LDP         73                  72/42 D
        IH.RFL         22                  72/49 D
        IH.RFP         44                  72/49 D
        IH.SIAP        67                  72/46 D
        IH.SRFP        66                  72/48 D
        IH.STKP        73                  74/19 D
        IH.STP         72                  72/43 D
        IP.MFL     140000                   5/33 D
        IX.CAIHL       44                  74/33 D
        IX.CAIHP        0                  74/33 D
        IX.CAL         22                  74/30 D
        IX.CAP         22                  74/30 D
        IX.IHL         22                  74/31 D
        IX.IHP          0                  74/31 D   74/33
        IX.MCL         22                  74/29 D
        IX.MCP         44                  74/29 D
        IX.SUBL         6                  74/28 D
        IX.SUBP        66                  74/28 D
        I.AP       200000                  73/10 D
        I.CBSET         5                  29/19 D
        I.DT            1                  29/14 D
        I.FET           0                  29/12 D
        I.FIRST         1                  29/13 D
        I.GL       100000                  73/09 D
        I.IN            2                  29/15 D
        I.IO       300000                  73/11 D
        I.LIMIT         4                  29/17 D
        I.OUT           3                  29/16 D
        I.PRU           4                  29/18 D
        I.RAN1          6                  29/20 D
        I.RAN2          7                  29/21 D
        JC.DF           6                  77/48 D
        JC.EQ           0                  77/53 D
        JC.GE           2                  77/53 D
        JC.ID           7                  77/48 D
        JC.IR           5                  77/48 D
        JC.LT           3                  77/53 D
        JC.MI           3                  77/48 D
        JC.NE           1                  77/53 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        JC.NZ           1                  77/48 D
        JC.OR           4                  77/48 D
        JC.PL           2                  77/48 D
        JC.ZR           0                  77/48 D
        LC.GLNL        22                  79/06 D
        LC.GLNP        22                  79/06 D
        LC.HBNL        22                  79/07 D
        LC.HBNP         0                  79/07 D
        LC.NEXTL       22                  79/05 D
        LC.NEXTP       44                  79/05 D
        LDRCALL         3                  13/07 F   13/08 D
        LDRTABL        66                  13/29 F   13/30 D   13/32 F   13/36 F
        LDR.NN          5                  13/38 D
        LDR.00         11                  13/37 D
        L.ADF          33                  62/42 D
        L.DBGI         20                  63/04 D
        L.DIF           4                  62/50 D   63/04
        L.DIMP         14                  61/57 D
        L.DLN          14                  64/01 D   64/11
        L.DTO          14                  63/01 D   63/04
        L.FARG          6                  63/09 D
        L.FCLX          6                  10/18 D   10/19
        L.FIT6         51                  10/19 D
        L.FIT7         20                  10/25 D
        L.FLG           7                  64/08 D
        L.FMODE         5                  62/14 D
        L.FTYP          2                  63/18 D
        L.IOBUF6     2003                  10/20 D
        L.IOBUF7        0                  10/26 D
        L.LCO          14                  61/26 D
        L.LOR          14                  63/52 D
        L.LVL           2                  62/24 D
        L.NAME         52                  61/06 D
        L.PAGE        124                  12/01 D
        L.RA           22                  62/33 D   62/42
        L.RB            7                  62/36 D   62/42
        L.RL            2                  62/29 D   62/42
        L.SLD           2                  63/38 D
        L.SNT           3                  62/47 D
        L.STACK         0                  14/54 D
        L.STL           7                  79/52 D
        L.TIN         101                  10/21 D
        L.TOUT        401                  10/22 D
        L.TRO          14                  63/55 D
        L.TTLN         14                  64/11 D
        L.TYP           4                  61/31 D
        MAN.FL      32000                  11/36 D
        MAN.LINP      124                  11/41 D   12/01
        MAN.XJP        51                  11/46 D
        ML.DELP        73                  78/34 D
        ML.IIL         22                  78/36 D
        ML.IIP         44                  78/36 D
        ML.MTIL        22                  78/38 D
        ML.MTIP         0                  78/38 D
        ML.NIL         22                  78/37 D
        ML.NIP         22                  78/37 D
        MXFRSTB       132                  10/56 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        MXOSE         240                  10/50 D
        M.FNCHK        23                  63/45 D
        M.NCB         177                  62/39 D
        NOINVERT        0                  11/26 D
        N.STL          14                  79/53 D
        OC.AND         11                  76/27 D
        OC.BOS          1                  76/18 D
        OC.CLR        102                  77/31 D
        OC.CX          47                  76/57 D
        OC.DAR          3                  76/20 D
        OC.DEF          5                  76/22 D
        OC.DFA         32                  76/44 D
        OC.DFM         42                  76/52 D
        OC.DFS         33                  76/45 D
        OC.DRL         64                  77/14 D
        OC.DWL         65                  77/15 D
        OC.ENT          7                  76/24 D
        OC.EOQ          0                  76/17 D
        OC.EOS          2                  76/19 D
        OC.EQV         17                  76/33 D
        OC.FA          30                  76/42 D
        OC.FD          44                  76/54 D
        OC.FM          40                  76/50 D
        OC.FMA         43                  76/53 D
        OC.FS          31                  76/43 D
        OC.IA          36                  76/48 D
        OC.IAZ         77                  77/28 D
        OC.ILD         74                  77/25 D
        OC.ILS         22                  76/36 D
        OC.IM         101                  77/30 D
        OC.IMP         16                  76/32 D
        OC.IRS         23                  76/37 D
        OC.IS          37                  76/49 D
        OC.ISZ        100                  77/29 D
        OC.JIN         70                  77/20 D
        OC.JPBB        67                  77/18 D
        OC.JPX         66                  77/17 D
        OC.KLS         20                  76/34 D
        OC.KRS         21                  76/35 D
        OC.LAB          6                  76/23 D
        OC.LD          50                  77/02 D
        OC.NOP         46                  76/56 D
        OC.NR          24                  76/38 D
        OC.OR          12                  76/28 D
        OC.PK          27                  76/41 D
        OC.PLD         53                  77/05 D
        OC.PST         54                  77/06 D
        OC.RFA         34                  76/46 D
        OC.RFD         45                  76/55 D
        OC.RFM         41                  76/51 D
        OC.RFS         35                  76/47 D
        OC.RJ3         71                  77/21 D
        OC.RJ6         72                  77/22 D
        OC.RNZ         25                  76/39 D
        OC.RS           4                  76/21 D
        OC.S           55                  77/07 D
        OC.SA          60                  77/10 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        OC.SDL         61                  77/11 D
        OC.SDS         62                  77/12 D
        OC.SLD         56                  77/08 D
        OC.SS          63                  77/13 D
        OC.SST         57                  77/09 D
        OC.ST          51                  77/03 D
        OC.STR         15                  76/31 D
        OC.STT         52                  77/04 D
        OC.SXT        103                  77/32 D
        OC.TLD         75                  77/26 D
        OC.TST         76                  77/27 D
        OC.UJP         73                  77/23 D
        OC.UP          26                  76/40 D
        OC.XMT         10                  76/26 D
        OC.XMTC        14                  76/30 D
        OC.XOR         13                  76/29 D
        OT.7X           1                  14/56 D
        OT#RM           6                  15/21 F   15/22 D
        PW.TTY        110                   9/06 D
        P.AC           42                  62/55 D
        P.ADF          14                  62/41 D
        P.ASF          67                  61/52 D
        P.BEF          52                  63/13 D   63/17
        P.COM          16                  61/16 D
        P.DBGI         23                  63/03 D
        P.DEF          20                  61/10 D
        P.DFN          63                  63/31 D   63/37
        P.DIF          37                  62/49 D   62/52     62/53     62/54     62/55
        P.DIM          15                  61/19 D
        P.DIMP         51                  61/56 D   62/13
        P.DLN          44                  63/57 D
        P.DLT          60                  63/35 D   63/46
        P.DSN          64                  63/30 D
        P.DTO          23                  62/57 D   63/03
        P.EQU          14                  61/22 D
        P.EST          65                  61/54 D
        P.EXT          66                  61/53 D
        P.FARG         56                  63/08 D
        P.FCALL        47                  63/15 D
        P.FLG          60                  64/07 D
        P.FMODE        51                  62/13 D
        P.FNCHK        60                  63/46 D
        P.FP           21                  61/08 D
        P.FPB           0                  62/21 D
        P.FTYP         52                  63/17 D
        P.FUN          17                  61/13 D
        P.GEN          67                  63/22 D
        P.IF           40                  62/53 D
        P.INF          51                  63/14 D
        P.IOF          53                  63/12 D
        P.LC           17                  61/25 D
        P.LCM           1                  62/20 D
        P.LDO          11                  62/08 D
        P.LIB          55                  63/11 D
        P.LOCF          4                  62/18 D
        P.LOR          14                  63/50 D
        P.LVL           2                  62/23 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    87
        SYMBOLIC REFERENCE TABLE. 
  
        P.NAME         22                  61/05 D
        P.NFU           5                  62/16 D
        P.NOT          37                  62/52 D
        P.RA           23                  62/32 D
        P.RAS          61                  63/33 D
        P.RB           14                  62/35 D   62/41
        P.RFN          62                  63/32 D
        P.RL           45                  62/28 D
        P.RSN          65                  63/28 D
        P.RZ           66                  63/27 D
        P.SCA          13                  62/02 D
        P.SF           41                  62/54 D
        P.SLD          63                  63/37 D
        P.SNT          43                  62/46 D
        P.SUB          12                  62/05 D
        P.TRO          30                  63/54 D
        P.TTLN         30                  64/10 D
        P.TYP          70                  61/30 D
        P.VAR          50                  62/11 D
        RF.MV      200000                  73/03 D
        RM.CAL         22                  65/05 D
        RM.IHL         36                  65/03 D
        RM.RIL         20                  65/04 D
        RT.BR           0                  73/40 D
        RT.XR           2                  73/41 D
        R1.CAL         22                  72/29 D
        R1.CAP         36                  72/29 D
        R1.H2L         14                  72/30 D
        R1.H2P         22                  72/30 D
        R1.IHL         22                  72/31 D
        R1.IHP          0                  72/31 D
        R1.INL         22                  72/16 D
        R1.INP         36                  72/16 D
        R1.OCL         14                  72/08 D   72/28 D
        R1.OCP         60                  72/08 D   72/28 D
        R1.RIL         20                  72/11 D
        R1.RIP          0                  72/11 D
        R1.RJL         20                  72/09 D
        R1.RJP         40                  72/09 D   72/16
        R1.RKL         20                  72/10 D
        R1.RKP         20                  72/10 D
        R1.SOL         16                  72/17 D
        R1.SOP         20                  72/17 D
        SO.INVCP       11                  73/21 D
        SO.INVP        10                  73/22 D
        SO.LKL          2                  73/23 D
        SO.LKP          6                  73/23 D
        SO.LOCK       200                  73/37 D
        SO.REGL         6                  73/31 D
        SO.REGP         0                  73/31 D
        SO.RJLK       300                  73/38 D
        SO.RNL          3                  73/30 D
        SO.RNP          0                  73/30 D   73/31
        SO.RTL          3                  73/29 D
        SO.RTP          3                  73/29 D
        SO.SFLP        12                  73/20 D
        SO.TLOCK      100                  73/34 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    88
        SYMBOLIC REFERENCE TABLE. 
  
        S.GCON        310                  11/11 D
        S.1            14                  79/37 D   79/40 D   79/42 D   79/44 D   79/46 D   79/48 D   79/50 D
                                           79/39     79/41     79/43     79/45     79/47     79/49     79/52
                                           79/39 D   79/41 D   79/43 D   79/45 D   79/47 D   79/49 D   79/53
                                           79/40     79/42     79/44     79/46     79/48     79/50
        TEST            0                  15/32 D   47/41 F
        T.BIL          22                  78/52 D   78/56
        T.BIP          22                  78/52 D   78/56
        T.BIPP         66                  78/50 D
        T.CAL          22                  78/53 D
        T.CALP         70                  78/48 D
        T.CAP           0                  78/53 D
        T.CGS          14                  61/48 D
        T.CPLX          4                  61/37 D
        T.DBG          17                  61/49 D
        T.DBL           3                  61/36 D
        T.ECS           5                  61/42 D
        T.ENT          12                  61/46 D
        T.EQVP         72                  78/46 D
        T.FAP          71                  78/47 D
        T.HBNL         22                  78/55 D
        T.HBNP         44                  78/55 D
        T.HOL           6                  61/41 D
        T.ILL           5                  61/39 D
        T.INT           1                  61/34 D
        T.INVP         73                  78/45 D
        T.IPFL         23                  78/57 D
        T.IPFP         44                  78/57 D
        T.ITIL         22                  78/51 D   78/55
        T.ITIP         44                  78/51 D   78/55     78/57
        T.LAB           6                  61/43 D
        T.LFN          13                  61/47 D
        T.LOG           0                  61/33 D
        T.NML          10                  61/45 D
        T.OCT           5                  61/38 D
        T.REAL          2                  61/35 D
        T.REGL         22                  78/56 D
        T.REGP         22                  78/56 D
        T.RTN           7                  61/44 D
        V.COM       40000                  61/17 D
        V.DEF      200000                  61/11 D
        V.DIM       20000                  61/20 D
        V.EQU       10000                  61/23 D
        V.FUN      100000                  61/14 D
        V.LDO        1000                  62/09 D
        V.OPT         127                  64/03 D
        V.SCA        4000                  62/03 D
        V.SUB        2000                  62/06 D
        ZZ.COM          2                  11/53 D
        ZZ.DIM          3                  11/54 D
        ZZ.SYM          1                  11/52 D
        )ZZ            20                  63/43 D   63/45
        )ZZ1            2                  63/44 D   63/45
        .CDCLIB         1                   7/53 D
        .CPU          111                  14/25 D   15/05 F
        .DAL            1                  14/55 D
        .FID            1                  13/18 F   13/19 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        .IWT            0                   6/44 D
        .LKP          100                  73/33 D   73/34     73/37     73/38
        .NRFCO          1                  14/57 D
        .OS             1                   5/43 D
        .OT             1                   5/38 D    5/43
        .OVL            1                   8/13 D
        .PLI            0                   1/37 D
        #NL             1                  10/07 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  IPARAM
  
  
        CT7X            1                   5/12 D    5/44
        DAL             1                  14/45 D   14/55
        IP.ACNT         0                   5/09 D
        IP.ARCH         1                   5/09 D
        IP.BCFAP        2                   5/09 D
        IP.CC7          1                   5/09 D
        IP.CHTIM        1                   5/09 D
        IP.CMU          0                   5/09 D   14/28 D
        IP.CP           6                   5/09 D
        IP.CPLM         5                   5/09 D
        IP.CR         105                   5/09 D
        IP.CSET         0                   5/09 D   14/28 D
        IP.C176         0                   5/09 D
        IP.C63          2                   5/09 D
        IP.C64.1        0                   5/09 D    5/09     14/28
        IP.C64.2        1                   5/09 D
        IP.DBAL      3777                   5/09 D
        IP.DEBUG        1                   5/09 D
        IP.ECSB         0                   5/09 D
        IP.FT           1                   5/09 D   14/28 D
        IP.HT           0                   5/09 D    5/09     14/28 D
        IP.IACES       13                   5/09 D
        IP.IDFM         1                   5/09 D
        IP.ILCMD        1                   5/09 D
        IP.ILR          0                   5/09 D
        IP.IMUL         1                   5/09 D
        IP.INTCM        1                   5/09 D
        IP.IOLM       100                   5/09 D
        IP.IQD          6                   5/09 D
        IP.IQPW         3                   5/09 D
        IP.IUSID      201                   5/09 D
        IP.LINK         1                   5/09 D
        IP.LVF         70                   5/09 D
        IP.MCPU         1                   5/09 D
        IP.MECS         1                   5/09 D   13/12 F   13/13     14/28 D
        IP.MFL     140000                   5/09 D    5/33
        IP.MMS        100                   5/09 D
        IP.MPPU        12                   5/09 D
        IP.MPR         20                   5/09 D
        IP.MREWR        0                   5/09 D
        IP.MSCT         0                   5/09 D
        IP.MSLM       200                   5/09 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    90
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        IP.MTL      77777                   5/09 D
        IP.NDFS         1                   5/09 D
        IP.NJFL        20                   5/09 D
        IP.OPRI         0                   5/09 D
        IP.OQD         10                   5/09 D
        IP.PD           6                   5/09 D
        IP.PFAC         0                   5/09 D
        IP.PFRP         5                   5/09 D
        IP.POSFL        5                   5/09 D
        IP.PPS2X        2                   5/09 D
        IP.PS          74                   5/09 D
        IP.RM           0                   5/09 D
        IP.RPMAX     1747                   5/09 D
        IP.RTMTR        0                   5/09 D
        IP.SCHDE        0                   5/09 D
        IP.SECS         0                   5/09 D
        IP.SEP          1                   5/09 D
        IP.SFL      50000                   5/09 D
        IP.SIDLE        1                   5/09 D
        IP.SIOL         0                   5/09 D
        IP.SMS          0                   5/09 D
        IP.SPR         10                   5/09 D
        IP.SPT          0                   5/09 D
        IP.SRMS         0                   5/09 D
        IP.STL        100                   5/09 D
        IP.TCPUB        4                   5/09 D
        IP.TF           0                   5/09 D
        IP.TYPE     14710                   5/09 D
        IP.UP          10                   5/09 D
        IP.US           0                   5/09 D
        IP.XJ           1                   5/09 D
        IP.1M1          3                   5/09 D
        IP.1WB          2                   5/09 D
        IP.1ZZ          0                   5/09 D
        IP.819          0                   5/09 D
        LSTACK    7777776                  14/32 D   14/54
        OT7X            1                  14/49 D   14/56
        PR.BATCH        1                   5/09 D    5/09
        PR.IDLE         0                   5/09 D   14/28 D
        PR.INT          2                   5/09 D    5/09
        PR.SCP          3                   5/09 D    5/09
        PR.SYS          4                   5/09 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  FUNIT 
  
  
        BJUMP          11                  75/41 D
        BOOL            2                  75/33 D
        BRANCH          1                  75/32 D
        DIVIDE         10                  75/38 D   75/44
        FADD            5                  75/36 D
        IADD            4                  75/35 D   75/42
        INC            11                  75/39 D   75/41
        LCM            12                  75/43 D
1       F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT              COMPASS 3.7-871.     24/05/02. 15.50.28.      PAGE    91
        SYMBOLIC REFERENCE TABLE.                                     FUNIT 
  
        MULT            6                  75/37 D
        NORM            3                  75/40 D
        PACK            3                  75/45 D
        POPC           10                  75/44 D
        SHIFT           3                  75/34 D   75/40     75/45
        XJUMP           4                  75/42 D
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2373              IDENT  FTN
                       2373                       END    FTN
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        FTNRES    LOCAL           0       367 
                                        FTNINIT   LOCAL         367      1523 
                                        CCMSG     LOCAL        2112       261 
                                        COMPCOM   COMMON          0       137 
  
  
                                        ENTRY POINTS. 
  
                                        LB.LGO         201            GL.IND         111+           LCM.MM         171+ 
                                        LB.RMAP        201            GL.SYM         112+           LCM.MU         172+ 
                                        LB.LF          201            INT.FL         113+           LCM.FL          71+/COMPCOM/
                                        CP.ERCT          3+/COMPCOM/  JOT            114+           GT1             23+/COMPCOM/
                                        CP.FLIN         25+/COMPCOM/  LASTREC        115+           GT2             24+/COMPCOM/
                                        CP.LSTF          4+/COMPCOM/  LCP.PS         116+           L.MAXCD         12
                                        FL              67+/COMPCOM/  RS.PD          117+           OVLA           173+ 
                                        CP.IFMT         16+/COMPCOM/  LDPT          2777            OVLB           174+ 
                                        AMODE           16+/COMPCOM/  LGOIO          121+           OVL10          175+ 
                                        CP.BUF          27+/COMPCOM/  L.GCON         122+           OVL20          176+ 
                                        CO.ABT           2+/COMPCOM/  MACFLAG        123+           OVL21          177+ 
                                        CP.MXFL         14+/COMPCOM/  MAX.FL         124+           OVL22          200+ 
                                        COMRET          21+/COMPCOM/  MAX.RL         125+           OVL23          201+ 
                                        CP.AFLS         67+/COMPCOM/  O.GCON         126+           OVL24          202+ 
                                        CP.BLF           7+/COMPCOM/  PR.MXFL        127+           OVL25          203+ 
                                        CP.CARD         27+/COMPCOM/  W.TABS         130+           O.TITL         206+ 
                                        CP.CPU          13+/COMPCOM/  CER.FL         131+           TL.JECT        206+ 
                                        CP.MODL         73+/COMPCOM/  PDFLAG         132+           TL.PTYP        207+ 
                                        CP.NFLS         70+/COMPCOM/  CAFLAG         133+           TL.PNAM        210+ 
                                        CP.PAGE          5+/COMPCOM/  CBNFLG         134+           TL.CCOP        212+ 
                                        CP.PD           10+/COMPCOM/  CCFLAG         135+           O.TTLA         215+ 
                                        CP.PS           11+/COMPCOM/  CO.EDT         136+           TL.DATE        217+ 
                                        CP.PW           12+/COMPCOM/  CO.ER          137+           TL.TIME        220+ 
                                        SYS=             2+           CO.ID          140+           TL.PAGE        222+ 
                                        RCL=            15+           CO.MODE        141+           L.TITL          15
                                        WNB=            21+           CO.OLVL        142+           L.TTLA           5
                                        MSG=            31+           CO.REW         143+           L.TTLB           5
                                        MIN.TFL      40000            CO.RND         144+           LDCOM          223+ 
                                        NOM.TFL      44000            CO.SNAP        145+           LOVER          233+ 
                                        F.IN            77+/COMPCOM/  CO.STA         146+           ENDFTN         266+ 
                                        F.OUT          107+/COMPCOM/  CO.TBK         134+           SCRTBL         322+ 
                                        F.LGO          127+/COMPCOM/  DFLAG          150+           REALDEC        330+ 
                                        F.ERRS         117+/COMPCOM/  DIRECT         151+           CPTIM          344+ 
                                        F.CMPS          37+           F.LFN          152+           TIMER          351+ 
                                        F.RLST          47+           LOP=F          154+           TIME0          361+ 
                                        F.LF            47+           LOP=N          155+           TIME1          362+ 
                                        F.RMAP          57+           LOP=1          156+           FTN4           367+ 
                                        F.OPT           67+           PMDFLAG        157+           FTN            367+ 
                                        F.DEBUG         67+           OT.RM          160+           FV.IN            2
                                        OUTPUT#        107+/COMPCOM/  PLIMIT         161+           FV.OUT           3
                                        LSTMSTR         77+           QFLAG          162+           FV.LGO           4
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        L.MSTR           6            ROPFLAG        144+           FV.ERRS          5
                                        MLOP=O         102+           SLIST          163+           FV.CMPS          6
                                        MLOP=R         103+           SPPFLAG        164+           FV.RLST          7
                                        MLOP=X          77+           UFLAG          165+           FV.RMAP         10
                                        F.TABS         106+           UOFLAG         166+           FV.OPT          11
                                        GL.DRL         107+           ZFLAG          167+           FVLEN           10
                                        GL.DVL         110+           LCM.OA         170+           O.XPINB        470+ 
  
  
  
  
                                                  IDENT  FTN                                                     FTN         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                                                                                 FTNRES      2
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FCCA489     8
                                        *                            VALID ONLY FOR NOS,NOS-BE                   FCCA489     9
                                                  LDSET  EPT=FTN                                                 FCCA489    10
                                                  LDSET  EPT=FTN4                                                FCCA489    11
                                         #OS      ENDIF                                                          FCCA489    12
                                                                                                                 FTNRES      3
                                                  LIST   F,X                                                     FTNRES      4
                                                                                                                 FTNRES      5
  
  
  
                                        ***                                                                      FTNRES      7
                                        *         CONTROL DATA PROPRIETARY PRODUCT.                              FTNRES      8
                                        *         COPYRIGHT CONTROL DATA CORP. 1973,1974,1975,1976,1977          FCC*79      4
                                        *         COPYRIGHT CONTROL DATA CORP. 1978,1979,1980,1981,1982          FCC*82      5
  
  
  
                                        ***                                                                      FTNRES     11
                                        *         FTN - 0.0 OVERLAY OF THE FORTRAN EXTENDED COMPILER             FTNRES     12
                                        *                                                                        FTNRES     13
                                        *         FUNCTIONS                                                      FTNRES     14
                                        *                SYSTEM INTERFACE AND I/O SUBROUTINES                    FTNRES     15
                                        *                CONTROL CARD CRACKER                                    FTNRES     16
                                        *                COMPILER INITIALIZATION                                 FTNRES     17
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     3
        INSTALLATION OPTIONS
  
                                        ***       COMPILER INSTALLATION OPTIONS.                                 FTNRES     19
                                        *                                                                        FTNRES     20
                                        *         THE FOLLOWING OPTIONS MAY BE CHANGED TO MEET INSTALLATION      FTNRES     21
                                        *         NEEDS.  THEY ARE LOCATED HERE (RATHER THAN IN THE -OPTIONS-    FTNRES     22
                                        *         COMDECK) TO REDUCE THE SIZE OF THE GLOBAL ASSEMBLY TEXT        FTNRES     23
                                        *         -FTNTEXT- AND MINIMIZE THE FIELD LENGTH NEEDED FOR ASSEMBLY.   FTNRES     24
  
  
  
  
                                        ***       COMPILER CONFIGURATION.                                        FTNRES     26
                                        *                                                                        FTNRES     27
                                        *                                                                        FTNRES     28
                                        *         FTN CAN BE ASSEMBLED IN A *SYSTEM* OR A *TEST* CONFIGURATION.  FTNRES     29
                                        *                                                                        FTNRES     30
                                        *         THE SYSTEM CONFIGURATION IS STANDARD, AND IS INTENDED FOR      FTNRES     31
                                        *         CUSTOMER INSTALLATION.                                         FTNRES     32
                                        *                                                                        FTNRES     33
                                        *         THE TEST CONFIGURATION IS INTENDED FOR COMPILER INTERNAL       FTNRES     34
                                        *         DEBUGGING.  IT IS NOT STRUCTURED FOR SYSTEM INSTALLATION,      FTNRES     35
                                        *         REQUIRES MORE FIELD LENGTH, AND COMPILES MORE SLOWLY IN THIS   FTNRES     36
                                        *         MODE.  THUS, IT IS NEITHER SUITED TO NOR INTENDED FOR USE BY   FTNRES     37
                                        *         CUSTOMERS.  CONTROL DATA CORP. WILL NOT BE RESPONSIBLE FOR     FTNRES     38
                                        *         DEFICIENCIES IN TEST MODE COMPILER PERFORMANCE.                FTNRES     39
                                        *                                                                        FTNRES     40
                                        *         COMPILER CONFIGURATION IS CONTROLLED BY THE DEFINITION OR      FTNRES     41
                                        *         UNDEFINITION OF THE *UPDATE* SYMBOL -TESTFTN- AT COMPILER      FTNRES     42
                                        *         INSTALLATION TIME.  NON-STANDARD PROCEDURES ARE NECESSARY FOR  FTNRES     43
                                        *         INSTALLATION IN THE TEST CONFIGURATION.                        FTNRES     44
                                        *                                                                        FTNRES     45
                                        *         TEST CONFIGURATION FEATURES ARE ...                            FTNRES     46
                                        *                                                                        FTNRES     47
                                        *         A) IT WILL LOAD FROM A LOCAL FILE.                             FTNRES     48
                                        *                                                                        FTNRES     49
                                        *         B) THE REGISTER SNAP ROUTINES WILL BE ASSEMBLED INTO THE       FTNRES     50
                                        *            1.0 AND 2.0 OVERLAYS.                                       FTNRES     51
                                        *                                                                        FTNRES     52
                                        *         C) THE CONTENTS OF THE SYMBOL TABLE WILL BE DUMPED TO THE      FTNRES     53
                                        *            LOCAL FILE "SYMTAB" AT THE END OF PASS 1 ( BEFORE END       FTNRES     54
                                        *            PROCESSING ) AND AT THE END OF PASS 2 ( BEFORE REFMAP ).    FTNRES     55
                                        *            THE UTILITY PROGRAM "RDUMP" MAY BE USED TO PRINT IT OUT.    FTNRES     56
                                        *                                                                        FTNRES     57
                                        *         D) CODE FOR THE SPY OPTION WILL BE ASSEMBLED.                  FTNRES     58
                                        *            SPY=NNNB OR SPY, -- SET BIN WIDTH FOR PPU ROUTINE SPY AND   FTNRES     59
                                        *            HAVE IT SPY ON THE COMPILER OVERLAY BY OVERLAY.             FTNRES     60
                                        *            AT THE END OF COMPILATION "FTN" WILL CALL "PRNSPY" TO       FTNRES     61
                                        *            PRINT OUT THE HISTOGRAM PREPARED BY <SPY>.                  FTNRES     62
                                        *                                                                        FTNRES     63
                                        *         E) OVERLAY EXECUTION MAY BE SELECTIVELY CONTROLLED BY THE      FTNRES     64
                                        *            SNAP= CONTROL CARD OPTION.  WHEN SNAP=0 THRU =5 IS SELECTED FTNRES     65
                                        *            THE OVERLAY WITH THE MATCHING SECONDARY LEVEL NUMBER WILL   FTNRES     66
                                        *            BE LOADED BUT NOT EXECUTED.  FTN WILL TURN THE PAUSE BIT    FTNRES     67
                                        *            (IN *RA.SSW*) ON, AND LOOP ON RECALL.  BREAKPOINTS MAY NOW  FTNRES     68
                                        *            BE PLACED, AND EXECUTION RESUMED BY ENTERING *GO*.          FTNRES     69
                                        *                                                                        FTNRES     70
                                        *         F) THE REPRIEVE UTILITY IN *LSTPRO* WILL FLUSH THE CIO BUFFERS FTNRES     71
                                        *            FOR THE *COMPS*, *LGO*, *REFMAP* AND *RLIST* FILES.         FTNRES     72
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     4
        INSTALLATION OPTIONS                                          CONFIG
  
                                        *            REPRIEVE CAN BE INHIBITED BY TURNING SENSE SWITCH 6 ON.     FTNRES     73
                                        *                                                                        FTNRES     74
                                        *         G) SETTING OT#RM (IN THE *OPTIONS* COMDECK) TO "7" ON A        FTNRES     75
                                        *            CYBER 74-2 OR SMALLER WILL PRODUCE CYBER 76 CODE.  THIS     FTNRES     76
                                        *            CODE CANNOT BE LOADED BY THE SCOPE 2 LOADER BUT IS USEFUL   FTNRES     77
                                        *           FOR BENCH CHECKING. (THIS FEATURE IS NOT IMPLEMENTED IN TS   FTNRES     78
                                        *           MODE.)                                                       FTNRES     79
                                        *                                                                        FTNRES     80
                                        *         H) A LIMITED CROSS-MODEL CAPABILITY IS AVAILABLE (IN OPT MODE  FTNRES     81
                                        *            ONLY) IN THE STANDARD CYBER 76 COMPILER THROUGH THE USE OF  FTNRES     82
                                        *            THE "M" OPTION.  BINARY WHICH IS READABLE BY THE SCOPE 3.4  FTNRES     83
                                        *            LOADER WILL BE PRODUCED.  THIS CODE WILL STILL BE OPTIMIZED FTNRES     84
                                        *            FOR CYBER 76 UNLESS THE OBJECT "MODEL" MICRO IS CHANGED IN  FTNRES     85
                                        *            THE OPTIONS COMDECK (WHICH IS CALLED BY FTNTEXT) AND THE    FTNRES     86
                                        *            COMPILER IS REBUILT USING THE NEW FTNTEXT (WHICH ALSO ENDS  FTNRES     87
                                        *            THE NEED FOR THE "M" OPTION).                               FTNRES     88
  
  
  
  
                                        ***       CONTROL CARD OPTIONS.                                          FTNRES     90
                                        *                                                                        FTNRES     91
                                        *                                                                        FTNRES     92
                                        *            OPTION          MEANING                                     FTNRES     93
                                        *            ------          -------                                     FTNRES     94
                                        *                                                                        FTNRES     95
                                        *              A             ABORT AT END OF COMPILATION IF COMPILATION  FTNRES     96
                                        *                              (OR INTERMIXED ASSEMBLY) FATAL ERRORS.    FTNRES     97
                                        *              A=0           DO NOT ABORT                                FTNRES     98
                                        *                                                                        FTNRES     99
                                        *              B             PRODUCE OBJECT CODE ON DEFAULT OBJECT FILE  FTNRES    100
                                        *              B=0           INHIBIT OBJECT CODE PRODUCTION              FTNRES    101
                                        *              B=LFN         PRODUCE OBJECT CODE ON FILE 'LFN'           FTNRES    102
                                        *                                                                        FTNRES    103
                                        *              BL            PRODUCE STANDARD (BURSTABLE) LISTING.       FTNRES    104
                                        *              BL=0          PRODUCE CONDENSED (NO WASTE) LISTING.       FTNRES    105
                                        *                                                                        FTNRES    106
                                        *              C             USE 'COMPASS' ASSEMBLER TO PRODUCE OBJECT   FTNRES    107
                                        *                            CODE (CPU COMPILATION TIME WILL INCREASE    FTNRES    108
                                        *                              BY A FACTOR OF APPROXIMATELY 2.6)         FTNRES    109
                                        *              C=0           USE FTN INTERNAL ASSEMBLER.                 FTNRES    110
                                        *                                                                        FTNRES    111
                                        *              D             SELECT FORTRAN DEBUG MODE OF COMPILATION    FTNRES    112
                                        *                              (THE DEFAULT INPUT FILE WILL BE READ TO   FTNRES    113
                                        *                              CHECK FOR AN EXTERNAL PACKET)             FTNRES    114
                                        *              D=LFN         SAME AS 'D' BUT READ FROM FILE 'LFN'        FTNRES    115
                                        *              D=0           DO NOT SELECT DEBUG MODE.                   FTNRES    116
                                        *                                                                        FTNRES    117
                                        *             DB             SELECTS INTERACTIVE DEBUG                   F66FCC     76
                                        *             DB=ID          SAME AS DB                                  F66FCC     77
                                        *             DB=0           DESELECTS INTERACTIVE DEBUG                 F66FCC     78
                                        *                                                                        FTNRES    118
                                        *              E             GENERATE '*DECK' CARDS PRIOR TO THE         FTNRES    119
                                        *                              GENERATED COMPASS IMAGES FOR EACH PROGRAM FTNRES    120
                                        *                              UNIT ON THE DEFAULT COMPASS IMAGES FILE.  FTNRES    121
                                        *                              'B=0' IS FORCED AND THE 'O' AND 'C'       FTNRES    122
                                        *                              OPTIONS MAY NOT BE SELECTED.              FTNRES    123
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     5
        INSTALLATION OPTIONS                                          CTL.CARD
  
                                        *              E=LFN         SAME AS 'E' EXCEPT PRODUCE COMPASS IMAGES   FTNRES    124
                                        *                              ON THE FILE 'LFN'                         FTNRES    125
                                        *              E=0           DESELECT E OPTION.                          FTNRES    126
                                        *                                                                        FTNRES    127
                                        *              EL=A          ISSUE ANSI, INFORMATIVE, NOTE, WARNING,     FTNRES    128
                                        *                            AND FATAL DIAGNOSTICS.                      FTNRES    129
                                        *              EL=N          ISSUE INFORMATIVE, NOTE, WARNING, AND       FTNRES    130
                                        *                            FATAL DIAGNOSTICS.                          FTNRES    131
                                        *              EL=I          SAME AS EL=N.                               FTNRES    132
                                        *              EL=W          LIST WARNING AND FATAL DIAGNOSTICS.         FTNRES    133
                                        *              EL=F          LIST FATAL DIAGNOSTICS ONLY.                FTNRES    134
                                        *                                                                        FTNRES    135
                                        *              ER            SELECT OBJECT TIME ERROR RECOVERY           FEAT155J    4
                                        *              ER=0          NO OBJECT TIME ERROR RECOVERY               FEAT155J    5
                                        *                                                                        FEAT155J    6
                                        *              G=LFN         LOAD SYSTEM TEXT OVERLAY FROM SEQUENTIAL    FTNRES    136
                                        *                            BINARY FILE LFN.                            FTNRES    137
                                        *              G=LFN/OVL     SEARCH LFN FOR OVERLAY OVL AND LOAD IT.     FTNRES    138
                                        *              G=0           NO TEXT IS LOADED.                          FTNRES    139
                                        *              G             LOAD TEXT FROM DEFAULT FILE.                FTNRES    140
                                        *                                                                        FTNRES    141
                                        *              GO            LOAD AND EXECUTE BINARY OBJECT FILE         FTNRES    142
                                        *                            SPECIFIED BY B OPTION.                      FTNRES    143
                                        *              GO=0          DO NOT LOAD AND EXECUTE BINARY OBJECT FILE. FTNRES    144
                                        *                                                                        FTNRES    145
                                        *              I             SOURCE INPUT FROM DEFAULT INPUT FILE        FTNRES    146
                                        *              I=LFN         SOURCE INPUT FROM FILE 'LFN'                FTNRES    147
                                        *                                                                        FTNRES    148
                                        *              L=LFN         WRITE ALL LISTABLE OUTPUT ON FILE LFN.      FTNRES    149
                                        *              L             LIST ON DEFAULT FILE.                       FTNRES    150
                                        *              L=0           LIST ONLY FATAL ERRORS ON DEFAULT FILE.     FTNRES    151
                                        *                                                                        FTNRES    152
                                        *              LCM           SELECT OBJECT CODE METHOD FOR CALCULATING   FTNRES    153
                                        *                              ADDRESSES TO REFERENCE LEVEL 2 VARIABLES  FTNRES    154
                                        *                              THAT RESIDE IN DIRECT-ACCESS LCM.         FTNRES    155
                                        *              LCM=D         18-BIT DIRECT CALCULATION.                  FTNRES    156
                                        *              LCM=I         21-BIT INDIRECT CALCULATION.                FTNRES    157
                                        *                              (APPLIES ONLY TO CYBER 75 / 7600 OR       FTNRES    158
                                        *                              LARGER MODELS WITH DIRECT-ACCESS LCM.     FTNRES    159
                                        *                              OPTION IS IGNORED ON SMALLER MODELS.)     FTNRES    160
                                        *                                                                        FEAT1070C  76
                                        *              LTP           SELECT POST MORTEM DUMP (PMDMP)             FEAT1070C  77
                                        *              LTP=0         DISABLE PMDMP                               FEAT1070C  78
                                        *              PMD           SELECT POST MORTEM DUMP (PMDMP)             FEAT1070C  79
                                        *              PMD=0         DISABLE PMDMP                               FEAT1070C  80
                                        *                                                                        FTNRES    161
                                        *              ML=NNN        MODLEVEL PASSED TO COMPASS.                 FTNRES    162
                                        *                                                                        FTNRES    163
                                        *              OL            GENERATED OBJECT CODE IS LISTED.            FTNRES    164
                                        *              OL=0          GENERATED OBJECT CODE IS NOT LISTED.        FTNRES    165
                                        *                                                                        FTNRES    166
                                        *              OPT=0         MINIMUM OBJECT CODE OPTIMIZATION.           FTNRES    167
                                        *              OPT=1         STANDARD OBJECT CODE OPTIMIZATION.          FTNRES    168
                                        *              OPT=2         MAXIMUM OBJECT CODE OPTIMIZATION.           FTNRES    169
                                        *                                                                        FTNRES    170
                                        *              P             CONTINUE PAGE NUMBERS FROM PROGRAM UNIT     FTNRES    171
                                        *                            TO PROGRAM UNIT.                            FTNRES    172
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     6
        INSTALLATION OPTIONS                                          CTL.CARD
  
                                        *              P=0           PAGE NUMBERING WILL BEGIN AT 1 FOR EACH     FTNRES    173
                                        *                            NEW PROGRAM UNIT.                           FTNRES    174
                                        *                                                                        FTNRES    175
                                        *              PD            PRODUCE LISTING AT 8 LINES PER INCH.        FEAT155E   14
                                        *              PD=6          PRODUCE LISTING AT 6 LINES PER INCH.        FEAT155E   15
                                        *              PD=8          PRODUCE LISTING AT 8 LINES PER INCH.        FEAT155E   16
                                        *                                                                        FEAT155E   17
                                        *              PL=NNN        LIMIT LENGTH OF THE EXECUTION-TIME PRINT    FTNRES    176
                                        *                              FILE TO *NNN* LINES.  DEFAULT VALUE IS    FTNRES    177
                                        *                              5000 LINES.                               FTNRES    178
                                        *                                                                        FTNRES    179
                                        *              PS=NNN        MAXIMUM LENGTH IN LINES OF EACH PAGE.       FEAT155E   18
                                        *                                                                        FEAT155E   19
                                        *              PW=N          WIDTH OF PRINTED PAGE FOR COMPILE TIME      FEAT126AB  14
                                        *                            OUTPUT, WHERE N IS THE LENGTH IN CHARACTERS FEAT126AB  15
                                        *                                                                        FTNRES    180
                                        *              R=0           SELECT NO FORTRAN CROSS-REFERENCE MAP       FTNRES    181
                                        *              R=1           SELECT SHORT CROSS-REFERENCE MAP            FTNRES    182
                                        *              R=2           SELECT FULL  CROSS-REFERENCE MAP            FTNRES    183
                                        *              R=3           SELECT FULL  CROSS-REFERENCE MAP AND A MAP  FTNRES    184
                                        *                              OF EQUIVALENCE CLASSES AND COMMON BLOCKS  FTNRES    185
                                        *                                                                        FTNRES    186
                                        *              ROUND=+-*/    (ANY OR ALL OF THE OPERATORS +-*/ MAY       FTNRES    187
                                        *                              APPEAR) SELECT ROUND MACHINE INSTRUCTIONS FTNRES    188
                                        *                              TO BE USED ON REAL AND COMPLEX OPERANDS   FTNRES    189
                                        *                              OF THE DESIGNATED OPERATORS.              FTNRES    190
                                        *              ROUND         SAME AS ROUND=+-*/                          FTNRES    191
                                        *              ROUND=0       NO ROUNDING IS PERFORMED.                   FTNRES    192
                                        *                                                                        FTNRES    193
                                        *              S             USE DEFAULT SYSTEMS TEXT NAME FOR INTER-    FTNRES    194
                                        *                              MIXED COMPASS PROGRAM UNITS               FTNRES    195
                                        *              S=0           SELECT NO SYSTEMS TEXT                      FTNRES    196
                                        *              S=LFN         USE 'LFN' AS SYSTEMS TEXT FOR INTER-MIXED   FTNRES    197
                                        *                              COMPASS PROGRAM UNITS                     FTNRES    198
                                        *                                                                        FTNRES    199
                                        *              SL            LIST SOURCE PROGRAM.                        FTNRES    200
                                        *              SL=0          DO NOT LIST SOURCE PROGRAM.                 FTNRES    201
                                        *                                                                        FTNRES    202
                                        *              SYSEDIT       INHIBIT USAGE OF ENTRY POINTS FOR FILE      FTNRES    203
                                        *                            ENVIRONMENT TABLE ADDRESS PASSING AND FORCE FTNRES    204
                                        *                            A LOW-CORE SEARCH FOR EACH I/O REFERENCE    FTNRES    205
                                        *                            (EXECUTION TIME WILL INCREASE).             FTNRES    206
                                        *              SYSEDIT=0     DESELECT SYSEDIT OPTION.                    FTNRES    207
                                        *                                                                        FTNRES    208
                                        *              T             SELECT FULL ERROR CHECKING FOR BASIC        FTNRES    209
                                        *                              EXTERNAL FUNCTIONS (EXECUTION TIME WILL   FTNRES    210
                                        *                              INCREASE)                                 FTNRES    211
                                        *              T=0           TRACE MODE NOT SELECTED                     FTNRES    212
                                        *                                                                        FTNRES    213
                                        *              TS            SELECT TIME SHARING MODE.                   FTNRES    214
                                        *              TS=0          SELECT 2-PASS COMPILER.                     FTNRES    215
                                        *                                                                        FEAT121A   22
                                        *                UO          SELECT UNSAFE OPTIMIZATIONS ( OPT=2 ONLY )  FEAT121A   23
                                        *                                                                        FTNRES    216
                                        *              X=LFN         NAME OF FILE WITH COMPASS XTEXT.            FTNRES    217
                                        *              X             SAME AS X=OPL.                              FTNRES    218
                                        *                                                                        FTNRES    219
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     7
        INSTALLATION OPTIONS                                          CTL.CARD
  
                                        *              Z             SUBROUTINE CALLS WITH NO PARAMETERS PASS A  FTNRES    220
                                        *                            ZERO WORD.                                  FTNRES    221
                                        *              Z=0           NO ZERO WORD IS PASSED.                     FTNRES    222
                                        *                                                                        FTNRES    223
                                                                                                                 FTNRES    224
                                                                                                                 FTNRES    225
                                                                                                                 FTNRES    226
                                        **        DEFAULT CONTROL CARD OPTIONS.                                  FTNRES    227
                                        *                                                                        FTNRES    228
                                        *         THE STANDARD DEFAULT OPTIONS ARE LISTED BELOW.  OPTIONS WILL   FTNRES    229
                                        *         BE SET TO THESE VALUES WHEN THE CONTROL CARD CALL IS JUST,     FTNRES    230
                                        *                            FTN.                                        FTNRES    231
                                        *                                                                        FTNRES    232
                                        *         ANY OPTION MAY BE CHANGED TO MEET INSTALLATION NEEDS BY        FTNRES    233
                                        *         REVISING THE APPROPRIATE MICRO, WHICH FOLLOWS.                 FTNRES    234
                                        *                                                                        FTNRES    235
                                        *                                                                        FTNRES    236
                                        *         A=0                                                            FTNRES    237
                                        *         B=LGO                                                          FTNRES    238
                                        *         BL=0                                                           FTNRES    239
                                        *         C=0                                                            FTNRES    240
                                        *         D=0                                                            FTNRES    241
                                        *         DB = (SYSTEM FID COMMUNICATION CELL)                           F66FCC     79
                                        *         E=0                                                            FTNRES    242
                                        *         EL=I                                                           FTNRES    243
                                        *         ER=0                                                           FEAT155J    7
                                        *         G=0                                                            FTNRES    244
                                        *         GO=0                                                           FTNRES    245
                                        *         I=INPUT                                                        FTNRES    246
                                        *         L=OUTPUT                                                       FTNRES    247
                                        *         LCM=D                                                          FTNRES    248
                                        *         OL=0                                                           FTNRES    249
                                        *         OPT=1                                                          FTNRES    250
                                        *         P=0                                                            FTNRES    251
                                        *         PD = JOB DEFAULT                                               FCCA593    10
                                        *         PL=5000                                                        FTNRES    252
                                        *         PS = JOB DEFAULT                                               FCCA593    11
                                        *         PW=126                                                         FEAT126AB  16
                                        *         Q=0                                                            FTNRES    253
                                        *         R=1                                                            FTNRES    254
                                        *         ROUND=0                                                        FTNRES    255
                                        *         S=SYSTEXT                                                      FTNRES    256
                                        *         SEQ=0                                                          FTNRES    257
                                        *         SL                                                             FTNRES    258
                                        *         SYSEDIT=0                                                      FTNRES    259
                                        *         T=0                                                            FTNRES    260
                                        *         TS=0                                                           FTNRES    261
                                        *         UO=0                                                           FEAT121A   24
                                        *         X=OLDPL                                                        FTNRES    262
                                        *         Z=0                                                            FTNRES    263
                                                                                                                 FTNRES    264
                                                                                                                 FTNRES    265
                                                                                                                 FTNRES    266
                                        **        SELECT DEFAULT CONTROL CARD OPTIONS.                           FTNRES    267
                                        *                                                                        FTNRES    268
                                        *         THE CONTROL CARD OPTIONS ARE DIVIDED INTO THREE TYPES, THE     FTNRES    269
                                        *         FIRST GROUP CONSISTS OF OPTIONS WHICH CAN ONLY BE TOGGLED,     FTNRES    270
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     8
        INSTALLATION OPTIONS                                          CTL.CARD
  
                                        *         I.E., OPTION OR OPTION=0.  THE SECOND TYPE IS OF THE FORM      FTNRES    271
                                        *         OPTION=LFN, WHERE LFN IS A FILE NAME.  THE THIRD IS OF THE     FTNRES    272
                                        *         FORM OPTION=ARG WHERE ARG IS AN APPROPRIATE ARGUMENT.          FTNRES    273
                                                                                                                 FTNRES    274
                                                                                                                 FTNRES    275
                                        **        TOGGLED OPTIONS.                                               FTNRES    276
                                        *                                                                        FTNRES    277
                                        *         TO SELECT A DEFAULT DIFFERENT FROM THE STANDARD SET THE        FTNRES    278
                                        *         APPROPRIATE MICRO TO EITHER *ON* OR *OFF* IN THE FOLLOWING     FTNRES    279
                                        *         TABLE.                                                         FTNRES    280
                                                                                                                 FTNRES    281
                                   1     ON       EQU    1                                                       FTNRES    282
                                   0     OFF      EQU    0                                                       FTNRES    283
                                   6     CHAR     EQU    6                                                       FTNRES    284
                                                                                                                 FTNRES    285
                                        *                   VALUE        OPTION                                  FTNRES    286
                                         CC.A     MICRO  1,, OFF           A                                     FTNRES    287
                                         CC.BL    MICRO  1,, OFF           BL                                    FTNRES    288
                                         CC.C     MICRO  1,, OFF           C                                     FTNRES    289
                                         CC.ERT   MICRO  1,, ON       ER WITH TS                                 FEAT155J    8
                                         CC.ER0   MICRO  1,, ON     ER WITH OPT=0                                FEAT155J    9
                                         CC.ER1   MICRO  1,, OFF    ER WITH OPT=1                                FEAT155J   10
                                         CC.ER2   MICRO  1,, OFF    ER WITH OPT=2                                FEAT155J   11
                                         CC.GO    MICRO  1,, OFF           GO                                    FTNRES    290
                                         CC.PMD   MICRO  1,, OFF                                                 FEAT1070C  81
                                         CC.OL    MICRO  1,, OFF           OL                                    FTNRES    291
                                         CC.P     MICRO  1,, OFF           P                                     FTNRES    292
                                         CC.Q     MICRO  1,, OFF           Q                                     FTNRES    293
                                         CC.SL    MICRO  1,, ON            SL                                    FTNRES    294
                                         CC.SEQ   MICRO  1,, OFF          SEQ                                    FTNRES    295
                                         CC.STA   MICRO  1,, OFF         STATIC                                  F162FTNA  357
                                         CC.EDT   MICRO  1,, OFF        SYSEDIT                                  FTNRES    296
                                         CC.T     MICRO  1,, OFF           T                                     FTNRES    297
                                         CC.TS    MICRO  1,, OFF           TS                                    FTNRES    298
                                         CC.Z     MICRO  1,, OFF           Z                                     FTNRES    299
                                                                                                                 FTNRES    300
                                                                                                                 FTNRES    301
                                                                                                                 FTNRES    302
                                        **        FILE OPTIONS.                                                  FTNRES    303
                                        *                                                                        FTNRES    304
                                        *         EXCEPT WHERE NOTED THE FOLLOWING MICROS SHOULD BE SET TO       FTNRES    305
                                        *         EITHER *OFF* OR A FILE NAME OF UP TO 7 CHARACTERS.             FTNRES    306
                                                                                                                 FTNRES    307
                                        *                   VALUE        OPTION        NOTE                      FTNRES    308
                                         CC.B     MICRO  1,, LGO           B         FILENAME ONLY               FTNRES    309
                                         CC.D     MICRO  1,, OFF           D                                     FTNRES    310
                                         CC.E     MICRO  1,, OFF           E                                     FTNRES    311
                                         CC.I     MICRO  1,, INPUT         I         FILENAME ONLY               FTNRES    312
                                         CC.L     MICRO  1,, OUTPUT        L                                     FTNRES    313
                                                                                                                 FTNRES    314
                                        *         THE FOLLOWING FILE OPTION MICROS SHOULD BE SET TO THE FILENAME FTNRES    315
                                        *         DESIRED WHEN THE OPTION IS SPECIFIED ON THE CONTROL CARD BUT   FTNRES    316
                                        *         IS NOT EQUIVALENCED.  FOR EXAMPLE - FTN,I. WOULD BE AS IF      FTNRES    317
                                        *         FTN,I=COMPILE WERE SPECIFIED IF THE CCA.I MICRO BELOW IS NOT   FTNRES    318
                                        *         CHANGED.  THE ONLY ACCEPTABLE VALUE OF THESE MICROS IS A       FTNRES    319
                                        *         FILE NAME OF ONE TO SEVEN CHARACTERS.                          FTNRES    320
                                                                                                                 FTNRES    321
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE     9
        INSTALLATION OPTIONS                                          CTL.CARD
  
                                        *                   VALUE        OPTION                                  FTNRES    322
                                         CCA.B    MICRO  1,, LGO           B                                     FTNRES    323
                                         CCA.D    MICRO  1,, INPUT         D                                     FTNRES    324
                                         CCA.E    MICRO  1,, COMPS         E                                     FTNRES    325
                                         CCA.G    MICRO  1,, SYSTEXT       G                                     FTNRES    326
                                         CCA.I    MICRO  1,, COMPILE       I                                     FTNRES    327
                                         CCA.L    MICRO  1,, OUTPUT        L                                     FTNRES    328
                                         CCA.S    MICRO  1,, SYSTEXT       S                                     FTNRES    329
                                         CCA.X    MICRO  1,, OPL           X                                     FTNRES    330
                                                                                                                 FTNRES    331
                                                                                                                 FTNRES    332
                                                                                                                 FTNRES    333
                                        **        OPTION=ARGUMENT OPTIONS                                        FTNRES    334
                                        *                                                                        FTNRES    335
                                        *         TO SELECT A DEFAULT DIFFERENT THAN THE STANDARD MAKE CHANGES   FTNRES    336
                                        *         AS NOTED BELOW.                                                FTNRES    337
                                                                                                                 FTNRES    338
                                        *                   VALUE        OPTION           ACCEPTABLE VALUE       FTNRES    339
                                         CC.AE    MICRO  1,, OFF          EL=A        ON, OFF (ANSI DIAGNOSTICS) FTNRES    340
                                         CC.NE    MICRO  1,, ON           EL=N        ON, OFF (NOTE DIAGNOSTICS) FTNRES    341
                                         CC.IE    MICRO  1,, ON        EL=I OR W       ON, OFF (INFO/WARN ERROR) FTNRES    342
                                         CC.LCM   MICRO  1,, OFF         LCM=D         ON, LCM=D -- OFF, LCM=I   FTNRES    343
                                         CC.OPT   MICRO  1,, 1           OPT=N            N = 0, 1, OR 2         FTNRES    344
                                         CC.PL    MICRO  1,, 5000         PL               NUMBER OF LINES       FTNRES    345
                                         CC.PW    MICRO  1,, 0             PW=     PAGE WIDTH FOR TS MODE,       FEAT126A   20
                                        *                                          0 FOR STANDARD WIDTH (136)    FEAT126A   21
                                         CC.R     MICRO  1,, 1            R=N             N = 0, 1, 2, OR 3      FTNRES    346
                                         CC.ROUND MICRO  1,, 0           ROUND=           0  FOR NO ROUNDING     FTNRES    347
                                        *                                                 1B FOR /               FTNRES    348
                                        *                                                 2B FOR *               FTNRES    349
                                        *                                                 4B FOR -               FTNRES    350
                                        *                                                10B FOR +               FTNRES    351
                                        *                                          ADD (OCTAL) FOR MORE THAN ONE FTNRES    352
                                                                                                                 FTNRES    353
                                                                                                                 IOBUFL      2
                                        **        2 PASS BUFFER LENGTHS                                          IOBUFL      3
                                                                                                                 IOBUFL      4
                                        **        FILE CIO BUFFER LENGTHS.                                       IOBUFL      5
                                        *                                                                        IOBUFL      6
                                         #RM      IFNE   CP#RM,7                                                 IOBUFL      7
                                                                                                                 IOBUFL      8
                                         BUFL     MICRO  1,, 1002B   NOMINAL CIO BUFFER LENGTH                   IOBUFL      9
                                                                                                                 IOBUFL     10
                                1002     LC.CMPS  =      "BUFL"                                                  IOBUFL     11
                                2004     LC.LGO   =      "BUFL"*2                                                IOBUFL     12
                                2004     LC.OPT   =      "BUFL"*2                                                IOBUFL     13
                                2004     LC.RLST  =      LC.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)   IOBUFL     14
                                1002     LC.RMAP  =      "BUFL"                                                  IOBUFL     15
                                                                                                                 IOBUFL     16
                                         #RM      ELSE                                                           IOBUFL     17
                                                                                                                 IOBUFL     18
                                         BUFL     MICRO  1,, 0       (7RM I/O BUFFERS RESIDE IN LCM.)            IOBUFL     19
                                         OBUFL    =      0                                                       IOBUFL     20
                                         EBUFL    =      0                                                       FCCA488A    5
                                         IBUF     =      0                                                       IOBUFL     21
                                         OBUF     =      0                                                       IOBUFL     22
                                                                                                                 IOBUFL     23
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    10
        INSTALLATION OPTIONS                                          CTL.CARD
  
                                         #RM      ENDIF                                                          IOBUFL     24
                                                                                                                 IOBUFL     25
                                                                                                                 IOBUFL     26
                                                                                                                 IOBUFL     27
                                        **        FILE HOLDING BUFFER LENGTHS.                                   IOBUFL     28
                                        *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)            IOBUFL     29
                                        *                                                                        IOBUFL     30
                                         #RM      IFGE   CP#RM,6                                                 IOBUFL     31
                                                                                                                 IOBUFL     32
                                         HBUFL    MICRO  1,, 400B    HOLDING BUFFER LENGTH                       IOBUFL     33
                                                                                                                 IOBUFL     34
                                         LH.CMPS  =      0                                                       IOBUFL     35
                                         LH.IN    =      0                                                       IOBUFL     36
                                         LH.LGO   =      "HBUFL"                                                 IOBUFL     37
                                         LH.OPT   =      0                                                       IOBUFL     38
                                         LH.OUT   =      0                                                       IOBUFL     39
                                         LH.ERRS  =      0                                                       FCCA488A    6
                                         LH.RLST  =      LH.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)   IOBUFL     40
                                         LH.RMAP  =      "HBUFL"                                                 IOBUFL     41
                                                                                                                 IOBUFL     42
                                         #RM      ENDIF                                                          IOBUFL     43
                                                                                                                 FTNRES    367
                                         CIOBUF   RMT                                                            FTNRES    368
                                         LC.IN    =      IBUFL                                                   FTNRES    369
                                         LC.OUT   =      OBUFL                                                   FTNRES    370
                                         LC.ERRS  =      OBUFL                                                   FCCA488     5
                                         CIOBUF   RMT                                                            FTNRES    371
                                                                                                                 FTNRES    372
                                        **        TS BUFFER LENGTHS  CIO BUFFERS OR RM HOLDING BUFFERS           FCC0813    11
                                                                                                                 FCC0813    12
                                         MBUFL    MICRO  1,, 201B    MINIMUM BUFFER LENGTH                       FCC0813    13
                                         LB.LGO   EQENT  "MBUFL"                                                 FCC0813    14
                                         LB.RMAP  EQENT  "MBUFL"                                                 FCC0813    15
                                         LB.LF    EQENT  "MBUFL"                                                 FCC0813    16
  
  
  
  
                                        ***       MISCELLANEOUS OPTIONS.                                         FTNRES    401
                                        *                                                                        FTNRES    402
                                                                                                                 FTNRES    403
                                                                                                                 FTNRES    404
                                        **        DEFAULT FIELD LENGTH REQUEST INCREMENT.                        FTNRES    405
                                        *                                                                        FTNRES    406
                                        *         FTN ADDS THIS VALUE TO THE MINIMUM FL (DETERMINED BY THE       FTNRES    407
                                        *         COMPILER CONFIGURATION AND OPTIONS) TO ARRIVE AT THE FL        FTNRES    408
                                        *         REQUESTED WHEN THE JOB FL IS SYSTEM-CONTROLLED.                FTNRES    409
                                        *                                                                        FTNRES    410
                                4000     IN.FL    =      4000B                                                   FTNRES    411
                               30000     IN.LCM   =      30000B      INITIAL LCM REQUEST ( OPT=2 ONLY )          FTNRES    412
                                                                                                                 FTNRES    413
                                                                                                                 FTNRES    414
                                                                                                                 FTNRES    415
                                        **        FTN OVERLAY LIBRARY NAMES.                                     FTNRES    416
                                        *                                                                        FTNRES    417
                                         FTNMAIN  MICRO  1,, NUCLEUS       (0,0) OVERLAY                         FTNRES    418
                                         FTNOVL   MICRO  1,, SYSOVL        OTHER OVERLAYS                        FTNRES    419
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    11
        INSTALLATION OPTIONS                                          MISC.OPT
  
                                                                                                                 FTNRES    420
                                                                                                                 FTNRES    421
                                                                                                                 FTNRES    422
                                        **        COMPILATION TIME DAYFILE MESSAGE.                              FTNRES    423
                                        *                                                                        FTNRES    424
                                        *         0 = DO NOT ISSUE MESSAGE                                       FTNRES    425
                                        *         1 = ISSUE MESSAGE                                              FTNRES    426
                                        *                                                                        FTNRES    427
                                   1     CTIMO    =      1                                                       FTNRES    428
  
  
                                   2     MAXOPT   =      2+TEST/TEST MAX OPT LEVEL                               FTNRES    430
                                                                                                                 FTNRES    431
                                                                                                                 FTNRES    432
                                        ***   *** THERE ARE NO INSTALLATION OPTIONS BEYOND THIS LINE ***   ***   FTNRES    433
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    12
        INSTALLATION OPTIONS                                          FILES 
  
                                        **        INTERNAL FILE NAMES.                                           FTNRES    435
                                        *                                                                        FTNRES    436
                                         IN       MICRO  1,, "CC.I"                                              FTNRES    437
                                                                                                                 FTNRES    438
                                                  IFC    EQ,/"CC.L"/OFF/,2                                       FTNRES    439
                                         OUT      MICRO  1,, OUTPUT                                              FTNRES    440
                                                  SKIP   1                                                       FTNRES    441
                                         OUT      MICRO  1,, "CC.L"                                              FTNRES    442
                                                                                                                 FTNRES    443
                                         LGO      MICRO  1,, "CC.B"                                              FTNRES    444
                                         ERRS     MICRO  1,, OUTPUT                                              FCCA488     6
                                                                                                                 FTNRES    450
                                         .T       IFEQ   TEST,0                                                  FTNRES    451
                                         CMPS     MICRO  1,, ZZZZZFC                                             FCC1128X    6
                                         OPT      MICRO  1,, ZZZZZOP                                             FTNRES    452
                                         RLST     MICRO  1,, ZZZZZRL                                             FTNRES    453
                                         RMAP     MICRO  1,, ZZZZZRM                                             FTNRES    454
                                         .T       ELSE                                                           FTNRES    455
                                         CMPS     MICRO  1,, COMPS                                               FCC1128X    7
                                         OPT      MICRO  1,, FTNOPT                                              FTNRES    456
                                         RLST     MICRO  1,, RLIST                                               FTNRES    457
                                         RMAP     MICRO  1,, FTNRMAP                                             FTNRES    458
                                         .T       ENDIF                                                          FTNRES    459
                                                                                                                 FCC1128X    8
                                                  IFC    NE,/"CC.E"/OFF/,1                                       FCC1128X    9
                                         CMPS     MICRO  1,, "CC.E"                                              FCC1128X   10
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    13
        LOCAL BLOCK ORDER AND ORIGINS 
  
                                        ***       ESTABLISH LOCAL BLOCK ORDER AND ORIGINS.                       FTNRES    461
                                        *                                                                        FTNRES    462
                                                                                                                 FTNRES    463
                                                                                                                 FTNRES    464
                                        **        BLKORG - DEFINE BLOCK ORIGIN; ASSIGN BLOCK NUMBER.             FTNRES    465
                                        *                                                                        FTNRES    466
                                        *         THIS MACRO DEFINES THE ORIGIN OF A LOCAL BLOCK, ASSIGNS IT     FTNRES    467
                                        *         A BLOCK NUMBER, AND GENERATES REMOTE CODE FOR COMPUTING THE    FTNRES    468
                                        *         BLOCK LENGTH.                                                  FTNRES    469
                                        *                                                                        FTNRES    470
                                        *                                                                        FTNRES    471
                                        *         BLKORG    NAME,LEN                                             FTNRES    472
                                        *                                                                        FTNRES    473
                                        *         ENTRY  *NAME* = BLOCK NAME                                     FTNRES    474
                                        *                *LEN*  = BLOCK LENGTH, AS FOLLOWS ...                   FTNRES    475
                                        *                         A.  MUST BE SPECIFIED FOR BLOCKS THAT END      FTNRES    476
                                        *                             WITH THE ORIGIN COUNTER MISPOSITIONED      FTNRES    477
                                        *                             (E.G., 6RM INTERNAL BLOCKS).               FTNRES    478
                                        *                         B.  SHOULD NOT BE SPECIFIED FOR ANY OTHER      FTNRES    479
                                        *                             BLOCK, SO THAT LENGTH CAN BE CALCULATED    FTNRES    480
                                        *                             AUTOMATICALLY TO ACCOMMODATE CODE CHANGES. FTNRES    481
                                        *                                                                        FTNRES    482
                                        *         USES   NONE                                                    FTNRES    483
                                        *                                                                        FTNRES    484
                                        *         CALLS  NONE                                                    FTNRES    485
                                                                                                                 FTNRES    486
                                                  PURGMAC   BLKORG                                               FTNRES    487
                                                                                                                 FTNRES    488
                                                                                                                 FTNRES    489
                                         BLKORG   MACRO  BLKNAM,LEN                                              FTNRES    490
                                        *                            INCREMENT BLOCK NUMBER.                     FTNRES    491
                                         BLKNR    DECMIC "BLKNR"+1,2                                             FTNRES    492
                                        *                            ESTABLISH BLOCK FWA.                        FTNRES    493
                                                  USE    BLKNAM                                                  FTNRES    494
                                         '?OBK#"BLKNR" BSS    0                                                  FTNRES    495
                                                  USE    *                                                       FTNRES    496
                                        *                            SAVE MACRO CALL FOR LENGTH COMPUTATION.     FTNRES    497
                                         BLKLEN   RMT                                                            FTNRES    498
                                                  BLKLEN (BLKNAM),LEN                                            FTNRES    499
                                         BLKLEN   RMT                                                            FTNRES    500
                                        *                                                                        FTNRES    501
                                         BLKORG   ENDM                                                           FTNRES    502
                                                                                                                 FTNRES    503
                                                                                                                 FTNRES    504
                                                                                                                 FTNRES    505
                                        **        BLKLEN - MACRO TO SUM LOCAL BLOCK LENGTHS.                     FTNRES    506
                                        *                                                                        FTNRES    507
                                        *                                                                        FTNRES    508
                                        *         BLKLEN    BLKNAM,LENGTH                                        FTNRES    509
                                        *                                                                        FTNRES    510
                                        *         ENTRY  *BLKNAM* = NAME OF LOCAL RESIDENT CODE BLOCK.           FTNRES    511
                                        *                *LENGTH* = BLOCK LENGTH, IF IT HAD TO BE SPECIFIED IN   FTNRES    512
                                        *                           ADVANCE (SEE -BLKORG- MACRO).  MAY BE NIL.   FTNRES    513
                                        *                                                                        FTNRES    514
                                        *         EXIT   *L.RESFTN* IS SET TO THE TOTAL BLOCK LENGTH.            FTNRES    515
                                        *                                                                        FTNRES    516
                                        *         USES   NONE                                                    FTNRES    517
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    14
        LOCAL BLOCK ORDER AND ORIGINS 
  
                                        *                                                                        FTNRES    518
                                        *         CALLS  NONE                                                    FTNRES    519
                                                                                                                 FTNRES    520
                                                  PURGMAC   BLKLEN                                               FTNRES    521
                                                                                                                 FTNRES    522
                                                                                                                 FTNRES    523
                                         BLKLEN   MACRO  BLKNAM,LEN                                              FTNRES    524
                                        *                            INCREMENT BLOCK NUMBER.                     FTNRES    525
                                         BLKNR    DECMIC "BLKNR"+1,2                                             FTNRES    526
                                        *                            COMPUTE BLOCK LENGTH IF NOT SPECIFIED.      FTNRES    527
                                         .CBL     IFC    EQ, LEN                                                 FTNRES    528
                                                  USE    BLKNAM                                                  FTNRES    529
                                                  BSS    0                                                       FTNRES    530
                                         L.RESFTN SET    L.RESFTN+*-'?OBK#"BLKNR"                                FTNRES    531
                                                  USE    *                                                       FTNRES    532
                                         .CBL     ELSE                                                           FTNRES    533
                                        *                            ADD SPECIFIED BLOCK LENGTH TO TOTAL.        FTNRES    534
                                         L.RESFTN SET    L.RESFTN+LEN                                            FTNRES    535
                                         .CBL     ENDIF                                                          FTNRES    536
                                         BLKLEN   ENDM                                                           FTNRES    537
                                                                                                                 FTNRES    538
                                                                                                                 FTNRES    539
                                                                                                                 FTNRES    540
                                        **        DEFINE THE BLOCKS.                                             FTNRES    541
                                        *                                                                        FTNRES    542
                                        *         TO GAIN PROPER CONTROL, THE -BLKORG- MACRO MUST BE CALLED FOR  FTNRES    543
                                        *         EACH LOCAL BLOCK IN -FTN-, BEFORE ANY CODE IS GENERATED FOR    FTNRES    544
                                        *         THAT BLOCK.  THIS ESTABLISHES THE ORIGIN OF EACH BLOCK FOR     FTNRES    545
                                        *         LATER BLOCK LENGTH CALCULATION AND DETERMINES THE BLOCK        FTNRES    546
                                        *         SEQUENCE IN THE ASSEMBLED BINARY CODE.                         FTNRES    547
                                        *                                                                        FTNRES    548
                                                                                                                 FTNRES    549
                                         BLKNR    MICRO              CLEAR BLOCK NUMBER COUNTER                  FTNRES    550
                                                                                                                 FTNRES    551
                                                                                                                 FTNRES    552
                                                                                                                 FTNRES    553
                                        **        NOMINAL PROGRAM BLOCK.                                         FTNRES    554
                                        *                                                                        FTNRES    555
             0                                    BLKORG 0                                                       FTNRES    556
                                                                                                                 FTNRES    557
                                                                                                                 FTNRES    558
                                                                                                                 FTNRES    559
                                        **        FTN RESIDENT CODE BLOCK.                                       FTNRES    560
                                        *                                                                        FTNRES    561
             0                                    BLKORG FTNRES                                                  FTNRES    562
                                                                                                                 FTNRES    563
                                                                                                                 FTNRES    564
                                                                                                                 FTNRES    565
                                        **        FTN INITIALIZATION CODE BLOCK.                                 FTNRES    566
                                        *                                                                        FTNRES    567
                                        *         THE COMPILER INITIALIZATION BLOCK MUST BE THE LAST CODE BLOCK  FTNRES    568
                                        *         SO THAT IT CAN BE OVERLAID AFTER INITIALIZATION IS FINISHED.   FTNRES    569
                                        *                                                                        FTNRES    570
                                                  USE    FTNINIT                                                 FTNRES    571
           367                                    BSS    0                                                       FTNRES    572
                                                                                                                 FTNRES    573
                                                                                                                 FTNRES    574
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    15
        LOCAL BLOCK ORDER AND ORIGINS                                           FTNINIT 
  
                                        **        CONTROL CARD CRACKER ERROR MESSAGE BLOCK.                      FTNRES    575
                                        *                                                                        FTNRES    576
                                        *         THIS BLOCK CONTAINS THE ERROR MESSAGES PUT OUT BY THE CONTROL  FTNRES    577
                                        *         CARD CRACKER.   IT WILL BE OVERLAID WITH THE INITIALIZATION    FTNRES    578
                                        *         CODE BLOCK.                                                    FTNRES    579
                                        *                                                                        FTNRES    580
                                                  USE    CCMSG                                                   FTNRES    581
          2112                           O.CCMSG  BSS    0                                                       FTNRES    582
                                                  USE    FTNRES                                                  FTNRES    583
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    16
        /COMPCOM/ INTERFACE                                                     FTNRES
  
                                        ***       PROVIDE DEFINITIONS FOR /COMPCOM/.                             FTNRES    585
                                        *                                                                        FTNRES    586
                                                                                                                 FTNRES    587
                                                                                                                 FTNRES    588
                                        **        DEFINE MICROS FOR /COMPCOM/.                                   FTNRES    589
                                        *                                                                        FTNRES    590
                                         CP.ABORT MICRO  1,, "CC.A"                                              FCC1336     6
                                         CP.BLF   MICRO  1,, 1S59*"CC.BL"                                        FTNRES    592
                                         CP.F=    MICRO  1,, -2      VALUE FOR PROCESSOR *F                      FTNRES    593
                                                                                                                 FTNRES    594
                                                  IFC    EQ,/"CC.P"/OFF/,2                                       FTNRES    595
                                         CP.PAGE  MICRO  1,, 1S59    DO NOT PROPAGATE PAGE NUMBERS               FTNRES    596
                                                  SKIP   1                                                       FTNRES    597
                                         CP.PAGE  MICRO  1,, 0       PROPAGATE PAGE NUMBERS                      FTNRES    598
                                                                                                                 FTNRES    599
                                                  IFC    EQ,/"CC.L"/OFF/,2                                       FTNRES    600
                                         CP.LISTF MICRO  1,, 0                                                   FTNRES    601
                                                  SKIP   1                                                       FTNRES    602
                                         CP.LISTF MICRO  1,, 1                                                   FTNRES    603
                                                                                                                 FTNRES    604
                                         LISTRM   MICRO  1,, -       DO NOT LIST I/O SUBROUTINES                 FTNRES    605
                                                                                                                 FTNRES    606
                                         #M       IFEQ   CP#RM,0                                                 FTNRES    607
  
  
  
  
                                        **        DEFINE FET MACRO FOR /COMPCOM/.                                FTNRES    609
                                        *                                                                        FTNRES    610
                                         FET      MACRO                                                          FTNRES    611
                                                  BSS    8                                                       CP139FC    48
                                          ENDM                                                                   FTNRES    613
                                                                                                                 FTNRES    614
                                         #M       ENDIF                                                          FTNRES    615
  
  
  
  
                                                  USE    /COMPCOM/                                               FTNRES    617
                                                                                                                 FTNRES    618
                                                                                                                 CP139FC    49
                                        **        THE FOLLOWING BSS ALIGNS COMPCOM AND RESERVES 3 WORDS FOR      CP139FC    50
                                        *         FUTURE 54 TABLE ENTRY POINTS.  PLEASE NOTE THAT ANY CHANGES    CP139FC    51
                                        *         WILL AFFECT INTERMIXED COMPASS SUBPROGRAMS.                    CP139FC    52
                                        *                                                                        CP139FC    53
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FCCA489    13
                                   2     LDR.EP   =      2           RESERVED FOR ENTRY POINTS                   FCCA489    14
                                         #OS      ELSE                                                           FCCA489    15
                                         LDR.EP   =      3           RESERVED FOR ENTRY POINTS                   FCCA489    16
                                         #OS      ENDIF                                                          FCCA489    17
             0                     2              BSS    LDR.EP                                                  CP139FC    55
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FCCA489    18
                                   1     EPSLAK   SET    3-LDR.EP    EPSLAK ADDED TO TOTAL RESIDENT CODE SPACE   FCCA489    19
                                        *                            TO MAINTAIN CORRECT ALIGNMENT.              FCCA489    20
                                         #OS      ELSE                                                           FCCA489    21
                                         EPSLAK   SET    0                                                       FCCA489    22
                                         #OS      ENDIF                                                          FCCA489    23
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    17
        /COMPCOM/ INTERFACE                                           COMPCOM   COMPCOM 
  
                                                                                                                 CP139FC    56
                                                  LIST   -F                                                      FTNRES    619
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    18
        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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    19
        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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    20
        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
             2                           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
             2  0400000251 +             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
                                   2 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
                                   2 C   CP.BATCH EQU    *                                                       CP139CP    40
                               77775     -        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
             3  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
             4  00000000000000000001     CP.LISTF CON    "CP.LISTF"                                              COMPCOM   157
                                                                                                                 COMPCOM   158
                                                                                                                 COMPCOM   159
                                                                                                                 COMPCOM   160
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    21
        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
             5  40000000000000000000     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
             6  40000000000000000000     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
             7  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
            10  00000000000000000000     CP.PD    CON    0                                                       CP139CP    60
                                                                                                                 CP139CP    61
                                                                                                                 CP139CP    62
                                                                                                                 CP139CP    63
                                        **        PAGE SIZE (LINES PER PAGE).                                    CP139CP    64
                                                                                                                 CP139CP    65
            11  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
            12  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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    22
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
            13  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
            14  00000000000000046000     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
            15  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
            16  00000000000000000000     CP.IFORM CON    0                                                       COMPCOM   192
                                                                                                                 COMPCOM   193
                                                                                                                 COMPCOM   194
                                                                                                                 COMPCOM   195
                                        **        THIS SPACE FOR RENT (RESERVED TO USER).                        CP139CP    80
                                                                                                                 COMPCOM   197
            17  00000000000000000000     CP.USER  CON    0                                                       CP139CP    81
            20  00000000000000000000              CON    0                                                       CP139CP    82
                                                                                                                 COMPCOM   199
                                                                                                                 COMPCOM   200
                                                                                                                 COMPCOM   201
                                        **        THIS SPACE FOR RENT (RESERVED TO CDC).                         CP139CP    83
                                                                                                                 COMPCOM   203
            21  00000000000000000000     CP.CDC   CON    0                                                       CP139CP    84
            22  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
            23  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
            27  55031716242217145504     CP.CARD  DATA   H* CONTROL DATA PROPRIETARY PRODUCT.*                   CPSCPRT     4
            33  55031720312211071024              DATA   H* COPYRIGHT CONTROL DATA CORP. 1971, 1972, 1973, 1974, CPSCPRT     5
                                        , 1975, 1976,, 1977, 1978, 1979, 1980, 1981, 1982.*                      CPS*82      4
            46  55555555555555555555              DIS    16-*+CP.CARD,                                           CPSCPRT     7
                                                                                                                 COMPCOM   221
                                                                                                                 COMPCOM   222
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    23
        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
            47  00000000000000000000     CP.STEXT CON    0                                                       COMPCOM   232
            50  23312324053024000000              CON    0LSYSTEXT   DEFAULT SYSTEM TEXT                         COMPCOM   233
            51                     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
            57  00000000000000000001     CP.LIB   CON    1                                                       COMPCOM   244
            60                     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
            67  00000000000000000000     CP.AFLS  CON    0                                                       COMPCOM   257
            70  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
            71  00000000000000000000     CP.AFLL  CON    0                                                       COMPCOM   265
            72  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
            73  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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    24
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
                                                                                                                 COMPCOM   280
            74  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
            77                    10     CP.IFET  FET    INPUT,IBUF,IBUFL                                        COMPCOM   318
           107                                    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
           107                    10     CP.OFET  FET    OUTPUT,OBUF,OBUFL                                       COMPCOM   334
           117                                    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
           117                    10     CP.EFET  FET    OUTPUT,,EBUFL,5                                         CPSA142    17
           127                                    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
           127                    10     CP.BFET  FET    LGO,OBUF,OBUFL                                          COMPCOM   349
           137                                    BSSZ   CP.BFET+8-*                                             CP139CP    92
                                                                                                                 COMPCOM   351
                                         RM       IFNE   CP#RM,0                                                 COMPCOM   352
                                         RM       ENDIF                                                          COMPCOM   359
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    25
        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
           137                                    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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    26
        PROCESS SYSTEM REQUEST.                                       COMCSYS   FTNRES
  
             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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    27
        PROCESS SYSTEM REQUEST.                                       RCL       FTNRES    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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    28
        PROCESS SYSTEM REQUEST.                                       MSG       FTNRES    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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    29
        PROCESS SYSTEM REQUEST.                                       6RM       FTNRES
  
                                        **        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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    30
        /COMPCOM/ INTERFACE                                                     FTNRES
  
                                        ***       LINK FTN TO /COMPCOM/.                                         FTNRES    622
                                        *                                                                        FTNRES    623
                                                  LIST   F,X                                                     FTNRES    624
                                                                                                                 FTNRES    625
                                                                                                                 FTNRES    626
                                        **        BEGIN RESIDENT CODE BLOCK.                                     FTNRES    627
                                        *                                                                        FTNRES    628
                                                  USE    FTNRES                                                  FTNRES    629
                                                                                                                 FTNRES    630
                                                                                                                 FTNRES    631
                                                                                                                 FTNRES    632
                                        **        EQUATE FTN AND /COMPCOM/ LOCATIONS.                            FTNRES    643
                                        *                                                                        FTNRES    644
                                         CP.ERCT  EQENT  CP.ERRCT                                                FTNRES    645
                                         CP.FLIN  EQENT  CP.LINE+2   FTN SOURCE LISTING LINE FWA                 FTNRES    646
                                         CP.LSTF  EQENT  CP.LISTF                                                FTNRES    647
                                         FL       EQENT  CP.AFLS                                                 FTNRES    648
                                         CP.IFMT  EQENT  CP.IFORM                                                FCC1328X   39
                                         AMODE    EQENT  CP.IFORM    SOURCE FILE FORMAT                          FTNRES    649
                                         CP.BUF   EQENT  CP.CARD                                                 FTNRES    650
                                         CO.ABT   EQENT  CP.ABORT                                                FTNRES    651
                                         CP.MXFL  EQENT  CP.MAXFL                                                FTNRES    652
                                         COMRET   EQENT  CP.CDC      BIT 59 FLAGS COMPASS CALLED                 FCCA519     4
                                                                                                                 FTNRES    653
                                                  ENTRY  CP.AFLS                                                 FEAT155D   13
                                                  ENTRY  CP.BLF                                                  FTNRES    654
                                                  ENTRY  CP.CARD                                                 FTNRES    655
                                                  ENTRY  CP.CPU                                                  FTNRES    656
                                                  ENTRY  CP.MODL                                                 FTNRES    657
                                                  ENTRY  CP.NFLS                                                 FTNRES    658
                                                  ENTRY  CP.PAGE                                                 FTNRES    659
                                                  ENTRY  CP.PD                                                   FEAT155EA   4
                                                  ENTRY  CP.PS                                                   FEAT155EA   5
                                                  ENTRY  CP.PW                                                   CP139FC    57
                                                                                                                 FTNRES    660
                                                  IFNE   CP#RM,7,1                                               FTNRES    661
                                                  ENTRY  SYS=,RCL=,WNB=,MSG=                                     FTNRES    662
                                                                                                                 FTNRES    663
                                                                                                                 FTNRES    664
                                                                                                                 FTNRES    665
                                        **        DEFINE LOCAL NAMES FOR /COMPCOM/ FETS AND FITS.                FTNRES    666
                                        *                                                                        FTNRES    667
                                         #RM      IFNE   CP#RM,7     FETS DEFINED FOR CIO AND 6RM ONLY           FTNRES    668
                                  77 C   FE.IN    =      CP.IFET                                                 FTNRES    669
                                 127 C   FE.LGO   =      CP.BFET                                                 FTNRES    670
                                 107 C   FE.OUT   =      CP.OFET                                                 FTNRES    671
                                 117 C   FE.ERRS   =     CP.EFET                                                 FCCA488     7
                                         #RM      ENDIF                                                          FTNRES    672
                                                                                                                 FTNRES    673
                                         #RM      IFGE   CP#RM,6     FITS DEFINED FOR 6RM AND 7RM ONLY           FTNRES    674
                                         FI.IN    =      CP.IFIT                                                 FTNRES    675
                                         FI.LGO   =      CP.BFIT                                                 FTNRES    676
                                         FI.OUT   =      CP.OFIT                                                 FTNRES    677
                                         FI.ERRS  =      CP.EFIT                                                 FCCA488A    7
                                         #RM      ENDIF                                                          FTNRES    678
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    31
        COMPILER FIELD LENGTH REQUIREMENTS                                      FTNRES
  
                                        ***       COMPILER FIELD LENGTH REQUIREMENTS.                            FTNRES    680
                                        *                                                                        FTNRES    681
                                        *         THE FOLLOWING SYMBOLS AND MICROS SPECIFY THE MINIMUM CM/SCM    FTNRES    682
                                        *         FIELD LENGTH REQUIREMENTS (WHICH VARY WITH COMPILER CONFIGU-   FTNRES    683
                                        *         RATION) AND THE NOMINAL DEFAULT AND MAXIMUM FIELD LENGTHS      FTNRES    684
                                        *         REQUESTED WHEN JOB FL IS SYSTEM-CONTROLLED.                    FTNRES    685
                                        *                                                                        FTNRES    686
                                                                                                                 FTNRES    687
                                                                                                                 FTNRES    688
                                        *         FL INCREMENT FOR I/O BUFFERS.                                  FTNRES    689
                                                                                                                 FTNRES    690
                                   0     IB.FL    SET    0           INITIALIZE SYMBOL VALUE                     FTNRES    691
                                                                                                                 FTNRES    692
                                        *         ADD FOR PASS 1 CIO BUFFERS.                                    FTNRES    693
                                                                                                                 FTNRES    694
                                         #RM      IFNE   CP#RM,7                                                 FTNRES    695
                                4010     IB.FL    SET    LC.CMPS+LC.LGO+LC.RMAP                                  FTNRES    696
                                         #RM      ENDIF                                                          FTNRES    697
                                                                                                                 FTNRES    698
                                        *         ADD FOR PASS 1 FILE HOLDING BUFFERS.                           FTNRES    699
                                                                                                                 FTNRES    700
                                         #RM      IFGE   CP#RM,6                                                 FTNRES    701
                                         IB.FL    SET    IB.FL+LH.LGO+LH.RMAP                                    FTNRES    702
                                         #RM      ENDIF                                                          FTNRES    703
                                                                                                                 FTNRES    704
                                4000     IB.FL    SET    IB.FL/100B*100B   TRUNCATE TO NEAREST 100B              FTNRES    705
                                                                                                                 FTNRES    706
                                                                                                                 FTNRES    707
                                                                                                                 FTNRES    708
                                        *         FL INCREMENT FOR INTERNAL TEST MODE COMPILER CONFIGURATION.    FTNRES    709
                                                                                                                 FTNRES    710
                                   0     IT.FL    =      6000B*TEST                                              FCC1096     6
                                                                                                                 FTNRES    712
                                        *         MINIMUM TS MODE FIELD LENGTH.                                  FTNRES    713
                                                                                                                 FTNRES    714
                                                  ENTRY  MIN.TFL                                                 FCC0813    17
                                         MIN.TFL  EQENT  34000B+IT.FL+IB.FL                                      FEAT155D   14
                              100000              ERRNG  IP.MFL-MIN.TFL                                          FTNRES    716
                               40000     MIN.TFL  OCTMIC MIN.TFL                                                 FTNRES    717
                                         MIN.TFL  MICRO  1,3, "MIN.TFL"                                          FTNRES    718
                                                                                                                 FTNRES    719
                                                                                                                 FTNRES    720
                                                                                                                 FTNRES    721
                                        *         MINIMUM OPTIMIZING MODE FIELD LENGTH - OPT = 0 OR 1.           FTNRES    722
                                                                                                                 FTNRES    723
                               46000     MIN.FL   =      42000B+IT.FL+IB.FL                                      FTNRES    724
                               72000              ERRNG  IP.MFL-MIN.FL     NON-DEBUG FL .GT. INSTALLATION LIMIT  FTNRES    725
                               46000     MIN.FL   OCTMIC MIN.FL                                                  FTNRES    726
                                         MIN.FL   MICRO  1,3, "MIN.FL"                                           FTNRES    727
                                                                                                                 FTNRES    728
                                                                                                                 FTNRES    729
                                                                                                                 FTNRES    730
                                        *         MINIMUM OPTIMIZING MODE FIELD LENGTH - OPT = 2 OR 3.           FTNRES    731
                                                                                                                 FTNRES    732
                               54000     MIN.OFL  =      MIN.FL+12000B-4000B*.OVL/.OVL                           FTNRES    733
                               64000              ERRNG  IP.MFL-MIN.OFL    FL .GT. INSTALLATION LIMIT            FTNRES    734
                               54000     MIN.OFL  OCTMIC MIN.OFL                                                 FTNRES    735
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    32
        COMPILER FIELD LENGTH REQUIREMENTS                                      FTNRES
  
                                         MIN.OFL  MICRO  1,3, "MIN.OFL"                                          FTNRES    736
                                                                                                                 FTNRES    737
                                                                                                                 FTNRES    738
                                                                                                                 FTNRES    739
                                        *         MINIMUM DEBUG FIELD LENGTH.                                    FTNRES    740
                                                                                                                 FTNRES    741
                               63000     MIN.DFL  =      MIN.FL+15000B                                           FCC1117X    8
                               55000              ERRNG  IP.MFL-MIN.DFL    DEBUG FL .GT. INSTALLATION LIMIT      FTNRES    743
                               63000     MIN.DFL  OCTMIC MIN.DFL                                                 FTNRES    744
                                         MIN.DFL  MICRO  1,3, "MIN.DFL"                                          FTNRES    745
                                                                                                                 FTNRES    746
                                                                                                                 FTNRES    747
                                                                                                                 FTNRES    748
                                        *         NOMINAL TS MODE FIELD LENGTH (FOR MEMORY REQUESTS).            FTNRES    749
                                                                                                                 FTNRES    750
                               44000     NOM.TFL  MIN    MIN.TFL+IN.FL,IP.MFL                                    FTNRES    751
                                                  ENTRY  NOM.TFL                                                 FEAT155D   15
                                                                                                                 FTNRES    752
                                                                                                                 FTNRES    753
                                                                                                                 FTNRES    754
                                        *         NOMINAL OPT = 0 OR 1 FIELD LENGTH (FOR MEMORY REQUESTS).       FTNRES    755
                                                                                                                 FTNRES    756
                               52000     NOM.FL   MIN    MIN.FL+IN.FL,IP.MFL                                     FTNRES    757
                                                                                                                 FTNRES    758
                                                                                                                 FTNRES    759
                                                                                                                 FTNRES    760
                                        *         NOMINAL OPT = 2 OR 3 FIELD LENGTH (FOR MEMORY REQUESTS).       FTNRES    761
                                                                                                                 FTNRES    762
                               60000     NOM.OFL  MIN    MIN.OFL+IN.FL,IP.MFL                                    FTNRES    763
                                                                                                                 FTNRES    764
                                                                                                                 FTNRES    765
                                                                                                                 FTNRES    766
                                        *         NOMINAL DEBUG FIELD LENGTH (FOR MEMORY REQUESTS).              FTNRES    767
                                                                                                                 FTNRES    768
                               67000     NOM.DFL  MIN    MIN.DFL+IN.FL,IP.MFL                                    FTNRES    769
                                                                                                                 FTNRES    770
                                                                                                                 FTNRES    771
                                                                                                                 FTNRES    772
                                        *         MEM DOWN FIELD LENGTH FOR *GO* MODE.                           FCC0864     5
                                                                                                                 FCC0864     6
                               34000     MEM.GOFL EQU    34000B                                                  FCC0864     7
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    33
        FILE MANAGEMENT TABLES                                        FETS      FTNRES
  
                                        *         A MACRO TO FORM THE FETS                                       FTNRES    774
                                                                                                                 FTNRES    775
                                         CPFET    OPSYN     FET      SAVE /COMPCOM/ FET MACRO DEFINITION         FTNRES    776
                                                  PURGMAC   FET                                                  FTNRES    777
                                                                                                                 FTNRES    778
                                         FET      MACRO  NAME,FIRST,MODE,TABLE                                   FTNRES    779
                                                  LOCAL  REORG                                                   FTNRES    780
                                         #RM      IFEQ   CP#RM,0                                                 FTNRES    781
                                        *                                                                        FTNRES    782
                                        *                            FOR CONVENTIONAL CIO I/O.                   FTNRES    783
                                        *                                                                        FTNRES    784
                                         REORG    SET    0                                                       FTNRES    785
                                        *         CHECK FOR EXISTING /COMPCOM/ FET DEFINITION.                   FTNRES    786
                                         .CD      IF     DEF,FE.NAME                                             FTNRES    787
                                         REORG    SET    1                                                       FTNRES    788
                                        *         TO REDEFINE /COMPCOM/ FET.                                     FTNRES    789
                                                  ORG    FE.NAME                                                 FTNRES    790
                                         .CD      ELSE                                                           FTNRES    791
                                         FE.NAME  BSS    0                                                       FTNRES    792
                                         .CD      ENDIF                                                          FTNRES    793
                                        *         LINK GLOBAL FILE SYMBOLS TO FETS.                              FTNRES    794
                                         F.NAME   =      FE.NAME                                                 FTNRES    795
                                        *                                                                        FTNRES    796
                                        *         FORM FET.                                                      FTNRES    797
                                        *                                                                        FTNRES    798
                                                  VFD    42/0L"NAME",18/MODE+1                                   FTNRES    799
                                                  VFD    36/0,6/3,18/FIRST                                       FTNRES    800
                                                  CON    FIRST                                                   FTNRES    801
                                                  CON    FIRST                                                   FTNRES    802
                                                  CON    FIRST+LC.NAME                                           FTNRES    803
                                        *         (I.CBSET)          PASS 1 BUFFER RESET PARAMS.                 FTNRES    804
                                                  VFD    24/0,18/LC.NAME,18/FIRST                                FTNRES    805
                                                  BSSZ   2                 RANDOM FILE INFO                      FTNRES    806
                                         .CD      IFEQ   REORG,1                                                 FTNRES    807
                                        *         RETURN TO NOMINAL BLOCK.                                       FTNRES    808
                                                  USE    *                                                       FTNRES    809
                                         .CD      ENDIF                                                          FTNRES    810
                                         #RM      ENDIF                                                          FTNRES    811
                                        *                                                                        FTNRES    812
                                        *                            FOR RECORD MANAGER I/O.                     FTNRES    813
                                        *                                                                        FTNRES    814
                                         #RM      IFGE   CP#RM,6                                                 FTNRES    815
                                        *                            DEFINE PSEUDO-FET BASE ADDRESS.             FTNRES    816
                                         FP.NAME  BSS    0                                                       FTNRES    817
                                        *         (I.FIT)            FLAGS AND FIT POINTER.                      FTNRES    818
                                        *                            1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR  FTNRES    819
                                        *                -HOLDING BUFFER EXISTS- FLAG  ( 1=YES, 0=NO )           FTNRES    820
                                                  VFD    1/1*LH.NAME/LH.NAME                                     FTNRES    821
                                        *                -FILE SPILLED- FLAG           ( 1=YES, 0=NO )           FTNRES    822
                                                  VFD    1/0                                                     FTNRES    823
                                        *                            -UNCONDIT BUF FLUSH- FLAG  ( 1=YES, 0=NO )  FTNRES    824
                                                  IFC    NE, TABLE  ,2                                           FTNRES    825
                                                  VFD    1/0                                                     FTNRES    826
                                                  SKIP   1                                                       FTNRES    827
                                                  VFD    1/1                                                     FTNRES    828
                                        *                RESERVED FOR CDC.                                       FTNRES    829
                                                  VFD    39/0                                                    FTNRES    830
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    34
        FILE MANAGEMENT TABLES                                        FETS      FTNRES
  
                                        *                FIT ADDRESS.                                            FTNRES    831
                                                  VFD    18/FI.NAME                                              FTNRES    832
                                        *                            HOLDING BUFFER CONTROL PARAMETERS.          FTNRES    833
                                         .HB      IFNE   LH.NAME,0                                               FTNRES    834
                                        *         (I.FIRST), (I.IN), (I.OUT), (I.LIMIT)                          FTNRES    835
                                                  DUP    4,1                                                     FTNRES    836
                                                  VFD    42/0,18/**                                              FTNRES    837
                                        *         (I.HBSET)          HOLDING BUFFER RESET VALUES.                FTNRES    838
                                                  VFD    24/0,18/LH.NAME,18/**                                   FTNRES    839
                                         .HB      ENDIF                                                          FTNRES    840
                                        *                                                                        FTNRES    841
                                        *         LINK GLOBAL FILE SYMBOLS TO PSEUDO-FETS.                       FTNRES    842
                                         F.NAME   =      FP.NAME                                                 FTNRES    843
                                         #RM      ENDIF                                                          FTNRES    844
                                        *                                                                        FTNRES    845
                                        *         DECLARE GLOBAL FILE SYMBOLS AS ENTRY POINTS.                   FTNRES    846
                                                  ENTRY  F.NAME                                                  FTNRES    847
                                        *                                                                        FTNRES    848
                                        *         FORM FILE VECTOR TABLE FOR JOB COMMUNICATIONS AREA (RA.ARG).   FTNRES    849
                                        *                                                                        FTNRES    850
                                        *         /FVEC-HERE/ APPEARS AT -FVTBL-.                                FTNRES    851
                                         FVEC     RMT                                                            FTNRES    852
                                                  FVEC   NAME                                                    FTNRES    853
                                         FVEC     RMT                                                            FTNRES    854
                                        *                                                                        FTNRES    855
                                         FET      ENDM                                                           FTNRES    856
  
  
  
  
                                                                                                                 FTNRES    858
                                        ***       CIO CODE VALUES FOR FILE MODES.                                FTNRES    859
                                                                                                                 FTNRES    860
                                   2     BINARY   EQU    2                                                       FTNRES    861
                                   0     CODED    EQU    0                                                       FTNRES    862
  
  
  
  
                                        **        SCRATCH FILE DISPOSITION.                                      FTNRES    864
                                        *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)            FTNRES    865
                                        *                                                                        FTNRES    866
                                        *         SELECT -CLOSE FLAG- (CF) PARAMETER FOR EACH SCRATCH FILE FIT.  FTNRES    867
                                        *         THE PARAMETER MAY BE ALTERED DURING COMPILER INITIALIZATION,   FTNRES    868
                                        *         TO COMPLY WITH CONTROL CARD OPTION SELECTIONS.                 FTNRES    869
                                        *                                                                        FTNRES    870
                                         #RM      IFGE   CP#RM,6                                                 FTNRES    871
                                         .T       IFEQ   TEST,0                                                  FTNRES    872
                                        *                SYSTEM MODE COMPILER - UNLOAD SCRATCH FILES.            FTNRES    873
                                         SFD      MICRO  1,, U                                                   FTNRES    874
                                         .T       ELSE                                                           FTNRES    875
                                        *                TEST MODE COMPILER - REWIND SCRATCH FILES.              FTNRES    876
                                         SFD      MICRO  1,, R                                                   FTNRES    877
                                         .T       ENDIF                                                          FTNRES    878
                                         #RM      ENDIF                                                          FTNRES    879
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    35
        FILE MANAGEMENT TABLES                                        FET/FIT   FTNRES
  
                                        ***       FET/FIT AREAS.                                                 FTNRES    881
                                        *                                                                        FTNRES    882
                                        *                                                                        FTNRES    883
  
  
  
                                        **        INPUT  -  FORTRAN SOURCE INPUT FILE.                           FTNRES    885
                                                                                                                 FTNRES    886
            77  11162025240000000001              FET    IN,IBUF,CODED                                           FTNRES    887
  
  
  
                                        **        OUTPUT  -  LISTABLE OUTPUT FILE.                               FTNRES    889
                                                                                                                 FTNRES    890
           107  17252420252400000001              FET    OUT,OBUF,CODED                                          FTNRES    891
  
  
  
                                        **        LGO  -  EXECUTABLE BINARY (LOAD-AND-GO) FILE.                  FTNRES    893
                                                                                                                 FTNRES    894
           127  14071700000000000003              FET    LGO,0,BINARY                                            FTNRES    895
                                                                                                                 FTNRES    896
                                                                                                                 FCCA488     8
                                        **        ERRORS FILE FOR INTERMIXED COMPASS SET TO OUTPUT.              FCCA488     9
                                                                                                                 FCCA488    10
           117  17252420252400000001              FET    ERRS,0,CODED                                            FCCA488    11
  
  
  
                                        **        COMPS - COMPASS IMAGE FILE                                     FTNRES    898
                                                                                                                 FTNRES    899
            37                                    FET    CMPS,0,CODED,TABLE                                      FTNRES    900
                                         #RM      IFEQ   CP#RM,7                                                 FTNRES    901
                                         FI.CMPS  FILE   LFN="CMPS",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=YES,BT=,RT FTNRES    902
                                        ,=W,MRL=80D                                                              FTNRES    903
                                                  BSSZ   FI.CMPS+20D-*                                           FTNRES    904
                                         #RM      ENDIF                                                          FTNRES    905
  
  
  
                                        **        RLIST/LONGFILE - INTERMEDIATE SCRATCH FILE                     FTNRES    907
                                                                                                                 FTNRES    908
            47                                    FET    RLST,0,BINARY,TABLE                                     FTNRES    909
                                         #RM      IFEQ   CP#RM,7                                                 FTNRES    910
                                         FI.RLST  FILE   LFN="RLST",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT= FTNRES    911
                                        ,W                                                                       FTNRES    912
                                                  BSSZ   FI.RLST+20D-*                                           FTNRES    913
                                         #RM      ENDIF                                                          FTNRES    914
                                                                                                                 FTNRES    915
                                        **        EQUATE LONGFILE NAME (TS MODE) TO RLIST NAME (2 PASS).         FTNRES    916
                                                                                                                 FTNRES    917
                                         F.LF     EQENT  F.RLST                                                  FTNRES    918
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    36
        FILE MANAGEMENT TABLES                                        REFMAP    FTNRES
  
                                        **        REFMAP  -  LONG REFERENCE MAP (R=2 OR 3) SCRATCH FILE.         FTNRES    920
                                                                                                                 FTNRES    921
            57                                    FET    RMAP,0,BINARY,TABLE                                     FTNRES    922
                                         #RM      IFEQ   CP#RM,7                                                 FTNRES    923
                                         FI.RMAP  FILE   LFN="RMAP",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT= FTNRES    924
                                        ,W                                                                       FTNRES    925
                                                  BSSZ   FI.RMAP+20D-*                                           FTNRES    926
                                         #RM      ENDIF                                                          FTNRES    927
  
  
  
                                        **        OPT/DEBUG  -  SCRATCH FILE FOR <OPT=2> OR <DEBUG> MODES.       FTNRES    929
                                                                                                                 FTNRES    930
            67                                    FET    OPT,0,BINARY                                            FTNRES    931
                                         #RM      IFEQ   CP#RM,7                                                 FTNRES    932
                                         FI.OPT   FILE   LFN="OPT",FO=WA,OF=R,CF="SFD",PD=IO,EO=T,RT=W,MRL=37777 FTNRES    933
                                        ,7B                                                                      FTNRES    934
                                                  BSSZ   FI.OPT+20D-*                                            FTNRES    935
                                         #RM      ENDIF                                                          FTNRES    936
                                                                                                                 FTNRES    937
                                                                                                                 FTNRES    938
                                                                                                                 FTNRES    939
                                        **        EQUATE DEBUG FILE NAME TO OPT FILE NAME.                       FTNRES    940
                                        *                                                                        FTNRES    941
                                         F.DEBUG  EQENT  F.OPT                                                   FTNRES    942
                                         #RM      IFGE   CP#RM,6                                                 FTNRES    943
                                                  ENTRY  FI.OPT                                                  FTNRES    944
                                         FI.DBG   EQENT  FI.OPT                                                  FTNRES    945
                                         #RM      ENDIF                                                          FTNRES    946
                                                                                                                 FTNRES    947
                                                                                                                 FTNRES    948
                                                                                                                 FTNRES    949
                                        **        DEFINE OUTPUT FILE NAME FOR FORTRAN-CODED I/O STATEMENTS.      FTNRES    950
                                        *                                                                        FTNRES    951
                                         OUTPUT"C" EQENT F.OUT                                                   FTNRES    952
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    37
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                                    FTNRES
  
                                        **        USAGE OF CELLS IN JOB COMMUNICATIONS AREA.                     FTNRES    955
                                        *                                                                        FTNRES    956
                                  12     SYM1     =      RA.SSW+12B        INVERTED FWA OF SYMBOL TABLE          FTNRES    957
                                  17     LDRP     =      RA.SSW+17B - 21B  3 WORDS FOR LOADER CALL PARAM LIST    FTNRES    958
  
  
  
  
                                        **        LISTING CONTROL FLAGS AFFECTED BY C/-LIST DIRECTIVES.          FEAT121L   14
                                                                                                                 FEAT121L   15
                                        *         MASTER COPY OF LISTING CONTROL FLAGS.                          FEAT121L   16
                                                                                                                 FEAT121L   17
            77                           LSTMSTR  BSS    0                                                       FEAT121L   18
                                                  ENTRY  LSTMSTR                                                 FEAT121L   19
                                                                                                                 FEAT121L   20
                                                  QUAL   MASTER                                                  FEAT121L   21
                                                                                                                 FEAT121L   22
            77  00000000000000000000     ANSI     CON    1S59*"CC.AE"   1S59 IF ANSI DIAGNOSTICS, ELSE 0         FEAT121L   23
           100  40000000000000000000     IEFLG    CON    1S59*"CC.IE"   1S59 IF INFORMATIVE ERRORS, ELSE 0       FEAT121L   24
                                                                                                                 FEAT126B    5
                                                  IFC    NE,/"CC.R"/0/,2                                         FEAT126B    6
           101  40000000000000000000     LOP=M    CON    1S59        .MI. IF R.NE.0                              FEAT126B    7
                                                  SKIP   1                                                       FEAT126B    8
                                         LOP=M    CON    0           .ZR. IF R=0                                 FEAT126B    9
                                                                                                                 FEAT126B   10
           102  00000000000000000000     LOP=O    CON    1S59*"CC.OL"   1S59 FOR OBJECT LIST, ELSE 0             FEAT121L   25
                                                                                                                 FEAT121L   26
                                                  IFC    GE,/"CC.R"/2/,2                                         FEAT121L   27
                                         LOP=R    CON    1S59           .MI. FOR R=2 OR R=3                      FEAT121L   28
                                                  SKIP   1                                                       FEAT121L   29
           103  00000000000000000000     LOP=R    CON    0              .PL. FOR R=0 OR R=1                      FEAT121L   30
                                                                                                                 FEAT121L   31
                                 100 +   LOP=W    =      IEFLG                                                   FEAT121L   32
                                  77 +   LOP=X    =      ANSI                                                    FEAT121L   33
                                 102 +   OLIST    =      LOP=O                                                   FEAT121L   34
                                 103 +   RSELECT  =      LOP=R                                                   FEAT121L   35
           104  00000000000000000001     R=FLAG   CON    "CC.R"         R = N (0, 1, 2, 3)                       FEAT121L   36
                                                                                                                 FEAT121L   37
                                                  QUAL   *                                                       FEAT121L   38
                                                                                                                 FEAT121L   39
                                   6     L.MSTR   =      *-LSTMSTR                                               FEAT121L   40
                                                  ENTRY  L.MSTR                                                  FEAT121L   41
                                         MLOP=O   EQENT  /MASTER/LOP=O                                           FEAT126B   11
                                         MLOP=R   EQENT  /MASTER/LOP=R                                           FEAT155H    7
                                         MLOP=X   EQENT  /MASTER/LOP=X                                           FEAT155HA   4
  
  
  
  
                                        **        MISCELLANEOUS FLAGS.                                           FTNRES    960
                                                                                                                 FTNRES    961
           105  00000000000000000000     FTIFL    VFD    12/0,18/**,30/0   INITIAL CM/SCM FIELD LENGTH           FTNRES    963
           106  00000000000000000000     F.TABS   ENTRY. 0           FWA TABLE AREA IN TS-MODE                   FTNRES    965
           107  00000000000000000100     GL.DRL   ENTRY. 100B        LENGTH OF GLOBAL DRL                        FTNRES    966
           110  00000000000000000100     GL.DVL   ENTRY. 100B        LENGTH OF GLOBAL DVL                        FTNRES    967
           111  00000000000000000100     GL.IND   ENTRY. 100B        LENGTH OF DEBUG RANDOM FILE INDEX           FTNRES    968
           112  00000000000000000000     GL.SYM   ENTRY. 0           GLOBAL O.SYM (RESET IN LSTPRO)              FCC0761     9
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    38
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                                    FTNRES
  
           113  00000000000000000000     INT.FL   ENTRY. 0           COMPILER INITIAL FIELD LENGTH               FEAT155D   16
           114  00000000000000000000     JOT      ENTRY. 0           JOB ORIGIN TYPE (0 - BATCH, 1 - TERMINAL)   FTNRES    969
           115  57333333333334000005     LASTREC  ENTRY. 57333333333334000005B    UPDATED DISPOW AND RECORD      FTNRES    970
           116  00000000000000000000     LCP.PS   ENTRY. 0           LCP.PS (LOCAL CELL FOR CP.PS) = CP.PS-3     FCCA422    11
           117  00000000000000000000     RS.PD    ENTRY. 0           RESTORE PRINT DENSITY                       FCCA593    12
                                                  ENTRY  LDPT                                                    FCC2125    17
           120  00000340000000000000     LDRFL    VFD    12/0,18/MEM.GOFL,30/0   FIELD LENGTH FOR LOADING IN GO  FCC0864     8
           121  77777777777777777776     LGOIO    ENTRY. -1          -1 IF BIN IS ON DISK(NO CMLOD)              FTNRES    971
                                        *                             0 IF BIN IS IN SCM                         FTNRES    972
                                        *                            +1 IF BIN IS IN LCM                         FTNRES    973
           122  00000000000000000000     L.GCON   ENTRY. 0           LENGTH OF GLOBAL DEBUG CON TABLE            FTNRES    974
                                        *                                  0  - INTERSPERSED STATEMENTS          FTNRES    975
           123  00000000000000000000     MACFLAG  ENTRY. 0           OLIST .OR. UFLAG                            FTNRES    976
                                        *                                  IF = 0 THEN DONT SEND MACROS TO COMPS FTNRES    977
           124  77777777760000000000     MAX.FL   ENTRY. 7777777776BS30    JOB STEP MAX FL (-1 FOR MEMORY CALL)  FEAT155D   17
           125  00000000000000000000     MAX.RL   ENTRY. 0           MAX RECORD LENGTH FOR OPT=2                 FTNRES    978
           126  00000000000000000000     O.GCON   ENTRY. 0           FWA OF GLOBAL DEBUG CON TABLE               FTNRES    979
           127  00000000000000000000     PR.MXFL  ENTRY. 0           MAX FL USED BY CURRENT PROGRAM UNIT         RSM2763X    7
           130  00000000000000000000     W.TABS   ENTRY. 0           AMOUNT OF CORE TO BE MANAGED IN TS-MODE     FTNRES    980
           131  00000000000000000000     CER.FL   ENTRY. 0           1 IF CONTROL CARD ERROR OR NULL PROGRAM     FCC2104     7
                                   1     .MODES   EQU    1                                                       FCC0380     1
  
  
  
                                        **        FLAGS ASSOCIATED WITH THE CONTROL CARD OPTIONS.                FTNRES    983
                                                                                                                 FTNRES    984
           132  40000000000000000000     PDFLAG   ENTRY. 1S59        SET IF ISSUE PD, ELSE NOT SET               FCCA422    12
           133  00000000000000000000     CAFLAG   ENTRY. 1S59*"CC.C"    1S59 IF COMPASS ASSEMBLY ELSE 0          FTNRES    986
           134  00000000000000000000     CBNFLG   ENTRY. 1S59*"CC.T"    1S59 IF TRACE MODE ELSE 0                FTNRES    987
           135  00000000000000000000     CCFLAG   ENTRY.  0                                                      FCC2125    18
                                         .T       IFNE   TEST,0                                                  FEAT155F   94
                                         .OS2     IFNE   .OS,2                                                   FEAT155F   95
                                         CO.BRK   ENTRY. 0           LIST OF OVERLAY NRS (0L FMT) AS SET UP BY   FEAT155F   96
                                        *                              *BREAK=* CC OPTION.                       FEAT155F   97
                                        *                              E.G.  BREAK=2122  WOULD BE  4L2122        FEAT155F   98
                                         .OS2     ENDIF                                                          FEAT155F   99
                                         .T       ENDIF                                                          FEAT155F  100
           136  00000000000000000000     CO.EDT   ENTRY. 1S59*"CC.EDT"  1S59 IF SYSEDIT ON ELSE 0                FTNRES    988
           137  00000000000000000000     CO.ER    ENTRY. 0           1S59 IF ER ON ELSE 0                        FEAT155J   12
                                                                                                                 F66FCC     80
                                                  IFEQ   .FID,ON,1                                               F66FCC     81
           140  00000000000000000000     CO.ID    ENTRY. 0           1S59 IF DB=ID ELSE 0                        F66FCC     82
                                                                                                                 F66FCC     83
           141  00000000000000000000     CO.MODE  ENTRY. 1S59*"CC.SEQ"  1S59 FOR SEQUENCED INPUT IN TS MODE      FTNRES    989
                                                                                                                 FTNRES    990
                                                  IFC    LE,/"CC.OPT"/2/,2                                       FTNRES    991
           142  00000000000000000001     CO.OLVL  ENTRY. "CC.OPT"    OPTIMIZATION LEVEL                          FTNRES    992
                                                  SKIP   1                                                       FTNRES    993
                                         CO.OLVL  ENTRY. 2           OPTIMIZATION LEVEL                          FTNRES    994
                                                                                                                 FTNRES    995
           143  00000000000000000000     CO.REW   ENTRY. 0           .MI. IF REWIND OF INPUT AND LGO SELECTED    FTNRES    996
           144  00000000000000000000     CO.RND   ENTRY. "CC.ROUND"S19  ROUNDED ARITHMETIC FLAG                  FTNRES    997
           145  00000000000000000000     CO.SNAP  ENTRY. 0           .NZ. IF SNAPS DESIRED                       FEAT126C   47
           146  00000000000000000000     CO.STA   ENTRY. "CC.STA"    1S59 IF STATIC LOAD                         F162FTNA  358
                                         CO.TBK   EQENT  CBNFLG      ALTERNATE NAME FOR TRACE MODE FLAG          FTNRES    999
           147  00000000000000000000     CO.TS    CON    1S59*"CC.TS"      1S59 IF TS MODE ELSE 0                FCC0971    10
                                                                                                                 FTNRES   1000
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    39
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                                    FTNRES
  
                                                  IFC    EQ,/"CC.D"/OFF/,2                                       FTNRES   1001
           150  00000000000000000000     DFLAG    ENTRY. 0           IF DEBUG NOT SELECTED                       FTNRES   1002
                                                  SKIP   1                                                       FTNRES   1003
                                         DFLAG    ENTRY. 0L"CC.D"    DEBUG FILE NAME IF SELECTED                 FTNRES   1004
                                                                                                                 FTNRES   1005
           151  00000000000000000000     DIRECT   ENTRY. 1S59*"CC.LCM"  1S59 IF LCM=D ELSE 0                     FTNRES   1006
                                                                                                                 FTNRES   1007
                                        *         F.LFN  BITS TO SET FOR A FILE NAME (WORD B OF SYMTAB).         FTNRES   1008
                                   0     L1       SET    60-P.TYP-L.TYP                                          FTNRES   1009
                                   1     L2       SET    P.TYP-P.EXT-1                                           FTNRES   1010
                                   0     EXT      SET    0                                                       FTNRES   1011
                                                  IFEQ   "CC.EDT",0,1                                            FTNRES   1012
                                   1     EXT      SET    1                                                       FTNRES   1013
                                                  ENTRY  F.LFN                                                   FTNRES   1014
           152  55000000000000000000     F.LFN    VFD    L1/0,L.TYP/T.LFN,L2/0,1/EXT,*P/0                        FTNRES   1015
                                                                                                                 FTNRES   1016
           153  00000000000000000000     GOFLAG   CON    1S59*"CC.GO"   1S59 IF COMPILE AND GO SELECTED ELSE 0   FTNRES   1017
           154  40000000000000000000     LOP=F    ENTRY. 1S59           LIST FATAL ERRORS ALWAYS                 FTNRES   1019
           155  40000000000000000000     LOP=N    ENTRY. 1S59*"CC.NE"   1S59 IF NOTE DIAGNOSTICS ELSE 0          FTNRES   1026
           156  00000000000000000000     LOP=1    ENTRY. OFF            USED IN TS MODE FOR ERROR FLAG           FTNRES   1036
           157  00000000000000000000    PMDFLAG   ENTRY. 1S59*"CC.PMD"  1S59 IF PMDMP ENABLED, ELSE 0            FEAT1070C  82
           160  00000000000000000000     OT.RM    ENTRY. OT#RM-6        OBJECT TIME I/O (0=6RM, 1=7RM)           FTNRES   1038
           161  00000000000000011610     PLIMIT   ENTRY. "CC.PL"        OBJECT TIME PRINT LIMIT                  FTNRES   1039
           162  00000000000000000000     QFLAG    ENTRY. 1S59*"CC.Q"    1S59 IF QUICK MODE COMPILATION ELSE 0    FTNRES   1040
                                         ROPFLAG  EQENT  CO.RND         ALTERNATE NAME FOR ROUNDED ARITHMETIC FL FTNRES   1041
           163  40000000000000000000     SLIST    ENTRY. 1S59*"CC.SL"   1S59 FOR SOURCE LIST ELSE 0              FTNRES   1044
           164  00000000000000000000     SPPFLAG  ENTRY. 0              SYSTEM PROGRAMMER PACKAGE FLAG           FTNRES   1045
           165  00000000000000000000     UFLAG    ENTRY. "CC.E"         .NZ. IF E OPT SELECTED ELSE 0            FTNRES   1047
           166  00000000000000000000     UOFLAG   ENTRY. 0           "0 IF *UO* SELECTED                         FEAT121A   25
           167  00000000000000000000     ZFLAG    ENTRY. 1S59*"CC.Z"    1S59 IF ZERO WORD LOAD FOR APLIST ELSE 0 FTNRES   1048
  
  
  
                                        **        FLAGS ASSOCIATED WITH LCM USEAGE ( OPT .GE. 2 )                FTNRES   1050
                                                                                                                 FTNRES   1051
           170  00000000000000000000     LCM.OA   ENTRY. 0           ORIGIN OF ALLOCATABLE LCM                   FTNRES   1052
           171  00000000000000000000     LCM.MM   ENTRY. 0           MEMORY MODE ( = 1S59 IF REDUCE MODE )       FTNRES   1053
           172  00000000000000000000     LCM.MU   ENTRY. 0           MEMORY USED                                 FTNRES   1054
                                         LCM.FL   EQENT  CP.AFLL     LCM FIELD LENGTH ( ACTUAL )                 FTNRES   1055
  
  
  
  
                                        **        GLOBAL TEMPORARY STORAGE CELLS.                                FTNRES   1057
                                        *                                                                        FTNRES   1058
                                        *         THESE SCRATCH CELLS ARE AVAILABLE TO ANY USER AT ANY TIME.     FTNRES   1059
                                        *         THEY ARE INTENDED FOR USE WITH IN-LINE CODE, AND SHOULD NOT    FTNRES   1060
                                        *         BE EXPECTED TO SURVIVE OVER SUBROUTINE CALLS.                  FTNRES   1061
                                                                                                                 FTNRES   1062
                                         GT1      EQENT  CP.LINE                                                 FEAT155H    8
                                         GT2      EQENT  CP.LINE+1                                               FEAT155H    9
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    40
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                                    FTNRES
  
                                                  ENTRY  L.MAXCD                                                 FTNRES   1073
                                  12     L.MAXCD  =      10D         SOURCE INPUT LINE MAX LENGTH (WORDS)        FTNRES   1074
                                  14     L.MAXLL  =      L.MAXCD+2   OUTPUT LISTING LINE MAX LENGTH (WORDS)      FTNRES   1075
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    41
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                                    FTNRES
  
                                        **        NAMES OF THE OVERLAYS LOADED BY FTN.                           FTNRES   1079
                                                                                                                 FTNRES   1080
           173  23312317261400000000     OVLA     ENTRY. 0L"FTNOVL"  NAME OF FTN (LIBRARY OR FILE)               FTNRES   1081
                                                  ENTRY  OVLB                                                    FTNRES   1082
           174  00002140000000000000     OVLB     VFD    6/**,6/**,12/2140B,18/**,18/**    LOAD REQUEST WORD     FTNRES   1083
           175  06241634330000000000     OVL10    ENTRY. 5LFTN10     TS MODE OVERLAY                             FTNRES   1084
           176  06241635330000000000     OVL20    ENTRY. 5LFTN20     OPTIMIZATION MODE PRIMARY OVERLAY           FTNRES   1085
           177  06241635340000000000     OVL21    ENTRY. 5LFTN21     OPTIMIZATION MODE PASS 1                    FTNRES   1086
                                         #OVL     IFEQ   .OVL,0                                                  FCC0824     4
                                         OVL22    ENTRY. 5LFTN25     FAX,REFMAP AND OPTIMIZATION PASS 2          FCC0824     5
                                         #OVL     ELSE                                                           FCC0824     6
           200  06241635350000000000     OVL22    ENTRY. 5LFTN22     OPTIMIZATION MODE PASS 2                    FCC0824     7
                                         #OVL     ENDIF                                                          FCC0824     8
           201  06241635360000000000     OVL23    ENTRY. 5LFTN23     OPTIMIZATION MODE ERROR MESSAGES            FTNRES   1088
           202  06241635370000000000     OVL24    ENTRY. 5LFTN24     DEBUG MODE PRIMARY OVERLAY                  FTNRES   1089
           203  06241635400000000000     OVL25    ENTRY. 5LFTN25     FAX AND REFMAP OVERLAY                      FTNRES   1090
                                                                                                                 FTNRES   1091
           204  01000140000000002777     CMPSLDR  VFD    12/0100B,9/014B,3/0,18/**,18/CP.ORG                     FTNRES   1092
           205  03171520365300000000     CMPSOVL  DATA   0L"CP.NAME"       NAME OF *COMPASS* (1,0) OVERLAY       FTNRES   1093
                                                                                                                 FTNRES   1094
                                                                                                                 FTNRES   1095
                                                                                                                 FTNRES   1096
                                        **        DEFINE MAIN TITLE LINE.                                        FTNRES   1097
                                        *                                                                        FTNRES   1098
                                         .T       IFNE   TEST,0                                                  FTNRES   1099
                                         MODLVL   MICRO  1,, "MODLVL"                                            FTNRES   1100
                                         MODLVL   MICRO  1,9,$"MODLVL"*T*      $                                 FTNRES   1101
                                         .T       ENDIF                                                          FTNRES   1102
                                         TARGET   MICRO  1,4,$"MODEL"    $                                       FTNRES   1103
                                                                                                                 FTNRES   1104
                                                  ENTRY  O.TITL                                                  FTNRES   1105
           206                           O.TITL   BSS    0                                                       FTNRES   1106
                                                                                                                 FTNRES   1107
                                                  LIST   A                                                       FTNRES   1108
           206  34555555555555555555     TL.JECT  ENTRY. 10H1                            PRINTER SPACE CODE      FTNRES   1109
           207  55555555555555555555     TL.PTYP  ENTRY. 10H                             PROGRAM UNIT TYPE       FTNRES   1110
           210  55555555555555555555     TL.PNAM  ENTRY. 10H                             PROGRAM UNIT NAME       FTNRES   1111
                                         TL.CPU   DATA   10H  70/"TARGET"                PROCESSING CPUS         FTNRES   1112
           211  55554233504336405555     TL.CPU   DATA   10H  70/835                 PROCESSING CPUS             FTNRES   1112
           212  55555555555555555555     TL.CCOP  ENTRY. 10H                             CONTROL CARD OPTIONS    FTNRES   1113
           213  55555555555555555555              DATA   10H                                                     FTNRES   1114
           214  55555555555555555555              DATA   10H                                                     FTNRES   1115
                                         O.TTLA   ENTRY. (10H  FTN "VER"+)                PROCESSOR NAME         FEAT126A   23
           215  55550624165537574345     O.TTLA   ENTRY. (10H  FTN 4.8+)                PROCESSOR NAME           FEAT126A   23
                                                  DATA   10H"MODLVL"                     PROCESSOR MOD LEVEL     FTNRES   1117
           216  43423455555555555555              DATA   10H871                           PROCESSOR MOD LEVEL    FTNRES   1117
                                        ,                                                                        FTNRES   1117
           217  55555555555555555555     TL.DATE  ENTRY. 10H MM/DD/YY                    DATE                    FTNRES   1118
           220  55555555555555555555     TL.TIME  ENTRY. 10H HH.MM.SS                    TIME OF DAY             FTNRES   1119
           221  55555555555520010705              DATA    4APAGE                                                 FTNRES   1120
           222  00000000000000000000     TL.PAGE  ENTRY. 0                               PAGE NUMBER             FEAT126A   24
                                                  LIST   *                                                       FTNRES   1122
                                                                                                                 FTNRES   1123
                                                  ENTRY  L.TITL                                                  FTNRES   1124
                                  15     L.TITL   =      *-O.TITL                                                FTNRES   1125
                                         L.TTLA   EQENT  *-O.TTLA-1  1ST TITLE LENGTH IN PW MODE                 FEAT126A   25
                                         L.TTLB   EQENT  O.TTLA-TL.PTYP-1  2ND TITLE LENGTH IN PW MODE           FEAT126A   26
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    42
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                                    FTNRES
  
                                                                                                                 FCC2125    19
                                        **        SET ENTRY POINT ADDRESS FOR OVERLAY DIRECTIVE PARAMETER        FCC2125    20
                                        #RM       IFEQ   CP#RM,7                                                 FCC2125    21
                                                  LOC    777B                                                    FCC2125    22
                                        #RM       ELSE                                                           FCC2125    23
      L   2777                                    LOC    2777B                                                   FCC2125    24
                                        #RM       ENDIF                                                          FCC2125    25
      L   2777                           LDPT     BSS    0                                                       FCC2125    26
           223                                    LOC    *O                                                      FCC2125    27
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    43
        LOAD OVERLAYS                                                           FTNRES
  
                                        ***       LOAD OVERLAYS.                                                 FTNRES   1142
                                        *                                                                        FTNRES   1143
                                                                                                                 FTNRES   1144
                                                                                                                 FTNRES   1145
                                        **        FORM 2-WORD LOADER REQUEST FOR LOADING *COMPASS* ASSEMBLER     FTNRES   1146
                                        *         (1,0) OVERLAY.                                                 FTNRES   1147
                                        *                                                                        FTNRES   1148
                                                  ENTRY  LDCOM                                                   FTNRES   1149
           223  5150000071 C             LDCOM    SA5    LCM.FL                                                  FTNRES   1150
                          43700                   MX7    0                                                       FTNRES   1151
                               10655              BX6    X5                                                      FTNRES   1152
           224  5160000072 C                      SA6    CP.NFLL     CP.NFLL = CP.AFLL , SO WE KEEP OUR LCM      FTNRES   1153
                          5170000023 C            SA7    GT1                                                     FTNRES   1154
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   32
           225  7160222026                        SYSTEM RPV,RCL,GT1 CANCEL REPRIEVE REQUEST                     FTNRES   1156
                                         #OS      ELSE                                                           FTNRES   1157
                                                  REPRIEVE  GT1      CANCEL REPRIEVE REQUEST                     FTNRES   1158
                                         #OS      ENDIF                                                          FTNRES   1159
           230  5150000070 C                      SA5    CP.NFLS     LWA SPACE AVAILABLE FOR LOADING             FTNRES   1160
                          5140000205 +            SA4    CMPSOVL     NAME OF *COMPASS* (1,0) OVERLAY             FTNRES   1161
           231  5110000204 +                      SA1    CMPSLDR     OVERLAY LEVEL, LDR FLAGS, FWA LOAD          FTNRES   1162
                          20522                   LX5    18                                                      FTNRES   1163
                               10644              BX6    X4                                                      FTNRES   1164
           232  36715                             IX7    X1+X5                                                   FTNRES   1165
                                                                                                                 FTNRES   1166
                                                                                                                 FTNRES   1167
                                                                                                                 FTNRES   1168
                                        **        REQUEST OVERLAY LOAD.                                          FTNRES   1169
                                        *                                                                        FTNRES   1170
                                        *         ENTRY  (X4) = LIBRARY OR FILE NAME, -L- FORMAT                 FTNRES   1171
                                        *                (X6) = OVERLAY NAME, -L- FORMAT                         FTNRES   1172
                                        *                (X7) = LOADER REQUEST WORD 1, FORMAT --                 FTNRES   1173
                                        *                       12/OVERLAY LEVEL (0P0S),                         FTNRES   1174
                                        *                        9/LOADER REQUEST FLAGS,                         FTNRES   1175
                                        *                        3/0,                                            FTNRES   1176
                                        *                       18/LWA SPACE AVAILABLE TO LOADER,                FTNRES   1177
                                        *                       18/FWA LOAD                                      FTNRES   1178
                                        *                                                                        FTNRES   1179
                                                  ENTRY  LOVER                                                   FTNRES   1180
           233                           LOVER    BSS    0                                                       FEAT155F  101
                                                                                                                 FEAT155F  102
                                                  IFNE   TEST,0,1                                                FEAT155F  103
                                                  SA6    LOVOVR      SAVE (X6) = OVERLAY NAME (0L FMT)           FEAT155F  104
                                                                                                                 FEAT155F  105
           233  5170000100                        SA7    RA.ORG      SAVE (X7) = LDR REQUEST WORD 1              FEAT155F  106
                          5160000250 +            SA6    LOVERM+1    OVERLAY NAME TO ERROR MESSAGE TEXT          FTNRES   1182
                                                  IFNE   TEST,0,2                                                FCCT002     5
                                                  IFLE   CT.CPU,74,1                                             FCCT002     6
                                                  SA6    IBAX        SAVE OVERLAY NAME FOR INDEX BUFFER SEARCH   FCCT002     7
           234  6110000001                        SB1    1                                                       FTNRES   1183
                          5170000020              SA7    LDRP+1      OVL LVL, FLAGS, ADDR TO LDR REQUEST WORD 1  FTNRES   1184
                                                                                                                 FTNRES   1185
                                        *         PROCESS 2-WORD LOADER CALL.                                    FTNRES   1186
                                                                                                                 FTNRES   1187
                                         .LDR     IFEQ   LDRCALL,2                                               FTNRES   1188
                                         .T       IFNE   TEST,0                                                  FTNRES   1189
                                                  BX6    X4          SUBSTITUTE FILE NAME FOR OVERLAY NAME       FTNRES   1190
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    44
        LOAD OVERLAYS                                                           FTNRES
  
                                         .T       ENDIF                                                          FTNRES   1191
                                                  SA6    A7-B1       OVERLAY OR FILE NAME TO LDR REQUEST WORD 0  FTNRES   1192
                                         .LDR     ENDIF                                                          FTNRES   1193
                                                                                                                 FTNRES   1194
                                        *         PROCESS 3-WORD LOADER CALL.                                    FTNRES   1195
                                                                                                                 FTNRES   1196
                                         .LDR     IFEQ   LDRCALL,3                                               FTNRES   1197
           235  54671                             SA6    A7+B1       OVERLAY NAME TO LDR REQUEST WORD 2          FTNRES   1198
                     10744                        BX7    X4                                                      FTNRES   1199
                          55771                   SA7    A7-B1       LIBRARY OR FILE NAME TO LDR REQUEST WORD 0  FTNRES   1200
                                         .LDR     ENDIF                                                          FTNRES   1201
                                                                                                                 FTNRES   1202
                               13666              BX6    X6-X6                                                   FTNRES   1203
           236  5160000067                        SA6    RA.LDR      CLEAR LOADER COMMUNICATIONS CELL            FTNRES   1204
                                                                                                                 FTNRES   1205
                                         .T       IFNE   TEST,0                                                  FTNRES   1206
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   33
                                                  CALL   OFFSPY      TURN -SPY- OFF                              FTNRES   1208
                                                                                                                 FCCT002     8
                                        *         SEARCH INDEX BUFFER FOR OVERLAY NAME AND SEE IF *LINK* HAS     FCCT002     9
                                        *         FILLED IN THE DISK ADDRESS"S OF THE OVERLAYS DURING LOADING.   FCCT002    10
                                                                                                                 FCCT002    11
                                                  SA1    IBA=+1                                                  FCCT002    12
                                                  SA3    IBAX                                                    FCCT002    13
                                                  SB2    2                                                       FCCT002    14
                                                                                                                 FCCT002    15
                                         LOV1     BX2    X3-X1                                                   FCCT002    16
                                                  SA1    A1+B2                                                   FCCT002    17
                                                  NZ     X2,LOV1                                                 FCCT002    18
                                                                                                                 FCCT002    19
                                                  SA5    A1-B1                                                   FCCT002    20
                                                  ZR     X5,LOV2     IF NOT FOUND IN INDEX BUFFER                FCCT002    21
                                                                                                                 FCCT002    22
                                        *         (X5) = 18/LWA+1,18/FWA OF LOAD,24/DISK ADDRSSS OF OVERLAY      FCCT002    23
                                        *         SETUP A *FET* AND READ THE OVERLAY IN                          FCCT002    24
                                                                                                                 FCCT002    25
                                                  MX0    -24                                                     FCCT002    26
                                                  SA3    OVLA        LFN                                         FCCT002    27
                                                  SX7    12B         READ REQUEST                                FCCT002    28
                                                  BX6    -X0*X5                                                  FCCT002    29
                                                  SA6    LFET+6      DISK ADDRESS                                FCCT002    30
                                                  AX5    24                                                      FCCT002    31
                                                  SA4    LFET-1                                                  FCCT002    32
                                                  BX6    X3+X7                                                   FCCT002    33
                                                  SB6    X5          (B6) = FWA OF LOAD                          FCCT002    34
                                                  SA6    A4+B1       LFN + CODE                                  FCCT002    35
                                                  SX3    X5                                                      FCCT002    36
                                                  BX7    X3+X4                                                   FCCT002    37
                                                  SA7    A6+B1       FIRST = FWA                                 FCCT002    38
                                                  AX5    18                                                      FCCT002    39
                                                  SX5    X5+100B                                                 FCCT002    40
                                                  SX7    X5+B1                                                   FCCT002    41
                                                  SA7    A7+B1       IN = OUT = LWA+1                            FCCT002    42
                                                  SA7    A7+B1                                                   FCCT002    43
                                                  MX0    42                                                      FCCT002    44
                                                  SA4    A7+B1                                                   FCCT002    45
                                                  BX4    X0*X4       PRESERVE FNT ADDRESS                        FCCT002    46
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    45
        LOAD OVERLAYS                                                           FTNRES
  
                                                  SX7    X7+17B      LIMIT = LWA+2 + 77TBL LEN                   FCCT002    47
                                                  BX6    X4+X7                                                   FCCT002    48
                                                  SA6    A4                                                      FCCT002    49
                                                  MX7    0                                                       FCCT002    50
                                                  SA7    B6          CONT(FWA) = 0 IN CASE WE DONT GET ANYTHING  FCCT002    51
                                                  SYSTEM CIO,R,LFET  ISSUE A READ REQUEST                        FCCT002    52
                                                  SA2    LFET                                                    FCCT002    53
                                                  SA3    B6                                                      FCCT002    54
                                                  LX2    59-4                                                    FCCT002    55
                                                  PL     X2,LOV6     IF NOT EOR/EOF                              FCCT002    56
                                                  SB7    X3          (B7) = XFER ADDRESS                         FCCT002    57
                                                  AX3    48                                                      FCCT002    58
                                                  SX4    X3-775000B                                              FCCT002    59
                                                  ZR     X4,LOV2A    IF A 50 TABLE                               FCCT002    60
                                                  SX4    X3-775400B                                              FCCT002    61
                                                  NZ     X4,LOV6     IF NOT A 54 TABLE                           FCCT002    62
                                                  SA5    A3+4                                                    FCCT002    63
                                                  SB7    X5          (B7) = TRANSFER ADDRESS                     FCCT002    64
                                                  EQ     LOV2A                                                   FCCT002    65
                                                                                                                 FCCT002    66
                                                  ENTRY  IBA=                                                    FCCT002    67
                                         IBA=     VFD    42/,18/IBAX-*                                           FCCT002    68
                                                  DATA   5LFTN10,0                                               FCCT002    69
                                                  ECHO   1,X=(0,1,2,3,4,5)                                       FCCT002    70
                                                  DATA   5L_FTN2_X,0                                             FCCT002    71
                                         IBAX     BSSZ   2           SEARCH TERMINATOR                           FCCT002    72
                                                                                                                 FCCT002    73
                                                  VFD    13/1,29/3,18/0                                          FCCT002    74
                                         LFET     DATA   3LFTN                                                   FCCT002    75
                                                  BSSZ   7           REST OF THE FET                             FCCT002    76
                                                                                                                 FCCT002    77
                                         LOV2     BSS    0                                                       FCCT002    78
                                         #OS      ENDIF                                                          FTNRES   1209
                                         .T       ENDIF                                                          FTNRES   1210
                                                                                                                 FTNRES   1211
                          7160140426              LOADREQ  LDRP,RCL  REQUEST OVERLAY LOAD                        FTNRES   1212
           241  5120000020                        SA2    LDRP+1      LOADER REPLY WORD                           FTNRES   1213
                          63720                   SB7    X2          (B7) = ENTRY POINT ADDRESS IN NEW OVERLAY   FTNRES   1214
                               20227              LX2    59-36       LOADER ERROR STATUS BIT TO B59              FTNRES   1215
           242  0332000244 +                      MI     X2,LOV6     IF LOADER COULD NOT LOAD OVERLAY            FTNRES   1216
                                                                                                                 FTNRES   1217
                                                                                                                 FTNRES   1218
           243                           LOV2A    BSS    0                                                       FCCT002    79
                                                                                                                 FTNRES   1219
                                         .T       IFNE   TEST,0                                                  FTNRES   1220
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   34
                                                                                                                 FTNRES   1222
                                        **        PAUSE BEFORE TRANSFERRING TO OVERLAY IF *SNAP=(OVL NR)* SET.   FTNRES   1223
                                        *         USEFUL FOR CONSOLE DEBUGGING.  ASSEMBLED ONLY IN TEST MODE.    FTNRES   1224
                                        *                                                                        FTNRES   1225
                                                  SA1    RA.ORG      (X1) = SAVED OVERLAY CONTROL FLAGS, ETC.    FTNRES   1226
                                                  SA2    CO.SNAP                                                 FTNRES   1227
                                                  MX6    -3                                                      FTNRES   1228
                                                  LX1    -39-9                                                   FTNRES   1229
                                                  SA3    RA.SSW                                                  FTNRES   1230
                                                  BX7    -X6*X1      (X7) = SECONDARY OVERLAY NUMBER             FTNRES   1231
                                                  SB2    X7+1R0                                                  FTNRES   1232
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    46
        LOAD OVERLAYS                                                           FTNRES
  
                                                  LX2    B2                                                      FTNRES   1233
                                                  PL     X2,LOV4     IF THIS OVERLAY NUMBER NOT CHOSEN           FTNRES   1234
                                                  SX6    1S12                                                    FTNRES   1235
                                                  BX7    X3+X6                                                   FTNRES   1236
                                                  SA7    A3          PAUSE BIT ON - TO WAIT FOR BREAKPOINT SET   FTNRES   1237
                                         LOV3     RECALL                                                         FTNRES   1238
                                                  SA1    RA.SSW                                                  FTNRES   1239
                                                  NO                                                             FTNRES   1240
                                                  LX1    59-12                                                   FTNRES   1241
                                                  MI     X1,LOV3     IF PAUSE BIT ON, LOOP ON RECALL             FTNRES   1242
                                                                                                                 FTNRES   1243
                                                                                                                 FTNRES   1244
                                                                                                                 FTNRES   1245
                                        **        CALL P-MONITOR PPU PROGRAM *SPY*.                              FTNRES   1246
                                        *                                                                        FTNRES   1247
                                         LOV4     SA1    SPYW                                                    FTNRES   1248
                                                  SA2    RA.ORG      (X2) = SAVED OVERLAY CONTROL FLAGS, ETC.    FTNRES   1249
                                                  ZR     X1,LOV5     IF *SPY* OPTION NOT SELECTED                FTNRES   1250
                                                  AX2    48-0        (X2) = OVERLAY LEVEL                        FTNRES   1251
                                                  BX6    X1                                                      FTNRES   1252
                                                  ZR     X2,LOV5     IF (0,0) OVERLAY                            FTNRES   1253
                                                  SX7    X2-0200B                                                FTNRES   1254
                                                  ZR     X7,LOV5     IF (2,0) OVERLAY                            FTNRES   1255
                                                  SA1    SPYO                                                    FTNRES   1256
                                                  MI     X7,LOV4A    IF (1,X) OVERLAY                            FTNRES   1257
                                                  SX7    X7+1L2-1L1                                              FTNRES   1258
                                                  LX7    18                                                      FTNRES   1259
                                                  IX1    X7+X1       7LOVL020S                                   FTNRES   1260
                                         LOV4A    BX7    X1                                                      FTNRES   1261
                                                  SA6    A1-B1       LIMITS TO SPY PARAM LIST                    FTNRES   1262
                                                  SA7    A6-B1       OVERLAY LEVEL TO LIST (SPYP)                FTNRES   1263
                                                  SYSTEM SPY,RCL,A6                                              FTNRES   1264
                                                                                                                 FEAT155F  107
                                        *         HERE TO CHECK FOR CALL TO *IDP* VIA *BREAK=PS* CC OPTION.      FEAT155F  108
                                                                                                                 FEAT155F  109
                                         LOV5     SA3    LOVOVR      (X3) = NAME OF OVERLAY TO BE LOADED(0L FMT) FEAT155F  110
                                                  SA4    CMPSOVL     (X4) = NAME OF COMPASS OVERLAY (0L FMT)     FEAT155F  111
                                                  SA1    CO.BRK                                                  FEAT155F  112
                                                  SA2    RA.ORG                                                  FEAT155F  113
                                                  BX6    X3-X4                                                   FEAT155F  114
                                                  AX2    48-0                                                    FEAT155F  115
                                                  SX4    2R00                                                    FEAT155F  116
                                                  ZR     X6,LOV5B    IF LOADING COMPASS, IDP NOT POSSIBLE...     FEAT155F  117
                                        *                              AVOID *COMPASS(1,0) LOOKS LIKE FTN(1,0)*  FEAT155F  118
                                                  MX3    1                                                       FEAT155F  119
                                                                                                                 FEAT155F  120
                                         LOV5A    MX0    -2*CHAR                                                 FEAT155F  121
                                                  LX1    2*CHAR                                                  FEAT155F  122
                                                  BX6    -X0*X1                                                  FEAT155F  123
                                                  LX3    2*CHAR                                                  FEAT155F  124
                                                  ZR     X6,LOV5B    IF END OF OVR LIST OR (BREAK=PS) NOT SELECT FEAT155F  125
                                                  MI     X3,LOV5B    IF FINISHED CHECKING ENTIRE WORD            FEAT155F  126
                                                  IX7    X6-X4       (X7) = OVERLAY NRS IN (0P0S) FORM           FEAT155F  127
                                                  BX6    X7-X2                                                   FEAT155F  128
                                                  NZ     X6,LOV5A    IF NOT CALLING *IDP* FOR THIS OVERLAY       FEAT155F  129
                                                  SB7    B7-1        SET TO *CALL IDP BEFORE NORMAL OVERLAY XEQ* FEAT155F  130
                                                                                                                 FEAT155F  131
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    47
        LOAD OVERLAYS                                                           FTNRES
  
                                         LOV5B    BSS    0                                                       FEAT155F  132
                                                                                                                 FTNRES   1266
                                         #OS      ENDIF                                                          FTNRES   1267
                                         .T       ENDIF                                                          FTNRES   1268
                                                                                                                 FTNRES   1269
                                                                                                                 FTNRES   1270
                                                                                                                 FTNRES   1271
                                        **        TRANSFER CONTROL TO NEWLY-LOADED OVERLAY.                      FTNRES   1272
                                        *                                                                        FTNRES   1273
           243  0277000000                        JP     B7          TO NEW OVERLAY                              FTNRES   1274
                                                                                                                 FTNRES   1275
                                                                                                                 FTNRES   1276
                                                                                                                 FTNRES   1277
                                        **        PROCESS ERROR IN LOADING OVERLAY.                              FTNRES   1278
                                        *                                                                        FTNRES   1279
           244  7110000247 +             LOV6     MESSAGE  LOVERM,,RCL                                           F7540FT    28
           246  0400000277 +                      EQ     END2        ABORT                                       FEAT155H   10
                                                                                                                 FTNRES   1287
                                                                                                                 FTNRES   1288
           247  03011624551417010455     LOVERM   DIS    ,/CANT LOAD ....    /                                   FTNRES   1289
                                                                                                                 FTNRES   1290
                                                                                                                 FTNRES   1291
                                                                                                                 FTNRES   1292
                                                  IFNE   TEST,0,1                                                FEAT155F  133
                                         LOVOVR   BSSZ   1           SAVED NAME OF OVERLAY TO BE LOADED (0L FMT) FEAT155F  134
  
  
  
  
                                        **        *COMPASS* ASSEMBLER RETURN POINT.                              FTNRES   1293
                                        *                                                                        FTNRES   1294
           251  43601                    STOP     MX6    1                                                       FCCA519     5
                     6110000001                   SB1    1                                                       FCCA519     6
           252  5160000021 C                      SA6    COMRET      INDICATE COMPASS CALLED                     FCCA519     7
                                                                                                                 FTNRES   1299
                                                                                                                 FTNRES   1300
                                                                                                                 FTNRES   1301
                                        **        LOAD *FTN* PRIMARY OVERLAY.                                    FTNRES   1302
                                        *                                                                        FTNRES   1303
           253  5110000147 +             LDPRI    SA1    CO.TS                                                   FCC0971    11
                          0301000261 +            ZR     X1,LD20                                                 FTNRES   1305
           254  5150000070 C                      LOVER  OVL10       TS MODE                                     FTNRES   1306
                                                                                                                 FTNRES   1307
           261  5150000070 C             LD20     LOVER  OVL20       OPTIMIZATION MODE                           FTNRES   1308
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    48
        TERMINATE COMPILATION                                                   FTNRES
  
                                        ***       TERMINATE COMPILATION.                                         FTNRES   1310
                                        *                                                                        FTNRES   1311
                                                                                                                 FTNRES   1312
                                                                                                                 FTNRES   1313
                                                  ENTRY  ENDFTN                                                  FTNRES   1314
           266                           ENDFTN   BSS    0                                                       FTNRES   1315
                                                                                                                 FTNRES   1316
                                                                                                                 FTNRES   1317
                                                                                                                 FTNRES   1318
                                        **        SEND COMPILATION TIME TO DAYFILE.                              FTNRES   1319
                                        *                                                                        FTNRES   1320
                                         .TIM     IFNE   CTIMO,0                                                 FTNRES   1321
           266  5120000361 +                      SA2    TIME0       START OF COMPILATION TIME                   FTNRES   1322
                          0100000344 +            CALL   CPTIM                                                   FTNRES   1323
           267  5160000363 +                      SA6    CPTMSG      TIME TO DAYFILE MESSAGE TEXT                FTNRES   1324
                          7110000363 +            MESSAGE   CPTMSG,,RECALL                                       FTNRES   1325
                                         .TIM     ENDIF                                                          FTNRES   1326
                                                                                                                 FTNRES   1335
                                        **        PROCESS ABNORMAL TERMINATION CONDITIONS.                       FTNRES   1336
                                        *                                                                        FTNRES   1337
           272  5110000003 C                      SA1    CP.ERRCT                                                FTNRES   1338
                          5120000002 C            SA2    CP.ABORT                                                FTNRES   1339
           273  43301                             MX3    1                                                       CP139FC    58
                     20336                        LX3    59-29                                                   CP139FC    59
                          11223                   BX2    X2*X3                                                   CP139FC    60
           274  5140000131 +                      SA4    CER.FL                                                  FCC2104     8
                          0314000276 +            NZ     X4,END1                                                 FCC2104     9
           275  0301000302 +                      ZR     X1,END4     IF NO COMPILATION OR ASSEMBLY ERRORS        FTNRES   1340
                          0331000302 +            MI     X1,END4     IF DEBUG (D) OPTION ON                      FTNRES   1341
           276  0302000302 +             END1     ZR     X2,END4     IF ABORT(A) OPTION OFF                      FCC2104    10
                                                                                                                 FTNRES   1343
           277  7160041121               END2     ABORT  ,NODUMP,S   TO EXIT(S) WITH NO DUMP                     FCC1741X    5
                                                                                                                 FTNRES   1347
                                                                                                                 FTNRES   1348
                                                                                                                 FTNRES   1349
                                        **        PROCESS AUTO EXECUTE (GO-OPTION) REQUEST.                      FCC0864     9
                                        *                                                                        FTNRES   1351
           302  5110000153 +             END4     SA1    GOFLAG                                                  FTNRES   1352
                          0301000320 +            ZR     X1,END5     IF GO-OPTION OFF                            FCC0864    10
           303  10611                             BX6    X1                                                      FTNRES   1354
                     5160000064                   SA6    RA.PGN      POST FILE/PROGRAM NAME FOR MSG AND LOADER   FTNRES   1355
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FCC0864    11
           304  7160150515                        MEMORY SCM,LDRFL,RCL     RFL DOWN BEFORE CALLING LOADER        FCC0864    12
                                         #OS      ENDIF                                                          FCC0864    13
           307  43700                             MX7    0                                                       FTNRES   1356
                     5170000023 C                 SA7    GT1         CLEAR REQUEST/REPLY CELL FOR *RPV*          FTNRES   1357
                                                                                                                 FTNRES   1358
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   35
           310  7160222026                        SYSTEM RPV,RCL,GT1 CANCEL REPRIEVE REQUEST                     FTNRES   1360
                                         #OS      ELSE                                                           FTNRES   1361
                                                  REPRIEVE  GT1      CANCEL REPRIEVE REQUEST                     FTNRES   1362
                                         #OS      ENDIF                                                          FTNRES   1363
                                                                                                                 FTNRES   1364
           313  7110000064                        MESSAGE   RA.PGN,,RCL                                          FTNRES   1365
           315  7160140426                        LOADREQ   0                                                    FTNRES   1366
           317  0400000317 +            +         EQ     *           WAIT FOR OP SYS TO PICK UP REQUEST          FTNRES   1367
                                                                                                                 FTNRES   1368
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    49
        TERMINATE COMPILATION                                                   FTNRES
  
                                                                                                                 FTNRES   1369
                                                                                                                 FTNRES   1370
                                        **        TERMINATE COMPILATION NORMALLY.                                FTNRES   1371
                                        *                                                                        FTNRES   1372
           320  7160247021               END5     ENDRUN                                                         FTNRES   1373
  
  
  
  
                                         #RM      IFEQ   CP#RM,0                                                 FTNRES   1376
                                                                                                                 FTNRES   1377
                                        *         TABLE OF SCRATCH FILES TO BE EVICTED AT END OF COMPILATION     FTNRES   1378
                                        *         MODIFIED AT THE END OF INITIALIZATION WHEN ALL CONTROL         FTNRES   1379
                                        *         CARD OPTIONS ARE KNOWN                                         FTNRES   1380
                                                                                                                 FTNRES   1381
                                                  ENTRY  SCRTBL                                                  FTNRES   1382
           322  00000000000000000047 +   SCRTBL   CON    F.RLST                                                  FTNRES   1383
           323  00000000000000000057 +            CON    F.RMAP                                                  FTNRES   1384
           324  00000000000000000067 +            CON    F.OPT                                                   FTNRES   1385
           325  00000000000000000037 +            CON    F.CMPS                                                  FTNRES   1386
           326  77777777777777777776              DATA   -1                TABLE TERMINATOR                      FTNRES   1387
                                                                                                                 FTNRES   1388
                                         #RM      ENDIF                                                          FTNRES   1389
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    50
        RESIDENT SUBROUTINES                                          OFFSPY    FTNRES
  
                                         .T       IFNE   TEST,0                                                  FTNRES   1392
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   36
                                                                                                                 FTNRES   1394
                                        **        OFFSPY - TURN OFF P-MONITOR PPU PROGRAM *SPY*.                 FTNRES   1395
                                        *                                                                        FTNRES   1396
                                        *         ENTRY  NO REGISTER REQUIREMENTS.                               FTNRES   1397
                                        *                                                                        FTNRES   1398
                                        *         EXIT   *SPY* IS TURNED OFF.                                    FTNRES   1399
                                        *                                                                        FTNRES   1400
                                        *         USES   X - 1, 2, 6                                             FTNRES   1401
                                        *                A - 1, 6                                                FTNRES   1402
                                        *                B - NONE                                                FTNRES   1403
                                        *                                                                        FTNRES   1404
                                        *         CALLS  RECALL (WNB=)                                           FTNRES   1405
                                                                                                                 FTNRES   1406
                                                                                                                 FTNRES   1407
                                         OFFSPY   ENTRY. **          ** ENTRY/EXIT **                            FTNRES   1408
                                                  SA1    SPYP+1                                                  FTNRES   1409
                                                  ZR     X1,OFFSPY   IF *SPY* NOT ON, EXIT                       FTNRES   1410
                                                  MX6    1                                                       FTNRES   1411
                                                  SA6    A1          TELL *SPY* TO STOP                          FTNRES   1412
                                                  RECALL A1                                                      FTNRES   1413
                                                  BX6    X6-X6                                                   FTNRES   1414
                                                  SA6    SPYP+1                                                  FTNRES   1415
                                                  EQ     OFFSPY      EXIT                                        FTNRES   1416
                                                                                                                 FTNRES   1417
                                                                                                                 FTNRES   1418
                                                                                                                 FTNRES   1419
                                         SPYW     BSSZ   1                       CONTROL CARD (W-OPT) PARAMS     FTNRES   1420
                                        *         *SPY* REQUEST PARAMETER LIST                                   FTNRES   1421
                                         SPYP     BSSZ   1           7LOVL0P0S                                   FTNRES   1422
                                                  BSSZ   1           12/BINW,12/:,12/LO,12/HI,12/0               FTNRES   1423
                                         SPYO     DATA   7LOVL0100                                               FTNRES   1424
                                                                                                                 FTNRES   1425
                                         #OS      ENDIF                                                          FTNRES   1426
                                         .T       ENDIF                                                          FTNRES   1427
  
  
  
  
                                         .CT      IFNE   CTIMO,0                                                 FTNRES   1429
                                                                                                                 FTNRES   1430
                                        **        REALDEC - BINARY TO DISPLAY CODE CONVERSION.                   FTNRES   1431
                                        *                                                                        FTNRES   1432
                                        *                                                                        FTNRES   1433
                                        *         ENTRY  (X1) = NUMBER TO BE CONVERTED                           FTNRES   1434
                                        *                (B4) = 6 * NEGATIVE OF SCALE FACTOR                     FTNRES   1435
                                        *                                                                        FTNRES   1436
                                        *         EXIT   (X6) = DPC CONVERSION, RIGHT JUSTIFIED, SPACE FILLED    FTNRES   1437
                                        *                                                                        FTNRES   1438
                                        *         USES   X - ALL BUT X0                                          FTNRES   1439
                                        *                A - 3, 4, 5                                             FTNRES   1440
                                        *                B - 2, 3, 4                                             FTNRES   1441
                                        *                                                                        FTNRES   1442
                                        *         CALLS  NONE                                                    FTNRES   1443
                                                                                                                 FTNRES   1444
                                                                                                                 FTNRES   1445
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    51
        RESIDENT SUBROUTINES                                          REALDEC   FTNRES
  
           327  0724000335 +             RLD2     LT     B2,B4,RLD4  IF DECIMAL POINT NOT YET APPENDED           FTNRES   1446
                          20366                   LX3    -6                                                      FTNRES   1447
                               22623              LX6    X3,B2                                                   FTNRES   1448
                                                                                                                 FTNRES   1449
           330  0400400330 +             REALDEC  ENTRY. **          ** ENTRY/EXIT **                            FTNRES   1450
           331  6130000006                        SB3    6                                                       FTNRES   1451
                          5150000342 +            SA5    RLDA        (X5) = 0.1P48+1                             FTNRES   1452
           332  66200                             SB2    B0                                                      FTNRES   1453
                     27101                        PX1    X1                                                      FTNRES   1454
                          7140000012              SX4    10                                                      FEAT155H   11
           333  43701                             MX7    1                                                       FTNRES   1456
                     27404                        PX4    X4          (X4) = 10.0                                 FEAT155H   12
                          5130000343 +            SA3    RLDC        (X3) = 10H                                  FTNRES   1458
           334  42651                    RLD3     DX6    X5*X1       (X6) = FRACTIONAL PART                      FTNRES   1459
                     40151                        FX1    X5*X1       (X1) = INTEGRAL PART                        FTNRES   1460
                          0307000327 +            ZR     X7,RLD2     IF REMAINING DIGITS ARE ZERO                FTNRES   1461
           335  20366                    RLD4     LX3    -6                                                      FTNRES   1462
                     66223                        SB2    B2+B3                                                   FTNRES   1463
                          40264                   FX2    X6*X4             DIGIT = 10.0*B                        FTNRES   1464
                               24701              NX7    X1                                                      FTNRES   1465
           336  7262777755                        SX6    X2+1R0-1R       CONVERT DIGIT TO DISPLAY CODE.          FTNRES   1466
                          36363                   IX3    X6+X3                                                   FTNRES   1467
           337  0524000334 +                      NE     B2,B4,RLD3  IF DECIMAL POINT NOT NEEDED YET             FTNRES   1468
                          7160000002              SX6    1R.-1R                                                  FTNRES   1469
           340  20366                             LX3    60-6                                                    FTNRES   1470
                     66223                        SB2    B2+B3                                                   FTNRES   1471
                          36336                   IX3    X3+X6                                                   FTNRES   1472
           341  0400000334 +                      EQ     RLD3                                                    FTNRES   1473
                                                                                                                 FTNRES   1474
                                        *         CONVERSION CONSTANTS.                                          FTNRES   1475
                                                                                                                 FTNRES   1476
           342  17170631463146314632     RLDA     CON    0.1P48+1                                                FTNRES   1477
           343  55555555555555555555     RLDC     CON    1H                                                      FTNRES   1479
  
  
  
  
                                        **        CPTIME - COMPUTE AND CONVERT ELAPSED CPU TIME.                 FTNRES   1481
                                        *                                                                        FTNRES   1482
                                        *         ENTRY  (X2) = CPU START TIME IN MILLISECONDS                   FTNRES   1483
                                        *                                                                        FTNRES   1484
                                        *         EXIT   (X6) = DPC ELAPSED TIME                                 FTNRES   1485
                                        *                                                                        FTNRES   1486
                                        *         CALLS  TIMER, REALDEC                                          FTNRES   1487
           344  0400400344 +             CPTIM    ENTRY. **          ** ENTRY/EXIT **                            FTNRES   1488
           345  0100000351 +                      CALL   TIMER       RETURNS (X6) = CURRENT CPTIME               FTNRES   1489
           346  6140000022                        SB4    3*CHAR      (B4)= -REALDEC- SCALE FACTOR, 1.0E-3        FTNRES   1490
                          37162                   IX1    X6-X2       (X1) = ELAPSED TIME (BINARY)                FTNRES   1491
           347  0100000330 +                      CALL   REALDEC     RETURNS (X6)=ELP. TIME(DISPLY CODE)         FTNRES   1492
           350  0400000344 +                      EQ     CPTIM       EXIT.                                       FTNRES   1493
                                                                                                                 FTNRES   1494
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    52
        RESIDENT SUBROUTINES                                          TIMER     FTNRES
  
                                        **        TIMER - OBTAIN ACCUMULATED CPU TIME.                           FTNRES   1496
                                        *                                                                        FTNRES   1497
                                        *         TIME IS CONVERTED INTO AN INTEGRAL NUMBER OF MILLISECONDS.     FTNRES   1498
                                        *                                                                        FTNRES   1499
                                        *                                                                        FTNRES   1500
                                        *         ENTRY  NO REQUIREMENTS                                         FTNRES   1501
                                        *                                                                        FTNRES   1502
                                        *         EXIT   (X6) = CURRENT CPU TIME                                 FTNRES   1503
                                        *                                                                        FTNRES   1504
                                        *         USES   X - 0, 3, 4, 5, 6                                       FTNRES   1505
                                        *                A - 5                                                   FTNRES   1506
                                        *                B - NONE                                                FTNRES   1507
                                        *                                                                        FTNRES   1508
                                        *         CALLS  TIME                                                    FTNRES   1509
                                                                                                                 FTNRES   1510
                                                                                                                 FTNRES   1511
           351  0400400351 +             TIMER    ENTRY. **          ** ENTRY/EXIT **                            FTNRES   1512
           352  7160241115                        TIME   GT1                                                     FTNRES   1513
           355  5150000023 C                      SA5    GT1                                                     FTNRES   1514
                          43060                   MX0    60-12                                                   FTNRES   1515
                               15450              BX4    -X0*X5      MSEC                                        FTNRES   1516
           356  21514                             AX5    12                                                      FTNRES   1517
                     7130001750                   SX3    1000D       SEC * 1000                                  FTNRES   1518
                               43044              MX0    36                                                      FTNRES   1519
           357  15550                             BX5    -X0*X5                                                  FTNRES   1520
                     42353                        IX3    X5*X3                                                   FTNRES   1521
                          36634                   IX6    X3+X4                                                   FTNRES   1522
           360  0400000351 +                      EQ     TIMER                                                   FTNRES   1523
                                                                                                                 FTNRES   1524
                                                                                                                 FTNRES   1525
                                                                                                                 FTNRES   1526
           361  00000000000000000000     TIME0    ENTRY. 0           COMPILATION START TIME                      FTNRES   1527
           362  00000000000000000000     TIME1    ENTRY. 0                                                       FTNRES   1528
           363  55555516161657161616     CPTMSG   DIS    ,*   NNN.NNN CP SECONDS COMPILATION TIME*               FTNRES   1530
                                                                                                                 FTNRES   1531
                                                                                                                 FTNRES   1532
                                         .CT      ENDIF                                                          FTNRES   1533
                                                                                                                 FTNRES   1534
                                                                                                                 FTNRES   1535
                                                                                                                 FTNRES   1536
                                        **        END OF RESIDENT CODE IN (0,0) OVERLAY.                         FTNRES   1537
  
  
  
  
                                                  USE    FTNINIT                                                 FTNRES   1539
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    53
        INITIALIZATION MAIN LOOP                                      FTN       FTNINIT 
  
                                        ***       COMPILER INITIALIZATION.                                       FTN         8
                                        *                                                                        FTN         9
                                                                                                                 FTN        10
                                                  USE    FTNINIT                                                 FTN        11
                                                                                                                 FTN        12
           367                           O.INIT   BSS    0           BASE ADDRESS OF INITIALIZATION BLOCK        FTN        13
  
  
  
  
                                        ****                                                                     FTN        15
                                        **        FTN - INITIALIZATION MAIN LOOP.                                FTN        16
                                        *                                                                        FTN        17
                                        *         THE OPERATING SYSTEM RESPONDS TO AN -FTN- CONTROL CARD BY      FTN        18
                                        *         LOADING THE (0,0) OVERLAY AND TRANSFERRING CONTROL HERE.       FTN        19
                                        *                                                                        FTN        20
                                        *         THIS CONTROLLER CALLS A SERIES OF INITIALIZATION SUBROUTINES   FTN        21
                                        *         AND TRANSFERS CONTROL TO THE PRIMARY OVERLAY.                  FTN        22
                                        *                                                                        FTN        23
                                        *         ENTRY  (A0) =  CM/SCM FIELD LENGTH                             FTN        24
                                        *                (X0) = ECS/LCM FIELD LENGTH                             FTN        25
                                        *                                                                        FTN        26
                                        *         EXIT   TO PRIMARY OVERLAY LOADER.                              FTN        27
                                        *                (B1) = 1                                                FTN        28
                                        *                                                                        FTN        29
                                        *         USES   B1, B5                                                  FTN        30
                                        *                                                                        FTN        31
                                        *         CALLS  SEE CODE                                                FTN        32
                                                                                                                 FTN        33
                                                                                                                 FTN        34
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FCCA489    24
                                        *                            VALID ONLY FOR NOS,NOS-BE                   FCCA489    25
                                                  ENTRY  FTN4                                                    FCCA489    26
           367                           FTN4     BSS    0           ** ALTERNATE SYSTEM LOADER ENTRY POINT **   FCCA489    27
                                         #OS      ENDIF                                                          FCCA489    28
                                                  ENTRY  FTN                                                     FTN        35
                                                                                                                 FTN        36
           367                           FTN      BSS    0           ** SYSTEM LOADER ENTRY POINT **             FTN        37
                                                                                                                 FTN        38
           367  6110000001                        SB1    1                                                       FTN        39
                          0100001523 +            CALL   MIA         MISC INITIALIZATION, PART A                 FTN        40
                                                                                                                 FTN        41
           370  0100000515 +                      CALL   ARG         PROCESS CONTROL CARD ARGUMENTS              FTN        42
                                                                                                                 FTN        43
           371  0100001566 +                      CALL   MIB         MISC INITIALIZATION, PART B                 FTN        44
                                                                                                                 FTN        45
           372  0100001373 +                      CALL   CFL         CHECK FIELD LENGTH                          FTN        46
                                                                                                                 FTN        47
           373  0100001501 +                      CALL   IBA         INITIALIZE I/O BUFFER SPACE ALLOCATIONS     FTN        48
                                                                                                                 FTN        49
           374  0400000253 +                      EQ     LDPRI       EXIT TO LOAD AND EXECUTE PRIMARY OVERLAY    FTN        50
                                        ****                                                                     FTN        51
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    54
        COMPILER INITIALIZATION SUBROUTINES                           KEYS      FTNINIT 
  
                                        **        KEYS - CONTROL CARD PARAMETER KEYWORD DEFINITIONS.             FTN        53
                                        *                                                                        FTN        54
                                        *         PARAMETER KEYWORDS ARE DEFINED BY MACRO CALLS, AS FOLLOWS --   FTN        55
                                        *                                                                        FTN        56
                                        * KEY     PARAM  CELL,ASSUMED                                            FTN        57
                                        *                                                                        FTN        58
                                        *         *KEY* IS THE PARAMETER KEY-WORD TO APPEAR ON CONTROL CARD.     FTN        59
                                        *                ONE TO SEVEN CHARACTERS.                                FTN        60
                                        *         *CELL* IS THE ADDRESS TO RECEIVE THE PARAMETER VALUE.          FTN        61
                                        *                IF NEGATIVE, IT IS JUMP ADDRESS OF A NON-STANDARD       FTN        62
                                        *                PROCESSOR FOR THIS CONTROL CARD OPTION.                 FTN        63
                                        *         *ASSUMED* = THE VALUE TO BE ASSUMED FOR THIS ARGUMENT WHEN     FTN        64
                                        *                THE KEY APPEARS WITHOUT AN EQUIVALENCED VALUE.          FTN        65
                                        *                IF IT IS OMITTED, THE VALUE WILL BE BINARY ZERO.        FTN        66
                                        *                IF IT IS *ON* THE VALUE IS 1S59.  IF IT IS *OFF*        FTN        67
                                        *                THE VALUE IS BINARY ZERO.                               FTN        68
                                        * NOTE    IF THE ASSUMED VALUE IS EITHER BINARY ZERO OR 1S59 AND AN      FTN        69
                                        *         EQUIVALENCED VALUE OTHER THAN ZERO IS TO BE ALLOWED            FTN        70
                                        *         NON-STANDARD PROCESSING MUST BE EMPLOYED. STANDARD PROCESSING  FTN        71
                                        *         ASSUMES THAT IF THIS CELL IS ZERO OR 1S59 IT MAY ONLY BE       FTN        72
                                        *         TOGGLED AND WILL PRODUCE AN ERROR FOR ANY OTHER CASE.          FTN        73
                                                                                                                 FTN        74
                                                                                                                 FTN        75
                                                  MACRO  PARAM,KEY,CELL,ASSUMED                                  FTN        76
                                                  VFD    42/0L_KEY,18/CELL                                       FTN        77
                                                  IFC    NE,$ASSUMED$ON$,2                                       FTN        78
                                                  CON    ASSUMED                                                 FTN        79
                                                  SKIP   1                                                       FTN        80
                                                  VFD    1/ON,59/0                                               FTN        81
                                         PARAM    ENDM                                                           FTN        82
                                                                                                                 FTN        83
           375                           KEYS     BSS    0           START OF PARAMETER KEY TABLE                FTN        84
                                        ****                                                                     FTN        85
           375  01000000000000777215 -   A        PARAM  -ARG=A,ON                                               CP139FC    61
           377  02000000000000777206 -   B        PARAM  -ARG=B,0L"CCA.B"                                        FTN        87
           401  02140000000000000007 C   BL       PARAM  CP.BLF,ON                                               FTN        88
                                         .T       IFNE   TEST,0                                                  FEAT155F  136
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              FEAT155F  137
                                         BREAK    PARAM  CO.BRK,0L10                                             FEAT155F  138
                                         .T       ENDIF                                                          FEAT155F  139
           403  03000000000000000133 +   C        PARAM  CAFLAG,ON                                               FTN        89
           405  03030000000000000135 +   CC       PARAM  CCFLAG,ON                                               FCC2125    28
           407  04000000000000000150 +   D        PARAM  DFLAG,0L"CCA.D"                                         FTN        90
                                                                                                                 F66FCC     84
                                         #MD      IFGE   .MODES,1                                                FCC2391     8
                                                  IFEQ   .FID,ON,1                                               F66FCC     85
           411  04020000000000777201 -   DB       PARAM  -ARG=DB,0LID                                            F66FCC     86
                                                                                                                 F66FCC     87
                                         #MD      ENDIF                                                          FCC2391     9
           413  05000000000000777172 -   E        PARAM  -ARG=E,0L"CCA.E"                                        FTN        91
           415  05140000000000777151 -   EL       PARAM  -ARG=EL                                                 FTN        92
           417  05220000000000001022 +   ER       PARAM  ERFLAG,ON                                               FEAT155J   13
           421  07000000000000777126 -   G        PARAM  -ARG=G,0L"CCA.G"                                        FTN        93
           423  07170000000000000153 +   GO       PARAM  GOFLAG,ON                                               FTN        94
           425  11000000000000777117 -   I        PARAM  -ARG=I,0L"CCA.I"                                        FTN        96
           427  14000000000000777112 -   L        PARAM  -ARG=L,0L"CCA.L"                                        FTN        97
           431  14031500000000777103 -   LCM      PARAM  -ARG=LCM,0LD                                            FTN        98
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    55
        COMPILER INITIALIZATION SUBROUTINES                           KEYS      FTNINIT 
  
           433  14242000000000000157 +   LTP      PARAM  PMDFLAG,ON                                              FEAT1070C  83
           435  20150400000000000157 +   PMD      PARAM  PMDFLAG,ON                                              FEAT1070C  84
                                                                                                                 FTN        99
                                         .T       IFNE   TEST,0                                                  FTN       100
                                         #RM      IFEQ   OT#RM,7                                                 FTN       101
                                         M        PARAM  -ARG=M                                                  FTN       102
                                         #RM      ENDIF                                                          FTN       103
                                         .T       ENDIF                                                          FTN       104
                                                                                                                 FTN       105
           437  15140000000000777073 -   ML       PARAM  -ARG=ML                                                 FTN       106
           441  17140000000000000102 +   OL       PARAM  /MASTER/OLIST,ON                                        FEAT121L   56
                                                                                                                 FTN       108
                                         #MD      IFLE   .MODES,1                                                FTN       109
           443  17202400000000777064 -   OPT      PARAM  -ARG=OPT,0L2                                            FTN       110
                                         #MD      ENDIF                                                          FTN       111
                                                                                                                 FTN       112
           445  20000000000000777055 -   P        PARAM  -ARG=P                                                  FTN       113
           447  20040000000000777041 -   PD       PARAM  -ARG=PD,1L8                                             FEAT155E   24
           451  20140000000000777050 -   PL       PARAM  -ARG=PL,"CC.PL"                                         FCC0818     5
           453  20230000000000777027 -   PS       PARAM  -ARG=PS                                                 FEAT155E   25
                                         #MD      IFGE   .MODES,1                                                FCC2391    10
           455  20270000000000001036 +   PW       PARAM  PWFLAG,0L72                                             FEAT126A   37
                                         #MD      ENDIF                                                          FCC2391    11
           457  21000000000000000162 +   Q        PARAM  QFLAG,ON                                                FTN       115
           461  22000000000000777024 -   R        PARAM  -ARG=R,0L2                                              FTN       116
           463  22052700000000000143 +   REW      PARAM  CO.REW,ON                                               FTN       117
           465  22172516040000777012 -   ROUND    PARAM  -ARG=RND,37BS19                                         FTN       118
           467  23000000000000776775 -   S        PARAM  -ARG=S,0L"CCA.S"                                        FTN       119
                                                                                                                 FTN       120
                                         #MD      IFGE   .MODES,1                                                FTN       121
           471  23052100000000000141 +   SEQ      PARAM  CO.MODE,ON                                              FTN       122
                                         #MD      ENDIF                                                          FTN       123
                                                                                                                 FTN       124
           473  23140000000000000163 +   SL       PARAM  SLIST,ON                                                FTN       125
                                                                                                                 FTN       126
                                         .T       IFNE   TEST,0                                                  FTN       127
                                         SNAP     PARAM  -ARG=SNP,1                                              FEAT126C   48
                                                                                                                 FTN       129
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   38
                                         SPY      PARAM  SPYW,3L20B                                              FTN       131
                                         #OS      ENDIF                                                          FTN       132
                                                                                                                 FTN       133
                                         .T       ENDIF                                                          FTN       134
                                                                                                                 FTN       135
           475  23202000000000000164 +   SPP      PARAM  SPPFLAG,ON                                              FTN       136
           477  23240124110300000146 +   STATIC   PARAM  CO.STA,ON                                               F162FTNA  359
           501  23312305041124777163 -   SYSEDIT  PARAM  -ARG=EDT                                                FTN       137
           503  24000000000000000134 +   T        PARAM  CBNFLG,ON                                               FTN       138
                                                                                                                 FTN       139
                                         #MD      IFGE   .MODES,1                                                FTN       140
           505  24230000000000001037 +   TS       PARAM  TSFLAG,ON                                               FTN       141
                                         #MD      ENDIF                                                          FTN       142
                                                                                                                 FTN       143
           507  25170000000000000166 +   UO       PARAM  UOFLAG,ON                                               FEAT121A   26
           511  30000000000000000015 C   X        PARAM  CP.XNAME,0L"CCA.X"                                      FTN       144
           513  32000000000000000167 +   Z        PARAM  ZFLAG,ON                                                FTN       146
                                        ****                                                                     FTN       147
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    56
        COMPILER INITIALIZATION SUBROUTINES                           KEYS      FTNINIT 
  
                                 120     L.KEYS   EQU    *-KEYS      LENGTH OF KEYWORD LIST                      FTN       148
                                                  PURGMAC PARAM                                                  FTN       149
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    57
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
                                        **        ARG -  PROCESS ARGUMENTS FROM CONTROL STATEMENT.               FTN       151
                                        *                                                                        FTN       152
                                        *         R. H. GOODELL      71/07/01       COMPASS 3.0                  FTN       153
                                        *         ADAPTED            74/01/13       FTN 4.3                      FTN       154
                                        *                                                                        FTN       155
                                        *         ENTRY  FIRST CARD OF CONTROL STATEMENT IS IN RA.CCD ET SEQ.    FTN       156
                                        *                B1=1                                                    FTN       157
                                        *         EXIT   ARGUMENTS PROCESSED.                                    FTN       158
                                        *         USES   ALL.                                                    FTN       159
                                        *         CALLS  GAC, GAV.                                               FTN       160
                                                                                                                 FTN       161
                                                                                                                 FTN       162
           515  0400400515 +             ARG      ENTRY. *                                                       FTN       163
           516  5100000012                        SA0    60/CHAR                                                 FTN       164
                          6120000006              SB2    CHAR                                                    FTN       165
           517  43066                             MX0    -CHAR                                                   FTN       166
                     66500                        SB5    B0                                                      FTN       167
                                                                                                                 FTN       168
           520  66300                    ARG20    SB3    B0          SKIP LEADING BLANKS                         FTN       169
                     0100001265 +                 RJ     GAC                                                     FTN       170
           521  6274777722                        SB7    X4-1R                                                   FTN       171
                          0470000520 +            ZR     B7,ARG20                                                FTN       172
                                                                                                                 FTN       173
           522  43600                             MX6    0                                                       FTN       174
           523  66300                    ARG25    SB3    B0          SKIP VERB                                   FTN       175
                     20606                        LX6    CHAR                                                    FTN       176
                          12664                   BX6    X6+X4                                                   FTN       177
           524  0100001265 +                      RJ     GAC                                                     FTN       178
           525  6274777732                        SB7    X4-1R9-1                                                FTN       179
                          0770000523 +            MI     B7,ARG25                                                FTN       180
                                                                                                                 FTN       181
           526  6274777720                        SB7    X4-1R.      RETURN IF TERMINATOR                        FTN       182
                          6264777725              SB6    X4-1R)                                                  FTN       183
           527  0470000515 +                      ZR     B7,ARG                                                  FTN       184
                          0460000515 +            ZR     B6,ARG                                                  FTN       185
                                                                                                                 FTN       186
           530  5120001025 +                      SA2    EXECUTE                                                 FTN       187
                          37626                   IX6    X2-X6                                                   FTN       188
           531  0306000520 +                      ZR     X6,ARG20    IF EXECUTE IS THE VERB                      FTN       189
                          67301                   SB3    -B1                                                     FTN       190
           532  0561000533 +                      NE     B6,B1,ARG30 IF NOT $                                    FTN       191
                          66300                   SB3    B0                                                      FTN       192
                                                                                                                 FTN       193
                                        **        PROCESS NEXT KEYWORD.                                          FTN       194
                                                                                                                 FTN       195
           533  0640000537 +             ARG30    GE     B4,B0,ARG31 IF NOT A TERMINATOR.                        FCC2125    29
                          5120000135 +            SA2    CCFLAG      FETCH CONTINUE CARD FLAG.                   FCC2125    30
           534  0302000515 +                      ZR     X2,ARG      EXIT IF FLAG NOT SET.                       FCC2125    31
                          43600                   MX6    0                                                       FCC2125    32
                               54620              SA6    A2          RESET FLAG TO ZERO.                         FCC2125    33
           535  66500                             SB5    B0                                                      FCC2125    34
                     54651                        SA6    A5+B1       ZERO WORD TO INDICATE END OF CARD IMAGE.    FCC2125    35
                          43601                   MX6    1                                                       FCC2125    36
           536  5160001330 +                      SA6    GACC                                                    FCC2125    37
           537  0100001331 +             ARG31    RJ     GAV                                                     FCC2125    38
           540  0306000533 +                      ZR     X6,ARG30    IGNORE EMPTY ARGUMENT                       FTN       198
                                                                                                                 FTN       199
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    58
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
                          5120000375 +            SA2    KEYS                                                    FTN       200
           541  43352                             MX3    7*CHAR                                                  FTN       201
                     6170000120                   SB7    L.KEYS                                                  FTN       202
           542  5160001050 +                      SA6    ERA.A1                                                  FTN       203
                                                                                                                 FTN       204
           543  11432                    ARG32    BX4    X3*X2       SEARCH KEYWORD LIST                         FTN       205
                     6177777775                   SB7    B7-2                                                    FTN       206
                               13746              BX7    X4-X6                                                   FTN       207
           544  0307000546 +                      ZR     X7,ARG40    IF FOUND                                    FTN       208
                          5022000002              SA2    A2+2                                                    FTN       209
           545  0570000543 +                      NZ     B7,ARG32    IF MORE KEYS TO CHECK                       FTN       210
                          0400001123 +            EQ     E.FM        IF NOT FOUND                                FTN       211
                                                                                                                 FTN       212
                                        **        KEYWORD PARAMETER --                                           FTN       213
                                        *                CHECK PRESENCE / ABSENCE OF = VALUE.                    FTN       214
                                                                                                                 FTN       215
           546  63720                    ARG40    SB7    X2                                                      FTN       216
                     54221                        SA2    A2+B1        GET DEFAULT VALUE                          FTN       217
                          10622                   BX6    X2                                                      FTN       218
           547  7134777774                        SX3    B4-3         CHECK FOR EQUAL SIGN                       FTN       219
                          0770000561 +            MI     B7,ARG48    IF SPECIAL ARGUMENT                         FTN       220
           550  56670                             SA6    B7          STORE DEFAULT VALUE                         FTN       221
                     0303000552 +                 ZR     X3,ARG44    IF FOLLOWED BY =                            FTN       222
           551  0400000533 +                      EQ     ARG30        LOOP FOR NEXT ARGUMENT                     FTN       223
                                                                                                                 FTN       224
           552  43101                    ARG44    MX1    1                                                       FTN       225
                     15721                        BX7    -X1*X2      PRESERVE TOGGLE FLAG                        FTN       226
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       227
           553  0306001141 +                      ZR     X6,E.ME                                                 FTN       228
                          20606                   LX6    CHAR                                                    FTN       229
           554  7110000033                        SX1    1R0                                                     FTN       230
                          37361                   IX3    X6-X1                                                   FTN       231
           555  0313000557 +                      NZ     X3,ARG46    IF ARGUMENT NOT = 0                         FTN       232
                          10633                   BX6    X3                                                      FTN       233
           556  0400000560 +                      EQ     ARG47                                                   FTN       234
                                                                                                                 FTN       235
           557  0307001145 +             ARG46    ZR     X7,E.NE     IF ARG MUST BE ZERO.                        FTN       236
                          20666                   LX6    -CHAR                                                   FTN       237
           560  56670                    ARG47    SA6    B7          STORE ARGUMENT VALUE                        FTN       238
                     0400000533 +                 EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       239
                                                                                                                 FTN       240
           561  67707                    ARG48    SB7    -B7         PROCESS SPECIAL ARGUMENT                    FTN       241
                     0277000000                   JP     B7                                                      FTN       242
                                                                                                                 FTN       243
                                        **        PROCESS SPECIAL ARGUMENTS.                                     FTN       244
                                        *                                                                        FTN       245
                                        *         ENTRY  (X0) = MASK -6                                          FTN       246
                                        *                (X2) = DEFAULT VALUE FOR KEYWORD                        FTN       247
                                        *                (X3) = (CHARACTER TYPE FROM GAC) - 3 (0 IF = SIGN)      FTN       248
                                        *                (X4) = KEYWORD LEFT JUSTIFIED ZERO FILLED               FTN       249
                                        *                (X5) = CURRENT WORD OF CARD IMAGE                       FTN       250
                                        *                (X6) = (X2)                                             FTN       251
                                        *                (A0) = 10                                               FTN       252
                                        *                (B2) = 6                                                FTN       253
                                        *                (B3) = $ MODE FROM GAC                                  FTN       254
                                        *                (B4) = CHARACTER TYPE FROM GAC                          FTN       255
                                        *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5)           FTN       256
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    59
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
                                        *         EXIT   TO PROCESS NEXT KEYWORD                                 FTN       257
                                        *                X0,X5 A0,A5 B2,B3,B5  PRESERVED.                        FTN       258
                                                                                                                 CP139FC    62
                                        **        PROCESS ABORT OPTION - A OR A=0.                               CP139FC    63
                                                                                                                 CP139FC    64
           562  0313000566 +             ARG=A    NZ     X3,ARGA1    IF NO =                                     CP139FC    65
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          CP139FC    66
           563  0306001141 +                      ZR     X6,E.ME                                                 CP139FC    67
                          20606                   LX6    CHAR                                                    CP139FC    68
           564  7120000033                        SX2    1R0                                                     CP139FC    69
                          37362                   IX3    X6-X2                                                   CP139FC    70
           565  0313001145 +                      NZ     X3,E.NE     NOT A=0.                                    CP139FC    71
                          43600                   MX6    0                                                       CP139FC    72
           566  20636                    ARGA1    LX6    59-29                                                   CP139FC    73
                     5110000002 C                 SA1    CP.ABORT                                                CP139FC    74
                               43373              MX3    59                                                      FCC1336     7
           567  20335                             LX3    29                                                      FCC1336     8
                     11131                        BX1    X3*X1                                                   FCC1336     9
                          12616                   BX6    X1+X6       ADD IN ABORT FLAG                           CP139FC    75
                               54610              SA6    A1                                                      CP139FC    76
           570  0400000533 +                      EQ     ARG30       LOOP FOR NEXT ARGUMENT                      CP139FC    77
                                                                                                                 FTN       259
                                        **        PROCESS B OPTION - B, B=0, OR B=LFN.                           FTN       260
                                                                                                                 FTN       261
           571  0313000573 +             ARG=B    NZ     X3,ARGB1    IF NO =                                     FTN       262
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       263
           572  0306001141 +                      ZR     X6,E.ME                                                 FTN       264
                          0100001040 +            RJ     CHK         CHECK NAME FOR LEGALITY                     FTN       265
           573  5120002100 +             ARGB1    SA2    FVTBL+2     POINT TO FV.LGO.                            FCC2125    39
                          5160001034 +            SA6    BFLAG       .NZ. IF B=LFN                               FTN       267
           574  0100001437 +                      RJ     CFN         CHANGE FILE NAME                            FTN       268
           575  0400000533 +                      EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       269
                                                                                                                 F66FCC     88
                                        **        PROCESS DB OPTION - DB, DB=ID, DB=0.                           F66FCC     89
                                                                                                                 F66FCC     90
                                         #FID     IFEQ   .FID,ON                                                 F66FCC     91
           576  0313000600 +             ARG=DB   NZ     X3,ARGDB1   IF NO =                                     F66FCC     92
                          0100001331 +            RJ     GAV         GET VALUE                                   F66FCC     93
           577  0306001141 +                      ZR     X6,E.ME                                                 F66FCC     94
                          0100001040 +            RJ     CHK         CHK FOR VALID NAME                          F66FCC     95
           600  0316000602 +             ARGDB1   NZ     X6,ARGDB2   IF NOT = 0                                  F66FCC     96
                          5160000140 +            SA6    CO.ID                                                   F66FCC     97
           601  0400000533 +                      EQ     ARG30                                                   F66FCC     98
                                                                                                                 F66FCC     99
           602  20614                    ARGDB2   LX6    2*CHAR                                                  F66FCC    100
                     7120001104                   SX2    2RID                                                    F66FCC    101
                               37362              IX3    X6-X2                                                   F66FCC    102
           603  0313001066 +                      NZ     X3,E.DB     IF UNRECOGNIZED VALUE                       F66FCC    103
                          43601                   MX6    1                                                       F66FCC    104
           604  5160000140 +                      SA6    CO.ID                                                   F66FCC    105
                          0400000533 +            EQ     ARG30                                                   F66FCC    106
                                         #FID     ENDIF                                                          F66FCC    107
                                                                                                                 FTN       270
                                        **        PROCESS E OPTION - E, E=LFN, OR E=0.                           FTN       271
                                                                                                                 FTN       272
           605  0313000611 +             ARG=E    NZ     X3,ARGE1    IF NO =                                     FTN       273
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       274
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    60
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
           606  0306001141 +                      ZR     X6,E.ME                                                 FTN       275
                          0100001040 +            RJ     CHK         CHECK NAME FOR LEGALITY                     FTN       276
           607  0316000611 +                      NZ     X6,ARGE1    IF NOT E=0                                  FTN       277
                          7160000000              SX6    OFF                                                     FTN       278
           610  5160000165 +                      SA6    UFLAG                                                   FTN       279
                          0400000533 +            EQ     ARG30                                                   FTN       280
                                                                                                                 FTN       281
           611  5120002102 +             ARGE1    SA2    FVTBL+4     POINT TO FV.CMPS.                           FCC2125    40
                          0100001437 +            RJ     CFN         CHANGE FILE NAME                            FTN       283
           612  43601                             MX6    1                                                       FTN       284
                     5160000165 +                 SA6    UFLAG                                                   FTN       285
           613  0400000533 +                      EQ     ARG30                                                   FTN       286
                                                                                                                 FTN       287
                                        **        PROCESS SYSEDIT OPTION - SYSEDIT, OR SYSEDIT=0.                FTN       288
                                                                                                                 FTN       289
           614  0313000623 +             ARG=EDT  NZ     X3,ARGEDT1  IF NO =                                     FTN       290
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       291
           615  0306001141 +                      ZR     X6,E.ME                                                 FTN       292
                          20606                   LX6    CHAR                                                    FTN       293
           616  7120000033                        SX2    1R0                                                     FTN       294
                          37362                   IX3    X6-X2                                                   FTN       295
           617  0313001145 +                      NZ     X3,E.NE     NOT SYSEDIT=0                               FTN       296
                          7160000000              SX6    OFF                                                     FCC0980     6
           620  5160000136 +                      SA6    CO.EDT                                                  FCC0980     7
                          5130000152 +            SA3    F.LFN                                                   FCC0980     8
           621  43601                             MX6    1                                                       FCC0980     9
                     20667                        LX6    1+P.EXT                                                 FCC0980    10
                          12763                   BX7    X6+X3       MAKE SURE EXT BIT IS SET                    FCC0980    11
                               54730              SA7    A3                                                      FCC0980    12
           622  0400000533 +                      EQ     ARG30                                                   FCC0980    13
                                                                                                                 FCC0980    14
           623  43601                    ARGEDT1  MX6    1                                                       FTN       297
                     5160000136 +                 SA6    CO.EDT                                                  FTN       298
           624  5130000152 +                      SA3    F.LFN                                                   FTN       299
                          20667                   LX6    1+P.EXT                                                 FTN       300
                               15736              BX7    -X6*X3      REMOVE EXT BIT                              FTN       301
           625  54730                             SA7    A3          SAVE FILE BITS FOR SYMTAB WORD B            FTN       302
                     0400000533 +                 EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       303
                                                                                                                 FTN       304
                                        **        PROCESS EL OPTION - EL=A, EL=N, EL=I, EL=W, OR EL=F.           FTN       305
                                                                                                                 FTN       306
           626  0313001104 +             ARG=EL   NZ     X3,E.EQV    IF EL NOT EQUIVALENCED                      FTN       307
                          0100001265 +            RJ     GAC         GET ARGUMENT CHARACTER                      FTN       308
           627  7234777776                        SX3    X4-1RA                                                  FTN       309
                          0540001141 +            NZ     B4,E.ME     IF SEPERATOR                                FTN       310
           630  0313000633 +                      NZ     X3,ARGEL1   IF NOT EL=A                                 FTN       311
                          43601                   MX6    1                                                       FTN       312
           631  5160000077 +                      SA6    /MASTER/ANSI                                            FEAT121L   57
                          5160000155 +            SA6    LOP=N                                                   FTN       314
           632  5160000100 +                      SA6    /MASTER/IEFLG                                           FEAT121L   58
                          0400000647 +            EQ     ARGEL7                                                  FTN       316
                                                                                                                 FTN       317
           633  7234777771               ARGEL1   SX3    X4-1RF                                                  FTN       318
                          0313000636 +            NZ     X3,ARGEL2   IF NOT EL=F                                 FTN       319
           634  7160000000                        SX6    OFF                                                     FTN       320
                          5160000155 +            SA6    LOP=N                                                   FTN       321
           635  5160000100 +                      SA6    /MASTER/IEFLG                                           FEAT121L   59
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    61
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
                          0400000646 +            EQ     ARGEL6                                                  FTN       323
                                                                                                                 FTN       324
           636  7234777750               ARGEL2   SX3    X4-1RW                                                  FTN       325
                          0313000641 +            NZ     X3,ARGEL3   IF NOT EL=W                                 FTN       326
           637  7160000000                        SX6    OFF                                                     FTN       327
                          5160000155 +            SA6    LOP=N                                                   FTN       328
           640  43601                             MX6    1                                                       FTN       329
                     0400000645 +                 EQ     ARGEL5                                                  FTN       330
                                                                                                                 FTN       331
           641  7234777766               ARGEL3   SX3    X4-1RI                                                  FTN       332
                          43601                   MX6    1                                                       FTN       333
           642  0303000644 +                      ZR     X3,ARGEL4   IF EL=I                                     FTN       334
                          7214777761              SX1    X4-1RN                                                  FTN       335
           643  0311001076 +                      NZ     X1,E.EL     IF NOT A VALID ARGUMENT                     FTN       336
           644  5160000155 +             ARGEL4   SA6    LOP=N                                                   FTN       337
           645  5160000100 +             ARGEL5   SA6    /MASTER/IEFLG                                           FEAT121L   60
                          7160000000              SX6    OFF                                                     FTN       339
           646  5160000077 +             ARGEL6   SA6    /MASTER/ANSI                                            FEAT121L   61
           647  0100001265 +             ARGEL7   RJ     GAC                                                     FTN       341
           650  0440001076 +                      ZR     B4,E.EL     IF ALPHNUMERIC                              FTN       342
                          0400000533 +            EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       343
                                                                                                                 FTN       344
                                        **        PROCESS G OPTION - G, G=0, G=LFN, OR G=LFN/OVL.                FTN       345
                                                                                                                 FTN       346
           651  10766                    ARG=G    BX7    X6          (X7)=DEFAULT LFN                            FTN       348
                     37666                        IX6    X6-X6           OVL = NO NAME                           FTN       349
                          0313000656 +            NZ     X3,ARGG1    IF NO =                                     FTN       350
           652  0100001331 +                      RJ     GAV         GET FILE NAME                               FTN       351
           653  0306001141 +                      ZR     X6,E.ME                                                 FTN       352
                          0100001040 +            RJ     CHK                                                     FTN       353
           654  66711                             SB7    B1+B1        (B7)=2 FOR SLASH TEST                      FTN       354
                     10766                        BX7    X6                                                      FTN       355
                          43600                   MX6    0                                                       FTN       356
           655  0574000656 +                      NE     B7,B4,ARGG1  IF NO /                                    FTN       357
                          0100001331 +            RJ     GAV         GET OVERLAY NAME                            FTN       358
           656  0307000533 +             ARGG1    ZR     X7,ARG30    IF *G=0*, IGNORE IT                         FTN       359
                          76210                   SX2    B1                                                      FTN       360
                               12662              BX6    X6+X2       SET *G* FLAG                                FTN       361
           657  0400001011 +                      EQ     ARGS2                                                   FTN       362
                                                                                                                 FTN       363
                                        **        PROCESS I OPTION - I, OR I=LFN.                                FTN       364
                                                                                                                 FTN       365
           660  0313000663 +             ARG=I    NZ     X3,ARGI1    IF NO =                                     FTN       366
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       367
           661  0306001141 +                      ZR     X6,E.ME                                                 FTN       368
                          0100001040 +            RJ     CHK         CHECK NAME FOR LEGALITY                     FTN       369
           662  0306001130 +                      ZR     X6,E.IN     IF I=0                                      FTN       370
           663  5120002076 +             ARGI1    SA2    FVTBL       POINT TO FV.IN.                             FCC2125    41
                          0100001437 +            RJ     CFN         CHANGE FILE NAME                            FTN       372
           664  0400000533 +                      EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       373
                                                                                                                 FTN       374
                                        **        PROCESS L OPTION - L, L=0, OR L=LFN.                           FTN       375
                                                                                                                 FTN       376
           665  0313000671 +             ARG=L    NZ     X3,ARGL1    IF NO =                                     FTN       377
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       378
           666  0306001141 +                      ZR     X6,E.ME                                                 FTN       379
                          0100001040 +            RJ     CHK         CHECK NAME FOR LEGALITY                     FTN       380
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    62
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
           667  0316000671 +                      NZ     X6,ARGL1    IF NOT L=0                                  FTN       381
                          5160000004 C            SA6    CP.LISTF                                                FTN       382
           670  0400000533 +                      EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       383
                                                                                                                 FTN       384
           671  5120002077 +             ARGL1    SA2    FVTBL+1     POINT TO FV.OUT.                            FCC2125    42
                          0100001437 +            RJ     CFN         CHANGE FILE NAME                            FTN       386
           672  7160000001                        SX6    1                                                       FTN       387
                          5160000004 C            SA6    CP.LISTF    SET LIST ON                                 FTN       388
           673  0400000533 +                      EQ     ARG30                                                   FTN       389
                                                                                                                 FTN       390
                                        **        PROCESS LCM OPTION - LCM=I OR LCM=D.                           FTN       391
                                                                                                                 FTN       392
           674  0313000676 +             ARG=LCM  NZ     X3,ARGLCM1  IF NO =                                     FTN       393
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       394
           675  0306001141 +                      ZR     X6,E.ME                                                 FTN       395
           676  20606                    ARGLCM1  LX6    CHAR                                                    FTN       396
                     7120000004                   SX2    1RD                                                     FTN       397
                               37362              IX3    X6-X2                                                   FTN       398
           677  0313000701 +                      NZ     X3,ARGLCM2  IF NOT D                                    FTN       399
                          7160000000              SX6    OFF                                                     FTN       400
           700  5160000151 +                      SA6    DIRECT                                                  FTN       401
                          0400000533 +            EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       402
                                                                                                                 FTN       403
           701  7120000011               ARGLCM2  SX2    1RI                                                     FTN       404
                          37362                   IX3    X6-X2                                                   FTN       405
           702  0313001132 +                      NZ     X3,E.LCM    IF NOT I EITHER                             FTN       406
                          43601                   MX6    1                                                       FTN       407
           703  5160000151 +                      SA6    DIRECT                                                  FTN       408
                          0400000533 +            EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       409
                                                                                                                 FTN       410
                                        **        PROCESS M OPTION - M        (CYBER 76 ONLY)                    FTN       411
                                                                                                                 FTN       412
                                         .T       IFNE   TEST,0                                                  FTN       413
                                         #RM      IFEQ   OT#RM,7                                                 FTN       414
                                         ARG=M    ZR     X3,E.EN     IF M EQUIVALENCED                           FTN       415
                                                  SA6    OT.RM       SET TO ZR FOR 6RM OBJECT TIME I/O           FTN       416
                                                  EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       417
                                         #RM      ENDIF                                                          FTN       418
                                         .T       ENDIF                                                          FTN       419
                                                                                                                 FTN       420
                                        **        PROCESS ML OPTION.                                             FTN       421
                                                                                                                 FTN       422
           704  0313000533 +             ARG=ML   NZ     X3,ARG30    IF NO =                                     FCC0980    15
                          6160000066              SB6    9*CHAR                                                  FTN       424
           705  43600                             MX6    0                                                       FTN       425
           706  0100001265 +             ARGML1   RJ     GAC         GET ARGUMENT CHARACTER                      FTN       426
           707  0540000712 +                      NZ     B4,ARGML2   IF SEPARATOR                                FTN       427
                          22464                   LX4    B6                                                      FTN       428
                               67662              SB6    B6-B2                                                   FTN       429
           710  12664                             BX6    X6+X4                                                   FTN       430
                     0660000706 +                 PL     B6,ARGML1   IF NOT .GT. 9 CHARACTERS                    FTN       431
           711  0400001143 +                      EQ     E.ML        ** MORE THAN 9 CHARACTERS **                FTN       432
                                                                                                                 FTN       433
           712  5160000073 C             ARGML2   SA6    CP.MODL                                                 FTN       434
                          0400000533 +            EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       435
                                                                                                                 FTN       436
                                        **        PROCESS OPT OPTION - OPT=0, 1, OR 2.                           FTN       437
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    63
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
                                                                                                                 FTN       438
           713  0313000714 +             ARG=OPT  NZ     X3,ARGOPT1  IF NO =                                     FTN       439
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       440
           714  20606                    ARGOPT1  LX6    CHAR                                                    FTN       441
                     7236777744                   SX3    X6-1R0                                                  FTN       442
           715  0333001147 +                      MI     X3,E.OPT                                                FTN       443
                          21606                   AX6    CHAR                                                    FTN       444
           716  0316001147 +                      NZ     X6,E.OPT    IF MORE THAN 1 CHARACTER                    FTN       445
                          7263777774              SX6    X3-3                                                    FCC2198     4
           717  0326001147 +                      PL     X6,E.OPT    IF OPT GT 2                                 FCC2198     5
                          10633                   BX6    X3                                                      FCC2198     6
           720  5160000142 +                      SA6    CO.OLVL                                                 FTN       448
                          43701                   MX7    1                                                       FTN       449
           721  5170001035 +                      SA7    OPTFLG      .MI. FOR *OPT ARG APPEARED*                 FTN       450
                          0400000533 +            EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       451
                                                                                                                 FTN       452
                                        **        PROCESS P OPTION - P OR P=0                                    FTN       453
                                                                                                                 FTN       454
           722  0313000726 +             ARG=P    NZ     X3,ARGP1    IF NO =                                     FTN       455
                          0100001331 +            RJ     GAV                                                     FTN       456
           723  0306001141 +                      ZR     X6,E.ME                                                 FTN       457
                          7130000033              SX3    1R0                                                     FTN       458
           724  20606                             LX6    CHAR                                                    FCC0980    16
                     37663                        IX6    X6-X3                                                   FTN       459
                          0316001145 +            NZ     X6,E.NE     IF NOT P=0                                  FTN       460
           725  43601                             MX6    1                                                       FTN       461
           726  5160000005 C             ARGP1    SA6    CP.PAGE                                                 FTN       462
                          0400000533 +            EQ     ARG30                                                   FTN       463
                                                                                                                 FCC0818     6
                                        **        PROCESS PL OPTION - PL=N                                       FCC0818     7
                                                                                                                 FCC0818     8
           727  0313000735 +             ARG=PL   NZ     X3,ARGPL2   IF NO =                                     FCC0818     9
                          6160000074              SB6    10*CHAR                                                 FCC0818    10
           730  43600                             MX6    0                                                       FCC0818    11
           731  0100001265 +             ARGPL1   RJ     GAC         GET ARGUMENT CHARACTER                      FCC0818    12
           732  0540000735 +                      NZ     B4,ARGPL2   IF SEPARATOR                                FCC0818    13
                          67662                   SB6    B6-B2                                                   FCC0818    14
                               22464              LX4    B6                                                      FCC0818    15
           733  12664                             BX6    X6+X4                                                   FCC0818    16
                     0660000731 +                 PL     B6,ARGPL1   IF NOT .GT. 10 CHARACTERS                   FCC0818    17
           734  0400001155 +                      EQ     E.PL1       MORE THAN 10 CHARACTERS                     FCC0818    18
                                                                                                                 FCC0818    19
           735  5160001023 +             ARGPL2   SA6    PLARG                                                   FCC0818    20
                          0400000533 +            EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FCC0818    21
                                                                                                                 FTN       464
                                        **        PROCESS PD OPTION  -  PD,PD=6 OR 8                             FEAT155E   26
                                                                                                                 FEAT155E   27
           736  0313000740 +             ARG=PD   NZ     X3,ARGPD1   IF NO =                                     FEAT155E   28
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FEAT155E   29
           737  0306001141 +                      ZR     X6,E.ME     IF NO ARGUMENT                              FEAT155E   30
           740  20606                    ARGPD1   LX6    CHAR                                                    FEAT155E   31
                     7226777736                   SX2    X6-1R6                                                  FEAT155E   32
           741  7110002355                        SX1    2RS                                                     FCC1964     7
                          7130000006              SX3    6                                                       FEAT155E   34
           742  0302000745 +                      ZR     X2,ARGPD2   IF PD = 6                                   FEAT155E   35
                          7226777734              SX2    X6-1R8                                                  FEAT155E   36
           743  7110002455                        SX1    2RT                                                     FCC1964     8
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    64
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
                          7130000010              SX3    8                                                       FEAT155E   38
           744  0302000745 +                      ZR     X2,ARGPD2   IF PD = 8                                   FEAT155E   39
                          0400001151 +            EQ     E.PD                                                    FEAT155E   40
           745  21606                    ARGPD2   AX6    CHAR                                                    FEAT155E   41
                     0316001151 +                 NZ     X6,E.PD     IF MORE THAN ONE CHARACTER ARGUMENT         FEAT155E   42
                               20160              LX1    CHAR*8                                                  FCC1964     9
           746  10611                             BX6    X1                                                      FEAT155E   44
                     5160000010 C                 SA6    CP.PD                                                   FEAT155EA   6
           747  0400000533 +                      EQ     ARG30                                                   FEAT155E   53
                                                                                                                 FEAT155E   54
                                        **        PROCESS PS OPTION  -  PS=N                                     FEAT155E   55
                                                                                                                 FEAT155E   56
           750  0313001157 +             ARG=PS   NZ     X3,E.PS     IF NO =                                     FEAT155E   57
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FEAT155E   58
           751  0306001141 +                      ZR     X6,E.ME                                                 FEAT155E   59
                          5160000011 C            SA6    CP.PS                                                   FEAT155EA   9
           752  0400000533 +                      EQ     ARG30                                                   FEAT155E   61
                                                                                                                 FEAT155E   62
                                        **        PROCESS R OPTION - R, OR R=0, 1, 2, OR 3.                      FTN       465
                                                                                                                 FTN       466
           753  0313000755 +             ARG=R    NZ     X3,ARGR1    IF NO =                                     FTN       467
                          0100001331 +            RJ     GAV         GET ARGUMENT VALUE                          FTN       468
           754  0306001141 +                      ZR     X6,E.ME                                                 FTN       469
           755  20606                    ARGR1    LX6    CHAR                                                    FTN       470
                     7236777744                   SX3    X6-1R0                                                  FTN       471
           756  0333001175 +                      MI     X3,E.REF                                                FTN       472
                          21606                   AX6    CHAR                                                    FTN       473
           757  0316001175 +                      NZ     X6,E.REF    IF MORE THAN 1 CHARACTER                    FTN       474
                          7110000003              SX1    3           MAXIMUM REF LEVEL                           FTN       475
           760  37613                             MX6    X1-X3       (X6)=MIN(REF,MAXREF)                        FEAT155D   19
                     5160000104 +                 SA6    /MASTER/R=FLAG    SAVE REF MAP LEVEL                    FEAT121L   62
                               20672              LX6    58          (X6)=.MI. FOR R=2,3, .PL. FOR R=0,1         FTN       478
           762  5160000103 +                      SA6    /MASTER/RSELECT                                         FEAT121L   63
                          0336000764 +            MI     X6,ARGR2                                                FTN       480
           763  43700                             MX7    0                                                       FTN       481
                     5170000103 +                 SA7    /MASTER/RSELECT   .ZR. FOR R=0 OR 1                     FEAT121L   64
                               20601              LX6    1           (X6) = .MI. FOR R=1 (TS MODE)               FTN       483
           764  5160000101 +             ARGR2    SA6    /MASTER/LOP=M                                           FEAT126B   13
                          0400000533 +            EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       485
                                                                                                                 FTN       486
                                        **        PROCESS ROUND OPTION - ROUND=*/+- IN ANY COMBINATION OR 0.     FTN       487
                                                                                                                 FTN       488
           765  0303000767 +             ARG=RND  ZR     X3,ARGRND1  IF AN =                                     FTN       489
                          5160000144 +            SA6    ROPFLAG                                                 FTN       490
           766  0400000533 +                      EQ     ARG30                                                   FTN       491
           767  0100001265 +             ARGRND1  RJ     GAC         GET NEXT CHARACTER                          FTN       492
           770  7234777744                        SX3    X4-1R0                                                  FTN       493
                          43600                   MX6    0                                                       FTN       495
           771  5160000144 +                      SA6    ROPFLAG                                                 FTN       496
                          0313000774 +            NZ     X3,ARGRND2  IF NOT *ROUND = 0*                          FCC2168     5
           772  0100001265 +                      RJ     GAC                                                     FTN       497
           773  0440001177 +                      ZR     B4,E.RND                                                FTN       498
                          0400000533 +            EQ     ARG30                                                   FTN       499
                                                                                                                 FTN       500
           774  0440001177 +             ARGRND2  ZR     B4,E.RND    ALPHANUMERIC ILLEGAL                        FTN       501
                          0740000533 +            MI     B4,ARG30                                                FCC2125    43
           775  7234777726                        SX3    X4-1R/-1                                                FTN       503
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    65
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
                          0323000533 +            PL     X3,ARG30    SEPERATOR                                   FTN       504
           776  5120000144 +                      SA2    ROPFLAG                                                 FTN       505
                          14444                   BX4    -X4                                                     FTN       506
                               76310              SX3    B1                                                      FTN       507
           777  6264000073                        SB6    X4+59       59-1RCHAR                                   FTN       508
                          22363                   LX3    B6,X3                                                   FTN       509
                               12623              BX6    X2+X3                                                   FTN       510
          1000  54620                             SA6    A2                                                      FTN       511
                     0100001265 +                 RJ     GAC                                                     FTN       512
          1001  0400000774 +                      EQ     ARGRND2                                                 FTN       513
                                                                                                                 FTN       514
                                        **        PROCESS S OPTION - S, S=0, S=OVL, OR S=LIB/OVL.                FTN       515
                                                                                                                 FTN       516
          1002  43700                    ARG=S    MX7    0           LIB = NO NAME                               FTN       517
                     0313001007 +                 NZ     X3,ARGS1    IF NO =                                     FTN       518
          1003  0100001331 +                      RJ     GAV         GET LIB OR OVL                              FTN       519
          1004  0306001141 +                      ZR     X6,E.ME                                                 FTN       520
                          0100001040 +            RJ     CHK                                                     FTN       521
          1005  66711                             SB7    B1+B1        FOR SLASH TEST                             FTN       522
                     0574001007 +                 NE     B7,B4,ARGS1  IF NO /                                    FTN       523
                               10766              BX7    X6          SET LIBRARY NAME                            FTN       524
          1006  0100001331 +                      RJ     GAV         GET OVERLAY NAME                            FTN       525
          1007  0316001011 +             ARGS1    NZ     X6,ARGS2  IF NOT S OR S=0                               FTN       526
                          5160000057 C            SA6    CP.LIB      SET *S=0* FLAG                              FTN       527
          1010  0400000533 +                      EQ     ARG30                                                   FTN       528
                                                                                                                 FTN       529
          1011  5120000047 C             ARGS2    SA2    CP.STEXT    GET SYSTEM TEXT COUNTER                     FTN       530
                          6262777770              SB6    X2-7                                                    FTN       531
          1012  63721                             SB7    X2+B1                                                   FTN       532
                     0460001210 +                 ZR     B6,E.S7     IF HAVE 7 ALREADY                           FTN       533
                               54627              SA6    A2+B7       STORE OVERLAY NAME                          FTN       534
          1013  5177000057 C                      SA7    CP.LIB+B7   STORE FILE OR LIBRARY NAME                  FTN       535
                          76670                   SX6    B7                                                      FTN       536
                               54620              SA6    A2          STORE UPDATED COUNT                         FTN       537
          1014  0400000533 +                      EQ     ARG30                                                   FTN       538
                                                                                                                 FTN       539
                                        **        PROCESS SNAP OPTION - SNAP=MREDTINPQSAHG OR ANY COMBINATION.   FTN       540
                                                                                                                 FTN       541
          1015  0313001021 +             ARG=SNP  NZ     X3,ARGSNP2  IF NO =                                     FTN       542
                          10633                   BX6    X3                                                      FTN       543
                               43701              MX7    1                                                       FTN       544
          1016  0100001265 +             ARGSNP1  RJ     GAC                                                     FTN       545
          1017  0540001021 +                      NZ     B4,ARGSNP2  IF SEPARATOR                                FTN       546
                          6274777703              SB7    X4-60                                                   FTN       547
          1020  23377                             AX3    X7,B7       SET BIT 2**(59-CHARACTER)                   FTN       548
                     12663                        BX6    X6+X3                                                   FTN       549
                          0400001016 +            EQ     ARGSNP1                                                 FTN       550
                                                                                                                 FTN       551
          1021  5160000145 +             ARGSNP2  SA6    CO.SNAP                                                 FTN       552
                          0400000533 +            EQ     ARG30                                                   FTN       553
                                                                                                                 FTN       563
                                                                                                                 FTN       564
                                        **        VARIOUS CELLS NEED BY THE ARGUMENT PROCESSOR.                  FTN       565
                                                                                                                 FTN       566
          1022  00000000000000000522     ERFLAG   DATA   2RER        ERROR RECOVERY OPTION                       FEAT155J   14
          1023  00000000000000000000     PLARG    DATA   0           PLIMIT ARGUMENT                             FTN       567
          1024  00000000000000000000     CNFLCT   DATA   0           .MI. IF CONTROL CARD OPTION CONFLICT        FTN       568
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    66
        COMPILER INITIALIZATION SUBROUTINES                           ARG       FTNINIT 
  
          1025  00000005300503252405     EXECUTE  DATA   7REXECUTE                                               FTN       571
          1026  60606060606060606060     MASK60   DATA   60606060606060606060B                                   FTN       572
          1027  40404040404040404040     MASK40   DATA   40404040404040404040B                                   FTN       573
          1030  20202020202020202020     MASK20   DATA   20202020202020202020B                                   FTN       574
          1031  55555555555555555555     BLANKS   DATA   10H                                                     FTN       575
          1032  20221624232031000000     PRNSPY   DATA   0LPRNTSPY                                               FTN       576
          1033  06241615010300000000     FTEXT    DATA   6LFTNMAC    NAME OF OBJECT TIME TEXT                    FTN       577
          1034  00000000000000000000     BFLAG    DATA   0           .NZ. IF B=LFN APPEARED                      FTN       578
          1035  00000000000000000000     OPTFLG   DATA   0           .MI. IF OPT ARG APPEARED                    FTN       579
          1036  00000000000000000000     PWFLAG   DATA   0           .NZ. IF PW APPEARED                         FEAT126A   39
          1037  00000000000000002423     TSFLAG   DATA   2RTS                                                    FCC0971    12
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    67
        COMPILER INITIALIZATION SUBROUTINES                           CHK       FTNINIT 
  
                                        **        CHK -  CHECK FILE NAME FOR LEGALITY.                           FTN       582
                                        *                                                                        FTN       583
                                        *         ENTRY  (X6) = NAME TO BE CHECKED (0L FORMAT).                  FTN       584
                                        *                                                                        FTN       585
                                        *         EXIT   (X6) = NAME, WITH ANY UNDISPLAYABLE CHARACTERS REMOVED  FTN       586
                                        *                            IF NAME WAS *0*, REPLY IS BINARY ZERO.      FTN       587
                                        *                TO E.LFN IF BAD NAME.                                   FTN       588
                                        *                                                                        FTN       589
                                        *         RULES  1.  MAXIMUM OF SEVEN CHARACTERS.                        FTN       590
                                        *                2.  NO CHARACTER \ 60B.                                 FTN       591
                                        *                3.  BEGINS W. ALPHABETIC (SCOPE ONLY) OR IS 1L0.        FCC1004     4
                                        *                4.  CONTAINS NO CHARACTERS \ 1R+.                       FTN       593
                                        *         CHARACTERS ILLEGAL BY RULE 2. WILL BE REPLACED BY CHAR-40B.    FTN       594
                                        *         USES   X1, X2, X3, X6                                          FTN       595
                                        *                A1, A3                                                  FTN       596
                                        *                ALL OTHERS PRESERVED                                    FTN       597
                                                                                                                 FTN       598
                                                                                                                 FTN       599
          1040  0400401040 +             CHK      ENTRY. *                                                       FTN       600
          1041  10266                             BX2    X6                                                      FTN       601
                     73120                        SX1    X2                                                      FTN       602
                          37666                   IX6    X6-X6                                                   FTN       603
                               20214              LX2    2*CHAR                                                  FTN       604
          1042  7232774477                        SX3    X2-2R0 +1R                                              FTN       605
                          0303001040 +            ZR     X3,CHK      IF *0*                                      FTN       606
          1043  20260                             LX2    -2*CHAR     RESTORE (X2)                                FTN       607
                                                                                                                 FCC1004     5
                     0323001135 +                 PL     X3,E.LFN    IF FIRST CHAR NOT ALPHABETIC                FTN       608
                                                                                                                 FCC1004     8
          1044  0311001135 +                      NZ     X1,E.LFN    IF MORE THAN 7 CHARS                        FTN       609
                          5110001026 +            SA1    MASK60                                                  FTN       610
          1045  5130001030 +                      SA3    MASK20                                                  FTN       611
                          11612                   BX6    X1*X2                                                   FTN       612
                               36663              IX6    X6+X3       FORCE CARRY FROM ALL NON-DISPLAYABLES.      FTN       613
          1046  20302                             LX3    2                                                       FTN       614
                     11136                        BX1    X3*X6       ISOLATE CARRY BITS                          FTN       615
                          20173                   LX1    -1                                                      FTN       616
                               15621              BX6    -X1*X2      CLEAR HI BIT OF NASTIES                     FTN       617
          1047  0311001135 +                      NZ     X1,E.LFN                                                FTN       618
                          0400001040 +            EQ     CHK         EXIT..                                      FTN       619
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    68
        COMPILER INITIALIZATION SUBROUTINES                           CCERR     FTNINIT 
  
                                        **        CCERR - CONTROL CARD ERROR MESSAGES.                           FTN       621
                                        *                                                                        FTN       622
                                        *                                                                        FTN       623
                                        *         ERROR  TYPE,(TEXT)                                             FTN       624
                                        *                                                                        FTN       625
                                        *                *TYPE*      IF BLANK ONLY *TEXT* WILL BE DISPLAYED,     FTN       626
                                        *                            IF *A* THE BAD ARGUMENT WILL BE PRINTED     FTN       627
                                        *                            FROM ERA.A1.                                FTN       628
                                        *                *TEXT*      ERROR MESSAGE TEXT -- A PERIOD WILL BE      FTN       629
                                        *                            APPENDED BEFORE DISPLAYING.                 FTN       630
                                        *                            TEXT IS DISPLAYED 40 CHARACTERS PER LINE.   FEAT126C   49
                                        *                            PLEASE SPACE PROPERLY SO THAT WORDS ARE NOT FEAT126C   50
                                        *                            SPLIT ACROSS LINES.                         FEAT126C   51
                                        *                                                                        FTN       631
                                        *         USES   X1, X2, X6                                              FTN       632
                                        *                A1, A2, A6                                              FTN       633
                                        *                B6                                                      FTN       634
                                        *                                                                        FTN       635
                                        *         CALLS  MESSAGE                                                 FTN       636
                                                                                                                 FTN       637
                                         ERROR    MACRO  TYPE,TEXT                                               FTN       638
                                                  LOCAL  A,B,B1,C,D,E                                            FEAT155H   13
                                                                                                                 FEAT155H   14
                                         A        MICRO  1,,*TEXT*                                               FEAT155H   15
                                         C        MICRO  1,9,*TEXT*                                              FEAT155H   16
                                         D        MICRO  10,,*TEXT.*                                             FEAT155H   17
                                                                                                                 FEAT155H   18
                                                  USE    CCMSG                                                   FEAT155H   19
                                        .1        IFC    EQ,/TYPE//                                              FEAT155H   20
                                         E        VFD    1/0                                                     FEAT155H   21
                                        .1        ELSE                                                           FEAT155H   22
                                         E        VFD    1/1                                                     FEAT155H   23
                                        .1        ENDIF                                                          FEAT155H   24
                                                                                                                 FEAT155H   25
                                                  VFD    5/0,54/9R"C"                                            FEAT155H   26
                                                  DIS    ,*"D"*                                                  FEAT155H   27
                                                  USE    *                                                       FEAT155H   28
                                                                                                                 FEAT155H   29
                                                  SB6    E                                                       FEAT155H   30
                                                  RJ     IEM         ISSUE ERROR MESSAGE                         FEAT155H   31
                                         ERROR    ENDM                                                           FTN       671
                                                                                                                 FTN       672
                                        *         ERROR MESSAGE CELLS                                            FTN       673
          1050  00000000000000000000     ERA.A1   DATA   0           BAD FIELD                                   FTN       674
          1051  47475516175503171520     ERA.A2   DIS    ,$** NO COMPILATION.$                                   FCC0475     6
          1053  47475506241655031716     ERA.A3   DIS    ,$** FTN CONTROL CARD ERRORS.$                          FTN       676
                                                                                                                 FTN       677
                                        *         ERROR PROCESSORS                                               FTN       678
                                                                                                                 FTN       679
                                                                                                                 FTN       680
          2112  0                        E.BGO    ERROR  ,(B=0 AND GO IS INCONSISTENT)                           FTN       681
          1057  43601                             MX6    1                                                       FTN       682
                     5160001024 +                 SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                 FTN       683
          1060  0400001660 +                      EQ     MB18                                                    FTN       684
                                                                                                                 FTN       685
          2115  0                        E.DC     ERROR  ,(DB IMPLIES TS -- TS MODE NOW ON)                      F66FCC    108
          1062  43601                             MX6    1                                                       F66FCC    109
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    69
        COMPILER INITIALIZATION SUBROUTINES                           CCERR     FTNINIT 
  
                     5160000147 +                 SA6    CO.TS                                                   F66FCC    110
          1063  0400001610 +                      EQ     MB10A                                                   F66FCC    111
                                                                                                                 F66FCC    112
          2121  0                        E.DOPT   ERROR  ,(D IMPLIES OPT=0 -- OPT IGNORED)                       FTN       686
          1065  0400001630 +                      EQ     MB14                                                    FTN       687
                                                                                                                 F66FCC    113
                                         #FID     IFEQ   .FID,ON                                                 F66FCC    114
          2125  0                        E.DB     ERROR  ,(DB ARG NOT 0 OR ID)                                   F66FCC    115
          1067  43601                             MX6    1                                                       F66FCC    116
                     5160001024 +                 SA6    CNFLCT                                                  F66FCC    117
          1070  0400000533 +                      EQ     ARG30                                                   F66FCC    118
                                         #FID     ENDIF                                                          F66FCC    119
                                                                                                                 FTN       688
          2130  0                        E.EAND   ERROR  ,(E AND B,C,GO,OL,TS,SEQ OR Q CONFLICT)                 FTN       689
          1072  43601                             MX6    1                                                       FTN       690
                     5160001024 +                 SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                 FTN       691
          1073  0400001645 +                      EQ     MB16                                                    FTN       692
                                                                                                                 FTN       693
          2134  0                        E.EF     ERROR  ,(WARNING -- TERMINATOR MISSING)                        FTN       694
          1075  0400000533 +                      EQ     ARG30                                                   FCC2125    44
                                                                                                                 FTN       696
          2140  0                        E.EL     ERROR  ,(EL ARG NOT A,N,I,W OR F -- IGNORED)                   FTN       697
          1077  0400001237 +                      EQ     ERA.SK      SKIP EXCESS CHARACTERS                      FTN       698
                                                                                                                 FTN       699
          2144  4                        E.EN     ERROR  A,(MAY NOT BE EQUIVALENCED)                             FTN       700
          1101  43601                             MX6    1                                                       FTN       701
                     5160001024 +                 SA6    CNFLCT      FLAG UNCORRECTABLE ERROR                    FTN       702
                               66700              SB7    B0                                                      FTN       703
          1102  0100001331 +                      RJ     GAV         SKIP FILE NAME                              FTN       704
          1103  0400000533 +                      EQ     ARG30                                                   FTN       705
                                                                                                                 FTN       706
          2147  4                        E.EQV    ERROR  A,(MUST BE EQUIVALENCED --        IGNORED)              FTN       707
          1105  0400000533 +                      EQ     ARG30                                                   FTN       708
                                                                                                                 FTN       709
                                         #FID     IFEQ   .FID,ON                                                 F66FCC    120
          2154  0                        E.ERDB   ERROR  ,(INTERACTIVE DEBUG IMPILES ER OPTION)                  F66FCC    121
          1107  43601                             MX6    1                                                       F66FCC    122
                     5160001024 +                 SA6    CNFLCT                                                  F66FCC    123
          1110  0400001711 +                      EQ     MB19                                                    F66FCC    124
                                         #FID     ENDIF                                                          F66FCC    125
                                                                                                                 F66FCC    126
          1111  6130000012              E.FER     SB3    10          TEN CHAR PER WORD                           FCC2170     7
                          6120000000              SB2    0           CHAR COUNTER                                FCC2170     8
          1112  43066                             MX0    -6          CHAR MASK                                   FCC2170     9
          1113  0623001117 +            E.FER1    GE     B2,B3,E.FER2   IF B2 GT 10 EXIT FROM LOOP               FCC2170    10
                          20406                   LX4    6                                                       FCC2170    11
                               66221              SB2    B2+B1       INCREMENT CHAR COUNTER                      FCC2170    12
          1114  11304                             BX3    X0*X4       MASK OFF ONE CHAR                           FCC2170    13
                     0313001113 +                 NZ     X3,E.FER1   IF NON-ZERO,LOOP AGAIN                      FCC2170    14
          1115  7130000055                        SX3    55B                                                     FCC2170    15
                          12443                   BX4    X4+X3       REPLACE ZERO WITH BLANK                     FCC2170    16
          1116  0400001113 +                      EQ     E.FER1      REPLACE MORE ZERO WITH BLANK                FCC2170    17
                                                                                                                 FCC2170    18
          1117  10655                   E.FER2    BX6    X5                                                      FCC2170    19
                     5160001050 +                 SA6    ERA.A1      LISTS FILES IN CONFLICT                     FCC2170    20
          2160  4                                 ERROR  A,(IS USED FOR MORE THAN ONE OPTION)                    FCC2170    21
          1121  43601                             MX6    1                                                       FCC2170    22
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    70
        COMPILER INITIALIZATION SUBROUTINES                           CCERR     FTNINIT 
  
                     5160001024 +                 SA6    CNFLCT                                                  FCC2170    23
          1122  0400001711 +                      EQ     MB19                                                    FCC2170    24
                                                                                                                 FCC2170    25
          2164  4                        E.FM     ERROR  A,(IS UNRECOGNIZABLE -- IGNORED)                        FTN       710
          1124  0400000533 +                      EQ     ARG30                                                   FTN       711
                                                                                                                 FTN       712
          1125  5160001050 +             E.F7     SA6    ERA.A1                                                  FTN       713
          2170  4                                 ERROR  A,(IS MORE THAN 7 CHARACTERS --   EXCESS IGNORED)       FTN       714
          1127  0400001340 +                      EQ     GAV8                                                    FTN       715
                                                                                                                 FTN       716
          2175  0                        E.IN     ERROR  ,(INPUT FILE MAY NOT BE SUPPRESSED --      IGNORED)     FTN       717
          1131  0400000533 +                      EQ     ARG30                                                   FTN       718
                                                                                                                 FTN       719
          2203  0                        E.LCM    ERROR  ,(ONLY LCM=I OR LCM=D IS ALLOWED)                       FTN       720
          1133  43601                             MX6    1                                                       FTN       721
                     5160001024 +                 SA6    CNFLCT      FLAG UNCORRECTABLE ERROR                    FTN       722
          1134  0400000533 +                      EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       723
                                                                                                                 FTN       724
          1135  10622                    E.LFN    BX6    X2          (X6)=ILLEGAL NAME                           FTN       725
                     5160001050 +                 SA6    ERA.A1                                                  FTN       726
          2207  4                                 ERROR  A,(IS AN ILLEGAL FILE NAME)                             FTN       727
          1137  43601                             MX6    1                                                       FTN       728
                     5160001024 +                 SA6    CNFLCT      FLAG UNCORRECTABLE ERROR                    FTN       729
          1140  0400000533 +                      EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       730
                                                                                                                 FTN       731
          2212  0                        E.ME     ERROR  ,(= WITH NO FOLLOWING VALUE -- IGNORED)                 FTN       732
          1142  0400000533 +                      EQ     ARG30                                                   FTN       733
                                                                                                                 FTN       734
          2216  0                        E.ML     ERROR  ,(ML ARG IS MORE THAN 9 CHARACTERS --      EXCESS IGNOR FTN       735
                                        ,ED)                                                                     FTN       736
          1144  0400001237 +                      EQ     ERA.SK      SKIP EXCESS CHARACTERS                      FTN       737
                                                                                                                 FTN       738
                                         #RM      IFEQ   OT#RM,7                                                 FTN       739
                                         E.MTS    ERROR  ,(M OPTION NOT ALLOWED WITH TS)                         F162FTNA  360
                                                  MX6    1                                                       FTN       741
                                                  SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                 FTN       742
                                                  EQ     MB19B                                                   F162FTNA  361
                                         #RM      ENDIF                                                          FTN       744
                                                                                                                 FTN       745
          2224  4                        E.NE     ERROR  A,(MAY ONLY BE EQUIV TO 0 --      IGNORED)              FTN       746
          1146  0400000533 +                      EQ     ARG30                                                   FTN       747
                                                                                                                 FTN       748
          2231  0                        E.OPT    ERROR  ,(OPT LEVEL NOT 0, 1, OR 2 -- IGNORED)                  FTN       749
          1150  0400000533 +                      EQ     ARG30                                                   FTN       750
                                                                                                                 FTN       751
          2235  0                        E.PD     ERROR  ,(PD ARGUMENT NOT 6 OR 8  --  IGNORED)                  FEAT155E   63
          1152  0400000533 +                      EQ     ARG30                                                   FEAT155E   64
                                                                                                                 FEAT155E   65
          2241  0                        E.PL     ERROR  ,(INVALID NUMERIC FIELD IN PL ARG --       IGNORED)     FTN       752
          1154  0400001766 +                      EQ     MIB5C                                                   FTN       753
                                                                                                                 FCC0818    22
          2247  0                        E.PL1    ERROR  ,(PL ARG IS TOO LONG -- EXCESS IGNORED)                 FCC0818    23
          1156  0400001237 +                      EQ     ERA.SK      SKIP EXCESS CHARACTERS                      FCC0818    24
                                                                                                                 FTN       754
          2253  0                        E.PS     ERROR  ,(MISSING NUMERIC FIELD IN PS ARGUMENT  --  IGNORED)    FEAT155E   66
          1160  0400000533 +                      EQ     ARG30                                                   FEAT155E   67
                                                                                                                 FEAT155E   68
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    71
        COMPILER INITIALIZATION SUBROUTINES                           CCERR     CCMSG 
  
          2261  0                        E.PS1    ERROR  ,(INVALID NUMERIC FIELD IN PS ARGUMENT  --  IGNORED)    FEAT155E   69
          1162  0400001732 +                      EQ     MIB3B                                                   FCCA593    13
                                                                                                                 FEAT155E   71
          2267  0                        E.PS2    ERROR  ,(PS .LT. 4 -- IGNORED)                                 FEAT155EA  11
          1164  0400001732 +                      EQ     MIB3B                                                   FCCA593    14
                                                                                                                 F162FTNA  362
          2272  0                        E.PW     ERROR  ,(PW IMPLIES TS -- TS MODE NOW ON)                      FCC0826     4
          1166  43601                             MX6    1                                                       FCC0826     5
                     5160000147 +                 SA6    CO.TS                                                   FCC0971    13
          1167  0400001611 +                      EQ     MB11                                                    FCC0826     7
                                                                                                                 FCC0826     8
          2276  0                        E.PW1    ERROR  ,(PW NOT .GE. 50 OR .LE. 136 -- IGNORED)                FCC0826     9
          1171  43600                             MX6    0                                                       FCC0826    10
                     0400001721 +                 EQ     MIB2                                                    FCC0826    11
                                                                                                                 FCC0826    12
          2303  0                        E.QAND   ERROR  ,(Q AND B,C,GO,OL,TS OR SEQ CONFLICT)                   FTN       755
          1173  43601                             MX6    1                                                       FTN       756
                     5160001024 +                 SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                 FTN       757
          1174  0400001655 +                      EQ     MB17                                                    FTN       758
                                                                                                                 FTN       759
          2307  0                        E.REF    ERROR  ,(R ARGUMENT NOT 0, 1, 2 OR 3 -- IGNORED)               FTN       760
          1176  0400000533 +                      EQ     ARG30                                                   FTN       761
                                                                                                                 FTN       762
          2314  0                        E.RND    ERROR  ,(ROUND ARG NOT +-*/ OR 0 -- IGNORED)                   FTN       763
          1200  0400001237 +                      EQ     ERA.SK                                                  FTN       764
                                                                                                                 F162FTNA  363
                                         #RM      IFEQ   OT#RM,7                                                 F162FTNA  364
                                         E.STAT   ERROR  ,(STATIC NOT ALLOWED WITH 7RM/SCOPE 2.......IGNORED)    F162FTNA  365
                                                  EQ     MB19B                                                   F162FTNA  366
                                         #RM      ENDIF                                                          F162FTNA  367
                                                                                                                 FTN       765
          2316  0                        E.SEQPW  ERROR  ,(PW AND SEQ IMPLY TS)                                  FCC0971    14
          1202  43601                             MX6    1                                                       FCC0971    15
                     5160001024 +                 SA6    CNFLCT                                                  FCC0971    16
          1203  0400001624 +                      EQ     MB13                                                    FCC0971    17
                                                                                                                 FCC0971    18
          2321  0                        E.SP     ERROR  ,(INVALID NUMERIC FIELD IN SPY ARGUMENT)                FTN       766
          1205  0400000277 +                      EQ     END2        ABORT                                       FEAT155H   32
                                                                                                                 FTN       768
          2326  0                        E.SW     ERROR  ,(SPY BINWIDTH MUST BE A POWER OF TWO)                  FTN       769
          1207  0400000277 +                      EQ     END2        ABORT                                       FEAT155H   33
                                                                                                                 FTN       771
          2332  0                        E.S7     ERROR  ,(MORE THAN 7 SYSTEMS TEXTS SPECIFIED)                  FTN       772
          1211  43601                             MX6    1                                                       FTN       773
                     5160001024 +                 SA6    CNFLCT      FLAG UNCORRECTABLE ERROR                    FTN       774
          1212  0400000533 +                      EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       775
                                                                                                                 FTN       776
          2336  0                        E.TSDC   ERROR  ,(TS AND D OR C OR PMD NOT ALLOWED)                     FCCA532     4
          1214  43601                             MX6    1                                                       FTN       778
                     5160001024 +                 SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                 FTN       779
          1215  0400001617 +                      EQ     MB12A                                                   FCC0971    19
                                                                                                                 FTN       781
          2342  0                        E.TSEQ   ERROR  ,(SEQ IMPLIES TS -- TS MODE NOW ON)                     FTN       782
          1217  43601                             MX6    1                                                       FTN       783
                     5160000147 +                 SA6    CO.TS                                                   FCC0971    20
          1220  0400001617 +                      EQ     MB12A                                                   FCC0971    21
                                                                                                                 FTN       786
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    72
        COMPILER INITIALIZATION SUBROUTINES                           CCERR     CCMSG 
  
          2346  0                        E.TSOPT  ERROR  ,(TS AND OPT ARE CONFLICTING OPTIONS)                   FCC0971    22
          1222  43601                             MX6    1                                                       FCC0971    23
                     5160001024 +                 SA6    CNFLCT                                                  FCC0971    24
          1223  0400001624 +                      EQ     MB13                                                    FCC0971    25
                                                                                                                 FCC0971    26
          2352  0                        E.TSMD   ERROR  ,(NOT CONFIGURED FOR TS=0 -- IGNORED)                   FTN       790
          1225  43601                             MX6    1                                                       FTN       791
                     5160001037 +                 SA6    TSFLAG                                                  FTN       792
          1226  0400001612 +                      EQ     MB12                                                    FCC2436     7
                                                                                                                 FTN       794
          1227  7110001051 +             E.UC     MESSAGE ERA.A2,,RCL      COMPILATION ABANDONED                 FTN       795
          1231  43600                             MX6    0                                                       FTN       796
                     5160000153 +                 SA6    GOFLAG      INHIBIT LOAD AND GO                         FTN       797
          1232  5110000131 +                      SA1    CER.FL                                                  FCC2104    11
                          7160000001              SX6    1                                                       FCC2104    12
          1233  54610                             SA6    A1                                                      FCC2104    13
                     0400000266 +                 EQ     ENDFTN                                                  FTN       798
                                                                                                                 FEAT126C   52
          2356  0                        E.UO     ERROR  ,(UO WITHOUT OPT=2 IGNORED)                             FEAT126C   53
          1235  43600                             MX6    0                                                       FEAT126C   54
                     5160000166 +                 SA6    UOFLAG                                                  FEAT126C   55
          1236  0400001634 +                      EQ     MB15A                                                   FEAT126C   56
                                                                                                                 FTN       803
                                                  USE    CCMSG                                                   FEAT155H   34
          2361                     1              BSS    1                                                       FEAT155H   35
          2362                    10    ERBUF     BSS    8                                                       FEAT155H   36
          2372                     1              BSS    1                                                       FEAT155H   37
                                                  USE    *                                                       FEAT155H   38
                                                                                                                 FEAT155H   39
                                                  PURGMAC ERROR                                                  FTN       804
                                                                                                                 FTN       805
                                        **        ROUTINE TO SKIP EXCESS CHARACTERS UNTIL SEPERATOR.             FTN       806
                                        *                                                                        FTN       807
          1237  0100001265 +             ERA.SK   RJ     GAC         SKIP EXCESS CHARS UNTIL SEPARATOR           FTN       808
          1240  0440001237 +                      ZR     B4,ERA.SK                                               FTN       809
                          0400000533 +            EQ     ARG30       LOOP FOR NEXT ARGUMENT                      FTN       810
                                                                                                                 FEAT155H   40
          1241  0400401241 +             IEM      ENTRY. *           ISSUE ERROR MESSAGE                         FEAT155H   41
          1242  5120001053 +                      SA2    ERA.A3                                                  FEAT155H   42
                          0302001246 +            ZR     X2,IEM1     IF NOT FIRST TIME                           FEAT155H   43
          1243  7110001053 +                      MESSAGE ERA.A3,,RCL                                            FEAT155H   44
          1245  43600                             MX6    0                                                       FEAT155H   45
                     54620                        SA6    A2                                                      FEAT155H   46
          1246  56360                    IEM1     SA3    B6                                                      FEAT155H   47
                     5160002361 +                 SA6    ERBUF-1                                                 FEAT155H   48
          1247  0323001255 +                      PL     X3,IEM2     IF NOTHING IN ERA.A1                        FEAT155H   49
                          5110001050 +            SA1    ERA.A1      PICK UP BAD ARGUMENT                        FEAT155H   50
          1250  5120001027 +                      SA2    MASK40                                                  FEAT155H   51
                          76610                   SX6    B1                                                      FEAT155H   52
                               37616              IX6    X1-X6                                                   FEAT155H   53
          1251  16116                             BX1    -X6+X1                                                  FEAT155H   54
                     11621                        BX6    X2*X1                                                   FEAT155H   55
                          10166                   BX1    X6                                                      FEAT155H   56
                               20167              LX1    55                                                      FEAT155H   57
          1252  5120001031 +                      SA2    BLANKS                                                  FEAT155H   58
                          37161                   IX1    X6-X1                                                   FEAT155H   59
                               36661              IX6    X6+X1                                                   FEAT155H   60
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    73
        COMPILER INITIALIZATION SUBROUTINES                           CCERR     FTNINIT 
  
          1253  5110001050 +                      SA1    ERA.A1                                                  FEAT155H   61
                          15226                   BX2    -X6*X2                                                  FEAT155H   62
                               36612              IX6    X1+X2                                                   FEAT155H   63
          1254  20666                             LX6    54          POSITION BLANK IN FRONT                     FEAT155H   64
                     54661                        SA6    A6+B1                                                   FEAT155H   65
                          56360                   SA3    B6                                                      FEAT155H   66
                                                                                                                 FEAT155H   67
          1255  43260                    IEM2     MX2    -12                                                     FEAT155H   68
                     43106                        MX1    CHAR                                                    FEAT155H   69
          1256  15631                    IEM3     BX6    -X1*X3                                                  FEAT155H   70
                     54331                        SA3    A3+B1                                                   FEAT155H   71
                          11713                   BX7    X1*X3                                                   FEAT155H   72
                               12667              BX6    X6+X7                                                   FEAT155H   73
          1257  20606                             LX6    CHAR                                                    FEAT155H   74
                     54661                        SA6    A6+B1                                                   FEAT155H   75
                          15732                   BX7    -X2*X3                                                  FEAT155H   76
          1260  0317001256 +                      NZ     X7,IEM3     IF MOVE NOT COMPLETE                        FCC1902     4
                          15631                   BX6    -X1*X3                                                  FEAT155H   78
                               20606              LX6    CHAR                                                    FEAT155H   79
          1261  54661                             SA6    A6+B1                                                   FEAT155H   80
                                                                                                                 FEAT155H   81
                     7110002362 +                 MESSAGE ERBUF,,RCL                                             FEAT155H   82
          1264  0400001241 +                      EQ     IEM                                                     FEAT155H   83
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    74
        COMPILER INITIALIZATION SUBROUTINES                           GAC       FTNINIT 
  
                                        **        GAC - GET ARGUMENT CHARACTER.                                  FTN       812
                                        *                                                                        FTN       813
                                        *         ENTRY  (X0) = MASK -6.                                         FTN       814
                                        *                (X5) = CURRENT WORD OF CARD IMAGE.                      FTN       815
                                        *                (A0) = 10.                                              FTN       816
                                        *                (A5) = ADDRESS OF (X5).                                 FTN       817
                                        *                (B3) = $ MODE,  -1 = NORMAL,  0 = QUOTE MODE.           FTN       818
                                        *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5).          FTN       819
                                        *                                                                        FTN       820
                                        *         EXIT   (X4) = CHARACTER.                                       FTN       821
                                        *                (B4) = CHARACTER TYPE,  -1 = TERMINATOR,  0 = ALPHANUM  FTN       822
                                        *                            +1 = SEPARATOR,  +2 = /, +3 = =.            FTN       823
                                        *                (X5, A5, B3, B5)  UPDATED.                              FTN       824
                                        *                (X0, X6, X7, A0, A4, A7, B2, B6, B7)  PRESERVED.        FTN       825
                                        *                                                                        FTN       826
                                        *         CALLS  SYS=, MSG=.                                             FTN       827
                                                                                                                 FTN       828
                                                                                                                 FTN       829
          1265  0400401265 +             GAC      ENTRY. *           ENTRY/EXIT                                  FTN       830
          1266  0450001302 +             GAC1     ZR     B5,GAC5     IF (X5) IS EMPTY                            FTN       831
                          20506                   LX5    CHAR                                                    FTN       832
                               67551              SB5    B5-B1       EXTRACT NEXT CHARACTER                      FTN       833
          1267  15450                             BX4    -X0*X5                                                  FTN       834
                     6244777724                   SB4    X4-1R$                                                  FTN       835
          1270  0440001300 +                      ZR     B4,GAC3     IF $                                        FTN       836
                          0430001301 +            ZR     B3,GAC4     IF IN QUOTE MODE                            FTN       837
          1271  66400                             SB4    B0                                                      FTN       838
                     0730001272 +                 MI     B3,GAC2     IF NOT LEAVING QUOTE MODE                   FTN       839
                               67301              SB3    -B1                                                     FTN       840
          1272  7224777732               GAC2     SX2    X4-1R9-1    CLASSIFY CHARACTER                          FTN       841
                          7234777717              SX3    X4-1R.-1                                                FTN       842
          1273  0332001265 +                      MI     X2,GAC      IF ALPHANUMERIC                             FTN       843
                          66410                   SB4    B1                                                      FTN       844
                               20202              LX2    2                                                       FTN       845
          1274  0323001265 +                      PL     X3,GAC      IF NON-DISPLAY                              FTN       846
                          5130001326 +            SA3    GACA                                                    FTN       847
          1275  63420                             SB4    X2                                                      FTN       848
                     22243                        LX2    X3,B4       GET CHARACTER TYPE CODE                     FTN       849
                          21270                   AX2    -4                                                      FTN       850
                               63420              SB4    X2                                                      FTN       851
          1276  0312001265 +                      NZ     X2,GAC      IF NOT BLANK                                FTN       852
                          0322001265 +            PL     X2,GAC                                                  FTN       853
          1277  0400001266 +                      EQ     GAC1        IGNORE BLANK                                FTN       854
                                                                                                                 FTN       855
          1300  66331                    GAC3     SB3    B3+B1                                                   FTN       856
                     0613001266 +                 LE     B3,B1,GAC1  IF NOT SECOND $ OF A PAIR IN QUOTE MODE     FTN       857
                               66300              SB3    B0                                                      FTN       858
          1301  66400                    GAC4     SB4    B0          QUOTE MODE, RETURN WITH CHARACTER TYPE = 0  FTN       859
                     0400001265 +                 EQ     GAC                                                     FTN       860
                                                                                                                 FTN       861
          1302  5110001330 +             GAC5     SA1    GACC                                                    FTN       862
                          64500                   SB5    A0                                                      FTN       863
          1303  0301001315 +                      ZR     X1,GAC7     IF INITIAL ENTRY                            FTN       864
                          54551                   SA5    A5+B1       GET NEXT WORD                               FTN       865
          1304  0315001266 +                      NZ     X5,GAC1     IF NOT END OF CARD                          FTN       866
                          0335001266 +            MI     X5,GAC1                                                 FTN       867
          1305  5160001327 +                      SA6    GACB        SAVE (X6)                                   FTN       868
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    75
        COMPILER INITIALIZATION SUBROUTINES                           GAC       FTNINIT 
  
                          7160000010              CONTRLC GACC,READ                                              FTN       869
          1311  5110000070                        SA1    RA.CCD                                                  FTN       870
                          0311001313 +            NZ     X1,GAC6                                                 FTN       871
          1312  0321001074 +                      PL     X1,E.EF     IF NO MORE CONTROL CARDS                    FTN       872
          1313  7110000070               GAC6     MESSAGE RA.CCD,,RCL                                            FTN       873
          1315  6140000067               GAC7     SB4    60-CHAR+1                                               FTN       874
                          5120001031 +            SA2    BLANKS                                                  FTN       875
          1316  43600                             MX6    0           STORE ZERO WORD AFTER CARD IMAGE            FTN       876
                     5160000100                   SA6    RA.CCD+8                                                FTN       877
                               10622              BX6    X2                                                      FTN       878
          1317  55561                    GAC8     SA5    A6-B1       BLANK FILL CARD IMAGE                       FTN       879
                     54650                        SA6    A5                                                      FTN       880
                          0305001317 +            ZR     X5,GAC8                                                 FTN       881
          1320  43173                             MX1    -1                                                      FTN       882
                     36451                        IX4    X5+X1                                                   FTN       883
                          5120001027 +            SA2    MASK40                                                  FTN       884
          1321  15145                             BX1    -X5*X4                                                  FTN       885
                     11412                        BX4    X1*X2                                                   FTN       886
                          22144                   LX1    X4,B4                                                   FTN       887
                               37241              IX2    X4-X1                                                   FTN       888
          1322  12142                             BX1    X4+X2                                                   FTN       889
                     11216                        BX2    X1*X6                                                   FTN       890
                          36652                   IX6    X5+X2                                                   FTN       891
                               54660              SA6    A6                                                      FTN       892
          1323  5110001327 +                      SA1    GACB                                                    FTN       893
                          5160001330 +            SA6    GACC          INDICATE NOT FIRST TIME                   FTN       894
          1324  10611                             BX6    X1          RESTORE (X6)                                FTN       895
                     5150000070                   SA5    RA.CCD      SCAN NEW CARD                               FTN       896
          1325  0400001266 +                      EQ     GAC1                                                    FTN       897
                                                                                                                 FTN       898
                                        *                  +   -   *   /   (    )   $   =   BL   ,    .          FTN       899
          1326  04211036007707400000     GACA     VFD    4/1,4/1,4/1,4/2,4/1,4/-1,4/0,4/3,4/-0,4/1,4/-1,*P/0     FTN       900
          1327  00000000000000000000     GACB     CON    0           STORAGE FOR SAVING (X6)                     FTN       901
          1330  00000000000000000000     GACC     CON    0           STATUS WORD FOR CONTRLC + FIRST TIME FLAG   FTN       902
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    76
        COMPILER INITIALIZATION SUBROUTINES                           GAV       FTNINIT 
  
                                        **        GAV - GET ARGUMENT VALUE.                                      FTN       904
                                        *                                                                        FTN       905
                                        *         ENTRY  (X0) = MASK -CHAR                                       FTN       906
                                        *                (X5) = CURRENT WORD OF CARD IMAGE.                      FTN       907
                                        *                (A0) = 10.                                              FTN       908
                                        *                (A5) = ADDRESS OF (X5).                                 FTN       909
                                        *                (B2) = CHAR                                             FTN       910
                                        *                (B3) = $ MODE.                                          FTN       911
                                        *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5).          FTN       912
                                        *                                                                        FTN       913
                                        *         EXIT   (X6) = VALUE SCANNED, LEFT JUSTIFIED WITH 00 FILL.      FTN       914
                                        *                (X4) = CHARACTER FOLLOWING ARGUMENT.                    FTN       915
                                        *                (B4) = CHARACTER TYPE.                                  FTN       916
                                        *                (X5, A5, B3, B5)  UPDATED.                              FTN       917
                                        *                                                                        FTN       918
                                        *         USES   A1,A2,A3,A4,A6  B6  X1,X2,X3                            FTN       919
                                        *                A0,A5,A7  B2,B7  X0,X7  PRESERVED.                      FTN       920
                                        *                                                                        FTN       921
                                        *         IF VALUE SCANNED IS MORE THAN 7 CHARACTERS, ERROR.             FTN       922
                                                                                                                 FTN       923
                                                                                                                 FTN       924
          1331  0400401331 +             GAV      ENTRY. *           ENTRY/EXIT                                  FTN       925
          1332  43600                             MX6    0                                                       FTN       926
                     6160000052                   SB6    7*CHAR      INDICATE EMPTY ACCUMULATOR                  FTN       927
                                                                                                                 FTN       928
          1333  0100001265 +             GAV2     RJ     GAC         GET ARGUMENT CHARACTER                      FTN       929
          1334  0540001337 +                      NZ     B4,GAV4     IF SEPARATOR                                FTN       930
                          22464                   LX4    B6                                                      FTN       931
                               67662              SB6    B6-B2                                                   FTN       932
          1335  12664                             BX6    X6+X4                                                   FTN       933
                     0660001333 +                 PL     B6,GAV2     LOOP                                        FTN       934
                               20614              LX6    2*CHAR      LEFT JUSTIFY VALUE                          FTN       935
          1336  0400001125 +                      EQ     E.F7        MORE THAN 7 CHARACTERS (RETURN GAV8)        FTN       936
                                                                                                                 FTN       937
          1337  20614                    GAV4     LX6    2*CHAR      LEFT JUSTIFY VALUE                          FTN       938
                     0400001331 +                 EQ     GAV                                                     FTN       939
                                                                                                                 FTN       940
          1340  0100001265 +             GAV8     RJ     GAC         SKIP EXCESS CHARS UNTIL SEPARATOR           FTN       941
          1341  0440001340 +                      ZR     B4,GAV8                                                 FTN       942
                          5110001050 +            SA1    ERA.A1                                                  FTN       943
          1342  10611                             BX6    X1          RESTORE (X6) = FIRST 7 CHARACTERS OF ARG    FTN       944
                     0400001331 +                 EQ     GAV                                                     FTN       945
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    77
        COMPILER INITIALIZATION SUBROUTINES                           CFF       FTNINIT 
  
                                        **        CFF - CHANGE FILE NAME IN FET/FIT.                             FTN       947
                                        *                                                                        FTN       948
                                        *         (RECORD MGR OFF) - CHANGES OR CLEARS FILE NAME IN FET.         FTN       949
                                        *         FOR A NAME CHANGE, THE EXISTING FET FILE MODE BIT IS RETAINED  FTN       950
                                        *         AND THE CIO COMPLETE BIT IS SET.                               FTN       951
                                        *         FOR A NAME CLEAR, FET WORD 1 IS CLEARED TO ZERO.               FTN       952
                                        *                                                                        FTN       953
                                        *         (RECORD MGR ON) - CHANGES OR CLEARS FILE NAME IN FIT.          FTN       954
                                        *                                                                        FTN       955
                                        *                                                                        FTN       956
                                        *         ENTRY  (X2) = FET/FIT ADDRESS                                  FTN       957
                                        *                (X6) = ACTION REQUEST--                                 FTN       958
                                        *                       TO CLEAR,  = 0                                   FTN       959
                                        *                       TO CHANGE, = NEW NAME, 7 CHARS MAX, LEFT ADJ     FTN       960
                                        *                                                                        FTN       961
                                        *         EXIT   NAME CHANGED OR CLEARED                                 FTN       962
                                        *                                                                        FTN       963
                                        *         USES   X - 3, 6, 7                                             FTN       964
                                        *                A - 1, 3, 6                                             FTN       965
                                        *                B - 6                                                   FTN       966
                                        *                                                                        FTN       967
                                        *         CALLS  (RECORD MGR OFF) - NONE                                 FTN       968
                                        *                (RECORD MGR ON)  - STORE                                FTN       969
                                                                                                                 FTN       970
                                                                                                                 FTN       971
          1343  0400401343 +             CFF      ENTRY. *           ** ENTRY/EXIT **                            FTN       972
                                                                                                                 FTN       973
                                         #RM      IFEQ   CP#RM,0                                                 FTN       974
                                                                                                                 FTN       975
          1344  0306001347 +                      ZR     X6,CFF2     IF NAME TO BE CLEARED                       FTN       976
                          53320                   SA3    X2          (X3) = FET WORD 1                           FTN       977
          1345  7170000002                        SX7    2                                                       FTN       978
                          11373                   BX3    X7*X3       EXTRACT FILE MODE BIT                       FTN       979
          1346  7273000001                        SX7    X3+1        TURN CIO COMPLETE BIT ON                    FTN       980
                          36667                   IX6    X6+X7       42/NEW FILE NAME,16/0,1/OLD MODE BIT,1/1    FTN       981
          1347  53620                    CFF2     SA6    X2          UPDATE FET WORD 1                           FTN       982
                     0400001343 +                 EQ     CFF         EXIT                                        FTN       983
                                                                                                                 FTN       984
                                         #RM      ELSE                                                           FTN       985
                                                                                                                 FTN       986
                                                  SA1    A5          SAVE (A5) AND (X5)                          FTN       987
                                                  BX3    X5                                                      FTN       988
                                                  SB6    B5          SAVE (B5)                                   FTN       989
                                                  STORE  X2,LFN=X6   NEW NAME TO FIT                             FTN       990
                                                  SA5    A1          RESTORE (A5) AND (X5)                       FTN       991
                                                  BX5    X3                                                      FTN       992
                                                  SB5    B6          RESTORE (B5)                                FTN       993
                                                  EQ     CFF         EXIT                                        FTN       994
                                                                                                                 FTN       995
                                         #RM      ENDIF                                                          FTN       996
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    78
        COMPILER INITIALIZATION SUBROUTINES                           CFL       FTNINIT 
  
                                        **        CFL - CHECK FIELD LENGTH.                                      FTN       998
                                        *                                                                        FTN       999
                                        *         COMPARES CURRENT FIELD LENGTH VS. MINIMUM FIELD LENGTH.        FTN      1000
                                        *         EXITS IF CURRENT FL IS ABOVE MINIMUM. OTHERWISE, REQUESTS      FEAT155D   20
                                        *         FIELD LENGTH EQUAL TO THE NOMINAL FIELD LENGTH FOR THIS MODE   FEAT155D   21
                                        *         (I.E. TS, OPT=0,1,2 OR DEBUG) OR THE MAXIMUM FOR THIS JOB      FEAT155D   22
                                        *         STEP - WHICHEVER IS SMALLER.                                   FEAT155D   23
                                        *                                                                        FTN      1016
                                        *         ENTRY  (CP.AFLS) = CURRENT FL.                                 FTN      1017
                                        *                                                                        FTN      1018
                                        *         EXITS  NORMAL--    RETURNS TO CALLER VIA ENTRY POINT.          FTN      1019
                                        *                            (CP.AFLS) = NEW CURRENT FL.                 FTN      1020
                                        *                            (CP.NFLS) = NEW CURRENT USABLE FL, ADJUSTED FTN      1021
                                        *                                        FOR DEBUG OPTION.               FTN      1022
                                        *                                                                        FTN      1023
                                        *                ERROR--     ABORTS JOB.                                 FTN      1024
                                        *                                                                        FTN      1025
                                        *         USES   X - 1, 2, 6, 7                                          FTN      1026
                                        *                A - 1, 2, 6, 7                                          FTN      1027
                                        *                B - 2, 3                                                FTN      1028
                                        *                                                                        FTN      1029
                                        *         CALLS  FTNEND, MEMORY, MESSAGE                                 FTN      1030
                                                                                                                 FTN      1031
                                                                                                                 FTN      1032
          1350  5110000150 +             CFL2     SA1    DFLAG       DEBUG OPTION FLAG                           FTN      1033
                          7276777765              SX7    X6-10       LEAVE 10-WORD SAFETY ZONE                   FTN      1034
          1351  0301001352 +                      ZR     X1,CFL3     IF DEBUG OPTION OFF                         FTN      1035
                          7277777467              SX7    X7-S.GCON   RESERVE SPACE FOR DEBUG GLOBAL CON TABLE    FTN      1036
          1352  5170000070 C             CFL3     SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL             FTN      1037
                          5160000067 C            SA6    CP.AFLS     UPDATE TO CURRENT FL                        FTN      1038
          1353  20636                             LX6    30                                                      FEAT155D   24
                     5160000113 +                 SA6    INT.FL      COMPILER INITIAL FIELD LENGTH               FEAT155D   25
          1354  5170000126 +                      SA7    O.GCON      SET GLOBAL CON TABLE FWA                    FTN      1039
                                                                                                                 F7540FT    29
                                         #LCM     IFNE   CT.ECS,0                                                F7540FT    30
                                                                                                                 FTN      1041
                                        *         CHECK LCM FL , REQUEST SOME IF OPT .GE. 2                      FTN      1042
                                                                                                                 FTN      1043
                          7160150515              MEMORY LCM,LCM.MM,R                                            FTN      1044
          1360  5110000171 +                      SA1    LCM.MM                                                  FTN      1045
                          10611                   BX6    X1                                                      FTN      1046
                               20672              LX6    59-1        LCM.MM = 1S59 IF REDUCE MODE                FTN      1047
          1361  54610                             SA6    A1                                                      FTN      1048
                     21136                        AX1    30                                                      FTN      1049
                          0326001372 +            PL     X6,CFL9     IF FIXED FL MODE                            FTN      1050
          1362  5140000142 +                      SA4    CO.OLVL                                                 FTN      1051
                          7254777775              SX5    X4-2                                                    FTN      1052
          1363  0335001372 +                      MI     X5,CFL9     IF OPTLVL .LT. 2                            FTN      1053
                          7170030000              SX7    IN.LCM                                                  FTN      1054
          1364  37317                             IX3    X1-X7                                                   FTN      1055
                     20736                        LX7    30                                                      FTN      1056
                          0323001372 +            PL     X3,CFL9     IF LCM.FL .GE. IN.LCM                       FTN      1057
          1365  5170000023 C                      SA7    GT1                                                     FTN      1058
                          7160150515              MEMORY LCM,GT1,R,,NOABT                                        FTN      1059
          1371  5110000023 C                      SA1    GT1                                                     FTN      1060
                          21136                   AX1    30                                                      FTN      1061
                                                                                                                 FTN      1062
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    79
        COMPILER INITIALIZATION SUBROUTINES                           CFL       FTNINIT 
  
          1372  10711                    CFL9     BX7    X1                                                      FTN      1063
                     5170000071 C                 SA7    CP.AFLL     CP.AFLL = LCM.FL                            FTN      1064
                                         #LCM     ENDIF                                                          F7540FT    31
                                                                                                                 FTN      1066
                                                                                                                 FTN      1067
          1373  0400401373 +             CFL      ENTRY. *           ** ENTRY/EXIT **                            FTN      1068
                                                                                                                 FTN      1069
                                        *         CHECK CURRENT MEMORY SIZE.                                     FTN      1070
                                                                                                                 FEAT155D   26
                                        *         GET MAXIMUM SCM FIELD LENGTH FOR THIS JOB STEP                 FEAT155D   27
                                                                                                                 FEAT155D   28
          1374  7160150515                        MEMORY SCM,MAX.FL,RCL    GET MAX FL                            FEAT155D   29
                                                                                                                 FTN      1071
          1377  5110000067 C                      SA1    CP.AFLS     CURRENT FIELD LENGTH                        FTN      1072
                          6120731777              SB2    -MIN.FL     (B2) = -MIN FL FOR OPT = 0 OR 1             FTN      1073
          1400  7170052000                        SX7    NOM.FL      (X7) = NOMINAL FL FOR OPT = 0 OR 1          FTN      1074
                          5120000142 +            SA2    CO.OLVL     OPT LEVEL                                   FTN      1075
          1401  7262777775                        SX6    X2-2                                                    FTN      1076
                          0336001403 +            MI     X6,CFL1     IF OPT .LT.2                                FTN      1077
          1402  6120723777                        SB2    -MIN.OFL    (B2) = -MIN.FL FOR OPT = 2 OR 3             FTN      1078
                          7170060000              SX7    NOM.OFL     (X7) = NOMINAL FL FOR OPT = 2 OR 3          FTN      1079
          1403  5120000150 +             CFL1     SA2    DFLAG       DEBUG OPTION FLAG                           FTN      1080
                          0302001405 +            ZR     X2,CFL1A    IF DEBUG OFF                                FTN      1081
          1404  6120714777                        SB2    -MIN.DFL    (B2) = -MIN FL FOR DEBUG                    FTN      1082
                          7170067000              SX7    NOM.DFL     (X7) = NOMINAL FL OF DEBUG                  FTN      1083
          1405  5120000147 +             CFL1A    SA2    CO.TS                                                   FCC0971    27
                          0302001407 +            ZR     X2,CFL1B    IF TS NOT SELECTED                          FTN      1085
          1406  6120737777                        SB2    -MIN.TFL    (B2) = -MIN FL FOR TS MODE                  FTN      1086
                          7170044000              SX7    NOM.TFL     (X7) = NOMINAL FL FOR TS MODE               FTN      1087
          1407  63312                    CFL1B    SB3    X1+B2       (B3) = CURRENT FL - MINIMUM FL              FTN      1088
                     10611                        BX6    X1          (X6) = CURRENT FL                           FTN      1089
                          0630001350 +            PL     B3,CFL2     IF ENOUGH MEMORY                            FTN      1090
          1410  5110000124 +                      SA1    MAX.FL                                                  FEAT155D   30
                          21136                   AX1    30                                                      FEAT155D   31
                               63312              SB3    X1+B2       MAX.FL-MIN.FL                               FEAT155D   32
          1411  0730001420 +                      MI     B3,CFL5     IF NOT ENOUGH MEMORY                        FEAT155D   33
                                                                                                                 FEAT155D   34
                                        *         REQUEST MORE MEMORY.                                           FEAT155D   35
                                                                                                                 FEAT155D   36
                          37617                   MX6    X1-X7       MIN OF MAX.FL AND NOMINAL FL                FEAT155D   37
                               20636              LX6    30                                                      FEAT155D   38
          1413  5160000023 C                      SA6    GT1                                                     FEAT155D   39
                          7160150515              MEMORY SCM,GT1,RCL                                             FEAT155D   40
          1416  5110000023 C                      SA1    GT1         GET NEW FL                                  FEAT155D   41
                          21136                   AX1    30                                                      FEAT155D   42
                               10611              BX6    X1                                                      FEAT155D   43
          1417  0400001350 +                      EQ     CFL2        FL NOW OK                                   FEAT155D   44
                                                                                                                 FTN      1133
                                        *         NOT ENOUGH MEMORY; SEND ERROR MESSAGE; ABORT JOB.              FTN      1134
                                                                                                                 FTN      1135
          1420  5110000150 +             CFL5     SA1    DFLAG       DEBUG OPTION FLAG                           FTN      1136
                          5130000147 +            SA3    CO.TS       TS OPTION FLAG                              FCC0971    28
          1421  5120001435 +                      SA2    MSG.FL+2                                                FTN      1138
                          0301001423 +            ZR     X1,CFL6     IF DEBUG OPTION OFF                         FTN      1139
          1422  7170017500                        SX7    3R"MIN.DFL"-3R"MIN.FL"                                  FTN      1140
                          0400001427 +            EQ     CFL7A                                                   FTN      1141
          1423  0303001425 +             CFL6     ZR     X3,CFL7     IF NOT TS MODE                              FTN      1142
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    80
        COMPILER INITIALIZATION SUBROUTINES                           CFL       FTNINIT 
  
                          7170777177              SX7    3R"MIN.TFL"-3R"MIN.FL"                                  FTN      1143
          1424  0400001427 +                      EQ     CFL7A                                                   FTN      1144
          1425  5140000142 +             CFL7     SA4    CO.OLVL     OPT LEVEL                                   FTN      1145
                          7234777775              SX3    X4-2                                                    FTN      1146
          1426  0333001430 +                      MI     X3,CFL8     IF OPT .LT. 2                               FTN      1147
                          7170007600              SX7    3R"MIN.OFL"-3R"MIN.FL"                                  FTN      1148
          1427  20736                    CFL7A    LX7    5*CHAR                                                  FTN      1149
                     36627                        IX6    X2+X7                                                   FTN      1150
                          54620                   SA6    A2          INSERT MIN DEBUG FL IN ERROR MSG TEXT       FTN      1151
          1430  7110001433 +             CFL8     MESSAGE  MSG.FL,,RCL                                           F7540FT    32
          1432  0400000277 +                      EQ     END2        ABORT                                       FEAT155H   84
                                                                                                                 FTN      1154
                                                                                                                 FTN      1155
                                                                                                                 FTN      1156
                                                  LIST   A                                                       FTN      1157
          1433  55555506241655160505     MSG.FL   DIS    2,   FTN NEEDS AT LEAS                                  FTN      1158
                                                  DIS    ,/T "MIN.FL"00B "SCM" FL.  /                            FEAT155H   85
          1435  24553741333333025503              DIS    ,/T 46000B CM FL.  /                                    FEAT155H   85
                                                  LIST   *                                                       FTN      1164
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    81
        COMPILER INITIALIZATION SUBROUTINES                           CFN       FTNINIT 
  
                                        **        CFN - CHANGE FILE NAME.                                        FTN      1166
                                        *                                                                        FTN      1167
                                        *         CHANGES OR CLEARS ENTRY IN THE FILE VECTOR TABLE.              FTN      1168
                                        *         CALLS -CFF- TO UPDATE THE FET OR FIT.  EXITS WITHOUT ACTION    FTN      1169
                                        *         IF THE VECTOR TABLE ENTRY WAS ALREADY EMPTY, BECAUSE A         FTN      1170
                                        *         CONTROL CARD OPTION HAS DESELECTED THE FILE.                   FTN      1171
                                        *                                                                        FTN      1172
                                        *         ENTRY  (X2) = FILE VECTOR TABLE ENTRY                          FTN      1173
                                        *                (A2) = ADDRESS OF (X2) ENTRY                            FTN      1174
                                        *                (X6) = NEW NAME, MAX 7 CHARACTERS, LEFT ADJUSTED        FTN      1175
                                        *                       ACTION REQUEST --                                FTN      1176
                                        *                       .ZR. = CLEAR ENTRY                               FTN      1177
                                        *                       .NZ. = CHANGE NAME; KEEP PREVIOUS FET/FIT ADDR   FTN      1178
                                        *                                                                        FTN      1179
                                        *         EXIT   VARIES WITH ENTRY CONDITIONS                            FTN      1180
                                        *                                                                        FTN      1181
                                        *         USES   X - 3, 5, 6, 7                                          FTN      1182
                                        *                A - 7                                                   FTN      1183
                                        *                B - NONE                                                FTN      1184
                                        *                                                                        FTN      1185
                                        *         CALLS  CFF                                                     FTN      1186
                                                                                                                 FTN      1187
                                                                                                                 FTN      1188
          1437  0400401437 +             CFN      ENTRY. *           ** ENTRY/EXIT **                            FTN      1189
          1440  0302001437 +                      ZR     X2,CFN      IF EMPTY TABLE ENTRY, EXIT                  FTN      1190
                          43700                   MX7    0                                                       FTN      1191
                               73320              SX3    X2          FET/FIT ADDRESS                             FTN      1192
          1441  0306001442 +                      ZR     X6,CFN2                                                 FTN      1193
                          36763                   IX7    X6+X3       42/NEW NAME, 18/FET OR FIT ADDRESS          FTN      1194
          1442  54720                    CFN2     SA7    A2          UPDATE TABLE                                FTN      1195
                     0100001343 +                 CALL   CFF                                                     FTN      1196
          1443  0400001437 +                      EQ     CFN         EXIT                                        FTN      1197
  
  
  
  
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    82
        COMCDXB - DISPLAY CODE TO BINARY CONVERSION.                            FTNINIT 
  
          1443                                    CTEXT  COMCDXB - DISPLAY CODE TO BINARY CONVERSION.            COMCDXB     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCDXB     4
                                                  QUAL   COMCDXB                                                 COMCDXB     5
                                 D_D              BASE   D                                                       COMCDXB     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCDXB     7
  
  
  
  
                                        ***       DXB - DISPLAY CODE TO BINARY CONVERSION.                       COMCDXB     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCDXB    10
  
  
  
  
                                        ***              DXB CONVERTS ONE WORD OF DISPLAY CODE DIGITS TO         COMCDXB    12
                                        *         A BINARY VALUE.  CONVERSION MAY BE IN OCTAL OR DECIMAL BY      COMCDXB    13
                                        *         THE FOLLOWING CONDITIONS.                                      COMCDXB    14
                                        *         (1.)  ASSUMED BASE SPECIFIED BY CALLER.                        COMCDXB    15
                                        *         (2.)  POST RADIX SPECIFICATION.  (B = OCTAL, D = DECIMAL)      COMCDXB    16
                                        *         (3.)  PRESENCE OF 8 OR 9 WILL FORCE DECIMAL IF NO *B* POST     COMCDXB    17
                                        *                RADIX.                                                  COMCDXB    18
                                        *         ERROR CONDITIONS SENSED ARE -                                  COMCDXB    19
                                        *         (1.)  PRESENCE OF NON-DIGIT IN WORD.                           COMCDXB    20
                                        *         (2.)  PRESENCE OF CHARACTER AFTER POST RADIX.                  COMCDXB    21
                                        *         (3.)  PRESENCE OF 8 OR 9 WITH POST RADIX = B.                  COMCDXB    22
                                        *                                                                        COMCDXB    23
                                        *                                                                        COMCDXB    24
                                        *         ENTRY  (X5) = WORD TO CONVERT.                                 COMCDXB    25
                                        *                (B7) > 0 IF DECIMAL BASE ASSUMED.                       COMCDXB    26
                                        *                (B1) = 1.                                               COMCDXB    27
                                        *                                                                        COMCDXB    28
                                        *         EXIT   (X6) = CONVERTED DIGITS.                                COMCDXB    29
                                        *                (X4) " 0 IF ERROR IN ASSEMBLY.                          COMCDXB    30
                                        *                                                                        COMCDXB    31
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCDXB    32
                                        *                B - 2, 3, 4, 5.                                         COMCDXB    33
                                        *                A - NONE.                                               COMCDXB    34
                                        *                                                                        COMCDXB    35
                                        *         CALLS  NONE.                                                   COMCDXB    36
                                                                                                                 COMCDXB    37
                                                                                                                 COMCDXB    38
          1444  22227                    DXB1     LX2    X7,B2       DECIMAL * 10                                COMCDXB    39
                     36727                        IX7    X2+X7                                                   COMCDXB    40
                          20603                   LX6    3           OCTAL * 8                                   COMCDXB    41
                               15213              BX2    -X3*X1      8/9 PRESENCE                                COMCDXB    42
          1445  20701                             LX7    1                                                       COMCDXB    43
                     12661                        BX6    X6+X1       OCTAL + NEW DIGIT                           COMCDXB    44
                          36771                   IX7    X7+X1       DECIMAL + NEW DIGIT                         COMCDXB    45
                               63525              SB5    B5+X2       NOTE 8/9                                    COMCDXB    46
          1446  20506                    DXB2     LX5    6           NEXT CHARACTER                              COMCDXB    47
                     15150                        BX1    -X0*X5                                                  COMCDXB    48
                          63410                   SB4    X1          CHECK CHARACTER                             COMCDXB    49
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    83
        COMCDXB - DISPLAY CODE TO BINARY CONVERSION.                  COMCDXB   FTNINIT   COMCDXB 
  
                               22244              LX2    X4,B4                                                   COMCDXB    50
          1447  73113                             SX1    X1+B3       CONVERT CHARACTER                           COMCDXB    51
                     11505                        BX5    X0*X5       CLEAR CHARACTER                             COMCDXB    52
                          0332001444 +            NG     X2,DXB1     LOOP IF DIGIT                               COMCDXB    53
                                                                                                                 COMCDXB    54
                                        *         CHECK FOR POST RADIX SPECIFICATION.                            COMCDXB    55
                                                                                                                 COMCDXB    56
          1450  66357                             SB3    B5+B7       SET BASE (ASSUMED OR 8/9)                   COMCDXB    57
                     0440001453 +                 ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB    58
                               66322              SB3    B2+B2       BASE = DECIMAL                              COMCDXB    59
          1451  0315001454 +                      NZ     X5,DXB      RETURN IF NOT LAST CHARACTER                COMCDXB    60
                          0443001453 +            EQ     B4,B3,DXB3  IF *D*                                      COMCDXB    61
          1452  67545                             SB5    B4-B5                                                   COMCDXB    62
                     0552001454 +                 NE     B5,B2,DXB   RETURN IF NOT *B* OR *B* AND 8/9 PRESENT    COMCDXB    63
                               66300              SB3    B0          SET OCTAL                                   COMCDXB    64
          1453  43400                    DXB3     MX4    0           CLEAR ERROR                                 COMCDXB    65
                     0430001454 +                 ZR     B3,DXB      RETURN IF BASE = OCTAL                      COMCDXB    66
                               10677              BX6    X7          SET DECIMAL                                 COMCDXB    67
                                                                                                                 COMCDXB    68
          1454  0000000000               DXB      PS                 ENTRY/EXIT                                  COMCDXB    69
          1455  7140007774                        SX4    7774B       MASK FOR \0123456789@                       COMCDXB    70
                          43066                   MX0    -6          (X0) = CHARACTER MASK.                      COMCDXB    71
                               76600              SX6    B0          CLEAR OCTAL                                 COMCDXB    72
          1456  66211                             SB2    B1+B1       (B2) = 2                                    COMCDXB    73
                     13777                        BX7    X7-X7       CLEAR DECIMAL                               COMCDXB    74
                          6130777744              SB3    -1R0        (B3) = CONVERSION CONSTANT                  COMCDXB    75
          1457  20425                             LX4    21                                                      COMCDXB    76
                     66500                        SB5    B0          CLEAR 8/9 PRESENCE                          COMCDXB    77
                          7130000007              SX3    7           MASK FOR 8/9                                COMCDXB    78
          1460  0400001446 +                      EQ     DXB2        ENTER CONVERSION LOOP                       COMCDXB    79
  
  
  
  
                                 D_D              BASE   *                                                       COMCDXB    81
                                         QUAL$    IF     -DEF,QUAL$                                              COMCDXB    82
                                                  QUAL   *                                                       COMCDXB    83
                                1454 +   DXB      EQU    /COMCDXB/DXB                                            COMCDXB    84
                                         QUAL$    ENDIF                                                          COMCDXB    85
                                                  ENDX                                                           COMCDXB    86
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    84
        FA=SET - SET FILE TABLES                                                FTNINIT 
  
          1460                                    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
          1461  0200401461 +             FA=SET   JP     *+4S15      ** ENTRY/EXIT **                            FA=SET     35
          1462  53120                             SA1    X2          (X1) = FET WORD 1                           FA=SET     36
                     20173                        LX1    59-0                                                    FA=SET     37
                          0331001464 +            MI     X1,SET2     IF FILE QUIET                               FA=SET     38
          1463  0100000021 +                      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
          1464  5212000005               SET2     SA1    X2+I.CBSET                                              FA=SET     44
                          77323                   SX3    B2-B3                                                   FA=SET     45
                               21373              AX3    59D                                                     FA=SET     46
          1465  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
          1466  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
          1467  36773                             IX7    X7+X3       (X7) = BUFFER LWA+1                         FA=SET     55
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    85
        FA=SET - SET FILE TABLES                                      SET       FTNINIT   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
          1470  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
          1471  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
          1472  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
          1473  54771                             SA7    A7+B1       CBSET                                       FA=SET     72
                     0200001461 +                 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       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    86
        FA=SET - SET FILE TABLES                                      SET       FTNINIT   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                                            FEAT126C   26
                                                  SX7    B3-B2       (X7) = HOLDING BUFFER LENGTH (WORDS)        FA=SET    141
                                                  IX6    X7+X7                                                   FA=SET    142
                                                  LX7    3                                                       FA=SET    143
                                                  IX6    X6+X7       (X6) = LENGTH (CHARACTERS)                  FA=SET    144
                                                  STORE  X2,PTL=X6,X1                                            FEAT126C   27
                                                  JP     FA=SET      EXIT                                        FA=SET    148
                                                                                                                 FA=SET    149
                                         SET3     MX1    0           DUMMY LENGTH = 0 TO FORCE FWA = LWA+1       FA=SET    150
                                                  RJ     SAR                                                     FA=SET    151
                                                  JP     FA=SET      EXIT                                        FA=SET    152
                                         SAR      SPACE  4,8                                                     FA=SET    153
                                        **        SAR - SET ADDRESSES IN REGISTERS.                              FA=SET    154
                                        *                                                                        FA=SET    155
                                        *                                                                        FA=SET    156
                                        *         ENTRY  (X1) = LEN * 1S18                                       FA=SET    157
                                        *                (B2) = FWA OR 0                                         FA=SET    158
                                        *                (B3) = 0 OR LWA+1                                       FA=SET    159
                                        *                (B4) = +1 IF FWA-UP MODE AND (B2) = FWA                 FA=SET    160
                                        *                     = -1 IF LWA-DOWN MODE AND (B3) = LWA+1             FA=SET    161
                                        *                                                                        FA=SET    162
                                        *         EXIT   (X1) = LEN * 1S18  (LOWER 18 BITS CLEAR)                FA=SET    163
                                        *                (X6) = FWA                                              FA=SET    164
                                        *                (B2) = FWA                                              FA=SET    165
                                        *                (B3) = LWA+1                                            FA=SET    166
                                        *                                                                        FA=SET    167
                                        *         USES   X - 1, 6                                                FA=SET    168
                                        *                A - NONE                                                FA=SET    169
                                        *                B - 2, 3                                                FA=SET    170
                                        *                                                                        FA=SET    171
                                        *         CALLS  NONE                                                    FA=SET    172
                                                                                                                 FA=SET    173
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    87
        FA=SET - SET FILE TABLES                                      SET       FTNINIT   FA=SET
  
                                                                                                                 FA=SET    174
                                         SAR2     BX6    -X1         (X6) = - BUFFER LENGTH                      FA=SET    175
                                                  LX1    18D                                                     FA=SET    176
                                                  SB2    X6+B3       (B2) = BUFFER FWA                           FA=SET    177
                                                  SX6    X6+B3                                                   FA=SET    178
                                                                                                                 FA=SET    179
                                         SAR      JP     *+4S15      ** ENTRY/EXIT **                            FA=SET    180
                                                  AX1    18D                                                     FA=SET    181
                                                  MI     B4,SAR2     IF LWA-DOWN MODE                            FA=SET    182
                                                  SB3    X1+B2       (B3) = BUFFER LWA+1                         FA=SET    183
                                                  LX1    18D                                                     FA=SET    184
                                                  SX6    B2                                                      FA=SET    185
                                                  EQ     SAR         EXIT                                        FA=SET    186
                                                  SPACE  4                                                       FA=SET    187
                                         #RM      ENDIF                                                          FA=SET    188
                                                                                                                 FA=SET    189
                                                                                                                 FA=SET    190
                                                  IF     -DEF,QUAL$,2                                            FA=SET    191
                                                  QUAL   *                                                       FA=SET    192
                                1461 +   FA=SET   EQU    /FA=SET/FA=SET                                          FA=SET    193
                                                  ENDX                                                           FA=SET    194
                                         #OS      IFNE   .OS,2                                                   FCCA595     5
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    88
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                              FTNINIT 
  
          1473                                    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
          1474  0100000002 +             CPM1     RJ     =XSYS=      ISSUE REQUEST                               COMCCPM    39
                                                                                                                 COMCCPM    40
          1475  0000000000               CPM=     PS                 ENTRY/EXIT                                  COMCCPM    41
          1476  43644                             MX6    -24         FORM REQUEST                                COMCCPM    42
                     15116                        BX1    -X6*X1                                                  COMCCPM    43
                          20230                   LX2    24                                                      COMCCPM    44
          1477  7160150065                        SX6    4RCPMP/16                                               COMCCPM    45
                          12121                   BX1    X2+X1                                                   COMCCPM    46
                               20650              LX6    40                                                      COMCCPM    47
          1500  12661                             BX6    X6+X1                                                   COMCCPM    48
                     0400001474 +                 EQ     CPM1                                                    COMCCPM    49
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    89
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                              FTNINIT   COMCCPM 
  
                                 D_D              BASE   *                                                       COMCCPM    51
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCPM    52
                                                  QUAL   *                                                       COMCCPM    53
                                1475 +   CPM=     EQU    /COMCCPM/CPM=                                           COMCCPM    54
                                         QUAL$    ENDIF                                                          COMCCPM    55
                                                  ENDX                                                           COMCCPM    56
                                         #OS      ENDIF                                                          FCCA595     6
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    90
        COMPILER INITIALIZATION SUBROUTINES                           IBA       FTNINIT 
  
                                        **        IBA - INITIALIZE BUFFER ALLOCATIONS.                           FTN      1205
                                        *                                                                        FTN      1206
                                        *         IF SOURCE LISTING OPTION OFF (L=0), EXPAND INPUT BUFFER AND    FTN      1207
                                        *         SHRINK OUTPUT BUFFER (CYBER 74 / 6700 OR SMALLER ONLY).        FTN      1208
                                        *                                                                        FTN      1209
                                        *         BUFFER SIZES WERE INITIALLY SET TO 2 PASS SIZES.               FCC0813    18
                                        *         IF TS WAS SELECTED BUFFER SIZES ARE RESET.                     FCC0813    19
                                        *                                                                        FTN      1217
                                        *         BUFFER SPACE IS ACTUALLY ALLOCATED IN THE PRIMARY OVERLAYS.    FTN      1218
                                        *         ONLY THE FETS ARE SET UP HERE.                                 FTN      1219
                                        *                                                                        FTN      1220
                                        *         ENTRY  (B1) = 1                                                FTN      1221
                                        *                                                                        FTN      1222
                                        *         EXIT   (B1) = 1                                                FTN      1223
                                        *                                                                        FTN      1224
                                        *         USES   X - 1, 2, 6, 7                                          FTN      1225
                                        *                A - 1, 2, 6, 7                                          FTN      1226
                                        *                B - 2                                                   FTN      1227
                                        *                                                                        FTN      1228
                                        *         CALLS  SETFIL                                                  FTN      1229
                                                                                                                 FTN      1230
                                                                                                                 FTN      1231
          1501  0400401501 +             IBA      ENTRY. *           ** ENTRY/EXIT **                            FTN      1232
                                                                                                                 FTN      1233
                                         #RM      IFNE   CP#RM,7                                                 FTN      1234
                                                                                                                 FTN      1235
                                        *         IF LIST OPTION OFF, SHRINK -OUT- AND EXPAND -IN- BUFFER.       FTN      1236
                                                                                                                 FTN      1237
          1502  5110000163 +                      SA1    SLIST                                                   FTN      1238
                          0311001512 +            NZ     X1,IBA2     IF SOURCE LISTING OPTION ON                 FTN      1239
          1503  7160002036                        SX6    L.XPINB                                                 FTN      1241
                          6120000470 +            SB2    O.XPINB                                                 FTN      1242
          1504  7170000101                        SX7    L.MINBUF                                                FEAT126C   57
                          20622                   LX6    18                                                      FTN      1247
                               20722              LX7    18                                                      FTN      1248
          1505  5160000104 C                      SA6    F.IN+I.CBSET                                            FTN      1249
                          5170000114 C            SA7    F.OUT+I.CBSET                                           FTN      1250
                                                                                                                 FTN      1251
          1506  7120000077 C                      SETFIL FILE=F.IN,MODE=INIT,FWA=B2                              FTN      1252
          1510  7120000107 C                      SETFIL FILE=F.OUT,MODE=INIT,FWA=OBUF                           FTN      1253
                                                                                                                 FTN      1254
                                        *         IF TS WAS SELECTED RESET CIO BUFFER SIZES                      FCC0813    20
                                                                                                                 FTN      1256
          1512  5110000147 +             IBA2     SA1    CO.TS                                                   FCC0971    29
                          0301001520 +            ZR     X1,IBA3     IF *TS* OPTION NOT SELECTED                 FTN      1258
          1513  7160000201                        SX6    LB.LGO                                                  FCC0813    21
                          20622                   LX6    18                                                      FCC0813    22
          1514  5160000134 C                      SA6    F.LGO+I.CBSET                                           FCC0813    23
                          7160000201              SX6    LB.RMAP                                                 FCC0813    24
          1515  20622                             LX6    18                                                      FCC0813    25
                     5160000064 +                 SA6    F.RMAP+I.CBSET                                          FCC0813    26
          1516  7160000201                        SX6    LB.LF                                                   FCC0813    27
                          20622                   LX6    18                                                      FCC0813    28
          1517  5160000054 +                      SA6    F.LF+I.CBSET                                            FCC0813    29
          1520                           IBA3     BSS    0                                                       FTN      1266
                                                                                                                 FTN      1267
                                         #RM      ENDIF                                                          FTN      1268
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    91
        COMPILER INITIALIZATION SUBROUTINES                           IBA       FTNINIT 
  
                                                                                                                 FTN      1269
                                         #RM      IFGE   CP#RM,6                                                 FTN      1270
                                                                                                                 FTN      1271
                                        *         IF TS SELECTED RESET RM HOLDING BUFFER SIZES.                  FCC0813    30
                                                                                                                 FCC0813    31
                                                  SA1    TSFLAG                                                  FCC0813    32
                                                  ZR     X1,IBA3A    IF TS NOT SELECTED                          FCC0813    33
                                                  SX6    LB.LGO                                                  FCC0813    34
                                                  LX6    18                                                      FCC0813    35
                                                  SA6    F.LGO+I.HBSET                                           FCC0813    36
                                                  SX6    LB.RMAP                                                 FCC0813    37
                                                  LX6    18                                                      FCC0813    38
                                                  SA6    F.RMAP+I.HBSET                                          FCC0813    39
                                                  SX6    LB.LF                                                   FCC0813    40
                                                  LX6    18                                                      FCC0813    41
                                                  SA6    F.LF+I.HBSET                                            FCC0813    42
                                                  EQ     IBA         EXIT                                        FCC0813    43
                                                                                                                 FCC0813    44
                                         IBA3A    BSS    0                                                       FCC0813    45
                                                                                                                 FTN      1285
                                         #RM      ENDIF                                                          FTN      1286
                                                                                                                 FTN      1287
                                         #RM      IFEQ   CP#RM,0                                                 FTN      1288
          1520  5110000054 +                      SA1    F.RLST+I.CBSET                                          FTN      1289
                                         #RM      ELSE                                                           FTN      1290
                                                  SA1    F.RLST+I.HBSET                                          FTN      1291
                                         #RM      ENDIF                                                          FTN      1292
                                                                                                                 FTN      1293
                          21123                   AX1    19                                                      FTN      1294
          1521  7261777776                        SX6    X1-1        MAX.RL = BUFLEN/2 - 1                       FTN      1295
                          5160000125 +            SA6    MAX.RL                                                  FTN      1296
          1522  0400001501 +                      EQ     IBA         EXIT                                        FTN      1297
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    92
        COMPILER INITIALIZATION SUBROUTINES                           MIA       FTNINIT 
  
                                        **        MIA - MISCELLANEOUS INITIALIZATION, PART A.                    FTN      1299
                                        *                                                                        FTN      1300
                                        *         ENTRY  (X0) = ECS/LCM FIELD LENGTH                             FTN      1301
                                        *                (A0) = CM /SCM FIELD LENGTH                             FTN      1302
                                        *                (B1) = 1                                                FTN      1303
                                        *                                                                        FTN      1304
                                        *         EXIT   (B1) = 1                                                FTN      1305
                                        *                                                                        FTN      1306
                                        *         USES   X - 0, 1, 6, 7                                          FTN      1307
                                        *                A - 1, 6, 7                                             FTN      1308
                                        *                B - 2, 3                                                FTN      1309
                                        *                                                                        FTN      1310
                                        *         CALLS  TIMER, DATE, CLOCK                                      FTN      1311
                                                                                                                 FTN      1312
                                                                                                                 FTN      1313
          1523  0400401523 +             MIA      ENTRY. *           ** ENTRY/EXIT **                            FTN      1314
                                                                                                                 FTN      1315
                                        **        SAVE FIELD LENGTHS.                                            FTN      1316
                                        *                                                                        FTN      1317
          1524  74600                             SX6    A0          CM/SCM FIELD LENGTH                         FTN      1318
                     10700                        BX7    X0                                                      FCC2222     5
                          5160000067 C            SA6    CP.AFLS                                                 FTN      1320
          1525  5170000071 C                      SA7    CP.AFLL     SAVE FOR *COMPASS*                          FTN      1321
                          5160000070 C            SA6    CP.NFLS                                                 FTN      1322
          1526  5170000072 C                      SA7    CP.NFLL     SAVE FOR *COMPASS*                          FTN      1323
                          46000                   NO                                                             FTN      1324
                               20636              LX6    30                                                      FTN      1325
          1527  5160000105 +                      SA6    FTIFL       SAVE FOR EXIT RESTORATION                   FTN      1326
                                                                                                                 FTN      1327
                                                                                                                 FTN      1328
                                                                                                                 FTN      1329
                                        **        INSERT DATE AND TIME IN HEADER LINE                            FTN      1330
                                        *                                                                        FTN      1331
                          7160241115              DATE   TL.DATE                                                 FTN      1332
          1533  7160241115                        CLOCK  TL.TIME                                                 FTN      1333
                                                                                                                 FTN      1334
                                                                                                                 FTN      1335
                                                                                                                 FTN      1336
                                        **        SAVE CPU START TIME.                                           FTN      1337
                                        *                                                                        FTN      1338
                                         .CT      IFNE   CTIMO,0                                                 FTN      1339
          1536  0100000351 +                      CALL   TIMER                                                   FTN      1340
          1537  5160000361 +                      SA6    TIME0       SAVE START TIME                             FTN      1341
                          5160000362 +            SA6    TIME1                                                   FTN      1342
                                         .CT      ENDIF                                                          FTN      1343
                                                                                                                 FTN      1344
                                                                                                                 FTN      1345
                                                                                                                 FTN      1346
                                        **        OBTAIN CURRENT SENSE SWITCH VALUES (CYBER 76/ 7600 ONLY.)      FTN      1347
                                        *                                                                        FTN      1348
                                         #OS      IFEQ   .OS,2       IF SCOPE 2                                  FEAT126A   52
                                                  SSW                UPDATE RA.SSW                               FTN      1350
                                         #OS      ENDIF                                                          FTN      1351
                                                                                                                 FTN      1352
                                                                                                                 FTN      1353
                                                                                                                 FTN      1354
                                        **        CHANGE NAME OF FTN OVERLAY LIBRARY IF (0,0) OVERLAY LOADED     FTN      1355
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    93
        COMPILER INITIALIZATION SUBROUTINES                           MIA       FTNINIT 
  
                                        *         FROM A NON-STANDARD LIBRARY OR FILE (3-WORD CALLS ONLY).       FTN      1356
                                        *                                                                        FTN      1357
                                         .LDR     IFEQ   LDRCALL,3                                               FTN      1358
          1540  5110000065                        SA1    RA.LWP      (X1) = LOADER REPLY WORD                    FTN      1359
                          5120000064              SA2    RA.PGN      (X2) = ACTUAL LIBRARY NAME                  FTN      1360
          1541  20151                             LX1    59-18       LIBRARY FLAG TO B59                         FTN      1361
                     43652                        MX6    42                                                      FTN      1362
                          0331001544 +            MI     X1,MIA1     IF FTN LOADED FROM LIBRARY FILE             FTN      1363
          1542  7170002040                        SX7    2040B       CLEAR LIBRARY BIT                           FTN      1364
                          20744                   LX7    36                                                      FTN      1365
          1543  5170000174 +                      SA7    OVLB                                                    FTN      1366
          1544  5130001565 +             MIA1     SA3    MIAA        (X3) = STANDARD SYSTEM LIBRARY NAME         FTN      1367
                          11662                   BX6    X6*X2                                                   FTN      1368
                               37263              IX2    X6-X3                                                   FTN      1369
          1545  0302001546 +                      ZR     X2,MIA1A    IF USER DID NOT CHANGE NAME                 FTN      1370
                          5160000173 +            SA6    OVLA        SAVE FOR ASSEMBLING OVERLAY LOAD CALLS      FTN      1371
          1546                           MIA1A    BSS    0                                                       FTN      1372
                                                                                                                 FTN      1373
                                         .LDR     ELSE                                                           FTN      1374
                                                                                                                 FTN      1375
                                                                                                                 FTN      1376
                                        **        LOAD FROM A FILE (TEST MODE, 2-WORD CALLS ONLY).               FTN      1377
                                        *                                                                        FTN      1378
                                         .T       IFNE   TEST,0                                                  FTN      1379
                                                  SA2    RA.PGN      (X2) = NAME OF FILE CONTAINING *FTN*        FTN      1380
                                                  MX7    42                                                      FTN      1381
                                                  BX6    X7*X2       REMOVE LOADER PARAMS                        FTN      1382
                                                  SA6    OVLA        SAVE FOR ASSEMBLING OVERLAY LOAD CALLS      FTN      1383
                                         .T       ENDIF                                                          FTN      1384
                                         .LDR     ENDIF                                                          FTN      1385
                                                                                                                 FTN      1386
                                                                                                                 F66FCC    127
                                         #FID     IFEQ   .FID,ON                                                 F66FCC    128
                                         #MD      IFGE   .MODES,1                                                FCC2391    12
                                        **        OBTAIN GLOBAL INTERACTIVE DEBUG VALUE                          F66FCC    129
                                                                                                                 F66FCC    130
          1546  7160032015                        GETLC  CO.ID                                                   F66FCCA     6
          1552  5110000140 +                      SA1    CO.ID                                                   F66FCC    132
                          20130                   LX1    59-DC.FIDP                                              F66FCCA     7
                               43201              MX2    1                                                       F66FCC    134
          1553  21174                             AX1    60                                                      F66FCC    135
                     11612                        BX6    X1*X2                                                   F66FCC    136
                          54610                   SA6    A1                                                      F66FCC    137
                                         #MD      ENDIF                                                          FCC2391    13
                                         #FID     ENDIF                                                          F66FCC    138
                                                                                                                 F66FCC    139
                                                                                                                 FTN      1399
                                                                                                                 FTN      1400
                                        **        OBTAIN  JOB ORIGIN TYPE FROM BITS 24-35 OF RA+66.  IF VALUE IS FTN      1401
                                        *         0, 1, OR 2, JOT IS TYPE BATCH.  IF GREATER, JOT IS TYPE        FTN      1402
                                        *         TERMINAL.                                                      FTN      1403
                                        *                                                                        FTN      1404
          1554  5110000066                        SA1    66B                                                     FTN      1405
                          43060                   MX0    -12                                                     FTN      1406
                               21130              AX1    24          RIGHT JUSTIFY JOT                           FTN      1407
          1555  15110                             BX1    -X0*X1      ISOLATE THAT FIELD                          FTN      1408
                     43700                        MX7    0                                                       FTN      1409
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    94
        COMPILER INITIALIZATION SUBROUTINES                           MIA       FTNINIT 
  
                          7211777774              SX1    X1-3                                                    FTN      1410
          1556  0331001557 +                      MI     X1,MIA2A    IF JOT LESS THAN 3 (BATCH)                  FTN      1411
                          7170000001              SX7    1           JOT FOR TERMINAL JOB                        FTN      1412
          1557  5170000114 +             MIA2A    SA7    JOT         STORE JOB ORIGIN TYPE                       FTN      1413
                                                                                                                 FTN      1414
                                                                                                                 FTN      1415
                                                                                                                 FTN      1416
                                        **        CLEAR JOB COMMUNICATIONS AREA ABOVE FILE VECTOR TABLE.         FTN      1417
                                        *                                                                        FTN      1418
                          6130000064              SB3    RA.PGN      (B3) = END OF SEGMENT TO BE CLEARED         FCC0751     5
          1560  7160000000                        SX6    0                                                       FTN      1420
                          6120000010              SB2    FVLEN                                                   FCC2125    45
          1561  5162000002                        SA6    RA.ARG+B2                                               FCC2125    46
          1562  54661                    MIA3     SA6    A6+B1       CLEAR WORD                                  FTN      1421
                     64260                        SB2    A6                                                      FTN      1422
                          0723001562 +            LT     B2,B3,MIA3  IF SEGMENT NOT ALL CLEARED                  FTN      1423
          1563  5160000100                        SA6    RA.ORG      CLEAR ISOLATED LOCATION                     FTN      1424
                                                                                                                 FTN      1425
                                                                                                                 FTN      1426
                                                                                                                 FTN      1427
                                        **        INITIALIZE SOURCE LINE INPUT AREA.                             FTN      1428
                                        *                                                                        FTN      1429
                          5160000027 C            SA6    CP.CARD     MARK SOURCE INPUT AREA EMPTY                FTN      1430
          1564  0400001523 +                      EQ     MIA         EXIT                                        FTN      1431
                                                                                                                 FTN      1432
                                                                                                                 FTN      1433
                                                                                                                 FTN      1434
          1565  16250314052523000000     MIAA     DATA   0L"FTNMAIN"                                             FTN      1435
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    95
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                                        **        MIB - MISCELLANEOUS INITIALIZATION, PART B.                    FTN      1437
                                        *                                                                        FTN      1438
                                        *         ENTRY  (B1) = 1                                                FTN      1439
                                        *                                                                        FTN      1440
                                        *         EXIT   (B1) = 1                                                FTN      1441
                                        *                                                                        FTN      1442
                                        *         USES   X - 1, 2, 5, 6, 7                                       FTN      1443
                                        *                A - 1, 2, 6, 7                                          FTN      1444
                                        *                B - 2, 3                                                FTN      1445
                                        *                                                                        FTN      1446
                                        *         CALLS  MESSAGE, STORE                                          FTN      1447
                                                                                                                 FTN      1448
                                                                                                                 FTN      1449
          1566  0400401566 +             MIB      ENTRY. *           ** ENTRY/EXIT **                            FTN      1450
                                        **        MOVE FILE VECTOR TABLE TO JOB COMMUNICATION AREA, BEGINNING    FCC2125    47
                                        *         AT -RA.ARG-.                                                   FCC2125    48
                                        *                                                                        FCC2125    49
          1567  6120000000                        SB2    0                                                       FCC2125    50
                          6130000010              SB3    FVLEN                                                   FCC2125    51
          1570  5112002076 +             MIB0     SA1    FVTBL+B2                                                FCC2125    52
                          66221                   SB2    B2+B1                                                   FCC2125    53
                               10611              BX6    X1                                                      FCC2125    54
          1571  5162000001                        SA6    RA.ARG-1+B2                                             FCC2125    55
                          0723001570 +            LT     B2,B3,MIB0                                              FCC2125    56
                                                                                                                 FCC2125    57
                                                                                                                 FTN      1451
                                        **        IF L=0 TURN OFF ALL LIST OPTIONS.                              FTN      1452
                                        *                                                                        FTN      1453
          1572  5110000004 C                      SA1    CP.LSTF                                                 FTN      1454
                          0311001600 +            NZ     X1,MIB1     IF L NOT 0                                  FTN      1455
          1573  10611                             BX6    X1                                                      FTN      1456
                     5160000104 +                 SA6    /MASTER/R=FLAG                                          FEAT121L   65
          1574  5160000103 +                      SA6    /MASTER/RSELECT                                         FEAT121L   66
                          5160000101 +            SA6    /MASTER/LOP=M                                           FEAT126B   14
          1575  5160000102 +                      SA6    /MASTER/OLIST                                           FEAT121L   67
                          5160000163 +            SA6    SLIST                                                   FTN      1461
          1576  5160000100 +                      SA6    /MASTER/IEFLG                                           FEAT121L   68
                          5160000155 +            SA6    LOP=N                                                   FTN      1463
          1577  5160000077 +                      SA6    /MASTER/ANSI                                            FEAT121L   69
                          5160000007 C            SA6    CP.BLF                                                  FTN      1465
          1600  5110000007 C             MIB1     SA1    CP.BLF                                                  FTN      1466
                          22611                   LX6    B1,X1                                                   FTN      1467
                               54610              SA6    A1          SET STANDARD *COMPCOM* FORMAT               FTN      1468
                                                                                                                 FTN      1469
                                        **        CHECK FOR CONFLICTS WITH TS OPTION.                            FTN      1470
                                        *                                                                        FTN      1471
          1601  13666                             BX6    X6-X6                                                   FCC0971    30
                     5110001037 +                 SA1    TSFLAG                                                  FCC0971    31
          1602  5120000147 +                      SA2    CO.TS                                                   FCC0971    32
                          5130000141 +            SA3    CO.MODE                                                 FCC0971    33
          1603  5140001036 +                      SA4    PWFLAG                                                  FCC0971    34
                                                  IFEQ   .FID,ON,1                                               F66FCC    140
                          5150000140 +            SA5    CO.ID                                                   F66FCC    141
          1604  0311001606 +                      NZ     X1,MB10     IF TS=0 NOT ON CONTROL CARD                 FCC0971    35
                                                                                                                 FCC0971    36
                                         #MD      IFEQ   .MODES,2                                                FCC0971    37
                                                  EQ     E.TSMD      TS=0 NOT ALLOWED IN THIS CONFIGURATION      FCC0971    38
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    96
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                                         #MD      ENDIF                                                          FCC0971    39
                                                                                                                 FCC0971    40
                          54620                   SA6    A2          TURN OFF TS                                 FCC0971    41
                               36034              IX0    X3+X4                                                   FCC0971    42
          1605  0310001201 +                      NZ     X0,E.SEQPW  TS=0 AND PW OR SEQ CONFLICT                 FCC0971    43
                          0400001624 +            EQ     MB13                                                    FCC0971    44
                                                                                                                 FCC0971    45
          1606  0331001612 +             MB10     MI     X1,MB12     IF TS ON CONTROL CARD                       FCC0971    46
                          54610                   SA6    A1          CLEAR TS CONTROL CARD FLAG                  FCC0971    47
          1607  0332001621 +                      MI     X2,MB12B    IF TS DEFAULTED ON                          FCC0971    48
                                                  IFEQ   .FID,ON,1                                               F66FCC    142
                          0315001061 +            NZ     X5,E.DC     DB WITHOUT TS IMPLIES TS                    F66FCC    143
          1610  0314001165 +             MB10A    NZ     X4,E.PW     PW WITHOUT TS IMPLIES TS                    F66FCC    144
          1611  0313001216 +             MB11     NZ     X3,E.TSEQ   SEQ WITHOUT TS IMPLIES TS                   FCC0971    50
                          0400001624 +            EQ     MB13                                                    FCC0971    51
                                                                                                                 FCC0971    52
          1612  5110001037 +             MB12     SA1    TSFLAG      MAY COME HERE FROM E.TSMD                   FCC2436     8
                          10711                   BX7    X1                                                      FCC2436     9
          1613  5170000147 +                      SA7    CO.TS       TURN ON TS                                  FCC2436    10
                          5130000150 +            SA3    DFLAG                                                   FCC0971    55
          1614  5140000133 +                      SA4    CAFLAG                                                  FCC0971    56
                          36034                   IX0    X3+X4                                                   FCC0971    57
          1615  5130000157 +                      SA3    PMDFLAG                                                 FCCA532     5
                          36003                   IX0    X0+X3                                                   FCCA532     6
          1616  0310001213 +                      NZ     X0,E.TSDC   TS AND D OR C CONFLICT                      FCC0971    58
          1617  5140001035 +             MB12A    SA4    OPTFLG                                                  FCC0971    59
                          0334001221 +            MI     X4,E.TSOPT  TS AND OPT CONFLICT                         FCC0971    60
          1620  0400001631 +                      EQ     MB15                                                    FCC0971    61
                                                                                                                 FCC0971    62
          1621  5140001035 +             MB12B    SA4    OPTFLG                                                  FCC0971    63
                          5130000150 +            SA3    DFLAG                                                   FCC0971    64
          1622  36034                             IX0    X3+X4                                                   FCC0971    65
                     5150000133 +                 SA5    CAFLAG                                                  FCC0971    66
                               36005              IX0    X0+X5                                                   FCC0971    67
          1623  0300001624 +                      ZR     X0,MB13     IF OPT, D OR C NOT ON CONTROL CARD          FCC0971    68
                          54620                   SA6    A2          TURN OFF TS                                 FCC0971    69
                                                                                                                 FCC0971    70
                                        **        RECONCILE OPT, DEBUG AND TRACE SELECTIONS.                     FTN      1490
                                        *                                                                        FTN      1491
          1624  5120000142 +             MB13     SA2    CO.OLVL                                                 FTN      1492
                          0302001630 +            ZR     X2,MB14     IF OPT=0                                    FTN      1493
          1625  5130000150 +                      SA3    DFLAG                                                   FTN      1494
                          0303001631 +            ZR     X3,MB15     IF DEBUG NOT SELECTED                       FTN      1495
          1626  13666                             BX6    X6-X6                                                   FTN      1496
                     54620                        SA6    A2          FORCE OPT=0                                 FTN      1497
                          5140001035 +            SA4    OPTFLG                                                  FTN      1498
          1627  0314001064 +                      NZ     X4,E.DOPT   DEBUG SELECTED WITH OPT .NZ.                FTN      1499
          1630  43601                    MB14     MX6    1                                                       FTN      1500
                     5160000134 +                 SA6    CBNFLG      FORCE TRACE ON                              FTN      1501
                                                                                                                 FTN      1502
                                        **        CHECK FOR UO WITHOUT OPT=2                                     FEAT126C   58
                                        *                                                                        FEAT126C   59
          1631  5120000142 +             MB15     SA2    CO.OLVL                                                 FEAT126C   60
                          5130000166 +            SA3    UOFLAG                                                  FEAT126C   61
          1632  7242777775                        SX4    X2-2                                                    FEAT126C   62
                          0304001634 +            ZR     X4,MB15A    IF OPT=2                                    FEAT126C   63
          1633  0303001634 +                      ZR     X3,MB15A    IF UO=0                                     FEAT126C   64
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    97
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                          0400001234 +            EQ     E.UO        UO WITHOUT OPT=2 IGNORED                    FEAT126C   65
                                        **        CHECK FOR E AND B, C, GO, OL, TS, SEQ OR Q SELECTION.          FTN      1503
                                        *                                                                        FTN      1504
          1634  5120000165 +             MB15A    SA2    UFLAG                                                   FEAT126C   66
                          0302001645 +            ZR     X2,MB16     IF E OPTION NOT SELECTED                    FTN      1506
          1635  5130001034 +                      SA3    BFLAG                                                   FTN      1507
                          5140000133 +            SA4    CAFLAG                                                  FTN      1508
          1636  36034                             IX0    X3+X4                                                   FTN      1509
                     5150000153 +                 SA5    GOFLAG                                                  FTN      1510
                               36005              IX0    X0+X5                                                   FTN      1511
          1637  5120000102 +                      SA2    /MASTER/OLIST                                           FEAT121L   83
                          36002                   IX0    X0+X2                                                   FTN      1513
          1640  5130001037 +                      SA3    TSFLAG                                                  FTN      1514
                          36003                   IX0    X0+X3                                                   FTN      1515
          1641  5140000162 +                      SA4    QFLAG                                                   FTN      1516
                          36004                   IX0    X0+X4                                                   FTN      1517
          1642  5150000141 +                      SA5    CO.MODE                                                 FTN      1518
                          36005                   IX0    X0+X5                                                   FTN      1519
          1643  0310001071 +                      NZ     X0,E.EAND   IF E AND B C GO OL TS SEQ OR Q              FTN      1520
                          13666                   BX6    X6-X6                                                   FCC0971    71
          1644  5160000147 +                      SA6    CO.TS       INSURE TS IS OFF                            FCC0971    72
                                                                                                                 FTN      1521
                                        **        CHECK FOR  Q AND B, C, GO, OL, TS, OR SEQ SELECTION.           FTN      1522
                                        *                                                                        FTN      1523
          1645  5120000162 +             MB16     SA2    QFLAG                                                   FTN      1524
                          0302001655 +            ZR     X2,MB17     IF Q NOT SELECTED                           FTN      1525
          1646  5130001037 +                      SA3    TSFLAG                                                  FTN      1526
                          5140000141 +            SA4    CO.MODE                                                 FTN      1527
          1647  36034                             IX0    X3+X4                                                   FTN      1528
                     5150000102 +                 SA5    /MASTER/OLIST                                           FEAT121L   84
                               36005              IX0    X0+X5                                                   FTN      1530
          1650  5120000133 +                      SA2    CAFLAG                                                  FTN      1531
                          36002                   IX0    X0+X2                                                   FTN      1532
          1651  5130000153 +                      SA3    GOFLAG                                                  FTN      1533
                          36003                   IX0    X0+X3                                                   FTN      1534
          1652  5140001034 +                      SA4    BFLAG                                                   FTN      1535
                          36004                   IX0    X0+X4                                                   FTN      1536
          1653  0310001172 +                      NZ     X0,E.QAND   IF Q AND B C GO OL TS OR SEQ                FTN      1537
                          13666                   BX6    X6-X6                                                   FCC0971    73
          1654  5160000147 +                      SA6    CO.TS       INSURE TS IS OFF                            FCC0971    74
                                                                                                                 FTN      1538
                                        **        CHECK FOR B=0 AND GO SELECTION.                                FTN      1539
                                        *                                                                        FTN      1540
          1655  5120000153 +             MB17     SA2    GOFLAG                                                  FTN      1541
                          0302001660 +            ZR     X2,MB18     IF GO NOT SELECTED                          FTN      1542
          1656  5130000004                        SA3    FV.LGO                                                  FTN      1543
                          0313001660 +            NZ     X3,MB18     IF B SELECTED                               FTN      1544
          1657  0400001056 +                      EQ     E.BGO       B=0 AND GO IS INCONSISTENT                  FTN      1545
                                                                                                                 FTN      1546
                                        **        SET UP ER OPTION.                                              FEAT155J   15
                                        *                                                                        FEAT155J   16
          1660  7100000522               MB18     SX0    2RER                                                    FEAT155J   17
                          5110001022 +            SA1    ERFLAG                                                  FEAT155J   18
          1661  37201                             IX2    X0-X1                                                   FEAT155J   19
                                                                                                                 F66FCC    145
                                                  IFEQ   .FID,ON,2                                               F66FCC    146
                     5130000140 +                 SA3    CO.ID       INTERACTIVE DEBUG FLAG                      F66FCC    147
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    98
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                                                                                                                 F66FCC    148
          1662  0302001665 +                      ZR     X2,MB18AB   IF ER ON CONTROL CARD                       F66FCC    149
                                                                                                                 F66FCC    150
                                                  IFEQ   .FID,ON,2                                               F66FCC    151
                          0303001664 +            ZR     X3,MB18AA   IF DB NOT ON                                F66FCC    152
          1663  0301001106 +                      ZR     X1,E.ERDB   IF ER=0 AND DB=ID                           F66FCC    153
                                                                                                                 F66FCC    154
          1664  10611                    MB18AA   BX6    X1                                                      F66FCC    155
                     0400001677 +                 EQ     MB18D       SET ER OPTION                               FEAT155J   22
          1665                           MB18AB   BSS    0                                                       F66FCC    156
                                                                                                                 F66FCC    157
                                         #FID     IFEQ   .FID,ON                                                 F66FCC    158
          1665  0303001667 +                      ZR     X3,MB18A    IF DB OFF                                   F66FCC    159
                          43601                   MX6    1                                                       F66FCC    160
          1666  0400001677 +                      EQ     MB18D       SET ER OPTION                               F66FCC    161
                                         #FID     ENDIF                                                          F66FCC    162
                                                                                                                 F66FCC    163
          1667  5120000147 +             MB18A    SA2    CO.TS                                                   FCC0971    75
                          0302001671 +            ZR     X2,MB18B    IF NOT TS                                   FEAT155J   24
          1670  7160000001                        SX6    "CC.ERT"                                                FEAT155J   25
                          0400001676 +            EQ     MB18C       SET ER OPTION                               FEAT155J   26
          1671  5120000142 +             MB18B    SA2    CO.OLVL                                                 FEAT155J   27
                          6272001673 +            SB7    X2+*+2                                                  FEAT155J   28
          1672  0277000000                        JP     B7                                                      FEAT155J   29
          1673  7160000001              +         SX6    "CC.ER0"    OPT=0                                       FEAT155J   30
                          0400001676 +            EQ     MB18C       SET ER OPTION                               FEAT155J   31
          1674  7160000000              +         SX6    "CC.ER1"    OPT=1                                       FEAT155J   32
                          0400001676 +            EQ     MB18C       SET ER OPTION                               FEAT155J   33
          1675  7160000000              +         SX6    "CC.ER2"    OPT=2                                       FEAT155J   34
          1676  20673                    MB18C    LX6    59                                                      FEAT155J   35
          1677  5160000137 +             MB18D    SA6    CO.ER                                                   FEAT155J   36
                                                                                                                 FTN      1548
                                        **        CYBER 76 / SCOPE 2 CONFLICTS  --  STATIC, M + TS.              F162FTNA  368
                                        *                                                                        FTN      1550
                                         #RM      IFEQ   OT#RM,7                                                 FTN      1551
                                                  SA2    OT.RM                                                   FTN      1552
                                                  ZR     X2,MB19A    IF CRM (M-OPTION) SELECTED                  F162FTNA  369
                                                  SA3    CO.STA                                                  F162FTNA  370
                                                  MX6    0                                                       F162FTNA  371
                                                  SA6    A3          ENSURE *STATIC* OFF                         F162FTNA  372
                                                  NZ     X3,E.STAT   IF *STATIC* SELECTED                        F162FTNA  373
                                                  EQ     MB19B                                                   F162FTNA  374
                                                                                                                 F162FTNA  375
                                         MB19A    SA3    TSFLAG                                                  F162FTNA  376
                                                  NZ     X3,E.MTS    IF TS SELECTED                              F162FTNA  377
                                         MB19B    BSS    0                                                       F162FTNA  378
                                         #RM      ENDIF                                                          FTN      1558
                          7170000000              SX7    0           OUTPUT FILE FLAG                            FCC2170    26
          1700  6150000004                        SB5    4           INITIAL COUNTER LIMIT                       FCC2170    27
                          66310                   SB3    B1          INITIALIZE COUNTER                          FCC2170    28
                               66200              SB2    B0          INITIALIZE COUNTER                          FCC2170    29
          1701  43052                             MX0    42          FILE-NAME                                   FCC2170    30
          1702  5112000002               MB19C    SA1    FV.IN+B2    KEY TO BE MATCHED                           FCC2170    31
                          11501                   BX5    X0*X1       MASK OFF FILE-NAME                          FCC2170    32
          1703  54213                    MB19D    SA2    A1+B3       PICK UP ELEMENT OF ARRAY                    FCC2170    33
                     11402                        BX4    X0*X2       MASK OFF FILE-NAME                          FCC2170    34
                          13354                   BX3    X5-X4                                                   FCC2170    35
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE    99
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
          1704  0313001707 +                      NZ     X3,MB19E    IF FILE-NAME DOES NOT MATCH                 FCC2170    36
                          0317001111 +            NZ     X7,E.FER    IF MORE THAN 2 OUTPUT FILES                 FCC2170    37
          1705  5140002064 +                      SA4    OUTLIT                                                  FCC2170    38
                          13354                   BX3    X5-X4                                                   FCC2170    39
          1706  0313001111 +                      NZ     X3,E.FER    IF NOT OUTPUT FILES                         FCC2170    40
                          7170000002              SX7    2           SET OUTPUT FILES FLAG                       FCC2170    41
          1707  66331                    MB19E    SB3    B3+B1                                                   FCC2170    42
                     0653001703 +                 LE     B3,B5,MB19D IF MORE ELEMENT TO CHECK                    FCC2170    43
                               66221              SB2    B2+B1       RESET COUNTERS                              FCC2170    44
          1710  67551                             SB5    B5-B1                                                   FCC2170    45
                     66310                        SB3    B1                                                      FCC2170    46
                          0705001702 +            GT     B5,MB19C    IF MORE TO CHECK                            FCC2170    47
                                                                                                                 FTN      1560
                                        **        IF UNRESOLVED OPTION CONFLICTS TERMINATE COMPILATION.          FTN      1565
                                        *                                                                        FTN      1566
          1711  5120001024 +             MB19     SA2    CNFLCT                                                  F66FCC    164
                          0312001227 +            NZ     X2,E.UC     IF UNRESOLVED CONFLICTS                     FTN      1568
                                                                                                                 CP139FC    78
          1712  7110002056 +                      GETPAGE GP.PAGE    GET JOB PAGE PARAMETERS                     FCCA593    16
                                                                                                                 FCCA593    17
                                        **        SET PAGE WIDTH IF PW OPTION SELECTED.                          FEAT126A   55
                                        *                                                                        FEAT126A   56
          1714  7160000000                        SX6    "CC.PW"                                                 CP139FC    79
                          5150001036 +            SA5    PWFLAG      CONTROL CARD PW OPTION                      FEAT126A   57
          1715  0305001721 +                      ZR     X5,MIB2     IF PW NOT ON CONTROL CARD                   CP139FC    80
                          66710                   SB7    B1                                                      FEAT126A   59
          1716  0100001454 +                      RJ     DXB         CONVERT WIDTH TO BINARY                     FEAT126A   60
          1717  7216777715                        SX1    X6-50                                                   FEAT126A   61
                          0331001170 +            MI     X1,E.PW1    IF PW .LT. 50                               FEAT126A   62
          1720  7216777566                        SX1    X6-137                                                  FEAT126A   63
                          0321001170 +            PL     X1,E.PW1    IF PW .GT. 136                              FEAT126A   64
          1721  5160000012 C             MIB2     SA6    CP.PW                                                   CP139FC    81
                                                                                                                 FTN      1569
                                                                                                                 FEAT155E   72
                                        **        IF PAGE-SIZE (PS-OPTION) WAS NOT SPECIFICED,                   FCCA422    28
                                        *         SET PS TO IP.PS.                                               FCCA422    29
                                        *                                                                        FEAT155E   75
          1722  5150000011 C             MIB3     SA5    CP.PS                                                   FEAT155EA  15
                          0305001732 +            ZR     X5,MIB3B    IF *PS* NOT ON CC                           FCCA593    18
          1723  43006                             MX0    CHAR                                                    FCCA593    19
                     11005                        BX0    X0*X5                                                   FCCA593    20
                          10655                   BX6    X5                                                      FCCA593    21
          1724  0300001727 +                      ZR     X0,MIB3A    IF BINARY ALREADY                           FCCA593    22
                          66710                   SB7    B1          DECIMAL                                     FCCA593    23
          1725  0100001454 +                      RJ     DXB                                                     FCCA593    24
          1726  0314001161 +                      NZ     X4,E.PS1    IF BAD CONVERSION                           FCCA593    25
          1727  14766                    MIB3A    BX7    -X6         FOR COMPASS                                 FCCA593    26
                     54750                        SA7    A5                                                      FCCA593    27
                          7266777773              SX6    X6-4                                                    FCCA593    28
          1730  0336001163 +                      NG     X6,E.PS2    IF .LT. 4 (MIN PAGE SIZE)                   FCCA593    29
                          7266000001              SX6    X6+1                                                    FCCA593    30
          1731  5160000116 +                      SA6    LCP.PS      COMPENSATE FOR HEADER                       FCCA593    31
                          0400001734 +            EQ     MIB3C                                                   FCCA593    32
                                                                                                                 FCCA593    33
                                        *         USE SYSTEM PAGE SIZE                                           FCCA593    34
                                                                                                                 FCCA593    35
          1732  5110002056 +             MIB3B    SA1    GP.PAGE                                                 FCCA593    36
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   100
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                          43064                   MX0    -8                                                      FCCA593    37
                               21124              AX1    12+8        POSITION FOR *PS*                           FCCA593    38
          1733  15610                             BX6    -X0*X1                                                  FCCA593    39
                     0400001727 +                 EQ     MIB3A       USE JOB DEFAULT VALUE                       FCCA593    40
                                                                                                                 FCCA593    41
          1734  5140000010 C             MIB3C    SA4    CP.PD                                                   FCCA593    42
                          5110002056 +            SA1    GP.PAGE                                                 FCCA593    43
          1735  43071                             MX0    -3                                                      FCCA593    44
                     21135                        AX1    12+8+8+1    *PD*/2                                      FCCA593    45
                          15610                   BX6    -X0*X1                                                  FCCA593    46
                               20606              LX6    6                                                       FCCA593    47
          1736  7266002055                        SX6    X6+2055B    BASE FOR S AND L DENSITY CONTROL            FCCA593    48
                          20660                   LX6    8*CHAR                                                  FCCA593    49
          1737  5160000117 +                      SA6    RS.PD       SAVE RESTORE *PD*                           FCCA593    50
                          0314001741 +            NZ     X4,MIB3D    IF *PD* SET                                 FCCA593    51
          1740  5160000010 C                      SA6    CP.PD       FORCE *PD* INITIALLY                        FCCA593    52
                                                                                                                 FEAT155E   88
                                        **        IF DEBUG OPTION IS ON AND THE DEBUG INPUT FILE NAME DIFFERS    FTN      1570
                                        *         FROM THE MAIN INPUT FILE NAME, SUBSTITUTE THE DEBUG NAME IN    FTN      1571
                                        *         THE MAIN INPUT FET/FIT.  DO NOT CHANGE THE FILE VECTOR TABLE,  FTN      1572
                                        *         SO THAT THE DEBUG PROCESSOR CAN LATER RESTORE THE MAIN INPUT   FTN      1573
                                        *         NAME TO THE MAIN INPUT FET/FIT.                                FTN      1574
                                        *                                                                        FTN      1575
          1741  5110000150 +             MIB3D    SA1    DFLAG                                                   FCC1361X   21
                          5120000002              SA2    FV.IN                                                   FTN      1577
          1742  0301001747 +                      ZR     X1,MIB4A    IF DEBUG OPTION OFF                         FTN      1578
                          43552                   MX5    7*6                                                     FTN      1579
                               11651              BX6    X5*X1       (X6) = DEBUG INPUT FILE NAME                FTN      1580
          1743  43701                             MX7    1                                                       FTN      1581
                     11552                        BX5    X5*X2       (X5) =  MAIN INPUT FILE NAME                FTN      1582
                          5170000003 C            SA7    CP.ERCT     TURN *COMPASS* DEBUG OPTION ON              FTN      1583
          1744  37165                             IX1    X6-X5                                                   FTN      1584
                     0311001746 +                 NZ     X1,MIB4     IF DIFFERENT INPUT FILES                    FTN      1585
                               76610              SX6    B1                                                      FTN      1586
          1745  5160000150 +                      SA6    DFLAG       FLAG TO SIGNAL (DEBUG=MAIN) INPUT FILE      FTN      1587
                          0400001747 +            EQ     MIB4A                                                   FTN      1588
                                                                                                                 FTN      1589
          1746  0100001343 +             MIB4     CALL   CFF         CHANGE NAME IN FET/FIT                      FTN      1590
                                                                                                                 FTN      1591
                                                                                                                 FTN      1592
                                        **        IF COMPASS ASSEMBLY (C-OPTION) SELECTED,                       FTN      1593
                                        *         PUT "FTNMAC" IN LIST OF TEXTS.                                 FTN      1594
          1747  5110000133 +             MIB4A    SA1    CAFLAG                                                  FTN      1595
                          0301001755 +            ZR     X1,MIB5     IF ASSEMBLY BY FAX                          FTN      1596
          1750  5120000047 C                      SA2    CP.STEXT                                                FTN      1597
                          7202777770              SX0    X2-7                                                    FTN      1598
          1751  0320001210 +                      PL     X0,E.S7     ONLY SEVEN TEXTS ALLOWED                    FTN      1599
                          5130001033 +            SA3    FTEXT       NAME OF OBJECT TIME TEXT                    FTN      1600
          1752  0312001753 +                      NZ     X2,MIB4B    IF G OR S TEXTS WERE SPECIFIED              FTN      1601
                          5120000057 C            SA2    CP.LIB      S=0 FLAG                                    FTN      1602
          1753  73721                    MIB4B    SX7    X2+B1                                                   FTN      1603
                     10633                        BX6    X3                                                      FTN      1604
                          5170000047 C            SA7    CP.STEXT    INCREMENT NUMBER OF TEXTS                   FTN      1605
          1754  5267000047 C                      SA6    X7+CP.STEXT                                             FTN      1606
                                                                                                                 FTN      1607
                                                                                                                 FTN      1608
                                        **        IF AUTOMATIC EXECUTION (G-OPTION) SELECTED, MOVE THE BINARY    FTN      1609
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   101
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                                        *         OUTPUT FILE NAME TO THE G-OPTION FLAG CELL.                    FTN      1610
                                        *                                                                        FTN      1611
          1755  5110000153 +             MIB5     SA1    GOFLAG                                                  FTN      1612
                          0301001760 +            ZR     X1,MIB5D    IF GO=0                                     FTN      1613
          1756  5120000004                        SA2    FV.LGO                                                  FTN      1614
                          43152                   MX1    7*CHAR                                                  FTN      1615
                               11612              BX6    X1*X2                                                   FTN      1616
          1757  54610                             SA6    A1                                                      FTN      1617
          1760                           MIB5D    BSS    0                                                       FTN      1618
                                                                                                                 FTN      1619
                                                                                                                 FTN      1620
                                                                                                                 FTN      1621
                                        **        IF QUICK COMPILATION (Q-OPTION) SELECTED, CLEAR BINARY         FTN      1622
                                        *         OUTPUT FILE NAME.                                              FTN      1623
                                        *                                                                        FTN      1624
          1760  5110000162 +                      SA1    QFLAG                                                   FTN      1625
                          5120000004              SA2    FV.LGO                                                  FTN      1626
          1761  0301001763 +                      ZR     X1,MIB5A    IF Q-OPTION OFF                             FTN      1627
                          13666                   BX6    X6-X6                                                   FTN      1628
          1762  0100001437 +                      CALL   CFN         CLEAR BINARY OUTPUT FILE NAME               FTN      1629
                                                                                                                 FTN      1630
                                        **        IF PL OPTION SELECTED CHANGE VALUE OF PLIMIT.                  FTN      1631
                                        *                                                                        FTN      1632
          1763  5150001023 +             MIB5A    SA5    PLARG                                                   FTN      1633
                          0305001766 +            ZR     X5,MIB5C    IF PL NOT SELECTED                          FTN      1634
          1764  6170000001                        SB7    1                                                       FEAT121A   27
                          0100001454 +            RJ     DXB         CONVERT COUNT TO BINARY                     FTN      1635
          1765  0314001153 +                      NZ     X4,E.PL     IF ERROR IN NUMBER                          FTN      1636
                          5160000161 +            SA6    PLIMIT                                                  FTN      1637
          1766                           MIB5C    BSS    0                                                       FTN      1638
                                                                                                                 FTN      1639
                                                                                                                 FTN      1640
                                                                                                                 FTN      1641
                                        **        IF -SPY- (W-OPTION) IS SELECTED, POST AUTOMATIC CALL TO THE    FTN      1642
                                        *         -SPY- REPORT GENERATOR.                                        FTN      1643
                                        *         (APPLIES ONLY TO CYBER 74 / 6700 AND SMALLER MODELS.)          FTN      1644
                                        *         RESTRICTION-- THE AUTO CALL USES THE G-OPTION MECHANISM, AND   FTN      1645
                                        *         THUS CAUSES A *G* ON THE CONTROL CARD TO BE IGNORED.           FTN      1646
                                        *                                                                        FTN      1647
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   66
                                         .T       IFNE   TEST,0                                                  FTN      1649
                                                                                                                 FTN      1650
                                                  SA5    SPYW        SPY OPTION PARAMETER                        FTN      1651
                                                  SB7    B0                                                      FTN      1652
                                                  ZR     X5,MIB5B    IF SPY OPTION OFF                           FTN      1653
                                                  RJ     DXB         CONVERT OCTAL TO BINARY                     FTN      1654
                                                  NZ     X4,E.SP     IF ERROR IN SPY WIDTH                       FTN      1655
                                                  CX3    X6                                                      FTN      1656
                                                  SB7    X3                                                      FTN      1657
                                                  NE     B7,B1,E.SW  IF NOT A POWER OF 2                         FTN      1658
                                                  SX7    300600B     LIMIT *SPY* TO 3000B - 60000B               FTN      1659
                                                  LX6    36                                                      FTN      1660
                                                  BX7    X6+X7                                                   FTN      1661
                                                  SA2    PRNSPY      NAME OF REPORT GENERATOR                    FTN      1662
                                                  LX7    12                                                      FTN      1663
                                                  SA7    SPYW        STORE PARAMETER WORD                        FTN      1664
                                                  BX6    X2                                                      FTN      1665
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   102
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                                                  SA6    GOFLAG      POST CALL (SIMULATED G-OPTION)              FTN      1666
                                         MIB5B    BSS    0                                                       FTN      1667
                                                                                                                 FTN      1668
                                         .T       ENDIF                                                          FTN      1669
                                         #OS      ENDIF                                                          FTN      1670
                                                                                                                 FTN      1671
                                                                                                                 FTN      1672
                                                                                                                 FTN      1673
                                        **        TURN -OUTPUT MACRO DEFS- FLAG ON IF ANY OF THE FOLLOWING       FTN      1674
                                        *         OPTIONS ARE SELECTED --                                        FTN      1675
                                        *                C = COMPASS ASSEMBLY OPTION                             FTN      1676
                                        *                E = EDIT/UPDATE OUTPUT OPTION                           FTN      1677
                                        *                O = OBJECT CODE LIST OPTION                             FTN      1678
                                        *                                                                        FTN      1679
          1766  5110000133 +                      SA1    CAFLAG      C-OPTION FLAG                               FTN      1680
                          5120000165 +            SA2    UFLAG       E-OPTION FLAG                               FTN      1681
          1767  12712                             BX7    X1+X2                                                   FTN      1682
                     5110000102 +                 SA1    /MASTER/OLIST     OL-OPTION FLAG                        FEAT121L   85
                               12671              BX6    X7+X1                                                   FTN      1684
          1770  5160000123 +                      SA6    MACFLAG     TURN -OUTPUT MACRO DEFS- FLAG ON            FTN      1685
                                                                                                                 FTN      1686
                                                                                                                 FTN      1687
                                                                                                                 FTN      1688
                                        **        IF C- OR E-OPTION IS SELECTED, INHIBIT UNLOADING THE           FTN      1689
                                        *         -CMPS- FILE AT END OF COMPILATION.                             FTN      1690
                                        *                                                                        FTN      1691
                          0307001772 +            ZR     X7,MIB6     IF C- AND E-OPTIONS BOTH OFF                FTN      1692
                                                                                                                 FTN      1693
                                         #RM      IFEQ   CP#RM,0                                                 FTN      1694
          1771  77601                             SX6    -B1                                                     FTN      1695
                     5160000325 +                 SA6    SCRTBL+3    REMOVE -CMPS- FROM SCRATCH FILE TABLE       FTN      1696
                                         #RM      ELSE                                                           FTN      1697
                                                  STORE  FI.CMPS,CF=R      SET CLOSE FLAG = REWIND               FTN      1698
                                         #RM      ENDIF                                                          FTN      1699
                                                                                                                 FTN      1700
                                                                                                                 FTN      1701
                                                                                                                 FTN      1702
                                        **        CONVERT CONTROL CARD OPTIONS TO DPC AND MOVE TO TITLE LINE.    FTN      1703
                                        *                                                                        FTN      1704
          1772  43066                    MIB6     MX0    -6          (X0) = ONE-CHARACTER EXTRACTION MASK        FTN      1705
                     5160002076 +                 SA6    CCBUF       (A6) = STRING BUFFER STORE POINTER          FTN      1706
                                                                                                                 FTN      1707
                                        *         OPTIMIZATION LEVEL OPTION.                                     FTN      1708
                                                                                                                 FTN      1709
          1773  5120000147 +                      SA2    CO.TS                                                   FCCA406    10
                          0332002006 +            MI     X2,MIB6D    IF IN TS MODE                               FCCA406    11
          1774  5120000150 +                      SA2    DFLAG                                                   FCCA406    12
                          0302001777 +            ZR     X2,MIB6A    IF DEBUG OPTION OFF                         FCCA406    13
          1775  5120000146 +                      SA2    CO.STA                                                  FCCA406    14
                          0302002001 +            ZR     X2,MIB6B    IF STATIC OPTION OFF                        FCCA406    15
          1776  0400002013 +                      EQ     MIB7A                                                   FCCA406    16
                                                                                                                 FCCA406    17
          1777  5120000166 +             MIB6A    SA2    UOFLAG                                                  FCCA406    18
                          0302002001 +            ZR     X2,MIB6B    IF UO NOT SELECTED                          FCCA406    19
          2000  0400002005 +                      EQ     MIB6C                                                   FCCA406    20
                                                                                                                 FCCA406    21
          2001  5110002061 +             MIB6B    SA1    OLIT        *OPT=*                                      FCCA406    22
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   103
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                          0100002072 +            RJ     MIBA        BURST *OPT=* TO STRING BUFFER               FCCA406    23
          2002  5120000142 +                      SA2    CO.OLVL     (X2) = OPTIMIZATION LEVEL                   FCCA406    24
                          7110000033              SX1    1R0                                                     FCCA406    25
          2003  36112                             IX1    X1+X2                                                   FCCA406    26
                     20166                        LX1    9*CHAR                                                  FCCA406    27
                          5120000166 +            SA2    UOFLAG                                                  FCCA406    28
          2004  0302002012 +                      ZR     X2,MIB6E    IF UO NOT SELECTED                          FCCA406    29
                          0100002072 +            RJ     MIBA        STORE OPT LEVEL TO STRING BUFFER            FCCA406    30
          2005  5110002067 +             MIB6C    SA1    UOLIT       * UO*                                       FCCA406    31
                          0400002012 +            EQ     MIB6E                                                   FCCA406    32
                                                                                                                 FCCA406    33
          2006  5110002066 +             MIB6D    SA1    TSLIT       *TS*                                        FCCA406    34
                                        *         DISABLE PMDMP IF TS MODE SPECIFIED                             FEAT1070C  85
                          7170000000              SX7    0                                                       FEAT1070C  86
          2007  5170000157 +                      SA7    PMDFLAG                                                 FEAT1070C  87
                                         #FID     IFEQ   .FID,ON                                                 FCCA406    35
                          5120000140 +            SA2    CO.ID                                                   FCCA406    36
          2010  0302002012 +                      ZR     X2,MIB6E    IF ID OPTION OFF                            FCCA406    37
                          0100002072 +            RJ     MIBA        BURST *TS* TO STRING BUFFER                 FCCA406    38
          2011  5110002071 +                      SA1    IDLIT       * ID*                                       FCCA406    39
                                         #FID     ENDIF                                                          FCCA406    40
          2012  0100002072 +             MIB6E    RJ     MIBA                                                    FCCA406    41
                                                                                                                 FTN      1723
                                        *         ROUND OPTIONS.                                                 FTN      1724
                                                                                                                 FTN      1725
          2013  5120000144 +             MIB7A    SA2    ROPFLAG     (X2) = ROUND OPTION FLAGS                   FCCA406    42
                          5110002062 +            SA1    RLIT        * ROUND=*                                   FTN      1727
          2014  0302002022 +                      ZR     X2,MIB9     IF ROUND OPTION OFF                         FTN      1728
                          0100002072 +            RJ     MIBA                                                    FTN      1729
          2015  20245                             LX2    59-22       + OPTION FLAG TO BIT 59                     FTN      1730
                     6120000045                   SB2    1R+                                                     FTN      1731
          2016  6130000050                        SB3    1R/                                                     FTN      1732
          2017  0322002021 +             MIB7     PL     X2,MIB8     IF OPTION OFF                               FTN      1733
                          76120                   SX1    B2                                                      FTN      1734
                               20166              LX1    9*CHAR                                                  FCCA406    43
          2020  0100002072 +                      RJ     MIBA        OPTION CHARACTER TO STRING BUFFER           FTN      1736
          2021  66221                    MIB8     SB2    B2+B1                                                   FTN      1737
                     20201                        LX2    1           NEXT OPTION FLAG TO BIT 59                  FTN      1738
                          0632002017 +            LE     B2,B3,MIB7  IF ALL ROUND OPTIONS NOT PROCESSED          FTN      1739
                                                                                                                 FTN      1740
                                        *         TRACE OPTION.                                                  FTN      1741
                                                                                                                 FTN      1742
          2022  5120000134 +             MIB9     SA2    CBNFLG                                                  FTN      1743
                          5110002063 +            SA1    TLIT                                                    FTN      1744
          2023  0302002024 +                      ZR     X2,MIB10    IF TRACE OPTION OFF                         FTN      1745
                          0100002072 +            RJ     MIBA        *TRACE* TO STRING BUFFER                    FTN      1746
                                                                                                                 FTN      1747
                                        *         DEBUG OPTION.                                                  FTN      1748
                                                                                                                 FTN      1749
          2024  5120000150 +             MIB10    SA2    DFLAG                                                   FTN      1750
                          5110002060 +            SA1    DLIT                                                    FTN      1751
          2025  0302002026 +                      ZR     X2,MIB10A   IF DEBUG OPTION OFF                         FCCA406    44
                          0100002072 +            RJ     MIBA        *DEBUG* TO STRING BUFFER                    FTN      1753
                                                                                                                 FTN      1754
                                        *         STATIC OPTION                                                  FCCA406    45
                                                                                                                 FCCA406    46
          2026  5120000146 +             MIB10A   SA2    CO.STA                                                  FCCA406    47
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   104
        COMPILER INITIALIZATION SUBROUTINES                           MIB       FTNINIT 
  
                          5110002070 +            SA1    SLIT        * STATIC*                                   FCCA406    48
          2027  0302002030 +                      ZR     X2,MIB10B   IF STATIC OPTION OFF                        FEAT1070C  88
                          0100002072 +            RJ     MIBA        BURST * STATIC* TO STRING BUFFER            FCCA406    50
                                                                                                                 FCCA406    51
                                        *         PMDMP OPTION                                                   FEAT1070C  89
          2030  5120000157 +            MIB10B    SA2    PMDFLAG                                                 FEAT1070C  91
                          5110002065 +            SA1    PMDLIT                                                  FEAT1070C  92
          2031  0302002032 +                      ZR     X2,MIB11    IF PMDMP DISABLED                           FEAT1070C  93
                          0100002072 +            RJ     MIBA        *PMDMP* TO STRING BUFFER                    FEAT1070C  94
  
                                        *         PACK UP STRING BUFFER AND STORE IN TITLE LINE.                 FTN      1755
                                                                                                                 FTN      1756
          2032  64260                    MIB11    SB2    A6          (B2) = ADDR OF LAST CHARACTER BURST         FTN      1757
                     6130002076 +                 SB3    CCBUF                                                   FTN      1758
          2033  6140000212 +                      SB4    TL.CCOP                                                 FTN      1759
                          6150000215 +            SB5    TL.CCOP+3                                               FTN      1760
          2034  43201                             MX2    1           (X2) = WORD PACKING LOOP COUNTER            FTN      1761
                     13666                        BX6    X6-X6       CLEAR PACKING REGISTER                      FTN      1762
          2035  66331                    MIB12    SB3    B3+B1                                                   FTN      1763
                     20206                        LX2    6           INCREMENT WORD PACK COUNTER                 FTN      1764
                          56130                   SA1    B3          (X1) = NEXT STRING BUFFER CHARACTER         FTN      1765
                               20606              LX6    6           SHIFT PACKING REGISTER TO NEXT CHARACTER    FTN      1766
          2036  0623002037 +                      LE     B3,B2,MIB13 IF CHARACTER AVAILABLE TO PACK              FTN      1767
                          7110000055              SX1    1R          BLANK FILL                                  FTN      1768
          2037  12661                    MIB13    BX6    X6+X1       PACK CHARACTER                              FTN      1769
                     0322002035 +                 PL     X2,MIB12    IF FULL WORD NOT PACKED                     FTN      1770
                               56640              SA6    B4          FULL WORD TO TITLE LINE                     FTN      1771
          2040  66441                             SB4    B4+B1                                                   FTN      1772
                     13666                        BX6    X6-X6       CLEAR PACKING REGISTER                      FTN      1773
                          0745002035 +            LT     B4,B5,MIB12 IF MORE OPTION WORDS TO FILL IN TITLE LINE  FTN      1774
                                                                                                                 FTN      1775
                                                                                                                 FTN      1776
                                                                                                                 FTN      1777
                                        **        DETERMINE PRESENT COMPUTER MODEL AND PLACE IN TITLE LINE.      FTN      1778
                                        *                                                                        FTN      1779
          2041  43101                             MX1    1                                                       FTN      1780
                     6120000100                   SB2    1S6                                                     FTN      1781
                               23121              AX1    B2                                                      FTN      1782
          2042  7130000006                        SX3    6                                                       FTN      1783
                          0331002047 +            MI     X1,MIB14    IF MODEL 76 / 7600                          FTN      1784
          2043  7160000220                        SX6    0220B                                                   FTN      1785
                          6120002047 +            SB2    MIB14                                                   FTN      1786
          2044  20660                             LX6    48                                                      FTN      1787
                     10466                        BX4    X6          FORM  +         JP     B2                   FCCA596    11
                          20436                   LX4    30                -         JP     B2                   FCCA596    12
                               12646              BX6    X4+X6                                                   FCCA596    13
          2045  5160002046 +            +         SA6    *+1         STORE *JP B2* (BOTH UPPER AND LOWER)        FCCA596    14
                          7130000003              SX3    3                                                       FTN      1789
          2046  7130000004              +         SX3    4           EXECUTE IF MODEL 74/6600, JUMP IF 73/6400   FTN      1790
          2047  5110000211 +             MIB14    SA1    TL.CPU      *  70/7X   *                                FTN      1791
                          20344                   LX3    6*6                                                     FTN      1792
                               36613              IX6    X1+X3                                                   FTN      1793
          2050  54610                             SA6    A1          CURRENT CPU TYPE TO TITLE LINE              FTN      1794
                     7140004233                   SX4    2R70                                                    FTN      1795
                               20460              LX4    8*CHAR                                                  FTN      1796
          2051  20314                             LX3    2*CHAR                                                  FTN      1797
                     36634                        IX6    X3+X4                                                   FTN      1798
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   105
        COMPILER INITIALIZATION SUBROUTINES                                     FTNINIT 
  
                          5160000013 C            SA6    CP.CPU                                                  FTN      1799
                                                                                                                 FTN      1800
                                                                                                                 FTN      1801
                                        **        REMOVE PERIOD FROM END OF TIME IN TITLE LINE.                  FEAT126A   67
                                        *                                                                        FEAT126A   68
          2052  5110000220 +                      SA1    TL.TIME                                                 FEAT126A   69
                          7120000055              SX2    1R                                                      FCC1605X    4
          2053  43366                             MX3    54                                                      FCC1605X    5
                     11131                        BX1    X3*X1                                                   FCC1605X    6
                          12612                   BX6    X1+X2                                                   FCC1605X    7
                               54610              SA6    A1          BLANK FINAL PERIOD IN TIME                  FEAT126A   72
                                                                                                                 FEAT126A   73
                                                                                                                 FEAT126A   74
                                        **        CROSS MODEL COMPILATION OPTION.                                FTN      1802
                                        *                                                                        FTN      1803
                                         #RM      IFLE   CP#RM,6                                                 FTN      1804
                                         .T       IFEQ   TEST,0                                                  FTN      1805
                                        *         DO NOT ALLOW MODEL 76 COMPILATION ON MODEL 74 OR LESS UNLESS   FTN      1806
                                        *         IN TEST MODE.                                                  FTN      1807
          2054  43600                             MX6    0                                                       FTN      1808
                     5160000160 +                 SA6    OT.RM       FORCE OBJECT TIME I/O TO ZERO               FTN      1809
                                         .T       ENDIF                                                          FTN      1810
                                         #RM      ELSE                                                           FTN      1811
                                        *         CHANGE RECORD TYPE ON MODEL 76 FOR EXECUTION ON LOWER CYBER    FTN      1812
                                                  SA2    OT.RM                                                   FTN      1813
                                                  NZ     X2,MIB            IF 7RM OBJECT MODE - EXIT             FTN      1814
                                                  STORE  FI.LGO,RT=S       CHANGE RECORD TYPE TO S               FTN      1815
                                         #RM      ENDIF                                                          FTN      1816
                                                                                                                 FTN      1817
          2055  0400001566 +                      EQ     MIB         EXIT                                        FTN      1818
                                                                                                                 FCCA593    53
          2056                     2     GP.PAGE  BSSZ   2           *GETPAGE* RETURN BLOCK                      FCCA593    54
                                                                                                                 FCCA593    55
  
  
  
  
                                        *         MISC INITIALIZATION LITERALS.                                  FTN      1820
                                                                                                                 FTN      1821
          2060  55040502250700000000     DLIT     DATA   6L DEBUG                                                FTN      1822
          2061  17202454000000000000     OLIT     DATA   4LOPT=                                                  FTN      1823
          2062  55221725160454000000     RLIT     DATA   7L ROUND=                                               FTN      1824
          2063  55242201030500000000     TLIT     DATA   6L TRACE                                                FTN      1825
          2064  17252420252400000000     OUTLIT   DATA   6LOUTPUT                                                FCC2170    48
          2065  55552015041520550000    PMDLIT    DATA   8L  PMDMP                                               FEAT1070C  96
          2066  24230000000000000000     TSLIT    DATA   2LTS                                                    FEAT126C   72
          2067  55251700000000000000     UOLIT    DATA   3L UO                                                   FEAT126C   73
          2070  55232401241103000000     SLIT     DATA   7L STATIC                                               FCCA406    52
          2071  55110400000000000000     IDLIT    DATA   3L ID                                                   FCCA406    53
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   106
        COMPILER INITIALIZATION SUBROUTINES                           MIBA      FTNINIT 
  
                                        **        MIBA - BURST DISPLAY-CODED WORD TO BUFFER, 1 CHAR/WORD.        FTN      1828
                                        *                                                                        FTN      1829
                                        *         CHARACTERS ARE BURST UNTIL A 6-BIT ZERO BYTE IS FOUND.         FTN      1830
                                        *         THE INPUT WORD MUST CONTAIN AT LEAST ONE ZERO BYTE, TO         FTN      1831
                                        *         TERMINATE THE BURST.                                           FTN      1832
                                        *                                                                        FTN      1833
                                        *         ENTRY  (X0) = MASK(54)                                         FTN      1834
                                        *                (X1) = NOT MORE THAN 9 CHARS TO BURST, -L- FORMAT       FTN      1835
                                        *                (A6) = ADDR LAST STRING BUFFER ENTRY                    FTN      1836
                                        *                (B1) = 1                                                FTN      1837
                                        *                                                                        FTN      1838
                                        *         EXIT   CHARACTERS BURST TO BUFFER, -R- FORMAT.                 FTN      1839
                                        *                (A6) = ADDR LAST STRING BUFFER ENTRY                    FTN      1840
                                        *                (B1) = 1                                                FTN      1841
                                        *                                                                        FTN      1842
                                        *         USES   X1, X6, A6                                              FTN      1843
                                        *                                                                        FTN      1844
                                        *         CALLS  NONE                                                    FTN      1845
                                                                                                                 FTN      1846
                                                                                                                 FTN      1847
          2072  0400402072 +             MIBA     ENTRY. *           ** ENTRY/EXIT **                            FTN      1848
          2073  11101                             BX1    X0*X1       GUARANTEE BURST TERMINATOR                  FTN      1849
                     0301002072 +                 ZR     X1,MIBA     IF NOTHING TO BURST                         FTN      1850
                               20106              LX1    6                                                       FTN      1851
          2074  15610                    MIBA2    BX6    -X0*X1      EXTRACT CHARACTER                           FTN      1852
                     37116                        IX1    X1-X6                                                   FTN      1853
                          54661                   SA6    A6+B1                                                   FTN      1854
                               20106              LX1    6                                                       FTN      1855
          2075  0311002074 +                      NZ     X1,MIBA2    IF MORE TO BURST                            FTN      1856
                          0400002072 +            EQ     MIBA        EXIT                                        FTN      1857
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   107
        INITIALIZATION TABLES                                         FVTBL     FTNINIT 
  
                                        **        FILE VECTOR TABLE.                                             FTN      1860
                                        *                                                                        FTN      1861
                                        *         GENERATE TABLE OF DEFAULT FILE NAMES, FET/FIT POINTERS, AND    FTN      1862
                                        *         TABLE ORDINALS.  THE TABLE IS MOVED TO THE JOB COMMUNICATIONS  FTN      1863
                                        *         AREA, BEGINNING AT -RA.ARG-, BY THE LOOP AT -MIA2-.            FTN      1864
                                        *                                                                        FTN      1865
                                        *         AFTER THE TABLE IS MOVED TO LOW CORE, THE ENTRY FOR A FILE     FTN      1866
                                        *         CAN BE REFERENCED BY THE SYMBOL -FV.NAME-, WHERE *NAME* IS     FTN      1867
                                        *         THE FILE NAME.                                                 FTN      1868
                                        *                                                                        FTN      1869
                                        *         THE TABLE IS FORMED BY THE -FVEC- MACRO, USING REMOTE CALLS    FTN      1870
                                        *         ISSUED FROM THE -FET- MACRO.                                   FTN      1871
  
  
  
  
                                        **        FVEC - MACRO TO FORM FILE VECTOR TABLE ENTRIES.                FTN      1873
                                        *                                                                        FTN      1874
                                        *                                                                        FTN      1875
                                        *         FVEC      FILE                                                 FTN      1876
                                        *                                                                        FTN      1877
                                        *         ENTRY  *FILE* = FILE NAME                                      FTN      1878
                                        *                                                                        FTN      1879
                                        *         EXIT   TABLE ENTRY IS FORMED.                                  FTN      1880
                                        *                FV.*FILE* IS DEFINED AND DECLARED AN ENTRY POINT.       FTN      1881
                                        *                                                                        FTN      1882
                                        *         USES   NONE                                                    FTN      1883
                                        *                                                                        FTN      1884
                                        *         CALLS  NONE                                                    FTN      1885
                                                                                                                 FTN      1886
                                                  PURGMAC   FVEC                                                 FTN      1887
                                                                                                                 FTN      1888
                                                                                                                 FTN      1889
                                         FVEC     MACRO  FILE                                                    FTN      1890
                                                  ENTRY  FV.FILE                                                 FTN      1891
                                         FV.FILE  =      *L                                                      FTN      1892
                                         #RM      IFEQ   CP#RM,0                                                 FTN      1893
                                                  VFD    42/0L"FILE",18/FE.FILE                                  FTN      1894
                                         #RM      ELSE                                                           FTN      1895
                                                  VFD    42/0L"FILE",18/FI.FILE                                  FTN      1896
                                         #RM      ENDIF                                                          FTN      1897
                                         FVEC     ENDM                                                           FTN      1898
                                                                                                                 FTN      1899
                                                                                                                 FTN      1900
                                                                                                                 FTN      1901
                                        *         FORM TABLE ENTRIES.                                            FTN      1902
                                                                                                                 FTN      1903
          2076                           FVTBL    BSS    0           DEFINE FILE VECTOR TABLE BASE ADDRESS       FTN      1904
      L      2                                    LOC    RA.ARG      ULTIMATE TABLE ADDRESS (AFTER MOVE)         FTN      1905
                                                                                                                 FTN      1906
                                                  LIST   D                                                       FTN      1907
                                         FVEC     HERE               -RMT- GENERATED BY -FET- MACRO              FTN      1908
      L      2  11162025240000000077 C            FVEC   IN                                                     FVEC    .1
      L      3  17252420252400000107 C            FVEC   OUT                                                    FVEC    .1
      L      4  14071700000000000127 C            FVEC   LGO                                                    FVEC    .1
      L      5  17252420252400000117 C            FVEC   ERRS                                                   FVEC    .1
      L      6  32323232320603000037 +            FVEC   CMPS                                                   FVEC    .1
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   108
        INITIALIZATION TABLES                                         FVEC      FTNINIT 
  
      L      7  32323232322214000047 +            FVEC   RLST                                                   FVEC    .1
      L     10  32323232322215000057 +            FVEC   RMAP                                                   FVEC    .1
      L     11  32323232321720000067 +            FVEC   OPT                                                    FVEC    .1
                                                  LIST   *                                                       FTN      1909
                                                                                                                 FTN      1910
          2106                                    LOC    *O                                                      FTN      1911
                                                                                                                 FTN      1912
                                                                                                                 FTN      1913
                                                                                                                 FTN      1914
                                                  ENTRY  FVLEN                                                   FTN      1915
                                  10     FVLEN    =      *-FVTBL     DEFINE TABLE LENGTH                         FTN      1916
  
  
  
  
                                        **        COPYRIGHT.                                                     FTN      1918
                                        *                                                                        FTN      1919
          2106  03172031221107102455              DIS    4,COPYRIGHT CONTROL DATA CORP. 1973-1982                FCC*82      6
  
  
  
  
                                        **        CONTROL CARD OPTION BUFFER                                     FTN      1922
                                        *                                                                        FTN      1923
                                        *         THE CONTROL CARD OPTIONS WILL BE BURST HERE, ONE CHARACTER     FTN      1924
                                        *         PER WORD FOR DISPLAYING IN THE TITLE LINE.                     FTN      1925
                                        *         THE BUFFER ORIGIN IS EQUATED TO -FVTBL- TO REUSE THE TABLE     FTN      1926
                                        *         IMAGE SPACE AFTER THE TABLE HAS BEEN MOVED TO LOW CORE.        FTN      1927
                                                                                                                 FTN      1928
                                2076 +   CCBUF    =      FVTBL                                                   FTN      1929
                                                                                                                 FTN      1930
                                         #OS      IFEQ   .OS,2       IF SCOPE 2                                  FEAT126A   75
                                                  BSS    L.MAXLL*10D-*+CCBUF   INSURE SPACE TO BURST CC OPTIONS  FTN      1932
                                         #OS      ENDIF                                                          FTN      1933
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   109
        BUFFERS                                                                 FTNINIT 
  
                                        *         COMPUTE BLOCK LENGTHS.                                         FTN      1936
                                                                                                                 FTN      1937
                                   0     L.RESFTN SET    0           CLEAR BLOCK LENGTH SUMMATION COUNTER        FTN      1938
                                         BLKNR    MICRO              CLEAR BLOCK NUMBER COUNTER                  FTN      1939
                                                                                                                 FTN      1940
                                                  LIST   D                                                       FTN      1941
                                         BLKLEN   HERE               -RMT- GENERATED BY -BLKORG- MACRO           FTN      1942
             0                                    BLKLEN (0),                                                   BLKLEN  .1
           367                                    BLKLEN (FTNRES),                                              BLKLEN  .1
                                                  LIST   *                                                       FTN      1943
                                                                                                                 FTN      1944
                                                                                                                 FTN      1945
                                                                                                                 FTN      1946
                                        **        TOTAL RESIDENT CODE SPACE.                                     FTN      1947
                                        *                                                                        FTN      1948
                                 640     L.RESFTN SET    RA.ORG+LDR.00+CP.LCOM+LDR.EP+L.RESFTN+EPSLAK            FCCA489    29
  
  
  
  
                                         #RM      IFNE   CP#RM,7                                                 FTN      1951
                                                                                                                 FTN      1952
                                        **        STANDARD INPUT/OUTPUT BUFFER SPACE ALLOCATIONS.                FTN      1953
                                                                                                                 FTN      1954
                                 367 +   OBUF     EQU    O.INIT            OUTPUT BUFFER FWA                     FTN      1955
                                1135     OBUFL    =      CP.ORG-L.RESFTN-IBUFL                                   FTN      1956
                                                                                                                 FTN      1957
                                 133     7        ERRMI  OBUFL-"BUFL"      FTN (0,0) RESIDENT CODE IS TOO LONG.  FTN      1958
                                                                                                                 FTN      1959
                                1524 +   IBUF     EQU    OBUF+OBUFL        INPUT BUFFER FWA                      FTN      1960
                                                                                                                 FTN      1961
                                        *         FORCE SYSTEM LOADER TO RESERVE ALL REMAINING SPACE BELOW       FTN      1962
                                        *         *CP.ORG* FOR THE (0,0) OVERLAY I/O BUFFER AREA.                FTN      1963
                                                                                                                 FTN      1964
                                                  USE    CCMSG                                                   FTN      1965
          2373                                    BSS    0                                                       FTN      1966
                                 261     L.CCMSG  SET    *-O.CCMSG   LENGTH OF CONTROL CARD ERROR MESSAGE BLOCK  FTN      1967
                                                  USE    *                                                       FTN      1968
                                                                                                                 FTN      1969
  
  
  
                                        **        SHRINK OUTPUT BUFFER WHEN SOURCE LISTING SUPPRESSED (L=0).     FTN      1972
                                                                                                                 FTN      1973
                                 101     L.MINBUF EQU    101B              MINIMUM OUTPUT BUFFER LENGTH          FTN      1974
                                                                                                                 FTN      1975
                                         O.XPINB  EQENT  OBUF+L.MINBUF     EXPANDED INPUT BUFFER FWA             FEAT126C   74
                                2036     L.XPINB  =      OBUFL+IBUFL-L.MINBUF  EXPANDED INPUT BUFFER LENGTH      FEAT126C   75
                                                                                                                 FTN      1981
                                                  LIST   D                                                       FTN      1982
                                         CIOBUF   HERE               -RMT- GENERATED AFTER -LC.RMAP- DEFINITION  FTN      1983
                                1002     LC.IN    =      IBUFL                                                  CIOBUF  .1
                                1135     LC.OUT   =      OBUFL                                                  CIOBUF  .1
                                1135     LC.ERRS  =      OBUFL                                                  CIOBUF  .1
                                                  LIST   *                                                       FTN      1984
                                                                                                                 FTN      1985
                                         #RM      ENDIF                                                          FTN      1986
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   110
        BUFFERS                                                       ZZZZFTN   FTNINIT 
  
                                         #ZFTN#   IFEQ   .OS,2       IF SCOPE 2                                  FEAT126A   76
                                         END      MICRO  1,,/END    FTN/                                         FTN      1989
                                                  "END"                                                          FTN      1990
                                                  IDENT  ZZZZFTN                                                 FTN      1991
                                                  TITLE  Z Z Z Z F T N  -  DUMMY (0,0) OVERLAY FOR 7600          FTN      1992
                                                  LCC    OVERLAY(ZZZZFTN,0,0)                                    FTN      1993
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                        ***       -ZZZZFTN- IS A DUMMY ROUTINE THAT EXISTS ONLY TO IMPROVE       FTN      1995
                                        *         THE USAGE OF SCM SPACE IN CYBER 76 / 7600 COMPUTERS UNDER      FTN      1996
                                        *         THE SCOPE 2 OPERATING SYSTEM.                                  FTN      1997
                                        *                                                                        FTN      1998
                                        *         WITHOUT -ZZZZFTN-, WE WOULD WASTE THE SCM SPACE OCCUPIED BY    FTN      1999
                                        *         THE -FTN- INITIALIZATION CODE (CONTROL CARD CRACKER, FILE      FTN      2000
                                        *         OPENS, BUFFER SPACE ALLOCATIONS, ETC.), BECAUSE WE HAVE NO WAY FTN      2001
                                        *         TO DIRECT THE SCOPE 2 LOADER TO OVERLAY THIS CODE WITH THE     FTN      2002
                                        *         PRIMARY OVERLAYS.                                              FTN      2003
                                        *                                                                        FTN      2004
                                        *         -ZZZZFTN-, HOWEVER, REGAINS THIS SPACE BY MISDIRECTING THE     FTN      2005
                                        *         LOADER TO SUIT OUR PURPOSE.  IN REALITY, -ZZZZFTN- IS A DUMMY  FTN      2006
                                        *         (0,0) OVERLAY WHOSE LENGTH CORRESPONDS EXACTLY TO THE LENGTH   FTN      2007
                                        *         OF ONLY THE RESIDENT PORTION OF THE REAL -FTN- (0,0) OVERLAY.  FTN      2008
                                        *         WHEN THE LOADER IS CALLED TO CREATE THE ABSOLUTE BINARY        FTN      2009
                                        *         OVERLAYS, THE REAL -FTN- (0,0) OVERLAY IS FIRST GENERATED AND  FTN      2010
                                        *         WRITTEN TO THE FILE -FTN-.  NEXT, LOADER GENERATES THE         FTN      2011
                                        *         -ZZZZFTN- (0,0) OVERLAY AND WRITES IT TO -ZZZZFTN-.  THEN THE  FTN      2012
                                        *         PRIMARY AND SECONDARY OVERLAYS ARE GENERATED AND WRITTEN TO    FTN      2013
                                        *         -FTN-.  THE PRIMARY AND SECONDARY OVERLAYS WILL BE LINKED      FTN      2014
                                        *         TO THE SHORT -ZZZZFTN-, BECAUSE THAT WAS THE LAST (0,0)        FTN      2015
                                        *         RELOCATABLE BINARY ENCOUNTERED ON THE LOAD FILE.  THUS, THESE  FTN      2016
                                        *         OVERLAYS WILL BE RELOCATED TO AND LATER LOADED AT THE END OF   FTN      2017
                                        *         THE REAL -FTN- RESIDENT CODE --- THE DESIRED END RESULT.       FTN      2018
                                        *                                                                        FTN      2019
                                        *         NOTE THAT -ZZZZFTN- DOES NOT APPEAR ON THE FINAL ABSOLUTE      FTN      2020
                                        *         BINARY FILE -FTN- BECAUSE ITS LOADER CONTROL (LCC) DIRECTIVE   FTN      2021
                                        *         SPECIFIED THAT IT WAS TO BE WRITTEN TO THE FILE -ZZZZFTN-.     FTN      2022
                                        *         THE HIGHER OVERLAYS, HOWEVER, ARE WRITTEN TO -FTN- FOR         FTN      2023
                                        *         CONVENTIONAL USE.                                              FTN      2024
                                        *                                                                        FTN      2025
                                        *         TO INSURE THAT -ZZZZFTN- REMAINS THE SAME LENGTH AS THE        FTN      2026
                                        *         RESIDENT PORTION OF -FTN-, THE RESIDENT SOURCE CODE IS KEPT IN FTN      2027
                                        *         AN UPDATE *COMDECK NAMED -FTNRES-.  THIS *COMDECK IS CALLED    FTN      2028
                                        *         INTO BOTH -FTN- AND -ZZZZFTN-, SO THAT FUTURE CODE MODIFICA-   FTN      2029
                                        *         TIONS WILL AFFECT BOTH IDENTICALLY.                            FTN      2030
                                        *                                                                        FTN      2031
                                        *         ALSO, -ZZZZFTN- REMAINS A PART OF THE UPDATE *DECK NAMED       FTN      2032
                                        *         -FTN-, SO THAT IT NEED NOT BE SPECIFIED SEPARATELY ON          FTN      2033
                                        *         *COMPILE CARDS WHEN DOING QUICK OR SELECTIVE UPDATES.          FTN      2034
                                         #ZFTN#   ENDIF                                                          FTN      2035
                                                                                                                 FTN      2036
                                                  LIST   -L,-R       DO NOT LIST FTNRES CALL                     FTN      2037
                                                  LIST   L,F,R                                                   FTN      2041
                                                                                                                 FTN      2042
                                         #ZFTN#   IFEQ   .OS,2       IF SCOPE 2                                  FEAT126A   78
                                                  ENTRY  FTN                                                     FTN      2044
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   111
        BUFFERS                                                       ZZZZFTN   FTNINIT 
  
                                         FTN      BSS    0                                                       FTN      2045
                                                                                                                 FTN      2046
                                                                                                                 FTN      2047
                                        **        DUMMY FILE VECTOR TABLE.                                       FTN      2048
                                        *         REQUIRED ONLY TO DEFINE -FV.XXX- ENTRY POINTS.                 FTN      2049
                                        *                                                                        FTN      2050
                                                  PURGMAC   FVEC                                                 FTN      2051
                                         FVEC     MACRO  FILE                                                    FTN      2052
                                                  ENTRY  FV.FILE                                                 FTN      2053
                                                  LOC    VLOC                                                    FTN      2054
                                         FV.FILE  BSS    0                                                       FTN      2055
                                         VLOC     SET    VLOC+1                                                  FTN      2056
                                         FVEC     ENDM                                                           FTN      2057
                                                                                                                 FTN      2058
                                        *         FORM TABLE ENTRIES.                                            FTN      2059
                                                                                                                 FTN      2060
                                         VLOC     SET    RA.ARG      INITIALIZE VECTOR TABLE ENTRY LOCATION      FTN      2061
                                                                                                                 FTN      2062
                                                  LIST   D                                                       FTN      2063
                                         FVEC     HERE                                                           FTN      2064
                                                  LIST   *                                                       FTN      2065
                                                                                                                 FTN      2066
                                                  LOC    *O                                                      FTN      2067
                                                                                                                 FTN      2068
                                                  ENTRY  FVLEN                                                   FTN      2069
                                         FVLEN    =      VLOC-RA.ARG DEFINE VECTOR TABLE LENGTH                  FTN      2070
                                                                                                                 FTN      2071
                                        **        SUM AND CHECK THE RESIDENT CODE LENGTH.                        FTN      2072
                                        *                                                                        FTN      2073
                                         L.RESFTN SET    0           CLEAR BLOCK LENGTH SUMMATION COUNTER        FTN      2074
                                         BLKNR    MICRO              CLEAR BLOCK NUMBER COUNTER                  FTN      2075
                                                                                                                 FTN      2076
                                                  LIST   D                                                       FTN      2077
                                         BLKLEN   HERE                                                           FTN      2078
                                                  LIST   *                                                       FTN      2079
                                                                                                                 FTN      2080
                                         L.RESFTN SET    RA.ORG+LDR.00+CP.LCOM+LDR.EP+L.RESFTN+EPSLAK            FCCA489    30
                                        *                                          EPSLAK ZERO FOR SCOPE 2       FCCA489    31
                                         7        ERRMI  CP.ORG+1-L.RESFTN FTN (0,0) RESIDENT CODE IS TOO LONG   FTN      2082
                                                                                                                 FTN      2083
                                                                                                                 FTN      2084
                                        **        FORCE -ZZZZFTN- TO END AT -CP.ORG-.                            FTN      2085
                                        *                                                                        FTN      2086
                                                  BSS    CP.ORG-L.RESFTN                                         FTN      2087
                                                                                                                 FTN      2088
                                         #ZFTN#   ENDIF                                                          FTN      2089
                                                                                                                 FTN      2090
          2373                                    END    FTN                                                     FTN      2091
  
                             66100B CM  STORAGE USED             9048 STATEMENTS     1103 SYMBOLS      000254 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            5.535 SECONDS        1966 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AMODE          16   COMPCOM        30/19 E   30/19 D
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   112
        SYMBOLIC REFERENCE TABLE. 
  
        ARG           515   PROGRAM*       53/43     57/13 L   57/34     57/35     57/48
        ARGA1         566   PROGRAM*       59/06     59/14 L
        ARGB1         573   PROGRAM*       59/25     59/29 L
        ARGDB1        600   PROGRAM*       59/37     59/41 L
        ARGDB2        602   PROGRAM*       59/41     59/45 L
        ARGEDT1       623   PROGRAM*       60/16     60/32 L
        ARGEL1        633   PROGRAM*       60/46     60/53 L
        ARGEL2        636   PROGRAM*       60/54     61/03 L
        ARGEL3        641   PROGRAM*       61/04     61/10 L
        ARGEL4        644   PROGRAM*       61/12     61/15 L
        ARGEL5        645   PROGRAM*       61/08     61/16 L
        ARGEL6        646   PROGRAM*       61/01     61/18 L
        ARGEL7        647   PROGRAM*       60/51     61/19 L
        ARGE1         611   PROGRAM*       59/56     60/03     60/08 L
        ARGG1         656   PROGRAM*       61/27     61/34     61/36 L
        ARGI1         663   PROGRAM*       61/43     61/48 L
        ARGLCM1       676   PROGRAM*       62/13     62/16 L
        ARGLCM2       701   PROGRAM*       62/19     62/24 L
        ARGL1         671   PROGRAM*       61/54     62/01     62/05 L
        ARGML1        706   PROGRAM*       62/46 L   62/51
        ARGML2        712   PROGRAM*       62/47     62/54 L
        ARGOPT1       714   PROGRAM*       63/02     63/04 L
        ARGPD1        740   PROGRAM*       63/48     63/51 L
        ARGPD2        745   PROGRAM*       63/55     64/02     64/04 L
        ARGPL1        731   PROGRAM*       63/35 L   63/40
        ARGPL2        735   PROGRAM*       63/32     63/36     63/43 L
        ARGP1         726   PROGRAM*       63/19     63/27 L
        ARGRND1       767   PROGRAM*       64/43     64/46 L
        ARGRND2       774   PROGRAM*       64/50     64/55 L   65/10
        ARGR1         755   PROGRAM*       64/21     64/24 L
        ARGR2         764   PROGRAM*       64/34     64/38 L
        ARGSNP1      1016   PROGRAM*       65/42 L   65/47
        ARGSNP2      1021   PROGRAM*       65/39     65/43     65/49 L
        ARGS1        1007   PROGRAM*       65/15     65/20     65/23 L
        ARGS2        1011   PROGRAM*       61/39     65/23     65/27 L
        ARG20         520   PROGRAM*       57/19 L   57/22     57/39
        ARG25         523   PROGRAM*       57/25 L   57/30
        ARG30         533   PROGRAM*       57/41     59/43     61/36     62/55     64/45     69/11     70/24     71/46
                                           57/46 L   59/51     61/50     63/15     64/53     69/20     70/27     72/36
                                           57/56     60/06     62/03     63/28     64/56     69/30     70/41
                                           58/24     60/12     62/09     63/44     65/01     69/33     70/44
                                           58/40     60/30     62/22     64/09     65/25     70/05     70/47
                                           59/21     60/38     62/29     64/17     65/35     70/12     70/56
                                           59/32     61/21     62/43     64/39     65/50     70/17     71/22
        ARG31         537   PROGRAM*       57/46     57/55 L
        ARG32         543   PROGRAM*       58/06 L   58/11
        ARG40         546   PROGRAM*       58/09     58/17 L
        ARG44         552   PROGRAM*       58/23     58/26 L
        ARG46         557   PROGRAM*       58/33     58/37 L
        ARG47         560   PROGRAM*       58/35     58/39 L
        ARG48         561   PROGRAM*       58/21     58/42 L
        ARG=A         562   PROGRAM*       54/34     59/06 L
        ARG=B         571   PROGRAM*       54/35     59/25 L
        ARG=DB        576   PROGRAM*       54/47     59/37 L
        ARG=E         605   PROGRAM*       54/50     59/56 L
        ARG=EDT       614   PROGRAM*       55/47     60/16 L
        ARG=EL        626   PROGRAM*       54/51     60/42 L
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   113
        SYMBOLIC REFERENCE TABLE. 
  
        ARG=G         651   PROGRAM*       54/53     61/25 L
        ARG=I         660   PROGRAM*       54/55     61/43 L
        ARG=L         665   PROGRAM*       54/56     61/54 L
        ARG=LCM       674   PROGRAM*       54/57     62/13 L
        ARG=ML        704   PROGRAM*       55/10     62/43 L
        ARG=OPT       713   PROGRAM*       55/14     63/02 L
        ARG=P         722   PROGRAM*       55/17     63/19 L
        ARG=PD        736   PROGRAM*       55/18     63/48 L
        ARG=PL        727   PROGRAM*       55/19     63/32 L
        ARG=PS        750   PROGRAM*       55/20     64/13 L
        ARG=R         753   PROGRAM*       55/25     64/21 L
        ARG=RND       765   PROGRAM*       55/27     64/43 L
        ARG=S        1002   PROGRAM*       55/28     65/14 L
        ARG=SNP      1015   PROGRAM*       65/39 L
        BFLAG        1034   PROGRAM*       59/30 S   66/08 L   97/06     97/36
        BINARY          2                  34/34 D   35/21     35/43     36/03     36/14
        BLANKS       1031   PROGRAM*       66/05 L   72/55     75/07
        CAFLAG        133   PROGRAM*       38/28 E   54/41     96/33     97/32    102/15
                                           38/28 L   96/21     97/07    100/43
        CBNFLG        134   PROGRAM*       38/29 E   38/29 L   38/55     55/48     96/49 S  103/43
        CCBUF        2076   PROGRAM*      102/41 S  104/14    108/30 D
        CCFLAG        135   PROGRAM*       38/30 E   38/30 L   54/42     57/47
        CER.FL        131   PROGRAM*       38/20 E   38/20 L   48/26     72/14
        CFF          1343   PROGRAM*       77/26 L   77/37     81/31    100/38
        CFF2         1347   PROGRAM*       77/30     77/36 L
        CFL          1373   PROGRAM*       53/47     79/06 L
        CFL1         1403   PROGRAM*       79/19     79/22 L
        CFL1A        1405   PROGRAM*       79/23     79/26 L
        CFL1B        1407   PROGRAM*       79/27     79/30 L
        CFL2         1350   PROGRAM*       78/25 L   79/32     79/47
        CFL3         1352   PROGRAM*       78/27     78/29 L
        CFL5         1420   PROGRAM*       79/36     79/51 L
        CFL6         1423   PROGRAM*       79/54     79/57 L
        CFL7         1425   PROGRAM*       79/57     80/03 L
        CFL7A        1427   PROGRAM*       79/56     80/02     80/07 L
        CFL8         1430   PROGRAM*       80/05     80/10 L
        CFL9         1372   PROGRAM*       78/45     78/48     78/52     79/01 L
        CFN          1437   PROGRAM*       59/31     60/09     61/49     62/06     81/24 L   81/25     81/32    101/20
        CFN2         1442   PROGRAM*       81/28     81/30 L
        CHAR            6                   8/14 D   58/02     62/16     63/51     67/26     76/24    101/06
                                           51/47     58/30     62/44     64/04     73/09     76/32    103/05
                                           57/14     58/38     63/04     64/06     73/14     76/35    103/35
                                           57/15     59/09     63/07     64/24     73/19     80/07    104/55
                                           57/16     59/45     63/23     64/27     74/21     99/40    104/56
                                           57/26     60/19     63/33     67/23     75/06    100/13
        CHK          1040   PROGRAM*       59/28     60/02     61/46     65/18     67/25
                                           59/40     61/30     61/57     67/19 L   67/40
        CMPSLDR       204   PROGRAM*       41/18 L   43/21
        CMPSOVL       205   PROGRAM*       41/19 L   43/20
        CNFLCT       1024   PROGRAM*       65/57 L   69/10 S   69/27 S   70/01 S   70/23 S   71/34 S   71/50 S   99/16
                                           68/53 S   69/16 S   69/38 S   70/16 S   71/18 S   71/45 S   72/03 S
        CODED           0                  34/35 D   35/09     35/15     35/26     35/32
        COMRET         21   COMPCOM        30/23 E   30/23 D   47/34 S
        CO.ABT          2   COMPCOM        30/21 E   30/21 D
        CO.EDT        136   PROGRAM*       38/38 E   38/38 L   60/24 S   60/33 S
        CO.ER         137   PROGRAM*       38/39 E   38/39 L   98/31 S
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   114
        SYMBOLIC REFERENCE TABLE. 
  
        CO.ID         140   PROGRAM*       38/42 E   59/42 S   93/37     95/53    103/17
                                           38/42 L   59/50 S   93/38     97/57
        CO.MODE       141   PROGRAM*       38/44 E   38/44 L   55/31     95/50     97/17     97/28
        CO.OLVL       142   PROGRAM*       38/47 E   63/12 S   79/17     96/40     98/22
                                           38/47 L   78/46     80/03     96/53    103/02
        CO.REW        143   PROGRAM*       38/51 E   38/51 L   55/26
        CO.RND        144   PROGRAM*       38/52 E   38/52 L   39/25
        CO.SNAP       145   PROGRAM*       38/53 E   38/53 L   65/49 S
        CO.STA        146   PROGRAM*       38/54 E   38/54 L   55/46    102/49    103/57
        CO.TBK        134   PROGRAM*       38/55 E   38/55 D
        CO.TS         147   PROGRAM*       38/56 L   69/01 S   71/55 S   79/52     95/49     97/21 S   98/18
                                           47/40     71/09 S   79/26     90/44     96/19 S   97/40 S  102/45
        CPM=         1475   PROGRAM*       89/04 D   99/19
        CPTIM         344   PROGRAM*       48/14     51/45 E   51/45 L   51/50
        CPTMSG        363   PROGRAM*       48/15 S   48/16     52/34 L
        CP.ABORT        2   COMPCOM        20/21 D   30/21     48/22     59/15
        CP.AFLL        71   COMPCOM        23/43 L   39/39     79/02 S   92/23 S
        CP.AFLS        67   COMPCOM        23/35 L   30/17     30/25 E   78/30 S   79/14     92/22 S
        CP.BASE         2   COMPCOM        20/05 L   25/14
        CP.BATCH        2   COMPCOM        20/37 D
        CP.BFET       127   COMPCOM        24/53 L   24/54     30/45
        CP.BLF          7   COMPCOM        21/23 L   30/26 E   54/36     95/40 S   95/41
        CP.BUF         27   COMPCOM        30/20 E   30/20 D
        CP.CARD        27   COMPCOM        22/52 L   22/55     30/20     30/27 E   94/23 S
        CP.CDC         21   COMPCOM        22/37 L   30/23
        CP.CPU         13   COMPCOM        22/01 L   30/28 E  105/01 S
        CP.EFET       117   COMPCOM        24/41 L   24/42     30/47
        CP.EPAG         6   COMPCOM        21/15 L
        CP.ERCT         3   COMPCOM        30/14 E   30/14 D  100/31 S
        CP.ERRCT        3   COMPCOM        20/46 L   30/14     48/21
        CP.FLIN        25   COMPCOM        30/15 E   30/15 D
        CP.IFET        77   COMPCOM        24/17 L   24/18     30/44
        CP.IFMT        16   COMPCOM        30/18 E   30/18 D
        CP.IFORM       16   COMPCOM        22/24 L   30/18     30/19
        CP.LCOM       135                  25/14 D  109/16
        CP.LIB         57   COMPCOM        23/22 L   65/24 S   65/32 S  100/50
        CP.LINE        23   COMPCOM        22/45 L   30/15     39/50     39/51
        CP.LISTF        4   COMPCOM        20/54 L   30/16     62/02 S   62/08 S
        CP.LSTF         4   COMPCOM        30/16 E   30/16 D   95/29
        CP.MAXFL       14   COMPCOM        22/07 L   30/22
        CP.MODL        73   COMPCOM        23/52 L   30/29 E   62/54 S
        CP.MXFL        14   COMPCOM        30/22 E   30/22 D
        CP.NFLL        72   COMPCOM        23/44 L   43/12 S   92/25 S
        CP.NFLS        70   COMPCOM        23/36 L   30/30 E   43/19     47/42     47/44     78/29 S   92/24 S
        CP.OFET       107   COMPCOM        24/29 L   24/30     30/46
        CP.ORG       2777                  19/53 D   41/18     47/42     47/44    109/26
        CP.PAGE         5   COMPCOM        21/06 L   30/31 E   63/27 S
        CP.PCOM        74   COMPCOM        24/02 L
        CP.PD          10   COMPCOM        21/34 L   30/32 E   64/08 S  100/06    100/16 S
        CP.PS          11   COMPCOM        21/40 L   30/33 E   64/16 S   99/38
        CP.PW          12   COMPCOM        21/52 L   30/34 E   99/32 S
        CP.STEXT       47   COMPCOM        23/10 L   65/27    100/45    100/53 S  100/54 S
        CP.STOP         2   COMPCOM        20/11 L
        CP.USER        17   COMPCOM        22/30 L
        CP.XNAME       15   COMPCOM        22/13 L   55/55
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   115
        SYMBOLIC REFERENCE TABLE. 
  
        CP#RM           0   FTNTEXT         9/40 F   30/36 F   31/16 F   35/33 F   36/15 F   49/10 F   90/25 F  102/29 F
                                           10/08 F   30/43 F   31/22 F   35/44 F   36/26 F   77/28 F   91/02 F  105/16 F
                                           16/23 F   30/50 F   34/47 F   36/04 F   42/03 F   84/10 F   91/23 F  109/21 F
        CTIMO           1                  11/09 D   48/12 F   50/41 F   92/41 F
        CT.ECS          1   FTNTEXT        78/35 F
        DC.FIDP        43   FTNTEXT        93/39
        DFLAG         150   PROGRAM*       39/02 E   54/43     79/22     96/20     96/42    100/35 S  103/50
                                           39/02 L   78/25     79/51     96/31    100/24    102/47
        DIRECT        151   PROGRAM*       39/06 E   39/06 L   62/21 S   62/28 S
        DLIT         2060   PROGRAM*      103/51    105/40 L
        DXB          1454   PROGRAM*       83/38 D   99/27     99/45    101/27
        ENDFTN        266   PROGRAM*       48/05 E   48/06 L   72/17
        END1          276   PROGRAM*       48/27     48/30 L
        END2          277   PROGRAM*       47/17     48/32 L   71/38     71/41     80/11
        END4          302   PROGRAM*       48/28     48/29     48/30     48/38 L
        END5          320   PROGRAM*       48/39     49/05 L
        EPSLAK          1                  16/53 D  109/16
        ERA.A1       1050   PROGRAM*       58/04 S   68/44 L   69/55 S   70/07 S   70/20 S   72/47     73/01     76/40
        ERA.A2       1051   PROGRAM*       68/45 L   72/11
        ERA.A3       1053   PROGRAM*       68/46 L   72/39     72/41
        ERA.SK       1237   PROGRAM*       69/23     70/31     70/53     71/25     72/34 L   72/35
        ERBUF        2362   PROGRAM*       72/26 L   72/45 S   73/22
        ERFLAG       1022   PROGRAM*       54/52     65/55 L   97/53
        EXECUTE      1025   PROGRAM*       57/37     66/01 L
        EXT             1                  39/11 D   39/13 D   39/15
        E.BGO        1056   PROGRAM*       68/51 L   97/48
        E.DB         1066   PROGRAM*       59/48     69/08 L
        E.DC         1061   PROGRAM*       68/56 L   96/12
        E.DOPT       1064   PROGRAM*       69/04 L   96/47
        E.EAND       1071   PROGRAM*       69/14 L   97/19
        E.EF         1074   PROGRAM*       69/19 L   75/04
        E.EL         1076   PROGRAM*       61/14     61/20     69/22 L
        E.EN         1100   PROGRAM*       69/25 L
        E.EQV        1104   PROGRAM*       60/42     69/32 L
        E.ERDB       1106   PROGRAM*       69/36 L   98/06
        E.FER        1111   PROGRAM*       69/42 L   99/02     99/05
        E.FER1       1113   PROGRAM*       69/45 L   69/49     69/52
        E.FER2       1117   PROGRAM*       69/45     69/54 L
        E.FM         1123   PROGRAM*       58/12     70/04 L
        E.F7         1125   PROGRAM*       70/07 L   76/33
        E.IN         1130   PROGRAM*       61/47     70/11 L
        E.LCM        1132   PROGRAM*       62/26     70/14 L
        E.LFN        1135   PROGRAM*       67/28     67/30     67/39     70/19 L
        E.ME         1141   PROGRAM*       58/29     59/39     60/45     61/56     63/50     65/17
                                           59/08     60/01     61/29     62/15     64/15     70/26 L
                                           59/27     60/18     61/45     63/21     64/23
        E.ML         1143   PROGRAM*       62/52     70/29 L
        E.NE         1145   PROGRAM*       58/37     59/12     60/22     63/25     70/40 L
        E.OPT        1147   PROGRAM*       63/06     63/08     63/10     70/43 L
        E.PD         1151   PROGRAM*       64/03     64/05     70/46 L
        E.PL         1153   PROGRAM*       70/49 L  101/28
        E.PL1        1155   PROGRAM*       63/41     70/52 L
        E.PS         1157   PROGRAM*       64/13     70/55 L
        E.PS1        1161   PROGRAM*       71/01 L   99/46
        E.PS2        1163   PROGRAM*       71/04 L   99/50
        E.PW         1165   PROGRAM*       71/07 L   96/13
        E.PW1        1170   PROGRAM*       71/12 L   99/29     99/31
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   116
        SYMBOLIC REFERENCE TABLE. 
  
        E.QAND       1172   PROGRAM*       71/16 L   97/38
        E.REF        1175   PROGRAM*       64/26     64/28     71/21 L
        E.RND        1177   PROGRAM*       64/52     64/55     71/24 L
        E.SEQPW      1201   PROGRAM*       71/32 L   96/05
        E.SP         1204   PROGRAM*       71/37 L
        E.SW         1206   PROGRAM*       71/40 L
        E.S7         1210   PROGRAM*       65/30     71/43 L  100/47
        E.TSDC       1213   PROGRAM*       71/48 L   96/25
        E.TSEQ       1216   PROGRAM*       71/53 L   96/14
        E.TSMD       1224   PROGRAM*       72/06 L
        E.TSOPT      1221   PROGRAM*       72/01 L   96/27
        E.UC         1227   PROGRAM*       72/11 L   99/17
        E.UO         1234   PROGRAM*       72/19 L   97/01
        FA=SET       1461   PROGRAM*       87/20 D   90/39     90/40
        FE.CMPS        37   PROGRAM*       35/32 L   35/32    107/57
        FE.ERRS       117   COMPCOM        30/47 D   35/26     35/26    107/56
        FE.IN          77   COMPCOM        30/44 D   35/09     35/09    107/53
        FE.LGO        127   COMPCOM        30/45 D   35/21     35/21    107/55
        FE.OPT         67   PROGRAM*       36/14 L   36/14    108/03
        FE.OUT        107   COMPCOM        30/46 D   35/15     35/15    107/54
        FE.RLST        47   PROGRAM*       35/43 L   35/43    108/01
        FE.RMAP        57   PROGRAM*       36/03 L   36/03    108/02
        FL             67   COMPCOM        30/17 E   30/17 D
        FTEXT        1033   PROGRAM*       66/07 L  100/48
        FTIFL         105   PROGRAM*       37/52 L   92/28 S
        FTN           367   PROGRAM*       53/36 E   53/38 L
        FTN4          367   PROGRAM*       53/33 E   53/34 L
        FVLEN          10                  94/12     95/19    108/10 E  108/11 D
        FVTBL        2076   PROGRAM*       59/29     60/08     61/48     62/05     95/20    107/48 L  108/11    108/30
        FV.CMPS         6                 107/57 E  107/57 D
        FV.ERRS         5                 107/56 E  107/56 D
        FV.IN           2                  98/53    100/25    107/53 E  107/53 D
        FV.LGO          4                  97/46    101/05    101/17    107/55 E  107/55 D
        FV.OPT         11                 108/03 E  108/03 D
        FV.OUT          3                 107/54 E  107/54 D
        FV.RLST         7                 108/01 E  108/01 D
        FV.RMAP        10                 108/02 E  108/02 D
        F.CMPS         37   PROGRAM*       35/32 D   35/32 E   49/20
        F.DEBUG        67   PROGRAM*       36/25 E   36/25 D
        F.ERRS        117   COMPCOM        35/26 D   35/26 E
        F.IN           77   COMPCOM        35/09 D   35/09 E   90/36 S   90/39
        F.LF           47   PROGRAM*       35/52 E   35/52 D   90/54 S
        F.LFN         152   PROGRAM*       39/14 E   39/15 L   60/25     60/34
        F.LGO         127   COMPCOM        35/21 D   35/21 E   90/48 S
        F.OPT          67   PROGRAM*       36/14 D   36/14 E   36/25     49/19
        F.OUT         107   COMPCOM        35/15 D   35/15 E   36/35     90/37 S   90/40
        F.RLST         47   PROGRAM*       35/43 D   35/43 E   35/52     49/17     91/24
        F.RMAP         57   PROGRAM*       36/03 D   36/03 E   49/18     90/51 S
        F.TABS        106   PROGRAM*       37/53 E   37/53 L
        GAC          1265   PROGRAM*       57/20     61/19     64/46     65/42     74/32     74/42     76/38
                                           57/28     62/46     64/51     72/34     74/35     74/49
                                           60/43     63/35     65/09     74/19 L   74/41     76/26
        GACA         1326   PROGRAM*       74/36     75/32 L
        GACB         1327   PROGRAM*       74/57 S   75/25     75/33 L
        GACC         1330   PROGRAM*       57/54 S   74/51     75/01 S   75/01     75/26 S   75/34 L
        GAC1         1266   PROGRAM*       74/20 L   74/43     74/46     74/55     74/56     75/29
        GAC2         1272   PROGRAM*       74/28     74/30 L
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   117
        SYMBOLIC REFERENCE TABLE. 
  
        GAC3         1300   PROGRAM*       74/25     74/45 L
        GAC4         1301   PROGRAM*       74/26     74/48 L
        GAC5         1302   PROGRAM*       74/20     74/51 L
        GAC6         1313   PROGRAM*       75/03     75/05 L
        GAC7         1315   PROGRAM*       74/53     75/06 L
        GAC8         1317   PROGRAM*       75/11 L   75/13
        GAV          1331   PROGRAM*       57/55     59/26     60/17     61/44     63/03     64/14     65/22     76/36
                                           58/28     59/38     61/28     61/55     63/20     64/22     69/29     76/42
                                           59/07     59/57     61/35     62/14     63/49     65/16     76/22 L
        GAV2         1333   PROGRAM*       76/26 L   76/31
        GAV4         1337   PROGRAM*       76/27     76/35 L
        GAV8         1340   PROGRAM*       70/09     76/38 L   76/39
        GL.DRL        107   PROGRAM*       37/54 E   37/54 L
        GL.DVL        110   PROGRAM*       37/55 E   37/55 L
        GL.IND        111   PROGRAM*       37/56 E   37/56 L
        GL.SYM        112   PROGRAM*       37/57 E   37/57 L
        GOFLAG        153   PROGRAM*       39/17 L   48/38     54/54     72/13 S   97/09     97/34     97/44    101/03
        GP.PAGE      2056   PROGRAM*       99/19     99/57    100/07    105/32 L
        GT1            23   COMPCOM        39/50 E   43/13 S   48/46 S   52/18     78/53 S   78/55     79/43
                                           39/50 D   43/15     48/49     52/19     78/54     79/42 S   79/44
        GT2            24   COMPCOM        39/51 E   39/51 D
        IBA          1501   PROGRAM*       53/49     90/23 L   91/32
        IBA2         1512   PROGRAM*       90/30     90/44 L
        IBA3         1520   PROGRAM*       90/45     90/55 L
        IBUF         1524   PROGRAM*       35/09     35/09     35/09     35/09     35/09    109/30 D
        IBUFL        1002                  19/33 D  109/26    109/48    109/52
        IB.FL        4000                  31/12 D   31/17 D   31/26     31/26 D   31/37     31/46
        IDLIT        2071   PROGRAM*      103/20    105/49 L
        IEM          1241   PROGRAM*       68/51     69/22     70/08     70/40     71/01     71/24     71/53
                                           68/56     69/25     70/11     70/43     71/04     71/32     72/01
                                           69/04     69/32     70/14     70/46     71/07     71/37     72/06
                                           69/08     69/36     70/21     70/49     71/12     71/40     72/19
                                           69/14     69/56     70/26     70/52     71/16     71/43     72/38 L
                                           69/19     70/04     70/29     70/55     71/21     71/48     73/23
        IEM1         1246   PROGRAM*       72/40     72/44 L
        IEM2         1255   PROGRAM*       72/46     73/08 L
        IEM3         1256   PROGRAM*       73/10 L   73/17
        INT.FL        113   PROGRAM*       38/01 E   38/01 L   78/32 S
        IN.FL        4000                  10/49 D   32/16     32/23     32/29     32/35
        IN.LCM      30000                  10/50 D   78/49
        IP.MFL     140000   FTNTEXT        31/38     31/47     31/56     32/08
        IT.FL           0                  31/32 D   31/37     31/46
        I.CBSET         5   FTNTEXT        84/46     90/36 S   90/37 S   90/48 S   90/51 S   90/54 S   91/24
        I.LIMIT         4   FTNTEXT        85/06
        I.OUT           3   FTNTEXT        85/04 S
        JOT           114   PROGRAM*       38/02 E   38/02 L   94/04 S
        KEYS          375   PROGRAM*       54/32 L   56/01     58/01
        LASTREC       115   PROGRAM*       38/03 E   38/03 L
        LB.LF         201                  10/34 E   10/34 D   90/52
        LB.LGO        201                  10/32 E   10/32 D   90/46
        LB.RMAP       201                  10/33 E   10/33 D   90/49
        LCM.FL         71   COMPCOM        39/39 E   39/39 D   43/09
        LCM.MM        171   PROGRAM*       39/37 E   39/37 L   78/39     78/40
        LCM.MU        172   PROGRAM*       39/38 E   39/38 L
        LCM.OA        170   PROGRAM*       39/36 E   39/36 L
        LCP.PS        116   PROGRAM*       38/04 E   38/04 L   99/52 S
        LC.CMPS      1002                   9/44 D   31/17     35/32     35/32
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   118
        SYMBOLIC REFERENCE TABLE. 
  
        LC.ERRS      1135                  35/26     35/26    109/54 D
        LC.IN        1002                  35/09     35/09    109/52 D
        LC.LGO       2004                   9/45 D    9/47     31/17     35/21     35/21
        LC.OPT       2004                   9/46 D   36/14     36/14
        LC.OUT       1135                  35/15     35/15    109/53 D
        LC.RLST      2004                   9/47 D   35/43     35/43
        LC.RMAP      1002                   9/48 D   31/17     36/03     36/03
        LDCOM         223   PROGRAM*       43/08 E   43/09 L
        LDPRI         253   PROGRAM*       47/40 L   53/51
        LDPT         2777                  38/06 E   42/08 L
        LDRCALL         3   FTNTEXT        43/55 F   44/07 F   93/03 F
        LDRFL         120   PROGRAM*       38/07 L   48/43
        LDRP           17                  37/04 D   43/51 S   45/36     45/37
        LDR.EP          2                  16/47 D   16/51     16/53    109/16
        LDR.00         11   FTNTEXT       109/16
        LD20          261   PROGRAM*       47/41     47/44 L
        LGOIO         121   PROGRAM*       38/08 E   38/08 L
        LOP=F         154   PROGRAM*       39/18 E   39/18 L
        LOP=N         155   PROGRAM*       39/19 E   39/19 L   60/49 S   60/56 S   61/06 S   61/15 S   95/38 S
        LOP=1         156   PROGRAM*       39/20 E   39/20 L
        LOVER         233   PROGRAM*       43/39 E   43/40 L   47/42     47/44
        LOVERM        247   PROGRAM*       43/46 S   47/16     47/20 L
        LOV2A         243   PROGRAM*       45/43 L
        LOV6          244   PROGRAM*       45/40     47/16 L
        LSTMSTR        77   PROGRAM*       37/13 L   37/14 E   37/41
        L1              0                  39/09 D   39/15
        L2              1                  39/10 D   39/15
        L.CCMSG       261                 109/37 D
        L.GCON        122   PROGRAM*       38/11 E   38/11 L
        L.KEYS        120                  56/01 D   58/03
        L.MAXCD        12                  40/01 E   40/02 D   40/03
        L.MAXLL        14                  40/03 D
        L.MINBUF      101                  90/33    109/45 D  109/47    109/48
        L.MSTR          6                  37/41 D   37/42 E
        L.RESFTN      640                 109/03 D  109/08    109/08 D  109/09    109/09 D  109/16    109/16 D  109/26
        L.TITL         15                  41/54 E   41/55 D
        L.TTLA          5                  41/56 E   41/56 D
        L.TTLB          5                  41/57 E   41/57 D
        L.TYP           4   FTNTEXT        39/09     39/15
        L.XPINB      2036                  90/31    109/48 D
        MACFLAG       123   PROGRAM*       38/13 E   38/13 L  102/20 S
        MASK20       1030   PROGRAM*       66/04 L   67/32
        MASK40       1027   PROGRAM*       66/03 L   72/48     75/16
        MASK60       1026   PROGRAM*       66/02 L   67/31
        MAXOPT          2                  11/12 D
        MAX.FL        124   PROGRAM*       38/15 E   38/15 L   79/12     79/33
        MAX.RL        125   PROGRAM*       38/16 E   38/16 L   91/31 S
        MB10         1606   PROGRAM*       95/54     96/08 L
        MB10A        1610   PROGRAM*       69/02     96/13 L
        MB11         1611   PROGRAM*       71/10     96/14 L
        MB12         1612   PROGRAM*       72/09     96/08     96/17 L
        MB12A        1617   PROGRAM*       71/51     71/56     96/26 L
        MB12B        1621   PROGRAM*       96/10     96/30 L
        MB13         1624   PROGRAM*       71/35     72/04     96/06     96/15     96/35     96/40 L
        MB14         1630   PROGRAM*       69/05     96/41     96/48 L
        MB15         1631   PROGRAM*       96/28     96/43     96/53 L
        MB15A        1634   PROGRAM*       72/22     96/56     96/57     97/04 L
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   119
        SYMBOLIC REFERENCE TABLE. 
  
        MB16         1645   PROGRAM*       69/17     97/05     97/25 L
        MB17         1655   PROGRAM*       71/19     97/26     97/44 L
        MB18         1660   PROGRAM*       68/54     97/45     97/47     97/52 L
        MB18A        1667   PROGRAM*       98/13     98/18 L
        MB18AA       1664   PROGRAM*       98/05     98/08 L
        MB18AB       1665   PROGRAM*       98/02     98/10 L
        MB18B        1671   PROGRAM*       98/19     98/22 L
        MB18C        1676   PROGRAM*       98/21     98/26     98/28     98/30 L
        MB18D        1677   PROGRAM*       98/09     98/15     98/31 L
        MB19         1711   PROGRAM*       69/39     70/02     99/16 L
        MB19C        1702   PROGRAM*       98/53 L   99/12
        MB19D        1703   PROGRAM*       98/55 L   99/08
        MB19E        1707   PROGRAM*       99/01     99/07 L
        MEM.GOFL    34000                  32/41 D   38/07
        MIA          1523   PROGRAM*       53/41     92/16 L   94/24
        MIAA         1565   PROGRAM*       93/12     94/28 L
        MIA1         1544   PROGRAM*       93/08     93/12 L
        MIA1A        1546   PROGRAM*       93/15     93/17 L
        MIA2A        1557   PROGRAM*       94/02     94/04 L
        MIA3         1562   PROGRAM*       94/14 L   94/16
        MIB          1566   PROGRAM*       53/45     95/14 L  105/30
        MIBA         2072   PROGRAM*      103/01    103/19    103/29    103/46    104/03    106/21 L  106/30
                                          103/08    103/22    103/36    103/53    104/09    106/23
        MIBA2        2074   PROGRAM*      106/25 L  106/29
        MIB0         1570   PROGRAM*       95/20 L   95/24
        MIB1         1600   PROGRAM*       95/30     95/41 L
        MIB10        2024   PROGRAM*      103/45    103/50 L
        MIB10A       2026   PROGRAM*      103/52    103/57 L
        MIB10B       2030   PROGRAM*      104/02    104/06 L
        MIB11        2032   PROGRAM*      104/08    104/13 L
        MIB12        2035   PROGRAM*      104/19 L  104/26    104/30
        MIB13        2037   PROGRAM*      104/23    104/25 L
        MIB14        2047   PROGRAM*      104/40    104/42    104/50 L
        MIB2         1721   PROGRAM*       71/14     99/25     99/32 L
        MIB3         1722   PROGRAM*       99/38 L
        MIB3A        1727   PROGRAM*       99/43     99/47 L  100/04
        MIB3B        1732   PROGRAM*       71/02     71/05     99/39     99/57 L
        MIB3C        1734   PROGRAM*       99/53    100/06 L
        MIB3D        1741   PROGRAM*      100/15    100/24 L
        MIB4         1746   PROGRAM*      100/33    100/38 L
        MIB4A        1747   PROGRAM*      100/26    100/36    100/43 L
        MIB4B        1753   PROGRAM*      100/49    100/51 L
        MIB5         1755   PROGRAM*      100/44    101/03 L
        MIB5A        1763   PROGRAM*      101/18    101/24 L
        MIB5C        1766   PROGRAM*       70/50    101/25    101/30 L
        MIB5D        1760   PROGRAM*      101/04    101/09 L
        MIB6         1772   PROGRAM*      102/27    102/40 L
        MIB6A        1777   PROGRAM*      102/48    102/53 L
        MIB6B        2001   PROGRAM*      102/50    102/54    102/57 L
        MIB6C        2005   PROGRAM*      102/55    103/09 L
        MIB6D        2006   PROGRAM*      102/46    103/12 L
        MIB6E        2012   PROGRAM*      103/07    103/10    103/18    103/22 L
        MIB7         2017   PROGRAM*      103/33 L  103/39
        MIB7A        2013   PROGRAM*      102/51    103/26 L
        MIB8         2021   PROGRAM*      103/33    103/37 L
        MIB9         2022   PROGRAM*      103/28    103/43 L
        MIN.DFL     63000                  32/07 D   32/08     32/09     32/35     79/24
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   120
        SYMBOLIC REFERENCE TABLE. 
  
        MIN.FL      46000                  22/07     31/46 D   31/47     31/48     31/55     32/07     32/23     79/15
        MIN.OFL     54000                  31/55 D   31/56     31/57     32/29     79/20
        MIN.TFL     40000                  31/36 E   31/37 E   31/37 D   31/38     31/39     32/16     79/28
        MLOP=O        102   PROGRAM*       37/43 E   37/43 D
        MLOP=R        103   PROGRAM*       37/44 E   37/44 D
        MLOP=X         77   PROGRAM*       37/45 E   37/45 D
        MSG=           31   PROGRAM*       28/47 D   47/16     48/54     72/41     75/05
                                           30/37 E   48/16     72/11     73/22     80/10
        MSG.FL       1433   PROGRAM*       79/53     80/10     80/16 L
        NOM.DFL     67000                  32/35 D   79/25
        NOM.FL      52000                  32/23 D   79/16
        NOM.OFL     60000                  32/29 D   79/21
        NOM.TFL     44000                  32/16 D   32/17 E   79/29
        OBUF          367   PROGRAM*       35/15     35/15     35/15    109/25 D  109/47
                                           35/15     35/15     90/40    109/30
        OBUFL        1135                 109/26 D  109/28    109/30    109/48    109/53    109/54
        OFF             0                   8/13 D   37/26     38/44     39/12 F   39/24     60/23     62/20
                                           20/22     38/28     38/54     39/17     39/28     60/55     98/27
                                           21/23     38/29     38/56     39/20     39/30     61/05     98/29
                                           37/18     38/38     39/06     39/21     60/04     61/17
        OLIT         2061   PROGRAM*      102/57    105/41 L
        ON              1                   8/12 D   54/34     54/52     55/24     55/46     59/36 F   96/11 F   98/25
                                           37/19     54/36     54/54     55/26     55/48     69/07 F   97/56 F  103/16 F
                                           38/41 F   54/41     55/01     55/31     55/51     69/35 F   98/04 F
                                           39/19     54/42     55/02     55/34     55/54     93/33 F   98/12 F
                                           39/26     54/46 F   55/11     55/45     55/56     95/52 F   98/20
        OPTFLG       1035   PROGRAM*       63/14 S   66/09 L   96/26     96/30     96/46
        OT.RM         160   PROGRAM*       39/22 E   39/22 L  105/21 S
        OT#RM           6   FTNTEXT        39/22     70/33 F   71/27 F   98/35 F
        OUTLIT       2064   PROGRAM*       99/03    105/44 L
        OUTPUT#       107   COMPCOM        36/35 E   36/35 D
        OVLA          173   PROGRAM*       41/03 E   41/03 L   47/42     47/44     93/16 S
        OVLB          174   PROGRAM*       41/04 E   41/05 L   47/42     47/44     93/11 S
        OVL10         175   PROGRAM*       41/06 E   41/06 L   47/42
        OVL20         176   PROGRAM*       41/07 E   41/07 L   47/44
        OVL21         177   PROGRAM*       41/08 E   41/08 L
        OVL22         200   PROGRAM*       41/12 E   41/12 L
        OVL23         201   PROGRAM*       41/14 E   41/14 L
        OVL24         202   PROGRAM*       41/15 E   41/15 L
        OVL25         203   PROGRAM*       41/16 E   41/16 L
        O.CCMSG      2112   PROGRAM*       15/08 L  109/37
        O.GCON        126   PROGRAM*       38/17 E   38/17 L   78/33 S
        O.INIT        367   PROGRAM*       53/06 L  109/25
        O.TITL        206   PROGRAM*       41/31 E   41/32 L   41/55
        O.TTLA        215   PROGRAM*       41/44 E   41/44 L   41/56     41/57
        O.XPINB       470   PROGRAM*       90/32    109/47 E  109/47 D
        PDFLAG        132   PROGRAM*       38/27 E   38/27 L
        PLARG        1023   PROGRAM*       63/43 S   65/56 L  101/24
        PLIMIT        161   PROGRAM*       39/23 E   39/23 L  101/29 S
        PMDFLAG       157   PROGRAM*       39/21 E   39/21 L   55/01     55/02     96/23    103/15 S  104/06
        PMDLIT       2065   PROGRAM*      104/07    105/45 L
        PRNSPY       1032   PROGRAM*       66/06 L
        PR.MXFL       127   PROGRAM*       38/18 E   38/18 L
        PWFLAG       1036   PROGRAM*       55/22     66/10 L   95/51     99/24
        P.EXT          66   FTNTEXT        39/10     60/27     60/35
        P.TYP          70   FTNTEXT        39/09     39/10
        QFLAG         162   PROGRAM*       39/24 E   39/24 L   55/24     97/15     97/25    101/16
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   121
        SYMBOLIC REFERENCE TABLE. 
  
  U     QUAL$                              82/06 F   83/36 F   84/06 F   87/18 F   88/06 F   89/02 F
        RA.ARG          2   CPUTEXT        94/13 S   95/23 S  107/49
        RA.CCD         70   CPUTEXT        75/02     75/05     75/09 S   75/28
        RA.CEJ         66   CPUTEXT        26/45
        RA.LDR         67   CPUTEXT        44/14 S
        RA.LWP         65   CPUTEXT        93/04
        RA.MTR          1   CPUTEXT        26/38     26/56     27/14     27/19     27/54
        RA.ORG        100   CPUTEXT        43/45 S   94/17 S  109/16
        RA.PGN         64   CPUTEXT        48/41 S   48/54     93/05     94/10
        RA.SSW          0   CPUTEXT        37/03     37/04
        RCL=           15   PROGRAM*       28/45 D   30/37 E
        REALDEC       330   PROGRAM*       51/05 E   51/05 L   51/49
        RLDA          342   PROGRAM*       51/07     51/32 L
        RLDC          343   PROGRAM*       51/13     51/33 L
        RLD2          327   PROGRAM*       51/01 L   51/16
        RLD3          334   PROGRAM*       51/14 L   51/23     51/28
        RLD4          335   PROGRAM*       51/01     51/17 L
        RLIT         2062   PROGRAM*      103/27    105/42 L
        ROPFLAG       144   PROGRAM*       39/25 E   39/25 D   64/44 S   64/49 S   65/02    103/26
        RS.PD         117   PROGRAM*       38/05 E   38/05 L  100/14 S
        SCRTBL        322   PROGRAM*       49/16 E   49/17 L  102/31 S
        SLIST         163   PROGRAM*       39/26 E   39/26 L   55/34     90/29     95/36 S
        SLIT         2070   PROGRAM*      104/01    105/48 L
        SPPFLAG       164   PROGRAM*       39/27 E   39/27 L   55/45
        STOP          251   PROGRAM*       20/11     47/32 L
        SYM1           12                  37/03 D
        SYS=            2   PROGRAM*       28/44 D   45/36     48/49     52/18     78/54     88/47     93/37
                                           30/37 E   48/32     48/55     75/01     79/12     92/34
                                           43/15     48/43     49/05     78/39     79/43     92/35
        S.GCON        310   FTNTEXT        78/28
        TEST            0   FTNTEXT        11/12     38/31 F   43/47 F   47/24 F   55/04 F  101/41 F
                                           12/13 F   41/25 F   44/16 F   50/01 F   55/36 F  105/17 F
                                           31/32     43/42 F   45/45 F   54/37 F   62/33 F
        TIMER         351   PROGRAM*       51/46     52/17 E   52/17 L   52/28     92/42
        TIME0         361   PROGRAM*       48/13     52/32 E   52/32 L   92/43 S
        TIME1         362   PROGRAM*       52/33 E   52/33 L   92/44 S
        TLIT         2063   PROGRAM*      103/44    105/43 L
        TL.CCOP       212   PROGRAM*       41/40 E   41/40 L  104/15    104/16
        TL.CPU        211   PROGRAM*       41/39 L  104/50
        TL.DATE       217   PROGRAM*       41/48 E   41/48 L   92/34
        TL.JECT       206   PROGRAM*       41/35 E   41/35 L
        TL.PAGE       222   PROGRAM*       41/51 E   41/51 L
        TL.PNAM       210   PROGRAM*       41/37 E   41/37 L
        TL.PTYP       207   PROGRAM*       41/36 E   41/36 L   41/57
        TL.TIME       220   PROGRAM*       41/49 E   41/49 L   92/35    105/06
        TSFLAG       1037   PROGRAM*       55/51     66/11 L   72/08 S   95/48     96/17     97/13     97/27
        TSLIT        2066   PROGRAM*      103/12    105/46 L
        T.LFN          13   FTNTEXT        39/15
        UFLAG         165   PROGRAM*       39/28 E   39/28 L   60/05 S   60/11 S   97/04    102/16
        UOFLAG        166   PROGRAM*       39/29 E   39/29 L   55/54     72/21 S   96/54    102/53    103/06
        UOLIT        2067   PROGRAM*      103/09    105/47 L
        WNB=           21   PROGRAM*       28/46 D   30/37 E   84/41
        W.TABS        130   PROGRAM*       38/19 E   38/19 L
        ZFLAG         167   PROGRAM*       39/30 E   39/30 L   55/56
        .FID            1   FTNTEXT        38/41 F   59/36 F   69/35 F   95/52 F   97/56 F   98/12 F
                                           54/46 F   69/07 F   93/33 F   96/11 F   98/04 F  103/16 F
        .MODES          1                  38/21 D   54/45 F   55/13 F   55/21 F   55/30 F   55/50 F   93/34 F   95/56 F
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   122
        SYMBOLIC REFERENCE TABLE. 
  
        .OS             1   FTNTEXT         2/18 F   16/52 F   48/42 F   53/31 F   92/51 F  108/32 F  110/56 F
                                           16/46 F   43/14 F   48/48 F   87/22 F  101/40 F  110/01 F
        .OVL            1   FTNTEXT        31/55     41/09 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCSYS 
  
  
        MSGA           36   PROGRAM*       28/30 S   28/36 L
        MSG1           27   PROGRAM*       28/15 L   28/26     28/34
        MSG=           31   PROGRAM*       28/20 L   28/47
        RCL1           13   PROGRAM*       27/12 L   27/22
        RCL=           15   PROGRAM*       27/17 L   27/20     28/45
        SYSA            0   PROGRAM*       26/30 L   26/47     26/57
        SYS1            1   PROGRAM*       26/32     26/34 L   26/41     26/54 S
        SYS2            5   PROGRAM*       26/34     26/45 L
        SYS3            7   PROGRAM*       26/46     26/49 L
        SYS4           10   PROGRAM*       26/48     26/51 L
        SYS=            2   PROGRAM*       26/36 L   27/13     27/43     28/18     28/44
        WNB1           23   PROGRAM*       27/50 L   27/55
        WNB2           20   PROGRAM*       27/41 L   27/57
        WNB=           21   PROGRAM*       27/45 L   27/52     27/53     28/46
  
  
  
  
                                                  SYMBOL QUALIFIER =  MASTER
  
  
        ANSI           77   PROGRAM*       37/18 L   37/34     60/48 S   61/18 S   95/39 S
        IEFLG         100   PROGRAM*       37/19 L   37/33     60/50 S   60/57 S   61/16 S   95/37 S
        LOP=M         101   PROGRAM*       37/22 L   64/38 S   95/34 S
        LOP=O         102   PROGRAM*       37/26 L   37/35     37/43
        LOP=R         103   PROGRAM*       37/31 L   37/36     37/44
        LOP=W         100   PROGRAM*       37/33 D
        LOP=X          77   PROGRAM*       37/34 D   37/45
        OLIST         102   PROGRAM*       37/35 D   55/11     95/35 S   97/11     97/30    102/18
        RSELECT       103   PROGRAM*       37/36 D   64/33 S   64/36 S   95/33 S
        R=FLAG        104   PROGRAM*       37/37 L   64/31 S   95/32 S
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCDXB 
  
  
        DXB          1454   PROGRAM*       83/11     83/14     83/17     83/20 L   83/38
        DXB1         1444   PROGRAM*       82/47 L   83/04
        DXB2         1446   PROGRAM*       82/55 L   83/30
        DXB3         1453   PROGRAM*       83/09     83/12     83/16 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  FA=SET
1       F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION          COMPASS 3.7-871.     24/05/02. 15.50.33.      PAGE   123
        SYMBOLIC REFERENCE TABLE.                                     FA=SET
  
        FA=SET       1461   PROGRAM*       84/37 L   85/18     87/20
        SET2         1464   PROGRAM*       84/40     84/46 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCPM 
  
  
        CPM1         1474   PROGRAM*       88/47 L   88/57
        CPM=         1475   PROGRAM*       88/49 L   89/04
  
  
  
  
                                                  SYMBOL QUALIFIER =  MACRO$
  
  
        GETPAGE      1712   PROGRAM*       99/19 D
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1403              IDENT  TABLES 
                       1403                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1377 
                                        LITERALS* LOCAL        1377         4 
  
  
                                        ENTRY POINTS. 
  
                                        ACONS          652+           LOSTREF        463+           TP=FMT          51+ 
                                        ARGMIS         347+           L=TABLE        453            TP.FMT          16+ 
                                        ANDNOT         743+           LASTAD         441+           TEM.MAX        524+ 
                                        ATTR           350+           LASTOP         440+           TS=BLK          62+ 
                                        ARRARM        1036+           LJS           1346+           TS=ENT          63+ 
                                        ASFARM        1037+           L.CARD         464+           TS=CON          40+ 
                                        ASFLEN         351+           MOD            465+           TS=SYM          41+ 
                                        ASSN           751+           MSF            466+           TS.CON           5+ 
                                        ARGCOMA        345+           MSN            467+           TT=REF          34+ 
                                        ARGMODE        346+           MULT           716+           TT=SCR          37+ 
                                        APLSTOR        746+           MULS           470+           TT.REF           1+ 
                                        APLSTOD        747+           MAPCHAR        555+           TT.SCR           4+ 
                                        APLUG          750+           MINUS.M        756+           TP=DO           47+ 
                                        BUFFWA        1043+           MULT(S         753+           TT.USE           3+ 
                                        BUFLWA        1044+           NARGS          471+           TP=NLST         55+ 
                                        BEFXARM       1040+           NOPATH         473+           TP.DO           14+ 
                                        BIFFUN         776+           N.TABLE         33            TP.NLST         22+ 
                                        BIFARM        1041+           NSK            476+           TS=EQU          50+ 
                                        BEFFUN        1003+           NTRCNT         477+           TS=STN          43+ 
                                        BIFSHF        1000+           NREXT          475+           TS=DAT          61+ 
                                        BINOUT         365+           NDC=CNT       1057+           TS.DAT          26+ 
                                        BA.PRO         352+           NDC=STR       1060+           TT=ASF          52+ 
                                        BINIO          364+           NOLDS          426+           TT=USE          36+ 
                                        BASES            0+           NOOPP         1012+           TT=LINK         50+ 
                                        BA.CON         353+           NOLIST         472+           TT=FILL         36+ 
                                        BA.FMT         354+           N.BLK           10            TT.LINK         15+ 
                                        BLNKCOM        402+           ORG            500+           TT.FILL          3+ 
                                        BA.TEM         355+           ORIGINS          0+           TT.XFIL          4+ 
                                        BA.APL         356+           OPBSS          766+           TT=XFIL         37+ 
                                        BA.BUF         361+           OPRETD        1010+           TP=DIM          45+ 
                                        BA.VAR         360+           OPRETS        1007+           TT=PAR          53+ 
                                        BA.NLST        357+           OPDUM          767+           TT.ASF          17+ 
                                        BUFMOD        1042+           OTROP          773+           TT.PAR          20+ 
                                        CALLOP         775+           O.STITL        501+           T.VDIM          21+ 
                                        CNFARM        1046+           PARCEL         502+           TG.TEM         126+ 
                                        CONOTBL        612+           PTN=FMT       1061+           T=SB            33+ 
                                        CONONE         550+           PR.SLP          13            T.SB             0+ 
                                        CALLIO         761+           PASS           503+           T=LGOB          33+ 
                                        CDORD          410+           POPTBL         654+           T.LGOB           0+ 
                                        CONF           374+           PSTACK         714+           TI=DAT          37+ 
                                        CONZER         551+           PLUS           714+           TI.DAT           4+ 
                                        CSYMBOL        401+           PLUS.M         755+           TL=DAT          36+ 
                                        CALLARM       1045+           PLUS(S         752+           TL.DAT           3+ 
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        CHARMAP        127+           RANF           777+           TP=EQU          50+ 
                                        CCNT           372+           RATES           66+           TP.EQU          15+ 
                                        COD           1331+           REFIO          504+           TS.EQU          15+ 
                                        CDD           1325+           REFLIN         505+           TT=COMM         47+ 
                                        COMSIZ         363+           REGA           265+           TT.COMM         14+ 
                                        CSNTAG         377+           REGX           275+           T=VDIM          54+ 
                                        COMMA          723+           RJTDUM         510+           TN=BLK          40+ 
                                        CALL           367+           RTNCNT         515+           TS=CONB        530+ 
                                        CARDS          371+           RG=BADR        222+           TA=NAM          42+ 
                                        CSLIST         376+           RG=INTR        225+           TG.VDIM        125+ 
                                        CSSTMT         400+           RG=LOAD        236+           TG.APL         124+ 
                                        COMMENT        373+           REG=B          325+           TA.NAM           7+ 
                                        DRITE          412+           REG=T          305+           TN=EXT          50+ 
                                        DOLMR          403+           REGARG        1005+           TN.EXT          15+ 
                                        DTI            415+           RJSUB         1004+           TN.BLK           5+ 
                                        DOORD          411+           RG=LODX        241+           THRESH         525+ 
                                        DECARM        1047+           RG=STOR        247+           TP.ILI          24+ 
                                        DOIX           405+           RG=TEMP        230+           TP=ILI          57+ 
                                        DIVP2         1032+           RREG           514+           T.DLBUF         31+ 
                                        DXB           1340+           REGARG2       1006+           T=DLBUF         64+ 
                                        DOSTNO         407+           ROUTNAM        513+           TRLINE         527+ 
                                        DO=CC            6            REVMIN         770+           UMINUS         737+ 
                                        DO.CSKL       1014+           REFNUM         506+           UUC            531+ 
                                        DOARM         1050+           REFVAR         507+           TP.CIDM         13+ 
                                        DO.BEG         760+           RGC            511+           TP=CIDM         46+ 
                                        ETF            420+           RGX            512+           VALUE.         532+ 
                                        ERRORS         417+           RG=SET         244+           VARDIM         533+ 
                                        ENTRY.         416+           REGFILE        255+           VTRUE          553+ 
                                        ERROP          764+           REGB           255+           VD.EQ         1033+ 
                                        EXTCAL        1001+           SFN           1353+           VD.MULT       1034+ 
                                        EXTFUN        1002+           SIZES           33+           VD.INTR       1035+ 
                                        EQUAL          722+           STAGE          520+           WNZ            534+ 
                                        EXTFARM       1051+           SYSERR         523+           WOD           1361+ 
                                        FAILSFT        421+           STN            522+           XMITOP        1013+ 
                                        FIRSTV         535+           SB.STNL        516+           XPOP           772+ 
                                        FLOW           422+           SB.STNR        517+           TRACE          526+ 
                                        FEXPR          653+           SDIV           771+           ZLCOMMA        537+ 
                                        GOASS          765+           SHFC          1025+           ZLE            541+ 
                                        GOTARM        1052+           SHFD          1030+           ZLEQUAL        536+ 
                                        HANGER         424+           SHFDS         1031+           ZLPAREN        540+ 
                                        HDELAY         425+           SHFS          1026+           LDRFLG         462+ 
                                        ICV            430+           SHFSA         1027+           T.LNT           11+ 
                                        IGS            435+           STATIC         521+           T=LNT           44+ 
                                        IDENT1         431+           SUBOP          754+           PTSN           121+ 
                                        IMULT2        1011+           TG.BASE        121+           LSTWRKG        542+ 
                                        INTMAC         774+           TG.END         126+           ANSI           542+ 
                                        ICONL          427+           TP.DIM          12+           IEFLG          543+ 
                                        NAME           433+           TS.BLK          27+           LOP=M          544+ 
                                        IFARM         1053+           TS.STN          10+           LOP=O          545+ 
                                        IOARGM        1055+           TS.SYM           6+           LOP=R          546+ 
                                        INAFR          436+           T.END           32+           LOP=W          543+ 
                                        IN.EXP         763+           TA.PRO          25+           LOP=X          542+ 
                                        LASTCOL        437+           TG.PRO         124+           OLIST          545+ 
                                        LOGT           570+           TS.ENT          30+           RSELECT        546+ 
                                        LG.LOG          21            TT=LF           35+           R=FLAG         547+ 
                                        LDEAD          443+           T=FILE          61+           CIO=          1070+ 
                                        LPAR           720+           T.FILE          26+           RDC=          1075+ 
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        LPARM         1054+           TA=PRO          60+           RDW=          1111+ 
                                        LINEBUF        444+           TT.LF            2+           WTC=          1224+ 
                                        LCNT           442+           TP.APL          23+           WTW=          1237+ 
                                        LOCAL          362+           TP=APL          56+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        TAB.NX    C=FMT     POP.PN    C=DEC     O=OTR     O=ASSGN   O=SHFC    DUC.
                                        TAB.STR   PAR.EOS   POP.RP    C=DO      O=ADD     O=ORN     O=SHFS    DUC.1ST 
                                        TAB.LP    PAR.HOL   POP.REQ   C=FUN     O=SUB     O=INT     O=SHFD    DUC.2ND 
                                        TAB.RP    PAR.TNK   POP.NOT   C=GOT     O=MULT    O=XORN    O=SHFSA   DUC.BTH 
                                        TAB.DOL   PAR.VAR   POP.EXP   A=BIF     O=DIV     O=ANDN    O=SHFDS   O=EPO 
                                        TAB.=     PAR.PL    POP.STD   A=LIST    O=STR     O=DOB     O=DIVP2   O=NOOP
                                        TAB.CO    PAR.MIN   POP.PL    A=ASF     O=LT      O=GOA     O=RANF    O=ARG 
                                        TAB.PD    PAR.STD   POP.CM    A=CALL    O=GE      O=BSS     O=RJSUB   O=RJT 
                                        O=IOJ     PAR.LP    POP.REL   A=DEC     O=EQ      O=RETS    O=XMIT    O=FUN 
                                        A=BMOD    PAR.EQL   POP.UM    A=DO      O=NE      O=RETD    ADD.I     O=BEF 
                                        A=BLWA    PAR.CM    POP.LOG   A=FUN     O=NOT     MULT.I    STR.I     RCL=
                                        A=STR     PAR.TRU   PAR.NX    A=IF      O=ANDO    O=DOC1    SUB.I     SYS=
                                        A=FMT     PAR.FAL   C=CERR    A=BEF     O=XOR     O=DOC2    SA=BKS9   WNB=
                                        C=BFWA    PAR.DLP   C=BEF     O=SUBL    O=ORO     O=DOC3    SB=BKS9   STR.D 
                                        C=IOL     POP.MUL   C=BIF     A=ARRAY   O=UMIN    O=DOC4    SX=BKS9 
                                        C=CNT     POP.DIV   C=CALL    C=ARRAY   O=APLUG   O=DOC3A   SX=XKS9 
  
  
  
  
                                                  IDENT  TABLES                                                  TABLES      2
                                                                                                                 TABLES      3
                                                  SST    A,B,C,D,F,G,L,K,Z,EXIT.                                 TABLES      4
                                                  NOREF  A,B,C,D,F,G,L,K,Z,EXIT.                                 TABLES      5
                                                                                                                 TABLES      6
                                         B=TABL   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     TABLES      7
                                                                                                                 TABLES      8
                                                  ENTRY  ACONS,ARGMIS,ANDNOT,ATTR,ARRARM,ASFARM                  TABLES      9
                                                  ENTRY  ASFLEN,ASSN,ARGCOMA,ARGMODE,APLSTOR,APLSTOD,APLUG       TABLES     10
                                                  ENTRY  BUFFWA,BUFLWA,BEFXARM,BIFFUN,BIFARM,BEFFUN,BIFSHF       TABLES     11
                                                  ENTRY  BINOUT,BA.PRO,BINIO,BASES,BA.CON,BA.FMT,BLNKCOM         FCC0966    11
                                                  ENTRY  BA.TEM,BA.APL,BA.BUF,BA.VAR,BA.NLST,BUFMOD              TABLES     13
                                                  ENTRY  CALLOP,CNFARM,CONOTBL,CONONE,CALLIO,CDORD,CONF          FCC0787     6
                                                  ENTRY  CONZER,CSYMBOL,CALLARM,CHARMAP,CCNT,COD,CDD,COMSIZ      FCC0709     5
                                                  ENTRY  CSNTAG,COMMA,CALL,CARDS,CSLIST,CSSTMT                   FEAT126B   15
                                                  ENTRY  COMMENT                                                 FCC1328X   40
                                                  ENTRY  DRITE,DOLMR,DTI,DOORD,DECARM,DOIX,DIVP2,DXB             FCC1328X   41
                                                  ENTRY  DOSTNO,DO=CC,DO.CSKL,DOARM,DO.BEG                       TABLES     18
                                                  ENTRY  ETF,ERRORS,ENTRY.,ERROP,EXTCAL,EXTFUN,EQUAL,EXTFARM     TABLES     19
                                                  ENTRY  FAILSFT,FIRSTV,FLOW,FEXPR                               FCC0787     7
                                                  ENTRY  GOASS,GOTARM                                            TABLES     21
                                                  ENTRY  HANGER,HDELAY                                           FCC1328X   42
                                                  ENTRY  ICV,IGS,IDENT1,IMULT2,INTMAC,ICONL,NAME                 FEAT155E   90
                                                  ENTRY  IFARM,IOARGM,INAFR,IN.EXP                               TABLES     24
                                                  ENTRY  LASTCOL,LOGT,LG.LOG,LDEAD,LPAR,LPARM,LINEBUF,LCNT       TABLES     25
                                                  ENTRY  LOCAL,LOSTREF,L=TABLE                                   FEAT155E   91
                                                  ENTRY  LASTAD,LASTOP,LJS,L.CARD                                FCC1328X   43
                                                  ENTRY  MOD,MSF,MSN,MULT,MULS,MAPCHAR                           FCC0813    47
                                                  ENTRY  MINUS.M,MULT(S                                          TABLES     29
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     4
  
  
                                                  ENTRY  NARGS,NOPATH,N.TABLE,NSK,NTRCNT,NREXT,NDC=CNT           FCC1328X   44
                                                  ENTRY  NDC=STR,NOLDS,NOOPP,NOLIST,N.BLK                        FEAT126B   16
                                                  ENTRY  ORG,ORIGINS,OPBSS,OPRETD,OPRETS,OPDUM,OTROP             FCC1495AX   6
                                                  ENTRY  O.STITL                                                 FEAT155H   87
                                                  ENTRY  PARCEL,PTN=FMT,PR.SLP,PASS,POPTBL,PSTACK,PLUS           FEAT126C   76
                                                  ENTRY  PLUS.M,PLUS(S                                           TABLES     34
                                                  ENTRY  RANF,RATES,REFIO,REFLIN,REGA,REGX,RJTDUM,RTNCNT         FEAT155E   92
                                                  ENTRY  RG=BADR,RG=INTR,RG=LOAD,REG=B,REG=T,REGARG,RJSUB        TABLES     36
                                                  ENTRY  RG=LODX,RG=STOR,RG=TEMP,RREG,REGARG2,ROUTNAM,REVMIN     TABLES     37
                                                  ENTRY  REFNUM,REFVAR,RGC,RGX,RG=SET,REGFILE,REGB               TABLES     38
                                                  ENTRY  RG=SET                                                  TABLES     39
                                                  ENTRY  SFN,SIZES,STAGE,SYSERR,STN,SB.STNL,SB.STNR,SDIV         FEAT155G   29
                                                  ENTRY  SHFC,SHFD,SHFDS,SHFS,SHFSA,STATIC,SUBOP                 F162FTNA  379
                                                  ENTRY  TG.BASE,TG.END,TP.DIM,TS.BLK,TS.STN,TS.SYM,T.END        FCC1495X    4
                                                  ENTRY  TA.PRO,TG.PRO,TS.ENT,TT=LF,T=FILE,T.FILE,TA=PRO,TT.LF   TABLES     43
                                                  ENTRY  TP.APL,TP=APL,TP=FMT,TP.FMT,TEM.MAX,TS=BLK,TS=ENT       TABLES     44
                                                  ENTRY  TS=CON,TS=SYM,TS.CON,TT=REF,TT=SCR,TT.REF,TT.SCR,TP=DO  TABLES     45
                                                  ENTRY  TT.USE,TP=NLST,TP.DO,TP.NLST,TS=EQU,TS=STN,TS=DAT       TABLES     46
                                                  ENTRY  TS.DAT,TT=ASF,TT=USE,TT=LINK,TT=FILL,TT.LINK,TT.FILL    TABLES     47
                                                  ENTRY  TT.XFIL,TT=XFIL                                         TABLES     48
                                                  ENTRY  TP=DIM,TT=PAR,TT.ASF,TT.PAR,T.VDIM,TG.TEM               FCC0813    49
                                                  ENTRY  T=SB,T.SB,T=LGOB,T.LGOB                                 FCC0813    50
                                                  ENTRY  TI=DAT,TI.DAT,TL=DAT,TL.DAT,TP=EQU,TP.EQU,TS.EQU        TABLES     50
                                                  ENTRY  TT=COMM,TT.COMM,TP=FMT,TP.FMT,T=VDIM,TN=BLK,TS=CONB     TABLES     51
                                                  ENTRY  TA=NAM,TG.VDIM,TG.APL,TA.NAM,TN=EXT,TN.EXT,TN.BLK       TABLES     52
                                                  ENTRY  THRESH                                                  FEAT155D   45
                                                  ENTRY  TP.ILI,TP=ILI,T.DLBUF,T=DLBUF                           FEAT126B   17
                                                  ENTRY  TRLINE,UMINUS,UUC                                       TABLES     54
                                         #FID     IFNE   .FID,0                                                  F66FCC    165
                                                  ENTRY  TP.CIDM,TP=CIDM                                         F66FCC    166
                                         #FID     ENDIF                                                          F66FCC    167
                                                  ENTRY  VALUE.,VARDIM,VTRUE,VD.EQ,VD.MULT,VD.INTR               TABLES     55
                                                  ENTRY  WNZ,WOD                                                 FEAT155G   30
                                                  ENTRY  XMITOP,XPOP                                             FCC2194     6
                                                  ENTRY  TRACE                                                   FCC0744     7
                                                  ENTRY  ZLCOMMA,ZLE,ZLEQUAL,ZLPAREN                             TABLES     58
                                                  ENTRY  LDRFLG                                                  FCC1097     4
                                                                                                                 TABLES     59
                                        *         IN LEX                                                         TABLES     60
                                                  EXT    TAB.NX,TAB.STR,TAB.LP,TAB.RP,TAB.DOL,TAB.=,TAB.CO       TABLES     61
                                                  EXT    TAB.PD                                                  TABLES     62
                                                                                                                 TABLES     63
                                        *         IN IO                                                          TABLES     64
                                                  EXT    O=IOJ,A=BMOD,A=BLWA,A=STR,A=FMT,C=BFWA,C=IOL,C=CNT      TABLES     65
                                                  EXT    C=FMT                                                   TABLES     66
                                                                                                                 TABLES     67
                                        *         IN PAR                                                         TABLES     68
                                                  EXT    PAR.EOS,PAR.HOL,PAR.TNK,PAR.VAR,PAR.PL,PAR.MIN,PAR.STD  TABLES     69
                                                  EXT    PAR.LP,PAR.EQL,PAR.CM,PAR.TRU,PAR.FAL,PAR.DLP           FCC0616     4
                                                  EXT    POP.MUL,POP.DIV,POP.PN,POP.RP,POP.REQ,POP.NOT,POP.EXP   TABLES     71
                                                  EXT    POP.STD,POP.PL,POP.CM,POP.REL,POP.UM,POP.LOG            FCC0616     5
                                                  EXT    PAR.NX,C=CERR,C=BEF,C=BIF,C=CALL,C=DEC,C=DO,C=FUN,C=GOT TABLES     73
                                                  EXT    A=BIF,A=LIST,A=ASF,A=CALL,A=DEC,A=DO,A=FUN,A=IF,A=BEF   TABLES     74
                                                                                                                 TABLES     76
                                        *         IN GEN                                                         TABLES     77
                                                  EXT    O=SUBL,A=ARRAY,C=ARRAY,O=OTR                            FEAT155G   31
                                                  EXT    O=ADD,O=SUB,O=MULT,O=DIV,O=STR,O=LT,O=GE,O=EQ,O=NE      TABLES     79
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     5
  
  
                                                  EXT    O=NOT,O=ANDO,O=XOR,O=ORO,O=UMIN,O=APLUG,O=ASSGN,O=ORN   TABLES     80
                                                  EXT    O=INT,O=XORN,O=ANDN,O=DOB,O=GOA,O=BSS,O=RETS,O=RETD     TABLES     81
                                                  EXT    MULT.I,O=DOC1,O=DOC2,O=DOC3,O=DOC4                      TABLES     82
                                                  EXT    O=DOC3A,O=SHFC,O=SHFS,O=SHFD,O=SHFSA,O=SHFDS,O=DIVP2    TABLES     83
                                                  EXT    O=RANF,O=RJSUB,O=XMIT,ADD.I,STR.I,SUB.I                 FCC2194     7
                                                  EXT    SA=BKS9,SB=BKS9,SX=BKS9,SX=XKS9                         TABLES     85
                                                  EXT    DUC.,DUC.1ST,DUC.2ND,DUC.BTH,O=EPO,O=NOOP               TABLES     86
                                                                                                                 TABLES     87
                                        *         IN FUN                                                         TABLES     88
                                                  EXT    O=ARG,O=RJT,O=FUN,O=BEF                                 TABLES     89
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     6
  
  
                                         TABLES   SECT   (T A B L E   DEFINITIONS.),1                            TABLES     91
  
                                                                                                                 TABLES     92
                                                                                                                 TABLES     93
                                   1     FUDGE    EQU    1           AMOUNT OF SLOP SPACE BETWEEN TABLES         TABLES     94
  
  
  
  
                                        **        SIZES - AUX. MACRO FOR TABLE SIZE REMOTES.                     TABLES     96
                                        *                (FORCES MICRO EVALUATION)                               TABLES     97
                                                                                                                 TABLES     98
                                                                                                                 TABLES     99
                                         SIZES    MACRO  TT,NAM,RATE,INIT,DEF                                    TABLES    100
                                        *                                                                        TABLES    101
                                         TABLE    RMT                                                            TABLES    102
                                         TT.NAM DEF    INIT                                                      TABLES    103
                                         TABLE    RMT                                                            TABLES    104
                                        *                                                                        TABLES    105
                                         SIZES    RMT                                                            TABLES    106
                                         TT=NAM DEF    N.TABLES+TT.NAM                                           TABLES    107
                                         SIZES    RMT                                                            TABLES    108
                                        *                                                                        TABLES    109
                                        .2        IFC    NE, = RATE                                              TABLES    110
                                         RATES    RMT                                                            TABLES    111
                                         X        OCTMIC RATE_BS30/L.TABLES,10                                   TABLES    112
                                         A        OCTMIC INIT,6                                                  TABLES    113
                                                  VFD    60/0."X"B+"A"B     (NAM)                                TABLES    114
                                         RATES    RMT                                                            TABLES    115
                                        *                                                                        TABLES    117
                                         .T       IFNE   TEST,0                                                  FEAT155F  140
                                         PTSN     RMT                                                            FEAT155F  141
                                                  DATA   0H_TT.NAM                                               FEAT155F  142
                                         PTSN     RMT                                                            FEAT155F  143
                                         .T       ENDIF                                                          FEAT155F  144
                                        *                                                                        FEAT155F  145
                                         .2       ENDIF                                                          FEAT155F  146
                                        *                                                                        FEAT155F  147
                                         SIZES    ENDM                                                           TABLES    118
  
  
  
  
                                        **        TABLE - MACRO TO FORM TABLE PARAMETER WORD FOR COMPILER TABLES TABLES    120
                                        *                                                                        TABLES    121
                                        * TNAM    TABLE  RATE,INIT         (OR),                                 TABLES    122
                                        * TNAM    TABLE  =,SHARE                                                 TABLES    123
                                        *                                                                        TABLES    124
                                        *         TNAM   =  TABLE NAME.                                          TABLES    125
                                        *         RATE   =  RELATIVE EXPANSION RATE OF TABLE.                    TABLES    126
                                        *                = 5   SUPER TABLE.  PLEASE USE DISCRETION.              TABLES    127
                                        *                = 4   FAST EXPANDER.                                    TABLES    128
                                        *                = 3   NORMAL RATE.                                      TABLES    129
                                        *                = 2   SLOWER THAN MOST.                                 TABLES    130
                                        *                = 1   VERY INFREQUENTLY EXPANDED.                       TABLES    131
                                        *         INIT   =  INITIAL LENGTH OF TABLE IN EACH PROGRAM-UNIT.        TABLES    132
                                        *         SHARE  =  NAME OF TABLE TO SHARE SPACE WITH.                   TABLES    133
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     7
                                                                      TABLE 
  
                                                                                                                 TABLES    134
                                                                                                                 TABLES    135
                                                  MACRO  TABLE,NAM,RATE,INIT                                     TABLES    136
                                         A        MICRO  1,,.NAM.                                                TABLES    137
                                         B        MICCNT A                                                       TABLES    138
                                         C        MICRO  B+2,5,*NAM    *                                         TABLES    139
                                        *                                                                        TABLES    140
                                         .1       IFC    NE, RATE =                                              TABLES    141
                                         R        DECMIC RATE                                                    TABLES    142
                                         R        OCTMIC "R"*16                                                  TABLES    143
                                         N.TABLES SET    N.TABLES+1                                              TABLES    144
                                         L.TABLES SET    L.TABLES+"R"B                                           TABLES    145
                                         L=TABLES SET    L=TABLES+INIT                                           TABLES    146
                                                  SIZES  "A",("C"),"R",INIT,CON                                  TABLES    147
                                        *                                                                        TABLES    148
                                         .1       ELSE                                                           TABLES    149
                                        *                                                                        TABLES    150
                                                  SIZES  "A",("C"),=,INIT,( = )                                  TABLES    151
                                         .1       ENDIF                                                          TABLES    152
                                         TABLE    ENDM                                                           TABLES    153
                                                                                                                 TABLES    154
                                                                                                                 TABLES    155
                                   0     L.TABLES SET    0                                                       TABLES    156
                                   0     L=TABLES SET    0                                                       TABLES    157
                                   0     N.TABLES SET    0           INITIALIZE TABLE ORDINAL                    TABLES    158
  
  
  
  
                                        ****      T.LGO - COMPILE TO CORE TABLE.                                 TABLES    160
                                        *                HOLDS GENERATED BINARY WHEN COMPILING TO CORE.  MAY     TABLES    161
                                        *         OVERFLOW TO LCM (TX.LGO) OR TO DISK (F.LGO). THIS IS NOTED     TABLES    162
                                        *         IN (LGOIO).                                                    TABLES    163
                                                                                                                 TABLES    164
                                                                                                                 TABLES    165
                                         .CMLOD   IFNE   .CMLOD,,1                                               TABLES    166
                                         T.LGO    TABLE  1                                                       TABLES    167
                                        ****                                                                     TABLES    168
                                        **        T.SB   - STRING BUFFER                                         FCC0813    52
                                        *                THIS TABLE MUST BE FIRST BECAUSE A0 POINTS TO THE       FCC0813    53
                                        *                ORIGIN OF THE TABLE.  BEING THE FIRST TABLE THE ORIGIN  FCC0813    54
                                        *                WILL ALWAYS REMAIN CONSTANT.                            FCC0813    55
                                        *                ITS SPACE IS REUSED FOR THE LGO BUFFER AT END TIME.     FCC0813    56
                                        *                                                                        FCC0813    57
                                         T.SB     TABLE  4,67                                                    FCC0813    58
                                         T.LGOB   TABLE  =,T.SB      LGO BUFFER                                  FCC0813    59
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     8
  
  
                                        **        TT.REF AND TT.LF - REFERENCE MAP FILE AND LONG FILE.           FCC0813    61
                                        *                THESE TABLES MAY BECOME TO LARGE TO KEEP IN CORE.       FCC0813    62
                                        *                THEY WILL THEN SPILL TO DISK AND THEIR TABLE SIZES WILL FCC0813    63
                                        *                BE SHRUNK TO ZERO.                                      FCC0813    64
                                        *                                                                        FCC0813    65
                                         TT.REF   TABLE  4           REFERENCE TABLE (REFMAP FILE)               FCC0813    66
                                         TT.LF    TABLE  5           INTERMEDIATE TABLE (LONG FILE)              FCC0813    67
  
  
  
  
                                         TT.USE   TABLE  3                                                       TABLES    172
                                         TT.SCR   TABLE  3           SCRATCH TABLE.                              TABLES    173
                                         TS.CON   TABLE  3           CONSTANT VALUES                             TABLES    174
                                         TS.SYM   TABLE  5,LSYM      SYMBOLS                                     TABLES    175
                                         TA.NAM   TABLE  3,LSYM/2    ADDRESS OF VARIABLES                        TABLES    177
                                         TS.STN   TABLE  4,LSTN      STATEMENT NUMBER TABLE                      TABLES    178
                                         #FID     IFNE   .FID,0                                                  F66FCC    168
                                                  ENTRY  T.LNT,T=LNT                                             F66FCC    169
                                         T.LNT    TABLE  4           LINE NUMBER TABLE                           F66FCC    170
                                         #FID     ENDIF                                                          F66FCC    171
                                         TP.DIM   TABLE  1,2         DIMENSION PARAMETERS                        TABLES    180
                                         #FID     IFNE   .FID,0                                                  F66FCC    172
                                         TP.CIDM  TABLE  1           COPY OF TP.DIM FOR CID TABLE CONSTRUCTION   F66FCC    173
                                        *                            IN END                                      F66FCC    174
                                         #FID     ENDIF                                                          F66FCC    175
                                         TP.DO    TABLE  2           DO PARAMETER TABLE                          TABLES    181
                                         TS.EQU   TABLE  1           TRANSLATED EQUIVALENCE STATEMENTS           TABLES    182
                                         TP.EQU   TABLE  =,TS.EQU    EQUIVALENCE PARAMETER TABLE                 TABLES    183
                                         TP.FMT   TABLE  3                                                       TABLES    184
                                         TT.ASF   TABLE  2                                                       TABLES    185
                                         TT.PAR   TABLE  3                                                       TABLES    186
                                         T.VDIM   TABLE  1           VARIABLE DIMENSION TURPLES.                 TABLES    187
                                         TP.NLST  TABLE  1                                                       TABLES    188
                                         TP.APL   TABLE  3           ACTUAL PARAMETER LISTS                      TABLES    189
                                         TP.ILI   TABLE  3           INPUT LIST ITEMS                            TABLES    190
                                         TA.PRO   TABLE  3,4                                                     TABLES    191
                                         TS.DAT   TABLE  1                                                       TABLES    192
                                         TL.DAT   TABLE  =,TT.USE    AUX DATA TABLE, LOCAL TO EACH DATA STMNT.   TABLES    193
                                         TI.DAT   TABLE  =,TT.SCR    AUX DATA TABLE, LOCAL TO EACH DATA STMNT.   TABLES    194
                                                                     CONTAINS CONSTANTS FOUND IN THE STATEMENT   TABLES    195
                                                                     AND REP FACTORS, PLUS OTHER GOODIES.        TABLES    196
                                         T.FILE   TABLE  =,TS.DAT                                                TABLES    197
                                         TS.BLK   TABLE  1,2                                                     FCC0583     6
                                         TS.ENT   TABLE  1                                                       TABLES    200
                                         TT.COMM  TABLE  =,TP.DO     COMMON TAGS (DECLARATIVE PROCESSING ONLY)   FCC0780     4
                                         TT.FILL  TABLE  =,TT.USE                                                FCC0780     5
                                         TT.LINK  TABLE  =,TS.EQU                                                TABLES    203
                                         TT.XFIL  TABLE  =,TT.SCR                                                TABLES    204
                                         TN.EXT   TABLE  =,TP.EQU                                                TABLES    205
                                         TN.BLK   TABLE  =,TS.CON    BLOCK NAMES IN MAP                          FCC0813    69
                                         T.DLBUF  TABLE  2                                                       FEAT126B   18
                                         T.END    TABLE  0           DUMMY FOR MANAGER                           TABLES    207
                                                  POPMAC SIZES                                                   TABLES    208
                                                  POPMAC TABLE                                                   TABLES    209
                                                                                                                 TABLES    210
                                        *         USED FOR EXTERNAL REFERENCE INTERFACES                         TABLES    211
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE     9
  
  
                                                                                                                 TABLES    212
                                 453     L=TABLE  EQU    L=TABLES                                                TABLES    214
                                  33     N.TABLE  EQU    N.TABLES                                                TABLES    215
                                                                                                                 TABLES    216
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    10
        /DEF  SYMBOL DEFINITIONS. 
  
                                         DEF      SECT   (SYMBOL DEFINITIONS.),1                                 TABLES    217
  
  
  
  
  
                                        **        TABLES - ACTUAL TABLE PARAMETER WORDS ARE HERE.                TABLES    219
                                                                                                                 TABLES    220
                                                  LIST   D           *ORIGINS*                                   TABLES    221
                                                                                                                 TABLES    222
             0                           ORIGINS  BSS    0           ORIGINS OF TABLES                           TABLES    223
             0                           BASES    BSS    0           BASE ADDRESSES OF TABLES                    TABLES    224
                                                                                                                 TABLES    225
                                         TABLE    HERE               ACTUAL TABLE PARAMETER WORDS                TABLES    226
             0  00000000000000000103     T.SB    CON    67                                                      TABLE   .1
                                   0 +   T.LGOB   =     T.SB                                                    TABLE   .1
             1  00000000000000000000     TT.REF   CON                                                           TABLE   .1
             2  00000000000000000000     TT.LF    CON                                                           TABLE   .1
             3  00000000000000000000     TT.USE   CON                                                           TABLE   .1
             4  00000000000000000000     TT.SCR   CON                                                           TABLE   .1
             5  00000000000000000000     TS.CON   CON                                                           TABLE   .1
             6  00000000000000000200     TS.SYM   CON    LSYM                                                   TABLE   .1
             7  00000000000000000100     TA.NAM   CON    LSYM/2                                                 TABLE   .1
            10  00000000000000000040     TS.STN   CON    LSTN                                                   TABLE   .1
            11  00000000000000000000     T.LNT   CON                                                            TABLE   .1
            12  00000000000000000002     TP.DIM   CON    2                                                      TABLE   .1
            13  00000000000000000000     TP.CIDM  CON                                                           TABLE   .1
            14  00000000000000000000     TP.DO    CON                                                           TABLE   .1
            15  00000000000000000000     TS.EQU   CON                                                           TABLE   .1
                                  15 +   TP.EQU    =     TS.EQU                                                 TABLE   .1
            16  00000000000000000000     TP.FMT   CON                                                           TABLE   .1
            17  00000000000000000000     TT.ASF   CON                                                           TABLE   .1
            20  00000000000000000000     TT.PAR   CON                                                           TABLE   .1
            21  00000000000000000000     T.VDIM  CON                                                            TABLE   .1
            22  00000000000000000000     TP.NLST  CON                                                           TABLE   .1
            23  00000000000000000000     TP.APL   CON                                                           TABLE   .1
            24  00000000000000000000     TP.ILI   CON                                                           TABLE   .1
            25  00000000000000000004     TA.PRO   CON    4                                                      TABLE   .1
            26  00000000000000000000     TS.DAT   CON                                                           TABLE   .1
                                   3 +   TL.DAT    =     TT.USE                                                 TABLE   .1
                                   4 +   TI.DAT    =     TT.SCR                                                 TABLE   .1
                                  26 +   T.FILE   =     TS.DAT                                                  TABLE   .1
            27  00000000000000000002     TS.BLK   CON    2                                                      TABLE   .1
            30  00000000000000000000     TS.ENT   CON                                                           TABLE   .1
                                  14 +   TT.COMM   =     TP.DO                                                  TABLE   .1
                                   3 +   TT.FILL   =     TT.USE                                                 TABLE   .1
                                  15 +   TT.LINK   =     TS.EQU                                                 TABLE   .1
                                   4 +   TT.XFIL   =     TT.SCR                                                 TABLE   .1
                                  15 +   TN.EXT    =     TP.EQU                                                 TABLE   .1
                                   5 +   TN.BLK    =     TS.CON                                                 TABLE   .1
            31  00000000000000000000     T.DLBUF CON                                                            TABLE   .1
            32  00000000000000000000     T.END   CON                                                            TABLE   .1
            33                           SIZES    BSS    0           SIZES OF TABLES                             TABLES    230
                                                                                                                 TABLES    231
                                         SIZES    HERE                                                           TABLES    232
            33  00000000000000000033 +   T=SB    CON    N.TABLES+T.SB                                           SIZES   .1
                                  33 +   T=LGOB   =     N.TABLES+T.LGOB                                         SIZES   .1
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    11
        /DEF  SYMBOL DEFINITIONS.                                     TABLES
  
            34  00000000000000000034 +   TT=REF   CON    N.TABLES+TT.REF                                        SIZES   .1
            35  00000000000000000035 +   TT=LF    CON    N.TABLES+TT.LF                                         SIZES   .1
            36  00000000000000000036 +   TT=USE   CON    N.TABLES+TT.USE                                        SIZES   .1
            37  00000000000000000037 +   TT=SCR   CON    N.TABLES+TT.SCR                                        SIZES   .1
            40  00000000000000000040 +   TS=CON   CON    N.TABLES+TS.CON                                        SIZES   .1
            41  00000000000000000041 +   TS=SYM   CON    N.TABLES+TS.SYM                                        SIZES   .1
            42  00000000000000000042 +   TA=NAM   CON    N.TABLES+TA.NAM                                        SIZES   .1
            43  00000000000000000043 +   TS=STN   CON    N.TABLES+TS.STN                                        SIZES   .1
            44  00000000000000000044 +   T=LNT   CON    N.TABLES+T.LNT                                          SIZES   .1
            45  00000000000000000045 +   TP=DIM   CON    N.TABLES+TP.DIM                                        SIZES   .1
            46  00000000000000000046 +   TP=CIDM  CON    N.TABLES+TP.CIDM                                       SIZES   .1
            47  00000000000000000047 +   TP=DO    CON    N.TABLES+TP.DO                                         SIZES   .1
            50  00000000000000000050 +   TS=EQU   CON    N.TABLES+TS.EQU                                        SIZES   .1
                                  50 +   TP=EQU    =     N.TABLES+TP.EQU                                        SIZES   .1
            51  00000000000000000051 +   TP=FMT   CON    N.TABLES+TP.FMT                                        SIZES   .1
            52  00000000000000000052 +   TT=ASF   CON    N.TABLES+TT.ASF                                        SIZES   .1
            53  00000000000000000053 +   TT=PAR   CON    N.TABLES+TT.PAR                                        SIZES   .1
            54  00000000000000000054 +   T=VDIM  CON    N.TABLES+T.VDIM                                         SIZES   .1
            55  00000000000000000055 +   TP=NLST  CON    N.TABLES+TP.NLST                                       SIZES   .1
            56  00000000000000000056 +   TP=APL   CON    N.TABLES+TP.APL                                        SIZES   .1
            57  00000000000000000057 +   TP=ILI   CON    N.TABLES+TP.ILI                                        SIZES   .1
            60  00000000000000000060 +   TA=PRO   CON    N.TABLES+TA.PRO                                        SIZES   .1
            61  00000000000000000061 +   TS=DAT   CON    N.TABLES+TS.DAT                                        SIZES   .1
                                  36 +   TL=DAT    =     N.TABLES+TL.DAT                                        SIZES   .1
                                  37 +   TI=DAT    =     N.TABLES+TI.DAT                                        SIZES   .1
                                  61 +   T=FILE   =     N.TABLES+T.FILE                                         SIZES   .1
            62  00000000000000000062 +   TS=BLK   CON    N.TABLES+TS.BLK                                        SIZES   .1
            63  00000000000000000063 +   TS=ENT   CON    N.TABLES+TS.ENT                                        SIZES   .1
                                  47 +   TT=COMM   =     N.TABLES+TT.COMM                                       SIZES   .1
                                  36 +   TT=FILL   =     N.TABLES+TT.FILL                                       SIZES   .1
                                  50 +   TT=LINK   =     N.TABLES+TT.LINK                                       SIZES   .1
                                  37 +   TT=XFIL   =     N.TABLES+TT.XFIL                                       SIZES   .1
                                  50 +   TN=EXT    =     N.TABLES+TN.EXT                                        SIZES   .1
                                  40 +   TN=BLK    =     N.TABLES+TN.BLK                                        SIZES   .1
            64  00000000000000000064 +   T=DLBUF CON    N.TABLES+T.DLBUF                                        SIZES   .1
            65  00000000000000000065 +   T=END   CON    N.TABLES+T.END                                          SIZES   .1
                                                                                                                 TABLES    233
                                                  LIST   *           *SIZES*                                     TABLES    234
            66                           RATES    BSS    0           EXPANSION RATES OF TABLES                   TABLES    235
                                                  LIST   G           *RATES*                                     TABLES    236
                                                                                                                 TABLES    237
                                         RATES    HERE                                                           TABLES    238
            66  17137510461520000103              VFD    60/0.0364423065B+000103B     (SB   )                   RATES   .1
                                        ,                                                                       RATES   .1
            67  17137510461520000000              VFD    60/0.0364423065B+000000B     (REF  )                   RATES   .1
                                        ,                                                                       RATES   .1
            70  17144615277020000000              VFD    60/0.0461527702B+000000B     (LF   )                   RATES   .1
                                        ,                                                                       RATES   .1
            71  17135566345200000000              VFD    60/0.0267316250B+000000B     (USE  )                   RATES   .1
                                        ,                                                                       RATES   .1
            72  17135566345200000000              VFD    60/0.0267316250B+000000B     (SCR  )                   RATES   .1
                                        ,                                                                       RATES   .1
            73  17135566345200000000              VFD    60/0.0267316250B+000000B     (CON  )                   RATES   .1
                                        ,                                                                       RATES   .1
            74  17144615277020000200              VFD    60/0.0461527702B+000200B     (SYM  )                   RATES   .1
                                        ,                                                                       RATES   .1
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    12
        /DEF  SYMBOL DEFINITIONS.                                     TABLES
  
            75  17135566345200000100              VFD    60/0.0267316250B+000100B     (NAM  )                   RATES   .1
                                        ,                                                                       RATES   .1
            76  17137510461520000040              VFD    60/0.0364423065B+000040B     (STN  )                   RATES   .1
                                        ,                                                                       RATES   .1
            77  17137510461520000000              VFD    60/0.0364423065B+000000B     (LNT  )                   RATES   .1
                                        ,                                                                       RATES   .1
           100  17117510461500000002              VFD    60/0.0075104615B+000002B     (DIM  )                   RATES   .1
                                        ,                                                                       RATES   .1
           101  17117510461500000000              VFD    60/0.0075104615B+000000B     (CIDM )                   RATES   .1
                                        ,                                                                       RATES   .1
           102  17127510461500000000              VFD    60/0.0172211432B+000000B     (DO   )                   RATES   .1
                                        ,                                                                       RATES   .1
           103  17117510461500000000              VFD    60/0.0075104615B+000000B     (EQU  )                   RATES   .1
                                        ,                                                                       RATES   .1
           104  17135566345200000000              VFD    60/0.0267316250B+000000B     (FMT  )                   RATES   .1
                                        ,                                                                       RATES   .1
           105  17127510461500000000              VFD    60/0.0172211432B+000000B     (ASF  )                   RATES   .1
                                        ,                                                                       RATES   .1
           106  17135566345200000000              VFD    60/0.0267316250B+000000B     (PAR  )                   RATES   .1
                                        ,                                                                       RATES   .1
           107  17117510461500000000              VFD    60/0.0075104615B+000000B     (VDIM )                   RATES   .1
                                        ,                                                                       RATES   .1
           110  17117510461500000000              VFD    60/0.0075104615B+000000B     (NLST )                   RATES   .1
                                        ,                                                                       RATES   .1
           111  17135566345200000000              VFD    60/0.0267316250B+000000B     (APL  )                   RATES   .1
                                        ,                                                                       RATES   .1
           112  17135566345200000000              VFD    60/0.0267316250B+000000B     (ILI  )                   RATES   .1
                                        ,                                                                       RATES   .1
           113  17135566345200000004              VFD    60/0.0267316250B+000004B     (PRO  )                   RATES   .1
                                        ,                                                                       RATES   .1
           114  17117510461500000000              VFD    60/0.0075104615B+000000B     (DAT  )                   RATES   .1
                                        ,                                                                       RATES   .1
           115  17117510461500000002              VFD    60/0.0075104615B+000002B     (BLK  )                   RATES   .1
                                        ,                                                                       RATES   .1
           116  17117510461500000000              VFD    60/0.0075104615B+000000B     (ENT  )                   RATES   .1
                                        ,                                                                       RATES   .1
           117  17127510461500000000              VFD    60/0.0172211432B+000000B     (DLBUF)                   RATES   .1
                                        ,                                                                       RATES   .1
           120  00000000000000000000              VFD    60/0.0000000000B+000000B     (END  )                   RATES   .1
                                        ,                                                                       RATES   .1
                                                                                                                 TABLES    239
                                                  LIST   *           *RATES*                                     TABLES    240
                                                                                                                 FEAT155F  148
                                        *         NOTE -- THE *PTSN* TABLE NAME WORD FOR *TT.END* WILL BE ZEROED FEAT155F  149
                                        *         BY *IDP* FOR USE AS AN END OF TABLE MARK.                      FEAT155F  150
                                                                                                                 FEAT155F  151
           121                           PTSN     BSS    0           TABLE NAMES (-H- FMT) IN *TEST* MODE ONLY   FEAT155F  152
                                                  ENTRY  PTSN                                                    FEAT155F  153
                                                  LIST   G                                                       FEAT155F  154
                                                                                                                 FEAT155F  155
                                         PTSN     HERE                                                           FEAT155F  156
                                                                                                                 FEAT155F  157
                                                  LIST   *           TABLE NAMES                                 FEAT155F  158
                                                                                                                 TABLES    241
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    13
        /DEF  SYMBOL DEFINITIONS.                                     SYM=DEFS
  
                                        **        TG. -  COMPILER INTERNAL TAG DEFINITIONS.                      TABLES    243
                                        *                                                                        TABLES    244
                                        *         VALUES MAY NOT BE CHANGED WITHOUT CORRESPONDING CHANGES TO --  TABLES    245
                                        *                *KTX*  --   KONVERT TAG TO XTERNAL FORMAT.              TABLES    246
                                        *                *REL*  --   RELOCATE TAG.                               TABLES    247
                                        *         CODE IN COMPILER ASSUMES THAT NO TAG IS LESS THAN 2S12, NOR    TABLES    248
                                        *                GREATER THAN (40S12-1).                                 TABLES    249
                                        *         THE ORDER OF THESE CELLS IS ASSUMED BY *IST*, AND OTHERS.      TABLES    250
                                                                                                                 TABLES    251
                                                                                                                 TABLES    252
                                                                                                                 TABLES    253
           121                           TG.BASE  BSS    0                                                       TABLES    254
                                                                                                                 TABLES    255
           121  00000000000000200000     TG.VAR   CON    C.VAR,C.VAR+C.DIF                                       TABLES    256
           122  00000000000000220000
           123  00000000000000240000     TG.SN    CON    C.STAT                                                  TABLES    257
  
  
  
  
           124  00000000000000260000     TG.PRO   CON    C.PRO                                                   TABLES    259
                                 124 +   TG.APL   EQU    TG.PRO      **** TEMP ****                              TABLES    260
                                                                                                                 TABLES    261
           125  00000000000000300000     TG.VDIM  CON    C.VDIM                                                  TABLES    262
                                                                                                                 TABLES    263
           126  00000000000000320000     TG.TEM   CON    C.TEM                                                   TABLES    264
                                                                                                                 TABLES    267
                                 126 +   TG.END   EQU    *-1                                                     TABLES    268
  
  
  
  
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    14
        /DEF  SYMBOL DEFINITIONS.                                     CHARMAP 
  
                                        **        CHARMAP - CHARACTER MAPPING FOR OUTPUT OF ORIGINAL SYMBOL.     TABLES    271
                                        *                                                                        TABLES    272
                                        *         MAPPING FOR CHARACTERS/OPERATORS USED THRU-OUT THE COMPILER.   TABLES    273
                                        *                                                                        TABLES    274
                                        *         ANY ONE WISHING TO CHANGE THESE EQUS SHOULD LOOK AT            TABLES    275
                                        *         GENERAL LEXICAL ROUTINES LIKE --                               TABLES    276
                                        *         A.  TAB - NORMALIZE STATEMENT.                                 TABLES    277
                                        *         B.  ASN - ASSEMBLE NUMBER.                                     TABLES    278
                                        *         C.  ASV - ASSEMBLE VARIABLE.(NOTE SPECIAL MASK FOR KLUDGED 64  TABLES    279
                                        *                   CHARACTER SET).                                      TABLES    280
                                        *                                                                        TABLES    281
                                        *         ALSO NOTE ROUTINES LIKE --                                     TABLES    282
                                        *                                                                        TABLES    283
                                        *         A.  PAR - PARSE STATEMENT.                                     TABLES    284
                                        *         B.  TRE,TRV,TNK,TSF - TRANSLATE ELEMENT.                       TABLES    285
                                        *         C.  LST, IOL, ETC. -- I/O LISTS.                               TABLES    286
                                        *                                                                        TABLES    287
                                        *         MOST OF MAPPING CRITERIA IS FOR CONVENIENCE OF JUMP TABLES AND TABLES    288
                                        *         PROCESSING OF THE GIVEN OPERATOR WITH THESE ROUTINES.          TABLES    289
                                                                                                                 TABLES    290
                                                                                                                 TABLES    291
                                                  MACRO  CHMAP,SYMBOL,DPC,OPERS                                  TABLES    292
                                         .3       IFC    EQ, DPC                                                 TABLES    293
                                                  CON    0                                                       TABLES    294
                                         .3       ELSE                                                           TABLES    295
                                         A        MICRO  1,, DPC                                                 TABLES    296
                                         B        MICCNT A                                                       TABLES    297
                                         B        DECMIC B                                                       TABLES    298
                                                  VFD    42/"B"L_DPC,18/DUC.OPERS                                TABLES    299
                                         .3       ENDIF                                                          TABLES    300
                                         CHMAP    ENDM                                                           TABLES    301
                                                                                                                 TABLES    302
                                                                                                                 TABLES    303
                                                  MACRO  CH=,SYMBOL                                              TABLES    304
                                                  BSS    0                                                       TABLES    305
                                         CH=      ENDM                                                           TABLES    306
                                                                                                                 TABLES    307
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    15
        /DEF  SYMBOL DEFINITIONS.                                     CHARMAP 
  
                                        **        CHARMAP - CHARACTER MAPPING FOR PRINTING/ DISPLAYING.          TABLES    309
                                                                                                                 TABLES    310
                                        *                                                                        TABLES    311
                                        *         *FORTRAN* DEFINED OPERATORS.                                   TABLES    312
                                                                                                                 TABLES    313
                                 127 +   CHARMAP  EQU    *-O.DEF                                                 TABLES    314
           127  46051723460000000000 X   O.EOS    CHMAP  -EOS-       END OF STATEMENT                            TABLES    315
           130  54101714145400000000 X   O.HOLL   CHMAP  =HOLL=      ALL HOLLERITH CONSTANTS                     TABLES    316
           131  00000000000000000000     O.CONS   CHMAP              ALL NUMERIC STRINGS                         TABLES    317
           132  00000000000000000000     O.VAR    CHMAP              ALL ALPHANUMERIC STRINGS                    TABLES    318
                                                                                                                 TABLES    319
           133                           O.SEP    CH=                DEFINITION OF START OF SEPARATORS           TABLES    320
           133  45000000000000000000 X   O.PL     CHMAP  +,BTH       ORDER OF O.PL TO O.SLASH MAY NOT BE CHANGED TABLES    321
           134  46000000000000000000 X   O.MIN    CHMAP  -,BTH                                                   TABLES    322
           135                           O.MULT   CH=                FOR CLARITY IN PARSER                       TABLES    323
           135  47000000000000000000 X   O.STAR   CHMAP  *,BTH                                                   TABLES    324
           136                           O.DIV    CH=                FOR CLARITY IN PARSER                       TABLES    325
           136  50000000000000000000 X   O.SLASH  CHMAP  /,BTH                                                   TABLES    326
                                                                                                                 TABLES    327
           137                           O.(      CH=                                                            TABLES    328
           137  51000000000000000000 X   O.LP     CHMAP  ()(                                                     TABLES    329
           140                           O.)      CH=                                                            TABLES    330
           140  52000000000000000000 X   O.RP     CHMAP  )                                                       TABLES    331
           141  54000000000000000000 X   O.=      CHMAP  =,BTH                                                   TABLES    332
           142                           O.SDEF   CH=                START OF SPECIAL OPERATORS                  TABLES    333
                                                                                                                 TABLES    334
           142  56000000000000000000 X   O.COMMA  CHMAP  (,),2ND                                                 TABLES    335
           143  57142457000000000000 X   O.LT     CHMAP  .LT.,BTH                                                TABLES    336
           144  57140557000000000000 X   O.LE     CHMAP  .LE.,BTH                                                TABLES    337
           145  57052157000000000000 X   O.EQ     CHMAP  .EQ.,BTH                                                TABLES    338
           146  57160557000000000000 X   O.NE     CHMAP  .NE.,BTH                                                TABLES    339
           147  57070557000000000000 X   O.GE     CHMAP  .GE.,BTH                                                TABLES    340
           150  57072457000000000000 X   O.GT     CHMAP  .GT.,BTH                                                TABLES    341
           151  57161724570000000000 X   O.NOT    CHMAP  .NOT.,2ND                                               TABLES    342
           152  57011604570000000000 X   O.AND    CHMAP  .AND.,BTH                                               TABLES    343
           153  57301722570000000000 X   O.XOR    CHMAP  .XOR.,BTH                                               TABLES    344
           154  57172257000000000000 X   O.OR     CHMAP  .OR.,BTH                                                TABLES    345
           155  47470000000000000000 X   O.EXP    CHMAP  **,BTH                                                  TABLES    346
           156  25160122314600000000 X   O.UMIN   CHMAP  UNARY-,2ND                                              TABLES    347
           157  57242225055700000000 X   O.TRUE   CHMAP  .TRUE.                                                  TABLES    348
           160  57060114230557000000 X   O.FALSE  CHMAP  .FALSE.                                                 TABLES    349
                                                                                                                 TABLES    350
           161                           O.FLP    CH=                FUNCTION LEFT PAREN OPERATOR                TABLES    351
           161                           O.ILP    CH=                INLINE   LEFT PAREN OPERATOR                TABLES    352
           161                           O.ALP    CH=                ASF      LEFT PAREN OPERATOR                TABLES    353
           161                           O.S(     CH=                AILIAS FOR O.SLP                            TABLES    354
           161  16232404000000000000 X   O.SLP    CHMAP  NSTD                                                    TABLES    355
                                                                                                                 TABLES    356
                                        *         *PARSER* DEFINED OPERATORS.                                    TABLES    357
                                                                                                                 TABLES    358
           162  57015757165700000000 X   O.ANDN   CHMAP  .A..N.,BTH                                              TABLES    359
           163  57305757165700000000 X   O.XORN   CHMAP  .X..N.,BTH                                              TABLES    360
           164  57175757165700000000 X   O.ORN    CHMAP  .O..N.,BTH                                              TABLES    361
           165  53000000000000000000 X   O.$      CHMAP  $                                                       TABLES    362
           166  57000000000000000000 X   O.PERIOD CHMAP  .                                                       TABLES    363
           167  01230600000000000000 X   O.ASFA   CHMAP  ASF                                                     TABLES    364
           170  11060000000000000000 X   O.IF     CHMAP  IF,1ST                                                  TABLES    365
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    16
        /DEF  SYMBOL DEFINITIONS.                                     CHARMAP 
  
           171  23200103050000000000 X   O.SPACE  CHMAP  SPACE                                                   TABLES    366
           172  04170205071116000000 X   O.DOB    CHMAP  DOBEGIN,1ST DO BEGIN OPERATOR                           TABLES    367
           173  04170314172305000000 X   O.DOC    CHMAP  DOCLOSE,BTH DO CONCLUSION OPERATOR                      TABLES    368
           174  04170314172305000000 X   O.DOC1   CHMAP  DOCLOSE,1ST   -    -   -      -                         TABLES    369
           175  04170314172305000000 X   O.DOC2   CHMAP  DOCLOSE       -    -   -      -                         TABLES    370
           176  01223146141704000000 X   O.ARY    CHMAP  ARY-LOD,2ND SUBSCRIPTED ARRAY LOAD OPERATOR             TABLES    371
           177  02232300000000000000 X   O.BSS    CHMAP  BSS         BSS OPERATOR                                TABLES    372
           200  17160501220700000000 X   O.ARG1   CHMAP  ONEARG,2ND  SINGLE ARGUMENT                             TABLES    373
           201  24271701220700000000 X   O.ARG2   CHMAP  TWOARG,BTH  DOUBLE ARGUMENT                             TABLES    374
           202  22122515200000000000 X   O.RJ     CHMAP  RJUMP       RETURN JUMP OPERATOR                        TABLES    375
           203  15221305302400000000 X   O.MXP    CHMAP  MRKEXT      EXTERNAL MARK OPERATOR                      TABLES    376
           204  23250222000000000000 X   O.NTR    CHMAP  SUBR        SUBPROGRAM ENTRY/EXIT                       FCC1558X   10
           205  22011606000000000000 X   O.RANF   CHMAP  RANF,BTH                                                TABLES    378
           206  23100620350000000000 X   O.SHF    CHMAP  SHFP2,1ST   INTEGER SHIFT (INTEGER MULTIPLY **2)        TABLES    379
           207  16174617200000000000 X   O.NOOP   CHMAP  NO-OP       NULLIFIED OPERATOR                          TABLES    380
           210  01232311071600000000 X   O.ASSN   CHMAP  ASSIGN      ASSIGN OPERATOR                             TABLES    381
           211  07172417300000000000 X   O.GOTO   CHMAP  GOTOX       GO TO OPERATOR                              TABLES    382
           212  07172417030000000000 X   O.GOTC   CHMAP  GOTOC,1ST                                               TABLES    383
           213  01230716071700000000 X   O.GOAS   CHMAP  ASGNGO,1ST  ASSIGNED GO TO OPERATOR                     TABLES    384
           214  15170405031716000000 X   O.MODC   CHMAP  MODECON,2ND MODE CONVERSION OPERATOR                    TABLES    385
           215  01201425070000000000 X   O.PLUG   CHMAP  APLUG,BTH   AP-LIST PLUG                                TABLES    386
           216  11170417030000000000 X   IO.DOC   CHMAP  IODOC                                                   TABLES    387
           217  11170417020000000000 X   IO.DOB   CHMAP  IODOB                                                   TABLES    388
           220  17242200000000000000 X   O.OTR    CHMAP  OTR                                                     FEAT155G   33
           221  30151124000000000000 X   O.XMIT   CHMAP  XMIT,1ST                                                FCC2194     8
                                                                                                                 TABLES    392
                                                                                                                 TABLES    393
                                                  POPMAC CH=                                                     TABLES    394
                                                  POPMAC CHMAP                                                   TABLES    395
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    17
        /DEF  SYMBOL DEFINITIONS.                                     MICROS
  
                                        ****      REGFILE - REGISTER FILE FOR PASS 2 PROCESSING OF AN            TABLES    397
                                        *                   INSTRUCTION GROUP.                                   TABLES    398
                                        *                                                                        TABLES    399
                                                                                                                 TABLES    400
                                                                                                                 TABLES    401
  
  
  
  
                                        **        DEFREG - DEFINE CELLS FOR REGISTER TYPE AND REGISTERS TO       TABLES    403
                                        *         USE FOR *TYPE* DEFINED.                                        TABLES    404
                                        *                                                                        TABLES    405
                                        *         1ST WORD =                                                     TABLES    406
                                        **T TYPE  6/INST, 18/MASK COUNT, 18/NUMBER, 18/0T0                       TABLES    407
                                        *         2ND WORD = 3RD WORD =                                          TABLES    408
                                        *   REGS  N/R.XX-RGFILE,.......N/R.N-REGFILE                             TABLES    409
                                        *         NOTE -                                                         TABLES    410
                                        *         REGISTERS ARE ASSIGNED FOR RIGHT TO LEFT.                      TABLES    411
                                                                                                                 TABLES    412
                                                                                                                 TABLES    413
                                                  MACRO  DEFREG,TYPE,INST,REGS,TYP                               TABLES    414
                                         TYPE     EQU    *                                                       TABLES    415
                                         B        SET    0                                                       TABLES    416
                                         A        MICRO                                                          TABLES    417
                                        .1        IRP    REGS                                                    TABLES    418
                                         B        SET    B+1                                                     TABLES    419
                                        .1        IRP    REGS                                                    TABLES    420
                                         D        SET    60/B                                                    TABLES    421
                                                                                                                 TABLES    422
                                        .2        IRP    REGS                                                    TABLES    423
                                         A        MICRO  1,, "A"D/R.REGS-RGFILE,                                 TABLES    424
                                        .2        IRP    REGS                                                    TABLES    425
                                                  VFD    6/INST,18/D,18/B,18/TYP                                 TABLES    426
                                                  VFD    "A"                                                     TABLES    427
                                                  VFD    "A"                                                     TABLES    428
                                         DEFREG   ENDM                                                           TABLES    429
  
  
  
  
                                                                                                                 TABLES    431
           222                           RG=TYP   BSS    0           BASE ADDRESS                                TABLES    432
           222  00 X                     RG=BADR  DEFREG SB=BKS9,(B1,B2,B3,B4,B5),REG.B-RGFILE                   TABLES    433
           225  00 X                     RG=INTR  DEFREG SX=XKS9,(X0,X6,X7),REG.X-RGFILE                         TABLES    434
           230  00 X                     RG=TEMP  DEFREG SX=XKS9,(X0,X1,X2,X3,X4,X5),REG.X-RGFILE                TABLES    435
           233  00 X                     RG=ADR   DEFREG SB=BKS9,(B1,B2,B3,B4,B5),REG.B-RGFILE                   TABLES    436
           236  00 X                     RG=LOAD  DEFREG SA=BKS9,(X1,X2,X3,X4,X5),REG.A-RGFILE                   TABLES    437
           241  00 X                     RG=LODX  DEFREG SX=BKS9,(X1,X2,X3,X4,X5),REG.X-RGFILE                   TABLES    438
           244  00 X                     RG=SET   DEFREG SX=XKS9,(X0,X1,X2,X3,X4,X5),REG.X-RGFILE                TABLES    439
           247  00 X                     RG=STOR  DEFREG SX=BKS9,(X7,X6),REG.X-RGFILE                            TABLES    440
           252  00 X                     RG=APL   DEFREG SA=BKS9,(A3,A2,A1)                                      TABLES    441
                                                  POPMAC DEFREG                                                  TABLES    442
                                        ****                                                                     TABLES    443
                                                                                                                 TABLES    444
           255                           REGFILE  BSS    0           STARTING ADDRESS FOR REGISTER FILE          TABLES    445
                                                                                                                 TABLES    446
           255                           REGB     BSS    0           *B* REGISTERS                               TABLES    447
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    18
        /DEF  SYMBOL DEFINITIONS.                                     RUSE
  
           255  00000000000000000000     RB0      CON    0                                                       TABLES    448
           256  00000000000000000000     RB1      CON    0                                                       TABLES    449
           257  00000000000000000000     RB2      CON    0                                                       TABLES    450
           260  00000000000000000000     RB3      CON    0                                                       TABLES    451
           261  00000000000000000000     RB4      CON    0                                                       TABLES    452
           262  00000000000000000000     RB5      CON    0                                                       TABLES    453
           263  00000000000000000000     RB6      CON    0                                                       TABLES    454
           264  00000000000000000000     RB7      CON    0                                                       TABLES    455
                                                                                                                 TABLES    456
           265                           REGA     BSS    0           *A* REGISTERS                               TABLES    457
           265  00000000000000000000     RA0      CON    0                                                       TABLES    458
           266  00000000000000000000     RA1      CON    0                                                       TABLES    459
           267  00000000000000000000     RA2      CON    0                                                       TABLES    460
           270  00000000000000000000     RA3      CON    0                                                       TABLES    461
           271  00000000000000000000     RA4      CON    0                                                       TABLES    462
           272  00000000000000000000     RA5      CON    0                                                       TABLES    463
           273  00000000000000000000     RA6      CON    0                                                       TABLES    464
           274  00000000000000000000     RA7      CON    0                                                       TABLES    465
                                                                                                                 TABLES    466
           275                           REGX     BSS    0           *X* REGISTERS                               TABLES    467
           275  00000000000000000000     RX0      CON    0                                                       TABLES    468
           276  00000000000000000000     RX1      CON    0                                                       TABLES    469
           277  00000000000000000000     RX2      CON    0                                                       TABLES    470
           300  00000000000000000000     RX3      CON    0                                                       TABLES    471
           301  00000000000000000000     RX4      CON    0                                                       TABLES    472
           302  00000000000000000000     RX5      CON    0                                                       TABLES    473
           303  00000000000000000000     RX6      CON    0                                                       TABLES    474
           304  00000000000000000000     RX7      CON    0                                                       TABLES    475
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    19
        /DEF  SYMBOL DEFINITIONS.                                     TEMPFILE
  
                                        **        TEMPFILE - TEMPORARY REGISTER FILE USED IN EXPANSION OF A      TABLES    477
                                        *         SKELETON THAT REQUIRES TEMPORARY REGISTERS.                    TABLES    478
                                                                                                                 TABLES    479
                                                                                                                 TABLES    480
           305                    20     REG=T    BSSZ   20B                                                     TABLES    481
  
  
  
  
                                        **        BFILE - *B* REGISTER FILE, USED FOR ASSIGNING *B* REGISTERS    TABLES    483
                                        *         DURING THE EXPANSION OF A SKELETON.                            TABLES    484
                                                                                                                 TABLES    485
                                                                                                                 TABLES    486
           325                    20     REG=B    BSSZ   20B                                                     TABLES    487
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    20
        /DEF  SYMBOL DEFINITIONS.                                     TEMPS 
  
                                        ****      DEFINITIONS OF CELL/VARIABLE S USED BY *TS* COMPILER           TABLES    489
                                                                                                                 TABLES    490
                                                                                                                 TABLES    491
           345                     3     ARGCOMA  BSSZ   L.PSTACK    USED BY PARSE TO INDICATE MODE              TABLES    492
                                 346 +   ARGMODE  EQU    ARGCOMA+1   OF CURRENT ARGUMENT MODE AND NUMBER         TABLES    493
                                                                     OF ARGUMENTS FOR ARGMODE OPERATOR           TABLES    494
                                                                                                                 TABLES    495
                                 347 +   ARGMIS   EQU    ARGCOMA+2   MISCELLANEOUS CELL USED IN CONJUNCTION WITH TABLES    496
                                                                     ARGMODE AND ARGCOMA.                        TABLES    497
                                                                                                                 TABLES    498
           350  00000000000000000000     ATTR     DATA   0           ATTRIBUTE BIT CELL FOR PASS 2 TAG. SET      TABLES    499
                                                                     DURING TRANSLATION FROM TAB FORM TO TAG     TABLES    500
                                                                     FORM IN PARSER.                             TABLES    501
                                                                                                                 TABLES    502
           351                     1     ASFLEN   BSS    1           REAL LENGTH OF TT.ASF -- IT IS THE LENGTH   TABLES    503
                                                                     WHEN THE FIRST EXECUTABLE IS FOUND, AND IS  TABLES    504
                                                                     USED TO SHRINK THE TABLE BACK TO ITS ACTUAL TABLES    505
                                                                     SIZE AFTER WE ARE FINISHED PARSING AN ASF   TABLES    506
                                                                     REFERENCE.                                  TABLES    507
                                                                                                                 TABLES    508
                                  10     N.BLK    EQU    8           NO. OF FIXED BLOCKS PER PROGRAM UNIT        FEAT126A   80
           352                    12     BA.PRO   BSS    N.BLK+2                                                 FCC0709     6
                                 353 +   BA.CON   EQU    BA.PRO+1    BASE ADDRESS OF CONSTANTS                   TABLES    510
                                 354 +   BA.FMT   EQU    BA.PRO+2    BASE ADDRESS OF FORMATS                     TABLES    511
                                 355 +   BA.TEM   EQU    BA.PRO+3    BASE ADDRESS OF TEMPORARIES/INDIRECTS       TABLES    512
                                 356 +   BA.APL   EQU    BA.PRO+4    BASE ADDRESS OF ACTUAL PARAMETER LISTS      TABLES    513
                                 357 +   BA.NLST  EQU    BA.PRO+5    BASE ADDRESS OF NAMELIST GROUP DEFS         TABLES    514
                                 360 +   BA.VAR   EQU    BA.PRO+6    BASE ADDRESS OF VARIABLES                   TABLES    515
                                 361 +   BA.BUF   EQU    BA.PRO+7    BASE ADDRESS OF BUFFERS (IF ANY)            TABLES    516
                                 362 +   LOCAL    EQU    BA.PRO+8    LOCAL LENGTH OF PROGRAM-UNIT                TABLES    517
                                 363 +   COMSIZ   EQU    BA.PRO+9    LENGTH OF SCM COMMON                        FCC0709     7
                                                                                                                 TABLES    518
           364  00000000000000000000     BINIO    CON    0           -1  = TT.LF TABLE IS ON DISK                TABLES    519
                                                                      0  = TT.LF TABLE IS IN SCM                 TABLES    520
                                                                     +1  = TT.LF TABLE IS IN LCM                 TABLES    521
                                                                                                                 TABLES    522
           365  40000000000000000000     BINOUT   DATA   1S59        ACTUAL BINARY OUTPUT SWITCH                 TABLES    523
                                                                     NEGATIVE = BINARY WILL BE PRODUCED FOR THIS TABLES    524
                                                                     PROGRAM-UNIT.                               TABLES    525
                                                                     POSITIVE = INHIBIT OBJECT CODE PRODUCTION   TABLES    526
                                                                           FOR THIS PROGRAM-UNIT.                TABLES    527
                                                                                                                 TABLES    530
           366  00000000000000000000     BIT      DATA   0           USED AS A FLAG TO *CIR(, *BIT* HAS 3        TABLES    531
                                                                     DIFFERENT VALUES <0,0,>0.  IF *BIT* <0      TABLES    532
                                                                     AND *CIR* FOUND THE TAG FOR THE READ WAS    TABLES    533
                                                                     IN AN X REGISTER IT WILL EXIT WITH THE      TABLES    534
                                                                     ORIGINAL X REGISTER AND COMPILE NO INSTRUCT TABLES    535
                                                                     ION. IF BIT IS ANY OTHER VALUE *CIR* WILL   TABLES    536
                                                                     COMPILE A 10IJ0 INSTRUCTION.                TABLES    537
                                                                                                                 TABLES    538
           367  00000000000000000000     CALL     DATA   0           FLAG FOR *TSF* TO INDICATE TYPE OF FUNCTION TABLES    539
                                                                     ALLOWED TO TRANSLATE.                       TABLES    540
           370  00000000000000000000     CALLER   DATA   0           USED BY *CAI* TO INDICATE WHETHER *CALLER*  TABLES    541
                                                                     HAS BEEN CALLED BY *CAI* (SEE WRITE-UP OF   TABLES    542
                                                                     *CAI*)                                      TABLES    543
                                                                                                                 TABLES    544
           371  00000000000000000000     CARDS    DATA   0           NUMBER OF SOURCE CARDS                      TABLES    545
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    21
        /DEF  SYMBOL DEFINITIONS.                                     TEMPS 
  
                                                                                                                 TABLES    546
           372  00000000000000000000     CCNT     DATA   0           NR OF CONTINUATION CARDS IN CURRENT STMT    FCC1328X   45
                                        *                              .ZR. IF NONE                              FCC1328X   46
                                                                                                                 FCC1328X   47
           373  00000000000000000000     COMMENT  DATA   0           .NZ. IF LINE TO PROCESS LISTING REQUEST     FCC1328X   48
                                        *                                 FOR IS A COMMENT LINE, ELSE .ZR.       FCC1328X   49
                                        *                                 THIS FLAG IS ONLY USED BETWEEN *RNS*   FCC1328X   50
                                        *                                 AND *PLR* AND WAS REQUIRED BECAUSE     FCC1328X   51
                                        *                                 OF *HEADER DELAY* LOGIC...KLUGE...     FCC1328X   52
                                        *                                 *PLR* MUST PROCESS COMMENT LINES SO    FCC1328X   53
                                        *                                 THAT THEY WILL GET SAVED IN DEFERRED   FCC1328X   54
                                        *                                 LIST BUFFER DURING *HEADER DELAY*      FCC1328X   55
                                        *                                 MODE, BUT WE DONT WANT THEM SAVED IF   FCC1328X   56
                                        *                                 L=0 OR SL=0 OR C/-LIST,NONE ACTIVE.    FCC1328X   57
                                                                                                                 FCC1328X   58
                                                                                                                 TABLES    548
                                                                                                                 TABLES    550
           374  00000000000000000000     CONF     DATA   0,0         =0, NO CONSTANT FOUND IN CURRENT TURPLE     TABLES    551
                                                                     BEING PROCESSED BY *POP*                    TABLES    552
                                                                                                                 TABLES    555
           376  00000000000000000000     CSLIST   CON    0           =1S59 IF C/-LIST,ALL PENDING                FEAT126B   19
                                        *                            =  1  IF C/-LIST,NONE PENDING               FEAT126B   20
                                        *                            = +0  IF C/-LIST DIRECTIVE DID NOT OCCUR    FEAT126B   21
                                                                                                                 FEAT126B   22
           377  00000000000000000000     CSNTAG   DATA   0           CURRENT STATEMENT NUMBER TAG.  SET BY *GSN* TABLES    556
                                                                                                                 TABLES    557
           400  00000000000000000000     CSSTMT   CON    0           =.NZ. IF C/-LINE PENDING, ELSE .ZR.         FEAT126B   23
                                                                                                                 FEAT126B   24
           401  00000000000000000000     CSYMBOL  DATA   0           DPC FOR CURRENT SYMBOL BEING TRANSLATED BY  TABLES    558
                                                                     PARSER.                                     TABLES    559
                                                                                                                 TABLES    560
           402  00000000000000000000     BLNKCOM  DATA   0           BLOCK NUMBER OF BLANK COMMON                FCC0583     7
                                                                                                                 FCC0583     8
           403  00000000000000000000     DOLMR    DATA   0           *DO* LIMIT      - REGISTER                  TABLES    567
           404  00000000000000000000     DOIN     DATA   0           *DO* INCREMENT  - TAG                       TABLES    568
           405  00000000000000000000     DOIX     DATA   0           *DO* INDEX      - TAG                       TABLES    569
           406  00000000000000000000     DOIXR    DATA   0           *DO* INDEX      - REGISTER                  TABLES    570
                                                                                                                 TABLES    571
           407  00000000000000000000     DOSTNO   DATA   0           CONTAINS LATEST *DO* STATEMENT NUMBER IN    TABLES    572
                                                                     DPC RIGHT JUSTIFIED WITH LEADING ZEROES     TABLES    573
                                                                     REMOVED.  SET BY *CDI*.                     TABLES    574
                                                                                                                 TABLES    575
           410  00000000000000000000     CDORD    DATA   0           SET INDICATING INSIDE DO NEST. CONTAINS     TABLES    576
                                                                     ORDINAL OF DO STATEMENT NUMBER THAT DEFINED TABLES    577
                                                                     FIRST DO IN NEST.  (ORDINAL IS TO TS.STN)   TABLES    578
                                                                                                                 TABLES    579
           411  00000000000000000000     DOORD    DATA   0           SET INDICATING INSIDE DO.  CONTAINS ORDINAL TABLES    580
                                                                     OF CURRENT ACTIVE DO INSIDE DO NEST         TABLES    581
                                                                                                                 TABLES    582
           412  00000000000000000000     DRITE    DATA   0,0,0                                                   TABLES    583
                                                                     A WRITE INSTRUCTION IS PENDING TO BE        TABLES    584
                                                                     PROCESSED.  FOR FORMAT OF WORD AND MORE     TABLES    585
                                                                     INFORMATION ON ITS USE SEE *CHW* WRITEUP.   TABLES    586
                                                                                                                 TABLES    587
           415  00000000000000000000     DTI      DATA   0           DO-TERMINATION INDICATOR                    TABLES    588
                                                                     CONTAINS TAG OF THIS STATEMENTS LABEL, IF   TABLES    589
                                                                     IT IS A DO-TERMINATOR.                      TABLES    590
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    22
        /DEF  SYMBOL DEFINITIONS.                                     TEMPS 
  
                                                                     = 0  IF THIS STATEMENT IS NOT A DO-TERMINAL TABLES    591
                                                                                                                 TABLES    592
           416  00000000000000000000     ENTRY.   DATA   0           ORDINAL OF SYMBOL TAG OF MAIN ENTRY POINT   TABLES    593
                                                                                                                 TABLES    594
           417  00000000000000000000     ERRORS   DATA   0           NUMBER OF ERRORS APPEARING IN CURRENT       TABLES    595
                                                                     SUBPROGRAM.  CP.ERRS CONTAINS TOTAL ERROR   TABLES    596
                                                                     COUNT.                                      TABLES    597
                                                                                                                 TABLES    598
           420  00000000000000000000     ETF      DATA   0           FUNCTION EXPLICITLY TYPED                   TABLES    599
                                                                                                                 TABLES    600
           421  00000000000000000000     FAILSFT  CON    0           NON-ZERO IF TABLES OVERLAP CATASTROPHICALLY TABLES    601
                                                                                                                 TABLES    602
           422                     1     FLOW     BSS    1           = 0  IF CONTROL FLOWS INTO THIS STATEMENT.  TABLES    603
                                                                     " 0  IF THIS IS IN-ACCESSIBLE CODE.         TABLES    604
                                                                     SET FROM (NOPATH) OF PREVIOUS STATEMENT.    TABLES    605
                                                                                                                 TABLES    606
           423  00000000000000000000     FSR      DATA   0           FUNCTION-STATEMENT-REFERENCE COUNT          TABLES    607
                                                                                                                 TABLES    609
           424  00000000000000000000     HANGER   CON    0           HANGING COMPILATION INDICATOR.              TABLES    610
                                                                     = 0  PREVIOUS STATEMENT COMPLETELY          TABLES    611
                                                                           PROCESSED ALREADY.                    TABLES    612
                                                                     " 0  ADDRESS OF ROUTINE WHO WILL BE ENTERED TABLES    613
                                                                           WHEN THE NEXT CODE-GENERATING STATE-  TABLES    614
                                                                           MENT IS ENCOUNTERED AND IT IS KNOWN   TABLES    615
                                                                           WHAT THE STATEMENT LABEL IS.          TABLES    616
                                                                                                                 TABLES    617
           425  00000000000000000000     HDELAY   DATA   0           .NZ. IF IN *HEADER DELAY* MODE.  THAT IS,   FCC1328X   59
                                        *                                 BEFORE A *PROGRAM*, *SUBROUTINE*,      FCC1328X   60
                                        *                                 *FUNCTION*, OR *BLOCKDATA* STMT HAS    FCC1328X   61
                                        *                                 BEEN ENCOUNTERED, TRY TO DELAY LISTING FCC1328X   62
                                        *                                 OF ANY LINES SO THAT WE CAN TRY AND    FCC1328X   63
                                        *                                 GET THE PROGRAM UNIT NAME INTO THE     FCC1328X   64
                                        *                                 TITLE LINE OF THE LISTING.  THE METHOD FCC1328X   65
                                        *                                 USED IS TO TRY AND SAVE ALL LINES      FCC1328X   66
                                        *                                 (INCLUDING COMMENT LINES) IN THE       FCC1328X   67
                                        *                                 DEFERRED LIST BUFFER *T.DLBUF* UNTIL   FCC1328X   68
                                        *                                 THE PGM UNIT STMT PROCESSOR HAS FOUND  FCC1328X   69
                                        *                                 THE PGM UNIT NAME AND STUFFED IT INTO  FCC1328X   70
                                        *                                 THE TITLE LINE IMAGE.  *T.DLBUF* IS    FCC1328X   71
                                        *                                 THEN DUMPED AND *HEADER DELAY* MODE    FCC1328X   72
                                        *                                 IS OVER, (HDELAY) .ZR.                 FCC1328X   73
                                        *                                 NOTE--WE CANT BE IN *HEADER DELAY*     FCC1328X   74
                                        *                                 MODE IF L=0 OR SL=0 OR C/-LIST,NONE    FCC1328X   75
                                        *                                 ACTIVE BECAUSE *T.DLBUF* MIGHT CONTAIN FCC1328X   76
                                        *                                 TOO MANY LINES...THINK ABOUT IT.       FCC1328X   77
                                                                                                                 FCC1328X   78
           426  00000000000000000000     NOLDS    DATA   0           NUMBER OF LOADS FOR A GIVEN TURPLE          TABLES    618
                                                                     PROCESSED WHILE EXPANDING A SKELETON IN     TABLES    619
                                                                     PASS *2*.                                   TABLES    620
                                                                                                                 TABLES    622
           427  00000000000000000000     ICONL    DATA   0           FIRST CONSTANT TAG ENTERED BY *TAB* IN      TABLES    623
                                                                     TRANSLATING A HOLLERITH CONSTANT TO INTER   TABLES    624
                                                                     FORMAT.                                     TABLES    625
                                                                                                                 TABLES    626
           430  00000000000000000000     ICV      DATA   0           IF " 0 PROCESSING A *DO* LOOP.  CONTENTS OF TABLES    630
                                                                     18/INDEX ADDRESS, 18/TAG OF INCREMENT,3/MOD TABLES    631
                                                                     E, 18/TAG OF INDEX,3/MODE.  IF INCREMENT    TABLES    632
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    23
        /DEF  SYMBOL DEFINITIONS.                                     TEMPS 
  
                                                                     IS A CONSTANT MODE BITS WILL BE = TO 0.     TABLES    633
                                                                     ICV IS SET BY *CDI* AND USED THROU-OUT      TABLES    634
                                                                     ARITHMETIC ROUTINES.                        TABLES    635
                                                                                                                 TABLES    636
                                                                                                                 TABLES    637
           431  55555555555555555503     IDENT1   DATA   10H         C    USED TO DISPLAY *COMPILING* MESSAGE    TABLES    638
           432  17152011141116075555              DATA   10HOMPILING      TO CONSOLE.                            TABLES    639
           433  00000000000000000000     NAME     DATA   0           ROUTINE NAME 10H [NAME]                     FEAT126A   82
           434  00000000000000000000              DATA   0           END-OF-LINE INDICATOR                       FEAT126A   83
                                                                                                                 TABLES    642
           435  00000000000000000000     IGS      DATA   0           INSTRUCTION-GROUP START                     TABLES    643
           436  00000000000000000000     INAFR    CON    0           INDICATES WHERE PARSER INPUT IS COMING FROM TABLES    645
                                                                     = 0  -- FROM *SB, NORMAL                    TABLES    646
                                                                     " 0  -- ASF BEING EXPANDED                  TABLES    647
           437  00000000000000000000     LASTCOL  DATA   0           NUMBER OF COLUMNS OF CURRENT STATEMENT THAT TABLES    648
                                                                     ARE UNPACKED IN *SB*.                       TABLES    649
                                                                                                                 TABLES    650
           440  00000000000000000000     LASTOP   DATA   0           SET = TO LAST OPERATOR IN PARSED FILE UPON  TABLES    651
                                                                     ENTRY TO POP.                               TABLES    652
           441  00000000000000000000     LASTAD   DATA   0           SET = TO LAST ADDRESS OF PARSE FILE UPON    TABLES    653
                                                                     ENTRY TO POP.                               TABLES    654
                                                                                                                 TABLES    655
           442                     1     LCNT     BSS    1           LINE COUNT                                  FEAT155E   93
                                                                                                                 TABLES    657
           443  00000000000000000000     LDEAD    DATA   0           INITIAL LENGTH OF PARSED FILE UPON ENTRY TO TABLES    658
                                                                     *PAR*.  USED WHEN *FLOW* = 0 TO RESET       TABLES    659
                                                                     LENGTH OF PARSED FILE UPON EXIT -- THUS     TABLES    660
                                                                     ELIMINATING PARSED CODE FOR DEAD REGIONS OF TABLES    661
                                                                     SOURCE CODE.                                TABLES    662
                                                                                                                 TABLES    663
           444                    16     LINEBUF  BSSZ   14          GENERAL PRINT LINE WORKING AREA             TABLES    664
                                                                                                                 TABLES    670
           462  00000000000000000000     LDRFLG   DATA   0           "0 IF LOADER DIRECTIVE FOUND                FCC1097     5
           463  00000000000000000000     LOSTREF  DATA   0           1.  BEFORE REF-MAP PROCESSING, IT IS A      TABLES    685
                                                                     COUNT OF NUM OF REFS FOUND.                 TABLES    686
                                                                     2.  DURING REF-MAP, IT WILL BE SET TO NUM   TABLES    687
                                                                     OF REFS LOST DUE TO CORE LIMITATIONS.       TABLES    688
                                                                                                                 TABLES    689
           464  00000000000000000000     L.CARD   DATA   0           NR OF WORDS IN SOURCE LINE IMAGE AT         FCC1328X   79
                                        *                              (CP.CARD) ET SEQ  (INCLUDES FULL ZERO     FCC1328X   80
                                        *                              WORD EOL MARK)                            FCC1328X   81
           465  00000000000000000000     MOD      DATA   0           SUBPROGRAM MODE  (SET BY *1ST CARD* SCANS)  TABLES    692
                                                                                                                 TABLES    693
                                         .TEST    IFNE   TEST,,3                                                 TABLES    694
                                                  ENTRY  MOVES                                                   TABLES    695
                                         MOVES    DATA   0           NUMBER OF TIMES TABLES CRASHED.             TABLES    696
                                                  DIS    ,/ TABLE CRASHES./                                      TABLES    697
                                                                                                                 TABLES    698
           466  00000000000000000000     MSF      CON    0           MULTIPLE STATEMENT FLAG.  SET NON-ZERO IF   TABLES    699
                                                                     THIS PROGRAM-UNIT CONTAINED MULTIPLE        TABLES    700
                                                                     STATEMENTS-PER-CARD.                        TABLES    701
                                                                                                                 TABLES    702
           467  00000000000000000000     MSN      DATA   0           MISSING-STATEMENT INDICATOR                 TABLES    703
                                                                                                                 TABLES    704
           470  00000000000000000000     MULS     DATA   0           IF " 0 ADDRESS OF LAST *$* IN CARD.         TABLES    705
                                                                     MULTIPLE STATEMENT INDICATOR.               TABLES    706
                                                                                                                 TABLES    707
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    24
        /DEF  SYMBOL DEFINITIONS.                                     TEMPS 
  
           471  00000000000000000000     NARGS    DATA   0           PROGRAM-UNIT ARGUMENT COUNT.                TABLES    708
                                                                                                                 TABLES    709
           472  40000000000000000000     NOLIST   CON    1S59        =1S59 IF C/-LIST,ALL ACTIVE                 FEAT126B   25
                                        *                            = +0  IF C/-LIST,NONE ACTIVE                FEAT126B   26
                                                                                                                 FEAT126B   27
           473  00000000000000000000     NOPATH   DATA   0           IF " 0 INDICATES STATEMENT MUST HAVE A      TABLES    710
                                                                     STATEMENT LABEL FIELD.  IF SET AND NO LABEL TABLES    711
                                        *                            *GSN* WILL OUTPUT *NO PATH* WARNING MESSAGE TABLES    712
                                                                                                                 TABLES    713
           474  00000000000000000000     NOREL    DATA   0           NUMBER OF RELATIONALS IN A STATEMENT.       TABLES    717
                                                                                                                 TABLES    718
           475  00000000000000000000     NREXT    DATA   0           COUNT OF EXTERNALS REFERENCED IN CURRENT    TABLES    719
                                                                     PROGRAM-UNIT.  COMPUTED BY *END*.           TABLES    720
                                                                                                                 TABLES    721
           476  00000000000000000000     NSK      CON    0           NULL STATEMENT COUNT.  (FOR ANSI)           TABLES    722
                                                                                                                 TABLES    723
           477  00000000000000000000     NTRCNT   CON    0           COUNT OF *ENTRY* STATEMENTS WHICH APPEARED  TABLES    724
                                                                     IN THIS SUBPROGRAM.  USED TO DETERMINE WHAT TABLES    725
                                                                     SUBPROGRAM EXIT CODE TO COMPILE.            TABLES    726
                                                                                                                 TABLES    727
           500  00000000000000000000     ORG      DATA   0           OBJECT PROGRAM ORIGIN COUNTER.  UPDATED BY  TABLES    732
                                                                     *PIG*.  IT MUST BE KEPT EXACTLY IN STEP     TABLES    733
                                                                     WITH WHERE INSTRUCTIONS WILL ACTUALLY BE IN TABLES    734
                                                                     THE OBJECT CODE.                            TABLES    735
                                                                                                                 TABLES    736
           501  00000000000000000000     O.STITL  DATA   0           ADDR AND LEN OF SUBTITLE - 30/LEN,30/ADDR   FEAT155H   88
                                                                                                                 FEAT155H   89
           502  00000000000000000000     PARCEL   DATA   0           PARCEL COUNT FOR INSTRUCTIONS.              TABLES    737
                                                                     = NUMBER MINUS ONE OF EMPTY PARCELS LEFT IN TABLES    738
                                                                     CURRENT WORD.                               TABLES    739
                                                                     3 _ 60 BITS LEFT -- EMPTY WORD              TABLES    740
                                                                     2 _ 45 BITS LEFT                            TABLES    741
                                                                     1 _ 30 BITS LEFT                            TABLES    742
                                                                     0 _ 15 BITS LEFT                            TABLES    743
                                        *                           -1 _ NO BITS LEFT -- FULL WORD               TABLES    744
                                                                                                                 TABLES    745
           503  00000000000000000000     PASS     CON    0           CONTROLS ACTIONS OF TABLE MANAGER.          TABLES    746
                                                                                                                 TABLES    747
                                                                                                                 TABLES    748
           504  00000000000000000000     REFIO    CON    0           -1  = TT.REF TABLE IS ON DISK               TABLES    749
                                                                      0  = TT.REF TABLE IS IN SCM                TABLES    750
                                                                                                                 TABLES    752
           505  00000000000000000000     REFLIN   CON    0           REFERENCE LINE NUMBER                       FEAT155E   94
                                                                                                                 TABLES    756
           506  00000000000000000000     REFNUM   DATA   0,0         STATEMENT LABEL REFERENCE.                  TABLES    757
                                                                     TYPE OF CROSS REFERENCE SYMBOL PROCESSING.  TABLES    758
                                                                     SHOULD BE PRESET FOR ALL PROCESSORS THAT    TABLES    759
                                                                     CALL *ISN* TO TRANSLATE A STATEMENT LABEL   TABLES    760
                                                                     REFERENCE.                                  TABLES    761
                                 507 +   REFVAR   EQU    REFNUM+1    SYMBOL REFERENCE.                           TABLES    762
                                                                     TYPE OF CROSS REFERENCE SYMBOL PROCESSING.  TABLES    763
                                                                     SHOULD BE PRESET FOR ALL PROCESSORS THAT    TABLES    764
                                                                     CALL *TRE* TO TRANSLATE A STATEMENT LABEL   TABLES    765
                                                                     REFERENCE.                                  TABLES    766
                                                                     (*TRE* = *TRV*,*TNK* AND *TSF*)             TABLES    767
                                                                                                                 TABLES    768
           510  00000000000000000000     RJTDUM   CON    0           PROGRAM-TAG OF A WORD CONTAING A DUMMY      TABLES    769
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    25
        /DEF  SYMBOL DEFINITIONS.                                     TEMPS 
  
                                                                     *RJT* INSTRUCTION.  SET BY *PEJ* WHEN A     TABLES    770
                                                                     CALL TO A DUMMY ARGUMENT IS ENCOUNTERED.    TABLES    771
                                                                     EXAMINED BY *FVD* -- WILL COMPILE A DUMMY   TABLES    772
                                                                     *RJT* IF NON-ZERO.                          TABLES    773
                                                                                                                 TABLES    774
           511  00000000000000000006     RGC      DATA   6           REGISTER USAGE COUNT (6 = NO. LOAD REG.+1)  TABLES    775
           512  00000000000000000005     RGX      DATA   5           NUMBER OF LOAD REGISTERS                    TABLES    776
                                                                                                                 TABLES    777
           513  00000000000000000000     ROUTNAM  DATA   0           SAVE LOCATION FOR NAME (OR TAG) OF ROUTINE  TABLES    778
                                                                     TO BE CALLED.  USED MOSTLY BY  I/O STATEMEN TABLES    779
                                                                     PROCESSORS.                                 TABLES    780
                                                                                                                 TABLES    781
           514  77777777777777777777     RREG     DATA   -0          REQUIRED HARD REGISTER TO ASSIGN TO *LOAD*  TABLES    782
                                        *                            IF POSITIVE = 0TR, REGISTER TO LOAD INTO.   TABLES    783
                                        *                            IF NEGATIVE = -0TR, INDICATING LOAD SATISFI TABLES    784
                                        *                            IF = -0, NOT ACTIVE.                        TABLES    785
                                                                                                                 TABLES    786
           515  00000000000000000000     RTNCNT   CON    0           COUNT OF NUMBER OF *RETURN* STATEMENTS IN   TABLES    787
                                                                     SUBPROGRAM.  COMPLEMENTED IF *END* IS       TABLES    788
                                                                     IMMEDIATELY PRECEDED BY *RETURN*.  USED BY  TABLES    789
                                                                     *RTU* TO DETERMINE WHAT CODE NEED BE        TABLES    790
                                                                     GENERATED.                                  TABLES    791
                                                                                                                 TABLES    792
                                                                     LABEL FIELD OF CURRENT STATEMENT, WITH      TABLES    795
                                                                     BLANKS AND LEADING ZEROES REMOVED.  WILL BE TABLES    796
                                                                     = 0 IF THERE WAS NO LABEL.                  TABLES    797
           516                     2     SB.STNL  BSS    2           LEFT JUSTIFIED                              TABLES    798
                                 517 +   SB.STNR  EQU    SB.STNL+1   RIGHT JUSTIFIED                             TABLES    799
                                                                                                                 TABLES    800
           520  00000000000000000000     STAGE    DATA   0           CURRENT SOURCE PROGRAM STAGE.  VALUES ARE   TABLES    803
                                                                     *CPM=XXX*.  SEE DISCUSSION IN *MAIN*.       FCC0780     6
                                                                                                                 TABLES    805
           521  00000000000000000000     STATIC   DATA   0           IDICATES WHICH STATIC I/O ROUTINES NEEDED   F162FTNA  380
                                                                                                                 F162FTNA  381
           522  00000000000000000000     STN      DATA   0           CURRENT STATEMENT NUMBER OF SOURCE CARD     TABLES    806
                                                                     BEING PROCESSED IN 0R FORMAT.               TABLES    807
                                                                                                                 TABLES    813
           523  00000000000000000000     SYSERR   DATA   0           = 1 IF *GWA* DID NOT FIND EXTERNAL TAG IN   TABLES    814
                                                                     TT.NA,                                      TABLES    815
                                                                     = 2 IF *RAD* DID NOT FIND TAG IN TT.ARG     TABLES    816
                                                                     = INSTRUCTION WORD BEING PROCESSED IN *GWA* TABLES    817
                                                                     IF *GWA* FINDS THAT TAG IS NOT H,V OF F.    TABLES    818
                                                                     SYSERR IS CHECKED IN *CKS*. IF "0, *CKS*    TABLES    819
                                                                                                                 TABLES    820
                                                                                                                 TABLES    821
           524  00000000000000320000     TEM.MAX  CON    C.TEM       MAXIMUM TEMPORARY USED FOR EACH PROGRAM     TABLES    822
                                                                     UNIT.                                       TABLES    823
           525  00000000000000000000     THRESH   DATA   0           THRESHHOLD FOR ALLOC BEFORE MEM REQUEST     FEAT155D   46
           526  00000000000000000000     TRACE    DATA   0           TRACEBACK LINE NO. FOR RJ BEING PROCESSED   FCC0744     8
                                                                                                                 TABLES    824
           527  00000000000000000000     TRLINE   DATA   0           LINE NO. (OCTAL) FOR TRACEBACK ON RJT.      TABLES    825
                                                                                                                 TABLES    826
           530  00000000000000000000     TS=CONB  DATA   0           SET TO START OF CONSTANTS FOR NEXT STATEMNT TABLES    827
                                                                                                                 TABLES    828
           531  00000000000000000000     UUC      DATA   0           USE COUNT INCREMENT                         TABLES    833
                                                                                                                 TABLES    834
           532  00000000000000000000     VALUE.   DATA   0           TAG ORDINAL FOR FUNCTION-VALUE CELL         TABLES    835
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    26
        /DEF  SYMBOL DEFINITIONS.                                     TEMPS 
  
                                                                                                                 TABLES    836
           533  00000000000000000000     VARDIM   CON    0           NON-ZERO IF VARDIM CODE IS NECESSARY        TABLES    837
                                                                                                                 TABLES    838
           534  00000000000000000000     WNZ      DATA   0           LAST WRITE-INSTRUCTION ADDRESS              TABLES    839
                                                                                                                 TABLES    840
                                        **        CELLS SET UP BY *TAB* FOR CLASSIFYING A STATEMENT.             TABLES    841
                                                                                                                 TABLES    842
           535  00000000000000000000     FIRSTV   DATA   0           DPC FOR 1ST VARIABLE FOUND.                 TABLES    843
           536  00000000000000000000     ZLEQUAL  DATA   0           IF = 0 NO ZERO LEVEL *=* FOUND.             TABLES    844
           537  00000000000000000000     ZLCOMMA  DATA   0           IF = 0 NO ZERO LEVEL *,* FOUND.             TABLES    845
           540  00000000000000000000     ZLPAREN  DATA   0           1ST ZERO LEVEL *)* FOUND.                   TABLES    846
           541  00000000000000000000     ZLE      DATA   0           LOCAL *ZLEQUAL* POINTER USED DURING PARSE.  TABLES    847
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    27
        /DEF  SYMBOL DEFINITIONS.                                     PASS2 
  
                                        **        WORKING COPY OF LISTING CONTROL FLAGS                          FEAT155H   90
                                                                                                                 FEAT155H   91
           542                           LSTWRKG  BSS    0                                                       FEAT155H   92
           542  00000000000000000000     ANSI     DATA   0                                                       FEAT155H   93
           543  00000000000000000000     IEFLG    DATA   0                                                       FEAT155H   94
           544  00000000000000000000     LOP=M    DATA   0                                                       FEAT155H   95
           545  00000000000000000000     LOP=O    DATA   0                                                       FEAT155H   96
           546  00000000000000000000     LOP=R    DATA   0                                                       FEAT155H   97
                                 543 +   LOP=W    EQU    IEFLG                                                   FEAT155H   98
                                 542 +   LOP=X    EQU    ANSI                                                    FEAT155H   99
                                 545 +   OLIST    EQU    LOP=O                                                   FEAT155H  100
                                 546 +   RSELECT  EQU    LOP=R                                                   FEAT155H  101
           547  00000000000000000000     R=FLAG   DATA   0                                                       FEAT155H  102
                                                  ENTRY  LSTWRKG,ANSI,IEFLG,LOP=M,LOP=O,LOP=R,LOP=W,LOP=X        FEAT155H  103
                                                  ENTRY  OLIST,RSELECT,R=FLAG                                    FEAT155H  104
                                                                                                                 FEAT155H  105
                                        **        MISCELLANEOUS SHORT CONSTANTS USED WHEN PROCESSING A STATEMENT TABLES    849
                                                                                                                 TABLES    850
                                                                                                                 TABLES    851
                                         CONST    MACRO  NUM,CMOD                                                TABLES    852
                                                  VFD    L.SHC/NUM                                               TABLES    853
                                                  POS    P.SHORT+1                                               TABLES    854
                                                  VFD    1/1                                                     TABLES    855
                                                  POS    L.MODE                                                  TABLES    856
                                                  VFD    L.MODE/M._CMOD                                          TABLES    857
                                         CONST    ENDM                                                           TABLES    858
                                                                                                                 TABLES    859
                                                                                                                 TABLES    860
           550  000001                   CONONE   CONST  1,INT                                                   TABLES    861
           551  000000                   CONZER   CONST  0,UNIV                                                  TABLES    862
           552  000000                   CONZERI  CONST  0,INT                                                   TABLES    863
           553  777776                   VTRUE    CONST  -1,LOG                                                  TABLES    864
           554  000000                   VFALSE   CONST  0,LOG                                                   TABLES    865
                                                  POPMAC CONST                                                   TABLES    866
                                                                                                                 TABLES    867
                                        ****                         END OF TS CELL/VARIABLE S                   TABLES    868
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    28
        /DEF  SYMBOL DEFINITIONS.                                     TABTBL
  
                                        **        TABTBL - FORM MAPPING/JUMPTO TABLE FOR PROCESSING CHARACTERS.  TABLES    871
                                                                                                                 TABLES    872
                                                                                                                 TABLES    873
                                                  MACRO  MAPSY,MAPPING,ADDRESS,CHARS                             TABLES    874
                                        .1        IFC    NE,*CHARS**                                             TABLES    875
                                                  VFD    42/0L_CHARS,18/MAPPING                                  TABLES    876
                                        .1        ELSE                                                           TABLES    877
                                                  VFD    42/ADDRESS,18/MAPPING                                   TABLES    878
                                        .1        ENDIF                                                          TABLES    879
                                                  ENDM                                                           TABLES    880
  
  
  
  
                                        **        CONO TABLE.                                                    TABLES    882
                                        *         TABLE IS SET UP WITH EACH OPERATOR/OPERAND HAVING A UNIQUE BIT TABLES    883
                                        *         COMBINATION.                                                   TABLES    884
                                        *                                                                        TABLES    885
                                        *         THE APPEARANCE OF AN OPERATOR IN THE LIST FOR OPERATOR         TABLES    886
                                        *         DEFINED IN LOCATION FIELD MEANS IT IS A LEGAL NEXT FOR THAT    TABLES    887
                                        *         OPERATOR.                                                      TABLES    888
                                        *                                                                        TABLES    889
                                        *         FORMAT OF TABLE IS --                                          TABLES    890
                                        *                                                                        TABLES    891
                                        *         IF SET TO 0 - ILLEGAL COMBINATION.                             TABLES    892
                                        *         IF        1 - LEGAL   COMBINATION.                             TABLES    893
                                        *                                                                        TABLES    894
                                        *         ALSO IN THE LOWER 18 BITS OF THE OPERATOR/OPERAND WORD IS THE  TABLES    895
                                        *         JUMP ADDRESS FOR TRANSLATION OF THE ELEMENT.                   TABLES    896
                                                                                                                 TABLES    897
                                                                                                                 TABLES    898
                                                  MACRO  CONO,DUM,OPOK,ADDR                                      TABLES    899
                                         Z        SET    Z+1                                                     TABLES    900
                                         .3       IFNE   Z,O.DUM                                                 TABLES    901
                                         8        ERR    CONO TABLE OUT OF ORDER    (DUM)                        TABLES    902
                                                  BSSZ   O.DUM-Z                                                 TABLES    903
                                         .3       ENDIF                                                          TABLES    904
                                        .1        IRP    OPOK                                                    TABLES    905
                                         A        SET    60-O.OPOK+O.DEF                                         TABLES    906
                                                  POS    A                                                       TABLES    907
                                                  VFD    1/1                                                     TABLES    908
                                        .1        IRP                                                            TABLES    909
                                                  POS    18                                                      TABLES    910
                                                  VFD    18/PAR._ADDR                                            TABLES    911
                                         CONO     ENDM                                                           TABLES    912
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    29
        /DEF  SYMBOL DEFINITIONS.                                     POPNX 
  
                                        **        POPNX- POP-NEXT OPERATION, CHECKING SPECIAL PROCESSING         TABLES    914
                                        *         BITS SET BY *POPNX*                                            TABLES    915
                                        *                                                                        TABLES    916
                                        *         IF SET TO 0 - NO SPECIAL PROCESSING                            TABLES    917
                                        *         IF SET TO 1 - JUMP TO ADDRESS SPECIFIED TO PROCESS.            TABLES    918
                                                                                                                 TABLES    919
                                                                                                                 TABLES    920
                                                  MACRO  POPNX,DUM,OPOK,ADDR                                     TABLES    921
                                         Z        SET    Z+1                                                     TABLES    922
                                                  IFNE   Z,O.DUM,1                                               TABLES    923
                                         8        ERR    POPNX TABLE OUT OF ORDER   (DUM)                        TABLES    924
                                        .1        IRP    OPOK                                                    TABLES    925
                                         A        SET    60-O.OPOK+O.DEF                                         TABLES    926
                                                  POS    A                                                       TABLES    927
                                                  VFD    1/1                                                     TABLES    928
                                        .1        IRP                                                            TABLES    929
                                                  POS    18                                                      TABLES    930
                                                  VFD    18/POP.ADDR                                             TABLES    931
                                         POPNX    ENDM                                                           TABLES    932
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    30
        /DEF  SYMBOL DEFINITIONS.                                     TABJP 
  
                                        **        TAB - JUMP DECISION TABLE.                                     TABLES    934
                                                                                                                 TABLES    935
                                                                                                                 TABLES    936
           555                           MAPCHAR  BSS    0                                                       TABLES    937
                                                                                                                 TABLES    938
      L     45                                    LOC    1R+                                                     TABLES    939
                                                                                                                 TABLES    940
      L     45  00000000000000 X         O.PL     MAPSY  TAB.NX                                                  TABLES    941
      L     46  00000000000000 X         O.MIN    MAPSY  TAB.NX                                                  TABLES    942
      L     47  00000000000000 X         O.STAR   MAPSY  TAB.STR                                                 TABLES    943
      L     50  00000000000000 X         O.SLASH  MAPSY  TAB.NX                                                  TABLES    944
      L     51  00000000000000 X         O.(      MAPSY  TAB.LP                                                  TABLES    945
      L     52  00000000000000 X         O.)      MAPSY  TAB.RP                                                  TABLES    946
      L     53  00000000000000 X         O.$      MAPSY  TAB.DOL                                                 TABLES    947
      L     54  00000000000000 X         O.=      MAPSY  TAB.=                                                   TABLES    948
      L     55  00000000000000 X         O.SPACE  MAPSY  TAB.NX                                                  TABLES    949
      L     56  00000000000000 X         O.COMMA  MAPSY  TAB.CO                                                  TABLES    950
      L     57  00000000000000 X         O.PERIOD MAPSY  TAB.PD                                                  TABLES    951
      L                                                                                                          TABLES    952
           570                                    LOC    *O                                                      TABLES    953
                                                                                                                 TABLES    954
           570                           LOGT     BSS    0                                                       TABLES    955
                                                                                                                 TABLES    956
           570  06011423050000000031     O.FALSE  MAPSY  ,FALSE                                                  TABLES    957
           571  06000000000000000031     O.FALSE  MAPSY  ,F                                                      TABLES    958
           572  24222505000000000030     O.TRUE   MAPSY  ,TRUE                                                   TABLES    959
           573  24000000000000000030     O.TRUE   MAPSY  ,T                                                      TABLES    960
           574  14240000000000000014     O.LT     MAPSY  ,LT                                                     TABLES    961
           575  14050000000000000015     O.LE     MAPSY  ,LE                                                     TABLES    962
           576  05210000000000000016     O.EQ     MAPSY  ,EQ                                                     TABLES    963
           577  16050000000000000017     O.NE     MAPSY  ,NE                                                     TABLES    964
           600  07050000000000000020     O.GE     MAPSY  ,GE                                                     TABLES    965
           601  07240000000000000021     O.GT     MAPSY  ,GT                                                     TABLES    966
           602  16172400000000000022     O.NOT    MAPSY  ,NOT                                                    TABLES    967
           603  16000000000000000022     O.NOT    MAPSY  ,N                                                      TABLES    968
           604  01160400000000000023     O.AND    MAPSY  ,AND                                                    TABLES    969
           605  01000000000000000023     O.AND    MAPSY  ,A                                                      TABLES    970
           606  30172200000000000024     O.XOR    MAPSY  ,XOR                                                    TABLES    971
           607  30000000000000000024     O.XOR    MAPSY  ,X                                                      FCC0498     4
           610  17220000000000000025     O.OR     MAPSY  ,OR                                                     TABLES    972
           611  17000000000000000025     O.OR     MAPSY  ,O                                                      TABLES    973
                                        ****                                                                     TABLES    974
                                                                                                                 TABLES    975
                                  21     LG.LOG   EQU    *-1-LOGT    LENGTH OF TABLE                             TABLES    976
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    31
        /DEF  SYMBOL DEFINITIONS.                                     CONOTBL 
  
                                        ****      CONO TABLE FOR PARSER.                                         TABLES    978
                                                                                                                 TABLES    979
                                         ANYOP    MICRO  1,,$EOS,HOLL,CONS,VAR,PL,MIN,MULT,DIV,LP,RP,=,COMMA,LT, TABLES    980
                                        ,LE,EQ,NE,GE,GT,NOT,AND,XOR,OR,EXP,TRUE,FALSE,SLP,ANDN,XORN,ORN,PERIOD,U FCC0616     7
                                        ,MIN$                                                                    FCC0616     8
                                                                                                                 TABLES    982
           612                           CONOTBL  BSS    0           BASE ADDRESS OF TABLE.                      TABLES    983
                                                                                                                 TABLES    984
                                  -1     Z        SET    O.DEF-1                                                 TABLES    985
                              000000 X   EOS      CONO   ,EOS                                                    TABLES    986
                 2                       HOLL     CONO   (PL,MIN,MULT,SLASH,LP,RP,=,COMMA,LT,LE,EQ,NE,GE,GT,AND, TABLES    987
                                        ,XOR,OR,ASFA,EOS),HOL                                                    TABLES    988
                 4                       CONS     CONO   (VAR,CONS,PL,MIN,MULT,SLASH,RP,COMMA,LT,LE,EQ,NE,GE,GT, TABLES    989
                                        ,AND,XOR,OR,EXP,PERIOD,ASFA,EOS),TNK                                     TABLES    990
                 4                       VAR      CONO   (VAR,PL,MIN,MULT,SLASH,LP,RP,=,COMMA,LT,LE,EQ,NE,GE,GT, TABLES    991
                                        ,AND,XOR,OR,EXP,ASFA,EOS),VAR                                            TABLES    992
                2                        PL       CONO   (HOLL,CONS,VAR,LP,PERIOD,ASFA),PL                       TABLES    993
                2                        MIN      CONO   (HOLL,CONS,VAR,LP,PERIOD,ASFA),MIN                      TABLES    994
                2                        MULT     CONO   (HOLL,CONS,VAR,LP,PERIOD,ASFA),STD                      TABLES    995
                2                        DIV      CONO   (HOLL,CONS,VAR,LP,PERIOD,ASFA),STD                      TABLES    996
                2                        LP       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,ASFA,TRUE,FALSE),LP TABLES    997
                 2                       RP       CONO   (PL,MIN,MULT,SLASH,RP,=,COMMA,LT,LE,EQ,NE,GE,GT,AND,XOR TABLES    998
                                        ,,OR,EXP,ASFA,EOS),STD                                                   TABLES    999
                2                        =        CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),EQL     TABLES   1000
           625  4                        COMMA    CONO   (EOS,HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),CM  TABLES   1001
                2                        LT       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616     9
                2                        LE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616    10
                2                        EQ       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616    11
                2                        NE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616    12
                2                        GE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616    13
                2                        GT       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616    14
                2                        NOT      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),STD     TABLES   1008
                2                        AND      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616    15
                2                        XOR      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616    16
                2                        OR       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD     FCC0616    17
                1                        EXP      CONO   (CONS,VAR,LP,PERIOD),STD                                TABLES   1012
                2                        UMIN     CONO   (HOLL,CONS,VAR,LP,PERIOD),STD                           TABLES   1013
                   4                     TRUE     CONO   (RP,COMMA,AND,XOR,OR,EOS),TRU                           TABLES   1014
                   4                     FALSE    CONO   (RP,COMMA,AND,XOR,OR,EOS),FAL                           TABLES   1015
                2                        SLP      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),DLP     TABLES   1016
                2                        ANDN     CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),STD     TABLES   1017
                2                        XORN     CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),STD     TABLES   1018
                2                        ORN      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),STD     TABLES   1019
                              000000 X   $        CONO   ,EOS                                                    TABLES   1020
                1                        PERIOD   CONO   (CONS),TNK                                              TABLES   1021
                                                                                                                 TABLES   1022
                                        *         SPECIAL FORMS                                                  TABLES   1023
                                                                                                                 TABLES   1024
                                  40     O.ACONS  EQU    O.PERIOD+1  DUMMY                                       TABLES   1025
           652                           ACONS    BSS    0           LEGAL AFTER CONSTANT                        TABLES   1026
                 2                       ACONS    CONO   (PL,MIN,MULT,SLASH,RP,COMMA,LT,LE,EQ,NE,GE,GT,AND,XOR,O TABLES   1027
                                        ,R,EXP,ASFA,EOS),TNK                                                     TABLES   1028
                                  41     O.FEXPR  EQU    O.ACONS+1   DUMMY                                       FCC0787     8
           653                           FEXPR    BSS    0                                                       FCC0787     9
                2                        FEXPR    CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,SLP,PERIOD),STD FCC0787    10
                                        ****                                                                     TABLES   1029
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    32
        /DEF  SYMBOL DEFINITIONS.                                     POPNX 
  
                                        ****      POP-NEXT DECISION TABLE.                                       TABLES   1031
                                        *                                                                        TABLES   1032
                                        *         TABLE INTERPRETATION IS                                        TABLES   1033
                                        *                   PL   POPNX  (UMIN),UM                                TABLES   1034
                                        *         IF A *PL* OPERATOR IS ABOUT TO POP A *UMIN* OPERATOR, TRANSFER TABLES   1035
                                        *         CONTROL TO UM, OTHERWISE CONTINUE AS NORMAL.                   TABLES   1036
                                                                                                                 TABLES   1037
                                                                                                                 TABLES   1038
           654                           POPTBL   BSS    0           BASE ADDRESS OF TABLE.                      TABLES   1039
                                                                                                                 TABLES   1040
                                  -1     Z        SET    O.DEF-1                                                 TABLES   1041
                              000000 X   EOS      POPNX  ,STD                                                    TABLES   1042
                              000000 X   HOLL     POPNX  ,STD                                                    TABLES   1043
                              000000 X   CONS     POPNX  ,STD                                                    TABLES   1044
                              000000 X   VAR      POPNX  ,STD                                                    TABLES   1045
           660  4                        PL       POPNX  ("ANYOP"),PL                                            TABLES   1046
                              000000 X   MIN      POPNX  ,STD                                                    TABLES   1047
                  4                      MULT     POPNX  (MULT),MUL                                              TABLES   1048
           663  4                        DIV      POPNX  ("ANYOP"),DIV                                           TABLES   1049
           664  4                        LP       POPNX  ("ANYOP"),PN                                            TABLES   1050
           665  4                        RP       POPNX  ("ANYOP"),RP                                            TABLES   1051
           666  4                        =        POPNX  ("ANYOP"),REQ                                           TABLES   1052
           667  4                        COMMA    POPNX  ("ANYOP"),CM                                            TABLES   1053
           670  4                        LT       POPNX  ("ANYOP"),REL                                           TABLES   1054
           671  4                        LE       POPNX  ("ANYOP"),REL                                           TABLES   1055
           672  4                        EQ       POPNX  ("ANYOP"),REL                                           TABLES   1056
           673  4                        NE       POPNX  ("ANYOP"),REL                                           TABLES   1057
           674  4                        GE       POPNX  ("ANYOP"),REL                                           TABLES   1058
           675  4                        GT       POPNX  ("ANYOP"),REL                                           TABLES   1059
           676  4                        NOT      POPNX  ("ANYOP"),NOT                                           TABLES   1060
           677  4                        AND      POPNX  ("ANYOP"),LOG                                           TABLES   1061
           700  4                        XOR      POPNX  ("ANYOP"),LOG                                           TABLES   1062
           701  4                        OR       POPNX  ("ANYOP"),LOG                                           TABLES   1063
           702  4                        EXP      POPNX  ("ANYOP"),EXP                                           TABLES   1064
           703  4                        UMIN     POPNX  ("ANYOP"),UM                                            TABLES   1065
                              000000 X   TRUE     POPNX  ,STD                                                    TABLES   1066
                              000000 X   FALSE    POPNX  ,STD                                                    TABLES   1067
           706  4                        SLP      POPNX  ("ANYOP"),PN                                            TABLES   1068
           707  4                        ANDN     POPNX  ("ANYOP"),STD                                           FCC0616    18
           710  4                        XORN     POPNX  ("ANYOP"),STD                                           FCC0616    19
           711  4                        ORN      POPNX  ("ANYOP"),STD                                           FCC0616    20
                              000000 X   $        POPNX  ,STD                                                    TABLES   1072
                              000000 X   PERIOD   POPNX  ,STD                                                    TABLES   1073
                                                  POPMAC POPNX                                                   TABLES   1074
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    33
        /DEF  SYMBOL DEFINITIONS.                                     GENERAL 
  
                                        **        SETOP - MACRO TO SET UP OPERATOR ENTRY.                        TABLES   1076
                                        *         SETOP SETS UP THE OPERATOR ENTRY IN THE FOLLOWING FORM--       TABLES   1077
                                        *                                                                        TABLES   1078
                                        *         BEFORE ENTRY INTO OPERATOR STACK.                              TABLES   1079
                                        *         +-----------------+----------+---+--------+-----------------+  TABLES   1080
                                        *         +                 +          + D +        +                 +  TABLES   1081
                                        *         +  JUMP ADDRESS   + ATTRIBUTE+ M + STACK  + STRING BUFFER   +  TABLES   1082
                                        *         +      OR         +  OF OPER.+ O +PRIORITY+     PRIORITY    +  TABLES   1083
                                        *         + ADDR. OF SKEL.  +          + D +        +                 +  TABLES   1084
                                        *         +-----------------+----------+---+--------+-----------------+  TABLES   1085
                                        *                                                                        TABLES   1086
                                        *         ENTRY INTO PARSED FILE.                                        TABLES   1087
                                        *         +-----------------+----------+---+--------+-----------------+  TABLES   1088
                                        *         +                 +          + D +        +                 +  TABLES   1089
                                        *         +  JUMP ADDRESS   + ATTRIBUTE+ M + MODC   +     D  P  C     +  TABLES   1090
                                        *         +      OR         +  OF OPER.+ O +        +  OF OPERATOR    +  TABLES   1091
                                        *         + ADDR. OF SKEL.  +          + D +        +                 +  TABLES   1092
                                        *         +-----------------+----------+---+--------+-----------------+  TABLES   1093
                                                                                                                 TABLES   1094
                                                                                                                 TABLES   1095
                                         SETOP    MACRO  SBPRX,STPRX,JPADDX,CLASSX                               TABLES   1096
                                                  VFD    L.JPAD/JPADDX                                           TABLES   1097
                                                  IRP    CLASSX                                                  TABLES   1098
                                                  POS    P.CLASSX+1                                              TABLES   1099
                                                  VFD    1/1                                                     TABLES   1100
                                                  IRP                                                            TABLES   1101
                                                  POS    P.ATTR                                                  TABLES   1102
                                                  VFD    L.DMOD/0                                                TABLES   1103
                                         A        MICRO  1,2, STPRX                                              TABLES   1104
                                         .2       IFC    EQ,/PR/"A"/                                             TABLES   1105
                                                  VFD    L.STPR/STPRX                                            TABLES   1106
                                         .2       ELSE                                                           TABLES   1107
                                         .3       IFC    EQ,/0/STPRX/                                            TABLES   1108
                                                  VFD    L.STPR/0                                                TABLES   1109
                                         .3       ELSE                                                           TABLES   1110
                                                  VFD    L.STPR/SBPRX+STPRX                                      TABLES   1111
                                         .3       ENDIF                                                          TABLES   1112
                                         .2       ENDIF                                                          TABLES   1113
                                                  VFD    L.SBPR/SBPRX                                            TABLES   1114
                                                  ENDM                                                           TABLES   1115
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    34
        /DEF  SYMBOL DEFINITIONS.                                     PRIORITY
  
                                        **        SETPRI- MACRO TO SET UP PRIORITIES FOR OPERATOR.               TABLES   1117
                                        *         EACH CALL UPDATE PRIORITY BY 3 UNLESS PRIORITY IS SPECIFIED.   TABLES   1118
                                                                                                                 TABLES   1119
                                                                                                                 TABLES   1120
                                                  MACRO  SETPRI,OPNAME,PRIORITY                                  TABLES   1121
                                        .1        IFC    EQ,**PRIORITY*                                          TABLES   1122
                                         OPNAME   EQU    PR.SET                                                  TABLES   1123
                                         PR.SET   SET    PR.SET+3                                                TABLES   1124
                                        .1        ELSE                                                           TABLES   1125
                                         OPNAME   EQU    PRIORITY                                                TABLES   1126
                                        .1        ENDIF                                                          TABLES   1127
                                                  ENDM                                                           TABLES   1128
  
  
  
  
                                        ****      PRIORITY STACK LISTED FROM LOWEST TO HIGHEST PRIORITY.         TABLES   1130
                                                                                                                 TABLES   1131
                                   5     PR.SET   SET    5           LOWEST PRIORITY.                            TABLES   1132
                                                                                                                 TABLES   1133
                                         PR.RPAR  SETPRI                                                         TABLES   1134
                                         PR.LPAR  SETPRI                                                         TABLES   1135
                                         PR.EQUAL SETPRI                                                         TABLES   1136
                                         PR.SLP   SETPRI PR.EQUAL    SUBSCRIPT LEFT PAREN.                       TABLES   1137
                                         PR.SPL   SETPRI PR.SLP+1    SUBSCRIPT PLUS.                             TABLES   1138
                                         PR.SMULT SETPRI PR.SPL+1    SUBSCRIPT MULTIPLY.                         TABLES   1139
                                         PR.COM   SETPRI                                                         TABLES   1140
                                         PR.OR    SETPRI                                                         TABLES   1141
                                         PR.XOR   SETPRI PR.OR                                                   FCC0616    21
                                         PR.AND   SETPRI                                                         TABLES   1143
                                         PR.NOT   SETPRI                                                         TABLES   1144
                                         PR.LT    SETPRI                                                         TABLES   1145
                                         PR.LE    SETPRI PR.LT                                                   TABLES   1146
                                         PR.EQ    SETPRI PR.LT                                                   TABLES   1147
                                         PR.NE    SETPRI PR.LT                                                   TABLES   1148
                                         PR.GE    SETPRI PR.LT                                                   TABLES   1149
                                         PR.GT    SETPRI PR.LT                                                   TABLES   1150
                                         PR.PL    SETPRI                                                         TABLES   1151
                                         PR.MI    SETPRI PR.PL                                                   TABLES   1152
                                         PR.UMIN  SETPRI                                                         TABLES   1153
                                         PR.MULT  SETPRI                                                         TABLES   1154
                                         PR.DIV   SETPRI PR.MULT                                                 TABLES   1155
                                         PR.SDIV  SETPRI PR.MULT+2                                               TABLES   1156
                                         PR.EXP   SETPRI                                                         TABLES   1157
                                        ****                                                                     TABLES   1158
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    35
        /DEF  SYMBOL DEFINITIONS.                                     PSTACK
  
                                        ****      PSTACK - OPERATOR STACK.                                       TABLES   1160
                                        *                  STANDARD FORTRAN OPERATOR TABLE.                      TABLES   1161
                                        *                  ORDER OF TABLE IS DEFINED OFF OF MAPCHAR MACRO.       TABLES   1162
                                        *                  ANY CHANGES TO THIS ORDER MEANS A CHANGE TO MAPCHAR,  TABLES   1163
                                        *                  CONO, AND CHARMAP MACROS AND SECTION.                 TABLES   1164
                                        *                                                                        TABLES   1165
                                        *         IF ROUND IS SELECTED FOR ANY OF THE OPERATORS + - * /, THE     TABLES   1166
                                        *         CORRESPONDING PSTACK ENTRY IS MODIFIED AT INITIALIZATION       TABLES   1167
                                        *         TIME TO REFLECT THE ROUNDED OPERATION CODE SKELETON ADDRESS.   TABLES   1168
                                        *                                                                        TABLES   1169
                                                                                                                 TABLES   1170
                                                                                                                 TABLES   1171
           714                           PSTACK   BSS    0                                                       TABLES   1172
           714  000000 X                 PLUS     SETOP  PR.PL,+1,O=ADD,(AS,COM)                                 TABLES   1173
           715  000000 X                 MINUS    SETOP  PR.MI,+1,O=SUB,(AS)                                     TABLES   1174
           716  000000 X                 MULT     SETOP  PR.MULT,+1,O=MULT,(AS,DIS,COM)                          TABLES   1175
           717  000000 X                 DIV      SETOP  PR.DIV,+1,O=DIV,(DIS)                                   TABLES   1176
           720  000000                   LPAR     SETOP  PR.LPAR,-1,,(NSQEZ)                                     TABLES   1177
           721  000000                   RPAR     SETOP  PR.RPAR                                                 TABLES   1178
           722  000000 X                 EQUAL    SETOP  PR.EQUAL,-1,O=STR                                       TABLES   1179
           723  000000                   COMMA    SETOP  PR.COM,1,,(NSQEZ,NONSTD,UNAR,MODLS)                     TABLES   1180
           724  000000 X                 LTOP     SETOP  PR.LT,,O=LT                                             TABLES   1181
           725  000000 X                 LEOP     SETOP  PR.LE,,O=GE                                             TABLES   1182
           726  000000 X                 EQOP     SETOP  PR.EQ,,O=EQ,(COM)                                       TABLES   1183
           727  000000 X                 NEOP     SETOP  PR.NE,,O=NE,(COM)                                       TABLES   1184
           730  000000 X                 GEOP     SETOP  PR.GE,,O=GE                                             TABLES   1185
           731  000000 X                 GTOP     SETOP  PR.GT,,O=LT                                             TABLES   1186
           732  000000 X                 NOTOP    SETOP  PR.NOT,,O=NOT,(MODLS,UNAR)                              TABLES   1187
           733  000000 X                 ANDOP    SETOP  PR.AND,,O=ANDO,(MODLS,COM)                              TABLES   1188
           734  000000 X                 XOROP    SETOP  PR.XOR,,O=XOR,(MODLS,COM)                               TABLES   1189
           735  000000 X                 OROP     SETOP  PR.OR,,O=ORO,(MODLS,COM)                                TABLES   1190
           736  000000                   EXPOP    SETOP  PR.EXP,+1,0,(NONSTD)                                    TABLES   1191
           737  000000 X                 UMINUS   SETOP  PR.UMIN,,O=UMIN,(UNAR)                                  TABLES   1192
           740                     3              BSS    3           SPACE FILLER                                TABLES   1193
           743  000000 X                 ANDNOT   SETOP  PR.AND,,O=ANDN,(MODLS)                                  TABLES   1194
           744  000000 X                 XORNOT   SETOP  PR.XOR,,O=XORN,(MODLS)                                  TABLES   1195
           745  000000 X                 ORNOT    SETOP  PR.OR,,O=ORN,(MODLS)                                    TABLES   1196
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    36
        /DEF  SYMBOL DEFINITIONS.                                     SPECOPS 
  
                                        ****      SPECIAL OPERATOR PARSE ENTRIES.                                TABLES   1198
                                        *                ENTRYS IN THIS TABLE ARE FOR SPECIAL PROCESSORS OR      TABLES   1199
                                        *                OPERATORS THAT ARE CONTEXT DEPENDENT.                   TABLES   1200
                                                                                                                 TABLES   1201
                                                                                                                 TABLES   1202
           746  000000 X                 APLSTOR  SETOP  O.=,0,STR.I,(NSQEZ,MODLS)       *APLIST* STORE.         TABLES   1203
           747  000000 X                 APLSTOD  SETOP  O.=,0,=XSTR.D,(NSQEZ,MODLS)     *APLIST* STORE (DOUBLE) TABLES   1204
           750  000000 X                 APLUG    SETOP  O.PLUG,0,O=APLUG,(NSQEZ,MODLS)                          TABLES   1205
           751  000000 X                 ASSN     SETOP  O.ASSN,0,O=ASSGN,(NSQEZ,MODLS)  *ASSIGN*                TABLES   1206
           752  000000 X                 PLUS(S   SETOP  O.PL,PR.SPL,O=ADD,(AS,COM)                              TABLES   1207
           753  000000 X                 MULT(S   SETOP  PR.SMULT,,O=MULT,(AS,DIS,COM)                           TABLES   1208
           754  000000 X                 SUBOP    SETOP  O.ARY,0,O=SUBL,(NONSTD,MODLS)   *ARRAY LOAD*            TABLES   1209
                                                                                                                 TABLES   1210
           755  000000 X                 PLUS.M   SETOP  O.MIN,0,SUB.I,(AS)                                      TABLES   1211
           756  000000 X                 MINUS.M  SETOP  O.PL,0,ADD.I,(AS,COM)                                   TABLES   1212
                                                                                                                 TABLES   1213
           757  000000 X                 EQUAL.   SETOP  PR.EQUAL,-1,O=STR                                       TABLES   1214
           760  000000 X                 DO.BEG   SETOP  O.DOB,0,O=DOB,(NSQEZ,MODLS)                             TABLES   1215
                                                                                                                 TABLES   1216
           761  000000 X                 CALLIO   SETOP  O.RJ,0,O=IOJ,(NONSTD,NSQEZ,MODLS)                       TABLES   1217
           762  000000                   IOOP     SETOP  O.COMMA,0,0,(NONSTD,MODLS)    I/O OPERATOR SKELETON     TABLES   1218
                                                                                                                 TABLES   1219
           763  000000                   IN.EXP   SETOP  O.EXP,0,0,(MODLS) OPERATOR FOR INLINE PROCESSING OF EXP TABLES   1220
                                                                                                                 TABLES   1221
           764  000000                   ERROP    SETOP  O.RJ,0,0,(NONSTD,MODLS)             PROGRAM SOURCE ERR  TABLES   1222
                                                                                                                 TABLES   1223
           765  000000 X                 GOASS    SETOP  O.GOAS,0,O=GOA,(MODLS,NSQEZ)    *ASSIGN GO TO*          TABLES   1224
           766  000000 X                 OPBSS    SETOP  O.BSS,0,O=BSS,(NSQEZ,MODLS)     *BSS* - DEFINED LABEL   TABLES   1225
                                                                                                                 TABLES   1226
           767  000000                   OPDUM    SETOP  O.NTR,0,0,(NSQEZ,MODLS)          SKELETON OPERATOR WORD TABLES   1227
                                                                                                                 TABLES   1228
           770  000000 X                 REVMIN   SETOP  O.MIN,0,O=SUB,(AS)                                      TABLES   1229
                                                                                                                 TABLES   1230
           771  000000 X                 SDIV     SETOP  PR.SDIV,+1,O=MULT,(AS,DIS,COM)                          TABLES   1231
                                                                                                                 TABLES   1232
           772  000000 X                 XPOP     SETOP  O.MXP,0,O=EPO,(NONSTD,MODLS,NSQEZ)                      TABLES   1233
                                                                                                                 FEAT155G   34
           773  000000 X                 OTROP    SETOP  O.OTR,0,O=OTR,(NONSTD,MODLS,NSQEZ)                      FEAT155G   35
                                                                                                                 TABLES   1234
           774  000000 X                 INTMAC   SETOP  O.COMMA,0,O=INT                                         TABLES   1235
                                                                                                                 TABLES   1236
                                                                                                                 TABLES   1237
           775  000000 X                 CALLOP   SETOP  O.ARG1,0,O=ARG,(NONSTD,NSQEZ,UNAR,MODLS)                TABLES   1238
           776  000000                   BIFFUN   SETOP  O.ARG2,0,0,(MODLS)                                      TABLES   1239
           777  000000 X                 RANF     SETOP  O.RANF,0,O=RANF,(MODLS,NSQEZ)                           FCC0966    12
          1000  000000                   BIFSHF   SETOP  O.SHF,0,0,(MODLS)               INTRINSIC *SHIFT*       TABLES   1242
                                                                                                                 TABLES   1243
          1001  000000 X                 EXTCAL   SETOP  O.RJ,0,O=RJT,(NONSTD,NSQEZ,MODLS)                       TABLES   1244
          1002  000000 X                 EXTFUN   SETOP  O.RJ,0,O=FUN,(NONSTD,NSQEZ,MODLS)                       TABLES   1245
          1003  000000 X                 BEFFUN   SETOP  O.RJ,0,O=BEF,(NONSTD,NSQEZ,MODLS)                       TABLES   1246
                                                                                                                 TABLES   1247
          1004  000000 X                 RJSUB    SETOP  O.=,0,O=RJSUB,(NSQEZ,MODLS)                             TABLES   1248
                                                                                                                 TABLES   1249
                                        *         THE FOLLOWING TWO CELLS MUST REMAIN CONTIGUOUS FOR USE BY PAR. TABLES   1250
          1005  000000                   REGARG   SETOP  O.ARG1,0,0,(NSQEZ,UNAR,MODLS)  SINGLE ARGUMENT          TABLES   1251
          1006  000000                   REGARG2  SETOP  O.ARG2,0,0,(NSQEZ,UNAR,MODLS)       TWO ARGUMENT        TABLES   1252
                                                                                                                 TABLES   1253
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    37
        /DEF  SYMBOL DEFINITIONS.                                     SPECOPS 
  
          1007  000000 X                 OPRETS   SETOP  O.ARG1,0,O=RETS,(NSQEZ,UNAR,MODLS)                      TABLES   1254
          1010  000000 X                 OPRETD   SETOP  O.ARG1,0,O=RETD,(NSQEZ,UNAR,MODLS)                      TABLES   1255
                                                                                                                 TABLES   1256
          1011  000000 X                 IMULT2   SETOP  O.PL,0,ADD.I,(AS,COM)                                   TABLES   1257
                                                                                                                 TABLES   1258
          1012  000000 X                 NOOPP    SETOP  O.NOOP,0,O=NOOP,(NSQEZ,MODLS,NONSTD)   NULL TURPLE      TABLES   1259
          1013  000000 X                 XMITOP   SETOP  O.XMIT,0,O=XMIT,(MODLS)                                 FCC2194     9
  
  
  
  
                                        **        DO.CSKL - DO CONCLUSION OPERATOR SELECTION TABLE.              TABLES   1261
                                                                                                                 TABLES   1262
                                                                                                                 TABLES   1263
          1014                           DO.CSKL  BSS    0                                                       TABLES   1264
      L      0                                    LOC    0                              (LIMIT)    /  (INCREMENT TABLES   1265
      L      0  000000 X                 DO=VV    SETOP  O.DOC,0,O=DOC1,(NSQEZ,MODLS)   VARIABLE   /  VARIABLE   TABLES   1266
      L      1  000000 X                          SETOP  O.DOC1,0,O=DOC1,(NSQEZ,MODLS)                           TABLES   1267
      L      2  000000 X                 DO=VC    SETOP  O.DOC1,0,O=DOC2,(NSQEZ,MODLS)  VARIABLE   /  SHORT      TABLES   1268
      L      3  000000 X                          SETOP  O.DOC1,0,O=DOC2,(NSQEZ,MODLS)                           TABLES   1269
      L      4  000000 X                 DO=CV    SETOP  O.DOC,0,O=DOC4,(NSQEZ,MODLS)   SHORT      /  VARIABLE   TABLES   1270
      L      5  000000 X                          SETOP  O.DOC2,0,O=DOC4,(NSQEZ,MODLS)                           TABLES   1271
      L      6  000000 X                 DO=CC    SETOP  O.DOC1,0,O=DOC3,(NSQEZ,MODLS)  SHORT      /  SHORT      TABLES   1272
      L      7  000000 X                          SETOP  O.DOC2,0,O=DOC3,(NSQEZ,MODLS)                           TABLES   1273
      L     10  000000 X                 DO=CC1   SETOP  O.DOC,0,O=DOC3A,(NSQEZ,MODLS)  OPT=1, OF *DO=CC*        TABLES   1274
      L   1025                                    LOC    *O                                                      TABLES   1275
  
  
  
  
                                        **        SHIFT OPERATORS , FOR INTEGER MULTIPLY.                        TABLES   1277
                                                                                                                 TABLES   1278
          1025  000000 X                 SHFC     SETOP  O.SHF,0,O=SHFC,(MODLS)   SIMPLE POWER OF *2*            TABLES   1279
          1026  000000 X                 SHFS     SETOP  O.SHF,0,O=SHFS,(MODLS)   SUM OF                         TABLES   1280
          1027  000000 X                 SHFSA    SETOP  O.SHF,0,O=SHFSA,(MODLS)  ABOVE BUT *J* = 0              TABLES   1281
          1030  000000 X                 SHFD     SETOP  O.SHF,0,O=SHFD,(MODLS)   DIFFERENCE OF                  TABLES   1282
          1031  000000 X                 SHFDS    SETOP  O.SHF,0,O=SHFDS,(MODLS)  ABOVE BUT *J* = 0              TABLES   1283
                                                                                                                 TABLES   1284
                                        **        SHIFT OPERATOR FOR INTEGER DIVIDE BY POWER OF *2*              TABLES   1285
                                                                                                                 TABLES   1286
          1032  000000 X                 DIVP2    SETOP  O.SHF,0,O=DIVP2,(MODLS)                                 TABLES   1287
                                        ****                                                                     TABLES   1288
  
  
  
  
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    38
        /DEF  SYMBOL DEFINITIONS.                                     VARDIM
  
                                        ****      VARDIM PROCESSOR OPERATORS AND RESULT OPERAND DEFINITIONS.     TABLES   1291
                                                                                                                 TABLES   1292
          1033  000000 X                 VD.EQ    SETOP  O.=,0,STR.I                                             TABLES   1293
          1034  000000 X                 VD.MULT  SETOP  O.MULT,0,MULT.I,(AS,DIS,COM)                            TABLES   1294
          1035  00000000000000001002     VD.INTR  VFD    L.JPAD/0,L.ATTR/0,L.DMOD/0,L.MODC/0,L.SBPR/M.INT+M.INTR TABLES   1295
                                        ****                                                                     TABLES   1296
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    39
        /DEF  SYMBOL DEFINITIONS.                                     SETARM
  
                                        **        SETARM - SET *ARGMODE* CELL FOR USE BY *PARSER*                TABLES   1298
                                        *                                                                        TABLES   1299
                                        *         REF   = CROSS REFERENCE VALUE                                  TABLES   1300
                                        *         ATTR  = ATTRIBUTE BITS FOR THIS *ARGMODE*                      TABLES   1301
                                        *         COMAD = C=XXX PROCESSOR ADDRESS FOR COMMA.                     TABLES   1302
                                        *         PARAD = A=XXX PROCESSOR ADDRESS FOR PAREN.                     TABLES   1303
                                        *                                                                        TABLES   1304
                                        *         FOR DEFINITION OF VARIOUS FIELDS AND THEIR USE SEE WRITE-UP    TABLES   1305
                                        *         OF CELL *ARGMODE*.                                             TABLES   1306
                                                                                                                 TABLES   1307
                                                                                                                 TABLES   1308
                                         SETARM   MACRO  REF,ATTR,COMAD,PARAD                                    TABLES   1309
                                                  IFEQ   REF,,2                                                  TABLES   1310
                                                  VFD    L.AMR/55B                                               TABLES   1311
                                                  SKIP   1                                                       TABLES   1312
                                                  VFD    L.AMR/REF                                               TABLES   1313
                                                  IRP    ATTR                                                    TABLES   1314
                                                  POS    P.ATTR+1                                                TABLES   1315
                                                  VFD    1/1                                                     TABLES   1316
                                                  IRP                                                            TABLES   1317
                                                  POS    P.AMATR                                                 TABLES   1318
                                                  VFD    L.AMC/COMAD                                             TABLES   1319
                                                  VFD    L.AMAD/PARAD                                            TABLES   1320
                                         SETARM   ENDM                                                           TABLES   1321
                                                                                                                 TABLES   1322
                                                                                                                 TABLES   1323
          1036  0023                     ARRARM   SETARM CR.ARY,,C=ARRAY,A=ARRAY                                 TABLES   1324
          1037  0001                     ASFARM   SETARM CR.PAR,,C=CERR,A=ASF                                    TABLES   1325
          1040  0001                     BEFXARM  SETARM CR.INF,,C=BEF,A=BEF                                     TABLES   1326
          1041  0001                     BIFARM   SETARM CR.INF,,C=BIF,A=BIF                                     TABLES   1327
          1042  0055                     BUFMOD   SETARM ,(AMRP,AMADDR),C=CERR,A=BMOD                            TABLES   1328
          1043  0055                     BUFFWA   SETARM ,(AMADDR),C=BFWA,C=CERR                                 TABLES   1329
          1044  0055                     BUFLWA   SETARM ,(AMADDR),C=CERR,A=BLWA                                 TABLES   1330
          1045  0001                     CALLARM  SETARM CR.CALL,(AMFUN,AMWHOL),C=CALL,A=CALL                    TABLES   1331
          1046  0055                     CNFARM   SETARM ,(AMEQ),C=CERR,PAR.NX                                   TABLES   1332
          1047  0004                     DECARM   SETARM CR.DEC,,C=DEC,A=DEC                                     TABLES   1333
          1050  0003                     DOARM    SETARM CR.DOI,(AMEQ),C=DO,A=DO                                 TABLES   1334
          1051  0001                     EXTFARM  SETARM CR.INF,(AMFUN,AMWHOL),C=FUN,A=FUN                       TABLES   1335
          1052  0007                     GOTARM   SETARM CR.VGOTO,(AMEOS),C=GOT,PAR.NX                           FCC0787    11
          1053  0006                     IFARM    SETARM CR.IF,,C=CERR,A=IF                                      TABLES   1337
          1054  0055                     LPARM    SETARM ,,C=CERR,PAR.NX                                         FCC0787    12
          1055  0027                     IOARGM   SETARM CR.OUT,(AMEQ,AMEOS,AMWHOL),C=IOL,A=LIST                 TABLES   1341
          1056  0022                              SETARM CR.INP,(AMEQ,AMEOS,AMWHOL),C=IOL,A=LIST                 TABLES   1342
                                                                                                                 TABLES   1343
          1057  0055                     NDC=CNT  SETARM ,,C=CNT,C=CERR                                          TABLES   1344
          1060  0055                     NDC=STR  SETARM ,(AMRP,AMADDR),C=CERR,A=STR                             TABLES   1345
          1061  0055                     PTN=FMT  SETARM ,(AMRP,AMADDR),C=FMT,A=FMT                              TABLES   1346
                                         #RM      IFEQ   CP#RM,0                                                 TABLES   1347
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    40
        COMCCIO - I/O FUNCTION PROCESSOR. 
  
          1062                                    CTEXT  COMCCIO - I/O FUNCTION PROCESSOR.                       COMCCIO     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCCIO     4
                                                  QUAL   COMCCIO                                                 COMCCIO     5
                                 D_D              BASE   D                                                       COMCCIO     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCCIO     7
  
  
  
  
                                        ***       CIO - I/O FUNCTION PROCESSOR.                                  COMCCIO     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCCIO    10
  
  
  
  
                                        ***              CIO PERFORMS I/O FUNCTIONS VIA THE PP PROGRAM *CIO*.    COMCCIO    12
                                        *         OPERATION WILL BE PROCESSED WHEN BUFFER IS NOT BUSY.           COMCCIO    13
                                        *         IF FILE STATUS WORD = 0, OPERATION WILL NOT BE PROCESSED,      COMCCIO    14
                                        *         AND IN AND OUT WILL BE SET TO FIRST.                           COMCCIO    15
                                        *                                                                        COMCCIO    16
                                        *                (X2) (BITS 17 - 0) = ADDRESS OF FET FOR FILE.           COMCCIO    17
                                        *                (X2) (BITS 35 - 18) = SKIP COUNT TO CIO.                COMCCIO    18
                                        *                (X7) = FUNCTION CODE.                                   COMCCIO    19
                                        *                IF (X7) < 0, (X7) IS COMPLEMENT OF REQUEST, AND         COMCCIO    20
                                        *                AUTO RECALL WILL BE REQUESTED.                          COMCCIO    21
                                        *                                                                        COMCCIO    22
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCCIO    23
                                        *                IF ERP$ DEFINED IN CP PROGRAM -                         COMCCIO    24
                                        *                CIO= WILL EXIT TO ERP$ WHEN UNRECOVERED PARITY ERROR    COMCCIO    25
                                        *                OR END OF TAPE STATUS BITS ARE SET.                     COMCCIO    26
                                        *                                                                        COMCCIO    27
                                        *         USES   X - 1, 2, 6, 7.                                         COMCCIO    28
                                        *                B - NONE.                                               COMCCIO    29
                                        *                A - 1, 6, 7.                                            COMCCIO    30
                                        *                                                                        COMCCIO    31
                                        *         CALLS  SYS=.                                                   COMCCIO    32
                                                                                                                 COMCCIO    33
                                                                                                                 COMCCIO    34
          1062  0100000000 X             CIO1     RECALL X2          WAIT COMPLETION                             COMCCIO    35
                                         ERP$     IF     -DEF,ERP$                                               COMCCIO    36
          1063  43652                    CIO2     MX6    42                                                      COMCCIO    37
                     7110000002                   SX1    2                                                       COMCCIO    38
                                         ERP$     ELSE                                                           COMCCIO    39
                                         CIO2     SA1    X2          READ FILE STATUS                            COMCCIO    40
                                                  SX6    6000B                                                   COMCCIO    41
                                                  BX6    X6*X1                                                   COMCCIO    42
                                                  SX1    2                                                       COMCCIO    43
                                                  NZ     X6,ERP$     IF PARITY ERROR OR END OF REEL              COMCCIO    44
                                                  MX6    42                                                      COMCCIO    45
                                         ERP$     ENDIF                                                          COMCCIO    46
                               12661              BX6    X6+X1                                                   COMCCIO    47
          1064  53120                             SA1    X2          READ FILE STATUS                            COMCCIO    48
                     11161                        BX1    X6*X1       MASK NAME AND MODE                          COMCCIO    49
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    41
        COMCCIO - I/O FUNCTION PROCESSOR.                             CIO                 COMCCIO 
  
                          7160031117              SX6    3RCIO       SET CIO REQUEST                             COMCCIO    50
          1065  0327001066 +                      PL     X7,CIO3     IF NO AUTO RECALL WITH REQUEST              COMCCIO    51
                          14777                   BX7    -X7                                                     COMCCIO    52
                               27606              PX6    X6          SET AUTO RECALL                             COMCCIO    53
          1066  12717                    CIO3     BX7    X1+X7       ENTER REQUEST IN FILE NAME                  COMCCIO    54
                     20652                        LX6    42                                                      COMCCIO    55
                          53720                   SA7    X2          STORE FILE STATUS                           COMCCIO    56
                               12662              BX6    X6+X2       MERGE REQUEST AND FET ADDRESS               COMCCIO    57
          1067  73220                             SX2    X2                                                      COMCCIO    58
                     0100000000 X                 RJ     =XSYS=                                                  COMCCIO    59
                                                                                                                 COMCCIO    60
          1070  0000000000               CIO=     PS                 ENTRY/EXIT                                  COMCCIO    61
          1071  53120                             SA1    X2          CHECK BUFFER STATUS                         COMCCIO    62
                     20173                        LX1    59                                                      COMCCIO    63
                          0331001063 +            NG     X1,CIO2     IF BUFFER NOT BUSY                          COMCCIO    64
          1072  0311001062 +                      NZ     X1,CIO1     IF NOT BLANK FILE STATUS                    COMCCIO    65
                                         QUAL$    IF     DEF,B1=1                                                COMCCIO    66
                          53121                   SA1    X2+B1       SET FIRST = IN = OUT                        COMCCIO    67
                               73610              SX6    X1                                                      COMCCIO    68
          1073  54611                             SA6    A1+B1                                                   COMCCIO    69
                     54661                        SA6    A6+B1                                                   COMCCIO    70
                                         QUAL$    ELSE                                                           COMCCIO    71
                                                  SA1    X2+1        SET FIRST = IN = OUT                        COMCCIO    72
                                                  SX6    X1                                                      COMCCIO    73
                                                  SA6    X2+2                                                    COMCCIO    74
                                                  SA6    X2+3                                                    COMCCIO    75
                                         QUAL$    ENDIF                                                          COMCCIO    76
                          0400001070 +            EQ     CIO=        RETURN                                      COMCCIO    77
  
  
  
  
                                 D_D              BASE   *                                                       COMCCIO    79
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCIO    80
                                                  QUAL   *                                                       COMCCIO    81
                                1070 +   CIO=     EQU    /COMCCIO/CIO=                                           COMCCIO    82
                                         QUAL$    ENDIF                                                          COMCCIO    83
                                                  ENDX                                                           COMCCIO    84
                                                  ENTRY  CIO=                                                    TABLES   1349
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    42
        COMCRDC - READ CODED LINE, -C- FORMAT.
  
          1074                                    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.                     COMCRDC     7
  
  
  
  
                                        ***       RDC - READ CODED LINE, -C- FORMAT.                             COMCRDC     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCRDC    10
  
  
  
  
                                        ***              RDC READS 1 CODED LINE FROM A CIO BUFFER TO A           COMCRDC    12
                                        *         WORKING BUFFER.                                                COMCRDC    13
                                        *                                                                        COMCRDC    14
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDC    15
                                        *                (B6) = FWA WORKING BUFFER.                              COMCRDC    16
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDC    17
                                        *                                                                        COMCRDC    18
                                        *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDC    19
                                        *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDC    20
                                        *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDC    21
                                        *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDC    22
                                        *                             TRANSFER WAS COMPLETED.                    COMCRDC    23
                                        *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDC    24
                                        *                             WORKING BUFFER.                            COMCRDC    25
                                        *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDC    26
                                        *                                                                        COMCRDC    27
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDC    28
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDC    29
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDC    30
                                        *                                                                        COMCRDC    31
                                        *         CALLS  LCB=, RXT=.                                             COMCRDC    32
                                                                                                                 COMCRDC    33
                                                                                                                 COMCRDC    34
          1074  0400001100 +             +        EQ     RDC1                                                    COMCRDC    35
                                                                                                                 COMCRDC    36
          1075  0000000000               RDC=     PS                 ENTRY/EXIT                                  COMCRDC    37
          1076  5140001075 +                      SA4    *-1         SET RETURN ADDRESS                          COMCRDC    38
                                                                                                                 COMCRDC    39
                                                  IF     -DEF,B1=1,1                                             COMCRDC    40
                                                  SB1    1                                                       COMCRDC    41
                                                                                                                 COMCRDC    42
                          5212000004              SA1    X2+4        (B5) = LIMIT                                COMCRDC    43
          1077  53321                             SA3    X2+B1       (X3) = FIRST                                COMCRDC    44
                     66767                        SB7    B6+B7       (B7) = LWA+1 WORKING BUFFER                 COMCRDC    45
                          43460                   MX4    -12         (X4) = BYTE MASK                            COMCRDC    46
                               63510              SB5    X1                                                      COMCRDC    47
                                                                                                                 COMCRDC    48
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDC    49
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    43
        COMCRDC - READ CODED LINE, -C- FORMAT.                        RDC=                COMCRDC 
  
                                                                                                                 COMCRDC    50
          1100  54131                    RDC1     SA1    A3+B1       (B3) = IN                                   COMCRDC    51
                     54211                        SA2    A1+B1       (B4) = OUT                                  COMCRDC    52
                          63310                   SB3    X1                                                      COMCRDC    53
                               63420              SB4    X2                                                      COMCRDC    54
                                                                                                                 COMCRDC    55
                                        *         TRANSFER DATA FROM CIRCULAR BUFFER TO WORKING BUFFER.          COMCRDC    56
                                                                                                                 COMCRDC    57
          1101  0443001176 +             RDC2     EQ     B4,B3,=XLCB= LOAD CIRCULAR BUFFER IF OUT = IN           COMCRDC    58
                          56140                   SA1    B4          READ WORD                                   COMCRDC    59
                               10611              BX6    X1                                                      COMCRDC    60
          1102  66441                             SB4    B4+B1       (OUT+1)                                     COMCRDC    61
                     0545001103 +                 NE     B4,B5,RDC3  IF (OUT+1) " LIMIT                          COMCRDC    62
                               63430              SB4    X3          (OUT+1) = FIRST                             COMCRDC    63
          1103  56660                    RDC3     SA6    B6          STORE WORD                                  COMCRDC    64
                     15764                        BX7    -X4*X6      CHECK LOWER BYTE                            COMCRDC    65
                          66661                   SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCRDC    66
          1104  0307001166 +                      ZR     X7,=XRDX=   EXIT IF END OF LINE                         COMCRDC    67
                          0567001101 +            NE     B6,B7,RDC2  LOOP TO FILL WORKING BUFFER                 COMCRDC    68
          1105  11646                             BX6    X4*X6       CLEAR LAST BYTE                             COMCRDC    69
                     54660                        SA6    A6                                                      COMCRDC    70
                          0400001166 +            EQ     =XRDX=      EXIT                                        COMCRDC    71
  
  
  
  
                                 D_D              BASE   *                                                       COMCRDC    73
                                         QUAL$    IF     -DEF,QUAL$                                              COMCRDC    74
                                                  QUAL   *                                                       COMCRDC    75
                                1075 +   RDC=     EQU    /COMCRDC/RDC=                                           COMCRDC    76
                                         QUAL$    ENDIF                                                          COMCRDC    77
                                                  ENDX                                                           COMCRDC    78
                                                  ENTRY  RDC=                                                    TABLES   1351
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    44
        COMCRDW - READ WORDS TO WORKING BUFFER. 
  
          1106                                    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.                     COMCRDW     7
  
  
  
  
                                        ***       RDW - READ WORDS TO WORKING BUFFER.                            COMCRDW     9
                                        *         D. A. CAHLANDER.  70/11/29.                                    COMCRDW    10
  
  
  
  
                                        ***              RDW READS A GIVEN NUMBER OF WORDS FROM A CIO BUFFER TO  COMCRDW    12
                                        *         A WORKING BUFFER.  THIS DECK ALSO CONTAINS LCB=, RDX=.         COMCRDW    13
                                        *                                                                        COMCRDW    14
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDW    15
                                        *                (B6) = FWA WORKING BUFFER.                              COMCRDW    16
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDW    17
                                        *                                                                        COMCRDW    18
                                        *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDW    19
                                        *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDW    20
                                        *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDW    21
                                        *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDW    22
                                        *                             TRANSFER WAS COMPLETED.                    COMCRDW    23
                                        *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDW    24
                                        *                             WORKING BUFFER.                            COMCRDW    25
                                        *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDW    26
                                        *                                                                        COMCRDW    27
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDW    28
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDW    29
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDW    30
                                        *                                                                        COMCRDW    31
                                        *         CALLS  CIO=, LCB=, RDX=.                                       COMCRDW    32
                                                                                                                 COMCRDW    33
                                                                                                                 COMCRDW    34
          1106  76643                    RDW7     SX6    B4+B3       ADVANCE OUT                                 COMCRDW    35
                     66443                        SB4    B4+B3                                                   COMCRDW    36
                          66663                   SB6    B6+B3                                                   COMCRDW    37
                               67773              SB7    B7-B3                                                   COMCRDW    38
          1107  0545001110 +                      NE     B4,B5,RDW8  IF OUT " LIMIT                              COMCRDW    39
                          53121                   SA1    X2+B1       READ FIRST                                  COMCRDW    40
                               73610              SX6    X1          OUT = FIRST                                 COMCRDW    41
          1110  54630                    RDW8     SA6    A3          UPDATE OUT                                  COMCRDW    42
                     43100                        MX1    0                                                       COMCRDW    43
                          0570001112 +            NZ     B7,RDW1     IF NOT END OF TRANSFER                      COMCRDW    44
                                                                                                                 COMCRDW    45
          1111  0000000000               RDW=     PS                 ENTRY/EXIT                                  COMCRDW    46
          1112  5232000003               RDW1     SA3    X2+3        (B4) = OUT                                  COMCRDW    47
                          5212000002              SA1    X2+2        (B3) = IN                                   COMCRDW    48
                                                  IF     -DEF,B1=1,1                                             COMCRDW    49
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    45
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW=                COMCRDW 
  
                                                  SB1    1                                                       COMCRDW    50
          1113  54431                             SA4    A3+B1       (B5) = LIMIT                                COMCRDW    51
                     63430                        SB4    X3                                                      COMCRDW    52
                          63310                   SB3    X1                                                      COMCRDW    53
                               53130              SA1    X3          READ FIRST WORD                             COMCRDW    54
          1114  63540                             SB5    X4                                                      COMCRDW    55
                     0634001115 +                 GE     B3,B4,RDW2  IF NO END AROUND                            COMCRDW    56
                               66350              SB3    B5                                                      COMCRDW    57
          1115  67334                    RDW2     SB3    B3-B4       FREE DATA LENGTH                            COMCRDW    58
                     0673001116 +                 LE     B3,B7,RDW3  IF NOT ENOUGH ROOM                          COMCRDW    59
                               66370              SB3    B7                                                      COMCRDW    60
          1116  0430001151 +             RDW3     ZR     B3,RDW9     IF NO DATA                                  COMCRDW    61
                          10711                   BX7    X1                                                      COMCRDW    62
                               54111              SA1    A1+B1                                                   COMCRDW    63
                                                                                                                 COMCRDW    64
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDW    65
                                                                                                                 COMCRDW    66
          1117  77431                             SX4    B3-B1                                                   COMCRDW    67
                     43671                        MX6    -3                                                      COMCRDW    68
                          56760                   SA7    B6                                                      COMCRDW    69
                               15346              BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCRDW    70
          1120  21403                             AX4    3           NUMBER OF BLOCKS                            COMCRDW    71
                                                                                                                 COMCRDW    72
                                        *         TRANSFER UP TO 7 WORDS.                                        COMCRDW    73
                                                                                                                 COMCRDW    74
                     0303001123 +                 ZR     X3,RDW5     IF NO ODD WORDS                             COMCRDW    75
          1121  7233777776               RDW4     SX3    X3-1                                                    COMCRDW    76
                          10711                   BX7    X1                                                      COMCRDW    77
                               54111              SA1    A1+B1                                                   COMCRDW    78
          1122  54771                             SA7    A7+B1                                                   COMCRDW    79
                     0313001121 +                 NZ     X3,RDW4     LOOP                                        COMCRDW    80
                                                                                                                 COMCRDW    81
                                        *         PRE-READ REGISTERS.                                            COMCRDW    82
                                                                                                                 COMCRDW    83
          1123  0304001106 +             RDW5     ZR     X4,RDW7     IF NO BLOCKS                                COMCRDW    84
                          63520                   SB5    X2                                                      COMCRDW    85
                               54211              SA2    A1+B1                                                   COMCRDW    86
          1124  66211                             SB2    B1+B1       (B2) = 2                                    COMCRDW    87
                     54321                        SA3    A2+B1                                                   COMCRDW    88
                          63440                   SB4    X4          (B4) = LOOP COUNT                           COMCRDW    89
                               54431              SA4    A3+B1                                                   COMCRDW    90
                                                                                                                 COMCRDW    91
                                        *         TRANSFER 8 WORD BLOCKS.                                        COMCRDW    92
                                                                                                                 COMCRDW    93
          1125  10611                    RDW6     BX6    X1                                                      COMCRDW    94
                     22702                        LX7    X2                                                      COMCRDW    95
                          54132                   SA1    A3+B2                                                   COMCRDW    96
                               54242              SA2    A4+B2                                                   COMCRDW    97
          1126  54671                             SA6    A7+B1                                                   COMCRDW    98
                     67441                        SB4    B4-B1                                                   COMCRDW    99
                          54761                   SA7    A6+B1                                                   COMCRDW   100
                               10633              BX6    X3                                                      COMCRDW   101
          1127  22704                             LX7    X4                                                      COMCRDW   102
                     54312                        SA3    A1+B2                                                   COMCRDW   103
                          54422                   SA4    A2+B2                                                   COMCRDW   104
                               54662              SA6    A6+B2                                                   COMCRDW   105
          1130  54772                             SA7    A7+B2                                                   COMCRDW   106
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    46
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW=                COMCRDW 
  
                     10611                        BX6    X1                                                      COMCRDW   107
                          22702                   LX7    X2                                                      COMCRDW   108
                               54132              SA1    A3+B2                                                   COMCRDW   109
          1131  54242                             SA2    A4+B2                                                   COMCRDW   110
                     54662                        SA6    A6+B2                                                   COMCRDW   111
                          54772                   SA7    A7+B2                                                   COMCRDW   112
                               10633              BX6    X3                                                      COMCRDW   113
          1132  22704                             LX7    X4                                                      COMCRDW   114
                     54312                        SA3    A1+B2                                                   COMCRDW   115
                          54422                   SA4    A2+B2                                                   COMCRDW   116
                               54662              SA6    A6+B2                                                   COMCRDW   117
          1133  54772                             SA7    A7+B2                                                   COMCRDW   118
                     0540001125 +                 NZ     B4,RDW6     LOOP                                        COMCRDW   119
                                                                                                                 COMCRDW   120
                                        *         READ EXIT.                                                     COMCRDW   121
                                                                                                                 COMCRDW   122
          1134  5135000003                        SA3    B5+3        OUT                                         COMCRDW   123
                          76250                   SX2    B5                                                      COMCRDW   124
                               54131              SA1    A3+B1       (B5) = LIMIT                                COMCRDW   125
          1135  56450                             SA4    B5          CHECK BUFFER STATUS                         COMCRDW   126
                     66663                        SB6    B6+B3                                                   COMCRDW   127
                          67773                   SB7    B7-B3                                                   COMCRDW   128
                               63433              SB4    X3+B3       ADVANCE OUT                                 COMCRDW   129
          1136  73633                             SX6    X3+B3                                                   COMCRDW   130
                     63510                        SB5    X1                                                      COMCRDW   131
                          20473                   LX4    59-0                                                    COMCRDW   132
                               53121              SA1    X2+B1       READ FIRST                                  COMCRDW   133
          1137  0545001140 +                      NE     B4,B5,RDW14 IF OUT " LIMIT                              COMCRDW   134
                          73610                   SX6    X1          OUT = FIRST                                 COMCRDW   135
                                                                                                                 COMCRDW   136
                                        *         TRY TO BUFFER AHEAD.                                           COMCRDW   137
                                                                                                                 COMCRDW   138
          1140  0324001110 +             RDW14    PL     X4,RDW8     IF BUFFER BUSY                              COMCRDW   139
                          20470                   LX4    0-4                                                     COMCRDW   140
          1141  0334001110 +                      NG     X4,RDW8     IF EOR/EOF SET                              COMCRDW   141
                          5242000002              SA4    X2+2        READ IN                                     COMCRDW   142
          1142  63210                             SB2    X1          (LIMIT - FIRST)                             COMCRDW   143
                     77152                        SX1    B5-B2                                                   COMCRDW   144
                          37746                   IX7    X4-X6       (IN-OUT)                                    COMCRDW   145
                               22317              LX3    X7,B1       2*(IN-OUT)                                  COMCRDW   146
          1143  21774                             AX7    60          SIGN OF (IN-OUT)                            COMCRDW   147
                     13471                        BX4    X7-X1       INVERT BUFFER IF OUT \ IN                   COMCRDW   148
                          37743                   IX7    X4-X3       BUFFER SIZE - 2*(IN-OUT)                    COMCRDW   149
          1144  0337001110 +                      NG     X7,RDW8     IF BUFFER THRESHOLD NOT REACHED             COMCRDW   150
                          54630                   SA6    A3          UPDATE OUT                                  COMCRDW   151
                               53120              SA1    X2          ISSUE PREVIOUS READ FUNCTION                COMCRDW   152
          1145  7170360374                        SX7    740770B/2                                               COMCRDW   153
                          21101                   AX1    1                                                       COMCRDW   154
                               11771              BX7    X7*X1                                                   COMCRDW   155
          1146  20701                             LX7    1                                                       COMCRDW   156
                     0100001070 +                 RJ     =XCIO=                                                  COMCRDW   157
          1147  43100                             MX1    0           RESPONSE = 0                                COMCRDW   158
                     0570001112 +                 NZ     B7,RDW1     IF NOT DONE                                 COMCRDW   159
          1150  0400001111 +                      JP     RDW=        RETURN                                      COMCRDW   160
                                                                                                                 COMCRDW   161
                                        *         LOAD CIRCULAR BUFFER.                                          COMCRDW   162
                                                                                                                 COMCRDW   163
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    47
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW=                COMCRDW 
  
          1151  53120                    RDW9     SA1    X2          CHECK BUFFER STATUS                         COMCRDW   164
                     5232000002                   SA3    X2+2        READ IN                                     COMCRDW   165
                               20173              LX1    59-0                                                    COMCRDW   166
          1152  0331001154 +                      NG     X1,RDW11    IF BUFFER NOT BUSY                          COMCRDW   167
                          0100000000 X            RECALL                                                         COMCRDW   168
          1153  0400001112 +             RDW10    JP     RDW1        CONTINUE READ                               COMCRDW   169
                                                                                                                 COMCRDW   170
          1154  63330                    RDW11    SB3    X3                                                      COMCRDW   171
                     20170                        LX1    0-4                                                     COMCRDW   172
                          0534001112 +            NE     B3,B4,RDW1  IF BUFFER NOT EMPTY                         COMCRDW   173
          1155  0331001161 +                      NG     X1,RDW12    IF EOR SET                                  COMCRDW   174
                          7160360374              SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                COMCRDW   175
          1156  20104                             LX1    4                                                       COMCRDW   176
                     11761                        BX7    X6*X1                                                   COMCRDW   177
                          20701                   LX7    1                                                       COMCRDW   178
          1157  0100001070 +                      RJ     =XCIO=                                                  COMCRDW   179
          1160  0400001112 +                      JP     RDW1        CONTINUE READ                               COMCRDW   180
                                                                                                                 COMCRDW   181
          1161  53321                    RDW12    SA3    X2+B1       SET IN = OUT = FIRST                        COMCRDW   182
                     22611                        LX6    X1,B1                                                   COMCRDW   183
                          7116000000              SX1    B6+0                                                    COMCRDW   184
          1162  0326001164 +                      PL     X6,RDW13    IF NOT EOF                                  COMCRDW   185
                          20666                   LX6    3-9                                                     COMCRDW   186
                               43173              MX1    -1                                                      COMCRDW   187
          1163  0326001164 +                      PL     X6,RDW13    IF NOT EOI                                  COMCRDW   188
                          7110777775              SX1    -2                                                      COMCRDW   189
          1164  73730                    RDW13    SX7    X3                                                      COMCRDW   190
                     54731                        SA7    A3+B1                                                   COMCRDW   191
                          46000                   NO                                                             COMCRDW   192
                               54771              SA7    A7+B1                                                   COMCRDW   193
          1165  0400001111 +                      JP     RDW=        RETURN                                      COMCRDW   194
  
  
  
  
                                        **        RDX - READ EXIT.                                               COMCRDW   196
                                        *         EXIT FROM READ SUBROUTINE TO CALLER.                           COMCRDW   197
                                        *         IF CIRCULAR BUFFER IS BUSY, OR EOR/EOF IS SENSED, NO ACTION    COMCRDW   198
                                        *         IS TAKEN.                                                      COMCRDW   199
                                        *         OTHERWISE, THE WORD COUNT REMAINING IN THE BUFFER IS CHECKED   COMCRDW   200
                                        *         AND PREVIOUS READ FUNCTION ISSUED IF NECESSARY.                COMCRDW   201
                                        *                                                                        COMCRDW   202
                                        *         ENTRY  (A2) = ADDRESS OF OUT.                                  COMCRDW   203
                                        *                (A3) = ADDRESS OF FIRST.                                COMCRDW   204
                                        *                (A4) = RETURN ADDRESS.                                  COMCRDW   205
                                        *                (X3) = FIRST.                                           COMCRDW   206
                                        *                (B3) = IN.                                              COMCRDW   207
                                        *                (B4) = OUT.                                             COMCRDW   208
                                        *                (B5) = LIMIT.                                           COMCRDW   209
                                        *                                                                        COMCRDW   210
                                        *         EXIT   TO RETURN ADDRESS.                                      COMCRDW   211
                                        *                                                                        COMCRDW   212
                                        *         CALLS  CIO=.                                                   COMCRDW   213
                                                                                                                 COMCRDW   214
                                                                                                                 COMCRDW   215
          1166  55131                    RDX=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   216
                     76640                        SX6    B4          STORE OUT                                   COMCRDW   217
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    48
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDX                 COMCRDW 
  
                          20173                   LX1    59                                                      COMCRDW   218
                               54620              SA6    A2                                                      COMCRDW   219
          1167  75231                             SX2    A3-B1       RESET (X2)                                  COMCRDW   220
                     0321001175 +                 PL     X1,RDX1     IF BUFFER BUSY                              COMCRDW   221
                               20170              LX1    -4                                                      COMCRDW   222
          1170  0331001175 +                      NG     X1,RDX1     IF EOR/EOF SET                              COMCRDW   223
                                                                                                                 COMCRDW   224
                                        *         IF BUFFER IS NOT BUSY, CHECK BUFFER SIZE.                      COMCRDW   225
                                        *         ISSUE READ IF BUFFER THRESHOLD IS REACHED.                     COMCRDW   226
                                                                                                                 COMCRDW   227
                          77634                   SX6    B3-B4       (IN-OUT)                                    COMCRDW   228
                               63230              SB2    X3          (LIMIT-FIRST)                               COMCRDW   229
          1171  22316                             LX3    X6,B1       2*(IN-OUT)                                  COMCRDW   230
                     77752                        SX7    B5-B2                                                   COMCRDW   231
                          21674                   AX6    60          SIGN OF (IN-OUT)                            COMCRDW   232
                               13467              BX4    X6-X7       INVERT BUFFER IF OUT \ IN                   COMCRDW   233
          1172  37643                             IX6    X4-X3       BUFFER SIZE - 2*(IN-OUT)                    COMCRDW   234
                     0336001175 +                 NG     X6,RDX1     IF BUFFER THRESHOLD NOT REACHED             COMCRDW   235
                               20104              LX1    4           ISSUE PREVIOUS READ FUNCTION                COMCRDW   236
          1173  7160360374                        SX6    740770B/2                                               COMCRDW   237
                          11761                   BX7    X6*X1                                                   COMCRDW   238
                               20701              LX7    1                                                       COMCRDW   239
          1174  0100001070 +                      RJ     =XCIO=                                                  COMCRDW   240
          1175  76100                    RDX1     SX1    B0          RESPONSE = 0                                COMCRDW   241
                     64240                        SB2    A4          SET RETURN ADDRESS                          COMCRDW   242
                          0222000000              JP     B2          RETURN                                      COMCRDW   243
  
  
  
  
                                        **        LCB - LOAD CIRCULAR BUFFER.                                    COMCRDW   245
                                        *         REQUEST READ IF BUFFER IS EMPTY, NOT BUSY AND NOE EOR/EOF.     COMCRDW   246
                                        *         IF BUFFER IS BUSY, RECALL AND RETURN.                          COMCRDW   247
                                        *                                                                        COMCRDW   248
                                        *         ENTRY  (A2) = ADDRESS OF OUT.                                  COMCRDW   249
                                        *                (A3) = ADDRESS OF FIRST.                                COMCRDW   250
                                        *                (A4) = RETURN ADDRESS.                                  COMCRDW   251
                                        *                (B4) = OUT.                                             COMCRDW   252
                                        *                                                                        COMCRDW   253
                                        *         EXIT   TO RETURN ADDRESS - 1 IF CONTINUATION READ.             COMCRDW   254
                                        *                TO RETURN ADDRESS IF EOR/EOF.                           COMCRDW   255
                                        *                (X1) = LAST WORD ADDRESS OF WORKING BUFFER.             COMCRDW   256
                                        *                (X1) = -1 IF EOF.                                       COMCRDW   257
                                        *                (X1) = -2 IF EOI.                                       COMCRDW   258
                                        *                                                                        COMCRDW   259
                                        *         CALLS  CIO=.                                                   COMCRDW   260
                                                                                                                 COMCRDW   261
                                                                                                                 COMCRDW   262
          1176  55131                    LCB=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   263
                     76640                        SX6    B4          STORE OUT                                   COMCRDW   264
                          20173                   LX1    59                                                      COMCRDW   265
                               54620              SA6    A2                                                      COMCRDW   266
          1177  0331001201 +                      NG     X1,LCB2     IF BUFFER NOT BUSY                          COMCRDW   267
                          0100000000 X            RECALL                                                         COMCRDW   268
          1200  65241                    LCB1     SB2    A4-B1       CONTINUE READ                               COMCRDW   269
                     0222000000                   JP     B2                                                      COMCRDW   270
                                                                                                                 COMCRDW   271
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    49
        COMCRDW - READ WORDS TO WORKING BUFFER.                       LCB                 COMCRDW 
  
          1201  55121                    LCB2     SA1    A2-B1       RE-READ IN                                  COMCRDW   272
                     63310                        SB3    X1                                                      COMCRDW   273
                          0534001200 +            NE     B3,B4,LCB1  IF BUFFER NOT EMPTY                         COMCRDW   274
          1202  55131                             SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   275
                     20167                        LX1    59-4                                                    COMCRDW   276
                          0331001206 +            NG     X1,LCB3     IF EOR SET                                  COMCRDW   277
          1203  7160360374                        SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                COMCRDW   278
                          20104                   LX1    4                                                       COMCRDW   279
                               75231              SX2    A3-B1                                                   COMCRDW   280
          1204  11761                             BX7    X6*X1                                                   COMCRDW   281
                     20701                        LX7    1                                                       COMCRDW   282
                          0100001070 +            RJ     =XCIO=                                                  COMCRDW   283
          1205  65241                             SB2    A4-B1       CONTINUE READ                               COMCRDW   284
                     0222000000                   JP     B2                                                      COMCRDW   285
                                                                                                                 COMCRDW   286
          1206  22611                    LCB3     LX6    B1,X1                                                   COMCRDW   287
                     54130                        SA1    A3          SET IN = OUT = FIRST                        COMCRDW   288
                          73710                   SX7    X1                                                      COMCRDW   289
                               54711              SA7    A1+B1                                                   COMCRDW   290
          1207  77101                             SX1    -B1         RESPONSE = -1                               COMCRDW   291
                     64240                        SB2    A4          SET RETURN ADDRESS                          COMCRDW   292
                          0336001212 +            NG     X6,LCB4     IF EOF                                      COMCRDW   293
          1210  43270                             MX2    -4                                                      COMCRDW   294
                     76160                        SX1    B6          RESPONSE = LAST WORD ADDRESS                COMCRDW   295
                          20662                   LX6    -14+4                                                   COMCRDW   296
                               15262              BX2    -X2*X6                                                  COMCRDW   297
          1211  6232000000                        SB3    X2+                                                     COMCRDW   298
                          0431001214 +            EQ     B3,B1,LCB5  IF LEVEL 1                                  COMCRDW   299
          1212  75231                    LCB4     SX2    A3-B1       RESET (X2)                                  COMCRDW   300
                     54771                        SA7    A7+B1                                                   COMCRDW   301
                          0331001221 +            NG     X1,LCB6     IF EOF/EOI                                  COMCRDW   302
          1213  0222000000               LCB4.1   JP     B2          RETURN                                      COMCRDW   303
                                                                                                                 COMCRDW   304
          1214  54130                    LCB5     SA1    A3          CHECK DEVICE TYPE                           FCC0441     9
                     43260                        MX2    -12                                                     FCC0441    10
                          20114                   LX1    12                                                      FCC0441    11
                               15112              BX1    -X2*X1                                                  FCC0441    12
          1215  7261775353                        SX6    X1-2RTT                                                 FCC0441    13
                          76160                   SX1    B6          RESPONSE = LAST WORD ADDRESS                FCC0441    14
          1216  0316001212 +                      NZ     X6,LCB4     IF DEVICE TYPE NOT *TT*                     FCC0441    15
                          54771                   SA7    A7+B1       STORE OUT                                   FCC0441    16
                               75231              READ   A3-B1       RESTART READ                                COMCRDW   306
          1220  65241                             SB2    A4-B1       CONTINUE                                    COMCRDW   307
                     0222000000                   JP     B2                                                      COMCRDW   308
          1221  20666                    LCB6     LX6    3-9                                                     COMCRDW   309
                     0326001213 +                 PL     X6,LCB4.1   IF NOT EOI                                  COMCRDW   310
                               20101              LX1    1           RESPONSE= -2                                COMCRDW   311
          1222  0222000000                        JP     B2          RETURN                                      COMCRDW   312
  
  
  
  
                                 D_D              BASE   *                                                       COMCRDW   314
                                         QUAL$    IF     -DEF,QUAL$                                              COMCRDW   315
                                                  QUAL   *                                                       COMCRDW   316
                                1111 +   RDW=     EQU    /COMCRDW/RDW=                                           COMCRDW   317
                                1166 +   RDX=     EQU    /COMCRDW/RDX=                                           COMCRDW   318
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    50
        COMCRDW - READ WORDS TO WORKING BUFFER. 
  
                                1176 +   LCB=     EQU    /COMCRDW/LCB=                                           COMCRDW   319
                                         QUAL$    ENDIF                                                          COMCRDW   320
                                                  ENDX                                                           COMCRDW   321
                                                  ENTRY  RDW=                                                    TABLES   1353
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    51
        COMCWTC - WRITE CODED LINE, -C- FORMAT. 
  
          1222                                    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 CORP. 1970.                     COMCWTC     7
  
  
  
  
                                        ***       WTC - WRITE CODED LINE, -C- FORMAT.                            COMCWTC     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCWTC    10
  
  
  
  
                                        ***              WTC TRANSFERRS 1 CODED LINE IN -C- FORMAT FROM A        COMCWTC    12
                                        *         WORKING BUFFER TO A CIO BUFFER.                                COMCWTC    13
                                        *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTC    14
                                        *         WTC WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTC    15
                                        *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTC    16
                                        *         WILL BE RE-ISSUED.                                             COMCWTC    17
                                        *                                                                        COMCWTC    18
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC    19
                                        *                (B6) = FWA WORKING BUFFER.                              COMCWTC    20
                                        *                                                                        COMCWTC    21
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC    22
                                        *                                                                        COMCWTC    23
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTC    24
                                        *                B - 1, 2, 3, 4, 5, 6.                                   COMCWTC    25
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTC    26
                                        *                                                                        COMCWTC    27
                                        *         CALLS  DCB=, WTX=.                                             COMCWTC    28
                                                                                                                 COMCWTC    29
                                                                                                                 COMCWTC    30
          1223  0400001227 +             +        EQ     WTC1                                                    COMCWTC    31
                                                                                                                 COMCWTC    32
          1224  0000000000               WTC=     PS                 ENTRY/EXIT                                  COMCWTC    33
          1225  5140001224 +                      SA4    *-1                                                     COMCWTC    34
                                                                                                                 COMCWTC    35
                                                  IF     -DEF,B1=1,1                                             COMCWTC    36
                                                  SB1    1                                                       COMCWTC    37
                                                                                                                 COMCWTC    38
                          5212000004              SA1    X2+4        (B5) = LIMIT                                COMCWTC    39
          1226  53321                             SA3    X2+B1       (X3) = FIRST                                COMCWTC    40
                     43460                        MX4    -12         (X4) = BYTE MASK                            COMCWTC    41
                          63510                   SB5    X1                                                      COMCWTC    42
                                                                                                                 COMCWTC    43
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTC    44
                                                                                                                 COMCWTC    45
          1227  5013000002               WTC1     SA1    A3+2        (B4) = OUT                                  COMCWTC    46
                          54231                   SA2    A3+B1       (X2) = IN                                   COMCWTC    47
                               63410              SB4    X1                                                      COMCWTC    48
                                                                                                                 COMCWTC    49
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    52
        COMCWTC - WRITE CODED LINE, -C- FORMAT.                       WTC=                COMCWTC 
  
                                        *         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.          COMCWTC    50
                                                                                                                 COMCWTC    51
          1230  63321                    WTC2     SB3    X2+B1       (IN+1)                                      COMCWTC    52
                     0535001231 +                 NE     B3,B5,WTC3  IF (IN+1) " LIMIT                           COMCWTC    53
                               63330              SB3    X3          (IN+1) = FIRST                              COMCWTC    54
          1231  56160                    WTC3     SA1    B6          NEXT WORD                                   COMCWTC    55
                     0434001312 +                 EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT       COMCWTC    56
                               22601              LX6    X1                                                      COMCWTC    57
          1232  66661                             SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCWTC    58
                     15714                        BX7    -X4*X1                                                  COMCWTC    59
                          53620                   SA6    X2          STORE WORD                                  COMCWTC    60
                               76230              SX2    B3          IN = IN+1                                   COMCWTC    61
          1233  0317001230 +                      NZ     X7,WTC2     LOOP TO END OF LINE                         COMCWTC    62
                          0400001303 +            EQ     =XWTX=      EXIT                                        COMCWTC    63
  
  
  
  
                                 D_D              BASE   *                                                       COMCWTC    65
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWTC    66
                                                  QUAL   *                                                       COMCWTC    67
                                1224 +   WTC=     EQU    /COMCWTC/WTC=                                           COMCWTC    68
                                         QUAL$    ENDIF                                                          COMCWTC    69
                                                  ENDX                                                           COMCWTC    70
                                                  ENTRY  WTC=                                                    TABLES   1355
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    53
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
          1234                                    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 CORP. 1970.                     COMCWTW     7
  
  
  
  
                                        ***       WTW - WRITE WORDS FROM WORKING BUFFER.                         COMCWTW     9
                                        *         D. A. CAHLANDER.  70/11/29.                                    COMCWTW    10
  
  
  
  
                                        ***              WTW TRANSFERS DATA FROM A WORKING BUFFER TO A CIO       COMCWTW    12
                                        *         BUFFER.  THIS DECK ALSO CONTAINS DCB=, AND WTX=.               COMCWTW    13
                                        *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTW    14
                                        *         WTW WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTW    15
                                        *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTW    16
                                        *         WILL BE RE-ISSUED.                                             COMCWTW    17
                                        *                                                                        COMCWTW    18
                                        *         WHEN CALLING CIO= FROM THIS ROUTINE B6 AND B7                  COMCWTW    19
                                        *         MUST CONTAIN WORKING STORAGE BUFFER ADDRESS,                   COMCWTW    20
                                        *         AND NUMBER OF WORDS TO TRANSFER RESPECTIVELY                   COMCWTW    21
                                        *         AS ERROR PROCESSING ROUTINES DEPEND UPON                       COMCWTW    22
                                        *         THESE REGISTERS.                                               COMCWTW    23
                                        *                                                                        COMCWTW    24
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTW    25
                                        *                (B6) = FWA WORKING BUFFER.                              COMCWTW    26
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCWTW    27
                                        *                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.             COMCWTW    28
                                        *                                                                        COMCWTW    29
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTW    30
                                        *                                                                        COMCWTW    31
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTW    32
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCWTW    33
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTW    34
                                        *                                                                        COMCWTW    35
                                        *         CALLS  CIO=.                                                   COMCWTW    36
                                                                                                                 COMCWTW    37
                                                                                                                 COMCWTW    38
          1234  76634                    WTW8     SX6    B3+B4       ADVANCE IN                                  COMCWTW    39
                     66334                        SB3    B3+B4                                                   COMCWTW    40
                          66664                   SB6    B6+B4                                                   COMCWTW    41
                               67774              SB7    B7-B4                                                   COMCWTW    42
          1235  0535001236 +                      NE     B3,B5,WTW9  IF IN " LIMIT                               COMCWTW    43
                          53121                   SA1    X2+B1       IN = FIRST                                  COMCWTW    44
                               73610              SX6    X1                                                      COMCWTW    45
          1236  5262000002               WTW9     SA6    X2+2        UPDATE IN                                   COMCWTW    46
                          0570001240 +            NZ     B7,WTW1     IF NOT END OF TRANSFER                      COMCWTW    47
                                                                                                                 COMCWTW    48
          1237  0000000000               WTW=     PS                 ENTRY/EXIT                                  COMCWTW    49
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    54
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW=                COMCWTW 
  
          1240  5212000003               WTW1     SA1    X2+3        (B4) = OUT                                  COMCWTW    50
                          5232000002              SA3    X2+2        (B3) = IN                                   COMCWTW    51
                                                  IF     -DEF,B1=1,1                                             COMCWTW    52
                                                  SB1    1                                                       COMCWTW    53
          1241  54411                             SA4    A1+B1       (B5) = LIMIT                                COMCWTW    54
                     0470001237 +                 ZR     B7,WTW=     IF WORKING BUFFER EMPTY                     COMCWTW    55
                               63410              SB4    X1                                                      COMCWTW    56
          1242  53121                             SA1    X2+B1       (B2) = FIRST                                COMCWTW    57
                     63330                        SB3    X3                                                      COMCWTW    58
                          63540                   SB5    X4                                                      COMCWTW    59
                               63210              SB2    X1                                                      COMCWTW    60
          1243  56160                             SA1    B6          READ FIRST WORD                             COMCWTW    61
                     0524001244 +                 NE     B2,B4,WTW2  IF OUT " FIRST                              COMCWTW    62
                               66450              SB4    B5                                                      COMCWTW    63
          1244  0734001245 +             WTW2     LT     B3,B4,WTW3  IF NO END AROUND                            COMCWTW    64
                          6145000001              SB4    B5+1                                                    COMCWTW    65
          1245  67441                    WTW3     SB4    B4-B1       CALCULATE FREE DATA SPACE                   COMCWTW    66
                     67443                        SB4    B4-B3       (B4) = TRANSFER LENGTH                      COMCWTW    67
                          0440001276 +            ZR     B4,WTW10    IF NO ROOM                                  COMCWTW    68
          1246  10711                             BX7    X1                                                      COMCWTW    69
                     0674001247 +                 LE     B4,B7,WTW4  IF NOT ENOUGH ROOM                          COMCWTW    70
                               66470              SB4    B7                                                      COMCWTW    71
                                                                                                                 COMCWTW    72
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTW    73
                                                                                                                 COMCWTW    74
          1247  54111                    WTW4     SA1    A1+B1                                                   COMCWTW    75
                     77441                        SX4    B4-B1                                                   COMCWTW    76
                          43671                   MX6    -3                                                      COMCWTW    77
                               56730              SA7    B3                                                      COMCWTW    78
          1250  15346                             BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCWTW    79
                     21403                        AX4    3           NUMBER OF BLOCKS                            COMCWTW    80
                          0303001253 +            ZR     X3,WTW6     IF NO ODD WORDS                             COMCWTW    81
                                                                                                                 COMCWTW    82
                                        *         TRANSFER UP TO 7 WORDS.                                        COMCWTW    83
                                                                                                                 COMCWTW    84
          1251  7233777776               WTW5     SX3    X3-1                                                    COMCWTW    85
                          10711                   BX7    X1                                                      COMCWTW    86
                               54111              SA1    A1+B1                                                   COMCWTW    87
          1252  54771                             SA7    A7+B1                                                   COMCWTW    88
                     0313001251 +                 NZ     X3,WTW5     LOOP                                        COMCWTW    89
                                                                                                                 COMCWTW    90
                                        *         PRE-READ REGISTERS.                                            COMCWTW    91
                                                                                                                 COMCWTW    92
          1253  0304001234 +             WTW6     ZR     X4,WTW8     IF NO BLOCKS                                COMCWTW    93
                          63520                   SB5    X2          (B5) = FET ADDRESS                          COMCWTW    94
                               54211              SA2    A1+B1                                                   COMCWTW    95
          1254  66211                             SB2    B1+B1       (B2) = 2                                    COMCWTW    96
                     54321                        SA3    A2+B1                                                   COMCWTW    97
                          63340                   SB3    X4          (B3) = BLOCK COUNT                          COMCWTW    98
                               54431              SA4    A3+B1                                                   COMCWTW    99
                                                                                                                 COMCWTW   100
                                        *         TRANSFER 8 WORD BLOCKS.                                        COMCWTW   101
                                                                                                                 COMCWTW   102
          1255  10611                    WTW7     BX6    X1                                                      COMCWTW   103
                     22702                        LX7    X2                                                      COMCWTW   104
                          54132                   SA1    A3+B2                                                   COMCWTW   105
                               54242              SA2    A4+B2                                                   COMCWTW   106
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    55
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW=                COMCWTW 
  
          1256  54671                             SA6    A7+B1                                                   COMCWTW   107
                     67331                        SB3    B3-B1                                                   COMCWTW   108
                          54761                   SA7    A6+B1                                                   COMCWTW   109
                               10633              BX6    X3                                                      COMCWTW   110
          1257  22704                             LX7    X4                                                      COMCWTW   111
                     54312                        SA3    A1+B2                                                   COMCWTW   112
                          54422                   SA4    A2+B2                                                   COMCWTW   113
                               54662              SA6    A6+B2                                                   COMCWTW   114
          1260  54772                             SA7    A7+B2                                                   COMCWTW   115
                     10611                        BX6    X1                                                      COMCWTW   116
                          22702                   LX7    X2                                                      COMCWTW   117
                               54132              SA1    A3+B2                                                   COMCWTW   118
          1261  54242                             SA2    A4+B2                                                   COMCWTW   119
                     54662                        SA6    A6+B2                                                   COMCWTW   120
                          54772                   SA7    A7+B2                                                   COMCWTW   121
                               10633              BX6    X3                                                      COMCWTW   122
          1262  22704                             LX7    X4                                                      COMCWTW   123
                     54312                        SA3    A1+B2                                                   COMCWTW   124
                          54422                   SA4    A2+B2                                                   COMCWTW   125
                               54662              SA6    A6+B2                                                   COMCWTW   126
          1263  54772                             SA7    A7+B2                                                   COMCWTW   127
                     0530001255 +                 NZ     B3,WTW7     LOOP                                        COMCWTW   128
                                                                                                                 COMCWTW   129
                                        *         WRITE EXIT.                                                    COMCWTW   130
                                                                                                                 COMCWTW   131
                               56352              SA3    B5+B2       READ IN                                     COMCWTW   132
          1264  54132                             SA1    A3+B2       (B5) = LIMIT                                COMCWTW   133
                     56450                        SA4    B5          CHECK BUFFER STATUS                         COMCWTW   134
                          66664                   SB6    B6+B4                                                   COMCWTW   135
                               67774              SB7    B7-B4                                                   COMCWTW   136
          1265  63334                             SB3    X3+B4       ADVANCE IN                                  COMCWTW   137
                     73634                        SX6    X3+B4                                                   COMCWTW   138
                          76250                   SX2    B5                                                      COMCWTW   139
                               63510              SB5    X1                                                      COMCWTW   140
          1266  20473                             LX4    59-0                                                    COMCWTW   141
                     53321                        SA3    X2+B1       READ FIRST                                  COMCWTW   142
                          0535001270 +            NE     B3,B5,WTW12 IF IN " LIMIT                               COMCWTW   143
          1267  73630                             SX6    X3          IN = FIRST                                  COMCWTW   144
                                                                                                                 COMCWTW   145
                                        *         TRY TO BUFFER AHEAD.                                           COMCWTW   146
                                                                                                                 COMCWTW   147
          1270  0324001236 +             WTW12    PL     X4,WTW9     IF BUFFER BUSY                              COMCWTW   148
                          5212000003              SA1    X2+3        READ OUT                                    COMCWTW   149
          1271  5262000002                        SA6    X2+2        STORE IN                                    COMCWTW   150
                          63230                   SB2    X3          (LIMIT-FIRST)                               COMCWTW   151
                               37616              IX6    X1-X6       (OUT-IN)                                    COMCWTW   152
          1272  77752                             SX7    B5-B2                                                   COMCWTW   153
                     22316                        LX3    X6,B1       2*(OUT-IN)                                  COMCWTW   154
                          21674                   AX6    60          SIGN OF (OUT-IN)                            COMCWTW   155
                               13467              BX4    X6-X7       INVERT BUFFER IF IN \ OUT                   COMCWTW   156
          1273  37643                             IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN)                    COMCWTW   157
                     0336001275 +                 NG     X6,WTW13    IF BUFFER THRESHOLD NOT REACHED             COMCWTW   158
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   159
                                                  SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   160
                                                  SX6    774B                                                    COMCWTW   161
                                                  BX7    X6*X1                                                   COMCWTW   162
                                                  RJ     =XCIO=                                                  COMCWTW   163
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    56
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW=                COMCWTW 
  
                                         WRIF$    ELSE   1                                                       COMCWTW   164
          1274  7170000014                        WRITE  X2                                                      COMCWTW   165
          1275  0570001240 +             WTW13    NZ     B7,WTW1     IF NOT DONE                                 COMCWTW   166
                          0400001237 +            JP     WTW=        RETURN                                      COMCWTW   167
                                                                                                                 COMCWTW   168
                                        *         DUMP CIRCULAR BUFFER.                                          COMCWTW   169
                                                                                                                 COMCWTW   170
          1276  53120                    WTW10    SA1    X2          CHECK BUFFER STATUS                         COMCWTW   171
                     20173                        LX1    59-0                                                    COMCWTW   172
                          0331001301 +            NG     X1,WTW11    IF NOT BUSY                                 COMCWTW   173
          1277  0301001301 +                      ZR     X1,WTW11    IF BLANK FET                                COMCWTW   174
                          0100000000 X            RECALL                                                         COMCWTW   175
          1300  0400001240 +                      JP     WTW1        CONTINUE WRITE                              COMCWTW   176
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   177
                                         WTW11    SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   178
                                                  SX6    774B                                                    COMCWTW   179
                                                  BX7    X6*X1                                                   COMCWTW   180
                                                  RJ     =XCIO=                                                  COMCWTW   181
                                         WRIF$    ELSE   1                                                       COMCWTW   182
          1301  7170000014               WTW11    WRITE  X2                                                      COMCWTW   183
          1302  0400001240 +                      JP     WTW1        CONTINUE WRITE                              COMCWTW   184
  
  
  
  
                                        **        WTX - WRITE EXIT.                                              COMCWTW   186
                                        *         IF BUFFER IS BUSY, RETURN.                                     COMCWTW   187
                                        *         OTHERWISE, WORD COUNT OF BUFFER IS CHECKED, AND A WRITE        COMCWTW   188
                                        *         FUNCTION IS REQUESTED IF NECESSARY.                            COMCWTW   189
                                        *                                                                        COMCWTW   190
                                        *         ENTRY  (A2) = ADDRESS OF IN.                                   COMCWTW   191
                                        *                (A3) = ADDRESS OF FIRST.                                COMCWTW   192
                                        *                (A4) = RETURN ADDRESS.                                  COMCWTW   193
                                        *                (B3) = IN+1.                                            COMCWTW   194
                                        *                (B4) = OUT.                                             COMCWTW   195
                                        *                (B5) = LIMIT.                                           COMCWTW   196
                                        *                (X2) = IN                                               COMCWTW   197
                                        *                                                                        COMCWTW   198
                                        *         EXIT   TO RETURN ADDRESS.                                      COMCWTW   199
                                        *                                                                        COMCWTW   200
                                        *         CALLS  NONE.                                                   COMCWTW   201
                                                                                                                 COMCWTW   202
                                                                                                                 COMCWTW   203
          1303  55131                    WTX=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCWTW   204
                     73620                        SX6    X2          STORE IN                                    COMCWTW   205
                          20173                   LX1    59                                                      COMCWTW   206
                               54620              SA6    A2                                                      COMCWTW   207
          1304  0321001311 +                      PL     X1,WTX1     IF BUFFER BUSY                              COMCWTW   208
                                                                                                                 COMCWTW   209
                                        *         IF BUFFER IS NOT BUSY, CHECK SIZE OF BUFFER.                   COMCWTW   210
                                        *         ISSUE WRITE IF THRESHOLD IS REACHED.                           COMCWTW   211
                                                                                                                 COMCWTW   212
                          54330                   SA3    A3          FIRST                                       COMCWTW   213
                               77643              SX6    B4-B3       (OUT-IN+1)                                  COMCWTW   214
          1305  63230                             SB2    X3          (LIMIT-FIRST)                               COMCWTW   215
                     22316                        LX3    X6,B1       2*(OUT-IN+1)                                COMCWTW   216
                          77752                   SX7    B5-B2                                                   COMCWTW   217
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    57
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTX                 COMCWTW 
  
                               21674              AX6    60          SIGN OF (OUT-IN+1)                          COMCWTW   218
          1306  13467                             BX4    X6-X7       INVERT BUFFER IF IN+1 \ OUT                 COMCWTW   219
                     37643                        IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN+1)                  COMCWTW   220
                          0336001311 +            NG     X6,WTX1     IF BUFFER THRESHOLD NOT REACHED             COMCWTW   221
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   222
                                                  SA1    A3-B1       RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   223
                                                  SX6    774B                                                    COMCWTW   224
                                                  BX7    X6*X1                                                   COMCWTW   225
                                                  RJ     =XCIO=                                                  COMCWTW   226
                                         WRIF$    ELSE   1                                                       COMCWTW   227
          1307  75231                             WRITE  A3-B1                                                   COMCWTW   228
                                                                                                                 COMCWTW   229
          1311  64240                    WTX1     SB2    A4          SET RETURN ADDRESS                          COMCWTW   230
                     75231                        SX2    A3-B1       RESET (X2)                                  COMCWTW   231
                          0222000000              JP     B2          RETURN                                      COMCWTW   232
  
  
  
  
                                        **        DCB - DUMP CIRCULAR BUFFER.                                    COMCWTW   234
                                        *         IF BUFFER IS BUSY, RECALL AND RETURN.                          COMCWTW   235
                                        *         IF BUFFER IS NOT BUSY, REQUEST WRITE FUNCTION AND RETURN.      COMCWTW   236
                                        *                                                                        COMCWTW   237
                                        *         ENTRY  (A2) = ADDRESS OF IN.                                   COMCWTW   238
                                        *                (A3) = ADDRESS OF FIRST.                                COMCWTW   239
                                        *                (A4) = RETURN ADDRESS.                                  COMCWTW   240
                                        *                (X2) = IN.                                              COMCWTW   241
                                        *                                                                        COMCWTW   242
                                        *         EXIT   TO RETURN ADDRESS - 1.                                  COMCWTW   243
                                        *                                                                        COMCWTW   244
                                        *         CALLS  NONE.                                                   COMCWTW   245
                                                                                                                 COMCWTW   246
                                                                                                                 COMCWTW   247
          1312  55131                    DCB=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCWTW   248
                     73620                        SX6    X2          STORE IN                                    COMCWTW   249
                          20173                   LX1    59                                                      COMCWTW   250
                               54620              SA6    A2                                                      COMCWTW   251
          1313  0331001316 +                      NG     X1,DCB1     IF NOT BUSY                                 COMCWTW   252
                          0301001316 +            ZR     X1,DCB1     IF BLANK FET                                COMCWTW   253
          1314  0100000000 X                      RECALL                                                         COMCWTW   254
          1315  65241                             SB2    A4-B1       CONTINUE WRITE                              COMCWTW   255
                     0222000000                   JP     B2                                                      COMCWTW   256
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   257
                                         DCB1     SA1    A3-B1       RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   258
                                                  SX6    774B                                                    COMCWTW   259
                                                  BX7    X6*X1                                                   COMCWTW   260
                                                  RJ     =XCIO=                                                  COMCWTW   261
                                         WRIF$    ELSE   1                                                       COMCWTW   262
          1316  75231                    DCB1     WRITE  A3-B1                                                   COMCWTW   263
          1320  65241                             SB2    A4-B1       CONTINUE WRITE                              COMCWTW   264
                     0222000000                   JP     B2                                                      COMCWTW   265
  
  
  
  
                                 D_D              BASE   *                                                       COMCWTW   267
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWTW   268
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    58
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                  QUAL   *                                                       COMCWTW   269
                                1237 +   WTW=     EQU    /COMCWTW/WTW=                                           COMCWTW   270
                                1303 +   WTX=     EQU    /COMCWTW/WTX=                                           COMCWTW   271
                                1312 +   DCB=     EQU    /COMCWTW/DCB=                                           COMCWTW   272
                                         QUAL$    ENDIF                                                          COMCWTW   273
                                                  ENDX                                                           COMCWTW   274
                                                  ENTRY  WTW=                                                    TABLES   1357
                                         #RM      ELSE                                                           TABLES   1358
                                                  CTEXT  COMCMVE - MOVE BLOCK OF DATA.                           COMCMVE     2
                                         MVE      SPACE  4                                                       COMCMVE     3
                                                  IF     -DEF,QUAL$,1                                            COMCMVE     4
                                                  QUAL   COMCMVE                                                 COMCMVE     5
                                                  BASE   D                                                       COMCMVE     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCMVE     7
                                         MVE      SPACE  4                                                       COMCMVE     8
                                        ***       MVE - MOVE BLOCK OF DATA.                                      COMCMVE     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCMVE    10
                                        *         ADAPTED FROM SUBROUTINE *MOVE* IN *COMPASS VER 2.0*.           COMCMVE    11
                                         MVE      SPACE  4                                                       COMCMVE    12
                                        ***              MVE MOVES A BLOCK OF DATA.                              COMCMVE    13
                                        *                                                                        COMCMVE    14
                                        *         ENTRY  (X1) = WORD COUNT.                                      COMCMVE    15
                                        *                (X2) = SOURCE ADDRESS.                                  COMCMVE    16
                                        *                (X3) = DESTINATION ADDRESS.                             COMCMVE    17
                                        *                (B1) = 1                                                COMCMVE    18
                                        *                                                                        COMCMVE    19
                                        *         EXIT   NONE.                                                   COMCMVE    20
                                        *                                                                        COMCMVE    21
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCMVE    22
                                        *                B - 7.                                                  COMCMVE    23
                                        *                A - 2, 4, 6, 7.                                         COMCMVE    24
                                        *                                                                        COMCMVE    25
                                        *         CALLS  NONE.                                                   COMCMVE    26
                                                                                                                 COMCMVE    27
                                                                                                                 COMCMVE    28
                                        *         BEGIN UPWARD MOVE.                                             COMCMVE    29
                                                                                                                 COMCMVE    30
                                         MVE2     SB7    -2          UPWARD MOVE                                 COMCMVE    31
                                                  SX2    X2+B7                                                   COMCMVE    32
                                                  SX3    X3+B7                                                   COMCMVE    33
                                                  SB7    B1+B1                                                   COMCMVE    34
                                                  ZR     X6,MVE3     IF WORD COUNT EVEN                          COMCMVE    35
                                                  SA4    X2+B7       MOVE INITIAL WORD                           COMCMVE    36
                                                  IX2    X2+X6                                                   COMCMVE    37
                                                  BX7    X4                                                      COMCMVE    38
                                                  SA7    X3+B7                                                   COMCMVE    39
                                                  IX3    X3+X6                                                   COMCMVE    40
                                                                                                                 COMCMVE    41
                                        *         INITIALIZE MOVE LOOP.                                          COMCMVE    42
                                                                                                                 COMCMVE    43
                                         MVE3     ZR     X1,MVE=     IF MOVE COMPLETE                            COMCMVE    44
                                                  SA2    X2+B7       MOVE FIRST 2 WORDS                          COMCMVE    45
                                                  SA4    A2+B1                                                   COMCMVE    46
                                                  BX6    X2                                                      COMCMVE    47
                                                  LX7    X4                                                      COMCMVE    48
                                                  SA6    X3+B7                                                   COMCMVE    49
                                                  SA7    A6+B1                                                   COMCMVE    50
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    59
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                  SX3    B1+B1                                                   COMCMVE    51
                                                  IX1    X1-X3                                                   COMCMVE    52
                                                  ZR     X1,MVE=     IF MOVE COMPLETE                            COMCMVE    53
                                                  SA2    A2+B7       NEXT 2 WORDS                                COMCMVE    54
                                                  SA4    A4+B7                                                   COMCMVE    55
                                                                                                                 COMCMVE    56
                                        *         MOVE LOOP.                                                     COMCMVE    57
                                                                                                                 COMCMVE    58
                                         MVE4     BX6    X2                                                      COMCMVE    59
                                                  SA2    A2+B7                                                   COMCMVE    60
                                                  LX7    X4                                                      COMCMVE    61
                                                  SA4    A4+B7                                                   COMCMVE    62
                                                  IX1    X1-X3                                                   COMCMVE    63
                                                  NO                                                             COMCMVE    64
                                                  SA6    A6+B7                                                   COMCMVE    65
                                                  SA7    A7+B7                                                   COMCMVE    66
                                                  NZ     X1,MVE4                                                 COMCMVE    67
                                                                                                                 COMCMVE    68
                                         MVE=     PS                 ENTRY/EXIT                                  COMCMVE    69
                                                  IX4    X2-X3       CHECK DIRECTION OF MOVE                     COMCMVE    70
                                                  MX7    59                                                      COMCMVE    71
                                                  BX6    -X7*X1                                                  COMCMVE    72
                                                  IX1    X1-X6       REDUCE WORD COUNT TO EVEN NUMBER            COMCMVE    73
                                                  PL     X4,MVE2     IF MOVE UP                                  COMCMVE    74
                                                                                                                 COMCMVE    75
                                        *         BEGIN DOWNWARD MOVE.                                           COMCMVE    76
                                                                                                                 COMCMVE    77
                                                  ZR     X6,MVE1     IF WORD COUNT EVEN                          COMCMVE    78
                                                  SB7    X1                                                      COMCMVE    79
                                                  SA4    X2+B7       MOVE INITIAL WORD                           COMCMVE    80
                                                  BX6    X4                                                      COMCMVE    81
                                                  SA6    X3+B7                                                   COMCMVE    82
                                         MVE1     IX2    X2+X1                                                   COMCMVE    83
                                                  IX3    X3+X1                                                   COMCMVE    84
                                                  SB7    -2                                                      COMCMVE    85
                                                  EQ     MVE3                                                    COMCMVE    86
                                                  SPACE  4                                                       COMCMVE    87
                                                  BASE   *                                                       COMCMVE    88
                                         QUAL$    IF     -DEF,QUAL$                                              COMCMVE    89
                                                  QUAL   *                                                       COMCMVE    90
                                         MVE=     EQU    /COMCMVE/MVE=                                           COMCMVE    91
                                         QUAL$    ENDIF                                                          COMCMVE    92
                                                  ENDX                                                           COMCMVE    93
                                                  ENTRY  MVE=                                                    TABLES   1360
                                                  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
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    60
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                        *         EXIT   (X2) = FIT ADDRESS                                      FA=CLO     15
                                        *                                                                        FA=CLO     16
                                        *         USES   X - 3, 6                                                FEAT126C    3
                                        *                A - 3                                                   FEAT126C    4
                                        *                B - NONE                                                FEAT126C    5
                                        *                                                                        FA=CLO     22
                                        *         CALLS CLOSEM, FETCH                                            FA=CLO     23
                                                                                                                 FA=CLO     24
                                                                                                                 FA=CLO     25
                                         FA=CLO   JP     *+4S15      ** ENTRY/EXIT **                            FA=CLO     26
                                                  FETCH  X2,OC,X6,X3                                             FEAT126C    6
                                                  SX6    X6-#OPE#                                                FA=CLO     31
                                                  NZ     X6,FA=CLO   IF NOT OPEN, EXIT                           FA=CLO     33
                                                  CLOSEM X2                                                      FA=CLO     34
                                                  JP     FA=CLO      EXIT                                        FA=CLO     35
                                                                                                                 FA=CLO     36
                                                                                                                 FA=CLO     37
                                                  IF     -DEF,QUAL$,2                                            FA=CLO     38
                                                  QUAL   *                                                       FA=CLO     39
                                         FA=CLO   EQU    /FA=CLO/FA=CLO                                          FA=CLO     40
                                                  ENDX                                                           FA=CLO     41
                                                  ENTRY  FA=CLO                                                  TABLES   1362
                                                  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
                                        *                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
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    61
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                                                                                 FA=EOF     37
                                                  IF     -DEF,QUAL$,2                                            FA=EOF     38
                                                  QUAL   *                                                       FA=EOF     39
                                         FA=EOF   EQU    /FA=EOF/FA=EOF                                          FA=EOF     40
                                                  ENDX                                                           FA=EOF     41
                                                  ENTRY  FA=EOF                                                  TABLES   1364
                                                  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
                                                                                                                 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
                                                  ENDX                                                           FA=EOR     41
                                                  ENTRY  FA=EOR                                                  TABLES   1366
                                                  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
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    62
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                        *           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                                       FEAT126C    7
                                        *                A - 1, 3, 4, 6, 7                                       FEAT126C    8
                                        *                B - 7                                                   FEAT126C    9
                                        *                                                                        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
                                                  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                                             FEAT126C   10
                                                  SB7    X4-#ST#                                                 FEAT126C   11
                                                  ZR     B7,FLSH1    IF S TYPE RECORD                            FEAT126C   12
                                                  PUTW   X2,X1,X3                                                FA=FLSH    47
                                                  JP     FA=FLSH     EXIT                                        FA=FLSH    48
                                                                                                                 FEAT126C   13
                                         FLSH1    PUTWP  X2,X1,X3                                                FEAT126C   14
                                                  JP     FA=FLSH     EXIT                                        FEAT126C   15
                                                                                                                 FA=FLSH    49
                                                                                                                 FA=FLSH    50
                                                  IF     -DEF,QUAL$,2                                            FA=FLSH    51
                                                  QUAL   *                                                       FA=FLSH    52
                                         FA=FLSH  EQU    /FA=FLSH/FA=FLSH                                        FA=FLSH    53
                                                  ENDX                                                           FA=FLSH    54
                                                  ENTRY  FA=FLSH                                                 TABLES   1368
                                                  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
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    63
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                        *                                                                        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                                                   FEAT126C   16
                                        *                B - 2                                                   FEAT126C   17
                                        *                                                                        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     30
                                        *         CHECK FILE OPEN/CLOSED STATUS.                                 FA=OPE     31
                                                                                                                 FA=OPE     32
                                                  FETCH  X2,PD,X6,X3                                             FEAT126C   18
                                                  SB2    X6          TEMP SAVE *PD* (*SETFIT* WILL DESTROY)      FA=OPE     34
                                                  SETFIT X2          FDT PARAMETERS TO FIT                       FA=OPE     35
                                                  FETCH  X2,OC,X6,X3                                             FEAT126C   19
                                                  SX6    X6-#OPE#                                                FA=OPE     37
                                                  NZ     X6,OPE2     IF FILE NOT OPEN                            FA=OPE     38
                                                                                                                 FA=OPE     39
                                        *         HERE IF FILE LEFT OPEN BY PREVIOUS JOB STEP.  SOME ATTRIBUTES  FA=OPE     40
                                        *         OF AN OPEN FILE, SUCH AS *PD*, CANNOT BE CHANGED, SO WE CLOSE  FA=OPE     41
                                        *         IT FIRST (SIGH).                                               FA=OPE     42
                                                                                                                 FA=OPE     43
                                                  FETCH  X2,CF,X6,X3 TEMP SAVE *CF* (*CLOSEM* WILL DESTROY)      FEAT126C   20
                                                  CLOSEM X2,N                                                    FA=OPE     45
                                                  STORE  X2,CF=X6,X3                                             FEAT126C   21
                                                                                                                 FA=OPE     47
                                        *         (RE)OPEN FILE.                                                 FA=OPE     48
                                                                                                                 FA=OPE     49
                                         OPE2     SX6    B2                                                      FA=OPE     50
                                                  STORE  X2,PD=X6,X3                                             FEAT126C   22
                                                  OPENM  X2                                                      FA=OPE     52
                                                  JP     FA=OPE      EXIT                                        FA=OPE     55
                                                                                                                 FA=OPE     56
                                                                                                                 FA=OPE     57
                                                  IF     -DEF,QUAL$,2                                            FA=OPE     58
                                                  QUAL   *                                                       FA=OPE     59
                                         FA=OPE   EQU    /FA=OPE/FA=OPE                                          FA=OPE     60
                                                  ENDX                                                           FA=OPE     61
                                                  ENTRY  FA=OPE                                                  TABLES   1370
                                                  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
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    64
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                        *                                                                        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
                                        *                                                                        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                                          FEAT126C   23
                                        *                B - 2, 6                                                FA=RDC     28
                                        *                                                                        FA=RDC     31
                                        *         CALLS  FETCH, GETW, STORE                                      FA=RDC     32
                                                                                                                 FA=RDC     33
                                                                                                                 FA=RDC     34
                                         FA=RDC   JP     *+4S15      ** ENTRY/EXIT **                            FA=RDC     35
                                                                                                                 FA=RDC     36
                                                  IFNE   TEST,0,1                                                FA=RDC     37
                                                  LE     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB            FA=RDC     38
                                                                                                                 FA=RDC     39
                                                  SX3    B6          (X3) = WSA ADDRESS                          FA=RDC     40
                                                  SX4    B7          (X4) = WSA LENGTH                           FA=RDC     41
                                                  GETW   X2,X3,X4,RDC2                                           FA=RDC     42
                                                  SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                    FA=RDC     43
                                                  AX4    18D         (X4) = UNUSED BIT COUNT                     FA=RDC     44
                                                  SA3    B6-B1       LAST WORD OF LINE                           FA=RDC     45
                                                  MX6    1                                                       FA=RDC     46
                                                  SB2    X4-59D                                                  FA=RDC     47
                                                  MX7    0                                                       FA=RDC     48
                                                  AX4    X6,-B2                                                  FA=RDC     49
                                                  MX1    0           *TRANSFER COMPLETE* STATUS                  FA=RDC     50
                                                  BX6    X4*X3       DISCARD UNUSED BITS                         FA=RDC     51
                                                  AX4    6                                                       FA=RDC     52
                                                  SA6    A3          TERMINATE LAST WORD READ                    FA=RDC     53
                                                  NZ     X4,FA=RDC   IF AT LEAST 12-BIT LINE TERMINATOR, EXIT    FA=RDC     54
                                                  SB6    B6+B1       INCREMENT LWA+1 OF TRANSFER                 FA=RDC     55
                                                  SA7    A6+B1       TERMINATE LINE                              FA=RDC     56
                                                  JP     FA=RDC      EXIT                                        FA=RDC     57
                                                                                                                 FA=RDC     58
                                        *         HERE IF END-OF-DATA ENCOUNTERED.                               FA=RDC     59
                                                                                                                 FA=RDC     60
                                         RDC2     JP     *+4S15      ** REC MGR SIMULATES -RJ- HERE IF E-O-D **  FA=RDC     61
                                                  FETCH  X2,FP,X3,X1                                             FEAT126C   24
                                                  SX3    X3-#EOS#                                                FA=RDC     66
                                                  SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                    FA=RDC     67
                                                  SX1    B6          TO RETURN *EOS* STATUS                      FA=RDC     69
                                                  ZR     X3,FA=RDC   IF EOS, EXIT                                FA=RDC     70
                                                  MX1    -1          RETURN EOP/EOI STATUS                       FA=RDC     71
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    65
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                  JP     FA=RDC      EXIT                                        FA=RDC     72
                                                                                                                 FA=RDC     73
                                                                                                                 FA=RDC     74
                                                  IF     -DEF,QUAL$,2                                            FA=RDC     75
                                                  QUAL   *                                                       FA=RDC     76
                                         FA=RDC   EQU    /FA=RDC/FA=RDC                                          FA=RDC     77
                                                  ENDX                                                           FA=RDC     78
                                                  ENTRY  FA=RDC                                                  TABLES   1372
                                                  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     40
                                        *         CALLS  FETCH, GETWP, MOVE                                      FA=RDW     41
                                                                                                                 FA=RDW     42
                                                                                                                 FA=RDW     43
                                         FA=RDW   JP     *+4S15      ** ENTRY/EXIT **                            FA=RDW     44
                                                                                                                 FA=RDW     45
                                                  IFNE   TEST,0,1                                                FA=RDW     46
                                                  LE     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB            FA=RDW     47
                                                                                                                 FA=RDW     48
                                                  SB2    A2          (B2) = PSEUDO-FET ADDRESS                   FA=RDW     49
                                                  SB3    B7+         (B3) = NR UNTRANSFERRED WORDS               FA=RDW     50
                                                  SB4    B6          (B4) = FWA OF TRANSFER                      FA=RDW     51
                                         RDW2     SA3    B2+I.IN     (X3) = HOLDING BUFFER -IN- POINTER          FA=RDW     52
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    66
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                  SA2    A3+B1       (X2) = HOLDING BUFFER -OUT- POINTER         FA=RDW     53
                                                  SX6    B3          NR WORDS REQUESTED                          FA=RDW     54
                                                  IX7    X3-X2       NR WORDS IN HOLDING BUFFER                  FA=RDW     55
                                                  ZR     X7,RDW6     IF HOLDING BUFFER EMPTY                     FA=RDW     56
                                                                                                                 FA=RDW     57
                                        *         COMPUTE MINIMUM OF NUMBER OF WORDS REQUESTED VS. WORDS IN      FA=RDW     58
                                        *         HOLDING BUFFER.  TRANSFER *MIN* WORDS TO WORKING STORAGE AREA. FA=RDW     59
                                                                                                                 FA=RDW     60
                                                  IX1    X6-X7                                                   FA=RDW     61
                                                  SX3    B6          (X3) = FWA OF TRANSFER                      FA=RDW     62
                                                  AX1    59D                                                     FA=RDW     63
                                                  BX6    X1*X6                                                   FA=RDW     64
                                                  BX7    -X1*X7                                                  FA=RDW     65
                                                  IX1    X6+X7       (X1) = MIN (REQUESTED, AVAILABLE) NR WORDS  FA=RDW     66
                                                  SB7    X1                                                      FA=RDW     67
                                                  IX6    X2+X1                                                   FA=RDW     68
                                                  SB3    B3-B7                                                   FA=RDW     69
                                                  SB6    B6+X1       (B6) = LWA+1 OF TRANSFER                    FA=RDW     70
                                                  SA6    A2          UPDATE -OUT-                                FA=RDW     71
                                                  MOVE   X1,X2,X3                                                FA=RDW     72
                                                  SA2    B2          RESTORE (X2) = FILE CONTROL WORD            FA=RDW     73
                                                  MX1    0           *TRANSFER COMPLETE* STATUS                  FA=RDW     74
                                                  ZR     B3,FA=RDW   IF TRANSFER COMPLETE, EXIT                  FA=RDW     75
                                                  LX3    X2,B1       LEFT ADJUST SPILL FLAG                      FA=RDW     76
                                                  SX1    B6          *EOS DETECTED* STATUS                       FA=RDW     77
                                                  PL     X3,FA=RDW   IF FILE NOT SPILLED TO DISK, EXIT           FA=RDW     78
                                                  FETCH  X2,FP,X3,X4                                             FEAT126C   25
                                                  SX4    #EOS#+#EOP#+#EOI#                                       FA=RDW     83
                                                  BX3    X4*X3                                                   FA=RDW     84
                                                  NZ     X3,RDW5     IF FILE AT EOS/EOP/EOI                      FA=RDW     86
                                                                                                                 FA=RDW     87
                                        *         REFILL HOLDING BUFFER.                                         FA=RDW     88
                                                                                                                 FA=RDW     89
                                         RDW3     SA3    B2+B1       -FIRST-                                     FA=RDW     90
                                                  SA4    B2+I.LIMIT  -LIMIT-                                     FA=RDW     91
                                                  IX1    X4-X3       HOLDING BUFFER LENGTH                       FA=RDW     92
                                                  GETWP  X2,X3,X1,RDW7     RETURNS (X1) = TRANSFER LENGTH        FA=RDW     93
                                         RDW4     ZR     X1,RDW5     IF NO DATA RECEIVED                         FA=RDW     94
                                                  BX6    X3                                                      FA=RDW     95
                                                  IX7    X3+X1                                                   FA=RDW     96
                                                  SA6    A4-B1       RESET -OUT- = -FIRST-                       FA=RDW     97
                                                  SA7    A3+B1       SET NEW -IN-                                FA=RDW     98
                                                  JP     RDW2        CONTINUE TRANSFER                           FA=RDW     99
                                                                                                                 FA=RDW    100
                                        *         PROCESS END-OF-DATA CONDITION.                                 FA=RDW    101
                                                                                                                 FA=RDW    102
                                         RDW5     SA3    B2+B1       -FIRST-                                     FA=RDW    103
                                                  SX1    B6          *EOS DETECTED* STATUS                       FA=RDW    104
                                                  BX6    X3                                                      FA=RDW    105
                                                  SA6    A3+B1       RESET -IN- = -FIRST-                        FA=RDW    106
                                                  SA6    A6+B1       RESET -OUT- = -FIRST-                       FA=RDW    107
                                                  GT     B6,B4,FA=RDW      IF ANY DATA TRANSFERRED TO WSA        FA=RDW    108
                                                  MX1    -1          *EOP/EOI* STATUS                            FA=RDW    109
                                                  JP     FA=RDW      EXIT                                        FA=RDW    110
                                                                                                                 FA=RDW    111
                                        *         PROCESS EMPTY HOLDING BUFFER.                                  FA=RDW    112
                                                                                                                 FA=RDW    113
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    67
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                         RDW6     SA2    B2          RESTORE (X2) = PSEUDO-FET WORD 1            FA=RDW    114
                                                  LX1    X2,B1       LEFT ADJUST SPILL FLAG                      FA=RDW    115
                                                  PL     X1,RDW5     IF FILE NOT SPILLED TO DISK                 FA=RDW    116
                                                  JP     RDW3        GO REFILL HOLDING BUFFER                    FA=RDW    117
                                                                                                                 FA=RDW    118
                                        *         PROCESS RECORD MANAGER DATA EXIT.                              FA=RDW    119
                                                                                                                 FA=RDW    120
                                         RDW7     JP     *+4S15      ** REC MGR SIMULATES -RJ- HERE IF E-O-D **  FA=RDW    121
                                                  JP     RDW4        CONTINUE (IGNORE 7RM *RECORD* END)          FA=RDW    122
                                                                                                                 FA=RDW    123
                                                                                                                 FA=RDW    124
                                                  IF     -DEF,QUAL$,2                                            FA=RDW    125
                                                  QUAL   *                                                       FA=RDW    126
                                         FA=RDW   EQU    /FA=RDW/FA=RDW                                          FA=RDW    127
                                                  ENDX                                                           FA=RDW    128
                                                  ENTRY  FA=RDW                                                  TABLES   1374
                                                  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
                                        *                                                                        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
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    68
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                  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
                                                  ENDX                                                           FA=RWX     49
                                                  ENTRY  FA=RWX                                                  TABLES   1376
                                                  CTEXT  FA=WTC - WRITE CODED LINE, -C- FORMAT                   FA=WTC      2
                                         WTC      SPACE  4                                                       FA=WTC      3
                                                  IF     -DEF,QUAL$,1                                            FA=WTC      4
                                                  QUAL   FA=WTC                                                  FA=WTC      5
                                                                                                                 FA=WTC      6
                                                                                                                 FA=WTC      7
                                        **        FA=WTC - WRITE CODED LINE TO FILE, IN -C- FORMAT.              FA=WTC      8
                                        *                                                                        FA=WTC      9
                                        *                *FA=WTC* PARALLELS ITS KRONOS MODEL, *COMCWTC*.         FA=WTC     10
                                        *         FOR EFFICIENCY, LINE LENGTH IN WORDS MAY BE PROVIDED IN (B7)   FA=WTC     11
                                        *         ON ENTRY.  THIS WILL AVOID A SCAN FOR AN END-OF-LINE ZERO      FA=WTC     12
                                        *         BYTE.  IF LENGTH IS NOT PROVIDED, (B7) MUST CONTAIN ZERO.      FA=WTC     13
                                        *                                                                        FA=WTC     14
                                        *                                                                        FA=WTC     15
                                        *         ENTRY  (X2) = FIT ADDRESS                                      FA=WTC     16
                                        *                (B1) = 1                                                FA=WTC     17
                                        *                (B6) = LINE ADDRESS                                     FA=WTC     18
                                        *                (B7) = LINE LENGTH IN WORDS, OR ZERO - SEE ABOVE        FA=WTC     19
                                        *                                                                        FA=WTC     20
                                        *         EXIT   (X2) = FIT ADDRESS                                      FA=WTC     21
                                        *                (B1) = 1                                                FA=WTC     22
                                        *                                                                        FA=WTC     23
                                        *         USES   X - 1, 3, 4, 6, 7                                       FA=WTC     24
                                        *                A - 1, 4                                                FA=WTC     25
                                        *                B - 2, 7                                                FA=WTC     26
                                        *                                                                        FA=WTC     27
                                        *         CALLS  PUT                                                     FA=WTC     28
                                                                                                                 FA=WTC     29
                                                                                                                 FA=WTC     30
                                         FA=WTC   JP     *+4S15      ** ENTRY/EXIT **                            FA=WTC     31
                                                                                                                 FA=WTC     32
                                                  IFNE   TEST,0,1                                                FA=WTC     33
                                                  LT     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB            FA=WTC     34
                                                                                                                 FA=WTC     35
                                        *         DETERMINE LINE LENGTH (WORDS).                                 FA=WTC     36
                                                                                                                 FA=WTC     37
                                                  GT     B7,B0,WTC3  IF CALLER PROVIDED LENGTH                   FA=WTC     38
                                                  SA1    B6          (X1) = FIRST WORD OF LINE                   FA=WTC     39
                                                  MX6    -12D                                                    FA=WTC     40
                                         WTC2     BX7    -X6*X1      EXTRACT EOL BYTE FIELD                      FA=WTC     41
                                                  SA1    A1+B1                                                   FA=WTC     42
                                                  NZ     X7,WTC2     IF NOT END-OF-LINE                          FA=WTC     43
                                                  SB7    A1-B6       (B7) = LINE LENGTH (WORDS)                  FA=WTC     44
                                                                                                                 FA=WTC     45
                                        *         DETERMINE LINE LENGTH (CHARACTERS).                            FA=WTC     46
                                                                                                                 FA=WTC     47
                                         WTC3     SB2    B7-B1                                                   FA=WTC     48
                                                  SX6    B7                                                      FA=WTC     49
                                                  SA1    B6+B2       (X1) = LAST WORD OF LINE                    FA=WTC     50
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    69
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                  IX7    X6+X6                                                   FA=WTC     51
                                                  LX6    3                                                       FA=WTC     52
                                                  SA4    WTCA        (X4) = CHARACTER BYTE MASK                  FA=WTC     53
                                                  IX7    X6+X7       (X7) = LINE LENGTH (CHARACTERS)             FA=WTC     54
                                                                                                                 FA=WTC     55
                                        *         LOCATE AND COUNT LINE TERMINATING ZERO BYTES.  ADJUST LINE     FA=WTC     56
                                        *         LENGTH (IN CHARACTERS) ACCORDINGLY.                            FA=WTC     57
                                                                                                                 FA=WTC     58
                                                  CX6    X1          MINUS ZERO PROTECT                          FA=WTC     59
                                                  MX3    -1                                                      FA=WTC     60
                                                  NZ     X6,WTC4     IF LAST WORD NOT NULL                       FA=WTC     61
                                                  SA1    A1-1        (X1) = LAST NON-NULL WORD OF LINE           FA=WTC     62
                                                  SX7    X7-10D                                                  FA=WTC     63
                                         WTC4     IX6    X1+X3       BORROW PROPAGATES LEFT THRU ALL ZERO BYTES  FA=WTC     64
                                                  NO                                                             FA=WTC     65
                                                  BX1    -X1*X6                                                  FA=WTC     66
                                                  SX3    B6          (X3) = LINE ADDRESS                         FA=WTC     67
                                                  BX6    X4*X1       RETAIN *40* IN EACH NULL CHAR BYTE POSITION FA=WTC     68
                                                  NO                                                             FA=WTC     69
                                                  CX1    X6          (X1) = NR OF NULL CHARACTERS                FA=WTC     70
                                                  IX4    X7-X1       (X4) = LINE LENGTH (NON-NULL CHARACTERS)    FA=WTC     71
                                                  PUT    X2,X3,X4                                                FA=WTC     72
                                                  JP     FA=WTC      EXIT                                        FA=WTC     73
                                                                                                                 FA=WTC     74
                                                                                                                 FA=WTC     75
                                                                                                                 FA=WTC     76
                                         WTCA     DATA   40404040404040404040B                                   FA=WTC     77
                                                                                                                 FA=WTC     78
                                                                                                                 FA=WTC     79
                                                  IF     -DEF,QUAL$,2                                            FA=WTC     80
                                                  QUAL   *                                                       FA=WTC     81
                                         FA=WTC   EQU    /FA=WTC/FA=WTC                                          FA=WTC     82
                                                  ENDX                                                           FA=WTC     83
                                                  ENTRY  FA=WTC                                                  TABLES   1378
                                                  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
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    70
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                        *         CALLS  MOVE, PUTW                                              FA=WTW     25
                                                                                                                 FEAT126CA   4
                                         FA=WTWA  BSS    1           STORAGE FOR (X5)                            FEAT126CA   5
                                         FA=WTWB  BSS    1           STORAGE FOR (A5)                            FEAT126CA   6
                                                                                                                 FA=WTW     26
                                                                                                                 FA=WTW     27
                                         FA=WTW   JP     *+4S15      ** ENTRY/EXIT **                            FA=WTW     28
                                                                                                                 FA=WTW     29
                                                  IFNE   TEST,0,1                                                FA=WTW     30
                                                  LT     B7,B0,*+4S15  IF LENGTH ERROR, ABORT JOB                FA=WTW     31
                                                                                                                 FA=WTW     32
                                                  ZR     B7,FA=WTW   IF ZERO LENGTH WRITE                        FA=WTW     33
                                         WTW2     SA3    A2+I.IN     (X3) = HOLDING BUFFER -IN- POINTER          FA=WTW     34
                                                  SA4    A2+I.LIMIT  (X4) = HOLDING BUFFER -LIMIT- POINTER       FA=WTW     35
                                                  SX6    X3+B7       UPDATED -IN-                                FA=WTW     36
                                                  IX1    X6-X4       DATA LENGTH .MI. EMPTY BUFFER SPACE         FA=WTW     37
                                                  MI     X1,WTW4     IF DATA WILL NOT OVERFLOW BUFFER            FA=WTW     38
                                                                                                                 FA=WTW     39
                                        *         FILL HOLDING BUFFER.  CALL RECORD MANAGER TO WRITE IT TO FILE. FA=WTW     40
                                                                                                                 FA=WTW     41
                                                  MX6    1                                                       FA=WTW     42
                                                  SB2    A2          (B2) = PSEUDO-FET ADDRESS                   FA=WTW     43
                                                  LX6    -59D+58D                                                FA=WTW     44
                                                  SB3    X1          (B3) = LENGTH OF EXCESS DATA                FA=WTW     45
                                                  BX6    X2+X6                                                   FA=WTW     46
                                                  IX1    X4-X3                                                   FA=WTW     47
                                                  SX2    B6                                                      FA=WTW     48
                                                  SA6    A2          FILE SPILLED FLAG .ON.                      FA=WTW     49
                                                  SB6    B6+X1       (B6) = FWA EXCESS DATA                      FA=WTW     50
                                                  ZR     X1,WTW3     IF ZERO LENGTH MOVE                         FA=WTW     51
                                                  MOVE   X1,X2,X3                                                FA=WTW     52
                                         WTW3     SA2    B2          (X2) = FILE CONTROL WORD                    FEAT126C   28
                                                                                                                 FEAT126CA   7
                                        *         NOTE,  ***  COLOSSAL KLUGE  ***.                               FEAT126CA   8
                                        *                                                                        FEAT126CA   9
                                        *         A5 AND X5 SAVED FOR 7RM *FETCH* MACRO. THIS CODE IS TO         FEAT126CA  10
                                        *         BE REMOVED AT THE EARLIEST OPPORTUNITY TO BE SUBSTITUTED       FEAT126CA  11
                                        *         BY A MORE *CHIC* METHOD.                                       FEAT126CA  12
                                                                                                                 FEAT126CA  13
                                                  BX6    X5                                                      FEAT126CA  14
                                                  SA6    FA=WTWA     SAVE (X5)                                   FEAT126CA  15
                                                  SX6    A5                                                      FEAT126CA  16
                                                  SA6    FA=WTWB     SAVE (A5)                                   FEAT126CA  17
                                                                                                                 FEAT126CA  18
                                                  FETCH  X2,RT,X4,X1,X3,X6                                       FEAT126C   29
                                                                                                                 FEAT126CA  19
                                                  SA3    FA=WTWB                                                 FEAT126CA  20
                                                  SA5    X3          RESTORE (A5)                                FEAT126CA  21
                                                  SA3    FA=WTWA                                                 FEAT126CA  22
                                                  BX5    X3          RESTORE (X5)                                FEAT126CA  23
                                                                                                                 FEAT126CA  24
                                        *         END OF KLUGE.                                                  FEAT126CA  25
                                                                                                                 FEAT126CA  26
                                                  SA3    B2+I.LIMIT  (X3) = -LIMIT-                              FEAT126C   30
                                                  SA1    B2+B1       (X1) = -FIRST-                              FA=WTW     54
                                                  IX3    X3-X1       (X3) = HOLDING BUFFER LENGTH                FA=WTW     56
                                                  BX6    X1                                                      FA=WTW     57
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    71
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                  SA6    A1+B1       RESET -IN- = -FIRST-                        FA=WTW     58
                                                  SB7    X4-#ST#                                                 FEAT126C   31
                                                  ZR     B7,WTW3A    IF S TYPE RECORD                            FEAT126C   32
                                                  PUTW   X2,X1,X3    WRITE HOLDING BUFFER TO FILE                FA=WTW     59
                                                  SB7    B3          (B7) = LENGTH OF UNTRANSFERRED DATA         FA=WTW     60
                                                  JP     WTW2        CONTINUE FILLING HOLDING BUFFER             FA=WTW     61
                                                                                                                 FA=WTW     62
                                         WTW3A    PUTWP  X2,X1,X3                                                FEAT126C   33
                                                  SB7    B3          (B7) = LENGTH OF UNTRANSFERRED DATA         FEAT126C   34
                                                  JP     WTW2        CONTINUE FILLING HOLDING BUFFER             FEAT126C   35
                                                                                                                 FEAT126C   36
                                        *         MOVE DATA TO HOLDING BUFFER AND EXIT.                          FA=WTW     63
                                                                                                                 FA=WTW     64
                                         WTW4     SB2    A2          TEMP SAVE PSEUDO-FET ADDRESS                FA=WTW     65
                                                  SX1    B7          WSA LENGTH                                  FA=WTW     66
                                                  SX2    B6          WSA ADDRESS                                 FA=WTW     67
                                                  SA6    A3          UPDATE -IN-                                 FA=WTW     68
                                                  MOVE   X1,X2,X3                                                FA=WTW     69
                                                  SA2    B2          RESTORE (A2), (X2) FOR EXIT                 FA=WTW     70
                                                  JP     FA=WTW      EXIT                                        FA=WTW     71
                                                                                                                 FA=WTW     72
                                                                                                                 FA=WTW     73
                                                  IF     -DEF,QUAL$,2                                            FA=WTW     74
                                                  QUAL   *                                                       FA=WTW     75
                                         FA=WTW   EQU    /FA=WTW/FA=WTW                                          FA=WTW     76
                                                  ENDX                                                           FA=WTW     77
                                                  ENTRY  FA=WTW                                                  TABLES   1380
                                         #RM      ENDIF                                                          TABLES   1381
                                                                                                                 TABLES   1382
                                        **        CDD -  CONVERT DECIMAL INTEGER TO DISPLAY CODE.                TABLES   1383
                                        *                                                                        TABLES   1384
                                        *         ADAPTED FROM SUBROUTINE *CONDEC* IN *COMPASS*.                 TABLES   1385
                                        *         ENTRY  (X1) = NUMBER TO BE CONVERTED                           TABLES   1386
                                        *         EXIT   (B2) = NUMBER OF SIGNIFICANT BITS IN REPLY.  TO LEFT-   TABLES   1387
                                        *                            JUSTIFY (X6) -- SB2 B2-10*CHAR,  AX6 B2.    TABLES   1388
                                        *                (X6) = DPC CONVERSION WITH LEADING ZEROES SUPPRESSED,   TABLES   1389
                                        *                       RIGHT JUSTIFIED, SPACE FILLED (0A FORMAT).       TABLES   1390
                                        *         USES   A2,A3,A4  B2,B3                                         TABLES   1391
                                                                                                                 TABLES   1392
                                                                                                                 TABLES   1393
          1321  42412                    CDD2     DX4    X1*X2                                                   TABLES   1394
                     40112                        FX1    X1*X2                                                   TABLES   1395
                          63310                   SB3    X1                                                      TABLES   1396
                               20666              LX6    -CHAR                                                   TABLES   1397
          1322  6122000006                        SB2    B2+CHAR                                                 TABLES   1398
                          40443                   FX4    X4*X3                                                   TABLES   1399
          1323  7244777755                        SX4    X4-1R +1R0                                              TABLES   1400
                          36646                   IX6    X4+X6                                                   TABLES   1401
          1324  0530001321 +                      NZ     B3,CDD2     IF REMAINDER NON-ZERO                       TABLES   1402
                          20666                   LX6    -CHAR                                                   TABLES   1403
                               22626              LX6    X6,B2                                                   TABLES   1404
                                                                                                                 TABLES   1405
          1325  0400401325 +             CDD      SUBR               ENTRY/EXIT...                               TABLES   1406
          1326  5120001400 +                      SA2    CDDA                                                    TABLES   1407
                          66200                   SB2    B0                                                      TABLES   1408
                               54321              SA3    A2+B1                                                   TABLES   1409
          1327  5140001377 +                      SA4    =1H                                                     TABLES   1410
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    72
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                          27101                   PX1    X1                                                      TABLES   1411
                               10644              BX6    X4                                                      TABLES   1412
          1330  0400001321 +                      EQ     CDD2        ENTER LOOP..                                TABLES   1413
                                                                                                                 TABLES   1414
                                1400 +   CDDA     LIT    0.1000000001P48,10.0P0                                  TABLES   1415
  
  
  
  
                                        **        COD - CONVERT BINARY TO OCTAL DPC.                             FEAT155F  159
                                        *                                                                        FEAT155F  160
                                        *                                                                        FEAT155F  161
                                        *                CONVERTS A BINARY NUMBER TO OCTAL DPC WITH LEADING      FEAT155F  162
                                        *         ZERO SUPPRESSION.                                              FEAT155F  163
                                        *                                                                        FEAT155F  164
                                        *         NOTE-- INTENDED FOR CONVERTING A NUMBER WITH .LE. TO 6 BINARY  FEAT155F  165
                                        *         (3 BIT) DIGITS. NO ERROR CONDITION IS FLAGGED IF .GT. 6 DIGITS FEAT155F  166
                                        *         ARE CONVERTED.                                                 FEAT155F  167
                                        *                                                                        FEAT155F  168
                                        *         ENTRY  (X1) = BINARY NR TO BE CONVERTED                        FEAT155F  169
                                        *                                                                        FEAT155F  170
                                        *         EXIT   (X2) = NR CONVERTED TO OCTAL DPC, RIGHT JUSTIFIED TO    FEAT155F  171
                                        *                         BIT 18, WITH BLANK FILL--  (.=BLANK(55B))      FEAT155F  172
                                        *                         CHAR POS 10 9 8 7 6 5 4 3 2 1                  FEAT155F  173
                                        *                         CONV NR   . 1 2 3 4 5 6 . . .                  FEAT155F  174
                                        *                (X6) = SAME AS ABOVE WITH -B- SUFFIX--                  FEAT155F  175
                                        *                                   . 1 2 3 4 5 6 B . .                  FEAT155F  176
                                        *                (B7) = NR OF DIGITS*6 CONVERTED + 2*6  (NOT INCLUDING   FEAT155F  177
                                        *                         -B- SUFFIX). TO LEFT JUSTIFY NR IN X2 OR X6 -- FEAT155F  178
                                        *                SB7    B7-9*CHAR                                        FEAT155F  179
                                        *                AX2    X2,B7                                            FEAT155F  180
                                        *                                                                        FEAT155F  181
                                        *         USES   X - 0,1,2,6                                             FEAT155F  182
                                        *                A - 2                                                   FEAT155F  183
                                        *                B - 7                                                   FEAT155F  184
                                        *                                                                        FEAT155F  185
                                        *         CALLS  NONE                                                    FEAT155F  186
                                                                                                                 FEAT155F  187
                                                                                                                 FEAT155F  188
          1331  0400401331 +             COD      SUBR   =           ** ENTRY/EXIT **                            FEAT155F  189
          1332  5120001377 +                      SA2    =10H                                                    FEAT155F  190
                          6170000014              SB7    2*CHAR                                                  FEAT155F  191
                                                                                                                 FEAT155F  192
          1333  43071                    COD2     MX0    -3                                                      FEAT155F  193
                     6177000006                   SB7    B7+CHAR                                                 FEAT155F  194
                               15610              BX6    -X0*X1                                                  FEAT155F  195
          1334  20266                             LX2    -CHAR                                                   FEAT155F  196
                     7266777755                   SX6    X6+1R0-1R                                               FEAT155F  197
                               21103              AX1    3                                                       FEAT155F  198
          1335  36226                             IX2    X2+X6                                                   FEAT155F  199
                     0311001333 +                 NZ     X1,COD2     IF NOT FINISHED ASSEMBLING NR               FEAT155F  200
                               22272              LX2    X2,B7       (X2) = NR IN OCTAL DPC, RT JUST TO BIT 18   FEAT155F  201
          1336  7110000053                        SX1    1R -1RB                                                 FEAT155F  202
                          20114                   LX1    2*CHAR                                                  FEAT155F  203
                               37621              IX6    X2-X1       (X6) = SAME AS (X2) W/ -B- SUFFIX           FEAT155F  204
          1337  0400001331 +                      EQ     EXIT.                                                   FEAT155F  205
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    73
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    DXB 
  
                                        **        DXB - DISPLAY CODE TO BINARY CONVERSION.                       TABLES   1442
                                        *                                                                        TABLES   1443
                                        *         ENTRY  (X1) = NUMBER TO CONVERT (0L FORMAT).                   TABLES   1444
                                        *                                                                        TABLES   1445
                                        *         EXIT   (X6) = CONVERTED DIGITS.                                TABLES   1446
                                        *                                                                        TABLES   1447
                                        *         USES   X0,X1,X2,X5,X6,X7  B2,B3.                               FEAT155G   36
                                                                                                                 TABLES   1449
                                                                                                                 TABLES   1450
          1340  0400401340 +             DXB      SUBR               ENTRY/EXIT...                               TABLES   1451
          1341  43066                             MX0    -CHAR                                                   TABLES   1452
                     6130777744                   SB3    -1R0                                                    TABLES   1453
                               13666              BX6    0           CLEAR ASSEMBLY                              TABLES   1454
          1342  66211                             SB2    B1+B1                                                   TABLES   1455
                                                                                                                 TABLES   1456
                                        **        CONVERSION LOOP.                                               TABLES   1457
                                                                                                                 TABLES   1458
          1343  20106                    DXB1     LX1    CHAR                                                    TABLES   1459
                     15710                        BX7    -X0*X1                                                  TABLES   1460
                          0307001340 +            ZR     X7,DXBX     IF END OF ASSEMBLY                          TABLES   1461
          1344  22226                             LX2    X6,B2       DECIMAL * 10                                TABLES   1462
                     73773                        SX7    X7+B3                                                   TABLES   1463
                          36626                   IX6    X2+X6                                                   TABLES   1464
                               11101              BX1    X0*X1       CLEAR CHARACTER                             TABLES   1465
          1345  20601                             LX6    1                                                       TABLES   1466
                     36667                        IX6    X6+X7       DECIMAL + NEW DIGIT                         TABLES   1467
                          0400001343 +            EQ     DXB1                                                    TABLES   1468
  
  
  
  
                                        **        LJS -  LEFT JUSTIFY STATEMENT LABEL.                           FEAT155G   38
                                        *                                                                        FEAT155G   39
                                        *         ENTRY  (X5) = DPC STATEMENT LABEL (0R FORMAT).                 FEAT155G   40
                                        *         EXIT   (X6) = DPC STATEMENT LABEL (0H FORMAT).                 FEAT155G   41
                                        *         USES   A1,A2,A3,A6  B2,B3,B7  X1,X2,X3,X5,X6                   FEAT155G   42
                                        *         SAVES  A0,A4,A5,A7  B4,B5,B6  X0,X4,X7                         FEAT155G   43
                                        *         CALLS  SFN.                                                    FEAT155G   44
                                                                                                                 FEAT155G   45
                                                                                                                 FEAT155G   46
          1346  0400401346 +             LJS      SUBR               ENTRY/EXIT...                               FEAT155G   47
                                                                                                                 FEAT155G   48
                                         .TEST    IFNE   TEST                                                    FEAT155G   49
                                                  NZ     X5,LJS2S                                                FEAT155G   50
                                         LJS      REG                IF ZERO -- SOMEBODY GOOFED                  FEAT155G   51
                                                  EQ     =XE.ZA                                                  FEAT155G   52
                                         LJS2S    BSS    0                                                       FEAT155G   53
                                         .TEST    ENDIF                                                          FEAT155G   54
                                                                                                                 FEAT155G   55
          1347  43206                             MX2    CHAR                                                    FEAT155G   56
                     7130005700                   SX3    2R.*-1R*                                                FEAT155G   57
          1350  11625                    LJS4     BX6    X2*X5                                                   FEAT155G   58
                     20506                        LX5    CHAR                                                    FEAT155G   59
                          0306001350 +            ZR     X6,LJS4     LEFT JUSTIFY LABEL                          FEAT155G   60
          1351  12153                             BX1    X5+X3                                                   FEAT155G   61
                     20160                        LX1    -2*CHAR                                                 FEAT155G   62
                          0100001353 +            RJ     SFN         SPACE FILL NAME                             FEAT155G   63
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    74
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    LJS 
  
          1352  0400001346 +                      EQ     EXIT.                                                   FEAT155G   64
  
  
  
  
                                         .TEST    IFNE   TEST,0                                                  FEAT155G   65
                                        **        RPV - REPRIEVE PROCESSOR.                                      TABLES   1471
                                        *                                                                        TABLES   1472
                                        *         IF COMPILATION IS ABORTED DUE TO COMPILER ERROR, *RPV* GAINS   TABLES   1473
                                        *         CONTROL TO FLUSH THE OUTPUT BUFFER AND POST DAYFILE MESSAGES   TABLES   1474
                                        *         THAT IDENTIFY THE PROGRAM UNIT BEING COMPILED AND WHERE THE    TABLES   1475
                                        *         ERROR OCCURRED.  IF THE COMPILER HAS BEEN ASSEMBLED IN TEST    TABLES   1476
                                        *         MODE, ALL FILES IN AN OUTPUT MODE ARE FLUSHED.  FINALLY, THE   TABLES   1477
                                        *         ORIGINAL ERROR CONDITION IS RESTORED TO PERMIT NORMAL *EXIT*   TABLES   1478
                                        *         CONDITION PROCESSING.                                          TABLES   1479
                                        *                                                                        TABLES   1480
                                        *         ENTRY  NO REQUIREMENTS.                                        TABLES   1481
                                        *                                                                        TABLES   1482
                                        *         EXIT   MESSAGES POSTED AND BUFFERS FLUSHED.  REINSTATES THE    TABLES   1483
                                        *                ERROR CONDITION AND RETURNS CONTROL TO THE OPERATING    TABLES   1484
                                        *                SYSTEM.                                                 TABLES   1485
                                        *                                                                        TABLES   1486
                                        *         USES   X - ALL                                                 TABLES   1487
                                        *                A - 1, 2, 3, 5, 6, 7                                    TABLES   1488
                                        *                B - 1, 2                                                TABLES   1489
                                        *                                                                        TABLES   1490
                                        *         CALLS  CDD, SYSTEM (RPV), WRITER                               TABLES   1491
                                                                                                                 TABLES   1492
                                                                                                                 TABLES   1493
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   87
                                         XJP      VFD    12/0,18/LWARPV,30/0                                     TABLES   1495
                                         #OS      ELSE                                                           TABLES   1496
                                         XJP      VFD    12/0,18/LWARPV,6/0,24/77770014B                         TABLES   1497
                                         #OS      ENDIF                                                          TABLES   1498
                                                                                                                 TABLES   1499
                                                  ENTRY  XJP                                                     TABLES   1500
                                                                                                                 TABLES   1501
                                                  BSSZ   16          EXCHANGE PACKAGE AND RA+1                   TABLES   1502
                                                                                                                 TABLES   1503
                                                  MESAGE =XIDENT1,,RCL  *COMPILING NNNNNNN*                      TABLES   1504
                                                                                                                 TABLES   1505
                                        *         SAVE CONTENTS OF ENTRY POINTS THAT *RPV* WILL USE.             TABLES   1506
                                                                                                                 TABLES   1507
                                                  SB1    1                                                       F66FCC    176
                                                  SA1    CDD                                                     TABLES   1508
                                                  SA2    COD                                                     TABLES   1509
                                                  BX6    X1                                                      TABLES   1510
                                                  LX7    X2                                                      TABLES   1511
                                                  SA6    RPVE                                                    CP139FC    94
                                                  SA7    A6+B1                                                   TABLES   1513
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   88
                                                  SA1    =XSYS=                                                  TABLES   1515
                                                  SA2    =XWNB=                                                  TABLES   1516
                                                  SA3    =XMSG=                                                  TABLES   1517
                                                  BX6    X1                                                      TABLES   1518
                                                  LX7    X2                                                      TABLES   1519
                                                  SA6    A7+B1                                                   TABLES   1520
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    75
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    RPV 
  
                                                  SA7    A6+B1                                                   TABLES   1521
                                                  BX6    X3                                                      TABLES   1522
                                                  SA6    A7+B1                                                   TABLES   1523
                                         #RM      IFEQ   CP#RM,0                                                 TABLES   1524
                                                  SA1    CIO=                                                    TABLES   1525
                                                  BX6    X1                                                      TABLES   1526
                                                  SA6    A6+B1                                                   TABLES   1527
                                         #RM      ENDIF                                                          TABLES   1528
                                         #OS      ENDIF                                                          TABLES   1529
                                                                                                                 TABLES   1530
                                                                                                                 TABLES   1531
                                                  SA5    XJP                                                     TABLES   1532
                                                  MX0    -17                                                     TABLES   1533
                                                  LX5    24                                                      TABLES   1534
                                                  BX1    -X0*X5      EXTRACT P REGISTER                          CP139FC    95
                                                  SA5    B0                                                      CP139FC    96
                                                  NZ     X1,RPV2     IF P NONZERO                                CP139FC    97
                                                  LX5    59-47+18                                                CP139FC    98
                                                  BX1    -X0*X5      EXTRACT P FROM RA+0                         CP139FC    99
                                                                                                                 CP139FC   100
                                         RPV2     SB7    RPV3        (B7) = RETURN ADDR                          CP139FC   101
                                                  EQ     FRA=        FIND RELATIVE ADDRESS                       CP139FC   102
                                                                                                                 CP139FC   103
                                         RPV3     SA6    RPVC+1                                                  CP139FC   104
                                                  SA7    A6+B1                                                   CP139FC   105
                                                                                                                 TABLES   1571
                                        *         INDICATE LAST OVERLAY LOADED.                                  TABLES   1572
                                                                                                                 TABLES   1573
                                                  SA1    RA.ORG      (X1) = LOADER CALL PARAM LIST WORD 1        TABLES   1574
                                                  MX0    -6                                                      TABLES   1575
                                                  LX1    6                                                       TABLES   1576
                                                  BX6    -X0*X1      PRIMARY LEVEL                               TABLES   1577
                                                  LX1    6                                                       TABLES   1578
                                                  BX7    -X0*X1      SECONDARY LEVEL                             TABLES   1579
                                                  LX6    12                                                      TABLES   1580
                                                  SB2    X7          (B2) = SECONDARY OVERLAY LEVEL NUMBER       TABLES   1581
                                                  BX7    X6+X7                                                   TABLES   1582
                                                  SA2    RPVD+2      * - (0,0)  *                                CP139FC   106
                                                  LX7    18                                                      TABLES   1584
                                                  IX6    X2+X7                                                   TABLES   1585
                                                  SA6    A2                                                      TABLES   1586
                                                                                                                 TABLES   1587
                                        *         INDICATE LAST SOURCE STATEMENT PROCESSED.                      TABLES   1588
                                                                                                                 TABLES   1589
                                                  SA1    REFLIN                                                  FEAT155E   95
                                                  AX1    CHAR                                                    FEAT155E   96
                                                  RJ     CDD                                                     FEAT155E   97
                                                  SB2    B2-10*CHAR                                              CP139FC   107
                                                  AX6    B2          LEFT JUSTIFY                                CP139FC   108
                                                  MX0    8*CHAR                                                  CP139FC   109
                                                  BX6    X0*X6       CREATE 12-BIT ZERO BYTE MSG TERMINATOR      CP139FC   110
                                                  SA6    RPVB+3      LINE NUMBER TO MESSAGE TEXT                 CP139FC   111
                                                                                                                 TABLES   1594
                                        *         ISSUE THE DAYFILE MESSAGES.                                    TABLES   1595
                                                                                                                 TABLES   1596
                                                  MESSAGE   RPVB,,RCL      * LAST STATEMENT BEGAN AT LINE NNNN*  CP139FC   112
                                         RPV7     MESSAGE   RPVC,,RCL      * ERROR AT XXXXXX IN YYYYYYY*         CP139FC   113
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    76
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    RPV 
  
                                                  MESSAGE   RPVD,,RCL      * LAST OVERLAY LOADED - (P,S)*        CP139FC   114
                                                                                                                 TABLES   1600
                                        *         FLUSH FILE I/O BUFFERS (DIRECT CIO I/O ONLY).                  TABLES   1601
                                                                                                                 TABLES   1602
                                         #RM      IFEQ   CP#RM,0                                                 TABLES   1603
                                                  SA1    =XF.OUT                                                 TABLES   1604
                                                  SX6    B1                                                      TABLES   1605
                                                  BX7    X1+X6                                                   TABLES   1606
                                                  SA7    A1          INSURE CIO COMPLETE BIT IS ON               TABLES   1607
                                                  WRITER A1,,RCL                                                 TABLES   1608
                                                  SX6    3           FLUSH COUNT - 1  (LGO, CMPS, RLST, RMAP)    TABLES   1609
                                         RPV8     SA2    =XFV.LGO+X6 (X2) = NEXT FILE FET ADDRESS                TABLES   1610
                                                  SA6    RPVF        TEMP SAVE VECTOR OFFSET                     TABLES   1611
                                                  ZR     X2,RPV9     IF FILE DESELECTED BY CONTROL CARD OPTION   TABLES   1612
                                                  SA1    X2          (X1) = FET WORD 1                           TABLES   1613
                                                  MX0    -6                                                      TABLES   1614
                                                  SX6    B1                                                      TABLES   1615
                                                  BX7    X1+X6                                                   TABLES   1616
                                                  SA3    RPVA        (X3) = SHIFT TEST MASK FOR CIO CODE         CP139FC   115
                                                  AX1    2                                                       TABLES   1618
                                                  BX0    -X0*X1      EXTRACT CIO CODE                            TABLES   1619
                                                  SB2    X0                                                      TABLES   1620
                                                  LX3    B2                                                      TABLES   1621
                                                  PL     X3,RPV9     IF LAST CIO OP NOT OPEN OR WRITE            TABLES   1622
                                                  SA7    A1          INSURE CIO COMPLETE BIT IS ON               TABLES   1623
                                                  WRITER A1,,RCL     FLUSH BUFFER                                TABLES   1624
                                         RPV9     SA1    RPVF                                                    TABLES   1625
                                                  SX6    X1-1        (X6) = NEXT FILE OFFSET IN VECTOR TABLE     TABLES   1626
                                                  PL     X6,RPV8     IF MORE FILES TO FLUSH                      TABLES   1627
                                         #RM      ENDIF                                                          TABLES   1628
                                                                                                                 TABLES   1629
                                        *         RESTORE SAVED ENTRY POINT CONTENTS.                            TABLES   1630
                                                                                                                 TABLES   1631
                                                  SA1    RPVE                                                    CP139FC   116
                                                  SA2    A1+B1                                                   TABLES   1633
                                                  BX6    X1                                                      TABLES   1634
                                                  LX7    X2                                                      TABLES   1635
                                                  SA6    CDD                                                     TABLES   1636
                                                  SA7    COD                                                     TABLES   1637
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   96
                                                  SA1    A2+2        (WILL RESTORE SYS= LATER)                   TABLES   1639
                                                  SA2    A1+B1                                                   TABLES   1640
                                                  BX6    X1                                                      TABLES   1641
                                                  LX7    X2                                                      TABLES   1642
                                                  SA6    =XWNB=                                                  TABLES   1643
                                                  SA7    =XMSG=                                                  TABLES   1644
                                         #RM      IFEQ   CP#RM,0                                                 TABLES   1645
                                                  SA1    A2+B1                                                   TABLES   1646
                                                  BX6    X1                                                      TABLES   1647
                                                  SA6    CIO=                                                    TABLES   1648
                                         #RM      ENDIF                                                          TABLES   1649
                                         #OS      ENDIF                                                          TABLES   1650
                                                                                                                 TABLES   1651
                                        *         REINSTATE THE ERROR CONDITON.                                  TABLES   1652
                                                                                                                 TABLES   1653
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A   97
                                                  SX1    B1                                                      TABLES   1655
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    77
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    RPV 
  
                                                  LX1    35-0                                                    TABLES   1656
                                                  SYSTEM RPV,,X1                                                 TABLES   1657
                                                  SA1    RPVE+2      (X1) = SAVED (SYS=)                         CP139FC   117
                                                  BX6    X1                                                      TABLES   1659
                                                  SA6    =XSYS=      RESTORE PREVIOUS CONTENTS                   TABLES   1660
                                         +        EQ     *           WAIT FOR OP SYS TO PICK UP ERROR            TABLES   1661
                                         #OS      ELSE                                                           TABLES   1662
                                                  SX6    =XFVLEN-1   (X6) = FILE VECTOR TABLE OFFSET             TABLES   1663
                                         RPV10    SA2    RA.ARG+X6   (X2) = FIT ADDRESS FROM FILE VECTOR TABLE   TABLES   1664
                                                  SA6    =XGT1       TEMP STORE OFFSET                           TABLES   1665
                                                  ZR     X2,RPV11    IF FILE DESELECTED                          TABLES   1666
                                                  RJ     FA=CLO      CLOSE FILE                                  TABLES   1667
                                         RPV11    SA1    =XGT1                                                   TABLES   1668
                                                  SX6    X1-1        (X6) = OFFSET FOR NEXT FILE                 TABLES   1669
                                                  PL     X6,RPV10    IF MORE FILES TO CLOSE                      TABLES   1670
                                                  SA1    =XXJP                                                   FEAT155F  206
                                                  RJ     =XDXP=      DUMP EXCHANGE PACKAGE                       FEAT155F  207
                                                  ABORT              *** TEMPORARY UNTIL SCOPE 2.0 REPRIEVE      TABLES   1671
                                        *                            *** RESET METHOD IS AVAILABLE.              TABLES   1672
                                         #OS      ENDIF                                                          TABLES   1673
                                                                                                                 TABLES   1674
                                                                                                                 TABLES   1675
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A  100
                                         RPVA     BSS    0                                                       CP139FC   118
                                                  ECHO   2,CIOCODE=(4B,14B,104B,120B,144B,160B)                  TABLES   1685
                                                  POS    60-CIOCODE_S-2                                          TABLES   1686
                                                  VFD    1/1                                                     TABLES   1687
                                                  POS    0                                                       CP139FC   119
                                                  BSS    0                                                       TABLES   1688
                                         #OS      ENDIF                                                          TABLES   1698
                                         FRA      SPACE  4,8                                                     CP139FC   120
                                        **        FRA - FIND RELATIVE ADDRESS.                                   CP139FC   121
                                        *                                                                        CP139FC   122
                                        *                GIVEN AN ABSOLUTE ADDRESS, *FRA* FINDS THE ROUTINE      CP139FC   123
                                        *         NAME AND RELATIVE ADDRESS BY SEARCHING THE TABLES INSTALLED    CP139FC   124
                                        *         ORIGINALLY FOR *RPV* PROCESSING.                               CP139FC   125
                                        *                                                                        CP139FC   126
                                        *                *FRA* DOES NOT USE A RETURN JUMP CALLING SEQUENCE       CP139FC   127
                                        *         BECAUSE IT IS LOCATED IN CODE SPACE CHECKSUMMED BY *RPV*.      CP139FC   128
                                        *                                                                        CP139FC   129
                                        *                                                                        CP139FC   130
                                        *         ENTRY  (X1) = ADDRESS RELATIVE TO RA+0                         CP139FC   131
                                        *                (B7) = EXIT ADDRESS                                     CP139FC   132
                                        *                                                                        CP139FC   133
                                        *         EXIT   TO (B7), WITH ...                                       CP139FC   134
                                        *                (X6) = RELATIVE ADDRESS, DPC, *NNNNNN IN *              CP139FC   135
                                        *                (X7) = ROUTINE NAME, DPC, L FORMAT                      CP139FC   136
                                        *                                                                        CP139FC   137
                                        *         USES   X - 0, 1, 2, 3, 6, 7                                    CP139FC   138
                                        *                A - 2                                                   CP139FC   139
                                        *                B - 2, 3                                                CP139FC   140
                                        *                                                                        CP139FC   141
                                        *         CALLS  COD                                                     CP139FC   142
                                                                                                                 CP139FC   143
                                                                                                                 CP139FC   144
                                                  QUAL   FRA                                                     CP139FC   145
                                                                                                                 CP139FC   146
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    78
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    RPV 
  
                                         FRA=     SA2    =XFWA1.0                                                CP139FC   147
                                                  SB2    X1          (B2) = ADDRESS RELATIVE TO RA+0             CP139FC   148
                                                                                                                 CP139FC   149
                                        *         SEARCH ADDRESS TABLE.                                          CP139FC   150
                                                                                                                 CP139FC   151
                                         FRA2     BX6    X2                                                      CP139FC   152
                                                  SA2    A2+1        (X2) = NEXT TABLE ENTRY                     CP139FC   153
                                                  SB3    X2                                                      CP139FC   154
                                                  ZR     X2,FRA3     IF END OF TABLE                             CP139FC   155
                                                  GE     B2,B3,FRA2  IF ABS ADDR BEYOND CURRENT ENTRY            CP139FC   156
                                                                                                                 CP139FC   157
                                        *         EXTRACT ROUTINE NAME AND FORMAT RELATIVE ADDRESS.              CP139FC   158
                                                                                                                 CP139FC   159
                                         FRA3     MX7    42                                                      CP139FC   160
                                                  SX3    X6          (X3) = ROUTINE FWA                          CP139FC   161
                                                  BX7    X7*X6       (X7) = ROUTINE NAME, 0L FORMAT              CP139FC   162
                                                  IX1    X1-X3       (X1) = ADDRESS RELATIVE TO ROUTINE ORIGIN   CP139FC   163
                                                  SB3    B7+         SAVE (B7) = RETURN ADDRESS                  CP139FC   164
                                                  RJ     COD         CONVERT TO OCTAL DISPLAY CODE               CP139FC   165
                                                  SB7    B3                                                      CP139FC   166
                                                  LX2    CHAR        (X2) = ADDRESS (-H- FMT)                    CP139FC   167
                                                  SX3    2R  &2RIN                                               CP139FC   168
                                                  LX3    6                                                       CP139FC   169
                                                  BX6    X2-X3       (X6) = RELATIVE ADDRESS, *NNNNNN IN *       CP139FC   170
                                                  JP     B7          EXIT ...                                    CP139FC   171
                                                  SPACE  4                                                       CP139FC   172
                                                  QUAL   *                                                       CP139FC   173
                                                                                                                 CP139FC   174
                                         FRA=     =      /FRA/FRA=                                               CP139FC   175
                                                  ENTRY  FRA=                                                    CP139FC   176
                                         RPV      SPACE  4,8                                                     CP139FC   177
                                                  BSS    0                                                       CP139FC   178
                                         LWARPV   =      *-1         *** END OF CHECKSUMMED REPRIEVE CODE ***    CP139FC   179
                                                                                                                 TABLES   1699
                                                                                                                 TABLES   1700
                                         RPVB     DIS    ,* LAST STATEMENT BEGAN AT LINE ........*               CP139FC   180
                                         RPVC     DIS    ,* ERROR AT 000000 IN XXXXXXX*                          CP139FC   181
                                         RPVD     DIS    ,* LAST OVERLAY LOADED - (0,0)*                         CP139FC   182
                                                                                                                 CP139FC   183
                                         RPVE     BSSZ   2           TO SAVE (CDD) AND (COD)                     CP139FC   184
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              CP139FC   185
                                                  BSSZ   3           TO SAVE (SYS=), (WNB=) AND (MSG=)           CP139FC   186
                                         #RM      IFEQ   CP#RM,0                                                 CP139FC   187
                                                  BSSZ   1           TO SAVE (CIO=)                              CP139FC   188
                                         RPVF     BSSZ   1           COUNT-1 OF FILES TO FLUSH                   CP139FC   189
                                         #RM      ENDIF                                                          CP139FC   190
                                         #OS      ENDIF                                                          CP139FC   191
                                         RPV      SPACE  4,8                                                     CP139FC   192
                                         .TEST    ENDIF                                                          TABLES   1702
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    79
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    SFN 
  
                                        **        SFN -  SPACE FILL NAME.                                        FEAT155G   67
                                        *         AUTHOR (SOMEONE) AT PURDUE.                                    FEAT155G   68
                                        *         ENTRY  (X1) NAME LEFT JUSTIFIED 0 FILLED. (0L FORMAT)          FEAT155G   69
                                        *         EXIT   (X6) 10H FORMAT OF (X1)                                 FEAT155G   70
                                        *         USES   A2  X3,X6,X7  B2                                        FEAT155G   71
                                                                                                                 FEAT155G   72
                                                                                                                 FEAT155G   73
          1353  0400401353 +             SFN      SUBR               ENTRY/EXIT...                               FEAT155G   74
          1354  76710                             SX7    B1                                                      FEAT155G   75
                     5120001402 +                 SA2    =40404040404040404040B                                  FEAT155G   76
                               37717              IX7    X1-X7                                                   FEAT155G   77
          1355  16317                             BX3    -X7+X1                                                  FEAT155G   78
                     6120000067                   SB2    60-5                                                    FEAT155G   79
                               11723              BX7    X2*X3                                                   FEAT155G   80
          1356  5120001377 +                      SA2    =1H                                                     FEAT155G   81
                          22327                   LX3    B2,X7                                                   FEAT155G   82
                               37373              IX3    X7-X3                                                   FEAT155G   83
          1357  36773                             IX7    X7+X3                                                   FEAT155G   84
                     15227                        BX2    -X7*X2                                                  FEAT155G   85
                          36612                   IX6    X1+X2                                                   FEAT155G   86
                               20666              LX6    54                                                      FEAT155G   87
          1360  0400001353 +                      EQ     EXIT.                                                   FEAT155G   88
  
  
  
  
                                        **        WOD -  CONVERT A WORD TO OCTAL DISPLAY CODE                    FEAT155G   90
                                        *         AUTHOR CHRIS WILLIS, MINN.                                     FEAT155G   91
                                        *         ENTRY  (X1) = WORD TO CONVERT.                                 FEAT155G   92
                                        *         EXIT   (X6,X7) = CONVERTED WORD.                               FEAT155G   93
                                        *         USES   A2,A3,A4,A5  X0,X1,X6,X7                                FEAT155G   94
                                                                                                                 FEAT155G   95
                                                  IFNE   TEST,,1                                                 FEAT155G   96
                                                  ENTRY  WOD                                                     FEAT155G   97
                                                                                                                 FEAT155G   98
          1361  0400401361 +             WOD      SUBR               ENTRY/EXIT...                               FEAT155G   99
                                                                                                                 FEAT155G  100
                                        *         (X1) =             ABCDE FGHIJ KLMNO PQRST                     FEAT155G  101
                                                                                                                 FEAT155G  102
          1362  5120001373 +                      SA2    WODA        7.... 7.... 7.... 7....                     FEAT155G  103
                          11721                   BX7    X2*X1       A.... F.... K.... P....                     FEAT155G  104
                               20103              LX1    3           BCDEF GHIJK LMNOP QRSTA                     FEAT155G  105
          1363  11621                             BX6    X2*X1       B.... G.... L.... Q....                     FEAT155G  106
                     20103                        LX1    3           CDEFG HIJKL MNOPQ RSTAB                     FEAT155G  107
                          20733                   LX7    9*3         .K... .P... .A... .F...                     FEAT155G  108
                               11021              BX0    X2*X1       C.... H.... M.... R....                     FEAT155G  109
          1364  20625                             LX6    7*3         ...L. ...Q. ...B. ...G.                     FEAT155G  110
                     20103                        LX1    3           DEFGH IJKLM NOPQR STABC                     FEAT155G  111
                          36767                   IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                     FEAT155G  112
                               11521              BX5    X2*X1       D.... I.... N.... S....                     FEAT155G  113
          1365  20103                             LX1    3           EFGHI JKLMN OPQRS TABCD                     FEAT155G  114
                     20017                        LX0    5*3         H.... M.... R.... C....                     FEAT155G  115
                          11621                   BX6    X2*X1       E.... J.... O.... T....                     FEAT155G  116
                               36770              IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.                     FEAT155G  117
          1366  20511                             LX5    3*3         ..I.. ..N.. ..S.. ..D..                     FEAT155G  118
                     20603                        LX6    3           ....J ....O ....T ....E                     FEAT155G  119
                          36776                   IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE                     FEAT155G  120
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    80
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WOD 
  
                               54421              SA4    A2+B1       .7.7. 7.7.7 ..... .....                     FEAT155G  121
          1367  54341                             SA3    A4+B1       ..... .7.7. 7.7.7 .....                     FEAT155G  122
                     12775                        BX7    X7+X5       HKILJ MPNQO RASBT CFDGE                     FEAT155G  123
                          11274                   BX2    X7*X4       .K.L. M.N.O ..... .....                     FEAT155G  124
                               54531              SA5    A3+B1       00000 00000 00000 00000                     FEAT155G  125
          1370  11173                             BX1    X7*X3       ..... .P.Q. R.S.T .....                     FEAT155G  126
                     20736                        LX7    10*3        RASBT CFDGE HKILJ MPNQO                     FEAT155G  127
                          36252                   IX2    X5+X2       .K.L. M.N.O 00000 00000                     FEAT155G  128
                               11074              BX0    X7*X4       .A.B. C.D.E ..... .....                     FEAT155G  129
          1371  36005                             IX0    X0+X5       .A.B. C.D.E 00000 00000                     FEAT155G  130
                     20155                        LX1    15*3        ..... ..... .P.Q. R.S.T                     FEAT155G  131
                          11373                   BX3    X7*X3       ..... .F.G. H.I.J .....                     FEAT155G  132
                               36712              IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T                     FEAT155G  133
          1372  20355                             LX3    15*3        ..... ..... .F.G. H.I.J                     FEAT155G  134
                     36603                        IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J                     FEAT155G  135
                          0400001361 +            EQ     EXIT.                                                   FEAT155G  136
                                                                                                                 FEAT155G  137
          1373  70000700007000070000     WODA     CON    70000700007000070000B                                   FEAT155G  138
          1374  07070707070000000000              CON    07070707070000000000B                                   FEAT155G  139
          1375  00000070707070700000              CON    00000070707070700000B                                   FEAT155G  140
          1376  33333333333333333333              CON    10H0000000000                                           FEAT155G  141
                                                  LIST   D                                                       TABLES   1703
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        STR.D 
             0 X                        WNB=
             0 X                        SYS=
             0 X                        RCL=
  
                                        CONTENT OF LITERALS BLOCK.
  
          1377  55555555555555555555
          1400  17170631463146403615    OOFY-Y-53M
          1401  20000000000000000012    P        J
          1402  40404040404040404040    5555555555
  
          1403                                    END                                                            TABLES   1704
  
                             57600B CM  STORAGE USED             9251 STATEMENTS     1334 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            6.087 SECONDS        4636 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACONS         652   PROGRAM*        3/36 E   31/50 L
        ADD.I           0   EXTERNAL*       5/05 X   36/15     37/04
        ANDNOT        743   PROGRAM*        3/36 E   35/35 L
        ANDOP         733   PROGRAM*       35/29 L
        ANSI          542   PROGRAM*       27/04 L   27/10     27/14 E
        APLSTOD       747   PROGRAM*        3/37 E   36/07 L
        APLSTOR       746   PROGRAM*        3/37 E   36/06 L
        APLUG         750   PROGRAM*        3/37 E   36/08 L
        ARGCOMA       345   PROGRAM*        3/37 E   20/04 L   20/05     20/08
        ARGMIS        347   PROGRAM*        3/36 E   20/08 D
        ARGMODE       346   PROGRAM*        3/37 E   20/05 D
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    81
        SYMBOLIC REFERENCE TABLE. 
  
        ARRARM       1036   PROGRAM*        3/36 E   39/27 L
        ASFARM       1037   PROGRAM*        3/36 E   39/28 L
        ASFLEN        351   PROGRAM*        3/37 E   20/15 L
        ASSN          751   PROGRAM*        3/37 E   36/09 L
        ATTR          350   PROGRAM*        3/36 E   20/11 L
        A=ARRAY         0   EXTERNAL*       4/56 X   39/27
        A=ASF           0   EXTERNAL*       4/53 X   39/28
        A=BEF           0   EXTERNAL*       4/53 X   39/29
        A=BIF           0   EXTERNAL*       4/53 X   39/30
        A=BLWA          0   EXTERNAL*       4/44 X   39/33
        A=BMOD          0   EXTERNAL*       4/44 X   39/31
        A=CALL          0   EXTERNAL*       4/53 X   39/34
        A=DEC           0   EXTERNAL*       4/53 X   39/36
        A=DO            0   EXTERNAL*       4/53 X   39/37
        A=FMT           0   EXTERNAL*       4/44 X   39/47
        A=FUN           0   EXTERNAL*       4/53 X   39/38
        A=IF            0   EXTERNAL*       4/53 X   39/40
        A=LIST          0   EXTERNAL*       4/53 X   39/42     39/43
        A=STR           0   EXTERNAL*       4/44 X   39/46
        BASES           0   PROGRAM*        3/39 E   10/12 L
        BA.APL        356   PROGRAM*        3/40 E   20/26 D
        BA.BUF        361   PROGRAM*        3/40 E   20/29 D
        BA.CON        353   PROGRAM*        3/39 E   20/23 D
        BA.FMT        354   PROGRAM*        3/39 E   20/24 D
        BA.NLST       357   PROGRAM*        3/40 E   20/27 D
        BA.PRO        352   PROGRAM*        3/39 E   20/23     20/25     20/27     20/29     20/31
                                           20/22 L   20/24     20/26     20/28     20/30
        BA.TEM        355   PROGRAM*        3/40 E   20/25 D
        BA.VAR        360   PROGRAM*        3/40 E   20/28 D
        BEFFUN       1003   PROGRAM*        3/38 E   36/50 L
        BEFXARM      1040   PROGRAM*        3/38 E   39/29 L
        BIFARM       1041   PROGRAM*        3/38 E   39/30 L
        BIFFUN        776   PROGRAM*        3/38 E   36/44 L
        BIFSHF       1000   PROGRAM*        3/38 E   36/46 L
        BINIO         364   PROGRAM*        3/39 E   20/33 L
        BINOUT        365   PROGRAM*        3/39 E   20/37 L
        BIT           366   PROGRAM*       20/43 L
        BLNKCOM       402   PROGRAM*        3/39 E   21/32 L
        BUFFWA       1043   PROGRAM*        3/38 E   39/32 L
        BUFLWA       1044   PROGRAM*        3/38 E   39/33 L
        BUFMOD       1042   PROGRAM*        3/40 E   39/31 L
        B1=1            0   TSTEXT         41/17 F   42/48 F   44/57 F   51/44 F   54/03 F
        CALL          367   PROGRAM*        3/43 E   20/51 L
        CALLARM      1045   PROGRAM*        3/42 E   39/34 L
        CALLER        370   PROGRAM*       20/53 L
        CALLIO        761   PROGRAM*        3/41 E   36/20 L
        CALLOP        775   PROGRAM*        3/41 E   36/43 L
        CARDS         371   PROGRAM*        3/43 E   20/57 L
        CCNT          372   PROGRAM*        3/42 E   21/02 L
        CDD          1325   PROGRAM*        3/42 E   71/53 L
        CDDA         1400   PROGRAM*       71/54     72/05 L
        CDD2         1321   PROGRAM*       71/41 L   71/49     72/03
        CDORD         410   PROGRAM*        3/41 E   21/43 L
        CHAR            6   TSTEXT         71/44     71/50     72/45     72/54     73/18     73/53
                                           71/45     72/42     72/47     73/11     73/50     73/56
        CHARMAP       127   PROGRAM*        3/42 E   15/06 D
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    82
        SYMBOLIC REFERENCE TABLE. 
  
        CIO=         1070   PROGRAM*       41/36 D   46/51     48/23     49/42     56/20     57/49
                                           41/39 E   47/16     49/12     56/02     57/11
        CNFARM       1046   PROGRAM*        3/41 E   39/35 L
        COD          1331   PROGRAM*        3/42 E   72/40 L   72/40 E
        COD2         1333   PROGRAM*       72/44 L   72/51
        COMMA         723   PROGRAM*        3/43 E   35/21 L
        COMMENT       373   PROGRAM*        3/44 E   21/05 L
        COMSIZ        363   PROGRAM*        3/42 E   20/31 D
        CONF          374   PROGRAM*        3/41 E   21/18 L
        CONONE        550   PROGRAM*        3/41 E   27/29 L
        CONOTBL       612   PROGRAM*        3/41 E   31/07 L
        CONZER        551   PROGRAM*        3/42 E   27/30 L
        CONZERI       552   PROGRAM*       27/31 L
        CP#RM           0   TSTEXT         39/48 F
        CR.ARY         23   TSTEXT         39/27
        CR.CALL         1   TSTEXT         39/34
        CR.DEC          4   TSTEXT         39/36
        CR.DOI          3   TSTEXT         39/37
        CR.IF           6   TSTEXT         39/40
        CR.INF          1   TSTEXT         39/29     39/30     39/38
        CR.INP         22   TSTEXT         39/43
        CR.OUT         27   TSTEXT         39/42
        CR.PAR          1   TSTEXT         39/28
        CR.VGOTO        7   TSTEXT         39/39
        CSLIST        376   PROGRAM*        3/43 E   21/21 L
        CSNTAG        377   PROGRAM*        3/43 E   21/25 L
        CSSTMT        400   PROGRAM*        3/43 E   21/27 L
        CSYMBOL       401   PROGRAM*        3/42 E   21/29 L
        C=ARRAY         0   EXTERNAL*       4/56 X   39/27
        C=BEF           0   EXTERNAL*       4/52 X   39/29
        C=BFWA          0   EXTERNAL*       4/44 X   39/32
        C=BIF           0   EXTERNAL*       4/52 X   39/30
        C=CALL          0   EXTERNAL*       4/52 X   39/34
        C=CERR          0   EXTERNAL*       4/52 X   39/31     39/33     39/40     39/45
                                           39/28     39/32     39/35     39/41     39/46
        C=CNT           0   EXTERNAL*       4/44 X   39/45
        C=DEC           0   EXTERNAL*       4/52 X   39/36
        C=DO            0   EXTERNAL*       4/52 X   39/37
        C=FMT           0   EXTERNAL*       4/45 X   39/47
        C=FUN           0   EXTERNAL*       4/52 X   39/38
        C=GOT           0   EXTERNAL*       4/52 X   39/39
        C=IOL           0   EXTERNAL*       4/44 X   39/42     39/43
        C.DIF       20000   TSTEXT         13/14
        C.PRO      260000   TSTEXT         13/21
        C.STAT     240000   TSTEXT         13/16
        C.TEM      320000   TSTEXT         13/26     25/46
        C.VAR      200000   TSTEXT         13/14     13/14
        C.VDIM     300000   TSTEXT         13/24
        DCB=         1312   PROGRAM*       52/07     58/04 D
        DECARM       1047   PROGRAM*        3/45 E   39/36 L
        DIV           717   PROGRAM*       35/17 L
        DIVP2        1032   PROGRAM*        3/45 E   37/41 L
        DOARM        1050   PROGRAM*        3/46 E   39/37 L
        DOIN          404   PROGRAM*       21/35 L
        DOIX          405   PROGRAM*        3/45 E   21/36 L
        DOIXR         406   PROGRAM*       21/37 L
        DOLMR         403   PROGRAM*        3/45 E   21/34 L
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        DOORD         411   PROGRAM*        3/45 E   21/47 L
        DOSTNO        407   PROGRAM*        3/46 E   21/39 L
        DO=CC           6                   3/46 E   37/23 L
        DO=CC1         10                  37/25 L
        DO=CV           4                  37/21 L
        DO=VC           2                  37/19 L
        DO=VV           0                  37/17 L
        DO.BEG        760   PROGRAM*        3/46 E   36/18 L
        DO.CSKL      1014   PROGRAM*        3/46 E   37/15 L
        DRITE         412   PROGRAM*        3/45 E   21/50 L
        DTI           415   PROGRAM*        3/45 E   21/55 L
        DUC.            0   EXTERNAL*       5/07 X   15/21     15/41     15/55     16/05     16/11     16/16     16/23
                                           15/07     15/23     15/47     15/56     16/07     16/12     16/17     16/24
                                           15/08     15/40     15/54     16/01     16/10     16/15     16/22
        DUC.BTH         0   EXTERNAL*       5/07 X   15/16     15/28     15/31     15/35     15/38     15/53     16/13
                                           15/13     15/18     15/29     15/32     15/36     15/51     16/03     16/21
                                           15/14     15/24     15/30     15/33     15/37     15/52     16/09
        DUC.1ST         0   EXTERNAL*       5/07 X   15/57     16/02     16/04     16/14     16/18     16/19     16/25
        DUC.2ND         0   EXTERNAL*       5/07 X   15/27     15/34     15/39     16/06     16/08     16/20
        DXB          1340   PROGRAM*        3/45 E   73/10 L
        DXB1         1343   PROGRAM*       73/18 L   73/27
        ENTRY.        416   PROGRAM*        3/47 E   22/03 L
        EQOP          726   PROGRAM*       35/24 L
        EQUAL         722   PROGRAM*        3/47 E   35/20 L
        EQUAL.        757   PROGRAM*       36/17 L
        ERROP         764   PROGRAM*        3/47 E   36/25 L
        ERRORS        417   PROGRAM*        3/47 E   22/05 L
        ETF           420   PROGRAM*        3/47 E   22/09 L
        EXPOP         736   PROGRAM*       35/32 L
        EXTCAL       1001   PROGRAM*        3/47 E   36/48 L
        EXTFARM      1051   PROGRAM*        3/47 E   39/38 L
        EXTFUN       1002   PROGRAM*        3/47 E   36/49 L
        FAILSFT       421   PROGRAM*        3/48 E   22/11 L
        FEXPR         653   PROGRAM*        3/48 E   31/54 L
        FIRSTV        535   PROGRAM*        3/48 E   26/08 L
        FLOW          422   PROGRAM*        3/48 E   22/13 L
        FSR           423   PROGRAM*       22/17 L
        FUDGE           1   TSTEXT          6/05 D
        GEOP          730   PROGRAM*       35/26 L
        GOASS         765   PROGRAM*        3/49 E   36/27 L
        GOTARM       1052   PROGRAM*        3/49 E   39/39 L
        GTOP          731   PROGRAM*       35/27 L
        HANGER        424   PROGRAM*        3/50 E   22/19 L
        HDELAY        425   PROGRAM*        3/50 E   22/27 L
        ICONL         427   PROGRAM*        3/51 E   22/51 L
        ICV           430   PROGRAM*        3/51 E   22/55 L
        IDENT1        431   PROGRAM*        3/51 E   23/06 L
        IEFLG         543   PROGRAM*       27/05 L   27/09     27/14 E
        IFARM        1053   PROGRAM*        3/52 E   39/40 L
        IGS           435   PROGRAM*        3/51 E   23/11 L
        IMULT2       1011   PROGRAM*        3/51 E   37/04 L
        INAFR         436   PROGRAM*        3/52 E   23/12 L
        INTMAC        774   PROGRAM*        3/51 E   36/40 L
        IN.EXP        763   PROGRAM*        3/52 E   36/23 L
        IOARGM       1055   PROGRAM*        3/52 E   39/42 L
        IOOP          762   PROGRAM*       36/21 L
        LASTAD        441   PROGRAM*        3/55 E   23/20 L
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        LASTCOL       437   PROGRAM*        3/53 E   23/15 L
        LASTOP        440   PROGRAM*        3/55 E   23/18 L
        LCB=         1176   PROGRAM*       43/09     50/01 D
        LCNT          442   PROGRAM*        3/53 E   23/23 L
        LDEAD         443   PROGRAM*        3/53 E   23/25 L
        LDRFLG        462   PROGRAM*        4/37 E   23/33 L
        LEOP          725   PROGRAM*       35/23 L
        LG.LOG         21                   3/53 E   30/44 D
        LINEBUF       444   PROGRAM*        3/53 E   23/31 L
        LJS          1346   PROGRAM*        3/55 E   73/41 L
        LJS4         1350   PROGRAM*       73/52 L   73/54
        LOCAL         362   PROGRAM*        3/54 E   20/30 D
        LOGT          570   PROGRAM*        3/53 E   30/22 L   30/44
        LOP=M         544   PROGRAM*       27/06 L   27/14 E
        LOP=O         545   PROGRAM*       27/07 L   27/11     27/14 E
        LOP=R         546   PROGRAM*       27/08 L   27/12     27/14 E
        LOP=W         543   PROGRAM*       27/09 D   27/14 E
        LOP=X         542   PROGRAM*       27/10 D   27/14 E
        LOSTREF       463   PROGRAM*        3/54 E   23/34 L
        LPAR          720   PROGRAM*        3/53 E   35/18 L
        LPARM        1054   PROGRAM*        3/53 E   39/41 L
        LSTN           40   TSTEXT          8/17     10/24
        LSTWRKG       542   PROGRAM*       27/03 L   27/14 E
        LSYM          200   TSTEXT          8/15      8/16     10/22     10/23
        LTOP          724   PROGRAM*       35/22 L
        L=TABLE       453                   3/54 E    9/02 D
        L=TABLES      453                   7/24 D    8/12      8/15 D    8/22      8/28 D    8/33      8/36 D    8/45
                                            7/45      8/12 D    8/16      8/22 D    8/30      8/33 D    8/37      8/45 D
                                            7/45 D    8/13      8/16 D    8/24      8/30 D    8/34      8/37 D    8/52
                                            8/06      8/13 D    8/17      8/24 D    8/31      8/34 D    8/38      8/52 D
                                            8/06 D    8/14      8/17 D    8/27      8/31 D    8/35      8/38 D    8/53
                                            8/07      8/14 D    8/20      8/27 D    8/32      8/35 D    8/44      8/53 D
                                            8/07 D    8/15      8/20 D    8/28      8/32 D    8/36      8/44 D    9/02
        L.AMAD         22   TSTEXT         39/27     39/30     39/33     39/36     39/39     39/42     39/46
                                           39/28     39/31     39/34     39/37     39/40     39/43     39/47
                                           39/29     39/32     39/35     39/38     39/41     39/45
        L.AMC          22   TSTEXT         39/27     39/30     39/33     39/36     39/39     39/42     39/46
                                           39/28     39/31     39/34     39/37     39/40     39/43     39/47
                                           39/29     39/32     39/35     39/38     39/41     39/45
        L.AMR          14   TSTEXT         39/27     39/30     39/33     39/36     39/39     39/42     39/46
                                           39/28     39/31     39/34     39/37     39/40     39/43     39/47
                                           39/29     39/32     39/35     39/38     39/41     39/45
        L.ATTR         13   TSTEXT         38/05
        L.CARD        464   PROGRAM*        3/55 E   23/39 L
        L.DMOD          4   TSTEXT         35/14     35/24     35/35     36/14     36/30     36/48     37/07     37/33
                                           35/15     35/25     35/36     36/15     36/32     36/49     37/17     37/34
                                           35/16     35/26     35/37     36/17     36/34     36/50     37/18     37/35
                                           35/17     35/27     36/06     36/18     36/36     36/52     37/19     37/36
                                           35/18     35/28     36/07     36/20     36/38     36/55     37/20     37/37
                                           35/19     35/29     36/08     36/21     36/40     36/56     37/21     37/41
                                           35/20     35/30     36/09     36/23     36/43     37/01     37/22     38/03
                                           35/21     35/31     36/10     36/25     36/44     37/02     37/23     38/04
                                           35/22     35/32     36/11     36/27     36/45     37/04     37/24     38/05
                                           35/23     35/33     36/12     36/28     36/46     37/06     37/25
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        L.JPAD         22   TSTEXT         35/14     35/24     35/35     36/14     36/30     36/48     37/07     37/33
                                           35/15     35/25     35/36     36/15     36/32     36/49     37/17     37/34
                                           35/16     35/26     35/37     36/17     36/34     36/50     37/18     37/35
                                           35/17     35/27     36/06     36/18     36/36     36/52     37/19     37/36
                                           35/18     35/28     36/07     36/20     36/38     36/55     37/20     37/37
                                           35/19     35/29     36/08     36/21     36/40     36/56     37/21     37/41
                                           35/20     35/30     36/09     36/23     36/43     37/01     37/22     38/03
                                           35/21     35/31     36/10     36/25     36/44     37/02     37/23     38/04
                                           35/22     35/32     36/11     36/27     36/45     37/04     37/24     38/05
                                           35/23     35/33     36/12     36/28     36/46     37/06     37/25
        L.MODC         11   TSTEXT         38/05
        L.MODE          3   TSTEXT         27/29     27/30     27/31     27/32     27/33
        L.PSTACK        3   TSTEXT         20/04
        L.SBPR         22   TSTEXT         35/14     35/24     35/35     36/14     36/30     36/48     37/07     37/33
                                           35/15     35/25     35/36     36/15     36/32     36/49     37/17     37/34
                                           35/16     35/26     35/37     36/17     36/34     36/50     37/18     37/35
                                           35/17     35/27     36/06     36/18     36/36     36/52     37/19     37/36
                                           35/18     35/28     36/07     36/20     36/38     36/55     37/20     37/37
                                           35/19     35/29     36/08     36/21     36/40     36/56     37/21     37/41
                                           35/20     35/30     36/09     36/23     36/43     37/01     37/22     38/03
                                           35/21     35/31     36/10     36/25     36/44     37/02     37/23     38/04
                                           35/22     35/32     36/11     36/27     36/45     37/04     37/24     38/05
                                           35/23     35/33     36/12     36/28     36/46     37/06     37/25
        L.SHC          22   TSTEXT         27/29     27/30     27/31     27/32     27/33
        L.STPR         11   TSTEXT         35/14     35/24     35/35     36/14     36/30     36/48     37/07     37/33
                                           35/15     35/25     35/36     36/15     36/32     36/49     37/17     37/34
                                           35/16     35/26     35/37     36/17     36/34     36/50     37/18     37/35
                                           35/17     35/27     36/06     36/18     36/36     36/52     37/19     37/36
                                           35/18     35/28     36/07     36/20     36/38     36/55     37/20     37/37
                                           35/19     35/29     36/08     36/21     36/40     36/56     37/21     37/41
                                           35/20     35/30     36/09     36/23     36/43     37/01     37/22     38/03
                                           35/21     35/31     36/10     36/25     36/44     37/02     37/23     38/04
                                           35/22     35/32     36/11     36/27     36/45     37/04     37/24
                                           35/23     35/33     36/12     36/28     36/46     37/06     37/25
        L.TABLES     2060                   7/23 D    8/12      8/15 D    8/22      8/28 D    8/33      8/36 D    8/45
                                            7/45      8/12 D    8/16      8/22 D    8/30      8/33 D    8/37      8/45 D
                                            7/45 D    8/13      8/16 D    8/24      8/30 D    8/34      8/37 D    8/52
                                            8/06      8/13 D    8/17      8/24 D    8/31      8/34 D    8/38      8/52 D
                                            8/06 D    8/14      8/17 D    8/27      8/31 D    8/35      8/38 D    8/53
                                            8/07      8/14 D    8/20      8/27 D    8/32      8/35 D    8/44      8/53 D
                                            8/07 D    8/15      8/20 D    8/28      8/32 D    8/36      8/44 D
        MAPCHAR       555   PROGRAM*        3/56 E   30/04 L
        MINUS         715   PROGRAM*       35/15 L
        MINUS.M       756   PROGRAM*        3/57 E   36/15 L
        MOD           465   PROGRAM*        3/56 E   23/42 L
        MSF           466   PROGRAM*        3/56 E   23/49 L
        MSN           467   PROGRAM*        3/56 E   23/53 L
        MULS          470   PROGRAM*        3/56 E   23/55 L
        MULT          716   PROGRAM*        3/56 E   35/16 L
        MULT(S        753   PROGRAM*        3/57 E   36/11 L
        MULT.I          0   EXTERNAL*       5/03 X   38/04
        M.INT           2   TSTEXT         27/29     27/31     38/05
        M.INTR       1000   TSTEXT         38/05
        M.LOG           1   TSTEXT         27/32     27/33
        M.UNIV          0   TSTEXT         27/30
        NAME          433   PROGRAM*        3/51 E   23/08 L
        NARGS         471   PROGRAM*        4/01 E   24/01 L
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        NDC=CNT      1057   PROGRAM*        4/01 E   39/45 L
        NDC=STR      1060   PROGRAM*        4/02 E   39/46 L
        NEOP          727   PROGRAM*       35/25 L
        NOLDS         426   PROGRAM*        4/02 E   22/47 L
        NOLIST        472   PROGRAM*        4/02 E   24/03 L
        NOOPP        1012   PROGRAM*        4/02 E   37/06 L
        NOPATH        473   PROGRAM*        4/01 E   24/06 L
        NOREL         474   PROGRAM*       24/10 L
        NOTOP         732   PROGRAM*       35/28 L
        NREXT         475   PROGRAM*        4/01 E   24/12 L
        NSK           476   PROGRAM*        4/01 E   24/15 L
        NTRCNT        477   PROGRAM*        4/01 E   24/17 L
        N.BLK          10                   4/02 E   20/21 D   20/22
        N.TABLE        33                   4/01 E    9/03 D
        N.TABLES       33                   7/25 D    8/14 D    8/24 D    8/33 D    8/44 D   11/03     11/15     11/27
                                            7/45      8/15      8/27      8/34      8/45     11/04     11/16     11/28
                                            7/45 D    8/15 D    8/27 D    8/34 D    8/45 D   11/05     11/17     11/29
                                            8/06      8/16      8/28      8/35      8/52     11/06     11/18     11/30
                                            8/06 D    8/16 D    8/28 D    8/35 D    8/52 D   11/07     11/19     11/31
                                            8/07      8/17      8/30      8/36      8/53     11/08     11/20     11/32
                                            8/07 D    8/17 D    8/30 D    8/36 D    8/53 D   11/09     11/21     11/33
                                            8/12      8/20      8/31      8/37      9/03     11/10     11/22     11/34
                                            8/12 D    8/20 D    8/31 D    8/37 D   10/56     11/11     11/23     11/35
                                            8/13      8/22      8/32      8/38     10/57     11/12     11/24     11/36
                                            8/13 D    8/22 D    8/32 D    8/38 D   11/01     11/13     11/25
                                            8/14      8/24      8/33      8/44     11/02     11/14     11/26
        OLIST         545   PROGRAM*       27/11 D   27/15 E
        OPBSS         766   PROGRAM*        4/03 E   36/28 L
        OPDUM         767   PROGRAM*        4/03 E   36/30 L
        OPRETD       1010   PROGRAM*        4/03 E   37/02 L
        OPRETS       1007   PROGRAM*        4/03 E   37/01 L
        ORG           500   PROGRAM*        4/03 E   24/21 L
        ORIGINS         0   PROGRAM*        4/03 E   10/11 L
        ORNOT         745   PROGRAM*       35/37 L
        OROP          735   PROGRAM*       35/31 L
        OTROP         773   PROGRAM*        4/03 E   36/38 L
        O=ADD           0   EXTERNAL*       4/57 X   35/14     36/10
        O=ANDN          0   EXTERNAL*       5/02 X   35/35
        O=ANDO          0   EXTERNAL*       5/01 X   35/29
        O=APLUG         0   EXTERNAL*       5/01 X   36/08
        O=ARG           0   EXTERNAL*       5/10 X   36/43
        O=ASSGN         0   EXTERNAL*       5/01 X   36/09
        O=BEF           0   EXTERNAL*       5/10 X   36/50
        O=BSS           0   EXTERNAL*       5/02 X   36/28
        O=DIV           0   EXTERNAL*       4/57 X   35/17
        O=DIVP2         0   EXTERNAL*       5/04 X   37/41
        O=DOB           0   EXTERNAL*       5/02 X   36/18
        O=DOC1          0   EXTERNAL*       5/03 X   37/17     37/18
        O=DOC2          0   EXTERNAL*       5/03 X   37/19     37/20
        O=DOC3          0   EXTERNAL*       5/03 X   37/23     37/24
        O=DOC3A         0   EXTERNAL*       5/04 X   37/25
        O=DOC4          0   EXTERNAL*       5/03 X   37/21     37/22
        O=EPO           0   EXTERNAL*       5/07 X   36/36
        O=EQ            0   EXTERNAL*       4/57 X   35/24
        O=FUN           0   EXTERNAL*       5/10 X   36/49
        O=GE            0   EXTERNAL*       4/57 X   35/23     35/26
        O=GOA           0   EXTERNAL*       5/02 X   36/27
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    87
        SYMBOLIC REFERENCE TABLE. 
  
        O=INT           0   EXTERNAL*       5/02 X   36/40
        O=IOJ           0   EXTERNAL*       4/44 X   36/20
        O=LT            0   EXTERNAL*       4/57 X   35/22     35/27
        O=MULT          0   EXTERNAL*       4/57 X   35/16     36/11     36/34
        O=NE            0   EXTERNAL*       4/57 X   35/25
        O=NOOP          0   EXTERNAL*       5/07 X   37/06
        O=NOT           0   EXTERNAL*       5/01 X   35/28
        O=ORN           0   EXTERNAL*       5/01 X   35/37
        O=ORO           0   EXTERNAL*       5/01 X   35/31
        O=OTR           0   EXTERNAL*       4/56 X   36/38
        O=RANF          0   EXTERNAL*       5/05 X   36/45
        O=RETD          0   EXTERNAL*       5/02 X   37/02
        O=RETS          0   EXTERNAL*       5/02 X   37/01
        O=RJSUB         0   EXTERNAL*       5/05 X   36/52
        O=RJT           0   EXTERNAL*       5/10 X   36/48
        O=SHFC          0   EXTERNAL*       5/04 X   37/33
        O=SHFD          0   EXTERNAL*       5/04 X   37/36
        O=SHFDS         0   EXTERNAL*       5/04 X   37/37
        O=SHFS          0   EXTERNAL*       5/04 X   37/34
        O=SHFSA         0   EXTERNAL*       5/04 X   37/35
        O=STR           0   EXTERNAL*       4/57 X   35/20     36/17
        O=SUB           0   EXTERNAL*       4/57 X   35/15     36/32
        O=SUBL          0   EXTERNAL*       4/56 X   36/12
        O=UMIN          0   EXTERNAL*       5/01 X   35/33
        O=XMIT          0   EXTERNAL*       5/05 X   37/07
        O=XOR           0   EXTERNAL*       5/01 X   35/30
        O=XORN          0   EXTERNAL*       5/02 X   35/36
        O.ACONS        40                  31/49 D   31/53
        O.AND          23   TSTEXT         30/36     31/15     31/51     32/21     32/25     32/29     32/33     32/39
                                           30/37     31/22     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/11     31/38     32/19     32/23     32/27     32/31     32/35     32/41
                                           31/13     31/39     32/20     32/24     32/28     32/32     32/38
        O.ANDN         33   TSTEXT         32/16     32/21     32/24     32/27     32/30     32/33     32/38     32/41
                                           32/19     32/22     32/25     32/28     32/31     32/34     32/39
                                           32/20     32/23     32/26     32/29     32/32     32/35     32/40
        O.ARG1         51   TSTEXT         36/43     36/55     37/01     37/02
        O.ARG2         52   TSTEXT         36/44     36/56
        O.ARY          47   TSTEXT         36/12
        O.ASFA         40   TSTEXT         31/11     31/15     31/18     31/20     31/22
                                           31/13     31/17     31/19     31/21     31/51
        O.ASSN         61   TSTEXT         36/09
        O.BSS          50   TSTEXT         36/28
        O.COMMA        13   TSTEXT         30/17     31/22     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/11     31/38     32/19     32/23     32/27     32/31     32/35     32/41
                                           31/13     31/39     32/20     32/24     32/28     32/32     32/38     36/21
                                           31/15     31/51     32/21     32/25     32/29     32/33     32/39     36/40
        O.CONS          2   TSTEXT         31/13     31/24     31/30     31/36     31/45     32/22     32/28     32/34
                                           31/17     31/25     31/31     31/37     31/55     32/23     32/29     32/35
                                           31/18     31/26     31/32     31/40     32/16     32/24     32/30     32/38
                                           31/19     31/27     31/33     31/41     32/19     32/25     32/31     32/39
                                           31/20     31/28     31/34     31/42     32/20     32/26     32/32     32/40
                                           31/21     31/29     31/35     31/43     32/21     32/27     32/33     32/41
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    88
        SYMBOLIC REFERENCE TABLE. 
  
        O.DEF           0   TSTEXT         15/06     31/20     31/29     31/37     31/51     32/22     32/30     32/40
                                           31/09     31/21     31/30     31/38     31/55     32/23     32/31     32/41
                                           31/11     31/22     31/31     31/39     32/11     32/24     32/32
                                           31/13     31/24     31/32     31/40     32/16     32/25     32/33
                                           31/15     31/25     31/33     31/41     32/18     32/26     32/34
                                           31/17     31/26     31/34     31/42     32/19     32/27     32/35
                                           31/18     31/27     31/35     31/43     32/20     32/28     32/38
                                           31/19     31/28     31/36     31/45     32/21     32/29     32/39
        O.DIV           7   TSTEXT         32/16     32/21     32/24     32/27     32/30     32/33     32/38     32/41
                                           32/19     32/22     32/25     32/28     32/31     32/34     32/39
                                           32/20     32/23     32/26     32/29     32/32     32/35     32/40
        O.DOB          43   TSTEXT         36/18
        O.DOC          44   TSTEXT         37/17     37/21     37/25
        O.DOC1         45   TSTEXT         37/18     37/19     37/20     37/23
        O.DOC2         46   TSTEXT         37/22     37/24
        O.EOS           0   TSTEXT         31/11     31/25     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/13     31/38     32/19     32/23     32/27     32/31     32/35     32/41
                                           31/15     31/39     32/20     32/24     32/28     32/32     32/38
                                           31/22     31/51     32/21     32/25     32/29     32/33     32/39
        O.EQ           16   TSTEXT         30/30     31/22     32/20     32/24     32/28     32/32     32/38
                                           31/11     31/51     32/21     32/25     32/29     32/33     32/39
                                           31/13     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/15     32/19     32/23     32/27     32/31     32/35     32/41
        O.EXP          26   TSTEXT         31/13     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/15     32/19     32/23     32/27     32/31     32/35     32/41
                                           31/22     32/20     32/24     32/28     32/32     32/38     36/23
                                           31/51     32/21     32/25     32/29     32/33     32/39
        O.FALSE        31   TSTEXT         30/24     31/27     31/33     31/43     32/22     32/28     32/34
                                           30/25     31/28     31/34     31/55     32/23     32/29     32/35
                                           31/21     31/29     31/35     32/16     32/24     32/30     32/38
                                           31/24     31/30     31/40     32/19     32/25     32/31     32/39
                                           31/25     31/31     31/41     32/20     32/26     32/32     32/40
                                           31/26     31/32     31/42     32/21     32/27     32/33     32/41
        O.FEXPR        41                  31/53 D
        O.GE           20   TSTEXT         30/32     31/22     32/20     32/24     32/28     32/32     32/38
                                           31/11     31/51     32/21     32/25     32/29     32/33     32/39
                                           31/13     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/15     32/19     32/23     32/27     32/31     32/35     32/41
        O.GOAS         64   TSTEXT         36/27
        O.GT           21   TSTEXT         30/33     31/22     32/20     32/24     32/28     32/32     32/38
                                           31/11     31/51     32/21     32/25     32/29     32/33     32/39
                                           31/13     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/15     32/19     32/23     32/27     32/31     32/35     32/41
        O.HOLL          1   TSTEXT         31/17     31/25     31/31     31/40     32/19     32/25     32/31     32/39
                                           31/18     31/26     31/32     31/41     32/20     32/26     32/32     32/40
                                           31/19     31/27     31/33     31/42     32/21     32/27     32/33     32/41
                                           31/20     31/28     31/34     31/43     32/22     32/28     32/34
                                           31/21     31/29     31/35     31/55     32/23     32/29     32/35
                                           31/24     31/30     31/37     32/16     32/24     32/30     32/38
        O.LE           15   TSTEXT         30/29     31/22     32/20     32/24     32/28     32/32     32/38
                                           31/11     31/51     32/21     32/25     32/29     32/33     32/39
                                           31/13     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/15     32/19     32/23     32/27     32/31     32/35     32/41
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        O.LP           10   TSTEXT         31/11     31/21     31/29     31/35     31/43     32/22     32/28     32/34
                                           31/15     31/24     31/30     31/36     31/55     32/23     32/29     32/35
                                           31/17     31/25     31/31     31/37     32/16     32/24     32/30     32/38
                                           31/18     31/26     31/32     31/40     32/19     32/25     32/31     32/39
                                           31/19     31/27     31/33     31/41     32/20     32/26     32/32     32/40
                                           31/20     31/28     31/34     31/42     32/21     32/27     32/33     32/41
        O.LT           14   TSTEXT         30/28     31/22     32/20     32/24     32/28     32/32     32/38
                                           31/11     31/51     32/21     32/25     32/29     32/33     32/39
                                           31/13     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/15     32/19     32/23     32/27     32/31     32/35     32/41
        O.MIN           5   TSTEXT         30/09     31/24     31/30     31/40     32/16     32/24     32/30     32/38
                                           31/11     31/25     31/31     31/41     32/19     32/25     32/31     32/39
                                           31/13     31/26     31/32     31/42     32/20     32/26     32/32     32/40
                                           31/15     31/27     31/33     31/43     32/21     32/27     32/33     32/41
                                           31/21     31/28     31/34     31/51     32/22     32/28     32/34     36/14
                                           31/22     31/29     31/35     31/55     32/23     32/29     32/35     36/32
        O.MULT          6   TSTEXT         31/11     31/51     32/20     32/24     32/28     32/32     32/38     38/04
                                           31/13     32/16     32/21     32/25     32/29     32/33     32/39
                                           31/15     32/18     32/22     32/26     32/30     32/34     32/40
                                           31/22     32/19     32/23     32/27     32/31     32/35     32/41
        O.MXP          54   TSTEXT         36/36
        O.NE           17   TSTEXT         30/31     31/22     32/20     32/24     32/28     32/32     32/38
                                           31/11     31/51     32/21     32/25     32/29     32/33     32/39
                                           31/13     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/15     32/19     32/23     32/27     32/31     32/35     32/41
        O.NOOP         60   TSTEXT         37/06
        O.NOT          22   TSTEXT         30/34     31/27     31/33     31/43     32/22     32/28     32/34
                                           30/35     31/28     31/34     31/55     32/23     32/29     32/35
                                           31/21     31/29     31/35     32/16     32/24     32/30     32/38
                                           31/24     31/30     31/40     32/19     32/25     32/31     32/39
                                           31/25     31/31     31/41     32/20     32/26     32/32     32/40
                                           31/26     31/32     31/42     32/21     32/27     32/33     32/41
        O.NTR          55   TSTEXT         36/30
        O.OR           25   TSTEXT         30/40     31/15     31/51     32/21     32/25     32/29     32/33     32/39
                                           30/41     31/22     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/11     31/38     32/19     32/23     32/27     32/31     32/35     32/41
                                           31/13     31/39     32/20     32/24     32/28     32/32     32/38
        O.ORN          35   TSTEXT         32/16     32/21     32/24     32/27     32/30     32/33     32/38     32/41
                                           32/19     32/22     32/25     32/28     32/31     32/34     32/39
                                           32/20     32/23     32/26     32/29     32/32     32/35     32/40
        O.OTR          71   TSTEXT         36/38
        O.PERIOD       37   TSTEXT         30/18     31/24     31/31     31/40     32/19     32/26     32/33
                                           31/13     31/25     31/32     31/41     32/20     32/27     32/34
                                           31/17     31/26     31/33     31/42     32/21     32/28     32/35
                                           31/18     31/27     31/34     31/43     32/22     32/29     32/38
                                           31/19     31/28     31/35     31/49     32/23     32/30     32/39
                                           31/20     31/29     31/36     31/55     32/24     32/31     32/40
                                           31/21     31/30     31/37     32/16     32/25     32/32     32/41
        O.PL            4   TSTEXT         30/08     31/25     31/32     31/43     32/22     32/29     32/38
                                           31/11     31/26     31/33     31/51     32/23     32/30     32/39
                                           31/13     31/27     31/34     31/55     32/24     32/31     32/40
                                           31/15     31/28     31/35     32/16     32/25     32/32     32/41
                                           31/21     31/29     31/40     32/19     32/26     32/33     36/10
                                           31/22     31/30     31/41     32/20     32/27     32/34     36/15
                                           31/24     31/31     31/42     32/21     32/28     32/35     37/04
        O.PLUG         66   TSTEXT         36/08
        O.RANF         56   TSTEXT         36/45
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        O.RJ           53   TSTEXT         36/20     36/25     36/48     36/49     36/50
        O.RP           11   TSTEXT         31/11     31/38     32/19     32/23     32/27     32/31     32/35     32/41
                                           31/13     31/39     32/20     32/24     32/28     32/32     32/38
                                           31/15     31/51     32/21     32/25     32/29     32/33     32/39
                                           31/22     32/16     32/22     32/26     32/30     32/34     32/40
        O.SHF          57   TSTEXT         36/46     37/33     37/34     37/35     37/36     37/37     37/41
        O.SLASH         7   TSTEXT         30/11     31/11     31/13     31/15     31/22     31/51
        O.SLP          32   TSTEXT         31/55     32/20     32/23     32/26     32/29     32/32     32/35     32/40
                                           32/16     32/21     32/24     32/27     32/30     32/33     32/38     32/41
                                           32/19     32/22     32/25     32/28     32/31     32/34     32/39
        O.SPACE        42   TSTEXT         30/16
        O.STAR          6   TSTEXT         30/10
        O.STITL       501   PROGRAM*        4/04 E   24/26 L
        O.TRUE         30   TSTEXT         30/26     31/27     31/33     31/43     32/22     32/28     32/34
                                           30/27     31/28     31/34     31/55     32/23     32/29     32/35
                                           31/21     31/29     31/35     32/16     32/24     32/30     32/38
                                           31/24     31/30     31/40     32/19     32/25     32/31     32/39
                                           31/25     31/31     31/41     32/20     32/26     32/32     32/40
                                           31/26     31/32     31/42     32/21     32/27     32/33     32/41
        O.UMIN         27   TSTEXT         32/16     32/21     32/24     32/27     32/30     32/33     32/38     32/41
                                           32/19     32/22     32/25     32/28     32/31     32/34     32/39
                                           32/20     32/23     32/26     32/29     32/32     32/35     32/40
        O.VAR           3   TSTEXT         31/13     31/21     31/29     31/35     31/43     32/22     32/28     32/34
                                           31/15     31/24     31/30     31/36     31/55     32/23     32/29     32/35
                                           31/17     31/25     31/31     31/37     32/16     32/24     32/30     32/38
                                           31/18     31/26     31/32     31/40     32/19     32/25     32/31     32/39
                                           31/19     31/27     31/33     31/41     32/20     32/26     32/32     32/40
                                           31/20     31/28     31/34     31/42     32/21     32/27     32/33     32/41
        O.XMIT         72   TSTEXT         37/07
        O.XOR          24   TSTEXT         30/38     31/15     31/51     32/21     32/25     32/29     32/33     32/39
                                           30/39     31/22     32/16     32/22     32/26     32/30     32/34     32/40
                                           31/11     31/38     32/19     32/23     32/27     32/31     32/35     32/41
                                           31/13     31/39     32/20     32/24     32/28     32/32     32/38
        O.XORN         34   TSTEXT         32/16     32/21     32/24     32/27     32/30     32/33     32/38     32/41
                                           32/19     32/22     32/25     32/28     32/31     32/34     32/39
                                           32/20     32/23     32/26     32/29     32/32     32/35     32/40
        O.(            10   TSTEXT         30/12
        O.)            11   TSTEXT         30/13
        O.$            36   TSTEXT         30/14
        O.=            12   TSTEXT         30/15     32/16     32/22     32/26     32/30     32/34     32/40     36/52
                                           31/11     32/19     32/23     32/27     32/31     32/35     32/41     38/03
                                           31/15     32/20     32/24     32/28     32/32     32/38     36/06
                                           31/22     32/21     32/25     32/29     32/33     32/39     36/07
        PARCEL        502   PROGRAM*        4/05 E   24/28 L
        PAR.CM          0   EXTERNAL*       4/49 X   31/25
        PAR.DLP         0   EXTERNAL*       4/49 X   31/40
        PAR.EOS         0   EXTERNAL*       4/48 X   31/10     31/44
        PAR.EQL         0   EXTERNAL*       4/49 X   31/24
        PAR.FAL         0   EXTERNAL*       4/49 X   31/39
        PAR.HOL         0   EXTERNAL*       4/48 X   31/11
        PAR.LP          0   EXTERNAL*       4/49 X   31/21
        PAR.MIN         0   EXTERNAL*       4/48 X   31/18
        PAR.NX          0   EXTERNAL*       4/52 X   39/35     39/39     39/41
        PAR.PL          0   EXTERNAL*       4/48 X   31/17
        PAR.STD         0   EXTERNAL*       4/48 X   31/22     31/28     31/31     31/34     31/37     31/43
                                           31/19     31/26     31/29     31/32     31/35     31/41     31/55
                                           31/20     31/27     31/30     31/33     31/36     31/42
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        PAR.TNK         0   EXTERNAL*       4/48 X   31/13     31/45     31/51
        PAR.TRU         0   EXTERNAL*       4/49 X   31/38
        PAR.VAR         0   EXTERNAL*       4/48 X   31/15
        PASS          503   PROGRAM*        4/05 E   24/37 L
        PLUS          714   PROGRAM*        4/05 E   35/14 L
        PLUS(S        752   PROGRAM*        4/06 E   36/10 L
        PLUS.M        755   PROGRAM*        4/06 E   36/14 L
        POPTBL        654   PROGRAM*        4/05 E   32/09 L
        POP.CM          0   EXTERNAL*       4/51 X   32/23
        POP.DIV         0   EXTERNAL*       4/50 X   32/19
        POP.EXP         0   EXTERNAL*       4/50 X   32/34
        POP.LOG         0   EXTERNAL*       4/51 X   32/31     32/32     32/33
        POP.MUL         0   EXTERNAL*       4/50 X   32/18
        POP.NOT         0   EXTERNAL*       4/50 X   32/30
        POP.PL          0   EXTERNAL*       4/51 X   32/16
        POP.PN          0   EXTERNAL*       4/50 X   32/20     32/38
        POP.REL         0   EXTERNAL*       4/51 X   32/24     32/25     32/26     32/27     32/28     32/29
        POP.REQ         0   EXTERNAL*       4/50 X   32/22
        POP.RP          0   EXTERNAL*       4/50 X   32/21
        POP.STD         0   EXTERNAL*       4/51 X   32/13     32/15     32/36     32/39     32/41     32/43
                                           32/12     32/14     32/17     32/37     32/40     32/42
        POP.UM          0   EXTERNAL*       4/51 X   32/35
        PR.AND         24                  34/30 D   35/29     35/35
        PR.COM         16                  34/27 D   35/21
        PR.DIV         43                  34/42 D   35/17
        PR.EQ          32                  34/34 D   35/24
        PR.EQUAL       13                  34/23 D   34/24     35/20     36/17
        PR.EXP         46                  34/44 D   35/32
        PR.GE          32                  34/36 D   35/26
        PR.GT          32                  34/37 D   35/27
        PR.LE          32                  34/33 D   35/23
        PR.LPAR        10                  34/22 D   35/18
        PR.LT          32                  34/32 D   34/33     34/34     34/35     34/36     34/37     35/22
        PR.MI          35                  34/39 D   35/15
        PR.MULT        43                  34/41 D   34/42     34/43     35/16
        PR.NE          32                  34/35 D   35/25
        PR.NOT         27                  34/31 D   35/28
        PR.OR          21                  34/28 D   34/29     35/31     35/37
        PR.PL          35                  34/38 D   34/39     35/14
        PR.RPAR         5                  34/21 D   35/19
        PR.SDIV        45                  34/43 D   36/34
        PR.SET         51                  34/19 D   34/22 D   34/27 D   34/30 D   34/32 D   34/40 D   34/44 D
                                           34/21     34/23     34/28     34/31     34/38     34/41
                                           34/21 D   34/23 D   34/28 D   34/31 D   34/38 D   34/41 D
                                           34/22     34/27     34/30     34/32     34/40     34/44
        PR.SLP         13                   4/05 E   34/24 D   34/25
        PR.SMULT       15                  34/26 D   36/11
        PR.SPL         14                  34/25 D   34/26     36/10
        PR.UMIN        40                  34/40 D   35/33
        PR.XOR         21                  34/29 D   35/30     35/36
        PSTACK        714   PROGRAM*        4/05 E   35/13 L
        PTN=FMT      1061   PROGRAM*        4/05 E   39/47 L
        PTSN          121   PROGRAM*       12/47 L   12/48 E
        P.AMADDR       47   TSTEXT         39/31     39/32     39/33     39/46     39/47
        P.AMATR        44   TSTEXT         39/27     39/30     39/33     39/36     39/39     39/42     39/46
                                           39/28     39/31     39/34     39/37     39/40     39/43     39/47
                                           39/29     39/32     39/35     39/38     39/41     39/45
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        P.AMEOS        45   TSTEXT         39/39     39/42     39/43
        P.AMEQ         51   TSTEXT         39/35     39/37     39/42     39/43
        P.AMFUN        44   TSTEXT         39/34     39/38
        P.AMRP         46   TSTEXT         39/31     39/46     39/47
        P.AMWHOL       50   TSTEXT         39/34     39/38     39/42     39/43
        P.AS           37   TSTEXT         35/14     35/16     36/11     36/15     36/34     38/04
                                           35/15     36/10     36/14     36/32     37/04
        P.ATTR         37   TSTEXT         35/14     35/24     35/35     36/14     36/30     36/48     37/07     37/33
                                           35/15     35/25     35/36     36/15     36/32     36/49     37/17     37/34
                                           35/16     35/26     35/37     36/17     36/34     36/50     37/18     37/35
                                           35/17     35/27     36/06     36/18     36/36     36/52     37/19     37/36
                                           35/18     35/28     36/07     36/20     36/38     36/55     37/20     37/37
                                           35/19     35/29     36/08     36/21     36/40     36/56     37/21     37/41
                                           35/20     35/30     36/09     36/23     36/43     37/01     37/22     38/03
                                           35/21     35/31     36/10     36/25     36/44     37/02     37/23     38/04
                                           35/22     35/32     36/11     36/27     36/45     37/04     37/24
                                           35/23     35/33     36/12     36/28     36/46     37/06     37/25
        P.COM          40   TSTEXT         35/14     35/24     35/29     35/31     36/11     36/34     38/04
                                           35/16     35/25     35/30     36/10     36/15     37/04
        P.DIS          41   TSTEXT         35/16     35/17     36/11     36/34     38/04
        P.MODLS        42   TSTEXT         35/21     35/37     36/20     36/36     36/49     37/06     37/22     37/36
                                           35/28     36/06     36/21     36/38     36/50     37/07     37/23     37/37
                                           35/29     36/07     36/23     36/43     36/52     37/17     37/24     37/41
                                           35/30     36/08     36/25     36/44     36/55     37/18     37/25
                                           35/31     36/09     36/27     36/45     36/56     37/19     37/33
                                           35/35     36/12     36/28     36/46     37/01     37/20     37/34
                                           35/36     36/18     36/30     36/48     37/02     37/21     37/35
        P.NONSTD       45   TSTEXT         35/21     36/12     36/21     36/36     36/43     36/49     37/06
                                           35/32     36/20     36/25     36/38     36/48     36/50
        P.NSQEZ        44   TSTEXT         35/18     36/09     36/30     36/48     36/56     37/18     37/23
                                           35/21     36/18     36/36     36/49     37/01     37/19     37/24
                                           36/06     36/20     36/38     36/50     37/02     37/20     37/25
                                           36/07     36/27     36/43     36/52     37/06     37/21
                                           36/08     36/28     36/45     36/55     37/17     37/22
        P.SHORT        13   TSTEXT         27/29     27/30     27/31     27/32     27/33
        P.UNAR         43   TSTEXT         35/21     35/28     35/33     36/43     36/55     36/56     37/01     37/02
  U     QUAL$                              40/06 F   42/06 F   44/06 F   51/06 F   53/06 F
                                           41/34 F   43/28 F   49/54 F   52/20 F   57/57 F
        RANF          777   PROGRAM*        4/07 E   36/45 L
        RATES          66   PROGRAM*        4/07 E   11/39 L
        RA0           265   PROGRAM*       18/11 L
        RA1           266   PROGRAM*       18/12 L
        RA2           267   PROGRAM*       18/13 L
        RA3           270   PROGRAM*       18/14 L
        RA4           271   PROGRAM*       18/15 L
        RA5           272   PROGRAM*       18/16 L
        RA6           273   PROGRAM*       18/17 L
        RA7           274   PROGRAM*       18/18 L
        RB0           255   PROGRAM*       18/01 L
        RB1           256   PROGRAM*       18/02 L
        RB2           257   PROGRAM*       18/03 L
        RB3           260   PROGRAM*       18/04 L
        RB4           261   PROGRAM*       18/05 L
        RB5           262   PROGRAM*       18/06 L
        RB6           263   PROGRAM*       18/07 L
        RB7           264   PROGRAM*       18/08 L
        RCL=            0   EXTERNAL*      47/05     48/54     56/12     57/40
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        RDC=         1075   PROGRAM*       43/30 D   43/33 E
        RDW=         1111   PROGRAM*       49/56 D   50/04 E
        RDX=         1166   PROGRAM*       43/18     43/22     49/57 D
        REFIO         504   PROGRAM*        4/07 E   24/40 L
        REFLIN        505   PROGRAM*        4/07 E   24/43 L
        REFNUM        506   PROGRAM*        4/10 E   24/45 L   24/50
        REFVAR        507   PROGRAM*        4/10 E   24/50 D
        REGA          265   PROGRAM*        4/07 E   18/10 L
        REGARG       1005   PROGRAM*        4/08 E   36/55 L
        REGARG2      1006   PROGRAM*        4/09 E   36/56 L
        REGB          255   PROGRAM*        4/10 E   17/57 L
        REGFILE       255   PROGRAM*        4/10 E   17/55 L
        REGX          275   PROGRAM*        4/07 E   18/20 L
        REG=B         325   PROGRAM*        4/08 E   19/14 L
        REG=T         305   PROGRAM*        4/08 E   19/05 L
        REG.A          10   TSTEXT         17/47
        REG.B           0   TSTEXT         17/43     17/46
        REG.X          20   TSTEXT         17/44     17/45     17/48     17/49     17/50
        REVMIN        770   PROGRAM*        4/09 E   36/32 L
        RGC           511   PROGRAM*        4/10 E   25/06 L
        RGFILE          0   TSTEXT         17/43     17/44     17/45     17/47     17/48     17/49     17/51
                                           17/43     17/44     17/46     17/47     17/48     17/50     17/51
                                           17/43     17/45     17/46     17/47     17/49     17/50
                                           17/44     17/45     17/46     17/48     17/49     17/50
        RGX           512   PROGRAM*        4/10 E   25/07 L
        RG=ADR        233   PROGRAM*       17/46 D
        RG=APL        252   PROGRAM*       17/51 D
        RG=BADR       222   PROGRAM*        4/08 E   17/43 D
        RG=INTR       225   PROGRAM*        4/08 E   17/44 D
        RG=LOAD       236   PROGRAM*        4/08 E   17/47 D
        RG=LODX       241   PROGRAM*        4/09 E   17/48 D
        RG=SET        244   PROGRAM*        4/10 E    4/11 E   17/49 D
        RG=STOR       247   PROGRAM*        4/09 E   17/50 D
        RG=TEMP       230   PROGRAM*        4/09 E   17/45 D
        RG=TYP        222   PROGRAM*       17/42 L
        RJSUB        1004   PROGRAM*        4/08 E   36/52 L
        RJTDUM        510   PROGRAM*        4/07 E   24/57 L
        ROUTNAM       513   PROGRAM*        4/09 E   25/09 L
        RPAR          721   PROGRAM*       35/19 L
        RREG          514   PROGRAM*        4/09 E   25/13 L
        RSELECT       546   PROGRAM*       27/12 D   27/15 E
        RTNCNT        515   PROGRAM*        4/07 E   25/18 L
        RX0           275   PROGRAM*       18/21 L
        RX1           276   PROGRAM*       18/22 L
        RX2           277   PROGRAM*       18/23 L
        RX3           300   PROGRAM*       18/24 L
        RX4           301   PROGRAM*       18/25 L
        RX5           302   PROGRAM*       18/26 L
        RX6           303   PROGRAM*       18/27 L
        RX7           304   PROGRAM*       18/28 L
        R=FLAG        547   PROGRAM*       27/13 L   27/15 E
        R.A1           11   TSTEXT         17/51     17/51
        R.A2           12   TSTEXT         17/51     17/51
        R.A3           13   TSTEXT         17/51     17/51
        R.B1            1   TSTEXT         17/43     17/43     17/46     17/46
        R.B2            2   TSTEXT         17/43     17/43     17/46     17/46
        R.B3            3   TSTEXT         17/43     17/43     17/46     17/46
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        R.B4            4   TSTEXT         17/43     17/43     17/46     17/46
        R.B5            5   TSTEXT         17/43     17/43     17/46     17/46
        R.X0           20   TSTEXT         17/44     17/44     17/45     17/45     17/49     17/49
        R.X1           21   TSTEXT         17/45     17/45     17/47     17/47     17/48     17/48     17/49     17/49
        R.X2           22   TSTEXT         17/45     17/45     17/47     17/47     17/48     17/48     17/49     17/49
        R.X3           23   TSTEXT         17/45     17/45     17/47     17/47     17/48     17/48     17/49     17/49
        R.X4           24   TSTEXT         17/45     17/45     17/47     17/47     17/48     17/48     17/49     17/49
        R.X5           25   TSTEXT         17/45     17/45     17/47     17/47     17/48     17/48     17/49     17/49
        R.X6           26   TSTEXT         17/44     17/44     17/50     17/50
        R.X7           27   TSTEXT         17/44     17/44     17/50     17/50
        SA=BKS9         0   EXTERNAL*       5/06 X   17/47     17/51
        SB=BKS9         0   EXTERNAL*       5/06 X   17/43     17/46
        SB.STNL       516   PROGRAM*        4/12 E   25/27 L   25/28
        SB.STNR       517   PROGRAM*        4/12 E   25/28 D
        SDIV          771   PROGRAM*        4/12 E   36/34 L
        SFN          1353   PROGRAM*        4/12 E   73/57     79/08 L
        SHFC         1025   PROGRAM*        4/13 E   37/33 L
        SHFD         1030   PROGRAM*        4/13 E   37/36 L
        SHFDS        1031   PROGRAM*        4/13 E   37/37 L
        SHFS         1026   PROGRAM*        4/13 E   37/34 L
        SHFSA        1027   PROGRAM*        4/13 E   37/35 L
        SIZES          33   PROGRAM*        4/12 E   10/53 L
        STAGE         520   PROGRAM*        4/12 E   25/30 L
        STATIC        521   PROGRAM*        4/13 E   25/33 L
        STN           522   PROGRAM*        4/12 E   25/35 L
        STR.D           0   EXTERNAL*      36/07
        STR.I           0   EXTERNAL*       5/05 X   36/06     38/03
        SUBOP         754   PROGRAM*        4/13 E   36/12 L
        SUB.I           0   EXTERNAL*       5/05 X   36/14
        SX=BKS9         0   EXTERNAL*       5/06 X   17/48     17/50
        SX=XKS9         0   EXTERNAL*       5/06 X   17/44     17/45     17/49
        SYSERR        523   PROGRAM*        4/12 E   25/38 L
        SYS=            0   EXTERNAL*      41/10
        TAB.CO          0   EXTERNAL*       4/40 X   30/17
        TAB.DOL         0   EXTERNAL*       4/40 X   30/14
        TAB.LP          0   EXTERNAL*       4/40 X   30/12
        TAB.NX          0   EXTERNAL*       4/40 X   30/08     30/09     30/11     30/16
        TAB.PD          0   EXTERNAL*       4/41 X   30/18
        TAB.RP          0   EXTERNAL*       4/40 X   30/13
        TAB.STR         0   EXTERNAL*       4/40 X   30/10
        TAB.=           0   EXTERNAL*       4/40 X   30/15
        TA=NAM         42   PROGRAM*        4/25 E   11/07 L
        TA=PRO         60   PROGRAM*        4/15 E   11/22 L
        TA.NAM          7   PROGRAM*        4/25 E   10/23 L   11/07
        TA.PRO         25   PROGRAM*        4/15 E   10/38 L   11/22
        TEM.MAX       524   PROGRAM*        4/16 E   25/46 L
        TEST            0   TSTEXT         23/44 F   73/43 F   74/06 F   79/33 F
        TG.APL        124   PROGRAM*        4/25 E   13/22 D
        TG.BASE       121   PROGRAM*        4/14 E   13/12 L
        TG.END        126   PROGRAM*        4/14 E   13/28 D
        TG.PRO        124   PROGRAM*        4/15 E   13/21 L   13/22
        TG.SN         123   PROGRAM*       13/16 L
        TG.TEM        126   PROGRAM*        4/21 E   13/26 L
        TG.VAR        121   PROGRAM*       13/14 L
        TG.VDIM       125   PROGRAM*        4/25 E   13/24 L
        THRESH        525   PROGRAM*        4/26 E   25/48 L
        TI=DAT         37   PROGRAM*        4/23 E   11/25 D
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        TI.DAT          4   PROGRAM*        4/23 E   10/41 D   11/25
        TL=DAT         36   PROGRAM*        4/23 E   11/24 D
        TL.DAT          3   PROGRAM*        4/23 E   10/40 D   11/24
        TN=BLK         40   PROGRAM*        4/24 E   11/34 D
        TN=EXT         50   PROGRAM*        4/25 E   11/33 D
        TN.BLK          5   PROGRAM*        4/25 E   10/50 D   11/34
        TN.EXT         15   PROGRAM*        4/25 E   10/49 D   11/33
        TP=APL         56   PROGRAM*        4/16 E   11/20 L
        TP=CIDM        46   PROGRAM*        4/30 E   11/11 L
        TP=DIM         45   PROGRAM*        4/21 E   11/10 L
        TP=DO          47   PROGRAM*        4/17 E   11/12 L
        TP=EQU         50   PROGRAM*        4/23 E   11/14 D
        TP=FMT         51   PROGRAM*        4/16 E    4/24 E   11/15 L
        TP=ILI         57   PROGRAM*        4/27 E   11/21 L
        TP=NLST        55   PROGRAM*        4/18 E   11/19 L
        TP.APL         23   PROGRAM*        4/16 E   10/36 L   11/20
        TP.CIDM        13   PROGRAM*        4/30 E   10/27 L   11/11
        TP.DIM         12   PROGRAM*        4/14 E   10/26 L   11/10
        TP.DO          14   PROGRAM*        4/18 E   10/28 L   10/45     11/12
        TP.EQU         15   PROGRAM*        4/23 E   10/30 D   10/49     11/14
        TP.FMT         16   PROGRAM*        4/16 E    4/24 E   10/31 L   11/15
        TP.ILI         24   PROGRAM*        4/27 E   10/37 L   11/21
        TP.NLST        22   PROGRAM*        4/18 E   10/35 L   11/19
        TRACE         526   PROGRAM*        4/35 E   25/49 L
        TRLINE        527   PROGRAM*        4/28 E   25/51 L
        TS=BLK         62   PROGRAM*        4/16 E   11/27 L
        TS=CON         40   PROGRAM*        4/17 E   11/05 L
        TS=CONB       530   PROGRAM*        4/24 E   25/53 L
        TS=DAT         61   PROGRAM*        4/18 E   11/23 L
        TS=ENT         63   PROGRAM*        4/16 E   11/28 L
        TS=EQU         50   PROGRAM*        4/18 E   11/13 L
        TS=STN         43   PROGRAM*        4/18 E   11/08 L
        TS=SYM         41   PROGRAM*        4/17 E   11/06 L
        TS.BLK         27   PROGRAM*        4/14 E   10/43 L   11/27
        TS.CON          5   PROGRAM*        4/17 E   10/21 L   10/50     11/05
        TS.DAT         26   PROGRAM*        4/19 E   10/39 L   10/42     11/23
        TS.ENT         30   PROGRAM*        4/15 E   10/44 L   11/28
        TS.EQU         15   PROGRAM*        4/23 E   10/29 L   10/30     10/47     11/13
        TS.STN         10   PROGRAM*        4/14 E   10/24 L   11/08
        TS.SYM          6   PROGRAM*        4/14 E   10/22 L   11/06
        TT=ASF         52   PROGRAM*        4/19 E   11/16 L
        TT=COMM        47   PROGRAM*        4/24 E   11/29 D
        TT=FILL        36   PROGRAM*        4/19 E   11/30 D
        TT=LF          35   PROGRAM*        4/15 E   11/02 L
        TT=LINK        50   PROGRAM*        4/19 E   11/31 D
        TT=PAR         53   PROGRAM*        4/21 E   11/17 L
        TT=REF         34   PROGRAM*        4/17 E   11/01 L
        TT=SCR         37   PROGRAM*        4/17 E   11/04 L
        TT=USE         36   PROGRAM*        4/19 E   11/03 L
        TT=XFIL        37   PROGRAM*        4/20 E   11/32 D
        TT.ASF         17   PROGRAM*        4/21 E   10/32 L   11/16
        TT.COMM        14   PROGRAM*        4/24 E   10/45 D   11/29
        TT.FILL         3   PROGRAM*        4/19 E   10/46 D   11/30
        TT.LF           2   PROGRAM*        4/15 E   10/18 L   11/02
        TT.LINK        15   PROGRAM*        4/19 E   10/47 D   11/31
        TT.PAR         20   PROGRAM*        4/21 E   10/33 L   11/17
        TT.REF          1   PROGRAM*        4/17 E   10/17 L   11/01
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        TT.SCR          4   PROGRAM*        4/17 E   10/20 L   10/41     10/48     11/04
        TT.USE          3   PROGRAM*        4/18 E   10/19 L   10/40     10/46     11/03
        TT.XFIL         4   PROGRAM*        4/20 E   10/48 D   11/32
        T=DLBUF        64   PROGRAM*        4/27 E   11/35 L
        T=END          65   PROGRAM*       11/36 L
        T=FILE         61   PROGRAM*        4/15 E   11/26 D
        T=LGOB         33   PROGRAM*        4/22 E   10/57 D
        T=LNT          44   PROGRAM*        8/19 E   11/09 L
        T=SB           33   PROGRAM*        4/22 E   10/56 L
        T=VDIM         54   PROGRAM*        4/24 E   11/18 L
        T.DLBUF        31   PROGRAM*        4/27 E   10/51 L   11/35
        T.END          32   PROGRAM*        4/14 E   10/52 L   11/36
        T.FILE         26   PROGRAM*        4/15 E   10/42 D   11/26
        T.LGOB          0   PROGRAM*        4/22 E   10/16 D   10/57
        T.LNT          11   PROGRAM*        8/19 E   10/25 L   11/09
        T.SB            0   PROGRAM*        4/22 E   10/15 L   10/16     10/56
        T.VDIM         21   PROGRAM*        4/21 E   10/34 L   11/18
        UMINUS        737   PROGRAM*        4/28 E   35/33 L
        UUC           531   PROGRAM*        4/28 E   25/55 L
        VALUE.        532   PROGRAM*        4/32 E   25/57 L
        VARDIM        533   PROGRAM*        4/32 E   26/02 L
        VD.EQ        1033   PROGRAM*        4/32 E   38/03 L
        VD.INTR      1035   PROGRAM*        4/32 E   38/05 L
        VD.MULT      1034   PROGRAM*        4/32 E   38/04 L
        VFALSE        554   PROGRAM*       27/33 L
        VTRUE         553   PROGRAM*        4/32 E   27/32 L
        WNB=            0   EXTERNAL*      40/43
        WNZ           534   PROGRAM*        4/33 E   26/04 L
        WOD          1361   PROGRAM*        4/33 E   79/36 L
        WODA         1373   PROGRAM*       79/40     80/18 L
        WTC=         1224   PROGRAM*       52/22 D   52/25 E
        WTW=         1237   PROGRAM*       58/02 D   58/07 E
        WTX=         1303   PROGRAM*       52/14     58/03 D
        XMITOP       1013   PROGRAM*        4/34 E   37/07 L
        XORNOT        744   PROGRAM*       35/36 L
        XOROP         734   PROGRAM*       35/30 L
        XPOP          772   PROGRAM*        4/34 E   36/36 L
        ZLCOMMA       537   PROGRAM*        4/36 E   26/10 L
        ZLE           541   PROGRAM*        4/36 E   26/12 L
        ZLEQUAL       536   PROGRAM*        4/36 E   26/09 L
        ZLPAREN       540   PROGRAM*        4/36 E   26/11 L
        .CMLOD          0   TSTEXT          7/36 F
        .FID            1   TSTEXT          8/18 F    8/23 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCIO 
  
  
        CIO1         1062   PROGRAM*       40/43 L   41/16
        CIO2         1063   PROGRAM*       40/45 L   41/15
        CIO3         1066   PROGRAM*       41/02     41/05 L
        CIO=         1070   PROGRAM*       41/12 L   41/28     41/36
  U     ERP$                               40/44 F
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    97
        SYMBOLIC REFERENCE TABLE.                                     COMCRDC 
  
                                                  SYMBOL QUALIFIER =  COMCRDC 
  
  
        RDC1         1100   PROGRAM*       42/43     43/02 L
        RDC2         1101   PROGRAM*       43/09 L   43/19
        RDC3         1103   PROGRAM*       43/13     43/15 L
        RDC=         1075   PROGRAM*       42/45 L   43/30
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCRDW 
  
  
        LCB1         1200   PROGRAM*       48/55 L   49/03
        LCB2         1201   PROGRAM*       48/53     49/01 L
        LCB3         1206   PROGRAM*       49/06     49/16 L
        LCB4         1212   PROGRAM*       49/22     49/29 L   49/40
        LCB4.1       1213   PROGRAM*       49/32 L   49/46
        LCB5         1214   PROGRAM*       49/28     49/34 L
        LCB6         1221   PROGRAM*       49/31     49/45 L
        LCB=         1176   PROGRAM*       48/49 L   50/01
        RDW1         1112   PROGRAM*       44/52     44/55 L   46/53     47/06     47/10     47/17
        RDW10        1153   PROGRAM*       47/06 L
        RDW11        1154   PROGRAM*       47/04     47/08 L
        RDW12        1161   PROGRAM*       47/11     47/19 L
        RDW13        1164   PROGRAM*       47/22     47/25     47/27 L
        RDW14        1140   PROGRAM*       46/28     46/33 L
        RDW2         1115   PROGRAM*       45/07     45/09 L
        RDW3         1116   PROGRAM*       45/10     45/12 L
        RDW4         1121   PROGRAM*       45/27 L   45/31
        RDW5         1123   PROGRAM*       45/26     45/35 L
        RDW6         1125   PROGRAM*       45/45 L   46/13
        RDW7         1106   PROGRAM*       44/43 L   45/35
        RDW8         1110   PROGRAM*       44/47     44/50 L   46/33     46/35     46/44
        RDW9         1151   PROGRAM*       45/12     47/01 L
        RDW=         1111   PROGRAM*       44/54 L   46/54     47/31     49/56
        RDX1         1175   PROGRAM*       48/04     48/06     48/18     48/24 L
        RDX=         1166   PROGRAM*       47/56 L   49/57
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWTC 
  
  
        WTC1         1227   PROGRAM*       51/39     51/54 L
        WTC2         1230   PROGRAM*       52/03 L   52/13
        WTC3         1231   PROGRAM*       52/04     52/06 L
        WTC=         1224   PROGRAM*       51/41 L   52/22
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWTW 
  
  
1       /TABLES  T A B L E   DEFINITIONS.                             COMPASS 3.7-871.     24/05/02. 15.50.40.      PAGE    98
        SYMBOLIC REFERENCE TABLE.                                     COMCWTW 
  
        DCB1         1316   PROGRAM*       57/38     57/39     57/49 L
        DCB=         1312   PROGRAM*       57/34 L   58/04
  U     WRIF$                              55/53 F   56/14 F   57/05 F   57/43 F
        WTW1         1240   PROGRAM*       53/55     54/01 L   56/03     56/13     56/21
        WTW10        1276   PROGRAM*       54/19     56/08 L
        WTW11        1301   PROGRAM*       56/10     56/11     56/20 L
        WTW12        1270   PROGRAM*       55/37     55/42 L
        WTW13        1275   PROGRAM*       55/52     56/03 L
        WTW2         1244   PROGRAM*       54/13     54/15 L
        WTW3         1245   PROGRAM*       54/15     54/17 L
        WTW4         1247   PROGRAM*       54/21     54/26 L
        WTW5         1251   PROGRAM*       54/36 L   54/40
        WTW6         1253   PROGRAM*       54/32     54/44 L
        WTW7         1255   PROGRAM*       54/54 L   55/22
        WTW8         1234   PROGRAM*       53/47 L   54/44
        WTW9         1236   PROGRAM*       53/51     53/54 L   55/42
        WTW=         1237   PROGRAM*       53/57 L   54/06     56/04     58/02
        WTX1         1311   PROGRAM*       56/48     57/04     57/13 L
        WTX=         1303   PROGRAM*       56/44 L   58/03
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3105              IDENT  ERRORS 
                       3105                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       541 
                                        LITERALS* LOCAL         541       637 
                                        FORMAT.   LOCAL        1400      1505 
  
  
                                        ENTRY POINTS. 
  
                                        ANSI=          320+           E.DO1         1775+           E.LN           173+ 
                                        ANSI.SW        321+           E.DO2         1777+           E.LN1          174+ 
                                        CLASS          545+           E.DO3         2001+           E.LN2          175+ 
                                        CON.DPC        575+           E.DO4         2003+           E.LN3          176+ 
                                        DO.DPC         571+           E.DO5         2005+           E.LN4          177+ 
                                        ERR=F          311+           E.DO8         2007+           E.LP1         2446+ 
                                        E.DM2A          72+           E.DO9         2011+           E.LP2         2447+ 
                                        E.DM5           75+           E.DO11        2013+           E.LP3         2450+ 
                                        E.MD           211+           E.DO12        2015+           E.LP4         2453+ 
                                        FILL.          542+           E.DO13        2017+           E.LV1          200+ 
                                        FILL.2         543+           E.DO16        2021+           E.LV2          201+ 
                                        FILL.3         544+           E.DO17        2023+           E.LV3          202+ 
                                        L.CL            15            E.DO18        2025+           E.LV4          203+ 
                                        OSE            464+           E.DO23        2027+           E.LV5          204+ 
                                        PWE            507+           E.DO24        2031+           E.LV6         2470+ 
                                        STNTD          246+           E.DO25        2033+           E.LV7         2473+ 
                                        STNTND         251+           E.DO25A       2035+           E.LV8         2475+ 
                                        UEC            535+           E.DO27        2037+           E.LV9         2500+ 
                                        E.AC          1400+           E.DO28        2041+           E.LV10        2503+ 
                                        E.AC3         1402+           E.DO29        2043+           E.LV11        2505+ 
                                        E.AC4         1404+           E.EQ           102+           E.FM           205+ 
                                        E.AC5            0+           E.EQ1          103+           E.MA           206+ 
                                        E.AC6            1+           E.EQ2          104+           E.MB           207+ 
                                        E.AC8         1411+           E.EQ3          105+           E.MCA          210+ 
                                        E.AC9         1413+           E.EQ4          106+           E.MC1         2517+ 
                                        E.AP             2+           E.EQ5          107+           E.MLNL        2521+ 
                                        E.AP1            3+           E.EQ6         2056+           E.MDO         2525+ 
                                        E.FA          1421+           E.EQ11        2060+           E.ME           214+ 
                                        E.FR          1423+           E.EQ12        2062+           E.MH           215+ 
                                        E.RA             4+           E.EQ13        2064+           E.MI           216+ 
                                        E.RA1            5+           E.EQ14        2066+           E.MIJ          217+ 
                                        E.AF3            6+           E.EQ15        2070+           E.MN           220+ 
                                        E.AF4            7+           E.EQ16        2072+           E.M$           221+ 
                                        E.AF5           10+           E.EX1         2074+           E.M$2          222+ 
                                        E.AF6           11+           E.EX2         2076+           E.M$3          223+ 
                                        E.AF7         1441+           E.EX3          110+           E.MK           224+ 
                                        E.AF9         1443+           E.EX4         2101+           E.ML          2550+ 
                                        E.AF10        1445+           E.FS1          111+           E.MO1          225+ 
                                        E.AF11          12+           E.FS2          112+           E.MO2         2553+ 
                                        E.AF15          13+           E.FS3         2106+           E.MR1          226+ 
                                        E.AF16        1453+           E.FS4         2110+           E.MR2          227+ 
                                        E.AF17          14+           E.FS5         2112+           E.MR3          230+ 
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        E.IN1         1457+           E.FS5A        2114+           E.MRA         2562+ 
                                        E.ADP         1461+           E.FS6         2117+           E.MS          2564+ 
                                        E.AES         1463+           E.FS6A        2121+           E.MT           231+ 
                                        E.ANS         1465+           E.FS7         2122+           E.NLN         2567+ 
                                        E.ANS1          15+           E.FS7A        2124+           E.NP           232+ 
                                        E.ANS2        1471+           E.FS7B        2126+           E.NP1          233+ 
                                        E.ART           16+           E.FS7C        2130+           E.OV           234+ 
                                        E.ART1          17+           E.FS8         2132+           E.OV1          235+ 
                                        E.ANS3        1475+           E.FS8A        2134+           E.OV3          236+ 
                                        E.ANS4        1477+           E.FS8B        2136+           E.PN1         2603+ 
                                        E.AS2         1501+           E.FS8C        2141+           E.PN3         2605+ 
                                        E.AS3         1502+           E.FS8D        2143+           E.PT           237+ 
                                        E.AS4           20+           E.FS8E        2145+           E.PT2         2611+ 
                                        E.AS5         1505+           E.FS8F        2147+           E.PT3          240+ 
                                        E.AT1         1507+           E.FS9         2151+           E.PT1          241+ 
                                        E.AT1A        1511+           E.FS10        2153+           E.PT4          242+ 
                                        E.AT2         1513+           E.FS11        2155+           E.SB2         2621+ 
                                        E.AT3         1515+           E.FS11A       2157+           E.SB3         2623+ 
                                        E.AT5         1517+           E.FS14        2161+           E.SB4         2625+ 
                                        E.AT6         1521+           E.FS18        2163+           E.SB6         2627+ 
                                        E.AT7         1523+           E.FS18A       2165+           E.SB7         2631+ 
                                        E.AT8         1524+           E.FS23        2166+           E.SB8         2633+ 
                                        E.AT9         1526+           E.FS24        2170+           E.SN          2635+ 
                                        E.AT10        1530+           E.FS26        2172+           E.SN1         2637+ 
                                        E.AT11        1532+           E.GO           113+           E.SN2         2641+ 
                                        E.AT12        1534+           E.GO1          114+           E.SN3         2643+ 
                                        E.AT13        1536+           E.GO1A        2200+           E.SN4         2645+ 
                                        E.CL            21+           E.GO2          115+           E.SN5         2647+ 
                                        E.CL1           22+           E.GO2A        2204+           E.SN6         2651+ 
                                        E.CL2         1545+           E.GO3          116+           E.SN7         2653+ 
                                        E.CL3         1547+           E.GO4         2210+           E.SN8         2655+ 
                                        E.CM            23+           E.GO5         2212+           E.SN9         2657+ 
                                        E.CMA         1553+           E.GO7         2214+           E.SN10        2661+ 
                                        E.CM1           24+           E.GO8         2215+           E.SN12        2663+ 
                                        E.CM2           25+           E.GO9         2217+           E.SN13        2665+ 
                                        E.CM3           26+           E.GO10        2221+           E.SN14        2667+ 
                                        E.CM4           27+           E.GO11        2223+           E.SN15        2671+ 
                                        E.CM5           30+           E.HC1         2225+           E.SN16        2673+ 
                                        E.CM6           31+           E.HC2         2227+           E.SN17        2674+ 
                                        E.CR1         1571+           E.HC3         2231+           E.SN18         243+ 
                                        E.CR2         1573+           E.HC4         2232+           E.SN19        2700+ 
                                        E.CR3         1575+           E.HC5         2234+           E.SN20        2702+ 
                                        E.CR3A        1577+           E.IF           117+           E.SU2         2703+ 
                                        E.CR4         1601+           E.IF1         2237+           E.SU3         2705+ 
                                        E.CR5         1603+           E.IF2         2241+           E.SU4         2710+ 
                                        E.CR6         1605+           E.IF3          120+           E.SU4A        2712+ 
                                        E.CR7         1607+           E.IF4         2245+           E.SU6         2714+ 
                                        E.CR8         1611+           E.IF5         2247+           E.SU8         2716+ 
                                        E.CR9         1613+           E.IF6          121+           E.SU9         2720+ 
                                        E.CR10        1615+           E.IF7         2253+           E.SU10        2722+ 
                                        E.CT            32+           E.IF8         2255+           E.SU11        2724+ 
                                        E.DAA         1621+           E.IF9          122+           E.SU12        2726+ 
                                        E.DALV        1623+           E.IF10         123+           E.SPR         2730+ 
                                        E.DACV          33+           E.IF11         124+           E.SPR1        2732+ 
                                        E.DAVC          34+           E.IF12         125+           E.SPR2        2734+ 
                                        E.DAR         1631+           E.IF13         126+           E.SPR3         252+ 
                                        E.DAUC          35+           E.IO           127+           E.SPR4        2740+ 
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        E.DCE           36+           E.IO1          130+           E.SPR5        2742+ 
                                        E.DHC         1636+           E.IO2         2275+           E.TC1         2743+ 
                                        E.DIL           37+           E.IO3          131+           E.TC2          253+ 
                                        E.DIL1          40+           E.IO6         2300+           E.TC3          254+ 
                                        E.DIL2          41+           E.IO62        2302+           E.TC4          255+ 
                                        E.DIL3          42+           E.IO7          132+           E.TC5         2753+ 
                                        E.DMT           43+           E.IO8         2305+           E.TC6          256+ 
                                        E.DNA         1652+           E.IO9         2307+           E.TC7          257+ 
                                        E.DNA2          44+           E.IO11         133+           E.TC9          260+ 
                                        E.DSE           45+           E.IO12         134+           E.TC10         261+ 
                                        E.DTC         1660+           E.IO13         135+           E.TC11        2766+ 
                                        E.DVL1          46+           E.IO14         136+           E.TE1         2770+ 
                                        E.DVL2          47+           E.IO19        2320+           E.TE2         2772+ 
                                        E.DVL21         50+           E.IO20         137+           E.TE2B        2774+ 
                                        E.DVL22         51+           E.IO21        2324+           E.TE2A        2776+ 
                                        E.DVL23         52+           E.IO25         140+           E.TE3         3000+ 
                                        E.DVL24         53+           E.IO26        2330+           E.TE4         3002+ 
                                        E.DVL25         54+           E.IO27         141+           E.TE5          262+ 
                                        E.DVL26         55+           E.IO28        2334+           E.TE7         3006+ 
                                        E.DVL29         56+           E.IO29         142+           E.TE8         3010+ 
                                        E.DVL3          57+           E.IOB1         143+           E.TT          3012+ 
                                        E.DVL4          60+           E.IOB2         144+           E.TY           263+ 
                                        E.DVL5          61+           E.IOB3         145+           E.TY1         3015+ 
                                        E.DVL6          62+           E.IOB4         146+           E.TYA         3017+ 
                                        E.DVL7          63+           E.IOB5         147+           E.TYH          264+ 
                                        E.DVL8          64+           E.IOB7         150+           E.TYIK         265+ 
                                        E.DVL9          65+           E.IOB8         151+           E.TYI1         266+ 
                                        E.DVL10       1720+           E.IOB9         152+           E.TYI2         267+ 
                                        E.DC          1722+           E.IOB10        153+           E.TYI3        3031+ 
                                        E.DC1         1723+           E.IOD1         154+           E.TYI4        3033+ 
                                        E.DC2         1725+           E.IOD2         155+           E.TYI5        3035+ 
                                        E.DC3         1726+           E.IOD3         156+           E.TYI6         270+ 
                                        E.DC6         1730+           E.IOD4         157+           E.TYI7         271+ 
                                        E.DC8         1732+           E.IOL1        2374+           E.UE           272+ 
                                        E.DC9         1734+           E.IOL2        2376+           E.UE1          273+ 
                                        E.DM            66+           E.IOL3        2400+           E.UE2         3047+ 
                                        E.DM1           71+           E.IOL4        2401+           E.US1          274+ 
                                        E.DM2           73+           E.IOL5         160+           E.VA1         3054+ 
                                        E.DM3           74+           E.IOF         2405+           E.VA2         3056+ 
                                        E.DM4         1746+           E.IOF1        2407+           E.VA3          275+ 
                                        E.DM5A          76+           E.ION          161+           E.VD          3062+ 
                                        E.DM6         1752+           E.ION1        2413+           E.XC          3064+ 
                                        E.DM7           77+           E.IOS1         162+           E.XC1          276+ 
                                        E.DM8          100+           E.IOS2         163+           E.XP1         3070+ 
                                        E.DM9         1760+           E.IOS3         164+           E.XP2         3072+ 
                                        E.DM10         101+           E.IOS4         165+           E.XP3         3074+ 
                                        E.DM11        1764+           E.IOS5         166+           E.XP4         3076+ 
                                        E.DM12        1766+           E.IOS6         167+           E.XP5         3100+ 
                                        E.DM13        1767+           E.IOS7         170+           E.ZA           277+ 
                                        E.DM14        1771+           E.IOS9         171+ 
                                        E.DO          1773+           E.IOS10        172+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        SAVLINE   CHARMAP   DLAB      WIN       PPA355    CKS67     BLWA      DIR8
                                        LOP=F     ERRORS    DODO      WINX      PPA4      CKS65     BUFERR    PSP.C 
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     4
        STORAGE ALLOCATION. 
  
                                        LOP=N     TS.SYM    LABL      BLL       LCC66     END1B     LST       DAT.Z 
                                        LOP=W     T.DLBUF   ISN60     LDB       CUSX      AFSX      IFS11     DATA2 
                                        LOP=X     LSL       CRJ       LINEBUF   CKS       CPM2      CUS.RET   AFDEX 
                                        LOP=1     WOF       DIMSYM    CP.PW     CPM6      LVL8      FMT6A     PAR.EOS 
                                        BINOUT    S.ERR     SAVE      PSP.Z     END93     LST5      EQS8      PSN 
                                        CDD       TSF       LBDO      IMP.ER    END1C     CPM       DIRX      PSP 
  
  
  
  
                                                  IDENT  ERRORS                                                  ERRORS      2
                                         ERRORS   SECT   (DIAGNOSTIC PROCESSING.)                                FCC1410     4
  
                                                  SST    A,B,C,F,G,L,K,Z,EXIT.                                   ERRORS      4
                                                  NOREF  A,B,C,F,G,L,K,Z,EXIT.                                   ERRORS      5
                                                                                                                 ERRORS      6
                                         B=ERROR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     ERRORS      7
                                                                                                                 ERRORS      8
                                                  ENTRY  ANSI=,ANSI.SW                                           ERRORS      9
                                                  ENTRY  CLASS,CON.DPC                                           FCC0597     6
                                                  ENTRY  DO.DPC                                                  ERRORS     11
                                                  ENTRY  ERR=F,E.DM2A,E.DM5,E.MD                                 FEAT126A  102
                                                  ENTRY  FILL.,FILL.2,FILL.3                                     ERRORS     13
                                                  ENTRY  L.CL                                                    ERRORS     14
                                                  ENTRY  OSE                                                     ERRORS     15
                                                  ENTRY  PWE                                                     ERRORS     16
                                                  ENTRY  STNTD,STNTND                                            FEAT126C   77
                                                  ENTRY  UEC                                                     ERRORS     18
                                                                                                                 ERRORS     19
                                        *         IN FTN                                                         ERRORS     20
                                                  EXT    SAVLINE,LOP=F,LOP=N,LOP=W,LOP=X,LOP=1                   ERRORS     21
                                                                                                                 ERRORS     22
                                        *         IN TABLES                                                      ERRORS     23
                                                  EXT    BINOUT,CDD,CHARMAP,ERRORS,TS.SYM,T.DLBUF                FCC1328X   82
                                                                                                                 ERRORS     25
                                        *         IN MAIN                                                        ERRORS     26
                                                  EXT    LSL,WOF                                                 ERRORS     27
                                                                                                                 ERRORS     28
                                        *         IN LEX                                                         ERRORS     29
                                                  EXT    S.ERR,TSF                                               ERRORS     30
                                                                                                                 ERRORS     31
                                        *         IN NUM                                                         ERRORS     32
                                                  EXT    DLAB,DODO,LABL,ISN60                                    ERRORS     33
                                                                                                                 ERRORS     34
                                        *         IN REG                                                         ERRORS     35
                                                  EXT    CRJ                                                     ERRORS     36
                                                                                                                 ERRORS     37
                                        *         IN GEN                                                         ERRORS     38
                                                  EXT    DIMSYM                                                  ERRORS     39
                                                                                                                 ERRORS     40
                                        *         IN INIT                                                        ERRORS     41
                                                  EXT    SAVE                                                    ERRORS     42
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     5
  
  
                                        **        CLASS - MACRO TO DEFINE AND NAME *CLASS* BITS.                 ERRORS     44
                                        *                                                                        ERRORS     45
                                        * SYM     CLASS  NAM                                                     ERRORS     46
                                                                                                                 ERRORS     47
                                        *         *SYM*  = NAME OF FIELD                                         ERRORS     48
                                        *         *NAM*  = EXTERNAL NAME (FOR ERROR MESSAGES)                    ERRORS     49
                                                                                                                 ERRORS     50
                                                                                                                 ERRORS     51
                                                  MACRO  CLASS,SYM,NAM                                           ERRORS     52
                                         N.CLASS  SET    N.CLASS+1                                               ERRORS     53
                                         CLASS    RMT                                                            ERRORS     54
                                                  ERRLIT NAM                                                     ERRORS     55
                                         CLASS    RMT                                                            ERRORS     56
                                         CLASS    ENDM                                                           ERRORS     57
                                                                                                                 ERRORS     58
                                   0     N.CLASS  SET    0                                                       ERRORS     59
  
  
  
  
                                        **        CLASS BITS --                                                  ERRORS     61
                                        *                                                                        ERRORS     62
                                        * RP  -   VAR   COMM  EQUIV  NLST  ARY  LEV  EXT  ENT  FP  DEF           ERRORS     63
                                        *   NVAR  -     INL   ASF   SUB   BEF   FUN   EXT   ENT                  ERRORS     64
                                        *                                                                        ERRORS     65
                                        *         NOTE   ANY CHANGES TO EITHER OF THE FOLLOWING CLASS BIT        ERRORS     66
                                        *                DEFINITIONS MAY ALSO REQUIRE CHANGES TO --              ERRORS     67
                                        *                1.  WVV = VARIABLE MAP.                                 ERRORS     68
                                        *                2.  ERRLIT SECTION (SEE *DICT* ET. SEQ.)                ERRORS     69
                                        ****      2.     CLASS - CLASS OF *VARIABLES* IS DEFINED AS FOLLOWS --   ERRORS     70
                                                                                                                 ERRORS     71
                                                                                                                 ERRORS     72
                                                                                                                 ERRORS     73
                                         DEF      CLASS  DEFINED     IS ASSIGNED A VALUE.                        ERRORS     74
                                         FP       CLASS  DUMMY-ARG   IS A FORMAL PARAMETER,                      ERRORS     75
                                         ENT      CLASS  ENTRY-PT    IS AN ENTRY POINT,                          ERRORS     76
                                         EXT      CLASS  EXTERNAL    IS AN EXTERNAL.                             ERRORS     77
                                         ECS      CLASS  ECS/LCM     IS IN ECS/LCM (LEVEL 3)                     ERRORS     78
                                         ARY      CLASS  ARRAY       IS DIMENSIONED,                             ERRORS     79
                                         NLST     CLASS  NAMELIST    IS A NAMELIST GROUP NAME,                   ERRORS     80
                                         EQUIV    CLASS  EQUIV.      IS A NON-BASE MEMBER OF AN EQUIV CLASS,     ERRORS     81
                                         COMM     CLASS  COMMON      IS IN COMMON,                               ERRORS     82
                                         VAR      CLASS  VARIABLE    IS A VARIABLE.                              ERRORS     83
                                         NVAR     CLASS  NOT-VAR     IS NOT A VARIABLE.                          ERRORS     84
                                         RP       CLASS  RETURNS     IS A RETURNS PARAMETER.                     ERRORS     85
                                         EST      CLASS  EXT-STMT    APPEARS IN EXTERNAL STATEMENT               FCC1716X    8
                                        ****                                                                     ERRORS     86
                                  -2              ERRPL  N.CLASS-L.CLASS       NOT ENOUGH ROOM                   ERRORS     87
                                  15     L.CL     EQU    N.CLASS     LENGTH OF *VARIABLE* CLASS BITS             ERRORS     88
                                   2     N.CLASS  SET    P.ENT-P.CLASS     STARTING POSITION FOR CLASS2          ERRORS     89
                                                                                                                 ERRORS     90
                                                                                                                 ERRORS     91
                                        **** 3.   CLASS2 - THE FOLLOWING DEFINE THE CLASS OF A SPECIAL FUNCTION  ERRORS     92
                                        *                  SPECIAL = ONE OF THE BELOW.                           ERRORS     93
                                                                                                                 ERRORS     94
                                                                                                                 ERRORS     95
                                                                                                                 ERRORS     96
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     6
                                                                      SIZES 
  
                                         ENT=     CLASS  ENTRY PT.   IS AN ENTRY POINT.   (FAKE)                 ERRORS     97
                                         EXT=     CLASS  EXTERNAL.   IS AN EXTERNAL.      (FAKE)                 ERRORS     98
                                         FUN      CLASS  FUNCTION    IS A FUNCTION (SET IF INL,ASF,EXT)          ERRORS     99
                                         BEF      CLASS  B.E.F.      IS A BASIC EXTERNAL FUNCTION                ERRORS    100
                                         SUB      CLASS  SUBROUTINE  IS A SUBROUTINE.                            ERRORS    101
                                         ASF      CLASS  STAT-FUNC     IS A STATEMENT FUNCTION,                  ERRORS    102
                                         INLINE   CLASS  INTRINSIC     IS AN INTRINSIC FUNCTION.                 ERRORS    103
                                        ****                                                                     ERRORS    104
  
  
  
  
                                                  POPMAC CLASS                                                   ERRORS    106
                                        ****      ERRSKEL - ERROR MESSAGE SKELETON TABLE FORMAT.                 ERRORS    107
                                        *                                                                        ERRORS    108
                                        *         IN ORDER TO REDUCE CORE REQUIREMENTS AND STILL PRINT FULL-LINE ERRORS    109
                                        *         NARRATIVE DIAGNOSTICS BENEATH THE STATEMENT, ERROR MESSAGE     ERRORS    110
                                        *         TEXT IS KEPT IN A SKELETAL FORM, WHEREIN EACH WORD IS          ERRORS    111
                                        *         REPRESENTED BY AN ORDINAL INTO A DICTIONARY.                   ERRORS    112
                                                                                                                 ERRORS    113
                                                                                                                 ERRORS    114
                                   4     N.ER1ST  EQU    4                                                       ERRORS    115
                                   6     N.ERREST EQU    6                                                       ERRORS    116
                                  11     L.ERWORD EQU    9           LENGTH OF EACH ORDINAL BYTE                 ERRORS    117
                                         ERTYPE   DEFINE 19,5        ERROR TYPE INDICATOR                        ERRORS    118
                                         ERMORE   DEFINE L.ERTYPE    CONTINUATION FLAG, RELATIVE TO LO-BYTE      ERRORS    119
                                         ERXIT    DEFINE 0,18        EXIT ADDRESS                                ERRORS    120
                                        ****                                                                     ERRORS    121
                                  11     L=ERWORD EQU    L.ERWORD    REDUCE GARBAGE CONTENT OF REF MAP           ERRORS    122
                                   5     L=ERTYPE EQU    L.ERTYPE                                                ERRORS    123
                                  30     P=ERTYPE EQU    P.ERTYPE+L.ERTYPE                                       ERRORS    124
                                   5     L=ERMORE EQU    L.ERTYPE                                                ERRORS    125
                                  22     L=ERXIT  EQU    L.ERXIT                                                 ERRORS    126
                                                  NOREF  L=ERWORD,L=ERTYPE,P=ERTYPE,L=ERMORE,L=ERXIT             ERRORS    127
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     7
                                                                      ERFMT 
  
                                        **               THE N-WORD FORMAT IS --                                 ERRORS    129
                                        *                                                                        ERRORS    130
                                        **T  FIRST    9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,5/ERTYP,1/M,18/ERXIT       ERRORS    131
                                        **T  REST     9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,9/ERWD5,9/ERWD6,5/0,1/M    ERRORS    132
                                        *                                                                        ERRORS    133
                                        *         ERWD(I) = DICTIONARY ORDINAL OF THE TEXT WORD.  A ZERO ORDINAL ERRORS    134
                                        *                INDICATES THE END OF THE MESSAGE.                       ERRORS    135
                                        *         ERTYPE = ORDINAL OF THE ERROR-TYPE-SELECTION SWITCH.  DEFINED  ERRORS    136
                                        *                BY THE *ERRTYP* MACRO, AND LINKED TO BY *ERROR* MACRO.  ERRORS    137
                                        *                *LLN* WILL LIST THIS ERROR IF THE CELL POINTED TO BY    ERRORS    138
                                        *                THE INDICATED SWITCH IS NEGATIVE.                       ERRORS    139
                                        *         M    = IF SET, MORE SKELETON WORDS FOLLOW.                     ERRORS    140
                                        *                IF CLEAR, THE MESSAGE IS OVER.                          ERRORS    141
                                        *         ERXIT = IF POSITIVE, ADDRESS TO RETURN TO AFTER PROCESSING.    ERRORS    142
                                        *                 IF NEGATIVE, EXIT IS TO *PWE1*, AND (ERXIT)-4S15 IS    ERRORS    143
                                        *                THE SPECIAL FORMATTING ADDRESS.                         ERRORS    144
                                        *                                                                        ERRORS    145
                                        *         THE LAST CHARACTER OF EACH WORD IN THE DICTIONARY INDICATES    ERRORS    146
                                        *         HOW MANY CHARACTERS ARE IN THAT WORD.  THIS IS DONE SO *LLN*   ERRORS    147
                                        *         DOES NOT HAVE TO LOOP ON EACH CHARACTER.  IF THE WORD CONTAINS ERRORS    148
                                        *         TEN CHARACTERS, THE LAST CHARACTER IS UNMODIFIED.  IF THE WORD ERRORS    149
                                        *         CONTAINS FEWER THAN TEN CHARACTERS, THE LAST CHARACTER IS SET  ERRORS    150
                                        *         = DT.BIAS + (LENGTH OF WORD).  THE *ERROR* AND *ERRLIT* MACROS ERRORS    151
                                        *         CREATE SUCH WORDS, AND PUT THEM IN THE LITERAL POOL.  THUS,    ERRORS    152
                                        *         THE ASSEMBLER ELIMINATES DUPLICATES AUTOMATICALLY.             ERRORS    153
                                        *                                                                        ERRORS    154
                                        *         IF THE ERROR MESSAGE WORD IS .GT. 10 CHARACTERS THE DICTIONARY FEAT126A  103
                                        *         WORD WILL CONTAIN 9 CHARACTERS FOLLOWED BY A COLON AND THE     FEAT126A  104
                                        *         MESSAGE WORD WILL BE CONTINUED INTO THE NEXT DICTIONARY WORD.  FEAT126A  105
  
  
  
  
                                        **        ERROR - MACRO TO DEFINE ERROR MESSAGES.                        ERRORS    156
                                        *                                                                        ERRORS    157
                                        *         ALL ERROR MESSAGES MUST BE DEFINED BY THIS MACRO.              ERRORS    158
                                        *         TRANSLATES THE DIAGNOSTIC TEXT INTO THE FORM DISCUSSED ABOVE,  ERRORS    159
                                        *         WHILE GENERATING A DICTIONARY OF LITERALS.                     ERRORS    160
                                        *                                                                        ERRORS    161
                                        *                                                                        ERRORS    162
                                        * LOC     ERROR  TYPE,EXIT,(TEXT)                                        ERRORS    163
                                        *                                                                        ERRORS    164
                                        *         TYPE   =  ONE OR TWO CHARACTER ERROR-TYPE INDICATOR.           ERRORS    165
                                        *                1.  FIRST CHARACTER DESCRIBES THE SEVERITY OF THE       ERRORS    166
                                        *                    ERROR -- VALID CHARACTERS ARE DEFINED BY *ERRTYP*   ERRORS    167
                                        *                    MACRO, Q.V.                                         ERRORS    168
                                        *                2.  SECOND CHARACTER SELECTS SPECIAL FILL. FORMATTING   ERRORS    169
                                        *                    BY THE ERROR PROCESSOR.  SEE *LLN* FOR DETAILS.     ERRORS    170
                                        *                                                                        ERRORS    171
                                        *         EXIT   =  ADDRESS TO RETURN TO AFTER PRINTING THE DIAGNOSTIC.  ERRORS    172
                                        *                IF IT IS "*" (STAR, 46B DPC), THEN CONTROL RETURNS TO   ERRORS    173
                                        *                CALLER, AND ERROR MUST BE REFERENCED BY ANSI, FATAL,    ERRORS    174
                                        *                NOTE, OR WARN MACRO.                                    ERRORS    175
                                        *                OTHERWISE, IT IS SIMPLY THE ADDRESS TO RETURN TO AFTER  ERRORS    176
                                        *                PROCESSING THE ERROR.                                   ERRORS    177
                                        *                                                                        ERRORS    178
                                        *         TEXT   =  FROM ONE TO 16 WORDS OF TEXT.  WORDS ARE SEPARATED   ERRORS    179
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     8
                                                                      ERROR 
  
                                        *                BY BLANKS.  NO WORD MAY CONTAIN A NEGATION (^ 76B), OR  ERRORS    180
                                        *                SEMI-COLON (; 77B).  THE TENTH CHARACTER OF A WORD MAY  ERRORS    181
                                        *                NOT BE A CHARACTER WITH DPC .GE.65B NOR MAY IT BE A     FEAT126A  106
                                        *                COLON.                                                  FEAT126A  107
                                                                                                                 ERRORS    183
                                                                                                                 ERRORS    184
                                                  MACRO  ERROR,LOC,TYPE,EXIT,MSG                                 ERRORS    185
                                        *                                                                        ERRORS    186
                                        *                DETERMINE (A)  SPECIAL FORMATTING, AND (B) SEVERITY.    FEAT126C   78
                                        *                                                                        ERRORS    188
                                         A        MICRO  2,1,/TYPE/                                              ERRORS    189
                                         B        MICRO  1,1, TYPE                                               ERRORS    190
                                        *                                                                        ERRORS    191
                                        *                SET UP (LOC) CALLING STYLE, AND (X) EXIT ADDRESS.       ERRORS    192
                                        *                                                                        ERRORS    193
                                                  ENTRY  LOC                                                     ERRORS    194
                                        .3        IFC    EQ, EXIT *                                              ERRORS    195
                                         LOC      EQU    DT.NEXT                                                 ERRORS    196
                                         X        MICRO  1,, LLN"A"+4S15                                         ERRORS    197
                                        .3        ELSE                                                           ERRORS    198
                                         LOC      SB7    DT.NEXT                                                 ERRORS    199
                                                  EQ     LLN"A"                                                  ERRORS    200
                                         X        MICRO  1,, =X_EXIT                                             ERRORS    201
                                        .3        ENDIF                                                          ERRORS    202
                                        *                                                                        ERRORS    203
                                                  USE    FORMAT.                                                 ERRORS    204
                                         T        MICRO  1,,^_MSG_^                                              ERRORS    205
                                        *                                                                        ERRORS    206
                                        *                DUP THRU THE MESSAGE FOR EACH WORD.                     ERRORS    207
                                        *                                                                        ERRORS    208
                                         L        SET    0                                                       ERRORS    209
                                         U        MICRO  1,,                                                     FEAT126A  108
                                        .1        DUP    16                                                      ERRORS    210
                                         L        SET    L+1                                                     ERRORS    211
                                         .2       IFC    NE,^^"T"^                                               ERRORS    212
                                                  IFC    EQ,/"U"//,2                                             FEAT126A  109
                                         S        MICRO  1,, "T"                                                 ERRORS    213
                                                  SKIP   2                                                       FEAT126A  110
                                         S        MICRO  1,, "U"                                                 FEAT126A  111
                                         U        MICRO  1,,                                                     FEAT126A  112
                                                  ERRMIC S                                                       ERRORS    214
                                                  IFEQ   L,5,1                                                   ERRORS    216
                                                  VFD    L=ERTYPE/ERR."B",1/1,L=ERXIT/"X"                        ERRORS    217
                                                  IFEQ   L,11,1                                                  ERRORS    218
                                                  VFD    L=ERMORE/0,1/1                                          ERRORS    219
                                                  VFD    L=ERWORD/1-DICT+=10H"S""A"                              ERRORS    220
                                         .2       ELSE   1                                                       ERRORS    221
                                                  STOPDUP                                                        ERRORS    222
                                        .1        ENDD                                                           ERRORS    223
                                        .4        IFC    NE,^^"T"^                                               ERRORS    224
                                         4        ERR    LOC  -- TOO MANY WORDS IN TEXT -- TRUNCATED AFTER       ERRORS    225
                                        ,                            ("T")                                       ERRORS    226
                                        .4        ENDIF                                                          ERRORS    227
                                        *                                                                        ERRORS    228
                                        *                WRAP UP, AND BIND OFF THE SKELETON.                     ERRORS    229
                                        *                                                                        ERRORS    230
                                        .6        IFEQ   *,DT.NEXT                                               ERRORS    231
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE     9
                                                                      ERROR 
  
                                                  POS    P=ERTYPE                                                ERRORS    232
                                                  VFD    L=ERTYPE/ERR."B",1/0,L=ERXIT/"X"                        ERRORS    233
                                        .6        ELSE   1                                                       ERRORS    234
                                                  POS    0                                                       ERRORS    235
                                         DT.NEXT  SET    *                                                       ERRORS    236
                                                  USE    *                                                       ERRORS    237
                                                  ENDM                                                           ERRORS    239
                                                                                                                 ERRORS    240
                                                                                                                 ERRORS    241
                                         ERRMIC   MACRO  S                                                       ERRORS    242
                                         K        MICCNT S                                                       ERRORS    243
                                                  IFGT   K,10,5                                                  FEAT126A  113
                                         U        MICRO  10,, "S"                                                FEAT126A  114
                                         S        MICRO  1,9, "S"                                                FEAT126A  115
                                         A        MICRO  1,1,/:/                                                 FEAT126A  116
                                         K        SET    8                                                       FEAT126A  117
                                                  SKIP   3                                                       FEAT126A  118
                                                  IFLT   K,9,1                                                   ERRORS    244
                                         S        MICRO  1,9,$"S"        $                                       ERRORS    245
                                         A        MICRO  K,1,/!&'?<>@\^ /                                        ERRORS    246
                                         T        MICRO  K+2,,^"T"^                                              FEAT126A  119
                                         ERRMIC   ENDM                                                           ERRORS    247
                                                                                                                 ERRORS    248
                                                                                                                 ERRORS    249
                                  65     DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC            ERRORS    250
  
  
  
  
                                        **        ERRLIT - MACRO TO GENERATE A LITERAL OF PROPER FORM FOR ERROR  ERRORS    252
                                        *                MESSAGE PROCESSOR.                                      ERRORS    253
                                        *                                                                        ERRORS    254
                                        *         ERRLIT WORD                                                    ERRORS    255
                                                                                                                 ERRORS    256
                                                                                                                 ERRORS    257
                                                  MACRO  ERRLIT,LOC,WORD                                         ERRORS    258
                                         S        MICRO  1,,$WORD$                                               ERRORS    259
                                                  ERRMIC S                                                       ERRORS    260
                                         LOC      LIT    10H"S""A"                                               ERRORS    261
                                         ERRLIT   ENDM                                                           ERRORS    262
  
  
  
  
                                        **        ERRTYP - MACRO TO SETUP ERROR TYPES AND LISTING FLAGS          ERRORS    264
                                        *                                                                        ERRORS    265
                                        *                                                                        ERRORS    266
                                        * TYPE    ERRTYP LOP,(WORD)                                              ERRORS    267
                                        *                                                                        ERRORS    268
                                        *         *TYPE* =  TYPE OF THE ERROR AS USED IN *ERROR* MACRO CALLS.    ERRORS    269
                                        *                  ONLY THE FIRST LETTER WILL BE USED.                   ERRORS    270
                                        *         *LOP*  =  ADDRESS OF THE LIST OPTION SELECTION WORD.  IF SIGN  ERRORS    271
                                        *                  BIT OF THIS WORD IS SET, THEN THIS *TYPE* OF ERROR    ERRORS    272
                                        *                  IS SELECTED AND WILL BE PRINTED.                      ERRORS    273
                                        *         (WORD) = BANNER WORD PRINTED WITH ERROR OF THIS *TYPE*.        FEAT126A  120
                                                                                                                 ERRORS    276
                                                                                                                 ERRORS    277
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    10
                                                                      ERRTYP
  
                                                  MACRO  ERRTYP,T,L,W                                            ERRORS    278
                                         A        MICRO  1,9,$_W         $                                       ERRORS    279
                                         B        MICRO  1,1, T                                                  ERRORS    280
                                         C        MICRO  1,1,/"A" /                                              FEAT126A  121
                                         ERR."B"  VFD    24/4R"C" * ,18/=10H "A",18/LOP=L                        FEAT126A  122
                                         ERRTYP   RMT=   (ERR="B" CON 0)                                         ERRORS    282
                                         ERRTYP   ENDM                                                           ERRORS    283
                                                                                                                 ERRORS    284
                                                                                                                 ERRORS    285
                                                  USE    FORMAT.                                                 FEAT126A  123
                                1400 +   DT.NEXT  SET    *                                                       FEAT126A  124
                                                  USE    *                                                       FEAT126A  125
                                                  NOREF  DT.NEXT                                                 ERRORS    286
  
  
  
  
                                        **        DICT - THESE MUST BE THE FIRST LITERALS IN THE (1,0) OVERLAY.  ERRORS    288
                                        *         THESE LITERALS ARE USED BY ERROR PROCESSING ROUTINES.          ERRORS    289
                                                                                                                 ERRORS    290
                                         T        MICRO  1,,                                                     FEAT126A  126
                                                                                                                 ERRORS    291
                                 541 +   DICT     LIT    1H          BASE ADDRESS OF LITERALS                    ERRORS    292
                                                  NOREF  DICT                                                    ERRORS    293
                                                                                                                 ERRORS    294
                                         FILL.    ERRLIT FILL.       THESE ARE FOR MESSAGE FILL-INS              ERRORS    295
                                         FILL.2   ERRLIT FILL.2                                                  ERRORS    296
                                         FILL.3   ERRLIT FILL.3                                                  ERRORS    297
                                   3     L.FILL   EQU    FILL.3-FILL.+1 LENGTH OF FILL. REGION FOR LLNS.         ERRORS    298
                                         CLASS    ERRLIT DEFINED                                                 ERRORS    299
                                         CLASS    HERE               (NAMES OF SYMBOL CLASSES)                   ERRORS    300
                                                                                                                 ERRORS    301
                                         DO.DPC   ERRLIT DO          USED IN *DO* ERRORS AS FILL.                ERRORS    302
                                                  ERRLIT INITIAL                                                 ERRORS    303
                                                  ERRLIT LIMIT                                                   ERRORS    304
                                                  ERRLIT INCREMENT                                               ERRORS    305
                                                                                                                 ERRORS    306
                                         CON.DPC  ERRLIT PLUS        USED IN *CONSTANT REDUCTION AS FILL.        ERRORS    307
                                                  ERRLIT MINUS                                                   ERRORS    308
                                                  ERRLIT MULTIPLY                                                ERRORS    309
                                                  ERRLIT DIVIDE                                                  ERRORS    310
                                                                                                                 ERRORS    311
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    11
                                                                      ERROR 
  
                                        ****      DIAGNOSTICS SECTION OF COMPILER.                               ERRORS    345
                                        *         GENERAL DISCUSSION OF DIAGNOSTICS --                           ERRORS    346
                                        *                                                                        ERRORS    347
                                        *         ALL DIAGNOSTICS FOR SOURCE FORTRAN MUST BE CONTAINED WITHIN    ERRORS    348
                                        *         THIS SECTION OF THE COMPILER. WHEN A NEW DIAGNOSTIC IS TO BE   ERRORS    349
                                        *         ADDED THE FOLLOWING GENERAL RULES MUST BE ADHERED TO --        ERRORS    350
                                        *         1.  ALL DIAGNOSTICS MUST START WITH  E.XXX                     ERRORS    351
                                        *             WHERE XXX HAS SOME MEANING AS TO THE SECTION WHERE THE     ERRORS    352
                                        *             ERROR WAS DETECTED.                                        ERRORS    353
                                        *                                                                        ERRORS    354
                                        *         2.  ANY DIAGNOSTIC THAT USES A FILL. AND DOES NOT PRESET IT TO ERRORS    355
                                        *             INTERNAL FORM MUST HAVE EITHER *S* OR *V* AS THE SECOND    ERRORS    356
                                        *             CHARACTER SPECIFIED IN THE DIAGNOSTIC DEFINITION.          ERRORS    357
                                        *                *S* FORM = FILL. IS ALREADY IN 0L FORM.                 ERRORS    358
                                        *                *V* FORM = FILL. SHOULD BE FORMED FROM *SB* STARTING    ERRORS    359
                                        *                           AT B4.                                       ERRORS    360
                                        *                                                                        ERRORS    361
                                        *         3.  ALL *ANSI* DIAGNOSTICS SHOULD USE *ANSI* MACRO TO OUTPUT   ERRORS    362
                                        *             GIVEN ANSI ERROR. (THIS WILL IMPROVE THE SPEED OF          ERRORS    363
                                        *             COMPILATION WHEN *ANSI* ERRORS ARE NOT REQUESTED.)         ERRORS    364
                                        *                                                                        ERRORS    365
                                        *         4.  ALL COLON/SEMICOLON BREAKS IN DIAGNOSTICS MUST USE *--*    ERRORS    366
                                        *             TO REPRESENT BREAK.                                        ERRORS    367
                                        *                                                                        ERRORS    368
                                        *         5.  DIAGNOSTICS MAY BE ANY OF THE FOLLOWING TYPES              ERRORS    369
                                        *           (ONLY THE FIRST CHARACTER OF TYPE IS USED...)                ERRORS    370
                                        *                ANSI -  USAGE DOES NOT CONFORM TO AMERICAN NATIONAL     ERRORS    371
                                        *                            STANDARD FORTRAN, X3.9-1966.                ERRORS    372
                                        *                CONTINUATION -  THIS IS REALLY A CONTINUATION OF A      ERRORS    373
                                        *                            PREVIOUS ERROR.  IT WILL GET PRINTED OR NOT ERRORS    374
                                        *                            ACCORDING TO WHETHER THE LAST ERROR WAS     ERRORS    375
                                        *                            SELECTED.                                   ERRORS    376
                                        *                FATAL -  FATAL TO EXECUTION.  INHIBITS BINARY OUTPUT    ERRORS    380
                                        *                            UNLESS *DEBUG* IS SELECTED.                 ERRORS    381
                                        *                KILL -  FATAL TO COMPILATION.  RESUME WITH NEXT         ERRORS    382
                                        *                            PROGRAM-UNIT.                               ERRORS    383
                                        *                NOTE -  NO ACTUAL VIOLATION OF FORTRAN, BUT THE SOURCE  ERRORS    384
                                        *                            STATEMENT(S) DO NOT MAKE MUCH SENSE, OR     ERRORS    385
                                        *                            SEEM OTHERWISE DUBIOUS.                     ERRORS    386
                                        *                PRINT - FAKE TYPE. ALWAYS GETS PRINTED, BUT DOES        ERRORS    387
                                        *                            NOT AFFECT ANY ERROR COUNTS.                ERRORS    388
                                        *                WARNING -  A MORE SEVERE ERROR THAN A *NOTE*.  LANGUAGE ERRORS    389
                                        *                            HAS BEEN VIOLATED, EVEN, BUT WE COULD       ERRORS    390
                                        *                            FIGURE OUT WHAT HE (PROBABLY) MEANT.        ERRORS    391
                                        *                                                                        ERRORS    392
                                        *                                                                        ERRORS    393
                                        *                                                                        ERRORS    394
                                        *         -------  LIMITATIONS ON DIAGNOSTICS -------                    ERRORS    395
                                        *                                                                        ERRORS    396
                                        *                                                                        ERRORS    397
                                        *         1.  NO DIAGNOSTIC MAY EXCEED 16 WORDS, NOR MAY IT BE TOO LONG  ERRORS    398
                                        *             TO FIT ON ONE TTY LINE (UP TO 72 CHARACTERS MAY BE LISTED) FEAT126A  127
                                        *                                                                        ERRORS    401
                                        *         2.  NO DIAGNOSTIC MAY USE A COLON.                             FEAT126A  128
                                        *                                                                        ERRORS    403
                                        *         3.  NUMBER OF WORDS IN DICTIONARY MUST NOT EXCEED              ERRORS    404
                                        *             512 WORDS.                                                 ERRORS    405
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    12
                                                                      ERROR 
  
                                        *                                                                        ERRORS    406
                                        *         4.  NO DIAGNOSTIC MAY USE A SPECIAL CHARACTER > 65B DPC AS THE ERRORS    407
                                        *             LAST CHARACTER IN A 10H WORD.                              ERRORS    408
                                        *                                                                        ERRORS    409
                                        *         5.  SPECIAL CARE SHOULD BE USED WHEN A WORD IN THE ERROR       ERRORS    410
                                                  EXT    LBDO                                                    FCC1728X    4
                                        *             MESSAGE CONTAINS EITHER A *(* OR *)*.                      ERRORS    411
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    13
  
  
                                        *** ERRS         LISTED BY SECTION PRODUCING THE DIAGNOSTIC...           ERRORS    413
                                                                                                                 ERRORS    414
                                                                                                                 ERRORS    415
                                        **        ARGUMENT PROCESSOR.                                            ERRORS    416
                                                                                                                 ERRORS    417
                                                                                                                 ERRORS    418
          1400  041                      E.AC     ERROR  F,*,(ONLY "MAX.SARG" DUMMY ARGUMENTS ARE PERMITTED -- E ERRORS    419
                                        ,XCESS IGNORED)                                                          ERRORS    420
          1402  043                      E.AC3    ERROR  FS,*,(DUMMY ARGUMENT FILL. PREVIOUSLY DEFINED)          ERRORS    421
          1404  043                      E.AC4    ERROR  FS,*,(DUMMY ARGUMENT FILL. MUST BEGIN WITH LETTER)      ERRORS    422
             0  6170001406 +             E.AC5    ERROR  FS,PSP,(EXPECTED RETURNS FOUND FILL.)                   FEAT126A  129
             1  6170001407 +             E.AC6    ERROR  FV,PSP,(EXPECTED LEFT PAREN OR COMMA FOUND FILL.)       FEAT126A  130
          1411  066                      E.AC8    ERROR  W,*,(ILLEGAL CHARACTER AFTER RIGHT PAREN)               ERRORS    426
          1413  072                      E.AC9    ERROR  WS,*,(MISSPELLED KEYWORD -- FILL. RETURNS ASSUMED)      ERRORS    427
             2  6170001415 +             E.AP     ERROR  FV,PSN,(EXPECTED LEFT PAREN FOR AN ARGUMENT LIST , FOUN FEAT126A  131
                                        ,D FILL.)                                                                FEAT126A  132
             3  6170001417 +             E.AP1    ERROR  F,PSN,(SYNTAX ERROR IN ARGUMENT LIST)                   FEAT126A  133
          1421  024                      E.FA     ERROR  F,*,(FUNCTION MUST HAVE AT LEAST 1 DUMMY ARGUMENT)      FEAT126A  134
          1423  020                      E.FR     ERROR  F,*,(RETURNS LIST NOT PERMITTED IN FUNCTION STATEMENT)  FEAT126A  135
             4  6170001425 +             E.RA     ERROR  FV,PSN,(EXPECTED E.O.S. OR RETURNS PARAMETER FOUND FILL FEAT126A  136
                                        ,.)                                                                      FEAT126A  137
             5  6170001427 +             E.RA1    ERROR  FV,PSN,(NAME FILL. NOT IN RETURNS LIST)                 FEAT126A  138
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    14
                                                                      ASF 
  
                                        **        ASF PROCESSOR                                                  ERRORS    437
                                                                                                                 ERRORS    438
                                                                                                                 ERRORS    439
             6  6170001431 +             E.AF3    ERROR  FS,PSP,(STATEMENT FUNCTION FILL. -- MISPLACED EQUAL SIG ERRORS    443
                                        ,N)                                                                      ERRORS    444
             7  6170001433 +             E.AF4    ERROR  NS,PSP,(STATEMENT FUNCTION FILL. HAS NULL DEFINITION -- ERRORS    445
                                        , IGNORED)                                                               ERRORS    446
            10  6170001435 +             E.AF5    ERROR  FS,PAR.EOS,(STATEMENT FUNCTION FILL. REFERENCE -- RIGHT FEAT126A  139
                                        , PAREN MISSING)                                                         FEAT126A  140
            11  6170001437 +             E.AF6    ERROR  FS,AFDEX,(RECURSIVE DEFINITION OF STATEMENT FUNCTION FI ERRORS    449
                                        ,LL.)                                                                    ERRORS    450
          1441  052                      E.AF7    ERROR  NS,*,(ARGUMENT FILL.2 IS NOT USED IN STATEMENT FUNCTION FEAT126A  141
                                        , FILL.)                                                                 FEAT126A  142
          1443  043                      E.AF9    ERROR  FS,*,(DUMMY ARGUMENT FILL.2 CAN OCCUR ONLY ONCE IN FILL ERRORS    453
                                        ,. DEFINITION)                                                           ERRORS    454
          1445  123                      E.AF10   ERROR  FS,*,(REFERENCE TO STATEMENT FUNCTION FILL. HAS A NULL  ERRORS    455
                                        ,PARAMETER)                                                              ERRORS    456
            12  6170001447 +             E.AF11   ERROR  FS,PSN,(UNMATCHED PARAMETER COUNT TO STATEMENT FUNCTION ERRORS    457
                                        , FILL.)                                                                 ERRORS    458
            13  6170001451 +             E.AF15   ERROR  FV,PSP,(STATEMENT FUNCTION DUMMY PARAMETER FILL. NOT SI FEAT126A  143
                                        ,MPLE VARIABLE)                                                          FEAT126A  144
          1453  141                      E.AF16   ERROR  WS,*,(PREVIOUS DEFINITION OF STATEMENT FUNCTION FILL. I FCC0521     4
                                        ,S OVERRIDDEN)                                                           FCC0521     5
            14  6170001455 +            E.AF17    ERROR  FS,PSP,(USAGE CONFLICT -- FILL. CANNOT BE STATEMENT FUN FCC1247     8
                                        ,CTION)                                                                  FCC1247     9
                                                                                                                 ERRORS    469
  
  
  
  
                                        **        INTRINSIC FUNCTION PROCESSING.                                 FCC1134    11
                                                                                                                 FCC1134    12
                                                                                                                 FCC1134    13
          1457  147                      E.IN1    ERROR  F,*,(LOCF ARGUMENT MUST NOT BE CONSTANT OR EXPRESSION)  FCC1134    14
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    15
                                                                      ANSI
  
                                        **        ASSORTED ANSI ERRORS                                           ERRORS    471
                                                                                                                 ERRORS    472
                                                                                                                 ERRORS    473
          1461  152                      E.ADP    ERROR  A,*,(ANSI REQUIRES THE WORD PRECISION)                  ERRORS    474
          1463  157                      E.AES    ERROR  A,*,(CONTROL FLOW INTO END LINE NOT PERMITTED)          ERRORS    475
          1465  111                      E.ANS    ERROR  A,*,(STATEMENT IS NOT DEFINED IN ANSI)                  ERRORS    476
            15  6170001467 +             E.ANS1   ERROR  A,PSP,(STATEMENT IS NOT DEFINED IN ANSI)                ERRORS    477
          1471  164                      E.ANS2   ERROR  AS,*,(7 CHARACTER SYMBOL FILL. IS NON- ANSI)            FCC1259     4
            16  6170001473 +             E.ART    ERROR  A,E.ART1,(RETURN IN MAIN PROGRAM)                       ERRORS    478
            17  6170001474 +             E.ART1   ERROR  N,PSN,(RETURN ACTS AS END)                              ERRORS    479
          1475  174                      E.ANS3   ERROR  AS,*,(NON-ANSI TYPE COMBINATIONS WITH FILL. OPERATOR)   FCC1638X    6
          1477  174                      E.ANS4   ERROR  AS,*,(NON-ANSI FORM OF BLOCK DATA STATEMENT)            FCC1998     8
  
  
  
  
                                        **        ASSIGN STATEMENT.                                              ERRORS    481
                                                                                                                 ERRORS    482
                                                                                                                 ERRORS    483
          1501  204                      E.AS2    ERROR  WS,*,(*TO* ASSUMED FOR FILL.)                           FCC1274     5
          1502  016                      E.AS3    ERROR  WS,*,(VARIABLE FILL. NOT INTEGER)                       ERRORS    485
            20  6170001503 +             E.AS4    ERROR  FV,PSN,(STATEMENT LABEL FILL. MUST BE NUMERIC)          ERRORS    486
          1505  065                      E.AS5    ERROR  W,*,(COMMA AFTER STATEMENT LABEL IGNORED)               ERRORS    487
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    16
                                                                      ARITH 
  
                                        **        ARITH PROCESSOR.                                               ERRORS    489
                                                                                                                 ERRORS    490
                                                                                                                 ERRORS    491
          1507  210                      E.AT1    ERROR  F,*,(LOGICAL AND NON- LOGICAL OPERANDS MAY NOT BE MIXED ERRORS    494
                                        ,)                                                                       ERRORS    495
          1511  210                      E.AT1A   ERROR  F,*,(LOGICAL OPERAND USED WITH NON- LOGICAL OPERATOR)   ERRORS    496
          1513  066                      E.AT2    ERROR  FS,*,(ILLEGAL USE OF OPERATOR / OPERAND -- FILL. FILL.2 ERRORS    497
                                        ,)                                                                       ERRORS    498
          1515  220                      E.AT3    ERROR  N,*,(HOLLERITH CONSTANT IN EXPRESSION EXCEEDS 10 CHARAC ERRORS    499
                                        ,TERS)                                                                   ERRORS    500
          1517  066                      E.AT5    ERROR  F,*,(ILLEGAL FORM INVOLVING THE USE OF A COMMA)         ERRORS    501
          1521  066                      E.AT6    ERROR  F,*,(ILLEGAL USE OF ASSIGNMENT OPERATOR)                FCC0498     5
          1523  226                      E.AT7    ERROR  A,*,(MASK EXPRESSION NON- ANSI)                         FCC0498     6
          1524  220                      E.AT8    ERROR  A,*,(HOLLERITH CONSTANT IN EXPRESSION NON- ANSI)        FCC0498     7
          1526  227                      E.AT9    ERROR  A,*,(MULTIPLE ASSIGNMENT IS NON- ANSI)                  FCC0498     8
          1530  002                      E.AT10   ERROR  FS,*,(FILL. ILLEGAL FIRST ELEMENT OF EXPRESSION)        FCC0787    13
          1532  232                      E.AT11   ERROR  W,*,(ASF MODELESS EXPRESSION ASSIGNED TO LOGICAL FUNCTI FCC1294     5
                                        ,ON)                                                                     FCC1294     6
          1534  232                      E.AT12   ERROR  F,*,(ASF EXPRESSION TYPE CONFLICTS WITH FUNCTION TYPE)  FCC1294     7
          1536  236                      E.AT13   ERROR  AS,*,(REDEFINITION OF PARAMETER FILL. USED AS DIMENSION FCC1901    12
                                        , INDICATOR IS NON-ANSI)                                                 FCC1901    13
  
  
  
  
                                        **        CALL STATEMENTS.                                               ERRORS    503
                                                                                                                 ERRORS    504
                                                                                                                 ERRORS    505
            21  6170001541 +             E.CL     ERROR  F,PSN,(CALL STATEMENT MISSING ROUTINE NAME)             ERRORS    506
            22  6170001543 +             E.CL1    ERROR  FV,PSN,(EXPECTED LEFT PAREN OR COMMA AFTER ROUTINE NAME FEAT126A  145
                                        , FOUND FILL.)                                                           FEAT126A  146
          1545  020                      E.CL2    ERROR  FS,*,(RETURNS PARAMETER FILL. MUST BE NUMERIC LABEL)    ERRORS    509
          1547  244                      E.CL3    ERROR  A,*,(SAME NAME USED AS FUNCTION AND SUBROUTINE)         FCC2307     6
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    17
                                                                      COMMON
  
                                        **        COMMON PROCESSOR.                                              ERRORS    511
                                                                                                                 ERRORS    512
                                                                                                                 ERRORS    513
            23  6170001551 +             E.CM     ERROR  F,PSP,(SYNTAX ERROR IN BLOCK NAME)                      FEAT126A  147
          1553  207                      E.CMA    ERROR  A,*,(NUMERIC BLOCK NAME NOT PERMITTED)                  ERRORS    515
            24  6170001555 +             E.CM1    ERROR  F,PSP,(PREMATURE E.O.S. -- EXPECTED BLOCK NAME)         ERRORS    516
            25  6170001557 +             E.CM2    ERROR  F,PSP,(ONLY "MAX.BLK" COMMON BLOCK ARE PERMITTED)       FCC0583     9
            26  6170001561 +             E.CM3    ERROR  FV,PSP,(EXPECTED COMMA OR SLASH FOUND FILL.)            FEAT126A  148
            27  6170001563 +             E.CM4    ERROR  W,PSP,(COMMON STATEMENT WITH NO LIST IS IGNORED)        FEAT126A  149
            30  6170001565 +             E.CM5    ERROR  F,PSP,(ILLEGAL BLOCK NAME IN COMMON STATEMENT)          ERRORS    523
            31  6170001567 +             E.CM6    ERROR  F,PSP,(PREMATURE E.O.S. -- EXPECTED SYMBOL)             ERRORS    525
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    18
                                                                      CONST 
  
                                        **        CONSTANT REDUCTION.                                            ERRORS    527
                                                                                                                 ERRORS    528
                                                                                                                 ERRORS    529
          1571  150                      E.CR1    ERROR  N,*,(CONSTANT TERM OF ZERO -- IGNORED)                  ERRORS    530
          1573  150                      E.CR2    ERROR  N,*,(CONSTANT MULTIPLY BY ZERO -- RESULTS SET TO ZERO)  ERRORS    531
          1575  150                      E.CR3    ERROR  F,*,(CONSTANT DIVIDE BY ZERO -- RESULTS SET TO INFINITE ERRORS    532
                                        ,)                                                                       ERRORS    533
          1577  205                      E.CR3A   ERROR  N,*,(INTEGER DIVIDE BY ZERO -- RESULTS SET TO ZERO)     ERRORS    534
          1601  040                      E.CR4    ERROR  N,*,(DIVIDE INTO ZERO -- RESULTS SET TO ZERO)           ERRORS    535
          1603  037                      E.CR5    ERROR  N,*,(MULTIPLY BY 1 -- IGNORED)                          FEAT126A  150
          1605  040                      E.CR6    ERROR  N,*,(DIVIDE BY 1 -- IGNORED)                            FEAT126A  151
          1607  254                      E.CR7    ERROR  FS,*,(RESULTS OF CONSTANT USED WITH FILL. OPERATOR INFI FCC1295     4
                                        ,NITE OR INDEFINITE)                                                     FCC1295     5
          1611  205                      E.CR8    ERROR  F,*,(INTEGER GREATER THAN 2**48-1 IN MULTIPLY OR DIVIDE FCC0539    10
                                        ,)                                                                       FCC0539    11
          1613  205                      E.CR9    ERROR  F,*,(INTEGER GREATER THAN 2**48-1 IN REAL EXPRESSION)   FCC0539    12
          1615  205                      E.CR10   ERROR  F,*,(INTEGER OPERATION RESULTS IN OVERFLOW)             FCC0539    13
  
  
  
  
                                        **        CONTINUE STATEMENT PROCESSOR.                                  ERRORS    541
                                                                                                                 ERRORS    542
                                                                                                                 ERRORS    543
            32  6170001617 +             E.CT     ERROR  N,PSN,(CONTINUE WITH NO STATEMENT LABEL)                F66FCC    177
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    19
                                                                      DATA
  
                                        **        DATA   STATEMENT PROCESSOR.                                    ERRORS    546
                                                                                                                 ERRORS    547
                                                                                                                 ERRORS    548
          1621  012                      E.DAA    ERROR  AS,*,(ARRAY FILL. MUST HAVE IMPLIED LOOP)               ERRORS    549
          1623  002                      E.DALV   ERROR  FS,*,(FILL. IS NOT IN LABELED COMMON)                   FCC1524X    6
            33  6170001625 +             E.DACV   ERROR  N,DATA2,(EXCESS CONSTANTS IGNORED)                      ERRORS    551
            34  6170001626 +             E.DAVC   ERROR  WS,DATA2,(TOO FEW CONSTANTS -- VARIABLES FROM FILL. MAY FCC0537     8
                                        , NOT BE INITIALIZED)                                                    FCC0537     9
          1631  063                      E.DAR    ERROR  A,*,(PAREN REPEAT LIST IS NOT PERMITTED)                ERRORS    554
            35  6170001633 +             E.DAUC   ERROR  FS,DAT.Z,(DATA INTO FILL. IS ILLEGAL)                   ERRORS    555
            36  6170001635 +             E.DCE    ERROR  F,DAT.Z,(ILLEGAL REPEAT CONSTANT)                       ERRORS    556
          1636  220                      E.DHC    ERROR  A,*,(HOLLERITH CONSTANT LONGER THAN 1 WORD)             FEAT126A  153
            37  6170001640 +             E.DIL    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA CONSTANT LIST)            ERRORS    558
            40  6170001642 +             E.DIL1   ERROR  F,DAT.Z,(ILLEGAL CONSTANT FOLLOWING + OR -)             ERRORS    559
            41  6170001644 +             E.DIL2   ERROR  F,DAT.Z,(NESTING OF REPEAT COUNT IN DATA CONSTANT LIST  FEAT126A  154
                                        ,IS ILLEGAL)                                                             FEAT126A  155
            42  6170001646 +             E.DIL3   ERROR  F,DAT.Z,(ILLEGAL SEPARATOR FOLLOWING DATA CONSTANT)     ERRORS    562
            43  6170001650 +             E.DMT    ERROR  W,PSP,(NULL DATA STATEMENT IS IGNORED)                  ERRORS    563
          1652  310                      E.DNA    ERROR  A,*,(THIS FORM OF DATA STATEMENT NOT PERMITTED)         FEAT126A  156
            44  6170001654 +             E.DNA2   ERROR  A,PSP.C,(NON- ANSI SYNTAX IN THIS DATA STATEMENT)       FEAT126A  157
            45  6170001656 +             E.DSE    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA STATEMENT)                ERRORS    566
          1660  002                      E.DTC    ERROR  WS,*,(FILL. CONSTANT TOO LONG -- TRUNCATED)             FEAT126A  158
            46  6170001662 +             E.DVL1   ERROR  FS,DAT.Z,(ILLEGAL SEPARATOR AFTER FILL.)                ERRORS    568
            47  6170001663 +             E.DVL2   ERROR  F,DAT.Z,(SYNTAX ERROR IN IMPLIED DO NESTING)            FEAT126A  159
            50  6170001665 +             E.DVL21  ERROR  F,E.DVL29,(IMPLIED DO INDEX MUST BE FOLLOWED BY EQUAL)  ERRORS    570
            51  6170001667 +             E.DVL22  ERROR  F,E.DVL29,(IMPLIED DO LOWER LIMIT MUST BE NUMERIC)      ERRORS    571
            52  6170001671 +             E.DVL23  ERROR  F,E.DVL29,(NO COMMA AFTER LOWER LIMIT)                  ERRORS    572
            53  6170001673 +             E.DVL24  ERROR  F,E.DVL29,(IMPLIED DO UPPER LIMIT MUST BE NUMERIC)      ERRORS    573
            54  6170001675 +             E.DVL25  ERROR  F,E.DVL29,(IMPLIED DO INCREMENT MUST BE NUMERIC)        ERRORS    574
            55  6170001677 +             E.DVL26  ERROR  F,E.DVL29,(MISSING RIGHT PAREN AFTER IMPLIED DO)        ERRORS    575
            56  6170001701 +             E.DVL29  ERROR  CS,DAT.Z,(SYNTAX ERROR IN IMPLIED DO ON ARRAY FILL.)    FEAT126A  160
            57  6170001703 +             E.DVL3   ERROR  F,DAT.Z,(DATA VARIABLE LIST SYNTAX ERROR)               ERRORS    577
            60  6170001705 +             E.DVL4   ERROR  F,DAT.Z,(NO MATCH OF LOOP INDEX AND SUBSCRIPT)          ERRORS    578
            61  6170001707 +             E.DVL5   ERROR  FS,DAT.Z,(ARRAY FILL. HAS A VARIABLE SUBSCRIPT WITH NO  ERRORS    579
                                        ,IMPLIED LOOP)                                                           ERRORS    580
            62  6170001711 +             E.DVL6   ERROR  FS,DAT.Z,(FILL. SUBSCRIPT LESS THAN 1 OR EXCEEDS DIMENS FEAT126A  161
                                        ,ION)                                                                    FEAT126A  162
            63  6170001713 +             E.DVL7   ERROR  WS,DAT.Z,(VARIABLE FILL. REFERENCED AS ARRAY)           ERRORS    583
            64  6170001715 +             E.DVL8   ERROR  F,DAT.Z,(DATA SUBSCRIPT LIST SYNTAX ERROR)              ERRORS    584
            65  6170001717 +             E.DVL9   ERROR  FS,DAT.Z,(FILL. SUBSCRIPT EXCEEDS 2**17-1)              ERRORS    585
          1720  203                      E.DVL10  ERROR  AS,*,(DATA VARIABLE FILL. DOES NOT MATCH CONSTANT TYPE) FCC1563X    8
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    20
                                                                      DEC 
  
                                        **        CONVERSION OF CONSTANT SECTION.                                ERRORS    587
                                                                                                                 ERRORS    588
                                                                                                                 ERRORS    589
          1722  150                      E.DC     ERROR  F,*,(CONSTANT CANNOT BE CONVERTED)                      FEAT126A  163
          1723  327                      E.DC1    ERROR  A,*,(OCTAL DATA TYPE NOT DEFINED IN ANSI)               ERRORS    591
          1725  330                      E.DC2    ERROR  FV,*,(EXPONENT EXCEEDS 512)                             FEAT126A  164
          1726  066                      E.DC3    ERROR  FV,*,(ILLEGAL FORM OF EXPONENT FILL.)                   ERRORS    593
          1730  150                      E.DC6    ERROR  N,*,(CONSTANT MISSING EXPONENT FIELD -- ZERO ASSUMED)   ERRORS    594
          1732  150                      E.DC8    ERROR  W,*,(CONSTANT TOO LONG , EXCESS DIGITS TRUNCATED)       FCC0400     5
          1734  166                      E.DC9    ERROR  W,*,(NON- OCTAL DIGIT IN OCTAL CONSTANT -- IGNORED)     ERRORS    596
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    21
                                                                      DIM 
  
                                        **        DIMENSION PROCESSOR.                                           ERRORS    603
                                                                                                                 ERRORS    604
                                                                                                                 ERRORS    605
            66  6170001736 +             E.DM     ERROR  F,E.DM0,(SYNTAX ERROR IN DIMENSION STATEMENT)           FEAT126A  165
            67  56140                    E.DM0    SA1    B4                                                      ERRORS    607
                     0301000000 X                 ZR     X1,=XPSP    IF *EOS*                                    ERRORS    608
            70  0400000000 X                      EQ     =XDIR8      ATTEMPT TO LOOK FOR MORE                    ERRORS    609
            71  6170001740 +             E.DM1    ERROR  FS,DIR8,(ARRAY FILL. DIMENSION INDICATOR NOT INTEGER)   FEAT126A  166
            72  67441                    E.DM2A   SB4    B4-B1                                                   ERRORS    611
            73  6170001742 +             E.DM2    ERROR  FS,DIR8,(ARRAY FILL. NULL OR ZERO DIMENSION INDICATOR)  ERRORS    612
            74  6170001744 +             E.DM3    ERROR  FS,DIR8,(VARIABLE DIMENSION ARRAY FILL. MUST BE DUMMY A FEAT126A  167
                                        ,RGUMENT)                                                                ERRORS    614
          1746  016                      E.DM4    ERROR  FS,*,(VARIABLE DIMENSION INDICATOR FILL. MUST BE DUMMY  ERRORS    615
                                        ,ARGUMENT)                                                               ERRORS    616
            75  67441                    E.DM5    SB4    B4-B1                                                   ERRORS    617
            76  6170001750 +             E.DM5A   ERROR  WS,DIRX,(VARIABLE FILL. HAS NO DIMENSION INDICATOR -- I ERRORS    618
                                        ,GNORED)                                                                 ERRORS    619
          1752  012                      E.DM6    ERROR  FS,*,(ARRAY FILL. EXCEEDS "MAX.DIM" DIMENSIONS)         FEAT126A  168
            77  6170001754 +             E.DM7    ERROR  FS,DIR8,(ARRAY FILL. DIMENSION INDICATOR FILL.2 EXCEEDS ERRORS    621
                                        , 2**17-1)                                                               ERRORS    622
           100  6170001756 +             E.DM8    ERROR  FS,DIR8,(ARRAY FILL. SIZE EXCEEDS 2**17-1)              FCC1410     5
          1760  240                      E.DM9    ERROR  WS,*,(DIMENSION OF FILL. IGNORED , PRIOR DIMENSION RETA FEAT126A  169
                                        ,INED)                                                                   FEAT126A  170
           101  6170001762 +             E.DM10   ERROR  F,PSP,(ARRAY DECLARATION FOR FILL. MISSING RIGHT PAREN) FEAT126A  171
          1764  101                      E.DM11   ERROR  FS,*,(SYNTAX ERROR ON DIMENSION INDICATOR FOR FILL.)    ERRORS    627
          1766  220                      E.DM12   ERROR  AS,*,(HOLLERITH DIMENSION FOR FILL.)                    ERRORS    628
          1767  343                      E.DM13   ERROR  FS,*,(NEGATIVE DIMENSION FOR FILL. -- SET TO 1)         ERRORS    629
          1771  016                      E.DM14   ERROR  FS,*,(VARIABLE DIMENSION INDICATOR FILL. IS NOT INTEGER ERRORS    630
                                        ,)                                                                       ERRORS    631
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    22
                                                                      DO
  
                                        **        DO PROCESSOR.                                                  ERRORS    633
                                                                                                                 ERRORS    634
                                                                                                                 ERRORS    635
          1773  101                      E.DO     ERROR  F,*,(SYNTAX OF DO MUST BE I=M1,M2,M3 OR M1,M2)          ERRORS    636
          1775  002                      E.DO1    ERROR  FS,*,(FILL. INDEX PARAMETER MUST BE INTEGER OR OCTAL)   ERRORS    637
          1777  033                      E.DO2    ERROR  W,*,(LIMIT LESS THAN INITIAL -- 1 TRIP LOOP)            FEAT126A  172
          2001  002                      E.DO3    ERROR  FS,*,(FILL. INDEX PARAMETER IS TOO LARGE)               ERRORS    639
          2003  002                      E.DO4    ERROR  F,*,(FILL. INDEX PARAMETER MUST BE SIMPLE VARIABLE)     ERRORS    640
          2005  002                      E.DO5    ERROR  FS,*,(FILL. INDEX PARAMETER MUST BE POSITIVE)           ERRORS    641
          2007  310                      E.DO8    ERROR  F,*,(THIS STATEMENT REDEFINES A DO CONTROL INDEX)       ERRORS    642
          2011  031                      E.DO9    ERROR  FS,*,(DO LOOP FILL. NOT TERMINATED BEFORE END OF PROGRA FEAT126A  173
                                        ,M)                                                                      ERRORS    644
          2013  313                      E.DO11   ERROR  F,*,(INDEX OF OUTER DO REDEFINED BY CURRENT DO)         FEAT126A  174
          2015  066                      E.DO12   ERROR  F,*,(ILLEGAL NESTING OF DO LOOPS)                       FEAT126A  175
          2017  031                      E.DO13   ERROR  N,*,(DO CONCLUSION NOT COMPILED -- DO DEFINITION ERROR) ERRORS    647
          2021  002                      E.DO16   ERROR  AS,*,(FILL. INDEX PARAMETER NOT SIMPLE INTEGER VARIABLE FEAT126A  176
                                        , OR CONSTANT)                                                           FEAT126A  177
          2023  031                      E.DO17   ERROR  F,*,(DO CONTROL INDEX MUST BE SIMPLE INTEGER VARIABLE)  FEAT126A  178
          2025  362                      E.DO18   ERROR  N,*,(TRIVIAL DO LOOP -- IGNORED)                        FEAT126A  179
          2027  310                      E.DO23   ERROR  W,*,(THIS STATEMENT REDEFINES A DO INDEX PARAMETER)     ERRORS    652
          2031  003                      E.DO24   ERROR  FS,*,(FILL.2 -- ILLEGAL TRANSFER TO INSIDE A CLOSED DO  ERRORS    653
                                        ,LOOP)                                                                   ERRORS    654
          2033  066                      E.DO25   ERROR  F,*,(ILLEGAL TRANSFER INTO RANGE OF DO)                 FCC1307     7
          2035  367                      E.DO25A  ERROR  N,*,(POSSIBLE ILLEGAL TRANSFER FROM OUTSIDE CURRENT DO) ERRORS    656
          2037  031                      E.DO27   ERROR  F,*,(DO STATEMENT SYNTAX -- EXPECTED CONTROL INDEX -- F ERRORS    657
                                        ,OUND E.O.S.)                                                            ERRORS    658
          2041  065                      E.DO28   ERROR  A,*,(COMMA NOT PERMITTED AFTER DO LABEL)                ERRORS    659
          2043  065                      E.DO29   ERROR  W,*,(COMMA AFTER DO LABEL IGNORED)                      ERRORS    660
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    23
                                                                      EQUIV 
  
                                        **        EQUIVALENCE PROCESSOR.                                         ERRORS    662
                                                                                                                 ERRORS    663
                                                                                                                 ERRORS    664
           102  6170002045 +             E.EQ     ERROR  F,PSP,(SYNTAX ERROR IN EQUIVALENCE STATEMENT)           FEAT126A  180
           103  6170002047 +             E.EQ1    ERROR  FV,EQS8,(MISSING LEFT PAREN AT FILL.)                   FEAT126A  181
           104  6170002051 +             E.EQ2    ERROR  FV,EQS8,(SUBSCRIPT FILL. EXCEEDS 2**17-1)               ERRORS    667
           105  6170002052 +             E.EQ3    ERROR  FV,EQS8,(MISSING COMMA AT FILL.)                        ERRORS    668
           106  6170002053 +             E.EQ4    ERROR  FV,EQS8,(MORE THAN "MAX.DIM" SUBSCRIPT)                 ERRORS    669
           107  6170002054 +             E.EQ5    ERROR  FV,EQS8,(SUBSCRIPT FILL. MUST BE NON- ZERO NUMERIC INTE ERRORS    670
                                        ,GER CONSTANT)                                                           ERRORS    671
          2056  362                      E.EQ6    ERROR  W,*,(TRIVIAL EQUIVALENCE GROUP WITH ONLY 1 MEMBER IS IG FEAT126A  182
                                        ,NORED)                                                                  FEAT126A  183
                                                                                                                 ERRORS    674
                                        **        CLOSE OF DECLARATIVES PROCESSING.                              ERRORS    675
                                                                                                                 ERRORS    676
          2060  376                      E.EQ11   ERROR  WS,*,(REDUNDANT EQUIVALENCE SPECIFICATION FOR FILL.)    FCC1332     5
          2062  144                      E.EQ12   ERROR  FS,*,(CONFLICT IN EQUIVALENCE SPECIFICATION FOR FILL.)  FCC1332     6
          2064  250                      E.EQ13   ERROR  FS,*,(NO DIMENSION FOUND FOR EQUIVALENCE VARIABLE FILL. FEAT126A  186
                                        ,)                                                                       FEAT126A  187
          2066  050                      E.EQ14   ERROR  FS,*,(EXCESS SUBSCRIPTS ON EQUIVALENCE VARIABLE FILL.)  FEAT126A  188
          2070  124                      E.EQ15   ERROR  WS,*,(MISSING SUBSCRIPTS SET TO 1 FOR EQUIVALENCE VARIA FEAT126A  189
                                        ,BLE FILL.)                                                              FEAT126A  190
          2072  002                      E.EQ16   ERROR  FS,*,(FILL. ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN)   FCC1573X    7
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    24
                                                                      EXTERNAL
  
                                        **        EXTERNAL PROCESSOR.                                            ERRORS    684
                                                                                                                 ERRORS    685
                                                                                                                 ERRORS    686
          2074  002                      E.EX1    ERROR  NS,*,(FILL. PREVIOUSLY DEFINED AS EXTERNAL)             FEAT126A  191
          2076  060                      E.EX2    ERROR  FS,*,(EXPECTED COMMA FOUND FILL.)                       FEAT126A  192
           110  6170002077 +             E.EX3    ERROR  WV,PSP,(PREMATURE E.O.S. -- EXPECTED VARIABLE AT FILL.) ERRORS    689
          2101  022                      E.EX4    ERROR  WS,*,(ENTRY FILL. MUST NOT BE DECLARED EXTERNAL -- IGNO FEAT126A  193
                                        ,RED)                                                                    FEAT126A  194
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    25
                                                                      FORMAT
  
                                        **        FORMAT PROCESSOR.                                              ERRORS    693
                                                                                                                 ERRORS    694
                                                                                                                 ERRORS    695
           111  6170002103 +             E.FS1    ERROR  W,FMT6A,(FORMAT MUST HAVE STATEMENT LABEL)              ERRORS    696
           112  6170002105 +             E.FS2    ERROR  F,PSN,(TERMINAL RIGHT PAREN MISSING)                    ERRORS    697
          2106  041                      E.FS3    ERROR  F,*,(ONLY 9 PAREN LEVELS ALLOWED)                       ERRORS    698
          2110  301                      E.FS4    ERROR  FS,*,(REPEAT COUNT IS NOT ALLOWED BEFORE THE FIELD DESC ERRORS    699
                                        ,RIPTOR FILL.)                                                           ERRORS    700
          2112  413                      E.FS5    ERROR  W,*,(T CODE RESETS COLUMN POINTER , OVERLAYING CURRENT  FEAT126A  195
                                        ,LINE)                                                                   FEAT126A  196
          2114  413                      E.FS5A   ERROR  A,*,(T CODE IS NULL OR ZERO , COLUMN POINTER RESET AT 1 FEAT126A  197
                                        ,)                                                                       FEAT126A  198
          2117  422                      E.FS6    ERROR  F,*,(SIGNED COUNT ALLOWED ONLY BEFORE P OR X CODE)      FEAT126A  199
          2121  425                      E.FS6A   ERROR  A,*,(S CODE IS SPECIFIED)                               ERRORS    706
          2122  427                      E.FS7    ERROR  AS,*,(SKIP COUNT FOR X CODE IS PRECEDED BY FILL.)       FCC0787    14
          2124  424                      E.FS7A   ERROR  W,*,(X CODE RESETS COLUMN POINTER , OVERLAYING CURRENT  FEAT126A  200
                                        ,LINE)                                                                   FEAT126A  201
          2126  424                      E.FS7B   ERROR  A,*,(X CODE PRECEDED BY NON- DIGIT -- 1 X ASSUMED)      FCC0787    15
          2130  424                      E.FS7C   ERROR  A,*,(X CODE PRECEDED BY ZERO -- X CODE IGNORED)         FCC0787    16
          2132  002                      E.FS8    ERROR  AS,*,(FILL. IS SPECIFIED AS CONVERSION CODE)            ERRORS    712
          2134  252                      E.FS8A   ERROR  F,*,(ZERO IS SPECIFIED AS REPEAT COUNT)                 ERRORS    713
          2136  332                      E.FS8B   ERROR  FS,*,(FIELD WIDTH OF CONVERSION CODE FILL. IS ZERO OR N FEAT126A  202
                                        ,OT SPECIFIED)                                                           FEAT126A  203
          2141  433                      E.FS8C   ERROR  AS,*,(MINIMUM DIGITS IS SPECIFIED FOR THE CONVERSION CO ERRORS    716
                                        ,DE FILL.)                                                               ERRORS    717
          2143  434                      E.FS8D   ERROR  AS,*,(DECIMAL POINT IS NOT SPECIFIED FOR THE CONVERSION ERRORS    718
                                        , CODE FILL.)                                                            ERRORS    719
          2145  330                      E.FS8E   ERROR  AS,*,(EXPONENT LENGTH IS SPECIFIED FOR THE CONVERSION C ERRORS    720
                                        ,ODE FILL.)                                                              ERRORS    721
          2147  002                      E.FS8F   ERROR  WS,*,(FILL. CONVERSION CODE FIELD WIDTH IS LESS THAN MI FEAT126A  204
                                        ,NIMUM REQUIRED)                                                         FEAT126A  205
          2151  116                      E.FS9    ERROR  A,*,(EQUAL SIGN = IS SPECIFIED FOR A DIGIT)             ERRORS    724
          2153  137                      E.FS10   ERROR  F,*,(COUNT FOR H CODE ZERO OR MISSING -- SCAN STOPPED)  FEAT126A  206
          2155  444                      E.FS11   ERROR  F,*,(RECORD LENGTH EXCEEDS 2**17-1 COLUMNS)             FEAT126A  207
          2157  444                      E.FS11A  ERROR  W,*,(RECORD LENGTH EXCEEDS 137 COLUMNS -- MAY EXCEED I/ ERRORS    727
                                        ,O DEVICE)                                                               ERRORS    728
          2161  452                      E.FS14   ERROR  FS,*,(UNKNOWN FORMAT CODE FILL. -- SCAN RESUMES AT NEXT ERRORS    729
                                        , SEPARATOR)                                                             ERRORS    730
          2163  067                      E.FS18   ERROR  FS,*,(CHARACTER FILL. FOUND AFTER TERMINAL RIGHT PAREN) FEAT126A  208
          2165  406                      E.FS18A  ERROR  F,*,(TERMINAL RIGHT PAREN MISSING)                      ERRORS    733
          2166  405                      E.FS23   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS DO STATEMENT ERRORS    734
                                        , LABEL)                                                                 ERRORS    735
          2170  405                      E.FS24   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS CONTROL STAT ERRORS    736
                                        ,EMENT LABEL)                                                            ERRORS    737
          2172  227                      E.FS26   ERROR  F,*,(MULTIPLE DEFINITION OF CURRENT FORMAT NUMBER)      FEAT126A  209
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    26
                                                                      GOTO
  
                                        **        GO TO   STATEMENT.                                             ERRORS    740
                                                                                                                 ERRORS    741
                                                                                                                 ERRORS    742
           113  6170002174 +             E.GO     ERROR  F,PSN,(SYNTAX ERROR IN GO TO STATEMENT)                 FEAT126A  210
           114  6170002176 +             E.GO1    ERROR  F,PSN,(OBJECT OF GO TO MISSING)                         ERRORS    744
          2200  457                      E.GO1A   ERROR  W,*,(OBJECT OF GO TO NOT INTEGER VARIABLE)              ERRORS    745
           115  6170002202 +             E.GO2    ERROR  N,CUS.RET,(NULL TRANSFER STATEMENT -- TRANSFER IGNORED) ERRORS    746
          2204  460                      E.GO2A   ERROR  N,*,(IF RESULTS IN A TRANSFER TO THE NEXT LINE)         FCC1636X    8
           116  6170002206 +             E.GO3    ERROR  FS,PSN,(EXPECTED LEFT PAREN -- FOUND FILL.)             ERRORS    749
          2210  065                      E.GO4    ERROR  A,*,(COMMA BEFORE VARIABLE NAME IN COMPUTED GO TO IS RE FEAT126A  213
                                        ,QUIRED)                                                                 FEAT126A  214
          2212  065                      E.GO5    ERROR  A,*,(COMMA AFTER VARIABLE NAME IN ASSIGNED GO TO IS REQ FEAT126A  215
                                        ,UIRED)                                                                  FEAT126A  216
          2214  111                      E.GO7    ERROR  W,*,(STATEMENT TRANSFERS TO ITSELF)                     ERRORS    754
          2215  111                      E.GO8    ERROR  N,*,(STATEMENT CAN TRANSFER TO ITSELF)                  ERRORS    755
          2217  461                      E.GO9    ERROR  A,*,(COMPUTED GO TO INDEX MUST BE SIMPLE VARIABLE)      ERRORS    756
          2221  461                      E.GO10   ERROR  F,*,(COMPUTED GO TO INDEX MUST NOT BE LOGICAL)          ERRORS    757
          2223  461                      E.GO11   ERROR  A,*,(COMPUTED GO TO INDEX MUST BE INTEGER)              ERRORS    758
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    27
                                                                      HOLLER
  
                                        **        CONVERSION OF HOLLERITH CONSTANTS.                             ERRORS    760
                                                                                                                 ERRORS    761
                                                                                                                 ERRORS    762
          2225  252                      E.HC1    ERROR  F,*,(ZERO LENGTH SPECIFIED ON HOLLERITH CONSTANT)       ERRORS    763
          2227  112                      E.HC2    ERROR  F,*,(E.O.S. BEFORE END OF HOLLERITH COUNT)              FEAT126A  217
          2231  406                      E.HC3    ERROR  FS,*,(TERMINAL DELIMITER FILL. MISSING)                 ERRORS    765
          2232  250                      E.HC4    ERROR  FS,*,(NO CHARACTERS FOUND IN FILL. DELIMITED HOLLERITH  ERRORS    766
                                        ,STRING)                                                                 ERRORS    767
          2234  166                      E.HC5    ERROR  A,*,(NON- ANSI HOLLERITH FORM)                          FCC0498    10
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    28
                                                                      IF
  
                                        **        IF PROCESSOR.                                                  ERRORS    769
                                                                                                                 ERRORS    770
                                                                                                                 ERRORS    771
           117  6170002235 +             E.IF     ERROR  F,PSN,(ILLEGAL IF STATEMENT -- OBJECT MISSING)          ERRORS    772
          2237  467                      E.IF1    ERROR  A,*,(2 BRANCH IF IS NON- ANSI)                          FCC0481     4
          2241  457                      E.IF2    ERROR  A,*,(OBJECT OF IF IS ILLEGAL DO TERMINATOR)             ERRORS    774
           120  6170002243 +             E.IF3    ERROR  FV,PSN,(ILLEGAL OBJECT OF IF -- TROUBLE STARTED AT FILL ERRORS    775
                                        ,.)                                                                      ERRORS    776
          2245  460                      E.IF4    ERROR  W,*,(IF RESULTS IN A SIMPLE TRANSFER)                   FCC1238     4
          2247  474                      E.IF5    ERROR  W,*,(LAST IF RESULTS IN A NULL TRANSFER TO THIS STATEME ERRORS    779
                                        ,NT)                                                                     ERRORS    780
           121  6170002251 +             E.IF6    ERROR  F,PSN,(ILLEGAL OBJECT OF LOGICAL IF)                    FEAT126A  219
          2253  335                      E.IF7    ERROR  F,*,(3 BRANCH IF NOT DEFINED FOR LOGICAL RESULTS)       ERRORS    782
          2255  475                      E.IF8    ERROR  A,*,(COMPLEX EXPRESSION IN AN IF STATEMENT)             ERRORS    783
           122  6170002257 +             E.IF9    ERROR  F,IFS11,(ARITHMETIC IF HAS STATEMENT AS OBJECT)         ERRORS    785
           123  6170002261 +             E.IF10   ERROR  F,PSN,(ONLY 1 LABEL IN IF STATEMENT)                    FEAT126A  220
           124  6170002263 +             E.IF11   ERROR  F,PSN,(LOGICAL IF MUST NOT BE OBJECT OF LOGICAL IF)     ERRORS    787
           125  6170002265 +             E.IF12   ERROR  F,PSN,(TOO MANY LABELS IN LOGICAL IF)                   ERRORS    788
           126  6170002267 +             E.IF13   ERROR  F,PSN,(MISSING LABEL IN ARITHMETIC IF)                  FCC1703X    5
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    29
                                                                      I/O 
  
                                        **        I/O PROCESSOR.                                                 ERRORS    790
                                                                                                                 ERRORS    791
                                                                                                                 ERRORS    792
           127  6170002271 +             E.IO     ERROR  FS,PSN,(UNIT DESIGNATOR FILL. NOT SIMPLE INTEGER VARIAB FEAT126A  221
                                        ,LE OR CONSTANT)                                                         FEAT126A  222
           130  6170002273 +             E.IO1    ERROR  F,PSN,(MISSING UNIT DESIGNATOR IN I/O STATEMENT)        ERRORS    795
          2275  503                      E.IO2    ERROR  W,*,(EXTRANEOUS COMMA IGNORED)                          ERRORS    796
           131  6170002276 +             E.IO3    ERROR  F,PSN,(UNIT DESIGNATOR EXCEEDS 2 DIGITS)                FEAT126A  223
          2300  504                      E.IO6    ERROR  WV,*,(EXTRA CHARACTERS FILL. AFTER FILE NAME IGNORED)   ERRORS    798
          2302  504                      E.IO62   ERROR  WS,*,(EXTRA CHARACTER FILL. AFTER FILE NAME IGNORED)    ERRORS    799
           132  6170002304 +             E.IO7    ERROR  F,PSN,(FORMAT DESIGNATOR MISSING)                       ERRORS    800
          2305  124                      E.IO8    ERROR  F,*,(MISSING RIGHT PAREN AFTER UNIT IS ASSUMED)         FCC0787    17
          2307  074                      E.IO9    ERROR  WV,*,(ASSUMED COMMA AFTER UNIT OR FORMAT -- FOUND FILL. ERRORS    802
                                        ,)                                                                       ERRORS    803
           133  6170002311 +             E.IO11   ERROR  F,PSN,(PREMATURE E.O.S. IN I/O SUBSCRIPT)               ERRORS    804
           134  6170002313 +             E.IO12   ERROR  F,PSN,(EXCESS LEFT PAREN IN I/O SUBSCRIPT)              ERRORS    805
           135  6170002315 +             E.IO13   ERROR  WV,LST,(TERMINAL CHARACTER FILL. CONVERTED TO RIGHT PAR FEAT126A  224
                                        ,EN)                                                                     FEAT126A  225
           136  6170002317 +             E.IO14   ERROR  F,PSN,(IMPLIED DO NOT TERMINATED)                       FCC0990     6
          2320  061                      E.IO19   ERROR  WV,*,(FOUND FILL. AFTER FORMAT -- ASSUMED RIGHT PAREN)  ERRORS    813
           137  6170002322 +             E.IO20   ERROR  F,LST,(MISSING RIGHT PAREN AFTER FORMAT IS ASSUMED)     ERRORS    814
          2324  002                      E.IO21   ERROR  WV,*,(FILL. IS NOT A LEGAL KEYWORD)                     ERRORS    815
           140  6170002326 +             E.IO25   ERROR  F,LST,(UNFORMATED I/O NOT ALLOWED IN THIS STATEMENT)    ERRORS    819
          2330  152                      E.IO26   ERROR  A,*,(ANSI REQUIRES AN I/O LIST)                         ERRORS    820
           141  6170002332 +             E.IO27   ERROR  F,PSN,(THIS STATEMENT REQUIRES AN I/O LIST)             ERRORS    821
          2334  077                      E.IO28   ERROR  A,*,(LIST DIRECTED I/O IS NON- ANSI)                    ERRORS    822
           142  6170002336 +             E.IO29   ERROR  F,PSN,(ZERO IS AN ILLEGAL UNIT NUMBER)                  ERRORS    823
                                                                                                                 ERRORS    824
           143  6170002340 +             E.IOB1   ERROR  F,BUFERR,(BUFFER DIRECTION INDICATOR MUST BE IN OR OUT) ERRORS    825
           144  6170002342 +             E.IOB2   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR MUST BE INTEGER C ERRORS    826
                                        ,ONSTANT OR VARIABLE)                                                    ERRORS    827
           145  6170002344 +             E.IOB3   ERROR  FV,BUFERR,(EXPECTED LEFT PAREN -- FOUND FILL.)          FCC0597     7
           146  6170002346 +             E.IOB4   ERROR  FV,BUFERR,(EXPECTED COMMA -- FOUND FILL.)               FCC0597     8
           147  6170002350 +             E.IOB5   ERROR  FV,BUFERR,(EXPECTED RIGHT PAREN -- FOUND FILL.)         FCC0597     9
           150  6170002352 +             E.IOB7   ERROR  F,BUFERR,(BUFFER I/O ADDRESS MUST BE VARIABLE)          ERRORS    835
           151  6170002354 +             E.IOB8   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR VALUE MUST BE ZER FCC0593     6
                                        ,O OR 1)                                                                 FCC0593     7
           152  6170002356 +             E.IOB9   ERROR  W,BLWA,(FWA AND LWA NOT IN SAME ARRAY , EQUIVALENCE CLA FCC0593     8
                                        ,SS , OR COMMON BLOCK)                                                   FCC0593     9
           153  6170002361 +             E.IOB10  ERROR  F,BUFERR,(BUFFER I/O LWA MUST BE GREATER THAN OR EQUAL  ERRORS    840
                                        ,TO FWA)                                                                 ERRORS    841
                                                                                                                 ERRORS    842
           154  6170002364 +             E.IOD1   ERROR  F,PSN,(EXCESS LEFT PAREN IN I/O LIST)                   ERRORS    843
           155  6170002366 +             E.IOD2   ERROR  F,PSN,(SYNTAX ERROR IN I/O IMPLIED DO)                  FEAT126A  226
           156  6170002370 +             E.IOD3   ERROR  F,PSN,(EXCESS RIGHT PAREN IN I/O LIST)                  ERRORS    845
           157  6170002372 +             E.IOD4   ERROR  FV,CPM,(EXPECTED COMMA -- FOUND FILL.)                  FCC1769X    7
                                                                                                                 ERRORS    846
          2374  151                      E.IOL1   ERROR  F,*,(EXPRESSION IN INPUT LIST IS ILLEGAL)               ERRORS    847
          2376  150                      E.IOL2   ERROR  F,*,(CONSTANT IN INPUT LIST IS ILLEGAL)                 ERRORS    848
          2400  267                      E.IOL3   ERROR  N,*,(IMPLIED LOOP IS REDUCED)                           ERRORS    849
          2401  217                      E.IOL4   ERROR  F,*,(/ NOT ALLOWED IN FORMATTED I/O OR UNFORMATED INPUT ERRORS    850
                                        , LIST)                                                                  ERRORS    851
           160  6170002403 +             E.IOL5   ERROR  F,LST5,(ONLY LIST DIRECTED OUTPUT STATEMENTS MAY END WI FEAT155B    5
                                        ,TH A COMMA)                                                             FEAT155B    6
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    30
                                                                      IOFMT 
  
                                        **        FORMAT REFERENCED IN I/O.                                      ERRORS    855
                                                                                                                 ERRORS    856
                                                                                                                 ERRORS    857
          2405  405                      E.IOF    ERROR  AS,*,(FORMAT INDICATOR FILL. MUST BE ARRAY)             ERRORS    858
          2407  405                      E.IOF1   ERROR  F,*,(FORMAT INDICATOR MUST NOT BE EXPRESSION)           ERRORS    859
           161  6170002411 +             E.ION    ERROR  W,LST5,(I/O LIST IGNORED WHEN USING NAMELIST)           ERRORS    860
          2413  013                      E.ION1   ERROR  A,*,(NAMELIST I/O IS NON- ANSI)                         ERRORS    861
  
  
  
  
                                        **        ENCODE / DECODE.                                               ERRORS    864
                                                                                                                 ERRORS    865
                                                                                                                 ERRORS    866
           162  6170002415 +             E.IOS1   ERROR  FV,PSP,(EXPECTED LEFT PAREN BEFORE COUNT -- FOUND FILL. ERRORS    867
                                        ,)                                                                       ERRORS    868
           163  6170002417 +             E.IOS2   ERROR  FV,PSP,(EXPECTED COMMA AFTER  COUNT -- FOUND FILL.)     ERRORS    869
           164  6170002421 +             E.IOS3   ERROR  FS,PSP,(FORMAT INDICATOR FILL. IS NAMELIST NAME)        ERRORS    870
           165  6170002423 +             E.IOS4   ERROR  FV,PSP,(EXPECTED COMMA AFTER FORMAT INDICATOR -- FOUND  ERRORS    871
                                        ,FILL.)                                                                  ERRORS    872
           166  6170002425 +             E.IOS5   ERROR  FV,PSP,(EXPECTED RIGHT PAREN AFTER STRING ADDRESS -- FO ERRORS    873
                                        ,UND FILL.)                                                              ERRORS    874
           167  6170002427 +             E.IOS6   ERROR  F,PSP,(PREMATURE E.O.S. IN ENCODE OR DECODE)            ERRORS    875
           170  6170002431 +             E.IOS7   ERROR  F,PSP,(STRING ADDRESS MUST BE ARRAY ELEMENT OR SIMPLE V ERRORS    876
                                        ,ARIABLE)                                                                ERRORS    877
           171  6170002433 +             E.IOS9   ERROR  F,PSP,(ILLEGAL CHARACTER COUNT)                         ERRORS    878
           172  6170002434 +             E.IOS10  ERROR  FV,PSP,(ILLEGAL FORMAT INDICATOR FILL.)                 ERRORS    879
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    31
                                                                      NAMLST
  
                                        **        NAMELIST PROCESSING.                                           ERRORS    881
                                                                                                                 ERRORS    882
                                                                                                                 ERRORS    883
           173  6170002435 +             E.LN     ERROR  F,PSP,(SYNTAX ERROR IN NAMELIST)                        ERRORS    884
           174  6170002436 +             E.LN1    ERROR  F,PSP,(MISSING SLASH ON GROUP NAME)                     ERRORS    885
           175  6170002440 +             E.LN2    ERROR  FV,PSP,(EXPECTED NAME -- FOUND FILL.)                   ERRORS    886
           176  6170002442 +             E.LN3    ERROR  FV,PSP,(GROUP NAME FILL. PREVIOUSLY DEFINED)            ERRORS    887
           177  6170002444 +             E.LN4    ERROR  F,PSP,(VARIABLE DIMENSION NOT PERMITTED IN NAMELIST)    ERRORS    888
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    32
                                                                      PARENS
  
                                        **        PARENTHESIS MIS-MATCH.                                         ERRORS    890
                                        *         FIRST 2 PROCESSED BY *TAB* WHEN TRANSLATING A STATEMENT        ERRORS    891
                                        *         NEXT 2 PROCESSED WHEN ENCOUNTERED BY PARSER.                   ERRORS    892
                                                                                                                 ERRORS    893
                                                                                                                 ERRORS    894
          2446  273                      E.LP1    ERROR  F,*,(TOO FEW RIGHT PAREN)                               ERRORS    895
          2447  273                      E.LP2    ERROR  F,*,(TOO FEW LEFT PAREN)                                ERRORS    896
          2450  273                      E.LP3    ERROR  FV,*,(TOO FEW RIGHT PAREN OR PREVIOUS SYNTAX ERROR -- S ERRORS    897
                                        ,CAN STOPPED AT FILL.)                                                   ERRORS    898
          2453  273                      E.LP4    ERROR  FV,*,(TOO FEW LEFT PAREN OR PREVIOUS SYNTAX ERROR -- SC ERRORS    899
                                        ,AN STOPPED AT FILL.)                                                    ERRORS    900
  
  
  
  
                                        **        LEVEL PROCESSING                                               ERRORS    902
                                                                                                                 ERRORS    903
                                                                                                                 ERRORS    904
           200  6170002456 +             E.LV1    ERROR  F,PSP,(INTEGER 1 , 2 OR 3 MUST FOLLOW LEVEL)            FEAT126A  228
           201  6170002460 +             E.LV2    ERROR  F,PSP,(COMMA MUST FOLLOW LEVEL NUMBER)                  ERRORS    906
           202  6170002462 +             E.LV3    ERROR  F,PSP,(MISSING VARIABLE OR ARRAY NAME IN LEVEL LIST)    ERRORS    907
           203  6170002464 +             E.LV4    ERROR  WS,LVL8,(MULTIPLY DEFINED LEVEL FOR NAME FILL. -- IGNOR ERRORS    908
                                        ,ED)                                                                     ERRORS    909
           204  6170002466 +             E.LV5    ERROR  F,PSP,(COMMA OR E.O.S. MUST FOLLOW LEVEL LIST NAME)     ERRORS    910
          2470  114                      E.LV6    ERROR  FS,*,(NAME FILL. IS LEVEL AND MUST BE COMMON OR DUMMY A ERRORS    911
                                        ,RGUMENT)                                                                ERRORS    912
          2473  534                      E.LV7    ERROR  FS,*,(LEVEL CONFLICT IN COMMON BLOCK FILL.)             ERRORS    913
          2475  110                      E.LV8    ERROR  NS,*,(NOT EVERY NAME IN COMMON BLOCK FILL. IS IN A LEVE FEAT126A  229
                                        ,L STATEMENT)                                                            FEAT126A  230
          2500  114                      E.LV9    ERROR  FS,*,(NAME FILL. IS IN LEVEL EQUIVALENCE GROUP AND MUST FEAT126A  231
                                        , BE COMMON)                                                             FEAT126A  232
          2503  114                      E.LV10   ERROR  FS,*,(NAME FILL. IS IN EQUIV. GROUP THAT HAS LEVEL CONF ERRORS    918
                                        ,LICT)                                                                   ERRORS    919
          2505  534                      E.LV11   ERROR  FS,*,(LEVEL 3 NAME FILL. MAY NOT OCCUR IN THIS STATEMEN ERRORS    920
                                        ,T)                                                                      ERRORS    921
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    33
  
  
                                        **        MASTER LOOP.                                                   ERRORS    923
                                                                                                                 ERRORS    924
                                                                                                                 ERRORS    925
           205  6170002507 +             E.FM     ERROR  F,CPM,(THIS IS NOT A FORTRAN STATEMENT)                 ERRORS    926
           206  6170002511 +             E.MA     ERROR  F,PSP,(STATEMENT FUNCTION DEFINITION MUST OCCUR BEFORE  ERRORS    927
                                        ,FIRST EXECUTABLE)                                                       ERRORS    928
           207  6170002513 +             E.MB     ERROR  F,CPM2,(EXECUTABLE STATEMENT ILLEGAL IN BLOCK DATA SUBP ERRORS    929
                                        ,ROGRAM)                                                                 ERRORS    930
           210  6170002515 +             E.MCA    ERROR  F,AFSX,(ONLY "ANS.CONT" CONTINUATION CARDS ARE PERMITTE FCC0844     8
                                        ,D)                                                                      FEAT126A  234
          2517  032                      E.MC1    ERROR  W,*,(INITIAL LINE IS CONTINUATION)                      FEAT126A  235
          2521  135                      E.MLNL   ERROR  F,*,(A C/-LIST DIRECTIVE CANNOT BE FOLLOWED BY A CONTIN FEAT126B   29
                                        ,UATION LINE)                                                            FEAT126B   30
                                                                                                                 ERRORS    933
           211  5010000003               E.MD     SA1    "SB.KEY"                                                ERRORS    934
                          43030                   MX0    4*CHAR      PUT 1ST 4 CHARS OF KEY IN MESSAGE           ERRORS    935
                               11601              BX6    X0*X1                                                   ERRORS    936
           212  5160000542 +                      SA6    FILL.                                                   ERRORS    937
                          6170002524 +            ERROR  FS,PSP,(FILL. STATEMENT MISPLACED)                      FEAT126AA  10
          2525  310                      E.MDO    ERROR  F,*,(THIS STATEMENT MAY NOT BE A DO TERMINAL)           FCC0743     8
           214  6170002527 +             E.ME     ERROR  P,END1B,(END LINE ABSENT)                               ERRORS    941
           215  6170002530 +             E.MH     ERROR  F,PSP,(HEADER CARD NOT FIRST STATEMENT -- IGNORED)      ERRORS    942
           216  6170002532 +             E.MI     ERROR  F,PSP,(IMPLICIT STATEMENT MUST OCCUR BEFORE DECLARATIVE FEAT126A  239
                                        ,S)                                                                      FEAT126A  240
           217  6170002534 +             E.MIJ    ERROR  W,PSP,(MULTIPLE IMPLICIT STATEMENTS NOT PERMITTED -- IG FCC1258     4
                                        ,NORED)                                                                  FCC1258     5
           220  6170002536 +             E.MN     ERROR  A,CKS65,(FILL. BLANK STATEMENTS WERE IGNORED)           ERRORS    945
           221  6170002540 +             E.M$     ERROR  A,CKS67,(MULTIPLE STATEMENT PER CARD NOT PERMITTED)     ERRORS    946
           222  6170002542 +             E.M$2    ERROR  P,END1C,(MULTIPLE STATEMENT IGNORED AFTER END)          ERRORS    947
           223  6170002544 +             E.M$3    ERROR  F,END93,(MULTIPLE STATEMENT IGNORED AFTER LOADER DIRECT FCC1390X    8
                                        ,IVE)                                                                    ERRORS    949
           224  6170002546 +             E.MK     ERROR  PS,CPM6,(MISSPELLED KEYWORD -- FILL. FILL.2 ASSUMED)    ERRORS    950
          2550  121                      E.ML     ERROR  W,*,(NULL STATEMENT WITH LABEL -- CONTINUE ASSUMED)     ERRORS    951
                                                                                                                 ERRORS    952
           225  6170002552 +             E.MO1    ERROR  F,CKS,(PROGRAM LENGTH EXCEEDS 2**17-1)                  FEAT126A  241
          2553  560                      E.MO2    ERROR  F,*,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RERUN) FCC0931     5
                                                  IFNE   .CMLOD,,1                                               ERRORS    955
                                         E.MO3    ERROR  P,*,(NO COMPILE TO CORE -- NOT ENOUGH CORE)             ERRORS    956
                                         TEST     IFNE   TEST                                                    ERRORS    957
                                         E.MO4    ERROR  P,*,(SCRATCH FILE SPILLS TO DISK)                       ERRORS    958
                                         E.MO5    ERROR  P,*,(REFERENCE FILE SPILLS TO DISK)                     ERRORS    959
                                         TEST     ENDIF                                                          ERRORS    960
                                                                                                                 ERRORS    961
           226  6170002555 +             E.MR1    ERROR  F,PSP,(PREMATURE E.O.S. OR MISSING RIGHT PAREN)         FEAT126C   79
           227  6170002557 +             E.MR2    ERROR  WV,PSP,(PREMATURE E.O.S. OR EXTRA TRAILING SEPARATOR FI ERRORS    964
                                        ,LL.)                                                                    ERRORS    965
           230  6170002561 +             E.MR3    ERROR  F,PSP,(PREMATURE E.O.S.)                                FEAT126C   80
          2562  020                      E.MRA    ERROR  FS,*,(RETURNS PARAMETER FILL. NOT ALLOWED IN THIS STATE ERRORS    967
                                        ,MENT)                                                                   ERRORS    968
          2564  111                      E.MS     ERROR  FS,*,(STATEMENT LABEL FILL. REFERENCED BUT NOT DEFINED) FEAT126A  244
           231  6170002566 +             E.MT     ERROR  P,END93,(TRIVIAL PROGRAM UNIT IGNORED)                  FCC1390X    9
                                                                                                                 ERRORS    971
          2567  250                      E.NLN    ERROR  W,*,(NO SEQUENCE NUMBER FOUND ON FOLLOWING STATEMENT -- FEAT126A  245
                                        , COMMENT ASSUMED)                                                       FEAT126A  246
                                                                                                                 ERRORS    974
           232  6170002571 +             E.NP     ERROR  W,CUSX,(NO PATH TO THIS STATEMENT)                      ERRORS    975
           233  6170002573 +             E.NP1    ERROR  W,PSN,(NO PATH TO THE ENTIRE RANGE OF DO)               ERRORS    976
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    34
  
  
                                                                                                                 ERRORS    977
           234  6170002575 +             E.OV     ERROR  W,PSP,(NULL LOADER DIRECTIVE IS IGNORED)                ERRORS    978
           235  6170002577 +             E.OV1    ERROR  F,PSP,(LOADER DIRECTIVE MUST BEGIN WITH LEFT PAREN)     ERRORS    979
                                         .CMLOD   IFNE   .CMLOD                                                  ERRORS    980
                                         E.OV2    ERROR  P,*,(NO COMPILE TO CORE -- LOADER DIRECTIVE)            ERRORS    981
                                         E.OV4    ERROR  P,*,(NO COMPILE TO CORE -- INTERMIXED COMPASS)          ERRORS    982
                                         .CMLOD   ENDIF                                                          ERRORS    983
                                                                                                                 ERRORS    984
           236  6170002601 +             E.OV3    ERROR  N,LCC66,(LOADER DIRECTIVE MUST BE CONTAINED ON 1 CARD)  FEAT126A  247
                                                                                                                 ERRORS    987
          2603  101                      E.PN1    ERROR  F,*,(SYNTAX ERROR IN PROGRAM UNIT NAME)                 FEAT155GA  11
          2605  124                      E.PN3    ERROR  N,*,(MISSING PROGRAM STATEMENT -- PROGRAM START. ASSUME ERRORS    989
                                        ,D)                                                                      ERRORS    990
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    35
                                                                      ENTRY 
  
                                        **        ENTRY PROCESSOR.                                               ERRORS    994
                                                                                                                 ERRORS    995
                                                                                                                 ERRORS    996
           237  6170002607 +             E.PT     ERROR  WS,PSN,(NAME FILL. PREVIOUSLY DEFINED -- ENTRY STATEMEN ERRORS    997
                                        ,T IGNORED)                                                              ERRORS    998
          2611  022                      E.PT2    ERROR  W,*,(ENTRY INSIDE DO LOOP IS IGNORED)                   ERRORS    999
           240  6170002613 +             E.PT3    ERROR  W,PSN,(MISSING NAME -- ENTRY STATEMENT IGNORED)         ERRORS   1000
           241  6170002615 +             E.PT1    ERROR  W,PSP,(ENTRY STATEMENT IGNORED IN MAIN PROGRAM)         ERRORS   1001
           242  6170002617 +             E.PT4    ERROR  W,PSN,(ILLEGAL NAME -- ENTRY STATEMENT IGNORED)         ERRORS   1002
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    36
                                                                      SUBSPT
  
                                        **        SUBSCRIPT PROCESSOR.                                           ERRORS   1005
                                                                                                                 ERRORS   1006
                                                                                                                 ERRORS   1007
          2621  124                      E.SB2    ERROR  NS,*,(MISSING SUBSCRIPTS ON FILL. ARE ASSIGNED VALUE OF ERRORS   1008
                                        , ONE)                                                                   ERRORS   1009
          2623  201                      E.SB3    ERROR  AS,*,(FORM OF SUBSCRIPT FILL.2 ON FILL. NOT DEFINED IN  ERRORS   1010
                                        ,ANSI)                                                                   ERRORS   1011
          2625  321                      E.SB4    ERROR  NS,*,(SUBSCRIPT FILL.2 FOR FILL. NOT INTEGER -- TRUNCAT ERRORS   1012
                                        ,ED)                                                                     ERRORS   1013
          2627  321                      E.SB6    ERROR  FS,*,(SUBSCRIPT FILL.2 ON FILL. MUST NOT BE LOGICAL)    ERRORS   1014
          2631  135                      E.SB7    ERROR  AS,*,(A TERM IN SUBSCRIPT FILL.2 ON FILL. IS NOT INTEGE ERRORS   1015
                                        ,R)                                                                      ERRORS   1016
          2633  273                      E.SB8    ERROR  FS,*,(TOO MANY SUBSCRIPTS ON FILL.)                     FCC0498    11
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    37
                                                                      ST.LAB
  
                                        **        STATEMENT LABEL PROCESSOR.                                     ERRORS   1019
                                                                                                                 ERRORS   1020
                                                                                                                 ERRORS   1021
          2635  037                      E.SN     ERROR  FS,*,(MULTIPLY DEFINED STATEMENT LABEL FILL.)           ERRORS   1022
          2637  141                      E.SN1    ERROR  F,*,(PREVIOUS REFERENCE TO THIS DO LABEL IS ILLEGAL)    ERRORS   1023
          2641  031                      E.SN2    ERROR  FS,*,(DO LOOP FILL.2 PREVIOUSLY DEFINED -- ILLEGAL NEST ERRORS   1024
                                        ,ING)                                                                    ERRORS   1025
          2643  143                      E.SN3    ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS DO ERRORS   1026
                                        , TERMINAL)                                                              ERRORS   1027
          2645  143                      E.SN4    ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS FO ERRORS   1028
                                        ,RMAT)                                                                   ERRORS   1029
          2647  066                      E.SN5    ERROR  FS,*,(ILLEGAL TRANSFER TO FILL.2 FORMAT)                ERRORS   1030
          2651  066                      E.SN6    ERROR  FS,*,(ILLEGAL REFERENCE TO STATEMENT LABEL FILL. AS A F ERRORS   1031
                                        ,ORMAT)                                                                  ERRORS   1032
          2653  141                      E.SN7    ERROR  FS,*,(PREVIOUS REFERENCE TO DO LABEL FILL.2 IS ILLEGAL) ERRORS   1033
          2655  141                      E.SN8    ERROR  FS,*,(PREVIOUS REFERENCE TO FORMAT LABEL FILL.2 IS ILLE ERRORS   1034
                                        ,GAL)                                                                    ERRORS   1035
          2657  066                      E.SN9    ERROR  FS,*,(ILLEGAL TRANSFER TO DO FILL.2 TERMINATOR)         ERRORS   1036
          2661  066                      E.SN10   ERROR  FS,*,(ILLEGAL REFERENCE TO FORMAT STATEMENT LABEL FILL. ERRORS   1037
                                        ,2)                                                                      ERRORS   1038
          2663  141                      E.SN12   ERROR  FS,*,(PREVIOUS TRANSFER TO FILL. IS FROM OUTSIDE CURREN ERRORS   1039
                                        ,T DO)                                                                   ERRORS   1040
          2665  143                      E.SN13   ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS A FORM ERRORS   1041
                                        ,AT LABEL)                                                               ERRORS   1042
          2667  111                      E.SN14   ERROR  FS,*,(STATEMENT LABEL FILL. EXCEEDS 5 DIGITS)           FEAT126A  248
          2671  111                      E.SN15   ERROR  FS,*,(STATEMENT LABEL FILL. CONTAINS NON- DIGIT)        ERRORS   1044
          2673  111                      E.SN16   ERROR  W,*,(STATEMENT LABEL IGNORED)                           FCC0794     4
          2674  154                      E.SN17   ERROR  FS,*,(THE TERMINAL STATEMENT OF DO FILL.2 PRECEEDED THE FEAT126AA  11
                                        , DO DEFINITION)                                                         FEAT126AA  12
           243  6170002676 +             E.SN18   ERROR  F,PSN,(STATEMENT LABEL EXPECTED BUT NOT FOUND)          ERRORS   1048
          2700  111                      E.SN19   ERROR  F,*,(STATEMENT LABEL ZERO IS ILLEGAL)                   ERRORS   1049
          2702  111                      E.SN20   ERROR  N,*,(STATEMENT LABEL ZERO IGNORED)                      ERRORS   1050
  
  
  
  
                                        *         STNTBL STATEMENT DECISION TABLE MACRO.                         ERRORS   1052
                                        *         FORMS JUMP ADDRESSES.                                          ERRORS   1053
                                                                                                                 ERRORS   1054
                                                                                                                 ERRORS   1055
                                         STNTBL   MACRO  DOT,FMT,LAB                                             ERRORS   1056
                                        .1        ECHO   ,P1=(DOT,FMT,LAB)                                       ERRORS   1057
                                         A        MICRO  1,1, P1                                                 ERRORS   1058
                                         .2       IFC    EQ,*OK*P1*                                              ERRORS   1059
                                                  VFD    16/ISN60                                                ERRORS   1060
                                         .2       ELSE                                                           ERRORS   1061
                                         .3       IFC    EQ,*E*"A"*                                              ERRORS   1062
                                                  VFD    1/1,15/P1                                               ERRORS   1063
                                         .3       ELSE                                                           ERRORS   1064
                                                  VFD    16/P1                                                   ERRORS   1065
                                         .3       ENDIF                                                          ERRORS   1066
                                         .2       ENDIF                                                          ERRORS   1067
                                        .1        ENDD                                                           ERRORS   1068
                                                  VFD    *P/0                                                    ERRORS   1069
                                         STNTBL   ENDM                                                           ERRORS   1070
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    38
                                                                      STNTD 
  
                                        *         STNTD  STATEMENT DECISION TABLE FOR LABEL DEFINED.             ERRORS   1072
                                                                                                                 ERRORS   1073
           244  000000 X                          STNTBL DLAB,E.SN3,E.SN2      DO-TERMINATOR                     ERRORS   1074
           245  413234 +                          STNTBL E.SN5,OK,E.SN4        FORMAT                            ERRORS   1075
           246  000000 X                 STNTD    STNTBL LABL,E.SN6,E.SN17     LABEL                             ERRORS   1076
  
  
  
  
                                        *         STNTND  STATEMENT DECISION TABLE FOR LABEL NOT-DEFINED.        ERRORS   1078
                                                                                                                 ERRORS   1079
           247  000000 X                          STNTBL OK,E.SN6,DODO         DO-TERMINATOR                     ERRORS   1080
           250  413264 +                          STNTBL E.SN8,OK,E.SN7        FORMAT                            ERRORS   1081
           251  000000 X                 STNTND   STNTBL OK,E.SN10,LBDO                                          FCC1728X    5
                                                  POPMAC STNTBL                                                  ERRORS   1083
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    39
                                                                      SUBREF
  
                                        **        SUBROUTINE/FUNCTION REFERENCE PROCESSING.                      ERRORS   1085
                                                                                                                 ERRORS   1086
                                                                                                                 ERRORS   1087
          2703  455                      E.SU2    ERROR  WS,*,(NUMBER OF ARGUMENTS IN REFERENCE TO FILL. IS NOT  ERRORS   1088
                                        ,CONSISTENT)                                                             ERRORS   1089
          2705  052                      E.SU3    ERROR  FS,*,(ARGUMENT MODE MUST AGREE WITH TYPE DEFINED FOR LI ERRORS   1090
                                        ,BRARY FUNCTION FILL.)                                                   ERRORS   1091
          2710  002                      E.SU4    ERROR  AS,*,(FILL. IS DEFINED TO BE INTRINSIC)                 FEAT126A  250
          2712  002                      E.SU4A   ERROR  AS,*,(FILL. IS DEFINED TO BE A BASIC EXTERNAL FUNCTION) FEAT126A  251
          2714  010                      E.SU6    ERROR  FS,*,(EXTERNAL ARGUMENT FILL. MUST BE DEFINED AS EXTERN FCC1716X    9
                                        ,AL)                                                                     FCC1716X   10
          2716  052                      E.SU8    ERROR  FS,*,(ARGUMENT COUNT ON FILL. EXCEEDS "MAX.SARG")       ERRORS   1094
          2720  052                      E.SU9    ERROR  FS,*,(ARGUMENT COUNT ON FILL.3 MUST BE MORE THAN ONE)   ERRORS   1095
          2722  052                      E.SU10   ERROR  FS,*,(ARGUMENT COUNT NOT EQUAL TO THAT DEFINED FOR INTR FEAT126A  252
                                        ,INSIC FILL.3)                                                           FEAT126A  253
          2724  024                      E.SU11   ERROR  F,*,(FUNCTION NAME IS NOT ASSIGNED A VALUE)             FCC1550X   10
          2726  002                      E.SU12   ERROR  FV,*,(FILL. IS NOT A LEGAL TYPE)                        FCC2177     7
  
  
  
  
                                        **        STOP / PAUSE PROCESSING                                        ERRORS   1099
                                                                                                                 ERRORS   1100
                                                                                                                 ERRORS   1101
          2730  452                      E.SPR    ERROR  W,*,(UNKNOWN FORM -- BLANK ASSUMED)                     FEAT126A  255
          2732  220                      E.SPR1   ERROR  N,*,(HOLLERITH ARGUMENT MUST NOT EXCEED 70 CHARACTERS)  ERRORS   1103
          2734  150                      E.SPR2   ERROR  N,*,(CONSTANT EXCEEDS 5 DIGITS -- TRUNCATED)            ERRORS   1104
           252  6170002736 +             E.SPR3   ERROR  A,PSN,(PAUSE MAY NOT BE A DO TERMINAL)                  ERRORS   1105
          2740  220                      E.SPR4   ERROR  A,*,(HOLLERITH ARGUMENT IS NON- ANSI)                   FEAT126A  256
          2742  327                      E.SPR5   ERROR  A,*,(OCTAL DIGITS REQUIRED)                             FCC1046     8
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    40
                                                                      PROFIL
  
                                        **        PROGRAM STATEMENT FILE DECLARATION.                            ERRORS   1108
                                                                                                                 ERRORS   1109
                                                                                                                 ERRORS   1110
          2743  505                      E.TC1    ERROR  WS,*,(FILE FILL. PREVIOUSLY DEFINED -- IGNORED)         ERRORS   1111
           253  6170002745 +             E.TC2    ERROR  FV,PSP,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL.)   FEAT126C   82
           254  6170002747 +             E.TC3    ERROR  WS,PPA4,(ILLEGAL BUFFER LENGTH FOR FILE FILL. -- 2003B  FCC1463X    8
                                        ,USED)                                                                   FCC1463X    9
           255  6170002751 +             E.TC4    ERROR  WS,PPA355,(BUFFER LENGTH FOR FILE FILL. EXCEEDS 360000B FCC1463X   10
                                        , -- 360000B USED)                                                       FCC1463X   11
          2753  041                      E.TC5    ERROR  W,*,(ONLY "MAX.PARG" FILES ARE PERMITTED -- EXCESS IGNO ERRORS   1117
                                        ,RED)                                                                    ERRORS   1118
           256  6170002755 +             E.TC6    ERROR  WS,PPA4,(FILE FILL.2 NOT DEFINED -- EQUIVALENCE IGNORED FEAT126A  257
                                        ,)                                                                       FEAT126A  258
           257  6170002757 +             E.TC7    ERROR  F,PSP,(EQUAL SIGN MUST BE FOLLOWED BY NAME , NUMBER OR  FEAT126A  259
                                        ,SLASH)                                                                  FEAT126A  260
           260  6170002762 +             E.TC9    ERROR  WS,PPA4,(ILLEGAL RECORD LENGTH FOR FILE FILL. -- DEFAUL ERRORS   1122
                                        ,T USED)                                                                 ERRORS   1123
           261  6170002764 +             E.TC10   ERROR  WS,PPA4,(RECORD LENGTH FOR FILE FILL. EXCEEDS 2**17-1 - ERRORS   1124
                                        ,- DEFAULT USED)                                                         ERRORS   1125
          2766  101                      E.TC11   ERROR  FV,*,(SYNTAX ERROR IN PROGRAM CARD -- SCAN STOPPED AT F FCC0775     7
                                        ,ILL.)                                                                   FCC0775     8
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    41
                                                                      TRANS 
  
                                        **        TRANSLATION OF VARIABLE SECTION.                               ERRORS   1130
                                                                                                                 ERRORS   1131
                                                                                                                 ERRORS   1132
          2770  123                      E.TE1    ERROR  FS,*,(REFERENCE TO VARIABLE FILL. AS A FUNCTION OR ARRA ERRORS   1133
                                        ,Y)                                                                      ERRORS   1134
          2772  123                      E.TE2    ERROR  FS,*,(REFERENCE TO FUNCTION FILL. REQUIRES AN ARGUMENT  ERRORS   1135
                                        ,LIST)                                                                   ERRORS   1136
          2774  123                      E.TE2B   ERROR  FS,*,(REFERENCE TO B.E.F. FILL. REQUIRES AN ARGUMENT LI FCC0718     5
                                        ,ST)                                                                     FCC0718     6
          2776  123                      E.TE2A   ERROR  FS,*,(REFERENCE TO INTRINSIC FILL. REQUIRES AN ARGUMENT ERRORS   1137
                                        , LIST)                                                                  ERRORS   1138
          3000  026                      E.TE3    ERROR  FS,*,(SUBROUTINE FILL. REFERENCE AS A FUNCTION)         ERRORS   1139
          3002  012                      E.TE4    ERROR  AS,*,(ARRAY FILL. MISSING SUBSCRIPT -- FIRST ELEMENT AS ERRORS   1140
                                        ,SUMED)                                                                  ERRORS   1141
           262  6170003004 +             E.TE5    ERROR  FS,PSN,(EXPECTED SYMBOL BUT FOUND FILL. -- SCAN OF CARD FEAT126A  261
                                        , STOPPED)                                                               FEAT126A  262
          3006  114                      E.TE7    ERROR  PS,*,(NAME EXCEEDS 7 CHARACTERS -- TRUNCATED TO FILL.)  ERRORS   1144
          3010  062                      E.TE8    ERROR  F,*,(LEFT SIDE OF EQUAL SIGN IS ILLEGAL)                ERRORS   1145
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    42
                                                                      TYPE
  
                                        **        TYPE PROCESSOR.                                                ERRORS   1147
                                                                                                                 ERRORS   1148
                                                                                                                 ERRORS   1149
          3012  614                      E.TT     ERROR  WS,*,(TYPING OF FILL. IGNORED -- PRIOR TYPING RETAINED) ERRORS   1150
           263  6170003014 +             E.TY     ERROR  FS,PSP,(EXPECTED COMMA FOUND FILL.)                     FEAT126A  263
          3015  144                      E.TY1    ERROR  W,*,(CONFLICT IN RANGE INDICATOR -- FIRST RETAINED)     FEAT126A  264
          3017  154                      E.TYA    ERROR  A,*,(THE WORD TYPE IS NOT PERMITTED)                    ERRORS   1155
           264  6170003021 +             E.TYH    ERROR  F,PSP,(TYPE MUST BE FOLLOWED BY A TYPE INDICATOR)       ERRORS   1156
           265  6170003023 +             E.TYIK   ERROR  FV,IMP.ER,(FILL. IS NOT A LEGAL TYPE)                   ERRORS   1157
           266  6170003025 +             E.TYI1   ERROR  FV,IMP.ER,(EXPECTED LEFT PAREN -- FOUND FILL.)          ERRORS   1158
           267  6170003027 +             E.TYI2   ERROR  FS,IMP.ER,(RANGE INDICATOR FILL. MUST BE A LETTER)      ERRORS   1159
          3031  366                      E.TYI3   ERROR  WS,*,(RANGE INDICATOR FILL. NOT 1 LETTER -- TRUNCATED T FEAT126A  267
                                        ,O FILL.3)                                                               FEAT126A  268
          3033  066                      E.TYI4   ERROR  FS,*,(ILLEGAL RANGE -- FILL.2 NOT LESS THAN FILL. -- TR FEAT126A  269
                                        ,UNCATED)                                                                FEAT126A  270
          3035  362                      E.TYI5   ERROR  WS,*,(TRIVIAL RANGE -- FILL.2 SAME AS FILL.)            ERRORS   1164
           270  6170003037 +             E.TYI6   ERROR  FV,IMP.ER,(EXPECTED RIGHT PAREN -- FOUND FILL.)         ERRORS   1165
           271  6170003041 +             E.TYI7   ERROR  FV,IMP.ER,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)  ERRORS   1166
  
  
  
  
                                        **        I/O UNIT DESIGNATOR.                                           ERRORS   1168
                                                                                                                 ERRORS   1169
                                                                                                                 ERRORS   1170
           272  6170003043 +             E.UE     ERROR  F,PSN,(I/O UNIT DESIGNATOR MUST BE INTEGER)             ERRORS   1171
           273  6170003045 +             E.UE1    ERROR  F,PSN,(I/O UNIT DESIGNATOR MUST BE SIMPLE VARIABLE)     ERRORS   1172
          3047  450                      E.UE2    ERROR  WS,*,(I/O FILE FILL. NOT DEFINED)                       ERRORS   1173
                                                                                                                 FCC0585     4
           274  6170003051 +             E.US1    ERROR  FS,PSN,(CHARACTER FILL. NOT DEFINED IN STANDARD FORTRAN ERRORS   1174
                                        , -- CARD SCAN STOPPED)                                                  FEAT126A  271
                                                                                                                 ERRORS   1176
          3054  143                      E.VA1    ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS FILL.2 ERRORS   1177
                                        ,)                                                                       ERRORS   1178
          3056  616                      E.VA2    ERROR  A,*,(SHORT FORMS OF LOGICAL OPERATORS OR CONSTANTS NOT  FEAT126A  272
                                        ,ALLOWED)                                                                FEAT126A  273
           275  6170003060 +             E.VA3    ERROR  FS,PSP,(ILLEGAL USE OF ENTRY FILL.)                     FCC0585     5
          3062  143                      E.VD     ERROR  FS,*,(USAGE CONFLICT -- FILL. IS FILL.2 AND CANNOT BE F FCC0835     6
                                        ,ILL.3)                                                                  FCC0835     7
                                                                                                                 FCC0585     6
          3064  060                      E.XC     ERROR  WV,*,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)       FEAT126A  274
           276  6170003066 +             E.XC1    ERROR  WV,PSP,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)     FEAT126A  275
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    43
                                                                      EXP 
  
                                        **        EXP PROCESSOR                                                  ERRORS   1187
                                                                                                                 ERRORS   1188
                                                                                                                 ERRORS   1189
          3070  215                      E.XP1    ERROR  F,*,(OPERAND TO ** OPERATOR MUST NOT BE LOGICAL)        ERRORS   1190
          3072  475                      E.XP2    ERROR  F,*,(COMPLEX MUST ONLY BE RAISED TO INTEGER POWER)      ERRORS   1191
          3074  252                      E.XP3    ERROR  N,*,(ZERO ** ZERO -- RESULTS INDEFINITE)                ERRORS   1192
          3076  205                      E.XP4    ERROR  N,*,(INTEGER ** NEGATIVE CONSTANT -- RESULTS ZERO)      ERRORS   1193
          3100  624                      E.XP5    ERROR  W,*,(RESULT OF CONSTANT EVALUATION WILL BE OUT OF RANGE FEAT126A  276
                                        , OR INDEFINITE)                                                         FEAT126A  277
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    44
                                                                      SYSTEM
  
                                        **        *SYSTEM* ERROR  --  COMPILER MALFUNCTION                       ERRORS   1197
                                                                                                                 ERRORS   1198
           277  6170003103 +             E.ZA     ERROR  K,PSP.Z,( ** ** COMPILE ERROR ** ** )                   FCC0990     7
                                                                                                                 ERRORS   1200
                                        *** END                                                                  ERRORS   1201
                                                  PURGMAC ERROR      NEEDED NO LONGER                            ERRORS   1202
  
  
  
  
                                        **        ERRTYP - TABLE OF ERROR FLAG WORDS.                            FEAT126A  280
                                                                                                                 FEAT126A  281
           300                           ERRTYP   BSS    0           TABLE OF ERROR FLAG WORDS                   FEAT126A  282
      L      0                                    LOC    0                                                       FEAT126A  283
                                        ****                                                                     FEAT126A  284
      L      0  01554755001370 +         ANSI     ERRTYP X,(ANSI)                                                FEAT126A  285
      L      1  55554755000541 +         CONTINUE ERRTYP 1,( )                                                   FEAT126A  286
      L      2  06554755001371 +         FATAL    ERRTYP F,(FATAL)                                               FEAT126A  287
      L      3  03554755001372 +         KILL     ERRTYP F,(COMPILE)                                             FEAT126A  288
      L      4  16554755001373 +         NOTE     ERRTYP N,(NOTE)                                                FEAT126A  289
      L      5  46554755001374 +         PRINT    ERRTYP F,(-----)                                               FEAT126A  290
      L      6  27554755001375 +         WARN     ERRTYP W,(WARNING)                                             FEAT126A  291
      L      7                          ****                                                                     FEAT126A  292
      L      7                           N.ERRT   BSS    0           NUMBER OF ERROR TYPES                       FEAT126A  293
           307                                    LOC    *O                                                      FEAT126A  294
                                         ERRTYP   HERE                                                           FEAT126A  295
           316  00000000000000000000     E=TOTAL  DATA   0           COUNT OF ALL ERRORS IN STATEMENT            FEAT126A  296
                                                  PURGMAC ERRTYP                                                 FEAT126A  297
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    45
                                                                      ANSI
  
                                        **        ANSI - CHECK ANSI-LISTING FLAG.                                ERRORS   1210
                                        *         ENTRY  (B7) _ ERROR ADDRESS.                                   ERRORS   1211
                                        *         USES   SAME AS *PWE*.                                          ERRORS   1212
                                        *         CALLS  PWE.                                                    ERRORS   1213
                                                                                                                 ERRORS   1214
                                                                                                                 ERRORS   1215
           317  0100000507 +             ANSI8    RJ     PWE         PRINT WARNING ERROR                         ERRORS   1216
                                                                                                                 ERRORS   1217
           320  0400400320 +             ANSI=    SUBR   0                                                       ERRORS   1218
           321  0400000320 +             ANSI.SW  EQ     ANSIX       FLIP-FLOP FOR *EL=A* OPTION                 FEAT126C   83
                          0400000317 +   -        EQ     ANSI8       IF ON                                       ERRORS   1220
  
  
  
  
                                        **        LLN -  LIST LONG ERRORS.                                       ERRORS   1222
                                        *                                                                        ERRORS   1223
                                        *         LLN    IF NORMAL ERROR.                                        ERRORS   1224
                                        *         LLNS   IF DIAGNOSTIC PRESETS *FILL.N*.                         ERRORS   1225
                                        *         LLNV   IF NEEDS FILLER FROM *SB*.                              ERRORS   1226
                                        *                                                                        ERRORS   1227
                                        *         ENTRY  (B7) _ FWA OF MESSAGE TO BE PRINTED.                    ERRORS   1228
                                        *                IF ENTERED THRU *LLNV*, (B4) _ START OF FILLER.         ERRORS   1229
                                        *                UP TO 10 CHARACTERS WILL BE PUT INTO "FILL.".           ERRORS   1230
                                        *                IF ENTERED THRU *LLNS*, *FILL.N* WORDS WILL BE          ERRORS   1231
                                        *                FORMATTED FOR ERROR.                                    ERRORS   1232
                                        *         EXIT   FWA OF MESSAGE (B7) POINTS TO EXIT ADDRESS              ERRORS   1233
                                        *                A0,A7  B4  PRESERVED.                                   ERRORS   1234
                                        *         CALLS  WOF                                                     ERRORS   1235
                                                                                                                 ERRORS   1236
                                                                                                                 ERRORS   1237
                                        **        HERE IF DIAGNOSTIC _S TYPE.                                    ERRORS   1238
                                        *         *FILL.N* WORDS WILL BE CONVERTED TO PROPER FORM FOR ERROR      ERRORS   1239
                                        *                SKELETON.                                               ERRORS   1240
                                                                                                                 ERRORS   1241
           322  43552                    LLNS     MX5    L.SYM                                                   ERRORS   1242
                     6130000003                   SB3    L.FILL                                                  ERRORS   1243
                               43066              MX0    -CHAR                                                   ERRORS   1244
           323  5113000541 +             LLNS1    SA1    B3+FILL.-1                                              ERRORS   1245
                          11351                   BX3    X5*X1                                                   ERRORS   1246
                               76400              SX4    B0                                                      ERRORS   1247
           324  15210                             BX2    -X0*X1                                                  ERRORS   1248
                     22601                        LX6    X1                                                      ERRORS   1249
                          0312000334 +            NZ     X2,LLNS5    IF WORD ALREADY PACKED.                     ERRORS   1250
           325  7120000065                        SX2    65B         FIRST CHARACTER FOR FILL.                   ERRORS   1251
                          46000                   NO                                                             ERRORS   1252
                               36623              IX6    X2+X3                                                   ERRORS   1253
           326  7140000100                        SX4    DT.BIAS+11                                              ERRORS   1254
                          20666                   LX6    60-CHAR                                                 ERRORS   1255
           327  0301000332 +                      ZR     X1,LLNS4    IF EMPTY WORD                               ERRORS   1256
           330  15210                    LLNS3    BX2    -X0*X1                                                  ERRORS   1257
                     21106                        AX1    CHAR                                                    ERRORS   1258
                          0312000334 +            NZ     X2,LLNS5    IF END                                      ERRORS   1259
           331  7244777776                        SX4    X4-1        UPDATE BIAS                                 ERRORS   1260
                          0400000330 +            EQ     LLNS3       LOOP                                        ERRORS   1261
                                                                                                                 ERRORS   1262
           332  7160000055               LLNS4    SX6    1R                                                      ERRORS   1263
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    46
                                                                      LLN 
  
                          7140000066              SX4    DT.BIAS+1                                               ERRORS   1264
           333  20666                             LX6    -CHAR                                                   ERRORS   1265
                                        *         EQ     LLNS5                                                   ERRORS   1266
                                                                                                                 ERRORS   1267
                                        *         PUT BIASED WORD BACK INTO FILL. REGION                         ERRORS   1268
                                                                                                                 ERRORS   1269
           334  12646                    LLNS5    BX6    X4+X6                                                   ERRORS   1270
                     67331                        SB3    B3-B1                                                   ERRORS   1271
                          54610                   SA6    A1          RESET FILL.                                 ERRORS   1272
           335  0530000323 +                      NZ     B3,LLNS1    IF NOT END OF *FILL.S*                      ERRORS   1273
                          0400000354 +            EQ     LLN         CONTINUE..                                  ERRORS   1274
                                                                                                                 ERRORS   1275
                                                                                                                 ERRORS   1276
                                        **        HERE IF DIAGNOSTIC _V TYPE.                                    ERRORS   1277
                                        *         NEXT 10 CHARACTERS FROM *SB*, STARTING AT B4 WILL BE           ERRORS   1278
                                        *         ASSEMBLED INTO *FILL.*                                         ERRORS   1279
                                        *                                                                        ERRORS   1280
                                        *         NOTE -                                                         ERRORS   1281
                                        *                WORKS ONLY ON A NORMALIZED *SB*.                        ERRORS   1282
                                                                                                                 ERRORS   1283
           336  57241                    LLNV     =A2    B4-1                                                    FCC0597    10
                     56340                        SA3    B4                                                      FCC0597    11
                          6160000066              SB6    9*CHAR                                                  ERRORS   1285
           337  43066                             MX0    -CHAR                                                   ERRORS   1286
                     6120000066                   SB2    DT.BIAS+1                                               ERRORS   1287
                               63330              SB3    X3                                                      FCC0597    12
           340  7160000065                        SX6    65B         FIRST CHARACTER FOR FILL. = _.              ERRORS   1288
                          0303000342 +            ZR     X3,LLNV03   IF *SB* IS AT *EOS*                         FCC0597    13
                                                                                                                 ERRORS   1289
           341  54221                    LLNV1    SA2    A2+B1                                                   ERRORS   1290
                     63320                        SB3    X2                                                      ERRORS   1291
                          0302000352 +            ZR     X2,LLNV20   IF *EOS*                                    ERRORS   1292
           342  5113000000 X             LLNV03   SA1    B3+CHARMAP                                              FCC0597    14
                          0311000344 +            NZ     X1,LLNV05   IF NOT *SYMBOL*                             ERRORS   1294
           343  11102                             BX1    X0*X2       USE *SB* CHARACTERS.                        ERRORS   1295
                     0400000347 +                 EQ     LLNV10                                                  ERRORS   1296
                                                                                                                 ERRORS   1297
           344  5130001376 +             LLNV05   SA3    =4LNSTD                                                 ERRORS   1298
                          13331                   BX3    X3-X1                                                   ERRORS   1299
                               21322              AX3    18                                                      ERRORS   1300
           345  0313000347 +                      NZ     X3,LLNV10   IF NOT SPECIAL LEFT PAREN                   ERRORS   1301
                          7110000051              SX1    1R(         USE PAREN FOR ERROR MESSAGE                 ERRORS   1302
           346  20166                             LX1    54                                                      ERRORS   1303
                                                                                                                 ERRORS   1304
           347  20106                    LLNV10   LX1    CHAR                                                    ERRORS   1305
                     15210                        BX2    -X0*X1                                                  ERRORS   1306
                          0302000341 +            ZR     X2,LLNV1    IF END OF PRESENT SYMBOL                    ERRORS   1307
           350  20606                             LX6    CHAR                                                    ERRORS   1308
                     12626                        BX6    X2+X6                                                   ERRORS   1309
                          6166777771              SB6    B6-CHAR                                                 ERRORS   1310
           351  66221                             SB2    B2+B1                                                   ERRORS   1311
                     0560000347 +                 NZ     B6,LLNV10   CONTINUE                                    ERRORS   1312
                               13000              BX0    0           INDICATE FULL WORD                          ERRORS   1313
                                                                                                                 ERRORS   1314
           352  0460000353 +             LLNV20   ZR     B6,LLNV30   IF FULL WORD                                ERRORS   1315
                          22666                   LX6    B6,X6       ADJUST TO 0L                                ERRORS   1316
                               76020              SX0    B2          BIAS ADD-IN.                                ERRORS   1317
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    47
                                                                      LLN 
  
                                                                                                                 ERRORS   1318
           353  36606                    LLNV30   IX6    X0+X6                                                   ERRORS   1319
                     5160000542 +                 SA6    FILL.       SET FILLER.                                 ERRORS   1320
                                                                                                                 ERRORS   1321
                                                                                                                 ERRORS   1322
                                        **        HERE TO PROCESS ALL DIAGNOSTICS.                               ERRORS   1323
                                                                                                                 ERRORS   1324
           354  56170                    LLN      SA1    B7          ENTRY - LIST LONG LINE ERROR MESSAGES       ERRORS   1325
                     76670                        SX6    B7                                                      ERRORS   1326
                          5160000462 +            SA6    LLNA        SAVE ERROR WORD ADDRESS.                    ERRORS   1327
           355  20151                             LX1    -P.ERTYPE                                               ERRORS   1328
                     54661                        =A6    A6+1                                                    ERRORS   1329
                          43067                   MX0    -L.ERTYPE                                               ERRORS   1330
                               15410              BX4    -X0*X1      ISOLATE ERROR TYPE ORDINAL                  ERRORS   1331
           356  5234000300 +                      SA3    X4+ERRTYP                                               ERRORS   1332
                          43030                   MX0    4*CHAR                                                  FEAT126A  298
                               11703              BX7    X0*X3       SHORT FORM BANNER FOR PW MODE               FEAT126A  299
           357  53230                             SA2    X3          FETCH *LOP* SWITCH                          ERRORS   1333
                     21322                        AX3    18                                                      ERRORS   1334
                          53130                   SA1    X3          FETCH TYPE BANNER WORD                      ERRORS   1335
                               10622              BX6    X2                                                      ERRORS   1336
           360  5053000007                        SA5    A3+N.ERRT                                               ERRORS   1337
                          5160000000 X            SA6    LOP=1       RE-SET CONTINUATION ERROR SELECTOR          ERRORS   1338
           361  73651                             =X6    X5+1                                                    ERRORS   1339
                     54650                        SA6    A5          COUNT UP THIS TYPE                          ERRORS   1340
                          5140000000 X            SA4    =XCP.PW                                                 CP139FC   193
           362  0322000454 +                      PL     X2,LLN72    IF THIS TYPE NOT SELECTED                   FEAT126A  301
                          0314000367 +            NZ     X4,LLN20    IF PW MODE                                  FEAT126A  302
           363  10611                             BX6    X1                                                      FEAT126A  303
                     5110001377 +                 SA1    =1H*                                                    ERRORS   1344
           364  5160000000 X                      SA6    =XLINEBUF                                               FEAT126A  304
                          10611                   BX6    X1                                                      ERRORS   1345
                               54661              SA6    A6+B1                                                   ERRORS   1346
           365  43600                             MX6    0                                                       FEAT126A  305
                     54661                        SA6    A6+B1       POINT TO 1ST WORD FOR ERROR MESSAGE         FEAT126A  306
                          66300                   SB3    B0          SET TO NO CHARACTERS USED IN WORD           FEAT126A  307
           366  0400000371 +                      EQ     LLN25       PROCESS ERROR LINE                          FEAT126A  308
                                                                                                                 FEAT126A  309
           367  7130000055               LLN20    SX3    1R                                                      FEAT126A  310
                          12673                   BX6    X7+X3                                                   FEAT126A  311
                               20666              LX6    -CHAR                                                   FEAT126A  312
           370  5160000000 X                      SA6    =XLINEBUF                                               FEAT126A  313
                          6130000036              SB3    5*CHAR      SET TO 5 CHAR USED IN WORD                  FEAT126A  314
                                                                                                                 ERRORS   1347
                                        *         OUTPUT THE ERROR LINE                                          ERRORS   1348
                                                                                                                 ERRORS   1349
           371  56170                    LLN25    SA1    B7          RELOAD FIRST POINTER WORD                   ERRORS   1350
                     7170000004                   SX7    N.ER1ST                                                 ERRORS   1351
           372  6160000074                        SB6    10*CHAR                                                 ERRORS   1353
                          22001                   LX0    X1                                                      ERRORS   1354
                                                                                                                 ERRORS   1357
           373  43411                    LLN30    MX4    L.ERWORD                                                ERRORS   1358
                     66200                        SB2    B0                                                      FEAT126A  315
                          11340                   BX3    X4*X0       LOAD NEXT POINTER WORD BYTE                 ERRORS   1359
           374  0303000432 +                      ZR     X3,LLN65    IF ZERO BYTE POINTER                        ERRORS   1360
                          20311                   LX3    L.ERWORD                                                ERRORS   1361
           375  5213000540 +                      SA1    X3+DICT-1                                               ERRORS   1362
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    48
                                                                      LLN 
  
                          43366                   MX3    -CHAR                                                   ERRORS   1363
                               15413              BX4    -X3*X1                                                  ERRORS   1364
           376  7244777712                        SX4    X4-DT.BIAS  GET CHARACTER COUNT                         ERRORS   1365
                          0324000402 +            PL     X4,LLN35    IF LESS THAN 10 CHARACTERS                  FEAT126A  316
           377  7234000065                        SX3    X4+DT.BIAS                                              FEAT126A  317
                          0303000401 +            ZR     X3,LLN33    IF GREATER THAN 10 CHARACTERS               FEAT126A  318
           400  7140000012                        SX4    10                                                      FEAT126A  319
                          0400000402 +            EQ     LLN35       EXACTLY 10 CHARACTERS                       FEAT126A  320
                                                                                                                 FEAT126A  321
           401  66210                    LLN33    SB2    B1          FLAG CONTINUED WORD                         FEAT126A  322
                     7140000011                   SX4    9                                                       FEAT126A  323
           402  10344                    LLN35    BX3    X4                                                      ERRORS   1368
                     20402                        LX4    2           MULT BY 4                                   ERRORS   1369
                          20301                   LX3    1           MULT BY 2                                   ERRORS   1370
                               36634              IX6    X3+X4       NUMBER OF BITS IN DATA                      ERRORS   1371
           403  54560                             SA5    A6                                                      ERRORS   1372
                                                                                                                 ERRORS   1373
                                        *         PROCESS DATA WORD INTO OUTPUT BUFFER                           ERRORS   1374
                                                                                                                 ERRORS   1375
                     67563                        SB5    B6-B3                                                   ERRORS   1376
                          63760                   SB7    X6                                                      ERRORS   1377
           404  0757000411 +                      LT     B5,B7,LLN45       IF SPLIT NECESSARY                    ERRORS   1378
                                                                                                                 ERRORS   1379
                                        *         PROCESS DATA WORD ( NO SPLIT NECESSARY )                       ERRORS   1380
                                                                                                                 ERRORS   1381
           405  43401                    LLN40    MX4    1                                                       ERRORS   1382
                     67771                        SB7    B7-B1                                                   ERRORS   1383
                          23674                   AX6    X4,B7       BUILD MASK FOR DATA WORD                    ERRORS   1384
                               11361              BX3    X6*X1       GET DATA WORD ONLY                          ERRORS   1385
           406  22535                             LX5    X5,B3                                                   ERRORS   1386
                     66737                        SB7    B3+B7                                                   ERRORS   1387
                          15456                   BX4    -X6*X5      MASK IN PAST PARCEL                         ERRORS   1388
                               66371              SB3    B7+B1                                                   ERRORS   1389
           407  12343                             BX3    X4+X3       ADD PAST AND PRESENT TOGETHER               ERRORS   1390
                     22653                        LX6    X3,B5                                                   ERRORS   1391
                          0420000415 +            ZR     B2,LLN50    ADD BLANK IF END OF WORD                    FEAT126A  324
           410  54650                             SA6    A5                                                      FEAT126A  325
                     0400000423 +                 EQ     LLN60       CONTINUE..                                  FEAT126A  326
                                                                                                                 ERRORS   1393
                                        *         PROCESS SPLIT WORD                                             ERRORS   1394
                                                                                                                 ERRORS   1395
           411  43401                    LLN45    MX4    1                                                       ERRORS   1396
                     67331                        SB3    B3-B1                                                   ERRORS   1397
                          22151                   LX1    X1,B5                                                   ERRORS   1398
                               67775              SB7    B7-B5                                                   ERRORS   1399
           412  66560                             SB5    B6                                                      ERRORS   1400
                     23334                        AX3    X4,B3                                                   ERRORS   1401
                          15613                   BX6    -X3*X1                                                  ERRORS   1402
                               66300              SB3    B0                                                      ERRORS   1403
           413  11335                             BX3    X3*X5                                                   ERRORS   1404
                     54551                        SA5    A5+B1                                                   ERRORS   1405
                          12636                   BX6    X3+X6                                                   ERRORS   1406
                               54660              SA6    A6                                                      ERRORS   1407
           414  13555                             BX5    0           PRESET FOR PROCESSING REMAINDER             ERRORS   1408
                     0400000405 +                 EQ     LLN40       PROCESS REMAINDER                           ERRORS   1409
                                                                                                                 ERRORS   1410
                                        *         ADD IN SPACE BETWEEN WORDS                                     ERRORS   1411
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    49
                                                                      LLN 
  
                                                                                                                 ERRORS   1412
           415  7150000055               LLN50    SX5    1R                                                      ERRORS   1413
                          6150000066              SB5    9*CHAR                                                  ERRORS   1414
           416  20566                             LX5    9*CHAR                                                  ERRORS   1415
                     0653000421 +                 LE     B3,B5,LLN55       IF ENOUGH ROOM FOR SPACE              ERRORS   1416
                               54650              SA6    A5                                                      ERRORS   1417
           417  10655                             BX6    X5                                                      ERRORS   1418
                     6130000006                   SB3    CHAR        SET NUMBER OF BITS IN OUTPUT WORD           ERRORS   1419
                               54661              SA6    A6+B1       STORE IN OUTPUT BUFFER                      ERRORS   1420
           420  0400000423 +                      EQ     LLN60       CONTINUE..                                  ERRORS   1421
                                                                                                                 ERRORS   1422
           421  67563                    LLN55    SB5    B6-B3                                                   ERRORS   1423
                     22455                        LX4    B5,X5       ADJUST 1R                                   ERRORS   1424
                          36664                   IX6    X6+X4                                                   ERRORS   1425
                               54650              SA6    A5                                                      ERRORS   1426
           422  6133000006                        SB3    B3+CHAR     ADJUST BIT COUNT                            ERRORS   1427
           423  20011                    LLN60    LX0    9                                                       ERRORS   1428
                     7277777776                   SX7    X7-1                                                    ERRORS   1429
           424  0317000373 +                      NZ     X7,LLN30    LOOP ON PRESENT POINTER WORD                ERRORS   1430
                                                                                                                 ERRORS   1431
                                        *         CHECK FOR CONTINUATION CARDS                                   ERRORS   1432
                                                                                                                 ERRORS   1433
                          20005                   LX0    P.ERMORE                                                ERRORS   1434
           425  0320000432 +                      PL     X0,LLN65    IF NO CONTINUATION CARDS                    ERRORS   1435
                                                                                                                 ERRORS   1436
                                                                                                                 ERRORS   1437
                          5130000463 +            SA3    LLNA+1                                                  ERRORS   1438
           426  74470                             SX4    A7                                                      ERRORS   1439
                     73731                        =X7    X3+1                                                    ERRORS   1440
                          53131                   =A1    X3+1        LOAD NEXT POINTER WORD                      ERRORS   1441
                               54730              SA7    A3                                                      ERRORS   1442
           427  53240                             SA2    X4                                                      ERRORS   1443
                     10722                        BX7    X2          RESTORE (A7)                                ERRORS   1444
                          54720                   SA7    A2                                                      ERRORS   1445
           430  7170000006                        SX7    N.ERREST    RESET NUMBER OF BYTES PER WORD              ERRORS   1446
                          10011                   BX0    X1                                                      ERRORS   1447
           431  0400000373 +                      EQ     LLN30       PROCESS NTH CARD                            ERRORS   1448
                                                                                                                 ERRORS   1449
                                        *         END OF THIS MESSAGE, PRINT IT.                                 ERRORS   1450
                                                                                                                 ERRORS   1451
           432  5110000000 X             LLN65    SA1    T.DLBUF                                                 FEAT126B   31
                          13666                   BX6    0                                                       FEAT126B   32
                               54661              SA6    A6+B1       END OF LINE INDICATOR                       FEAT126B   34
           433  54560                             SA5    A6          SAVE LWA OF DIAGNOSTIC                      FEAT126B   35
                     74570                        SX5    A7          SAVE (A7)                                   FEAT126B   36
                          76640                   SX6    B4                                                      FEAT126B   38
           434  5160000011 X                      SA6    SAVE+9      SAVE (B4)                                   FEAT126B   39
                                                                                                                 FCC1328X   83
                                        *         LIST THE STATEMENT THAT WAS FOUND TO BE IN ERROR.              FCC1328X   84
                                                                                                                 FCC1328X   85
                          0100000000 X            RJ     =XLDB       LIST DEFERRED BUFFER                        FCC1328X   86
                                                                                                                 FEAT126B   52
           435  5140000011 X                      SA4    SAVE+9                                                  FEAT126B   53
                          63440                   SB4    X4          RESTORE (B4)                                FEAT126B   54
                                                                                                                 ERRORS   1476
           436  6120777776 X             LLN68    SB2    =XLINEBUF-1                                             FEAT126A  327
                          75252                   SX2    A5-B2                                                   FEAT126A  328
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    50
                                                                      LLN 
  
           437  5140000000 X                      SA4    =XCP.PW                                                 CP139FC   194
                          76121                   SX1    B2+B1       FWA OF DIAGNOSTIC                           FEAT126A  330
           440  0304000452 +                      ZR     X4,LLN71    IF NOT IN PW MODE                           FEAT126A  331
                          6232777776              SB3    X2-1                                                    FEAT126A  332
           441  63540                             SB5    X4          PAGE WIDTH IN WORDS                         FEAT126A  333
                     67335                        SB3    B3-B5                                                   FEAT126A  334
                          0603000452 +            LE     B3,LLN71    IF LENGTH LESS THAN PAGE WIDTH              FEAT126A  335
           442  5224777776 X                      SA2    X4+=XLINEBUF-1                                          FEAT126A  336
                          10322                   BX3    X2                                                      FEAT126A  337
           443  6130777722                        SB3    -1R                                                     FEAT126A  338
                          43066                   MX0    9*CHAR                                                  FEAT126A  339
           444  6150000066                        SB5    9*CHAR                                                  FEAT126A  340
           445  15630                    LLN69    BX6    -X0*X3                                                  FEAT126A  341
                     73463                        SX4    X6+B3                                                   FEAT126A  342
                          0304000451 +            ZR     X4,LLN70    IF BLANK CHARACTER                          FEAT126A  343
           446  22352                             LX3    B5,X2                                                   FEAT126A  344
                     6155777771                   SB5    B5-CHAR                                                 FEAT126A  345
           447  0650000445 +                      GE     B5,LLN69    IF STILL MORE CHARACTERS IN WORD            FEAT126A  346
                          55221                   SA2    A2-B1                                                   FEAT126A  347
           450  0400000445 +                      EQ     LLN69       TRY NEXT WORD BACK                          FEAT126A  348
                                                                                                                 FEAT126A  349
           451  65651                    LLN70    SB6    A5-B1       (B6) = LWA - 1                              FEAT126A  350
                     0100000000 X                 RJ     =XBLL       BREAK LONG LINE                             FEAT126A  351
           452  0100000000 X             LLN71    PLINE  X1,X2                                                   FEAT126A  352
           453  53550                             SA5    X5                                                      ERRORS   1478
                     10755                        BX7    X5                                                      ERRORS   1479
                          54750                   SA7    A5          RESTORE *A7*                                ERRORS   1480
                                                                                                                 ERRORS   1481
                                        *         EXIT.                                                          ERRORS   1482
                                                                                                                 ERRORS   1483
           454  5120000311 +             LLN72    SA2    ERR=F                                                   FEAT126A  353
                          5140000000 X            SA4    BINOUT                                                  ERRORS   1486
           455  11624                             BX6    X2*X4                                                   FEAT126A  354
                     5110000462 +                 SA1    LLNA                                                    ERRORS   1489
                               54640              SA6    A4          BINOUT=BINOUT*ERR=F                         FEAT126A  355
           456  0332000460 +                      MI     X2,LLN90    IF NO FATAL ERROR                           FCC1608X    8
                          5140000000 X            SA4    =XWINX      EXIT POINT FOR WIN                          FCC1608X    9
           457  10644                             BX6    X4                                                      FCC1608X   10
                     5160000000 X                 SA6    =XWIN       BLOCK FURTHER PROCESSING                    FCC1608X   11
           460                           LLN90    BSS                                                            FCC1608X   12
           460  53210                             SA2    X1                                                      ERRORS   1491
                     63720                        SB7    X2          SET *EXIT* ADDRESS.                         ERRORS   1492
                          0770000524 +            MI     B7,PWE1     IF *RJ* STYLE ERROR                         ERRORS   1493
           461  0277000000                        JP     B7          EXIT                                        ERRORS   1494
                                                                                                                 ERRORS   1495
           462                     1     LLNA     BSS    1           SAVE ERROR WORD ADDRESS                     ERRORS   1496
           463  00000000000000000000              CON    0                                                       ERRORS   1497
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    51
                                                                      OSE 
  
                                        **        OSE -  OUTPUT SUBSCRIPT ERROR.                                 ERRORS   1516
                                        *                                                                        ERRORS   1517
                                        *         NOTE   ALL ERRORS USING THIS ROUTINE MUST USE --               ERRORS   1518
                                        *                            FILL.  AS ARRAY NAME.                       ERRORS   1519
                                        *                            FILL.2 AS SUBSCRIPT NUMBER.                 ERRORS   1520
                                        *                ALL ERRORS MUST HAVE EXIT ADDRESS AS = *                ERRORS   1521
                                        *                                                                        ERRORS   1522
                                        *                THIS ROUTINE IS TO BE CONSIDERED AS PART OF *PWE*       ERRORS   1523
                                        *                                                                        ERRORS   1524
                                        *         ENTRY  (B7) = ADDRESS OF ERROR.                                ERRORS   1525
                                        *                (X4) = 42/IGNORED , 18/SUBSCRIPT NUMBER                 ERRORS   1526
                                        *                                                                        ERRORS   1527
                                        *         EXIT   ERROR OUTPUTTED.                                        ERRORS   1528
                                        *                                                                        ERRORS   1529
                                        *         USES   A1,A6,A7  X0,X1,X7  B7                                  ERRORS   1530
                                                                                                                 ERRORS   1531
                                                                                                                 ERRORS   1532
           464  0400400464 +             OSE      SUBR   0                                                       ERRORS   1533
           465  76770                             SX7    B7                                                      ERRORS   1534
                     5110000464 +                 SA1    OSEX                                                    ERRORS   1535
           466  6170000504 +                      SB7    OSEA        SET EXIT ADDRESS FOR CURRENT ENTRY TO PWE   ERRORS   1536
                          10611                   BX6    X1                                                      ERRORS   1537
                               56771              =A7    B7+1        SAVE ERROR                                  ERRORS   1538
           467  5160000507 +                      SA6    PWE         SET RETURN ADDRESS                          ERRORS   1539
                          73640                   SX6    X4                                                      ERRORS   1540
                               54671              =A6    A7+1        SAVE SUBSCRIPT NUMBER                       ERRORS   1541
           470  0400000510 +                      EQ     PWE+1       ENTER REG SAVE ROUTINE                      ERRORS   1542
                                                                                                                 ERRORS   1543
                                        *         RETURN AFTER SAVING REGISTERS                                  ERRORS   1544
                                                                                                                 ERRORS   1545
           471  5120000000 X             OSE1     SA2    DIMSYM                                                  ERRORS   1546
                          5110000506 +            SA1    OSEB+1      SUBSCRIPT NUMBER                            ERRORS   1547
           472  21252                             AX2    P.SATAG                                                 ERRORS   1548
                     43752                        MX7    L.SYM                                                   ERRORS   1549
                          6222577776              SB2    X2-C.SYM-1  ORDINAL OF SYMBOL.                          ERRORS   1550
           473  5130000000 X                      SA3    TS.SYM                                                  ERRORS   1551
                          53432                   SA4    X3+B2       ARRAY NAME                                  ERRORS   1552
                               43071              MX0    -3                                                      ERRORS   1553
           474  11674                             BX6    X7*X4       SYMBOL ONLY                                 ERRORS   1554
                     6170000074                   SB7    10*CHAR                                                 ERRORS   1555
           475  5160000542 +                      SA6    FILL.                                                   ERRORS   1556
                          13222                   BX2    0                                                       ERRORS   1557
           476  6120000033                        SB2    1R0                                                     ERRORS   1558
                                                                                                                 ERRORS   1559
                                        **        CONVERT SUBSCRIPT NUMBER TO *DPC*.                             ERRORS   1560
                                        *         (X0) = MASK OF 3.                                              ERRORS   1561
                                        *         (X1) = SUBSCRIPT NUMBER IN LOWER 18 BITS.                      ERRORS   1562
                                                                                                                 ERRORS   1563
           477  15610                    OSE5     BX6    -X0*X1      EXTRACT DIGIT                               ERRORS   1564
                     6177777771                   SB7    B7-CHAR                                                 ERRORS   1565
                               73662              SX6    X6+B2       CONVERT TO *DPC*                            ERRORS   1566
           500  21103                             AX1    3           DOWN ONE DIGIT                              ERRORS   1567
                     12226                        BX2    X2+X6       ACCUMULATE                                  ERRORS   1568
                          0311000477 +            NZ     X1,OSE5     IF NOT FINISHED.                            ERRORS   1569
           501  22672                             LX6    X2,B7       LEFT JUSTIFY                                ERRORS   1570
                     5110000505 +                 SA1    OSEB                                                    ERRORS   1571
           502  5160000543 +                      SA6    FILL.2      NUMBER TO ERROR                             ERRORS   1572
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    52
                                                                      OSE 
  
                                                                                                                 ERRORS   1573
                                        **        OUTPUT SELECTED ERROR.                                         ERRORS   1574
                                                                                                                 ERRORS   1575
                          63710                   SB7    X1                                                      ERRORS   1576
           503  0400000322 +                      EQ     LLNS        OUTPUT SELECTED ERROR                       ERRORS   1577
                                                                                                                 ERRORS   1578
           504  00000000000000400471 +   OSEA     CON    OSE1+1S17   EXIT ADDRESS FOR SAVE                       ERRORS   1579
           505  00000000000000000000     OSEB     DATA   0,0         ERROR ADDRESS                               ERRORS   1580
  
  
  
  
                                        **        PWE -  PRINT *WARNING* ERRORS.(ALSO SAVES DEFINED REGISTERS)   ERRORS   1582
                                        *         ENTRY  (B7) _ ERROR MESSAGE ADDRESS.                           ERRORS   1583
                                        *                     ( IN GENERAL POINTS TO EXIT ADDRESS AFTER SAVE.)   ERRORS   1584
                                        *         EXIT   REGISTERS RESTORED.                                     ERRORS   1585
                                        *         DOES NOT SAVE.                                                 ERRORS   1586
                                        *                            A1, A0, A6, A7, X0, X1, B7                  ERRORS   1587
                                                                                                                 ERRORS   1588
                                                                                                                 ERRORS   1589
           507  0400400507 +             PWE      SUBR   0                                                       ERRORS   1590
           510  5160000000 X                      SA6    SAVE        SAVE X6                                     ERRORS   1591
                          43052                   MX0    -18                                                     ERRORS   1592
                                        .1        ECHO   ,I=(5,4,3,2)                                            ERRORS   1593
                                                  BX6    X_I                                                     ERRORS   1594
                                                  SX_I   B_I                                                     ERRORS   1595
                                                  SA6    A6+B1                                                   ERRORS   1596
                                        .1        ENDD                                                           ERRORS   1597
                               15550              BX5    -X0*X5                                                  ERRORS   1598
           514  76660                             SX6    B6                                                      ERRORS   1599
                     15440                        BX4    -X0*X4                                                  ERRORS   1600
                          20522                   LX5    18                                                      ERRORS   1601
                               15660              BX6    -X0*X6                                                  ERRORS   1602
           515  20444                             LX4    2*18                                                    ERRORS   1603
                     36656                        IX6    X5+X6                                                   ERRORS   1604
                          15330                   BX3    -X0*X3                                                  ERRORS   1605
                               74550              SX5    A5                                                      ERRORS   1606
           516  36646                             IX6    X4+X6                                                   ERRORS   1607
                     15220                        BX2    -X0*X2                                                  ERRORS   1608
                          20544                   LX5    2*18                                                    ERRORS   1609
                               54661              SA6    A6+B1       SAVE+5 = B4,B5,B6                           ERRORS   1610
           517  74440                             SX4    A4                                                      ERRORS   1611
                     20222                        LX2    18                                                      ERRORS   1612
                          12535                   BX5    X3+X5                                                   ERRORS   1613
                               74620              SX6    A2                                                      ERRORS   1614
           520  74330                             SX3    A3                                                      ERRORS   1615
                     20444                        LX4    2*18                                                    ERRORS   1616
                          20322                   LX3    18                                                      ERRORS   1617
                               12646              BX6    X4+X6                                                   ERRORS   1618
           521  12636                             BX6    X3+X6                                                   ERRORS   1619
                     54661                        SA6    A6+B1       SAVE+6 = A4,A3,A2                           ERRORS   1620
                          36652                   IX6    X5+X2                                                   ERRORS   1621
                               54661              SA6    A6+B1       SAVE+7 = A5,B2,B3                           ERRORS   1622
           522  10677                             BX6    X7                                                      ERRORS   1623
                     54661                        SA6    A6+B1       SAVE+8 = X7                                 ERRORS   1624
                          56270                   SA2    B7                                                      ERRORS   1625
                               63220              SB2    X2                                                      ERRORS   1626
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    53
                                                                      PWE 
  
           523  0222377777                        JP     B2-4S15     EXIT.. (TO PROPER ERROR FORMATTER)          ERRORS   1627
                                                                                                                 ERRORS   1628
           524  5140000006 X             PWE1     SA4    SAVE+6                                                  ERRORS   1629
                          55141                   SA1    A4-B1                                                   ERRORS   1630
                               54541              SA5    A4+B1                                                   ERRORS   1631
           525  53240                             SA2    X4          RESTORE A2                                  ERRORS   1632
                     63610                        SB6    X1          RESTORE B6                                  ERRORS   1633
                          21422                   AX4    18                                                      ERRORS   1634
                               63350              SB3    X5          RESTORE B3                                  ERRORS   1635
           526  21122                             AX1    18                                                      ERRORS   1636
                     53340                        SA3    X4          RESTORE A3                                  ERRORS   1637
                          21522                   AX5    18                                                      ERRORS   1638
                               63510              SB5    X1          RESTORE B5                                  ERRORS   1639
           527  21422                             AX4    18                                                      ERRORS   1640
                     63250                        SB2    X5          RESTORE B2                                  ERRORS   1641
                          21122                   AX1    18                                                      ERRORS   1642
                               53440              SA4    X4          RESTORE A4                                  ERRORS   1643
           530  21522                             AX5    18                                                      ERRORS   1644
                     63410                        SB4    X1          RESTORE B4                                  ERRORS   1645
                          55111                   SA1    A1-B1                                                   ERRORS   1646
                               53550              SA5    X5          RESTORE A5                                  ERRORS   1647
                                                  ECHO   2,I=(2,3,4,5)                                           ERRORS   1648
                                                  BX.I   X1                                                      ERRORS   1649
                                                  SA1    A1-B1                                                   ERRORS   1650
           533  10611                             BX6    X1                                                      ERRORS   1651
                     5110000010 X                 SA1    SAVE+8                                                  ERRORS   1652
                               10711              BX7    X1          RESTORE X7                                  ERRORS   1653
           534  0400000507 +                      EQ     PWEX        EXIT..                                      ERRORS   1654
                                                                                                                 ERRORS   1655
  
  
  
  
                                        **        UEC -  UPDATE ERROR COUNT.                                     ERRORS   1657
                                        *                                                                        ERRORS   1658
                                        *         JUST TO KEEP THINGS STRAIGHT, THIS ROUTINE SHOULD BE CALLED    ERRORS   1659
                                        *         WHENEVER IT BECOMES NECESSARY TO ISOLATE THE ERRORS OCCURING   ERRORS   1660
                                        *         IN A STATEMENT.                                                ERRORS   1661
                                        *                                                                        ERRORS   1662
                                        *         ENTRY  (ERRORS) = COUNT OF (*FATAL) ERRORS IN PROGRAM-UNIT.    ERRORS   1663
                                        *                (ERR=F)  = COUNT OF (*FATAL) ERRORS IN STATEMENT.       ERRORS   1664
                                        *         EXIT   (ERRORS) UPDATED.                                       ERRORS   1665
                                        *                (ERR=F)  RESET.                                         ERRORS   1666
                                        *                                                                        ERRORS   1667
                                        *         USES   A1,A2,A6,A7  X1,X2,X6,X7                                ERRORS   1668
                                                                                                                 ERRORS   1669
                                                                                                                 ERRORS   1670
           535  0400400535 +             UEC      SUBR               ENTRY/EXIT...                               ERRORS   1671
           536  5110000000 X                      SA1    ERRORS                                                  ERRORS   1672
                          5120000311 +            SA2    ERR=F                                                   ERRORS   1673
           537  17777                             BX7    -0                                                      ERRORS   1674
                     36612                        IX6    X1+X2       UPDATE PROGRAM-UNIT ERROR COUNT             ERRORS   1675
                          54720                   SA7    A2                                                      ERRORS   1676
                               54610              SA6    A1                                                      ERRORS   1677
           540  5170000316 +                      SA7    E=TOTAL                                                 ERRORS   1678
                          0400000535 +            EQ     EXIT.                                                   ERRORS   1679
                                                                                                                 ERRORS   1680
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    54
                                                                      UEC 
  
                                                  LIST   D                                                       ERRORS   1681
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        PSP 
             0 X                        PSN 
             0 X                        PAR.EOS 
             0 X                        AFDEX 
             0 X                        DATA2 
             0 X                        DAT.Z 
             0 X                        PSP.C 
             0 X                        DIR8
             0 X                        DIRX
             0 X                        EQS8
             0 X                        FMT6A 
             0 X                        CUS.RET 
             0 X                        IFS11 
             0 X                        LST 
             0 X                        BUFERR
             0 X                        BLWA
             0 X                        CPM 
             0 X                        LST5
             0 X                        LVL8
             0 X                        CPM2
             0 X                        AFSX
             0 X                        END1B 
             0 X                        CKS65 
             0 X                        CKS67 
             0 X                        END1C 
             0 X                        END93 
             0 X                        CPM6
             0 X                        CKS 
             0 X                        CUSX
             0 X                        LCC66 
             0 X                        PPA4
             0 X                        PPA355
             0 X                        IMP.ER
             0 X                        PSP.Z 
             0 X                        CP.PW 
             0 X                        LINEBUF 
             0 X                        LDB 
             0 X                        BLL 
             0 X                        WINX
             0 X                        WIN 
  
                                        CONTENT OF LITERALS BLOCK.
  
           541  55555555555555555555
           542  06111414575555555572    FILL.    <
           543  06111414573555555573    FILL.2   >
           544  06111414573655555573    FILL.3   >
           545  04050611160504555574    DEFINED  @
           546  04251515314601220776    DUMMY-ARG^
           547  05162422314620245575    ENTRY-PT \
           550  05302405221601145575    EXTERNAL \
           551  05032350140315555574    ECS/LCM  @
           552  01222201315555555572    ARRAY    <
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    55
                                                                      LITERALS
  
           553  16011505141123245575    NAMELIST \
           554  05212511265755555573    EQUIV.   >
           555  03171515171655555573    COMMON   >
           556  26012211010214055575    VARIABLE \
           557  16172446260122555574    NOT-VAR  @
           560  22052425221623555574    RETURNS  @
           561  05302446232415245575    EXT-STMT \
           562  05162422315555555572    ENTRY    <
           563  05302405221601145776    EXTERNAL.^
           564  06251603241117165575    FUNCTION \
           565  02570557065755555573    B.E.F.   >
           566  23250222172524111605    SUBROUTINE
           567  23240124460625160376    STAT-FUNC^
           570  11162422111623110376    INTRINSIC^
           571  04175555555555555567    DO       &
           572  11161124110114555574    INITIAL  @
           573  14111511245555555572    LIMIT    <
           574  11160322051505162476    INCREMENT^
           575  20142523555555555571    PLUS     ?
           576  15111625235555555572    MINUS    <
           577  15251424112014315575    MULTIPLY \
           600  04112611040555555573    DIVIDE   >
           601  17161431555555555571    ONLY     ?
           602  41365555555555555567    63       &
           603  04251515315555555572    DUMMY    <
           604  01220725150516242376    ARGUMENTS^
           605  01220555555555555570    ARE      '
           606  20052215112424050476    PERMITTED^
           607  46465555555555555567    --       &
           610  05300305232355555573    EXCESS   >
           611  11071617220504555574    IGNORED  @
           612  01220725150516245575    ARGUMENT \
           613  20220526111725231431    PREVIOUSLY
           614  15252324555555555571    MUST     ?
           615  02050711165555555572    BEGIN    <
           616  27112410555555555571    WITH     ?
           617  14052424052255555573    LETTER   >
           620  05302005032405045575    EXPECTED \
           621  06172516045555555572    FOUND    <
           622  14050624555555555571    LEFT     ?
           623  20012205165555555572    PAREN    <
           624  17225555555555555567    OR       &
           625  03171515015555555572    COMMA    <
           626  11141405070114555574    ILLEGAL  @
           627  03100122010324052276    CHARACTER^
           630  01062405225555555572    AFTER    <
           631  22110710245555555572    RIGHT    <
           632  15112323200514140504    MISSPELLED
           633  13053127172204555574    KEYWORD  @
           634  01232325150504555574    ASSUMED  @
           635  06172255555555555570    FOR      '
           636  01165555555555555567    AN       &
           637  14112324555555555571    LIST     ?
           640  56555555555555555566    ,        !
           641  23311624013055555573    SYNTAX   >
           642  05222217225555555572    ERROR    <
           643  11165555555555555567    IN       &
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    56
                                                                      LITERALS
  
           644  10012605555555555571    HAVE     ?
           645  01245555555555555567    AT       &
           646  14050123245555555572    LEAST    <
           647  34555555555555555566    1        !
           650  16172455555555555570    NOT      '
           651  23240124051505162476    STATEMENT^
           652  05571757235755555573    E.O.S.   >
           653  20012201150524052276    PARAMETER^
           654  16011505555555555571    NAME     ?
           655  15112320140103050476    MISPLACED^
           656  05212501145555555572    EQUAL    <
           657  23110716555555555571    SIGN     ?
           660  10012355555555555570    HAS      '
           661  16251414555555555571    NULL     ?
           662  04050611161124111716    DEFINITION
           663  22050605220516030576    REFERENCE^
           664  15112323111607555574    MISSING  @
           665  22050325222311260576    RECURSIVE^
           666  17065555555555555567    OF       &
           667  11235555555555555567    IS       &
           670  25230504555555555571    USED     ?
           671  03011655555555555570    CAN      '
           672  17030325225555555572    OCCUR    <
           673  17160305555555555571    ONCE     ?
           674  24175555555555555567    TO       &
           675  01555555555555555566    A        !
           676  25161501240310050476    UNMATCHED^
           677  03172516245555555572    COUNT    <
           700  23111520140555555573    SIMPLE   >
           701  20220526111725235575    PREVIOUS \
           702  17260522221104040516    OVERRIDDEN
           703  25230107055555555572    USAGE    <
           704  03171606141103245575    CONFLICT \
           705  03011616172455555573    CANNOT   >
           706  02055555555555555567    BE       &
           707  14170306555555555571    LOCF     ?
           710  03171623240116245575    CONSTANT \
           711  05302022052323111716    EXPRESSION
           712  01162311555555555571    ANSI     ?
           713  22052125112205235575    REQUIRES \
           714  24100555555555555570    THE      '
           715  27172204555555555571    WORD     ?
           716  20220503112311171676    PRECISION^
           717  03171624221714555574    CONTROL  @
           720  06141727555555555571    FLOW     ?
           721  11162417555555555571    INTO     ?
           722  05160455555555555570    END      '
           723  14111605555555555571    LINE     ?
           724  42555555555555555566    7        !
           725  23311502171455555573    SYMBOL   >
           726  16171646555555555571    NON-     ?
           727  22052425221655555573    RETURN   >
           730  15011116555555555571    MAIN     ?
           731  20221707220115555574    PROGRAM  @
           732  01032423555555555571    ACTS     ?
           733  01235555555555555567    AS       &
           734  16171646011623115575    NON-ANSI \
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    57
                                                                      LITERALS
  
           735  24312005555555555571    TYPE     ?
           736  03171502111601241100    COMBINATI 
           737  17162355555555555570    ONS      '
           740  17200522012417225575    OPERATOR \
           741  06172215555555555571    FORM     ?
           742  02141703135555555572    BLOCK    <
           743  04012401555555555571    DATA     ?
           744  47241747555555555571    *TO*     ?
           745  11162405070522555574    INTEGER  @
           746  14010205145555555572    LABEL    <
           747  16251505221103555574    NUMERIC  @
           750  14170711030114555574    LOGICAL  @
           751  01160455555555555570    AND      '
           752  17200522011604235575    OPERANDS \
           753  15013155555555555570    MAY      '
           754  15113005045555555572    MIXED    <
           755  17200522011604555574    OPERAND  @
           756  25230555555555555570    USE      '
           757  50555555555555555566    /        !
           760  10171414052211241076    HOLLERITH^
           761  05300305050423555574    EXCEEDS  @
           762  34335555555555555567    10       &
           763  03100122010324052223    CHARACTERS
           764  11162617142611160776    INVOLVING^
           765  01232311071615051624    ASSIGNMENT
           766  15012313555555555571    MASK     ?
           767  15251424112014055575    MULTIPLE \
           770  06112223245555555572    FIRST    <
           771  05140515051624555574    ELEMENT  @
           772  01230655555555555570    ASF      '
           773  15170405140523235575    MODELESS \
           774  01232311071605045575    ASSIGNED \
           775  03171606141103242376    CONFLICTS^
           776  22050405061116112400    REDEFINIT 
           777  11171655555555555570    ION      '
          1000  04111505162311171676    DIMENSION^
          1001  11160411030124172276    INDICATOR^
          1002  03011414555555555571    CALL     ?
          1003  22172524111605555574    ROUTINE  @
          1004  23011505555555555571    SAME     ?
          1005  20220515012425220576    PREMATURE^
          1006  40333355555555555570    500      '
          1007  23140123105555555572    SLASH    <
          1010  16175555555555555567    NO       &
          1011  24052215555555555571    TERM     ?
          1012  32052217555555555571    ZERO     ?
          1013  02315555555555555567    BY       &
          1014  22052325142423555574    RESULTS  @
          1015  23052455555555555570    SET      '
          1016  11160611161124055575    INFINITE \
          1017  11160405061116112405    INDEFINITE
          1020  07220501240522555574    GREATER  @
          1021  24100116555555555571    THAN     ?
          1022  35474737434634555574    2**48-1  @
          1023  22050114555555555571    REAL     ?
          1024  17200522012411171676    OPERATION^
          1025  17260522061417275575    OVERFLOW \
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    58
                                                                      LITERALS
  
          1026  03171624111625055575    CONTINUE \
          1027  11152014110504555574    IMPLIED  @
          1030  14171720555555555571    LOOP     ?
          1031  14010205140504555574    LABELED  @
          1032  03171623240116242376    CONSTANTS^
          1033  24171755555555555570    TOO      '
          1034  06052755555555555570    FEW      '
          1035  26012211010214052376    VARIABLES^
          1036  06221715555555555571    FROM     ?
          1037  11161124110114113200    INITIALIZ 
          1040  05045555555555555567    ED       &
          1041  22052005012455555573    REPEAT   >
          1042  14171607052255555573    LONGER   >
          1043  06171414172711160776    FOLLOWING^
          1044  45555555555555555566    +        !
          1045  46555555555555555566    -        !
          1046  16052324111607555574    NESTING  @
          1047  23052001220124172276    SEPARATOR^
          1050  24101123555555555571    THIS     ?
          1051  14171607555555555571    LONG     ?
          1052  24222516030124050476    TRUNCATED^
          1053  11160405305555555572    INDEX    <
          1054  06171414172705045575    FOLLOWED \
          1055  14172705225555555572    LOWER    <
          1056  25202005225555555572    UPPER    <
          1057  17165555555555555567    ON       &
          1060  15012403105555555572    MATCH    <
          1061  23250223032211202476    SUBSCRIPT^
          1062  14052323555555555571    LESS     ?
          1063  22050605220516030504    REFERENCED
          1064  35474734424634555574    2**17-1  @
          1065  04170523555555555571    DOES     ?
          1066  03171626052224050476    CONVERTED^
          1067  17032401145555555572    OCTAL    <
          1070  05302017160516245575    EXPONENT \
          1071  40343555555555555570    512      '
          1072  06110514045555555572    FIELD    <
          1073  04110711242355555573    DIGITS   >
          1074  04110711245555555572    DIGIT    <
          1075  36555555555555555566    3        !
          1076  04111505162311171623    DIMENSIONS
          1077  23113205555555555571    SIZE     ?
          1100  20221117225555555572    PRIOR    <
          1101  22052401111605045575    RETAINED \
          1102  04050314012201241100    DECLARATI 
          1103  16050701241126055575    NEGATIVE \
          1104  11541534561535561536    I=M1,M2,M3
          1105  15345615355555555572    M1,M2    <
          1106  24221120555555555571    TRIP     ?
          1107  14012207055555555572    LARGE    <
          1110  20172311241126055575    POSITIVE \
          1111  22050405061116052376    REDEFINES^
          1112  24052215111601240504    TERMINATED
          1113  02050617220555555573    BEFORE   >
          1114  17252405225555555572    OUTER    <
          1115  22050405061116050476    REDEFINED^
          1116  03252222051624555574    CURRENT  @
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    59
                                                                      LITERALS
  
          1117  14171720235555555572    LOOPS    <
          1120  03171603142523111716    CONCLUSION
          1121  03171520111405045575    COMPILED \
          1122  24221126110114555574    TRIVIAL  @
          1123  24220116230605225575    TRANSFER \
          1124  11162311040555555573    INSIDE   >
          1125  03141723050455555573    CLOSED   >
          1126  22011607055555555572    RANGE    <
          1127  20172323110214055575    POSSIBLE \
          1130  17252423110405555574    OUTSIDE  @
          1131  05212511260114051600    EQUIVALEN 
          1132  03055555555555555567    CE       &
          1133  15172205555555555571    MORE     ?
          1134  07221725205555555572    GROUP    <
          1135  15051502052255555573    MEMBER   >
          1136  22050425160401162476    REDUNDANT^
          1137  23200503110611030100    SPECIFICA 
          1140  24111716555555555571    TION     ?
          1141  23250223032211202423    SUBSCRIPTS
          1142  05302405162311171676    EXTENSION^
          1143  17221107111655555573    ORIGIN   >
          1144  04050314012205045575    DECLARED \
          1145  06172215012455555573    FORMAT   >
          1146  24052215111601145575    TERMINAL \
          1147  44555555555555555566    9        !
          1150  14052605142355555573    LEVELS   >
          1151  01141417270504555574    ALLOWED  @
          1152  04052303221120241722    DESCRIPTOR
          1153  24555555555555555566    T        !
          1154  03170405555555555571    CODE     ?
          1155  22052305242355555573    RESETS   >
          1156  03171425151655555573    COLUMN   >
          1157  20171116240522555574    POINTER  @
          1160  17260522140131111607    OVERLAYING
          1161  22052305245555555572    RESET    <
          1162  23110716050455555573    SIGNED   >
          1163  20555555555555555566    P        !
          1164  30555555555555555566    X        !
          1165  23555555555555555566    S        !
          1166  23200503110611050476    SPECIFIED^
          1167  23131120555555555571    SKIP     ?
          1170  20220503050405045575    PRECEDED \
          1171  03171626052223111716    CONVERSION
          1172  27110424105555555572    WIDTH    <
          1173  15111611152515555574    MINIMUM  @
          1174  04050311150114555574    DECIMAL  @
          1175  20171116245555555572    POINT    <
          1176  14051607241055555573    LENGTH   >
          1177  22052125112205045575    REQUIRED \
          1200  54555555555555555566    =        !
          1201  10555555555555555566    H        !
          1202  23030116555555555571    SCAN     ?
          1203  23241720200504555574    STOPPED  @
          1204  22050317220455555573    RECORD   >
          1205  03171425151623555574    COLUMNS  @
          1206  34364255555555555570    137      '
          1207  05300305050455555573    EXCEED   >
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    60
                                                                      LITERALS
  
          1210  11501755555555555570    I/O      '
          1211  04052611030555555573    DEVICE   >
          1212  25161316172716555574    UNKNOWN  @
          1213  22052325150523555574    RESUMES  @
          1214  16053024555555555571    NEXT     ?
          1215  16251502052255555573    NUMBER   >
          1216  07175555555555555567    GO       &
          1217  17021205032455555573    OBJECT   >
          1220  11065555555555555567    IF       &
          1221  03171520252405045575    COMPUTED \
          1222  24220116230605222376    TRANSFERS^
          1223  11242305140655555573    ITSELF   >
          1224  04051411151124052276    DELIMITER^
          1225  04051411151124050476    DELIMITED^
          1226  23242211160755555573    STRING   >
          1227  35555555555555555566    2        !
          1230  02220116031055555573    BRANCH   >
          1231  24052215111601241722    TERMINATOR
          1232  24221725021405555574    TROUBLE  @
          1233  23240122240504555574    STARTED  @
          1234  14012324555555555571    LAST     ?
          1235  03171520140530555574    COMPLEX  @
          1236  01221124101505241103    ARITHMETIC
          1237  15011631555555555571    MANY     ?
          1240  14010205142355555573    LABELS   >
          1241  25161124555555555571    UNIT     ?
          1242  04052311071601241722    DESIGNATOR
          1243  05302422011605172523    EXTRANEOUS
          1244  05302422015555555572    EXTRA    <
          1245  06111405555555555571    FILE     ?
          1246  14050701145555555572    LEGAL    <
          1247  25160617221501240504    UNFORMATED
          1250  04112205032405045575    DIRECTED \
          1251  02250606052255555573    BUFFER   >
          1252  04112205032411171676    DIRECTION^
          1253  17252455555555555570    OUT      '
          1254  20012211243155555573    PARITY   >
          1255  01040422052323555574    ADDRESS  @
          1256  26011425055555555572    VALUE    <
          1257  06270155555555555570    FWA      '
          1260  14270155555555555570    LWA      '
          1261  03140123235555555572    CLASS    <
          1262  11162025245555555572    INPUT    <
          1263  22050425030504555574    REDUCED  @
          1264  06172215012424050476    FORMATTED^
          1265  17252420252455555573    OUTPUT   >
          1266  23240124051505162423    STATEMENTS
          1267  27100516555555555571    WHEN     ?
          1270  25231116075555555572    USING    <
          1271  05160317040555555573    ENCODE   >
          1272  04050317040555555573    DECODE   >
          1273  06171414172755555573    FOLLOW   >
          1274  14052605145555555572    LEVEL    <
          1275  05260522315555555572    EVERY    <
          1276  24100124555555555571    THAT     ?
          1277  06172224220116555574    FORTRAN  @
          1300  05300503252401021405    EXECUTABLE
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    61
                                                                      LITERALS
  
          1301  23250220221707220115    SUBPROGRAM
          1302  34445555555555555567    19       &
          1303  03171624111625012400    CONTINUAT 
          1304  03012204235555555572    CARDS    <
          1305  03504614112324555574    C/-LIST  @
          1306  04112205032411260576    DIRECTIVE^
          1307  01022305162455555573    ABSENT   >
          1310  10050104052255555573    HEADER   >
          1311  03012204555555555571    CARD     ?
          1312  11152014110311245575    IMPLICIT \
          1313  26052355555555555570    VES      '
          1314  02140116135555555572    BLANK    <
          1315  27052205555555555571    WERE     ?
          1316  20052255555555555570    PER      '
          1317  14170104052255555573    LOADER   >
          1320  24010214055555555572    TABLE    <
          1321  11160322050123055575    INCREASE \
          1322  22052225165555555572    RERUN    <
          1323  24220111141116075575    TRAILING \
          1324  02252455555555555570    BUT      '
          1325  23052125051603055575    SEQUENCE \
          1326  03171515051624555574    COMMENT  @
          1327  20012410555555555571    PATH     ?
          1330  05162411220555555573    ENTIRE   >
          1331  03171624011116050476    CONTAINED^
          1332  23240122245755555573    START.   >
          1333  17160555555555555570    ONE      '
          1334  40555555555555555566    5        !
          1335  03171624011116235575    CONTAINS \
          1336  20220503050504050476    PRECEEDED^
          1337  03171623112324051624    CONSISTENT
          1340  15170405555555555571    MODE     ?
          1341  01072205055555555572    AGREE    <
          1342  14110222012231555574    LIBRARY  @
          1343  02012311035555555572    BASIC    <
          1344  42335555555555555567    70       &
          1345  20012523055555555572    PAUSE    <
          1346  35333336025555555572    2003B    <
          1347  36413333333302555574    360000B  @
          1350  37445555555555555567    49       &
          1351  06111405235555555572    FILES    <
          1352  04050601251424555574    DEFAULT  @
          1353  23110405555555555571    SIDE     ?
          1354  24312011160755555573    TYPING   >
          1355  23240116040122045575    STANDARD \
          1356  23101722245555555572    SHORT    <
          1357  06172215235555555572    FORMS    <
          1360  17200522012417222376    OPERATORS^
          1361  47475555555555555567    **       &
          1362  22011123050455555573    RAISED   >
          1363  20172705225555555572    POWER    <
          1364  22052325142455555573    RESULT   >
          1365  05260114250124111716    EVALUATION
          1366  27111414555555555571    WILL     ?
          1367  03171520111405555574    COMPILE  @
          1370  55011623115555555555     ANSI 
          1371  55060124011455555555     FATAL
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    62
                                                                      LITERALS
  
          1372  55031715201114055555     COMPILE
          1373  55161724055555555555     NOTE 
          1374  55464646464655555555     -----
          1375  55270122161116075555     WARNING
          1376  16232404000000000000    NSTD
          1377  47555555555555555555    * 
  
          3105                                    END                                                            ERRORS   1682
  
                             60400B CM  STORAGE USED            72578 STATEMENTS     1323 SYMBOLS 
                               PARALLEL CPU ASSEMBLY           47.449 SECONDS        2231 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AFDEX           0   EXTERNAL*      14/10
        AFSX            0   EXTERNAL*      33/09
        ANSI8         317   PROGRAM*       45/07 L   45/11
        ANSI=         320   PROGRAM*        4/19 E   45/09 L
        ANSI.SW       321   PROGRAM*        4/19 E   45/10 L
        BINOUT          0   EXTERNAL*       4/34 X   50/32
        BLL             0   EXTERNAL*      50/23
        BLWA            0   EXTERNAL*      29/38
        BUFERR          0   EXTERNAL*      29/29     29/30     29/32     29/33     29/34     29/35     29/36     29/40
        CDD             0   EXTERNAL*       4/34 X
        CHAR            6   TSTEXT         33/16     45/52     46/24     46/50     47/43     49/03     49/16     50/17
                                           45/38     46/02     46/45     47/16     47/49     49/04     50/11     51/40
                                           45/49     46/23     46/48     47/41     48/01     49/08     50/12     51/50
        CHARMAP         0   EXTERNAL*       4/34 X   46/33
        CKS             0   EXTERNAL*      33/35
        CKS65           0   EXTERNAL*      33/27
        CKS67           0   EXTERNAL*      33/28
        CLASS         545   PROGRAM*        4/20 E
        CON.DPC       575   PROGRAM*        4/20 E
        CPM             0   EXTERNAL*      29/46     33/04
        CPM2            0   EXTERNAL*      33/07
        CPM6            0   EXTERNAL*      33/32
        CP.PW           0   EXTERNAL*      47/26     50/01
        CRJ             0   EXTERNAL*       4/46 X
        CUSX            0   EXTERNAL*      33/56
        CUS.RET         0   EXTERNAL*      26/07
        C.SYM      200000   TSTEXT         51/35
        DATA2           0   EXTERNAL*      19/06     19/07
        DAT.Z           0   EXTERNAL*      19/10     19/14     19/21     19/31     19/34     19/39
                                           19/11     19/15     19/23     19/32     19/36     19/40
                                           19/13     19/17     19/24     19/33     19/38
        DIMSYM          0   EXTERNAL*       4/49 X   51/31
        DIRX            0   EXTERNAL*      21/16
        DIR8            0   EXTERNAL*      21/07     21/08     21/10     21/11     21/19     21/21
        DLAB            0   EXTERNAL*       4/43 X   38/03
        DODO            0   EXTERNAL*       4/43 X   38/12
        DO.DPC        571   PROGRAM*        4/21 E
        DT.BIAS        65                   9/25 D   45/48     46/01     46/25     48/03     48/05
        END1B           0   EXTERNAL*      33/21
        END1C           0   EXTERNAL*      33/29
        END93           0   EXTERNAL*      33/30     33/51
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        EQS8            0   EXTERNAL*      23/05     23/06     23/07     23/08     23/09
        ERRORS          0   EXTERNAL*       4/34 X   53/49
        ERRTYP        300   PROGRAM*       44/13 L   47/15
        ERR=A         307   PROGRAM*       44/26 L
        ERR=C         310   PROGRAM*       44/26 L
        ERR=F         311   PROGRAM*        4/22 E   44/26 L   50/31     53/50
        ERR=K         312   PROGRAM*       44/26 L
        ERR=N         313   PROGRAM*       44/26 L
        ERR=P         314   PROGRAM*       44/26 L
        ERR=W         315   PROGRAM*       44/26 L
        ERR.A           0                  15/04     16/13     19/12     25/11     25/28     28/06     36/06     42/07
                                           15/05     16/14     19/19     25/14     25/32     28/14     36/11     42/35
                                           15/06     16/15     19/20     25/15     26/10     29/24     39/08     44/16 L
                                           15/07     16/20     19/41     25/18     26/12     29/26     39/09
                                           15/08     16/33     20/05     25/19     26/16     30/04     39/28
                                           15/09     17/05     21/26     25/20     26/18     30/07     39/29
                                           15/11     19/04     22/16     25/24     27/09     33/27     39/30
                                           15/12     19/09     22/27     25/26     28/05     33/28     41/13
        ERR.C           1                  19/31     44/17 L
        ERR.F           2                  13/07     17/07     20/07     23/18     28/18     30/18     33/23     39/13
                                           13/09     17/08     21/04     23/20     28/19     30/19     33/30     39/14
                                           13/10     17/10     21/08     23/23     29/04     30/21     33/35     39/16
                                           13/11     17/11     21/10     24/05     29/06     30/23     33/36     39/17
                                           13/12     18/06     21/11     25/05     29/08     30/24     33/44     40/05
                                           13/15     18/12     21/13     25/06     29/11     30/26     33/47     40/14
                                           13/17     18/14     21/18     25/07     29/12     30/27     33/48     40/20
                                           13/18     18/16     21/19     25/13     29/15     31/04     33/50     41/04
                                           13/19     18/17     21/21     25/21     29/16     31/05     34/03     41/06
                                           13/20     19/05     21/24     25/22     29/19     31/06     34/11     41/08
                                           13/22     19/10     21/25     25/33     29/21     31/07     36/10     41/10
                                           14/04     19/11     21/27     25/34     29/23     31/08     36/13     41/12
                                           14/08     19/13     21/28     25/37     29/25     32/06     37/04     41/15
                                           14/10     19/14     22/04     25/39     29/27     32/07     37/05     41/18
                                           14/14     19/15     22/05     25/40     29/29     32/08     37/06     42/05
                                           14/16     19/17     22/07     25/41     29/30     32/10     37/08     42/08
                                           14/18     19/21     22/08     25/43     29/32     32/19     37/10     42/09
                                           14/20     19/23     22/09     25/45     29/33     32/20     37/12     42/10
                                           14/24     19/24     22/10     26/04     29/34     32/21     37/13     42/11
                                           14/34     19/25     22/11     26/05     29/35     32/24     37/15     42/14
                                           15/22     19/26     22/13     26/09     29/36     32/25     37/16     42/17
                                           16/04     19/27     22/14     26/17     29/40     32/27     37/18     42/18
                                           16/06     19/28     22/18     27/04     29/43     32/30     37/19     42/26
                                           16/07     19/29     22/21     27/05     29/44     32/32     37/21     42/27
                                           16/11     19/30     22/23     27/06     29/45     32/34     37/23     42/30
                                           16/12     19/32     22/25     27/07     29/46     33/04     37/25     42/33
                                           16/16     19/33     23/04     28/04     29/48     33/05     37/26     42/37
                                           16/19     19/34     23/05     28/07     29/49     33/07     37/28     42/38
                                           16/29     19/36     23/06     28/12     29/51     33/09     37/30     43/04
                                           16/30     19/39     23/07     28/13     29/53     33/12     37/31     43/05
                                           16/32     19/40     23/08     28/15     30/05     33/19     39/06     44/18 L
                                           17/04     20/04     23/09     28/16     30/15     33/20     39/10
                                           17/06     20/06     23/17     28/17     30/17     33/22     39/12
        ERR.K           3                  44/03     44/19 L
        ERR.N           4                  14/06     18/04     18/10     20/08     24/04     29/50     36/04     39/27
                                           14/12     18/05     18/11     22/15     26/07     32/28     36/08     43/06
                                           15/10     18/08     18/25     22/19     26/08     34/09     37/32     43/07
                                           16/09     18/09     19/06     22/24     26/15     34/12     39/26     44/20 L
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        ERR.P           5                  33/21     33/29     33/32     33/51     41/17     44/21 L
        ERR.W           6                  13/13     19/22     23/16     26/14     29/38     34/02     40/06     42/28
                                           13/14     19/38     23/21     28/09     30/06     35/04     40/08     42/41
                                           14/22     20/09     24/06     28/10     32/22     35/06     40/10     42/42
                                           15/20     20/10     24/07     29/07     33/11     35/07     40/12     43/08
                                           15/21     21/16     25/04     29/09     33/25     35/08     40/16     44/22 L
                                           15/23     21/22     25/09     29/10     33/33     35/09     40/18
                                           16/17     22/06     25/16     29/13     33/45     37/27     42/04
                                           17/09     22/20     25/30     29/17     33/53     39/04     42/06
                                           19/07     22/28     25/35     29/20     33/56     39/25     42/12
                                           19/18     23/11     26/06     29/22     33/57     40/04     42/16
        E=TOTAL       316   PROGRAM*       44/27 L   53/55 S
        E.AC         1400   PROGRAM*       13/07 E   13/07 D
        E.AC3        1402   PROGRAM*       13/09 E   13/09 D
        E.AC4        1404   PROGRAM*       13/10 E   13/10 D
        E.AC5           0   PROGRAM*       13/11 E   13/11 L
        E.AC6           1   PROGRAM*       13/12 E   13/12 L
        E.AC8        1411   PROGRAM*       13/13 E   13/13 D
        E.AC9        1413   PROGRAM*       13/14 E   13/14 D
        E.ADP        1461   PROGRAM*       15/04 E   15/04 D
        E.AES        1463   PROGRAM*       15/05 E   15/05 D
        E.AF10       1445   PROGRAM*       14/16 E   14/16 D
        E.AF11         12   PROGRAM*       14/18 E   14/18 L
        E.AF15         13   PROGRAM*       14/20 E   14/20 L
        E.AF16       1453   PROGRAM*       14/22 E   14/22 D
        E.AF17         14   PROGRAM*       14/24 E   14/24 L
        E.AF3           6   PROGRAM*       14/04 E   14/04 L
        E.AF4           7   PROGRAM*       14/06 E   14/06 L
        E.AF5          10   PROGRAM*       14/08 E   14/08 L
        E.AF6          11   PROGRAM*       14/10 E   14/10 L
        E.AF7        1441   PROGRAM*       14/12 E   14/12 D
        E.AF9        1443   PROGRAM*       14/14 E   14/14 D
        E.ANS        1465   PROGRAM*       15/06 E   15/06 D
        E.ANS1         15   PROGRAM*       15/07 E   15/07 L
        E.ANS2       1471   PROGRAM*       15/08 E   15/08 D
        E.ANS3       1475   PROGRAM*       15/11 E   15/11 D
        E.ANS4       1477   PROGRAM*       15/12 E   15/12 D
        E.AP            2   PROGRAM*       13/15 E   13/15 L
        E.AP1           3   PROGRAM*       13/17 E   13/17 L
        E.ART          16   PROGRAM*       15/09 E   15/09 L
        E.ART1         17   PROGRAM*       15/09     15/10 E   15/10 L
        E.AS2        1501   PROGRAM*       15/20 E   15/20 D
        E.AS3        1502   PROGRAM*       15/21 E   15/21 D
        E.AS4          20   PROGRAM*       15/22 E   15/22 L
        E.AS5        1505   PROGRAM*       15/23 E   15/23 D
        E.AT1        1507   PROGRAM*       16/04 E   16/04 D
        E.AT1A       1511   PROGRAM*       16/06 E   16/06 D
        E.AT10       1530   PROGRAM*       16/16 E   16/16 D
        E.AT11       1532   PROGRAM*       16/17 E   16/17 D
        E.AT12       1534   PROGRAM*       16/19 E   16/19 D
        E.AT13       1536   PROGRAM*       16/20 E   16/20 D
        E.AT2        1513   PROGRAM*       16/07 E   16/07 D
        E.AT3        1515   PROGRAM*       16/09 E   16/09 D
        E.AT5        1517   PROGRAM*       16/11 E   16/11 D
        E.AT6        1521   PROGRAM*       16/12 E   16/12 D
        E.AT7        1523   PROGRAM*       16/13 E   16/13 D
        E.AT8        1524   PROGRAM*       16/14 E   16/14 D
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        E.AT9        1526   PROGRAM*       16/15 E   16/15 D
        E.CL           21   PROGRAM*       16/29 E   16/29 L
        E.CL1          22   PROGRAM*       16/30 E   16/30 L
        E.CL2        1545   PROGRAM*       16/32 E   16/32 D
        E.CL3        1547   PROGRAM*       16/33 E   16/33 D
        E.CM           23   PROGRAM*       17/04 E   17/04 L
        E.CMA        1553   PROGRAM*       17/05 E   17/05 D
        E.CM1          24   PROGRAM*       17/06 E   17/06 L
        E.CM2          25   PROGRAM*       17/07 E   17/07 L
        E.CM3          26   PROGRAM*       17/08 E   17/08 L
        E.CM4          27   PROGRAM*       17/09 E   17/09 L
        E.CM5          30   PROGRAM*       17/10 E   17/10 L
        E.CM6          31   PROGRAM*       17/11 E   17/11 L
        E.CR1        1571   PROGRAM*       18/04 E   18/04 D
        E.CR10       1615   PROGRAM*       18/17 E   18/17 D
        E.CR2        1573   PROGRAM*       18/05 E   18/05 D
        E.CR3        1575   PROGRAM*       18/06 E   18/06 D
        E.CR3A       1577   PROGRAM*       18/08 E   18/08 D
        E.CR4        1601   PROGRAM*       18/09 E   18/09 D
        E.CR5        1603   PROGRAM*       18/10 E   18/10 D
        E.CR6        1605   PROGRAM*       18/11 E   18/11 D
        E.CR7        1607   PROGRAM*       18/12 E   18/12 D
        E.CR8        1611   PROGRAM*       18/14 E   18/14 D
        E.CR9        1613   PROGRAM*       18/16 E   18/16 D
        E.CT           32   PROGRAM*       18/25 E   18/25 L
        E.DAA        1621   PROGRAM*       19/04 E   19/04 D
        E.DACV         33   PROGRAM*       19/06 E   19/06 L
        E.DALV       1623   PROGRAM*       19/05 E   19/05 D
        E.DAR        1631   PROGRAM*       19/09 E   19/09 D
        E.DAUC         35   PROGRAM*       19/10 E   19/10 L
        E.DAVC         34   PROGRAM*       19/07 E   19/07 L
        E.DC         1722   PROGRAM*       20/04 E   20/04 D
        E.DCE          36   PROGRAM*       19/11 E   19/11 L
        E.DC1        1723   PROGRAM*       20/05 E   20/05 D
        E.DC2        1725   PROGRAM*       20/06 E   20/06 D
        E.DC3        1726   PROGRAM*       20/07 E   20/07 D
        E.DC6        1730   PROGRAM*       20/08 E   20/08 D
        E.DC8        1732   PROGRAM*       20/09 E   20/09 D
        E.DC9        1734   PROGRAM*       20/10 E   20/10 D
        E.DHC        1636   PROGRAM*       19/12 E   19/12 D
        E.DIL          37   PROGRAM*       19/13 E   19/13 L
        E.DIL1         40   PROGRAM*       19/14 E   19/14 L
        E.DIL2         41   PROGRAM*       19/15 E   19/15 L
        E.DIL3         42   PROGRAM*       19/17 E   19/17 L
        E.DM           66   PROGRAM*       21/04 E   21/04 L
        E.DMT          43   PROGRAM*       19/18 E   19/18 L
        E.DM0          67   PROGRAM*       21/04     21/05 L
        E.DM1          71   PROGRAM*       21/08 E   21/08 L
        E.DM10        101   PROGRAM*       21/24 E   21/24 L
        E.DM11       1764   PROGRAM*       21/25 E   21/25 D
        E.DM12       1766   PROGRAM*       21/26 E   21/26 D
        E.DM13       1767   PROGRAM*       21/27 E   21/27 D
        E.DM14       1771   PROGRAM*       21/28 E   21/28 D
        E.DM2          73   PROGRAM*       21/10 E   21/10 L
        E.DM2A         72   PROGRAM*        4/22 E   21/09 L
        E.DM3          74   PROGRAM*       21/11 E   21/11 L
        E.DM4        1746   PROGRAM*       21/13 E   21/13 D
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        E.DM5          75   PROGRAM*        4/22 E   21/15 L
        E.DM5A         76   PROGRAM*       21/16 E   21/16 L
        E.DM6        1752   PROGRAM*       21/18 E   21/18 D
        E.DM7          77   PROGRAM*       21/19 E   21/19 L
        E.DM8         100   PROGRAM*       21/21 E   21/21 L
        E.DM9        1760   PROGRAM*       21/22 E   21/22 D
        E.DNA        1652   PROGRAM*       19/19 E   19/19 D
        E.DNA2         44   PROGRAM*       19/20 E   19/20 L
        E.DO         1773   PROGRAM*       22/04 E   22/04 D
        E.DO1        1775   PROGRAM*       22/05 E   22/05 D
        E.DO11       2013   PROGRAM*       22/13 E   22/13 D
        E.DO12       2015   PROGRAM*       22/14 E   22/14 D
        E.DO13       2017   PROGRAM*       22/15 E   22/15 D
        E.DO16       2021   PROGRAM*       22/16 E   22/16 D
        E.DO17       2023   PROGRAM*       22/18 E   22/18 D
        E.DO18       2025   PROGRAM*       22/19 E   22/19 D
        E.DO2        1777   PROGRAM*       22/06 E   22/06 D
        E.DO23       2027   PROGRAM*       22/20 E   22/20 D
        E.DO24       2031   PROGRAM*       22/21 E   22/21 D
        E.DO25       2033   PROGRAM*       22/23 E   22/23 D
        E.DO25A      2035   PROGRAM*       22/24 E   22/24 D
        E.DO27       2037   PROGRAM*       22/25 E   22/25 D
        E.DO28       2041   PROGRAM*       22/27 E   22/27 D
        E.DO29       2043   PROGRAM*       22/28 E   22/28 D
        E.DO3        2001   PROGRAM*       22/07 E   22/07 D
        E.DO4        2003   PROGRAM*       22/08 E   22/08 D
        E.DO5        2005   PROGRAM*       22/09 E   22/09 D
        E.DO8        2007   PROGRAM*       22/10 E   22/10 D
        E.DO9        2011   PROGRAM*       22/11 E   22/11 D
        E.DSE          45   PROGRAM*       19/21 E   19/21 L
        E.DTC        1660   PROGRAM*       19/22 E   19/22 D
        E.DVL1         46   PROGRAM*       19/23 E   19/23 L
        E.DVL10      1720   PROGRAM*       19/41 E   19/41 D
        E.DVL2         47   PROGRAM*       19/24 E   19/24 L
        E.DVL21        50   PROGRAM*       19/25 E   19/25 L
        E.DVL22        51   PROGRAM*       19/26 E   19/26 L
        E.DVL23        52   PROGRAM*       19/27 E   19/27 L
        E.DVL24        53   PROGRAM*       19/28 E   19/28 L
        E.DVL25        54   PROGRAM*       19/29 E   19/29 L
        E.DVL26        55   PROGRAM*       19/30 E   19/30 L
        E.DVL29        56   PROGRAM*       19/25     19/26     19/27     19/28     19/29     19/30     19/31 E   19/31 L
        E.DVL3         57   PROGRAM*       19/32 E   19/32 L
        E.DVL4         60   PROGRAM*       19/33 E   19/33 L
        E.DVL5         61   PROGRAM*       19/34 E   19/34 L
        E.DVL6         62   PROGRAM*       19/36 E   19/36 L
        E.DVL7         63   PROGRAM*       19/38 E   19/38 L
        E.DVL8         64   PROGRAM*       19/39 E   19/39 L
        E.DVL9         65   PROGRAM*       19/40 E   19/40 L
        E.EQ          102   PROGRAM*       23/04 E   23/04 L
        E.EQ1         103   PROGRAM*       23/05 E   23/05 L
        E.EQ11       2060   PROGRAM*       23/16 E   23/16 D
        E.EQ12       2062   PROGRAM*       23/17 E   23/17 D
        E.EQ13       2064   PROGRAM*       23/18 E   23/18 D
        E.EQ14       2066   PROGRAM*       23/20 E   23/20 D
        E.EQ15       2070   PROGRAM*       23/21 E   23/21 D
        E.EQ16       2072   PROGRAM*       23/23 E   23/23 D
        E.EQ2         104   PROGRAM*       23/06 E   23/06 L
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        E.EQ3         105   PROGRAM*       23/07 E   23/07 L
        E.EQ4         106   PROGRAM*       23/08 E   23/08 L
        E.EQ5         107   PROGRAM*       23/09 E   23/09 L
        E.EQ6        2056   PROGRAM*       23/11 E   23/11 D
        E.EX1        2074   PROGRAM*       24/04 E   24/04 D
        E.EX2        2076   PROGRAM*       24/05 E   24/05 D
        E.EX3         110   PROGRAM*       24/06 E   24/06 L
        E.EX4        2101   PROGRAM*       24/07 E   24/07 D
        E.FA         1421   PROGRAM*       13/18 E   13/18 D
        E.FM          205   PROGRAM*       33/04 E   33/04 L
        E.FR         1423   PROGRAM*       13/19 E   13/19 D
        E.FS1         111   PROGRAM*       25/04 E   25/04 L
        E.FS10       2153   PROGRAM*       25/33 E   25/33 D
        E.FS11       2155   PROGRAM*       25/34 E   25/34 D
        E.FS11A      2157   PROGRAM*       25/35 E   25/35 D
        E.FS14       2161   PROGRAM*       25/37 E   25/37 D
        E.FS18       2163   PROGRAM*       25/39 E   25/39 D
        E.FS18A      2165   PROGRAM*       25/40 E   25/40 D
        E.FS2         112   PROGRAM*       25/05 E   25/05 L
        E.FS23       2166   PROGRAM*       25/41 E   25/41 D
        E.FS24       2170   PROGRAM*       25/43 E   25/43 D
        E.FS26       2172   PROGRAM*       25/45 E   25/45 D
        E.FS3        2106   PROGRAM*       25/06 E   25/06 D
        E.FS4        2110   PROGRAM*       25/07 E   25/07 D
        E.FS5        2112   PROGRAM*       25/09 E   25/09 D
        E.FS5A       2114   PROGRAM*       25/11 E   25/11 D
        E.FS6        2117   PROGRAM*       25/13 E   25/13 D
        E.FS6A       2121   PROGRAM*       25/14 E   25/14 D
        E.FS7        2122   PROGRAM*       25/15 E   25/15 D
        E.FS7A       2124   PROGRAM*       25/16 E   25/16 D
        E.FS7B       2126   PROGRAM*       25/18 E   25/18 D
        E.FS7C       2130   PROGRAM*       25/19 E   25/19 D
        E.FS8        2132   PROGRAM*       25/20 E   25/20 D
        E.FS8A       2134   PROGRAM*       25/21 E   25/21 D
        E.FS8B       2136   PROGRAM*       25/22 E   25/22 D
        E.FS8C       2141   PROGRAM*       25/24 E   25/24 D
        E.FS8D       2143   PROGRAM*       25/26 E   25/26 D
        E.FS8E       2145   PROGRAM*       25/28 E   25/28 D
        E.FS8F       2147   PROGRAM*       25/30 E   25/30 D
        E.FS9        2151   PROGRAM*       25/32 E   25/32 D
        E.GO          113   PROGRAM*       26/04 E   26/04 L
        E.GO1         114   PROGRAM*       26/05 E   26/05 L
        E.GO1A       2200   PROGRAM*       26/06 E   26/06 D
        E.GO10       2221   PROGRAM*       26/17 E   26/17 D
        E.GO11       2223   PROGRAM*       26/18 E   26/18 D
        E.GO2         115   PROGRAM*       26/07 E   26/07 L
        E.GO2A       2204   PROGRAM*       26/08 E   26/08 D
        E.GO3         116   PROGRAM*       26/09 E   26/09 L
        E.GO4        2210   PROGRAM*       26/10 E   26/10 D
        E.GO5        2212   PROGRAM*       26/12 E   26/12 D
        E.GO7        2214   PROGRAM*       26/14 E   26/14 D
        E.GO8        2215   PROGRAM*       26/15 E   26/15 D
        E.GO9        2217   PROGRAM*       26/16 E   26/16 D
        E.HC1        2225   PROGRAM*       27/04 E   27/04 D
        E.HC2        2227   PROGRAM*       27/05 E   27/05 D
        E.HC3        2231   PROGRAM*       27/06 E   27/06 D
        E.HC4        2232   PROGRAM*       27/07 E   27/07 D
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        E.HC5        2234   PROGRAM*       27/09 E   27/09 D
        E.IF          117   PROGRAM*       28/04 E   28/04 L
        E.IF1        2237   PROGRAM*       28/05 E   28/05 D
        E.IF10        123   PROGRAM*       28/16 E   28/16 L
        E.IF11        124   PROGRAM*       28/17 E   28/17 L
        E.IF12        125   PROGRAM*       28/18 E   28/18 L
        E.IF13        126   PROGRAM*       28/19 E   28/19 L
        E.IF2        2241   PROGRAM*       28/06 E   28/06 D
        E.IF3         120   PROGRAM*       28/07 E   28/07 L
        E.IF4        2245   PROGRAM*       28/09 E   28/09 D
        E.IF5        2247   PROGRAM*       28/10 E   28/10 D
        E.IF6         121   PROGRAM*       28/12 E   28/12 L
        E.IF7        2253   PROGRAM*       28/13 E   28/13 D
        E.IF8        2255   PROGRAM*       28/14 E   28/14 D
        E.IF9         122   PROGRAM*       28/15 E   28/15 L
        E.IN1        1457   PROGRAM*       14/34 E   14/34 D
        E.IO          127   PROGRAM*       29/04 E   29/04 L
        E.IOB1        143   PROGRAM*       29/29 E   29/29 L
        E.IOB10       153   PROGRAM*       29/40 E   29/40 L
        E.IOB2        144   PROGRAM*       29/30 E   29/30 L
        E.IOB3        145   PROGRAM*       29/32 E   29/32 L
        E.IOB4        146   PROGRAM*       29/33 E   29/33 L
        E.IOB5        147   PROGRAM*       29/34 E   29/34 L
        E.IOB7        150   PROGRAM*       29/35 E   29/35 L
        E.IOB8        151   PROGRAM*       29/36 E   29/36 L
        E.IOB9        152   PROGRAM*       29/38 E   29/38 L
        E.IOD1        154   PROGRAM*       29/43 E   29/43 L
        E.IOD2        155   PROGRAM*       29/44 E   29/44 L
        E.IOD3        156   PROGRAM*       29/45 E   29/45 L
        E.IOD4        157   PROGRAM*       29/46 E   29/46 L
        E.IOF        2405   PROGRAM*       30/04 E   30/04 D
        E.IOF1       2407   PROGRAM*       30/05 E   30/05 D
        E.IOL1       2374   PROGRAM*       29/48 E   29/48 D
        E.IOL2       2376   PROGRAM*       29/49 E   29/49 D
        E.IOL3       2400   PROGRAM*       29/50 E   29/50 D
        E.IOL4       2401   PROGRAM*       29/51 E   29/51 D
        E.IOL5        160   PROGRAM*       29/53 E   29/53 L
        E.ION         161   PROGRAM*       30/06 E   30/06 L
        E.ION1       2413   PROGRAM*       30/07 E   30/07 D
        E.IOS1        162   PROGRAM*       30/15 E   30/15 L
        E.IOS10       172   PROGRAM*       30/27 E   30/27 L
        E.IOS2        163   PROGRAM*       30/17 E   30/17 L
        E.IOS3        164   PROGRAM*       30/18 E   30/18 L
        E.IOS4        165   PROGRAM*       30/19 E   30/19 L
        E.IOS5        166   PROGRAM*       30/21 E   30/21 L
        E.IOS6        167   PROGRAM*       30/23 E   30/23 L
        E.IOS7        170   PROGRAM*       30/24 E   30/24 L
        E.IOS9        171   PROGRAM*       30/26 E   30/26 L
        E.IO1         130   PROGRAM*       29/06 E   29/06 L
        E.IO11        133   PROGRAM*       29/15 E   29/15 L
        E.IO12        134   PROGRAM*       29/16 E   29/16 L
        E.IO13        135   PROGRAM*       29/17 E   29/17 L
        E.IO14        136   PROGRAM*       29/19 E   29/19 L
        E.IO19       2320   PROGRAM*       29/20 E   29/20 D
        E.IO2        2275   PROGRAM*       29/07 E   29/07 D
        E.IO20        137   PROGRAM*       29/21 E   29/21 L
        E.IO21       2324   PROGRAM*       29/22 E   29/22 D
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        E.IO25        140   PROGRAM*       29/23 E   29/23 L
        E.IO26       2330   PROGRAM*       29/24 E   29/24 D
        E.IO27        141   PROGRAM*       29/25 E   29/25 L
        E.IO28       2334   PROGRAM*       29/26 E   29/26 D
        E.IO29        142   PROGRAM*       29/27 E   29/27 L
        E.IO3         131   PROGRAM*       29/08 E   29/08 L
        E.IO6        2300   PROGRAM*       29/09 E   29/09 D
        E.IO62       2302   PROGRAM*       29/10 E   29/10 D
        E.IO7         132   PROGRAM*       29/11 E   29/11 L
        E.IO8        2305   PROGRAM*       29/12 E   29/12 D
        E.IO9        2307   PROGRAM*       29/13 E   29/13 D
        E.LN          173   PROGRAM*       31/04 E   31/04 L
        E.LN1         174   PROGRAM*       31/05 E   31/05 L
        E.LN2         175   PROGRAM*       31/06 E   31/06 L
        E.LN3         176   PROGRAM*       31/07 E   31/07 L
        E.LN4         177   PROGRAM*       31/08 E   31/08 L
        E.LP1        2446   PROGRAM*       32/06 E   32/06 D
        E.LP2        2447   PROGRAM*       32/07 E   32/07 D
        E.LP3        2450   PROGRAM*       32/08 E   32/08 D
        E.LP4        2453   PROGRAM*       32/10 E   32/10 D
        E.LV1         200   PROGRAM*       32/19 E   32/19 L
        E.LV10       2503   PROGRAM*       32/32 E   32/32 D
        E.LV11       2505   PROGRAM*       32/34 E   32/34 D
        E.LV2         201   PROGRAM*       32/20 E   32/20 L
        E.LV3         202   PROGRAM*       32/21 E   32/21 L
        E.LV4         203   PROGRAM*       32/22 E   32/22 L
        E.LV5         204   PROGRAM*       32/24 E   32/24 L
        E.LV6        2470   PROGRAM*       32/25 E   32/25 D
        E.LV7        2473   PROGRAM*       32/27 E   32/27 D
        E.LV8        2475   PROGRAM*       32/28 E   32/28 D
        E.LV9        2500   PROGRAM*       32/30 E   32/30 D
        E.MA          206   PROGRAM*       33/05 E   33/05 L
        E.MB          207   PROGRAM*       33/07 E   33/07 L
        E.MCA         210   PROGRAM*       33/09 E   33/09 L
        E.MC1        2517   PROGRAM*       33/11 E   33/11 D
        E.MD          211   PROGRAM*        4/22 E   33/15 L
        E.MDO        2525   PROGRAM*       33/20 E   33/20 D
        E.ME          214   PROGRAM*       33/21 E   33/21 L
        E.MH          215   PROGRAM*       33/22 E   33/22 L
        E.MI          216   PROGRAM*       33/23 E   33/23 L
        E.MIJ         217   PROGRAM*       33/25 E   33/25 L
        E.MK          224   PROGRAM*       33/32 E   33/32 L
        E.ML         2550   PROGRAM*       33/33 E   33/33 D
        E.MLNL       2521   PROGRAM*       33/12 E   33/12 D
        E.MN          220   PROGRAM*       33/27 E   33/27 L
        E.MO1         225   PROGRAM*       33/35 E   33/35 L
        E.MO2        2553   PROGRAM*       33/36 E   33/36 D
        E.MRA        2562   PROGRAM*       33/48 E   33/48 D
        E.MR1         226   PROGRAM*       33/44 E   33/44 L
        E.MR2         227   PROGRAM*       33/45 E   33/45 L
        E.MR3         230   PROGRAM*       33/47 E   33/47 L
        E.MS         2564   PROGRAM*       33/50 E   33/50 D
        E.MT          231   PROGRAM*       33/51 E   33/51 L
        E.M$          221   PROGRAM*       33/28 E   33/28 L
        E.M$2         222   PROGRAM*       33/29 E   33/29 L
        E.M$3         223   PROGRAM*       33/30 E   33/30 L
        E.NLN        2567   PROGRAM*       33/53 E   33/53 D
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        E.NP          232   PROGRAM*       33/56 E   33/56 L
        E.NP1         233   PROGRAM*       33/57 E   33/57 L
        E.OV          234   PROGRAM*       34/02 E   34/02 L
        E.OV1         235   PROGRAM*       34/03 E   34/03 L
        E.OV3         236   PROGRAM*       34/09 E   34/09 L
        E.PN1        2603   PROGRAM*       34/11 E   34/11 D
        E.PN3        2605   PROGRAM*       34/12 E   34/12 D
        E.PT          237   PROGRAM*       35/04 E   35/04 L
        E.PT1         241   PROGRAM*       35/08 E   35/08 L
        E.PT2        2611   PROGRAM*       35/06 E   35/06 D
        E.PT3         240   PROGRAM*       35/07 E   35/07 L
        E.PT4         242   PROGRAM*       35/09 E   35/09 L
        E.RA            4   PROGRAM*       13/20 E   13/20 L
        E.RA1           5   PROGRAM*       13/22 E   13/22 L
        E.SB2        2621   PROGRAM*       36/04 E   36/04 D
        E.SB3        2623   PROGRAM*       36/06 E   36/06 D
        E.SB4        2625   PROGRAM*       36/08 E   36/08 D
        E.SB6        2627   PROGRAM*       36/10 E   36/10 D
        E.SB7        2631   PROGRAM*       36/11 E   36/11 D
        E.SB8        2633   PROGRAM*       36/13 E   36/13 D
        E.SN         2635   PROGRAM*       37/04 E   37/04 D
        E.SN1        2637   PROGRAM*       37/05 E   37/05 D
        E.SN10       2661   PROGRAM*       37/19 E   37/19 D   38/14
        E.SN12       2663   PROGRAM*       37/21 E   37/21 D
        E.SN13       2665   PROGRAM*       37/23 E   37/23 D
        E.SN14       2667   PROGRAM*       37/25 E   37/25 D
        E.SN15       2671   PROGRAM*       37/26 E   37/26 D
        E.SN16       2673   PROGRAM*       37/27 E   37/27 D
        E.SN17       2674   PROGRAM*       37/28 E   37/28 D   38/05
        E.SN18        243   PROGRAM*       37/30 E   37/30 L
        E.SN19       2700   PROGRAM*       37/31 E   37/31 D
        E.SN2        2641   PROGRAM*       37/06 E   37/06 D   38/03
        E.SN20       2702   PROGRAM*       37/32 E   37/32 D
        E.SN3        2643   PROGRAM*       37/08 E   37/08 D   38/03
        E.SN4        2645   PROGRAM*       37/10 E   37/10 D   38/04
        E.SN5        2647   PROGRAM*       37/12 E   37/12 D   38/04
        E.SN6        2651   PROGRAM*       37/13 E   37/13 D   38/05     38/12
        E.SN7        2653   PROGRAM*       37/15 E   37/15 D   38/13
        E.SN8        2655   PROGRAM*       37/16 E   37/16 D   38/13
        E.SN9        2657   PROGRAM*       37/18 E   37/18 D
        E.SPR        2730   PROGRAM*       39/25 E   39/25 D
        E.SPR1       2732   PROGRAM*       39/26 E   39/26 D
        E.SPR2       2734   PROGRAM*       39/27 E   39/27 D
        E.SPR3        252   PROGRAM*       39/28 E   39/28 L
        E.SPR4       2740   PROGRAM*       39/29 E   39/29 D
        E.SPR5       2742   PROGRAM*       39/30 E   39/30 D
        E.SU10       2722   PROGRAM*       39/14 E   39/14 D
        E.SU11       2724   PROGRAM*       39/16 E   39/16 D
        E.SU12       2726   PROGRAM*       39/17 E   39/17 D
        E.SU2        2703   PROGRAM*       39/04 E   39/04 D
        E.SU3        2705   PROGRAM*       39/06 E   39/06 D
        E.SU4        2710   PROGRAM*       39/08 E   39/08 D
        E.SU4A       2712   PROGRAM*       39/09 E   39/09 D
        E.SU6        2714   PROGRAM*       39/10 E   39/10 D
        E.SU8        2716   PROGRAM*       39/12 E   39/12 D
        E.SU9        2720   PROGRAM*       39/13 E   39/13 D
        E.TC1        2743   PROGRAM*       40/04 E   40/04 D
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        E.TC10        261   PROGRAM*       40/18 E   40/18 L
        E.TC11       2766   PROGRAM*       40/20 E   40/20 D
        E.TC2         253   PROGRAM*       40/05 E   40/05 L
        E.TC3         254   PROGRAM*       40/06 E   40/06 L
        E.TC4         255   PROGRAM*       40/08 E   40/08 L
        E.TC5        2753   PROGRAM*       40/10 E   40/10 D
        E.TC6         256   PROGRAM*       40/12 E   40/12 L
        E.TC7         257   PROGRAM*       40/14 E   40/14 L
        E.TC9         260   PROGRAM*       40/16 E   40/16 L
        E.TE1        2770   PROGRAM*       41/04 E   41/04 D
        E.TE2        2772   PROGRAM*       41/06 E   41/06 D
        E.TE2A       2776   PROGRAM*       41/10 E   41/10 D
        E.TE2B       2774   PROGRAM*       41/08 E   41/08 D
        E.TE3        3000   PROGRAM*       41/12 E   41/12 D
        E.TE4        3002   PROGRAM*       41/13 E   41/13 D
        E.TE5         262   PROGRAM*       41/15 E   41/15 L
        E.TE7        3006   PROGRAM*       41/17 E   41/17 D
        E.TE8        3010   PROGRAM*       41/18 E   41/18 D
        E.TT         3012   PROGRAM*       42/04 E   42/04 D
        E.TY          263   PROGRAM*       42/05 E   42/05 L
        E.TYA        3017   PROGRAM*       42/07 E   42/07 D
        E.TYH         264   PROGRAM*       42/08 E   42/08 L
        E.TYIK        265   PROGRAM*       42/09 E   42/09 L
        E.TYI1        266   PROGRAM*       42/10 E   42/10 L
        E.TYI2        267   PROGRAM*       42/11 E   42/11 L
        E.TYI3       3031   PROGRAM*       42/12 E   42/12 D
        E.TYI4       3033   PROGRAM*       42/14 E   42/14 D
        E.TYI5       3035   PROGRAM*       42/16 E   42/16 D
        E.TYI6        270   PROGRAM*       42/17 E   42/17 L
        E.TYI7        271   PROGRAM*       42/18 E   42/18 L
        E.TY1        3015   PROGRAM*       42/06 E   42/06 D
        E.UE          272   PROGRAM*       42/26 E   42/26 L
        E.UE1         273   PROGRAM*       42/27 E   42/27 L
        E.UE2        3047   PROGRAM*       42/28 E   42/28 D
        E.US1         274   PROGRAM*       42/30 E   42/30 L
        E.VA1        3054   PROGRAM*       42/33 E   42/33 D
        E.VA2        3056   PROGRAM*       42/35 E   42/35 D
        E.VA3         275   PROGRAM*       42/37 E   42/37 L
        E.VD         3062   PROGRAM*       42/38 E   42/38 D
        E.XC         3064   PROGRAM*       42/41 E   42/41 D
        E.XC1         276   PROGRAM*       42/42 E   42/42 L
        E.XP1        3070   PROGRAM*       43/04 E   43/04 D
        E.XP2        3072   PROGRAM*       43/05 E   43/05 D
        E.XP3        3074   PROGRAM*       43/06 E   43/06 D
        E.XP4        3076   PROGRAM*       43/07 E   43/07 D
        E.XP5        3100   PROGRAM*       43/08 E   43/08 D
        E.ZA          277   PROGRAM*       44/03 E   44/03 L
        FILL.         542   PROGRAM*        4/23 E   10/29     33/18 S   45/39     47/03 S   51/41 S
        FILL.2        543   PROGRAM*        4/23 E   51/57 S
        FILL.3        544   PROGRAM*        4/23 E   10/29
        FMT6A           0   EXTERNAL*      25/04
        IFS11           0   EXTERNAL*      28/15
        IMP.ER          0   EXTERNAL*      42/09     42/10     42/11     42/17     42/18
        ISN60           0   EXTERNAL*       4/43 X   38/04     38/12     38/13     38/14
        LABL            0   EXTERNAL*       4/43 X   38/05
        LBDO            0   EXTERNAL*      12/06 X   38/14
        LCC66           0   EXTERNAL*      34/09
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    72
        SYMBOLIC REFERENCE TABLE. 
  
        LDB             0   EXTERNAL*      49/51
        LINEBUF         0   EXTERNAL*      47/31 S   47/42 S   49/56     50/08
        LLN           354   PROGRAM*       13/07     17/11     19/32     25/11     28/05     29/40     33/21     39/16
                                           13/13     18/04     19/33     25/13     28/06     29/43     33/22     39/25
                                           13/17     18/05     19/39     25/14     28/09     29/44     33/23     39/26
                                           13/18     18/06     20/04     25/16     28/10     29/45     33/25     39/27
                                           13/19     18/08     20/05     25/18     28/12     29/48     33/27     39/28
                                           14/34     18/09     20/08     25/19     28/13     29/49     33/28     39/29
                                           15/04     18/10     20/09     25/21     28/14     29/50     33/29     39/30
                                           15/05     18/11     20/10     25/32     28/15     29/51     33/30     40/10
                                           15/06     18/14     21/04     25/33     28/16     29/53     33/33     40/14
                                           15/07     18/16     21/24     25/34     28/17     30/05     33/35     41/18
                                           15/09     18/17     22/04     25/35     28/18     30/06     33/36     42/06
                                           15/10     18/25     22/06     25/40     28/19     30/07     33/44     42/07
                                           15/23     19/06     22/08     25/41     29/06     30/23     33/47     42/08
                                           16/04     19/09     22/10     25/43     29/07     30/24     33/51     42/26
                                           16/06     19/11     22/13     25/45     29/08     30/26     33/53     42/27
                                           16/09     19/12     22/14     26/04     29/11     31/04     33/56     42/35
                                           16/11     19/13     22/15     26/05     29/12     31/05     33/57     43/04
                                           16/12     19/14     22/18     26/06     29/15     31/08     34/02     43/05
                                           16/13     19/15     22/19     26/07     29/16     32/06     34/03     43/06
                                           16/14     19/17     22/20     26/08     29/19     32/07     34/09     43/07
                                           16/15     19/18     22/23     26/10     29/21     32/19     34/11     43/08
                                           16/17     19/19     22/24     26/12     29/23     32/20     34/12     44/03
                                           16/19     19/20     22/25     26/14     29/24     32/21     35/06     46/11
                                           16/29     19/21     22/27     26/15     29/25     32/24     35/07     47/08 L
                                           16/33     19/24     22/28     26/16     29/26     33/04     35/08
                                           17/04     19/25     23/04     26/17     29/27     33/05     35/09
                                           17/05     19/26     23/11     26/18     29/29     33/07     37/05
                                           17/06     19/27     25/04     27/04     29/30     33/09     37/27
                                           17/07     19/28     25/05     27/05     29/35     33/11     37/30
                                           17/09     19/29     25/06     27/09     29/36     33/12     37/31
                                           17/10     19/30     25/09     28/04     29/38     33/20     37/32
        LLNA          462   PROGRAM*       47/10 S   49/27     50/34     50/46 L
        LLNS          322   PROGRAM*       13/09     16/07     21/11     23/18     27/07     36/08     39/04     41/13
                                           13/10     16/16     21/13     23/20     29/04     36/10     39/06     41/15
                                           13/11     16/20     21/16     23/21     29/10     36/11     39/08     41/17
                                           13/14     16/32     21/18     23/23     30/04     36/13     39/09     42/04
                                           14/04     18/12     21/19     24/04     30/18     37/04     39/10     42/05
                                           14/06     19/04     21/21     24/05     32/22     37/06     39/12     42/11
                                           14/08     19/05     21/22     24/07     32/25     37/08     39/13     42/12
                                           14/10     19/07     21/25     25/07     32/27     37/10     39/14     42/14
                                           14/12     19/10     21/26     25/15     32/28     37/12     40/04     42/16
                                           14/14     19/22     21/27     25/20     32/30     37/13     40/06     42/28
                                           14/16     19/23     21/28     25/22     32/32     37/15     40/08     42/30
                                           14/18     19/31     22/05     25/24     32/34     37/16     40/12     42/33
                                           14/22     19/34     22/07     25/26     33/19     37/18     40/16     42/37
                                           14/24     19/36     22/09     25/28     33/32     37/19     40/18     42/38
                                           15/08     19/38     22/11     25/30     33/48     37/21     41/04     45/36 L
                                           15/11     19/40     22/16     25/37     33/50     37/23     41/06     52/05
                                           15/12     19/41     22/21     25/39     35/04     37/25     41/08
                                           15/20     21/08     23/16     26/09     36/04     37/26     41/10
                                           15/21     21/10     23/17     27/06     36/06     37/28     41/12
        LLNS1         323   PROGRAM*       45/39 L   46/10
        LLNS3         330   PROGRAM*       45/51 L   45/55
        LLNS4         332   PROGRAM*       45/50     45/57 L
        LLNS5         334   PROGRAM*       45/44     45/53     46/07 L
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    73
        SYMBOLIC REFERENCE TABLE. 
  
        LLNV          336   PROGRAM*       13/12     16/30     23/07     29/13     29/34     30/27     39/17     42/18
                                           13/15     17/08     23/08     29/17     29/46     31/06     40/05     42/41
                                           13/20     20/06     23/09     29/20     30/15     31/07     40/20     42/42
                                           13/22     20/07     24/06     29/22     30/17     32/08     42/09     46/21 L
                                           14/20     23/05     28/07     29/32     30/19     32/10     42/10
                                           15/22     23/06     29/09     29/33     30/21     33/45     42/17
        LLNV03        342   PROGRAM*       46/28     46/33 L
        LLNV05        344   PROGRAM*       46/34     46/38 L
        LLNV1         341   PROGRAM*       46/30 L   46/47
        LLNV10        347   PROGRAM*       46/36     46/41     46/45 L   46/52
        LLNV20        352   PROGRAM*       46/32     46/55 L
        LLNV30        353   PROGRAM*       46/55     47/02 L
        LLN20         367   PROGRAM*       47/28     47/39 L
        LLN25         371   PROGRAM*       47/37     47/47 L
        LLN30         373   PROGRAM*       47/52 L   49/19     49/37
        LLN33         401   PROGRAM*       48/06     48/10 L
        LLN35         402   PROGRAM*       48/04     48/08     48/12 L
        LLN40         405   PROGRAM*       48/26 L   48/55
        LLN45         411   PROGRAM*       48/22     48/42 L
        LLN50         415   PROGRAM*       48/36     49/02 L
        LLN55         421   PROGRAM*       49/05     49/12 L
        LLN60         423   PROGRAM*       48/38     49/10     49/17 L
        LLN65         432   PROGRAM*       47/55     49/24     49/41 L
        LLN68         436   PROGRAM*       49/56 L
        LLN69         445   PROGRAM*       50/13 L   50/18     50/20
        LLN70         451   PROGRAM*       50/15     50/22 L
        LLN71         452   PROGRAM*       50/03     50/07     50/24 L
        LLN72         454   PROGRAM*       47/27     50/31 L
        LLN90         460   PROGRAM*       50/36     50/40 L
        LOP=F           0   EXTERNAL*       4/31 X   44/18     44/19     44/21
        LOP=N           0   EXTERNAL*       4/31 X   44/20
        LOP=W           0   EXTERNAL*       4/31 X   44/22
        LOP=X           0   EXTERNAL*       4/31 X   44/16
        LOP=1           0   EXTERNAL*       4/31 X   44/17     47/23 S
        LSL             0   EXTERNAL*       4/37 X
        LST             0   EXTERNAL*      29/17     29/21     29/23
        LST5            0   EXTERNAL*      29/53     30/06
        LVL8            0   EXTERNAL*      32/22
        L.CL           15                   4/24 E    5/49 D
        L.CLASS        17   TSTEXT          5/48
        L.ERTYPE        5                   6/25 D    6/26      6/30      6/31      6/32     47/13
        L.ERWORD       11                   6/24 D    6/29     47/52     47/56
        L.ERXIT        22                   6/27 D    6/33
        L.FILL          3                  10/29 D   45/37
        L.SYM          52   TSTEXT         45/36     51/34
        M.ERMORE       40                   6/26 D
        N.CLASS        11                   5/16 D    5/36 D    5/39 D    5/42 D    5/45 D    6/01      6/04      6/07
                                            5/34      5/37      5/40      5/43      5/46      6/01 D    6/04 D    6/07 D
                                            5/34 D    5/37 D    5/40 D    5/43 D    5/46 D    6/02      6/05
                                            5/35      5/38      5/41      5/44      5/48      6/02 D    6/05 D
                                            5/35 D    5/38 D    5/41 D    5/44 D    5/49      6/03      6/06
                                            5/36      5/39      5/42      5/45      5/50 D    6/03 D    6/06 D
        N.ERREST        6                   6/23 D   49/35
        N.ERRT          7                  44/24 L   47/22
        N.ER1ST         4                   6/22 D   47/48
        OSE           464   PROGRAM*        4/25 E   51/18 L
        OSEA          504   PROGRAM*       51/21     52/07 L
1       /ERRORS  DIAGNOSTIC PROCESSING.                               COMPASS 3.7-871.     24/05/02. 15.50.48.      PAGE    74
        SYMBOLIC REFERENCE TABLE. 
  
        OSEB          505   PROGRAM*       51/32     51/56     52/08 L
        OSE1          471   PROGRAM*       51/31 L   52/07
        OSE5          477   PROGRAM*       51/49 L   51/54
        PAR.EOS         0   EXTERNAL*      14/08
        PPA355          0   EXTERNAL*      40/08
        PPA4            0   EXTERNAL*      40/06     40/12     40/16     40/18
        PSN             0   EXTERNAL*      13/15     15/22     26/05     28/17     29/11     29/43     35/09     42/30
                                           13/17     16/29     26/09     28/18     29/15     29/44     37/30
                                           13/20     16/30     28/04     28/19     29/16     29/45     39/28
                                           13/22     18/25     28/07     29/04     29/19     33/57     41/15
                                           14/18     25/05     28/12     29/06     29/25     35/04     42/26
                                           15/10     26/04     28/16     29/08     29/27     35/07     42/27
        PSP             0   EXTERNAL*      13/11     17/04     19/18     30/18     31/04     32/21     33/44     40/14
                                           13/12     17/06     21/06     30/19     31/05     32/24     33/45     42/05
                                           14/04     17/07     21/24     30/21     31/06     33/05     33/47     42/08
                                           14/06     17/08     23/04     30/23     31/07     33/19     34/02     42/37
                                           14/20     17/09     24/06     30/24     31/08     33/22     34/03     42/42
                                           14/24     17/10     30/15     30/26     32/19     33/23     35/08
                                           15/07     17/11     30/17     30/27     32/20     33/25     40/05
        PSP.C           0   EXTERNAL*      19/20
        PSP.Z           0   EXTERNAL*      44/03
        PWE           507   PROGRAM*        4/26 E   45/07     51/24 S   51/27     52/21 L
        PWE1          524   PROGRAM*       50/43     53/03 L
        P.CLASS         3   TSTEXT          5/50
        P.ENT           5   TSTEXT          5/50
        P.ERMORE        5                   6/26 D   49/23
        P.ERTYPE       23                   6/25 D    6/31     47/11
        P.ERXIT         0                   6/27 D
        P.SATAG        52   TSTEXT         51/33
        SAVE            0   EXTERNAL*       4/52 X   49/47 S   49/53     52/22 S   53/03     53/26
        SAVLINE         0   EXTERNAL*       4/31 X
        STNTD         246   PROGRAM*        4/27 E   38/05 L
        STNTND        251   PROGRAM*        4/27 E   38/14 L
        S.ERR           0   EXTERNAL*       4/40 X
        TEST            0   TSTEXT         33/39 F
        TSF             0   EXTERNAL*       4/40 X
        TS.SYM          0   EXTERNAL*       4/34 X   51/36
        T.DLBUF         0   EXTERNAL*       4/34 X   49/41
        UEC           535   PROGRAM*        4/28 E   53/48 L
        WIN             0   EXTERNAL*      50/39 S
        WINX            0   EXTERNAL*      50/37
        WOF             0   EXTERNAL*       4/37 X   50/24
        .CMLOD          0   TSTEXT         33/37 F   34/04 F
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      263              IDENT  BATCH
                        263                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       251 
                                        LITERALS* LOCAL         251        12 
  
  
                                        ENTRY POINTS. 
  
                                        RUN5            74+           RUN.X           60+           FTN10            0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CP.CARD   RS.PD     L=TABLE   STAGE     CURST     LDRFLG    ENDFTN    CCNT
                                        CP.LSTF   BASES     MAXCORE   SYSERR    EQUA      CO.MODE   FVLEN     L.CARD
                                        CP.PAGE   BINOUT    MOD       TG.BASE   FCA       TL.PTYP   LFS.MAX   T.SB
                                        CP.PD     CARDS     MSF       TG.END    FTO       HDRBL     COD       LOP=R 
                                        LCP.PS    DOORD     NARGS     TP.DIM    OSTACK    NOLIST    CP.MXFL   CIO=
                                        FV.LGO    DRITE     NOPATH    TS.BLK    ESTACK    DFTA      GT1       BINIO 
                                        F.LF      ETF       NSK       TS.STN    HDELAY    STATIC    WTC=      WNB=
                                        F.LGO     ERRORS    NTRCNT    TS.SYM    SLIST     BLNKCOM   CP.BLF    MSG=
                                        PDFLAG    FLOW      N.TABLE   T.END     MVE       TYPF      TL.JECT   CER.FL
                                        F.OUT     FAILSFT   PARCEL    WNZ       LSTWRKG   PIGLINE   LDCOM     RNC 
                                        F.RMAP    HANGER    RATES     ERR=F     LSTMSTR   PIGLAB    LDB       TIMER 
                                        F.SB      IDENT     REFIO     PRS       L.MSTR    PASS      PLR       COMRET
                                        F.TABS    ICV       TEM.MAX   CPM       WIN       O=OTRA    PLO 
                                        O.STITL   IGS       RJTDUM    CPM=1ST   WININIT   NADD      AFS.ME
                                        TIME1     LCNT      RTNCNT    NAT.TYP   LOP=O     TYPD      RNS 
                                        W.TABS    LOSTREF   SIZES     CAR       CP.FLIN   TA.NAM    LASTCOL 
  
  
  
  
                                                  IDENT  BATCH                                                   BATCH       2
                                         BATCH    SECT   (MAIN BATCH CONTROL.),1                                 BATCH       3
  
                                                                                                                 BATCH       4
                                                  SST    A,C                                                     BATCH       5
                                                  NOREF  A,C                                                     BATCH       6
                                                                                                                 BATCH       7
                                         B=BATCH  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     BATCH       8
                                                                                                                 BATCH       9
                                                  ENTRY  RUN5,RUN.X                                              FCC1097     6
                                                                                                                 BATCH      11
                                        *         IN FTN                                                         BATCH      12
                                                  EXT     CP.CARD,CP.LSTF,CP.PAGE,CP.PD,LCP.PS,FV.LGO,F.LF       FCCA422    36
                                                  EXT     F.LGO,PDFLAG                                           FCCA422    37
                                                  EXT    F.OUT,F.RMAP,F.SB,F.TABS,O.STITL,TIME1,W.TABS           FEAT155E  108
                                                  EXT    RS.PD                                                   FCCA593    56
                                                                                                                 BATCH      15
                                        *         IN TABLES                                                      BATCH      16
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     2
  
  
                                                  EXT    BASES,BINOUT,CARDS,DOORD,DRITE,ETF,ERRORS               BATCH      17
                                                  EXT    FLOW,FAILSFT,HANGER,IDENT,ICV,IGS,LCNT,LOSTREF          FEAT155E  109
                                                  EXT    L=TABLE,MAXCORE,MOD,MSF,NARGS,NOPATH,NSK                FEAT155E  110
                                                  EXT    NTRCNT,N.TABLE,PARCEL,RATES,REFIO,TEM.MAX               BATCH      20
                                                  EXT    RJTDUM,RTNCNT,SIZES,STAGE,SYSERR,TG.BASE                FCC1495X    5
                                                  EXT    TG.END,TP.DIM,TS.BLK,TS.STN,TS.SYM,T.END,WNZ            BATCH      22
                                                                                                                 BATCH      23
                                        *         IN ERRORS                                                      BATCH      24
                                                  EXT    ERR=F                                                   FEAT126A  357
                                                                                                                 BATCH      26
                                        *         IN ALLOC                                                       BATCH      30
                                                  EXT    PRS                                                     BATCH      31
                                                                                                                 BATCH      32
                                        *         IN MAIN                                                        BATCH      33
                                                  EXT    CPM,CPM=1ST                                             FEAT155G  142
                                                                                                                 BATCH      35
                                        *         IN LEX                                                         BATCH      36
                                                  EXT    NAT.TYP                                                 BATCH      37
                                                                                                                 BATCH      38
                                        *         IN REG                                                         BATCH      39
                                                  EXT    CAR                                                     BATCH      40
                                                                                                                 BATCH      41
                                        *         IN PAR                                                         BATCH      42
                                                  EXT    CURST                                                   BATCH      43
                                                                                                                 BATCH      44
                                        *         IN INIT                                                        BATCH      45
                                                  EXT    EQUA,FCA,FTO,OSTACK,ESTACK                              FCCA594     8
                                                                                                                 BATCH      47
                                                                                                                 BATCH      48
                                        **        FTN10 - (1,0) OVERLAY ENTRY                                    BATCH      49
                                        *                                                                        BATCH      50
                                        *         BASED UPON WHAT HAS  GONE BEFORE                               BATCH      51
                                        *                                                                        BATCH      52
                                        *         EXITS TO *FCA* - IF RETURN FROM COMPASS ASSEMBLY               BATCH      53
                                        *               TO *RUN.X* - IF INITIAL (OR SUBSEQUENT) FORTRAN          BATCH      54
                                        *               TO *ENDRUN* - IF NO MORE SOURCE INPUT                    BATCH      55
                                        *               TO *ABORT* - IF SOURCE INPUT NULL                        BATCH      56
                                        *                                                                        BATCH      57
                                        *         ENTRY (B2) = 0 - UPON RETURN FROM COMPASS                      BATCH      58
                                        *                      1 - OTHERWISE                                     BATCH      59
                                                                                                                 BATCH      60
                                                                                                                 BATCH      61
                                        *         IF (BREAK=10) WAS SELECTED, ENTRY TO OVERLAY(1,0) WILL BE TO   FEAT155F  208
                                        *         *FTN10-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.  FEAT155F  209
                                                                                                                 FEAT155F  210
                                         FTN10    BREAK                                                          FEAT155F  211
                                                                                                                 FEAT155F  212
                                                  ENTRY  FTN10                                                   BATCH      62
             0                           FTN10    BSS    0           ** LOADER ENTRY POINT **                    BATCH      63
             0  5110000000 X                      SA1    CP.CARD                                                 FEAT155E  111
                          5120000000 X            SA2    =XCOMRET                                                FCCA519     8
             1  0322000003 +                      PL     X2,FTN10A   IF FIRST TIME THROUGH                       FCCA519     9
                          0311000000 X            NZ     X1,FCA      IF FTN AFTER COMPASS IDENT                  FCCA519    10
             2  0400000060 +                      EQ     RUN.X       TERMINATE IF COMPASS DETECTED EOR           FCCA519    11
                                                                                                                 FCCA519    12
             3  0100000000 X             FTN10A   RJ     FTO         (1,0) INITIALIZATION                        FCCA519    13
                                                                                                                 BATCH      67
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     3
  
  
             4  0100000000 X                      RJ     =XTIMER                                                 BATCH      68
             5  5160000000 X                      SA6    =XTIME1                                                 BATCH      69
                          0100000000 X            RJ     =XRNC       READ FIRST CARD                             BATCH      71
             6  0301000060 +                      ZR     X1,RUN.X    IF NO END-OF-SECTION                        BATCH      72
                                                                                                                 BATCH      73
                          5110000000 X            SA1    =XCER.FL                                                FCC2104    17
             7  7160000001                        SX6    1                                                       FCC2104    18
                          54610                   SA6    A1                                                      FCC2104    19
            10  7110000251 +                      MESAGE (=C= EMPTY INPUT FILE.  NO COMPILATION.=),,RCL          BATCH      74
            12  0400000125 +                      EQ     RUN7        CLOSE FILES                                 FCC1678X    4
  
  
  
  
                                        **        RUN1A - MAIN BATCH CONTROL.                                    BATCH      77
                                        *                                                                        BATCH      78
                                        *         DECIDES WHETHER TO TERMINATE COMPILATION, PASS CONTROL TO      BATCH      79
                                        *         *COMPASS*, OR BEGIN ANOTHER PROGRAM-UNIT.                      BATCH      80
                                        *                                                                        BATCH      81
                                        *         EXITS  TO *EOC* - IF END OF BATCH.                             BATCH      82
                                        *                TO *BCA* - IF INTERMIXED ASSEMBLY.                      BATCH      83
                                        *                TO *CPM* - IF MORE FORTRAN TO COMPILE.                  BATCH      84
                                        *                                                                        BATCH      85
                                        *         CALLS  IST, RECALL                                             BATCH      86
                                                                                                                 BATCH      87
                                                                                                                 BATCH      88
            13  5120000000 X             RUN1A    SA2    FV.LGO                                                  BATCH      89
                          0302000023 +            ZR     X2,RUN1B          IF BINARY SUPPRESSED                  BATCH      90
                                                                                                                 BATCH      91
                                         #RM      IFEQ   CP#RM,0                                                 BATCH      92
            14  7120000000 X                      RECALL F.LGO                                                   BATCH      93
                                         #RM      ENDIF                                                          BATCH      94
                                                                                                                 BATCH      95
            15  5110000000 X                      SA1    =XBINIO                                                 BATCH      96
                          13666                   BX6    0                                                       BATCH      97
            16  0321000023 +                      PL     X1,RUN1B    IF LF NOT SPILLED TO DISK                   BATCH      98
                          54610                   SA6    A1                                                      BATCH      99
            17  7120000000 X                      REWIND F.LF                                                    FCC1870     5
            21  7120000000 X                      CLOSE  F.LF,UNLOAD                                             BATCH     100
            23  5110000000 X             RUN1B    SA1    =XLOP=R                                                 FCC0644     5
                          0321000027 +            PL     X1,RUN1C    IF REF NOT SELECTED                         FCC0644     6
            24  5120000000 X                      SA2    REFIO                                                   FCC0644     7
                          0322000027 +            PL     X2,RUN1C    IF REF NOT SPILLED TO DISK                  BATCH     102
            25  43600                             MX6    0                                                       FCC0644     8
                     54620                        SA6    A2                                                      BATCH     103
                          7120000000 X            CLOSE  F.RMAP,UNLOAD                                           BATCH     104
            27  0100000136 +             RUN1C    RJ     IST         INITIALIZE SUBPROGRAM TABLES                FCC1829     6
            30  5110000000 X                      SA1    =XT.SB                                                  FCC1829     7
                          53010                   SA0    X1                                                      FCCA505     7
            31  5120000000 X             RUN1D    SA2    =XL.CARD     NUMBER OF WORDS IN LINE IMAGE              FCCA505     8
                          5150000000 X            SA5    =XCP.CARD                                               FCCA505     9
            32  43600                             MX6    0                                                       FCC1829    11
                     7070000005                   SX7    "SB.FWA"-1                                              FCC1829    12
            33  5160000000 X                      SA6    =XCCNT      CLEAR CONTINUATION COUNT                    FCC1829    13
                          14222                   BX2    -X2                                                     FCC1829    14
            34  5170000000 X                      SA7    =XLASTCOL   PRESTORE IN CASE OF C/-LIST                 FCC1829    15
                          63621                   =B6    X2+1        - NUMBER OF USABLE WORDS LESS TERMINATOR    FCC1829    16
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     4
                                                                      RUN1
  
            35  0100000000 X                      RJ     =XRNS       READ NEXT STATEMENT                         FCC1829    17
            36  0305000000 X                      ZR     X5,=XAFS.ME IF END OF SECTION                           FCC1829    18
                          0100000000 X            RJ     =XPLO       PROCESS C/-LIST OPTIONS                     FCC1829    19
            37  0305000000 X                      ZR     X5,=XAFS.ME IF END OF SECTION                           FCC1829    20
                          5150000255 +            SA5    =1H                                                     FCC1829    21
            40  5120000000 X                      SA2    CP.CARD                                                 FEAT155E  112
                          43044                   MX0    6*CHAR                                                  BATCH     107
                               54321              SA3    A2+B1                                                   BATCH     108
            41  5140000256 +                      SA4    =6LIDENT                                                BATCH     109
                          37125                   IX1    X2-X5                                                   BATCH     110
            42  0311000000 X                      NZ     X1,CPM      IF COLS 1-10 .NE. BLANKS, ENTER MASTER LOOP FCC1829    22
                          11603                   BX6    X0*X3                                                   BATCH     112
                               37446              IX4    X4-X6                                                   BATCH     113
            43  0304000054 +                      ZR     X4,RUN1F    IF COLS. 11-16 .EQ. IDENT, LOAD COMPASS     FCCA454     7
                          6130000006              SB3    6                                                       FCCA454     8
            44  5022000001               RUN1E    SA2    A2+1        CHECK NEXT 10 COLUMNS                       FCCA454     9
                          37125                   IX1    X2-X5                                                   FCCA454    10
            45  0311000000 X                      NZ     X1,CPM      IF NOT BLANK LINE, ENTER MASTER LOOP        FCCA454    11
                          67331                   SB3    B3-B1                                                   FCCA454    12
            46  0703000044 +                      GT     B3,RUN1E                                                FCCA454    13
                          5022000001              SA2    A2+1                                                    FCCA454    14
            47  43014                             MX0    2*CHAR                                                  FCCA454    15
                     5140000257 +                 SA4    =2L                                                     FCCA454    16
                               11602              BX6    X0*X2                                                   FCCA454    17
            50  37446                             IX4    X4-X6       CHECK COLS. 71 AND 72                       FCCA454    18
                     0314000000 X                 NZ     X4,CPM      IF NOT BLANK LINE, ENTER MASTER LOOP        FCCA454    19
            51  0100000000 X                      RJ     =XPLR       PROCESS LISTING REQUEST                     FCCA454    20
            52  0100000000 X                      RJ     =XRNC       READ NEXT CARD                              FCCA454    21
            53  0400000031 +                      EQ     RUN1D                                                   FCCA454    22
            54  0100000000 X             RUN1F    RJ     =XLDB       LIST DEFERRED BUFFER(IF ANY)                FCCA454    23
            55  7120000000 X                      WRITER =XF.OUT,RCL                                             BATCH     115
            57  0400000000 X                      EQ     =XLDCOM     LOAD COMPASS (1,0)                          BATCH     116
                                                                                                                 BATCH     119
                                                                                                                 BATCH     120
                                        **        RUN.X -  EXIT FROM PROGRAM-UNIT COMPILATION.                   BATCH     121
                                        *                                                                        BATCH     122
                                        *         ENTRY  PREVIOUS COMPILATION COMPLETE OR ABANDONED.             BATCH     123
                                                                                                                 BATCH     124
            60  5140000000 X             RUN.X    SA4    LCP.PS                                                  FCCA422    38
                          5110000260 +            SA1    =1H-                                                    BATCH     127
            61  5120000000 X                      SA2    =XCP.LSTF                                               BATCH     128
                          5130000000 X            SA3    =XCP.PAGE                                               BATCH     129
            62  5150000000 X                      SA5    =XCP.PAGE                                               FCCA410    14
                          73741                   SX7    X4+B1                                                   FEAT155E  114
                               10611              BX6    X1                                                      BATCH     130
            63  5170000000 X                      SA7    LCNT        SET EMPTY PAGE                              FEAT155E  115
                          0312000065 +            NZ     X2,RUN3     IF NOT *L=0*                                BATCH     131
            64  5160000000 X                      SA6    =XTL.JECT   SET TITLE TO TRIPLE SPACE, NOT EJECT        BATCH     132
            65  5110000000 X             RUN3     SA1    =XCP.BLF                                                BATCH     133
                          11223                   BX2    X2*X3       EXTRACT EVEN/ODD PAGE COUNT IF LISTING ON   BATCH     134
                               11112              BX1    X1*X2                                                   BATCH     135
            66  36631                             IX6    X3+X1                                                   BATCH     136
                     0323000071 +                 PL     X3,RUN4     IF PROPAGATING PAGE COUNT                   BATCH     137
                               43601              MX6    1                                                       BATCH     138
            67  43602                             MX6    2                                                       FCCA473    15
            70  11636                    RUN3A    BX6    X3*X6                                                   FCCA473    16
            71  54630                    RUN4     SA6    A3          UPDATE/RESET PAGE COUNT                     BATCH     139
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     5
                                                                      RUN1
  
                     0301000074 +                 ZR     X1,RUN5     IF (EVEN PAGE COUNT) OR (SHORT/NO LIST)     BATCH     140
            72  6160000261 +                      WRITEC =XF.OUT,(=2L1 ),1       MAINTAIN PAGE PARITY            BATCH     141
            74  5120000000 X             RUN5     SA2    CP.CARD                                                 FEAT155E  116
                          0312000013 +            NZ     X2,RUN1A    IF NO END-OF-SECTION ON INPUT               BATCH     143
                                                                                                                 BATCH     144
                                        **        TERMINATE AND CLOSE FILES                                      BATCH     145
                                        *                                                                        BATCH     146
            75  5120000000 X                      SA2    =XCP.LSTF                                               FCCA534    13
                          0302000103 +            ZR     X2,RUN5A    IF L = 0, DONOT OUTPUT PD                   FCCA534    14
            76  5120000000 X                      SA2    CP.PD                                                   FCCA473    17
                          0302000103 +            ZR     X2,RUN5A    IF TTY FILE                                 FCCA593    57
            77  5130000000 X                      SA3    RS.PD                                                   FCCA593    58
                          13623                   BX6    X2-X3                                                   FCCA593    59
           100  0306000103 +                      ZR     X6,RUN5A    IF USING JOB DEFAULT                        FCCA593    60
                          10633                   BX6    X3                                                      FCCA593    61
           101  5160000000 X                      SA6    =XGT1                                                   FEAT155E  125
                          6160000000 X            WRITEC F.OUT,GT1,1 RESET DENSITY                               FEAT155E  126
           103                           RUN5A    BSS    0                                                       FCC1200     9
                                        #RM       IFEQ   CP#RM,0                                                 FCC1200    10
           103  5110000000 X                      SA1    F.OUT                                                   FCC1200    11
                          63210                   SB2    X1                                                      FCC1200    12
           104  0412000106 +                      EQ     B1,B2,RUN5B IF FILE NOT ACTED UPON                      FCC1200    13
                          6130000042              SB3    34                                                      FCC1200    14
           105  0632000110 +                      LE     B2,B3,RUN5C IF NOT AN OPEN OR CLOSE                     FCC1200    15
           106  5011000002               RUN5B    SA1    A1+2        GET IN POINTER                              FCC1200    16
                          54211                   SA2    A1+B1       GET OUT POINTER                             FCC1200    17
                               63210              SB2    X1                                                      FCC1200    18
           107  63320                             SB3    X2                                                      FCC1200    19
                     0423000112 +                 EQ     B2,B3,RUN5D IF BUFFER EMPTY                             FCC1200    20
                                        #RM       ELSE                                                           FCC1200    21
                                                  FETCH  F.OUT,LOP,X5                                            FCC1200    22
                                                  SB3    X5                                                      FCC1200    23
                                                  LE     B3,B1,RUN5D IF FILE NOT WRITTEN ON                      FCC1200    24
                                        #RM       ENDIF                                                          FCC1200    25
           110  7120000000 X             RUN5C    WRITER F.OUT                                                   FCC1200    26
           112  5120000000 X             RUN5D    SA2    =XFV.LGO                                                FCC1200    27
                          0302000122 +            ZR     X2,RUN6     IF BINARY OUTPUT SUPPRESSED (B=0)           BATCH     149
           113  7120000000 X                      WRITEF F.LGO                                                   BATCH     150
           115  7120000000 X                      BKSP   F.LGO                                                   BATCH     151
                                                                                                                 BATCH     152
                                        *         EVICT SCRATCH FILES                                            BATCH     153
                                                                                                                 BATCH     154
                                         .T       IFEQ   TEST,0                                                  BATCH     155
           117  5110000000 X                      SA1    =XBINIO                                                 BATCH     156
                          0321000122 +            PL     X1,RUN6     IF BINARY OUTPUT FILE NOT USED              BATCH     157
           120  7120000000 X                      CLOSE  F.LF,UNLOAD                                             BATCH     158
                                         .T       ENDIF                                                          BATCH     159
                                                                                                                 BATCH     160
           122                           RUN6     BSS    0                                                       BATCH     161
                                                                                                                 BATCH     162
                                         .T       IFEQ   TEST,0                                                  BATCH     163
           122  5120000000 X                      SA2    =XREFIO                                                 BATCH     164
                          0322000125 +            PL     X2,RUN7     IF REF FILE NOT USED                        BATCH     165
           123  7120000000 X                      CLOSE  F.RMAP,UNLOAD                                           BATCH     166
                                         .T       ENDIF                                                          BATCH     168
                                                                                                                 BATCH     169
                                        *         CLOSE ALL FILES.                                               FCC1678X    5
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     6
                                                                      RUN1
  
                                                                                                                 FCC1678X    6
           125                           RUN7     BSS    0                                                       FCC1678X    7
                                         #RM      IFGE   CP#RM,6                                                 BATCH     170
                                                  SX6    =XFVLEN-1   (X6) = FILE VECTOR TABLE OFFSET             BATCH     171
                                         RUN7A    SA2    RA.ARG+X6   (X2) = FIT ADDRESS FROM FILE VECTOR TABLE   BATCH     172
                                                  SA6    =XGT1       TEMP STORE OFFSET                           BATCH     173
                                                  ZR     X2,RUN7B    IF FILE DESELECTED                          BATCH     174
                                                  RJ     FA=CLO                                                  BATCH     175
                                         RUN7B    SA1    =XGT1                                                   BATCH     176
                                                  SX6    X1-1        (X6) = OFFSET FOR NEXT FILE                 BATCH     177
                                                  PL     X6,RUN7A    IF MORE FILES TO CLOSE                      BATCH     178
                                         #RM      ENDIF                                                          BATCH     179
                                                                                                                 BATCH     180
                                        **        SEND FL USED TO DAYFILE.                                       FCC0813    74
                                        *                                                                        FCC0813    75
           125  5110000000 X                      PIA    =XCP.MXFL,=XLFS.MAX                                     FEAT155G  143
                          7160000000              SX6    0                                                       FEAT155G  144
           127  5160000003 X                      SA6    =XLFS.MAX+3                                             FEAT155G  145
                          7110000000 X            MESSAGE  =XLFS.MAX,,RECALL                                     FEAT155G  146
                                                                                                                 FCC0813    80
                                        **        TURN OFF -SPY-                                                 BATCH     181
                                        *                                                                        BATCH     182
                                         .T       IFNE   TEST,0                                                  BATCH     183
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A  358
                                                  RJ     =XOFFSPY                                                BATCH     185
                                         #OS      ENDIF                                                          BATCH     186
                                         .T       ENDIF                                                          BATCH     187
                                                                                                                 BATCH     188
                                        **        WAIT FOR FILE ACTION TO COMPLETE.                              BATCH     189
                                        *                                                                        BATCH     190
                                         #RM      IFEQ   CP#RM,0                                                 BATCH     191
           132  6120000002                        SB2    RA.ARG                                                  BATCH     192
                          6130000002 X            SB3    RA.ARG+=XFVLEN                                          BATCH     193
           133  56520                    RUN8     SA5    B2          (X5)=FILE VECTOR ENTRY                      BATCH     194
                     66221                        SB2    B2+B1                                                   BATCH     195
                          0305000135 +            ZR     X5,RUN9     IF FILE DESELECTED                          BATCH     196
           134  73250                             SX2    X5          (X2)=ADDRESS OF FET                         BATCH     197
                     0100000000 X                 RECALL X2                                                      BATCH     198
           135  0723000133 +             RUN9     LT     B2,B3,RUN8  IF MORE FILES TO CHECK                      BATCH     199
                                         #RM      ENDIF                                                          BATCH     200
                                                                                                                 BATCH     201
                          0400000000 X            EQ     =XENDFTN    TERMINATE *FTN*                             BATCH     202
  
  
  
  
                                        **        IST -  INITIALIZE SUBPROGRAM TABLES.                           BATCH     204
                                        *                                                                        BATCH     205
                                        *         PERFORMS INITIALIZATION FOR EACH PROGRAM-UNIT OF THE BATCH.    BATCH     206
                                        *                                                                        BATCH     207
                                        *         EXIT   ALL APPROPRIATE CELLS, COUNTERS AND TABLES HAVE BEEN    BATCH     208
                                        *                SET TO THEIR INITIAL VALUES.                            BATCH     209
                                                                                                                 BATCH     211
                                                                                                                 BATCH     212
           136  0400400136 +             IST      SUBR   0                                                       BATCH     213
                                                                                                                 BATCH     214
                                        **        COLLAPSE TABLES TO INITIAL LENGTHS                             BATCH     215
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     7
                                                                      IST 
  
                                                                                                                 BATCH     216
           137  5140000000 X                      SA4    F.TABS                                                  BATCH     218
                          5120000000 X            SA2    W.TABS                                                  BATCH     219
           140  6120000000 X                      SB2    N.TABLE*FUDGE                                           BATCH     220
                          6122000000 X            SB2    B2+L=TABLE                                              BATCH     221
           141  67202                             SB2    -B2                                                     BATCH     222
                     73522                        SX5    X2+B2                                                   BATCH     223
                          22702                   LX7    X2                                                      BATCH     224
           142  6120777776 X                      SB2    N.TABLE-1                                               BATCH     225
                                                                                                                 BATCH     228
                                        **        INITIALLY, AMOUNT OF AVAILABLE SPACE IS --                     BATCH     229
                                        *         A = (SIZCORE) - N*FUDGE - L=TABLES                             BATCH     230
                                                                                                                 BATCH     231
                          27205                   PX2    X5          (X2) = AVAILABLE                            BATCH     232
                               36774              IX7    X7+X4       (X7) = LWA TABLES                           BATCH     234
           143  24102                             NX1    X2                                                      BATCH     235
                     5170000000 X                 SA7    T.END                                                   BATCH     237
                                                                                                                 BATCH     239
           144  5132000000 X             IST2     SA3    B2+RATES                                                BATCH     240
                          40231                   FX2    X3*X1                                                   BATCH     241
                               73630              SX6    X3                                                      BATCH     242
           145  26072                             UX0,B7 X2                                                      BATCH     243
                     67221                        =B2    B2-1                                                    BATCH     244
                          73331                   =X3    X3+FUDGE    = INIT(I) + FUDGE                           BATCH     245
                               22270              LX2    X0,B7                                                   BATCH     246
           146  36523                             IX5    X2+X3                                                   BATCH     247
                     37775                        IX7    X7-X5                                                   BATCH     248
                          5162000001 X            SA6    B2+SIZES+1        SET INITIAL SIZE                      BATCH     249
           147  5172000001 X                      SA7    B2+BASES+1        SET INITIAL ORIGIN                    BATCH     250
                          0620000144 +            PL     B2,IST2     LOOP THRU TABLES                            BATCH     251
           150  10744                             BX7    X4                                                      BATCH     252
                     54770                        SA7    A7          RESET ORIGIN OF LOWEST TABLE (LONG FILE)    BATCH     253
                                                                                                                 BATCH     254
                                                                                                                 BATCH     255
                                        **        RESET TAG BASES TO INITIAL VALUES                              BATCH     256
                                                                                                                 BATCH     257
                          7160200000              SX6    C.BASE                                                  BATCH     258
           151  6120000000 X                      SB2    TG.END                                                  BATCH     259
                          67202                   SB2    -B2                                                     BATCH     260
           152  6122000000 X                      SB2    B2+TG.BASE                                              BATCH     261
                          7120020000              SX2    C.DIF                                                   BATCH     262
           153  5162000000 X             IST4     SA6    B2+TG.END                                               BATCH     263
                          66221                   SB2    B2+B1                                                   BATCH     264
                               36662              IX6    X6+X2       INCREMENT TAG VALUE                         BATCH     265
           154  0602000153 +                      LE     B2,B0,IST4  IF MORE TAGS LEFT TO DO                     BATCH     266
                          7170320000              SX7    C.TEM                                                   BATCH     268
           155  5170000000 X                      SA7    TEM.MAX                                                 BATCH     270
                                                                                                                 BATCH     271
                                        **        CLEAR OUT BASIC SYMBOL, LABEL AND ADDRESS TABLES.              BATCH     272
                                                                                                                 BATCH     273
                          5120000000 X            SA2    TS.SYM                                                  BATCH     274
           156  13111                             BX1    0                                                       BATCH     275
                     7232000200                   SX3    X2+LSYM                                                 BATCH     276
           157  0100000000 X                      RJ     PRS         CLEAR OUT BASE SYMBOL TABLE                 BATCH     277
                                                                                                                 BATCH     278
           160  5120000000 X                      SA2    TS.STN                                                  BATCH     279
                          13111                   BX1    0                                                       BATCH     280
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     8
                                                                      IST 
  
           161  7232000040                        SX3    X2+LSTN                                                 BATCH     281
                          0100000000 X            RJ     PRS         CLEAR OUT BASE LABEL TABLE                  BATCH     282
                                                                                                                 BATCH     283
           162  5120000000 X                      SA2    =XTA.NAM                                                BATCH     284
                          13111                   BX1    0                                                       BATCH     285
           163  7232000100                        SX3    X2+LSYM/2                                               BATCH     286
                          0100000000 X            RJ     PRS                                                     BATCH     287
                                                                                                                 BATCH     288
                                        **        PRESET DIM TABLE WITH A FAKE ENTRY WHICH SAYS --               BATCH     289
                                        *                (NUMBER OF DIMS ) = 1                                   BATCH     290
                                        *                (LENGTH OF ARRAY) = 1                                   BATCH     291
                                                                                                                 BATCH     292
           164  5110000000 X                      SA1    TP.DIM                                                  BATCH     293
                          76610                   =X6    1                                                       BATCH     294
                                                  IFNE   P.NDIM+L.NDIM,60,1                                      BATCH     295
                                                  ERR    *IST* -- CHANGE TP.DIM INITIALIZATION                   BATCH     296
                                   6     A        DECMIC L.NDIM                                                  BATCH     297
           165  7170000101                        =X7    1+1S"A"                                                 BATCH     298
                          20636                   LX6    P.DIM                                                   BATCH     299
                               20766              LX7    -L.NDIM                                                 BATCH     300
           166  53611                             SA6    X1+B1       FAKE UP  DIMENSIONALITY OF 1                BATCH     301
                                                  IFNE   P.DIM,P.DIMLG,1                                         BATCH     302
                                                  LX6    -P.DIM+P.DIMLG                                          BATCH     303
                     12767                        BX7    X6+X7                                                   BATCH     304
                          53710                   SA7    X1          FAKE ENTRY, NR DIMS = 1                     BATCH     305
                                                                                                                 BATCH     306
                                        **        PRE-ENTER COMMON BLOCK TABLE WITH --                           BATCH     307
                                        *                0.  PROGRAM RELOCATION BLOCK                            BATCH     308
                                                                                                                 BATCH     310
           167  5110000000 X                      SA1    TS.BLK                                                  BATCH     311
                          13666                   BX6    0                                                       BATCH     312
                               53610              SA6    X1          FAKE ENTRY IS PROGRAM REL. BLOCK            BATCH     313
           170  54661                             SA6    A6+B1                                                   BATCH     316
                                                                                                                 FCCA594     9
                                        **        CLEAR OSTACK , ESTACK                                          FCCA594    10
                                        *                                                                        FCCA594    11
                     43700                        MX7    0                                                       FCCA594    12
                          76600                   SX6    B0                                                      FCCA594    13
           171  5170000000 X                      SA7    OSTACK                                                  FCCA594    14
                          5160000000 X            SA6    ESTACK                                                  FCCA594    15
           172  6140000237                        SB4    N.ELSTK-1                                               FCCA594    16
                                   0              ERRNZ  N.OPSTK-N.ELSTK                                         FCCA594    17
                                                                                                                 FCCA594    18
           173  54661                    IST5     SA6    A6+B1                                                   FCCA594    19
                     54771                        SA7    A7+B1                                                   FCCA594    20
                          67441                   SB4    B4-B1                                                   FCCA594    21
           174  0540000173 +                      NZ     B4,IST5     IF NOT FINISHED CLEARING ESTACK,OSTACK      FCCA594    22
                                                                                                                 BATCH     317
                                                                                                                 BATCH     318
                                        **        CLEAR SUBPROGRAM CELLS.                                        BATCH     319
                                                                                                                 BATCH     320
                          13666                   BX6    0                                                       BATCH     321
                               76700              SX7    B0                                                      BATCH     322
                                                                                                                 BATCH     323
                                   7     A        SET    7                                                       BATCH     324
                                   0     C        SET    0                                                       BATCH     325
           175  5160000000 X                      SA6    =XTYPD      LETTERS SELECTED ON IMPLICIT STATEMENT      BATCH     327
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE     9
                                                                      IST 
  
                                                                                                                 BATCH     328
                          5160000000 X            CLEAR  CURST       CURRENT START FOR SQUEEZE OF PARSED FILE    BATCH     329
           176  5170000000 X                      CLEAR  DRITE       DELAYED WRITE FLAG                          BATCH     330
                          5160000000 X            CLEAR  EQUA        LOCAL EQUIVALENCE-LENGTH                    BATCH     331
           177  5170000000 X                      CLEAR  ETF         EXPLICT TYPING OF FUNCTION HEADER           BATCH     332
                          5160000000 X            CLEAR  FAILSFT     CATASTROPHE IN  TABLES                      BATCH     333
           200  5170000000 X                      CLEAR  FLOW        DEAD CODE FLAG                              BATCH     334
                          5160000000 X            CLEAR  HANGER      HANGING COMPILATION INDICATOR               BATCH     335
           201  5170000000 X                      CLEAR  ICV         PRECEEDING *DO* INDICATOR                   BATCH     336
                          5160000000 X            CLEAR  IGS                                                     BATCH     337
           202  5170000000 X                      CLEAR  LOSTREF     REF COUNT                                   BATCH     339
                          5160000000 X            CLEAR  MOD         SUBPROGRAM MODE                             BATCH     340
                                                  IFNE   TEST,,1                                                 BATCH     341
                                                  CLEAR  =XMOVES     NUMBER OF STORAGE MOVES                     BATCH     342
           203  5170000000 X                      CLEAR  MSF         MULTIPLE STATEMENT FLAG                     BATCH     343
                          5160000000 X            CLEAR  =XNADD      NEW CODE ADDRESS                            FEAT126C   84
           204  5170000000 X                      CLEAR  NARGS       NR. OF ARGUMENTS                            BATCH     344
                          5160000000 X            CLEAR  NOPATH      STATEMENT LABEL REQUIRED FLAG               BATCH     345
           205  5170000000 X                      CLEAR  NSK         NULL STATEMENT COUNT                        BATCH     346
                          5160000000 X            CLEAR  NTRCNT      COUNT OF *ENTRY* STATEMENTS                 BATCH     347
                                                  IFNE   .FID,0,1                                                F66FCC    178
           206  5170000000 X                      CLEAR  =XO=OTRA    LINE NUMBER OF PREVIOUS OTR                 F66FCC    179
                          5160000000 X            CLEAR  =XPASS                                                  BATCH     348
                                                  IFNE   .FID,0,2                                                F66FCC    180
           207  5170000000 X                      CLEAR  =XPIGLAB    STATEMENT LABEL CORRESPONDING TO PIGLINE    F66FCC    181
                          5160000000 X            CLEAR  =XPIGLINE   LINE NUMBER FOR LINE NUMBER TABLE           F66FCC    182
           210  5170000000 X                      CLEAR  RJTDUM      DUMMY *RJT* REQUIRED FLAG                   BATCH     349
                          5160000000 X            CLEAR  RTNCNT      COUNT OF *RETURN* STATEMENTS                BATCH     350
           211  5170000000 X                      CLEAR  SYSERR      COMPILER GOOF FLAG                          BATCH     351
                          5160000000 X            CLEAR  WNZ         LAST WRITE INSTRUCTION                      BATCH     352
           212  5170000000 X                      CLEAR  DOORD       ORDINAL OF DO STATEMENT NUMBER              BATCH     353
                          5160000000 X            CLEAR  =XTYPF      = 0 , NO IMPLICIT STM PROCESSED             FCC1258     6
                                        *                            = 1 , ONE IMPLICIT STM PROCESSED            FCC1258     7
           213  5170000000 X                      CLEAR  =XBLNKCOM   BLOCK NUMBER OF BLANK COMMON                FCC0583    10
                          5160000000 X            CLEAR  =XSTATIC    STATIC LOADED I/O ROUTINES                  F162FTNA  382
                                                  IFEQ   OT#RM,6,1                                               FCCA408    70
           214  5170000000 X                      CLEAR  =XDFTA      STATIC WEAK EXTERNAL TEMP.                  FCCA408    71
                                                                                                                 BATCH     354
                                        **        SET UP MISCELLEANEOUS CELLS.                                   BATCH     355
                                                                                                                 BATCH     356
                          43701                   MX7    1                                                       FEAT126B   56
           215  5170000000 X                      SA7    =XNOLIST    SET TO *LIST,ALL* DEFAULT                   FEAT126B   58
                          7170000000 X            =X7    CPM=1ST                                                 BATCH     357
           216  5170000000 X                      SA7    STAGE       SIGNAL THAT A *FIRST CARD* IS NEEDED.       BATCH     358
                          7170000003              SX7    3                                                       BATCH     359
           217  5170000000 X                      SA7    PARCEL                                                  BATCH     360
                          5120000255 +            SA2    =1H                                                     BATCH     361
           220  22702                             LX7    X2                                                      BATCH     362
                     76510                        SX5    B1                                                      FEAT155H  106
                          7160000000 X            SX6    =XHDRBL                                                 FEAT155H  107
           221  20536                             LX5    30                                                      FEAT155H  108
                     12665                        BX6    X6+X5                                                   FEAT155H  109
                          5160000000 X            SA6    =XO.STITL                                               FEAT155H  110
           222  5170000000 X                      SA7    =XTL.PTYP   BLANK OUT PROGRAM TYPE                      FEAT126A  364
                          5120000000 X            SA2    =XCO.MODE                                               FEAT155E  129
           223  54771                             SA7    A7+B1                                                   BATCH     374
                     0312000230 +                 NZ     X2,IST60    IF SEQ MODE                                 FEAT155E  130
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE    10
                                                                      IST 
  
           224  5110000000 X                      SA1    =XLDRFLG                                                FCC1097     7
                          43600                   MX6    0                                                       FCC1097     8
                               54610              SA6    A1                                                      FCC1097     9
           225  0311000230 +                      NZ     X1,IST60    IF LAST STMT WAS A LOADER DIRECTIVE         FCC1097    10
                          76610                   SX6    B1                                                      FCC1097    11
           226  5160000000 X                      SA6    CARDS       SET TO *1ST LINE IS IN (CP.BUF)*            FCC1097    12
                          5120000262 +            SA2    =10H        1                                           FEAT155E  131
           227  10622                             BX6    X2                                                      FEAT155E  132
                     5160000000 X                 SA6    =XCP.FLIN   NUMBER FIRST LINE OF SOURCE                 FEAT155E  133
                                                                                                                 FEAT155E  134
           230  17666                    IST60    BX6    -0                                                      FEAT155E  135
                     5120000000 X                 SA2    FV.LGO                                                  BATCH     379
           231  5160000000 X                      SA6    ERR=F                                                   BATCH     381
                          5160000000 X            SA6    ERRORS                                                  BATCH     382
           232  0312000234 +                      NZ     X2,IST65    IF BINARY NOT SUPPRESSED                    BATCH     383
                          5120000000 X            SA2    =XLOP=O                                                 FCC1608X   13
           233  10622                             BX6    X2                                                      FCC1608X   14
           234  5160000000 X             IST65    SA6    BINOUT                                                  BATCH     385
                          5120000000 X            SA2    =XWININIT                                               FCC1608X   15
           235  10622                             BX6    X2                                                      FCC1608X   16
                     5160000000 X                 SA6    =XWIN       BLOCK OFF WIN IF -B=0- AND NO -OL-          FCC1608X   17
                                                                                                                 BATCH     386
           236  0100000000 X                      RJ     CAR         CLEAR ALL REGISTERS                         BATCH     387
                                                                                                                 BATCH     388
                                        **        RE-SET NATURAL TYPE TABLE TO --                                BATCH     389
                                        *                IMPLICIT REAL (A-H), INTEGER (I-N), REAL (O-Z)          BATCH     390
                                                                                                                 BATCH     391
           237  5110000247 +                      SA1    IST.NTYP                                                BATCH     392
                          54211                   SA2    A1+B1                                                   BATCH     393
                               76610              =X6    M.LOG                                                   BATCH     394
           240  10711                             BX7    X1                                                      BATCH     395
                     5160000000 X                 SA6    NAT.TYP     LOGICAL                                     BATCH     396
                               22602              LX6    X2                                                      BATCH     397
           241  54761                             SA7    A6+B1       INTEGER                                     BATCH     398
                     54671                        SA6    A7+B1       REAL                                        BATCH     399
                          73721                   SX7    X2+B1                                                   BATCH     400
                               54761              SA7    A6+B1       DOUBLE                                      BATCH     401
           242  73671                             SX6    X7+B1                                                   BATCH     402
                     54671                        SA6    A7+B1       COMPLEX                                     BATCH     403
                                                                                                                 FEAT126B   59
                                        *         COPY MASTER LIST CONTROL FLAGS TO WORKING LIST CONTROL FLAGS.  FEAT126B   60
                                                                                                                 FEAT126B   61
                          7110000000 X            MVE    =XL.MSTR,=XLSTMSTR,=XLSTWRKG                            FEAT126B   62
           245  5110000000 X                      SA1    =XSLIST                                                 FCC1328X   87
                          10611                   BX6    X1                                                      FCC1328X   88
           246  5160000000 X                      SA6    =XHDELAY    SET TO *HEADER DELAY* IF IN *LIST* MODE     FCC1328X   89
                          0400000136 +            EQ     ISTX        EXIT..                                      BATCH     430
                                                                                                                 BATCH     431
           247  00077000000000000002     IST.NTYP CON    "INT"+M.INT                                             BATCH     432
           250  37700777700000000003              CON    "REAL"+M.REAL                                           BATCH     433
                                                  LIST   D                                                       BATCH     434
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        COMRET
             0 X                        TIMER 
             0 X                        RNC 
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE    11
                                                                      LITERALS
  
             0 X                        CER.FL
             0 X                        MSG=
             0 X                        WNB=
             0 X                        BINIO 
             0 X                        CIO=
             0 X                        LOP=R 
             0 X                        T.SB
             0 X                        L.CARD
             0 X                        CCNT
             0 X                        LASTCOL 
             0 X                        RNS 
             0 X                        AFS.ME
             0 X                        PLO 
             0 X                        PLR 
             0 X                        LDB 
             0 X                        LDCOM 
             0 X                        TL.JECT 
             0 X                        CP.BLF
             0 X                        WTC=
             0 X                        GT1 
             0 X                        CP.MXFL 
             0 X                        COD 
             0 X                        LFS.MAX 
             0 X                        FVLEN 
             0 X                        ENDFTN
             0 X                        TA.NAM
             0 X                        TYPD
             0 X                        NADD
             0 X                        O=OTRA
             0 X                        PASS
             0 X                        PIGLAB
             0 X                        PIGLINE 
             0 X                        TYPF
             0 X                        BLNKCOM 
             0 X                        STATIC
             0 X                        DFTA
             0 X                        NOLIST
             0 X                        HDRBL 
             0 X                        TL.PTYP 
             0 X                        CO.MODE 
             0 X                        LDRFLG
             0 X                        CP.FLIN 
             0 X                        LOP=O 
             0 X                        WININIT 
             0 X                        WIN 
             0 X                        L.MSTR
             0 X                        LSTMSTR 
             0 X                        LSTWRKG 
             0 X                        MVE 
             0 X                        SLIST 
             0 X                        HDELAY
  
                                        CONTENT OF LITERALS BLOCK.
  
           251  55051520243155111620     EMPTY INP
           252  25245506111405575555    UT FILE.
           253  16175503171520111401    NO COMPILA
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE    12
                                                                      LITERALS
  
           254  24111716570000000000    TION. 
           255  55555555555555555555
           256  11040516245500000000    IDENT 
           257  55550000000000000000
           260  46555555555555555555    - 
           261  34550000000000000000    1 
           262  55555555555555553455            1 
  
           263                                    END                                                            BATCH     435
  
                             55300B CM  STORAGE USED             1132 STATEMENTS      884 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.833 SECONDS         363 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AFS.ME          0   EXTERNAL*       4/02      4/04
        BASES           0   EXTERNAL*       2/01 X    7/29 S
        BINIO           0   EXTERNAL*       3/34      5/44
        BINOUT          0   EXTERNAL*       2/01 X   10/18 S
        BLNKCOM         0   EXTERNAL*       9/34 S
        CAR             0   EXTERNAL*       2/21 X   10/23
        CARDS           0   EXTERNAL*       2/01 X   10/06 S
        CCNT            0   EXTERNAL*       3/54 S
        CER.FL          0   EXTERNAL*       3/06
        CHAR            6   TSTEXT          4/07      4/22
        CIO=            0   EXTERNAL*       3/38      3/46      5/35      5/39      5/54
                                            3/39      4/31      5/38      5/46
        COD             0   EXTERNAL*       6/16
        COMRET          0   EXTERNAL*       2/51
        CO.MODE         0   EXTERNAL*       9/55
        CPM             0   EXTERNAL*       2/15 X    4/11      4/18      4/26
        CPM=1ST         0   EXTERNAL*       2/15 X    9/43
        CP.BLF          0   EXTERNAL*       4/49
        CP.CARD         0   EXTERNAL*       1/52 X    2/50      3/51      4/06      5/03
        CP.FLIN         0   EXTERNAL*      10/09 S
        CP.LSTF         0   EXTERNAL*       1/52 X    4/41      5/08
        CP.MXFL         0   EXTERNAL*       6/16
        CP.PAGE         0   EXTERNAL*       1/52 X    4/42      4/43
        CP.PD           0   EXTERNAL*       1/52 X    5/10
        CP#RM           0   TSTEXT          3/30 F    5/19 F    6/03 F    6/31 F
        CURST           0   EXTERNAL*       2/24 X    9/02 S    9/02
        C.BASE     200000   TSTEXT          7/37
        C.DIF       20000   TSTEXT          7/41
        C.TEM      320000   TSTEXT          7/46
        DFTA            0   EXTERNAL*       9/37 S
        DOORD           0   EXTERNAL*       2/01 X    9/31 S    9/31
        DRITE           0   EXTERNAL*       2/01 X    9/03 S    9/03
        ENDFTN          0   EXTERNAL*       6/42
        EQUA            0   EXTERNAL*       2/27 X    9/04 S    9/04
        ERRORS          0   EXTERNAL*       2/01 X   10/14 S
        ERR=F           0   EXTERNAL*       2/09 X   10/13 S
        ESTACK          0   EXTERNAL*       2/27 X    8/40 S
        ETF             0   EXTERNAL*       2/01 X    9/05 S    9/05
        FAILSFT         0   EXTERNAL*       2/02 X    9/06 S    9/06
        FCA             0   EXTERNAL*       2/27 X    2/53
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE    13
        SYMBOLIC REFERENCE TABLE. 
  
        FLOW            0   EXTERNAL*       2/02 X    9/07 S    9/07
        FTN10           0   PROGRAM*        2/48 E    2/49 L
        FTN10A          3   PROGRAM*        2/52      2/56 L
        FTO             0   EXTERNAL*       2/27 X    2/56
        FUDGE           1   TSTEXT          7/04      7/24
        FVLEN           0   EXTERNAL*       6/33
        FV.LGO          0   EXTERNAL*       1/52 X    3/27      5/36     10/12
        F.LF            0   EXTERNAL*       1/52 X    3/38      3/38      3/39      3/39      5/46
        F.LGO           0   EXTERNAL*       1/53 X    3/31      5/38      5/39      5/39
        F.OUT           0   EXTERNAL*       1/54 X    4/31      4/31      5/02      5/17      5/20      5/35
        F.RMAP          0   EXTERNAL*       1/54 X    3/46      5/54
        F.SB            0   EXTERNAL*       1/54 X
        F.TABS          0   EXTERNAL*       1/54 X    7/02
        GT1             0   EXTERNAL*       5/16 S    5/17
        HANGER          0   EXTERNAL*       2/02 X    9/08 S    9/08
        HDELAY          0   EXTERNAL*      10/46 S
        HDRBL           0   EXTERNAL*       9/50
        ICV             0   EXTERNAL*       2/02 X    9/09 S    9/09
        IDENT           0   EXTERNAL*       2/02 X
        IGS             0   EXTERNAL*       2/02 X    9/10 S    9/10
        IST           136   PROGRAM*        3/47      6/55 L
        IST2          144   PROGRAM*        7/19 L    7/30
        IST4          153   PROGRAM*        7/42 L    7/45
        IST5          173   PROGRAM*        8/44 L    8/47
        IST60         230   PROGRAM*        9/57     10/04     10/11 L
        IST65         234   PROGRAM*       10/15     10/18 L
        IST.NTYP      247   PROGRAM*       10/28     10/49 L
        LASTCOL         0   EXTERNAL*       3/56 S
        LCNT            0   EXTERNAL*       2/02 X    4/46 S
        LCP.PS          0   EXTERNAL*       1/52 X    4/39
        LDB             0   EXTERNAL*       4/30
        LDCOM           0   EXTERNAL*       4/32
        LDRFLG          0   EXTERNAL*      10/01
        LFS.MAX         0   EXTERNAL*       6/16 S    6/18 S    6/19
        LOP=O           0   EXTERNAL*      10/16
        LOP=R           0   EXTERNAL*       3/40
        LOSTREF         0   EXTERNAL*       2/02 X    9/11 S    9/11
        LSTMSTR         0   EXTERNAL*      10/43
        LSTN           40   TSTEXT          8/01
        LSTWRKG         0   EXTERNAL*      10/43
        LSYM          200   TSTEXT          7/53      8/06
        L=TABLE         0   EXTERNAL*       2/03 X    7/05
        L.CARD          0   EXTERNAL*       3/50
        L.MSTR          0   EXTERNAL*      10/43
        L.NDIM          6   TSTEXT          8/15 F    8/17      8/20
        MAXCORE         0   EXTERNAL*       2/03 X
        MOD             0   EXTERNAL*       2/03 X    9/12 S    9/12
        MSF             0   EXTERNAL*       2/03 X    9/15 S    9/15
        MSG=            0   EXTERNAL*       3/09      6/19
        MVE             0   EXTERNAL*      10/43
        M.INT           2   TSTEXT         10/49
        M.LOG           1   TSTEXT         10/30
        M.REAL          3   TSTEXT         10/50
        NADD            0   EXTERNAL*       9/16 S
        NARGS           0   EXTERNAL*       2/03 X    9/17 S    9/17
        NAT.TYP         0   EXTERNAL*       2/18 X   10/32 S
        NOLIST          0   EXTERNAL*       9/42 S
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE    14
        SYMBOLIC REFERENCE TABLE. 
  
        NOPATH          0   EXTERNAL*       2/03 X    9/18 S    9/18
        NSK             0   EXTERNAL*       2/03 X    9/19 S    9/19
        NTRCNT          0   EXTERNAL*       2/04 X    9/20 S    9/20
        N.ELSTK       240   TSTEXT          8/41      8/42
        N.OPSTK       240   TSTEXT          8/42
        N.TABLE         0   EXTERNAL*       2/04 X    7/04      7/09
        OSTACK          0   EXTERNAL*       2/27 X    8/39 S
        OT#RM           6   TSTEXT          9/36 F
        O=OTRA          0   EXTERNAL*       9/22 S
        O.STITL         0   EXTERNAL*       1/54 X    9/53 S
        PARCEL          0   EXTERNAL*       2/04 X    9/46 S
        PASS            0   EXTERNAL*       9/23 S
        PDFLAG          0   EXTERNAL*       1/53 X
        PIGLAB          0   EXTERNAL*       9/25 S
        PIGLINE         0   EXTERNAL*       9/26 S
        PLO             0   EXTERNAL*       4/03
        PLR             0   EXTERNAL*       4/27
        PRS             0   EXTERNAL*       2/12 X    7/54      8/02      8/07
        P.DIM          36   TSTEXT          8/19      8/22 F
        P.DIMLG        36   TSTEXT          8/22 F
        P.NDIM         66   TSTEXT          8/15 F
        RATES           0   EXTERNAL*       2/04 X    7/19
        RA.ARG          2   CPUTEXT         6/32      6/33
        REFIO           0   EXTERNAL*       2/04 X    3/42      5/52
        RJTDUM          0   EXTERNAL*       2/05 X    9/27 S    9/27
        RNC             0   EXTERNAL*       3/03      4/28
        RNS             0   EXTERNAL*       4/01
        RS.PD           0   EXTERNAL*       1/55 X    5/12
        RTNCNT          0   EXTERNAL*       2/05 X    9/28 S    9/28
        RUN1A          13   PROGRAM*        3/27 L    5/04
        RUN1B          23   PROGRAM*        3/28      3/36      3/40 L
        RUN1C          27   PROGRAM*        3/41      3/43      3/47 L
        RUN1D          31   PROGRAM*        3/50 L    4/29
        RUN1E          44   PROGRAM*        4/16 L    4/20
        RUN1F          54   PROGRAM*        4/14      4/30 L
        RUN3           65   PROGRAM*        4/47      4/49 L
        RUN3A          70   PROGRAM*        4/56 L
        RUN4           71   PROGRAM*        4/53      4/57 L
        RUN5           74   PROGRAM*        1/49 E    5/01      5/03 L
        RUN5A         103   PROGRAM*        5/09      5/11      5/14      5/18 L
        RUN5B         106   PROGRAM*        5/22      5/25 L
        RUN5C         110   PROGRAM*        5/24      5/35 L
        RUN5D         112   PROGRAM*        5/29      5/36 L
        RUN6          122   PROGRAM*        5/37      5/45      5/49 L
        RUN7          125   PROGRAM*        3/10      5/53      6/02 L
        RUN8          133   PROGRAM*        6/34 L    6/39
        RUN9          135   PROGRAM*        6/36      6/39 L
        RUN.X          60   PROGRAM*        1/49 E    2/54      3/04      4/39 L
        SB.HEAD         6   TSTEXT          3/53
        SIZES           0   EXTERNAL*       2/05 X    7/28 S
        SLIST           0   EXTERNAL*      10/44
        STAGE           0   EXTERNAL*       2/05 X    9/44 S
        STATIC          0   EXTERNAL*       9/35 S
        SYSERR          0   EXTERNAL*       2/05 X    9/29 S    9/29
        TA.NAM          0   EXTERNAL*       8/04
        TEM.MAX         0   EXTERNAL*       2/04 X    7/47 S
        TEST            0   TSTEXT          5/43 F    5/51 F    6/23 F    9/13 F
1       /BATCH  MAIN BATCH CONTROL.                                   COMPASS 3.7-871.     24/05/02. 15.51.40.      PAGE    15
        SYMBOLIC REFERENCE TABLE. 
  
        TG.BASE         0   EXTERNAL*       2/05 X    7/40
        TG.END          0   EXTERNAL*       2/06 X    7/38      7/42 S
        TIMER           0   EXTERNAL*       3/01
        TIME1           0   EXTERNAL*       1/54 X    3/02 S
        TL.JECT         0   EXTERNAL*       4/48 S
        TL.PTYP         0   EXTERNAL*       9/54 S
        TP.DIM          0   EXTERNAL*       2/06 X    8/13
        TS.BLK          0   EXTERNAL*       2/06 X    8/30
        TS.STN          0   EXTERNAL*       2/06 X    7/56
        TS.SYM          0   EXTERNAL*       2/06 X    7/51
        TYPD            0   EXTERNAL*       8/57 S
        TYPF            0   EXTERNAL*       9/32 S
        T.END           0   EXTERNAL*       2/06 X    7/17 S
        T.SB            0   EXTERNAL*       3/48
        WIN             0   EXTERNAL*      10/21 S
        WININIT         0   EXTERNAL*      10/19
        WNB=            0   EXTERNAL*       3/31      6/38
        WNZ             0   EXTERNAL*       2/06 X    9/30 S    9/30
        WTC=            0   EXTERNAL*       5/02      5/17
        W.TABS          0   EXTERNAL*       1/54 X    7/03
        .FID            1   TSTEXT          9/21 F    9/24 F
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      541              IDENT  HEADER 
                        541                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       532 
                                        LITERALS* LOCAL         532         7 
  
  
                                        ENTRY POINTS. 
  
                                        PPA4           161+           PPAD           316+           PPA355         160+ 
                                        PSF              0+           DCM             24+           PIDX            71+ 
                                        DCM3           533+           PPA             73+           PFDX           237+ 
                                        PSFA            14+           PSA            360+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.BLN    STN       E.AC3     E.PN3     E.TC2     TSF       L.STL     CP.PW 
                                        CO.EDT    TA.PRO    E.AC4     E.TC1     E.TC11    DEC       CO.STA    ERT 
                                        LOP=O     TG.PRO    E.AC5     E.TC3     WIN       STY       COD       ADW 
                                        CO.ER     TS.ENT    E.AC6     E.TC4     PIG       S.FTNRP   PFD       REFLIN
                                        BA.PRO    TS.SYM    E.AC8     E.TC5     SFN       FFN       ALC       ESY 
                                        CSNTAG    TT=LF     E.AC9     E.TC6     BT.IDNT   CRJ       OT.RM     TLV 
                                        ENTRY.    TT.LF     E.ANS     E.TC7     BT.XFR1   TYP02     JOT       BT.IDN8 
                                        IDENT     F.LF      E.AP      E.TC9     SCTR      ANSI=     PID       TL.PTYP 
                                        IDENT1    BINIO     E.AP1     E.TC10    SSY       E.TY      LDB       T.SB
                                        MOD       T=FILE    E.FA      E.XC      CPM=IMP   CHARMAP   HDELAY    PWE 
                                        NARGS     T.FILE    E.FR      E.ZA      PSFX      WTW=      MSG=
                                        ORG       IGS       E.MR1     FILL.     WOF       SB=BKS3   TL.PNAM 
                                        STAGE     E.AC      E.PN1     FILL.2    S.Q2NTR   CO.ID     NAME
  
  
  
  
                                                  IDENT  HEADER                                                  HEADER      2
                                         HEADER   SECT   (HEADER STATEMENT PROCESSING),1                         HEADER      3
  
                                                                                                                 HEADER      4
                                                  SST                                                            HEADER      5
                                                                                                                 HEADER      6
                                         B=HEAD   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     HEADER      7
                                                                                                                 HEADER      8
                                                  ENTRY  PPA4,PSF,DCM3,PSFA,PPAD,DCM,PPA,PSA                     HEADER      9
                                                  ENTRY  PPA355                                                  FCC1463X   12
                                                  ENTRY  PIDX,PFDX                                               FEAT155G  147
                                                                                                                 HEADER     10
                                        *         IN FTN                                                         HEADER     11
                                                  EXT    CO.BLN,CO.EDT,LOP=O                                     FEAT155G  148
                                                  EXT    CO.ER                                                   FEAT155G  149
                                                                                                                 HEADER     13
                                        *         IN TABLES                                                      HEADER     14
                                                  EXT    BA.PRO,CSNTAG,ENTRY.,IDENT,IDENT1,MOD                   FEAT155G  150
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     2
  
  
                                                  EXT    NARGS,ORG,STAGE,STN,TA.PRO,TG.PRO,TS.ENT,TS.SYM,TT=LF   HEADER     16
                                                  EXT    TT.LF,F.LF,BINIO                                        FCCA557    14
                                                  EXT    T=FILE,T.FILE                                           HEADER     17
                                                  EXT    IGS                                                     FEAT155G  151
                                                                                                                 HEADER     18
                                        *         IN ERRORS                                                      HEADER     19
                                                  EXT    E.AC,E.AC3,E.AC4,E.AC5,E.AC6,E.AC8,E.AC9,E.ANS          HEADER     20
                                                  EXT    E.AP,E.AP1,E.FA,E.FR,E.MR1,E.PN1,E.PN3,E.TC1,E.TC3      HEADER     21
                                                  EXT    E.TC4,E.TC5,E.TC6,E.TC7,E.TC9,E.TC10,E.XC,E.ZA,FILL.    HEADER     22
                                                  EXT    FILL.2,E.TC2,E.TC11                                     HEADER     23
                                                                                                                 HEADER     24
                                        *         IN PIG                                                         HEADER     25
                                                  EXT    WIN,PIG                                                 HEADER     26
                                                                                                                 HEADER     30
                                        *         IN MAP                                                         HEADER     31
                                                  EXT    SFN                                                     HEADER     32
                                                                                                                 HEADER     33
                                        *         IN END                                                         HEADER     34
                                                  EXT    BT.IDNT,BT.XFR1                                         HEADER     35
                                                                                                                 HEADER     36
                                        *         IN ALLOC                                                       HEADER     37
                                                  EXT    SCTR,SSY                                                HEADER     38
                                                                                                                 HEADER     39
                                        *         IN MAIN                                                        HEADER     40
                                                  EXT    CPM=IMP,PSFX,WOF                                        HEADER     41
                                                                                                                 HEADER     42
                                        *         IN LEX                                                         HEADER     43
                                                  EXT    S.Q2NTR,TSF,DEC,STY                                     F162FTNA  383
                                                  EXT    S.FTNRP                                                 FEAT155G  153
                                                                                                                 HEADER     45
                                        *         IN IO                                                          HEADER     46
                                                  EXT    FFN                                                     HEADER     47
                                                                                                                 HEADER     48
                                        *         IN REG                                                         HEADER     49
                                                  EXT    CRJ                                                     HEADER     50
                                                                                                                 HEADER     51
                                        *         IN TYPE                                                        HEADER     52
                                                  EXT    TYP02                                                   HEADER     53
                                                                                                                 HEADER     54
  
  
  
  
                                        **        PSF -  PROCESS SPECIAL FIRST CARD.                             HEADER     56
                                        *                WHEN NO HEADER CARD IS PRESENT, *PSF* IS CALLED TO EMIT HEADER     57
                                        *         " PROGRAM START. (INPUT, OUTPUT) "                             HEADER     58
                                        *         EXIT   TO *PSFX*, WHICH IS IN *CPM*.                           HEADER     59
                                        *                (A0)  RESTORED FROM (F.SB)                              HEADER     60
                                        *                (X5) RESTORED FROM ("SB.KEY").                          HEADER     61
                                        *                (B4) PRESERVED.                                         HEADER     62
                                                                                                                 HEADER     63
                                                                                                                 HEADER     64
             0  6170000000 X             PSF      WARN   E.PN3                                                   HEADER     65
             1  76740                             SX7    B4                                                      HEADER     66
                     5140000014 +                 SA4    PSFA                                                    HEADER     67
             2  0334000003 +                      MI      X4,PSF1    IF PSF IS CALLED IN THE MIDDLE OF TYPE PROC FCCA493    10
                          43400                   MX4     0                                                      FCCA493    11
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     3
                                                                      PSF 
  
             3  12774                    PSF1     BX7    X7+X4                                                   FCCA493    12
                     7160004000                   SX6    M.PPRO                                                  HEADER     69
             4  5170000014 +                      SA7    PSFA        SAVE (B4)                                   HEADER     70
                          6140000015 +            SB4    DPN         POINT TO FAKE STRING                        HEADER     71
             5  5140000532 +                      SA4    =7HPROGRAM                                              HEADER     72
                          0100000024 +            RJ     DCM         PROCESS COMPILE MODE + DISPLAY              HEADER     73
             6  0100000073 +                      RJ     PPA         PROCESS ARGUMENTS                           HEADER     74
             7  5110000000 X                      SA1    =XT.SB                                                  FCC0813    81
                          13666                   BX6    0                                                       HEADER     76
                               53010              SA0    X1                                                      HEADER     77
            10  5160000000 X                      SA6    STN                                                     HEADER     78
                          5160000000 X            SA6    CSNTAG                                                  HEADER     79
            11  5110000014 +                      SA1    PSFA                                                    HEADER     80
                          5050000003              SA5    "SB.KEY"                                                HEADER     81
            12  63410                             SB4    X1          RESTORE (B4)                                HEADER     82
                     0331000000 X                 MI     X1,TYP02    IF CALLED FROM *TYPE* PROCESSING            HEADER     83
            13  0400000000 X                      EQ     PSFX        EXIT..                                      HEADER     84
                                                                                                                 HEADER     85
            14  00000000000000000000     PSFA     DATA   0           LOWER 18 BITS IS A SAVE AREA FOR B4.        HEADER     86
                                        *                            SIGN BIT IS SET IF PSF WAS CALLED IN THE    HEADER     87
                                        *                            MIDDLE OF TYPE PROCESSING                   HEADER     88
                                                                                                                 HEADER     89
                                                                                                                 HEADER     90
                                        **        DEFAULT SUBPROGRAM NAME + PARAMETERS                           HEADER     91
                                        *         SET = *PROGRAM START.(INPUT,OUTPUT)*                           HEADER     92
                                                                                                                 HEADER     93
            15  23240122245700000003     DPN      VFD    42/0LSTART.,18/O.VAR                                    HEADER     94
            16  00000000000000000010              CON    O.(                                                     HEADER     95
            17  11162025240000000003              VFD    42/0LINPUT,18/O.VAR                                     HEADER     96
            20  00000000000000000013              CON    O.COMMA                                                 HEADER     97
            21  17252420252400000003              VFD    42/0LOUTPUT,18/O.VAR                                    HEADER     98
            22  00000000000000000011              CON    O.)                                                     HEADER     99
            23  00000000000000000000              DATA   0           END OF STRING INDICATOR                     HEADER    100
  
  
  
  
                                        **        DCM -  DISPLAY *COMPILING* MESSAGE.                            HEADER    102
                                        *                                                                        HEADER    103
                                        *         CHECKS LEGALITY OF NAME AND ENTERS IT IN SYMBOL TABLE AND      HEADER    104
                                        *                ENTRY POINT TABLE.                                      HEADER    105
                                        *         DISPLAYS CONSOLE MESSAGE, PRINTS *IDENT* CARD, AND SETS NAME   HEADER    106
                                        *                INTO MAIN TITLE AND 77-TABLE.                           HEADER    107
                                        *                                                                        HEADER    108
                                        *         ENTRY  (B4) _ SUBPROGRAM NAME (IN *SB*).                       HEADER    109
                                        *                (X4) = DPC PROGRAM TYPE FOR BANNER.                     HEADER    110
                                        *                (X6) = PROGRAM-UNIT COMPILE MODE.                       HEADER    111
                                        *                                                                        HEADER    112
                                        *         EXIT   (B4) _ NEXT ELEMENT OF *SB*.                            HEADER    113
                                        *                                                                        HEADER    114
                                        *         CALLS  ADDWD, MESAGE, PVF, SFN.                                HEADER    115
                                                                                                                 HEADER    116
                                                                                                                 HEADER    117
            24  0400400024 +             DCM      SUBR   0                                                       HEADER    118
            25  5120000000 X                      SA2    MOD                                                     HEADER    119
                          12662                   BX6    X6+X2                                                   HEADER    121
                               54620              SA6    A2          SET COMPILE MODE                            HEADER    122
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     4
                                                                      DCM 
  
            26  10644                             BX6    X4                                                      HEADER    123
                     5160000000 X                 SA6    =XTL.PTYP                                               FEAT126A  365
            27  7140000000 X                      SX4    =XBT.IDN8                                               HEADER    126
                          5264000000 X            SA6    X4+=XBT.IDNT                                            HEADER    127
            30  56440                             SA4    B4                                                      HEADER    128
                     43052                        MX0    LG.VAR*CHAR                                             HEADER    129
                          7224777774              SX2    X4-O.VAR                                                HEADER    130
            31  0312000036 +                      NZ     X2,DCM1A    IF PROGRAM NAME NOT VARIABLE                HEADER    131
                          11204                   BX2    X0*X4       CLEAR TYPE CODE                             HEADER    132
                               20206              LX2    CHAR                                                    HEADER    133
            32  7222777744                        SX2    X2-1R0                                                  HEADER    134
                          0322000036 +            PL     X2,DCM1A    IF NOT A LETTER                             HEADER    135
            33  56241                             =A2    B4+1                                                    HEADER    136
                     6272777774                   SB7    X2-O.VAR                                                HEADER    137
            34  0570000040 +                      NZ     B7,DCM1     IF LESS THAN 8 CHAR                         HEADER    138
                          0100000000 X            RJ     =XTLV       TRUNCATE NAME                               HEADER    139
            35  0400000040 +                      EQ     DCM1                                                    HEADER    140
                                                                                                                 FEAT155G  154
            36  6170000000 X             DCM1A    FATAL  E.PN1       SYNTAX ERROR IN ROUTINE NAME                FEAT155G  155
            37  5140000533 +                      SA4    DCM3        SET *DUMMY* NAME                            HEADER    142
            40  43052                    DCM1     MX0    L.SYM                                                   HEADER    143
                     11604                        BX6    X0*X4                                                   HEADER    144
                          22406                   LX4    X6                                                      HEADER    146
            41  5160000000 X                      SA6    IDENT       ROUTINE NAME IN 0L FORMAT                   FEAT126A  366
                          5160000001 X            SA6    BT.IDNT+1                                               HEADER    148
            42  5160000000 X                      SA6    BT.XFR1                                                 HEADER    149
                          5110000000 X            SCAN   TS.SYM,SSY  FIND WHERE TO PUT *SYMBOL/TAG*              HEADER    150
            44  7170020050                        =X7    M.ENT+M.DEF+M.NVAR                                      HEADER    151
                          0100000000 X            ADSYM  A1          ADD *SYMBOL/TAG* TO TABLE.                  HEADER    152
            45  5110000000 X                      SA1    =XREFLIN                                                FEAT155G  156
                          20114                   LX1    18-CHAR                                                 FEAT155G  157
                               73601              SX6    X0+B1                                                   HEADER    153
            46  12661                             BX6    X6+X1                                                   FEAT155G  158
                     5160000000 X                 SA6    ENTRY.                                                  HEADER    154
                               12604              BX6    X0+X4                                                   HEADER    155
            47  5110000000 X                      ADDWD  TS.ENT                                                  HEADER    156
            50  5110000000 X                      SA1    ENTRY.                                                  HEADER    157
                          7261200000              =X6    X1+C.VAR                                                HEADER    158
            51  20652                             LX6    P.TAG                                                   HEADER    159
                     7110000005                   ADDREF X6,CR.NTR                                               HEADER    160
            53  10144                             BX1    X4                                                      HEADER    161
                     0100000000 X                 RJ     SFN         SPACE FILL NAME.                            HEADER    162
            54  5110000000 X                      SA1    =XCP.PW                                                 CP139FC   195
                          5160000000 X            SA6    =XNAME      ROUTINE NAME SPACE FILLED                   FEAT126A  368
            55  0301000061 +                      ZR     X1,DCM2     IF NOT IN PW MODE                           FEAT126A  369
                          5120000000 X            SA2    =XTL.PTYP                                               FEAT126A  370
            56  43060                             MX0    8*CHAR                                                  FEAT126A  371
                     11102                        BX1    X0*X2       (X1) = 1ST 8 CHARACTERS OF ROUTINE TYPE     FEAT126A  372
                          15320                   BX3    -X0*X2      (X3) = LAST 2 CHARACTERS OF ROUTINE TYPE    FEAT126A  373
                               11406              BX4    X0*X6       (X4) = 1ST 8 CHARACTERS OF ROUTINE NAME     FEAT126A  374
            57  12634                             BX6    X3+X4                                                   FEAT126A  375
                     7130005555                   SX3    2R                                                      FEAT126A  376
                               12731              BX7    X3+X1                                                   FEAT126A  377
            60  20760                             LX7    -2*CHAR                                                 FEAT126A  378
                     54720                        SA7    A2                                                      FEAT126A  379
                          20660                   LX6    -2*CHAR                                                 FEAT126A  380
            61  5160000000 X             DCM2     SA6    =XTL.PNAM                                               FEAT126A  381
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     5
                                                                      DCM 
  
                          7110000000 X            MESAGE IDENT1,CONSOLE                                          HEADER    164
            64  7160000000 X                      =X6    CPM=IMP                                                 HEADER    165
                          5160000000 X            SA6    STAGE                                                   HEADER    166
            65  5110000000 X                      SA1    =XHDELAY                                                FCC1328X   90
                          0301000070 +            ZR     X1,DCM4     IF NO HEADER DELAY                          FCC1328X   91
            66  56040                             SA0    B4          SAVE (B4)                                   FCC1328X   92
                     0100000000 X                 RJ     =XLDB       LIST DEFERRED BUFFER                        FCC1328X   93
            67  64400                             SB4    A0          RESTORE (B4)                                FCC1328X   94
            70  5120000000 X             DCM4     SA2    =XLOP=O     OBJECT LIST FLAG                            FCC1328X   95
                          0332000000 X            MI     X2,=XPID    IF OBJECT LIST - PRINT IDENT                FEAT155G  160
                                        *         ...                                                            FEAT155G  161
            71  56140                    PIDX     SA1    B4                                                      FCC1274     6
                     0301000024 +                 ZR     X1,DCMX     IF NAME MISSING                             FCC1274     7
                               66441              =B4    B4+1                                                    FCC1274     8
            72  0400000024 +                      EQ     DCMX                                                    FCC1274     9
                                                                                                                 HEADER    177
                                 533 +   DCM3     LIT    7LXXX****   DUMMY NAME WHEN NAME ERROR                  HEADER    178
  
  
  
  
                                        **        PPA -  PROCESS PROGRAM ARGUMENTS                               HEADER    182
                                        *         ENTRY  B4 _ PAREN IN FRONT OF (POSSIBLE) ARGUMENTS             HEADER    183
                                        *         CALLS  PXE, SCTR, DEC, ALC, FFN, SFN, PVF, SSY, ADW, ESY       FEAT126C   86
                                                                                                                 HEADER    184
                                                                                                                 HEADER    185
            73  0400400073 +             PPA      SUBR   0                                                       HEADER    186
            74  0100000511 +                      RJ     PXE         PROCESS TRACEBACK WORD                      HEADER    187
            75  56140                             SA1    B4                                                      HEADER    188
                     13444                        =X4                                                            HEADER    189
                          0301000225 +            ZR     X1,PPA63    IF NO ARGUMENT LIST                         HEADER    190
            76  6271777767                        SB7    X1-O.(                                                  HEADER    191
                          0570000000 X            NZ     B7,E.AP     IF NO *(* - ERROR                           HEADER    192
            77  66441                             SB4    B4+B1       POINT TO FIRST FILE NAME                    HEADER    193
                                                                                                                 HEADER    194
                                        **        PROCESS PROGRAM ARGUMENTS LOOP                                 HEADER    195
                                                                                                                 HEADER    196
           100  56440                    PPA1     SA4    B4                                                      HEADER    197
                     43052                        MX0    7*CHAR                                                  HEADER    198
                          0304000000 X            ZR     X4,E.MR1    IF EOS INSTEAD OF FILE NAME                 HEADER    199
           101  11640                             BX6    X4*X0                                                   HEADER    200
                     5160000000 X                 SA6    FILL.2                                                  HEADER    201
                               43044              MX0    6*CHAR                                                  HEADER    202
           102  56141                             SA1    B4+B1       FETCH NEXT SEPARATOR                        HEADER    203
                     15260                        BX2    -X0*X6                                                  HEADER    204
                          0302000104 +            ZR     X2,PPA12    IF NO SEVENTH CHARACTER IN FILE NAME        FCC0520     4
           103  6170000000 X                      FATAL  =XE.TC11    FILE NAME EXCEEDS 6 CHAR                    HEADER    206
           104  7254777774               PPA12    SX5    X4-O.VAR                                                HEADER    207
                          0305000106 +            ZR     X5,PPA13                                                FCC0775     9
           105  6170000000 X                      FATAL  =XE.TC11    FILE NAME EXCEEDS 6 CHAR.                   FCC0775    10
           106  10466                    PPA13    BX4    X6                                                      FCC0775    11
                     66441                        =B4    B4+1                                                    HEADER    210
                          7251777765              SX5    X1-O.=                                                  HEADER    211
           107  0301000000 X                      ZR     X1,E.MR1    IF *EOS* - ERROR                            HEADER    212
                          5160000000 X            SA6    FILL.                                                   HEADER    213
           110  5160000320 +                      SA6    PPAF                                                    HEADER    214
                          5100777776              SA0    -1          INITIALLY, NO RECORD LENGTH INDICATED       HEADER    215
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     6
                                                                      PPA 
  
           111  5110000000 X                      SCAN   T.FILE,SCTR                                             HEADER    216
           112  76770                             SX7    B7                                                      HEADER    217
                     5170000317 +                 SA7    PPAE                                                    HEADER    218
           113  0770000122 +                      MI     B7,PPA15    IF *NIT*                                    HEADER    219
                          6170000000 X            WARN   E.TC1       ERR..  FILE DOUBLY DEFINED                  HEADER    220
           115  56141                    PPA14    =A1    B4+1                                                    FCC0520     5
                     6221777764                   SB2    X1-O.COMMA                                              FCC0520     6
           116  0301000000 X                      ZR     X1,E.MR1    IF *EOS* - ERROR                            FCC0520     7
                          66441                   =B4    B4+1                                                    FCC0520     8
           117  6271777766                        SB7    X1-O.)                                                  FCC0520     9
                          0470000221 +            ZR     B7,PPA62    IF *)*, CONTINUE FILE PROCESSING            FCC0520    10
           120  0520000115 +                      NZ     B2,PPA14    IF NOT COMMA, CONTINUE                      FCC0520    11
                          66441                   =B4    B4+1                                                    FCC0520    12
           121  0400000100 +                      EQ     PPA1        LOOP FOR MORE FILES                         FCC0520    13
                                                                                                                 HEADER    221
           122  0315000161 +             PPA15    NZ     X5,PPA4     IF NO EQUAL SIGN                            HEADER    222
                                                                                                                 HEADER    223
                                                                                                                 HEADER    224
                                        **        PROCESS EQUIVALENCED FILE                                      HEADER    225
                                                                                                                 HEADER    226
                          56241                   SA2    B4+B1       FETCH EQUIVALENCE ELEMENT                   HEADER    227
                               43052              MX0    7*CHAR                                                  HEADER    228
           123  64421                             SB4    A2+B1                                                   HEADER    229
                     11602                        BX6    X0*X2                                                   HEADER    230
                          6222777774              SB2    X2-O.VAR                                                HEADER    231
           124  66721                             =B7    B2+O.VAR-O.CONS                                         HEADER    232
                     0302000000 X                 ZR     X2,E.MR1    IF *EOS* - ERROR                            HEADER    233
           125  7252777770                        SX5    X2-O.SLASH                                              HEADER    234
                          0315000127 +            NZ     X5,PPA17    IF NOT */*                                  HEADER    235
           126  43501                             MX5    1           INDICATE NO BUFFER LENGTH GIVEN             HEADER    236
                     0400000137 +                 EQ     PPA2        GO PROCESS RECORD LENGTH                    HEADER    237
                                                                                                                 HEADER    238
           127  5160000000 X             PPA17    SA6    FILL.2                                                  HEADER    239
                          0470000147 +            ZR     B7,PPA3     IF NUMBER                                   HEADER    240
           130  0520000000 X                      NZ     B2,E.TC7    IF NO LETTER                                HEADER    241
                          43044                   MX0    6*CHAR                                                  HEADER    242
                               15560              BX5    -X0*X6                                                  HEADER    243
           131  0305000133 +                      ZR     X5,PPA18                                                HEADER    244
                          6170000000 X            FATAL  =XE.TC11    FILE NAME EXCEEDS 6 CHAR                    HEADER    245
           133  5110000000 X             PPA18    SCAN   T.FILE,SCTR                                             HEADER    246
           134  66570                             SB5    B7                                                      HEADER    247
                     0770000000 X                 MI     B7,E.TC6    IF *NIT*, ERR..                             HEADER    248
                               67207              SB2    -B7                                                     HEADER    249
           135  43101                             MX1    1                                                       HEADER    250
                     73022                        SX0    X2+B2                                                   HEADER    251
                          12312                   BX3    X1+X2       SET EQUIVALENCED BIT                        HEADER    252
                               37530              IX5    X3-X0       6/ -,  18/ L.TAG,  18/ FIT,  18/ ORDINAL    HEADER    253
           136  5100777776                        SA0    -1                                                      HEADER    254
                          0400000200 +            EQ     PPA55       CONTINUE..                                  HEADER    255
                                                                                                                 HEADER    256
                                        **        PROCESS RECORD LENGTH DECLARATION                              HEADER    257
                                                                                                                 HEADER    258
           137  56240                    PPA2     SA2    B4                                                      HEADER    259
                     6222777775                   SB2    X2-O.CONS                                               HEADER    260
           140  0520000000 X                      NZ     B2,E.TC9    IF NOT NUMBER - ERROR                       HEADER    261
                          0100000000 X            RJ     DEC         CONVERT RECORD LENGTH                       HEADER    262
           141  66441                             SB4    B4+B1                                                   HEADER    263
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     7
                                                                      PPA 
  
                     6271777775                   SB7    X1-M.INT                                                HEADER    264
           142  0301000143 +                      ZR     X1,PPA25    IF UNIVERSAL TYPE                           HEADER    265
                          0570000000 X            NZ     B7,E.TC9    IF NOT TYPE INTEGER - ERROR                 HEADER    266
           143  7130377777               PPA25    SX3    MAX.RECL                                                HEADER    267
                          37336                   IX3    X3-X6                                                   HEADER    268
           144  0333000000 X                      MI     X3,E.TC10   IF RECORD LENGTH TOO LARGE - ERROR          HEADER    269
                          0336000000 X            MI     X6,E.TC9    IF RECORD LENGTH NEGATIVE - ERROR           HEADER    270
           145  53060                             SA0    X6                                                      HEADER    271
                     0335000161 +                 MI     X5,PPA4     IF NO BUFFER LENGTH                         HEADER    272
           146  0400000171 +                      EQ     PPA5                                                    HEADER    273
                                                                                                                 HEADER    274
                                        **        PROCESS BUFFER LENGTH DECLARATION                              HEADER    275
                                                                                                                 HEADER    276
           147  67441                    PPA3     SB4    B4-B1                                                   HEADER    277
                     0100000000 X                 RJ     DEC         CONVERT BUFFER LENGTH                       HEADER    278
           150  66441                             SB4    B4+B1                                                   HEADER    279
                     6271777775                   SB7    X1-M.INT                                                HEADER    280
           151  0301000152 +                      ZR     X1,PPA35    IF UNIVERSAL TYPE                           HEADER    281
                          0570000000 X            NZ     B7,E.TC3    IF NOT TYPE INTEGER                         HEADER    282
           152  7130360000               PPA35    SX3    MAX.BUFL                                                HEADER    283
                          37336                   IX3    X3-X6                                                   HEADER    284
                               73560              SX5    X6                                                      F162FTNA  384
           153  0333000000 X                      MI     X3,E.TC4    IF BUFFER LENGTH TOO LARGE - ERROR          HEADER    285
                          0336000000 X            MI     X6,E.TC3    IF BUFFER LENGTH NEGATIVE - ERROR           HEADER    286
           154  0305000155 +                      ZR     X5,PPA352   IF BUFFER LENGTH ZERO, HONOR IT             F162FTNA  385
                          7255000003              SX5    X5+3        INCR 3 TO PREVENT S-TAPE PROBLEMS           F162FTNA  386
           155  56240                    PPA352   SA2    B4                                                      F162FTNA  387
                     6222777770                   SB2    X2-O.SLASH                                              HEADER    289
           156  0520000171 +                      NZ     B2,PPA5     IF NOT */*                                  HEADER    290
                          66441                   =B4    B4+1                                                    HEADER    291
           157  0400000137 +                      EQ     PPA2        GO PROCESS RECORD LENGTH                    HEADER    292
                                                                                                                 HEADER    293
           160  7150360003               PPA355   =X5    MAX.BUFL+3  BUFFER LENGTH REQUESTED EXCEEDS 360000      FCC1463X   14
                                        *                            -- 360000 SUBSTITUTED                       FCC1463X   15
                          0400000162 +            EQ     PPA45       CHECK FOR TERMINAL ORIGIN JOB               FCC1463X   16
                                                                                                                 FCC1463X   17
           161  7150002003               PPA4     =X5    L.IOBUF6    DEFAULT BUFFER LENGTH (2003B)               FCC1463X   18
           162  5140000320 +             PPA45    =A4    PPAF                                                    FCC1463X   19
                          5130000000 X            SA3    =XJOT                                                   HEADER    296
           163  0303000171 +                      ZR     X3,PPA5     IF NOT TERMINAL ORIGIN JOB                  HEADER    297
                          5130000017 +            SA3    DPN+2       DPC FOR *INPUT*                             HEADER    298
           164  43052                             MX0    42                                                      HEADER    299
                     11303                        BX3    X0*X3       STRIP OFF LOWER 18 BITS                     HEADER    300
                          7150000101              SX5    L.TIN       DEFAULT INPUT BUFF LENGTH FOR TERMINAL JOBS HEADER    301
           165  13343                             BX3    X4-X3                                                   HEADER    302
                     0303000171 +                 ZR     X3,PPA5     IF FILE *INPUT*                             HEADER    303
           166  5130000021 +                      SA3    DPN+4       DPC FOR *OUTPUT*                            HEADER    304
                          11303                   BX3    X0*X3       STRIP OFF LOWER 18 BITS                     HEADER    305
           167  7150000401                        SX5    L.TOUT      DEFAULT OUTPUT LENGTH FOR TERMINAL JOBS     HEADER    306
                          13343                   BX3    X4-X3                                                   HEADER    307
           170  0303000171 +                      ZR     X3,PPA5     IF FILE *OUTPUT*                            HEADER    308
                          7150002003              SX5    L.IOBUF6                                                HEADER    309
                                                                                                                 HEADER    310
                                        **        DEFINE NEW FILE  (ENTER INTO *LONG FILE*).                     HEADER    311
                                        *                (X4) = 42/0LFILENAM                                     HEADER    312
                                        *                (X5) = BUFFER LENGTH                                    HEADER    313
                                        *                (B6) \ 0 IFF ALREADY DEFINED.                           HEADER    314
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     8
                                                                      PPA 
  
                                                                                                                 HEADER    315
           171  5130000000 X             PPA5     SA3    TG.PRO                                                  HEADER    316
                          5120000000 X            SA2    ORG                                                     HEADER    317
           172  5110000317 +                      SA1    PPAE                                                    HEADER    318
                          0321000212 +            PL     X1,PPA6     IF FILE ALREADY DEFINED                     HEADER    319
           173  73631                             SX6    X3+B1       UPDATE PROGRAM TAG                          HEADER    320
                     7272000051                   SX7    X2+L.FIT6   CRM FIT LENGTH INCR                         F162FTNA  388
           174  5130000000 X                      SA3    =XOT.RM                                                 HEADER    322
                          0303000176 +            ZR     X3,PPA52    IF 6RM AT OBJECT TIME                       HEADER    323
           175  7272000020                        SX7    X2+L.FIT7   7RM FIT LENGTH INCR                         F162FTNA  389
                          7150000000              SX5    L.IOBUF7    (7RM ONLY) ALLOCATE NO CIO BUFFER           F162FTNA  390
           176  5160000000 X             PPA52    SA6    TG.PRO                                                  HEADER    325
                          20622                   LX6    18                                                      HEADER    326
                               36126              IX1    X2+X6                                                   HEADER    327
           177  54720                             SA7    A2          UPDATE ORIGIN COUNTER                       HEADER    328
                     20122                        LX1    18                                                      HEADER    329
                          36551                   IX5    X5+X1       =  6/ 0,  18/ L.TAG,  18/ (ORG),  18/ BUFLN HEADER    330
                                                                                                                 HEADER    331
           200  5110000000 X             PPA55    ALLOC  T.FILE,2                                                HEADER    332
           202  22705                             LX7    X5                                                      HEADER    333
                     10644                        BX6    X4                                                      HEADER    334
                          57771                   =A7    B7-1                                                    HEADER    335
                               55671              =A6    A7-1                                                    HEADER    336
                                                                                                                 HEADER    337
                                        *         SET UP ENTRY FOR WORKING STORAGE AREA                          HEADER    338
                                                                                                                 HEADER    339
           203  74500                             SX5    A0                                                      HEADER    340
                     0325000205 +                 PL     X5,PPA57    IF RECORD LENGTH SPECIFIED                  HEADER    341
                               43501              MX5    1           =  1/1,  59/0  (DUMMY ENTRY)                HEADER    342
           204  0400000207 +                      EQ     PPA58                                                   HEADER    343
                                                                                                                 HEADER    344
           205  5130000000 X             PPA57    SA3    TG.PRO                                                  HEADER    345
                          73631                   SX6    X3+B1       UPDATE PROGRAM TAG                          HEADER    346
                               54630              SA6    A3                                                      HEADER    347
           206  20644                             LX6    36                                                      HEADER    348
                     36556                        IX5    X5+X6       =  6/0,  18/L.TAG,  18/0,  18/MRL           HEADER    349
                                                                                                                 HEADER    350
           207  5110000000 X             PPA58    ALLOC  T.FILE,1                                                HEADER    351
           211  22705                             LX7    X5                                                      HEADER    352
                     57771                        =A7    B7-1                                                    HEADER    353
                                                                                                                 HEADER    354
                                        **        CHECK FOR MORE FILE DECLARATIONS                               HEADER    355
                                        *                EXPECT COMMA OR RIGHT PAREN.                            HEADER    356
                                                                                                                 HEADER    357
           212  56140                    PPA6     SA1    B4          FETCH NEXT SEPARATOR                        HEADER    358
                     66441                        SB4    B4+B1       POINT B4 TO (POSSIBLE) NEXT FILE NAME       HEADER    359
                          6271777764              SB7    X1-O.COMMA                                              HEADER    360
           213  0301000000 X                      ZR     X1,E.MR1    IF *EOS* - ERROR                            HEADER    361
                          6221777766              SB2    X1-O.)                                                  HEADER    362
           214  0470000100 +                      ZR     B7,PPA1     IF COMMA, LOOP FOR MORE FILES               HEADER    363
                          56240                   SA2    B4                                                      HEADER    364
           215  0520000220 +                      NZ     B2,PPA61    IF NO *)* - ERROR                           HEADER    365
                          0302000221 +            ZR     X2,PPA62    IF *EOS*                                    HEADER    366
           216  6170000000 X                      WARN   E.XC        WARN THAT WE IGNORED TRAILING CHARACTERS.   HEADER    367
           217  0400000221 +                      EQ     PPA62                                                   HEADER    368
                                                                                                                 HEADER    369
           220  6144777776              PPA61     SB4    B4-1                                                    HEADER    370
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE     9
                                                                      PPA 
  
                          0400000000 X            EQ     E.TC2                                                   HEADER    371
                                                                                                                 HEADER    372
                                                                                                                 HEADER    373
                                        **        END OF STATEMENT SCANNING.                                     HEADER    374
                                        *                MARK THE END OF THE FILE LIST.                          HEADER    375
                                        *                CHECK FOR TOO MANY FILES.                               HEADER    376
                                        *                SET UP (NARGS) AND (BT.IGS).                            HEADER    377
                                                                                                                 HEADER    378
           221  5140000000 X             PPA62    SA4    T=FILE                                                  HEADER    379
                          6224777554              SB2    X4-3*MAX.PARG                                           HEADER    380
           222  0602000225 +                      LE     B2,PPA63    IF NOT TOO MANY FILES                       FCC1464X    6
                          7140000223              SX4    3*MAX.PARG                                              HEADER    382
           223  10644                             SHRINK A4,X4                                                   HEADER    383
                          6170000000 X            WARN   E.TC5       ** TOO MANY FILES **                        HEADER    384
                                                                                                                 HEADER    385
                                        *         NUMBER OF ARGS IS (X4)/3 -- THE DIVISION IS NOW DONE BY A      HEADER    386
                                        *         SUBTRACTION LOOP                                               HEADER    387
                                                                                                                 HEADER    388
           225  66200                    PPA63    =B2    0           INITIALIZE QUOTIENT                         HEADER    389
                     0304000230 +                 ZR     X4,PPA63B   IF NO FILES                                 HEADER    390
           226  7130000003                        SX3    3                                                       HEADER    391
           227  37443                    PPA63A   IX4    X4-X3                                                   HEADER    392
                     66221                        =B2    B2+1        INCREMENT QUOTIENT                          HEADER    393
                          0314000227 +            NZ     X4,PPA63A   IF DIVISION NOT COMPLETE                    HEADER    394
           230  76620                    PPA63B   SX6    B2                                                      HEADER    395
                     5160000000 X                 SA6    NARGS                                                   HEADER    396
                               13666              BX6    0                                                       HEADER    397
           231  5110000000 X                      ADDWD  T.FILE      MARK END OF LIST                            HEADER    398
           232  53510                             SA5    X1                                                      HEADER    399
                     0305000250 +                 ZR     X5,PPA7     IF NO FILES                                 HEADER    400
           233  5160000312 +                      SA6    TFI         INITIALIZE T.FILE INCREMENT FOR PRINT       FCC2120     8
                                        *                            FILE DESCRIPTION MACRO LOOP.                FCC2120     9
                                                                                                                 HEADER    401
                                                                                                                 HEADER    402
                                        **        PRINT FILE DESCRIPTION MACROS.                                 HEADER    403
                                                                                                                 HEADER    404
           234  54451                    PPA64    SA4    A5+B1       FETCH TAG WORD                              HEADER    405
                     5120000000 X                 SA2    =XLOP=O     OBJECT LIST FLAG                            FEAT155G  163
           235  0332000000 X                      MI     X2,=XPFD    IF OBJECT LIST - PRINT FILE DESCRIPTORS     FEAT155G  164
                          20452                   LX4    -18                                                     FEAT155G  165
                               43352              MX3    LG.VAR*CHAR                                             FEAT155G  166
           236  73440                             SX4    X4                                                      FEAT155G  167
                     11635                        BX6    X3*X5                                                   FEAT155G  168
                          0100000000 X            RJ     FFN         ADD SPECIAL CHARACTER TO FILE NAME          FEAT155G  169
                                        *         ...                                                            FEAT155G  170
           237                           PFDX     BSS    0           ** RETURN FROM PFD                          FEAT155G  171
           237  10566                             BX5    X6                                                      FEAT155G  172
                     5110000000 X                 SCAN   TS.SYM,SSY        PREPARE TO ADD SYMBOL                 HEADER    451
           241  0670000000 X                      PL     B7,E.ZA     IF ALREADY IN TABLE, COMPILER ERROR.        HEADER    452
                          7170020050              =X7    M.ENT+M.DEF+M.NVAR                                      HEADER    453
           242  20430                             LX4    P.PNT                                                   HEADER    454
                     12747                        BX7    X4+X7                                                   HEADER    455
                          0100000000 X            ADSYM  A1                                                      HEADER    456
           243  5130000000 X                      SA3    CO.EDT                                                  HEADER    457
                          36553                   IX5    X5+X3       MERGE LINKAGE-SUPPRESSION BIT               HEADER    458
                               12605              BX6    X0+X5                                                   HEADER    459
           244  5110000000 X                      ADDWD  TS.ENT                                                  HEADER    460
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    10
                                                                      PPA 
  
           245  5120000312 +                      SA2    TFI         T.FILE INCREMENT                            FCC2120    10
                          7262000003              SX6    X2+3                                                    FCC2120    11
           246  5130000000 X                      SA3    T.FILE      X3 = ORIGIN                                 FCC2120    12
                          54620                   SA6    A2          SAVE NEW INCREMENT                          FCC2120    13
                               53530              SA5    X3          FWA OF T.FILE                               FCC2120    14
           247  63760                             SB7    X6                                                      FCC2120    15
                     54557                        SA5    A5+B7                                                   FCC2120    16
                          0315000234 +            NZ     X5,PPA64    IF MORE FILES                               HEADER    462
                                                                                                                 HEADER    463
                                                                                                                 HEADER    464
                                        **        PRINT *FILE VECTOR*.                                           HEADER    465
                                                                                                                 HEADER    466
           250  5110000000 X             PPA7     PIA    ORG,PPAC                                                HEADER    467
                          5130000000 X            SA3    ORG                                                     HEADER    468
           252  5120000000 X                      SA2    NARGS                                                   HEADER    469
                          7140260003              SX4    CT.FILE                                                 HEADER    470
                                                                                                                 F162FTNA  391
                                         .RM      IFEQ   OT#RM,6                                                 FCCA408    72
                                                                                                                 FCCA408    73
           253  0312000255 +                      NZ     X2,PPA7.5   IF MAIN PROGRAM WITH FILES                  FCCA408    74
                          5110000000 X            SA1    =XCO.STA                                                FCCA408    75
           254  0301000255 +                      ZR     X1,PPA7.5   IF NOT STATIC MODE                          FCCA408    76
                          7222000001 X            SX2    X2+=XL.STL+1      NO FILES + STLTAB + AP-LIST POINTER   FCCA408    77
                                                                                                                 FCCA408    78
           255  7222000003               PPA7.5   SX2    X2+L.LIST   Q2NTRY AP-LIST                              FCCA408    79
                                                                                                                 FCCA408    80
                                         .RM      ENDIF                                                          FCCA408    81
                                                                                                                 F162FTNA  394
                          5150000000 X            SA5    TA.PRO                                                  HEADER    471
           256  36132                             IX1    X3+X2                                                   HEADER    472
                     73611                        SX6    X1+B1                                                   HEADER    473
                          20452                   LX4    P.TAG                                                   HEADER    474
                               12743              BX7    X4+X3                                                   HEADER    475
           257  54630                             SA6    A3          ADVANCE ORIGIN COUNTER                      HEADER    476
                     5275000003                   SA7    X5+CT.FILE-C.PRO  DEFINE ADDRESS OF *CT.FILE*           HEADER    477
           260  5160000000 X                      SA6    BA.PRO                                                  HEADER    478
                          5120000000 X            SA2    LOP=O                                                   HEADER    479
           261  0322000263 +                      PL     X2,PPA8     IF NO OBJECT LISTING                        HEADER    480
                          7110000313 +            PLINE  PPAC,4      PRINT * L.S   Q2NTRY   NNNNN *              F162FTNA  395
                                                                                                                 HEADER    482
                                                                                                                 HEADER    483
                                        *         COMPILE CALLS TO *Q2NTRY.* AND *FTNRP2.*.                      F162FTNA  396
                                                                                                                 HEADER    485
           263  5110000000 X             PPA8     SA1    CO.ER       CHECK FOR OTR                               FEAT155G  173
                          0301000273 +            ZR     X1,PPA9                                                 FEAT155G  174
           264  0100000000 X                      RJ     PIG                                                     FEAT155G  175
           265  0100000334 +                      RJ     SOR                                                     FEAT155G  176
                                         #FID     IFNE  .FID,0                                                   F66FCC    183
           266  5130000000 X                      SA3    =XCO.ID     INTERACTIVE DEBUG FLAG                      F66FCC    184
                          0333000273 +            MI     X3,PPA9     IF FID ON                                   F66FCC    185
                                         #FID     ENDIF                                                          F66FCC    186
           267  7110000000 X                      SX1    =XSB=BKS3                                               FEAT155G  177
                          7211000002              SX1    X1+2                                                    FEAT155G  178
           270  5130000000 X                      SA3    =XREFLIN                                                FEAT155G  179
                          20160                   LX1    P.LI12                                                  FEAT155G  180
                               20306              LX3    P.LBIAS-CHAR                                            FEAT155G  181
           271  12713                             BX7    X1+X3                                                   FEAT155G  182
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    11
                                                                      PPA 
  
           272  6120000273 +                      WCODE  X7          SB0  B2+LINENO                              FEAT155G  183
           273                           PPA9     BSS    0                                                       FEAT155G  184
           273  5110000000 X                      SA1    ENTRY.                                                  FEAT155G  185
                          7271200000              CBSS   X1+C.VAR    COMPILE ENTRY POINT                         FEAT155G  186
                              260003     A        OCTMIC CT.FILE,6                                               HEADER    488
           275  5130000534 +                      SA3    =5110"A"BS30                                            HEADER    489
                          10733                   WCODE  X3          COMPILE  *SA1 FILE.*                        HEADER    490
           277  5120000000 X                      SA2    CO.ER                                                   FEAT155G  187
                          0312000305 +            NZ     X2,PPA10    IF *ER* SET, DO FTNRPV. ONLY                FEAT155G  188
           300  6140000000 X                      TAGSEX S.Q2NTR     IF ER = 0 CALL Q2NTRY.                      F162FTNA  397
           302  13111                             CRJ    NONE        COMPILE  * RJ  =XQ2NTRY. *                  F162FTNA  398
           303  0100000000 X                      RJ     PIG         PRINT INSTRUCTION GROUP                     HEADER    493
           304  0400000073 +                      EQ     PPAX                                                    FEAT155G  190
           305  6140000000 X             PPA10    TAGSEX S.FTNRP                                                 FEAT155G  191
           307  13111                             CRJ    NONE        COMPILE  * RJ  =XFTNRP2. *                  F162FTNA  399
           310  0100000000 X                      RJ     PIG         PRINT INSTRUCTION GROUP                     FEAT155G  193
           311  0400000073 +                      EQ     PPAX        EXIT..                                      HEADER    494
           312                     1     TFI      BSS    1           T.FILE INCREMENT                            FCC2120    17
                                                                                                                 HEADER    503
           313                     1     PPAC     BSS    1           ADDRESS                                     HEADER    504
                                   3     A        OCTMIC CT.FILE-C.PRO                                           HEADER    505
           314  55145736555555555555              DATA   10H L."A"                                               HEADER    506
           315  21351624223155555555              DIS    1,Q2NTRY    FILE VECTOR MACRO CALL                      F162FTNA  400
           316  55555555555555555555     PPAD     DIS    1,          PRINT LIMIT (SET BY *IMO*)                  HEADER    508
                                                                                                                 HEADER    510
           317  00000000000000000000     PPAE     DATA   0                                                       HEADER    511
           320  00000000000000000000     PPAF     DATA   0                                                       HEADER    512
           321                     1     PPAG     BSS    1                                                       FEAT155G  194
           322  55555555555555555555              DATA   10H                                                     FEAT155G  195
           323  23023355555555023546              DATA   10HSB0    B2-                                           FEAT155G  196
           324  14051657555555555555              DIS    1,LEN.                                                  FEAT155G  197
           325  00000000000000000000              DATA   0                                                       FEAT155G  198
           326  55555555555555555555     PPAH     DATA   10H                                                     FEAT155G  199
           327  55555555555555555555              DATA   10H                                                     FEAT155G  200
           330  23023355555555023545              DATA   10HSB0    B2+                                           FEAT155G  201
           331  14573355555555555524              DIS    1,L.0      T                                            FEAT155G  202
           332  22010305575555555555              DIS    1,RACE.                                                 FEAT155G  203
           333  00000000000000000000              DATA   0                                                       FEAT155G  204
                                                                                                                 FEAT155G  205
                                        **        SOR-   SET OBJECT TIME REPRIEVE CODE                           FEAT155G  206
                                        *         WHEN CONTROL CARD OPTION *ER* IS SET,  SET FIRST INSTRUCTIONS  FEAT155G  207
                                        *         IN LONG FILE TO BE  * SB0  B2-LEN. * (LEN. = LENGTH OF         FEAT155G  208
                                        *         ROUTINE) AND * SB0  B2+POINTER * (POINTER = POINTER TO TRACE   FEAT155G  209
                                        *         WORD).  WHEN LENGTH OF ROUTINE IS DETERMINED (IN *END* ) THE   FEAT155G  210
                                        *         TRUE VALUE WILL THEN BE APPENDED TO THE INSTRUCTION BEFORE     FEAT155G  211
                                        *         THE LONG FILE IS PROCESSED (IN *END*).                         FEAT155G  212
                                        *                                                                        FEAT155G  213
                                        *         USES - X0-X4,X6,A1-A4,A6,B1,B2                                 FEAT155G  214
                                                                                                                 FEAT155G  215
                                                                                                                 FEAT155G  216
           334  0400400334 +             SOR      SUBR   0                                                       FEAT155G  217
           335  43001                             MX0    1                                                       FEAT155G  218
                     21020                        AX0    16                                                      FEAT155G  219
                          5140000535 +            SA4    =6102BS48                                               FEAT155G  220
           336  20060                             LX0    48                                                      FEAT155G  221
                     36304                        IX3    X0+X4       SET TAG FIELD NONZERO _ 61027777760-0B      FEAT155G  222
                          10733                   WCODE  X3          X4 IS PRESERVED.                            FEAT155G  223
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    12
                                                                      PPA 
  
                              260000     A        OCTMIC CT.TRAC,6                                               FEAT155G  224
           340  5140000536 +                      SA4    =6102"A"BS30                                            FEAT155G  225
                          10744                   WCODE  X4          TAG FIELD = 0  _ 61020-0B                   FEAT155G  226
           342  5110000000 X                      SA1    ORG                                                     FCCA557    15
                          73611                   SX6    X1+B1                                                   FCCA557    16
                               54610              SA6    A1          ADVANCE ORIGIN COUNTER                      FCCA557    17
           343  5110000000 X                      SA1    BINIO                                                   FCCA557    18
                          0301000350 +            ZR     X1,SOR2     IF LONG FILE IS IN CORE                     FCCA557    19
           344  5110000000 X                      SA1    TT.LF                                                   FCCA557    20
                          5120000000 X            SA2    TT=LF                                                   FCCA557    21
           345  63610                             WRITEW F.LF,X1,X2  PUT OTR INSTRUCTIONS ON DISK                FCCA557    22
           347  13666                             SHRINK TT=LF                                                   FCCA557    23
           350  5110000000 X             SOR2     SA1    TT=LF                                                   FCCA557    24
                          10611                   BX6    X1                                                      FCCA557    25
           351  5160000000 X                      SA6    IGS         PIG WILL NOT PROCESS THE OTR INSTRUCTIONS   FCCA557    26
                          5120000000 X            SA2    LOP=O                                                   FCCA557    27
           352  0322000357 +                      PL     X2,SOR1     IF NO OBJECT LISTING                        FEAT155G  234
                          0100000000 X            PIA    ,PPAG                                                   FEAT155G  235
                          7110000321 +            PLINE  PPAG,4      PRINT * SB0  B2-LEN.*                       FEAT155G  236
           355  7110000326 +                      PLINE  PPAH,5      PRINT * SB0  B2+L.0   TRACE. *              FEAT155G  237
           357  0400000334 +             SOR1     EQ     SOR                                                     FEAT155G  238
  
  
  
  
                                        **        PSA -  PROCESS SUBPROGRAM ARGUMENTS.                           HEADER    514
                                        *         ENTRY  (B4) _ *(* AT BEGINNING OF (POSSIBLE) ARGUMENT LIST.    HEADER    515
                                        *         USES   ALL                                                     HEADER    516
                                        *         CALLS  PIG, PXE, STY, TLV.                                     FEAT126C   87
                                                                                                                 HEADER    518
                                                                                                                 HEADER    519
           360  0400400360 +             PSA      SUBR   0                                                       HEADER    520
           361  0100000511 +                      RJ     PXE         PROCESS TRACEBACK WORD                      HEADER    521
           362  56140                             SA1    B4                                                      HEADER    522
                     66600                        SB6    B0          SET ARGUMENT COUNT TO ZERO                  HEADER    523
                          0301000371 +            ZR     X1,PSA11    IF NO ARGUMENTS                             HEADER    524
           363  7221777767                        SX2    X1-O.(                                                  HEADER    525
                          0312000402 +            NZ     X2,PSA13    IF NO *(*                                   HEADER    526
           364  56141                             SA1    B4+B1                                                   HEADER    527
                     66441                        SB4    B4+B1                                                   HEADER    528
                          0301000000 X            ZR     X1,E.MR1    IF EOS INSTEAD OF ARGUMENT                  HEADER    529
                                                                                                                 HEADER    530
           365  43052                    PSA1     MX0    LG.VAR*CHAR                                             HEADER    531
                     6271777774                   SB7    X1-O.VAR                                                HEADER    532
                               11601              BX6    X0*X1                                                   HEADER    533
           366  5160000000 X                      SA6    FILL.                                                   HEADER    534
                          0470000376 +            ZR     B7,PSA12    IF LETTER                                   HEADER    535
           367  6170000000 X                      FATAL  E.AC4                                                   HEADER    536
           370  0400000414 +                      EQ     PSA17                                                   HEADER    537
                                                                                                                 HEADER    538
           371  76660                    PSA11    SX6    B6                                                      HEADER    539
                     5160000000 X                 SA6    NARGS       STORE NUMBER OF ARGUMENTS                   HEADER    540
           372  5110000000 X                      SA1    MOD                                                     HEADER    541
                          20162                   LX1    59-P.PFNC                                               HEADER    542
           373  0321000477 +                      PL     X1,PSA32    IF NOT A FUNCTION                           HEADER    543
           374  6170000000 X             PSA11A   FATAL  E.FA                                                    HEADER    544
           375  0400000477 +                      EQ     PSA32                                                   HEADER    545
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    13
                                                                      PSA 
  
                                                                                                                 HEADER    546
           376  5110000000 X             PSA12    SCAN   TS.SYM,SSY                                              HEADER    547
           377  0770000406 +                      MI     B7,PSA14    IF NOT PREVIOUSLY DEFINED                   HEADER    548
                          6170000000 X            FATAL  E.AC3                                                   HEADER    549
           401  0400000412 +                      EQ     PSA15                                                   HEADER    550
                                                                                                                 HEADER    551
           402  76660                    PSA13    SX6    B6                                                      HEADER    552
                     5160000000 X                 SA6    NARGS       STORE NUMBER OF ARGUMENTS                   HEADER    553
           403  5120000000 X                      SA2    MOD                                                     HEADER    554
                          20262                   LX2    59-P.PFNC                                               HEADER    555
           404  0332000374 +                      MI     X2,PSA11A   IF A FUNCTION                               HEADER    556
                          7231777764              SX3    X1-O.COMMA                                              HEADER    557
           405  0313000000 X                      NZ     X3,E.AC6    IF NO *,* - ERROR                           HEADER    558
                          0400000431 +            EQ     PSA22                                                   HEADER    559
                                                                                                                 HEADER    560
           406  0100000000 X             PSA14    RJ     STY         SET NATURAL TYPE                            HEADER    561
           407  76361                             =X3    B6+1        = ORDINAL OF ARGUMENT                       HEADER    562
                     7120000020                   =X2    M.FP                                                    HEADER    563
                               66661              =B6    B6+1        COUNT ARGUMENTS                             HEADER    564
           410  20322                             LX3    P.FPNO                                                  HEADER    565
                     36121                        IX1    X2+X1                                                   HEADER    566
                          12713                   BX7    X1+X3                                                   HEADER    567
           411  5110000000 X                      ADSYM  TS.SYM                                                  HEADER    568
                                                                                                                 HEADER    569
           412  76110                    PSA15    ADDREF X6,CR.CALL                                              HEADER    570
                                                                                                                 HEADER    571
           414  56341                    PSA17    =A3    B4+1                                                    HEADER    572
                     6273777774                   SB7    X3-O.VAR                                                HEADER    573
           415  0570000417 +                      NZ     B7,PSA18    IF NOT LONG NAME                            HEADER    574
                          0100000000 X            RJ     =XTLV       TRUNCATE NAME                               HEADER    575
           416  56341                             =A3    B4+1                                                    HEADER    576
           417  0303000000 X             PSA18    ZR     X3,E.MR1    IF NO *)* - ERROR                           HEADER    577
                          54131                   SA1    A3+B1                                                   HEADER    579
           420  7223777764                        SX2    X3-O.COMMA                                              HEADER    580
                          64431                   SB4    A3+B1       B4 = B4+1                                   HEADER    581
           421  0302000365 +                      ZR     X2,PSA1     IF *,* LOOP ON NEXT ARGUMENT                HEADER    582
                          7223777766              SX2    X3-O.)                                                  HEADER    583
           422  0312000000 X                      NZ     X2,E.AP1    IF NO *)* - ERROR                           HEADER    584
                          76660                   SX6    B6                                                      HEADER    585
           423  5160000000 X                      SA6    NARGS                                                   HEADER    586
                          56240                   SA2    B4                                                      HEADER    587
           424  0302000475 +                      ZR     X2,PSA3     IF *EOS*                                    HEADER    588
                          7212777764              SX1    X2-O.COMMA                                              HEADER    589
           425  0301000431 +                      ZR     X1,PSA22                                                HEADER    590
                          5212000000 X            SA1    X2+=XCHARMAP                                            HEADER    591
           426  43052                             MX0    L.CDPC                                                  HEADER    592
                     0311000427 +                 NZ     X1,PSA21A   IF NOT VAR OR CONS                          HEADER    593
                               22102              LX1    X2                                                      HEADER    594
           427  11601                    PSA21A   BX6    X0*X1                                                   HEADER    595
                     5160000000 X                 SA6    FILL.                                                   HEADER    596
           430  0400000000 X                      EQ     =XE.TY      OUTPUT ERROR                                HEADER    597
           431  56141                    PSA22    SA1    B4+B1                                                   HEADER    598
                     66441                        SB4    B4+B1                                                   HEADER    599
                          43052                   MX0    LG.VAR*CHAR                                             HEADER    600
           432  6271777774                        SB7    X1-O.VAR                                                HEADER    601
                          11601                   BX6    X0*X1                                                   HEADER    602
           433  0570000505 +                      NZ     B7,PSAERR   IF NOT LETTER - ERROR                       HEADER    603
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    14
                                                                      PSA 
  
                          43230                   MX2    4*CHAR                                                  HEADER    604
                               11221              BX2    X2*X1                                                   HEADER    605
           434  5130000537 +                      SA3    =0LRETU                                                 HEADER    606
                          37223                   IX2    X2-X3                                                   HEADER    607
           435  0312000505 +                      NZ     X2,PSAERR   IF FIRST 4 LETTERS NOT *RETU*               HEADER    608
                          5130000540 +            SA3    =0LRETURNS                                              HEADER    609
           436  37263                             IX2    X6-X3                                                   HEADER    610
                     0302000440 +                 ZR     X2,PSA23    IF *RETURNS*                                HEADER    611
           437  6170000000 X                      WARN   E.AC9                                                   HEADER    612
           440  6170000000 X             PSA23    ANSI   E.ANS                                                   HEADER    613
           441  56141                             SA1    B4+B1                                                   HEADER    614
                     66441                        SB4    B4+B1                                                   HEADER    615
                          7221777767              SX2    X1-O.(                                                  HEADER    616
           442  0312000000 X                      NZ     X2,E.AP     IF NO *(* - ERROR                           HEADER    617
                          66661                   =B6    B6+1        BUMP ARG COUNT FOR -0 WORD                  HEADER    618
                               66441              =B4    B4+1                                                    HEADER    619
           443  56140                    PSA24    SA1    B4                                                      HEADER    620
                     43052                        MX0    LG.VAR*CHAR                                             HEADER    621
                          6271777774              SB7    X1-O.VAR                                                HEADER    622
           444  11601                             BX6    X0*X1                                                   HEADER    623
                     5160000000 X                 SA6    FILL.                                                   HEADER    624
           445  0470000450 +                      ZR     B7,PSA25    IF LETTER                                   HEADER    625
                          6170000000 X            FATAL  E.AC4                                                   HEADER    626
           447  0400000461 +                      EQ     PSA28                                                   HEADER    627
                                                                                                                 HEADER    628
           450  5110000000 X             PSA25    SCAN   TS.SYM,SSY                                              HEADER    629
           451  0770000454 +                      MI     B7,PSA26    IF NOT PREVIOUSLY DEFINED                   HEADER    630
                          6170000000 X            FATAL  E.AC3                                                   HEADER    631
           453  0400000457 +                      EQ     PSA27                                                   HEADER    632
                                                                                                                 HEADER    633
           454  76361                    PSA26    =X3    B6+1        = ORDINAL OF ARGUMENT                       HEADER    634
                     7120060000                   =X2    M.RP+M.NVAR                                             HEADER    635
                               66661              =B6    B6+1        COUNT ARGUMENTS                             HEADER    636
           455  20322                             LX3    P.FPNO                                                  HEADER    637
                     12723                        BX7    X2+X3                                                   HEADER    638
                          5110000000 X            ADSYM  TS.SYM                                                  HEADER    639
                                                                                                                 HEADER    640
           457  76110                    PSA27    ADDREF X6,CR.CALL                                              HEADER    641
                                                                                                                 HEADER    642
           461  56341                    PSA28    =A3    B4+1                                                    HEADER    643
                     0303000000 X                 ZR     X3,E.MR1    IF PREMATURE *EOS*                          HEADER    644
           462  6273777774                        SB7    X3-O.VAR                                                HEADER    645
                          0570000465 +            NZ     B7,PSA28B   IF NOT LONG NAME                            HEADER    646
           463  0100000000 X                      RJ     =XTLV       TRUNCATE NAME                               HEADER    647
           464  56341                             =A3    B4+1                                                    HEADER    648
           465  54131                    PSA28B   =A1    A3+1                                                    HEADER    649
                     7223777764                   SX2    X3-O.COMMA                                              HEADER    651
                               64431              SB4    A3+B1                                                   HEADER    652
           466  0302000443 +                      ZR     X2,PSA24    IF *,* LOOP ON NEXT ARGUMENT                HEADER    653
                          7223777766              SX2    X3-O.)                                                  HEADER    654
           467  0312000000 X                      NZ     X2,E.AP1    IF NO *)* - ERROR                           HEADER    655
                          0301000471 +            ZR     X1,PSA29    IF *EOS*                                    HEADER    656
           470  6170000000 X                      WARN   E.AC8                                                   HEADER    657
           471  76660                    PSA29    SX6    B6                                                      HEADER    658
                     5160000000 X                 SA6    NARGS       STORE NUMBER OF ARGUMENTS                   HEADER    659
           472  5110000000 X                      SA1    MOD                                                     HEADER    660
                          20162                   LX1    59-P.PFNC                                               HEADER    661
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    15
                                                                      PSA 
  
           473  0321000475 +                      PL     X1,PSA3     IF NOT A FUNCTION                           HEADER    662
                          6170000000 X            FATAL  E.FR                                                    HEADER    663
           475  6126777700               PSA3     SB2    B6-MAX.SARG                                             HEADER    664
                          0602000477 +            LE     B2,PSA32    IF COMPILER DEFINED LIMIT NOT EXCEEDED      HEADER    665
           476  6170000000 X                      FATAL  E.AC                                                    HEADER    666
           477  7110260005               PSA32    SX1    CT.BEGIN                                                HEADER    667
                          73710                   CBSS   X1                                                      HEADER    668
           501  0100000000 X                      RJ     PIG         PRINT INSTRUCTIONS                          HEADER    670
           502  5110000000 X                      SA1    CO.ER                                                   FEAT155G  239
                          0301000504 +            ZR     X1,PSA33    IF ER=0                                     FEAT155G  240
           503  0100000334 +                      RJ     SOR                                                     FEAT155G  241
           504  0400000360 +             PSA33    EQ     PSAX                                                    FEAT155G  242
                                                                                                                 HEADER    672
                                        *         IF NOT RETURNS FOLLOWING *ARGUMENT LIST* *,*                   HEADER    673
                                                                                                                 HEADER    674
           505  5221000000 X             PSAERR   SA2    X1+=XCHARMAP                                            HEADER    675
                          0312000507 +            NZ     X2,PSAERR1  IF NOT VAR OR CONS                          HEADER    676
           506  22201                             LX2    X1                                                      HEADER    677
           507  43052                    PSAERR1  MX0    L.CDPC                                                  HEADER    678
                     11602                        BX6    X0*X2                                                   HEADER    679
                          5160000000 X            SA6    FILL.                                                   HEADER    680
           510  0400000000 X                      EQ     E.AC5                                                   HEADER    681
  
  
  
  
                                        **        PXE -  PROCESS TRACEBACK WORD                                  HEADER    683
                                                                                                                 HEADER    684
                                                                                                                 HEADER    685
           511  0400400511 +             PXE      SUBR   0                                                       HEADER    686
           512  76600                             SHRINK TT=LF,0                                                 HEADER    687
                                                                                                                 HEADER    688
                                        **        INITIALIZE THE *PROGRAM* TAG ADDRESS TABLE.                    HEADER    689
                                                                                                                 HEADER    690
           513  5110000000 X                      ALLOC  TA.PRO,CT.LAST-C.PRO+1                                  HEADER    691
           515  7170260007                        SX7    CT.LAST                                                 HEADER    692
                          13666                   BX6    0                                                       HEADER    693
                               63210              SB2    X1                                                      HEADER    694
           516  5170000000 X                      SA7    TG.PRO                                                  HEADER    695
                          43073                   MX0    -1                                                      HEADER    696
           517  56620                    PXE2     SA6    B2                                                      HEADER    697
                     66221                        =B2    B2+1                                                    HEADER    698
                          37660                   IX6    X6-X0                                                   HEADER    699
           520  0727000517 +                      LT     B2,B7,PXE2  IF MORE PRE-DEFINED TAGS                    HEADER    700
                                                                                                                 HEADER    701
                                        *         NOW TAKE CARE OF LISTING STUFF                                 HEADER    702
                                                                                                                 HEADER    703
                          5110000000 X            SA1    LOP=O                                                   HEADER    704
           521  7160000003                        SX6    3                                                       HEADER    705
                          5160000000 X            SA6    ORG         ADVANCE RUNNING ADDRESS                     HEADER    706
           522  5160000000 X                      SA6    BA.PRO                                                  HEADER    707
                          0321000511 +            PL     X1,PXEX     IF NO OBJECT LISTING                        HEADER    708
                                                                                                                 HEADER    709
           523  5110000000 X                      SA1    =XTL.PNAM   PROGRAM UNIT NAME                           FEAT126A  386
                          10611                   BX6    X1                                                      HEADER    711
           524  5160000530 +                      SA6    PXEB+1                                                  HEADER    712
                          75161                   PLINE  A6-1,2      PRINT * NAME     TRACE.*                    FEAT126A  387
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    16
                                                                      PXE 
  
           526  0400000511 +                      EQ     PXEX        EXIT..                                      HEADER    714
                                                                                                                 HEADER    715
           527  55555555555533555555     PXEB     CON    4A0                                                     HEADER    716
           530  55555555555555555555              DIS    1,          NAME GOES HERE                              HEADER    717
           531  24220103055700000000              DIS    ,/TRACE./                                               HEADER    718
  
  
  
  
                                                  LIST   D                                                       HEADER    720
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        PWE 
             0 X                        T.SB
             0 X                        TL.PTYP 
             0 X                        BT.IDN8 
             0 X                        TLV 
             0 X                        ESY 
             0 X                        REFLIN
             0 X                        ADW 
             0 X                        ERT 
             0 X                        CP.PW 
             0 X                        NAME
             0 X                        TL.PNAM 
             0 X                        MSG=
             0 X                        HDELAY
             0 X                        LDB 
             0 X                        PID 
             0 X                        JOT 
             0 X                        OT.RM 
             0 X                        ALC 
             0 X                        PFD 
             0 X                        COD 
             0 X                        CO.STA
             0 X                        L.STL 
             0 X                        CO.ID 
             0 X                        SB=BKS3 
             0 X                        WTW=
             0 X                        CHARMAP 
             0 X                        E.TY
             0 X                        ANSI= 
  
                                        CONTENT OF LITERALS BLOCK.
  
           532  20221707220115555555    PROGRAM 
           533  30303047474747000000    XXX**** 
           534  51102600030000000000    (HV C 
           535  61020000000000000000    [B
           536  61022600000000000000    [BV 
           537  22052425000000000000    RETU
           540  22052425221623000000    RETURNS 
  
           541                                    END                                                            HEADER    721
  
                             55400B CM  STORAGE USED             2025 STATEMENTS      917 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.497 SECONDS         655 REFERENCES
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    17
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       4/36      9/28      9/57
        ALC             0   EXTERNAL*       8/19      8/38     15/35
        ANSI=           0   EXTERNAL*      14/10
        BA.PRO          0   EXTERNAL*       1/57 X   10/36 S   15/51 S
        BINIO           0   EXTERNAL*       2/02 X   12/07
        BT.IDNT         0   EXTERNAL*       2/19 X    4/04 S    4/25 S
        BT.IDN8         0   EXTERNAL*       4/03
        BT.XFR1         0   EXTERNAL*       2/19 X    4/26 S
        CHAR            6   TSTEXT          4/06      4/31      4/54      5/39      6/22      9/41     12/43     14/01
                                            4/10      4/47      4/56      5/43      6/36     10/56     13/54     14/18
        CHARMAP         0   EXTERNAL*      13/45     15/16
        COD             0   EXTERNAL*      10/13     12/18
        CO.BLN          0   EXTERNAL*       1/53 X
        CO.EDT          0   EXTERNAL*       1/53 X    9/54
        CO.ER           0   EXTERNAL*       1/54 X   10/44     11/08     15/09
        CO.ID           0   EXTERNAL*      10/49
        CO.STA          0   EXTERNAL*      10/21
        CPM=IMP         0   EXTERNAL*       2/25 X    5/02      5/02
        CP.PW           0   EXTERNAL*       4/43
        CRJ             0   EXTERNAL*       2/35 X   11/11     11/15
        CR.CALL         1   TSTEXT         13/25     14/38
        CR.NTR          5   TSTEXT          4/40
        CSNTAG          0   EXTERNAL*       1/57 X    3/12 S
        CT.BEGIN   260005   TSTEXT         15/06
        CT.FILE    260003   TSTEXT         10/16     10/35 S   11/05     11/21
        CT.LAST    260007   TSTEXT         15/35     15/36
        CT.TRAC    260000   TSTEXT         12/01
        C.PRO      260000   TSTEXT         10/35 S   11/21     15/35
        C.VAR      200000   TSTEXT          4/38     11/04
        DCM            24   PROGRAM*        1/48 E    3/06      3/54 L
        DCM1           40   PROGRAM*        4/15      4/17      4/21 L
        DCM1A          36   PROGRAM*        4/08      4/12      4/19 L
        DCM2           61   PROGRAM*        4/45      4/57 L
        DCM3          533   PROGRAM*        1/48 E    4/20      5/17 L
        DCM4           70   PROGRAM*        5/05      5/09 L
        DEC             0   EXTERNAL*       2/28 X    6/56      7/15
        DPN            15   PROGRAM*        3/04      3/27 L    7/41      7/47
        ENTRY.          0   EXTERNAL*       1/57 X    4/34 S    4/37     11/03
        ERT             0   EXTERNAL*       4/40     13/25     14/38
        ESY             0   EXTERNAL*       4/29      9/53     13/23     14/36
        E.AC            0   EXTERNAL*       2/07 X   15/05
        E.AC3           0   EXTERNAL*       2/07 X   13/04     14/28
        E.AC4           0   EXTERNAL*       2/07 X   12/48     14/23
        E.AC5           0   EXTERNAL*       2/07 X   15/22
        E.AC6           0   EXTERNAL*       2/07 X   13/13
        E.AC8           0   EXTERNAL*       2/07 X   14/53
        E.AC9           0   EXTERNAL*       2/07 X   14/09     14/09
        E.ANS           0   EXTERNAL*       2/07 X   14/10
        E.AP            0   EXTERNAL*       2/08 X    5/33     14/14
        E.AP1           0   EXTERNAL*       2/08 X   13/38     14/51
        E.FA            0   EXTERNAL*       2/08 X   12/56
        E.FR            0   EXTERNAL*       2/08 X   15/02
        E.MR1           0   EXTERNAL*       2/08 X    5/54      6/27     12/41     14/41
                                            5/40      6/08      8/48     13/32
        E.PN1           0   EXTERNAL*       2/08 X    4/19
        E.PN3           0   EXTERNAL*       2/08 X    2/53
        E.TC1           0   EXTERNAL*       2/08 X    6/05
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        E.TC10          0   EXTERNAL*       2/09 X    7/06
        E.TC11          0   EXTERNAL*       2/10 X    5/47      5/50      6/39
        E.TC2           0   EXTERNAL*       2/10 X    9/01
        E.TC3           0   EXTERNAL*       2/08 X    7/19      7/24
        E.TC4           0   EXTERNAL*       2/09 X    7/23
        E.TC5           0   EXTERNAL*       2/09 X    9/14
        E.TC6           0   EXTERNAL*       2/09 X    6/42
        E.TC7           0   EXTERNAL*       2/09 X    6/35
        E.TC9           0   EXTERNAL*       2/09 X    6/55      7/03      7/07
        E.TY            0   EXTERNAL*      13/51
        E.XC            0   EXTERNAL*       2/09 X    8/54
        E.ZA            0   EXTERNAL*       2/09 X    9/49
        FFN             0   EXTERNAL*       2/32 X    9/44
        FILL.           0   EXTERNAL*       2/09 X    5/55 S   12/46 S   13/50 S   14/21 S   15/21 S
        FILL.2          0   EXTERNAL*       2/10 X    5/42 S    6/33 S
        F.LF            0   EXTERNAL*       2/02 X   12/11
        HDELAY          0   EXTERNAL*       5/04
        IDENT           0   EXTERNAL*       1/57 X    4/24 S
        IDENT1          0   EXTERNAL*       1/57 X    5/01
        IGS             0   EXTERNAL*       2/04 X   12/15 S
        JOT             0   EXTERNAL*       7/39
        LDB             0   EXTERNAL*       5/07
        LG.VAR          7   TSTEXT          4/06      9/41     12/43     13/54     14/18
        LOP=O           0   EXTERNAL*       1/53 X    5/09      9/38     10/37     12/16     15/48
        L.CDPC         52   TSTEXT         13/46     15/19
        L.FIT6         51   TSTEXT          8/07
        L.FIT7         20   TSTEXT          8/10
        L.IOBUF6     2003   TSTEXT          7/37      7/52
        L.IOBUF7        0   TSTEXT          8/11
        L.LIST          3   TSTEXT         10/25
        L.STL           0   EXTERNAL*      10/23
        L.SYM          52   TSTEXT          4/21
        L.TIN         101   TSTEXT          7/44
        L.TOUT        401   TSTEXT          7/49
        MAX.BUFL   360000   TSTEXT          7/20      7/33
        MAX.PARG       61   TSTEXT          9/10      9/12
        MAX.RECL   377777   TSTEXT          7/04
        MAX.SARG       77   TSTEXT         15/03
        MOD             0   EXTERNAL*       1/57 X    3/55     12/53     13/09     14/56
        MSG=            0   EXTERNAL*       5/01
        M.DEF          10   TSTEXT          4/28      4/28      9/50
        M.ENT          40   TSTEXT          4/28      4/28      9/50
        M.FP           20   TSTEXT         13/18
        M.INT           2   TSTEXT          7/01      7/17
        M.NVAR      20000   TSTEXT          4/28      4/28      9/50     14/32
        M.PPRO       4000   TSTEXT          3/02
        M.RP        40000   TSTEXT         14/32
        M.SYSEXT    20100   TSTEXT         11/10     11/14
        NAME            0   EXTERNAL*       4/44 S
        NARGS           0   EXTERNAL*       2/01 X    9/26 S   10/15     12/52 S   13/08 S   13/40 S   14/55 S
        ORG             0   EXTERNAL*       2/01 X    8/03     10/13     10/14     12/04     15/50 S
        OT.RM           0   EXTERNAL*       8/08
        OT#RM           6   TSTEXT         10/18 F
        O.COMMA        13   TSTEXT          3/30      6/07      8/47     13/12     13/34     13/43     14/47
        O.CONS          2   TSTEXT          6/26      6/54
        O.SLASH         7   TSTEXT          6/28      7/28
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        O.VAR           3   TSTEXT          3/27      3/31      4/14      6/25     12/44     13/55     14/42
                                            3/29      4/07      5/48      6/26     13/28     14/19
        O.(            10   TSTEXT          3/28      5/32     12/37     14/13
        O.)            11   TSTEXT          3/32      6/10      8/49     13/37     14/50
        O.=            12   TSTEXT          5/53
        PFD             0   EXTERNAL*       9/39
        PFDX          237   PROGRAM*        1/50 E    9/46 L
        PID             0   EXTERNAL*       5/10
        PIDX           71   PROGRAM*        1/50 E    5/12 L
        PIG             0   EXTERNAL*       2/13 X   10/46     11/12     11/16     15/08
        PPA            73   PROGRAM*        1/48 E    3/07      5/27 L
        PPAC          313   PROGRAM*       10/13 S   10/39     11/20 L
        PPAD          316   PROGRAM*        1/48 E   11/24 L
        PPAE          317   PROGRAM*        6/03 S    8/04     11/26 L
        PPAF          320   PROGRAM*        5/56 S    7/38     11/27 L
        PPAG          321   PROGRAM*       11/28 L   12/18 S   12/19
        PPAH          326   PROGRAM*       11/33 L   12/20
        PPA1          100   PROGRAM*        5/38 L    6/14      8/50
        PPA10         305   PROGRAM*       11/09     11/14 L
        PPA12         104   PROGRAM*        5/46      5/48 L
        PPA13         106   PROGRAM*        5/49      5/51 L
        PPA14         115   PROGRAM*        6/06 L    6/12
        PPA15         122   PROGRAM*        6/04      6/16 L
        PPA17         127   PROGRAM*        6/29      6/33 L
        PPA18         133   PROGRAM*        6/38      6/40 L
        PPA2          137   PROGRAM*        6/31      6/53 L    7/31
        PPA25         143   PROGRAM*        7/02      7/04 L
        PPA3          147   PROGRAM*        6/34      7/14 L
        PPA35         152   PROGRAM*        7/18      7/20 L
        PPA352        155   PROGRAM*        7/25      7/27 L
        PPA355        160   PROGRAM*        1/49 E    7/33 L
        PPA4          161   PROGRAM*        1/48 E    6/16      7/09      7/37 L
        PPA45         162   PROGRAM*        7/35      7/38 L
        PPA5          171   PROGRAM*        7/10      7/29      7/40      7/46      7/51      8/02 L
        PPA52         176   PROGRAM*        8/09      8/12 L
        PPA55         200   PROGRAM*        6/49      8/19 L
        PPA57         205   PROGRAM*        8/28      8/32 L
        PPA58         207   PROGRAM*        8/30      8/38 L
        PPA6          212   PROGRAM*        8/05      8/45 L
        PPA61         220   PROGRAM*        8/52      8/57 L
        PPA62         221   PROGRAM*        6/11      8/53      8/55      9/09 L
        PPA63         225   PROGRAM*        5/31      9/11      9/19 L
        PPA63A        227   PROGRAM*        9/22 L    9/24
        PPA63B        230   PROGRAM*        9/20      9/25 L
        PPA64         234   PROGRAM*        9/37 L   10/08
        PPA7          250   PROGRAM*        9/30     10/13 L
        PPA7.5        255   PROGRAM*       10/20     10/22     10/25 L
        PPA8          263   PROGRAM*       10/38     10/44 L
        PPA9          273   PROGRAM*       10/45     10/50     11/02 L
        PSA           360   PROGRAM*        1/48 E   12/32 L
        PSAERR        505   PROGRAM*       13/57     14/05     15/16 L
        PSAERR1       507   PROGRAM*       15/17     15/19 L
        PSA1          365   PROGRAM*       12/43 L   13/36
        PSA11         371   PROGRAM*       12/36     12/51 L
        PSA11A        374   PROGRAM*       12/56 L   13/11
        PSA12         376   PROGRAM*       12/47     13/02 L
        PSA13         402   PROGRAM*       12/38     13/07 L
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        PSA14         406   PROGRAM*       13/03     13/16 L
        PSA15         412   PROGRAM*       13/05     13/25 L
        PSA17         414   PROGRAM*       12/49     13/27 L
        PSA18         417   PROGRAM*       13/29     13/32 L
        PSA21A        427   PROGRAM*       13/47     13/49 L
        PSA22         431   PROGRAM*       13/14     13/44     13/52 L
        PSA23         440   PROGRAM*       14/08     14/10 L
        PSA24         443   PROGRAM*       14/17 L   14/49
        PSA25         450   PROGRAM*       14/22     14/26 L
        PSA26         454   PROGRAM*       14/27     14/31 L
        PSA27         457   PROGRAM*       14/29     14/38 L
        PSA28         461   PROGRAM*       14/24     14/40 L
        PSA28B        465   PROGRAM*       14/43     14/46 L
        PSA29         471   PROGRAM*       14/52     14/54 L
        PSA3          475   PROGRAM*       13/42     15/01     15/03 L
        PSA32         477   PROGRAM*       12/55     12/57     15/04     15/06 L
        PSA33         504   PROGRAM*       15/10     15/12 L
        PSF             0   PROGRAM*        1/48 E    2/53 L
        PSFA           14   PROGRAM*        1/48 E    2/55      3/03 S    3/13      3/19 L
        PSFX            0   EXTERNAL*       2/25 X    3/17
        PSF1            3   PROGRAM*        2/56      3/01 L
        PWE             0   EXTERNAL*       2/53      5/50      8/54     12/56     14/23     15/02
                                            4/19      6/05      9/14     13/04     14/28     15/05
                                            5/47      6/39     12/48     14/09     14/53
        PXE           511   PROGRAM*        5/28     12/33     15/30 L
        PXEB          527   PROGRAM*       15/56 S   16/03 L
        PXE2          517   PROGRAM*       15/41 L   15/44
        P.FPNO         22   TSTEXT         13/20     14/34
        P.LBIAS        14   TSTEXT         10/56
        P.LI12         60   TSTEXT         10/55
        P.PFNC         11   TSTEXT         12/54     13/10     14/57
        P.PNT          30   TSTEXT          9/51
        P.TAG          52   TSTEXT          4/39     10/32
        REFLIN          0   EXTERNAL*       4/30     10/54
        SB=BKS3         0   EXTERNAL*      10/52
        SCTR            0   EXTERNAL*       2/22 X    6/01      6/40
        SFN             0   EXTERNAL*       2/16 X    4/42
        SOR           334   PROGRAM*       10/47     11/51 L   12/21     15/11
        SOR1          357   PROGRAM*       12/17     12/21 L
        SOR2          350   PROGRAM*       12/08     12/13 L
        SSY             0   EXTERNAL*       2/22 X    4/27      9/48     13/02     14/26
        STAGE           0   EXTERNAL*       2/01 X    5/03 S
        STN             0   EXTERNAL*       2/01 X    3/11 S
        STY             0   EXTERNAL*       2/28 X   13/16
        S.FTNRP         0   EXTERNAL*       2/29 X   11/14
        S.Q2NTR         0   EXTERNAL*       2/28 X   11/10
        TA.PRO          0   EXTERNAL*       2/01 X   10/29     15/35     15/35
        TFI           312   PROGRAM*        9/31 S   10/01     11/18 L
        TG.PRO          0   EXTERNAL*       2/01 X    8/02      8/12 S    8/32     15/39 S
        TLV             0   EXTERNAL*       4/16     13/30     14/44
        TL.PNAM         0   EXTERNAL*       4/57 S   15/54
        TL.PTYP         0   EXTERNAL*       4/02 S    4/46
        TSF             0   EXTERNAL*       2/28 X   11/10     11/14
        TS.ENT          0   EXTERNAL*       2/01 X    4/36      9/57
        TS.SYM          0   EXTERNAL*       2/01 X    4/27      9/48     13/02     13/23     13/23     14/26     14/36
        TT=LF           0   EXTERNAL*       2/01 X   12/10     12/12     12/12 S   12/13     15/31     15/31 S
        TT.LF           0   EXTERNAL*       2/02 X   12/09
1       /HEADER  HEADER STATEMENT PROCESSING                          COMPASS 3.7-871.     24/05/02. 15.51.41.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        TYP02           0   EXTERNAL*       2/38 X    3/16
        T=FILE          0   EXTERNAL*       2/03 X    9/09
        T.FILE          0   EXTERNAL*       2/03 X    6/01      6/40      8/19      8/38      9/28     10/03
        T.SB            0   EXTERNAL*       3/08
        WIN             0   EXTERNAL*       2/13 X   11/01     11/04     11/07     11/57     12/03     15/07
        WOF             0   EXTERNAL*       2/25 X   10/39     12/19     12/20     15/57
        WTW=            0   EXTERNAL*      12/11
        .FID            1   TSTEXT         10/48 F
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      316              IDENT  PIG
                        316                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       314 
                                        LITERALS* LOCAL         314         2 
  
  
                                        ENTRY POINTS. 
  
                                        PIK=TAG        233+           PIK=PS         117+           WININIT        256+ 
                                        PIK=I          237+           PIKX            40+           WINX           313+ 
                                        PIK=J          240+           WIN            257+           PIGLINE          0+ 
                                        PIK=XJP        217+           PIG             17+           PIGLAB           1+ 
                                        PIK=BL         236+           DPT            107+ 
                                        PIK=PI         227+           NADD           106+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        F.LF      BINOUT    PARCEL    TS.STN    PIK       ALC.REG   ADW       WTW=
                                        FV.LGO    IGS       TA.PRO    TT.LF     ADWT      ALC.PIG   T.LNT 
                                        LOP=O     LINEBUF   TT=LF     TS.SYM    DPTA      ALC       DXB 
                                        BINIO     ORG       TA=PRO    TG.PRO    ALC.00    COD       CO.ID 
  
  
  
  
                                                  IDENT  PIG                                                     PIG         2
                                         PIG      SECT   (OBJECT CODE INSTRUCTION GROUP.),1                      PIG         3
  
                                                                                                                 PIG         4
                                                  SST    A,C,D,L,B                                               PIG         5
                                                  NOREF  A,C,D,L,B                                               PIG         6
                                                                                                                 PIG         7
                                         B=PIG    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     PIG         8
                                                                                                                 PIG         9
                                                  ENTRY  PIK=TAG,PIK=I,PIK=J,PIK=XJP,PIK=BL,PIK=PI,PIK=PS,PIKX   PIG        10
                                                  ENTRY  WIN,PIG,DPT                                             FEAT126BA   4
                                                  ENTRY  NADD                                                    FEAT126A  388
                                                  ENTRY  WININIT,WINX                                            FCC1608X   18
                                                                                                                 PIG        12
                                        *         IN FTN                                                         PIG        13
                                                  EXT    F.LF,FV.LGO,LOP=O                                       PIG        14
                                                                                                                 PIG        15
                                        *         IN TABLES                                                      PIG        16
                                                  EXT    BINIO,BINOUT,IGS,LINEBUF,ORG,PARCEL,TA.PRO,TT=LF        FEAT155E  136
                                                  EXT    TA=PRO,TS.STN,TT.LF,TS.SYM,TG.PRO                       PIG        18
                                                                                                                 PIG        19
                                        *         IN LIST                                                        PIG        20
                                                  EXT    PIK                                                     PIG        21
                                                                                                                 PIG        22
                                        *         IN INIT                                                        PIG        23
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     2
  
  
                                                  EXT    ADWT,DPTA                                               PIG        24
                                                                                                                 PIG        25
                                        *         IN ALLOC                                                       FCC1224     7
                                                  EXT    ALC.00,ALC.REG,ALC.PIG                                  FCC1224     8
  
  
  
  
                                        **        PIG -  PROCESS INSTRUCTION GROUP.                              PIG        27
                                        *                                                                        PIG        28
                                        *         THIS REPRESENTS, ROUGHLY, PASS *ONE-AND-A-HALF*.               PIG        29
                                        *                                                                        PIG        30
                                        *         ENTRY  (IGS) _ FWA INST GROUP                                  PIG        31
                                        *                (IGE) _ LAST COMPILED INSTRUCTION.                      PIG        32
                                        *         EXIT   (IGS) = (IGE) + 1                                       PIG        33
                                        *                                                                        PIG        34
                                        *         *PIG* PROCESSES EACH INSTRUCTION GROUP (FROM (IGS) TO (IGE))   PIG        35
                                        *                WHEN IT IS COMPLETE.                                    PIG        36
                                        *         IF AN OBJECT LISTING WAS REQUESTED, THE BINARY INSTRUCTIONS    PIG        37
                                        *                IN THE GROUP ARE CONVERTED TO SYMBOLIC AND PRINTED.     PIG        38
                                        *                                                                        FCC1224     9
                                        *         THROUGHOUT *PIG* PROCESSING  --                                PIG        39
                                        *                (B4) = NUMBER OF INSTRUCTIONS LEFT TO PROCESS.          PIG        40
                                        *                (A5) _ CURRENT *LONG FILE* ENTRY.                       PIG        41
                                        *                                                                        FCC1224    10
                                        *         REGISTER *A5* IS LOCKED THROUGHOUT *PIG* PROCESSING            FCC1224    11
                                        *         TO ENSURE ANY CALLS TO *ALLOC* (I.E. FROM *DPT*) WILL          FCC1224    12
                                        *         NOT CAUSE A TABLE CRASH TO RENDER (A5) ERRONEOUS.              FCC1224    13
                                        *                                                                        FCC1224    14
                                        *         USES   ALL EXCEPT *A0*                                         PIG        42
                                        *         CALLS  ADDWD, COD, PIK, WRITEW                                 PIG        43
                                                                                                                 PIG        44
                                                                                                                 PIG        45
                                         #FID     IFNE   .FID,0                                                  F66FCC    187
                                                  ENTRY  PIGLINE,PIGLAB                                          F66FCC    188
             0  00000000000000000000     PIGLINE  DATA   0           LINE NUMBER FOR LINE NUMBER TABLE           F66FCC    189
             1  00000000000000000000     PIGLAB   DATA   0           STATEMENT LABEL CORRESPONDING TO PIGLINE    F66FCC    190
                                         #FID     ENDIF                                                          F66FCC    191
                                                                                                                 F66FCC    192
                                                                                                                 F66FCC    193
             2  5130000000 X             PIG90    SA3    ALC.00      UNLOCK (A5)                                 FCC1224    15
                          5120000000 X            SA2    FV.LGO                                                  FCC1224    16
             3  10633                             BX6    X3                                                      FCC1224    17
                     5110000000 X                 SA1    BINOUT                                                  FCC1224    18
             4  5160000000 X                      SA6    ALC.REG                                                 FCC1224    19
                          0302000013 +            ZR     X2,PIG93    IF BINARY SUPPRESSED                        PIG        48
             5  0321000013 +                      PL     X1,PIG93    IF BINARY UNSUCCESSFUL                      PIG        49
                          5140000000 X            SA4    IGS                                                     PIG        50
             6  5130000000 X                      SA3    TT=LF                                                   PIG        51
                          5120000000 X            SA2    TT.LF                                                   PIG        52
             7  10633                             BX6    X3                                                      PIG        53
                     36024                        IX0    X2+X4                                                   PIG        54
                          37334                   IX3    X3-X4                                                   PIG        55
                               54640              SA6    A4                                                      PIG        56
            10  5120000000 X                      SA2    BINIO                                                   PIG        57
                          0302000015 +            ZR     X2,PIG95    IF INTERMEDIATE STILL IN CORE               PIG        58
            11  63600                             WRITEW F.LF,X0,X3                                              PIG        59
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     3
                                                                      PIG 
  
            13  13666                    PIG93    SHRINK TT=LF                                                   PIG        60
            14  5160000000 X                      SA6    IGS                                                     PIG        61
            15  5120000000 X             PIG95    SA2    LOP=O                                                   PIG        62
                          0332000017 +            MI     X2,PIGX     IF OBJECT LISTING BEING PRODUCED            PIG        63
            16  43600                             MX6    0                                                       FEAT126A  392
                     5160000106 +                 SA6    NADD        RESET NEW ADDRESS                           FEAT126A  393
                                                                                                                 PIG        66
            17  0400400017 +             PIG      SUBR   0           ENTRY/EXIT...                               PIG        67
                                                                                                                 F66FCC    194
                                         #FID     IFNE   .FID,0                                                  F66FCC    195
            20  5140000000 X                      SA4    =XCO.ID                                                 F66FCC    196
                          0324000031 +            PL     X4,PIG6     IF FID CODE NOT NECESSARY                   F66FCC    197
                                                                                                                 F66FCC    198
            21  5140000000 +                      SA4    PIGLINE     LINE NUMBER                                 F66FCC    199
                          0304000031 +            ZR     X4,PIG6     IF 5700 TABLE ENTRY NOT REQUIRED            F66FCC    200
            22  5110000314 +                      SA1    =1000000B                                               F66FCC    201
                          37114                   IX1    X1-X4                                                   F66FCC    202
            23  0301000031 +                      ZR     X1,PIG6     IF LINE ONE                                 F66FCC    203
                          13666                   BX6    0                                                       F66FCC    204
                               54141              =A1    A4-PIGLINE+PIGLAB LABEL NUMBER                          F66FCC    205
            24  20400                             LX4    P.LN-P.TRC  POSITION LINE NUMBER                        F66FCC    206
                     54640                        =A6    A4-PIGLINE+PIGLINE                                      F66FCC    207
                          54610                   =A6    A1-PIGLAB+PIGLAB  CLEAR LABEL                           F66FCC    208
            25  0301000026 +                      ZR     X1,PIG3     IF LABEL (PREVIOUSLY) ZERO                  F66FCC    209
                                                                                                                 F66FCC    210
                          0100000000 X            RJ     =XDXB       LABEL NUMBER TO BINARY                      F66FCC    211
            26                           PIG3     BSS                                                            F66FCC    212
            26  20652                             LX6    P.SN        POSITION BINARY LABEL NUMBER                F66FCC    213
                     5110000000 X                 SA1    ORG                                                     F66FCC    214
                               12664              BX6    X6+X4                                                   F66FCC    215
            27  12661                             BX6    X6+X1       LINE NUMBER TABLE ENTRY                     F66FCC    216
                     5110000000 X                 ADDWD  =XT.LNT     ENTER LINE NUMBER INTO TABLE                F66FCC    217
            31                           PIG6     BSS                                                            F66FCC    218
                                         #FID     ENDIF                                                          F66FCC    219
                                                                                                                 F66FCC    220
            31  5120000255 +                      SA2    WINA        FLUSH *WINA* IF .NE. 0                      FEAT155C    6
                          0302000034 +            ZR     X2,PIG10    IF *WINA* .EQ. 0                            FEAT155C    7
            32  43055                             MX0    45                                                      FEAT155C    8
                     76600                        SX6    B0                                                      FEAT155C    9
                          6120000034 +            SB2    PIG10                                                   FEAT155C   10
            33  54620                             SA6    A2          CLEAR *WINA*                                FEAT155C   11
                     16720                        BX7    -X0+X2                                                  FEAT155C   12
                          0400000305 +            EQ     WIN5        OUTPUT INSTRUCTION TO TT.LF                 FEAT155C   13
                                                                                                                 FEAT155C   14
            34  5140000000 X             PIG10    SA4    IGS                                                     FEAT155C   15
                          5130000000 X            SA3    TT=LF                                                   PIG        69
            35  5120000000 X                      SA2    TT.LF                                                   PIG        70
                          5110000000 X            SA1    ALC.PIG     LOCK (A5)                                   FCC1224    20
            36  36024                             IX0    X2+X4                                                   PIG        71
                     5250777776                   SA5    X0-1        PRESET (A5) = (FWA - 1) OF INST GROUP       PIG        72
                               37334              IX3    X3-X4       LENGTH OF THIS GROUP = (TT=LF) - (IGS)      PIG        73
            37  10711                             BX7    X1                                                      FCC1224    21
                     63430                        SB4    X3          (B4) = NUMBER OF INSTRUCTION WORDS          PIG        74
                          5170000000 X            SA7    ALC.REG                                                 FCC1224    22
                                                                                                                 PIG        75
                                                                                                                 PIG        76
                                        **        INSTRUCTION PROCESSING LOOP.                                   PIG        77
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     4
                                                                      PIG 
  
                                        *         IF THERE ARE NO MORE LONG FILE ENTRIES TO BE DONE, EXIT.       PIG        78
                                        *         FETCH THE ENTRY AND DECIDE IF A FORCE UPPER IS NEEDED BEFORE   PIG        79
                                        *                THIS INSTRUCTION.                                       PIG        80
                                                                                                                 PIG        81
            40                           PIKX     BSS    0           ** RETURN FROM PIK **                       PIG        82
            40  5110000255 +             PIG20    SA1    WINA                                                    FEAT155C   16
                          5120000000 X            SA2    PARCEL                                                  FEAT155C   17
            41  0311000044 +                      NZ     X1,PIG21    IF PROCESSING PACKED INSTRUCTION            FEAT155C   18
                          54551                   =A5    A5+1        GET NEXT TT.LF ENTRY                        FEAT155C   19
                               43055              MX0    45                                                      FEAT155C   20
            42  67441                             =B4    B4-1        DECREMENT INSTRUCTION COUNT                 FEAT155C   21
                     15450                        BX4    -X0*X5                                                  FEAT155C   22
                          0740000002 +            MI     B4,PIG90    IF FINISHED INSTRUCTION GROUP               FEAT155C   23
            43  11105                             BX1    X0*X5       REMOVE LOW ORDER BITS                       FEAT155C   24
                     12340                        BX3    X4+X0                                                   FEAT155C   25
                          0313000046 +            NZ     X3,PIG211   IF LONG INSTRUCTION OR PSEUDO               FEAT155C   26
                                                                                                                 FEAT155C   27
            44  43017                    PIG21    MX0    15                                                      FEAT155C   28
                     46000                        NO                                                             FEAT155C   29
                          11501                   BX5    X0*X1       ISOLATE SHORT INSTRUCTION                   FEAT155C   30
                               15710              BX7    -X0*X1      REMOVE FROM PACKAGE                         FEAT155C   31
            45  46000                             NO                                                             FEAT155C   32
                     20717                        LX7    15                                                      FEAT155C   33
                          46000                   NO                                                             FEAT155C   34
                               54710              SA7    A1          STORE PACKAGE REMNANT                       FEAT155C   35
                                                                                                                 FEAT155C   36
            46  43014                    PIG211   MX0    L.LI12                                                  FEAT155C   37
                     11305                        BX3    X0*X5                                                   PIG        88
                          5110000315 +            SA1    =1H                                                     PIG        89
            47  20314                             LX3    L.LI12                                                  PIG        90
                     10611                        BX6    X1                                                      PIG        91
                          63330                   SB3    X3          B3 = GHIJ                                   PIG        92
                               21306              AX3    L.LGH       X3 = GH                                     PIG        93
                                                                                                                 PIG        94
                                         .76      IFEQ   .CPU,76                                                 PIG        95
                                                                                                                 PIG        96
                                                  SX4    B3                                                      PIG        97
                                                  AX4    3           X4 = GHI                                    PIG        98
                                                  SB5    X4-014B                                                 PIG        99
                                                  MI     B5,PIG22    IF GHI LESS THAN *014*                      PIG       100
                                                  SB5    X4-016B                                                 PIG       101
                                                  PL     B5,PIG22    IF GHI GREATER THAN *015*                   PIG       102
                                                                                                                 PIG       103
                                        *         HERE IF R/W LCM                                                PIG       104
                                                                                                                 PIG       105
                                                  SA4    X4+PIK=LCM-014B   X4 = INST SKELETON                    PIG       106
                                                  EQ     PIG23                                                   PIG       107
                                                                                                                 PIG       108
                                         PIG22    BSS    0                                                       PIG       109
                                                                                                                 PIG       110
                                         .76      ENDIF                                                          PIG       111
                                                                                                                 PIG       112
            50  5243000117 +                      SA4    X3+PIK=PS   X4 = INST SKELETON                          PIG       113
            51  6222777774               PIG23    SB2    X2-3                                                    PIG       114
                          22702                   LX7    X2          X7 = CURRENT PARCEL COUNT                   PIG       115
            52  5110000000 X                      SA1    ORG                                                     PIG       116
                          0420000057 +            ZR     B2,PIG28    IF EMPTY WORD                               PIG       117
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     5
                                                                      PIG 
  
            53  0332000055 +                      MI     X2,PIG25    IF FULL WORD                                PIG       118
                          0324000060 +            PL     X4,PIG30    IF SHORT (15-BIT) INST                      PIG       119
            54  0302000055 +                      ZR     X2,PIG25    IF LESS THAN 30 BITS LEFT                   PIG       120
                          0713000060 +            GT     B3,B1,PIG30 IF NOT *CALL* OR *BSS*                      PIG       121
                                                                                                                 PIG       122
                                                                                                                 PIG       123
                                        **        FORCE UPPER BEFORE THE INST.                                   PIG       124
                                                                                                                 PIG       125
            55  7170000003               PIG25    SX7    3           INDICATE EMPTY WORD                         PIG       126
                          54720                   SA7    A2                                                      PIG       127
                               73611              SX6    X1+B1                                                   PIG       128
            56  54610                             SA6    A1                                                      PIG       129
                     5160000106 +                 SA6    NADD        SAVE NEW ADDRESS                            FEAT126A  394
                               10166              BX1    X6                                                      PIG       130
                                                                                                                 PIG       131
            57  0100000000 X             PIG28    PIA                CONVERT ADDRESS TO DISPLAY CODE             FEAT126A  395
                                                                                                                 PIG       133
                                                                                                                 PIG       134
                                        **        NOW ADVANCE ORG/PARCEL COUNTERS.                               PIG       135
                                        *         ENTRY  (X7) = PARCEL COUNT BEFORE INST                         PIG       136
                                        *                (X6) = ADDRESS COLUMNS OF LISTING.                      PIG       137
                                        *                            ADDRESS IF AT TOP OF WORD, ELSE BLANKS.     PIG       138
                                        *                (X5) = LONG FILE ENTRY                                  PIG       139
                                        *                (X4) = SKELETON TABLE ENTRY                             PIG       140
                                        *                (X3) = *GH* PORTION OF INST.                            PIG       141
                                        *                (B3) = *GHIJ* PART OF INST                              PIG       142
                                                                                                                 PIG       143
            60  5160000000 X             PIG30    SA6    LINEBUF                                                 FEAT126A  396
                          6160777776              SB6    -1                                                      FEAT155C   38
            61  0324000103 +                      PL     X4,PIG40    IF SHORT INST                               PIG       145
                          6166777776              SB6    B6-1                                                    FEAT155C   39
            62  0313000103 +                      NZ     X3,PIG40    IF NOT PSEUDO INSTRUCTION                   FEAT155C   40
                          5140000000 X            SA4    ORG                                                     PIG       147
            63  0530000100 +                      NZ     B3,PIG35    IF NOT *BSS*                                PIG       148
                                                                                                                 PIG       149
                                                                                                                 PIG       150
                                        **        FOR *BSS*, MAKE TABLE ENTRY TO DEFINE THE SYMBOL.              PIG       151
                                                                                                                 PIG       152
                          43052                   MX0    -L.LTAG                                                 PIG       153
                               73350              SX3    X5                                                      PIG       154
            64  20536                             LX5    -P.LTAG                                                 PIG       155
                     15650                        BX6    -X0*X5      ISOLATE NR OF WORDS TO RESERVE              PIG       156
                          36664                   IX6    X6+X4                                                   PIG       157
                               54640              SA6    A4          ADVANCE ORIGIN COUNTER                      PIG       158
            65  5160000106 +                      SA6    NADD        SAVE NEW ADDRESS                            FEAT126A  397
                          20536                   LX5    P.LTAG      RESTORE X5                                  PIG       159
            66  6223577777                        SB2    X3-C.VAR                                                PIG       160
                          0720000104 +            MI     B2,PIG70    IF NO TAG (SIMPLE FORCE UPPER)              PIG       161
            67  6233517777                        SB3    X3-C.PRO                                                PIG       162
                          6253537777              SB5    X3-C.STAT                                               PIG       163
            70  0650000073 +                      PL     B5,PIG32    IF NOT VARIABLE TAG                         PIG       164
                          5120000000 X            SA2    TS.SYM                                                  PIG       165
            71  20430                             LX4    P.PNT                                                   PIG       166
                     53322                        SA3    X2+B2                                                   PIG       167
                          12643                   BX6    X4+X3       MERGE ADDRESS INTO POINTER FIELD OF TT.NAM  PIG       168
                               54630              SA6    A3                                                      PIG       169
            72  0400000104 +                      EQ     PIG70                                                   PIG       170
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     6
                                                                      PIG 
  
                                                                                                                 PIG       171
            73  0630000076 +             PIG32    PL     B3,PIG33    IF NO STATEMENT TAG                         PIG       172
                          5120000000 X            SA2    TS.STN                                                  PIG       173
            74  20430                             LX4    P.SNAD                                                  PIG       174
                     53325                        SA3    X2+B5                                                   PIG       175
                          12634                   BX6    X3+X4       MERGE ADDRESS WITH TT.STAT ENTRY            PIG       176
                               54630              SA6    A3                                                      PIG       177
            75  0400000104 +                      EQ     PIG70                                                   PIG       178
                                                                                                                 PIG       179
            76  20352                    PIG33    LX3    P.TAG                                                   PIG       180
                     12634                        BX6    X3+X4                                                   PIG       181
                          0100000107 +            RJ     DPT         DEFINE PROGRAM TAG                          PIG       182
            77  0400000104 +                      EQ     PIG70                                                   PIG       183
                                                                                                                 PIG       184
                                                                                                                 PIG       185
                                        **        FORCE UPPER AFTER FOR ALL PSEUDOS EXCEPT *BSS*.                PIG       186
                                                                                                                 PIG       187
           100  7170000003               PIG35    SX7    3                                                       PIG       188
                          73641                   SX6    X4+B1                                                   PIG       189
           101  5170000000 X                      SA7    PARCEL      INDICATE EMPTY WORD                         PIG       190
                          54640                   SA6    A4          ADVANCE ORIGIN COUNTER                      PIG       191
           102  5160000106 +                      SA6    NADD        SAVE NEW ADDRESS                            FEAT126A  398
                          0400000104 +            EQ     PIG70                                                   PIG       192
                                                                                                                 PIG       193
           103  73776                    PIG40    SX7    X7+B6                                                   FEAT155C   41
                     5170000000 X                 SA7    PARCEL      ADVANCE PARCEL COUNT                        FEAT155C   42
                                                                                                                 PIG       225
                                        **        PRINT THE INSTRUCTION, IF DESIRED.                             PIG       226
                                                                                                                 PIG       227
           104  5110000000 X             PIG70    SA1    =XLOP=O                                                 FEAT126BA   5
                          0301000040 +            ZR     X1,PIG20    IF OBJECT LIST NOT SELECTED  (OL.EQ.0)      FEAT126BA   6
           105  0400000000 X                      EQ     PIK         PRINT INSTRUCTION KONVERSION                FEAT126BA   7
                                                                                                                 FEAT126A  399
           106  00000000000000000000     NADD     DATA   0           NEW CODE ADDRESS IF .NZ.                    FEAT126A  400
  
  
  
  
                                        **        DPT -  DEFINE PROGRAM TAG.                                     PIG       232
                                        *                                                                        PIG       233
                                        *         ENTRY  (X6) = ENTRY FOR *TA.PRO*.                              PIG       234
                                        *                                                                        PIG       235
                                        *         USES   A1,A2,A3,A6  X0  B2,B7                                  PIG       236
                                        *         CALLS  ALLOC                                                   PIG       237
                                                                                                                 PIG       238
                                                                                                                 PIG       239
           107  0400400107 +             DPT      SUBR               ENTRY/EXIT...                               PIG       240
           110  5110000000 X                      SA1    TG.PRO                                                  PIG       241
                          5120000000 X            SA2    TA=PRO                                                  PIG       242
           111  5160000000 X                      SA6    DPTA        SAVE (X6)                                   PIG       243
                          7231520000              SX3    X1-C.PRO+1                                              PIG       244
           112  37032                             IX0    X3-X2                                                   PIG       245
                     5110000000 X                 ALLOC  TA.PRO,X0   INSURE ENUF ROOM                            PIG       246
           114  5120000000 X                      SA2    DPTA                                                    PIG       247
                          10622                   BX6    X2                                                      PIG       248
                               20222              LX2    -P.PWF                                                  PIG       249
           115  43057                             MX0    -L.PWF                                                  PIG       250
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     7
                                                                      DPT 
  
                     15220                        BX2    -X0*X2      ISOLATE TAG ORDINAL                         PIG       251
                          36021                   IX0    X2+X1                                                   PIG       252
                               53600              SA6    X0                                                      PIG       253
           116  0400000107 +                      EQ     EXIT.                                                   PIG       254
                                                                                                                 PIG       255
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     8
                                                                      INST
  
                                        **        INST - MACRO TO GENERATE INSTRUCTION SKELETONS.                PIG       257
                                        *         GENERATES TABLE OF INSTRUCTION SKELETONS USED BY *PIG* TO      PIG       258
                                        *                CONVERT INSTRUCTIONS TO HUMAN-READABLE FORM FOR THE     PIG       259
                                        *                OBJECT CODE LISTING.                                    PIG       260
                                        *                                                                        PIG       261
                                        *         INST   (KEY),BJMP,FORCE,IJJ                                    PIG       262
                                        *                                                                        PIG       263
                                        *         *KEY*  = INSTRUCTION DESCRIPTOR.  EACH CHARACTER OF THE *KEY*  PIG       264
                                        *                  HAS MEANING AS FOLLOWS --                             PIG       265
                                        *                            I   I-PORTION OF INSTRUCTION                PIG       266
                                        *                            J   J-PORTION OF INSTRUCTION                PIG       267
                                        *                            K   K-PORTION OF INSTRUCTION (3 BITS ONLY)  PIG       268
                                        *                            Q   18-BIT *K* ADDRESS FIELD (MUST BE LAST) PIG       269
                                        *                            C   OUTPUT A *B* IF THE NEXT REGISTER IS    PIG       270
                                        *                                            NOT A ZERO,                 PIG       271
                                        *                                            ELSE, SKIP THE NEXT 2 ITEMS PIG       272
                                        *                            + - * / A B X , AND BLANK ALL STAND FOR     PIG       273
                                        *                                            THEMSELVES.                 PIG       274
                                        *         *BJMP* = NON-EMPTY IF THIS A *B-REGISTER* JUMP INSTRUCTION.    PIG       275
                                        *                            (04 THRU 07 INSTRUCTION.)                   PIG       276
                                        *         *FORCE*= THIS INSTRUCTION FORCES THE NEXT INSTRUCTION UPPER.   PIG       277
                                        *         *COPY* = COPY *J* INTO *K*.                                    PIG       278
                                                                                                                 PIG       279
                                         COPY     DEFINE 2*CHAR      SAYS COPY *J* INTO *K*                      PIG       280
                                                                                                                 PIG       281
                                                                                                                 PIG       282
                                         INST     MACRO  KEY,BJMP,FORCE,IJJ                                      PIG       283
                                         A        MICRO  3,1,=KEY=                                               PIG       284
                                         B        MICRO  5,,=KEY=                                                PIG       285
                                         B        MICRO  1,,="A""B"=                                             PIG       286
                                         C        MICCNT B                                                       PIG       287
                                         D        SET    0                                                       PIG       288
                                         L        SET    0                                                       PIG       289
                                         A        MICRO  C+3,1,=KEY=                                             PIG       290
                                                  IFC    EQ,="A"=Q=,1                                            PIG       291
                                         L        SET    L+4                                                     PIG       292
                                                  IFC    NE,,BJMP,,,1                                            PIG       293
                                         L        SET    L+2                                                     PIG       294
                                                  IFC    NE,,FORCE,,,1                                           PIG       295
                                         L        SET    L+1                                                     PIG       296
                                                  VFD    3/L                                                     PIG       297
                                        .1        DUP    C                                                       PIG       298
                                         D        SET    D+1                                                     PIG       299
                                         A        MICRO  D,1,="B"=                                               PIG       300
                                         A        MICRO  2*1R"A"-1,2,/101112-D-E-F-G-H010203-L-M-N-O-P04-R-S-T-U PIG       301
                                        ,-V-W13-Y-Z-0-1-2-3-4-5-6-7-8-905060708-(-)-$-=1409/                     PIG       302
                                                  VFD    4/"A"                                                   PIG       303
                                        .1        ENDD                                                           PIG       304
                                                  IFLE   $,2*6-1+4,1                                             PIG       305
                                         8        ERR    INST - DESCRIPTOR (KEY) IS TOO LONG                     PIG       306
                                                  POS    P.COPY+1                                                PIG       307
                                         A        MICRO  1,2, KEY                                                PIG       308
                                                  VFD    1/IJJ,12/2R"A"                                          PIG       309
                                         INST     ENDM                                                           PIG       310
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE     9
                                                                      PIK=PS
  
                                        **        PIK=PS - INSTRUCTION SKELETON TABLES FOR *PIG*                 PIG       312
                                                                                                                 PIG       313
                                                                                                                 PIG       314
           117  4                        PIK=PS   INST   (PS  Q)               00    (FAKE)                      PIG       315
           120  5                                 INST   (RJ  Q),,1            01                                PIG       316
           121  5                                 INST   (JP  CI+Q),,1         02                                PIG       317
           122  4                                 INST   (JXI XJ,Q)            03I  (FAKE)                       PIG       318
           123  6                        PIK=EQ   INST   (EQ  CI,CJ,Q),1       04                                PIG       319
           124  6                                 INST   (NE  CI,CJ,Q),1       05                                PIG       320
           125  6                                 INST   (GE  CI,CJ,Q),1       06                                PIG       321
           126  6                                 INST   (LT  CI,CJ,Q),1       07                                PIG       322
                                                                                                                 PIG       323
           127  0                                 INST   (BXI XJ),,,1          10                                PIG       324
           130  0                                 INST   (BXI XJ*XK)           11                                PIG       325
           131  0                                 INST   (BXI XJ+XK)           12                                PIG       326
           132  0                                 INST   (BXI XJ-XK)           13                                PIG       327
           133  0                                 INST   (BXI -XJ),,,1         14                                PIG       328
           134  0                                 INST   (BXI -XK*XJ)          15                                PIG       329
           135  0                                 INST   (BXI -XK+XJ)          16                                PIG       330
           136  0                                 INST   (BXI -XJ-XK)          17                                PIG       331
                                                                                                                 PIG       332
           137  0                                 INST   (LXI JKB)             20                                PIG       333
           140  0                                 INST   (AXI JKB)             21                                PIG       334
           141  0                                 INST   (LXI CJ,XK)           22                                PIG       335
           142  0                                 INST   (AXI CJ,XK)           23                                PIG       336
           143  0                                 INST   (NXI CJ,XK)           24                                PIG       337
           144  0                                 INST   (ZXI CJ,XK)           25                                PIG       338
           145  0                                 INST   (UXI CJ,XK)           26                                PIG       339
           146  0                                 INST   (PXI CJ,XK)           27                                PIG       340
                                                                                                                 PIG       341
           147  0                                 INST   (FXI XJ+XK)           30                                PIG       342
           150  0                                 INST   (FXI XJ-XK)           31                                PIG       343
           151  0                                 INST   (DXI XJ+XK)           32                                PIG       344
           152  0                                 INST   (DXI XJ-XK)           33                                PIG       345
           153  0                                 INST   (RXI XJ+XK)           34                                PIG       346
           154  0                                 INST   (RXI XJ-XK)           35                                PIG       347
           155  0                                 INST   (IXI XJ+XK)           36                                PIG       348
           156  0                                 INST   (IXI XJ-XK)           37                                PIG       349
                                                                                                                 PIG       350
           157  0                                 INST   (FXI XJ*XK)           40                                PIG       351
           160  0                                 INST   (RXI XJ*XK)           41                                PIG       352
           161  0                                 INST   (DXI XJ*XK)           42                                PIG       353
           162  0                                 INST   (MXI JKB)             43                                PIG       354
           163  0                                 INST   (FXI XJ/XK)           44                                PIG       355
           164  0                                 INST   (RXI XJ/XK)           45                                PIG       356
           165  0                                 INST   (NO  IJKB)            46                                PIG       357
           166  0                                 INST   (CXI XK),,,1          47                                PIG       358
                                                                                                                 PIG       359
           167  4                                 INST   (SAI AJ+Q)            50                                PIG       360
           170  4                                 INST   (SAI CJ+Q)            51                                PIG       361
           171  4                                 INST   (SAI XJ+Q)            52                                PIG       362
           172  0                                 INST   (SAI CK+XJ)           53                                PIG       363
           173  0                                 INST   (SAI CK+AJ)           54                                PIG       364
           174  0                                 INST   (SAI AJ-BK)           55                                PIG       365
           175  0                                 INST   (SAI CK+BJ)           56                                PIG       366
           176  0                                 INST   (SAI -BK+BJ)          57                                PIG       367
                                                                                                                 PIG       368
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE    10
                                                                      PIK=PS
  
           177  4                                 INST   (SBI AJ+Q)            60                                PIG       369
           200  4                                 INST   (SBI CJ+Q)            61                                PIG       370
           201  4                                 INST   (SBI XJ+Q)            62                                PIG       371
           202  0                                 INST   (SBI CK+XJ)           63                                PIG       372
           203  0                                 INST   (SBI CK+AJ)           64                                PIG       373
           204  0                                 INST   (SBI AJ-BK)           65                                PIG       374
           205  0                                 INST   (SBI CK+BJ)           66                                PIG       375
           206  0                                 INST   (SBI -BK+BJ)          67                                PIG       376
                                                                                                                 PIG       377
           207  4                                 INST   (SXI AJ+Q)            70                                PIG       378
           210  4                                 INST   (SXI CJ+Q)            71                                PIG       379
           211  4                                 INST   (SXI XJ+Q)            72                                PIG       380
           212  0                                 INST   (SXI CK+XJ)           73                                PIG       381
           213  0                                 INST   (SXI CK+AJ)           74                                PIG       382
           214  0                                 INST   (SXI AJ-BK)           75                                PIG       383
           215  0                                 INST   (SXI CK+BJ)           76                                PIG       384
           216  0                                 INST   (SXI -BK+BJ)          77                                PIG       385
                                                                                                                 PIG       386
                                         .76      IFEQ   .CPU,76                                                 PIG       387
                                                                                                                 PIG       388
                                                  ENTRY  PIK=LCM                                                 PIG       389
                                         PIK=LCM  INST   (RXJ XK)              014                               PIG       390
                                                  INST   (WXJ XK)              015                               PIG       391
                                                                                                                 PIG       392
                                         .76      ENDIF                                                          PIG       393
                                                                                                                 PIG       394
           217  4                        PIK=XJP  INST   (ZR  XJ,Q)            030                               PIG       395
           220  4                                 INST   (NZ  XJ,Q)            031                               PIG       396
           221  4                                 INST   (PL  XJ,Q)            032                               PIG       397
           222  4                                 INST   (MI  XJ,Q)            033                               PIG       398
           223  4                                 INST   (IR  XJ,Q)            034                               PIG       399
           224  4                                 INST   (OR  XJ,Q)            035                               PIG       400
           225  4                                 INST   (DF  XJ,Q)            036                               PIG       401
           226  4                                 INST   (ID  XJ,Q)            037                               PIG       402
                                                                                                                 PIG       403
           227                           PIK=PI   BSS    0           PSEUDO-INST SKELETON TABLE                  PIG       404
           227  5                                 INST   (RJK Q),,FORCE        0001                              PIG       405
           230  5                                 INST   (RJ  Q),,FORCE        0002                              PIG       406
           231  5                                 INST   (JP  CI+Q),,FORCE     0003                              PIG       407
           232  5                                 INST   (EQ  Q),,FORCE        0004                              PIG       408
                                                                                                                 PIG       409
                                                                                                                 PIG       410
           233                     3     PIK=TAG  BSSZ   3           TEMP HOLDING FOR (DPC) TAG AND OFFSET       PIG       414
                                                                                                                 PIG       415
           236  55000000000000555555     PIK=BL   CON    1L +3R      THE WORD BEFORE *PIK=I* MUST BE NEGATIVE    PIG       416
           237  00000000000000000000     PIK=I    DATA   0           *I* REGISTER OF INSTRUCTION                 PIG       417
           240  00000000000000000000     PIK=J    DATA   0           *J* REGISTER OF INSTRUCTION                 PIG       418
           241  00000000000000000000              DATA   0           *K* REGISTER OF INSTRUCTION                 PIG       419
           242  77777777777777777776              DATA   -1          FLAG TO INDICATE 18-BIT *K* PORTION         PIG       420
           243  00000000000000000045              DATA   1R+         PLUS                                        PIG       421
           244  00000000000000000046              DATA   1R-         MINUS                                       PIG       422
           245  00000000000000000047              DATA   1R*         STAR                                        PIG       423
           246  00000000000000000050              DATA   1R/         SLASH                                       PIG       424
           247  00000000000000000056              DATA   1R,         COMMA                                       PIG       425
           250  00000000000000000001              DATA   1RA                                                     PIG       426
           251  00000000000000000002              DATA   1RB                                                     PIG       427
           252  77777777777777777777              DATA   -0          FLAG TO INDICATE CONDITIONAL *B* REGISTER   PIG       428
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE    11
                                                                      PIK=PS
  
           253  00000000000000000030              DATA   1RX                                                     PIG       429
           254  00000000000000000055              DATA   1R          BLANK                                       PIG       430
                                                                                                                 PIG       431
                                                  POPMAC INST                                                    PIG       432
  
  
  
  
                                        **        WIN -  WRITE INTERMEDIATE FILE.                                PIG       434
                                        *                                                                        PIG       435
                                        *         ENTRY  (X7) = INSTRUCTION TO TRANSFER                          PIG       436
                                        *                (B2) = EXIT ADDRESS.                                    PIG       437
                                        *                                                                        PIG       438
                                        *         EXIT   INSTRUCTION TRANSFERRED TO INTERMEDIATE FILE.           PIG       439
                                        *                (X7) = DESTROYED.                                       FEAT155C   43
                                        *                                                                        PIG       441
                                        *         USES   A1,A2,A3  B2,B7  X0,X1,X2,X6,X7                         PIG       442
                                        *                (ADWT - ADWT+1)                                         PIG       443
                                        *                PRESERVES  A0,A4,A5  B3,B4,B5,B6  X3,X4,X5              PIG       444
                                        *                ------ C A N  N E V E R  D E S T R O Y ------           PIG       445
                                        *                         A0,A4,A5  X3,X4,X5  B4,B5,B6                   PIG       446
                                                                                                                 PIG       447
                                                                                                                 PIG       448
           255                     1     WINA     BSSZ   1           STORAGE FOR PACKED 15 BIT INSTRUCTIONS      FEAT155C   44
           256                     1     WININIT  BSS    1           CONTAINS (WIN) OR (WINX) -- STORED OVER WIN FCC1608X   19
                                                                                                                 FEAT155C   45
                                        *                            *****                                       FCC1608X   20
           257                           WIN      BSS                *  REPLACED BY WININIT                      FCC1608X   21
                                        *                            *****                                       FCC1608X   22
           257  43006                             MX0    L.LGH                                                   FCC1608X   23
                     11107                        BX1    X0*X7       GET GH FIELD                                FEAT155C   47
                          20106                   LX1    L.LGH       INTO LOW ORDER BITS                         FEAT155C   48
                                                                                                                 FEAT155C   49
                                         .76      IFEQ   .CPU,76                                                 FEAT155C   50
                                                                                                                 FEAT155C   51
                                                  BX2    X7                                                      FEAT155C   52
                                                  AX2    51                                                      FEAT155C   53
                                                  SB3    X2-14B                                                  FEAT155C   54
                                                  MI     B3,WIN1     IF NOT *014* (READ LSM)                     FEAT155C   55
                                                  NE     B1,B3,WIN1  IF NOT *015* (WRITE LCM)                    FEAT155C   56
                                                  SX1    B3+PIK=LCM-PIK=PS                                       FEAT155C   57
                                                                                                                 FEAT155C   58
                                         WIN1     BSS    0                                                       FEAT155C   59
                                                                                                                 FEAT155C   60
                                         .76      ENDIF                                                          FEAT155C   61
                                                                                                                 FEAT155C   62
           260  5211000117 +                      SA1    X1+PIK=PS   GET INSTRUCTION SKELETON                    FEAT155C   63
                          5120000255 +            SA2    WINA                                                    FEAT155C   64
           261  0321000271 +                      PL     X1,WIN2     IF SHORT INSTRUCTION                        FEAT155C   65
                                                                                                                 FEAT155C   66
                                        *         IT IS EITHER A LONG INSTRUCTION OR A PSEUDO, OUTPUT            FEAT155C   67
                                        *         ANY PACKED INSTRUCTIONS FIRST AND THEN THIS ONE.               FEAT155C   68
                                                                                                                 FEAT155C   69
                          0302000305 +            ZR     X2,WIN5     IF NO PACKED 15 BIT INSTRUCTIONS            FEAT155C   70
           262  76011                             =X0    2                                                       FEAT155C   71
                     5110000000 X                 SA1    TT.LF                                                   FEAT155C   72
                               10633              BX6    X3                                                      FEAT155C   73
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE    12
                                                                      WIN 
  
           263  5170000000 X                      SA7    ADWT        SAVE LONG INSTRUCTION                       FEAT155C   74
                          54671                   =A6    A7+1        SAVE (X3)                                   FEAT155C   75
           264  0100000000 X                      ALLOC  A1,X0       EXPAND TT.LF BY 2 WORDS                     FEAT155C   76
           265  5110000000 X                      SA1    ADWT                                                    FEAT155C   77
                          7100077777              SX0    77777B                                                  FEAT155C   78
           266  54311                             =A3    A1+1        RESTORE (X3)                                FEAT155C   79
                     43700                        MX7    0                                                       FEAT155C   80
                          5120000255 +            SA2    WINA                                                    FEAT155C   81
           267  54720                             SA7    A2          CLEAR WINA                                  FEAT155C   82
                     10611                        BX6    X1                                                      FEAT155C   83
                          12720                   BX7    X2+X0                                                   FEAT155C   84
                               57671              =A6    B7-1        OUTPUT LONG INSTRUCTION                     FEAT155C   85
           270  55761                             =A7    A6-1        OUTPUT PACKED INSTRUCTION                   FEAT155C   86
                     0222000000                   JP     B2          EXIT..                                      FEAT155C   87
                                                                                                                 FEAT155C   88
                                        *         15 BIT INSTRUCTION. FIRST WE MUST CHECK IF IT IS A TRANSMIT    FEAT155C   89
                                        *         TO ITSELF, THEN IF IT IS A *10*,*14* OR *47* INSTRUCTION       FEAT155C   90
                                        *         WE MUST COPY THE *J* PART INTO THE *K* PART, THEN PACK         FEAT155C   91
                                        *         IT. IF PACKING IT COMPLETES THE PACKAGE WE OUTPUT IT TO        FEAT155C   92
                                        *         TT.LF AND CLEAR *WINA*.                                        FEAT155C   93
                                                                                                                 FEAT155C   94
           271  20157                    WIN2     IFBIT  X1,-COPY,WIN4     IF NOT *10*,*14* OR *47* INSTRUCTION  FEAT155C   95
                               43101              MX1    1                                                       FEAT155C   96
           272  43006                             MX0    L.LGH                                                   FEAT155C   97
                     20172                        LX1    58          FORM *10* OPCODE                            FEAT155C   98
                          11607                   BX6    X0*X7                                                   FEAT155C   99
                               37116              IX1    X1-X6                                                   FEAT155C  100
           273  0311000277 +                      NZ     X1,WIN3     IF NOT *10* OPCODE                          FEAT155C  101
                          43071                   MX0    -L.LI                                                   FEAT155C  102
                               43171              MX1    -L.LJ                                                   FEAT155C  103
           274  20063                             LX0    P.LI                                                    FEAT155C  104
                     20160                        LX1    P.LJ                                                    FEAT155C  105
                          15070                   BX0    -X0*X7      *I* REGISTER                                FEAT155C  106
                               15171              BX1    -X1*X7      *J* REGISTER                                FEAT155C  107
           275  20071                             LX0    P.LJ-P.LI                                               FEAT155C  108
                     37601                        IX6    X0-X1                                                   FEAT155C  109
                          0316000277 +            NZ     X6,WIN3     IF NOT TRANSMIT TO SELF                     FEAT155C  110
           276  0222000000                        JP     B2          EXIT..                                      FEAT155C  111
                                                                                                                 FEAT155C  112
                                        *         IT*S A *10*,*14* OR *47* INSTRUCTION, COPY *J* INTO *K* FIELD. FEAT155C  113
                                        *         THIS IS DONE HERE BECAUSE *GEN* IS SIMPLIFIED IF HE            FEAT155C  114
                                        *         DOES NOT HAVE TO COMPLETE THE *K* PORTION OF THESE             FEAT155C  115
                                        *         INSTRUCTIONS.                                                  FEAT155C  116
                                                                                                                 FEAT155C  117
           277  43071                    WIN3     MX0    -L.LJ                                                   FEAT155C  118
                     46000                        NO                                                             FEAT155C  119
                          20060                   LX0    P.LJ                                                    FEAT155C  120
                               46000              NO                                                             FEAT155C  121
           300  15170                             BX1    -X0*X7                                                  FEAT155C  122
                     46000                        NO                                                             FEAT155C  123
                          20171                   LX1    P.LK-P.LJ                                               FEAT155C  124
                               12771              BX7    X7+X1                                                   FEAT155C  125
                                                                                                                 FEAT155C  126
                                        *         NOW WE MAY PACK IT AND OUTPUT THE PACKAGE TO TT.LF IF FULL.    FEAT155C  127
                                                                                                                 FEAT155C  128
           301  6272777776               WIN4     =B7    X2-1                                                    FEAT155C  129
                          0770000312 +            MI     B7,WIN6     IF NO PACKAGE PRESENT                       FEAT155C  130
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE    13
                                                                      WIN 
  
           302  20755                             LX7    -15         POSITION INSTRUCTION                        FEAT155C  131
                     0470000312 +                 ZR     B7,WIN6     IF ONE PACKAGE PRESENT                      FEAT155C  132
                               20755              LX7    -15         RE-POSITION INSTRUCTION                     FEAT155C  133
           303  7100077777                        SX0    77777B                                                  FEAT155C  134
                          12727                   BX7    X2+X7       INSERT THIRD PACKAGE                        FEAT155C  135
                               43600              MX6    0                                                       FEAT155C  136
           304  12707                             BX7    X0+X7       INSERT LOW ORDER BITS                       FEAT155C  137
                     54620                        SA6    A2          CLEAR WINA                                  FEAT155C  138
                                                                                                                 FEAT155C  139
                                        *         OUTPUT (X7) TO TT.LF, ALSO CALLED FROM *PIG*                   FEAT155C  140
                                        *         INITIALIZATION CODE.                                           FEAT155C  141
                                                                                                                 FEAT155C  142
           305  5110000000 X             WIN5     SA1    TT.LF                                                   FEAT155C  143
                          10633                   BX6    X3                                                      FEAT155C  144
                               76010              =X0    1                                                       FEAT155C  145
           306  5170000000 X                      SA7    ADWT        SAVE INSTRUCTION                            FEAT155C  146
                          54671                   =A6    A7+1        SAVE (X3)                                   FEAT155C  147
           307  0100000000 X                      ALLOC  A1,X0       EXPAND TT.LF BY 1 WORD                      FEAT155C  148
           310  5110000000 X                      SA1    ADWT                                                    FEAT155C  149
                          54311                   =A3    A1+1        RESTORE (X3)                                FEAT155C  150
                               10711              BX7    X1                                                      FEAT155C  151
           311  57771                             =A7    B7-1        OUTPUT INSTRUCTION TO TT.LF                 FEAT155C  152
                     0222000000                   JP     B2          EXIT..                                      FEAT155C  153
                                                                                                                 FEAT155C  154
           312  12727                    WIN6     BX7    X2+X7       ADD NEW PACKAGE                             FEAT155C  155
                     76010                        =X0    1                                                       FEAT155C  156
                          36707                   IX7    X0+X7       INCREMENT PACKAGE COUNT                     FEAT155C  157
                               54720              SA7    A2          STORE IN WINA                               FEAT155C  158
                                                                                                                 FCC1608X   24
                                                                     *****                                       FCC1608X   25
           313                           WINX     BSS                * THIS LOCATION USED TO OVERWRITE WIN       FCC1608X   26
                                                                     *****                                       FCC1608X   27
           313  0222000000                        JP     B2          EXIT..                                      FEAT155C  159
                                                  LIST   D                                                       PIG       479
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        WTW=
             0 X                        CO.ID 
             0 X                        DXB 
             0 X                        T.LNT 
             0 X                        ADW 
             0 X                        COD 
             0 X                        ALC 
  
                                        CONTENT OF LITERALS BLOCK.
  
           314  00000000000001000000          A 
           315  55555555555555555555
  
           316                                    END                                                            PIG       480
  
                             55100B CM  STORAGE USED             3706 STATEMENTS      805 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.388 SECONDS         300 REFERENCES
  
  
  
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE    14
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       3/32
        ADWT            0   EXTERNAL*       2/01 X   12/01 S   12/04     13/16 S   13/19
        ALC             0   EXTERNAL*       6/53     12/03     13/18
        ALC.PIG         0   EXTERNAL*       2/04 X    3/48
        ALC.REG         0   EXTERNAL*       2/04 X    2/45 S    3/54 S
        ALC.00          0   EXTERNAL*       2/04 X    2/41
        BINIO           0   EXTERNAL*       1/51 X    2/55
        BINOUT          0   EXTERNAL*       1/51 X    2/44
        CHAR            6   TSTEXT          8/24
        COD             0   EXTERNAL*       5/16
        CO.ID           0   EXTERNAL*       3/11
        C.PRO      260000   TSTEXT          5/49      6/51
        C.STAT     240000   TSTEXT          5/50
        C.VAR      200000   TSTEXT          5/47
        DPT           107   PROGRAM*        1/43 E    6/12      6/47 L
        DPTA            0   EXTERNAL*       2/01 X    6/50 S    6/54
        DXB             0   EXTERNAL*       3/26
        FV.LGO          0   EXTERNAL*       1/48 X    2/42
        F.LF            0   EXTERNAL*       1/48 X    2/57
        IGS             0   EXTERNAL*       1/51 X    2/48      3/02 S    3/45
        LINEBUF         0   EXTERNAL*       1/51 X    5/28 S
        LOP=O           0   EXTERNAL*       1/48 X    3/03      6/30
        L.LGH           6   TSTEXT          4/33     11/30     11/32     12/24
        L.LI            3   TSTEXT         12/29
        L.LI12         14   TSTEXT          4/27      4/30
        L.LJ            3   TSTEXT         12/30     12/45
        L.LTAG         22   TSTEXT          5/39
        L.PWF          15   TSTEXT          6/57
        M.COPY      10000                   8/24 D
        NADD          106   PROGRAM*        1/44 E    3/06 S    5/13 S    5/45 S    6/22 S    6/34 L
        ORG             0   EXTERNAL*       1/51 X    3/29      4/56      5/33
        PARCEL          0   EXTERNAL*       1/51 X    4/07      6/20 S    6/26 S
        PIG            17   PROGRAM*        1/43 E    3/08 L
        PIGLAB          1   PROGRAM*        2/35 E    2/37 L    3/20      3/23
        PIGLINE         0   PROGRAM*        2/35 E    2/36 L    3/14      3/20      3/22
        PIG10          34   PROGRAM*        3/37      3/40      3/45 L
        PIG20          40   PROGRAM*        4/06 L    6/31
        PIG21          44   PROGRAM*        4/08      4/18 L
        PIG211         46   PROGRAM*        4/16      4/27 L
        PIG23          51   PROGRAM*        4/54 L
        PIG25          55   PROGRAM*        5/01      5/03      5/09 L
        PIG28          57   PROGRAM*        4/57      5/16 L
        PIG3           26   PROGRAM*        3/24      3/27 L
        PIG30          60   PROGRAM*        5/02      5/04      5/28 L
        PIG32          73   PROGRAM*        5/51      6/02 L
        PIG33          76   PROGRAM*        6/02      6/10 L
        PIG35         100   PROGRAM*        5/34      6/18 L
        PIG40         103   PROGRAM*        5/30      5/32      6/25 L
        PIG6           31   PROGRAM*        3/12      3/15      3/18      3/33 L
        PIG70         104   PROGRAM*        5/48      5/57      6/08      6/13      6/23      6/30 L
        PIG90           2   PROGRAM*        2/41 L    4/13
        PIG93          13   PROGRAM*        2/46      2/47      3/01 L
        PIG95          15   PROGRAM*        2/56      3/03 L
        PIK             0   EXTERNAL*       1/55 X    6/32
        PIKX           40   PROGRAM*        1/42 E    4/05 L
        PIK=BL        236   PROGRAM*        1/42 E   10/45 L
        PIK=EQ        123   PROGRAM*        9/08 L
1       /PIG  OBJECT CODE INSTRUCTION GROUP.                          COMPASS 3.7-871.     24/05/02. 15.51.43.      PAGE    15
        SYMBOLIC REFERENCE TABLE. 
  
        PIK=I         237   PROGRAM*        1/42 E   10/46 L
        PIK=J         240   PROGRAM*        1/42 E   10/47 L
        PIK=PI        227   PROGRAM*        1/42 E   10/36 L
        PIK=PS        117   PROGRAM*        1/42 E    4/53      9/04 L   11/47
        PIK=TAG       233   PROGRAM*        1/42 E   10/43 L
        PIK=XJP       217   PROGRAM*        1/42 E   10/27 L
        P.             73   TSTEXT         12/22
        P.COPY         14                   8/24 D    9/14      9/25      9/36      9/47     10/02     10/13     10/32
                                            9/04      9/15      9/26      9/37      9/49     10/03     10/14     10/33
                                            9/05      9/16      9/27      9/38      9/50     10/04     10/15     10/34
                                            9/06      9/17      9/28      9/40      9/51     10/05     10/16     10/37
                                            9/07      9/18      9/29      9/41      9/52     10/06     10/17     10/38
                                            9/08      9/19      9/31      9/42      9/53     10/07     10/27     10/39
                                            9/09      9/20      9/32      9/43      9/54     10/08     10/28     10/40
                                            9/10      9/22      9/33      9/44      9/55     10/10     10/29     12/22
                                            9/11      9/23      9/34      9/45      9/56     10/11     10/30
                                            9/13      9/24      9/35      9/46     10/01     10/12     10/31
        P.LI           63   TSTEXT         12/31     12/35
        P.LJ           60   TSTEXT         12/32     12/35     12/47     12/51
        P.LK           55   TSTEXT         12/51
        P.LN           22   TSTEXT          3/21
        P.LTAG         36   TSTEXT          5/41      5/46
        P.PNT          30   TSTEXT          5/53
        P.PWF          52   TSTEXT          6/56
        P.SN           52   TSTEXT          3/28
        P.SNAD         30   TSTEXT          6/04
        P.TAG          52   TSTEXT          6/10
        P.TRC          22   TSTEXT          3/21
        TA=PRO          0   EXTERNAL*       1/52 X    6/49
        TA.PRO          0   EXTERNAL*       1/51 X    6/53
        TG.PRO          0   EXTERNAL*       1/52 X    6/48
        TS.STN          0   EXTERNAL*       1/52 X    6/03
        TS.SYM          0   EXTERNAL*       1/52 X    5/52
        TT=LF           0   EXTERNAL*       1/51 X    2/49      3/01      3/01 S    3/46
        TT.LF           0   EXTERNAL*       1/52 X    2/50      3/47     11/56     13/13
        T.LNT           0   EXTERNAL*       3/32
        WIN           257   PROGRAM*        1/43 E   11/28 L
        WINA          255   PROGRAM*        3/36      4/06     11/24 L   11/48     12/08
        WININIT       256   PROGRAM*        1/45 E   11/25 L
        WINX          313   PROGRAM*        1/45 E   13/31 L
        WIN2          271   PROGRAM*       11/49     12/22 L
        WIN3          277   PROGRAM*       12/28     12/37     12/45 L
        WIN4          301   PROGRAM*       12/22     12/56 L
        WIN5          305   PROGRAM*        3/43     11/54     13/13 L
        WIN6          312   PROGRAM*       12/57     13/02     13/25 L
        WTW=            0   EXTERNAL*       2/57
        .CPU          111   TSTEXT          4/35 F   10/19 F   11/34 F
        .FID            1   TSTEXT          2/34 F    3/10 F
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1620              IDENT  END
                       1620                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1606 
                                        LITERALS* LOCAL        1606        12 
  
  
                                        ENTRY POINTS. 
  
                                        CKS            414+           END              0+           BT.IDN8         10
                                        CKS65          432+           DDS.O            2            END96          275+ 
                                        CKS67          433+           DDS.R           11            LFS.MAX       1372+ 
                                        BT.IDNT        300+           DDS.S            0            OTRSAV        1503+ 
                                        BT.XFR1        413+           DDS.W           23            END93          257+ 
                                        WCLX           173+           BT.IDN9         11            DFTA          1131+ 
                                        WVMX           235+           DLF           1144+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.TBK    BA.PRO    TA.PRO    TS=ENT    TA=NAM    SVALUE.   CO.STA    TP=CIDM 
                                        CO.SNAP   BA.APL    NOLIST    TS.CON    TA.NAM    CAI       CP.MODL   TT.XFIL 
                                        CP.ERCT   BA.TEM    TEM.MAX   TS=DAT    ERR=F     FVD       TL.TIME   TT=XFIL 
                                        CP.MXFL   CDD       TG.VDIM   TS.DAT    E.DO9     EQUA      TL.DATE   WNB=
                                        F.LF      ENTRY.    TP=FMT    TS=BLK    E.MN      WTW=      TP.CIDM   LB.LGO
                                        F.LGO     ERRORS    TP=APL    TS.BLK    E.MO1     GT1       T.LNT     T.LGOB
                                        FV.LGO    FAILSFT   TP=NLST   TT=ASF    E.MS      RDW=      T=LNT     WCL 
                                        LOP=O     IDENT     TP.APL    TT=USE    E.M$      TIMER     CO.ID     LPS.PL
                                        LOP=M     LINEBUF   TP.DIM    TT=SCR    E.ZA      CPTIM     LJS       COD 
                                        LGOIO     LOCAL     TP=DO     TS=SYM    FILL.     TIME1     MSG=      CP.LSTF 
                                        PLIMIT    MSN       TP.DO     TT=LINK   E.SU11    CLT       THRESH    COMSIZ
                                        CO.ER     MOD       TP.FMT    TT=FILL   RUN.X     L.STL     W.TABS    OT.RM 
                                        BINIO     MSF       TP.NLST   TT.LINK   PIK=PS    N.STL     F.TABS    ALC 
                                        BINOUT    NARGS     TS=EQU    TT.FILL   WIN       NAME      T.END     IGS 
                                        BA.CON    NREXT     TS=CON    TT=LF     PIG       STLTAB    SYS=      CIO=
                                        BA.FMT    NSK       TS=STN    TT.SCR    ADW       MVE       CP.AFLS   T=SB
                                        BA.VAR    ORG       TS.STN    TT.LF     SRT       M.STRP2   INT.FL    PWE 
                                        BA.NLST   PASS      TS.SYM    T=FILE    WBL       STATIC    CP.NFLS   TRV 
                                        BA.BUF    PARCEL    TS.ENT    T.FILE    RTU       M.STCRM   WVM 
  
  
  
  
                                                  IDENT  END                                                     END         2
                                         END      SECT   (BINARY OUTPUT),1                                       END         3
  
                                                                                                                 END         4
                                                  SST    A,B,D,E,F                                               END         5
                                                  NOREF  A,B,D,E,F                                               END         6
                                                                                                                 END         7
                                         B=END    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     END         8
                                                                                                                 END         9
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     2
  
  
                                                  ENTRY  CKS,CKS65,CKS67,BT.IDNT,BT.XFR1,WCLX,WVMX,END           FEAT155G  243
                                                  ENTRY  DDS.O,DDS.R,DDS.S,DDS.W,BT.IDN9,DLF                     END        11
                                                  ENTRY  BT.IDN8,END96,LFS.MAX                                   FEAT155G  244
                                                  ENTRY  OTRSAV                                                  FEAT155G  245
                                                  ENTRY  END93                                                   FCC1390X   10
                                                                                                                 END        13
                                        *         IN FTN                                                         END        14
                                                  EXT    CO.TBK,CO.SNAP,CP.ERCT,CP.MXFL,F.LF,F.LGO               FEAT155G  246
                                                  EXT    FV.LGO,LOP=O,LOP=M,LGOIO,PLIMIT                         END        16
                                                  EXT    CO.ER                                                   FEAT155G  247
                                                                                                                 END        17
                                        *         IN TABLES                                                      END        18
                                                  EXT    BINIO,BINOUT,BA.CON,BA.FMT,BA.VAR,BA.NLST,BA.BUF,BA.PRO END        19
                                                  EXT    BA.APL,BA.TEM,CDD,ENTRY.,ERRORS,FAILSFT,IDENT           FEAT155G  248
                                                  EXT    LINEBUF,LOCAL,MSN,MOD,MSF,NARGS,NREXT,NSK,ORG           FCC0813    90
                                                  EXT    PASS,PARCEL,TA.PRO,NOLIST                               FEAT126B   63
                                                  EXT    TEM.MAX,TG.VDIM,TP=FMT,TP=APL,TP=NLST,TP.APL,TP.DIM     END        23
                                                  EXT    TP=DO,TP.DO,TP.FMT,TP.NLST,TS=EQU,TS=CON,TS=STN,TS.STN  END        24
                                                  EXT    TS.SYM,TS.ENT,TS=ENT,TS.CON,TS=DAT,TS.DAT,TS=BLK,TS.BLK END        25
                                                  EXT    TT=ASF,TT=USE,TT=SCR,TS=SYM,TT=LINK,TT=FILL,TT.LINK     END        26
                                                  EXT    TT.FILL,TT=LF,TT.SCR,TT.LF,T=FILE,T.FILE,TA=NAM,TA.NAM  END        27
                                                                                                                 END        28
                                        *         IN ERRORS                                                      END        29
                                                  EXT    ERR=F,E.DO9,E.MN,E.MO1,E.MS,E.M$,E.ZA,FILL.             FEAT126A  755
                                                  EXT    E.SU11                                                  END        31
                                                                                                                 END        32
                                        *         IN BATCH                                                       END        33
                                                  EXT    RUN.X                                                   END        34
                                                                                                                 END        35
                                        *         IN PIG                                                         END        36
                                                  EXT    PIK=PS,WIN,PIG                                          END        37
                                                                                                                 END        44
                                        *         IN ALLOC                                                       END        45
                                                  EXT    ADW,SRT                                                 FCC0813    91
                                                                                                                 END        47
                                        *         IN MAIN                                                        END        48
                                                  EXT    WBL                                                     END        49
                                                                                                                 END        50
                                        *         IN KEY                                                         END        51
                                                  EXT    RTU,SVALUE.                                             END        52
                                                                                                                 END        53
                                        *         IN GEN                                                         END        54
                                                  EXT    CAI,FVD                                                 END        55
                                                                                                                 END        56
                                        *         IN INIT                                                        END        57
                                                  EXT    EQUA                                                    END        58
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     3
                                                                      END 
  
                                        **        PASS *THREE* -- ASSEMBLE THE OBJECT CODE.                      END        64
                                        *                                                                        END        65
                                        *         *END*  MAIN CONTROLLING ROUTINE.  COMPUTES BLOCK LENGTHS AND   END        66
                                        *                ASSIGNS ALL ADDRESSES, RESERVING STORAGE WHERE          END        67
                                        *                NECESSARY.  ALSO CALLS *PASS TWO* TO WRAPUP THE FINAL   END        68
                                        *                PIECES, AND *MAP* TO PRINT LISTINGS.                    END        69
                                        *                                                                        END        70
                                        *         *CKS*  DIAGNOSE MISSING STATEMENT LABELS, AND UNTERMINATED     END        71
                                        *                *DO* LOOPS.                                             END        72
                                        *                                                                        END        73
                                        *         *DDS*  DUMP DATA STATEMENTS -- READS THE TRANSLATED *DATA*     END        74
                                        *                STATEMENTS FROM *TS.DAT* AND PRODUCES CORRESPONDING     END        75
                                        *                BINARY TABLES FOR THE LOADER.                           END        76
                                        *                                                                        END        77
                                        *         *DFT*  INITIALIZES THE BINARY OUTPUT, CHECKING ERROR COUNTS TO END        78
                                        *                DETERMINE IF BINARY SHOULD BE PRODUCED.  IF NOT, IT     END        79
                                        *                OUTPUTS AN *ERRORS* DIRECTIVE IN THE BINARY, AND EXITS  END        80
                                        *                BACK INTO *END*, BYPASSING THE REST OF THE BINARY       END        81
                                        *                OUTPUT.                                                 END        82
                                        *                                                                        END        83
                                        *         *DLF*  FLUSHES THE LINK AND FILL TABLES ACCUMULATED BY THE     END        84
                                        *                OTHER PROCESSORS.                                       END        85
                                        *                                                                        END        86
                                        *         *DTX*  FLUSHES THE *TEXT* TABLE BEING CONSTRUCTED, AND RESETS  END        87
                                        *                THE ORIGIN COUNTER APPROPRIATELY.                       END        88
                                        *                                                                        END        89
                                        *         *KAP*  TRANSLATES THE AP-LISTS GENERATED IN *TP.APL* INTO      END        90
                                        *                THE BINARY OUTPUT.                                      END        91
                                        *                                                                        END        92
                                        *         *KCF*  DUMPS THE SAVED CONSTANTS (TS.CON) AND FORMATS (TP.FMT) END        93
                                        *                INTO THE BINARY.                                        END        94
                                        *                                                                        END        95
                                        *         *KNS*  READS THE TRANSLATED *NAMELIST* GROUP DEFINITIONS FROM  END        96
                                        *                *TP.NLST* AND PRODUCES APPROPRIATE BINARY.              END        97
                                        *                                                                        END        98
                                        *         *RAD*  READS PSEUDO-OBJECT CODE FROM *T.INT* (OR THE OVERFLOW  END        99
                                        *                FILE), FILLING IN ACTUAL ADDRESSES AND RELOCATION BASES END       100
                                        *                AND WRITING BINARY.                                     END       101
                                        *                                                                        END       102
                                        *         *REL*  CALLED BY OTHER ROUTINES TO DETERMINE VALUE AND         END       103
                                        *                RELOCATION OF TAGS.                                     END       104
                                        *                                                                        END       105
                                        *         *RIN*  READS ONE WORD FROM INTERMEDIATE -- EITHER THE TABLE,   END       106
                                        *                *T.INT*, OR THE FILE.                                   END       107
                                        *                                                                        END       108
                                        *         *STX*  STORES ONE WORD INTO THE *TEXT* CURRENTLY BEING BUILT,  END       109
                                        *                UPDATING ORIGIN COUNTER AND RELOCATION BYTES.           END       110
                                        *                                                                        END       111
                                        *         *WLF*  DOES THE ACTUAL WRITE TO THE BINARY, WHETHER IT BE A    END       112
                                        *                FILE (*LGO*), OR, WHEN COMPILING-TO-CORE, ADDING TO A   END       113
                                        *                TABLE (*T.LGO*).                                        END       114
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     4
                                                                      WLGO
  
                                        **        WLGO - MACRO TO OUTPUT BINARY TO LGO.                          END       116
                                        *                                                                        END       117
                                        *         WLGO   FWA,WC                                                  END       118
                                        *                                                                        END       119
                                        *         ENTRY  FWA = SOURCE ADDRESS OF WORDS TO BE OUTPUT (B6).        END       120
                                        *                WC  = NUMBER OF WORDS TO OUTPUT  (B7).                  END       121
                                        *         CALLS  WLF                                                     END       122
                                                                                                                 END       123
                                                                                                                 END       124
                                         WLGO     MACRO  F,W                                                     END       125
                                                  =B6    F                                                       END       126
                                                  =B7    W                                                       END       127
                                                  RJ     WLF                                                     END       128
                                         WLGO     ENDM                                                           END       129
  
  
  
  
                                        **        END -  * E N D *   PROCESSING -- PASS 2 OF COMPILER.           END       131
                                        *                                                                        END       132
                                        *         1.     ASSIGN ALL ADDRESSES THAT ARE NOT YET KNOWN, RESERVING  END       133
                                        *                STORAGE WHERE NECESSARY.                                END       134
                                        *         2.     OUTPUT THE RELOCATABLE BINARY OBJECT FILE, MOSTLY       END       135
                                        *                FROM THE *LONG FILE*.                                   END       136
                                        *         3.     MAP IS CALLED TO PRINT THE VARIOUS VARIABLE MAPS AND    FEAT126C  105
                                        *                OTHER LISTINGS.                                         FEAT126C  106
                                        *         4.     WRAP UP, PRINT STATISTICS, AND RETURN TO BATCH CONTROL. END       139
                                                                                                                 END       140
                                                                                                                 END       141
             0                           END      BSS    0                                                       END       142
             0  5110000000 X                      SA1    MOD                                                     END       143
                          20162                   IFBIT  X1,-PFNC,END10    IF NOT COMPILING A FUNCTION PROGRAM   END       144
                          6140000000 X            SB4    SVALUE.                                                 END       145
             2  0100000000 X                      RJ     =XTRV                                                   FEAT126C  107
             3  20670                             IFBIT  X6,DEF,END10      IF FUNCTION NAME IS DEFINED           END       147
             4  6170000000 X                      FATAL  E.SU11      FUNCTION NAME UNDEFINED                     FCC1550X   11
             5  5110000000 X             END10    SA1    FAILSFT                                                 END       149
                          0311000173 +            NZ     X1,END70    IF TABLES ARE MESSED UP, BYPASS EVERYTHING  END       150
             6  5130000000 X                      SA3    MOD                                                     END       151
                          7160003000              SX6    M.PFNC+M.PSUB                                           END       152
             7  11063                             BX0    X6*X3                                                   END       153
                     0300000011 +                 ZR     X0,END15    IF NOT PROCEDURE SUBPROGRAM                 END       154
            10  0100000000 X                      RJ     RTU                                                     END       155
            11  0100000000 X             END15    RJ     CAI         FLUSH PARSED FILE                           END       156
            12  0100000000 X                      RJ     FVD         FLUSH VARIABLE DIMENSION CODE               END       157
            13  76600                             SHRINK TT=ASF,0                                                END       159
            14  5160000000 X                      SHRINK TT=USE,X6                                               END       160
                          5160000000 X            SHRINK =XT=SB,X6                                               FCC0813    92
            15  5160000000 X                      SHRINK TT=SCR,X6                                               END       161
                          5160000000 X            SHRINK TS=EQU,X6                                               END       162
            16  13777                             WCODE  0           MARK END OF PROGRAM BY FORCE UPPER          END       163
            20  5120000000 X                      =A2    =XERRORS    FATAL ERROR COUNTER                         FCC1524X    7
                          5110000000 X            =A1    =XMOD                                                   FCC1524X    8
            21  0312000023 +                      NZ     X2,END17    IF FATAL                                    FCC1524X    9
                          20163                   SBIT   X1,PBLK                                                 FCC1524X   10
            22  0331000023 +                      MI     X1,END17    IF BLOCKDATA                                FCC1524X   11
                          0100000000 X            RJ     PIG         PROCESS FINAL INSTRUCTION GROUP.            FCC0962     9
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     5
                                                                      END 
  
            23  5110000000 X             END17    SA1    BINIO                                                   FCC0962    10
                          0321000032 +            PL     X1,END20    IF INTERMEDIATE IN CORE                     END       166
            24  7120000000 X                      WRITER F.LF                                                    END       167
            26  7120000000 X                      REWIND F.LF                                                    END       168
                                                                                                                 END       169
                                                  IFNE   CP#RM,7,1                                               END       170
            30  7120000000 X                      READ   F.LF                                                    END       171
                                                                                                                 END       172
            32  7160000004               END20    =X6    PASS=END                                                END       173
                          5160000000 X            SA6    PASS                                                    END       174
            33  5110000000 X                      SA1    TT=LF                                                   FCC0813    93
                          10611                   BX6    X1                                                      FCC0813    94
            34  5160000000 X                      SA6    =XIGS       SET IGS TO END OF LF FOR ALLOC              FCC0813    95
                                                                                                                 END       175
                                        **        FORM BASE ADDRESSES                                            END       176
                                                                                                                 END       177
                          5110000000 X            SA1    ORG                                                     END       178
            35  5120000000 X                      SA2    TS=CON                                                  END       179
                          5130000000 X            SA3    TP=FMT                                                  END       180
            36  10611                             BX6    X1                                                      END       181
                     5140000000 X                 SA4    TEM.MAX                                                 END       182
            37  5160000000 X                      SA6    BA.CON      BASE OF CONSTANTS = LWA CODE                END       183
                          36726                   IX7    X2+X6                                                   END       184
            40  5110000000 X                      SA1    TG.VDIM                                                 END       185
                          7244457777              SX4    X4-C.TEM                                                END       186
            41  54761                             SA7    A6+B1       BA.FMT = (BA.CON) + (NR OF CONSTANTS)       END       187
                     36673                        IX6    X7+X3                                                   END       188
                          5150000000 X            SA5    TP=APL                                                  END       189
            42  7221477777                        SX2    X1-C.VDIM                                               END       190
                          36442                   IX4    X4+X2       NR OF (TEMP TAGS) = (TEMPS) + (VAR-DIMS)    END       191
                               54671              SA6    A7+B1       BA.TEM = (BA.FMT) + (LEN OF FORMATS)        END       192
            43  36746                             IX7    X4+X6                                                   END       193
                     5130000000 X                 SA3    TP=NLST                                                 END       194
                               54761              SA7    A6+B1       BA.APL = (BA.TEM) + (NR OF TEMP TAGS)       END       195
            44  36675                             IX6    X7+X5                                                   END       196
                     54671                        SA6    A7+B1       BA.NLST = (BA.APL) + (LEN OF AP-LISTS)      END       197
                          36763                   IX7    X6+X3                                                   END       198
                               54761              SA7    A6+B1       BA.VAR = (BA.NLST) + (LEN OF NAME-LISTS)    END       199
                                                                                                                 END       200
                                                                                                                 END       201
                                        **        COMPUTE ADDRESSES OF FORMATS.                                  END       202
                                        *                = (SN.ADR(TT.STAT)) + (BA.FMT)                          END       203
                                        *         ALSO FORMS LOGICAL SUM OF THE *UNDEFINED* BITS OF ALL          END       204
                                        *                STATEMENT LABELS.                                       END       205
                                                                                                                 END       206
            45  5120000000 X                      SA2    TS=STN                                                  END       207
                          5110000000 X            SA1    TS.STN                                                  END       208
            46  6170000063                        SB7    59-P.SNFMT                                              END       209
                          63420                   SB4    X2          (B4) = LENGTH OF TABLE                      END       210
                               66211              =B2    2                                                       END       211
            47  5140000000 X                      SA4    BA.FMT                                                  END       212
                          5231777776              SA3    X1-1                                                    END       213
            50  13777                             BX7    0                                                       END       214
                     20430                        LX4    P.SNAD                                                  END       215
                          76311                   =X3    M.SNDEF     FAKE LOOP 1ST TIME FOR STACK                END       216
                                                                                                                 END       217
            51  67442                    END24    SB4    B4-B2                                                   END       218
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     6
                                                                      END 
  
                     22073                        LX0    X3,B7                                                   END       219
                          0303000054 +            ZR     X3,END26    IF EMPTY ENTRY                              END       220
            52  36634                             IX6    X3+X4                                                   END       221
                     16773                        BX7    -X3+X7      ACCUMULATE UNDEF BITS                       END       222
                          46000                   NO                                                             END       223
            53  0320000054 +                      PL     X0,END26    IF NOT A *FORMAT* LABEL                     END       224
                          54630                   SA6    A3          RELOCATE ITS ADDRESS                        END       225
            54  54332                    END26    SA3    A3+B2                                                   END       226
                     0640000051 +                 PL     B4,END24    IF TABLE NOT EXHAUSTED                      END       227
            55  5170000000 X                      SA7    MSN                                                     END       228
                                                                                                                 END       229
                                                                                                                 END       230
                                        **        RELOCATE LOCAL EQUIVALENCED VARIABLES.                         END       231
                                                                                                                 END       232
                          5110000000 X            SA1    TA=NAM                                                  END       233
            56  5120000000 X                      SA2    TS.SYM                                                  END       234
                          5130000000 X            SA3    TA.NAM                                                  END       235
                                  51     A        DECMIC P.BLOCK+17                                              END       236
            57  5140001606 +                      SA4    =1S"A"                                                  END       237
                          5150000000 X            SA5    BA.VAR                                                  END       238
            60  6170000022                        SB7    59-P.BLOCK-17                                           END       239
                          6241777776              SB4    X1-1        (B4) = LENGTH OF ADDRESS TABLE              END       240
            61  63520                             SB5    X2          (B5) = FWA SYMBOL TABLE                     END       241
                     63630                        SB6    X3          (B6) = FWA ADDRESS TABLE                    END       242
                          37554                   IX5    X5-X4                                                   END       243
                                                                                                                 END       244
            62  56446                    END27    SA4    B4+B6                                                   END       245
                     0740000065 +                 MI     B4,END28    IF TABLE EXHAUSTED                          END       246
                               67441              =B4    B4-1                                                    END       247
            63  22174                             LX1    X4,B7                                                   END       248
                     36654                        IX6    X5+X4                                                   END       249
                          0321000062 +            PL     X1,END27    IF NOT LOCAL-EQUIV (BLOCK = 1S17)           END       250
            64  54640                             SA6    A4          ADD (BA.VAR) AND CLEAR BLOCK NUMBER         END       251
                     0400000062 +                 EQ     END27       LOOP..                                      END       252
                                                                                                                 END       253
                                                                                                                 END       254
                                        **        ASSIGN STORAGE FOR UNIQUE LOCAL VARIABLES                      END       255
                                                                                                                 END       256
            65  5120000000 X             END28    SA2    TS=SYM                                                  END       257
                          5110000000 X            SA1    TA=NAM                                                  END       258
            66  21201                             AX2    1                                                       END       259
                     37021                        IX0    X2-X1                                                   END       260
                          5110000000 X            ALLOC  TA.NAM,X0   ALLOCATE TA.NAM ONE WORD PER SYMBOL         END       261
            70  5130000000 X                      SA3    TS.SYM                                                  END       262
                          5140000000 X            SA4    TP.DIM                                                  END       263
            71  63610                             SB6    X1          B6 = FWA ADDRESS TABLE                      END       264
                     63720                        SB7    X2          B7 = NUMBER OF SYMBOL ENTRIES               END       265
                          63540                   SB5    X4          B5 = FWA ARRAY PARAMETERS                   END       266
            72  5150000000 X                      SA5    BA.VAR                                                  END       267
                          5120000000 X            SA2    EQUA                                                    END       268
            73  66311                             =B3    2                                                       END       269
                     5233777776                   SA3    X3-1        INITIALIZE SYMBOL FETCH                     END       270
            74  7100027160                        CLAS=  X0,(NVAR,COMM,EQUIV,NLST,EXT,ENT,FP)                    END       271
                          36552                   IX5    X5+X2       ADD IN LOCAL-EQUIVALENCE-LENGTH             END       272
                                                                                                                 END       273
            75  54333                    END3     SA3    A3+B3                                                   END       274
                     0470000104 +                 ZR     B7,END32    IF TABLE EXHAUSTED                          END       275
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     7
                                                                      END 
  
                               67771              SB7    B7-B1                                                   END       276
            76  11203                             BX2    X0*X3                                                   END       277
                     66661                        SB6    B6+B1                                                   END       278
                          20344                   LX3    -P.PNT                                                  END       279
            77  0303000075 +                      ZR     X3,END3     **** KLUDGE, AVOID NULL ENTRIES             END       280
                          0312000075 +            NZ     X2,END3     IF NOT UNIQUE LOCAL, AVOID..                END       281
           100  43157                             MX1    -L.PNT                                                  END       282
                     15231                        BX2    -X1*X3      ISOLATE TP.DIM ORDINAL                      END       283
                          53425                   SA4    X2+B5                                                   END       284
                               20325              SBIT   X3,LONG/PNT-1                                           END       285
           101  10655                             BX6    X5                                                      END       286
                     21436                        AX4    P.DIMLG                                                 END       287
                          73440                   SX4    X4                                                      END       288
                               21374              AX3    -0          -0 IFF LONG, ELSE +0                        END       289
           102  11234                             BX2    X3*X4       X4         ,      +0                        END       290
                     36754                        IX7    X5+X4                                                   END       291
                          57661                   SA6    B6-B1                                                   END       292
                               36527              IX5    X2+X7       ADD LENGTH AGAIN IF DOUBLE-WORD ELEMENT     END       293
           103  0400000075 +                      EQ     END3        LOOP..                                      END       294
                                                                                                                 END       295
                                                                                                                 END       296
                                        **        ASSIGN MISCELLANEOUS ADDRESSES.                                END       297
                                        *                NAMELIST -- (P.ARR(TT.NAM)) + (BA.NLST)                 END       298
                                        *                EXTERNAL -- 400000B                                     END       299
                                        *         ALL OTHERS IN *NAM* TABLE ARE ALREADY DONE.                    END       300
                                                                                                                 END       301
           104  5110000000 X             END32    SA1    TA=NAM                                                  END       302
                          5120000000 X            SA2    TS.SYM                                                  END       303
           105  10755                             BX7    X5                                                      END       304
                     5130000000 X                 SA3    TA.NAM                                                  END       305
                               63210              SB2    X1          B2 = LENGTH OF TABLE                        END       306
           106  54751                             SA7    A5+B1       LOCAL LENGTH = (BA.VAR) + (UNIQUE STORAGE)  END       307
                     7100001100                   CLAS=  X0,(NLST,EXT)                                           END       308
                               76710              =X7    1                                                       END       309
           107  5150000000 X                      SA5    CO.TBK                                                  END       310
                          5140000000 X            SA4    BA.NLST                                                 END       311
           110  7160000057                        SX6    1R"EXT"                                                 END       312
                          21573                   AX5    -1          -0 IFF TRACEBACK ON                         END       313
                               63420              SB4    X2          B4 = FWA SYMBOL TABLE                       END       314
           111  76110                             =X1    1                                                       END       315
                     63330                        SB3    X3          B3 = FWA ADDRESS TABLE                      END       316
                          63630                   SB6    X3          SAVE (B6) = FWA ADDRESS TABLE               END       317
                               20152              LX1    P.EXT-P.PNT                                             END       318
           112  66511                             =B5    2                                                       END       319
                     57341                        SA3    B4-B1       FETCH FIRST TAG WORD                        END       320
                          15565                   BX5    -X5*X6      SUFFIX (OR ZERO) FOR BEF-S                  END       321
           113  0400000120 +                      EQ     END34       BEGIN..                                     END       322
                                                                                                                 END       323
           114  20643                    END33    LX6    P.PNT-P.EXT+17                                          END       324
                     7277000001                   SX7    X7+1        COUNT EXTERNALS                             END       325
                               20317              SBIT   X3,BEF/PNT-1                                            END       326
           115  57631                             =A6    B3-1                                                    END       327
                     43263                        MX2    -L.JPADF                                                END       328
                          0323000120 +            PL     X3,END34    IF NOT A BASIC-EXTERNAL-FUNCTION            END       329
           116  20352                             SBIT   X3,JPADF/BEF+1                                          END       330
                     15632                        BX6    -X2*X3      ISOLATE SHIFT COUNT                         END       331
                          55231                   =A2    A3-1        FETCH SYMBOL NAME                           END       332
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     8
                                                                      END 
  
                               63760              SB7    X6                                                      END       333
           117  22375                             LX3    X5,B7                                                   END       334
                     12623                        BX6    X2+X3       APPEND SUFFIX TO BEF NAME                   END       335
                          54620                   SA6    A2                                                      END       336
                                                                                                                 END       337
           120  54335                    END34    SA3    A3+B5       FETCH TAG TABLE ENTRY                       END       338
                     0420000125 +                 ZR     B2,END35    IF TABLE EXHAUSTED                          END       339
                               67221              SB2    B2-B1                                                   END       340
           121  11203                             BX2    X0*X3                                                   END       341
                     66331                        SB3    B3+B1                                                   END       342
                          0302000120 +            ZR     X2,END34    IF NOT FOR US TO DO                         END       343
           122  20344                             LX3    -P.PNT                                                  END       344
                     11613                        BX6    X1*X3       ISOLATE EXTERNAL BIT                        END       345
                          73230                   SX2    X3                                                      END       346
           123  0316000114 +                      NZ     X6,END33    IF EXTERNAL                                 END       347
                                                                                                                 END       348
                          36624                   IX6    X2+X4       RE-LOCATE NAMELIST GROUP ADDRESS            END       349
                               57631              SA6    B3-B1                                                   END       350
           124  0400000120 +                      EQ     END34       LOOP..                                      END       351
                                                                                                                 END       352
           125                           END35    BSS    0                                                       END       353
           125  5170000000 X                      SA7    NREXT       SAVE COUNT OF EXTERNALS                     END       354
                                                                                                                 END       355
                                                                                                                 END       356
                                        **        PUT ENTRY POINT ADDRESSES INTO ADDRESS TABLE.                  END       357
                                        *                SQUEEZES OUT ANY -FAKE- ENTRY POINTS WHICH MAY BE       END       358
                                        *         PRESENT DUE TO FILE LINKAGE SUPPRESSION (*SYSEDIT* OPTION).    END       359
                                        *                (B4) = FWA SYMBOL TABLE.                                END       360
                                        *                (B6) = FWA ADDRESS TABLE.                               END       361
                                                                                                                 END       362
                          5110000000 X            SA1    TS.ENT                                                  END       363
           126  5150000000 X                      SA5    TS=ENT                                                  END       364
                          53410                   SA4    X1          FETCH FIRST ENTRY POINT                     END       365
                               66441              =B4    B4+1        FUDGE.....                                  END       366
           127  63350                             SB3    X5          (B3) = NUMBER OF E.P.                       END       367
                     66700                        =B7    0                                                       END       368
                                                                                                                 END       369
           130  53344                    END36    SA3    X4+B4       FETCH TAG WORD                              END       370
                     73540                        SX5    X4                                                      END       371
                          10644                   BX6    X4                                                      END       372
                               21330              AX3    P.PNT                                                   END       373
           131  54441                             =A4    A4+1                                                    END       374
                     67331                        =B3    B3-1        COUNT DOWN LENGTH                           END       375
                          21501                   AX5    1                                                       END       376
                               73730              SX7    X3                                                      END       377
           132  0336000133 +                      MI     X6,END37    IF FAKE E.P.                                END       378
                          53617                   SA6    X1+B7                                                   END       379
                               66771              =B7    B7+1                                                    END       380
           133  53756                    END37    SA7    X5+B6                                                   END       381
                     0703000130 +                 GT     B3,END36    IF MORE ENTRY POINTS                        END       382
                               76670              SHRINK A5,B7                                                   END       383
                                                                                                                 END       384
                                                                                                                 END       385
                                        **        ASSIGN BUFFER ADDRESSES.                                       END       386
                                                                                                                 END       387
                     5140000000 X                 SA4    BA.BUF                                                  END       388
           135  5110000000 X                      SA1    MOD                                                     END       389
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE     9
                                                                      END 
  
                          10744                   BX7    X4                                                      END       390
                               20160              IFBIT  X1,-PPRO,END45                                          END       391
                          5110000000 X            SA1    T.FILE                                                  END       392
           137  5120000000 X                      SA2    NARGS                                                   END       393
                          5130000000 X            SA3    TA.PRO                                                  END       394
           140  5251777775                        SA5    X1-2                                                    END       395
                          63420                   SB4    X2          NUMBER OF FILES                             END       396
           141  6120000003                        =B2    3                                                       END       397
                                                                                                                 END       398
           142  54552                    END4     SA5    A5+B2                                                   END       399
                     0440000155 +                 ZR     B4,END45    IF NO MORE FILES                            END       400
                               67441              SB4    B4-B1                                                   END       401
           143  0335000142 +                      MI     X5,END4     IF EQUIVALENCED FILE                        END       402
                          5110000000 X            SA1    =XOT.RM                                                 END       403
           144  73250                             SX2    X5                                                      END       405
                     13666                        BX6    0           PRESET NO CIO BUFFER (FWB=0)                F162FTNA  401
                          0302000146 +            ZR     X2,END41    IF BUFFER LENGTH (BFS) = 0                  F162FTNA  402
           145  0311000146 +                      NZ     X1,END41    IF 7RM OBJECT MODE (NO CIO BUFFER)          F162FTNA  403
                          10677                   BX6    X7          SET BUFFER ORIGIN                           F162FTNA  404
           146  21544                    END41    AX5    P.FBUF                                                  F162FTNA  405
                     6275517777                   SB7    X5-C.PRO                                                END       407
                               53637              SA6    X3+B7       DEFINE BUFFER TAG                           F162FTNA  406
           147  36772                             IX7    X7+X2       ADVANCE ORIGIN                              END       409
                     54451                        SA4    A5+B1                                                   F162FTNA  407
                          0334000142 +            MI     X4,END4     IF NO WSA                                   END       411
           150  73240                             SX2    X4          MRL                                         END       412
                     21444                        AX4    18*2                                                    END       413
                          6274517777              SB7    X4-C.PRO                                                END       414
                                                                                                                 F162FTNA  408
                                                  IFEQ   OT#RM,7,2                                               F162FTNA  409
                                                  SX0    4                                                       END       415
                                                  IX7    X7+X0                                                   END       416
                                                                                                                 F162FTNA  410
           151  53737                             SA7    X3+B7       DEFINE WSA TAG                              END       417
                                                                                                                 END       418
                                        *         SIZE OF WORKING STORAGE AREA IS 4 + CEILING(MRL/10).           END       419
                                        *         DIVISION BY 10 IS DONE BY SUBTRACTION LOOP.                    END       420
                                                                                                                 END       421
                     66300                        =B3    0           INITIALIZE QUOTIENT                         END       422
                          7140000012              SX4    10                                                      END       423
           152  37224                    END42    IX2    X2-X4                                                   END       424
                     66331                        =B3    B3+1        INCREMENT QUOTIENT                          END       425
                          0302000154 +            ZR     X2,END43    IF ZERO REMAINDER                           END       426
           153  0322000152 +                      PL     X2,END42    IF DIVIDEND STILL POSITIVE                  END       427
           154  76030                    END43    SX0    B3                                                      END       428
                     36770                        IX7    X7+X0       ADVANCE ORIGIN                              END       429
                                                                                                                 END       430
                                         #RM      IFEQ   OT#RM,7                                                 END       431
                                                                                                                 END       432
                                                  SA1    OT.RM                                                   END       433
                                                  ZR     X1,END4     IF 6RM OBJECT CODE                          END       434
                                                  BX2    -X2         NO. OF UNUSED CHARS                         END       435
                                                  BX6    X2                                                      END       436
                                                  LX2    2           *4                                          END       437
                                                  SA4    A4          WSA DESCRIPTOR                              END       438
                                                  LX6    1           *2                                          END       439
                                                  IX2    X6+X2       *6, NO. OF UNUSED BITS                      END       440
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    10
                                                                      END 
  
                                                  MX6    24                                                      END       441
                                                  LX2    18                                                      END       442
                                                  BX4    X6*X4       REMOVE MRL FIELD                            END       443
                                                  IX0    X2+X0       36/0,6/UNUSED BITS,18/NO. WORDS             END       444
                                                  BX6    X4+X0       REVISED WSA DESCRIPTOR                      END       445
                                                  SA6    A4                                                      END       446
                                                                                                                 END       447
                                         #RM      ENDIF                                                          END       448
                                                                                                                 END       449
                          0400000142 +            EQ     END4        LOOP..                                      END       450
                                                                                                                 END       451
           155  5170000000 X             END45    SA7    LOCAL       LOCAL LENGTH                                END       452
                                                                                                                 END       453
                          0100000504 +            RJ     GCL                                                     FCC0709     8
           156  5160000000 X                      SA6    =XCOMSIZ                                                FCC0709     9
                                                                                                                 END       454
                                        **        FINISH LISTABLE OUTPUT.                                        END       455
                                        *         1.     DIAGNOSE PROGRAM TOO BIG, MISSING STATEMENT LABELS, AND END       456
                                        *                            UNTERMINATED DO-S.                          END       457
                                        *         2.     *COMPASS*-STYLE LISTING OF MISCELLANEOUS BINARY.        END       458
                                        *         3.     *END* CARD.                                             END       459
                                                                                                                 END       460
                          5150000000 X            SA5    LOCAL                                                   END       461
           157  36556                             IX5    X5+X6       ADD IN LOCAL COMMON LENGTHS                 FCC0709    10
                     21521                        AX5    17                                                      END       462
                          0315000000 X            NZ     X5,E.MO1    IF PROGRAM-UNIT TOO BIG                     END       463
           160  0400000414 +                      EQ     CKS         CHECK MISSING STATEMENT NUMBERS             END       464
                                        *         ...                                                            FEAT126C  108
           161                           CKSX     BSS    0           ** RETURN FROM CKS.                         END       465
           161  5110000000 X                      SA1    LOCAL                                                   FEAT155G  249
                          5120000000 X            SA2    =XCOMSIZ                                                FEAT155G  250
           162  36112                             IX1    X1+X2                                                   FEAT155G  251
                     10711                        BX7    X1                                                      FEAT155G  252
                          5170001503 +            SA7    OTRSAV                                                  FEAT155G  253
           163  5130000000 X                      SA3    =XCP.LSTF                                               FCC2069A    8
                          0303000167 +            ZR     X3,END50    IF L=0 WAS USED                             FCC2069A    9
           164  5130000000 X                      SA3    =XLOP=M     IF R=0 WAS USED                             FCC2259    11
                          0323000167 +            PL     X3,END50                                                FCC2259    12
           165  0100000000 X                      PIA    ,=XLPS.PL                                               FEAT155G  254
           167  5130000000 X             END50    SA3    =XMOD                                                   FCC2069A   10
                          5120000000 X            SA2    ERRORS                                                  FCC1524X   13
           170  20363                             SBIT   X3,PBLK                                                 FCC1524X   14
                     0312000173 +                 NZ     X2,WCLX     IF ERRORS                                   FCC1524X   15
           171  5110000000 X                      SA1    LOP=O                                                   FCC1524X   16
                          0333000173 +            MI     X3,WCLX     IF BLOCK DATA                               FCC1524X   17
           172  0331000000 X                      MI     X1,=XWCL    IF OBJECT LIST SELECTED                     FEAT155G  257
                                        *         ...                                                            END       468
           173                           WCLX     BSS    0           ** RETURN FROM *WCL*.                       END       469
                                         SNAP=E   IFNE   TEST        DUMP ADDRESS TABLE                          END       483
                                                  SA1    CO.SNAP                                                 END       484
                                                  LX1    1RE                                                     END       485
                                                  PL     X1,END50S   IF END SNAP NOT SELECTED                    END       486
                                                  DUMPT  TA.NAM                                                  END       487
                                         END50S   BSS    0                                                       END       488
                                         SNAP=E   ENDIF                                                          END       489
                                                                                                                 END       490
                                                                                                                 END       491
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    11
                                                                      END 
  
                                        **        OUTPUT THE BINARY.                                             END       492
                                                                                                                 END       493
           173  5110000000 X             END70    ALLOC  =XT.LGOB,=XLB.LGO  GET ROOM FOR LGO BUFFER              FCC0813    96
           175  5120000000 X                      SA2    FV.LGO                                                  FCC0813    97
                          0302000225 +            ZR     X2,END80    IF BINARY COMPLETELY SUPPRESSED             END       495
                                                                                                                 END       496
                                                  IFNE   CP#RM,7,1                                               END       497
           176  7120000000 X                      RECALL F.LGO                                                   END       498
                                                                                                                 END       499
                                                                                                                 END       500
           177  0400000703 +                      EQ     DFT         DUMP FIRST TABLES                           END       501
                                        *         ...                                                            FEAT126C  109
           200                           DFTX     BSS    0           ** NORMAL RETURN FROM DFT                   END       502
           200  13666                             BX6    0                                                       END       503
                     5160000000 X                 SHRINK TT=LINK,X6                                              END       504
           201  5160000000 X                      SHRINK TT=FILL,X6                                              END       505
                          5160000000 X            SHRINK =XTT=XFIL,X6                                            END       506
                                                                                                                 END       507
           202  5110000000 X                      SA1    BA.CON                                                  END       508
                          0100001307 +            RJ     KCF         GET RID OF CONSTANTS AND FORMATS            END       509
                                                                                                                 END       510
           203  0100000447 +                      RJ     DDS         DUMP *DATA* STATEMENTS                      END       511
                                                                                                                 END       512
           204  5120000000 X                      SA2    NREXT                                                   END       513
                          5110000000 X            ALLOC  TT.LINK,X2  ALLOCATE BASIC LINK TABLE                   END       514
           206  5110000000 X                      ALLOC  TT.FILL,1   ALLOCATE BASIC FILL TABLE                   END       515
           210  5110000000 X                      ALLOC  =XTT.XFIL,1 ALLOCATE EXTENDED FILL TABLE                END       516
                                                                                                                 END       517
           212  5110000000 X                      SA1    BA.PRO                                                  END       518
                          0100001401 +            RJ     RAD         RELOCATE AND OUTPUT THE LONG FILE.          END       519
                                                                                                                 END       520
           213  5110000000 X                      SA1    BA.APL                                                  END       521
                          0100001225 +            RJ     KAP         COMPILE *AP-LIST* TEXT                      END       522
           214  76600                             SHRINK TP=APL,0    TRASH TABLE                                 FCC0813    98
                                                                                                                 END       523
           215  5110000000 X                      SA1    BA.NLST                                                 END       524
                          0100001326 +            RJ     KNS         COMPILE *NAMELIST* SPACE                    END       525
                                                                                                                 END       526
           216  0100001215 +                      RJ     DTX                                                     END       527
                                                                                                                 END       528
                                                                                                                 F66FCC    221
                                         #FID     IFNE   .FID,0                                                  F66FCC    222
           217  0100000522 +                      RJ     DFD         DUMP 5600/5700 TABLES                       F66FCC    223
           220  76600                             SHRINK =XTP=CIDM,0 COLLASPE TP.CDIM                            F66FCC    224
                                         #FID     ENDIF                                                          F66FCC    225
           221  0100001144 +                      RJ     DLF         FLUSH LINK AND FILL TABLES                  END       529
           222  5130000000 X                      SA3    MOD                                                     END       530
                          20360                   IFBIT  X3,-PPRO,END80                                          END       531
                          6160000412 +            WLGO   BT.XFER,2                                               END       532
                                                                                                                 END       533
                                        *                            *DFT* RETURNS TO HERE IF ERRORS.            END       534
                                                                                                                 END       535
           225  5110000000 X             END80    SA1    LGOIO                                                   END       536
                          0321000230 +            PL     X1,END82    IF LGO NOT ON DISK                          END       537
           226  7120000000 X                      WRITER F.LGO                                                   END       538
           230  13666                    END82    SHRINK TT=LF       TRASH ALL TABLES NO LONGER NEEDED           END       539
           231  5160000000 X                      SHRINK TS=CON,X6                                               END       540
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    12
                                                                      END 
  
                          5160000000 X            SHRINK TP=FMT,X6                                               END       541
           232  5160000000 X                      SHRINK TP=APL,X6                                               END       542
                          5160000000 X            SHRINK TP=NLST,X6                                              END       543
           233  5160000000 X                      SHRINK TS=DAT,X6                                               END       544
                                                                                                                 END       545
                          5110000000 X            SA1    LOP=M                                                   END       546
           234  0331000000 X                      MI     X1,=XWVM    IF VAR MAP ON                               FEAT155G  258
                                        *         ...                                                            END       548
           235                           WVMX     BSS    0           ** RETURN FROM *WVM*.                       END       549
           235  5110000000 X                      SA1    =XCP.NFLS                                               FCC0813    99
                          5130000000 X            SA3    CP.MXFL                                                 END       551
           236  7211000077                        SX1    X1+1S6-1                                                END       554
                          21106                   AX1    6                                                       END       555
                               20106              LX1    6           ROUND UP TO NEAREST 100B                    END       557
           237  10211                             BX2    X1                                                      END       558
                     37623                        MX6    X2+X3       MAX CORE USED BY ANY SUBPROGRAM             END       560
                          54630                   SA6    A3                                                      END       561
           241  5120000000 X                      SA2    =XCP.LSTF                                               END       562
                          5130000000 X            SA3    =XNOLIST                                                FEAT126B   64
           242  0302000243 +                      ZR     X2,LFSX     IF SHORT LIST (L=0)                         FEAT155G  259
                          0333001362 +            MI     X3,LFS      IF *C/-LIST,ALL* ACTIVE LIST FINAL STATS    FEAT155G  260
                                        *         ...                                                            END       564
           243                           LFSX     BSS    0           ** RETURN FROM LFS                          FEAT155G  261
                                                                                                                 END       566
                                        **        RETURN TO INITIAL FIELD LENGTH                                 FEAT155D   47
                                                                                                                 FEAT155D   48
           243  5110000000 X                      SA1    =XINT.FL                                                FEAT155D   49
                          5120000000 X            SA2    =XCP.AFLS                                               FEAT155D   50
           244  20236                             LX2    30                                                      FEAT155D   51
                     37312                        IX3    X1-X2                                                   FEAT155D   52
                          0303000251 +            ZR     X3,END86    IF FL SAME AS AT START                      FEAT155D   53
           245  7160150515                        MEMORY SCM,=XINT.FL,RCL                                        FEAT155D   54
           250  5110000000 X                      SA1    =XINT.FL                                                FEAT155D   55
           251  21136                    END86    AX1    30                                                      FEAT155D   56
                     10611                        BX6    X1                                                      FEAT155D   57
                          5160000000 X            SA6    =XCP.AFLS                                               FEAT155D   58
           252  7276777765                        SX7    X6-10       ALLOW FOR SLOP                              FEAT155D   59
                          20636                   LX6    30                                                      FEAT155D   60
                               54610              SA6    A1          CLEAR COMPLETE BIT                          FEAT155D   61
           253  5170000000 X                      SA7    =XCP.NFLS                                               FEAT155D   62
                          5170000000 X            SA7    =XT.END                                                 FCC1328AX   9
           254  5110000000 X                      SA1    =XF.TABS    FWA TABLES                                  FEAT155D   63
                          37771                   IX7    X7-X1                                                   FEAT155D   64
           255  5170000000 X                      SA7    =XW.TABS    WIDTH OF TABLE SPACE                        FEAT155D   65
                          21704                   AX7    FLSLOP                                                  FEAT155D   66
           256  5170000000 X                      SA7    =XTHRESH    GIVE ALLOC SOME ELBOW ROOM                  FEAT155D   67
                                                                                                                 FEAT155D   68
                                        **        SEND ERROR MESSAGE TO DAYFILE + CONSOLE.                       END       567
                                                                                                                 END       568
                                                                                                                 END       569
           257  5130000000 X             END93    SA3    ERRORS      TOTAL NUMBER OF FATAL ERRORS                FCC0813   100
                          5120000000 X            SA2    ERR=F       ERRORS IN CURRENT STATEMENT                 END       572
           260  36123                             IX1    X2+X3                                                   FEAT126A  760
                     5120000000 X                 SA2    CP.ERCT                                                 END       575
           261  0301000000 X                      ZR     X1,=XRUN.X  IF NO ERRORS IN THIS ROUTINE, EXIT..        END       576
                          36612                   IX6    X1+X2       UPDATE JOB ERROR COUNT                      END       577
                               54620              SA6    A2                                                      END       581
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    13
                                                                      END 
  
           262  63610                             SB6    X1          SAVE NUMBER OF ERRORS                       END       582
                     0100000000 X                 RJ     CDD                                                     END       583
           263  5110001607 +                      SA1    =10H  FORTRAN                                           END       584
                          5160000000 X            SA6    LINEBUF                                                 END       585
           264  5130001610 +                      SA3    =38LERROR IN  ERRORS IN COMPILATION.                    END       586
                          5120000000 X            SA2    IDENT                                                   END       587
           265  10711                             BX7    X1                                                      END       588
                     0616000266 +                 LE1    B6,END95    IF ONLY ONE ERROR                           END       589
                               54331              =A3    A3+1                                                    END       590
           266  54761                    END95    =A7    A6+1        +1 =  FORTRAN                               END       591
                     10633                        BX6    X3                                                      END       592
                          22702                   LX7    X2                                                      END       593
                               54671              =A6    A7+1        +2 = ERROR(S) IN                            END       594
           267  54761                             =A7    A6+1        +3 = (IDENT)                                END       595
                     7110000000 X                 MESAGE LINEBUF,,RCL                                            END       596
           272  7110000000 X                      PLINE  LINEBUF,4,1                                             FEAT126A  761
                                                                                                                 END       598
           274  0400000000 X                      EQ     RUN.X       EXIT..                                      END       599
                                                                                                                 FCC0931     7
                                        **        THIS IS ENTERED WHEN TABLE OVERFLOW WAS ENCOUNTERED DURING     FCC0931     8
                                        *         MAP OR END PROCESSING.                                         FCC0931     9
                                                                                                                 FCC0931    10
           275  6160001611 +             END96    WLGO   BT.ERR,3                                                FCC0931    11
           277  0400000257 +                      EQ     END93                                                   FCC0931    12
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    14
                                                                      BT.---
  
                                        **        BT.--- BINARY OUTPUT TABLE DEFINITIONS.                        END       601
                                                                                                                 END       602
                                                                                                                 END       603
                                3400     BT=PIDL  EQU    3400B       PROGRAM/BLOCK TABLE                         END       604
                                3600     BT=ENTR  EQU    3600B       ENTRY POINT TABLE                           END       605
                                4000     BT=TEXT  EQU    4000B       RELOCATABLE TEXT TABLE                      END       606
                                4100     BT=XFILL EQU    4100B       EXTENDED FILL OR *XFILL* TABLE              END       607
                                4200     BT=FILL  EQU    4200B       COMMON *FILL* TABLE                         END       608
                                4300     BT=REPL  EQU    4300B       DATA REPLICATION TABLE                      END       609
                                4400     BT=LINK  EQU    4400B       EXTERNAL *LINK* TABLE                       END       610
                                4600     BT=XFER  EQU    4600B       TRANSFER ADDRESS TABLE                      END       611
                                4500     BT=XLINK EQU    4500B       XLINK TABLE                                 FCCA408    82
                                         #FID     IFNE   .FID,0                                                  F66FCC    226
                                5700     BT=LSTN  EQU    5700B       LOADER STMT AND LINE NUMBER TABLE           F66FCC    227
                                5600     BT=LSYM  EQU    5600B       LOADER SYMBOL TABLE                         F66FCC    228
                                         #FID     ENDIF                                                          F66FCC    229
                                7000     BT=LDSET EQU    7000B       *LDSET* OBJECT DIRECTIVE                    END       612
                                  10     BT=LIB   EQU      10B             *LIB* SUB-DIRECTIVE                   END       613
                                  16     BT=USE   EQU      16B             *USE* SUB-DIRECTIVE                   F162FTNA  411
                                7700     BT=IDNT  EQU    7700B       IDENT (PRFX) TABLE                          END       614
                                                                                                                 END       615
                                         #FID     IFNE   .FID,0                                                  F66FCC    230
                                7777     BT=MXWC  EQU    7777B       MAXIMUM WORD COUNT PER TABLE OUTPUT TO LGO  F66FCC    231
                                         #FID     ENDIF                                                          F66FCC    232
                                                                                                                 F66FCC    233
                                        *         THE FOLLOWING DEFINITIONS ARE FOR LOADER SYMBOL TABLES.        F66FCC    234
                                        *                                                                        F66FCC    235
                                        *         HEADER WORD                                                    F66FCC    236
                                                                                                                 F66FCC    237
                                         BTFT     DEFINE 24,12       FORTRAN INDICATOR FIELD                     F66FCC    238
                                         BTFI     DEFINE 23,1        FINAL TABLE FIELD                           F66FCC    239
                                                                                                                 F66FCC    240
                                        *         WORD ONE                                                       F66FCC    241
                                                                                                                 F66FCC    242
                                         BTNM     DEFINE 18,42       NAME FIELD                                  F66FCC    243
                                         BTBI     DEFINE 9,9         RELOCATION BASE INDICATOR                   F66FCC    244
                                                                                                                 F66FCC    245
                                        *         WORD TWO                                                       F66FCC    246
                                                                                                                 F66FCC    247
                                         BTLM     DEFINE 59,1        LCM BIT                                     F66FCC    248
                                         BTFP     DEFINE 58,1        FP BIT                                      F66FCC    249
                                         BTDC     DEFINE 57,1        CONSTANT UPPER BOUND BIT                    F66FCC    250
                                         BTTP     DEFINE 51,5        TYPE FIELD                                  F66FCC    251
                                         BTDM     DEFINE 46,5        NUMBER OF DIMENSIONS FIELD                  F66FCC    252
                                         BTLC     DEFINE 30,25       LENGTH OF CHARACTERS                        F66FCC    253
                                         BTCP     DEFINE 24,3        BCP = BEGIN CHAR POSITION                   F66FCC    254
                                         BTAD     DEFINE 0,24        RELATIVE ADDRESS FIELD                      F66FCC    255
                                         #FID     ENDIF                                                          F66FCC    256
                                                                                                                 END       622
                                  16     L.77     EQU    16B                                                     END       623
                                                                                                                 END       624
                                         MODLVL   MICRO  1,5,/"MODLVL"     /                                     END       625
                                                                                                                 FCC1264    12
                                        **        TARGET - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR FOR   FCC1264    13
                                        *                  WHICH THE PROGRAM IS OPTIMIZED.                       FCC1264    14
                                        *                                                                        FCC1264    15
                                        *         VALID - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR ON     FCC1264    16
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    15
                                                                      BT.---
  
                                        *                 WHICH THE PROGRAM CAN BE EXECUTED.                     FCC1264    17
                                        *                                                                        FCC1264    18
                                        *         TARGET  AND  VALID  ARE CALCULATED FROM  MODEL                 FCC1264    19
                                        *                                                                        FCC1264    20
                                        *         MODEL      -->      TARGET     -->      VALID                  FCC1264    21
                                        *         71                  64                  64                     FCC1847X    8
                                        *         72                  64                  64                     FCC1264    22
                                        *         73                  64                  64                     FCC1264    23
                                        *         74                  66                  6X                     FCC1264    24
                                        *         76                  76                  7X                     FCC1264    25
                                        *         171                 64                  64                     FCC1847X    9
                                        *         172                 64                  64                     FCC1264    26
                                        *         173                 64                  64                     FCC1264    27
                                        *         174                 64                  64                     FCC1264    28
                                        *         175                 C5                  CX                     FCC1264    29
                                        *         176                 76                  7X                     FCC1264    30
                                        *                                                                        FCC1264    31
                                                                                                                 FCC1264    32
                                         .TMP     MICRO  2,1,/"MDL"/                                             F2950F4   107
                                         TARGET   MICRO  2*".TMP"-5,2,/6466C576/                                 F2950F4   108
                                         VALID    MICRO  2*".TMP"-5,2,/646XCX7X/                                 F2950F4   109
                                                                                                                 END       632
           300                           BT.IDNT  BSS    0           PREFIX TABLE LAYOUT                         END       633
                                                                                                                 END       634
      L      0                                    LOC    0                                                       END       635
                                                                                                                 END       636
      L      0  77000016000000000000              VFD    L.BTCN/BT=IDNT,L.BTWC/L.77,*P/0                         END       637
      L      1  47474747474747555555              DIS    1,*******         DECK NAME                             END       638
      L      2  55151550040450313155              DIS    2, MM/DD/YY  HH.MM.SS.                                  END       639
      L      4  16172355355743574255              DATA   10H"OS.ID"                                              S3143FC    35
      L      5  06241655555555375743              DATA   10H"LPNAME""VER"                                        END       641
      L      6  43423455554137413755              VFD    30/5H"MODLVL",12/2H"TARGET",12/2H"VALID",6/1H           END       642
      L      7  55115555555555555555              DATA   2H I        HARDWARE DEPENDENCIES                       END       643
      L     10  55555555555555555555     BT.IDN8  DIS    1,          PROG-UNIT TYPE                              END       644
                                        *                                           ---  OPTIONS  ---            END       645
      L     11  55555555555555555555     BT.IDN9  DIS    1,          DBUG TRACE                                  END       646
      L     12  55555555555555555555     BT.IDNTA DIS    1,                               ROUND SYS              END       647
      L     13                     4     BT.IDNTU BSSZ   L.77-*+1                        USER COMMENT            END       648
                                                                                                                 END       649
           317                                    LOC    *O                                                      END       650
                                                                                                                 END       651
                                                                                                                 END       652
                                        **        BT.LIB - *LDSET(LIB=FORTRAN)* LOADER OBJECT DIRECTIVE.         END       653
                                                                                                                 END       654
           317  70000002000000000000     BT.LIB   VFD    L.BTCN/BT=LDSET,L.BTWC/BT.LIBL-1,*P/0                   END       655
           320  00100001000000000000              VFD    L.BTCN/BT=LIB,L.BTWC/BT.LIBL-2,*P/0                     F162FTNA  412
           321  06172224220116000000              DATA   L FORTRAN   NORMAL FTN COMMON LIBRARY                   FEAT155K    8
                                   3     BT.LIBL  EQU    *-BT.LIB                                                END       659
                                                                                                                 END       660
                                                                                                                 END       661
                                        **        BT.ERR - THIS LINE IS ALL THE BINARY OUTPUT IF THERE WERE      END       662
                                        *                FATAL ERRORS.                                           END       663
                                                                                                                 END       664
                                1611 +   BT.ERR   LIT    28LERRORS IN COMPILATION.                               END       665
                                                                                                                 END       666
                                                                                                                 END       667
                                        **        BT.1ST - FIRST *TEXT* OUTPUT FOR EVERY EXECUTABLE PROGRAM-UNIT END       668
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    16
                                                                      BT.---
  
                                        *         CONSISTS OF --                                                 END       669
                                        *                  ORG    0                                              END       670
                                        *         TRACE.   VFD    42/0LNAME,18/NAME        L +                   END       671
                                        *         TEMPA0.  DATA   1777BS48                                       END       672
                                        *         SAVEA0.  DATA   1777BS48                                       END       673
                                                                                                                 END       674
                                  22     A        SET    P.BTWC-P.BTRL                                           END       675
           322  40000001000001000000     BT.CONS  VFD    L.BTCN/BT=TEXT,L.BTWC/1,A/1,*P/0                        END       676
           323  40000004000001000000     BT.1ST   VFD    L.BTCN/BT=TEXT,L.BTWC/BT.1STL,A/1,*P/0                  END       677
           324  10000000000000000000              VFD    L.BTRB/2,*P/0                                           END       678
           325  47474747474747400000              VFD    42/7L*******,18/1S17                                    END       679
           326  17770000000000000000              DATA   1777BS48                                                END       680
           327  17770000000000000000              DATA   1777BS48                                                END       681
                                   4     BT.1STL  EQU    *-BT.1ST-1                                              END       682
  
  
  
  
                                        **        BT.FIT - FILE INFORMATION TABLE TEMPLATE.                      END       685
                                                                                                                 END       686
                                        *         CRM FIT TEMPLATES.                                             F162FTNA  414
                                                                                                                 F162FTNA  415
                                         .RM      IFEQ   OT#RM,6                                                 F162FTNA  416
                                                                                                                 F162FTNA  417
                                        *         CRM FIT LOADER TEXT TABLES.                                    F162FTNA  418
                                                                                                                 F162FTNA  419
           330                           BT.FITC  BSS    0           BEGIN CRM FIT TEXT TABLES                   F162FTNA  420
                                                                                                                 F162FTNA  421
                                        *         CRM FIT SECTION (A).                                           F162FTNA  422
                                                                                                                 F162FTNA  423
                                  11     A        SET    P.BTWC-P.BTRL-L.BTRL                                    F162FTNA  424
           330  40000004000001000000     BT.FCAH  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.FCAL+1,A/0,L.BTRL/1,*P/**      F162FTNA  425
           331  00000000000000000000              VFD    *P/**       FILLED BY RELOCATION BYTES                  F162FTNA  426
                                                                                                                 F162FTNA  427
           332  00000000000000000001     BT.FCA   VFD    42/**,17/0,1/1    FILE NAME, CIO COMPLETE BIT           F162FTNA  428
           333  00000000000036000000              VFD    36/0,6/L.FIT6-L.FCLX-5,18/**                            FCCA408    83
                                                                     (FIT LENGTH - 5) + FWA CIRCULAR BUFFER      FCCA408    84
           334  00000000000000000000              VFD    60/0        ZERO WORD FOR REPL (MUST IMM PRECEDE REPL)  F162FTNA  430
                                                                                                                 F162FTNA  431
                                   3     BT.FCAL  =      *-BT.FCA    LENGTH OF FIT SECTION (A)                   F162FTNA  432
                                                                                                                 F162FTNA  433
                                        *         BT.REPC - CRM FIT REPLICATION TABLE.                           F162FTNA  434
                                        *         NOTE - REPL TABLE MUST IMMEDIATELY FOLLOW FIT (A) TEXT TABLE.  F162FTNA  435
                                                                                                                 F162FTNA  436
           335  43000002000000000001     BT.REPC  VFD    L.BTCN/BT=REPL,L.BTWC/2,*P/1                            F162FTNA  437
           336  00000000000001000000              VFD    33/0,9/1,18/**          REPL SOURCE                     F162FTNA  438
           337  00004600000000000000              VFD    18/L.FIT6-BT.FCAL,*P/0  REPL COUNT (DEST ADDR=SOURCE+1) F162FTNA  439
                                                                                                                 F162FTNA  440
                                        *         CRM FIT SECTION (B).                                           F162FTNA  441
                                                                                                                 F162FTNA  442
           340  40000016000001000000     BT.FCBH  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.FCBL+1,A/0,L.BTRL/1,*P/**      F162FTNA  443
           341  00000000000000000000              VFD    *P/**       FILLED BY RELOC BYTES                       F162FTNA  444
                                                                                                                 F162FTNA  445
           342  00000000000060000000     BT.FCB   VFD    36/0,2/3,22/0     LT=ANY                                F162FTNA  446
           343  00000000220000000000              VFD    25/0,2/2,3/2,30/0 OF=N,LF=N                             F162FTNA  447
           344  00000000000000000000              VFD    24/**,36/0        *MRL* (MAX REC LEN)                   F162FTNA  448
           345  14000000000000000000              VFD    2/0,2/3,56/0      DFC=3                                 F162FTNA  449
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    17
                                                                      BT.---
  
           346  00000000000000000000              VFD    60/0                                                    F162FTNA  450
           347  00000000060000000000              VFD    27/0,3/6,8/0,22/** EO=AD, FWA WSA                       F162FTNA  451
           350  00000000000000000000              VFD    60/0                                                    F162FTNA  452
           351  00000000000000000000              VFD    42/0,18/**        *BFS* (CIO CIRC BUFF SIZE)            F162FTNA  453
           352  00000000000000000000              DATA   0,0,0,0                                                 FCCA561    23
           356  00000001000000000000              VFD    20/0,4/1,36/0       FORTRAN GENERATED FIT FLAG          FCCA561    24
                                                                                                                 F162FTNA  454
                                  15     BT.FCBL  =      *-BT.FCB    LENGTH FIT (B)                              F162FTNA  455
                                                                                                                 F162FTNA  456
                                        *         CRM FIT SECTION (C) -- *FCL* FIT EXTENSION.                    F162FTNA  457
                                                                                                                 F162FTNA  458
           357  40000002000001000000     BT.FCCH  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.FCCL+1,A/0,L.BTRL/1,*P/**      F162FTNA  459
           360  10000000000000000000              VFD    4/2,*P/0    POSITIVE RELOC OF LOWER ADDR                F162FTNA  460
                                                                                                                 F162FTNA  461
           361  00000000000000000000     BT.FCC   VFD    *P/**       MRL, WSA                                    F162FTNA  462
                                                                                                                 F162FTNA  463
                                   1     BT.FCCL  =      *-BT.FCC    LENGTH FIT (C)                              F162FTNA  464
                                   3     BT.FCCTL =      *-BT.FCCH   LENGTH FIT (C) TEXT TABLE                   F162FTNA  465
                                                                                                                 F162FTNA  466
                                  32     BT.FITCL =      *-BT.FITC   LENGTH CRM FIT TEXT TABLES                  F162FTNA  467
                                                                                                                 F162FTNA  468
                                         .RM      ENDIF                                                          F162FTNA  469
                                                                                                                 F162FTNA  470
                                                                                                                 F162FTNA  471
                                        *         7RM FIT TEMPLATES.                                             F162FTNA  472
                                                                                                                 F162FTNA  473
                                         .RM      IFEQ   OT#RM,7                                                 F162FTNA  474
                                                                                                                 F162FTNA  475
                                        *         7RM FIT LOADER TEXT TABLES.                                    F162FTNA  476
                                                                                                                 F162FTNA  477
                                         BT.FIT7  BSS    0           BEGIN 7RM FIT TEXT TABLES.                  F162FTNA  478
                                                                                                                 F162FTNA  479
                                        *         7RM FIT SECTION (A).                                           F162FTNA  480
                                                                                                                 F162FTNA  481
                                         A        SET    P.BTWC-P.BTRL-L.BTRL                                    F162FTNA  482
                                         BT.F7AH  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.F7AL+1,A/0,L.BTRL/1,*P/**      F162FTNA  483
                                                  VFD    *P/**       FILLED BY RELOCATION BYTES                  F162FTNA  484
                                                                                                                 F162FTNA  485
                                         BT.F7A   BSSZ   2                                                       F162FTNA  486
                                                  VFD    24/0,2/2,4/1,2/0,28/0   (OF)=N,(LT)=UNLABELED           FCCA561    25
                                                  BSSZ   3                                                       F162FTNA  488
                                                  VFD    6/**,18/**,15/0,21/**   (MRL - UBC,WORDS), (WSA)        F162FTNA  489
                                                  DATA   0                                                       FCCA561    26
                                                  VFD    14/0,4/1,42/0       FORTRAN GENERATED FIT FLAG          FCCA561    27
                                                  VFD    60/0        ZERO WORD FOR REPL (MUST IMM PRECEDE REPL)  F162FTNA  490
                                                                                                                 F162FTNA  491
                                         BT.F7AL  =      *-BT.F7A    LENGTH OF 7RM PARTIAL FIT                   F162FTNA  492
                                                                                                                 F162FTNA  493
                                        *         BT.REP7 - 7RM REPLICATION TABLE.                               F162FTNA  494
                                        *         NOTE - REPL TABLE MUST IMMEDIATELY FOLLOW FIT (A) TEXT TABLE.  F162FTNA  495
                                                                                                                 F162FTNA  496
                                         BT.REP7  VFD    L.BTCN/BT=REPL,L.BTWC/2,*P/1                            F162FTNA  497
                                                  VFD    33/0,9/1,18/**          REPL SOURCE                     F162FTNA  498
                                                  VFD    18/L.FIT7-BT.F7AL,*P/0  REPL COUNT (DEST ADDR=SOURCE+1) F162FTNA  499
                                                                                                                 F162FTNA  500
                                         BT.FIT7L =      *-BT.FIT7   LENGTH 7RM FIT TEXT TABLES                  F162FTNA  501
                                                                                                                 F162FTNA  502
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    18
                                                                      BT.---
  
                                         .RM      ENDIF                                                          F162FTNA  503
  
  
  
  
                                        **        BT.REP - REPLICATION TABLES BUILT HERE.                        END       712
                                                                                                                 END       714
           362  43000002000000000001     BT.REP   VFD    L.BTCN/BT=REPL,L.BTWC/2,*P/1                            END       715
           363  00000000000001000000              VFD    33/0,9/1,18/**         SOURCE OF REPL                   END       716
           364  00000000000001000000              VFD    18/**,15/0,9/1,18/**   REPL COUNT,DESTINATION OF REPL   END       717
                                                                                                                 END       720
                                                                                                                 END       726
                                        **        BT.TEXT - PARTIAL *TEXT* TABLE BUILT HERE.                     END       727
                                                                                                                 END       728
           365  00000000000000000000     BT.TXWC  DATA   0           WORD COUNT                                  END       729
           366  00000000000000000000     BT.TEXT  DATA   0           PARTIAL TABLE PROPER                        END       730
           367  00000000000000000000     BT.TXRB  DATA   0           RELOCATION BYTES                            END       731
           370                    17              BSSZ   15                                                      END       732
                                                                                                                 END       733
                                         #FID     IFNE   .FID,0                                                  F66FCC    257
                                  20     BT.TXTL  EQU    *-BT.TXRB   LENGTH OF WORKING BUFFER                    F66FCC    258
                                         #FID     ENDIF                                                          F66FCC    259
                                                                                                                 END       734
           407  00000000000000000000     BINWORD  DATA   0           PARTIAL BINARY OUTPUT WORD                  END       735
           410  00000000000000000000     BINREL   DATA   0           PARTIAL RELOCATION                          END       736
                                                                                                                 END       737
           411  36000000000000000000     BT.ENTR  VFD    L.BTCN/BT=ENTR,*P/0                                     END       738
           412  46000001000000000000     BT.XFER  VFD    L.BTCN/BT=XFER,L.BTWC/1,*P/0                            END       739
           413                     1     BT.XFR1  BSS    1           ROUTINE NAME GOES HERE                      END       740
                                                                                                                 F66FCC    260
                                        *         EQUATES FOR SYMBOL AND LINE NUMBER TABLE (5600,5700)           F66FCC    261
                                        *         GENERATION.                                                    F66FCC    262
                                                                                                                 F66FCC    263
                                                                                                                 F66FCC    264
                                        *         LOADER STATEMENT AND LINE NUMBER TABLES                        F66FCC    265
                                                                                                                 F66FCC    266
                                         #FID     IFNE   .FID,0                                                  F66FCC    267
                                 367 +   BT.STTX  EQU    BT.TXRB     FWA OF BUFFER                               F66FCC    268
                                 365 +   BT.STWC  EQU    BT.TXWC     WORD COUNT                                  F66FCC    269
                                 366 +   BT.ST77  EQU    BT.TEXT     WORD COUNT IF T=LNT .GT. 7777B              F66FCC    270
                                                                                                                 F66FCC    271
                                        *         LOADER SYMBOL TABLE GENERATION                                 F66FCC    272
                                                                                                                 F66FCC    273
                                 365 +   BT.SYWC  EQU    BT.TXWC     WORD COUNT                                  F66FCC    274
                                 366 +   BT.SYMB  EQU    BT.TEXT     LENGTH OF SYMBOL TABLE (TS=SYM)             F66FCC    275
                                 367 +   BT.SYTX  EQU    BT.TXRB     FWA OF BUFFER                               F66FCC    276
                                   3     BT=MXDM  EQU    3           MAX NUMBER OF DIMENSIONS IN ONE VARIABLE    F66FCC    277
                                         #FID     ENDIF                                                          F66FCC    278
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    19
                                                                      CKS 
  
                                        **        CKS -  CHECK UNDEFINED STATEMENT NUMBERS.                      END       742
                                        *         ENTRY  (MSN) = LOGICAL SUM OF THE COMPLEMENT OF ALL TS.STAT    END       743
                                        *                ENTRIES.                                                END       744
                                                                                                                 END       745
                                                                                                                 END       746
           414                           CKS      BSS    0           ENTRY...                                    END       747
           414  5110000000 X                      SA1    MSN                                                     END       748
                          20172                   IFBIT  X1,-SNDEF,CKS6                                          END       749
                          5130000000 X            SA3    TS.STN                                                  END       750
           416  5120000000 X                      SA2    TS=STN                                                  END       751
                          6160000022              SB6    P.SYM                                                   END       752
           417  66311                             =B3    2                                                       END       753
                     5253777776                   SA5    X3-1        INITIALIZE FETCH REGISTER                   END       754
                               63420              SB4    X2                                                      END       755
                                                                                                                 END       756
           420  54553                    CKS2     SA5    A5+B3                                                   END       757
                     0440000427 +                 ZR     B4,CKS6     IF TABLE EXHAUSTED                          END       758
                               20572              SBIT   X5,SNDEF                                                END       759
           421  67443                             SB4    B4-B3       DECREMENT TABLE LENGTH                      END       760
                     0335000420 +                 MI     X5,CKS2     IF ENTRY DEFINED                            END       761
           422  0305000420 +                      ZR     X5,CKS2     IF EMPTY ENTRY                              END       762
                          55451                   =A4    A5-1                                                    END       763
                               23564              AX5    X4,B6                                                   END       764
           423  0100000000 X                      RJ     =XLJS       LEFT JUSTIFY STATEMENT LABEL                FEAT155G  262
           424  5160000000 X                      SA6    FILL.                                                   END       766
                          6170000000 X            FATAL  E.MS        ** MISSING STATEMENT NUMBER **              END       767
           426  0400000420 +                      EQ     CKS2                                                    END       768
                                                                                                                 END       769
                                        **        CHECK FOR UNTERMINATED *DO*-S                                  END       770
                                                                                                                 END       771
           427  5110000000 X             CKS6     SA1    NSK                                                     END       772
                          0301000432 +            ZR     X1,CKS65    IF NO NULL STATEMENTS                       END       773
           430  0100000000 X                      RJ     CDD                                                     END       774
           431  5160000000 X                      SA6    FILL.                                                   END       775
                          0400000000 X            EQ     E.MN        FLAG NON-ANSI NULL STATEMENTS               END       776
                                        *         ...                                                            END       777
           432                           CKS65    BSS    0           RETURN FROM E.MN                            END       778
           432  5110000000 X                      SA1    MSF                                                     END       779
                          0311000000 X            NZ     X1,E.M$     IF NO MULTIPLE STATEMENTS OCCURRED          END       780
                                        *         ...                                                            END       781
           433                           CKS67    BSS    0           RETURN FROM E.M$                            END       782
           433  5120000000 X                      SA2    TP=DO                                                   END       783
                          0302000161 +            ZR     X2,CKSX     IF NO HANGING DO-S                          END       784
           434  5130000000 X                      SA3    TS.STN                                                  END       786
                          63420                   SB4    X2                                                      END       787
           435  6130000006                        SB3    L.DOE                                                   END       788
                          76600                   SHRINK A2,0                                                    END       789
           436  5110000000 X                      SA1    TP.DO                                                   FCC0813   101
                          6253537776              SB5    X3-C.STAT-1                                             END       790
           437  5251777776                        SA5    X1-L.DOE+OR.DOSN                                        END       791
                                                                                                                 END       792
                          6160000022              SB6    P.SYM                                                   END       793
           440  54553                    CKS8     SA5    A5+B3                                                   END       794
                     0440000161 +                 ZR     B4,CKSX     IF TABLE EXHAUSTED                          END       795
                               67443              SB4    B4-B3       DECREMENT TABLE LENGTH                      END       796
           441  21522                             AX5    P.DOTAG                                                 END       797
                     73455                        SX4    X5+B5                                                   FCC1603X    6
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    20
                                                                      CKS 
  
                          0334000440 +            MI     X4,CKS8     IF NOT STATEMENT LABEL                      FCC1603X    7
           442  53440                             SA4    X4          FETCH DPC OF STATEMENT NUMBER               FCC1603X    8
                     23564                        AX5    X4,B6                                                   END       799
                          0100000000 X            RJ     =XLJS       LEFT JUSTIFY STATEMENT LABEL                FEAT155G  263
           443  5160000000 X                      SA6    FILL.                                                   END       801
                          6170000000 X            FATAL  E.DO9       ** UNTERMINATED DO LOOP **                  END       802
           445  0400000440 +                      EQ     CKS8                                                    END       803
  
  
  
  
                                        **        DDS -  DUMP *DATA* STATEMENTS.                                 END       805
                                                                                                                 END       806
                                                                                                                 END       807
           446  76600                    DDS9     SHRINK TS=DAT,0                                                END       808
                                                                                                                 END       809
           447  0400400447 +             DDS      SUBR               ENTRY/EXIT...                               END       810
                                                                                                                 END       811
                                         SNAP=D   IFNE   TEST        DUMP DATA TABLE                             END       812
                                                  SA1    CO.SNAP                                                 END       813
                                                  LX1    1RD                                                     END       814
                                                  PL     X1,DAT.ZS   IF NO *DATA* SNAP SELECTED                  END       815
                                                  DUMPT  (TS.DAT)                                                END       816
                                         DAT.ZS   BSS    0                                                       END       817
                                         SNAP=D   ENDIF                                                          END       818
                                                                                                                 END       819
           450  5110000000 X                      SA1    TS=DAT                                                  END       820
                          5120000000 X            SA2    TS.DAT                                                  END       821
           451  13666                             BX6    0                                                       END       822
                     63410                        SB4    X1          LENGTH OF DATA TABLE                        END       823
                          5252777776              SA5    X2-1        FETCH FIRST ENTRY                           END       824
           452  5160000000 X                      SA6    PARCEL                                                  END       825
                                                                                                                 END       826
           453  54551                    DDS.     SA5    A5+B1                                                   END       827
                     0604000446 +                 LE     B4,DDS9     IF TABLE EXHAUSTED                          END       828
                               26175              UX1,B7 X5                                                      END       829
           454  67441                             SB4    B4-B1                                                   END       830
                     0277000455 +                 JP     B7+DDS=     JUMP TO OPERATOR                            END       831
           455                           DDS=     BSS    0                                                       END       832
                                                                                                                 END       833
                                   0     DDS.S    EQU    *-DDS=      OUTPUT SHORT DATUM                          END       834
           455  13222                             BX2    0           INDICATE NO RELOCATION                      END       835
                     0100001567 +                 RJ     STX                                                     END       836
           456  0400000453 +                      EQ     DDS.                                                    END       837
                                                                                                                 END       838
           457                                    BSS    0                                                       END       839
                                   2     DDS.O    EQU    *-DDS=      SET ORG COUNTER                             END       840
           457  43460                             MX4    -L.PWF+1                                                END       841
                     5120000000 X                 SA2    TA.NAM                                                  END       842
                               73610              SX6    X1          ISOLATE BIAS                                END       843
           460  21137                             AX1    P.DTAG+1                                                END       844
                     15414                        BX4    -X4*X1                                                  END       845
                          36324                   IX3    X2+X4                                                   END       846
                               53230              SA2    X3          FETCH ADDRESS WORD                          END       847
           461  43561                             MX5    -L.BLOCK+1                                              END       848
                     73120                        SX1    X2          ISOLATE ADDRESS                             END       849
                          21231                   AX2    P.BLOCK+1                                               END       850
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    21
                                                                      DDS 
  
                               36616              IX6    X1+X6       (ORIGIN) = ADDRESS + BIAS                   END       851
           462  15525                             BX5    -X5*X2      ISOLATE BLOCK ORDINAL                       END       852
                     0305000463 +                 ZR     X5,DDS.O4   IF PROGRAM RELOCATABLE                      END       853
                               73551              =X5    X5+1                                                    END       854
           463  20522                    DDS.O4   LX5    P.BTRL                                                  END       855
                     12756                        BX7    X5+X6                                                   END       856
                          5170000000 X            SA7    ORG                                                     END       857
           464  5170000363 +                      SA7    BT.REP+1    SAVE ORIGIN                                 END       858
                          0100001215 +            RJ     DTX         INITIALIZE TEXT TABLE                       END       859
           465  0400000453 +                      EQ     DDS.                                                    END       860
                                                                                                                 END       861
           466                                    BSS    0                                                       END       862
                                  11     DDS.R    EQU    *-DDS=      OUTPUT REPI TABLE                           END       863
           466  67441                             SB4    B4-B1                                                   END       864
                     76210                        =X2    1                                                       END       865
                          21536                   AX5    P.DTAG                                                  END       866
           467  7211777776                        SX1    X1-1        C                                           END       867
                          20222                   LX2    P.BTRL                                                  END       868
                               73650              SX6    X5          B                                           END       869
           470  20152                             LX1    P.BTRC                                                  END       870
                     54551                        SA5    A5+B1                                                   END       871
                          5140000363 +            SA4    BT.REP+1    S                                           END       872
           471  20633                             LX6    P.BTRI                                                  END       873
                     73350                        SX3    X5          D-S                                         END       874
                          36442                   IX4    X4+X2       ADJUST INTERNAL BLOCK NUMBER TO LOADER      END       875
                                                                           BLOCK ORDINAL                         END       876
                               21536              AX5    P.DTAG                                                  END       877
           472  73050                             SX0    X5          I                                           END       878
                     36334                        IX3    X3+X4       = DESTINATION                               END       879
                          20033                   LX0    P.BTRI                                                  END       880
                               12704              BX7    X0+X4                                                   END       881
           473  36131                             IX1    X3+X1                                                   END       882
                     54740                        SA7    A4                                                      END       883
                          12616                   BX6    X1+X6                                                   END       884
                               54641              SA6    A4+B1                                                   END       885
           474  0100001215 +                      RJ     DTX         FLUSH ANY PARTIAL TEXT TABLE                END       886
           475  6160000362 +                      WLGO   BT.REP,3                                                END       887
           477  0400000453 +                      EQ     DDS.                                                    END       888
                                                                                                                 END       889
           500                                    BSS    0                                                       END       890
                                  23     DDS.W    EQU    *-DDS=      OUTPUT DATA WORD(S)                         END       891
           500  63711                             SB7    X1+B1       (B7) = WORD COUNT                           END       892
                     67447                        SB4    B4-B7       DECREMENT TABLE LENGTH                      END       893
                          10011                   BX0    X1                                                      END       894
                                                                                                                 END       895
           501  54551                    DDS.W1   SA5    A5+B1                                                   END       896
                     13222                        BX2    0                                                       END       897
                          7200777776              =X0    X0-1                                                    FCC0635     5
           502  22105                             LX1    X5                                                      END       899
                     0100001567 +                 RJ     STX         OUTPUT A WORD                               END       900
           503  0320000501 +                      PL     X0,DDS.W1   IF MORE WORDS TO DO                         END       901
                          0400000453 +            EQ     DDS.                                                    END       902
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    22
                                                                      GCL 
  
                                        **        GCL -  GET COMMON LENGTHS                                      FCC0709    16
                                        *                                                                        FCC0709    17
                                        *         THIS ROUTINE DETERMINES SIZE(S) OF SCM RESIDENT COMMON BLOCKS  FCC0709    18
                                        *                                                                        FCC0709    19
                                        *         EXIT   (X6) = TOTAL SIZE OF LOCAL COMMON                       FCC0709    20
                                        *                                                                        FCC0709    21
                                                                                                                 FCC0709    22
           504  0400400504 +             GCL      SUBR                                                           FCC0709    23
           505  5120000000 X                      SA2    TS=BLK                                                  FCC0709    24
                          76600                   =X6    0                                                       FCC0709    25
           506  7222777775                        SX2    X2-2                                                    FCC0709    26
                          5110000000 X            SA1    TS.BLK                                                  FCC0709    27
           507  0302000504 +                      ZR     X2,EXIT.    IF NO COMMON BLOCKS                         FCC0709    28
                          66311                   =B3    2                                                       FCC0709    29
                               63720              SB7    X2                                                      FCC0709    30
           510  53413                             SA4    X1+B3       INITIALIZE                                  FCC0709    31
                     43044                        MX0    -L.BLEN                                                 FCC0709    32
                          43772                   MX7    -L.BLVL                                                 FCC0709    33
           511  54541                    GCL1     =A5    A4+1        BLOCK LENGTH - LEVEL WORD                   FCC0709    34
                     6133000002                   SB3    B3+2                                                    FCC0709    35
                               15350              BX3    -X0*X5      ISOLATE BLOCK LENGTH                        FCC0709    36
           512  21546                             AX5    P.BLVL                                                  FCC0709    37
                     54451                        =A4    A5+1                                                    FCC0709    38
                          15557                   BX5    -X7*X5      ISOLATE BLOCK LEVEL                         FCC0709    39
           513  6255777774                        SB5    X5-3                                                    FCC0709    40
                          0450000515 +            ZR     B5,GCL3     IF LEVEL 3                                  FCC0709    41
                                                                                                                 FCC0709    42
                                         .76      IFEQ   .CPU,76                                                 FCC0709    43
                                                  SB5    X5-2                                                    FCC0709    44
                                                  ZR     B5,GCL3     IF LEVEL 2                                  FCC0709    45
                                         .76      ENDIF                                                          FCC0709    46
                                                                                                                 FCC0709    47
           514  36663                             IX6    X6+X3                                                   FCC0709    48
           515  0673000511 +             GCL3     LE     B3,B7,GCL1  IF MORE BLOCKS                              FCC0709    49
                          0400000504 +            EQ     EXIT.                                                   FCC0709    50
  
  
  
  
                                        **        DFD -  DUMP 5700/5600 TABLES                                   F66FCC    280
                                        *         DUMPS STATEMENT/LINE NUMBER (5700) AND LOADER SYMBOL (5600)    F66FCC    281
                                        *         TABLES TO BINARY.                                              F66FCC    282
                                        *                                                                        F66FCC    283
                                        *         5700 TABLES                                                    F66FCC    284
                                        *                                                                        F66FCC    285
                                        *         THE INFORMATION FOR 5700 TABLES EXISTS IN T.LNT IN CORRECT     F66FCC    286
                                        *         FORMAT.  IT ONLY REMAINS TO OUTPUT THE INFORMATION TO LGO.     F66FCC    287
                                        *         5700 TABLES ARE GENERATED BY DETERMINING FIRST IF ALL THE      F66FCC    288
                                        *         INFORMATION IN T.LNT WILL FIT INTO ONE TABLE (LE 7777B WORDS). F66FCC    289
                                        *         IF SO, ONE 5700 TABLE CONTAINING ALL THE INFORMATION WILL      F66FCC    290
                                        *         BE BUILT.  IF NOT, AS MANY 5700 TABLES OF MAXIMUM SIZE (7777B) F66FCC    291
                                        *         WILL BE BUILT AS NECESSARY, UNTIL ALL INFORMATION IS           F66FCC    292
                                        *         PROCESSED.                                                     F66FCC    293
                                        *         FORMATS OF 5700 TABLE ENTRIES ARE...                           F66FCC    294
                                        *                                                                        F66FCC    295
                                        *         HEADER WORD                                                    F66FCC    296
                                        *                12/5700,12/WORD COUNT,12/2,24/0                         F66FCC    297
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    23
                                                                      DFD 
  
                                        *         EACH ENTRY                                                     F66FCC    298
                                        *                17/STATEMENT LABEL,7/0,18/LINE NO,18/FWA OBJECT CODE    F66FCC    299
                                        *                                                                        F66FCC    300
                                        *         5700 TABLES ARE GENERATED USING...                             F66FCC    301
                                        *                1. BT.STTX - AN OUTPUT BUFFER                           F66FCC    302
                                        *                2. T.LNT - AN INPUT BUFFER                              F66FCC    303
                                        *                3. T=LNT - LENGTH OF INPUT                              F66FCC    304
                                        *         THE FOLLOWING COUNTERS ARE UTILIZED IN CONTROLLING THE LOOP    F66FCC    305
                                        *         WHICH GENERATES 5700 TABLES...                                 F66FCC    306
                                        *                1. BT.ST77 - THE SIZE OF THE CURRENT 5700 TABLE BEING   F66FCC    307
                                        *                   GENERATED (MAX IS 7777B PER TABLE).                  F66FCC    308
                                        *                2. B4 - WORD COUNT (WC) FOR OUTPUT BUFFER CURRENTLY     F66FCC    309
                                        *                        BEING BUILT (MAX IS BT.TXTL).                   F66FCC    310
                                        *                3. T=LNT - THE AMOUNT OF INPUT LEFT TO PROCESS.  T=LNT  F66FCC    311
                                        *                   MAY INITIALLY BE .GT. 7777B, WHICH WOULD REQUIRE     F66FCC    312
                                        *                   GENERATION OF MORE THAN ONE 5700 TABLE.              F66FCC    313
                                        *                                                                        F66FCC    314
                                        *         5600 TABLES                                                    F66FCC    315
                                        *                                                                        F66FCC    316
                                        *         5600 TABLES WILL BE NO LARGER THAN THE USER OUTPUT BUFFER IN   F66FCC    317
                                        *         SIZE SINCE THE NUMBER OF PROGRAMMER VARIABLES TO BE PROCESSED  F66FCC    318
                                        *         AND THE NUMBER OF TABLE ENTRIES PER VARIABLE ARE NOT KNOWN     F66FCC    319
                                        *         SOON ENOUGH FOR EFFICIENT PREDICTION.                          F66FCC    320
                                        *         THERE WILL BE AT LEAST TWO WORDS PER ENTRY AND POSSIBLY 3.     F66FCC    321
                                        *         THE FORMATS FOR WORDS 1,2,3 ARE...                             F66FCC    322
                                        *                                                                        F66FCC    323
                                        *         HEADER WORD                                                    F66FCC    324
                                        *                12/5600,12/WORD COUNT,12/2,1/F,23/SAVEA1                F66FCC    325
                                        *                                                                        F66FCC    326
                                        *                F      = 0, NOT FINAL SYMBOL TABLE                      F66FCC    327
                                        *                       = 1, IF FINAL SYMBOL TABLE                       F66FCC    328
                                        *                SAVEA1 = SUBPROGRAM REL. ADDR. OF WORD IN WHICH         F66FCC    329
                                        *                         SUBPROGRAM INITIALIZATION WILL SAVE REG A1.    F66FCC    330
                                        *                                                                        F66FCC    331
                                        *         WORD 1                                                         F66FCC    332
                                        *                42/0LNAME,9/RB,9/L                                      FCCA403    10
                                        *                                                                        F66FCC    334
                                        *                RB = RELOCATION BASE DESIGNATOR.  SEE SECTION 8 OF      F66FCC    335
                                        *                     LOADER REFERENCE MANUAL.                           F66FCC    336
                                        *                L = NUMBER OF ITEMS IN THIS ENTRY (L .GE. 2).           F66FCC    337
                                        *                                                                        F66FCC    338
                                        *         WORD 2                                                         F66FCC    339
                                        *                1/LCM,1/FP,2/0,5/TYPE,5/D,16,LEN,2/0,4/BCP,24/RA        F66FCC    340
                                        *                                                                        F66FCC    341
                                        *                LCM = 1 IF ECS/LCM RESIDENT                             F66FCC    342
                                        *                FP  = 1 IF FORMAL PARAMETER AND                         F66FCC    343
                                        *                      RA = FPNO, THE FORMAL PARAMETER NUMBER.           F66FCC    344
                                        *                TYPE= 1 IF LOGICAL                                      F66FCC    345
                                        *                      2 IF INTEGER                                      F66FCC    346
                                        *                      3 IF REAL                                         F66FCC    347
                                        *                      4 IF DOUBLE                                       F66FCC    348
                                        *                      5 IF COMPLEX                                      F66FCC    349
                                        *                      6 IF BOOLEAN                                      F66FCC    350
                                        *                      7 IF CHARACTER                                    F66FCC    351
                                        *                D   = NO OF DIMENSIONS                                  F66FCC    352
                                        *                LFN = LENGTH OF CHARACTERS OF A CHARACTER ITEM,         F66FCC    353
                                        *                      0 FOR OTHER ITEMS                                 F66FCC    354
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    24
                                                                      DFD 
  
                                        *                BCP = BEGIN CHAR POSITION FOR CHARACTER ITEM            F66FCC    355
                                        *                RA  = RELATIVE ADDRESS - SEE ALSO FP.                   F66FCC    356
                                        *                                                                        F66FCC    357
                                        *         WORD 3 (IF D .NE. 0).  DIMENSION DESCRIPTORS                   F66FCC    358
                                        *                1/LCM,1/FP,1/C,1/LB,23/0,9/RB,24/RA                     F66FCC    359
                                        *                                                                        F66FCC    360
                                        *                LCM AND FP ARE AS ABOVE BUT APPLY TO THE SUBSCRIPT IF   F66FCC    361
                                        *                IT IS A VARIABLE.                                       F66FCC    362
                                        *                                                                        F66FCC    363
                                        *                C   = 1 IF BOUND (OF DIMENSION) IS CONSTANT             F66FCC    364
                                        *                      0 IF VARIABLE DIMENSION                           F66FCC    365
                                        *                RB  = 0 IF C = 1                                        F66FCC    366
                                        *                    = RELOCATION BASE DESIGNATOR IF C = 0.              F66FCC    367
                                        *                RA  = UPPER BOUND IF C = 1                              F66FCC    368
                                        *                    = FORMAL PARAMETER NO IF C = 0.                     F66FCC    369
                                        *                                                                        F66FCC    370
                                        *         IF NON-UNITY LOWER BOUNDS EXISTED, AND THEY DONT HERE YET,     F66FCC    371
                                        *         THERE WOULD BE A FOURTH WORD THAT LOOKS LIKE THE THIRD WORD    F66FCC    372
                                        *         WHICH DESCRIBES THE NON-UNITY LOWER BOUND IN A LIKE MANNER.    F66FCC    373
                                        *                                                                        F66FCC    374
                                        *         USES   ALL                                                     F66FCC    375
                                                                                                                 F66FCC    376
                                                                                                                 F66FCC    377
                                         #FID     IFNE   .FID,0                                                  F66FCC    378
                                                                                                                 F66FCC    379
           516                     3     DFDSV    BSS    3           DIM DESCRIPTORS SAVED HERE TEMPORARILY      F66FCC    380
                                                                                                                 F66FCC    381
           521  13666                    DFDX     BX6    0                                                       F66FCC    382
                     5160000365 +                 SA6    BT.TXWC     (=BT.SYWC) CLEAR FOR NEXT USE OF DTX        F66FCC    383
                                                                                                                 F66FCC    384
           522  0400400522 +             DFD      SUBR   -                                                       F66FCC    385
           523  5110000000 X                      SA1    =XCO.ID     DEBUG ON FLAG                               F66FCC    386
                          0301000522 +            ZR     X1,EXIT.    IF DEBUG NOT ON                             F66FCC    387
                                                                                                                 F66FCC    388
                                        **        PROCESS LINE NUMBER TABLE.                                     F66FCC    389
                                        *         FIRST SEE HOW MUCH THERE IS TO PROCESS AND DETERMINE THE       F66FCC    390
                                        *         SIZE OF THE FIRST 5700 TABLE TO MAKE.                          F66FCC    391
                                                                                                                 F66FCC    392
           524  5120000000 X             DFD21    SA2    =XT=LNT                                                 F66FCC    393
                          0302000554 +            ZR     X2,DFD40    IF NOTHING IN T.LNT, CHECK 5600 TABLE       F66FCC    394
           525  7160000020                        SX6    BT.TXTL     LENGTH OF WORKING BUFFER                    F66FCC    395
                          6222770000              SB2    X2-BT=MXWC                                              F66FCC    396
           526  7140007777                        SX4    BT=MXWC                                                 F66FCC    397
                          0620000530 +            GE     B2,DFD23    IF T=LNT .GE. BT=MXWC (7777B)               F66FCC    398
           527  22402                             LX4    X2                                                      F66FCC    399
                                                                                                                 F66FCC    400
                                        *         CONSTRUCT A HEADER WORD FOR THE 5700 TABLE.                    F66FCC    401
                                                                                                                 F66FCC    402
           530  10744                    DFD23    BX7    X4                                                      F66FCC    403
                     5160000365 +                 SA6    BT.STWC     MAX WORKING BUFFER SIZE                     F66FCC    404
                               20444              LX4    P.BTWC                                                  F66FCC    405
           531  7130005700                        SX3    BT=LSTN                                                 F66FCC    406
                          76511                   =X5    2                                                       F66FCC    407
                               20360              LX3    P.BTCN                                                  F66FCC    408
           532  12634                             BX6    X3+X4       5700 .AND. WORD COUNT                       F66FCC    409
                     5170000366 +                 SA7    BT.ST77     SIZE OF NEXT 5700 TABLE                     F66FCC    410
                               20530              LX5    P.BTWC-L.BTWC                                           F66FCC    411
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    25
                                                                      DFD 
  
           533  12665                             BX6    X6+X5                                                   F66FCC    412
                     5160000367 +                 SA6    BT.STTX     HEADER = 12/5700,12/WRD CNT,12/2,24/0       F66FCC    413
                               66410              =B4    1           WC = 1                                      F66FCC    414
                                                                                                                 F66FCC    415
                                        *         NOW PACK UP AN OUTPUT BUFFER.                                  F66FCC    416
                                                                                                                 F66FCC    417
           534  6222777757               DFD25    SB2    X2-BT.TXTL                                              F66FCC    418
                          0702000536 +            GT     B2,DFD27    IF T=LNT .GT. SIZE OF WORKING BUFFER        F66FCC    419
           535  73721                             =X7    X2+B1                                                   F66FCC    420
                     5170000365 +                 SA7    BT.STWC     WORKING BUFFER SIZE IF T=LNT .LT. BT.TXTL   F66FCC    421
           536  5110000365 +             DFD27    SA1    BT.STWC                                                 F66FCC    422
                          63710                   =B7    X1                                                      F66FCC    423
           537  5110000000 X                      SA1    =XT.LNT                                                 F66FCC    424
                          5120000000 X            SA2    =XT=LNT                                                 F66FCC    425
           540  5130000367 +                      SA3    BT.STTX     FWA OUTPUT BUFFER                           F66FCC    426
                          5140000366 +            SA4    BT.ST77     SIZE OF THIS 5700 TABLE                     F66FCC    427
           541  5251777776                        SA5    X1-1        INITIALIZE FETCH                            F66FCC    428
           542  54551                    DFD29    SA5    A5+B1       FETCH ELEMENT                               F66FCC    429
                     10655                        BX6    X5                                                      F66FCC    430
                          54634                   SA6    A3+B4       ELEMENT TO OUTPUT BUFFER                    F66FCC    431
                               66441              =B4    B4+1        WC = WC + 1                                 F66FCC    432
           543  7222777776                        =X2    X2-1        T=LNT = T=LNT - 1                           F66FCC    433
                          7244777776              =X4    X4-1        LEFT TO GO FOR THIS 5700 TABLE              F66FCC    434
           544  0304000546 +                      ZR     X4,DFD31    IF THIS 5700 TABLE IS FULL                  F66FCC    435
                          67247                   =B2    B4-B7                                                   F66FCC    436
           545  0720000542 +                      LT     B2,DFD29    IF WORKING BUFFER NOT FULL                  F66FCC    437
                                                                                                                 F66FCC    438
                                        *         UPDATE TABLES AND COUNTERS (T.LNT,T=LNT,BT.ST77).              F66FCC    439
                                                                                                                 F66FCC    440
           546  74751                    DFD31    SX7    A5+B1                                                   F66FCC    441
                     22602                        LX6    X2                                                      F66FCC    442
                          54710                   SA7    A1          UPDATE T.LNT                                F66FCC    443
                               54620              SA6    A2          UPDATE T=LNT                                F66FCC    444
           547  10744                             BX7    X4                                                      F66FCC    445
                     54740                        SA7    A4          LEFT TO GO FOR THIS 5700 TABLE              F66FCC    446
                          6160000367 +            WLGO   BT.STTX,B4  OUTPUT TO LGO                               F66FCC    447
                                                                                                                 F66FCC    448
           551  66400                             =B4    0           WC = 0                                      F66FCC    449
                     5110000366 +                 SA1    BT.ST77                                                 F66FCC    450
           552  0301000524 +                      ZR     X1,DFD21    IF COMPLETED ONE TABLE                      F66FCC    451
                          5120000000 X            SA2    =XT=LNT                                                 F66FCC    452
           553  0400000534 +                      EQ     DFD25                                                   F66FCC    453
                                                                                                                 F66FCC    454
                                        **        PROCESS LOADER SYMBOL TABLE.                                   F66FCC    455
                                                                                                                 F66FCC    456
           554                           DFD40    BSS    0                                                       F66FCC    457
           554  5110000000 X                      SA1    TS=SYM                                                  F66FCC    458
                          10611                   BX6    X1                                                      F66FCC    459
           555  5160000366 +                      SA6    BT.SYMB     SAVE TS=SYM.  CANNOT ALTER TS=SYM.          F66FCC    460
                          5130000000 X            SA3    TS.SYM                                                  F66FCC    461
           556  76710                             =X7    1                                                       F66FCC    462
                     5253777776                   SA5    X3-1        INITIALIZE FOR TABLE FETCH                  F66FCC    463
           557  5170000365 +                      SA7    BT.SYWC     INITIALIZE WORD COUNT                       F66FCC    464
                                                                                                                 F66FCC    465
                                        *         FIND A PROGRAMMER DEFINED VARIABLE TO PROCESS.                 F66FCC    466
                                                                                                                 F66FCC    467
           560  5130000366 +             DFD42    SA3    BT.SYMB     BT.SYMB # TS=SYM                            F66FCC    468
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    26
                                                                      DFD 
  
                          0303000653 +            ZR     X3,DFD88    SYMBOL TABLE PROCESSING COMPLETE            F66FCC    469
           561  5055000002                        SA5    A5+2        (X5) = 2ND ELEMENT OF TS.SYM ENTRY          F66FCC    470
                          7273777775              =X7    X3-2                                                    F66FCC    471
           562  5170000366 +                      SA7    BT.SYMB     DECREMENT NO OF WORDS IN TS.SYM             F66FCC    472
                          0305000560 +            ZR     X5,DFD42    IF A ZERO ENTRY                             F66FCC    473
           563  20554                             LX5    -P.EST      SHIFT TYP BIT TO SIGN BIT                   FCCA403    11
                     0335000566 +                 MI     X5,DFD43    IF TYPE VARIABLE                            FCCA403    12
                               20503              LX5    P.EST-P.NVAR SHIFT VAR BIT TO SIGN BIT                  FCCA403    13
           564  0325000560 +                      PL     X5,DFD42    NOT A PROGRAMMER VARIABLE                   FCCA403    14
                          20515                   LX5    P.NVAR      RESTORE X5                                  FCCA403    15
           565  0400000567 +                      EQ     DFD43A                                                  FCCA403    16
           566  20520                    DFD43    LX5    P.EST       RESTORE X5                                  FCCA403    17
           567  76200                    DFD43A   =X2    0           INITIALIZE WORD 2                           FCCA403    18
                                                                                                                 F66FCC    478
                                        *         BUILD 1ST AND 2ND WORDS OF 5600 TABLE.  THEY WILL BE           F66FCC    479
                                        *         ACCUMULATED IN REGS X1 AND X2, RESPECTIVELY.                   F66FCC    480
                                                                                                                 F66FCC    481
                     66411                        =B4    2           (B4) = WORD COUNT (WC)                      F66FCC    482
                          55451                   SA4    A5-B1       GET 1ST ELEMENT OF ENTRY IN TS.SYM          F66FCC    483
                               22605              LX6    X5          SAVE X5                                     F66FCC    484
           570  43052                             MX0    L.SYM                                                   F66FCC    485
                     11104                        BX1    X0*X4       WORD 1 = 42/0LNAME,18/0                     F66FCC    486
                                                                                                                 F66FCC    487
                                        *         SEE IF THIS VARIABLE IS A FORMAL PARAMETER.                    F66FCC    488
                                                                                                                 F66FCC    489
                          20567                   LX5    -P.ENT      FORMAL PARAMETER BIT TO SIGN BIT            F66FCC    490
           571  0325000574 +                      PL     X5,DFD44    IF NO FORMAL PARAMETER (FP)                 F66FCC    491
                          20557                   LX5    P.ENT-P.FPNO                                            F66FCC    492
                               43066              MX0    -L.FPNO                                                 F66FCC    493
           572  76210                             =X2    1                                                       F66FCC    494
                     15350                        BX3    -X0*X5      EXTRACT FORMAL PARAMETER NO (FPNO)          F66FCC    495
                          20272                   LX2    P.BTFP                                                  F66FCC    496
           573  7233777776                        =X3    X3-1                                                    F66FCC    497
                          36223                   IX2    X2+X3       WORD 2 = 1/0,1/FP,34/0,24/FPNO              F66FCC    498
                                                                                                                 F66FCC    499
                                        *         CHECK FOR LCM/ECS, THIS VARIABLE.                              F66FCC    500
                                                                                                                 F66FCC    501
           574  10566                    DFD44    BX5    X6                                                      F66FCC    502
                     20564                        LX5    -P.ARY      LEVEL BIT TO SIGN BIT                       F66FCC    503
                          0325000600 +            PL     X5,DFD46    IF NO LEVEL                                 F66FCC    504
           575  20537                             LX5    P.ARY-P.LEVN                                            F66FCC    505
                     43072                        MX0    -L.LEVN                                                 F66FCC    506
                          15350                   BX3    -X0*X5      EXTRACT LEVEL NO                            F66FCC    507
           576  6233777774                        =B3    X3-3                                                    F66FCC    508
                                         .76      IFEQ   .CPU,76                                                 F66FCC    509
                                                  =B3    B3+B1                                                   F66FCC    510
                                         .76      ENDIF                                                          F66FCC    511
                          0730000600 +            LT     B3,DFD46    IF NOT LEVEL 2 OR 3 (LCM)                   F66FCC    512
           577  76010                             =X0    B1                                                      F66FCC    513
                     20073                        LX0    P.BTLM                                                  F66FCC    514
                          12220                   BX2    X2+X0       WORD 2 = 1/LCM,1/..,34/0,24/....            F66FCC    515
                                                                                                                 F66FCC    516
                                        *         EXTRACT THE MODE, OR TYPE FOR THIS VARIABLE.                   F66FCC    517
                                                                                                                 F66FCC    518
           600  22506                    DFD46    LX5    X6                                                      F66FCC    519
                     43071                        MX0    -L.MODE                                                 F66FCC    520
                          15350                   BX3    -X0*X5      EXTRACT MODE                                F66FCC    521
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    27
                                                                      DFD 
  
                               20363              LX3    P.BTTP                                                  F66FCC    522
           601  12223                             BX2    X2+X3       WORD 2 = 1/...,1/..,2/0,5/TYPE,27/0,24/..   F66FCC    523
                                                                                                                 F66FCC    524
                                        *         IF THIS VARIABLE ISNT A FORMAL PARAMETER, GET THE RELATIVE     F66FCC    525
                                        *         ADDRESS OF IT.  ALSO CALCULATE *RB*, THE VALUE OF WHICH        F66FCC    526
                                        *         DEPENDS WHETHER THE VARIABLE IS IN COMMON.                     F66FCC    527
                                                                                                                 F66FCC    528
                     20567                        LX5    -P.ENT      FP BIT TO SIGN BIT                          F66FCC    529
                          76300                   SX3    B0          RELOCATION BASE DESIGNATOR (RB) = 0         F66FCC    530
           602  0335000611 +                      MI     X5,DFD48    IF FP BIT IS SET                            F66FCC    531
                          20527                   LX5    P.ENT-P.TAG                                             F66FCC    532
                               43052              MX0    -L.TAG                                                  F66FCC    533
           603  15350                             BX3    -X0*X5      EXTRACT TAG FIELD                           F66FCC    534
                     7273577777                   =X7    X3-C.SYM    EXTRACT ORDINAL                             F66FCC    535
           604  5130000000 X                      SA3    TA.NAM                                                  F66FCC    536
                          21701                   AX7    1           1/2 TS.SYM INDEX                            F66FCC    537
                               63370              =B3    X7          = INDEX INTO TA.NAM                         F66FCC    538
           605  53433                             SA4    X3+B3       RELATIVE ADDR ENTRY FOR THIS VARIABLE       F66FCC    539
                     43044                        MX0    -L.RELADD                                               F66FCC    540
                          15740                   BX7    -X0*X4      EXTRACT RELATIVE ADDRESS                    F66FCC    541
                               12227              BX2    X2+X7       WORD 2 = 1/..,1/..,2/0,5/TYPE,27/0,24/RELAD F66FCC    542
           606  20536                             LX5    P.TAG-P.VAR  COMMON BIT TO SIGN BIT                     F66FCC    543
                     76310                        =X3    B1          RB = 1                                      F66FCC    544
                          0325000611 +            PL     X5,DFD48    IF NOT IN COMMON                            F66FCC    545
           607  43060                             MX0    -L.BLOCK                                                F66FCC    546
                     20444                        LX4    -P.BLOCK                                                F66FCC    547
                          15740                   BX7    -X0*X4      EXTRACT BLOCK ORDINAL                       F66FCC    548
                               21701              AX7    1           HALVE IT                                    F66FCC    549
           610  7237000002                        =X3    X7+2        RB = 2+N = ITH COMMON BLOCK IN PIDL         F66FCC    550
           611  20311                    DFD48    LX3    P.BTBI                                                  F66FCC    551
                     12113                        BX1    X1+X3       WORD 1 = 42/....,9/RB,9/..                  F66FCC    552
                          10566                   BX5    X6                                                      F66FCC    553
                               20563              LX5    -P.NLST     ARRAY BIT TO SIGN BIT                       F66FCC    554
           612  0325000640 +                      PL     X5,DFD80    IF NOT AN ARRAY                             F66FCC    555
                                                                                                                 F66FCC    556
                                        *         IF THE VARIABLE IS AN ARRAY, PROCESS ITS DIMENSION             F66FCC    557
                                        *         INFORMATION.                                                   F66FCC    558
                                                                                                                 F66FCC    559
                          20555                   LX5    P.NLST-P.PNT                                            F66FCC    560
                               43057              MX0    -L.PNT                                                  F66FCC    561
           613  15750                             BX7    -X0*X5      EXTRACT INDEX TO TP.DIM ENTRY               F66FCC    562
                     5130000000 X                 SA3    =XTP.CIDM                                               F66FCC    563
                               63370              =B3    X7                                                      F66FCC    564
           614  53433                             SA4    X3+B3       GET TP.DIM ENTRY                            F66FCC    565
                     43006                        MX0    L.NDIM                                                  F66FCC    566
                          11704                   BX7    X0*X4       EXTRACT NO OF DIMS                          F66FCC    567
                               20764              LX7    P.BTDM-P.NDIM                                           F66FCC    568
           615  12227                             BX2    X2+X7       WORD 2 = 1/.,1/.,2/0,5/.,5/DIMS,22/0,24/..  F66FCC    569
                     20716                        LX7    -P.BTDM                                                 F66FCC    570
                          63270                   =B2    X7          SAVE NO. OF DIMS COUNT                      F66FCC    571
                                                                                                                 F66FCC    572
                                        *         NOW DO 3RD WORD FOR DIMENSIONED VARIABLE.                      F66FCC    573
                                                                                                                 F66FCC    574
                               10744              BX7    X4                                                      F66FCC    575
           616  20736                             LX7    59-P.VDIM   SHIFT VDIM BIT TO SIGN BIT                  F66FCC    576
                     66720                        SB7    B2                                                      F66FCC    577
                          54441                   =A4    A4+B1                                                   F66FCC    578
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    28
                                                                      DFD 
  
           617  0337000623 +             DFD50    MI     X7,DFD54    IF VARIABLY DIMENSIONED                     F66FCC    579
                          20436                   LX4    P.DIM                                                   F66FCC    580
                               43047              MX0    3-L.DIM                                                 F66FCC    581
           620  15340                             BX3    -X0*X4      WORD 3 = 36/0,24/UPPER BOUND                F66FCC    582
                     76710                        SX7    B1                                                      F66FCC    583
                          20771                   LX7    P.BTDC                                                  F66FCC    584
                               12337              BX3    X3+X7       WORD 3 = 1/0,1,0,1/CONS,1/0,32/0,24/...     F66FCC    585
           621  10733                    DFD52    BX7    X3                                                      F66FCC    586
                     5174000514 +                 SA7    DFDSV-2+B4  DIM DESCRIPTORS SAVED HERE TEMPORARILY      F66FCC    587
                               67771              =B7    B7-1                                                    F66FCC    588
           622  66441                             =B4    B4+1                                                    F66FCC    589
                     0470000640 +                 ZR     B7,DFD80    IF DONE                                     F66FCC    590
                                                                                                                 F66FCC    591
                                        *         VARIABLY DIMENSIONED.                                          F66FCC    592
                                                                                                                 F66FCC    593
           623  7174000001               DFD54    SX7    B4+1        NEXT DIM POSITION                           F66FCC    594
                          43073                   MX0    -1                                                      F66FCC    595
                               15770              BX7    -X0*X7                                                  F66FCC    596
           624  54440                             SA4    A4                                                      F66FCC    597
                     0317000626 +                 NZ     X7,DFD58    IF 0DD DIMENSION POSITION                   F66FCC    598
                               54441              SA4    A4+B1       GET NEXT ENTRY                              F66FCC    599
           625  20436                             LX4    P.DIM       DIM POSITION IS EVEN SHIFT                  F66FCC    600
                                        *                            INFORMATION TO UPPER 30                     F66FCC    601
           626  10744                    DFD58    BX7    X4                                                      F66FCC    602
                     20706                        LX7    L.NDIM      VDIM BIT THIS ENTRY                         F66FCC    603
                          0327000617 +            PL     X7,DFD50    THIS ONE IS A CONSTANT                      F66FCC    604
           627  20436                             LX4    P.DIM       SHIFT INFO TO LOWER 30                      F66FCC    605
                     10344                        BX3    X4                                                      F66FCC    606
                          43057                   MX0    -L.PWF                                                  F66FCC    607
                               15630              BX6    -X0*X3      EXTRACT INDEX                               F66FCC    608
           630  63660                             =B6    X6          INDEX                                       F66FCC    609
                     5130000000 X                 SA3    TS.SYM                                                  F66FCC    610
                               53336              SA3    X3+B6       GET TS.SYM ENTRY FOR THIS SUBSCRIPT         F66FCC    611
           631  20364                             LX3    -P.ARY      LEVEL BIT TO SIGN BIT                       F66FCC    612
                     76710                        =X7    1           FP BIT                                      F66FCC    613
                          0323000635 +            PL     X3,DFD60    IF NOT ECS/LCM                              F66FCC    614
           632  20337                             LX3    P.ARY-P.LEVN                                            F66FCC    615
                     43072                        MX0    -L.LEVN                                                 F66FCC    616
                          15530                   BX5    -X0*X3      EXTRACT LEVEL NO                            F66FCC    617
           633  6235777774                        =B3    X5-3                                                    F66FCC    618
                                         .76      IFEQ   .CPU,76                                                 F66FCC    619
                                                  =B3    B3+B1                                                   F66FCC    620
                                         .76      ENDIF                                                          F66FCC    621
                          0730000635 +            LT     B3,DFD60                                                F66FCC    622
           634  7170000003                        =X7    3           LCM,FP BITS                                 F66FCC    623
           635  20772                    DFD60    LX7    P.BTFP                                                  F66FCC    624
                     20362                        LX3    P.ARY-P.FPNO                                            F66FCC    625
                          43066                   MX0    -L.FPNO                                                 F66FCC    626
                               15530              BX5    -X0*X3                                                  F66FCC    627
           636  7255777776                        =X5    X5-1                                                    F66FCC    628
                          12375                   BX3    X7+X5       WORD 3 = 1/LCM,1/FP,34/0,24/FPNO            F66FCC    629
           637  0400000621 +                      EQ     DFD52       SAVE CURRENT DIM DESCRIPTOR TEMPORARILY     F66FCC    630
                                                                                                                 F66FCC    631
                                        *         THE 2 OR MORE WORDS ARE BUILT - FINISH OFF WORD 1 AND          F66FCC    632
                                        *         STUFF IT IN THE OUTPUT BUFFER.                                 F66FCC    633
                                                                                                                 F66FCC    634
           640  76540                    DFD80    =X5    B4                                                      F66FCC    635
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    29
                                                                      DFD 
  
                     12615                        BX6    X1+X5       WORD 1 = 42/...,9/..,9/NO WORDS THIS ENTRY  F66FCC    636
                          5110000365 +            SA1    BT.SYWC                                                 F66FCC    637
           641  36715                             IX7    X1+X5                                                   F66FCC    638
                     54710                        SA7    A1          WC = WC + NO WORDS THIS ENTRY               F66FCC    639
                          63210                   =B2    X1          = INDEX TO OUTPUT BUFFER                    F66FCC    640
                               22702              LX7    X2                                                      F66FCC    641
           642  5162000367 +                      SA6    B2+BT.SYTX  WORD 1 TO OUTPUT BUFFER                     F66FCC    642
                          54761                   SA7    A6+B1       WORD 2 TO OUTPUT BUFFER                     F66FCC    643
           643  6144777775                        =B4    B4-2                                                    F66FCC    644
                          0440000650 +            EQ     B4,B0,DFD86  IF NO MORE WORDS THIS ITERATION            F66FCC    645
                                                                                                                 F66FCC    646
                                        *         STORE THE DIMENSION WORDS INTO THE OUTPUT BUFFER.              F66FCC    647
                                                                                                                 F66FCC    648
           644  5110000516 +             DFD82    SA1    DFDSV       DIM DESCRIPTORS SAVED HERE TEMPORARILY      F66FCC    649
                          67441                   =B4    B4-1                                                    F66FCC    650
           645  10711                    DFD83    BX7    X1                                                      F66FCC    651
                     54771                        SA7    A7+B1       DIM DESCRIPTORS TO OUTPUT BUFFER            F66FCC    652
                          67441                   =B4    B4-1                                                    F66FCC    653
           646  0740000650 +                      MI     B4,DFD86    IF DONE                                     F66FCC    654
                          54111                   SA1    A1+B1                                                   F66FCC    655
           647  0400000645 +                      EQ     DFD83                                                   F66FCC    656
                                                                                                                 F66FCC    657
                                        *         MAKE UP THE HEADER WORD AND OUTPUT THIS BUFFER IF THERE ISNT   F66FCC    658
                                        *         ROOM FOR 5 MORE THE NEXT TIME AROUND.                          F66FCC    659
                                                                                                                 F66FCC    660
           650  5110000365 +             DFD86    SA1    BT.SYWC                                                 F66FCC    661
                          7120000020              SX2    BT.TXTL                                                 F66FCC    662
           651  37321                             IX3    X2-X1       TOTAL ALLOWED - WC                          FCCA403    19
                     7243777772                   SX4    X3-BT=MXDM-2 X4=MAX NO OF WDS/ENTRY                     F66FCC    665
           652  0324000560 +                      PL     X4,DFD42    IF ROOM FOR AT LEAST *BT=MXDM+2* WDS        F66FCC    666
                                                                                                                 F66FCC    667
                                        *         HERE IF 1. RAN OUT OF SYMBOLS TO PROCESS.                      F66FCC    668
                                        *                 2. WORKING OUTPUT BUFFER IS FULL AND MUST BE EMPTIED.  F66FCC    669
                                                                                                                 FCCA403    20
                                        *         LOOK AHEAD FOR THE NEXT VALID VARIABLE TO PROCESS              FCCA403    21
                                                                                                                 FCCA403    22
           653  5130000366 +             DFD88    SA3    BT.SYMB     (X3) = LENGTH OF SYMBOL TABLE               FCCA403    23
                          0303000662 +            ZR     X3,DFD89    SYMBOL TABLE PROCESSING COMPLETE            FCCA403    24
           654  5055000002                        SA5    A5+2        GET NEXT ELEMENT OF TS.SYM ENTRY            FCCA403    25
                          0305000657 +            ZR     X5,DFD88A   ZERO ENTRY                                  FCCA403    26
           655  20554                             LX5    -P.EST      SHIFT TYP BIT TO SIGN BIT                   FCCA403    27
                     0335000661 +                 MI     X5,DFD88B   IF TYPE VARIABLE                            FCCA403    28
                               20503              LX5    P.EST-P.NVAR SHIFT VAR BIT TO SIGN BIT                  FCCA403    29
           656  0335000661 +                      MI     X5,DFD88B   IF PROGRAMMER VARIABLE                      FCCA403    30
           657  7273777775               DFD88A   =X7    X3-2        DECREMENT NO OF WORDS                       FCCA403    31
                          5170000366 +            SA7    BT.SYMB     UPDATED BT.SYMB                             FCCA403    32
           660  0307000662 +                      ZR     X7,DFD89    SYMBOL TABLE PROCESSING COMPLETE            FCCA403    33
                          0400000653 +            EQ     DFD88                                                   FCCA403    34
           661  5055777775               DFD88B   SA5    A5-2        RESTORE A5                                  FCCA403    35
                                                                                                                 FCCA403    36
                                        *         MAKE A HEADER WORD FOR THIS BUFFER.                            F66FCC    675
                                                                                                                 F66FCC    676
           662  7160005600               DFD89    SX6    BT=LSYM                                                 FCCA403    37
                          5110000365 +            SA1    BT.SYWC                                                 FCCA403    38
           663  63710                             =B7    X1          WORD COUNT INPUT TO *WLGO*                  FCCA403    39
                     7241777776                   =X4    X1-1                                                    FCCA403    40
                               20444              LX4    P.BTWC                                                  F66FCC    678
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    30
                                                                      DFD 
  
           664  20660                             LX6    P.BTCN                                                  F66FCC    679
                     12046                        BX0    X4+X6       = 12/5600,12/WC,36/0                        F66FCC    680
                          76711                   =X7    2                                                       F66FCC    681
                               20730              LX7    P.BTFT                                                  F66FCC    682
           665  12007                             BX0    X0+X7       = 12/5600,12/WC,12/2,24/0                   F66FCC    683
                     5140000366 +                 SA4    BT.SYMB                                                 F66FCC    684
           666  0314000670 +                      NZ     X4,DFD90    IF NOT LAST TABLE TO BE OUTPUT              F66FCC    685
                                                                                                                 F66FCC    686
                                        *         SET THE FINAL BUFFER FLAG ON THIS BUFFER"S HEADER WORD.        F66FCC    687
                                                                                                                 F66FCC    688
                          76610                   =X6    1                                                       F66FCC    689
                               20627              LX6    P.BTFI                                                  F66FCC    690
           667  12006                             BX0    X0+X6       HEADER = 12/5600,12/WC,12/2,1/FINAL,23/0    F66FCC    691
                                                                                                                 F66FCC    692
                                        *         PUT SAVEA1 WORD IN HEADER WORD.                                F66FCC    693
                                                                                                                 F66FCC    694
           670  5110000000 X             DFD90    SA1    =XMOD                                                   FCCA469     7
                          20163                   SBIT   X1,PBLK                                                 FCCA469     8
                               43400              MX4    0           PRESET SAVEA1 IN CASE SUBPROG IS BLOCKDATA  FCCA469     9
           671  0331000673 +                      MI     X1,DFD91    IF  BLOCKDATA   SUB-PROGRAM                 FCCA469    10
                          5110000000 X            SA1    =XTA.PRO                                                FCCA469    11
           672  5241000002                        SA4    X1+CT.TPA1-C.PRO  EXTRACT SAVEA1                        FCCA469    12
           673  12604                    DFD91    BX6    X0+X4       HEADER WORD= 12/5600,12/WC,12/2,1/F,23/SVA1 FCCA469    13
                     5160000367 +                 SA6    BT.SYTX                                                 F66FCC    698
                                                                                                                 F66FCC    699
           674  6160000367 +                      WLGO   BT.SYTX,B7                                              F66FCC    700
           675  5110000366 +             DFD92    SA1    BT.SYMB                                                 F66FCC    701
                          0301000521 +            ZR     X1,DFDX     IF DONE.                                    F66FCC    702
           676  76710                             =X7    1                                                       F66FCC    703
                     5170000365 +                 SA7    BT.SYWC     WC = 1                                      F66FCC    704
           677  0400000560 +                      EQ     DFD42                                                   F66FCC    705
                                                                                                                 F66FCC    706
                                         #FID     ENDIF                                                          F66FCC    707
  
  
  
  
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    31
                                                                      DFT 
  
                                        **        DFT -  DUMP FIRST TABLES FOR LOADER.                           END       904
                                        *                                                                        END       905
                                        *                                                                        END       906
                                        *         THIS ROUTINE PUMPS OUT --                                      END       907
                                        *                                                                        END       908
                                        *         1.  IDNT  (77)  TABLE                                          END       909
                                        *         2.  LDSET (70)  DIRECTIVE      (IF NOT *BLOCKDATA*)            END       910
                                        *         3.  PIDL  (34)  TABLE                                          END       911
                                        *         4.  ENTR  (36)  TABLE          (IF NOT *BLOCKDATA*)            END       912
                                        *         5.  TRACEBACK WORDS            (IF NOT *BLOCKDATA*)            END       913
                                        *         6.  FIT(S)                     (IF     *PROGRAM*  )            F162FTNA  505
                                        *         7.  FILE VECTOR FOR Q8NTRY.    (IF     *PROGRAM*  )            END       915
                                        *                                                                        END       916
                                        *         IF THERE WERE ANY FATAL ERRORS, ONLY THE 77-TABLE AND AN       END       917
                                        *                *ERRORS* DIRECTIVE WILL BE DUMPED.                      END       918
                                        *                                                                        END       919
                                        *         EXIT   TO *DFTX* FOR NORMAL CASE, OR...                        END       920
                                        *                TO *END80* TO SUPRESS BINARY                            FEAT126C  112
                                        *                                                                        END       922
                                        *         USES   ALL BUT *A0*.                                           END       923
                                        *                (TT.SCR) FOR BUILDING SOME SCRATCH TABLES.              END       924
                                        *         CALLS  DTX, ALC, STX, WLF.                                     FEAT126C  113
                                                                                                                 END       926
                                                                                                                 END       927
           700  6160001611 +             DFT8     WLGO   BT.ERR,3                                                END       928
           702  0400000225 +                      EQ     END80       EXIT..  (BYPASS NORMAL BINARY OUTPUT)       END       929
                                                                                                                 END       930
           703                           DFT      BSS    0           ENTRY...                                    END       931
           703  5110000000 X                      SA1    =XTL.DATE                                               END       932
                          6120000006              SB2    CHAR                                                    END       933
           704  5120000000 X                      SA2    =XTL.TIME                                               END       934
                          5140000000 X            SA4    BINOUT                                                  END       935
           705  22621                             LX6    X1,B2                                                   END       936
                     22722                        LX7    X2,B2                                                   END       937
                          5160000302 +            SA6    BT.IDNT+2                                               END       938
           706  54761                             =A7    A6+1                                                    END       939
                     13222                        BX2    0                                                       END       940
                          5110000000 X            SA1    =XCP.MODL                                               END       941
           707  0334000710 +                      MI     X4,DFT2     IF BINARY IS TO BE PRODUCED                 END       942
                          5120001614 +            SA2    =10H **ERRORS                                           END       943
           710  22601                    DFT2     LX6    X1                                                      END       944
                     10722                        BX7    X2                                                      END       945
                          5160000313 +            SA6    BT.IDNT+BT.IDNTU                                        END       946
           711  54761                             =A7    A6+1                                                    END       947
                     6160000300 +                 WLGO   BT.IDNT,L.77+1                                          END       948
           713  5140000000 X                      SA4    BINOUT                                                  END       949
                          0324000700 +            PL     X4,DFT8     IF SUPPRESSED BINARY                        END       950
           714  5130000000 X                      SA3    MOD                                                     END       951
                          20363                   IFBIT  X3,PBLK,DFT25                                           END       952
                          6150000003              SB5    BT.LIBL     TABLE LENGTH                                F162FTNA  506
           716  6160000317 +                      SB6    BT.LIB      TABLE ORIGIN                                F162FTNA  507
                                                                                                                 F162FTNA  508
                                         .RM      IFEQ   OT#RM,6                                                 F162FTNA  509
                                                                                                                 F162FTNA  510
                          5110000000 X            SA1    =XCO.STA                                                F162FTNA  511
           717  0321000742 +                      PL     X1,DFT23    IF NOT STATIC MODE                          F162FTNA  512
                                                                                                                 F162FTNA  513
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    32
                                                                      DFT 
  
                                        *         EXTEND LDSET TABLE TO INCLUDE NECESSARY USE                    F162FTNA  514
                                        *         TABLE FOR CRM STATIC MODE.                                     F162FTNA  515
                                                                                                                 F162FTNA  516
                          7130000000 X            =X3    =XM.STCRM   STLCRM. ALWAYS LOADED                       F162FTNA  517
           720  5150000000 X                      SA5    MOD                                                     FCCA535    10
                          20560                   LX5    48                                                      FCCA535    11
           721  0325000723 +                      PL     X5,DFT20 IF NOT MAIN PROGRAM                            FCCA535    12
                          43501                   MX5    1                                                       FCCA535    13
                               20514              LX5    12                                                      FCCA535    14
           722  12335                             BX3    X3+X5    ADD ONE MORE SELECTION TO LDSET FILE           FCCA535    15
           723  5140000000 X             DFT20    SA4    CO.ER                                                   FCCA535    16
                          5120000000 X            SA2    =XSTATIC                                                F162FTNA  519
           724  0304000725 +                      ZR     X4,DFT21    IF NO ERROR RECOVERY                        F162FTNA  520
                          7233000000 X            SX3    X3+=XM.STRP2                                            F162FTNA  521
                                                                                                                 F162FTNA  522
           725  7160000004               DFT21    =X6    BT.LIBL+1   LENGTH LDSET,LIB+USE HEADER                 F162FTNA  523
                          12532                   BX5    X3+X2                                                   F162FTNA  524
                               47455              CX4    X5          NUMBER OF USE ENTRIES                       F162FTNA  525
           726  36046                             IX0    X4+X6                                                   F162FTNA  526
                     13666                        SHRINK TT=SCR                                                  F162FTNA  527
           727  5110000000 X                      ALLOC  TT.SCR,X0   ROOM FOR LDSET,LIB,USE TABLE                F162FTNA  528
           730  63520                             SB5    X2          TABLE LENGTH                                F162FTNA  529
                     63610                        SB6    X1          TABLE ORIGIN                                F162FTNA  530
                          7110000003              MVE    BT.LIBL,BT.LIB,B6                                       F162FTNA  531
           733  7170000016                        SX7    BT=USE                                                  F162FTNA  532
                          73241                   =X2    X4+1                                                    F162FTNA  533
                               56360              SA3    B6                                                      F162FTNA  534
           734  10044                             BX0    X4                                                      F162FTNA  535
                     20244                        LX2    P.BTWC      LDSET WORD COUNT INCREMENT                  F162FTNA  536
                          20044                   LX0    P.BTWC      USE WORD COUNT                              F162FTNA  537
                               20760              LX7    P.BTCN                                                  F162FTNA  538
           735  36632                             IX6    X3+X2                                                   F162FTNA  539
                     12770                        BX7    X7+X0                                                   F162FTNA  540
                          5120000000 X            SA2    =XSTLTAB                                                F162FTNA  541
           736  54630                             SA6    A3          RESET LDSET HEADER                          F162FTNA  542
                     5176000003                   =A7    B6+BT.LIBL  SET USE HEADER                              F162FTNA  543
                               55221              =A2    A2-1        PRELOAD                                     F162FTNA  544
                                                                                                                 F162FTNA  545
           737  20573                    DFT22    LX5    -1                                                      F162FTNA  546
                     54221                        =A2    A2+1        NEXT USE NAME                               F162FTNA  547
                          0302000742 +            ZR     X2,DFT23    IF FINISHED                                 F162FTNA  548
           740  0325000737 +                      PL     X5,DFT22    IF ROUTINE NOT NEEDED                       F162FTNA  549
                          10722                   BX7    X2                                                      F162FTNA  550
                               54771              =A7    A7+1        STORE USE NAME                              F162FTNA  551
           741  0400000737 +                      EQ     DFT22       LOOP                                        F162FTNA  552
                                                                                                                 F162FTNA  553
                                         .RM      ENDIF                                                          F162FTNA  554
                                                                                                                 F162FTNA  555
           742  66750                    DFT23    WLGO   B6,B5       WRITE OUT LDSET                             F162FTNA  556
                                                                                                                 END       954
                                                                                                                 END       955
                                        **        PIDL - PROGRAM IDENTIFICATION AND LENGTH TABLE.                END       956
                                        *                ALSO CONTAINS THE LOCAL COMMON BLOCK TABLE.             END       957
                                                                                                                 END       958
           743  5120000000 X             DFT25    SA2    TS=BLK                                                  END       959
                          23012                   AX0    X2,B1                                                   END       960
                               13666              SHRINK TT=SCR                                                  END       961
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    33
                                                                      DFT 
  
                          5110000000 X            ALLOC  TT.SCR,X0+1 ROOM FOR *PIDL* TABLE PLUS HEADER WORD      FCC1421     7
           746  5130000000 X                      SA3    IDENT                                                   END       963
                          7222777776              =X2    X2-1        (X2) = LENGTH OF *PIDL* TABLE               FCC1421     8
           747  5140000000 X                      SA4    LOCAL                                                   END       964
                          63721                   =B7    X2+1        (B7) = LENGTH OF SCRATCH TABLE              END       965
           750  5150000000 X                      SA5    TS.BLK                                                  END       966
                          7170003400              =X7    BT=PIDL                                                 END       967
           751  66311                             =B3    2                                                       FCC0583    30
                     20760                        LX7    P.BTCN                                                  END       969
                          12634                   BX6    X3+X4                                                   END       970
                               20244              LX2    P.BTWC                                                  END       972
           752  36772                             IX7    X7+X2                                                   END       973
                     5245000002                   SA4    X5+2        INITIALIZE A4                               END       974
                               53710              SA7    X1          *PIDL* CONTROL WORD                         END       976
           753  53611                             =A6    X1+1                                                    END       977
           754  0437000765 +             DFT3     EQ     B3,B7,DFT55 IF NO MORE BLOCKS                           FCC1421     9
                          66331                   =B3    B3+1                                                    FCC1421    10
                               54541              =A5    A4+1        BLOCK LENGTH/LEVEL WORD                     END       982
           755  43044                             MX0    -L.BLEN                                                 END       983
                     15350                        BX3    -X0*X5      ISOLATE BLOCK LENGTH                        END       984
                          21546                   AX5    P.BLVL      RIGHT-JUSTIFY LEVEL                         END       985
                               43072              MX0    -L.BLVL                                                 END       986
           756  15550                             BX5    -X0*X5      ISOLATE BLOCK LEVEL                         END       987
                     6255777774                   SB5    X5-3                                                    END       988
           757  0450000760 +                      ZR     B5,DFT43    IF LEVEL 3                                  END       989
                                                                                                                 END       990
                                         .76      IFEQ   .CPU,76                                                 END       991
                                                                                                                 END       992
                                                  SB5    X5-2                                                    END       993
                                                  ZR     B5,DFT43    IF 7000 LEVEL 2                             END       994
                                                                                                                 END       995
                                         .76      ENDIF                                                          END       996
                                                                                                                 END       997
                          0400000763 +            EQ     DFT5                                                    END       998
                                                                                                                 END       999
                                        *         ECS/LCM BLOCKS USE LENGTH = (BLEN)/8 -- ROUNDED UP             END      1000
                                                                                                                 END      1001
           760  43071                    DFT43    MX0    -3                                                      END      1002
                     15530                        BX5    -X0*X3      GRAB REMAINDER                              END      1003
                          21303                   AX3    3           DIVIDE BY 8                                 END      1004
           761  0305000762 +                      ZR     X5,DFT45    IF DIVISION EXACT                           END      1005
                          76010                   =X0    1                                                       END      1006
                               36330              IX3    X3+X0       LENGTH FOR *PIDL*                           END      1007
           762  43001                    DFT45    MX0    1                                                       END      1008
                     20022                        LX0    P.BTYP+1    POSITION ECS/LCM BIT                        END      1009
                          12330                   BX3    X3+X0                                                   END      1010
           763  12643                    DFT5     BX6    X4+X3       42/NAME,  1/TYPE,  17/LENGTH                END      1011
                     54661                        =A6    A6+1                                                    END      1012
                          54451                   =A4    A5+1        NEXT ENTRY (PRESUMABLY)                     FCC1421    11
           764  0400000754 +                      EQ     DFT3        LOOP                                        FCC1421    12
                                                                                                                 FCC1421    13
           765  63610                    DFT55    WLGO   X1,B7       OUTPUT *PIDL* TABLE                         FCC1421    14
           766  5130000000 X                      SA3    MOD                                                     END      1016
                          13666                   BX6    0                                                       END      1017
                               20363              SBIT   X3,PBLK                                                 END      1018
           767  5160000000 X                      SHRINK TT=SCR,X6   REMOVE THE ALLOCATION                       END      1019
                          0333000200 +            MI     X3,DFTX     IF *BLOCKDATA*, EXIT..                      END      1020
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    34
                                                                      DFT 
  
                                                                                                                 END      1021
                                        **        DUMP *ENTR* TABLE.                                             END      1022
                                                                                                                 END      1023
           770  5150000000 X                      SA5    TS=ENT                                                  END      1024
                          22015                   LX0    X5,B1                                                   END      1025
                               63550              SB5    X5          SAVE (B5) = LENGTH OF ENTRY POINT TABLE     END      1026
           771  5110000000 X                      ALLOC  TT.SCR,X0   ROOM TO BUILD THE *ENTR* TABLE              END      1027
           772  5140000411 +                      SA4    BT.ENTR                                                 END      1028
                          63721                   =B7    X2+1        (B7) = LENGTH OF SCRATCH TABLE              END      1029
                               20244              LX2    P.BTWC                                                  END      1030
           773  12642                             BX6    X4+X2                                                   END      1031
                     5130000000 X                 SA3    TS.SYM                                                  END      1032
                               76010              =X0    1                                                       END      1033
           774  5150000000 X                      SA5    TS.ENT                                                  END      1034
                          63431                   =B4    X3+1        B4 = FWA TAG TABLE                          END      1035
                               20022              LX0    P.BTRL                                                  END      1036
           775  53610                             SA6    X1          *ENTR* CONTROL WORD                         END      1037
                     53450                        SA4    X5          (A4) = FWA ENTRY PTS.                       END      1038
                                                                                                                 END      1039
           776  53344                    DFT6     SA3    X4+B4       FETCH TAG WORD                              END      1040
                     73540                        SX5    X4          ISOLATE ORDINAL                             END      1041
                          67551                   =B5    B5-1                                                    END      1042
                               21330              AX3    P.PNT                                                   END      1043
           777  13745                             BX7    X4-X5       ISOLATE NAME                                END      1044
                     73630                        SX6    X3                                                      END      1045
                          54761                   =A7    A6+1                                                    END      1046
                               12606              BX6    X0+X6       INDICATE PROGRAM-RELATIVE ADDRESS           END      1047
          1000  54441                             =A4    A4+1                                                    END      1048
                     54671                        =A6    A7+1                                                    END      1049
                          0550000776 +            NZ     B5,DFT6     IF MORE ENTRY POINTS                        END      1050
                                                                                                                 END      1051
          1001  63610                             WLGO   X1,B7                                                   END      1052
          1002  13666                             SHRINK TT=SCR      REMOVE THE ALLOCATION                       END      1053
                                                                                                                 END      1054
                                        **        OUTPUT TRACEBACK WORDS.                                        END      1055
                                                                                                                 END      1056
          1003  5110000000 X                      SA1    =XNAME      ROUTINE NAME SPACE FILLED                   FEAT126A  762
                          20106                   LX1    CHAR                                                    FEAT126A  763
                               43052              MX0    7*CHAR                                                  END      1060
          1004  11101                             BX1    X0*X1       TRUNCATE TO 7 CHARACTERS                    FEAT126A  764
                     5140000000 X                 SA4    ENTRY.                                                  END      1062
                               73440              SX4    X4                                                      FEAT155G  264
          1005  5130000000 X                      SA3    TA.NAM                                                  END      1063
                          23714                   AX7    X4,B1       = HALF ORDINAL                              END      1064
                               36073              IX0    X7+X3                                                   END      1065
          1006  53500                             SA5    X0          FETCH ADDRESS OF MAIN ENTRY POINT           END      1066
                     73350                        SX3    X5                                                      END      1067
                          12613                   BX6    X1+X3                                                   END      1068
          1007  5160000325 +                      SA6    BT.1ST+2                                                END      1069
                          6160000323 +            WLGO   BT.1ST,BT.1STL+1                                        END      1070
                                                                                                                 END      1071
                                        *         ADD FITS IF MAIN PROGRAM.                                      F162FTNA  557
                                                                                                                 END      1073
          1011  5110000000 X                      SA1    MOD                                                     END      1074
                          20160                   IFBIT  X1,-PPRO,DFTX                                           END      1075
                                                                                                                 END      1076
                          5120000000 X            SA2    TA.PRO                                                  END      1077
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    35
                                                                      DFT 
  
          1013  5232000003                        =A3    X2+CT.FILE-C.PRO                                        END      1078
                          73630                   SX6    X3                                                      END      1079
          1014  5160000000 X                      SA6    ORG                                                     END      1080
                          0100001215 +            RJ     DTX         SET ORIGIN = *FILE.*                        END      1081
                                                                                                                 END      1082
                                        *         OUTPUT *Q2NTRY* *LIST* AP-LIST.                                F162FTNA  558
                                                                                                                 F162FTNA  559
                                         .RM      IFEQ   OT#RM,6                                                 F162FTNA  560
                                                                                                                 F162FTNA  561
          1015  5110000000 X                      SA1    TA.PRO                                                  F162FTNA  562
                          5120000000 X            SA2    NARGS       NUMBER OF FILES                             F162FTNA  563
          1016  5231000003                        SA3    X1+CT.FILE-C.PRO                                        F162FTNA  564
                          63720                   SB7    X2                                                      F162FTNA  565
          1017  7213000003                        SX1    X3+L.LIST   ADDRESS OF FILES VECTOR                     F162FTNA  566
                          0312001023 +            NZ     X2,DFT60    IF MAIN PROGRAM WITH FILES                  FCCA408    85
          1020  5120000000 X                      SA2    =XCO.STA                                                FCCA408    86
                          0302001023 +            ZR     X2,DFT60    IF NOT STATIC MODE                          FCCA408    87
          1021  73111                             =X1    X1+1        BIAS OF STLTAB AP-LIST POINTER              FCCA408    88
                     73617                        SX6    X1+B7       FILES VECTOR ADDRESS + NO. OF FILES         FCCA408    89
                          73661                   =X6    X6+1        + ZERO TERM. = ADDRESS OF STLTAB            FCCA408    90
                               27616              PX6    B1,X6       PACK IN AP-LIST WORD IDENTIFIER             FCCA408    91
          1022  5160001131 +                      SA6    DFTA        STORE IN TEMP                               FCCA408    92
                                                                                                                 FCCA408    93
          1023  27171                    DFT60    PX1    B7,X1       PACK IN NUMBER OF FILES                     FCCA408    94
                     76211                        =X2    2           LOWER PROGRAM RELOCATION                    F162FTNA  568
                          0100001567 +            RJ     STX                                                     F162FTNA  569
          1024  5110000000 X                      SA1    PLIMIT      PRINT LIMIT                                 F162FTNA  570
                          5120000000 X            SA2    =XCO.STA    STATIC INDICATOR                            F162FTNA  571
          1025  12112                             BX1    X1+X2                                                   F162FTNA  572
                     76200                        =X2    0           NO RELOCATION                               F162FTNA  573
                          0100001567 +            RJ     STX                                                     F162FTNA  574
          1026  5110001131 +                      SA1    DFTA                                                    FCCA408    95
                          0301001030 +            ZR     X1,DFT65    IF NO STLTAB NEEDED                         FCCA408    96
          1027  76211                             =X2    2           LOWER PROGRAM RELOCATION                    FCCA408    97
                     0100001567 +                 RJ     STX         OUTPUT STLTAB POINTER                       FCCA408    98
                                                                                                                 FCCA408    99
          1030  76100                    DFT65    =X1    0           ZERO TERMINATOR                             FCCA408   100
                     37222                        IX2    X2-X2                                                   F162FTNA  576
                          0100001567 +            RJ     STX                                                     F162FTNA  577
                                                                                                                 F162FTNA  578
                                         .RM      ENDIF                                                          F162FTNA  579
                                                                                                                 F162FTNA  580
          1031  5110000000 X             DFT70    SA1    T.FILE                                                  END      1083
                          5120000000 X            SA2    T=FILE                                                  END      1084
          1032  7130000003                        =X3    3                                                       END      1085
                          36613                   IX6    X1+X3                                                   END      1086
                               53510              SA5    X1                                                      END      1087
          1033  43452                             MX4    L.FNAM                                                  END      1088
                     37723                        IX7    X2-X3                                                   END      1089
                          0305001071 +            ZR     X5,DFT78    IF NO MORE FILES                            END      1090
          1034  54610                             SA6    A1                                                      END      1091
                     54720                        SA7    A2                                                      END      1092
                          11045                   BX0    X4*X5       ISOLATE FILE NAME                           END      1093
                               54551              =A5    A5+1                                                    END      1094
          1035  10355                             BX3    X5                                                      END      1095
                     76211                        =X2    2           LOWER PROGRAM RELOCATION                    END      1096
                          21322                   AX3    P.FFIT                                                  END      1097
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    36
                                                                      DFT 
  
                               73630              SX6    X3          FIT ADDRESS OF FILE                         END      1098
          1036  12160                             BX1    X6+X0                                                   END      1099
                     0100001567 +                 RJ     STX         OUTPUT POINTER WORD                         END      1100
                                                                                                                 END      1101
          1037  5110000000 X                      SA1    T.FILE                                                  F162FTNA  581
                          5251777775              SA5    X1+1-3      (A5,X5) = 2ND WORD OF FILE TABLE ENTRY      F162FTNA  582
          1040  0335001031 +                      MI     X5,DFT70    IF EQUIVALENCED FILE, DON-T ISSUE FIT       F162FTNA  583
                          73450                   SX4    X5          (X4) = CIO BUFFER LENGTH (BFS)              F162FTNA  584
                               21522              AX5    P.FFIT                                                  F162FTNA  585
          1041  73050                             SX0    X5          (X0) = FIT ORIGIN                           F162FTNA  586
                     43752                        MX7    -18                                                     F162FTNA  587
                                                                                                                 F162FTNA  588
                                         .RM      IFEQ   OT#RM,6                                                 F162FTNA  589
                                                                                                                 F162FTNA  590
                                        *         ENTER FIT-RELATIVE ORIGIN ADDRESSES IN LOADER TEXT SKELETONS.  F162FTNA  591
                                                                                                                 F162FTNA  592
                          5110000330 +            SA1    BT.FCAH                                                 F162FTNA  593
          1042  5120000336 +                      SA2    BT.REPC+1                                               F162FTNA  594
                          11171                   BX1    X7*X1                                                   F162FTNA  595
                               36610              IX6    X1+X0                                                   F162FTNA  596
          1043  54610                             SA6    A1          FIT (A) TEXT TABLE HEADER                   F162FTNA  597
                     11272                        BX2    X7*X2                                                   F162FTNA  598
                          7210000002              SX1    X0+BT.FCAL-1      ZERO WORD REPL SOURCE ADDR            F162FTNA  599
          1044  12621                             BX6    X2+X1                                                   F162FTNA  600
                     54620                        SA6    A2          REPL SOURCE WORD                            F162FTNA  601
                          5110000340 +            SA1    BT.FCBH                                                 F162FTNA  602
          1045  5120000357 +                      SA2    BT.FCCH                                                 F162FTNA  603
                          7230000012              SX3    X0+L.FIT1   FIT (B) ORIGIN                              F162FTNA  604
          1046  11171                             BX1    X7*X1                                                   F162FTNA  605
                     36613                        IX6    X1+X3                                                   F162FTNA  606
                          11272                   BX2    X7*X2                                                   F162FTNA  607
                               54610              SA6    A1          FIT (B) TEXT TABLE HEADER                   F162FTNA  608
          1047  7230000043                        SX3    X0+L.FIT6-L.FCLX  FIT (C) ORIGIN                        F162FTNA  609
                          12623                   BX6    X2+X3                                                   F162FTNA  610
                               54620              SA6    A2          FIT (C) TEXT TABLE HEADER                   F162FTNA  611
                                                                                                                 F162FTNA  612
                                        *         ENTER LFN AND CIO BUFFER INFO (FWB, BFS) IN SKELETONS.         F162FTNA  613
                                                                                                                 F162FTNA  614
          1050  55151                             SA1    A5-B1       LFN                                         F162FTNA  615
                     76210                        SX2    B1          CIO COMPLETE BIT                            F162FTNA  616
                          11371                   BX3    X7*X1                                                   F162FTNA  617
                               36632              IX6    X3+X2                                                   F162FTNA  618
          1051  21522                             AX5    P.FBUF-P.FFIT                                           F162FTNA  619
                     5160000332 +                 SA6    BT.FCA      LFN, CMPLT TO FIT (A)                       F162FTNA  620
                               13777              BX7    0           PRESET NO FWB RELOCATION                    F162FTNA  621
          1052  43600                             MX6    0           PRESET NO FWB                               F162FTNA  622
                     5130000000 X                 SA3    TA.PRO                                                  F162FTNA  623
          1053  0304001055 +                      ZR     X4,DFT72    IF NO CIO BUFFER (BFS=0)                    F162FTNA  624
                          6225517777              SB2    X5-C.PRO                                                F162FTNA  625
          1054  53132                             SA1    X3+B2       BUFFER ORIGIN (FWB)                         F162FTNA  626
                     76711                        =X7    2           PGM LOCAL RELOC                             F162FTNA  627
                          10611                   BX6    X1          SET FWB                                     F162FTNA  628
                               20764              LX7    60-2*4      SET FWB (2ND WORD) RELOCATION               F162FTNA  629
          1055  5160000333 +             DFT72    SA6    BT.FCA+1    FWB OR 0 TO FIT (A)                         F162FTNA  630
                          5170000331 +            SA7    BT.FCAH+1   RELOCATION BYTES OR 0 TO FIT (A)            F162FTNA  631
          1056  22704                             LX7    X4                                                      F162FTNA  632
                     13444                        BX4    0           PRESET NO MRL                               F162FTNA  633
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    37
                                                                      DFT 
  
                          5170000351 +            SA7    BT.FCB+7    BFS TO FIT (B)                              F162FTNA  634
                                                                                                                 F162FTNA  635
                                        *         ENTER MRL AND WSA.  WRITE FIT (A), REPL, FIT (B) AND FIT (C)   F162FTNA  636
                                        *         TO BINARY OUTPUT FILE.  NOTE THAT FIT (C) IS WRITTEN ONLY IF   F162FTNA  637
                                        *         MRL WAS SPECIFIED (MRL .NE. 0).                                F162FTNA  638
                                                                                                                 F162FTNA  639
          1057  6170000027                        SB7    BT.FITCL-BT.FCCTL       PRESET *OMIT FIT (C)*           F162FTNA  640
                          54551                   SA5    A5+B1                                                   F162FTNA  641
                               43602              MX6    2           =6S57, PRESET NO WSA                        F162FTNA  642
          1060  13777                             BX7    0           PRESET NO WSA RELOCATION                    F162FTNA  643
                     20641                        LX6    30-57       ERR OPT (EO) = AD = 6S30                    F162FTNA  644
                          0335001065 +            MI     X5,DFT74    IF MRL NOT SPECIFIED                        F162FTNA  645
          1061  43052                             MX0    -L.FRCL                                                 F162FTNA  646
                     15450                        BX4    -X0*X5      EXTRACT MAX RECORD LENGTH (MRL)             F162FTNA  647
                          21544                   AX5    P.FREC                                                  F162FTNA  648
          1062  6225517777                        SB2    X5-C.PRO                                                F162FTNA  649
                          53132                   SA1    X3+B2       WSA ORIGIN                                  F162FTNA  650
                               20444              LX4    P.BTMRL                                                 F162FTNA  651
          1063  12741                             BX7    X4+X1                                                   F162FTNA  652
                     36661                        IX6    X6+X1       EO, WSA                                     F162FTNA  653
                          5170000361 +            SA7    BT.FCC      MRL, WSA TO FIT (C)                         F162FTNA  654
          1064  6170000032                        SB7    BT.FITCL    SET *WRITE FIT (C)*                         F162FTNA  655
                          76711                   =X7    2           PGM LOCAL RELOC                             F162FTNA  656
                               20744              LX7    60-6*4      SET WSA (6TH WORD) RELOCATION               F162FTNA  657
          1065  5160000347 +             DFT74    SA6    BT.FCB+5    EO/WSA OR 0 TO FIT (B)                      F162FTNA  658
                          5170000341 +            SA7    BT.FCBH+1   WSA RELOC BYTE OR 0 TO FIT (B) HEADER       F162FTNA  659
          1066  10644                             BX6    X4                                                      F162FTNA  660
                     5160000344 +                 SA6    BT.FCB+2    MRL TO FIT (B)                              F162FTNA  661
          1067  6160000330 +                      WLGO   BT.FITC,B7  LOADER TABLES (3 OR 4) TO BIN OUTPUT FILE   F162FTNA  662
          1070  0400001031 +                      EQ     DFT70       LOOP FOR NEXT FILE                          F162FTNA  663
                                                                                                                 F162FTNA  664
                                         .RM      ENDIF                                                          F162FTNA  665
                                                                                                                 F162FTNA  666
                                         .RM      IFEQ   OT#RM,7                                                 F162FTNA  667
                                                                                                                 F162FTNA  668
                                        *         ENTER FIT-RELATIVE ORIGIN ADDRESSES IN LOADER TEXT SKELETONS.  F162FTNA  669
                                                                                                                 F162FTNA  670
                                                  SA1    BT.F7AH                                                 F162FTNA  671
                                                  SA2    BT.REP7+1                                               F162FTNA  672
                                                  SX3    X0+BT.F7AL-1      ZERO WORD REPL SOURCE ADDR            F162FTNA  673
                                                  BX1    X7*X1                                                   F162FTNA  674
                                                  IX6    X1+X0                                                   F162FTNA  675
                                                  SA6    A1                                                      F162FTNA  676
                                                  BX2    X7*X2                                                   F162FTNA  677
                                                  IX6    X2+X3                                                   F162FTNA  678
                                                  SA6    A2                                                      F162FTNA  679
                                                                                                                 F162FTNA  680
                                        *         ENTER MRL AND WSA.  WRITE FIT (A) AND REPL TO BINARY OUTPUT    F162FTNA  681
                                        *         FILE.                                                          F162FTNA  682
                                                                                                                 F162FTNA  683
                                                  SA5    A5+B1                                                   F162FTNA  684
                                                  BX7    0           PRESET NO WSA RELOCATION                    F162FTNA  685
                                                  MX6    0           PRESET NO MRL/WSA                           F162FTNA  686
                                                  MI     X5,DFT76    IF MRL NOT SPECIFIED                        F162FTNA  687
                                                  MX0    -L.FRCL                                                 F162FTNA  688
                                                  SA3    TA.PRO                                                  F162FTNA  689
                                                  BX4    -X0*X5      EXTRACT MAX RECORD LENGTH (MRL)             F162FTNA  690
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    38
                                                                      DFT 
  
                                                  AX5    P.FREC                                                  F162FTNA  691
                                                  SB2    X5-C.PRO                                                F162FTNA  692
                                                  SA3    X3+B2       WSA ORIGIN                                  F162FTNA  693
                                                  LX4    P.BTMRL                                                 F162FTNA  694
                                                  =X7    2           PGM LOCAL RELOC                             F162FTNA  695
                                                  BX6    X4+X3                                                   F162FTNA  696
                                                  LX7    60-7*4      SET WSA (7TH WORD) RELOCATION               F162FTNA  697
                                         DFT76    SA6    BT.F7A+6    MRL/WSA OR 0 TO FIT                         F162FTNA  698
                                                  SA7    A1+B1       WSA RELOC BYTE OR 0 TO TEXT HEADER          F162FTNA  699
                                                  WLGO   A1,BT.FIT7L FIT AND REPL TO BINARY OUTPUT FILE          F162FTNA  700
                                                  EQ     DFT70       LOOP FOR NEXT FILE                          F162FTNA  701
                                                                                                                 F162FTNA  702
                                         .RM      ENDIF                                                          F162FTNA  703
                                                                                                                 F162FTNA  704
                                                                                                                 END      1166
                                                                                                                 END      1167
                                        *         LASTLY, TERMINATE THE FILE VECTOR TABLE WITH --                F162FTNA  705
                                        *         (CRM) ONE ZERO WORD, OR                                        F162FTNA  706
                                        *         (7RM) ONE WORD CONTAINING THE COMPLEMENT OF THE RUN-TIME       F162FTNA  707
                                        *               *OUTPUT* FILE PRINT LIMIT.                               F162FTNA  708
                                                                                                                 END      1172
          1071  73611                    DFT78    =X6    X1+1                                                    END      1173
                     7277000002                   SX7    X7+2        MARK LAST WORD REMOVED                      END      1174
                               54610              SA6    A1                                                      END      1176
          1072  54720                             SA7    A2                                                      END      1177
                     5130000000 X                 SA3    =XOT.RM                                                 F162FTNA  709
                               13222              BX2    0                                                       F162FTNA  710
          1073  5110000000 X                      SA1    PLIMIT                                                  F162FTNA  711
                          14633                   BX6    -X3                                                     F162FTNA  712
                               36726              IX7    X2+X6                                                   F162FTNA  713
          1074  12337                             BX3    X3+X7       +0 IF (OT.RM)=0, ELSE -0                    F162FTNA  714
                     15131                        BX1    -X1*X3      +0 IF (OT.RM)=0, ELSE -(PLIMIT)             F162FTNA  715
                          0100001567 +            RJ     STX         OUTPUT FILE LIMIT TERMINATES TABLE          END      1180
                                                                                                                 FCCA408   101
                                         .RM      IFEQ   OT#RM,6                                                 FCCA408   102
                                                                                                                 FCCA408   103
                                        *         GENERATE WEAK EXTERNAL TABLE IF REQUIRED + LINK                FCCA408   104
                                                                                                                 FCCA408   105
          1075  5110001131 +                      SA1    DFTA                                                    FCCA408   106
                          0301000200 +            ZR     X1,DFTX     IF NO STLTAB NEEDED,  EXIT..                FCCA408   107
                                                                                                                 FCCA408   108
          1076  13666                             SHRINK =XTT=SCR                                                FCCA408   109
          1077  7120000000 X                      SX2    =XN.STL                                                 FCCA408   110
                          7110000002 X            SX1    =XL.STL+2   STLTAB, HEAD OF STLTAB + XLINK              FCCA408   111
          1100  22412                             LX4    B1,X2                                                   FCCA408   112
                     36224                        IX2    X2+X4       LENGTH OF ASSOCIATED XLINK                  FCCA408   113
                          36012                   IX0    X1+X2                                                   FCCA408   114
          1101  5110000000 X                      ALLOC  =XTT.SCR,X0                                             FCCA408   115
          1102  63520                             SB5    X2          TABLE LENGTH                                FCCA408   116
                     7130000001 X                 SX3    =XL.STL+1                                               FCCA408   117
          1103  7160004000                        SX6    BT=TEXT     CONSTRUCT TEXT TABLE HEADER                 FCCA408   118
                          20344                   LX3    P.BTWC                                                  FCCA408   119
                               20660              LX6    P.BTCN                                                  FCCA408   120
          1104  76410                             =X4    1                                                       FCCA408   121
                     12663                        BX6    X6+X3       OR IN WORD COUNT                            FCCA408   122
                          20422                   LX4    P.BTRL                                                  FCCA408   123
          1105  5120001131 +                      SA2    DFTA                                                    FCCA408   124
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    39
                                                                      DFT 
  
                          12664                   BX6    X6+X4       OR IN RELOCATION                            FCCA408   125
                               73220              SX2    X2                                                      FCCA408   126
          1106  12662                             BX6    X6+X2       OR IN FWA STLTAB                            FCCA408   127
                     43700                        MX7    0                                                       FCCA408   128
                          53610                   SA6    X1          STORE IN TT.SCR                             FCCA408   129
                               54761              =A7    A6+1        STORE ZERO RELOCATION WORD                  FCCA408   130
          1107  6140000000 X                      SB4    =XL.STL                                                 FCCA408   131
                                                                                                                 FCCA408   132
          1110  54771                    DFT77    =A7    A7+1                                                    FCCA408   133
                     67441                        =B4    B4-1                                                    FCCA408   134
                          0540001110 +            NZ     B4,DFT77    IF NOT FINISHED STLTAB BODY                 FCCA408   135
                                                                                                                 FCCA408   136
                                        *         OUTPUT XLINK FOR WEAK EXTERNAL STLTAB.                         FCCA408   137
                                                                                                                 FCCA408   138
          1111  7130000000 X                      SX3    =XN.STL                                                 FCCA408   139
                          7160004500              SX6    BT=XLINK    CONSTRUCT XLINK HEADER                      FCCA408   140
          1112  22413                             LX4    B1,X3                                                   FCCA408   141
                     36343                        IX3    X4+X3       LENGTH OF XLINK BODY                        FCCA408   142
                          20660                   LX6    P.BTCN                                                  FCCA408   143
          1113  7233777776                        =X3    X3-1        XLINK BODY - FINAL TERMINATOR               FCCA408   144
                          20344                   LX3    P.BTWC                                                  FCCA408   145
                               12663              BX6    X6+X3                                                   FCCA408   146
          1114  5120001131 +                      SA2    DFTA                                                    FCCA408   147
                          54671                   =A6    A7+1        STORE XLINK HEADER                          FCCA408   148
          1115  7252777776                        =X5    X2-1        (X5) = FWA STLTAB - 1                       FCCA408   149
                          5130000000 X            SA3    =XSTLTAB    (A3/X3) = FWA AND CONTENTS OF STLTAB        FCCA408   150
          1116  76410                             =X4    1           (X4) = 1                                    FCCA408   151
                     43001                        MX0    1           (X0) = TOGGLE                               FCCA408   152
                                                                                                                 FCCA408   153
          1117  7120000000               DFT77.3  SX2    0           LOW ORDER BIT POSITION                      FCCA408   154
                          12734                   BX7    X3+X4       NAME + WEAK EXTERNAL BIT                    FCCA408   155
          1120  0320001122 +                      PL     X0,DFT77.6  IF TOGGLE, SET LOW 30 BIT POSITION          FCCA408   156
                          7120000036              SX2    30          HIGH 30 BIT POSITION                        FCCA408   157
          1121  73551                             =X5    X5+1        BUMP RELOCATION WORD ADDRESS                FCCA408   158
                                                                                                                 FCCA408   159
          1122  20036                    DFT77.6  LX0    30          TOGGLE THE TOGGLE                           FCCA408   160
                     10655                        BX6    X5                                                      FCCA408   161
                          20230                   LX2    P.BTXPS                                                 FCCA408   162
                               20636              LX6    P.BTXRA                                                 FCCA408   163
          1123  54761                             =A7    A6+1        STORE FIRST WORD XLINK                      FCCA408   164
                     12662                        BX6    X6+X2       RA + POS                                    FCCA408   165
                          7170000036              SX7    L.STLF                                                  FCCA408   166
          1124  12664                             BX6    X6+X4       RA+POS + RELOC BASE                         FCCA408   167
                     20722                        LX7    P.BTXSZ                                                 FCCA408   168
                          12667                   BX6    X6+X7       RA+POS+RELOC BASE + ADDR FIELD LENGTH       FCCA408   169
                               54671              =A6    A7+1        STORE SECOND WORD XLINK                     FCCA408   170
          1125  54331                             =A3    A3+1        NEXT STLTAB ENTRY                           FCCA408   171
                     0303001127 +                 ZR     X3,DFT77.8  IF FINISHED                                 FCCA408   172
                               43600              MX6    0                                                       FCCA408   173
          1126  5066000001                        SA6    A6+1        TERMINATOR FOR THIS ENTRY                   FCCA408   174
                          0400001117 +            EQ     DFT77.3                                                 FCCA408   175
                                                                                                                 FCCA408   176
          1127  63610                    DFT77.8  WLGO   X1,B5       WRITE IT ALL OUT                            FCCA408   177
                                                                                                                 FCCA408   178
                                         .RM      ENDIF                                                          FCCA408   179
          1130  0400000200 +                      EQ     DFTX                                                    FCCA408   180
                                         .RM      IFEQ   OT#RM,6,2                                               FCCA408   181
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    40
                                                                      DFT 
  
                                                  ENTRY  DFTA                                                    FCCA408   182
          1131                     1     DFTA     BSSZ   1           TEMP CELL OF FWA STLTAB                     FCCA408   183
                                                                                                                 FCCA408   184
  
  
  
  
                                        **        DLF -  DUMP *LINK*, *FILL*, AND *XFILL* TABLES.                END      1183
                                        *                                                                        END      1184
                                        *         DUMPS LINK AND FILL TABLES TO BINARY.                          END      1185
                                        *                                                                        END      1186
                                        *         TABLE MANAGER MAY CALL THIS ROUTINE TO FREE UP TABLE SPACE.    END      1187
                                        *         WHEN IT DOES SO, THE LGO FILE MUST HAVE BEEN ALREADY FLUSHED   END      1188
                                        *         TO DISK, AND (LGOIO) UPDATED TO REFLECT THIS.  OTHERWISE, WHEN END      1189
                                        *         WE ATTEMPT TO ADD WORDS TO AN SCM-RESIDENT LGO FILE, A NASTY   END      1190
                                        *         INFINITE LOOP RESULTS.                                         END      1191
                                        *                                                                        END      1192
                                        *         BASIC IDEA STOLEN FROM *DLAST* IN *COMPASS VER 2.0*.           END      1193
                                        *         CALLS  SRT, WLF.                                               FEAT126C  114
                                                                                                                 END      1195
                                                                                                                 END      1196
          1132  0550001133 +             DLF8     NZ     B5,DLF85                                                END      1197
                          54661                   SA6    A6+B1       STORE HANGING HALF-WORD                     END      1198
          1133  7140004200               DLF85    SX4    BT=FILL                                                 END      1199
                          75366                   SX3    A6-B6                                                   END      1200
                               20460              LX4    P.BTCN                                                  END      1201
          1134  63731                             =B7    X3+1                                                    END      1202
                     20344                        LX3    P.BTWC                                                  END      1203
                          12643                   BX6    X4+X3       MANUFACTURE CONTROL WORD                    END      1204
                               56660              SA6    B6                                                      END      1205
          1135  0100001604 +                      WLGO   B6,B7                                                   END      1206
                                                                                                                 END      1207
                                        *         PROCESS *XFILL* TABLE                                          END      1208
                                                                                                                 END      1209
          1136  5120000000 X             DLF9     SA2    =XTT=XFIL                                               END      1210
                          5110000000 X            SA1    =XTT.XFIL                                               END      1211
          1137  63720                             SB7    X2                                                      END      1212
                     63610                        SB6    X1          B6 = FWA TABLE                              END      1213
                          0471001144 +            EQ     B7,B1,DLF   IF EMPTY *XFILL* TABLE, EXIT..              END      1214
          1140  7140004100                        SX4    BT=XFILL                                                END      1215
                          77371                   SX3    B7-B1                                                   END      1216
                               20460              LX4    P.BTCN                                                  END      1217
          1141  20344                             LX3    P.BTWC                                                  END      1218
                     12643                        BX6    X4+X3       MANUFACTURE CONTROL WORD                    END      1219
                          56660                   SA6    B6                                                      END      1220
                                                                                                                 END      1221
                                         SNAP=X   IFNE   TEST        DUMP *XFILL* TABLE                          END      1222
                                                  SA3    CO.SNAP                                                 END      1223
                                                  LX3    1RX                                                     END      1224
                                                  PL     X3,DLF8S                                                END      1225
                                                  DUMPT  (=XTT.XFIL)                                             END      1226
                                         DLF8S    BSS    0                                                       END      1227
                                         SNAP=X   ENDIF                                                          END      1228
                                                                                                                 END      1229
          1142  0100001604 +                      WLGO   B6,B7                                                   END      1231
          1143  76610                             SHRINK TT=XFIL,1                                               FCC0813   102
                                                                                                                 END      1232
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    41
                                                                      DLF 
  
          1144  0400401144 +             DLF      SUBR               ENTRY/EXIT...                               END      1233
                                                                                                                 END      1234
                                        *         PROCESS *LINK* TABLE.                                          END      1235
                                                                                                                 END      1236
                                         SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                           END      1237
                                                  SA3    CO.SNAP                                                 END      1238
                                                  LX3    1RK                                                     END      1239
                                                  PL     X3,DLF0S    IF LINK TABLE SNAP NOT SELECTED             END      1240
                                                  DUMPT  (TT.LINK)                                               END      1241
                                         DLF0S    BSS    0                                                       END      1242
                                         SNAP=K   ENDIF                                                          END      1243
                                                                                                                 END      1244
          1145  5120000000 X                      SA2    TT=LINK                                                 END      1245
                          5110000000 X            SA1    TT.LINK                                                 END      1246
          1146  5130000000 X                      SA3    NREXT                                                   END      1247
                          37623                   IX6    X2-X3                                                   END      1248
          1147  0306001173 +                      ZR     X6,DLF5     IF NO EXTERNALS                             END      1249
                          54620                   SA6    A2          FAKE LENGTH TO ACTUAL FOR SORT              END      1250
                               36113              IX1    X1+X3       ADJUST ORIGIN TO IGNORE GHOST WORDS         END      1251
          1150  0100000000 X                      RJ     SRT                                                     END      1252
                                                                                                                 END      1253
          1151  5110000000 X                      SA1    TT.LINK                                                 END      1254
                          5120000000 X            SA2    TT=LINK                                                 END      1255
          1152  5130000000 X                      SA3    TS.SYM                                                  END      1256
                          5140000000 X            SA4    NREXT                                                   END      1257
          1153  53030                             SA0    X3          A0 = FWA NAME TAB                           END      1258
                     36014                        IX0    X1+X4                                                   END      1259
                          63720                   SB7    X2          B7 = (LEN LINK)                             END      1260
                               53500              SA5    X0                                                      END      1261
          1154  63410                             SB4    X1          (B4) = FWA PHYSICAL TABLE                   END      1262
                     6160000036                   SB6    30                                                      END      1263
                               53610              SA6    X1          PRESET STORE ADDR                           END      1264
          1155  43152                             MX1    L.SYM                                                   END      1265
                     43036                        MX0    30                                                      END      1266
                          67501                   SB5    -B1                                                     END      1267
                               67201              SB2    -B1                                                     END      1268
                                                                                                                 END      1269
          1156  23265                    DLF2     AX2    X5,B6       ISOLATE EXT NO                              END      1270
                     63320                        SB3    X2                                                      END      1271
                          66221                   SB2    B2+B1                                                   END      1272
                               15750              BX7    -X0*X5      ISOLATE 30/OUTPUT STUFF                     END      1273
          1157  0435001162 +                      EQ     B3,B5,DLF3    IF SAME AS LAST EXT                       END      1274
                          54303                   SA3    B3+A0       FETCH EXT NAME                              END      1275
                               66530              SB5    B3                                                      END      1276
          1160  20636                             LX6    30                                                      END      1277
                     0420001161 +                 ZR     B2,DLF25    IF NO HANGING HALF-WORD                     END      1278
                               54661              SA6    A6+B1                                                   END      1279
          1161  11613                    DLF25    BX6    X1*X3       ISOLATE NAME                                END      1280
                     66200                        SB2    B0                                                      END      1281
                          54661                   SA6    A6+B1       STORE NEW NAME                              END      1282
                               13666              BX6    0                                                       END      1283
          1162  67771                    DLF3     SB7    B7-B1                                                   END      1284
                     22466                        LX4    X6,B6                                                   END      1285
                          12674                   BX6    X7+X4                                                   END      1286
                               54551              SA5    A5+B1                                                   END      1287
          1163  0420001165 +                      ZR     B2,DLF4     IF LOWER BYTE                               END      1288
                          54661                   SA6    A6+B1                                                   END      1289
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    42
                                                                      DLF 
  
                               67201              SB2    -B1                                                     END      1290
          1164  13666                             BX6    0                                                       END      1291
          1165  0570001156 +             DLF4     NZ     B7,DLF2     IF TABLE NOT EXHAUSTED                      END      1292
                          20636                   LX6    30                                                      END      1293
          1166  0720001167 +                      MI     B2,DLF45    IF NO HANGING HALF-WORD                     END      1294
                          54661                   SA6    A6+B1                                                   END      1295
          1167  75764                    DLF45    SX7    A6-B4       RESULTANT SIZE OF LINK TABLE                END      1296
                     5110000000 X                 SA1    TT.LINK                                                 END      1297
                               63771              =B7    X7+1                                                    END      1298
          1170  7140004400                        SX4    BT=LINK                                                 END      1299
                          20744                   LX7    P.BTWC                                                  END      1300
                               63610              SB6    X1                                                      END      1301
          1171  20460                             LX4    P.BTCN                                                  END      1302
                     12647                        BX6    X4+X7       FORM *LINK* CONTROL WORD                    END      1303
                          56660                   SA6    B6                                                      END      1304
          1172  0100001604 +                      WLGO   B6,B7       WRITE OUT THE LINK TABLE                    END      1305
                                                                                                                 END      1306
          1173  5110000000 X             DLF5     SA1    NREXT                                                   END      1307
                          10611                   SHRINK TT=LINK,X1                                              END      1308
                                                                                                                 END      1309
                                        *         PROCESS *FILL* TABLE.                                          END      1310
                                                                                                                 END      1311
                          5120000000 X            SA2    TT=FILL                                                 END      1312
          1175  5110000000 X                      SA1    TT.FILL                                                 END      1313
                          63720                   SB7    X2                                                      END      1314
                               13666              BX6    0                                                       END      1315
          1176  0471001136 +                      EQ1    B7,DLF9     IF EMPTY *FILL* TABLE                       END      1316
                          53610                   SA6    X1          ZERO THE DUMMY WORD SO SORT WONT MOVE IT    END      1317
          1177  0100000000 X                      RJ     SRT                                                     END      1318
                                                                                                                 END      1319
          1200  5110000000 X                      SA1    TT.FILL                                                 END      1320
                          5120000000 X            SA2    TT=FILL                                                 END      1321
          1201  43036                             MX0    -30                                                     END      1322
                     6120000036                   SB2    30                                                      END      1323
                               63610              SB6    X1          B6 =  FWA  TABLE                            END      1324
          1202  13777                             BX7    0                                                       END      1325
                     63426                        SB4    X2+B6       B4 = LWA+1 TABLE                            END      1326
                          56161                   SA1    B6+B1       FETCH FIRST ENTRY                           END      1327
                               76610              SHRINK A2,1                                                    END      1328
                     57661                        SA6    B6-B1                                                   END      1329
                          66361                   SB3    B6+B1                                                   END      1330
                                                                                                                 END      1331
          1204  12663                    DLF6     BX6    X6+X3                                                   END      1332
                     6150000036                   SB5    30                                                      END      1333
                               54661              SA6    A6+B1                                                   END      1334
          1205  0634001132 +             DLF7     GE     B3,B4,DLF8     IF TABLE EXHAUSTED                       END      1335
                          23221                   AX2    X1,B2                                                   END      1336
                               66331              SB3    B3+B1                                                   END      1337
          1206  13472                             BX4    X7-X2                                                   END      1338
                     0304001210 +                 ZR     X4,DLF75    IF SAME BLOCK AS PREVIOUS                   END      1339
                               67331              SB3    B3-B1       SET TO RE-PROCESS LAST ENTRY                END      1340
          1207  10122                             BX1    X2                                                      END      1341
                     22702                        LX7    X2                                                      END      1342
                                                                                                                 END      1343
          1210  15310                    DLF75    BX3    -X0*X1      ISOLATE FILL BYTE                           END      1344
                     56130                        SA1    B3                                                      END      1345
                          0450001204 +            ZR     B5,DLF6     IF LOWER                                    END      1346
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    43
                                                                      DLF 
  
          1211  22623                             LX6    X3,B2                                                   END      1347
                     67525                        SB5    B2-B5       INDICATE NEXT IS LOWER                      END      1348
                          0400001205 +            EQ     DLF7                                                    END      1349
  
  
  
  
                                        **        DTX -  DUMP *TEXT* TABLE.                                      END      1351
                                        *         IF TABLE IS EMPTY, NO WRITE WILL TAKE PLACE, BUT THE TABLE     END      1352
                                        *                WILL BE RESET TO INDICATE *EMPTY* AND (ORG).            END      1353
                                        *         USES   A1-A4,A6,A7  B2,B3,B5-B7                                END      1354
                                        *         CALLS  WLF.                                                    FEAT126C  115
                                                                                                                 END      1356
                                                                                                                 END      1357
          1212  5110000000 X             DTX7     SA1    ORG                                                     END      1358
                          76210                   =X2    1                                                       END      1359
                               13777              BX7    0                                                       END      1360
          1213  20222                             LX2    P.BTRL                                                  END      1361
                     5170000367 +                 SA7    BT.TXRB                                                 END      1362
                               36612              IX6    X1+X2       ADJUST INTERNAL BLOCK ORDINAL TO LOADER     END      1363
                                                                           BLOCK NUMBER.                         END      1364
          1214  55671                             SA6    A7-B1                                                   END      1365
                     55761                        SA7    A6-B1                                                   END      1366
                                                                                                                 END      1367
          1215  0400401215 +             DTX      SUBR               ENTRY/EXIT...                               END      1368
          1216  5110000365 +                      SA1    BT.TXWC                                                 END      1369
                          7271777760              SX7    X1-15                                                   END      1370
          1217  7160004000                        SX6    BT=TEXT                                                 END      1371
                          0301001212 +            ZR     X1,DTX7     IF EMPTY TABLE, AVOID..                     END      1372
          1220  54311                             =A3    A1+1                                                    END      1373
                     20702                        LX7    2                                                       END      1374
                          54231                   SA2    A3+B1       BT.TXRB WORD                                END      1375
                               73111              SX1    X1+B1                                                   END      1376
          1221  20660                             LX6    P.BTCN                                                  END      1377
                     63711                        SB7    X1+B1                                                   END      1378
                          63370                   SB3    X7          SHIFT FOR PARTIAL TABLE RELOC BYTES         END      1379
                               20144              LX1    P.BTWC                                                  END      1380
          1222  12363                             BX3    X6+X3                                                   END      1381
                     64630                        SB6    A3                                                      END      1382
                          36631                   IX6    X3+X1                                                   END      1383
                               23732              AX7    X2,B3                                                   END      1384
          1223  54630                             SA6    A3                                                      END      1385
                     54720                        SA7    A2                                                      END      1386
                          0100001604 +            WLGO   B6,B7                                                   END      1387
          1224  0400001212 +                      EQ     DTX7                                                    END      1388
  
  
  
  
                                        **        KAP -  COMPILE AP-LISTS.                                       END      1390
                                        *         RELOCATES AND RE-FORMATS *TP.APL* INTO BINARY LOADER TEXT.     END      1391
                                        *         ENTRY  (X1) = ORIGIN OF AP-LISTS.                              END      1392
                                        *         USES   ALL                                                     END      1393
                                        *         CALLS  DTX, REL, STX.                                          END      1394
                                                                                                                 END      1395
                                                                                                                 END      1396
          1225  0400401225 +             KAP      SUBR               ENTRY/EXIT...                               END      1397
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    44
                                                                      KAP 
  
          1226  13777                             BX7    0                                                       END      1398
                     10611                        BX6    X1                                                      END      1399
                          5170000407 +            SA7    BINWORD                                                 END      1400
          1227  5160000000 X                      SA6    ORG                                                     END      1401
                          54771                   SA7    A7+B1                                                   END      1402
                               43652              MX6    -L.LBIAS                                                END      1403
          1230  5160001566 +                      SA6    RELMASK                                                 END      1404
                          0100001215 +            RJ     DTX         RESET TEXT TABLE                            END      1405
                                                                                                                 END      1406
          1231  5140000000 X             KAP2     SA4    TP=APL                                                  END      1407
                          5120000000 X            SA2    TP.APL                                                  END      1408
          1232  43373                             MX3    -1                                                      END      1409
                     36743                        IX7    X4+X3       DECREMENT LENGTH OF TABLE                   END      1410
                          73621                   SX6    X2+B1       INCREMENT ORIGIN OF TABLE                   END      1411
                               53120              SA1    X2          FETCH TABLE ENTRY                           END      1412
          1233  0304001225 +                      ZR     X4,EXIT.    IF TABLE EXHAUSTED                          END      1413
                          54740                   SA7    A4                                                      END      1414
                               54620              SA6    A2                                                      END      1415
          1234  13222                             BX2    0                                                       END      1416
                     0301001277 +                 ZR     X1,KAP8     NO RELOCATION FOR +-0                       END      1417
                               43047              MX0    -L.APIO                                                 END      1418
          1235  0331001277 +                      MI     X1,KAP8     NO RELOCATION FOR NEGATIVE ENTRIES (PLUGS). END      1419
                          15510                   BX5    -X0*X1                                                  END      1420
                               11101              BX1    X0*X1       REMOVE I/O BITS                             END      1421
          1236  20160                             LX1    P.LTAG-P.ATAG     ADJUST TO LONG FILE FORM              END      1422
                     0305001275 +                 ZR     X5,KAP7     IF NORMAL (NOT I/O) ITEM                    END      1423
                               13666              BX6    0           CLEAR ACCUMULATOR FOR EXTRA GOODIES         END      1424
          1237  7100200000                        =X0    M.AVAR                                                  END      1425
                          11305                   BX3    X0*X5                                                   END      1426
                               20351              LX3    P.IOIND-P.AVAR    COPY *IOIND* BIT                      END      1427
          1240  20001                             LX0    P.AFIT-P.AVAR                                           END      1428
                     11205                        BX2    X0*X5                                                   END      1429
                          20252                   LX2    P.IOFIT-P.AFIT    COPY VARIABLE FIT BIT                 END      1430
                               12632              BX6    X3+X2                                                   FCC0589     6
          1241  20003                             LX0    P.ALCM-P.AFIT                                           FCC0589     7
                     11305                        BX3    X0*X5                                                   END      1440
                          20347                   LX3    P.IOLCM-P.ALCM                                          END      1441
                               43057              MX0    -L.ASIZ                                                 END      1442
          1242  15250                             BX2    -X0*X5      ISOLATE *ASIZ*                              END      1444
                     12663                        BX6    X6+X3       COPY *LCM* BIT                              END      1445
                          21515                   AX5    P.ATYP                                                  END      1446
                               43471              MX4    -L.ATYP                                                 END      1447
          1243  15754                             BX7    -X4*X5                                                  END      1448
                     63770                        SB7    X7          ISOLATE *ATYP* FIELD                        END      1449
                          73520                   SX5    X2                                                      END      1450
          1244  0277001245 +                      JP     B7+*+1                                                  END      1451
                                                                                                                 END      1452
      L      0                                    LOC    0           APTYP     ?ASIZ?                            END      1453
                                                                                                                 END      1454
      L      0  0400001274 +                      EQ     KAP6          0       IGNORE                            END      1455
                                                                                                                 END      1456
      L      1  0400001257 +                      EQ     KAP4          1       SIZE                              END      1457
                                                                                                                 END      1458
      L      2  5130000000 X                      SA3    BA.CON        2       CON-TAG ORDINAL                   END      1459
                          0400001254 +            EQ     KAP3                                                    END      1460
                                                                                                                 END      1461
      L      3  5130000000 X                      SA3    BA.TEM        3     VAR-DIM TAG ORDINAL                 END      1462
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    45
                                                                      KAP 
  
                          0400001305 +            EQ     KAP10                                                   END      1463
                                                                                                                 END      1464
      L      4  5130000000 X                      SA3    TA.PRO        4       PRO-TAG ORDINAL                   END      1465
                          0400001301 +            EQ     KAP9                                                    END      1466
                                                                                                                 END      1467
      L      5  22105                             LX1    X5            5       OUTPUT CONTROL                    END      1468
                     13222                        BX2    0                                                       END      1469
                          20160                   LX1    P.IOTYP                                                 END      1470
      L      6  0400001277 +                      EQ     KAP8         NO RELOCATION                              END      1471
          1254                                    LOC    *O                                                      END      1472
                                                                                                                 END      1473
          1254  36535                    KAP3     IX5    X3+X5                                                   END      1474
                     76410                        =X4    1                                                       END      1475
                          20471                   LX4    P.IOIND                                                 END      1476
                               12664              BX6    X6+X4       SET INDIRECT BIT                            END      1477
          1255  7170000010                        SX7    10B                                                     END      1478
                          20506                   LX5    P.IOSIZ-P.IOLEN                                         END      1479
          1256  5170000410 +                      SA7    BINREL      INDICATE UPPER ADDRESS RELOCATABLE          END      1480
                                                                                                                 END      1481
          1257  5120000000 X             KAP4     SA2    TS.SYM                                                  END      1482
                          10311                   BX3    X1                                                      END      1483
                               20530              LX5    P.IOLEN                                                 END      1484
          1260  36656                             IX6    X5+X6                                                   END      1485
                     43057                        MX0    -L.PWF                                                  END      1486
                          21336                   AX3    P.LTAG                                                  END      1487
                               15430              BX4    -X0*X3      TAG ORDINAL                                 END      1488
          1261  21315                             AX3    L.PWF       TAG TYPE                                    END      1489
                     6273777767                   SB7    X3-C.VAR/1S13                                           END      1490
          1262  0570001271 +                      NZ     B7,KAP5     IF NOT VARIABLE TAG                         END      1491
                          36224                   IX2    X2+X4                                                   END      1492
                               43766              MX7    -L.FPNO                                                 END      1493
          1263  53320                             SA3    X2          FETCH TAG WORD                              END      1494
                     43071                        MX0    -L.MODE                                                 END      1495
                          15530                   BX5    -X0*X3      ISOLATE TYPE                                END      1496
                               21322              AX3    P.FPNO                                                  END      1497
          1264  20560                             LX5    P.IOTYP                                                 END      1498
                     15737                        BX7    -X7*X3                                                  END      1499
                          12656                   BX6    X5+X6                                                   END      1500
          1265  0307001274 +                      ZR     X7,KAP6     IF NOT A FORMAL PARAMETER                   END      1501
                          21114                   AX1    P.LBIAS                                                 END      1502
                               76510              =X5    1                                                       END      1503
          1266  43052                             MX0    -L.LBIAS                                                END      1504
                     37775                        IX7    X7-X5                                                   END      1505
                          15310                   BX3    -X0*X1                                                  END      1506
                               12167              BX1    X6+X7       *FP* NUMBER                                 END      1507
          1267  20572                             LX5    P.IOFP      SET *IOFP* BIT                              END      1508
                     5120000410 +                 SA2    BINREL                                                  END      1509
                               20306              LX3    L.IOARG                                                 END      1510
          1270  12115                             BX1    X1+X5                                                   END      1511
                     12113                        BX1    X1+X3                                                   END      1512
                          0400001277 +            EQ     KAP8        NO RELOCATION FOR FORMAL PARAMETER          END      1513
                                                                                                                 END      1514
                                        **        TAG IS TEMP OR CONSTANT --                                     END      1515
                                        *                (BIAS) FIELD CONTAINS THE MODE.                         END      1516
                                                                                                                 END      1517
                                                  SYMASK (LBIAS)                                                 END      1518
          1271  5130001615 +             KAP5     SA3    ="E"B                                                   END      1519
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    46
                                                                      KAP 
  
                          11231                   BX2    X3*X1                                                   END      1520
                               15113              BX1    -X3*X1      CLEAR OLD BIAS FIELD                        END      1521
          1272  21203                             AX2    L.MODE                                                  END      1522
                     11032                        BX0    X3*X2       EXTRACT ACTUAL OFFSET                       END      1523
                          36110                   IX1    X1+X0                                                   END      1524
                               15523              BX5    -X3*X2      EXTRACT MODE                                END      1525
          1273  20547                             LX5    P.IOTYP-P.LBIAS+L.MODE                                  END      1526
                     12656                        BX6    X5+X6                                                   END      1527
                                                                                                                 END      1528
          1274  5160000407 +             KAP6     SA6    BINWORD                                                 END      1529
                                                                                                                 END      1530
          1275  66210                    KAP7     =B2    1           INDICATE LOWER ADDRESS                      END      1531
                     10511                        BX5    X1                                                      END      1532
                          0100001504 +            RJ     REL         RELOCATE THE ADDRESS                        END      1533
          1276  5110000407 +                      SA1    BINWORD                                                 END      1534
                          54211                   =A2    A1-BINWORD+BINREL                                       END      1535
                                                                                                                 END      1536
          1277  0100001567 +             KAP8     RJ     STX         STORE INTO TEXT TABLE                       END      1537
          1300  0400001231 +                      EQ     KAP2        LOOP..                                      END      1538
                                                                                                                 END      1539
                                        **        TAG IS PROGRAM --                                              END      1540
                                        *                USED FOR *ERR=* ADDRESS FIELD                           END      1541
                                                                                                                 END      1542
          1301  36535                    KAP9     IX5    X3+X5                                                   END      1543
                     7170000004                   =X7    4                                                       END      1544
                               53350              SA3    X5          FETCH TABLE ENTRY                           END      1545
          1302  5170000410 +                      SA7    BINREL      INDICATE UPPER ADDRESS RELOCATABLE          END      1546
                          73630                   SX6    X3                                                      END      1547
                               20636              LX6    30          MOVE TO UPPER                               END      1548
          1303  0323001274 +                      PL     X3,KAP6     IF CODE-RELATIVE                            END      1549
                          5150000000 X            SA5    BA.APL                                                  END      1550
          1304  20536                             LX5    30                                                      END      1551
                     36656                        IX6    X5+X6                                                   END      1552
                          0400001274 +            EQ     KAP6                                                    END      1553
          1305  5120000000 X             KAP10    SA2    TEM.MAX                                                 END      1554
                          7242457777              SX4    X2-C.TEM                                                END      1555
          1306  36334                             IX3    X3+X4                                                   END      1556
                     0400001254 +                 EQ     KAP3                                                    END      1557
  
  
  
  
                                        **        KCF -  COMPILE CONSTANTS AND FORMATS.                          END      1559
                                        *         ENTRY  (X1) = ORIGIN OF CONSTANTS.                             END      1560
                                                                                                                 END      1561
                                                                                                                 END      1562
          1307  0400401307 +             KCF      SUBR               ENTRY/EXIT...                               END      1563
          1310  5120000000 X                      SA2    TS.CON                                                  END      1564
                          5130000000 X            SA3    TS=CON                                                  END      1565
          1311  22701                             LX7    X1                                                      END      1566
                     13666                        BX6    0                                                       END      1567
                          5170000000 X            SA7    ORG                                                     END      1568
          1312  54630                             SHRINK A3,X6       DE-ALLOCATE CONSTANT TABLE                  END      1569
                     63430                        SB4    X3          B4 = LENGTH OF TABLE                        END      1570
                          53520                   SA5    X2                                                      END      1571
          1313  0100001215 +                      RJ     DTX         INITIALIZE TABLE                            END      1572
          1314  0440001317 +                      ZR     B4,KCF5     IF NO CONSTANTS                             END      1573
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    47
                                                                      KCF 
  
                                                                                                                 END      1574
          1315  43200                    KCF2     MX2    0                                                       END      1575
                     10155                        BX1    X5                                                      END      1576
                          0100001567 +            RJ     STX                                                     END      1577
          1316  67441                             SB4    B4-B1                                                   END      1578
                     54551                        SA5    A5+B1                                                   END      1579
                          0540001315 +            NZ     B4,KCF2     IF TABLE NOT EXHAUSTED                      END      1580
                                                                                                                 END      1581
                                        *         DUMP FORMATS.                                                  END      1582
                                                                                                                 END      1583
          1317  5120000000 X             KCF5     SA2    TP.FMT                                                  END      1584
                          5130000000 X            SA3    TP=FMT                                                  END      1585
          1320  13666                             BX6    0                                                       END      1586
                     63430                        SB4    X3                                                      END      1587
                          53520                   SA5    X2                                                      END      1588
          1321  0440001307 +                      ZR     B4,EXIT.    IF NO FORMATS                               END      1589
                          54630                   SHRINK A3,X6       DE-ALLOCATE FORMAT TABLE                    END      1590
                                                                                                                 END      1591
          1322  43200                    KCF6     MX2    0                                                       END      1592
                     10155                        BX1    X5                                                      END      1593
                          0100001567 +            RJ     STX                                                     END      1594
          1323  67441                             SB4    B4-B1                                                   END      1595
                     54551                        SA5    A5+B1                                                   END      1596
                          0540001322 +            NZ     B4,KCF6     IF TABLE NOT EXHAUSTED                      END      1597
          1324  0400001307 +                      EQ     EXIT.                                                   END      1598
  
  
  
  
                                        **        KNS -  COMPILE *NAMELIST* SPACE.                               END      1600
                                        *         RELOCATES AND RE-FORMATS *TP.NLST* INTO BINARY LOADER TEXT.    END      1601
                                        *         ENTRY  (X1) = ORIGIN FOR NAMELIST GROUP DESCRIPTORS.           END      1602
                                        *         USES   ALL                                                     END      1603
                                        *         CALLS  DTX, REL, STX.                                          END      1604
                                                                                                                 END      1605
                                                                                                                 END      1606
          1325  76600                    KNS9     SHRINK TP=NLST,0                                               END      1607
                                                                                                                 END      1608
          1326  0400401326 +             KNS      SUBR               ENTRY/EXIT...                               END      1609
                                                                                                                 END      1610
                                         SNAP=E   IFNE   TEST        DUMP NAMELIST TABLE                         END      1611
                                                  SA2    CO.SNAP                                                 END      1612
                                                  LX2    1RE                                                     END      1613
                                                  PL     X2,KNS1S    IF NO *END* SNAP SELECTED                   END      1614
                                                  DUMPT  (TP.NLST)                                               END      1615
                                         KNS1S    BSS    0                                                       END      1616
                                         SNAP=E   ENDIF                                                          END      1617
          1327  10611                             BX6    X1                                                      END      1618
                     5160000000 X                 SA6    ORG                                                     END      1619
                               43652              MX6    -L.LBIAS                                                END      1620
          1330  5160001566 +                      SA6    RELMASK                                                 END      1621
                          0100001215 +            RJ     DTX         INITIALIZE TEXT TABLE                       END      1622
                                                                                                                 END      1623
          1331  5120000000 X             KNS2     SA2    TP=NLST                                                 END      1624
                          5130000000 X            SA3    TP.NLST                                                 END      1625
          1332  43473                             MX4    -1                                                      END      1626
                     36724                        IX7    X2+X4       SHRINK TABLE BY ONE WORD                    END      1627
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    48
                                                                      KNS 
  
                          53130                   SA1    X3                                                      END      1628
                               73631              =X6    X3+1                                                    END      1629
          1333  0302001325 +                      ZR     X2,KNS9     IF TABLE EXHAUSTED                          END      1630
                          54720                   SA7    A2                                                      END      1631
                               54630              SA6    A3                                                      END      1632
          1334  13222                             BX2    0                                                       END      1633
                     0100001567 +                 RJ     STX         OUTPUT GROUP-NAME WORD                      END      1634
          1335  0400001353 +                      EQ     KNS7                                                    END      1635
                                                                                                                 END      1636
                                        **        OUTPUT ITEM-NAME WORD                                          END      1637
                                                                                                                 END      1638
          1336  13222                    KNS4     =X2                                                            END      1639
                     0100001567 +                 RJ     STX         OUTPUT ITEM-NAME WORD                       END      1640
                                                                                                                 END      1641
          1337  5120000000 X                      SA2    TP=NLST                                                 END      1642
                          5130000000 X            SA3    TP.NLST                                                 END      1643
          1340  43473                             MX4    -1                                                      END      1644
                     36724                        IX7    X2+X4       SHRINK TABLE BY ONE WORD                    END      1645
                          53530                   SA5    X3                                                      END      1646
                               73631              =X6    X3+1                                                    END      1647
          1341  0302000000 X                      ZR     X2,E.ZA     IF TABLE EXHAUSTED                          END      1648
                          43236                   MX2    -P.DIM                                                  END      1649
                               54720              SA7    A2                                                      END      1650
          1342  54630                             SA6    A3                                                      END      1651
                     11625                        BX6    X2*X5                                                   END      1652
                          66210                   =B2    1           INDICATE LOWER PARCEL                       END      1653
                               15552              BX5    -X2*X5                                                  END      1654
          1343  63650                             SB6    X5          SAVE TAG                                    FCC1434X    7
                     5160000407 +                 SA6    BINWORD                                                 END      1655
                               20536              LX5    P.LTAG                                                  END      1656
          1344  0100001504 +                      RJ     REL         COMPUTE ADDRESS RELOCATION                  END      1657
          1345  5110000407 +                      SA1    BINWORD                                                 END      1658
                                                                                                                 FCC1434X    8
                                         #MD      IFEQ   .DAL,1                                                  FCC1434X    9
                                                                                                                 FCC1434X   10
                          76560                   SX5    B6          RESTORE TAG                                 FCC1434X   11
                               10611              BX6    X1          SAVE (BINWORD)                              FCC1434X   12
          1346  20552                             LX5    P.2TAG                                                  FCC1434X   13
                     0100000000 X                 RJ     =XCLT       CHECK FOR LCM TAG                           FCC1434X   14
          1347  10166                             BX1    X6          (BINWORD)                                   FCC1434X   15
                     0313001351 +                 NZ     X3,KNS5     IF NOT LCM TAG                              FCC1434X   16
                               43001              MX0    1                                                       FCC1434X   17
          1350  20036                             LX0    1+29                                                    FCC1434X   18
                     12101                        BX1    X0+X1       INSERT LCM BIT                              FCC1434X   19
          1351                           KNS5     BSS    0                                                       FCC1434X   20
                                                                                                                 FCC1434X   21
                                         #MD      ENDIF                                                          FCC1434X   22
                                                                                                                 FCC1434X   23
          1351  5120000410 +                      SA2    BINREL                                                  FCC1434X   24
          1352  0100001567 +             KNS6     RJ     STX         OUTPUT ADDRESS WORD                         END      1660
                                                                                                                 END      1661
                                        **        CHECK FOR FURTHER DIM-WORDS.                                   END      1662
                                                                                                                 END      1663
          1353  5120000000 X             KNS7     SA2    TP=NLST                                                 END      1664
                          5130000000 X            SA3    TP.NLST                                                 END      1665
          1354  43473                             MX4    -1                                                      END      1666
                     36724                        IX7    X2+X4       SHRINK TABLE BY ONE WORD                    END      1667
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    49
                                                                      KNS 
  
                          53130                   SA1    X3                                                      END      1668
                               73631              =X6    X3+1                                                    END      1669
          1355  0302000000 X                      ZR     X2,E.ZA     IF TABLE EXHAUSTED                          END      1670
                          13222                   BX2    0                                                       END      1671
                               43306              MX3    CHAR                                                    END      1672
          1356  54720                             SA7    A2                                                      END      1673
                     54630                        SA6    A3                                                      END      1674
                          11031                   BX0    X3*X1       ISOLATE UPPER CHARACTER                     END      1675
          1357  0310001336 +                      NZ     X0,KNS4     IF NEW ITEM-NAME WORD                       END      1676
                          0311001352 +            NZ     X1,KNS6     IF NOT END-OF-GROUP WORD                    END      1677
          1360  0100001567 +                      RJ     STX                                                     END      1678
          1361  0400001331 +                      EQ     KNS2        CONTINUE..                                  END      1679
  
  
  
  
                                        **        LFS    - LIST FINAL STATISTICS                                 FEAT155G  266
                                        *                                                                        FEAT155G  267
                                        *         ENTRY  (X1) = MAX CORE REQUIRED BY THIS PROGRAM UNIT           FEAT155G  268
                                        *         EXIT TO LFSX                                                   FEAT155G  269
          1362                           LFS      BSS    0                                                       FEAT155G  270
          1362  0100000000 X                      PIA                                                            FEAT155G  271
          1363  20660                             LX6    -2*CHAR                                                 FEAT155G  272
                     5160001372 +                 SA6    LFS.MAX                                                 FEAT155G  273
                                                                                                                 FEAT155G  274
                                         TEST     IFNE   TEST        NUMBER OF TABLE CRASHES IN *TEST* MODE      FEAT155G  275
                                                  SA1    =XMOVES                                                 FEAT155G  276
                                                  ZR     X1,LFS1     IF NO CRASHES                               FEAT155G  277
                                                  RJ     CDD                                                     FEAT155G  278
                                                  SA6    A1                                                      FEAT155G  279
                                                  PLINE  A1,3,1                                                  FEAT155G  280
                                         LFS1     PIA    =XPARSLEN                                               FEAT155G  281
                                                  LX6    -2*CHAR                                                 FEAT155G  282
                                                  SA6    A1                                                      FEAT155G  283
                                                  PLINE A1,4,1       OUTPUT LARGEST PARSED FILE LENGTH           FEAT155G  284
                                         TEST     ENDIF                                                          FEAT155G  285
                                                                                                                 FEAT155G  286
          1364  5120000000 X                      SA2    =XTIME1                                                 FEAT155G  287
                          0100000000 X            RJ     =XCPTIM     ELAPSED TIME FOR SUBPROGRAM                 FEAT155G  288
          1365  5160001375 +                      SA6    LFS.TM                                                  FEAT155G  289
                          0100000000 X            RJ     =XTIMER                                                 FEAT155G  290
          1366  5160000000 X                      SA6    =XTIME1     RESET TIME                                  FEAT155G  291
                          7110001372 +            PLINE  LFSE,5,1                                                FEAT155G  292
          1371  0400000243 +                      EQ     LFSX        EXIT                                        FEAT155G  293
                                                                                                                 FEAT155G  294
                                                                                                                 FEAT155G  295
          1372                           LFSE     BSS    0                                                       FEAT155G  296
          1372  51150130031722055255     LFS.MAX  DIS    1,(MAXCORE)                                             FEAT155G  297
          1373  55031555232417220107              DIS    2, "SCM" STORAGE USED                                   FEAT155G  298
          1375  51032024111552555555     LFS.TM   DIS    1,(CPTIM)                                               FEAT155G  299
          1376  55230503171604230000              DIS    ,/ SECONDS/                                             FEAT155G  300
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    50
                                                                      RAD 
  
                                        **        RAD -  RELOCATE AND DUMP *LONG FILE*.                          END      1681
                                        *         ENTRY  (X1) = ORIGIN OF PROGRAM TEXT                           END      1682
                                        *         USES   ALL                                                     END      1683
                                        *         CALLS  DTX, RIN, REL, STX.                                     FEAT126C  116
                                                                                                                 END      1685
          1377                     1     RADA     BSSZ   1           STORAGE FOR PACKED 15 BIT INSTRUCTIONS      FEAT155C  160
          1400                     1     RADB     BSS    1           STORAGE FOR READW INPUT                     FEAT155C  161
                                                                                                                 END      1686
          1401  0400401401 +             RAD      SUBR               ENTRY/EXIT...                               END      1687
                                                                                                                 END      1688
                                         SNAP=F   IFNE   TEST        DUMP LONG FILE                              END      1689
                                                  SA4    CO.SNAP                                                 END      1690
                                                  LX4    1RF                                                     END      1691
                                                  PL     X4,RADS     IF LONG FILE SNAP NOT SELECTED              END      1692
                                                  DUMPT  (TT.LF)                                                 END      1693
                                         RADS     BSS    0                                                       END      1694
                                         SNAP=F   ENDIF                                                          END      1695
                                                                                                                 END      1696
          1402  5130000000 X                      SA3    MOD                                                     END      1697
                          20363                   SBIT   X3,PBLK                                                 END      1699
          1403  7170000003                        SX7    3                                                       END      1700
                          10611                   BX6    X1                                                      END      1701
          1404  5160000000 X                      SA6    ORG                                                     END      1702
                          0333001401 +            MI     X3,EXIT.    IF *BLOCKDATA*                              END      1703
          1405  5170000000 X                      SA7    PARCEL                                                  END      1704
                          0100001215 +            RJ     DTX         INITIALIZE TABLE                            END      1705
          1406  43652                             MX6    -18                                                     END      1706
                     5160001566 +                 SA6    RELMASK                                                 END      1707
                                                                                                                 END      1708
                                        *         READ NEXT INSTRUCTION FROM TT.LF.                              FEAT155C  162
                                                                                                                 FEAT155C  163
          1407  5120001377 +             RAD2     SA2    RADA                                                    FEAT155C  164
                          0312001422 +            NZ     X2,RAD23    IF READING PACKED INSTRUCTION               FEAT155C  165
          1410  5140000000 X                      SA4    BINIO                                                   FEAT155C  166
                          5110000000 X            SA1    TT=LF                                                   FEAT155C  167
          1411  0314001415 +                      NZ     X4,RAD21    IF TT.LF ON DISK                            FEAT155C  168
                          5120000000 X            SA2    TT.LF                                                   FEAT155C  169
          1412  43373                             MX3    -1                                                      FEAT155C  170
                     36713                        IX7    X1+X3       SHRINK LONG FILE BY ONE WORD                FEAT155C  171
                          73621                   =X6    X2+1                                                    FEAT155C  172
                               53520              SA5    X2                                                      FEAT155C  173
          1413  0301001401 +                      ZR     X1,EXIT.    IF TABLE EXHAUSTED                          FEAT155C  174
                          54710                   SA7    A1                                                      FEAT155C  175
                               54620              SA6    A2                                                      FEAT155C  176
          1414  0400001420 +                      EQ     RAD22                                                   FEAT155C  177
                                                                                                                 FEAT155C  178
          1415  6160001400 +             RAD21    READW  F.LF,RADB,1                                             FEAT155C  179
          1417  5150001400 +                      SA5    RADB        FETCH WORD READ                             FEAT155C  180
                          0305001401 +            ZR     X5,EXIT.    IF TABLE EXHAUSTED                          FEAT155C  181
                                                                                                                 FEAT155C  182
          1420  43355                    RAD22    MX3    45          MASK OFF LOW ORDER 12 BITS                  FEAT155C  183
                     15253                        BX2    -X3*X5                                                  FEAT155C  184
                          12732                   BX7    X3+X2                                                   FEAT155C  185
          1421  0317001424 +                      NZ     X7,RAD24    IF NOT PACKED INSTRUCTION                   FEAT155C  186
                          11235                   BX2    X3*X5                                                   FEAT155C  187
                                                                                                                 FEAT155C  188
          1422  43317                    RAD23    MX3    15                                                      FEAT155C  189
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    51
                                                                      RAD 
  
                     11532                        BX5    X3*X2       ISOLATE TOP INSTRUCTION                     FEAT155C  190
                          15723                   BX7    -X3*X2      REMOVE FROM PACKAGE                         FEAT155C  191
                               20717              LX7    15          REPOSITION                                  FEAT155C  192
          1423  5170001377 +                      SA7    RADA        STORE PACKAGE REMNANTS                      FEAT155C  193
                                                                                                                 FEAT155C  194
          1424  43114                    RAD24    MX1    L.LI12                                                  FEAT155C  195
                     5120000000 X                 SA2    PARCEL                                                  END      1712
                               11315              BX3    X1*X5       ISOLATE *GHIJ*                              END      1713
          1425  43672                             MX6    -2          X6 = -3                                     END      1714
                     6222777775                   SB2    X2-2                                                    END      1715
                               20306              LX3    L.LGH                                                   END      1716
                                                                                                                 END      1717
                                         .76      IFEQ   .CPU,76                                                 END      1718
                                                                                                                 END      1719
                                                  BX4    X3                                                      END      1720
                                                  LX4    3           X4 = GHI                                    END      1721
                                                  SB5    X4-014B                                                 END      1722
                                                  MI     B5,RAD25    IF GHI LESS THAN *014*                      END      1723
                                                  SB5    X4-016B                                                 END      1724
                                                  PL     B5,RAD25    IF GHI GREATER THAN *015*                   END      1725
                                                                                                                 END      1726
                                        *         HERE IF R/W LCM                                                END      1727
                                                                                                                 END      1728
                                                  SA4    X4+=XPIK=LCM-014B X4 = INST SKELETON                    END      1729
                                                  EQ     RAD27                                                   END      1730
                                                                                                                 END      1731
                                         RAD25    BSS    0                                                       END      1732
                                                                                                                 END      1733
                                         .76      ENDIF                                                          END      1734
                                                                                                                 END      1735
          1426  5243000000 X                      SA4    X3+PIK=PS   X4 = INST SKELETON                          END      1736
          1427  20307                    RAD27    LX3    L.LI12-L.LGH+1    X3 = (GHIJ)*2                         END      1737
                     21474                        AX4    60                                                      END      1738
                          23013                   AX0    X3,B1       X0 = (GHIJ)                                 END      1739
                               36336              IX3    X3+X6                                                   END      1740
          1430  11743                             BX7    X4*X3       X7 = + LONG, 0 SHORT, - CALL                END      1741
                     27307                        PX3    X7                                                      END      1742
                          24703                   NX7    X3                                                      END      1743
                               26307              UX3    X7                                                      END      1744
          1431  7200777677                        SX0    X0-100B                                                 END      1745
                          21357                   AX3    47          X3 = +1    ,   0    ,    -1                 END      1746
                               14733              BX7    -X3            = -1    ,  -0    ,    +1                 END      1747
          1432  37376                             IX3    X7-X6          = +2    ,  +3    ,    +4                 END      1748
                     11040                        BX0    X4*X0       X0 = + LONG, 0 SHORT, - ALL PSEUDOS         END      1749
                          15436                   BX4    -X6*X3      X4 = +2    ,  +3    ,    +0                 END      1750
                               63342              SB3    X4+B2                                                   END      1751
          1433  0703001440 +                      GT     B3,B0,RAD3  IF ENOUGH ROOM FOR INST                     END      1752
                                                                                                                 END      1753
                                        **        BEGIN NEW WORD -- PAD OUT (BINWORD) WITH (PARCEL) NO-OPS       END      1754
                                                                                                                 END      1755
                          5130001616 +            SA3    =460006100046000B                                       END      1756
          1434  43717                             MX7    L.LI15                                                  END      1757
                     77202                        SX2    -B2         = 2 - (PARCEL)                              END      1758
                          5110000407 +            SA1    BINWORD                                                 END      1759
          1435  20204                             LX2    4           = 32 - 16*P                                 END      1760
                     63722                        SB7    X2+B2       = 32-16P+P-2 = 30 - 15(P)                   END      1761
                          23777                   AX7    B7                                                      END      1762
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    52
                                                                      RAD 
  
                               54211              SA2    A1+B1                                                   END      1763
          1436  15337                             BX3    -X7*X3      GET PROPER NUMBER OF NO-OPS                 END      1764
                     36113                        IX1    X1+X3                                                   END      1765
                          0100001567 +            RJ     STX         STORE THE WORD INTO CURRENT TEXT TABLE      END      1766
          1437  5120000000 X                      SA2    PARCEL                                                  END      1767
                                                                                                                 END      1768
          1440  63220                    RAD3     SB2    X2                                                      END      1769
                     0300001464 +                 ZR     X0,RAD4     IF SHORT INSTRUCTION                        END      1770
          1441  0320001471 +                      PL     X0,RAD5     IF LONG BUT NOT PSEUDO                      END      1771
                          6240000100              SB4    X0+100B                                                 END      1772
                                                                                                                 END      1773
          1442  0244001443 +                      JP     B4+*+1                                                  END      1774
                                                                                                                 END      1775
      L      0                                    LOC    0                                                       END      1776
                                                                                                                 END      1777
      L      0  43152                             MX1    -L.LTAG     BSS                                         END      1778
                     21536                        AX5    -P.LTAG                                                 END      1779
                          0400001460 +            EQ     RAD35                                                   END      1780
                                                                                                                 END      1781
      L      1  7120000077                        SX2    0100B-I.CALL      CALL (RJ WITH TRACE)                  END      1782
                          0400001456 +            EQ     RAD34                                                   END      1783
                                                                                                                 END      1784
      L      2  7120000076                        SX2    0100B-I.RJ        RETURN JUMP (NO TRACE)                END      1785
                          0400001450 +            EQ     RAD32                                                   END      1786
                                                                                                                 END      1787
      L      3  43171                             MX1    -L.LI             JP INST                               END      1788
                     15451                        BX4    -X1*X5                                                  END      1789
                          0400001462 +            EQ     RAD37                                                   END      1790
                                                                                                                 END      1791
      L      4  7120000374                        SX2    0400B-I.EQ        UNCONDITIONAL *EQ* JUMP               END      1792
                                        *         EQ     RAD32                                                   END      1793
                                                                                                                 END      1794
          1450                                    LOC    *O                                                      END      1795
                                                                                                                 END      1796
          1450  20260                    RAD32    LX2    P.LI12                                                  END      1797
                     36552                        IX5    X5+X2       CHANGE PSEUDO TO NORMAL                     END      1798
                          0100001504 +            RJ     REL                                                     END      1799
          1451  5120000410 +                      SA2    BINREL                                                  END      1800
                          5110000407 +            SA1    BINWORD                                                 FCC0741     5
          1452  0541001454 +                      NE     B4,B1,RAD33       IF NOT *CALL*                         END      1802
                          7222000002              SX2    X2+2        INDICATE LOWER PGM REL                      END      1803
          1453  5140001502 +                      SA4    SAVETR      LINE NUM FOR TRACEBACK                      END      1804
                          12114                   BX1    X1+X4       ADD LINE NUM. BACK IN FOR TRACEBACK         END      1805
          1454  0100001567 +             RAD33    RJ     STX         STORE IN *TEXT* TABLE                       END      1806
          1455  0400001407 +                      EQ     RAD2                                                    END      1807
                                                                                                                 END      1808
          1456  43114                    RAD34    MX1    L.TRC                                                   END      1809
                     20136                        LX1    P.TRC+L.TRC                                             END      1810
                          11615                   BX6    X1*X5       SAVE LINE NUM. FOR TRACEBACK                END      1811
                               15551              BX5    -X1*X5      REMOVE LINE NUM. FROM BINWORD               END      1812
          1457  5160001502 +                      SA6    SAVETR      SAVE LINE NUM FOR TRACEBACK                 END      1813
                          0400001450 +            EQ     RAD32                                                   END      1814
                                                                                                                 END      1815
                                        **        BSS                                                            END      1816
                                                                                                                 END      1817
          1460  5130000000 X             RAD35    SA3    ORG                                                     END      1818
                          15151                   BX1    -X1*X5      ISOLATE NUMBER OF WORDS TO BE RESERVED      END      1819
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    53
                                                                      RAD 
  
                               36613              IX6    X1+X3                                                   END      1820
          1461  54630                             SA6    A3          INCREMENT ORIGIN                            END      1821
                     0400001407 +                 EQ     RAD2                                                    END      1822
                                                                                                                 END      1823
                                        **        JP                                                             END      1824
                                                                                                                 END      1825
          1462  20403                    RAD37    LX4    L.LI        POSITION THE *B-BOX*                        END      1826
                     11515                        BX5    X1*X5                                                   END      1827
                          7224000175              SX2    X4+0200B-I.JP                                           END      1828
          1463  0400001450 +                      EQ     RAD32                                                   END      1829
                                                                                                                 END      1830
                                        **        MERGE 15-BIT INST INTO (BINWORD)                               END      1831
                                                                                                                 END      1832
          1464  77721                    RAD4     SX7    B2-B1                                                   END      1833
                     76120                        SX1    B2                                                      END      1834
                          54720                   SA7    A2                                                      END      1835
          1465  5120000407 +                      SA2    BINWORD                                                 END      1836
                          20104                   LX1    4                                                       END      1837
          1466  6271000017                        SB7    X1+15                                                   END      1838
                          67372                   SB3    B7-B2                                                   END      1839
                               43017              MX0    15                                                      END      1840
          1467  11505                             BX5    X0*X5       CLEAR REST OF WORD                          END      1841
                     22535                        LX5    B3                                                      END      1842
                          12625                   BX6    X2+X5                                                   END      1843
                               54620              SA6    A2                                                      END      1844
          1470  0400001407 +                      EQ     RAD2                                                    END      1845
                                                                                                                 END      1846
                                        **        GET RELOCATION FOR 30-BIT INST.                                END      1847
                                                                                                                 END      1848
          1471  7172777775               RAD5     SX7    B2-2                                                    END      1849
                          54720                   SA7    A2          ADVANCE PARCEL COUNT                        END      1850
                                                                                                                 FEAT155G  301
                                        ***       CHECK FOR OBJECT TIME REPRIEVE INSTRUCTIONS *6102---*.         FEAT155G  302
                                        *         MUST PUT COMPLIMENT OF LENGTH OF PROGRAM UNIT IN 1ST *6102---* FEAT155G  303
                                        *         FOR OTR.                                                       FEAT155G  304
                                        *         (X5) = INSTRUCTION IN LONG FILE FORMAT                         FEAT155G  305
                                                                                                                 FEAT155G  306
          1472  5110000000 X                      SA1    CO.ER                                                   FEAT155G  307
                          0301001500 +            ZR     X1,RAD6     ER=0                                        FEAT155G  308
          1473  43114                             MX1    L.LI12                                                  FEAT155G  309
                     11315                        BX3    X1*X5                                                   FEAT155G  310
                          5140001617 +            SA4    =6102BS48                                               FEAT155G  311
          1474  13343                             BX3    X4-X3                                                   FEAT155G  312
                     0313001500 +                 NZ     X3,RAD6     IF NOT A *6102* INSTR                       FEAT155G  313
                               43322              MX3    L.TAG                                                   FEAT155G  314
          1475  20360                             LX3    48                                                      FEAT155G  315
                     11253                        BX2    X5*X3                                                   FEAT155G  316
                          20214                   LX2    L.LI12                                                  FEAT155G  317
          1476  0322001500 +                      PL     X2,RAD6     IF TAG FIELD OF  *6102*  IS POSITIVE        FEAT155G  318
                          5130001503 +            SA3    OTRSAV                                                  FEAT155G  319
          1477  43052                             MX0    -L.TAG                                                  FEAT155G  320
                     17330                        BX3    -X0-X3                                                  FEAT155G  321
                          20336                   LX3    30                                                      FEAT155G  322
                               36543              IX5    X4+X3       COMPLEMENT LENGTH OF ROUTINE TO TAG FIELD   FEAT155G  323
          1500  0100001504 +             RAD6     RJ     REL                                                     FEAT155G  324
          1501  0400001407 +                      EQ     RAD2                                                    END      1852
                                                                                                                 END      1853
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    54
                                                                      RAD 
  
          1502                     1     SAVETR   BSSZ   1           SAVE TRACEBACK LINE NUM DURING RELOCATION   END      1854
          1503                     1     OTRSAV   BSSZ   1                                                       FEAT155G  325
  
  
  
  
                                        **        REL -  RELOCATE 30-BIT INSTRUCTION.                            END      1856
                                        *                                                                        END      1857
                                        *         ENTRY  (X5) = INSTRUCTION IN LONG FILE FORM.                   END      1858
                                        *                            (PSEUDOS WILL NOT BE CHANGED.)              END      1859
                                        *                (B2) = PARCEL TO RECEIVE THIS INSTRUCTION.              END      1860
                                        *                            3 _ UPPER                                   END      1861
                                        *                            2 _ MIDDLE                                  END      1862
                                        *                            1 _ LOWER                                   END      1863
                                        *                            0 _ ** SYSERR **                            END      1864
                                        *                (ORG) = OBJECT ADDRESS OF THIS INST.                    END      1865
                                        *                (RELMASK) = COMPLEMENT MASK OF BIAS FIELD SIZE.         END      1866
                                        *                            (-18 FOR INSTRUCTIONS.)                     END      1867
                                        *                            (-24 FOR AP-LISTS.)                         END      1868
                                        *                                                                        END      1869
                                        *         EXIT   INSTRUCTION AND RELOCATION HAVE BEEN OR-ED INTO BINWORD END      1870
                                        *                            AND BINREL.                                 END      1871
                                        *                *LINK* AND *FILL* TABLE ENTRIES MADE AS NECESSARY.      END      1872
                                        *                                                                        END      1873
                                        *         USES   A1-A3,A6,A7  B3,B7  X0,X4,X5                            END      1874
                                        *         CALLS  ADW.                                                    FEAT126C  117
                                                                                                                 END      1876
                                                                                                                 END      1877
          1504  0400401504 +             REL      SUBR               ENTRY/EXIT...                               END      1878
          1505  43260                             MX2    -L.LI12                                                 END      1879
                     21514                        AX5    P.LBIAS                                                 END      1880
                          43352                   MX3    -L.LBIAS                                                END      1881
                               15353              BX3    -X3*X5      ISOLATE OFFSET                              END      1882
          1506  21522                             AX5    -P.LBIAS+P.LTAG                                         END      1883
                     73650                        SX6    X5          X6 = TAG                                    END      1884
                          10055                   BX0    X5          KEEP TAG FOR LATER ECS/LCM CHECK            END      1885
                               20222              LX2    -P.LTAG+P.LI12                                          END      1886
          1507  13777                             BX7    0           INDICATE NO RELOCATION                      END      1887
                     76400                        SX4    B0          INDICATE NO SPECIAL RELOCATION              END      1888
                          15252                   BX2    -X2*X5      X2 = 30/0, 12/GHIJ, 18/0                    END      1889
          1510  0336001565 +                      MI     X6,REL9     IF NEGATIVE TAG FIELD                       END      1890
                          43515                   MX5    L.PWF                                                   END      1891
                               20657              LX6    -L.PWF                                                  END      1892
          1511  6276777767                        SB7    X6-C.BASE/1S13                                          END      1893
                          11656                   BX6    X5*X6       ISOLATE ORDINAL                             END      1894
                               20615              LX6    L.PWF       RIGHT JUSTIFY                               END      1895
          1512  0770001542 +                      MI     B7,REL8     IF NO TAG PRESENT                           END      1896
                          76711                   =X7    2           NOMINAL RELOCATION                          END      1897
                               67321              SB3    B2-B1                                                   END      1898
          1513  22737                             LX7    B3                                                      END      1899
                     0277001514 +                 JP     B7+*+1                                                  END      1900
                                                                                                                 END      1901
      L      0                                    LOC    0                                                       END      1902
                                                                                                                 END      1903
      L      0  5110000000 X                      SA1    TA.NAM      20    VARIABLE                              END      1904
                          0400001533 +            EQ     REL5                                                    END      1905
                                                                                                                 END      1906
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    55
                                                                      REL 
  
      L      1  5110000000 X                      SA1    TA.NAM      22    VARIABLE                              END      1907
                          0400001533 +            EQ     REL5                                                    END      1908
                                                                                                                 END      1909
      L      2  5110000000 X                      SA1    TS.STN      24    STATEMENT                             END      1910
                          0400001526 +            EQ     REL4A                                                   END      1911
                                                                                                                 END      1912
      L      3  5110000000 X                      SA1    TA.PRO      26    PROGRAM                               END      1913
                          0400001530 +            EQ     REL4                                                    END      1914
                                                                                                                 END      1915
      L      4  5110000000 X                      SA1    TEM.MAX     30    VAR-DIM                               END      1916
                          0400001523 +            EQ     REL3A                                                   END      1917
                                                                                                                 END      1918
      L      5  5110000000 X                      SA1    BA.TEM      32    TEM/IND                               END      1919
                          0400001525 +            EQ     REL3                                                    END      1920
                                                                                                                 END      1921
      L      6  5110000000 X                      SA1    BA.CON      34    CONSTANT                              END      1922
                          0400001525 +            EQ     REL3                                                    END      1923
                                                                                                                 END      1924
          1523                                    LOC    *O                                                      END      1925
                                                                                                                 END      1926
                                                                                                                 END      1927
          1523  6271457777               REL3A    SB7    X1-C.TEM                                                END      1928
                          73667                   SX6    X6+B7                                                   END      1929
          1524  5110000000 X                      SA1    BA.TEM                                                  END      1930
                                        *         EQ     REL3        CONTINUE..  (ALMOST)                        END      1931
                                                                                                                 END      1932
                                                                                                                 END      1933
          1525  36661                    REL3     IX6    X6+X1       CONSTANTS, TEMPS, AP-LISTS                  END      1934
                     73660                        SX6    X6                                                      END      1935
                          0400001542 +            EQ     REL8                                                    END      1936
                                                                                                                 END      1937
                                                                                                                 END      1938
          1526  63760                    REL4A    SB7    X6          STATEMENT LABELS                            END      1939
                     53117                        SA1    X1+B7                                                   END      1940
                          21130                   AX1    P.SNAD                                                  END      1941
                               73610              SX6    X1                                                      END      1942
          1527  0400001542 +                      EQ     REL8                                                    END      1943
                                                                                                                 END      1944
          1530  63760                    REL4     SB7    X6          STATEMENT LABELS + PROGRAM TAGS             END      1945
                     53117                        SA1    X1+B7       FETCH TABLE ENTRY                           END      1946
                          73610                   SX6    X1                                                      END      1947
          1531  0321001542 +                      PL     X1,REL8     IF CODE-RELATIVE                            END      1948
                          5110000000 X            SA1    BA.APL                                                  END      1949
          1532  36616                             IX6    X1+X6                                                   END      1950
                     0400001542 +                 EQ     REL8                                                    END      1951
                                                                                                                 END      1952
                                                                                                                 END      1953
                                        **        RELOCATE A NAME TAG.                                           END      1954
                                        *         FIND ADDRESS AND BLOCK NUMBER IN TA.NAM(ORD)                   END      1955
                                        *         NEGATIVE ADDRESS INDICATES AN EXTERNAL, AND NON-ZERO BLOCK NUM END      1956
                                        *                MEANS COMMON.  FOR THOSE, PREPARE (X4) FOR ADDING TO    END      1957
                                        *                FILL/LINK TABLE.                                        END      1958
                                                                                                                 END      1959
          1533  21601                    REL5     AX6    1                                                       END      1960
                     63760                        SB7    X6                                                      END      1961
                          53117                   SA1    X1+B7       FETCH ADDRESS TABLE ENTRY                   END      1962
                               43461              MX4    -L.BLOCK+1                                              END      1963
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    56
                                                                      REL 
  
          1534  73610                             SX6    X1          ISOLATE (BLOCK-RELATIVE) VALUE              END      1964
                     21131                        AX1    P.BLOCK+1                                               END      1965
                          15414                   BX4    -X4*X1      ISOLATE BLOCK NR                            END      1966
          1535  0304001537 +                      ZR     X4,REL55    IF THE NOMINAL BLOCK                        END      1967
                          13777                   BX7    0                                                       END      1968
          1536  7244000002                        SX4    X4+2                                                    END      1969
          1537  0326001542 +             REL55    PL     X6,REL8     IF NO EXTERNAL                              END      1970
                          6130000000 X            SB3    TT.FILL                                                 END      1971
          1540  67303                             SB3    -B3                                                     END      1972
                     7113000000 X                 SX1    B3+TT.LINK                                              END      1973
                               76477              SX4    B7+B7                                                   END      1974
          1541  20122                             LX1    P.BTRL                                                  END      1975
                     76600                        SX6    B0                                                      END      1976
                          12414                   BX4    X1+X4       INDICATE EXT, VICE COMM                     END      1977
                               76700              SX7    B0                                                      END      1978
                                        *         EQ     REL8                                                    END      1979
                                                                                                                 END      1980
                                                                                                                 END      1981
                                        **        COMPUTE FINAL ADDRESS FIELD  =  [NEG] * ADDR + OFFSET          END      1982
                                        *         ENTRY  (X3) = OFFSET.                                          END      1983
                                        *                (X2) = *GHIJ*S18  (= INST SHIFTED LEFT BY 18)           END      1984
                                        *                (X4) = SPECIAL RELOCATION FLAG  --  42/WHICH, 18/ORD    END      1985
                                        *                            = 0 _ NO SPECIAL ACTION.                    END      1986
                                        *                            " 0 _ COMMON OR EXTERNAL RELOCATABLE.       END      1987
                                        *                            (ORD = BLOCK NUMBER OR TAG ORDINAL)         END      1988
                                        *                            (WHICH = WHICH TABLE TO ENTER.)             END      1989
                                        *                (X6) = PARTIAL ADDRESS                                  END      1990
                                        *                (X7) = RELOCATION ALREADY COMPUTED.                     END      1991
                                                                                                                 END      1992
          1542  20352                    REL8     LX3    -L.LBIAS    SIGN EXTEND THE BIAS                        END      1993
                     5110000407 +                 SA1    BINWORD                                                 END      1994
                               21352              AX3    -L.LBIAS                                                END      1995
          1543  36636                             IX6    X3+X6       (X6) = FINAL ADDRESS                        END      1996
                     5130001566 +                 SA3    RELMASK                                                 END      1997
                               77521              =X5    B2-1                                                    END      1998
          1544  15663                             BX6    -X3*X6      TRIM BIAS TO FIT IN RESULT FIELD SIZE       END      1999
                     20504                        LX5    4           = 16*( (PARCEL) - 1 )                       END      2000
                          77321                   SX3    B2-B1                                                   END      2001
                               12662              BX6    X6+X2                                                   END      2002
          1545  54211                             SA2    A1+B1                                                   END      2003
                     37353                        IX3    X5-X3                                                   END      2004
                          63330                   SB3    X3          = 15*( (PARCEL) - 1 )                       END      2005
                               22636              LX6    X6,B3       POSITION FINAL INSTRUCTION HALF-WORD        END      2006
          1546  12616                             BX6    X1+X6       OR INST INTO BINWORD                        END      2007
                     36772                        IX7    X7+X2       MERGE RELOC INTO BINREL                     END      2008
                          54610                   SA6    A1                                                      END      2009
                               54720              SA7    A2                                                      END      2010
          1547  0304001504 +                      ZR     X4,EXIT.    IF NO SPECIAL RELOCATION                    END      2011
                                                                                                                 END      2012
                                        **        MAKE LINK/FILL TABLE ENTRY --                                  END      2013
                                                                                                                 END      2014
                          10655                   BX6    X5                                                      END      2015
                               10500              BX5    X0                                                      END      2016
          1550  20552                             LX5    P.2TAG      TAG FOR *CLT*                               END      2017
                     0100000000 X                 RJ     =XCLT       CHECK FOR LCM/ECS TAG                       END      2018
          1551  0313001560 +                      NZ     X3,REL85    IF NOT LCM OR ECS TAG                       END      2019
                                                                                                                 END      2020
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    57
                                                                      REL 
  
                                        *         MAKE *XFILL* TABLE ENTRY --                                    END      2021
                                                                                                                 END      2022
                          73240                   SX2    X4          ISOLATE BLOCK ORDINAL                       END      2023
          1552  5110000000 X                      SA1    ORG                                                     END      2024
                          76730                   SX7    B3          LOW-ORDER BIT POSITION OF ADDRESS FIELD     END      2025
                               20106              LX1    6                                                       END      2026
          1553  12617                             BX6    X1+X7                                                   END      2027
                     20606                        LX6    6                                                       END      2028
                                                                                                                 END      2029
                                        *         WHEN DIRECT MODE (LCM=D) IS IMPLEMENTED, A TEST MUST GO IN     END      2030
                                        *         TO DETECT WHICH MODE IS IN EFFECT.  DIRECT MODE WILL MEAN      END      2031
                                        *         ADDRESS FIELDS TO BE RELOCATED ARE 18 BITS.  FOR NOW ALL       END      2032
                                        *         LCM/ECS REFERENCES ARE TO POINTER WORDS, SO THE SIZE VALUE     END      2033
                                        *         IS 21 BITS.                                                    END      2034
                                                                                                                 END      2035
                          7170000025              SX7    21                                                      END      2036
          1554  12667                             BX6    X6+X7                                                   END      2037
                     20611                        LX6    9                                                       END      2038
                          12662                   BX6    X6+X2                                                   END      2039
                               20611              LX6    9                                                       END      2040
          1555  76710                             SX7    B1                                                      END      2041
                     12667                        BX6    X6+X7       = 30/(ORG), 6/0, 6/21, 9/ORD, 9/1           END      2042
                          5110000000 X            ADDWD  =XTT.XFIL                                               END      2043
          1557  0400001504 +                      EQ     EXIT.                                                   END      2044
                                                                                                                 END      2045
          1560  10566                    REL85    BX5    X6          RESTORE X5                                  END      2046
                     73240                        SX2    X4          ISOLATE BLOCK/EXTERNAL ORDINAL              END      2047
                          5110000000 X            SA1    ORG                                                     END      2048
          1561  21422                             AX4    P.BTRL                                                  END      2049
                     20505                        LX5    L.BTRL-4                                                END      2050
                          7255004001              SX5    X5+1S11+1   X5 = 1/1, 2/(PARCEL)-1, 9/1                 END      2051
          1562  20522                             LX5    P.BTRL                                                  END      2052
                     20236                        LX2    30                                                      END      2053
                          12651                   BX6    X5+X1                                                   END      2054
                               36626              IX6    X2+X6       = 30/ORD, 12/(X5), 18/(ORG)                 END      2055
          1563  5214000000 X                      ADDWD  X4+TT.FILL                                              END      2056
                                                                                                                 END      2057
                                         SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                           END      2058
                                                  SA3    CO.SNAP                                                 END      2059
                                                  LX3    1RK                                                     END      2060
                                                  PL     X3,REL8S    IF LINK TABLE SNAP NOT SELECTED             END      2061
                                                  DUMPT  (TT.LINK)                                               END      2062
                                         REL8S    BSS    0                                                       END      2063
                                         SNAP=K   ENDIF                                                          END      2064
                                                                                                                 END      2065
          1564  0400001504 +                      EQ     EXIT.                                                   END      2066
                                                                                                                 END      2067
                                                                                                                 END      2068
                                        **        HANDLE NEGATIVE TAG FIELDS HERE.                               END      2069
                                        *                THIS ANACHRONISM SHOULD NOT BE PERMITTED TO EXIST,      END      2070
                                        *                EXCEPT THAT IT MIGHT BE DIFFICULT FOR OTHER PARTS OF    END      2071
                                        *                THE COMPILER TO LEARN HOW TO PUT ALL NUMBERS INTO THE   END      2072
                                        *                BIAS FIELDS.                                            END      2073
                                                                                                                 END      2074
          1565  20652                    REL9     LX6    -L.TAG      SIGN EXTEND                                 END      2075
                     21652                        AX6    -L.TAG                                                  END      2076
                          0400001542 +            EQ     REL8        CONTINUE AS FOR NORMAL BIAS                 END      2077
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    58
                                                                      REL 
  
                                                                                                                 END      2078
          1566                     1     RELMASK  BSS    1           COMPLEMENT MASK OF BIAS FIELD SIZE          END      2079
  
  
  
  
                                        **        STX -  STORE *TEXT* TABLE ENTRY.                               END      2116
                                        *         ENTRY  (X1) = WORD TO BE OUTPUT                                END      2117
                                        *                (X2) = RELOCATION BYTE FOR THAT WORD                    END      2118
                                        *         EXIT   TABLE UPDATED AND FLUSHED AS NECESSARY.                 END      2119
                                        *                (ORG) INCREMENTED.                                      END      2120
                                        *                (PARCEL) INDICATES EMPTY.                               END      2121
                                        *                (BINWORD) = (BINREL) = 0                                END      2122
                                        *         USES   A1,A2,A3,A4,A6,A7  B3,B4,B5,B6,B7                       END      2123
                                        *         CALLS  DTX.                                                    END      2124
                                                                                                                 END      2125
                                                                                                                 END      2126
          1567  0400401567 +             STX      SUBR               ENTRY/EXIT...                               END      2127
          1570  5130000365 +                      SA3    BT.TXWC                                                 END      2128
                          10611                   BX6    X1                                                      END      2129
          1571  5110000367 +                      SA1    BT.TXRB                                                 END      2130
                          7170000003              SX7    3                                                       END      2131
          1572  5263000370 +                      SA6    X3+BT.TEXT+2                                            END      2132
                          73631                   SX6    X3+B1                                                   END      2133
                               20104              LX1    L.BTRB                                                  END      2134
          1573  54630                             SA6    A3          UPDATE WORD COUNT                           END      2135
                     5170000000 X                 SA7    PARCEL      INDICATE EMPTY WORD                         END      2136
                               12721              BX7    X2+X1                                                   END      2137
          1574  5120000000 X                      SA2    ORG                                                     END      2138
                          7236777760              SX3    X6-15                                                   END      2139
          1575  13666                             BX6    0                                                       END      2140
                     54710                        SA7    A1                                                      END      2141
                          5160000407 +            SA6    BINWORD                                                 END      2142
          1576  76710                             =X7    1                                                       END      2143
                     36727                        IX7    X2+X7       INCREMENT ORIGIN COUNTER                    END      2144
                          54661                   SA6    A6+B1                                                   END      2145
                               54720              SA7    A2                                                      END      2146
          1577  0333001567 +                      MI     X3,EXIT.    IF NOT FULL TABLE                           END      2147
                                                                                                                 END      2148
                          0100001215 +            RJ     DTX         FLUSH TEXT TABLE                            END      2149
          1600  0400001567 +                      EQ     EXIT.                                                   END      2150
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    59
                                                                      WLF 
  
                                        **        WLF -  WRITE *LGO* FILE.                                       END      2152
                                        *                                                                        END      2153
                                        *                ALL BINARY OUTPUT MUST BE DONE THRU THIS ROUTINE.       END      2154
                                        *         PLEASE USE THE MACRO FORM, *WLGO*, TO INSURE CORRECT CALLING   END      2155
                                        *         SEQUENCE.  HANDLES COMPILE-TO-CORE AND OVERFLOW TO ECS.        END      2156
                                        *                                                                        END      2157
                                        *         ENTRY  (B6) = FWA DATA                                         END      2158
                                        *                (B7) = WORD COUNT                                       END      2159
                                        *         USES   A1-A4,A6,A7  B2,B3,B5-B7                                END      2160
                                        *         CALLS  FA=WTW.                                                 FEAT126C  118
                                                                                                                 END      2162
                                                                                                                 END      2163
                                         .CMLOD   IFNE   .CMLOD                                                  END      2164
                                         .LCM     IFNE   .LCM                                                    END      2165
                                         WLF6     SHRINK TX=LGO      JUST OVERFLOWED, LCM TO DISK                END      2166
                                         .LCM     ENDIF                                                          END      2167
                                                                                                                 END      2168
                                         WLF7     SB7    B5          JUST OVERFLOWED, SCM TO DISK                END      2169
                                                  SHRINK T=LGO                                                   END      2170
                                         .CMLOD   ENDIF                                                          END      2171
                                                                                                                 END      2172
          1601  76640                    WLF8     SX6    B4          SAVE (B4)                                   END      2173
                     5160000000 X                 SA6    =XGT1                                                   END      2174
          1602  7120000000 X                      WRITEW F.LGO,B6,B7 WRITE IT OUT WHEN ON DISK                   END      2175
          1603  5110000000 X                      SA1    =XGT1                                                   END      2176
                          63410                   SB4    X1          RESTORE (B4)                                END      2177
                                                                                                                 END      2178
          1604  0400401604 +             WLF      SUBR               ENTRY/EXIT...                               END      2179
                                                                                                                 END      2180
                                         .CMLOD   IFEQ   .CMLOD      COMPILE-TO-CORE                             END      2181
          1605  0400001601 +                      EQ     WLF8                                                    END      2182
                                         .CMLOD   ELSE                                                           END      2183
                                                  SA1    LGOIO                                                   END      2184
                                                  MI     X1,WLF8     IF *LGO* ON DISK                            END      2185
                                                  SB5    B7                                                      END      2186
                                                  IFNE   .LCM,,1                                                 END      2187
                                                  NZ     X1,WLF4     IF *LGO* IN LCM                             END      2188
                                                  ALLOC  T.LGO,B7                                                END      2189
                                                  SA1    LGOIO                                                   END      2190
                                                  MI     X1,WLF7     IF JUST OVERFLOWED TO DISK                  END      2191
                                                  IFNE   .LCM,,1                                                 END      2192
                                                  NZ     X1,WLF4     IF JUST OVERFLOWED TO LCM                   END      2193
                                                  MOVE   B6,B7-B5,B5                                             END      2194
                                                  EQ     EXIT.                                                   END      2195
                                                                                                                 END      2196
                                         .LCM     IFNE   .LCM        TRY TO MOVE IT TO LCM                       END      2197
                                         WLF4     ALLOX  TX.LGO,B7   ALLOCATE THE ECS TABLE                      END      2198
                                                  SA1    LGOIO                                                   END      2199
                                                  MI     X1,WLF6     IF JUST OVERFLOWED TO DISK                  END      2200
                                                  WLCM   B6,B5       WRITE IT TO LCM                             END      2201
                                                  EQ     EXIT.                                                   END      2202
                                         .LCM     ENDIF                                                          END      2203
                                                                                                                 END      2204
                                         .CMLOD   ENDIF                                                          END      2205
                                                  POPMAC WLGO                                                    END      2206
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    60
                                                                      ENTRY 
  
                                                  LIST   D                                                       END      2208
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        TRV 
             0 X                        PWE 
             0 X                        T=SB
             0 X                        CIO=
             0 X                        IGS 
             0 X                        ALC 
             0 X                        OT.RM 
             0 X                        COMSIZ
             0 X                        CP.LSTF 
             0 X                        COD 
             0 X                        LPS.PL
             0 X                        WCL 
             0 X                        T.LGOB
             0 X                        LB.LGO
             0 X                        WNB=
             0 X                        TT=XFIL 
             0 X                        TT.XFIL 
             0 X                        TP=CIDM 
             0 X                        WVM 
             0 X                        CP.NFLS 
             0 X                        INT.FL
             0 X                        CP.AFLS 
             0 X                        SYS=
             0 X                        T.END 
             0 X                        F.TABS
             0 X                        W.TABS
             0 X                        THRESH
             0 X                        MSG=
             0 X                        LJS 
             0 X                        CO.ID 
             0 X                        T=LNT 
             0 X                        T.LNT 
             0 X                        TP.CIDM 
             0 X                        TL.DATE 
             0 X                        TL.TIME 
             0 X                        CP.MODL 
             0 X                        CO.STA
             0 X                        M.STCRM 
             0 X                        STATIC
             0 X                        M.STRP2 
             0 X                        MVE 
             0 X                        STLTAB
             0 X                        NAME
             0 X                        N.STL 
             0 X                        L.STL 
             0 X                        CLT 
             0 X                        TIME1 
             0 X                        CPTIM 
             0 X                        TIMER 
             0 X                        RDW=
             0 X                        GT1 
             0 X                        WTW=
  
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    61
                                                                      LITERALS
  
                                        CONTENT OF LITERALS BLOCK.
  
          1606  00000040000000000000       5
          1607  55550617222422011655      FORTRAN 
          1610  05222217225511165555    ERROR IN
          1611  05222217222355111655    ERRORS IN 
          1612  03171520111401241117    COMPILATIO
          1613  16575555555555550000    N.
          1614  55474705222217222355     **ERRORS 
          1615  00000000007777770000         ;;;
          1616  00000460006100046000      D# [ D# 
          1617  61020000000000000000    [B
  
          1620                                    END                                                            END      2209
  
                             56300B CM  STORAGE USED             6142 STATEMENTS     1161 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            4.472 SECONDS        1575 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/34 X   57/23     57/36
        ALC             0   EXTERNAL*       6/43     11/25     11/27     33/01     38/48
                                           11/03     11/26     32/21     34/07
        BA.APL          0   EXTERNAL*       2/14 X   11/32     46/31     55/43
        BA.BUF          0   EXTERNAL*       2/13 X    8/56
        BA.CON          0   EXTERNAL*       2/13 X    5/22 S   11/19     44/54     55/16
        BA.FMT          0   EXTERNAL*       2/13 X    5/51
        BA.NLST         0   EXTERNAL*       2/13 X    7/36     11/36
        BA.PRO          0   EXTERNAL*       2/13 X   11/29
        BA.TEM          0   EXTERNAL*       2/14 X   44/57     55/13     55/24
        BA.VAR          0   EXTERNAL*       2/13 X    6/20      6/49
        BINIO           0   EXTERNAL*       2/13 X    5/01     50/34
        BINOUT          0   EXTERNAL*       2/13 X   31/32     31/46
        BINREL        410   PROGRAM*       18/25 L   45/18 S   45/47     46/16     46/27 S   48/49     52/38
        BINWORD       407   PROGRAM*       18/24 L   46/10 S   46/16     48/32     52/39     56/31
                                           44/03 S   46/15     48/29 S   51/54     53/17     58/33 S
        BT=ENTR      3600                  14/05 D   18/27
        BT=FILL      4200                  14/08 D   40/24
        BT=IDNT      7700                  14/20 D   15/27
        BT=LDSET     7000                  14/17 D   15/45
        BT=LIB         10                  14/18 D   15/46
        BT=LINK      4400                  14/10 D   42/10
        BT=LSTN      5700                  14/14 D   24/52
        BT=LSYM      5600                  14/15 D   29/53
        BT=MXDM         3                  18/47 D   29/29
        BT=MXWC      7777                  14/23 D   24/42     24/43
        BT=PIDL      3400                  14/04 D   33/07
        BT=REPL      4300                  14/09 D   16/45     18/08
        BT=TEXT      4000                  14/06 D   16/08     16/09     16/32     16/51     17/12     38/51     43/28
        BT=USE         16                  14/19 D   32/25
        BT=XFER      4600                  14/11 D   18/28
        BT=XFILL     4100                  14/07 D   40/40
        BT=XLINK     4500                  14/12 D   39/16
        BT.CONS       322   PROGRAM*       16/08 L
        BT.ENTR       411   PROGRAM*       18/27 L   34/08
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        BT.ERR       1611   PROGRAM*       13/23     15/54 L   31/25
        BT.FCA        332   PROGRAM*       16/35 L   16/40     36/44 S   36/54 S
        BT.FCAH       330   PROGRAM*       16/32 L   36/17     36/55 S
        BT.FCAL         3                  16/32     16/40 D   16/47     36/23
        BT.FCB        342   PROGRAM*       16/54 L   17/08     37/01 S   37/25 S   37/28 S
        BT.FCBH       340   PROGRAM*       16/51 L   36/26     37/26 S
        BT.FCBL        15                  16/51     17/08 D
        BT.FCC        361   PROGRAM*       17/15 L   17/17     37/21 S
        BT.FCCH       357   PROGRAM*       17/12 L   17/18     36/27
        BT.FCCL         1                  17/12     17/17 D
        BT.FCCTL        3                  17/18 D   37/07
        BT.FITC       330   PROGRAM*       16/27 L   17/20     37/29     37/29
        BT.FITCL       32                  17/20 D   37/07     37/22
        BT.IDNT       300   PROGRAM*        2/01 E   15/23 L   31/35 S   31/43 S   31/45
        BT.IDNTA       12                  15/37 L
        BT.IDNTU       13                  15/38 L   31/43 S
        BT.IDN8        10                   2/03 E   15/34 L
        BT.IDN9        11                   2/02 E   15/36 L
        BT.LIB        317   PROGRAM*       15/45 L   15/48     31/51     32/24
        BT.LIBL         3                  15/45     15/46     15/48 D   31/50     32/16     32/24     32/36     32/36 S
        BT.REP        362   PROGRAM*       18/08 L   21/08 S   21/22     21/37     21/37
        BT.REPC       335   PROGRAM*       16/45 L   36/18
        BT.STTX       367   PROGRAM*       18/38 D   25/02 S   25/15     25/36
        BT.STWC       365   PROGRAM*       18/39 D   24/50 S   25/10 S   25/11
        BT.ST77       366   PROGRAM*       18/40 D   24/56 S   25/16     25/39
        BT.SYMB       366   PROGRAM*       18/45 D   25/49 S   25/57     26/04 S   29/37     29/46 S   30/06     30/27
        BT.SYTX       367   PROGRAM*       18/46 D   29/07 S   30/24 S   30/26     30/26
        BT.SYWC       365   PROGRAM*       18/44 D   25/53 S   29/02     29/26     29/54     30/30 S
        BT.TEXT       366   PROGRAM*       18/16 L   18/40     18/45     58/23 S
        BT.TXRB       367   PROGRAM*       18/17 L   18/21     18/38     18/46     43/19 S   58/21
        BT.TXTL        20                  18/21 D   24/41     25/07     29/27
        BT.TXWC       365   PROGRAM*       18/15 L   18/39     18/44     24/29 S   43/26     58/19
        BT.XFER       412   PROGRAM*       11/49     18/28 L
        BT.XFR1       413   PROGRAM*        2/01 E   18/29 L
        BT.1ST        323   PROGRAM*       16/09 L   16/14     34/49 S   34/50
        BT.1STL         4                  16/09     16/14 D   34/50
        CAI             0   EXTERNAL*       2/43 X    4/44
        CDD             0   EXTERNAL*       2/14 X   13/02     19/33
        CHAR            6   TSTEXT         31/30     34/38     34/39     49/05     49/23
        CIO=            0   EXTERNAL*       5/03      5/04      5/07     11/55
        CKS           414   PROGRAM*        2/01 E   10/27     19/06 L
        CKSX          161   PROGRAM*       10/29 L   19/43     19/54
        CKS2          420   PROGRAM*       19/16 L   19/20     19/21     19/27
        CKS6          427   PROGRAM*       19/08     19/17     19/31 L
        CKS65         432   PROGRAM*        2/01 E   19/32     19/37 L
        CKS67         433   PROGRAM*        2/01 E   19/41 L
        CKS8          440   PROGRAM*       19/53 L   20/01     20/07
        CLT             0   EXTERNAL*      48/39     56/55
        COD             0   EXTERNAL*      10/39     49/22
        COMSIZ          0   EXTERNAL*      10/15 S   10/31
        CO.ER           0   EXTERNAL*       2/10 X   32/11     53/38
        CO.ID           0   EXTERNAL*      24/32
        CO.SNAP         0   EXTERNAL*       2/08 X
        CO.STA          0   EXTERNAL*      31/55     35/16     35/28
        CO.TBK          0   EXTERNAL*       2/08 X    7/35
        CPTIM           0   EXTERNAL*      49/39
        CP.AFLS         0   EXTERNAL*      12/28     12/36 S
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        CP.ERCT         0   EXTERNAL*       2/08 X   12/54
        CP.LSTF         0   EXTERNAL*      10/35     12/18
        CP.MODL         0   EXTERNAL*      31/38
        CP.MXFL         0   EXTERNAL*       2/08 X   12/11
        CP.NFLS         0   EXTERNAL*      12/10     12/40 S
        CP#RM           0   TSTEXT          5/06 F   11/07 F
        CT.FILE    260003   TSTEXT         35/01     35/12
        CT.TPA1    260002   TSTEXT         30/22
        C.BASE     200000   TSTEXT         54/44
        C.PRO      260000   TSTEXT          9/21      9/28     30/22     35/01     35/12     36/49     37/16
        C.STAT     240000   TSTEXT         19/49
        C.SYM      200000   TSTEXT         27/14
        C.TEM      320000   TSTEXT          5/25     46/36     55/22
        C.VAR      200000   TSTEXT         45/28
        C.VDIM     300000   TSTEXT          5/29
        DDS           447   PROGRAM*       11/22     20/17 L
        DDS9          446   PROGRAM*       20/15 L   20/35
        DDS=          455   PROGRAM*       20/38     20/39 L   20/41     20/47     21/13     21/41
        DDS.          453   PROGRAM*       20/34 L   20/44     21/10     21/38     21/52
        DDS.O           2                   2/02 E   20/47 D
        DDS.O4        463   PROGRAM*       21/03     21/05 L
        DDS.R          11                   2/02 E   21/13 D
        DDS.S           0                   2/02 E   20/41 D
        DDS.W          23                   2/02 E   21/41 D
        DDS.W1        501   PROGRAM*       21/46 L   21/51
        DFD           522   PROGRAM*       11/43     24/31 L
        DFDSV         516   PROGRAM*       24/26 L   28/09 S   29/14
        DFDX          521   PROGRAM*       24/28 L   30/28
        DFD21         524   PROGRAM*       24/39 L   25/40
        DFD23         530   PROGRAM*       24/44     24/49 L
        DFD25         534   PROGRAM*       25/07 L   25/42
        DFD27         536   PROGRAM*       25/08     25/11 L
        DFD29         542   PROGRAM*       25/18 L   25/26
        DFD31         546   PROGRAM*       25/24     25/30 L
        DFD40         554   PROGRAM*       24/40     25/46 L
        DFD42         560   PROGRAM*       25/57 L   26/05     26/09     29/30     30/31
        DFD43         566   PROGRAM*       26/07     26/12 L
        DFD43A        567   PROGRAM*       26/11     26/13 L
        DFD44         574   PROGRAM*       26/27     26/38 L
        DFD46         600   PROGRAM*       26/40     26/48     26/55 L
        DFD48         611   PROGRAM*       27/10     27/24     27/30 L
        DFD50         617   PROGRAM*       28/01 L   28/26
        DFD52         621   PROGRAM*       28/08 L   28/52
        DFD54         623   PROGRAM*       28/01     28/16 L
        DFD58         626   PROGRAM*       28/20     28/24 L
        DFD60         635   PROGRAM*       28/36     28/44     28/46 L
        DFD80         640   PROGRAM*       27/34     28/12     28/57 L
        DFD82         644   PROGRAM*       29/14 L
        DFD83         645   PROGRAM*       29/16 L   29/21
        DFD86         650   PROGRAM*       29/10     29/19     29/26 L
        DFD88         653   PROGRAM*       26/01     29/37 L   29/48
        DFD88A        657   PROGRAM*       29/40     29/45 L
        DFD88B        661   PROGRAM*       29/42     29/44     29/49 L
        DFD89         662   PROGRAM*       29/38     29/47     29/53 L
        DFD90         670   PROGRAM*       30/07     30/17 L
        DFD91         673   PROGRAM*       30/20     30/23 L
        DFD92         675   PROGRAM*       30/27 L
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        DFT           703   PROGRAM*       11/11     31/28 L
        DFTA         1131   PROGRAM*       35/22 S   35/32     38/39     38/57     39/23     40/01 E   40/02 L
        DFTX          200   PROGRAM*       11/13 L   33/57     34/55     38/40     39/56
        DFT2          710   PROGRAM*       31/39     31/41 L
        DFT20         723   PROGRAM*       32/07     32/11 L
        DFT21         725   PROGRAM*       32/13     32/16 L
        DFT22         737   PROGRAM*       32/39 L   32/42     32/45
        DFT23         742   PROGRAM*       31/56     32/41     32/49 L
        DFT25         743   PROGRAM*       31/49     32/55 L
        DFT3          754   PROGRAM*       33/16 L   33/50
        DFT43         760   PROGRAM*       33/25     33/38 L
        DFT45         762   PROGRAM*       33/41     33/44 L
        DFT5          763   PROGRAM*       33/34     33/47 L
        DFT55         765   PROGRAM*       33/16     33/52 L
        DFT6          776   PROGRAM*       34/20 L   34/30
        DFT60        1023   PROGRAM*       35/15     35/17     35/24 L
        DFT65        1030   PROGRAM*       35/33     35/37 L
        DFT70        1031   PROGRAM*       35/43 L   36/07     37/30
        DFT72        1055   PROGRAM*       36/48     36/54 L
        DFT74        1065   PROGRAM*       37/12     37/25 L
        DFT77        1110   PROGRAM*       39/09 L   39/11
        DFT77.3      1117   PROGRAM*       39/30 L   39/51
        DFT77.6      1122   PROGRAM*       39/32     39/36 L
        DFT77.8      1127   PROGRAM*       39/48     39/53 L
        DFT78        1071   PROGRAM*       35/50     38/22 L
        DFT8          700   PROGRAM*       31/25 L   31/47
        DLF          1144   PROGRAM*        2/02 E   11/46     40/39     41/01 L
        DLF2         1156   PROGRAM*       41/38 L   42/03
        DLF25        1161   PROGRAM*       41/46     41/48 L
        DLF3         1162   PROGRAM*       41/42     41/52 L
        DLF4         1165   PROGRAM*       41/56     42/03 L
        DLF45        1167   PROGRAM*       42/05     42/07 L
        DLF5         1173   PROGRAM*       41/17     42/18 L
        DLF6         1204   PROGRAM*       42/43 L   42/57
        DLF7         1205   PROGRAM*       42/46 L   43/03
        DLF75        1210   PROGRAM*       42/50     42/55 L
        DLF8         1132   PROGRAM*       40/22 L   42/46
        DLF85        1133   PROGRAM*       40/22     40/24 L
        DLF9         1136   PROGRAM*       40/35 L   42/27
        DTX          1215   PROGRAM*       11/39     21/36     43/25 L   46/56     50/26
                                           21/09     35/04     44/08     47/52     58/40
        DTX7         1212   PROGRAM*       43/15 L   43/29     43/45
        END             0   PROGRAM*        2/01 E    4/30 L
        END10           5   PROGRAM*        4/32      4/35      4/37 L
        END15          11   PROGRAM*        4/42      4/44 L
        END17          23   PROGRAM*        4/54      4/56      5/01 L
        END20          32   PROGRAM*        5/02      5/09 L
        END24          51   PROGRAM*        5/57 L    6/09
        END26          54   PROGRAM*        6/02      6/06      6/08 L
        END27          62   PROGRAM*        6/27 L    6/32      6/34
        END28          65   PROGRAM*        6/28      6/39 L
        END3           75   PROGRAM*        6/56 L    7/05      7/06      7/19
        END32         104   PROGRAM*        6/57      7/27 L
        END33         114   PROGRAM*        7/49 L    8/15
        END34         120   PROGRAM*        7/47      7/54      8/06 L    8/11      8/19
        END35         125   PROGRAM*        8/07      8/21 L
        END36         130   PROGRAM*        8/38 L    8/50
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        END37         133   PROGRAM*        8/46      8/49 L
        END4          142   PROGRAM*        9/10 L    9/13      9/25     10/10
        END41         146   PROGRAM*        9/17      9/18      9/20 L
        END42         152   PROGRAM*        9/41 L    9/44
        END43         154   PROGRAM*        9/43      9/45 L
        END45         155   PROGRAM*        9/02      9/11     10/12 L
        END50         167   PROGRAM*       10/36     10/38     10/40 L
        END70         173   PROGRAM*        4/38     11/03 L
        END80         225   PROGRAM*       11/05     11/48     11/53 L   31/26
        END82         230   PROGRAM*       11/54     11/56 L
        END86         251   PROGRAM*       12/31     12/34 L
        END93         257   PROGRAM*        2/05 E   12/51 L   13/24
        END95         266   PROGRAM*       13/08     13/10 L
        END96         275   PROGRAM*        2/03 E   13/23 L
        ENTRY.          0   EXTERNAL*       2/14 X   34/41
        EQUA            0   EXTERNAL*       2/46 X    6/50
        ERRORS          0   EXTERNAL*       2/14 X    4/52     10/41     12/51
        ERR=F           0   EXTERNAL*       2/24 X   12/52
        E.DO9           0   EXTERNAL*       2/24 X   20/06
        E.MN            0   EXTERNAL*       2/24 X   19/35
        E.MO1           0   EXTERNAL*       2/24 X   10/26
        E.MS            0   EXTERNAL*       2/24 X   19/26
        E.M$            0   EXTERNAL*       2/24 X   19/39
        E.SU11          0   EXTERNAL*       2/25 X    4/36      4/36
        E.ZA            0   EXTERNAL*       2/24 X   48/21     49/03
        FAILSFT         0   EXTERNAL*       2/14 X    4/37
        FILL.           0   EXTERNAL*       2/24 X   19/25 S   19/34 S   20/05 S
        FLSLOP          4   TSTEXT         12/45
        FVD             0   EXTERNAL*       2/43 X    4/45
        FV.LGO          0   EXTERNAL*       2/09 X   11/04
        F.LF            0   EXTERNAL*       2/08 X    5/03      5/04      5/04      5/07      5/07     50/47
        F.LGO           0   EXTERNAL*       2/08 X   11/08     11/55     59/24
        F.TABS          0   EXTERNAL*      12/42
        GCL           504   PROGRAM*       10/14     22/08 L
        GCL1          511   PROGRAM*       22/19 L   22/34
        GCL3          515   PROGRAM*       22/26     22/34 L
        GT1             0   EXTERNAL*      59/23 S   59/25
        IDENT           0   EXTERNAL*       2/14 X   13/06     33/02
        IGS             0   EXTERNAL*       5/13 S
        INT.FL          0   EXTERNAL*      12/27     12/32     12/33
        I.CALL          1   TSTEXT         52/20
        I.EQ            4   TSTEXT         52/30
        I.JP            3   TSTEXT         53/09
        I.RJ            2   TSTEXT         52/23
        KAP          1225   PROGRAM*       11/33     43/57 L
        KAP10        1305   PROGRAM*       45/01     46/35 L
        KAP2         1231   PROGRAM*       44/10 L   46/19
        KAP3         1254   PROGRAM*       44/55     45/12 L   46/38
        KAP4         1257   PROGRAM*       44/52     45/20 L
        KAP5         1271   PROGRAM*       45/29     45/57 L
        KAP6         1274   PROGRAM*       44/50     45/39     46/10 L   46/30     46/34
        KAP7         1275   PROGRAM*       44/26     46/12 L
        KAP8         1277   PROGRAM*       44/20     44/22     45/09     45/51     46/18 L
        KAP9         1301   PROGRAM*       45/04     46/24 L
        KCF          1307   PROGRAM*       11/20     46/47 L
        KCF2         1315   PROGRAM*       47/02 L   47/07
        KCF5         1317   PROGRAM*       46/57     47/11 L
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        KCF6         1322   PROGRAM*       47/19 L   47/24
        KNS          1326   PROGRAM*       11/37     47/39 L
        KNS2         1331   PROGRAM*       47/54 L   49/12
        KNS4         1336   PROGRAM*       48/12 L   49/09
        KNS5         1351   PROGRAM*       48/41     48/45 L
        KNS6         1352   PROGRAM*       48/50 L   49/10
        KNS7         1353   PROGRAM*       48/08     48/54 L
        KNS9         1325   PROGRAM*       47/37 L   48/03
        LB.LGO          0   EXTERNAL*      11/03
        LFS          1362   PROGRAM*       12/21     49/21 L
        LFSE         1372   PROGRAM*       49/43     49/47 L
        LFSX          243   PROGRAM*       12/20     12/23 L   49/44
        LFS.MAX      1372   PROGRAM*        2/03 E   49/24 S   49/48 L
        LFS.TM       1375   PROGRAM*       49/40 S   49/50 L
        LGOIO           0   EXTERNAL*       2/09 X   11/53
        LINEBUF         0   EXTERNAL*       2/15 X   13/04 S   13/15     13/16     13/16
        LJS             0   EXTERNAL*      19/24     20/04
        LOCAL           0   EXTERNAL*       2/15 X   10/12 S   10/23     10/30     33/04
        LOP=M           0   EXTERNAL*       2/09 X   10/37     12/06
        LOP=O           0   EXTERNAL*       2/09 X   10/44
        LPS.PL          0   EXTERNAL*      10/39 S
        L.APIO         25   TSTEXT         44/21
        L.ASIZ         15   TSTEXT         44/38
        L.ATYP          3   TSTEXT         44/42
        L.BLEN         30   TSTEXT         22/17     33/19
        L.BLOCK        14   TSTEXT         20/55     27/25     55/57
        L.BLVL          2   TSTEXT         22/18     33/22
        L.BTAD         30                  14/47 D
        L.BTBI         11                  14/36 D
        L.BTCN         14   TSTEXT         15/27     15/46     16/09     16/45     17/12     18/27
                                           15/45     16/08     16/32     16/51     18/08     18/28
        L.BTCP          3                  14/46 D
        L.BTDC          1                  14/42 D
        L.BTDM          5                  14/44 D
        L.BTFI          1                  14/31 D
        L.BTFP          1                  14/41 D
        L.BTFT         14                  14/30 D
        L.BTLC         31                  14/45 D
        L.BTLM          1                  14/40 D
        L.BTNM         52                  14/35 D
        L.BTRB          4   TSTEXT         16/10     58/25
        L.BTRL         11   TSTEXT         16/31     16/32     16/51     17/12     57/30
        L.BTTP          5                  14/43 D
        L.BTWC         14   TSTEXT         15/27     15/46     16/09     16/45     17/12     18/28
                                           15/45     16/08     16/32     16/51     18/08     24/57
        L.DIM          30   TSTEXT         28/03
        L.DOE           6   TSTEXT         19/46     19/50
        L.FCLX          6   TSTEXT         16/36     36/33
        L.FIT1         12   TSTEXT         36/28
        L.FIT6         51   TSTEXT         16/36     16/47     36/33
        L.FNAM         52   TSTEXT         35/48
        L.FPNO          6   TSTEXT         26/29     28/48     45/31
        L.FRCL         22   TSTEXT         37/13
        L.IOARG         6   TSTEXT         45/48
        L.JPADF        11   TSTEXT          7/53
        L.LBIAS        22   TSTEXT         44/06     45/42     45/56     47/50     54/32     56/30     56/32
        L.LEVN          2   TSTEXT         26/42     28/38
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        L.LGH           6   TSTEXT         51/11     51/32
        L.LI            3   TSTEXT         52/26     53/07
        L.LIST          3   TSTEXT         35/14
        L.LI12         14   TSTEXT         51/06     51/32     53/40     53/48     54/30
        L.LI15         17   TSTEXT         51/52
        L.LTAG         22   TSTEXT         52/16
        L.MODE          3   TSTEXT         26/56     45/33     46/03     46/07
        L.NDIM          6   TSTEXT         27/45     28/25
        L.PNT          15   TSTEXT          7/07     27/40
        L.PWF          15   TSTEXT         20/48     28/29     45/24     45/27     54/42     54/43     54/46
        L.RELADD       30   TSTEXT         27/19
        L.STL           0   EXTERNAL*      38/44     38/50     39/07
        L.STLF         36   TSTEXT         39/42
        L.SYM          52   TSTEXT         26/21     41/33
        L.TAG          22   TSTEXT         27/12     53/45     53/51     57/55     57/56
        L.TRC          14   TSTEXT         52/47     52/48
        L.77           16                  14/50 D   15/27     15/38     31/45     31/45
        MOD             0   EXTERNAL*       2/15 X    4/39      8/57     11/47     31/48     33/53     50/19
                                            4/31      4/53     10/40     30/17     32/05     34/54
        MSF             0   EXTERNAL*       2/15 X   19/38
        MSG=            0   EXTERNAL*      13/15
        MSN             0   EXTERNAL*       2/15 X    6/10 S   19/07
        MVE             0   EXTERNAL*      32/24
        M.AVAR     200000   TSTEXT         44/28
        M.COMM       4000   TSTEXT          6/53
        M.ENT          40   TSTEXT          6/53
        M.EQUIV      2000   TSTEXT          6/53
        M.EXT         100   TSTEXT          6/53      7/33
        M.FP           20   TSTEXT          6/53
        M.NLST       1000   TSTEXT          6/53      7/33
        M.NVAR      20000   TSTEXT          6/53
        M.PFNC       1000   TSTEXT          4/40
        M.PSUB       2000   TSTEXT          4/40
        M.SNDEF         2   TSTEXT          5/55
        M.STCRM         0   EXTERNAL*      32/04
        M.STRP2         0   EXTERNAL*      32/14
        NAME            0   EXTERNAL*      34/37
        NARGS           0   EXTERNAL*       2/15 X    9/04     35/11
        NOLIST          0   EXTERNAL*       2/16 X   12/19
        NREXT           0   EXTERNAL*       2/15 X    8/22 S   11/24     41/15     41/25     42/18
        NSK             0   EXTERNAL*       2/15 X   19/31
        N.STL           0   EXTERNAL*      38/43     39/15
        ORG             0   EXTERNAL*       2/15 X   21/07 S   43/15     46/52 S   50/23 S   57/04     58/29
                                            5/17     35/03 S   44/04 S   47/49 S   52/56     57/28
        OR.DOSN         5   TSTEXT         19/50
        OTRSAV       1503   PROGRAM*        2/04 E   10/34 S   53/50     54/02 L
        OT.RM           0   EXTERNAL*       9/14     38/26
        OT#RM           6   TSTEXT          9/30 F   16/23 F   31/53 F   36/13 F   38/35 F
                                            9/48 F   17/27 F   35/08 F   37/34 F   39/57 F
        PARCEL          0   EXTERNAL*       2/16 X   20/32 S   50/25 S   51/07     52/05     58/27 S
        PASS            0   EXTERNAL*       2/16 X    5/10 S
        PASS=END        4   TSTEXT          5/09
        PIG             0   EXTERNAL*       2/31 X    4/57
        PIK=PS          0   EXTERNAL*       2/31 X   51/31
        PLIMIT          0   EXTERNAL*       2/09 X   35/27     38/28
        PWE             0   EXTERNAL*       4/36     19/26     20/06
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        P.             73   TSTEXT          4/32      4/55     10/42     19/08     30/18     33/55     50/20
                                            4/35      9/02     11/48     19/18     31/49     34/55
        P.AFIT         21   TSTEXT         44/31     44/33     44/35
        P.ALCM         24   TSTEXT         44/35     44/37
        P.ARY          10   TSTEXT         26/39     26/41     28/34     28/37     28/47
        P.ATAG         52   TSTEXT         44/25
        P.ATYP         15   TSTEXT         44/41
        P.AVAR         20   TSTEXT         44/30     44/31
        P.BEF          10   TSTEXT          7/51      7/55
        P.BLOCK        30   TSTEXT          6/18      6/21     20/57     27/26     56/02
        P.BLVL         46   TSTEXT         22/22     33/21
        P.BTAD          0                  14/47 D
        P.BTBI         11                  14/36 D   27/30
        P.BTCN         60   TSTEXT         24/54     32/31     38/53     40/26     42/13
                                           30/01     33/09     39/19     40/42     43/34
        P.BTCP         30                  14/46 D
        P.BTDC         71                  14/42 D   28/06
        P.BTDM         56                  14/44 D   27/47     27/49
        P.BTFI         27                  14/31 D   30/12
        P.BTFP         72                  14/41 D   26/32     28/46
        P.BTFT         30                  14/30 D   30/04
        P.BTLC         36                  14/45 D
        P.BTLM         73                  14/40 D   26/50
        P.BTMRL        44   TSTEXT         37/18
        P.BTNM         22                  14/35 D
        P.BTRC         52   TSTEXT         21/20
        P.BTRI         33   TSTEXT         21/23     21/30
        P.BTRL         22   TSTEXT         16/07     21/05     34/16     43/18     57/29
                                           16/31     21/18     38/56     56/12     57/32
        P.BTTP         63                  14/43 D   27/01
        P.BTWC         44   TSTEXT         16/07     24/51     29/57     32/30     34/10     39/21     40/43     43/37
                                           16/31     24/57     32/29     33/11     38/52     40/28     42/11
        P.BTXPS        30   TSTEXT         39/38
        P.BTXRA        36   TSTEXT         39/39
        P.BTXSZ        22   TSTEXT         39/44
        P.BTYP         21   TSTEXT         33/45
        P.DEF           3   TSTEXT          4/35
        P.DIM          36   TSTEXT         28/02     28/22     28/27     48/22
        P.DIMLG        36   TSTEXT          7/12
        P.DOTAG        22   TSTEXT         19/56
        P.DTAG         36   TSTEXT         20/51     21/16     21/27
        P.ENT           5   TSTEXT         26/26     26/28     27/08     27/11
        P.EST          20   TSTEXT         26/06     26/08     26/12     29/41     29/43
        P.EXT           6   TSTEXT          7/43      7/49
        P.FBUF         44   TSTEXT          9/20     36/43
        P.FFIT         22   TSTEXT         35/57     36/09     36/43
        P.FPNO         22   TSTEXT         26/28     28/47     45/35
        P.FREC         44   TSTEXT         37/15
        P.IOFIT        73   TSTEXT         44/33
        P.IOFP         72   TSTEXT         45/46
        P.IOIND        71   TSTEXT         44/30     45/14
        P.IOLCM        73   TSTEXT         44/37
        P.IOLEN        30   TSTEXT         45/17     45/22
        P.IOSIZ        36   TSTEXT         45/17
        P.IOTYP        60   TSTEXT         45/08     45/36     46/07
        P.JPADF        33   TSTEXT          7/55
        P.LBIAS        14   TSTEXT         45/40     45/56     46/07     54/31     54/34
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        P.LEVN         45   TSTEXT         26/41     28/37
        P.LI12         60   TSTEXT         52/35     54/37
        P.LONG          2   TSTEXT          7/10
        P.LTAG         36   TSTEXT         44/25     45/25     48/30     52/17     54/34     54/37
        P.NDIM         66   TSTEXT         27/47
        P.NLST         11   TSTEXT         27/33     27/39
        P.NVAR         15   TSTEXT         26/08     26/10     29/43
        P.PBLK         10   TSTEXT          4/55     10/42     30/18     31/49     33/55     50/20
        P.PFNC         11   TSTEXT          4/32
        P.PNT          30   TSTEXT          7/04      7/43      7/51      8/41     34/23
                                            7/10      7/49      8/12     27/39
        P.PPRO         13   TSTEXT          9/02     11/48     34/55
        P.SNAD         30   TSTEXT          5/54     55/35
        P.SNDEF         1   TSTEXT         19/08     19/18
        P.SNFMT        10   TSTEXT          5/48
        P.SYM          22   TSTEXT         19/11     19/52
        P.TAG          52   TSTEXT         27/11     27/22
        P.TRC          22   TSTEXT         52/48
        P.VAR          14   TSTEXT         27/22
        P.VDIM         35   TSTEXT         27/55
        P.2TAG         52   TSTEXT         48/38     56/54
        RAD          1401   PROGRAM*       11/30     50/09 L
        RADA         1377   PROGRAM*       50/06 L   50/32     51/04 S
        RADB         1400   PROGRAM*       50/07 L   50/47     50/48
        RAD2         1407   PROGRAM*       50/32 L   52/45     53/03     53/26     53/56
        RAD21        1415   PROGRAM*       50/36     50/47 L
        RAD22        1420   PROGRAM*       50/45     50/51 L
        RAD23        1422   PROGRAM*       50/33     50/57 L
        RAD24        1424   PROGRAM*       50/54     51/06 L
        RAD27        1427   PROGRAM*       51/32 L
        RAD3         1440   PROGRAM*       51/47     52/07 L
        RAD32        1450   PROGRAM*       52/24     52/35 L   52/52     53/10
        RAD33        1454   PROGRAM*       52/40     52/44 L
        RAD34        1456   PROGRAM*       52/21     52/47 L
        RAD35        1460   PROGRAM*       52/18     52/56 L
        RAD37        1462   PROGRAM*       52/28     53/07 L
        RAD4         1464   PROGRAM*       52/08     53/14 L
        RAD5         1471   PROGRAM*       52/09     53/30 L
        RAD6         1500   PROGRAM*       53/39     53/44     53/49     53/55 L
        RDW=            0   EXTERNAL*      50/47
        REL          1504   PROGRAM*       46/14     48/31     52/37     53/55     54/29 L
        RELMASK      1566   PROGRAM*       44/07 S   47/51 S   50/28 S   56/34     58/02 L
        REL3         1525   PROGRAM*       55/14     55/17     55/28 L
        REL3A        1523   PROGRAM*       55/11     55/22 L
        REL4         1530   PROGRAM*       55/08     55/39 L
        REL4A        1526   PROGRAM*       55/05     55/33 L
        REL5         1533   PROGRAM*       54/56     55/02     55/54 L
        REL55        1537   PROGRAM*       56/04     56/07 L
        REL8         1542   PROGRAM*       54/47     55/30     55/37     55/42     55/45     56/07     56/30 L   57/57
        REL85        1560   PROGRAM*       56/56     57/26 L
        REL9         1565   PROGRAM*       54/41     57/55 L
        RTU             0   EXTERNAL*       2/40 X    4/43
        RUN.X           0   EXTERNAL*       2/28 X   12/55     13/18
        SAVETR       1502   PROGRAM*       52/42     52/51 S   54/01 L
        SRT             0   EXTERNAL*       2/34 X   41/20     42/29
        STATIC          0   EXTERNAL*      32/12
        STLTAB          0   EXTERNAL*      32/34     39/26
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        STX          1567   PROGRAM*       20/43     35/31     36/03     47/04     48/13     52/04
                                           21/50     35/35     38/33     47/21     48/50     52/44
                                           35/26     35/39     46/18     48/07     49/11     58/18 L
        SVALUE.         0   EXTERNAL*       2/40 X    4/33
        SYS=            0   EXTERNAL*      12/32
        TA=NAM          0   EXTERNAL*       2/21 X    6/15      6/40      7/27
        TA.NAM          0   EXTERNAL*       2/21 X    6/43     20/49     34/43     55/01
                                            6/17      7/30     27/15     54/55
        TA.PRO          0   EXTERNAL*       2/16 X    9/05     30/21     34/57     35/10     36/47     45/03     55/07
        TEM.MAX         0   EXTERNAL*       2/17 X    5/21     46/35     55/10
        TEST            0   TSTEXT         10/49 F   20/19 F   40/47 F   41/05 F   47/41 F   49/26 F   50/11 F   57/38 F
        TG.VDIM         0   EXTERNAL*       2/17 X    5/24
        THRESH          0   EXTERNAL*      12/46 S
        TIMER           0   EXTERNAL*      49/41
        TIME1           0   EXTERNAL*      49/38     49/42 S
        TL.DATE         0   EXTERNAL*      31/29
        TL.TIME         0   EXTERNAL*      31/31
        TP=APL          0   EXTERNAL*       2/17 X    5/28     11/34     11/34 S   12/02     12/02 S   44/10
        TP=CIDM         0   EXTERNAL*      11/44 S
        TP=DO           0   EXTERNAL*       2/18 X   19/42
        TP=FMT          0   EXTERNAL*       2/17 X    5/19     12/01     12/01 S   47/12
        TP=NLST         0   EXTERNAL*       2/17 X   12/03     47/37     47/54     48/54
                                            5/33     12/03 S   47/37 S   48/15
        TP.APL          0   EXTERNAL*       2/17 X   44/11
        TP.CIDM         0   EXTERNAL*      27/42
        TP.DIM          0   EXTERNAL*       2/17 X    6/45
        TP.DO           0   EXTERNAL*       2/18 X   19/48
        TP.FMT          0   EXTERNAL*       2/18 X   47/11
        TP.NLST         0   EXTERNAL*       2/18 X   47/55     48/16     48/55
        TRV             0   EXTERNAL*       4/34
        TS=BLK          0   EXTERNAL*       2/19 X   22/09     32/55
        TS=CON          0   EXTERNAL*       2/18 X    5/18     11/57     11/57 S   46/49
        TS=DAT          0   EXTERNAL*       2/19 X   12/04     12/04 S   20/15     20/15 S   20/27
        TS=ENT          0   EXTERNAL*       2/19 X    8/32     34/04
        TS=EQU          0   EXTERNAL*       2/18 X    4/50      4/50 S
        TS=STN          0   EXTERNAL*       2/18 X    5/46     19/10
        TS=SYM          0   EXTERNAL*       2/20 X    6/39     25/47
        TS.BLK          0   EXTERNAL*       2/19 X   22/12     33/06
        TS.CON          0   EXTERNAL*       2/19 X   46/48
        TS.DAT          0   EXTERNAL*       2/19 X   20/28
        TS.ENT          0   EXTERNAL*       2/19 X    8/31     34/14
        TS.STN          0   EXTERNAL*       2/18 X    5/47     19/09     19/44     55/04
        TS.SYM          0   EXTERNAL*       2/19 X    6/44     25/50     34/12     45/20
                                            6/16      7/28     28/32     41/24
        TT=ASF          0   EXTERNAL*       2/20 X    4/46      4/46 S
        TT=FILL         0   EXTERNAL*       2/20 X   11/16     11/16 S   42/23     42/32
        TT=LF           0   EXTERNAL*       2/21 X    5/11     11/56     11/56 S   50/35
        TT=LINK         0   EXTERNAL*       2/20 X   11/15     11/15 S   41/13     41/23     42/19     42/19 S
        TT=SCR          0   EXTERNAL*       2/20 X    4/49 S   32/20 S   32/57 S   33/56 S   34/33 S   38/42 S
                                            4/49     32/20     32/57     33/56     34/33     38/42
        TT=USE          0   EXTERNAL*       2/20 X    4/47      4/47 S
        TT=XFIL         0   EXTERNAL*      11/17 S   40/35     40/56 S
        TT.FILL         0   EXTERNAL*       2/21 X   11/26     11/26     42/24     42/31     56/08     57/36
        TT.LF           0   EXTERNAL*       2/21 X   50/37
        TT.LINK         0   EXTERNAL*       2/20 X   11/25     41/14     41/22     42/08     56/10
        TT.SCR          0   EXTERNAL*       2/21 X   32/21     33/01     34/07     38/48     38/48
        TT.XFIL         0   EXTERNAL*      11/27     40/36     57/23
1       /END  BINARY OUTPUT                                           COMPASS 3.7-871.     24/05/02. 15.51.45.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        T=FILE          0   EXTERNAL*       2/21 X   35/44
        T=LNT           0   EXTERNAL*      24/39     25/14     25/41
        T=SB            0   EXTERNAL*       4/48 S
        T.END           0   EXTERNAL*      12/41 S
        T.FILE          0   EXTERNAL*       2/21 X    9/03     35/43     36/05
        T.LGOB          0   EXTERNAL*      11/03
        T.LNT           0   EXTERNAL*      25/13
        WBL             0   EXTERNAL*       2/37 X   13/16     49/43
        WCL             0   EXTERNAL*      10/46
        WCLX          173   PROGRAM*        2/01 E   10/43     10/45     10/48 L
        WIN             0   EXTERNAL*       2/31 X    4/51
        WLF          1604   PROGRAM*       11/49     25/36     31/45     34/32     39/53     42/16
                                           13/23     30/26     32/49     34/50     40/31     43/44
                                           21/37     31/25     33/52     37/29     40/55     59/28 L
        WLF8         1601   PROGRAM*       59/22 L   59/31
        WNB=            0   EXTERNAL*      11/08
        WTW=            0   EXTERNAL*      59/24
        WVM             0   EXTERNAL*      12/07
        WVMX          235   PROGRAM*        2/01 E   12/09 L
        W.TABS          0   EXTERNAL*      12/44 S
        .CMLOD          0   TSTEXT         59/13 F   59/30 F
        .CPU          111   TSTEXT         22/28 F   26/45 F   28/41 F   33/27 F   51/13 F
        .DAL            1   TSTEXT         48/34 F
        .FID            1   TSTEXT         11/42 F   14/13 F   14/22 F   18/20 F   18/37 F   24/24 F
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      637              IDENT  ALLOC
                        637                       END 
  
  
                                        ENTRY POINTS. 
  
                                        ERT            253+           PRS            476+           ESC            265+ 
                                        NEXT           603+           ESY            322+           NAP            367+ 
                                        ALC.REG        226+           SCD            515+           SCS            523+ 
                                        ALC.00         230+           SSY            561+           ALC.DO         234+ 
                                        ALC.CAI        232+           DSRT           621+           SCT            533+ 
                                        SCSA           532+           MVE            360+           SCTR           506+ 
                                        ALC.ASF        231+           SRT            605+           IDENT          240+ 
                                        ADW              2+           NCS            451+           ALC.PIG        235+ 
                                        NCM            400+           ESN            306+ 
                                        ALC             16+           SSN            543+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        BINIOF    IGS       TA=PRO    TS=EQU    TT=USE    E.MO2     FILL.     MAX.FL
                                        CO.SNAP   LOSTREF   TG.APL    TS=DAT    TT=SCR    E.MO4     ENDFTN    WTW=
                                        F.LF      N.TABLE   TA=NAM    TS=BLK    TT=PAR    E.MO5     MSG=      CIO=
                                        F.OUT     NREXT     TP=DIM    TS=ENT    TT=REF    DPT       END96     NOM.TFL 
                                        F.RMAP    ORIGINS   TP=DO     TS.CON    TT.ASF    DLF       PSP.F     CP.AFLS 
                                        F.LGO     PASS      TP=FMT    TS.SYM    TT.PAR    CPM=BY    PWE       TT=XFIL 
                                        BINIO     REFIO     TP=NLST   TT=LINK   TT.REF    WBL       T.END     F.TABS
                                        BASES     REFLIN    TP=APL    TT=FILL   T.VDIM    ADWT      CP.NFLS   THRESH
                                        CDD       SIZES     TP.APL    TT.LF     TT=ASF    ANSI=     SYS=      W.TABS
                                        FAILSFT   STAGE     TS=CON    TT=LF     TP.DO     E.ANS2    GT1 
  
  
  
  
                                                  IDENT  ALLOC                                                   ALLOC       2
                                         ALLOC    SECT   (TABLE ALLOCATION AND MANIPULATION.),1                  ALLOC       3
  
                                                                                                                 ALLOC       4
                                                  SST    B,D                                                     ALLOC       5
                                                  NOREF  B,D                                                     ALLOC       6
                                                                                                                 ALLOC       7
                                         B=ALLOC  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     ALLOC       8
                                                                                                                 ALLOC       9
                                                  ENTRY  ERT,NEXT,ALC.REG,ALC.00,ALC.CAI,SCSA,ALC.ASF,ADW,NCM    ALLOC      10
                                                  ENTRY  ALC,PRS,ESY,SCD,SSY,DSRT,MVE,SRT,NCS,ESN,SSN            FCC0813   103
                                                  ENTRY  ESC,NAP,SCS,ALC.DO,SCT,SCTR                             FCC0813   104
                                                  ENTRY  IDENT,ALC.PIG                                           FCC1224    23
                                                                                                                 ALLOC      13
                                        *         IN FTN                                                         ALLOC      14
                                                  EXT    BINIOF,CO.SNAP,F.LF,F.OUT,F.RMAP,F.LGO                  ALLOC      15
                                                  EXT    CO.SNAP,F.LF,F.OUT,F.RMAP,F.LGO                         ALLOC      16
                                                                                                                 ALLOC      17
                                        *         IN TABLES                                                      ALLOC      18
                                                  EXT    BINIO,BASES,CDD,FAILSFT,IGS,LOSTREF                     FCC0813   105
                                                  EXT    N.TABLE,NREXT,ORIGINS,PASS,REFIO                        FCC0813   106
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     2
  
  
                                                  EXT    REFLIN,SIZES,STAGE,TA=PRO,TG.APL,TA=NAM,TP=DIM          FCC0813   107
                                                  EXT    TP=DO,TP=FMT,TP=NLST,TP=APL,TP.APL,TS=CON,TS=EQU,TS=DAT ALLOC      22
                                                  EXT    TS=BLK,TS=ENT,TS.CON,TS.SYM,TT=LINK,TT=FILL,TT.LF,TT=LF ALLOC      23
                                                  EXT    TT=USE,TT=SCR,TT=PAR,TT=REF,TT.ASF,TT.PAR,TT.REF,T.VDIM ALLOC      24
                                                  EXT    TT=ASF,TP.DO                                            FCC0813   108
                                                                                                                 ALLOC      26
                                        *         IN ERRORS                                                      ALLOC      27
                                                  EXT    E.MO2,E.MO4,E.MO5                                       ALLOC      28
                                                                                                                 ALLOC      29
                                        *         IN PIG                                                         ALLOC      30
                                                  EXT    DPT                                                     ALLOC      31
                                                                                                                 ALLOC      32
                                        *         IN END                                                         ALLOC      36
                                                  EXT    DLF                                                     ALLOC      37
                                                                                                                 ALLOC      38
                                        *         IN MAIN                                                        ALLOC      39
                                                  EXT    CPM=BY,WBL                                              ALLOC      40
                                                                                                                 ALLOC      41
                                        *         IN INIT                                                        ALLOC      42
                                                  EXT    ADWT                                                    ALLOC      43
                                                                                                                 ALLOC      44
  
  
  
  
                                        **        ADW -  ADD ONE WORD TO END OF MANAGED TABLE.                   ALLOC      75
                                        *                                                                        ALLOC      76
                                        *         ENTRY  (X6) = DATUM.                                           ALLOC      77
                                        *                (A1) _ ORIGIN WORD OF TABLE.                            ALLOC      78
                                        *                                                                        ALLOC      79
                                        *         EXIT   (X1) = ORIGIN OF TABLE.                                 ALLOC      80
                                        *                (X2) = NEW LENGTH OF TABLE                              ALLOC      81
                                        *                (X3) = DATUM.                                           ALLOC      82
                                        *                (X6) = DATUM.                                           ALLOC      83
                                        *                (A1) _ ORIGIN WORD OF TABLE.                            ALLOC      84
                                        *                (A2) _ LENGTH WORD OF TABLE.                            ALLOC      85
                                        *                (A6) _ LWA OF TABLE, WHERE *DATUM* WAS JUST STORED.     ALLOC      86
                                        *                (B7) = LWA + 1 OF TABLE                                 ALLOC      87
                                        *                                                                        ALLOC      88
                                        *         THE MACRO CALL *ADDWD* SHOULD ALWAYS BE USED.                  ALLOC      89
                                        *         USES   A2,A3,A6  X0,X6,X7  B2,B3,B7                            ALLOC      90
                                        *         CALLS  ALC                                                     ALLOC      91
                                                                                                                 ALLOC      92
                                                  IFNE   TEST,,1                                                 ALLOC      93
                                                  ENTRY  ADW2                                                    ALLOC      94
                                                                                                                 ALLOC      95
             0  5160000000 X             ADW1     SA6    ADWT        SAVE DATUM                                  ALLOC      96
                          0100000016 +            RJ     ALC                                                     ALLOC      97
             1  5130000000 X             ADW2     SA3    ADWT                                                    ALLOC      98
                          10633                   BX6    X3                                                      ALLOC      99
                               57671              =A6    B7-1                                                    ALLOC     100
                                                                                                                 ALLOC     101
             2  0400400002 +             ADW      SUBR   0                                                       ALLOC     102
             3  76010                             =X0    1                                                       ALLOC     103
                     0400000000 +                 EQ     ADW1                                                    ALLOC     104
                                                                                                                 ALLOC     105
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     3
                                                                      ALC 
  
                                        **        ALC -  TABLE MANAGER AND ALLOCATOR.                            ALLOC     107
                                        *                                                                        ALLOC     108
                                        *         ALLOCATOR WILL MOVE TABLES TO ACQUIRE ROOM.  ALSO MAY DUMP     ALLOC     109
                                        *         INTERMEDIATE OR CROSS-REFERENCES ONTO SCRATCH FILE.            ALLOC     110
                                        *         WILL ABANDON CMLOD IF NECESSARY, FORCING *T.LGO* TO DISK.      ALLOC     111
                                        *                                                                        ALLOC     112
                                        *         STOLEN FROM *COMPASS VER 2.0*                                  ALLOC     113
                                        *                                                                        ALLOC     114
                                        *         ENTRY  (A1) _ ORIGIN WORD OF TABLE.                            ALLOC     115
                                        *                (X0) = CHANGE (+ OR -) TO TABLE SIZE.                   ALLOC     116
                                        *                                                                        ALLOC     117
                                        *         EXIT   (X1) = ORIGIN OF TABLE.                                 ALLOC     118
                                        *                (X2) = NEW LENGTH OF TABLE.                             ALLOC     119
                                        *                (A1) _ ORIGIN WORD OF TABLE.                            ALLOC     120
                                        *                (A2) _ LENGTH WORD OF TABLE.                            ALLOC     121
                                        *                (B7) = LWA + 1 OF TABLE                                 ALLOC     122
                                        *                                                                        ALLOC     123
                                        *         THE MACRO CALL *ALLOC* SHOULD ALWAYS BE USED.                  ALLOC     124
                                        *                                                                        ALLOC     125
                                        *         NOTE SPECIAL DEAL FOR *ASF* EXPANSION --                       ALLOC     126
                                        *                WHEN A STATEMENT FUNCTION IS BEING EXPANDED, (B4) IS    ALLOC     127
                                        *                POINTING TO SOME TABLE, WHICH WE ARE ABOUT TO MOVE.     ALLOC     128
                                        *                TO AVOID THE EMBARASSMENT WHICH MIGHT OTHERWISE OCCUR,  ALLOC     129
                                        *                THE MANAGER WILL RE-LOCATE A REGISTER RELATIVE TO A     ALLOC     130
                                        *                DESIGNATED TABLE.  THIS IS INDICATED BY SETTING         ALLOC     131
                                        *                (ALC.REG) =  24/ 0,  18/ REG,  18/ TABLE                ALLOC     132
                                        *                    (REG) = ADDRESS OF CELL WHERE DESIRED REGISTER IS   ALLOC     133
                                        *                            SAVED BY *ALC*.                             ALLOC     134
                                        *                    (TAB) = ADDRESS OF TABLE ORIGIN WORD.               ALLOC     135
                                        *                THIS CAN ONLY BE DONE FOR A REGISTER WHICH IS SAVED AND ALLOC     136
                                        *                RESTORED BY THE MANAGER.                                ALLOC     137
                                        *                                                                        ALLOC     138
                                        *         USES   A1-A3,A6,A7  B7  X0-X3,X6,X7                            ALLOC     139
                                        *         KEEPS  A0,A4,A5  B2-B6  X4,X5                                  ALLOC     140
                                        *         CALLS  ASU, ABORT, DLF, MESAGE, MTD, MVE, WRITEW               ALLOC     141
                                                                                                                 ALLOC     142
                                                                                                                 ALLOC     143
             4                           ALCW     BSS    0                                                       FCC0813   109
                                         SNAP=T   IFNE   TEST                                                    FCC0813   110
                                                  SA1    CO.SNAP                                                 FCC0813   111
                                                  LX1    1RT                                                     FCC0813   112
                                                  PL     X1,ALCW1    IF TABLE SNAP NOT SELECTED                  FCC0813   113
                                                  SA1    =10H ALCW                                               FCC0813   114
                                                  RJ     =XPTA       PRINT TABLE ALLOCATION                      FCC0813   115
                                         ALCW1    BSS    0                                                       FCC0813   116
                                         SNAP=T   ENDIF                                                          FCC0813   117
                                                                                                                 ALLOC     145
             4  5120000226 +                      SA2    ALC.REG                                                 ALLOC     146
                          54121                   =A1    A2+1        = OLD ORIGIN                                ALLOC     147
                               53320              SA3    X2          = NEW ORIGIN                                ALLOC     148
             5  21222                             AX2    18                                                      ALLOC     149
                     37631                        IX6    X3-X1       = DISPLACEMENT                              ALLOC     150
                          53220                   SA2    X2          = OLD REGISTER VALUE                        ALLOC     151
                               36626              IX6    X2+X6                                                   ALLOC     152
             6  54620                             SA6    A2          STORE NEW REGISTER VALUE                    ALLOC     153
                                                                                                                 ALLOC     154
                     5112000000 X                 SA1    B2+BASES    RECLAIM TABLE ORIGIN WORD                   ALLOC     155
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     4
                                                                      ALC 
  
                                                                                                                 ALLOC     156
                                        **        WE PROMISED TO PRESERVE MANY REGISTERS.  IT IS TIME TO RESTORE ALLOC     157
                                        *                THEM.                                                   ALLOC     158
                                                                                                                 ALLOC     159
                                                                     (ALCD)                                      ALLOC     160
             7  5150000215 +                      SA5    ALCD        +0 = (B2)                                   ALLOC     161
                          63250                   SB2    X5                                                      ALLOC     162
                               54451              =A4    A5+1        +1 = (B3)                                   ALLOC     163
            10  63340                             SB3    X4                                                      ALLOC     164
                     54341                        =A3    A4+1        +2 = (B4)                                   ALLOC     165
                          63430                   SB4    X3                                                      ALLOC     166
                               54231              =A2    A3+1        +3 = (B5)                                   ALLOC     167
            11  63520                             SB5    X2                                                      ALLOC     168
                     54521                        =A5    A2+1        +4 = (B6)                                   ALLOC     169
                          63650                   SB6    X5                                                      ALLOC     170
                                                                                                                 ALLOC     171
                               54451              =A4    A5+1        +5 = (A4)                                   ALLOC     172
            12  54341                             =A3    A4+1        +6 = (A5)                                   ALLOC     173
                     54231                        =A2    A3+1        +7 = (X4)                                   ALLOC     174
                          53440                   SA4    X4                                                      ALLOC     175
                               53530              SA5    X3                                                      ALLOC     176
            13  54321                             =A3    A2+1        +8 = (X5)                                   ALLOC     177
                     10422                        BX4    X2                                                      ALLOC     178
                          22503                   LX5    X3                                                      ALLOC     179
                                                                                                                 ALLOC     180
            14  5021000000 X                      SA2    A1+N.TABLE  RECLAIM TABLE LENGTH WORD                   ALLOC     181
            15  36612                    ALCZ     IX6    X1+X2                                                   ALLOC     182
                     46000                        NO                                                             ALLOC     183
                          46000                   NO                                                             ALLOC     184
                               63760              SB7    X6          (B7) = LWA + 1 OF TABLE                     ALLOC     185
                                                                                                                 ALLOC     186
            16  0400400016 +             ALC      SUBR   0                                                       ALLOC     187
            17  5021000000 X                      SA2    A1+N.TABLE  CURRENT SIZE                                ALLOC     188
                          54311                   =A3    A1+1        ORIGIN OF NEXT                              ALLOC     189
                               36202              IX2    X0+X2       NEW SIZE                                    ALLOC     190
            20  73611                             =X6    X1+FUDGE                                                ALLOC     191
                     37736                        IX7    X3-X6                                                   ALLOC     192
                          37772                   IX7    X7-X2                                                   ALLOC     193
                                                                                                                 ALLOC     194
                                        **               TABLES HAVE CRASHED WHEN --                             ALLOC     195
                                        *         ORG(TABLE) + LENGTH(TABLE) + INCREMENT + 1 > ORG(NEXT)         ALLOC     196
                                                                                                                 ALLOC     197
                               10622              BX6    X2                                                      ALLOC     198
            21  54620                             SA6    A2          UPDATE SIZE                                 ALLOC     199
                     0327000015 +                 PL     X7,ALCZ     IF NO CRASH, EXIT..                         ALLOC     200
                                                                                                                 ALLOC     201
                                                                                                                 ALLOC     202
                                        **        WE HAVE A CRASH AND MUST RE-ALLOCATE -- PREPARE TO DO SO.      ALLOC     203
                                        *                SAVE REGISTERS.                                         ALLOC     204
                                                                                                                 ALLOC     205
                               37620              IX6    X2-X0                                                   ALLOC     206
            22  10755                             BX7    X5                                                      ALLOC     207
                     54620                        SA6    A2          RESTORE ORIGINAL SIZE, TEMPORARILY          ALLOC     208
                          22604                   LX6    X4                                                      ALLOC     209
                                                                     (ALCD)                                      ALLOC     210
            23  5170000225 +                      SA7    ALCD+8      +8 = (X5)                                   ALLOC     211
                          55671                   =A6    A7-1        +7 = (X4)                                   ALLOC     212
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     5
                                                                      ALC 
  
                               74750              SX7    A5                                                      ALLOC     213
            24  74640                             SX6    A4                                                      ALLOC     214
                     55761                        =A7    A6-1        +6 = (A5)                                   ALLOC     215
                          55671                   =A6    A7-1        +5 = (A4)                                   ALLOC     216
                               77760              SX7    B6-B0                                                   ALLOC     217
            25  77650                             SX6    B5-B0                                                   ALLOC     218
                     55761                        =A7    A6-1        +4 = (B6)                                   ALLOC     219
                          55671                   =A6    A7-1        +3 = (B5)                                   ALLOC     220
                               77740              SX7    B4-B0                                                   ALLOC     221
            26  77630                             SX6    B3-B0                                                   ALLOC     222
                     55761                        =A7    A6-1        +2 = (B4)                                   ALLOC     223
                          55671                   =A6    A7-1        +1 = (B3)                                   ALLOC     224
                               77720              SX7    B2-B0                                                   ALLOC     225
            27  6120000000 X                      SB2    BASES                                                   ALLOC     226
                          65212                   SB2    A1-B2                                                   ALLOC     227
                               55761              =A7    A6-1        +0 = (B2)                                   ALLOC     228
                                                                                                                 ALLOC     229
                                        **        SAVE THE BASE ADDRESS OF THE TABLE DESIGNATED BY (ALC.REG) FOR ALLOC     230
                                        *                THE *RELATIVE-REGISTER* FEATURE.                        ALLOC     231
                                                                                                                 ALLOC     232
            30  5120000226 +                      SA2    ALC.REG                                                 ALLOC     233
                          53120                   SA1    X2          FETCH OLD BASE                              ALLOC     234
                               10611              BX6    X1                                                      ALLOC     235
            31  54621                             =A6    A2+1                                                    ALLOC     236
                                                                                                                 ALLOC     237
                                                                                                                 ALLOC     238
                                        **        COMPUTE --                                                     ALLOC     239
                                        *                (L) = SPACE CURRENTLY OCCUPIED BY TABLES.               ALLOC     240
                                        *                    = SIGMA (0.LT. I .LT. N,  L(I) )                    ALLOC     241
                                        *                (A) = ALLOCATABLE SPACE CURRENTLY UNNEEDED.             ALLOC     242
                                        *                    = S - N*FUDGE - ( L + D )                           ALLOC     243
                                                                                                                 ALLOC     244
            32  5120000000 X             ALC.CK   SA2    =XW.TABS    SEE IF ENOUGH ROOM                          FCC0813   118
                          6170777776 X            SB7    N.TABLE-1                                               ALLOC     246
            33  73307                             SX3    X0+B7       ADD IN MINIMUM 1 WORD PER TABLE             ALLOC     247
            34  5117000000 X             ALC22    SA1    SIZES+B7                                                ALLOC     248
                          67771                   SB7    B7-B1                                                   ALLOC     249
                               36331              IX3    X3+X1                                                   ALLOC     250
            35  0670000034 +                      PL     B7,ALC22    SUM SIZES OF ALL TABLES                     ALLOC     251
                          37123                   IX1    X2-X3                                                   ALLOC     252
                               63430              SB4    X3          (B4) = TOTAL LENGTH                         ALLOC     253
                                         .SNAP    IFNE   TEST                                                    ALLOC     254
                                                  RJ     =XPTS       PRINT TABLE SIZES                           ALLOC     255
                                         .SNAP    ENDIF                                                          ALLOC     256
            36  5120000000 X                      SA2    =XTHRESH                                                FEAT155D   69
                          37112                   IX1    X1-X2       SUBTRACT THRESHHOLD AMOUNT                  FEAT155D   70
            37  0331000064 +                      MI     X1,ALO      IF NOT ENOUGH ROOM FOR TABLE                FEAT155D   71
                                                                                                                 ALLOC     265
                                                                                                                 ALLOC     266
                                        **        PACK ALL TABLES DOWN TO BOTTOM OF TABLE SPACE.                 ALLOC     267
                                        *                F(N) = (LOCORE) + (SIZCORE)                             ALLOC     268
                                        *                L(T) = L(T) + D                                         ALLOC     269
                                                                                                                 ALLOC     270
                                        *                (B2) = T                                                ALLOC     271
                                        *                (B3) = I                                                ALLOC     272
                                        *                (B4) = L + D                                            ALLOC     273
                                        *                (B5) = A                                                ALLOC     274
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     6
                                                                      ALC 
  
                                        *                (B6) = D                                                ALLOC     275
                                        *                (X4) = F + S                                            ALLOC     276
                                                                                                                 ALLOC     277
            40  63600                    ALC.GO   SB6    X0          (B6) = REQUESTED LENGTH                     ALLOC     278
                     63510                        SB5    X1          (B5) = SPACE AVAILABLE                      ALLOC     279
                          0100000336 +            RJ     MTD         MOVE TABLES DOWN TO LOW CORE                ALLOC     280
            41  5132000000 X                      SA3    B2+SIZES    INCREMENT SIZE                              ALLOC     281
                          73636                   SX6    X3+B6                                                   ALLOC     282
                               54630              SA6    A3                                                      ALLOC     283
            42  5110000000 X                      SA1    =XF.TABS                                                FCC0813   119
                          5120000000 X            SA2    =XW.TABS                                                FCC0813   120
            43  36412                             IX4    X1+X2       X4 = LWA+1 OF CORE                          ALLOC     286
                     6130777776 X                 SB3    N.TABLE-1                                               ALLOC     287
            44  0440400044 +                      ZR     B4,*+4S15   IF NO LENGTH                                ALLOC     288
                                                                                                                 ALLOC     289
                                                                                                                 ALLOC     290
                                        **        RE-ALLOCATE AND MOVE TABLE (I) TO ITS NEW POSITION.            ALLOC     291
                                        *                --  N .GT. I .GT. 0   --                                ALLOC     292
                                        *                F(I) = F(I+1) - L(I) - D1 - D2 - FUDGE                  ALLOC     293
                                        *                D1 = (1/2)*(A) / (N)                                    ALLOC     294
                                        *                D2 = (1/2)*(A) * (L(I)/L)                               ALLOC     295
                                                                                                                 ALLOC     296
            45  67331                    ALC25    SB3    B3-B1       DECREMENT TABLE POINTER                     ALLOC     297
                     5123000000 X                 SA2    B3+BASES    TABLE ORIGIN                                ALLOC     298
                               76050              SX0    B5          SPACE AVAILABLE                             ALLOC     299
            46  5012000000 X                      SA1    A2+N.TABLE                                              ALLOC     300
                          7130777776 X            SX3    N.TABLE-1                                               ALLOC     301
            47  23710                             AX7    X0,B1                                                   ALLOC     302
                     27000                        IX6    X0/X3       = A / N                                     ALLOC     303
            51  76340                             SX3    B4          TOTAL LENGTH                                ALLOC     304
                     42771                        IX7    X7*X1       = A/2 * L(I)                                ALLOC     305
                          21601                   AX6    1                                                       ALLOC     306
                               27707              IX7    X7/X3       = A/2 * (L(I)/(L+D))                        ALLOC     307
                          36667                   IX6    X6+X7                                                   ALLOC     308
                               73661              =X6    X6+FUDGE    = AMOUNT OF SLOP ABOVE THIS TABLE           ALLOC     309
            54  37646                             IX6    X4-X6       = F(I+1) - (K + (A*L(I)/(L+D)/2) + (A/2/N)  ALLOC     310
                     26101                        UX1    X1                                                      ALLOC     311
                          37761                   IX7    X6-X1       F(I) = (X6) - L(I)                          ALLOC     312
                               10377              BX3    X7                                                      ALLOC     313
            55  54720                             SA7    A2          SET NEW ORIGIN                              ALLOC     314
                     22407                        LX4    X7                                                      ALLOC     315
                          0301000057 +            ZR     X1,ALC27    IF EMPTY TABLE                              ALLOC     316
            56  0100000360 +                      RJ     MVE                                                     ALLOC     317
            57  0531000045 +             ALC27    NE     B3,B1,ALC25 IF MORE TABLES TO ALLOCATE                  ALLOC     318
                                                                                                                 ALLOC     319
                                                                                                                 ALLOC     320
                                        **        SET THE LOWEST TABLE TO THE BEGINNING OF TABLE SPACE, TO       ALLOC     321
                                        *                RECLAIM THE SPACE LOST THRU TRUNCATION --               ALLOC     322
                                        *                F(0) = F = (LOCORE)                                     ALLOC     323
                                                                                                                 ALLOC     324
                          5130000000 X            SA3    =XF.TABS                                                FCC0813   121
            60  5120000000 X                      SA2    BASES       FETCH FWA                                   ALLOC     326
                          5110000000 X            SA1    SIZES       FETCH SIZE                                  ALLOC     327
            61  22603                             LX6    X3                                                      ALLOC     328
                     13432                        BX4    X3-X2                                                   ALLOC     329
                          54620                   SA6    A2                                                      ALLOC     330
            62  0304000004 +                      ZR     X4,ALCW     IF LOWEST TABLE NOT MOVED                   ALLOC     331
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     7
                                                                      ALC 
  
                          0100000360 +            RJ     MVE                                                     ALLOC     332
            63  0400000004 +                      EQ     ALCW        EXIT..                                      ALLOC     333
  
  
  
  
                                        **        CORE OVERFLOW -- IT BECOMES NECESSARY (OR DESIRABLE) TO SPILL  ALLOC     335
                                        *         TO DISK OR ASK FOR MORE CORE.  IF FIELD LENGTH IS GREATER      FEAT155D   72
                                        *         THAN NOMINAL FIELD LENGTH WE WILL SPILL TO DISK.  IF NOT       FEAT155D   73
                                        *         OR IF WE ALREADY SPILLED WE GET MORE CORE.                     FEAT155D   74
                                                                                                                 ALLOC     337
                                                                                                                 ALLOC     338
            64  76620                    ALO      SX6    B2          SAVE ENTRY CALL VALUES                      ALLOC     339
                     10700                        BX7    X0                                                      ALLOC     340
                          5160000212 +            SA6    ALCC                                                    ALLOC     341
            65  54761                             =A7    A6+1                                                    ALLOC     342
                     10611                        BX6    X1                                                      ALLOC     343
                          54671                   =A6    A7+1        SAVE (AMOUNT OF CORE REQUIRED)              ALLOC     344
                                                                                                                 ALLOC     345
                                        *         IF WE ARE IN END PROCESSING (ASSEMBLY PHASE) TRY DUMPING       FEAT155D   75
                                        *         THE LINK AND FILL TABLES.                                      FEAT155D   76
                                                                                                                 FEAT155D   77
            66  5110000000 X                      SA1    PASS                                                    FEAT155D   78
                          5120000000 X            SA2    TT=LINK                                                 ALLOC     368
            67  6221777773                        =B2    X1-PASS=END                                             ALLOC     369
                          5130000000 X            SA3    TT=FILL                                                 ALLOC     370
            70  0520000075 +                      NZ     B2,ALC40    IF NOT IN PASS 3                            ALLOC     371
                          5110000000 X            SA1    NREXT                                                   ALLOC     372
            71  36023                             IX0    X2+X3                                                   ALLOC     373
                     37701                        IX7    X0-X1                                                   ALLOC     374
                          5130000000 X            SA3    =XTT=XFIL                                               ALLOC     375
            72  36773                             IX7    X7+X3                                                   ALLOC     376
                     6277777775                   SB7    X7-2                                                    ALLOC     377
            73  0607000075 +                      LE     B7,ALC40    IF NO ROOM TO BUY                           ALLOC     378
                          0100000000 X            RJ     DLF         DUMP LINK AND FILL                          ALLOC     379
            74  0400000140 +                      EQ     ALO.OK      TRY AGAIN..                                 ALLOC     380
                                                                                                                 ALLOC     381
                                                                                                                 ALLOC     382
                                        **        NO HELP ON LINK/FILL.  TRY TO OVERFLOW INTERMEDIATE.           ALLOC     383
                                        *                IF IN MAP PROCESSING, WE ARE AT THE END OF OUR ROPE.    ALLOC     384
                                                                                                                 ALLOC     385
            75  67701                    ALC40    =B7    PASS=END-PASS=MAP                                       ALLOC     386
                     5130000000 X                 SA3    =XCP.AFLS   TOTAL FIELD LENGTH                          FEAT155D   79
            76  7160001000                        SX6    INC.LTN     FIELD LENGTH INCREMENT WHEN FL .LT. NOMINAL FEAT155D   80
                          0472000143 +            EQ     B7,B2,ALC.GM      GET MORE MEMORY IF IN REF MAP PASS    FEAT155D   81
            77  5110000000 X                      SA1    =XBINIO                                                 FEAT155D   82
                          7140000000 X            SX4    =XNOM.TFL                                               FEAT155D   83
           100  0331000125 +                      MI     X1,ALC50    IF BINARY ALREADY ON DISK                   ALLOC     390
                          37243                   IX2    X4-X3       NOMINAL - ACTUAL FIELD LENGTH               FEAT155D   84
           101  0322000143 +                      PL     X2,ALC.GM   IF FL .LT. NOMINAL GET MORE CORE            FEAT155D   85
                          5110000000 X            SA1    IGS                                                     FEAT155D   86
           102  5120000214 +                      SA2    ALCC+2      (X2) = -(AMOUNT NEEDED)                     FEAT155D   87
                          36112                   IX1    X1+X2                                                   FCCA557    28
           103  0331000125 +                      MI     X1,ALC50    IF NO ROOM TO BUY                           FEAT155D   89
                          43673                   MX6    -1                                                      ALLOC     391
           104  5160000000 X                      SA6    BINIO       INDICATE TT.LF ON DISK                      FEAT155D   90
                          7120000000 X            OPEN   F.LF,,RCL                                               FCCA580    10
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     8
                                                                      ALO 
  
           106  5130000000 X                      SA3    IGS                                                     ALLOC     394
                          5110000000 X            SA1    TT.LF                                                   ALLOC     395
           107  63610                             WRITEW F.LF,X1,X3                                              ALLOC     397
                                         .TEST    IFNE   TEST,0,1                                                ALLOC     398
                                                  NOTE   E.MO4       ** INTERMEDIATE GOES TO DISK **             ALLOC     399
           111  5130000000 X                      SA3    PASS                                                    ALLOC     400
                          5110000000 X            SA1    IGS                                                     ALLOC     401
           112  6223777773                        =B2    X3-PASS=END                                             ALLOC     402
                          5130000000 X            SA3    TT=LF                                                   ALLOC     403
           113  0420000116 +                      ZR     B2,ALC45    IF IN *END*                                 ALLOC     404
                          5120000000 X            SA2    TT.LF                                                   ALLOC     405
           114  13666                             BX6    0                                                       ALLOC     406
                     36721                        IX7    X2+X1       FWA = FWA + IGS                             ALLOC     407
                          54610                   SA6    A1                                                      ALLOC     408
                               37631              IX6    X3-X1       LEN = LEN - IGS                             ALLOC     409
           115  54720                             SA7    A2                                                      ALLOC     410
                     54630                        SA6    A3                                                      ALLOC     411
                          0400000140 +            EQ     ALO.OK      TRY AGAIN..                                 ALLOC     412
                                                                                                                 ALLOC     413
           116  13666                    ALC45    SHRINK A3                                                      ALLOC     414
                          7120000000 X            WRITER F.LF                                                    ALLOC     415
           120  7120000000 X                      REWIND F.LF                                                    ALLOC     416
                                                                                                                 ALLOC     417
                                                  IFNE   CP#RM,7,1                                               ALLOC     418
           122  7120000000 X                      READ   F.LF                                                    ALLOC     419
                                                                                                                 ALLOC     420
           124  0400000140 +                      EQ     ALO.OK      TRY AGAIN..                                 ALLOC     421
                                                                                                                 ALLOC     422
                                                                                                                 ALLOC     423
                                        **        INTERMEDIATE NO HELP -- TRY TO DUMP REFERENCES.                ALLOC     424
                                                                                                                 ALLOC     425
           125  5110000000 X             ALC50    SA1    REFIO                                                   ALLOC     426
                          7160002000              SX6    INC.GTN     FIELD LENGTH INCREMENT WHEN FL .GT. NOMINAL FEAT155D   91
           126  0331000143 +                      MI     X1,ALC.GM   IF REFS ALREADY OUT GET MORE CORE           FEAT155D   92
                          7160001000              SX6    INC.LTN     FIELD LENGTH INCREMENT WHEN FL .LT. NOMINAL FEAT155D   93
           127  37243                             IX2    X4-X3       NOMINAL - ACTUAL FIELD LENGTH               FEAT155D   94
                     0322000143 +                 PL     X2,ALC.GM   IF FL .LE. NOMINAL GET MORE CORE            FEAT155D   95
           130  7160002000                        SX6    INC.GTN     FIELD LENGTH INCREMENT WHEN FL .GT. NOMINAL FEAT155D   96
                          5120000000 X            SA2    TT=REF                                                  FEAT155D   97
           131  5110000214 +                      SA1    ALCC+2      (X1) = - (AMOUNT NEEDED)                    FEAT155D   98
                          36221                   IX2    X2+X1                                                   FEAT155D   99
           132  0332000143 +                      MI     X2,ALC.GM   IF NO ROOM TO BUY                           FEAT155D  100
                          43773                   MX7    -1                                                      ALLOC     430
           133  5170000000 X                      SA7    REFIO       INDICATE TT.REF ON DISK                     FEAT155D  101
                          7120000000 X            OPEN   F.RMAP,,RCL                                             FCCA580    11
           135  5130000000 X                      SA3    TT=REF                                                  ALLOC     434
                          5110000000 X            SA1    TT.REF                                                  ALLOC     437
           136  13666                             SHRINK A3                                                      ALLOC     438
                          63610                   WRITEW F.RMAP,X1,X3                                            ALLOC     439
                                         .TEST    IFNE   TEST,0,1                                                ALLOC     440
                                                  NOTE   E.MO5       ** CROSS REFERENCE GOES TO DISK **          ALLOC     441
                                        *         EQ     ALO.OK      TRY AGAIN..                                 ALLOC     442
                                                                                                                 ALLOC     443
                                        **        SOMETHING WAS SUCCESSFULLY DUMPED --                           ALLOC     444
                                        *                RETRIEVE ENTRY VALUES AND TRY AGAIN.                    ALLOC     445
                                                                                                                 ALLOC     446
           140  6170000032 +             ALO.OK   SB7    ALC.CK                                                  ALLOC     447
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE     9
                                                                      ALO 
  
                          5110000214 +            SA1    ALCC+2                                                  ALLOC     448
                                                                                                                 ALLOC     449
           141  55311                    ALO.OK2  =A3    A1-1        RESTORE ENTRY VALUES                        ALLOC     450
                     55231                        =A2    A3-1                                                    ALLOC     451
                          10033                   BX0    X3                                                      ALLOC     452
                               63220              SB2    X2                                                      ALLOC     453
           142  0277000000                        JP     B7          TRY AGAIN..                                 ALLOC     454
                                                                                                                 ALLOC     455
                                                                                                                 ALLOC     456
                                        **        GET MORE MEMORY                                                FEAT155D  102
                                        *         ENTRY  (X6) = INCREMENT                                        FEAT155D  103
                                        *                (X3) = CP.AFLS                                          FEAT155D  104
                                                                                                                 FEAT155D  105
           143  5110000000 X             ALC.GM   SA1    =XMAX.FL    MAX FL FOR JOB STEP                         FEAT155D  106
                          36636                   IX6    X3+X6       CURRENT FL + INCREMENT                      FEAT155D  107
                               37416              IX4    X1-X6       MAXFL - NEWFL                               FEAT155D  108
           144  0324000146 +                      PL     X4,ALC.GM1  IF NEWFL .LE. MAXFL                         FEAT155D  109
                          37231                   IX2    X3-X1       CURRENT FL - MAXFL                          FEAT155D  110
           145  0322000160 +                      PL     X2,ALC.OV   IF MAXFL .LE. CURRENT FL, DIE               FEAT155D  111
                          10611                   BX6    X1          NEWFL = MAXFL                               FEAT155D  112
           146  20636                    ALC.GM1  LX6    30                                                      FEAT155D  113
                     5160000000 X                 SA6    =XGT1                                                   FEAT155D  114
           147  7160150515                        MEMORY SCM,GT1,RCL                                             FEAT155D  115
           152  5110000000 X                      SA1    =XGT1                                                   FEAT155D  116
                          21136                   AX1    30                                                      FEAT155D  117
                               10611              BX6    X1                                                      FEAT155D  118
           153  5160000000 X                      SA6    =XCP.AFLS   SET ACTUAL FL                               FEAT155D  119
                          7266777765              SX6    X6-10                                                   FEAT155D  120
           154  5160000000 X                      SA6    =XCP.NFLS   SET NOMINAL FL                              FEAT155D  121
                          5160000000 X            SA6    =XT.END                                                 FCC1328AX  10
           155  5110000000 X                      SA1    =XF.TABS    BEGINNING OF TABLES                         FEAT155D  122
                          37661                   IX6    X6-X1                                                   FEAT155D  123
           156  5160000000 X                      SA6    =XW.TABS    AMOUNT OF CORE TO BE MANAGED                FEAT155D  124
                          21604                   AX6    FLSLOP                                                  FEAT155D  125
           157  5160000000 X                      SA6    =XTHRESH    GIVE ALLOC SOME ELBOW ROOM                  FEAT155D  126
                          0400000140 +            EQ     ALO.OK      TRY AGAIN                                   FEAT155D  127
                                                                                                                 FEAT155D  128
                                                                                                                 FEAT155D  129
                                        **        IT WAS ALL TO NO AVAIL.  REPORT FAILURE AND ABORT.             ALLOC     457
                                        *         ENTRY  (X6) = PASS NUMBER                                      ALLOC     458
                                                                                                                 ALLOC     459
           160  5110000214 +             ALC.OV   SA1    ALCC+2                                                  ALLOC     460
                          6170000040 +            SB7    ALC.GO                                                  ALLOC     461
           161  0321000141 +                      PL     X1,ALO.OK2  IF THRESHOLD ALARM                          ALLOC     462
                          5120000000 X            SA2    FAILSFT                                                 ALLOC     463
           162  0312000201 +                      NZ     X2,ALO.DIE  IF ALREADY HAD OVERFLOW                     ALLOC     464
                          13666                   BX6    0                                                       ALLOC     465
                               73721              =X7    X2+1                                                    ALLOC     466
           163  5160000000 X                      SHRINK TT=ASF,X6                                               ALLOC     467
                          54720                   SA7    A2          SET FAILSOFT FLAG                           ALLOC     468
           164  5160000000 X                      SHRINK TP=DIM,X6                                               ALLOC     469
                                         .CMLOD   IFNE   .CMLOD,,1                                               ALLOC     470
                                                  SHRINK T=LGO,X6                                                ALLOC     471
                          5160000000 X            SHRINK TT=LF,X6                                                FCC0813   122
           165  5160000000 X                      SHRINK TT=USE,X6                                               ALLOC     473
                          5160000000 X            SHRINK TT=SCR,X6                                               ALLOC     474
           166  5160000000 X                      SHRINK TS=CON,X6                                               ALLOC     475
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    10
                                                                      ALO 
  
                          5160000000 X            SHRINK TA=NAM,X6                                               ALLOC     476
           167  5160000000 X                      SHRINK TP=DO,X6                                                ALLOC     477
                          5160000000 X            SHRINK TS=EQU,X6                                               ALLOC     478
           170  5160000000 X                      SHRINK TP=FMT,X6                                               ALLOC     479
                          5160000000 X            SHRINK TT=PAR,X6                                               ALLOC     480
           171  5160000000 X                      SHRINK TP=NLST,X6                                              ALLOC     481
                          5160000000 X            SHRINK TP=APL,X6                                               ALLOC     482
           172  5160000000 X                      SHRINK TA=PRO,X6                                               ALLOC     483
                          5160000000 X            SHRINK TS=DAT,X6                                               ALLOC     484
           173  5160000000 X                      SHRINK TT=REF,X6                                               ALLOC     485
                          7170000000 X            =X7    CPM=BY                                                  ALLOC     486
           174  5160000000 X                      SHRINK TS=BLK,X6                                               ALLOC     487
                          5160000000 X            SHRINK TS=ENT,X6                                               ALLOC     488
           175  5170000000 X                      SA7    STAGE       BYPASS REST OF PROGRAM                      ALLOC     489
                          6170000000 X            FATAL  E.MO2                                                   FCC0931    13
           177  5110000000 X                      SA1    PASS                                                    FCC0931    14
                          7211777773              SX1    X1-PASS=END                                             FCC0931    15
           200  0331000000 X                      MI     X1,=XPSP.F  IF NOT IN END OR MAP PROCESSING             FCC0931    16
                          0400000000 X            EQ     =XEND96     FINISH OFF THIS COMPILATION                 FCC0931    17
                                                                                                                 ALLOC     492
                                                                                                                 ALLOC     493
                                        **        NOT EVEN ENUF ROOM TO SKIP TO AN *END* CARD --                 ALLOC     494
                                        *                DAYFILE MESSAGE AND ABORT JOB                           ALLOC     495
                                                                                                                 ALLOC     496
           201  7110000236 +             ALO.DIE  PLINE  ALC=OV,3,2                                              FEAT155D  130
           203  7110000236 +                      MESAGE ALC=OV,,RCL                                             ALLOC     505
           205  7120000000 X                      WRITER F.OUT                                                   ALLOC     506
           207  7120000000 X                      WRITER F.LGO                                                   ALLOC     507
           211  0400000000 X                      EQ     =XENDFTN                                                ALLOC     508
                                                                                                                 ALLOC     535
           212  00000000000000000000     ALCC     DATA   0,0         TEMPORARY STORAGE FOR OVERFLOW              ALLOC     536
           214  00000000000000000000              CON    0           SAVE CORE REQUIRED                          ALLOC     537
                                                                                                                 ALLOC     538
                                                                     SAVE CELLS DURING TABLE MOVES --            ALLOC     539
           215                     1     ALCD     BSS    1           (B2)                                        ALLOC     540
           216                     1              BSS    1           (B3)                                        ALLOC     541
           217                     1     ALC=B4   BSS    1           (B4)                                        ALLOC     542
           220                     1     ALC=B5   BSS    1           (B5)                                        ALLOC     543
           221                     1              BSS    1           (B6)                                        ALLOC     544
           222                     1              BSS    1           (A4)                                        ALLOC     545
           223                     1     ALC=A5   BSS    1           (A5)                                        FCC1224    24
           224                     1              BSS    1           (X4)                                        ALLOC     547
           225                     1              BSS    1           (X5)                                        ALLOC     548
                                                                                                                 ALLOC     549
                                 214 +   ALC=00   EQU    ALCD-1      FAKE, USED TO NO-OP RELATIVE REGISTER       ALLOC     550
                                                                                                                 ALLOC     551
           226  00000000000214 +         ALC.REG  VFD    24/0,18/ALC=00,18/BASES                                 ALLOC     552
                              000000 X
           227                     1              BSS    1           SAVE CELL FOR ORIGIN OF RELATIVE TABLE      ALLOC     553
                                                                                                                 ALLOC     554
           230  00000000000214 +         ALC.00   VFD    24/0,18/ALC=00,18/BASES                                 ALLOC     555
                              000000 X
           231  00000000000217 +         ALC.ASF  VFD    24/0,18/ALC=B4,18/TT.ASF                                ALLOC     556
                              000000 X
           232  00000000000217 +         ALC.CAI  VFD    24/0,18/ALC=B4,18/TT.PAR                                ALLOC     557
                              000000 X
           233  00000000000217 +         ALC.FVD  VFD    24/0,18/ALC=B4,18/T.VDIM                                ALLOC     558
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    11
                                                                      ALO 
  
                              000000 X
           234  00000000000220 +         ALC.DO   VFD    24/0,18/ALC=B5,18/TP.DO                                 ALLOC     559
                              000000 X
           235  00000000000223 +         ALC.PIG  VFD    24/0,18/ALC=A5,18/TT.LF                                 FCC1224    25
                              000000 X
                                                                                                                 ALLOC     560
           236  55240102140555172605     ALC=OV   DIS    2, TABLE OVERFLOW IN                                    ALLOC     561
           240  00000000000000000000     IDENT    DATA   0           ROUTINE NAME 0L FORMAT                      FEAT126A  769
           241  00000000000000000000              CON    0           ZERO WORD STOPPER FOR PVF                   FEAT126A  770
  
  
  
  
  
  
  
  
                                        **        ERT -  ENTER REFERENCE TABLE.                                  ALLOC     599
                                        *         ENTRY  (X6) = TAG.                                             ALLOC     600
                                        *                (X1) = USAGE LETTER CR.XXX AS DEFINED IN TSTEXT.        ALLOC     601
                                        *                                                                        ALLOC     602
                                        *         NOTE                                                           ALLOC     603
                                        *                ALL CALLS TO *ERT* SHOULD USE MACRO *ADDREF*            ALLOC     604
                                        *                                                                        ALLOC     605
                                        *         USES   A1-A4,A6,A7  B2,B3,B7  X0-X3,X6,X7                      ALLOC     606
                                        *                PRESERVES  A0,A5  X4,X5  B4,B5,B6                       ALLOC     607
                                        *                (ADWT+0 - +1)                                           ALLOC     608
                                        *                (ALCD+0 - +2)                                           ALLOC     609
                                                                                                                 ALLOC     610
                                                                                                                 ALLOC     611
           242  76600                    ERT1     SHRINK TT=REF,0    TABLE JUST OVERFLOWED                       ALLOC     612
                                                                                                                 ALLOC     613
           243  76660                    ERT2     SX6    B6                                                      ALLOC     614
                     76750                        SX7    B5                                                      ALLOC     615
                          5160000215 +            SA6    ERTD        (ERTD+0) = (B6)                             ALLOC     616
           244  54761                             =A7    A6+1             +1  = (B5)                             ALLOC     617
                     10644                        BX6    X4                                                      ALLOC     618
                          54671                   =A6    A7+1             +2  = (X4)                             ALLOC     619
                               76040              SX0    B4          SAVE (B4)                                   ALLOC     620
           245  6160000000 X                      WRITEW F.RMAP,ADWT,1                                           ALLOC     621
           247  63400                             SB4    X0          RESTORE (B4)                                ALLOC     622
                     5120000215 +                 SA2    ERTD                                                    ALLOC     623
           250  5110000001 X                      SA1    ADWT+1                                                  ALLOC     624
                          54321                   =A3    A2+1                                                    ALLOC     625
                               54431              =A4    A3+1        RESTORE (X4)                                ALLOC     626
           251  63620                             SB6    X2          RESTORE (B6)                                ALLOC     627
                     63530                        SB5    X3          RESTORE (B5)                                ALLOC     628
                          63710                   SB7    X1                                                      ALLOC     629
           252  0277000000                        JP     B7          EXIT..                                      ALLOC     630
                                                                                                                 ALLOC     631
           253  5120000000 X             ERT      SA2    REFLIN      THIS INSTRUCTION IS CHANGED BY CONTROL CARD ALLOC     632
                                        ,                            PROCESSING IF X-REF IS NOT SELECTED.        ALLOC     633
                          43022                   MX0    L.TAG                                                   ALLOC     634
                               11606              BX6    X0*X6       ISOLATE TAG                                 ALLOC     635
           254  36312                             IX3    X1+X2       PAGE, LINE, USE                             ALLOC     636
                     5110000000 X                 SA1    LOSTREF                                                 ALLOC     637
                               36636              IX6    X3+X6                                                   ALLOC     638
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    12
                                                                      ERT 
  
           255  5160000000 X                      SA6    ADWT                                                    ALLOC     639
                          73611                   SX6    X1+B1       ACCUMULATE REF COUNT                        ALLOC     640
           256  5120000000 X                      SA2    REFIO                                                   ALLOC     641
                          54610                   SA6    A1                                                      ALLOC     642
                               76670              SX6    B7                                                      ALLOC     643
           257  5160000001 X                      SA6    ADWT+1      SAVE EXIT ADDRESS                           ALLOC     644
                          0312000243 +            NZ     X2,ERT2     IF ON DISK                                  ALLOC     645
                                                                                                                 ALLOC     646
           260  5110000000 X                      ALLOC  TT.REF,1                                                ALLOC     647
           262  5130000000 X                      SA3    REFIO                                                   ALLOC     648
                          0313000242 +            NZ     X3,ERT1     IF JUST OVERFLOWED                          ALLOC     649
           263  5130000001 X                      SA3    ADWT+1                                                  ALLOC     650
                          55231                   =A2    A3-1                                                    ALLOC     651
                               63230              SB2    X3                                                      ALLOC     652
           264  10622                             BX6    X2                                                      ALLOC     653
                     57671                        =A6    B7-1        STORE REFERENCE IN TABLE                    ALLOC     654
                          0222000000              JP     B2          EXIT..                                      ALLOC     655
                                                                                                                 ALLOC     656
                                 215 +   ERTD     EQU    ALCD        SAVES (B6, B5, X4)                          ALLOC     657
  
  
  
  
                                        **        ESC -  EXPAND SHORT CONSTANT                                   ALLOC     659
                                        *                                                                        ALLOC     660
                                        *         ENTRY  (X5) = PROPOSED SHORT CONSTANT                          ALLOC     661
                                        *                                                                        ALLOC     662
                                        *         EXIT   IF (X5) WAS NOT A SHORT CONSTANT                        ALLOC     663
                                        *                   (X5) = PRESERVED.                                    ALLOC     664
                                        *                IF (X5) WAS SHORT.                                      ALLOC     665
                                        *                   (X5) = CONSTANT TAG.                                 ALLOC     666
                                        *         USES   A1,A2,A3,A6,A7  X0  B2,B7                               ALLOC     667
                                        *                (ADWT+1)                                                ALLOC     668
                                                                                                                 ALLOC     669
                                                                                                                 ALLOC     670
           265  0400400265 +             ESC      SUBR   0                                                       ALLOC     671
           266  10255                             BX2    X5                                                      ALLOC     672
                     43071                        MX0    -L.MODE                                                 ALLOC     673
                          20260                   IFBIT  X2,-SHORT,ESCX    IF NOT SHORT CONSTANT                 ALLOC     674
                          15750                   BX7    -X0*X5                                                  ALLOC     675
                                                                                                                 ALLOC     676
                                        **        CHECK FOR MASK-TYPE CONSTANT                                   ALLOC     677
                                                                                                                 ALLOC     678
                               43066              MX0    -L.MSHORT                                               ALLOC     679
           270  20030                             LX0    P.MSHORT                                                ALLOC     680
                     15250                        BX2    -X0*X5                                                  ALLOC     681
                          0302000273 +            ZR     X2,ESC3     IF NOT MASK-TYPE CONSTANT                   ALLOC     682
           271  21230                             AX2    P.MSHORT                                                ALLOC     683
                                                                                                                 ALLOC     684
                                        *         CREATE LONG CONSTANT                                           ALLOC     685
                                                                                                                 ALLOC     686
                     43501                        MX5    1                                                       ALLOC     687
                          6222777776              SB2    X2-1                                                    ALLOC     688
           272  23525                             AX5    B2,X5                                                   ALLOC     689
                     0400000275 +                 EQ     ESC5                                                    ALLOC     690
                                                                                                                 ALLOC     691
           273  6277777774               ESC3     SB7    X7-M.REAL                                               ALLOC     692
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    13
                                                                      ESC 
  
                          21552                   AX5    P.SHC                                                   ALLOC     693
           274  0570000275 +                      NZ     B7,ESC5     IF NOT REAL                                 ALLOC     694
                          20552                   LX5    P.SHC                                                   ALLOC     695
           275  10655                    ESC5     BX6    X5                                                      ALLOC     696
                     5110000000 X                 SCAN   TS.CON,SCT                                              ALLOC     697
           277  0770000301 +                      MI     B7,ESC10    IF NOT IN TABLE                             ALLOC     698
                          7107340000              SX0    B7+C.CON                                                ALLOC     699
           300  20052                             LX0    P.2TAG                                                  ALLOC     700
                     36507                        IX5    X0+X7       MERGE MODE                                  ALLOC     701
                          0400000265 +            EQ     ESCX        EXIT..                                      ALLOC     702
                                                                                                                 ALLOC     703
                                        **        IF NOT IN CONSTANT TABLE                                       ALLOC     704
                                                                                                                 ALLOC     705
           301  5170000001 X             ESC10    SA7    ADWT+1      SAVE MODE                                   ALLOC     706
                          0100000002 +            ADDWD  A1                                                      ALLOC     707
           302  7202337777                        SX0    X2+C.CON-1                                              ALLOC     708
                          5120000001 X            SA2    ADWT+1      MODE                                        ALLOC     709
           303  20052                             LX0    P.2TAG                                                  ALLOC     710
                     12502                        BX5    X0+X2       MERGE MODE                                  ALLOC     711
                          0400000265 +            EQ     ESCX        EXIT..                                      ALLOC     712
  
  
  
  
                                        **        ESN -  ENTER *STATEMENT NUMBER*/*TAG* IN TABLE.                ALLOC     714
                                        *                                                                        ALLOC     715
                                        *         ENTRY  (A1) _ TABLE TO BE ENTERED.                             ALLOC     716
                                        *         ENTRY  (X6) = SYMBOL.                                          ALLOC     717
                                        *                (X7) = TAG ENTRY.   18/0, 42/AS DESIRED.                ALLOC     718
                                        *                TAG ENTRY MUST NEVER HAVE ANYTHING SET IN THE HIGH      ALLOC     719
                                        *                ORDER L.TAG BITS.                                       ALLOC     720
                                        *                (NEXT) = ORDINAL. (SEE *SHT*)                           ALLOC     721
                                        *         EXIT   (X0) = ORDINAL OF *SYMBOL* ENTRY.                       ALLOC     722
                                        *                (A6) _ TAG JUST ENTERED.                                ALLOC     723
                                        *                (X6) = TAG.                                             ALLOC     724
                                        *                (A6)-1 _ STATEMENT NUMBER JUST ENTERED.                 ALLOC     725
                                        *                (B7) = ORDINAL OF SYMBOL ENTRY.                         ALLOC     726
                                        *                                                                        ALLOC     727
                                        *         USES   A1,A2,A3  X0  B2,B7                                     ALLOC     728
                                        *         CALLS  MANAGE                                                  ALLOC     729
                                                                                                                 ALLOC     730
                                                                                                                 ALLOC     731
                                        **        HERE IF BASE ENTRY CLEAR.                                      ALLOC     732
                                                                                                                 ALLOC     733
           304  14022                    ESN10    BX0    -X2                                                     ALLOC     734
                     63700                        SB7    X0                                                      ALLOC     735
                          7230240001              SX3    X0+C.STAT+1 ORDINAL+ TAG BITS.                          ALLOC     736
           305  53617                             SA6    X1+B7                                                   ALLOC     737
                     20352                        LX3    P.TAG                                                   ALLOC     738
                          36637                   IX6    X3+X7                                                   ALLOC     739
                               54661              SA6    A6+B1       STORE *TAG*                                 ALLOC     740
                                                                                                                 ALLOC     741
           306  0400400306 +             ESN      SUBR   0                                                       ALLOC     742
           307  5120000603 +                      SA2    NEXT                                                    ALLOC     743
                          0332000304 +            MI     X2,ESN10    IF *BASE INDEX* NOT OCCUPIED.               ALLOC     744
                                                                                                                 ALLOC     745
                                        **        HERE IF BASE ENTRY OCCUPIED.                                   ALLOC     746
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    14
                                                                      ESN 
  
                                                                                                                 ALLOC     747
           310  5160000334 +             ESN5     SA6    SSYM                                                    ALLOC     748
                          10677                   BX6    X7                                                      ALLOC     749
                               54661              SA6    A6+B1       SAVE SYMBOL + TAG.                          ALLOC     750
           311  76011                             ALLOC  A1,2                                                    ALLOC     751
                                                                                                                 ALLOC     752
                                        **        HERE WITH                                                      ALLOC     753
                                        *         (X1) = NEW ORIGIN                                              ALLOC     754
                                        *         (X2) = LENGTH.                                                 ALLOC     755
                                        *         (NEXT) = ORDINAL OF SYMBOL ENTRY THAT NEEDS LINK FIELD.        ALLOC     756
                                                                                                                 ALLOC     757
           312  63210                             SB2    X1                                                      ALLOC     758
                     5110000603 +                 SA1    NEXT                                                    ALLOC     759
           313  7202777775                        SX0    X2-2        ORDINAL                                     ALLOC     760
                          53212                   SA2    X1+B2       CHAIN ENTRY TO BE MODIFIED                  ALLOC     761
           314  5110000334 +                      SA1    SSYM        SYMBOL                                      ALLOC     762
                          36620                   IX6    X2+X0       ADD CHAIN LINK TO SYMBOL.                   ALLOC     763
                               54311              SA3    A1+B1       TAG                                         ALLOC     764
           315  54620                             SA6    A2                                                      ALLOC     765
                     22601                        LX6    X1                                                      ALLOC     766
                          7220240001              SX2    X0+C.STAT+1                                             ALLOC     767
           316  53602                             SA6    X0+B2       NEW SYMBOL ENTRY                            ALLOC     768
                     20252                        LX2    P.TAG                                                   ALLOC     769
                          36623                   IX6    X2+X3                                                   ALLOC     770
                               54661              SA6    A6+B1       NEW TAG    ENTRY                            ALLOC     771
           317  63700                             SB7    X0          ORDINAL OF SYMBOL ENTRY.                    ALLOC     772
                     0400000306 +                 EQ     ESNX        EXIT..                                      ALLOC     773
  
  
  
  
                                        **        ESY -  ENTER *SYMBOL*/*TAG* IN TABLE.                          ALLOC     775
                                        *                                                                        ALLOC     776
                                        *         ENTRY  (A1) _ TABLE TO BE ENTERED.                             ALLOC     777
                                        *         ENTRY  (X6) = SYMBOL.                                          ALLOC     778
                                        *                (X7) = TAG ENTRY.   18/0, 42/AS DESIRED.                ALLOC     779
                                        *                TAG ENTRY MUST NEVER HAVE ANYTHING SET IN THE HIGH      ALLOC     780
                                        *                ORDER L.TAG BITS.                                       ALLOC     781
                                        *                (NEXT) = ORDINAL. (SEE *SHT*)                           ALLOC     782
                                        *         EXIT   (X0) = ORDINAL OF *SYMBOL* ENTRY.                       ALLOC     783
                                        *                (A6) _ TAG JUST ENTERED.                                ALLOC     784
                                        *                (X6) = TAG.                                             ALLOC     785
                                        *                (A6)-1 _ SYMBOL JUST ENTERED.                           ALLOC     786
                                        *         (B7) _ ORDINAL OF *SYMBOL* ENTRY.                              ALLOC     787
                                        *         USES   A1,A2,A3  X0  B2,B7                                     ALLOC     788
                                        *         CALLS  MANAGE.                                                 ALLOC     789
                                                                                                                 ALLOC     790
                                                                                                                 ALLOC     791
                                        **        HERE IF BASE ENTRY CLEAR.                                      ALLOC     792
                                                                                                                 ALLOC     793
           320  14022                    ESY10    BX0    -X2                                                     ALLOC     794
                     63700                        SB7    X0                                                      ALLOC     795
                          7230200001              SX3    X0+C.SYM+1  ORDINAL+ TAG BITS.                          ALLOC     796
           321  53617                             SA6    X1+B7       STORE *SYMBOL*                              ALLOC     797
                     20352                        LX3    P.TAG                                                   ALLOC     798
                          36637                   IX6    X3+X7                                                   ALLOC     799
                               54661              SA6    A6+B1       STORE *TAG*                                 ALLOC     800
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    15
                                                                      ESY 
  
                                                                                                                 ALLOC     801
           322  0400400322 +             ESY      SUBR   0                                                       ALLOC     802
           323  5120000603 +                      SA2    NEXT                                                    ALLOC     803
                          0332000320 +            MI     X2,ESY10    IF *BASE INDEX* NOT OCCUPIED.               ALLOC     804
                                                                                                                 ALLOC     805
                                        **        HERE IF BASE ENTRY OCCUPIED.                                   ALLOC     806
                                                                                                                 ALLOC     807
           324  5160000334 +             ESY5     SA6    SSYM                                                    ALLOC     808
                          10677                   BX6    X7                                                      ALLOC     809
                               54661              SA6    A6+B1       SAVE SYMBOL + TAG.                          ALLOC     810
           325  76011                             ALLOC  A1,2                                                    ALLOC     811
                                                                                                                 ALLOC     812
                                        **        HERE WITH                                                      ALLOC     813
                                        *         (X1) = NEW ORIGIN.                                             ALLOC     814
                                        *         (X2) = LENGTH.                                                 ALLOC     815
                                        *         (NEXT) = ORDINAL OF SYMBOL ENTRY THAT NEEDS LINK FIELD.        ALLOC     816
                                                                                                                 ALLOC     817
           326  63210                             SB2    X1                                                      ALLOC     818
                     5110000603 +                 SA1    NEXT                                                    ALLOC     819
           327  7202777775                        SX0    X2-2        ORDINAL                                     ALLOC     820
                          53212                   SA2    X1+B2       CHAIN ENTRY TO BE MODIFIED                  ALLOC     821
           330  5110000334 +                      SA1    SSYM        SYMBOL                                      ALLOC     822
                          36620                   IX6    X2+X0       ADD CHAIN LINK TO SYMBOL.                   ALLOC     823
                               54311              SA3    A1+B1       TAG                                         ALLOC     824
           331  54620                             SA6    A2                                                      ALLOC     825
                     22601                        LX6    X1                                                      ALLOC     826
                          7220200001              SX2    X0+C.SYM+1                                              ALLOC     827
           332  53602                             SA6    X0+B2       NEW SYMBOL ENTRY                            ALLOC     828
                     20252                        LX2    P.TAG                                                   ALLOC     829
                          36623                   IX6    X2+X3                                                   ALLOC     830
                               54661              SA6    A6+B1       NEW TAG    ENTRY                            ALLOC     831
           333  63700                             SB7    X0          ORDINAL OF SYMBOL ENTRY.                    ALLOC     832
                     0400000322 +                 EQ     ESYX        EXIT..                                      ALLOC     833
                                                                                                                 ALLOC     834
           334  00000000000000000000     SSYM     DATA   0,0         SYMBOL,TAG ENTRYS.                          ALLOC     835
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    16
                                                                      MTD 
  
                                        **        MTD -  MOVE ALL TABLES TO LOW CORE.                            ALLOC     838
                                        *         PACKS UP ALL TABLES AT LOWER END OF MANAGED SPACE.             ALLOC     839
                                        *         USES   A1,A2,A6,A7  X0,X3,X4  B3,B7                            ALLOC     840
                                        *         CALLS  MVE                                                     ALLOC     841
                                                                                                                 ALLOC     842
                                                                                                                 ALLOC     843
           336  0400400336 +             MTD      SUBR   0                                                       ALLOC     844
           337  6130777776 X                      SB3    N.TABLE-1                                               ALLOC     845
                          67303                   SB3    -B3                                                     ALLOC     846
           340  5120000000 X                      SA2    =XF.TABS                                                FCC0813   123
                          10422                   BX4    X2                                                      ALLOC     848
                                                                                                                 ALLOC     849
           341  7113777776 X             MTD1     SX1    B3+N.TABLE-1                                            ALLOC     850
                          5221000000 X            SA2    X1+ORIGINS                                              ALLOC     851
           342  5211000000 X                      SA1    X1+SIZES                                                ALLOC     852
                          22304                   LX3    X4                                                      ALLOC     853
                               36441              IX4    X4+X1                                                   ALLOC     854
           343  22703                             LX7    X3                                                      ALLOC     855
                     54720                        SA7    A2                                                      ALLOC     856
                          66331                   SB3    B3+B1                                                   ALLOC     857
           344  0100000360 +                      RJ     MVE                                                     ALLOC     858
           345  0530000341 +             MTD2     NZ     B3,MTD1     IF MORE TABLES TO DO                        ALLOC     859
                          0400000336 +            EQ     MTDX        EXIT..                                      ALLOC     860
  
  
  
  
                                        **        MTU - MOVE ALL TABLES TO HIGH CORE.                            ALLOC     862
                                                                                                                 ALLOC     863
                                         MTU      SKIP                                                           ALLOC     864
                                                                                                                 ALLOC     865
                                         MTU      PS                 RETURN EXIT                                 ALLOC     866
                                                  SB2    NTABLES                                                 ALLOC     867
                                                  SA1    =XF.TABS                                                FCC0813   124
                                                  SA2    =XW.TABS                                                FCC0813   125
                                                  IX0    X1+X2       LWA+1 OF TABLE SPACE AVAILABLE              ALLOC     870
                                                  SB3    B2-B1                                                   ALLOC     871
                                         MTU1     SB3    B3-B1                                                   ALLOC     872
                                                  SA2    ORIGINS+B3                                              ALLOC     873
                                                  SA1    SIZES+B3                                                ALLOC     874
                                                  IX7    X0-X1                                                   ALLOC     875
                                                  LX0    X7                                                      ALLOC     876
                                                  SA7    A2                                                      ALLOC     877
                                                  BX3    X0                                                      ALLOC     878
                                                  RJ     MOVE                                                    ALLOC     879
                                                  NZ     B3,MTU1     LOOP                                        ALLOC     880
                                                  EQ     MTU         EXIT                                        ALLOC     881
                                         MTU      ENDIF                                                          ALLOC     882
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    17
                                                                      MVE 
  
                                        **        MVE - MOVE BLOCK OF DATA.                                      ALLOC     884
                                        *                                                                        ALLOC     885
                                        *         G. R. MANSFIELD.  70/09/04.                                    ALLOC     886
                                        *         ADAPTED FROM SUBROUTINE *MOVE* IN *COMPASS VER 2.0*.           ALLOC     887
                                        *         THIS VERSION ADAPTED TO COMPILER FROM ABOVE.                   ALLOC     888
                                        *                                                                        ALLOC     889
                                        *         MVE MOVES A BLOCK OF DATA UPWARDS OR DOWNWARDS, TO AVOID OVER- ALLOC     890
                                        *                STORES.  WILL NOT MOVE ANYTHING IF WORD COUNT IS ZERO,  ALLOC     891
                                        *                OR SOURCE = DESTINATION.                                ALLOC     892
                                        *                                                                        ALLOC     893
                                        *         ENTRY  (X1) = WORD COUNT.                                      ALLOC     894
                                        *                (X2) = SOURCE ADDRESS.                                  ALLOC     895
                                        *                (X3) = DESTINATION ADDRESS.                             ALLOC     896
                                        *                                                                        ALLOC     897
                                        *         USES   A1,A2,A6,A7  X0,X3  B7                                  ALLOC     898
                                                                                                                 ALLOC     899
                                                                                                                 ALLOC     900
                                        *         BEGIN DOWNWARD MOVE                                            ALLOC     901
                                                                                                                 ALLOC     902
           346  6170777775               MVE2     SB7    -2          UPWARD MOVE                                 ALLOC     903
                          73227                   SX2    X2+B7                                                   ALLOC     904
                               73337              SX3    X3+B7                                                   ALLOC     905
           347  66711                             SB7    B1+B1                                                   ALLOC     906
                     0306000351 +                 ZR     X6,MVE3     IF WORD COUNT EVEN                          ALLOC     907
                               53127              SA1    X2+B7       MOVE INITIAL WORD                           ALLOC     908
           350  36226                             IX2    X2+X6                                                   ALLOC     909
                     10711                        BX7    X1                                                      ALLOC     910
                          53737                   SA7    X3+B7                                                   ALLOC     911
                               36336              IX3    X3+X6                                                   ALLOC     912
                                                                                                                 ALLOC     913
                                        *         INITIALIZE MOVE LOOP.                                          ALLOC     914
                                                                                                                 ALLOC     915
           351  0300000360 +             MVE3     ZR     X0,MVEX     IF MOVE COMPLETE                            ALLOC     916
                          53227                   SA2    X2+B7       MOVE FIRST 2 WORDS                          ALLOC     917
                               54121              SA1    A2+B1                                                   ALLOC     918
           352  10622                             BX6    X2                                                      ALLOC     919
                     22701                        LX7    X1                                                      ALLOC     920
                          53637                   SA6    X3+B7                                                   ALLOC     921
                               54761              SA7    A6+B1                                                   ALLOC     922
           353  76311                             SX3    B1+B1                                                   ALLOC     923
                     37003                        IX0    X0-X3                                                   ALLOC     924
                          0300000360 +            ZR     X0,MVEX     IF MOVE COMPLETE                            ALLOC     925
           354  54227                             SA2    A2+B7       NEXT 2 WORDS                                ALLOC     926
                     54117                        SA1    A1+B7                                                   ALLOC     927
                                                                                                                 ALLOC     928
                                        *         MOVE LOOP.                                                     ALLOC     929
                                                                                                                 ALLOC     930
           355  10622                    MVE4     BX6    X2                                                      ALLOC     931
                     54227                        SA2    A2+B7                                                   ALLOC     932
                          22701                   LX7    X1                                                      ALLOC     933
                               54117              SA1    A1+B7                                                   ALLOC     934
           356  37003                             IX0    X0-X3                                                   ALLOC     935
                     46000                        NO                                                             ALLOC     936
                          54667                   SA6    A6+B7                                                   ALLOC     937
                               54777              SA7    A7+B7                                                   ALLOC     938
           357  0310000355 +                      NZ     X0,MVE4                                                 ALLOC     939
                                                                                                                 ALLOC     940
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    18
                                                                      MVE 
  
           360  0400400360 +             MVE      SUBR   0                                                       ALLOC     941
           361  43073                             MX0    -1                                                      ALLOC     942
                     37732                        IX7    X3-X2                                                   ALLOC     943
                          15610                   BX6    -X0*X1                                                  ALLOC     944
                               37016              IX0    X1-X6       REDUCE WORD COUNT TO EVEN NUMBER            ALLOC     945
           362  0307000360 +                      ZR     X7,MVEX     IF NULL MOVE, AVOID..                       ALLOC     946
                          0337000346 +            MI     X7,MVE2     IF MOVE DOWNWARD  (DESTINATION < SOURCE)    ALLOC     947
                                                                                                                 ALLOC     948
                                        *         BEGIN UPWARD MOVE                                              ALLOC     949
                                                                                                                 ALLOC     950
           363  0306000365 +                      ZR     X6,MVE1     IF WORD COUNT EVEN                          ALLOC     951
                          63700                   SB7    X0                                                      ALLOC     952
                               53127              SA1    X2+B7       MOVE INITIAL WORD                           ALLOC     953
           364  10611                             BX6    X1                                                      ALLOC     954
                     53637                        SA6    X3+B7                                                   ALLOC     955
           365  36220                    MVE1     IX2    X2+X0                                                   ALLOC     956
                     36330                        IX3    X3+X0                                                   ALLOC     957
                          6170777775              SB7    -2                                                      ALLOC     958
           366  0400000351 +                      EQ     MVE3                                                    ALLOC     959
                                                                                                                 ALLOC     960
                                                                                                                 ALLOC     961
  
  
  
  
                                        **        NAP -  ENTER AP-LIST IN TABLE.                                 ALLOC     963
                                        *         ENTRY  (B3) = LENGTH OF AP-LIST (INCLUDING THE ZERO WORD, IF   ALLOC     964
                                        *                            ANY).                                       ALLOC     965
                                        *                THE AP-LIST TO BE ENTERED IS THE LAST (B3) WORDS OF     ALLOC     966
                                        *                            TP.APL.                                     ALLOC     967
                                        *         EXIT   (X6) = AP-TAG OF THE INDICATED LIST.                    ALLOC     968
                                        *                (TG.APL) IS UPDATED, AND ADDRESS OF TAG DEFINED.        ALLOC     969
                                        *         USES   A1,A2,A3,A6  B2,B3,B7  X0                               ALLOC     970
                                                                                                                 ALLOC     971
                                                                                                                 ALLOC     972
           367  0400400367 +             NAP      SUBR   0                                                       ALLOC     973
           370  5110000000 X                      SA1    TP.APL                                                  ALLOC     974
                          5120000000 X            SA2    TP=APL                                                  ALLOC     975
           371  67703                             SB7    -B3                                                     ALLOC     976
                     36012                        IX0    X1+X2       LWA+1 OF LIST                               ALLOC     977
                          63207                   SB2    X0+B7       FWA LIST = LWA+1 - LEN                      ALLOC     978
                               63300              SB3    X0                                                      ALLOC     979
           372  73627                             SX6    X2+B7       FAKE LENGTH FOR *NCM* PROCESSING.           ALLOC     980
                     54620                        SA6    A2          RESET LENGTH FOR *NCM*                      ALLOC     981
                          0100000400 +            RJ     NCM         SEARCH AP-TABLE FOR DUPLICATE LIST          ALLOC     982
           373                           NAP.NCM  BSS    0           ADDRESS OF RETURN FROM NCM                  ALLOC     983
           373  43201                             MX2    1                                                       ALLOC     984
                     5130000000 X                 SA3    TG.APL                                                  ALLOC     985
                               36026              IX0    X2+X6       ORDINAL + FLAG                              ALLOC     986
           374  73631                             =X6    X3+1                                                    ALLOC     987
                     54630                        SA6    A3          UPDATE AP-TAG                               ALLOC     988
                          20652                   LX6    P.TAG                                                   ALLOC     989
                               12660              BX6    X6+X0                                                   ALLOC     990
           375  0100000000 X                      RJ     DPT         DEFINE PROGRAM TAG                          ALLOC     991
           376  43021                             MX0    L.TAG-1                                                 ALLOC     992
                     20073                        LX0    -1                                                      ALLOC     993
                          11606                   BX6    X0*X6       STRIP OFF GARBAGE                           ALLOC     994
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    19
                                                                      NAP 
  
           377  0400000367 +                      EQ     NAPX        EXIT...                                     ALLOC     995
  
  
  
  
                                        **        NCM -  ENTER *MULTI-WORD* ELEMENTS INTO REQUESTED TABLE.       ALLOC     997
                                        *                                                                        ALLOC     998
                                        *         ENTRY  (A1) _ TABLE TO BE ENTERED.                             ALLOC     999
                                        *                (B2) _ FWA CONSTANTS.                                   ALLOC    1000
                                        *                (B3) _ LWA+1 ELEMENTS TO BE ENTERED.                    ALLOC    1001
                                        *                (X1) = ((A1))                                           ALLOC    1002
                                        *                                                                        ALLOC    1003
                                        *         NOTE   LIKE MOST SCAN ROUTINES *NCM* REQUIRES A USABLE WORD    ALLOC    1004
                                        *                PRECEDING CURRENT TABLE ABOUT TO SCAN.                  ALLOC    1005
                                        *                                                                        ALLOC    1006
                                        *         NOTE   SPECIAL DEAL WHEN CALLED BY *NAP* --                    ALLOC    1007
                                        *                            (EFFECTIVE WHEN RETURN ADDRESS = *NAP.NCM*) ALLOC    1008
                                        *                IN THIS CASE, THE ELEMENTS ARE ACTUALLY ALREADY IN THE  ALLOC    1009
                                        *                TABLE, AT THE VERY END.  TABLE LENGTH IS REDUCED BEFORE ALLOC    1010
                                        *                *NCM* IS CALLED, TO HIDE THEM FROM OUR SEARCH LOOP.  IF ALLOC    1011
                                        *                ENTITY IS NOT DUPLICATED IN THE TABLE, WE MERELY RESET  ALLOC    1012
                                        *                THE LENGTH AND EXIT.                                    ALLOC    1013
                                        *                                                                        ALLOC    1014
                                        *         EXIT   ELEMENTS ENTERED                                        ALLOC    1015
                                        *                (B7) = ORDINAL IN TABLE OF FWA CONSTANTS.               ALLOC    1016
                                        *                (X6) = (B7)                                             ALLOC    1017
                                        *                                                                        ALLOC    1018
                                        *         CALLS  MANAGE, MVE                                             ALLOC    1019
                                        *                                                                        ALLOC    1020
                                        *         USES   CANNOT DESTORY A4,A5,A7  B4,B5,B6                       ALLOC    1021
                                        *                ADWT (+0 - +2)                                          ALLOC    1022
                                                                                                                 ALLOC    1023
                                                                                                                 ALLOC    1024
           400  0400400400 +             NCM      SUBR   0                                                       ALLOC    1025
           401  76630                             SX6    B3                                                      ALLOC    1026
                     77032                        SX0    B3-B2                                                   ALLOC    1027
                          5160000000 X            SA6    ADWT        SAVE  B3                                    ALLOC    1028
           402  0423000400 +                      EQ     B2,B3,NCMX  IF NO WORDS TO ADD                          ALLOC    1029
                                                                                                                 ALLOC    1030
                                        **        SCAN TABLE N TIMES TO CHECK IF ENTITY IS ALREADY IN TABLE.     ALLOC    1031
                                                                                                                 ALLOC    1032
                          56220                   SA2    B2          1ST ELEMENT TO BE CHECKED.                  ALLOC    1033
           403  6270777776                        SB7    X0-1        LENGTH OF THIS ENTRY                        ALLOC    1034
                          5031000000 X            SA3    A1+N.TABLE  LENGTH OF TABLE.                            ALLOC    1035
           404  10622                    NCM5     BX6    X2                                                      ALLOC    1036
                     63330                        SB3    X3                                                      ALLOC    1037
                          5261777776              SA6    X1-1        DUMMY FIND                                  ALLOC    1038
           405  54363                             SA3    A6+B3                                                   ALLOC    1039
                     0673000424 +                 LE     B3,B7,NCM50 IF TABLE TOO SMALL TO ALREADY HAVE IT       ALLOC    1040
                               55337              SA3    A3-B7                                                   ALLOC    1041
           406  67337                             SB3    B3-B7                                                   ALLOC    1042
                                                                                                                 ALLOC    1043
                                        **        CHECK FOR 1ST ELEMENT 60 BIT MATCH.                            ALLOC    1044
                                        *         BACKWARD SCAN THRU TABLE.                                      ALLOC    1045
                                                                                                                 ALLOC    1046
           407  67331                    NCM10    =B3    B3-1                                                    ALLOC    1047
                     13632                        BX6    X3-X2                                                   ALLOC    1048
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    20
                                                                      NCM 
  
                          55331                   =A3    A3-1                                                    ALLOC    1049
           410  0316000407 +                      NZ     X6,NCM10    IF NO MATCH                                 ALLOC    1050
                          0336000407 +            MI     X6,NCM10    IF NO MATCH (-0 PROBLEM)                    ALLOC    1051
           411  0730000424 +                      MI     B3,NCM50    IF DUMMY HIT - DEFINITELY NOT IN TABLE.     ALLOC    1052
                          74631                   =X6    A3+1                                                    ALLOC    1053
           412  5160000001 X                      SA6    ADWT+1                                                  ALLOC    1054
                          54221                   =A2    A2+1                                                    ALLOC    1055
           413  5033000002                        SA3    A3+2                                                    ALLOC    1056
                                                                                                                 ALLOC    1057
                                        **        SCAN TABLE FOR REMAINING NTH ELEMENTS TO MATCH                 ALLOC    1058
                                                                                                                 ALLOC    1059
           414  0470000422 +             NCM20    ZR     B7,NCM30    IF ENTIRE LIST MATCHES                      ALLOC    1060
                          13623                   BX6    X2-X3                                                   ALLOC    1061
                               67771              =B7    B7-1                                                    ALLOC    1062
           415  54221                             =A2    A2+1                                                    ALLOC    1063
                     54331                        =A3    A3+1                                                    ALLOC    1064
                          0336000417 +            MI     X6,NCM22    IF NO MATCH (-0 PROBLEM)                    ALLOC    1065
           416  0306000414 +                      ZR     X6,NCM20    IF CONTINUED MATCH                          ALLOC    1066
                                                                                                                 ALLOC    1067
                                        **        HERE IF ONLY PARTIAL MATCH.                                    ALLOC    1068
                                        *         RESET PARAMETERS AND START OVER.                               ALLOC    1069
                                                                                                                 ALLOC    1070
           417  5130000001 X             NCM22    SA3    ADWT+1                                                  ALLOC    1071
                          56220                   SA2    B2                                                      ALLOC    1072
           420  6270777776                        SB7    X0-1                                                    ALLOC    1073
                          37331                   IX3    X3-X1       ORDINAL FOR RE-START.                       ALLOC    1074
           421  0400000404 +                      EQ     NCM5        TRY AGAIN ....                              ALLOC    1075
                                                                                                                 ALLOC    1076
                                        **        HERE IF ENTITY IS ALREADY IN TABLE                             ALLOC    1077
                                        *         SET-UP EXIT CONDITIONS AND EXIT.                               ALLOC    1078
                                                                                                                 ALLOC    1079
           422  63310                    NCM30    SB3    X1                                                      ALLOC    1080
                     75233                        SX2    A3-B3                                                   ALLOC    1081
                          37620                   IX6    X2-X0       ORDINAL                                     ALLOC    1082
                               63760              SB7    X6                                                      ALLOC    1083
           423  0400000400 +                      EQ     NCMX        EXIT..                                      ALLOC    1084
                                                                                                                 ALLOC    1085
                                        **        HERE IF ENTITY NOT IN TABLE                                    ALLOC    1086
                                        *         ALLOCATE ROOM FOR TABLE.                                       ALLOC    1087
                                        *         CHECK FOR SPECIAL *NAP* DEAL.                                  ALLOC    1088
                                                                                                                 ALLOC    1089
           424  5130000400 +             NCM50    SA3    NCM                                                     ALLOC    1090
                          20336                   LX3    30                                                      ALLOC    1091
           425  6273777404 -                      SB7    X3-NAP.NCM                                              ALLOC    1092
                          0570000430 +            NZ     B7,NCM55    IF NOT CALLED BY *NAP*                      ALLOC    1093
           426  5021000000 X                      SA2    A1+N.TABLE                                              ALLOC    1094
                          36620                   IX6    X2+X0                                                   ALLOC    1095
                               54620              SA6    A2          UPDATE LENGTH.                              ALLOC    1096
           427  63720                             SB7    X2                                                      ALLOC    1097
                     73620                        SX6    X2                                                      ALLOC    1098
                          0400000400 +            EQ     NCMX        EXIT..                                      ALLOC    1099
                                                                                                                 ALLOC    1100
           430  76620                    NCM55    SX6    B2                                                      ALLOC    1101
                     5160000001 X                 SA6    ADWT+1      SAVE *B2* (FWA)                             ALLOC    1102
           431  0100000016 +                      ALLOC  A1,X0       ALLOCATE ROOM IN TABLE.                     ALLOC    1103
                                                                                                                 ALLOC    1104
                                        **        MANAGE RETURNS WITH (X1) = NEW ORIGIN.                         ALLOC    1105
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    21
                                                                      NCM 
  
                                        *                             (X2) = NEW LENGTH.                         ALLOC    1106
                                                                                                                 ALLOC    1107
           432  10011                             BX0    X1                                                      ALLOC    1108
                     5130000000 X                 SA3    ADWT                                                    ALLOC    1109
                               54131              =A1    A3+1                                                    ALLOC    1110
           433  37723                             IX7    X2-X3                                                   ALLOC    1111
                     63330                        SB3    X3          RESTORE B3                                  ALLOC    1112
                          63210                   SB2    X1          RESTORE B2                                  ALLOC    1113
                               10211              BX2    X1          SOURCE.= (B2)                               ALLOC    1114
           434  73672                             SX6    X7+B2       ORDINAL = NEW LENGTH - WORD COUNT           ALLOC    1115
                     54170                        SA1    A7                                                      ALLOC    1116
                          36360                   IX3    X6+X0       DESTINATION = ORDINAL + ORIGIN              ALLOC    1117
                               54630              SA6    A3          SAVE ORDINAL                                ALLOC    1118
           435  10611                             BX6    X1                                                      ALLOC    1119
                     77132                        SX1    B3-B2       WORD COUNT                                  ALLOC    1120
                          5160000002 X            SA6    ADWT+2      SAVE *(A7)*                                 ALLOC    1121
           436  74670                             SX6    A7                                                      ALLOC    1122
                     54661                        =A6    A6+1        SAVE *A7*                                   ALLOC    1123
                                                                                                                 ALLOC    1124
                                        **        MOVE ELEMENTS INTO TABLE.                                      ALLOC    1125
                                        *                (X1) = WORD COUNT.                                      ALLOC    1126
                                        *                (X2) = SOURCE ADDRESS                                   ALLOC    1127
                                        *                (X3) = DESTINATION ADDRESS.                             ALLOC    1128
                                                                                                                 ALLOC    1129
                          0100000360 +            RJ     MVE                                                     ALLOC    1130
           437  5110000002 X                      SA1    ADWT+2                                                  ALLOC    1131
                          54211                   =A2    A1+1                                                    ALLOC    1132
                               10711              BX7    X1                                                      ALLOC    1133
           440  53720                             SA7    X2          RESTORE *A7*                                ALLOC    1134
                     5110000000 X                 SA1    ADWT                                                    ALLOC    1135
                               10611              BX6    X1                                                      ALLOC    1136
           441  63710                             SB7    X1                                                      ALLOC    1137
                     0400000400 +                 EQ     NCMX        EXIT..                                      ALLOC    1138
  
  
  
  
                                        **        NCS -  SCAN / ENTER SINGLE WORD CONSTANT INTO CONSTANT TABLE.  ALLOC    1140
                                        *                                                                        ALLOC    1141
                                        *             NCS WILL FIRST CHECK IF CONSTANT CAN BE SET TO SHORT FORM, ALLOC    1142
                                        *         BY CHECKING IF IT IS ONE OF BELOW TYPES                        ALLOC    1143
                                        *                A. UNIVERSAL                                            ALLOC    1144
                                        *                B. INTEGER.                                             ALLOC    1145
                                        *          OR    C. REAL                                                 ALLOC    1146
                                        *                                                                        ALLOC    1147
                                        *         IF NOT, IT THEN SCANS CONSTANT TABLE TO CHECK IF CONSTANT IS   ALLOC    1148
                                        *         ALREADY IN TABLE. IF SO, IT SETS CURRENT TAG OFF OF RETURNED   ALLOC    1149
                                        *         ORDINAL, ADDS IN REQUESTED MODE BITS, AND EXITS.               ALLOC    1150
                                        *                                                                        ALLOC    1151
                                        *         ENTRY  (X6) = CONSTANT VALUE TO BE ENTERED.                    ALLOC    1152
                                        *                (X7) = MODE OF CONSTANT.                                ALLOC    1153
                                        *                                                                        ALLOC    1154
                                        *         EXIT   X6 = 18/K-TAG,24/0,18/MODE.                             ALLOC    1155
                                        *                                                                        ALLOC    1156
                                        *         USES   A1,A2,A3  X0,X6,X7  B2,B3,B7                            ALLOC    1157
                                        *                                                                        ALLOC    1158
                                        *         CALLS  ADDWD, SCT                                              ALLOC    1159
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    22
                                                                      NCS 
  
                                                                                                                 ALLOC    1160
                                                                                                                 ALLOC    1161
                                        **        HERE IF NOT POSSIBLE SHORT, ENTER INTO CONSTANT TABLE.         ALLOC    1162
                                                                                                                 ALLOC    1163
           442  5170000475 +             NCS30    SA7    NCS.MOD     SAVE MODE                                   ALLOC    1164
                          5110000000 X            SCAN   TS.CON,SCT  SCAN CON TABLE                              ALLOC    1165
           444  0770000446 +                      MI     B7,NCS40    IF *NIT*                                    ALLOC    1166
                          7107340000              SX0    B7+C.CON                                                ALLOC    1167
           445  20052                             LX0    P.TAG                                                   ALLOC    1168
                     12607                        BX6    X0+X7       MERGE MODE                                  ALLOC    1169
                          0400000451 +            EQ     NCSX        EXIT..                                      ALLOC    1170
                                                                                                                 ALLOC    1171
                                        **        ADD NEW CONSTANT TO TABLE                                      ALLOC    1172
                                                                                                                 ALLOC    1173
           446  0100000002 +             NCS40    ADDWD  A1          ENTER INTO TABLE                            ALLOC    1174
           447  7202337777                        SX0    X2+C.CON-1                                              ALLOC    1175
                          5120000475 +            SA2    NCS.MOD                                                 ALLOC    1176
           450  20052                             LX0    P.TAG                                                   ALLOC    1177
                     36602                        IX6    X0+X2       MERGE MODE                                  ALLOC    1178
                                                                                                                 ALLOC    1179
                                                                                                                 ALLOC    1180
           451  0400400451 +             NCS      SUBR   0                                                       ALLOC    1181
           452  6227777775                        SB2    X7-M.INT                                                ALLOC    1182
                          0421000466 +            EQ1    B2,NCS20    IF *REAL*                                   ALLOC    1183
           453  0326000460 +                      PL     X6,NCS7     IF NOT NEGATIVE CONSTANT                    ALLOC    1184
                          0420000455 +            ZR     B2,NCS6     IF *INTEGER*                                ALLOC    1185
           454  0317000466 +                      NZ     X7,NCS20    IF NOT *CHAMELEON*                          ALLOC    1186
           455  76010                    NCS6     =X0    1                                                       ALLOC    1187
                     14266                        BX2    -X6                                                     ALLOC    1188
                          36302                   IX3    X0+X2                                                   ALLOC    1189
                               11132              BX1    X3*X2                                                   ALLOC    1190
           456  0311000460 +                      NZ     X1,NCS7     IF NOT *MASK* TYPE CONSTANT                 ALLOC    1191
                          14022                   BX0    -X2                                                     ALLOC    1192
                               47600              CX6    X0                                                      ALLOC    1193
           457  20630                             LX6    P.MSHORT                                                ALLOC    1194
                     0400000464 +                 EQ     NCS15       CONTINUE                                    ALLOC    1195
                                                                                                                 ALLOC    1196
           460  10266                    NCS7     BX2    X6                                                      ALLOC    1197
                     21221                        AX2    L.SHC-1                                                 ALLOC    1198
                          0312000442 +            NZ     X2,NCS30    IF UPPER BITS NOT ALL SAME                  ALLOC    1199
                                                                                                                 ALLOC    1200
                                        *         AVOID SETTING UP SHORT CONSTANT THAT LOOKS LIKE STATEMENT      ALLOC    1201
                                        *         NUMBER TAG                                                     ALLOC    1202
                                                                                                                 ALLOC    1203
           461  7120240000                        SX2    C.STN                                                   ALLOC    1204
                          43005                   MX0    L.TGB                                                   ALLOC    1205
                               20022              LX0    L.TAG                                                   ALLOC    1206
           462  11006                             BX0    X0*X6                                                   ALLOC    1207
                     37020                        IX0    X2-X0                                                   ALLOC    1208
                          0300000442 +            ZR     X0,NCS30    IF CONFUSION WITH STATEMENT NUMBER TAG      ALLOC    1209
           463  43052                             MX0    -L.SHC                                                  ALLOC    1210
                     15660                        BX6    -X0*X6                                                  ALLOC    1211
                          20652                   LX6    P.SHC                                                   ALLOC    1212
                                                                                                                 ALLOC    1213
                                        **        HERE IF SHORT CONSTANT.                                        ALLOC    1214
                                                                                                                 ALLOC    1215
           464  7110004000               NCS15    =X1    M.SHORT                                                 ALLOC    1216
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    23
                                                                      NCS 
  
                          12267                   BX2    X6+X7       MERGE MODE                                  ALLOC    1217
                               36621              IX6    X2+X1                                                   ALLOC    1218
           465  0400000451 +                      EQ     NCSX        EXIT..                                      ALLOC    1219
                                                                                                                 ALLOC    1220
                                        **        CHECK IF MODE = REAL, IF NOT ENTER CONSTANT.                   ALLOC    1221
                                                                                                                 ALLOC    1222
           466  6227777774               NCS20    SB2    X7-M.REAL                                               ALLOC    1223
                          10266                   BX2    X6                                                      ALLOC    1224
           467  0520000442 +                      NZ     B2,NCS30    IF NOT REAL.                                ALLOC    1225
                          20222                   LX2    L.SHC                                                   ALLOC    1226
                               21222              AX2    L.SHC                                                   ALLOC    1227
           470  0312000442 +                      NZ     X2,NCS30    IF LOWER 42 BITS ARE NOT SAME AS SIGN       ALLOC    1228
                                                                                                                 ALLOC    1229
                                        *                            THE SIGN BITS OF X2 + X6 MUST BE EQUAL      ALLOC    1230
                                                                                                                 ALLOC    1231
                          13226                   BX2    X2-X6                                                   ALLOC    1232
           471  0332000442 +                      NG     X2,NCS30    IF SIGN BIT IS DIFFERENT                    ALLOC    1233
                                                                                                                 ALLOC    1234
                                        *         AVOID SETTING UP SHORT CONSTANT THAT LOOKS LIKE STATEMENT      ALLOC    1235
                                        *         NUMBER TAG                                                     ALLOC    1236
                                                                                                                 ALLOC    1237
                          7120240000              SX2    C.STN                                                   ALLOC    1238
           472  43005                             MX0    L.TGB                                                   ALLOC    1239
                     20252                        LX2    P.TAG                                                   ALLOC    1240
                          11006                   BX0    X0*X6                                                   ALLOC    1241
                               37020              IX0    X2-X0                                                   ALLOC    1242
           473  0300000442 +                      ZR     X0,NCS30    IF CONFUSION WITH STATEMENT NUMBER TAG      ALLOC    1243
                          43022                   MX0    L.SHC                                                   ALLOC    1244
                               11606              BX6    X0*X6       HIGH L.SHC BITS ONLY                        ALLOC    1245
           474  0400000464 +                      EQ     NCS15       PROCESS AS SHORT CONSTANT                   ALLOC    1246
                                                                                                                 ALLOC    1247
           475  00000000000000000000     NCS.MOD  DATA   0           MODE BITS IF ADDWD CALLED.                  ALLOC    1248
  
  
  
  
                                        **        PRS -  PRESET AREA OF STORAGE.                                 ALLOC    1250
                                        *         DISASTER IF FWA IS GREATER THAN LWA.                           ALLOC    1251
                                        *         STOLEN FROM *COMPASS VER 2.0*                                  ALLOC    1252
                                        *         ENTRY  (X1) = DATUM                                            ALLOC    1253
                                        *                (X2) = FWA.                                             ALLOC    1254
                                        *                (X3) = LWA+1.                                           ALLOC    1255
                                        *         USES   A6,A7  X0,X2,X3                                         ALLOC    1256
                                                                                                                 ALLOC    1257
                                                                                                                 ALLOC    1258
           476  0400400476 +             PRS      SUBR   0                                                       ALLOC    1259
           477  10611                             BX6    X1                                                      ALLOC    1260
                     37032                        IX0    X3-X2                                                   ALLOC    1261
                          76310                   SX3    B1                                                      ALLOC    1262
                               53620              SA6    X2                                                      ALLOC    1263
           500  11203                             BX2    X0*X3                                                   ALLOC    1264
                     21001                        AX0    1                                                       ALLOC    1265
                          0300000476 +            ZR     X0,PRSX     IF ONLY ONE WORD TO DO                      ALLOC    1266
           501  10711                             BX7    X1                                                      ALLOC    1267
                     0302000502 +                 ZR     X2,PRS2     IF EVEN NR OF WORD TO PRESET                ALLOC    1268
                               54661              SA6    A6+B1                                                   ALLOC    1269
           502  37003                    PRS2     IX0    X0-X3                                                   ALLOC    1270
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    24
                                                                      PRS 
  
                     54661                        SA6    A6+B1                                                   ALLOC    1271
                          0300000476 +            ZR     X0,PRSX     IF ONLY TWO WORDS                           ALLOC    1272
           503  37003                    PRS4     IX0    X0-X3                                                   ALLOC    1273
                     54761                        SA7    A6+B1                                                   ALLOC    1274
                          5067000001              SA6    A7+1                                                    ALLOC    1275
           504  0310000503 +                      NZ     X0,PRS4     IF NOT FINISHED                             ALLOC    1276
                          0400000476 +            EQ     PRSX        EXIT..                                      ALLOC    1277
  
  
  
  
                                        **        SCTR - SCAN TRIPLE TABLE.                                      ALLOC    1307
                                        *                                                                        ALLOC    1308
                                        *                SCANS A TRIPLE-WORD TABLE, COMPARING ONLY ON THE FIRST  ALLOC    1309
                                        *                WORD OF EACH ENTRY.                                     ALLOC    1310
                                        *                                                                        ALLOC    1311
                                        *         ENTRY  (A1) _ TABLE TO BE SEARCHED.                            ALLOC    1312
                                        *                (X1) = ((A1))                                           ALLOC    1313
                                        *                (X6) = 60-BIT SEARCH ITEM                               ALLOC    1314
                                        *                                                                        ALLOC    1315
                                        *         IF SUCCESS --                                                  ALLOC    1316
                                        *                (B7) = ORDINAL OF HIT.                                  ALLOC    1317
                                        *                (A1) _ FIRST WORD OF MATCHING ENTRY.                    ALLOC    1318
                                        *                (X1) = (FIRST WORD OF MATCHING ENTRY).                  ALLOC    1319
                                        *                (A2) _ SECOND WORD OF MATCHING ENTRY.                   ALLOC    1320
                                        *                (X2) = (SECOND WORD OF MATCHING ENTRY).                 ALLOC    1321
                                        *                (X6) = (SECOND WORD OF MATCHING ENTRY).                 ALLOC    1322
                                        *                                                                        ALLOC    1323
                                        *         IF *NIT* --                                                    ALLOC    1324
                                        *                (B7) = -3.                                              ALLOC    1325
                                        *                (A1) PRESERVED.                                         ALLOC    1326
                                        *                (X1) PRESERVED.                                         ALLOC    1327
                                        *                (X6) PRESERVED.                                         ALLOC    1328
                                        *                                                                        ALLOC    1329
                                        *         USES   A2,A3,A6  X0  B2,B7                                     ALLOC    1330
                                                                                                                 ALLOC    1331
                                                                                                                 ALLOC    1332
                                                                                                                 ALLOC    1333
           505  22603                    SCTR8    LX6    X3          RESTORE CLOBBERED   ((FWA)-2)               ALLOC    1334
                     54630                        SA6    A3                                                      ALLOC    1335
                          46000                   NO                                                             ALLOC    1336
                               10622              BX6    X2          RESTORE (X6)                                ALLOC    1337
                                                                                                                 ALLOC    1338
           506  0400400506 +             SCTR     SUBR   0                                                       ALLOC    1339
           507  5021000000 X                      SA2    A1+N.TABLE                                              ALLOC    1340
                          6120777774              =B2    -3                                                      ALLOC    1341
           510  53312                             SA3    X1+B2       ((FWA)-3)                                   ALLOC    1342
                     54630                        SA6    A3          STORE CRITERION IN SAVED CELL               ALLOC    1343
                          63712                   SB7    X1+B2                                                   ALLOC    1344
                               53227              SA2    X2+B7       FETCH LAST ENTRY                            ALLOC    1345
                                                                                                                 ALLOC    1346
           511  13062                    SCTR2    BX0    X6-X2                                                   ALLOC    1347
                     54222                        SA2    A2+B2                                                   ALLOC    1348
                          0310000511 +            NZ     X0,SCTR2    IF NO HIT                                   ALLOC    1349
                                                                                                                 ALLOC    1350
           512  65727                             SB7    A2-B7       RELATIVE POSITION OF HIT                    ALLOC    1351
                     22206                        LX2    X6                                                      ALLOC    1352
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    25
                                                                      SCD 
  
                          0770000505 +            MI     B7,SCTR8    IF DUMMY HIT                                ALLOC    1353
           513  53117                             SA1    X1+B7                                                   ALLOC    1354
                     54211                        =A2    A1+1                                                    ALLOC    1355
                          0400000505 +            EQ     SCTR8       EXIT..                                      ALLOC    1356
  
  
  
  
                                        **        SCD -  SCAN DOUBLE TABLE.                                      ALLOC    1358
                                        *                                                                        ALLOC    1359
                                        *                SCANS A DOUBLE-WORD TABLE, COMPARING ONLY ON THE FIRST  ALLOC    1360
                                        *         WORD OF EACH ENTRY.                                            ALLOC    1361
                                        *                                                                        ALLOC    1362
                                        *         ENTRY  (A1) _ TABLE TO BE SEARCHED.                            ALLOC    1363
                                        *                (X1) = ((A1))                                           ALLOC    1364
                                        *                (X6) = VALUE LOOKING FOR (ALL 60 BITS).                 ALLOC    1365
                                        *                                                                        ALLOC    1366
                                        *         IF SUCCESS --                                                  ALLOC    1367
                                        *                (B7) = ORDINAL OF HIT.                                  ALLOC    1368
                                        *                (A1) _ MATCHING ENTRY, FIRST WORD.                      ALLOC    1369
                                        *                (X1) = (MATCHING ENTRY, FIRST WORD).                    ALLOC    1370
                                        *                (A2) _ SECOND WORD OF MATCHING ENTRY.                   ALLOC    1371
                                        *                (X2) = (SECOND WORD OF MATCHING ENTRY).                 ALLOC    1372
                                        *                (X6) = (SECOND WORD OF MATCHING ENTRY).                 ALLOC    1373
                                        *                                                                        ALLOC    1374
                                        *         IF *NIT* --                                                    ALLOC    1375
                                        *                (B7) = -2.                                              ALLOC    1376
                                        *                (A1) PRESERVED.                                         ALLOC    1377
                                        *                (X1) PRESERVED.                                         ALLOC    1378
                                        *                (X6) PRESERVED.                                         ALLOC    1379
                                        *                                                                        ALLOC    1380
                                        *         USES   A2,A3,A6  X0  B2,B7                                     ALLOC    1381
                                        *         NOTE THE SAVE AND RESTORE OF THE WORD BELOW THE SCANNED TABLE, ALLOC    1382
                                        *                WHERE THE SEARCH OBJECT IS STORED.  THIS IS BECAUSE WE  ALLOC    1383
                                        *                ARE NOT GUARANTEED TWO FREE WORDS BELOW A TABLE.        ALLOC    1384
                                                                                                                 ALLOC    1385
                                                                                                                 ALLOC    1386
                                                                                                                 ALLOC    1387
           514  22603                    SCD8     LX6    X3          RESTORE CLOBBERED  ((FWA)-2)                ALLOC    1388
                     54630                        SA6    A3                                                      ALLOC    1389
                          46000                   NO                                                             ALLOC    1390
                               10622              BX6    X2          RESTORE (X6)                                ALLOC    1391
                                                                                                                 ALLOC    1392
           515  0400400515 +             SCD      SUBR   0                                                       ALLOC    1393
           516  5021000000 X                      SA2    A1+N.TABLE                                              ALLOC    1394
                          6120777775              =B2    -2                                                      ALLOC    1395
           517  53312                             SA3    X1+B2       ((FWA)-2)                                   ALLOC    1396
                     54630                        SA6    A3          STORE CRITERION IN FIRST WORD               ALLOC    1397
                          63712                   SB7    X1+B2                                                   ALLOC    1398
                               53227              SA2    X2+B7       FETCH LAST ENTRY OF TABLE                   ALLOC    1399
                                                                                                                 ALLOC    1400
           520  13062                    SCD2     BX0    X6-X2                                                   ALLOC    1401
                     54222                        SA2    A2+B2                                                   ALLOC    1402
                          0310000520 +            NZ     X0,SCD2     IF NO HIT                                   ALLOC    1403
                                                                                                                 ALLOC    1404
           521  65727                             SB7    A2-B7       RELATIVE POSITION OF HIT                    ALLOC    1405
                     22206                        LX2    X6                                                      ALLOC    1406
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    26
  
  
                          0770000514 +            MI     B7,SCD8     IF DUMMY HIT                                ALLOC    1407
           522  53117                             SA1    X1+B7                                                   ALLOC    1408
                     54211                        =A2    A1+1                                                    ALLOC    1409
                          0400000514 +            EQ     SCD8        EXIT..                                      ALLOC    1410
  
  
  
  
                                        **        SCS -  SCAN TABLE WITH SUPPLIED MASK.                          ALLOC    1412
                                        *                                                                        ALLOC    1413
                                        *         ENTRY  (A1) TABLE TO BE SEARCHED                               ALLOC    1414
                                        *                (X6) ENTRY LOOKING FOR IN GIVEN TABLE                   ALLOC    1415
                                        *                (SCSA) = MASK TO BE USED.                               ALLOC    1416
                                        *         EXIT   IF ENTRY *NIT*    - (B7) IS NEGATIVE.                   ALLOC    1417
                                        *                                    (A1),(X1) PRESERVED.                ALLOC    1418
                                        *                                    (X6) UNTOUCHED.                     ALLOC    1419
                                        *                IF ENTRY *IT*     - (B7) ORDINAL OF MATCHING ENTRY.     ALLOC    1420
                                        *                (X2) ALL 60 BITS OF MATCHING ENTRY                      ALLOC    1421
                                        *                A2 _ TO MATCHING ENTRY                                  ALLOC    1422
                                        *                (X6)  = (X2) .AND. MASK                                 ALLOC    1423
                                        *         USES   A2,A3,A6  X0,X1  B2,B7                                  ALLOC    1424
                                                                                                                 ALLOC    1425
                                                                                                                 ALLOC    1426
           523  0400400523 +             SCS      SUBR   0                                                       ALLOC    1427
           524  5021000000 X                      SA2    A1+N.TABLE                                              ALLOC    1428
                          5130000532 +            SA3    SCSA                                                    ALLOC    1429
           525  5261777776                        SA6    X1-1        STORE CRITERION BELOW TABLE                 ALLOC    1430
                          64760                   SB7    A6                                                      ALLOC    1431
                               53227              SA2    X2+B7       FETCH LAST ENTRY                            ALLOC    1432
                                                                                                                 ALLOC    1433
                                        *         LOOP TILL MATCH FOUND                                          ALLOC    1434
                                                                                                                 ALLOC    1435
           526  13026                    SCS1     BX0    X2-X6                                                   ALLOC    1436
                     55221                        SA2    A2-B1       FETCH NEXT TABLE ENTRY                      ALLOC    1437
                          46000                   NO                                                             ALLOC    1438
                               11030              BX0    X3*X0       MASK                                        ALLOC    1439
           527  0310000526 +                      NZ     X0,SCS1     IF NOT HIT - LOOP                           ALLOC    1440
                                                                                                                 ALLOC    1441
                          65727                   SB7    A2-B7       RELATIVE POSITION OF ENTRY                  ALLOC    1442
                               54221              SA2    A2+B1       TABLE ENTRY AT HIT                          ALLOC    1443
           530  0770000523 +                      MI     B7,SCSX     IF DUMMY HIT - EXIT..                       ALLOC    1444
                          11632                   BX6    X3*X2       MASK OFF                                    ALLOC    1445
           531  0400000523 +                      EQ     SCSX        EXIT..                                      ALLOC    1446
                                                                                                                 ALLOC    1447
           532  00000000000000000000     SCSA     DATA   0           MASK TO BE USED.                            ALLOC    1448
  
  
  
  
                                        **        SCT -  SCAN TABLE COMPARING ALL BITS.                          ALLOC    1450
                                        *                (MAINLY FOR USE WITH PAIRED TABLES)                     ALLOC    1451
                                        *         ENTRY  (A1) TABLE TO BE SEARCHED                               ALLOC    1452
                                        *                (X6) ENTRY LOOKING FOR IN GIVEN TABLE                   ALLOC    1453
                                        *         EXIT   IF ENTRY *NIT*    - (B7) IS NEGATIVE.                   ALLOC    1454
                                        *                                    (A1),(X1) PRESERVED.                ALLOC    1455
                                        *                                    (X6) UNTOUCHED.                     ALLOC    1456
                                        *                IF ENTRY *IT*     - (B7) ORDINAL OF MATCHING ENTRY.     ALLOC    1457
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    27
                                                                      SCT 
  
                                        *                (X2=X6) PAIRED  TABLE ENTRY                             ALLOC    1458
                                        *                A2   _  PAIRED  TABLE ENTRY                             ALLOC    1459
                                        *                A1   _  MASTER  TABLE ENTRY                             ALLOC    1460
                                        *                (X1)    MASTER  TABLE ENTRY                             ALLOC    1461
                                        *         USES   A1,A2,A6  X0  B1,B2                                     ALLOC    1462
                                                                                                                 ALLOC    1463
                                                                                                                 ALLOC    1464
           533  0400400533 +             SCT      SUBR   0                                                       ALLOC    1465
           534  5021000000 X                      SA2    A1+N.TABLE                                              ALLOC    1466
                          67201                   =B2    -1                                                      ALLOC    1467
                               53612              SA6    X1+B2       STORE CRITERION BELOW TABLE                 ALLOC    1468
           535  36012                             IX0    X1+X2                                                   ALLOC    1469
                     46000                        NO                                                             ALLOC    1470
                          53202                   SA2    X0+B2       FETCH LAST ENTRY                            ALLOC    1471
                               64260              SB2    A6                                                      ALLOC    1472
           536  13062                    SCT1     BX0    X6-X2                                                   ALLOC    1473
                     55221                        SA2    A2-B1       FETCH NEXT TABLE ENTRY                      ALLOC    1474
                          0310000536 +            NZ     X0,SCT1     IF NO HIT, LOOP                             ALLOC    1475
           537  0330000536 +                      MI     X0,SCT1     IF *0* - *-0* *HIT*                         ALLOC    1476
                          65722                   SB7    A2-B2       RELATIVE POSITION OF ENTRY                  ALLOC    1477
                               54211              SA2    A1+B1       TAG TABLE PARAMETERS                        ALLOC    1478
           540  0770000533 +                      MI     B7,SCTX     IF DUMMY HIT                                ALLOC    1479
                          66221                   SB2    B2+B1       FIRST ADDRESS IN NAME TABLE                 ALLOC    1480
                               53227              SA2    X2+B7                                                   ALLOC    1481
           541  10622                             BX6    X2          TAG TABLE ENTRY                             ALLOC    1482
                     56172                        SA1    B7+B2       NAME TABLE ENTRY                            ALLOC    1483
                          0400000533 +            EQ     SCTX        EXIT..                                      ALLOC    1484
  
  
  
  
                                        **        SSN -  SCAN *STATEMENT NUMBER* TABLE. (HASHED TABLE)           ALLOC    1486
                                        *                                                                        ALLOC    1487
                                        *         ENTRY  A1 _ TABLE TO BE SEARCHED.                              ALLOC    1488
                                        *                (X6) = SYMBOL  (0LFORMAT)                               ALLOC    1489
                                        *         EXIT   (B7) < 0                                                ALLOC    1490
                                        *                (X6) = PRESERVED.                                       ALLOC    1491
                                        *                (A1)   PRESERVED.                                       ALLOC    1492
                                        *                (NEXT) _ ORDINAL OF NEXT ENTRY.                         ALLOC    1493
                                        *                      IF < 0 - BASE CELL NOT OCCUPIED.                  ALLOC    1494
                                        *                      IF > 0 - BASE CELL OCCUPIED, MORE SPACE NEEDED.   ALLOC    1495
                                        *                (B7) > 0                                                ALLOC    1496
                                        *                (X1) = MODE BITS.                                       ALLOC    1497
                                        *                (X2) = (X6) = TAG FOR SYMBOL.                           ALLOC    1498
                                        *                (A1) = PRESERVED.                                       ALLOC    1499
                                        *                (A2) _ SYMBOL ENTRY.                                    ALLOC    1500
                                        *         NOTE                                                           ALLOC    1501
                                        *         CHAIN IS ON *SYMBOL* NOT TAG.                                  ALLOC    1502
                                        *                                                                        ALLOC    1503
                                        *         USES   A1,A2,A3  X0  B2,B7                                     ALLOC    1504
                                                                                                                 ALLOC    1505
                                                                                                                 ALLOC    1506
           542  54221                    SSN10    SA2    A2+B1       TAG ENTRY.                                  ALLOC    1507
                     43071                        MX0    -L.MODE                                                 ALLOC    1508
                          10622                   BX6    X2                                                      ALLOC    1509
                               15120              BX1    -X0*X2      MODE BITS.                                  ALLOC    1510
                                                                                                                 ALLOC    1511
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    28
                                                                      SSN 
  
           543  0400400543 +             SSN      SUBR   0                                                       ALLOC    1512
           544  10366                             BX3    X6                                                      ALLOC    1513
                     5120000557 +                 SA2    STNHASH                                                 ALLOC    1514
                               21314              AX3    12          ZERO EXPONENT                               ALLOC    1515
           545  27003                             PX0    X3                                                      ALLOC    1516
                     42320                        DX3    X2*X0                                                   ALLOC    1517
                          7100000036              SX0    LSTN-2                                                  ALLOC    1518
           546  21352                             AX3    47-PSTN                                                 ALLOC    1519
                     11303                        BX3    X0*X3       BASE INDEX                                  ALLOC    1520
                          67701                   =B7    -1                                                      ALLOC    1521
                               63230              SB2    X3                                                      ALLOC    1522
           547  53212                             SA2    X1+B2       LOAD PROPOSED POSITION.                     ALLOC    1523
                     10066                        BX0    X6                                                      ALLOC    1524
                          0312000552 +            NZ     X2,SSN5     IF BASE CELL OCCUPIED.                      ALLOC    1525
           550  76320                             SX3    B2                                                      ALLOC    1526
                     14633                        BX6    -X3                                                     ALLOC    1527
                          5160000603 +            SA6    NEXT        INDICATE BASE INDEX NOT OCCUPIED.           ALLOC    1528
           551  22600                             LX6    X0          RESTORE *SYMBOL*                            ALLOC    1529
                     0400000543 +                 EQ     SSNX        EXIT..                                      ALLOC    1530
                                                                                                                 ALLOC    1531
           552  37062                    SSN5     IX0    X6-X2                                                   ALLOC    1532
                     66720                        SB7    B2                                                      ALLOC    1533
                          21022                   AX0    P.SYM                                                   ALLOC    1534
                               63220              SB2    X2                                                      ALLOC    1535
           553  0300000542 +                      ZR     X0,SSN10    IF MATCH.                                   ALLOC    1536
                          53212                   SA2    X1+B2                                                   ALLOC    1537
           554  0520000552 +                      NZ     B2,SSN5     LOOP UNTIL EMPTY CHAIN.                     ALLOC    1538
                          10066                   BX0    X6                                                      ALLOC    1539
                               76670              SX6    B7                                                      ALLOC    1540
           555  67701                             =B7    -1          INDICATE NOT IN TABLE.                      ALLOC    1541
                     5160000603 +                 SA6    NEXT        INDICATE MOVE REQUIRED.                     ALLOC    1542
                               22600              LX6    X0                                                      ALLOC    1543
           556  0400000543 +                      EQ     SSNX        EXIT..                                      ALLOC    1544
                                                                                                                 ALLOC    1545
           557  20002525001001001001     STNHASH  DATA   2525001001001001.BP0    TS.STN  HASH.                   ALLOC    1546
  
  
  
  
                                        **        SSY -  SCAN *SYMBOL* TABLE. (HASHED TABLE)                     ALLOC    1548
                                        *                                                                        ALLOC    1549
                                        *         ENTRY  A1 _ TABLE TO BE SEARCHED.                              ALLOC    1550
                                        *                (X6) = SYMBOL  (0LFORMAT)                               ALLOC    1551
                                        *         EXIT   (B7) < 0                                                ALLOC    1552
                                        *                (X6) = PRESERVED.                                       ALLOC    1553
                                        *                (A1)   PRESERVED.                                       ALLOC    1554
                                        *                (NEXT) _ ORDINAL OF NEXT ENTRY.                         ALLOC    1555
                                        *                      IF < 0 - BASE CELL NOT OCCUPIED.                  ALLOC    1556
                                        *                      IF > 0 - BASE CELL OCCUPIED, MORE SPACE NEEDED.   ALLOC    1557
                                        *                (B7) > 0                                                ALLOC    1558
                                        *                (X1) = MODE BITS.                                       ALLOC    1559
                                        *                (X2) = (X6) = TAG FOR SYMBOL.                           ALLOC    1560
                                        *                (A1) = PRESERVED.                                       ALLOC    1561
                                        *                (A2) _ SYMBOL ENTRY.                                    ALLOC    1562
                                        *         NOTE                                                           ALLOC    1563
                                        *         CHAIN IS ON *SYMBOL* NOT TAG.                                  ALLOC    1564
                                        *                                                                        ALLOC    1565
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    29
                                                                      SSY 
  
                                        *         USES   A1,A2,A3  X0  B2,B7                                     ALLOC    1566
                                                                                                                 ALLOC    1567
                                                                                                                 ALLOC    1568
           560  54221                    SSY10    SA2    A2+B1       TAG ENTRY.                                  ALLOC    1569
                     43071                        MX0    -L.MODE                                                 ALLOC    1570
                          10622                   BX6    X2                                                      ALLOC    1571
                               15120              BX1    -X0*X2      MODE BITS.                                  ALLOC    1572
                                                                                                                 ALLOC    1573
           561  0400400561 +             SSY      SUBR   0                                                       ALLOC    1574
           562  43006                             MX0    CHAR                                                    FCC1259     5
                     20030                        LX0    -LG.VAR*CHAR+CHAR                                       FCC1259     6
                          11306                   BX3    X0*X6                                                   FCC1259     7
           563  0303000570 +                      ZR     X3,SSY1     IF NOT SEVEN CHARACTER SYMBOL               FCC1259     8
                          21322                   AX3    18                                                      FCC1259     9
           564  6223777732                        SB2    X3-1R+                                                  FCC1259    10
                          0620000570 +            PL     B2,SSY1     IF APPENDED SPECIAL CHARACTER               FCC1259    11
           565  5160000000 X                      SA6    =XFILL.                                                 FCC1259    12
                          54210                   SA2    A1          SAVE *A*                                    FCC1259    13
           566  6170000000 X                      ANSI   =XE.ANS2                                                FCC1259    14
           567  54120                             SA1    A2          RESTORE *A1*                                FCC1259    15
           570  10366                    SSY1     BX3    X6                                                      FCC1259    16
                     5120000604 +                 SA2    SYMHASH                                                 ALLOC    1576
                               21314              AX3    12          ZERO EXPONENT                               ALLOC    1577
           571  27003                             PX0    X3                                                      ALLOC    1578
                     42320                        DX3    X2*X0                                                   ALLOC    1579
                          7100000176              SX0    LSYM-2                                                  ALLOC    1580
           572  21350                             AX3    47-PSYM                                                 ALLOC    1581
                     11303                        BX3    X0*X3       BASE INDEX                                  ALLOC    1582
                          67701                   =B7    -1                                                      ALLOC    1583
                               63230              SB2    X3                                                      ALLOC    1584
           573  53212                             SA2    X1+B2       LOAD PROPOSED POSITION.                     ALLOC    1585
                     10066                        BX0    X6                                                      ALLOC    1586
                          0312000576 +            NZ     X2,SSY5     IF BASE CELL OCCUPIED.                      ALLOC    1587
           574  76320                             SX3    B2                                                      ALLOC    1588
                     14633                        BX6    -X3                                                     ALLOC    1589
                          5160000603 +            SA6    NEXT        INDICATE BASE INDEX NOT OCCUPIED.           ALLOC    1590
           575  22600                             LX6    X0          RESTORE *SYMBOL*                            ALLOC    1591
                     0400000561 +                 EQ     SSYX        EXIT..                                      ALLOC    1592
                                                                                                                 ALLOC    1593
           576  37062                    SSY5     IX0    X6-X2                                                   ALLOC    1594
                     66720                        SB7    B2                                                      ALLOC    1595
                          21022                   AX0    P.SYM                                                   ALLOC    1596
                               63220              SB2    X2                                                      ALLOC    1597
           577  0300000560 +                      ZR     X0,SSY10    IF MATCH.                                   ALLOC    1598
                          53212                   SA2    X1+B2                                                   ALLOC    1599
           600  0520000576 +                      NZ     B2,SSY5     LOOP UNTIL EMPTY CHAIN.                     ALLOC    1600
                          10066                   BX0    X6                                                      ALLOC    1601
                               76670              SX6    B7                                                      ALLOC    1602
           601  67701                             =B7    -1          INDICATE NOT IN TABLE.                      ALLOC    1603
                     5160000603 +                 SA6    NEXT        INDICATE MOVE REQUIRED.                     ALLOC    1604
                               22600              LX6    X0                                                      ALLOC    1605
           602  0400000561 +                      EQ     SSYX        EXIT..                                      ALLOC    1606
                                                                                                                 ALLOC    1607
           603  00000000000000000000     NEXT     DATA   0           LOCATION OF NEXT ENTRY IN TABLE.            ALLOC    1608
                                                                                                                 ALLOC    1609
           604  20002525001001001001     SYMHASH  DATA   2525001001001001.BP0    TS.SYM  HASH.                   ALLOC    1610
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    30
                                                                      SRT 
  
                                        **        SRT -  SORT SINGLE ENTRY TABLE.                                ALLOC    1612
                                        *         USES *SHELL* ALGORITHM (ACM JOURNAL 1960)                      ALLOC    1613
                                        *         ENTRY- A1 POINTS TO TABLE TO BE SORTED.                        ALLOC    1614
                                        *         EXIT-  TABLE IS SORTED                                         ALLOC    1615
                                        *         USES   A1,A2  X0  B2,B3,B4,B5,B6,B7                            ALLOC    1616
                                                                                                                 ALLOC    1617
                                                                                                                 ALLOC    1618
           605  0400400605 +             SRT      SUBR   0                                                       ALLOC    1619
           606  5021000000 X                      SA2    A1+N.TABLE                                              ALLOC    1620
                          7232777775              SX3    X2-2                                                    ALLOC    1621
           607  0333000605 +                      MI     X3,SRTX     IF LESS THAN 2 ENTRIES - EXIT..             ALLOC    1622
                          63720                   SB7    X2          LENGTH OF TABLE TO  (I)                     ALLOC    1623
           610  7271777776                        SX7    X1-1        STARTING ADDRESS TO (Z)                     ALLOC    1624
                          66670                   SB6    B7          LENGTH OF TABLE TO  (N)                     ALLOC    1625
           611  76060                    SRT5     SX0    B6                                                      ALLOC    1626
                     21001                        AX0    1                                                       ALLOC    1627
                          63600                   SB6    X0          N= N/2                                      ALLOC    1628
                               66310              SB3    B1                                                      ALLOC    1629
           612  0460000605 +                      ZR     B6,SRTX     IF N=0 DONE - EXIT..                        ALLOC    1630
                          67476                   SB4    B7-B6       L=I-N                                       ALLOC    1631
                               66230              SB2    B3          J=K                                         ALLOC    1632
           613  66526                    SRT10    SB5    B2+B6       M=J+N                                       ALLOC    1633
                     53172                        SA1    X7+B2       A(J)                                        ALLOC    1634
                          53275                   SA2    X7+B5       A(L)                                        ALLOC    1635
                               37621              IX6    X2-X1       A(L)-A(J)                                   ALLOC    1636
           614  0326000617 +                      PL     X6,SRT15    IF A(L) .GE. A(J)                           ALLOC    1637
                          10611                   BX6    X1                                                      ALLOC    1638
                               54620              SA6    A2                                                      ALLOC    1639
           615  22602                             LX6    X2                                                      ALLOC    1640
                     54610                        SA6    A1                                                      ALLOC    1641
                          67226                   SB2    B2-B6       J=J-N                                       ALLOC    1642
           616  0702000613 +                      GT     B2,SRT10    IF J .GT. 0                                 ALLOC    1643
           617  66331                    SRT15    SB3    B3+B1       K=K+1                                       ALLOC    1644
                     66230                        SB2    B3          J=K                                         ALLOC    1645
                          0643000613 +            LE     B3,B4,SRT10 IF K .LE. L                                 ALLOC    1646
           620  0400000611 +                      EQ     SRT5        LOOP THROU TABLE.                           ALLOC    1647
  
  
  
  
                                        **        DSRT-  SORT DOUBLE ENTRY TABLE.                                ALLOC    1649
                                        *         USES *SHELL* ALGORITHM (ACM JOURNAL 1960)                      ALLOC    1650
                                        *         ENTRY- A1 POINTS TO TABLE TO BE SORTED.                        ALLOC    1651
                                        *         EXIT-  TABLE IS SORTED                                         ALLOC    1652
                                        *         USES   A0,A1,A2,A3,A4,A7  X0  B2,B3,B4,B5,B6,B7                ALLOC    1653
                                                                                                                 ALLOC    1654
                                                                                                                 ALLOC    1655
           621  0400400621 +             DSRT     SUBR   0                                                       ALLOC    1656
           622  5021000000 X                      SA2    A1+N.TABLE                                              ALLOC    1657
                          7232777775              SX3    X2-2                                                    ALLOC    1658
           623  0333000621 +                      MI     X3,DSRTX    IF LESS THAN 2 ENTRIES - EXIT..             ALLOC    1659
                          63720                   SB7    X2          LENGTH OF TABLE TO  (I)                     ALLOC    1660
           624  5201777775                        SA0    X1-2        STARTING ADDRESS TO (Z)                     ALLOC    1661
                          66670                   SB6    B7          LENGTH OF TABLE TO  (N)                     ALLOC    1662
           625  76060                    DSRT5    SX0    B6                                                      ALLOC    1663
                     21002                        AX0    2           /4                                          ALLOC    1664
                          66311                   =B3    2                                                       ALLOC    1665
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    31
                                                                      DSRT
  
                               20001              LX0    1           /2                                          ALLOC    1666
           626  63600                             SB6    X0          N= N/2                                      ALLOC    1667
                     0460000621 +                 ZR     B6,DSRTX    IF N=0 EXIT..                               ALLOC    1668
                               67476              SB4    B7-B6       L=I-N                                       ALLOC    1669
           627  66230                             SB2    B3          J=K                                         ALLOC    1670
           630  66526                    DSRT10   SB5    B2+B6       M=J+N                                       ALLOC    1671
                     54102                        SA1    A0+B2       A(J)  (SYMBOL ENTRIES)                      ALLOC    1672
                          54205                   SA2    A0+B5       A(L)                                        ALLOC    1673
                               37621              IX6    X2-X1       A(L)-A(J)                                   ALLOC    1674
           631  0326000635 +                      PL     X6,DSRT15   IF A(L) .GE. A(J)                           ALLOC    1675
                          54311                   SA3    A1+B1             (TAG ENTRIES)                         ALLOC    1676
                               54421              SA4    A2+B1                                                   ALLOC    1677
           632  10611                             BX6    X1                                                      ALLOC    1678
                     22703                        LX7    X3                                                      ALLOC    1679
                          54620                   SA6    A2          (SYMBOL)                                    ALLOC    1680
                               54740              SA7    A4          (TAG   )                                    ALLOC    1681
           633  22602                             LX6    X2                                                      ALLOC    1682
                     10744                        BX7    X4                                                      ALLOC    1683
                          54610                   SA6    A1          (SYMBOL)                                    ALLOC    1684
                               54730              SA7    A3          (TAG   )                                    ALLOC    1685
           634  67226                             SB2    B2-B6       J=J-N                                       ALLOC    1686
                     46000                        NO                                                             ALLOC    1687
                          0702000630 +            GT     B2,DSRT10   IF J .GT. 0                                 ALLOC    1688
           635  6133000002               DSRT15   SB3    B3+2        K=K+2                                       ALLOC    1689
                          46000                   NO                                                             ALLOC    1690
                               66230              SB2    B3          J=K                                         ALLOC    1691
           636  0643000630 +                      LE     B3,B4,DSRT10 IF K .LE. L                                ALLOC    1692
                          0400000625 +            EQ     DSRT5       LOOP THRU TABLE.                            ALLOC    1693
                                                                                                                 ALLOC    1713
                                                  LIST   D                                                       ALLOC    1714
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        W.TABS
             0 X                        THRESH
             0 X                        F.TABS
             0 X                        TT=XFIL 
             0 X                        CP.AFLS 
             0 X                        NOM.TFL 
             0 X                        CIO=
             0 X                        WTW=
             0 X                        MAX.FL
             0 X                        GT1 
             0 X                        SYS=
             0 X                        CP.NFLS 
             0 X                        T.END 
             0 X                        PWE 
             0 X                        PSP.F 
             0 X                        END96 
             0 X                        MSG=
             0 X                        ENDFTN
             0 X                        FILL. 
             0 X                        E.ANS2
             0 X                        ANSI= 
  
           637                                    END                                                            ALLOC    1715
  
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    32
  
  
                             55400B CM  STORAGE USED             2987 STATEMENTS      938 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.240 SECONDS         609 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             2   PROGRAM*        1/46 E    2/53 L   13/15     22/15
        ADWT            0   EXTERNAL*       2/20 X   11/40     12/06 S   13/17     20/23     21/16 S
                                            2/47 S   11/43     12/12     19/37 S   20/54 S   21/26
                                            2/49     12/01 S   13/14 S   20/06 S   21/04     21/30
        ADW1            0   PROGRAM*        2/47 L    2/55
        ADW2            1   PROGRAM*        2/49 L
        ALC            16   PROGRAM*        1/47 E    2/48      4/32 L   12/09     14/05     15/11     20/55
        ALCC          212   PROGRAM*        7/15 S    7/52      8/40      9/01      9/42     10/31 L
        ALCD          215   PROGRAM*        4/06      4/56 S   10/35 L   10/45     12/19
        ALCW            4   PROGRAM*        3/38 L    6/57      7/02
        ALCZ           15   PROGRAM*        4/27 L    4/45
        ALC22          34   PROGRAM*        5/36 L    5/39
        ALC25          45   PROGRAM*        6/23 L    6/44
        ALC27          57   PROGRAM*        6/42      6/44 L
        ALC40          75   PROGRAM*        7/27      7/34      7/42 L
        ALC45         116   PROGRAM*        8/10      8/20 L
        ALC50         125   PROGRAM*        7/48      7/54      8/32 L
        ALC=A5        223   PROGRAM*       10/41 L   11/04
        ALC=B4        217   PROGRAM*       10/37 L   10/53     10/55     10/57
        ALC=B5        220   PROGRAM*       10/38 L   11/02
        ALC=OV        236   PROGRAM*       10/25     10/26     11/07 L
        ALC=00        214   PROGRAM*       10/45 D   10/47     10/51
        ALC.ASF       231   PROGRAM*        1/46 E   10/53 L
        ALC.CAI       232   PROGRAM*        1/46 E   10/55 L
        ALC.CK         32   PROGRAM*        5/33 L    8/57
        ALC.DO        234   PROGRAM*        1/48 E   11/02 L
        ALC.FVD       233   PROGRAM*       10/57 L
        ALC.GM        143   PROGRAM*        7/45      7/50      8/34      8/37      8/42      9/14 L
        ALC.GM1       146   PROGRAM*        9/17      9/21 L
        ALC.GO         40   PROGRAM*        6/04 L    9/43
        ALC.OV        160   PROGRAM*        9/19      9/42 L
        ALC.PIG       235   PROGRAM*        1/49 E   11/04 L
        ALC.REG       226   PROGRAM*        1/46 E    3/48      5/21     10/47 L
        ALC.00        230   PROGRAM*        1/46 E   10/51 L
        ALO            64   PROGRAM*        5/47      7/13 L
        ALO.DIE       201   PROGRAM*        9/46     10/25 L
        ALO.OK        140   PROGRAM*        7/36      8/18      8/27      8/57 L    9/36
        ALO.OK2       141   PROGRAM*        9/03 L    9/44
        ANSI=           0   EXTERNAL*      29/19
        BASES           0   EXTERNAL*       1/56 X    3/57      5/14      6/24      6/52     10/47     10/51
        BINIO           0   EXTERNAL*       1/56 X    7/46      7/56 S
        BINIOF          0   EXTERNAL*       1/52 X
        CDD             0   EXTERNAL*       1/56 X
        CHAR            6   TSTEXT         29/10     29/11
        CIO=            0   EXTERNAL*       7/57      8/21      8/22      8/25      8/45     10/27     10/28
        CO.SNAP         0   EXTERNAL*       1/52 X    1/53 X
        CPM=BY          0   EXTERNAL*       2/17 X   10/11
        CP.AFLS         0   EXTERNAL*       7/43      9/27 S
        CP.NFLS         0   EXTERNAL*       9/29 S
        CP#RM           0   TSTEXT          8/24 F
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    33
        SYMBOLIC REFERENCE TABLE. 
  
        C.CON      340000   TSTEXT         13/07     13/16     22/08     22/16
        C.STAT     240000   TSTEXT         13/47     14/21
        C.STN      240000   TSTEXT         22/45     23/22
        C.SYM      200000   TSTEXT         14/53     15/27
        DLF             0   EXTERNAL*       2/14 X    7/35
        DPT             0   EXTERNAL*       2/11 X   18/54
        DSRT          621   PROGRAM*        1/47 E   30/48 L
        DSRT10        630   PROGRAM*       31/06 L   31/23     31/27
        DSRT15        635   PROGRAM*       31/10     31/24 L
        DSRT5         625   PROGRAM*       30/55 L   31/28
        ENDFTN          0   EXTERNAL*      10/29
        END96           0   EXTERNAL*      10/19
        ERT           253   PROGRAM*        1/46 E   11/51 L
        ERTD          215   PROGRAM*       11/35 S   11/42     12/19 D
        ERT1          242   PROGRAM*       11/31 L   12/11
        ERT2          243   PROGRAM*       11/33 L   12/07
        ESC           265   PROGRAM*        1/48 E   12/36 L
        ESC10         301   PROGRAM*       13/06     13/14 L
        ESC3          273   PROGRAM*       12/47     12/57 L
        ESC5          275   PROGRAM*       12/55     13/02     13/04 L
        ESN           306   PROGRAM*        1/47 E   13/53 L
        ESN10         304   PROGRAM*       13/45 L   13/55
        ESN5          310   PROGRAM*       14/02 L
        ESY           322   PROGRAM*        1/47 E   15/02 L
        ESY10         320   PROGRAM*       14/51 L   15/04
        ESY5          324   PROGRAM*       15/08 L
        E.ANS2          0   EXTERNAL*      29/19
        E.MO2           0   EXTERNAL*       2/08 X   10/15
        E.MO4           0   EXTERNAL*       2/08 X
        E.MO5           0   EXTERNAL*       2/08 X
        FAILSFT         0   EXTERNAL*       1/56 X    9/45
        FILL.           0   EXTERNAL*      29/17 S
        FLSLOP          4   TSTEXT          9/34
        FUDGE           1   TSTEXT          4/36      6/35
        F.LF            0   EXTERNAL*       1/52 X    1/53 X    7/57      8/03      8/21      8/22      8/25      8/25
        F.LGO           0   EXTERNAL*       1/52 X    1/53 X   10/28     10/28
        F.OUT           0   EXTERNAL*       1/52 X    1/53 X   10/27
        F.RMAP          0   EXTERNAL*       1/52 X    1/53 X    8/45      8/49     11/40
        F.TABS          0   EXTERNAL*       6/10      6/51      9/31     16/10
        GT1             0   EXTERNAL*       9/22 S    9/23      9/24
        IDENT         240   PROGRAM*        1/49 E   11/08 L
        IGS             0   EXTERNAL*       1/56 X    7/51      8/01      8/07
        INC.GTN      2000   TSTEXT          8/33      8/38
        INC.LTN      1000   TSTEXT          7/44      8/35
        LG.VAR          7   TSTEXT         29/11
        LOSTREF         0   EXTERNAL*       1/56 X   11/56
        LSTN           40   TSTEXT         28/07
        LSYM          200   TSTEXT         29/26
        L.MODE          3   TSTEXT         12/38     27/54     29/05
        L.MSHORT        6   TSTEXT         12/44
        L.SHC          22   TSTEXT         22/39     22/51     23/10     23/11     23/28
        L.TAG          22   TSTEXT         11/53     18/55     22/47
        L.TGB           5   TSTEXT         22/46     23/23
        MAX.FL          0   EXTERNAL*       9/14
        MSG=            0   EXTERNAL*      10/26
        MTD           336   PROGRAM*        6/06     16/07 L
        MTD1          341   PROGRAM*       16/13 L   16/22
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    34
        SYMBOLIC REFERENCE TABLE. 
  
        MTD2          345   PROGRAM*       16/22 L
        MVE           360   PROGRAM*        1/47 E    6/43      7/01     16/21     18/01 L   21/25
        MVE1          365   PROGRAM*       18/11     18/16 L
        MVE2          346   PROGRAM*       17/20 L   18/07
        MVE3          351   PROGRAM*       17/24     17/33 L   18/19
        MVE4          355   PROGRAM*       17/48 L   17/56
        M.INT           2   TSTEXT         22/23
        M.REAL          3   TSTEXT         12/57     23/07
        M.SHORT      4000   TSTEXT         22/57
        NAP           367   PROGRAM*        1/48 E   18/36 L
        NAP.NCM       373   PROGRAM*       18/46 L   20/44
        NCM           400   PROGRAM*        1/46 E   18/45     19/34 L   20/42
        NCM10         407   PROGRAM*       19/56 L   20/02     20/03
        NCM20         414   PROGRAM*       20/12 L   20/18
        NCM22         417   PROGRAM*       20/17     20/23 L
        NCM30         422   PROGRAM*       20/12     20/32 L
        NCM5          404   PROGRAM*       19/45 L   20/27
        NCM50         424   PROGRAM*       19/49     20/04     20/42 L
        NCM55         430   PROGRAM*       20/45     20/53 L
        NCS           451   PROGRAM*        1/47 E   22/22 L
        NCS15         464   PROGRAM*       22/36     22/57 L   23/30
        NCS20         466   PROGRAM*       22/24     22/27     23/07 L
        NCS30         442   PROGRAM*       22/05 L   22/40     22/50     23/09     23/12     23/17     23/27
        NCS40         446   PROGRAM*       22/07     22/15 L
        NCS6          455   PROGRAM*       22/26     22/28 L
        NCS7          460   PROGRAM*       22/25     22/32     22/38 L
        NCS.MOD       475   PROGRAM*       22/05 S   22/17     23/32 L
        NEXT          603   PROGRAM*        1/46 E   14/13     15/19     28/31 S   29/50 S
                                           13/54     15/03     28/17 S   29/36 S   29/54 L
        NOM.TFL         0   EXTERNAL*       7/47
        NREXT           0   EXTERNAL*       1/57 X    7/28
        N.TABLE         0   EXTERNAL*       1/57 X    5/34      6/27     19/44     25/45     30/09
                                            4/26      6/13     16/08     20/46     26/25     30/49
                                            4/33      6/26     16/13     24/45     27/09
        ORIGINS         0   EXTERNAL*       1/57 X   16/14
        PASS            0   EXTERNAL*       1/57 X    7/23      8/06     10/16
        PASS=END        4   TSTEXT          7/25      7/42      8/08     10/17
        PASS=MAP        5   TSTEXT          7/42
        PRS           476   PROGRAM*        1/47 E   23/46 L
        PRS2          502   PROGRAM*       23/55     23/57 L
        PRS4          503   PROGRAM*       24/03 L   24/06
        PSP.F           0   EXTERNAL*      10/18
        PSTN            5   TSTEXT         28/08
        PSYM            7   TSTEXT         29/27
        PWE             0   EXTERNAL*      10/15
        P.             73   TSTEXT         12/39
        P.MSHORT       30   TSTEXT         12/45     12/48     22/35
        P.SHC          52   TSTEXT         13/01     13/03     22/53
        P.SHORT        13   TSTEXT         12/39
        P.SYM          22   TSTEXT         28/23     29/42
        P.TAG          52   TSTEXT         13/49     14/23     14/55     15/29     18/52     22/09     22/18     23/24
        P.2TAG         52   TSTEXT         13/08     13/18
        REFIO           0   EXTERNAL*       1/57 X    8/32      8/44 S   12/03     12/10
        REFLIN          0   EXTERNAL*       2/01 X   11/51
        SCD           515   PROGRAM*        1/47 E   25/44 L
        SCD2          520   PROGRAM*       25/52 L   25/54
        SCD8          514   PROGRAM*       25/39 L   26/01     26/04
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    35
        SYMBOLIC REFERENCE TABLE. 
  
        SCS           523   PROGRAM*        1/48 E   26/24 L
        SCSA          532   PROGRAM*        1/46 E   26/26     26/45 L
        SCS1          526   PROGRAM*       26/33 L   26/37
        SCT           533   PROGRAM*        1/48 E   13/05     22/06     27/08 L
        SCTR          506   PROGRAM*        1/48 E   24/44 L
        SCTR2         511   PROGRAM*       24/52 L   24/54
        SCTR8         505   PROGRAM*       24/39 L   25/01     25/04
        SCT1          536   PROGRAM*       27/16 L   27/18     27/19
        SIZES           0   EXTERNAL*       2/01 X    5/36      6/07      6/53     16/15
        SRT           605   PROGRAM*        1/47 E   30/08 L
        SRT10         613   PROGRAM*       30/22 L   30/32     30/35
        SRT15         617   PROGRAM*       30/26     30/33 L
        SRT5          611   PROGRAM*       30/15 L   30/36
        SSN           543   PROGRAM*        1/47 E   28/01 L
        SSN10         542   PROGRAM*       27/53 L   28/25
        SSN5          552   PROGRAM*       28/14     28/21 L   28/27
        SSY           561   PROGRAM*        1/47 E   29/09 L
        SSYM          334   PROGRAM*       14/02 S   14/16     15/08 S   15/22     15/35 L
        SSY1          570   PROGRAM*       29/13     29/16     29/21 L
        SSY10         560   PROGRAM*       29/04 L   29/44
        SSY5          576   PROGRAM*       29/33     29/40 L   29/46
        STAGE           0   EXTERNAL*       2/01 X   10/14 S
        STNHASH       557   PROGRAM*       28/03     28/35 L
        SYMHASH       604   PROGRAM*       29/22     29/56 L
        SYS=            0   EXTERNAL*       9/23
        TA=NAM          0   EXTERNAL*       2/01 X   10/01     10/01 S
        TA=PRO          0   EXTERNAL*       2/01 X   10/08     10/08 S
        TEST            0   TSTEXT          2/44 F    3/39 F    5/42 F    8/04 F    8/50 F
        TG.APL          0   EXTERNAL*       2/01 X   18/48
        THRESH          0   EXTERNAL*       5/45      9/35 S
        TP=APL          0   EXTERNAL*       2/02 X   10/07     10/07 S   18/38
        TP=DIM          0   EXTERNAL*       2/01 X    9/51      9/51 S
        TP=DO           0   EXTERNAL*       2/02 X   10/02     10/02 S
        TP=FMT          0   EXTERNAL*       2/02 X   10/04     10/04 S
        TP=NLST         0   EXTERNAL*       2/02 X   10/06     10/06 S
        TP.APL          0   EXTERNAL*       2/02 X   18/37
        TP.DO           0   EXTERNAL*       2/05 X   11/02
        TS=BLK          0   EXTERNAL*       2/03 X   10/12     10/12 S
        TS=CON          0   EXTERNAL*       2/02 X    9/57      9/57 S
        TS=DAT          0   EXTERNAL*       2/02 X   10/09     10/09 S
        TS=ENT          0   EXTERNAL*       2/03 X   10/13     10/13 S
        TS=EQU          0   EXTERNAL*       2/02 X   10/03     10/03 S
        TS.CON          0   EXTERNAL*       2/03 X   13/05     22/06
        TS.SYM          0   EXTERNAL*       2/03 X
        TT=ASF          0   EXTERNAL*       2/05 X    9/49      9/49 S
        TT=FILL         0   EXTERNAL*       2/03 X    7/26
        TT=LF           0   EXTERNAL*       2/03 X    8/09      9/54      9/54 S
        TT=LINK         0   EXTERNAL*       2/03 X    7/24
        TT=PAR          0   EXTERNAL*       2/04 X   10/05     10/05 S
        TT=REF          0   EXTERNAL*       2/04 X    8/39      8/46     10/10     10/10 S   11/31     11/31 S
        TT=SCR          0   EXTERNAL*       2/04 X    9/56      9/56 S
        TT=USE          0   EXTERNAL*       2/04 X    9/55      9/55 S
        TT=XFIL         0   EXTERNAL*       7/31
        TT.ASF          0   EXTERNAL*       2/04 X   10/53
        TT.LF           0   EXTERNAL*       2/03 X    8/02      8/11     11/04
        TT.PAR          0   EXTERNAL*       2/04 X   10/55
        TT.REF          0   EXTERNAL*       2/04 X    8/47     12/09
1       /ALLOC  TABLE ALLOCATION AND MANIPULATION.                    COMPASS 3.7-871.     24/05/02. 15.51.51.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        T.END           0   EXTERNAL*       9/30 S
        T.VDIM          0   EXTERNAL*       2/04 X   10/57
        WBL             0   EXTERNAL*       2/17 X   10/25
        WTW=            0   EXTERNAL*       8/03      8/49     11/40
        W.TABS          0   EXTERNAL*       5/33      6/11      9/33 S
        .CMLOD          0   TSTEXT          9/52 F
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1216              IDENT  MAIN 
                       1216                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1175 
                                        LITERALS* LOCAL        1175        21 
  
  
                                        ENTRY POINTS. 
  
                                        PSP             23+           CPM=ASF          3            CPM=DAT          6
                                        CPM             25+           PCDX            50+           CPM=DEC          2
                                        CPM2            47+           CSK            466+           CPM=TYP         11
                                        CPM5           102+           GSNX           551+           CPM=TPE         12
                                        CPM6           107+           AFSX           120+           CPM=FMT          7
                                        CUS.RET        554+           LSL            654+           RNC            770+ 
                                        CUSX            76+           WOF           1117+           BLL            327+ 
                                        PSP.F           25+           WBL           1073+           LSS            660+ 
                                        PSP.C           21+           ASK            246+           PSP.Z           14+ 
                                        CPM=1ST          0            ASL            302+           RNS           1014+ 
                                        CPM=IMP          1            CSB            606+           PLO            666+ 
                                        PSFX            50+           CST            477+           AFS.ME         201+ 
                                        HDRBL         1215+           CPM=EXU          4            PLR            727+ 
                                        CPM=BY           5            CPM=END          5            LDB            621+ 
                                        TABX.F          43+           CPM=NTR         10
                                        IFS.X          102+           CPM=OK          13
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        AMODE     CDD       NOREL     TP=DO     E.ML      INIF      CST.BOS   SLIST 
                                        CO.SNAP   CSLIST    NSK       TS=CONB   E.MLNL    PCD       TL.PTYP   CP.PW 
                                        CO.MODE   CSNTAG    MLOP=O    TT=PAR    E.MT      TYPC      L.TTLB    TS.STN
                                        CP.CARD   CSSTMT    OPBSS     ZLE       E.NLN     FORMAT=   O.TTLA    DOORD 
                                        CP.FLIN   DEFERL    PASS      ZLCOMMA   E.NP      LGR       O.STITL   CO.ID 
                                        LCP.PS    DTI       REFLIN    ZLEQUAL   E.SN16    LG.LEN    CP.PD     OTROP 
                                        PDFLAG    DXB       REFNUM    ZLPAREN   E.TYH     NULL      CP.LSTF   CO.ER 
                                        CP.PAGE   FIRSTV    REFVAR    E.ANS1    FILL.     REP.      WTC=      TLV 
                                        F.IN      FLOW      SB.STNL   E.FM      FILL.2    DO.       ALC.REG   T=SB
                                        F.OUT     HANGER    SB.STNR   E.MA      UEC       IF.       ALC.00    HDELAY
                                        LOP=O     ICONL     STAGE     E.MB      PSF       ASF.      LDCOM     T.SB
                                        LOP=X     LASTCOL   STN       E.MCA     ALC       EOS       CIO=      PWE 
                                        O.TITL    LCNT      TS=CON    E.MC1     SSY       GSN       L.CARD    END96 
                                        L.TITL    MOD       TS.SYM    E.MD      TAB       CUA       L.MAXCD 
                                        TL.PAGE   MSF       T.DLBUF   E.MDO     BLANK     CUAFLAG   RDC=
                                        ASFLEN    MULS      T=DLBUF   E.MH      CONTIN=   CURST     CP.IFMT 
                                        CARDS     NOLIST    TT=ASF    E.MI      END=      CAI       MVE 
                                        CCNT      NOPATH    TT.PAR    E.MK      ENTRY=    SCR       COMMENT 
  
  
  
  
                                                  IDENT  MAIN                                                    MAIN        2
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     2
  
  
                                         MAIN     SECT   (MASTER STATEMENT RECOGNITION.),1                       FEAT155G  326
  
                                                                                                                 MAIN        4
                                                  SST    A,B,D,EXIT.                                             MAIN        5
                                                  NOREF  A,B,D,EXIT.                                             MAIN        6
                                                                                                                 MAIN        7
                                         B=MAIN   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     MAIN        8
                                                                                                                 MAIN        9
                                                  ENTRY  PSP,CPM,CPM2,CPM5,CPM6,CUS.RET,CUSX,PSP.F,PSP.C,CPM=1ST MAIN       10
                                                  ENTRY  CPM=IMP,PSFX,HDRBL,CPM=BY,TABX.F,IFS.X,CPM=ASF,PCDX     FEAT126C  120
                                                  ENTRY  CSK,GSNX,AFSX,LSL,WOF,WBL                               FCC1328X   96
                                                  ENTRY  ASK,ASL,CSB,CST,CPM=EXU,CPM=END,CPM=NTR,CPM=OK,CPM=DAT  MAIN       13
                                                  ENTRY  CPM=DEC,CPM=TYP,CPM=TPE,CPM=FMT,RNC                     MAIN       14
                                                  ENTRY  BLL,LSS,PSP.Z                                           FCC0990     8
                                                  ENTRY  RNS,PLO,AFS.ME,PLR                                      FCCA454    24
                                                                                                                 MAIN       15
                                        *         IN FTN                                                         MAIN       16
                                                  EXT    AMODE,CO.SNAP,CO.MODE,CP.CARD,CP.FLIN,LCP.PS,PDFLAG     FCCA422    42
                                                  EXT    CP.PAGE,F.IN,F.OUT,LOP=O,LOP=X,O.TITL,L.TITL,TL.PAGE    FEAT155E  138
                                                                                                                 MAIN       19
                                        *         IN TABLES                                                      MAIN       20
                                                  EXT    ASFLEN,CARDS,CCNT,CDD,CSLIST,CSNTAG,CSSTMT              FEAT126B   68
                                                  EXT    DEFERL,DTI,DXB,FIRSTV,FLOW                              FEAT155E  139
                                                  EXT    HANGER,ICONL,LASTCOL,LCNT,MOD                           FEAT155E  140
                                                  EXT    MSF,MULS,NOLIST,NOPATH,NOREL,NSK,MLOP=O                 FEAT126B   70
                                                  EXT    OPBSS,PASS,REFLIN                                       FEAT155E  141
                                                  EXT    REFNUM,REFVAR,SB.STNL,SB.STNR,STAGE,STN,TS=CON,TS.SYM   MAIN       24
                                                  EXT    T.DLBUF,T=DLBUF                                         FEAT126B   72
                                                  EXT    TT=ASF,TT.PAR,TP=DO,TS=CONB,TT=PAR,ZLE,ZLCOMMA,ZLEQUAL  MAIN       25
                                                  EXT    ZLPAREN                                                 MAIN       26
                                                                                                                 MAIN       27
                                        *         IN ERRORS                                                      MAIN       28
                                                  EXT    E.ANS1,E.FM,E.MA,E.MB,E.MCA,E.MC1,E.MD,E.MDO            FEAT155E  142
                                                  EXT    E.MH,E.MI,E.MK,E.ML,E.MLNL,E.MT,E.NLN,E.NP              FEAT155E  143
                                                  EXT    E.SN16,E.TYH,FILL.,FILL.2,UEC                           FEAT126B   74
                                                                                                                 MAIN       32
                                        *         IN HEADER                                                      MAIN       33
                                                  EXT    PSF                                                     MAIN       34
                                                                                                                 MAIN       35
                                        *         IN ALLOC                                                       MAIN       36
                                                  EXT    ALC,SSY                                                 FEAT155E  144
                                                                                                                 MAIN       38
                                        *         IN LEX                                                         MAIN       39
                                                  EXT    TAB,BLANK                                               MAIN       40
                                                                                                                 MAIN       41
                                        *         IN KEY                                                         MAIN       42
                                                  EXT    CONTIN=,END=,ENTRY=                                     MAIN       43
                                                                                                                 MAIN       44
                                        *         IN IF                                                          MAIN       45
                                                  EXT    INIF                                                    MAIN       46
                                                                                                                 MAIN       47
                                        *         IN DECL                                                        MAIN       48
                                                  EXT    PCD                                                     MAIN       49
                                                                                                                 MAIN       50
                                        *         IN TYPE                                                        MAIN       51
                                                  EXT    TYPC                                                    FCC1237     7
                                                                                                                 MAIN       53
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     3
  
  
                                        *         IN FMT                                                         MAIN       54
                                                  EXT    FORMAT=                                                 MAIN       55
                                                                                                                 MAIN       56
                                        *         IN IO                                                          MAIN       57
                                                  EXT    LGR,LG.LEN,NULL,REP.,DO.,IF.,ASF.,EOS                   MAIN       58
                                                                                                                 MAIN       59
                                        *         IN NUM                                                         MAIN       60
                                                  EXT    GSN,CUA,CUAFLAG                                         MAIN       61
                                                                                                                 MAIN       62
                                        *         IN PAR                                                         MAIN       63
                                                  EXT    CURST                                                   MAIN       64
                                                                                                                 MAIN       65
                                        *         IN GEN                                                         MAIN       66
                                                  EXT    CAI                                                     MAIN       67
                                                                                                                 MAIN       68
                                        *         IN INIT                                                        MAIN       69
                                                  EXT    SCR,CST.BOS                                             MAIN       70
                                                                                                                 MAIN       71
  
  
  
  
                                        **        CPM= - STAGE VECTORS ARE ROWS IN A TRANSITION TABLE WHICH      MAIN       73
                                        *                DESCRIBES THE ACTION NECESSARY (AS A JUMP ADDRESS) UPON MAIN       74
                                        *                ENCOUNTERING A STATEMENT WITH (SCPM) = ROW WHEN         MAIN       75
                                        *                (STAGE) = COLUMN.                                       MAIN       76
                                        *         THE FIRST 6 ENTRIES ARE ORDER-DEPENDENT (ONE FOR EACH VALUE OF MAIN       77
                                        *                *STAGE*).  FURTHER ENTRIES ARE ADDED FOR STATEMENTS NOT MAIN       78
                                        *                ACCURATELY DESCRIBED BY ANY PREVIOUS ROW.               MAIN       79
                                                                                                                 MAIN       80
                                                                                                                 MAIN       81
                                                  MACRO  CPM=,NAM,FST,IMP,DEC,ASF,EXU,SKP                        MAIN       82
                                         A        MICRO  1,2, SKP_BY                                             MAIN       83
                                         CPM=NAM  VFD    12/0,8/CPM."A",8/CPM.EXU,8/CPM.ASF,8/CPM.DEC,8/CPM.IMP, MAIN       84
                                        ,8/CPM.FST                                                               MAIN       85
                                         CPM=     ENDM                                                           MAIN       86
                                                                                                                 MAIN       87
             0                           CPM=     BSS    0                                                       MAIN       88
             0                                    LOC    0                                                       MAIN       89
                                        ****             (1ST IMP DEC ASF EXU)                                   MAIN       90
             0  00000340441102204420     1ST      CPM=    OK_,EMH,EMH,EMH,EMH                                    MAIN       91
             1  00000340501202410000     IMP      CPM=    IMP,OK_,EMI,EMI,EMI                                    MAIN       92
             2  00000340401004000400     DEC      CPM=    IMP,DEC,OK_,EMD,EMD                                    MAIN       93
             3  00000340342000400400     ASF      CPM=    IMP,DEC,ASF,OK_,EMA                                    MAIN       94
             4  00000341000300400400     EXU      CPM=    IMP,DEC,ASF,EXU,OK_                                    MAIN       95
             5                           CPM=BY   BSS    0                          DEFINE COLUMN FOR SKIP-STAGE MAIN       96
             5  00000401000300400413     END      CPM=    EMT,DEC,ASF,EXU,OK_,OK                                 MAIN       97
                                                                                                                 MAIN       98
             6  00000341002000400400     DAT      CPM=    IMP,DEC,ASF,OK_,OK_                                    MAIN       99
             7  00000340300601403000     FMT      CPM=    IMP,FMT,FMT,FMT,FMT                                    MAIN      100
            10  00000341002004000400     NTR      CPM=    IMP,DEC,OK_,OK_,OK_                                    MAIN      101
            11  00000340401004000420     TYP      CPM=    OK_,DEC,OK_,EMD,EMD                                    MAIN      102
            12  00000340401004010020     TPE      CPM=    OK_,OK_,OK_,EMD,EMD                                    MAIN      103
            13  00000401002004010020     OK       CPM=    OK_,OK_,OK_,OK_,OK_,OK      ALWAYS PROCESS             MAIN      104
                                        ****                                                                     MAIN      105
            14                                    LOC    *O                                                      MAIN      106
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     4
                                                                      PSP 
  
                                        **        PSP -  RETURN TO MASTER LOOP FROM STATEMENT PROCESSING.        MAIN      109
                                                                                                                 MAIN      110
                                                                                                                 MAIN      111
                                        **        PSP.Z - RETURN FROM COMPILER ERROR.  SET UP TO BYPASS          FCC0990     9
                                        *                COMPILATION OF REST OF PROGRAM UNIT                     FCC0990    10
                                                                                                                 FCC0990    11
            14  7170000005               PSP.Z    SX7    CPM=BY                                                  FCC0990    12
                          5170000000 X            SA7    STAGE                                                   FCC0990    13
            15  5110000000 X                      SA1    PASS                                                    FCC0990    14
                          7211777773              SX1    X1-PASS=END                                             FCC0990    15
            16  0331000025 +                      MI     X1,PSP.F    IF NOT IN END OR MAP PROCESSING             FCC0990    16
                          0400000000 X            EQ     =XEND96                                                 FCC0990    17
                                                                                                                 FCC0990    18
                                        **        PSP.A - NON-ANSI STATEMENTS MAY RETURN TO HERE TO HAVE THE     MAIN      112
                                        *                STATEMENT FLAGGED.                                      MAIN      113
                                                                                                                 MAIN      114
            17  5110000000 X             PSP.A    SA1    LOP=X                                                   MAIN      115
                          0321000023 +            PL     X1,PSP      IF ANSI SWITCH OFF                          MAIN      116
            20  0400000000 X                      EQ     E.ANS1      (RETURN TO *PSP*)..                         MAIN      117
                                                                                                                 MAIN      118
                                                                                                                 MAIN      119
                                        **        PSP.C - RETURN TO MASTER LOOP FOR ALL PROCESSORS THAT RESET    MAIN      120
                                        *                CONSTANT TABLE LENGTH. IE. *DATA*                       MAIN      121
                                                                                                                 MAIN      122
                                                                                                                 MAIN      123
            21  5110000000 X             PSP.C    SA1    ICONL       SPECIAL ENTRY TO RE-SET CON TABLE           MAIN      124
                          10611                   SHRINK TS=CON,X1                                               FCC0813   128
                                                                                                                 MAIN      127
                                        **        PSP -  GENERAL RETURN TO MASTER LOOP FOR NON-EXECUTABLE        MAIN      128
                                        *                STATEMENT PROCESSORS.                                   MAIN      129
                                        *                STATEMENT WILL BE FLAGGED IF A LABEL IS PRESENT.        MAIN      130
                                                                                                                 MAIN      131
            23  5130000000 X             PSP      SA3    SB.STNL                                                 MAIN      132
                          0303000025 +            ZR     X3,PSP.F    IF EMPTY LABEL FIELD                        MAIN      133
            24  6170000000 X                      WARN   E.SN16      STATEMENT LABEL IGNORED (RETURN CPM)        MAIN      136
                                                                                                                 MAIN      137
                                        **        PSP.F - RETURN TO MASTER LOOP FOR *FORMAT* PROCESSOR.          MAIN      138
                                        *                LABEL FIELD IS NOT CHECKED.                             MAIN      139
                                                                                                                 MAIN      140
            25                           PSP.F    BSS    0                                                       MAIN      141
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     5
                                                                      CPM 
  
                                        **        CPM -  COMPILER MASTER LOOP.                                   MAIN      143
                                                                                                                 MAIN      144
                                                                                                                 MAIN      145
            25  5110000000 X             CPM      SA1    =XT.SB                                                  FCC0813   129
                          46000                   NO                                                             MAIN      147
                               53010              SA0    X1          RESTORE (A0)                                MAIN      148
            26  0100001055 +                      RJ     RSC         RESET STATEMENT CELLS                       MAIN      149
                                                                                                                 MAIN      150
            27  0100000120 +             CPM1     RJ     AFS         ASSEMBLE FORTRAN STATEMENT                  MAIN      151
                                                                                                                 MAIN      152
            30  5010000002                        =A1    "SB.STN"                                                MAIN      153
                          43601                   MX6    1           ALLOW ZERO STATEMENT LABELS                 MAIN      154
            31  5160000000 X                      SA6    CUAFLAG                                                 MAIN      155
                          0100000000 X            RJ     CUA         ASSEMBLE LABEL FIELD                        MAIN      156
            32  13777                             BX7    0           RESET FLAG                                  MAIN      157
                     5170000000 X                 SA7    CUAFLAG                                                 MAIN      158
                               22726              LX7    X6,B2       LEFT JUSTIFY                                MAIN      159
            33  5160000000 X                      SA6    SB.STNR                                                 MAIN      160
                          55761                   =A7    A6-1                                                    MAIN      161
                                                                                                                 MAIN      162
                                        **        NORMALIZE THE STATEMENT -- CALL *TAB*.                         MAIN      163
                                                                                                                 MAIN      164
            34  6030000006                        =B3    "SB.FWA"    FWA FOR STORE                               MAIN      165
                          0100000000 X            RJ     TAB         NORMALIZE STATEMENT                         MAIN      166
            35  5120000000 X                      SA2    BLANK                                                   FCC0813   130
                          5110000000 X            SA1    MULS                                                    FCC0813   131
            36  65303                             SB3    A0-B3                                                   MAIN      168
                     77603                        SX6    -B3         (LASTCOL) = ORDINAL OF *EOS*                MAIN      169
                          5160000000 X            SA6    LASTCOL                                                 MAIN      170
            37  0311000041 +                      NZ     X1,CPM1A    IF MULTIPLE STATEMENT IN LINE               FCC0813   132
                          7266000002              SX6    X6+2                                                    FCC0813   133
            40  5160000000 X                      SHRINK T=SB,X6                                                 FCC0813   134
            41  0302000111 +             CPM1A    ZR     X2,CPM8     IF THIS IS A NULL STATEMENT                 FCC0813   135
                                                                                                                 MAIN      172
                                        **        CLASSIFY THE STATEMENT -- CALL *CST*.                          MAIN      173
                                                                                                                 MAIN      174
                          6040000006              =B4    "SB.FWA"    FWA OF STATEMENT                            MAIN      175
            42  0100000477 +                      RJ     CST         CLASSIFY STATEMENT.                         MAIN      176
            43                           TABX.F   BSS    0           .. EXIT FROM TAB WHEN *FORMAT*              MAIN      177
            43  0750000000 X                      MI     B5,E.FM     IF UNRECOGNIZABLE STATEMENT.                MAIN      178
                          10755                   BX7    X5                                                      MAIN      179
                                                                                                                 MAIN      180
            44                           CPM.MT   BSS    0           ** HERE IF EMPTY STATEMENT WITH LABEL       MAIN      181
            44                           AFS.EOS  BSS    0           .. EXIT FROM AFS WHEN END-OF-SECTION        MAIN      182
            44  5070000003                        =A7    "SB.KEY"    SAVE STATEMENT TYPE-KEY                     MAIN      183
                                                                                                                 MAIN      184
                                         SNAP=M   IFNE   TEST        DUMP *SB*                                   MAIN      185
                                                  SA1    CO.SNAP                                                 MAIN      186
                                                  LX1    1RM                                                     MAIN      187
                                                  PL     X1,CPM1S    IF MASTER LOOP SNAP NOT REQUESTED           MAIN      188
                                                  RJ     =XSVR                                                   MAIN      189
                                                  PLINE  (=C=  (DUMP OF *SB* -- FROM MASTER LOOP.)=),1           MAIN      190
                                                  RJ     =XSBL       LIST STRING BUFFER                          MAIN      191
                                                  RJ     =XRSR                                                   MAIN      192
                                         CPM1S    BSS    0                                                       MAIN      193
                                         SNAP=M   ENDIF                                                          MAIN      194
                                                                                                                 MAIN      195
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     6
                                                                      CPM 
  
                                                                                                                 MAIN      196
                                        **        NOW FOR MISCELLANEOUS CHECKS ON THE PROPERTIES OF THE          MAIN      197
                                        *         STATEMENT.  SEE *HEREIF* MACRO FOR DEFINITIONS OF ATTRIBUTES.  MAIN      198
                                                                                                                 MAIN      199
                                                                                                                 MAIN      200
                                        **        DIAGNOSE ILLEGAL STATEMENTS IN *BLOCKDATA* SUBPROGRAMS.        MAIN      201
                                                                                                                 MAIN      202
                          5110000000 X            SA1    MOD                                                     MAIN      203
            45  7140000400                        SX4    M.PBLK                                                  MAIN      204
                          11441                   BX4    X4*X1       FORM MASK (=1 IF BLOCKDATA)                 MAIN      205
                               20421              SBIT   X4,PBLK/SBKD                                            MAIN      206
            46  15445                             BX4    -X5*X4      ISOLATE *LEGAL IN BKD* BIT (IF IN BKD)      MAIN      207
                     0314000000 X                 NZ     X4,E.MB     IF NASTY IN BLOCKDATA, ERR..                MAIN      208
            47  5050000003               CPM2     SA5    "SB.KEY"                                                MAIN      209
                                                                                                                 MAIN      210
                                                                                                                 MAIN      211
                                        **        INSURE THAT THIS STATEMENT IS IN ITS PROPER PLACE.             MAIN      212
                                                                                                                 MAIN      213
            50                           PCDX     BSS    0           .. RETURN FROM *PCD*.                       MAIN      214
            50                           PSFX     BSS    0           .. RETURN FROM *PSF*.                       MAIN      215
                                                                                                                 MAIN      216
            50  10355                    CPM3     BX3    X5                                                      MAIN      217
                     43067                        MX0    -L.SCPM                                                 MAIN      218
                          5140000000 X            SA4    STAGE                                                   MAIN      219
            51  20335                             LX3    -P.SCPM                                                 MAIN      220
                     15230                        BX2    -X0*X3      ISOLATE STATEMENT STAGE NUMBER              MAIN      221
                          5212000000 +            SA1    X2+CPM=     FETCH STAGE VECTOR                          MAIN      222
            52  20403                             LX4    3           = ACTUAL (STAGE) * 8                        MAIN      223
                     63740                        SB7    X4                                                      MAIN      224
                          43064                   MX0    -8                                                      MAIN      225
                               23171              AX1    B7                                                      MAIN      226
            53  15210                             BX2    -X0*X1      ISOLATE COLUMN                              MAIN      227
                     63220                        SB2    X2                                                      MAIN      228
                          0222000054 +            JP     B2+CPM.                                                 MAIN      229
                                                                                                                 MAIN      230
            54                           CPM.     BSS    0           BASE OF STAGE ACTIONS TABLE.                MAIN      231
      L      0                                    LOC    0                                                       MAIN      232
                                                                                                                 MAIN      233
      L      0  0400000000 X             CPM.IMP  EQ     PSF         SET STAGE = IMP                             MAIN      234
                                                                                                                 MAIN      235
      L      1  76611                    CPM.DEC  =X6    CPM=DEC     SET STAGE = DEC                             MAIN      236
                     54640                        SA6    A4                                                      MAIN      237
                          0400000050 +            EQ     CPM3                                                    MAIN      238
                                                                                                                 MAIN      239
      L      2  0400000000 X             CPM.ASF  EQ     PCD         SET STAGE = ASF                             MAIN      240
                                                                                                                 MAIN      241
      L      3  7160000004               CPM.EXU  =X6    CPM=EXU     SET STAGE = EXU                             MAIN      242
                          5110000000 X            SA1    TT=ASF                                                  MAIN      243
      L      4  10711                             BX7    X1                                                      MAIN      244
                     54640                        SA6    A4                                                      MAIN      245
                          5170000000 X            SA7    ASFLEN      SAVE REAL LENGTH OF TT.ASF                  MAIN      246
      L      5  0400000050 +                      EQ     CPM3                                                    MAIN      247
                                                                                                                 MAIN      248
      L      6  0400000000 X             CPM.FMT  EQ     FORMAT=                                                 MAIN      249
                                                                                                                 MAIN      250
      L      7  0400000000 X             CPM.EMA  EQ     E.MA        MISPLACED STMNT FUN (RETURN - PSP)          MAIN      251
      L     10  0400000000 X             CPM.EMD  EQ     E.MD        MISPLACED DECLARATV (RETURN - PSP)          MAIN      252
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     7
                                                                      CPM 
  
      L     11  0400000000 X             CPM.EMH  EQ     E.MH        MISPLACED HEADER    (RETURN - PSP)          MAIN      253
      L     12  0400000000 X             CPM.EMI  EQ     E.MI        MISPLACED IMPLICIT  (RETURN - PSP)          MAIN      254
                                                                                                                 FCC1328X   97
                                        *         HERE IF NULL PROGRAM UNIT OCCURRED -- NEED TO LIST             FCC1328X   98
                                        *         ANY COMMENT LINES THAT MIGHT HAVE BEEN SAVED                   FCC1328X   99
                                        *         IN *BEFORE HEADER* MODE.                                       FCC1328X  100
                                                                                                                 FCC1328X  101
      L     13  5110000000 X             CPM.EMT  SA1    =XHDELAY                                                FCC1328X  102
                          0301000000 X            ZR     X1,=XE.MT   IF DONT NEED TO LIST ANYTHING               FCC1328X  103
      L     14  0100000621 +                      RJ     LDB         LIST DEFERRED BUFFER                        FCC1328X  104
      L     15  0400000000 X                      EQ     =XE.MT      NULL PROGRAM  (RETURN - RUN.X)              FCC1328X  105
                                                                                                                 MAIN      256
      L     16  5110001175 +             CPM.BY   SA1    =5A--       SKIP BY THIS STATEMENT                      MAIN      257
                          10611                   BX6    X1                                                      MAIN      258
      L     17  5160000000 X                      SA6    CP.FLIN                                                 FEAT155E  145
                          0400000025 +            EQ     PSP.F                                                   MAIN      260
                                                                                                                 MAIN      261
      L     20                           CPM.OK   BSS    0           PROPERLY POSITIONED.                        MAIN      262
            74                                    LOC    *O                                                      MAIN      263
                                                                                                                 MAIN      264
                                                                                                                 MAIN      265
                                        **               IF THIS IS A CODE-GENERATING STATEMENT, INVOKE *CUS* TO MAIN      266
                                        *         FINISH UP ANY INCOMPLETE STUFF FROM PREVIOUS STATEMENT,        MAIN      267
                                        *         PROCESS THE LABEL, AND RESET (A7).                             MAIN      268
                                                                                                                 MAIN      269
            74  5110000000 X                      SA1    =XMOD                                                   FCC1524X   18
                          20163                   SBIT   X1,PBLK                                                 FCC1524X   19
                               20540              SBIT   X5,SGEN                                                 MAIN      270
            75  0331000076 +                      MI     X1,CUSX     IF BLOCKDATA                                FCC1524X   20
                          0335000544 +            MI     X5,CUS      IF A GENERATOR                              MAIN      271
                                        *         ...                                                            MAIN      272
            76                           CUSX     BSS    0           .. RETURN FROM *CUS*                        MAIN      273
            76  5050000003                        =A5    "SB.KEY"                                                MAIN      274
                          5110000000 X            SA1    DTI                                                     MAIN      275
            77  20535                             SBIT   X5,SDON                                                 MAIN      276
                     0301000102 +                 ZR     X1,CPM5     IF NO DO TERMINATION                        MAIN      277
           100  0325000102 +                      PL     X5,CPM5     IF NOT DO TERMINAL                          FCC0743     9
                          6170000000 X            FATAL  E.MDO       *ILLEGAL DO TERMINAL*                       FCC0743    10
           102                           CPM5     BSS    0                                                       MAIN      279
                                                                                                                 MAIN      280
                                                                                                                 MAIN      281
                                        **               LOGICAL (1-BRANCH) IF PROCESSOR RETURNS TO HERE AFTER   MAIN      282
                                        *         DETERMINING STATEMENT TYPE AND LEGALITY.                       MAIN      283
                                                                                                                 MAIN      284
           102                           IFS.X    BSS    0           ** ENTRY FROM 1-BRANCH IF                   MAIN      285
           102  0100000000 X                      RJ     UEC         UPDATE ERROR COUNT                          MAIN      286
           103  5110000000 X                      =A1    "SB.BOS"                                                MAIN      287
                          5050000003              =A5    "SB.KEY"                                                MAIN      288
           104  63410                             =B4    X1                                                      MAIN      289
                     0335000107 +                 MI     X5,CPM6     IF NOT A KEYWORD STATEMENT                  MAIN      290
                                                                                                                 MAIN      291
           105  0100000246 +                      RJ     ASK         ADJUST KEYWORD STATEMENT                    MAIN      292
           106  0313000000 X                      NZ     X3,E.MK     IF KEYWORD DOES NOT MATCH                   MAIN      293
                                                                                                                 MAIN      294
                                        **        JUMP - TO COMPILE THE STATEMENT.                               MAIN      295
                                                                                                                 MAIN      296
           107  5050000003               CPM6     SA5    "SB.KEY"                                                MAIN      297
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     8
                                                                      CPM 
  
                          63650                   SB6    X5                                                      MAIN      298
           110  0266000000                        JP     B6          JUMP TO ROUTINE                             MAIN      299
                                                                                                                 MAIN      300
                                                                                                                 MAIN      301
                                        **        HANDLE NULL (EMPTY -- ALL BLANK) STATEMENTS HERE.              MAIN      302
                                        *                                                                        MAIN      303
                                        *         ENTRY  (SB.STNR) = LABEL, DPC RIGHT JUSTIFIED, ZERO FILL       MAIN      304
                                        *                          = 0 IF NO LABEL                               MAIN      305
                                        *                          = -1 IF ERROR IN LABEL                        MAIN      306
                                        *                                                                        MAIN      307
                                        *         EXIT   (NSK) ADVANCED                                          MAIN      308
                                        *                IF LABEL FIELD IS NON-BLANK, WE WILL TREAT IT AS A      MAIN      309
                                        *                *CONTINUE* STATEMENT, WITH AN APPROPRIATE WARNING.      MAIN      310
                                                                                                                 MAIN      311
           111  5110000000 X             CPM8     SA1    NSK         COUNT NULL STATEMENTS                       MAIN      312
                          5120000000 X            SA2    SB.STNR                                                 MAIN      313
           112  73711                             =X7    X1+1                                                    MAIN      314
                     54710                        SA7    A1                                                      MAIN      315
                          0302000027 +            ZR     X2,CPM1     IF NO LABEL                                 MAIN      316
           113  0332000027 +                      MI     X2,CPM1     IF ILLEGAL LABEL                            MAIN      317
                          6170000000 X            WARN   E.ML                                                    MAIN      318
           115  7150000000 X                      SX5    NULL                                                    MAIN      319
                          5255000000 X            SA5    X5+LGR                                                  MAIN      320
           116  10755                             BX7    X5                                                      MAIN      321
                     0400000044 +                 EQ     CPM.MT      TREAT IT AS A *CONTINUE* STATEMENT          MAIN      322
  
  
  
  
                                        **        AFS -  ASSEMBLE FORTRAN STATEMENT.                             MAIN      324
                                        *                                                                        MAIN      325
                                        *         READS A FORTRAN STATEMENT (INCLUDING CONTINUATION CARDS) AND   MAIN      326
                                        *         ASSEMBLES IT INTO THE *STRING BUFFER*.  EACH CHARACTER IS      MAIN      327
                                        *         PACKED WITH AN EXPONENT FIELD EQUAL TO THE NUMBER OF PRECEDING MAIN      328
                                        *         BLANKS, PLUS ONE.  IDEA AND CODE STOLEN FROM *FTNX*.           MAIN      329
                                        *         *END-OF-STRING* IS A *-1*, WITH A PACKED BLANK COUNT.          MAIN      330
                                        *                                                                        MAIN      331
                                        *         THE CARD IMAGE IS ALSO PRINTED, UNLESS A *SHORT LIST* WAS      MAIN      332
                                        *         SELECTED.  IF SO, THE TEXT OF THE STATEMENT (UP TO "MAX.CONT"  MAIN      333
                                        *         CARDS) IS SAVED IN THE DEFERRED LINE IMAGE AREA.               MAIN      334
                                        *                                                                        MAIN      335
                                        *         ENTRY  (A0) _ FWA STATEMENT TO BE STORED.                      MAIN      336
                                        *                                                                        MAIN      337
                                        *         EXIT   (A0) PRESERVED.                                         MAIN      338
                                        *                (B4) _ FWA BURST STATEMENT.                             MAIN      339
                                        *                *SB* = THE BURST CARD(S).                               MAIN      340
                                        *                (LASTCOL) = INDEX OF LAST CHARACTER.                    MAIN      341
                                        *                                                                        MAIN      342
                                        *         USES   ALL                                                     MAIN      343
                                        *                                                                        FEAT126B   76
                                        *         CALLS  ACD,ACL,BUL,CLO,CNT,PLO,PLR,RNC,RNS                     FEAT126B   77
                                                                                                                 MAIN      345
                                                                                                                 MAIN      346
                                        **        PROCESS MULTIPLE STATEMENTS PER CARD                           MAIN      347
                                                                                                                 MAIN      348
           117  76610                    AFS.MS   =X6    1                                                       MAIN      349
                     63410                        SB4    X1          POINT TO THE NEXT STATEMENT                 MAIN      350
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE     9
                                                                      AFS 
  
                          5160000000 X            SA6    MSF         SET MULTIPLE STATEMENT FLAG.                MAIN      351
                                                                                                                 MAIN      352
                                                                                                                 MAIN      353
                                        **        ****   MAIN ENTRY POINT. ****                                  MAIN      354
                                                                                                                 MAIN      355
           120  0400400120 +             AFS      SUBR   0                                                       MAIN      356
           121  5120001176 +                      SA2    =5L                                                     MAIN      357
                          5110000000 X            SA1    MULS                                                    MAIN      358
           122  10622                             BX6    X2                                                      MAIN      359
                     5060000002                   =A6    "SB.STN"    CLEAR STATEMENT LABEL                       MAIN      360
           123  0311000117 +                      NZ     X1,AFS.MS   IF MULTIPLE STATEMENT                       MAIN      361
                          5120000000 X            SA2    =XL.CARD    (X2) = NR OF WDS IN LINE IMAGE AT (CP.CARD) FCC1328X  106
           124  5130000000 X                      SA3    =XHDELAY                                                FCC1328X  107
                          7070000005              SX7    "SB.FWA"-1                                              FCC1328X  108
           125  43600                             MX6    0                                                       FCC1328X  109
                     14222                        BX2    -X2                                                     FCC1328X  110
                          5170000000 X            SA7    LASTCOL     PRESTORE IN CASE OF C/-LIST                 FCC1328X  111
           126  5160000000 X                      SA6    CCNT        CLEAR CONTINUATION COUNT                    FCC1328X  112
                          5150000000 X            SA5    =XCP.CARD                                               FCC1328X  113
           127  6262000001                        SB6    X2+1        (B6) = -NR OF USEABLE WORDS IN SOURCE LINE  FCC1328X  114
                                        *                                     (I.E. DOES NOT INCLUDE EOL MARK)   FCC1328X  115
                          0313000131 +            NZ     X3,AFS10    IF NOT IN *HEADER DELAY* MODE               FCC1328X  116
           130  5160000000 X                      SHRINK T=DLBUF,X6                                              FCC1328X  117
                                                                                                                 MAIN      374
                                                                                                                 MAIN      375
                                        **        READ STATEMENT FROM CARDS (NOT THE *SB*).                      MAIN      376
                                                                                                                 MAIN      377
           131  0100001014 +             AFS10    RJ     RNS         READ NEXT STATEMENT                         MAIN      378
           132  0305000201 +                      ZR     X5,AFS.ME   IF END OF SECTION                           MAIN      380
                                                                                                                 FEAT126B   80
                                        *         PROCESS C/-LIST OPTIONS.                                       FEAT126B   81
                                                                                                                 FEAT126B   82
                          0100000666 +            RJ     PLO         PROCESS C/-LIST OPTIONS                     FEAT126B   83
           133  0305000201 +                      ZR     X5,AFS.ME   IF END OF SECTION ENCOUNTERED               FEAT126B   84
                          5110000000 X            SA1    CO.MODE                                                 FEAT126B   85
           134  0301000150 +                      ZR     X1,AFS12    IF BATCH FORMAT                             MAIN      381
                                                                                                                 FEAT126B   86
                                        *         ASSEMBLE SOURCE INPUT IN SEQ FORMAT.                           FEAT126B   87
                                                                                                                 FEAT126B   88
                          5110000242 +            SA1    SEQNO       (X1) = SEQUENCE NR OF INITIAL LINE OF STMT  FCC1328X  118
                                        *                                     (0R FORMAT)                        FCC1328X  119
           135  15250                             BX2    -X0*X5                                                  FCC1328X  120
                     22601                        LX6    X1                                                      FCC1328X  121
                          7272777732              SX7    X2-1R+                                                  FCC1328X  122
           136  6140000005                        SB4    LG.STN                                                  FCC1328X  123
                          5060000001              SA6    "SB.LN"                                                 FCC1328X  124
           137  0317000144 +                      NZ     X7,AFS11    IF NOT + (CONTINUATION)                     FCC1328X  125
                          20306                   LX3    CHAR                                                    FEAT126B   97
           140  0323000142 +                      PL     X3,AFS10A   IF WORD NOT EXHAUSTED                       FEAT126B   98
                          54551                   SA5    A5+B1                                                   FEAT126B   99
                               66661              SB6    B6+B1                                                   FEAT126B  100
           141  0660000156 +                      PL     B6,AFS20    IF NULL STMT -- (CP.CARD) EMPTY NOW         FEAT155E  148
                                                                                                                 FEAT126B  102
           142  20506                    AFS10A   LX5    CHAR                                                    FEAT126B  103
                     6170000000 X                 WARN   E.MC1       INITIAL LINE IS CONTINUATION                MAIN      386
           144  0100000207 +             AFS11    RJ     ACD         ASSEMBLE CODED DIGITS (STMT LABEL)          FEAT126B  104
           145  67221                             SB2    B2-B1       (B2) = NR OF BLANKS PRECEDING 1ST NON-BLANK FCC1328X  126
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    10
                                                                      AFS 
  
                                        *                                    CHAR OF STMT. 1 HAS BEEN SUBTRACTED FCC1328X  127
                                        *                                    FROM (B2) BECAUSE 1ST BLANK OF STMT FCC1328X  128
                                        *                                    SPECIFIES THAT THIS IS AN INITIAL   FCC1328X  129
                                        *                                    LINE IN SEQ MODE, AND IS NOT        FCC1328X  130
                                        *                                    CONSIDERED PART OF THE STMT.        FCC1328X  131
                     22656                        LX6    X6,B5       LEFT JUSTIFY                                FCC1328BX   5
                          5060000002              SA6    "SB.STN"    STORE STATEMENT LABEL                       MAIN      391
           146  5060000005                        SA6    "SB.FWA"-1  INITIALIZE STORE ADDRESS                    MAIN      392
                          0306000156 +            ZR     X6,AFS20    IF STATEMENT LABEL NOT PRESENT              FEAT126B  106
           147  6120776000                        SB2    -1777B      INDICATE NO LEADING BLANKS                  FCC1328X  132
                          0400000156 +            EQ     AFS20                                                   FEAT126B  107
                                                                                                                 MAIN      397
                                        **        ASSEMBLE SOURCE INPUT IN BATCH FORMAT.                         MAIN      398
                                                                                                                 MAIN      399
           150  43336                    AFS12    MX3    L.STN                                                   MAIN      400
                     11635                        BX6    X3*X5       ISOLATE STATEMENT NR FIELD                  MAIN      401
                          20544                   LX5    6*CHAR                                                  MAIN      402
                               15250              BX2    -X0*X5                                                  MAIN      403
           151  5130000206 +                      SA3    AFSC                                                    MAIN      404
                          20530                   LX5    -6*CHAR     RESTORE (X5)                                FEAT126B  108
                               63720              SB7    X2          (B7) = (COLUMN 6)                           MAIN      405
           152  23173                             AX1    X3,B7                                                   MAIN      406
                     20173                        LX1    -1                                                      MAIN      407
                          0331000154 +            MI     X1,AFS15    IF ZERO OR BLANK                            MAIN      408
           153  6170000000 X                      WARN   E.MC1       INITIAL LINE IS CONTINUATION                MAIN      409
                                                                                                                 MAIN      410
                                        **        SAVE POSSIBLE STATEMENT LABEL FOR PROCESSING                   MAIN      411
                                        *                (X6) = COLS 1-5 OF CARD (5L FORMAT).                    MAIN      412
                                                                                                                 MAIN      413
           154  5060000002               AFS15    SA6    "SB.STN"    STORE STATEMENT LABEL FIELD                 MAIN      414
                          43066                   MX0    -CHAR                                                   MAIN      415
           155  6120776000                        SB2    -1777B      INDICATE NO LEADING BLANKS                  FCC0844     9
                          5060000005              =A6    "SB.FWA"-1  INITIALIZE STORE ADDRESS                    MAIN      417
                                                                                                                 MAIN      418
                                                                                                                 MAIN      419
           156  0100000353 +             AFS20    RJ     BUL         BURST THE LINE AT (CP.CARD) ET SEQ          FEAT155E  149
           157  0100000727 +                      RJ     PLR         PROCESS LISTING REQUEST                     FEAT126B  110
                                                                                                                 MAIN      592
                                                                                                                 MAIN      596
                                                                                                                 MAIN      597
                                        **        CHECK FOR CONTINUATION CARDS.                                  MAIN      598
                                                                                                                 MAIN      599
           160  0100000770 +                      RJ     RNC         READ NEXT CARD                              MAIN      601
                                                                                                                 MAIN      602
                                        **        CHECK FOR AN *ANSI* END LINE.  IF FOUND, DO NOT LOOK           MAIN      603
                                        *         FOR CONTINUATION LINES.                                        MAIN      604
                                                                                                                 MAIN      605
           161  5150000000 X                      SA5    CCNT                                                    MAIN      606
                          0315000170 +            NZ     X5,AFS67    IF NOT FIRST LINE, NOT A SPECIAL END LINE   MAIN      607
           162  5140000000 X                      SA4    LASTCOL                                                 MAIN      608
                          7050000011              SX5    "SB.FWA"+3                                              MAIN      609
           163  37545                             IX5    X4-X5                                                   MAIN      610
                     0315000170 +                 NZ     X5,AFS67    IF NOT 3 CHARACTERS LING                    FEAT126B  111
           164  5234777776                        SA3    X4-1        *D*                                         MAIN      612
                          26303                   UX3    X3                                                      MAIN      613
                               10533              BX5    X3                                                      MAIN      614
           165  55331                             =A3    A3-1        *N*                                         MAIN      615
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    11
                                                                      AFS 
  
                     26303                        UX3    X3                                                      MAIN      616
                          20306                   LX3    CHAR                                                    MAIN      617
                               12535              BX5    X3+X5                                                   MAIN      618
           166  55331                             =A3    A3-1        *E*                                         MAIN      619
                     26303                        UX3    X3                                                      MAIN      620
                          20314                   LX3    2*CHAR                                                  MAIN      621
                               12535              BX5    X3+X5                                                   MAIN      622
           167  7255726173                        SX5    X5-3REND                                                MAIN      623
                          0305000175 +            ZR     X5,AFS78    IF AN ANSI END LINE OCCURRED                FEAT126B  112
           170  56540                    AFS67    SA5    B4                                                      FEAT155E  150
                     67607                        SB6    -B7         (B6) = -NR OF USEABLE WORDS IN SOURCE LINE  FCC1328X  133
                          0311000175 +            NZ     X1,AFS78    IF END-OF-SECTION                           MAIN      627
           171  0100001014 +                      RJ     RNS         READ NEXT STATEMENT                         MAIN      628
           172  0305000175 +                      ZR     X5,AFS78    IF END OF SECTION                           MAIN      630
                                                                                                                 FEAT126B  113
                                        *         CHECK FOR C/-LIST OPTION.                                      FEAT126B  114
                                                                                                                 FEAT126B  115
                          0100000412 +            RJ     CLO         CHECK FOR C/-LIST OPTION                    FEAT126B  116
           173  0305000175 +                      ZR     X5,AFS78    IF END-OF-SECTION OR C/-LIST OCCURRED       FEAT126B  117
                                                                                                                 FEAT126B  118
                                        *         CHECK FOR CONTINUATION LINE.                                   FEAT126B  119
                                                                                                                 FEAT126B  120
                          0100000441 +            RJ     CNT         CHECK FOR CONTINUATION LINE                 FEAT126B  121
           174  0301000156 +                      ZR     X1,AFS20    IF THIS LINE IS A CONTINUATION LINE         FEAT126B  122
                                                                                                                 MAIN      678
                                                                                                                 MAIN      679
                                        **        END OF STATEMENT.                                              MAIN      680
                                                                                                                 FEAT126B  123
           175  5140000000 X             AFS78    SA4    LASTCOL                                                 FEAT126B  124
                          74300                   SX3    A0                                                      FEAT126B  125
                               37743              IX7    X4-X3       (LASTCOL) = ORDINAL OF LAST WORD OCCUPIED   MAIN      684
                                                                     BY THIS STATEMENT IN *SB*                   MAIN      685
           176  54740                             SA7    A4                                                      MAIN      686
                     6040000006                   SB4    "SB.FWA"                                                MAIN      687
           177  5120000000 X                      SA2    CCNT                                                    MAIN      688
                          6232777754              SB3    X2-ANS.CONT                                             MAIN      689
           200  0603000120 +                      LE     B3,AFSX     IF NOT TOO MANY CONTINUATION CARDS          FCC0844    10
                          0400000000 X            EQ     E.MCA       ** TOO MANY CONT CARDS (ANSI) **            MAIN      691
                                                                                                                 MAIN      692
                                                                                                                 MAIN      693
                                        **        HERE WHEN END-OF-SECTION ENCOUNTERED INSTEAD OF AN INITIAL     MAIN      707
                                        *                LINE.  FAKE UP AN *END* STATEMENT.                      MAIN      708
                                                                                                                 MAIN      709
           201  7150000000 X             AFS.ME   SX5    EOS                                                     MAIN      710
                          5255000000 X            SA5    X5+LGR                                                  MAIN      711
           202  10755                             BX7    X5                                                      MAIN      712
                     43600                        MX6    0                                                       MAIN      713
                          5160000000 X            SA6    SB.STNL     CLEAR STMT LABEL FOR FAKE END               MAIN      714
           203  6040000006                        SB4    "SB.FWA"                                                FCC0826    13
                          5160000000 X            SA6    LASTCOL                                                 FCC0826    14
           204  56640                             SA6    B4          INDICATE EMPTY AFTER KEYWORD                FCC0826    15
                     74660                        SX6    A6                                                      MAIN      716
                          5160000000 X            SA6    "SB.BOS"                                                MAIN      717
           205  0400000044 +                      EQ     AFS.EOS     EXIT..                                      MAIN      718
                                                                                                                 MAIN      719
           206                           AFSC     BSS    0           MASK TO CHECK FOR ZERO OR BLANK             MAIN      724
                                                  ECHO   2,CC=(1R ,1R0)                                          MAIN      725
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    12
                                                                      AFS 
  
                                                  POS    CC+1                                                    MAIN      726
                                                  VFD    1/1                                                     MAIN      727
                                  00              POS    0                                                       MAIN      728
  
  
  
  
                                        **        ACD - ASSEMBLE CODED DIGITS.                                   MAIN      732
                                        *                                                                        MAIN      733
                                        *         ENTRY  (A5) _ ADDRESS OF STATEMENT.                            MAIN      734
                                        *                (X0) = MX0  -CHAR                                       MAIN      735
                                        *                (X3) = CHARACTER POSITION.                              MAIN      736
                                        *                (X5) = STATEMENT WORD.                                  MAIN      737
                                        *                (B3) = COLUMN NUMBER.                                   MAIN      738
                                        *                (B4) = NUMBER OF DIGITS TO ASSEMBLE.                    MAIN      739
                                        *                (B6) = NO. OF WORDS REMAINING.                          MAIN      740
                                        *                                                                        MAIN      741
                                        *         EXIT   (A5) _ ADDRESS OF STATEMENT.                            MAIN      742
                                        *                (X3) = CHARACTER POSITION.                              MAIN      743
                                        *                (X5) = SHIFTED TO CHARACTER WHICH TERMINATED ASSEMBLY.  MAIN      744
                                        *                (X6) = DIGITS IN 0R FORMAT.                             MAIN      745
                                        *                (B2) = NR OF LEADING BLANKS (BIASED BY -1777B)          FCC1328X  134
                                        *                         (E.G. FOR 1 LEADING BLANK, (B2) = -1776B)      FCC1328X  135
                                        *                (B5) = LEFT JUSTIFY COUNT.                              MAIN      747
                                        *                (B6) = NUMBER OF WORDS REMAINING.                       MAIN      748
                                        *                (B7) = CHARACTER WHICH TERMINATED ASSEMBLY.             MAIN      749
                                        *                                                                        MAIN      750
                                        *         USES   A - 2, 4, 5.                                            MAIN      751
                                        *                X - 1, 2, 3, 4, 5, 6, 7.                                MAIN      752
                                        *                B - 2, 3, 4, 5, 6, 7.                                   MAIN      753
                                        *                                                                        MAIN      754
                                        *         CALLS  NONE.                                                   MAIN      755
                                                                                                                 MAIN      756
                                                                                                                 MAIN      757
           207  0400400207 +             ACD      SUBR               ENTRY/EXIT...                               MAIN      758
           210  5110001177 +                      SA1    =1H                                                     MAIN      759
                          6150000074              SB5    10*CHAR     LEFT JUSTIFY SHIFT COUNT                    MAIN      760
           211  13666                             BX6    X6-X6       CLEAR ASSEMBLY                              MAIN      761
                     6120776000                   SB2    0-1777B     INDICATE NO LEADING BLANKS                  FCC1328X  136
           212  5140001200 +                      SA4    ="NUM09"                                                MAIN      763
                                                                                                                 MAIN      764
                                        **        SKIP OVER LEADING BLANKS.                                      MAIN      765
                                                                                                                 MAIN      766
           213  37251                    ACD1     IX2    X5-X1                                                   MAIN      767
                     0312000217 +                 NZ     X2,ACD3     IF NOT ALL-BLANK WORD                       MAIN      768
           214  6170000012               ACD2     SB7    10                                                      MAIN      769
                          66661                   SB6    B6+B1       DECREMENT WORD COUNT                        MAIN      770
                               54551              SA5    A5+B1       NEXT WORD                                   MAIN      771
           215  66227                             SB2    B2+B7       INCREMENT BLANK COUNT                       MAIN      772
                     67337                        SB3    B3-B7       DECREMENT COLUMN COUNT                      MAIN      773
                          0660000207 +            PL     B6,ACDX     IF LAST WORD, EXIT                          MAIN      774
           216  20506                             LX5    CHAR                                                    MAIN      775
                     0400000213 +                 EQ     ACD1                                                    MAIN      776
                                                                                                                 MAIN      777
           217  15250                    ACD3     BX2    -X0*X5      EXTRACT CHAR                                MAIN      778
                     6272777722                   SB7    X2-1R                                                   MAIN      779
           220  0570000223 +                      NZ     B7,ACD4     IF NOT BLANK                                MAIN      780
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    13
                                                                      ACD 
  
                          20306                   LX3    CHAR                                                    MAIN      781
                               66221              SB2    B2+B1       INCREMENT BLANK COUNT                       MAIN      782
           221  20506                             LX5    CHAR                                                    MAIN      783
                     67331                        SB3    B3-B1                                                   MAIN      784
                          0323000217 +            PL     X3,ACD3     IF WORD NOT EXHAUSTED                       MAIN      785
           222  0400000214 +                      EQ     ACD2                                                    MAIN      786
                                                                                                                 MAIN      787
                                        **        ASSEMBLE DIGITS.                                               MAIN      788
                                                                                                                 MAIN      789
           223  63720                    ACD4     SB7    X2                                                      MAIN      790
                     22174                        LX1    X4,B7                                                   MAIN      791
                          0321000207 +            PL     X1,ACDX     IF NOT DIGIT                                MAIN      792
           224  0440000207 +                      ZR     B4,ACDX     IF NO MORE DIGITS TO ASSEMBLE               MAIN      793
                          67441                   SB4    B4-B1       DECREMENT NO. OF DIGITS                     MAIN      794
                               20606              LX6    CHAR                                                    MAIN      795
           225  6155777771                        SB5    B5-CHAR                                                 MAIN      796
                          20306                   LX3    CHAR                                                    MAIN      797
                               12662              BX6    X6+X2       ADD IN NEW DIGIT                            MAIN      798
           226  67331                             SB3    B3-B1                                                   MAIN      799
                     0323000230 +                 PL     X3,ACD5     IF WORD NOT EXHAUSTED                       MAIN      800
                               66661              SB6    B6+B1       DECREMENT WORD COUNT                        MAIN      801
           227  54551                             SA5    A5+B1       NEXT WORD                                   MAIN      802
                     0660000207 +                 PL     B6,ACDX     IF LAST WORD                                MAIN      803
           230  20506                    ACD5     LX5    CHAR                                                    MAIN      804
                     15250                        BX2    -X0*X5      EXTRACT CHARACTER                           MAIN      805
                          0400000223 +            EQ     ACD4                                                    MAIN      806
  
  
  
  
                                        **        ALN - ASSEMBLE LINE NUMBER.                                    MAIN      808
                                        *                                                                        MAIN      809
                                        *         ENTRY  (A5) _ FWA OF STATEMENT.                                MAIN      810
                                        *                (X5) = FIRST WORD OF STATEMENT.                         MAIN      811
                                        *                (B6) = -NR OF USEABLE WORDS IN SOURCE LINE IMAGE        FCC1328X  137
                                        *                         (I.E. DOES NOT INCLUDE FULL WORD EOL MARK)     FCC1328X  138
                                        *                                                                        MAIN      813
                                        *         EXIT   (X0) = MX0  -CHAR                                       MAIN      814
                                        *                (X1) > 0 (BLANK OR PLUS (+) TERMINATED ASSEMBLY.        MAIN      815
                                        *                (X3) = CHARACTER POSITION.                              MAIN      816
                                        *                (X5) = SHIFTED TO CHARACTER WHICH TERMINATED ASSEMBLY.  MAIN      817
                                        *                (X6) = LINE NUMBER IN 0R FORMAT.                        MAIN      818
                                        *                (B2) = NR OF LEADING BLANKS (BIASED BY -1777B)          FCC1328X  139
                                        *                         (E.G. FOR 1 LEADING BLANK, (B2) = -1776B)      FCC1328X  140
                                        *                (B3) = NO. OF COLUMNS REMAINING.                        MAIN      819
                                        *                (B6) = -NR OF USABLE WORDS REMAINING IN SOURCE LINE,    FCC1328X  141
                                        *                         ADJUSTED FOR ASSEMBLED LINE NR (IF NECESSARY)  FCC1328X  142
                                        *                (B7) = CHARACTER WHICH TERMINATED ASSEMBLY.             MAIN      821
                                        *                                                                        MAIN      822
                                        *         USES   A - 4.                                                  MAIN      823
                                        *                X - 0, 1, 3, 4, 5, 6.                                   MAIN      824
                                        *                B - 2, 3, 4, 6.                                         MAIN      825
                                        *                                                                        MAIN      826
                                        *         CALLS  ACD.                                                    FEAT126C  123
                                                                                                                 MAIN      828
                                   5     LG.LN    EQU    5           NUMBER OF DIGITS TO ASSEMBLE FOR *LN*       MAIN      829
                                                                                                                 MAIN      830
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    14
                                                                      ALN 
  
                                                                                                                 MAIN      831
           231  0400400231 +             ALN      SUBR               ENTRY/EXIT...                               MAIN      832
           232  43066                             MX0    -CHAR                                                   MAIN      833
                     6130000116                   SB3    80-2        (B3) = NR OF COLS TO PROCESS                FCC1328X  143
                                        *                                     (ADJUSTED FOR *BUL*)               FCC1328X  144
                               20506              LX5    CHAR                                                    MAIN      837
           233  43301                             MX3    1                                                       MAIN      838
                     6140777767                   SB4    -8                                                      MAIN      839
           234  0664000235 +                      GE     B6,B4,ALN1  LIMIT BURST TO 8 WORDS                      MAIN      840
                          66640                   SB6    B4                                                      MAIN      841
           235  6140000005               ALN1     SB4    LG.LN                                                   MAIN      842
                          0100000207 +            RJ     ACD         ASSEMBLE LINE NUMBER                        MAIN      843
           236  5140000241 +                      SA4    ALNA                                                    MAIN      844
                          23174                   AX1    X4,B7                                                   MAIN      845
                               20173              LX1    -1                                                      MAIN      846
           237  22756                             LX7    X6,B5                                                   FCC1328X  145
                     5160000242 +                 SA6    SEQNO       SAVE (X6) = SEQUENCE NR (0R FORMAT)         FCC1328X  146
                               54761              SA7    A6+B1       SAVE (X7) = SEQUENCE NR (0L FORMAT)         FCC1328X  147
           240  0400000231 +                      EQ     ALNX        RETURN                                      MAIN      847
                                                                                                                 MAIN      848
           241                           ALNA     BSS    0           MASK TO CHECK FOR BLANK OR PLUS (+)         MAIN      849
                                                  ECHO   2,CC=(1R ,1R+)                                          MAIN      850
                                                  POS    CC+1                                                    MAIN      851
                                                  VFD    1/1                                                     MAIN      852
                                  00              POS    0                                                       MAIN      853
                                                                                                                 FCC1328X  148
                                                                                                                 FCC1328X  149
           242                     2     SEQNO    BSSZ   2           CONTAINS THE SEQUENCE NR OF THE CURRENT     FCC1328X  150
                                        *                              LINE AT (CP.CARD) ET SEQ.                 FCC1328X  151
                                        *                              (SEQNO) = 0R FORMAT, (SEQNO+1) = 0L FMT   FCC1328X  152
                                        *                              IF THIS LINE IS AN INITIAL LINE OF STMT,  FCC1328X  153
                                        *                              THEN (SEQNO) WILL BE XFERRED TO ("SB.LN") FCC1328X  154
                                        *                              AND (SEQNO+1) WILL BE USED TO SET UP      FCC1328X  155
                                        *                              (REFLIN)                                  FCC1328X  156
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    15
                                                                      ASK 
  
                                        **        ASK -  ADJUST STATEMENT KEYWORD.                               MAIN      923
                                        *                                                                        MAIN      924
                                        *         REMOVES A KEYWORD FROM THE (NORMALIZED) STRING BUFFER,         MAIN      925
                                        *                AND ADJUSTS THE REMAINING CHARACTERS.                   MAIN      926
                                        *         ENTRY  (X5) = (JUMPTO. TABLE ENTRY)                            MAIN      927
                                        *                (B4) _ KEYWORD IN *SB*.                                 MAIN      928
                                        *         EXIT   (B4) _ *SB* ENTRY PAST KEYWORD                          MAIN      929
                                        *                (B3) = JUMP ADDRESS FOR THE STATEMENT PROCESSOR         MAIN      930
                                        *                (X3) = 0 IFF KEYWORD WAS CORRECTLY SPELLED.             MAIN      931
                                        *                                                                        FCC1328X  157
                                        *         USES   X - ALL                                                 FCC1328X  158
                                        *                A - 2,4,6                                               FCC1328X  159
                                        *                B - ALL BUT B5                                          FCC1328X  160
                                        *                                                                        FCC1328X  161
                                        *         CALLS  NONE                                                    FCC1328X  162
                                                                                                                 MAIN      933
                                                                                                                 MAIN      934
                                        *         HERE WE THROW AWAY INTEGERAL WORDS (MULTIPLES OF 7 CHARS).     MAIN      935
                                                                                                                 MAIN      936
           244  67271                    ASK8     SB2    B7-B1       BIT COUNT = BITCOUNT MINUS 7CHARS           MAIN      937
                     66441                        SB4    B4+B1                                                   MAIN      938
                          11672                   BX6    X7*X2                                                   MAIN      939
                               37336              IX3    X3-X6       COMPARE KEYWORD (1ST 7 CHAR)                MAIN      940
           245  0570000257 +                      NZ     B7,ASK2     IF MORE THAN 7 CHARACTERS IN KEY            MAIN      941
                                                                                                                 MAIN      942
           246  0400400246 +             ASK      SUBR   0                                                       MAIN      943
           247  43030                             MX0    4*CHAR                                                  MAIN      944
                     63350                        SB3    X5                                                      MAIN      945
                          57431                   SA4    B3-B1       HIJKLMNEFG  WHERE A-N ARE CHARS IN KEYWORD  FCC1328X  163
                               11305              BX3    X0*X5       ABCD------                                  MAIN      947
           250  20552                             LX5    -P.SLEN                                                 MAIN      948
                     73140                        SX1    X4          -------EFG                                  MAIN      949
                          43265                   MX2    -L.SLEN                                                 MAIN      950
                               37641              IX6    X4-X1       HIJKLMN---                                  MAIN      951
           251  15752                             BX7    -X2*X5      ISOLATE BIT COUNT                           MAIN      952
                     6227777747                   SB2    X7-4*CHAR                                               MAIN      953
           252  0720000254 +                      MI     B2,ASK1     IF 4 CHARACTER KEYWORD (OR LESS)            MAIN      954
                          43052                   MX0    7*CHAR                                                  MAIN      955
                               56240              SA2    B4                                                      MAIN      956
           253  11202                             BX2    X0*X2                                                   MAIN      957
                     13223                        BX2    X2-X3                                                   MAIN      958
                          0302000000 X            ZR     X2,E.FM     IF NOT ACTUALLY KEYWORD                     MAIN      959
           254  63270                    ASK1     SB2    X7                                                      MAIN      960
                     20122                        LX1    3*CHAR      ----EFG---                                  MAIN      961
                          12413                   BX4    X1+X3       ABCDEFG---                                  MAIN      962
           255  5160000000 X                      SA6    FILL.2      SAVE KEYWORD FOR POSSIBLE ERROR MSG         MAIN      963
                          36346                   IX3    X4+X6                                                   MAIN      964
                               43752              MX7    7*CHAR                                                  MAIN      965
           256  10644                             BX6    X4                                                      MAIN      966
                     55661                        SA6    A6-B1                                                   MAIN      967
                                                                                                                 MAIN      968
           257  56240                    ASK2     SA2    B4                                                      MAIN      969
                     6172777726                   SB7    B2-7*CHAR+1                                             MAIN      970
           260  7212777773                        SX1    X2-O.SEP                                                MAIN      971
                          0302000246 +            ZR     X2,ASKX     IF *EOS*                                    MAIN      972
           261  0321000246 +                      PL     X1,ASKX     IF SEPARATOR                                MAIN      973
                          0670000244 +            PL     B7,ASK8     IF SEVEN OR MORE CHARS                      MAIN      974
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    16
                                                                      ASK 
  
           262  43401                             MX4    1                                                       MAIN      975
                     66640                        SB6    B4                                                      MAIN      976
                          23024                   AX0    X4,B2       MASK FOR UPPER PART                         MAIN      977
                               11102              BX1    X0*X2                                                   MAIN      978
           263  37331                             IX3    X3-X1       COMPARE KEYWORD                             MAIN      979
                     6172000023                   SB7    B2+18+1                                                 MAIN      980
                               66221              SB2    B2+B1                                                   MAIN      981
           264  13770                             BX7    X7-X0       MASK FOR MIDDLE PART                        MAIN      982
                     11172                        BX1    X7*X2                                                   MAIN      983
                          22621                   LX6    X1,B2                                                   MAIN      984
                               10166              BX1    X6                                                      MAIN      985
           265  20606                             LX6    6                                                       MAIN      986
                     7140000003                   =X4    O.VAR                                                   MAIN      987
           266  7266777744                        SX6    X6-1R0                                                  MAIN      988
                          0336000270 +            MI     X6,ASK4     IF LETTER                                   MAIN      989
           267  76411                             =X4    O.CONS                                                  MAIN      990
                                                                                                                 MAIN      991
                                        *         NOW AN OFFSET CHARACTER MOVE UNTIL WE RUN INTO A SEPARATOR.    MAIN      992
                                                                                                                 MAIN      993
           270  56261                    ASK4     SA2    B6+B1                                                   MAIN      994
                     7262777773                   SX6    X2-O.SEP                                                MAIN      995
           271  0302000276 +                      ZR     X2,ASK6     IF *EOS*                                    MAIN      996
                          0326000276 +            PL     X6,ASK6     IF SEPARATOR ENCOUNTERED                    MAIN      997
           272  7262777776                        SX6    X2-O.HOLL                                               MAIN      998
                          0306000276 +            ZR     X6,ASK6     IF HOLLERITH ENCOUNTERED                    MAIN      999
           273  11602                             BX6    X0*X2                                                   MAIN     1000
                     22676                        LX6    B7          MOVE NEXT UPPER TO RESULT MIDDLE            MAIN     1001
                          36661                   IX6    X6+X1                                                   MAIN     1002
                               66661              SB6    B6+B1                                                   MAIN     1003
           274  12664                             BX6    X6+X4       RESTORE O.VAR (OR O.CONS)                   MAIN     1004
                     57661                        SA6    B6-B1                                                   MAIN     1005
                          11672                   BX6    X7*X2                                                   MAIN     1006
                               22126              LX1    X6,B2       MOVE CURRENT MIDDLE TO RESULT UPPER         MAIN     1007
           275  0400000270 +                      EQ     ASK4                                                    MAIN     1008
                                                                                                                 MAIN     1009
                                        *         HAVE FOUND A STOPPER, IS A MOVE NEEDED QQQ.                    MAIN     1010
                                                                                                                 MAIN     1011
           276  12641                    ASK6     BX6    X4+X1                                                   MAIN     1012
                     56660                        SA6    B6          STORE ANY REMAINING PARTIAL WORD            MAIN     1013
                          0311000246 +            NZ     X1,ASKX     IF THERE WAS ANYTHING IN THE PARTIAL WORD   MAIN     1014
                                                                                                                 MAIN     1015
           277  66441                             SB4    B4+B1       *SB* MUST BE ADJUSTED.                      MAIN     1016
           300  57261                    ASK7     SA2    B6-B1                                                   MAIN     1017
                     67661                        SB6    B6-B1       COUNT DOWN THE AUXILLARY COUNTER            MAIN     1018
                          10622                   BX6    X2                                                      MAIN     1019
                               54621              SA6    A2+B1                                                   MAIN     1020
           301  0664000300 +                      GE     B6,B4,ASK7        IF NOT YET TO FRONT OF STRING         MAIN     1021
                          0400000246 +            EQ     ASKX              EXIT..                                MAIN     1022
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    17
                                                                      ASL 
  
                                        **        ASL -  ADJUST STATEMENT LABEL.                                 MAIN     1024
                                        *                                                                        MAIN     1025
                                        *         SPECIAL KLUDGE FOR *DO* AND *ASSIGN* STATEMENTS.  DETERMINES   MAIN     1026
                                        *         LENGTH OF STATEMENT LABEL IN *SB*, AND CALLS *ASK* TO REMOVE   MAIN     1027
                                        *         IT FROM THE STRING.  THUS, THESE POOR STATEMENTS CAN GET AT    MAIN     1028
                                        *         THE NEXT ELEMENT OF THE STATEMENT IN THE USUAL FASHION.        MAIN     1029
                                        *                                                                        MAIN     1030
                                        *         ENTRY  (B4) _ LABEL IN *SB*.                                   MAIN     1031
                                        *                                                                        MAIN     1032
                                        *         EXIT   (B4) MAY BE ADJUSTED.  LOGICALLY, IT POINTS TO THE NEXT MAIN     1033
                                        *                     *SB* ELEMENT AFTER THE LABEL.                      MAIN     1034
                                        *                (X1) = 0L_LABEL + O.CON.                                MAIN     1035
                                        *                *SB* ADJUSTED, AS DEFINED BY *ASK*.                     MAIN     1036
                                        *                                                                        MAIN     1037
                                        *         USES   ALL BUT A0.                                             MAIN     1038
                                        *                (SCR).                                                  MAIN     1039
                                        *         CALLS  ASK.                                                    MAIN     1040
                                                                                                                 MAIN     1041
                                                                                                                 MAIN     1042
           302  0400400302 +             ASL      SUBR               ENTRY/EXIT...                               MAIN     1043
           303  6150777775                        SB5    -O.CONS                                                 MAIN     1044
                          5120001201 +            SA2    =05050505050505BS18                                     MAIN     1045
           304  5130001202 +                      SA3    =40404040404040BS18                                     MAIN     1046
                          66600                   SB6    B0          INITIALIZE *SB* POINTER                     MAIN     1047
                               56140              SA1    B4          (X1) = START OF LABEL                       MAIN     1048
           305  36412                    ASL1     IX4    X1+X2       SET SIGN BITS OF DIGITS                     MAIN     1049
                     16743                        BX7    -X3+X4      ISOLATE NON-DIGITS                          MAIN     1050
                          0317000311 +            NZ     X7,ASL2     IF NOT 7-DIGITS                             MAIN     1051
           306  66661                             =B6    B6+B1       UPDATE *SB* POINTER                         MAIN     1052
                     56146                        SA1    B4+B6       PICK UP NEXT *SB* ENTRY                     MAIN     1053
                          73515                   SX5    X1+B5                                                   MAIN     1054
           307  0305000305 +                      ZR     X5,ASL1     IF STILL A CONSTANT                         MAIN     1055
                          67201                   =B2    -1                                                      MAIN     1056
           310  0400000313 +                      EQ     ASL3                                                    MAIN     1057
                                                                                                                 MAIN     1058
           311  20760                    ASL2     LX7    -12                                                     MAIN     1059
                     24227                        NX2,B2 X7          LOCATE FIRST NON-DIGIT                      MAIN     1060
                          67221                   =B2    B2-1                                                    MAIN     1061
                               43001              MX0    1                                                       MAIN     1062
           312  23420                             AX4    X0,B2       MASK LENGTH = DIGIT LENGTH                  MAIN     1063
                     0460000314 +                 ZR     B6,ASL4     IF LABEL ONLY 1 WORD LONG                   MAIN     1064
           313  43452                    ASL3     MX4    7*CHAR                                                  MAIN     1065
                     56140                        SA1    B4          RESET (X1) = START OF LABEL                 MAIN     1066
                          66446                   SB4    B4+B6       SET B4 TO LAST WORD OF LABEL                MAIN     1067
           314  11641                    ASL4     BX6    X4*X1                                                   MAIN     1068
                     0720000321 +                 MI     B2,ASL5     IF LABEL MULTIPLE OF 7 CHARACTERS           MAIN     1069
                               76320              SX3    B2                                                      MAIN     1070
           315  43465                             MX4    -L.SLEN                                                 MAIN     1071
                     7150001204 +                 SX5    1+=0                                                    MAIN     1072
                               15334              BX3    -X4*X3                                                  MAIN     1073
           316  20322                             LX3    P.SLEN                                                  MAIN     1074
                     5160000000 X                 SA6    SCR                                                     MAIN     1075
                               36553              IX5    X5+X3       MANUFACTURE DUMMY *SATTR* WORD FOR *ASK*    MAIN     1076
           317  0100000246 +                      RJ     ASK         ADJUST OFF THE LABEL                        MAIN     1077
           320  5110000000 X                      SA1    SCR                                                     MAIN     1078
                          0400000302 +            EQ     EXIT.                                                   MAIN     1079
                                                                                                                 MAIN     1080
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    18
                                                                      ASL 
  
           321  56140                    ASL5     SA1    B4                                                      MAIN     1081
                     73515                        SX5    X1+B5                                                   MAIN     1082
                          0315000323 +            NZ     X5,ASL6     IF NOT CONSTANT                             MAIN     1083
           322  7140000001                        SX4    O.VAR-O.CONS                                            MAIN     1084
                          36714                   IX7    X1+X4                                                   MAIN     1085
                               56740              SA7    B4                                                      MAIN     1086
           323  10166                    ASL6     BX1    X6                                                      MAIN     1087
                     0400000302 +                 EQ     EXIT.                                                   FEAT126A  772
  
  
  
  
                                        **        BLL - BREAK LONG LINE                                          FEAT126A  774
                                        *                                                                        FEAT126A  775
                                        *         WHEN PRINT LINE IS .GT. PAGE WIDTH, BLL PRINTS FIRST PART OF   FEAT126A  776
                                        *         LINE AND LEFT JUSTIFIES REMAINDER.                             FEAT126A  777
                                        *                                                                        FEAT126A  778
                                        *         ENTRY  (A2) = ADDRESS OF LAST WORD OF 1ST PART                 FEAT126A  779
                                        *                (X2) = LAST WORD OF 1ST PART                            FEAT126A  780
                                        *                (B2) = FWA OF LINE - 1                                  FEAT126A  781
                                        *                (B5) = NUMBER OF BITS TO PRINT OF LAST WORD OF 1ST PART FEAT126A  782
                                        *                (B6) = LWA OF LINE - 1                                  FEAT126A  783
                                        *         EXIT   (X1) = FWA OF 2ND PART                                  FEAT126A  784
                                        *                (X2) = LENGTH OF 2ND PART                               FEAT126A  785
                                        *                (X6) = 0  IF NO LINE PRINTED                            FEAT126A  786
                                        *                1ST PART PRINTED                                        FEAT126A  787
                                        *         USES   A - 1-4, 6, 7                                           FEAT126A  788
                                        *                X - 1-4, 6, 7                                           FEAT126A  789
                                        *                B - 2, 3, 5, 6, 7                                       FEAT126A  790
                                        *         PRESERVES  A0, X0, A5, X5, B4                                  FEAT126A  791
                                        *         CALLS  LSS, PLINE                                              FEAT126A  792
                                                                                                                 FEAT126A  793
           324  11413                    BLL4     BX4    X1*X3                                                   FEAT126AA  18
                     12642                        BX6    X4+X2                                                   FEAT126A  796
                          37636                   IX6    X3-X6                                                   FEAT126A  797
           325  0316000334 +                      NZ     X6,BLL2     IF NOT ALL BLANKS                           FEAT126A  798
                          76121                   SX1    B2+B1       FWA OF LINE                                 FEAT126A  799
                               66661              SB6    B6+B1       LWA OF LINE                                 FEAT126A  800
           326  77262                             SX2    B6-B2       LENGTH OF LINE                              FEAT126A  801
                                                                                                                 FEAT126A  802
           327  0400400327 +             BLL      SUBR               ENTRY/EXIT                                  FEAT126A  803
           330  43100                             MX1    0                                                       FEAT126A  804
                     0450000332 +                 ZR     B5,BLL1     IF BREAK ON WORD BOUNDARY                   FEAT126A  805
                               43101              MX1    1                                                       FEAT126A  806
           331  67751                             SB7    B5-B1                                                   FEAT126A  807
                     23171                        AX1    B7                                                      FEAT126A  808
           332  11712                    BLL1     BX7    X1*X2       LEFT SIDE                                   FEAT126A  809
                     65326                        SB3    A2-B6                                                   FEAT126A  810
                          15221                   BX2    -X1*X2      RIGHT SIDE                                  FEAT126A  811
           333  5130001177 +                      SA3    =10H                                                    FEAT126AA  19
                          0430000324 +            ZR     B3,BLL4     IF 2ND PART ONLY ONE PARTIAL WORD           FEAT126A  812
           334  0100000660 +             BLL2     RJ     LSS         LEFT SHIFT STRING                           FEAT126A  813
           335  5160000347 +                      SA6    BLL10       SAVE 1ST WORD OF 2ND LINE                   FEAT126A  814
                          54720                   SA7    A2          SET LEFT SIDE INTO BUFFER                   FEAT126A  815
                               54321              SA3    A2+B1                                                   FEAT126A  816
           336  10733                             BX7    X3                                                      FEAT126A  817
                     54761                        SA7    A6+B1       SAVE 2ND WORD  OF 2ND LINE                  FEAT126A  818
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    19
                                                                      BLL 
  
                          66661                   SB6    B6+B1                                                   FEAT126A  819
                               65321              SB3    A2-B1                                                   FEAT126A  820
           337  76630                             SX6    B3                                                      FEAT126A  821
                     54671                        SA6    A7+B1       SAVE 2ND LINE FWA                           FEAT126A  822
                          67331                   SB3    B3-B1                                                   FEAT126A  823
                               77763              SX7    B6-B3                                                   FEAT126A  824
           340  54761                             SA7    A6+B1       SAVE 2ND LINE LENGTH                        FEAT126A  825
                     43600                        MX6    0                                                       FEAT126A  826
                          56660                   SA6    B6          EOL TERMINATOR FOR 2ND LINE                 FEAT126A  827
                               75222              SX2    A2-B2                                                   FEAT126A  828
           341  0450000342 +                      ZR     B5,BLL3     IF ALREADY HAVE 1ST LINE EOL                FEAT126A  829
                          73221                   SX2    X2+B1                                                   FEAT126A  830
                               54630              SA6    A3          EOL TERMINATOR FOR 1ST LINE                 FEAT126A  831
           342  76121                    BLL3     PLINE  B2+B1,X2                                                FEAT126A  832
           343  5120000352 +                      SA2    BLL10+3     LENGTH                                      FEAT126A  833
                          55121                   SA1    A2-B1       FWA                                         FEAT126A  834
                               55311              SA3    A1-B1       2ND WORD                                    FEAT126A  835
           344  5140001204 +                      SA4    =10H   >>>>                                             FEAT126A  836
                          10644                   BX6    X4                                                      FEAT126A  837
                               53610              SA6    X1          SET CONTINUE INDICATOR                      FEAT126A  838
           345  55431                             SA4    A3-B1       1ST WORD                                    FEAT126A  839
                     10644                        BX6    X4                                                      FEAT126A  840
                          54661                   SA6    A6+B1       RESET 1ST WORD                              FEAT126A  841
                               10733              BX7    X3                                                      FEAT126A  842
           346  54761                             SA7    A6+B1       RESET 2ND WORD                              FEAT126A  843
                     0400000327 +                 EQ     EXIT.                                                   FEAT126A  844
                                                                                                                 FEAT126A  845
           347                     4     BLL10    BSSZ   4                                                       FEAT126A  846
  
  
  
  
                                        **        BUL - BURST A LINE.                                            FEAT126B  133
                                        *                                                                        FEAT126B  134
                                        *                BURSTS A LINE IN EITHER NORMAL UNCOMPRESSED FORMAT OR   FEAT126B  135
                                        *         UPDATE COMPRESSED FORMAT AND IN EITHER NORMAL BATCH FORMAT OR  FEAT126B  136
                                        *         IN TIME-SHARING SEQ FORMAT FROM (CP.CARD) ET SEQ, ONE          FEAT155E  168
                                        *         CHARACTER PER WORD WITH BLANKS SQUEEZED OUT, TO THE STRING     FEAT155E  169
                                        *         BUFFER.                                                        FEAT155E  170
                                        *                                                                        FEAT126B  139
                                        *                                                                        FEAT126B  140
                                        *         ENTRY  (AMODE)   = +0 IF NORMAL UNCOMPRESSED FORMAT            FEAT126B  141
                                        *                          =  1 IF MODIFY COMPRESSED FORMAT (ERROR)      FEAT126B  142
                                        *                          =  2 IF UPDATE COMPRESSED FORMAT(UNSUPPORTED) FEAT126B  143
                                        *                (CP.CARD) =  PACKED SOURCE LINE (I.E. 10 CHARS/WORD)    FEAT155E  171
                                        *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)    FCC1328X  164
                                        *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)  FCC1328X  165
                                        *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE  FCC1328X  166
                                        *                               AT (CP.CARD) ET SEQ                      FCC1328X  167
                                        *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK) FCC1328X  168
                                        *                (A6)+1    =  FWA TO STORE IN STRING BUFFER              FEAT126B  146
                                        *                                                                        FEAT126B  147
                                        *                IN BATCH --                                             FEAT126B  148
                                        *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO  FEAT126B  149
                                        *                               BE BURST FROM (CP.CARD).                 FEAT155E  172
                                        *                                                                        FEAT126B  152
                                        *                IN SEQ --                                               FEAT126B  153
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    20
                                                                      BUL 
  
                                        *                (X3)      =  CHARACTER POSITION IN WORD. CHARACTER      FEAT126B  154
                                        *                               POSITIONS IN (X3) ARE NUMBERED --        FEAT126B  155
                                        *                               (01 10 09 08 07 06 05 04 03 02).         FEAT126B  156
                                        *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS   FEAT126B  157
                                        *                               (05-00) OF (X5), THEN THE SIGN BIT WILL  FEAT126B  158
                                        *                               BE ON IN THE 4TH CHAR POSITION IN (X3).  FEAT126B  159
                                        *                               (X5) = (05 06 07 08 09 10 01 02 03 04)   FEAT126B  160
                                        *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)  FEAT126B  161
                                        *                (A5,X5)   =  ADDR + CONTENTS OF NTH WORD OF LINE IMAGE  FEAT126B  162
                                        *                               IN (CP.CARD), 1ST COL TO BE BURST        FEAT155E  174
                                        *                               IN BITS (05-00)                          FEAT155E  175
                                        *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)    FCC1328X  169
                                        *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)  FCC1328X  170
                                        *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE      FCC1328X  171
                                        *                                                                        FEAT126B  166
                                        *         EXIT   LINE COLUMNS 7-72 (BATCH FMT) BURST TO STRING BUFFER.   FEAT126B  167
                                        *                  BLANKS SQUEEZED OUT. LEADING BLANK COUNT (LBC) IS     FEAT126B  168
                                        *                  PACKED WITH NON-BLANK CHARACTER AS FOLLOWS --         FEAT126B  169
                                        *                            12/LBC-1777B+2000B,42/0,6/CHARACTER         FCC1328X  172
                                        *                  STRING BUFFER TERMINATOR FORMAT --                    FEAT126B  171
                                        *                            12/-(LBC-1777B+2000B),48/-1                 FCC1328X  173
                                        *                (LASTCOL) =  LWA OF STATEMENT IN STRING BUFFER          FEAT126B  173
                                        *                                                                        FEAT126B  174
                                        *         USES   ALL BUT A0                                              FCC1328X  174
                                        *                                                                        FCC1328X  175
                                        *         CALLS  ALLOC                                                   FCC1328X  176
                                                                                                                 FEAT126B  178
                                                                                                                 FEAT126B  179
           353  0400400353 +             BUL      SUBR               ** ENTRY/EXIT **                            FEAT126B  180
                                                                                                                 FCC1328X  177
                                        *         ALLOCATE SPACE IN STRING BUFFER FOR NEW LINE, IF NECESSARY.    FCC1328X  178
                                                                                                                 FCC1328X  179
           354  5110000000 X                      SA1    =XT=SB                                                  FCC0813   136
                          5120000000 X            SA2    =XT.SB                                                  FCC0813   137
           355  63520                             SB5    X2                                                      FCC1328X  180
                     75765                        SX7    A6-B5                                                   FCC1328X  181
                          37217                   IX2    X1-X7                                                   FCC0813   140
           356  7262777674                        SX6    X2-67                                                   FCC0813   141
                          0326000362 +            PL     X6,BUL1     IF ENOUGH ROOM FOR 1 FULL CARD              FCC0813   142
           357  64560                             SB5    A6          SAVE  A6                                    FCC1328X  182
                     10433                        BX4    X3          SAVE  X3                                    FCC0813   144
                          5110000000 X            ALLOC  =XT.SB,75                                               FCC2272    11
           361  56150                             SA1    B5                                                      FCC1328X  183
                     10611                        BX6    X1                                                      FCC0813   148
                          56650                   SA6    B5          RESTORE A6                                  FCC1328X  184
                               10344              BX3    X4          RESTORE X3                                  FCC0813   150
                                                                                                                 FCC1328X  185
                                        *         INITIALIZE FOR BURST.                                          FCC1328X  186
                                                                                                                 FCC1328X  187
           362  5120000000 X             BUL1     SA2    =XCO.MODE                                               FCC1328X  188
                          0312000366 +            NZ     X2,BUL3     IF SEQ FORMAT                               FCC1328X  189
           363  43301                             MX3    1                                                       FEAT126B  184
                     6140777770                   SB4    -7                                                      FCC1328X  190
                               20344              LX3    -4*CHAR                                                 FEAT126B  187
           364  20544                             LX5    6*CHAR      (X5) = COL (07 08 09 10 01 02 03 04 05 06)  FEAT126B  188
                     0664000365 +                 GE     B6,B4,BUL2  IF NR OF WDS TO BURST .LE. 7                FEAT126B  189
                               66640              SB6    B4          LIMIT BURST TO 7 WORDS                      FEAT126B  190
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    21
                                                                      BUL 
  
           365  6130000100               BUL2     SB3    72-6-2      NR OF COLS TO BURST - 2                     FEAT126B  191
                          20506                   LX5    CHAR                                                    FEAT126B  192
                                                                                                                 FCC1328X  191
           366  5120000000 X             BUL3     SA2    AMODE                                                   FEAT126B  194
                          0660000407 +            PL     B6,BUL15    IF NULL LINE, NOTHING TO BURST...           FCC1328X  192
           367  6150777722                        SB5    -1R                                                     FEAT126B  195
                          5110001177 +            SA1    =1H                                                     FEAT126B  196
           370  43066                             MX0    -CHAR                                                   FCC1328X  193
                     0302000374 +                 ZR     X2,BUL10    IF UNCOMPRESSED INPUT                       FEAT126B  197
                               20273              LX2    -1                                                      FEAT126B  198
           371  0322000373 +                      PL     X2,BUL5     IF *UPDATE* FORMAT                          FEAT126B  199
                                                                                                                 FEAT126B  200
                                                                                                                 FEAT126B  201
                                        **        UNPACK *MODIFY* FORMAT COMPRESSED CARD.                        FEAT126B  202
                                                                                                                 FEAT126B  203
                                                                                                                 FEAT126B  204
                          0400400371 +            TRUBL                                                          FEAT126B  206
           372  0400000407 +                      EQ     BUL15       CONTINUE..                                  FEAT126B  207
                                                                                                                 FEAT126B  208
                                         MDFY     SKIP                                                           FEAT126B  209
                                        **        UNPACK MODIFY COMPRESSED CARD.                                 FEAT126B  210
                                                                                                                 FEAT126B  211
                                                  MX3    59                                                      FEAT126B  212
                                                  SB4    -B1                                                     FEAT126B  213
                                                  SB5    1R                                                      FEAT126B  214
                                                  EQ     RNS4C                                                   FEAT126B  215
                                         RNS4A    LX5    CHAR        EXTRACT NEXT CHARACTER                      FEAT126B  216
                                                  BX3    -X0*X5                                                  FEAT126B  217
                                                  ZR     X3,RNS6     IF 0000 (END OF LINE)                       FEAT126B  218
                                         RNS4B    SX3    X3+B4                                                   FEAT126B  219
                                                  SA6    A6+B1       STORE CHARACTER                             FEAT126B  220
                                                  PL     X3,RNS4B    IF FILLING BLANKS, LOOP                     FEAT126B  221
                                                  NZ     B7,RNS4C    IF SOURCE WORD NOT EXHAUSTED                FEAT126B  222
                                                  SA5    A5+B1                                                   FEAT126B  223
                                                  SB7    B3                                                      FEAT126B  224
                                         RNS4C    LX5    CHAR                                                    FEAT126B  225
                                                  SB6    X6                                                      FEAT126B  226
                                                  BX6    -X0*X5      EXTRACT NEXT CHARACTER                      FEAT126B  227
                                                  LX4    X1,B6                                                   FEAT126B  228
                                                  SB7    B7-B1                                                   FEAT126B  229
                                                  BX7    X7+X4                                                   FEAT126B  230
                                                  NZ     X6,RNS4B    IF NOT 00                                   FEAT126B  231
                                                  SB7    B7-B1                                                   FEAT126B  232
                                                  SX6    B5                                                      FEAT126B  233
                                                  PL     B7,RNS4A    IF SOURCE WORD NOT EXHAUSTED                FEAT126B  234
                                                  SA5    A5+B1                                                   FEAT126B  235
                                                  SB7    B3-B1                                                   FEAT126B  236
                                                  EQ     RNS4A                                                   FEAT126B  237
                                         MDFY     ENDIF                                                          FEAT126B  238
                                                                                                                 FEAT126B  239
                                        **        UNPACK *UPDATE* FORMAT COMPRESSED CARD.                        FEAT126B  240
                                                                                                                 FEAT126B  241
           373                           BUL5     BSS    0           ENTRY..                                     FEAT126B  242
                                         #UPD     SKIP                                                           FEAT126B  243
                                                                                                                 FEAT126B  244
                                                  SB5    1R          LOOP CONSTANT                               FEAT126B  245
                                                  SB7    4-1                                                     FEAT126B  246
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    22
                                                                      BUL 
  
                                                  SB3    10          LOOP CONSTANT                               FEAT126B  247
                                                  =B6    1           ANY OLD NON-ZERO                            FEAT126B  248
                                                  EQ     BUL7                                                    FEAT126B  249
                                                                                                                 FEAT126B  250
                                         BUL6     PX6    B2          PACK BLANK COUNT                            FEAT126B  251
                                                  =B2    1                                                       FEAT126B  252
                                                  =A6    A6+1                                                    FEAT126B  253
                                         BUL7     LX5    CHAR                                                    FEAT126B  254
                                                  =B7    B7-1                                                    FEAT126B  255
                                                  BX6    -X0*X5      EXTRACT NEXT CHARACTER                      FEAT126B  256
                                                  NZ     B7,BUL8     IF SOURCE WORD NOT EXHAUSTED                FEAT126B  257
                                                  =A5    A5+1                                                    FEAT126B  258
                                                  SB7    B3                                                      FEAT126B  259
                                         BUL8     ZR     B6,BUL9     IF LAST WAS 00, THEN 00XX CODE              FEAT126B  260
                                                  SB6    X6                                                      FEAT126B  261
                                                  ZR     B6,BUL7     IF 00 CHARACTER, GO GET XX                  FEAT126B  262
                                                  NE     B6,B5,BUL6     NOT 55 GO STORE IT                       FEAT126B  263
                                                  =B2    B2+1                                                    FEAT126B  264
                                                  EQ     BUL7                                                    FEAT126B  265
                                                                                                                 FEAT126B  266
                                         BUL9     SB6    X6                                                      FEAT126B  267
                                                  SB2    B2+B6                                                   FEAT126B  268
                                                  GT1    B6,BUL7     IF 0002-0077 CODE, BLANKS COUNTED           FEAT126B  269
                                                  SB2    B2-B6                                                   FEAT126B  270
                                                  BX6    0                                                       FEAT126B  271
                                                  EQ1    B6,BUL6     IF 0001 CODE, GO STORE 00 CHARACTER         FEAT126B  272
                                        *                          ELSE 0000 CODE, END-OF-LINE                   FEAT126B  273
                                                  SB3    -3                                                      FEAT126B  274
                                                  EQ     BUL15       CONTINUE..                                  FEAT126B  275
                                         #UPD     ENDIF                                                          FEAT126B  276
           373  0400400373 +                      TRUBL                                                          FEAT126B  277
                                                                                                                 FEAT126B  278
                                                                                                                 FEAT126B  279
                                        **        BURST CARD IMAGE INTO STRING BUFFER, PACKING BLANK COUNT.      FEAT126B  280
                                        *                (LOOP STOLEN BODILY FROM *SCANNER* IN FTNX VER 4.0)     FEAT126B  281
                                                                                                                 FEAT126B  282
           374  66221                    BUL10    SB2    B2+B1       INCREMENT BLANK COUNT                       FEAT126B  283
                     15650                        BX6    -X0*X5      EXTRACT NEXT CHAR                           FEAT126B  284
                          63465                   SB4    X6+B5                                                   FEAT126B  285
                               20306              LX3    CHAR                                                    FEAT126B  286
           375  67331                             SB3    B3-B1       DECREMENT COLUMN COUNTER                    FEAT126B  287
                     20506                        LX5    CHAR                                                    FEAT126B  288
                          0440000377 +            ZR     B4,BUL11    IF BLANK                                    FEAT126B  289
           376  27626                             PX6    X6,B2       PACK CHARACTER AND BLANK COUNT              FEAT126B  290
                     6120776000                   SB2    -1777B      BLANK COUNT BIAS                            FCC0844    11
                               54661              =A6    A6+1                                                    FCC0844    12
                                                                                                                 FEAT126B  293
           377  0323000374 +             BUL11    PL     X3,BUL10    IF WORD NOT EXHAUSTED                       FEAT126B  294
                          6140000012              SB4    10                                                      FEAT126B  295
                                                                                                                 FEAT126B  296
                                        **        FETCH NEXT WORD AND CHECK FOR END OF THE IMAGE.                FEAT126B  297
                                                                                                                 FEAT126B  298
           400  66661                    BUL12    SB6    B6+B1       DECREMENT WORD COUNT                        FEAT126B  299
                     54551                        SA5    A5+B1                                                   FEAT126B  300
                          0660000403 +            PL     B6,BUL14    IF LAST WORD OF IMAGE                       FEAT126B  301
                                                                                                                 FEAT126B  302
                                        **        CHECK FOR A WORD FULL OF BLANKS, AND IF SO, AVOID LOOPING      FEAT126B  303
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    23
                                                                      BUL 
  
                                        *                THRU IT.                                                FEAT126B  304
                                                                                                                 FEAT126B  305
           401  37215                    BUL13    IX2    X1-X5                                                   FEAT126B  306
                     20506                        LX5    CHAR                                                    FEAT126B  307
                          0312000374 +            NZ     X2,BUL10    IF NOT ALL-BLANK WORD                       FEAT126B  308
           402  66224                             SB2    B2+B4                                                   FEAT126B  309
                     67334                        SB3    B3-B4                                                   FEAT126B  310
                          0400000400 +            EQ     BUL12       CONTINUE..  WITH NEXT WORD                  FEAT126B  311
                                                                                                                 FEAT126B  312
                                                                                                                 FEAT126B  313
                                        *         HERE BECAUSE (B6) SAY THAT THERE ARE NO MORE SOURCE IMAGE      FCC1328X  194
                                        *           WORDS TO BURST.  CONDITIONS ARE AS FOLLOWS --                FCC1328X  195
                                        *                                                                        FCC1328X  196
                                        *           IN BATCH --                                                  FCC1328X  197
                                        *             1. IF (X5) ARE .ZR. (I.E. (X5) IS FULL WORD EOL MARK),     FCC1328X  198
                                        *                  THEN BURSTING IS DONE.                                FCC1328X  199
                                        *             2. IF (X5) ARE .NZ. (I.E. (X5) CONTAIN COLS 71-80),        FCC1328X  200
                                        *                  THEN NEED TO GO BACK AND BURST COLS 71-72.            FCC1328X  201
                                        *                                                                        FCC1328X  202
                                        *           IN SEQ --                                                    FCC1328X  203
                                        *             BECAUSE SEQ MODE INPUT CAN CONTAIN 80 COLUMNS OF SOURCE    FCC1328X  204
                                        *               IMAGE AND BECAUSE 80 COLUMNS IS EXACTLY 8 WORDS,         FCC1328X  205
                                        *               BURSTING IS DONE.                                        FCC1328X  206
                                                                                                                 FCC1328X  207
           403  5120000000 X             BUL14    SA2    =XCO.MODE                                               FCC1328X  208
                          0706000407 +            GT     B6,B0,BUL15 IF JUST FINISHED BURSTING COLS 71-72        FCC1328X  209
           404  0332000407 +                      MI     X2,BUL15    IF SEQ MODE                                 FCC1328X  210
                          0305000407 +            ZR     X5,BUL15    IF NOTHING MORE TO BURST                    FCC1328X  211
           405  43301                             MX3    1                                                       FCC1328X  212
                     43214                        MX2    2*CHAR                                                  FEAT126B  324
                          20506                   LX5    CHAR                                                    FEAT126B  325
                               16332              BX3    -X2+X3      FORCE STOP AT COL 73                        FEAT126B  326
           406  0400000374 +                      EQ     BUL10       CONTINUE..  (TO COUNT DOWN THE LAST TWO)    FEAT126B  327
                                                                                                                 FEAT126B  328
                                        *         ALL BURSTERS REJOIN HERE.                                      FEAT126B  329
                                                                                                                 FEAT126B  330
           407  6133000003               BUL15    SB3    B3+3                                                    FEAT126B  331
                          43066                   MX0    -CHAR                                                   FCC0813   152
                               43773              MX7    -1                                                      FEAT126B  332
           410  66223                             SB2    B2+B3                                                   FEAT126B  333
                     27627                        PX6    X7,B2       (X6) = 12/-(LBC-1777B+2000B),48/-1          FCC1328X  213
                          74761                   SX7    A6+B1                                                   FEAT126B  335
                               54661              SA6    A6+B1       MARK END-OF-STMT                            FEAT126B  336
           411  5170000000 X                      SA7    LASTCOL                                                 FEAT126B  337
                          0400000353 +            EQ     EXIT.                                                   FEAT126B  338
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    24
                                                                      CLO 
  
                                         #NL      IFNE   #NL,0                                                   FEAT126B  340
                                        **        CLO - CHECK FOR C/-LIST OPTION.                                FEAT126B  341
                                        *                                                                        FEAT126B  342
                                        *                IF THIS LINE HAD A *C/    * IN COLUMNS 1-6, THEN --     FEAT126B  343
                                        *         1) AT THIS POINT IN TIME THE STRING BUFFER ALREADY CONTAINS A  FEAT126B  344
                                        *         STATEMENT (FROM FWA OF STRING BUFFER THRU (LASTCOL)). THE      FEAT126B  345
                                        *         *C/    * LINE AT (CP.CARD) ET SEQ WILL BE BURST STARTING AT    FEAT155E  176
                                        *         (LASTCOL)+1.  E.G.       A=B                                   FEAT126B  347
                                        *                            C/    LIST,ALL                              FEAT126B  348
                                        *                       WILL BECOME --                                   FEAT126B  349
                                        *         WORD    1   2   3   4   5   6   7   8   9  10  11  12  13      FEAT126B  350
                                        *                 A   =   B  EOS  L   I   S   T   ,   A   L   L  EOS     FEAT126B  351
                                        *                             .                                   .      FEAT126B  352
                                        *                           (CLOA)                            (LASTCOL)  FEAT126B  353
                                        *                       IN THE STRING BUFFER.                            FEAT126B  354
                                        *         2) PACK UP TO 10 CHARACTERS FROM THE STRING BUFFER AND         FEAT126B  355
                                        *         CHECK FOR THE OCCURRENCE OF --                                 FEAT126B  356
                                        *         1) LIST,ALL                                                    FEAT126B  357
                                        *         2) LIST,NONE                                                   FEAT126B  358
                                        *         FOLLOWED BY AN END-OF-LINE MARK.                               FEAT126B  359
                                        *                                                                        FEAT126B  360
                                        *                                                                        FEAT126B  361
                                        *         ENTRY  (CSSTMT)   = .NZ. IF C/ LINE OCCURRED, ELSE .ZR.        FEAT126B  362
                                        *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE  FCC1328X  214
                                        *                               AT (CP.CARD) ET SEQ                      FCC1328X  215
                                        *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK) FCC1328X  216
                                        *                                                                        FEAT126B  363
                                        *                IN BATCH --                                             FEAT126B  364
                                        *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO  FEAT126B  365
                                        *                               BE BURST FROM (CP.CARD).                 FEAT155E  177
                                        *                                                                        FEAT126B  368
                                        *                IN SEQ --                                               FEAT126B  369
                                        *                (X3)      =  CHARACTER POSITION IN WORD. CHARACTER      FEAT126B  370
                                        *                               POSITIONS IN (X3) ARE NUMBERED --        FEAT126B  371
                                        *                               (01 10 09 08 07 06 05 04 03 02).         FEAT126B  372
                                        *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS   FEAT126B  373
                                        *                               (05-00) OF (X5), THEN THE SIGN BIT WILL  FEAT126B  374
                                        *                               BE ON IN THE 4TH CHAR POSITION IN (X3).  FEAT126B  375
                                        *                               (X5) = (05 06 07 08 09 10 01 02 03 04)   FEAT126B  376
                                        *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)  FEAT126B  377
                                        *                (A5,X5)   =  IF A *C/    * LINE DID NOT OCCUR, THE NTH  FEAT126B  378
                                        *                               WORD IN (CP.CARD) WITH THE NON-DIGIT     FEAT155E  179
                                        *                               THAT TERMINATED ASSEMBLY OF LINE NR IN   FEAT155E  180
                                        *                               BITS (05-00); ELSE 1ST CHARACTER AFTER   FEAT155E  181
                                        *                               *C/    * IN BITS (05-00)                 FEAT126B  382
                                        *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)    FCC1328X  217
                                        *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)  FCC1328X  218
                                        *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE      FCC1328X  219
                                        *                                                                        FEAT126B  384
                                        *         EXIT   (CSLIST)  =  1S59 IF C/-LIST,ALL OCCURRED               FEAT126B  385
                                        *                          =   1   IF C/-LIST,NONE OCCURRED              FEAT126B  386
                                        *                          =  +0   IF C/ LINE DID NOT OCCUR OR IF LEGAL  FEAT126B  387
                                        *                                    C/-LIST DIRECTIVE DID NOT OCCUR     FEAT126B  388
                                        *                (CSSTMT)  =  0    NO *C/    * LINE PENDING              FEAT126B  389
                                        *                (X0)      =  MX0 -CHAR                                  FEAT126B  390
                                        *                (X3)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT   FEAT126B  391
                                        *                (A5,X5)   =  SAME AS ON ENTRY IF NO C/-LINE OCCURRED    FEAT126B  392
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    25
                                                                      CLO 
  
                                        *                          =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT   FEAT126B  393
                                        *                (X5)      =  0 IF C/-LIST DIRECTIVE OCCURRED OR IF      FEAT126B  394
                                        *                                 *RNS* ENCOUNTERED AN END-OF-SECTION    FEAT126B  395
                                        *                (B2)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT   FCC1328X  220
                                        *                (B3)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT   FEAT126B  396
                                        *                (B6)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT   FEAT126B  397
                                        *                (B7)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT   FEAT126B  398
                                        *                                                                        FEAT126B  399
                                        *         USES   ALL BUT A0                                              FEAT126B  400
                                        *                                                                        FEAT126B  401
                                        *         CALLS  BUL,RNS                                                 FEAT126B  402
                                                                                                                 FEAT126B  403
                                                                                                                 FEAT126B  404
           412  0400400412 +             CLO      SUBR               ** ENTRY/EXIT **                            FEAT126B  405
           413  5110000000 X             CLO1     SA1    CSSTMT                                                  FEAT126B  406
                          0301000412 +            ZR     X1,EXIT.    IF NOT A C/ LINE                            FEAT126B  407
                                                                                                                 FEAT126B  408
                                        *         INITIALIZE FOR BURSTING C/ LINE.                               FEAT126B  409
                                                                                                                 FEAT126B  410
           414  5110000000 X                      SA1    LASTCOL                                                 FEAT126B  411
                          53210                   SA2    X1                                                      FEAT126B  412
                               10711              BX7    X1                                                      FEAT126B  413
           415  22602                             LX6    X2                                                      FEAT126B  414
                     5170000440 +                 SA7    CLOA        SAVE (LASTCOL)                              FEAT126B  415
                               54620              SA6    A2          PRESTORE (A6)                               FEAT126B  416
           416  6120776000                        SB2    -1777B                                                  FCC0844    14
                          0100000353 +            RJ     BUL         BURST THE C/ LINE                           FEAT126B  418
                                                                                                                 FEAT126B  419
                                        *         INITIALIZE TO PACK UP C/ LINE.                                 FEAT126B  420
                                                                                                                 FEAT126B  421
           417  5110000000 X                      SA1    CSLIST                                                  FEAT126B  422
                          5120000440 +            SA2    CLOA                                                    FEAT126B  423
           420  5130000000 X                      SA3    LASTCOL                                                 FEAT126B  424
                          10622                   BX6    X2                                                      FEAT126B  425
                               53221              SA2    X2+B1                                                   FEAT126B  426
           421  54630                             SA6    A3          RESTORE (LASTCOL)                           FEAT126B  427
                     6160000011                   SB6    9                                                       FEAT126B  428
                               13666              BX6    X6-X6       (X6) = PACKING REGISTER                     FEAT126B  429
           422  7170000001                        SX7    1                                                       FEAT126B  430
                          5160000000 X            SA6    CSSTMT      SET TO *NO C/-LINE PENDING*                 FEAT126B  431
                                                                                                                 FEAT126B  432
                                        *         PACK UP TO 10 CHARACTERS FROM STRING BUFFER TO X6.             FEAT126B  433
                                                                                                                 FEAT126B  434
           423  0332000426 +             CLO2     MI     X2,CLO3     IF EOL SENTINEL                             FEAT126B  435
                          7222000000              SX2    X2+                                                     FEAT126B  436
           424  20606                             LX6    6                                                       FEAT126B  437
                     6166777776                   SB6    B6-1                                                    FEAT126B  438
                               12662              BX6    X6+X2                                                   FEAT126B  439
           425  5022000001                        SA2    A2+1                                                    FEAT126B  440
                          0660000423 +            PL     B6,CLO2     IF STILL ROOM IN PACKING REGISTER           FEAT126B  441
                                                                                                                 FEAT126B  442
                                        *         CHECK FOR LEGAL LIST DIRECTIVE.                                FEAT126B  443
                                                                                                                 FEAT126B  444
           426  5130001205 +             CLO3     SA3    =R.LIST,ALL.                                            FEAT126B  445
                          5140001206 +            SA4    =R.LIST,NONE.                                           FEAT126B  446
           427  13563                             BX5    X6-X3                                                   FEAT126B  447
                     0305000436 +                 ZR     X5,CLO4     IF *LIST,ALL*                               FEAT126B  448
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    26
                                                                      CLO 
  
                               13564              BX5    X6-X4                                                   FEAT126B  449
           430  0305000437 +                      ZR     X5,CLO5     IF *LIST,NONE*                              FEAT126B  450
                                                                                                                 FEAT126B  451
                                        *         HERE IF COMMENT LINE.                                          FEAT126B  452
                                                                                                                 FEAT126B  453
                          5110000000 X            SA1    AMODE                                                   FEAT126B  454
           431  5120000000 X                      SA2    =XL.CARD                                                FCC1328X  221
                          5150000000 X            SA5    CP.CARD     RESTORE (A5,X5)                             FEAT155E  182
           432  0301000433 +                      ZR     X1,CLO3A    IF NOT COMPRESSED INPUT                     FEAT126B  457
                          5150000002 X            SA5    CP.CARD+2                                               FEAT155E  183
                                                                                                                 FEAT126B  459
           433  14222                    CLO3A    BX2    -X2                                                     FCC1328X  222
                     63621                        SB6    X2+B1       (B6) = -NR OF USEABLE WORDS IN SOURCE LINE  FCC1328X  223
                          54760                   SA7    A6          SET TO *C/-LINE PENDING(TO BE LISTED ONLY)* FEAT126B  461
           434  0100001014 +                      RJ     RNS         PROCESS C/-COMMENT LINE                     FEAT126B  462
           435  0400000413 +                      EQ     CLO1        CHECK FOR C/-LIST DIRECTIVE                 FEAT126B  463
                                                                                                                 FEAT126B  464
                                        *         HERE IF *LIST,ALL* OCCURRED.                                   FEAT126B  465
                                                                                                                 FEAT126B  466
           436  43701                    CLO4     MX7    1                                                       FEAT126B  467
                     54710                        SA7    A1          SET TO *LIST,ALL OCCURRED*                  FEAT126B  468
                          0400000412 +            EQ     EXIT.                                                   FEAT126B  469
                                                                                                                 FEAT126B  470
                                        *         HERE IF *LIST,NONE* OCCURRED.                                  FEAT126B  471
                                                                                                                 FEAT126B  472
           437  54710                    CLO5     SA7    A1          SET TO *LIST,NONE OCCURRED*                 FEAT126B  473
                     0400000412 +                 EQ     EXIT.                                                   FEAT126B  474
                                                                                                                 FEAT126B  475
                                                                                                                 FEAT126B  476
           440                     1     CLOA     BSS    1           SAVED (LASTCOL)                             FEAT126B  477
                                         #NL      ELSE                                                           FEAT126B  478
                                         CLO      SUBR                                                           FEAT126B  479
                                                  EQ     EXIT.                                                   FEAT126B  480
                                         #NL      ENDIF                                                          FEAT126B  481
  
  
  
  
                                        **        CNT - CHECK FOR CONTINUATION.                                  FEAT126B  483
                                        *                                                                        FEAT126B  484
                                        *                                                                        FEAT126B  485
                                        *         ENTRY  (CCNT)    =  NR OF CONTINUATION LINES                   FEAT126B  486
                                        *                (CO.MODE) =  .ZR. IF NORMAL BATCH FORMAT INPUT          FEAT126B  487
                                        *                          =  .NZ. IF SEQ FORMAT INPUT                   FEAT126B  488
                                        *                (LASTCOL) =  LWA OF STATEMENT IN STRING BUFFER          FEAT126B  489
                                        *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE  FCC1328X  224
                                        *                               AT (CP.CARD) ET SEQ                      FCC1328X  225
                                        *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK) FCC1328X  226
                                        *                                                                        FEAT126B  491
                                        *                IN BATCH --                                             FEAT126B  492
                                        *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO  FEAT126B  493
                                        *                               BE BURST FROM (CP.CARD).                 FEAT155E  184
                                        *                                                                        FEAT126B  496
                                        *                IN SEQ --                                               FEAT126B  497
                                        *                (X3)      =  CHARACTER POSITION IN WORD. CHARACTER      FEAT126B  498
                                        *                               POSITIONS IN (X3) ARE NUMBERED --        FEAT126B  499
                                        *                               (01 10 09 08 07 06 05 04 03 02).         FEAT126B  500
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    27
                                                                      CNT 
  
                                        *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS   FEAT126B  501
                                        *                               (05-00) OF (X5), THEN THE SIGN BIT WILL  FEAT126B  502
                                        *                               BE ON IN THE 4TH CHAR POSITION IN (X3).  FEAT126B  503
                                        *                               (X5) = (05 06 07 08 09 10 01 02 03 04)   FEAT126B  504
                                        *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)  FEAT126B  505
                                        *                (A5,X5)   =  ADDR + CONTENTS OF NTH WORD OF LINE IMAGE  FEAT126B  506
                                        *                               IN (CP.CARD), COL TO CHECK FOR CONTINUA- FEAT155E  186
                                        *                               TION IN BITS (05-00)                     FEAT126B  508
                                        *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)    FCC1328X  227
                                        *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)  FCC1328X  228
                                        *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE      FCC1328X  229
                                        *                (B7)      =  CHAR THAT TERMINATED ASSEMBLY OF LINE NR   FEAT126B  511
                                        *                                                                        FEAT126B  512
                                        *         EXIT   (X1)      =  .ZR. IF THIS LINE IS A CONTINUATION LINE,  FCC1328X  230
                                        *                                    ELSE .NZ.                           FEAT126B  515
                                        *                (A5,X5)   =  AS ON ENTRY, POSSIBLY ADJUSTED IN SEQ      FEAT126B  516
                                        *                (B6)      =  AS ON ENTRY, POSSIBLY ADJUSTED IN SEQ      FCC1328X  231
                                        *                (A6)+1    =  FWA TO STORE IN STRING BUFFER              FEAT126B  517
                                        *                                                                        FEAT126B  518
                                        *                IN SEQ MODE, THE FOLLOWING REGISTERS ARE GLOBAL AND     FCC1328X  232
                                        *                  SIGNIFICANT ON EXIT --                                FCC1328X  233
                                        *                (X3),(A5,X5),(B2),(B3)                                  FCC1328X  234
                                        *                                                                        FCC1328X  235
                                        *         USES   ALL BUT A0                                              FEAT126B  519
                                        *                                                                        FEAT126B  520
                                        *         CALLS  ALLOC                                                   FCC1328X  236
                                                                                                                 FEAT126B  522
                                                                                                                 FEAT126B  523
           441  0400400441 +             CNT      SUBR               ** ENTRY/EXIT **                            FEAT126B  524
           442  5120000000 X                      SA2    CO.MODE                                                 FEAT126B  525
                          5140000000 X            SA4    LASTCOL                                                 FEAT126B  526
           443  43066                             MX0    -CHAR                                                   FCC1328X  237
                     0302000451 +                 ZR     X2,CNT2     IF BATCH FORMAT                             FEAT126B  527
                                                                                                                 FEAT126B  528
                                        *         CHECK FOR CONTINUATION (SEQ FORMAT)                            FEAT126B  529
                                                                                                                 FEAT126B  530
                               15650              BX6    -X0*X5                                                  FEAT126B  531
           444  7216777732                        SX1    X6-1R+                                                  FEAT126B  532
                          0311000441 +            NZ     X1,EXIT.    IF NOT PLUS(+)                              FEAT126B  533
           445  20306                             LX3    CHAR                                                    FEAT126B  534
                     67331                        SB3    B3-B1                                                   FEAT126B  535
                          10633                   BX6    X3                                                      FEAT126B  536
           446  7173000003                        SX7    B3+3                                                    FEAT126B  537
                          5160000465 +            SA6    CNTA        SAVE (X3)                                   FEAT126B  538
           447  0323000454 +                      PL     X3,CNT3     IF WORD NOT EXHAUSTED                       FEAT126B  539
                          54551                   SA5    A5+B1                                                   FEAT126B  540
                               66661              SB6    B6+B1       DECREMENT WORD COUNT                        FEAT126B  541
           450  0400000454 +                      EQ     CNT3                                                    FEAT126B  542
                                                                                                                 FEAT126B  543
                                        *         CHECK FOR CONTINUATION (BATCH FORMAT).                         FEAT126B  544
                                                                                                                 FEAT126B  545
           451  7170000103               CNT2     SX7    66+1                                                    FEAT126B  546
                          5130000206 +            SA3    AFSC                                                    FEAT126B  547
           452  20544                             LX5    6*CHAR                                                  FEAT126B  548
                     15250                        BX2    -X0*X5      ISOLATE COL 6                               FEAT126B  549
                          63320                   SB3    X2                                                      FEAT126B  550
                               20530              LX5    -6*CHAR     RESTORE (X5)                                FEAT126B  551
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    28
                                                                      CNT 
  
           453  23133                             AX1    X3,B3                                                   FEAT126B  552
                     20173                        LX1    -1                                                      FEAT126B  553
                          0331000441 +            MI     X1,EXIT.    IF ZERO OR BLANK IN COL SIX -- INITIAL LINE FEAT126B  554
                                                                                                                 FEAT126B  555
                                        *         PREPARE FOR CONTINUATION LINE.                                 FEAT126B  556
                                                                                                                 FEAT126B  557
           454  5110000000 X             CNT3     SA1    CCNT                                                    FEAT126B  558
                          5120000000 X            SA2    =XT.SB                                                  FCC0813   153
           455  73611                             =X6    X1+1        (CCNT) = (CCNT)+1                           FEAT126B  560
                     37342                        IX3    X4-X2                                                   FCC0813   154
                          5120000000 X            SA2    =XT=SB                                                  FCC0813   155
           456  37323                             IX3    X2-X3                                                   FCC0813   156
                     37737                        IX7    X3-X7                                                   FEAT126B  562
                          54610                   SA6    A1                                                      FEAT126B  563
           457  0327000461 +                      PL     X7,CNT4     IF ENOUGH ROOM FOR NEXT LINE                FCC0813   157
                          5110000000 X            ALLOC  T.SB,2*74   GET ENOUGH ROOM FOR 2 MORE FULL LINES.      FCC2272    12
                                                                                                                 FCC1328X  238
           461  53240                    CNT4     SA2    X4          FETCH PREVIOUS *EOS* MARK                   FEAT126B  565
                     55321                        =A3    A2-1                                                    FEAT126B  566
                          26122                   UX1    B2,X2                                                   FEAT126B  567
                               10633              BX6    X3                                                      FEAT126B  568
           462  67221                             SB2    B2-B1                                                   FEAT126B  569
                     55621                        SA6    A2-B1       PRESTORE (A6)                               FEAT126B  570
                          5110000000 X            SA1    CO.MODE                                                 FEAT126B  571
           463  0301000441 +                      ZR     X1,EXIT.    IF BATCH FORMAT                             FEAT126B  572
                          20506                   LX5    CHAR                                                    FEAT126B  573
                               76100              =X1    0                                                       FEAT126B  574
           464  5130000465 +                      SA3    CNTA        RESTORE (X3)                                FEAT126B  575
                          0400000441 +            EQ     EXIT.                                                   FEAT126B  576
                                                                                                                 FEAT126B  577
                                                                                                                 FEAT126B  590
           465                     1     CNTA     BSS    1           SAVED (X3)                                  FEAT126B  591
  
  
  
  
                                        **        CSK -  CHECK STATEMENT KEYWORD.                                MAIN     1090
                                        *         CHECKS SUB-KEYWORDS FOR TYPE AND IMPLICIT.  IF THE NEXT        FEAT126C  124
                                        *         KEYWORD IS ONE OF A SPECIFIED SET, CSK WILL CHECK THE SPELLING MAIN     1092
                                        *         AND ADJUST THE *SB*, AND THEN EXIT TO THE APPROPRIATE          MAIN     1093
                                        *         PROCESSOR.  IF ANY CHECK FAILS, EXIT IS TO THE ERROR EXIT      MAIN     1094
                                        *         ADDRESS.                                                       MAIN     1095
                                        *                                                                        MAIN     1096
                                        *         ENTRY  (B4) _ *SB*.                                            MAIN     1097
                                        *                (B5) = LENGTH OF TABLE TO SEARCH.                       MAIN     1098
                                        *                (B7) = ERROR EXIT ADDRESS.                              MAIN     1099
                                        *                (A1) _ TABLE OF ALLOWABLE CONTINUATIONS.                MAIN     1100
                                        *                (X1) = DITTO...                                         MAIN     1101
                                        *                                                                        MAIN     1102
                                        *         EXIT   TO INDICATED KEYWORD PROCESSOR, IF FOUND, OR            MAIN     1103
                                        *                TO (B7) IF NOT IN TABLE.                                MAIN     1104
                                        *                (B4) _ *SB* PAST NEW KEY (IF ANY).                      MAIN     1105
                                        *                                                                        MAIN     1106
                                        *         CALLS  ASK                                                     MAIN     1107
                                                                                                                 MAIN     1108
                                                                                                                 MAIN     1109
           466  56340                    CSK      SA3    B4          FETCH (*SB*)                                MAIN     1110
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    29
                                                                      CSK 
  
                     43030                        MX0    4*CHAR                                                  MAIN     1111
                          11603                   BX6    X0*X3       1ST 4 CHARS                                 MAIN     1112
           467  0303000000 X                      ZR     X3,E.TYH    IF -EOS-                                    MAIN     1113
                                                                                                                 MAIN     1114
           470  53510                    CSK2     SA5    X1          FETCH LGR ENTRY                             MAIN     1115
                     54111                        SA1    A1+B1                                                   MAIN     1116
                          37256                   IX2    X5-X6                                                   MAIN     1117
                               67551              SB5    B5-B1                                                   MAIN     1118
           471  21244                             AX2    -4*CHAR                                                 MAIN     1119
                     0302000473 +                 ZR     X2,CSK4     IF HIT                                      MAIN     1120
           472  0650000470 +                      PL     B5,CSK2     IF MORE ENTRIES IN TABLE                    MAIN     1121
                          0277000000              JP     B7          REPORT FAILURE..                            MAIN     1122
                                                                                                                 MAIN     1123
           473  6150000000 X             CSK4     SB5    LGR                                                     MAIN     1124
                          65555                   SB5    A5-B5       (B5) = JUMPTO ORDINAL                       MAIN     1125
           474  0100000246 +                      RJ     ASK         ADJUST STATEMENT FOR NEW KEY                MAIN     1126
           475  0313000000 X                      NZ     X3,E.MK     IF MIS-SPELLED                              MAIN     1127
                          0233000000              JP     B3          EXIT TO PROCESSOR..                         MAIN     1128
  
  
  
  
                                        **        CST -  CLASSIFY STATEMENT.                                     MAIN     1130
                                        *                                                                        MAIN     1131
                                        *         ENTRY  *STRING BUFFER* IS NORMALIZED. (EXCEPT IF *FORMAT(*)    MAIN     1132
                                        *                (B4) _ START OF *SB*                                    MAIN     1133
                                        *                (FIRSTV) = FIRST VARIABLE IN STATEMENT.                 MAIN     1134
                                        *                (ZLEQUAL)= 0 IF NO ZERO LEVEL *=* IN STATEMENT.         MAIN     1135
                                        *                (ZLCOMMA)= 0 IF NO ZERO LEVEL *,* IN STATEMENT.         MAIN     1136
                                        *                                                                        MAIN     1137
                                        *         EXIT   (B5) < 0  UNRECOGNIZABLE STATEMENT.                     MAIN     1138
                                        *                (B5) \ 0                                                MAIN     1139
                                        *                     = ORDINAL OF STATEMENT IN *JUMP TO* TABLE.         MAIN     1140
                                        *                (X5) = *JUMP TO* WORD.                                  MAIN     1141
                                        *                ("SB.BOS") = ADDRESS OF BEGINNING OF STATEMENT.         MAIN     1142
                                        *                                                                        MAIN     1143
                                        *         USES   A1,A2,A3,A4,A5,A6  X0  B2,B4,B5,B7                      MAIN     1144
                                                                                                                 MAIN     1145
                                                                                                                 MAIN     1146
                                        **        EXIT HERE IF STATEMENT IS A NON-KEYWORD TYPE.                  MAIN     1147
                                        *                (B5) = /JUMPTO/ ORDINAL                                 MAIN     1148
                                                                                                                 MAIN     1149
           476  5155000000 X             CSTJX    SA5    B5+LGR                                                  MAIN     1150
                                                                                                                 MAIN     1151
           477  0400400477 +             CST      SUBR   0                                                       MAIN     1152
           500  5140000000 X                      SA4    FIRSTV                                                  FCC0828     4
                          56140                   SA1    B4                                                      FCC0828     5
                               67501              =B5    -1          SET FLAG FOR ERROR EXIT                     FCC0828     6
           501  13014                             BX0    X1-X4                                                   FCC0828     7
                     21022                        AX0    18                                                      FCC0828     8
                          0310000477 +            NZ     X0,CSTX     ERROR, KEYWORD NOT FIRST ITEM               FCC0828     9
           502  13666                             BX6    0                                                       MAIN     1153
                     76740                        SX7    B4                                                      MAIN     1154
                          5110000000 X            SA1    ZLEQUAL                                                 MAIN     1155
           503  66500                             SB5    B0          INDICATE NON-FORTRAN STATEMENT.             MAIN     1156
                     43014                        MX0    2*CHAR                                                  MAIN     1157
                          5160000000 X            SA6    ZLE         CLEAR LOCAL INDICATOR TO PARSER.            MAIN     1158
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    30
                                                                      CST 
  
           504  5170000000 X                      SA7    "SB.BOS"    SET LOCAL BEGINNING OF STATEMENT            MAIN     1159
                          11204                   BX2    X0*X4                                                   MAIN     1161
                               20214              LX2    2*CHAR                                                  MAIN     1162
           505  7232777360                        SX3    X2-2RDO                                                 MAIN     1163
                          0313000512 +            NZ     X3,CST10    IF 1ST 2 CHARACTERS NOT *DO*                MAIN     1164
                                                                                                                 MAIN     1165
                                        **        CHECK FOR POSSIBLE *DO* STATEMENT.                             MAIN     1166
                                                                                                                 MAIN     1167
           506  5120000000 X                      SA2    ZLCOMMA                                                 MAIN     1168
                          6120000006              SB2    CHAR                                                    MAIN     1169
           507  0301000525 +                      ZR     X1,CST20    IF NO ZERO LEVEL *=*.                       MAIN     1170
                          37321                   IX3    X2-X1       (ZLCOMMA)-(ZLEQUAL)                         MAIN     1171
           510  0333000525 +                      MI     X3,CST20    NO ZLCOMMA AFTER ZLEQUAL                    MAIN     1172
                                        **        STATEMENT IS A *DO* STATEMENT.                                 MAIN     1173
                                        *         EXIT   (B4) _ *=* SIGN OF *DO*                                 MAIN     1174
                                                                                                                 MAIN     1175
                          6150000000 X            SB5    DO.                                                     MAIN     1176
           511  0400000476 +                      EQ     CSTJX       EXIT.. (*DO* STATEMENT)                     MAIN     1177
                                                                                                                 MAIN     1178
                                                                                                                 MAIN     1179
           512  7232776671               CST10    SX3    X2-2RIF                                                 MAIN     1180
                          0313000525 +            NZ     X3,CST20    IF 1ST 2 CHARACTERS NOT *IF*                MAIN     1181
           513  56240                             SA2    B4                                                      MAIN     1182
                     43022                        MX0    3*CHAR                                                  MAIN     1183
                          20006                   LX0    CHAR                                                    MAIN     1184
                               15220              BX2    -X0*X2                                                  MAIN     1185
           514  0312000525 +                      NZ     X2,CST20    IF MORE THAN JUST *IF*                      MAIN     1186
                                                                                                                 MAIN     1187
                                        **        CHECK FOR POSSIBLE *IF* STATEMENT.                             MAIN     1188
                                                                                                                 MAIN     1189
                          56441                   =A4    B4+1                                                    MAIN     1190
           515  7224777767                        SX2    X4-O.(                                                  MAIN     1191
                          0312000525 +            NZ     X2,CST20    IF NOT *IF(*                                MAIN     1192
           516  5130000000 X                      SA3    ZLPAREN                                                 MAIN     1193
                          0303000525 +            ZR     X3,CST20    IF NOT SET                                  MAIN     1194
           517  5223777776                        SA2    X3-1        DONT ASK                                    MAIN     1195
                          65724                   SB7    A2-B4                                                   MAIN     1196
           520  0670000522 +                      PL     B7,CST15    IF NOT PAST ZLPAREN                         MAIN     1197
                          0311000525 +            NZ     X1,CST20    MUST BE ARRAY OR ASF NAMED IF               MAIN     1198
           521  0400000524 +                      EQ     CST17       MUST BE IF                                  MAIN     1199
           522  53230                    CST15    SA2    X3                                                      MAIN     1200
                     6222777773                   SB2    X2-O.SEP                                                MAIN     1201
           523  0620000525 +                      PL     B2,CST20    IF NOT NUMBER OR VARIABLE .. NOT *IF*.      MAIN     1202
           524  6150000000 X             CST17    SB5    IF.                                                     MAIN     1203
                          0400000476 +            EQ     CSTJX       EXIT.. (*IF* STATEMENT)                     MAIN     1204
                                                                                                                 MAIN     1205
                                        **        HERE IF NOT *DO*, *IF*, MUST BE ASSIGNMENT OR ASF.             MAIN     1206
                                                                                                                 MAIN     1207
           525  0301000537 +             CST20    ZR     X1,CST50    IF NO ZERO LEVEL *=*                        MAIN     1208
                          6150000000 X            =B5    REP.                                                    MAIN     1209
           526  56141                             =A1    B4+1                                                    MAIN     1210
                     7221777774                   SX2    X1-O.VAR                                                MAIN     1211
           527  0312000531 +                      NZ     X2,CST22    IF NAME LESS THAN 8 CHARACTERS              MAIN     1212
                          0100000000 X            RJ     =XTLV       TRUNCATE NAME                               MAIN     1213
           530  76740                             SX7    B4                                                      FCC1274    10
                     5170000000 X                 SA7    "SB.BOS"    RESET LOCAL BEGINNING OF STATEMENT          FCC1274    11
                               56141              =A1    B4+1                                                    MAIN     1214
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    31
                                                                      CST 
  
           531  7221777767               CST22    SX2    X1-O.(                                                  MAIN     1215
                          0312000476 +            NZ     X2,CSTJX    IF NOT *VARIABLE(* (*REPLACEMENT*)          MAIN     1216
           532  5120000000 X                      SA2    FIRSTV                                                  MAIN     1217
                          10622                   BX6    X2                                                      MAIN     1218
           533  5110000000 X                      SCAN   TS.SYM,SSY                                              MAIN     1219
           534  6150000000 X                      =B5    ASF.                                                    MAIN     1220
                          0770000476 +            MI     B7,CSTJX    IF *NIT* MUST BE *ASF*                      MAIN     1221
           535  20263                             IFBIT  X2,-ARY,CSTJX     IF NOT ARRAY, MUST BE *ASF*           MAIN     1222
           536  6150000000 X                      =B5    REP.                                                    MAIN     1223
                          0400000476 +            EQ     CSTJX       EXIT..  (REPLACEMENT)                       MAIN     1224
                                                                                                                 MAIN     1225
                                        **        CHECK IF STATEMENT IS DEFINED IN *KEYWORD* TABLE.              MAIN     1226
                                                                                                                 MAIN     1227
           537  5110000000 X             CST50    SA1    FIRSTV                                                  MAIN     1228
                          43030                   MX0    4*CHAR                                                  MAIN     1229
           540  6150000000 X                      SB5    LG.LEN                                                  MAIN     1230
                          77701                   =X7    -1          INDICATE IN *LGR* TABLE.                    MAIN     1231
                               11601              BX6    X0*X1       1ST *4* CHARACTERS.                         MAIN     1232
                                                                                                                 MAIN     1233
                                        **        SCAN *KEYWORD* TABLE.                                          MAIN     1234
                                                                                                                 MAIN     1235
           541  5155777776 X             CST55    SA5    B5+LGR-1                                                MAIN     1236
                          67551                   SB5    B5-B1                                                   MAIN     1237
                               37265              IX2    X6-X5                                                   MAIN     1238
           542  21244                             AX2    -4*CHAR                                                 MAIN     1239
                     0302000477 +                 ZR     X2,CSTX     IF HIT                                      MAIN     1240
           543  0650000541 +                      PL     B5,CST55    IF NOT FINISHED.                            MAIN     1241
                                                                                                                 MAIN     1242
                                        **        NOT IN *KEYWORD* TABLE, NON-FORTRAN STATEMENT.                 MAIN     1243
                                                                                                                 MAIN     1244
                          0400000477 +            EQ     CSTX        EXIT..                                      MAIN     1245
                                                                                                                 MAIN     1246
  
  
  
  
                                        **        CUS -  CHECK UPCOMING STATEMENT.                               MAIN     1248
                                        *                                                                        MAIN     1249
                                        *                ROUTINE IS ENTERED FROM THE MASTER LOOP (*CPM*)         MAIN     1250
                                        *         WHENEVER A STATEMENT WHICH MAY GENERATE CODE IS ENCOUNTERED.   MAIN     1251
                                        *                                                                        MAIN     1252
                                        *         OUTPUT OBJECT TIME REPRIEVE TURPLE, WHEN NECESSARY             FEAT155G  327
                                        *                                                                        FCC1328X  239
                                        *         IF (HANGER) " 0 -- JUMP TO IT TO COMPLETE ANY HANGING PARTS OF MAIN     1253
                                        *                PREVIOUS STATEMENT.                                     MAIN     1254
                                        *         PROCESS STATEMENT LABEL OF THIS STATEMENT, IF ALLOWED.         MAIN     1255
                                        *                                                                        MAIN     1256
                                        *                NOTE THAT A "CONTINUE" WITHOUT A LABEL CAN NEVER CAUSE  MAIN     1257
                                        *         ANY CODE TO BE GENERATED, AND IS THEREFORE IGNORED.            MAIN     1258
                                        *                                                                        MAIN     1259
                                        *         ENTRY  (X5) = ("SB.KEY") SHIFTED TO P.SGEN IN BIT 59.          MAIN     1260
                                        *                ("SB.STN") =  COLUMNS 1-5 OF STATEMENT.                 MAIN     1261
                                        *                                                                        MAIN     1262
                                        *         EXIT   INTO *CPM*.                                             MAIN     1263
                                        *                                                                        MAIN     1264
                                        *         USES   ALL BUT  A0.                                            MAIN     1265
                                        *                                                                        FCC1328X  240
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    32
                                                                      CUS 
  
                                        *         CALLS  ALLOC,CSB,E.NP,GSN,HANGER,SBIT                          FCC1328X  241
                                                                                                                 MAIN     1267
                                                                                                                 MAIN     1268
           544                           CUS      BSS    0           ENTRY...                                    MAIN     1269
           544  5110000000 X                      SA1    SB.STNR                                                 F66FCC    709
                          20573                   SBIT   X5,SLBL/SGEN                                            MAIN     1273
           545  5130000000 X                      SA3    SB.STNL                                                 MAIN     1275
                          10611                   BX6    X1                                                      MAIN     1276
                                                                                                                 MAIN     1277
                                        **        GET STATEMENT NUMBER, IF ALLOWED.                              MAIN     1278
                                                                                                                 MAIN     1279
           546  0325000551 +                      PL     X5,CUS3     IF LABEL NOT ALLOWED                        MAIN     1280
                          22703                   LX7    X3                                                      MAIN     1281
           547  5160000000 X                      SA6    STN                                                     MAIN     1282
                          5170000000 X            SA7    FILL.                                                   MAIN     1283
           550  0316000000 X                      NZ     X6,GSN      IF LABEL IS PRESENT                         MAIN     1284
                                                                                                                 MAIN     1290
                                                                                                                 MAIN     1291
                                        **        IF COMPILATION OF THE PRECEDING STATEMENT WAS DEPENDENT UPON   MAIN     1292
                                        *         THE NEXT STATEMENT (I.E., THIS ONE), IT HAS BEEN LEFT HANGING. MAIN     1293
                                        *         IT IS NOW TIME TO FINISH IT UP --                              MAIN     1294
                                        *                WE JUMP TO WHOMSOEVER HATH PUT HIS ADDRESS IN (HANGER). MAIN     1295
                                        *                HE DOES HIS THING AND RETURNS TO *CUS.RET*.             MAIN     1296
                                        *         NOTE THAT ONLY STATEMENTS WHICH MAKE PARSED FILE ENTRIES MAY   MAIN     1297
                                        *                BE *HUNG*.                                              MAIN     1298
                                                                                                                 MAIN     1299
           551                           GSNX     BSS    0           ** RETURN FROM *GSN*                        MAIN     1300
           551  5130000000 X             CUS3     SA3    HANGER                                                  MAIN     1301
                          0303000554 +            ZR     X3,CUS.RET  IF NO *HANGING* COMPILATION                 MAIN     1302
           552  13666                             =X6                                                            MAIN     1303
                     63730                        SB7    X3                                                      MAIN     1304
                          54630                   SA6    A3          CLEAR *HANGER* FLAG                         MAIN     1305
           553  0277000000                        JP     B7          COMPILE ANY HANGING PIECES                  MAIN     1306
                                                                                                                 MAIN     1307
                                                                                                                 MAIN     1308
                                        **        CUS.RET -  RETURN TO *CUS* FROM *HANGER* PROCESSING.           MAIN     1309
                                        *                PREPARE TO EXIT --                                      MAIN     1310
                                        *         IF THIS IS THE END OF A BASIC BLOCK (SEQUENCE BREAK), THEN WE  MAIN     1311
                                        *                FLUSH THE PARSED FILE BY CALLING *ARITH*.               MAIN     1312
                                        *         IF THERE WAS A LABEL, COMPILE THE BSS TO DEFINE IT,            MAIN     1313
                                        *                DEACTIVATE ANY DELAYED STORE, AND CLEAR REGISTER        MAIN     1314
                                        *                ASSOCIATES.                                             MAIN     1315
                                        *         CHECK (NOPATH) AND ISSUE APPROPRIATE WARNING, AND SET (FLOW)   MAIN     1316
                                        *                TO INDICATE DEAD CODE.                                  MAIN     1317
                                                                                                                 MAIN     1318
           554                           CUS.RET  BSS    0           ** RETURN FROM *HANGERS*.                   MAIN     1319
           554  5120000000 X                      SA2    CSNTAG                                                  MAIN     1320
                          0100000606 +            RJ     CSB         CHECK FOR SEQUENCE BREAK                    MAIN     1321
           555  5110000000 X                      SA1    =XCO.ER                                                 F66FCC    710
                          0301000572 +            ZR     X1,CUS5     IF OTR REPRIEVE CODE NOT REQUIRED           F66FCC    711
                                                                                                                 F66FCC    712
           556  5110000000 X                      ALLOC  TT.PAR,L.TURP                                           F66FCC    713
           560  5110000000 X                      SA1    REFLIN                                                  F66FCC    714
                          5120000000 X            SA2    SB.STNL                                                 F66FCC    715
           561  5130000000 X                      SA3    =XOTROP                                                 F66FCC    716
                          20114                   LX1    P.TRC-CHAR  POSITION (REFLIN) FOR TURPLE                F66FCC    717
                               10722              BX7    X2          (SB.STNL)                                   F66FCC    718
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    33
                                                                      CUS 
  
           562  22601                             LX6    X1                                                      F66FCC    719
                     57671                        =A6    B7-L.TURP+OR.2OP  OPERAND 2 OF TURPLE                   F66FCC    720
                                                                                                                 F66FCC    721
                                         #FID     IFNE   .FID,0                                                  F66FCC    722
                          5010000003              =A1    "SB.KEY"                                                F66FCC    723
           563  6120000000 X                      SB2    ENTRY=                                                  F66FCC    724
                          67202                   SB2    -B2                                                     F66FCC    725
                               63212              SB2    X1+B2                                                   F66FCC    726
           564  0520000565 +                      NZ     B2,CUS4     IF NOT ENTRY STATEMENT                      F66FCC    727
                                                                                                                 F66FCC    728
                          76710                   =X7    1           INDICATE NO LNT ENTRY                       F66FCC    729
           565                           CUS4     BSS                                                            F66FCC    730
                                         #FID     ENDIF                                                          F66FCC    731
                                                                                                                 F66FCC    732
           565  55761                             =A7    A6-OR.2OP+OR.1OP  OPERAND 1                             F66FCC    733
                     10633                        BX6    X3                                                      F66FCC    734
                          55671                   =A6    A7-OR.1OP+OR.OPR  (OTROP) -- OTR (REPRIEVE) OPERATOR    F66FCC    735
                                                                                                                 F66FCC    736
                                         #FID     IFNE   .FID,0                                                  F66FCC    737
           566  5130000000 X                      SA3    =XCO.ID                                                 F66FCC    738
                          0323000572 +            PL     X3,CUS5     IF FID CODE NOT REQUIRED                    F66FCC    739
                                                                                                                 F66FCC    740
           567  5130000000 X                      SA3    =XDOORD                                                 F66FCC    741
                          0303000572 +            ZR     X3,CUS5     IF NOT INSIDE A DO                          F66FCC    742
                                                                                                                 F66FCC    743
           570  5110000000 X                      SA1    =XTS.STN                                                F66FCC    744
                          63230                   SB2    X3          (DOORD)                                     F66FCC    745
                               53312              SA3    X1+B2       GET TAG FOR DO FROM STATEMENT NUMBER TABLE  F66FCC    746
           571  7120000100                        =X2    M.SNEX                                                  F66FCC    747
                          12732                   BX7    X3+X2       INSERT EXT REF FLAG                         F66FCC    748
                               54730              SA7    A3          REPLACE IN STATEMENT NUMBER TABLE           F66FCC    749
                                         #FID     ENDIF                                                          F66FCC    750
                                                                                                                 F66FCC    751
           572                           CUS5     BSS                                                            F66FCC    752
           572  5120000000 X                      SA2    NOPATH                                                  MAIN     1322
                          5140000000 X            SA4    CSNTAG                                                  MAIN     1323
           573  5130000000 X                      SA3    FLOW                                                    MAIN     1324
                          12623                   BX6    X2+X3                                                   MAIN     1325
           574  0304000575 +                      ZR     X4,CUS6     IF NO LABEL PRESENT                         MAIN     1326
                          13666                   BX6    0           CLEAR (FLOW) IF LABEL                       MAIN     1327
           575  5160000000 X             CUS6     SA6    FLOW                                                    MAIN     1328
                          54620                   SA6    A2          RESET (NOPATH)                              MAIN     1329
           576  0306000076 +                      ZR     X6,CUSX     IF NO STATEMENT NUMBER REQUIRED             MAIN     1330
                          5030000003              =A3    "SB.KEY"                                                MAIN     1331
           577  6170000000 X                      SB7    END=                                                    MAIN     1332
                          67707                   SB7    -B7                                                     MAIN     1333
                               63737              SB7    X3+B7                                                   MAIN     1334
           600  6120000000 X                      SB2    ENTRY=                                                  MAIN     1335
                          67202                   SB2    -B2                                                     MAIN     1336
                               63232              SB2    X3+B2                                                   MAIN     1337
           601  0470000076 +                      ZR     B7,CUSX     IF *END* STATEMENT                          MAIN     1338
                          0420000076 +            ZR     B2,CUSX     IF *ENTRY* STATEMENT                        MAIN     1339
           602  0400000000 X                      EQ     E.NP        ** WARN -- NO PATH **  (RETURN .. PSP)      MAIN     1340
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    34
                                                                      CSB 
  
                                        **        CSB -  CHECK SEQUENCE BREAK.                                   MAIN     1342
                                        *                                                                        MAIN     1343
                                        *                DECIDES WHETHER A SEQUENCE BREAK (END OF BASIC BLOCK)   MAIN     1344
                                        *         IS NECESSARY, AND IF SO, CALLS *CAI* TO FLUSH THE CURRENT      FEAT126C  125
                                        *         PARSED FILE.                                                   MAIN     1346
                                        *         IF "SB.KEY" HAS P.SCDS ON, WE WILL BREAK THE SEQUENCE.         MAIN     1347
                                        *                                                                        MAIN     1348
                                        *         ENTRY  (X2) = LABEL FLAG.                                      MAIN     1349
                                        *                     IF " 0 FORCE BREAK, AND COMPILE *BSS*.             MAIN     1350
                                        *                     IF = 0 DO NOT BREAK BECAUSE OF LABEL.              MAIN     1351
                                        *         USES   ALL BUT A0.                                             MAIN     1352
                                                                                                                 MAIN     1353
                                                                                                                 MAIN     1354
                                 226     PAR.TH   EQU    50*L.TURP                                               MAIN     1355
                                                                                                                 MAIN     1356
           603  5110000000 X             CSBX     SA1    TT=PAR                                                  MAIN     1357
                          7120000226              =X2    PAR.TH                                                  MAIN     1358
           604  5130000000 X                      SA3    CURST                                                   MAIN     1359
                          37612                   IX6    X1-X2                                                   MAIN     1360
                               37036              IX0    X3-X6                                                   MAIN     1361
           605  0320000606 +                      PL     X0,CSB      IF THRESHOLD NOT REACHED                    MAIN     1362
                          54630                   SA6    A3          INDICATE NO SQUEEZING PAST HERE             FEAT155G  341
                                                                                                                 MAIN     1364
           606  0400400606 +             CSB      SUBR   -           ENTRY/EXIT ...                              MAIN     1365
           607  5050000003                        =A5    "SB.KEY"                                                MAIN     1366
                          10422                   BX4    X2                                                      MAIN     1367
                               20541              SBIT   X5,SCDS                                                 MAIN     1368
           610  0304000616 +                      ZR     X4,CSB5     IF NEXT NOT LABELED                         FEAT155G  342
                                                                                                                 MAIN     1370
                                        **        EMIT AN *O=BSS* TURPLE FOR THE LABEL.                          MAIN     1371
                                                                                                                 MAIN     1372
                          5110000000 X            ALLOC  TT.PAR,L.TURP                                           MAIN     1373
           612  5110000000 X                      SA1    OPBSS                                                   MAIN     1374
                          10644                   BX6    X4                                                      MAIN     1375
                               57671              =A6    B7-1                                                    MAIN     1376
           613  22701                             LX7    X1                                                      MAIN     1377
                     55661                        =A6    A6-1                                                    MAIN     1378
                          5130000000 X            SA3    TP=DO                                                   MAIN     1379
           614  10622                             BX6    X2                                                      MAIN     1380
                     55761                        =A7    A6-1                                                    MAIN     1381
                          5160000000 X            SA6    CURST       INDICATE NO SQUEEZING PAST HERE             MAIN     1382
           615  0303000617 +                      ZR     X3,CSB6     IF NOT IN A DO-LOOP                         MAIN     1383
                                                                                                                 MAIN     1384
                                        **        FLUSH PARSED FILE WHEN THE STATEMENT REQUIRES IT.              MAIN     1385
                                                                                                                 MAIN     1386
           616  0325000603 +             CSB5     PL     X5,CSBX     IF STATEMENT DOES NOT FORCE FLUSH           MAIN     1387
                                                                                                                 MAIN     1388
           617  0100000000 X             CSB6     RJ     CAI         COMPILE ALL (PARSED) INSTRUCTIONS           MAIN     1389
           620  0400000603 +                      EQ     CSBX        EXIT..                                      MAIN     1390
                                                                                                                 MAIN     1391
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    35
                                                                      LDB 
  
                                        **        LDB - LIST DEFERRED BUFFER.                                    FCC1328X  243
                                        *                                                                        FCC1328X  244
                                        *                                                                        FCC1328X  245
                                        *         EXAMPLE OF DEFERRED LIST BUFFER FORMAT --                      FCC1328X  246
                                        *                                                                        FCC1328X  247
                                        *           FOR THE SOURCE STATEMENT BEGINNING AT LINE 10 --             FCC1328X  248
                                        *             COL 1     7                                                FCC1328X  249
                                        *                       DIMENSIONS(1),                                   FCC1328X  250
                                        *                      , OF(2),                                          FCC1328X  251
                                        *                      , THE(3),MIND(4)                                  FCC1328X  252
                                        *                                                                        FCC1328X  253
                                        *           *T.DLBUF* WOULD BE --                                        FCC1328X  254
                                        *                                                                        FCC1328X  255
                                        *            WORD  0  1         2         3         4         5          FCC1328X  256
                                        *                  6  .......10.................DIMENSIONS(1),0000000000 FCC1328X  257
                                        *                                                                        FCC1328X  258
                                        *            WORD  6  7         8         9        10        11          FCC1328X  259
                                        *                  6  .......11................,.OF(2),.......0000000000 FCC1328X  260
                                        *                                                                        FCC1328X  261
                                        *            WORD 12 13        14        15        16        17          FCC1328X  262
                                        *                  7  .......12................,.THE(3),MIND(4)......... FCC1328X  263
                                        *                                                                        FCC1328X  264
                                        *            WORD    18                                                  FCC1328X  265
                                        *                     0000000000                                         FCC1328X  266
                                        *                                                                        FCC1328X  267
                                        *           WHERE .=BLANK(55B),0=EOL BITS(00B)                           FCC1328X  268
                                        *                                                                        FCC1328X  269
                                        *         ENTRY  NONE                                                    FCC1328X  270
                                        *                                                                        FCC1328X  271
                                        *         EXIT   (HDELAY)  = .ZR.                                        FCC1328X  272
                                        *                                                                        FCC1328X  273
                                        *         USES   ALL BUT A0,A5,X5  (INCLUDES ALL CALLS)                  FCC1328X  274
                                        *                                                                        FCC1328X  275
                                        *         CALLS  LSL,SHRINK                                              FCC1328X  276
                                                                                                                 FCC1328X  277
                                                                                                                 FCC1328X  278
           621  0400400621 +             LDB      SUBR   =           ** ENTRY/EXIT **                            FCC1328X  279
           622  5110000000 X                      SA1    =XT.DLBUF                                               FCC1328X  280
                          5120000000 X            SA2    =XT=DLBUF                                               FCC1328X  281
           623  6241000000                        SB4    X1+                                                     FCC1328X  282
                          7262000000              SX6    X2+                                                     FCC1328X  283
                                                                                                                 FCC1328X  284
           624  0306000630 +             LDB2     ZR     X6,LDB3     IF FINISHED DUMPING *T.DLBUF*               FCC1328X  285
                                                                                                                 FCC1328X  286
                                         .T       IFNE   TEST,0                                                  FCC1328X  287
                                                  MI     X6,*+4S15   IF SOMETHING TERRIBLE HAS HAPPENED...       FCC1328X  288
                                         .T       ENDIF                                                          FCC1328X  289
                                                                                                                 FCC1328X  290
                          7114000001              SX1    B4+1                                                    FCC1328X  291
           625  0100000654 +                      RJ     LSL         LIST SOURCE LINE                            FCC1328X  292
           626  56140                             SA1    B4          (X1) = NR OF WRDS IN SAVED LINE JUST LISTED FCC1328X  293
                     5120000000 X                 SA2    =XT=DLBUF   (X2) = LEN OF REMAINING SAVED LINES         FCC1328X  294
                               37621              IX6    X2-X1       (X6) = TOT LEN - LEN OF LAST LINE LISTED    FCC1328X  295
           627  63414                             SB4    B4+X1       (B4) = ADDR OF LEN WD FOR NEXT LINE TO LIST FCC1328X  296
                     54620                        SA6    A2                                                      FCC1328X  297
                          0400000624 +            EQ     LDB2                                                    FCC1328X  298
                                                                                                                 FCC1328X  299
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    36
                                                                      LDB 
  
           630  13666                    LDB3     BX6    X6-X6                                                   FCC1328X  300
                     5160000000 X                 SA6    =XHDELAY    SET TO *NOT HEADER DELAY*                   FCC1328X  301
           631  5160000000 X                      SHRINK T=DLBUF,X6                                              FCC1328X  302
                          0400000621 +            EQ     EXIT.                                                   FCC1328X  303
  
  
  
  
                                        **        LSL -  LIST SOURCE LINE.                                       MAIN     1393
                                        *                                                                        MAIN     1394
                                        *         IF INPUT IS UNCOMPRESSED, WILL PRINT FROM WHEREVER THE CARD    MAIN     1395
                                        *         CURRENTLY RESIDES.                                             MAIN     1396
                                        *                                                                        MAIN     1397
                                        *         ENTRY  (X1)+2  =  FWA AREA TO FIND CARD.                       FEAT155E  188
                                        *                (AMODE) = INPUT FORMAT.                                 MAIN     1400
                                        *                LINE IMAGE IS IN (AMODE) FORMAT.                        MAIN     1401
                                        *                                                                        MAIN     1402
                                        *         EXIT   (B6) = LWA + 1 THAT WAS LISTED.                         MAIN     1403
                                        *                                                                        MAIN     1404
                                        *         USES   ALL BUT  A0,A5  B4  X0,X5.                              MAIN     1405
                                                                                                                 MAIN     1406
                                                                                                                 MAIN     1407
           632  5130000000 X             LSL50    SA3    =XCP.PW                                                 FEAT155E  190
                          5140001177 +            SA4    =10H                                                    FEAT126A  848
           633  0303000652 +                      ZR     X3,LSL55    IF NOT PW MODE                              FEAT126A  849
                          53210                   SA2    X1                                                      FEAT155E  203
                               73111              =X1    X1+1                                                    FEAT155E  204
           634  10622                             BX6    X2                                                      FEAT155E  205
                     53610                        SA6    X1                                                      FEAT155E  206
                          63210                   SB2    X1          (B2) = FWA OF LINE                          FEAT126A  852
                               66300              SB3    B0                                                      FEAT126A  853
           635  66621                             SB6    B2+B1                                                   FEAT126A  854
           636  56223                    LSL51    SA2    B2+B3       (X2) = NEXT WORD OF LINE                    FEAT126A  855
                     66331                        SB3    B3+B1                                                   FEAT126A  856
                          37624                   IX6    X2-X4                                                   FEAT126AA  20
           637  0306000636 +                      ZR     X6,LSL51    IF BLANK WORD                               FEAT126AA  21
                          0302000641 +            ZR     X2,LSL52    IF EOL                                      FEAT126A  859
           640  64621                             SB6    A2+B1                                                   FEAT126A  860
                     0400000636 +                 EQ     LSL51                                                   FEAT126A  861
                                                                                                                 FEAT126A  862
           641  67762                    LSL52    SB7    B6-B2       LENGTH - 1                                  FEAT126A  863
                     43600                        MX6    0                                                       FEAT126A  864
                          53617                   SA6    X1+B7                                                   FEAT126A  865
                               76271              SX2    B7+B1                                                   FEAT126A  866
           642  63531                    LSL53    SB5    X3+B1       PAGE WIDTH IN WORDS + 1                     FEAT126A  867
                     67375                        SB3    B7-B5                                                   FEAT126A  868
                          0730000650 +            LT     B3,LSL54    IF LINE LENGTH .LE. PAGE WIDTH              FEAT126A  869
           643  53232                             SA2    B2+X3                                                   FEAT126A  870
                     21336                        AX3    30          REMAINDER OF PAGE WIDTH MOD 10 IN BITS      FEAT126A  871
                          63530                   SB5    X3                                                      FEAT126A  872
                               67221              SB2    B2-B1                                                   FEAT126A  873
           644  67661                             SB6    B6-B1                                                   FEAT126A  874
                     0100000327 +                 RJ     BLL         BREAK LONG LINE                             FEAT126A  875
           645  5130000000 X                      SA3    =XCP.PW                                                 CP139FC   196
                          63210                   SB2    X1          FWA OF LINE                                 FEAT126A  877
           646  6272777776                        SB7    X2-1        LENGTH - 1 OF LINE                          FEAT126A  878
                          63617                   SB6    X1+B7       LWA OF LINE                                 FEAT126A  879
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    37
                                                                      LSL 
  
           647  0316000642 +                      NZ     X6,LSL53    IF STILL POSSIBLE LONG LINE                 FEAT126A  880
                                                                                                                 FEAT126A  881
           650  0100001117 +             LSL54    PLINE  X1,X2                                                   FEAT126A  882
           651  0400000654 +                      EQ     LSLX        EXIT                                        FEAT126A  883
                                                                                                                 FEAT126A  884
           652  22604                    LSL55    LX6    X4                                                      FEAT126A  885
                     53611                        =A6    X1+1                                                    FEAT155E  207
                          76200                   PLINE  X1                                                      FEAT155E  208
                                                                                                                 MAIN     1413
           654  0400400654 +             LSL      SUBR               ENTRY/EXIT...                               MAIN     1414
           655  5130000000 X                      SA3    AMODE                                                   MAIN     1416
                          0303000632 +            ZR     X3,LSL50    IF UNCOMPRESSED INPUT                       MAIN     1418
                                                                                                                 MAIN     1419
                                         #UPD     SKIP                                                           FEAT126B  592
                                                  SA4    X1          FETCH FIRST WORD OF CRUNCHED IMAGE          MAIN     1420
                                                  LX3    -1                                                      MAIN     1421
                                                  SB7    10                                                      MAIN     1422
                                                  BX6    X2                                                      MAIN     1423
                                                  SA7    LINEBUF                                                 MAIN     1424
                                                  MX7    -CHAR                                                   MAIN     1425
                                                  =A6    A7+1                                                    MAIN     1426
                                                  PL     X3,LSL40    IF *UPDATE* FORMAT                          MAIN     1427
                                                  TRUBL                                                          MAIN     1428
                                                                                                                 MAIN     1429
                                         LSL40    SB2    B0                                                      MAIN     1430
                                                  SB5    10*CHAR     INITIALIZE OUTPUT CHARACTER COUNT           MAIN     1431
                                                  =B3    1                                                       MAIN     1432
                                                  EQ     LSL4C                                                   MAIN     1433
                                                                                                                 MAIN     1434
                                         LSL4A    BX6    X6+X7                                                   MAIN     1435
                                                  SB5    B5-CHAR                                                 MAIN     1436
                                                  =B2    B2-1                                                    MAIN     1437
                                                  LX7    CHAR                                                    MAIN     1438
                                                  GT     B5,LSL4B    IF OUTPUT WORD NOT FULL                     MAIN     1439
                                                  =A6    A6+1                                                    MAIN     1440
                                                  SB5    10*CHAR                                                 MAIN     1441
                                         LSL4B    PL     B2,LSL4A    LOOP IF FILLING BLANKS                      MAIN     1442
                                                                                                                 MAIN     1443
                                         LSL4C    LX4    CHAR                                                    MAIN     1444
                                                  =B7    B7-1                                                    MAIN     1445
                                                  BX7    -X0*X4      EXTRACT NEXT CHARACTER                      MAIN     1446
                                                  NZ     B7,LSL4D    IF SOURCE WORD NOT EXHAUSTED                MAIN     1447
                                                  =A4    A4+1                                                    MAIN     1448
                                                  SB7    10                                                      MAIN     1449
                                         LSL4D    ZR     B3,LSL4E    IF 00XX CODE                                MAIN     1450
                                                  SB3    X7                                                      MAIN     1451
                                                  NZ     B3,LSL4A    IF NOT 00 CHARACTER, GO STORE IT            MAIN     1452
                                                  EQ     LSL4C       GO GET XX                                   MAIN     1453
                                                                                                                 MAIN     1454
                                         LSL4E    SB2    X7                                                      MAIN     1455
                                                  SX7    1R                                                      MAIN     1456
                                                  SB3    X7                                                      MAIN     1457
                                                  GT1    B2,LSL4A    IF 0002-0077 CODE, GO STORE BLANKS          MAIN     1458
                                                  =B2    B2-1                                                    MAIN     1459
                                                  BX7    0                                                       MAIN     1460
                                                  ZR     B2,LSL4A    IF 0001 CODE, GO STORE 00 CHARACTER         MAIN     1461
                                                  LX6    B5                ELSE,    0000 CODE -- END OF LINE     MAIN     1462
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    38
                                                                      LSL 
  
                                                  =A6    A6+1                                                    MAIN     1463
                                                  =A7    A6+1        INSURE END-OF-LINE                          MAIN     1464
                                                  SX1    LINEBUF-1                                               FEAT126B  593
                                                  EQ     LSL60                                                   FEAT126B  594
                                         #UPD     ENDIF                                                          FEAT126B  595
           656  0400400656 +                      TRUBL                                                          FEAT126B  596
  
  
  
  
                                        **         LSS - LEFT SHIFT STRING                                       FEAT126A  888
                                        *                                                                        FEAT126A  889
                                        *                SHIFTS A STRING OF GIVEN LENGTH UP TO 10 CHARACTERS     FEAT126A  890
                                        *                LEFT END AROUND.                                        FEAT126A  891
                                        *                                                                        FEAT126A  892
                                        *         ENTRY  (X1) = MASK OF SHIFT COUNT                              FEAT126A  893
                                        *                (X2) = FIRST WORD OF STRING                             FEAT126A  894
                                        *                (X3) = WORD OF BLANKS                                   FEAT126AA  22
                                        *                (A2) = FWA OF STRING                                    FEAT126A  895
                                        *                (B5) = SHIFT COUNT                                      FEAT126A  896
                                        *                (B6) = LWA OF STRING - 1                                FEAT126A  897
                                        *         EXIT   (X6) = NEW FIRST WORD OF STRING                         FEAT126A  898
                                        *                STRING SHIFTED.                                         FEAT126A  899
                                        *                                                                        FEAT126A  900
                                        *         USES   B3, B7                                                  FEAT126A  901
                                        *                X1, X2, X3, X4, X6                                      FEAT126A  902
                                        *                A4, A6                                                  FEAT126A  903
                                        *         PRESERVES          A0, A2, A5, A7, X5, X7, B2, B4, B5, B6      FEAT126A  904
                                        *                                                                        FEAT126A  905
           657  10622                    LSS20    BX6    X2                                                      FEAT126A  906
                                                                                                                 FEAT126A  907
           660  0400400660 +             LSS      SUBR               ENTRY/EXIT                                  FEAT126A  908
           661  0450000657 +                      ZR     B5,LSS20    IF NO SHIFT NEEDED                          FEAT126A  909
                          64720                   SB7    A2                                                      FEAT126A  910
                               66360              SB3    B6                                                      FEAT126A  911
           662  11313                             BX3    X1*X3                                                   FEAT126AA  23
           663  56430                    LSS10    SA4    B3                                                      FEAT126A  913
                     11214                        BX2    X1*X4                                                   FEAT126A  914
                          15441                   BX4    -X1*X4                                                  FEAT126A  915
                               12634              BX6    X3+X4                                                   FEAT126A  916
           664  22656                             LX6    B5                                                      FEAT126A  917
                     54640                        SA6    A4                                                      FEAT126A  918
                          67331                   SB3    B3-B1                                                   FEAT126A  919
                               10322              BX3    X2                                                      FEAT126A  920
           665  0637000663 +                      GE     B3,B7,LSS10 IF SHIFT NOT FINISHED                       FEAT126A  921
                          0400000660 +            EQ     EXIT.                                                   FEAT126A  922
                                                                                                                 FEAT126A  923
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    39
                                                                      PLO 
  
                                         #NL      IFNE   #NL,0                                                   FEAT126B  598
                                        **        PLO - PROCESS C/-LIST OPTIONS.                                 FEAT126B  599
                                        *                                                                        FEAT126B  600
                                        *                THIS ROUTINE ACTS AS THE EXECUTIVE FOR C/-LIST          FEAT126B  601
                                        *         DIRECTIVE PROCESSING. IT ASSURES THAT C/-LIST DIRECTIVES ARE   FEAT126B  602
                                        *         RELATIVELY INVISIBLE TO THE REST OF *AFS* BY CYCLING OFF ALL   FEAT126B  603
                                        *         PENDING C/-LIST DIRECTIVES AND SETTING THE APPROPRIATE LISTING FEAT126B  604
                                        *         CONTROL FLAGS. UPON EXIT FROM *PLO*, YOU ARE ASSURRED THAT THE FEAT126B  605
                                        *         NEXT LINE PENDING IS NOT A C/-LIST DIRECTIVE.                  FEAT126B  606
                                        *                                                                        FEAT126B  607
                                        *                                                                        FEAT126B  608
                                        *         ENTRY  (CSLIST)  =  1S59 IF C/-LIST,ALL OCCURRED               FEAT126B  609
                                        *                          =    1  IF C/-LIST,NONE OCCURRED              FEAT126B  610
                                        *                          =   +0  IF C/-LIST DIRECTIVE DID NOT OCCUR    FEAT126B  611
                                        *                (CSSTMT)  =  .NZ. IF *RNS* DETECTED C/-LINE AS POSSIBLY FEAT126B  612
                                        *                                    1ST LINE OF PROG UNIT, ELSE .ZR.    FEAT126B  613
                                        *                (HDELAY)  =  .NZ. IF IN *HEADER DELAY* MODE             FCC1328X  304
                                        *                                  (I.E. SAVING ALL LINES IN AN ATTEMPT  FCC1328X  305
                                        *                                  TO GET PROGRAM UNIT NAME FOR TITLE    FCC1328X  306
                                        *                                  LINE), ELSE .ZR.                      FCC1328X  307
                                        *                (NOLIST)  =  1S59 IF C/-LIST,ALL ACTIVE                 FEAT126B  614
                                        *                          =   +0  IF C/-LIST,NONE ACTIVE                FEAT126B  615
                                        *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE  FCC1328X  308
                                        *                               AT (CP.CARD) ET SEQ                      FCC1328X  309
                                        *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK) FCC1328X  310
                                        *                                                                        FEAT126B  616
                                        *                IN BATCH --                                             FEAT126B  617
                                        *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO  FEAT126B  618
                                        *                               BE BURST FROM (CP.CARD).                 FEAT155E  209
                                        *                                                                        FEAT126B  621
                                        *                IN SEQ --                                               FEAT126B  622
                                        *                (X3)      =  CHARACTER POSITION IN WORD.  ACTER         FEAT126B  623
                                        *                               POSITIONS IN (X3) ARE NUMBERED --        FEAT126B  624
                                        *                               (01 10 09 08 07 06 05 04 03 02).         FEAT126B  625
                                        *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS   FEAT126B  626
                                        *                               (05-00) OF (X5), THEN THE SIGN BIT WILL  FEAT126B  627
                                        *                               BE ON IN THE 4TH CHAR POSITION IN (X3).  FEAT126B  628
                                        *                               (X5) = (05 06 07 08 09 10 01 02 03 04)   FEAT126B  629
                                        *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)  FEAT126B  630
                                        *                (A5,X5)   =  IF A *C/    * LINE DID NOT OCCUR, THE NTH  FEAT126B  631
                                        *                               WORD IN (CP.CARD) WITH THE NON-DIGIT     FEAT155E  211
                                        *                               THAT TERMINATED ASSEMBLY OF LINE NR IN   FEAT155E  212
                                        *                               BITS (05-00); ELSE 1ST CHARACTER AFTER   FEAT155E  213
                                        *                               *C/    * IN BITS (05-00)                 FEAT126B  635
                                        *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)    FCC1328X  311
                                        *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)  FCC1328X  312
                                        *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE      FCC1328X  313
                                        *                                                                        FEAT126B  640
                                        *         EXIT   (X0)      =  MX0 -CHAR                                  FEAT126B  641
                                        *                                                                        FCC1328X  314
                                        *                IF NO PENDING C/-LIST DIRECTIVE, THE FOLLOWING          FCC1328X  315
                                        *                  REGISTERS ARE AS ON ENTRY; ELSE THEY ARE AS SET BY    FCC1328X  316
                                        *                  *RNS* -- (X3),(A5,X5),(B2),(B3),(B6)                  FCC1328X  317
                                        *                                                                        FEAT126B  643
                                        *         USES   ALL                                                     FEAT126B  644
                                        *                                                                        FEAT126B  645
                                        *         CALLS  CLO,CNT,FATAL,LDB,RNC,RNS                               FCC1328X  318
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    40
                                                                      PLO 
  
                                                                                                                 FEAT126B  647
                                                                                                                 FEAT126B  648
           666  0400400666 +             PLO      SUBR               ** ENTRY/EXIT **                            FEAT126B  649
           667  5110000000 X             PLO2     SA1    CSLIST                                                  FEAT126B  650
                          5120000000 X            SA2    NOLIST                                                  FEAT126B  651
           670  5140000000 X                      SA4    CSSTMT                                                  FEAT126B  652
                          43600                   MX6    0                                                       FEAT126B  653
                               12714              BX7    X1+X4                                                   FEAT126B  654
           671  43066                             MX0    -CHAR                                                   FEAT126B  655
                     0307000666 +                 ZR     X7,EXIT.    IF C/-LIST DIRECTIVE DID NOT OCCUR          FEAT126B  657
           672  0314000715 +                      NZ     X4,PLO7     IF POSSIBLY 1ST LINE OF PROG UNT IS C/-LIST FEAT126B  659
                          21173                   AX1    59          (X1) = +0 IF C/-LIST,NONE IS NEW MODE       FEAT126B  660
                                        *                                 = -0 IF C/-LIST,ALL IS NEW MODE        FEAT126B  661
                               21273              AX2    59          (X2) = +0 IF C/-LIST,NONE IS CURRENT MODE   FEAT126B  662
                                        *                                 = -0 IF C/-LIST,ALL IS CURRENT MODE    FEAT126B  663
           673  13712                             BX7    X1-X2       (X7) = +0 IF NEW MODE.EQ.CURRENT MODE       FEAT126B  664
                                        *                                 = -0 IF NEW MODE.NE.CURRENT MODE       FEAT126B  665
                                                                                                                 FEAT126BC   5
                                         .T       IFNE   TEST,0                                                  FEAT126BC   6
                                                  SA4    =XCO.SNAP                                               FEAT126BC   7
                                                  LX4    1RU                                                     FEAT126BC   8
                                                  MI     X4,PLO5     IF (SNAP=U), IGNORE C/-LIST LINES           FEAT126BC   9
                                         .T       ENDIF                                                          FEAT126BC  10
                                                                                                                 FEAT126BC  11
                     0337000676 +                 MI     X7,PLO3     IF NEW MODE .NE. CURRENT MODE               FEAT126B  666
                                                                                                                 FEAT126B  667
                                        *         HERE IF NEW MODE .EQ. CURRENT MODE.                            FEAT126B  668
                                                                                                                 FEAT126B  669
           674  0100000727 +                      RJ     PLR         PROCESS LISTING REQUEST (C/-LINE)           FEAT126B  670
           675  0400000710 +                      EQ     PLO6                                                    FEAT126B  671
                                                                                                                 FEAT126B  672
           676  0331000705 +             PLO3     MI     X1,PLO5     IF NEW MODE IS *LIST,ALL*                   FEAT126B  673
                                                                                                                 FEAT126B  674
                                        *         HERE IF C/-LIST,NONE OCCURRED.                                 FEAT126B  675
                                                                                                                 FEAT126B  676
                          5130000000 X            SA3    CARDS                                                   FEAT126B  677
           677  7233777776                        SX3    X3-1                                                    FEAT126B  678
                          0313000701 +            NZ     X3,PLO4     IF THIS IS NOT LINE 1 OF PROG UNIT          FEAT126B  679
           700  5160000000 X                      SA6    NOLIST      SET TO *LIST,NONE* STATUS                   FEAT126B  680
                                                                                                                 FEAT126B  681
           701  0100000621 +             PLO4     RJ     LDB         LIST DEFERRED BUFFER(ONLY IF BEFORE HEADER) FCC1328X  319
           702  0100000727 +                      RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,NONE LINE) FCC1328X  320
           703  43600                             MX6    0                                                       FEAT126B  683
                     5160000000 X                 SA6    NOLIST      SET TO *LIST,NONE* STATUS                   FEAT126B  684
           704  5160000000 X                      SA6    LOP=O       SET TO *DO NOT LIST OBJECT CODE*            FEAT126B  685
                          0400000710 +            EQ     PLO6                                                    FEAT126B  686
                                                                                                                 FEAT126B  687
                                        *         HERE IF C/-LIST,ALL OCCURRED.                                  FEAT126B  688
                                                                                                                 FEAT126B  689
           705  5110000000 X             PLO5     SA1    MLOP=O                                                  FEAT126B  690
                          43601                   MX6    1                                                       FEAT126B  691
                               54620              SA6    A2          SET TO *LIST,ALL* STATUS                    FEAT126B  692
           706  11616                             BX6    X1*X6                                                   FEAT126B  693
                     5160000000 X                 SA6    LOP=O       SET TO *LIST OBJECT CODE* IF *OL* ON        FEAT126B  694
           707  0100000727 +                      RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,ALL LINE)  FEAT126B  695
                                                                                                                 FEAT126B  696
                                        *         REQUEST NEXT LINE AND CHECK FOR C/-LIST OPTION.                FEAT126B  697
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    41
                                                                      PLO 
  
                                                                                                                 FEAT126B  698
           710  13666                    PLO6     BX6    X6-X6                                                   FCC1328X  321
                     46000                        NO                                                             FCC1328X  322
                          5160000000 X            SA6    =XCSLIST    CLEAR TO *NO C/-LIST LINE PENDING*          FCC1328X  323
           711  0100000770 +                      RJ     RNC         READ NEXT CARD                              FCC1328X  324
           712  13555                             BX5    0                                                       FEAT126B  701
                     67607                        SB6    -B7         (B6) = -NR OF USEABLE WORDS IN SOURCE LINE  FCC1328X  325
                          0311000721 +            NZ     X1,PLO8     IF END OF SECTION ENCOUNTERED               FEAT126B  702
           713  56540                             SA5    B4                                                      FEAT155E  217
                     0100001014 +                 RJ     RNS         READ NEXT STATEMENT                         FEAT126B  704
           714  0305000721 +                      ZR     X5,PLO8     IF END OF SECTION ENCOUNTERED               FEAT126B  705
                                                                                                                 FEAT126B  706
           715  0100000412 +             PLO7     RJ     CLO         CHECK FOR C/-LIST OPTION                    FEAT126B  707
           716  0305000721 +                      ZR     X5,PLO8     IF (1) A C/-LINE FOLLOWED BY EITHER ANOTHER FEAT126B  708
                                        *                              C/-LINE OR AN END OF SECTION, OR          FEAT126B  709
                                        *                              (2) POSSIBLY 1ST LINE OF PROG UNIT IS     FEAT126B  710
                                        *                              C/-LIST DIRECTIVE                         FEAT126B  711
                          0100000441 +            RJ     CNT         CHECK FOR CONTINUATION                      FEAT126B  712
           717  0311000721 +                      NZ     X1,PLO8     IF THIS IS NOT A CONTINUATION LINE          FEAT126B  713
                          0100000727 +            RJ     PLR         PROCESS LISTING REQUEST (CONT LINE IN ERR)  FEAT126B  714
           720  0400000710 +                      EQ     PLO6                                                    FEAT126B  715
                                                                                                                 FEAT126B  716
           721  5110000000 X             PLO8     SA1    CCNT                                                    FEAT126B  717
                          0301000724 +            ZR     X1,PLO9     IF DO NOT NEED TO ISSUE CONTINUATN ERR MSG  FCC1328X  326
                                                                                                                 FEAT126B  719
                                        *         HERE IF READY TO ISSUE ERROR MESSAGE.                          FEAT126B  720
                                                                                                                 FEAT126B  721
           722  43600                             MX6    0                                                       FEAT126B  722
                     54610                        SA6    A1          CLEAR CONTINUATION COUNT                    FEAT126B  723
                          6170000000 X            FATAL  E.MLNL      ERR MSG NR - *C/-LIST CANT BE FLWED BY CNT* FEAT126B  724
                                                                                                                 FCC1328X  327
                                        *         INITIALIZE FOR NEXT CYCLE THROUGH *PLO* WITH INITIAL LINE      FCC1328X  328
                                        *         OF STATEMENT FOLLOWING THE *C/-LIST* STATEMENT WE JUST         FCC1328X  329
                                        *         PROCESSED.                                                     FCC1328X  330
                                        *           E.G. FOR                                                     FCC1328X  331
                                        *              C/    LIST,ALL               << JUST PROCESSED THIS, AND  FCC1328X  332
                                        *              C                            <<                           FCC1328X  333
                                        *              C                            << CYCLED OFF THESE, AND     FCC1328X  334
                                        *                   ,BAD CONTINUATION LINE  << ISSUED ERR MSG FOR THIS.  FCC1328X  335
                                        *                    NEW STATEMENT          << READY TO PROCESS WHATEVER FCC1328X  336
                                        *                                              IS HERE                   FCC1328X  337
                                                                                                                 FCC1328X  338
           724  5110000000 X             PLO9     SA1    =XHDELAY                                                FCC1328X  339
                          0311000667 +            NZ     X1,PLO2     IF IN *HEADER DELAY* MODE                   FCC1328X  340
           725  76600                             SHRINK T=DLBUF,0                                               FCC1328X  341
           726  0400000667 +                      EQ     PLO2                                                    FCC1328X  342
                                                                                                                 FCC1328X  343
                                         #NL      ELSE                                                           FEAT126B  726
                                         PLO      SUBR                                                           FEAT126B  727
                                                  EQ     EXIT.                                                   FEAT126B  728
                                         #NL      ENDIF                                                          FEAT126B  729
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    42
                                                                      PLR 
  
                                        **        PLR - PROCESS LISTING REQUEST.                                 FCC1328X  345
                                        *                                                                        FCC1328X  346
                                        *                                                                        FCC1328X  347
                                        *         PERFORMS THE FOLLOWING TASKS --                                FCC1328X  348
                                        *           1. IF THE SOURCE LISTING OPTION IS ON (L.NE.0,SL.NE.0)       FCC1328X  349
                                        *              AND A C/-LIST,NONE NOT ACTIVE --                          FCC1328X  350
                                        *             A. IF NOT IN *HEADER DELAY* MODE, THEN LISTS EACH LINE     FCC1328X  351
                                        *                IMMEDIATELY.  ELSE,                                     FCC1328X  352
                                        *             B. IF IN *HEADER DELAY* MODE, THEN EVERY LINE IS           FCC1328X  353
                                        *                SAVED/ACCUMULATED IN THE DEFERRED LIST BUFFER   (UP TO  FCC1328X  354
                                        *                A MAX OF *L.MAXDL* WORDS WORTH) IN AN ATTEMPT TO GET    FCC1328X  355
                                        *                THE PROGRAM UNIT NAME FOR THE TITLE LINE.               FCC1328X  356
                                        *                  E.G. --                                               FCC1328X  357
                                        *                      C     COMMENT         ..                          FCC1328X  358
                                        *                      C     COMMENT          .                          FCC1328X  359
                                        *                            .                .. SAVED UNTIL WE GET      FCC1328X  360
                                        *                            .                .  *PETRETR* FROM          FCC1328X  361
                                        *                            PROGRAM PETRETR ..  *PROGRAM* STMT PROCESSR FCC1328X  362
                                        *                                                                        FCC1328X  363
                                        *           2. IF THE SOURCE LISTING OPTION IS OFF (L=0,SL=0)            FCC1328X  364
                                        *              OR A C/-LIST,NONE ACTIVE, THEN ACCUMULATES AN ENTIRE      FCC1328X  365
                                        *              STMT (INITIAL LINE PLUS CONTINUATION LINES) IN THE        FCC1328X  366
                                        *              DEFERRED LIST BUFFER *T.DLBUF* FOR POSSIBLE LISTING BY    FCC1328X  367
                                        *              THE ERROR PROCESSOR *ERRORS/LLN* IF THE STMT IS FOUND     FCC1328X  368
                                        *              TO BE IN ERROR.  IN THIS MODE, COMMENT LINES ARE          FCC1328X  369
                                        *              DISCARDED.                                                FCC1328X  370
                                        *                                                                        FCC1328X  371
                                        *         ENTRY  (CCNT)    = NR OF CONTINUATION LINES                    FCC1328X  372
                                        *                (COMMENT) = .NZ. IF LINE TO PROCESS IS A COMMENT LINE.  FCC1328X  373
                                        *                                 (ONLY USED AS A FLAG BETWEEN *RNS*     FCC1328X  374
                                        *                                 AND *PLR*...KLUGE), ELSE .ZR.          FCC1328X  375
                                        *                (CO.MODE) = .NZ. IF *SEQ* MODE INPUT                    FCC1328X  376
                                        *                          = .ZR. IF NORMAL FTN INPUT                    FCC1328X  377
                                        *                (CP.CARD) = LINE IMAGE TO BE LISTED OR SAVED.  THE 2    FCC1328X  378
                                        *                            WORDS PRECEDING *CP.CARD*, BEGINNING AT     FCC1328X  379
                                        *                            *CP.FLIN*, ARE USED FOR SPACING AND LINE    FCC1328X  380
                                        *                            NUMBER SET UP.                              FCC1328X  381
                                        *                (CSLIST)  = .NZ. IF LINE TO PROCESS IS A C/-LIST        FCC1328X  382
                                        *                                 DIRECTIVE, ELSE .ZR.                   FCC1328X  383
                                        *                (HDELAY)  = .NZ. IF IN *HEADER DELAY* MODE              FCC1328X  384
                                        *                                 (I.E. SAVING ALL LINES IN AN ATTEMPT   FCC1328X  385
                                        *                                 TO GET PROGRAM UNIT NAME FOR TITLE     FCC1328X  386
                                        *                                 LINE), ELSE .ZR.                       FCC1328X  387
                                        *                (L.CARD)  = NR OF WORDS IN SOURCE LINE TO PROCESS       FCC1328X  388
                                        *                            (INCLUDES FULL ZERO WORD EOL MARK)          FCC1328X  389
                                        *                (NOLIST)  = 1S59 IF C/-LIST,ALL ACTIVE                  FCC1328X  390
                                        *                          =  +0  IF C/-LIST,NONE ACTIVE                 FCC1328X  391
                                        *                (SLIST)   = 1S59 IF (L.NE.0,SL.NE.0) ON CONTROL CARD    FCC1328X  392
                                        *                          =  +0  IF (L=0,SL=0) ON CONTROL CARD          FCC1328X  393
                                        *                                                                        FCC1328X  394
                                        *         EXIT   (COMMENT) = .ZR.                                        FCC1328X  395
                                        *                                                                        FCC1328X  396
                                        *         USES   ALL BUT A0                                              FCC1328X  397
                                        *                                                                        FCC1328X  398
                                        *         CALLS  ALLOC,CDD,DXB,LDB,LSL                                   FCC1328X  399
                                                                                                                 FCC1328X  400
                                                                                                                 FCC1328X  401
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    43
                                                                      PLR 
  
           727  0400400727 +             PLR      SUBR               ** ENTRY/EXIT **                            FCC1328X  402
                                                                                                                 FCC1328X  403
                                        *         SET UP REFERENCE LINE NR OF INITIAL LINE OF STATEMENT          FCC1328X  404
                                        *           FOR REF MAP GENERATION (ERT).                                FCC1328X  405
                                                                                                                 FCC1328X  406
           730  5140001177 +                      SA4    =10H                                                    FCC1328X  407
                          5130000000 X            SA3    =XSLIST                                                 FCC1328X  408
           731  5120000000 X                      SA2    =XNOLIST                                                FCC1328X  409
                          5110000000 X            SA1    =XCOMMENT                                               FCC1328X  410
           732  22604                             LX6    X4                                                      FCC1328X  411
                     11523                        BX5    X2*X3       (X5) = .ZR. IF (L=0) OR C/-LIST,NONE ACTIVE FCC1328X  412
                          5120000000 X            SA2    =XCCNT                                                  FCC1328X  413
           733  5130000000 X                      SA3    CO.MODE                                                 FCC1328X  414
                          12212                   BX2    X1+X2                                                   FCC1328X  415
           734  5110000000 X                      SA1    =XCARDS     (X1) = LINE NR OF THIS LINE  (BINARY)       FCC1328X  416
                          0303000741 +            ZR     X3,PLR2     IF NOT SEQ MODE                             FCC1328X  417
                                                                                                                 FCC1328X  418
           735  5110000243 +                      SA1    SEQNO+1     (X1) = SEQUENCE NR OF THIS LINE  (0L FMT)   FCC1328X  419
                          0312000750 +            NZ     X2,PLR5     IF COMMENT OR CONTINUATION LINE             FCC1328X  420
           736  0100000000 X                      RJ     =XDXB       CONVERT DECIMAL DPC TO BINARY               FCC1328X  421
           737  20606                             LX6    CHAR                                                    FCC1328X  422
                     5160000000 X                 SA6    =XREFLIN                                                FCC1328X  423
                               10644              BX6    X4          RESTORE (X6) = 10H                          FCC1328X  424
           740  0400000750 +                      EQ     PLR5                                                    FCC1328X  425
                                                                                                                 FCC1328X  426
           741  10711                    PLR2     BX7    X1                                                      FCC1328X  427
                     0312000743 +                 NZ     X2,PLR3     IF COMMENT OR CONTINUATION LINE             FCC1328X  428
                               20706              LX7    CHAR                                                    FCC1328X  429
           742  5170000000 X                      SA7    =XREFLIN                                                FCC1328X  430
                                                                                                                 FCC1328X  431
                                        *         SET UP LINE NUMBER FOR LISTING PURPOSES IN NON-SEQ MODE --     FCC1328X  432
                                        *                                                                        FCC1328X  433
                                        *           IF IN LIST MODE (L.NE.0 .AND. C/-LIST,ALL ACTIVE) AND --     FCC1328X  434
                                        *             1. IF THIS LINE NR IS A MULTIPLE OF 5, OR                  FCC1328X  435
                                        *             2. IF THIS LINE IS A C/-LIST LINE, OR                      FCC1328X  436
                                        *             3. IF (CO.SNAP) .NZ. IN *TEST* MODE                        FCC1328X  437
                                        *                                                                        FCC1328X  438
                                        *           IF IN DEFERRED LIST MODE (L=0 .OR. C/-LIST,NONE ACTIVE) AND  FCC1328X  439
                                        *             1. IF THIS IS INITIAL LINE OF STATEMENT, OR                FCC1328X  440
                                        *             2. IF NOT INITIAL LINE OF STMT .AND. LINE NR IS MULTIPLE   FCC1328X  441
                                        *                  OF 5                                                  FCC1328X  442
                                                                                                                 FCC1328X  443
                          0305000747 +            ZR     X5,PLR4     IF (L=0) OR C/-LIST,NONE ACTIVE             FCC1328X  444
                                                                                                                 FCC1328X  445
           743  5120000000 X             PLR3     SA2    =XCSLIST                                                FCC1328X  446
                          0312000747 +            NZ     X2,PLR4     IF LISTING C/-LIST LINE                     FCC1328X  447
                                                                                                                 FCC1328X  448
                                         .T       IFNE   TEST,0                                                  FCC1328X  449
                                                  SA3    =XCO.SNAP                                               FCC1328X  450
                                                  NZ     X3,PLR4     IF ANY SNAP IS ON, FORCE OUT LINE NR        FCC1328X  451
                                         .T       ENDIF                                                          FCC1328X  452
                                                                                                                 FCC1328X  453
           744  7120146315                        SX2    146315B     (X2) = MAGIC NR FOR SENSING MULTIPLES OF 5  FCC1328X  454
                          7130000005              SX3    5                                                       FCC1328X  455
           745  42412                             IX4    X1*X2                                                   FCC1328X  456
                     21422                        AX4    18                                                      FCC1328X  457
                          42243                   IX2    X4*X3                                                   FCC1328X  458
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    44
                                                                      PLR 
  
                               37312              IX3    X1-X2                                                   FCC1328X  459
           746  0313000750 +                      NZ     X3,PLR5     IF LINE NR IS NOT MULTIPLE OF 5             FCC1328X  460
                                                                                                                 FCC1328X  461
           747  0100000000 X             PLR4     RJ     =XCDD       CONVERT BINARY TO DECIMAL DPC               FCC1328X  462
                                                                                                                 FCC1328X  463
           750  5110000000 X             PLR5     SA1    =XHDELAY                                                FCC1328X  464
                          5120000000 X            SA2    =XT=DLBUF                                               FCC1328X  465
           751  5130000000 X                      SA3    =XCOMMENT                                               FCC1328X  466
                          5140000000 X            SA4    =XL.CARD                                                FCC1328X  467
           752  20606                             LX6    CHAR                                                    FCC1328X  468
                     13777                        BX7    X7-X7                                                   FCC1328X  469
                          5160000000 X            SA6    =XCP.FLIN                                               FCC1328X  470
           753  5073000000                        SA7    A3+         CLEAR TO *NOT COMMENT LINE*                 FCC1328X  471
                                                                                                                 FCC1328X  472
                                        *         LIST THE LINE AT (CP.CARD) IF IN *LIST* MODE                   FCC1328X  473
                                        *           AND NO HEADER DELAY.                                         FCC1328X  474
                                                                                                                 FCC1328X  475
                          0305000760 +            ZR     X5,PLR7     IF (L=0) OR C/-LIST,NONE ACTIVE             FCC1328X  476
           754  0301000756 +                      ZR     X1,PLR6     IF NO HEADER DELAY                          FCC1328X  477
                          7262777373              SX6    X2-L.MAXDL                                              FCC1328X  478
           755  0336000761 +                      MI     X6,PLR8     IF WE WANT TO KEEP SAVING *BEFORE HEADER*   FCC1328X  479
                          0100000621 +            RJ     LDB         LIST DEFERRED BUFFER                        FCC1328X  480
                                                                                                                 FCC1328X  481
           756  7110000000 X             PLR6     SX1    =XCP.FLIN   (X1) = FWA OF PRINT LINE AREA               FCC1328X  482
                          0100000654 +            RJ     LSL         LIST SOURCE LINE                            FCC1328X  483
           757  0400000727 +                      EQ     EXIT.                                                   FCC1328X  484
                                                                                                                 FCC1328X  485
                                        *         HERE TO SAVE SOURCE LINE IN A *READY TO LIST* FORMAT           FCC1328X  486
                                        *         IN THE DEFERRED LIST BUFFER *T.DLBUF* BECAUSE --               FCC1328X  487
                                        *           1. IN *NOLIST* MODE, (L=0) OR C/-LIST,NONE ACTIVE, OR        FCC1328X  488
                                        *           2. IN *DELAYED HEADER* MODE.                                 FCC1328X  489
                                        *                                                                        FCC1328X  490
                                        *         *T.DLBUF* FORMAT FOR EACH SAVED LINE --                        FCC1328X  491
                                        *           WORD  0        NR OF WORDS IN THIS ENTRY (INCLUDES ITSELF)   FCC1328X  492
                                        *           WORDS 1 THRU N-1 (WHERE N IS THE CONTENTS OF WORD 0)         FCC1328X  493
                                        *                          CONTAIN THE SAVED SOURCE LINE IN A            FCC1328X  494
                                        *                          LISTABLE FORMAT.                              FCC1328X  495
                                        *                                                                        FCC1328X  496
                                        *         SEE ROUTINE *LDB* FOR AN EXAMPLE.                              FCC1328X  497
                                                                                                                 FCC1328X  498
           760  0313000727 +             PLR7     NZ     X3,EXIT.    IF THIS IS A COMMENT LINE                   FCC1328X  499
                                                                                                                 FCC1328X  500
           761  5110000000 X             PLR8     SA1    =XT.DLBUF                                               FCC1328X  501
                          5150000000 X            SA5    =XT=DLBUF                                               FCC1328AX  11
           762  6264000003                        SB6    1+2+X4      (B6) = NR OF WORDS IN LINE TO SAVE          FCC1328AX  12
                          76060                   ALLOC  A1,B6                                                   FCC1328AX  13
           764  36515                             IX5    X1+X5       (X5) = FWA TO STORE LINE                    FCC1328AX  14
                     76660                        SX6    B6                                                      FCC1328X  506
                          53650                   SA6    X5                                                      FCC1328X  507
           765  7120000000 X                      SX2    CP.FLIN     (X2) = FROM                                 FCC1328X  508
                          73351                   SX3    X5+B1       (X3) = TO                                   FCC1328X  509
                               77161              SX1    B6-B1       (X1) = COUNT                                FCC1328X  510
           766  0100000000 X                      MVE    X1,X2,X3                                                FCC1328X  511
           767  0400000727 +                      EQ     EXIT.                                                   FCC1328X  512
                                                                                                                 FCC1328X  513
                                                                                                                 FCC1328X  514
                                 404     L.MAXDL  =      404B        MAX NR OF WORDS TO TRY AND SAVE IN          FCC1328X  515
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    45
                                                                      PLR 
  
                                        *                              DEFERRED LIST BUFFER *T.DLBUF* DURING     FCC1328X  516
                                        *                              *BEFORE HEADER* MODE.                     FCC1328X  517
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    46
        COMFRNC - READ NEXT CARD.                                     COMFRNC 
  
           767                           COMFRNC  CTEXT  COMFRNC - READ NEXT CARD.                               COMFRNC     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFRNC     4
                                                  QUAL   COMFRNC                                                 COMFRNC     5
  
  
  
  
                                        **        RNC - READ NEXT CARD.                                          COMFRNC     7
                                        *                                                                        COMFRNC     8
                                        *                                                                        COMFRNC     9
                                        *                READS A SINGLE SOURCE LINE FROM THE INPUT BUFFER *F.IN* COMFRNC    10
                                        *         TO THE SOURCE LINE IMAGE AREA *CP.CARD*.  ALSO GUARANTEES      COMFRNC    11
                                        *         THAT, ON EXIT, THE EOL MARK IS ON A WORD BOUNDARY BY           COMFRNC    12
                                        *         APPROPRIATELY BLANK FILLING THE LAST WORD OF THE LINE IMAGE    COMFRNC    13
                                        *         AND STORING A FULL ZERO WORD EOL MARK AFTER IT.                COMFRNC    14
                                        *                                                                        COMFRNC    15
                                        *         ENTRY  (B1)     =  1                                           COMFRNC    16
                                        *                CIO ONLY - INITIAL *READ* ISSUED                        COMFRNC    17
                                        *                RM  ONLY - FILE TABLES INITIALIZED                      COMFRNC    18
                                        *                (CP.IFMT)=  +0 IF NORMAL UNCOMPRESSED INPUT             COMFRNC    19
                                        *                         =   1 IF MODIFY COMPRESSED INPUT (UNSUPPORTED) COMFRNC    20
                                        *                         =   2 IF UPDATE COMPRESSED INPUT (UNSUPPORTED) COMFRNC    21
                                        *                                                                        COMFRNC    22
                                        *         EXIT   (B1)     =  1                                           COMFRNC    23
                                        *                (B4)     =  FWA OF SOURCE LINE IMAGE, *CP.CARD*         COMFRNC    24
                                        *                (B5)     =  1                                           COMFRNC    25
                                        *                (B6)     =  LWA OF SOURCE LINE IMAGE,                   COMFRNC    26
                                        *                              I.E. (B6) POINTS TO FULL WORD EOL MARK    COMFRNC    27
                                        *                (B7)     =  NR OF USEABLE WORDS IN LINE IMAGE,          COMFRNC    28
                                        *                              I.E. DOES NOT INCLUDE FULL WORD EOL MARK  COMFRNC    29
                                        *                (X1)     =  .NZ. IF EOR/EOF/EOI ENCOUNTERED, ELSE .ZR.  COMFRNC    30
                                        *                (CP.CARD) = .ZR. IF EOR/EOF/EOI ENCOUNTERED, ELSE 1ST   COMFRNC    31
                                        *                              WORD OF SOURCE LINE IMAGE                 COMFRNC    32
                                        *                (L.CARD) =  NR OF WORDS IN SOURCE LINE IMAGE            COMFRNC    33
                                        *                              I.E. INCLUDES FULL ZERO WORD EOL MARK     COMFRNC    34
                                        *                (X7)     =  (L.CARD) = (B7)+1                           COMFRNC    35
                                        *                                                                        COMFRNC    36
                                        *         USES   ALL BUT A0,X0,A5,X5  (INCLUDES ALL CALLS)               COMFRNC    37
                                        *                                                                        COMFRNC    38
                                        *         CALLS  READC                                                   COMFRNC    39
                                                                                                                 COMFRNC    40
                                                                                                                 COMFRNC    41
           770  0400400770 +             RNC      SUBR               ** ENTRY/EXIT **                            COMFRNC    42
           771  5110000000 X                      SA1    =XCARDS                                                 COMFRNC    43
                          5120000000 X            SA2    =XCP.IFMT                                               COMFRNC    44
           772  73611                             SX6    X1+B1                                                   COMFRNC    45
                     54610                        SA6    A1          UPDATE LINE COUNT                           COMFRNC    46
                          0312400772 +            NZ     X2,*+4S15   IF COMPRESSED INPUT (UPDATE OR MODIFY)      COMFRNC    47
           773  6160000000 X                      READC  =XF.IN,=XCP.CARD,16                                     COMFRNC    48
           775  6140000000 X                      SB4    CP.CARD                                                 COMFRNC    49
                          57261                   SA2    B6-B1       (A2,X2) = A+C OF LAST WORD OF LINE IMAGE    COMFRNC    50
                               66700              SB7    B0                                                      COMFRNC    51
           776  0311001012 +                      NZ     X1,RNC5     IF EOR/EOF/EOI ENCOUNTERED                  COMFRNC    52
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    47
        COMFRNC - READ NEXT CARD.                                     RNC                 COMFRNC 
  
                                                                                                                 COMFRNC    53
                                        *         CHECK FOR AND PROCESS FULL WORD OR 11 CHARACTER EOL MARK.      COMFRNC    54
                                                                                                                 COMFRNC    55
                          0312001002 +            NZ     X2,RNC2     IF NOT A FULL WORD EOL MARK                 COMFRNC    56
           777  55221                             SA2    A2-B1                                                   COMFRNC    57
                     43366                        MX3    -CHAR                                                   COMFRNC    58
                          67661                   SB6    B6-B1                                                   COMFRNC    59
                               15423              BX4    -X3*X2      EXTRACT LAST CHARACTER                      COMFRNC    60
          1000  0314001006 +                      NZ     X4,RNC3     IF NOT 11 CHAR EOL MARK                     COMFRNC    61
                          7160000055              SX6    1R                                                      COMFRNC    62
          1001  36726                             IX7    X2+X6                                                   COMFRNC    63
                     54720                        SA7    A2                                                      COMFRNC    64
                          0400001006 +            EQ     RNC3                                                    COMFRNC    65
                                                                                                                 COMFRNC    66
                                        *         PROCESS 2 THRU 8 CHARACTER (12 THRU 48 BIT) EOL MARK,          COMFRNC    67
                                        *           BLANK FILL LAST WORD OF SOURCE LINE IMAGE.                   COMFRNC    68
                                                                                                                 COMFRNC    69
          1002  43773                    RNC2     MX7    -1                                                      COMFRNC    70
                     36427                        IX4    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     COMFRNC    71
                          5130001207 +            SA3    =40404040404040404040B                                  COMFRNC    72
          1003  15442                             BX4    -X2*X4      (X4) = ALL TRAILING 0 BITS IN (X2) = 1 BITS COMFRNC    73
                     6150000067                   SB5    60-5        (B5) = RIGHT CIRCULAR SHIFT 5 BITS          COMFRNC    74
                               11434              BX4    X3*X4       (X4) = 40B WHERE TRAILING 00B WERE          COMFRNC    75
          1004  22654                             LX6    X4,B5       (X6) = 01B WHERE TRAILING 00B WERE          COMFRNC    76
                     37746                        IX7    X4-X6       (X7) = 37B WHERE TRAILING 00B WERE          COMFRNC    77
                          5130001177 +            SA3    =10H                                                    COMFRNC    78
          1005  12447                             BX4    X4+X7       (X4) = 77B WHERE TRAILING 00B WERE          COMFRNC    79
                     11643                        BX6    X4*X3       (X6) = 55B WHERE TRAILING 00B WERE          COMFRNC    80
                          36726                   IX7    X2+X6       TRAILING 00B BECOMES TRAILING 55B           COMFRNC    81
                               54720              SA7    A2                                                      COMFRNC    82
                                                                                                                 COMFRNC    83
                                        *         CHECK FOR (AND TRUNCATE) LONG LINE (.GT. *L.MAXCD* WORDS).     COMFRNC    84
                                                                                                                 COMFRNC    85
          1006  56240                    RNC3     SA2    B4          (A2,X2) = A+C OF 1ST WORD OF SOURCE LINE    COMFRNC    86
                     67764                        SB7    B6-B4       (B7) = NR OF USEABLE WORDS IN SOURCE LINE   COMFRNC    87
                          6150777776 X            SB5    =XL.MAXCD-1                                             COMFRNC    88
          1007  0657001010 +                      LE     B7,B5,RNC4  IF LINE LENGTH OK                           COMFRNC    89
                          66750                   SB7    B5          SET TO *MAX NR OF WDS IN LINE IS /L.MAXCD/* COMFRNC    90
                               66645              SB6    B4+B5                                                   COMFRNC    91
                                                                                                                 COMFRNC    92
                                        *         CHECK FOR AND PROCESS FALSE EOR/EOF (TELEX BLANK LINE ONLY).   COMFRNC    93
                                                                                                                 COMFRNC    94
          1010  0312001012 +             RNC4     NZ     X2,RNC5     IF NO FALSE EOR/EOF                         COMFRNC    95
                          5130001177 +            SA3    =10H                                                    COMFRNC    96
          1011  66641                             SB6    B4+B1                                                   COMFRNC    97
                     66710                        SB7    B1          (B7) = NR OF USEABLE WORDS = 1              COMFRNC    98
                          10633                   BX6    X3                                                      COMFRNC    99
                               56640              SA6    B4                                                      COMFRNC   100
                                                                                                                 COMFRNC   101
                                        *         FINAL PROCESSING AND EXIT.                                     COMFRNC   102
                                                                                                                 COMFRNC   103
          1012  13666                    RNC5     BX6    X6-X6                                                   COMFRNC   104
                     76771                        SX7    B7+B1       (X7) = NR OF WORDS IN SOURCE LINE IMAGE     COMFRNC   105
                          56660                   SA6    B6          MARK FULL WORD EOL                          COMFRNC   106
                               66510              SB5    B1                                                      COMFRNC   107
          1013  5170000000 X                      SA7    =XL.CARD                                                COMFRNC   108
                          0400000770 +            EQ     EXIT.                                                   COMFRNC   109
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    48
        COMFRNC - READ NEXT CARD.                                     RNC                 COMFRNC 
  
                                                  IF     -DEF,QUAL$,2                                            COMFRNC   111
                                                  QUAL   *                                                       COMFRNC   112
                                 770 +   RNC      =      /COMFRNC/RNC                                            COMFRNC   113
                                                  ENDX                                                           COMFRNC   114
                                                  ENTRY  RNC                                                     FCC1328X  519
  
  
  
  
                                        **        RNS -  READ NEXT STATEMENT.                                    MAIN     1563
                                        *                                                                        MAIN     1564
                                        *                                                                        MAIN     1565
                                        *         READS CARD IMAGES UNTIL AN INITIAL LINE IS FOUND.  MERELY      MAIN     1566
                                        *         CALLS *RNC* AND LISTS THE LINE, REPEATEDLY, UNTIL A            MAIN     1567
                                        *         NON-COMMENT IS ENCOUNTERED.  ONLY PURPOSE FOR EXISTANCE IS TO  MAIN     1568
                                        *         MAKE COMMENTS COMPLETELY TRANSPARENT TO *AFS*, SO THAT HE IS   MAIN     1569
                                        *         NOT FULL OF LISTING LOGIC FOR THEM.                            MAIN     1570
                                        *                                                                        MAIN     1571
                                        *         NOTE   ACCORDING TO *ANSI*, THIS ROUTINE SHOULD NOT EXIST.     MAIN     1572
                                        *                STANDARD FORTRAN DOES NOT PERMIT COMMENT LINES EMBEDDED MAIN     1573
                                        *                IN A CONTINUATION STRING.  HISTORICALLY, HOWEVER,       MAIN     1574
                                        *                C.D.C. COMPILERS HAVE IGNORED SUCH COMMENTS, AND WHO    MAIN     1575
                                        *                ARE WE TO TINKER WITH PRECEDENT. ..QQ..                 MAIN     1576
                                        *                                                                        MAIN     1577
                                        *         ENTRY  (CSSTMT)  =  .NZ. IF A C/-LINE WAS DISCOVERED TO BE     FEAT126B  823
                                        *                                    ONLY A COMMENT, ELSE .ZR.           FEAT126B  824
                                        *                (A5,X5)   =  ADDR + CONTENTS OF 1ST WORD OF LINE IMAGE  FEAT126B  825
                                        *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE  FCC1328X  520
                                        *                               AT (CP.CARD) ET SEQ                      FCC1328X  521
                                        *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK) FCC1328X  522
                                        *                                                                        FEAT126B  827
                                        *         EXIT   (CSSTMT)  =  .NZ. IF A *C/    * LINE OCCURRED,ELSE .ZR. FEAT126B  828
                                        *                (X0)      =  MX0 -CHAR                                  FEAT126B  829
                                        *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE  FCC1328X  523
                                        *                               AT (CP.CARD) ET SEQ                      FCC1328X  524
                                        *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK) FCC1328X  525
                                        *                                                                        FEAT126B  830
                                        *                IN BATCH --                                             FEAT126B  831
                                        *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO  FEAT126B  832
                                        *                               BE BURST FROM (CP.CARD).                 FEAT155E  273
                                        *                                                                        FEAT126B  835
                                        *                IN SEQ --                                               FEAT126B  836
                                        *                (X3)      =  CHARACTER POSITION IN WORD. CHARACTER      FEAT126B  837
                                        *                               POSITIONS IN (X3) ARE NUMBERED --        FEAT126B  838
                                        *                               (01 10 09 08 07 06 05 04 03 02).         FEAT126B  839
                                        *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS   FEAT126B  840
                                        *                               (05-00) OF (X5), THEN THE SIGN BIT WILL  FEAT126B  841
                                        *                               BE ON IN THE 4TH CHAR POSITION IN (X3).  FEAT126B  842
                                        *                               (X5) = (05 06 07 08 09 10 01 02 03 04)   FEAT126B  843
                                        *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)  FEAT126B  844
                                        *                (A5,X5)   =  IF A *C/    * LINE DID NOT OCCUR, THE NTH  FEAT126B  845
                                        *                               WORD IN (CP.CARD) WITH THE NON-DIGIT     FEAT155E  275
                                        *                               THAT TERMINATED ASSEMBLY OF LINE NR IN   FEAT155E  276
                                        *                               BITS (05-00); ELSE 1ST CHARACTER AFTER   FEAT155E  277
                                        *                               *C/    * IN BITS (05-00)                 FEAT126B  849
                                        *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)    FCC1328X  526
                                        *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)  FCC1328X  527
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    49
        COMFRNC - READ NEXT CARD.                                     RNS 
  
                                        *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE      FCC1328X  528
                                        *                (B7)      =  CHAR THAT TERMINATED ASSEMBLY OF LINE NR   FEAT126B  854
                                        *                                                                        FEAT126B  855
                                        *         USES   ALL BUT A0                                              FEAT126B  856
                                        *                                                                        FEAT126B  857
                                        *         CALLS  ALN,LSL,RNC,WARN                                        FEAT126B  858
                                                                                                                 MAIN     1592
                                                                                                                 MAIN     1593
          1014  0400401014 +             RNS      SUBR               ENTRY/EXIT...                               MAIN     1594
          1015  5110000000 X             RNS0     SA1    CO.MODE                                                 FEAT155E  280
                          0301001037 +            ZR     X1,RNS2     IF BATCH FORMAT                             MAIN     1596
                                                                                                                 MAIN     1597
                                        **        ASSEMBLE SOURCE INPUT IN T/S FORMAT.                           MAIN     1598
                                                                                                                 MAIN     1599
          1016  0100000231 +                      RJ     ALN         ASSEMBLE LINE NUMBER                        MAIN     1600
          1017  0316001027 +                      NZ     X6,RNS1     IF *LN* PRESENT                             MAIN     1601
                          54150                   SA1    A5          PICK UP POSSIBLE IDENT                      FCC2189     8
                               43436              MX4    36B         SET UP MASK FOR POSSIBLE IDENT              FCC2189     9
          1020  11741                             BX7    X4*X1       MASK OFF POSSIBLE IDENT                     FCC2189    10
                     5120001210 +                 SA2    =5LIDENT                                                FCC2189    11
                               37772              IX7    X7-X2       CHECK IF IT IS IDENT                        FCC2189    12
          1021  0317001025 +                      NZ     X7,RNS0A    IF NOT IDENT                                FCC2189    13
                          0100000621 +            RJ     LDB         LIST DELATE BUFFER(IF ANY)                  FCC2189    14
          1022  7120000000 X                      WRITER =XF.OUT,RCL                                             FCC2189    15
          1024  0400000000 X                      EQ     =XLDCOM     LOAD COMPASS (1,0)                          FCC2189    16
          1025  6170000000 X             RNS0A    WARN   E.NLN                                                   FCC2189    17
          1026  0400001050 +                      EQ     RNS3                                                    MAIN     1603
                                                                                                                 MAIN     1604
          1027  0331001014 +             RNS1     MI     X1,EXIT.    IF NEXT CHARACTER IS PLUS(+) OR BLANK       FEAT126B  859
                                                                                                                 FEAT126B  860
                                        *         HERE IF COMMENT IN SEQ FORMAT -- PACK 1ST 6 CHARACTERS OF      FEAT126B  861
                                        *           STATEMENT TO (X6) SO THAT WE CAN CHECK FOR *C/    *.         FEAT126B  862
                                                                                                                 FEAT126B  863
                                         #NL      IFNE   #NL,0                                                   FEAT126B  864
                          6140000006              SB4    6                                                       FEAT126B  865
          1030  43600                             MX6    0                                                       FEAT126B  866
                                                                                                                 FEAT126B  867
          1031  15150                    RNS1A    BX1    -X0*X5                                                  FEAT126B  868
                     20606                        LX6    CHAR                                                    FEAT126B  869
                          6133777776              SB3    B3-1        COLUMN COUNT - 1                            FEAT126B  870
          1032  12661                             BX6    X6+X1                                                   FEAT126B  871
                     20306                        LX3    CHAR                                                    FEAT126B  872
                          6144777776              SB4    B4-1                                                    FEAT126B  873
          1033  0323001034 +                      PL     X3,RNS1B    IF WORD NOT EXHAUSTED                       FEAT126B  874
                          54551                   SA5    A5+B1                                                   FEAT126B  875
                               67661              SB6    B6-B1       WORD COUNT - 1                              FEAT126B  876
                                                                                                                 FEAT126B  877
          1034  20506                    RNS1B    LX5    CHAR                                                    FEAT126B  878
                     0704001031 +                 GT     B4,B0,RNS1A IF STILL PACKING 1ST 6 CHARS OF STMT        FEAT126B  879
          1035  0660001014 +                      PL     B6,EXIT.    IF (CP.CARD) IS EMPTY NOW --NULL STMT       FEAT155E  281
                          20630                   LX6    10*CHAR-6*CHAR    LEFT JUSTIFY 1ST 6 CHARS OF STMT      FEAT126B  881
                               10455              BX4    X5          (X4) = SAVED (X5)                           FEAT126B  882
          1036  22506                             LX5    X6          DUMMY UP (X5)                               FEAT126B  883
                                         #NL      ENDIF                                                          FEAT126B  884
                     0400001042 +                 EQ     RNS2A                                                   FEAT126B  885
                                                                                                                 FEAT126B  886
                                        *         CHECK FOR COMMENT LINE IN BATCH FORMAT.                        FEAT126B  887
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    50
        COMFRNC - READ NEXT CARD.                                     RNS 
  
                                                                                                                 MAIN     1607
          1037  43066                    RNS2     MX0    -CHAR                                                   FCC1328X  529
                     5120001211 +                 SA2    ="C$*"                                                  MAIN     1609
                               20506              LX5    CHAR                                                    MAIN     1610
          1040  15150                             BX1    -X0*X5                                                  MAIN     1611
                     20566                        LX5    -CHAR       RESTORE (X5)                                MAIN     1612
                          63710                   SB7    X1                                                      MAIN     1613
                               22172              LX1    B7,X2                                                   MAIN     1614
          1041  0321001014 +                      PL     X1,EXIT.    IF NOT COMMENT LINE                         MAIN     1615
                                                                                                                 MAIN     1616
                                        *         CHECK FOR C/-LINE.                                             FEAT126B  888
                                                                                                                 FEAT126B  889
          1042                           RNS2A    BSS    0                                                       FEAT126B  890
                                         #NL      IFNE   #NL,0                                                   FEAT126B  891
          1042  5110000000 X                      SA1    CSSTMT                                                  FEAT126B  892
                          5120001212 +            SA2    =6LC/                                                   FEAT126B  893
          1043  43600                             MX6    0                                                       FEAT126B  894
                     54610                        SA6    A1                                                      FEAT126B  895
                          0311001050 +            NZ     X1,RNS3     IF JUST LISTING C/-COMMENT LINE             FEAT126B  896
          1044  76610                             SX6    B1                                                      FEAT126B  897
                     43744                        MX7    6*CHAR                                                  FEAT126B  898
                          13152                   BX1    X5-X2                                                   FEAT126B  899
                               11117              BX1    X1*X7                                                   FEAT126B  900
          1045  0311001050 +                      NZ     X1,RNS3     IF NOT A *C/    * LINE                      FEAT126B  901
                          5120000000 X            SA2    CO.MODE                                                 FEAT126B  902
          1046  54610                             SA6    A1          SET TO *C/-LINE OCCURRED*                   FEAT126B  903
                     0302001014 +                 ZR     X2,EXIT.    IF NORMAL BATCH INPUT                       FEAT126B  904
                               10544              BX5    X4          RESTORE (X5)                                FEAT126B  905
          1047  0400001014 +                      EQ     EXIT.                                                   FEAT126B  906
                                         #NL      ENDIF                                                          FEAT126B  907
                                                                                                                 FEAT126B  908
                                        **        PASS OVER COMMENT CARDS.                                       MAIN     1617
                                                                                                                 MAIN     1618
          1050  76610                    RNS3     SX6    B1                                                      FCC1328X  530
                     46000                        NO                                                             FCC1328X  531
                          5160000000 X            SA6    =XCOMMENT   SET TO *THIS IS A COMMENT LINE*             FCC1328X  532
          1051  0100000727 +                      RJ     PLR         PROCESS LISTING REQUEST                     FCC1328X  533
          1052  0100000770 +                      RJ     RNC         READ NEXT CARD                              FCC1328X  534
          1053  56540                             SA5    B4                                                      FEAT155E  288
                     67607                        SB6    -B7         (B6) = -NR OF USEABLE SOURCE LINE WORDS     FCC1328X  535
                          0301001015 +            ZR     X1,RNS0     IF NOT END OF SECTION                       MAIN     1630
          1054  0400001014 +                      EQ     EXIT.                                                   MAIN     1631
  
  
  
  
                                        **        RSC -  RESET INTRA-STATEMENT CELLS.                            MAIN     1633
                                        *         ENTRY  N/A                                                     MAIN     1634
                                        *         EXIT   TEM.MAX RESET TO MAXIMUM TEMPORARY TAG.                 MAIN     1635
                                        *                RESET OF CELLS.                                         MAIN     1636
                                                                                                                 MAIN     1637
                                                                                                                 MAIN     1638
          1055  0400401055 +             RSC      SUBR   0                                                       MAIN     1639
          1056  0100000000 X                      RJ     UEC         UPDATE ERROR COUNT                          MAIN     1640
                                                                                                                 MAIN     1641
          1057  13666                             BX6    0                                                       MAIN     1642
                     7170000055                   =X7    CR.REF                                                  MAIN     1643
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    51
        COMFRNC - READ NEXT CARD.                                     RSC 
  
          1060  5160000000 X                      SA6    TYPC        CLEAR IMPLICIT STATEMENT FLAG               MAIN     1644
                          5160000000 X            SA6    DTI           -   DO-TERMINATION INDICATOR              MAIN     1647
          1061  5160000000 X                      SA6    STN           -   CURRENT STATEMENT LABEL               MAIN     1648
                          5170000000 X            SA7    REFNUM        -   CURRENT VALUE FOR REFS TO STAT. NO.   MAIN     1649
          1062  5160000000 X                      SA6    CSNTAG        -   CURRENT STATEMENT LABEL TAG           MAIN     1650
                          5160000000 X            SA6    INIF          -   LOGICAL IF INDICATOR                  MAIN     1651
          1063  5170000000 X                      SA7    REFVAR                                                  MAIN     1653
                          5120000000 X            SA2    TS=CON                                                  MAIN     1654
          1064  5110000000 X                      SA1    =XALC.00    POINTER TO NO REGISTERS TO RESTORE          FCC0590     7
                          22701                   LX7    X1                                                      FCC0590     8
                               10622              SHRINK TS=CONB,X2  RESET TO START OF CONSTANTS FOR THIS STAT.  FCC0813   160
                          5170000000 X            SA7    =XALC.REG   RESET SO NO REGISTERS WILL BE RELOCATED     FCC0590     9
          1066  0400001055 +                      EQ     RSCX        EXIT..                                      MAIN     1657
  
  
  
  
                                        **        WBL -  WRITE BLANK LINES.                                      MAIN     1659
                                        *                                                                        MAIN     1660
                                        *         ENTRY  (X6) = NUMBER OF BLANK LINES.                           MAIN     1661
                                        *                (X1) = ADDRESS OF LINE TO BE PRINTED AFTER THE BLANKS.  MAIN     1663
                                        *                            (= ZERO IF NONE.)                           MAIN     1664
                                        *                (X2) = NUMBER OF WORDS IN LINE (ZERO IF UNKNOWN).       FEAT126A  934
                                        *         USES   A1, A3, A6, A7                                          FEAT126A  935
                                        *                X0, X3, X4, X6, X7                                      FEAT126A  936
                                        *                B7                                                      FEAT126A  937
                                        *         CALLS  WOF,WRITEC                                              FEAT126A  938
                                                                                                                 MAIN     1667
                                                                                                                 MAIN     1668
          1067  5110000000 X             WBL6     SA1    LCP.PS                                                  FCCA422    43
                          73611                   =X6    X1+1                                                    FEAT155E  290
          1070  5160000000 X                      SA6    LCNT        FORCE EJECT                                 MAIN     1670
                                                                                                                 MAIN     1671
          1071  5110001174 +             WBL8     SA1    WOFA                                                    MAIN     1672
                          0301001073 +            ZR     X1,WBLX     IF NO LINE TO PRINT                         MAIN     1673
          1072  73210                             SX2    X1          RESTORE LENGTH                              FEAT126A  939
                     21136                        AX1    30          RESTORE ADDRESS                             FEAT126A  940
                          0100001117 +            RJ     WOF                                                     MAIN     1674
                                                                                                                 MAIN     1675
          1073  0400401073 +             WBL      SUBR   0                                                       MAIN     1676
          1074  5130000000 X                      SA3    LCNT                                                    MAIN     1677
                          20136                   LX1    30                                                      FEAT126A  941
                               63760              SB7    X6                                                      MAIN     1679
          1075  12712                             BX7    X1+X2                                                   FEAT126A  942
                     36436                        IX4    X3+X6                                                   MAIN     1680
                          5110000000 X            SA1    LCP.PS                                                  FCCA422    44
          1076  37241                             IX2    X4-X1                                                   FEAT155E  292
                     73637                        SX6    X3+B7                                                   MAIN     1682
                          5170001174 +            SA7    WOFA                                                    MAIN     1683
          1077  54630                             SA6    A3          UPDATE LINE COUNT                           MAIN     1684
                     0322001067 +                 PL     X2,WBL6     IF PAST BOTTOM OF PAGE                      MAIN     1685
                               76040              SX0    B4          SAVE (B4)                                   MAIN     1686
          1100  6160001215 +             WBL2     WRITEC F.OUT,HDRBL,1                                           MAIN     1687
          1102  67771                             SB7    B7-B1                                                   MAIN     1688
                     0707001100 +                 GT     B7,B0,WBL2                                              MAIN     1689
                               63400              SB4    X0          RESTORE (B4)                                MAIN     1690
          1103  0400001071 +                      EQ     WBL8                                                    MAIN     1691
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    52
        COMFRNC - READ NEXT CARD.                                     WOF 
  
                                        **        WOF -  WRITE OUTPUT FILE                                       MAIN     1693
                                        *                                                                        MAIN     1694
                                        *         ENTRY  (X1) _ FWA LINE (-C- FORMAT).                           MAIN     1695
                                        *         (X2) = LINE LENGTH IN WORDS (ZERO IF UNKNOWN).                 FEAT126A  943
                                        *         USES   A1-A4,A6,A7  B3-B7                                      MAIN     1698
                                        *         CALLS  CDD, WRITEC, WRITEW                                     MAIN     1699
                                                                                                                 MAIN     1700
                                                                                                                 MAIN     1701
          1104  76040                    WOF7     SX0    B4          SAVE (B4)                                   FEAT126A  944
                     0302001114 +                 ZR     X2,WOF9     IF LINE LENGTH NOT GIVEN                    FEAT126A  945
          1105  5130000000 X                      SA3    =XCP.PW                                                 CP139FC   197
                          0303001114 +            ZR     X3,WOF9     IF NOT IN PW MODE                           FEAT126A  947
          1106  6262777776                        SB6    X2-1                                                    FEAT126A  948
                          53416                   SA4    X1+B6       LAST WORD OF LINE                           FEAT126A  949
          1107  0314001110 +                      NZ     X4,WOF8                                                 FEAT126A  950
                          55441                   SA4    A4-B1                                                   FEAT126A  951
          1110  76710                    WOF8     SX7    B1          (X4) = LAST WORD - BLANK FILLED             FEAT126A  952
                     5130001213 +                 SA3    =9R                          .                          FEAT126A  953
                               13343              BX3    X4-X3                                                   FEAT126A  954
          1111  37737                             IX7    X3-X7                        .                          FEAT126A  955
                     16637                        BX6    -X7+X3                       .                          FEAT126A  956
                          6120000067              SB2    55                           .                          FEAT126A  957
          1112  5130001207 +                      SA3    =40404040404040404040B       .                          FEAT126A  958
                          11736                   BX7    X3*X6                        .                          FEAT126A  959
                               22327              LX3    B2,X7                        .                          FEAT126A  960
          1113  37373                             IX3    X7-X3                        .                          FEAT126A  961
                     12773                        BX7    X7+X3                                                   FEAT126A  962
                          11647                   BX6    X4*X7       (X6) = LAST WORD - ZERO FILLED              FEAT126A  963
                               54640              SA6    A4                                                      FEAT126A  964
          1114  63610                    WOF9     WRITEC F.OUT,X1,X2                                             FEAT126A  965
          1116  63400                             SB4    X0          RESTORE (B4)                                MAIN     1704
                                                                                                                 MAIN     1705
          1117  0400401117 +             WOF      SUBR   0                                                       MAIN     1706
          1120  5130000000 X                      SA3    LCNT                                                    MAIN     1707
                          5140000000 X            SA4     LCP.PS                                                 FCCA422    45
          1121  37734                             IX7    X3-X4                                                   FEAT155E  294
                     73631                        SX6    X3+B1                                                   MAIN     1709
                          54630                   SA6    A3          UPDATE LINE COUNT                           MAIN     1710
          1122  0337001104 +                      MI     X7,WOF7     IF PAGE NOT FULL                            FEAT126A  966
                          5140000000 X            SA4    =XCP.LSTF                                               FEAT126A  967
          1123  20136                             LX1    30                                                      FEAT126A  968
                     36612                        IX6    X1+X2                                                   FEAT126A  969
                          5120000000 X            SA2    =XCP.PW                                                 CP139FC   198
          1124  20473                             LX4    59                                                      FEAT126A  971
                     76040                        SX0    B4                                                      FCC0826    16
                          5160001174 +            SA6    WOFA        SAVE FWA AND LENGTH OF LINE                 FEAT126A  972
          1125  21474                             AX4    60                                                      FEAT126A  973
                     76610                        SX6    B1                                                      FCC1200    28
                          15324                   BX3    -X4*X2                                                  FEAT126A  975
          1126  7140000003                        SX4    3           LENGTH OF TITLE                             FEAT126A  976
                          54630                   SA6    A3          RESET LINE COUNT                            FEAT126A  977
          1127  0313001166 +                      NZ     X3,WOF5     IF L=0 AND IN PW MODE                       FEAT126A  978
                          5140000000 X            SA4    CP.PAGE                                                 MAIN     1712
          1130  0324001134 +                      PL     X4,WOF1     IF PAGE PROPAGATION                         MAIN     1714
                          43001                   MX0    1                                                       MAIN     1715
                               13440              BX4    X4-X0       CLEAR NON-PROPAGATION FLAG                  MAIN     1716
          1131  73741                             SX7    X4+B1       ADVANCE PAGE NUMBER                         MAIN     1717
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    53
        COMFRNC - READ NEXT CARD.                                     WOF 
  
                     22107                        LX1    X7                                                      MAIN     1718
                          20401                   LX4    1                                                       FCCA473    23
          1132  0304001133 +                      ZR     X4,WOF0     IF CP.PAGE IS NOT SET                       FCCA473    24
                          43002                   MX0    2                                                       FCCA473    25
          1133  20473                    WOF0     LX4    59                                                      FCCA473    26
                     12770                        BX7    X7+X0       RESTORE FLAG                                MAIN     1719
                          0400001135 +            EQ     WOF2                                                    MAIN     1720
          1134  73741                    WOF1     SX7    X4+B1       ADVANCE PAGE NUMBER                         MAIN     1721
                     22107                        LX1    X7                                                      MAIN     1722
          1135  54740                    WOF2     SA7    A4                                                      FEAT126A  979
                     0327001136 +                 PL     X7,WOF3     IF PAGE PROPAGATION                         MAIN     1728
                               13770              BX7    X7-X0       CLEAR NON-PROPAGATION FLAG                  MAIN     1729
          1136  0100000000 X             WOF3     RJ     CDD         CONVERT PAGE NUMBER                         FEAT155E  295
          1137  76040                             SX0    B4          SAVE (B4)                                   MAIN     1739
                     43430                        MX4    -6*CHAR                                                 FCC1328X  536
                          5120000000 X            SA2    =XCP.PW                                                 CP139FC   199
          1140  15664                             BX6    -X4*X6                                                  FEAT126A  984
                     6236222243                   SB3    X6-1A1      FOR TEST OF THE FIRST PAGE                  FCCA410    18
          1141  0312001162 +                      NZ     X2,WOF4     IF PW MODE                                  FEAT126A  985
                          20630                   LX6    10*CHAR-6*CHAR                                          FCC1328X  537
          1142  5160000000 X                      =A6    TL.PAGE                                                 FEAT126A  987
                          0530001154 +            NZ     B3,WOF3A    IF NOT FIRST PAGE                           FCCA410    19
          1143  5140000000 X                      SA4    =XCP.LSTF                                               FCCA473    27
                          0304001154 +            ZR     X4,WOF3A    IF L = 0                                    FCCA473    28
          1144  5140000000 X                      SA4    =XCP.PAGE                                               FCCA473    29
                          20401                   LX4    1                                                       FCCA473    30
          1145  0334001154 +                      MI     X4,WOF3A    IF PD IS ALREADY WRITTEN OUT TO OUTPUT      FCCA473    31
                          20473                   LX4    59                                                      FCCA473    32
                               76210              SX2    B1                                                      FCCA473    33
          1146  20272                             LX2    58                                                      FCCA473    34
                     12642                        BX6    X4+X2                                                   FCCA473    35
                          5160000000 X            SA6    =XCP.PAGE   SET WRITE TO FILE BIT                       FCCA473    36
          1147  5140000000 X                      SA4    =XCP.PD                                                 FCCA473    37
                          5120001214 +            SA2    =24550000000000000000B                                  FCCA534    17
          1150  37224                             IX2    X2-X4                                                   FCCA473    39
                     0332001154 +                 MI     X2,WOF3A    IF PD=6, DONOT OUTPUT PD                    FCCA534    18
          1151  6160000000 X                      WRITEC F.OUT,CP.PD,1                                           FCCA410    22
          1153  43600                             MX6    0                                                       FCCA422    48
                     5160000000 X                 SA6    PDFLAG      TURN PDFLAG OFF                             FCCA422    49
          1154  6160000000 X             WOF3A    WRITEC F.OUT,O.TITL,L.TITL                                     FCCA410    23
          1156  5120000000 X                      SA2    =XO.STITL                                               FEAT155H  111
                          63220                   SB2    X2                                                      FEAT155H  112
                               21236              AX2    30                                                      FEAT155H  113
          1157  63320                             SB3    X2                                                      FEAT155H  114
                     66620                        WRITEC F.OUT,B2,B3                                             FEAT155H  115
          1161  0400001170 +                      EQ     WOF6                                                    FEAT155H  116
                                                                                                                 FEAT126A  990
          1162  5110777776 X             WOF4     SA1    =XTL.PAGE-1 (X1) = PAGE......   (.=BLANK(55B))          FCC1328X  538
                          11141                   BX1    X4*X1                                                   FEAT126A  992
                               12661              BX6    X6+X1                                                   FEAT126A  993
          1163  54610                             SA6    A1                                                      FEAT126A  994
                     6160000000 X                 WRITEC F.OUT,=XO.TTLA,=XL.TTLA                                 FEAT126A  995
          1165  7140000000 X                      SX4    =XL.TTLB                                                FEAT126A  996
          1166  6160000000 X             WOF5     WRITEC F.OUT,=XTL.PTYP,X4                                      FEAT126A  997
          1170  6160001215 +             WOF6     WRITEC F.OUT,HDRBL,1                                           FEAT126A  998
          1172  63400                             SB4    X0          RESTORE (B4)                                MAIN     1743
                     5110001174 +                 SA1    WOFA                                                    MAIN     1744
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    54
        COMFRNC - READ NEXT CARD.                                     WOF 
  
                               73210              SX2    X1          RESTORE LENGTH                              FEAT126A  999
          1173  21136                             AX1    30          RESTORE FWA                                 FEAT126A 1000
                     0400001104 +                 EQ     WOF7                                                    FEAT126A 1001
                                                                                                                 MAIN     1746
          1174                     1     WOFA     BSS    1           SAVE CELL FOR ENTRY PARAMETER               MAIN     1759
                                                                                                                 MAIN     1760
                                1215 +   HDRBL    LIT    2L                                                      FEAT126C  128
                                                                                                                 MAIN     1762
                                                  LIST   D                                                       MAIN     1763
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        END96 
             0 X                        PWE 
             0 X                        T.SB
             0 X                        HDELAY
             0 X                        T=SB
             0 X                        TLV 
             0 X                        CO.ER 
             0 X                        OTROP 
             0 X                        CO.ID 
             0 X                        DOORD 
             0 X                        TS.STN
             0 X                        CP.PW 
             0 X                        SLIST 
             0 X                        COMMENT 
             0 X                        MVE 
             0 X                        CP.IFMT 
             0 X                        RDC=
             0 X                        L.MAXCD 
             0 X                        L.CARD
             0 X                        CIO=
             0 X                        LDCOM 
             0 X                        ALC.00
             0 X                        ALC.REG 
             0 X                        WTC=
             0 X                        CP.LSTF 
             0 X                        CP.PD 
             0 X                        O.STITL 
             0 X                        O.TTLA
             0 X                        L.TTLB
             0 X                        TL.PTYP 
  
                                        CONTENT OF LITERALS BLOCK.
  
          1175  55555555554646555555         -- 
          1176  55555555550000000000
          1177  55555555555555555555
          1200  00000000077740000000        G;5 
          1201  05050505050505000000    EEEEEEE 
          1202  40404040404040000000    5555555 
          1203  00000000000000000000
          1204  55555573737373555555       >>>> 
          1205  00001411232456011414      LIST,ALL
          1206  00141123245616171605     LIST,NONE
          1207  40404040404040404040    5555555555
          1210  11040516240000000000    IDENT 
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    55
        COMFRNC - READ NEXT CARD.                                     LITERALS
  
          1211  04000000000004200000    D     DP
          1212  03505555555500000000    C/
          1213  00555555555555555555
          1214  24550000000000000000    T 
          1215  55550000000000000000
  
          1216                                    END                                                            MAIN     1764
  
                             56200B CM  STORAGE USED             3967 STATEMENTS     1093 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            3.024 SECONDS        1132 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACD           207   PROGRAM*        9/56     12/35 L   14/12
        ACD1          213   PROGRAM*       12/44 L   12/53
        ACD2          214   PROGRAM*       12/46 L   13/06
        ACD3          217   PROGRAM*       12/45     12/55 L   13/05
        ACD4          223   PROGRAM*       12/57     13/10 L   13/26
        ACD5          230   PROGRAM*       13/20     13/24 L
        AFS           120   PROGRAM*        5/09      9/06 L
        AFSC          206   PROGRAM*       10/19     11/56 L   27/53
        AFS10         131   PROGRAM*        9/22      9/28 L
        AFS10A        142   PROGRAM*        9/49      9/54 L
        AFS11         144   PROGRAM*        9/47      9/56 L
        AFS12         150   PROGRAM*        9/36     10/15 L
        AFS15         154   PROGRAM*       10/24     10/30 L
        AFS20         156   PROGRAM*        9/52     10/09     10/11     10/36 L   11/24
        AFS67         170   PROGRAM*       10/49     10/53     11/10 L
        AFS78         175   PROGRAM*       11/09     11/12     11/14     11/19     11/29 L
        AFS.EOS        44   PROGRAM*        5/44 L   11/54
        AFS.ME        201   PROGRAM*        2/15 E    9/29      9/34     11/44 L
        AFS.MS        117   PROGRAM*        8/56 L    9/11
        ALC             0   EXTERNAL*       2/41 X   20/42     28/16     32/52     34/32     44/46
        ALC.REG         0   EXTERNAL*      51/12 S
        ALC.00          0   EXTERNAL*      51/09
        ALN           231   PROGRAM*       14/02 L   49/15
        ALNA          241   PROGRAM*       14/13     14/21 L
        ALN1          235   PROGRAM*       14/09     14/11 L
        AMODE           0   EXTERNAL*       2/18 X   21/04     26/06     37/11
        ANS.CONT       23   TSTEXT         11/36
        ASFLEN          0   EXTERNAL*       2/22 X    6/51 S
        ASF.            0   EXTERNAL*       3/05 X   31/06
        ASK           246   PROGRAM*        2/12 E    7/52     15/26 L   17/54     29/16
        ASK1          254   PROGRAM*       15/37     15/43 L
        ASK2          257   PROGRAM*       15/24     15/52 L
        ASK4          270   PROGRAM*       16/15     16/20 L   16/34
        ASK6          276   PROGRAM*       16/22     16/23     16/25     16/38 L
        ASK7          300   PROGRAM*       16/43 L   16/47
        ASK8          244   PROGRAM*       15/20 L   15/57
        ASL           302   PROGRAM*        2/12 E   17/20 L
        ASL1          305   PROGRAM*       17/26 L   17/32
        ASL2          311   PROGRAM*       17/28     17/36 L
        ASL3          313   PROGRAM*       17/34     17/42 L
        ASL4          314   PROGRAM*       17/41     17/45 L
        ASL5          321   PROGRAM*       17/46     18/01 L
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        ASL6          323   PROGRAM*       18/03     18/07 L
        BLANK           0   EXTERNAL*       2/44 X    5/25
        BLL           327   PROGRAM*        2/14 E   18/41 L   36/53
        BLL1          332   PROGRAM*       18/43     18/47 L
        BLL10         347   PROGRAM*       18/53 S   19/15     19/28 L
        BLL2          334   PROGRAM*       18/36     18/52 L
        BLL3          342   PROGRAM*       19/11     19/14 L
        BLL4          324   PROGRAM*       18/33 L   18/51
        BUL           353   PROGRAM*       10/36     20/29 L   25/27
        BUL1          362   PROGRAM*       20/39     20/50 L
        BUL10         374   PROGRAM*       21/09     22/37 L   22/48     23/05     23/33
        BUL11         377   PROGRAM*       22/43     22/48 L
        BUL12         400   PROGRAM*       22/53 L   23/08
        BUL13         401   PROGRAM*       23/03 L
        BUL14         403   PROGRAM*       22/55     23/25 L
        BUL15         407   PROGRAM*       21/05     21/18     23/26     23/27     23/28     23/37 L
        BUL2          365   PROGRAM*       20/56     21/01 L
        BUL3          366   PROGRAM*       20/51     21/04 L
        BUL5          373   PROGRAM*       21/11     21/53 L
        CAI             0   EXTERNAL*       3/14 X   34/48
        CARDS           0   EXTERNAL*       2/22 X   40/36     43/15     46/48
        CCNT            0   EXTERNAL*       2/22 X    9/18 S   10/48     11/35     28/07     41/23     43/12
        CDD             0   EXTERNAL*       2/22 X   44/04     53/13
        CHAR            6   TSTEXT          9/48     12/52     14/06     20/54     23/31     29/09     32/56     49/48
                                            9/54     13/01     15/27     20/55     23/38     29/56     40/09     49/51
                                           10/17     13/03     15/36     21/02     27/32     30/03     43/21     50/02
                                           10/20     13/15     15/38     21/08     27/40     30/10     43/28     50/04
                                           10/31     13/16     15/44     22/40     27/54     30/24     44/10     50/06
                                           11/02     13/17     15/48     22/42     27/57     30/25     47/06     50/21
                                           11/06     13/24     15/53     23/04     28/26     31/15     49/39     53/15
                                           12/37     14/03     17/42     23/30     29/01     31/25     49/42     53/20
        CIO=            0   EXTERNAL*      49/24
        CLO           412   PROGRAM*       11/18     25/14 L   41/13
        CLOA          440   PROGRAM*       25/24 S   25/32     26/30 L
        CLO1          413   PROGRAM*       25/15 L   26/16
        CLO2          423   PROGRAM*       25/44 L   25/50
        CLO3          426   PROGRAM*       25/44     25/54 L
        CLO3A         433   PROGRAM*       26/09     26/12 L
        CLO4          436   PROGRAM*       25/57     26/20 L
        CLO5          437   PROGRAM*       26/02     26/26 L
        CNT           441   PROGRAM*       11/23     27/29 L   41/18
        CNTA          465   PROGRAM*       27/44 S   28/28     28/32 L
        CNT2          451   PROGRAM*       27/33     27/52 L
        CNT3          454   PROGRAM*       27/45     27/48     28/07 L
        CNT4          461   PROGRAM*       28/15     28/18 L
        COMMENT         0   EXTERNAL*      43/09     44/08     50/36 S
        CONTIN=         0   EXTERNAL*       2/47 X
        CO.ER           0   EXTERNAL*      32/49
        CO.ID           0   EXTERNAL*      33/20
        CO.MODE         0   EXTERNAL*       2/18 X   20/50     27/30     43/13     50/25
                                            9/35     23/25     28/24     49/10
        CO.SNAP         0   EXTERNAL*       2/18 X
        CPM            25   PROGRAM*        2/09 E    5/04 L
        CPM1           27   PROGRAM*        5/09 L    8/19      8/20
        CPM1A          41   PROGRAM*        5/30      5/33 L
        CPM2           47   PROGRAM*        2/09 E    6/14 L
        CPM3           50   PROGRAM*        6/22 L    6/43      6/52
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        CPM5          102   PROGRAM*        2/09 E    7/36      7/37      7/39 L
        CPM6          107   PROGRAM*        2/09 E    7/50      7/57 L
        CPM8          111   PROGRAM*        5/33      8/15 L
        CPM=            0   PROGRAM*        3/38 L    6/27
        CPM=ASF         3                   2/10 E    3/44 L
        CPM=BY          5                   2/10 E    3/46 L    4/07
        CPM=DAT         6                   2/12 E    3/49 L
        CPM=DEC         2                   2/13 E    3/43 L    6/41
        CPM=END         5                   2/12 E    3/47 L
        CPM=EXU         4                   2/12 E    3/45 L    6/47
        CPM=FMT         7                   2/13 E    3/50 L
        CPM=IMP         1                   2/10 E    3/42 L
        CPM=NTR        10                   2/12 E    3/51 L
        CPM=OK         13                   2/12 E    3/54 L
        CPM=TPE        12                   2/13 E    3/53 L
        CPM=TYP        11                   2/13 E    3/52 L
        CPM=1ST         0                   2/09 E    3/41 L
        CPM.           54   PROGRAM*        6/34      6/36 L
        CPM.ASF         2                   3/44      3/45      3/47      3/49      6/45 L
        CPM.BY         16                   3/41      3/43      3/45      3/50      3/52      7/13 L
                                            3/42      3/44      3/49      3/51      3/53
        CPM.DEC         1                   3/43      3/44      3/45      3/47      3/49      3/51      3/52      6/41 L
        CPM.EMA         7                   3/44      6/56 L
        CPM.EMD        10                   3/43      3/52      3/53      6/57 L
        CPM.EMH        11                   3/41      7/01 L
        CPM.EMI        12                   3/42      7/02 L
        CPM.EMT        13                   3/47      7/08 L
        CPM.EXU         3                   3/45      3/47      6/47 L
        CPM.FMT         6                   3/50      6/54 L
        CPM.IMP         0                   3/42      3/43      3/44      3/45      3/49      3/50      3/51      6/39 L
        CPM.MT         44   PROGRAM*        5/43 L    8/25
        CPM.OK         20                   3/41      3/43      3/45      3/49      3/52      3/54
                                            3/42      3/44      3/47      3/51      3/53      7/18 L
        CP.CARD         0   EXTERNAL*       2/18 X    9/19     26/08     26/10     46/53     46/54
        CP.FLIN         0   EXTERNAL*       2/18 X    7/15 S   44/12 S   44/24     44/50
        CP.IFMT         0   EXTERNAL*      46/49
        CP.LSTF         0   EXTERNAL*      52/40     53/23
        CP.PAGE         0   EXTERNAL*       2/19 X   52/53     53/25     53/32 S
        CP.PD           0   EXTERNAL*      53/33     53/37
        CP.PW           0   EXTERNAL*      36/23     36/54     52/11     52/43     53/16
        CR.REF         55   TSTEXT         50/57
        CSB           606   PROGRAM*        2/12 E   32/48     34/21     34/24 L
        CSBX          603   PROGRAM*       34/16 L   34/46     34/49
        CSB5          616   PROGRAM*       34/28     34/46 L
        CSB6          617   PROGRAM*       34/42     34/48 L
        CSK           466   PROGRAM*        2/11 E   28/57 L
        CSK2          470   PROGRAM*       29/05 L   29/11
        CSK4          473   PROGRAM*       29/10     29/14 L
        CSLIST          0   EXTERNAL*       2/22 X   25/31     40/04     41/04 S   43/45
        CSNTAG          0   EXTERNAL*       2/22 X   32/47     33/36     51/05 S
        CSSTMT          0   EXTERNAL*       2/22 X   25/15     25/40 S   40/06     50/15
        CST           477   PROGRAM*        2/12 E    5/38     29/45 L
        CSTJX         476   PROGRAM*       29/43 L   30/18     30/45     31/02     31/07     31/08     31/10
        CST10         512   PROGRAM*       30/05     30/21 L
        CST15         522   PROGRAM*       30/38     30/41 L
        CST17         524   PROGRAM*       30/40     30/44 L
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        CST20         525   PROGRAM*       30/11     30/22     30/33     30/39     30/49 L
                                           30/13     30/27     30/35     30/43
        CST22         531   PROGRAM*       30/53     31/01 L
        CST50         537   PROGRAM*       30/49     31/14 L
        CST55         541   PROGRAM*       31/22 L   31/27
        CST.BOS         0   EXTERNAL*       3/17 X    7/47      7/47     11/53 S   30/01 S   30/56 S
        CUA             0   EXTERNAL*       3/08 X    5/14
        CUAFLAG         0   EXTERNAL*       3/08 X    5/13 S    5/16 S
        CURST           0   EXTERNAL*       3/11 X   34/18     34/41 S
        CUS           544   PROGRAM*        7/30     32/04 L
        CUSX           76   PROGRAM*        2/09 E    7/29      7/32 L   33/43     33/51     33/52
        CUS3          551   PROGRAM*       32/12     32/28 L
        CUS4          565   PROGRAM*       33/09     33/12 L
        CUS5          572   PROGRAM*       32/50     33/21     33/24     33/34 L
        CUS6          575   PROGRAM*       33/39     33/41 L
        CUS.RET       554   PROGRAM*        2/09 E   32/29     32/46 L
        DEFERL          0   EXTERNAL*       2/23 X
        DOORD           0   EXTERNAL*      33/23
        DO.             0   EXTERNAL*       3/05 X   30/17
        DTI             0   EXTERNAL*       2/23 X    7/34     51/02 S
        DXB             0   EXTERNAL*       2/23 X   43/20
        END96           0   EXTERNAL*       4/12
        END=            0   EXTERNAL*       2/47 X   33/45
        ENTRY=          0   EXTERNAL*       2/47 X   33/06     33/48
        EOS             0   EXTERNAL*       3/05 X   11/44
        E.ANS1          0   EXTERNAL*       2/33 X    4/19
        E.FM            0   EXTERNAL*       2/33 X    5/40     15/42
        E.MA            0   EXTERNAL*       2/33 X    6/56
        E.MB            0   EXTERNAL*       2/33 X    6/13
        E.MCA           0   EXTERNAL*       2/33 X   11/38
        E.MC1           0   EXTERNAL*       2/33 X    9/55     10/25
        E.MD            0   EXTERNAL*       2/33 X    6/57
        E.MDO           0   EXTERNAL*       2/33 X    7/38
        E.MH            0   EXTERNAL*       2/34 X    7/01
        E.MI            0   EXTERNAL*       2/34 X    7/02
        E.MK            0   EXTERNAL*       2/34 X    7/53     29/17
        E.ML            0   EXTERNAL*       2/34 X    8/21
        E.MLNL          0   EXTERNAL*       2/34 X   41/30
        E.MT            0   EXTERNAL*       2/34 X    7/09      7/11
        E.NLN           0   EXTERNAL*       2/34 X   49/26
        E.NP            0   EXTERNAL*       2/34 X   33/53
        E.SN16          0   EXTERNAL*       2/35 X    4/35
        E.TYH           0   EXTERNAL*       2/35 X   29/03
        FILL.           0   EXTERNAL*       2/35 X   32/15 S
        FILL.2          0   EXTERNAL*       2/35 X   15/46 S
        FIRSTV          0   EXTERNAL*       2/23 X   29/46     31/03     31/14
        FLOW            0   EXTERNAL*       2/23 X   33/37     33/41 S
        FORMAT=         0   EXTERNAL*       3/02 X    6/54
        F.IN            0   EXTERNAL*       2/19 X   46/53
        F.OUT           0   EXTERNAL*       2/19 X   51/53     53/37     53/45     53/54
                                           49/24     52/30     53/40     53/52     53/55
        GSN             0   EXTERNAL*       3/08 X   32/16
        GSNX          551   PROGRAM*        2/11 E   32/27 L
        HANGER          0   EXTERNAL*       2/24 X   32/28
        HDELAY          0   EXTERNAL*       7/08      9/13     36/02 S   41/43     44/06
        HDRBL        1215   PROGRAM*        2/10 E   51/53     53/55     54/07 L
        ICONL           0   EXTERNAL*       2/24 X    4/26
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        IFS.X         102   PROGRAM*        2/10 E    7/45 L
        IF.             0   EXTERNAL*       3/05 X   30/44
        INIF            0   EXTERNAL*       2/50 X   51/06 S
        LASTCOL         0   EXTERNAL*       2/24 X    9/17 S   11/29     23/44 S   25/33
                                            5/29 S   10/50     11/50 S   25/20     27/31
        LCNT            0   EXTERNAL*       2/24 X   51/32 S   51/41     52/34
        LCP.PS          0   EXTERNAL*       2/18 X   51/30     51/46     52/35
        LDB           621   PROGRAM*        7/10     35/37 L   35/37 E   40/41     44/22     49/23
        LDB2          624   PROGRAM*       35/43 L   35/56
        LDB3          630   PROGRAM*       35/43     36/01 L
        LDCOM           0   EXTERNAL*      49/25
        LGR             0   EXTERNAL*       3/05 X    8/23     11/45     29/14     29/43     31/22
        LG.LEN          0   EXTERNAL*       3/05 X   31/16
        LG.LN           5                  13/56 D   14/11
        LG.STN          5   TSTEXT          9/45
        LOP=O           0   EXTERNAL*       2/19 X   40/45 S   40/54 S
        LOP=X           0   EXTERNAL*       2/19 X    4/17
        LSL           654   PROGRAM*        2/11 E   35/50     37/10 L   44/25
        LSL50         632   PROGRAM*       36/23 L   37/12
        LSL51         636   PROGRAM*       36/33 L   36/36     36/39
        LSL52         641   PROGRAM*       36/37     36/41 L
        LSL53         642   PROGRAM*       36/45 L   37/01
        LSL54         650   PROGRAM*       36/47     37/03 L
        LSL55         652   PROGRAM*       36/25     37/06 L
        LSS           660   PROGRAM*        2/14 E   18/52     38/32 L
        LSS10         663   PROGRAM*       38/37 L   38/45
        LSS20         657   PROGRAM*       38/30 L   38/33
        L.CARD          0   EXTERNAL*       9/12     26/07     44/09     47/56 S
        L.MAXCD         0   EXTERNAL*      47/36
        L.MAXDL       404                  44/20     44/57 D
        L.SCPM          5   TSTEXT          6/23
        L.SLEN          7   TSTEXT         15/33     17/48
        L.STN          36   TSTEXT         10/15
        L.TITL          0   EXTERNAL*       2/19 X
        L.TTLB          0   EXTERNAL*      53/53
        L.TURP          3   TSTEXT         32/52     33/02     34/14     34/32
        MLOP=O          0   EXTERNAL*       2/25 X   40/50
        MOD             0   EXTERNAL*       2/24 X    6/08      7/26
        MSF             0   EXTERNAL*       2/25 X    9/01 S
        MULS            0   EXTERNAL*       2/25 X    5/26      9/08
        MVE             0   EXTERNAL*      44/53
        M.PBLK        400   TSTEXT          6/09
        M.SNEX        100   TSTEXT         33/29
        NOLIST          0   EXTERNAL*       2/25 X   40/05     40/39 S   40/44 S   43/08
        NOPATH          0   EXTERNAL*       2/25 X   33/35
        NOREL           0   EXTERNAL*       2/25 X
        NSK             0   EXTERNAL*       2/25 X    8/15
        NULL            0   EXTERNAL*       3/05 X    8/22
        OPBSS           0   EXTERNAL*       2/26 X   34/33
        OR.OPR          0   TSTEXT         33/17
        OR.1OP          1   TSTEXT         33/15     33/17
        OR.2OP          2   TSTEXT         33/02     33/15
        OTROP           0   EXTERNAL*      32/55
        O.CONS          2   TSTEXT         16/16     17/21     18/04
        O.HOLL          1   TSTEXT         16/24
        O.SEP           4   TSTEXT         15/54     16/21     30/42
        O.STITL         0   EXTERNAL*      53/41
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        O.TITL          0   EXTERNAL*       2/19 X   53/40
        O.TTLA          0   EXTERNAL*      53/52
        O.VAR           3   TSTEXT         16/13     18/04     30/52
        O.(            10   TSTEXT         30/32     31/01
        PAR.TH        226                  34/14 D   34/17
        PASS            0   EXTERNAL*       2/26 X    4/09
        PASS=END        4   TSTEXT          4/10
        PCD             0   EXTERNAL*       2/53 X    6/45
        PCDX           50   PROGRAM*        2/10 E    6/19 L
        PDFLAG          0   EXTERNAL*       2/18 X   53/39 S
        PLO           666   PROGRAM*        2/15 E    9/33     40/03 L
        PLO2          667   PROGRAM*       40/04 L   41/44     41/46
        PLO3          676   PROGRAM*       40/25     40/32 L
        PLO4          701   PROGRAM*       40/38     40/41 L
        PLO5          705   PROGRAM*       40/32     40/50 L
        PLO6          710   PROGRAM*       40/30     40/46     41/02 L   41/21
        PLO7          715   PROGRAM*       40/11     41/13 L
        PLO8          721   PROGRAM*       41/08     41/11     41/14     41/19     41/23 L
        PLO9          724   PROGRAM*       41/24     41/43 L
        PLR           727   PROGRAM*        2/15 E   10/37     40/29     40/42     40/55     41/20     43/01 L   50/37
        PLR2          741   PROGRAM*       43/16     43/26 L
        PLR3          743   PROGRAM*       43/27     43/45 L
        PLR4          747   PROGRAM*       43/43     43/46     44/04 L
        PLR5          750   PROGRAM*       43/19     43/24     44/02     44/06 L
        PLR6          756   PROGRAM*       44/19     44/24 L
        PLR7          760   PROGRAM*       44/18     44/41 L
        PLR8          761   PROGRAM*       44/21     44/43 L
        PSF             0   EXTERNAL*       2/38 X    6/39
        PSFX           50   PROGRAM*        2/10 E    6/20 L
        PSP            23   PROGRAM*        2/09 E    4/18      4/33 L
        PSP.A          17   PROGRAM*        4/17 L
        PSP.C          21   PROGRAM*        2/09 E    4/26 L
        PSP.F          25   PROGRAM*        2/09 E    4/11      4/34      4/40 L    7/16
        PSP.Z          14   PROGRAM*        2/14 E    4/07 L
        PWE             0   EXTERNAL*       4/35      7/38      8/21      9/55     10/25     41/30     49/26
        P.             73   TSTEXT          7/27      7/28      7/35     31/08     34/27
        P.ARY          10   TSTEXT         31/08
        P.PBLK         10   TSTEXT          6/11      7/27
        P.SBKD         31   TSTEXT          6/11
        P.SCDS         32   TSTEXT         34/27
        P.SCPM         37   TSTEXT          6/25
        P.SDON         36   TSTEXT          7/35
        P.SGEN         33   TSTEXT          7/28     32/06
        P.SLBL         34   TSTEXT         32/06
        P.SLEN         22   TSTEXT         15/31     17/51
        P.TRC          22   TSTEXT         32/56
  U     QUAL$                              46/06 F   48/01 F
        RDC=            0   EXTERNAL*      46/53
        REFLIN          0   EXTERNAL*       2/26 X   32/53     43/22 S   43/29 S
        REFNUM          0   EXTERNAL*       2/27 X   51/04 S
        REFVAR          0   EXTERNAL*       2/27 X   51/07 S
        REP.            0   EXTERNAL*       3/05 X   30/50     31/09     31/09
        RNC           770   PROGRAM*        2/13 E   10/43     41/05     48/03 D   48/05 E   50/38
        RNS          1014   PROGRAM*        2/15 E    9/28     11/13     26/15     41/10     49/09 L
        RNS0         1015   PROGRAM*       49/10 L   50/41
        RNS0A        1025   PROGRAM*       49/22     49/26 L
        RNS1         1027   PROGRAM*       49/16     49/29 L
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        RNS1A        1031   PROGRAM*       49/38 L   49/49
        RNS1B        1034   PROGRAM*       49/44     49/48 L
        RNS2         1037   PROGRAM*       49/11     50/02 L
        RNS2A        1042   PROGRAM*       49/55     50/13 L
        RNS3         1050   PROGRAM*       49/27     50/19     50/24     50/34 L
        RSC          1055   PROGRAM*        5/07     50/53 L
        SB.HEAD         6   TSTEXT          5/23      5/37     10/08 S   10/33 S   11/34
                                            5/23      9/14     10/33     10/51     11/49
        SB.STNL         0   EXTERNAL*       2/27 X    4/33     11/48 S   32/07     32/54
        SB.STNR         0   EXTERNAL*       2/27 X    5/18 S    8/16     32/05
        SCR             0   EXTERNAL*       3/17 X   17/52 S   17/55
        SEQNO         242   PROGRAM*        9/40     14/17 S   14/28 L   43/18
        SLIST           0   EXTERNAL*      43/07
        SSY             0   EXTERNAL*       2/41 X   31/05
        STAGE           0   EXTERNAL*       2/27 X    4/08 S    6/24
        STN             0   EXTERNAL*       2/27 X   32/14 S   51/03 S
        TAB             0   EXTERNAL*       2/44 X    5/24
        TABX.F         43   PROGRAM*        2/10 E    5/39 L
        TEST            0   TSTEXT          5/47 F   35/45 F   40/19 F   43/48 F
        TLV             0   EXTERNAL*      30/54
        TL.PAGE         0   EXTERNAL*       2/19 X   53/21     53/21 S   53/48
        TL.PTYP         0   EXTERNAL*      53/54
        TP=DO           0   EXTERNAL*       2/29 X   34/38
        TS=CON          0   EXTERNAL*       2/27 X    4/27      4/27 S   51/08
        TS=CONB         0   EXTERNAL*       2/29 X   51/11     51/11 S
        TS.STN          0   EXTERNAL*      33/26
        TS.SYM          0   EXTERNAL*       2/27 X   31/05     31/05
        TT=ASF          0   EXTERNAL*       2/29 X    6/48
        TT=PAR          0   EXTERNAL*       2/29 X   34/16
        TT.PAR          0   EXTERNAL*       2/29 X   32/52     34/32
        TYPC            0   EXTERNAL*       2/56 X   51/01 S
        T=DLBUF         0   EXTERNAL*       2/28 X    9/23 S   35/52     36/03 S   41/45 S   44/44
                                            9/23     35/39     36/03     41/45     44/07
        T=SB            0   EXTERNAL*       5/32 S   20/33     28/11
        T.DLBUF         0   EXTERNAL*       2/28 X   35/38     44/43
        T.SB            0   EXTERNAL*       5/04     20/34     20/42     28/08     28/16
        UEC             0   EXTERNAL*       2/35 X    7/46     50/54
        WBL          1073   PROGRAM*        2/11 E   51/40 L
        WBL2         1100   PROGRAM*       51/53 L   51/55
        WBL6         1067   PROGRAM*       51/30 L   51/51
        WBL8         1071   PROGRAM*       51/34 L   51/57
        WOF          1117   PROGRAM*        2/11 E   19/14     37/03     37/08     51/38     52/33 L
        WOFA         1174   PROGRAM*       51/34     51/49 S   52/46 S   53/57     54/05 L
        WOF0         1133   PROGRAM*       53/03     53/05 L
        WOF1         1134   PROGRAM*       52/54     53/08 L
        WOF2         1135   PROGRAM*       53/07     53/10 L
        WOF3         1136   PROGRAM*       53/11     53/13 L
        WOF3A        1154   PROGRAM*       53/22     53/24     53/27     53/36     53/40 L
        WOF4         1162   PROGRAM*       53/19     53/48 L
        WOF5         1166   PROGRAM*       52/52     53/54 L
        WOF6         1170   PROGRAM*       53/46     53/55 L
        WOF7         1104   PROGRAM*       52/09 L   52/39     54/03
        WOF8         1110   PROGRAM*       52/15     52/17 L
        WOF9         1114   PROGRAM*       52/10     52/12     52/30 L
        WTC=            0   EXTERNAL*      51/53     52/30     53/37     53/40     53/45     53/52     53/54     53/55
        ZLCOMMA         0   EXTERNAL*       2/29 X   30/09
        ZLE             0   EXTERNAL*       2/29 X   29/57 S
1       /MAIN  MASTER STATEMENT RECOGNITION.                          COMPASS 3.7-871.     24/05/02. 15.51.53.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        ZLEQUAL         0   EXTERNAL*       2/29 X   29/54
        ZLPAREN         0   EXTERNAL*       2/30 X   30/34
        .FID            1   TSTEXT         33/04 F   33/19 F
        #NL             1   TSTEXT         24/01 F   39/01 F   49/34 F   50/14 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFRNC 
  
  
        RNC           770   PROGRAM*       46/47 L   48/03
        RNC2         1002   PROGRAM*       47/04     47/18 L
        RNC3         1006   PROGRAM*       47/09     47/13     47/34 L
        RNC4         1010   PROGRAM*       47/37     47/43 L
        RNC5         1012   PROGRAM*       46/57     47/43     47/52 L
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1055              IDENT  LEX
                       1055                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1051 
                                        LITERALS* LOCAL        1051         4 
  
  
                                        ENTRY POINTS. 
  
                                        TAB.NX         373+           S=CONT           1            THC            561+ 
                                        TAB.STR        410+           SLT           1042+           TSC            615+ 
                                        TAB.LP         372+           S=STR           14            S.NLST         745+ 
                                        TAB.RP         413+           S.BUFIO        761+           S.RANDM        756+ 
                                        TAB.DOL        416+           S.IOCAL        725+           TSF            767+ 
                                        TAB.=          420+           S.ENDFI        754+           DEC             37+ 
                                        TAB.CO         423+           S.REWIN        757+           STY            346+ 
                                        S.END          762+           S.BKSP         753+           S=FREE           4
                                        S.PAUSE        763+           TAB.PD         467+           BLANK          552+ 
                                        S.ERR          747+           NAT.TYP        354+           OCT            332+ 
                                        S=BIN           10            S.Q2NTR        750+           TLV            600+ 
                                        S=INP            0            TAB            364+           S.FTNRP        765+ 
                                        S=OUT            2            S.ACGOR        752+           S.FID          766+ 
                                        S=COD            0            TRV            651+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        LOP=R     MAPCHAR   ZLCOMMA   E.DC9     E.SU4A    L.CL      FORMAT    ENTRY.
                                        CALL      REFVAR    CLASS     E.HC1     E.TE5     ERT       L.FIV     CHARMAP 
                                        DOORD     TS=CON    E.DC      E.HC2     E.US1     NEXT      E.FIV     E.TE7 
                                        FIRSTV    TS.CON    E.DC1     E.HC3     E.VA1     ESY       DECA      SB.STNR 
                                        ICONL     TS.SYM    E.DC2     E.HC4     E.VA2     NCM       HOLLSKL   E.HC5 
                                        LG.LOG    TS.STN    E.DC3     E.LP1     E.ZA      SSY       TRVA      PSN 
                                        LOGT      ZLPAREN   E.DC6     E.LP2     FILL.     TABX.F    PTN3      PWE 
                                        MULS      ZLEQUAL   E.DC8     E.SU4     FILL.2    LGR       NAM20     ANSI= 
  
  
  
  
                                                  IDENT  LEX                                                     LEX         2
                                         LEX      SECT   (LEXICAL SCANNERS),1                                    LEX         3
  
                                                                                                                 LEX         4
                                                  SST    A,B,C,D,Z,EXIT.                                         LEX         5
                                                  NOREF  A,B,C,D,Z,EXIT.                                         LEX         6
                                                                                                                 LEX         7
                                         B=LEX    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     LEX         8
                                                                                                                 LEX         9
                                                  ENTRY  TAB.NX,TAB.STR,TAB.LP,TAB.RP,TAB.DOL,TAB.=,TAB.CO       LEX        10
                                                  ENTRY  S.END,S.PAUSE,S.ERR,S=BIN,S=INP,S=OUT,S=COD,S=CONT,SLT  LEX        11
                                                  ENTRY  S=STR,S.BUFIO,S.IOCAL,S.ENDFI,S.REWIN,S.BKSP            LEX        12
                                                  ENTRY  TAB.PD,NAT.TYP,S.Q2NTR,TAB,S.ACGOR,TRV,THC,TSC          F162FTNA  716
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     2
  
  
                                                  ENTRY  S.NLST,S.RANDM,TSF,DEC,STY,S=FREE                       LEX        14
                                                  ENTRY  BLANK,OCT,TLV                                           FCC1046     9
                                                  ENTRY  S.FTNRP                                                 FEAT155G  343
                                                                                                                 LEX        17
                                        *         IN FTN                                                         LEX        18
                                                  EXT    LOP=R                                                   LEX        19
                                                                                                                 LEX        20
                                        *         IN TABLES                                                      LEX        21
                                                  EXT    CALL,DOORD,FIRSTV,ICONL,LG.LOG,LOGT,MULS,MAPCHAR,REFVAR LEX        22
                                                  EXT    TS=CON,TS.CON,TS.SYM,TS.STN,ZLPAREN,ZLEQUAL,ZLCOMMA     LEX        23
                                                                                                                 LEX        24
                                        *         IN ERRORS                                                      LEX        25
                                                  EXT    CLASS,E.DC,E.DC1,E.DC2,E.DC3,E.DC6,E.DC8,E.DC9,E.HC1    LEX        26
                                                  EXT    E.HC2,E.HC3,E.HC4,E.LP1,E.LP2,E.SU4,E.SU4A,E.TE5,E.US1  LEX        27
                                                  EXT    E.VA1,E.VA2,E.ZA,FILL.,FILL.2,L.CL                      LEX        28
                                                                                                                 LEX        29
                                        *         IN ALLOC                                                       LEX        30
                                                  EXT    ERT,NEXT,ESY,NCM,SSY                                    LEX        31
                                                                                                                 LEX        32
                                        *         IN MAIN                                                        LEX        33
                                                  EXT    TABX.F                                                  LEX        34
                                                                                                                 LEX        35
                                        *         IN IO                                                          LEX        36
                                                  EXT    LGR,FORMAT                                              LEX        37
                                                                                                                 LEX        38
                                        *         IN GEN                                                         LEX        39
                                                  EXT    L.FIV,E.FIV                                             LEX        40
                                                                                                                 LEX        41
                                        *         IN INIT                                                        LEX        42
                                                  EXT    DECA,HOLLSKL,TRVA                                       LEX        43
                                                                                                                 LEX        44
  
  
  
  
                                        **        ASN -  ASSEMBLE NUMBER.                                        LEX        46
                                        *         ENTRY  B4 _ STARTING ADDRESS FOR ASSEMBLY.                     LEX        47
                                        *         EXIT   IF NO NUMBER PRESENT B7 = 0                             LEX        48
                                        *                                    (X6)= 0L0                           LEX        49
                                        *                IF NUMBER PRESENT    B7 " 0                             LEX        50
                                        *                                    (X6)= 0L[NUMBER]                    LEX        51
                                        *                (X1) = NEXT CHARACTER.                                  LEX        52
                                        *                (B4) _ NEXT CHARACTER.                                  LEX        53
                                        *         USES   A1  X2,X6  B2,B4,B5,B7                                  LEX        54
                                                                                                                 LEX        55
                                                                                                                 LEX        56
                                                                                                                 LEX        57
             0  0400400000 +             ASN      SUBR   0                                                       LEX        58
             1  56140                             SA1    B4                                                      LEX        59
                     6170000074                   SB7    10*CHAR                                                 LEX        60
             2  6120000007                        SB2    LG.VAR                                                  LEX        61
                          5120001051 +            SA2    ="NUM09"                                                LEX        62
             3  26101                             UX1    X1                                                      LEX        63
                     76600                        SX6    B0                                                      LEX        64
                                                                                                                 LEX        65
             4  63510                    ASN1     SB5    X1                                                      LEX        66
                     22052                        LX0    X2,B5                                                   LEX        67
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     3
                                                                      ASN 
  
                          0320000010 +            PL     X0,ASN4     IF NOT DIGIT.                               LEX        68
             5  20606                             LX6    CHAR                                                    LEX        69
                     6177777771                   SB7    B7-CHAR                                                 LEX        70
                               12616              BX6    X1+X6       ADD IN NEW DIGIT.                           LEX        71
             6  67221                             SB2    B2-B1       UPDATE NUMBER OF DIGITS.                    LEX        72
                     56141                        SA1    B4+B1       NEXT                                        LEX        73
                          66441                   SB4    B4+B1       UPDATE POINTER                              LEX        74
                               26101              UX1    X1                                                      LEX        75
             7  0520000004 +                      NZ     B2,ASN1     IF NOT *7* DIGITS - LOOP                    LEX        76
                          56140                   SA1    B4          NEXT CHARACTER.                             LEX        77
                                                                                                                 LEX        78
                                        **        HERE WITH                                                      LEX        79
                                        *         (B7) = SHIFT COUNT                                             LEX        80
                                        *         (X1) = NEXT CHARACTER.                                         LEX        81
                                        *         (B4) _ NEXT CHARACTER.                                         LEX        82
                                        *         (X6) = ASSEMBLED DIGITS (0R FORMAT)                            LEX        83
                                                                                                                 LEX        84
            10  22676                    ASN4     LX6    X6,B7       POSITION RESULTS IN 0L FORMAT.              LEX        85
                     0316000000 +                 NZ     X6,ASNX     IF NO ZERO RESULT                           LEX        86
            11  7160000033                        SX6    1R0                                                     LEX        87
                          66700                   SB7    B0          INDICATE NO NUMBER.                         LEX        88
                               20666              LX6    9*CHAR                                                  LEX        89
            12  0400000000 +                      EQ     ASNX        EXIT..                                      LEX        90
  
  
  
  
                                        **        ASV -  ASSEMBLE NEXT *7* ALPHANUMERIC CHARACTERS.              LEX        92
                                        *         ENTRY  (B4) _ STARTING ADDRESS FOR ASSEMBLY.                   LEX        93
                                        *                (X1) = FIRST CHARACTER.                                 LEX        94
                                        *         EXIT   (X6) = ASSEMBLED CHARACTERS IN 0L FORMAT.               LEX        95
                                        *                (X1) = NEXT CHARACTER.                                  LEX        96
                                        *                (B4) _ NEXT CHARACTER.                                  LEX        97
                                        *                                                                        LEX        98
                                        *         USES   A1,A4  X0,X3,X7  B2,B4,B5,B7                            LEX        99
                                                                                                                 LEX       100
                                                                                                                 LEX       101
            13  6177777770               ASV20    SB7    B7-LG.VAR                                               LEX       102
                          63370                   SB3    X7          RESTORE *B3*                                LEX       103
                               67447              SB4    B4-B7       UPDATE *STRING* POINTER.                    LEX       104
                                                                                                                 LEX       105
            14  0400400014 +             ASV      SUBR               ENTRY/EXIT...                               LEX       106
            15  56441                             SA4    B4+B1       NEXT CHARACTER.                             LEX       107
                     6170000007                   SB7    LG.VAR                                                  LEX       108
                               43315              MX3    -1R.                                                    LEX       109
            16  6150000066                        SB5    60-CHAR                                                 LEX       110
                          76730                   SX7    B3          SAVE *B3*                                   LEX       111
                               13666              BX6    0           CLEAR ASSEMBLE REGISTER.                    LEX       112
            17  6130010044                        SB3    7777B+1R+   1ST NON-ALPHANUMERIC CHARACTER.             LEX       113
                          73110                   SX1    X1                                                      LEX       114
            20  0470000013 +             ASV1     ZR     B7,ASV20    IF 7 CHARACTERS ASSEMBLED.                  LEX       115
                          22151                   LX1    X1,B5                                                   LEX       116
                               67771              SB7    B7-B1                                                   LEX       117
            21  6155777771                        SB5    B5-CHAR                                                 LEX       118
                          12661                   BX6    X6+X1                                                   LEX       119
            22  6224007777                        SB2    X4+7777B                                                LEX       120
                          23023                   AX0    B2,X3                                                   LEX       121
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     4
                                                                      ASV 
  
                               73140              SX1    X4                                                      LEX       122
            23  0300000026 +                      ZR     X0,ASVE     IF POSSIBLE *ILLEGAL CHARACTER*             LEX       123
                          54441                   SA4    A4+B1                                                   LEX       124
            24  0723000020 +                      LT     B2,B3,ASV1  LOOP IN NOT END.                            LEX       125
                                                                                                                 LEX       126
                          6177777770              SB7    B7-LG.VAR                                               LEX       127
            25  67447                             SB4    B4-B7       UPDATE *STRING* POINTER.                    LEX       128
                     63370                        SB3    X7          RESTORE *B3*                                LEX       129
                          0400000014 +            EQ     EXIT.                                                   LEX       130
                                                                                                                 LEX       131
                                         **       HERE IF POSSIBLE ILLEGAL CHARACTER.                            LEX       132
                                                                                                                 LEX       133
            26  0334000013 +             ASVE     MI     X4,ASV20    IF *EOS*                                    LEX       134
                          6221777713              SB2    X1-1R"                                                  LEX       135
            27  0420000013 +                      ZR     B2,ASV20    IF *"*                                      LEX       136
                          6221777717              SB2    X1-1R#                                                  LEX       137
            30  0420000013 +                      ZR     B2,ASV20     IF *#*                                     LEX       138
                          10611                   BX6    X1                                                      LEX       139
                               63370              SB3    X7          RESTORE RIGHTFULL (B3)                      LEX       140
            31  20666                             LX6    9*CHAR                                                  LEX       141
                     6127777770                   SB2    B7-LG.VAR   REMEMBER (B7)                               LEX       142
            32  5160000000 X                      SA6    FILL.                                                   LEX       143
                          0400000000 X            EQ     E.US1                                                   LEX       144
  
  
  
  
                                        **        DEC -  CONVERT SOURCE CONSTANT TO INTERNAL BINARY              LEX       146
                                        *         ENTRY  B4 POINTS TO START OF CONSTANT.                         LEX       147
                                        *         EXIT   B4 POINTS TO END OF CONSTANT.                           LEX       148
                                        *                X1 = MODE OF CONSTANT                                   LEX       149
                                        *                X2 = 0 (OR LOWER PART OF DOUBLE WORD)                   LEX       150
                                        *                X6 = TRANSLATED CONSTANT                                LEX       151
                                        *         USES   A1,A2,A3,A4,A5  X0  B2,B7                               LEX       152
                                        *                (X4,X5 ARE NOT DESTROYED)                               LEX       153
                                        *         NOTE                                                           LEX       154
                                        *         NO-ONE SHOULD ATTEMPT TO CHANGE THE ALGORITHM OR FOR THAT      LEX       155
                                        *         MATTER ANY CODE WITHIN THIS ROUTINE WITHOUT FIRST CHECKING     LEX       156
                                        *         ROUTINES --- KODER,KRAKER,RUN2.3,FTN,COMPASS AND               LEX       157
                                        *         ANY OTHER COMPILER/ASSEMBLER THAT TRANSLATES CONSTANTS INTO    LEX       158
                                        *         BINARY FORM.                                                   LEX       159
                                        *         CALLS  OCT                                                     LEX       160
                                                                                                                 LEX       161
                                                                                                                 LEX       162
                                        **        RESTORE REGISTERS AND EXIT.                                    LEX       163
                                        *                (X7) = LOWER HALF OF WORD (IF DOUBLE)                   LEX       164
                                        *                (X6) = UPPER HALF                                       LEX       165
                                        *                (X1) = MODE                                             LEX       166
                                                                                                                 LEX       167
            33  5110000000 X             DECX     SA1    DECA        HERE IF EVERYTHING OK                       LEX       168
                          54211                   SA2    A1+B1                                                   LEX       169
                               53010              SA0    X1          RESTORE *A0*                                LEX       170
            34  63320                             SB3    X2          RESTORE *B3*                                LEX       171
                     54421                        SA4    A2+B1       RESTORE *X4*                                LEX       172
                          54541                   SA5    A4+B1       RESTORE *X5*                                LEX       173
                               54151              SA1    A5+B1                                                   LEX       174
            35  10277                             BX2    X7          LOWER PART OF RESULTS                       LEX       175
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     5
                                                                      DEC 
  
                     54311                        SA3    A1+B1                                                   LEX       176
                          22701                   LX7    X1          RESTORE *X7*                                LEX       177
                               76160              SX1    B6          MODE                                        LEX       178
            36  63630                             SB6    X3          RESTORE *B6*                                LEX       179
                     54331                        SA3    A3+B1                                                   FCC0400     6
                          63530                   SB5    X3          RESTORE *B5*                                FCC0400     7
                               67441              SB4    B4-B1       RESET TO LAST PART OF CONSTANT.             LEX       180
                                                                                                                 LEX       181
            37  0400400037 +             DEC      SUBR   -           ENTRY/EXIT                                  LEX       182
            40  56140                             SA1    B4                                                      LEX       183
                     56241                        =A2    B4+1                                                    LEX       184
                          6271777740              =B7    X1-O.PERIOD                                             LEX       185
            41  0570000044 +                      NZ     B7,DEC3     IF 1ST NOT *.*                              LEX       186
                          6222777775              =B2    X2-O.CONS                                               LEX       187
            42  0420000050 +                      ZR     B2,DEC7     IF NUMBER FOLLOWS PERIOD.                   FEAT126C  129
                          66441                   =B4    B4+1        ADVANCE TO NEXT.                            LEX       189
            43  0400000144 +                      EQ     DECEX1      ERROR IN CONSTANT.                          LEX       190
                                                                                                                 LEX       191
                                        **        HERE IF 1ST NOT NUMBER.                                        LEX       192
                                        *                CHECK IF OCTAL CONSTANT FORM.                           LEX       193
                                                                                                                 LEX       194
                                                                                                                 LEX       195
            44  57341                    DEC3     =A3    B4-1                                                    LEX       196
                     0100000332 +                 RJ     OCT         ATTEMPT OCTAL CONVERSION                    LEX       197
            45  0520000050 +                      NZ     B2,DEC7     IF NO EXPLICIT *B* SUFFIX                   LEX       198
                                                                                                                 LEX       199
                          6170000000 X            ANSI   E.DC1       ** OCTAL TYPE NOT DEFINED BY ANSI **        LEX       200
            47  64430                             SB4    A3          POINT PAST OCTAL CONSTANT                   LEX       201
                     76100                        =X1    M.UNIV                                                  LEX       202
                          0400000037 +            EQ     DEC         EXIT.. (WITHOUT RELOAD OF REGISTERS.)       LEX       203
                                                                                                                 LEX       204
                                         **       HERE IF CONSTANT INTEGER OR DECIMAL.                           LEX       205
                                                                                                                 LEX       206
            50  74600                    DEC7     SX6    A0                                                      LEX       207
                     5160000000 X                 SA6    DECA        SAVE *A0*                                   LEX       208
                               76630              SX6    B3                                                      LEX       209
            51  54661                             SA6    A6+B1       SAVE *B3*                                   LEX       210
                     10644                        BX6    X4                                                      LEX       211
                          54661                   SA6    A6+B1       SAVE *X4*                                   LEX       212
                               10655              BX6    X5                                                      LEX       213
            52  54661                             SA6    A6+B1       SAVE *X5*                                   LEX       214
                     10677                        BX6    X7                                                      LEX       215
                          54661                   SA6    A6+B1       SAVE *X7*                                   LEX       216
                               76660              SX6    B6                                                      LEX       217
            53  54661                             SA6    A6+B1       SAVE *B6*                                   LEX       218
                     76650                        SX6    B5                                                      FCC0400     8
                          54661                   SA6    A6+B1       SAVE *B5*                                   FCC0400     9
                               66500              SB5    B0          CLEAR B5                                    FCC0400    10
                                                                                                                 LEX       219
                                        *         PROCESS DECIMAL CONSTANT                                       LEX       220
                                                                                                                 LEX       221
            54  13222                    DEC10    BX2    0           CLEAR                                       LEX       222
                     43006                        MX0    CHAR                                                    LEX       223
                          66611                   =B6    M.INT                                                   LEX       224
            55  7130000000                        SX3    0                                                       LEX       225
                          43766                   MX7    -CHAR                                                   LEX       226
                               66310              =B3    1           CLEAR OVERFLOW COUNT (TO 1)                 LEX       227
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     6
                                                                      DEC 
  
                                                                                                                 LEX       228
                                        **        GET NEXT ELEMENT TO PROCESS FOR NUMBER.                        LEX       229
                                                                                                                 LEX       230
            56  56440                    DEC11    SA4    B4          LOAD NEXT WORD.                             LEX       231
                     46000                        NO                                                             LEX       232
                          6274777774              =B7    X4-O.VAR                                                LEX       233
            57  6224777740                        SB2    X4-O.PERIOD                                             LEX       234
                          0304000123 +            ZR     X4,DEC40    IF *EOS*                                    LEX       235
            60  0607000067 +                      LE     B7,B0,DEC16 IF ALPHANUMERIC                             LEX       236
                          0520000123 +            NZ     B2,DEC40    IF NO DECIMAL POINT                         LEX       237
            61  0760000144 +                      MI     B6,DECEX1   IF PREVIOUS DECIMAL POINT - ERROR           LEX       238
                          67601                   =B6    -1       INDICATE IN FRACTIONAL PART.                   LEX       239
                               66441              =B4    B4+1                                                    LEX       240
            62  0400000056 +                      EQ     DEC11       LOOP                                        LEX       241
                                                                                                                 LEX       242
                                        **        BUILD INTEGER NUMBER IN *X3*                                   LEX       243
                                                                                                                 LEX       244
            63  36665                    DEC13    IX6    X6+X5       2*LOW PART + DIGIT                          LEX       245
                     0660000064 +                 PL     B6,DEC14    IF NOT IN FRACTIONAL FIELD                  LEX       246
                               67661              =B6    B6-1                                                    LEX       247
            64  22513                    DEC14    LX5    X3,B1       2*HIGH PART                                 LEX       248
                     66331                        =B3    B3+1        INCREMENT OVERFLOW COUNT.                   LEX       249
                          0311000067 +            NZ     X1,DEC16    IF OVERFLOW OF 108 BITS                     LEX       250
            65  20203                             LX2    3           8*LOW PART                                  LEX       251
                     66310                        =B3    1           RESET OVERFLOW COUNT                        LEX       252
                          36662                   IX6    X6+X2       10*LOW PART + DIGIT                         LEX       253
                               20303              LX3    3           8*HIGH PART                                 LEX       254
            66  15260                             BX2    -X0*X6      CLEAR CARRY FROM LOW PART                   LEX       255
                     36535                        IX5    X3+X5       10*HIGH PART                                LEX       256
                          21666                   AX6    54          POSITION CARRY                              LEX       257
                               36356              IX3    X5+X6       10*HIGH PART + CARRY                        LEX       258
            67  20406                    DEC16    LX4    CHAR        NEXT CHARACTER                              LEX       259
                     15547                        BX5    -X7*X4                                                  LEX       260
                          6225000000              SB2    X5+         SAVE CURRENT ELEMENT                        FCC0400    11
            70  7265777744                        SX6    X5-1R0                                                  LEX       262
                          22512                   LX5    X2,B1       2*LOW PART                                  LEX       263
                               11103              BX1    X0*X3       PICK OFF ANY CARRY PAST 108 BITS            LEX       264
            71  0326000063 +                      PL     X6,DEC13    IF DIGIT                                    LEX       265
                          0520000073 +            NZ     B2,DEC19    IF NOT END OF WORD                          FCC0400    12
            72  66441                             =B4    B4+1                                                    LEX       267
                     0400000056 +                 EQ     DEC11       LOOP                                        LEX       268
                                                                                                                 LEX       269
            73  0301000075 +             DEC19    ZR     X1,DEC20    IF NO OVERFLOW                              FCC0400    13
                          6150000001              SB5    1           SET FLAG TO INDICATE ERROR PROCESSED        FCC0400    14
            74  6170000000 X                      WARN   E.DC8                                                   FCC0400    15
                                                                                                                 FCC0400    16
            75  7152777772               DEC20    SX5    B2-1RE                                                  FCC0400    17
                          0305000077 +            ZR     X5,DEC21    IF *E*                                      LEX       271
            76  73651                             =X6    X5+1                                                    LEX       272
                     0316000125 +                 NZ     X6,DEC41    IF NOT *D*                                  FCC0400    18
                               76510              =X5    1                                                       LEX       274
            77  0760000100 +             DEC21    MI     B6,DEC22    IF PREVIOUS DECIMAL POINT                   LEX       275
                          67601                   =B6    -1                                                      LEX       276
           100  66363                    DEC22    SB3    B6+B3       OVERFLOW-FRACTIONAL DIGIT COUNT.            LEX       277
                     56140                        SA1    B4                                                      LEX       278
                          63650                   SB6    X5          SET FLAG (D=1,E=0)                          LEX       279
                               43006              MX0    CHAR                                                    FCC0400    19
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     7
                                                                      DEC 
  
           101  20106                             LX1    CHAR                                                    LEX       280
                     11601                        BX6    X0*X1                                                   LEX       281
                          43500                   MX5    0                                                       LEX       282
           102  0306000115 +                      ZR     X6,DEC30    IF NO EMBEDDED EXPONENT                     LEX       283
                          66441                   =B4    B4+1                                                    LEX       284
                               13666              BX6    0                                                       LEX       285
           103  6120000000 X                      SB2    E.DC3                                                   LEX       286
                          0400000110 +            EQ     DEC26       PROCESS EXPONENT.                           LEX       287
                                                                                                                 LEX       288
                                        **        HERE IF EMBEDDED EXPONENT                                      LEX       289
                                        *         FORM   CONSTANT EXXX OR CONSTANT DXXX                          FEAT126C  130
                                                                                                                 LEX       291
           104  56140                    DEC24    SA1    B4                                                      LEX       292
                     6271777775                   SB7    X1-O.CONS                                               LEX       293
           105  6120000000 X                      SB2    E.DC3                                                   LEX       294
                          13666                   BX6    0           CLEAR ASSEMBLY REGISTER.                    LEX       295
           106  0301000145 +                      ZR     X1,DECEX    IF *EOS* - ERROR                            LEX       296
                          0570000145 +            NZ     B7,DECEX    IF SEPARATOR - ERROR                        LEX       297
           107  66441                             =B4    B4+1                                                    LEX       298
                                                                                                                 LEX       299
                                        **        BUILD INTEGER EXPONENT IN *X6*                                 LEX       300
                                                                                                                 LEX       301
           110  20106                    DEC26    LX1    CHAR        NEXT DIGIT                                  LEX       302
                     15417                        BX4    -X7*X1                                                  LEX       303
                          6274777732              SB7    X4-1R9-1                                                LEX       304
           111  0304000131 +                      ZR     X4,DEC50    IF END OF EXPONENT                          LEX       305
                          7147000012              SX4    B7+1R9-1R0+1                                            LEX       306
           112  0670000145 +                      PL     B7,DECEX    IF NON-NUMERIC (DELIMITER)                  LEX       307
                          0334000145 +            MI     X4,DECEX    IF NON-NUMERIC (ALPHA)                      LEX       308
           113  22016                             LX0    X6,B1       2*EXPONENT                                  LEX       309
                     13445                        BX4    X4-X5       SIGN DIGIT                                  LEX       310
                          20603                   LX6    3           8*EXPONENT                                  LEX       311
                               36040              IX0    X4+X0       2*EXPONENT+DIGIT                            LEX       312
           114  36660                             IX6    X6+X0       10*EXPONENT+ (OR -) DIGIT                   LEX       313
                     0400000110 +                 EQ     DEC26       LOOP                                        LEX       314
                                                                                                                 LEX       315
                                        **        HERE IF NO EMBEDDED EXPONENT                                   LEX       316
                                        *         CHECK IF OF THE FORM                                           LEX       317
                                        *                CONSTANT E+XXX   CONSTANT D+XXX                         LEX       318
                                        *         OR     CONSTANT E-XXX   CONSTANT D-XXX                         LEX       319
                                        *                                                                        LEX       320
                                        *         (X5) = SIGN OF EXPONENT                                        LEX       321
                                                                                                                 LEX       322
           115  56141                    DEC30    SA1    B4+B1       NEXT WORD                                   LEX       323
                     6144000002                   SB4    B4+2                                                    LEX       324
           116  6271777773                        =B7    X1-O.PL                                                 LEX       325
                          0470000104 +            ZR     B7,DEC24    IF *+*                                      LEX       326
           117  67771                             =B7    B7-1                                                    LEX       327
                     43574                        MX5    60          SET SIGN NEGATIVE                           LEX       328
                          0470000104 +            ZR     B7,DEC24    IF *-*                                      LEX       329
           120  67441                             =B4    B4-1                                                    LEX       330
                     13555                        BX5    0           SET SIGN POSITIVE                           LEX       331
                                                                                                                 LEX       332
                                        **        HERE IF NO EXPONENT SPECIFIED                                  LEX       333
                                        *         SET NULL EXPONENT AND SEND *NOTE* ERROR TO OUTPUT.             LEX       334
                                                                                                                 LEX       335
                          6170000000 X            NOTE   E.DC6                                                   LEX       336
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     8
                                                                      DEC 
  
           122  0400000133 +                      EQ     DEC52       CONTINUE.                                   LEX       337
                                                                                                                 LEX       338
           123  0301000125 +             DEC40    ZR     X1,DEC41    IF NO OVERFLOW                              FCC0400    20
                          6150000001              SB5    1           SET FLAG TO INDICATE ERROR PROCESSED        FCC0400    21
           124  6170000000 X                      WARN   E.DC8                                                   FCC0400    22
                                                                                                                 FCC0400    23
           125  66363                    DEC41    SB3    B6+B3       OVERFLOW-FRACTIONAL DIGIT COUNT             FCC0400    24
                     0760000130 +                 MI     B6,DEC45    IF DECIMAL POINT IN NUMBER                  LEX       340
                               20366              LX3    54          CONSTRUCT INTEGER                           LEX       341
           126  36623                             IX6    X2+X3                                                   LEX       342
                     20306                        LX3    6                                                       LEX       343
                          21305                   AX3    5                                                       LEX       344
           127  0303000033 +                      ZR     X3,DECX     IF NO OVERFLOW OF 59 BITS                   LEX       345
                          0400000144 +            EQ     DECEX1      ERROR                                       LEX       346
                                                                                                                 LEX       347
           130  66600                    DEC45    SB6    B0          SET FLAG (E=0)                              LEX       348
                     0400000133 +                 EQ     DEC52                                                   LEX       349
                                                                                                                 LEX       350
           131  63363                    DEC50    SB3    X6+B3       ADD EXPONENT TO SCALING                     LEX       351
                     21611                        AX6    9                                                       LEX       352
                          6120000000 X            SB2    E.DC2                                                   LEX       353
           132  0316000145 +                      NZ     X6,DECEX    IF EXPONENT .GT. 512 - ERROR                LEX       354
                                                                                                                 FCC0400    25
                                        *         FLOATING CONVERSION BY FSCALE.                                 FCC0400    26
                                        *         MODIFY DOUBLE WORD INTEGER INPUT FOR                           FCC0400    27
                                        *         FSCALE WHICH REQUIRES...                                       FCC0400    28
                                        *         LOW ORDER INTEGER INTEGER PART, X1, BITS 54-00.                FCC0400    29
                                        *         HIGH ORDER INTEGER PART, X2, BITS 58-00.                       FCC0400    30
                                                                                                                 FCC0400    31
           133  66556                    DEC52    SB5    B5+B6                                                   FCC0400    32
                     46000                        NO                                                             FCC0400    33
                          0550000137 +            NZ     B5,DEC53    IF DOUBLE PRECISION OR ERROR FLAG SET       FCC0400    34
           134  6120000060                        SB2    48                                                      FCC0400    35
                          46000                   NO                                                             FCC0400    36
                               23122              AX1    B2,X2                                                   FCC0400    37
           135  0301000137 +                      ZR     X1,DEC53    IF NO SINGLE PRECISION OVERFLOW             FCC0400    38
                          6170000000 X            WARN   E.DC8                                                   FCC0400    39
                                                                                                                 FCC0400    40
           137  43501                    DEC53    MX5    1                                                       FCC0400    41
                     20373                        LX3    -1          POSITION HIGH PART                          FCC0400    42
                          11453                   BX4    X5*X3       GET CARRY BIT                               FCC0400    43
                               15035              BX0    -X5*X3      SET HIGH PART FOR FSCALE                    FCC0400    44
           140  20467                             LX4    -5          POSITION CARRY BIT                          FCC0400    45
                     12142                        BX1    X4+X2       SET LOW PART FOR FSCALE                     FCC0400    46
                          56040                   SA0    B4                                                      FCC0400    47
                               66460              SB4    B6                                                      FCC0400    48
           141  6166000003                        SB6    B6+M.REAL   SET MODE                                    FCC0400    49
                          0100000147 +   -        RJ     FSCALE                                                  FCC0400    50
           142  10611                             BX6    X1                                                      FCC0400    51
                     10722                        BX7    X2                                                      FCC0400    52
                          66240                   SB2    B4                                                      FCC0400    53
                               64400              SB4    A0                                                      FCC0400    54
           143  0420000033 +                      ZR     B2,DECX     IF CONVERSION SUCCESSFUL                    FCC0400    55
                                                                                                                 FCC0400    56
           144  6120000000 X             DECEX1   SB2    E.DC        CONVERSION ERROR                            FCC0400    57
           145  66720                    DECEX    FATAL  B2                                                      FCC0400    58
           146  0400000000 X                      EQ     =XPSN       EXIT TO NEXT STATEMENT                      FCC0400    59
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE     9
        FSCALE - FLOATING DP CONVERSION 
  
                                        **        FSCALE  -  CONVERT INTEGER CONSTANT WITH OR WITHOUT            FSCALE      3
                                        *                    FLOATING CONSTANT.                                  FSCALE      4
                                        *                    EXPONENT TO SINGLE OR DOUBLE PRECISION              FSCALE      5
                                        *                                                                        FSCALE      6
                                        *         RICK JAMES.   (AUTHOR).                                        FSCALE      7
                                        *                                                                        FSCALE      8
                                        *         ENTRY  (X0) = HIGH ORDER PART OF INTEGER CONSTANT              FSCALE      9
                                        *                       IN BITS 58-00.                                   FSCALE     10
                                        *                (X1) = LOW ORDER PART OF INTEGER CONSTANT               FSCALE     11
                                        *                       IN BITS 54-00.                                   FSCALE     12
                                        *                (X5) = 1RX WHERE X = + OR - (SIGN OF RESULT).           FSCALE     13
                                        *                (B1) = 1.                                               FSCALE     14
                                        *                (B3) = POWER OF 10.                                     FSCALE     15
                                        *                (B4) = 0, SINGLE PRECISION.                             FSCALE     16
                                        *                (B4) = 1, DOUBLE PRECISION.                             FSCALE     17
                                        *                                                                        FSCALE     18
                                        *         EXIT   (X1) = HIGH ORDER BITS DP CONSTANT.                     FSCALE     19
                                        *                (X2) = LOW ORDER BITS DP CONSTANT.                      FSCALE     20
                                        *                (B1) = 1.                                               FSCALE     21
                                        *                (B4) = 0, CONVERSION OK.                                FSCALE     22
                                        *                (B4) = -1, ERROR OVERFLOW.                              FSCALE     23
                                        *                                                                        FSCALE     24
                                        *         ACTION 1.  CONVERT INTEGER TO TRIPLE PRECISION                 FSCALE     25
                                        *                    FLOATING POINT.                                     FSCALE     26
                                        *                2.  SCALE BY BIG POWER OF 5 OR 10 (TRIPLE               FSCALE     27
                                        *                    MULTIPLY, X432 * X017).                             FSCALE     28
                                        *                3.  MULTIPLY BY 1E20 AS NEEDED.                         FSCALE     29
                                        *                4.  FINISH CONVERSION BY MULTIPLYING BY N               FSCALE     30
                                        *                    WHERE 1E20 .GE. N .LE. 1.                           FSCALE     31
                                        *                5.  ROUND RESULT.                                       FSCALE     32
                                        *                6.  SET SIGN.                                           FSCALE     33
                                        *                7.  ADJUST BY POWER OF 2 AND CHECK.                     FSCALE     34
                                        *                                                                        FSCALE     35
                                        *         USES   A. -,-,-,3,4,-,-,-                                      FSCALE     36
                                        *                B. -,-,2,3,4,5,-,7                                      FSCALE     37
                                        *                X. 0,1,2,3,4,5,6,7                                      FSCALE     38
                                                                                                                 FSCALE     39
           147  0400400147 +             FSCALE   SUBR               ENTRY/EXIT                                  FSCALE     40
           150  43752                             MX7    -18                                                     FSCALE     41
                     15417                        BX4    -X7*X1      BOT                                         FSCALE     42
                          6120000022              SB2    18                                                      FSCALE     43
           151  27404                             PX4    B0,X4                                                   FSCALE     44
                     66740                        SB7    B4                                                      FSCALE     45
                          66400                   SB4    B0          CLEAR ERROR FLAG                            FSCALE     46
                               21122              AX1    18          LOW MID                                     FSCALE     47
           152  0300000157 +                      ZR     X0,CIF      IF NO HIGH ORDER BITS                       FSCALE     48
                          43761                   MX7    -11                                                     FSCALE     49
                               15207              BX2    -X7*X0      HI MID                                      FSCALE     50
           153  24404                             NX4    B0,X4                                                   FSCALE     51
                     6150000102                   SB5    66                                                      FSCALE     52
                               20245              LX2    37                                                      FSCALE     53
           154  21013                             AX0    11          TOP                                         FSCALE     54
                     12112                        BX1    X1+X2       MID                                         FSCALE     55
                          27050                   PX0    X0,B5                                                   FSCALE     56
                               27121              PX1    B2                                                      FSCALE     57
           155  24000                             NX0    B0,X0       TOP                                         FSCALE     58
                     24101                        NX1    B0,X1                                                   FSCALE     59
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    10
        FSCALE - FLOATING DP CONVERSION 
  
                          32201                   DX2    X0+X1                                                   FSCALE     60
                               30001              FX0    X0+X1       UPPER                                       FSCALE     61
           156  32724                             DX7    X2+X4       LOWER                                       FSCALE     62
                     30124                        FX1    X2+X4       MIDDLE                                      FSCALE     63
                          0400000161 +            EQ     CIF1                                                    FSCALE     64
                                                                                                                 FSCALE     65
           157  27121                    CIF      PX1    B2,X1                                                   FSCALE     66
                     46000                        NO                                                             FSCALE     67
                          24404                   NX4    B0,X4                                                   FSCALE     68
                               24101              NX1    B0,X1                                                   FSCALE     69
           160  30014                             FX0    X1+X4       UPPER                                       FSCALE     70
                     32114                        DX1    X1+X4       MIDDLE                                      FSCALE     71
                          46000                   NO                                                             FSCALE     72
                               32711              DX7    X1+X1       LOWER (PACKED ZERO)                         FSCALE     73
                                                                                                                 FSCALE     74
           161  67271                    CIF1     SB2    B7-B1                                                   FSCALE     75
                     0420000162 +                 ZR     B2,CIF2     IF DOUBLE PRECISION                         FSCALE     76
                               43700              MX7    0           TO INDICATE ONLY SINGLE NEEDED              FSCALE     77
                                                                                                                 FSCALE     78
           162  76430                    CIF2     SX4    B3                                                      FSCALE     79
                     7133000500                   SX3    B3+320                                                  FSCALE     80
                               21410              AX4    8                                                       FSCALE     81
           163  0314000233 +                      NZ     X4,CIF16    IF NOT WITHIN 1E-256 TO 1E+256              FSCALE     82
                          21306                   AX3    6           EXP/64+4                                    FSCALE     83
                               66700              SB7    B0                                                      FSCALE     84
           164  5243000266 +                      SA4    CIFB+X3                                                 FSCALE     85
                          0304000176 +            ZR     X4,CIF5     IF EXP IS 0 TO 64                           FSCALE     86
           165  14333                             BX3    -X3                                                     FSCALE     87
                     6133000500                   SB3    B3+320                                                  FSCALE     88
                               20306              LX3    6                                                       FSCALE     89
           166  63333                             SB3    B3+X3                                                   FSCALE     90
                                                                                                                 FSCALE     91
                                        *         TRIPLE OR DOUBLE MULTIPLY.                                     FSCALE     92
                                                                                                                 FSCALE     93
           167  6150000012               CIF3     SB5    10                                                      FSCALE     94
                          5034000012              SA3    A4+10       M                                           FSCALE     95
           170  0307000173 +                      ZR     X7,CIF4     IF ONLY SINGLE PRECISION                    FSCALE     96
                          54235                   SA2    A3+B5       L                                           FSCALE     97
                               40747              FX7    X4*X7       L=U*L                                       FSCALE     98
           171  40220                             FX2    X2*X0       L=L*U                                       FSCALE     99
                     30772                        FX7    X7+X2       L                                           FSCALE    100
                          42230                   DX2    X3*X0       L=M*U                                       FSCALE    101
                               42641              DX6    X4*X1       L=U*M                                       FSCALE    102
           172  30727                             FX7    X2+X7       L                                           FSCALE    103
                     40231                        FX2    X3*X1       L=M*M                                       FSCALE    104
                          30776                   FX7    X7+X6       L                                           FSCALE    105
                               30727              FX7    X2+X7       LOWER                                       FSCALE    106
                                                                                                                 FSCALE    107
           173  40330                    CIF4     FX3    X3*X0       M=M*U                                       FSCALE    108
                     40241                        FX2    X4*X1       M=U*M                                       FSCALE    109
                          42640                   DX6    X4*X0       M=U*U                                       FSCALE    110
                               40040              FX0    X4*X0       UPPER                                       FSCALE    111
           174  30432                             FX4    X3+X2       M                                           FSCALE    112
                     30164                        FX1    X6+X4       MIDDLE                                      FSCALE    113
                          0307000176 +            ZR     X7,CIF5     IF ONLY SINGLE PRECISION                    FSCALE    114
           175  32332                             DX3    X3+X2       L                                           FSCALE    115
                     32664                        DX6    X6+X4       L                                           FSCALE    116
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    11
        FSCALE - FLOATING DP CONVERSION 
  
                          30773                   FX7    X7+X3       L                                           FSCALE    117
                               30776              FX7    X7+X6       LOWER                                       FSCALE    118
                                                                                                                 FSCALE    119
                                        *         MULTIPLY BY 1E20 AS NEEDED.                                    FSCALE    120
                                                                                                                 FSCALE    121
           176  5140000265 +             CIF5     SA4    CIFA+20                                                 FSCALE    122
                          6120000024              SB2    20                                                      FSCALE    123
           177  0732000205 +                      LT     B3,B2,CIF8  IF NO NEED TO MULTIPLY BY 1E20              FSCALE    124
                                                                                                                 FSCALE    125
                                        *         1 * 3 OR 1 * 2 MULTIPLY.                                       FSCALE    126
                                                                                                                 FSCALE    127
           200  40341                    CIF6     FX3    X4*X1       M=U*M                                       FSCALE    128
                     42240                        DX2    X4*X0       M=U*U                                       FSCALE    129
                          0307000203 +            ZR     X7,CIF7     IF ONLY SINGLE NEEDED                       FSCALE    130
           201  40747                             FX7    X4*X7       L=U*L                                       FSCALE    131
                     32632                        DX6    X3+X2       L                                           FSCALE    132
                          42141                   DX1    X4*X1       L=U*M                                       FSCALE    133
                               46000              NO                                                             FSCALE    134
           202  30776                             FX7    X7+X6       L                                           FSCALE    135
                     6100000000                   SB0    0                                                       FSCALE    136
                               30771              FX7    X7+X1       LOWER                                       FSCALE    137
                                                                                                                 FSCALE    138
           203  30132                    CIF7     FX1    X3+X2       MIDDLE                                      FSCALE    139
                     40040                        FX0    X4*X0       UPPER                                       FSCALE    140
                          67332                   SB3    B3-B2                                                   FSCALE    141
                               46000              NO                                                             FSCALE    142
           204  0632000200 +                      GE     B3,B2,CIF6  IF NEED TO MULTIPLY BY 1E20 AGAIN           FSCALE    143
                                                                                                                 FSCALE    144
                                        *         MULTIPLY BY LESS THAN 1E20 IF NECESSARY.                       FSCALE    145
                                                                                                                 FSCALE    146
           205  5143000241 +             CIF8     SA4    CIFA+B3                                                 FSCALE    147
                          0703000200 +            GT     B3,CIF6     IF NECESSARY MULTIPLY BY .LT. 1E20          FSCALE    148
           206  20572                             LX5    -2                                                      FSCALE    149
                     21574                        AX5    60                                                      FSCALE    150
                                                                                                                 FSCALE    151
                                        *         DOUBLE COMBINE.                                                FSCALE    152
                                                                                                                 FSCALE    153
                          0307000214 +            ZR     X7,CIF10    IF ONLY SINGLE NEEDED                       FSCALE    154
           207  32417                             DX4    X1+X7                                                   FSCALE    155
                     30117                        FX1    X1+X7                                                   FSCALE    156
                          46000                   NO                                                             FSCALE    157
                               32301              DX3    X0+X1                                                   FSCALE    158
           210  30001                             FX0    X0+X1                                                   FSCALE    159
                     34134                        RX1    X3+X4                                                   FSCALE    160
                          46000                   NO                                                             FSCALE    161
                               30301              FX3    X0+X1                                                   FSCALE    162
           211  46000                             NO                                                             FSCALE    163
                     13753                        BX7    X5-X3       UPPER SIGN FOR T.DBL                        FSCALE    164
                          32001                   DX0    X0+X1                                                   FSCALE    165
                               13111              BX1    X1-X1                                                   FSCALE    166
           212  26300                             UX3    B0,X0                                                   FSCALE    167
                     0303000213 +                 ZR     X3,CIF9     IF LOW ORDER DP MANTISSA .EQ. 0             FSCALE    168
                               13150              BX1    X5-X0       LOWER SIGN FOR T.DBL                        FSCALE    169
                                                                                                                 FSCALE    170
           213  0470000240 +             CIF9     ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY        FSCALE    171
                          0400000216 +            EQ     CIF11                                                   FSCALE    172
                                                                                                                 FSCALE    173
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    12
        FSCALE - FLOATING DP CONVERSION 
  
                                        *         SINGLE COMBINE.                                                FSCALE    174
                                                                                                                 FSCALE    175
           214  32401                    CIF10    DX4    X0+X1                                                   FSCALE    176
                     30001                        FX0    X0+X1                                                   FSCALE    177
                          34304                   RX3    X0+X4                                                   FSCALE    178
                               13753              BX7    X5-X3       SIGN FOR T.REL                              FSCALE    179
           215  0470000240 +                      ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY        FSCALE    180
                                                                                                                 FSCALE    181
                                                                                                                 FSCALE    182
                                        *         CHECK FOR UNDER FLOW.                                          FSCALE    183
                                                                                                                 FSCALE    184
           216  0670000224 +             CIF11    PL     B7,CIF13                                                FSCALE    185
                          6150776000              SB5    -1777B                                                  FSCALE    186
           217  26121                             UX1    B2,X1                                                   FSCALE    187
                     66227                        SB2    B2+B7                                                   FSCALE    188
                          46000                   NO                                                             FSCALE    189
                               27121              PX1    B2,X1                                                   FSCALE    190
           220  0625000221 +                      GE     B2,B5,CIF12 IF NOT UNDERFLOW                            FSCALE    191
                          43100                   MX1    0           CLEAR LOW ORDER REGISTER                    FSCALE    192
                                                                                                                 FSCALE    193
           221  26727                    CIF12    UX7    B2,X7                                                   FSCALE    194
                     66227                        SB2    B2+B7                                                   FSCALE    195
                          46000                   NO                                                             FSCALE    196
                               27727              PX7    B2,X7                                                   FSCALE    197
           222  0625000240 +                      GE     B2,B5,CIF18 IF NO UNDERFLOW                             FSCALE    198
                          7170000000              SX7    0                                                       FSCALE    199
           223  0400000240 +                      EQ     CIF18                                                   FSCALE    200
                                                                                                                 FSCALE    201
                                        *         CHECK FOR OVERFLOW.                                            FSCALE    202
                                                                                                                 FSCALE    203
           224  26727                    CIF13    UX7    B2,X7                                                   FSCALE    204
                     6150001777                   SB5    1777B                                                   FSCALE    205
                               66227              SB2    B2+B7                                                   FSCALE    206
           225  0625000232 +                      GE     B2,B5,CIF15 IF OVERFLOW                                 FCCA577     5
                          27727                   PX7    B2,X7                                                   FSCALE    208
                               26121              UX1    B2,X1                                                   FSCALE    209
           226  66227                             SB2    B2+B7                                                   FSCALE    210
                     27121                        PX1    B2,X1                                                   FSCALE    211
                          0400000240 +            EQ     CIF18                                                   FSCALE    212
                                                                                                                 FSCALE    213
           227  6123777273               CIF14    SB2    B3-324                                                  FSCALE    214
                          5140000277 +            SA4    CIFB+9      MULTIPLY BY 5**256                          FSCALE    215
           230  6170000400                        SB7    +256                                                    FSCALE    216
                          46000                   NO                                                             FSCALE    217
                               67337              SB3    B3-B7                                                   FSCALE    218
           231  0720000167 +                      MI     B2,CIF3                                                 FSCALE    219
                                                                                                                 FSCALE    220
           232  6140777776               CIF15    SB4    -1          ERROR RETURN ON OVERFLOW                    FSCALE    221
                          0400000147 +            EQ     EXIT.                                                   FSCALE    222
                                                                                                                 FSCALE    223
           233  0630000227 +             CIF16    PL     B3,CIF14                                                FSCALE    224
                          6123000505              SB2    B3+325                                                  FSCALE    225
           234  0720000237 +                      MI     B2,CIF17                                                FSCALE    226
                          5140000266 +            SA4    CIFB                                                    FSCALE    227
           235  6170777272                        SB7    -325                                                    FSCALE    228
                          46000                   NO                                                             FSCALE    229
                               67337              SB3    B3-B7                                                   FSCALE    230
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    13
        FSCALE - FLOATING DP CONVERSION 
  
           236  0400000167 +                      EQ     CIF3                                                    FSCALE    231
                                                                                                                 FSCALE    232
           237  7170000000               CIF17    SX7    0                                                       FSCALE    233
                          7110000000              SX1    0                                                       FSCALE    234
                                                                                                                 FSCALE    235
           240  10211                    CIF18    BX2    X1                                                      FSCALE    236
                     10177                        BX1    X7                                                      FSCALE    237
                          0400000147 +            EQ     EXIT.                                                   FSCALE    238
                                                                                                                 FSCALE    239
                                        *         WORKING CONSTANTS.                                             FSCALE    240
                                                                                                                 FSCALE    241
           241                           CIFA     BSS    0           1.0EN  WHERE N = 0 TO 20 INCLUSIVE          FSCALE    242
                                   0     CIFA1    SET    0                                                       FSCALE    243
                                  25              DUP    21,3                                                    FSCALE    244
                                         CIFA2    DECMIC CIFA1                                                   FSCALE    245
                                                  DATA   1.0E"CIFA2"                                             FSCALE    246
                                         CIFA1    SET    CIFA1+1                                                 FSCALE    247
                                                                                                                 FSCALE    248
           266                           CIFB     BSS    0                                                       FSCALE    249
           266  03355134732416677076              CON    03355134732416677076B   5**-325          UPPER          FSCALE    250
           267  01756003050311261572              CON    01756003050311261572B  10**-256          UPPER          FSCALE    251
           270  05224437760335652043              CON    05224437760335652043B  10**-192          UPPER          FSCALE    252
           271  10466735010637062274              CON    10466735010637062274B  10**-128          UPPER          FSCALE    253
           272  13735207775211722471              CON    13735207775211722471B  10** -64          UPPER          FSCALE    254
           273  00000000000000000000              CON    0                                                       FSCALE    255
           274  22456047403722377717              CON    22456047403722377717B  10**  64          UPPER          FSCALE    256
           275  25724473510762300351              CON    25724473510762300351B  10** 128          UPPER          FSCALE    257
           276  31167007036743234447              CON    31167007036743234447B  10** 192          UPPER          FSCALE    258
           277  30435247735376716771              CON    30435247735376716771B   5** 256          UPPER          FSCALE    259
                                                                                                                 FSCALE    260
           300  02554430410147521675              CON    02554430410147521675B   5**-325         MIDDLE          FSCALE    261
           301  01150623477244210525              CON    01150623477244210525B  10**-256         MIDDLE          FSCALE    262
           302  04426300317330603243              CON    04426300317330603243B  10**-192         MIDDLE          FSCALE    263
           303  07667112025437131766              CON    07667112025437131766B  10**-128         MIDDLE          FSCALE    264
           304  13137232247710714327              CON    13137232247710714327B  10** -64         MIDDLE          FSCALE    265
           305  00000000000000000000              CON    0                                                       FSCALE    266
           306  21655155247457665561              CON    21655155247457665561B  10**  64         MIDDLE          FSCALE    267
           307  25124315770633631554              CON    25124315770633631554B  10** 128         MIDDLE          FSCALE    268
           310  30362526520556761123              CON    30362526520556761123B  10** 192         MIDDLE          FSCALE    269
           311  27636750673556710033              CON    27636750673556710033B   5** 256         MIDDLE          FSCALE    270
                                                                                                                 FSCALE    271
           312  01751523413613350414              CON    01751523413613350414B   5**-325          LOWER          FSCALE    272
           313  00357757552302120270              CON    00357757552302120270B  10**-256          LOWER          FSCALE    273
           314  03622142373563615574              CON    03622142373563615574B  10**-192          LOWER          FSCALE    274
           315  07066405673367560600              CON    07066405673367560600B  10**-128          LOWER          FSCALE    275
           316  12332173154211024710              CON    12332173154211024710B  10** -64          LOWER          FSCALE    276
           317  00000000000000000000              CON    0                                                       FSCALE    277
           320  21056166544576650371              CON    21056166544576650371B  10**  64          LOWER          FSCALE    278
           321  24321553040115601066              CON    24321553040115601066B  10** 128          LOWER          FSCALE    279
           322  27567507542405607432              CON    27567507542405607432B  10** 192          LOWER          FSCALE    280
           323  27034617735255702442              CON    27034617735255702442B   5** 256          LOWER          FSCALE    281
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    14
                                                                      OCT 
  
                                        **        OCT -  CONVERT OCTAL CONSTANT TO BINARY.                       LEX       564
                                        *                                                                        LEX       565
                                        *         ENTRY  (A3+1) _ FWA SUSPECTED OCTAL CONSTANT.                  LEX       566
                                        *                                                                        LEX       567
                                        *         EXIT   (X6) = OCTAL CONVERSION OF CONSTANT (=0 IF ERROR)       LEX       568
                                        *                (A3) _ NEXT CHARACTER PAST CONSTANT                     LEX       569
                                        *                (B4) PRESERVED                                          LEX       570
                                        *                (B2) = ZERO IF *B* SUFFIX APPEARED                      LEX       571
                                        *                                                                        LEX       572
                                        *         USES   A3  X0,X1,X2,X6  B2,B7                                  LEX       573
                                                                                                                 LEX       574
           324  21360                    OCT90    AX3    8*CHAR                                                  LEX       578
                     6223777577                   SB2    X3-2RB +1R                                              LEX       579
                               55331              =A3    A3-1                                                    LEX       580
           325  0520000332 +                      NZ     B2,OCTX     IF NOT TERMINATED BY A *B*                  LEX       581
                                                                                                                 LEX       582
                          54331                   =A3    A3+1                                                    LEX       584
           326  0670000330 +                      PL     B7,OCT94    IF NOT MORE THAN 20 DIGITS                  FCC0400    62
                          6170000000 X            WARN   E.DC8       ** OCTAL CONSTANT MORE THAN 20 DIGITS **    LEX       587
                                                                                                                 LEX       588
           330  0322000332 +             OCT94    PL     X2,OCT96    IF NO EIGHT/NINE                            LEX       589
                          13666                   BX6    0                                                       LEX       590
           331  6170000000 X                      WARN   E.DC9       ** NON-OCTAL DIGIT IN OCTAL CONSTANT **     LEX       591
                                                                                                                 LEX       592
           332                           OCT96    BSS    0           EXIT..                                      LEX       593
                                                                                                                 LEX       594
           332  0400400332 +             OCT      SUBR   0                                                       LEX       595
           333  13666                             BX6    0                                                       LEX       596
                     76200                        SX2    B0          INDICATE NO EIGHT/NINE                      LEX       597
                          6170000024              SB7    20          INITIALIZE DIGIT COUNT                      FCC0400    63
           334  43066                             MX0    -CHAR                                                   LEX       599
                                                                                                                 LEX       600
           335  54331                    OCT20    =A3    A3+1        FETCH NEXT WORD                             LEX       601
                     6223777775                   =B2    X3-O.CONS                                               LEX       602
           336  0520000324 +                      NZ     B2,OCT90    IF NON-NUMERIC                              LEX       603
                                                                                                                 LEX       604
           337  20306                    OCT40    LX3    CHAR                                                    LEX       605
                     15130                        BX1    -X0*X3                                                  LEX       606
                          6221777734              SB2    X1-1R8                                                  LEX       607
           340  0301000335 +                      ZR     X1,OCT20    IF WORD PROCESSED                           LEX       608
                          7211777744              SX1    X1-1R0                                                  LEX       609
           341  0620000344 +                      PL     B2,OCT80    IF NON-OCTAL DIGIT                          LEX       610
                          67771                   SB7    B7-B1                                                   FCC0400    64
           342  0331000344 +                      MI     X1,OCT80    IF NOT DIGIT                                FCC1046    10
                          0770000337 +            MI     B7,OCT40    IF EXCESS DIGITS                            FCC0400    65
           343  20603                             LX6    3                                                       FCC0400    66
                     12616                        BX6    X1+X6       ADD DIGIT                                   FCC0400    67
                          0400000337 +            EQ     OCT40       LOOP..                                      LEX       614
                                                                                                                 LEX       615
           344  43273                    OCT80    MX2    -1          REMEMBER NON-OCTAL DIGIT                    LEX       616
                     0400000337 +                 EQ     OCT40                                                   LEX       617
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    15
                                                                      STY 
  
                                        **        STY  - SET NATURAL (IMPLICIT) TYPE                             LEX       619
                                        *         ENTRY- NAME IN X6 (LEFT JUST, ZERO FILL)                       LEX       620
                                        *         EXIT   (X1) = MODE.                                            LEX       621
                                        *                (X2) = LOG (BASE 2) OF TYPE.                            LEX       622
                                        *                (X6) = PRESERVED.                                       LEX       623
                                        *                (B7) = 1ST CHARACTER OF NAME.                           LEX       624
                                        *         DESTROYS  A1.                                                  LEX       625
                                                                                                                 LEX       626
                                                                                                                 LEX       627
           345  23171                    STY1     AX1    X1,B7       RE-POSITION                                 LEX       628
                     73221                        SX2    X2+B1                                                   LEX       629
                          20666                   LX6    -6          RESTORE X6                                  LEX       630
                               73110              SX1    X1          ISOLATE MODE                                LEX       631
                                                                                                                 LEX       632
           346  0400400346 +             STY      SUBR   0                                                       LEX       633
           347  20606                             LX6    CHAR                                                    LEX       634
                     7120000004                   =X2    L.TYPE-1                                                LEX       635
                               43166              MX1    -CHAR                                                   LEX       636
           350  15161                             BX1    -X1*X6      ISOLATE FIRST CHARACTER                     LEX       637
                     63710                        SB7    X1                                                      LEX       638
           351  5212000354 +             STY2     SA1    X2+NAT.TYP                                              LEX       639
                          7222777776              SX2    X2-1                                                    LEX       640
           352  22171                             LX1    X1,B7                                                   LEX       641
                     0331000345 +                 MI     X1,STY1     IF HIT                                      LEX       642
           353  0322000351 +                      PL     X2,STY2     IF NO TABLE EXHAUSTION                      LEX       643
                          0400400353 +            TRUBL  E.ZA                                                    LEX       644
  
  
  
  
                                        **        NAT.TYPE - TABLE OF NATURAL (IMPLICIT) TYPES                   LEX       646
                                                                                                                 LEX       647
                                                                                                                 LEX       648
           354                           NAT.TYP  BSS    0                                                       LEX       649
                                                                                                                 LEX       650
           354  00000000000000000001     NAT.LOG  VFD    27/000000000B,15/0,18/M.LOG                             LEX       651
           355  00077000000000000002     NAT.INT  VFD    27/000770000B,15/0,18/M.INT                             LEX       652
           356  37700777700000000003     NAT.REAL VFD    27/377007777B,15/0,18/M.REAL                            LEX       653
           357  00000000000000000004     NAT.DBL  VFD    27/000000000B,15/0,18/M.DBL                             LEX       654
           360  00000000000000000005     NAT.CPLX VFD    27/000000000B,15/0,18/M.CPLX                            LEX       655
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    16
                                                                      TAB 
  
                                        **        TAB - NORMALIZE STATEMENT.                                     LEX       657
                                        *                                                                        LEX       658
                                        *         CONVERT *SB* INTO TABBED FORM.                                 LEX       659
                                        *         TABBED FORM, SIMILAR TO OLD RUN 2.3, MEANING                   LEX       660
                                        *                                                                        LEX       661
                                        *         A. FOR A CHARACTER STRING STARTING WITH A DIGIT                LEX       662
                                        *                42/0LDIGITS,18/O.CONS                                   LEX       663
                                        *                (LEADING ZEROS SUPPRESSED)                              LEX       664
                                        *                                                                        LEX       665
                                        *         B. FOR A CHARACTER STRING STARTING WITH AN LETTER.             LEX       666
                                        *                42/0LALPHANUMERIC,18/O.VAR                              LEX       667
                                        *                                                                        LEX       668
                                        *         C. FOR A CHARACTER STRING STARTING WITH A QUOTE MARK.          LEX       669
                                        *         18/CONSTANT TAG,18/CHAR LENGTH,6/WORD LENGTH,18/O.HOLL         LEX       670
                                        *                                                                        LEX       671
                                        *         D. FOR A CHARACTER STRING STARTING WITH A DIGIT AND SUFFIX     LEX       672
                                        *            BY EITHER --     H   L   OR   R.                            LEX       673
                                        *         18/CONSTANT TAG,18/0,6/WORD LENGTH,18/O.HOLL                   LEX       674
                                        *                                                                        LEX       675
                                        *         E. FOR A CHARACTER STRING DEFINED BY FORTRAN, TABBED FORM      LEX       676
                                        *            IS THE STRING OR CHARACTER CONVERTED TO INTERNAL            LEX       677
                                        *            MAPPED FORM                                                 LEX       678
                                        *                42/0,18/O.XX                                            LEX       679
                                        *            IE. *   =  42/0,18/O.STAR                                   LEX       680
                                        *                .OR.=  42/0,18/O.OR                                     LEX       681
                                        *                                                                        LEX       682
                                        *         TAB IS CALLED FROM THE COMPILERS MASTER LOOP AFTER A CARD HAS  LEX       683
                                        *         BEEN PROCESSED BY *AFS* OR *MULS* IS SET INDICATING A MULTIPLE LEX       684
                                        *         STATEMENT CARD.  THUS TAB WILL TRANSLATE KEYWORDS TO RUN       LEX       685
                                        *         TABBED FORM.  THE EXCEPTION IS THE AMBIGUIOUS FORTRAN KEYWORD  LEX       686
                                        *         ,AND TO RUN, A RESERVED SEQUENCE --                            LEX       687
                                        *                                                                        LEX       688
                                        *         COLUMN =             1 1 1 1 1 1                               LEX       689
                                        *                    6   7 8 9 0 1 2 3 4 5                               LEX       690
                                        *                        F O R M A T (                                   LEX       691
                                        *         IF THIS SEQUENCE IS FOUND *TAB* EXITS TO THE   F O R M A T     LEX       692
                                        *         PROCESSOR LEAVING THE *SB* UNTABBED.                           LEX       693
                                        *                                                                        LEX       694
                                        *         TABS PROCESS LENDS ITSELF TO CONFUSION ONLY IN 2 ILL-DEFINED   LEX       695
                                        *         STATEMENTS.  THE PROBLEM IS THAT *ANSI* UNLIKE THE REST OF THE LEX       696
                                        *         WORLD DIDNOT CONSIDER THE POOR SYNTAX FOR THE FOLLOWING        LEX       697
                                        *         STATEMENTS                                                     LEX       698
                                        *                                                                        LEX       699
                                        *         IE.    DO SN VA=1,10     THE PROBLEM IS THAT BETWEEN THE       LEX       700
                                        *                                  STATMENT NUMBER FIELD (SN) AND THE    LEX       701
                                        *                                  VARIABLE FIELD (VA) THERE IS NO       LEX       702
                                        *                                  DELIMITER. THIS NOT ONLY CAUSES       LEX       703
                                        *                                  COMPILERS TO SPECIAL CASE *DO* SYNTAX LEX       704
                                        *                                  BUT HAS CAUSED MANY A PROGRAMMER TO   LEX       705
                                        *                                  MIS-PLACE A VARIABLE THINGING IT IS A LEX       706
                                        *                                  *DO* DEFINITION STATEMENT.            LEX       707
                                        *         IE.   DO 1 I=1.0         IS A VARIABLE, NOT A *DO* DEFINITION. LEX       708
                                        *                                                                        LEX       709
                                        *         (WHY DIDNT *ANSI* TAKE THE 3600 FORM OF *DO*.                  LEX       710
                                        *                DO 1, I= 1,10  ELIMINATES THE PROBLEM.)                 LEX       711
                                        *                                                                        LEX       712
                                        *                ASSIGN SN TO VA   HOPEFULLY I DO NOT NEED TO EXPLAIN    LEX       713
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    17
                                                                      TAB 
  
                                        *                                  THIS COMPLETELY DUMB STATEMENTS       LEX       714
                                        *                                  POOR - POOR SYNTAX.                   LEX       715
                                        *                                                                        LEX       716
                                        *         TAB, DEFINED AS PART OF THE MASTER LOOP. ALSO SETS             LEX       717
                                        *         UP CELLS FOR CLASSIFYING A STATEMENT. TAB WILL SET             LEX       718
                                        *                                                                        LEX       719
                                        *                FIRSTV      EQUAL TO THE 1ST VARIABLE FOUND.            LEX       720
                                        *                                                                        LEX       721
                                        *                ZLEQUAL     ADDRESS OF THE LAST ZERO LEVEL = FOUND      FEAT126C  133
                                        *                                                                        LEX       723
                                        *                ZLCOMMA     ADDRESS OF THE LAST ZERO LEVEL , FOUND      FEAT126C  134
                                        *                                                                        LEX       725
                                        *                ZLPAREN     ADDRESS IN *SB* WHERE THE CLOSING *)* FOR   LEX       726
                                        *                            ZERO LEVEL WAS FOUND.                       LEX       727
                                        *                                                                        LEX       728
                                        *                                                                        LEX       729
                                        *         ENTRY  B3 _ FWA TO STORE NORMALIZED STATEMENT INTO.            LEX       730
                                        *                B4 _ FWA OF FIRST ELEMENT TO BE PROCESSED.              LEX       731
                                        *                                                                        LEX       732
                                        *         EXIT   B3 _ END OF TABBED FILE.                                LEX       733
                                        *                B4 _ LAST ENTITY PROCESSED BY TAB.                      LEX       734
                                        *                                                                        LEX       735
                                        *                                                                        LEX       736
                                        *         --------------- L O C K  -  R E G I S T E R S --------------   LEX       737
                                        *         (B3) _ NEXT PLACE TO STORE.                                    LEX       738
                                        *         (B4) _ NEXT ELEMENT TO BE PROCESSED.                           LEX       739
                                        *         (B6) = PARENTHESIS LEVEL.                                      LEX       740
                                        *         NO ROUTINE CALLED BY *TAB* MAY DESTROY ANY OF THE ABOVE REGS.  LEX       741
                                        *         ------------------------------------------------------------   LEX       742
                                        *                                                                        LEX       743
                                        *         USES   ALL REGISTERS.                                          LEX       744
                                        *                                                                        LEX       745
                                        *         CALLS  ASN - TO TRANSLATE ANY NUMBER.                          LEX       746
                                        *                ASV - TRANSLATE VARIABLE.                               LEX       747
                                        *                MANAGE - ENTER HOLLERITH CONSTANT.                      LEX       748
                                                                                                                 LEX       749
                                                                                                                 LEX       750
           361  6150000000 X             TABE2    SB5    E.HC2       PREMATURE *EOS* IN TRANSLATING HOLL CON.    LEX       751
           362  66750                    TABEX    WARN   B5          OUTPUT ERROR.                               LEX       752
           363  13666                             BX6    0                                                       LEX       753
                     56630                        SA6    B3          MAKE SURE STATEMENT IS TERMINATED.          LEX       754
                          0400000364 +            EQ     TABX        EXIT..                                      LEX       755
                                                                                                                 LEX       756
                                                                                                                 LEX       757
           364  0400400364 +             TAB      SUBR   0           ** ENTRY/EXIT **                            LEX       758
           365  13666                             BX6    0                                                       LEX       759
                     5160000000 X                 SA6    FIRSTV      CLEAR FIRST VARIABLE CELL.                  LEX       760
                               54661              SA6    A6+B1         -   ZERO LEVEL *=* INDICATOR.             LEX       761
           366  54661                             SA6    A6+B1         -   ZERO LEVEL *,* INDICATOR.             LEX       762
                     54661                        SA6    A6+B1         -   ZERO LEVEL *)* INDICATOR.             LEX       763
                          5160000000 X            SA6    MULS        CLEAR MULTIPLE STATEMENT INDICATOR.         LEX       764
           367  5160000552 +                      SA6    BLANK       INDICATE BLANK LINE (NO SYMBOLS ENCOUNTERED LEX       765
                                        *                                  SO FAR)                               LEX       766
                          5110000000 X            SA1    TS=CON                                                  LEX       767
           370  10611                             BX6    X1                                                      LEX       768
                     66600                        SB6    B0            -   PARENTHESIS COUNT.                    LEX       769
                          5160000000 X            SA6    ICONL       SET INITIAL *CONSTANT* TABLE LENGTH.        LEX       770
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    18
                                                                      TAB 
  
           371  0400000374 +                      EQ     TAB1        START                                       LEX       771
                                                                                                                 LEX       772
                                        **        HERE IF CHARACTER IS *(*                                       LEX       773
                                                                                                                 LEX       774
           372  6166000001               TAB.LP   SB6    B6+1                                                    LEX       775
                                                                                                                 LEX       776
                                        **        HERE TO STORE CHARACTER INTO *SB*                              LEX       777
                                                                                                                 LEX       778
           373  10611                    TAB.NX   BX6    X1                                                      LEX       779
                     66441                        SB4    B4+B1                                                   LEX       780
                          56630                   SA6    B3          CHARACTER TO *SB*                           LEX       781
                               66331              SB3    B3+B1       UPDATE POINTER.                             LEX       782
                                                                                                                 LEX       783
                                        **        *T A B*  -  M A S T E R   L O O P.                             LEX       784
                                                                                                                 LEX       785
           374  56140                    TAB1     SA1    B4          LOAD NEXT ELEMENT.                          LEX       786
                     43015                        MX0    -1R.                                                    LEX       787
                          0331000446 +            MI     X1,TAB.EOS  IF *EOS*                                    LEX       788
           375  7271777724                        SX7    X1-1R$                                                  LEX       789
                          0307000416 +            ZR     X7,TAB.DOL  IF *$*                                      LEX       790
           376  5170000552 +                      SA7    BLANK       INDICATE NOT A BLANK CARD                   LEX       791
                          7221777732              SX2    X1-1R+                                                  LEX       792
           377  0332000451 +                      MI     X2,TAB.VA   IF NOT SEPARATOR (LETTER/NUMBER)            LEX       793
                          6221007777              SB2    X1+7777B                                                LEX       794
           400  5231777732 X                      SA3    X1+MAPCHAR-1R+                                          LEX       795
                          23420                   AX4    B2,X0                                                   LEX       796
                               46000              NO                                                             LEX       797
           401  0314000406 +                      NZ     X4,TAB5     IF CHARACTER OK.                            LEX       798
                          6221777713              SB2    X1-1R"                                                  LEX       799
           402  0420000425 +                      ZR     B2,TAB.QT   IF *"*                                      LEX       800
                          6221777717              SB2    X1-1R#                                                  LEX       801
           403  0420000425 +                      ZR     B2,TAB.QT   IF *#*                                      LEX       802
                          20166                   LX1    9*CHAR                                                  LEX       803
                               43006              MX0    CHAR                                                    FCC1096     7
           404  11610                             BX6    X1*X0                                                   FCC1096     8
           405  5160000000 X             TAB4     SA6    FILL.                                                   FCC1476X    6
                          0400000000 X            EQ     E.US1       ILLEGAL CHARACTER                           LEX       806
                                                                                                                 LEX       807
                                        **        MAP SEPARATOR CHARACTER/ JUMP TO APPROPIATE PROCESSOR.         LEX       808
                                                                                                                 LEX       809
           406  73130                    TAB5     SX1    X3          MAPPING FOR CHARACTER.                      LEX       810
                     21322                        AX3    18                                                      LEX       811
                          63230                   SB2    X3                                                      LEX       812
                               46000              NO                                                             LEX       813
           407  0222000000                        JP     B2          JUMP TO PROCESS SEPARATOR.                  LEX       814
  
  
  
  
                                                                                                                 LEX       816
                                        **        HERE IF CHARACTER IS *.                                        LEX       817
                                                                                                                 LEX       818
           410  7226777771               TAB.STR  SX2    X6-O.STAR                                               LEX       819
                          0312000373 +            NZ     X2,TAB.NX   IF NOT STAR                                 LEX       820
           411  7160000026                        SX6    O.EXP                                                   LEX       821
                          57631                   SA6    B3-B1       INDICATE **                                 LEX       822
                               66441              SB4    B4+B1                                                   LEX       823
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    19
  
  
           412  0400000374 +                      EQ     TAB1        CONTINUE                                    LEX       824
                                                                                                                 LEX       825
                                        **        HERE IF CHARACTER IS *)*.                                      LEX       826
                                                                                                                 LEX       827
           413  67661                    TAB.RP   SB6    B6-B1                                                   LEX       828
                     0560000373 +                 NZ     B6,TAB.NX   IF NOT ZERO LEVEL.                          LEX       829
           414  5130000000 X                      SA3    ZLPAREN                                                 LEX       830
                          0313000373 +            NZ     X3,TAB.NX   IF 1ST ZERO LEVEL FOUND.                    LEX       831
           415  76631                             SX6    B3+B1                                                   LEX       832
                     54630                        SA6    A3          SET ADDRESS.                                LEX       833
                          0400000373 +            EQ     TAB.NX      CONTINUE.                                   LEX       834
                                                                                                                 LEX       835
                                        **        HERE IF CHARACTER IS *$*.                                      LEX       836
                                                                                                                 LEX       837
           416  76641                    TAB.DOL  SX6    B4+B1                                                   LEX       838
                     46000                        NO                                                             LEX       839
                          5160000000 X            SA6    MULS        RESET MULTIPLY STATEMENT INDICATOR.         LEX       840
           417  0400000446 +                      EQ     TAB.EOS     EXIT..                                      LEX       841
                                                                                                                 LEX       842
                                                                                                                 LEX       843
                                        **        HERE IF CHARACTER IS *=*.                                      LEX       844
                                                                                                                 LEX       845
           420  0560000373 +             TAB.=    NZ     B6,TAB.NX   IF NOT IN ZERO LEVEL                        LEX       846
                          5120000000 X            SA2    ZLEQUAL                                                 LEX       847
           421  76630                             SX6    B3                                                      LEX       848
                     20222                        LX2    P.SYM                                                   LEX       849
                          54620                   SA6    A2          RESET *ZLEQUAL*                             LEX       850
                               36121              IX1    X2+X1       POINTER TO LAST *=* FOUND.                  LEX       851
           422  0400000373 +                      EQ     TAB.NX      CONTINUE.                                   LEX       852
                                                                                                                 LEX       853
                                        **        HERE IF CHARACTER IS *,*.                                      LEX       854
                                                                                                                 LEX       855
           423  0560000373 +             TAB.CO   NZ     B6,TAB.NX   IF NOT IN ZERO LEVEL                        LEX       856
                          76630                   SX6    B3                                                      LEX       857
           424  5160000000 X                      SA6    ZLCOMMA     SET ZERO LEVEL *,*                          LEX       858
                          0400000373 +            EQ     TAB.NX      CONTINUE.                                   LEX       859
                                                                                                                 LEX       860
                                        **        HERE IF CHARACTER IS *"*.                                      LEX       861
                                                                                                                 LEX       862
           425  43066                    TAB.QT   MX0    -CHAR                                                   LEX       863
                     15610                        BX6    -X0*X1                                                  LEX       864
                          20666                   LX6    9*CHAR                                                  LEX       865
                               43700              MX7    0                                                       LEX       866
           426  5160000000 X                      SA6    FILL.       DELIMITER.                                  LEX       867
                          5170000551 +            SA7    INR         INDICATE CHAR STRING                        LEX       868
           427  6170000000 X                      ANSI   =XE.HC5                                                 FCC0498    14
           430  5160000000 X                      SA6    HOLLSKL                                                 LEX       869
                          6150000012              SB5    10                                                      LEX       870
           431  13666                             BX6    0                                                       LEX       871
                     43500                        MX5    0           FLAG TO INDICATE CALLER NOT *FMT*           LEX       872
                          0100000615 +            RJ     TSC         TRANSLATE STRING DELIMITED CONSTANT.        LEX       873
           432  0301000446 +                      ZR     X1,TAB.EOS  IF ERROR IN TRANSLATION.                    LEX       874
                                                                                                                 LEX       875
                                        **        NOTE - TSC RETURNS B7 WITH VALUE 6*(9-NO. OF CHARS IN WORD).   LEX       876
                                        *                                                                        LEX       877
                          7117777711              SX1    B7-54                                                   LEX       878
           433  0301000436 +                      ZR     X1,TAB.QT5  IF COMPLETE WORD                            LEX       879
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    20
  
  
                          6177777712              SB7    B7-53                                                   LEX       880
           434  43101                             MX1    1                                                       LEX       881
                     0400000543 +                 EQ     TAB82       IF PARTIAL WORD, BLANK PAD                  LEX       882
                                                                                                                 LEX       883
                                        **        NOTE - ALL HOLLERITH (STRING) CONSTANTS WITH PARTIALLY FILLED  LEX       884
                                        *                BUILD WORDS REJOIN HERE.                                LEX       885
                                                                                                                 LEX       886
           435  54661                    TAB.QT3  =A6    A6+1        STORE PARTIAL WORD                          LEX       887
                     13666                        BX6    0                                                       LEX       888
                                                                                                                 LEX       889
                                        **        NOTE - ALL HOLLERITH (STRING) CONSTANTS ENDING WITH COMPLETE   LEX       890
                                        *                BUILD WORDS REJOIN HERE.                                LEX       891
                                                                                                                 LEX       892
           436  64761                    TAB.QT5  =B7    A6+1        LWA+1 OF CONSTANT                           LEX       893
                     54661                        =A6    A6+1        STORE  ZERO WORD APPENDED                   LEX       894
                          6150000143              SB5    99                                                      FCC0714     5
           437  77652                             SX6    B5-B2       CHAR LENGTH OF STRING                       FCC0714     6
                     6120000001 X                 SB2    HOLLSKL+1   FWA                                         LEX       895
                               77572              SX5    B7-B2       WORD LENGTH                                 FCC0714     7
           440  5110000000 X                      SA1    TS.CON                                                  LEX       896
                          5120000551 +            SA2    INR                                                     LEX       897
           441  0312000442 +                      NZ     X2,TAB.QT6  IF NOT CHAR STRING                          LEX       900
                          20611                   LX6    P.CLCON-P.LCON                                          LEX       907
                               12565              BX5    X6+X5                                                   LEX       908
           442  66530                    TAB.QT6  SB5    B3          SAVE *B3*                                   LEX       909
                     64361                        =B3    A6+1        LWA+1 (ACTUAL LENGTH)                       FCC0714     8
                          0100000000 X            RJ     NCM         SCAN/ENTRY INTO TS.CON TABLE.               LEX       911
           443  66350                             SB3    B5          RESET *B3*                                  LEX       912
                     7107340000                   SX0    B7+C.CON                                                LEX       913
                               76110              =X1    O.HOLL                                                  LEX       914
           444  20052                             LX0    P.TAG                                                   LEX       915
                     36601                        IX6    X0+X1       TAG + O.HOLL                                LEX       916
                          20522                   LX5    P.LCON                                                  LEX       917
                               12165              BX1    X6+X5       TAG + LENGTH + O.HOLL                       LEX       918
           445  0400000373 +                      EQ     TAB.NX      CONTINUE.                                   LEX       919
                                                                                                                 LEX       920
                                        **        HERE IF *EOS*                                                  LEX       921
                                                                                                                 LEX       922
           446  13666                    TAB.EOS  BX6    0                                                       LEX       923
                     56630                        SA6    B3          MARK *EOS*                                  LEX       924
                          0460000364 +            ZR     B6,TABX     IF PROPER PARENTHESIS COUNT.                LEX       925
           447  6150000000 X                      SB5    E.LP1       ERROR = TOO FEW *)*                         FCC0683     7
                          0660000362 +            PL     B6,TABEX    IF TOO FEW *)*                              FCC0683     8
           450  6150000000 X                      SB5    E.LP2       ERROR = TOO FEW *(*                         FCC0683     9
                          0400000362 +            EQ     TABEX       ERR EXIT..                                  LEX       929
                                                                                                                 LEX       930
                                                                                                                 LEX       931
                                        **        HERE IF CHARACTER IS *ALPHANUMERIC*                            LEX       932
                                                                                                                 LEX       933
           451  7222000012               TAB.VA   SX2    X2+1R+-1R0                                              LEX       934
                          0322000510 +            PL     X2,TAB.NU   IF NO LETTERS                               LEX       935
           452  63210                             SB2    X1                                                      FCC1476X    7
                     0520000455 +                 NZ     B2,TAB.VA1  IF CHARACTER *A-Z*                          FCC1476X    8
           453  7160000055                        SX6    2R:         COLON IS ILLEGAL                            FCC1476X    9
                          20660                   LX6    8*CHAR                                                  FCC1476X   10
           454  0400000405 +                      EQ     TAB4        REPORT ERROR                                FCC1476X   11
                                                                                                                 FCC1476X   12
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    21
  
  
                                                                                                                 LEX       936
                                        **        HERE IF CHARACTER IS *A-Z*.                                    LEX       937
                                                                                                                 LEX       938
           455  5150000000 X             TAB.VA1  SA5    FIRSTV                                                  LEX       939
                          0100000014 +            RJ     ASV         ASSEMBLE NEXT *7* ALPHANUMERIC CHARACTERS.  LEX       940
           456  7130000003                        =X3    O.VAR                                                   LEX       941
                          0315000464 +            NZ     X5,TAB.VA20 IF NOT FIRST VARIABLE                       LEX       942
           457  5120001052 +                      SA2    =0LFORMAT                                               LEX       943
                          37026                   IX0    X2-X6                                                   LEX       944
                               54650              SA6    A5          SAVE FIRST VARIABLE.                        LEX       945
           460  0310000464 +                      NZ     X0,TAB.VA20 IF NOT *FORMAT*                             LEX       946
                          7221777726              SX2    X1-1R(                                                  LEX       947
           461  0312000464 +                      NZ     X2,TAB.VA20 IF NOT *FORMAT(*                            LEX       948
                          5140000000 X            SA4    =XSB.STNR                                               LEX       949
           462  0304000464 +                      ZR     X4,TAB.VA20 IF NO ASSOCIATED STMT NUMBER                LEX       950
                          6150000000 X            SB5    FORMAT                                                  LEX       951
           463  5155000000 X                      SA5    B5+LGR                                                  LEX       952
                          0400000000 X            EQ     TABX.F      EXIT.. *FORMAT(*                            LEX       953
                                                                                                                 LEX       954
                                                                                                                 LEX       955
           464  36663                    TAB.VA20 IX6    X6+X3                                                   LEX       956
                     56630                        SA6    B3                                                      LEX       957
                          66331                   SB3    B3+B1                                                   LEX       958
           465  7221777732                        SX2    X1-1R+                                                  LEX       959
                          0322000374 +            PL     X2,TAB1     CONTINUE IF NEXT NOT *A - 9*.               LEX       960
           466  0321000455 +                      PL     X1,TAB.VA1  IF NOT *EOS*                                LEX       961
                          0400000446 +            EQ     TAB.EOS                                                 LEX       962
                                                                                                                 LEX       963
                                        **        HERE IF CHARACTER IS *.*.                                      LEX       964
                                                                                                                 LEX       965
           467  56241                    TAB.PD   SA2    B4+B1                                                   LEX       966
                     0332000373 +                 MI     X2,TAB.NX   IF *EOS*                                    LEX       967
           470  6222777732                        SB2    X2-1R+                                                  LEX       968
                          0620000373 +            PL     B2,TAB.NX   IF SEPARATOR.                               LEX       969
           471  10611                             BX6    X1                                                      LEX       970
                     66441                        SB4    B4+B1                                                   LEX       971
                          56630                   SA6    B3          TO *SB*                                     LEX       972
           472  6222777744                        SB2    X2-1R0                                                  LEX       973
                          56140                   SA1    B4          NEXT                                        LEX       974
                               66331              SB3    B3+B1                                                   LEX       975
           473  26101                             UX1    X1                                                      LEX       976
                     0620000516 +                 PL     B2,TAB.NU5  IF DIGIT, ASSEMBLE NUMBER.                  LEX       977
                                                                                                                 LEX       978
                                        **        CHECK IF PROCESSING PERIOD DELIMITED OPERATOR.                 LEX       979
                                                                                                                 LEX       980
           474  0100000014 +             TAB.LG   RJ     ASV         ASSEMBLE VARIABLE                           LEX       981
           475  7221777720                        SX2    X1-1R.                                                  LEX       982
                          7130000003              =X3    O.VAR                                                   LEX       983
           476  0312000464 +                      NZ     X2,TAB.VA20 IF NOT *.*                                  LEX       984
                                                                                                                 LEX       985
                                        **        CHECK IF OPERATOR IS DEFINED BY FORTRAN.                       LEX       986
                                                                                                                 LEX       987
                          6170000000 X            SB7    LG.LOG                                                  LEX       988
           477  6144000001                        SB4    B4+1                                                    LEX       989
           500  5117000000 X             TAB.LG5  SA1    B7+LOGT                                                 LEX       990
                          13261                   BX2    X6-X1                                                   LEX       991
                               21222              AX2    18                                                      LEX       992
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    22
  
  
           501  0302000504 +                      ZR     X2,TAB.LG10 IF HIT                                      LEX       993
                          6177777776              SB7    B7-1                                                    LEX       994
           502  0670000500 +                      PL     B7,TAB.LG5  LOOP THRU TABLE                             LEX       995
                          6144777775              =B4    B4-2                                                    FCC0637     4
           503  36163                             IX1    X6+X3       BUILD VARIABLE TOKEN                        FCC0498    15
                     0400000373 +                 EQ     TAB.NX                                                  LEX       998
                                                                                                                 LEX       999
                                        **        HERE IF IN TABLE.                                              LEX      1000
                                                                                                                 LEX      1001
           504  73610                    TAB.LG10 SX6    X1                                                      LEX      1002
                     43030                        MX0    CHAR+L.SBPR                                             FCC0498    16
                          20022                   LX0    L.SBPR                                                  FCC0498    17
                               15110              BX1    -X0*X1                                                  FCC0498    18
           505  57631                             SA6    B3-B1       SET TO APPROPIATE INDICATOR                 LEX      1004
                     0311000374 +                 NZ     X1,TAB1     IF NOT ONE CHARACTER FORM                   FCC0498    19
                                                                                                                 FCC0498    20
           506  6170000000 X                      ANSI   E.VA2       SPECIAL LOGICAL OPERATOR NON ANSI.          LEX      1006
           507  0400000374 +                      EQ     TAB1        CONTINUE.                                   LEX      1007
                                                                                                                 LEX      1008
                                        **        HERE IF CHARACTER IS *0-9*.                                    LEX      1009
                                        *         CHECK FOR POSSIBLE *HOLLERITH* CONSTANT FORM.                  LEX      1010
                                                                                                                 LEX      1011
           510  6221777744               TAB.NU   SB2    X1-1R0                                                  LEX      1012
                          0520000516 +            NZ     B2,TAB.NU5  IF NO LEADING *0*.                          LEX      1013
           511  56141                             SA1    B4+B1                                                   LEX      1014
                     5150001051 +                 SA5    ="NUM09"                                                LEX      1015
                               66441              SB4    B4+B1                                                   LEX      1016
           512  6221777744               TAB.NU1  SB2    X1-1R0                                                  LEX      1017
                          0520000514 +            NZ     B2,TAB.NU2  IF NOT *0*.                                 LEX      1018
           513  54111                             SA1    A1+B1       NEXT                                        LEX      1019
                     66441                        SB4    B4+B1       B4=A1                                       LEX      1020
                          0400000512 +            EQ     TAB.NU1     CONTINUE DELETING *0*S.                     LEX      1021
                                                                                                                 LEX      1022
           514  63210                    TAB.NU2  SB2    X1                                                      LEX      1023
                     22025                        LX0    B2,X5                                                   LEX      1024
                          0330000516 +            MI     X0,TAB.NU5  IF NUMBER                                   LEX      1025
           515  67441                             SB4    B4-B1       RESET TO LAST *0*.                          LEX      1026
           516  5150001053 +             TAB.NU5  SA5    ="LETHLR"                                               LEX      1027
                          0100000000 +            RJ     ASN         ASSEMBLE NUMBER.                            LEX      1028
           517  7140000002                        SX4    O.CONS                                                  LEX      1029
                          63210                   SB2    X1                                                      LEX      1030
                               12646              BX6    X4+X6                                                   LEX      1031
           520  22325                             LX3    B2,X5                                                   LEX      1032
                     56630                        SA6    B3          NUMBER TO *SB*                              LEX      1033
                          66331                   SB3    B3+B1                                                   LEX      1034
           521  0333000524 +                      MI     X3,TAB.NU7  IF *H* *L* OR *R*                           LEX      1035
                          5150001051 +            SA5    ="NUM09"                                                LEX      1036
           522  22325                             LX3    B2,X5                                                   LEX      1037
                     0323000374 +                 PL     X3,TAB1     IF NEXT NOT NUMBER.                         LEX      1038
           523  0400000516 +                      EQ     TAB.NU5     CONTINUE ASSEMBLYING NUMBER.                LEX      1039
                                                                                                                 LEX      1040
                                        **        PROCESS *HOLLERITH* CONSTANT INTO TS.CON TABLE.                LEX      1041
                                        *         PROCESS *H*, *L*, OR *R*  DATA                                 LEX      1042
                                                                                                                 LEX      1043
           524  26671                    TAB.NU7  UX6,B7 X1                                                      LEX      1044
                     5160000551 +                 SA6    INR         STORE *H*,*L* OR *R* INDICATOR.             LEX      1045
           525  7266777767                        SX6    X6-1RH                                                  FCC0498    21
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    23
  
  
                          0306000527 +            ZR     X6,TAB.NU8  IF *H*                                      FCC0498    22
           526  6170000000 X                      ANSI   =XE.HC5                                                 FCC0498    23
           527  43066                    TAB.NU8  MX0    -CHAR                                                   FCC0498    24
                     76200                        SX2    B0                                                      LEX      1047
                          57431                   SA4    B3-B1       NUMBER IN *DPC*                             LEX      1048
                               13555              BX5    0                                                       LEX      1049
           530  66441                             =B4    B4+1        1ST CHARACTER.                              LEX      1050
                                                                                                                 LEX      1051
                                        **        CONVERT CHARACTER COUNT TO *INTERNAL BINARY*                   LEX      1052
                                                                                                                 LEX      1053
           531  20406                    TAB76    LX4    CHAR                                                    LEX      1054
                     15340                        BX3    -X0*X4      NEXT DIGIT                                  LEX      1055
                          7263777744              SX6    X3-1R0                                                  LEX      1056
           532  22512                             LX5    B1,X2       LAST *2                                     LEX      1057
                     0303000534 +                 ZR     X3,TAB77    IF END OF CONSTANT.                         LEX      1058
                               36656              IX6    X5+X6                                                   LEX      1059
           533  20203                             LX2    3           LAST *8                                     LEX      1060
                     36262                        IX2    X6+X2                                                   LEX      1061
                          0400000531 +            EQ     TAB76       LOOP                                        LEX      1062
                                                                                                                 LEX      1063
           534  13666                    TAB77    BX6    0                                                       LEX      1064
                     73020                        SX0    X2          CHARACTER COUNT.                            LEX      1065
                          6150000012              SB5    10                                                      LEX      1066
           535  5160000000 X                      SA6    HOLLSKL     DUMMY STORE FOR *THC*                       LEX      1067
                          0100000561 +            RJ     THC         TRANSLATE HOLLERITH CONSTANT.               LEX      1068
           536  0301000446 +                      ZR     X1,TAB.EOS  IF ERROR IN TRANSLATION.                    LEX      1069
                          5130000551 +            SA3    INR         *H* *L* OR *R*                              LEX      1070
           537  67331                             =B3    B3-1                                                    LEX      1071
                     6223777763                   SB2    X3-1RL                                                  LEX      1072
           540  0420000546 +                      ZR     B2,TAB101   IF *L*                                      LEX      1073
                          6223777767              SB2    X3-1RH                                                  LEX      1074
           541  0520000545 +                      NZ     B2,TAB100   IF NOT *H*                                  LEX      1075
                          0770000543 +            MI     B7,TAB82    IF PARTIAL WORD.                            LEX      1076
           542  0400000436 +                      EQ     TAB.QT5     CONTINUE                                    LEX      1077
                                                                                                                 LEX      1078
                                        **        BLANK PAD INCOMPLETE *H* OR *" "* WORD.                        LEX      1079
                                                                                                                 LEX      1080
           543  5130001054 +             TAB82    SA3    =1H                                                     LEX      1081
                          22071                   LX0    B7,X1                                                   LEX      1082
                               15230              BX2    -X0*X3                                                  LEX      1083
           544  12626                             BX6    X2+X6                                                   LEX      1084
                     0400000435 +                 EQ     TAB.QT3     CONTINUE                                    LEX      1085
                                                                                                                 LEX      1086
           545  10622                    TAB100   BX6    X2          *R*                                         LEX      1087
           546  0316000435 +             TAB101   NZ     X6,TAB.QT3  ENTER PARTIAL WORD                          FCC0635     6
                          6170000000 X            SB7    HOLLSKL                                                 FCC0635     7
           547  65767                             SB7    A6-B7                                                   FCC0635     8
                     0470000435 +                 ZR     B7,TAB.QT3  IF SPECIAL FORM (NL: OR NR:)                FCC0635     9
           550  0400000436 +                      EQ     TAB.QT5                                                 FCC0635    10
                                                                                                                 LEX      1090
           551  00000000000000000000     INR      DATA   0                                                       LEX      1091
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    24
                                                                      THC 
  
                                        **        THC -  TRANSLATE HOLLERITH CONSTANT.                           LEX      1093
                                        *                                                                        LEX      1094
                                        *                ROUTINE USED BY                                         LEX      1095
                                        *                            A. TAB - NORMALIZE STATEMENT.               LEX      1096
                                        *                                     FOR PROCESSING EITHER -- H, L OR R LEX      1097
                                        *                            B. FMT - FORMAT TRANSLATION.                LEX      1098
                                        *                                     FOR PROCESSING -- H ONLY.          LEX      1099
                                        *                                                                        LEX      1100
           552  00000000000000000000     BLANK    DATA   0           SET TO ZERO IF A BLANK CARD IS ENCOUNTERED  LEX      1101
                                        *         ENTRY  (B4) _ 1ST CHARACTER.                                   LEX      1102
                                        *                (B5) = 10-(NUMBER OF CHARACTERS IN CURRENT WORD)        LEX      1103
                                        *                (X0) = CHARACTER COUNT.                                 LEX      1104
                                        *                 A6 _ FWA -1 OF WHERE TO STORE DATA.                    LEX      1105
                                        *                (X6) = BUILDING WORD.                                   LEX      1106
                                        *                (FILL.) = HOLLERITH CHARACTER CODE CURRENTLY PROCESSING LEX      1107
                                        *                                                                        LEX      1108
                                        *         EXIT   (X1)  0 IF ERROR ENCOUNTERED IN TRANSLATION.            LEX      1109
                                        *                (X2) = LAST ENTRY IN 0R FORMAT.                         LEX      1110
                                        *                (X6) = LAST ENTRY IN 0L FORMAT.                         LEX      1111
                                        *                (B4) _ LAST WORD IN HOLL CONSTANT                       LEX      1112
                                        *                (B5) = 10 - NUMBER OF CHARS IN (X2)                     LEX      1113
                                        *                (B7) = B5*CHAR-59                                       LEX      1114
                                        *                                                                        LEX      1115
                                        *         USES   A1,A6  X0,X1,X2,X3,X7  B2,B4,B5,B7                      LEX      1116
                                                                                                                 LEX      1117
                                                                                                                 LEX      1118
           553  54360                    THCZEX   SA3    A6                                                      LEX      1119
                     22206                        LX2    X6                                                      LEX      1120
                          6170000000 X            FATAL  E.HC1       IF ZERO CHAR COUNT                          LEX      1121
           555  0400000560 +                      EQ     THCE                                                    LEX      1122
                                                                                                                 LEX      1123
           556  65411                    THCEX    =B4    A1-1                                                    LEX      1124
                     54360                        SA3    A6                                                      LEX      1125
                          22206                   LX2    X6                                                      LEX      1126
           557  6170000000 X                      FATAL  E.HC2       PREMATURE *EOS*                             LEX      1127
                                                                                                                 LEX      1128
           560  10633                    THCE     BX6    X3                                                      LEX      1129
                     43100                        MX1    0                                                       LEX      1130
                          54630                   SA6    A3                                                      LEX      1131
                                                                                                                 LEX      1132
           561  0400400561 +             THC      SUBR   0                                                       LEX      1133
           562  0300000553 +                      ZR     X0,THCZEX   IF COUNT IS ZERO.                           LEX      1134
                          56140                   SA1    B4                                                      LEX      1135
                               26371              UX3    B7,X1       FIRST CHARACTER.                            LEX      1136
           563  6140776000                        SB4    -1777B                                                  FCC0844    15
                          7120000055              SX2    1R          FOR BLANK PADDING.                          LEX      1137
                                                                                                                 LEX      1138
           564  0300000575 +             THC5     ZR     X0,THC25    IF COUNT EXHAUSTED.                         LEX      1139
                          67771                   =B7    B7-1        BLANK COUNT-1                               LEX      1140
                               67551              =B5    B5-1                                                    LEX      1141
           565  20606                             LX6    CHAR                                                    LEX      1142
                     7200777776                   SX0    X0-1                                                    LEX      1143
           566  0474000571 +                      EQ     B7,B4,THC10 IF NO IMBEDDED BLANKS                       FCC0844    16
                          12662                   BX6    X6+X2       ADD IN BLANK                                LEX      1145
           567  0550000564 +                      NZ     B5,THC5     IF NO END OF WORK                           LEX      1146
                          54661                   =A6    A6+1                                                    LEX      1147
                               13666              BX6    0                                                       LEX      1148
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    25
                                                                      THC 
  
           570  6150000012                        SB5    10                                                      LEX      1149
                          0400000564 +            EQ     THC5        CONTINUE.                                   LEX      1150
                                                                                                                 LEX      1151
           571  0331000556 +             THC10    MI     X1,THCEX    IF PREMATURE *EOS*                          LEX      1152
                          54111                   =A1    A1+1                                                    LEX      1153
                               12663              BX6    X6+X3       HERE IF NO IMBEDDED BLANKS.                 LEX      1154
           572  26371                             UX3    B7,X1                                                   LEX      1155
                     0550000564 +                 NZ     B5,THC5     IF NO END OF WORK                           LEX      1156
                               54661              =A6    A6+1        ADD WORD TO TABLE.                          LEX      1157
           573  13666                             BX6    0           CLEAR ASSEMBLY REGISTER                     LEX      1158
                     6150000012                   SB5    10                                                      LEX      1159
           574  0400000564 +                      EQ     THC5                                                    LEX      1160
                                                                                                                 LEX      1161
                                        **        HERE IF COUNT EXHAUSTED                                        LEX      1162
                                                                                                                 LEX      1163
           575  76155                    THC25    SX1    B5+B5       *2                                          LEX      1164
                     22206                        LX2    X6                                                      LEX      1165
                          36011                   IX0    X1+X1       *4                                          LEX      1166
                               65411              =B4    A1-1        LAST WORD IN CONSTANT                       LEX      1167
           576  36010                             IX0    X1+X0       *6                                          LEX      1168
                     63700                        SB7    X0                                                      LEX      1169
                          43101                   MX1    1                                                       LEX      1170
                               22672              LX6    B7,X2       0L FORMAT.                                  LEX      1171
           577  6177777704                        SB7    B7-59                                                   LEX      1172
                          0400000561 +            EQ     THCX        EXIT..                                      LEX      1173
                                                                                                                 LEX      1174
                                                                                                                 LEX      1175
                                                                                                                 LEX      1176
                                                                                                                 LEX      1177
                                        **        TLV - TRUNCATE LONG VARIABLE                                   LEX      1178
                                        *         WHEN A VARIABLE NAME (TYPE O.VAR) OCCUPIES MORE THAN ONE       LEX      1179
                                        *         TOKEN, B4 IS RESET TO POINT TO THE LAST TOKEN IN THE           LEX      1180
                                        *         STRING AND THE VALUE OF THIS TOKEN IS CHANGED TO THE SAME      LEX      1181
                                        *         AS THE FIRST TOKEN. THIS EVIDENTLY FOOLS PAR INTO THINKING     LEX      1182
                                        *         THE NAME DOES NOT EXCEED 7 CHARACTERS.                         LEX      1183
                                        *                                                                        LEX      1184
                                        *         CALLED BY - PAR,CST,TRV,ETC,ETC                                LEX      1185
                                        *                                                                        LEX      1186
                                        *         ENTRY  (B4)_FIRST TOKEN IN VARIABLE -                          LEX      1187
                                        *         IT IS KNOWN THAT THE NEXT TOKEN IS OF TYPE O.VAR               LEX      1188
                                        *                                                                        LEX      1189
                                        *         EXIT   (B4)_LAST TOKEN IN VARIABLE                             LEX      1190
                                        *                CONTENTS OF LAST TOKEN = CONTENTS OF FIRST TOKEN        LEX      1191
                                        *                                                                        LEX      1192
                                        *         USES   A2,A7   X0,X2,X7   B4,B7                                LEX      1193
                                        *                                                                        LEX      1194
                                        *         CALLS  NONE                                                    LEX      1195
                                        *                                                                        LEX      1196
                                                                                                                 LEX      1197
           600  0400400600 +             TLV      SUBR 0                                                         LEX      1198
           601  56240                             SA2    B4                                                      LEX      1199
                     10722                        BX7    X2          SAVE FIRST TOKEN OF NAME                    LEX      1200
                          43052                   MX0    L.SYM                                                   LEX      1201
           602  66441                    TLV5     =B4    B4+1                                                    LEX      1202
                     56241                        =A2    B4+1                                                    LEX      1203
                          6272777774              SB7    X2-O.VAR                                                LEX      1204
           603  0470000602 +                      ZR     B7,TLV5           IF MORE CHARACTERS IN NAME            LEX      1205
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    26
                                                                      THC 
  
                          56740                   SA7    B4          SET LAST TOKEN=FIRST TOKEN                  LEX      1206
                               11707              BX7    X0*X7                                                   LEX      1207
           604  5170000000 X                      SA7    FILL.                                                   LEX      1208
                          6170000000 X            WARN   =XE.TE7     NAME TRUNCATED TO FIRST 7                   LEX      1209
           606  0400000600 +                      EQ     TLV                                                     LEX      1210
  
  
  
  
                                        **        TSC -  TRANSLATE STRING DELIMITED CONSTANT OF THE FORM --      LEX      1212
                                        *                * --- * , " ---" OR # --- # TO INTERNAL PACKED FORM.    LEX      1213
                                        *                                                                        LEX      1214
                                        *                ROUTINE USED BY                                         LEX      1215
                                        *                            A. TAB - NORMALIZE STATEMENT. (ALL FORMS)   LEX      1216
                                        *                            B. FMT - FORMAT TRANSLATION. (ALL FORMS)    LEX      1217
                                        *                                                                        LEX      1218
                                        *         ENTRY  (B4) _ FIRST DELIMITER                                  LEX      1219
                                        *                (B5) = 10-(NUMBER OF CHARACTERS IN CURRENT WORD)        LEX      1220
                                        *                (X5) = 0 IF NOT CALLED BY *FMT*                         LEX      1221
                                        *                 A6 _ FWA -1 OF WHERE TO STORE DATA.                    LEX      1222
                                        *                (X6) = BUILDING WORD.                                   LEX      1223
                                        *                (FILL.) = DELIMITER CHARACTER.                          LEX      1224
                                        *                                                                        LEX      1225
                                        *         EXIT   (X1)  0 IF ERROR ENCOUNTERED IN TRANSLATION.            LEX      1226
                                        *                (X2) = LAST ENTRY IN 0R FORMAT.                         LEX      1227
                                        *                (X6) = LAST ENTRY IN 0L FORMAT.                         LEX      1228
                                        *                (B2) = 99 - LENGTH OF STRING                            LEX      1229
                                        *                (B4) _ ENDING *DELIMITER* OR 99TH CHAR (FOR *FMT*)      LEX      1230
                                        *                (B5) = 9-NUMBER OF CHARS IN (X6)                        LEX      1231
                                        *                (B7) = B5*CHAR                                          LEX      1232
                                        *         USES   A1,A3,A7  X0-X3,X5,X7  B2,B4,B5,B7                      LEX      1233
                                                                                                                 LEX      1234
                                                                                                                 LEX      1235
           607  54360                    TSCZEX   SA3    A6                                                      LEX      1236
                     22206                        LX2    X6                                                      LEX      1237
                          6170000000 X            FATAL  E.HC4       ZERO LENGTH HOLL STRING                     LEX      1238
           611  0400000614 +                      EQ     TSCE                                                    LEX      1239
                                                                                                                 LEX      1240
           612  65411                    TSCEX    =B4    A1-1                                                    LEX      1241
                     22206                        LX2    X6                                                      LEX      1242
                          54360                   SA3    A6                                                      LEX      1243
           613  6170000000 X                      FATAL  E.HC3       PREMATURE *EOS*                             LEX      1244
                                                                                                                 LEX      1245
           614  10633                    TSCE     BX6    X3                                                      LEX      1246
                     54630                        SA6    A3                                                      LEX      1247
                          43100                   MX1    0           INDICATE ERROR                              LEX      1248
                                                                                                                 LEX      1249
           615  0400400615 +             TSC      SUBR   0                                                       LEX      1250
           616  56140                             SA1    B4                                                      LEX      1251
                     26701                        UX7    B0,X1       DELIMITER.                                  LEX      1252
                          54111                   =A1    A1+1                                                    LEX      1253
                               26371              UX3    B7,X1       FIRST CHARACTER.                            LEX      1254
           617  7120000055                        SX2    1R          FOR BLANK PADDING.                          LEX      1255
                          6120000143              SB2    99          MAX CHAR COUNT (FOR *FMT*)                  LEX      1256
           620  6140776000                        SB4    -1777B                                                  FCC0844    17
                                                                                                                 LEX      1257
           621  67551                    TSC5     =B5    B5-1                                                    LEX      1258
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    27
                                                                      TSC 
  
                     20606                        LX6    CHAR                                                    LEX      1259
                          0420000632 +            ZR     B2,TSC15    IF 99 CHAR PROCESSED                        LEX      1260
           622  67221                    TSC5A    =B2    B2-1                                                    LEX      1261
                     67771                        =B7    B7-1        BLANK COUNT - 1                             LEX      1262
                          0331000612 +            MI     X1,TSCEX    IF PREMATURE *EOS*                          LEX      1263
           623  37037                             IX0    X3-X7                                                   LEX      1264
                     0474000626 +                 EQ     B7,B4,TSC10 IF NO IMBEDDED BLANKS                       FCC0844    18
                               12662              BX6    X6+X2       ADD IN BLANK                                LEX      1266
           624  0550000621 +                      NZ     B5,TSC5     IF NO END OF WORK                           LEX      1267
                          54661                   =A6    A6+1                                                    LEX      1268
                               13666              BX6    0                                                       LEX      1269
           625  6150000012                        SB5    10                                                      LEX      1270
                          0400000621 +            EQ     TSC5        CONTINUE.                                   LEX      1271
                                                                                                                 LEX      1272
           626  0300000641 +             TSC10    ZR     X0,TSC50    IF DELIMITER FOUND.                         LEX      1273
                          54111                   =A1    A1+1                                                    LEX      1274
                               12663              BX6    X6+X3       HERE IF NO IMBEDDED BLANKS.                 LEX      1275
           627  26371                             UX3    B7,X1                                                   LEX      1276
                     0550000621 +                 NZ     B5,TSC5     IF NO END OF WORK                           LEX      1277
                               54661              =A6    A6+1        ADD WORD TO TABLE.                          LEX      1278
           630  6150000012                        SB5    10                                                      LEX      1279
                          13666                   BX6    0           CLEAR ASSEMBLY REGISTER.                    LEX      1280
           631  0400000621 +                      EQ     TSC5                                                    LEX      1281
                                                                                                                 LEX      1282
           632  0305000622 +             TSC15    ZR     X5,TSC5A    IF NOT CALLED BY *FMT*                      LEX      1283
                          27773                   PX7    B7,X3                                                   LEX      1284
                               43001              MX0    1                                                       LEX      1285
           633  54710                             SA7    A1                                                      LEX      1286
                     12505                        BX5    X0+X5       FLAG TO INDICATE MAX OF 99 REACHED          LEX      1287
                          55111                   =A1    A1-1        SET TO POINT TO 99TH CHAR                   LEX      1288
           634  0316000635 +                      NZ     X6,TSC25    IF NOT EMPTY WORD                           FCC1015     7
                          10633                   BX6    X3          99 CHARS AND FULL WORD, PICK UP NEXT CHAR   FCC1015     8
                                                                                                                 LEX      1291
                                        **        SET-UP EXIT CONDITIONS FOR EXTERNAL PROCESSOR.                 LEX      1292
                                        *         (X6) = LAST WORD                                               LEX      1293
                                        *         (A1) _ *DELIM*                                                 LEX      1294
                                        *         (B5) = LAST CHAR COUNT                                         LEX      1295
                                                                                                                 LEX      1296
           635  76155                    TSC25    SX1    B5+B5       *2                                          LEX      1297
                     6170000143                   SB7    99                                                      LEX      1298
                               36011              IX0    X1+X1                                                   LEX      1299
           636  66221                             =B2    B2+1        LENGTH CORRECTED BECAUSE OF *DELIM*         LEX      1300
                     64410                        SB4    A1          SET TO POINT TO DELIMITER                   LEX      1301
                          0472000607 +            EQ     B7,B2,TSCZEX      IF STRING LENGTH IS ZERO              LEX      1302
                                                                                                                 LEX      1303
           637  36010                             IX0    X1+X0       *6                                          LEX      1304
                     22206                        LX2    X6                                                      LEX      1305
                          63700                   SB7    X0                                                      LEX      1306
                               43173              MX1    -1                                                      LEX      1307
           640  22672                             LX6    B7,X2       0L FORMAT.                                  LEX      1308
                     0400000615 +                 EQ     TSCX        EXIT..                                      LEX      1309
                                                                                                                 LEX      1310
                                        **        HERE IF FOUND DELIMITER CHECK IF ENDING DELIMITER              LEX      1311
                                                                                                                 LEX      1312
           641  54311                    TSC50    =A3    A1+1                                                    LEX      1313
                     7207777713                   SX0    X7-1R"                                                  LEX      1314
                               26373              UX3,B7 X3                                                      FCC0844    19
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    28
                                                                      TSC 
  
           642  0310000635 +                      NZ     X0,TSC25    IF NOT PROCESSING QUOTE DELIMITED STRING    LEX      1315
                          67774                   SB7    B7-B4                                                   FCC0844    20
                               37037              IX0    X3-X7                                                   LEX      1317
           643  0310000635 +                      NZ     X0,TSC25    IF NOT DOUBLE QUOTE AS CHAR                 LEX      1318
                          0717000635 +            GT1    B7,TSC25    IF BLANKS BETWEEN THE QUOTE MARKS           LEX      1319
           644  54111                             =A1    A1+1        BY-PASS SECOND QUOTE MARK.                  LEX      1320
                     43073                        MX0    -1                                                      LEX      1321
                          0400000626 +            EQ     TSC10       CONTINUE                                    LEX      1322
                                                                                                                 LEX      1323
  
  
  
  
                                        **        TRV -  TRANSLATE VARIABLE.                                     LEX      1325
                                        *                                                                        LEX      1326
                                        *         ENTRY  B4 _ TO VARIABLE TO BE TRANSLATED.                      LEX      1327
                                        *                                                                        LEX      1328
                                        *         EXIT   (X1) = MODE BITS OF TAG.                                LEX      1329
                                        *                (X2) = PASS *2* TAG FOR SYMBOL TRANSLATED.              LEX      1330
                                        *                (X6) = TAG FROM SYMBOL TABLE.                           LEX      1331
                                        *                (B7) = ORDINAL OF TAG.                                  LEX      1332
                                        *                (X0)  = 0 IF NO ERROR DETECTED, -1 OTHERWISE            LEX      1333
                                        *         NOTE   *TRV* VALIDATES THE *ENTRY* BEFORE EXIT TO MAKE SURE    LEX      1334
                                        *                NO USAGE CONFLICT EXIST.                                LEX      1335
                                        *         USES   A1,A2,A3,A6  X0  B2,B7                                  LEX      1336
                                        *                (TRVA, TRVA+1)                                          LEX      1337
                                                                                                                 LEX      1338
                                                                                                                 LEX      1339
                                        *         HERE IF ERROR                                                  LEX      1340
                                                                                                                 LEX      1341
           645  10633                    TRVEX    BX6    X3                                                      LEX      1342
                     5160000000 X                 SA6    FILL.2      CLASS CONFLICT (IF ANY)                     LEX      1343
           646  0100000000 X                      FATAL  B7          OUTPUT ERROR.                               LEX      1344
           647  7160200000                        SX6    C.VAR                                                   FCC1222     5
                          66720                   SB7    B2          RESTORE ORDINAL OF TAG                      LEX      1346
                               73667              SX6    X6+B7                                                   LEX      1347
           650  20652                             LX6    P.TAG                                                   LEX      1348
                     76100                        =X1    M.UNIV                                                  LEX      1349
                          10266                   BX2    X6                                                      LEX      1350
                               43073              MX0    -1          INDICATE ERROR                              LEX      1351
                                                                                                                 LEX      1352
           651  0400400651 +             TRV      SUBR   0                                                       LEX      1353
           652  56140                             SA1    B4                                                      LEX      1354
                     43052                        MX0    L.SYM                                                   LEX      1355
                          11601                   BX6    X0*X1       SYMBOL ONLY                                 LEX      1356
           653  6221777774                        SB2    X1-O.VAR                                                LEX      1357
                          5160000000 X            SA6    FILL.                                                   LEX      1358
           654  0420000661 +                      ZR     B2,TRV4     IF *VARIABLE*.                              LEX      1359
                          43052                   MX0    L.CDPC                                                  LEX      1360
           655  5221000000 X                      SA2    X1+=XCHARMAP                                            LEX      1361
                          0312000657 +            NZ     X2,TRV1     IF NOT CONSTANT                             LEX      1362
           656  10211                             BX2    X1                                                      LEX      1363
           657  11602                    TRV1     BX6    X0*X2                                                   LEX      1364
                     5160000000 X                 SA6    FILL.       SET FILL. WITH BAD CHARACTER                LEX      1365
           660  0400000000 X                      EQ     E.TE5       SYNTAX ERROR                                LEX      1366
                                                                                                                 LEX      1367
                                                                                                                 LEX      1368
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    29
                                                                      TRV 
  
           661  56241                    TRV4     =A2    B4+1                                                    LEX      1369
                     6272777774                   SB7    X2-O.VAR                                                LEX      1370
           662  0570000663 +                      NZ     B7,TRV5     IF NAME LESS THAN 8 CHAR                    LEX      1371
                          0100000600 +            RJ     TLV                                                     LEX      1372
           663  5110000000 X             TRV5     SCAN   TS.SYM,SSY                                              LEX      1373
           664  0670000670 +                      PL     B7,TRV10    IF FOUND IN TABLE                           FCC0499     5
                                                                                                                 LEX      1379
                          0100000346 +            RJ     STY         SET MODE                                    FCC0499     6
           665  7271010000                        SX7    X1+M.VAR                                                LEX      1381
                          5110000000 X            ADSYM  TS.SYM      ADD SYMBOL + TAG TO TABLE.                  LEX      1382
           667  0400000712 +                      EQ     TRV12                                                   LEX      1383
                                                                                                                 LEX      1384
           670  10066                    TRV10    BX0    X6                                                      LEX      1385
                     20056                        IFBIT  X0,-NVAR,TRV12    IF NOT *NOT VARIABLE*                 LEX      1386
           671  7120003700                        CLAS=  X2,(EXT=,FUN,BEF,SUB,ASF)                               FCC0499     7
                          11026                   BX0    X2*X6                                                   LEX      1388
           672  0310000706 +                      NZ     X0,TRV10B   IF CLASS2 CONFLICT                          LEX      1389
                          7120040000              CLAS=  X2,(RP)                                                 LEX      1390
           673  11026                             BX0    X2*X6                                                   LEX      1391
                     0310000705 +                 NZ     X0,TRV10A   IF RETURNS PARAMETER                        LEX      1392
           674  7120000040                        CLAS=  X2,(ENT=)                                               FCC0499     8
                          11026                   BX0    X2*X6                                                   FCC0499     9
           675  0300000704 +                      ZR     X0,TRV10D   IF NOT ENTRY                                FCC0499    10
                          5120000000 X            SA2    =XENTRY.                                                FCC0499    11
           676  63220                             SB2    X2                                                      FCC0499    12
                     67227                        SB2    B2-B7                                                   FCC0499    13
                          0521000706 +            NE1    B2,TRV10B   IF NOT FUNCTION NAME                        FCC0499    14
           677  5110000651 +                      SA1    TRV                                                     FCC0499    15
                          21136                   AX1    30                                                      FCC0499    16
                               73110              SX1    X1          WHERE THIS CALL ORIGINATED                  FCC0499    17
           700  7120000000 X                      SX2    =XNAM20                                                 FCC0499    18
                          37221                   IX2    X2-X1                                                   FCC0499    19
           701  0302000712 +                      ZR     X2,TRV12    NAMELIST LIST ITEM OK                       FCC0499    20
                          7120000000 X            SX2    =XPTN3                                                  FCC0499    21
           702  37221                             IX2    X2-X1                                                   FCC0499    22
                     0302000712 +                 ZR     X2,TRV12    VARIABLE FORMAT OK                          FCC0499    23
           703  0400000706 +                      EQ     TRV10B                                                  FCC0499    24
           704  5130000012 X             TRV10D   SA3    CLASS+P.NVAR-P.DEF                                      FCC0499    25
                          0400000710 +            EQ     TRV10C                                                  LEX      1394
                                                                                                                 LEX      1395
           705  5130000013 X             TRV10A   SA3    CLASS+P.RP-P.DEF                                        LEX      1396
                          0400000710 +            EQ     TRV10C                                                  LEX      1397
                                                                                                                 LEX      1398
           706  24220                    TRV10B   NX2,B2 X0                                                      LEX      1399
                     67202                        SB2    -B2                                                     LEX      1400
                          7122000052 X            SX2    B2+CLASS-P.CLASS2+47                                    LEX      1401
           707  5232000000 X                      SA3    X2+L.CL                                                 LEX      1402
           710  66271                    TRV10C   =B2    B7+1        ORDINAL OF TAG                              LEX      1403
                     6170000000 X                 SB7    E.VA1       USAGE CONFLICT ERROR                        LEX      1404
           711  0400000645 +                      EQ     TRVEX       OUTPUT CONFLICT MESSAGE.                    LEX      1405
                                                                                                                 LEX      1406
                                        **        (X6) = TAG                                                     LEX      1407
                                        *         (B7) = SYMBOL ORDINAL OF ENTRY.                                LEX      1408
                                                                                                                 LEX      1409
           712  5110000000 X             TRV12    SA1    LOP=R                                                   LEX      1410
                          66771                   =B7    B7+1        ORDINAL OF TAG.                             LEX      1411
           713  0321000721 +                      PL     X1,TRV20    IF NO CROSS-REFERENCE SELECTED.             LEX      1412
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    30
                                                                      TRV 
  
                          22206                   LX2    X6                                                      LEX      1413
           714  5160000000 X                      SA6    TRVA        SAVE TAG.                                   LEX      1414
                          76670                   SX6    B7                                                      LEX      1415
                               54661              =A6    A6+1        SAVE ORDINAL                                LEX      1416
           715  5110000000 X                      SA1    REFVAR      TYPE OF REFERENCE                           LEX      1417
                          22602                   LX6    X2                                                      LEX      1418
           716  6170000717 +                      ADDREF X6,X1                                                   LEX      1419
           717  5110000000 X                      SA1    TRVA                                                    LEX      1420
                          54211                   =A2    A1+1                                                    LEX      1421
                               10611              BX6    X1          TAG.                                        LEX      1422
           720  63720                             SB7    X2          ORDINAL.                                    LEX      1423
                                                                                                                 LEX      1424
                                        **        SET-UP EXIT CONDITIONS.                                        LEX      1425
                                                                                                                 LEX      1426
           721  10166                    TRV20    BX1    X6                                                      LEX      1427
                     43066                        MX0    -L.FPNO                                                 LEX      1428
                          21122                   AX1    P.FPNO                                                  LEX      1429
                               43325              MX3    L.TAG+L.MODE                                            LEX      1430
           722  15210                             BX2    -X0*X1      EXTRACT SYMBOL TABLE *PARM* FIELD           LEX      1431
                     20303                        LX3    L.MODE                                                  LEX      1432
                          20222                   LX2    P.2FPNO                                                 LEX      1433
                               43071              MX0    -L.MODE                                                 LEX      1434
           723  11136                             BX1    X3*X6       TAG + MODE                                  LEX      1435
                     36212                        IX2    X1+X2       TAG + PARM + MODE                           LEX      1436
                          15160                   BX1    -X0*X6      MODE BITS ONLY                              LEX      1437
                               76000              =X0    0           INDICATE NO ERROR FOUND                     LEX      1438
           724  5160000000 X                      SA6    TRVA                                                    FCC0498    25
                          0400000651 +            EQ     TRVX        EXIT..                                      LEX      1439
                                                                                                                 LEX      1440
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    31
                                                                      EXTS. 
  
                                        **        THE FOLLOWING IS A LIST OF                                     LEX      1442
                                        *                   EXTERNAL ROUTINES THAT ARE USED BY GENERATED OBJECT  LEX      1443
                                        *                   CODE TO PROCESS *FORTRAN* STATEMENTS.  INORDER TO    LEX      1444
                                        *                   ELIMINATE *RESERVED WORDS* THESE ROUTINES MUST       LEX      1445
                                        *                   ALWAYS BE CALLED BY *NAME*_EXT.                      LEX      1446
                                                                                                                 LEX      1447
                                                                                                                 LEX      1448
                                         =XLIB    MACRO  NAME,SUFFIX                                             F66FCC    753
                                                  VFD    42/0L_NAME"EXT"SUFFIX,18/O.VAR                          F66FCC    754
                                         =XLIB    ENDM                                                           LEX      1451
  
  
  
  
                                        **        S.IOCALL - LIST OF ROUTINES USED BY OBJECT TIME INPUT/OUTPUT.  LEX      1453
                                        *                MUST ALWAYS BE KEPT IN ORDER, AS THE PROPER NAME IS     LEX      1454
                                        *                SELECTED BY INDEXING INTO THIS TABLE.                   LEX      1455
                                                                                                                 LEX      1456
                                                                                                                 LEX      1457
           725                           S.IOCAL  BSS    0           BASE OF *I/O* ROUTINE NAMES                 LEX      1458
                                                                                                                 LEX      1459
      L      0                                    LOC    0                                                       LEX      1460
      L      0                           S=COD    BSS    0                 *CODED* MODE                          LEX      1461
      L      0                           S=INIT   BSS    0                 *INITIAL* CALL                        LEX      1462
      L      0  11162003115700000003     S=INP    =XLIB  INPCI             *INPUT* DIRECTION                     LEX      1463
      L      1  11162003225700000003     S=CONT   =XLIB  INPCR                                                   LEX      1464
      L      2  17252403115700000003     S=OUT    =XLIB  OUTCI             *OUTPUT* DIRECTION                    LEX      1465
      L      3  17252403225700000003              =XLIB  OUTCR                                                   LEX      1466
      L      4  11162006115700000003     S=FREE   =XLIB  INPFI             *LIST-DIRECTED* (FREE FIELD)          LEX      1467
      L      5  11162006225700000003              =XLIB  INPFR                                                   LEX      1468
      L      6  17252406115700000003              =XLIB  OUTFI                                                   LEX      1469
      L      7  17252406225700000003              =XLIB  OUTFR                                                   LEX      1470
      L     10  11162002115700000003     S=BIN    =XLIB  INPBI             *BINARY* MODE                         LEX      1471
      L     11  11162002225700000003              =XLIB  INPBR                                                   LEX      1472
      L     12  17252402115700000003              =XLIB  OUTBI                                                   LEX      1473
      L     13  17252402225700000003              =XLIB  OUTBR                                                   LEX      1474
      L     14  04050317041157000003     S=STR    =XLIB  DECODI            *STRING* MODE                         LEX      1475
      L     15  04050317042257000003              =XLIB  DECODR                                                  LEX      1476
      L     16  05160317041157000003              =XLIB  ENCODI                                                  LEX      1477
      L     17  05160317042257000003              =XLIB  ENCODR                                                  LEX      1478
      L    745                                    LOC    *O                                                      LEX      1479
                                                                                                                 LEX      1480
           745  16011511165700000003     S.NLST   =XLIB  NAMIN                                                   LEX      1481
           746  16011517252457000003              =XLIB  NAMOUT                                                  LEX      1482
           747  06241605222257000003     S.ERR    =XLIB  FTNERR                                                  LEX      1483
                                        * .Q8NTRY CON    Q8NTRY      PROGRAM INITIALIZATION                      LEX      1484
           750  21351624223157000003     S.Q2NTR  =XLIB  Q2NTRY      PROGRAM INITIALIZATION                      F162FTNA  717
           751  26012204111557000003     S.VARDIM =XLIB  VARDIM      VARIABLE DIMENSION INITIALIZER              LEX      1486
           752  07172417052257000003     S.ACGOR  =XLIB  GOTOER                                                  LEX      1487
           753  02010313232057000003     S.BKSP   =XLIB  BACKSP                                                  LEX      1488
           754  05160406111457000003     S.ENDFI  =XLIB  ENDFIL                                                  LEX      1489
           755  05170657000000000003     S.EOF    =XLIB  EOF         IMPLICIT E-O-F TEST                         LEX      1490
           756  22011604171557000003     S.RANDM  =XLIB  RANDOM                                                  LEX      1491
           757  22052711160457000003     S.REWIN  =XLIB  REWIND                                                  LEX      1492
           760  02250617252457000003              =XLIB  BUFOUT                                                  LEX      1493
           761  02250611165700000003     S.BUFIO  =XLIB  BUFIN                                                   LEX      1494
                                                                                                                 LEX      1495
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    32
                                                                      S.IOCALL
  
           762  05160457000000000003     S.END    =XLIB  END         ORDER OF END - STOP CAN NOT BE CHANGED SEE  LEX      1496
           763  20012523055700000003     S.PAUSE  =XLIB  PAUSE       ROUTINE *SPR*.                              LEX      1497
           764  23241720570000000003     S.STOPE  =XLIB  STOP                                                    LEX      1498
           765  06241622203557000003     S.FTNRP  =XLIB  FTNRP2      OBJECT TIME REPRIEVE                        F162FTNA  718
                                         #FID     IFNE   .FID,0                                                  F66FCC    755
                                                  ENTRY  S.FID                                                   F66FCC    756
           766  04022507571416000003     S.FID    =XLIB  DBUG,LN                                                 F66FCC    757
                                         #FID     ENDIF                                                          F66FCC    758
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    33
                                                                      INLINE
  
                                        **        TSF -  TAG SPECIAL FUNCTION.                                   LEX      1500
                                        *                                                                        LEX      1501
                                        **        COMMENT ABOUT THE TAGGING OF A SPECIAL FUNCTION BY *TSF*       LEX      1502
                                        *                                                                        LEX      1503
                                        *         *TSF*  RETURNS A TAG FOR ALL FUNCTIONS/SUBROUTINE USAGE.       LEX      1504
                                        *         IT NEVER SETS THE DEFINE BIT IN THE TAG RETURNED, BECAUSE      LEX      1505
                                        *         THE PROCESSOR CALLING *TSF* DOES NOT YET KNOW WHETHER THE      LEX      1506
                                        *         TAG IS BEING USED WITH ARGUMENTS OR NOT.  THE PROBLEM IS THAT  LEX      1507
                                        *         THE ARGUMENT COUNT FIELD, (L.PARM) IS ONLY 6 BITS IN LENGTH    LEX      1508
                                        *         ALLOWING ONLY 63 ARGUMENTS TO BE ASSOCIATED WITH ANY ONE       LEX      1509
                                        *         FUNCTION/SUBROUTINE REFERENCE.  THUS WHEN A REFERENCE TO A     LEX      1510
                                        *         FUNCTION TAG IS USED IN ORDER TO CHECK ARGUMENT COUNT WE MUST  LEX      1511
                                        *         KNOW WHETHER THIS IS THE FIRST REFERENCE OR NOT.  IF WE SET    LEX      1512
                                        *         THE DEFINE BIT, LIKE ANSI DICTATES, THEN WE HAVE NO IDEA       LEX      1513
                                        *         IF THE CURRENT REFERENCE IS THE 1ST OR NOT.                    LEX      1514
                                        *         (A SUBROUTINE CAN BE REFERENCED WITH A NULL ARGUMENT LIST.)    LEX      1515
                                        *                                                                        LEX      1516
                                        *         THUS THE ONLY PROCESSOR THAT SETS THE DEFINE BIT FOR A TAG     LEX      1517
                                        *         THAT CONTAINS THE *NVAR* BIT SET IS *TAL* - TERMINATE ARGUMENT LEX      1518
                                        *         LIST, AND ALSO BY THE CALL PROCESSOR, WHEN REFERENCE TO A      LEX      1519
                                        *         SUBROUTINE WITH A NULL ARGUMENT LIST.                          FEAT126C  135
                                        *                                                                        LEX      1521
                                        *         THE EXCEPTION TO THE ABOVE IS THE DEFINED *CDC/ANSI*           LEX      1522
                                        *         INTRINSICS AND BEFS.  SINCE BOTH OF THESE CLASSES HAVE DEFINED LEX      1523
                                        *         ARGUMENT LISTS THE DEFINE BIT IS SET BY *TSF* WHEN TAGGING     LEX      1524
                                        *         A FUNCTION BELONGING TO THIS CLASS....                         LEX      1525
                                        *                                                                        LEX      1526
                                        *         (FURTHER COMMENT...OBVIOUSLY IT WOULD BEHOOVE US TO EXPAND THE LEX      1527
                                        *         L.PARM FIELD, AND WE COULD FOR ALL TAGS GENERATED BY *TSF* BUT LEX      1528
                                        *         THE PROBLEM IS NOT SPECIAL TAGS BUT THE FORMAL PARAMETER       LEX      1529
                                        *         ARGUMENT POSITION FIELDS LOCATED WITHIN A SYMBOL DEFINITION.   LEX      1530
                                        *         IN THE SYMBOL TAG WE DO NOT HAVE ENOUGH BITS TO EXPAND THE     LEX      1531
                                        *         PARAMETER FIELD.  ACTUALLY THERE SHOULD BE NO LIMIT ON THE     LEX      1532
                                        *         ARGUMENT LIST TO A FUNCTION OR SUBROUTINE BUT WE ONLY HAVE A   LEX      1533
                                        *         60 BIT WORD..)                                                 LEX      1534
                                        *                                                                        LEX      1535
                                        *         ENTRY  B4 _ TO VARIABLE TO BE TRANSLATED.                      LEX      1536
                                        *         (X6) = CLASSIFICATION FOR FUNCTION.                            LEX      1537
                                        *                                                                        LEX      1538
                                        *         EXIT   (X1) = MODE BITS ONLY OF TAG.                           LEX      1539
                                        *                (X6) = TAG ENTRY. (FROM *TS.SYM*)                       LEX      1540
                                        *                (B7) = ORDINAL OF TAG.                                  LEX      1541
                                        *                                                                        LEX      1542
                                        *         PRESERVES A4,A5  X4,X5  B4,B5,B6                               LEX      1543
                                        *                                                                        LEX      1544
                                        *         CALLS  ADF, BTT, SCT, STY                                      LEX      1545
                                                                                                                 LEX      1546
                                                                                                                 LEX      1547
           767  0400400767 +             TSF      SUBR               ENTRY/EXIT...                               LEX      1548
           770  56140                             SA1    B4          LOAD ELEMENT.                               LEX      1549
                     43052                        MX0    L.SYM                                                   LEX      1550
                          5160000000 X            SA6    CALL                                                    LEX      1551
           771  76600                             =X6    0                                                       LEX      1552
                     6271777774                   SB7    X1-O.VAR                                                LEX      1553
           772  5160000000 X                      SA6    NEXT        INDICATE SYMBOL FOUND.                      LEX      1554
                          11601                   BX6    X0*X1       SYMBOL ONLY                                 LEX      1555
           773  5160000000 X                      SA6    FILL.       SAVE NAME (IN CASE OF ERROR)                LEX      1556
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    34
                                                                      INLINE
  
                          0470000775 +            ZR     B7,TSF2     IF SYMBOL                                   LEX      1557
           774  6271000000                        SB7    X1+0                                                    LEX      1558
                                                                                                                 LEX      1559
                                        **        SCAN SYMBOL TABLE TO SEE IF SPECIAL FUNCTION HAS ALREADY       LEX      1560
                                        *         BEEN ENCOUNTERED.                                              LEX      1561
                                                                                                                 LEX      1562
           775  5110000000 X             TSF2     SCAN   TS.SYM,SSY                                              LEX      1563
           776  13111                             =X1                MODE BITS (IF SYSEXT)                       LEX      1564
                     0770001001 +                 MI     B7,TSF30    IF *NIT*                                    LEX      1565
           777  5130000000 X                      SA3    CALL                                                    LEX      1566
                          66771                   =B7    B7+1        POINT TO TAG                                LEX      1567
                               12636              BX6    X3+X6       DEFINE ACCORDING TO CALL                    LEX      1568
          1000  0400001012 +                      EQ     TSF60       CONTINUE                                    LEX      1569
                                                                                                                 LEX      1570
                                        **        SCAN DEFINED LIBRARY TABLE.                                    LEX      1571
                                                                                                                 LEX      1572
          1001  5130000000 X             TSF30    SA3    CALL                                                    LEX      1573
                          0313001005 +            NZ     X3,TSF40    IF TYPE OF FUNCTION DEFINED.                LEX      1574
          1002  10166                             BX1    X6                                                      LEX      1575
                     0100001042 +                 RJ     SLT         SCAN LIBRARY TABLE.                         LEX      1576
          1003  13111                             =X1                CLEAR CLASS BITS, ALREADY ADDED.            LEX      1577
                     0670001007 +                 PL     B7,TSF50    IF INLINE OR BEF.                           LEX      1578
          1004  7130020300                        =X3    M.FUN+M.EXT+M.NVAR                                      LEX      1579
                                                                                                                 LEX      1580
                                        *         PROCESS NATURAL TYPE                                           LEX      1581
                                        *         (X3) = CLASS BITS                                              LEX      1582
                                        *         (X6) = 0L_NAME OF FUNCTION.                                    LEX      1583
                                                                                                                 LEX      1584
          1005  6223757677               TSF40    SB2    X3-M.SYSEXT                                             LEX      1585
                          0420001007 +            ZR     B2,TSF50    IF SYSTEM EXTERNAL.                         LEX      1586
          1006  0100000346 +                      RJ     STY         SET MODE                                    LEX      1587
                                                                                                                 LEX      1588
                                        **        ADD EXTERNAL TO SYMBOL TABLE.                                  LEX      1589
                                                                                                                 LEX      1590
          1007  12713                    TSF50    BX7    X1+X3       CLASS + MODE BITS.                          LEX      1591
                     5110000000 X                 ADSYM  TS.SYM                                                  LEX      1592
          1011  66771                             SB7    B7+B1       TAG ENTRY ORDINAL                           LEX      1593
                                                                                                                 LEX      1594
                                        *         TRANSFER FUNCTION/SUBROUTINE TAG FOR COMPILE                   LEX      1595
                                        **        (X6) = TAG                                                     LEX      1596
                                        *         (B7) = ORDINAL OF TAG                                          LEX      1597
                                                                                                                 LEX      1598
          1012  5120000000 X             TSF60    SA2    LOP=R                                                   LEX      1599
                          43071                   MX0    -L.MODE                                                 LEX      1600
          1013  0322001021 +                      PL     X2,TSF62    IF NO CROSS REFERENCE SELECTED              LEX      1601
                          22206                   LX2    X6                                                      LEX      1602
          1014  5160000000 X                      SA6    TRVA        SAVE TAG.                                   LEX      1603
                          76670                   SX6    B7                                                      LEX      1604
                               54661              =A6    A6+1        SAVE ORDINAL OF TAG.                        LEX      1605
          1015  5110000000 X                      SA1    REFVAR      TYPE OF REFERENCE                           LEX      1606
                          22602                   LX6    X2                                                      LEX      1607
          1016  6170001017 +                      ADDREF X6,X1                                                   LEX      1608
          1017  5110000000 X                      SA1    TRVA                                                    LEX      1609
                          54211                   =A2    A1+1                                                    LEX      1610
                               10611              BX6    X1          TAG.                                        LEX      1611
          1020  43071                             MX0    -L.MODE                                                 LEX      1612
                     63720                        SB7    X2                                                      LEX      1613
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    35
                                                                      INLINE
  
          1021  5130000000 X             TSF62    SA3    DOORD                                                   LEX      1614
                          7170000100              =X7    M.EXT                                                   LEX      1615
          1022  15160                             BX1    -X0*X6      MODE ONLY                                   LEX      1616
                     0303000767 +                 ZR     X3,EXIT.    IF NOT INSIDE *DO*                          LEX      1617
                               11276              BX2    X7*X6                                                   LEX      1618
          1023  0302000767 +                      ZR     X2,EXIT.    IF NOT REFERENCE TO *EXTERNAL*              LEX      1619
                          5110000000 X            SA1    TS.STN                                                  LEX      1620
          1024  63230                             SB2    X3                                                      LEX      1621
                     53312                        SA3    B2+X1       LOAD *DO* STATMENT TAG FROM *TS.STN*        LEX      1622
                          7120000100              =X2    M.SNEX                                                  LEX      1623
          1025  12723                             BX7    X2+X3       INDICATE *DO* HAS AN EXTERNAL REFERENCE     LEX      1624
                     54730                        SA7    A3          RESET IN STATEMENT NUMBER TABLE             LEX      1625
          1026  15160                    TSF65    BX1    -X0*X6      MODE BITS ONLY OF TAG                       LEX      1626
                     0400000767 +                 EQ     EXIT.                                                   LEX      1627
  
  
  
  
                                        **        SLT -  SCAN DEFINED LIBRARY TABLE.                             LEX      1629
                                        *                                                                        LEX      1638
                                        *         ENTRY  (X1) = SYMBOL TO CHECK.                                 LEX      1639
                                        *                                                                        LEX      1640
                                        *         EXIT   (B7) < 0 = ENTITY NOT FOUND.                            LEX      1641
                                        *                   (X3) = N/A                                           LEX      1642
                                        *                                                                        LEX      1643
                                        *                (B7) = PAR.FUN = *BEF*                                  LEX      1644
                                        *            OR  (B7) = PAR.FUN = *INLINE*                               LEX      1645
                                        *                (X3) = TAG FOR FUNCTION MINUS ACTUAL TAG.               LEX      1646
                                        *                                                                        LEX      1647
                                        *                (X6) = PRESERVED.                                       LEX      1648
                                        *         USES   CANNOT DESTROY A2,A4,A5,A7  X4,X5,X6  B4,B5,B6          LEX      1649
                                                                                                                 LEX      1650
                                                                                                                 LEX      1651
                                        **        HERE IF FUNCTION IS EITHER A  *BEF*  OR  *INTRINSIC*.          LEX      1652
                                        *         (X1) = *FIV* TABLE ENTRY.                                      LEX      1653
                                        *         (X6) = ENTRY NAME.                                             LEX      1654
                                                                                                                 LEX      1655
          1027  22701                    SLT10    LX7    X1                                                      LEX      1656
                     43071                        MX0    -L.MODE                                                 LEX      1657
                          15210                   BX2    -X0*X1      FUNCTION MODE.                              LEX      1658
                               21103              AX1    L.MODE                                                  LEX      1659
          1030  43052                             MX0    -L.FARGC-L.FARGM-L.FJPAD                                LEX      1660
                     15310                        BX3    -X0*X1                                                  LEX      1661
                          20322                   LX3    P.ARGC                                                  LEX      1662
                               12332              BX3    X3+X2                                                   LEX      1663
          1031  20745                             IFBIT  X7,FBEF,SLT20     IF *BEF*                              LEX      1664
          1032  7100024210                        =X0    M.INLF      INDICATE *INTRINSIC*                        LEX      1665
                          66710                   =B7    1                                                       LEX      1666
                               12330              BX3    X3+X0                                                   LEX      1667
          1033  20701                             IFBIT  X7,FANSI/FBEF,SLTX     IF DEFINED BY ANSI               LEX      1668
          1034  6170000000 X                      ANSI   E.SU4       CDC DEFINED INTRINSIC                       LEX      1669
          1035  66710                             =B7    1                                                       LEX      1670
                     0400001042 +                 EQ     SLTX        EXIT..                                      LEX      1671
                                                                                                                 LEX      1672
                                                                                                                 LEX      1673
                                        **        HERE WHEN FUNCTION IS *BEF*                                    LEX      1674
                                        *         SET UP SHIFT COUNT IF IN CALL BY VALUE.                        LEX      1675
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    36
                                                                      SLT 
  
                                                                                                                 LEX      1676
          1036  20701                    SLT20    IFBIT  X7,FANSI/FBEF,SLT22                                     LEX      1677
          1037  6170000000 X                      NOTE   E.SU4A      NOTE - CDC DEFINES FUNCTION AS BEF.         LEX      1678
          1040  7100020710               SLT22    =X0    M.BEFF      INDICATE *BEF*                              LEX      1679
                          6170000000              SB7    0           INDICATE *BEF*                              LEX      1680
          1041  12330                             BX3    X3+X0       ARGUMENT COUNT + CLASS + MODE               LEX      1681
                                                                                                                 LEX      1682
                                        **        SCAN TABLE OF DEFINED *ANSI*/*CDC* SUPPLIED INTRINSICS,        LEX      1683
                                        *         *BEFS* .                                                       LEX      1684
                                                                                                                 LEX      1685
          1042  0400401042 +             SLT      SUBR   0                                                       LEX      1686
          1043  10211                             BX2    X1                                                      LEX      1687
                     6170000000 X                 SB7    L.FIV                                                   LEX      1688
          1044  5110000000 X                      SA1    E.FIV                                                   LEX      1689
                          43044                   MX0    L.SYM-CHAR                                              LEX      1690
          1045  11301                    SLT32    BX3    X0*X1       NAME ONLY.                                  LEX      1691
                     37332                        IX3    X3-X2                                                   LEX      1692
                          0303001027 +            ZR     X3,SLT10    IF HIT                                      LEX      1693
          1046  67771                             =B7    B7-1                                                    LEX      1694
                     55111                        =A1    A1-1                                                    LEX      1695
                          0570001045 +            NZ     B7,SLT32    IF NOT END OF TABLE.                        LEX      1696
          1047  7130020300                        =X3    M.NVAR+M.FUN+M.EXT                                      LEX      1697
                          67701                   =B7    -1          INDICATE NO SUCCESS.                        LEX      1698
          1050  0400001042 +                      EQ     SLTX        EXIT.. (NOT BEF, OR INLINE)                 LEX      1699
                                                  LIST   D                                                       LEX      1747
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ANSI= 
             0 X                        PWE 
             0 X                        PSN 
             0 X                        E.HC5 
             0 X                        SB.STNR 
             0 X                        E.TE7 
             0 X                        CHARMAP 
             0 X                        ENTRY.
             0 X                        NAM20 
             0 X                        PTN3
  
                                        CONTENT OF LITERALS BLOCK.
  
          1051  00000000077740000000        G;5 
          1052  06172215012400000000    FORMAT
          1053  00104040000000000000     H55
          1054  55555555555555555555
  
          1055                                    END                                                            LEX      1748
  
                             55600B CM  STORAGE USED             3256 STATEMENTS      984 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.232 SECONDS         849 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI=           0   EXTERNAL*       5/27     19/46     22/17     23/02     35/51
        ASN             0   PROGRAM*        2/48 L   22/39
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    37
        SYMBOLIC REFERENCE TABLE. 
  
        ASN1            4   PROGRAM*        2/56 L    3/09
        ASN4           10   PROGRAM*        3/01      3/18 L
        ASV            14   PROGRAM*        3/42 L   21/05     21/46
        ASVE           26   PROGRAM*        4/02      4/13 L
        ASV1           20   PROGRAM*        3/51 L    4/04
        ASV20          13   PROGRAM*        3/38 L    3/51      4/13      4/15      4/17
        BLANK         552   PROGRAM*        2/02 E   17/52 S   18/21 S   24/09 L
        CALL            0   EXTERNAL*       2/09 X   33/52 S   34/10     34/17
        CHAR            6   TSTEXT          2/50      3/46      5/56      7/23     15/16     19/40     23/03     36/15
                                            3/02      3/54      6/32     14/12     15/18     19/42     23/11
                                            3/03      4/20      6/57     14/31     18/33     20/55     24/51
                                            3/22      5/53      7/01     14/37     18/34     22/11     27/01
        CHARMAP         0   EXTERNAL*      28/50
        CIF           157   PROGRAM*        9/46     10/07 L
        CIFA          241   PROGRAM*       11/06     11/31     13/12 L
        CIFA1          25                  13/13 D   13/17 D   13/17 D   13/17 D   13/17 D   13/17 D   13/17 D   13/17 D
                                           13/17     13/17     13/17     13/17     13/17     13/17     13/17
                                           13/17 D   13/17 D   13/17 D   13/17 D   13/17 D   13/17 D   13/17 D
                                           13/17     13/17     13/17     13/17     13/17     13/17     13/17
                                           13/17 D   13/17 D   13/17 D   13/17 D   13/17 D   13/17 D   13/17 D
                                           13/17     13/17     13/17     13/17     13/17     13/17     13/17
        CIFB          266   PROGRAM*       10/26     12/42     12/54     13/19 L
        CIF1          161   PROGRAM*       10/05     10/16 L
        CIF10         214   PROGRAM*       11/38     12/03 L
        CIF11         216   PROGRAM*       11/56     12/12 L
        CIF12         221   PROGRAM*       12/18     12/21 L
        CIF13         224   PROGRAM*       12/12     12/31 L
        CIF14         227   PROGRAM*       12/41 L   12/51
        CIF15         232   PROGRAM*       12/34     12/48 L
        CIF16         233   PROGRAM*       10/23     12/51 L
        CIF17         237   PROGRAM*       12/53     13/03 L
        CIF18         240   PROGRAM*       11/55     12/07     12/25     12/27     12/39     13/06 L
        CIF2          162   PROGRAM*       10/17     10/20 L
        CIF3          167   PROGRAM*       10/35 L   12/46     13/01
        CIF4          173   PROGRAM*       10/37     10/49 L
        CIF5          176   PROGRAM*       10/27     10/55     11/06 L
        CIF6          200   PROGRAM*       11/12 L   11/27     11/32
        CIF7          203   PROGRAM*       11/14     11/23 L
        CIF8          205   PROGRAM*       11/08     11/31 L
        CIF9          213   PROGRAM*       11/52     11/55 L
        CLASS           0   EXTERNAL*       2/13 X   29/38     29/41     29/46
        C.CON      340000   TSTEXT         20/29
        C.VAR      200000   TSTEXT         28/34
        DEC            37   PROGRAM*        2/01 E    5/09 L    5/30
        DECA            0   EXTERNAL*       2/30 X    4/50      5/35 S
        DECEX         145   PROGRAM*        7/17      7/18      7/28      7/29      8/22      8/56 L
        DECEX1        144   PROGRAM*        5/17      6/11      8/14      8/55 L
        DECX           33   PROGRAM*        4/50 L    8/13      8/53
        DEC10          54   PROGRAM*        5/52 L
        DEC11          56   PROGRAM*        6/04 L    6/14      6/41
        DEC13          63   PROGRAM*        6/18 L    6/38
        DEC14          64   PROGRAM*        6/19      6/21 L
        DEC16          67   PROGRAM*        6/09      6/23      6/32 L
        DEC19          73   PROGRAM*        6/39      6/43 L
        DEC20          75   PROGRAM*        6/43      6/47 L
        DEC21          77   PROGRAM*        6/48      6/52 L
        DEC22         100   PROGRAM*        6/52      6/54 L
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    38
        SYMBOLIC REFERENCE TABLE. 
  
        DEC24         104   PROGRAM*        7/13 L    7/47      7/50
        DEC26         110   PROGRAM*        7/08      7/23 L    7/35
        DEC3           44   PROGRAM*        5/13      5/23 L
        DEC30         115   PROGRAM*        7/04      7/44 L
        DEC40         123   PROGRAM*        6/08      6/10      8/03 L
        DEC41         125   PROGRAM*        6/50      8/03      8/07 L
        DEC45         130   PROGRAM*        8/08      8/16 L
        DEC50         131   PROGRAM*        7/26      8/19 L
        DEC52         133   PROGRAM*        8/01      8/17      8/30 L
        DEC53         137   PROGRAM*        8/32      8/36      8/39 L
        DEC7           50   PROGRAM*        5/15      5/25      5/34 L
        DOORD           0   EXTERNAL*       2/09 X   35/01
        ENTRY.          0   EXTERNAL*      29/24
        ERT             0   EXTERNAL*       2/18 X   30/07     34/52
        ESY             0   EXTERNAL*       2/18 X   29/10     34/36
        E.DC            0   EXTERNAL*       2/13 X    8/55
        E.DC1           0   EXTERNAL*       2/13 X    5/27
        E.DC2           0   EXTERNAL*       2/13 X    8/21
        E.DC3           0   EXTERNAL*       2/13 X    7/07      7/15
        E.DC6           0   EXTERNAL*       2/13 X    7/57
        E.DC8           0   EXTERNAL*       2/13 X    6/45      8/05      8/37     14/19
        E.DC9           0   EXTERNAL*       2/13 X   14/23     14/23
        E.FIV           0   EXTERNAL*       2/27 X   36/14
        E.HC1           0   EXTERNAL*       2/13 X   24/29
        E.HC2           0   EXTERNAL*       2/14 X   17/38     24/35     24/35
        E.HC3           0   EXTERNAL*       2/14 X   26/42     26/42
        E.HC4           0   EXTERNAL*       2/14 X   26/36
        E.HC5           0   EXTERNAL*      19/46     23/02
        E.LP1           0   EXTERNAL*       2/14 X   20/42
        E.LP2           0   EXTERNAL*       2/14 X   20/44
        E.SU4           0   EXTERNAL*       2/14 X   35/51     35/51
        E.SU4A          0   EXTERNAL*       2/14 X   36/03     36/03
        E.TE5           0   EXTERNAL*       2/14 X   28/55
        E.TE7           0   EXTERNAL*      26/04
        E.US1           0   EXTERNAL*       2/14 X    4/23     18/37
        E.VA1           0   EXTERNAL*       2/15 X   29/49
        E.VA2           0   EXTERNAL*       2/15 X   22/17     22/17
        E.ZA            0   EXTERNAL*       2/15 X
        FILL.           0   EXTERNAL*       2/15 X    4/22 S   18/36 S   19/44 S   26/03 S   28/47 S   28/54 S   33/57 S
        FILL.2          0   EXTERNAL*       2/15 X   28/32 S
        FIRSTV          0   EXTERNAL*       2/09 X   17/47 S   21/04
        FORMAT          0   EXTERNAL*       2/24 X   21/16
        FSCALE        147   PROGRAM*        8/48      9/38 L
        HOLLSKL         0   EXTERNAL*       2/30 X   19/47 S   20/18     23/24 S   23/46
        ICONL           0   EXTERNAL*       2/09 X   17/57 S
        INR           551   PROGRAM*       19/45 S   20/21     22/56 S   23/27     23/51 L
        LGR             0   EXTERNAL*       2/24 X   21/17
        LG.LOG          0   EXTERNAL*       2/09 X   21/53
        LG.VAR          7   TSTEXT          2/51      3/38      3/44      4/06      4/21
        LOGT            0   EXTERNAL*       2/09 X   21/55
        LOP=R           0   EXTERNAL*       2/06 X   29/55     34/43
        L.CDPC         52   TSTEXT         28/49
        L.CL            0   EXTERNAL*       2/15 X   29/47
        L.FARGC         6   TSTEXT         35/42
        L.FARGM         3   TSTEXT         35/42
        L.FIV           0   EXTERNAL*       2/27 X   36/13
        L.FJPAD        11   TSTEXT         35/42
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    39
        SYMBOLIC REFERENCE TABLE. 
  
        L.FPNO          6   TSTEXT         30/16
        L.MODE          3   TSTEXT         30/18     30/20     30/22     34/44     34/56     35/39     35/41
        L.SBPR         22   TSTEXT         22/11     22/12
        L.SYM          52   TSTEXT         25/53     28/44     33/51     36/15
        L.TAG          22   TSTEXT         30/18
        L.TYPE          5   TSTEXT         15/17
        MAPCHAR         0   EXTERNAL*       2/09 X   18/25
        MULS            0   EXTERNAL*       2/09 X   17/51 S   19/17 S
        M.ASF        2000   TSTEXT         29/15
        M.BEF         400   TSTEXT         29/15
        M.BEFF      20710   TSTEXT         36/04
        M.CPLX          5   TSTEXT         15/40
        M.DBL           4   TSTEXT         15/39
        M.ENT=         40   TSTEXT         29/21
        M.EXT         100   TSTEXT         34/23     34/23     35/02     36/22
        M.EXT=        100   TSTEXT         29/15
        M.FUN         200   TSTEXT         29/15     34/23     34/23     36/22
        M.INLF      24210   TSTEXT         35/47     35/47
        M.INT           2   TSTEXT          5/54     15/37
        M.LOG           1   TSTEXT         15/36
        M.NVAR      20000   TSTEXT         34/23     34/23     36/22
        M.REAL          3   TSTEXT          8/47     15/38
        M.RP        40000   TSTEXT         29/18
        M.SNEX        100   TSTEXT         35/10
        M.SUB        1000   TSTEXT         29/15
        M.SYSEXT    20100   TSTEXT         34/29
        M.UNIV          0   TSTEXT          5/29     28/38
        M.VAR       10000   TSTEXT         29/09
        NAM20           0   EXTERNAL*      29/31
        NAT.CPLX      360   PROGRAM*       15/40 L
        NAT.DBL       357   PROGRAM*       15/39 L
        NAT.INT       355   PROGRAM*       15/37 L
        NAT.LOG       354   PROGRAM*       15/36 L
        NAT.REAL      356   PROGRAM*       15/38 L
        NAT.TYP       354   PROGRAM*        1/57 E   15/21     15/34 L
        NCM             0   EXTERNAL*       2/18 X   20/27
        NEXT            0   EXTERNAL*       2/18 X   33/55 S
        OCT           332   PROGRAM*        2/02 E    5/24     14/27 L
        OCT20         335   PROGRAM*       14/33 L   14/40
        OCT40         337   PROGRAM*       14/37 L   14/45     14/48     14/51
        OCT80         344   PROGRAM*       14/42     14/44     14/50 L
        OCT90         324   PROGRAM*       14/12 L   14/35
        OCT94         330   PROGRAM*       14/18     14/21 L
        OCT96         332   PROGRAM*       14/21     14/25 L
        O.CONS          2   TSTEXT          5/14      7/14     14/34     22/40
        O.EXP          26   TSTEXT         18/55
        O.HOLL          1   TSTEXT         20/30
        O.PERIOD       37   TSTEXT          5/12      6/07
        O.PL            4   TSTEXT          7/46      7/46
        O.STAR          6   TSTEXT         18/53
        O.VAR           3   TSTEXT          6/06     31/25     31/31     31/37     31/45     31/52     32/02
                                           21/06     31/26     31/32     31/38     31/47     31/53     32/03
                                           21/48     31/27     31/33     31/39     31/48     31/54     32/04
                                           25/56     31/28     31/34     31/40     31/49     31/55     32/07
                                           28/46     31/29     31/35     31/43     31/50     31/56     33/54
                                           29/02     31/30     31/36     31/44     31/51     32/01
        PSN             0   EXTERNAL*       8/57
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    40
        SYMBOLIC REFERENCE TABLE. 
  
        PTN3            0   EXTERNAL*      29/34
        PWE             0   EXTERNAL*       6/45      8/05      8/56     14/23     24/29     26/04     26/42     36/03
                                            7/57      8/37     14/19     17/39     24/35     26/36     28/33
        P.             73   TSTEXT         29/14     35/46
        P.ARGC         22   TSTEXT         35/44
        P.CLASS2        5   TSTEXT         29/46
        P.CLCON        33   TSTEXT         20/23
        P.DEF           3   TSTEXT         29/38     29/41
        P.FANSI        25   TSTEXT         35/50     36/02
        P.FBEF         26   TSTEXT         35/46     35/50     36/02
        P.FPNO         22   TSTEXT         30/17
        P.LCON         22   TSTEXT         20/23     20/33
        P.NVAR         15   TSTEXT         29/14     29/38
        P.RP           16   TSTEXT         29/41
        P.SYM          22   TSTEXT         19/26
        P.TAG          52   TSTEXT         20/31     28/37
        P.2FPNO        22   TSTEXT         30/21
        REFVAR          0   EXTERNAL*       2/09 X   30/05     34/50
        SB.STNR         0   EXTERNAL*      21/14
        SLT          1042   PROGRAM*        1/55 E   34/20     36/11 L
        SLT10        1027   PROGRAM*       35/38 L   36/18
        SLT20        1036   PROGRAM*       35/46     36/02 L
        SLT22        1040   PROGRAM*       36/02     36/04 L
        SLT32        1045   PROGRAM*       36/16 L   36/21
        SSY             0   EXTERNAL*       2/18 X   29/05     34/07
        STY           346   PROGRAM*        2/01 E   15/15 L   29/08     34/31
        STY1          345   PROGRAM*       15/10 L   15/24
        STY2          351   PROGRAM*       15/21 L   15/25
        S=BIN          10                   1/55 E   31/33 L
        S=COD           0                   1/55 E   31/23 L
        S=CONT          1                   1/55 E   31/26 L
        S=FREE          4                   2/01 E   31/29 L
        S=INIT          0                  31/24 L
        S=INP           0                   1/55 E   31/25 L
        S=OUT           2                   1/55 E   31/27 L
        S=STR          14                   1/56 E   31/37 L
        S.ACGOR       752   PROGRAM*        1/57 E   31/49 L
        S.BKSP        753   PROGRAM*        1/56 E   31/50 L
        S.BUFIO       761   PROGRAM*        1/56 E   31/56 L
        S.END         762   PROGRAM*        1/55 E   32/01 L
        S.ENDFI       754   PROGRAM*        1/56 E   31/51 L
        S.EOF         755   PROGRAM*       31/52 L
        S.ERR         747   PROGRAM*        1/55 E   31/45 L
        S.FID         766   PROGRAM*       32/06 E   32/07 L
        S.FTNRP       765   PROGRAM*        2/03 E   32/04 L
        S.IOCAL       725   PROGRAM*        1/56 E   31/20 L
        S.NLST        745   PROGRAM*        2/01 E   31/43 L
        S.PAUSE       763   PROGRAM*        1/55 E   32/02 L
        S.Q2NTR       750   PROGRAM*        1/57 E   31/47 L
        S.RANDM       756   PROGRAM*        2/01 E   31/53 L
        S.REWIN       757   PROGRAM*        1/56 E   31/54 L
        S.STOPE       764   PROGRAM*       32/03 L
        S.VARDIM      751   PROGRAM*       31/48 L
        TAB           364   PROGRAM*        1/57 E   17/45 L
        TABEX         362   PROGRAM*       17/39 L   20/43     20/45
        TABE2         361   PROGRAM*       17/38 L
        TABX.F          0   EXTERNAL*       2/21 X   21/18
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    41
        SYMBOLIC REFERENCE TABLE. 
  
        TAB1          374   PROGRAM*       18/01     18/16 L   19/01     21/25     22/15     22/18     22/49
        TAB100        545   PROGRAM*       23/32     23/44 L
        TAB101        546   PROGRAM*       23/30     23/45 L
        TAB4          405   PROGRAM*       18/36 L   20/56
        TAB5          406   PROGRAM*       18/28     18/41 L
        TAB76         531   PROGRAM*       23/11 L   23/19
        TAB77         534   PROGRAM*       23/15     23/21 L
        TAB82         543   PROGRAM*       20/03     23/33     23/38 L
        TAB.CO        423   PROGRAM*        1/54 E   19/33 L
        TAB.DOL       416   PROGRAM*        1/54 E   18/20     19/15 L
        TAB.EOS       446   PROGRAM*       18/18     19/18     19/52     20/39 L   21/27     23/26
        TAB.LG        474   PROGRAM*       21/46 L
        TAB.LG10      504   PROGRAM*       22/01     22/10 L
        TAB.LG5       500   PROGRAM*       21/55 L   22/03
        TAB.LP        372   PROGRAM*        1/54 E   18/05 L
        TAB.NU        510   PROGRAM*       20/51     22/23 L
        TAB.NU1       512   PROGRAM*       22/28 L   22/32
        TAB.NU2       514   PROGRAM*       22/29     22/34 L
        TAB.NU5       516   PROGRAM*       21/42     22/24     22/36     22/38 L   22/50
        TAB.NU7       524   PROGRAM*       22/46     22/55 L
        TAB.NU8       527   PROGRAM*       23/01     23/03 L
        TAB.NX        373   PROGRAM*        1/54 E   18/54     19/08     19/23     19/33     20/35     21/34
                                           18/09 L   19/06     19/11     19/29     19/36     21/32     22/06
        TAB.PD        467   PROGRAM*        1/57 E   21/31 L
        TAB.QT        425   PROGRAM*       18/30     18/32     19/40 L
        TAB.QT3       435   PROGRAM*       20/08 L   23/42     23/45     23/48
        TAB.QT5       436   PROGRAM*       19/57     20/14 L   23/34     23/49
        TAB.QT6       442   PROGRAM*       20/22     20/25 L
        TAB.RP        413   PROGRAM*        1/54 E   19/05 L
        TAB.STR       410   PROGRAM*        1/54 E   18/53 L
        TAB.VA        451   PROGRAM*       18/23     20/50 L
        TAB.VA1       455   PROGRAM*       20/53     21/04 L   21/26
        TAB.VA20      464   PROGRAM*       21/07     21/11     21/13     21/15     21/21 L   21/49
        TAB.=         420   PROGRAM*        1/54 E   19/23 L
        THC           561   PROGRAM*        1/57 E   23/25     24/41 L
        THCE          560   PROGRAM*       24/30     24/37 L
        THCEX         556   PROGRAM*       24/32 L   25/04
        THCZEX        553   PROGRAM*       24/27 L   24/42
        THC10         571   PROGRAM*       24/53     25/04 L
        THC25         575   PROGRAM*       24/48     25/16 L
        THC5          564   PROGRAM*       24/48 L   24/55     25/02     25/08     25/12
        TLV           600   PROGRAM*        2/02 E   25/50 L   26/05     29/04
        TLV5          602   PROGRAM*       25/54 L   25/57
        TRV           651   PROGRAM*        1/57 E   28/42 L   29/28
        TRVA            0   EXTERNAL*       2/30 X   30/02 S   30/08     30/27 S   34/47 S   34/53
        TRVEX         645   PROGRAM*       28/31 L   29/50
        TRV1          657   PROGRAM*       28/51     28/53 L
        TRV10         670   PROGRAM*       29/06     29/13 L
        TRV10A        705   PROGRAM*       29/20     29/41 L
        TRV10B        706   PROGRAM*       29/17     29/27     29/37     29/44 L
        TRV10C        710   PROGRAM*       29/39     29/42     29/48 L
        TRV10D        704   PROGRAM*       29/23     29/38 L
        TRV12         712   PROGRAM*       29/11     29/14     29/33     29/36     29/55 L
        TRV20         721   PROGRAM*       29/57     30/15 L
        TRV4          661   PROGRAM*       28/48     29/01 L
        TRV5          663   PROGRAM*       29/03     29/05 L
        TSC           615   PROGRAM*        1/57 E   19/51     26/48 L
1       /LEX  LEXICAL SCANNERS                                        COMPASS 3.7-871.     24/05/02. 15.51.57.      PAGE    42
        SYMBOLIC REFERENCE TABLE. 
  
        TSCE          614   PROGRAM*       26/37     26/44 L
        TSCEX         612   PROGRAM*       26/39 L   27/05
        TSCZEX        607   PROGRAM*       26/34 L   27/44
        TSC10         626   PROGRAM*       27/07     27/15 L   28/08
        TSC15         632   PROGRAM*       27/02     27/25 L
        TSC25         635   PROGRAM*       27/31     27/39 L   28/01     28/04     28/05
        TSC5          621   PROGRAM*       26/57 L   27/09     27/13     27/19     27/23
        TSC5A         622   PROGRAM*       27/03 L   27/25
        TSC50         641   PROGRAM*       27/15     27/55 L
        TSF           767   PROGRAM*        2/01 E   33/49 L
        TSF2          775   PROGRAM*       34/01     34/07 L
        TSF30        1001   PROGRAM*       34/09     34/17 L
        TSF40        1005   PROGRAM*       34/18     34/29 L
        TSF50        1007   PROGRAM*       34/22     34/30     34/35 L
        TSF60        1012   PROGRAM*       34/13     34/43 L
        TSF62        1021   PROGRAM*       34/45     35/01 L
        TSF65        1026   PROGRAM*       35/13 L
        TS=CON          0   EXTERNAL*       2/10 X   17/54
        TS.CON          0   EXTERNAL*       2/10 X   20/20
        TS.STN          0   EXTERNAL*       2/10 X   35/07
        TS.SYM          0   EXTERNAL*       2/10 X   29/05     29/10     34/07     34/36
        ZLCOMMA         0   EXTERNAL*       2/10 X   19/35 S
        ZLEQUAL         0   EXTERNAL*       2/10 X   19/24
        ZLPAREN         0   EXTERNAL*       2/10 X   19/07
        .FID            1   TSTEXT         32/05 F
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1117              IDENT  KEY
                       1117                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1107 
                                        LITERALS* LOCAL        1107        10 
  
  
                                        ENTRY POINTS. 
  
                                        END1B          236+           ASSIGN=          1+           NAMELI=        340+ 
                                        END1C          240+           TO=             42+           ENTRY=         427+ 
                                        LCC66          331+           BLOCKD=         44+           PAUSE=         500+ 
                                        GOTA          1013+           CALL=           56+           PROGRA=        505+ 
                                        RTU            572+           CONTIN=        215+           RETURN=        513+ 
                                        EMT           1037+           END=           226+           GOTO=          633+ 
                                        CRL            134+           FUNCTI=        254+           STOP=         1015+ 
                                        SVALUE.        271+           LDSET=         273+           SUBROU=       1024+ 
                                        NAM20          362+           OVERLA=        276+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        F.LGO     NTRCNT    E.AC8     E.LN1     FILL.     S.PAUSE   O=QUITP   E.LV11
                                        LOP=M     OPRETD    E.AC9     E.LN2     E.SU1     INIF      SA=BKS3   E.MR3 
                                        LOP=R     OPRETS    E.AES     E.LN3     E.LN      IFSN      ZERO      WOF 
                                        ASSN      OPDUM     E.ANS     E.LN4     E.CL3     IFREL1    CAI       CP.LSTF 
                                        ARGCOMA   REFNUM    E.AP      E.ME      RUN5      LGR       MXP       T.DLBUF 
                                        ARGMODE   REFVAR    E.AP1     E.MR1     DCM       TO        VEL       CIO=
                                        CCNT      RTNCNT    E.ART     E.MR2     PPA       PSN       O=RTNA    WTC=
                                        CHARMAP   SB.STNL   E.AS2     E.M$2     PSA       STN0R     AGNK      WNB=
                                        CALLOP    STN       E.AS3     E.M$3     WIN       ISN       CALLTAG   FV.LGO
                                        CALLARM   TT.PAR    E.AS4     E.OV      END       CIA       SCR       LDRFLG
                                        CSNTAG    TS.SYM    E.AS5     E.OV1     ADW       CRJ       CST.BOS   E.SU8 
                                        DOORD     TP.NLST   E.CL      E.OV3     ESY       CDS       CCT       FILL.3
                                        DTI       TP.DIM    E.CL1     E.PT      SSY       CURST     E.SPR4    TRLINE
                                        ENTRY.    TP=DO     E.CL2     E.PT1     NCS       PAR       ESC       ALC 
                                        ERROP     TS.ENT    E.CT      E.PT2     CPM       FAL       E.SPR5    TLV 
                                        EXTCAL    TG.PRO    E.FM      E.PT3     CUS.RET   O=NTR0    E.SPR2    BA.PRO
                                        ETF       TS.STN    E.GO      E.RA      PSP       O=NTRP    E.GO1A    ANSI= 
                                        FLOW      TT=PAR    E.GO1     E.RA1     PSP.F     O=QUITS   O=NTRN1   E.ANS4
                                        GOASS     T.VDIM    E.GO2     E.SN16    ASL       O=BSS     CO.ID     PWE 
                                        GOTARM    TT=SCR    E.GO2A    E.APR     ASK       O=NTR     OTROP     ISASG 
                                        HANGER    TT.SCR    E.GO3     E.APR1    S.ACGOR   O=RETN    CO.ER 
                                        LDEAD     TP=NLST   E.GO4     E.SPR     OCT       O=NTRX    O=VOID
                                        MOD       VALUE.    E.GO5     E.SPR1    STY       O=NTRM    ERT 
                                        MULS      NOLIST    E.GO6     E.SPR3    TRV       O=NTRN    E.PT4 
                                        NARGS     SLIST     E.GO7     E.SU2     TSF       O=NTRY    CPM=ASF 
                                        NOPATH    E.AC5     E.GO8     E.XC      S.END     O=GOTON   STAGE 
  
  
  
  
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     2
  
  
                                                  IDENT  KEY                                                     KEY         2
                                         KEY      SECT   (KEYWORD STATEMENT PROCESSORS),1                        KEY         3
  
                                                                                                                 KEY         4
                                                  SST    A,B,C,D,EXIT.                                           KEY         5
                                                  NOREF  A,B,C,D,EXIT.                                           KEY         6
                                                                                                                 KEY         7
                                         B=KEY    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     KEY         8
                                                                                                                 KEY         9
                                                  ENTRY  END1B,END1C,LCC66,GOTA,RTU,EMT,CRL,SVALUE.              KEY        10
                                                  ENTRY  NAM20                                                   FCC0499    26
                                                                                                                 KEY        11
                                        *         IN FTN                                                         KEY        12
                                                  EXT    F.LGO,LOP=M,LOP=R                                       FEAT126B  913
                                                                                                                 KEY        14
                                        *         IN TABLES                                                      KEY        15
                                                  EXT    ASSN,ARGCOMA,ARGMODE,CCNT,CHARMAP,CALLOP,CALLARM,CSNTAG KEY        16
                                                  EXT    DOORD,DTI,ENTRY.,ERROP,EXTCAL,ETF,FLOW,GOASS,GOTARM     KEY        17
                                                  EXT    HANGER,LDEAD,MOD,MULS,NARGS,NOPATH,NTRCNT,OPRETD,OPRETS KEY        18
                                                  EXT    OPDUM,REFNUM,REFVAR,RTNCNT,SB.STNL,STN,TT.PAR,TS.SYM    KEY        19
                                                  EXT    TP.NLST,TP.DIM,TP=DO,TS.ENT,TG.PRO,TS.STN,TT=PAR,T.VDIM KEY        20
                                                  EXT    TT=SCR,TT.SCR,TP=NLST,VALUE.,NOLIST,SLIST               FEAT126B  914
                                                                                                                 KEY        22
                                        *         IN ERRORS                                                      KEY        23
                                                  EXT    E.AC5,E.AC8,E.AC9,E.AES,E.ANS,E.AP,E.AP1,E.ART,E.AS2    KEY        24
                                                  EXT    E.AS3,E.AS4,E.AS5,E.CL,E.CL1,E.CL2,E.CT,E.FM,E.GO,E.GO1 KEY        25
                                                  EXT    E.GO2,E.GO2A,E.GO3,E.GO4,E.GO5,E.GO6,E.GO7,E.GO8,E.LN1  KEY        26
                                                  EXT    E.LN2,E.LN3,E.LN4,E.ME,E.MR1,E.MR2,E.M$2,E.M$3,E.OV     KEY        27
                                                  EXT    E.OV1,E.OV3,E.PT,E.PT1,E.PT2,E.PT3,E.RA,E.RA1,E.SN16    KEY        28
                                                  EXT    E.APR,E.APR1,E.SPR,E.SPR1,E.SPR3,E.SU2,E.XC,FILL.       KEY        29
                                                  EXT    E.SU1,E.LN                                              KEY        30
                                                  EXT   E.CL3                                                    FCC2307     7
                                                                                                                 KEY        31
                                        *         IN BATCH                                                       KEY        32
                                                  EXT    RUN5                                                    FCC1097    13
                                                                                                                 KEY        34
                                        *         IN HEADER                                                      KEY        35
                                                  EXT    DCM,PPA,PSA                                             KEY        36
                                                                                                                 KEY        37
                                        *         IN PIG                                                         KEY        38
                                                  EXT    WIN                                                     KEY        39
                                                                                                                 KEY        40
                                        *         IN END                                                         KEY        41
                                                  EXT    END                                                     KEY        42
                                                                                                                 KEY        43
                                        *         IN ALLOC                                                       KEY        44
                                                  EXT    ADW,ESY,SSY,NCS,CPM                                     KEY        45
                                                                                                                 KEY        46
                                        *         IN MAIN                                                        KEY        47
                                                  EXT    CUS.RET,PSP,PSP.F,ASL,ASK                               KEY        48
                                                                                                                 KEY        49
                                        *         IN LEX                                                         KEY        50
                                                  EXT    S.ACGOR,OCT,STY,TRV,TSF,S.END,S.PAUSE                   KEY        51
                                                                                                                 KEY        52
                                        *         IN IF                                                          KEY        53
                                                  EXT    INIF,IFSN,IFREL1                                        KEY        54
                                                                                                                 KEY        55
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     3
  
  
                                        *         IN IO                                                          KEY        56
                                                  EXT    LGR,TO                                                  KEY        57
                                                                                                                 KEY        58
                                        *         IN NUM                                                         KEY        59
                                                  EXT    PSN,STN0R,ISN                                           KEY        60
                                                                                                                 KEY        61
                                        *         IN REG                                                         KEY        62
                                                  EXT    CIA,CRJ,CDS                                             KEY        63
                                                                                                                 KEY        64
                                        *         IN PAR                                                         KEY        65
                                                  EXT    CURST,PAR,FAL                                           KEY        66
                                                                                                                 KEY        67
                                        *         IN GEN                                                         KEY        68
                                                  EXT    O=NTR0,O=NTRP,O=QUITS,O=BSS,O=NTR,O=RETN,O=NTRX,O=NTRM  KEY        69
                                                  EXT    O=NTRN,O=NTRY,O=GOTON,O=QUITP,SA=BKS3,ZERO,CAI          KEY        70
                                                  EXT    MXP,VEL,O=RTNA                                          KEY        71
                                                                                                                 KEY        72
                                        *         IN INIT                                                        KEY        73
                                                  EXT    AGNK,CALLTAG,SCR,CST.BOS                                KEY        74
                                                                                                                 KEY        75
                                        *         IN DECL                                                        KEY        76
                                                  EXT    CCT                                                     KEY        77
                                                                                                                 KEY        78
  
  
  
  
                                        **        AGN -  PROCESS "ASSIGN" STATEMENT.                             KEY        80
                                                                                                                 KEY        81
                                                                                                                 KEY        82
             0  00000000000000071600              HEREIF ASSIGN                                                  KEY        83
             1  56440                             SA4    B4                                                      KEY        84
                     6274777775                   SB7    X4-O.CONS                                               KEY        85
             2  0570000000 X                      NZ     B7,E.AS4    IF NO LABEL                                 KEY        86
                                                                                                                 KEY        87
                          0100000000 X            RJ     ASL         ADJUST STATEMENT LABEL                      KEY        88
             3  7160000054                        =X6    CR.STR                                                  KEY        89
                          76710                   =X7    CR.AGN                                                  KEY        90
             4  5160000000 X                      SA6    REFVAR                                                  KEY        91
                          6120000200              =B2    M.SNLAB                                                 KEY        92
             5  10611                             BX6    X1                                                      KEY        93
                     5170000000 X                 SA7    REFNUM                                                  KEY        94
             6  5110000000 X                      SA1    TP=DO                                                   FCC1058     5
                          0311000011 +            NZ     X1,AGN1     IF INSIDE DO LOOP                           FCC1058     6
             7  76700                             =X7    0                                                       FCC1058     7
                     5170000000 X                 SA7    =XISASG     INDICATE NOT INSIDE DO LOOP                 FCC1058     8
            10  0400000012 +                      EQ     AGN11                                                   FCC1058     9
            11  5160000000 X             AGN1     SA6    =XISASG     SET ASSIGN FLAG IN ISN                      FCC1058    10
            12  0100000000 X             AGN11    RJ     ISN         IDENTIFY STATEMENT NUMBER                   FCC1058    11
                                                                                                                 KEY        96
            13  56140                             SA1    B4                                                      KEY        97
                     5160000000 X                 =A6    AGNK        SAVE LABEL TAG                              KEY        98
            14  6271777764                        SB7    X1-O.COMMA                                              KEY        99
                          0570000017 +            NZ     B7,AGN2     IF NO COMMA                                 KEY       100
            15  66441                             =B4    B4+1                                                    KEY       101
                     6170000000 X                 WARN   E.AS5                                                   KEY       102
                                                                                                                 KEY       103
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     4
                                                                      AGN 
  
            17  7150000000 X             AGN2     SX5    LGR                                                     KEY       104
                          5255000000 X            SA5    X5+TO                                                   KEY       105
            20  56140                             SA1    B4                                                      FCC1274    12
                     43014                        MX0    2*CHAR                                                  FCC1274    13
                          11601                   BX6    X0*X1                                                   FCC1274    14
                               11305              BX3    X0*X5                                                   FCC1274    15
            21  37336                             IX3    X3-X6                                                   FCC1274    16
                     0303000024 +                 ZR     X3,AGN4     IF *TO*                                     FCC1274    17
            22  5160000000 X                      SA6    FILL.                                                   FCC1274    18
                          6170000000 X            WARN   E.AS2                                                   FCC1274    19
                                                                                                                 FCC1274    20
            24  0100000000 X             AGN4     RJ     ASK         ADJUST STATEMENT KEYWORD *TO*               FCC1274    21
            25  0100000000 X                      RJ     TRV         TRANSLATE THE VARIABLE                      FCC1274    22
            26  0330000000 X                      MI     X0,PSN      IF ERROR                                    FCC1410     8
                          5140000000 X            SA4    TS.SYM                                                  KEY       113
            27  7130000010                        SX3    M.DEF                                                   KEY       114
                          12636                   BX6    X3+X6                                                   FCCA434     6
                               53647              SA6    X4+B7       SET DEFINED BIT IN SYMBOL TABLE             KEY       116
            30  56341                             =A3    B4+1                                                    KEY       118
                     10522                        BX5    X2          PASS *2* TAG                                KEY       119
                          6271777775              SB7    X1-M.INT                                                KEY       120
            31  6130000000 X                      SB3    ASSN                                                    KEY       121
                          67303                   SB3    -B3                                                     KEY       122
                               66441              =B4    B4+1        BUMP B4 FOR POSSIBLE ERROR MESSAGE          KEY       123
            32  0470000034 +                      ZR     B7,AGN5     IF INTEGER VARIABLE                         KEY       124
                          6170000000 X            WARN   E.AS3                                                   KEY       125
                                                                                                                 KEY       126
            34  0303000036 +             AGN5     ZR     X3,AGN7     IF NEXT ELEMENT *EOS*                       KEY       127
                          6170000000 X            WARN   E.XC        ** IGNORED ENDING CRUD **                   KEY       128
                                                                                                                 KEY       129
            36  5110000000 X             AGN7     SA1    TT.PAR                                                  KEY       130
                          5140000000 X            SA4    AGNK        (1OP) = STATEMENT LABEL                     KEY       131
                                        *         =X5    X5          (2OP) = VARIABLE                            KEY       132
            37  21452                             AX4    P.TAG                                                   KEY       133
                     0100001037 +                 RJ     EMT                                                     KEY       134
            40  0400000000 X                      EQ     PSN         EXIT..                                      KEY       135
                                                                                                                 KEY       136
            41  00000000000000000000              HEREIF TO                                                      KEY       137
            42  0400000000 X                      EQ     E.FM                                                    KEY       138
  
  
  
  
                                        **        BKD -  PROCESS "BLOCKDATA" STATEMENT.                          KEY       140
                                        *         EXIT   TO MASTER LOOP.                                         KEY       141
                                        *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                    KEY       142
                                                                                                                 KEY       143
                                                                                                                 KEY       144
            43  24010000000000130401              HEREIF BLOCKDATA                                               KEY       145
                                                                                                                 KEY       146
            44  56140                             SA1    B4                                                      KEY       147
                     5120000054 +                 SA2    BKDA                                                    KEY       148
                               76700              =X7    0                                                       FCC1524X   21
            45  0301000050 +                      ZR     X1,BKD1     IF NAME NOT SPECIFIED                       FCC1998     9
                          6170000000 X            ANSI   =XE.ANS4    NON-ANSI FORM OF BLOCK DATA                 FCC1998    10
            47  0400000051 +                      EQ     BKD2                                                    FCC1998    11
            50  10622                    BKD1     BX6    X2                                                      FCC1998    12
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     5
                                                                      BKD 
  
                     56640                        SA6    B4          DEFAULT NAME TO *SB*                        KEY       152
                          56741                   SA7    B4+B1                                                   KEY       153
            51  7160000400               BKD2     =X6    M.PBLK      PROGRAM-UNIT COMPILE MODE                   FCC1998    13
                          5170000000 X            SA7    =XBA.PRO                                                FCC1524X   22
            52  5140001107 +                      SA4    =9ABLOCKDATA                                            FCC1328X  539
                          0100000000 X            RJ     DCM         DISPLAY COMPILING MESSAGE                   KEY       156
            53  0400000000 X                      EQ     PSP         CONTINUE                                    KEY       157
                                                                                                                 KEY       158
            54  02141304012457000003     BKDA     CON    7LBLKDAT.+O.VAR                                         KEY       159
  
  
  
  
                                        **        CLL -  PROCESS "CALL" STATEMENT.                               KEY       161
                                                                                                                 KEY       162
                                                                                                                 KEY       163
            55  00000000000000000000              HEREIF CALL                                                    KEY       164
                                                                                                                 KEY       165
            56  56140                             SA1    B4                                                      KEY       166
                     6271777774                   SB7    X1-O.VAR                                                KEY       167
            57  0570000000 X                      NZ     B7,E.CL     IF NO NAME SUPLIED.                         KEY       168
                          0100000000 X            RJ     MXP                                                     KEY       169
            60  7170000030                        SX7    CR.SUB                                                  KEY       170
                          5170000000 X            SA7    REFVAR      INITIALIZE REFERENCE TYPE                   KEY       171
            61  7160021100                        TAGSUB B4                                                      KEY       172
            62  10166                             BX1    X6                                                      KEY       173
                     7130016440                   CLAS=  X3,(ENT,VAR,ASF,INLINE,BEF)                             FCC1467X    5
            63  7120000006                        SX2    P.EXT                                                   KEY       175
                          0100000000 X            RJ     CCT         CHECK FOR CONFLICTING TYPE                  KEY       176
            64  0306000000 X                      ZR     X6,PSN      IF CONFLICTING TYPE                         KEY       177
                          10066                   BX0    X6                                                      FCC2307     8
                               20064              IFBIT  X0,-FUN,CCL14                                           FCC2307     9
                          6170000000 X            ANSI   E.CL3        SAME NAME USED AS A FUNCTION AND SUB       FCC2307    10
            67                           CCL14    BSS    0                                                       FCC2307    11
            67  43066                             MX0    -L.FPNO                                                 KEY       178
                     21122                        AX1    P.FPNO                                                  KEY       179
                          43325                   MX3    L.TAG+L.MODE                                            KEY       180
                               15410              BX4    -X0*X1      EXTRACT SYMBOL TABLE *PARM* FIELD           KEY       181
            70  20303                             LX3    L.MODE                                                  KEY       182
                     20422                        LX4    P.2FPNO     F.P. NUMBER TO PASS *2* FIELD               KEY       183
                          11136                   BX1    X3*X6       TAG + MODE                                  KEY       184
                               22206              LX2    X6                                                      KEY       185
            71  36614                             IX6    X1+X4       TAG + PARM + MODE, PASS *2* TAG             KEY       186
                     56141                        =A1    B4+1                                                    KEY       187
                          10522                   BX5    X2          REMEMBER PASS *1* TAG                       KEY       188
            72  5160000000 X                      SA6    CALLTAG     SAVE PASS *2* TAG FOR PARSER                KEY       189
                          20270                   SBIT   X2,DEF                                                  KEY       190
            73  6221777774                        SB2    X1-O.VAR                                                KEY       191
                          0520000076 +            NZ     B2,CLL15    IF NOT LONG NAME                            KEY       192
            74  66270                             SB2    B7          SAVE B7                                     KEY       193
                     0100000000 X                 RJ     =XTLV       TRUNCATE NAME                               KEY       194
            75  66720                             SB7    B2          RESTORE B7                                  KEY       195
                     56141                        =A1    B4+1                                                    KEY       196
            76  6221777767               CLL15    SB2    X1-O.LP                                                 KEY       197
                          0301000115 +            ZR     X1,CLL40    IF NO PARAMETERS                            KEY       198
            77  0332000101 +                      MI     X2,CLL20    IF NOT FIRST USE                            KEY       199
                          5120000000 X            SA2    TS.SYM                                                  KEY       200
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     6
                                                                      CLL 
  
           100  10755                             BX7    X5                                                      KEY       201
                     53727                        SA7    X2+B7       STORE BITS INTO SYMBOL TABLE                KEY       202
                                                                                                                 KEY       203
           101  0520000124 +             CLL20    NZ     B2,CLL50    IF NOT PAREN                                KEY       204
                          66441                   =B4    B4+1        POINT TO *(*                                KEY       205
           102  7160000032                        =X6    O.SLP                                                   KEY       206
                          54610                   SA6    A1          SET DUMMY *(* FOR PARSER                    KEY       207
           103  5110000000 X                      SA1    CALLARM                                                 KEY       208
                          5120000000 X            SA2    TT=SCR                                                  KEY       209
           104  20244                             LX2    36                                                      KEY       210
                     10611                        BX6    X1                                                      KEY       211
                          10722                   BX7    X2                                                      KEY       212
           105  5170000000 X                      SA7    ARGCOMA                                                 KEY       214
                          5160000000 X            SA6    ARGMODE                                                 KEY       215
           106  0100000000 X                      RJ     PAR         REDUCE TO SIMPLEST EXPRESSION               KEY       216
                                                                                                                 KEY       217
           107  5110000000 X             CLL25    ALLOC  TT.PAR,L.TURP                                           KEY       218
           111  5110000000 X                      SA1    =XTRLINE    EMIT(O=RJT, SUBR, LINENO.)                  KEY       219
                          5120000000 X            SA2    =XCALLTAG                                               KEY       220
           112  10722                             BX7    X2                                                      KEY       221
                     10611                        BX6    X1                                                      KEY       222
                          5110000000 X            SA1    =XEXTCAL                                                KEY       223
           113  57671                             =A6    B7-L.TURP+OR.2OP                                        KEY       224
                     10611                        BX6    X1                                                      KEY       225
                          55761                   =A7    A6-OR.2OP+OR.1OP                                        KEY       226
                               55671              =A6    A7-OR.1OP+OR.OPR                                        KEY       227
                                                                                                                 KEY       228
                                                                                                                 KEY       229
                                        **        HERE WHEN ALL ARGUMENTS HAVE BEEN PROCESSED.                   KEY       230
                                        *         PROCESS EXTERNAL JUMP AND EXIT TO MASTER LOOP.                 KEY       231
                                                                                                                 KEY       232
           114  0400000000 X                      EQ     PSN         EXIT..                                      KEY       233
                                                                                                                 KEY       234
                                                                                                                 KEY       235
                                        **        HERE IF NULL LIST.                                             KEY       236
                                        *         PROCESS EXTERNAL JUMP AND EXIT TO MASTER LOOP.                 KEY       237
                                                                                                                 KEY       238
           115  0332000120 +             CLL40    MI     X2,CLL41    IF NOT 1ST USE.                             KEY       239
                          5120000000 X            SA2    TS.SYM                                                  KEY       240
           116  7100000010                        =X0    M.DEF                                                   KEY       241
                          12650                   BX6    X5+X0                                                   KEY       242
                               53627              SA6    X2+B7       RESET INDICATING DEFINED, ARGUMENTS = 0.    KEY       243
           117  13777                             =X7                                                            KEY       244
                     0400000107 +                 EQ     CLL25       CONTINUE..                                  KEY       245
                                                                                                                 KEY       246
                                        **        HERE IF ALREADY USED, CHECK ARGUMENT COUNT AGREEMENT.          KEY       247
                                                                                                                 KEY       248
           120  21530                    CLL41    AX5    P.UARGC                                                 KEY       249
                     43066                        MX0    -L.UARGC                                                KEY       250
                          15750                   BX7    -X0*X5                                                  KEY       251
           121  0307000107 +                      ZR     X7,CLL25    IF ARGUMENT COUNT AGREES                    KEY       252
                          6170000000 X            WARN   E.SU2       ARGUMENT COUNT NOT CONSISTENT.              KEY       253
           123  0400000107 +                      EQ     CLL25                                                   KEY       254
                                                                                                                 KEY       255
           124  6221777764               CLL50    SB2    X1-O.COMMA                                              KEY       256
                          66441                   =B4    B4+1                                                    KEY       257
           125  0520000000 X                      NZ     B2,E.CL1    IF NO *,* - ERROR                           KEY       258
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     7
                                                                      CLL 
  
                          5120000000 X            SA2    TT=SCR                                                  KEY       259
           126  20244                             LX2    36                                                      KEY       260
                     10722                        BX7    X2                                                      KEY       261
                          5170000000 X            SA7    ARGCOMA                                                 KEY       262
           127  0100000134 +                      RJ     CRL         PROCESS CALL STATEMENT RETURNS  LIST        KEY       263
           130  22602                             LX6    X2                                                      FEAT155EA  29
                     5160000001 X                 SA6    SCR+1       FOR FAL                                     FEAT155EA  30
           131  5140000000 X                      SA4    CALLTAG     ROUTINE TAG NEEDED BY VEL                   KEY       264
                          0100000000 X            RJ     VEL         VALIDATE ARGUMENT LIST                      KEY       265
           132  0100000000 X                      RJ     FAL         FLUSH ARGUMENT LOAD TURPLES                 KEY       266
           133  0400000107 +                      EQ     CLL25                                                   KEY       267
                                                                                                                 KEY       268
  
  
  
  
                                        **        CRL -  PROCESS CALL STATEMENT RETURNS LIST                     KEY       270
                                        *                                                                        KEY       271
                                        *         ENTRY  (B4) _ COMMA PRECEDING (HOPEFULLY) *RETURNS*            KEY       272
                                        *                (X2) = (ARGCOMA)                                        KEY       273
                                        *                                                                        KEY       274
                                        *         EXIT   *TURPLES* FOR RETURNS LIST PARAMETERS ADDED TO TT.SCR   KEY       275
                                        *                (X2) = (ARGCOMA) UPDATED                                KEY       276
                                        *                                                                        KEY       277
                                        *         USES   A1,A3,A6,A7  X0,X4  B2,B3,B7                            KEY       278
                                        *         NOTE - X5 IS PRESERVED                                         KEY       279
                                        *                                                                        KEY       280
                                        *         CALLS  ISN                                                     KEY       281
                                                                                                                 KEY       282
                                                                                                                 KEY       283
           134  0400400134 +             CRL      SUBR               ENTRY/EXIT...                               KEY       284
           135  10655                             BX6    X5                                                      KEY       285
                     5160000213 +                 SA6    SAVEX5      X5 MAY CONTAIN OPERAND NEEDED LATER         KEY       286
                               56141              SA1    B4+B1                                                   KEY       287
           136  66441                             SB4    B4+B1                                                   KEY       288
                     43052                        MX0    LG.VAR*CHAR                                             KEY       289
                          6271777774              SB7    X1-O.VAR                                                KEY       290
           137  11601                             BX6    X0*X1                                                   KEY       291
                     0570000207 +                 NZ     B7,CRLERR   IF NOT LETTER - ERROR                       KEY       292
                               43430              MX4    4*CHAR                                                  KEY       293
           140  11441                             BX4    X4*X1                                                   KEY       294
                     5130001110 +                 SA3    =0LRETU                                                 KEY       295
                               37443              IX4    X4-X3                                                   KEY       296
           141  0314000207 +                      NZ     X4,CRLERR   IF FIRST 4 LETTERS NOT *RETU*               KEY       297
                          5130001111 +            SA3    =0LRETURNS                                              KEY       298
           142  37463                             IX4    X6-X3                                                   KEY       299
                     0304000144 +                 ZR     X4,CRL10    IF *RETURNS*                                KEY       300
           143  6170000000 X                      WARN   E.AC9                                                   KEY       301
           144  6170000000 X             CRL10    ANSI   E.ANS                                                   KEY       302
           145  56141                             SA1    B4+B1                                                   KEY       303
                     66441                        SB4    B4+B1                                                   KEY       304
                          7241777767              SX4    X1-O.(                                                  KEY       305
           146  0314000000 X                      NZ     X4,E.AP     IF NO *(* - ERROR                           KEY       306
                          43500                   MX5    0           BOTH ARGS DUMMY FOR -0 WORD TURPLE          KEY       307
           147  6130000000 X                      SB3    CALLOP                                                  KEY       308
                          67303                   SB3    -B3                                                     KEY       309
           150  5110000000 X                      SA1    TT.SCR                                                  KEY       310
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     8
                                                                      CERN
  
                          0100001037 +            RJ     EMT         O=ARG TREATS THIS ONE SPECIAL               KEY       311
           151  73621                             SX6    X2+B1       UPDATE ARGCOMA VALUE                        KEY       312
                     5160000000 X                 SA6    ARGCOMA                                                 KEY       313
                               66441              =B4    B4+1                                                    KEY       314
           152  56140                    CRL20    SA1    B4                                                      KEY       315
                     43036                        MX0    LG.STN*CHAR                                             KEY       316
                          6271777775              SB7    X1-O.CONS                                               KEY       317
           153  11601                             BX6    X0*X1                                                   KEY       318
                     5160000000 X                 SA6    FILL.                                                   KEY       319
           154  0470000162 +                      ZR     B7,CRL30    IF DIGIT                                    KEY       320
                          43052                   MX0    L.CDPC                                                  FCC1096     9
           155  5221000000 X                      SA2    X1+CHARMAP                                              FCC1096    10
                          0312000157 +            NZ     X2,CRL21    IF NOT VARIABLE                             FCC1096    11
           156  22201                             LX2    X1                                                      FCC1096    12
           157  11620                    CRL21    BX6    X2*X0                                                   FCC1096    13
                     5160000000 X                 SA6    FILL.                                                   FCC1096    14
           160  6170000000 X                      FATAL  E.CL2       RETURNS ARG MUST BE NUMERIC                 KEY       321
           161  0400000170 +                      EQ     CRL40                                                   KEY       322
                                                                                                                 KEY       323
           162  5110000001               CRL30    SA1    CR.CALL                                                 KEY       324
                          10711                   BX7    X1                                                      KEY       325
           163  5170000000 X                      SA7    REFNUM                                                  KEY       326
                          6120000201              =B2    M.SNLAB+M.SNREF                                         KEY       327
           164  0100000000 X                      RJ     ISN         IDENTIFY STATEMENT NUMBER                   KEY       328
           165  10566                             BX5    X6          STATEMENT NUMBER TAG                        KEY       329
                     43400                        MX4    0           1ST OPERAND = DUMMY                         KEY       330
                          6130000000 X            SB3    CALLOP                                                  KEY       331
           166  67303                             SB3    -B3                                                     KEY       332
                     5110000000 X                 SA1    TT.SCR                                                  KEY       333
           167  0100001037 +                      RJ     EMT                                                     KEY       334
           170  5120000000 X             CRL40    SA2    ARGCOMA                                                 KEY       335
                          73621                   SX6    X2+B1       UPDATE ARGCOMA                              KEY       336
           171  5160000000 X                      SA6    ARGCOMA                                                 KEY       337
                          56341                   =A3    B4+1                                                    KEY       338
           172  0303000000 X                      ZR     X3,E.MR1    IF PREMATURE *EOS*                          KEY       339
                          54131                   SA1    A3+B1                                                   KEY       340
           173  7243777764                        SX4    X3-O.COMMA                                              KEY       341
                          64431                   SB4    A3+B1                                                   KEY       342
           174  0304000152 +                      ZR     X4,CRL20    IF *,* LOOP ON NEXT ARGUMENT                KEY       343
                          7243777766              SX4    X3-O.)                                                  KEY       344
           175  0314000000 X                      NZ     X4,E.AP1    IF NO *)* - ERROR                           KEY       345
                          0301000177 +            ZR     X1,CRL50    IF *EOS*                                    KEY       346
           176  6170000000 X                      WARN   E.AC8                                                   KEY       347
           177  5150000213 +             CRL50    SA5    SAVEX5                                                  KEY       348
                          5120000000 X            SA2    ARGCOMA                                                 KEY       349
           200  6222777700                        SB2    X2-MAX.SARG                                             KEY       350
                          0602000134 +            LE     B2,EXIT.    IF DOESNT EXCEED COMPILER LIMIT             KEY       351
           201  5140000000 X                      SA4    CALLTAG                                                 KEY       352
                          21452                   AX4    P.2TAG                                                  KEY       353
           202  5110000000 X                      SA1    TS.SYM                                                  KEY       354
                          6224577777              SB2    X4-C.SYM                                                KEY       355
           203  53412                             SA4    X1+B2                                                   KEY       356
                     55141                        =A1    A4-1                                                    KEY       357
                          43052                   MX0    L.SYM                                                   KEY       358
                               11601              BX6    X0*X1                                                   KEY       359
           204  5160000000 X                      SA6    =XFILL.3                                                KEY       360
                          6170000000 X            FATAL  =XE.SU8                                                 KEY       361
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE     9
                                                                      CERN
  
           206  0400000134 +                      EQ     EXIT.                                                   KEY       362
                                                                                                                 KEY       363
                                        *         IF NOT RETURNS FOLLOWING *ARGUMENT LIST* *,*                   KEY       364
                                                                                                                 KEY       365
           207  5221000000 X             CRLERR   SA2    X1+=XCHARMAP                                            KEY       366
                          0312000211 +            NZ     X2,CRLERR1  IF NOT VAR OR CONS                          KEY       367
           210  22201                             LX2    X1                                                      KEY       368
           211  43052                    CRLERR1  MX0    L.CDPC                                                  KEY       369
                     11602                        BX6    X0*X2                                                   KEY       370
                          5160000000 X            SA6    FILL.                                                   KEY       371
           212  0400000000 X                      EQ     E.AC5                                                   KEY       372
                                                                                                                 KEY       373
           213  00000000000000000000     SAVEX5   DATA   0                                                       KEY       374
  
  
  
  
  
  
  
  
                                        **        CON -  PROCESS "CONTINUE" STATEMENT.                           KEY       377
                                        *         EXIT   TO MASTER LOOP.                                         KEY       378
                                                                                                                 KEY       379
                                                                                                                 KEY       380
           214  05000000000000111625              HEREIF CONTINUE                                                KEY       381
                                                                                                                 KEY       382
           215  0100000000 X                      RJ     MXP         MARK EXTERNAL PROCESS                       KEY       383
           216  56240                             =A2    B4                                                      KEY       384
                     5140000000 X                 SA4    STN                                                     KEY       385
           217  0302000221 +                      ZR     X2,CON      IF E.O.S.                                   KEY       386
                          6170000000 X            WARN    =XE.XC     GARBAGE IGNORED AT E.O.S.                   KEY       387
           221  5120000000 X             CON      SA2    INIF                                                    FCC1636X    9
                          0302000224 +            ZR     X2,CON15    IF *CONTINUE* NOT OBJECT OF *IF*            FCC1636X   10
           222  6170000000 X                      NOTE   E.GO2A      IF RESULTS IN A TRANSFER TO NEXT LINE       FCC1636X   11
           223  0400000000 X                      EQ     PSN                                                     FCC1636X   12
                                                                                                                 FCC1636X   13
           224  0304000000 X             CON15    ZR     X4,E.CT     IF NO STATEMENT NUMBER                      FCC1636X   14
                          0400000000 X            EQ     PSN         CONTINUE                                    KEY       389
  
  
  
  
                                        **        END1 - START OF END STMNT                                      KEY       391
                                        *         EXIT   TO *END* PROCESSING  (PASS 2).                          KEY       392
                                                                                                                 KEY       393
                                                                                                                 KEY       394
           225  00000000000000000000              HEREIF END                                                     KEY       395
                                                                                                                 KEY       396
           226  5110000000 X                      SA1    NOLIST                                                  FEAT126B  915
                          5130000000 X            SA3    LOP=M                                                   FEAT126B  916
           227  5140000000 X                      SA4    LOP=R                                                   FEAT126B  917
                          0331000232 +            MI     X1,END1     IF IN *LIST,ALL* MODE AT END LINE TIME      FEAT126B  918
                                                                                                                 FEAT126B  919
                                        *         HERE IF IN *LIST,NONE* MODE AT END LINE TIME.                  FEAT126B  920
                                                                                                                 FEAT126B  921
           230  43600                             MX6    0                                                       FEAT126B  922
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    10
                                                                      END1
  
                     5063000000                   SA6    A3+         SET TO *NO REF MAP*                         FEAT126B  923
           231  5064000000                        SA6    A4+         SET TO *NO REF MAP*                         FEAT126B  924
                                                                                                                 FEAT126B  925
                                        *         CHECK FOR LABELLED END.                                        FEAT126B  926
                                                                                                                 FEAT126B  927
           232  5120000000 X             END1     SA2    SB.STNL                                                 FEAT126B  928
                          0302000235 +            ZR     X2,END1A    IF NO STATEMENT LABEL                       KEY       398
           233  10622                             BX6    X2                                                      KEY       399
                     5160000000 X                 SA6    FILL.                                                   KEY       400
           234  6170000000 X                      WARN   E.SN16      ** STATEMENT LABEL IGNORED **               KEY       401
                                                                                                                 KEY       402
           235  5050000003               END1A    SA5    "SB.KEY"                                                KEY       403
                          0335000000 X            MI     X5,E.ME     IF GENERATED END LINE  (RETURN -1B)         KEY       404
                                                                                                                 KEY       405
           236  5120000000 X             END1B    SA2    MULS                                                    KEY       406
                          13666                   BX6    0                                                       KEY       407
                               54620              SA6    A2                                                      KEY       408
           237  0312000000 X                      NZ     X2,E.M$2    IF MULT STATMT ON LINE (RETURN -1C)         KEY       409
                                                                                                                 KEY       410
           240  56140                    END1C    SA1    B4                                                      KEY       411
                     0301000242 +                 ZR     X1,END1E    IF END OF STATEMENT                         KEY       412
           241  6170000000 X                      WARN   E.XC        ** TRAILING GARBAGE IGNORED **              KEY       413
                                                                                                                 KEY       414
           242  5150000000 X             END1E    SA5    MOD                                                     KEY       415
                          5110000000 X            SA1    FLOW                                                    KEY       416
           243  20563                             IFBIT  X5,PBLK,END IF *BLOCK DATA*                             FEAT155G  345
           244  0311000000 X                      NZ     X1,END      IF NO FLOW INTO *END* STATEMENT             FEAT155G  346
                          5110000000 X            SA1    NOPATH                                                  FCC1638X    7
           245  0311000000 X                      NZ     X1,END      IF LAST STATEMENT WAS A TRANSFER OF CONTROL FCC1638X    8
                          6170000000 X            ANSI   E.AES       NON ANSI USAGE.                             KEY       419
           247  20571                             IFBIT  X5,PPRO/PBLK,END1D              IF MAIN PROGRAM         KEY       420
           250  0400000000 X                      EQ     END                                                     FEAT155G  347
                                                                                                                 KEY       422
           251  0100001030 +             END1D    RJ     SER         COMPILE END INSTRUCTIONS                    KEY       423
           252  0400000000 X                      EQ     END         RETURN                                      KEY       424
  
  
  
  
                                        **        FCT -  PROCESS "FUNCTION" STATEMENT.                           KEY       428
                                        *         EXIT   TO MASTER LOOP.                                         KEY       429
                                        *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                    KEY       430
                                        *                2.  PSA = PROCESS ANY FORMAL PARAMETER LIST.            KEY       431
                                        *                3.  TRV = ENTER *VALUE.* INTO SYMBOL TABLE.             KEY       432
                                                                                                                 KEY       433
                                                                                                                 KEY       434
           253  16000000000000241117              HEREIF FUNCTION                                                KEY       435
                                                                                                                 KEY       436
           254  56240                             SA2    B4                                                      KEY       437
                     5110000000 X                 SA1    ETF                                                     KEY       438
                               10622              BX6    X2                                                      KEY       439
           255  0311000261 +                      NZ     X1,FCT2     IF FUNCTION EXPLICITLY TYPED                KEY       440
                          6272777774              SB7    X2-3                                                    KEY       441
           256  0570000261 +                      NZ     B7,FCT2     IF NOT VARIABLE,BYPASS STY                  KEY       442
                          43066                   MX0    -CHAR                                                   KEY       443
                               20206              LX2    CHAR                                                    KEY       444
           257  15220                             BX2    -X0*X2                                                  KEY       445
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    11
                                                                      FCT 
  
                     6272777744                   SB7    X2-1R0                                                  KEY       446
           260  0670000261 +                      PL     B7,FCT2     IF FIRST CHARACTER NOT LETTER               KEY       447
                          0100000000 X            RJ     STY                                                     KEY       448
           261  7261001000               FCT2     SX6    X1+M.PFNC   SUBPROGRAM MODE                             KEY       449
                          5140001112 +            SA4    =8AFUNCTION                                             FCC1328X  540
           262  0100000000 X                      RJ     DCM         DISPLAY COMPILING MESSAGE                   KEY       451
           263  0100000000 X                      RJ     PSA         PROCESS SUBPROGRAM ARGUMENTS                KEY       452
           264  6140000271 +                      SB4    SVALUE.                                                 KEY       453
                          0100000000 X            RJ     TRV         ENTER THE FUNCTION-VALUE CELL               KEY       454
           265  5130000000 X                      SA3    MOD                                                     KEY       455
                          43071                   MX0    -L.MODE                                                 KEY       456
                               11606              BX6    X0*X6                                                   KEY       457
           266  5120000000 X                      SA2    TS.SYM                                                  KEY       458
                          15330                   BX3    -X0*X3                                                  KEY       459
                               36663              IX6    X6+X3       INSURE MODE IS SAME AS MAIN ENTRY           KEY       460
           267  53627                             SA6    X2+B7       RESET TAG IN SYMBOL TABLE.                  KEY       461
                     76770                        SX7    B7                                                      KEY       462
                          5170000000 X            SA7    VALUE.                                                  KEY       463
           270  0400000000 X                      EQ     PSP                                                     KEY       464
                                                                                                                 KEY       465
           271  26011425055700000003     SVALUE.  VFD    42/0LVALUE.,18/O.VAR                                    KEY       466
  
  
  
  
                                        **        LCC -  HANDLE EMBEDDED LOADER CONTROL CARDS.                   KEY       468
                                        *                                                                        KEY       469
                                        *         DIRECTIVES CURRENTLY KNOWN ARE --                              KEY       470
                                        *                "OVERLAY"                                               KEY       471
                                        *                "LDSET"                                                 KEY       472
                                        *                                                                        KEY       473
                                        *         EXIT   TO RUN.X, SO THAT A FOLLOWING *IDENT* MAY BE DETECTED.  KEY       474
                                                                                                                 KEY       475
                                                                                                                 KEY       476
           272  00000000000000240000              HEREIF LDSET                                                   KEY       477
                                                                                                                 KEY       478
           273  5130001113 +                      SA3    =5RLDSET                                                KEY       479
                          6120000036              SB2    5*CHAR                                                  KEY       480
           274  0400000277 +                      EQ     LCC                                                     KEY       481
                                                                                                                 KEY       482
                                                                                                                 KEY       483
           275  00000000000000140131              HEREIF OVERLAY                                                 KEY       484
           276  5130001114 +                      SA3    =7ROVERLAY                                              KEY       485
                          6120000022              SB2    3*CHAR                                                  KEY       486
                                                                                                                 KEY       487
           277  56240                    LCC      SA2    B4                                                      KEY       488
                     10733                        BX7    X3                                                      FCC1097    14
                          5170000000 X            SA7    =XLDRFLG                                                FCC1097    15
           300  5110000000 X                      =A1    =XFV.LGO                                                FCC1373     6
                          0301000000 X            ZR     X1,RUN5     IF BINARY OUTPUT SUPPRESSED (B=0)           FCC1373     7
           301  43066                             MX0    -CHAR                                                   KEY       489
                     6272777767                   SB7    X2-O.(                                                  KEY       490
           302  0302000000 X                      ZR     X2,E.OV     ** WARN -- NULL LCC IS IGNORED **           KEY       491
                          5160000000 X            SA6    SCR                                                     KEY       492
           303  0570000000 X                      NZ     B7,E.OV1    ** FATAL - LCC MISSING BEGINNING LPAREN **  KEY       493
                          10633                   BX6    X3                                                      KEY       494
                                                                                                                 KEY       495
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    12
                                                                      LCC 
  
           304  5212000000 X             LCC2     SA1    X2+CHARMAP                                              KEY       496
                          0311000306 +            NZ     X1,LCC3     IF NOT *SYMBOL*                             KEY       497
           305  11102                             BX1    X0*X2       USE *SB* CHARACTERS                         KEY       498
                                                                                                                 KEY       499
           306  20106                    LCC3     LX1    CHAR                                                    KEY       500
                     6100000000                   SB0    0                                                       KEY       501
                               15310              BX3    -X0*X1                                                  KEY       502
           307  20606                    LCC35    LX6    CHAR                                                    KEY       503
                     6122777771                   SB2    B2-CHAR                                                 KEY       504
                               20106              LX1    CHAR                                                    KEY       505
           310  36663                             IX6    X6+X3                                                   KEY       506
                     15310                        BX3    -X0*X1      ISOLATE NEXT CHARACTER                      KEY       507
                          0520000312 +            NZ     B2,LCC4     IF WORD NOT FULL                            KEY       508
           311  54661                             =A6    A6+1                                                    KEY       509
                     6120000074                   SB2    10*CHAR                                                 KEY       510
                               13666              BX6    0                                                       KEY       511
           312  0313000307 +             LCC4     NZ     X3,LCC35    IF MORE CHARACTERS                          KEY       512
                          54221                   =A2    A2+1                                                    KEY       513
           313  0312000304 +                      NZ     X2,LCC2     IF NOT *EOS*                                KEY       514
                          22626                   LX6    X6,B2       LEFT JUSTIFY                                KEY       515
                               13777              BX7    0                                                       KEY       516
           314  54661                             =A6    A6+1                                                    KEY       517
                     54761                        =A7    A6+1        INSURE END-OF-LINE                          KEY       518
                                                                                                                 KEY       519
                                         .CMLOD   IFNE   .CMLOD      FORCE LGO TO DISK                           KEY       520
                                                  SA3    LGOIO                                                   KEY       521
                                                  MI     X3,LCC6     IF BINARY ON DISK                           KEY       522
                                                  MX6    -1                                                      KEY       523
                                                  SA6    A3          INDICATE LGO ON DISK                        KEY       524
                                                  NOTE   E.OV2       ** LCC STOPS CMLOD **                       KEY       525
                                                  SA1    T.LGO                                                   KEY       526
                                                  SA4    T=LGO                                                   KEY       527
                                                  WRITEW BO,X1,X4                                                KEY       528
                                         .CMLOD   ENDIF                                                          KEY       529
                                                                                                                 KEY       530
                                                                                                                 KEY       531
                                                  IFEQ   CP#RM,7,2                                               KEY       532
                                         LCC6     BSS    0                                                       KEY       533
                                                  SKIP   1                                                       KEY       534
           315  7120000000 X             LCC6     RECALL F.LGO                                                   KEY       535
                                                                                                                 KEY       536
           316  6170000001 X                      SB7    SCR+1                                                   KEY       537
                          75177                   SX1    A7-B7                                                   KEY       538
                               76040              SX0    B4          SAVE (B4)                                   KEY       539
           317  6160000001 X                      WRITEC F.LGO,SCR+1,X1                                          KEY       540
           321  7120000000 X                      WRITER F.LGO,RCL                                               KEY       541
           323  63400                             SB4    X0          RESTORE (B4)                                KEY       542
                     5120000000 X                 SA2    SB.STNL                                                 KEY       543
           324  0302000327 +                      ZR     X2,LCC64    IF NO STATEMENT LABEL                       KEY       544
                          10622                   BX6    X2                                                      KEY       545
           325  5160000000 X                      SA6    FILL.                                                   KEY       546
                          6170000000 X            WARN   E.SN16      ** STATEMENT LABEL IGNORED **               KEY       547
                                                                                                                 KEY       548
           327  5110000000 X             LCC64    SA1    CCNT                                                    KEY       549
                          6271777776              SB7    X1-1                                                    KEY       550
           330  0470000000 X                      ZR     B7,E.OV3    IF CONTINUED     (RETURN  LCC66)            KEY       551
                                                                                                                 KEY       552
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    13
                                                                      LCC 
  
           331  5120000000 X             LCC66    SA2    =XT.DLBUF                                               FCCA442     6
                          7212000001              SX1    X2+1        FWA CARD TO PRINT (SEE FORMAT OF T.DLBUF)   FCCA442     7
           332  53320                             SA3    X2                                                      FCCA442     8
                     7223777775                   SX2    X3-2        LEN OF CARD TO PRINT IN WORDS               FCCA442     9
           333  5140000000 X                      SA4    =XCP.LSTF                                               FCC2159     6
                          0304000335 +            ZR     X4,NOTPRT   IF L = 0                                    FCC2159     7
           334  0100000000 X                      PLINE  X1,X2       PRINT CARD                                  FCCA442    10
           335  5110000000 X             NOTPRT   SA1    MULS                                                    FCC2159     8
                          0301000000 X            ZR     X1,RUN5     IF NO $ STATEMENT SEPARATOR                 FCC1410     9
           336  13666                             BX6    0                                                       KEY       555
                     54610                        SA6    A1                                                      KEY       556
                          0400000000 X            EQ     E.M$3       ** MULTIPLE STATEMENT IGNORED AFTER LCC **  KEY       557
  
  
  
  
                                        **        NAM -  PROCESS "NAMELIST" SPECIFICATION.                       KEY       561
                                        *                                                                        KEY       562
                                        *         TRANSLATES NAMELIST DECLARATIONS INTO TP.NLST, IN A FORM       KEY       563
                                        *                CONVENIENT FOR RELOCATION PROCESSING.                   KEY       564
                                        *                                                                        KEY       565
                                        *         EXIT   TO MASTER LOOP.                                         KEY       566
                                        *                                                                        KEY       567
                                        *         NAMELIST [ /<GROUP-NAME>/ <ITEM> [,<ITEM>] ]                   KEY       568
                                        *                                                                        KEY       569
                                        *         [...]  INDICATES MAY BE REPEATED.                              KEY       570
                                        *         <GROUP-NAME> #  THE NAME OF THIS NAME-LIST GROUP.  IT MAY NOT  KEY       571
                                        *                DUPLICATE AN ENTRY ALREADY IN SYMBOL TABLE.             KEY       572
                                        *         <ITEM> #  <SIMPLE-VARIABLE> OR <ARRAY>.                        KEY       573
                                                                                                                 KEY       574
                                                                                                                 KEY       575
           337  24000000000000141123              HEREIF NAMELIST                                                KEY       576
                                                                                                                 KEY       577
           340  6170000000 X                      WARN   E.ANS       NON-ANSI USE - WARNING                      KEY       578
           341  6144000001                        SB4    B4+1        POINT TO GROUP-NAME                         KEY       579
                                                                                                                 KEY       580
                                        **        NAM1 - BEGIN PROCESSING GROUP-NAME.                            KEY       581
                                        *         ENTRY  B4 _ TO GROUP-NAME                                      KEY       582
                                        *         GROUP-NAME WILL BE ENTERED INTO TS.NAM, AND INTO TT.NAM WITH   KEY       583
                                        *                *NLST* BIT ON AND *ARR* FIELD POINTING TO ORDINAL OF    KEY       584
                                        *                THE FIRST TP.FMT ENTRY TO BE MADE FOR THIS GROUP.       KEY       585
                                                                                                                 KEY       586
                                                                                                                 KEY       587
           342  57141                    NAM1     SA1    B4-B1       -1  EXPECT SLASH                            KEY       588
                     56240                        SA2    B4          +0  REQUIRE GROUP-NAME                      KEY       589
                          56341                   SA3    B4+B1       +1  EXPECT SLASH                            KEY       590
           343  7241777770                        SX4    X1-O.SLASH                                              KEY       591
                          0314000000 X            NZ     X4,E.LN     IF STNTAX ERROR                             KEY       592
           344  0302000000 X                      ZR     X2,E.MR2    IF *EOS* - ERROR                            KEY       593
                          43052                   MX0    L.SYM                                                   KEY       594
                               11602              BX6    X0*X2                                                   KEY       595
           345  6272777774                        =B7    X2-O.VAR                                                KEY       596
                          0570000000 X            NZ     B7,E.LN2    IF NO LETTER, ERR..                         KEY       597
           346  6273777774                        SB7    X3-O.VAR                                                KEY       598
                          0570000351 +            NZ     B7,NAM15    IF NOT LONG NAME                            KEY       599
           347  0100000000 X                      RJ     =XTLV       TRUNCATE NAME                               KEY       600
           350  56341                             =A3    B4+1                                                    KEY       601
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    14
                                                                      NAM 
  
           351  7243777770               NAM15    SX4    X3-O.SLASH                                              KEY       602
                          0314000000 X            NZ     X4,E.LN1    IF NO */* AFTER NAME                        KEY       603
           352  5110000000 X                      SCAN   TS.SYM,SSY                                              KEY       604
           353  0670000000 X                      PL     B7,E.LN3    IF ALREADY DEFINED, ERR..                   KEY       605
                          5130000000 X            SA3    TP=NLST                                                 KEY       606
           354  7140011016                        =X4    M.NLST+M.DEF+M.NAML+M.VAR                               KEY       607
                          20330                   LX3    P.PNT                                                   KEY       608
                               12734              BX7    X3+X4                                                   KEY       609
           355  6144000002                        SB4    B4+2        B4 NOW POINTS TO FIRST VARIABLE IN LIST     KEY       610
                          0100000000 X            ADSYM  A1                                                      KEY       611
           356  55361                             =A3    A6-1        RE-LOAD GROUP NAME                          KEY       612
                     73730                        SX7    X3                                                      KEY       613
                          13637                   BX6    X3-X7                                                   KEY       614
           357  5110000000 X                      ADDWD  TP.NLST     PUT GROUP-NAME IN THE NAMELIST              KEY       615
                                                                                                                 KEY       616
                                        **        NAM2 - PROCESS EACH ITEM IN THE GROUP.                         KEY       617
                                        *         ENTRY  B4 _ VARIABLE NAME TAG                                  KEY       618
                                                                                                                 KEY       619
                                                                                                                 KEY       620
           360  56140                    NAM2     SA1    B4                                                      KEY       621
                     0301000000 X                 ZR     X1,=XE.MR3  IF *EOS* - FATAL ERROR                      KEY       622
                               73210              SX2    X1                                                      KEY       623
           361  13512                             BX5    X1-X2       ISOLATE AND SAVE NAME                       KEY       624
                     0100000000 X                 RJ     TRV         TRANSLATE VARIABLE                          KEY       625
           362  5120000000 X             NAM20    SA2    TS.SYM                                                  FCC0499    27
                          5140000000 X            SA4    ENTRY.                                                  FCC0499    28
           363  63240                             SB2    X4                                                      FCC0499    29
                     67227                        SB2    B2-B7                                                   FCC0499    30
                          0520000367 +            NZ     B2,NAM20A   IF NOT FUNCTION NAME                        FCC0499    31
           364  5140000000 X                      SA4    VALUE.                                                  FCC0499    32
                          63740                   SB7    X4          RESET WITH VALUE. ORDINAL                   FCC0499    33
                               36442              IX4    X4+X2                                                   FCC0499    34
           365  53440                             SA4    X4                                                      FCC0499    35
                     10644                        BX6    X4          RESET WITH VALUE. SYMTAB ENTRY              FCC0499    36
                          43052                   MX0    L.SYM                                                   FCC0499    37
           366  5150000271 +                      SA5    SVALUE.                                                 FCC0499    38
                          11505                   BX5    X0*X5       USE VALUE.                                  FCC0499    39
           367  7100000010               NAM20A   SX0    M.DEF                                                   FCC0499    40
                          12606                   BX6    X0+X6                                                   FCC0499    41
                               53627              SA6    X2+B7       SET DEFINED BIT ON                          FCC0499    42
           370  10766                             BX7    X6                                                      FCC1434X   25
                     20764                        IFBIT  X7,-LEV,NAM20B    IF NOT LEVEL                          FCC1434X   26
           371  20737                             LX7    P.LEV+1-P.LEVN    RIGHT JUSTIFY LEVEL NUMBER            FCC1434X   27
                     43072                        MX0    -L.LEVN                                                 FCC1434X   28
                          15370                   BX3    -X0*X7      (X3) = LEVEL NUMBER                         FCC1434X   29
           372  7233777774                        SX3    X3-3                                                    FCC1434X   30
                          0313000375 +            NZ     X3,NAM20B   IF NOT LEVEL 3                              FCC1434X   31
           373  6170000000 X                      FATAL  =XE.LV11                                                FCC1434X   32
           374  0400000421 +                      EQ     NAM3                                                    FCC1434X   33
                                                                                                                 FCC1434X   34
           375  43066                    NAM20B   MX0    -L.FPNO                                                 FCC1434X   35
                     20652                        LX6    -P.FPNO                                                 KEY       627
                          5120000000 X            SA2    TP.DIM                                                  KEY       628
           376  15760                             BX7    -X0*X6      FORMAL PARAMETER NO., IF ANY                KEY       629
                     20666                        LX6    -P.PNT+P.FPNO                                           KEY       630
                          5170000425 +            SA7    NAMFP                                                   KEY       631
           377  43057                             MX0    -L.PNT                                                  KEY       632
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    15
                                                                      NAM 
  
                     15360                        BX3    -X0*X6      ISOLATE TP.DIM ORDINAL                      KEY       633
                          63630                   SB6    X3                                                      KEY       634
                               43006              MX0    L.NDIM                                                  KEY       635
           400  53326                             SA3    X2+B6       FETCH 1ST DIM WORD                          KEY       636
                     20617                        SBIT   X6,ARY/PNT-1                                            KEY       637
                          11203                   BX2    X0*X3       ISOLATE NUMBER OF DIMS                      KEY       638
                               36115              IX1    X1+X5                                                   KEY       639
           401  20336                             IFBIT  X3,VDIM,E.LN4                                           KEY       640
                               20206              LX2    -P.NDIM                                                 KEY       641
           402  21674                             AX6    -0                                                      KEY       642
                     66570                        SB5    B7          SAVE (B5) = TAG ORDINAL                     KEY       643
                          66661                   =B6    B6+1                                                    KEY       644
                               23012              AX0    X2,B1                                                   KEY       645
           403  11262                             BX2    X6*X2                                                   KEY       646
                     5140000000 X                 SA4    TP=NLST                                                 KEY       647
                               20206              LX2    6           **** QQ SHIFT COUNT                         KEY       648
           404  12512                             BX5    X1+X2                                                   KEY       649
                     5110000000 X                 ALLOC  TP.NLST,X0+2                                            KEY       650
           406  5120000000 X                      SA2    TP.DIM                                                  KEY       651
                          36314                   IX3    X1+X4                                                   KEY       652
                               10655              BX6    X5                                                      KEY       653
           407  73550                             SX5    X5                                                      KEY       654
                     53426                        SA4    X2+B6       FETCH 2ND DIM WORD                          KEY       655
                          43700                   MX7    0                                                       KEY       656
                               53630              SA6    X3          STORE NAME/NDIM/TYPE WORD                   KEY       657
           410  5110000425 +                      SA1    NAMFP                                                   KEY       658
                          21506                   AX5    6           ISOLATE NUMBER OF DIMS                      KEY       659
                               54710              SA7    A1          CLEAR FOR NEXT ITEM                         KEY       660
           411  0311000413 +                      NZ     X1,NAM21    IF FORMAL PARAMETER                         KEY       661
                          7175200000              SX7    B5+C.VAR                                                KEY       662
           412  0400000415 +                      EQ     NAM22                                                   KEY       663
                                                                                                                 KEY       664
           413  43701                    NAM21    MX7    1                                                       KEY       665
                     7211777776                   =X1    X1-1        F.P.ORD                                     KEY       666
                               20735              LX7    28+1        INDICATE FP                                 KEY       667
           414  12771                             BX7    X7+X1       31/0,1/1,28/F.P.ORD                         KEY       668
                                                                                                                 KEY       669
           415  0305000416 +             NAM22    ZR     X5,NAM23    IF SIMPLE VAR.                              KEY       670
                          36774                   IX7    X7+X4                                                   KEY       671
           416  54761                    NAM23    =A7    A6+1        STORE ADDRESS (+ 1ST DIM) WORD              KEY       672
                     21501                        AX5    1           = NDIMS / 2  =  NUMBER OF DIM WORDS TO COPY KEY       673
                          63250                   =B2    X5                                                      KEY       674
                                                                                                                 KEY       675
           417  54441                    NAM25    =A4    A4+1                                                    KEY       676
                     10744                        BX7    X4                                                      KEY       677
                          67221                   =B2    B2-1                                                    KEY       678
                               54771              =A7    A7+1                                                    KEY       679
           420  0620000417 +                      PL     B2,NAM25    IF REST OF DIMS NOT YET XFERED              KEY       680
                                                                                                                 KEY       681
                                                                                                                 KEY       682
                                        **        NAM3 - NOW CHECK FOR SEPARATOR, AND QUIT OR GO BACK FOR MORE.  KEY       683
                                        *         IF SEPARATOR IS NOT A COMMA, WE ENTER A ZERO WORD TO INDICATE  KEY       684
                                        *                END-OF-GROUP, AND CHECK FOR *EOS*                       KEY       685
                                        *                IF *EOS* WE ARE THRU.                                   KEY       686
                                        *         IF SEPARATOR IS A COMMA, WE RETURN TO *NAM2*.                  KEY       687
                                                                                                                 KEY       688
                                                                                                                 KEY       689
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    16
                                                                      NAM 
  
           421  56441                    NAM3     SA4    B4+B1       FETCH NEXT SEPARATOR                        KEY       690
                     64441                        SB4    A4+B1       POINT TO NEXT ITEM                          KEY       691
                          7224777764              SX2    X4-O.COMMA                                              KEY       692
           422  0302000360 +                      ZR     X2,NAM2     IF COMMA                                    KEY       693
                          13666                   BX6    0                                                       KEY       694
           423  5110000000 X                      ADDWD  TP.NLST     ADD END-OF-GROUP MARK                       KEY       695
           424  0314000342 +                      NZ     X4,NAM1     CONTINUE WITH NEXT GROUP                    KEY       696
                          0400000000 X            EQ     PSP                                                     KEY       697
                                                                                                                 KEY       698
           425  00000000000000000000     NAMFP    DATA   0           FORMAL PARAMETER NO., IF ANY                KEY       699
  
  
  
  
                                        **        NTR -  PROCESS "ENTRY" STATEMENT.                              KEY       701
                                        *         EXIT   TO MASTER LOOP.                                         KEY       702
                                                                                                                 KEY       703
                                                                                                                 KEY       704
           426  00000000000000310000              HEREIF ENTRY                                                   KEY       705
                                                                                                                 KEY       706
           427  6170000000 X                      ANSI   E.ANS       NON ANSI STATEMENT.                         KEY       707
           430  13000                             DRITE  DEACTIVATE                                              KEY       708
           431  5120000000 X                      SA2    MOD                                                     KEY       709
                          20260                   IFBIT  X2,PPRO,E.PT1                                           KEY       710
                          13666                   BX6    0                                                       KEY       711
           433  5160000000 X                      SA6    NOPATH      RESET STATEMENT-NO.-REQD .FLAG              KEY       712
                          5110000000 X            SA1    =XSTAGE                                                 FCC0780     7
           434  7120000000 X                      SX2    =XCPM=ASF                                               FEAT155GA  12
                          37112                   IX1    X1-X2                                                   FCC0780     9
           435  0331000440 +                      MI     X1,NTR14    IF IN DECLARATIVE PROCESSING                FCC0780    10
                          5120000000 X            SA2    TP=DO                                                   KEY       713
           436  0302000440 +                      ZR     X2,NTR14    IF NOT INSIDE A *DO*                        KEY       714
                          6170000000 X            WARN   E.PT2                                                   KEY       715
           440  56240                    NTR14    SA2    B4                                                      KEY       716
                     56141                        SA1    B4+B1                                                   KEY       717
                          0302000000 X            ZR     X2,E.PT3    IF *EOS*                                    KEY       718
           441  6272777774                        SB7    X2-O.VAR                                                KEY       719
                          0570000000 X            NZ     B7,=XE.PT4  IF NOT VARIABLE                             KEY       720
           442  43052                             MX0    L.SYM                                                   KEY       721
                     11602                        BX6    X0*X2                                                   KEY       722
                          5160000000 X            SA6    FILL.                                                   KEY       723
           443  0301000445 +                      ZR     X1,NTR2     IF NOT EXTRA GARBAGE                        KEY       724
                          66441                   =B4    B4+1                                                    FEAT155GA  13
           444  6170000000 X                      WARN   E.XC        NONSENSE IGNORED AFTER NAME                 KEY       725
           445  5110000000 X             NTR2     SCAN   TS.SYM,SSY  FIND WHERE TO PUT *SYMBOL/TAG*              KEY       726
           446  0670000000 X                      PL     B7,E.PT     IF ALREADY DEFINED, ERR..                   KEY       727
                          7170020050              =X7    M.ENT+M.DEF+M.NVAR                                      KEY       728
           447  10466                             BX4    X6                                                      KEY       729
                     0100000000 X                 ADSYM  A1          ADD *SYMBOL/TAG* TO TABLE.                  KEY       730
           450  12604                             BX6    X0+X4                                                   KEY       731
                     7250200001                   SX5    X0+C.VAR+1                                              KEY       732
           451  5110000000 X                      ADDWD  TS.ENT                                                  KEY       733
           452  10255                             BX2    X5                                                      KEY       734
                     20252                        LX2    P.TAG                                                   KEY       735
                          10622                   ADDREF X2,CR.NTR                                               KEY       736
           455  5120000000 X                      SA2    FLOW                                                    KEY       737
                          5110000000 X            SA1    TG.PRO                                                  KEY       738
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    17
                                                                      NTR 
  
           456  13777                             BX7    0                                                       KEY       739
                     73611                        =X6    X1+1                                                    KEY       740
                          54720                   SA7    A2          INDICATE *FLOW* INTO NEXT STATEMENT         KEY       741
                               54610              SA6    A1                                                      KEY       742
           457  5160000000 X                      SA6    INIF        FORCE LABEL AFTER STATEMENT                 KEY       743
                          0312000463 +            NZ     X2,NTR5     IF NO FLOW INTO THIS STATEMENT              KEY       744
           460  7170000004                        CLONG  X6,I.EQ                                                 KEY       745
                                                                                                                 KEY       746
                                        **        NEXT ADD AN ENTRY POINT TURPLE TO PARSED FILE.                 KEY       747
                                        *         FIRST, ISSUE TURPLE TO MOVE RETURN ADDRESS TO EXIT WORD.       KEY       748
                                        *                (1OP) = ENTRY POINT TAG FOR THIS ENTRY POINT            KEY       749
                                        *                (2OP) (UPPER) = TAG OF MAIN ENTRY POINT                 KEY       750
                                        *         ENTRY  (X5) = TAG FOR THIS ENTRY POINT                         KEY       751
           463  5110000000 X             NTR5     SA1    ENTRY.      MAIN ENTRY POINT                            KEY       752
                          10455                   BX4    X5          TAG FOR THIS ENTRY POINT                    KEY       753
                               76710              =X7    1                                                       KEY       754
           464  7251200000                        SX5    X1+C.VAR                                                KEY       755
                          6130000000 X            SB3    O=NTR0                                                  KEY       756
           465  5170000000 X                      SA7    NTRCNT      INDICATE *ENTRY* STATEMENT OCCURRED         KEY       757
                          20552                   LX5    P.2TAG                                                  KEY       758
           466  5110000000 X                      SA1    TT.PAR                                                  KEY       759
                          0100001037 +            RJ     EMT         EMIT O=NTR0 TURPLE                          KEY       760
                                        **        FOR A MACHINE WITH AN INSTRUCTION STACK, IT IS NOW             KEY       761
                                        *         NECESSARY TO VOID THE STACK BECAUSE THE RETURN ADDRESS         KEY       762
                                        *         JUST STORED INTO MAY ALREADY BE IN THE STACK.                  KEY       763
                                        *                (1OP) = LABEL TO USE FOR VOID-STACK-WORD                KEY       764
                                        *                (2OP) = DUMMY                                           KEY       765
                                                                                                                 F7540FTA   11
           467  5110000000 X                      SA1    TG.PRO      LAST CREATED LABEL                          KEY       767
                          6130000000 X            SB3    =XO=VOID                                                KEY       768
           470  73611                             =X6    X1+1                                                    KEY       769
                     43500                        MX5    0           DUMMY SECOND ARGUMENT                       KEY       770
                          54610                   SA6    A1                                                      KEY       771
                               10466              BX4    X6          LABEL TO BE CREATED                         KEY       772
           471  5110000000 X                      SA1    TT.PAR                                                  KEY       773
                          0100001037 +            RJ     EMT         EMIT TURPLE TO VOID STACK                   KEY       774
                                                                                                                 F7540FTA   12
                                        **        LASTLY, ISSUE TURPLE TO JUMP TO INITIALIZATION CODE, IF        KEY       776
                                        *         PARAMETERS ARE PRESENT.                                        KEY       777
                                        *                (1OP) = DUMMY                                           KEY       778
                                        *                (2OP) = TAG OF NEXT STATEMENT                           KEY       779
           472  5110000000 X                      SA1    NARGS                                                   KEY       780
                          0301000000 X            ZR     X1,PSN      IF NO ARGS                                  KEY       781
           473  5150000000 X                      SA5    INIF        TAG OF NEXT STATEMENT                       KEY       782
                          43400                   MX4    0                                                       KEY       783
           474  6130000000 X                      SB3    O=NTRP      ENTRY WITH PARAMETERS                       KEY       784
                          5110000000 X            SA1    TT.PAR                                                  KEY       785
           475  0100001037 +                      RJ     EMT                                                     KEY       786
           476  0400000000 X                      EQ     PSN         EXIT..                                      KEY       787
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    18
                                                                      PATCH 
  
                                        **        PAT -  PROCESS "PATCH" STATEMENT                               KEY       789
                                        *                (ONLY IN *TEST* MODE)                                   KEY       790
                                        *                                                                        KEY       791
                                        *         STATEMENT CONSISTS OF THE WORD *PATCH*, FOLLOWED BY AN         KEY       792
                                        *                ADDRESS, THEN ANY SEPARATOR, AND THEN THE CONTENTS OF   KEY       793
                                        *                THE NEW WORD.  BLANKS ARE IGNORED.  THE *B* SUFFIX IS   KEY       794
                                        *                NOT ALLOWED.                                            KEY       795
                                        *                                                                        KEY       796
                                        *         C A U T I O N   --  ACTIVATE AND USE THIS STATEMENT AT YOUR    KEY       797
                                        *                            OWN RISK.  CONTROL DATA CORP. NOT RESPON-   KEY       798
                                        *                            SIBLE FOR ANY RESULTS OF THE USE OF A       KEY       799
                                        *                            *PATCH* STATEMENT.                          KEY       800
                                        *                                                                        KEY       801
                                        *         ERROR CHECKING IS THE ABSOLUTE POSSIBLE MINIMUM.  IT IS NOT    KEY       802
                                        *                LOGICALLY POSSIBLE TO USE IN MANY CASES.                KEY       803
                                        *         COMPILER DE-BUGGING CONVIENIENCE ITEM  O N L Y.                KEY       804
                                                                                                                 KEY       805
                                                                                                                 KEY       806
                                         TEST     IFNE   TEST                                                    KEY       807
                                                                                                                 KEY       808
                                                  HEREIF PATCH                                                   KEY       809
                                                                                                                 KEY       810
                                                  =A3    B4-1                                                    KEY       811
                                                  RJ     OCT         ASSEMBLE ADDRESS WHERE PATCH IS TO GO       KEY       812
                                                  SA6    PATA                                                    KEY       813
                                                  =A3    A3+1        SKIP OVER SEPARATOR                         KEY       814
                                                  RJ     OCT         ASSEMBLE CONTENTS OF WORD                   KEY       815
                                                  SA1    PATA                                                    KEY       816
                                                  SA6    X1          STORE NEW WORD                              KEY       817
                                                  EQ     PSP.F                                                   KEY       818
                                                                                                                 KEY       819
                                         PATA     DATA   0           SAVE CELL FOR ADDRESS FIELD.                KEY       820
                                                                                                                 KEY       821
                                         TEST     ENDIF                                                          KEY       822
  
  
  
  
                                        **        PAU -  PROCESS "PAUSE" STATEMENT.                              KEY       824
                                        *         EXIT   TO *SPR* WITH (B3) = *PAUSE* INDICATION.                KEY       825
                                                                                                                 KEY       826
                                                                                                                 KEY       827
           477  00000000000000050000              HEREIF PAUSE                                                   KEY       828
                                                                                                                 KEY       829
           500  66600                             =B6    S=PAU       INDICATE *PAUSE*                            KEY       830
                     0100001050 +                 RJ     SPR         COMPILE PAUSING INSTRUCTIONS                KEY       831
           501  13111                             CRJ    NONE        COMPILE  *RJ =XPAUSE.*                      KEY       832
           502  5110000000 X                      SA1    DTI                                                     KEY       833
                          0311000000 X            NZ     X1,E.SPR3   ANSI - PAUSE N.F.G AS DO-TERM               KEY       834
           503  0400000000 X                      EQ     PSN         EXIT..                                      KEY       835
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    19
                                                                      PPG 
  
                                        **        PPG -  PROCESS "PROGRAM" STATEMENT.                            KEY       837
                                        *         EXIT   TO MASTER LOOP.                                         KEY       838
                                        *         CALLS  1.  WARN (NON-ANSI STATEMENT).                          KEY       839
                                        *                2.  DCM = ASSEMBLE THE PROGRAM NAME.                    KEY       840
                                        *                3.  PPA = PROCESS ANY FILE DECLARATION LIST.            KEY       841
                                                                                                                 KEY       842
                                                                                                                 KEY       843
           504  00000000000000220115              HEREIF PROGRAM                                                 KEY       844
                                                                                                                 KEY       845
           505  7160004000                        SX6    M.PPRO      SET SUBPROGRAM MODE                         KEY       847
                          5140001115 +            SA4    =7APROGRAM                                              FCC1328X  541
           506  0100000000 X                      RJ     DCM         DISPLAY COMPILING MESSAGE                   KEY       849
           507  6170000000 X                      ANSI   E.ANS       NON ANSI STATEMENT                          FCCA465     5
           510  0100000000 X                      RJ     PPA         PROCESS PROGRAM MESSAGE                     KEY       850
           511  0400000000 X                      EQ     PSP         RETURN TO MASTER LOOP                       KEY       851
  
  
  
  
                                        **        RTN -  PROCESS "RETURN" STATEMENT.                             KEY       853
                                        *         EXIT   MASTER LOOP                                             KEY       854
                                        *         CALLS  CLT - TO CLEAR REGISTER ASSOCIATES.                     KEY       855
                                        *                RTU - IF NOT IN A MAIN PROGRAM.                         KEY       856
                                        *                SER - IF MAIN PROGRAM, ACT LIKE *END*.                  KEY       857
                                                                                                                 KEY       858
                                                                                                                 KEY       859
                                                                                                                 KEY       860
           512  00000000000000221600              HEREIF RETURN                                                  KEY       861
                                                                                                                 KEY       862
           513  5120000000 X                      SA2    DOORD                                                   KEY       863
                          5130000000 X            SA3    MOD                                                     KEY       864
           514  0302000517 +                      ZR     X2,RTN1     IF NOT INSIDE A *DO*                        KEY       865
                          5110000000 X            SA1    TS.STN                                                  KEY       866
           515  63220                             SB2    X2                                                      KEY       867
                     7100000100                   =X0    M.SNEX                                                  KEY       868
                               53412              SA4    X1+B2                                                   KEY       869
           516  12740                             BX7    X4+X0                                                   KEY       870
                     54740                        SA7    A4          INDICATE *DO* HAS AN EXTERNAL REFERENCE     KEY       871
           517  76610                    RTN1     =X6    1                                                       KEY       872
                     20360                        SBIT   X3,PPRO                                                 KEY       873
                          5160000000 X            SA6    NOPATH                                                  KEY       874
                                                                                                                 KEY       875
                                        **        VALIDATE SYNTAX -- NOTHING MAY FOLLOW THE KEYWORD.             KEY       876
                                                                                                                 KEY       877
           520  56140                             SA1    B4                                                      KEY       878
                     0311000547 +                 NZ     X1,RTN9     IF NOT *EOS*                                KEY       879
           521  0323000524 +             RTN2     PL     X3,RTN4     IF NOT MAIN PROGRAM                         KEY       880
                                                                                                                 KEY       881
                                        **        WHEN IN MAIN PROGRAM, ACT LIKE *END*.                          KEY       882
                                                                                                                 KEY       883
           522  0100001030 +             RTN3     RJ     SER         SET *END* RETURN CODE                       KEY       884
           523  0400000000 X                      EQ     E.ART       ** RETURN IN MAIN IS NON-ANSI ** (EXIT PSN) KEY       885
                                                                                                                 KEY       886
                                        **        IN SUBPROGRAM, JUMP TO *CT.RETN*.                              KEY       887
                                                                                                                 KEY       888
           524  5110000000 X             RTN4     SA1    INIF                                                    KEY       889
                          0311000536 +            NZ     X1,RTN8     IF OBJECT OF 1-BRANCH *IF*                  KEY       890
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    20
  
  
                                                                                                                 KEY       891
                                        **        SET (HANGER) AND RETURN TO MASTER LOOP TEMPORARILY, TO FIND    KEY       892
                                        *                OUT WHAT NEXT STATEMENT IS.                             KEY       893
                                                                                                                 KEY       894
           525  7160000527 +                      SX6    RTN5                                                    KEY       895
                          5160000000 X            SA6    HANGER                                                  KEY       896
           526  0400000000 X                      EQ     PSN         GET NEXT STATEMENT                          KEY       897
                                        *         ...                                                            KEY       898
           527  5010000003               RTN5     =A1    "SB.KEY"    BACK HERE WITH NEXT STATEMENT               KEY       899
                          5120000000 X            SA2    RTNCNT                                                  KEY       900
           530  6271777551 -                      SB7    X1-END=                                                 KEY       901
                          0470000535 +            ZR     B7,RTN6     IF NEXT IS *END*                            KEY       902
                                                                                                                 KEY       903
                                        **        IF THE NEXT STATEMENT IS NOT THE *END* LINE, COMPILE JUMP TO   KEY       904
                                        *                THE RETURN CODE, AND UPDATE COUNT OF *RETURN*           KEY       905
                                        *                STATEMENTS.                                             KEY       906
                                                                                                                 KEY       907
           531  73621                             =X6    X2+1        COUNT *RETURN* STATEMENTS                   KEY       908
                     6130000000 X                 SB3    O=QUITS                                                 KEY       909
                               54620              SA6    A2                                                      KEY       910
           532  5110000000 X                      SA1    TT.PAR                                                  KEY       911
                          7140260006              SX4    CT.RETN                                                 KEY       912
           533  10544                             BX5    X4                                                      KEY       913
                     0100001037 +                 RJ     EMT         EMIT  (O=QUITS,  CT.RETN)                   KEY       914
           534  0400000000 X                      EQ     CUS.RET     EXIT..                                      KEY       915
                                                                                                                 KEY       916
                                        **        IF *RETURN* IMMEDIATELY PRECEDES *END* LINE, NO JUMP IS        KEY       917
                                        *                NECESSARY.  WE ALSO INDICATE THIS FACT (BY COMPLEMENT-  KEY       918
                                        *                ING (RTNCNT), AS THIS MAY MEAN THE *BSS* FOR *CT.RETN*  KEY       919
                                        *                IS NOT NEEDED.                                          KEY       920
                                                                                                                 KEY       921
           535  14622                    RTN6     BX6    -X2                                                     KEY       922
                     54620                        SA6    A2                                                      KEY       923
                          0400000000 X            EQ     CUS.RET     EXIT..                                      KEY       924
                                                                                                                 KEY       925
                                        **        WHEN *RETURN* IS OBJECT OF A 1-BRANCH *IF*, CHANGE THE JUMP.   KEY       926
                                        *                DECREMENT (*TG.PRO*), AS THE FORMER TAG WILL NOT BE     KEY       927
                                        *                USED IN THE ALTERED CODE.  CLEAR (INIF) TO KEEP THAT    KEY       928
                                        *                TAG FROM BEING GENERATED.                               KEY       929
                                        *         ENTRY  (A1) _ INIF.                                            KEY       930
                                        *                (IFREL1) = MACRO ADDRESS FOR OPPOSITE *IF* JUMP.        KEY       931
                                                                                                                 KEY       932
           536  5120000000 X             RTN8     SA2    TG.PRO                                                  KEY       933
                          5130000000 X            SA3    TT.PAR                                                  KEY       934
           537  7262777776                        SX6    X2-1        RESET (TG.PRO)                              KEY       935
                          5140000000 X            SA4    TT=PAR                                                  KEY       936
           540  5150000000 X                      SA5    IFREL1      IF MACRO ADDRESS FOR ONE BRANCH             KEY       937
                          13777                   BX7    0                                                       KEY       938
                               54620              SA6    A2                                                      KEY       939
           541  36034                             IX0    X3+X4       = LWA TT.PAR                                KEY       940
                     7160260006                   SX6    CT.RETN                                                 KEY       941
                               20552              LX5    P.JPAD                                                  KEY       942
           542  10366                             BX3    X6                                                      KEY       943
                     5140000000 X                 SA4    RTNCNT                                                  KEY       944
                               20330              LX3    P.PTAGM                                                 KEY       945
           543  5220777774                        SA2    X0-L.TURP+OR.OPR                                        KEY       946
                          43122                   MX1    L.JPAD                                                  KEY       947
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    21
  
  
                               36636              IX6    X3+X6       BROADCAST TAG                               KEY       948
           544  54710                             SA7    A1                                                      KEY       949
                     5260777776                   =A6    X0-L.TURP+OR.2OP  RESET JUMP TARGET                     KEY       950
                               15321              BX3    -X1*X2      CLEAR OLD MACRO ADDRESS                     KEY       951
           545  5170000000 X                      SA7    NOPATH      CLEAR NO PATH FLAG                          KEY       952
                          73641                   =X6    X4+1        INCREMENT COUNT OF *RETURN* STATEMENTS.     KEY       953
                               36735              IX7    X3+X5       ADD ANEW                                    KEY       954
           546  54640                             SA6    A4                                                      KEY       955
                     54720                        SA7    A2          RESET MACRO ADDRESS                         KEY       956
                          0400000000 X            EQ     PSN         EXIT..                                      KEY       957
                                                                                                                 KEY       958
           547  0323000552 +             RTN9     PL     X3,RTN91    IF NOT MAIN PROGRAM                         KEY       959
                          6170000000 X            WARN   E.XC                                                    KEY       960
           551  0400000522 +                      EQ     RTN3                                                    KEY       961
                                                                                                                 KEY       962
           552  6271777774               RTN91    SB7    X1-O.VAR                                                KEY       963
                          0470000554 +            ZR     B7,RTN93    IF LETTER                                   KEY       964
           553  0400000000 X                      EQ     E.RA                                                    KEY       965
                                                                                                                 KEY       966
           554  43052                    RTN93    MX0    L.SYM                                                   KEY       967
                     11601                        BX6    X0*X1                                                   KEY       968
                          5110000000 X            SCAN   TS.SYM,SSY                                              KEY       969
           556  0770000000 X                      MI     B7,E.RA1    IF NOT ALREADY DEFINED, ERR..               KEY       970
                          20255                   IFBIT  X2,-RP,E.RA1 IF NOT RETURNS PARAMETER, ERR..            KEY       971
                          6170000000 X            ANSI   E.ANS       ALTERNATE RETURN STATEMENT IS NON-ANSI      KEY       972
           561  43466                             MX4    -L.2FPNO                                                KEY       973
                     21622                        AX6    P.2FPNO                                                 KEY       974
                          15464                   BX4    -X4*X6      EXTRACT PARAMETER ORDINAL                   KEY       975
           562  7244777776                        SX4    X4-1                                                    KEY       976
                          5110000000 X            SA1    TT.PAR                                                  KEY       977
           563  6130000000 X                      SB3    O=RTNA                                                  KEY       978
                          43500                   MX5    0                                                       KEY       979
           564  0100001037 +                      RJ     EMT         EMIT  (O=RTNA)                              KEY       980
           565  56141                             SA1    B4+B1                                                   KEY       981
                     66441                        SB4    B4+B1                                                   KEY       982
                          0301000567 +            ZR     X1,RTN96    IF *EOS*                                    KEY       983
           566  6170000000 X                      WARN   E.XC                                                    KEY       984
           567  5110000000 X             RTN96    SA1    INIF                                                    KEY       985
                          0301000571 +            ZR     X1,RTN98    IF NOT OBJECT OF 1-BRANCH *IF*              KEY       986
           570  13777                             BX7    0                                                       KEY       987
                     5170000000 X                 SA7    NOPATH      CLEAR NOPATH FLAG                           KEY       988
           571  0400000000 X             RTN98    EQ     PSN                                                     KEY       989
  
  
  
  
                                        **        RTU - COMPILE RETURN INSTRUCTIONS.                             KEY       991
                                        *                                                                        KEY       992
                                        *         CALLED IN A SUBROUTINE OR FUNCTION WHEN A *RETURN* OR *END*    KEY       993
                                        *         STATEMENT IS ENCOUNTERED TO COMPILE INSTRUCTIONS TO EXIT.      KEY       994
                                        *                                                                        KEY       995
                                        *         1.  *RETURN.* BSS 0                                            KEY       996
                                        *         2.  IF *FUNCTION* -- LOAD *VALUE.* INTO (X6/X7).               KEY       997
                                        *         3.  RESTORE (A0).                                              KEY       998
                                        *         4.  FALL TO ENTRY/EXIT WORD.                                   KEY       999
                                        *                                                                        KEY      1000
                                        *         USES   ALL                                                     KEY      1001
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    22
                                                                      RTU 
  
                                        *         CALLS  ALLOC                                                   KEY      1002
                                                                                                                 KEY      1003
                                                                                                                 KEY      1004
           572  0400400572 +             RTU      SUBR               ENTRY/EXIT...                               KEY      1005
           573  5120000000 X                      SA2    RTNCNT                                                  KEY      1006
                          5110000000 X            SA1    TT.PAR                                                  KEY      1007
           574  0302000577 +                      ZR     X2,RTU2     IF NO MULTIPLE *RETURN*                     KEY      1008
                                                                                                                 KEY      1009
                                        **        IF ANY *RETURN* STATMENTS COMPILED JUMPS TO THE EXIT CODE, WE  KEY      1010
                                        *                HAD BETTER DEFINE A LABEL (*CT.RETN*) THERE.            KEY      1011
                                                                                                                 KEY      1012
                          6130000000 X            SB3    O=BSS                                                   KEY      1013
           575  7140260006                        SX4    CT.RETN                                                 KEY      1014
                          10544                   BX5    X4                                                      KEY      1015
           576  0100001037 +                      RJ     EMT         EMIT  (O=BSS, CT.RETN)                      KEY      1016
                                                                                                                 KEY      1017
                                        **        IF THIS IS A *FUNCTION*, COMPILE CODE TO LOAD THE RESULT       KEY      1018
                                        *                REGISTER(S).                                            KEY      1019
                                        *         ENTRY  (A1,X1) _ TT.PAR.                                       KEY      1020
                                                                                                                 KEY      1021
           577  5150000000 X             RTU2     SA5    MOD                                                     KEY      1022
                          43071                   MX0    -L.MODE                                                 KEY      1023
                               15450              BX4    -X0*X5      ISOLATE MODE                                KEY      1024
           600  5120000000 X                      SA2    VALUE.                                                  KEY      1025
                          20562                   SBIT   X5,PFNC                                                 KEY      1026
           601  6130000000 X                      SB3    OPRETD                                                  KEY      1027
                          67303                   SB3    -B3                                                     KEY      1028
           602  0325000607 +                      PL     X5,RTU4     IF NOT A *FUNCTION*                         KEY      1029
                          20507                   SBIT   X5,LONG/PFNC                                            KEY      1030
           603  7262200000                        SX6    X2+C.VAR                                                KEY      1031
                          0335000605 +            MI     X5,RTU3     IF DOUBLE-WORD RESULT                       KEY      1032
           604  6130000000 X                      SB3    OPRETS                                                  KEY      1033
                          67303                   SB3    -B3                                                     KEY      1034
           605  20652                    RTU3     LX6    P.2TAG                                                  KEY      1035
                     12564                        BX5    X6+X4                                                   KEY      1036
                          76400                   =X4    0           1ST = DUMMY                                 KEY      1037
           606  0100001037 +                      RJ     EMT         EMIT  (O=RETURN-VALUE, (VALUE.))            KEY      1038
                                                                                                                 KEY      1039
                                        **        IF THIS SUBPROGRAM HAD ARGUMENTS, (A0) WAS SAVED AND CLOBBERED KEY      1040
                                        *                WHEN IT WAS ENTERED.  RESTORATION CODE IS NEEDED.       KEY      1041
                                        *                ALSO, WE NOW DO THE ACTUAL ENTRY POINT DEFINITION NOW.  KEY      1042
                                        *         ENTRY  (A1,X1) _ TT.PAR.                                       KEY      1043
                                                                                                                 KEY      1044
           607  5130000000 X             RTU4     SA3    NARGS                                                   KEY      1045
                          5120000000 X            SA2    ENTRY.                                                  KEY      1046
           610  7242200000                        SX4    X2+C.VAR                                                KEY      1047
                          6130000000 X            SB3    O=NTR                                                   KEY      1048
           611  0303000612 +                      ZR     X3,RTU5     IF NO ARGUMENTS                             KEY      1049
                          6130000000 X            SB3    O=RETN                                                  KEY      1050
           612  13555                    RTU5     BX5    0                                                       KEY      1051
                     63630                        SB6    X3                                                      KEY      1052
                          0100001037 +            RJ     EMT         (O=ENTRY, (ENTRY.))                         KEY      1053
                                                                                                                 FEAT155G  348
                                        *         OUTPUT O=OTR TURPLE, IF NECESSARY                              FEAT155G  349
                                                                                                                 FEAT155G  350
           613  5120000000 X                      SA2    =XCO.ER                                                 FEAT155G  351
                          0302000617 +            ZR     X2,RTU55    IF NO OTR                                   FEAT155G  352
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    23
                                                                      RTU 
  
           614  6130000000 X                      SB3    =XOTROP                                                 FEAT155G  353
                          67303                   SB3    -B3                                                     FEAT155G  354
           615  5150000000 X                      SA5    ENTRY.                                                  F66FCC    759
                          76410                   =X4    1           NO LABEL, NO LNT ENTRY                      F66FCC    760
                               21522              AX5    18          LINE NUMBER ONLY                            F66FCC    761
           616  20522                             LX5    P.TRC       POSITION FOR TURPLE                         F66FCC    762
                     0100001037 +                 RJ     EMT                                                     FEAT155G  359
                                                                                                                 FEAT155G  360
           617                           RTU55    BSS    0                                                       FEAT155G  361
                                                                                                                 KEY      1054
           617  6130000000 X                      SB3    O=NTRX                                                  KEY      1055
                          0460000627 +            ZR     B6,RTU8     IF NO ARGUMENTS                             KEY      1056
                                                                                                                 KEY      1057
                                        **        WHEN THERE WERE ARGUMENTS, AFOREMENTIONED SAVE (A0) CODE IS    KEY      1058
                                        *                TO BE COMPILED.  WHAT BRAND DEPENDS ON OCCURRANCE OF    KEY      1059
                                        *                *ENTRY* STATEMENTS.                                     KEY      1060
                                        *         ENTRY  (NTRCNT) = NUMBER OF *ENTRY* STATEMENTS IN THIS         KEY      1061
                                        *                SUBPROGRAM.                                             KEY      1062
                                        *                (A1,X1) _ TT.PAR.                                       KEY      1063
                                                                                                                 KEY      1064
           620  5120000000 X                      SA2    NTRCNT                                                  KEY      1065
                          6130000000 X            SB3    O=NTRN                                                  KEY      1066
           621  0302000622 +                      ZR     X2,RTU6     IF NO *ENTRY* STATMENTS                     KEY      1067
                          6130000000 X            SB3    O=NTRM                                                  KEY      1068
           622  13444                    RTU6     BX4    0                                                       KEY      1069
                     13555                        BX5    0                                                       KEY      1070
                          0100001037 +            RJ     EMT         EMIT  (SAVE (A0) CODE)                      KEY      1071
                                                                                                                 F66FCC    763
                                         #FID     IFNE   .FID,0                                                  F66FCC    764
           623  5120000000 X                      SA2    =XCO.ID                                                 F66FCC    765
                          0322000625 +            PL     X2,RTU7     IF FID CODE NOT NECESSARY                   F66FCC    766
                                                                                                                 F66FCC    767
           624  6130000000 X                      SB3    =XO=NTRN1   SAVE-A1 SKELETON                            F66FCC    768
                          0100001037 +            RJ     EMT         EMIT SAVE-A1 TURPLE                         F66FCC    769
           625                           RTU7     BSS                                                            F66FCC    770
                                         #FID     ENDIF                                                          F66FCC    771
                                                                                                                 KEY      1072
                                        **        THAT IS ALL FOR THE PARSED FILE.  NOW THE VARIABLE DIMENSION   KEY      1073
                                        *                INITIALIZATION CODE WILL BE COMPILED (BY *FVD*).  THE   KEY      1074
                                        *                ONLY THING AFTER THAT IS TO JUMP TO THE BEGINNING OF    KEY      1075
                                        *                THE ROUTINE (*CT.BEGIN*).  THE JUMP TYPE, HOWEVER,      KEY      1076
                                        *                DEPENDS ON MULTIPLE ENTRY POINTS.  WE WILL ADD THE      KEY      1077
                                        *                PROPER JUMP MACRO TO THE VAR-DIM TABLE.                 KEY      1078
                                                                                                                 KEY      1079
           625  5120000000 X                      SA2    NTRCNT                                                  KEY      1080
                          6130000000 X            SB3    O=NTRX                                                  KEY      1081
           626  0302000627 +                      ZR     X2,RTU8     IF NO *ENTRY* STATEMENTS                    KEY      1082
                          6130000000 X            SB3    O=NTRY                                                  KEY      1083
                                                                                                                 KEY      1084
                                        **        IF THIS ROUTINE HAD NO ARGUMENTS, WE DECIDED EARILER TO COME   KEY      1085
                                        *                DIRECTLY DOWN HERE.                                     KEY      1086
                                        *         ENTRY  (B3) = ADDRESS OF JUMP MACRO.                           KEY      1087
                                                                                                                 KEY      1088
           627  5110000000 X             RTU8     SA1    T.VDIM                                                  KEY      1089
                          13444                   BX4    0                                                       KEY      1090
                               76500              =X5    0                                                       KEY      1091
           630  0100001037 +                      RJ     EMT         EMIT  (JUMP TO *CT.BEGIN*)                  KEY      1092
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    24
                                                                      RTU 
  
           631  0400000572 +                      EQ     EXIT.                                                   KEY      1093
  
  
  
  
                                        **        GOT -  PROCESS "GO TO" STATEMENTS.                             KEY      1095
                                        *                                                                        KEY      1096
                                        *         *GOT* PROCESSES ALL FORMS OF *GO TO* STATEMENTS --             KEY      1097
                                        *                1. GO TO SN                                             KEY      1098
                                        *                2. GO TO I (SN1,SN2,.....SNN)     (NON-ASA)             KEY      1099
                                        *                   GO TO I,(SN1,SN2,.....SNN)                           KEY      1100
                                        *                3. GO TO   (SN1,SN2,.....SNN),I                         KEY      1101
                                        *                   GO TO   (SN1,SN2,.....SNN) I   (NON-ASA)             KEY      1102
                                        *                                                                        KEY      1103
                                        *         ENTRY  B4 _ ELEMENT FOLLOWING *GO TO*                          KEY      1104
                                        *         EXIT   MASTER LOOP                                             KEY      1105
                                                                                                                 KEY      1106
                                                                                                                 KEY      1107
           632  00000000000000000000              HEREIF GOTO                                                    KEY      1108
                                                                                                                 KEY      1109
           633  56140                             SA1    B4          POINTING TO 1ST ELEMENT AFTER *GOTO*        KEY      1110
                     7160000055                   =X6    CR.GOTO                                                 KEY      1111
           634  0301000000 X                      ZR     X1,E.GO1    IF MISSING OBJECT OF GO TO - ERROR          KEY      1112
                          7221777767              SX2    X1-O.(                                                  KEY      1113
           635  5160000000 X                      SA6    REFNUM      INDICATE FOR CROSS REFERENCE MAP.           KEY      1114
                          7160000007              =X6    CR.VGOTO                                                KEY      1115
           636  56341                             =A3    B4+1                                                    KEY      1116
                     5160000000 X                 SA6    REFVAR                                                  KEY      1117
           637  0302000743 +                      ZR     X2,GOT20    IF COMPUTED GO TO                           KEY      1118
                          6221777774              SB2    X1-O.VAR                                                KEY      1119
           640  0520000641 +                      NZ     B2,GOT5     IF NOT VARIABLE.                            KEY      1120
                          0400000704 +            EQ     GOT10                                                   KEY      1121
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    25
                                                                      GOTON 
  
                                        **        HERE IF SIMPLE TRANSFER TO STATEMENT NUMBER.                   KEY      1124
                                                                                                                 KEY      1125
           641  10611                    GOT5     BX6    X1                                                      KEY      1126
                     0313000000 X                 NZ     X3,E.GO     IF NO *EOS* - ERROR                         KEY      1127
           642  6120000201                        =B2    M.SNLAB+M.SNREF                                         KEY      1128
                          0100000000 X            RJ     ISN         GO IDENTIFY STATEMENT NUMBER                KEY      1129
           643  0336000000 X                      NG     X6,CPM      IF ERROR IN STATEMENT NUMBER                KEY      1130
                          5110000000 X            SA1    STN0R                                                   KEY      1131
           644  5120000000 X                      SA2    STN                                                     KEY      1132
                          37012                   IX0    X1-X2                                                   KEY      1133
           645  0310000647 +                      NZ     X0,GOT6     IF NOT TRANSFER TO ITSELF                   KEY      1134
                          6170000000 X            WARN   E.GO7       WARNING                                     KEY      1135
           647  10566                    GOT6     BX5    X6          SAVE TAG.                                   KEY      1136
                     5110000000 X                 SA1    INIF                                                    KEY      1137
                               76610              =X6    1                                                       KEY      1138
           650  5160000000 X                      SA6    NOPATH      INICATE POSSIBLE NO-PATH.                   KEY      1139
                          21552                   AX5    P.TAG                                                   KEY      1140
           651  7160000000                        SX6    0                                                       KEY      1141
                          0301000664 +            ZR     X1,GOT7     IF NO OBJECT OF AN *IF*                     KEY      1142
                                                                                                                 KEY      1143
                                        **        GO TO SN FOUND TO BE OJBECT OF A ONE BRANCH *IF* STATMENT.     KEY      1144
                                        *                                                                        KEY      1145
                                        *         IN THIS CASE WE RESET THE GENERATED TAG CELL, SINCE THE TAG    KEY      1146
                                        *         WILL NOT BE USED IN THE NEW JUMP MACRO.  NEXT WE REPLACE THE   KEY      1147
                                        *         IF JUMP MACRO PUT INTO THE PARSED FILE BY THE *IF* PROCESSOR   KEY      1148
                                        *         AND RESET IT TO A --                                           KEY      1149
                                        *                IF(L) 1,N  - WHERE *1* IS THE LABEL DEFINED BY THE      KEY      1150
                                        *                             GO TO SN.                                  KEY      1151
                                        *         NEXT WE CHECK IF THE *IF* WAS FOUND ON A *DO* TERMINATOR LINE  KEY      1152
                                        *         IF SO WE EXIT TO PSN AND FINISH PROCESSING THE *DO*            KEY      1153
                                        *                                                                        KEY      1154
                                        *         (X5) = STATEMENT NUMBER TAG SHIFTED BY P.TAG                   KEY      1155
                                                                                                                 KEY      1156
           652  5160000000 X                      SA6    NOPATH      CLEAR                                       KEY      1157
                          5120000000 X            SA2    TG.PRO                                                  KEY      1158
           653  54610                             SA6    A1          CLEAR *INIF*                                KEY      1159
                     5130000000 X                 SA3    =XFLOW                                                  KEY      1160
           654  0313000000 X                      NZ     X3,PSN      IF NO PATH                                  KEY      1161
                          7261777776              SX6    X1-1                                                    KEY      1162
           655  22305                             LX3    X5                                                      KEY      1163
                     5140000000 X                 SA4    TT.PAR                                                  KEY      1164
           656  5110000000 X                      SA1    IFREL1                                                  KEY      1165
                          7100000041              =X0    O.IF                                                    KEY      1166
           657  20152                             LX1    P.JPAD                                                  KEY      1167
                     12710                        BX7    X1+X0                                                   KEY      1168
                          5110000000 X            SA1    TT=PAR                                                  KEY      1169
           660  54620                             SA6    A2          RESET GENERATED TAG CELL. (TG.PRO)          KEY      1170
                     36014                        IX0    X1+X4       LWA+1 OF PARSED FILE.                       KEY      1171
                                                  IFNE   P.PTAGL,,1                                              KEY      1172
                                                  AX3    P.PTAGL                                                 KEY      1173
                          5270777774              SA7    X0-L.TURP   RESET MACRO TO *IFL1N*                      KEY      1174
           661  10633                             BX6    X3          STATEMENT TAG FOR JUMP                      KEY      1175
                     5110000000 X                 SA1    DTI                                                     KEY      1176
           662  5260777776                        SA6    X0-L.TURP+OR.2OP                                        KEY      1177
                          0311000000 X            NZ     X1,PSN      IF IN *DO* TERMINATION -- EXIT..            KEY      1178
           663  7160000001                        SX6    1                                                       KEY      1179
           664  5160000000 X             GOT7     SA6    IFSN        INDICATE INIF OR NOT.                       KEY      1180
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    26
                                                                      GOTON 
  
                          10655                   BX6    X5                                                      KEY      1181
           665  5160001013 +                      SA6    GOTA        SAVE TAG.                                   KEY      1182
                          7160000667 +            =X6    GOT7A       RETURN ADDRESS                              KEY      1183
           666  5160000000 X                      SA6    HANGER                                                  KEY      1184
                          0400000000 X            EQ     PSN         GET NEXT EXECUTABLE..                       KEY      1185
                                                                                                                 KEY      1186
                                        **        RETURN WITH NEXT EXECUTABLE IN *SB* AND NEXT ACTIVE LABEL      KEY      1187
                                        *         IN *CSNTAG* IF ONE EXISTS.                                     KEY      1188
                                        *                                                                        KEY      1189
                                        *         EVALUATE IF THE GO TO SN IS A TRANSFER TO THE NEXT EXEC.       KEY      1190
                                        *         IF SO IGNORE AND NOTE IT TO THE PROGRAMMER.  IF GO TO IS PART  KEY      1191
                                        *         OF AN IF AND THE ABOVE IS NOT TRUE WE EXIT TO PSN.  IF NOT     KEY      1192
                                        *         OBJECT OF AN IF WE ADD O=GOTO MACRO TO PARSED FILE AND EXIT AS KEY      1193
                                        *         ABOVE.                                                         KEY      1194
                                                                                                                 KEY      1195
           667  5120001013 +             GOT7A    SA2    GOTA        RESTORE TAG.                                KEY      1196
                          5130000000 X            SA3    CSNTAG                                                  KEY      1197
           670  13023                             BX0    X2-X3                                                   KEY      1198
                     5110000000 X                 SA1    IFSN                                                    KEY      1199
           671  0310000674 +                      NZ     X0,GOT7B    IF NOT SIMPLE JUMP TO NEXT STATEMENT.       KEY      1200
                          0301000000 X            ZR     X1,E.GO2    IF NOT PROCESSING OBJECT OF AN IF.          KEY      1201
           672  6170000000 X                      NOTE   E.GO2A      IF RESULTS IN A TRANSFER TO NEXT LINE       FCC1636X   15
           673  0400000000 X                      EQ     CUS.RET                                                 FCC1636X   16
                                                                                                                 KEY      1213
                                        **        HERE IF JUMP MUST BE COMPILED.                                 KEY      1214
                                        *         ADD *GOTON* SKELETON TO PARSED FILE.                           KEY      1215
                                        *         (NOT-TRUE IF PART OF AN *IF*)                                  KEY      1216
                                                                                                                 KEY      1217
           674  0311000000 X             GOT7B    NZ     X1,CUS.RET  IF PART OF 1-BRANCH IF                      KEY      1218
                          0100000000 X            RJ     MXP                                                     KEY      1219
           675  5110000000 X                      ALLOC  TT.PAR,L.TURP                                           KEY      1220
           677  5140001013 +                      SA4    GOTA                                                    KEY      1221
                          7150000000 X            SX5    O=GOTON                                                 KEY      1222
           700  22704                             LX7    X4                                                      KEY      1223
                     13666                        BX6    0                                                       KEY      1224
                          7110000062              =X1    O.GOTO                                                  KEY      1225
           701  57771                             =A7    B7-L.TURP+OR.2OP                                        KEY      1226
                     20552                        LX5    P.JPAD                                                  KEY      1227
                          55671                   =A6    A7-OR.2OP+OR.1OP                                        KEY      1228
                               12751              BX7    X5+X1       ADD IN OPERATOR                             KEY      1229
           702  7262777776                        SX6    X2-1                                                    KEY      1230
                          55761                   =A7    A6-OR.1OP+OR.OPR                                        KEY      1231
           703  5160000000 X                      SA6    CURST             RESET SQEEZE START PASTED *GOTO*      KEY      1232
                          0400000000 X            EQ     CUS.RET           RETURN TO FINISH PROCESSING HANGER    KEY      1233
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    27
                                                                      GOTOVR
  
                                        **        PROCESS ASSIGNED *GO TO*     GO TO VAR,(N,,,,,,,)              KEY      1235
                                        *         WHERE VAR MUST BE A SIMPLE INTEGER VARIABLE.                   KEY      1236
                                                                                                                 KEY      1237
           704  0100000000 X             GOT10    RJ     TRV         TRANSLATE VARIABLE.                         KEY      1238
           705  6271777775                        SB7    X1-M.INT                                                KEY      1239
                          0470000707 +            ZR     B7,GOT10A   IF INTEGER VARIABLE                         KEY      1240
           706  6170000000 X                      WARN   =XE.GO1A    OBJECT OF GOTO NOT INTEGER                  KEY      1241
           707  10522                    GOT10A   BX5    X2          PASS *2* TAG                                KEY      1242
                     66441                        =B4    B4+1                                                    KEY      1243
                          56240                   SA2    B4                                                      KEY      1244
           710  6272777764                        SB7    X2-O.COMMA                                              KEY      1245
                          0470000713 +            ZR     B7,GOT10B   IF *,*                                      KEY      1246
           711  6170000000 X                      ANSI   E.GO5       NON-ANSI FORM                               KEY      1247
           712  0400000714 +                      EQ     GOT10C                                                  KEY      1248
           713  66441                    GOT10B   =B4    B4+1                                                    KEY      1249
                     56240                        SA2    B4                                                      KEY      1250
           714  6272777767               GOT10C   SB7    X2-O.(                                                  KEY      1251
                          0470000721 +            ZR     B7,GOT10E   IF *(*                                      KEY      1252
           715  5232000000 X                      SA3    X2+=XCHARMAP                                            KEY      1253
                          43052                   MX0    L.CDPC                                                  KEY      1254
           716  0303000717 +                      ZR     X3,GOT10D   IF *O.VAR* OR *O.CON*                       KEY      1255
                          22203                   LX2    X3                                                      KEY      1256
           717  11602                    GOT10D   BX6    X0*X2                                                   KEY      1257
                     5160000000 X                 SA6    FILL.                                                   KEY      1258
           720  0400000000 X                      EQ     E.GO3                                                   KEY      1259
           721  66441                    GOT10E   =B4    B4+1                                                    KEY      1260
           722  56140                    GOT11    SA1    B4                                                      KEY      1261
                     0301000000 X                 ZR     X1,PSN      MISSING RIGHT PAREN ALREADY DIAGNOSED       KEY      1262
                               10611              BX6    X1                                                      KEY      1263
           723  6120000201                        =B2    M.SNLAB+M.SNREF                                         KEY      1264
                          0100000000 X            RJ     ISN         IDENTIFY STATEMENT NUMBER                   KEY      1265
           724  5120000000 X                      SA2    STN0R                                                   KEY      1266
                          5130000000 X            SA3    STN                                                     KEY      1267
           725  56441                             =A4    B4+1                                                    KEY      1268
                     37232                        IX2    X3-X2                                                   KEY      1269
                          6144000002              SB4    B4+2                                                    KEY      1270
           726  7234777764                        SX3    X4-O.COMMA                                              KEY      1271
                          0312000730 +            NZ     X2,GOT12    IF NOT REFERENCE TO CURRENT LABEL           KEY      1272
           727  6170000000 X                      WARN   E.GO8       STATEMENT CAN TRANSFER TO ITSELF - WARNING  KEY      1273
           730  0303000722 +             GOT12    ZR     X3,GOT11    IF *,*                                      KEY      1274
                          6223000002              SB2    X3+O.COMMA-O.)                                          KEY      1275
           731  0520000000 X                      NZ     B2,E.GO     IF NOT *)* - ERROR...                       KEY      1276
                          56140                   =A1    B4                                                      KEY      1277
           732  0301000734 +                      ZR     X1,GOT13    IF NOTHING AFTER *)*                        KEY      1278
                          6170000000 X            WARN   E.AC8       ILLEGAL CHAR AFTER RIGHT PAREN              KEY      1279
                                                                                                                 KEY      1280
                                        **        EMIT ASSIGNED GOTO TURPLE --                                   KEY      1281
                                        *                (OPR) = O=GOA                                           KEY      1282
                                        *                (OR.1OP) = (X5) = VARIABLE TAG FOR GO TO.               KEY      1283
                                        *                (OR.2OP) = (X5) =   -      -    -   -  -  (DUMMY)       KEY      1284
                                                                                                                 KEY      1285
           734  10655                    GOT13    BX6    X5                                                      KEY      1286
                     5160001013 +                 SA6    GOTA                                                    KEY      1287
           735  0100000000 X                      RJ     MXP                                                     KEY      1288
           736  5150001013 +                      SA5    GOTA                                                    KEY      1289
                          5110000000 X            ALLOC  TT.PAR,L.TURP                                           KEY      1290
           740  5130000000 X                      SA3    GOASS                                                   KEY      1291
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    28
                                                                      GOTOVR
  
                          10755                   BX7    X5                                                      KEY      1292
                               22605              LX6    X5                                                      KEY      1293
           741  57771                             =A7    B7-L.TURP+OR.2OP                                        KEY      1294
                     55671                        =A6    A7-OR.2OP+OR.1OP                                        KEY      1295
                          10733                   BX7    X3                                                      KEY      1296
                               55761              =A7    A6-OR.1OP+OR.OPR                                        KEY      1297
           742  0400001010 +                      EQ     GOT80       CONTINUE                                    KEY      1298
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    29
                                                                      GOTO()
  
                                        *         PROCESS COMPUTED *GO TO*                                       KEY      1300
                                                                                                                 KEY      1301
           743  66610                    GOT20    =B6    1           PROCESS COMPUTED GO TO                      KEY      1302
                                                                                                                 KEY      1303
                                        *         LOOP TO END OF PARAMETER LIST OF STATEMENT NUMBERS.            KEY      1304
                                                                                                                 KEY      1305
           744  5114000002               GOT21    SA1    B4+2                                                    KEY      1306
                          7221777764              =X2    X1-O.COMMA                                              KEY      1307
           745  6144000002                        SB4    B4+2                                                    KEY      1308
                          66661                   =B6    B6+1                                                    KEY      1309
           746  0302000744 +                      ZR     X2,GOT21    IF *,*                                      KEY      1310
                          7211777766              =X1    X1-O.)                                                  KEY      1311
           747  0311000000 X                      NZ     X1,E.GO     IF NOT *)* - ERROR...                       KEY      1312
                          6144000002              SB4    B4+2                                                    KEY      1313
           750  57141                             =A1    B4-1                                                    KEY      1314
                     7211777764                   =X1    X1-O.COMMA                                              KEY      1315
           751  0301000754 +                      ZR     X1,GOT23    IF *,*                                      KEY      1316
                          6170000000 X            ANSI   E.GO4       NON ANSI FORM.                              KEY      1317
           753  67441                             =B4    B4-1                                                    KEY      1318
           754  5110000000 X             GOT23    SA1    GOTARM                                                  KEY      1319
                          13777                   BX7    0                                                       KEY      1320
                               22601              LX6    X1                                                      KEY      1321
           755  5170000000 X                      SA7    ARGCOMA                                                 KEY      1322
                          5160000000 X            SA6    ARGMODE                                                 KEY      1323
           756  76660                             SX6    B6                                                      KEY      1324
                     5160001013 +                 SA6    GOTA        SAVE NUMBER OF BRANCHES                     KEY      1325
           757  0100000000 X                      RJ     MXP                                                     KEY      1326
           760  0100000000 X                      RJ     PAR         PARSE THE INDEX EXPRESSION                  KEY      1327
                                                                                                                 KEY      1328
           761  0100000000 X                      RJ     CAI         COMPILE INSTRUCTIONS                        KEY      1329
                                                                                                                 KEY      1330
                                        **        CODE HAS NOW BEEN COMPILED TO SET (B7) TO THE CORRECT INDEX    KEY      1331
                                        *                VALUE.  NEXT COMES THE INDEXED JUMP AND THE *ACGOER*    KEY      1332
                                        *                CALL.                                                   KEY      1333
                                                                                                                 KEY      1334
           762  5110000000 X                      SA1    TG.PRO                                                  KEY      1335
                          7120000003              =X2    I.JP                                                    KEY      1336
           763  73611                             =X6    X1+1        UPDATE PROGRAM TAG                          KEY      1337
                     20260                        LX2    P.LI12                                                  KEY      1338
                          7170777771              =X7    -6                                                      KEY      1339
           764  54610                             SA6    A1                                                      KEY      1340
                     10466                        BX4    X6                                                      KEY      1341
                          20636                   LX6    P.LTAG                                                  KEY      1342
                               16327              BX3    -X7+X2                                                  KEY      1343
           765  12736                             WCODE  X3+X6       COMPILE   JP   B6+TAG                       KEY      1344
           767  73740                             CBSS   X4          COMPILE TAG BSS 0                           KEY      1345
                                                                                                                 KEY      1346
           771  6140000000 X                      TAGSEX S.ACGOR                                                 KEY      1347
           773  5130000000 X                      SA3    =XTRLINE    SET UP LINE NO. FOR TRACEBACK               KEY      1348
                          77101                   CRJ    MUST        COMPILE     RJT =XGOTOER.                   KEY      1349
                                                                                                                 KEY      1350
           775  5110000000 X                      SA1    "SB.BOS"                                                KEY      1351
                          6241000002              SB4    X1+2                                                    KEY      1352
                                                                                                                 KEY      1353
                                        *         BUILD JUMP CODE FOR COMPUTED *GO TO*                           KEY      1354
                                                                                                                 KEY      1355
           776  56140                    GOT32    SA1    B4                                                      KEY      1356
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    30
                                                                      GOTO()
  
                     57241                        =A2    B4-1                                                    KEY      1357
                          10611                   BX6    X1                                                      KEY      1358
           777  6272777766                        SB7    X2-O.RP                                                 KEY      1359
                          0470001010 +            ZR     B7,GOT80    IF END OF STATEMENT LABEL LIST              KEY      1360
          1000  6120000201                        =B2    M.SNLAB+M.SNREF                                         KEY      1361
                          0100000000 X            RJ     ISN         IDENTIFY STATEMENT NUMBER                   KEY      1362
          1001  43722                             MX7    L.TAG                                                   KEY      1363
                     11676                        BX6    X7*X6       ISOLATE TAG                                 KEY      1364
                          5110000000 X            SA1    STN0R                                                   KEY      1365
          1002  5120000000 X                      SA2    STN                                                     KEY      1366
                          7170000004              =X7    I.EQ                                                    KEY      1367
          1003  12776                             BX7    X7+X6                                                   KEY      1368
                     20760                        LX7    -L.LI12                                                 KEY      1369
          1004  6120001005 +                      WCODE  X7          * EQ  N.TAG*                                KEY      1370
          1005  37321                             IX3    X2-X1                                                   KEY      1371
                     0313001007 +                 NZ     X3,GOT42    IF NOT REFERENCE TO CURRENT LABEL           KEY      1372
          1006  6170000000 X                      WARN   E.GO8       STATEMENT CAN TRANSFER TO ITSELF - WARNING  KEY      1373
          1007  6144000002               GOT42    SB4    B4+2                                                    KEY      1374
                          0400000776 +            EQ     GOT32       LOOP                                        KEY      1375
                                                                                                                 KEY      1376
                                        *         HERE IF *GO TO* WAS PROCESSED                                  KEY      1377
                                                                                                                 KEY      1378
          1010  0100000000 X             GOT80    RJ     CIA         CLEAR ALL REGISTER ASSOCIATES               KEY      1379
          1011  76610                             =X6    1                                                       KEY      1380
                     5160000000 X                 SA6    NOPATH      SET POSSIBLE NO-PATH INDICATOR              KEY      1381
          1012  0400000000 X                      EQ     PSN         EXIT..                                      KEY      1382
          1013  00000000000000000000     GOTA     DATA   0           OLD STATEMENT NUMBER.                       KEY      1383
  
  
  
  
                                        **        STP -  PROCESS "STOP" STATEMENT.                               KEY      1385
                                        *         EXIT   *SPR* WITH (B3) = *STOP* INDICATOR.                     KEY      1386
                                                                                                                 KEY      1387
                                                                                                                 KEY      1388
          1014  00000000000000000000              HEREIF STOP                                                    KEY      1389
                                                                                                                 KEY      1390
          1015  66610                             =B6    S=STOP      INDICATE *STOP*                             KEY      1391
                     0100001050 +                 RJ     SPR         COMPILE TERMINATING INSTRUCTIONS            KEY      1392
          1016  7170000004                        =X7    I.EQ                                                    KEY      1393
                          12767                   BX7    X6+X7                                                   KEY      1394
                               20760              LX7    -L.LI12                                                 KEY      1395
          1017  6120001020 +                      WCODE  X7          COMPILE  *EQ =X_ROUTINE.*                   KEY      1396
          1020  5110000000 X                      SA1    INIF                                                    KEY      1397
                          0311000000 X            NZ     X1,PSN      IF OBJECT OF 1-BRANCH IF                    KEY      1398
          1021  76610                             =X6    1                                                       KEY      1399
                     5160000000 X                 SA6    NOPATH      INDICATE NO-PATH.                           KEY      1400
          1022  0400000000 X                      EQ     PSN         EXIT..                                      KEY      1401
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    31
                                                                      SUB 
  
                                        **        SUB -  PROCESS "SUBROUTINE" STATEMENT.                         KEY      1403
                                        *         EXIT   TO MASTER LOOP.                                         KEY      1404
                                        *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                    KEY      1405
                                        *                2.  PSA = PROCESS ANY FORMAL PARAMETER LIST.            KEY      1406
                                                                                                                 KEY      1407
                                                                                                                 KEY      1408
          1023  11160500000000172524              HEREIF SUBROUTINE                                              KEY      1409
                                                                                                                 KEY      1410
          1024  7160002000                        SX6    M.PSUB      SET SUBPROGRAM MODE                         KEY      1411
                          5140001116 +            SA4    =10HSUBROUTINE                                          KEY      1412
          1025  0100000000 X                      RJ     DCM         DISPLAY COMPILING MESSAGE                   KEY      1413
          1026  0100000000 X                      RJ     PSA         PROCESS SUBPROGRAM ARGUMENTS                KEY      1414
          1027  0400000000 X                      EQ     PSP         EXIT                                        KEY      1415
  
  
  
  
                                        **        SER -  COMPILE *END* INSTRUCTIONS.                             KEY      1417
                                        *                                                                        KEY      1418
                                        *         CALLED BY *END* AND *RETURN* STATEMENTS, IF IN MAIN PROGRAM.   KEY      1419
                                        *                                                                        KEY      1420
                                        *         COMPILES LOAD OF (X1) = TRACE., FOLLOWED BY *EQ* JUMP TO       KEY      1421
                                        *         =XEND.                                                         KEY      1422
                                        *                                                                        KEY      1423
                                        *         CALLS  DRITE, TAGSEX, WCODE.                                   KEY      1424
                                                                                                                 KEY      1425
                                                                                                                 KEY      1426
          1030  0400401030 +             SER      SUBR               ENTRY/EXIT...                               KEY      1427
          1031  6140000000 X                      TAGSEX S.END                                                   KEY      1428
          1033  21652                             AX6    P.TAG                                                   KEY      1429
                     5110000000 X                 SA1    TT.PAR                                                  KEY      1430
                               10566              BX5    X6                                                      KEY      1431
          1034  22406                             LX4    X6                                                      KEY      1432
                     6130000000 X                 SB3    O=QUITP                                                 KEY      1433
          1035  0100001037 +                      RJ     EMT         EMIT  (O=END, =XEND.)                       KEY      1434
          1036  0400001030 +                      EQ     EXIT.                                                   KEY      1435
  
  
  
  
                                        **        EMT -  EMIT *TURPLE* TO DESIGNATED TABLE.                      KEY      1437
                                        *                                                                        KEY      1438
                                        *         ENTRY  (A1,X1) = TABLE *TURPLE* IS TO BE ADDED TO.             KEY      1439
                                        *                (B3) .GE. 0 = MACRO ADDRESS.                            KEY      1440
                                        *                     .LT. 0 = COMPLEMENT OF ADDRESS OF *SETOP* WORD.    KEY      1441
                                        *                (X4) = (1OP).                                           KEY      1442
                                        *                (X5) = (2OP).                                           KEY      1443
                                        *         EXIT   (A1,X1) PRESERVED.                                      KEY      1444
                                        *         USES   A2,A3,A6,A7  B2,B7  X0,X2,X3,X6,X7                      KEY      1445
                                        *         CALLS  ALLOC                                                   KEY      1446
                                                                                                                 KEY      1447
                                                                                                                 KEY      1448
          1037  0400401037 +             EMT      SUBR               ENTRY/EXIT...                               KEY      1449
          1040  7100000003                        ALLOC  A1,L.TURP                                               KEY      1450
          1041  5130000000 X                      SA3    OPDUM                                                   KEY      1451
                          76230                   SX2    B3                                                      KEY      1452
                               10655              BX6    X5                                                      KEY      1453
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    32
                                                                      EMT 
  
          1042  22704                             LX7    X4                                                      KEY      1454
                     57671                        =A6    B7-1        (2OP)                                       KEY      1455
                          20252                   LX2    P.JPAD                                                  KEY      1456
                               55761              =A7    A6-1        (1OP)                                       KEY      1457
          1043  0630001044 +                      PL     B3,EMT2     IF (B3) IS MACRO ADDRESS                    KEY      1458
                          57303                   SA3    -B3                                                     KEY      1459
                               13222              BX2    0                                                       KEY      1460
          1044  12632                    EMT2     BX6    X3+X2                                                   KEY      1461
                     55671                        =A6    A7-1        (OPR)                                       KEY      1462
                          0400001037 +            EQ     EXIT.                                                   KEY      1463
  
  
  
  
                                        **        SPR -  COMPILE TERMINATING/PAUSING INSTRUCTIONS.               KEY      1465
                                        *                                                                        KEY      1466
                                        *         CALLED BY *STOP* AND *PAUSE*.                                  KEY      1467
                                        *                                                                        KEY      1468
                                        *         ENTRY  (B6)  0 IF PAUSE                                        KEY      1469
                                        *                     +1 IF STOP                                         KEY      1470
                                        *                (B4) _ NEXT *SB* ENTRY AFTER KEYWORD                    KEY      1471
                                        *         EXIT   INSTRUCTIONS COMPILED TO LOAD PROPER ARGUMENT.          KEY      1472
                                        *                (X6) = TAG OF ROUTINE TO JUMP TO.                       KEY      1473
                                        *                                                                        KEY      1474
                                        *         THE FIRST ELEMENT AFTER THE KEYWORD MAY BE --                  KEY      1475
                                        *                (A)  EMPTY                                              KEY      1476
                                        *                (B)  A STRING OF AT MOST 5 OCTAL DIGITS.                FCC1046    11
                                        *                (C)  CHARACTER STRING SURROUNDED BY QUOTES (").         KEY      1480
                                                                                                                 KEY      1481
                                        **        PREPARE JUMP TAG FOR APPROPRIATE ROUTINE.                      KEY      1482
                                                                                                                 KEY      1483
                                                                                                                 KEY      1484
          1045  6146000000 X             SPR60    TAGSEX B6+S.PAUSE                                              KEY      1485
          1047  43022                             MX0    L.TAG                                                   KEY      1486
                     11606                        BX6    X0*X6       ISOLATE TAG                                 KEY      1487
                                                                                                                 KEY      1488
          1050  0400401050 +             SPR      SUBR   0                                                       KEY      1489
                                                                                                                 F66FCC    772
                                         #FID     IFEQ   .FID,0                                                  F66FCC    773
                                                  SA1    B4                                                      F66FCC    774
                                         #FID     ELSE                                                           F66FCC    775
          1051  76640                             SX6    B4                                                      F66FCC    776
                     76760                        SX7    B6                                                      F66FCC    777
                          5160001105 +            SA6    SPRA                                                    F66FCC    778
          1052  54761                             =A7    A6+1                                                    F66FCC    779
                     0100000000 X                 RJ     =XCAI       DUMP PARSE FILE TO LONG FILE                F66FCC    780
          1053  5110001105 +                      SA1    SPRA                                                    F66FCC    781
                          63410                   SB4    X1          RESTORE B4 *** ALLOC DOES NOT MOVE *SB* *** F66FCC    782
                               54211              =A2    A1+1                                                    F66FCC    783
          1054  53110                             SA1    X1          (B4)                                        F66FCC    784
                     63620                        SB6    X2                                                      F66FCC    785
                                         #FID     ENDIF                                                          F66FCC    786
                                                                                                                 F66FCC    787
                          0301001073 +            ZR     X1,SPR17    IF ARGUMENT NOT PRESENT                     KEY      1491
          1055  56241                             =A2    B4+1                                                    KEY      1492
                     6221777776                   =B2    X1-O.HOLL                                               KEY      1493
          1056  6231777775                        =B3    X1-O.CONS                                               KEY      1494
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    33
                                                                      SPR 
  
                          0302001060 +            ZR     X2,SPR13    IF *EOS*                                    KEY      1495
          1057  6170000000 X                      WARN   E.XC        ** EXTRA TRAIL GUNK IGNORED **              KEY      1496
          1060  0420001075 +             SPR13    ZR     B2,SPR20    IF HOLLERITH CONSTANT.                      KEY      1497
                          0530001072 +            NZ     B3,SPR15    IF NO DIGITS                                KEY      1498
                                                                                                                 KEY      1499
                                        **        HERE IF SIMPLE ARGUMENT.                                       KEY      1500
                                                                                                                 KEY      1501
          1061  56140                             SA1    B4                                                      KEY      1502
                     43052                        MX0    7*CHAR                                                  KEY      1503
                          11101                   BX1    X0*X1       STRIP OFF TYPE                              KEY      1504
                               43036              MX0    5*CHAR                                                  KEY      1505
          1062  15610                             BX6    -X0*X1                                                  KEY      1506
                     0306001064 +                 ZR     X6,SPR14                                                KEY      1507
          1063  6170000000 X                      WARN   =XE.SPR2                                                KEY      1508
          1064  76700                    SPR14    =X7    M.UNIV                                                  KEY      1509
                     11501                        BX5    X0*X1                                                   FCC1046    12
                          5134777776              SA3    B4-1                                                    FCC1046    13
          1065  0100000000 X                      RJ     =XOCT                                                   FCC1046    14
          1066  0302001070 +                      ZR     X2,SPR14A   IF ALL OCTAL DIGITS                         FCC1046    15
                          6170000000 X            ANSI   =XE.SPR5    NON OCTAL DIGITS                            FCC1046    16
          1070  22605                    SPR14A   LX6    X5                                                      FCC1046    17
                     0100000000 X                 RJ     NCS         SCAN/ENTER INTO CONSTANT TABLE.             KEY      1511
          1071  0400001102 +                      EQ     SPR50       CONTINUE.                                   KEY      1512
                                                                                                                 KEY      1513
                                        **        ILLEGAL ARGUMENT -- FLAG AND TREAT AS NIL.                     KEY      1514
                                                                                                                 KEY      1515
          1072  6170000000 X             SPR15    WARN   E.SPR                                                   KEY      1516
                                                                                                                 KEY      1517
                                        **        NO ARGUMENT CASE -- COMPILE CLEAR OF X1.                       KEY      1518
                                                                                                                 KEY      1519
          1073  7150004000               SPR17    =X5    M.SHORT                                                 FCC1808X    4
                          0100000000 X            RJ     =XESC       PUT ZERO  IN CONSTANTS TABLE                FCC1808X    5
          1074  10655                             BX6    X5          CONSTANT TAG                                FCC1808X    6
                     0400001102 +                 EQ     SPR50                                                   FCC1808X    7
                                                                                                                 KEY      1524
                                                                                                                 KEY      1525
                                        **        HERE IF HOLLERITH CONSTANT FORM                                KEY      1526
                                                                                                                 KEY      1527
          1075  6170000000 X             SPR20    ANSI   =XE.SPR4                                                KEY      1528
          1076  56140                             SA1    B4                                                      KEY      1529
                     10611                        BX6    X1                                                      KEY      1530
                          21122                   AX1    P.LCON                                                  KEY      1531
                               43063              MX0    -L.LCON                                                 KEY      1532
          1077  15110                             BX1    -X0*X1                                                  KEY      1533
                     6221777770                   SB2    X1-7                                                    KEY      1534
          1100  0720001102 +                      MI     B2,SPR50    IF .LE. 7 WORD CONSTANT                     KEY      1535
                          6170000000 X            NOTE   E.SPR1                                                  KEY      1536
                                                                                                                 KEY      1537
                                        **        COMPILE LOAD OF ARGUMENT                                       KEY      1538
                                        *                (X6) = TAG FOR ARGUMENT                                 KEY      1539
                                                                                                                 KEY      1540
          1102  43022                    SPR50    MX0    L.TAG                                                   KEY      1541
                     7110000010 X                 SX1    SA=BKS3+10B                                             KEY      1542
                               11606              BX6    X0*X6                                                   KEY      1543
          1103  12716                             BX7    X1+X6                                                   KEY      1544
                     20760                        LX7    P.LI12                                                  KEY      1545
          1104  6120001045 +                      WCODE  X7,SPR60    COMPILE INSTRUCTION AND EXIT..              KEY      1546
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    34
                                                                      SPR 
  
                                                                                                                 F66FCC    788
                                                                                                                 F66FCC    789
                                         #FID     IFNE   .FID,0,1                                                F66FCC    790
          1105                     2     SPRA     BSS    2           SAVE B4 AND B6                              F66FCC    791
                                                  LIST D                                                         KEY      1547
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ISASG 
             0 X                        PWE 
             0 X                        E.ANS4
             0 X                        ANSI= 
             0 X                        BA.PRO
             0 X                        TLV 
             0 X                        ALC 
             0 X                        TRLINE
             0 X                        FILL.3
             0 X                        E.SU8 
             0 X                        LDRFLG
             0 X                        FV.LGO
             0 X                        WNB=
             0 X                        WTC=
             0 X                        CIO=
             0 X                        T.DLBUF 
             0 X                        CP.LSTF 
             0 X                        WOF 
             0 X                        E.MR3 
             0 X                        E.LV11
             0 X                        STAGE 
             0 X                        CPM=ASF 
             0 X                        E.PT4 
             0 X                        ERT 
             0 X                        O=VOID
             0 X                        CO.ER 
             0 X                        OTROP 
             0 X                        CO.ID 
             0 X                        O=NTRN1 
             0 X                        E.GO1A
             0 X                        E.SPR2
             0 X                        E.SPR5
             0 X                        ESC 
             0 X                        E.SPR4
  
                                        CONTENT OF LITERALS BLOCK.
  
          1107  55021417031304012401     BLOCKDATA
          1110  22052425000000000000    RETU
          1111  22052425221623000000    RETURNS 
          1112  55550625160324111716      FUNCTION
          1113  00000000001404230524         LDSET
          1114  00000017260522140131       OVERLAY
          1115  55555520221707220115       PROGRAM
          1116  23250222172524111605    SUBROUTINE
  
          1117                                    END                                                            KEY      1548
  
                             56100B CM  STORAGE USED             3964 STATEMENTS     1069 SYMBOLS 
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    35
  
  
                               PARALLEL CPU ASSEMBLY            2.967 SECONDS        1231 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/47 X   14/14     16/06     16/52
        AGNK            0   EXTERNAL*       3/19 X    3/52      3/52 S    4/32
        AGN1           11   PROGRAM*        3/44      3/48 L
        AGN11          12   PROGRAM*        3/47      3/49 L
        AGN2           17   PROGRAM*        3/54      4/01 L
        AGN4           24   PROGRAM*        4/08      4/12 L
        AGN5           34   PROGRAM*        4/25      4/28 L
        AGN7           36   PROGRAM*        4/28      4/31 L
        ALC             0   EXTERNAL*       6/17     15/18     26/31     27/56     31/54
        ANSI=           0   EXTERNAL*       4/55      7/49     16/21     21/25     29/18     33/39
                                            5/33     10/30     19/13     27/13     33/20
        ARGCOMA         0   EXTERNAL*       2/17 X    6/13 S    7/04 S    8/03 S    8/31      8/33 S    8/45     29/23 S
        ARGMODE         0   EXTERNAL*       2/17 X    6/14 S   29/24 S
        ASK             0   EXTERNAL*       2/50 X    4/12
        ASL             0   EXTERNAL*       2/50 X    3/36
        ASSIGN=         1   PROGRAM*        3/31 L    3/31 E
        ASSN            0   EXTERNAL*       2/17 X    4/22
        BA.PRO          0   EXTERNAL*       5/04 S
        BKDA           54   PROGRAM*        4/52      5/09 L
        BKD1           50   PROGRAM*        4/54      4/57 L
        BKD2           51   PROGRAM*        4/56      5/03 L
        BLOCKD=        44   PROGRAM*        4/49 L    4/49 E
        CAI             0   EXTERNAL*       3/15 X   29/30     32/46
        CALLARM         0   EXTERNAL*       2/17 X    6/08
        CALLOP          0   EXTERNAL*       2/17 X    7/55      8/27
        CALLTAG         0   EXTERNAL*       3/19 X    5/46 S    6/19      7/08      8/48
        CALL=          56   PROGRAM*        5/17 L    5/17 E
        CCL14          67   PROGRAM*        5/32      5/34 L
        CCNT            0   EXTERNAL*       2/17 X   12/54
        CCT             0   EXTERNAL*       3/22 X    5/29
        CDS             0   EXTERNAL*       3/08 X   16/22
        CHAR            6   TSTEXT          4/04      7/40     10/55     11/38     11/51     12/08     12/10     33/09
                                            7/36      8/06     10/56     11/44     12/05     12/09     12/15     33/11
        CHARMAP         0   EXTERNAL*       2/17 X    8/12      9/05     12/01     27/19
        CIA             0   EXTERNAL*       3/08 X   30/23
        CIO=            0   EXTERNAL*      12/46
        CLL15          76   PROGRAM*        5/49      5/54 L
        CLL20         101   PROGRAM*        5/56      6/04 L
        CLL25         107   PROGRAM*        6/17 L    6/44      6/51      6/53      7/11
        CLL40         115   PROGRAM*        5/55      6/38 L
        CLL41         120   PROGRAM*        6/38      6/48 L
        CLL50         124   PROGRAM*        6/04      6/55 L
        CON           221   PROGRAM*        9/31      9/33 L
        CONTIN=       215   PROGRAM*        9/26 L    9/26 E
        CON15         224   PROGRAM*        9/34      9/38 L
        CO.ER           0   EXTERNAL*      22/56
        CO.ID           0   EXTERNAL*      23/30
        CPM             0   EXTERNAL*       2/47 X   25/07
        CPM=ASF         0   EXTERNAL*      16/28
        CP.LSTF         0   EXTERNAL*      13/05
        CP#RM           0   TSTEXT         12/37 F
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        CRJ             0   EXTERNAL*       3/08 X   18/47     29/50
        CRL           134   PROGRAM*        2/10 E    7/05      7/31 L
        CRLERR        207   PROGRAM*        7/39      7/44      9/05 L
        CRLERR1       211   PROGRAM*        9/06      9/08 L
        CRL10         144   PROGRAM*        7/47      7/49 L
        CRL20         152   PROGRAM*        8/05 L    8/39
        CRL21         157   PROGRAM*        8/13      8/15 L
        CRL30         162   PROGRAM*        8/10      8/20 L
        CRL40         170   PROGRAM*        8/18      8/31 L
        CRL50         177   PROGRAM*        8/42      8/44 L
        CR.AGN          1   TSTEXT          3/38
        CR.CALL         1   TSTEXT          8/20
        CR.GOTO        55   TSTEXT         24/22
        CR.NTR          5   TSTEXT         16/55     16/55
        CR.STR         54   TSTEXT          3/37
        CR.SUB         30   TSTEXT          5/23
        CR.VGOTO        7   TSTEXT         24/26
        CSNTAG          0   EXTERNAL*       2/17 X   26/17
        CST.BOS         0   EXTERNAL*       3/19 X   29/52
        CT.RETN    260006   TSTEXT         20/22     20/51     22/13
        CURST           0   EXTERNAL*       3/11 X   26/43 S
        CUS.RET         0   EXTERNAL*       2/50 X   20/25     20/34     26/23     26/29     26/44
        C.SYM      200000   TSTEXT          8/51
        C.VAR      200000   TSTEXT         15/30     16/51     17/17     22/30     22/46
        DCM             0   EXTERNAL*       2/38 X    5/06     11/06     19/12     31/11
        DOORD           0   EXTERNAL*       2/18 X   19/30
        DTI             0   EXTERNAL*       2/18 X   18/48     25/53
        EMT          1037   PROGRAM*        2/10 E    8/30     17/48     22/15     23/07     23/57
                                            4/35     17/22     20/24     22/37     23/27     31/35
                                            8/01     17/36     21/33     22/52     23/34     31/53 L
        EMT2         1044   PROGRAM*       32/05     32/08 L
        END             0   EXTERNAL*       2/44 X   10/26     10/27     10/29     10/32     10/35
        END1          232   PROGRAM*        9/53     10/06 L
        END1A         235   PROGRAM*       10/07     10/12 L
        END1B         236   PROGRAM*        2/10 E   10/15 L
        END1C         240   PROGRAM*        2/10 E   10/20 L
        END1D         251   PROGRAM*       10/31     10/34 L
        END1E         242   PROGRAM*       10/21     10/24 L
        END=          226   PROGRAM*        9/48 L    9/48 E   20/11
        ENTRY=        427   PROGRAM*       16/19 L   16/19 E
        ENTRY.          0   EXTERNAL*       2/18 X   14/26     17/14     22/45     23/03
        ERROP           0   EXTERNAL*       2/18 X
        ERT             0   EXTERNAL*      16/55
        ESC             0   EXTERNAL*      33/32
        ESY             0   EXTERNAL*       2/47 X   14/10     16/49
        ETF             0   EXTERNAL*       2/18 X   10/50
        EXTCAL          0   EXTERNAL*       2/18 X    6/22
        E.AC5           0   EXTERNAL*       2/25 X    9/11
        E.AC8           0   EXTERNAL*       2/25 X    8/43     27/45
        E.AC9           0   EXTERNAL*       2/25 X    7/48      7/48
        E.AES           0   EXTERNAL*       2/25 X   10/30
        E.ANS           0   EXTERNAL*       2/25 X    7/49     13/34     16/21     19/13     19/13     21/25
        E.ANS4          0   EXTERNAL*       4/55
        E.AP            0   EXTERNAL*       2/25 X    7/53
        E.APR           0   EXTERNAL*       2/30 X
        E.APR1          0   EXTERNAL*       2/30 X
        E.AP1           0   EXTERNAL*       2/25 X    8/41
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    37
        SYMBOLIC REFERENCE TABLE. 
  
        E.ART           0   EXTERNAL*       2/25 X   19/52
        E.AS2           0   EXTERNAL*       2/25 X    4/10
        E.AS3           0   EXTERNAL*       2/26 X    4/26
        E.AS4           0   EXTERNAL*       2/26 X    3/34
        E.AS5           0   EXTERNAL*       2/26 X    3/56
        E.CL            0   EXTERNAL*       2/26 X    5/21
        E.CL1           0   EXTERNAL*       2/26 X    6/57
        E.CL2           0   EXTERNAL*       2/26 X    8/17      8/17
        E.CL3           0   EXTERNAL*       2/32 X    5/33
        E.CT            0   EXTERNAL*       2/26 X    9/38
        E.FM            0   EXTERNAL*       2/26 X    4/39
        E.GO            0   EXTERNAL*       2/26 X   25/04     27/42     29/13
        E.GO1           0   EXTERNAL*       2/26 X   24/23
        E.GO1A          0   EXTERNAL*      27/07
        E.GO2           0   EXTERNAL*       2/27 X   26/21
        E.GO2A          0   EXTERNAL*       2/27 X    9/35     26/22
        E.GO3           0   EXTERNAL*       2/27 X   27/25
        E.GO4           0   EXTERNAL*       2/27 X   29/18
        E.GO5           0   EXTERNAL*       2/27 X   27/13
        E.GO6           0   EXTERNAL*       2/27 X
        E.GO7           0   EXTERNAL*       2/27 X   25/12
        E.GO8           0   EXTERNAL*       2/27 X   27/39     30/17     30/17
        E.LN            0   EXTERNAL*       2/31 X   13/48
        E.LN1           0   EXTERNAL*       2/27 X   14/02
        E.LN2           0   EXTERNAL*       2/28 X   13/53
        E.LN3           0   EXTERNAL*       2/28 X   14/04
        E.LN4           0   EXTERNAL*       2/28 X   15/08
        E.LV11          0   EXTERNAL*      14/48
        E.ME            0   EXTERNAL*       2/28 X   10/13
        E.MR1           0   EXTERNAL*       2/28 X    8/35
        E.MR2           0   EXTERNAL*       2/28 X   13/49
        E.MR3           0   EXTERNAL*      14/21
        E.M$2           0   EXTERNAL*       2/28 X   10/18
        E.M$3           0   EXTERNAL*       2/28 X   13/12
        E.OV            0   EXTERNAL*       2/28 X   11/53
        E.OV1           0   EXTERNAL*       2/29 X   11/55
        E.OV3           0   EXTERNAL*       2/29 X   12/56
        E.PT            0   EXTERNAL*       2/29 X   16/46
        E.PT1           0   EXTERNAL*       2/29 X   16/24
        E.PT2           0   EXTERNAL*       2/29 X   16/33
        E.PT3           0   EXTERNAL*       2/29 X   16/36
        E.PT4           0   EXTERNAL*      16/38
        E.RA            0   EXTERNAL*       2/29 X   21/18
        E.RA1           0   EXTERNAL*       2/29 X   21/23     21/24
        E.SN16          0   EXTERNAL*       2/29 X   10/10     10/10     12/52
        E.SPR           0   EXTERNAL*       2/30 X   33/27
        E.SPR1          0   EXTERNAL*       2/30 X   33/47
        E.SPR2          0   EXTERNAL*      33/14
        E.SPR3          0   EXTERNAL*       2/30 X   18/49
        E.SPR4          0   EXTERNAL*      33/39
        E.SPR5          0   EXTERNAL*      33/20
        E.SU1           0   EXTERNAL*       2/31 X
        E.SU2           0   EXTERNAL*       2/30 X    6/52
        E.SU8           0   EXTERNAL*       8/57
        E.XC            0   EXTERNAL*       2/30 X    9/32     10/22     16/44     21/37
                                            4/29     10/22     16/44     21/13     33/02
        FAL             0   EXTERNAL*       3/11 X    7/10
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    38
        SYMBOLIC REFERENCE TABLE. 
  
        FCT2          261   PROGRAM*       10/52     10/54     11/02     11/04 L
        FILL.           0   EXTERNAL*       2/30 X    8/09 S    9/10 S   12/51 S   27/24 S
                                            4/09 S    8/16 S   10/09 S   16/41 S
        FILL.3          0   EXTERNAL*       8/56 S
        FLOW            0   EXTERNAL*       2/18 X   10/25     16/56     25/37
        FUNCTI=       254   PROGRAM*       10/47 L   10/47 E
        FV.LGO          0   EXTERNAL*      11/49
        F.LGO           0   EXTERNAL*       2/14 X   12/40     12/45     12/46     12/46
        GOASS           0   EXTERNAL*       2/18 X   27/57
        GOTA         1013   PROGRAM*        2/10 E   26/02 S   26/16     26/32     27/53 S   27/55     29/26 S   30/27 L
        GOTARM          0   EXTERNAL*       2/18 X   29/20
        GOTO=         633   PROGRAM*       24/19 L   24/19 E
        GOT10         704   PROGRAM*       24/32     27/04 L
        GOT10A        707   PROGRAM*       27/06     27/08 L
        GOT10B        713   PROGRAM*       27/12     27/15 L
        GOT10C        714   PROGRAM*       27/14     27/17 L
        GOT10D        717   PROGRAM*       27/21     27/23 L
        GOT10E        721   PROGRAM*       27/18     27/26 L
        GOT11         722   PROGRAM*       27/27 L   27/40
        GOT12         730   PROGRAM*       27/38     27/40 L
        GOT13         734   PROGRAM*       27/44     27/52 L
        GOT20         743   PROGRAM*       24/29     29/03 L
        GOT21         744   PROGRAM*       29/07 L   29/11
        GOT23         754   PROGRAM*       29/17     29/20 L
        GOT32         776   PROGRAM*       29/57 L   30/19
        GOT42        1007   PROGRAM*       30/16     30/18 L
        GOT5          641   PROGRAM*       24/31     25/03 L
        GOT6          647   PROGRAM*       25/11     25/13 L
        GOT7          664   PROGRAM*       25/19     25/57 L
        GOT7A         667   PROGRAM*       26/03     26/16 L
        GOT7B         674   PROGRAM*       26/20     26/29 L
        GOT80        1010   PROGRAM*       28/07     30/04     30/23 L
        HANGER          0   EXTERNAL*       2/19 X   20/06 S   26/04 S
        IFREL1          0   EXTERNAL*       2/56 X   20/47     25/42
        IFSN            0   EXTERNAL*       2/56 X   25/57 S   26/19
        INIF            0   EXTERNAL*       2/56 X    9/33     17/05 S   17/44     19/56     21/38     25/14     30/44
        ISASG           0   EXTERNAL*       3/46 S    3/48 S
        ISN             0   EXTERNAL*       3/05 X    3/49      8/24     25/06     27/31     30/06
        I.EQ            4   TSTEXT         17/07     30/11     30/40     30/40
        I.JP            3   TSTEXT         29/37
        LCC           277   PROGRAM*       11/39     11/46 L
        LCC2          304   PROGRAM*       12/01 L   12/19
        LCC3          306   PROGRAM*       12/02     12/05 L
        LCC35         307   PROGRAM*       12/08 L   12/17
        LCC4          312   PROGRAM*       12/13     12/17 L
        LCC6          315   PROGRAM*       12/40 L
        LCC64         327   PROGRAM*       12/49     12/54 L
        LCC66         331   PROGRAM*        2/10 E   13/01 L
        LDEAD           0   EXTERNAL*       2/19 X
        LDRFLG          0   EXTERNAL*      11/48 S
        LDSET=        273   PROGRAM*       11/35 L   11/35 E
        LGR             0   EXTERNAL*       3/02 X    4/01
        LG.STN          5   TSTEXT          8/06
        LG.VAR          7   TSTEXT          7/36
        LOP=M           0   EXTERNAL*       2/14 X    9/51
        LOP=R           0   EXTERNAL*       2/14 X    9/52
        L.CDPC         52   TSTEXT          8/11      9/08     27/20
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    39
        SYMBOLIC REFERENCE TABLE. 
  
        L.FPNO          6   TSTEXT          5/35     14/51
        L.JPAD         22   TSTEXT         20/57
        L.LCON         11   TSTEXT         33/43
        L.LEVN          2   TSTEXT         14/44
        L.LI12         14   TSTEXT         17/07     17/07     30/13     30/42
        L.MODE          3   TSTEXT          5/37      5/39     11/11     22/22
        L.NDIM          6   TSTEXT         15/03
        L.PNT          15   TSTEXT         14/57
        L.SYM          52   TSTEXT          8/54     13/50     14/35     16/39     21/20
        L.TAG          22   TSTEXT          5/37     30/07     32/34     33/52
        L.TURP          3   TSTEXT          6/17     20/56     21/03 S   25/54 S   26/37     28/03     31/54
                                            6/23     21/03     25/51 S   26/31     27/56     31/54
        L.UARGC         6   TSTEXT          6/49
        L.2FPNO         6   TSTEXT         21/26
        MAX.SARG       77   TSTEXT          8/46
        MOD             0   EXTERNAL*       2/19 X   10/24     11/10     16/23     19/31     22/21
        MULS            0   EXTERNAL*       2/19 X   10/15     13/08
        MXP             0   EXTERNAL*       3/16 X    5/22      9/28     26/30     27/54     29/27
        M.ASF        2000   TSTEXT          5/27
        M.BEF         400   TSTEXT          5/27
        M.DEF          10   TSTEXT          4/16      6/40     14/06     14/38     16/47
        M.ENT          40   TSTEXT          5/27     16/47
        M.EXT         100   TSTEXT          5/25
        M.INLINE     4000   TSTEXT          5/27
        M.INT           2   TSTEXT          4/21     27/05
        M.NAML          6   TSTEXT         14/06
        M.NLST       1000   TSTEXT         14/06
        M.NVAR      20000   TSTEXT          5/25     16/47
        M.PBLK        400   TSTEXT          5/03
        M.PFNC       1000   TSTEXT         11/04
        M.PPRO       4000   TSTEXT         19/10
        M.PSUB       2000   TSTEXT         31/09
        M.SHORT      4000   TSTEXT         33/31
        M.SNEX        100   TSTEXT         19/35
        M.SNLAB       200   TSTEXT          3/40      8/23     25/05     25/05     27/30     30/05
        M.SNREF         1   TSTEXT          8/23     25/05     25/05     27/30     30/05
        M.SUB        1000   TSTEXT          5/25
        M.SYSEXT    20100   TSTEXT         29/48     31/29     32/33
        M.UNIV          0   TSTEXT         33/15
        M.VAR       10000   TSTEXT          5/27     14/06
        NAMELI=       340   PROGRAM*       13/32 L   13/32 E
        NAMFP         425   PROGRAM*       14/56 S   15/26     16/10 L
        NAM1          342   PROGRAM*       13/44 L   16/07
        NAM15         351   PROGRAM*       13/55     14/01 L
        NAM2          360   PROGRAM*       14/20 L   16/04
        NAM20         362   PROGRAM*        2/11 E   14/25 L
        NAM20A        367   PROGRAM*       14/29     14/38 L
        NAM20B        375   PROGRAM*       14/42     14/47     14/51 L
        NAM21         413   PROGRAM*       15/29     15/33 L
        NAM22         415   PROGRAM*       15/31     15/38 L
        NAM23         416   PROGRAM*       15/38     15/40 L
        NAM25         417   PROGRAM*       15/44 L   15/48
        NAM3          421   PROGRAM*       14/49     16/01 L
        NARGS           0   EXTERNAL*       2/19 X   17/42     22/44
        NCS             0   EXTERNAL*       2/47 X   33/22
        NOLIST          0   EXTERNAL*       2/22 X    9/50
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    40
        SYMBOLIC REFERENCE TABLE. 
  
        NOPATH          0   EXTERNAL*       2/19 X   16/26 S   21/05 S   25/16 S   30/25 S
                                           10/28     19/41 S   21/41 S   25/34 S   30/47 S
        NOTPRT        335   PROGRAM*       13/06     13/08 L
        NTRCNT          0   EXTERNAL*       2/19 X   17/19 S   23/21     23/45
        NTR14         440   PROGRAM*       16/30     16/32     16/34 L
        NTR2          445   PROGRAM*       16/42     16/45 L
        NTR5          463   PROGRAM*       17/06     17/14 L
        OCT             0   EXTERNAL*       2/53 X   33/18
        OPDUM           0   EXTERNAL*       2/20 X   31/55
        OPRETD          0   EXTERNAL*       2/19 X   22/26
        OPRETS          0   EXTERNAL*       2/19 X   22/32
        OR.OPR          0   TSTEXT          6/26     20/56     26/42     28/06
        OR.1OP          1   TSTEXT          6/25      6/26     26/39     26/42     28/04     28/06
        OR.2OP          2   TSTEXT          6/23     21/03     25/54 S   26/39     28/04
                                            6/25     21/03 S   26/37     28/03
        OTROP           0   EXTERNAL*      23/01
        OVERLA=       276   PROGRAM*       11/42 L   11/42 E
        O=BSS           0   EXTERNAL*       3/14 X   22/12
        O=GOTON         0   EXTERNAL*       3/15 X   26/33
        O=NTR           0   EXTERNAL*       3/14 X   22/47
        O=NTRM          0   EXTERNAL*       3/14 X   23/24
        O=NTRN          0   EXTERNAL*       3/15 X   23/22
        O=NTRN1         0   EXTERNAL*      23/33
        O=NTRP          0   EXTERNAL*       3/14 X   17/46
        O=NTRX          0   EXTERNAL*       3/14 X   23/11     23/46
        O=NTRY          0   EXTERNAL*       3/15 X   23/48
        O=NTR0          0   EXTERNAL*       3/14 X   17/18
        O=QUITP         0   EXTERNAL*       3/15 X   31/34
        O=QUITS         0   EXTERNAL*       3/14 X   20/19
        O=RETN          0   EXTERNAL*       3/14 X   22/49
        O=RTNA          0   EXTERNAL*       3/16 X   21/31
        O=VOID          0   EXTERNAL*      17/30
        O.COMMA        13   TSTEXT          3/53      8/37     27/11     27/41     29/16
                                            6/55     16/03     27/37     29/08
        O.CONS          2   TSTEXT          3/33      8/07     32/57     32/57
        O.GOTO         62   TSTEXT         26/36
        O.HOLL          1   TSTEXT         32/56
        O.IF           41   TSTEXT         25/43
        O.LP           10   TSTEXT          5/54
        O.RP           11   TSTEXT         30/03
        O.SLASH         7   TSTEXT         13/47     14/01
        O.SLP          32   TSTEXT          6/06      6/06
        O.VAR           3   TSTEXT          5/09      5/48     11/21     13/54     21/16
                                            5/20      7/37     13/52     16/37     24/30
        O.(            10   TSTEXT          7/52     11/52     24/24     27/17
        O.)            11   TSTEXT          8/40     27/41     29/12
        PAR             0   EXTERNAL*       3/11 X    6/15     29/28
        PAUSE=        500   PROGRAM*       18/43 L   18/43 E
        PPA             0   EXTERNAL*       2/38 X   19/14
        PROGRA=       505   PROGRAM*       19/08 L   19/08 E
        PSA             0   EXTERNAL*       2/38 X   11/07     31/12
        PSN             0   EXTERNAL*       3/05 X    5/30      9/39     18/50     21/42     26/05     30/45
                                            4/14      6/32     17/43     20/07     25/38     27/28     30/48
                                            4/36      9/36     17/49     21/10     25/55     30/26
        PSP             0   EXTERNAL*       2/50 X    5/07     11/19     16/08     19/15     31/13
        PSP.F           0   EXTERNAL*       2/50 X
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    41
        SYMBOLIC REFERENCE TABLE. 
  
        PWE             0   EXTERNAL*       3/56      6/52      8/57     10/22     16/33     25/12     27/45     33/27
                                            4/10      7/48      9/32     12/52     16/44     26/22     30/17     33/47
                                            4/26      8/17      9/35     13/34     21/13     27/07     33/02
                                            4/29      8/43     10/10     14/48     21/37     27/39     33/14
        P.             73   TSTEXT          5/32     10/26     15/08     19/40     22/25
                                            5/47     14/42     16/24     21/24
        P.ARY          10   TSTEXT         15/05
        P.DEF           3   TSTEXT          5/47
        P.EXT           6   TSTEXT          5/28
        P.FPNO         22   TSTEXT          5/36     14/52     14/55
        P.FUN           7   TSTEXT          5/32
        P.JPAD         52   TSTEXT         20/52     25/44     26/38     32/03
        P.LCON         22   TSTEXT         33/42
        P.LEV           7   TSTEXT         14/42     14/43
        P.LEVN         45   TSTEXT         14/43
        P.LI12         60   TSTEXT         29/39     33/56
        P.LONG          2   TSTEXT         22/29
        P.LTAG         36   TSTEXT         17/07     29/43
        P.NDIM         66   TSTEXT         15/09
        P.PBLK         10   TSTEXT         10/26     10/31
        P.PFNC         11   TSTEXT         22/25     22/29
        P.PNT          30   TSTEXT         14/07     14/55     15/05
        P.PPRO         13   TSTEXT         10/31     16/24     19/40
        P.PTAGL         0   TSTEXT         25/49 F
        P.PTAGM        30   TSTEXT         20/55
        P.RP           16   TSTEXT         21/24
        P.TAG          52   TSTEXT          4/34     16/54     25/17     31/30
        P.TRC          22   TSTEXT         23/06
        P.UARGC        30   TSTEXT          6/48
        P.VDIM         35   TSTEXT         15/08
        P.2FPNO        22   TSTEXT          5/40     21/27
        P.2TAG         52   TSTEXT          8/49     17/20     22/34
        REFNUM          0   EXTERNAL*       2/20 X    3/42 S    8/22 S   24/25 S
        REFVAR          0   EXTERNAL*       2/20 X    3/39 S    5/24 S   24/28 S
        RETURN=       513   PROGRAM*       19/28 L   19/28 E
        RTNCNT          0   EXTERNAL*       2/20 X   20/10     20/54     22/05
        RTN1          517   PROGRAM*       19/32     19/39 L
        RTN2          521   PROGRAM*       19/47 L
        RTN3          522   PROGRAM*       19/51 L   21/14
        RTN4          524   PROGRAM*       19/47     19/56 L
        RTN5          527   PROGRAM*       20/05     20/09 L
        RTN6          535   PROGRAM*       20/12     20/32 L
        RTN8          536   PROGRAM*       19/57     20/43 L
        RTN9          547   PROGRAM*       19/46     21/12 L
        RTN91         552   PROGRAM*       21/12     21/16 L
        RTN93         554   PROGRAM*       21/17     21/20 L
        RTN96         567   PROGRAM*       21/36     21/38 L
        RTN98         571   PROGRAM*       21/39     21/42 L
        RTU           572   PROGRAM*        2/10 E   22/04 L
        RTU2          577   PROGRAM*       22/07     22/21 L
        RTU3          605   PROGRAM*       22/31     22/34 L
        RTU4          607   PROGRAM*       22/28     22/44 L
        RTU5          612   PROGRAM*       22/48     22/50 L
        RTU55         617   PROGRAM*       22/57     23/09 L
        RTU6          622   PROGRAM*       23/23     23/25 L
        RTU7          625   PROGRAM*       23/31     23/35 L
        RTU8          627   PROGRAM*       23/12     23/47     23/54 L
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    42
        SYMBOLIC REFERENCE TABLE. 
  
        RUN5            0   EXTERNAL*       2/35 X   11/50     13/09
        SAVEX5        213   PROGRAM*        7/33 S    8/44      9/13 L
        SA=BKS3         0   EXTERNAL*       3/15 X   33/53
        SB.STNL         0   EXTERNAL*       2/20 X   10/06     12/48
        SCR             0   EXTERNAL*       3/19 X    7/07 S   11/54 S   12/42     12/45
        SER          1030   PROGRAM*       10/34     19/51     31/28 L
        SLIST           0   EXTERNAL*       2/22 X
        SPR          1050   PROGRAM*       18/46     30/39     32/37 L
        SPRA         1105   PROGRAM*       32/44 S   32/47     34/04 L
        SPR13        1060   PROGRAM*       33/01     33/03 L
        SPR14        1064   PROGRAM*       33/13     33/15 L
        SPR14A       1070   PROGRAM*       33/19     33/21 L
        SPR15        1072   PROGRAM*       33/04     33/27 L
        SPR17        1073   PROGRAM*       32/54     33/31 L
        SPR20        1075   PROGRAM*       33/03     33/39 L
        SPR50        1102   PROGRAM*       33/23     33/34     33/46     33/52 L
        SPR60        1045   PROGRAM*       32/33 L   33/57
        SSY             0   EXTERNAL*       2/47 X   14/03     16/45     21/22
        STAGE           0   EXTERNAL*      16/27
        STN             0   EXTERNAL*       2/20 X    9/30     25/09     27/33     30/10
        STN0R           0   EXTERNAL*       3/05 X   25/08     27/32     30/09
        STOP=        1015   PROGRAM*       30/36 L   30/36 E
        STY             0   EXTERNAL*       2/53 X   11/03
        SUBROU=      1024   PROGRAM*       31/07 L   31/07 E
        SVALUE.       271   PROGRAM*        2/10 E   11/08     11/21 L   14/36
        S=PAU           0   TSTEXT         18/45
        S=STOP          1   TSTEXT         30/38
        S.ACGOR         0   EXTERNAL*       2/53 X   29/48
        S.END           0   EXTERNAL*       2/53 X   31/29     31/29
        S.PAUSE         0   EXTERNAL*       2/53 X   32/33
        TEST            0   TSTEXT         18/19 F
        TG.PRO          0   EXTERNAL*       2/21 X   16/57     17/29     20/43     25/35     29/36
        TLV             0   EXTERNAL*       5/51     13/56
        TO              0   EXTERNAL*       3/02 X    4/02
        TO=            42   PROGRAM*        4/38 L    4/38 E
        TP=DO           0   EXTERNAL*       2/21 X    3/43     16/31
        TP=NLST         0   EXTERNAL*       2/22 X   14/05     15/15
        TP.DIM          0   EXTERNAL*       2/21 X   14/53     15/19
        TP.NLST         0   EXTERNAL*       2/21 X   14/14     14/14     15/18     16/06     16/06
        TRLINE          0   EXTERNAL*       6/18     29/49
        TRV             0   EXTERNAL*       2/53 X    4/13     11/09     14/24     27/04
        TSF             0   EXTERNAL*       2/53 X    5/25     29/48     31/29     32/33
        TS.ENT          0   EXTERNAL*       2/21 X   16/52     16/52
        TS.STN          0   EXTERNAL*       2/21 X   19/33
        TS.SYM          0   EXTERNAL*       2/20 X    5/57      8/50     14/03     16/45
                                            4/15      6/39     11/13     14/25     21/22
        TT=PAR          0   EXTERNAL*       2/21 X   20/46     25/46
        TT=SCR          0   EXTERNAL*       2/22 X    6/09      7/01
        TT.PAR          0   EXTERNAL*       2/20 X    6/17     17/35     20/21     21/30     25/41     27/56
                                            4/31     17/21     17/47     20/44     22/06     26/31     31/31
        TT.SCR          0   EXTERNAL*       2/22 X    7/57      8/29
        T.DLBUF         0   EXTERNAL*      13/01
        T.VDIM          0   EXTERNAL*       2/21 X   23/54
        VALUE.          0   EXTERNAL*       2/22 X   11/18 S   14/30     22/24
        VEL             0   EXTERNAL*       3/16 X    7/09
        WIN             0   EXTERNAL*       2/41 X   17/07     29/45     29/46     30/14     30/43     33/57
        WNB=            0   EXTERNAL*      12/40
1       /KEY  KEYWORD STATEMENT PROCESSORS                            COMPASS 3.7-871.     24/05/02. 15.51.59.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        WOF             0   EXTERNAL*      13/07
        WTC=            0   EXTERNAL*      12/45
        ZERO            0   EXTERNAL*       3/15 X
        .CMLOD          0   TSTEXT         12/25 F
        .FID            1   TSTEXT         23/29 F   32/39 F   34/03 F
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      214              IDENT  IF 
                        214                       END 
  
  
                                        ENTRY POINTS. 
  
                                        INIF           202+           IFRESLT        205+           IFS11           15+ 
                                        IFSN           207+           IFMOD          204+ 
                                        IFREL1         206+           IFS              0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ARGCOMA   NOPATH    E.IF4     IFS.X     IFE1N     STDIF     E.IF1     E.IF11
                                        ARGMODE   REFVAR    E.IF5     CSB       IFI111    MXP       E.IF12    E.IF9 
                                        CSNTAG    TT.PAR    E.IF6     CST       IFLN2     TT=PAR    E.IF13
                                        DTI       TG.PRO    E.IF7     PSN       IFL1N     LDEAD     ALC 
                                        FIRSTV    E.IF      FILL.     ISN       IFL12     PWE       FLOW
                                        HANGER    E.IF2     E.IF8     PAR       IFBASE    E.MDO     ANSI= 
                                        IFARM     E.IF3     CUS.RET   IFEN2     NSTDIF    E.IF10    E.FM
  
  
  
  
                                                  IDENT  IF                                                      IF          2
                                         IF       SECT   (*IF* STATEMENT PROCESSORS),1                           IF          3
  
                                                                                                                 IF          4
                                                  SST    B,D,EXIT.                                               IF          5
                                                  NOREF  B,D,EXIT.                                               IF          6
                                                                                                                 IF          7
                                         B=IF     RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     IF          8
                                                                                                                 IF          9
                                                  ENTRY  INIF,IFSN,IFREL1,IFRESLT,IFMOD,IFS,IFS11                FCC0616    22
                                                                                                                 IF         13
                                        *         IN TABLES                                                      IF         14
                                                  EXT    ARGCOMA,ARGMODE,CSNTAG,DTI,FIRSTV,HANGER,IFARM,NOPATH   IF         15
                                                  EXT    REFVAR,TT.PAR,TG.PRO                                    IF         16
                                                                                                                 IF         17
                                        *         IN ERRORS                                                      IF         18
                                                  EXT    E.IF,E.IF2,E.IF3,E.IF4,E.IF5,E.IF6,E.IF7                IF         19
                                                  EXT    FILL.                                                   IF         20
                                                  EXT    E.IF8                                                   IF         21
                                                                                                                 IF         22
                                        *         IN MAIN                                                        IF         23
                                                  EXT    CUS.RET,IFS.X,CSB,CST                                   IF         24
                                                                                                                 IF         25
                                        *         IN NUM                                                         IF         26
                                                  EXT    PSN,ISN                                                 IF         27
                                                                                                                 IF         28
                                        *         IN PAR                                                         IF         29
                                                  EXT    PAR                                                     IF         30
                                                                                                                 IF         31
                                        *         IN GEN                                                         IF         32
                                                  EXT    IFEN2,IFE1N,IFI111,IFLN2,IFL1N,IFL12,IFBASE             IF         33
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     2
  
  
                                                  EXT    NSTDIF,STDIF,MXP                                        IF         34
                                                                                                                 IF         35
  
  
  
  
                                        **        IFS -  PROCESS *IF* STATEMENT.                                 IF         37
                                        *         ENTRY  B4 - *(* FOLLOWING *IF*                                 IF         38
                                                                                                                 IF         39
                                                                                                                 IF         40
             0  0100000000 X             IFS      RJ     MXP         MARK EXTERNAL PROCESS                       IF         41
             1  66200                             =B2    0           NORMAL MODE                                 IF         42
                     66441                        =B4    B4+1        SET PAST *IF* IN *SB*.                      IF         43
                          7160000032              =X6    O.SLP                                                   IF         44
             2  56640                             SA6    B4          DUMMY TO SET UP PARSED MODE.                IF         46
                     5120000000 X                 SA2    IFARM                                                   IF         48
                               76700              =X7    0                                                       IF         49
             3  10622                             BX6    X2                                                      IF         50
                     5170000000 X                 SA7    ARGCOMA                                                 IF         51
             4  5160000000 X                      SA6    ARGMODE                                                 IF         52
                          5170000206 +            SA7    IFREL1      CLEAR ONE RELATIONAL *IF* CELL              IF         53
                                                                                                                 IF         54
             5  0100000000 X                      RJ     PAR         PARSE IT...                                 IF         55
                                                                                                                 IF         56
                                        **        RETURN FROM PARSER WITH *B4* _ CLOSING *)* OF *IF*             IF         57
                                        *         (IFMOD) = RESULTANT MODE OF *IF* EXPRESSION                    IF         58
                                        *         (IFRESLT) = RESULT EXPRESSION TAG, EITHER AN INTERMEDIATE OR   IF         59
                                        *                     SIMPLE VARIABLE                                    IF         60
                                                                                                                 IF         61
             6  5114000001                        SA1    B4+1                                                    IF         62
                          43052                   MX0    L.SYM                                                   IF         63
                               66441              =B4    B4+1        POINT TO 1ST OF OBJECT                      IF         64
             7  0301000000 X                      ZR     X1,E.IF     IF MISSING OBJECT OF *IF*                   IF         65
                          6221777775              =B2    X1-O.CONS                                               IF         66
            10  11601                             BX6    X0*X1                                                   IF         67
                     5160000000 X                 SA6    FILL.       RESET FILL.                                 IF         68
            11  5120000204 +                      SA2    IFMOD                                                   IF         69
                          5160000000 X            SA6    FIRSTV      RESET FIRST VARIABLE FOR *CST*              IF         70
            12  0420000043 +                      ZR     B2,IFS40    IF OBJECT OF *IF* IS A STATEMENT NUMBER     IF         71
                          6272777776              SB7    X2-M.LOG                                                IF         72
            13  0470000014 +                      ZR     B7,IFS10    IF *LOGICAL* (ONE BRANCH) *IF*              IF         73
                                                                                                                 IF         74
                                        **        IF EXPRESSION NOT LOGICAL, YET SINGLE BRANCH SPECIFIED         IF         75
                                        *         OUTPUT *ANSI* ERROR AND HANDLE LIKE *3600* - ONE BRANCH *IF*   IF         76
                                                                                                                 IF         77
                          0400000000 X            EQ     =XE.IF9     ARITHMETIC IF CANNOT HAVE STMT AS OBJECT    IF         78
            14  5120000202 +             IFS10    SA2    INIF                                                    FCC0616    23
                          0312000000 X            NZ     X2,=XE.IF11       IF LOGICAL IF IS OBJECT OF IF         IF         80
            15  0100000000 X             IFS11    RJ     CST                                                     IF         81
            16  0750000000 X                      MI     B5,=XE.FM   IF UNRECOGNIZABLE STATEMENT                 IF         82
                          10655                   BX6    X5                                                      IF         83
            17  5060000003                        SA6    "SB.KEY"                                                IF         84
                          10055                   BX0    X5                                                      IF         85
            20  7140000000 X                      SX4    IFLN2                                                   IF         86
                          7150000000 X            SX5    IFL1N       OPPOSITE LOGIC IF ONE BRANCH                IF         87
            21  20036                             IFBIT  X0,-SNIF,IFS12                                          IF         88
            22  0400000000 X                      EQ     E.IF6       OBJECT NOT ALLOWED. (RETURN TO PSN)         IF         89
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     3
                                                                      IFS 
  
                                                                                                                 IF         90
                                        **        HERE IF LOGICAL *IF* AND OBJECT IS LEGAL. *IF(L)N,2            IF         91
                                        *         (LOGICAL = 1 BRANCH IF...)                                     IF         92
                                        *         WHERE 2 IS EITHER A PROGRAMMER DEFINED LABEL OR ONE GENERATED  IF         93
                                        *         BY THE COMPILER TO JUMP TO.                                    IF         94
                                        *                IE.  IF(EXP) 1,2     EQUIVALENT   IF(EXP)C=D            IF         95
                                        *                   1  C=D                      2  X=Y                   IF         96
                                        *                   2  X=Y                                               IF         97
                                                                                                                 IF         98
            23  5110000000 X             IFS12    SA1    DTI                                                     IF         99
                          0301000027 +            ZR     X1,IFS15    IF NOT *DO* TERMINATOR.                     IF        100
            24  20073                             IFBIT  X0,-SDON/SNIF,IFS15                                     IF        101
            25  6170000000 X                      ANSI   E.IF2       OBJECT OF IF IS ILLEGAL DO TERMINATOR       IF        102
            26  7140000000 X                      SX4    IFLN2                                                   FCC0743    11
                          7150000000 X            SX5    IFL1N       OPPOSITE LOGIC IF ONE BRANCH                FCC0743    12
            27  5110000000 X             IFS15    SA1    =XFLOW                                                  IF        105
                          0311000000 X            NZ     X1,IFS.X    IF NO PATH                                  IF        106
            30  5110000000 X                      ALLOC  TT.PAR,L.TURP                                           IF        107
                                                                                                                 IF        108
                                        **        (X4) = ADDRESS OF SKELETON FOR *IF* CODE.                      IF        109
                                        *         (B7) = LWA+1                                                   IF        110
                                                                                                                 IF        111
            32  5120000206 +                      SA2    IFREL1                                                  IF        112
                          0302000034 +            ZR     X2,IFS17    IF NOT SPECIAL ONE BRANCH *IF*              IF        113
            33  73520                             SX5    X2          OPPOSITE LOGIC                              IF        114
                     21222                        AX2    18                                                      IF        115
                          73420                   SX4    X2                                                      IF        116
            34  10755                    IFS17    BX7    X5                                                      IF        117
                     20452                        LX4    P.JPAD                                                  IF        118
                          5110000000 X            SA1    TG.PRO                                                  IF        119
            35  54720                             SA7    A2          OPPOSITE LOGIC MACRO ADDRESS                IF        120
                     5150000205 +                 SA5    IFRESLT                                                 IF        121
                               73711              =X7    X1+1                                                    IF        122
            36  10655                             BX6    X5                                                      IF        123
                     10077                        BX0    X7                                                      IF        124
                          54710                   SA7    A1          RESET GENERATED ST-NO CELL.                 IF        125
                               20030              LX0    P.PTAGM                                                 IF        126
            37  5170000202 +                      SA7    INIF        INDICATE DELAYED STORE *BSS* NEEDED         IF        127
                          36707                   IX7    X0+X7       BROADCAST TAG                               IF        129
                               57771              =A7    B7-1        OR.2OP = JUMP ADDRESS                       IF        130
            40  7130000041                        SX3    O.IF                                                    IF        131
                          55671                   =A6    A7-1        RESULTS OF *IF* EXPRESSION = OR.1OP         IF        132
                               36734              IX7    X3+X4                                                   IF        133
            41  13222                             BX2    0           INDICATE NO LOCATION TAG.                   IF        134
                     55761                        =A7    A6-1        (OR.OPR) = OPERATOR (CONTAINS DUMMY 1ST.)   IF        135
                          0100000000 X            RJ     CSB         CHECK FOR SEQUENCE BREAK DUE TO OBJECT      IF        136
            42  0400000000 X                      EQ     IFS.X       RETURN TO MASTER LOOP.                      IF        137
                                                                                                                 IF        138
                                        **        HERE IF OBJECT OF *IF* MUST BE A STATEMENT NUMBER.             IF        139
                                        *         ENTRY  (B4) _ 1ST STATEMENT NUMBER.                            IF        140
                                        *                SAVE STATEMENT NUMBERS IN IFSN AND RETURN TO MASTER     IF        141
                                        *                LOOP TO GET NEXT EXECUTABLE STATEMENT.                  IF        142
                                        *                                                                        IF        143
                                        *                RETURN TO IFS50 AND SET-UP SKELETON MACRO FOR PROPER    IF        144
                                        *                JUMP FOR *IF*.                                          IF        145
                                                                                                                 IF        146
                                                                                                                 IF        147
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     4
                                                                      IFS 
  
            43  5110000202 +             IFS40    SA1    INIF                                                    FCC0616    24
                          10611                   BX6    X1                                                      IF        149
            44  5160000203 +                      SA6    IFNEST                                                  IF        150
                          7160000003              =X6    CR.IFN                                                  IF        151
            45  6160000000                        SB6    0                                                       IF        152
                          5160000000 X            SA6    REFVAR      INDICATE OBJECT OF IF REFERENCE.            IF        153
            46  56140                             SA1    B4          PRELOAD 1ST STATEMENT NUMBER.               IF        154
                     6150000003                   =B5    3           MAXIMUM NUMBER OF STATEMENT LABELS POSSIBLE IF        155
                                                                                                                 IF        156
                                        **        IDENTIFY STATEMENT LABELS.                                     IF        157
                                                                                                                 IF        158
            47  66441                    IFS42    =B4    B4+1                                                    IF        159
                     6120000201                   =B2    M.SNLAB+M.SNREF                                         IF        160
                               10611              BX6    X1                                                      IF        161
            50  0100000000 X                      RJ     ISN         IDENTIFY STATEMENT NUMBER.                  IF        162
            51  21652                             AX6    P.TAG       WANT TAG ONLY                               IF        163
                     56140                        SA1    B4                                                      IF        164
                          5166000207 +            SA6    B6+IFSN     SAVE TAG.                                   IF        165
            52  6221777764                        =B2    X1-O.COMMA                                              IF        166
                          66661                   =B6    B6+1                                                    IF        167
            53  0301000057 +                      ZR     X1,IFS45    IF *EOS*                                    IF        168
                          0520000000 X            NZ     B2,E.IF3    IF MISSING COMMA SEPARATOR                  IF        169
            54  66441                             =B4    B4+1                                                    IF        170
                     56140                        SA1    B4          NEXT STATEMENT NUMBER.                      IF        171
                          0301000000 X            ZR     X1,=XE.IF13 IF *EOS*                                    FCC1703X    6
            55  0565000047 +                      NE     B6,B5,IFS42 LOOP ON NEXT NUMBER.                        IF        172
                                                                                                                 IF        173
                          67441                   =B4    B4-1                                                    FCC1238     5
                               56140              SA1    B4          TEST FOR CLEAN STATEMENT ENDING             FCC1238     6
            56  0311000000 X                      NZ     X1,E.IF3    IF NOT *EOS*                                FCC1238     7
                                        **        GO OFF TO HANGER PROCESSING.                                   IF        174
                                                                                                                 IF        175
            57  76600                    IFS45    =X6    0                                                       IF        176
                     6176777774                   SB7    B6-3                                                    IF        178
                               54661              =A6    A6+1        INDICATE END OF TABLE                       IF        179
            60  0770000063 +                      MI     B7,IFS46    IF LESS THAN 3 LABELS                       IF        180
                          5110000204 +            SA1    IFMOD                                                   IF        181
            61  6271777776                        SB7    X1-M.LOG                                                IF        182
                          0570000070 +            NZ     B7,IFS47    IF NOT LOGICAL IF                           IF        183
            62  0400000000 X                      EQ     =XE.IF12    3 LABELS ON LOGICAL IF                      IF        184
                                                                                                                 IF        185
            63  74460                    IFS46    SX4    A6          SAVE *A6*                                   FCC0575     5
                     6170000000 X                 ANSI   =XE.IF1                                                 FCC0575     6
            65  53640                             SA6    X4          RESTORE *A6*                                FCC0575     7
                     5016777775                   SA1    A6-2                                                    FCC0481     6
            66  0461000000 X                      EQ     B6,B1,=XE.IF10    IF ONLY ONE LABEL                     IF        187
                          10611                   BX6    X1                                                      IF        188
                               76700              =X7    0                                                       IF        190
            67  54660                             SA6    A6          SET 3RD = 1ST                               IF        191
                     54761                        =A7    A6+1                                                    IF        192
                                                                                                                 FCC0743    13
            70  5110000000 X             IFS47    SA1    DTI                                                     FCC0743    14
                          7170000077 +            SX7    IFS50       (X7) = RETURN ADDR FOR *HANGER*             FCC0743    15
            71  76600                             =X6    0                                                       FCC0481     8
                     5110000000 X                 SA1    =XFLOW                                                  FCC2175     9
            72  0301000073 +                      ZR     X1,IFS48    IF NOT DEAD CODE                            FCC2175    10
                          7170000000              SX7    0           ELSE NO HANGING PROCESS                     FCC2175    11
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     5
                                                                      IFS 
  
            73  5170000000 X             IFS48    SA7    HANGER      SET RETURN ADDRESS                          FCC2175    12
                          5110000000 X            SA1    DTI                                                     FCC2175    13
            74  5160000202 +                      SA6    INIF        INDICATE TO *PSN* NO TAG NECESSARY          IF        196
                          0301000000 X            ZR     X1,PSN      IF NOT DO TERMINAL                          FCC0743    16
            75  6170000000 X                      FATAL  =XE.MDO     *ILLEGAL DO TERMINAL*                       FCC0743    17
            76  0400000000 X                      EQ     PSN         RETURN FOR NEXT EXECUTABLE STATEMENT.       IF        197
                                                                                                                 IF        198
                                        **        HERE WITH NEXT EXECUTABLE STATEMENT.                           IF        199
                                                                                                                 IF        200
            77  76700                    IFS50    =X7    0                                                       IF        201
                     5110000211 +                 SA1    IFSN+2      PRELOAD *3RD* STATMENT NUMBER               IF        202
           100  5170000000 X                      SA7    HANGER                                                  IF        203
                          22601                   LX6    X1          SAME *3RD* NUMBER                           IF        204
           101  5140000000 X                      SA4    CSNTAG      NEXT EXECUTABLE STATEMENT TAG.              IF        205
                          6140000004              SB4    3+1                                                     IF        206
                                                                                                                 IF        207
           102  67441                    IFS52    =B4    B4-1                                                    IF        208
                     37014                        IX0    X1-X4       COMPARE *IF* NUMBER TO UPCOMING NUMBER      IF        209
                          55111                   =A1    A1-1        LOAD NEXT NUMBER                            IF        210
           103  0310000107 +                      NZ     X0,IFS53    IF NOT MATCH                                FCC2175    14
                          5110000000 X            SA1    =XFLOW                                                  FCC2175    15
           104  0301000110 +                      ZR     X1,IFS60    IF NOT DEAD CODE                            FCC2175    16
                          5110000000 X            SA1    =XLDEAD     ELSE RESET PARSE-FILE                       FCC2175    17
           105  7160000006                        SX6    6B          LENGTH                                      FCC2175    18
                          37616                   IX6    X1-X6                                                   FCC2175    19
           106  5160000000 X                      SA6    =XTT=PAR                                                FCC2175    20
           107  0540000102 +             IFS53    NZ     B4,IFS52    IF NOT END OF TABLE                         FCC2175    21
                                                                                                                 IF        213
                                        **        SET-UP JUMP FOR COMPILING CODE FOR IF-JUMP.                    IF        214
                                                                                                                 IF        215
           110  5110000207 +             IFS60    SA1    IFSN        1ST                                         IF        216
                          76540                   SX5    B4          SET UPCOMING STATEMENT NUMBER FLAG          IF        217
                               54211              =A2    A1+1        2ND                                         IF        218
           111  13777                             BX7    0                                                       IF        219
                     37316                        IX3    X1-X6       1ST-3RD                                     IF        220
                          0313000113 +            NZ     X3,IFS61    IF 1ST"3RD                                  IF        221
           112  7277000003                        SX7    X7+3                                                    IF        222
           113  13026                    IFS61    BX0    X2-X6       2ND-3RD                                     IF        223
                     0310000115 +                 NZ     X0,IFS62    IF 2ND"3RD                                  IF        224
           114  7277000002                        SX7    X7+2                                                    IF        225
           115  37012                    IFS62    IX0    X1-X2       1ST-2ND                                     IF        226
                     0310000116 +                 NZ     X0,IFS63    IF 1ST"2ND                                  IF        227
                               73771              =X7    X7+1                                                    IF        228
                                                                                                                 IF        229
                                        **        HERE WITH                                                      IF        230
                                        *         (X7) = 0 = 1ST"2ND"3RD       (X5)  1 = 1ST = N                 IF        231
                                        *                1 = 1ST=2ND                 2 = 2ND = N                 IF        232
                                        *                2 = 2ND=3RD                 3 = 3RD = N                 IF        233
                                        *                3 = 3RD=1ST                 0 = N NOT REFERENCED.       IF        234
                                        *                6 = 1ST=2ND=3RD                                         IF        235
                                                                                                                 IF        236
           116  5110000203 +             IFS63    SA1    IFNEST                                                  FCCA463     6
                          0311000120 +            NZ     X1,IFS64    IF APPENDED TO LOGICAL IF                   FCCA463     7
           117  7160000001                        SX6    1                                                       FCCA463     8
                          5160000000 X            SA6    NOPATH                                                  FCCA463     9
           120  6237777771               IFS64    SB3    X7-6                                                    FCCA463    10
                          0530000130 +            NZ     B3,IFS70    IF NO POSSIBLE NULL-TRANSFER.               IF        238
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     6
                                                                      IFS 
  
           121  0305000124 +                      ZR     X5,IFS65    IF NOT NULL TRANSFER.                       IF        239
                          6170000000 X            WARN   E.IF5       DO NOTHING STATEMENT.                       IF        240
           123  0400000000 X                      EQ     CUS.RET     FINISH PROCESSING HANGER.                   IF        241
                                                                                                                 IF        242
           124  7130000000 X             IFS65    SX3    IFI111                                                  FCC0903     6
                          5110000203 +            SA1    IFNEST                                                  FCC0903     7
           125  0311000162 +                      NZ     X1,IFS90    IF APPENDED TO LOGICAL IF                   FCC0903     8
                          6170000000 X            WARN   E.IF4                                                   FCC0903     9
           127  0400000162 +                      EQ     IFS90       CONTINUE.                                   IF        247
                                                                                                                 IF        248
           130  5110000204 +             IFS70    SA1    IFMOD                                                   IF        249
                          6160000000 X            SB6    STDIF                                                   IF        250
           131  6271777776                        SB7    X1-M.LOG                                                IF        251
                          66300                   =B3    0                                                       IF        252
           132  0570000143 +                      NZ     B7,IFS71    IF NOT LOGICAL *IF*                         IF        253
                          6275777774              SB7    X5-3                                                    IF        254
           133  5110000206 +                      SA1    IFREL1                                                  IF        255
                          0770000135 +            MI     B7,IFS72    IF NOT DUMMY *3RD* NUMBER                   IF        256
           134  76510                             =X5    1                                                       IF        257
           135  5235000140 +             IFS72    SA3    X5+LGIF     LOAD *LOGICAL* *IF* SKELETON ADDRESS        IF        258
                          0301000162 +            ZR     X1,IFS90    IF MORE THAN ONE RELATIONAL IN *IF*         IF        259
           136  21322                             AX3    18          GET SHIFT COUNT                             IF        260
                     63730                        SB7    X3                                                      IF        261
                          23371                   AX3    B7,X1                                                   IF        262
           137  0400000162 +                      EQ     IFS90       CONTINUE                                    IF        263
                                                                                                                 IF        264
                                        **        TABLE OF LOGICAL 2 BRANCH IF MACRO ADDRESSES                   IF        265
                                                                                                                 IF        266
           140  00000000000044000000 X   LGIF     VFD    24/0,18/36,18/IFL12                                     IF        267
           141  00000000000022000000 X            VFD    24/0,18/18,18/IFLN2                                     IF        268
           142  00000000000000000000 X            VFD    24/0,18/00,18/IFL1N                                     IF        269
                                                                                                                 IF        270
           143  0305000147 +             IFS71    ZR     X5,IFS80    IF NO REFERENCE TO UPDCOMING STATMENT NUM   IF        271
                          6265000003 X            SB6    X5+STDIF+3                                              IF        272
           144  0307000147 +                      ZR     X7,IFS80    IF ONLY ONE REFERENCE AND NOT 2 ALIKE.      IF        273
                          6160777773 X            SB6    NSTDIF-4                                                IF        274
           145  73771                             =X7    X7+1                                                    IF        275
                     66310                        =B3    1                                                       IF        276
                          6225777774              SB2    X5-3                                                    IF        277
           146  20701                             LX7    1           *2                                          IF        278
                     0620000147 +                 PL     B2,IFS80    IF *N* IS *3RD* NUMBER IN *IF*              IF        279
                               66300              =B3    0                                                       IF        280
                                                                                                                 IF        281
                                        **        HERE WITH                                                      IF        282
                                        *         (B3) = OFFSET FOR STATEMENT NUMBER CONFIGURATION.              IF        283
                                        *         (B6) = BASE TABLE TO USE.                                      IF        284
                                        *         (X7) = SPECIAL OFFSET WHEN *N* IS ONE OF STATEMENT NUMBERS.    IF        285
                                                                                                                 IF        286
           147  5120000204 +             IFS80    SA2    IFMOD                                                   IF        287
                          63373                   SB3    X7+B3       TABLE ADDRESS.                              IF        288
                               43010              MX0    8                                                       IF        289
           150  7262777772                        SX6    X2-M.CPLX                                               IF        290
                          20203                   LX2    3           *8                                          IF        291
                               56136              SA1    B3+B6       LOAD JUMP TABLE WORD.                       IF        292
           151  63220                             SB2    X2                                                      IF        293
                     22321                        LX3    X1,B2                                                   IF        294
                          11203                   BX2    X0*X3       EXTRACT RELATIVE SKELETON ADDRESS           IF        295
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     7
                                                                      IFS 
  
           152  0306000155 +                      ZR     X6,IFS82    IF EXPRESSION IS COMPLEX MODE               IF        296
                          0322000160 +            PL     X2,IFS85    IF NO ERROR                                 IF        297
           153  6170000000 X                      FATAL  E.IF7       BRANCH IF NOT ALLOWED WITH LOGICAL RESULT   IF        298
           154  0400000000 X                      EQ     CUS.RET     RETURN TO FINISH PROCESSING HANGER          IF        299
                                                                                                                 IF        300
           155  22602                    IFS82    LX6    X2                                                      IF        301
                     5160000213 +                 SA6    IFSA                                                    IF        302
           156  6170000000 X                      ANSI   E.IF8       ONLY REAL PART WILL BE USED                 IF        303
           157  5120000213 +                      SA2    IFSA                                                    IF        304
           160  20210                    IFS85    LX2    8                                                       IF        305
                     5110000000 X                 SA1    =XFLOW                                                  IF        306
           161  7232000000 X                      SX3    X2+IFBASE                                               IF        307
                          0311000000 X            NZ     X1,CUS.RET  IF NO PATH                                  IF        308
                                                                                                                 IF        309
                                        **        SET-UP PARSED FILE ENTRY.                                      IF        310
                                        *         (X3) = *IF*S SKELETON ADDRESS.                                 IF        311
                                        *         (IFSN) = TAGS FOR JUMPS.                                       IF        312
                                        *                                                                        IF        313
                                        *         GENERAL FORM OF A 3-BRANCH *IF* MACRO                          IF        314
                                        *                                                                        IF        315
                                        *         OR.OPR = MACRO SKELETON ADDRESS                                IF        316
                                        *         OR.1OP = TEST OPERAND FOR JUMPS (EITHER INTERMEDIATE OR        IF        317
                                        *                  SIMPLE OPERAND.)                                      IF        318
                                        *         OR.2OP = L.PTAGU/3RD JUMP,L.PTAGM/2ND JUMP,L.PTAGL/1ST JUMP    IF        319
                                                                                                                 IF        320
           162  73630                    IFS90    SX6    X3                                                      IF        321
                     5110000000 X                 SA1    TT.PAR                                                  IF        322
           163  5160000213 +                      SA6    IFSA        SAVE *SKELETON* ADDRESS                     IF        323
                          7100000003              ALLOC  A1,L.TURP                                               IF        324
           165  5110000000 X                      SA1    =XFLOW                                                  FCC2175    22
                          0301000170 +            ZR     X1,IFS92    IF NOT DEAD CODE                            FCC2175    23
           166  5110000000 X                      SA1    =XTT=PAR    ELSE RESET PARSE-FILE                       FCC2175    24
                          7160000006              SX6    6B          LENGTH                                      FCC2175    25
           167  37616                             IX6    X1-X6                                                   FCC2175    26
                     5160000000 X                 SA6    =XTT=PAR                                                FCC2175    27
           170  7100001000               IFS92    =X0    M.INTR                                                  FCC2175    28
                          5140000213 +            SA4    IFSA                                                    IF        326
           171  5150000205 +                      SA5    IFRESLT                                                 IF        327
                          5120000211 +            SA2    IFSN+2      3RD NUMBER                                  IF        328
           172  20452                             LX4    P.JPAD      MACRO ADDRESS                               IF        329
                     7170000041                   =X7    O.IF                                                    IF        330
           173  6127777774                        SB2    B7-L.TURP                                               IF        331
                          12747                   BX7    X4+X7       ADD IN OPERATOR                             IF        332
                               20252              LX2    P.PTAGU                                                 IF        333
           174  56720                             SA7    B2          OPERATOR                                    IF        334
                     55321                        =A3    A2-1        2ND NUMBER                                  IF        335
                          10655                   BX6    X5                                                      IF        336
                               20330              LX3    P.PTAGM                                                 IF        337
           175  55131                             =A1    A3-1        1ST NUMBER                                  IF        338
                     36732                        IX7    X3+X2       3RD + 2ND                                   IF        339
                          54671                   =A6    A7+1        IF EXPRESSION RESULTS                       IF        340
                               36771              IX7    X7+X1       3RD + 2ND + 1ST                             IF        341
           176  54761                             =A7    A6+1                                                    IF        342
                     5120000203 +                 SA2    IFNEST                                                  IF        343
           177  0302000000 X                      ZR     X2,CUS.RET  IF THIS ARITH IF NOT OBJ OF LOG IF          IF        344
                          0100000000 X            RJ     CSB         EMIT BSS TURPLE                             IF        345
           200  13666                             BX6    0                                                       IF        346
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     8
                                                                      IFS 
  
                     5160000203 +                 SA6    IFNEST      SO ONLY ONE BSS TURPLE EMITTED              IF        347
           201  0400000000 X                      EQ     CUS.RET     RETURN TO FINISH PROCESSING HANGER          IF        348
                                                                                                                 IF        349
           202  00000000000000000000     INIF     DATA   0           "0 WHEN PROCESSING A LOGICAL IF             FCC0616    25
           203  00000000000000000000     IFNEST   DATA   0           "0 IF NESTED IF                             IF        352
           204  00000000000000000000     IFMOD    DATA   0           RESULTANT MODE OF IF EXPRESSION             IF        353
           205  00000000000000000000     IFRESLT  DATA   0           RESULTANT OPERAND FROM IF EXPRESSION        IF        354
           206  00000000000000000000     IFREL1   DATA   0           =0, MORE THAN ONE RELATIONAL IN *IF*        IF        355
           207  00000000000000000000     IFSN     DATA   0,0,0,0     IF STATEMENT NUMBER TAGS.                   IF        356
           213  00000000000000000000     IFSA     DATA   0           ENTRY CONDITION ON *B4*                     IF        357
                                                  LIST   D                                                       IF        358
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        E.IF9 
             0 X                        E.IF11
             0 X                        E.FM
             0 X                        ANSI= 
             0 X                        FLOW
             0 X                        ALC 
             0 X                        E.IF13
             0 X                        E.IF12
             0 X                        E.IF1 
             0 X                        E.IF10
             0 X                        E.MDO 
             0 X                        PWE 
             0 X                        LDEAD 
             0 X                        TT=PAR
  
           214                                    END                                                            IF        359
  
                             55100B CM  STORAGE USED              940 STATEMENTS      816 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.710 SECONDS         262 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*       3/18      7/29
        ANSI=           0   EXTERNAL*       3/13      4/43      7/08
        ARGCOMA         0   EXTERNAL*       1/39 X    2/19 S
        ARGMODE         0   EXTERNAL*       1/39 X    2/20 S
        CR.IFN          3   TSTEXT          4/04
        CSB             0   EXTERNAL*       1/48 X    3/46      7/56
        CSNTAG          0   EXTERNAL*       1/39 X    5/14
        CST             0   EXTERNAL*       1/48 X    2/49
        CUS.RET         0   EXTERNAL*       1/48 X    6/03      7/04      7/13      7/55      8/02
        DTI             0   EXTERNAL*       1/39 X    3/10      4/52      5/02
        E.FM            0   EXTERNAL*       2/50
        E.IF            0   EXTERNAL*       1/43 X    2/33
        E.IF1           0   EXTERNAL*       4/43
        E.IF10          0   EXTERNAL*       4/46
        E.IF11          0   EXTERNAL*       2/48
        E.IF12          0   EXTERNAL*       4/40
        E.IF13          0   EXTERNAL*       4/25
        E.IF2           0   EXTERNAL*       1/43 X    3/13      3/13
        E.IF3           0   EXTERNAL*       1/43 X    4/22      4/30
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE     9
        SYMBOLIC REFERENCE TABLE. 
  
        E.IF4           0   EXTERNAL*       1/43 X    6/08
        E.IF5           0   EXTERNAL*       1/43 X    6/02
        E.IF6           0   EXTERNAL*       1/43 X    2/57
        E.IF7           0   EXTERNAL*       1/43 X    7/03
        E.IF8           0   EXTERNAL*       1/45 X    7/08      7/08
        E.IF9           0   EXTERNAL*       2/46
        E.MDO           0   EXTERNAL*       5/05
        FILL.           0   EXTERNAL*       1/44 X    2/36 S
        FIRSTV          0   EXTERNAL*       1/39 X    2/38 S
        FLOW            0   EXTERNAL*       3/16      4/55      5/21      7/11      7/30
        HANGER          0   EXTERNAL*       1/39 X    5/01 S    5/12 S
        IFARM           0   EXTERNAL*       1/39 X    2/16
        IFBASE          0   EXTERNAL*       1/57 X    7/12
        IFEN2           0   EXTERNAL*       1/57 X
        IFE1N           0   EXTERNAL*       1/57 X
        IFI111          0   EXTERNAL*       1/57 X    6/05
        IFLN2           0   EXTERNAL*       1/57 X    2/54      3/14      6/30
        IFL1N           0   EXTERNAL*       1/57 X    2/55      3/15      6/31
        IFL12           0   EXTERNAL*       1/57 X    6/29
        IFMOD         204   PROGRAM*        1/36 E    2/37      4/37      6/11      6/49      8/06 L
        IFNEST        203   PROGRAM*        4/03 S    5/52      6/06      7/54      8/01 S    8/05 L
        IFREL1        206   PROGRAM*        1/36 E    2/21 S    3/23      6/17      8/08 L
        IFRESLT       205   PROGRAM*        1/36 E    3/32      7/38      8/07 L
        IFS             0   PROGRAM*        1/36 E    2/11 L
        IFSA          213   PROGRAM*        7/07 S    7/09      7/28 S    7/37      8/10 L
        IFSN          207   PROGRAM*        1/36 E    4/18 S    5/11      5/31      7/39      8/09 L
        IFS10          14   PROGRAM*        2/41      2/47 L
        IFS11          15   PROGRAM*        1/36 E    2/49 L
        IFS12          23   PROGRAM*        2/56      3/10 L
        IFS15          27   PROGRAM*        3/11      3/12      3/16 L
        IFS17          34   PROGRAM*        3/24      3/28 L
        IFS40          43   PROGRAM*        2/39      4/01 L
        IFS42          47   PROGRAM*        4/12 L    4/26
        IFS45          57   PROGRAM*        4/21      4/33 L
        IFS46          63   PROGRAM*        4/36      4/42 L
        IFS47          70   PROGRAM*        4/39      4/52 L
        IFS48          73   PROGRAM*        4/56      5/01 L
        IFS50          77   PROGRAM*        4/53      5/10 L
        IFS52         102   PROGRAM*        5/17 L    5/27
        IFS53         107   PROGRAM*        5/20      5/27 L
        IFS60         110   PROGRAM*        5/22      5/31 L
        IFS61         113   PROGRAM*        5/36      5/38 L
        IFS62         115   PROGRAM*        5/39      5/41 L
        IFS63         116   PROGRAM*        5/42      5/52 L
        IFS64         120   PROGRAM*        5/53      5/56 L
        IFS65         124   PROGRAM*        6/01      6/05 L
        IFS70         130   PROGRAM*        5/57      6/11 L
        IFS71         143   PROGRAM*        6/15      6/33 L
        IFS72         135   PROGRAM*        6/18      6/20 L
        IFS80         147   PROGRAM*        6/33      6/35      6/41      6/49 L
        IFS82         155   PROGRAM*        7/01      7/06 L
        IFS85         160   PROGRAM*        7/02      7/10 L
        IFS90         162   PROGRAM*        6/07      6/09      6/21      6/25      7/26 L
        IFS92         170   PROGRAM*        7/31      7/36 L
        IFS.X           0   EXTERNAL*       1/48 X    3/17      3/47
        INIF          202   PROGRAM*        1/36 E    2/47      3/38 S    4/01      5/03 S    8/04 L
        ISN             0   EXTERNAL*       1/51 X    4/15
1       /IF  *IF* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.03.      PAGE    10
        SYMBOLIC REFERENCE TABLE. 
  
        LDEAD           0   EXTERNAL*       5/23
        LGIF          140   PROGRAM*        6/20      6/29 L
        L.SYM          52   TSTEXT          2/31
        L.TURP          3   TSTEXT          3/18      7/29      7/42
        MXP             0   EXTERNAL*       2/01 X    2/11
        M.CPLX          5   TSTEXT          6/52
        M.INTR       1000   TSTEXT          7/36
        M.LOG           1   TSTEXT          2/40      4/38      6/13
        M.SNLAB       200   TSTEXT          4/13
        M.SNREF         1   TSTEXT          4/13
        NOPATH          0   EXTERNAL*       1/39 X    5/55 S
        NSTDIF          0   EXTERNAL*       2/01 X    6/36
        O.COMMA        13   TSTEXT          4/19
        O.CONS          2   TSTEXT          2/34
        O.IF           41   TSTEXT          3/41      7/41
        O.SLP          32   TSTEXT          2/14
        PAR             0   EXTERNAL*       1/54 X    2/23
        PSN             0   EXTERNAL*       1/51 X    5/04      5/06
        PWE             0   EXTERNAL*       5/05      6/02      6/08      7/03
        P.             73   TSTEXT          2/56
        P.JPAD         52   TSTEXT          3/29      7/40
        P.PTAGM        30   TSTEXT          3/37      7/48
        P.PTAGU        52   TSTEXT          7/44
        P.SDON         36   TSTEXT          3/12
        P.SNIF         35   TSTEXT          2/56      3/12
        P.TAG          52   TSTEXT          4/16
        REFVAR          0   EXTERNAL*       1/40 X    4/06 S
        STDIF           0   EXTERNAL*       2/01 X    6/12      6/34
        TG.PRO          0   EXTERNAL*       1/40 X    3/30
        TT=PAR          0   EXTERNAL*       5/26 S    7/32      7/35 S
        TT.PAR          0   EXTERNAL*       1/40 X    3/18      7/27
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1176              IDENT  TSDATA 
                       1176                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1166 
                                        LITERALS* LOCAL        1166        10 
  
  
                                        ENTRY POINTS. 
  
                                        CFC            214+           DAT.Z            3+ 
                                        DATA2           27+           DATA=            7+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        LASTCOL   E.DABC    E.DHC     E.DVL5    TRV       INDX      ORGI      E.DALV
                                        REFVAR    E.DAVC    E.DSE     E.DVL6    ADWT      INC       PL        MOD 
                                        TS.SYM    E.DAR     E.DTC     E.DVL7    BIAS      I.DIT     RL        BLNKCOM 
                                        TI=DAT    E.DAUC    E.DVL1    E.DVL8    CLOSREP   LI        SDPF      MVE 
                                        TI.DAT    E.DACV    E.DVL2    E.DVL9    CON1      LL        SELIST    E.DVL10 
                                        TL=DAT    E.DCE     E.DVL21   FILL.     CON2      LPINF     SCR2      ALC 
                                        TL.DAT    E.DIL     E.DVL22   DDS.O     DA        MP        SIGN      ANSI= 
                                        TA.NAM    E.DIL1    E.DVL23   DDS.S     DATEMP    NONANSI   SST1      PWE 
                                        TP.DIM    E.DIL2    E.DVL24   DDS.R     DATEMPL   N.DIMS    SSTL
                                        TS.CON    E.DIL3    E.DVL25   DDS.W     DIM       N.ITEM    SUBN
                                        TS=DAT    E.DMT     E.DVL26   ADW       DLEN      N.SUBS    REPFLAG 
                                        TS.DAT    E.DNA     E.DVL3    PSP.C     DIM.MUL   N.VSUB    TMP 
                                        E.DAA     E.DNA2    E.DVL4    DEC       DVT       ORD       UL
  
  
  
  
                                                  IDENT  TSDATA                                                  TSDATA      2
                                         TSDATA   SECT   (PROCESS *D A T A* STATEMENTS),1                        FCC0583    31
  
                                                                                                                 TSDATA      4
                                                  SST    A,B,D,E,F,Z,EXIT.                                       TSDATA      5
                                                  NOREF  A,B,D,E,F,Z,EXIT.                                       TSDATA      6
                                                                                                                 TSDATA      7
                                         B=TSDAT  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     TSDATA      8
                                                                                                                 TSDATA      9
                                                  ENTRY  CFC,DATA2,DAT.Z                                         FCC0787    18
                                                                                                                 TSDATA     11
                                        *         IN TABLES                                                      TSDATA     12
                                                  EXT    LASTCOL,REFVAR,TS.SYM,TI=DAT,TI.DAT,TL=DAT,TL.DAT       TSDATA     13
                                                  EXT    TA.NAM,TP.DIM,TS.CON,TS=DAT,TS.DAT                      TSDATA     14
                                                                                                                 TSDATA     15
                                        *         IN ERRORS                                                      TSDATA     16
                                                  EXT    E.DAA,E.DABC,E.DAVC,E.DAR,E.DAUC,E.DACV                 TSDATA     17
                                                  EXT    E.DCE,E.DIL,E.DIL1,E.DIL2,E.DIL3,E.DMT,E.DNA,E.DNA2     TSDATA     18
                                                  EXT    E.DHC,E.DSE,E.DTC,E.DVL1,E.DVL2,E.DVL21,E.DVL22,E.DVL23 TSDATA     19
                                                  EXT    E.DVL24,E.DVL25,E.DVL26,E.DVL3,E.DVL4,E.DVL5,E.DVL6     TSDATA     20
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     2
  
  
                                                  EXT    E.DVL7,E.DVL8,E.DVL9,FILL.                              TSDATA     21
                                                                                                                 TSDATA     22
                                        *         IN END                                                         TSDATA     23
                                                  EXT    DDS.O,DDS.S,DDS.R,DDS.W                                 TSDATA     24
                                                                                                                 TSDATA     25
                                        *         IN ALLOC                                                       TSDATA     26
                                                  EXT    ADW                                                     TSDATA     27
                                                                                                                 TSDATA     28
                                        *         IN MAIN                                                        TSDATA     29
                                                  EXT    PSP.C                                                   TSDATA     30
                                                                                                                 TSDATA     31
                                        *         IN LEX                                                         TSDATA     32
                                                  EXT    DEC,TRV                                                 TSDATA     33
                                                                                                                 TSDATA     34
                                        *         IN INIT                                                        TSDATA     35
                                                  EXT    ADWT,BIAS,CLOSREP,CON1,CON2,DA,DATEMP,DATEMPL,DIM,DLEN  TSDATA     36
                                                  EXT    DIM.MUL,DVT,INDX,INC,I.DIT,LI,LL,LPINF,MP,NONANSI       TSDATA     37
                                                  EXT    N.DIMS,N.ITEM,N.SUBS,N.VSUB,ORD,ORGI,PL,RL,SDPF,SELIST  TSDATA     38
                                                  EXT    SCR2,SIGN,SST1,SSTL,SUBN,REPFLAG,TMP,UL                 FCC0787    19
                                                                                                                 TSDATA     40
  
  
  
  
                                        **        AUTHOR - S.I. JASIK - CDC/SUNNYVALE - JUNE/70                  TSDATA     42
                                                                                                                 TSDATA     43
                                                                                                                 TSDATA     44
  
  
  
  
                                        ***       DATA INITIALIZATION STATEMENTS.                                TSDATA     46
                                        *                                                                        TSDATA     47
                                        *         SYNTAX:                                                        TSDATA     48
                                        *                DATA <DIL>,...,<DIL>                                    TSDATA     49
                                        *                 WHERE DIL IS A DATA INITIALIZATION LIST                TSDATA     50
                                        *                <DIL> := <DVL> / <DIL> / OR ( <DVL> = <DIL> )           TSDATA     51
                                        *                 WHERE <DVL> IS A DATA VARIABLE LIST                    TSDATA     52
                                        *                 AND   <DIL> IS A DATA ITEM LIST ( CONSTANTS )          TSDATA     53
                                        *                 THE SECOND SYNTAX WHICH IS NOT ANSI STANDARD IS        TSDATA     54
                                        *                 REFERED TO AS THE ALTERNATE SYNTAX .                   TSDATA     55
                                        *                                                                        TSDATA     56
                                        *         THE SYNTAX OF THE DATA ITEM LIST ( CONSTANTS ) IS              TSDATA     57
                                        *                                                                        TSDATA     58
                                        *                <DIL> := <DIG>,...,<DIG>                                TSDATA     59
                                        *                <DIG> := <CONL> OR <RF>*(<CONL>) OR <RF>(<CONL>)        TSDATA     60
                                        *                OR (<CONL>) OR <RF>*<CON>                               TSDATA     61
                                        *                <CONL> := <CON>,,,<CON>                                 TSDATA     62
                                        *                <CON> := <CONSTANT> OR (<REAL CON>,<REAL CON>)          TSDATA     63
                                        *                NOTES:                                                  TSDATA     64
                                        *                 (1.,2.) IS A COMPLEX CONSTANT                          TSDATA     65
                                        *                 2*(1.,2.) # 1.,2.,1.,2.                                TSDATA     66
                                        *                 2*((1.,2.)) IS 2 COMPLEX CONSTANTS                     TSDATA     67
                                        *                                                                        TSDATA     68
                                        *         THE SYNTAX OF A DATA VARIABLE LIST IS                          TSDATA     69
                                        *                <DVL> := <DVG>,...,<DVG>                                TSDATA     70
                                        *                <DVG> := <VARNAME> OR <ARRAY>(<CON SUBSC>)              TSDATA     71
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     3
                                                                      DAT 
  
                                        *                OR <ARRAY> OR <DOLIST>                                  TSDATA     72
                                        *                WHERE:                                                  TSDATA     73
                                        *                 <VARNAME> IS THE NAME OF A SIMPLE VARIABLE             TSDATA     74
                                        *                 <ARRAY> IS THE NAME OF AN ARRAY                        TSDATA     75
                                        *                 <CON SUBSC> IS A CONSTANT SUBSCRIPT EXPRESSION         TSDATA     76
                                        *                 OF THE FORM C1,C2,C3                                   TSDATA     77
                                        *                 <DOLIST> IS A NEST OF DO LOOPS HAVING THE              TSDATA     78
                                        *                 SAME SYNTAX AS THOSE APPEARING IN AN I/O LIST, EXCEPT  TSDATA     79
                                        *                 THAT SUBSCRIPTS ARE LIMITED TO THE FORM C1*IVAR+C2     TSDATA     80
                                        *                 AND ONLY 1 NAME MAY APPEAR IN THE GROUP.               TSDATA     81
                                        *                                                                        TSDATA     82
  
  
  
  
                                        ***              NON-ANSI EXTENSION TO THE DATA STATEMENT --             TSDATA     84
                                        *                                                                        TSDATA     85
                                        *         DO LOOPS AND SUBSCRIPTS OF THE FORM C1*I+C2                    TSDATA     86
                                        *                                                                        TSDATA     87
                                        *         A, WHERE "A" IS AN ARRAY IS EQUIVALENT TO (A(I),I=1,PI DIMS)   TSDATA     88
                                        *                                                                        TSDATA     89
                                        *         HOLLERITH CONSTANTS MAY BE LONGER THAN ITEM LENGTH ( 1 OR 2    TSDATA     90
                                        *         WORDS ).                                                       TSDATA     91
                                        *                                                                        TSDATA     92
                                        *         ( VARLIST = DATALIST )  SYNTAX                                 TSDATA     93
                                        *                                                                        TSDATA     94
                                        *         RF*(C1,...,CN) FOR REPETITION OF A LIST OF ITEMS               TSDATA     95
                                        *                                                                        TSDATA     96
                                        *         VARIABLES IN LABELED COMMON MAY BE INITIALIZED OUTSIDE A       TSDATA     97
                                        *         BLOCK DATA SUBPROGRAM.                                         TSDATA     98
                                        *                                                                        TSDATA     99
                                        *         THE RANGE OF AN ARRAY MAY BE EXTENDED BY EQUIVALENCING         TSDATA    100
                                        *         TO THE LENGTH OF THE EQUIVALENCE CLASS - THE ARRAY BIAS .      TSDATA    101
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     4
                                                                      MACROS
  
                                        **        MACROES LOCAL TO THE *DATA* PROCESSOR.                         TSDATA    103
                                                                                                                 TSDATA    104
                                                                                                                 TSDATA    105
                                         SCANTO   MACRO  DELIM                                                   TSDATA    106
                                         X        BITMIC (DELIM)                                                 TSDATA    107
                                                  SA5    ="X"                                                    TSDATA    108
                                                  RJ     STD                                                     TSDATA    109
                                         SCANTO   ENDM                                                           TSDATA    110
  
  
  
  
                                        **        PARSEM - ELIST MANIPULATION MACROS.                            TSDATA    112
                                        *         REGISTER USAGE --                                              TSDATA    113
                                        *                X1,B2 LOWER 48 BITS AND E-LIST CODE                     TSDATA    114
                                        *                B3 IS USED TO HOLD E-LIST CODE FOR TESTS                TSDATA    115
                                        *                A4,X4 = E-LIST ADDRESS AND CURRENT ELEMENT              TSDATA    116
                                        *                A5,X5 = SELIST,(SELIST)                                 TSDATA    117
                                                                                                                 TSDATA    118
                                                                                                                 TSDATA    119
                                         NEXTE    MACRO  R                 GETE NEXT E-LIST ITEM                 TSDATA    120
                                         Z        SET    R 4                                                     TSDATA    121
                                                  SA.Z   A.Z+B1                                                  TSDATA    122
                                                  SB2    X.Z                                                     TSDATA    123
                                         NEXTE    ENDM                                                           TSDATA    124
                                                                                                                 TSDATA    125
                                                                                                                 TSDATA    126
                                         IF.EQ    MACRO  ECODE,LABEL       IF( B2 .EQ. ECODE ) GO TO LABEL       TSDATA    127
                                         .1       IF     -MIC,ECODE                                              TSDATA    128
                                                  R=     B3,ECODE                                                TSDATA    129
                                                  EQ     B2,B3,LABEL                                             TSDATA    130
                                         .1       ELSE                                                           TSDATA    131
                                                  EQ     B2,"ECODE",LABEL                                        TSDATA    132
                                         .1       ENDIF                                                          TSDATA    133
                                         IF.EQ    ENDM                                                           TSDATA    134
                                                                                                                 TSDATA    135
                                                                                                                 TSDATA    136
                                         IF.NE    MACRO  ECODE,LABEL       IF( B2 .NE. ECODE ) GO TO LABEL       TSDATA    137
                                         .1       IF     -MIC,ECODE                                              TSDATA    138
                                                  R=     B3,ECODE                                                TSDATA    139
                                                  NE     B2,B3,LABEL                                             TSDATA    140
                                         .1       ELSE                                                           TSDATA    141
                                                  NE     B2,"ECODE",LABEL                                        TSDATA    142
                                         .1       ENDIF                                                          TSDATA    143
                                         IF.NE    ENDM                                                           TSDATA    144
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     5
                                                                      DAT.FMT 
  
                                                                                                                 TSDATA    146
             0                           DIT.CMPX BSS    0           REP-TABLE SKELETON FOR COMPLEX CONSTANT     TSDATA    147
                                  44              POS    P.DINDX+L.DINDX                                         TSDATA    148
                        000003                    VFD    L.DINDX/2+1                                             TSDATA    149
                              000002              VFD    L.DIWC/2                                                TSDATA    150
             1                           DIT.HOL  BSS    0           REP-TABLE SKELETON FOR HOLLERITH CONSTANT   TSDATA    151
                                  73              POS    P.DIHOL+1                                               TSDATA    152
                2                                 VFD    1/1                                                     TSDATA    153
                                  44              POS    P.DINDX+L.DINDX                                         TSDATA    154
                        000002                    VFD    L.DINDX/2                                               TSDATA    155
                              000000              VFD    L.DIWC/**                                               TSDATA    156
  
  
  
  
                                        **        DATA.E - FE ERROR EXIT.                                        TSDATA    158
                                        *                                                                        TSDATA    159
                                        *         ENTRY  B6 = ERROR NUMBER                                       TSDATA    160
                                        *                X4 = ELIST ITEM                                         TSDATA    161
                                        *                                                                        TSDATA    162
                                                                                                                 TSDATA    163
             2  66760                    DATA.E   WARN   B6                                                      TSDATA    164
                                                                                                                 TSDATA    165
             3  5110000000 X             DAT.Z    SA1    NONANSI     ** MOST ERRORS RETURN TO HERE **            TSDATA    166
                          76600                   SHRINK TI=DAT,0                                                TSDATA    167
                          0301000000 X            ZR     X1,PSP.C    IF NO NON-ANSI USAGES                       TSDATA    168
             5  0400000000 X                      EQ     E.DNA2                                                  TSDATA    169
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     6
                                                                      DATA
  
             6  00000000000000000000              HEREIF DATA                                                    TSDATA    171
                                                                                                                 TSDATA    172
             7  7160000011                        =X6    CR.DAT                                                  TSDATA    173
                          5160000000 X            SA6    REFVAR      SET UP REFERENCE TYPE                       TSDATA    174
            10  0100000032 +                      RJ     RAS               REMOVE ALTERNATE SYNTAX  (V=C)        TSDATA    175
                                        *                                  AND INITIALIZE                        TSDATA    176
                                                                                                                 TSDATA    177
            11  76710                    DATA1    =X7    1                                                       TSDATA    178
                     13666                        BX6    0                                                       TSDATA    179
                          5110000000 X            SA1    TL.DAT                                                  TSDATA    180
            12  5170000000 X                      SA7    DIM.MUL                                                 TSDATA    181
                          5160000000 X            SHRINK TI=DAT,X6                                               TSDATA    182
            13  6150000000 X                      SB5    DATEMPL                                                 TSDATA    183
                          67505                   SB5    -B5                                                     TSDATA    184
            14  7175000000 X                      SX7    B5+DATEMP                                               TSDATA    185
                          5160000000 X            SA6    DATEMP                                                  TSDATA    186
                                                                                                                 TSDATA    187
            15  54661                    DATA15   SA6    A6+B1                                                   TSDATA    188
                     73771                        SX7    X7+B1                                                   TSDATA    189
                          0337000015 +            MI     X7,DATA15                                               TSDATA    190
                                                                                                                 TSDATA    191
                                        **        CONVERT THE ITEM LIST TO INTERNAL FORM.                        TSDATA    192
                                                                                                                 TSDATA    193
            16  5120000000 X                      SA2    TL=DAT                                                  TSDATA    194
                          36312                   IX3    X1+X2             TOP OF STACK + 1                      TSDATA    195
            17  5253777776                        SA5    X3-1              VAR AND CON LIST POINTERS             TSDATA    196
                          53450                   SA4    X5                INITIALIZE FOR CON LIST PROCESSING    TSDATA    197
                               21522              AX5    P.DLVAR                                                 TSDATA    198
            20  73650                             SX6    X5                                                      TSDATA    199
                     5160000000 X                 SA6    TMP               SAVE VAR LIST POINTER                 TSDATA    200
            21  5150000000 X                      SA5    SELIST                                                  TSDATA    201
                          0100000102 +            RJ     BIT               BUILD DATA ITEM ( CON ) TABLE         TSDATA    202
                                                                                                                 TSDATA    203
                                        **        PROCESS THE VARIABLE LIST AND MATCH IT UP WITH THE ITEM LIST.  TSDATA    204
                                                                                                                 TSDATA    205
            22  5130000000 X                      SA3    TMP                                                     TSDATA    206
                          5150000000 X            SA5    SELIST                                                  TSDATA    207
            23  53430                             SA4    X3          INITIALIZE POINTERS                         TSDATA    208
                     13666                        BX6    0                                                       TSDATA    209
                          5160000000 X            SA6    I.DIT                                                   TSDATA    210
            24  0100000307 +                      RJ     BVT               PROCESS VARIABLE LIST                 TSDATA    211
                                                                                                                 TSDATA    212
                                        **        ISSUE INFORMATIVE DIAGNOSTICS IF LISTS NOT THE SAME LENGTH.    TSDATA    213
                                                                                                                 TSDATA    214
            25  5110000000 X                      SA1    N.ITEM                                                  TSDATA    215
                          0331000000 X            MI     X1,E.DAVC   IF MORE VARIABLES THAN CONSTANTS            TSDATA    216
            26  0311000000 X                      NZ     X1,E.DACV   IF MORE CONSTANTS THAN VARIABLES            TSDATA    217
                                                                                                                 TSDATA    218
            27  5110000000 X             DATA2    SA1    TL=DAT                                                  TSDATA    219
                          7261777776              SX6    X1-1              N.DIL = N.DIL-1                       TSDATA    220
            30  54610                             SA6    A1                                                      TSDATA    221
                     0316000011 +                 NZ     X6,DATA1          IF MORE DIL"S TO GO                   TSDATA    222
            31  0400000003 +                      EQ     DAT.Z                                                   TSDATA    223
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     7
                                                                      RAS 
  
                                        **        RAS -  REMOVE ALTERNATE SYNTAX.                                TSDATA    225
                                        *                SCAN DATA STMT BACKWARD AND FORM TABLE OF FWA OF DIL    TSDATA    226
                                        *                AND DVL"S. CHANGE DATA INITIALIZATION LISTS OF THE      TSDATA    227
                                        *                FORM "( DVL = DIL )" TO "DVL / DIL /" .                 TSDATA    228
                                        *                INITIALIZE TABLE POINTERS, ETC FOR FURTHER PROCESSING.  TSDATA    229
                                        *                                                                        TSDATA    230
                                        *         NOTE:  THIS SUBROUTINE IS A MISTAKE. I ORIGINALLY THOUGHT      TSDATA    231
                                        *         THAT ONE COULD FIND THE BEGINNING OF THE CON AND VAR LISTS BY  TSDATA    232
                                        *         A SIMPLE BACKWARDS SCAN OF THE STMT. TO SEE THAT THIS IS NOT   TSDATA    233
                                        *         TRUE CONSIDER:  DATA (A=1),B/2/ .                              TSDATA    234
                                        *         HENCE THE PRESENT VERSION DISALLOWS INTERMIXING SYNTAXS.       TSDATA    235
                                                                                                                 TSDATA    236
                                                                                                                 TSDATA    237
            32  0400400032 +             RAS      SUBR               ENTRY/EXIT...                               TSDATA    238
            33  76600                             SHRINK TL=DAT,0                                                TSDATA    239
            34  5160000000 X                      SA6    NONANSI           CLEAR NON ANSI USEAGE FLAG            TSDATA    240
                          5130000000 X            SA3    LASTCOL                                                 TSDATA    241
            35  76641                             SX6    B4+B1                                                   TSDATA    242
                     5160000000 X                 SA6    SELIST                                                  TSDATA    243
                               76700              =X7    O.BOS                                                   TSDATA    244
            36  57741                             SA7    B4-B1             (SELIST-1) = BEGIN OF STMT OPERATOR   TSDATA    245
                     63230                        SB2    X3                                                      TSDATA    246
                          54402                   SA4    B2+A0       A4,X4 = NEXT ITEM POINTER AND CONTENTS.     TSDATA    247
                                                                                                                 TSDATA    248
            37  55441                    RAS1     SA4    A4-B1                                                   TSDATA    249
                     63240                        SB2    X4                NEXTE                                 TSDATA    250
                          6130000007              IF.NE  O.SLASH,RAS3      IF NOT A /                            TSDATA    251
                                                                                                                 TSDATA    252
                                        *         STANDARD SYNTAX                                                TSDATA    253
                                                                                                                 TSDATA    254
                          5150001166 +            SCANTO O.SLASH           FIND BEGINNING OF CON LIST            TSDATA    255
            42  74740                             SX7    A4                                                      TSDATA    256
                     5150001167 +                 SCANTO (O.BOS,O.SLASH)     SCAN PAST BEGINNING OF VAR LIST     TSDATA    257
            44  66620                             SB6    B2          REMEMBER WHAT STOPPED SCAN                  TSDATA    258
                     74140                        SX1    A4                                                      TSDATA    259
                          20122                   LX1    P.DLVAR                                                 TSDATA    260
                               12671              BX6    X7+X1             ADD FWA OF DVL TO DIL STACK           TSDATA    261
            45  5110000000 X                      ADDWD  TL.DAT                                                  TSDATA    262
            46  54441                             SA4    A4+B1             BACKE  1                              TSDATA    263
                     63240                        SB2    X4                                                      TSDATA    264
                          0460000037 +            EQ     B6,"O.BOS",RAS1   IF BOS STOPPED SCAN                   TSDATA    265
            47  6130000013                        IF.EQ  O.COMMA,RAS1      LOOP IF A ,                           TSDATA    266
            50  0400000000 X                      EQ     E.DSE             SYNTAX ERROR                          TSDATA    267
                                                                                                                 TSDATA    268
            51  6130000011               RAS3     IF.NE  O.),RAS4          IF NO )                               TSDATA    269
                                                                                                                 TSDATA    270
                                        *         ALTERNATE SYNTAX - CONVERT TO STANDARD SYNTAX                  TSDATA    271
                                                                                                                 TSDATA    272
            52  6170000000 X                      ANSI   E.DNA                                                   TSDATA    273
                                                                                                                 TSDATA    274
            53  7160000007                        =X6    O.SLASH                                                 TSDATA    275
                          54640                   SA6    A4                REPLACE ) WITH /                      TSDATA    276
            54  5150001170 +                      SCANTO (O.=,O.SLASH)                                           TSDATA    277
            55  6130000007                        IF.EQ  O.SLASH,E.DSE     IF SLASH STOPPED SCAN                 TSDATA    278
            56  7160000007                        =X6    O.SLASH                                                 TSDATA    279
                          74740                   SX7    A4                                                      TSDATA    280
                               54640              SA6    A4                REPLACE = WITH /                      TSDATA    281
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     8
                                                                      RAS 
  
            57  5150001171 +                      SCANTO O.LP              FIND BEGINNING OF VAR LIST            TSDATA    282
            60  74140                             SX1    A4                                                      TSDATA    283
                     20122                        LX1    P.DLVAR                                                 TSDATA    284
                          12671                   BX6    X7+X1             SAVE POINTER TO START OF VAR LIST     TSDATA    285
            61  5110000000 X                      ADDWD  TL.DAT                                                  TSDATA    286
            62  55441                             SA4    A4-B1                                                   TSDATA    287
                     63240                        SB2    X4                NEXTE                                 TSDATA    288
                          6130000013              IF.EQ  O.COMMA,RAS1      LOOP IF A COMMA                       TSDATA    289
                          0420000032 +            IF.EQ  O.BOS,EXIT.                                             TSDATA    290
                                                                                                                 TSDATA    291
            64  0520000000 X             RAS4     IF.NE  O.BOS,E.DSE       ERROR IF NOT BOS                      TSDATA    292
                          5120000000 X            SA2    TL=DAT                                                  TSDATA    293
            65  0312000032 +                      NZ     X2,EXIT.    IF NOT AN EMPTY DATA STATEMENT              TSDATA    294
                          0400000000 X            EQ     E.DMT                                                   TSDATA    295
  
  
  
  
                                        **        STD - SCAN TO DELIMITER, PERFORM A PARENTHESIS CHECK.          TSDATA    297
                                        *                                                                        TSDATA    298
                                        *         ENTRY  (X5) = DELIMITER BIT MASK                               TSDATA    299
                                        *                (A4) _ FWA+1 OF LIST.                                   TSDATA    300
                                        *                                                                        TSDATA    301
                                        *         EXIT   (A4) _ TO DELIMITER                                     TSDATA    302
                                        *                (B2) = ELIST OPCODE OF DELIMITER                        TSDATA    303
                                                                                                                 TSDATA    304
                                                                                                                 TSDATA    305
            66  0400400066 +             STD      SUBR               ENTRY/EXIT...                               TSDATA    306
                                         Z        BITMIC (O.HOLL,O.CONS,O.VAR,O.PERIOD,O.PL,O.MIN)               TSDATA    307
            67  5110001172 +                      SA1    ="Z"                                                    TSDATA    308
                          6130000010              SB3    O.(                                                     TSDATA    309
            70  6140000011                        SB4    O.)                                                     TSDATA    310
                          66500                   SB5    B0                B5 = PAREN COUNT                      TSDATA    311
                                                                                                                 TSDATA    312
            71  55441                    STD1     SA4    A4-B1                                                   TSDATA    313
                     63240                        SB2    X4                                                      TSDATA    314
                          22321                   LX3    X1,B2                                                   TSDATA    315
            72  0333000071 +                      MI     X3,STD1     SKIP CONS AND VARS                          TSDATA    316
                          0524000074 +            NE     B2,B4,STD2        IF NOT A )                            TSDATA    317
            73  66551                             SB5    B5+B1             PC = PC+1                             TSDATA    318
                     0400000071 +                 EQ     STD1                                                    TSDATA    319
                                                                                                                 TSDATA    320
            74  22325                    STD2     LX3    B2,X5             POSITION DELIMITER MASK               TSDATA    321
                     0523000077 +                 NE     B2,B3,STD3        IF NOT A (                            TSDATA    322
                               67551              SB5    B5-B1             PC = PC-1                             TSDATA    323
            75  0650000071 +                      PL     B5,STD1           LOOP IF PC \ 0                        TSDATA    324
                          0333000066 +            MI     X3,EXIT.    IF *(* IS A DELIMITER                       TSDATA    325
            76  0400000000 X                      EQ     E.DSE             SYNTAX ERROR ( NEGATIVE PAREN COUNT ) TSDATA    326
                                                                                                                 TSDATA    327
            77  0323000101 +             STD3     PL     X3,STD4           IF NOT THE DELIM WE WANT              TSDATA    328
                          0450000066 +            ZR     B5,EXIT.    IF PAREN COUNT IS ZERO                      TSDATA    329
           100  0400000000 X                      EQ     E.DSE             SYNTAX ERROR                          TSDATA    330
                                                                                                                 TSDATA    331
           101  0520000071 +             STD4     IF.NE  O.BOS,STD1        LOOP IF NOT BOS                       TSDATA    332
                          0400000000 X            EQ     E.DSE             SYNTAX ERROR                          TSDATA    333
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE     9
                                                                      BIT 
  
                                        **        BIT - BUILD DATA ITEM TABLE.                                   TSDATA    335
                                        *                SCAN THE ITEM LIST AND CONVERT IT INTO INTERNAL FORMAT  TSDATA    336
                                        *                                                                        TSDATA    337
                                        *                CONSTANTS ARE REPRESENTATED AS                          TSDATA    338
                                        *                                                                        FCC1563X    9
                                        *         1/0,1/HOL FLAG,16/0,6/CTYP,18/INDEX,18/WORD COUNT              FCC1563X   10
                                        *                                                                        FCC1563X   11
                                        *                 FOLLOWED BY WC WORDS OF DATA FOR NON HOLLERITH CONSTAN TSDATA    340
                                        *                 FOR HOL CONSTANTS, THE NEXT WORD CONTAINS THE ELIST.   FCC1563X   12
                                        *                 CTYP = CONSTANT TYPE FOR NON-HOLLERITH CONSTANTS.      FCC1563X   13
                                        *                                                                        TSDATA    342
                                        *                REPETITION COUNTS ARE REPRESENTED AS                    TSDATA    343
                                        *                 1/1,5/CIF,18/RL,18/INDEX TO NEXT GROUP,18/REP COUNT    TSDATA    344
                                        *                 CIF = 1 OR 2 IF ALL ITEMS ARE THE SAME LENGTH, AND     TSDATA    345
                                        *                 LENGTH IS 1 OR 2 WORDS , ELSE 0                        TSDATA    346
                                        *                 RL = NUMBER OF ITEMS IN THE REP LIST                   TSDATA    347
                                        *                                                                        TSDATA    348
                                                                                                                 TSDATA    349
           102  0400400102 +             BIT      SUBR               ENTRY/EXIT...                               TSDATA    350
                                                                                                                 TSDATA    351
           103  54441                    BIT.L    NEXTE                    NEXT ELIST ITEM                       TSDATA    352
                          5130001173 +            SA3    ="M.CON"                                                TSDATA    353
           104  22723                             LX7    B2,X3                                                   TSDATA    354
                     66511                        =B5    O.CONS                                                  TSDATA    355
                          0327000000 X            PL     X7,E.DIL    IF NOT  CON HOLL + - . OR (                 TSDATA    356
           105  0421000116 +                      IF.EQ  O.HOLL,BIT1                                             TSDATA    357
                          0425000120 +            EQ     B2,B5,BIT2  IF NUMBER                                   TSDATA    358
           106  6172777747                        =B7    B2-O.TRUE                                               TSDATA    359
                          6130000010              SB3    O.(                                                     TSDATA    360
           107  0470000157 +                      ZR     B7,BIT8     IF *.TRUE.*                                 TSDATA    361
                                                  IFNE   O.TRUE+1,O.FALSE,1                                      TSDATA    362
                                                  =B7    B2+O.TRUE+1-O.FALSE                                     TSDATA    363
                          0471000157 +            EQ1    B7,BIT8     IF *.FALSE.*                                TSDATA    364
           110  0423000143 +                      EQ     B2,B3,BIT6        IF A (                                TSDATA    365
                          7122777772              SX2    B2-O.MIN                                                TSDATA    366
                                                                                                                 TSDATA    367
                                        **        HERE WITH + OR - SIGN, OR PERIOD.                              TSDATA    368
                                                                                                                 TSDATA    369
           111  13777                             BX7    0                                                       TSDATA    370
                     6130000037                   IF.EQ  O.PERIOD,BIT1     IF FLOATING PT. CONSTANT              TSDATA    371
                          23312                   AX3    X2,B1            -0 IF + , +0 IF - SIGN                 TSDATA    372
                               14733              BX7    -X3                                                     TSDATA    373
           113  54441                             NEXTE                                                          TSDATA    374
                          6130000037              IF.EQ  O.PERIOD,BIT1     IF FLOATING PT. CONSTANT              TSDATA    375
                          0425000116 +            EQ     B2,B5,BIT1  IF NUMBER                                   TSDATA    376
           115  0521000000 X                      IF.NE  O.HOLL,E.DIL1     IF NOT HOLL                           TSDATA    377
                                                                                                                 TSDATA    378
           116  0100000267 +             BIT1     RJ     ADC         ADD CONSTANT TO TABLE                       TSDATA    379
           117  0400000163 +                      EQ     BIT9                                                    TSDATA    380
                                                                                                                 TSDATA    381
                                        *         CONSTANT                                                       TSDATA    382
                                                                                                                 TSDATA    383
           120  64440                    BIT2     SB4    A4                LOOK AHEAD                            TSDATA    384
                     74540                        SX5    A4                                                      TSDATA    385
                          0100000000 X            RJ     DEC         DUMMY KLUDGE TO SKIP OVER CONSTANT          TSDATA    386
           121  53450                             SA4    X5                                                      TSDATA    387
                     56241                        SA2    B4+B1                                                   TSDATA    388
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    10
                                                                      BIT 
  
                          5150000000 X            SA5    SELIST      RESTORE (A5)                                TSDATA    389
           122  5130001174 +                      SA3    ="M.SEP"                                                TSDATA    390
                          63220                   SB2    X2                                                      TSDATA    391
                               13777              BX7    0                                                       TSDATA    392
           123  22623                             LX6    B2,X3                                                   TSDATA    393
                     0336000116 +                 MI     X6,BIT1           IF NEXT IS , ) OR /                   TSDATA    394
           124  5130000000 X                      SA3    REPFLAG                                                 TSDATA    395
                          0313000000 X            NZ     X3,E.DIL2         IF WE ARE WITHIN A REP LOOP           TSDATA    396
                                                                                                                 TSDATA    397
           125  76710                             SX7    B1                SET TO CLOSE ON )                     TSDATA    398
                     6130000006                   IF.NE  O.STAR,BIT3       IF NOT CON*                           TSDATA    399
                                                                                                                 TSDATA    400
                          54221                   NEXTE  2                 LOOK PAST *                           TSDATA    401
           127  6130000010                        IF.EQ  O.(,BIT4          IF A (                                TSDATA    402
           130  77701                             SX7    -B1               SET FOR SINGLE ELEMENT REP            TSDATA    403
                     0400000133 +                 EQ     BIT5                                                    TSDATA    404
                                                                                                                 TSDATA    405
           131  6130000010               BIT3     IF.NE  O.(,E.DIL         SYNTAX ERROR IF NOT A (               TSDATA    406
           132  6170000000 X             BIT4     ANSI   E.DAR                                                   TSDATA    407
                                                                                                                 TSDATA    408
           133  75621                    BIT5     SX6    A2-B1       BACKOFF AND SAVE ELIST POINTER              TSDATA    409
                     54650                        SA6    A5                                                      TSDATA    410
                          5170000000 X            SA7    CLOSREP                                                 TSDATA    411
           134  0100000251 +                      RJ     CSC               CHECK CONSTANT AND CONVERT            TSDATA    412
                                                                                                                 TSDATA    413
           135  43001                             MX0    1                                                       TSDATA    414
                     12606                        BX6    X0+X6             CONSTRUCT ENTRY FOR ADIT              TSDATA    415
                          66500                   SB5    B0                                                      TSDATA    416
           136  0100000276 +                      RJ     ADIT                                                    TSDATA    417
                                                                                                                 TSDATA    418
           137  5110000000 X                      SA1    N.ITEM                                                  TSDATA    419
                          20122                   LX1    P.DINDX                                                 TSDATA    421
                               12612              BX6    X1+X2                                                   FCC1746X    5
           140  5160000000 X                      SA6    REPFLAG           SAVE ITEM COUNT AND POINTER           TSDATA    423
                          43700                   MX7    0                                                       TSDATA    424
                               54710              SA7    A1                CLEAR ITEM FLAG                       TSDATA    425
           141  5150000000 X                      SA5    SELIST      RESTORE (A5)                                TSDATA    426
                          53450                   SA4    X5          RESTORE (A4)                                TSDATA    427
           142  0400000103 +                      EQ     BIT.L             AND LOOP TO PROCESS REP LIST          TSDATA    428
                                                                                                                 TSDATA    429
                                        *         ( - START OF A REPEATED DATA LIST OR A COMPLEX CONSTANT        TSDATA    430
                                                                                                                 TSDATA    431
           143  5110000000 X             BIT6     SA1    PL                PARENTHESIS LEVEL                     TSDATA    432
                          5120000000 X            SA2    CLOSREP                                                 TSDATA    433
           144  73711                             SX7    X1+B1             PL = PL+1                             TSDATA    434
                     54710                        SA7    A1                                                      TSDATA    435
                          37327                   IX3    X2-X7                                                   TSDATA    436
           145  0303000103 +                      ZR     X3,BIT.L          IF ( IS A REP BRACKET                 TSDATA    437
                                                                                                                 TSDATA    438
                                        *         CHECK FOR A COMPLEX CONSTANT                                   TSDATA    439
                                                                                                                 TSDATA    440
                          0100000214 +            RJ     CFC               CHECK FOR COMPLEX CONSTANT            TSDATA    441
           146  0300000151 +                      ZR     X0,BIT7           IF IT IS                              TSDATA    442
                          5110000000 X            SA1    PL                                                      TSDATA    443
           147  23211                             AX2    B1,X1                                                   TSDATA    444
                     0302000103 +                 ZR     X2,BIT.L          IF A MEANINGLESS PAREN                TSDATA    445
           150  0400000000 X                      EQ     E.DIL2            ERROR - 2 NESTED PAREN GROUPS         TSDATA    446
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    11
                                                                      BIT 
  
                                                                                                                 TSDATA    447
           151  5130000000 +             BIT7     SA3    DIT.CMPX          DIT HEADER WORD                       TSDATA    448
                          5140000000 X            SA4    PL                                                      TSDATA    449
           152  10633                             BX6    X3                                                      TSDATA    450
                     7274777776                   SX7    X4-1              DECREMENT PAREN COUNT                 TSDATA    451
                               54740              SA7    A4                                                      TSDATA    452
           153  66511                             SB5    B1+B1                                                   TSDATA    453
                     0100000276 +                 RJ     ADIT              ADD CONSTANT TO DIT                   TSDATA    454
           154  5110000000 X                      SA1    N.ITEM                                                  TSDATA    455
                          73611                   SX6    X1+B1             N.ITEM = N.ITEM+1                     TSDATA    456
                               54610              SA6    A1                                                      TSDATA    457
           155  5150000000 X                      SA5    SELIST                                                  TSDATA    458
                          53450                   SA4    X5                                                      TSDATA    459
                               63240              SB2    X4                                                      TSDATA    460
           156  0400000164 +                      EQ     BIT.S       PROCESS SEPARATOR                           TSDATA    461
                                                                                                                 TSDATA    462
                                                                                                                 TSDATA    463
                                        **        HANDLE LOGICAL CONSTANTS HERE.                                 TSDATA    464
                                        *                (B7) = 0 IF .TRUE.                                      TSDATA    465
                                        *                     = 1 IF .FALSE.                                     TSDATA    466
                                                                                                                 TSDATA    467
           157  76011                    BIT8     =X0    1+1         INDEX = WORD COUNT + 1                      TSDATA    468
                     77171                        =X1    B7-1                                                    TSDATA    469
                          76210                   =X2    1           WORD COUNT = 1                              TSDATA    470
                               74741              =X7    A4+1                                                    TSDATA    471
           160  20022                             LX0    P.DINDX                                                 TSDATA    472
                     5170000000 X                 SA7    SELIST                                                  TSDATA    473
                               66510              =B5    2-1         ADD (X6, X1)                                TSDATA    474
           161  12602                             BX6    X0+X2                                                   TSDATA    475
                     0100000276 +                 RJ     ADIT        ADD LOGICAL CONSTANT TO DATA ITEM TABLE     TSDATA    476
           162  5150000000 X                      SA5    SELIST                                                  TSDATA    477
                          53450                   SA4    X5          RESTORE SOME REGISTERS                      TSDATA    478
                               63240              SB2    X4                                                      TSDATA    479
                                                                                                                 TSDATA    480
           163  5130000000 X             BIT9     SA3    N.ITEM                                                  TSDATA    481
                          73631                   =X6    X3+1        (N.ITEM) = (N.ITEM) + 1                     TSDATA    482
                               54630              SA6    A3                                                      TSDATA    483
                                        *         EQ     BIT.S             PROCESS SEPERATOR                     TSDATA    484
                                                                                                                 TSDATA    485
                                        *         PROCESS SEPERATOR AFTER CONSTANT                               TSDATA    486
                                                                                                                 TSDATA    487
                                                                                                                 TSDATA    488
           164  5110000000 X             BIT.S    SA1    CLOSREP                                                 TSDATA    489
                          0321000166 +            PL     X1,BIT.S1         IF NO SINGLE ELEMENT REP OUTSTANDING  TSDATA    490
           165  0100000176 +                      RJ     CRL                                                     TSDATA    491
                                                                                                                 TSDATA    492
           166  6130000013               BIT.S1   IF.EQ  O.COMMA,BIT.L     LOOP IF A ,                           TSDATA    493
           167  6130000007                        IF.EQ  O.SLASH,EXIT.                                           TSDATA    494
           170  6130000011                        IF.NE  O.),E.DIL3        IF NOT A RPAREN, ERR..                TSDATA    495
           171  43700                             MX7    0                                                       TSDATA    496
                     5170000000 X                 SA7    PL                CLEAR PAREN LEVEL                     TSDATA    497
           172  5110000000 X                      SA1    CLOSREP                                                 FCC0522     4
                          0301000174 +            ZR     X1,BIT.S2         IF NO REP LIST TO CLOSE               TSDATA    498
           173  0100000176 +                      RJ     CRL               CLOSE IT                              TSDATA    499
                                                                                                                 TSDATA    500
           174  54441                    BIT.S2   NEXTE                    NEXT ELEMENT                          TSDATA    501
                          0400000164 +            EQ     BIT.S                                                   TSDATA    502
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    12
                                                                      CRL 
  
                                        **        CRL - CLOSE OUT REP LIST.                                      TSDATA    504
                                        *                                                                        TSDATA    505
                                        *         ENTRY  A1,X1 = CLOSREP                                         TSDATA    506
                                                                                                                 TSDATA    507
                                                                                                                 TSDATA    508
           175  76040                    CRL2     SX0    B4                                                      TSDATA    509
                     20066                        LX0    54                POSITION ITEM LENGTH                  TSDATA    510
                          12606                   BX6    X0+X6                                                   TSDATA    511
                               54660              SA6    A6                STORE UPDATED REP WORD IN DIT         TSDATA    512
                                                                                                                 TSDATA    513
           176  0400400176 +             CRL      SUBR               ENTRY/EXIT...                               TSDATA    514
           177  5120000000 X                      SA2    REPFLAG                                                 TSDATA    515
                          43700                   MX7    0                                                       TSDATA    516
                               54710              SA7    A1                CLEAR FLAGS                           TSDATA    517
           200  54720                             SA7    A2                                                      TSDATA    518
                                                                                                                 TSDATA    519
                     5130000000 X                 SA3    TI.DAT                                                  TSDATA    520
                               36632              IX6    X3+X2                                                   TSDATA    521
           201  5216777776                        =A1    X6-1        WORD 1 OF REP ENTRY IN *DIT*                FCC1746X    6
                          5130000000 X            SA3    N.ITEM            NUMBER OF ITEMS IN REP LIST           TSDATA    523
           202  21222                             AX2    P.DINDX                                                 TSDATA    524
                     63630                        SB6    X3                B6 = NUMBER OF ITEMS IN LIST          TSDATA    525
                          73010                   SX0    X1                REMOVE REP FLAG BIT                   FCC0522     5
                               42603              IX6    X0*X3             RF * N.ITEMS                          FCC0522     6
           203  36762                             IX7    X6+X2                                                   TSDATA    531
                     54730                        SA7    A3                                                      TSDATA    532
                          20344                   LX3    P.DIRL                                                  TSDATA    533
                               12631              BX6    X3+X1             ADD NUMBER OF ITEMS TO WORD 1         TSDATA    534
           204  5120000000 X                      SA2    TI.DAT                                                  TSDATA    535
                          5130000000 X            SA3    TI=DAT            L.DIT                                 TSDATA    536
           205  36223                             IX2    X2+X3                                                   TSDATA    537
                     74010                        SX0    A1                                                      TSDATA    538
                          37720                   IX7    X2-X0                                                   TSDATA    539
                               20722              LX7    P.DINDX           INDEX TO NEXT FEOUP                   TSDATA    540
           206  12676                             BX6    X7+X6                                                   TSDATA    541
                     54610                        SA6    A1                UPDATE WORD 1                         TSDATA    542
                                                                                                                 TSDATA    543
                                        **        SEARCH FOR AND MARK REP LISTS WHERE ALL ITEMS ARE THE SAME     TSDATA    544
                                        *         LENGTH AND LENGTH = 1 OR 2 .                                   TSDATA    545
                                                                                                                 TSDATA    546
                          54211                   SA2    A1+B1                                                   TSDATA    547
                               63420              SB4    X2                NUMBER OF WORDS IN FIRST ITEM         TSDATA    548
           207  67341                             SB3    B4-B1                                                   TSDATA    549
                     0713000176 +                 GT1    B3,EXIT.    IF WC .GT. 2                                TSDATA    550
                                                                                                                 TSDATA    551
           210  21222                    CRL1     AX2    P.DINDX                                                 TSDATA    552
                     67661                        SB6    B6-B1                                                   TSDATA    553
                          0460000175 +            ZR     B6,CRL2           IF END OF REP LIST                    TSDATA    554
           211  63320                             SB3    X2                                                      FCC0522     7
                     54223                        SA2    A2+B3                                                   FCC0522     8
                          63320                   SB3    X2                                                      TSDATA    557
           212  0434000210 +                      EQ     B3,B4,CRL1        LOOP IF ITEMS HAVE THE SAME LENGTH    TSDATA    558
                          0400000176 +            EQ     EXIT.                                                   TSDATA    559
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    13
                                                                      CFC 
  
                                        **        CFC -  CHECK FOR COMPLEX DATA ITEM.                            TSDATA    561
                                        *                                                                        TSDATA    562
                                        *         ENTRY  (A4) _ POINTS TO (                                      TSDATA    563
                                        *                                                                        TSDATA    564
                                        *         EXIT   X0 = 0 IF A COMPLEX CON IS DETECTED AND                 TSDATA    565
                                        *                X1,X2 = REAL AND IMAGINARY PARTS OF CONVERTED CONSTANT  TSDATA    566
                                        *                SELIST POINTER UPDATED TO POINT PAST )                  TSDATA    567
                                        *                X0 " 0 IF NOT AND A4,X4 UNTOUCHED                       TSDATA    568
                                                                                                                 FCC0787    20
                                        *         USES   A1-A7,X0-X7,B2-B4,B7                                    FCC0787    21
                                                                                                                 TSDATA    569
                                                                                                                 TSDATA    570
           213  43001                    CFCN     MX0    1           INDICATE FAILURE                            TSDATA    571
                     53450                        SA4    X5          RESTORE A4                                  TSDATA    572
                                                                                                                 TSDATA    573
           214  0400400214 +             CFC      SUBR               ENTRY/EXIT...                               TSDATA    574
           215  54341                             SA3    A4+B1                                                   TSDATA    575
                     63230                        SB2    X3                                                      TSDATA    576
                          43700                   MX7    0                 SET FOR + SIGN                        TSDATA    577
                               74540              SX5    A4          SAVE A4 IF NOT A COMPLEX CONSTANT           TSDATA    578
           216  6130000037                        IF.EQ  O.PERIOD,CFC25                                          TSDATA    579
           217  6142777773                        SB4    B2-O.PL                                                 TSDATA    580
                          0440000221 +            ZR     B4,CFC1     IF PLUS                                     TSDATA    581
           220  0541000222 +                      NE     B4,B1,CFC2  IF NOT MINUS                                TSDATA    582
                          43774                   MX7    60                                                      TSDATA    583
           221  54331                    CFC1     NEXTE  3                                                       TSDATA    584
           222  6130000037               CFC2     IF.EQ  O.PERIOD,CFC25                                          TSDATA    585
           223  6130000002                        IF.NE  O.CONS,CFCN                                             TSDATA    586
           224  64430                    CFC25    SB4    A3                                                      TSDATA    587
                     5170000000 X                 SA7    SCR2        SAVE SIGN                                   FCC0787    22
           225  0100000000 X                      RJ     DEC         CONVERT CONSTANT                            TSDATA    589
           226  7221777774                        SX2    X1-M.REAL                                               TSDATA    590
                          0312000213 +            NZ     X2,CFCN     IF NOT A REAL CONSTANT                      TSDATA    591
           227  56341                             SA3    B4+B1       ADVANCE (A3)                                TSDATA    592
                     63230                        SB2    X3                                                      TSDATA    593
                          6130000013              IF.NE  O.COMMA,CFCN                                            TSDATA    594
                          5120000000 X            SA2    SCR2                                                    FCC0787    23
           231  54331                             =A3    A3+1                                                    TSDATA    596
                     13662                        BX6    X6-X2                                                   TSDATA    597
                          63230                   SB2    X3                                                      TSDATA    598
                               43700              MX7    0                                                       TSDATA    599
           232  54620                             SA6    A2          SAVE REAL PART                              TSDATA    600
                     6130000037                   IF.EQ  O.PERIOD,CFC45                                          TSDATA    601
                          6130000004              IF.EQ  O.PL,CFC3   IF PLUS SIGN                                TSDATA    602
                          6130000005              IF.NE  O.MIN,CFC4        IF NOT -                              TSDATA    603
                          17777                   BX7    -0                                                      TSDATA    604
           236  54331                    CFC3     NEXTE  3                                                       TSDATA    605
           237  6130000037               CFC4     IF.EQ  O.PERIOD,CFC45                                          TSDATA    606
           240  6130000002                        IF.NE  O.CONS,CFCN                                             TSDATA    607
           241  64430                    CFC45    SB4    A3                                                      TSDATA    608
                     5170000001 X                 SA7    SCR2+1                                                  FCC0787    24
           242  0100000000 X                      RJ     DEC               CONVERT IMAGINARY PART                TSDATA    610
           243  7221777774                        SX2    X1-M.REAL                                               TSDATA    611
                          0312000213 +            NZ     X2,CFCN     IF NOT A REAL CONSTANT                      TSDATA    612
           244  56341                             SA3    B4+B1             ADVANCE (A3)                          TSDATA    613
                     63230                        SB2    X3                                                      TSDATA    614
                          6130000011              IF.NE  O.RP,CFCN                                               TSDATA    615
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    14
                                                                      CFC 
  
                          5120000001 X            SA2    SCR2+1      RETRIEVE SIGN OF IMAGINARY PART             FCC0787    25
           246  55121                             =A1    A2-1        RETRIEVE REAL PART                          TSDATA    617
                     13262                        BX2    X6-X2                                                   TSDATA    618
                          74631                   =X6    A3+1                                                    TSDATA    619
                               54431              =A4    A3+1                                                    TSDATA    620
           247  43000                             MX0    0           INDICATE SUCCESS                            TSDATA    621
                     5160000000 X                 SA6    SELIST                                                  TSDATA    622
           250  0400000214 +                      EQ     EXIT.                                                   TSDATA    623
  
  
  
  
                                        **        CSC -  CHECK SUBSCRIPT CONSTANT.                               TSDATA    625
                                        *                CHECKS CONSTANT FOR PROPER TYPE (INTEGER OR OCTAL )     TSDATA    626
                                        *                AND MAGNITUDE ( 0 < CON < 2**17 )                       TSDATA    627
                                        *                                                                        TSDATA    628
                                        *         ENTRY  X4 = ELIST FOR CONSTANT                                 TSDATA    629
                                        *                                                                        TSDATA    630
                                        *         EXIT   X6 = CONVERTED CONSTANT                                 TSDATA    631
                                                                                                                 TSDATA    632
                                                                                                                 TSDATA    633
           251  0400400251 +             CSC      SUBR               ENTRY/EXIT...                               TSDATA    634
           252  64440                             SB4    A4                                                      TSDATA    635
                     0100000000 X                 RJ     DEC         CONVERT CONSTANT                            TSDATA    636
           253  10366                             BX3    X6                                                      TSDATA    637
                     0306000000 X                 ZR     X6,E.DCE    IF = ZERO                                   TSDATA    638
                               21321              AX3    17                                                      TSDATA    639
           254  6221777775                        SB2    X1-M.INT                                                TSDATA    640
                          0313000000 X            NZ     X3,E.DVL9   IF .GT. 2**17 1                             FCCA476     6
           255  0301000251 +                      ZR     X1,EXIT.    IF UNIVERSAL TYPE                           TSDATA    642
                          0520000000 X            NZ     B2,E.DCE    IF NOT TYPE INTEGER, ERR..                  TSDATA    643
           256  0400000251 +                      EQ     EXIT.                                                   TSDATA    644
  
  
  
  
                                        **        ADC -  ADD CONSTANT TO =DIT=.                                  TSDATA    646
                                        *                                                                        TSDATA    647
                                        *         ENTRY  X1,X4,A4,A5 SET UP TO CONSTANT BY MACRO "NEXTE"         TSDATA    648
                                        *                X7 = -0 IF CON PRECEEDED BY - SIGN , ELSE 0             TSDATA    649
                                        *                                                                        TSDATA    650
                                        *         EXIT   X1,X4,A4,A5 RESTORED BY A CALL TO MACRO "GETE"          TSDATA    651
                                                                                                                 TSDATA    652
                                                                                                                 TSDATA    653
           257  10577                    ADC2     BX5    X7          SAVE CONSTANT SIGN                          TSDATA    654
                     64440                        SB4    A4                                                      TSDATA    655
                          0100000000 X            RJ     DEC         CONVERT TO BINARY                           TSDATA    656
           260  10011                             BX0    X1                                                      FCC1563X   14
                     76741                        SX7    B4+B1                                                   TSDATA    657
                          21102                   AX1    P.LONG                                                  TSDATA    658
                               76410              =X4    1                                                       TSDATA    659
           261  11341                             BX3    X4*X1       ISOLATE *LONG* BIT.                         TSDATA    660
                     5170000000 X                 SA7    SELIST                                                  TSDATA    661
                               10722              BX7    X2                                                      TSDATA    662
           262  73231                             SX2    X3+B1       WC = 1 OR 2                                 TSDATA    663
                     36424                        IX4    X2+X4       INDEX = WC + 1                              FCC1563X   15
                          63531                   SB5    X3+B1                                                   TSDATA    665
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    15
                                                                      ADC 
  
                               13165              BX1    X6-X5       (X1) = SIGN * (UPPER HALF)                  TSDATA    666
           263  20422                             LX4    P.DINDX                                                 FCC1563X   16
                     20044                        LX0    P.CTYP                                                  FCC1563X   17
                          36642                   IX6    X4+X2       INDEX + WORD COUNT                          FCC1563X   18
                               13275              BX2    X7-X5       (X2) = SIGN * (LOWER HALF)                  TSDATA    669
           264  12606                             BX6    X0+X6       CONSTANT TYPE + INDEX + WORD COUNT          FCC1563X   19
                                                                                                                 TSDATA    670
           265  0100000276 +             ADC4     RJ     ADIT        ADD  X6, X1 AND X2 TO DIT                   TSDATA    671
           266  5150000000 X                      SA5    SELIST                                                  TSDATA    672
                          53450                   SA4    X5                                                      TSDATA    673
                               63240              SB2    X4                                                      TSDATA    674
                                                                                                                 TSDATA    675
           267  0400400267 +             ADC      SUBR               ENTRY/EXIT...                               TSDATA    676
           270  6234777776                        SB3    X4-O.HOLL                                               TSDATA    677
                          0530000257 +            NZ     B3,ADC2     IF NOT HOLLERITH CONSTANT                   TSDATA    678
                                                                                                                 TSDATA    679
           271  43073                             MX0    59                                                      TSDATA    680
                     74641                        =X6    A4+1                                                    TSDATA    681
                          5160000000 X            SA6    SELIST      SAVE STRING BUFFER ADDRESS                  TSDATA    682
           272  10144                             BX1    X4          PROCESS WHEN HOLLERITH                      TSDATA    683
                     21422                        AX4    P.LCON                                                  TSDATA    684
                          5130000001 +            SA3    DIT.HOL     DIT HEADER WORD                             TSDATA    685
           273  15770                             BX7    -X0*X7      X7 = 1 IFF PRECEEDED BY A MINUS SIGN        TSDATA    686
                     43063                        MX0    -L.LCON                                                 TSDATA    687
                          15440                   BX4    -X0*X4                                                  TSDATA    688
                               20771              LX7    P.DNEGH                                                 TSDATA    689
           274  73240                             SX2    X4          X2 = WC                                     TSDATA    690
                     12632                        BX6    X3+X2                                                   TSDATA    691
                          66510                   =B5    1                                                       TSDATA    692
                               12667              BX6    X6+X7       SET DNEGH FIELD                             TSDATA    693
           275  0400000265 +                      EQ     ADC4                                                    TSDATA    694
  
  
  
  
                                        **        ADIT - ADD WORDS TO DIT TABLE.                                 TSDATA    696
                                        *                                                                        TSDATA    697
                                        *         ENTRY  X6,X1,X2 = WORDS TO BE ADDED                            TSDATA    698
                                        *                B5 = NUMBER OF WORDS - 1 TO BE ADDED                    TSDATA    699
                                        *                X6 IS ALWAYS ADDED                                      TSDATA    700
                                        *         EXIT   (X2) = NEW LENGTH OF ITEM TABLE (TI.DAT).               TSDATA    701
                                                                                                                 TSDATA    702
                                                                                                                 TSDATA    703
           276  0400400276 +             ADIT     SUBR               ENTRY/EXIT...                               TSDATA    704
           277  5160000000 X                      SA6    ADWT                                                    TSDATA    705
                          10511                   BX5    X1                                                      TSDATA    706
                               22402              LX4    X2                                                      TSDATA    707
           300  5110000000 X                      ALLOC  TI.DAT,B5+1                                             TSDATA    708
           302  5130000000 X                      SA3    ADWT                                                    TSDATA    709
                          66251                   SB2    B5+B1                                                   TSDATA    710
                               36112              IX1    X1+X2                                                   TSDATA    711
           303  10633                             BX6    X3                                                      TSDATA    712
                     67202                        SB2    -B2                                                     TSDATA    713
                          53612                   SA6    X1+B2             STORE FIRST WORD                      TSDATA    714
                               10755              BX7    X5                                                      TSDATA    715
           304  0450000276 +                      ZR     B5,EXIT.    IF ONLY 1 WORD                              TSDATA    716
                          54761                   SA7    A6+B1                                                   TSDATA    717
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    16
                                                                      ADIT
  
           305  0451000276 +                      EQ1    B5,EXIT.    IF TWO IS ALL                               TSDATA    718
                          10644                   BX6    X4                                                      TSDATA    719
                               54671              SA6    A7+B1                                                   TSDATA    720
           306  0400000276 +                      EQ     EXIT.                                                   TSDATA    721
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    17
                                                                      BVT 
  
                                        **        BVT - PROCESS DATA VARIABLE LIST.                              TSDATA    723
                                        *                                                                        TSDATA    724
                                        *         ENTRY  (A4) _ FWA DATA VARIABLE LIST.                          TSDATA    725
                                        *                (X4) = ((A4))                                           TSDATA    726
                                        *                                                                        TSDATA    727
                                        *                SCANS DATA VARIABLE LIST AND BUILDS A "DVT" ENTRY FOR   TSDATA    728
                                        *                ITEM, FORMAT                                            TSDATA    729
                                        *                                                                        FCC1563X   20
                                        *         1/0,1/SDPF,1/ORGF,1/DDD,14/0,6/CTYP,18/SYMORD,18/EQUIV BIAS    FCC1563X   21
                                        *         24/0,18/LENGTH,18/ITEM COUNT                                   FCC1563X   22
                                        *                                                                        TSDATA    732
                                        *                WHERE:                                                  TSDATA    733
                                        *                 SDPF = 0 IF SINGLE PRECISION , ELSE 1                  TSDATA    734
                                        *                 DDD = 1 IF PREVIOUS APPEARENCES IN A DATA STMT         TSDATA    735
                                        *                 LENGTH = AMOUNT OF STORAGE ASSIGNED TO THE VAR         TSDATA    736
                                        *                 ITEM COUNT = NUMBER OF ITEMS                           TSDATA    737
                                        *                                                                        TSDATA    738
                                        *                IN THE CASE THAT EXPLICIT DO LOOPS APPEAR, THEY ARE     TSDATA    739
                                        *                REDUCED TO THE FORM:                                    TSDATA    740
                                        *                (((A(M1*I1,M2*I2,M3*I3),I = 1,T1),J = 1,T2),K = 1,T3)   TSDATA    741
                                        *                WHERE I1 I2 I3 IS SOME PERMUTATION OF I,J AND K .       TSDATA    742
                                        *                THE ADDITIONAL BIAS IS STORED IN THE BIAS FIELD         TSDATA    743
                                        *                AND SUBSCRIPT WORDS OF THE FORM:                        TSDATA    744
                                        *                 6/ P,  18/ M(P),  18/ T(I),  18/ DIM(P)                TSDATA    745
                                        *                ARE APPENDED, WHERE:                                    TSDATA    746
                                        *                 P = ORDER OF APPEARENCE IN SUBSCRIPT EXPR              TSDATA    747
                                        *                 M(P) = MULTIPLIER                                      TSDATA    748
                                        *                 T(I) = UPPER LIMIT = TRIP COUNT FOR LOOP               TSDATA    749
                                        *                 DIM(P) = P"TH DIMENSION OF THE ARRAY                   TSDATA    750
                                        *                                                                        TSDATA    751
                                        *         USES   ALL BUT A0                                              TSDATA    752
                                        *         CALLS  MDL, PDV, PSS                                           TSDATA    753
                                                                                                                 TSDATA    754
                                                                                                                 TSDATA    755
           307  0400400307 +             BVT      SUBR               ENTRY/EXIT...                               TSDATA    756
           310  6224777770                        SB2    X4-O.SLASH                                              TSDATA    757
                          0520000312 +          NZ       B2,BVT1     IF AN INITIAL LIST                          TSDATA    758
           311  54441                             =A4    A4+1        SKIP OVER ANY COMMA                         TSDATA    759
                                                                                                                 TSDATA    760
           312  54441                    BVT1     NEXTE                    NEXT ELEMENT                          TSDATA    761
                          43600                   MX6    0                                                       TSDATA    762
           313  5160000000 X                      SA6    BIAS                                                    TSDATA    763
                          5160000000 X            SA6    N.VSUB                                                  TSDATA    764
           314  6130000003                        IF.NE  O.VAR,BVT3        IF NOT A NAME                         TSDATA    765
           315  0100001117 +                      RJ     PDV               PROCESS NAME                          TSDATA    766
           316  5130001175 +                      SA3    ="M.SEP1"                                               TSDATA    767
                          22723                   LX7    B2,X3                                                   TSDATA    768
           317  0327000000 X                      PL     X7,E.DVL1         IF ILLEGAL ITEM FOLLOWING NAME        TSDATA    769
                          6130000010              IF.EQ  O.(,BVT1A         IF NAME(                              TSDATA    770
                          5130000000 X            SA3    N.DIMS                                                  TSDATA    771
           321  0303000344 +                      ZR     X3,BVT2           IF A SIMPLE VARIABLE                  TSDATA    772
                          6170000000 X            ANSI   E.DAA                                                   TSDATA    773
           323  0400000344 +                      EQ     BVT2                                                    TSDATA    774
                                                                                                                 TSDATA    775
                                        **        PROCESS A(C1,C2,C3)                                            TSDATA    776
                                                                                                                 TSDATA    777
           324  0100000520 +             BVT1A    RJ     PSS               PROCESS SUBSCRIPT LIST                TSDATA    778
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    18
                                                                      BVT 
  
           325  0570000000 X                      NZ     B7,E.DVL5         IF VARIABLE SUBS APPEARED             TSDATA    779
                                                                                                                 TSDATA    780
                                        **        COMPUTE BIAS OF A(C1,C2,C3)                                    TSDATA    781
                                                                                                                 TSDATA    782
                          5120000000 X            SA2    N.SUBS                                                  TSDATA    783
           326  5110000000 X                      SA1    CON2                                                    TSDATA    784
                          63520                   SB5    X2                                                      TSDATA    785
                               67301              SB3    -B1               B3 = -1                               TSDATA    786
           327  73613                             SX6    X1+B3             C1-1                                  TSDATA    787
                     0451000334 +                 EQ     B5,B1,BVT1B       IF ONLY 1 SUBSCRIPT                   TSDATA    788
                               54111              SA1    A1+B1             C2                                    TSDATA    789
           330  5120000001 X                      SA2    DIM.MUL+1         DIM1                                  TSDATA    790
                          67551                   SB5    B5-B1                                                   TSDATA    791
                               73113              SX1    X1+B3             C2-1                                  TSDATA    792
           331  42321                             IX3    X2*X1             DIM1*(C2-1)                           TSDATA    793
                     36636                        IX6    X3+X6                                                   TSDATA    794
                          0451000334 +            EQ     B5,B1,BVT1B       IF 2 SUBS                             TSDATA    795
           332  54111                             SA1    A1+B1             C3                                    TSDATA    796
                     54221                        SA2    A2+B1             DIM1*DIM2                             TSDATA    797
                          73113                   SX1    X1+B3                                                   TSDATA    798
                               42321              IX3    X2*X1             DIM1*DIM2*(C3-1)                      TSDATA    799
           333  36636                             IX6    X3+X6                                                   TSDATA    800
           334  5130000000 X             BVT1B    SA3    SDPF                                                    TSDATA    801
                          63330                   SB3    X3                                                      TSDATA    802
                               22636              LX6    B3,X6             *2 IF 2 WORDS /ENTRY                  TSDATA    803
           335  5160000000 X                      SA6    BIAS                                                    TSDATA    804
                                                                                                                 TSDATA    805
           336  5120000001 X             BVT1C    SA2    DVT+1             ADJUST SECOND WORD OF DVT ENTRY       TSDATA    806
                          21222                   AX2    18                WORD LENGTH OF ARRAY                  TSDATA    807
                               37226              IX2    X2-X6             REDUCE BY BIAS                        TSDATA    808
           337  0332000000 X                      MI     X2,E.DVL6   IF LOCF(A(C1,C2,C3))IS OUT OF RANGE         FCCA476     7
                          0302000000 X            ZR     X2,E.DVL6   IF OUT OF RANGE                             FCCA476     8
           340  20222                             LX2    18                (FOR PROPER HANDLING OF HOLLERITH CON TSDATA    810
                     76010                        SX0    B1                SET ITEM COUNT = 1                    TSDATA    811
                          12602                   BX6    X0+X2                                                   TSDATA    812
                               54620              SA6    A2                                                      TSDATA    813
           341  5150000000 X                      SA5    SELIST                                                  TSDATA    814
                          53450                   SA4    X5          FETCH SEPARATOR                             TSDATA    815
                               63240              SB2    X4                                                      TSDATA    816
           342  6130000013                        IF.EQ  O.COMMA,BVT2      IF A ,                                TSDATA    817
           343  6130000007                        IF.NE  O.SLASH,E.DVL1    IF NO SLASH                           TSDATA    818
                                                                                                                 TSDATA    819
           344  76500                    BVT2     SX5    B0                                                      TSDATA    820
                     0100000614 +                 RJ     MDL               MATCH UP LISTS                        TSDATA    821
           345  5150000000 X                      SA5    SELIST                                                  TSDATA    822
                          53450                   SA4    X5          RESTORE SEPARATOR                           TSDATA    823
                               63240              SB2    X4                                                      TSDATA    824
           346  6130000007                        IF.NE  O.SLASH,BVT1      LOOP IF NOT END OF VAR LIST           TSDATA    825
           347  0400000307 +                      EQ     EXIT.                                                   TSDATA    826
                                                                                                                 TSDATA    827
                                        **        PROCESS EXPLICIT DO LOOPS                                      TSDATA    828
                                                                                                                 TSDATA    829
           350  6130000010               BVT3     IF.NE  O.(,E.DVL3        IF NO LPAREN                          TSDATA    830
           351  76700                             SX7    B0                                                      TSDATA    831
           352  54441                    BVT4     NEXTE                    NEXT ELIST ELEMENT                    TSDATA    832
                          73771                   SX7    X7+B1             INCREMENT PAREN COUNT                 TSDATA    833
           353  0423000352 +                      EQ     B2,B3,BVT4        LOOP IF A (                           TSDATA    834
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    19
                                                                      BVT 
  
                          6130000003              IF.NE  O.VAR,E.DVL3      IF NEXT IS NOT A NAME                 TSDATA    835
                          5170000000 X            SA7    PL                SAVE PAREN LEVEL                      TSDATA    836
           355  5170000000 X                      SA7    NONANSI           SET NON ASNI USEAGE FLAG              TSDATA    837
                          0100001117 +            RJ     PDV               PROCESS ARRAY NAME                    TSDATA    838
           356  6130000010                        IF.NE  O.(,E.DVL2        ERROR IF NOT NAME(                    TSDATA    839
           357  0100000520 +                      RJ     PSS               PROCESS SUBSCRIPT LIST                TSDATA    840
           360  5110000000 X                      SA1    PL                                                      TSDATA    841
                          63610                   SB6    X1                                                      TSDATA    842
           361  0767000000 X                      GT     B7,B6,E.DVL2      ERR IF MORE VARIABLE SUBS THEN LOOPS  TSDATA    843
                                                                                                                 TSDATA    844
                                        **        SYNTAX CHECK DO INDICES AND CONVERT LOOP TO CANONICAL FORM     TSDATA    845
                                                                                                                 TSDATA    846
                          66500                   SB5    B0                LOOP INDEX                            TSDATA    847
                               43600              MX6    0                                                       TSDATA    848
           362  5160000000 X                      SA6    N.VSUB            CLEAR LOOP COUNTER                    TSDATA    849
                                                                                                                 TSDATA    850
           363  5150000000 X             BVT5     SA5    SELIST                                                  TSDATA    851
                          53450                   SA4    X5                                                      TSDATA    852
                               63240              SB2    X4                                                      TSDATA    853
           364  6130000013                        IF.NE  O.COMMA,E.DVL2    IF NO ,                               TSDATA    854
           365  54441                             NEXTE                                                          TSDATA    855
                          6130000003              IF.NE  O.VAR,E.DVL2      IF NO INDEX VARIABLE                  TSDATA    856
                                                                                                                 TSDATA    857
                                        **        SEARCH SUBSCRIPT TABLE FOR MATCH OF INDEX VARIABLE             TSDATA    858
                                                                                                                 TSDATA    859
                          5120000000 X            SA2    N.SUBS                                                  TSDATA    860
           367  66200                             SB2    B0                INDEX                                 TSDATA    861
                     63320                        SB3    X2                LIMIT                                 TSDATA    862
           370  5132000000 X             BVT6     SA3    INDX+B2           SUBSCRIPT VARIABLE                    TSDATA    863
                          66221                   SB2    B2+B1             P = P+1                               TSDATA    864
                               37543              IX5    X4-X3                                                   TSDATA    865
           371  0305000373 +                      ZR     X5,BVT7           IF A MATCH                            TSDATA    866
                          0723000370 +            LT     B2,B3,BVT6        IF MORE SUBS TO GO                    TSDATA    867
           372  0400000000 X                      EQ     E.DVL4            IF LOOP INDEX DOESN"T MATCH SUBSC VAR TSDATA    868
                                                                                                                 TSDATA    869
           373  76651                    BVT7     SX6    B5+B1                                                   TSDATA    870
                     54630                        SA6    A3                INDX(P) = I                           TSDATA    871
                          77721                   SX7    B2-B1                                                   TSDATA    872
           374  5170000000 X                      SA7    SUBN              SUBN = P                              TSDATA    873
                                                                                                                 TSDATA    874
                                        **        SYNTAX CHECK AND CONVERT THE LOOP PARAMETERS.                  TSDATA    875
                                                                                                                 TSDATA    876
                          54441                   NEXTE                                                          TSDATA    877
           375  6130000012                        IF.NE  O.=,E.DVL21  IF NO = SIGN                               TSDATA    878
                                                                                                                 TSDATA    879
           376  54441                             NEXTE                                                          TSDATA    880
                          6130000002              IF.NE  O.CONS,E.DVL22  IF LOWER LIMIT NOT CONSTANT             TSDATA    881
                          0100000251 +            RJ     CSC         CONVERT LOWER LIMIT                         TSDATA    882
           400  56441                             =A4    B4+1                                                    TSDATA    883
                     5160000000 X                 SA6    LL                                                      TSDATA    884
                                                                                                                 TSDATA    885
                               63240              SB2    X4                                                      TSDATA    886
           401  6130000013                        IF.NE  O.COMMA,E.DVL23   IF NO COMMA                           TSDATA    887
                                                                                                                 TSDATA    888
           402  54441                             NEXTE                                                          TSDATA    889
                          6130000002              IF.NE  O.CONS,E.DVL24    IF UPPER LIMIT NOT CONSTANT           TSDATA    890
                          0100000251 +            RJ     CSC         CONVERT UPPER LIMIT                         TSDATA    891
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    20
                                                                      BVT 
  
           404  56441                             =A4    B4+1                                                    TSDATA    892
                     5160000000 X                 SA6    UL                                                      TSDATA    893
                                                                                                                 TSDATA    894
                               76710              =X7    1                                                       TSDATA    895
           405  63240                             SB2    X4                                                      TSDATA    896
                     5170000000 X                 SA7    INC                                                     TSDATA    897
           406  6130000013                        IF.NE  O.COMMA,BVT8      IF INCREMENT OMITTED                  TSDATA    898
                                                                                                                 TSDATA    899
           407  54441                             NEXTE                                                          TSDATA    900
                          6130000002              IF.NE  O.CONS,E.DVL25    IF INCREMENT NOT CONSTANT             TSDATA    901
                          0100000251 +            RJ     CSC         CONVERT INCREMENT                           TSDATA    902
           411  56441                             =A4    B4+1                                                    TSDATA    903
                     5160000000 X                 SA6    INC                                                     TSDATA    904
                               63240              SB2    X4                                                      TSDATA    905
                                                                                                                 TSDATA    906
           412  6130000011               BVT8     IF.NE  O.RP,E.DVL26      IF NO TERMINAL *)*                    TSDATA    907
           413  74741                             =X7    A4+1                                                    TSDATA    908
                     5170000000 X                 SA7    SELIST      SAVE STRING BUFFER POINTER                  TSDATA    909
                                                                                                                 TSDATA    910
                                        **        TEST FOR LOWER LIMIT OF SUBSCRIPT OUTSIDE OF DIM RANGE         TSDATA    911
                                                                                                                 TSDATA    912
           414  5150000000 X                      SA5    SUBN                                                    TSDATA    913
                          63250                   SB2    X5                B2 = J                                TSDATA    914
           415  5112000000 X                      SA1    CON1+B2           CON1(J)                               TSDATA    915
                          5120000000 X            SA2    LL                                                      TSDATA    916
           416  5132000000 X                      SA3    CON2+B2           CON2(J)                               TSDATA    917
                          42012                   IX0    X1*X2                                                   TSDATA    918
                               36703              IX7    X0+X3             X7 = V = C1*LL+C2                     TSDATA    919
           417  7267777776                        SX6    X7-1                                                    TSDATA    920
                          0336000000 X            MI     X6,E.DVL6         IF SUBSC VALUE < 1                    TSDATA    921
                                                                                                                 TSDATA    922
                                        **        TEST FOR DEGENERATE LOOP ( A 1 TRIP LOOP )                     TSDATA    923
                                                                                                                 TSDATA    924
           420  5150000000 X                      SA5    N.VSUB                                                  TSDATA    925
                          5110000000 X            SA1    UL                                                      TSDATA    926
           421  63550                             SB5    X5                B5 = LOOP NUMBER                      TSDATA    927
                     73220                        SX2    X2                LL                                    TSDATA    928
                          37021                   IX0    X2-X1             LL-UL                                 TSDATA    929
           422  0320000426 +                      PL     X0,BVT10          IF DEGENERATE ( LL \ UL )             TSDATA    930
                                                                                                                 TSDATA    931
                          5130000000 X            SA3    INC                                                     TSDATA    932
           423  37030                             IX0    X3-X0             UL-LL+INC                             TSDATA    933
                     27000                        IX6    X0/X3             TRIP COUNT = X0/INC                   TSDATA    934
           425  63660                             SB6    X6                                                      TSDATA    935
                     0561000430 +                 NE     B6,B1,BVT11       IF NOT DEGENREATE                     TSDATA    936
                                                                                                                 TSDATA    937
                                        **        1 TRIP LOOP - CHANGE TO CONSTANT SUBSCRIPT                     TSDATA    938
                                                                                                                 TSDATA    939
           426  43600                    BVT10    MX6    0                                                       TSDATA    940
                     5162000000 X                 SA6    INDX+B2           INDX(J) = 0                           TSDATA    941
           427  5172000000 X                      SA7    CON2+B2           CON2(J) = V                           TSDATA    942
                          0400000444 +            EQ     BVT12                                                   TSDATA    943
                                                                                                                 TSDATA    944
                                        **        NORMAL CASE - ADJUST C1 AND C2  SO LOOP TAKES THE FORM         TSDATA    945
                                        *                ( A( ,C1*I+C2, ) , I = 1,TC )                           TSDATA    946
                                                                                                                 TSDATA    947
           430  5110000000 X             BVT11    SA1    INC                                                     TSDATA    948
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    21
                                                                      BVT 
  
                          5122000000 X            SA2    CON1+B2                                                 TSDATA    949
           431  5132000000 X                      SA3    CON2+B2                                                 TSDATA    950
                          5140000000 X            SA4    LL                                                      TSDATA    951
           432  37541                             IX5    X4-X1                                                   TSDATA    952
                     42612                        IX6    X1*X2                                                   TSDATA    953
                          54620                   SA6    A2                C1 = C1*INC                           TSDATA    954
                               42425              IX4    X2*X5                                                   TSDATA    955
           433  36734                             IX7    X3+X4                                                   TSDATA    956
                     54730                        SA7    A3                C2 = C2+C1*(LL-INC)                   TSDATA    957
                                                                                                                 TSDATA    958
                                        **        COMBINE AND STORE P, C1(P) , TC AND DIM(P) IN LPINF(I)         TSDATA    959
                                                                                                                 TSDATA    960
                          20644                   LX6    36                C1                                    TSDATA    961
           434  5142000000 X                      SA4    DIM+B2                                                  TSDATA    962
                          12646                   BX6    X4+X6                                                   TSDATA    963
                               76020              SX0    B2                P                                     TSDATA    964
           435  20066                             LX0    54                                                      TSDATA    965
                     12606                        BX6    X0+X6                                                   TSDATA    966
                          76760                   SX7    B6                TC                                    TSDATA    967
                               20722              LX7    18                                                      TSDATA    968
           436  12676                             BX6    X7+X6                                                   TSDATA    969
                     5165000000 X                 SA6    LPINF+B5          SAVE SUBSCRIPT INFO                   TSDATA    970
                               76751              SX7    B5+B1                                                   TSDATA    971
           437  66551                             SB5    B5+B1                                                   TSDATA    972
                     5170000000 X                 SA7    N.VSUB            ADVANCE INDEX AND SAVE                TSDATA    973
                                                                                                                 TSDATA    974
                                        **        ADJUST BIAS TO ELIMINATE CONSTANT ADDEND ( C2(J) )             TSDATA    975
                                                                                                                 TSDATA    976
           440  5110000000 X                      SA1    BIAS                                                    TSDATA    977
                          5122000000 X            SA2    DIM.MUL+B2        DIM.MUL(J)                            TSDATA    978
           441  5132000000 X                      SA3    CON2+B2                                                 TSDATA    979
                          5150000000 X            SA5    SDPF                                                    TSDATA    980
           442  63450                             SB4    X5                                                      TSDATA    981
                     42423                        IX4    X2*X3                                                   TSDATA    982
                          22544                   LX5    B4,X4             *2**SDPF                              TSDATA    983
                               36651              IX6    X5+X1             BIAS = BIAS+DIM.MUL(J)*C2(J)*2**SDPF  TSDATA    984
           443  54610                             SA6    A1                                                      TSDATA    985
                                                                                                                 TSDATA    986
           444  5150000000 X             BVT12    SA5    PL                                                      TSDATA    987
                          7265777776              SX6    X5-1                                                    TSDATA    988
           445  54650                             SA6    A5                PL = PL-1                             TSDATA    989
                     0316000363 +                 NZ     X6,BVT5           LOOP IF MORE TO GO                    TSDATA    990
                                                                                                                 TSDATA    991
                                        **        ADD TO THE BIAS THE CONTRIBUTION DUE TO CONSTANT SUBSCRIPTS    TSDATA    992
                                        *         I.E. - A( ,C2, )                                               TSDATA    993
                                                                                                                 TSDATA    994
           446  5120000000 X                      SA2    N.SUBS                                                  TSDATA    995
                          5130000000 X            SA3    SDPF                                                    TSDATA    996
           447  5150000000 X                      SA5    BIAS                                                    TSDATA    997
                          66500                   SB5    B0                INDEX                                 TSDATA    998
                               63220              SB2    X2                LIMIT                                 TSDATA    999
           450  63430                             SB4    X3                SDPF                                  TSDATA   1000
                     67301                        SB3    -B1               -1                                    TSDATA   1001
                          10655                   BX6    X5                                                      TSDATA   1002
                                                                                                                 TSDATA   1003
           451  5115000000 X             BVT13    SA1    INDX+B5                                                 TSDATA   1004
                          0311000454 +            NZ     X1,BVT14          IF A DO INDEXED SUBSCRIPT             TSDATA   1005
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    22
                                                                      BVT 
  
           452  5125000000 X                      SA2    CON2+B5                                                 TSDATA   1006
                          5135000000 X            SA3    DIM.MUL+B5                                              TSDATA   1007
           453  73223                             SX2    X2+B3                                                   TSDATA   1008
                     42432                        IX4    X3*X2                                                   TSDATA   1009
                          22544                   LX5    B4,X4                                                   TSDATA   1010
                               36656              IX6    X5+X6             BIAS = BIAS+DM(I)*(C2(I)-1)*2**SDPF   TSDATA   1011
           454  66551                    BVT14    SB5    B5+B1                                                   TSDATA   1012
                     0752000451 +                 LT     B5,B2,BVT13       IF MORE TO GO                         TSDATA   1013
                               54650              SA6    A5                UPDATE BIAS                           TSDATA   1014
                                                                                                                 TSDATA   1015
                                        **        COLLAPSE INNERMOST LOOPS IF THE SUBSCRIPTS ARE IN STANDARD     TSDATA   1016
                                        *         ORDER ( IJK )                                                  TSDATA   1017
                                                                                                                 TSDATA   1018
           455  5120000000 X                      SA2    N.VSUB            NUMBER OF LOOPS                       TSDATA   1019
                          0302000336 +            ZR     X2,BVT1C          IF ALL LOOPS ARE DEGENERATE           TSDATA   1020
           456  66500                             SB5    B0                INDEX                                 TSDATA   1021
                     63220                        SB2    X2                LIMIT                                 TSDATA   1022
                          0421000501 +            EQ     B2,B1,BVT18       IF ONLY 1 LOOP                        TSDATA   1023
                                                                                                                 TSDATA   1024
           457  5115000000 X             BVT15    SA1    LPINF+B5          LOOP INFORMATION WORD                 TSDATA   1025
                          73410                   SX4    X1                DIM(P)                                TSDATA   1026
                               21122              AX1    18                                                      TSDATA   1027
           460  73310                             SX3    X1                TC                                    TSDATA   1028
                     21122                        AX1    18                                                      TSDATA   1029
                          63310                   SB3    X1                M                                     TSDATA   1030
                               21122              AX1    18                                                      TSDATA   1031
           461  63410                             SB4    X1                P                                     TSDATA   1032
                     0545000501 +                 NE     B4,B5,BVT18       IF NOT IJK ORDER                      TSDATA   1033
           462  0531000472 +                      NE     B3,B1,BVT17       IF M " 1                              TSDATA   1034
                          37534                   IX5    X3-X4                                                   TSDATA   1035
                               66551              SB5    B5+B1                                                   TSDATA   1036
           463  0335000472 +                      MI     X5,BVT17          IF TC < DIM                           TSDATA   1037
                          0752000457 +            LT     B5,B2,BVT15                                             TSDATA   1038
                                                                                                                 TSDATA   1039
                                        **        SUCCESS - REDUCE TO A SINGLE LOOP                              TSDATA   1040
                                                                                                                 TSDATA   1041
           464  5112777776 X             BVT16    SA1    LPINF-1+B2        LAST LOOP INFO WORD                   TSDATA   1042
                          5122777776 X            SA2    DIM.MUL-1+B2                                            TSDATA   1043
           465  21122                             AX1    18                                                      TSDATA   1044
                     73110                        SX1    X1                TC FOR LAST LOOP                      TSDATA   1045
                          42312                   IX3    X1*X2                                                   TSDATA   1046
           466  5140000001 X                      SA4    DVT+1                                                   TSDATA   1047
                          73440                   SX4    X4                PI DIMS                               TSDATA   1048
                               76710              SX7    B1                                                      TSDATA   1049
           467  5170000000 X                      SA7    N.VSUB            NUMBER OF LOOPS                       TSDATA   1050
                          20322                   LX3    18                                                      TSDATA   1051
                               12634              BX6    X3+X4                                                   TSDATA   1052
           470  20744                             LX7    36                M = 1                                 TSDATA   1053
                     36776                        IX7    X7+X6                                                   TSDATA   1054
                          5170000000 X            SA7    LPINF             UPDATE LOOP INFO WORD                 TSDATA   1055
           471  0400000501 +                      EQ     BVT18                                                   TSDATA   1056
                                                                                                                 TSDATA   1057
                                        **        PARTIAL SUCCESS - COLLAPSE INNERMOST LOOPS                     TSDATA   1058
                                                                                                                 TSDATA   1059
           472  0615000501 +             BVT17    LE     B5,B1,BVT18       IF WE CAN"T COLLAPSE AT LEAST 2 LOOPS TSDATA   1060
                          0452000464 +            EQ     B5,B2,BVT16       IF COMPLETE REDUCTION                 TSDATA   1061
                                                                                                                 TSDATA   1062
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    23
                                                                      BVT 
  
           473  5110000000 X                      SA1    LPINF             MERGE FIRST AND SECOND LOOPS          TSDATA   1063
                          54211                   SA2    A1+B1                                                   TSDATA   1064
                               21122              AX1    18                                                      TSDATA   1065
           474  73110                             SX1    X1                                                      TSDATA   1066
                     21222                        AX2    18                                                      TSDATA   1067
                          73220                   SX2    X2                                                      TSDATA   1068
                               42312              IX3    X1*X2             TC1*TC2                               TSDATA   1069
           475  76710                             SX7    B1                                                      TSDATA   1070
                     20744                        LX7    36                M = 1                                 TSDATA   1071
                          5140000002 X            SA4    DIM.MUL+2         DIM1*DIM2                             TSDATA   1072
           476  20322                             LX3    18                                                      TSDATA   1073
                     12634                        BX6    X3+X4                                                   TSDATA   1074
                          36776                   IX7    X7+X6                                                   TSDATA   1075
                               54710              SA7    A1                UPDATE FIRST LOOP INFO WORD           TSDATA   1076
           477  77621                             SX6    B2-B1                                                   TSDATA   1077
                     5160000000 X                 SA6    N.VSUB            UPDATE N.VSUB                         TSDATA   1078
                               54521              SA5    A2+B1                                                   TSDATA   1079
           500  10755                             BX7    X5                MOVE LAST LOOP INFO WORD DOWN         TSDATA   1080
                     54720                        SA7    A2                                                      TSDATA   1081
                                                                                                                 TSDATA   1082
                                        **        COMPUTE A(M1*T1,M2*T2,M3,T3) AND SEE IF IT IS WITHIN           TSDATA   1083
                                        *         THE ARRAY BOUNDS                                               TSDATA   1084
                                                                                                                 TSDATA   1085
           501  5150000000 X             BVT18    SA5    N.VSUB            NUMBER OF LOOPS                       TSDATA   1086
                          66500                   SB5    B0                INDEX                                 TSDATA   1087
                               63250              SB2    X5                LIMIT                                 TSDATA   1088
           502  5140000000 X                      SA4    SDPF                                                    TSDATA   1089
                          67301                   SB3    -B1               B3 = -1                               TSDATA   1090
                               63440              SB4    X4                B4 = SDPF                             TSDATA   1091
           503  5130000000 X                      SA3    BIAS                                                    TSDATA   1092
                          23643                   AX6    B4,X3                                                   TSDATA   1093
                                                                                                                 TSDATA   1094
           504  5145000000 X             BVT19    SA4    LPINF+B5                                                TSDATA   1095
                          21422                   AX4    18                                                      TSDATA   1096
                               73140              SX1    X4                T(I)                                  TSDATA   1097
           505  21422                             AX4    18                                                      TSDATA   1098
                     73240                        SX2    X4                M(I)                                  TSDATA   1099
                          21422                   AX4    18                P                                     TSDATA   1100
           506  5234000000 X                      SA3    DIM.MUL+X4        DM(P)                                 TSDATA   1101
                          42012                   IX0    X1*X2                                                   TSDATA   1102
                               73103              SX1    X0+B3             M*T-1                                 TSDATA   1103
           507  42231                             IX2    X3*X1             DM*( M*T-1 )                          TSDATA   1104
                     36626                        IX6    X2+X6                                                   TSDATA   1105
                          66551                   SB5    B5+B1                                                   TSDATA   1106
           510  0752000504 +                      LT     B5,B2,BVT19       IF MORE TO GO                         TSDATA   1107
                          22646                   LX6    B4,X6             *2**SDPF                              TSDATA   1108
           511  5120000001 X                      SA2    DVT+1                                                   TSDATA   1109
                          21222                   AX2    18                ARRAY LENGTH                          TSDATA   1110
                               37362              IX3    X6-X2             BIAS - LEN                            TSDATA   1111
           512  0323000000 X                      PL     X3,E.DVL6   IF OUT OF RANGE                             FCCA476     9
                          0303000000 X            ZR     X3,E.DVL6   IF OUT OF RANGE                             FCCA476    10
                                                                                                                 TSDATA   1113
           513  0100000614 +             BVT20    RJ     MDL               MATCH UP LISTS                        TSDATA   1114
           514  5150000000 X                      SA5    SELIST                                                  TSDATA   1115
                          53450                   SA4    X5          FETCH NEXT SEPARATOR                        TSDATA   1116
                               63240              SB2    X4                                                      TSDATA   1117
           515  6130000013                        IF.EQ  O.COMMA,BVT1      LOOP FOR NEXT IF A ,                  TSDATA   1118
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    24
                                                                      BVT 
  
           516  6130000007                        IF.EQ  O.SLASH,EXIT.                                           TSDATA   1119
           517  0400000000 X                      EQ     E.DVL1                                                  TSDATA   1120
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    25
                                                                      PSS 
  
                                        **        PSS -  PROCESS SUBSCRIPTS.                                     TSDATA   1122
                                        *                                                                        TSDATA   1123
                                        *         PROCESSES SUBSCRIPTS ON DATA VARIABLES.  THE PERMISSIBLE FORMS TSDATA   1124
                                        *         ARE -- (CON = CONSTANT, IVAR = INTEGER VARIABLE) --            TSDATA   1125
                                        *                          CON2                                          TSDATA   1126
                                        *                         +CON2    (NON-ANSI)                            TSDATA   1127
                                        *                         -CON2    (NON-ANSI)                            TSDATA   1128
                                        *                     IVAR         (NON-ANSI)                            TSDATA   1129
                                        *                CON1*IVAR         (NON-ANSI)                            TSDATA   1130
                                        *                CON1*IVAR+CON2    (NON-ANSI)                            TSDATA   1131
                                        *                CON1*IVAR-CON2    (NON-ANSI)                            TSDATA   1132
                                        *                     IVAR+CON2    (NON-ANSI)                            TSDATA   1133
                                        *                     IVAR-CON2    (NON-ANSI)                            TSDATA   1134
                                        *         THE NUMBER OF SUBSCRIPTS MAY NOT EXCEED THE NUMBER OF          TSDATA   1135
                                        *         DIMENSIONS OF THAT ARRAY (N.DIMS).                             TSDATA   1136
                                        *                                                                        TSDATA   1137
                                        *         ENTRY  (A4) _ *(* IN FRONT OF SUBSCRIPTS.                      TSDATA   1138
                                        *                (N.DIMS) = NUMBER OF DIMENSIONS OF THIS ARRAY.          TSDATA   1139
                                        *                (DIM.MUL) = DIMENSION MULTIPLIERS AS SET BY *PDV*       TSDATA   1140
                                        *                                                                        TSDATA   1141
                                        *         EXIT   (B7) = NUMBER OF VARIABLE SUBSCRIPTS ENCOUNTERED.       TSDATA   1142
                                        *                (A4-1) _ *)* TERMINATING THE SUBSCRIPT.                 TSDATA   1143
                                        *                (X4) = ((A4))                                           TSDATA   1144
                                        *                (B2) = (X4) LOWER 18                                    TSDATA   1145
                                        *                (N.SUBS) = NUMBER OF SUBSCRIPTS.                        TSDATA   1146
                                        *                (N.VSUB) = (B7)                                         TSDATA   1147
                                        *                (CON1) = THE MULTIPLIERS (= 1 IF ABSENT)                TSDATA   1148
                                        *                (INDX) = THE INTEGER VARIABLES (= 0 IF CONSTANT SUB)    TSDATA   1149
                                        *                (CON2) = THE ADDENDS (= 0 IF ABSENT)                    TSDATA   1150
                                        *                                                                        TSDATA   1151
                                        *         USES   ALL BUT A0                                              TSDATA   1152
                                        *         CALLS  CSC                                                     TSDATA   1153
                                                                                                                 TSDATA   1154
                                                                                                                 TSDATA   1155
           520  0400400520 +             PSS      SUBR               ENTRY/EXIT...                               TSDATA   1156
           521  5110000000 X                      SA1    N.DIMS                                                  TSDATA   1157
                          0301000000 X            ZR     X1,E.DVL7         IF NAME IS NOT DIMENSIONED            TSDATA   1158
                                                                                                                 TSDATA   1159
           522  63510                             SB5    X1          (B5) = N.DIMS                               TSDATA   1160
                     66600                        SB6    B0          (B6) = VARIABLE SUBSCRIPT FLAG              TSDATA   1161
                          13777                   BX7    0                                                       TSDATA   1162
                               66400              SB4    B0          (B4) = NUMBER OF SUBSCRIPTS                 TSDATA   1163
           523  6170000000 X                      SB7    SSTL                                                    TSDATA   1164
                          67707                   SB7    -B7                                                     TSDATA   1165
           524  6177000000 X                      SB7    B7+SST1                                                 TSDATA   1166
                          5170000000 X            SA7    SST1                                                    TSDATA   1167
                                                                                                                 TSDATA   1168
           525  54771                    PSS20    SA7    A7+B1             CLEAR OUT CONTROL CELLS               TSDATA   1169
                     66771                        =B7    B7+1                                                    TSDATA   1170
                          0770000525 +            MI     B7,PSS20                                                TSDATA   1171
                                                                                                                 TSDATA   1172
                                        **        SYNTAX CHECK AND SAVE SUBSCRIPT LIST                           TSDATA   1173
                                                                                                                 TSDATA   1174
           526  54441                    PSS30    NEXTE                    NEXT ITEM                             TSDATA   1175
                          6130000002              IF.NE  O.CONS,PSS32      IF NOT A CONSTANT                     TSDATA   1176
                          0100000251 +            RJ     CSC         CHECK/CONVERT SMALL CONSTANT                TSDATA   1177
           530  5110000000 X                      SA1    N.SUBS                                                  TSDATA   1178
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    26
                                                                      PSS 
  
                          56441                   =A4    B4+1        FETCH NEXT ELEMENT                          TSDATA   1179
                               63410              SB4    X1                                                      TSDATA   1180
           531  63240                             SB2    X4                                                      TSDATA   1181
                     5164000000 X                 SA6    B4+CON2                                                 TSDATA   1182
                                                                                                                 TSDATA   1183
           532  6130000006                        IF.NE  O.STAR,PSS36      IF NO *                               TSDATA   1184
           533  54441                             NEXTE                                                          TSDATA   1185
                          13777                   BX7    0                                                       TSDATA   1186
                               54760              SA7    A6          CLEAR ADDEND                                TSDATA   1187
           534  5164000000 X                      SA6    B4+CON1     SAVE AS MULTIPLIER                          TSDATA   1188
                                                                                                                 TSDATA   1189
           535  6130000003               PSS32    IF.NE  O.VAR,E.DVL8      IF NO VARIABLE                        TSDATA   1190
           536  66661                             SB6    B6+B1             INCREMENT NUMBER OF VARS              TSDATA   1191
                     10744                        BX7    X4                                                      TSDATA   1192
                          54441                   NEXTE                                                          TSDATA   1193
           537  5174000000 X                      SA7    B4+INDX                                                 TSDATA   1194
                                                                                                                 TSDATA   1195
                                        **        PROCESS SIGN OF CONSTANT (OPTIONAL IF ADDEND)                  TSDATA   1196
                                                                                                                 TSDATA   1197
                          6130000004              IF.EQ  O.PL,PSS34      IF A +                                  TSDATA   1198
                          6130000005              IF.NE  O.MIN,PSS36     IF NOT A -                              TSDATA   1199
           542  7274777773               PSS34    SX7    X4-O.PL                                                 TSDATA   1200
                          54441                   NEXTE                                                          TSDATA   1201
           543  5174000000 X                      SA7    B4+SIGN                                                 TSDATA   1202
                                                                                                                 TSDATA   1203
                                        **        PROCESS ADDEND                                                 TSDATA   1204
                                                                                                                 TSDATA   1205
                          6130000002              IF.NE  O.CONS,E.DVL8     IF NOT A CONSTANT                     TSDATA   1206
                          0100000251 +            RJ     CSC         CHECK/CONVERT SMALL CONSTANT                TSDATA   1207
           545  5110000000 X                      SA1    N.SUBS                                                  TSDATA   1208
                          56441                   SA4    B4+B1       ADVANCE SB PTR                              FCCA474    11
                               63240              SB2    X4          SET UP FOR SYNTAX CHECK                     FCCA474    12
           546  63410                             SB4    X1                                                      TSDATA   1210
                     5164000000 X                 SA6    B4+CON2                                                 TSDATA   1211
                                                                                                                 TSDATA   1212
           547  76741                    PSS36    =X7    B4+1        INCREMENT NUMBER OF SUBS                    TSDATA   1213
                     66441                        =B4    B4+1                                                    TSDATA   1214
                          5170000000 X            SA7    N.SUBS                                                  TSDATA   1215
           550  0454000552 +                      EQ     B5,B4,PSS40       IF IT MUST BE A )                     TSDATA   1216
                          6130000013              IF.EQ  O.COMMA,PSS30     IF COMMA, LOOP FOR NEXT SUBSCRIPT     TSDATA   1217
                                                                                                                 TSDATA   1218
           552  6130000011               PSS40    IF.NE  O.),E.DVL8        IF NO RPAREN, ERR..                   TSDATA   1219
           553  74741                             =X7    A4+1                                                    TSDATA   1220
                     76660                        SX6    B6                                                      TSDATA   1221
                          5170000000 X            SA7    SELIST            SAVE ELIST POINTER                    TSDATA   1222
           554  5160000000 X                      SA6    N.VSUB            SAVE NUMBER OF VARIABLE SUBS          TSDATA   1223
                                                                                                                 TSDATA   1224
                                        **        PROCESS C1"S - CONSTANT MULTIPLIERS                            TSDATA   1225
                                        *                SET TO 1 IF UN-SPECIFIED                                TSDATA   1226
                                                                                                                 TSDATA   1227
                          5120000000 X            SA2    N.SUBS                                                  TSDATA   1228
           555  66300                             SB3    B0                                                      TSDATA   1229
                     63620                        SB6    X2                                                      TSDATA   1230
           556  5143000000 X             PSS60    SA4    B3+CON1     CON1 (I)                                    TSDATA   1231
                          76610                   SX6    B1                                                      TSDATA   1232
           557  0304000560 +                      ZR     X4,PSS65    IF NOT PRESENT                              TSDATA   1233
                          10644                   BX6    X4                                                      TSDATA   1234
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    27
                                                                      PSS 
  
           560  54640                    PSS65    SA6    A4                                                      TSDATA   1235
                     66331                        =B3    B3+1                                                    TSDATA   1236
                          0736000556 +            LT     B3,B6,PSS60 IF MORE SUBSCRIPTS                          TSDATA   1237
                                                                                                                 TSDATA   1238
                                        **        PROCESS C2"S - CONSTANT ADDENDS                                TSDATA   1239
                                        *                COMPLEMENT IF PREFIXED BY MINUS                         TSDATA   1240
                                                                                                                 TSDATA   1241
           561  66300                             SB3    B0                                                      TSDATA   1242
           562  5143000000 X             PSS80    SA4    B3+CON2     CON2 (I)                                    TSDATA   1243
                          13666                   BX6    0                                                       TSDATA   1244
           563  0304000564 +                      ZR     X4,PSS84    IF NO ADDEND                                TSDATA   1245
                          10644                   BX6    X4                                                      TSDATA   1246
           564  0306000571 +             PSS84    ZR     X6,PSS86    IF ADDEND NOT PRESENT                       TSDATA   1247
                          5133000000 X            SA3    B3+SIGN     SIGN (I)                                    TSDATA   1248
           565  0303000567 +                      ZR     X3,PSS85    IF THE SIGN IS +                            FCCA474    13
                          43401                   MX4    1           SET REG TO COMPLEMENT NUMBER                FCCA474    14
                               21473              AX4    73B                                                     FCCA474    15
           566  0400000570 +                      EQ     PSS87                                                   FCCA474    16
           567  23413                    PSS85    AX4    B1,X3       MAP SIGN ONTO +0 OR -0                      FCCA474    17
           570  13646                    PSS87    BX6    X4-X6                                                   FCCA474    18
                     54640                        SA6    A4                                                      TSDATA   1251
           571  66331                    PSS86    =B3    B3+1                                                    TSDATA   1252
                     0736000562 +                 LT     B3,B6,PSS80 IF MORE SUBSCRIPTS                          TSDATA   1253
                                                                                                                 TSDATA   1254
                                        **        ELIMINATE MULTIPLE APPEARENCES OF AN INDEX VARIABLE            TSDATA   1255
                                                                                                                 TSDATA   1256
           572  5150000000 X                      SA5    N.VSUB                                                  TSDATA   1257
                          63750                   SB7    X5          (B7) = (N.VSUB)                             TSDATA   1258
           573  0617000520 +                      LE1    B7,EXIT.    IF LESS THAN 2 VARIABLE SUBS                TSDATA   1259
                          43071                   MX0    60-3                                                    TSDATA   1260
           574  7150213231                        SX5    213231B           A(IIJ) , A(JII) , A(IJI)              TSDATA   1261
                                                                                                                 TSDATA   1262
           575  15350                    PSS90    BX3    -X0*X5            J       ( SMALLER )                   TSDATA   1263
                     21503                        AX5    3                                                       TSDATA   1264
                          15450                   BX4    -X0*X5            I       ( I > J )                     TSDATA   1265
                               21503              AX5    3                                                       TSDATA   1266
           576  5213777776 X                      SA1    INDX-1+X3                                               TSDATA   1267
                          5224777776 X            SA2    INDX-1+X4                                               TSDATA   1268
           577  37612                             IX6    X1-X2                                                   TSDATA   1269
                     63440                        SB4    X4                                                      TSDATA   1270
                          0316000607 +            NZ     X6,PSS94          IF NO MATCH                           TSDATA   1271
                                                                                                                 TSDATA   1272
           600  54620                             SA6    A2                INDX(I) = 0                           TSDATA   1273
                     0546000601 +                 NE     B4,B6,PSS92       IF( I = N.SUB ) N.SUB = N.SUB-1       TSDATA   1274
                               67661              =B6    B6-1                                                    TSDATA   1275
           601  67771                    PSS92    =B7    B7-1        DECREMENT (N.VSUB)                          TSDATA   1276
                     63330                        SB3    X3                                                      TSDATA   1277
                          5113777776 X            SA1    B3+CON1-1                                               TSDATA   1278
           602  5124777776 X                      SA2    B4+CON1-1                                               TSDATA   1279
                          5134777776 X            SA3    B4+DIM.MUL-1                                            TSDATA   1280
           603  42423                             IX4    X2*X3                                                   TSDATA   1281
                     36614                        IX6    X1+X4             C1(J) = C1(J)+DIM.MUL(I)*C1(I)        TSDATA   1282
                          54610                   SA6    A1                                                      TSDATA   1283
                                                                                                                 TSDATA   1284
           604  5124777776 X                      SA2    B4+CON2-1                                               TSDATA   1285
                          5113777776 X            SA1    B3+CON2-1                                               TSDATA   1286
           605  7222777776                        SX2    X2-1                                                    TSDATA   1287
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    28
                                                                      PSS 
  
                          42432                   IX4    X3*X2                                                   TSDATA   1288
                               36641              IX6    X4+X1             C2(J) = C2(J)+DIM.MUL(I)*(C2(I)-1)    TSDATA   1289
           606  54610                             SA6    A1                                                      TSDATA   1290
                     76710                        SX7    B1                                                      TSDATA   1291
                          54720                   SA7    A2                C2(I) = 1                             TSDATA   1292
                                                                                                                 TSDATA   1293
           607  0471000610 +             PSS94    EQ     B7,B1,PSS96       IF ONLY 1 VARIABLE SUB LEFT           TSDATA   1294
                          0315000575 +            NZ     X5,PSS90          IF MORE COMBINATIONS TO TEST          TSDATA   1295
                                                                                                                 TSDATA   1296
           610  76660                    PSS96    SX6    B6                                                      TSDATA   1297
                     76770                        SX7    B7                                                      TSDATA   1298
                          5160000000 X            SA6    N.SUBS            UPDATE N.SUB AND N.VSUB               TSDATA   1299
           611  54750                             SA7    A5                                                      TSDATA   1300
                     0400000520 +                 EQ     EXIT.                                                   TSDATA   1301
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    29
                                                                      MDL 
  
                                        **        MDL - MATCH DATA LISTS.                                        TSDATA   1303
                                        *                MATCHS A VARIABLE TO DATA ITEM LIST                     TSDATA   1304
                                        *                                                                        TSDATA   1305
                                        *         ENTRY  (X5) = NUMBER OF EXPLICIT LOOPS.                        TSDATA   1306
                                        *                     "DVT" AND SUBSCRIPT INFO BLOCK SET UP BY "BVT".    TSDATA   1307
                                                                                                                 TSDATA   1308
                                                                                                                 TSDATA   1309
           612  6170000000 X             MDLY     =B7    DDS.S       OUTPUT A *DATA 0* TO PROPERLY MAINTAIN THE  TSDATA   1310
                          13555                   BX5    0                 ORIGIN COUNTER                        TSDATA   1311
                               27675              PX6    X5,B7                                                   TSDATA   1312
           613  5110000000 X                      ADDWD  TS.DAT                                                  TSDATA   1313
                                                                                                                 TSDATA   1314
           614  0400400614 +             MDL      SUBR               ENTRY/EXIT...                               TSDATA   1315
           615  5140000000 X                      SA4    N.ITEM            NUMBER OF ITEMS LEFT IN DATA LIST     TSDATA   1316
                          7264777776              SX6    X4-1                                                    TSDATA   1317
           616  0326000620 +                      PL     X6,MDL1           IF > 0                                TSDATA   1318
                          54640                   SA6    A4                                                      TSDATA   1319
           617  0400000614 +                      EQ     EXIT.                                                   TSDATA   1320
                                                                                                                 TSDATA   1321
           620  5120000001 X             MDL1     SA2    DVT+1                                                   TSDATA   1322
                          5110000000 X            SA1    SDPF              X1 = SDPF                             TSDATA   1323
           621  43700                             MX7    0                                                       TSDATA   1324
                     63220                        SB2    X2                NUMBER OF VARS TO BE INITIALIZED      TSDATA   1325
                          5170000000 X            SA7    ORGI              ORGI = 0                              TSDATA   1326
           622  0315000634 +                      NZ     X5,MDL4           IF EXPLICIT LOOPS                     TSDATA   1327
                          0712000631 +            GT     B2,B1,MDL2        IF NOT A SINGLE ITEM                  TSDATA   1328
                                                                                                                 TSDATA   1329
                                        **        PROCESS A SINGLE ELEMENT                                       TSDATA   1330
                                                                                                                 TSDATA   1331
           623  5130000000 X                      SA3    BIAS                                                    TSDATA   1332
                          54640                   SA6    A4                UPDATE N.ITEM                         TSDATA   1333
           624  0100001007 +                      RJ     ODV               OUTPUT ORG FOR FWA                    TSDATA   1334
           625  0100001077 +                      RJ     GNI               GET NEXT DATA ITEM                    TSDATA   1335
           626  5110000001 X                      SA1    DVT+1                                                   TSDATA   1336
                          21122                   AX1    18                                                      TSDATA   1337
                               63510              SB5    X1                WORD LIMIT                            TSDATA   1338
           627  0100001032 +                      RJ     ODI               OUTPUT IT                             TSDATA   1339
           630  0400000614 +                      EQ     EXIT.                                                   TSDATA   1340
                                                                                                                 TSDATA   1341
                                        **        PROCESS REFERENCE TO WHOLE ARRAY - A # (A(I),I = 1,PI DIMS)    TSDATA   1342
                                                                                                                 TSDATA   1343
           631  73611                    MDL2     SX6    X1+B1             ADDRESS DIFFERENCE                    TSDATA   1344
                     73720                        SX7    X2                TRIP COUNT                            TSDATA   1345
                          5150000000 X            SA5    BIAS                                                    TSDATA   1346
           632  0100000674 +             MDL3     RJ     OIC               OUTPUT INITIALIZATION CODE            TSDATA   1347
           633  0400000614 +                      EQ     EXIT.                                                   TSDATA   1348
                                                                                                                 TSDATA   1349
                                        **        PROCESS EXPLICIT DO INDEXING                                   TSDATA   1350
                                                                                                                 TSDATA   1351
           634  63450                    MDL4     SB4    X5                B4 = NUMBER OF LOOPS                  TSDATA   1352
                     0714000642 +                 GT     B4,B1,MDL5        IF MORE THAN 1 LOOP                   TSDATA   1353
                               63510              SB5    X1                SDPF                                  TSDATA   1354
           635  5120000000 X                      SA2    LPINF             LOOP INFO WORD                        TSDATA   1355
                          21222                   AX2    18                                                      TSDATA   1356
                               73720              SX7    X2                TRIP COUNT                            TSDATA   1357
           636  21222                             AX2    18                                                      TSDATA   1358
                     73320                        SX3    X2                M                                     TSDATA   1359
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    30
                                                                      MDL 
  
                          21222                   AX2    18                P                                     TSDATA   1360
           637  5242000000 X                      SA4    DIM.MUL+X2                                              TSDATA   1361
                          5150000000 X            SA5    BIAS                                                    TSDATA   1362
           640  22454                             LX4    B5,X4                                                   TSDATA   1363
                     42634                        IX6    X3*X4             ADDRESS DIFF = DM(P)*M(P)*2**SDPF     TSDATA   1364
                          73440                   SX4    X4                                                      TSDATA   1365
                               37064              IX0    X6-X4             DM(P)*( M(P)-1 )*2**SDPF              TSDATA   1366
           641  36505                             IX5    X0+X5                                                   TSDATA   1367
                     0400000632 +                 EQ     MDL3                                                    TSDATA   1368
                                                                                                                 TSDATA   1369
           642                           MDL5     BSS    0                                                       TSDATA   1370
                                                                                                                 TSDATA   1371
                                        **        IRREDUCEABLE NEST OF LOOPS                                     TSDATA   1372
                                                                                                                 TSDATA   1373
           642  5120000000 X             MDL10    SA2    LPINF                                                   TSDATA   1374
                          5110000000 X            SA1    SDPF                                                    TSDATA   1375
           643  63510                             SB5    X1                                                      TSDATA   1376
                     21244                        AX2    36                                                      TSDATA   1377
                          73320                   SX3    X2                M(P)                                  TSDATA   1378
                               21222              AX2    18                P                                     TSDATA   1379
           644  5242000000 X                      SA4    DIM.MUL+X2                                              TSDATA   1380
                          22454                   LX4    B5,X4             DM(P)*2**SDPF                         TSDATA   1381
                               42734              IX7    X3*X4                                                   TSDATA   1382
           645  5170000000 X                      SA7    DA                SAVE ADDRESS DIFFERENCE               TSDATA   1383
                          26404                   UX4    X4                                                      TSDATA   1384
           646  5150000000 X                      SA5    BIAS                                                    TSDATA   1385
                          37074                   IX0    X7-X4                                                   TSDATA   1386
                               36705              IX7    X0+X5             BIAS = BIAS+DA-DM(P)*2**SDPF          TSDATA   1387
           647  54750                             SA7    A5                                                      TSDATA   1388
                     76610                        SX6    B1                                                      TSDATA   1389
                          5160000001 X            SA6    LI+1              LI(2) = 1                             TSDATA   1390
           650  54661                             SA6    A6+B1             LI(3) = 1                             TSDATA   1391
                                                                                                                 TSDATA   1392
                                        **        CALCULATE BIAS                                                 TSDATA   1393
                                                                                                                 TSDATA   1394
           651  5140000000 X             MDL11    SA4    N.VSUB                                                  TSDATA   1395
                          5150000000 X            SA5    BIAS                                                    TSDATA   1396
           652  5130000000 X                      SA3    SDPF                                                    TSDATA   1397
                          66510                   SB5    B1                INDEX                                 TSDATA   1398
                               63240              SB2    X4                LIMIT                                 TSDATA   1399
           653  63330                             SB3    X3                SDPF                                  TSDATA   1400
                     43700                        MX7    0                                                       TSDATA   1401
                          5170000000 X            SA7    ORGI              ORGI = 0                              TSDATA   1402
                                                                                                                 TSDATA   1403
           654  5115000000 X             MDL12    SA1    LPINF+B5          LPINF(J)                              TSDATA   1404
                          21144                   AX1    36                                                      TSDATA   1405
                               73210              SX2    X1                M(P)                                  TSDATA   1406
           655  21122                             AX1    18                P                                     TSDATA   1407
                     5135000000 X                 SA3    LI+B5             LI(J)                                 TSDATA   1408
           656  5211000000 X                      SA1    DIM.MUL+X1        DM(P)                                 TSDATA   1409
                          42423                   IX4    X2*X3                                                   TSDATA   1410
           657  7264777776                        SX6    X4-1                                                    TSDATA   1411
                          42016                   IX0    X1*X6             DM(P)*(M(P)*LI(J)-1)                  TSDATA   1412
                               22730              LX7    B3,X0                                                   TSDATA   1413
           660  36557                             IX5    X5+X7                                                   TSDATA   1414
                     66551                        SB5    B5+B1                                                   TSDATA   1415
                          0752000654 +            LT     B5,B2,MDL12                                             TSDATA   1416
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    31
                                                                      MDL 
  
                                                                                                                 TSDATA   1417
           661  5110000000 X                      SA1    DA                                                      TSDATA   1418
                          5120000000 X            SA2    LPINF                                                   TSDATA   1419
           662  10611                             BX6    X1                ADDRESS DIFFERENCE                    TSDATA   1420
                     21222                        AX2    18                                                      TSDATA   1421
                          73720                   SX7    X2                TC(1)                                 TSDATA   1422
           663  0100000674 +                      RJ     OIC               MATCH UP LISTS                        TSDATA   1423
                                                                                                                 TSDATA   1424
                                        **        INCREMENT INDICES                                              TSDATA   1425
                                                                                                                 TSDATA   1426
           664  5140000000 X                      SA4    N.VSUB                                                  TSDATA   1427
                          66510                   SB5    B1                                                      TSDATA   1428
                               63240              SB2    X4                                                      TSDATA   1429
                                                                                                                 TSDATA   1430
           665  5115000000 X             MDL13    SA1    LI+B5             LI(J)                                 TSDATA   1431
                          5125000000 X            SA2    LPINF+B5                                                TSDATA   1432
           666  73611                             SX6    X1+B1             LI(J) = LI(J)+1                       TSDATA   1433
                     21222                        AX2    18                                                      TSDATA   1434
                          73320                   SX3    X2                TC(J)                                 TSDATA   1435
                               54610              SA6    A1                                                      TSDATA   1436
           667  37013                             IX0    X1-X3             I - L                                 TSDATA   1437
                     0330000672 +                 MI     X0,MDL14          IF LI(J) @ TC(J)                      TSDATA   1438
                               76610              SX6    B1                LI(J) = 1                             TSDATA   1439
           670  54660                             SA6    A6                                                      TSDATA   1440
                     66551                        SB5    B5+B1                                                   TSDATA   1441
                          0752000665 +            LT     B5,B2,MDL13       LOOP IF J @ N.VSUB                    TSDATA   1442
           671  0400000614 +                      EQ     EXIT.                                                   TSDATA   1443
                                                                                                                 TSDATA   1444
           672  5110000000 X             MDL14    SA1    N.ITEM                                                  TSDATA   1445
                          7221777776              SX2    X1-1                                                    TSDATA   1446
           673  0322000651 +                      PL     X2,MDL11          IF MORE ITEMS TO GO                   TSDATA   1447
                          0400000614 +            EQ     EXIT.                                                   TSDATA   1448
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    32
                                                                      OIC 
  
                                        **        OIC - OUTPUT INITIALIZATION CODE FOR A SEQUENCE OF ELEMENTS.   TSDATA   1450
                                        *         OF AN ARRAY WITH A CONSTANT ADDRESS DIFFERENCE BETWEEN THEM.   TSDATA   1451
                                        *         THAT IS, THIS SUBROUTINE OUTPUTS THE INITIALIZATION CODE FOR   TSDATA   1452
                                        *         THE STATEMENT                                                  TSDATA   1453
                                        *                ( A(M*I),I = 1,T) / DATA ITEM LIST /                    TSDATA   1454
                                        *         THE ADDRESS DIFFERENCE BETWEEN THE ELEMENTS IS:                TSDATA   1455
                                        *         A(M*(I+1))-A(M*I) = DM(J)*M*2**SDPF                            TSDATA   1456
                                        *                                                                        TSDATA   1457
                                        *         ENTRY  (X5) = ANY ADDITIONAL BIAS                              TSDATA   1458
                                        *                (X6) = DA - THE ADDRESS DIFFERENCE                      TSDATA   1459
                                        *                (X7) = T - TRIP COUNT                                   TSDATA   1460
                                                                                                                 TSDATA   1461
                                                                                                                 TSDATA   1462
           674  0400400674 +             OIC      SUBR               ENTRY/EXIT...                               TSDATA   1463
           675  5160000000 X                      SA6    DA                SAVE PARAMETERS                       TSDATA   1464
                          5170001006 +            SA7    OICT                                                    TSDATA   1465
           676  10655                             BX6    X5                                                      TSDATA   1466
                     5160001004 +                 SA6    OICB                                                    TSDATA   1467
                                                                                                                 TSDATA   1468
           677  5130000000 X             OIC1     SA3    REPFLAG                                                 TSDATA   1469
                          5150000000 X            SA5    I.DIT                                                   TSDATA   1470
           700  5120000000 X                      SA2    TI.DAT                                                  TSDATA   1471
                          36125                   IX1    X2+X5       NEXT ITEM TABLE ADDRESS                     TSDATA   1472
           701  0303000705 +                      ZR     X3,OIC2           IF NOT IN THE MIDDLE OF A REP         TSDATA   1473
                                                                                                                 TSDATA   1474
                                        **        IN THE MIDDLE OF A REP , ADJUST REP COUNT DECREMENT ( DEC )    TSDATA   1475
                                                                                                                 TSDATA   1476
                          10233                   BX2    X3                                                      TSDATA   1477
                               21244              AX2    36                                                      TSDATA   1478
           702  63420                             SB4    X2                RL                                    TSDATA   1479
                     43700                        MX7    0                 DEC = 0                               TSDATA   1480
                          0441000706 +            EQ     B4,B1,OIC3        IF RL = 1                             TSDATA   1481
           703  5140000002 X                      SA4    I.DIT+2     ORDINAL OF START OF DATA IN REP LIST        TSDATA   1482
                          37545                   IX5    X4-X5                                                   TSDATA   1483
                               77001              =X0    -1                                                      TSDATA   1484
           704  21573                             AX5    59                                                      TSDATA   1485
                     11750                        BX7    X5*X0             DEC = 0 IF AT THE START               TSDATA   1486
                          0400000706 +            EQ     OIC3                                                    TSDATA   1487
                                                                                                                 TSDATA   1488
           705  53310                    OIC2     SA3    X1                DIT WORD                              TSDATA   1489
                     0323000764 +                 PL     X3,OIC12          IF NOT THE START OF A REP             TSDATA   1490
                               13777              BX7    0                 DEC = 0                               TSDATA   1491
                                                                                                                 TSDATA   1492
                                        **        REP LIST ENCOUNTERED - SEE IF WE CAN OUTPUT "REPI" MACROS      TSDATA   1493
                                        *         A3,X3 - REP LIST INFO WORD - DO NOT DESTROY UNTIL UPDATED      TSDATA   1494
                                                                                                                 TSDATA   1495
           706  22413                    OIC3     LX4    B1,X3                                                   TSDATA   1496
                     21467                        AX4    54+1              POSITION CONSTANT ITEM LENGTH FLAG    TSDATA   1497
                          0304000764 +            ZR     X4,OIC12          IF ALL ITEMS ARE NOT THE SAME LENGTH  TSDATA   1498
                                                                                                                 TSDATA   1499
                                        **        N = MIN(RF+DEC,T/RL) = NUMBER OF TIMES WE CAN REP THE DATA     TSDATA   1500
                                                                                                                 TSDATA   1501
           707  5150001006 +                      SA5    OICT                                                    TSDATA   1502
                          63440                   SB4    X4                B4 = CIL FLAG                         TSDATA   1503
                               73030              SX0    X3                X0 = RF                               TSDATA   1504
           710  10233                             BX2    X3                                                      TSDATA   1505
                     21244                        AX2    36                                                      TSDATA   1506
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    33
                                                                      OIC 
  
                          73620                   SX6    X2                RL                                    TSDATA   1507
                               63220              SB2    X2                B2 = RL                               TSDATA   1508
           711  5160000000 X                      SA6    RL                                                      TSDATA   1509
                          36007                   IX0    X0+X7             RF+DEC                                TSDATA   1510
                               27505              IX5    X5/X6             T/RL                                  TSDATA   1511
                          37650                   MX6    X5-X0             MIN OF THE 2                          TSDATA   1512
                               63660              SB6    X6                                                      TSDATA   1513
           715  0616000764 +                      LE     B6,B1,OIC12       IF WE CAN"T REP IT AT LEAST 2 TIMES   TSDATA   1514
                          5150000000 X            SA5    SDPF                                                    TSDATA   1515
           716  63351                             SB3    X5+B1             WORDS/ELEMENT                         TSDATA   1516
                     0734000764 +                 GT     B4,B3,OIC12       IF DATA ITEMS LONGER THAN VAR ELEMENT TSDATA   1517
                                                                                                                 TSDATA   1518
           717  5160001005 +                      SA6    OICN              SAVE REP COUNT                        TSDATA   1519
                          7256777776              SX5    X6-1              DECREMENT REP LIST COUNT BY N-1 FOR   TSDATA   1520
           720  37635                             IX6    X3-X5             GNI SINCE WE WILL CALL IT ONLY ONCE   TSDATA   1521
                     54630                        SA6    A3                TO OUTPUT THE DATA ITEMS N TIMES      TSDATA   1522
                                                                                                                 TSDATA   1523
                          5110000000 X            SA1    DA                                                      TSDATA   1524
           721  76220                             SX2    B2                RL                                    TSDATA   1525
                     67641                        SB6    B4-B1             CIL FLAG - 1                          TSDATA   1526
                          22762                   LX7    B6,X2             RL*CIF                                TSDATA   1527
                               37571              IX5    X7-X1                                                   TSDATA   1528
           722  42612                             IX6    X1*X2                                                   TSDATA   1529
                     5160000000 X                 SA6    MP                MP = DA*RL                            TSDATA   1530
           723  0534000740 +                      NE     B3,B4,OIC7        IF 1 WORD ITEMS AND 2 WD/ELE VARS     TSDATA   1531
                          0421000725 +            EQ     B2,B1,OIC5        IF RL = 1                             TSDATA   1532
           724  63710                             SB7    X1                DA                                    TSDATA   1533
                     0574000740 +                 NE     B7,B4,OIC7        IF DA " CIL                           TSDATA   1534
                                                                                                                 TSDATA   1535
                                        **        RL = 1 OR DA = CIL - OUTPUT THE DATA AND A SINGLE REPI         TSDATA   1536
                                                                                                                 TSDATA   1537
           725  5170000000 X             OIC5     SA7    DLEN              SAVE LENGTH OF DATA LIST ( *CIL )     TSDATA   1538
                          5130001004 +            SA3    OICB                                                    TSDATA   1539
           726  0100001007 +                      RJ     ODV               OUTPUT ORG TO SET DATA PLACEMENT ADDR TSDATA   1540
           727  5110000000 X                      SA1    RL                                                      TSDATA   1541
                          14611                   BX6    -X1                                                     TSDATA   1542
                                                                                                                 TSDATA   1543
           730  5160000000 X             OIC6     SA6    LI                                                      TSDATA   1544
                          0100001077 +            RJ     GNI               GET NEXT ITEM                         TSDATA   1545
           731  5110000000 X                      SA1    SDPF                                                    TSDATA   1546
                          63511                   SB5    X1+B1             WORD LIMIT                            TSDATA   1547
           732  0100001032 +                      RJ     ODI               OUTPUT DATA ITEM                      TSDATA   1548
           733  5110000000 X                      SA1    LI                                                      TSDATA   1549
                          73611                   SX6    X1+B1             DECREMENT INDEX                       TSDATA   1550
           734  0316000730 +                      NZ     X6,OIC6                                                 TSDATA   1551
                                                                                                                 TSDATA   1552
                          5110001005 +            SA1    OICN              REP COUNT                             TSDATA   1553
           735  5120000000 X                      SA2    MP                FWA INCR                              TSDATA   1554
                          5140000000 X            SA4    DLEN              NUMBER OF DATA WORDS                  TSDATA   1555
           736  22302                             LX3    X2                DESTIN OFFSET                         TSDATA   1556
                     10644                        BX6    X4                                                      TSDATA   1557
                          0100001015 +            RJ     ORP               OUTPUT REPI MACRO CALL                TSDATA   1558
           737  0400000753 +                      EQ     OIC9                                                    TSDATA   1559
                                                                                                                 TSDATA   1560
                                        **        RL > 1 AND DA " CIL - PUT OUT A REP FOR EACH DATA ITEM         TSDATA   1561
                                                                                                                 TSDATA   1562
           740  5130001004 +             OIC7     SA3    OICB                                                    TSDATA   1563
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    34
                                                                      OIC 
  
                          77702                   SX7    -B2                                                     TSDATA   1564
                               10633              BX6    X3                                                      TSDATA   1565
           741  5170000000 X                      SA7    TMP                                                     TSDATA   1566
                          54671                   SA6    A7+B1             AND COPY OF BIAS                      TSDATA   1567
                                                                                                                 TSDATA   1568
           742  0100001007 +             OIC8     RJ     ODV               OUTPUT ORG TO SET DATA PLACEMENT ADDR TSDATA   1569
           743  0100001077 +                      RJ     GNI               GET DATA LIST POINTER                 TSDATA   1570
           744  5110000000 X                      SA1    SDPF                                                    TSDATA   1571
                          63511                   SB5    X1+B1             SET WORD LIMIT                        TSDATA   1572
           745  0100001032 +                      RJ     ODI               OUTPUT DATA STMT                      TSDATA   1573
           746  5110001005 +                      SA1    OICN              REP COUNT + 1                         TSDATA   1574
                          5120000000 X            SA2    MP                I                                     TSDATA   1575
           747  10322                             BX3    X2                D                                     TSDATA   1576
                     76650                        SX6    B5                B                                     TSDATA   1577
                          0100001015 +            RJ     ORP               OUTPUT REPI MACRO                     TSDATA   1578
           750  5110000000 X                      SA1    TMP               LOOP INDEX                            TSDATA   1579
                          5120000000 X            SA2    DA                                                      TSDATA   1580
           751  54311                             SA3    A1+B1             BIAS                                  TSDATA   1581
                     36623                        IX6    X2+X3             B = B+DA ( ADVANCE BIAS )             TSDATA   1582
                          54630                   SA6    A3                                                      TSDATA   1583
                               10366              BX3    X6                                                      TSDATA   1584
           752  73711                             SX7    X1+B1             DECREMENT LOOP INDEX                  TSDATA   1585
                     54710                        SA7    A1                                                      TSDATA   1586
                          0337000742 +            MI     X7,OIC8                                                 TSDATA   1587
                                                                                                                 TSDATA   1588
                                        **        END OF REP OUTPUT - UPDATE COUNTERS ( N.ITEM,T AND B )         TSDATA   1589
                                                                                                                 TSDATA   1590
           753  5110001005 +             OIC9     SA1    OICN                                                    TSDATA   1591
                          5120000000 X            SA2    RL                                                      TSDATA   1592
           754  5130001004 +                      SA3    OICB                                                    TSDATA   1593
                          5140000000 X            SA4    N.ITEM                                                  TSDATA   1594
           755  42012                             IX0    X1*X2             N*RL = NUMBER OF ELEMENTS PROCESSED   TSDATA   1595
                     5120000000 X                 SA2    DA                                                      TSDATA   1596
           756  5150001006 +                      SA5    OICT                                                    TSDATA   1597
                          13777                   BX7    0                                                       TSDATA   1598
           757  5170000000 X                      SA7    ORGI              ORGI = 0                              TSDATA   1599
                          42102                   IX1    X0*X2                                                   TSDATA   1600
                               36731              IX7    X3+X1             B = B+DA*(N*RL)                       TSDATA   1601
           760  54730                             SA7    A3                                                      TSDATA   1602
                     26000                        UX0    X0                                                      TSDATA   1603
                          37640                   IX6    X4-X0             DECREMENT NUMBER OF ITEMS LEFT        TSDATA   1604
                               54640              SA6    A4                                                      TSDATA   1605
           761  37750                             IX7    X5-X0             AND NUMBER OF VARS LEFT               TSDATA   1606
                     54750                        SA7    A5                                                      TSDATA   1607
                          0306000763 +            ZR     X6,OIC10          IF DATA LIST IS EXHAUSTED             TSDATA   1608
           762  0317000677 +                      NZ     X7,OIC1           IF MORE VARIABLES TO GO               TSDATA   1609
                                                                                                                 TSDATA   1610
           763  37667                    OIC10    IX6    X6-X7             N.ITEM = N.ITEM-T                     TSDATA   1611
                     54660                        SA6    A6                FORCE AN INFORMATIVE ERROR IF T " 0   TSDATA   1612
                          0400000674 +            EQ     EXIT.                                                   TSDATA   1613
                                                                                                                 TSDATA   1614
                                        **        NOT AT THE START OF A REP OR CANNOT REP WITH THIS ITEM LIST    TSDATA   1615
                                        *         OUTPUT ITEMS UNTIL WE HIT THE START OF THE NEXT REP OR         TSDATA   1616
                                        *         T = 0 OR N.ITEM = 0                                            TSDATA   1617
                                                                                                                 TSDATA   1618
           764  5120000001 X             OIC12    SA2    DVT+1                                                   TSDATA   1619
                          21222                   AX2    18                                                      TSDATA   1620
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    35
                                                                      OIC 
  
                               73720              SX7    X2                SAVE WORD LIMIT                       TSDATA   1621
           765  5170000000 X                      SA7    TMP                                                     TSDATA   1622
                                                                                                                 TSDATA   1623
           766  5110000000 X             OIC14    SA1    DA                                                      TSDATA   1624
                          5120000000 X            SA2    ORGI                                                    TSDATA   1625
           767  37012                             IX0    X1-X2                                                   TSDATA   1626
                     0300000771 +                 ZR     X0,OIC15          IF WE DON"T NEED AN ORG               TSDATA   1627
           770  5130001004 +                      SA3    OICB                                                    TSDATA   1628
                          0100001007 +            RJ     ODV               SET DATA PLACEMENT ADDRESS            TSDATA   1629
           771  0100001077 +             OIC15    RJ     GNI               GET NEXT DATA ITEM                    TSDATA   1630
           772  5110000000 X                      SA1    TMP                                                     TSDATA   1631
                          5120001004 +            SA2    OICB                                                    TSDATA   1632
           773  5140000000 X                      SA4    DA                                                      TSDATA   1633
                          37312                   IX3    X1-X2                                                   TSDATA   1634
                               63530              SB5    X3                WORD LIMIT FOR THIS ELEMENT           TSDATA   1635
           774  36742                             IX7    X4+X2             B = B+DA ( ADVANCE BIAS  )            TSDATA   1636
                     54720                        SA7    A2                                                      TSDATA   1637
                          0100001032 +            RJ     ODI               OUTPUT A DATA ITEM                    TSDATA   1638
           775  76660                             SX6    B6                                                      TSDATA   1639
                     5160000000 X                 SA6    ORGI              SAVE ORG COUNTER INCREMENT            TSDATA   1640
                                                                                                                 TSDATA   1641
                               43073              MX0    59                                                      TSDATA   1642
           776  5140000000 X                      SA4    N.ITEM                                                  TSDATA   1643
                          5150001006 +            SA5    OICT                                                    TSDATA   1644
           777  36640                             IX6    X4+X0             DECREMENT NUMBER OF ITEMS LEFT        TSDATA   1645
                     54640                        SA6    A4                                                      TSDATA   1646
                          36750                   IX7    X5+X0             AND NUMBER OF VARIABLES LEFT          TSDATA   1647
                               54750              SA7    A5                                                      TSDATA   1648
          1000  0306000763 +                      ZR     X6,OIC10          IF NO MORE DATA ITEMS LEFT            TSDATA   1649
                          0307000674 +            ZR     X7,EXIT.    IF FINISHED WITH THE VARS                   TSDATA   1650
                                                                                                                 TSDATA   1651
          1001  5120000000 X                      SA2    TI.DAT                                                  TSDATA   1652
                          5110000000 X            SA1    I.DIT                                                   TSDATA   1653
          1002  36112                             IX1    X1+X2                                                   TSDATA   1654
                     53310                        SA3    X1                NEXT DIT WORD                         TSDATA   1655
                          13777                   BX7    0                                                       TSDATA   1656
          1003  0323000766 +                      PL     X3,OIC14          IF NOT THE START OF A REP             TSDATA   1657
                          0400000706 +            EQ     OIC3                                                    TSDATA   1658
                                                                                                                 TSDATA   1659
          1004                     1     OICB     BSS    1           LOCAL COPY OF BIAS                          TSDATA   1660
          1005                     1     OICN     BSS    1           NUMBER OF TIMES WE CAN TRAVERSE A REP LIST. TSDATA   1661
          1006                     1     OICT     BSS    1           TRIP COUNT                                  TSDATA   1662
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    36
                                                                      ODV 
  
                                        **        ODV - OUTPUT DATA VARIABLE ADDRESS.                            TSDATA   1664
                                        *         OUTPUTS AN "ORG" MACRO CALL TO SET THE FWA FOR DATA PLACEMENT  TSDATA   1665
                                        *                                                                        TSDATA   1666
                                        *         ENTRY  X3 = ANY ADDITIONAL BIAS DUE TO SUBSCRIPT CALCULATIONS, TSDATA   1667
                                                                                                                 TSDATA   1668
                                                                                                                 TSDATA   1669
          1007  0400401007 +             ODV      SUBR               ENTRY/EXIT...                               TSDATA   1670
          1010  5110000000 X                      SA1    DVT                                                     TSDATA   1671
                          73210                   SX2    X1                SAVE BIAS DUE TO EQUIVALENCING        TSDATA   1672
                               21122              AX1    18                                                      TSDATA   1673
          1011  73610                             SX6    X1                                                      TSDATA   1674
                     20636                        LX6    P.DTAG                                                  TSDATA   1675
                          6170000000 X            =B7    DDS.O       *ORG* OPERATOR                              TSDATA   1676
          1012  36332                             IX3    X3+X2                                                   TSDATA   1677
                     12163                        BX1    X6+X3                                                   TSDATA   1678
                          27671                   PX6    X1,B7                                                   TSDATA   1679
          1013  5110000000 X                      ADDWD  TS.DAT                                                  TSDATA   1680
          1014  0400001007 +                      EQ     EXIT.                                                   TSDATA   1681
  
  
  
  
                                        **        ORP - OUTPUT "REPI" MACRO CALL.                                TSDATA   1683
                                        *                                                                        TSDATA   1684
                                        *         ENTRY  X6 = DATA BLOCK LENGTH ( NUMBER OF WORDS TO BE REPPED ) TSDATA   1685
                                        *                X1 = REP COUNT + 1                                      TSDATA   1686
                                        *                X2 = FWA INCREMENT BETWEEN REPS                         TSDATA   1687
                                        *                X3 = DESTINATION ADDRESS OFFSET                         TSDATA   1688
                                                                                                                 TSDATA   1689
                                                                                                                 TSDATA   1690
          1015  0400401015 +             ORP      SUBR               ENTRY/EXIT...                               TSDATA   1691
          1016  20636                             LX6    P.DTAG                                                  TSDATA   1692
                     12061                        BX0    X6+X1                                                   TSDATA   1693
                          20236                   LX2    P.DTAG                                                  TSDATA   1694
          1017  6170000000 X                      =B7    DDS.R       *REPI* OPERATOR                             TSDATA   1695
                          27670                   PX6    X0,B7                                                   TSDATA   1696
                               12423              BX4    X2+X3                                                   TSDATA   1697
          1020  5110000000 X                      ADDWD  TS.DAT                                                  TSDATA   1698
          1021  10644                             BX6    X4                                                      TSDATA   1699
                     0100000000 X                 ADDWD  A1                                                      TSDATA   1700
          1022  0400001015 +                      EQ     EXIT.                                                   TSDATA   1701
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    37
                                                                      ODI 
  
                                        **        ODI - OUTPUT DATA ITEM.                                        TSDATA   1703
                                        *                                                                        TSDATA   1704
                                        *         ENTRY  B5 = MAX NUMBER OF DATA WORDS THAT MAY BE ISSUED        TSDATA   1705
                                        *                A5,X5 = FWA OF DIT ENTRY                                TSDATA   1706
                                        *                                                                        TSDATA   1707
                                        *         EXIT   (B6) = NUMBER OF DATA WORDS THAT WE ISSUED.             TSDATA   1708
                                        *                     ( ORG COUNTER INCREMENT )                          TSDATA   1709
                                                                                                                 TSDATA   1710
                                                                                                                 TSDATA   1711
          1023  6170000000 X             ODI.S    =B7    DDS.S       INDICATE SMALL CONSTANT (LESS 2**48-1)      TSDATA   1712
                          27675                   PX6    X5,B7                                                   TSDATA   1713
          1024  0100000000 X                      ADDWD  A1                                                      TSDATA   1714
          1025  5120000000 X             ODI.T    SA2    SDPF                                                    FCC2229    16
                          0302001031 +            ZR     X2,ODI.E    IF NOT COMPLEX VAR                          FCC2229    17
          1026  6170000000 X                      =B7    DDS.S       INITIALIZE SECOND WORD OF COMPLEX VAR       FCC2229    18
                          5110000000 X            SA1    TS.DAT                                                  FCC2229    19
          1027  7150000000                        SX5    0                                                       FCC2229    20
                          27675                   PX6    X5,B7                                                   FCC2229    21
          1030  0100000000 X                      ADDWD  A1          OUTPUT SECOND WORD OF COMPLEX VAR           FCC2229    22
          1031  7170000000              ODI.E     SX7    0                                                       FCC2229    23
                          5170000000 X            SA7    SDPF                                                    FCC2229    24
                                                                                                                 TSDATA   1715
          1032  0400401032 +             ODI      SUBR               ENTRY/EXIT...                               TSDATA   1716
          1033  22015                             LX0    X5,B1                                                   TSDATA   1718
                     63650                        SB6    X5          (B6) = NUM WORDS IN DATA ITEM               TSDATA   1719
                          0330001051 +            MI     X0,ODI1     IF HOLLERITH                                TSDATA   1720
          1034  5110000000 X                      SA1    DVT         CHECK CONSTANT TYPE                         FCC1563X   23
                          43005                   MX0    L.TYPE                                                  FCC1563X   24
                               13615              BX6    X1-X5                                                   FCC1563X   25
          1035  20051                             LX0    P.CTYP+L.TYPE     POSITION MASK                         FCC1563X   26
                     11606                        BX6    X0*X6                                                   FCC1563X   27
                          0306001037 +            ZR     X6,ODI0     IF NO TYPE CONFLICT                         FCC1563X   28
                                                                                                                 FCC1563X   29
          1036  6170000000 X                      ANSI   =XE.DVL10                                               FCC1563X   30
                                                                                                                 FCC1563X   31
          1037  54551                    ODI0     SA5    A5+B1                                                   FCC1563X   32
                     5110000000 X                 SA1    TS.DAT                                                  FCC1563X   33
                               43315              MX3    -47                                                     TSDATA   1722
          1040  0561001042 +                      NE     B6,B1,ODI.D  IF DOUBLE-WORD ITEM                        TSDATA   1723
                          11235                   BX2    X3*X5                                                   TSDATA   1724
                               21257              AX2    47                                                      TSDATA   1725
          1041  0302001023 +                      ZR     X2,ODI.S    IF SMALL CONSTANT                           TSDATA   1726
                                                                                                                 TSDATA   1727
          1042  54451                    ODI.D    SA4    A5+B1       FETCH (POSSIBLE) SECOND WORD                TSDATA   1728
                     76061                        ALLOC  A1,B6+1                                                 TSDATA   1729
          1043  36312                             IX3    X1+X2                                                   TSDATA   1730
                     77061                        SX0    B6-B1       WC - 1                                      TSDATA   1731
                          6170000000 X            =B7    DDS.W                                                   TSDATA   1732
          1044  67206                             SB2    -B6                                                     TSDATA   1733
                     10755                        BX7    X5                                                      TSDATA   1734
                          27670                   PX6    X0,B7                                                   TSDATA   1735
                               53732              SA7    X3+B2       (1ST WORD) _ (LWA(TABLE)+1-WC)              TSDATA   1736
          1045  55671                             SA6    A7-B1                                                   TSDATA   1737
                     0461001025 +                 EQ1    B6,ODI.T                                                FCC2229    25
                               10744              BX7    X4                                                      TSDATA   1739
          1046  54771                             SA7    A7+B1       (2ND WORD) _ (LWA(TABLE))                   TSDATA   1740
                     0715001032 +                 GT1    B5,EXIT.    IF DOUBLE-WORD VARIABLE                     TSDATA   1741
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    38
                                                                      ODI 
  
          1047  6170000000 X                      WARN   E.DTC                                                   TSDATA   1742
          1050  0400001032 +                      EQ     EXIT.                                                   TSDATA   1743
                                                                                                                 TSDATA   1744
                                        *         OUTPUT HOLLERITH CONSTANT                                      TSDATA   1745
                                                                                                                 TSDATA   1746
          1051  5120000000 X             ODI1     SA2    SDPF                                                    TSDATA   1747
                          63321                   SB3    X2+B1                                                   TSDATA   1748
          1052  0636001054 +                      LE     B6,B3,ODI2  IF HOL CON .LT. ELEMENT LENGTH              TSDATA   1749
                          6170000000 X            ANSI   E.DHC                                                   TSDATA   1750
          1054  0656001056 +             ODI2     LE     B6,B5,ODI3  IF CON LEN .LE. WORD LIMIT                  TSDATA   1751
                          66650                   SB6    B5                                                      TSDATA   1752
          1055  6170000000 X                      WARN   E.DTC                                                   TSDATA   1753
          1056  5140000000 X             ODI3     SA4    TS=DAT      CURRENT TABLE LENGTH                        TSDATA   1754
                          21571                   AX5    P.DNEGH                                                 TSDATA   1755
                               76310              =X3    B1                                                      TSDATA   1756
          1057  11535                             BX5    X3*X5                                                   TSDATA   1757
                     63350                        SB3    X5          1 IFF PRECEEDED BY MINUS SIGN               TSDATA   1758
                          54551                   SA5    A5+B1                                                   TSDATA   1759
          1060  5110000000 X                      ALLOC  TS.DAT,B6+1                                             TSDATA   1760
          1062  5130000000 X                      SA3    TS.CON                                                  TSDATA   1761
                          21552                   AX5    P.TAG                                                   TSDATA   1762
          1063  6170000000 X                      =B7    DDS.W                                                   TSDATA   1763
                          6225437777              SB2    X5-C.CON                                                TSDATA   1764
          1064  73232                             SX2    X3+B2       SOURCE = (TS.CON) + CON-TAG                 TSDATA   1765
                     36414                        IX4    X1+X4       START OF EMPTY REGION OF TS.DAT             TSDATA   1766
                          77061                   SX0    B6-B1       WC (FOR DDS.) = (B6)-1                      TSDATA   1767
                               76160              SX1    B6          WC (FOR MOVE) = (B6)                        TSDATA   1768
          1065  27670                             PX6    X0,B7                                                   TSDATA   1769
                     73341                        SX3    X4+B1       DEST = START + 1                            TSDATA   1770
                          53640                   SA6    X4          ENTER CONTROL WORD                          TSDATA   1771
          1066  0530001070 +                      NZ     B3,ODI4     IF NEG HOLL                                 TSDATA   1772
                          0100000000 X            MVE    X1,X2,X3                                                TSDATA   1773
          1067  0400001032 +                      EQ     EXIT.                                                   TSDATA   1774
                                                                                                                 TSDATA   1775
          1070  53220                    ODI4     SA2    X2          MOVE *X1* WORDS FROM LOC(X2) TO LOC(X3)     TSDATA   1776
                                        *                            AND ALTER THEIR SIGNS                       TSDATA   1777
                     6231777776                   =B3    X1-1                                                    TSDATA   1778
                               14622              BX6    -X2                                                     TSDATA   1779
          1071  53630                             SA6    X3          MOVE FIRST WORD                             TSDATA   1780
          1072  0430001032 +             ODI5     ZR     B3,EXIT.    IF MOVE DONE                                TSDATA   1781
                          54321                   =A3    A2+1        GET NEXT WORD                               TSDATA   1782
                               14733              BX7    -X3                                                     TSDATA   1783
          1073  0431001076 +                      EQ1    B3,ODI6     IF LAST WORD                                TSDATA   1784
                          54231                   =A2    A3+1                                                    TSDATA   1785
          1074  6133777775                        SB3    B3-2                                                    TSDATA   1786
                          14622                   BX6    -X2                                                     TSDATA   1787
                               54761              =A7    A6+1                                                    TSDATA   1788
          1075  54671                             =A6    A7+1                                                    TSDATA   1789
                     0400001072 +                 EQ     ODI5        GET NEXT TWO WORDS                          TSDATA   1790
                                                                                                                 TSDATA   1791
          1076  54761                    ODI6     =A7    A6+1                                                    TSDATA   1792
                     0400001032 +                 EQ     EXIT.       EXIT..                                      TSDATA   1793
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    39
                                                                      GNI 
  
                                        **        GNI -  GET ADDRESS OF NEXT DATA ITEM.                          TSDATA   1795
                                        *                                                                        TSDATA   1796
                                        *         EXIT   A5,X5 = ADDRESS AND CONTENTS OF FIRST WORD OF NEXT      TSDATA   1797
                                        *                DATA ITEM FROM "DIT"                                    TSDATA   1798
                                                                                                                 TSDATA   1799
                                                                                                                 TSDATA   1800
          1077  0400401077 +             GNI      SUBR               ENTRY/EXIT...                               TSDATA   1801
          1100  5110000000 X                      SA1    I.DIT                                                   TSDATA   1802
                          5120000000 X            SA2    TI.DAT                                                  TSDATA   1803
          1101  36612                             IX6    X1+X2                                                   TSDATA   1804
                     53560                        SA5    X6          NEXT WORD                                   TSDATA   1805
                          54211                   SA2    A1+B1             REP COUNT REMAINDER                   TSDATA   1806
          1102  0325001106 +                      PL     X5,GNI1           IF NOT THE START OF A REP LIST        TSDATA   1807
                                                                                                                 TSDATA   1808
                                        **        INITIALIZE REP LIST PROCESSING                                 TSDATA   1809
                                                                                                                 TSDATA   1810
                          10655                   BX6    X5                                                      TSDATA   1811
                               73711              SX7    X1+B1                                                   TSDATA   1812
          1103  5160000000 X                      SA6    REPFLAG                                                 TSDATA   1813
                          54721                   SA7    A2+B1       SAVE ORDINAL OF REP LIST START              TSDATA   1814
                               21644              AX6    36                                                      TSDATA   1815
          1104  14766                             BX7    -X6                                                     TSDATA   1816
                     54720                        SA7    A2                SET REMAINDER = -N.ITEMS IN REP LIST  TSDATA   1817
                          10277                   BX2    X7                                                      TSDATA   1818
                               54551              SA5    A5+B1             GET FIRST DATA WORD                   TSDATA   1819
          1105  73111                             SX1    X1+B1             ADVANCE INDEX PAST REP WORD           TSDATA   1820
                                                                                                                 TSDATA   1821
                                        **        ADVANCE I.DIT TO POINT TO NEXT ITEM AND SEE IF WE ARE IN A     TSDATA   1822
                                        *         REP LIST.                                                      TSDATA   1823
                                                                                                                 TSDATA   1824
          1106  10055                    GNI1     BX0    X5                                                      TSDATA   1825
                     21022                        AX0    18                                                      TSDATA   1826
                          36701                   IX7    X0+X1             UPDATE INDEX                          TSDATA   1827
                               54710              SA7    A1                                                      TSDATA   1828
          1107  0302001077 +                      ZR     X2,EXIT.    IF NO REPETITION                            TSDATA   1829
                          73721                   SX7    X2+B1                                                   TSDATA   1830
                               54720              SA7    A2                UPDATE REMAINDER                      TSDATA   1831
          1110  0317001077 +                      NZ     X7,EXIT.    IF MORE TO GO                               TSDATA   1832
                                                                                                                 TSDATA   1833
                                        **        DECREMENT REP COUNT AND START BACK AT START OF REP LIST IF RC  TSDATA   1834
                                                                                                                 TSDATA   1835
                          5130000000 X            SA3    REPFLAG                                                 TSDATA   1836
          1111  76010                             SX0    B1                                                      TSDATA   1837
                     37730                        IX7    X3-X0             DECREMENT REP COUNT                   TSDATA   1838
                          54730                   SA7    A3                                                      TSDATA   1839
                               63770              SB7    X7                                                      TSDATA   1840
          1112  0470001115 +                      ZR     B7,GNI2           IF FINISHED                           TSDATA   1841
                          21344                   AX3    36                                                      TSDATA   1842
                               14733              BX7    -X3               RESET REMAINDER                       TSDATA   1843
          1113  54720                             SA7    A2                                                      TSDATA   1844
                     54421                        SA4    A2+B1             ADDRESS OF FIRST DATA ITEM IN REP LIS TSDATA   1845
                          10744                   BX7    X4                                                      TSDATA   1846
                               54710              SA7    A1                RESET I.DIT FOR NEXT ENTRY            TSDATA   1847
          1114  0400001077 +                      EQ     EXIT.                                                   TSDATA   1848
                                                                                                                 TSDATA   1849
          1115  13777                    GNI2     BX7    0                                                       TSDATA   1850
                     54770                        SA7    A7                REPFLAG = 0                           TSDATA   1851
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    40
                                                                      GNI 
  
                          0400001077 +            EQ     EXIT.                                                   TSDATA   1852
  
  
  
  
                                        **        PDV -  PROCESS DATA VARIABLE.                                  TSDATA   1854
                                        *         PROCESS"S VARIABLE NAME MENTIONED IN A DATA STMT               TSDATA   1855
                                        *                                                                        TSDATA   1856
                                        *         ENTRY  (A4) _ *SB* ENTRY.                                      TSDATA   1857
                                        *                                                                        TSDATA   1858
                                        *         EXIT   SEMANTICS CHECK FOR LEGAL NAME PERFORMED                TSDATA   1859
                                        *                REGISTERS RESTORED BY A CALL TO MACRO "GETE"            TSDATA   1860
                                                                                                                 TSDATA   1861
                                                                                                                 TSDATA   1862
          1116  5150000000 X             PDV9     SA5    SELIST      RESTORE (A4)                                TSDATA   1863
                          53450                   SA4    X5                                                      TSDATA   1864
                               63240              SB2    X4                                                      TSDATA   1865
                                                                                                                 TSDATA   1866
          1117  0400401117 +             PDV      SUBR               ENTRY/EXIT...                               TSDATA   1867
          1120  74741                             =X7    A4+1                                                    TSDATA   1868
                     5170000000 X                 SA7    SELIST      SAVE STRING BUFFER ADDRESS                  TSDATA   1869
                               10744              BX7    X4                                                      TSDATA   1870
          1121  64440                             SB4    A4                                                      TSDATA   1871
                     5170000000 X                 SA7    FILL.                                                   TSDATA   1872
          1122  0100000000 X                      RJ     TRV         TRANSLATE VARIABLE                          TSDATA   1873
          1123  76741                             =X7    B4+1                                                    TSDATA   1874
                     5170000000 X                 SA7    SELIST      IN CASE TRUNCATION HAS OCCURRED             TSDATA   1875
          1124  7130021160                        CLAS=  X3,(FP,EXT,ENT,NLST,NVAR)                               TSDATA   1877
                          22406                   LX4    X6                                                      TSDATA   1878
                               11336              BX3    X3*X6                                                   TSDATA   1879
          1125  0313000000 X                      NZ     X3,E.DAUC   IF USEAGE CONFLICT                          TSDATA   1880
                          66200                   SB2    B0                B2 " 0 IF VARIABLE IS IN COMMON       TSDATA   1881
                               76770              SX7    B7                                                      TSDATA   1882
          1126  5170000000 X                      SA7    ORD               SAVE SYMTAB ORDINAL                   TSDATA   1883
                          20722                   LX7    P.SYMORD          X7 = WORD 1 OF DVT ENTRY              TSDATA   1884
                               76010              =X0    1                                                       TSDATA   1885
          1127  21602                             AX6    P.LONG                                                  TSDATA   1886
                     66570                        SB5    B7          (B5) = SYMTAB ORDINAL                       TSDATA   1887
                          11606                   BX6    X0*X6       0 IF SINGLE, 1 IF 2 WORDS/ELEM              TSDATA   1888
                               20144              LX1    P.CTYP      POSITION CONSTANT TYPE                      FCC1563X   34
          1130  5160000000 X                      SA6    SDPF                                                    TSDATA   1889
                          63760                   SB7    X6                B7 = SDPF                             TSDATA   1890
                               12771              BX7    X7+X1                                                   FCC1563X   35
          1131  20672                             LX6    P.SDPF                                                  TSDATA   1891
                     12767                        BX7    X6+X7                                                   TSDATA   1892
                                                                                                                 TSDATA   1893
                                        **        CHECK FOR VARIABLE IN BLANK COMMON.                            TSDATA   1894
                                                                                                                 TSDATA   1895
                          10044                   BX0    X4                                                      TSDATA   1896
                               20060              IFBIT  X0,-COMM,PDV2   IF NOT IN COMMON                        FCC1524X   23
                          5130000000 X            SA3    TA.NAM                                                  TSDATA   1898
          1133  76050                             SX0    B5                                                      TSDATA   1899
                     21001                        AX0    1           HALF-ORDINAL                                TSDATA   1900
                          36303                   IX3    X0+X3                                                   TSDATA   1901
                               53330              SA3    X3                                                      TSDATA   1902
          1134  21330                             AX3    P.BLOCK                                                 TSDATA   1903
                     5120000000 X                 SA2    =XBLNKCOM                                               FCC0583    32
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    41
                                                                      PDV 
  
                               73030              SX0    X3                                                      FCC0583    33
          1135  37002                             IX0    X0-X2                                                   FCC0583    34
                     0310001143 +                 NZ     X0,PDV3     IF NOT // COMMON                            TSDATA   1905
          1136  6170000000 X                      FATAL  E.DALV                                                  FCC1524X   24
          1137  0400001143 +                      EQ     PDV3                                                    FCC1524X   25
                                                                                                                 FCC1524X   26
          1140  5120000000 X             PDV2     SA2    =XMOD                                                   FCC1524X   27
                          20263                   SBIT   X2,PBLK                                                 FCC1524X   28
          1141  0322001143 +                      PL     X2,PDV3     IF NOT BLOCKDATA                            FCC1524X   29
                          6170000000 X            FATAL  =XE.DALV                                                FCC1524X   30
          1143  10344                    PDV3     BX3    X4                                                      TSDATA   1909
                     43057                        MX0    -L.PNT                                                  TSDATA   1910
                          21330                   AX3    P.PNT                                                   TSDATA   1911
                               15130              BX1    -X0*X3                                                  TSDATA   1912
          1144  63610                             SB6    X1          (B6) = INDEX TO DIM TABLE                   TSDATA   1913
                     5170000000 X                 SA7    DVT         SAVE WORD 1 OF DVT ENTRY                    TSDATA   1914
                                                                                                                 TSDATA   1915
                                        **        SET DEFINED AND VAR BITS IN SYMTAB ENTRY                       TSDATA   1916
                                                                                                                 TSDATA   1917
          1145  5120000000 X                      SA2    TS.SYM                                                  TSDATA   1918
                          7100010010              CLAS=  X0,(DEF,VAR)                                            TSDATA   1919
          1146  12604                             BX6    X0+X4       SET DEFINED BIT                             TSDATA   1920
                     53625                        SA6    X2+B5                                                   TSDATA   1921
                          13666                   BX6    0                                                       TSDATA   1922
                               66410              =B4    1           B4 = ITEM COUNT                             TSDATA   1923
          1147  5160000000 X                      SA6    N.DIMS                                                  TSDATA   1924
                          5130000000 X            SA3    TP.DIM                                                  TSDATA   1925
          1150  63636                             SB6    X3+B6             ADDRESS OF DIM PARAMETERS             TSDATA   1926
                                                                                                                 TSDATA   1927
                                        **        SAVE DIMENSION INFO                                            TSDATA   1928
                                                                                                                 TSDATA   1929
                     10044                        BX0    X4                                                      TSDATA   1930
                          20063                   IFBIT  X0,-ARY,PDV7      IF NO DIMENSIONS                      TSDATA   1931
                          56360                   SA3    B6                WORD 1 OF DIM ENTRY                   TSDATA   1932
                               43006              MX0    L.NDIM                                                  TSDATA   1933
          1152  11603                             BX6    X0*X3                                                   TSDATA   1934
                     21336                        AX3    P.DIMLG                                                 TSDATA   1935
                          63430                   SB4    X3          (B4) = ITEM LENGTH OF ARRAY                 TSDATA   1936
                               56361              SA3    B6+B1                                                   TSDATA   1937
          1153  20606                             LX6    L.NDIM                                                  TSDATA   1938
                     5160000000 X                 SA6    N.DIMS                                                  TSDATA   1939
                               21336              AX3    P.DIM                                                   TSDATA   1940
          1154  7206777774                        SX0    X6-3                                                    TSDATA   1941
                          43144                   MX1    -L.DIM                                                  TSDATA   1942
                               15631              BX6    -X1*X3      ISOLATE DIM1                                TSDATA   1943
          1155  54331                             SA3    A3+B1                                                   TSDATA   1944
                     5160000001 X                 SA6    DIM.MUL+1                                               TSDATA   1945
          1156  5160000000 X                      SA6    DIM                                                     TSDATA   1946
                          15731                   BX7    -X1*X3      DIM2                                        TSDATA   1947
                               21336              AX3    P.DIM                                                   TSDATA   1948
          1157  54761                             SA7    A6+B1                                                   TSDATA   1949
                     15131                        BX1    -X1*X3      DIM3                                        TSDATA   1950
                          0330001162 +            MI     X0,PDV7           IF < 3 DIMS                           TSDATA   1951
          1160  42667                             IX6    X6*X7             DIM1*DIM2                             TSDATA   1952
                     10711                        BX7    X1                                                      TSDATA   1953
                          5160000002 X            SA6    DIM.MUL+2                                               TSDATA   1954
          1161  54771                             SA7    A7+B1             STORE DIM3                            TSDATA   1955
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    42
                                                                      PDV 
  
                                                                                                                 TSDATA   1956
          1162  5110000000 X             PDV7     SA1    DVT                                                     TSDATA   1957
                          10011                   BX0    X1                                                      TSDATA   1958
                               21072              AX0    P.SDPF                                                  TSDATA   1959
          1163  63700                             SB7    X0                                                      TSDATA   1960
                     76640                        SX6    B4          NUMBER OF ELEMENTS                          TSDATA   1961
                          22576                   LX5    X6,B7       NUMBER OF WORDS                             TSDATA   1962
                               20522              LX5    18                                                      TSDATA   1963
          1164  12656                             BX6    X5+X6                                                   TSDATA   1964
                     54611                        SA6    A1+B1             SAVE SECOND WORD OF DVT               TSDATA   1965
          1165  0400001116 +             PDV8     EQ     PDV9        EXIT..                                      TSDATA   1966
                                                                                                                 TSDATA   1967
                                                                                                                 TSDATA   1968
                                                                                                                 TSDATA   1969
                                                  LIST   D                                                       TSDATA   1970
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        PWE 
             0 X                        ANSI= 
             0 X                        ALC 
             0 X                        E.DVL10 
             0 X                        MVE 
             0 X                        BLNKCOM 
             0 X                        MOD 
             0 X                        E.DALV
  
                                        CONTENT OF LITERALS BLOCK.
  
          1166  00200000000000000000     P
          1167  40200000000000000000    5P
          1170  00220000000000000000     R
          1171  00100000000000000000     H
          1172  37000000002000000000    4    P
          1173  33100000602000000000    0H  #P
          1174  00250000000000000000     U
          1175  00310000000000000000     Y
  
          1176                                    END                                                            TSDATA   1971
  
                             55600B CM  STORAGE USED             3431 STATEMENTS      987 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.499 SECONDS         943 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADC           267   PROGRAM*        9/48     15/13 L
        ADC2          257   PROGRAM*       14/45 L   15/15
        ADC4          265   PROGRAM*       15/08 L   15/31
        ADIT          276   PROGRAM*       10/29     11/08     11/30     15/08     15/44 L
        ADW             0   EXTERNAL*       2/07 X    8/05     36/17     36/40     37/19
                                            7/38     29/11     36/38     37/12
        ADWT            0   EXTERNAL*       2/16 X   15/45 S   15/49
        ALC             0   EXTERNAL*      15/48     37/45     38/19
        ANSI=           0   EXTERNAL*       7/49     10/19     17/52     37/34     38/09
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        BIAS            0   EXTERNAL*       2/16 X   18/26 S   21/49     29/30     30/03     30/37
                                           17/42 S   21/29     23/30     29/44     30/26
        BIT           102   PROGRAM*        6/32      9/19 L
        BIT1          116   PROGRAM*        9/26      9/40      9/44      9/45      9/48 L   10/06
        BIT2          120   PROGRAM*        9/27      9/53 L
        BIT3          131   PROGRAM*       10/11     10/18 L
        BIT4          132   PROGRAM*       10/14     10/19 L
        BIT5          133   PROGRAM*       10/16     10/21 L
        BIT6          143   PROGRAM*        9/34     10/43 L
        BIT7          151   PROGRAM*       10/53     11/02 L
        BIT8          157   PROGRAM*        9/30      9/33     11/22 L
        BIT9          163   PROGRAM*        9/49     11/35 L
        BIT.L         103   PROGRAM*        9/21 L   10/39     10/48     10/56     11/47
        BIT.S         164   PROGRAM*       11/15     11/43 L   11/57
        BIT.S1        166   PROGRAM*       11/44     11/47 L
        BIT.S2        174   PROGRAM*       11/53     11/56 L
        BLNKCOM         0   EXTERNAL*      40/57
        BVT           307   PROGRAM*        6/41     17/35 L
        BVT1          312   PROGRAM*       17/37     17/40 L   18/48     23/57
        BVT1A         324   PROGRAM*       17/49     17/57 L
        BVT1B         334   PROGRAM*       18/10     18/17     18/23 L
        BVT1C         336   PROGRAM*       18/28 L   22/15
        BVT10         426   PROGRAM*       20/39     20/49 L
        BVT11         430   PROGRAM*       20/45     20/57 L
        BVT12         444   PROGRAM*       20/52     21/39 L
        BVT13         451   PROGRAM*       21/56 L   22/08
        BVT14         454   PROGRAM*       21/57     22/07 L
        BVT15         457   PROGRAM*       22/20 L   22/33
        BVT16         464   PROGRAM*       22/37 L   22/56
        BVT17         472   PROGRAM*       22/29     22/32     22/55 L
        BVT18         501   PROGRAM*       22/18     22/28     22/51     22/55     23/24 L
        BVT19         504   PROGRAM*       23/33 L   23/45
        BVT2          344   PROGRAM*       17/51     17/53     18/40     18/43 L
        BVT20         513   PROGRAM*       23/53 L
        BVT3          350   PROGRAM*       17/44     18/53 L
        BVT4          352   PROGRAM*       18/55 L   18/57
        BVT5          363   PROGRAM*       19/17 L   21/42
        BVT6          370   PROGRAM*       19/29 L   19/33
        BVT7          373   PROGRAM*       19/32     19/36 L
        BVT8          412   PROGRAM*       20/07     20/16 L
        CFC           214   PROGRAM*        1/47 E   10/52     13/16 L
        CFCN          213   PROGRAM*       13/13 L   13/28     13/33     13/36     13/49     13/54     13/57
        CFC1          221   PROGRAM*       13/23     13/26 L
        CFC2          222   PROGRAM*       13/24     13/27 L
        CFC25         224   PROGRAM*       13/21     13/27     13/29 L
        CFC3          236   PROGRAM*       13/44     13/47 L
        CFC4          237   PROGRAM*       13/45     13/48 L
        CFC45         241   PROGRAM*       13/43     13/48     13/50 L
        CLOSREP         0   EXTERNAL*       2/16 X   10/23 S   10/44     11/43     11/52
        CON1            0   EXTERNAL*       2/16 X   20/24     21/01     26/10 S   26/54     27/48     27/49
        CON2            0   EXTERNAL*       2/16 X   20/26     21/02     22/01     26/34 S   27/55
                                           18/06     20/51 S   21/31     26/04 S   27/09     27/56
        CRL           176   PROGRAM*       11/45     11/54     12/11 L
        CRL1          210   PROGRAM*       12/46 L   12/52
        CRL2          175   PROGRAM*       12/06 L   12/48
        CR.DAT         11   TSTEXT          6/03
        CSC           251   PROGRAM*       10/24     14/22 L   19/48     19/57     20/11     25/56     26/29
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        C.CON      340000   TSTEXT         38/23
        DA              0   EXTERNAL*       2/16 X   31/02     33/18     34/33     35/13
                                           30/24 S   32/15 S   34/17     35/04
        DATA1          11   PROGRAM*        6/08 L    6/52
        DATA15         15   PROGRAM*        6/18 L    6/20
        DATA2          27   PROGRAM*        1/47 E    6/49 L
        DATA=           7   PROGRAM*        6/01 L    6/01 E
        DATA.E          2   PROGRAM*        5/22 L
        DATEMP          0   EXTERNAL*       2/16 X    6/15      6/16 S
        DATEMPL         0   EXTERNAL*       2/16 X    6/13
        DAT.Z           3   PROGRAM*        1/47 E    5/24 L    6/53
        DDS.O           0   EXTERNAL*       2/04 X   36/13
        DDS.R           0   EXTERNAL*       2/04 X   36/35     36/35
        DDS.S           0   EXTERNAL*       2/04 X   29/08     37/10     37/15
        DDS.W           0   EXTERNAL*       2/04 X   37/48     38/22     38/22
        DEC             0   EXTERNAL*       2/13 X    9/55     13/31     13/52     14/24     14/47
        DIM             0   EXTERNAL*       2/16 X   21/14     41/48 S
        DIM.MUL         0   EXTERNAL*       2/17 X   18/12     22/02     23/10     27/50     30/21     41/47 S
                                            6/11 S   21/30     22/38     23/39     30/02     30/50     41/56 S
        DIT.CMPX        0   PROGRAM*        5/02 L   11/02
        DIT.HOL         1   PROGRAM*        5/06 L   15/22
        DLEN            0   EXTERNAL*       2/16 X   33/32 S   33/49
        DVT             0   EXTERNAL*       2/17 X   22/42     29/20     34/56     37/27     42/02
                                           18/28     23/47     29/34     36/08     41/16 S
        E.DAA           0   EXTERNAL*       1/54 X   17/52
        E.DABC          0   EXTERNAL*       1/54 X
        E.DACV          0   EXTERNAL*       1/54 X    6/47
        E.DALV          0   EXTERNAL*      41/04     41/10
        E.DAR           0   EXTERNAL*       1/54 X   10/19
        E.DAUC          0   EXTERNAL*       1/54 X   40/31
        E.DAVC          0   EXTERNAL*       1/54 X    6/46
        E.DCE           0   EXTERNAL*       1/55 X   14/26     14/31
        E.DHC           0   EXTERNAL*       1/56 X   38/09
        E.DIL           0   EXTERNAL*       1/55 X    9/25     10/18
        E.DIL1          0   EXTERNAL*       1/55 X    9/46
        E.DIL2          0   EXTERNAL*       1/55 X   10/08     10/57
        E.DIL3          0   EXTERNAL*       1/55 X   11/49
        E.DMT           0   EXTERNAL*       1/55 X    8/14
        E.DNA           0   EXTERNAL*       1/55 X    7/49
        E.DNA2          0   EXTERNAL*       1/55 X    5/27
        E.DSE           0   EXTERNAL*       1/56 X    7/43      7/54      8/11      8/48      8/52      8/55
        E.DTC           0   EXTERNAL*       1/56 X   38/01     38/01     38/12     38/12
        E.DVL1          0   EXTERNAL*       1/56 X   17/48     18/41     24/02
        E.DVL10         0   EXTERNAL*      37/34
        E.DVL2          0   EXTERNAL*       1/56 X   19/05     19/09     19/20     19/22
        E.DVL21         0   EXTERNAL*       1/56 X   19/44
        E.DVL22         0   EXTERNAL*       1/56 X   19/47
        E.DVL23         0   EXTERNAL*       1/56 X   19/53
        E.DVL24         0   EXTERNAL*       1/57 X   19/56
        E.DVL25         0   EXTERNAL*       1/57 X   20/10
        E.DVL26         0   EXTERNAL*       1/57 X   20/16
        E.DVL3          0   EXTERNAL*       1/57 X   18/53     19/01
        E.DVL4          0   EXTERNAL*       1/57 X   19/34
        E.DVL5          0   EXTERNAL*       1/57 X   18/01
        E.DVL6          0   EXTERNAL*       1/57 X   18/31     18/32     20/30     23/50     23/51
        E.DVL7          0   EXTERNAL*       2/01 X   25/37
        E.DVL8          0   EXTERNAL*       2/01 X   26/12     26/28     26/42
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        E.DVL9          0   EXTERNAL*       2/01 X   14/29
        FILL.           0   EXTERNAL*       2/01 X   40/24 S
        GNI          1077   PROGRAM*       29/33     33/39     34/07     35/10     39/07 L
        GNI1         1106   PROGRAM*       39/13     39/31 L
        GNI2         1115   PROGRAM*       39/47     39/56 L
        INC             0   EXTERNAL*       2/17 X   20/06 S   20/13 S   20/41     20/57
        INDX            0   EXTERNAL*       2/17 X   19/29     20/50 S   21/56     26/16 S   27/37     27/38
        I.DIT           0   EXTERNAL*       2/17 X    6/40 S   32/21     32/33     35/33     39/08
        LASTCOL         0   EXTERNAL*       1/50 X    7/17
        LI              0   EXTERNAL*       2/17 X   30/31 S   30/49     31/15     33/38 S   33/43
        LL              0   EXTERNAL*       2/17 X   19/50 S   20/25     21/03
        LPINF           0   EXTERNAL*       2/17 X   22/20     22/50 S   23/33     30/15     31/03
                                           21/22 S   22/37     23/01     29/53     30/45     31/16
        L.DIM          30   TSTEXT         41/44
        L.DINDX        22   TSTEXT          5/03      5/04      5/09      5/10
        L.DIWC         22   TSTEXT          5/05      5/11
        L.LCON         11   TSTEXT         15/24
        L.NDIM          6   TSTEXT         41/35     41/40
        L.PNT          15   TSTEXT         41/12
        L.TYPE          5   TSTEXT         37/28     37/30
        MDL           614   PROGRAM*       18/44     23/53     29/13 L
        MDLY          612   PROGRAM*       29/08 L
        MDL1          620   PROGRAM*       29/16     29/20 L
        MDL10         642   PROGRAM*       30/15 L
        MDL11         651   PROGRAM*       30/36 L   31/31
        MDL12         654   PROGRAM*       30/45 L   30/57
        MDL13         665   PROGRAM*       31/15 L   31/26
        MDL14         672   PROGRAM*       31/22     31/29 L
        MDL2          631   PROGRAM*       29/26     29/42 L
        MDL3          632   PROGRAM*       29/45 L   30/09
        MDL4          634   PROGRAM*       29/25     29/50 L
        MDL5          642   PROGRAM*       29/51     30/11 L
        MOD             0   EXTERNAL*      41/07
        MP              0   EXTERNAL*       2/17 X   33/24 S   33/48     34/12
        MVE             0   EXTERNAL*      38/32
        M.DEF          10   TSTEXT         41/21
        M.ENT          40   TSTEXT         40/28
        M.EXT         100   TSTEXT         40/28
        M.FP           20   TSTEXT         40/28
        M.INT           2   TSTEXT         14/28
        M.NLST       1000   TSTEXT         40/28
        M.NVAR      20000   TSTEXT         40/28
        M.REAL          3   TSTEXT         13/32     13/53
        M.VAR       10000   TSTEXT         41/21
        NONANSI         0   EXTERNAL*       2/17 X    5/24      7/16 S   19/03 S
        N.DIMS          0   EXTERNAL*       2/18 X   17/50     25/36     41/26 S   41/41 S
        N.ITEM          0   EXTERNAL*       2/18 X   10/31     11/35     29/14     34/31
                                            6/45     11/09     12/20     31/29     35/23
        N.SUBS          0   EXTERNAL*       2/18 X   19/26     25/57     26/38 S   28/12 S
                                           18/05     21/47     26/30     26/51
        N.VSUB          0   EXTERNAL*       2/18 X   19/15 S   21/25 S   22/45 S   23/24     27/27     31/11
                                           17/43 S   20/34     22/14     23/16 S   26/46 S   30/36
        ODI          1032   PROGRAM*       29/37     33/42     34/10     35/18     37/23 L
        ODI0         1037   PROGRAM*       37/32     37/36 L
        ODI1         1051   PROGRAM*       37/26     38/06 L
        ODI2         1054   PROGRAM*       38/08     38/10 L
        ODI3         1056   PROGRAM*       38/10     38/13 L
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        ODI4         1070   PROGRAM*       38/31     38/35 L
        ODI5         1072   PROGRAM*       38/40 L   38/49
        ODI6         1076   PROGRAM*       38/43     38/51 L
        ODI.D        1042   PROGRAM*       37/39     37/44 L
        ODI.E        1031   PROGRAM*       37/14     37/20 L
        ODI.S        1023   PROGRAM*       37/10 L   37/42
        ODI.T        1025   PROGRAM*       37/13 L   37/54
        ODV          1007   PROGRAM*       29/32     33/34     34/06     35/09     36/07 L
        OIC           674   PROGRAM*       29/45     31/07     32/14 L
        OICB         1004   PROGRAM*       32/18 S   33/33     33/57     34/30     35/08     35/12     35/40 L
        OICN         1005   PROGRAM*       33/13 S   33/47     34/11     34/28     35/41 L
        OICT         1006   PROGRAM*       32/16 S   32/53     34/34     35/24     35/42 L
        OIC1          677   PROGRAM*       32/20 L   34/46
        OIC10         763   PROGRAM*       34/45     34/48 L   35/29
        OIC12         764   PROGRAM*       32/41     32/49     33/08     33/11     34/56 L
        OIC14         766   PROGRAM*       35/04 L   35/37
        OIC15         771   PROGRAM*       35/07     35/10 L
        OIC2          705   PROGRAM*       32/24     32/40 L
        OIC3          706   PROGRAM*       32/32     32/38     32/47 L   35/38
        OIC5          725   PROGRAM*       33/26     33/32 L
        OIC6          730   PROGRAM*       33/38 L   33/45
        OIC7          740   PROGRAM*       33/25     33/28     33/57 L
        OIC8          742   PROGRAM*       34/06 L   34/24
        OIC9          753   PROGRAM*       33/53     34/28 L
        ORD             0   EXTERNAL*       2/18 X   40/34 S
        ORGI            0   EXTERNAL*       2/18 X   29/24 S   30/43 S   34/36 S   35/05     35/20 S
        ORP          1015   PROGRAM*       33/52     34/15     36/31 L
        O.BOS           0   TSTEXT          7/20
        O.COMMA        13   TSTEXT          7/42     11/47     18/40     19/53     23/57
                                            8/08     13/36     19/20     20/07     26/40
        O.CONS          2   TSTEXT          9/24     13/28     13/49     19/47     19/56     20/10     25/55     26/28
        O.FALSE        31   TSTEXT          9/31 F
        O.HOLL          1   TSTEXT         15/14
        O.MIN           5   TSTEXT          9/35     13/45     26/21
        O.PERIOD       37   TSTEXT          9/40      9/44     13/21     13/27     13/43     13/48
        O.PL            4   TSTEXT         13/22     13/44     26/20     26/22
        O.RP           11   TSTEXT         13/57     20/16
        O.SLASH         7   TSTEXT          7/27      7/54     11/48     18/41     24/01
                                            7/51      7/55     17/36     18/48
        O.STAR          6   TSTEXT         10/11     26/06
        O.TRUE         30   TSTEXT          9/28      9/31 F
        O.VAR           3   TSTEXT         17/44     19/01     19/22     26/12
        O.(            10   TSTEXT          8/31      9/29     10/14     10/18     17/49     18/53     19/05
        O.)            11   TSTEXT          7/45      8/32     11/49     26/42
        O.=            12   TSTEXT         19/44
        PDV          1117   PROGRAM*       17/45     19/04     40/19 L
        PDV2         1140   PROGRAM*       40/50     41/07 L
        PDV3         1143   PROGRAM*       41/03     41/05     41/09     41/11 L
        PDV7         1162   PROGRAM*       41/33     41/53     42/02 L
        PDV8         1165   PROGRAM*       42/11 L
        PDV9         1116   PROGRAM*       40/15 L   42/11
        PL              0   EXTERNAL*       2/18 X   10/43     10/54     11/03     11/51 S   19/02 S   19/07     21/39
        PSP.C           0   EXTERNAL*       2/10 X    5/26
        PSS           520   PROGRAM*       17/57     19/06     25/35 L
        PSS20         525   PROGRAM*       25/48 L   25/50
        PSS30         526   PROGRAM*       25/54 L   26/40
        PSS32         535   PROGRAM*       25/55     26/12 L
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        PSS34         542   PROGRAM*       26/20     26/22 L
        PSS36         547   PROGRAM*       26/06     26/21     26/36 L
        PSS40         552   PROGRAM*       26/39     26/42 L
        PSS60         556   PROGRAM*       26/54 L   27/03
        PSS65         560   PROGRAM*       26/56     27/01 L
        PSS80         562   PROGRAM*       27/09 L   27/23
        PSS84         564   PROGRAM*       27/11     27/13 L
        PSS85         567   PROGRAM*       27/15     27/19 L
        PSS86         571   PROGRAM*       27/13     27/22 L
        PSS87         570   PROGRAM*       27/18     27/20 L
        PSS90         575   PROGRAM*       27/33 L   28/08
        PSS92         601   PROGRAM*       27/44     27/46 L
        PSS94         607   PROGRAM*       27/41     28/07 L
        PSS96         610   PROGRAM*       28/07     28/10 L
        PWE             0   EXTERNAL*       5/22     38/01     38/12     41/04     41/10
        P.             73   TSTEXT         40/50     41/08     41/33
        P.ARY          10   TSTEXT         41/33
        P.BLOCK        30   TSTEXT         40/56
        P.COMM         13   TSTEXT         40/50
        P.CTYP         44   TSTEXT         15/03     37/30     40/40
        P.DIHOL        72   TSTEXT          5/07
        P.DIM          36   TSTEXT         41/42     41/50
        P.DIMLG        36   TSTEXT         41/37
        P.DINDX        22   TSTEXT          5/03      5/09     10/32     11/26     12/21     12/34     12/46     15/02
        P.DIRL         44   TSTEXT         12/27
        P.DLVAR        22   TSTEXT          6/28      7/36      8/03
        P.DNEGH        71   TSTEXT         15/26     38/14
        P.DTAG         36   TSTEXT         36/12     36/32     36/34
        P.LCON         22   TSTEXT         15/21
        P.LONG          2   TSTEXT         14/50     40/37
        P.PBLK         10   TSTEXT         41/08
        P.PNT          30   TSTEXT         41/13
        P.SDPF         72   TSTEXT         40/44     42/04
        P.SYMORD       22   TSTEXT         40/35
        P.TAG          52   TSTEXT         38/21
        RAS            32   PROGRAM*        6/05      7/14 L
        RAS1           37   PROGRAM*        7/25 L    7/41      7/42      8/08
        RAS3           51   PROGRAM*        7/27      7/45 L
        RAS4           64   PROGRAM*        7/45      8/11 L
        REFVAR          0   EXTERNAL*       1/50 X    6/04 S
        REPFLAG         0   EXTERNAL*       2/19 X   10/07     10/34 S   12/12     32/20     39/19 S   39/42
        RL              0   EXTERNAL*       2/18 X   33/03 S   33/35     34/29
        SCR2            0   EXTERNAL*       2/19 X   13/30 S   13/37     13/51 S   14/01
        SDPF            0   EXTERNAL*       2/18 X   21/32     23/27     30/16     33/09     34/08     37/21 S   40/41 S
                                           18/23     21/48     29/21     30/38     33/40     37/13     38/06
        SELIST          0   EXTERNAL*       2/18 X    7/19 S   11/12     14/07 S   15/19 S   19/17     26/45 S   40/27 S
                                            6/31     10/01     11/27 S   14/53 S   18/37     20/18 S   40/15
                                            6/37     10/37     11/31     15/09     18/45     23/54     40/21 S
        SIGN            0   EXTERNAL*       2/19 X   26/24 S   27/14
        SSTL            0   EXTERNAL*       2/19 X   25/43
        SST1            0   EXTERNAL*       2/19 X   25/45     25/46 S
        STD            66   PROGRAM*        7/31      7/33      7/53      8/01      8/28 L
        STD1           71   PROGRAM*        8/35 L    8/38      8/41      8/46      8/54
        STD2           74   PROGRAM*        8/39      8/43 L
        STD3           77   PROGRAM*        8/44      8/50 L
        STD4          101   PROGRAM*        8/50      8/54 L
        SUBN            0   EXTERNAL*       2/19 X   19/39 S   20/22
1       /TSDATA  PROCESS *D A T A* STATEMENTS                         COMPASS 3.7-871.     24/05/02. 15.52.04.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        TA.NAM          0   EXTERNAL*       1/51 X   40/51
        TI=DAT          0   EXTERNAL*       1/50 X    5/25      5/25 S    6/12      6/12 S   12/30
        TI.DAT          0   EXTERNAL*       1/50 X   12/17     12/29     15/48     32/22     35/32     39/09
        TL=DAT          0   EXTERNAL*       1/50 X    6/24      6/49      7/15      7/15 S    8/12
        TL.DAT          0   EXTERNAL*       1/50 X    6/10      7/38      8/05      8/05
        TMP             0   EXTERNAL*       2/19 X    6/30 S    6/36     34/03 S   34/16     35/02 S   35/11
        TP.DIM          0   EXTERNAL*       1/51 X   41/27
        TRV             0   EXTERNAL*       2/13 X   40/25
        TS=DAT          0   EXTERNAL*       1/51 X   38/13
        TS.CON          0   EXTERNAL*       1/51 X   38/20
        TS.DAT          0   EXTERNAL*       1/51 X   36/17     36/38     37/37     38/19
                                           29/11     36/17     37/16     38/19
        TS.SYM          0   EXTERNAL*       1/50 X   41/20
        UL              0   EXTERNAL*       2/19 X   20/02 S   20/35
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1240              IDENT  DECL 
                       1240                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1234 
                                        LITERALS* LOCAL        1234         4 
  
  
                                        ENTRY POINTS. 
  
                                        CCT             36+           DIRX           225+           EQUIVA=        344+ 
                                        DIR8           222+           DIR            227+           EXTERN=       1014+ 
                                        EQU3           501+           LVL8          1132+           LEVEL=        1102+ 
                                        EQS8           413+           COMMON=        115+ 
                                        PCD           1207+           DIMENS=        211+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.SNAP   TS=SYM    E.CM6     E.DM14    E.TY      NCM       MVE       ANSI= 
                                        ARGCOMA   TT=COMM   E.DM      E.EQ      E.VD      SSY       TP.CIDM   E.ANS2
                                        ARGMODE   TT.COMM   E.DM1     E.EQ1     E.XC1     SCD       TP=DIM    TLV 
                                        DECARM    TT=PAR    E.DM2     E.EQ2     E.ZA      CPM=ASF   E.LV5     E.LV8 
                                        REFVAR    TS=CON    E.DM2A    E.EQ3     E.EQ13    PCDX      E.LV4     E.LV7 
                                        STAGE     TS=CONB   E.DM3     E.EQ4     E.EQ14    PSP       E.LV3     BLNKCOM 
                                        TA=NAM    VARDIM    E.DM4     E.EQ5     E.EQ15    WBL       E.LV2     E.LV6 
                                        TA.NAM    CLASS     E.DM5     E.EQ6     E.EQ16    DEC       E.LV1     PWE 
                                        TP.DIM    E.ANS     E.DM5A    E.EQ11    L.CL      STY       E.LV9     DPT 
                                        TP.EQU    E.CM      E.DM6     E.EQ12    FILL.     TRV       E.LV10    TP.APL
                                        TP=EQU    E.CMA     E.DM7     E.EX1     FILL.2    TYPA      E.TE4     TG.PRO
                                        TS.BLK    E.CM1     E.DM9     E.EX2     FILL.3    PAR       TRVA
                                        TS=BLK    E.CM2     E.DM10    E.EX3     PSFA      LCT       E.MR3 
                                        TS.EQU    E.CM3     E.DM11    E.EX4     ERT       DIMI      E.DM8 
                                        TS=EQU    E.CM4     E.DM12    E.MR2     ADW       EQUA      CHARMAP 
                                        TS.SYM    E.CM5     E.DM13    E.TE5     ESY       T.SB      ALC 
  
  
  
  
                                                  IDENT  DECL                                                    DECL        2
                                         DECL     SECT   (DECLARATIVE PHASE STATEMENTS.),1                       DECL        3
  
                                                                                                                 DECL        4
                                                  SST    A,B,D                                                   DECL        5
                                                  NOREF  A,B,D                                                   DECL        6
                                                                                                                 DECL        7
                                         B=DECL   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     DECL        8
                                                                                                                 DECL        9
                                                  ENTRY  CCT,DIR8,EQU3,EQS8,PCD,DIRX,DIR,LVL8                    FCC0835     8
                                                                                                                 DECL       11
                                        *         IN FTN                                                         DECL       12
                                                  EXT    CO.SNAP                                                 FCC0813   161
                                                                                                                 DECL       14
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     2
  
  
                                        *         IN TABLES                                                      DECL       15
                                                  EXT    ARGCOMA,ARGMODE,DECARM,REFVAR,STAGE,TA=NAM,TA.NAM       DECL       16
                                                  EXT    TP.DIM,TP.EQU,TP=EQU,TS.BLK,TS=BLK,TS.EQU,TS=EQU,TS.SYM DECL       17
                                                  EXT    TS=SYM,TT=COMM,TT.COMM,TT=PAR,TS=CON,TS=CONB,VARDIM     DECL       18
                                                                                                                 DECL       19
                                        *         IN ERRORS                                                      DECL       20
                                                  EXT    CLASS,E.ANS,E.CM,E.CMA,E.CM1,E.CM2,E.CM3,E.CM4,E.CM5    DECL       21
                                                  EXT    E.CM6,E.DM,E.DM1,E.DM2,E.DM2A,E.DM3,E.DM4,E.DM5,E.DM5A  DECL       22
                                                  EXT    E.DM6,E.DM7,E.DM9,E.DM10,E.DM11,E.DM12,E.DM13,E.DM14    DECL       23
                                                  EXT    E.EQ                                                    DECL       24
                                                  EXT    E.EQ1,E.EQ2,E.EQ3,E.EQ4,E.EQ5,E.EQ6,E.EQ11,E.EQ12,E.EX1 DECL       25
                                                  EXT    E.EX2,E.EX3,E.EX4,E.MR2,E.TE5,E.TY,E.VD,E.XC1,E.ZA      DECL       26
                                                  EXT    E.EQ13,E.EQ14,E.EQ15,E.EQ16                             FCC1573X    8
                                                  EXT    L.CL,FILL.,FILL.2,FILL.3                                DECL       28
                                                                                                                 DECL       29
                                        *         IN HEADER                                                      DECL       30
                                                  EXT    PSFA                                                    DECL       31
                                                                                                                 DECL       32
                                        *         IN ALLOC                                                       DECL       33
                                                  EXT    ERT,ADW,ESY,NCM,SSY,SCD                                 FCC0813   162
                                                                                                                 DECL       35
                                        *         IN MAIN                                                        DECL       36
                                                  EXT    CPM=ASF,PCDX,PSP,WBL                                    DECL       37
                                                                                                                 DECL       38
                                        *         IN LEX                                                         DECL       39
                                                  EXT    DEC,STY,TRV                                             DECL       40
                                                                                                                 DECL       41
                                        *         IN TYPE                                                        DECL       42
                                                  EXT    TYPA                                                    DECL       43
                                                                                                                 DECL       44
                                        *         IN PAR                                                         DECL       45
                                                  EXT    PAR                                                     DECL       46
                                                                                                                 DECL       47
                                        *         IN CONRED                                                      DECL       48
                                                  EXT    LCT                                                     DECL       49
                                                                                                                 DECL       50
                                        *         IN GEN                                                         DECL       51
                                                  EXT    DIMI                                                    DECL       52
                                                                                                                 DECL       53
                                        *         IN INIT                                                        DECL       54
                                                  EXT    EQUA                                                    DECL       55
                                                                                                                 DECL       56
  
  
  
  
                                        **        APT -  ASSIGN POINTER TAGS                                     DECL       95
                                        *                                                                        DECL       96
                                        *         ENTRY- END OF DECLARATIVES HAS BEEN ENCOUNTERED                DECL       97
                                        *                                                                        DECL       98
                                        *         EXIT-  POINTER WORD TAGS GENERATED AND STORED IN BLOCK TABLE   DECL       99
                                        *                ENTRIES FOR ECS/LCM COMMON BLOCKS.  POINTER WORDS       DECL      100
                                        *                CONSTRUCTED AND STORED IN TP.APL.                       DECL      101
                                                                                                                 DECL      102
                                                                                                                 DECL      103
             0  0400400000 +             APT      SUBR   0                                                       DECL      104
             1  5110000000 X                      SA1    TS.BLK                                                  DECL      105
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     3
                                                                      CCT 
  
                          5120000000 X            SA2    TS=BLK                                                  DECL      106
             2  21201                             AX2    1                                                       DECL      107
                     6222777776                   SB2    X2-1        B2 = NO. ENTRIES TO PROCESS                 DECL      108
                               66311              =B3    2                                                       DECL      109
             3  5211000001                        SA1    X1+1                                                    DECL      110
                          43072                   MX0    -L.BLVL                                                 DECL      111
                                                                                                                 DECL      112
             4  54113                    APT2     SA1    A1+B3       FETCH BLOCK TABLE ENTRY                     DECL      113
                     0420000000 +                 ZR     B2,APTX     IF NO MORE ENTRIES, EXIT..                  DECL      114
                               67221              SB2    B2-B1                                                   DECL      115
             5  20126                             LX1    -P.BLVL     RIGHT-JUSTIFY BLOCK LEVEL                   DECL      116
                     15210                        BX2    -X0*X1      X2 = BLOCK LEVEL                            DECL      117
                          7232777774              SX3    X2-3                                                    DECL      118
             6  0303000007 +                      ZR     X3,APT4     IF LEVEL 3                                  DECL      119
                                                                                                                 DECL      120
                                         .76      IFEQ   .CPU,76                                                 DECL      121
                                                                                                                 DECL      122
                                                  SX3    X2-2                                                    DECL      123
                                                  ZR     X3,APT4     IF LEVEL 2                                  DECL      124
                                                                                                                 DECL      125
                                         .76      ENDIF                                                          DECL      126
                                                                                                                 DECL      127
                          0400000004 +            EQ     APT2        LOOP                                        DECL      128
                                                                                                                 DECL      129
                                        **        GENERATE AND SET POINTER TAG                                   DECL      130
                                                                                                                 DECL      131
             7  5130000000 X             APT4     SA3    =XTG.PRO                                                DECL      132
                          73631                   =X6    X3+1        UPDATE PROGRAM TAG                          DECL      133
                               54630              SA6    A3                                                      DECL      134
            10  20146                             LX1    P.BLVL      RESTORE X1                                  DECL      135
                     20652                        LX6    P.CTAG                                                  DECL      136
                          12716                   BX7    X1+X6       SET TAG INTO BLOCK TABLE ENTRY              DECL      137
                               54710              SA7    A1                                                      DECL      138
                                                                                                                 DECL      139
                                        **        CONSTRUCT POINTER WORD -- GET TAG OF FIRST NAME IN BLOCK AND   DECL      140
                                        *         PLACE INTO AP-LIST WORD FORMAT WITH BIT *ALCM* ON.             DECL      141
                                        *         TT.COMM HAS BEEN KEPT SO WE CAN FIND FIRST NAMES.              DECL      142
                                                                                                                 DECL      143
            11  5140000000 X                      SA4    TS.BLK      X4 = FWA BLOCK TABLE                        DECL      144
                          63441                   SB4    X4+B1                                                   DECL      145
                               75414              SX4    A1-B4       X4 = BLOCK NUMBER                           DECL      146
            12  20430                             LX4    P.BLOCK     ALIGN BLOCK NUMBER                          DECL      147
                     43714                        MX7    L.BLOCK                                                 DECL      148
                          20744                   LX7    L.BLOCK+P.BLOCK   ALIGN BLOCK NUMBER MASK               DECL      149
            13  5120000000 X                      SA2    TT.COMM     X2 = FWA COMMON TAG TABLE                   DECL      150
                          5130000000 X            SA3    TT=COMM                                                 DECL      151
            14  63430                             SB4    X3          B4 = LENGTH OF COMMON TAG TABLE             DECL      152
                     5222777776                   SA2    X2-1                                                    DECL      153
                               66500              =B5    0                                                       DECL      154
                                                                                                                 DECL      155
            15  54221                    APT6     =A2    A2+1        FETCH TT.COMM ENTRY                         DECL      156
                     0454000000 X                 EQ     B5,B4,E.ZA  IF DID NOT FIND ANY NAME FOR BLOCK          DECL      157
                               66551              =B5    B5+1                                                    DECL      158
            16  11572                             BX5    X7*X2       X5 = BLOCK NUMBER                           DECL      159
                     37554                        IX5    X5-X4                                                   DECL      160
                          0315000015 +            NZ     X5,APT6     IF NOT CORRECT BLOCK, LOOP                  DECL      161
                                                                                                                 DECL      162
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     4
                                                                      CCT 
  
                                        *         FIRST NAME IN BLOCK FOUND                                      DECL      163
                                                                                                                 DECL      164
            17  43722                             MX7    L.TAG                                                   DECL      165
                     11272                        BX2    X7*X2       X2 = TAG ORDINAL OF FIRST NAME IN BLOCK     DECL      166
                          7170200000              SX7    C.VAR                                                   DECL      167
            20  20752                             LX7    P.TAG                                                   DECL      168
                     36227                        IX2    X2+X7       X2 = TAG OF FIRST NAME IN BLOCK             DECL      169
                          43701                   MX7    1                                                       DECL      170
                               20725              LX7    P.ALCM+1                                                DECL      171
            21  10566                             BX5    X6          POINTER TAG                                 DECL      172
                     12627                        BX6    X2+X7       TURN ON *ALCM* BIT                          DECL      173
                                                                                                                 DECL      174
                                        *         SAVE SOME REGISTERS                                            DECL      175
                                                                                                                 DECL      176
                          74710                   SX7    A1                                                      DECL      177
            22  5170000032 +                      SA7    APTA1       SAVE A1                                     DECL      178
                          76720                   SX7    B2                                                      DECL      179
            23  5170000033 +                      SA7    APTB2       SAVE B2                                     DECL      180
                          5110000000 X            ADDWD  =XTP.APL                                                DECL      181
            25  74260                             SX2    A6                                                      DECL      182
                     37221                        IX2    X2-X1       X2 = ORDINAL OF TP.APL ENTRY JUST ADDED     DECL      183
                          12552                   BX5    X5+X2       TAG + ORDINAL                               DECL      184
                               43701              MX7    1                                                       DECL      185
            26  12675                             BX6    X7+X5       ENTRY FOR *TA.PRO*                          DECL      186
                     0100000000 X                 RJ     =XDPT       DEFINE PROGRAM TAG                          DECL      187
            27  5110000033 +                      SA1    APTB2                                                   DECL      188
                          63210                   SB2    X1          RESTORE B2                                  DECL      189
            30  5110000032 +                      SA1    APTA1                                                   DECL      190
                          53110                   SA1    X1          RESTORE A1                                  DECL      191
                               66311              =B3    2           RESTORE B3                                  DECL      192
            31  43072                             MX0    -L.BLVL     RESTORE X0                                  DECL      193
                     0400000004 +                 EQ     APT2        LOOP                                        DECL      194
                                                                                                                 DECL      195
            32                     1     APTA1    BSS    1                                                       DECL      196
            33                     1     APTB2    BSS    1                                                       DECL      197
                                                                                                                 DECL      198
                                        **        CCT -  CHECK CONFLICTING TYPES.                                DECL      199
                                        *                                                                        DECL      200
                                        *         POST AN ERROR IF ELEMENT IS GIVEN CONFLICTING TYPE.            DECL      201
                                        *                                                                        DECL      202
                                        *         ENTRY  (X6) = SYMBOL TABLE ENTRY TO BE CHECKED.                DECL      203
                                        *                (X2) = BIT POSITION OF NEW CLASS (P.XXX DEFINITION)     DECL      204
                                        *                       (CAN ONLY BE ONE BIT AND NEVER BE EITHER --      DECL      205
                                        *                            A.  NOT-VAR                                 DECL      206
                                        *                       OR   B.  VAR                                     DECL      207
                                        *                (X3) = MASK OF FORBIDDEN CLASSES.                       DECL      208
                                        *                                                                        DECL      209
                                        *                FILL.= SET TO ELEMENT CURRENTLY BEING CHECKED.          DECL      210
                                        *                                                                        DECL      211
                                        *         EXIT   IF NO ERROR X3 = ADDRESS OF TT.NAM ENTRY                DECL      212
                                        *                            X2 = ORDINAL OF TT.NAM ENTRY                DECL      213
                                        *                              ONLY A3 DESTROYED                         DECL      214
                                        *                IF CONFLICT:  X6 = 0                                    DECL      215
                                        *                              ONLY B4 PRESERVED                         DECL      216
                                                                                                                 DECL      217
                                                                                                                 DECL      218
            34  43257                    CCT2     MX2    -L.PWF                                                  DECL      219
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     5
                                                                      CCT 
  
                     20622                        LX6    -P.PWF                                                  DECL      220
                          5130000000 X            SA3    TS.SYM                                                  DECL      221
            35  15262                             BX2    -X2*X6      ISOLATE TAG ORDINAL                         DECL      222
                     36332                        IX3    X3+X2                                                   DECL      223
                          20652                   LX6    P.PWF       RESTORE X6                                  DECL      224
                                                                                                                 DECL      225
            36  0400400036 +             CCT      SUBR   0                                                       DECL      226
            37  11336                             BX3    X3*X6                                                   DECL      227
                     0303000034 +                 ZR     X3,CCT2     IF NO CONFLICT                              DECL      228
                               10033              BX0    X3                                                      DECL      229
            40  7110050020                        CLAS=  X1,(VAR,FP,RP)                                          FCC0835     9
                          6120000052 X            SB2    CLASS-P.CLASS2+47                                       DECL      231
            41  11116                             BX1    X1*X6                                                   DECL      232
                     6122000000 X                 SB2    B2+L.CL                                                 DECL      233
            42  0301000043 +                      ZR     X1,CCT10    IF CURRENT ENTRY NOT VAR, FP OR RP          FCC0835    10
                          6120000054 X            SB2    CLASS-P.CLASS+47                                        DECL      235
            43  24373                    CCT10    NX3    B7,X3                                                   DECL      236
                     67707                        SB7    -B7                                                     DECL      237
                          56172                   SA1    B7+B2       *DPC* FOR CURRENT ENTRY                     DECL      238
                               10611              BX6    X1                                                      DECL      239
            44  6122777720                        SB2    B2-47                                                   DECL      240
                          5160000000 X            SA6    FILL.2                                                  DECL      241
            45  53322                             SA3    X2+B2       *DPC* FOR CAN NOT BE                        DECL      242
                     10633                        BX6    X3                                                      DECL      243
                          5160000000 X            SA6    FILL.3                                                  DECL      244
            46  6170000000 X                      FATAL  E.VD                                                    FCC0835    11
            47  13666                             BX6    0           INDICATE ERROR                              FCC0835    12
                     0400000036 +                 EQ     CCTX        EXIT..                                      DECL      248
  
  
  
  
                                        **        CLU  - CHECK "LEVEL" USAGE                                     DECL      250
                                        *         CHECKS THAT EACH LEVEL 2 OR LEVEL 3 NAME IS ASSIGNED TO        DECL      251
                                        *         COMMON OR IS A FORMAL PARAMETER.  CHECKS CONSISTENCY AND       DECL      252
                                        *         COMPLETENESS OF LEVEL INFO FOR EACH COMMON BLOCK.              DECL      253
                                                                                                                 DECL      254
                                                                                                                 DECL      255
            50  0400400050 +             CLU      SUBR   0                                                       DECL      256
            51  5110000000 X                      SA1    TA.NAM                                                  DECL      257
                          5120000000 X            SA2    TS=SYM                                                  DECL      258
            52  21201                             AX2    1                                                       DECL      259
                     63510                        SB5    X1          (B5) = FWA(TA.NAM)                          DECL      260
                          5130000000 X            SA3    TS.SYM                                                  DECL      261
            53  63620                             SB6    X2          (B6) = NO. OF TS.SYM WORDS TO EXAMINE       DECL      262
                     66311                        =B3    2                                                       DECL      263
                          5233777776              SA3    X3-1        (A3) = FWA(TS.SYM) - 1                      DECL      264
                                                                                                                 DECL      265
            54  54333                    CLU1     SA3    A3+B3       FETCH TAG  WORD                             DECL      266
                     7100000200                   SX0    M.LEV                                                   DECL      267
            55  0460000071 +                      ZR     B6,CLU3     IF DONE, GO TO NEXT PHASE                   DECL      268
                          67661                   SB6    B6-B1                                                   DECL      269
                               11203              BX2    X0*X3                                                   DECL      270
            56  0303000054 +                      ZR     X3,CLU1     IF NULL ENTRY                               DECL      271
                          0302000054 +            ZR     X2,CLU1     IF NOT LEVEL NAME                           DECL      272
                                                                                                                 DECL      273
                                        *         HERE IF ENTRY WITH LEVEL ON.  NOW CHECK IF LEVEL 2 OR 3.       DECL      274
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     6
                                                                      CMN 
  
                                                                                                                 DECL      275
            57  43572                             MX5    -L.LEVN                                                 DECL      276
                     10433                        BX4    X3                                                      DECL      277
                          21445                   AX4    P.LEVN      RIGHT-JUSTIFY LEVEL NUMBER                  DECL      278
                               15445              BX4    -X5*X4      ISOLATE LEVEL NUMBER                        DECL      279
            60  7244777775                        SX4    X4-2                                                    DECL      280
                          0334000054 +            MI     X4,CLU1     IF LEVEL 1, FORGET IT                       DECL      281
                                                                                                                 DECL      282
                                        *         HERE IF LEVEL 2 OR 3.  CHECK IF *FP* OR *COMM* BIT SET.        DECL      283
                                                                                                                 DECL      284
            61  7150004020                        SX5    M.FP+M.COMM                                             DECL      285
                          11453                   BX4    X5*X3                                                   DECL      286
            62  0314000054 +                      NZ     X4,CLU1     IF EITHER BIT SET, O.K.                     DECL      287
                                                                                                                 DECL      288
                                        *         NAME MAY BE IN COMMON EVEN IF *COMM* BIT OFF.  FULL CHECK      DECL      289
                                        *         IS  MADE ON BLOCK NO. IN TA.NAM ENTRY.                         DECL      290
                                                                                                                 DECL      291
                          43515                   MX5    L.PWF                                                   DECL      292
                               20305              LX3    L.TGB                                                   DECL      293
            63  11453                             BX4    X5*X3       ISOLATE ORDINAL                             DECL      294
                     20414                        LX4    L.PWF-1     RIGHT-JUSTIFY AND  HALVE                    DECL      295
                          63240                   SB2    X4                                                      DECL      296
                               56152              SA1    B5+B2       FETCH ADDRESS TABLE ENTRY                   DECL      297
            64  43560                             MX5    -L.BLOCK                                                DECL      298
                     21130                        AX1    P.BLOCK                                                 DECL      299
                          15415                   BX4    -X5*X1      ISOLATE BLOCK NUMBER                        DECL      300
            65  0314000054 +                      NZ     X4,CLU1     IF IN COMMON                                DECL      301
                                                                                                                 DECL      302
                                        *         HERE IF ILLEGAL                                                DECL      303
                                                                                                                 DECL      304
                          55431                   SA4    A3-B1       FETCH SYMBOL                                DECL      305
                               43552              MX5    7*CHAR                                                  DECL      306
            66  11654                             BX6    X5*X4                                                   DECL      307
                     5160000000 X                 SA6    FILL.                                                   DECL      308
            67  6170000000 X                      FATAL  =XE.LV6                                                 DECL      309
            70  0400000054 +                      EQ     CLU1        CONTINUE CHECKING                           DECL      310
                                                                                                                 DECL      311
                                        *         SCAN TS.BLK TABLE, CHECKING FOR CONFLICT AND/OR DEFAULT        DECL      312
                                                                                                                 DECL      313
            71  5130000000 X             CLU3     SA3    TS.BLK                                                  DECL      314
                          5120000000 X            SA2    TS=BLK                                                  DECL      315
            72  53331                             SA3    X3+B1                                                   DECL      316
                     21201                        AX2    1                                                       DECL      317
                          66311                   =B3    2                                                       DECL      318
            73  6262777776                        SB6    X2-1        (B6) = NO. OF TS.BLK WORDS TO EXAMINE       DECL      319
                          5140000000 X            SA4    =XBLNKCOM                                               FCC1767X    6
            74  63540                             SB5    X4          BLANK COMMON BLOCK NUMBER                   FCC1767X    7
                                                                                                                 DECL      321
            75  54333                    CLU4     SA3    A3+B3       FETCH TS.BLK ENTRY                          DECL      322
                     0460000050 +                 ZR     B6,CLUX     IF DONE, EXIT..                             DECL      323
                               67661              SB6    B6-B1                                                   DECL      324
            76  20322                             SBIT   X3,CNFL                                                 DECL      325
                     0323000104 +                 PL     X3,CLU6     IF NO CONFLICT                              DECL      326
                                                                                                                 DECL      327
                                        *         LEVEL CONFLICT FOR THIS BLOCK                                  DECL      328
                                                                                                                 DECL      329
            77  0565000101 +                      NE     B6,B5,CLU5  IF NOT BLANK COMMON                         DECL      330
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     7
                                                                      CMN 
  
                          5140000113 +            SA4    BCOM                                                    DECL      331
           100  10644                             BX6    X4                                                      DECL      332
                     0400000102 +                 EQ     CLU55                                                   DECL      333
                                                                                                                 DECL      334
           101  55431                    CLU5     SA4    A3-B1       FETCH NAME                                  DECL      335
                     43052                        MX0    7*CHAR                                                  DECL      336
                          11604                   BX6    X0*X4                                                   DECL      337
           102  5160000000 X             CLU55    SA6    FILL.                                                   DECL      338
                          6170000000 X            FATAL  =XE.LV7                                                 DECL      339
           104  20301                    CLU6     SBIT   X3,DFLT/CNFL                                            DECL      340
                     0323000075 +                 PL     X3,CLU4     IF NO NAMES DEFAULTED                       DECL      341
                                                                                                                 DECL      342
                                        *         NOT ALL NAMES IN BLOCK DECLARED LEVEL                          DECL      343
                                                                                                                 DECL      344
           105  0565000107 +                      NE     B6,B5,CLU7  IF NOT BLANK COMMON                         DECL      345
                          5140000113 +            SA4    BCOM                                                    DECL      346
           106  10644                             BX6    X4                                                      DECL      347
                     0400000110 +                 EQ     CLU75                                                   DECL      348
                                                                                                                 DECL      349
           107  55431                    CLU7     SA4    A3-B1                                                   DECL      350
                     43052                        MX0    7*CHAR                                                  DECL      351
                          11604                   BX6    X0*X4                                                   DECL      352
           110  5160000000 X             CLU75    SA6    FILL.                                                   DECL      353
                          6170000000 X            NOTE   =XE.LV8                                                 DECL      354
           112  0400000075 +                      EQ     CLU4                                                    DECL      355
                                                                                                                 DECL      356
           113  50500000000000000000     BCOM     DATA   0L//                                                    DECL      357
  
  
  
  
                                        **        CMN -  PROCESS "COMMON" STATEMENT.                             DECL      359
                                        *         CONSTRUCTS TS.COMM ENTRIES:  VFD 18/TAG,6/BLK.NR,18/,18/RELADD DECL      360
                                        *         (N.B.  *RELADD* IS LEFT ZERO FOR *MCA* TO FILL IN LATER)       DECL      361
                                        *         EXIT   PROPER ENTRIES HAVE BEEN MADE IN                        DECL      362
                                        *                TS.NAM, TT.NAM, TT.COMM, TS.BLK                         DECL      363
                                        *         CALLS  ADDWD, DIR, SCM, TRV.                                   DECL      364
                                        *         USES   *TYPA* TEMP HOLDING OF CURN BLK NUMBER.                 DECL      365
                                        *         EXIT   TO MASTER LOOP.                                         DECL      366
                                                                                                                 DECL      367
           114  00000000000000171600              HEREIF COMMON                                                  DECL      368
                                                                                                                 DECL      369
           115  7160000004                        =X6    CR.DEC                                                  DECL      370
                          5160000000 X            SA6    REFVAR      SET REFERENCE TYPE                          DECL      371
                                                                                                                 DECL      372
           116  5110000000 X                      SA1    =XBLNKCOM                                               FCC0583    36
                          63710                   SB7    X1          BLANK COMMON BLOCK NUMBER                   FCC0583    37
                               56140              SA1    B4                                                      DECL      374
           117  6221777770                        SB2    X1-O.SLASH                                              DECL      375
                          0301000000 X            ZR     X1,E.CM4    IF *EOS*, ERR..                             DECL      376
           120  0520000167 +                      NZ     B2,CMN4H    IF NO SLASH                                 DECL      377
                          66441                   SB4    B4+B1                                                   DECL      378
           121  0400000144 +                      EQ     CMN3                                                    DECL      379
                                                                                                                 DECL      380
                                        *         PROCESS VARIABLE LIST.                                         DECL      381
                                                                                                                 DECL      382
                                                                                                                 DECL      383
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     8
  
  
           122  56240                    CMN1     SA2    B4          FETCH NEXT ELEMENT                          DECL      384
                     56141                        SA1    B4+B1                                                   DECL      385
                          10622                   BX6    X2                                                      DECL      386
           123  0302000000 X                      ZR     X2,E.CM6    IF PREMATURE *EOS*                          DECL      387
                          6271777774              SB7    X1-O.VAR                                                DECL      388
           124  0570000126 +                      NZ     B7,CMN15    IF NOT LONG NAME                            DECL      389
                          0100000000 X            RJ     =XTLV       TRUNCATE NAME                               DECL      390
           125  56141                             =A1    B4+1                                                    DECL      391
           126  7211777767               CMN15    SX1    X1-O.(                                                  DECL      392
                          5160000000 X            SA6    FILL.       SAVE NAME FOR POSSIBLE ERROR MESSAGE        DECL      394
           127  0311000132 +                      NZ     X1,CMN2     IF NO LPAREN                                DECL      395
                          0100000227 +            RJ     DIR                                                     DECL      396
           130  5150000000 X                      SA5    TYPA        RETRIEVE BLOCK INDICATOR                    DECL      397
                          0306000141 +            ZR     X6,CMN2B    IF ERROR IN DIMS                            DECL      398
           131  0400000134 +                      EQ     CMN2A                                                   DECL      399
                                                                                                                 DECL      400
           132  0100000000 X             CMN2     RJ     TRV         TRANSLATE VARIABLE                          DECL      401
           133  0310000141 +                      NZ     X0,CMN2B    IF ERROR DETECTED                           DECL      402
           134  7120000013               CMN2A    SX2    P.COMM                                                  DECL      403
                          7130007160              CLAS=  X3,(FP,EXT,ENT,ASF,NLST,COMM)                           DECL      404
           135  0100000036 +                      RJ     CCT         CHECK CONFLICTING CLASSES                   DECL      405
           136  0306000141 +                      ZR     X6,CMN2B    IF USAGE CONFLICT                           DECL      406
                                                                                                                 DECL      407
                          7140014010              SX4    M.COMM+M.DEF+M.VAR                                      DECL      408
           137  20252                             LX2    P.TAG                                                   DECL      409
                     12646                        BX6    X4+X6                                                   DECL      410
                          53630                   SA6    X3          STORE MODIFIED ENTRY BACK INTO TT.NAM       DECL      411
                               12625              BX6    X2+X5       MERGE WITH BLOCK NUMBER                     DECL      412
           140  5110000000 X                      ADDWD  TT.COMM     ADVANCE TABLE O                             DECL      413
           141  56141                    CMN2B    SA1    B4+B1                                                   DECL      414
                     64411                        SB4    A1+B1       B4 = B4+2                                   DECL      415
                          7221777764              SX2    X1-O.COMMA                                              DECL      416
           142  0302000122 +                      ZR     X2,CMN1     IF COMMA                                    DECL      417
                          0301000000 X            ZR     X1,PSP      IF END OF STATEMENT                         DECL      418
           143  6221777770                        SB2    X1-O.SLASH                                              DECL      419
                          0520000000 X            NZ     B2,E.CM3    IF NO SLASH, ERR..                          DECL      420
           144  56140                    CMN3     SA1    B4                                                      DECL      421
                     0301000000 X                 ZR     X1,E.CM1    IF PREMATURE EOS                            DECL      422
                               66441              SB4    B4+B1                                                   DECL      423
           145  7261777770                        SX6    X1-O.SLASH                                              DECL      424
                          0316000174 +            NZ     X6,CMN5     IF NO SLASH                                 DECL      425
           146  5130000000 X                      SA3    =XBLNKCOM                                               FCC0583    38
                          63730                   SB7    X3          BLANK COMMON BLOCK NUMBER                   FCC0583    39
           147  0400000167 +                      EQ     CMN4H                                                   DECL      427
                                                                                                                 DECL      428
                                        *         PROCESS /BLOCK/                                                DECL      429
                                                                                                                 DECL      430
           150  43006                    CMN4     MX0    CHAR                                                    FCC1259    17
                     20030                        LX0    -LG.VAR*CHAR+CHAR                                       FCC1259    18
                          11260                   BX2    X6*X0                                                   FCC1259    19
           151  0302000156 +                      ZR     X2,CMN4F    IF BLOCK NAME NOT SEVEN CHARACTERS          FCC1259    20
                          21222                   AX2    18                                                      FCC1259    21
           152  6222777732                        SB2    X2-1R+                                                  FCC1259    22
                          0620000156 +            PL     B2,CMN4F    IF NOT BLANK COMMON                         FCC1259    23
           153  5160000000 X                      SA6    FILL.                                                   FCC1259    24
                          54210                   SA2    A1          SAVE *A*                                    FCC1259    25
           154  6170000000 X                      ANSI   =XE.ANS2                                                FCC1259    26
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE     9
  
  
           155  54120                             SA1    A2          RESTORE *A1*                                FCC1259    27
           156  5110000000 X             CMN4F    SCAN   TS.BLK,SCD                                              FCC1259    28
           157  0670000167 +                      PL     B7,CMN4H    IF ALREADY IN TABLE                         DECL      432
           160  5120000000 X             CMN4G    SA2    TS=BLK                                                  FCC0583    40
                          10566                   BX5    X6                                                      DECL      434
           161  7232776030                        SX3    X2-MAX.BLK*2+1                                          DECL      435
                          0323000000 X            PL     X3,E.CM2    IF TOO MANY BLOCKS                          DECL      436
           162  76011                             ALLOC  A1,2                                                    DECL      437
           163  6272777775                        SB7    X2-2        ORDINAL                                     DECL      438
                          10755                   BX7    X5                                                      DECL      439
                               43600              MX6    0                                                       DECL      440
           164  53717                             SA7    X1+B7                                                   DECL      441
                     54671                        SA6    A7+B1                                                   DECL      442
                          5150001234 +            SA5    =7L                                                     FCC0583    41
           165  37557                             IX5    X5-X7                                                   FCC0583    42
                     0315000172 +                 NZ     X5,CMN4I    IF NOT BLANK COMMON                         FCC0583    43
                               76670              SX6    B7                                                      FCC0583    44
           166  5160000000 X                      SA6    =XBLNKCOM   BLANK COMMON BLOCK NUMBER INDICATOR         FCC0583    45
                          0400000172 +            EQ     CMN4I                                                   FCC0583    46
           167  0570000172 +             CMN4H    NZ     B7,CMN4I    IF BLANK COMMON ALREADY PRESENT             FCC0583    47
                          5110000000 X            SA1    TS.BLK                                                  FCC0583    48
           170  5120001234 +                      SA2    =7L                                                     FCC0583    49
                          10622                   BX6    X2                                                      FCC0583    50
           171  0400000160 +                      EQ     CMN4G                                                   FCC0583    51
           172  76670                    CMN4I    SX6    B7                                                      FCC0583    52
                     20630                        LX6    P.BLOCK                                                 DECL      444
                          10566                   BX5    X6                                                      DECL      445
           173  5160000000 X                      SA6    TYPA        SAVE BLOCK INDICATOR                        DECL      446
                          0400000122 +            EQ     CMN1                                                    DECL      447
                                                                                                                 DECL      448
           174  56340                    CMN5     SA3    B4                                                      DECL      449
                     6271777775                   SB7    X1-O.CONS                                               DECL      450
           175  0470000202 +                      ZR     B7,CMN5B    IF BLOCK NAME IS NUMBER                     DECL      451
                          6271777774              SB7    X1-O.VAR                                                DECL      452
           176  0570000000 X                      NZ     B7,E.CM5    ILLEGAL BLOCK NAME                          DECL      453
                          6273777774              SB7    X3-O.VAR                                                DECL      454
           177  0570000205 +                      NZ     B7,CMN5C    IF NOT LONG NAME                            DECL      455
                          67441                   =B4    B4-1                                                    DECL      456
           200  0100000000 X                      RJ     =XTLV       TRUNCATE NAME                               DECL      457
           201  66441                             =B4    B4+1                                                    DECL      458
                     56340                        =A3    B4                                                      DECL      459
                          0400000205 +            EQ     CMN5C                                                   DECL      460
  
  
           202  10211                    CMN5B    BX2    X1          SAVE (X1)                                   FCC0842     4
                     6170000000 X                 ANSI   E.CMA       BLOCK NUMBER NON-ANSI                       FCC0842     5
           204  22102                             LX1    X2          RESTORE (X1)                                FCC0842     6
           205  73210                    CMN5C    SX2    X1                                                      DECL      463
                     13612                        BX6    X1-X2                                                   DECL      464
                          6273777770              SB7    X3-O.SLASH                                              DECL      465
           206  0570000000 X                      NZ     B7,E.CM     IF NO SLASH                                 DECL      466
                          66441                   =B4    B4+1                                                    FCC0583    53
           207  0400000150 +                      EQ     CMN4                                                    DECL      468
  
  
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    10
                                                                      DIM 
  
                                        **        DIM -  PROCESS "DIMENSION" DECLARATION.                        DECL      471
                                        *         EXIT   TO MASTER LOOP.                                         DECL      472
                                        *         CALLS  DIR      (FOR EVERY ARRAY IN STATEMENT.)                DECL      473
                                                                                                                 DECL      474
                                                                                                                 DECL      475
           210  17160000000000162311              HEREIF DIMENSION                                               DECL      476
                                                                                                                 DECL      477
           211  7160000004                        =X6    CR.DEC                                                  DECL      478
                          5160000000 X            SA6    REFVAR      SET REFERENCE TYPE                          DECL      479
                                                                                                                 DECL      480
           212  0100000227 +             DIM1     RJ     DIR         PROCESS DIMENSIONED VARIABLE                DECL      481
           213  56141                             SA1    B4+B1                                                   DECL      482
                     64411                        SB4    A1+B1       (B4) = (B4) + 2                             DECL      483
                          7221777764              SX2    X1-O.COMMA                                              DECL      484
           214  0302000212 +                      ZR     X2,DIM1     IF *,*                                      DECL      485
                          0301000000 X            ZR     X1,PSP      IF *EOS*, RETURN TO MASTER LOOP             DECL      486
           215  5221000000 X                      SA2    X1+=XCHARMAP                                            DECL      487
                          43052                   MX0    L.CDPC                                                  DECL      488
           216  0312000217 +                      NZ     X2,DIM2     IF NOT VAR OR CONS                          DECL      489
                          22201                   LX2    X1                                                      DECL      490
           217  11602                    DIM2     BX6    X0*X2                                                   DECL      491
                     5160000000 X                 SA6    FILL.                                                   DECL      492
           220  0400000000 X                      EQ     E.TY                                                    DECL      493
  
  
  
  
                                        **        DIR -  PROCESS DIMENSIONED VARIABLE.                           DECL      495
                                        *         ENTRY  (B4) _ VARIABLE NAME IN *SB*.  LPAREN EXPECTED AS NEXT  DECL      496
                                        *                            CHARACTER.                                  DECL      497
                                        *         EXIT   (B4) _ TERMINAL *)*, OR *EOS*-1.                        DECL      498
                                        *                (X6) = SYMBOL TAG ENTRY.                                DECL      499
                                        *                            (= ZERO IF ERROR.)                          DECL      500
                                        *                DIMENSIONING INFORMATION ENTERED INTO TP.DIM AND        DECL      501
                                        *                            POINTER ENTERED INTO *P.PNT*.               DECL      502
                                        *         CALLS  DIS, TRV.                                               DECL      503
                                        *         USES   ALL REGISTERS.                                          DECL      504
                                        *                *APLIST* FOR TEMP HOLDING OF DIM DESCRIPTORS.           DECL      505
                                                                                                                 DECL      506
                                                                                                                 DECL      507
                                        **        HERE WHEN A SYNTAX ERROR IS FOUND -- SEARCHES FOR NEXT *)* IN  DECL      508
                                        *                ATTEMPT TO RECOVER SO THAT REST OF STATEMENT MAY BE     DECL      509
                                        *                PROCESSED.                                              DECL      510
                                                                                                                 DECL      511
           221  66441                    DIR7     SB4      B4+B1                                                 DECL      512
           222  56140                    DIR8     SA1      B4                                                    DECL      513
                     0301000000 X                 ZR     X1,E.DM10   IF *EOS* -- ERROR                           DECL      514
           223  7211777766                        SX1    X1-O.)                                                  DECL      515
                          0311000221 +            NZ     X1,DIR7     ADVANCE TO NEXT RIGHT PAREN                 DECL      516
           224  13555                             BX5    0           INDICATE ERROR                              DECL      517
                                                                                                                 DECL      518
                                        *         EXIT - SHRINK CONSTANT TABLE BACK TO WHAT IT WAS BEFORE THIS   DECL      519
                                        *         STATEMENT.                                                     DECL      520
                                                                                                                 DECL      521
           225  5120000000 X             DIRX     SA2    TS=CONB                                                 DECL      522
                          10622                   SHRINK TS=CON,X2                                               DECL      523
                          10655                   BX6    X5                                                      DECL      524
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    11
                                                                      DIR 
  
                                                                                                                 DECL      525
           227  0400400227 +             DIR      SUBR   Z           ENTRY/EXIT...                               DECL      526
           230  56440                             SA4    B4                                                      DECL      527
                     0304000000 X                 ZR     X4,E.EX3    IF *EOS*                                    DECL      528
                               10644              BX6    X4                                                      DECL      529
           231  0100000000 X                      RJ     TRV         TRANSLATE VARIABLE                          DECL      530
           232  0310000222 +                      NZ     X0,DIR8     IF ERROR DETECTED                           DECL      531
                          7130000400              =X3    M.ARY                                                   DECL      532
           233  11236                             BX2    X3*X6                                                   DECL      533
                     0302000235 +                 ZR     X2,DIR2     IF NOT ALREADY AN ARRAY                     DECL      534
           234  6170000000 X                      WARN   E.DM9       PREVIOUS DIMENSION HOLDS                    DECL      535
           235  7130020140               DIR2     CLAS=  X3,(NVAR,ENT,EXT)                                       DECL      536
                          7120000010              SX2    P.ARY                                                   DECL      537
           236  0100000036 +                      RJ     CCT         CHECK CONFLICTING CLASSES                   DECL      538
           237  0306000222 +                      ZR     X6,DIR8     IF ERROR DETECTED.                          DECL      539
                          53530                   SA5    X3          TAG                                         DECL      540
                               22702              LX7    X2                                                      DECL      541
           240  7130010400                        SX3    M.ARY+M.VAR                                             DECL      542
                          12563                   BX5    X6+X3       SET ARRAY BIT                               DECL      543
                               22605              LX6    X5                                                      DECL      544
           241  5170000302 +                      SA7    DIRT        SAVE TAG ORDINAL                            DECL      545
                          54650                   SA6    A5                                                      DECL      546
                                                                                                                 DECL      547
                                        **        PROCESS DIMENSION ARGUMENTS                                    DECL      548
                                                                                                                 DECL      549
                               56141              SA1    B4+B1       FETCH SEPARATOR                             DECL      550
           242  0301000000 X                      ZR     X1,E.DM5A   IF *EOS*                                    DECL      551
                          7221777764              SX2    X1-O.COMMA                                              DECL      552
           243  7261000003                        SX6    X1-O.(+O.COMMA                                          DECL      553
                          6231777767              SB3    X1-O.(                                                  DECL      554
           244  0302000000 X                      ZR     X2,E.DM5A   IF COMMA                                    DECL      555
                          0530000000 X            NZ     B3,E.DM     IF NOT LEFT PAREN                           DECL      556
           245  6130000000 X                      SB3    DIMI        SAVE POSITION FOR 1ST DIMENSION             DECL      557
                          6150000003 X            SB5    DIMI+MAX.DIM                                            DECL      558
           246  54610                             SA6    A1          FAKE UP A COMMA FOR *DIS*                   DECL      559
                     13555                        BX5    0                                                       DECL      560
                          0400000314 +            EQ     DIS                                                     DECL      561
                                                                                                                 DECL      562
                                                                                                                 DECL      563
                                        **        HERE IS RETURN FROM *DIS*.                                     DECL      564
                                                                                                                 DECL      565
           247  6160000000 X             DIR3     SB6    DIMI                                                    DECL      566
                          13666                   BX6    0                                                       DECL      567
                               77036              SX0    B3-B6                                                   DECL      568
           250  0436000000 X                      EQ     B3,B6,E.DM5       IF NO DIMENSIONS                      DECL      569
                          20066                   LX0    P.NDIM                                                  DECL      570
                               56630              SA6    B3          CLEAR EXTRA CELL IN CASE ODD NR OF DIMS     DECL      571
           251  5130000302 +                      SA3    DIRT                                                    DECL      572
                          5110000000 X            SA1    TS.SYM                                                  DECL      573
           252  36213                             IX2    X1+X3                                                   DECL      574
                     10655                        BX6    X5                                                      DECL      575
                          53520                   SA5    X2          RE-FETCH TAG TABLE ENTRY                    DECL      576
           253  0306000263 +                      ZR     X6,DIR4     IF NO VARIABLE DIMENSIONS                   DECL      577
                                                                                                                 DECL      578
                                                                                                                 DECL      579
                                        **        HANDLE VARIABLE DIMENSIONS HERE.                               DECL      580
                                                                                                                 DECL      581
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    12
                                                                      DIR 
  
                          76310                   =X3    1                                                       DECL      582
                               10255              BX2    X5                                                      DECL      583
           254  20335                             LX3    P.VDIM                                                  DECL      584
                     76610                        =X6    1                                                       DECL      585
                          5160000000 X            SA6    VARDIM      INDICATE VARIABLE DIMENSIONS APPEARED       DECL      586
           255  20267                             IFBIT  X2,FP,DIR31 IF FORMAL PARAMETER                         DECL      587
           256  5130000302 +                      SA3    DIRT                                                    DECL      588
                          5110000000 X            SA1    TS.SYM                                                  DECL      589
           257  36213                             IX2    X1+X3                                                   DECL      590
                     5222777776                   =A2    X2-1        ARRAY NAME                                  DECL      591
                               43052              MX0    L.SYM                                                   DECL      592
           260  11602                             BX6    X0*X2                                                   DECL      593
                     5160000000 X                 SA6    FILL.                                                   DECL      594
           261  0400000000 X                      EQ     E.DM3                                                   DECL      595
                                                                                                                 DECL      596
           262  12030                    DIR31    BX0    X3+X0                                                   DECL      597
                     76710                        =X7    1           OFFSET OF 1 FOR VAR DIM ARRAY               DECL      598
                          0400000270 +            EQ     DIR6        CONTINUE.. TO ENTER TABLE                   DECL      599
                                                                                                                 DECL      600
                                                                                                                 DECL      601
                                        **        CONSTANT DIMENSIONS -- COMPUTE DIMOS AND LENGTH.               DECL      602
                                        *                                                                        DECL      603
                                        *         DIMOS  =  SIGMA [1@J@N, PI (0@K@J-1, DIM(K)) ]                 DECL      604
                                                                                                                 DECL      605
           263  56160                    DIR4     SA1    B6                                                      DECL      606
                     76310                        =X3    1                                                       DECL      607
                          66561                   SB5    B6+B1                                                   DECL      608
                               76410              =X4    1                                                       DECL      609
                                                                                                                 DECL      610
           264  42331                    DIR42    IX3    X3*X1       X3 = PI (DIM(K), 0@K@J-1)                   DECL      611
                     0653000266 +                 GE     B5,B3,DIR46       [ 1 @ J \ N ]                         DECL      612
                               56150              SA1    B5                                                      DECL      613
           265  66551                             SB5    B5+B1                                                   DECL      614
                     36443                        IX4    X4+X3       X4 = SIGMA( (X3) , J)                       DECL      615
                          0400000264 +            EQ     DIR42                                                   DECL      616
                                                                                                                 DECL      617
           266  7110377777               DIR46    SX1    1S17-1                                                  FCC1410    10
                          37113                   IX1    X1-X3                                                   FCC1410    11
           267  0331000000 X                      MI     X1,=XE.DM8  IF LENGTH > 2**17-1                         FCC1410    12
                          20336                   LX3    P.DIMLG                                                 FCC1410    13
                               12743              BX7    X4+X3                                                   DECL      619
                                                                                                                 DECL      620
                                                                                                                 DECL      621
                                        **        PACK DIM INFO INTO FINAL FORM.                                 DECL      622
                                        *                (X0) = NDIM + VDIM FLAGS.                               DECL      623
                                        *                (X7) = (LEN/OFFSET WORD)                                DECL      624
                                        *                (B6) = FWA DESCRIPTORS.                                 DECL      625
                                        *                (B3) = LWA+1 DESCRIPTORS.                               DECL      626
                                                                                                                 DECL      627
           270  43157                    DIR6     MX1    -L.PNT                                                  DECL      628
                     10655                        BX6    X5                                                      DECL      629
                          20644                   LX6    -P.PNT                                                  DECL      630
                               15161              BX1    -X1*X6                                                  DECL      631
           271  0311000225 +                      NZ     X1,DIRX     IF PRIOR DIMENSION ENTERED                  DECL      632
                                                                                                                 DECL      633
                          56260                   SA2    B6                                                      DECL      634
                               12670              BX6    X7+X0                                                   DECL      635
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    13
                                                                      DIR 
  
           272  37111                             IX1    X1-X1                                                   DECL      636
                     56660                        SA6    B6          STORE HEADER WORD                           DECL      637
                                                                                                                 DECL      638
           273  20236                    DIR65    LX2    P.DIM                                                   DECL      639
                     64521                        SB5    A2+B1                                                   DECL      640
                          12612                   BX6    X1+X2                                                   DECL      641
                               54121              SA1    A2+B1                                                   DECL      642
           274  56251                             SA2    B5+B1                                                   DECL      643
                     54661                        SA6    A6+B1                                                   DECL      644
                          0753000273 +            LT     B5,B3,DIR65                                             DECL      645
                                                                                                                 DECL      646
           275  64361                    DIR67    SB3    A6+B1       LWA+1 OF THIS ENTRY                         DECL      647
                     66260                        SB2    B6          FWA   OF THIS ENTRY                         DECL      648
                          5110000000 X            SCAN   TP.DIM,NCM                                              DECL      649
           277  5110000000 X                      SA1    TS.SYM      IN CASE TABLES MOVED                        DECL      650
                          5120000302 +            SA2    DIRT                                                    DECL      651
           300  36312                             IX3    X1+X2                                                   DECL      652
                     20630                        LX6    P.PNT                                                   DECL      653
                          12656                   BX6    X5+X6                                                   DECL      654
                               53630              SA6    X3          INSERT DIM TABLE POINTER                    DECL      655
           301  22506                             LX5    X6                                                      DECL      656
                     0400000225 +                 EQ     DIRX        EXIT..                                      DECL      657
                                                                                                                 DECL      658
           302                     1     DIRT     BSS    1           TEMP HOLDING OF TAG ORDINAL                 DECL      659
  
  
  
  
                                        **        DIS -  ASSEMBLE DIMENSION SUBSCRIPT.                           DECL      661
                                        *         CO-ROUTINE WITH *DIR*.  ASSEMBLES DIMENSIONALITY DESCRIPTORS   DECL      662
                                        *                INTO A SAVE BUFFER.                                     DECL      663
                                        *         ENTRY  (B4)+1 _ SUBSCRIPT ENTRY.                               DECL      664
                                        *                (B3) _ FWA OF SAVE AREA.                                DECL      665
                                        *                (B5) _ LWA SAVE BUFFER.                                 DECL      666
                                        *                (X5) = 0.                                               DECL      667
                                        *         EXIT   TO *DIR3* --                                            DECL      668
                                        *                (B3) _ LWA+1 OF STORED DESCRIPTORS.                     DECL      669
                                        *                (B4) _ RPAREN OR *EOS* THAT CAUSED *DIS* TO QUIT.       DECL      670
                                        *                (X5) = 0 -- NO VAR-DIMS.                                DECL      671
                                        *                     = M.CDIM -- IF VARDIMS HAPPENED.                   DECL      672
                                        *         MOST ERRORS EXIT TO *DIR8*.                                    DECL      673
                                        *         USES   ALL EXCEPT A0,A5  B5,B6                                 DECL      674
                                        *         CALLS  DEC, TRV, WARN.                                         DECL      675
                                                                                                                 DECL      676
                                                                                                                 DECL      677
                                        **        HERE WHEN DESCRIPTOR IS VARIABLE NAME.                         DECL      678
                                                                                                                 DECL      679
           303  0100000000 X             DIS6     RJ     TRV         TRANSLATE VARIABLE                          DECL      680
           304  43001                             MX0    1                                                       DECL      681
                     20050                        LX0    P.FPS+1                                                 DECL      682
                          7140010000              SX4    M.VAR                                                   FCC1222     6
           305  5120000000 X                      SA2    TS.SYM                                                  DECL      683
                          12660                   BX6    X6+X0       SET FLAG FOR DEFERRED TYPE CHECK            DECL      684
                               12664              BX6    X6+X4       VARIABLE DIMENSION MUST BE VARIABLE         FCC1222     7
           306  53627                             SA6    X2+B7                                                   DECL      685
                     20667                        SBIT   X6,FP                                                   DECL      686
                          76410                   =X4    1                                                       DECL      687
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    14
                                                                      DIS 
  
                               76270              SX2    B7                                                      DECL      688
           307  20427                             LX4    P.TDIM                                                  DECL      689
                     0326000341 +                 PL     X6,DIS5     IF NOT A DUMMY-ARG, ERR..                   DECL      690
                               43501              MX5    1           INDICATE VARIABLE DIMS OCCURRED             DECL      691
           310  20526                             LX5    P.CDIM+1                                                DECL      692
                     36642                        IX6    X4+X2       SET VAR-DIM BIT AND CLEAR TAG TYPE          DECL      693
                          43300                   MX3    0           SKIP TYPE CHECK                             DECL      694
                                                                                                                 DECL      695
                                                                                                                 DECL      696
                                        **        ADD DESCRIPTOR TO SAVE BUFFER --                               DECL      697
                                        *                (X1) = TYPE.                                            DECL      698
                                        *                (X6) = DESCRIPTOR -- 36/0, 1/VAR, 23/(TAG OR NUMBER)    DECL      699
                                                                                                                 DECL      700
           311  56630                    DIS8     SA6    B3          SAVE DESCRIPTOR WORD                        DECL      701
                     0735000313 +                 LT     B3,B5,DIS9  IF NO OVERFLOW OF SAVE AREA                 DECL      702
                               67331              SB3    B3-B1                                                   DECL      703
           312  6170000000 X                      FATAL  E.DM6                                                   DECL      704
           313  76600                    DIS9     =X6    0                                                       DECL      705
                     66331                        SB3    B3+B1                                                   DECL      706
                          0313000000 X            NZ     X3,E.DM1    IF NOT TYPE INTEGER, ERR..                  DECL      707
                                                                                                                 DECL      708
                                                                                                                 DECL      709
                                        **        INITIAL ENTRY IS HERE.                                         DECL      710
                                        *                (B4)+1 _ COMMA OR RPAREN.                               DECL      711
                                                                                                                 DECL      712
           314  56141                    DIS      SA1    B4+B1       FETCH NEXT SEPARATOR                        DECL      713
                     66441                        SB4    B4+B1                                                   DECL      714
                          7221777766              SX2    X1-O.)                                                  DECL      715
           315  0301000000 X                      ZR     X1,E.MR2    IF *EOS*, ERR..                             DECL      716
                          6221777764              SB2    X1-O.COMMA                                              DECL      717
           316  0302000247 +                      ZR     X2,DIR3     IF RPAREN, EXIT..                           DECL      718
                          0420000324 +            ZR     B2,DIS2     IF COMMA                                    DECL      719
           317  5221000000 X                      SA2    X1+=XCHARMAP                                            DECL      720
                          0312000321 +            NZ     X2,DIS1     IF NOT VAR OR CONS                          DECL      721
           320  22201                             LX2    X1                                                      DECL      722
           321  43052                    DIS1     MX0    L.CDPC                                                  DECL      723
                     11602                        BX6    X0*X2                                                   DECL      724
                          5160000000 X            SA6    FILL.                                                   DECL      725
           322  6170000000 X                      FATAL  E.EX2                                                   DECL      726
           323  0400000222 +                      EQ     DIR8        EXIT.. TO ATTEMPT RECOVERY                  DECL      727
                                                                                                                 DECL      728
           324  56241                    DIS2     SA2    B4+B1                                                   DECL      729
                     73620                        SX6    X2                                                      DECL      730
                          0302000000 X            ZR     X2,E.DM     IF *EOS* - ERROR                            DECL      731
           325  6222777774                        SB2    X2-O.VAR                                                DECL      732
                          13626                   BX6    X2-X6                                                   DECL      733
                               66441              SB4    B4+B1                                                   DECL      734
           326  5160000000 X                      SA6    FILL.2      SAVE VAR NAM FOR POSSIBLE ERROR MESSAGE     DECL      735
                          6272777775              SB7    X2-O.CONS                                               DECL      736
           327  0420000303 +                      ZR     B2,DIS6     IF ALPHA                                    DECL      737
                          76071                   =X0    B7+O.CONS-O.HOLL                                        DECL      738
           330  6222777766                        SB2    X2-O.)                                                  DECL      739
                          0300000332 +            ZR     X0,DIS2A    IF HOLLERITH CONSTANT                       DECL      740
           331  0420000000 X                      ZR     B2,E.DM2A   IF *)*                                      DECL      741
                          0400000333 +            EQ     DIS3        PROCESS WHATEVER...                         DECL      742
                                                                                                                 DECL      743
                                        **        DIMENSION CONSTANT IS HOLLERITH, OUTPUT ANSI ERROR AND         DECL      744
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    15
                                                                      DIS 
  
                                        *         CONTINUE TO PROCESS AS A LEGAL DIMENSIONALITY.                 DECL      745
                                                                                                                 DECL      746
           332  6170000000 X             DIS2A    ANSI   E.DM12                                                  DECL      747
                                                                                                                 DECL      748
                                        **        HERE WHEN DESCRIPTOR IS A NUMBER.                              DECL      749
                                                                                                                 DECL      750
           333                           DIS3     BSS    0                                                       DECL      751
           333  0100000754 +                      RJ     EAX         EVALUATE ABSOLUTE EXPRESSION                DECL      752
           334  0470000311 +                      ZR     B7,DIS8     IF ERROR IN CONSTANT                        DECL      753
                          7231777775              SX3    X1-M.INT                                                DECL      754
           335  10266                             BX2    X6                                                      DECL      755
                     0311000336 +                 NZ     X1,DIS4     IF NOT UNIVERSAL TYPE                       DECL      756
                               43300              MX3    0                                                       DECL      757
           336  21221                    DIS4     AX2    17                                                      DECL      758
                     0306000000 X                 ZR     X6,E.DM2    IF NO CONSTANT - ERROR                      DECL      759
                               12656              BX6    X5+X6       MERGE *PREVIOUS VAR-DIM* BIT                DECL      760
           337  0302000311 +                      ZR     X2,DIS8     IF NUMBER IS @ 2**17-1                      DECL      761
                          0313000000 X            NZ     X3,E.DM1    IF NOT TYPE INTEGER                         DECL      762
           340  0400000000 X                      EQ     E.DM7                                                   DECL      763
                                                                                                                 DECL      764
                                        **        ERROR IN DIM INDICATOR.                                        DECL      765
                                        *                OUTPUT ERROR MESSAGE AND THEN PRETEND IT WAS AN         DECL      766
                                        *         O.K. DIMENSION OF ONE.                                         DECL      767
                                                                                                                 DECL      768
           341  6170000000 X             DIS5     FATAL  E.DM4                                                   FCC1222     8
           342  43300                             MX3    0                                                       DECL      770
                     76610                        =X6    1                                                       DECL      771
                          0400000311 +            EQ     DIS8        CONTINUE..                                  DECL      772
                                                                                                                 DECL      773
                                  27     A        DECMIC P.TDIM                                                  DECL      774
                            37600000     A        DECMIC 1S"A"-C.VAR                                             DECL      775
                                1235 +   DISA     LIT    "A"                                                     DECL      776
  
  
  
  
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    16
  
  
                                        *                                                                        FCC1946     9
                                        *        UNPACK AND PACK MACROS PARIALLY SIMULATE THE PACK AND UNPACK    FCC1946    10
                                        *        OPERATION CODES. EXCEPTIONS:  NO SIGN EXTENSION WHEN            FCC1946    11
                                        *        USING THE UNPACK MACRO. THE ENTIRE  EXPONENT FIELD IS USED      FCC1946    12
                                        *        TO STORE VALUES.                                                FCC1946    13
                                        *                                                                        FCC1946    14
                                        *        UNPK    XN,BN,WXR,MR                                            FCC1946    15
                                        *        PACK    XN,BN,WXR,MR                                            FCC1946    16
                                        *                                                                        FCC1946    17
                                        *        XN - THE DESTINATION REGISTER AND MUST CONTAIN THE PACKED       FCC1946    18
                                        *             FIELD OR THE COEFICIENT FIELD                              FCC1946    19
                                        *        BN - THE EXPONENT FIELD , SELECTING B0 RESULTS IN THE           FCC1946    20
                                        *             ELIMINATION OF ALL INSTUCTIONS ASSOCIATED WITH THE         FCC1946    21
                                        *             BN AND WXR REGISTERS.                                      FCC1946    22
                                        *       WXR - SCRATCH REGISTER , IF BO IS SELECTED FOR THE B REGISTER    FCC1946    23
                                        *             THIS REGISTER CAN BE SET TO VALUE SELECTED FOR             FCC1946    24
                                        *             MR REGISTER.                                               FCC1946    25
                                        *        MR - MASK REGISTER                                              FCC1946    26
                                        *                                                                        FCC1946    27
                                        *                                                                        FCC1946    28
                                         UNPK     MACRO  XN,BN,WXR,MR                                            FCC1946    29
                                                  M_MR   12                                                      FCC1946    30
                                                  IFNE   BN,B0,1                                                 FCC1946    31
                                                  B_WXR  MR*XN                                                   FCC1946    32
                                                  B_XN   -MR*XN                                                  FCC1946    33
                                                  IFNE   BN,B0,2                                                 FCC1946    34
                                                  L_WXR  12                                                      FCC1946    35
                                                  S_BN   WXR                                                     FCC1946    36
                                                  ENDM                                                           FCC1946    37
                                         PACK     MACRO  XN,BN,WXR,MR                                            FCC1946    38
                                                  IFNE   BN,B0,4                                                 FCC1946    39
                                                  M_MR   48                                                      FCC1946    40
                                                  S_WXR  BN                                                      FCC1946    41
                                                  B_WXR  -MR*WXR                                                 FCC1946    42
                                                  L_WXR  48                                                      FCC1946    43
                                                  M_MR   12                                                      FCC1946    44
                                                  B_XN   -MR*XN                                                  FCC1946    45
                                                  IFNE   BN,B0,1                                                 FCC1946    46
                                                  B_XN   WXR+XN                                                  FCC1946    47
                                                  ENDM                                                           FCC1946    48
                                        *                                                                        FCC1946    49
                                        *                                                                        FCC1946    50
                                        **        EQS -  PROCESS "EQUIVALENCE" DECLARATION.                      DECL      778
                                        *                                                                        DECL      779
                                        *         PERFORMS SYNTAX CHECKING OF THE STATEMENT, AND TRANSLATES THE  DECL      780
                                        *                EQUIVALENCES INTO TS.EQU TO AWAIT THE CLOSE OF          DECL      781
                                        *                DECLARATIVES.                                           DECL      782
                                        *                                                                        DECL      783
                                        *         EXIT   TO MASTER LOOP.                                         DECL      784
                                                                                                                 DECL      785
                                                                                                                 DECL      786
           343  05160305000000260114              HEREIF EQUIVALENCE                                             DECL      787
                                                                                                                 DECL      788
           344  7160000004                        =X6    CR.DEC                                                  DECL      789
                          5160000000 X            SA6    REFVAR      SET REFERENCE TYPE                          DECL      790
           345  67441                             SB4    B4-B1                                                   DECL      791
                                                                                                                 DECL      792
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    17
  
  
                                        **        BEGIN NEW EQUIVALENCE GROUP.                                   DECL      793
                                        *                (B4) _ LPAREN IN FRONT OF GROUP.                        DECL      794
                                                                                                                 DECL      795
           346  56141                    EQS2     SA1    B4+B1                                                   DECL      796
                     66441                        SB4    B4+B1       ADVANCE B4 TO 1ST SYMBOL                    DECL      797
                          0301000000 X            ZR     X1,=XE.MR3  IF *EOS* - ERROR                            FCC1274    23
           347  6271777767                        SB7    X1-O.(                                                  DECL      798
                          66610                   =B6    1                                                       DECL      799
           350  0570000000 X                      NZ     B7,E.EQ1    IF NO *(* - ERROR                           DECL      800
                                                                                                                 DECL      801
                                                                                                                 DECL      802
                                        **        NOW PROCESS A NAME.                                            DECL      803
                                        *                (B4) _ SYMBOL                                           DECL      804
                                                                                                                 DECL      805
           351  56141                    EQS3     SA1    B4+B1                                                   DECL      806
                     66441                        SB4    B4+B1                                                   DECL      807
                          10611                   BX6    X1                                                      DECL      808
           352  5160000000 X                      SA6    FILL.       SAVE NAME FOR (POSSIBLE) ERROR MESSAGE      DECL      809
                          0100000000 X            RJ     TRV         TRANSLATE VARIABLE                          DECL      810
           353  7130003160                        CLAS=  X3,(FP,ENT,ASF,EXT,NLST)                                DECL      811
                          7120000012              SX2    P.EQUIV                                                 DECL      812
           354  0100000036 +                      RJ     CCT         CHECK FOR CONFLICTING CLASS                 DECL      813
           355  0306000413 +                      ZR     X6,EQS8     IF CONFLICT                                 DECL      814
                          10622                   BX6    X2                                                      FCC1946    51
                               43360              PACK   X6,B6,X2,X3   MERGE GROUP-FLAG W/ TAG ORDINAL           FCC1946    52
                          5110000000 X            ADDWD  TS.EQU      1ST WORD TO TABLE                           DECL      816
           361  56441                             SA4    B4+B1                                                   DECL      817
                     66441                        SB4    B4+B1       ADVANCE B4                                  DECL      818
                          66661                   SB6    B6+B1       INDICATE NO ROOT                            DECL      819
                               66300              =B3    0           CLEAR SUBSCRIPT COUNT                       DECL      820
           362  6274777767                        =B7    X4-O.LP                                                 DECL      821
                          0470000371 +            ZR     B7,EQS5     IF *(*                                      FCC0498    26
           363  5120000000 X                      SA2    =XTRVA      *ST* ENTRY                                  FCC0498    27
                          20263                   IFBIT  X2,-ARY,EQS4 IF NOT ARRAY                               FCC0498    28
                          6170000000 X            ANSI   =XE.TE4                                                 FCC0498    29
           366  13222                    EQS4     BX2    0                                                       FCC0498    30
                     10622                        BX6    X2                                                      FCC1946    53
                          43314                   PACK   X6,B0,X3,X3                                             FCC1946    54
           367  5110000000 X                      ADDWD  TS.EQU      FAKE SUBSCRIPT OF ZERO                      DECL      825
           370  0400000404 +                      EQ     EQS6                                                    DECL      826
                                                                                                                 DECL      827
                                                                                                                 DECL      828
                                        **        PROCESS SUBSCRIPT.  (IF ANY)                                   DECL      829
                                                                                                                 DECL      830
           371  56141                    EQS5     SA1    B4+B1                                                   DECL      831
                     66441                        SB4    B4+B1       ADVANCE B4                                  DECL      832
                          6271777775              SB7    X1-O.CONS                                               DECL      833
           372  0570000000 X                      NZ     B7,E.EQ5    IF NO NUMBER                                DECL      834
                          0100000000 X            RJ     DEC         CONVERT DECIMAL NUMBER                      DECL      835
           373  0306000000 X                      ZR     X6,E.EQ5    IF ZERO SUBSCRIPT - ERROR                   DECL      836
                          0301000375 +            ZR     X1,EQS5B    IF MODELESS, OK..                           DECL      837
           374  6271777775                        SB7    X1-M.INT                                                DECL      838
                          0570000000 X            NZ     B7,E.EQ5    IF NOT INTEGER MODE - ERROR                 DECL      839
           375  10466                    EQS5B    BX4    X6                                                      DECL      840
                     21421                        AX4    17                                                      DECL      841
                          0314000000 X            NZ     X4,E.EQ2    IF SUBSCRIPT TOO BIG -- ERR                 DECL      842
           376  66331                             =B3    B3+1        COUNT UP SUBSCRIPTS                         DECL      843
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    18
  
  
                     43314                        PACK   X6,B0,X3,X3                                             FCC1946    55
           377  5110000000 X                      ADDWD  TS.EQU      ADD SUBSC TO TABLE                          DECL      845
           400  56141                             SA1    B4+B1                                                   DECL      846
                     66441                        SB4    B4+B1       ADVANCE B4                                  DECL      847
                          7133777773              SX3    B3-MAX.DIM-1                                            DECL      848
           401  7221777764                        SX2    X1-O.COMMA                                              DECL      849
                          6271777766              SB7    X1-O.)                                                  DECL      850
           402  0323000000 X                      PL     X3,E.EQ4    IF TOO MANY SUBSCRIPTS                      DECL      851
                          0302000371 +            ZR     X2,EQS5     IF COMMA, MORE SUBSCRIPTS                   DECL      852
           403  0570000000 X                      NZ     B7,E.EQ3    IF NO RPAREN, ERROR                         DECL      853
                                                                                                                 DECL      854
                          56441                   SA4    B4+B1                                                   DECL      855
                               66441              SB4    B4+B1                                                   DECL      856
                                                                                                                 DECL      857
                                                                                                                 DECL      858
                                        **        END OF EQUIVALENCE ITEM.                                       DECL      859
                                        *                (X4) = NEXT *SB* ENTRY.                                 DECL      860
                                        *                (B4) _ COMMA, AFTER THE SYMBOL, OR                      DECL      861
                                        *                       RPAREN, TERMINATING THE GROUP.                   DECL      862
                                                                                                                 DECL      863
           404  6274777764               EQS6     SB7    X4-O.COMMA                                              DECL      864
                          7234777766              SX3    X4-O.)                                                  DECL      865
           405  0470000351 +                      ZR     B7,EQS3     IF COMMA, GET MORE NAMES                    DECL      866
                          0313000000 X            NZ     X3,E.EQ     IF NO *)* - ERROR                           DECL      867
                                                                                                                 DECL      868
                                                                                                                 DECL      869
                                        **        CLOSE OUT AN EQUIVALENCE GROUP.                                DECL      870
                                        *                CHECK FOR TRIVAL GROUP.                                 DECL      871
                                        *                SYNTAX CHECK FOR COMMA OR *EOS*.                        DECL      872
                                                                                                                 DECL      873
           406  66711                             =B7    2                                                       DECL      874
                     56441                        =A4    B4+1                                                    DECL      875
                          0776000410 +            GT     B6,B7,EQS7D IF MORE THAN ONE MEMBER IN GROUP            DECL      876
           407  6170000000 X                      WARN   E.EQ6       TRIVIAL GROUP - WARNING                     DECL      877
           410  66441                    EQS7D    SB4    B4+B1       ADVANCE B4                                  DECL      878
                     6274777764                   SB7    X4-O.COMMA                                              DECL      879
           411  0470000346 +                      ZR     B7,EQS2     IF COMMA                                    DECL      880
                          0314000000 X            NZ     X4,E.XC1    IF NO *EOS* -- ERROR                        DECL      881
           412  0400000000 X                      EQ     PSP         EXIT..                                      DECL      882
                                                                                                                 DECL      883
                                                                                                                 DECL      884
                                        **        RETURN TO HERE WHEN AN ERROR IS FOUND.                         DECL      885
                                        *                SEARCH FOR AN LPAREN IN ATTEMPT TO RECOVER FROM THE     DECL      886
                                        *                ERROR, AND RESUME SYNTAX CHECKING.                      DECL      887
                                                                                                                 DECL      888
           413  56141                    EQS8     SA1    B4+B1                                                   DECL      889
                     66441                        SB4    B4+B1                                                   DECL      890
                          0301000000 X            ZR     X1,PSP      IF *EOS*                                    DECL      891
           414  20106                             LX1    CHAR                                                    DECL      892
                     7211777767                   SX1    X1-O.(                                                  DECL      893
           415  0311000413 +                      NZ     X1,EQS8     IF NO LPAREN                                DECL      894
                          67441                   SB4    B4-B1                                                   DECL      895
           416  0400000346 +                      EQ     EQS2        TRY FOR MORE                                DECL      896
                                                                                                                 DECL      897
           417  17777777777777777777     EQSA     CON    1.0P0-2                                                 DECL      898
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    19
                                                                      EQU 
  
                                        **        EQU -  PROCESS EQUIVALENCES.                                   DECL      900
                                        *                                                                        DECL      901
                                        *         ENTRY  (TS.EQU) CONTAINS TRANSLATED EQUIVALENCE STATEMENTS.    DECL      902
                                        *                END OF DECLARATIVES HAS BEEN ENCOUNTERED.               DECL      903
                                        *                ADDRESS TABLE HAS BEEN CREATED, AND COMMON VARIABLES    DECL      904
                                        *                            DEFINED.                                    DECL      905
                                        *         EXIT   EQUIVALENCE ADDRESSES ASSIGNED.                         DECL      906
                                        *                (EQUA) = LOCAL EQUIVALENCE LENGTH                       DECL      907
                                                                                                                 DECL      908
                                                                                                                 DECL      909
           420  0400400420 +             EQU      SUBR   0                                                       DECL      910
           421  5120000000 X                      SA2    TS=EQU                                                  DECL      911
                          0302000420 +            ZR     X2,EQUX     IF NO EQUIV STATEMENTS                      DECL      912
                                                                                                                 DECL      913
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL      914
                                                  SA1    CO.SNAP                                                 DECL      915
                                                  LX1    1RD                                                     DECL      916
                                                  PL     X1,EQUS0    IF DECLARATIVE SNAP NOT SELECTED            DECL      917
                                                  PLINE  (=C=  (TRANSLATED EQUIV STATEMENTS.)=),4,2              FEAT126A 1002
                                         EQU.0    DUMPT  (TS.EQU)                                                DECL      919
                                         EQUS0    BSS    0                                                       DECL      920
                                         SNAP=D   ENDIF                                                          DECL      921
                                                                                                                 DECL      922
                                                                                                                 DECL      923
                                        **        PHASE (0) OF EQUIVALENCE DIGESTION.                            DECL      924
                                        *         A.     COPY (TA.NAM) ENTRY.                                    DECL      925
                                        *         B.     SAVE ARRAY LENGTH (FROM TP.DIM).                        DECL      926
                                        *         C.     REDUCE SUBSCRIPTS TO A SINGLE OFFSET (IN WORDS).        DECL      927
                                        *         D.     COLLAPSE TABLE TO 2-WORD ENTRIES.                       DECL      928
                                                                                                                 DECL      929
           422  43673                             MX6    -1                                                      DECL      930
                     5110000000 X                 ADDWD  TS.EQU      MARK END OF TABLE                           DECL      931
           424  5150000000 X                      SA5    TP.DIM                                                  DECL      932
                          5140000000 X            SA4    TA.NAM                                                  DECL      933
           425  5130000000 X                      SA3    TS.SYM                                                  DECL      934
                          43044                   MX0    -L.DIMLG                                                DECL      935
                               63410              SB4    X1          (B4) = FWA EQUIV SOURCE TABLE               DECL      936
           426  63350                             SB3    X5          (B3) = FWA DIMENSION PARAMETERS             DECL      937
                     63640                        SB6    X4          (B6) = FWA ADDRESS/BLOCK TABLE              DECL      938
                          53510                   SA5    X1          (A5) _ CURRENT FETCH (FROM TS.EQU)          DECL      939
                               63230              SB2    X3          (B2) = FWA SYMBOL/TAG TABLE                 DECL      940
           427  55751                             =A7    A5-1        DUMMY STORE                                 DECL      941
                     0400000431 +                 EQ     EQU22       BEGIN LOOP..                                DECL      942
                                                                                                                 DECL      943
           430  26206                    EQU20    UX2    X6                                                      DECL      944
                     12772                        BX7    X7+X2                                                   DECL      945
                          54701                   =A7    A0+1                                                    DECL      946
                                                                                                                 DECL      947
           431  0335000476 +             EQU22    MI     X5,EQU28    IF TABLE EXHAUSTED                          DECL      948
                          43102                   MX1    2                                                       FCC1946    56
                               15551              BX5    -X1*X5                                                  FCC1946    57
           432  53152                             SA1    X5+B2       FETCH TAG ENTRY                             DECL      949
                     7160000400                   SX6    M.ARY       SET EQUDIM TO NON ZERO IF VARIABLE HAS BEEN DECL      950
                               11661              BX6    X6*X1       DIMENSIONED                                 DECL      951
           433  5160000474 +                      SA6    EQUDIM                                                  DECL      952
                          55211                   =A2    A1-1        PUT CURRENT VARIABLE NAME IN FILL.          DECL      953
                               10622              BX6    X2                                                      DECL      954
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    20
                                                                      EQU 
  
           434  5160000000 X                      SA6    FILL.       STORE VARIABLE NAME                         DECL      955
                          20144                   LX1    -P.PNT                                                  DECL      956
                               43357              MX3    -L.PNT                                                  DECL      957
           435  15213                             BX2    -X3*X1      ISOLATE TP.DIM ORDINAL                      DECL      958
                     53223                        SA2    X2+B3       FETCH DIM LENGTH WORD                       DECL      959
                          20125                   SBIT   X1,LONG/PNT-1                                           DECL      960
                               11702              BX7    X0*X2       ISOLATE ARRAY SIZE                          DECL      961
           436  21173                             AX1    -1                                                      DECL      962
                     11617                        BX6    X1*X7                                                   DECL      963
                          36776                   IX7    X7+X6       DOUBLE SIZE IF *LONG*                       DECL      964
                               54321              SA3    A2+B1                                                   DECL      965
           437  21266                             AX2    P.NDIM      = NUMBER OF DIMENSIONS                      DECL      966
                     10655                        BX6    X5                                                      FCC1946    58
                          43014                   UNPK   X6,B7,X5,X0                                             FCC1946    59
                               21706              AX7    P.DIMLG-P.EQHI                                          DECL      968
           441  43060                             PACK   X7,B7,X5,X0  MERGE ROOT-FLAG W/ LENGTH (IN EGHI FIELD)  FCC1946    60
                               43044              MX0    -L.DIMLG                                                FCC1946    61
                                                                                                                 DECL      970
                                                                                                                 DECL      971
                                        **        COMPUTE EFFECTIVE SUBSCRIPT --                                 DECL      972
                                        *         ENTRY  (X6) = TAG ORDINAL                                      DECL      973
                                        *                (X2) = NUMBER OF DIMS                 (I)               DECL      974
                                        *                (X1) = 0 IF SINGLE,  -0 IF LONG.                        DECL      975
                                        *                A3, (X3) = FIRST DIM WORD               (S(I))          DECL      976
                                        *         METHOD --                                                      DECL      977
                                        *         I=1                LOOP INDEX                                  DECL      978
                                        *         PI=1               PARTIAL PRODUCT                             DECL      979
                                        *         SIGMA=0            ACCUMULATOR                                 DECL      980
                                        * ALPHA   R1 = (S(I))-1                                                  DECL      981
                                        *         SIGMA = SIGMA+R1*PI      ADD CONTRIBUTION FOR THIS SUB         DECL      982
                                        *         PI = PI*D(I)                                                   DECL      983
                                        *         I=I+1                                                          DECL      984
                                        *         IF I@N, _ALPHA     IF MORE SUBS TO DO                          DECL      985
                                        *         BIAS = SIGMA*2**((P.LONG))                                     DECL      986
                                                                                                                 DECL      987
           443  63520                             SB5    X2          B5 # N     (NUMBER OF DIMS)                 DECL      988
                     21601                        AX6    1                                                       DECL      989
                          53266                   SA2    X6+B6       FETCH (TA.NAM)                              DECL      990
                               10622              BX6    X2                                                      DECL      991
           444  54671                             =A6    A7+1        1ST WORD OF XFORMED TABLE (TA.NAM)          DECL      992
                     54060                        SA0    A6                                                      DECL      993
                          5120001236 +            SA2    =1.P0       X2 # PI   = 1                               DECL      994
           445  11112                             BX1    X1*X2                                                   DECL      995
                     21336                        AX3    P.DIM                                                   DECL      996
                          13666                   BX6    0           SIGMA = 0                                   DECL      997
                               30212              FX2    X1+X2                                                   DECL      998
                                                                                                                 DECL      999
           446  54551                    EQU25    =A5    A5+1                                                    DECL     1000
                     43414                        MX4    12           UX1  B7,X5                                 FCC1946    62
                          11145                   BX1    X4*X5                                                   FCC1946    63
                               20114              LX1    12                                                      FCC1946    64
           447  63710                             SB7    X1                                                      FCC1946    65
                     15154                        BX1    -X4*X5                                                  FCC1946    66
                          27575                   PX5    X5,B7                                                   FCC1946    67
           450  0570000470 +                      NZ     B7,EQU29    IF NO MORE SUBSCRIPTS                       DECL     1002
                          10466                   BX4    X6                                                      DECL     1003
                               10611              BX6    X1                                                      DECL     1004
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    21
                                                                      EQU 
  
           451  5160000475 +                      SA6    EQUDIM+1                                                DECL     1005
                          10644                   BX6    X4                                                      DECL     1006
           452  0301000457 +                      ZR     X1,EQU26    IF NOT SUBSCRIPTED                          DECL     1007
                          76110                   =X1    1           SUBTRACT BIAS OF ONE                        DECL     1008
                               37551              IX5    X5-X1                                                   DECL     1009
           453  5110000474 +                      SA1    EQUDIM                                                  DECL     1010
                          0311000457 +            NZ     X1,EQU26    IF DIMENSIONED                              DECL     1011
           454  74500                             SX5    A0          SAVE A0                                     DECL     1012
                     6170000000 X                 FATAL  E.EQ13      SUBSCRIPT ON NON DIMENSIONED VARIABLE       DECL     1013
           456  53050                             SA0    X5                                                      DECL     1014
                     13666                        BX6    X6-X6                                                   DECL     1015
                          0400000463 +            EQ     EQU27       SKIP REST OF SUBSCRIPTS                     DECL     1016
                                                                                                                 DECL     1017
           457                           EQU26    BSS    0                                                       DECL     1018
           457  42152                             DX1    X5*X2       R1 = (S(I)-1)*PI                            DECL     1019
                     15430                        BX4    -X0*X3      ISOLATE DIM   = D(I)                        DECL     1020
                          67551                   =B5    B5-1        I = I-1                                     DECL     1021
                               27404              PX4                                                            DECL     1022
           460  30661                             FX6    X6+X1       SIGMA = SIGMA+R1                            DECL     1023
                     42224                        DX2    X2*X4       PI = PI*D(I)                                DECL     1024
                          21336                   AX3    P.DIM                                                   DECL     1025
           461  0750000463 +                      MI     B5,EQU27    IF NO MORE DIMS                             DECL     1026
                          0313000446 +            NZ     X3,EQU25                                                DECL     1027
           462  54331                             =A3    A3+1        FETCH NEXT DIM PAIR                         DECL     1028
                     0400000446 +                 EQ     EQU25                                                   DECL     1029
                                                                                                                 DECL     1030
           463  54551                    EQU27    =A5    A5+1        PASS OVER EXCESS SUBS                       DECL     1031
                     10155                        BX1    X5                                                      FCC1946    68
                          43414                   UNPK   X1,B7,X2,X4                                             FCC1946    69
           465  0470000463 +                      ZR     B7,EQU27    IF LAST SUB NOT YET FOUND                   DECL     1033
                                         EQU.XS   REG                                                            DECL     1034
                          74200                   SX2    A0          SAVE A0                                     DECL     1035
           466  6170000000 X                      WARN   E.EQ14      EXCESS SUBSCRIPTS IGNORED                   DECL     1036
           467  53020                             SA0    X2                                                      DECL     1037
                     43044                        MX0    -L.DIMLG    RESTORE X0 FROM WARN MACRO                  DECL     1038
                          0400000430 +            EQ     EQU20                                                   DECL     1039
                                                                                                                 DECL     1040
           470  0450000430 +             EQU29    ZR     B5,EQU20    IF NO MORE DIMENSIONS                       DECL     1041
                          5110000475 +            SA1    EQUDIM+1                                                DECL     1042
           471  0301000430 +                      ZR     X1,EQU20    IF NO SUBSCRIPT ON EQUIVALENCE              DECL     1043
                          74200                   SX2    A0          SAVE A0                                     DECL     1044
           472  6170000000 X                      WARN   E.EQ15      MISSING SUBSCRIPTS SET TO ONE               DECL     1045
           473  53020                             SA0    X2                                                      DECL     1046
                     43044                        MX0    -L.DIMLG    RESTORE X0 FROM WARN MACRO                  DECL     1047
                          0400000430 +            EQ     EQU20                                                   DECL     1048
                                                                                                                 DECL     1049
           474                     2     EQUDIM   BSS    2                                                       DECL     1050
                                                                                                                 DECL     1051
                                                                                                                 DECL     1052
                                        **        PHASE 2 -- PASS 1 OF GALLER / FISHER EQUIVALENCE ALGORITHM.    DECL     1053
                                        *         A.     MARK NEW END-OF-TABLE, AND RE-SET LENGTH.               DECL     1054
                                        *         B.     BEGIN.                                                  DECL     1055
                                                                                                                 DECL     1056
           476  43773                    EQU28    MX7    -1                                                      DECL     1057
                     54771                        =A7    A7+1        MARK END OF TABLE                           DECL     1058
                          65774                   SB7    A7-B4                                                   DECL     1059
                               76671              SHRINK TS=EQU,B7+1 RESULTANT LENGTH OF TABLE                   DECL     1060
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    22
                                                                      EQU 
  
                          56040                   SA0    B4          (A0) = FWA EQUIVALENCE STATEMENTS           DECL     1061
                               66211              =B2    2                                                       DECL     1062
           500  66500                             =B5                (B5) = LENGTH OF G/F INFO IN TABLE          DECL     1063
                     66400                        =B4                (B4) = POINTER TO EQUIV SOURCE INFO         DECL     1064
                                                                                                                 DECL     1065
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     1066
                                                  SA1    CO.SNAP                                                 DECL     1067
                                                  LX1    1RD                                                     DECL     1068
                                                  PL     X1,EQUS3    IF DECLARATIVE SNAP NOT SELECTED            DECL     1069
                                         EQU.3    DUMPT  (TS.EQU)                                                DECL     1070
                                         EQUS3    BSS    0                                                       DECL     1071
                                         SNAP=D   ENDIF                                                          DECL     1072
                                                                                                                 DECL     1073
                                                                                                                 DECL     1074
                                        **        HERE WE BEGIN TO ADD AN ITEM INTO THE G/F TABLE, WHICH IS      DECL     1075
                                        *                GROWING INTO THE SAME SPACE NOW OCCUPIED BY THE EQUIV   DECL     1076
                                        *                STATEMENT TABLE.                                        DECL     1077
                                                                                                                 DECL     1078
           501  54504                    EQU3     =A5    B4+A0                                                   DECL     1079
                     5140000000 X                 SA4    TS.SYM                                                  FCC1332     7
                               63340              SB3    X4          FWA OF SYMBOL TABLE                         FCC1332     8
           502  20522                             LX5    -P.TAG                                                  FCC1332     9
                     43052                        MX0    L.SYM                                                   FCC1946    70
                          63353                   SB3    X5+B3                                                   FCC1332    10
                               57431              SA4    B3-B1                                                   FCC1332    11
           503  11604                             BX6    X0*X4                                                   FCC1946    71
                     5160000000 X                 SA6    FILL.       PLACE IN FILL.                              FCC1332    13
                               20552              LX5    P.TAG                                                   FCC1332    14
           504  43044                             MX0    -L.EQUB                                                 DECL     1080
                     0335000563 +                 MI     X5,EQU5     IF END OF EQUIV. INPUT                      DECL     1081
                               54451              =A4    A5+1                                                    DECL     1082
           505  67302                             SB3    -B2                                                     DECL     1083
                     43214                        UNPK   X4,B6,X3,X2   (B6) = ROOT FLAG OF CURRENT               FCC1946    72
                          66442                   SB4    B4+B2                                                   DECL     1085
                                                                                                                 DECL     1086
           507  66332                    EQU32    SB3    B3+B2                                                   DECL     1087
                     54303                        SA3    B3+A0                                                   DECL     1088
                          0635000516 +            GE     B3,B5,EQU38 IF END OF G/F TABLE                         DECL     1089
           510  13235                             BX2    X3-X5                                                   DECL     1090
                     21252                        AX2    P.TAG                                                   DECL     1091
                          0312000507 +            NZ     X2,EQU32    IF NO MATCH IN G/F                          DECL     1092
           511  15440                             BX4    -X0*X4      ISOLATE SUBSCRIPT                           DECL     1093
                                                                                                                 DECL     1094
                                        **        CURRENT TAG IS FOUND TO BE ALREADY IN THE G/F TABLE.           DECL     1095
                                        *                CHAIN BACK UNTIL ITS ROOT IS FOUND, ADJUSTING SUBCRIPT  DECL     1096
                                        *                AS WE GO.                                               DECL     1097
                                                                                                                 DECL     1098
           512  54231                    EQU36    =A2    A3+1                                                    DECL     1099
                     43614                        UNPK   X2,B7,X5,X6   EXTRACT ROOT FLAG                         FCC1946    73
                          0473000522 +            EQ     B7,B3,EQU4  IF THIS IS A ROOT                           DECL     1101
           514  20344                             LX3    -L.RELADD                                               DECL     1102
                     66370                        SB3    B7                                                      DECL     1103
                          21344                   AX3    -L.RELADD   EXTEND SIGN                                 DECL     1104
                               36434              IX4    X3+X4                                                   DECL     1105
           515  54307                             SA3    B7+A0                                                   DECL     1106
                     0400000512 +                 EQ     EQU36                                                   DECL     1107
                                                                                                                 DECL     1108
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    23
                                                                      EQU 
  
                                        **        CURRENT TAG NOT YET IN G/F TABLE.  CREATE AN ENTRY FOR IT.     DECL     1109
                                                                                                                 DECL     1110
           516  11304                    EQU38    BX3    X0*X4       LENGTH                                      DECL     1111
                     66552                        SB5    B5+B2       INCREMENT LENGTH OF G/F TABLE.              DECL     1112
                          22605                   LX6    X5                                                      DECL     1113
                               10733              BX7    X3                                                      FCC1946    74
           517  43560                             PACK   X7,B3,X2,X5   HI = LEN, LO = 0, LINK = SELF.            FCC1946    75
                               54603              SA6    B3+A0                                                   DECL     1115
           521  54761                             =A7    A6+1                                                    DECL     1116
                     15440                        BX4    -X0*X4      ISOLATE SUBSCRIPT                           DECL     1117
                                                                                                                 DECL     1118
                                        **        CURRENT TAG IS NOW IN THE G/F TABLE, AND WE KNOW ITS DISTANCE  DECL     1119
                                        *                FROM ITS ROOT.   IF IT IS THE FIRST MEMBER OF A GROUP,  DECL     1120
                                        *                REMEMBER IT AND RETURN TO PROCESS THE NEXT ONE.         DECL     1121
                                        *                (B3) = G/F TABLE ORDINAL (T).                           DECL     1122
                                        *                (B6) = ROOT FLAG.                                       DECL     1123
                                        *                (X4) = SUBSCRIPT.                                       DECL     1124
                                                                                                                 DECL     1125
           522  0561000526 +             EQU4     NE     B6,B1,EQU42 IF NOT A NEW GROUP                          DECL     1126
                          10644                   BX6    X4                                                      FCC1946    76
                               43560              PACK   X6,B3,X4,X5                                             FCC1946    77
                          5160000000 X            SA6    EQUA                                                    DECL     1128
           525  0400000501 +                      EQ     EQU3                                                    DECL     1129
                                                                                                                 DECL     1130
                                        **        WHEN IT DOES NOT BEGIN A GROUP, LINK IT INTO THE G/F TABLE.    DECL     1131
                                        *                (B3) # T    G/F TABLE ORDINAL                           DECL     1132
                                        *                (X4) # D    SUBSCRIPT                                   DECL     1133
                                                                                                                 DECL     1134
           526  5120000000 X             EQU42    SA2    EQUA                                                    DECL     1135
                          10322                   BX3    X2                                                      FCC1946    78
                               43214              UNPK   X3,B6,X5,X2   B6 = TO                                   FCC1946    79
           530  73330                             SX3    X3                                                      FCC1946    80
                                        ,                            X3 = D0                                     DECL     1137
                     37534                        IX5    X3-X4       X5 = DIST = D0 - Y                          DECL     1138
                          0763000535 +            GT     B3,B6,EQU44 IF CURRENT OCCURS LATER THAN THIS ROOT      DECL     1139
           531  0436000636 +                      EQ     B3,B6,EQU81 IF CURRENT ALREADY LINKED TO THIS ROOT      DECL     1140
                                                                                                                 DECL     1141
                                        **        IF CURRENT OCCURS BEFORE ITS ROOT, SWITCH THEM SO TABLE        DECL     1142
                                        *                ALWAYS LINKS UPWARD.                                    DECL     1143
                                                                                                                 DECL     1144
                          66730                   SB7    B3          W = T                                       DECL     1145
                               66360              SB3    B6          T = T0                                      DECL     1146
           532  14555                             BX5    -X5         DIST = -DIST                                DECL     1147
                     66670                        SB6    B7          T0 = W                                      DECL     1148
                          10644                   BX6    X4                                                      FCC1946    81
                               43460              PACK   X6,B7,X3,X4   DO = Y                                    FCC1946    82
                          54620                   SA6    A2                                                      DECL     1150
                                                                                                                 DECL     1151
                                        **        BEFORE ADDING TO THE TREE, CHECK FOR CONSISTENCY.              DECL     1152
                                        *         NOTE   R(T) = ( BLOCK(T), RELADD(T) )                          DECL     1153
                                                                                                                 DECL     1154
           535  54303                    EQU44    SA3    B3+A0                                                   DECL     1155
                     43422                        MX4    L.TAG                                                   DECL     1156
                          15134                   BX1    -X4*X3      R(T)                                        DECL     1157
                               54206              SA2    B6+A0       B6 = (T0)                                   DECL     1158
           536  15624                             BX6    -X4*X2      X6= R(T0)                                   FCC1573X    9
                     0311000540 +                 NZ     X1,EQU46    IF ELEMENT HAS AN ADDRESS                   FCC1573X   10
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    24
                                                                      EQU 
  
           537  0316000650 +                      NZ     X6,EQU86    IF ITS ROOT HAD AN ADDRESS                  FCC1573X   11
                          0400000546 +            EQ     EQU48                                                   FCC1573X   12
                                                                                                                 DECL     1160
                                        **        CURRENT ELEMENT HAS AN ADDRESS -- CHECK ITS ROOT.              DECL     1161
                                                                                                                 DECL     1162
           540  0316000643 +             EQU46    NZ     X6,EQU84    IF ITS ROOT HAD AN ADDRESS                  FCC1573X   13
                                                                                                                 DECL     1165
                                        **        ROOT HAS NO ADDRESS.                                           DECL     1166
                                        *                SET R(T0) = R(T) - DIST                                 DECL     1167
                                                                                                                 DECL     1168
                          43044                   MX0    -L.RELADD                                               DECL     1169
                               11601              BX6    X0*X1       X6 = BLOCK (T)                              DECL     1170
           541  20144                             LX1    -L.RELADD                                               DECL     1171
                     21144                        AX1    -L.RELADD   EXTEND SIGN                                 DECL     1172
                          37715                   IX7    X1-X5       = R(T) - DIST                               DECL     1173
           542  0337000654 +                      MI     X7,EQU87    IF RA(T) - DIST <0                          FCC1573X   14
                          5012000001              SA1    A2+1        T0                                          FCCA475     7
           543  20144                             LX1    -L.RELADD                                               FCCA475     8
                     21144                        AX1    -L.RELADD                                               FCCA475     9
                          37171                   IX1    X7-X1       X1 = D-LOTO                                 FCCA475    10
           544  0331000657 +                      MI     X1,EQU88    IF RA(T0) < 0                               FCCA475    11
                                                                                                                 FCC1573X   15
           545  15170                    EQU47    BX1    -X0*X7      CLEAR SIGN EXTENSION                        FCC1573X   16
                     36726                        IX7    X2+X6                                                   DECL     1175
                          12671                   BX6    X7+X1                                                   DECL     1176
                               54620              SA6    A2          RESET R(T0) = R(T) + DIST                   DECL     1177
                                                                                                                 DECL     1178
                                                                                                                 DECL     1179
                                        **        ADD ELEMENT TO PROPER TREE.                                    DECL     1180
                                        *         SET    R(T) = DIST                                             DECL     1181
                                        *                S(T) = T0                                               DECL     1182
                                        *                HI(T0) = MAX (HI(T0), HI(T)+DIST)                       DECL     1183
                                        *                LO(T0) = MAX (LO(T0), LO(T)-DIST)                       DECL     1184
                                                                                                                 DECL     1185
                                        *         ENTRY  (B3) = T                                                DECL     1186
                                        *                (B6) = T0                                               DECL     1187
                                        *                (X3) = CURRENT (T)                                      DECL     1188
                                        *                (X4) = MX4 L.TAG                                        DECL     1189
                                        *                (X5) = DIST                                             DECL     1190
                                        *                (A2) _ T0                                               DECL     1191
                                        *                (A3) _ T                                                DECL     1192
                                                                                                                 DECL     1193
           546  11143                    EQU48    BX1    X4*X3       ISOLATE TAG                                 DECL     1194
                     54331                        =A3    A3+1        = T  (S, HI, LO)                            DECL     1195
                          43444                   MX4    -L.EQLO                                                 DECL     1196
                               54221              =A2    A2+1        = T0 (S, HI, LO)                            DECL     1197
           547  15054                             BX0    -X4*X5                                                  DECL     1198
                     6170000044                   SB7    60-L.EQLO                                               DECL     1199
                               10733              BX7    X3                                                      FCC1946    83
           550  43660                             PACK   X7,B6,X4,X6   LINK(T) = TO                              FCC1946    84
                               36601              IX6    X0+X1         R(T) = DIST                               FCC1946    85
           552  55631                             =A6    A3-1        RESET T (TAG, BLOCK, R)                     DECL     1202
                                                                                                                 DECL     1203
                     20344                        LX3    -L.EQLO     POSITION SIGN BITS OF (EQLO) FIELDS         DECL     1204
                          20244                   LX2    -L.EQLO                                                 DECL     1205
                               54730              SA7    A3          RESET T (LINK, HI, LO)                      DECL     1206
           553  23073                             AX0    X3,B7                                                   DECL     1207
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    25
                                                                      EQU 
  
                     37105                        IX1    X0-X5       = LO(T) - DIST                              DECL     1208
                          23772                   AX7    X2,B7                                                   DECL     1209
                               37671              MX6    X7+X1       X6 = MAX ( LO(T0), LO(T)-DIST )             DECL     1210
                                                                                                                 DECL     1211
           555  20344                             LX3    -L.EQHI     POSITION SIGN BITS OF (EQHI) FIELDS         DECL     1212
                                                  IFNE   TEST,,1     (X6) SHOULD NEVER BE NEGATIVE               DECL     1213
                                                  MI     X6,EQU99S                                               DECL     1214
                     20244                        LX2    -L.EQHI                                                 DECL     1215
                          23373                   AX3    B7                                                      DECL     1216
                               36035              IX0    X3+X5       = HI(T) + DIST                              DECL     1217
           556  23772                             AX7    X2,B7                                                   DECL     1218
                     10166                        BX1    X6                                                      FCC1946    86
                          43560                   PACK   X1,B6,X3,X5                                             FCC1946    87
                     37370                        MX3    X7+X0       X3 = MAX ( HI(T0), HI(T)+DIST )             DECL     1220
                                                  IFNE   TEST,,1     (X3) SHOULD NEVER BE NEGATIVE               DECL     1221
                                                  MI     X3,EQU99S                                               DECL     1222
                          20330                   LX3    P.EQHI                                                  DECL     1223
                                                                                                                 DECL     1224
                               12713              BX7    X1+X3                                                   DECL     1225
           562  54720                             SA7    A2          RESET  (T) (S, HI, LO)                      DECL     1226
                     0400000501 +                 EQ     EQU3                                                    DECL     1227
                                                                                                                 DECL     1228
           563                           EQU5     BSS    0                                                       DECL     1229
           563  76650                             SHRINK TS=EQU,B5                                               FCC0813   163
                                                                                                                 DECL     1232
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     1233
                                                  SA1    CO.SNAP                                                 DECL     1234
                                                  LX1    1RD                                                     DECL     1235
                                                  PL     X1,EQUS5    IF DECLARATIVE SNAP NOT SELECTED            DECL     1236
                                         EQU.5    DUMPT  (TS.EQU)                                                DECL     1237
                                         EQUS5    BSS    0                                                       DECL     1238
                                         SNAP=D   ENDIF                                                          DECL     1239
                                                                                                                 DECL     1240
                                                                                                                 DECL     1241
                                        **        PHASE 3 -- GALLER / FISHER ADDRESS ASSIGNMENT.                 DECL     1242
                                        *                WE NOW DO G/F ADDRESS ASSIGNMENT, RELATIVE TO           DECL     1243
                                        *         A (MYTHICAL) BLOCK.  THE *END* PROCESSOR WILL RELOCATE OUR     DECL     1244
                                        *         ADDRESSES TO THE ACTUAL LOCAL-VARIABLE BLOCK.  VARIABLES IN    DECL     1245
                                        *         COMMON, OF COURSE, ARE COMPLETELY ASSIGNED HERE.  COMMON BLOCK DECL     1246
                                        *         LENGTHS MAY HAVE TO BE EXTENDED.                               DECL     1247
                                        *         VARIABLES WHICH ARE IN COMMON NOW, BECAUSE OF EQUIVALENCING,   DECL     1248
                                        *         MUST BE SO MARKED IN THE SYMBOL TABLE.                         DECL     1249
                                                                                                                 DECL     1250
                                        *         ENTRY  (B5) = LENGTH OF (TS=EQU)                               DECL     1251
                                        *                (B2) = 2                                                DECL     1252
                                        *                (A0) = FWA (TS.EQU)                                     DECL     1253
                                                                                                                 DECL     1254
           564  5110000000 X                      SA1    TA.NAM                                                  DECL     1255
                          5120000000 X            SA2    TS.SYM                                                  DECL     1256
           565  13555                             BX5    0           X5 = LOCAL EQUIV-BLOCK LENGTH               DECL     1257
                     66400                        =B4    0                                                       DECL     1258
                          43022                   MX0    L.TAG                                                   DECL     1259
                               63610              SB6    X1          B6 = FWA (TA.NAM)                           DECL     1260
           566  63720                             =B7    X2          B7 = FWA (TS.SYM)                           DECL     1261
                     0400000570 +                 EQ     EQU54       BEGIN..                                     DECL     1262
                                                                                                                 DECL     1263
                                                                                                                 DECL     1264
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    26
                                                                      EQU 
  
                                        *         LOOP FOLDS TO HERE --                                          DECL     1265
                                        *         ENTRY  (X6) = NEW (TA.NAM) ENTRY                               DECL     1266
                                        *                (X2) = TAG ORDINAL, BITS (59-42).                       DECL     1267
                                                                                                                 DECL     1268
           567  21253                    EQU52    AX2    P.TAG+1     = 1/2 * (TAG ORDINAL)                       DECL     1269
                     66442                        SB4    B4+B2       I=I+2                                       DECL     1270
                          67552                   SB5    B5-B2                                                   DECL     1271
                               53626              SA6    X2+B6       SET NEW ADDRESS                             DECL     1272
                                                                                                                 DECL     1273
           570  0450000616 +             EQU54    ZR     B5,EQU68    IF END OF TABLE                             DECL     1274
                          54204                   SA2    B4+A0                                                   DECL     1275
                               54421              =A4    A2+1                                                    DECL     1276
           571  10344                             BX3    X4                                                      FCC1946    88
                     43114                        UNPK   X3,B3,X7,X1   B3 = LINK(I)                              FCC1946    89
                          15120                   BX1    -X0*X2      = R(I)                                      DECL     1278
           573  0534000610 +                      NE     B3,B4,EQU60  IF NO ROOT                                 DECL     1279
                          13777                   BX7    0                                                       DECL     1280
                               54740              SA7    A4          ERASE LINK WORD                             DECL     1281
           574  0301000604 +                      ZR     X1,EQU58    IF LOCAL (NOT IN COMMON) CLASS              DECL     1282
                                                                                                                 DECL     1283
                                        **        ROOT OF A NON-LOCAL (COMMON) CLASS.                            DECL     1284
                                        *         SET    TA.NAM(ADDRESS) = R(I)                                  DECL     1285
                                        *                TS.BLK(BLOCK LENGTH) = MAX ( (BLOCK LENGTH), R(I)+HI(I) DECL     1286
                                        *                TS.SYM(CLASS) = + M.DEF + M.COMM                        DECL     1287
                                                                                                                 DECL     1288
                                        *                            IF ( (REL(I)-LO(I)) .LT. 0) THEN N.F.G.     DECL     1289
                          5110000000 X            SA1    TS.BLK                                                  DECL     1290
           575  20444                             LX4    -P.EQHI                                                 DECL     1291
                     10322                        BX3    X2                                                      DECL     1292
                          63311                   =B3    X1+1                                                    DECL     1293
                               20344              LX3    -P.BLOCK                                                DECL     1294
           576  53333                             SA3    X3+B3       FETCH (TS.BLK) ENTRY                        DECL     1295
                     10622                        BX6    X2          ADDR = R(I)                                 DECL     1296
                          43744                   MX7    -L.RELADD                                               DECL     1297
                               36124              IX1    X2+X4                                                   DECL     1298
           577  15417                             BX4    -X7*X1      ISOLATE R(I) + HI(I)                        DECL     1299
                     10133                        BX1    X3                                                      DECL     1300
                          15337                   BX3    -X7*X3      ISOLATE BLOCK LENGTH                        DECL     1301
                               43770              MX7    -L.LVLFLD                                               DECL     1302
           600  20746                             LX7    P.LVLFLD                                                DECL     1303
                     15117                        BX1    -X7*X1      ISOLATE LEVEL DOPE                          DECL     1304
                          43744                   MX7    -L.BLEN                                                 DECL     1305
                               15337              BX3    -X7*X3      ISOLATE BLOCK LENGTH                        DECL     1306
           601  37734                             MX7    X3+X4       = MAX ( (BLK LEN), (R+HI) )                 DECL     1307
                     12771                        BX7    X7+X1       PUT LEVEL DOPE BACK                         DECL     1308
                          54730                   SA7    A3                                                      DECL     1309
           603  7170016010                        SX7    M.DEF+M.COMM+M.EQUIV+M.VAR                              FCC1247    10
                          0400000614 +            EQ     EQU66       CONTINUE.. TO SET (TS.SYM)                  DECL     1311
                                                                                                                 DECL     1312
                                        **        ROOT OF A LOCAL (NON-COMMON) CLASS.                            DECL     1313
                                        *         INCREMENT LOCAL-EQUIVALENCE-SIZE --                            DECL     1314
                                        *                (X5) = (X5) + HI(I) + LO(I)                             DECL     1315
                                        *         SET ADDRESS --                                                 DECL     1316
                                        *                BLOCK = 1S17                                            DECL     1317
                                        *                RELADD = LO(I) + (X5)                                   DECL     1318
                                                                                                                 DECL     1319
                                  51     A        DECMIC P.BLOCK+17                                              DECL     1320
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    27
                                                                      EQU 
  
           604  43744                    EQU58    MX7    -L.EQLO                                                 DECL     1321
                     11202                        BX2    X0*X2       ISOLATE TAG ORDINAL                         DECL     1322
                          5110001237 +            SA1    =1S"A"      FAKE BLOCK NUMBER OF 1S17                   DECL     1323
           605  15647                             BX6    -X7*X4      ISOLATE LO(I)                               DECL     1324
                     21430                        AX4    P.EQHI                                                  DECL     1325
                          15347                   BX3    -X7*X4      ISOLATE HI(I)                               DECL     1326
                               36565              IX5    X6+X5                                                   DECL     1327
           606  12151                             BX1    X5+X1       = 18/ 0,    18/ 1S17,  24/ ((X5)+LO(I))     DECL     1328
                     36553                        IX5    X5+X3                                                   DECL     1329
                          12621                   BX6    X2+X1       = 18/ TAG,  18/ 1S17,  24/ ((X5)+LO(I))     DECL     1330
                               54620              SA6    A2                                                      DECL     1331
           607  7170012010                        SX7    M.DEF+M.EQUIV+M.VAR                                     FCC1247    11
                          0400000614 +            EQ     EQU66                                                   DECL     1333
                                                                                                                 DECL     1334
                                        **        NON-ROOT MEMBERS --                                            DECL     1335
                                        *         SET    TA.NAM(ADDRESS) = R(I) = R(ROOT) + R(I)                 DECL     1336
                                        *                TS.SYM(CLASS) = + M.DEF + M.EQUIV                       DECL     1337
                                                                                                                 DECL     1338
           610                           EQU60    BSS    0                                                       DECL     1339
           610  10322                             BX3    X2                                                      DECL     1340
                     54403                        SA4    B3+A0                                                   DECL     1341
                          10644                   BX6    X4                                                      FCC1790X    5
                               20344              LX3    -L.RELADD                                               DECL     1343
           611  15140                             BX1    -X0*X4      ISOLATE (R(ROOT))                           DECL     1344
                     21344                        AX3    -L.RELADD                                               DECL     1345
                          11702                   BX7    X0*X2                                                   DECL     1346
                               20636              SBIT   X6,BLOCK/COMM-17  FAKE BLOCK NUMBER TO P.COMM           DECL     1347
           612  36131                             IX1    X3+X1       = R(ROOT) + R(I)                            DECL     1348
                     7140004000                   SX4    M.COMM                                                  DECL     1349
                               15346              BX3    -X6*X4                                                  FCC1790X    6
           613  36671                             IX6    X7+X1                                                   DECL     1351
                     7273012010                   SX7    X3+M.DEF+M.EQUIV+M.VAR                                  FCC1247    12
                               54620              SA6    A2          RESET R(I)                                  DECL     1353
                                                                                                                 DECL     1354
           614                           EQU66    BSS    0           SET (M.COMM + M.DEF)                        DECL     1355
                                                                     (X7) = CLASS BITS                           DECL     1356
           614  20222                             LX2    -P.TAG                                                  DECL     1357
                     53127                        SA1    X2+B7       FETCH TAG TABLE ENTRY                       DECL     1358
                          20252                   LX2    P.TAG       RESTORE (X2)                                DECL     1359
                               12717              BX7    X1+X7                                                   DECL     1360
           615  54710                             SA7    A1                                                      DECL     1361
                     0400000567 +                 EQ     EQU52       LOOP..                                      DECL     1362
                                                                                                                 DECL     1363
           616                           EQU68    BSS    0           FINIS                                       DECL     1364
           616  10655                             BX6    X5                                                      DECL     1365
                     5160000000 X                 SA6    EQUA        SAVE (LOCAL-EQUIVALENCE-LENGTH) FOR *END*   DECL     1366
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     1367
                                                  SA1    CO.SNAP                                                 DECL     1368
                                                  LX1    1RD                                                     DECL     1369
                                                  PL     X1,EQUS7    IF DECLARATIVE SNAP NOT SELECTED            DECL     1370
                                         EQU.7    DUMPT  (TS.EQU)                                                DECL     1371
                                         EQUS7    BSS    0                                                       DECL     1372
                                         SNAP=D   ENDIF                                                          DECL     1373
                                                                                                                 DECL     1374
                                                                                                                 DECL     1375
                                        **        WHILE WE STILL HAVE THE EQUIVALENCE CLASSES REPRESENTED AS A   DECL     1376
                                        *         FOREST, WE SORT OUT THE  INTERACTION OF EQUIVALENCE AND LEVEL. DECL     1377
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    28
                                                                      EQU 
  
                                                                                                                 DECL     1378
           617  0100000663 +                      RJ     ELV         SPREAD LEVEL SPECS THROUGH EQUIV. CLASSES   DECL     1379
                                                                                                                 DECL     1380
                                                                                                                 DECL     1381
                                         SNAP=B   IFNE   TEST                                                    DECL     1382
                                                  SA3    CO.SNAP                                                 DECL     1383
                                                  LX3    1RB                                                     DECL     1384
                                                  PL     X3,EQU7S    IF BLOCK TABLE SNAP NOT SELECTED            DECL     1385
                                                  DUMPT  (TS.BLK)                                                DECL     1386
                                         EQU7S    BSS    0                                                       DECL     1387
                                         SNAP=B   ENDIF                                                          DECL     1388
                                                                                                                 DECL     1389
                                        **        PHASE 4 - TELL THE REST OF THE COMPILER ABOUT EQUIVALENCING.   DECL     1390
                                        *                REFORMAT (TP.EQU) INTO SOMETHING INTELLIGIBLE.          DECL     1391
                                        *                SEE TABLE DESCRIPTION OF (TP.EQU) FOR DETAILS.          DECL     1392
                                        *         MAINLY, WE HAVE TO THROW AWAY ALL THE ROOT CELLS, AND COLLAPSE DECL     1393
                                        *         THE TABLE TO ONE-WORD ENTRIES.                                 DECL     1394
                                                                                                                 DECL     1395
                                        *         ENTRY  (A0) = FWA (TS.EQU)                                     DECL     1396
                                        *                (B2) = 2                                                DECL     1397
                                                                                                                 DECL     1398
           620  5110000000 X                      SA1    TP=EQU                                                  DECL     1399
                          43060                   MX0    -L.BLOCK                                                DECL     1400
                               63510              SB5    X1                                                      DECL     1401
           621  67452                             SB4    B5-B2                                                   DECL     1402
                     66600                        =B6    0           (B6) WILL BE NEW LENGTH                     DECL     1403
                          20030                   LX0    P.BLOCK                                                 DECL     1404
           622  5120000662 +                      SA2    EQUB                                                    DECL     1405
                          64505                   SB5    A0+B5       (B5) = CURRENT LWA+1 OF TABLE               DECL     1406
                                                                                                                 DECL     1407
           623  54404                    EQU7     SA4    B4+A0       FETCH LAST TABLE ENTRY                      DECL     1408
                     0440000634 +                 ZR     B4,EQU78    IF TABLE EXHAUSTED                          DECL     1409
                               54341              =A3    A4+1                                                    DECL     1410
           624  67442                             SB4    B4-B2                                                   DECL     1411
                     10733                        BX7    X3                                                      FCC1946    90
                          43614                   UNPK   X7,B7,X5,X6                                             FCC1946    91
           626  0303000623 +                      ZR     X3,EQU7     IF ROOT, SKIP IT                            DECL     1413
                                                                                                                 DECL     1414
           627  54107                    EQU74    SA1    A0+B7       FETCH ROOT                                  DECL     1415
                     54311                        =A3    A1+1                                                    DECL     1416
                          10733                   BX7     X3                                                     FCC1946    92
                               43614              UNPK   X7,B7,X5,X6                                             FCC1946    93
           631  11504                             BX5    X0*X4       TRASH BLOCK NUMBER                          DECL     1418
                     0313000627 +                 NZ     X3,EQU74    IF NOT YET A REAL ROOT                      DECL     1419
                                                                                                                 DECL     1420
                               36557              IX5    X5+X7                                                   DECL     1421
           632  66661                             =B6    B6+1        COUNT NEW LENGTH                            DECL     1422
                     20122                        LX1    -P.TAG                                                  DECL     1423
                          15410                   BX4    -X0*X1      ISOLATE ROOT TAG-ORDINAL                    DECL     1424
                               36654              IX6    X5+X4                                                   DECL     1425
           633  57656                             SA6    B5-B6                                                   DECL     1426
                     0400000623 +                 EQ     EQU7        LOOP..                                      DECL     1427
                                                                                                                 DECL     1428
           634  76660                    EQU78    SX6    B6                                                      DECL     1429
                     77756                        SX7    B5-B6       NEW ORIGIN = OLD (LWA+1) - (NEW LENGTH)     DECL     1430
                          5160000000 X            SHRINK TP=EQU,X6                                               FCC0813   164
           635  5170000000 X                      SA7    TP.EQU                                                  DECL     1432
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    29
                                                                      EQU 
  
                                                                                                                 DECL     1433
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     1434
                                                  SA1    CO.SNAP                                                 DECL     1435
                                                  LX1    1RD                                                     DECL     1436
                                                  PL     X1,EQUS8    IF DECLARATIVE SNAP NOT SELECTED            DECL     1437
                                                  PLINE  (=C=  (FINAL EQUIV TABLE.)=),3,2                        FEAT126A 1003
                                         EQU.8    DUMPT  (TS.EQU)                                                DECL     1439
                                         EQUS8    BSS    0                                                       DECL     1440
                                         SNAP=D   ENDIF                                                          DECL     1441
                                                                                                                 DECL     1442
                          0400000420 +            EQ     EQUX        EXIT..                                      DECL     1443
                                                                                                                 DECL     1444
                                                                                                                 DECL     1445
                                        **        CHECK / PROCESS REDUNDANCY / CONTRADICTION ERRORS.             DECL     1446
                                                                                                                 DECL     1447
           636  0315000641 +             EQU81    NZ     X5,EQU82    IF CONTRADICTION                            DECL     1448
                          6170000000 X            WARN   E.EQ11      REDUNDANT SPECIFICATIONS                    DECL     1449
           640  0400000501 +                      EQ     EQU3                                                    DECL     1450
                                                                                                                 DECL     1451
           641  6170000000 X             EQU82    FATAL  E.EQ12      CONFLICTING SPECS.                          DECL     1452
           642  0400000501 +                      EQ     EQU3                                                    DECL     1453
                                                                                                                 DECL     1454
           643  37116                    EQU84    IX1    X1-X6                                                   FCC1332    15
                     37115                        IX1    X1-X5                                                   FCC1332    16
                          0311000646 +            NZ     X1,EQU85    IF CONTRADICTION                            DECL     1456
           644  6170000000 X                      WARN   E.EQ11      REDUNDANT SPECIFICATION                     DECL     1457
           645  0400000546 +                      EQ     EQU48                                                   DECL     1458
                                                                                                                 DECL     1459
           646  6170000000 X             EQU85    FATAL  E.EQ12      CONFLICTING SPECS.                          DECL     1460
           647  0400000546 +                      EQ     EQU48                                                   DECL     1461
                                                                                                                 DECL     1462
                                        **        CHECK/ PROCESS ILLLGAL COMMON BLOCK EXTENSION ERROR            FCC1573X   17
                                                                                                                 FCC1573X   18
                                        *         TEST ILLEGAL EXTENSION BY MEMBER                               FCC1573X   19
                                                                                                                 FCC1573X   20
           650  20644                    EQU86    LX6    -L.RELADD                                               FCC1573X   21
                     21644                        AX6    -L.RELADD   SIGN EXTEND RA(T0)                          FCC1573X   22
                          36765                   IX7    X6+X5       RA(T0) + DIST                               FCC1573X   23
           651  0327000546 +                      PL     X7,EQU48    IF RA(T0) + DIST > 0                        FCC1573X   24
                          14566                   BX5    -X6         DIST= -RA(T0)                               FCC1573X   25
           652  6170000000 X                      FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN    FCC1573X   26
           653  0400000546 +                      EQ     EQU48                                                   FCC1573X   27
                                                                                                                 FCC1573X   28
                                        *         ILLEGAL EXTENSION BY ROOT                                      FCC1573X   29
                                                                                                                 FCC1573X   30
           654  10511                    EQU87    BX5    X1          DIST = RA(T)                                FCC1573X   31
                                                                                                                 FCC1573X   32
                                        *         PLACE IN FILL. NAME OF ROOT                                    FCC1573X   33
                                                                                                                 FCC1573X   34
                     5110000000 X                 SA1    TS.SYM                                                  FCC1573X   35
                               63710              SB7    X1                                                      FCC1573X   36
           655  20222                             LX2    -P.TAG                                                  FCC1573X   37
                     63727                        SB7    X2+B7                                                   FCC1573X   38
                          57171                   SA1    B7-B1                                                   FCC1573X   39
                               10711              BX7    X1                                                      FCC1573X   40
           656  5170000000 X                      SA7    FILL.       PLACE IN FILL. FOR ROOT                     FCC1573X   41
           657  6170000000 X             EQU88    FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN    FCCA475    12
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    30
                                                                      EQU 
  
           660  20252                             LX2    P.TAG                                                   FCC1573X   43
                     13777                        BX7    0           RA(T0)= RA(T) - DIST = 0                    FCC1573X   44
                          43044                   MX0    -L.RELADD                                               FCC1573X   45
           661  0400000545 +                      EQ     EQU47                                                   FCC1573X   46
                                                                                                                 DECL     1466
                                         TEST     IFNE   TEST                                                    DECL     1467
                                         EQU99S   RJ     =XSVR                                                   DECL     1468
                                                  PLINE  (=C= NEGATIVE OFFSET IN EQUIVALENCE.=),4,2              FEAT126A 1004
                                                  RJ     =XDAR                                                   DECL     1470
                                                  EQ     E.ZA                                                    DECL     1471
                                         TEST     ENDIF                                                          DECL     1472
                                                                                                                 DECL     1473
           662  20000020000000000000     EQUB     VFD    L.EQU2/C.SYM,L.EQU1/C.SYM,*P/0                          DECL     1474
  
  
  
  
                                        **        ELV -  COORDINATE EQUIVALENCE AND LEVEL INFORMATION            DECL     1476
                                        *                IF ANY MEMBER OF AN EQUIVALENCE GROUP APPEARED IN A     DECL     1477
                                        *         LEVEL STATEMENT, ALL OTHER GROUP MEMBERS INHERIT THE LEVEL     DECL     1478
                                        *         NUMBER.  IF, ADDITIONALLY, ONE  OF THE MEMBERS APPEARED IN  A  DECL     1479
                                        *         COMMON STATEMENT, THE COMMON BLOCK INHERITS THE LEVEL NUMBER.  DECL     1480
                                        *                                                                        DECL     1481
                                        *         ENTRY  (TS.EQU) CONTAINS EQUIVALENCE GROUPS (END OF PHASE 3)   DECL     1482
                                        *                (A0) = FWA (TS.EQU)                                     DECL     1483
                                        *                (B2) = 2                                                DECL     1484
                                        *                (B7) = FWA (TS.SYM)                                     DECL     1485
                                        *         EXIT   (TS.SYM) CONTAINS SAME LEVEL INFO FOR ALL MEMBERS OF AN DECL     1486
                                        *                            EQUIV. GROUP                                DECL     1487
                                        *                (TS.BLK)  CONTAINS LEVEL INFO IN THE ENTRY FOR THE      DECL     1488
                                        *                            BLOCK, IF ANY, CONTAINING THE EQUIV. GROUP  DECL     1489
                                                                                                                 DECL     1490
                                                                                                                 DECL     1491
           663  0400400663 +             ELV      SUBR   0                                                       DECL     1492
                                                                                                                 DECL     1493
                                        **        PHASE A -- CHECK LEVEL SPECIFICATIONS WITHIN EACH  EQUIVALENCE DECL     1494
                                        *                CLASS, MAKE SURE THE ROOT OF THE CLASS IS GIVEN LEVEL   DECL     1495
                                        *                SPECIFICATION BELONGING TO NONROOT(S).                  DECL     1496
                                                                                                                 DECL     1497
                                         SNAP=B   IFNE   TEST                                                    DECL     1498
                                                  SA3    CO.SNAP                                                 DECL     1499
                                                  LX3    1RB                                                     DECL     1500
                                                  PL     X3,ELV1S    IF BLOCK TABLE SNAP NOT SELECTED            DECL     1501
                                                  DUMPT  (TS.BLK)                                                DECL     1502
                                         ELV1S    BSS    0                                                       DECL     1503
                                         SNAP=B   ENDIF                                                          DECL     1504
                                                                                                                 DECL     1505
           664  5120000000 X                      SA2    TS=EQU                                                  DECL     1506
                          63520                   SB5    X2          (B5) = LENGTH OF (TS.EQU)                   DECL     1507
                               66400              =B4    0                                                       DECL     1508
                                                                                                                 DECL     1509
           665  0450000713 +             ELV1     ZR     B5,ELV5     IF END OF  TABLE,  GO ON TO PHASE B         DECL     1510
                          54104                   SA1    A0+B4                                                   DECL     1511
                               54411              =A4    A1+1                                                    DECL     1512
           666  0304000712 +                      ZR     X4,ELV4     IF ROOT, SKIP IT                            DECL     1513
                          20122                   LX1    -P.TAG                                                  DECL     1514
                               53317              SA3    X1+B7       FETCH TAG WORD                              DECL     1515
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    31
                                                                      EAX 
  
           667  20364                             SBIT   X3,LEV                                                  DECL     1516
                     0323000712 +                 PL     X3,ELV4     IF NO  LEVEL                                DECL     1517
                               10544              BX5    X4                                                      FCC1946    94
           670  43014                             UNPK   X5,B3,X2,X0   (B3) = LINK                               FCC1946    95
                     54203                        SA2    A0+B3       ROOT                                        DECL     1519
                          20222                   LX2    -P.TAG                                                  DECL     1520
                               53227              SA2    X2+B7       FETCH TAG WORD FOR  ROOT                    DECL     1521
           672  20264                             SBIT   X2,LEV                                                  DECL     1522
                     43072                        MX0    -L.LEVN                                                 DECL     1523
                          20337                   LX3    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER            DECL     1524
                               15330              BX3    -X0*X3      ISOLATE LEVEL FOR NONROOT                   DECL     1525
           673  0322000705 +                      PL     X2,ELV3     IF NO LEVEL FOR ROOT                        DECL     1526
                          20237                   LX2    P.LEV+1-P.LEVN                                          DECL     1527
                               15220              BX2    -X0*X2      ISOLATE LEVEL FOR ROOT                      DECL     1528
           674  37023                             IX0    X2-X3                                                   DECL     1529
                     0300000712 +                 ZR     X0,ELV4     IF LEVEL SAME FOR ROOT AND NONROOT          DECL     1530
                                                                                                                 DECL     1531
                                        *         CONFLICT EXISTS REGARDING LEVEL INFO FOR THIS EQUIV. GROUP     DECL     1532
                                                                                                                 DECL     1533
                               20122              LX1    -P.BLOCK+P.TAG                                          DECL     1534
           675  63310                             SB3    X1          (B3) = BLOCK NUMBER                         DECL     1535
                     0630000702 +                 PL     B3,ELV2     IF COMMON BLOCK                             DECL     1536
                                                                                                                 DECL     1537
                                        *         EQUIV. GROUP IS NOT IN COMMON -- OUTPUT DIAGNOSTIC             DECL     1538
                                                                                                                 DECL     1539
                               55531              =A5    A3-1        FETCH SYMBOL FOR NONROOT                    DECL     1540
           676  43052                             MX0    L.SYM                                                   DECL     1541
                     11605                        BX6    X0*X5                                                   DECL     1542
                          5160000000 X            SA6    FILL.                                                   DECL     1543
           677  76270                             SX2    B7          SAVE B7                                     DECL     1544
                     6170000000 X                 FATAL  =XE.LV10                                                DECL     1545
           701  63720                             SB7    X2          RESTORE B7                                  DECL     1546
                     0400000712 +                 EQ     ELV4                                                    DECL     1547
                                                                                                                 DECL     1548
                                        *         EQUIV. GROUP IS IN COMMON -- SET CONFLICT BIT IN TS.BLK ENTRY  DECL     1549
                                                                                                                 DECL     1550
           702  43001                    ELV2     MX0    1                                                       DECL     1551
                     5110000000 X                 SA1    TS.BLK                                                  DECL     1552
                               20052              LX0    P.CNFL+1                                                DECL     1553
           703  63611                             SB6    X1+B1       (B6) = FWA BLOCK TABLE                      DECL     1554
                     56263                        SA2    B6+B3       FETCH TS.BLK ENTRY                          DECL     1555
                          12602                   BX6    X0+X2       SET CNFL BIT                                DECL     1556
                               54620              SA6    A2                                                      DECL     1557
           704  0400000712 +                      EQ     ELV4                                                    DECL     1558
                                                                                                                 DECL     1559
                                        *         NO LEVEL INFO FOR ROOT -- SET LEVEL INFO TO AGREE WITH NONROOT DECL     1560
                                                                                                                 DECL     1561
           705  20210                    ELV3     LX2    P.LEV+1     RESTORE X2 (ROOT TAG-WORD)                  DECL     1562
                     7100000200                   SX0    M.LEV                                                   DECL     1563
                               20345              LX3    P.LEVN      LEVEL VALUE INTO POSITION                   DECL     1564
           706  12220                             BX2    X2+X0       SET LEV BIT                                 DECL     1565
                     12623                        BX6    X2+X3       SET LEVEL NUMBER                            DECL     1566
                          54620                   SA6    A2          STORE TAG WORD                              DECL     1567
                                                                                                                 DECL     1568
                                        *         IF THIS EQUIV. CLASS IN COMMON, SET DEFAULT BIT IN TS.BLK WORD DECL     1569
                                                                                                                 DECL     1570
                               20122              LX1    -P.BLOCK+P.TAG                                          DECL     1571
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    32
                                                                      EAX 
  
           707  63310                             SB3    X1          (B3) = BLOCK NUMBER                         DECL     1572
                     0730000712 +                 MI     B3,ELV4     IF NOT COMMON                               DECL     1573
           710  5110000000 X                      SA1    TS.BLK                                                  DECL     1574
                          43001                   MX0    1                                                       DECL     1575
                               20051              LX0    P.DFLT+1                                                DECL     1576
           711  63611                             SB6    X1+B1       (B6) = FWA BLOCK TABLE                      DECL     1577
                     56263                        SA2    B6+B3       FETCH TS.BLK ENTRY                          DECL     1578
                          12602                   BX6    X0+X2       SET DEFAULT BIT                             DECL     1579
                               54620              SA6    A2                                                      DECL     1580
                                                                                                                 DECL     1581
           712  66442                    ELV4     SB4    B4+B2                                                   DECL     1582
                     67552                        SB5    B5-B2                                                   DECL     1583
                          0400000665 +            EQ     ELV1                                                    DECL     1584
                                                                                                                 DECL     1585
                                                                                                                 DECL     1586
                                        **        PHASE B -- CHECK LEVEL SPECIFICATIONS WITHIN EACH EQUIVALENCE  DECL     1587
                                        *                CLASS, MAKE SURE ALL NONROOTS OF EACH CLASS HAVE THE    DECL     1588
                                        *                LEVEL SPECIFICATION BELONGING TO ROOT.                  DECL     1589
                                                                                                                 DECL     1590
                                                                                                                 DECL     1591
           713  5120000000 X             ELV5     SA2    TS=EQU                                                  DECL     1592
                          63520                   SB5    X2          (B5) = LENGTH OF (TS.EQU)                   DECL     1593
                               66400              =B4    0                                                       DECL     1594
                                                                                                                 DECL     1595
                                         SNAP=B   IFNE   TEST                                                    DECL     1596
                                                  SA3    CO.SNAP                                                 DECL     1597
                                                  LX3    1RB                                                     DECL     1598
                                                  PL     X3,ELV5S    IF BLOCK TABLE SNAP NOT SELECTED            DECL     1599
                                                  DUMPT  (TS.BLK)                                                DECL     1600
                                         ELV5S    BSS    0                                                       DECL     1601
                                         SNAP=B   ENDIF                                                          DECL     1602
                                                                                                                 DECL     1603
           714  0450000663 +             ELV55    ZR     B5,ELVX     IF END OF TABLE, EXIT..                     DECL     1604
                                                                                                                 DECL     1605
                          54104                   SA1    A0+B4                                                   DECL     1606
                               54411              =A4    A1+1                                                    DECL     1607
           715  20122                             LX1    -P.TAG                                                  DECL     1608
                     53317                        SA3    X1+B7       FETCH TAG WORD                              DECL     1609
                          20364                   SBIT   X3,LEV                                                  DECL     1610
           716  0304000720 +                      ZR     X4,ELV6     IF ROOT                                     DECL     1611
                          0333000750 +            MI     X3,ELV9     IF LEVEL, SKIP IT                           DECL     1612
           717  0400000737 +                      EQ     ELV8                                                    DECL     1613
                                                                                                                 DECL     1614
                                        *         ROOT OF CLASS                                                  DECL     1615
                                                                                                                 DECL     1616
           720  0323000750 +             ELV6     PL     X3,ELV9     IF NO LEVEL FOR ROOT, SKIP IT               DECL     1617
                          20122                   LX1    -P.BLOCK+P.TAG                                          DECL     1618
                               63310              SB3    X1          (B3) = BLOCK NUMBER                         DECL     1619
           721  0630000727 +                      PL     B3,ELV7     IF COMMON BLOCK                             DECL     1620
                                                                                                                 DECL     1621
                                        *         CHECK LEVEL NUMBER TO SEE IF LEGAL OUTSIDE OF COMMON           DECL     1622
                                                                                                                 DECL     1623
                          20337                   LX3    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER            DECL     1624
                               43072              MX0    -L.LEVN                                                 DECL     1625
           722  15330                             BX3    -X0*X3      ISOLATE LEVEL NUMBER                        DECL     1626
                     7233777776                   SX3    X3-1                                                    DECL     1627
           723  0303000750 +                      ZR     X3,ELV9     IF LEVEL 1,O.K.                             DECL     1628
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    33
                                                                      EAX 
  
                          55531                   =A5    A3-1        FETCH SYMBOL FOR NONROOT                    DECL     1629
                               43052              MX0    L.SYM                                                   DECL     1630
           724  11605                             BX6    X0*X5                                                   DECL     1631
                     5160000000 X                 SA6    FILL.                                                   DECL     1632
                               76270              SX2    B7          SAVE B7                                     DECL     1633
           725  6170000000 X                      FATAL  =XE.LV9     EQUIV. GROUP NOT COMMON BUT LEVEL ABOVE 1   DECL     1634
           726  63720                             SB7    X2          RESTORE B7                                  DECL     1635
                     0400000750 +                 EQ     ELV9                                                    DECL     1636
                                                                                                                 DECL     1637
                                        *         CHECK LEVEL OF EQUIV. GROUP AGAINST LEVEL, IF ANY, ALREADY     DECL     1638
                                        *         ASSIGNED TO COMMON BLOCK CONTAINING THE GROUP                  DECL     1639
                                                                                                                 DECL     1640
           727  5110000000 X             ELV7     SA1    TS.BLK                                                  DECL     1641
                          43072                   MX0    -L.BLVL                                                 DECL     1642
                               63611              SB6    X1+B1       (B6) = FWA BLOCK TABLE                      DECL     1643
           730  56263                             SA2    B6+B3       FETCH TS.BLK ENTRY                          DECL     1644
                     20226                        LX2    -P.BLVL                                                 DECL     1645
                          15120                   BX1    -X0*X2      ISOLATE BLOCK LEVEL NUMBER                  DECL     1646
                               20337              LX3    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER OF TAG     DECL     1647
           731  43072                             MX0    -L.LEVN                                                 DECL     1648
                     15330                        BX3    -X0*X3      ISOLATE LEVEL OF ROOT                       DECL     1649
                          0311000734 +            NZ     X1,ELV75    IF BLOCK HAS LEVEL                          DECL     1650
                                                                                                                 DECL     1651
                                        *         BLOCK HAS NO LEVEL -- SET BLOCK LEVEL SAME AS ROOT AND SET     DECL     1652
                                        *         DEFAULT BIT                                                    DECL     1653
                                                                                                                 DECL     1654
           732  12223                             BX2    X2+X3       SET BLOCK LEVEL                             DECL     1655
                     43001                        MX0    1                                                       DECL     1656
                          20051                   LX0    P.DFLT+1                                                DECL     1657
                               20246              LX2    P.BLVL      RESTORE X2                                  DECL     1658
           733  12602                             BX6    X0+X2       SET DEFAULT BIT                             DECL     1659
                     54620                        SA6    A2                                                      DECL     1660
                          0400000750 +            EQ     ELV9                                                    DECL     1661
                                                                                                                 DECL     1662
                                        *         BLOCK HAS LEVEL -- COMPARE WITH ROOT LEVEL                     DECL     1663
                                                                                                                 DECL     1664
           734  37013                    ELV75    IX0    X1-X3                                                   DECL     1665
                     0300000750 +                 ZR     X0,ELV9     IF SAME LEVELS                              DECL     1666
                               43001              MX0    1                                                       DECL     1667
           735  20052                             LX0    P.CNFL+1                                                DECL     1668
                     20246                        LX2    P.BLVL      RESTORE X2                                  DECL     1669
                          12602                   BX6    X0+X2       SET CONFLICT BIT                            DECL     1670
                               54620              SA6    A2                                                      DECL     1671
           736  0400000750 +                      EQ     ELV9                                                    DECL     1672
                                                                                                                 DECL     1673
                                        *         NONROOT -- AS IT HAS NO LEVEL, IT INHERITS ANY BELONGING       DECL     1674
                                        *                TO THE ROOT                                             DECL     1675
                                                                                                                 DECL     1676
           737  10544                    ELV8     BX5    X4                                                      FCC1946    96
                     43014                        UNPK   X5,B3,X2,X0   (B3) = LINK                               FCC1946    97
                          54203                   SA2    A0+B3       ROOT                                        DECL     1678
                               20222              LX2    -P.TAG                                                  DECL     1679
           741  53227                             SA2    X2+B7       FETCH TAG WORD FOR ROOT                     DECL     1680
                     20264                        SBIT   X2,LEV                                                  DECL     1681
                          0322000750 +            PL     X2,ELV9     IF NO LEVEL FOR ROOT                        DECL     1682
           742  43072                             MX0    -L.LEVN                                                 DECL     1683
                     20237                        LX2    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER            DECL     1684
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    34
                                                                      EAX 
  
                          15220                   BX2    -X0*X2      ISOLATE LEVEL NUMBER                        DECL     1685
                               20310              LX3    P.LEV+1     RESTORE X3 (NONROOT TAG WORD)               DECL     1686
           743  7100000200                        SX0    M.LEV                                                   DECL     1687
                          20245                   LX2    P.LEVN      LEVEL VALUE INTO POSITION                   DECL     1688
                               12330              BX3    X3+X0       SET LEV BIT                                 DECL     1689
           744  12623                             BX6    X2+X3       SET LEVEL NUMBER                            DECL     1690
                     54630                        SA6    A3          STORE TAG WORD                              DECL     1691
                                                                                                                 DECL     1692
                                        *         IF EQUIV. GROUP IS IN COMMON, SET DEFAULT BIT FOR BLOCK        DECL     1693
                                                                                                                 DECL     1694
                          20122                   LX1    -P.BLOCK+P.TAG                                          DECL     1695
                               63310              SB3    X1          (B3) = BLOCK NUMBER                         DECL     1696
           745  0730000750 +                      MI     B3,ELV9     IF NOT COMMON                               DECL     1697
                          5110000000 X            SA1    TS.BLK                                                  DECL     1698
           746  43001                             MX0    1                                                       DECL     1699
                     20051                        LX0    P.DFLT+1                                                DECL     1700
                          63611                   SB6    X1+B1       (B6) = FWA BLOCK TABLE                      DECL     1701
                               56263              SA2    B6+B3       FETCH TS.BLK ENTRY                          DECL     1702
           747  12602                             BX6    X0+X2       SET DEFAULT BIT                             DECL     1703
                     54620                        SA6    A2                                                      DECL     1704
                                                                                                                 DECL     1705
           750  66442                    ELV9     SB4    B4+B2                                                   DECL     1706
                     67552                        SB5    B5-B2                                                   DECL     1707
                          0400000714 +            EQ     ELV55                                                   DECL     1708
  
  
  
  
                                        **        EAX -  EVALUATE ABSOLUTE EXPRESSION                            DECL     1710
                                        *                                                                        DECL     1711
                                        *         ENTRY  (B4)_ FWA OF CONSTANT                                   DECL     1712
                                        *                                                                        DECL     1713
                                        *         EXIT   (B4) _ END OF CONSTANT                                  DECL     1714
                                        *         IF B7 > 0,CONSTANT DEFINED                                     DECL     1715
                                        *                (X1) = MODE                                             DECL     1716
                                        *                (X6) = VALUE OF DIMENSION (BINARY)                      DECL     1717
                                        *         IF B7 = 0, ERROR IN TRANSLATION OF CONSTANT.                   DECL     1718
                                        *                (X6) = NOT DEFINED.                                     DECL     1719
                                        *                                                                        DECL     1720
                                        *         USES   A1-A5  X0  B2,B7                                        DECL     1721
                                        *                PRESERVES  X4,X5  B3,B5,B6                              DECL     1722
                                                                                                                 DECL     1723
                                                                                                                 DECL     1724
           751  5140001004 +             EAX20    SA4    EAXA        RELOAD REGISTERS BEFORE EXIT                DECL     1725
                          54541                   =A5    A4+1                                                    DECL     1726
                               54351              =A3    A5+1                                                    DECL     1727
           752  54231                             =A2    A3+1                                                    DECL     1728
                     63330                        SB3    X3                                                      DECL     1729
                          54321                   =A3    A2+1                                                    DECL     1730
                               63520              SB5    X2                                                      DECL     1731
           753  63630                             SB6    X3                                                      DECL     1732
                                                                                                                 DECL     1733
                                                                                                                 DECL     1734
           754  0400400754 +             EAX      SUBR   0           ENTRY/EXIT...                               DECL     1735
           755  10644                             BX6    X4                                                      DECL     1736
                     22705                        LX7    X5                                                      DECL     1737
                          5160001004 +            SA6    EAXA        EAXA+0 = (X4)                               DECL     1738
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    35
  
  
           756  54761                             =A7    A6+1            +1 = (X5)                               DECL     1739
                     76630                        SX6    B3                                                      DECL     1740
                          76750                   SX7    B5                                                      DECL     1741
                               54671              =A6    A7+1            +2 = (B3)                               DECL     1742
           757  54761                             =A7    A6+1            +3 = (B5)                               DECL     1743
                     5110000000 X                 SA1    TT=PAR                                                  DECL     1744
                               76660              SX6    B6                                                      DECL     1745
           760  22701                             LX7    X1                                                      DECL     1746
                     54671                        =A6    A7+1            +4 = (B6)                               DECL     1747
                          5120000000 X            SA2    FILL.                                                   DECL     1748
           761  54761                             =A7    A6+1            +5 = (TT=PAR)                           DECL     1749
                     10622                        BX6    X2                                                      DECL     1750
                          5130000000 X            SA3    DECARM                                                  DECL     1751
           762  54671                             =A6    A7+1            +6 = (FILL.= ARRAY NAME.)               DECL     1752
                     76700                        =X7    0                                                       DECL     1753
                          10633                   BX6    X3                                                      DECL     1754
           763  5170000000 X                      SA7    ARGCOMA                                                 DECL     1755
                          7170000032              =X7    O.SLP                                                   DECL     1756
           764  5160000000 X                      SA6    ARGMODE                                                 DECL     1757
                          57741                   =A7    B4-1        PUT SPECIAL BEGINNING PAREN TO SET ARGMODE  DECL     1758
           765  5120000000 X                      SA2    FILL.                                                   DECL     1759
                          67441                   =B4    B4-1        MOVE *SB* POINTER TO BEGINNING LEFT PAREN   DECL     1760
           766  0100000000 X                      RJ     PAR         PARSE/REDUCE STATEMENT                      DECL     1761
           767  5110001012 +                      SA1    EAXA+6                                                  DECL     1762
                          5130001011 +            SA3    EAXA+5                                                  DECL     1763
           770  10611                             BX6    X1                                                      DECL     1764
                     5120000000 X                 SA2    TT=PAR                                                  DECL     1765
           771  5160000000 X                      SA6    FILL.       RESTORE FILL.                               DECL     1766
                          37023                   IX0    X2-X3                                                   DECL     1767
           772  0300000776 +                      ZR     X0,EAX10    IF NO ERROR, EXPRESSION REDUCED             DECL     1768
                          10633                   SHRINK TT=PAR,X3   RESET PARSE FILE LENGTH                     FCC0813   165
                          6170000000 X            FATAL  E.DM11                                                  DECL     1771
           775  66700                             =B7    0           INDICATE ERROR IN DIMENSION CONSTANT        DECL     1772
                     0400000751 +                 EQ     EAX20                                                   DECL     1773
                                                                                                                 DECL     1774
                                        **        CONSTANT FOR DIMENSION PROCESSED, SET UP EXIT CONDITIONS.      DECL     1775
                                                                                                                 DECL     1776
           776  57161                    EAX10    =A1    B6-1                                                    DECL     1777
                     67441                        =B4    B4-1        MODE TO LAST PART OF CONSTANT               DECL     1778
                          0100000000 X            RJ     LCT         LOAD BINARY OF CONSTANT INTO X6             DECL     1779
           777  0326001003 +                      PL     X6,EAX15    IF POSITIVE NUMBER                          DECL     1780
                          6270777775              =B7    X0-M.INT                                                DECL     1781
          1000  0570001003 +                      NZ     B7,EAX15    IF NOT INTEGER                              DECL     1782
                          10300                   BX3    X0          SAVE MODE                                   DECL     1783
          1001  6170000000 X                      FATAL  E.DM13      NEGATIVE DIMENSION NOT ALLOWED              DECL     1784
          1002  76610                             =X6    1           DUMMY OF *1* FOR DIMENSION                  DECL     1785
                     10033                        BX0    X3          RESTORE MODE                                DECL     1786
          1003  10100                    EAX15    BX1    X0          MODE                                        DECL     1787
                     66710                        =B7    1           INDICATE NO ERROR IN SYNTAX                 DECL     1788
                          0400000751 +            EQ     EAX20                                                   DECL     1789
                                                                                                                 DECL     1790
          1004                     7     EAXA     BSS    7                                                       DECL     1791
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    36
                                                                      EXT 
  
                                        **        EXT -  PROCESS "EXTERNAL" DECLARATION.                         DECL     1793
                                        *         EXIT   TO MASTER LOOP.                                         DECL     1794
                                                                                                                 DECL     1795
                                                                                                                 DECL     1796
          1013  14000000000000221601              HEREIF EXTERNAL                                                DECL     1797
                                                                                                                 DECL     1798
          1014  7160220100                        CLAS=  X6,(EST,NVAR,EXT)                                       FCC1716X   11
                          5160000000 X            SA6    EXTA        INDICATE *EXTERNAL* STATEMENT               DECL     1800
          1015  56140                    EXT1     SA1    B4                                                      DECL     1805
                     0301000000 X                 ZR     X1,E.EX3    IF NO NEXT ITEM - ERROR                     DECL     1806
                               43052              MX0    L.CDPC                                                  FCC1222     9
          1016  6221777774                        SB2    X1-O.VAR                                                DECL     1808
                          11601                   BX6    X0*X1       ELEMENT ONLY.                               DECL     1809
                               66441              SB4    B4+B1                                                   DECL     1810
          1017  5160000000 X                      SA6    FILL.       IN CASE OF ERROR.                           DECL     1811
                          0420001024 +            ZR     B2,EXT5     IF VARIABLE.                                DECL     1812
          1020  5221000000 X                      SA2    X1+=XCHARMAP                                            DECL     1813
                          0312001022 +            NZ     X2,EXT2     IF NOT VAR OR CONS                          DECL     1814
          1021  22201                             LX2    X1                                                      DECL     1815
          1022  43052                    EXT2     MX0    L.CDPC                                                  DECL     1816
                     11602                        BX6    X0*X2                                                   DECL     1817
                          5160000000 X            SA6    FILL.                                                   DECL     1818
          1023  0400000000 X                      EQ     E.TE5       SYNTAX ERROR                                DECL     1819
                                                                                                                 DECL     1820
          1024  56140                    EXT5     SA1    B4                                                      DECL     1821
                     6271777774                   SB7    X1-O.VAR                                                DECL     1822
          1025  0570001030 +                      NZ     B7,EXT6     IF NOT LONG NAME                            DECL     1823
                          67441                   =B4    B4-1                                                    DECL     1824
          1026  0100000000 X                      RJ     =XTLV       TRUNCATE NAME                               DECL     1825
          1027  66441                             =B4    B4+1                                                    DECL     1826
          1030  5110000000 X             EXT6     SCAN   TS.SYM,SSY                                              DECL     1827
          1031  0770001045 +                      MI     B7,EXT10    IF *NIT*                                    DECL     1829
                          10122                   BX1    X2                                                      DECL     1830
                               20165              IFBIT  X1,-EXT,EXT7                                            DECL     1831
                          6170000000 X            WARN   E.EX1                                                   DECL     1832
          1034  0400001050 +                      EQ     EXT15       CONTINUE.                                   DECL     1833
                                                                                                                 DECL     1834
          1035  20101                    EXT7     IFBIT  X1,-ENT/EXT,EXT9                                        DECL     1835
          1036  6170000000 X                      WARN   E.EX4                                                   DECL     1836
          1037  0400001050 +                      EQ     EXT15       CONTINUE                                    DECL     1837
                                                                                                                 DECL     1838
          1040  7130010000               EXT9     =X3    M.VAR                                                   DECL     1839
                          7120000006              SX2    P.EXT                                                   FCC1046    18
          1041  10566                             BX5    X6          SAVE (X6)  = TAG                            DECL     1841
                     0100000036 +                 RJ     CCT         CHECK FOR CONFLICTING TYPE                  DECL     1842
          1042  10166                             BX1    X6                                                      DECL     1843
                     22605                        LX6    X5          RESTORE (X6) = TAG                          DECL     1844
                          0301001050 +            ZR     X1,EXT15    IF CONFLICT                                 DECL     1845
          1043  5130000000 X                      SA3    EXTA                                                    DECL     1846
                          12636                   BX6    X3+X6                                                   DECL     1847
                               54620              SA6    A2          REPLACE ENTRY                               DECL     1848
          1044  0400001050 +                      EQ     EXT15       CONTINUE.                                   DECL     1849
                                                                                                                 DECL     1850
          1045  0100000000 X             EXT10    RJ     STY         NATURAL TYPE                                DECL     1851
          1046  5120000000 X                      SA2    EXTA                                                    DECL     1852
                          12721                   BX7    X2+X1                                                   DECL     1853
          1047  5110000000 X                      ADSYM  TS.SYM                                                  DECL     1854
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    37
                                                                      EXT 
  
                                                                                                                 DECL     1855
          1050  7110000030               EXT15    ADDREF X6,CR.SUB                                               DECL     1856
          1052  56140                             SA1    B4                                                      DECL     1857
                     66441                        SB4    B4+B1                                                   DECL     1858
                          7221777764              SX2    X1-O.COMMA                                              DECL     1859
          1053  0302001015 +                      ZR     X2,EXT1     IF NO *EOS*                                 DECL     1860
                                                                                                                 DECL     1861
                          0301000000 X            ZR     X1,PSP      IF COMPLETE.                                DECL     1862
          1054  5221000000 X                      SA2    X1+=XCHARMAP                                            DECL     1863
                          0312001056 +            NZ     X2,EXT16    IF NOT VAR OR CONS                          DECL     1864
          1055  22201                             LX2    X1                                                      DECL     1865
          1056  43052                    EXT16    MX0    L.CDPC                                                  DECL     1866
                     11602                        BX6    X0*X2                                                   DECL     1867
                          5160000000 X            SA6    FILL.                                                   DECL     1868
          1057  6170000000 X                      FATAL  E.EX2                                                   DECL     1869
          1060  67441                             SB4    B4-B1                                                   DECL     1870
                                                                                                                 DECL     1871
                                        **        HERE IF SYNTAX ERROR ENCOUNTERED                               DECL     1872
                                        *         ADVANCE TILL NEXT SEPARATOR FOUND AND CONTINUE.                DECL     1873
                                                                                                                 DECL     1874
          1061  56140                    EXT20    SA1    B4                                                      DECL     1875
                     7221777764                   SX2    X1-O.COMMA                                              DECL     1876
          1062  0302001015 +                      ZR     X2,EXT1     IF COMMA AFTER ERROR                        DECL     1877
                          66441                   SB4    B4+B1                                                   DECL     1878
          1063  0311001061 +                      NZ     X1,EXT20    CONTINUE.                                   DECL     1879
                          0400000000 X            JP     PSP         NEXT                                        DECL     1880
                                                                                                                 DECL     1881
                                   0 X   EXTA     EQU    TYPA        HOLDS BITS TO MERGE INTO TAG-TABLE          DECL     1882
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    38
        FSC 
  
                                        **        FSC - FORMAL PARAMETER AS SUBSCRIPT CHECKS                     DECL     1885
                                        *         CHECK ALL F.P.S IN SYMBOL TABLE FOR THOSE USED AS SUBSCRIPTS   DECL     1886
                                        *         IN ARRAYS.  THESE SHOULD BE OF TYPE INTEGER.                   DECL     1887
                                                                                                                 DECL     1888
          1064  0400401064 +             FSC      SUBR   0                                                       DECL     1889
          1065  5140000000 X                      SA4    VARDIM                                                  DECL     1890
                          5120000000 X            SA2    TS.SYM                                                  DECL     1891
          1066  0304001064 +                      ZR     X4,FSC      NO FP USED AS SUBSCRIPT, EXIT               DECL     1892
                          5130000000 X            SA3    TS=SYM                                                  DECL     1893
          1067  43771                             MX7    -L.MODE                                                 DECL     1894
                     6263777776                   SB6    X3-1                                                    DECL     1895
                               43501              MX5    1                                                       DECL     1896
          1070  0760001064 +             FSC1     MI     B6,FSCX     IF LIST IS EXHAUSTED, EXIT                  DECL     1897
                          53326                   SA3    X2+B6                                                   DECL     1898
          1071  6166777775                        SB6    B6-2                                                    DECL     1899
                          15437                   BX4    -X7*X3      EXTRACT MODE                                DECL     1900
                               20367              IFBIT  X3,-FP,FSC1 IF NOT FP                                   DECL     1901
                          20331                   IFBIT  X3,-FPS/FP,FSC1  IF NOT USED AS SUBSCRIPT               FCC1222    10
                          10633                   BX6    X3                                                      FCC1901    14
                               43152              MX1    7*CHAR                                                  DECL     1905
          1074  20650                             LX6    P.FPS+1                                                 DECL     1906
                     7204777775                   SX0    X4-M.INT                                                DECL     1907
                               54630              SA6    A3                                                      DECL     1908
          1075  0300001070 +                      ZR     X0,FSC1     IF TYPE INTEGER, OK                         DECL     1909
                          55431                   =A4    A3-1                                                    DECL     1910
                               11614              BX6    X1*X4                                                   DECL     1911
          1076  5160000000 X                      SA6    FILL.                                                   DECL     1912
                          6170000000 X            FATAL  E.DM14                                                  DECL     1913
          1100  0400001070 +                      EQ     FSC1                                                    DECL     1914
  
  
  
  
                                        **        LVL -  PROCESS "LEVEL" STATEMENT                               DECL     1916
                                        *         EXIT   TO MASTER LOOP                                          DECL     1917
                                        *         CALLS  CCT,TRV                                                 DECL     1918
                                                                                                                 DECL     1919
                                                                                                                 DECL     1920
          1101  00000000000000140000              HEREIF LEVEL                                                   DECL     1921
                                                                                                                 DECL     1922
          1102  6170000000 X                      ANSI   E.ANS                                                   DECL     1923
          1103  56140                             SA1    B4          FETCH LEVEL NUMBER                          DECL     1924
                     6221777775                   SB2    X1-O.CONS                                               DECL     1925
          1104  0301000000 X                      ZR     X1,=XE.LV1  IF PREMATURE E.O.S.                         DECL     1926
                          0520000000 X            NZ     B2,=XE.LV1  IF NOT NUMBER                               DECL     1927
          1105  43052                             MX0    L.SYM                                                   DECL     1928
                     11501                        BX5    X0*X1                                                   DECL     1929
                          20506                   LX5    CHAR                                                    DECL     1930
          1106  7160000034                        SX6    1R1                                                     DECL     1931
                          7170000001              SX7    1                                                       DECL     1932
          1107  37456                             IX4    X5-X6                                                   DECL     1933
                     0304001114 +                 ZR     X4,LVL2     IF LEVEL 1                                  DECL     1934
          1110  7160000035                        SX6    1R2                                                     DECL     1935
                          7170000002              SX7    2                                                       DECL     1936
          1111  37456                             IX4    X5-X6                                                   DECL     1937
                     0304001114 +                 ZR     X4,LVL2     IF LEVEL 2                                  DECL     1938
          1112  7160000036                        SX6    1R3                                                     DECL     1939
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    39
        FSC                                                           MCA 
  
                          7170000003              SX7    3                                                       DECL     1940
          1113  37456                             IX4    X5-X6                                                   DECL     1941
                     0314000000 X                 NZ     X4,=XE.LV1  IF NOT LEVEL 1,2 OR 3                       DECL     1942
          1114  5170001135 +             LVL2     SA7    LVLA        SAVE LEVEL NUMBER                           DECL     1943
                                                                                                                 DECL     1944
                                        *         PROCESS COMMA FOLLOWING LEVEL NUMBER                           DECL     1945
                                                                                                                 DECL     1946
                          56141                   =A1    B4+1                                                    DECL     1947
                               64411              =B4    A1+1        B4 = B4 + 2                                 DECL     1948
          1115  6221777764                        SB2    X1-O.COMMA                                              DECL     1949
                          0301000000 X            ZR     X1,=XE.LV2  IF PREMATURE E.O.S.                         DECL     1950
          1116  0520000000 X                      NZ     B2,=XE.LV2  IF NOT COMMA                                DECL     1951
                                                                                                                 DECL     1952
                                        *         PROCESS VARIABLE/ARRAY LIST                                    DECL     1953
                                                                                                                 DECL     1954
          1117  56140                    LVL4     SA1    B4          FETCH NAME                                  DECL     1955
                     6221777774                   SB2    X1-O.VAR                                                DECL     1956
          1120  0301000000 X                      ZR     X1,=XE.LV3  IF PREMATURE E.O.S.                         DECL     1957
                          0520000000 X            NZ     B2,=XE.LV3  IF NOT NAME                                 DECL     1958
          1121  43052                             MX0    L.SYM                                                   DECL     1959
                     11601                        BX6    X0*X1                                                   DECL     1960
                          5160000000 X            SA6    FILL.       SAVE NAME FOR POSSIBLE ERROR MESSAGE        DECL     1961
          1122  0100000000 X                      RJ     TRV         TRANSLATE VARIABLE                          DECL     1962
          1123  7130000200                        =X3    M.LEV                                                   DECL     1963
                          11236                   BX2    X3*X6                                                   DECL     1964
          1124  0302001125 +                      ZR     X2,LVL6     IF NOT ALREADY LEVEL                        DECL     1965
                          0400000000 X            EQ     =XE.LV4     MULTIPLE LEVEL DEFINITION IGNORED           DECL     1966
          1125  7130043140               LVL6     CLAS=  X3,(RP,EXT,ENT,ASF,NLST)                                DECL     1967
                          7120000007              SX2    P.LEV                                                   DECL     1968
          1126  0100000036 +                      RJ     CCT         CHECK CONFLICTING CLASSES                   DECL     1969
          1127  0306001132 +                      ZR     X6,LVL8     IF ERROR DETECTED                           DECL     1970
                          7140010200              SX4    M.LEV+M.VAR                                             DECL     1971
          1130  12664                             BX6    X6+X4                                                   DECL     1972
                     5140001135 +                 SA4    LVLA        RETRIEVE LEVEL NUMBER                       DECL     1973
                               20445              LX4    P.LEVN                                                  DECL     1974
          1131  12664                             BX6    X6+X4       SET LEVEL NUMBER INTO TAG-WORD              DECL     1975
                     53630                        SA6    X3          UPDATE TAG                                  DECL     1976
          1132  56141                    LVL8     =A1    B4+1                                                    DECL     1977
                     64411                        =B4    A1+1        B4 = B4 + 2                                 DECL     1978
                          6221777764              SB2    X1-O.COMMA                                              DECL     1979
          1133  0301000000 X                      ZR     X1,PSP      IF END OF STATEMENT                         DECL     1980
                          0420001117 +            ZR     B2,LVL4     IF COMMA,CONTINUE PROCESSING LIST           DECL     1981
          1134  0400000000 X                      EQ     =XE.LV5     BAD SYNTAX                                  DECL     1982
                                                                                                                 DECL     1983
          1135                     1     LVLA     BSS    1                                                       DECL     1984
  
  
  
  
                                        **        MCA -  MAKE RELATIVE COMMON ASSIGNMENTS                        DECL     1986
                                        *         ENTRY- END OF DECLARATIVES HAS BEEN ENCOUNTERED                DECL     1987
                                        *                (X1) = FWA (TA.NAM) -- ADDRESS TABLE.                   DECL     1988
                                        *         EXIT-  VARIABLES IN COMMON HAVE BEEN ASSIGNED BLOCK RELATIVE   DECL     1989
                                        *         ADDRESSES (IN TT.COMM), AND THE LENGTH OF ALL COMMON BLOCKS    DECL     1990
                                        *         HAS BEEN COMPUTED AND ENTERED IN TS.BLK.                       DECL     1991
                                                                                                                 DECL     1992
                                                                                                                 DECL     1993
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    40
        FSC 
  
                                                                                                                 DECL     1994
          1136  0400401136 +             MCA      SUBR   0                                                       DECL     1995
          1137  5140000000 X                      SA4    TT=COMM                                                 DECL     1996
                          5120000000 X            SA2    TS.SYM                                                  DECL     1997
          1140  43044                             MX0    -L.DIMLG                                                DECL     1998
                     63710                        SB7    X1          B7 = FWA ADDRESS TABLE                      DECL     1999
                          5110000000 X            SA1    TT.COMM                                                 DECL     2000
          1141  0304001136 +                      ZR     X4,MCAX     IF NOTHING IN COMMON, EXIT..                DECL     2001
                          13666                   BX6    0                                                       DECL     2002
                               36414              IX4    X1+X4                                                   DECL     2003
          1142  5130000000 X                      SA3    TS.BLK                                                  DECL     2004
                          5150000000 X            SA5    TP.DIM                                                  DECL     2005
          1143  6150000036                        SB5    P.DIMLG                                                 DECL     2006
                          53640                   SA6    X4          MARK END OF TABLE                           DECL     2007
                               63620              SB6    X2          B6 = FWA TAG TABLE                          DECL     2008
          1144  63331                             SB3    X3+B1       B3 = FWA BLOCK TABLE                        DECL     2009
                     53110                        SA1    X1          PRE-FETCH 1ST ENTRY                         DECL     2010
                          63250                   SB2    X5          B2 = FWA DIMENSION TABLE                    DECL     2011
                               10511              BX5    X1                                                      DECL     2012
          1145  6140000044                        SB4    60-P.PNT                                                DECL     2013
                          20144                   LX1    -P.BLOCK                                                DECL     2014
          1146  0400001171 +                      EQ     MCA5A       TEST FOR ZERO BLOCK ORDINAL                 DECL     2015
                                                                                                                 DECL     2016
                                                                                                                 DECL     2017
          1147  53313                    MCA1     SA3    X1+B3       FETCH TS.BLK ENTRY                          DECL     2018
                     20151                        LX1    P.BLOCK-P.PWF-1                                         DECL     2019
                          36411                   IX4    X1+X1       X4 = TAG ORDINAL                            DECL     2020
                               53246              SA2    X4+B6       FETCH TAG TABLE ENTRY                       DECL     2021
          1150  43744                             MX7    -L.BLEN                                                 DECL     2022
                     15637                        BX6    -X7*X3      ISOLATE BLOCK LENGTH                        DECL     2023
                          12665                   BX6    X6+X5       MERGE ADDRESS + TAG                         DECL     2024
                               22442              LX4    X2,B4                                                   DECL     2025
          1151  43557                             MX5    -L.PNT                                                  DECL     2026
                     15445                        BX4    -X5*X4      ISOLATE TP.DIM ORDINAL                      DECL     2027
                          53542                   SA5    X4+B2       FETCH ARRAY PARAMETERS                      DECL     2028
                               53617              SA6    X1+B7       STORE BLOCK-RELATIVE ADDRESS                DECL     2029
                                                                                                                 DECL     2030
                                        **        COORDINATE COMMON AND LEVEL INFORMATION.                       DECL     2031
                                        *                THE TS.BLK ENTRY AND THE TAG TABLE ENTRY ARE EXAMINED   DECL     2032
                                        *         FOR LEVEL INFORMATION.  IF THESE LEVEL INDICATORS ARE NOT SET  DECL     2033
                                        *         OR ARE EQUAL, THERE IS NOTHING TO DO.  IF ONLY ONE OF THEM IS  DECL     2034
                                        *         SET, WE SET THE OTHER EQUAL TO IT.  IF THEY ARE NOT EQUAL, THE DECL     2035
                                        *         *CNFL* BIT IS TURNED ON IN THE TS.BLK ENTRY FOR LATER          DECL     2036
                                        *         DIAGNOSTIC PROCESSING.                                         DECL     2037
                                                                                                                 DECL     2038
          1152  43772                             MX7    -L.BLVL                                                 DECL     2039
                     20326                        LX3    -P.BLVL     RIGHT-JUSTIFY BLOCK LEVEL                   DECL     2040
                          15737                   BX7    -X7*X3      X7 = BLOCK LEVEL                            DECL     2041
                               20346              LX3    P.BLVL      RESTORE X3                                  DECL     2042
          1153  20264                             SBIT   X2,LEV                                                  DECL     2043
                     0322001161 +                 PL     X2,MCA3     IF NO LEVEL INDICATOR                       DECL     2044
                               20237              LX2    P.LEV+1-P.LEVN    RIGHT JUSTIFY LEVEL NUMBER            DECL     2045
          1154  43672                             MX6    -L.LEVN                                                 DECL     2046
                     15626                        BX6    -X6*X2      X6 = LEVEL NUMBER                           DECL     2047
                          20245                   LX2    P.LEVN      RESTORE X2                                  DECL     2048
                               37476              IX4    X7-X6                                                   DECL     2049
          1155  0304001166 +                      ZR     X4,MCA5     IF LEVELS AGREE                             DECL     2050
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    41
        FSC 
  
                          0307001160 +            ZR     X7,MCA2     IF NO  BLOCK LEVEL                          DECL     2051
                                                                                                                 DECL     2052
                                        *         LEVEL CONFLICT                                                 DECL     2053
                                                                                                                 DECL     2054
          1156  43401                             MX4    1                                                       DECL     2055
                     20452                        LX4    P.CNFL+1                                                DECL     2056
                          12343                   BX3    X4+X3       SET CONFLICT BIT                            DECL     2057
          1157  0400001166 +                      EQ     MCA5                                                    DECL     2058
                                                                                                                 DECL     2059
          1160  20646                    MCA2     LX6    P.BLVL                                                  DECL     2060
                     12363                        BX3    X6+X3       SET BLOCK LEVEL                             DECL     2061
                          0400001166 +            EQ     MCA5                                                    DECL     2062
                                                                                                                 DECL     2063
          1161  0307001165 +             MCA3     ZR     X7,MCA4     IF NO LEVEL                                 DECL     2064
                          7140000200              SX4    M.LEV                                                   DECL     2065
          1162  20210                             LX2    P.LEV+1     RESTORE X2                                  DECL     2066
                     12224                        BX2    X2+X4       SET LEV BIT                                 DECL     2067
                          20745                   LX7    P.LEVN                                                  DECL     2068
                               12627              BX6    X2+X7       SET LEVEL NUMBER                            DECL     2069
          1163  54620                             SA6    A2          UPDATE TAG WORD                             DECL     2070
                                                                                                                 DECL     2071
                                        *         TURN ON DEFAULT BIT TO INDICATE AN INFORMATIVE DIAGNOSTIC      DECL     2072
                                        *         IS REQUIRED FOR THIS BLOCK.                                    DECL     2073
                                                                                                                 DECL     2074
                     43401                        MX4    1                                                       DECL     2075
                          20451                   LX4    P.DFLT+1                                                DECL     2076
                               12343              BX3    X4+X3       SET DEFAULT BIT                             DECL     2077
          1164  0400001166 +                      EQ     MCA5                                                    DECL     2078
                                                                                                                 DECL     2079
          1165  20210                    MCA4     LX2    P.LEV+1     RESTORE X2                                  DECL     2080
          1166  20271                    MCA5     IFBIT  X2,LONG                                                 DECL     2081
                     54111                        SA1    A1+B1                                                   DECL     2082
                          23455                   AX4    X5,B5                                                   DECL     2083
                               15540              BX5    -X0*X4      ISOLATE ARRAY LENGTH                        DECL     2084
          1167  21274                             AX2    -0                                                      DECL     2085
                     36335                        IX3    X3+X5                                                   DECL     2086
                          11225                   BX2    X2*X5                                                   DECL     2087
                               22501              LX5    X1                                                      DECL     2088
          1170  36623                             IX6    X2+X3       ADD LENGTH AGAIN IF *LONG*                  DECL     2089
                     20144                        LX1    -P.BLOCK                                                DECL     2090
                          54630                   SA6    A3                                                      DECL     2091
          1171  0301001174 +             MCA5A    ZR     X1,MCA5B    IF TABLE EXHAUSTED                          DECL     2092
                          73310                   SX3    X1                                                      DECL     2093
          1172  0313001147 +                      NZ     X3,MCA1     IF BLOCK ORDINAL NON-ZERO                   DECL     2094
                          54111                   =A1    A1+1                                                    DECL     2095
                               20144              LX1    -P.BLOCK                                                DECL     2096
          1173  10511                             BX5    X1                                                      DECL     2097
                     0400001171 +                 EQ     MCA5A                                                   DECL     2098
                                                                                                                 DECL     2099
          1174                           MCA5B    BSS    0                                                       DECL     2100
                                                                                                                 DECL     2101
                                        **        LEVEL INFORMATION IS NOW COMPLETE IN THE BLOCK TABLE, AND ANY  DECL     2102
                                        *         CONFLICTS HAVE BEEN RECORDED.  ANOTHER PASS THROUGH (TT.COMM)  DECL     2103
                                        *         IS REQUIRED, HOWEVER, TO MAKE SURE ALL NAMES IN EACH BLOCK     DECL     2104
                                        *         HAVE THE LEVEL NUMBER AND TO RECORD ANY DEFAULTS NOT HANDLED   DECL     2105
                                        *         IN THE FIRST PASS THROUGH (TT.COMM).                           DECL     2106
                                                                                                                 DECL     2107
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    42
        FSC 
  
                                         SNAP=B   IFNE   TEST                                                    DECL     2108
                                                  SA3    CO.SNAP                                                 DECL     2109
                                                  LX3    1RB                                                     DECL     2110
                                                  PL     X3,MCA6S    IF BLOCK TABLE SNAP NOT SELECTED            DECL     2111
                                                  DUMPT  (TS.BLK)                                                DECL     2112
                                         MCA6S    BSS    0                                                       DECL     2113
                                         SNAP=B   ENDIF                                                          DECL     2114
                                                                                                                 DECL     2115
          1174  5110000000 X                      SA1    TT.COMM                                                 DECL     2116
                          53110                   SA1    X1                                                      DECL     2117
                               20144              LX1    -P.BLOCK                                                DECL     2118
                                                                                                                 DECL     2119
          1175  53313                    MCA6     SA3    X1+B3       FETCH TS.BLK ENTRY                          DECL     2120
                     20151                        LX1    P.BLOCK-P.PWF-1                                         DECL     2121
                          36411                   IX4    X1+X1       X4 = TAG ORDINAL                            DECL     2122
                               53246              SA2    X4+B6       FETCH TAG TABLE ENTRY                       DECL     2123
          1176  43772                             MX7    -L.BLVL                                                 DECL     2124
                     20326                        LX3    -P.BLVL     RIGHT-JUSTIFY BLOCK LEVEL                   DECL     2125
                          15737                   BX7    -X7*X3      X7 = BLOCK LEVEL                            DECL     2126
                               20346              LX3    P.BLVL      RESTORE X3                                  DECL     2127
          1177  20264                             SBIT   X2,LEV                                                  DECL     2128
                     0332001204 +                 MI     X2,MCA7     IF LEVEL INDICATOR                          DECL     2129
          1200  0307001204 +                      ZR     X7,MCA7     IF NO BLOCK LEVEL                           DECL     2130
                          7140000200              SX4    M.LEV                                                   DECL     2131
          1201  20210                             LX2    P.LEV+1     RESTORE X2                                  DECL     2132
                     12224                        BX2    X2+X4       SET LEV BIT                                 DECL     2133
                          20745                   LX7    P.LEVN                                                  DECL     2134
                               12627              BX6    X2+X7       SET LEVEL NUMBER                            DECL     2135
          1202  54620                             SA6    A2          UPDATE TAG WORD                             DECL     2136
                     43401                        MX4    1                                                       DECL     2137
                          20451                   LX4    P.DFLT+1                                                DECL     2138
                               12643              BX6    X4+X3       SET DEFAULT BIT                             DECL     2139
          1203  54630                             SA6    A3          UPDATE BLOCK TABLE ENTRY                    DECL     2140
                     0400001205 +                 EQ     MCA75                                                   DECL     2141
                                                                                                                 DECL     2142
          1204  20210                    MCA7     LX2    P.LEV+1     RESTORE X2                                  DECL     2143
          1205  54111                    MCA75    SA1    A1+B1                                                   DECL     2144
                     20144                        LX1    -P.BLOCK                                                DECL     2145
                          0311001175 +            NZ     X1,MCA6     IF TABLE NOT EXHAUSTED                      DECL     2146
                                                                                                                 DECL     2147
                                         SNAP=B   IFNE   TEST                                                    DECL     2148
                                                  SA3    CO.SNAP                                                 DECL     2149
                                                  LX3    1RB                                                     DECL     2150
                                                  PL     X3,MCA7S    IF BLOCK TABLE SNAP NOT SELECTED            DECL     2151
                                                  DUMPT  (TS.BLK)                                                DECL     2152
                                         MCA7S    BSS    0                                                       DECL     2153
                                         SNAP=B   ENDIF                                                          DECL     2154
                                                                                                                 DECL     2155
          1206  0400001136 +                      EQ     MCAX        EXIT..                                      DECL     2156
  
  
  
  
                                        **        PCD  - PROCESS DECLARATIVES                                    DECL     2158
                                        *         ENTRY  FIRST EXECUTABLE STATEMENT HAS BEEN ENCOUNTERED         DECL     2159
                                        *         EXIT   (STAGE) ADVANCED TO *CPM=ASF*.                          DECL     2160
                                        *                (X5) RESTORED FROM ("SB.KEY").                          DECL     2161
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    43
        FSC                                                           PCD 
  
                                        *                (B4) PRESERVED.                                         DECL     2162
                                        *                (A0) RESTORED TO (F.SB)                                 DECL     2163
                                                                                                                 DECL     2164
                                                                                                                 DECL     2165
          1207                           PCD      BSS    0           ENTRY...                                    DECL     2166
          1207  7160000000 X                      =X6    CPM=ASF                                                 DECL     2167
                          76740                   SX7    B4                                                      DECL     2168
          1210  5160000000 X                      SA6    STAGE                                                   DECL     2169
                          5170000000 X            SA7    PSFA        SAVE (B4)                                   DECL     2170
                                                                                                                 DECL     2171
                                                                                                                 DECL     2172
                                        **        ALLOCATE AND PRESET BASIC ADDRESS TABLE.                       DECL     2173
                                                                                                                 DECL     2174
                                         #FID     IFNE   .FID,0                                                  F66FCC    792
          1211  5120000000 X                      SA2    =XTP=DIM    X2 = LENGTH OF TP.DIM                       F66FCC    793
                          5110000000 X            ALLOC  =XTP.CIDM,X2                                            F66FCC    794
          1213  5120000000 X                      SA2    =XTP.DIM    X2 = ORIGIN OF TP.DIM                       F66FCC    795
                          5110000000 X            SA1    TP=DIM      X1 = LENGTH OF TP.DIM                       F66FCC    796
          1214  5130000000 X                      SA3    =XTP.CIDM   X3 = ORIGIN OF TP.CIDM                      F66FCC    797
                          0100000000 X            MVE    X1,X2,X3    COUNT,FROM,TO                               F66FCC    798
                                         #FID     ENDIF                                                          F66FCC    799
          1215  5120000000 X                      SA2    TS=SYM                                                  DECL     2175
                          23012                   AX0    X2,B1       ADDRESS TABLE LENGTH = 1/2 SYM TAB LEN      DECL     2176
                               13666              SHRINK TA=NAM                                                  DECL     2177
                          5110000000 X            ALLOC  TA.NAM,X0   ALLOCATE BASIC ADDRESS TABLE                DECL     2178
          1220  76311                             =X3    2                                                       DECL     2179
                     56670                        SA6    B7          INITIALIZE STORE                            DECL     2180
                          36422                   IX4    X2+X2                                                   DECL     2181
                               20352              LX3    P.TAG                                                   DECL     2182
          1221  7264777776                        SX6    X4-1        LAST TAG = 2 * TABLE LEN - 1                DECL     2183
                          46000                   NO                                                             DECL     2184
                               20652              LX6    P.TAG                                                   DECL     2185
          1222  55661                    PCD2     =A6    A6-1                                                    DECL     2186
                     37663                        IX6    X6-X3       DECREMENT TAG                               DECL     2187
                          0326001222 +            PL     X6,PCD2                                                 DECL     2188
                                                                                                                 DECL     2189
          1223  0100001136 +                      RJ     MCA         ASSIGN RELATIVE COMMON ADDRESSES            DECL     2190
                                                                                                                 DECL     2191
          1224  0100000420 +                      RJ     EQU         PROCESS EQUIVALENCES                        DECL     2192
                                                                                                                 DECL     2193
          1225  0100001064 +                      RJ     FSC         FORMAL PARAMETER AS SUBSCRIPT CHECKS        DECL     2194
          1226  0100000050 +                      RJ     CLU         CHECK LEVEL NAME REQUIREMENTS               DECL     2195
                                                                                                                 DECL     2196
          1227  0100000000 +                      RJ     APT         ASSIGN ECS/LCM POINTER TAGS                 DECL     2197
                                                                                                                 DECL     2198
          1230  76600                             SHRINK TT=COMM,0   TRASH TEMPORARY COMMON TABLE                DECL     2200
          1231  5120000000 X                      SA2    =XT.SB                                                  FCC0813   166
                          5110000000 X            SA1    PSFA                                                    DECL     2202
          1232  53020                             SA0    X2          RESTORE (A0)                                DECL     2203
                     5050000003                   SA5    "SB.KEY"    RESTORE (X5)                                DECL     2204
                               63410              SB4    X1          RESTORE (B4)                                DECL     2205
          1233  0400000000 X                      EQ     PCDX        EXIT..                                      DECL     2206
                                                  LIST   D                                                       DECL     2207
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        TG.PRO
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    44
        FSC                                                           LITERALS
  
             0 X                        TP.APL
             0 X                        DPT 
             0 X                        PWE 
             0 X                        E.LV6 
             0 X                        BLNKCOM 
             0 X                        E.LV7 
             0 X                        E.LV8 
             0 X                        TLV 
             0 X                        E.ANS2
             0 X                        ANSI= 
             0 X                        ALC 
             0 X                        CHARMAP 
             0 X                        E.DM8 
             0 X                        E.MR3 
             0 X                        TRVA
             0 X                        E.TE4 
             0 X                        E.LV10
             0 X                        E.LV9 
             0 X                        E.LV1 
             0 X                        E.LV2 
             0 X                        E.LV3 
             0 X                        E.LV4 
             0 X                        E.LV5 
             0 X                        TP=DIM
             0 X                        TP.CIDM 
             0 X                        MVE 
             0 X                        T.SB
  
                                        CONTENT OF LITERALS BLOCK.
  
          1234  55555555555555000000
          1235  00000000000037600000          4#
          1236  20000000000000000001    P        A
          1237  00000040000000000000       5
  
          1240                                    END                                                            DECL     2208
  
                             55700B CM  STORAGE USED             4463 STATEMENTS     1020 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            3.174 SECONDS        1189 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/20 X    4/19      8/29     17/26     17/39     18/02     19/32
        ALC             0   EXTERNAL*       9/08     43/16     43/25
        ANSI=           0   EXTERNAL*       8/57      9/46     15/03     17/35     38/41
        APT             0   PROGRAM*        2/56 L   43/44
        APTA1          32   PROGRAM*        4/16 S    4/28      4/34 L
        APTB2          33   PROGRAM*        4/18 S    4/26      4/35 L
        APT2            4   PROGRAM*        3/08 L    3/23      4/32
        APT4            7   PROGRAM*        3/14      3/27 L
        APT6           15   PROGRAM*        3/51 L    3/56
        ARGCOMA         0   EXTERNAL*       2/02 X   35/17 S
        ARGMODE         0   EXTERNAL*       2/02 X   35/19 S
        BCOM          113   PROGRAM*        7/01      7/16      7/27 L
        BLNKCOM         0   EXTERNAL*       6/46      7/46      8/42      9/18 S
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        CCT            36   PROGRAM*        1/53 E    5/07 L    8/21     11/14     17/22     36/45     39/30
        CCT10          43   PROGRAM*        5/15      5/17 L
        CCT2           34   PROGRAM*        4/57 L    5/09
        CHAR            6   TSTEXT          6/32      7/06      7/21      8/48      8/49     18/49     38/20     38/48
        CHARMAP         0   EXTERNAL*      10/17     14/33     36/17     37/09
        CLASS           0   EXTERNAL*       2/07 X    5/12      5/16
        CLU            50   PROGRAM*        5/39 L   43/42
        CLU1           54   PROGRAM*        5/49 L    5/54      5/55      6/07      6/13      6/27      6/36
        CLU3           71   PROGRAM*        5/51      6/40 L
        CLU4           75   PROGRAM*        6/49 L    7/11      7/25
        CLU5          101   PROGRAM*        6/57      7/05 L
        CLU55         102   PROGRAM*        7/03      7/08 L
        CLU6          104   PROGRAM*        6/53      7/10 L
        CLU7          107   PROGRAM*        7/15      7/20 L
        CLU75         110   PROGRAM*        7/18      7/23 L
        CMN1          122   PROGRAM*        8/01 L    8/33      9/29
        CMN15         126   PROGRAM*        8/06      8/09 L
        CMN2          132   PROGRAM*        8/11      8/17 L
        CMN2A         134   PROGRAM*        8/15      8/19 L
        CMN2B         141   PROGRAM*        8/14      8/18      8/22      8/30 L
        CMN3          144   PROGRAM*        7/53      8/37 L
        CMN4          150   PROGRAM*        8/48 L    9/53
        CMN4F         156   PROGRAM*        8/51      8/54      9/02 L
        CMN4G         160   PROGRAM*        9/04 L    9/24
        CMN4H         167   PROGRAM*        7/51      8/44      9/03      9/20 L
        CMN4I         172   PROGRAM*        9/16      9/19      9/20      9/25 L
        CMN5          174   PROGRAM*        8/41      9/31 L
        CMN5B         202   PROGRAM*        9/33      9/45 L
        CMN5C         205   PROGRAM*        9/37      9/42      9/48 L
        COMMON=       115   PROGRAM*        7/41 L    7/41 E
        CO.SNAP         0   EXTERNAL*       1/56 X
        CPM=ASF         0   EXTERNAL*       2/23 X   43/06
        CR.DEC          4   TSTEXT          7/43     10/08     16/54
        CR.SUB         30   TSTEXT         37/02
        C.SYM      200000   TSTEXT         30/13
        C.VAR      200000   TSTEXT          4/05     15/31
        DEC             0   EXTERNAL*       2/26 X   17/49
        DECARM          0   EXTERNAL*       2/02 X   35/13
        DIMENS=       211   PROGRAM*       10/06 L   10/06 E
        DIMI            0   EXTERNAL*       2/38 X   11/33     11/34     11/42
        DIM1          212   PROGRAM*       10/11 L   10/15
        DIM2          217   PROGRAM*       10/19     10/21 L
        DIR           227   PROGRAM*        1/53 E    8/12     10/11     11/02 L
        DIRT          302   PROGRAM*       11/21 S   11/48     12/07     13/16     13/24 L
        DIRX          225   PROGRAM*        1/53 E   10/55 L   12/54     13/22
        DIRZ          227   PROGRAM*       11/02 D
        DIR2          235   PROGRAM*       11/10     11/12 L
        DIR3          247   PROGRAM*       11/42 L   14/31
        DIR31         262   PROGRAM*       12/06     12/16 L
        DIR4          263   PROGRAM*       11/53     12/25 L
        DIR42         264   PROGRAM*       12/30 L   12/35
        DIR46         266   PROGRAM*       12/31     12/37 L
        DIR6          270   PROGRAM*       12/18     12/50 L
        DIR65         273   PROGRAM*       13/04 L   13/10
        DIR67         275   PROGRAM*       13/12 L
        DIR7          221   PROGRAM*       10/45 L   10/49
        DIR8          222   PROGRAM*        1/53 E   10/46 L   11/07     11/15     14/40
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        DIS           314   PROGRAM*       11/37     14/26 L
        DISA         1235   PROGRAM*       15/32 L
        DIS1          321   PROGRAM*       14/34     14/36 L
        DIS2          324   PROGRAM*       14/32     14/42 L
        DIS2A         332   PROGRAM*       14/53     15/03 L
        DIS3          333   PROGRAM*       14/55     15/07 L
        DIS4          336   PROGRAM*       15/12     15/14 L
        DIS5          341   PROGRAM*       14/03     15/25 L
        DIS6          303   PROGRAM*       13/48 L   14/50
        DIS8          311   PROGRAM*       14/14 L   15/09     15/17     15/28
        DIS9          313   PROGRAM*       14/15     14/18 L
        DPT             0   EXTERNAL*       4/25
        EAX           754   PROGRAM*       15/08     34/54 L
        EAXA         1004   PROGRAM*       34/44     34/57 S   35/24     35/25     35/52 L
        EAX10         776   PROGRAM*       35/30     35/38 L
        EAX15        1003   PROGRAM*       35/41     35/43     35/48 L
        EAX20         751   PROGRAM*       34/44 L   35/34     35/50
        ELV           663   PROGRAM*       28/02     30/34 L
        ELV1          665   PROGRAM*       30/52 L   32/13
        ELV2          702   PROGRAM*       31/22     31/37 L
        ELV3          705   PROGRAM*       31/12     31/48 L
        ELV4          712   PROGRAM*       30/55     31/02     31/16     31/33     31/44     32/02     32/11 L
        ELV5          713   PROGRAM*       30/52     32/21 L
        ELV55         714   PROGRAM*       32/33 L   34/24
        ELV6          720   PROGRAM*       32/40     32/46 L
        ELV7          727   PROGRAM*       32/49     33/13 L
        ELV75         734   PROGRAM*       33/22     33/37 L
        ELV8          737   PROGRAM*       32/42     33/49 L
        ELV9          750   PROGRAM*       32/41     32/57     33/33     33/44     34/13
                                           32/46     33/08     33/38     33/55     34/22 L
        EQSA          417   PROGRAM*       18/55 L
        EQS2          346   PROGRAM*       17/04 L   18/37     18/53
        EQS3          351   PROGRAM*       17/15 L   18/23
        EQS4          366   PROGRAM*       17/34     17/36 L
        EQS5          371   PROGRAM*       17/32     17/45 L   18/09
        EQS5B         375   PROGRAM*       17/51     17/54 L
        EQS6          404   PROGRAM*       17/40     18/21 L
        EQS7D         410   PROGRAM*       18/33     18/35 L
        EQS8          413   PROGRAM*        1/53 E   17/23     18/46 L   18/51
        EQU           420   PROGRAM*       19/11 L   43/39
        EQUA            0   EXTERNAL*       2/41 X   23/22 S   23/29     27/46 S
        EQUB          662   PROGRAM*       28/28     30/13 L
        EQUDIM        474   PROGRAM*       19/55 S   21/01 S   21/06     21/39     21/47 L
        EQUIVA=       344   PROGRAM*       16/52 L   16/52 E
        EQU20         430   PROGRAM*       19/45 L   21/36     21/38     21/40     21/45
        EQU22         431   PROGRAM*       19/43     19/49 L
        EQU25         446   PROGRAM*       20/48 L   21/23     21/25
        EQU26         457   PROGRAM*       21/03     21/07     21/14 L
        EQU27         463   PROGRAM*       21/12     21/22     21/27 L   21/30
        EQU28         476   PROGRAM*       19/49     21/54 L
        EQU29         470   PROGRAM*       20/55     21/38 L
        EQU3          501   PROGRAM*        1/53 E   22/19 L   23/23     25/21     29/18     29/21
        EQU32         507   PROGRAM*       22/36 L   22/41
        EQU36         512   PROGRAM*       22/48 L   22/56
        EQU38         516   PROGRAM*       22/38     23/03 L
        EQU4          522   PROGRAM*       22/50     23/19 L
        EQU42         526   PROGRAM*       23/19     23/29 L
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        EQU44         535   PROGRAM*       23/35     23/52 L
        EQU46         540   PROGRAM*       23/57     24/06 L
        EQU47         545   PROGRAM*       24/23 L   30/04
        EQU48         546   PROGRAM*       24/02     24/43 L   29/27     29/30     29/39     29/42
        EQU5          563   PROGRAM*       22/30     25/23 L
        EQU52         567   PROGRAM*       26/05 L   27/42
        EQU54         570   PROGRAM*       25/55     26/10 L
        EQU58         604   PROGRAM*       26/19     27/01 L
        EQU60         610   PROGRAM*       26/16     27/19 L
        EQU66         614   PROGRAM*       26/48     27/13     27/35 L
        EQU68         616   PROGRAM*       26/10     27/44 L
        EQU7          623   PROGRAM*       28/31 L   28/37     28/52
        EQU74         627   PROGRAM*       28/39 L   28/44
        EQU78         634   PROGRAM*       28/32     28/54 L
        EQU81         636   PROGRAM*       23/36     29/16 L
        EQU82         641   PROGRAM*       29/16     29/20 L
        EQU84         643   PROGRAM*       24/06     29/23 L
        EQU85         646   PROGRAM*       29/25     29/29 L
        EQU86         650   PROGRAM*       24/01     29/36 L
        EQU87         654   PROGRAM*       24/16     29/46 L
        EQU88         657   PROGRAM*       24/21     29/57 L
        ERT             0   EXTERNAL*       2/20 X   37/02
        ESY             0   EXTERNAL*       2/20 X   36/57
        EXTA            0   EXTERNAL*      36/08 S   36/49     36/55     37/28 D
        EXTERN=      1014   PROGRAM*       36/05 L   36/05 E
        EXT1         1015   PROGRAM*       36/09 L   37/06     37/23
        EXT10        1045   PROGRAM*       36/32     36/54 L
        EXT15        1050   PROGRAM*       36/36     36/40     36/48     36/52     37/02 L
        EXT16        1056   PROGRAM*       37/10     37/12 L
        EXT2         1022   PROGRAM*       36/18     36/20 L
        EXT20        1061   PROGRAM*       37/21 L   37/25
        EXT5         1024   PROGRAM*       36/16     36/25 L
        EXT6         1030   PROGRAM*       36/27     36/31 L
        EXT7         1035   PROGRAM*       36/34     36/38 L
        EXT9         1040   PROGRAM*       36/38     36/42 L
        E.ANS           0   EXTERNAL*       2/07 X   38/41
        E.ANS2          0   EXTERNAL*       8/57
        E.CM            0   EXTERNAL*       2/07 X    9/51
        E.CMA           0   EXTERNAL*       2/07 X    9/46
        E.CM1           0   EXTERNAL*       2/07 X    8/38
        E.CM2           0   EXTERNAL*       2/07 X    9/07
        E.CM3           0   EXTERNAL*       2/07 X    8/36
        E.CM4           0   EXTERNAL*       2/07 X    7/50
        E.CM5           0   EXTERNAL*       2/07 X    9/35
        E.CM6           0   EXTERNAL*       2/08 X    8/04
        E.DM            0   EXTERNAL*       2/08 X   11/32     14/44
        E.DM1           0   EXTERNAL*       2/08 X   14/20     15/18
        E.DM10          0   EXTERNAL*       2/09 X   10/47
        E.DM11          0   EXTERNAL*       2/09 X   35/32
        E.DM12          0   EXTERNAL*       2/09 X   15/03
        E.DM13          0   EXTERNAL*       2/09 X   35/45     35/45
        E.DM14          0   EXTERNAL*       2/09 X   38/28
        E.DM2           0   EXTERNAL*       2/08 X   15/15
        E.DM2A          0   EXTERNAL*       2/08 X   14/54
        E.DM3           0   EXTERNAL*       2/08 X   12/14
        E.DM4           0   EXTERNAL*       2/08 X   15/25
        E.DM5           0   EXTERNAL*       2/08 X   11/45
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        E.DM5A          0   EXTERNAL*       2/08 X   11/27     11/31
        E.DM6           0   EXTERNAL*       2/09 X   14/17
        E.DM7           0   EXTERNAL*       2/09 X   15/19
        E.DM8           0   EXTERNAL*      12/39
        E.DM9           0   EXTERNAL*       2/09 X   11/11     11/11
        E.EQ            0   EXTERNAL*       2/10 X   18/24
        E.EQ1           0   EXTERNAL*       2/11 X   17/09
        E.EQ11          0   EXTERNAL*       2/11 X   29/17     29/26
        E.EQ12          0   EXTERNAL*       2/11 X   29/20     29/29
        E.EQ13          0   EXTERNAL*       2/13 X   21/09
        E.EQ14          0   EXTERNAL*       2/13 X   21/33     21/33
        E.EQ15          0   EXTERNAL*       2/13 X   21/42     21/42
        E.EQ16          0   EXTERNAL*       2/13 X   29/41     29/41     29/57
        E.EQ2           0   EXTERNAL*       2/11 X   17/56
        E.EQ3           0   EXTERNAL*       2/11 X   18/10
        E.EQ4           0   EXTERNAL*       2/11 X   18/08
        E.EQ5           0   EXTERNAL*       2/11 X   17/48     17/50     17/53
        E.EQ6           0   EXTERNAL*       2/11 X   18/34
        E.EX1           0   EXTERNAL*       2/11 X   36/35
        E.EX2           0   EXTERNAL*       2/12 X   14/39     37/15
        E.EX3           0   EXTERNAL*       2/12 X   11/04     36/10
        E.EX4           0   EXTERNAL*       2/12 X   36/39     36/39
        E.LV1           0   EXTERNAL*      38/44     38/45     39/03
        E.LV10          0   EXTERNAL*      31/31
        E.LV2           0   EXTERNAL*      39/11     39/12
        E.LV3           0   EXTERNAL*      39/18     39/19
        E.LV4           0   EXTERNAL*      39/27
        E.LV5           0   EXTERNAL*      39/43
        E.LV6           0   EXTERNAL*       6/35
        E.LV7           0   EXTERNAL*       7/09
        E.LV8           0   EXTERNAL*       7/24
        E.LV9           0   EXTERNAL*      33/06
        E.MR2           0   EXTERNAL*       2/12 X   14/29
        E.MR3           0   EXTERNAL*      17/06
        E.TE4           0   EXTERNAL*      17/35
        E.TE5           0   EXTERNAL*       2/12 X   36/23
        E.TY            0   EXTERNAL*       2/12 X   10/23
        E.VD            0   EXTERNAL*       2/12 X    5/26
        E.XC1           0   EXTERNAL*       2/12 X   18/38
        E.ZA            0   EXTERNAL*       2/12 X    3/52
        FILL.           0   EXTERNAL*       2/14 X    7/23 S   10/22 S   17/18 S   29/56 S   35/10     36/15 S   38/27 S
                                            6/34 S    8/10 S   12/13 S   20/01 S   31/29 S   35/21     36/22 S   39/22 S
                                            7/08 S    8/55 S   14/38 S   22/27 S   33/04 S   35/28 S   37/14 S
        FILL.2          0   EXTERNAL*       2/14 X    5/22 S   14/48 S
        FILL.3          0   EXTERNAL*       2/14 X    5/25 S
        FSC          1064   PROGRAM*       38/05 L   38/08     43/41
        FSC1         1070   PROGRAM*       38/13 L   38/17     38/18     38/24     38/29
        LCT             0   EXTERNAL*       2/35 X   35/40
        LEVEL=       1102   PROGRAM*       38/39 L   38/39 E
        LG.VAR          7   TSTEXT          8/49
        LVLA         1135   PROGRAM*       39/04 S   39/34     39/45 L
        LVL2         1114   PROGRAM*       38/52     38/56     39/04 L
        LVL4         1117   PROGRAM*       39/16 L   39/42
        LVL6         1125   PROGRAM*       39/26     39/28 L
        LVL8         1132   PROGRAM*        1/53 E   39/31     39/38 L
        L.BLEN         30   TSTEXT         26/42     40/29
        L.BLOCK        14   TSTEXT          3/43      3/44      6/24     28/23
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        L.BLVL          2   TSTEXT          3/06      4/31     33/14     40/46     42/17
        L.CDPC         52   TSTEXT         10/18     14/36     36/11     36/20     37/12
        L.CL            0   EXTERNAL*       2/14 X    5/14
        L.DIMLG        30   TSTEXT         19/36     20/17     21/35     21/44     40/05
        L.EQHI         30   TSTEXT         25/05     25/08
        L.EQLO         30   TSTEXT         24/45     24/48     24/54     24/55     27/01
        L.EQUB         30   TSTEXT         22/29
        L.EQU1         22   TSTEXT         30/13
        L.EQU2         22   TSTEXT         30/13
        L.LEVN          2   TSTEXT          6/02     31/09     32/54     33/20     33/56     40/53
        L.LVLFLD        4   TSTEXT         26/39
        L.MODE          3   TSTEXT         38/10
        L.PNT          15   TSTEXT         12/50     20/03     40/33
        L.PWF          15   TSTEXT          4/57      6/18      6/21
        L.RELADD       30   TSTEXT         22/51     24/11     24/14     24/19     27/23     29/36     30/03
                                           22/53     24/13     24/18     26/34     27/25     29/37
        L.SYM          52   TSTEXT         12/11     22/23     31/27     33/02     38/46     39/20
        L.TAG          22   TSTEXT          4/03     23/53     25/52
        L.TGB           5   TSTEXT          6/19
        MAX.BLK       764   TSTEXT          9/06
        MAX.DIM         3   TSTEXT         11/34     18/05
        MCA          1136   PROGRAM*       40/02 L   43/37
        MCA1         1147   PROGRAM*       40/25 L   41/44
        MCA2         1160   PROGRAM*       41/01     41/10 L
        MCA3         1161   PROGRAM*       40/51     41/14 L
        MCA4         1165   PROGRAM*       41/14     41/30 L
        MCA5         1166   PROGRAM*       40/57     41/08     41/12     41/28     41/31 L
        MCA5A        1171   PROGRAM*       40/22     41/42 L   41/48
        MCA5B        1174   PROGRAM*       41/42     41/50 L
        MCA6         1175   PROGRAM*       42/13 L   42/39
        MCA7         1204   PROGRAM*       42/22     42/23     42/36 L
        MCA75        1205   PROGRAM*       42/34     42/37 L
        MVE             0   EXTERNAL*      43/20
        M.ARY         400   TSTEXT         11/08     11/18     19/53
        M.ASF        2000   TSTEXT          8/20     17/20     39/28
        M.COMM       4000   TSTEXT          6/11      8/20      8/24     26/47     27/29
        M.DEF          10   TSTEXT          8/24     26/47     27/12     27/32
        M.ENT          40   TSTEXT          8/20     11/12     17/20     39/28
        M.EQUIV      2000   TSTEXT         26/47     27/12     27/32
        M.EST      200000   TSTEXT         36/07
        M.EXT         100   TSTEXT          8/20     11/12     17/20     36/07     39/28
        M.FP           20   TSTEXT          5/11      6/11      8/20     17/20
        M.INT           2   TSTEXT         15/10     17/52     35/42     38/22
        M.LEV         200   TSTEXT          5/50     31/49     34/03     39/24     39/24     39/32     41/15     42/24
        M.NLST       1000   TSTEXT          8/20     17/20     39/28
        M.NVAR      20000   TSTEXT         11/12     36/07
        M.RP        40000   TSTEXT          5/11     39/28
        M.VAR       10000   TSTEXT          5/11     11/18     26/47     27/32     39/32
                                            8/24     13/51     27/12     36/42
        NCM             0   EXTERNAL*       2/20 X   13/14
        O.COMMA        13   TSTEXT          8/32     11/28     14/30     18/21     37/05     39/10
                                           10/14     11/29     18/06     18/36     37/22     39/40
        O.CONS          2   TSTEXT          9/32     14/49     14/51     17/47     38/43
        O.HOLL          1   TSTEXT         14/51
        O.LP           10   TSTEXT         17/31
        O.SLASH         7   TSTEXT          7/49      8/35      8/40      9/50
        O.SLP          32   TSTEXT         35/18
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        O.VAR           3   TSTEXT          8/05      9/34      9/36     14/45     36/12     36/26     39/17
        O.(            10   TSTEXT          8/09     11/29     11/30     17/07     18/50
        O.)            11   TSTEXT         10/48     14/28     14/52     18/07     18/22
        PAR             0   EXTERNAL*       2/32 X   35/23
        PCD          1207   PROGRAM*        1/53 E   43/05 L
        PCDX            0   EXTERNAL*       2/23 X   43/52
        PCD2         1222   PROGRAM*       43/33 L   43/35
        PSFA            0   EXTERNAL*       2/17 X   43/09 S   43/48
        PSP             0   EXTERNAL*       2/23 X    8/34     10/16     18/39     18/48     37/08     37/26     39/41
        PWE             0   EXTERNAL*       5/26     11/11     18/34     29/17     29/41     35/32     37/15
                                            6/35     14/17     21/09     29/20     29/57     35/45     38/28
                                            7/09     14/39     21/33     29/26     31/31     36/35
                                            7/24     15/25     21/42     29/29     33/06     36/39
        P.             73   TSTEXT          6/52     13/56     31/01     32/39     36/34     40/50     42/21
                                           12/06     17/34     31/08     33/54     38/17     41/31
        P.ALCM         24   TSTEXT          4/09
        P.ARY          10   TSTEXT         11/13     17/34
        P.BLOCK        30   TSTEXT          3/42      9/26     27/27     31/57     40/21     41/46     42/38
                                            3/44     26/31     28/27     32/47     40/26     42/11
                                            6/25     26/57     31/20     34/11     41/40     42/14
        P.BLVL         46   TSTEXT          3/11     33/17     33/41     40/49     42/18
                                            3/30     33/30     40/47     41/10     42/20
        P.CDIM         25   TSTEXT         14/05
        P.CLASS         3   TSTEXT          5/16
        P.CLASS2        5   TSTEXT          5/12
        P.CNFL         51   TSTEXT          6/52      7/10     31/39     33/40     41/06
        P.COMM         13   TSTEXT          8/19     27/27
        P.CTAG         52   TSTEXT          3/31
        P.DFLT         50   TSTEXT          7/10     32/05     33/29     34/16     41/26     42/31
        P.DIM          36   TSTEXT         13/04     20/44     21/21
        P.DIMLG        36   TSTEXT         12/40     20/15     40/13
        P.ENT           5   TSTEXT         36/38
        P.EQHI         30   TSTEXT         20/15     25/17     26/28     27/05
        P.EQUIV        12   TSTEXT         17/21
        P.EXT           6   TSTEXT         36/34     36/38     36/43
        P.FP            4   TSTEXT         12/06     13/56     38/17     38/18
        P.FPS          47   TSTEXT         13/50     38/18     38/21
        P.LEV           7   TSTEXT         31/01     31/13     32/53     33/57     40/50     41/30     42/36
                                           31/08     31/48     33/19     34/02     40/52     42/21
                                           31/10     32/39     33/54     39/29     41/16     42/25
        P.LEVN         45   TSTEXT          6/04     31/13     32/53     33/57     39/35     40/55     42/27
                                           31/10     31/50     33/19     34/04     40/52     41/18
        P.LONG          2   TSTEXT         20/06     41/31
        P.LVLFLD       46   TSTEXT         26/40
        P.NDIM         66   TSTEXT         11/46     20/12
        P.PNT          30   TSTEXT         12/52     13/18     20/02     20/06     40/20
        P.PWF          52   TSTEXT          5/01      5/05     40/26     42/14
        P.TAG          52   TSTEXT          4/06     22/28     27/37     29/52     31/06     32/37     34/11
                                            8/25     22/40     27/39     30/01     31/20     32/47     43/29
                                           22/22     26/05     28/48     30/56     31/57     33/52     43/32
        P.TDIM         27   TSTEXT         14/02     15/30
        P.VDIM         35   TSTEXT         12/03
        REFVAR          0   EXTERNAL*       2/02 X    7/44 S   10/09 S   16/55 S
        SCD             0   EXTERNAL*       2/20 X    9/02
        SSY             0   EXTERNAL*       2/20 X   36/31
        STAGE           0   EXTERNAL*       2/02 X   43/08 S
        STY             0   EXTERNAL*       2/26 X   36/54
1       /DECL  DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 15.52.06.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        TA=NAM          0   EXTERNAL*       2/02 X   43/24     43/24 S
        TA.NAM          0   EXTERNAL*       2/02 X    5/40     19/34     25/48     43/25
        TEST            0   TSTEXT         19/15 F   25/06 F   25/26 F   28/05 F   30/06 F   32/25 F   42/41 F
                                           22/06 F   25/15 F   27/47 F   29/02 F   30/40 F   42/01 F
        TG.PRO          0   EXTERNAL*       3/27
        TLV             0   EXTERNAL*       8/07      9/39     36/29
        TP=DIM          0   EXTERNAL*      43/15     43/18
        TP=EQU          0   EXTERNAL*       2/03 X   28/22     28/56     28/56 S
        TP.APL          0   EXTERNAL*       4/19
        TP.CIDM         0   EXTERNAL*      43/16     43/19
        TP.DIM          0   EXTERNAL*       2/03 X   13/14     19/33     40/12     43/17
        TP.EQU          0   EXTERNAL*       2/03 X   28/57 S
        TRV             0   EXTERNAL*       2/26 X    8/17     11/06     13/48     17/19     39/23
        TRVA            0   EXTERNAL*      17/33
        TS=BLK          0   EXTERNAL*       2/03 X    3/01      6/41      9/04
        TS=CON          0   EXTERNAL*       2/04 X   10/56     10/56 S
        TS=CONB         0   EXTERNAL*       2/04 X   10/55
        TS=EQU          0   EXTERNAL*       2/03 X   19/12     21/57     21/57 S   25/24     25/24 S   30/48     32/21
        TS=SYM          0   EXTERNAL*       2/04 X    5/41     38/09     43/22
        TS.BLK          0   EXTERNAL*       2/03 X    3/39      9/02     26/27     32/03     34/14
                                            2/57      6/40      9/21     31/38     33/13     40/11
        TS.EQU          0   EXTERNAL*       2/03 X   17/26     17/39     18/02     18/02     19/32
        TS.SYM          0   EXTERNAL*       2/03 X    5/44     12/08     13/52     22/20     29/50     36/57     38/07
                                            5/02     11/49     13/15     19/35     25/49     36/31     36/57     40/04
        TT=COMM         0   EXTERNAL*       2/04 X    3/46     40/03     43/46     43/46 S
        TT=PAR          0   EXTERNAL*       2/04 X   35/06     35/27     35/31     35/31 S
        TT.COMM         0   EXTERNAL*       2/04 X    3/45      8/29     40/07     42/09
        TYPA            0   EXTERNAL*       2/29 X    8/13      9/28 S   37/28
        T.SB            0   EXTERNAL*      43/47
        VARDIM          0   EXTERNAL*       2/04 X   12/05 S   38/06
        WBL             0   EXTERNAL*       2/23 X
        .CPU          111   TSTEXT          3/16 F
        .FID            1   TSTEXT         43/14 F
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      220              IDENT  TYPE 
                        220                       END 
  
  
                                        ENTRY POINTS. 
  
                                        IMP.ER         124+           TYPF           217+           PRECIS=         21+ 
                                        TYPA           213+           LOGICA=          1+           COMPLE=         23+ 
                                        TYPC           215+           INTEGE=          3+           TYPE=           25+ 
                                        TYP02          143+           REAL=            5+           IMPLIC=         31+ 
                                        TYPD           216+           DOUBLE=          7+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ENTRY.    TS=SYM    E.TT      E.TYI3    FILL.3    CPM=1ST   DIR       E.TY1 
                                        ETF       TS.SYM    E.TY      E.TYI4    E.SU12    CSK       LGR       PWE 
                                        IDENT     VALUE.    E.TYA     E.TYI5    PSF       PSP       PRECISI   E.MIJ 
                                        MOD       E.ADP     E.TYH     E.TYI6    PSFA      ASK       FUNCTIO   ANSI= 
                                        NARGS     E.ANS     E.TYIK    E.TYI7    ERT       NAT.TYP   TYPES 
                                        REFVAR    E.FM      E.TYI1    E.ZA      ESY       STY       CHARMAP 
                                        STAGE     E.TE5     E.TYI2    FILL.     SSY       FUNCTI=   TLV 
  
  
  
  
                                                  IDENT  TYPE                                                    TYPE        2
                                         TYPE     SECT   (EXPLICIT / IMPLICIT T Y P E DECLARATIONS.),1           TYPE        3
  
                                                                                                                 TYPE        4
                                                  SST    B,D                                                     TYPE        5
                                                  NOREF  B,D                                                     TYPE        6
                                                                                                                 TYPE        7
                                         B=TYPE   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     TYPE        8
                                                                                                                 TYPE        9
                                                  ENTRY  IMP.ER,TYPA,TYPC,TYP02                                  TYPE       10
                                                  ENTRY  TYPD                                                    TYPE       11
                                                  ENTRY  TYPF                                                    FCC1258     8
                                                                                                                 TYPE       12
                                        *         IN TABLES                                                      TYPE       13
                                                  EXT    ENTRY.,ETF,IDENT,MOD,NARGS,REFVAR,STAGE,TS=SYM          FCC1237     8
                                                  EXT    TS.SYM,VALUE.                                           TYPE       15
                                                                                                                 TYPE       16
                                        *         IN ERRORS                                                      TYPE       17
                                                  EXT    E.ADP,E.ANS,E.FM,E.TE5,E.TT,E.TY,E.TYA                  FCC1237     9
                                                  EXT    E.TYH,E.TYIK,E.TYI1,E.TYI2,E.TYI3,E.TYI4,E.TYI5,E.TYI6  TYPE       19
                                                  EXT    E.TYI7,E.ZA,FILL.,FILL.3,E.SU12                         FCC2177     8
                                                                                                                 TYPE       21
                                        *         IN HEADER                                                      TYPE       22
                                                  EXT    PSF,PSFA                                                TYPE       23
                                                                                                                 TYPE       24
                                        *         IN ALLOC                                                       TYPE       25
                                                  EXT    ERT,ESY,SSY                                             TYPE       26
                                                                                                                 TYPE       27
                                        *         IN MAIN                                                        TYPE       28
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     2
  
  
                                                  EXT    CPM=1ST,CSK,PSP,ASK                                     TYPE       29
                                                                                                                 TYPE       30
                                        *         IN LEX                                                         TYPE       31
                                                  EXT    NAT.TYP,STY                                             TYPE       32
                                                                                                                 TYPE       33
                                        *         IN KEY                                                         TYPE       34
                                                  EXT    FUNCTI=                                                 TYPE       35
                                                                                                                 TYPE       36
                                        *         IN DECL                                                        TYPE       37
                                                  EXT    DIR                                                     TYPE       38
                                                                                                                 TYPE       39
                                        *         IN IO                                                          TYPE       40
                                                  EXT    LGR,PRECISI,FUNCTIO,TYPES                               TYPE       41
                                                                                                                 TYPE       42
  
  
  
  
                                        **        TYPE KEY WORDS.                                                TYPE       44
                                        *                                                                        TYPE       45
                                        *         HERE WHEN KEYWORD IS --                                        TYPE       46
                                        *                                                                        TYPE       47
                                        *                L O G I C A L                                           TYPE       48
                                        *                I N T E G E R                                           TYPE       49
                                        *                R E A L                                                 TYPE       50
                                        *                D O U B L E                                             TYPE       51
                                        *                D O U B L E   P R E C I S I O N                         TYPE       52
                                        *                C O M P L E X                                           TYPE       53
                                        *                                                                        TYPE       54
                                        *         EXIT   TO *TYP* WITH                                           TYPE       55
                                        *                (X4) = APPROPRIATE TYPE INDICATION.                     TYPE       56
                                                                                                                 TYPE       57
                                                                                                                 TYPE       58
             0  00000000000000030114              HEREIF LOGICAL                                                 TYPE       59
             1  76410                             =X4    M.LOG                                                   TYPE       60
                     0400000131 +                 EQ     TYP                                                     TYPE       61
                                                                                                                 TYPE       62
             2  00000000000000070522              HEREIF INTEGER                                                 TYPE       63
             3  76411                             =X4    M.INT                                                   TYPE       64
                     0400000131 +                 EQ     TYP                                                     TYPE       65
                                                                                                                 TYPE       66
             4  00000000000000000000              HEREIF REAL                                                    TYPE       67
             5  7140000003                        =X4    M.REAL                                                  TYPE       68
                          0400000131 +            EQ     TYP                                                     TYPE       69
                                                                                                                 TYPE       70
             6  00000000000000140500              HEREIF DOUBLE                                                  TYPE       71
             7  56140                             SA1    B4                                                      TYPE       72
                     5120000017 +                 SA2    DOUA                                                    TYPE       73
                               13612              BX6    X1-X2                                                   TYPE       74
            10  0316000015 +                      NZ     X6,DOU2     IF NOT *PRECISI*                            TYPE       75
                          56341                   SA3    B4+B1                                                   TYPE       77
            11  6170776061                        SB7    -2RON                                                   TYPE       78
                          21360                   AX3    8*CHAR                                                  TYPE       79
                               63237              SB2    X3+B7                                                   TYPE       80
            12  0520000015 +                      NZ     B2,DOU2     IF NOT *PRECISION*                          TYPE       81
                          7150000000 X            SX5    PRECISI                                                 TYPE       82
            13  5255000000 X                      SA5    X5+LGR                                                  TYPE       83
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     3
                                                                      TYPE-KEY
  
                          0100000000 X            RJ     ASK         REMOVE KEYWORD AND ADJUST *SB*              TYPE       84
            14  0303000016 +                      ZR     X3,DOU4                                                 TYPE       85
                          0400400014 +            TRUBL  E.ZA                                                    TYPE       86
                                                                                                                 TYPE       87
            15  6170000000 X             DOU2     ANSI   E.ADP       ANSI REQUIRES *PRECISION*                   TYPE       88
            16  7140000004               DOU4     =X4    M.DBL                                                   TYPE       89
                                                                                                                 TYPE       90
                                         CO.DTS   IF     DEF,CO.DTS        -- CHECK D.P. ELIMINATION OPTION --   TYPE       91
                                                  SA3    CO.DTS                                                  TYPE       92
                                                  PL     X3,TYP      IF D.P. ELIMINATION NOT SELECTED            TYPE       93
                                                  =X4    M.REAL                                                  TYPE       94
                                         CO.DTS   ENDIF                                                          TYPE       95
                                                                                                                 TYPE       96
                          0400000131 +            EQ     TYP         EXIT..                                      TYPE       97
                                                                                                                 TYPE       98
            17  20220503112311000003     DOUA     CON    7LPRECISI+O.VAR                                         TYPE       99
            20  17160000000000112311              HEREIF PRECISION                                               TYPE      100
            21  0400000000 X                      EQ     E.FM                                                    TYPE      101
                                                                                                                 TYPE      102
            22  00000000000000140530              HEREIF COMPLEX                                                 TYPE      103
            23  7140000005                        =X4    M.CPLX                                                  TYPE      104
                          0400000131 +            EQ     TYP                                                     TYPE      105
  
  
  
  
                                        **        TYPE - PROCESS  " T Y P E "  KEYWORD.                          TYPE      107
                                                                                                                 TYPE      108
                                                                                                                 TYPE      109
            24  00000000000000000000              HEREIF TYPE                                                    TYPE      110
                                                                                                                 TYPE      111
            25  6170000000 X                      ANSI   E.TYA       *TYPE* IS NON-ANSI                          TYPE      112
                                                                                                                 TYPE      113
            26  6170000000 X                      SB7    E.TYH                                                   TYPE      114
                          5110000000 X            SA1    TYPES                                                   TYPE      115
            27  6150000005                        SB5    L.TYPE                                                  TYPE      116
                          0400000000 X            EQ     CSK         CHECK SUB-KEYWORD                           TYPE      117
                                                                                                                 TYPE      118
                                                                                                                 TYPE      119
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     4
                                                                      IMP 
  
                                        **        IMP -  PROCESS  " I M P L I C I T "  TYPE DECLARATION.         TYPE      121
                                        *                                                                        TYPE      122
                                        *         ENTRY  FROM MASTER LOOP, OR                                    TYPE      123
                                        *                FROM *TYPE* KEYWORD.                                    TYPE      124
                                        *                CAN ALSO BE RE-ENTERED  (AT *IMP.KEY*) IF SUBSEQUENT    TYPE      125
                                        *                     <TYPE-WORDS> ARE FOUND.                            TYPE      126
                                        *                (B4) _ A <TYPE-WORD> IN *SB*.                           TYPE      127
                                        *                                                                        TYPE      128
                                        *         EXIT   THRU *CSK* TO LOOK-UP THE <TYPE> KEYWORD.               TYPE      129
                                        *                (B4) UNCHANGED.                                         TYPE      130
                                        *                (TYPC) " 0 TO SIGNAL AN *IMPLICIT* STATEMENT.           TYPE      131
                                        *                THE <TYPE-WORD> PROCESSOR WILL GO TO *TYP* WHO WILL     TYPE      132
                                        *                     RETURN TO *IMP.(* WHEN HE SEES (TYPC) SET.         TYPE      133
                                                                                                                 TYPE      134
                                                                                                                 TYPE      135
            30  24000000000000110311              HEREIF IMPLICIT                                                TYPE      136
                                                                                                                 TYPE      137
            31  6170000000 X                      ANSI   E.ANS                                                   TYPE      138
            32  43673                             MX6    -1                                                      TYPE      139
                     5160000215 +                 SA6    TYPC        SIGNAL *IMPLICIT* PROCESSING                TYPE      140
            33  5130000217 +                      SA3    TYPF        FLAG ALLOWS ONE IMPLICIT STM PER PGM UNIT   FCC1258     9
                          0313000000 X            NZ     X3,=XE.MIJ  IF ONE IMPLICIT STM PROCESSED - WARNING     FCC1258    10
            34  76710                             =X7    1           SET TO DISALLOW MULTIPLE IMPLICIT STM-S     FCC1258    11
                     54730                        SA7    A3                                                      FCC1258    12
                                                                                                                 TYPE      141
            35  6170000000 X             IMP.KEY  SB7    E.TYIK                                                  TYPE      142
                          5110000000 X            SA1    TYPES                                                   TYPE      143
            36  6150000004                        SB5    L.TYPE-1                                                TYPE      144
                          0400000000 X            EQ     CSK         CHECK NEXT KEYWORD                          TYPE      145
                                                                                                                 TYPE      146
                                                                                                                 TYPE      147
                                        **        IMP.( - ENTERED FROM *TYP* WHEN IMPLICIT FLAG IS SET.          TYPE      148
                                        *                (X4) = NEW TYPE                                         TYPE      149
                                                                                                                 TYPE      150
            37  56540                    IMP.(    SA5    B4                                                      TYPE      151
                     54351                        SA3    A5+B1                                                   TYPE      152
                          6275777767              SB7    X5-O.(                                                  TYPE      153
            40  0570000000 X                      NZ     B7,E.TYI1   MISSING BEGINNING LPAREN                    TYPE      154
                          43700                   MX7    0           CLEAR LETTER MASK FOR THIS TYPE             TYPE      155
                               63640              SB6    X4          SAVE TYPE                                   TYPE      156
                                                                                                                 TYPE      157
                                                                                                                 TYPE      158
                                        **        IMP.COMA - ADD LETTER(S) TO THE RANGE MASK WE ARE BUILDING.    TYPE      159
                                        *                (X7) = RANGE MASK -- LETTER BITS ACCUMULATED SO FAR.    TYPE      160
                                                                                                                 TYPE      161
            41  73630                    IMP.COMA SX6    X3                                                      TYPE      162
                     13636                        BX6    X3-X6                                                   TYPE      163
                          6223777774              SB2    X3-O.VAR                                                TYPE      164
            42  43044                             MX0    LG.VAR*CHAR-CHAR                                        TYPE      165
                     5160000000 X                 SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE             TYPE      166
                               54661              SA6    A6+B1        SAVE FOR POSSIBLE ERROR MESSAGE            TYPE      167
            43  20066                             LX0    -CHAR                                                   TYPE      168
                     0520000000 X                 NZ     B2,E.TYI2   LETTER IS REQUIRED                          TYPE      169
                               11106              BX1    X0*X6                                                   TYPE      170
            44  54231                             SA2    A3+B1                                                   TYPE      171
                     0301000050 +                 ZR     X1,IMP3     IF SINGLE CHARACTER ONLY                    TYPE      172
                               43006              MX0    CHAR                                                    TYPE      173
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     5
                                                                      IMP 
  
            45  5110000000 X                      SA1    FILL.                                                   TYPE      174
                          11610                   BX6    X1*X0                                                   TYPE      175
            46  5160000000 X                      SA6    FILL.3                                                  TYPE      176
                          6170000000 X            WARN   E.TYI3                                                  TYPE      177
            50  21366                    IMP3     AX3    -CHAR                                                   TYPE      178
                     6272777772                   SB7    X2-O.MIN                                                TYPE      179
                               13555              BX5    0                                                       TYPE      180
            51  0570000062 +                      NZ     B7,IMP5     IF NOT A RANGE                              TYPE      181
                          54521                   SA5    A2+B1                                                   TYPE      182
                               73650              SX6    X5                                                      TYPE      183
            52  13656                             BX6    X5-X6                                                   TYPE      184
                     6225777774                   SB2    X5-O.VAR                                                TYPE      185
                               11105              BX1    X0*X5                                                   TYPE      186
            53  5160000000 X                      SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE             TYPE      187
                          0520000000 X            NZ     B2,E.TYI2   LETTER IS REQUIRED                          TYPE      188
            54  21566                             AX5    -CHAR                                                   TYPE      189
                     0301000056 +                 ZR     X1,IMP35    IF SINGLE CHARACTER                         TYPE      190
            55  6170000000 X                      WARN   E.TYI3                                                  TYPE      191
            56  37553                    IMP35    IX5    X5-X3                                                   TYPE      192
                     54251                        SA2    A5+B1                                                   TYPE      193
                          0315000060 +            NZ     X5,IMP4                                                 TYPE      194
            57  6170000000 X                      WARN   E.TYI5      LAST = FIRST, WARN                          TYPE      195
            60  0325000062 +             IMP4     PL     X5,IMP5                                                 TYPE      196
                          13555                   BX5    0           TRUNCATE RANGE TO 1ST LETTER ONLY           TYPE      197
            61  6170000000 X                      FATAL  E.TYI4      LAST .GT. FIRST                             TYPE      198
            62  43001                    IMP5     MX0    1                                                       TYPE      199
                     63750                        SB7    X5                                                      TYPE      200
                          6233777703              SB3    X3-60                                                   TYPE      201
            63  23070                             AX0    B7          MASK AS WIDE AS RANGE                       TYPE      202
                     6222777764                   SB2    X2-O.COMMA                                              TYPE      203
                               23030              AX0    B3          POSITION MASK WHERE RANGE STARTS            TYPE      204
            64  12707                             BX7    X0+X7       ACCUMULATE MASK FOR THIS TYPE               TYPE      205
                     6272777766                   SB7    X2-O.)                                                  TYPE      206
                               54321              SA3    A2+B1       (EXPECT COMMA OR EOS)                       TYPE      207
            65  0420000041 +                      ZR     B2,IMP.COMA IF A COMMA                                  TYPE      208
                                                                                                                 TYPE      209
                                                                                                                 TYPE      210
                                        **        CURRENT <TYPE> RANGE HAS BEEN ASSIMILATED.                     TYPE      211
                                        *         ENTRY  (B6) = <TYPE>.                                          TYPE      212
                                        *                (X7) = ITS NEW LETTER BITS..                            TYPE      213
                                        *         EXIT   TO *IMP.EOS* IF STATEMENT IS ENDED, OR                  TYPE      214
                                        *                TO *IMP.KEY* TO BEGIN PROCESSING THE NEXT <TYPE-WORD>.  TYPE      215
                                        *         NOW WE PROCEED TO ALTER NATURAL TYPE TABLE AS REQUESTED.       TYPE      216
                                                                                                                 TYPE      217
                          6120000004              SB2    L.TYPE-1                                                TYPE      218
            66  5110000216 +                      SA1    TYPD                                                    TYPE      219
                          12617                   BX6    X1+X7       SET SELECTED LETTERS                        TYPE      220
                               11571              BX5    X7*X1                                                   TYPE      221
            67  54610                             SA6    A1                                                      TYPE      222
                     0305000072 +                 ZR     X5,IMP6     IF LETTERS NOT PREVIOUSLY MENTIONED         TYPE      223
                               66370              SB3    B7          SAVE B7                                     TYPE      224
            70  6170000000 X                      WARN   =XE.TY1                                                 TYPE      225
            71  66730                             SB7    B3          RESTORE B7                                  TYPE      226
                     13775                        BX7    X7-X5       REMOVE BAD LETTERS                          TYPE      227
            72  5112000000 X             IMP6     SA1    B2+NAT.TYP                                              TYPE      228
                          67221                   SB2    B2-B1                                                   TYPE      229
                               15617              BX6    -X7*X1      CLEAR SELECTED LETTERS FOR ALL TYPES        TYPE      230
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     6
                                                                      IMP 
  
            73  54610                             SA6    A1                                                      TYPE      231
                     0620000072 +                 PL     B2,IMP6     LOOP THRU ALL TYPES                         TYPE      232
            74  5116777776 X                      SA1    B6+NAT.TYP-1                                            TYPE      233
                          12717                   BX7    X1+X7       SET SELECTED LETTERS FOR SPECIFIED TYPES    TYPE      234
                               54710              SA7    A1                                                      TYPE      235
                                                                                                                 TYPE      236
            75  64420                             SB4    A2                                                      TYPE      237
                     0570000000 X                 NZ     B7,E.TYI6   IF MISSIN G ENDING )                        TYPE      238
            76  6233777764                        SB3    X3-O.COMMA                                              TYPE      239
                          64431                   SB4    A3+B1                                                   TYPE      240
            77  0303000101 +                      ZR     X3,IMP.EOS  IF *EOS*                                    TYPE      241
                          0430000035 +            ZR     B3,IMP.KEY  IF MORE TYPES TO SET                        TYPE      242
           100  64430                             SB4    A3                                                      TYPE      243
                     0400000000 X                 EQ     E.TYI7                                                  TYPE      244
                                                                                                                 TYPE      245
                                                                                                                 TYPE      246
                                        **        IMP.EOS - HERE WHEN STATEMENT FULLY DIGESTED.                  TYPE      247
                                        *                NATURAL TYPE TABLE HAS BEEN SET UP (PROPERLY), BUT WE   TYPE      248
                                        *                HAVE STILL TO INSURE THAT ANY FUNCTION NAME AND FORMAL  TYPE      249
                                        *                PARAMETERS ARE INCLUDED IN THE SCOPE OF THE IMPLICIT    TYPE      250
                                        *                STATEMENT.                                              TYPE      251
                                        *         EXIT   TO *TYP10* TO CHECK/FLAG USEAGES OF THE NON-ANSI IBM    TYPE      252
                                        *                     <*SIZE> CONSTRUCT.                                 TYPE      253
                                                                                                                 TYPE      254
           101  5130000000 X             IMP.EOS  SA3    MOD                                                     TYPE      255
                          5120000000 X            SA2    ETF                                                     TYPE      256
           102  43071                             MX0    -L.MODE                                                 TYPE      257
                     5150000000 X                 SA5    TS.SYM                                                  TYPE      258
                               20362              IFBIT  X3,-PFNC,IMP7                                           TYPE      259
                          0312000113 +            NZ     X2,IMP7     IF FUNCTION EXPLICITLY TYPED                TYPE      260
           104  5110000000 X                      SA1    IDENT                                                   TYPE      261
                          10611                   BX6    X1                                                      TYPE      262
                               20312              LX3    P.PFNC+1    RESTORE X3                                  TYPE      263
           105  0100000000 X                      RJ     STY         GET (NEW) IMPLICIT TYPE                     TYPE      264
           106  5120000000 X                      SA2    ENTRY.                                                  TYPE      265
                          73220                   SX2    X2                                                      FEAT155G  362
           107  5140000000 X                      SA4    VALUE.                                                  TYPE      266
                          15730                   BX7    -X0*X3      ISOLATE FORMER TYPE                         TYPE      267
                               36225              IX2    X2+X5                                                   TYPE      268
           110  13117                             BX1    X1-X7                                                   TYPE      269
                     53220                        SA2    X2                                                      TYPE      270
                          36445                   IX4    X4+X5                                                   TYPE      271
                               13631              BX6    X3-X1                                                   TYPE      272
           111  54630                             SA6    A3          RESET PROGRAM-UNIT MODE                     TYPE      273
                     53440                        SA4    X4                                                      TYPE      274
                          13721                   BX7    X2-X1                                                   TYPE      275
                               54720              SA7    A2          RESET (ENTRY.-TAG)                          TYPE      276
           112  13641                             BX6    X4-X1                                                   TYPE      277
                     54640                        SA6    A4          RESET (VALUE.-TAG)                          TYPE      278
                                                                                                                 TYPE      279
           113  5140000000 X             IMP7     SA4    NARGS                                                   TYPE      280
                          5120000000 X            SA2    TS=SYM                                                  TYPE      281
           114  0304000000 X                      ZR     X4,PSP      IF NO ARGUMENTS                             FCC1237    10
                          66211                   =B2    2                                                       TYPE      283
                               53351              SA3    X5+B1                                                   TYPE      284
           115  63620                             SB6    X2          (B6) = LENGTH OF SYMBOL TABLE               TYPE      285
           116  20367                    IMP74    SBIT   X3,FP                                                   TYPE      286
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     7
                                                                      IMP 
  
                     67662                        SB6    B6-B2                                                   TYPE      287
                          0323000122 +            PL     X3,IMP76    IF NO FORMAL PARAMETER                      TYPE      288
           117  55131                             SA1    A3-B1                                                   TYPE      289
                     20305                        LX3    P.FP+1      RESTORE (X3)                                TYPE      290
                          73210                   SX2    X1                                                      TYPE      291
                               13612              BX6    X1-X2       CLEAR OUT LINK                              TYPE      292
           120  0100000000 X                      RJ     STY         GET (NEW) IMPLICIT TYPE                     TYPE      293
           121  11203                             BX2    X0*X3       CLEAR FORMER TYPE                           TYPE      294
                     36612                        IX6    X1+X2                                                   TYPE      295
                          54630                   SA6    A3                                                      TYPE      296
           122  54332                    IMP76    SA3    A3+B2                                                   TYPE      297
                     0706000116 +                 GT     B6,IMP74                                                TYPE      298
           123  0400000000 X                      EQ     PSP         EXIT                                        FCC1237    11
                                                                                                                 TYPE      300
                                                                                                                 TYPE      301
                                        **        IMP.ER - RETURN HERE FROM ERRORS TO ATTEMPT RECOVERY.          TYPE      302
                                        *                LOOK FOR  ")," TO RESUME PROCESSING.                    TYPE      303
                                        *         ENTRY  (B4) _ CURRENT *SB* POSITION.                           TYPE      304
                                        *         EXIT   TO *IMP.KEY* IF A ")," IS FOUND, OR                     TYPE      305
                                        *                TO *IMP.EOS* IF RECOVERY IS NOT SUCCESSFUL.             TYPE      306
                                                                                                                 TYPE      307
           124  56141                    IMP.ER   SA1    B4+B1                                                   TYPE      308
                     66441                        SB4    B4+B1                                                   TYPE      309
                          6221777766              SB2    X1-O.)                                                  TYPE      310
           125  0301000101 +                      ZR     X1,IMP.EOS  IF *EOS*                                    TYPE      311
                          0520000124 +            NZ     B2,IMP.ER   IF NO RPAREN                                TYPE      312
           126  56141                             SA1    B4+B1                                                   TYPE      313
                     66441                        SB4    B4+B1                                                   TYPE      314
                          6221777764              SB2    X1-O.COMMA                                              TYPE      315
           127  0301000101 +                      ZR     X1,IMP.EOS  IF *EOS*                                    TYPE      316
                          0520000124 +            NZ     B2,IMP.ER   IF NO COMMA                                 TYPE      317
           130  66441                             SB4    B4+B1       FOUND  COMMA FOLLOWED BY COMMA              TYPE      318
                     0400000035 +                 EQ     IMP.KEY     TRY ANOTHER KEYWORD                         TYPE      319
  
  
  
  
                                        **        TYP -  PROCESS TYPE-LIST.                                      TYPE      321
                                        *         ENTERED FROM THE VARIOUS *TYPE* PROCESSORS, TO DIGEST THE      TYPE      322
                                        *                VARIABLE-LIST OF THE STATEMENT.                         TYPE      323
                                        *         ENTRY  (X4) = TYPE TO BE SET.                                  TYPE      324
                                        *                (B4) " FWA OF THE VARIABLE LIST.                        TYPE      325
                                        *         IF A *FIRST CARD* IS EXPECTED, TYP WILL CHECK FOR A *FUNCTION* TYPE      326
                                        *                STATEMENT, AND EXIT TO THERE, OR TO *PSF*.              TYPE      327
                                        *         USES   ALL                                                     TYPE      328
                                        *         CALLS  ADF, ASL, BTT, DIR, PWE, STY, TAB                       TYPE      329
                                                                                                                 TYPE      330
                                                                                                                 TYPE      331
           131  5110000000 X             TYP      SA1    STAGE                                                   TYPE      332
                          5130000215 +            SA3    TYPC                                                    TYPE      333
                                        *         THE CONDITIONAL =X1-CPM=1ST WAS HERE.                          TYPE      334
                                        *         IF CPM=1ST IS EVER " 0, REPLACE                                TYPE      335
           132  0311000144 +                      NZ     X1,TYP0     IF NOT IN *1ST CARD* PROCESSING.            TYPE      336
                          56140                   SA1    B4                                                      TYPE      337
                               56241              SA2    B4+B1                                                   TYPE      338
           133  21266                             AX2    9*CHAR                                                  TYPE      339
                     20214                        LX2    2*CHAR                                                  TYPE      340
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     8
                                                                      TYP 
  
                          5130000214 +            SA3    TYPB                                                    TYPE      341
           134  12212                             BX2    X1+X2                                                   TYPE      342
                     37132                        IX1    X3-X2                                                   TYPE      343
                          0311000141 +            NZ     X1,TYP01    IF NOT *FUNCTION*                           TYPE      344
           135  10644                             BX6    X4                                                      TYPE      345
                     5160000000 X                 SA6    ETF         INDICATE FUNCTION EXPLICITLY TYPED          TYPE      346
           136  7150000000 X                      SX5    FUNCTIO                                                 TYPE      347
                          5255000000 X            SA5    X5+LGR                                                  TYPE      348
           137  0100000000 X                      RJ     ASK         ADJUST STATEMENT KEYWORD                    TYPE      349
           140  0303000000 X                      ZR     X3,FUNCTI=                                              TYPE      350
                          0400400140 +            TRUBL  E.ZA                                                    TYPE      351
                                                                                                                 TYPE      352
                                                                                                                 TYPE      353
           141  10644                    TYP01    BX6    X4                                                      TYPE      354
                     43701                        MX7    1                                                       TYPE      355
                          5160000213 +            SA6    TYPA        SAVE TYPE                                   TYPE      356
           142  5170000000 X                      SA7    PSFA        INDICATE THAT RETURN FROM *PSF* SHOULD BE   TYPE      357
                                        *                            TO  TYP02                                   TYPE      358
                          0400000000 X            EQ     PSF         PROCESS DUMMY HEADER CARD                   TYPE      359
                                                                                                                 TYPE      360
           143  5140000213 +             TYP02    SA4    TYPA        RETURN FROM PSF                             TYPE      361
                          5130000215 +            SA3    TYPC        RESTORE X3 + X4                             TYPE      362
           144  10644                    TYP0     BX6    X4                                                      TYPE      363
                     5160000213 +                 SA6    TYPA        SAVE TYPE                                   TYPE      364
                               56240              SA2    B4                                                      TYPE      365
           145  7170000004                        =X7    CR.DEC                                                  TYPE      366
                          5170000000 X            SA7    REFVAR                                                  TYPE      368
           146  0313000037 +                      NZ     X3,IMP.(    IF PROCESSING *IMPLICIT*                    FCC1237    12
           147  56240                    TYP1     SA2    B4                                                      TYPE      375
                     43052                        MX0    LG.VAR*CHAR                                             TYPE      376
                          6272777774              SB7    X2-O.VAR                                                TYPE      377
           150  11602                             BX6    X0*X2                                                   TYPE      378
                     5160000000 X                 SA6    FILL.                                                   TYPE      379
                               20606              LX6    CHAR                                                    TYPE      380
           151  6266777744                        SB6    X6-1R0                                                  TYPE      381
                          0660000204 +            PL     B6,TYP12    IF FIRST CHARACTER NOT LETTER               TYPE      382
           152  20666                             LX6    -CHAR       RESTORE                                     TYPE      383
                     0570000204 +                 NZ     B7,TYP12    IF NOT SYMBOL                               TYPE      384
           153  5110000000 X                      SCAN   TS.SYM,SSY                                              TYPE      387
           154  0770000164 +                      MI     B7,TYP5     IF NO ENTRY                                 FCC2177     9
                          0311000156 +            NZ     X1,TYP2     IF NO CONFLICT BETWEEN FUNCT MODE & VAR MOD FCC2177    10
           155  6170000000 X                      FATAL  E.SU12                                                  FCC2177    11
           156  43071                    TYP2     MX0    -L.MODE                                                 FCC2177    12
                     43071                        MX0    -L.MODE                                                 FCC1237    13
                          10522                   BX5    X2                                                      FCC1237    14
                               20554              IFBIT  X5,TYP,TYP4  IF PREVIOUS TYPING                         FCC1237    15
                          11602                   BX6    X0*X2       CLEAR IMPLICIT MODE                         FCC1237    16
           160  7100100000                        SX0    M.TYP                                                   FCC1237    17
                          36646                   IX6    X4+X6       ADD IN NEW MODE                             FCC1237    18
                               12606              BX6    X0+X6       SET TYPE DECLARATION BIT                    FCC1237    19
           161  54620                             SA6    A2          RESET INTO TS.SYM                           FCC1237    20
                     0400000166 +                 EQ     TYP7                                                    TYPE      394
                                                                                                                 TYPE      395
           162  6170000000 X             TYP4     WARN   E.TT        CURRENT TYPING IGNORED                      TYPE      396
           163  0400000166 +                      EQ     TYP7                                                    TYPE      397
                                                                                                                 TYPE      398
           164  7100100000               TYP5     SX0    M.TYP                                                   FCC1237    21
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE     9
                                                                      TYP 
  
                          12704                   BX7    X0+X4       SET TYPE AND TYPE DECLARATION BIT           FCC1237    22
           165  0100000000 X                      ADSYM  A1                                                      TYPE      400
                                                                                                                 TYPE      401
           166  56141                    TYP7     SA1    B4+B1                                                   TYPE      402
                     6271777774                   SB7    X1-O.VAR                                                TYPE      403
           167  0570000171 +                      NZ     B7,TYP75    IF NOT LONG NAME                            TYPE      404
                          0100000000 X            RJ     =XTLV       TRUNCATE NAME                               TYPE      405
           170  56141                             =A1    B4+1                                                    TYPE      406
           171  7221777767               TYP75    SX2    X1-O.(                                                  TYPE      407
                          0302000174 +            ZR     X2,TYP8     IF DIMENSIONED                              TYPE      409
           172  7110000004                        ADDREF X6,CR.DEC,TYP9                                          TYPE      410
                                                                                                                 TYPE      411
           174  0100000000 X             TYP8     RJ     DIR         PROCESS DIMENSIONED VARIABLE                TYPE      412
                                                                                                                 TYPE      413
           175  56141                    TYP9     =A1    B4+1        FETCH SEPARATOR                             TYPE      414
                     5140000213 +                 SA4    TYPA        RESTORE (X4) = TYPE CODE                    TYPE      415
                               64411              =B4    A1+1        POINT TO NEXT ITEM                          TYPE      416
           176  7221777764                        SX2    X1-O.COMMA                                              TYPE      417
                          0301000000 X            ZR     X1,PSP                                                  FCC1237    23
           177  0302000147 +                      ZR     X2,TYP1     IF COMMA                                    TYPE      420
                          5221000000 X            SA2    X1+=XCHARMAP                                            TYPE      422
           200  43052                             MX0    L.CDPC                                                  TYPE      423
                     0312000201 +                 NZ     X2,TYP9A    IF NOT VARIABLE OR CONSTANT                 TYPE      424
                               22201              LX2    X1                                                      TYPE      425
           201  11602                    TYP9A    BX6    X0*X2                                                   TYPE      426
                     5160000000 X                 SA6    FILL.                                                   TYPE      427
           202  0400000000 X                      EQ     E.TY        ISSUE NON-COMMA ERROR MESSAGE               TYPE      428
           203  5110000214 +             TYP9B    SA1    TYPA+1                                                  TYPE      429
                                                                                                                 TYPE      441
           204  5212000000 X             TYP12    SA1    X2+=XCHARMAP                                            TYPE      442
                          0301000000 X            ZR     X1,E.TE5    IF FILL. ALREADY SET                        TYPE      443
           205  43052                             MX0    L.CDPC                                                  TYPE      444
                     11601                        BX6    X0*X1                                                   TYPE      445
                          5160000000 X            SA6    FILL.                                                   TYPE      446
           206  0400000000 X                      EQ     E.TE5       SYNTAX ERROR                                TYPE      447
           207  56140                    TYP13    SA1    B4          ATTEMPT TO RESUME SCAN                      TYPE      448
                     6271777764                   SB7    X1-O.COMMA                                              TYPE      449
           210  0470000212 +                      ZR     B7,TYP14    IF A COMMA                                  TYPE      450
                          66441                   SB4    B4+B1                                                   TYPE      451
           211  0311000207 +                      NZ     X1,TYP13    IF NO *EOS*                                 TYPE      452
                          0400000000 X            EQ     PSP         EXIT..                                      TYPE      453
           212  67441                    TYP14    =B4    B4-1                                                    TYPE      454
                     0400000175 +                 EQ     TYP9        RESUME SCAN                                 TYPE      455
                                                                                                                 TYPE      456
           213                     1     TYPA     BSS    1           TEMP CELL FOR TYPE                          FCC1237    24
           214  06251603241117160003     TYPB     CON    8LFUNCTION+O.VAR                                        TYPE      458
           215  00000000000000000000     TYPC     DATA   0           NON-ZERO WHEN *IMPLICIT* STMMT IN PROGRESS  TYPE      459
           216  00000000000000000000     TYPD     DATA   0           LETTERS SELECTED ON IMPLICIT STATEMENT      TYPE      460
           217  00000000000000000000     TYPF     DATA   0           = 0 , NO IMPLICIT STMMT PROCESSED           FCC1258    13
                                        *                            = 1 , 1 IMPLICIT STMMT PROCESSED            FCC1258    14
                                                  LIST   D                                                       TYPE      461
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ANSI= 
             0 X                        E.MIJ 
             0 X                        PWE 
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE    10
                                                                      LITERALS
  
             0 X                        E.TY1 
             0 X                        TLV 
             0 X                        CHARMAP 
  
           220                                    END                                                            TYPE      462
  
                             55100B CM  STORAGE USED              824 STATEMENTS      827 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.950 SECONDS         314 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI=           0   EXTERNAL*       3/05      3/32      4/18
        ASK             0   EXTERNAL*       2/01 X    3/01      8/09
        CHAR            6   TSTEXT          2/53      4/52      5/05      7/56      8/30      8/37
                                            4/49      4/57      5/16      7/57      8/34
        CHARMAP         0   EXTERNAL*       9/21      9/30
        COMPLE=        23   PROGRAM*        3/20 L    3/20 E
  U     CO.DTS                              3/08 F
        CPM=1ST         0   EXTERNAL*       2/01 X
        CR.DEC          4   TSTEXT          8/26      9/11
        CSK             0   EXTERNAL*       2/01 X    3/37      4/29
        DIR             0   EXTERNAL*       2/10 X    9/13
        DOUA           17   PROGRAM*        2/48      3/16 L
        DOUBLE=         7   PROGRAM*        2/46 L    2/46 E
        DOU2           15   PROGRAM*        2/50      2/55      3/05 L
        DOU4           16   PROGRAM*        3/02      3/06 L
        ENTRY.          0   EXTERNAL*       1/43 X    6/35
        ERT             0   EXTERNAL*       1/55 X    9/11
        ESY             0   EXTERNAL*       1/55 X    9/02
        ETF             0   EXTERNAL*       1/43 X    6/26      8/06 S
        E.ADP           0   EXTERNAL*       1/47 X    3/05
        E.ANS           0   EXTERNAL*       1/47 X    4/18
        E.FM            0   EXTERNAL*       1/47 X    3/18
        E.MIJ           0   EXTERNAL*       4/22
        E.SU12          0   EXTERNAL*       1/49 X    8/42
        E.TE5           0   EXTERNAL*       1/47 X    9/31      9/35
        E.TT            0   EXTERNAL*       1/47 X    8/54
        E.TY            0   EXTERNAL*       1/47 X    9/27
        E.TYA           0   EXTERNAL*       1/47 X    3/32
        E.TYH           0   EXTERNAL*       1/48 X    3/34
        E.TYIK          0   EXTERNAL*       1/48 X    4/26
        E.TYI1          0   EXTERNAL*       1/48 X    4/38
        E.TYI2          0   EXTERNAL*       1/48 X    4/53      5/15
        E.TYI3          0   EXTERNAL*       1/48 X    5/04      5/18      5/18
        E.TYI4          0   EXTERNAL*       1/48 X    5/25      5/25
        E.TYI5          0   EXTERNAL*       1/48 X    5/22
        E.TYI6          0   EXTERNAL*       1/48 X    6/08
        E.TYI7          0   EXTERNAL*       1/49 X    6/14
        E.TY1           0   EXTERNAL*       5/52
        E.ZA            0   EXTERNAL*       1/49 X
        FILL.           0   EXTERNAL*       1/49 X    4/50 S    5/01      5/14 S    8/33 S    9/26 S    9/34 S
        FILL.3          0   EXTERNAL*       1/49 X    5/03 S
        FUNCTIO         0   EXTERNAL*       2/13 X    8/07
        FUNCTI=         0   EXTERNAL*       2/07 X    8/10
        IDENT           0   EXTERNAL*       1/43 X    6/31
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE    11
        SYMBOLIC REFERENCE TABLE. 
  
        IMPLIC=        31   PROGRAM*        4/16 L    4/16 E
        IMP3           50   PROGRAM*        4/56      5/05 L
        IMP35          56   PROGRAM*        5/17      5/19 L
        IMP4           60   PROGRAM*        5/21      5/23 L
        IMP5           62   PROGRAM*        5/08      5/23      5/26 L
        IMP6           72   PROGRAM*        5/50      5/55 L    6/02
        IMP7          113   PROGRAM*        6/29      6/30      6/51 L
        IMP74         116   PROGRAM*        6/57 L    7/12
        IMP76         122   PROGRAM*        7/02      7/11 L
        IMP.COMA       41   PROGRAM*        4/46 L    5/35
        IMP.EOS       101   PROGRAM*        6/11      6/25 L    7/25      7/30
        IMP.ER        124   PROGRAM*        1/38 E    7/22 L    7/26      7/31
        IMP.KEY        35   PROGRAM*        4/26 L    6/12      7/33
        IMP.(          37   PROGRAM*        4/35 L    8/28
        INTEGE=         3   PROGRAM*        2/38 L    2/38 E
        LGR             0   EXTERNAL*       2/13 X    2/57      8/08
        LG.VAR          7   TSTEXT          4/49      8/30
        LOGICA=         1   PROGRAM*        2/34 L    2/34 E
        L.CDPC         52   TSTEXT          9/22      9/32
        L.MODE          3   TSTEXT          6/27      8/43      8/44
        L.TYPE          5   TSTEXT          3/36      4/28      5/45
        MOD             0   EXTERNAL*       1/43 X    6/25
        M.CPLX          5   TSTEXT          3/21
        M.DBL           4   TSTEXT          3/06
        M.INT           2   TSTEXT          2/39
        M.LOG           1   TSTEXT          2/35
        M.REAL          3   TSTEXT          2/43
        M.TYP      100000   TSTEXT          8/48      8/57
        NARGS           0   EXTERNAL*       1/43 X    6/51
        NAT.TYP         0   EXTERNAL*       2/04 X    5/55      6/03
        O.COMMA        13   TSTEXT          5/30      6/09      7/29      9/18      9/37
        O.MIN           5   TSTEXT          5/06
        O.VAR           3   TSTEXT          3/16      4/48      5/12      8/31      9/05      9/46
        O.(            10   TSTEXT          4/37      9/09
        O.)            11   TSTEXT          5/33      7/24
        PRECISI         0   EXTERNAL*       2/13 X    2/56
        PRECIS=        21   PROGRAM*        3/17 L    3/17 E
        PSF             0   EXTERNAL*       1/52 X    8/19
        PSFA            0   EXTERNAL*       1/52 X    8/17 S
        PSP             0   EXTERNAL*       2/01 X    6/53      7/13      9/19      9/41
        PWE             0   EXTERNAL*       5/04      5/18      5/22      5/25      5/52      8/42      8/54
        P.             73   TSTEXT          6/29      6/57      8/46
        P.FP            4   TSTEXT          6/57      7/04
        P.PFNC         11   TSTEXT          6/29      6/33
        P.TYP          17   TSTEXT          8/46
        REAL=           5   PROGRAM*        2/42 L    2/42 E
        REFVAR          0   EXTERNAL*       1/43 X    8/27 S
        SSY             0   EXTERNAL*       1/55 X    8/39
        STAGE           0   EXTERNAL*       1/43 X    7/49
        STY             0   EXTERNAL*       2/04 X    6/34      7/07
        TLV             0   EXTERNAL*       9/07
        TS=SYM          0   EXTERNAL*       1/43 X    6/52
        TS.SYM          0   EXTERNAL*       1/44 X    6/28      8/39      8/39
        TYP           131   PROGRAM*        2/36      2/40      2/44      3/14      3/22      7/49 L
        TYPA          213   PROGRAM*        1/38 E    8/16 S    8/21      8/24 S    9/16      9/28      9/45 L
        TYPB          214   PROGRAM*        8/01      9/46 L
        TYPC          215   PROGRAM*        1/38 E    4/20 S    7/50      8/22      9/47 L
1       /TYPE  EXPLICIT / IMPLICIT T Y P E DECLARATIONS.              COMPASS 3.7-871.     24/05/02. 15.52.10.      PAGE    12
        SYMBOLIC REFERENCE TABLE. 
  
        TYPD          216   PROGRAM*        1/39 E    5/46      9/48 L
        TYPES           0   EXTERNAL*       2/13 X    3/35      4/27
        TYPE=          25   PROGRAM*        3/30 L    3/30 E
        TYPF          217   PROGRAM*        1/40 E    4/21      9/49 L
        TYP0          144   PROGRAM*        7/53      8/23 L
        TYP01         141   PROGRAM*        8/04      8/14 L
        TYP02         143   PROGRAM*        1/38 E    8/21 L
        TYP1          147   PROGRAM*        8/29 L    9/20
        TYP12         204   PROGRAM*        8/36      8/38      9/30 L
        TYP13         207   PROGRAM*        9/36 L    9/40
        TYP14         212   PROGRAM*        9/38      9/42 L
        TYP2          156   PROGRAM*        8/41      8/43 L
        TYP4          162   PROGRAM*        8/46      8/54 L
        TYP5          164   PROGRAM*        8/40      8/57 L
        TYP7          166   PROGRAM*        8/52      8/55      9/04 L
        TYP75         171   PROGRAM*        9/06      9/09 L
        TYP8          174   PROGRAM*        9/10      9/13 L
        TYP9          175   PROGRAM*        9/11      9/15 L    9/43
        TYP9A         201   PROGRAM*        9/23      9/25 L
        TYP9B         203   PROGRAM*        9/28 L
        VALUE.          0   EXTERNAL*       1/44 X    6/37
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      426              IDENT  FMT
                        426                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       422 
                                        LITERALS* LOCAL         422         4 
  
  
                                        ENTRY POINTS. 
  
                                        FMT6A           54+           FORMAT=         20+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CDD       E.FS3     E.FS7A    E.FS8E    E.FS14    FILL.     TSC       ANSI= 
                                        LASTCOL   E.FS4     E.FS7B    E.FS8F    E.FS18    ERT       CUA 
                                        TP.FMT    E.FS5     E.FS7C    E.FS8A    E.FS23    ESN       FORSKEL 
                                        TP=FMT    E.FS6     E.FS8     E.FS9     E.FS24    MVE       TRVA
                                        TS.STN    E.FS5A    E.FS8B    E.FS10    E.FS26    SSN       ALC 
                                        E.FS1     E.FS6A    E.FS8C    E.FS11    E.FS18A   PSP.F     PWE 
                                        E.FS2     E.FS7     E.FS8D    E.FS11A   E.FM      THC       SB.STNR 
  
  
  
  
                                                  IDENT  FMT                                                     FMT         2
                                         FMT      SECT   (FORMAT STATEMENT PROCESSOR),1                          FMT         3
  
                                                                                                                 FMT         4
                                                  SST    B,D                                                     FMT         5
                                                  NOREF  B,D                                                     FMT         6
                                                                                                                 FMT         7
                                         B=FMT    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     FMT         8
                                                                                                                 FMT         9
                                                  ENTRY  FMT6A                                                   FMT        10
                                                                                                                 FMT        11
                                        *         IN TABLES                                                      FMT        12
                                                  EXT    CDD,LASTCOL,TP.FMT,TP=FMT,TS.STN                        FEAT155E  296
                                                                                                                 FMT        14
                                        *         IN ERRORS                                                      FMT        15
                                                  EXT    E.FS1,E.FS2,E.FS3,E.FS4,E.FS5,E.FS6,E.FS5A,E.FS6A       FMT        16
                                                  EXT    E.FS7,E.FS7A,E.FS7B,E.FS7C                              FMT        17
                                                  EXT    E.FS8,E.FS8B,E.FS8C,E.FS8D,E.FS8E,E.FS8F,E.FS8A         FMT        18
                                                  EXT    E.FS9,E.FS10,E.FS11,E.FS11A                             FMT        19
                                                  EXT    E.FS14,E.FS18,E.FS23,E.FS24,E.FS26,E.FS18A              FMT        20
                                                  EXT    E.FM,FILL.                                              FMT        21
                                                                                                                 FMT        22
                                        *         IN ALLOC                                                       FMT        23
                                                  EXT    ERT,ESN,MVE,SSN                                         FMT        24
                                                                                                                 FMT        25
                                        *         IN MAIN                                                        FMT        26
                                                  EXT    PSP.F                                                   FMT        27
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     2
  
  
                                                                                                                 FMT        28
                                        *         IN LEX                                                         FMT        29
                                                  EXT    THC,TSC                                                 FMT        30
                                                                                                                 FMT        31
                                        *         IN NUM                                                         FMT        32
                                                  EXT    CUA                                                     FMT        33
                                                                                                                 FMT        34
                                        *         IN INIT                                                        FMT        35
                                                  EXT    FORSKEL,TRVA                                            FMT        36
  
  
  
  
                                        **        ASD -  ASSEMBLE DIGITS FOR *FORMAT* PROCESSOR.                 FMT        38
                                        *         ENTRY  (B5) = 10- CURRENT CHAR COUNT.                          FMT        39
                                        *                                                                        FMT        40
                                        *                IF (X0) = 0                                             FMT        41
                                        *                   (X4) = CHARACTER BEFORE 1ST DIGIT.                   FMT        42
                                        *                IF (X0) < 0                                             FMT        43
                                        *                   (X4) = 1ST DIGIT.                                    FMT        44
                                        *                                                                        FMT        45
                                        *                (X7) = CURRENT BUILD WORD.                              FMT        46
                                        *                                                                        FMT        47
                                        *         EXIT   (A4) _ NEXT CHARACTER AFTER DIGIT.                      FMT        48
                                        *                (X2) = ASSEMBLED BINARY NUMBER.                         FMT        49
                                        *                (X7) = UPDATED BUILD WORD.                              FMT        50
                                        *                                                                        FMT        51
                                        *         USES   A1,A4-A6  X0-X5  B2,B5,B7                               FMT        52
                                                                                                                 FMT        53
                                                                                                                 FMT        54
             0  0400400000 +             ASD      SUBR   0                                                       FMT        55
             1  5150000422 +                      SA5    ="NUM09"                                                FMT        56
                          13222                   BX2    0           INITIALIZE BINARY NUMBER                    FMT        57
             2  0330000003 +                      MI     X0,ASD1     IF 1ST DIGIT ALREADY IN REGISTER.           FMT        58
                          54441                   SA4    A4+B1                                                   FMT        59
                               26404              UX4    X4                                                      FMT        60
                                                                                                                 FMT        61
                                        **        CHECK FOR *=*                                                  FMT        62
                                                                                                                 FMT        63
             3  6274777723               ASD1     SB7    X4-1R=                                                  FMT        64
                          0570000006 +            NZ     B7,ASD5     IF NOT *=*                                  FMT        65
             4  6170000000 X                      ANSI   E.FS9       *=* IS NON-ANSI                             FMT        66
             5  13555                             BX5    0           FLAG THAT DIGIT IS *=*                      FMT        67
                     43274                        MX2    60                                                      FMT        68
                                                                                                                 FMT        69
                                        **        PACK CHARACTER IN BUILD WORD.                                  FMT        70
                                                                                                                 FMT        71
             6  63240                    ASD5     SB2    X4                                                      FMT        72
                     20706                        LX7    CHAR                                                    FMT        73
                          67551                   SB5    B5-B1                                                   FMT        74
                               22325              LX3    B2,X5                                                   FMT        75
             7  12774                             BX7    X7+X4                                                   FMT        76
                     22112                        LX1    B1,X2                                                   FMT        77
                          7204777744              SX0    X4-1R0                                                  FMT        78
            10  0550000012 +                      NZ     B5,ASD10    IF NOT FULL WORD                            FMT        79
                          6150000012              SB5    10                                                      FMT        80
            11  54771                             =A7    A7+1        STORE FORMAT WORD                           FMT        81
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     3
                                                                      ASD 
  
                     13777                        BX7    0                                                       FMT        82
                                                                                                                 FMT        83
                                        **        CONVERT TO BINARY                                              FMT        84
                                                                                                                 FMT        85
            12  0323000015 +             ASD10    PL     X3,ASD11    IF NOT DIGIT                                FMT        86
                          20203                   LX2    3                                                       FMT        87
                               36221              IX2    X2+X1                                                   FMT        88
            13  54441                             SA4    A4+B1                                                   FMT        89
                     36220                        IX2    X2+X0                                                   FMT        90
                          26404                   UX4    X4                                                      FMT        91
            14  0400000006 +                      EQ     ASD5        LOOP                                        FMT        92
                                                                                                                 FMT        93
            15  0315000000 +             ASD11    NZ     X5,ASDX     IF DIGIT IS NOT *=*                         FMT        94
                          54441                   SA4    A4+B1       ASSEMBLY CHAR AFTER *=*                     FMT        95
                               76510              =X5    1           FORCE EXIT AFTER NEXT CHAR                  FMT        96
            16  26404                             UX4    X4                                                      FMT        97
                     0400000006 +                 EQ     ASD5                                                    FMT        98
  
  
  
  
                                        **        FMT -  PROCESS "FORMAT" STATEMENT.                             FMT       100
                                        *                                                                        FMT       101
                                        *         *FMT* SCANS FORMAT FOR SYNTACTICAL CORRECTNESS CHECKING FOR    FMT       102
                                        *         ILLEGAL COMBINATIONS AN MISCELLANEOUS PROGRAMMER ERRORS.       FMT       103
                                        *         *FMT*S GOAL IS TO CONTINUE TO VERIFY THE FORMAT IN ALL CASES   FMT       104
                                        *         EVEN WHEN AN ERROR IS ENCOUNTERED                              FMT       105
                                        *                                                                        FMT       106
                                        *         ENTRY  B4 _ START OF *SB*                                      FMT       107
                                        *                *SB* IS UNTABBED.                                       FMT       108
                                        *         EXIT   TO *PSP.F*                                              FMT       109
                                        *                                                                        FMT       110
                                        *         CALLS  ANSI,CUA,ERT,ESN,MVE,PWE,SSN,THC,TSC                    FMT       111
                                        *                                                                        FMT       112
                                        *         USES   ALL REGISTERS.                                          FMT       113
                                                                                                                 FMT       114
                                                                                                                 FMT       115
            17  00000000000000012400              HEREIF FORMAT                                                  FMT       116
                                                                                                                 FMT       117
            20  56240                             SA2    B4                                                      FMT       118
                     5110000000 X                 SA1    =XSB.STNR   STATEMENT LABEL IN 0R FORM                  FCC0827     4
                               26202              UX2    X2                                                      FMT       120
            21  6262777726                        SB6    X2-1R(                                                  FMT       121
                          0560000000 X            NZ     B6,E.FM     IF HERE FROM *KEYWORD*                      FMT       122
            22  13555                             BX5    0                                                       FMT       124
                     66200                        SB2    B0                                                      FCC0827     5
                          0301000000 X            ZR     X1,E.FS1    IF NO STMT NUMBER.  (RETURN TO FMT6A)       FCC0827     6
            23  0331000054 +                      MI     X1,FMT6A    IF BAD LABEL                                FCC0827     7
                          10611                   BX6    X1                                                      FCC0827     8
                               20136              LX1    5*CHAR                                                  FMT       130
            24  43066                             MX0    -CHAR                                                   FMT       131
                     5130000423 +                 SA3    =5L                                                     FMT       132
                                                                                                                 FMT       133
                                        **        PACK STATEMENT NUMBER AND LINE NUMBER FOR I/O ROUTINES.        FMT       134
                                                                                                                 FMT       135
            25  20106                    FMT1     LX1    CHAR                                                    FMT       136
                     15210                        BX2    -X0*X1                                                  FMT       137
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     4
                                                                      OFE 
  
                          0302000025 +            ZR     X2,FMT1     IF NO DIGIT YET.                            FMT       138
            26  0302000031 +             FMT1A    ZR     X2,FMT1B    IF END OF STATEMENT NUMBER.                 FMT       139
                          20506                   LX5    CHAR                                                    FMT       140
            27  6122000006                        SB2    B2+CHAR                                                 FMT       141
                          20106                   LX1    CHAR                                                    FMT       142
                               12525              BX5    X2+X5                                                   FMT       143
            30  15210                             BX2    -X0*X1                                                  FMT       144
                     0400000026 +                 EQ     FMT1A       CONTINUE                                    FMT       145
                                                                                                                 FMT       146
                                        **        (X5) = 0L "STATEMENT NUMBER"                                   FEAT155EA  31
                                                                                                                 FMT       148
            31  6130000073               FMT1B    SB3    10*CHAR-1                                               FMT       149
                          67221                   SB2    B2-B1                                                   FMT       150
                               43001              MX0    1                                                       FMT       151
            32  67632                             SB6    B3-B2                                                   FMT       152
                     23020                        AX0    B2,X0                                                   FMT       153
                          15130                   BX1    -X0*X3                                                  FMT       154
                               22565              LX5    B6,X5                                                   FMT       155
            33  12515                             BX5    X1+X5       ADD IN TRAILING BLANKS.                     FMT       156
                     20622                        LX6    P.STN                                                   FEAT155EA  32
                          5110000000 X            SCAN   TS.STN,SSN                                              FMT       172
            35  0670000040 +                      PL     B7,FMT2     IF *IT*                                     FMT       173
                          7170000402              =X7    M.SNFMT+M.SNDEF                                         FMT       174
            36  0100000000 X                      ADSTN  A1          ADD TO TABLE.                               FMT       175
            37  0400000051 +                      EQ     FMT6        CONTINUE.                                   FMT       176
                                                                                                                 FMT       177
            40  20663                    FMT2     IFBIT  X6,SNFMT,FMT4     IF FORMAT                             FMT       178
            41  6120000000 X                      SB2    E.FS23                                                  FMT       179
                          20673                   IFBIT  X6,SNDOT/SNFMT,FMT3                                     FMT       180
                          6120000000 X            SB2    E.FS24                                                  FMT       181
            43  76111                    FMT3     =X1    M.SNDEF                                                 FMT       182
                     12612                        BX6    X1+X2                                                   FMT       183
                          54620                   SA6    A2                                                      FMT       184
                               66720              FATAL  B2          OUTPUT ERROR.                               FMT       185
            45  0400000054 +                      EQ     FMT6A                                                   FMT       186
                                                                                                                 FMT       187
                                        **        SET *FORMAT* DEFINITION INTO TS.STN                            FMT       188
                                                                                                                 FMT       189
            46  6120000000 X             FMT4     SB2    E.FS26                                                  FMT       190
                          20607                   IFBIT  X6,SNDEF/SNFMT,FMT3                                     FMT       191
                          76111                   =X1    M.SNDEF                                                 FMT       192
                               12612              BX6    X1+X2                                                   FMT       193
            50  54620                             SA6    A2          RESET INDICATING *FORMAT* + *DEFINED*       FMT       194
                                                                                                                 FMT       195
                                        **        HERE WITH REGISTERS = TO                                       FMT       196
                                        **        (B7) _ SYMBOL ENTRY FOR STATEMENT NUMBER.                      FMT       197
                                        **        (X5) = FORMAT NUMBER FOR ENTRY INTO FORMAT SKELETON TABLE.     FMT       198
                                                                                                                 FMT       199
            51  5130000000 X             FMT6     SA3    TP=FMT                                                  FMT       200
                          5140000000 X            SA4    TS.STN                                                  FMT       201
            52  66771                             SB7    B7+B1       TS.STN ORDINAL                              FMT       202
                     20330                        LX3    P.SNAD      TP.FMT ORDINAL                              FMT       203
                          53447                   SA4    X4+B7       TAG.                                        FMT       204
                               36643              IX6    X4+X3       ADD-IN POINTER ORDINAL.                     FMT       205
            53  5160000000 X                      SA6    TRVA        SAVE TAG FOR REF-MAP (IF REQUESTED)         FMT       206
                          54640                   SA6    A4          RESET TS.STN TO CONTAIN TP.FMT POINTER.     FMT       208
            54  5120000000 X             FMT6A    SA2    LASTCOL                                                 FMT       209
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     5
                                                                      OFE 
  
                          6222777776              SB2    X2-1                                                    FMT       210
            55  10755                             BX7    X5                                                      FMT       211
                     54102                        SA1    A0+B2                                                   FMT       212
                          7261777725              SX6    X1-1R)                                                  FMT       213
            56  5170000000 X                      SA7    FORSKEL     0L [STATEMENT NUMBER]                       FMT       214
                          0316000000 X            NZ     X6,E.FS2    IF *)* - ERROR                              FMT       215
            57  6160776001                        SB6    -1776B                                                  FCC0844    21
                          43073                   MX0    -1                                                      FMT       216
                               27660              PX6    B6,X0                                                   FCC0844    22
            60  54611                             SA6    A1+B1       MARK *EOS*                                  FMT       218
                                                                                                                 FMT       219
                                        **        VALIDATE *FORMAT* FOR SYNTACTICAL CORRECTNESS.                 FMT       220
                                                                                                                 FMT       221
                     66600                        SB6    B0                                                      FMT       222
                          13666                   BX6    0                                                       FMT       223
            61  6150000011                        SB5    9           CHAR/WORD CTR (NORMALLY 10 AT START)        FMT       224
                          56440                   SA4    B4          FETCH 1ST *(* OF FORMAT                     FMT       225
            62  5160000413 +                      SA6    FMTRL       INITILIZE CHAR/RECORD CTR                   FMT       226
                          5160000414 +            SA6    FMTRLC      CLEAR RECORD LENGTH CHECK.                  FMT       227
            63  66300                             SB3    B0          INITIALIZE PAREN LEVEL CTR                  FMT       228
                     26704                        UX7    X4                                                      FMT       229
                          0400000315 +            EQ     FMT.NX      PROCESS 1ST CHAR AFTER LEFT PAREN           FMT       230
                                                                                                                 FMT       231
                                        **        MASTER LOOP FOR CHECKING SYNTAX OF FORMAT.                     FMT       232
                                        *         REGISTERS CONTAIN                                              FMT       233
                                        *         (A4) = CURRENT *SB* WORD PROCESSING.                           FMT       234
                                        *         (A7) = SKELETON STORE ADDRESS-1.                               FMT       235
                                        *         (X2) = REPEAT COUNT.                                           FMT       236
                                        *         (X7) = CURRENT BUILD WORD.                                     FMT       237
                                        *         (B3) = PARENTHESIS LEVEL.                                      FMT       238
                                                                                                                 FMT       239
                                        **        ERROR ROUTINES CALLED SAVE ALL REGISTERS EXCEPT                FMT       240
                                        *         A1,A6  X0,X1  B7                                               FMT       241
                                                                                                                 FMT       242
                                        **        HERE ON *(*                                                    FMT       243
                                        *         UPDATE *(* COUNT, SAVE LEVEL STACK WORD, CHECK MAX PAREN LEVEL FMT       244
                                                                                                                 FMT       245
            64                           FMTBASE  BSS    0                                                       FMT       246
            64  0312000067 +             FMT.LP   NZ     X2,FMT.LP1  IF NOT NULL, ZERO, OR *=* AS REPEAT COUNT   FMT       247
                          10522                   BX5    X2                                                      FMT       248
                               76210              =X2    1                                                       FMT       249
            65  0335000067 +                      MI     X5,FMT.LP1  IF NULL OR *=*                              FMT       250
                          76200                   =X2    0                                                       FMT       251
            66  6170000000 X                      FATAL  E.FS8A      ZERO REPEAT COUNT                           FMT       252
            67  5130000413 +             FMT.LP1  SA3    FMTRL                                                   FMT       253
                          66331                   =B3    B3+1                                                    FMT       254
                               20322              LX3    18                                                      FMT       255
            70  12632                             BX6    X3+X2       24/0,18/FMTRL,18/REPEAT COUNT               FMT       256
                     7113777765                   SX1    B3-LVMAX-1                                              FMT       257
            71  5163000400 +                      SA6    B3+LVSTAK-1 NTH LEVEL STACK WORD                        FMT       258
                          0331000315 +            MI     X1,FMT.NX   IF PAREN LEVEL .LE. MAX -- OK               FMT       259
            72  6170000000 X                      FATAL  E.FS3       EXCEEDED MAX PAREN LEVELS                   FMT       260
            73  67331                             =B3    B3-1        IN CASE MORE LEFT PARENS                    FMT       261
                     0400000315 +                 EQ     FMT.NX                                                  FMT       262
                                                                                                                 FMT       263
                                        **        HERE ON *)*                                                    FMT       264
                                                                                                                 FMT       265
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     6
                                                                      OFE 
  
            74  0430000101 +             FMT.RP   ZR     B3,FMT.RP1  IF ZERO-LEVEL PAREN                         FMT       266
                          5133000400 +            SA3    B3+LVSTAK-1                                             FMT       267
            75  67331                             SB3    B3-B1                                                   FMT       268
                     0333000315 +                 MI     X3,FMT.NX   IF A SLASH OR TAB WITHIN PAREN LEVEL        FMT       269
                               73230              SX2    X3                                                      FMT       270
            76  5110000413 +                      SA1    FMTRL                                                   FMT       271
                          21322                   AX3    18                                                      FMT       272
                               37013              IX0    X1-X3                                                   FMT       273
            77  42120                             IX1    X2*X0       REPEAT COUNT * GROUP LENGTH                 FMT       274
                     36613                        IX6    X1+X3       INCREMENT RECORD LENGTH                     FMT       275
                          54610                   SA6    A1                                                      FMT       276
           100  0400000315 +                      EQ     FMT.NX                                                  FMT       277
                                                                                                                 FMT       278
           101  54441                    FMT.RP1  SA4    A4+B1       CHECK FOR LEGAL TERMINAL *)*                FMT       279
                     0334000340 +                 MI     X4,FMT.EOS1 IF *EOS*                                    FMT       280
                               73640              SX6    X4                                                      FCC1385    10
           102  20666                             LX6    9*CHAR                                                  FCC1385    11
                     5160000000 X                 SA6    FILL.       BAD CHAR TO FILL.                           FCC1385    12
           103  6170000000 X                      FATAL  E.FS18      CHAR FOLLOWS TERMINAL *)*                   FMT       281
           104  0400000340 +                      EQ     FMT.EOS1    FINISH UP                                   FMT       282
                                                                                                                 FMT       283
                                                                                                                 FMT       284
                                        **        HERE ON *A,D,E,F,G,I,L,O,R,V,Z*                                FMT       285
                                                                                                                 FMT       286
           105                           FMT.O    BSS    0                                                       FMT       287
           105                           FMT.R    BSS    0                                                       FMT       288
           105                           FMT.V    BSS    0                                                       FMT       289
           105                           FMT.Z    BSS    0                                                       FMT       290
           105  6170000000 X                      ANSI   E.FS8       O,R,V,Z ARE NON-ANSI                        FMT       291
           106                           FMT.A    BSS    0                                                       FMT       292
           106                           FMT.D    BSS    0                                                       FMT       293
           106                           FMT.E    BSS    0                                                       FMT       294
           106                           FMT.F    BSS    0                                                       FMT       295
           106                           FMT.G    BSS    0                                                       FMT       296
           106                           FMT.I    BSS    0                                                       FMT       297
           106  63440                    FMT.L    SB4    X4                                                      FMT       298
                     0312000111 +                 NZ     X2,FMT.L1   IF NOT 0,NULL,OR *=* AS REPEAT COUNT        FMT       299
                               10522              BX5    X2                                                      FMT       300
           107  76210                             =X2    1                                                       FMT       301
                     0335000111 +                 MI     X5,FMT.L1   IF NULL OR *=* AS REPEAT COUNT              FMT       302
                               76200              =X2    0                                                       FMT       303
           110  6170000000 X                      FATAL  E.FS8A      ZERO REPEAT COUNT                           FMT       304
                                                                                                                 FMT       305
                                        **        PROCESS FIELD WIDTH W                                          FMT       306
                                                                                                                 FMT       307
           111  10622                    FMT.L1   BX6    X2                                                      FMT       308
                     43000                        MX0    0                                                       FMT       309
                          5160000400 +            SA6    FMTRC       SAVE REPEAT COUNT                           FMT       310
           112  0100000000 +                      RJ     ASD         ASSEMBLY DIGITS                             FMT       311
           113  0312000116 +                      NZ     X2,FMT.L3   IF NOT 0,NULL,OR *=* AS FIELD WIDTH         FMT       312
                          0332000116 +            MI     X2,FMT.L3   IF W IS *=*                                 FMT       313
           114  7114777751                        SX1    B4-1RV                                                  FCC0589     8
                          0301000330 +            ZR     X1,FMT.JP   IF V, MAY BE SUBSTITUTED BY P OR X          FCC0589     9
           115  6170000000 X                      FATAL  E.FS8B      W IS ZERO OR NULL                           FMT       314
                                                                                                                 FMT       315
                                        **        PROCESS MINIMAL DIGITS Z                                       FMT       316
                                                                                                                 FMT       317
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     7
                                                                      OFE 
  
           116  5150000417 +             FMT.L3   SA5    DEFG                                                    FMT       318
                          10622                   BX6    X2                                                      FMT       319
                               22545              LX5    B4,X5                                                   FMT       320
           117  10122                             BX1    X2                                                      FMT       321
                     5160000412 +                 SA6    FMTFW                                                   FMT       322
           120  0335000130 +                      MI     X5,FMT.L5   IF D,E,F,OR G                               FMT       323
                          5150000420 +            SA5    IOV                                                     FMT       324
           121  13222                             BX2    0                                                       FMT       325
                     22545                        LX5    B4,X5                                                   FMT       326
                          0325000144 +            PL     X5,FMT.URL  IF NOT I,O,V                                FMT       327
           122  6224777720                        SB2    X4-1R.                                                  FMT       328
                          0520000144 +            NZ     B2,FMT.URL  IF MINIMUM DIGITS NOT SPECIFIED             FMT       329
           123  6170000000 X                      ANSI   E.FS8C      MINIMUM DIGITS IS NON-ANSI                  FMT       330
           124  43000                             MX0    0                                                       FMT       331
                     0100000000 +                 RJ     ASD         ASSEMBLY DIGITS                             FMT       332
           125  6124777751                        SB2    B4-1RV                                                  FMT       333
                          5110000412 +            SA1    FMTFW                                                   FMT       334
           126  0520000144 +                      NZ     B2,FMT.URL  IF NOT V                                    FMT       335
                          7262000003              SX6    X2+3        W .GE. D+E+3                                FMT       336
           127  0400000137 +                      EQ     FMT.L9                                                  FMT       337
                                                                                                                 FMT       338
                                        **        PROCESS DECIMAL WIDTH D                                        FMT       339
                                                                                                                 FMT       340
           130  6224777720               FMT.L5   SB2    X4-1R.                                                  FMT       341
                          0420000133 +            ZR     B2,FMT.L7                                               FMT       342
           131  6170000000 X                      ANSI   E.FS8D      DECIMAL POINT EXPECTED FOR D,E,F,G          FMT       343
           132  76211                             =X2    2                                                       FMT       344
                     10166                        BX1    X6          FIELD WIDTH                                 FMT       345
                          0400000144 +            EQ     FMT.URL                                                 FMT       346
                                                                                                                 FMT       347
           133  43000                    FMT.L7   MX0    0                                                       FMT       348
                     0100000000 +                 RJ     ASD         ASSEMBLY DIGITS                             FMT       349
           134  7222000002                        SX2    X2+2        W .GE. D+2                                  FMT       350
                          5110000412 +            SA1    FMTFW                                                   FMT       351
           135  6124777772                        SB2    B4-1RE                                                  FMT       352
                          0520000144 +            NZ     B2,FMT.URL  IF NOT E CONVERSION DESCRIPTOR              FMT       353
           136  7222000003                        SX2    X2+3        W .GE. D+5                                  FMT       354
                          7262777775              SX6    X2-2        W .GE. D+E+3                                FMT       355
                                                                                                                 FMT       356
                                        **        PROCESS EXPONENT LENGTH E                                      FMT       357
                                                                                                                 FMT       358
           137  5150000421 +             FMT.L9   SA5    DE                                                      FMT       359
                          63240                   SB2    X4                                                      FMT       360
                               22525              LX5    B2,X5                                                   FMT       361
           140  0325000144 +                      PL     X5,FMT.URL  IF EXPONENT LENGTH IS NOT SPECIFIED         FMT       362
                          43000                   MX0    0                                                       FMT       363
           141  0100000000 +                      RJ     ASD         ASSEMBLY DIGITS                             FMT       364
           142  6170000000 X                      ANSI   E.FS8E      EXPONENT LENGTH IS NON-ANSI                 FMT       365
           143  5110000412 +                      SA1    FMTFW                                                   FMT       366
                          36262                   IX2    X6+X2                                                   FMT       367
                                                                                                                 FMT       368
                                        **        UPDATE RECORD LENGTH.                                          FMT       369
                                        *         CHECK W AGAINST SOME MINIMUM AND UPDATE RECORD LENGTH          FMT       370
                                        *                                                                        FMT       371
                                        *         ENTRY  (X1) = FIELD WIDTH.           (W)                       FMT       372
                                        *                (X2) = MINIMUM FIELD WIDTH                              FMT       373
                                                                                                                 FMT       374
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     8
                                                                      OFE 
  
           144  5130000400 +             FMT.URL  SA3    FMTRC                                                   FMT       375
                          37012                   IX0    X1-X2       FIELD WIDTH - MINIMUM                       FMT       376
                               43274              MX2    60                                                      FMT       377
           145  0331000322 +                      MI     X1,FMT.RL   IF FIELD WIDTH IS *=*                       FMT       378
                          42613                   IX6    X1*X3                                                   FMT       379
           146  5130000413 +                      SA3    FMTRL                                                   FMT       380
                          0320000150 +            PL     X0,FMT.URL5 IF FIELD WIDTH .GE. MINIMUM                 FMT       381
           147  6170000000 X                      WARN   E.FS8F                                                  FMT       382
           150  36663                    FMT.URL5 IX6    X6+X3                                                   FMT       383
                     54630                        SA6    A3          STORE NEW RECORD LENGTH                     FMT       384
                          0400000322 +            EQ     FMT.RL      CHECK CURRENT LINE LENGTH                   FMT       385
                                                                                                                 FMT       386
                                        **        HERE ON *H*                                                    FMT       387
                                                                                                                 FMT       388
           151  5130000413 +             FMT.H    SA3    FMTRL                                                   FMT       389
                          0312000154 +            NZ     X2,FMT.H5   IF COUNT SPECIFIED.                         FMT       390
           152  6170000000 X                      FATAL  E.FS10      ZERO OR *=* COUNT SPECIFIED                 FMT       391
           153  0400000354 +                      EQ     FMT.ENX     ADVANCE TO NEXT SEPARATOR.                  FMT       392
                                                                                                                 FMT       393
           154  36632                    FMT.H5   IX6    X3+X2                                                   FMT       394
                     54170                        SA1    A7                                                      FMT       395
                          54630                   SA6    A3          UPDATE RECORD LENGTH.                       FMT       396
                               10611              BX6    X1                                                      FMT       397
           155  54670                             SA6    A7          FWA-1                                       FMT       398
                     73020                        SX0    X2          COUNT                                       FMT       399
                          22607                   LX6    X7                                                      FMT       400
                               64441              =B4    A4+1                                                    FMT       401
           156  0100000000 X                      RJ     THC         TRANSLATE HOLLERITH                         FMT       402
           157  54360                             SA3    A6                                                      FMT       403
                     10733                        BX7    X3                                                      FMT       404
                          54760                   SA7    A6          RESET *A7*                                  FMT       405
                               22702              LX7    X2                                                      FMT       406
           160  56440                             SA4    B4                                                      FMT       407
                     0301000354 +                 ZR     X1,FMT.ENX  IF ERROR OCCURRED                           FMT       408
           161  0400000313 +                      EQ     FMT.SL5                                                 FMT       409
                                                                                                                 FMT       410
                                        **        HERE ON *T*                                                    FMT       411
                                                                                                                 FMT       412
           162  13000                    FMT.T    BX0    0                                                       FMT       413
                     0100000000 +                 RJ     ASD         ASSEMBLY DIGITS                             FMT       414
           163  43001                             MX0    1                                                       FMT       415
                     5110000401 +                 SA1    LVSTAK                                                  FMT       416
                               66600              SB6    B0                                                      FMT       417
           164  12601                    FMT.T3   BX6    X0+X1       SET SLASH-TAB FLAG IN LEVEL STACK           FMT       418
                     66661                        =B6    B6+1                                                    FMT       419
                          54610                   SA6    A1                                                      FMT       420
                               54111              =A1    A1+1                                                    FMT       421
           165  0763000164 +                      LT     B6,B3,FMT.T3   IF MORE PRECEDING LEVELS                 FMT       422
                          5130000413 +            SA3    FMTRL                                                   FMT       423
           166  22502                             LX5    X2                                                      FMT       424
                     43274                        MX2    60                                                      FMT       425
                          0305000173 +            ZR     X5,FMT.T5   IF *T* EDIT IS ZERO OR *=*                  FMT       426
           167  7265777776                        SX6    X5-1        TAB EDIT CONVERTED TO RECORD LENGTH         FMT       427
                          37063                   IX0    X6-X3                                                   FMT       428
                               54630              SA6    A3                                                      FMT       429
           170  0320000322 +                      PL     X0,FMT.RL   *T* EDIT .GE. CURRENT COLUMN                FMT       430
                          6170000000 X            WARN   E.FS5       *T* CODE OVERLAYS PREVIOUS LINE IMAGE       FMT       431
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE     9
                                                                      OFE 
  
           172  0400000322 +                      EQ     FMT.RL                                                  FMT       432
                                                                                                                 FMT       433
           173  13666                    FMT.T5   BX6    0                                                       FMT       434
                     54630                        SA6    A3                                                      FMT       435
                          0335000330 +            MI     X5,FMT.JP   IF *T* EDIT IS *=*                          FMT       436
           174  6170000000 X                      ANSI   E.FS5A      *T* EDIT IS ZERO, RESET TO ONE              FMT       437
           175  0400000330 +                      EQ     FMT.JP                                                  FMT       438
                                                                                                                 FMT       439
                                        **        HERE ON *+* OR *-*                                             FMT       440
                                                                                                                 FMT       441
           176                           FMT.PL   BSS    0                                                       FMT       442
           176  63440                    FMT.MIN  SB4    X4          SAVE CHAR, *+* OR *-*                       FMT       443
                     54141                        =A1    A4+1                                                    FMT       444
                          43000                   MX0    0                                                       FMT       445
                               26301              UX3    X1                                                      FMT       446
           177  6273777754                        SB7    X3-1RS                                                  FMT       447
                          0470000315 +            ZR     B7,FMT.NX   IF + OR - S                                 FMT       448
           200  0100000000 +                      RJ     ASD         ASSEMBLE DIGITS                             FMT       449
           201  6274777757                        SB7    X4-1RP                                                  FMT       450
                          0470000315 +            ZR     B7,FMT.NX   IF NEXT IS *P*                              FMT       451
           202  6264777747                        SB6    X4-1RX                                                  FMT       452
                          0460000207 +            ZR     B6,FMT.X0   IF NEXT IS *X*                              FMT       453
           203  6170000000 X                      FATAL  E.FS6       SIGN CAN ONLY PRECEDE *P* OR *NX*           FMT       454
           204  55441                             =A4    A4-1                                                    FMT       455
                     0400000354 +                 EQ     FMT.ENX     ADVANCE TO NEXT SEPARATOR                   FMT       456
                                                                                                                 FMT       457
           205  6170000000 X             FMT.S    ANSI   E.FS6A      S CODE IS NON-ANSI                          FMT       458
           206  0400000315 +                      EQ     FMT.NX                                                  FMT       459
                                                                                                                 FMT       460
                                        **        PROCESS *+NX* OR *-NX*                                         FMT       461
                                                                                                                 FMT       462
           207  6170000000 X             FMT.X0   ANSI   E.FS7       + OR - NX IS NON-ANSI                       FMT       463
           210  7144777731                        SX4    B4-1R-                                                  FMT       464
                          0314000212 +            NZ     X4,FMT.X    IF SKIP COUNT IS FORWARD                    FMT       465
           211  14222                             BX2    -X2                                                     FMT       466
                                                                                                                 FMT       467
                                        **        HERE ON *X*                                                    FMT       468
                                                                                                                 FMT       469
           212  5130000413 +             FMT.X    SA3    FMTRL                                                   FMT       470
                          0312000221 +            NZ     X2,FMT.X2   IF SKIP COUNT IS NOT NULL, ZERO, OR *=*     FMT       471
           213  55141                             =A1    A4-1                                                    FMT       472
                     6170000000 X                 SB7    E.FS7C      SKIP COUNT IS ZERO                          FMT       473
           214  6221777744                        SB2    X1-1R0                                                  FMT       474
                          0420000220 +            ZR     B2,FMT.X1   IF SKIP COUNT IS ZERO                       FMT       475
           215  6261777723                        SB6    X1-1R=                                                  FMT       476
                          0460000313 +            ZR     B6,FMT.SL5  IF SKIP COUNT IS *=*                        FMT       477
           216  6170000000 X                      SB7    E.FS7B      NULL SKIP COUNT                             FMT       478
                          76210                   =X2    1                                                       FMT       479
           217  0314000220 +                      NZ     X4,FMT.X1   IF SKIP COUNT IS FORWARD                    FMT       480
                          77201                   =X2    -1                                                      FMT       481
           220  0100000000 X             FMT.X1   ANSI   B7                                                      FMT       482
           221  36623                    FMT.X2   IX6    X2+X3                                                   FMT       483
                     0326000223 +                 PL     X6,FMT.X3   IF RECORD LENGTH UPDATE IS OK               FMT       484
                               13666              BX6    0           RESET RECORD LENGTH                         FMT       485
           222  6170000000 X                      WARN   E.FS7A      BACKSPACE BEYOND 1ST COLUMN,RESET AT 1ST    FMT       486
           223  54630                    FMT.X3   SA6    A3          UPDATE RECORD LENGTH                        FMT       487
                     0400000313 +                 EQ     FMT.SL5                                                 FMT       488
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    10
                                                                      OFE 
  
                                                                                                                 FMT       489
                                        **        HERE ON DIGIT.                                                 FMT       490
                                                                                                                 FMT       491
           224                           FMT.=    BSS    0                                                       FMT       492
           224                           FMT.0    BSS    0                                                       FMT       493
           224                           FMT.1    BSS    0                                                       FMT       494
           224                           FMT.2    BSS    0                                                       FMT       495
           224                           FMT.3    BSS    0                                                       FMT       496
           224                           FMT.4    BSS    0                                                       FMT       497
           224                           FMT.5    BSS    0                                                       FMT       498
           224                           FMT.6    BSS    0                                                       FMT       499
           224                           FMT.7    BSS    0                                                       FMT       500
           224                           FMT.8    BSS    0                                                       FMT       501
           224  10077                    FMT.9    BX0    X7                                                      FMT       502
                     21706                        AX7    CHAR                                                    FMT       503
                          0310000227 +            NZ     X0,FMT.9A   IF DIGIT DID NOT CAUSE FLUSH OF BUILD WORD. FMT       504
           225  55171                             SA1    A7-B1                                                   FMT       505
                     54370                        SA3    A7                                                      FMT       506
                          43006                   MX0    CHAR                                                    FMT       507
                               10711              BX7    X1                                                      FMT       508
           226  66500                             SB5    B0                                                      FMT       509
                     54710                        SA7    A1          RESET *A7* TO LAST                          FMT       510
                          21306                   AX3    CHAR                                                    FMT       511
                               15730              BX7    -X0*X3      RESET BUILD WORD.                           FMT       512
           227  43001                    FMT.9A   MX0    1           INDICATE CHARACTER ALREADY IN (X4)          FMT       513
                     66551                        SB5    B5+B1                                                   FMT       514
                          0100000000 +            RJ     ASD         ASSEMBLE DIGITS.                            FMT       515
           230  5130000416 +                      SA3    FMTSPEC                                                 FMT       516
                          63240                   SB2    X4                                                      FMT       517
                               22023              LX0    B2,X3                                                   FMT       518
           231  0330000330 +                      MI     X0,FMT.JP   IF NEXT CHAR ALLOWED AFTER REPEAT COUNT     FMT       519
                          73640                   SX6    X4                                                      FMT       520
                               20666              LX6    9*CHAR                                                  FMT       521
           232  5160000000 X                      SA6    FILL.       CHARACTER FOR ERROR PROCESSOR               FMT       522
                          6170000000 X            FATAL  E.FS4       ILLEGAL CHAR FOLLOWING REPEAT COUNT         FMT       523
           234  0400000330 +                      EQ     FMT.JP                                                  FMT       524
                                                                                                                 FMT       525
                                        **        HERE ON * OR "                                                 FMT       526
                                        *         CONVERT *---* OR "---" TO NNH---                               FMT       527
                                                                                                                 FMT       528
           235                           FMT.QT   BSS    0                                                       FMT       529
           235  73540                    FMT.STR  SX5    X4          SET FLAG THAT CALLER IS *FMT*               FMT       530
                     64440                        SB4    A4          FWA OF STRING                               FMT       531
                                                                                                                 FMT       532
                                        *         REPLACE *DELIM* WITH *,*, ENSURE SPACE FOR NN                  FMT       533
                                                                                                                 FMT       534
           236  0317000241 +             FMT.S1   NZ     X7,FMT.S2   IF *DELIM* DID NOT FORCE NEW WORD           FMT       535
                          54370                   SA3    A7                                                      FMT       536
                               43066              MX0    60-CHAR     REPLACE *DELIM* WITH *,*                    FMT       537
           237  11103                             BX1    X0*X3                                                   FMT       538
                     7140000056                   SX4    1R,                                                     FMT       539
                               12714              BX7    X1+X4                                                   FMT       540
           240  54770                             SA7    A7                                                      FMT       541
                     13777                        BX7    0                                                       FMT       542
                          0400000246 +            EQ     FMT.S4                                                  FMT       543
                                                                                                                 FMT       544
           241  21706                    FMT.S2   AX7    CHAR        REMOVE *DELIM*                              FMT       545
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    11
                                                                      OFE 
  
                     0551000245 +                 NE     B5,B1,FMT.S3 IF THERE IS SPACE FOR NN                   FMT       546
                               20714              LX7    2*CHAR      INSERT *, * AND FORCE NEW WORD              FMT       547
           242  7140005655                        SX4    2R,                                                     FMT       548
                          12774                   BX7    X7+X4                                                   FMT       549
                               54771              =A7    A7+1                                                    FMT       550
           243  13777                             BX7    0                                                       FMT       551
                     6150000012                   SB5    10                                                      FMT       552
           244  0400000246 +                      EQ     FMT.S4                                                  FMT       553
                                                                                                                 FMT       554
           245  20706                    FMT.S3   LX7    CHAR        INSERT *,*                                  FMT       555
                     7140000056                   SX4    1R,                                                     FMT       556
                               12774              BX7    X7+X4                                                   FMT       557
                                                                                                                 FMT       558
                                        *         ALLOCATE NN, SAVE POINTER TO NN                                FMT       559
                                                                                                                 FMT       560
           246  20714                    FMT.S4   LX7    2*CHAR      SPACE MADE FOR NN                           FMT       561
                     6155777775                   SB5    B5-2                                                    FMT       562
                               76055              SX0    B5+B5       2*SHIFT COUNT FOR NN                        FMT       563
           247  36400                             IX4    X0+X0       4*                                          FMT       564
                     74370                        SX3    A7                                                      FMT       565
                          36640                   IX6    X4+X0       6*                                          FMT       566
                               20322              LX3    18                                                      FMT       567
           250  12636                             BX6    X3+X6       24/0, 18/*A7*, 18/SHIFT COUNT               FMT       568
                     5160000415 +                 SA6    FMTSTR                                                  FMT       569
           251  0550000253 +                      NZ     B5,FMT.S5   IF ROOM LEFT IN WORD                        FMT       570
                          6150000012              SB5    10                                                      FMT       571
           252  54771                             =A7    A7+1                                                    FMT       572
                     13777                        BX7    0                                                       FMT       573
                                                                                                                 FMT       574
                                        *         INSERT H IN OUTPUT WORD AND TRANSFER X7,A7 TO X6,A6            FMT       575
                                                                                                                 FMT       576
           253  54370                    FMT.S5   SA3    A7                                                      FMT       577
                     7110000010                   SX1    1RH                                                     FMT       578
                               10633              BX6    X3                                                      FMT       579
           254  20706                             LX7    CHAR                                                    FMT       580
                     54670                        SA6    A7          SET *A6* TO *A7*                            FMT       581
                          12671                   BX6    X7+X1       SET *X6* TO *X7* + *H*                      FMT       582
                               67551              =B5    B5-1                                                    FMT       583
           255  0550000257 +                      NZ     B5,FMT.S6   IF ROOM LEFT IN WORD                        FMT       584
                          6150000012              SB5    10                                                      FMT       585
           256  54661                             =A6    A6+1                                                    FMT       586
                     13666                        BX6    0                                                       FMT       587
                                                                                                                 FMT       588
           257  0100000000 X             FMT.S6   RJ     TSC         TRANSLATE STRING DELIMITED CONSTANT         FMT       589
           260  54360                             SA3    A6                                                      FMT       590
                     7100000143                   SX0    99                                                      FMT       591
                               10733              BX7    X3                                                      FMT       592
           261  56440                             SA4    B4          SET POINTER IN CASE OF ERROR                FMT       593
                     54760                        SA7    A6          *A7* SET TO *A6*                            FMT       594
                          66630                   SB6    B3                                                      FMT       595
                               22702              LX7    X2          *X7* SET TO *X2*                            FMT       596
           262  0301000354 +                      ZR     X1,FMT.ENX  IF ERROR OCCURRED                           FMT       597
                          7110004444              SX1    2R99                                                    FMT       598
           263  0335000266 +                      MI     X5,FMT.S7   IF MAX COUNT OF 99 REACHED                  FMT       599
                          7132777634              SX3    B2-99                                                   FMT       600
           264  14133                             BX1    -X3                                                     FMT       601
                     22001                        LX0    X1          LENGTH OF CONSTANT                          FMT       602
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    12
                                                                      OFE 
  
                          0100000000 X            RJ     CDD         CONVERT DECIMAL TO DISPLAY                  FMT       603
           265  43360                             MX3    60-12                                                   FMT       604
                     66360                        SB3    B6                                                      FMT       605
                          15163                   BX1    -X3*X6      ONLY 2 DIGITS ALLOWED                       FMT       606
                                                                                                                 FMT       607
                                        *         INSERT NN INTO ALOCATED SPACE                                  FMT       608
                                                                                                                 FMT       609
           266  5130000413 +             FMT.S7   SA3    FMTRL       UPDATE RECORD LENGTH                        FMT       610
                          5120000415 +            SA2    FMTSTR      FETCH POINTERS TO NN                        FMT       611
           267  36630                             IX6    X3+X0                                                   FMT       612
                     63220                        SB2    X2          SHIFT COUNT                                 FMT       613
                          54630                   SA6    A3                                                      FMT       614
                               21222              AX2    18          (POINTER TO NN) - 1                         FMT       615
           270  74470                             SX4    A7                                                      FMT       616
                     37342                        IX3    X4-X2                                                   FMT       617
                          0313000273 +            NZ     X3,FMT.S8   IF OUTPUT WORD HAS BEEN UPDATED             FMT       618
           271  67727                             SB7    B2-B7                                                   FMT       619
                     22171                        LX1    B7,X1                                                   FMT       620
                          12771                   BX7    X7+X1                                                   FMT       621
           272  0400000274 +                      EQ     FMT.S9                                                  FMT       622
                                                                                                                 FMT       623
           273  22121                    FMT.S8   LX1    B2,X1                                                   FMT       624
                     53321                        =A3    X2+1                                                    FMT       625
                          12631                   BX6    X3+X1       INSERT NN                                   FMT       626
                               54630              SA6    A3                                                      FMT       627
                                                                                                                 FMT       628
                                        *         LOOP IF MORE CHAR TO PROCESS, ELSE EXIT                        FMT       629
                                                                                                                 FMT       630
           274  56440                    FMT.S9   SA4    B4                                                      FMT       631
                     0325000306 +                 PL     X5,FMT.S11  IF ENTIRE STRING IS PROCESSED               FMT       632
                                                                                                                 FMT       633
                                        *         EXIT IF *DELIM* FOLLOWS 99TH CHAR                              FMT       634
                                                                                                                 FMT       635
                               56441              =A4    B4+1        MOVE POINTER IN CASE END OF STRING          FMT       636
           275  73550                             SX5    X5                                                      FMT       637
                     26474                        UX4    B7,X4                                                   FMT       638
                          37045                   IX0    X4-X5                                                   FMT       639
           276  0310000303 +                      NZ     X0,FMT.S10  IF NEXT CHAR NOT *DELIM*                    FMT       640
                          6177001777              SB7    B7+1777B                                                FCC0844    23
           277  0717000303 +                      GT1    B7,FMT.S10  IF BLANKS BEFORE *DELIM*                    FMT       641
                          7234777713              SX3    X4-1R"                                                  FMT       642
           300  0313000306 +                      NZ     X3,FMT.S11  IF *DELIM* NOT *"*                          FMT       643
                          54241                   =A2    A4+1                                                    FMT       644
                               37324              IX3    X2-X4                                                   FMT       645
           301  0313000306 +                      NZ     X3,FMT.S11  IF NEXT CHARS NOT *""*                      FMT       646
                          26272                   UX2    B7,X2                                                   FMT       647
           302  6177001777                        SB7    B7+1777B                                                FCC0844    24
                          0717000306 +            GT1    B7,FMT.S11  IF BLANKS BETWEEN *"*                       FMT       648
           303  73650                    FMT.S10  SX6    X5                                                      FMT       649
                     56640                        SA6    B4          FAKE A *DELIM*                              FMT       650
                          0550000236 +            NZ     B5,FMT.S1   CONVERT REST OF STRING INTO NNH             FMT       651
           304  6150000012                        SB5    10                                                      FMT       652
                          54771                   =A7    A7+1                                                    FMT       653
                               13777              BX7    0                                                       FMT       654
           305  0400000236 +                      EQ     FMT.S1      LOOP TO PROCESS REMAINING CHARACTERS        FMT       655
                                                                                                                 FMT       656
           306  20766                    FMT.S11  LX7    60-CHAR                                                 FMT       657
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    13
                                                                      OFE 
  
                     66551                        =B5    B5+1                                                    FMT       658
                          0400000313 +            EQ     FMT.SL5                                                 FMT       659
                                                                                                                 FMT       660
                                        **        HERE ON */*                                                    FMT       661
                                                                                                                 FMT       662
           307  13666                    FMT.SL   BX6    0                                                       FMT       663
                     43001                        MX0    1                                                       FMT       664
                          5160000413 +            SA6    FMTRL       RESTART RECORD LENGTH                       FMT       665
           310  5130000401 +                      SA3    LVSTAK                                                  FMT       666
                          66600                   SB6    B0                                                      FMT       667
           311  12603                    FMT.SL3  BX6    X0+X3       SET SLASH-TAB FLAG IN LEVEL STACK           FMT       668
                     66661                        =B6    B6+1                                                    FMT       669
                          54630                   SA6    A3                                                      FMT       670
                               54331              =A3    A3+1                                                    FMT       671
           312  0763000311 +                      LT     B6,B3,FMT.SL3  IF MORE PRECEDING LEVELS                 FMT       672
                                                                                                                 FMT       673
                                        **        HERE IF *,* CAN BE ELIMINATED IF NEXT CHARACTER.               FMT       674
                                                                                                                 FMT       675
           313  54541                    FMT.SL5  =A5    A4+1        NEXT CHARACTER                              FMT       676
                     6275777721                   SB7    X5-1R,                                                  FMT       677
           314  0570000315 +                      NZ     B7,FMT.NX   IF NOT FOLLOWED BY *,*                      FMT       678
                          54441                   SA4    A4+B1       BY-PASS *,*                                 FMT       679
                                                                                                                 FMT       680
                                        **        LOAD NEXT CHARACTER.                                           FMT       681
                                        *         CLEARS CURRENT REPEAT COUNT.                                   FMT       682
                                                                                                                 FMT       683
           315                           FMT.CM   BSS    0                                                       FMT       684
           315                           FMT.P    BSS    0                                                       FMT       685
           315  43274                    FMT.NX   MX2    60                                                      FMT       686
           316  54441                    FMT.NX1  SA4    A4+B1                                                   FMT       687
                     20706                        LX7    CHAR                                                    FMT       688
                          0334000337 +            MI     X4,FMT.EOS                                              FMT       689
           317  26404                             UX4    X4                                                      FMT       690
                     12774                        BX7    X7+X4       PACK CHARACTER                              FMT       691
                          67551                   SB5    B5-B1       DECREMENT CHAR/WORD CTR                     FMT       692
           320  0550000322 +                      NZ     B5,FMT.RL   IF WORD NOT FULL CONTINUE PROCESSING        FMT       693
                          6150000012              SB5    10                                                      FMT       694
           321  54771                             =A7    A7+1        STORE FORMAT WORD                           FMT       695
                     13777                        BX7    0                                                       FMT       696
                                                                                                                 FMT       697
                                        **        CHECK RECORD LENGTH AND OUTPUT DIAGNOSTIC IF LENGTH IS GREATER FMT       698
                                        *         THAN -- 137 OR 131,071                                         FMT       699
                                        *                                                                        FMT       700
                                        *         (X4) = NEXT CHARACTER.                                         FMT       701
                                                                                                                 FMT       702
           322  5110000413 +             FMT.RL   SA1    FMTRL                                                   FMT       703
                          6261777565              SB6    X1-137-1                                                FMT       704
           323  5130000414 +                      SA3    FMTRLC                                                  FMT       705
                          0760000330 +            MI     B6,FMT.JP   IF COUNT IS .LE. 137                        FMT       706
           324  6170000000 X                      SB7    E.FS11A                                                 FMT       707
                          21121                   AX1    17                                                      FMT       708
           325  0301000326 +                      ZR     X1,FMT.RL5  IF COUNT .LE. 131,071                       FMT       709
                          6170000000 X            SB7    E.FS11                                                  FMT       710
                                                                                                                 FMT       711
           326  63637                    FMT.RL5  SB6    X3+B7                                                   FMT       712
                     0460000330 +                 ZR     B6,FMT.JP   IF ERROR ALREADY DETECTED.                  FMT       713
                               77607              SX6    -B7                                                     FMT       714
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    14
                                                                      OFE 
  
           327  54630                             SA6    A3          UPDATE R.L. ERROR.                          FMT       715
                     0100000000 X                 WARN   B7          OUTPUT RECORD LENGTH DIAGNOSTIC             FMT       716
                                                                                                                 FMT       717
                                        **        JUMP TO NEXT PROCESSOR UNIT                                    FMT       718
                                        *         (X4) = UNPACKED CHARACTER PROCESSING.                          FMT       719
                                                                                                                 FMT       720
           330  7110000003               FMT.JP   SX1    3                                                       FMT       721
                          73640                   SX6    X4                                                      FMT       722
                               11014              BX0    X1*X4       2 BITS ONLY FOR SHIFT COUNT                 FMT       723
           331  20666                             LX6    9*CHAR                                                  FMT       724
                     10144                        BX1    X4                                                      FMT       725
                          20003                   LX0    3           *8--SHIFT COUNT WITHIN JUMP WORD            FMT       726
                               21102              AX1    2           INDEX TO JUMP WORD                          FMT       727
           332  5160000000 X                      SA6    FILL.       CHARACTER IN CASE OF ERROR                  FMT       728
                          5211000360 +            SA1    X1+FMTJT    JUMP WORD                                   FMT       729
           333  63700                             SB7    X0                                                      FMT       730
                     23171                        AX1    X1,B7                                                   FMT       731
                          7100000377              SX0    377B                                                    FMT       732
           334  11110                             BX1    X1*X0                                                   FMT       733
                     63710                        SB7    X1                                                      FMT       734
                          0277000064 +            JP     B7+FMTBASE  PROCESS NEXT.                               FMT       735
                                                                                                                 FMT       736
                                        **        HERE ON ALL UNKNOWN CHARACTER CODES.                           FMT       737
                                                                                                                 FMT       738
           335                           FMT.BE   BSS    0                                                       FMT       739
           335                           FMT.CE   BSS    0                                                       FMT       740
           335                           FMT.JE   BSS    0                                                       FMT       741
           335                           FMT.KE   BSS    0                                                       FMT       742
           335                           FMT.ME   BSS    0                                                       FMT       743
           335                           FMT.NE   BSS    0                                                       FMT       744
           335                           FMT.QE   BSS    0                                                       FMT       745
           335                           FMT.SE   BSS    0                                                       FMT       746
           335                           FMT.UE   BSS    0                                                       FMT       747
           335                           FMT.WE   BSS    0                                                       FMT       748
           335                           FMT.YE   BSS    0                                                       FMT       749
           335                           FMT.PDE  BSS    0                                                       FMT       750
           335                           FMT.$E   BSS    0                                                       FMT       751
           335                           FMT.BKE  BSS    0                                                       FMT       752
           335                           FMT.00   BSS    0                                                       FMT       753
           335  6170000000 X             FMT.EE   FATAL  E.FS14                                                  FMT       754
           336  0400000354 +                      EQ     FMT.ENX     TO NEXT CHARACTER.                          FMT       755
                                                                                                                 FMT       756
                                        **        HERE ON *EOS*                                                  FMT       757
                                        *         *FMT.EOS1* WHEN TERMINAL *)* FOUND, AND                        FMT       758
                                        *         *FMT.EOS* WHEN TERMINAL *)* NOT FOUND                          FMT       759
                                        *                                                                        FMT       760
                                        *         (B5) = 10- CURRENT BUILD WORD CHARACTERS.                      FMT       761
                                                                                                                 FMT       762
           337  6170000000 X             FMT.EOS  FATAL  E.FS18A     MISSING TERMINAL *)*                        FMT       763
                                                                                                                 FMT       764
           340  0307000344 +             FMT.EOS1 ZR     X7,FMT130   IF NULL WORD                                FMT       765
                          66255                   SB2    B5+B5       *2                                          FMT       766
                               66322              SB3    B2+B2       *4                                          FMT       767
           341  66232                             SB2    B3+B2       *6                                          FMT       768
                     5110000424 +                 SA1    =10H                                                    FMT       769
                               43006              MX0    6                                                       FMT       770
           342  6132777771                        SB3    B2-6                                                    FMT       771
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    15
                                                                      OFE 
  
                          23030                   AX0    X0,B3                                                   FMT       772
                               11301              BX3    X0*X1                                                   FMT       773
           343  12037                             BX0    X3+X7                                                   FMT       774
                     22720                        LX7    B2,X0       TO 0H FORM                                  FMT       775
                          54771                   =A7    A7+1                                                    FMT       776
                                                                                                                 FMT       777
                                        **        ADD FORMAT TO TABLE AND EXIT.                                  FMT       778
                                                                                                                 FMT       779
           344  6160777776 X             FMT130   SB6    FORSKEL-1                                               FMT       780
                          65676                   SB6    A7-B6       = LENGTH OF THIS FORMAT                     FMT       781
           345  5110000000 X                      ALLOC  TP.FMT,B6                                               FMT       782
           347  76160                             SX1    B6          = W.C.                                      FMT       783
                     7120000000 X                 SX2    FORSKEL     = SOURCE                                    FMT       784
                               77376              SX3    B7-B6       = DESTINATION = (LWA+1 OF TABLE) - (W.C.)   FMT       785
           350  0100000000 X                      RJ     MVE                                                     FMT       786
           351  5110000000 X                      SA1    TRVA        REFERENCE TAG.                              FMT       787
                          10611                   ADDREF X1,CR.LAB,PSP.F                                         FMT       788
                                                                                                                 FMT       789
                                        **        HERE AFTER UNKNOWN CODE ERROR PROCESSED                        FMT       790
                                        *         SCAN FORWARD TILL SEPARATOR FOUND AND EXIT TO                  FMT       791
                                        *         NEXT CHARACTER LOOP.                                           FMT       792
                                                                                                                 FMT       793
                                                                                                                 FMT       794
           354  5150000425 +             FMT.ENX  SA5    ="FMTSEP"                                               FMT       795
           355  54441                    FMT.ENX1 =A4    A4+1                                                    FMT       796
                     0334000337 +                 MI     X4,FMT.EOS  IF *EOS*                                    FMT       797
                               63240              SB2    X4                                                      FMT       798
           356  22025                             LX0    B2,X5                                                   FMT       799
                     0320000355 +                 PL     X0,FMT.ENX1 IF NOT SEPARATOR                            FMT       800
                               55441              =A4    A4-1                                                    FMT       801
           357  0400000315 +                      EQ     FMT.NX      CONTINUE                                    FMT       802
                                                                                                                 FMT       803
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    16
                                                                      JTFMT 
  
                                 251     FMTLNG   =      FMT.00-FMTBASE    SHOULD BE MAX OF 377B FOR JUMP TABLE  FMT       805
                                        **        JTFMT - FORMAT *CONO* TABLE.                                   FMT       806
                                                                                                                 FMT       807
                                                                                                                 FMT       808
                                         JTFMT    MACRO  JUMPS                                                   FMT       809
                                                  VFD    28/0                                                    FMT       810
                                                  IRP    JUMPS                                                   FMT       811
                                                  VFD    8/FMT.JUMPS-FMTBASE                                     FMT       812
                                                  IRP                                                            FMT       813
                                         JTFMT    ENDM                                                           FMT       814
                                                                                                                 FMT       815
                                                                                                                 FMT       816
                                        **        JUMP TABLE PARAMETERS.                                         FMT       817
                                                                                                                 FMT       818
                                                                                                                 FMT       819
           360                           FMTJT    BSS    0                                                       FMT       820
                                                                                                                 FMT       821
           360  0000000000                        JTFMT  (CE,BE,A,00)                                            FMT       822
           361  0000000000                        JTFMT  (G,F,E,D)                                               FMT       823
           362  0000000000                        JTFMT  (KE,JE,I,H)                                             FMT       824
           363  0000000000                        JTFMT  (O,NE,ME,L)                                             FMT       825
           364  0000000000                        JTFMT  (SE,R,QE,P)                                             FMT       826
           365  0000000000                        JTFMT  (WE,V,UE,T)                                             FMT       827
           366  0000000000                        JTFMT  (0,Z,YE,X)                                              FMT       828
           367  0000000000                        JTFMT  (4,3,2,1)                                               FMT       829
           370  0000000000                        JTFMT  (8,7,6,5)                                               FMT       830
           371  0000000000                        JTFMT  (STR,MIN,PL,9)                                          FMT       831
           372  0000000000                        JTFMT  ($E,RP,LP,SL)                                           FMT       832
           373  0000000000                        JTFMT  (PDE,CM,BKE,=)                                          FMT       833
           374  0000000000                        JTFMT  (EE,EE,EE,EE)                                           FMT       834
           375  0000000000                        JTFMT  (EE,EE,EE,QT)                                           FMT       835
           376  0000000000                        JTFMT  (EE,EE,EE,EE)                                           FMT       836
           377  0000000000                        JTFMT  (EE,EE,EE,EE)                                           FMT       837
  
  
  
  
                                                                                                                 FMT       839
                                  11     LVMAX    =      9           MAXIMUM LEVEL OF PARENS                     FMT       840
           400                     1     FMTRC    BSS    1           CURRENT REPEAT COUNT                        FMT       841
           401                    11     LVSTAK   BSS    LVMAX       PAREN LEVEL STACK -- 1/SLASH-TAB, 23/0,     FMT       842
                                        ,                            18/FMTRL, 18/REPEAT COUNT                   FMT       843
           412  00000000000000000000     FMTFW    DATA   0           (W) WIDTH LENGTH.                           FMT       844
           413  00000000000000000000     FMTRL    DATA   0           CURRENT RECORD LENGTH.                      FMT       845
           414  00000000000000000000     FMTRLC   DATA   0           FLAG TO INDICATE WHETHER ERROR SHOULD BE    FMT       846
                                        ,                            ISSUED FOR COLUMN COUNT EXCEEDED            FMT       847
           415  00000000000000000000     FMTSTR   DATA   0           POINTERS FOR RETRIEVING NN FOR HOLL STRINGS FMT       848
                                                                                                                 FMT       849
           416                           FMTSPEC  BSS    0                                                       FMT       850
                                                  ECHO   2,X=(A,D,E,F,G,H,I,L,O,P,R,V,X,Z)                       FMT       851
                                                  POS    60-1R_X                                                 FMT       852
                                                  VFD    1/1                                                     FMT       853
                                  23              POS    60-1R(                                                  FMT       854
                             1                    VFD    1/1                                                     FMT       855
                              000000              VFD    *P/0                                                    FMT       856
           417                           DEFG     BSS    0                                                       FMT       857
                                                  ECHO   2,X=(D,E,F,G)                                           FMT       858
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    17
                                                                      FMTRC 
  
                                                  POS    60-1R_X                                                 FMT       859
                                                  VFD    1/1                                                     FMT       860
                  000000000000000000              VFD    *P/0                                                    FMT       861
           420                           IOV      BSS    0                                                       FMT       862
                                                  ECHO   2,X=(I,O,V)                                             FMT       863
                                                  POS    60-1R_X                                                 FMT       864
                                                  VFD    1/1                                                     FMT       865
                       0000000000000              VFD    *P/0                                                    FMT       866
           421                           DE       BSS    0                                                       FMT       867
                                                  ECHO   2,X=(D,E)                                               FMT       868
                                                  POS    60-1R_X                                                 FMT       869
                                                  VFD    1/1                                                     FMT       870
                  000000000000000000              VFD    *P/0                                                    FMT       871
                                                                                                                 FMT       872
                                                  LIST   D                                                       FMT       873
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ANSI= 
             0 X                        SB.STNR 
             0 X                        PWE 
             0 X                        ALC 
  
                                        CONTENT OF LITERALS BLOCK.
  
           422  00000000077740000000        G;5 
           423  55555555550000000000
           424  55555555555555555555
           425  00000000000007424210          G77H
  
           426                                    END                                                            FMT       874
  
                             55300B CM  STORAGE USED             1772 STATEMENTS      898 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.592 SECONDS         574 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*      15/11
        ANSI=           0   EXTERNAL*       2/42      7/13      7/48      9/27      9/51
                                            6/29      7/26      9/06      9/32
        ASD             0   PROGRAM*        2/31 L    6/49      7/15      7/32      7/47      8/40      9/18     10/27
        ASD1            3   PROGRAM*        2/34      2/40 L
        ASD10          12   PROGRAM*        2/55      3/05 L
        ASD11          15   PROGRAM*        3/05      3/13 L
        ASD5            6   PROGRAM*        2/41      2/48 L    3/11      3/17
        CDD             0   EXTERNAL*       1/43 X   12/01
        CHAR            6   TSTEXT          2/49      3/56      4/05     10/15     10/33     11/02     11/35     14/10
                                            3/50      4/03      4/12     10/19     10/49     11/10     12/57
                                            3/51      4/04      6/17     10/23     10/57     11/16     13/31
        CR.LAB         14   TSTEXT         15/17     15/17
        CUA             0   EXTERNAL*       2/06 X
        DE            421   PROGRAM*        7/42     17/09 L
        DEFG          417   PROGRAM*        7/01     16/56 L
        ERT             0   EXTERNAL*       1/54 X   15/17
        ESN             0   EXTERNAL*       1/54 X    4/24
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        E.FM            0   EXTERNAL*       1/51 X    3/44
        E.FS1           0   EXTERNAL*       1/46 X    3/47
        E.FS10          0   EXTERNAL*       1/49 X    8/17
        E.FS11          0   EXTERNAL*       1/49 X   13/53
        E.FS11A         0   EXTERNAL*       1/49 X   13/50
        E.FS14          0   EXTERNAL*       1/50 X   14/40
        E.FS18          0   EXTERNAL*       1/50 X    6/19      6/19
        E.FS18A         0   EXTERNAL*       1/50 X   14/49
        E.FS2           0   EXTERNAL*       1/46 X    5/06
        E.FS23          0   EXTERNAL*       1/50 X    4/28
        E.FS24          0   EXTERNAL*       1/50 X    4/30
        E.FS26          0   EXTERNAL*       1/50 X    4/39
        E.FS3           0   EXTERNAL*       1/46 X    5/52
        E.FS4           0   EXTERNAL*       1/46 X   10/35
        E.FS5           0   EXTERNAL*       1/46 X    8/57
        E.FS5A          0   EXTERNAL*       1/46 X    9/06
        E.FS6           0   EXTERNAL*       1/46 X    9/23
        E.FS6A          0   EXTERNAL*       1/46 X    9/27
        E.FS7           0   EXTERNAL*       1/47 X    9/32
        E.FS7A          0   EXTERNAL*       1/47 X    9/55
        E.FS7B          0   EXTERNAL*       1/47 X    9/47
        E.FS7C          0   EXTERNAL*       1/47 X    9/42
        E.FS8           0   EXTERNAL*       1/48 X    6/29
        E.FS8A          0   EXTERNAL*       1/48 X    5/44      5/44      6/42
        E.FS8B          0   EXTERNAL*       1/48 X    6/54
        E.FS8C          0   EXTERNAL*       1/48 X    7/13
        E.FS8D          0   EXTERNAL*       1/48 X    7/26
        E.FS8E          0   EXTERNAL*       1/48 X    7/48      7/48
        E.FS8F          0   EXTERNAL*       1/48 X    8/08
        E.FS9           0   EXTERNAL*       1/49 X    2/42
        FILL.           0   EXTERNAL*       1/51 X    6/18 S   10/34 S   14/14 S
        FMTBASE        64   PROGRAM*        5/38 L   16/18     16/21     16/24     16/27     16/30     16/33
                                           14/21     16/19     16/22     16/25     16/28     16/31
                                           16/01     16/20     16/23     16/26     16/29     16/32
        FMTFW         412   PROGRAM*        7/05 S    7/17      7/34      7/49     16/43 L
        FMTJT         360   PROGRAM*       14/15     16/16 L
        FMTLNG        251                  16/01 D
        FMTRC         400   PROGRAM*        6/48 S    8/01     16/40 L
        FMTRL         413   PROGRAM*        5/18 S    6/06      8/15      9/39     13/08 S   16/44 L
                                            5/45      8/06      8/49     12/08     13/46
        FMTRLC        414   PROGRAM*        5/19 S   13/48     16/45 L
        FMTSPEC       416   PROGRAM*       10/28     16/49 L
        FMTSTR        415   PROGRAM*       11/24 S   12/09     16/47 L
        FMT1           25   PROGRAM*        3/56 L    4/01
        FMT1A          26   PROGRAM*        4/02 L    4/08
        FMT1B          31   PROGRAM*        4/02      4/12 L
        FMT130        344   PROGRAM*       14/51     15/09 L
        FMT2           40   PROGRAM*        4/22      4/27 L
        FMT3           43   PROGRAM*        4/29      4/31 L    4/40
        FMT4           46   PROGRAM*        4/27      4/39 L
        FMT6           51   PROGRAM*        4/25      4/49 L
        FMT6A          54   PROGRAM*        1/40 E    3/48      4/35      4/57 L
        FMT.A         106   PROGRAM*        6/30 L   16/18
        FMT.BE        335   PROGRAM*       14/25 L   16/18
        FMT.BKE       335   PROGRAM*       14/38 L   16/29
        FMT.CE        335   PROGRAM*       14/26 L   16/18
        FMT.CM        315   PROGRAM*       13/27 L   16/29
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        FMT.D         106   PROGRAM*        6/31 L   16/19
        FMT.E         106   PROGRAM*        6/32 L   16/19
        FMT.EE        335   PROGRAM*       14/40 L   16/30     16/31     16/32     16/33
        FMT.ENX       354   PROGRAM*        8/18      8/34      9/25     11/52     14/41     15/24 L
        FMT.ENX1      355   PROGRAM*       15/25 L   15/29
        FMT.EOS       337   PROGRAM*       13/32     14/49 L   15/26
        FMT.EOS1      340   PROGRAM*        6/15      6/20     14/51 L
        FMT.F         106   PROGRAM*        6/33 L   16/19
        FMT.G         106   PROGRAM*        6/34 L   16/19
        FMT.H         151   PROGRAM*        8/15 L   16/20
        FMT.H5        154   PROGRAM*        8/16      8/20 L
        FMT.I         106   PROGRAM*        6/35 L   16/20
        FMT.JE        335   PROGRAM*       14/27 L   16/20
        FMT.JP        330   PROGRAM*        6/53      9/05      9/07     10/31     10/36     13/49     13/56     14/07 L
        FMT.KE        335   PROGRAM*       14/28 L   16/20
        FMT.L         106   PROGRAM*        6/36 L   16/21
        FMT.LP         64   PROGRAM*        5/39 L   16/28
        FMT.LP1        67   PROGRAM*        5/39      5/42      5/45 L
        FMT.L1        111   PROGRAM*        6/37      6/40      6/46 L
        FMT.L3        116   PROGRAM*        6/50      6/51      7/01 L
        FMT.L5        130   PROGRAM*        7/06      7/24 L
        FMT.L7        133   PROGRAM*        7/25      7/31 L
        FMT.L9        137   PROGRAM*        7/20      7/42 L
        FMT.ME        335   PROGRAM*       14/29 L   16/21
        FMT.MIN       176   PROGRAM*        9/12 L   16/27
        FMT.NE        335   PROGRAM*       14/30 L   16/21
        FMT.NX        315   PROGRAM*        5/22      5/54      6/12      9/20     13/21     15/31
                                            5/51      6/04      9/17      9/28     13/29 L
        FMT.NX1       316   PROGRAM*       13/30 L
        FMT.O         105   PROGRAM*        6/25 L   16/21
        FMT.P         315   PROGRAM*       13/28 L   16/22
        FMT.PDE       335   PROGRAM*       14/36 L   16/29
        FMT.PL        176   PROGRAM*        9/11 L   16/27
        FMT.QE        335   PROGRAM*       14/31 L   16/22
        FMT.QT        235   PROGRAM*       10/41 L   16/31
        FMT.R         105   PROGRAM*        6/26 L   16/22
        FMT.RL        322   PROGRAM*        8/04      8/11      8/56      9/01     13/36     13/46 L
        FMT.RL5       326   PROGRAM*       13/52     13/55 L
        FMT.RP         74   PROGRAM*        6/01 L   16/28
        FMT.RP1       101   PROGRAM*        6/01      6/14 L
        FMT.S         205   PROGRAM*        9/27 L
        FMT.SE        335   PROGRAM*       14/32 L   16/22
        FMT.SL        307   PROGRAM*       13/06 L   16/28
        FMT.SL3       311   PROGRAM*       13/11 L   13/15
        FMT.SL5       313   PROGRAM*        8/35      9/46      9/57     13/02     13/19 L
        FMT.STR       235   PROGRAM*       10/42 L   16/27
        FMT.S1        236   PROGRAM*       10/47 L   12/51     12/55
        FMT.S10       303   PROGRAM*       12/38     12/40     12/49 L
        FMT.S11       306   PROGRAM*       12/30     12/42     12/45     12/48     12/57 L
        FMT.S2        241   PROGRAM*       10/47     10/57 L
        FMT.S3        245   PROGRAM*       11/01     11/10 L
        FMT.S4        246   PROGRAM*       10/55     11/08     11/16 L
        FMT.S5        253   PROGRAM*       11/25     11/32 L
        FMT.S6        257   PROGRAM*       11/39     11/44 L
        FMT.S7        266   PROGRAM*       11/54     12/08 L
        FMT.S8        273   PROGRAM*       12/16     12/22 L
        FMT.S9        274   PROGRAM*       12/20     12/29 L
1       /FMT  FORMAT STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.52.11.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        FMT.T         162   PROGRAM*        8/39 L   16/23
        FMT.T3        164   PROGRAM*        8/44 L    8/48
        FMT.T5        173   PROGRAM*        8/52      9/03 L
        FMT.UE        335   PROGRAM*       14/33 L   16/23
        FMT.URL       144   PROGRAM*        7/10      7/12      7/18      7/29      7/36      7/45      8/01 L
        FMT.URL5      150   PROGRAM*        8/07      8/09 L
        FMT.V         105   PROGRAM*        6/27 L   16/23
        FMT.WE        335   PROGRAM*       14/34 L   16/23
        FMT.X         212   PROGRAM*        9/34      9/39 L   16/24
        FMT.X0        207   PROGRAM*        9/22      9/32 L
        FMT.X1        220   PROGRAM*        9/44      9/49      9/51 L
        FMT.X2        221   PROGRAM*        9/40      9/52 L
        FMT.X3        223   PROGRAM*        9/53      9/56 L
        FMT.YE        335   PROGRAM*       14/35 L   16/24
        FMT.Z         105   PROGRAM*        6/28 L   16/24
        FMT.0         224   PROGRAM*       10/05 L   16/24
        FMT.00        335   PROGRAM*       14/39 L   16/01     16/18
        FMT.1         224   PROGRAM*       10/06 L   16/25
        FMT.2         224   PROGRAM*       10/07 L   16/25
        FMT.3         224   PROGRAM*       10/08 L   16/25
        FMT.4         224   PROGRAM*       10/09 L   16/25
        FMT.5         224   PROGRAM*       10/10 L   16/26
        FMT.6         224   PROGRAM*       10/11 L   16/26
        FMT.7         224   PROGRAM*       10/12 L   16/26
        FMT.8         224   PROGRAM*       10/13 L   16/26
        FMT.9         224   PROGRAM*       10/14 L   16/27
        FMT.9A        227   PROGRAM*       10/16     10/25 L
        FMT.$E        335   PROGRAM*       14/37 L   16/28
        FMT.=         224   PROGRAM*       10/04 L   16/29
        FORMAT=        20   PROGRAM*        3/38 L    3/38 E
        FORSKEL         0   EXTERNAL*       2/09 X    5/05 S   15/09     15/13
        IOV           420   PROGRAM*        7/07     17/04 L
        LASTCOL         0   EXTERNAL*       1/43 X    4/57
        LVMAX          11                   5/49     16/39 D   16/41
        LVSTAK        401   PROGRAM*        5/50 S    6/02      8/42     13/09     16/41 L
        MVE             0   EXTERNAL*       1/54 X   15/15
        M.SNDEF         2   TSTEXT          4/23      4/31      4/41
        M.SNFMT       400   TSTEXT          4/23
        PSP.F           0   EXTERNAL*       1/57 X   15/17
        PWE             0   EXTERNAL*       4/34      5/52      6/42      8/08      8/57      9/55     14/02     14/49
                                            5/44      6/19      6/54      8/17      9/23     10/35     14/40
        P.             73   TSTEXT          4/27
        P.SNAD         30   TSTEXT          4/52
        P.SNDEF         1   TSTEXT          4/40
        P.SNDOT        11   TSTEXT          4/29
        P.SNFMT        10   TSTEXT          4/27      4/29      4/40
        P.STN          22   TSTEXT          4/20
        SB.STNR         0   EXTERNAL*       3/41
        SSN             0   EXTERNAL*       1/54 X    4/21
        THC             0   EXTERNAL*       2/03 X    8/28
        TP=FMT          0   EXTERNAL*       1/43 X    4/49
        TP.FMT          0   EXTERNAL*       1/43 X   15/11     15/11
        TRVA            0   EXTERNAL*       2/09 X    4/55 S   15/16
        TSC             0   EXTERNAL*       2/03 X   11/44
        TS.STN          0   EXTERNAL*       1/43 X    4/21      4/50
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1377              IDENT  IO 
                       1377                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1371 
                                        LITERALS* LOCAL        1371         6 
  
  
                                        ENTRY POINTS. 
  
                                        BUFERR         103+           ASF.            52            M.STOCO         10
                                        LST            464+           FORMAT          37            M.STIBI         20
                                        FFN            310+           TO               1            M.STOBI         40
                                        LGR           1304+           PRECISI         33            M.STIBU        100
                                        LG.LEN          52            FUNCTIO          6            M.STOBU        200
                                        O=IOJ         1242+           EOS             56            M.STBAK        400
                                        IOLEN            5+           LST5           532+           M.STENF       1000
                                        A=BMOD         751+           TYPES         1364+           M.STREW       2000
                                        A=BLWA         771+           PTN3           651+           M.STCMM       4000
                                        A=STR         1226+           BLWA          1060+           BACKSP=         34+ 
                                        A=FMT         1105+           CML           1252+           BUFFER=         37+ 
                                        C=BFWA        1063+           IODIR            2+           DECODE=        110+ 
                                        C=IOL         1116+           R.W             14+           ENDFIL=        113+ 
                                        C=CNT         1077+           STLTAB          16+           ENCODE=        120+ 
                                        C=FMT         1105+           L.STL            7            PUNCH=         123+ 
                                        NULL            57            N.STL           14            PRINT=         157+ 
                                        REP.            55            M.STCRM          1            REWIND=        163+ 
                                        DO.             53            M.STRP2          2            READ=          202+ 
                                        IF.             54            M.STICO          4            WRITE=         212+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.EDT    TS.SYM    E.IO11    E.IOS6    CPM=FMT   POP.ST1   REAL=     ASSIGN= 
                                        CO.SNAP   TT.PAR    E.IO12    E.IO29    S=BIN     SOPR      INTEGE=   TRLINE
                                        APLSTOR   TP.ILI    E.IO13    E.IO62    S=INP     ADT       LOGICA=   WIN 
                                        APLUG     TP=ILI    E.IO14    E.IOS9    S=OUT     PAR       LEVEL=    DIMUL 
                                        ARGCOMA   E.ANS     E.IO19    E.IOS10   S=COD     POPX      EXTERN=   E.DO8 
                                        ARGMODE   E.IO      E.IO20    E.IOD4    S=CONT    CNF       EQUIVA=   TP.DO 
                                        BUFMOD    E.IOB1    E.IO21    ERT       S=STR     CVT       DIMENS=   APLSTOD 
                                        BUFFWA    E.IOB3    E.IO3     ADW       S.BUFIO   MXP       COMMON=   E.IOF 
                                        BUFLWA    E.IOB4    E.IO6     ESC       S=FREE    PSO       DATA=     TA.NAM
                                        CALLIO    E.IOB5    E.IO7     NAP       S.IOCAL   O=BSS     SUBROU=   E.IOB9
                                        ICONL     E.IOB7    E.IO8     NCS       S.ENDFI   SA=BKS3   STOP=     E.IOB10 
                                        IOARGM    E.IOD1    E.IO9     SSY       S.REWIN   EIS.PNX   GOTO=     O=SUBL
                                        MOD       E.IOD3    E.UE      NCM       S.BKSP    CAI       RETURN=   E.IOB8
                                        NDC=CNT   E.IOF1    E.UE1     WBL       S.NLST    AFD       PROGRA=   E.IOB2
                                        NDC=STR   E.IO6U    E.UE2     CPM=EXU   TSF       CDI       PAUSE=    CHARMAP 
                                        PTN=FMT   E.IOL2    E.ION1    CPM=1ST   TRV       PDT       ENTRY=    E.AT10
                                        REFVAR    E.ION     E.IOD2    CPM=END   EMT       SDO       NAMELI=   E.IO2 
                                        REFNUM    E.IOS1    FILL.     CPM=ASF   CFC       SCR       OVERLA=   ALC 
                                        TG.APL    E.IOS2    E.IOL1    CPM=NTR   PSN       IFS       LDSET=    ESY 
                                        TG.PRO    E.IOS3    E.IOL4    CPM=OK    ISN       FORMAT=   FUNCTI=   PWE 
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        TG.TEM    E.IOS4    E.IOL5    CPM=DAT   CIA       IMPLIC=   END=      STATIC
                                        TP.APL    E.IOS5    E.IO25    CPM=DEC   CRJ       TYPE=     CONTIN=   ANSI= 
                                        TP.DIM    E.IOS7    E.IO26    CPM=TYP   CURST     COMPLE=   CALL= 
                                        TP=DO     E.IO1     E.IO27    CPM=TPE   C=ERR     PRECIS=   BLOCKD= 
                                        TS.CON    E.IO10    E.IO28    CPM=IMP   PAREXIT   DOUBLE=   TO= 
  
  
  
  
                                                  IDENT  IO                                                      IO          2
                                         IO       SECT   (INPUT / OUTPUT STATEMENTS.),1                          IO          3
  
                                                                                                                 IO          4
                                                  SST                                                            IO          5
                                                                                                                 IO          6
                                         B=IO     RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     IO          7
                                                                                                                 IO          8
                                                  ENTRY  BUFERR,LST,FFN,LGR,LG.LEN                               IO          9
                                                  ENTRY  O=IOJ,IOLEN,A=BMOD,A=BLWA,A=STR,A=FMT,C=BFWA,C=IOL      IO         10
                                                  ENTRY  C=CNT,C=FMT,NULL,REP.,DO.,IF.,ASF.,FORMAT,TO,PRECISI    IO         11
                                                  ENTRY  FUNCTIO,EOS,LST5,TYPES,PTN3                             FCC0499    43
                                                  ENTRY  BLWA,CML,IODIR,R.W                                      FCC0787    26
                                                                                                                 IO         15
                                        *         IN FTN                                                         IO         16
                                                  EXT    CO.EDT,CO.SNAP                                          IO         17
                                                                                                                 IO         18
                                        *         IN TABLES                                                      IO         19
                                                  EXT    APLSTOR,APLUG,ARGCOMA,ARGMODE,BUFMOD,BUFFWA,BUFLWA      IO         20
                                                  EXT    CALLIO,ICONL,IOARGM,MOD,NDC=CNT,NDC=STR,PTN=FMT,REFVAR  IO         21
                                                  EXT    REFNUM,TG.APL,TG.PRO,TG.TEM,TP.APL,TP.DIM,TP=DO,TS.CON  IO         22
                                                  EXT    TS.SYM,TT.PAR,TP.ILI,TP=ILI                             IO         23
                                                                                                                 IO         24
                                        *         IN ERRORS                                                      IO         25
                                                  EXT    E.ANS,E.IO,E.IOB1,E.IOB3,E.IOB4,E.IOB5,E.IOB7           FCC0597    15
                                                  EXT    E.IOD1,E.IOD3,E.IOF1,E.IO6U,E.IOL2,E.ION,E.IOS1,E.IOS2  IO         27
                                                  EXT    E.IOS3,E.IOS4,E.IOS5,E.IOS7,E.IO1,E.IO10,E.IO11         IO         28
                                                  EXT    E.IO12,E.IO13,E.IO14,E.IO19                             FEAT126A 1005
                                                  EXT    E.IO20,E.IO21,E.IO3,E.IO6,E.IO7,E.IO8                   FEAT126A 1006
                                                  EXT    E.IO9,E.UE,E.UE1,E.UE2,E.ION1,E.IOD2,FILL.              FCC0597    16
                                                  EXT    E.IOL1,E.IOL4,E.IOL5,E.IO25,E.IO26,E.IO27,E.IO28        FEAT126A 1007
                                                  EXT    E.IOS6,E.IO29,E.IO62,E.IOS9,E.IOS10                     IO         33
                                                  EXT    E.IOD4                                                  FCC1769X    8
                                                                                                                 IO         34
                                        *         IN ALLOC                                                       IO         35
                                                  EXT    ERT,ADW,ESC,NAP,NCS,SSY,NCM                             IO         36
                                                                                                                 IO         37
                                        *         IN MAIN                                                        IO         38
                                                  EXT    WBL,CPM=EXU,CPM=1ST,CPM=END,CPM=ASF,CPM=NTR,CPM=OK      IO         39
                                                  EXT    CPM=DAT,CPM=DEC,CPM=TYP,CPM=TPE,CPM=IMP,CPM=FMT         IO         40
                                                                                                                 IO         41
                                        *         IN LEX                                                         IO         42
                                                  EXT    S=BIN,S=INP,S=OUT,S=COD,S=CONT,S=STR,S.BUFIO,S=FREE     IO         43
                                                  EXT    S.IOCAL,S.ENDFI,S.REWIN,S.BKSP,S.NLST,TSF,TRV           IO         44
                                                                                                                 IO         45
                                        *         IN KEY                                                         IO         46
                                                  EXT    EMT                                                     IO         47
                                                                                                                 IO         48
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     3
  
  
                                        *         IN TSDATA                                                      FCC0787    27
                                                  EXT    CFC                                                     FCC0787    28
                                                                                                                 FCC0787    29
                                        *         IN NUM                                                         IO         49
                                                  EXT    PSN,ISN                                                 IO         50
                                                                                                                 IO         51
                                        *         IN REG                                                         IO         52
                                                  EXT    CIA,CRJ                                                 IO         53
                                                                                                                 IO         54
                                        *         IN PAR                                                         IO         55
                                                  EXT    CURST,C=ERR,PAREXIT,POP.ST1,SOPR,ADT,PAR,POPX,CNF       IO         56
                                                                                                                 IO         57
                                        *         IN GEN                                                         IO         58
                                                  EXT    CVT,MXP,PSO                                             IO         59
                                                  EXT    O=BSS,SA=BKS3,EIS.PNX,CAI                               IO         60
                                                                                                                 IO         61
                                        *         IN ASF                                                         IO         62
                                                  EXT    AFD                                                     IO         63
                                                                                                                 IO         64
                                        *         IN DO                                                          IO         65
                                                  EXT    CDI,PDT,SDO                                             IO         66
                                                                                                                 IO         67
                                        *         IN INIT                                                        IO         68
                                                  EXT    SCR                                                     IO         69
                                                                                                                 IO         70
                                                                                                                 IO         71
                                                                                                                 IO         72
                                        **        THIS SECTION IS COMPRISED OF THREE MAIN DIVISIONS --           IO         73
                                        *         1.  "HEREIF"S FOR ALL I/O STATEMENTS.                          IO         74
                                        *         2.  ROUTINES CALLED BY THE ABOVE.                              IO         75
                                        *                IN GENERAL, THESE CALL THE PARSER TO CREATE ENTRIES     IO         76
                                        *                POINTING TO --                                          IO         77
                                        *         3.  "O=XXX" OPERATORS INVOKED BY *ARITH* TO GENERATE THE       IO         78
                                        *                ACTUAL CODE.                                            IO         79
                                                                                                                 IO         80
  
  
  
  
                                        **        IO= -  I/O LIBRARY CALLING SEQUENCE DEFINITIONS.               IO         82
                                        *         ORDINAL IN THE AP-LIST OF DEFINED OBJECTS --                   IO         83
                                                                                                                 IO         84
                                                                                                                 IO         85
                                   0     IO=FIT   EQU    0           FIT/FET ADDRESS                             IO         86
                                                                                                                 IO         87
                                   1     IO=BMOD  EQU    1           BUFFER I/O MODE ADDRESS                     IO         88
                                   2     IO=BFWA  EQU    2           BUFFER I/O FIRST WORD ADDRESS               IO         89
                                   3     IO=BLWA  EQU    3           BUFFER I/O LAST WORD ADDRESS                IO         90
                                   4     IO=BLEN  EQU    4                                                       IO         91
                                                                                                                 IO         92
                                   1     IO=NGRP  EQU    1           NAMELIST I/O GROUP ADDRESS                  IO         93
                                                                                                                 IO         94
                                   1     IO=FMT   EQU    1           FORMAT ADDRESS                              IO         95
                                                                                                                 IO         96
                                   0     IO=CNT   EQU    0           XX-CODE RECORD SIZE                         IO         97
                                   2     IO=STR   EQU    2           XX-CODE STRING ADDRESS                      IO         98
                                   7     IO=CM    EQU    7           *,* TERMINATOR FOR LINE CONTROL.            FEAT155B    7
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     4
                                                                      IO= 
  
                                                                                                                 IO        101
             0  00000000000000000000     IOAPT    CON    0           TAG OF AP-LIST UNDER CONSTRUCTION           IO        102
                                                                                                                 IO        103
             1  00000000000000000000     IOARGO   CON    0           ADDRESS OF OPERATOR                         IO        104
                                                                                                                 IO        105
             2  00000000000000000000     IODIR    CON    0           I/O DIRECTION (S=INP OR S=OUT)              IO        106
             3  00000000000000000000     IOARGT   CON    0           (ARGMODE) FOR THIS DIRECTION                IO        107
             4  00000000000000000000     IOREF    CON    0           I/O REFERENCE LETTER                        IO        108
             5  00000000000000000000     IOLEN    CON    0           CURRENT LENGTH OF I/O AP-LIST               IO        109
                                                                     -1 UNTIL INITIAL ITEMS COMPILED.            IO        110
                                                                                                                 IO        111
             6  00000000000000000000     IO1ST    CON    0           FIRST  FIXED-POSITION I/O ITEM              IO        112
             7  00000000000000000000     IO2ND    CON    0           SECOND FIXED-POSITION I/O ITEM              IO        113
            10  00000000000000000000     IO3RD    CON    0           THIRD  FIXED-POSITION I/O ITEM              IO        114
            11  00000000000000000000     IO4TH    CON    0           FOURTH FIXED-POSITION I/O ITEM              IO        115
                                                                                                                 IO        116
                                                                                                                 IO        117
                                   0 X   IONAM    EQU    ICONL       ORDINAL OF ROUTINE NAME TO CALL (IN S.LIB)  IO        118
                                                                     COMPLEMENTED UNTIL INITIAL CALL COMPILED.   IO        119
            12                     1     IODOLEN  BSS    1           LENGTH OF DO-TABLE BEFORE THIS STATEMENT    IO        120
                                                                     USED TO RESET DO-TABLE IN CASE OF MESSED    IO        121
                                                                     UP IMPLIED DO-S.                            IO        122
            13  00000000000000000000     IOENDT   CON    0           GENERATED TAG FOR DEFAULT END=              IO        125
                                                                                                                 IO        126
                                   6 +   IOFIT    EQU    IO1ST       FILE INFORMATION TABLE ADDRESS              IO        127
                                   6 +   IOCNT    EQU    IO1ST       XX-CODE RECORD COUNT                        IO        128
                                                                                                                 IO        129
                                   7 +   IOBMOD   EQU    IO2ND       BUFFER I/O MODE DESIGNATOR                  IO        130
                                   7 +   IOFMT    EQU    IO2ND       FORMAT DESIGNATOR                           IO        131
                                   7 +   IONGRP   EQU    IO2ND       NAMELIST GROUP ADDRESS                      IO        132
                                                                                                                 IO        133
                                  10 +   IOBFWA   EQU    IO3RD       BUFFER I/O FIRST WORD ADDRESS               IO        134
                                  10 +   IOSTR    EQU    IO3RD       XX-CODE STRING ADDRESS                      IO        135
                                                                                                                 IO        136
                                  11 +   IOBLWA   EQU    IO4TH       BUFFER I/O LAST WORD ADDRESS                IO        137
            14  00000000000000000000     R.W      CON    0           FLAG USED TO SET IOIND BIT FOR WRITE/PUNCH  IO        138
                                        *                            FLAG ALSO FOR PROCESSING CHAR STRINGS IN    IO        139
                                        *                            LIST-DIRECTED I/O                           IO        140
            15                     1     IOSTAT   BSS    1           HOLDING CELL FOR STATIC LOAD INDICATOR      F162FTNA  719
  
  
  
  
                                        **        STLI  -  STATIC LOAD INDICATORS.                               F162FTNA  721
                                        *                                                                        F162FTNA  722
                                        *           MACRO TO GENERATE TABLE FOR *LDSET  USE* DIRECTIVES          F162FTNA  723
                                        *         FOR CRM *STATIC* MODE.                                         F162FTNA  724
                                        *                                                                        F162FTNA  725
                                        *                STLTAB      NAME                                        FCCA408   185
                                        *                                                                        F162FTNA  727
                                        *         NAME IS THE STATIC *USE* PACKAGE NAME WITH THE FORM            F162FTNA  732
                                        *         STLXXX, WHERE XXX IS THE PACKAGE IDENTIFICATION                F162FTNA  733
                                        *         MNEMONIC. STLI REMOVES THE *L* FROM *STL*, AND PREFIXES        F162FTNA  734
                                        *         THE RESULTANT SYMBOL WITH *M.* . THIS SYMBOL IS THEN           F162FTNA  735
                                        *         ASSIGNED THE NEXT BIT MASK IN SEQUENCE AND DECLARED AN         F162FTNA  736
                                        *         ENTRY POINT. THE TABLE ENTRY IS MADE FOR THE ORIGINAL SYMBOL   F162FTNA  737
                                        *                LEFT JUSTIFIED AND ZERO FILLED.                         FCCA408   186
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     5
  
  
                                                                                                                 F162FTNA  739
                                                                                                                 F162FTNA  740
                                         STLTAB   MACRO  PNAM                                                    FCCA408   187
                                                  IF     -DEF,MSK,2                                              FCCA408   188
                                         S.1      SET    0                                                       FCCA408   189
                                         MSK      SET    1                                                       FCCA408   190
                                         A        MICRO  1,,L_PNAM                                               FCCA408   191
                                         B        MICCNT A                                                       FCCA408   192
                                         C        MICRO  B+2,,.PNAM                                              FCCA408   193
                                                  ENTRY  M."A"_"C"                                               FCCA408   194
                                         M."A"_"C"  EQU  MSK                                                     FCCA408   195
                                         MSK      SET    MSK+MSK                                                 FCCA408   196
                                         S.1      SET    S.1+1                                                   FCCA408   197
                                                  DATA   L PNAM                                                  FCCA408   198
                                         STLTAB   ENDM                                                           FCCA408   199
  
  
  
  
                                        *         STATIC LOAD TABLE.                                             F162FTNA  756
                                                                                                                 F162FTNA  757
                                                  ENTRY  STLTAB,L.STL,N.STL                                      FCCA408   200
            16                           STLTAB   BSS    0                                                       FCCA408   201
                                                                                                                 FCCA408   202
            16  23241403221557000000              STLTAB STLCRM.,1                                               STLOAD      8
            17  23241422203557000000              STLTAB STLRP2.                                                 STLOAD      9
            20  23241411031757000000              STLTAB STLICO.                                                 STLOAD     10
            21  23241417031757000000              STLTAB STLOCO.                                                 STLOAD     11
            22  23241411021157000000              STLTAB STLIBI.                                                 STLOAD     12
            23  23241417021157000000              STLTAB STLOBI.                                                 STLOAD     13
            24  23241411022557000000              STLTAB STLIBU.                                                 STLOAD     14
            25  23241417022557000000              STLTAB STLOBU.                                                 STLOAD     15
            26  23241402011357000000              STLTAB STLBAK.                                                 STLOAD     16
            27  23241405160657000000              STLTAB STLENF.                                                 STLOAD     17
            30  23241422052757000000              STLTAB STLREW.                                                 STLOAD     18
            31  23241403151557000000              STLTAB STLCMM.                                                 FCCA535     9
                                                                                                                 FCCA408   204
                                   7     L.STL    =      S.1-S.1/2*2+S.1/2+1 LENGTH/2+REMAINDER+EOT              FCCA408   205
                                  14     N.STL    =      S.1                                                     FCCA408   206
            32  00000000000000000000              CON    0           TERMINATE TABLE                             F162FTNA  769
                                                                                                                 F162FTNA  770
                                                  PURGMAC STLI                                                   F162FTNA  771
  
  
  
  
                                        **        BCK -  PROCESS "BACKSPACE" STATEMENT.                          IO        142
                                        *         EXIT   TO *REW* WITH                                           IO        143
                                        *                (B6) _ BACKSPACE ROUTINE NAME.                          IO        144
                                                                                                                 IO        145
                                                                                                                 IO        146
            33  03050000000000232001              HEREIF BACKSPACE                                               IO        147
                                                                                                                 IO        148
            34  6160000000 X                      SB6    S.BKSP                                                  IO        149
                          7140000400              SX4    M.STBAK                                                 F162FTNA  772
            35  0400000164 +                      EQ     REW2                                                    IO        150
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     6
                                                                      BUF 
  
                                        **        BUF -  PROCESS "BUFFER IN/OUT" STATEMENT.                      IO        152
                                        *                                                                        IO        153
                                        *         BUFFER <DIR> (<FILE>,<MODE>) (FWA,LWA)                         IO        154
                                        *         <DIR>  #  *IN* OR *OUT*                                        IO        155
                                        *         <FILE> #  AS DEFINED BY *RTC*                                  IO        156
                                        *         <MODE> #  <INTEGER-CONSTANT> OR <SIMPLE-INTEGER-VARIABLE>      IO        157
                                        *                                                                        IO        158
                                        *         CALLS  CRJ, RTC, SUP, CAI, O=IOL, NAP, TRV, ANSI, ADDWD,       IO        159
                                        *                CLOAD, TAGSEX, WARN.                                    IO        160
                                                                                                                 IO        161
                                                                                                                 IO        162
            36  00000000000000052200              HEREIF BUFFER                                                  IO        163
                                                                                                                 IO        164
            37  6170000000 X                      ANSI   E.ANS       NON ANSI STATEMENT.                         IO        165
            40  56540                             SA5    B4                                                      IO        166
                     5120000105 +                 SA2    BUFA                                                    IO        167
                               54321              =A3    A2+1                                                    IO        168
            41  66600                             =B6    0                                                       IO        169
                     7170000022                   SX7    CR.INP                                                  IO        170
                               13252              BX2    X5-X2                                                   IO        171
            42  54151                             =A1    A5+1        *(*                                         IO        172
                     6271777767                   =B7    X1-O.LP                                                 IO        173
                               13353              BX3    X5-X3                                                   IO        174
            43  7140000100                        SX4    M.STIBU                                                 F162FTNA  773
                          0302000046 +            ZR     X2,BUF1     IF *IN*                                     IO        175
            44  66610                             =B6    1                                                       IO        176
                     7170000027                   SX7    CR.OUT                                                  IO        177
            45  7140000200                        SX4    M.STOBU                                                 F162FTNA  774
                          0313000000 X            NZ     X3,E.IOB1   IF NOT *OUT*, ERR..                         IO        178
            46  0470000050 +             BUF1     ZR     B7,BUF2     IF SYNTAX OK                                FCC1046    19
                          66441                   =B4    B4+1        RESET FOR DIAGNOSTIC                        FCC1046    20
            47  0400000000 X                      EQ     E.IOB3      IF NO *(*                                   FCC1046    21
            50  5120000000 X             BUF2     SA2    BUFMOD                                                  FCC1046    22
                          6170000000 X            SB7    S.BUFIO                                                 IO        181
            51  5110000000 X                      SA1    =XSTATIC                                                F162FTNA  775
                          67767                   SB7    B6-B7                                                   IO        182
                               12614              BX6    X1+X4                                                   F162FTNA  776
            52  54610                             SA6    A1          UPDATE STATIC LOAD INFORMATIOM              F162FTNA  777
                     7167000000 X                 SX6    B7+S.IOCAL                                              IO        183
            53  5170000004 +                      SA7    IOREF                                                   IO        184
                          20760                   LX7    P.AMR                                                   IO        185
                               12727              BX7    X2+X7                                                   IO        186
            54  5170000000 X                      SA7    ARGMODE                                                 IO        187
                          5160000000 X            SA6    IONAM       SAVE ROUTINE NAME                           IO        188
                                                                                                                 IO        189
                                        **        STORE FILE TAG.                                                IO        190
                                                                                                                 IO        191
            55  5114000002                        SA1    B4+2                                                    IO        192
                          10611                   BX6    X1                                                      IO        193
                               65411              =B4    A1-1                                                    IO        194
            56  0100000671 +                      RJ     RTC         ASSEMBLE FILE DESIGNATOR                    IO        195
            57  66441                             =B4    B4+1                                                    IO        196
                     0100000620 +                 RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST.       IO        197
                                                                                                                 IO        198
                                        **        STORE MODE DESIGNATOR.                                         IO        199
                                                                                                                 IO        200
            60  56240                             =A2    B4                                                      IO        201
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     7
                                                                      BUF 
  
                     6272777764                   SB7    X2-O.COMMA                                              IO        202
            61  0570000000 X                      NZ     B7,E.IOB4                                               IO        203
                          7170000032              =X7    O.SLP                                                   IO        204
            62  56740                             SA7    B4                                                      IO        205
                     0100000000 X                 RJ     PAR         PARSE THE MODE DESIGNATOR                   IO        206
                                                                                                                 IO        207
                                        **        STORE FWA INDICATOR.                                           IO        208
                                                                                                                 IO        209
            63  56140                             SA1    B4                                                      IO        210
                     56241                        =A2    B4+1                                                    IO        211
                          64421                   =B4    A2+1        POINT TO FWA                                FCC0597    17
                               13666              =X6                                                            IO        213
            64  7211777766                        SX1    X1-O.RP                                                 IO        214
                          7222777767              SX2    X2-O.LP                                                 IO        215
            65  0311000000 X                      NZ     X1,E.IOB5   IF NO ) AFTER MODE DESIGNATOR               IO        216
                          0302000067 +            ZR     X2,BUF3     IF SYNTAX OK                                FCC1046    23
            66  67441                             =B4    B4-1        RESET FOR DIAGNOSTIC                        FCC1046    24
                     0400000000 X                 EQ     E.IOB3      IF NO *(* BEFORE FWA                        FCC1046    25
                                                                                                                 IO        218
                                        **        TRANSLATE FWA AND LWA TO TAGS                                  IO        219
                                                                                                                 IO        220
            67  5160000000 X             BUF3     SA6    ARGCOMA                                                 FCC1046    26
                                                                                                                 IO        222
                          5120000000 X            SA2    BUFFWA                                                  IO        223
            70  5130000004 +                      SA3    IOREF                                                   IO        224
                          20360                   LX3    P.AMR                                                   IO        225
                               12723              BX7    X2+X3                                                   IO        226
            71  5170000000 X                      SA7    ARGMODE                                                 IO        227
                          0100000000 X            RJ     PAR         PARSE FIRST WORD ADDRESS                    IO        228
            72  56241                             =A2    B4+1                                                    FCC0597    19
                     66441                        =B4    B4+1                                                    FCC0597    20
                          6272777764              SB7    X2-O.COMMA                                              FCC0597    21
            73  0570000000 X                      NZ     B7,E.IOB4   IF NO *,* AFTER FWA                         FCC0597    22
                                                                                                                 IO        229
                          5120000000 X            SA2    BUFLWA                                                  IO        230
            74  7170000032                        =X7    O.SLP                                                   IO        231
                          10622                   BX6    X2                                                      IO        232
                               56740              SA7    B4                                                      IO        234
            75  5160000000 X                      SA6    ARGMODE                                                 IO        235
                          0100000000 X            RJ     PAR         PARSE LAST WORD ADDRESS                     IO        236
            76  56240                             =A2    B4                                                      FCC0597    23
                     13666                        BX6    X6-X6                                                   FCC0597    24
                          6272777766              SB7    X2-O.RP                                                 FCC0597    25
            77  0570000000 X                      NZ     B7,E.IOB5   IF NO *)* AFTER LWA                         FCC0597    26
                                                                                                                 IO        237
                                        **        CALL *IOJ* TO EMIT AN I/O CALL TURPLE AND CREATE THE APLIST.   IO        238
                                                                                                                 IO        239
                          0100000434 +            RJ     IOJ         COMPILE THE CALL                            IO        241
                                                                                                                 IO        242
           100  5110000000 X                      SA1    TG.APL                                                  IO        243
                          7261777776              SX6    X1-1                                                    IO        244
           101  54610                             SA6    A1                                                      IO        245
                                                                                                                 IO        246
                     0100000000 X                 RJ     CAI         COMPILE ALL INSTRUCTIONS                    IO        247
           102  0400000000 X                      EQ     PSN         EXIT..                                      IO        248
                                                                                                                 IO        249
                                        **        HERE IF FATAL ERROR IN BUFFER STATEMENT.                       IO        250
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     8
                                                                      BUF 
  
                                        *                ADD *O=ERR* OPERATOR TO PARSED FILE.                    IO        251
                                                                                                                 IO        252
           103  0100000000 X             BUFERR   RJ     CAI         FLUSH PARSED FILE                           IO        253
           104  0400000000 X                      EQ     PSN         EXIT..                                      IO        257
                                                                                                                 IO        258
           105  11160000000000000003     BUFA     CON    0LIN+O.VAR                                              IO        259
           106  17252400000000000003              CON    0LOUT+O.VAR                                             IO        260
  
  
  
  
                                        **        DCD -  PROCESS "DECODE" STATEMENT.                             IO        262
                                        *         EXIT   TO *NDC* WITH                                           IO        263
                                        *                (B6) = INPUT DIRECTION INDICATION.                      IO        264
                                                                                                                 IO        265
                                                                                                                 IO        266
           107  00000000000000040500              HEREIF DECODE                                                  IO        267
                                                                                                                 IO        268
           110  6160000000 X                      =B6    S=INP                                                   IO        269
                          7170000022              SX7    CR.INP                                                  IO        270
           111  7140000004                        SX4    M.STICO                                                 F162FTNA  778
                          0400000553 +            EQ     NDC         PROCESS ARGUMENTS AND LIST                  IO        271
  
  
  
  
                                        **        EFI -  PROCESS "ENDFILE" STATEMENT.                            IO        273
                                        *         EXIT   TO *REW* WITH                                           IO        274
                                        *                (B6) _ ENDFILE ROUTINE NAME.                            IO        275
                                                                                                                 IO        276
                                                                                                                 IO        277
           112  00000000000000111405              HEREIF ENDFILE                                                 IO        278
                                                                                                                 IO        279
           113  56140                             SA1    B4                                                      IO        280
                     6160000000 X                 SB6    S.ENDFI                                                 IO        281
                               10311              BX3    X1                                                      IO        282
           114  76210                             =X2    O.VAR-O.CONS                                            IO        283
                     20106                        LX1    CHAR                                                    IO        284
                          6221777444              SB2    X1-1R0-O.VAR*1S6                                        IO        285
           115  7140001000                        SX4    M.STENF                                                 F162FTNA  779
                          0720000164 +            MI     B2,REW2     IF 1ST = ALPHA                              IO        286
           116  37632                             IX6    X3-X2                                                   IO        287
                     54610                        SA6    A1          RESET TO INDICATE CONSTANT                  IO        288
                          0400000164 +            EQ     REW2        CONTINUE                                    IO        289
  
  
  
  
                                        **        NCD -  PROCESS "ENCODE" STATEMENT.                             IO        291
                                        *         EXIT   TO *NDC* WITH                                           IO        292
                                        *                (B6) = OUTPUT DIRECTION INDICATION.                     IO        293
                                                                                                                 IO        294
                                                                                                                 IO        295
           117  00000000000000040500              HEREIF ENCODE                                                  IO        296
                                                                                                                 IO        297
           120  6160000000 X                      =B6    S=OUT                                                   IO        298
                          7170000027              SX7    CR.OUT                                                  IO        299
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE     9
                                                                      NCD 
  
           121  7140000010                        SX4    M.STOCO                                                 F162FTNA  780
                          0400000553 +            EQ     NDC                                                     IO        300
  
  
  
  
                                        **        PNC -  PROCESS "PUNCH" STATEMENT.                              IO        302
                                        *         ENTERED BY  *PRINT FMT,*  AND  *READ FMT,*  STATEMENTS.        IO        303
                                        *         ENTRY  (X5) = FILE NAME.                                       IO        304
                                        *                (X6) = I/O INDICATION TO BE STORED IN *R.W*             IO        305
                                        *                (B4) _ FORMAT DESIGNATOR.                               IO        306
                                        *                (B6) = I/O DIRECTION (S=INP OR S=OUT).                  IO        307
                                        *         EXIT   TO *LST* WITH                                           IO        308
                                        *                (B6) = DIRECTION + CODED MODE (S=COD) INDICATION.       IO        309
                                        *         CALLS  ANSI, FFT, PFD, PTN.                                    IO        310
                                                                                                                 IO        311
                                                                                                                 IO        312
           122  00000000000000100000              HEREIF PUNCH                                                   IO        313
                                                                                                                 IO        314
           123  6170000000 X                      ANSI   E.ANS       *PUNCH* STATEMENT IS NON-ANSI               IO        315
           124  43602                             MX6    2                                                       IO        316
                     5150001371 +                 SA5    =0LPUNCH                                                IO        317
                               20601              LX6    1           INDICATES I/O IS PUNCH                      IO        318
                                                                                                                 IO        319
                                        *         ENTERED HERE BY *PRINT* STATEMENT PROCESSOR                    IO        320
                                                                                                                 IO        321
           125  7170000027               PNC1     SX7    CR.OUT                                                  IO        322
                          5170000004 +            SA7    IOREF       SET XREF CELL TO *W*                        IO        323
           126  7140000010                        SX4    M.STOCO                                                 F162FTNA  781
                          6160000000 X            =B6    S=OUT                                                   IO        324
           127  56140                             SA1    B4                                                      IO        325
                     6221777767                   SB2    X1-O.(                                                  IO        326
           130  0420000221 +                      ZR     B2,WOT.R    IF *PUNCH(* OR *PRINT(*                     IO        327
                                                                                                                 IO        328
                                        *         ENTERED HERE BY *READ FMT, * PROCESSOR                         IO        329
                                                                                                                 IO        330
           131  5110000000 X             PNC1A    SA1    =XSTATIC                                                F162FTNA  782
                          12714                   BX7    X1+X4                                                   F162FTNA  783
                               54710              SA7    A1          UPDATE STATIC LOAD INFORMATION              F162FTNA  784
           132  56140                             SA1    B4                                                      F162FTNA  785
                     6221777771                   SB2    X1-O.STAR                                               IO        332
           133  5160000014 +                      SA6    R.W         FLAG FOR TYPE OF I/O                        IO        333
                          0520000146 +            NZ     B2,PNC2     IF (HOPEFULLY) FORMATTED *PUNCH* OR *PRINT* IO        334
           134  6170000000 X                      ANSI   E.IO28      LIST-DIRECTED I/O IS NON-ANSI               IO        335
           135  67441                             =B4    B4-1        GIVE FFT A CELL TO WORK WITH                IO        336
                     0100000325 +                 RJ     FFT         FIND FILE TAG                               IO        337
           136  0100000620 +                      RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST        IO        338
           137  6166000000 X                      =B6    B6+S=FREE                                               IO        339
                          56141                   =A1    B4+1                                                    IO        340
                               76610              =X6    1                                                       IO        341
           140  66441                             =B4    B4+1                                                    IO        342
                     5160000014 +                 SA6    R.W         SET LIST-DIRECTED FLAG                      IO        343
                               56341              =A3    B4+1                                                    FEAT155B    8
           141  7221777764                        SX2    X1-O.COMMA                                              IO        344
                          0301000000 X            ZR     X1,E.IO27   EOS ENCOUNTERED--NO I/O LIST                FCC1068     4
           142  0312000144 +                      NZ     X2,PNC1B    IF NOT A COMMA                              FEAT155B    9
                          0303000000 X            ZR     X3,E.IO27   IF *,* TERMINATOR WITH NO IOLIST.           FEAT155B   10
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    10
                                                                      PNC 
  
           143  0400000464 +                      EQ     LST                                                     FEAT155B   11
           144  6170000000 X             PNC1B    WARN   E.IO9                                                   FEAT155B   12
           145  67441                             =B4    B4-1        NO COMMA, SO PRETEND THERE IS ONE.          FCC1068     5
                     0400000464 +                 EQ     LST         PROCESS I/O LIST                            IO        348
                                                                                                                 IO        349
           146  67441                    PNC2     =B4    B4-1        GIVE FFT A CELL TO WORK WITH                IO        350
                     0100000325 +                 RJ     FFT         FIND FILE TAG                               IO        351
           147  0100000620 +                      RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST.       IO        352
           150  6166000000 X                      =B6    B6+S=COD                                                IO        353
                          13777                   BX7    0                                                       FCC0794     5
           151  5170000666 +                      SA7    ASSUNIT     SET RETURN CONDITION                        FCC0794     6
                          0100000637 +            RJ     PTN         PROCESS FORMAT NUMBER                       IO        354
           152  56140                             SA1    B4                                                      IO        355
                     7221777764                   SX2    X1-O.COMMA                                              IO        356
           153  0301000464 +                      ZR     X1,LST      IF *EOS*                                    IO        357
                          0302000464 +            ZR     X2,LST      IF COMMA                                    IO        358
           154  6170000000 X                      WARN   E.IO9                                                   IO        359
           155  0400000464 +                      EQ     LST         PROCESS I/O LIST                            IO        360
  
  
  
  
                                        **        PNT -  PROCESS "PRINT" STATEMENT.                              IO        362
                                        *         EXIT   TO *PNC* WITH --                                        IO        363
                                        *                (X5) = *OUTPUT* FILE.                                   IO        364
                                                                                                                 IO        365
                                                                                                                 IO        366
           156  00000000000000240000              HEREIF PRINT                                                   IO        367
                                                                                                                 IO        368
           157  6170000000 X                      ANSI   E.ANS       *PRINT* STATEMENT IS NON-ANSI               IO        369
           160  43601                             MX6    1                                                       IO        370
                     5150001372 +                 SA5    =0LOUTPUT                                               IO        371
           161  0400000125 +                      EQ     PNC1        PROCESS REMAINDER OF STATEMENT              IO        372
  
  
  
  
                                        **        REW -  PROCESS "REWIND" STATEMENT.                             IO        374
                                        *                                                                        IO        375
                                        *         ALSO CONTAINS PROCESSING FOR *ENDFILE* AND *BACKSPACE*         IO        376
                                        *         ENTRY TO *REW2* --                                             IO        377
                                        *                (B6) _ THE NAME OF THE FILE MANIPULATION ROUTINE NEEDED IO        378
                                        *                            TO PROCESS THE REQUESTED ACTION.            IO        379
                                        *                (X4) = M.STXXX INDICATOR FOR STATIC LOAD                F162FTNA  786
                                        *         *REW2* THEN ASSEMBLES THE FILE DESIGNATOR FROM THE STATEMENT,  IO        380
                                        *                CHECKS FOR SUPERFLUOUS TRAILING CHARS., AND COMPILES    IO        381
                                        *                A LOAD OF (X1) = FIT ADDRESS, AND AN RJT TO THE ROUTINE IO        382
                                        *         CALLS  CLOAD, CRJ, TAGSEX, ADDWD, NAP, RTC, WARN.              IO        383
                                                                                                                 IO        384
                                                                                                                 IO        385
           162  00000000000000160400              HEREIF REWIND                                                  IO        386
                                                                                                                 IO        387
           163  6160000000 X                      SB6    S.REWIN                                                 IO        388
                          7140002000              SX4    M.STREW                                                 F162FTNA  787
                                                                                                                 IO        389
                                        *         JOINED HERE BY *ENDFILE* AND *BACKSPACE* PROCESSORS            IO        390
                                                                                                                 IO        391
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    11
                                                                      REW 
  
           164  7170000055               REW2     SX7    CR.REF                                                  IO        392
                          5170000004 +            SA7    IOREF       SET XREF CELL TO * *                        IO        393
           165  5120000000 X                      SA2    =XSTATIC                                                F162FTNA  788
                          12624                   BX6    X2+X4                                                   F162FTNA  789
                               54620              SA6    A2          UPDATE STATIC LOAD INFORMATION              F162FTNA  790
           166  56240                             SA2    B4                                                      IO        394
                     56141                        SA1    B4+B1                                                   IO        395
                          0302000000 X            ZR     X2,E.IO1    IF NO UNIT                                  IO        396
           167  0301000172 +                      ZR     X1,REW3     IF *EOS*                                    IO        397
                          66441                   =B4    B4+1                                                    IO        398
           170  6170000000 X                      WARN   E.IO6       EXTRA CHARACTERS - WARNING                  IO        399
           171  67441                             =B4    B4-1                                                    IO        400
           172  10622                    REW3     BX6    X2                                                      IO        401
                     0100000671 +                 RJ     RTC         ASSEMBLE/TRANSLATE FILE NAME                IO        402
           173  0100000620 +                      RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST        IO        403
           174  6130000000 X                      SB3    S.IOCAL                                                 IO        404
                          77763                   SX7    B6-B3                                                   IO        405
                               13666              BX6    0                                                       IO        406
           175  14777                             BX7    -X7         INDICATE NO CALLS YET                       IO        407
                     5170000000 X                 SA7    IONAM                                                   IO        408
           176  0100000434 +                      RJ     IOJ                                                     IO        409
           177  5110000000 X                      SA1    TG.APL                                                  IO        410
                          7261777776              SX6    X1-1                                                    IO        411
           200  54610                             SA6    A1                                                      IO        412
                     0400000000 X                 EQ     PSN         EXIT..                                      IO        413
  
  
  
  
                                        **        RIT -  PROCESS "READ" STATEMENT.                               IO        415
                                        *                                                                        IO        416
                                        *         EXIT   (B6) = *INPUT* DIRECTION INDICATION.                    IO        417
                                        *                TO *PNC* WITH (X5) = *INPUT* FILE,                      IO        418
                                        *                          AND (B4) _ FORMAT DESIGNATOR.                 IO        419
                                        *                OR *WOT* WITH (B4) _ *(*.                               IO        420
                                                                                                                 IO        421
                                                                                                                 IO        422
           201  00000000000000000000              HEREIF READ                                                    IO        423
                                                                                                                 IO        424
           202  7170000022                        SX7    CR.INP                                                  IO        425
                          5170000004 +            SA7    IOREF       SET XREF CELL TO *R*                        IO        426
           203  7140000004                        SX4    M.STICO                                                 F162FTNA  791
                          56140                   SA1    B4                                                      IO        427
           204  5150001373 +                      SA5    =0LINPUT                                                IO        428
                          6160000000 X            =B6    S=INP                                                   IO        429
           205  7221777767                        SX2    X1-O.(                                                  IO        430
                          43600                   MX6    0                                                       IO        431
           206  0302000221 +                      ZR     X2,WOT.R    IF *READ(*                                  IO        432
                          6170000000 X            ANSI   E.ANS       ANSI REQUIRES *(* AFTER *READ*              IO        433
           210  43600                             MX6    0                                                       IO        434
                     0400000131 +                 EQ     PNC1A                                                   IO        435
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    12
                                                                      WOT 
  
                                        **        WOT -  PROCESS "WRITE" STATEMENT.                              IO        437
                                        *                                                                        IO        438
                                        *         ENTERED BY *READ(* STATEMENT.                                  IO        439
                                        *         ENTRY  (B6) = I/O DIRECTION (IN OR OUT)                        IO        440
                                        *                (B4) _ *(*                                              IO        441
                                        *         EXIT   *LST* WITH ---                                          IO        442
                                        *                (B6) = DIRECTION AND BINARY/BCD INDICATION.             IO        443
                                        *         CALLS  PFD, PTN, RTC.                                          IO        444
                                                                                                                 IO        445
                                                                                                                 IO        446
           211  00000000000000050000              HEREIF WRITE                                                   IO        447
                                                                                                                 IO        448
           212  7170000027                        SX7    CR.OUT                                                  IO        449
                          5170000004 +            SA7    IOREF       SET XREF CELL TO *W*                        IO        450
           213  7140000010                        SX4    M.STOCO                                                 F162FTNA  792
                          56140                   SA1    B4                                                      IO        451
           214  6160000000 X                      =B6    S=OUT                                                   IO        452
                          5150001372 +            SA5    =0LOUTPUT                                               IO        453
           215  76610                             SX6    B1                                                      IO        454
                     7221777767                   SX2    X1-O.(                                                  IO        455
           216  0302000221 +                      ZR     X2,WOT.R    IF *WRITE(*                                 IO        456
                          6170000000 X            ANSI   E.ANS       ANSI REQUIRES *(* AFTER *WRITE*             IO        457
           220  76610                             =X6    1                                                       IO        458
                     0400000131 +                 EQ     PNC1A                                                   IO        459
                                                                                                                 IO        460
                                        **        ENTERED HERE BY *READ (* PROCESSOR.                            IO        461
                                                                                                                 IO        462
           221  56141                    WOT.R    SA1    B4+B1                                                   IO        463
                     5160000014 +                 SA6    R.W         FLAG FOR TYPE OF I/O                        IO        464
                               22604              LX6    X4                                                      F162FTNA  793
           222  5160000015 +                      SA6    IOSTAT                                                  F162FTNA  794
                          10611                   BX6    X1                                                      IO        465
           223  0100000671 +                      RJ     RTC         ASSEMBLE UNIT DESIGNATOR                    IO        466
           224  0100000620 +                      RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST.       IO        467
           225  5140000015 +                      SA4    IOSTAT                                                  F162FTNA  795
                          6166000000 X            =B6    B6+S=BIN                                                IO        468
           226  56141                             =A1    B4+1                                                    IO        469
                     66441                        =B4    B4+1        POINT TO RPAREN OR COMMA                    IO        470
                          6271777766              SB7    X1-O.)                                                  IO        471
           227  0570000237 +                      NZ     B7,WOT1     IF NOT *)*                                  IO        472
                          5120000014 +            SA2    R.W                                                     IO        473
           230  0332000000 X                      MI     X2,E.IO25   IF NOT *READ* OR *WRITE*                    IO        474
                          20402                   LX4    2           CONVERT TO BINARY I/O INDICATOR             F162FTNA  796
           231  5110000000 X                      SA1    =XSTATIC                                                F162FTNA  797
                          12614                   BX6    X1+X4                                                   F162FTNA  798
                               54610              SA6    A1          UPDATE STATIC LOAD INFORMATION              F162FTNA  799
           232  43700                             MX7    0           UNFORMATED IO...KEYWORD(U)                  FEAT155B   13
                     54720                        SA7    A2                                                      FEAT155B   14
                          5130000002 +            SA3    IODIR                                                   IO        475
           233  0303000464 +                      ZR     X3,LST      IF *READ*                                   IO        476
                          56141                   =A1    B4+1                                                    IO        477
           234  0311000464 +                      NZ     X1,LST      IF NOT *EOS*                                IO        478
                          6170000000 X            ANSI   E.IO26      ANSI REQUIRES AN I/O LIST                   IO        479
           236  0400000464 +                      EQ     LST                                                     IO        480
                                                                                                                 IO        481
           237  5120000000 X             WOT1     SA2    =XSTATIC                                                F162FTNA  800
                          12624                   BX6    X2+X4                                                   F162FTNA  801
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    13
                                                                      WOT 
  
                               54620              SA6    A2          UPDATE STATIC LOAD INFORMATION              F162FTNA  802
           240  6221777764                        SB2    X1-O.COMMA                                              F162FTNA  803
                          0311000242 +            NZ     X1,WOT2     IF NOT PREMATURE *EOS*                      IO        483
           241  6170000000 X                      FATAL  E.IO8                                                   IO        484
           242  0420000244 +             WOT2     ZR     B2,WOT3     IF COMMA                                    IO        485
                          6170000000 X            WARN   E.IO9       ** ASSUMED COMMA AFTER UNIT **              IO        486
           244  56141                    WOT3     =A1    B4+1                                                    IO        487
                     0301000000 X                 ZR     X1,E.IO13   IF PREMATURE EOS (RETURN LST)               IO        488
                               66441              =B4    B4+1                                                    IO        492
           245  6170000000 X                      SB7    S=BIN                                                   IO        493
                          67667                   SB6    B6-B7                                                   IO        494
           246  6166000000 X                      SB6    B6+S=COD                                                IO        495
                          6221777771              SB2    X1-O.STAR                                               IO        496
           247  0520000253 +                      NZ     B2,WOT3A    IF NOT STAR                                 IO        497
                          6170000000 X            ANSI   E.IO28      LIST-DIRECTED I/O IS NON-ANSI               IO        498
           251  6166000000 X                      =B6    B6+S=FREE                                               IO        499
                          66441                   =B4    B4+1                                                    IO        501
                               76610              =X6    1                                                       IO        503
           252  5160000014 +                      SA6    R.W         SET LIST-DIRECTED FLAG                      IO        505
                          0400000255 +            EQ     WOT3B                                                   FEAT126C  137
                                                                                                                 IO        509
           253  76710                    WOT3A    =X7    1                                                       FCC0794     7
                     5170000666 +                 SA7    ASSUNIT     SET RETURN CONDITION                        FCC0794     8
           254  0100000637 +                      RJ     PTN         PROCESS FORMAT DESIGNATOR                   FCC0794     9
           255  56140                    WOT3B    SA1    B4                                                      FEAT126C  138
                     6271777766                   SB7    X1-O.)                                                  FEAT126C  139
           256  0570000000 X                      NZ     B7,E.IO20         IF NOT *)*                            FEAT126C  140
                          0400000464 +            EQ     LST                                                     FEAT126C  141
  
  
  
  
                                        **        DOB -  I/O LIST DO-BEGIN PROCESSING.                           IO        555
                                        *                                                                        IO        556
                                        *         ENTRY  (B4) _ IO.DOB MARK                                      IO        557
                                        *         EXIT   TO *LST.GO*.                                            IO        558
                                        *                (B4) PRESERVED.                                         IO        559
                                        *         USES   ALL BUT A0.                                             IO        560
                                        *         CALLS  CDI.                                                    IO        561
                                                                                                                 IO        562
                                                                                                                 IO        563
           257  17666                    DOB      BX6    -0                                                      IO        564
                     0100000434 +                 RJ     IOJ         INTERRUPT LIST                              IO        565
           260  0100000000 X                      RJ     MXP         MARK EXTERNAL PROCESSOR                     IO        566
           261  56240                             SA2    B4                                                      IO        567
                     5110000000 X                 SA1    TG.PRO                                                  IO        568
                               21222              AX2    18          ISOLATE LINK TO DO-INDEX                    IO        569
           262  73220                             SX2    X2          ADDRESS OF INDEX                            FCC0787    30
                     7170000012                   =X7    O.=                                                     IO        571
                               73611              =X6    X1+1        UPDATE PROGRAM TAG                          IO        572
           263  76040                             SX0    B4                                                      IO        573
                     53721                        =A7    X2+1                                                    FCC0787    31
                          54610                   SA6    A1                                                      IO        575
                               20052              LX0    -18                                                     IO        576
           264  12360                             BX3    X6+X0                                                   IO        577
                     63421                        =B4    X2+1        POINT TO*=*                                 FCC0787    32
                          20344                   LX3    2*18                                                    IO        579
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    14
                                                                      DOB 
  
                               36732              IX7    X3+X2       =  24/ L.TAG,  18/ FWA-DO,  18/ INDEX-ADDR  IO        580
           265  5170000274 +                      SA7    DOBA        SAVE IO.DOC POINTERS                        IO        581
                                                                                                                 IO        582
                                        **        PARSE *DO* INITIAL CODE.                                       IO        583
                                        *         (X6) = L-TAG FOR LOOP.                                         IO        584
                                                                                                                 IO        585
                          0100000000 X            RJ     CDI         PARSE IT.                                   IO        586
                                                                                                                 IO        587
           266  7100000067                        =X0    IO.DOC                                                  IO        588
                          5110000003 +            SA1    IOARGT                                                  IO        589
           267  5130000274 +                      SA3    DOBA                                                    IO        590
                          12460                   BX4    X6+X0       SAVE *DO-ERROR* FLAG                        IO        591
                               22601              LX6    X1                                                      IO        592
           270  66340                             SB3    B4          _ )                                         IO        593
                     63230                        SB2    X3          ADDRESS OF DO-INDEX                         IO        594
                          21322                   AX3    18                                                      IO        595
                               63430              SB4    X3          RESTORE (B4) _ FRONT OF DO-LIST             IO        596
           271  5160000000 X                      SA6    ARGMODE     RESET AFTER *DO* HAS ALTERED.               IO        597
                          77243                   SX2    B4-B3                                                   IO        598
                               13666              BX6    O.EOS                                                   IO        599
           272  57621                             =A6    B2-1        FORCE *EOS* AT END OF LIST                  IO        600
                     37032                        IX0    X3-X2                                                   IO        601
                          20022                   LX0    18                                                      IO        602
                               36704              IX7    X0+X4                                                   IO        603
           273  56720                             SA7    B2          STORE DO-CLOSE MARK (OVER THE INDEX)        IO        604
                                        ,                            24/ L.TAG,  18/ _),  18/ IO.DOC             IO        605
                     0400000504 +                 EQ     LST.GO      EXIT..                                      IO        606
                                                                                                                 IO        607
           274                     1     DOBA     BSS    1           TEMP                                        IO        608
  
  
  
  
                                        **        DOC -  I/O LIST DO-CONCLUSION PROCESSING.                      IO        610
                                        *                                                                        IO        611
                                        *                MAKES DO-TERMINATION ENTRY IN PARSED FILE.              IO        612
                                        *         1.  AN *IOJ* TURPLE.                                           IO        613
                                        *                                                                        IO        614
                                        *         ENTRY  (B4) _ IO.DOC MARK.                                     IO        615
                                        *         EXIT   TO *LST.GO*.                                            IO        616
                                        *                (B4) _ NEXT ITEM PAST THE DO.                           IO        617
                                        *         USES   ALL.                                                    IO        618
                                        *         CALLS  IOJ, MXP, PDT                                           IO        619
                                                                                                                 IO        620
                                                                                                                 IO        621
           275                           DOC      BSS    0           ENTRY/EXIT...                               IO        622
           275  17666                             BX6    -0                                                      IO        623
                     0100000434 +                 RJ     IOJ         INTERRUPT LIST                              IO        624
           276  56340                             SA3    B4          24/ L.TAG,  18/ _NEXT,  18/ IO.DOC          IO        625
                     21322                        AX3    18                                                      IO        626
                          63431                   =B4    X3+1        SKIP THE COMMA                              IO        627
           277  56240                    DOC2     SA2    B4                                                      FCC1337     5
                     6222777766                   SB2    X2-O.)                                                  FCC1337     6
           300  0520000302 +                      NZ     B2,DOC4     IF NO REDUNDANT PAREN                       FCC1337     7
                          66441                   =B4    B4+1        SKIP REDUNDANT PAREN                        FCC1337     8
           301  0400000277 +                      EQ     DOC2                                                    FCC1337     9
                                                                                                                 FCC1337    10
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    15
                                                                      DOC 
  
           302  21322                    DOC4     AX3    18                                                      FCC1337    11
                     73230                        SX2    X3          ISOLATE L.TAG OF THIS DO                    IO        629
                          0333000304 +            MI     X3,DOC6     IF ERROR IN DO-DEFINITION                   IO        630
           303  0100000000 X                      RJ     PDT         PROCESS DO TERMINATION (PASS 1)             IO        631
                                                                                                                 IO        632
           304  0100000000 X             DOC6     RJ     MXP         MARK EXTERNAL PROCESSOR                     IO        633
           305  56141                             =A1    B4+1                                                    FEAT155B   15
                     0311000504 +                 NZ     X1,LST.GO   IF NOT EOS                                  FEAT155B   16
                               56240              =A2    B4                                                      FEAT155B   17
           306  7222777764                        SX2    X2-O.COMMA                                              FEAT155B   18
                          0312000504 +            NZ     X2,LST.GO   IF EOS, CHECK PRECEEDING ELEMENT            FEAT155B   19
           307  66441                             =B4    B4+1                                                    FEAT155B   20
                     0400000504 +                 EQ     LST.GO      EXIT..                                      FEAT155B   21
  
  
  
  
                                        **        FFN -  FIND FILE NAME.                                         IO        636
                                        *                                                                        IO        637
                                        *                MANUFACTURES OBJECT PROGRAM FILE NAMES FROM THE SOURCE  IO        638
                                        *         PROGRAM FILE-NAME.                                             IO        639
                                        *         ENTRY  (X6) = SOURCE-PROGRAM FILE NAME (0L FORMAT, 6 CHAR MAX) IO        640
                                        *         EXIT   (X6) = OBJECT-PROGRAM FILE NAME (0L FORMAT).            IO        641
                                        *         USES   A2  X1,X3  B7                                           IO        642
                                                                                                                 IO        643
                                                                                                                 IO        644
           310  0400400310 +             FFN      SUBR               ENTRY/EXIT...                               IO        645
           311  76110                             =X1    1                                                       IO        646
                     5120001374 +                 SA2    =40404040404040404040B                                  IO        647
                               37161              IX1    X6-X1       LOCATE LOWEST BIT                           IO        648
           312  16361                             BX3    -X1+X6                                                  IO        649
                     6170000067                   SB7    60-CHAR+1                                               IO        650
                               11123              BX1    X2*X3       40 WHERE CHARACTERS WERE                    IO        651
           313  5120001375 +                      SA2    FFNA                                                    IO        652
                          22371                   LX3    X1,B7                                                   IO        653
                               37313              IX3    X1-X3                                                   IO        654
           314  36113                             IX1    X1+X3       77 WHERE CHARACTERS WERE                    IO        655
                     15221                        BX2    -X1*X2                                                  IO        656
                          36662                   IX6    X6+X2       MERGE TRAILING "FILE" CHARACTERS            IO        657
                               21106              AX1    CHAR        EXTEND MASK 1 CHAR MORE THAN NR OF ORIGINAL IO        658
           315  11616                             BX6    X1*X6       DROP SUPERFLOUS "FILE"                      IO        659
                     0400000310 +                 EQ     EXIT.                                                   IO        660
                                                                                                                 IO        661
                                1375 +   FFNA     LIT    7L"FILE""FILE""FILE""FILE""FILE""FILE""FILE"            IO        662
  
  
  
  
                                        **        FFT -  FIND FILE TAG.                                          IO        664
                                        *                                                                        IO        665
                                        *         ENTRY  (X5) = FILENAME                                         IO        666
                                        *                (B4) _ A CELL WHICH MAY BE CLOBBERED (USUALLY IN THE    IO        667
                                        *                            *SB*).                                      IO        668
                                        *         EXIT   (X5) = FILE TAG.                                        IO        669
                                        *                     WILL BE ZERO IF NO SUCH FILE.                      IO        670
                                        *         USES   A1,A2,A3,A6,A7  X0  B2,B7                               FCC0524    18
                                        *         CALLS  FFN, NCS, TAGSEX, WARN, ADDREF, SCAN, ADSYM             FCC0524    19
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    16
                                                                      FFT 
  
                                                                                                                 IO        673
                                                                                                                 IO        674
                                        *         PROCESS WHEN IN MAIN PROGRAM                                   IO        675
                                                                                                                 IO        676
           316  5110000000 X             FFT5     SCAN   TS.SYM,SSY                                              IO        677
           317  0770000340 +                      MI     B7,FFT3     IF *NIT*, ERROR                             IO        678
                          7157200001              =X5    B7+C.VAR+1                                              IO        679
           320  20552                    FFT9     LX5    P.ATAG                                                  IO        680
                                                                                                                 IO        681
                                        *         SET AVAR BIT FOR *WRITE* STATEMENT SO AS TO GET IOIND BIT SET  IO        682
                                                                                                                 IO        683
                     5110000014 +                 SA1    R.W                                                     IO        684
                               73210              SX2    X1          1 IF *WRITE* OR *PUNCH*, 0 OTHERWISE        IO        685
           321  20220                             LX2    P.AVAR                                                  IO        686
                     12552                        BX5    X5+X2                                                   IO        687
                          5110000357 +            SA1    REFLAG                                                  FCC0524    20
           322  0311000325 +                      NZ     X1,FFT      IF REFMAP ENTRY ALREADY, EXIT..             FCC0524    21
                          5110000004 +            SA1    IOREF                                                   FCC0524    22
           323  10655                             ADDREF X5,X1                                                   IO        689
                                                                                                                 IO        690
           325  0400400325 +             FFT      SUBR               ENTRY/EXIT...                               IO        691
           326  10655                             BX6    X5                                                      IO        692
                     0100000310 +                 RJ     FFN         CREATE APPROPRIATE NAME                     IO        693
           327  5120000000 X                      SA2    MOD                                                     IO        694
                          5160000000 X            SA6    FILL.       SAVE FILE NAME FOR POSSIBLE ERROR MSG       IO        695
           330  76700                             =X7    0                                                       FCC0524    23
                     5170000357 +                 SA7    REFLAG      INITIALIZE REFMAP FLAG                      FCC0524    24
                               20260              IFBIT  X2,PPRO,FFT5                                            IO        696
                                                                                                                 IO        697
                                        *         PROCESS WHEN IN SUBROUTINE/FUNCTION                            IO        698
                                                                                                                 IO        699
           332  5110000000 X             FFT2     SA1    CO.EDT                                                  IO        700
                          0331000342 +            MI     X1,FFT4     IF FILE LINKAGE SUPPRESSED                  IO        701
           333  5110000004 +                      SA1    IOREF                                                   FCC0524    25
                          10711                   BX7    X1                                                      FCC0524    26
           334  5170000000 X                      SA7    REFVAR                                                  FCC0524    27
                          56640                   SA6    B4                                                      IO        702
           335  7160020100                        TAGSEX B4                                                      IO        703
           336  76710                             =X7    1                                                       FCC0524    28
                     5170000357 +                 SA7    REFLAG      INDICATE REFMAP ENTRY                       FCC0524    29
                               10566              BX5    X6                                                      IO        704
           337  21552                             AX5    P.TAG                                                   IO        705
                     0400000320 +                 EQ     FFT9        EXIT..                                      IO        706
                                                                                                                 IO        707
           340  6170000000 X             FFT3     WARN   E.UE2                                                   IO        708
           341  0400000332 +                      EQ     FFT2                                                    IO        709
                                                                                                                 IO        710
                                                                                                                 IO        711
                                        **        PROCESS FILE TAG WHEN LINKAGE SUPPRESSED.                      IO        712
                                        *                (MAKE IT INDIRECT.)                                     IO        713
                                                                                                                 IO        714
           342  5110000000 X             FFT4     SCAN   TS.SYM,SSY                                              FCC0524    30
           343  0670000345 +                      PL     B7,FFT45    IF ALREADY IN TABLE                         FCC0524    31
                          7170020000              =X7    M.NVAR                                                  FCC0524    32
           344  0100000000 X                      ADSYM  A1          ADD TO SYMBOL TABLE                         FCC0524    33
           345  5110000004 +             FFT45    SA1    IOREF                                                   FCC0524    34
                          10655                   BX6    X5                                                      FCC0524    35
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    17
                                                                      FFT 
  
           346  5160000356 +                      SA6    SAVNAM      SAVE FILE NAME                              FCC0524    36
                          7157200001              =X5    B7+C.VAR+1                                              FCC0524    37
           347  20552                             LX5    P.ATAG                                                  FCC0524    38
                     10655                        ADDREF X5,X1                                                   FCC0524    39
           351  76710                             =X7    1                                                       FCC0524    40
                     5170000357 +                 SA7    REFLAG      INDICATE REFMAP ENTRY                       FCC0524    41
           352  5150000356 +                      SA5    SAVNAM      RETRIEVE FILE NAME                          FCC0524    42
                          10655                   BX6    X5                                                      FCC0524    43
                               43700              MX7    0                                                       IO        716
           353  0100000000 X                      RJ     NCS         ENTER FILE NAME IN CONSTANT TABLE           IO        717
           354  76210                             =X2    1                                                       IO        718
                     20221                        LX2    P.AFIT                                                  IO        719
                          12562                   BX5    X6+X2       SET VARIABLE FIT BIT                        IO        720
                               20522              LX5    -P.ATAG                                                 IO        721
           355  0400000320 +                      EQ     FFT9        EXIT..                                      IO        722
                                                                                                                 FCC0524    44
           356                     1     SAVNAM   BSS    1                                                       FCC0524    45
           357  00000000000000000000     REFLAG   DATA   0                                                       FCC0524    46
  
  
  
  
                                        **        ILI -  INITIAL LIST ITEMS.                                     IO        724
                                        *                                                                        IO        725
                                        *                ADDS HEADER LIST ITEMS TO I/O AP-LIST.                  IO        726
                                        *         IF ANY ITEM IS ZERO, IT AND SUBSEQUENT ITEMS ARE NOT ADDED.    IO        727
                                        *         EXCEPT FOR *ERR=,END=* ADDRESSES, IF DEFINED                   IO        728
                                        *                A.  (IO1ST)                                             IO        729
                                        *                B.  (IO2ND)                                             IO        730
                                        *                C.  (IO3RD)                                             IO        731
                                        *         EXIT   (X1) = NUMBER OF ITEMS ADDED.                           IO        732
                                        *         USES   A1,A2,A3,A6  X0  B2,B3,B7                               IO        733
                                                                                                                 IO        734
                                                                                                                 IO        735
           360  0400400360 +             ILI      SUBR               ENTRY/EXIT...                               IO        736
           361  5120000006 +                      SA2    IO1ST                                                   IO        737
                          10622                   BX6    X2                                                      IO        738
           362  5110000000 X                      ADDWD  TP.APL      FIT DESIGNATOR TO AP-LIST                   IO        739
                                                                                                                 IO        740
           363  5120000007 +                      SA2    IO2ND                                                   IO        741
                          76110                   SX1    B1                                                      IO        742
                               10622              BX6    X2                                                      IO        743
           364  0302000375 +                      ZR     X2,ILI.1    IF NO FORMAT (FIT ONLY)                     IO        744
                          5110000000 X            ADDWD  TP.APL      FORMAT OR RECORD LENGTH TO AP-LIST          IO        745
                                                                                                                 IO        746
           366  5120000010 +                      SA2    IO3RD                                                   IO        747
                          76111                   =X1    2                                                       IO        748
                               10622              BX6    X2                                                      IO        749
           367  0302000375 +                      ZR     X2,ILI.1    IF NO COUNT (NOT EN/DE CODE)                IO        750
                          5110000000 X            ADDWD  TP.APL      COUNT DESIGNATOR TO AP-LIST                 IO        751
           371  5120000011 +                      SA2    IO4TH                                                   IO        752
                          7110000003              SX1    3                                                       IO        753
           372  10622                             BX6    X2                                                      IO        754
                     0302000360 +                 ZR     X2,EXIT.    IF NOT BUFFER I/O                           IO        755
           373  5110000000 X                      ADDWD  TP.APL                                                  IO        756
           374  7110000004                        SX1    4                                                       IO        757
                          0400000360 +            EQ     EXIT.                                                   IO        758
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    18
  
  
           375  5120000002 +             ILI.1    SA2    IODIR                                                   IO        759
                          0312000360 +            NZ     X2,EXIT.    IF WRITE, DON/T PUT OUT END/ERR WORD        IO        760
           376  5130000013 +                      SA3    IOENDT                                                  FEAT126C  142
                          73611                   =X6    X1+1                                                    IO        769
                               20352              LX3    P.ATAG                                                  FEAT126C  143
           377  5160000356 +                      SA6    SAVNAM            SAVE COUNT IN TEMPORARY               FEAT126C  144
                          10633                   BX6    X3                                                      FCC0589    10
           400  5110000000 X                      ADDWD  TP.APL      ADDRESS WORD TO APLIST                      IO        774
           401  5110000356 +                      SA1    SAVNAM            RESTORE COUNT                         FEAT126C  145
                          0400000360 +            EQ     EXIT.                                                   IO        776
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    19
                                                                      IOD 
  
                                        **        IOD -  MARK OCCURANCES OF IMPLIED DO-LOOPS IN I/O LIST.        IO        778
                                        *                                                                        IO        779
                                        *                BEING A SIMPLE SCHEME FOR DISCOVERING AND MARKING THE   IO        780
                                        *         EXTENT OF (ANY) IMPLIED-DOS IN AN I/O LIST.  A PSEUDO-STACK    IO        781
                                        *         OF PARENTHESES IS KEPT IN THE STRING ITSELF, BY STORING OVER   IO        782
                                        *         TOP OF EVERY LEFT PAREN THE ADDRESS OF THE PRECEDING ONE.      IO        783
                                        *         THIS STACK IS POPPED UP FOR EVERY RIGHT PAREN ENCOUNTERED BY   IO        784
                                        *         RESETTING THE STACK POINTER (B5) TO THE ADDRESS CONTAINED IN   IO        785
                                        *         THE LAST LPAREN, AND RESTORING THE LPAREN TO ITS ORIGINAL      IO        786
                                        *         VALUE (O.LP).  THUS, WHEN AN EQUAL SIGN IS ENCOUNTERED, THE    IO        787
                                        *         TOP OF THE STACK IS ITS OPENING DO-PAREN.  THAT CELL IS        IO        788
                                        *         MODIFIED SUCH THAT WHEN THE CLOSING RPAREN IS POPPED, THE      IO        789
                                        *         SUPPOSED RESTORATION WILL ACTUALLY TURN IT INTO A DO-BEGIN     IO        790
                                        *         MARK.  REDUNDANT (NON-DO-IMPLYING) PARENS ARE THEREFORE        IO        791
                                        *         EFFECTIVELY IGNORED.                                           IO        792
                                        *                AS TRUE DO-IMPLIED PARENS ARE DISCOVERED, WE INSERT     IO        793
                                        *         *O.EOS* MARKS IN FRONT OF THEM SO THAT THE PARSER WILL LATER   IO        794
                                        *         STOP THERE AND ALLOW *LST* TO LOOK AT THE DO-BEGIN MARK.       IO        795
                                        *         THIS IS INHIBITED IF THE LPAREN IS NOT PRECEDED BY A COMMA,    IO        796
                                        *         SINCE WHATEVER ELSE IS THERE WILL BE HANDLED BY *LST*, AND NOT IO        797
                                        *         THE PARSER.                                                    IO        798
                                        *                OF COURSE, ANY LEFT PAREN PRECEDED BY A VARIABLE IS A   IO        799
                                        *         SUBSCRIPT PAREN, AND IS SKIPPED OVER.                          IO        800
                                        *                                                                        IO        801
                                        *         ENTRY  (B4) _ FWA I/O LIST.                                    IO        802
                                        *         EXIT   INTO *LST*.                                             IO        803
                                        *                (B4) PRESERVED.                                         IO        804
                                        *         USES   ALL BUT A0, B4.                                         IO        805
                                        *         CALLS  SKS.                                                    IO        806
                                        *                                                                        IO        807
                                        *         REGISTER ASSIGNMENTS --                                        IO        808
                                        *                (A4) _ FETCH ADDRESS.                                   IO        809
                                        *                (B5) _ LAST LPAREN LINK.                                IO        810
                                        *                (B6) = PAREN LEVEL.                                     IO        811
                                                                                                                 IO        812
                                                                                                                 IO        813
           402  0560000000 X             IOD8     NZ     B6,E.IOD1   IF IMBALENCED PARENS.                       IO        814
                          13666                   BX6    O.EOS                                                   IO        815
                               54640              SA6    A4          RESET THE EOS FOR PAR                       IO        816
           403  54641                             =A6    A4+1        ADD AN EXTRA *EOS* FOR *LST*                IO        817
                                                                                                                 IO        818
                                         SNAP     IFNE   TEST        DUMP *SB*                                   IO        819
                                                  SA1    CO.SNAP                                                 IO        820
                                                  LX1    1RN         DO SNAP FLAG                                FEAT126C  146
                                                  PL     X1,IODX     IF I/O SNAP NOT REQUESTED                   IO        822
                                                  RJ     =XSVR                                                   IO        823
                                                  PLINE  (=C= (DUMP OF *SB* -- FROM I/O DO-MARKER.)=),4,1        FEAT126A 1008
                                                  RJ     =XSBL       LIST STRING BUFFER                          IO        825
                                                  RJ     =XRSR                                                   IO        826
                                         SNAP     ENDIF                                                          IO        827
                                                                                                                 IO        828
                     0400000503 +                 EQ     IODX        EXIT..                                      IO        829
                                                                                                                 IO        830
           404                           IOD      BSS    0           ENTRY...                                    IO        831
           404  7160000032                        SX6    O.SLP                                                   IO        832
                          57641                   =A6    B4-1        RESET LAST CHARACTER OF UNIT/FORMAT         IO        833
                                                                     DESIGNATOR TO  PROTECT UNARY MINUS IN I/O   IO        834
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    20
                                                                      IOD 
  
                                                                     LIST                                        IO        835
                               56440              SA4    B4          INITIALIZE FETCH                            IO        836
           405  66600                             =B6    0           PAREN LEVEL                                 IO        837
                     43400                        MX4    0                                                       IO        838
                          67541                   =B5    B4-1        FAKE UP A LINK TO LAST LPAREN               IO        839
                                                                                                                 IO        840
           406  10344                    IOD2     BX3    X4                                                      IO        841
                     54441                        =A4    A4+1                                                    IO        842
                          6274777767              =B7    X4-O.LP                                                 IO        843
           407  0304000402 +                      ZR     X4,IOD8     IF *EOS*                                    IO        845
                          67271                   =B2    B7+O.(-O.)                                              IO        847
           410  0470000423 +                      ZR     B7,IOD6     IF *(*                                      IO        848
                          0420000417 +            ZR     B2,IOD4     IF *)*                                      IO        849
           411  0521000406 +                      NE     B2,B1,IOD2  IF NO *=*, LOOP..                           IO        850
                                                                                                                 IO        851
                                        **        FOUND A *=*  --  MARK CLOSE OF IMPLIED DO.                     IO        852
                                                                                                                 IO        853
                          75741                   =X7    A4-1        POINTS TO DO-INDEX                          IO        854
           412  7120000060                        =X2    IO.DOB-O.LP                                             IO        855
                          20722                   LX7    18                                                      IO        856
                               12072              BX0    X7+X2                                                   IO        857
           413  56350                             SA3    B5                                                      IO        858
                     20022                        LX0    18                                                      IO        859
                          36703                   IX7    X0+X3                                                   IO        860
                               57351              =A3    B5-1                                                    IO        861
           414  56750                             SA7    B5          MARK DO-BEGIN (OVER THE LPAREN)             IO        862
                                        ,                            24/ LINK-TO-INDEX,  18/ IO.DOB,  18/ PREV   IO        863
                     5024777775                   SA2    A4-2                                                    IO        864
           415  6272777764                        SB7    X2-O.COMMA                                              IO        866
                          0570000000 X            NZ     B7,E.IOD2   IF IMPLIED DO NOT PRECEEDED BY *,*          IO        867
           416  0400000406 +                      EQ     IOD2                                                    IO        871
                                                                                                                 IO        885
                                                                                                                 IO        886
                                        **        FOUND A *)*  --  POP UP PAREN STACK.                           IO        887
                                                                                                                 IO        888
           417  56250                    IOD4     SA2    B5                                                      IO        889
                     76610                        =X6    1                                                       IO        890
                          67661                   =B6    B6-1                                                    IO        891
                               63520              SB5    X2          LINK BACK ONE MORE PAREN LEVEL              IO        892
           420  21222                             AX2    18                                                      IO        893
                     20622                        LX6    18                                                      IO        895
                          0760000000 X            MI     B6,E.IOD3   IF TOO MANY RPARENS (RETURN PSP)            IO        896
           421  74740                             SX7    A4                                                      FCC0787    33
                     20744                        LX7    36                                                      FCC0787    34
                          12727                   BX7    X2+X7       6/0,18/_),18/LINK TO INDEX,18/IO.DOB OR O.( FCC0787    35
                               36646              IX6    X4+X6       CONSTRUCT SPECIAL RP                        IO        897
           422  54720                             SA7    A2          RESTORE LPAREN (OR DOB MARK)                IO        898
                     54640                        SA6    A4          SPECIAL RP                                  IO        899
                          0400000425 +            EQ     IOD5                                                    FCC1769X    9
                                                                                                                 IO        901
                                                                                                                 IO        902
                                        **        FOUND A *(*  --  PUSH DOWN PAREN STACK.                        IO        903
                                        *                HOWEVER, IF THIS IS A SUBSCRIPT PAREN (PRECEDING        IO        904
                                        *                ELEMENT IS *O.VAR*), SKIP OVER THE SUBSCRIPT AND ANY    IO        905
                                        *                PAIRED PARENS WITHIN IT, AND DO NOT MESS UP THE STACK.  IO        906
                                                                                                                 IO        907
           423  6223777774               IOD6     =B2    X3-O.VAR                                                IO        908
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    21
                                                                      IOD 
  
                          0520000432 +            NZ     B2,IOD7     IF A FREE-STANDING PAREN                    IO        909
           424  0100000724 +                      RJ     SKS         SKIP OVER THE SUBSCRIPT                     IO        910
           425  54241                    IOD5     SA2    A4+B1       A2 POINTS TO NEXT ELEMENT TO PROCESS        FCC1769X   10
                     6222777774                   SB2    X2-O.VAR                                                FCC1769X   11
           426  0420000431 +                      ZR     B2,IOD50    IF *)* FOLLOWED BY *O.VAR*                  FCC1769X   12
                          6222777775              SB2    X2-O.CONS                                               FCC1769X   13
           427  0420000431 +                      ZR     B2,IOD50    IF *)* FOLLOWED BY *O.CONS*                 FCC1769X   14
                          6222777767              SB2    X2-O.LP                                                 FCC1769X   15
           430  0420000431 +                      ZR     B2,IOD50    IF *)* FOLLOWED BY *(*                      FCC1769X   16
                          0400000406 +            EQ     IOD2                                                    FCC1769X   17
                                                                                                                 FCC1769X   18
           431  64420                    IOD50    SB4    A2                                                      FCC1769X   19
                     0400000000 X                 EQ     E.IOD4      EXPECTED COMMA - RETURNS TO MAIN(CPM)       FCC1769X   20
                                                                                                                 IO        912
           432  66661                    IOD7     =B6    B6+1        INCREMENT LEVEL COUNTER                     IO        913
                     20422                        LX4    18                                                      IO        914
                          76050                   SX0    B5                                                      IO        915
                               64540              SB5    A4          LINK NOW TO THIS PAREN                      IO        916
           433  36704                             IX7    X0+X4                                                   IO        917
                     54740                        SA7    A4          THIS PAREN LINKS BACK TO LAST ONE           IO        918
                                        ,                            42/ O.(,  18/ PREV                          IO        919
                          0400000406 +            EQ     IOD2                                                    IO        920
  
  
  
  
                                        **        IOJ -  COMPILE JUMP TO I/O ROUTINE.                            IO        922
                                        *                                                                        IO        923
                                        *         ENTRY  (X6) = TERMINATION CODE --                              IO        924
                                        *                       -0 = INTERRUPTION OF LIST.  NOTHING COMPILED IF  IO        925
                                        *                            LIST IS EMPTY.                              IO        926
                                        *                       +0 = TERMINAL CALL.  MUST BE COMPILED.           IO        927
                                        *                (IOLEN)  = LENGTH OF CURRENT LIST.                      IO        928
                                        *                (ROUTNAM)= ADDRESS OF ROUTINE NAME.  IF THE INITIAL     IO        929
                                        *                            CALL HAS NOT YET BEEN COMPILED, IT IS       IO        930
                                        *                            COMPLEMENTED.                               IO        931
                                        *         EXIT   (IOLEN) = ZERO, INDICATING EMPTY LIST.                  IO        932
                                        *                A *O=IOJ* TRIPLE HAS BEEN ADDED TO THE PARSED FILE.     IO        933
                                        *                     1OP --  APTAG / TRACEBACK                          IO        934
                                        *                     2OP --  SUBROUTINE TAG                             IO        935
                                        *         (CURST) RESET TO (TT=PAR),   TO PREVENT THINGS FROM GETTING    IO        936
                                        *                MOVED AROUND TO THE WRONG PLACE.                        IO        937
                                        *                                                                        IO        938
                                        *         USES   ALL BUT  A0  B4                                         IO        939
                                        *         CALLS  ADDWD, CLOAD, CRJ, TAGSEX.                              IO        940
                                                                                                                 IO        941
                                                                                                                 IO        942
           434  0400400434 +             IOJ      SUBR               ENTRY/EXIT...                               IO        943
           435  5150000005 +                      SA5    IOLEN                                                   IO        944
                          10466                   BX4    X6          SAVE (X6)                                   IO        945
           436  0326000437 +                      PL     X6,IOJ1     IF HARD END, MUST COMPILE                   IO        946
                          0305000434 +            ZR     X5,EXIT.    IF EMPTY LIST, IGNORE..                     IO        947
           437  0325000441 +             IOJ1     PL     X5,IOJ2     IF NOT VERY FIRST ITEM                      IO        948
                          0100000360 +            RJ     ILI                                                     IO        949
           440  10511                             BX5    X1                                                      IO        950
                     22604                        LX6    X4          RESTORE (X6)                                IO        951
                                                                                                                 IO        952
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    22
                                                                      IOJ 
  
           441  5110000000 X             IOJ2     ADDWD  TP.APL      APPEND TERMINATOR TO AP-LIST BEING MADE.    IO        953
           442  5110000000 +                      SA1    IOAPT                                                   IO        954
                          5120000000 X            SA2    TG.APL                                                  IO        955
           443  63351                             =B3    X5+1                                                    IO        956
                     7261777776                   SX6    X1-1                                                    IO        957
                               76510              =X5    1           INDICATE NO TRACE-BACK                      IO        958
           444  73721                             =X7    X2+1                                                    IO        959
                     54620                        SA6    A2          RESET (TG.APL) MOMENTARILY, TO FORCE *NAP*  IO        960
                                        ,                            TO GENERATE THE TAG WE WANT.                IO        961
                          54710                   SA7    A1                                                      IO        962
           445  0100000000 X                      RJ     NAP         FIND / ENTER AP-LIST                        IO        963
           446  5130000000 X                      SA3    IONAM                                                   IO        964
                          10466                   BX4    X6          SAVE AP-LIST TAG                            IO        965
                                                                                                                 IO        966
           447  0323000451 +                      PL     X3,IOJ4     IF NOT INITIAL CALL                         IO        967
                          14333                   BX3    -X3                                                     IO        968
           450  7263000000 X                      =X6    X3+S=CONT   RESET ROUTINE NAME TO CONTINUATION TYPE     IO        969
                          13555                   BX5    0           FORCE TRACEBACK                             IO        970
                               54630              SA6    A3                                                      IO        971
                                                                                                                 IO        972
           451  66540                    IOJ4     SB5    B4          SAVE (B4)                                   IO        973
                     12554                        BX5    X5+X4       SAVE (APTAG, TRACE)                         IO        974
                          6243000000 X            TAGSEX X3+S.IOCAL                                              IO        975
           453  10466                             BX4    X6          SAVE ROUTINE TAG                            IO        976
                     0100000000 X                 RJ     MXP                                                     IO        977
                                                                                                                 IO        978
           454  5110000000 X                      ALLOC  TT.PAR,L.TURP                                           IO        979
           456  10644                             BX6    X4          (2OP) = SUBROUTINE TAG                      IO        980
                     22705                        LX7    X5          (1OP) = APTAG + TRACEFLAG                   IO        981
                          5110000000 X            SA1    CALLIO                                                  IO        982
           457  57671                             =A6    B7-L.TURP+OR.2OP                                        IO        983
                     55761                        =A7    A6-OR.2OP+OR.1OP                                        IO        984
                          22602                   LX6    X2                                                      IO        985
                               10711              BX7    X1                                                      IO        986
           460  5160000000 X                      SA6    CURST                                                   IO        987
                          55771                   =A7    A7-OR.1OP+OR.OPR                                        IO        988
                               66450              SB4    B5          RESTORE (B5)                                IO        989
           461  13777                             BX7    0                                                       IO        990
                     5110000000 +                 SA1    IOAPT                                                   IO        991
                               10611              BX6    X1          RESTORE (TG.APL), RESERVING NEXT ORDINAL    IO        992
           462  54750                             SA7    A5          RESET LIST LENGTH TO EMPTY                  IO        993
                     5160000000 X                 SA6    TG.APL                                                  IO        994
                               10677              SHRINK TP=ILI,X7                                               FCC0813   167
                          0400000434 +            EQ     EXIT.                                                   IO        996
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    23
                                                                      LST 
  
                                        **        LST -  PROCESS INPUT/OUTPUT LIST                               IO        998
                                        *                                                                        IO        999
                                        *         CALLED BY ALL I/O STATEMENT PROCESSORS WHICH HAVE AN I/O LIST. IO       1000
                                        *                                                                        IO       1001
                                        *         FORMAT/NAMELIST DESIGNATOR HAS ALREADY BEEN STORED IN *APLIST* IO       1002
                                        *                                                                        IO       1003
                                        *         EACH ITEM TO BE TRANSMITTED IS THEN EXAMINED, AND LOOPS        IO       1004
                                        *                COLLAPSED (WHERE POSSIBLE), AND INTERMEDIATE CALLS      IO       1005
                                        *                COMPILED AS NECESSARY.  *HBL* AND *HCL* ARE USED TO     IO       1006
                                        *                COMPILE IMPLIED-DO INSTRUCTIONS.                        IO       1007
                                        *         PROCESSING IS SLIGHTLY DIFFERENT FOR *NAMELIST*, IN THAT THERE IO       1008
                                        *                IS ACTUALLY NO LIST TO DO, SO WE COMPILE AN *RJ* AND    IO       1009
                                        *                QUIT.                                                   IO       1010
                                        *         SEE THE WRITE-UPS OF THE OBJECT LIBRARY ROUTINES FOR THE GORY  IO       1011
                                        *                DETAILS.                                                IO       1012
                                        *                                                                        IO       1013
                                        *         ENTRY  *PFD* HAS INITIALIZED I/O PROCESSING.                   IO       1014
                                        *                (B4) _ SEPARATOR IN FRONT OF I/O LIST.                  IO       1015
                                        *                (B6) INDICATES I/O METHOD (SEE S.IOCALL).               IO       1016
                                        *                                                                        IO       1017
                                        *         EXIT   TO MASTER LOOP.                                         IO       1018
                                        *                                                                        IO       1019
                                        *         USES   ALL REGISTERS                                           IO       1020
                                        *                *ROUTNAM* TO SAVE ROUTINE TAG                           IO       1021
                                        *         CALLS  ADDWD, CAI, CLOAD, CRJ, IOD, IOJ, NAP, PAR, TAGSEX.     IO       1022
                                                                                                                 IO       1023
                                                                                                                 IO       1024
           464                           LST      BSS    0           ENTRY...                                    IO       1025
           464  56240                             SA2    B4                                                      FCC0848     4
                     0302000472 +                 ZR     X2,LST1     IF NO I/O LIST                              FCC0848     5
                               56141              =A1    B4+1                                                    IO       1026
           465  54211                             =A2    A1+1                                                    FEAT155B   22
                     5130000014 +                 =A3    R.W                                                     FEAT155B   23
           466  7211777764                        SX1    X1-O.COMMA                                              IO       1027
                          0311000472 +            NZ     X1,LST1     IF NOT EXTRANEOUS COMMA                     IO       1028
           467  0303000470 +                      ZR     X3,LST12    NOT LIST DIRECTED IO                        FEAT155B   24
                          0302000000 X            ZR     X2,E.IO27   IF LIST DIRECTED WITH *,* AND NO IOLIST.    FEAT155B   25
           470  6170000000 X             LST12    WARN   =XE.IO2                                                 FEAT155B   26
           471  66441                             =B4    B4+1                                                    IO       1030
                     0400000464 +                 EQ     LST         CONTINUE COMMA CHECK                        IO       1031
           472  5110000002 +             LST1     SA1    IODIR                                                   IO       1032
                          0311000476 +            NZ     X1,LST.S    OUTPUT DIRECTION                            IO       1033
           473  5130000000 X                      SA3    TG.APL                                                  IO       1036
                          10633                   BX6    X3                                                      IO       1037
           474  5160000013 +                      SA6    IOENDT      USE THE APLIST TAG AND                      IO       1038
                          73761                   =X7    X6+1         GET A NEW APLIST TAG                       IO       1039
           475  5170000000 +                      SA7    IOAPT                                                   IO       1040
                          54730                   SA7    A3                                                      IO       1042
                                                                                                                 IO       1044
           476                           LST.S    BSS    0           **** ENTRY FOR ENCODE/DECODE ****           IO       1045
           476  5110000003 +                      SA1    IOARGT                                                  IO       1046
                          54211                   =A2    A1-IOARGT+IOREF                                         IO       1047
                               10611              BX6    X1          SET DIRECTION INTO ARG MODE                 IO       1048
           477  22702                             LX7    X2                                                      IO       1049
                     56340                        SA3    B4                                                      IO       1050
                          5160000000 X            SA6    ARGMODE                                                 IO       1051
           500  76660                             SX6    B6                                                      IO       1052
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    24
                                                                      LST 
  
                     5170000000 X                 SA7    REFVAR                                                  IO       1053
                               14666              BX6    -X6         INDICATE NO I/O CALLS YET                   IO       1054
           501  5160000000 X                      SA6    IONAM                                                   IO       1055
                          0760000543 +            MI     B6,LST.N    IF NAMELIST OPERATION                       IO       1056
           502  0303000524 +                      ZR     X3,LST.X    IF EMPTY LIST                               IO       1057
                          0400000404 +            EQ     IOD         MARK DO-LOOPS.                              IO       1058
           503                           IODX     BSS    0           ** RETURN FROM *IOD*                        IO       1059
                                                                                                                 FCC0787    36
           503  7160000013                        SX6    O.COMMA                                                 FCC0787    37
                          56640                   SA6    B4          SET OFF I/O LIST                            FCC0787    38
  
  
                                        **                                                                       IO       1061
                                        *         LST.GO - PROCESS NEXT ELEMENT OF THE I/O LIST.                 IO       1062
                                        *                                                                        IO       1063
                                        *         ENTRY  (B4) _ CURRENT ELEMENT, MINUS ONE.                      IO       1064
                                        *                                                                        IO       1065
                                        *         FIRST, EXAMINE ELEMENT AND DETERMINE WHAT TO DO --             IO       1066
                                        *                <EOS>  _ END-OF-STRING.  CONCLUDE I/O LIST AT "LST.X".  IO       1067
                                        *                IO.DOB _ DO-BEGIN.  GO TO "DOB" TO COMPILE DO INITIAL   IO       1068
                                        *                         TURPLES.  RETURN TO HERE FOR NEXT ELEMENT.     IO       1069
                                        *                IO.DOC _ DO-CLOSE.  GO TO "DOC" TO COMPILE IMPLIED-DO   IO       1070
                                        *                         CONCLUSION TURPLE.  RETURN TO HERE FOR ELEMENT IO       1071
                                        *                         PAST THE DO.                                   IO       1072
                                        *                IO.NIL _ NOTHING.  SOMETHING HAS BEEN ERASED FROM THE   IO       1073
                                        *                         I/O LIST.  IGNORE IT.                          IO       1074
                                        *                IO.BRK _ BREAK.  AN INTERMEDIATE INTERRUPTION OF THE    IO       1075
                                        *                         LIST IS NEEDED FOR SOME REASON.  CALL "IOJ"    IO       1076
                                        *                         FOR A SOFT TERMINATION (-0).                   IO       1077
                                        *                <ELSE> _ A SIMPLE (OR ERRONEOUS) LIST IS AT HAND.       IO       1078
                                        *                         PARSE IT.                                      IO       1079
                                                                                                                 IO       1080
                                                                                                                 IO       1081
           504  56241                    LST.GO   =A2    B4+1        FETCH ELEMENT                               IO       1082
                     66441                        =B4    B4+1                                                    IO       1083
                          6272777710              SB7    X2-IO.DOC                                               IO       1084
           505  0302000524 +                      ZR     X2,LST.X    IF END OF LIST                              IO       1085
                          0770000512 +            MI     B7,LST4     IF SIMPLE LIST                              IO       1086
           506  0277000507 +                      JP     B7+*+1                                                  IO       1087
                                                                                                                 IO       1088
      L     67                                    LOC    IO.DOC                                                  IO       1089
      L     67  0400000275 +                      EQ     DOC         DO-CONCLUSION                               IO       1090
      L     70  0400000257 +                      EQ     DOB         DO-BEGIN                                    IO       1091
      L     71  0400000504 +                      EQ     LST.GO      NIL -- IGNORE                               IO       1092
           512                                    LOC    *O                                                      IO       1095
                                                                                                                 IO       1096
                                        **                                                                       IO       1102
                                        *         HANDLE SIMPLE, BREAK-FREE LIST.                                IO       1103
                                        *         *PAR* DOES THE DIRTY WORK, CALLING ON THE COMMA CHECKER        IO       1104
                                        *         *C=IOL* AT STRATEGIC POINTS.  HE WILL RETURN TO US UPON        IO       1105
                                        *         FINDING AN *EOS*, WHICH MAY HAVE BEEN INVENTED BY SOME I/O     IO       1106
                                        *         LIST PROCESSING.  RETURN TO *LST.GO* TO CHECK.                 IO       1107
                                                                                                                 IO       1108
           512  6272777767               LST4     SB7    X2-O.(                                                  IO       1109
                          0570000522 +            NZ     B7,LST4B    IF NOT *(*                                  FCC0787    39
                                                                                                                 FCC0787    40
                                        *         REMOVE ANY EXTRANEOUS *(*.  IF ELEMENT AFTER *)* IS NOT AN     FCC0787    41
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    25
                                                                      LST.GO
  
                                        *         OPERATOR, THE PARENS MAY BE EXTRANEOUS.                        FCC0787    42
                                                                                                                 FCC0787    43
           513  21244                             AX2    36                                                      FCC0787    44
                     53321                        =A3    X2+1        *SB* AFTER *)*                              FCC0787    45
                          76640                   SX6    B4                                                      FCC0787    46
                               56440              SA4    B4          POINT TO *(*                                FCC0787    47
           514  0303000517 +                      ZR     X3,LST4A    IF *EOS*                                    FCC0787    48
                          6233777764              SB3    X3-O.COMMA                                              FCC0787    49
           515  6223777766                        SB2    X3-O.)                                                  FCC0787    50
                          0430000517 +            ZR     B3,LST4A    IF *,*                                      FCC0787    51
           516  0520000522 +                      NZ     B2,LST4B    IF NOT *)*                                  FCC0787    52
           517  5160000000 X             LST4A    SA6    SCR         SAVE B4                                     FCC0787    53
                          0100000000 X            RJ     CFC         CHECK FOR CPLX CONST                        FCC0787    54
           520  5120000000 X                      SA2    SCR                                                     FCC0787    55
                          63420                   SB4    X2          RESTORE B4 AT *(*                           FCC0787    56
           521  0310000504 +                      NZ     X0,LST.GO   IF NOT CPLX CONST, REMOVE *(*               FCC0787    57
           522  0100000000 X             LST4B    RJ     PAR         IF NOT REDUNDANT PAREN                      FCC0787    58
           523  66441                             =B4    B4+1                                                    IO       1113
                     0400000504 +                 EQ     LST.GO                                                  IO       1114
                                                                                                                 IO       1115
                                                                                                                 IO       1116
                                        **                                                                       IO       1117
                                        *         HERE TO WRAP-UP WHEN END OF LIST IS REALLY ENCOUNTERED --      IO       1118
                                        *         THE OUTCOME OF ALL THIS ACTIVITY HAS BEEN TO CREATE SOME       IO       1119
                                        *         AP-LISTS, AND A PARSED FILE.  SINCE WE CANNOT OPTIMIZE         IO       1120
                                        *         ANYTHING ACROSS EXTERNAL CALLS, WE CALL *ARITH* NOW TO         IO       1121
                                        *         GENERATE CODE FROM THE PARSED FILE.                            IO       1122
                                        *                THEN, JUST IN CASE, INSURE THAT ALL IMPLIED DO-S WERE   IO       1123
                                        *         TERMINATED, AND THAT THE DO-TABLE IS THE SAME AS IT WAS WHEN   IO       1124
                                        *         THIS STATEMENT STARTED.                                        IO       1125
                                                                                                                 IO       1126
           524  5012777775               LST.X    =A1    A2-2                                                    IO       1127
                          5130000014 +            SA3    R.W                                                     FEAT155B   27
           525  7211777764                        SX1    X1-O.COMMA                                              IO       1129
                          5140000002 +            SA4    IODIR                                                   IO       1130
           526  0311000532 +                      NZ     X1,LST5     IF *EOS* NOT PRECEEDED BY *,*               IO       1131
                          0303000000 X            ZR     X3,E.IOL5   IF NOT LIST DIRECTED IO.                    FEAT155B   28
           527  0304000000 X                      ZR     X4,E.IOL5   IF INPUT DIRECTION                          IO       1133
                          7160120007              =X6    IO=CM+"AP=UIOC"S"ATYP"                                  IO       1134
           530  5110000000 X                      ADDWD  TP.APL                                                  IO       1135
           531  5140000005 +                      SA4    IOLEN       *,* TERMINATED IO, SO ADJUST AP-LIST LENG.  FEAT155B   29
                          73641                   =X6    X4+1                                                    FEAT155B   30
                               54640              SA6    A4                                                      FEAT155B   31
                                                                                                                 IO       1136
           532  13666                    LST5     BX6    0                                                       IO       1137
                     0100000434 +                 RJ     IOJ         COMPILE TERMINAL CALL                       IO       1138
                                                                                                                 IO       1139
           533  5110000000 X                      SA1    TG.APL                                                  IO       1140
                          7261777776              SX6    X1-1        WE USED ONE TAG TOO MANY -- FIX IT          IO       1141
           534  54610                             SA6    A1                                                      IO       1142
                                                                                                                 IO       1143
                     5140000013 +                 SA4    IOENDT                                                  IO       1144
           535  0304000537 +                      ZR     X4,LST7     IF NO GENERATED TAG FOR *END*               IO       1145
                          5110000000 X            SA1    TT.PAR                                                  IO       1146
           536  6130000000 X                      SB3    O=BSS                                                   IO       1147
                          0100000000 X            RJ     EMT         EMIT  (O=BSS, GENERATED TAG)                IO       1148
           537                           LST7     BSS    0                                                       IO       1149
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    26
                                                                      LST.GO
  
                                                                                                                 IO       1150
           537  0100000000 X                      RJ     CAI         COMPILE ARITHMETIC INSTRUCTIONS.            IO       1151
                                                                                                                 IO       1152
           540  5130000012 +                      SA3    IODOLEN                                                 IO       1153
                          5120000000 X            SA2    TP=DO                                                   IO       1154
           541  13023                             BX0    X2-X3       CHECK FOR UNPROCESSED DO-S                  IO       1155
                     22603                        LX6    X3                                                      IO       1156
                          0300000000 X            ZR     X0,PSN      IF ALL DO-S BALANCED, EXIT..                IO       1157
           542  5160000000 X                      SHRINK TP=DO,X6    RESET DO TABLE                              FCC0813   168
                          0400000000 X            EQ     E.IO14                                                  IO       1159
                                                                                                                 IO       1160
                                                                                                                 IO       1161
                                        **                                                                       IO       1162
                                        *         HERE WE PROCESS *NAMELIST* CALLS --                            IO       1163
                                        *                THERE IS NO LIST INVOLVED, AND A GROUP NAME MAY NOT BE  IO       1164
                                        *         SUBSCRIPTED, SO OUR TASK IS SIMPLE ENOUGH TO AVOID INVOKING    IO       1165
                                        *         THE PARSER.  WE EMIT CODE DIRECTLY TO LOAD THE AP-LIST ADDRESS IO       1166
                                        *         AND RJT TO THE NAMELIST GUY.  ISSUE INFORMATIVE DIAGNOSTIC IF  IO       1167
                                        *         THERE IS A LIST PRESENT (MISTAKENLY).                          IO       1168
                                                                                                                 IO       1169
           543  6170000000 X             LST.N    ANSI   E.ION1                                                  IO       1170
           544  5110000002 +                      SA1    IODIR                                                   IO       1171
                          56540                   SA5    B4                                                      IO       1172
                               23211              AX2    X1,B1       DIRECTION / 2                               IO       1173
           545  6130000000 X                      SB3    S.IOCAL                                                 IO       1174
                          67303                   SB3    -B3                                                     IO       1175
           546  7163000000 X                      SX6    B3+S.NLST                                               IO       1176
                          36662                   IX6    X6+X2                                                   IO       1177
                               14666              BX6    -X6         INDICATE NO I.O CALLS YET                   IO       1178
           547  5160000000 X                      SA6    IONAM                                                   IO       1179
                          0305000532 +            ZR     X5,LST5     IF *EOS* -- EXIT O.K.                       IO       1180
           550  6235777766                        SB3    X5-O.)                                                  IO       1181
                          0530000552 +            NZ     B3,LST.N1   IF NOT *RP*                                 IO       1182
           551  5154000001                        SA5    B4+1                                                    IO       1183
                          0305000532 +            ZR     X5,LST5     IF *EOS* -- EXIT OK                         IO       1184
           552  0400000000 X             LST.N1   EQ     E.ION                                                   IO       1185
  
  
  
  
                                        **        NDC -  ENCODE / DECODE ARGUMENTS.                              IO       1187
                                        *                                                                        IO       1188
                                        *         XXCODE (COUNT, FORMAT, STRING-ADDRESS) IOLIST                  IO       1189
                                        *                '                             '                         IO       1190
                                        *         B4 _   ENTRY                         EXIT                      IO       1191
                                        *                                                                        IO       1192
                                        *         ENTRY  (B4) _ LPAREN IN STRING-BUFFER.                         IO       1193
                                        *                (B6) = DIRECTION.                                       IO       1194
                                        *                                                                        IO       1195
                                        *         EXIT   TO *LST* WITH --                                        IO       1196
                                        *                (B4) _ RPAREN IN *SB*.                                  IO       1197
                                        *                (B6) = DIRECTION + *STRING* MODE.                       IO       1198
                                        *                                                                        IO       1199
                                        *         CALLS  PAR, PFD, PTN.                                          IO       1200
                                                                                                                 IO       1201
                                                                                                                 IO       1202
           553  6170000000 X             NDC      ANSI   E.ANS       NON-ANSI STATEMENT                          IO       1203
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    27
                                                                      NDC 
  
           554  5170000004 +                      SA7    IOREF                                                   IO       1204
                          5110000000 X            SA1    =XSTATIC                                                F162FTNA  804
           555  12614                             BX6    X1+X4                                                   F162FTNA  805
                     54610                        SA6    A1          UPDATE STATIC LOAD INFORMATION              FCC2031     7
                          0100000620 +            RJ     PFD                                                     IO       1205
                                                                                                                 IO       1206
                                        **        ASSEMBLE RECORD LENGTH.                                        IO       1207
                                                                                                                 IO       1208
           556  57441                             =A4    B4-1                                                    IO       1209
                     6224777767                   =B2    X4-O.LP                                                 IO       1210
           557  0304000000 X                      ZR     X4,E.IOS6   IF PREMATURE EOS                            IO       1211
                          0420000561 +            ZR     B2,NDCE1    IF LEFT PAREN                               IO       1212
           560  67441                             =B4    B4-1                                                    IO       1213
                     0400000000 X                 EQ     E.IOS1      ERROR - END OF SCAN                         IO       1214
           561  5120000004 +             NDCE1    SA2    IOREF                                                   IO       1215
                          5110000000 X            SA1    NDC=CNT                                                 IO       1216
           562  20260                             LX2    P.AMR                                                   IO       1217
                     12612                        BX6    X1+X2                                                   IO       1218
                          5160000000 X            SA6    ARGMODE                                                 IO       1219
           563  56440                             SA4    B4                                                      IO       1220
                     6224777775                   SB2    X4-O.CONS                                               IO       1221
                               54341              =A3    A4+1                                                    IO       1222
           564  0421000566 +                      EQ1    B2,NDCE2    IF VARIABLE                                 IO       1223
                          7233777740              SX3    X3-O.PERIOD                                             IO       1224
           565  0520000000 X                      NZ     B2,E.IOS9   IF NOT CONS                                 IO       1225
                          0303000000 X            ZR     X3,E.IOS9   IF FLOATING POINT                           IO       1226
           566  0100000000 X             NDCE2    RJ     PAR         PARSE RECORD COUNT                          IO       1227
           567  56441                             =A4    B4+1                                                    IO       1228
                     64441                        =B4    A4+1        POINT TO FORMAT                             IO       1229
                          6224777764              =B2    X4-O.COMMA                                              IO       1230
           570  0304000000 X                      ZR     X4,E.IOS6   IF PREMATURE EOS                            IO       1231
                          0520000000 X            NZ     B2,E.IOS2   IF NO COMMA                                 IO       1232
                                                                                                                 IO       1233
                                        **        PROCESS THE FORMAT DESIGNATOR.                                 IO       1234
                                        *                CALLS *PTN* TO DO THE DIRTY WORK.                       IO       1235
                                                                                                                 IO       1236
           571  66600                             =B6    0                                                       IO       1237
                     56440                        SA4    B4                                                      IO       1238
                          6224777775              SB2    X4-O.CONS                                               IO       1239
           572  0421000573 +                      EQ1    B2,NDCE3    IF VARIABLE                                 IO       1240
                          0520000000 X            NZ     B2,E.IOS10  IF NOT CONSTANT                             IO       1241
           573  13777                    NDCE3    BX7    0                                                       FCC0794    10
                     5170000666 +                 SA7    ASSUNIT     SET RETURN CONDITION                        FCC0794    11
           574  0100000637 +                      RJ     PTN         PROCESS FORMAT DESIGNATOR                   FCC0794    12
           575  56440                             SA4    B4                                                      IO       1243
                     0560000000 X                 NZ     B6,E.IOS3   IF NAMELIST NAME                            IO       1244
           576  6224777764                        =B2    X4-O.COMMA                                              IO       1245
                          0304000000 X            ZR     X4,E.IOS6   IF PREMATURE EOS                            IO       1246
           577  0520000000 X                      NZ     B2,E.IOS4   IF NO COMMA                                 IO       1247
                                                                                                                 IO       1248
                                        **        DIGEST STRING ADDRESS.                                         IO       1249
                                                                                                                 IO       1250
                          7160000032              =X6    O.SLP                                                   IO       1251
           600  5120000004 +                      SA2    IOREF                                                   IO       1252
                          5110000000 X            SA1    NDC=STR                                                 IO       1253
           601  20260                             LX2    P.AMR                                                   IO       1254
                     12712                        BX7    X1+X2                                                   IO       1255
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    28
                                                                      NDC 
  
                          5170000000 X            SA7    ARGMODE                                                 IO       1256
           602  56640                             SA6    B4                                                      IO       1257
                     56441                        =A4    B4+1                                                    IO       1258
                          6224777774              =B2    X4-O.VAR                                                IO       1259
           603  0520000000 X                      NZ     B2,E.IOS7   IF NOT VARIABLE                             IO       1260
                          0100000000 X            RJ     PAR         PARSE STRING ADDRESS                        IO       1261
           604  56440                             SA4    B4                                                      IO       1262
                     6224777766                   =B2    X4-O.RP                                                 IO       1263
           605  0520000000 X                      NZ     B2,E.IOS5   IF NO RIGHT PAREN                           IO       1264
                          56441                   =A4    B4+1                                                    FCC2115     4
           606  6224777774                        =B2    X4-O.VAR                                                FCC2115     5
                          0420000616 +            ZR     B2,NDCE5    CHECK FOR VARIABLE                          FCC2115     6
           607  6224777767                        =B2    X4-O.LP                                                 FCC2115     7
                          0420000616 +            ZR     B2,NDCE5    CHECK FOR LEFT PAREN                        FCC2115     8
           610  54441                             =A4    A4+1                                                    FCC2115     9
                     6224777767                   =B2    X4-O.LP                                                 FCC2115    10
           611  0520000616 +                      NZ     B2,NDCE5    IF NOT LEFT PAREN                           FCC2115    11
                          55441                   =A4    A4-1                                                    FCC2115    12
                               43052              MX0    L.CDPC                                                  FCC2115    13
           612  5214000000 X                      SA1    X4+CHARMAP                                              FCC2115    14
                          11601                   BX6    X0*X1                                                   FCC2115    15
           613  5160000000 X                      SA6    FILL.       SET FILLER                                  FCC2115    16
                          6170000000 X            FATAL  =XE.AT10                                                FCC2115    17
           615  66441                             =B4    B4+1                                                    FCC2115    18
           616  5130000002 +             NDCE5    SA3    IODIR                                                   FCC2115    19
                          6263000000 X            =B6    X3+S=STR                                                IO       1266
           617  0400000476 +                      EQ     LST.S       EXIT..  (TO PROCESS I/O LIST)               IO       1267
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    29
                                                                      PFD 
  
                                        **        PFD -  PROCESS FILE DESIGNATOR.                                IO       1269
                                        *                                                                        IO       1270
                                        *                INITIALIZES I/O STATEMENT AP-LIST GENERATION.           IO       1271
                                        *         INITIALIZES SOME PARSER CONTROL CELLS.                         IO       1272
                                        *                                                                        IO       1273
                                        *         ENTRY  (X5) = FILE DESIGNATOR.                                 IO       1274
                                        *                (B6) = DIRECTION INDICATOR.                             IO       1275
                                        *                                                                        IO       1276
                                        *         EXIT   FILE DESIGNATOR IS IN (IOFIT).                          IO       1277
                                        *                (B4) ADVANCED BY ONE.                                   IO       1278
                                        *                (B6) PRESERVED.                                         IO       1279
                                        *                FLAGS SET TO *NOT-NECESSARY* STATE --                   IO       1280
                                        *                            (IO2ND)                                     IO       1281
                                        *                            (IO3RD)                                     IO       1282
                                        *                            (IO4TH)                                     IO       1283
                                        *                            (RTEND)                                     IO       1284
                                        *                            (RTERR)                                     IO       1285
                                                                     (IOENDT)                                    IO       1286
                                        *                (IOLEN) = -1 TO INDICATE FIRST LIST ITEM.               IO       1287
                                        *                (IODIR)   =  (B6)     FOR TESTING DIRECTION.            IO       1288
                                        *                (IOAPT)   = AP-TAG FOR FIRST I/O AP-LIST.               IO       1289
                                        *                (IOARGT)  =  A=DIR    FOR SETTING (ARGMODE) LATER.      IO       1290
                                        *                (IOREF)   =  CR.DIR   FOR X-REF.                        IO       1291
                                        *                (ARGMODE) =  **       NOT SET.                          IO       1292
                                        *                (ARGCOMA) =  0        FOR ALL PARSING.                  IO       1293
                                        *                (IODOLEN) =  (TP=DO)  FOR LATER RESETTING.              IO       1294
                                        *                (TG.APL)  = ADVANCED.                                   IO       1295
                                        *                                                                        IO       1296
                                        *         USES   ALL NOT EXPLICITLY MENTIONED ABOVE.                     IO       1297
                                                                                                                 IO       1298
                                                                                                                 IO       1299
           620  0400400620 +             PFD      SUBR               ENTRY/EXIT...                               IO       1300
           621  5110000000 X                      SA1    IOARGM                                                  IO       1301
                          5130000000 X            SA3    TP=DO                                                   IO       1302
           622  76760                             SX7    B6                                                      IO       1303
                     0560000623 +                 NZ     B6,PFD2     IF OUTPUT DIRECTION                         IO       1304
                               54111              =A1    A1+1                                                    IO       1305
           623  5170000002 +             PFD2     SA7    IODIR                                                   IO       1306
                          10611                   BX6    X1                                                      IO       1307
                               66441              =B4    B4+1        ADVANCE (B4)                                IO       1308
           624  10755                             BX7    X5                                                      IO       1309
                     21160                        AX1    P.AMR                                                   IO       1310
                          5077000004              =A7    A7-IODIR+IOFIT                                          IO       1311
           625  5067777774                        =A6    A7-IOFIT+IOARGT                                         IO       1312
                          10711                   BX7    X1                                                      IO       1313
                               54761              =A7    A6-IOARGT+IOREF                                         IO       1314
           626  43773                             MX7    -1                                                      IO       1315
                     54771                        =A7    A7-IOREF+IOLEN                                          IO       1316
                          13777                   =X7                                                            IO       1317
                               22603              LX6    X3                                                      IO       1318
           627  5077000002                        =A7    A7-IOLEN+IO2ND                                          IO       1319
                          54771                   =A7    A7-IO2ND+IO3RD                                          IO       1320
                               54771              =A7    A7-IO3RD+IO4TH                                          IO       1321
           630  5170000000 X                      SA7    ARGCOMA                                                 IO       1322
                          5160000012 +            SA6    IODOLEN                                                 IO       1323
           631  5110000000 X                      SA1    TG.APL                                                  IO       1324
                          73611                   =X6    X1+1        ADVANCE AP-TAG                              IO       1326
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    30
                                                                      PFD 
  
           632  5160000000 +                      SA6    IOAPT                                                   IO       1328
                          5170000013 +            SA7    IOENDT                                                  FEAT126C  149
           633  54610                             SA6    A1                                                      IO       1330
                     0400000620 +                 EQ     EXIT.                                                   IO       1331
  
  
  
  
                                        **        PTN -  PROCESS FORMAT/NAMELIST DESIGNATOR                      IO       1333
                                        *                                                                        IO       1334
                                        *         ENTRY  (B4) _ FORMAT DESIGNATOR.                               IO       1335
                                        *         EXIT   (B4) _ NEXT CHAR AFTER FORMAT.                          IO       1336
                                        *                (B6) RESET FOR *NAMELIST*, IF APPROPRIATE.              IO       1337
                                        *                (IOFMT) = FORMAT DESIGNATOR AP-LIST ENTRY.              IO       1338
                                        *         CALLS  ISN, PAR, SKS, TRV.                                     IO       1339
                                                                                                                 IO       1340
                                                                                                                 IO       1341
                                        **        HERE WHEN NAMELIST.                                            IO       1342
                                                                                                                 IO       1343
           634  6166777774               PTN8     SB6    B6+S=NLST   INDICATE NAMELIST OPERATION                 IO       1344
                                                                                                                 IO       1346
                                        **        HERE WITH --                                                   IO       1347
                                        *                (X6) = TAG FOR FORMAT DESIGNATOR.                       IO       1348
                                                                                                                 IO       1349
           635  43022                    PTN9     MX0    L.ATAG                                                  IO       1350
                     11606                        BX6    X0*X6                                                   IO       1351
                          66441                   SB4    B4+B1       POINT PAST FORMAT                           IO       1352
           636  5160000007 +                      SA6    IOFMT                                                   IO       1354
                                                                                                                 IO       1355
                                                                                                                 IO       1356
           637  0400400637 +             PTN      SUBR               ENTRY/EXIT...                               IO       1357
           640  56140                             SA1    B4                                                      IO       1358
                     5130000004 +                 SA3    IOREF                                                   IO       1359
                               43700              MX7    0                                                       IO       1360
           641  10633                             BX6    X3                                                      IO       1361
                     5170000014 +                 SA7    R.W         INDICATE FORMATTED, NOT LIST-DIRECTED I/O.  IO       1362
           642  6120000401                        =B2    M.SNFMT+M.SNREF                                         IO       1363
                          5160000000 X            SA6    REFNUM                                                  IO       1364
           643  0301000000 X                      ZR     X1,E.IO7    IF *EOS* -- ERROR                           IO       1365
                                        *         =X6    CR.FMT                                                  IO       1366
                                        *         =A6    A6-REFNUM+REFVAR                                        IO       1367
                          73210                   SX2    X1                                                      IO       1368
                               13612              BX6    X1-X2                                                   IO       1369
           644  6271777775                        SB7    X1-O.CONS                                               IO       1370
                          0570000647 +            NZ     B7,PTN2     IF NO NUMBER                                IO       1371
           645  0100000000 X                      RJ     ISN         IDENTIFY STATEMENT NUMBER                   IO       1372
           646  0400000635 +                      EQ     PTN9                                                    IO       1375
                                                                                                                 IO       1376
                                                                                                                 IO       1377
                                        **        HERE IF NON-NUMERIC.  WILL BE VARIABLE FORMAT OR NAMELIST.     IO       1378
                                                                                                                 IO       1379
           647                           PTN2     BSS    0                                                       IO       1380
           647  6271777774                        SB7    X1-O.VAR                                                IO       1381
                          0570000000 X            NZ     B7,E.IO7    IF NOT VARIABLE EITHER                      IO       1382
           650  0100000000 X                      RJ     TRV         TRANSLATE VARIABLE                          IO       1383
           651  10166                    PTN3     BX1    X6                                                      FCC0499    44
                     20162                        IFBIT  X1,NLST,PTN8          IF *NAMELIST*                     IO       1385
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    31
                                                                      PTN 
  
                                                                                                                 IO       1386
                                                                                                                 IO       1387
                                        **        HERE WE WRESTLE WITH VARIABLE FORMATS.                         IO       1388
                                        *                (IT IS NOT CLEAR WHO IS WINNING.)                       IO       1389
                                                                                                                 IO       1390
           652  76660                             SX6    B6                                                      IO       1391
                     5120000004 +                 SA2    IOREF                                                   IO       1392
           653  5110000000 X                      SA1    PTN=FMT                                                 IO       1393
                          20260                   LX2    P.AMR                                                   IO       1394
                               12712              BX7    X1+X2                                                   IO       1395
           654  5170000000 X                      SA7    ARGMODE                                                 IO       1396
                          7170000032              SX7    O.SLP                                                   IO       1397
           655  5160000000 X                      SA6    IONAM       SAVE (B6)                                   IO       1398
                          57741                   =A7    B4-1                                                    IO       1399
                               67441              =B4    B4-1                                                    IO       1400
           656  0100000000 X                      RJ     PAR         PARSE THE FORMAT DESIGNATOR                 IO       1401
           657  5120000000 X                      SA2    IONAM                                                   IO       1402
                          63620                   SB6    X2          RESTORE (B6)                                FCCA540    13
                               56140              SA1    B4                                                      FCCA540    14
           660  0301000637 +                      ZR     X1,EXIT.     IF EOS                                     FCCA540    15
                          54211                   =A2    A1+1                                                    FCCA540    16
           661  6272777764                        SB7    X2-O.COMMA                                              FCCA540    17
                          0570000637 +            NZ     B7,EXIT.    IF NO COMMA, NOT PRINT FMT, STATEMENT       FCCA540    18
           662  6271777766                        SB7    X1-O.)                                                  IO       1408
                          0570000665 +            NZ     B7,PTN10    IF NOT FORM *PRINT(U,FMT)*                  FCC0794    13
           663  5110000666 +                      SA1    ASSUNIT                                                 FCC0794    14
                          0301000665 +            ZR     X1,PTN10    IF NOT FORM *PRINT(U,FMT)*                  FCC0794    15
           664  0400000637 +                      EQ     EXIT.                                                   FCC0794    16
           665  66441                    PTN10    =B4    B4+1                                                    FCC0794    17
                     0400000637 +                 EQ     EXIT.                                                   IO       1411
                                                                                                                 FCC0794    18
           666  00000000000000000000     ASSUNIT  DATA   0           INDICATOR IF UNIT DESIGNATOR EXPLICIT       FCC0794    19
  
  
  
  
                                        **        RTC -  ASSEMBLE AND CHECK TAPE NAME                            IO       1413
                                        *         CALLED BY ALL I/O STATEMENTS WHICH CONTAIN AN EXPLICIT *TAPE   IO       1414
                                        *                NUMBER* DESIGNATOR.                                     IO       1415
                                        *         ENTRY  X6 = I/O DESIGNATOR, WHICH MAY BE EITHER A VARIABLE     IO       1416
                                        *                     NAME OR AN INTEGER CONSTANT FROM 1 TO 99 (ANY      IO       1417
                                        *                     LEADING ZERO WILL BE DISCARDED).                   IO       1418
                                        *                     IF THE DESIGNATOR IS AN INTEGER CONSTANT, THE FILE IO       1419
                                        *                     NAME WILL BE *TAPE_<INTG-CONST>*.                  IO       1420
                                        *                 B4 _ A CELL (USUALLY IN *SB*) WHICH MAY BE CLOBBERED.  IO       1421
                                        *         EXIT   (X5) = 1/VAR, 11/0, 18/FITADR-TAG, 30/0                 IO       1422
                                        *         USES   A1,A2,A3,A5,A6  X0  B2,B7                               IO       1423
                                        *         CALLS  FFT, TRV                                                IO       1424
                                                                                                                 IO       1425
                                                                                                                 IO       1426
                                                                                                                 IO       1441
           667  5150001376 +             RTC8     SA5    =0LTAPE                                                 IO       1442
                          20644                   LX6    -4*CHAR                                                 IO       1443
                               12565              BX5    X6+X5       ADD IN VARIABLE                             IO       1444
           670  0100000325 +                      RJ     FFT         FIND FILE TAG                               IO       1445
                                                                                                                 IO       1446
           671  0400400671 +             RTC      SUBR               ENTRY/EXIT...                               IO       1447
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    32
                                                                      RTC 
  
           672  0306000000 X                      ZR     X6,E.IO1    IF NO UNIT SPECIFIED - ERROR                IO       1448
                          73560                   SX5    X6                                                      IO       1449
           673  6276777774                        SB7    X6-O.VAR                                                IO       1450
                          0470000705 +            ZR     B7,RTC2     IF VARIABLE NAME                            IO       1451
           674  6276777775                        SB7    X6-O.CONS                                               IO       1452
                          0470000677 +            ZR     B7,RTC1     IF NUMBER                                   IO       1453
           675  5226000000 X                      SA2    X6+=XCHARMAP                                            IO       1454
                          43052                   MX0    L.CDPC                                                  IO       1455
                               11602              BX6    X0*X2                                                   IO       1456
           676  5160000000 X                      SA6    FILL.                                                   IO       1457
                          0400000000 X            EQ     E.IO        IF NOT NUMBER OR VARIABLE                   IO       1458
           677  13665                    RTC1     BX6    X6-X5       DROP MAP SYMBOL                             IO       1459
                     43514                        MX5    2*CHAR                                                  IO       1460
                          15565                   BX5    -X5*X6                                                  IO       1461
           700  0315000000 X                      NZ     X5,E.IO3    IF MORE THAN TWO DIGIT NUMBER - ERROR       IO       1462
                          10566                   BX5    X6                                                      IO       1463
                               20506              LX5    CHAR                                                    IO       1464
           701  6275777744                        SB7    X5-1R0                                                  IO       1465
                          0570000667 +            NZ     B7,RTC8     IF NO LEADING ZERO                          FCC0970     4
           702  5160000000 X                      SA6    FILL.                                                   IO       1467
                          20606                   LX6    CHAR                                                    IO       1468
                               73550              SX5    X5                                                      IO       1469
           703  13665                             BX6    X6-X5       SUPPRESS LEADING ZERO                       IO       1470
                     0316000667 +                 NZ     X6,RTC8     IF NOT UNIT ZERO                            FCC0970     5
                               20566              LX5    9*CHAR                                                  FCC0970     6
           704  10655                             BX6    X5                                                      FCC0970     7
                     0400000667 +                 EQ     RTC8                                                    IO       1478
                                                                                                                 IO       1479
           705  66441                    RTC2     =B4    B4+1                                                    IO       1480
                     56640                        SA6    B4                                                      IO       1481
                          0100000000 X            RJ     TRV         TRANSLATE NAME                              IO       1482
           706  67441                             =B4    B4-1                                                    IO       1483
                     76510                        =X5    1                                                       IO       1485
                          7120020000              =X2    "AP=SIZ"S"ATYP"                                         IO       1486
           707  20521                             LX5    P.AFIT                                                  IO       1487
                     5130000014 +                 SA3    R.W                                                     FCC2330     8
                               43001              MX0    1                                                       FCC2330     9
           710  13003                             BX0    X0-X3                                                   FCC2330    10
                     0300000712 +                 ZR     X0,RTC3     IF PRINT                                    FCC2330    11
                               76310              =X3    1                                                       FCC1449     6
           711  20320                             LX3    P.AVAR      SET AVAR BIT                                FCC1449     7
                     12553                        BX5    X5+X3                                                   FCC1449     8
           712  21652                    RTC3     AX6    P.TAG                                                   FCC2330    12
                     7231777775                   SX3    X1-M.INT                                                IO       1489
                               36552              IX5    X5+X2                                                   IO       1490
           713  20652                             LX6    P.ATAG                                                  IO       1491
                     12556                        BX5    X5+X6       INDICATE VARIABLE *FIT*                     IO       1492
                          7120021140              CLAS=  X2,(NVAR,NLST,EXT,ENT)                                  IO       1493
           714  11626                             BX6    X2*X6                                                   IO       1494
                     0303000716 +                 ZR     X3,RTC4     IF TYPE INTEGER                             IO       1495
           715  0311000000 X                      NZ     X1,E.UE     IF NOT UNIVERSAL TYPE                       IO       1496
           716  0316000000 X             RTC4     NZ     X6,E.UE1    IF NOT SIMPLE LOCAL VARIABLE                IO       1497
                          0400000671 +            EQ     EXIT.                                                   IO       1498
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    33
                                                                      SKS 
  
                                        **        SKS -  SKIP OVER SUBSCRIPT.                                    IO       1566
                                        *         ENTRY  (A4) _ *(*.                                             IO       1567
                                        *         EXIT   (A4) _ *)*.                                             IO       1568
                                        *         USES   B2,B3,B7                                                IO       1569
                                                                                                                 IO       1570
                                                                                                                 IO       1571
           717  6133000001               SKS2     SB3    B3+1                                                    IO       1572
                                                                                                                 IO       1573
           720  54441                    SKS4     SA4    A4+B1                                                   IO       1574
                     6274777767                   SB7    X4-O.LP                                                 IO       1575
           721  0304000000 X                      ZR     X4,E.IO11   IF *EOS*, ERR..                             IO       1576
                          0470000717 +            ZR     B7,SKS2     IF LPAREN                                   IO       1577
                                                  IFNE   O.RP-O.LP,1,1                                           IO       1578
                                                  ERR    (SKS) --  O.LP + 1  .NE.  O.RP                          IO       1579
           722  0571000720 +                      NE     B7,B1,SKS4  IF NO RPAREN, LOOP..                        IO       1580
                          67331                   SB3    B3-B1       DECREMENT PAREN LEVEL COUNT                 IO       1581
           723  0703000720 +                      GT     B3,SKS4     IF A LOWER LEVEL                            IO       1582
                          0730000000 X            MI     B3,E.IO12   ERR.. IF TOO MANY LEFT PARENS.              IO       1583
                                                                                                                 IO       1584
           724  0400400724 +             SKS      SUBR               ENTRY/EXIT...                               IO       1585
           725  66310                             SB3    B1                                                      IO       1586
                     0400000720 +                 EQ     SKS4                                                    IO       1587
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    34
                                                                      C=IO
  
                                        **        AAE -  ANALYZE AP-LIST ENTRY.                                  IO       1621
                                        *                                                                        IO       1622
                                        *         ENTRY  (X3, X4, X5) AS IN *POP*.                               IO       1623
                                        *                                                                        IO       1624
                                        *         EXIT   (X6) = (ATAG) AND (ABIAS) FIELDS FOR AP-LIST.           IO       1625
                                        *                (X5) = AS NECESSARY                                     IO       1626
                                        *                (X4) = OPERAND FROM PARSED FILE.                        IO       1627
                                        *                (X1) = MODE OF OPERAND.                                 IO       1628
                                        *                (B7) = FLAG FOR TYPE OF OPERAND, AS BELOW...            IO       1629
                                        *                                                                        IO       1630
                                        *         IF OPERAND IS AN *ADDRESS* VALUE --                            IO       1631
                                        *                (B7) = -1.                                              IO       1632
                                        *                (X5) = (IOAPT) + (IOLEN)                                IO       1633
                                        *                       TAG OF CURRENT AP-LIST ENTRY.                    IO       1634
                                        *                (X6) = *PLUG* MARK.                                     IO       1635
                                        *                CALLER SHOULD EMIT A STORE INTO THE AP-LIST.            IO       1636
                                        *                                                                        IO       1637
                                        *         IF OPERAND IS AN *INTERMEDIATE* --                             IO       1638
                                        *                (B7) = 0.                                               IO       1639
                                        *                (X5) = TEMP TAG + MODE                                  IO       1640
                                        *                (X6) = TEMP TAG.                                        IO       1641
                                        *                (TG.TEM) ADVANCED BY 1.                                 IO       1642
                                        *                CALLER SHOULD EMIT A STORE INTO THE TEMP.               IO       1643
                                        *                                                                        IO       1644
                                        *         IF OPERAND IS A NORMAL TAG --                                  IO       1645
                                        *                (B7) = TAG.                                             IO       1646
                                        *                (X5) = 0                                                IO       1647
                                                                                                                 IO       1648
                                                                                                                 IO       1649
                                        **        CONSTRUCT AP-LIST ENTRY FOR A NORMAL TAG.                      IO       1650
                                                                                                                 IO       1651
           726  20502                    AAE4     IFBIT  X5,ARE/INTR,AAE5  IF ENTIRE ARRAY REF.                  FCC1134    15
                               10655              BX6    X5                                                      FCC1134    16
           727  20671                             IFBIT  X6,ADDR/ARE,AAE1  IF ADDRESS SET                        FCC1134    17
                                                                                                                 FCC1134    18
           730  20532                    AAE5     SBIT   X5,2TAG/ARE+1                                           FCC1134    19
                     43044                        MX0    L.2TAG+L.2BIAS                                          FCC1134    20
                          63750                   SB7    X5                                                      IO       1654
                               11604              BX6    X0*X4       ISOLATE TAG / BIAS                          IO       1655
           731  13555                             BX5    0           INDICATE NO (OR.2OP)                        IO       1656
                                                                                                                 IO       1657
           732  0400400732 +             AAE      SUBR               ENTRY/EXIT...                               IO       1658
           733  0100000000 X                      RJ     ESC         EXPAND (POSSIBLE) SHORT CONSTANT            IO       1659
           734  43271                             MX2    -L.MODE                                                 IO       1660
                     10455                        BX4    X5                                                      IO       1661
                          20562                   SBIT   X5,INTR                                                 IO       1662
                               15142              BX1    -X2*X4                                                  IO       1663
           735  0325000726 +                      PL     X5,AAE4     IF NOT INTERMEDIATE RESULT                  IO       1664
                          20501                   SBIT   X5,ARY/INTR                                             IO       1665
           736  0335000743 +                      MI     X5,AAE2     IF ADDRESS VALUE (PLUG)                     IO       1666
                                                                                                                 IO       1667
                                                                                                                 IO       1668
                                        **        CONSTRUCT APLIST FOR EXPRESSION RESULT --                      IO       1669
                                        *         EMIT   (O=STORE, OPERAND, TEMP-TAG)                            IO       1670
                                        *                (ATAG)  = TEMP TAG.                                     IO       1671
                                                                                                                 IO       1672
           737  10611                    AAE1     BX6    X1                                                      FCC1134    21
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    35
                                                                      C=IO
  
                     5120000000 X                 SA2    TG.TEM                                                  IO       1674
                               66700              =B7    0                                                       IO       1675
           740  21602                             AX6    P.LONG                                                  IO       1676
                     73321                        =X3    X2+1                                                    IO       1677
                          36736                   IX7    X3+X6       ADVANCE (TG.TEM) TWICE IF DOUBLE-WORD ITEM  IO       1678
                               20252              LX2    P.ATAG                                                  IO       1679
           741  54720                             SA7    A2                                                      IO       1680
                     10622                        BX6    X2                                                      IO       1681
                                                  SBIT   X2,2TAG/ATAG                                            IO       1682
                          36521                   IX5    X2+X1                                                   IO       1683
           742  0400000732 +                      EQ     EXIT.                                                   IO       1684
                                                                                                                 IO       1685
                                                                                                                 IO       1686
                                        **        CONSTRUCT AP-LIST ENTRY FOR A *PLUG* (OBJECT-TIME ADDRESS).    IO       1687
                                        *         EMIT   (O=STORE, OPERAND, APTAG+BIAS)                          IO       1688
                                        *                APTAG = (IOAPT)                                         IO       1689
                                        *                BIAS  = (IOLEN)                                         IO       1690
                                                                                                                 IO       1691
           743  20502                    AAE2     IFBIT  X5,LCF/ARY,AAE1  IF LOCF EXPRESSION                     FCC1134    22
                                                                                                                 FCC1134    23
           744  5120000000 +                      SA2    IOAPT                                                   FCC1134    24
                          10644                   BX6    X4                                                      IO       1693
                               67701              =B7    -1          INDICATE PLUG                               IO       1694
           745  21652                             AX6    P.2TAG                                                  IO       1695
                     7100010000                   =X0    M.2PRO                                                  IO       1696
                               20252              LX2    P.2TAG                                                  IO       1697
           746  63260                             SB2    X6                                                      IO       1698
                     5130000000 X                 SA3    TT.PAR                                                  IO       1699
                               43744              MX7    L.ATAG+L.ABIAS                                          IO       1700
           747  63232                             SB2    X3+B2                                                   IO       1701
                     12520                        BX5    X2+X0                                                   IO       1702
                          56321                   =A3    B2+OR.1OP   ARRAY-TAG                                   IO       1703
                               11673              BX6    X7*X3                                                   IO       1704
           750  0400000732 +                      EQ     EXIT.                                                   IO       1705
  
  
  
  
                                        **        A=BMOD - CHECK BUFFER IN/OUT MODE DESIGNATOR.                  IO       1707
                                                                                                                 IO       1708
                                                                                                                 IO       1709
           751                           A=BMOD   BSS    0           ENTRY...                                    IO       1710
           751  43071                             MX0    -L.MODE                                                 IO       1711
                     15150                        BX1    -X0*X5                                                  IO       1712
                          7201777775              SX0    X1-M.INT                                                IO       1713
           752  0310000000 X                      NZ     X0,=XE.IOB2 IF NOT INTEGER                              IO       1714
                          22005                   LX0    X5                                                      IO       1715
                               20062              IFBIT  X0,INTR,=XE.IOB2  IF INTERMEDIATE                       IO       1716
                          20072                   IFBIT  X0,-SHORT/INTR,A=BMOD1  IF NOT SHORT CONSTANT           IO       1717
                          10055                   BX0    X5                                                      IO       1718
                               21052              AX0    P.SHC                                                   IO       1719
           755  0300000757 +                      ZR     X0,A=BMOD1  IF CONSTANT *0*                             IO       1720
                          7200777776              =X0    X0-1                                                    IO       1721
           756  0300000757 +                      ZR     X0,A=BMOD1  IF CONSTANT *1*                             IO       1722
                          0400000000 X            EQ     =XE.IOB8                                                IO       1723
           757  0100000732 +             A=BMOD1  RJ     AAE         ANALYZE AP-LIST ENTRY                       IO       1724
           760  7110220000                        =X1    M.AVAR+"AP=SIZ"S"ATYP"                                  FCC0589    11
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    36
                                                                      A=BMOD
  
                          12661                   BX6    X6+X1                                                   FCC0589    12
                                         .76      IFEQ   .CPU,76                                                 FCC1169     6
                                                  LE     B7,A=BMOD2  IF NOT NORMAL TAG.                          FCC1169     7
                                        *         CHECK FOR 7000 LEVEL                                           FCC1169     8
                                        *                                                                        FCC1169     9
                                                  =B2    A=BMOD2     SET RETURN ADDRESS.                         FCC1169    10
                                                  EQ     VARCHK      GO CHECK FOR VAR SYM                        FCC1169    11
                                         .76      ENDIF                                                          FCC1169    12
           761  5160000007 +             A=BMOD2  SA6    IOBMOD                                                  FCC1169    13
                          76310                   =X3    IO=BMOD                                                 IO       1726
                                        *         EQ     A=IOT       CHECK PLUGGING                              IO       1727
  
  
  
  
                                        **        A=IOT - CHECK FOR PLUG OF TEMPORARY IN I/O.                    IO       1729
                                        *                                                                        IO       1730
                                        *         ENTRY  (X3) = I/O APLIST BIAS.                                 IO       1731
                                        *         EXIT   TO *PAREXIT* TO EXIT PARSER.                            IO       1732
                                                                                                                 IO       1733
                                                                                                                 IO       1734
           762                           C=IOT    BSS    0                                                       IO       1735
           762  0707000000 X             A=IOT    GT     B7,PAREXIT  IF NO PLUG, NO TURPLE                       IO       1736
                          20330                   LX3    P.2BIAS                                                 IO       1737
                               36535              IX5    X3+X5                                                   IO       1738
           763  5130000000 X                      SA3    APLUG                                                   IO       1739
                          10633                   BX6    X3                                                      IO       1740
           764  5160000000 X                      SA6    SOPR                                                    IO       1741
                          0100000000 X            RJ     PSO         PROCESS  SUBSCRIPT OPERATION IF IN ONE      IO       1742
           765  0303000000 X                      ZR     X3,PAREXIT  IF REDUCED - EXIT                           IO       1743
                          0100000000 X            RJ     ADT         ADD OPERATOR                                IO       1744
           766  5130000000 X                      SA3    APLSTOR                                                 IO       1745
                          57461                   =A4    B6-1        1ST OPERAND = RESULTS OF *PLUG*             IO       1746
                               10633              BX6    X3                                                      IO       1747
           767  5160000000 X                      SA6    SOPR                                                    IO       1748
                          0100000000 X            RJ     ADT                                                     IO       1749
           770  0400000000 X                      EQ     PAREXIT     EXIT..                                      IO       1750
  
  
  
  
                                        **        A=BLWA - CHECK BUFFER IN/OUT LAST WORD ADDRESS.                IO       1752
                                        *                                                                        IO       1753
                                        *         EXIT   (IOBLWA) = BUFFER I/O LAST WORD ADDRESS.                IO       1754
                                        *                                                                        IO       1755
                                        *         ERROR  IF EXPRESSION     (E.IOB7)                              IO       1756
                                                                                                                 IO       1757
                                                                                                                 IO       1758
           771                           A=BLWA   BSS    0           ENTRY...                                    IO       1759
           771  10055                             BX0    X5                                                      IO       1760
                     20062                        IFBIT  X0,-INTR,A=BLWA1 IF NOT INTERMEDIATE                    IO       1761
           772  22005                             LX0    X5                                                      IO       1762
                     21052                        AX0    P.TAG                                                   IO       1763
                          5120000000 X            SA2    TT.PAR                                                  IO       1764
           773  63700                             SB7    X0                                                      IO       1765
                     53127                        SA1    X2+B7                                                   IO       1766
                          6170000000 X            SB7    =XO=SUBL                                                IO       1767
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    37
                                                                      A=BLWA
  
           774  21152                             AX1    P.TAG                                                   IO       1768
                     67707                        SB7    -B7                                                     IO       1769
                          73017                   SX0    X1+B7                                                   IO       1770
           775  0300001001 +                      ZR     X0,A=BLWA2  IF ARRAY LOAD TURPLE                        IO       1771
                          0400000000 X            EQ     E.IOB7      ELSE ERROR                                  IO       1772
           776  20072                    A=BLWA1  IFBIT  X0,SHORT/INTR,E.IOB7  IF SHORT CONSTANT                 IO       1773
                               22005              LX0    X5                                                      IO       1774
           777  21067                             AX0    P.TGB                                                   IO       1775
                     7200777761                   SX0    X0-C.CON/1S13                                           IO       1776
          1000  0300000000 X                      ZR     X0,E.IOB7   IF CONSTANT                                 IO       1777
          1001  0100000732 +             A=BLWA2  RJ     AAE         ANALYZE AP-LIST ENTRY                       IO       1778
          1002  0770001016 +                      MI     B7,A=BLWA5  IF ADDRESS PLUG                             FCCA543    11
                          6231777773              SB3    X1-M.DBL                                                FCC1275     5
          1003  0730001005 +                      MI     B3,A=BLWA3  IF NOT DBL OR CMPLX                         FCC1275     6
                          76210                   =X2    1                                                       FCC1275     7
                               20230              LX2    P.ABIAS     IF CMPLX OR DBL, BIAS = BIAS + 1            FCC1275     8
          1004  36662                             IX6    X6+X2                                                   FCC1275     9
          1005  7110220000               A=BLWA3  =X1    M.AVAR+"AP=SIZ"S"ATYP"                                  FCC1275    10
                          12661                   BX6    X6+X1                                                   FCC0589    15
                                        .76       IFEQ   .CPU,76                                                 FCC1169    14
                                                  LE     B7,A=BLWA4  IF NOT NORMAL TAG.                          FCC1169    15
                                        *         CHECK FOR 7000 LEVEL                                           FCC1169    16
                                        *                                                                        FCC1169    17
                                                  =B2    A=BLWA4     SET RETURN ADDRESS.                         FCC1169    18
                                                  EQ     VARCHK      GO CHECK FOR VAR SYM                        FCC1169    19
                                         .76      ENDIF                                                          FCC1169    20
          1006  5160000011 +             A=BLWA4  SA6    IOBLWA                                                  FCC0589    16
                          43022                   MX0    L.TAG                                                   IO       1780
                               10266              BX2    X6                                                      IO       1781
          1007  21252                             AX2    P.TAG       LWA TAG                                     IO       1782
                     15660                        BX6    -X0*X6                                                  IO       1783
                          21630                   AX6    P.2BIAS     LWA BIAS                                    IO       1784
                               73660              SX6    X6          PROVIDE SIGN EXTENSION                      IO       1785
          1010  5160001062 +                      SA6    LWABIAS     SAVE FOR FUTURE USE                         IO       1786
                          5110000010 +            SA1    IOBFWA                                                  IO       1787
          1011  15710                             BX7    -X0*X1                                                  IO       1788
                     21730                        AX7    P.2BIAS     FWA BIAS                                    IO       1789
                          73770                   SX7    X7          PROVIDE SIGN EXTENSION                      IO       1790
          1012  5076777776                        =A7    A6-LWABIAS+FWABIAS                                      IO       1791
                          21152                   AX1    P.TAG       FWA TAG                                     IO       1792
                               37021              IX0    X2-X1                                                   IO       1793
          1013  0310001021 +                      NZ     X0,A=BLWA10 IF NOT SAME VARIABLE OR ARRAY               IO       1794
                          0336001060 +            MI     X6,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT   IO       1795
          1014  0337001060 +                      MI     X7,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT   IO       1796
                          37067                   IX0    X6-X7                                                   IO       1797
          1015  0330000000 X                      MI     X0,=XE.IOB10  IF FWA GREATER THAN LWA                   IO       1798
                          0400001060 +            EQ     A=BLWA30                                                IO       1799
          1016  6231777773               A=BLWA5  SB3    X1-M.DBL                                                FCCA543    12
                          0730001006 +            MI     B3,A=BLWA4  IF NOT DBL OR COMPLEX                       FCCA543    13
          1017  54330                             SA3    A3          FETCH VARIABLE FROM TURPLE .. SEE AEE       FCCA543    14
                     76210                        =X2    1                                                       FCCA543    15
                          20230                   LX2   P.2BIAS                                                  FCCA543    16
                               36632              IX6    X3+X2       BIAS = BIAS + 1                             FCCA543    17
          1020  54630                             SA6    A3          REPLACE VAR IN PARSE FILE                   FCCA543    18
                     0400001006 +                 EQ     A=BLWA4                                                 FCCA543    19
                                                                                                                 IO       1800
                                        *         TEST FOR FWA AND LWA IN SAME COMMON BLOCK                      IO       1801
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    38
                                                                      A=BLWA
  
                                        *         (X1) = FWA TAG                                                 IO       1802
                                        *         (X2) = LWA TAG                                                 IO       1803
                                                                                                                 IO       1804
          1021  6221577777               A=BLWA10 SB2    X1-C.VAR                                                IO       1805
                          6232577777              SB3    X2-C.VAR                                                IO       1806
          1022  5120000000 X                      SA2    TS.SYM                                                  IO       1807
                          53122                   SA1    B2+X2       FWA *ST* ENTRY                              IO       1808
                               53223              SA2    B3+X2       LWA *ST* ENTRY                              IO       1809
          1023  22001                             LX0    X1                                                      IO       1810
                     20060                        IFBIT  X0,COMM,A=BLWA11  IF FWA IN COMMON                      IO       1811
          1024  10022                             BX0    X2                                                      IO       1812
                     20060                        IFBIT  X0,COMM,=XE.IOB9  IF LWA IN COMMON                      IO       1813
          1025  0400001041 +                      EQ     A=BLWA20    IF NEITHER IN COMMON                        IO       1814
          1026  22002                    A=BLWA11 LX0    X2                                                      IO       1815
                     20060                        IFBIT  X0,-COMM,=XE.IOB9  IF LWA NOT IN COMMON                 IO       1816
          1027  5120000000 X                      SA2    =XTA.NAM                                                IO       1817
                                                                                                                 IO       1818
                                        *         NAME TABLE ORDINAL = (SYMTABORD+1)/2-1                         IO       1819
                                                                                                                 IO       1820
                          76021                   =X0    B2+1                                                    IO       1821
                               76131              =X1    B3+1                                                    IO       1822
          1030  21001                             AX0    1                                                       IO       1823
                     21101                        AX1    1                                                       IO       1824
                          7200777776              =X0    X0-1                                                    IO       1825
          1031  7211777776                        =X1    X1-1                                                    IO       1826
                          36112                   IX1    X1+X2                                                   IO       1827
                               53110              SA1    X1          LWA TA.NAM ENTRY                            IO       1828
          1032  73710                             SX7    X1          LWA COMMON BIAS                             IO       1829
                     21130                        AX1    P.BLOCK                                                 IO       1830
                          63310                   SB3    X1          LWA BLOCK NO.                               IO       1831
                               36002              IX0    X0+X2                                                   IO       1832
          1033  53100                             SA1    X0          FWA TA.NAM ENTRY                            IO       1833
                     73610                        SX6    X1          FWA COMMON BIAS                             IO       1834
                          21130                   AX1    P.BLOCK                                                 IO       1835
                               63210              SB2    X1          FWA BLOCK NO.                               IO       1836
          1034  67223                             SB2    B2-B3                                                   IO       1837
                     0520000000 X                 NZ     B2,=XE.IOB9 IF NOT IN THE SAME COMMON BLOCK             IO       1838
          1035  5110001061 +                      SA1    FWABIAS                                                 IO       1839
                          0331001060 +            MI     X1,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT   IO       1840
          1036  5021000001                        =A2    A1-FWABIAS+LWABIAS                                      IO       1841
                          0332001060 +            MI     X2,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT   IO       1842
          1037  36616                             IX6    X1+X6       FWA TOTAL BIAS                              IO       1843
                     36727                        IX7    X2+X7       LWA TOTAL BIAS                              IO       1844
                          37676                   IX6    X7-X6                                                   IO       1845
          1040  0336000000 X                      MI     X6,=XE.IOB10  IF FWA .GE. LWA                           IO       1846
                          0400001060 +            EQ     A=BLWA30    EXIT OK                                     IO       1847
                                                                                                                 IO       1848
                                        *         TEST FOR FWA AND LWA BOTH FORMAL PARAMETERS                    FCC0593    11
                                        *         (B2) = FWA *ST* ORDINAL                                        IO       1850
                                        *         (B3) = LWA *ST* ORDINAL                                        IO       1851
                                        *         (X1) = FWA *ST* ENTRY                                          IO       1852
                                        *         (X2) = LWA *ST* ENTRY                                          IO       1853
                                                                                                                 IO       1854
          1041  22001                    A=BLWA20 LX0    X1                                                      FCC0593    12
                     20067                        IFBIT  X0,FP,A=BLWA21  IF FWA FORMAL PARAMETER                 FCC0593    13
          1042  10022                             BX0    X2                                                      FCC0593    14
                     20067                        IFBIT  X0,FP,=XE.IOB9  IF LWA FORMAL PARAMETER                 FCC0593    15
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    39
                                                                      A=BLWA
  
          1043  0400001046 +                      EQ     A=BLWA25    IF NEITHER FORMAL PARAMETER                 FCC0593    16
          1044  10022                    A=BLWA21 BX0    X2                                                      FCC0593    17
                     20067                        IFBIT  X0,-FP,=XE.IOB9  IF LWA NOT FORMAL PARAMETER            FCC0593    18
          1045  0400001060 +                      EQ     A=BLWA30    OK IF BOTH FORMAL PARAMETER                 FCC0593    19
                                                                                                                 FCC0593    20
                                        *         TEST FOR FWA AND LWA IN SAME EQUIVALENCE CLASS                 FCC0593    21
                                                                                                                 FCC0593    22
          1046  22001                    A=BLWA25 LX0    X1                                                      FCC0593    23
                     20061                        IFBIT  X0,-EQUIV,=XE.IOB9  IF NOT EQUIVALENCED                 IO       1856
          1047  10022                             BX0    X2                                                      IO       1857
                     20061                        IFBIT  X0,-EQUIV,=XE.IOB9  IF NOT EQUIVALENCED                 IO       1858
          1050  5120000000 X                      SA2    =XTA.NAM                                                IO       1859
                                                                                                                 IO       1860
                                        *         NAME TABLE ORDINAL = (SYMTABORD+1)/2-1                         IO       1861
                                                                                                                 IO       1862
                          76021                   =X0    B2+1                                                    IO       1863
                               76131              =X1    B3+1                                                    IO       1864
          1051  21001                             AX0    1                                                       IO       1865
                     21101                        AX1    1                                                       IO       1866
                          7200777776              =X0    X0-1                                                    IO       1867
          1052  7211777776                        =X1    X1-1                                                    IO       1868
                          36112                   IX1    X1+X2                                                   IO       1869
                               53110              SA1    X1          LWA TA.NAM ENTRY                            IO       1870
          1053  73710                             SX7    X1          LWA EQUIVALENCE BIAS                        IO       1871
                     36002                        IX0    X0+X2                                                   IO       1872
                          53100                   SA1    X0          FWA TA.NAM ENTRY                            IO       1873
                               73610              SX6    X1          FWA EQUIVALENCE BIAS                        IO       1874
          1054  5110001061 +                      SA1    FWABIAS                                                 IO       1875
                          0331001060 +            MI     X1,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT   IO       1876
          1055  5021000001                        =A2    A1-FWABIAS+LWABIAS                                      IO       1877
                          0332001060 +            MI     X2,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT   IO       1878
          1056  36616                             IX6    X1+X6       FWA TOTAL BIAS                              IO       1879
                     36727                        IX7    X2+X7       LWA TOTAL BIAS                              IO       1880
                          37776                   IX7    X7-X6                                                   IO       1881
          1057  0337000000 X                      MI     X7,=XE.IOB10  IF FWA .GE. LWA                           IO       1882
          1060                           BLWA     BSS    0                                                       FCC0593    24
          1060  7130000003               A=BLWA30 =X3    IO=BLWA                                                 IO       1883
                          0400000762 +            EQ     A=IOT       CONTINUE..                                  IO       1884
                                                                                                                 IO       1885
          1061                     2     FWABIAS  BSS    2                                                       IO       1886
                                1062 +   LWABIAS  EQU    FWABIAS+1                                               IO       1887
  
  
  
  
                                        **        C=BFWA - CHECK BUFFER IN/OUT FIRST WORD ADDRESS.               IO       1889
                                        *                                                                        IO       1890
                                        *         EXIT   (IOBFWA) = BUFFER I/O FIRST WORD ADDRESS.               IO       1891
                                        *                                                                        IO       1892
                                        *         ERROR  IF EXPRESSION     (E.IOB7)                              IO       1893
                                                                                                                 IO       1894
                                                                                                                 IO       1895
          1063                           C=BFWA   BSS    0           ENTRY...                                    IO       1896
          1063  10055                             BX0    X5                                                      IO       1897
                     20062                        IFBIT  X0,-INTR,C=BFWA1 IF NOT INTERMEDIATE                    IO       1898
          1064  22005                             LX0    X5                                                      IO       1899
                     21052                        AX0    P.TAG                                                   IO       1900
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    40
                                                                      C=BFWA
  
                          5120000000 X            SA2    TT.PAR                                                  IO       1901
          1065  63700                             SB7    X0                                                      IO       1902
                     53127                        SA1    X2+B7                                                   IO       1903
                          6170000000 X            SB7    =XO=SUBL                                                IO       1904
          1066  21152                             AX1    P.TAG                                                   IO       1905
                     67707                        SB7    -B7                                                     IO       1906
                          73017                   SX0    X1+B7                                                   IO       1907
          1067  0300001073 +                      ZR     X0,C=BFWA2  IF ARRAY LOAD TURPLE                        IO       1908
                          0400000000 X            EQ     E.IOB7      ELSE ERROR                                  IO       1909
          1070  20072                    C=BFWA1  IFBIT  X0,SHORT/INTR,E.IOB7  IF SHORT CONSTANT                 IO       1910
                               22005              LX0    X5                                                      IO       1911
          1071  21067                             AX0    P.TGB                                                   IO       1912
                     7200777761                   SX0    X0-C.CON/1S13                                           IO       1913
          1072  0300000000 X                      ZR     X0,E.IOB7   IF CONSTANT                                 IO       1914
          1073  0100000732 +             C=BFWA2  RJ     AAE         ANALYZE AP-LIST ENTRY                       IO       1915
          1074  76311                             =X3    IO=BFWA                                                 IO       1917
                     0770001076 +                 MI     B7,C=BFWA3  IF ADDRESS PLUG                             FCC0589    17
          1075  7110220000                        =X1    M.AVAR+"AP=SIZ"S"ATYP"                                  FCC0589    18
                          12661                   BX6    X6+X1                                                   FCC0589    19
                                         .76      IFEQ   .CPU,76                                                 FCC1169    21
                                                  LE     B7,C=BFWA3  IF NOT NORMAL TAG.                          FCC1169    22
                                        *         CHECK FOR 7000 LEVEL                                           FCC1169    23
                                        *                                                                        FCC1169    24
                                                  =B2    C=BFWA3     SET RETURN ADDRESS                          FCC1169    25
                                                  EQ     VARCHK      GO CHECK FOR VAR SYM                        FCC1169    26
                                         .76      ENDIF                                                          FCC1169    27
          1076  5160000010 +             C=BFWA3  SA6    IOBFWA                                                  FCC0589    20
                          0400000762 +            EQ     C=IOT       CONTINUE..                                  IO       1918
  
  
  
  
                                        **        C=CNT - CHECK XXCODE *COUNT* INDICATOR.                        IO       1920
                                        *                                                                        IO       1921
                                        *         EXIT   (IOCNT) SET UP.                                         IO       1922
                                                                                                                 IO       1923
                                                                                                                 IO       1924
          1077                           C=CNT    BSS    0           ENTRY...                                    IO       1925
          1077  43071                             MX0    -L.MODE                                                 IO       1926
                     15150                        BX1    -X0*X5                                                  IO       1927
                          7211777775              =X1    X1-M.INT                                                IO       1928
          1100  10055                             BX0    X5                                                      IO       1929
                     0311000000 X                 NZ     X1,E.IOS9         IF NOT INTEGER                        IO       1930
                               20062              IFBIT  X0,INTR,E.IOS9    IF EXPRESSION                         IO       1931
                          0100000732 +            RJ     AAE         ANALYZE AP-LIST ENTRY                       IO       1932
          1102  7110220000                        =X1    M.AVAR+"AP=SIZ"S"ATYP"                                  IO       1933
                          12661                   BX6    X6+X1                                                   IO       1934
                                         .76      IFEQ   .CPU,76                                                 FCC1169    28
                                                  LE     B7,CNTA     IF NOT NORMAL TAG                           FCC1169    29
                                        *         CHECK FOR 7000 LEVEL                                           FCC1169    30
                                        *                                                                        FCC1169    31
                                                  =B2    CNTA        SET RETURN ADDRESS.                         FCC1169    32
                                                  EQ     VARCHK      GO CHECK FOR VAR SYM                        FCC1169    33
                                         .76      ENDIF                                                          FCC1169    34
          1103  5160000006 +             CNTA     SA6    IOCNT                                                   FCC1169    35
                          76300                   =X3    IO=CNT                                                  IO       1936
          1104  0400000762 +                      EQ     C=IOT       CONTINUE..                                  IO       1937
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    41
                                                                      C=FMT 
  
                                        **        C=FMT - CHECK FORMAT VALIDITY.                                 IO       1939
                                        *                                                                        IO       1940
                                        *         EXIT   (IOFMT) SET UP.                                         IO       1941
                                        *                                                                        IO       1942
                                        *         ERROR  IF EXPRESSION.                                          IO       1943
                                                                                                                 IO       1944
                                                                                                                 IO       1945
          1105                           A=FMT    BSS    0           ENTRY...                                    IO       1946
          1105                           C=FMT    BSS    0           ENTRY...                                    IO       1947
          1105  10055                             BX0    X5                                                      IO       1948
                     20055                        IFBIT  X0,2ARY,FMTA  IF FORMAT INDICATOR IS ARRAY              IO       1949
          1106  6170000000 X                      ANSI   =XE.IOF                                                 IO       1950
          1107  0100000732 +             FMTA     RJ     AAE         ANALYZE AP-LIST ENTRY                       IO       1951
          1110  7110220000                        =X1    M.AVAR+"AP=SIZ"S"ATYP"                                  IO       1953
                          12661                   BX6    X6+X1       SET VARIABLE FORMAT BIT (FAKE AS FIT)       IO       1955
                                         .76      IFEQ   .CPU,76                                                 FCC1028     4
                                                  LE     B7,FMT1A    IF NOT NORMAL TAG                           FCC1169    36
                                                                                                                 FCC1028     5
                                        *         CHECK FOR 7000 LEVEL                                           FCC1028     6
                                        *                                                                        FCC1028     7
                                                  =B2    FMT1A       SET RETURN ADDRESS                          FCC1028     8
                                                  EQ     VARCHK      GO CHECK FOR VAR SYM                        FCC1169    37
                                         .76      ENDIF                                                          FCC1028    13
          1111  0670001112 +             FMT1A    PL     B7,FMT1B    IF NO PLUG                                  FCC0995     5
                          43044                   MX0    L.ATAG+L.ABIAS                                          FCC0995     6
                               15660              BX6    -X0*X6                                                  FCC0995     7
          1112  5160000007 +             FMT1B    SA6    IOFMT                                                   FCC0995     8
                                                                                                                 FCC1028    15
                          0470001114 +            ZR     B7,FMT1     IF EXPRESSION, ERROR                        IO       1958
          1113  76310                             =X3    IO=FMT                                                  IO       1959
                     0400000762 +                 EQ     C=IOT       CONTINUE..                                  IO       1960
                                                                                                                 IO       1961
          1114  6170000000 X             FMT1     FATAL  E.IOF1                                                  IO       1962
          1115  0400000000 X                      EQ     C=ERR                                                   IO       1963
  
  
  
  
                                        **        C=IOL - MAKE I/O AP-LIST ENTRIES.                              IO       1965
                                        *                                                                        IO       1966
                                        *         EXIT   TO *POPX* --                                            IO       1967
                                        *                ITEM ENTERED IN AP-LIST.                                IO       1968
                                        *                (IOLEN) INCREMENTED.                                    IO       1969
                                        *                                                                        IO       1970
                                        *         ERROR  IF EXPRESSION IN INPUT LIST.                            IO       1971
                                        *                                                                        IO       1972
                                        *         CALLS  AAE, ADDWD, NCS, ILI.                                   IO       1973
                                                                                                                 IO       1974
                                                                                                                 IO       1975
          1116                           C=IOL    BSS    0           ENTRY...                                    IO       1976
          1116  5110000005 +                      SA1    IOLEN                                                   IO       1977
                          0321001120 +            PL     X1,IOL1     IF NOT INITIAL LIST ITEM                    IO       1978
          1117  0100000360 +                      RJ     ILI         ADD INITIAL LIST ITEMS                      IO       1979
          1120  73611                    IOL1     =X6    X1+1        COUNT ITEMS IN (PARTIAL) LIST               IO       1980
                     5160000005 +                 SA6    IOLEN                                                   IO       1981
          1121  0100000732 +                      RJ     AAE         ANALYZE AP-LIST ENTRY                       IO       1982
          1122  0570001136 +                      NZ     B7,IOL4     IF NOT AN INTERMEDIATE                      IO       1983
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    42
                                                                      C=IOL 
  
                                                                                                                 IO       1984
                                        **        CONSTRUCT AP-LIST ENTRY WHEN AN INTERMEDIATE.                  IO       1985
                                        *                (ATAG)  = TAG                                           IO       1986
                                        *                (ABIAS) = TYPE                                          IO       1987
                                        *                (ATYP)  = AP=SIZ                                        IO       1988
                                        *                (ASIZ)   = 1                                            IO       1989
                                                                                                                 IO       1990
                          5120000002 +            SA2    IODIR                                                   IO       1991
          1123  0312001127 +                      NZ     X2,IOL3     IF OUTPUT DIRECTION                         IO       1992
                          5110000005 +            SA1    IOLEN                                                   IO       1993
          1124  7261777776                        =X6    X1-1                                                    IO       1994
                          54610                   SA6    A1          BAD ITEM NOT ADDED TO AP-LIST               IO       1995
          1125  6170000000 X                      FATAL  E.IOL1                                                  IO       1996
          1126  0400000000 X                      EQ     C=ERR                                                   IO       1997
                                                                                                                 IO       1998
          1127  7130020001               IOL3     =X3    1+"AP=SIZ"S"ATYP"  PRESET ITEM LENGTH = 1               IO       1999
                          0311001131 +            NZ     X1,IOL3.5   IF NOT MODELESS                             FCC1709X    5
          1130  76111                             =X1    M.INT       DEFAULT MODE FOR PRINTING                   FCC1709X    6
                                                                                                                 FCC1709X    7
          1131  20130                    IOL3.5   LX1    P.ABIAS                                                 FCC1709X    8
                     12261                        BX2    X6+X1                                                   IO       2001
                          36623                   IX6    X2+X3                                                   IO       2002
          1132  5110000000 X             IOL2     ADDWD  TP.APL      ADD ITEM TO APLIST                          IO       2003
          1133  10055                             BX0    X5                                                      IO       2004
                     20071                        IFBIT  X0,LONG,IOL25     IF DOUBLE LENGTH                      IO       2005
          1134  5130000000 X                      SA3    APLSTOR     OUTPUT *AP-LIST* STORE TURPLE.              IO       2006
                          0400000000 X            EQ     POP.ST1     EXIT.. (TO POP TURPLE -- MODELESS)          IO       2007
          1135  5130000000 X             IOL25    SA3    =XAPLSTOD                                               IO       2008
                          0400000000 X            EQ     POP.ST1     EXIT..(TO POP TURPLE--MODELESS)             IO       2009
                                                                                                                 IO       2010
                                        **        HANDLE STORING OF *PLUG*  (OBJECT-TIME ADDRESS).               IO       2011
                                                                                                                 IO       2012
          1136  0670001147 +             IOL4     PL     B7,IOL45    IF NO PLUG                                  IO       2013
                          5120000005 +            SA2    IOLEN                                                   IO       2014
          1137  7130020001                        =X3    1+"AP=SIZ"S"ATYP"  ITEM LENGTH = 1                      IO       2015
                          7222777776              SX2    X2-1                                                    IO       2016
          1140  20130                             LX1    P.ABIAS                                                 IO       2017
                     36613                        IX6    X1+X3       MERGE MODE AND SIZE                         IO       2018
                          20230                   LX2    P.2BIAS                                                 IO       2019
                               12552              BX5    X5+X2                                                   IO       2020
                                         .76      IFEQ   .CPU,76                                                 FCC1169    38
                                                  LX2    X4          PRESERVE X4                                 FCC1169    39
                                                  AX2    P.ATAG      EXTRACT INDEX TO VARIABLE TURPLE            FCC1169    40
                                                  SA3    TT.PAR                                                  FCC1169    41
                                                  SB2    X2+B1                                                   FCC1169    42
                                                  SA3    X3+B2       EXTRACT OPERAND CONTAINING VARIABLE         FCC1169    43
                                                  AX3    P.ATAG      SAVE TAG ONLY                               FCC1169    44
                                                  SB7    X3                                                      FCC1169    45
                                                  =B2    IOL43       SET RETURN                                  FCC1169    46
                                                  EQ     VARCHK      GO CHECK LEVEL OF VARIALBE                  FCC1169    47
                                         .76      ENDIF                                                          FCC1169    48
          1141  5110000000 X             IOL43    ADDWD  TP.APL      ADD ITEM TO APLIST                          FCC1169    49
          1142  7110002000                        =X1    M.ADDR      SET ADDRESS BIT                             IO       2022
                          5130000000 X            SA3    APLUG                                                   IO       2023
          1143  12414                             BX4    X1+X4                                                   IO       2024
                     10633                        BX6    X3                                                      IO       2025
                          5160000000 X            SA6    SOPR                                                    IO       2026
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    43
                                                                      C=IOL 
  
          1144  0100000000 X                      RJ     ADT         ADD *AP-LIST PLUG* TURPLE                   IO       2027
          1145  5130000000 X                      SA3    APLSTOR                                                 IO       2028
                          57461                   =A4    B6-1        1ST OPERAND = RESULTS OF *PLUG*             IO       2029
          1146  0400000000 X                      EQ     POP.ST1     EXIT.. (TO POP TURPLE -- MODELESS)          IO       2030
                                                                                                                 IO       2031
                                        **        CONSTRUCT AP-LIST ENTRY FOR A VARIABLE.                        IO       2032
                                                                                                                 IO       2033
          1147  5120000000 X             IOL45    SA2    TS.SYM                                                  IO       2034
                          6127437777              SB2    B7-C.CON                                                IO       2035
          1150  6177577777                        SB7    B7-C.VAR                                                IO       2036
                          0720001164 +            MI     B2,IOL47    IF ITEM IS NOT A CONSTANT                   IO       2037
          1151  43052                             MX0    -L.2BIAS                                                IO       2038
                     5120000002 +                 SA2    IODIR                                                   IO       2039
                               20030              LX0    P.2BIAS                                                 IO       2040
          1152  5140000014 +                      SA4    R.W                                                     IO       2041
                          15360                   BX3    -X0*X6      ISOLATE (2BIAS) -- CONTAINS CONSTANT LENGTH IO       2042
                               11606              BX6    X0*X6       CLEAR OUT (2BIAS)                           IO       2043
          1153  0324001155 +                      PL     X4,IOL46    IF NOT CHAR STRING IN LIST-DIRECTED I/O     IO       2044
                          76710                   =X7    1                                                       IO       2045
          1154  7110000006                        SX1    M.CHAR      HOLL STRING TYPE                            IO       2046
                          54740                   SA7    A4          RESET LIST-DIRECTED FLAG                    IO       2047
          1155  7140000000               IOL46    SX4    M.UNIV      UNIVERSAL MODE (USED FOR OCTAL)             FCC1551X    4
                          13714                   BX7    X1-X4                                                   FCC1551X    5
          1156  0317001157 +                      NZ     X7,IOL46.2  IF MODE NOT UNIVERSAL                       FCC1551X    6
                          7110000002              SX1    M.INT       CHANGE MODE FROM OCTAL TO INTEGER           FCC1551X    7
          1157  20130                    IOL46.2  LX1    P.ABIAS                                                 FCC1551X    8
                     21336                        AX3    P.2BIAS+L.MSHORT                                        IO       2049
                          12661                   BX6    X6+X1       INSERT TYPE                                 IO       2050
          1160  0312001214 +                      NZ     X2,IOL5     IF *OUTPUT* DIRECTION                       IO       2051
                          5110000005 +            SA1    IOLEN                                                   IO       2052
          1161  7261777776                        =X6    X1-1                                                    IO       2053
                          54610                   SA6    A1          BAD ITEM NOT ADDED TO AP-LIST               IO       2054
          1162  6170000000 X                      FATAL  E.IOL2      ** CONSTANT ILLEGAL IN INPUT **             IO       2055
          1163  0400000000 X                      EQ     C=ERR                                                   IO       2056
                                                                                                                 IO       2057
          1164  53227                    IOL47    SA2    X2+B7       LOAD SYMBOL TABLE ENTRY                     IO       2058
                     5110000002 +                 SA1    IODIR                                                   FCC0499    45
                               66200              =B2    0           SET RETURN ADDRESS = 0 FOR LEVEL CHECK      FCC1028    16
          1165  0311001175 +                      NZ     X1,IOL47A   IF NOT INPUT                                FCC0499    46
                                                                                                                 FCC0499    47
                          7110000010              SX1    M.DEF                                                   FCC0499    48
          1166  12721                             BX7    X2+X1                                                   FCC0499    49
                     54720                        SA7    A2          SET DEFINED BIT FOR INPUT VARIABLES         FCC0499    50
                                        *         CHECK IF LIST VARIABLE IS A DO CONTROL INDEX                   FCC1571X    6
                          5130000000 X            SA3    =XTP.DO                                                 FCC1571X    7
          1167  5150000000 X                      SA5    TP=DO                                                   FCC1571X    8
                          36035                   IX0    X3+X5                                                   FCC1571X    9
                               63700              SB7    X0          LWA+1 OF TABLE                              FCC1571X   10
          1170  6233000003                        SB3    X3+OR.DOCI                                              FCC1571X   11
          1171  0773001175 +             IOL470   GT     B3,B7,IOL47A  IF END OF TABLE                           FCC1571X   12
                          56330                   SA3    B3          CONTROL INDEX                               FCC1571X   13
                               13073              BX0    X7-X3                                                   FCC1571X   14
          1172  6133000006                        SB3    B3+L.DOE                                                FCC1571X   15
                          21052                   AX0    P.TAG                                                   FCC1571X   16
          1173  0310001171 +                      NZ     X0,IOL470   IF CONTROL INDEX NOT REDEFINED              FCC1571X   17
                          6170000000 X            FATAL  =XE.DO8     CONTROL INDEX REDEFINED - FATAL             FCC1571X   18
                                                                                                                 FCC0499    51
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    44
                                                                      C=IOL 
  
          1175                           IOL47A   BSS    0                                                       FCC0499    52
                                                                                                                 IO       2059
                                         .76      IFEQ   .CPU,76                                                 IO       2060
                                                                                                                 IO       2061
                                        **        TURN ON *ALCM* BIT FOR 7000 LEVEL 2 VARIABLES                  IO       2062
                                        *         B2 = RETURN ADDRESS                                            FCC1028    17
                                                                                                                 IO       2063
                                                  SBIT   X2,LEV                                                  IO       2064
                                                  PL     X2,IOL48    IF NOT LEVEL VARIABLE                       IO       2065
                                                  LX2    P.LEV+1     RESTORE X2                                  IO       2066
                                                  MX0    -L.LEVN                                                 IO       2067
                                                  LX0    P.LEVN                                                  IO       2068
                                                  BX0    -X0*X2                                                  IO       2069
                                                  AX0    P.LEVN      (X0) = LEVEL NUMBER                         IO       2070
                                                  SX0    X0-2                                                    IO       2071
                                                  NZ     X0,IOL49    IF NOT LEVEL 2                              IO       2072
                                                  =X0    1                                                       IO       2073
                                                  LX0    P.ALCM      TURN ON *ALCM* BIT                          IO       2074
                                                  BX6    X6+X0                                                   IO       2075
                                                  EQ     IOL49                                                   IO       2076
                                                                                                                 IO       2077
                                         IOL48    LX2    P.LEV+1     RESTORE X2                                  IO       2078
                                                                                                                 IO       2079
                                         IOL49    ZR     B2,IOL49A   IF NO RETURN.                               FCC1169    50
                                                  JP     B2          RETURN TO *A=* AND *C=* PROCESSORS IN *IO*. FCC1169    51
                                                                                                                 IO       2081
                                         .76      ENDIF                                                          IO       2082
                                                                                                                 IO       2083
          1175  20263                    IOL49A   SBIT   X2,ARY                                                  FCC1169    52
                     7130020001                   =X3    1+"AP=SIZ"S"ATYP"  PRESET SIMPLE ITEM LENGTH = 1        IO       2085
                               20464              SBIT   X4,ARE                                                  FCC1134    25
          1176  0322001222 +                      PL     X2,IOL6     IF NOT ARRAY                                IO       2087
                          20255                   SBIT   X2,PNT/ARY+1                                            IO       2088
          1177  0324001222 +                      PL     X4,IOL6     IF SNGLE ELEMENT                            IO       2089
                          5130000000 X            SA3    TP.DIM                                                  IO       2090
          1200  43057                             MX0    -L.PNT                                                  IO       2091
                     15520                        BX5    -X0*X2      ISOLATE TP.DIM ORD                          IO       2092
                          63350                   SB3    X5                                                      IO       2093
                               43044              MX0    -L.DIMLG                                                IO       2094
          1201  53133                             SA1    X3+B3       FETCH DIMENSION PARAMETERS                  IO       2095
                     20136                        SBIT   X1,DIMLG+1                                              IO       2096
                          15310                   BX3    -X0*X1      ARRAY LENGTH                                IO       2097
                                                  SBIT   X1,VDIM/DIMLG-1                                         IO       2098
          1202  0321001214 +                      PL     X1,IOL5     IF NOT VARAIBLY DIMENSIONED                 IO       2099
                                                                                                                 IO       2100
                                        **        THIS ITEM IS VARIABLY DIMENSIONED.  CALL *CVT* TO GENERATE     IO       2101
                                        *                TURPLES WHICH WILL CAUSE THE LENGTH TO BE COMPUTED IN   IO       2102
                                        *                THE SUBPROGRAM PREAMBLE CODE.                           IO       2103
                                                                                                                 IO       2104
                          20144                   SBIT   X1,NDIM/VDIM+1                                          IO       2105
                               43066              MX0    -L.NDIM                                                 IO       2106
          1203  15210                             BX2    -X0*X1      ISOLATE NUMBER OF DIMENSIONS                IO       2107
                     76010                        =X0    1                                                       IO       2108
                          20222                   LX2    18                                                      IO       2109
                               12420              BX4    X2+X0       12/0,18/NO. OF DIMS,18/CURRENT SUBSCR       IO       2110
          1204  5160001225 +                      SA6    IOLSCR                                                  IO       2111
                          76610                   SX6    B1                                                      FCC1736X    7
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    45
                                                                      C=IOL 
  
          1205  5160000000 X                      SA6    =XDIMUL     SET TO ONE IN CASE FIRST DIM IS CONSTANT    FCC1736X    8
          1206  63240                    IOL50    SB2    X4                                                      IO       2113
                     63350                        SB3    X5          TP.DIM ORD                                  IO       2114
                          0100000000 X            RJ     CVT         GENERATE VAR-DIM TAG                        IO       2115
          1207  14766                             BX7    -X6                                                     IO       2116
                     73141                        =X1    X4+1                                                    IO       2117
                          5170000000 X            SA7    =XDIMUL                                                 IO       2118
          1210  21422                             AX4    18                                                      IO       2119
                     37041                        IX0    X4-X1                                                   IO       2120
                          0330001212 +            MI     X0,IOL51    IF ALL SUBSCR PROCESSED                     IO       2121
          1211  20422                             LX4    18                                                      IO       2122
                     12441                        BX4    X4+X1                                                   IO       2123
                          0400001206 +            EQ     IOL50                                                   IO       2124
                                                                                                                 IO       2125
          1212  5140001225 +             IOL51    SA4    IOLSCR                                                  IO       2126
                          7236557777              =X3    X6-C.VDIM+"AP=TEM"S"ATYP"                               IO       2127
          1213  10644                             BX6    X4          RESTORE (X6)                                IO       2128
                     0400001222 +                 EQ     IOL6        CONTINUE..                                  IO       2129
                                                                                                                 IO       2130
          1214  10733                    IOL5     BX7    X3                                                      IO       2131
                     21715                        AX7    L.ASIZ                                                  IO       2132
                          0317001216 +            NZ     X7,IOL55    IF TOO LONG TO PUT IN DIRECTLY              IO       2133
          1215  7233020000                        =X3    X3+"AP=SIZ"S"ATYP"    SET I/O LENGTH INIDCATOR          IO       2134
                          0400001222 +            EQ     IOL6                                                    IO       2135
                                                                                                                 IO       2136
          1216  22703                    IOL55    LX7    X3                                                      IO       2137
                     10466                        BX4    X6                                                      IO       2138
                          5170000000 X            SA7    SCR                                                     IO       2139
          1217  64270                             SB2    A7          = FWA                                       FCC1320    11
                     64371                        SB3    A7+B1       = LWA + 1                                   FCC1320    12
                          5110000000 X            SCAN   TS.CON,NCM  ENTER ARRAY LENGTH INTO CON TABLE           IO       2142
          1221  7137040000                        SX3    B7+"AP=CON"S"ATYP"                                      IO       2143
                          10644                   BX6    X4          RESTORE (X6)                                IO       2144
                                                                                                                 IO       2145
                                                                                                                 IO       2146
                                        **        ENTER THE ITEM IN AP-LIST TABLE.                               IO       2147
                                        *                (X6) = TAG.       (APTAG, APBIAS)                       IO       2148
                                        *                (X3) = SIZE.      (APSIZ, APTYP)                        IO       2149
                                                                                                                 IO       2150
          1222  12663                    IOL6     BX6    X6+X3                                                   IO       2151
                     5110000000 X                 ADDWD  TP.APL                                                  IO       2152
          1224  0400000000 X                      EQ     POPX        EXIT.. (NO TURPLE)                          IO       2153
          1225                     1     IOLSCR   BSS    1           TEMPORARY FOR AP-LIST ITEM                  IO       2154
  
  
  
  
                                        **        A=STR - CHECK XXCODE *STRING* ADDRESS.                         IO       2156
                                        *                                                                        IO       2157
                                        *         EXIT   (IOSTR) = STRING ADDRESS DESCRIPTOR.                    IO       2158
                                        *                                                                        IO       2159
                                        *         ERROR  IF EXPRESSION      (E.IOS7)                             IO       2160
                                        *         O.K.   IF PLUG                                                 IO       2161
                                        *         ERROR  IF NOT A VARIABLE  (E.IOS8)                             IO       2162
                                                                                                                 IO       2163
                                                                                                                 IO       2164
          1226                           A=STR    BSS    0           ENTRY...                                    IO       2165
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    46
                                                                      A=STR 
  
          1226  0100000732 +                      RJ     AAE         ANALYZE AP-LIST ENTRY                       IO       2166
          1227  7110220000                        =X1    M.AVAR+"AP=SIZ"S"ATYP"                                  IO       2167
                          12661                   BX6    X6+X1                                                   IO       2168
                                         .76      IFEQ   .CPU,76                                                 FCC1169    53
                                                  LE     B7,STRA     IF NOT NORMAL TAG                           FCC1169    54
                                        *         CHECK FOR 7000 LEVEL                                           FCC1169    55
                                        *                                                                        FCC1169    56
                                                  =B2    STRA        SET RETURN ADDRESS.                         FCC1169    57
                                                  EQ     VARCHK      GO CHECK FOR VAR SYM                        FCC1169    58
                                         .76      ENDIF                                                          FCC1169    59
          1230  10766                    STRA     BX7    X6                                                      FCC2031     8
                     0670001232 +                 PL     B7,STRB     IF NO PLUG                                  FCC2031     9
                               43044              MX0    L.ATAG+L.ABIAS                                          FCC0995    10
          1231  15760                             BX7    -X0*X6                                                  FCC2031    10
          1232  5170000010 +             STRB     SA7    IOSTR                                                   FCC2031    11
                          0470000000 X            ZR     B7,E.IOS7   IF EXPRESSION, ERROR                        IO       2170
          1233  5130000002 +                      SA3    IODIR                                                   FCC1550X   12
                          0303001237 +            ZR     X3,STRC     IF NOT OUTPUT DIRECTION                     FCC1550X   13
          1234  20622                             LX6    L.TAG       SET DEF BIT                                 FCC1550X   14
                     43357                        MX3    -L.PWF                                                  FCC1550X   15
                          15663                   BX6    -X3*X6                                                  FCC1550X   16
          1235  5130000000 X                      SA3    TS.SYM                                                  FCC1550X   17
                          63260                   SB2    X6                                                      FCC1550X   18
                               53332              SA3    B2+X3                                                   FCC1550X   19
          1236  7160000010                        SX6    M.DEF                                                   FCC1550X   20
                          12636                   BX6    X3+X6                                                   FCC1550X   21
                               54630              SA6    A3                                                      FCC1550X   22
                                                                                                                 FCC1550X   23
          1237  76311                   STRC      =X3    IO=STR                                                  FCC1550X   24
                     0770000762 +                 MI     B7,C=IOT    IF PLUG                                     IO       2172
          1240  6120240000                        SB2    C.VAR+2*C.DIF                                           IO       2173
                          0727000000 X            GT     B7,B2,E.IOS7      IF NOT VARIABLE TAG                   IO       2174
          1241  0400000000 X                      EQ     PAREXIT     EXIT PARSER.                                IO       2175
  
  
  
  
                                         .76      IFEQ   .CPU,76                                                 FCC1169    61
                                        **        VARCHK   -   CHECK FOR VARIABLE SYMBOL                         FCC1169    62
                                        *         ENTRY    -   FROM APPROPRIATE *A=* OR *C=* ROUTINE IN *IO*     FCC1169    63
                                        *                  (B2) = RETURN ADDRESS (TO APPROP. *A=* OR *C"* ROUT)  FCC1169    64
                                        *                  (B7) = TAG TYPE(AS FROM *AAE*)                        FCC1169    65
                                        *                                                                        FCC1169    66
                                        *         EXIT     -   IF     VARIABLE SYMBOL TAG - TO *IOL47A (IN *IO*) FCC1169    67
                                        *                      IF NOT VARIABLE SYMBOL TAG - TO CALLING ROUTINE   FCC1169    68
                                                                                                                 FCC1169    69
                                                                                                                 FCC1169    70
                                                                                                                 FCC1169    71
                                         VARCHK   BSS    0           ENTRY...                                    FCC1169    72
                                                  SB3    C.VAR+2*C.DIF                                           FCC1169    73
                                                  GT     B7,B3,VARCHK1   IF NOT VARIABLE TAG                     FCC1169    74
                                                  SA2    TS.SYM                                                  FCC1169    75
                                                  SB3    B7-C.VAR                                                FCC1169    76
                                                  SA2    X2+B3       LOAD SYMBOL TABLE ENTRY                     FCC1169    77
                                                  EQ     IOL47A                                                  FCC1169    78
                                         VARCHK1  JP     B2          RETURN TO CALLER(IN *IO*)                   FCC1169    79
                                         .76      ENDIF                                                          FCC1169    80
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    47
                                                                      O=IOJ 
  
                                                                                                                 FCC1169    81
                                                                                                                 FCC1169    82
                                        **        O=IOJ - COMPILE JUMP TO I/O ROUTINE.                           IO       2186
                                        *                                                                        IO       2187
                                        *         ENTRY  (1OP) = APTAG / TRACEBACK                               IO       2188
                                        *                (2OP) = SUBROUTINE TAG                                  IO       2189
                                        *         EXIT   JUMP COMPILED.                                          IO       2190
                                        *         CALLS  ADDWD, CLOAD, CRJ, ILI, NAP, TAGSEX.                    IO       2191
                                                                                                                 IO       2192
                                                                                                                 IO       2193
          1242                           O=IOJ    BSS    0           ENTRY...                                    IO       2194
          1242  0100000000 X                      RJ     CIA                                                     IO       2195
          1243  56441                             =A4    B4+OR.1OP                                               IO       2196
                     7160000010 X                 SX6    SA=BKS3+1S3                                             IO       2197
                               73540              SX5    X4          REMEMBER TRACEBACK FLAG                     IO       2198
          1244  37245                             IX2    X4-X5                                                   IO       2199
                     12762                        BX7    X6+X2                                                   IO       2200
                          20760                   LX7    P.LI12                                                  IO       2201
          1245  6120001246 +                      WCODE  X7          * SA1 AP-LIST*                              IO       2202
          1246  5144000002                        =A4    B4+OR.2OP                                               IO       2203
                          10644                   BX6    X4                                                      IO       2204
          1247  7215777776                        SX1    X5-1        SET TRACEBACK FLAG FOR *CRJ*                IO       2205
                          5130000000 X            SA3    =XTRLINE    LINE NO. FOR TRACEBACK                      IO       2206
          1250  0100000000 X                      RJ     CRJ         * RJ =XROUT*                                IO       2207
          1251  0400001303 +                      EQ     IOX         EXIT..                                      IO       2208
  
  
  
  
                                        **        CML - CHECK FOR MATCH IN LIST (TP.ILI)                         IO       2210
                                        *                                                                        IO       2211
                                        *         I/O RESTART CALLS WILL BE ISSUED WHEN CERTAIN CONDITIONS ARE   IO       2212
                                        *         SATISFIED FOR ITEMS IN INPUT LISTS.                            IO       2213
                                        *                                                                        IO       2214
                                        *         ENTRY  (X6) = PASS 2 TAG OF ITEM TO BE CHECKED                 IO       2215
                                        *                                                                        IO       2216
                                        *         KEEPS  X5,X6  B2,B4,B5,B6                                      IO       2217
                                        *         CALLS  IOJ                                                     IO       2218
                                                                                                                 IO       2219
                                                                                                                 IO       2220
          1252  0400401252 +             CML      SUBR   0                                                       IO       2221
          1253  5120000000 X                      SA2    TP=ILI      LENGTH OF LIST ITEM TABLE                   IO       2222
                          10466                   BX4    X6                                                      IO       2223
                               43022              MX0    L.TAG                                                   IO       2224
          1254  7212777775                        SX1    X2-2        ALLOW FOR NAME OF ARRAY                     IO       2225
                          0331001252 +            MI     X1,CMLX     IF TABLE EMPTY, EXIT                        IO       2226
          1255  20056                             LX0    -P.2EQUIV-1                                             IO       2227
                     20456                        IFBIT  X4,2EQUIV,CML2 IF ITEM EQUIVED                          IO       2228
          1256  5130000000 X                      SA3    TP.ILI      (X3) = FWA OF TABLE                         IO       2229
                          11404                   BX4    X0*X4                                                   IO       2230
                               53130              SA1    X3                                                      IO       2231
          1257  20156                    CML1     IFBIT  X1,2EQUIV,CML2 IF ITEM IN TABLE EQUIVED                 IO       2232
                               11101              BX1    X0*X1                                                   IO       2233
          1260  7222777776                        SX2    X2-1        DECREMENT LENGTH OF ITEMS                   IO       2234
                          37714                   IX7    X1-X4                                                   IO       2235
                               54111              =A1    A1+1                                                    IO       2236
          1261  0307001263 +                      ZR     X7,CML2     IF TAGS MATCH                               IO       2237
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    48
                                                                      CML 
  
                          0302001252 +            ZR     X2,CMLX     IF TABLE EXHAUSTED, EXIT                    IO       2238
          1262  0400001257 +                      EQ     CML1        CONTINUE TABLE SEARCH                       IO       2239
                                                                                                                 IO       2240
          1263  5160001277 +             CML2     SA6    CMLT1       X6 SAVED                                    IO       2241
                          5140000000 X            SA4    TP=ILI                                                  IO       2242
          1264  10655                             BX6    X5                                                      IO       2243
                     36034                        IX0    X3+X4                                                   IO       2244
                          5220777776              SA2    X0-1                                                    IO       2245
          1265  76120                             SX1    B2                                                      IO       2246
                     22702                        LX7    X2                                                      IO       2247
                          54661                   =A6    A6+1        X5 SAVED                                    IO       2248
          1266  5170001302 +                      SA7    CMLT2       ARRAY NAME IS RETAINED                      IO       2249
                          76450                   SX4    B5                                                      IO       2250
                               20122              LX1    18                                                      IO       2251
          1267  12014                             BX0    X1+X4                                                   IO       2252
                     76260                        SX2    B6                                                      IO       2253
                          20022                   LX0    18                                                      IO       2254
                               12702              BX7    X0+X2       B2,B5,B6 SAVED                              IO       2255
          1270  54761                             =A7    A6+1                                                    IO       2256
                     17666                        BX6    -0                                                      IO       2257
                          0100000434 +            RJ     IOJ         I/O APLIST INTERRUPT ISSUED                 IO       2258
          1271  5140001302 +                      SA4    CMLT2                                                   IO       2259
                          22604                   LX6    X4                                                      IO       2260
          1272  5110000000 X                      ADDWD  TP.ILI      ARRAY NAME IS RETAINED IN TABLE             IO       2261
          1273  5110001277 +                      SA1    CMLT1                                                   IO       2262
                          54411                   =A4    A1+1                                                    IO       2263
                               10611              BX6    X1          X6 RESTORED                                 IO       2264
          1274  54241                             =A2    A4+1                                                    IO       2265
                     10544                        BX5    X4          X5 RESTORED                                 IO       2266
                          63620                   SB6    X2          B6 RESTORED                                 IO       2267
                               21222              AX2    18                                                      IO       2268
          1275  63520                             SB5    X2          B5                                          IO       2269
                     21222                        AX2    18                                                      IO       2270
                          63220                   SB2    X2          B2                                          IO       2271
          1276  0400001252 +                      EQ     CMLX        EXIT                                        IO       2272
                                                                                                                 IO       2273
          1277                     1     CMLT1    BSS    1           TEMPORARY FOR X6                            IO       2274
          1300                     1              BSS    1                         X5                            IO       2275
          1301                     1              BSS    1                         B2,B5,B6                      IO       2276
          1302                     1     CMLT2    BSS    1           TEMP FOR ARRAY NAME                         IO       2277
  
  
  
  
                                        **        IOX -  COMMON EXIT POINT FOR ALL I/O OPERATORS.                IO       2279
                                                                                                                 IO       2280
                                                                                                                 IO       2281
          1303  6144000003               IOX      =B4    B4+L.TURP                                               IO       2282
                          0400000000 X            EQ     EIS.PNX     EXIT..                                      IO       2283
                                                                                                                 IO       2284
                                                  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     IO       2285
                                                  NOREF  EXIT.                                                   IO       2286
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    49
        /JUMPTO  LETTER GROUP / JUMPTO  TABLES. 
  
                                         JUMPTO   SECT   (LETTER GROUP / JUMPTO  TABLES.),1                      IO       2287
  
  
  
  
  
                                        **        LGR    LETTER GROUP JUMPTO TABLE FOR KEYWORD STATEMENTS.       IO       2289
                                                                                                                 IO       2290
                                                                                                                 IO       2291
          1304                           LGR      BSS    0           BASE OF KEYWORD JUMPTO TABLE                IO       2292
                                                                                                                 IO       2293
      L      0                                    LOC    0                                                       IO       2294
                                                  LIST   G           JUMPTO.                                     IO       2295
      L      0                           ASSIGN   SATTR  0LASSI,ASSIGN=,EXU,(GEN,LBL),6                          IO       2296
      L      0  0123231100 X             ASSIGN      VFD    L.SKEY/0LASSI,L.SCPM/CPM=EXU                        SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           043000000 X            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XASSIGN=                       SATTR   .1
      L      1                           TO       SATTR  0LTO,TO=,OK,(NIF),2                                     IO       2297
      L      1  2417000000 X             TO      VFD    L.SKEY/0LTO,L.SCPM/CPM=OK                               SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           013000000 X            VFD    L.SLEN/2*CHAR-1,L.SJMP/=XTO=                           SATTR   .1
      L      2                           BLOCKDA  SATTR  0LBLOC,BLOCKD=,1ST,(NIF),9                              IO       2298
      L      2  0214170300 X             BLOCKDA      VFD    L.SKEY/0LBLOC,L.SCPM/CPM=1ST                       SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           065000000 X            VFD    L.SLEN/9*CHAR-1,L.SJMP/=XBLOCKD=                       SATTR   .1
      L      3                           CALL     SATTR  0LCALL,CALL=,EXU,(CDS,GEN,LBL),4                        IO       2299
      L      3  0301141400 X             CALL      VFD    L.SKEY/0LCALL,L.SCPM/CPM=EXU                          SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           027000000 X            VFD    L.SLEN/4*CHAR-1,L.SJMP/=XCALL=                         SATTR   .1
      L      4                           CONTINU  SATTR  0LCONT,CONTIN=,EXU,(GEN,LBL),8                          IO       2300
      L      4  0317162400 X             CONTINU      VFD    L.SKEY/0LCONT,L.SCPM/CPM=EXU                       SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           057000000 X            VFD    L.SLEN/8*CHAR-1,L.SJMP/=XCONTIN=                       SATTR   .1
      L      5                           END      SATTR  0LEND,END=,END,(BKD,CDS,GEN,NIF),3                      IO       2301
      L      5  0516040000 X             END      VFD    L.SKEY/0LEND,L.SCPM/CPM=END                            SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           021000000 X            VFD    L.SLEN/3*CHAR-1,L.SJMP/=XEND=                          SATTR   .1
      L      6                           FUNCTIO  SATTR  0LFUNC,FUNCTI=,1ST,(NIF),8                              IO       2302
      L      6  0625160300 X             FUNCTIO      VFD    L.SKEY/0LFUNC,L.SCPM/CPM=1ST                       SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           057000000 X            VFD    L.SLEN/8*CHAR-1,L.SJMP/=XFUNCTI=                       SATTR   .1
      L      7                           LDSET    SATTR  0LLDSE,LDSET=,1ST,(NIF),5                               IO       2303
      L      7  1404230500 X             LDSET      VFD    L.SKEY/0LLDSE,L.SCPM/CPM=1ST                         SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           035000000 X            VFD    L.SLEN/5*CHAR-1,L.SJMP/=XLDSET=                        SATTR   .1
      L     10                           OVERLAY  SATTR  0LOVER,OVERLA=,1ST,(NIF),7                              IO       2304
      L     10  1726052200 X             OVERLAY      VFD    L.SKEY/0LOVER,L.SCPM/CPM=1ST                       SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           051000000 X            VFD    L.SLEN/7*CHAR-1,L.SJMP/=XOVERLA=                       SATTR   .1
      L     11                           NAMELIS  SATTR  0LNAME,NAMELI=,OK,(NIF),8                               FCC0499    53
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    50
        /JUMPTO  LETTER GROUP / JUMPTO  TABLES.                       JUMPTO. 
  
      L     11  1601150500 X             NAMELIS      VFD    L.SKEY/0LNAME,L.SCPM/CPM=OK                        SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           057000000 X            VFD    L.SLEN/8*CHAR-1,L.SJMP/=XNAMELI=                       SATTR   .1
      L     12                           ENTRY    SATTR  0LENTR,ENTRY=,NTR,(CDS,GEN,NIF),5                       IO       2306
      L     12  0516242200 X             ENTRY      VFD    L.SKEY/0LENTR,L.SCPM/CPM=NTR                         SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           035000000 X            VFD    L.SLEN/5*CHAR-1,L.SJMP/=XENTRY=                        SATTR   .1
                                         .TEST    IFNE   TEST,0,1                                                IO       2307
                                         PATCH    SATTR  0LPATC,PATCH=,OK,(BKD,NIF),5                            IO       2308
      L     13                           PAUSE    SATTR  0LPAUS,PAUSE=,EXU,(CDS,GEN,LBL),5                       IO       2309
      L     13  2001252300 X             PAUSE      VFD    L.SKEY/0LPAUS,L.SCPM/CPM=EXU                         SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           035000000 X            VFD    L.SLEN/5*CHAR-1,L.SJMP/=XPAUSE=                        SATTR   .1
      L     14                           PROGRAM  SATTR  0LPROG,PROGRA=,1ST,(NIF),7                              IO       2310
      L     14  2022170700 X             PROGRAM      VFD    L.SKEY/0LPROG,L.SCPM/CPM=1ST                       SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           051000000 X            VFD    L.SLEN/7*CHAR-1,L.SJMP/=XPROGRA=                       SATTR   .1
      L     15                           RETURN   SATTR  0LRETU,RETURN=,EXU,(DON,GEN,LBL),6                      IO       2311
      L     15  2205242500 X             RETURN      VFD    L.SKEY/0LRETU,L.SCPM/CPM=EXU                        SATTR   .1
                         1                        VFD    1/1         (DON)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           043000000 X            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XRETURN=                       SATTR   .1
      L     16                           GOTO     SATTR  0LGOTO,GOTO=,EXU,(DON,GEN,LBL),4                        IO       2312
      L     16  0717241700 X             GOTO      VFD    L.SKEY/0LGOTO,L.SCPM/CPM=EXU                          SATTR   .1
                         1                        VFD    1/1         (DON)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           027000000 X            VFD    L.SLEN/4*CHAR-1,L.SJMP/=XGOTO=                         SATTR   .1
      L     17                           STOP     SATTR  0LSTOP,STOP=,EXU,(CDS,DON,GEN,LBL),4                    IO       2313
      L     17  2324172000 X             STOP      VFD    L.SKEY/0LSTOP,L.SCPM/CPM=EXU                          SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                         1                        VFD    1/1         (DON)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           027000000 X            VFD    L.SLEN/4*CHAR-1,L.SJMP/=XSTOP=                         SATTR   .1
      L     20                           SUBROUT  SATTR  0LSUBR,SUBROU=,1ST,(NIF),10                             IO       2314
      L     20  2325022200 X             SUBROUT      VFD    L.SKEY/0LSUBR,L.SCPM/CPM=1ST                       SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           073000000 X            VFD    L.SLEN/10*CHAR-1,L.SJMP/=XSUBROU=                      SATTR   .1
                                        ,                                                                       SATTR   .1
      L     21                           DATA     SATTR  0LDATA,DATA=,DAT,(BKD,NIF),4                            IO       2315
      L     21  0401240100 X             DATA      VFD    L.SKEY/0LDATA,L.SCPM/CPM=DAT                          SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           027000000 X            VFD    L.SLEN/4*CHAR-1,L.SJMP/=XDATA=                         SATTR   .1
      L     22                           COMMON   SATTR  0LCOMM,COMMON=,DEC,(BKD,NIF),6                          IO       2317
      L     22  0317151500 X             COMMON      VFD    L.SKEY/0LCOMM,L.SCPM/CPM=DEC                        SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           043000000 X            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XCOMMON=                       SATTR   .1
      L     23                           DIMENSI  SATTR  0LDIME,DIMENS=,DEC,(BKD,NIF),9                          IO       2318
      L     23  0411150500 X             DIMENSI      VFD    L.SKEY/0LDIME,L.SCPM/CPM=DEC                       SATTR   .1
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    51
        /JUMPTO  LETTER GROUP / JUMPTO  TABLES.                       JUMPTO. 
  
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           065000000 X            VFD    L.SLEN/9*CHAR-1,L.SJMP/=XDIMENS=                       SATTR   .1
      L     24                           EQUIVAL  SATTR  0LEQUI,EQUIVA=,DEC,(BKD,NIF),11                         IO       2319
      L     24  0521251100 X             EQUIVAL      VFD    L.SKEY/0LEQUI,L.SCPM/CPM=DEC                       SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           101000000 X            VFD    L.SLEN/11*CHAR-1,L.SJMP/=XEQUIVA=                      SATTR   .1
                                        ,                                                                       SATTR   .1
      L     25                           EXTERNA  SATTR  0LEXTE,EXTERN=,DEC,(NIF),8                              IO       2320
      L     25  0530240500 X             EXTERNA      VFD    L.SKEY/0LEXTE,L.SCPM/CPM=DEC                       SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           057000000 X            VFD    L.SLEN/8*CHAR-1,L.SJMP/=XEXTERN=                       SATTR   .1
      L     26                           LEVEL    SATTR  0LLEVE,LEVEL=,DEC,(BKD,NIF),5                           IO       2321
      L     26  1405260500 X             LEVEL      VFD    L.SKEY/0LLEVE,L.SCPM/CPM=DEC                         SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           035000000 X            VFD    L.SLEN/5*CHAR-1,L.SJMP/=XLEVEL=                        SATTR   .1
      L     27                           LOGICAL  SATTR  0LLOGI,LOGICA=,TYP,(BKD,NIF),7                          IO       2322
      L     27  1417071100 X             LOGICAL      VFD    L.SKEY/0LLOGI,L.SCPM/CPM=TYP                       SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           051000000 X            VFD    L.SLEN/7*CHAR-1,L.SJMP/=XLOGICA=                       SATTR   .1
      L     30                           INTEGER  SATTR  0LINTE,INTEGE=,TYP,(BKD,NIF),7                          IO       2323
      L     30  1116240500 X             INTEGER      VFD    L.SKEY/0LINTE,L.SCPM/CPM=TYP                       SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           051000000 X            VFD    L.SLEN/7*CHAR-1,L.SJMP/=XINTEGE=                       SATTR   .1
      L     31                           REAL     SATTR  0LREAL,REAL=,TYP,(BKD,NIF),4                            IO       2324
      L     31  2205011400 X             REAL      VFD    L.SKEY/0LREAL,L.SCPM/CPM=TYP                          SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           027000000 X            VFD    L.SLEN/4*CHAR-1,L.SJMP/=XREAL=                         SATTR   .1
      L     32                           DOUBLE   SATTR  0LDOUB,DOUBLE=,TYP,(BKD,NIF),6                          IO       2325
      L     32  0417250200 X             DOUBLE      VFD    L.SKEY/0LDOUB,L.SCPM/CPM=TYP                        SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           043000000 X            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XDOUBLE=                       SATTR   .1
      L     33                           PRECISI  SATTR  0LPREC,PRECIS=,OK,(NIF),9                               IO       2326
      L     33  2022050300 X             PRECISI      VFD    L.SKEY/0LPREC,L.SCPM/CPM=OK                        SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           065000000 X            VFD    L.SLEN/9*CHAR-1,L.SJMP/=XPRECIS=                       SATTR   .1
      L     34                           COMPLEX  SATTR  0LCOMP,COMPLE=,TYP,(BKD,NIF),7                          IO       2327
      L     34  0317152000 X             COMPLEX      VFD    L.SKEY/0LCOMP,L.SCPM/CPM=TYP                       SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           051000000 X            VFD    L.SLEN/7*CHAR-1,L.SJMP/=XCOMPLE=                       SATTR   .1
      L     35                           TYPE     SATTR  0LTYPE,TYPE=,TPE,(BKD,NIF),4                            IO       2328
      L     35  2431200500 X             TYPE      VFD    L.SKEY/0LTYPE,L.SCPM/CPM=TPE                          SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           027000000 X            VFD    L.SLEN/4*CHAR-1,L.SJMP/=XTYPE=                         SATTR   .1
      L     36                           IMPLICI  SATTR  0LIMPL,IMPLIC=,IMP,(BKD,NIF),8                          IO       2329
      L     36  1115201400 X             IMPLICI      VFD    L.SKEY/0LIMPL,L.SCPM/CPM=IMP                       SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           057000000 X            VFD    L.SLEN/8*CHAR-1,L.SJMP/=XIMPLIC=                       SATTR   .1
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    52
        /JUMPTO  LETTER GROUP / JUMPTO  TABLES.                       JUMPTO. 
  
      L     37                           FORMAT   SATTR  0LFORM,FORMAT=,FMT,(LBL,NIF),6                          IO       2330
      L     37  0617221500 X             FORMAT      VFD    L.SKEY/0LFORM,L.SCPM/CPM=FMT                        SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           043000000 X            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XFORMAT=                       SATTR   .1
      L     40                           BACKSPA  SATTR  0LBACK,BACKSP=,EXU,(CDS,GEN,LBL),9                      IO       2331
      L     40  0201031300 X             BACKSPA      VFD    L.SKEY/0LBACK,L.SCPM/CPM=EXU                       SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           065000034 +            VFD    L.SLEN/9*CHAR-1,L.SJMP/=XBACKSP=                       SATTR   .1
      L     41                           BUFFER   SATTR  0LBUFF,BUFFER=,EXU,(CDS,GEN,LBL),6                      IO       2332
      L     41  0225060600 X             BUFFER      VFD    L.SKEY/0LBUFF,L.SCPM/CPM=EXU                        SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           043000037 +            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XBUFFER=                       SATTR   .1
      L     42                           DECODE   SATTR  0LDECO,DECODE=,EXU,(CDS,GEN,LBL),6                      IO       2333
      L     42  0405031700 X             DECODE      VFD    L.SKEY/0LDECO,L.SCPM/CPM=EXU                        SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           043000110 +            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XDECODE=                       SATTR   .1
      L     43                           ENDFILE  SATTR  0LENDF,ENDFIL=,EXU,(CDS,GEN,LBL),7                      IO       2334
      L     43  0516040600 X             ENDFILE      VFD    L.SKEY/0LENDF,L.SCPM/CPM=EXU                       SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           051000113 +            VFD    L.SLEN/7*CHAR-1,L.SJMP/=XENDFIL=                       SATTR   .1
      L     44                           ENCODE   SATTR  0LENCO,ENCODE=,EXU,(CDS,GEN,LBL),6                      IO       2335
      L     44  0516031700 X             ENCODE      VFD    L.SKEY/0LENCO,L.SCPM/CPM=EXU                        SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           043000120 +            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XENCODE=                       SATTR   .1
      L     45                           PUNCH    SATTR  0LPUNC,PUNCH=,EXU,(CDS,GEN,LBL),5                       IO       2336
      L     45  2025160300 X             PUNCH      VFD    L.SKEY/0LPUNC,L.SCPM/CPM=EXU                         SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           035000123 +            VFD    L.SLEN/5*CHAR-1,L.SJMP/=XPUNCH=                        SATTR   .1
      L     46                           PRINT    SATTR  0LPRIN,PRINT=,EXU,(CDS,GEN,LBL),5                       IO       2337
      L     46  2022111600 X             PRINT      VFD    L.SKEY/0LPRIN,L.SCPM/CPM=EXU                         SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           035000157 +            VFD    L.SLEN/5*CHAR-1,L.SJMP/=XPRINT=                        SATTR   .1
      L     47                           REWIND   SATTR  0LREWI,REWIND=,EXU,(CDS,GEN,LBL),6                      IO       2338
      L     47  2205271100 X             REWIND      VFD    L.SKEY/0LREWI,L.SCPM/CPM=EXU                        SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           043000163 +            VFD    L.SLEN/6*CHAR-1,L.SJMP/=XREWIND=                       SATTR   .1
      L     50                           READ     SATTR  0LREAD,READ=,EXU,(CDS,GEN,LBL),4                        IO       2339
      L     50  2205010400 X             READ      VFD    L.SKEY/0LREAD,L.SCPM/CPM=EXU                          SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    53
        /JUMPTO  LETTER GROUP / JUMPTO  TABLES.                       JUMPTO. 
  
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           027000202 +            VFD    L.SLEN/4*CHAR-1,L.SJMP/=XREAD=                         SATTR   .1
      L     51                           WRITE    SATTR  0LWRIT,WRITE=,EXU,(CDS,GEN,LBL),5                       IO       2340
      L     51  2722112400 X             WRITE      VFD    L.SKEY/0LWRIT,L.SCPM/CPM=EXU                         SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           035000212 +            VFD    L.SLEN/5*CHAR-1,L.SJMP/=XWRITE=                        SATTR   .1
      L     52                           LG.LEN   BSS    0           LENGTH OF KEYWORD TABLE                     IO       2341
                                                                                                                 IO       2342
                                                                                                                 IO       2343
                                        **        FOLLOWING /JUMPTO./ WORDS ARE FAKE ENTRIES FOR SYNTACTICLLY    IO       2344
                                        *                RECOGNIZED STATEMENTS.                                  IO       2345
                                        *         THESE WORDS MUST EXIST, BUT THEY MAY NOT BE INCLUDED IN THE    IO       2346
                                        *         LENGTH SPECIFIED BY *LG.LEN*.                                  IO       2347
                                                                                                                 IO       2348
                                                                                                                 IO       2349
      L     52                           ASF.     SATTR  -1,AFD,ASF,(NIF)                                        IO       2350
      L     52  7777777600 X             ASF.      VFD    L.SKEY/-1,L.SCPM/CPM=ASF                              SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           000000000 X            VFD    L.SLEN/,L.SJMP/=XAFD                                   SATTR   .1
      L     53                           DO.      SATTR  2LDO,SDO,EXU,(DON,GEN,LBL,NIF),2                        IO       2351
      L     53  0417000000 X             DO.      VFD    L.SKEY/2LDO,L.SCPM/CPM=EXU                             SATTR   .1
                         1                        VFD    1/1         (DON)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                          4                       VFD    1/1         (NIF)                                      SATTR   .1
                           013000000 X            VFD    L.SLEN/2*CHAR-1,L.SJMP/=XSDO                           SATTR   .1
      L     54                           IF.      SATTR  -1,IFS,EXU,(GEN,LBL)                                    IO       2352
      L     54  7777777600 X             IF.      VFD    L.SKEY/-1,L.SCPM/CPM=EXU                               SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           000000000 X            VFD    L.SLEN/,L.SJMP/=XIFS                                   SATTR   .1
      L     55                           REP.     SATTR  -1,CNF,EXU,(GEN,LBL)                                    IO       2353
      L     55  7777777600 X             REP.      VFD    L.SKEY/-1,L.SCPM/CPM=EXU                              SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           000000000 X            VFD    L.SLEN/,L.SJMP/=XCNF                                   SATTR   .1
      L     56                           EOS      SATTR  -1,END=,END,(BKD,CDS,GEN)                               IO       2354
      L     56  7777777600 X             EOS      VFD    L.SKEY/-1,L.SCPM/CPM=END                               SATTR   .1
                           2                      VFD    1/1         (BKD)                                      SATTR   .1
                           4                      VFD    1/1         (CDS)                                      SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                           000000000 X            VFD    L.SLEN/,L.SJMP/=XEND=                                  SATTR   .1
      L     57                           NULL     SATTR  -1,PSN,EXU,(GEN,LBL)                                    IO       2355
      L     57  7777777600 X             NULL      VFD    L.SKEY/-1,L.SCPM/CPM=EXU                              SATTR   .1
                          1                       VFD    1/1         (GEN)                                      SATTR   .1
                          2                       VFD    1/1         (LBL)                                      SATTR   .1
                           000000000 X            VFD    L.SLEN/,L.SJMP/=XPSN                                   SATTR   .1
      L                                                                                                          IO       2356
          1364                                    LOC    *O                                                      IO       2357
          1364  00000000000000001333 +   TYPES    CON    LGR+LOGICAL                                             IO       2358
          1365  00000000000000001334 +            CON    LGR+INTEGER                                             IO       2359
          1366  00000000000000001335 +            CON    LGR+REAL                                                IO       2360
          1367  00000000000000001336 +            CON    LGR+DOUBLE                                              IO       2361
          1370  00000000000000001340 +            CON    LGR+COMPLEX                                             IO       2362
                                                  LIST   D                                                       IO       2363
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    54
        /JUMPTO  LETTER GROUP / JUMPTO  TABLES.                       LITERALS
  
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ANSI= 
             0 X                        STATIC
             0 X                        PWE 
             0 X                        ESY 
             0 X                        ALC 
             0 X                        E.IO2 
             0 X                        E.AT10
             0 X                        CHARMAP 
             0 X                        E.IOB2
             0 X                        E.IOB8
             0 X                        O=SUBL
             0 X                        E.IOB10 
             0 X                        E.IOB9
             0 X                        TA.NAM
             0 X                        E.IOF 
             0 X                        APLSTOD 
             0 X                        TP.DO 
             0 X                        E.DO8 
             0 X                        DIMUL 
             0 X                        WIN 
             0 X                        TRLINE
             0 X                        ASSIGN= 
             0 X                        TO= 
             0 X                        BLOCKD= 
             0 X                        CALL= 
             0 X                        CONTIN= 
             0 X                        END=
             0 X                        FUNCTI= 
             0 X                        LDSET=
             0 X                        OVERLA= 
             0 X                        NAMELI= 
             0 X                        ENTRY=
             0 X                        PAUSE=
             0 X                        PROGRA= 
             0 X                        RETURN= 
             0 X                        GOTO= 
             0 X                        STOP= 
             0 X                        SUBROU= 
             0 X                        DATA= 
             0 X                        COMMON= 
             0 X                        DIMENS= 
             0 X                        EQUIVA= 
             0 X                        EXTERN= 
             0 X                        LEVEL=
             0 X                        LOGICA= 
             0 X                        INTEGE= 
             0 X                        REAL= 
             0 X                        DOUBLE= 
             0 X                        PRECIS= 
             0 X                        COMPLE= 
             0 X                        TYPE= 
             0 X                        IMPLIC= 
             0 X                        FORMAT= 
             0 X                        IFS 
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    55
        /JUMPTO  LETTER GROUP / JUMPTO  TABLES.                       LITERALS
  
  
                                        CONTENT OF LITERALS BLOCK.
  
          1371  20251603100000000000    PUNCH 
          1372  17252420252400000000    OUTPUT
          1373  11162025240000000000    INPUT 
          1374  40404040404040404040    5555555555
          1375  60606060606060000000    ####### 
          1376  24012005000000000000    TAPE
  
          1377                                    END                                                            IO       2364
  
                             56600B CM  STORAGE USED             6142 STATEMENTS     1224 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            4.031 SECONDS        2076 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AAE           732   PROGRAM*       34/42 L   35/56     37/11     40/15     40/45     41/13     41/56     46/01
        AAE1          737   PROGRAM*       34/34     34/57 L   35/19
        AAE2          743   PROGRAM*       34/50     35/19 L
        AAE4          726   PROGRAM*       34/32 L   34/48
        AAE5          730   PROGRAM*       34/32     34/36 L
        ADT             0   EXTERNAL*       3/11 X   36/31     36/36     43/01
        ADW             0   EXTERNAL*       2/45 X   17/44     17/55     22/01     42/23     45/41
                                           17/38     17/50     18/08     25/40     42/52     48/24
        AFD             0   EXTERNAL*       3/18 X   53/18
        ALC             0   EXTERNAL*      22/27
        ANSI=           0   EXTERNAL*       6/14      9/44     11/49     12/53     26/21     41/12
                                            9/20     10/30     12/22     13/15     26/57
        APLSTOD         0   EXTERNAL*      42/28
        APLSTOR         0   EXTERNAL*       2/28 X   36/32     42/26     43/02
        APLUG           0   EXTERNAL*       2/28 X   36/26     42/54
        ARGCOMA         0   EXTERNAL*       2/28 X    7/22 S   29/54 S
        ARGMODE         0   EXTERNAL*       2/28 X    7/28 S   14/18 S   27/19 S   31/11 S
                                            6/43 S    7/39 S   23/56 S   28/01 S
        ASF.           52                   2/20 E   53/18 L
        ASSIGN          0                  49/14 L
        ASSIGN=         0   EXTERNAL*      49/14
        ASSUNIT       666   PROGRAM*       10/11 S   13/23 S   27/43 S   31/26     31/32 L
        A=BLWA        771   PROGRAM*        2/19 E   36/49 L
        A=BLWA1       776   PROGRAM*       36/51     37/06 L
        A=BLWA10     1021   PROGRAM*       37/42     38/04 L
        A=BLWA11     1026   PROGRAM*       38/10     38/14 L
        A=BLWA2      1001   PROGRAM*       37/04     37/11 L
        A=BLWA20     1041   PROGRAM*       38/13     38/54 L
        A=BLWA21     1044   PROGRAM*       38/55     39/02 L
        A=BLWA25     1046   PROGRAM*       39/01     39/08 L
        A=BLWA3      1005   PROGRAM*       37/14     37/18 L
        A=BLWA30     1060   PROGRAM*       37/43     37/47     38/41     39/04     39/31
                                           37/44     38/39     38/46     39/29     39/37 L
        A=BLWA4      1006   PROGRAM*       37/27 L   37/49     37/55
        A=BLWA5      1016   PROGRAM*       37/12     37/48 L
        A=BMOD        751   PROGRAM*        2/19 E   35/42 L
        A=BMOD1       757   PROGRAM*       35/49     35/52     35/54     35/56 L
        A=BMOD2       761   PROGRAM*       36/09 L
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        A=FMT        1105   PROGRAM*        2/19 E   41/08 L
        A=IOT         762   PROGRAM*       36/23 L   39/38
        A=STR        1226   PROGRAM*        2/19 E   45/57 L
        BACKSPA        40                  52/06 L
        BACKSP=        34   PROGRAM*        5/52 L    5/52 E   52/06
        BLOCKDA         2                  49/23 L
        BLOCKD=         0   EXTERNAL*      49/23
        BLWA         1060   PROGRAM*        2/22 E   39/36 L
        BUFA          105   PROGRAM*        6/16      8/06 L
        BUFERR        103   PROGRAM*        2/18 E    8/03 L
        BUFFER         41                  52/12 L
        BUFFER=        37   PROGRAM*        6/12 L    6/12 E   52/12
        BUFFWA          0   EXTERNAL*       2/28 X    7/24
        BUFLWA          0   EXTERNAL*       2/28 X    7/35
        BUFMOD          0   EXTERNAL*       2/28 X    6/33
        BUF1           46   PROGRAM*        6/25      6/30 L
        BUF2           50   PROGRAM*        6/30      6/33 L
        BUF3           67   PROGRAM*        7/16      7/22 L
        CAI             0   EXTERNAL*       3/15 X    7/54      8/03     26/02
        CALL            3                  49/27 L
        CALLIO          0   EXTERNAL*       2/29 X   22/30
        CALL=           0   EXTERNAL*      49/27
        CDI             0   EXTERNAL*       3/21 X   14/07
        CFC             0   EXTERNAL*       3/02 X   25/13
        CHAR            6   TSTEXT          8/38     32/25     49/45     50/22     51/04     51/39     52/18     53/03
                                           15/32     49/14     49/49     50/28     51/10     51/43     52/24     53/22
                                           15/40     49/19     49/53     50/34     51/14     51/48     52/30
                                           31/53     49/23     49/57     50/41     51/19     51/53     52/36
                                           32/13     49/27     50/04     50/46     51/24     52/01     52/42
                                           32/17     49/33     50/12     50/51     51/29     52/06     52/48
                                           32/21     49/38     50/18     50/56     51/34     52/12     52/54
        CHARMAP         0   EXTERNAL*      28/20     32/07
        CIA             0   EXTERNAL*       3/08 X   47/12
        CML          1252   PROGRAM*        2/22 E   47/41 L
        CMLT1        1277   PROGRAM*       48/04 S   48/25     48/37 L
        CMLT2        1302   PROGRAM*       48/12 S   48/22     48/40 L
        CML1         1257   PROGRAM*       47/52 L   48/02
        CML2         1263   PROGRAM*       47/48     47/52     47/57     48/04 L
        CNF             0   EXTERNAL*       3/11 X   53/34
        CNTA         1103   PROGRAM*       40/55 L
        COMMON         22                  50/51 L
        COMMON=         0   EXTERNAL*      50/51
        COMPLEX        34                  51/43 L   53/56
        COMPLE=         0   EXTERNAL*      51/43
        CONTINU         4                  49/33 L
        CONTIN=         0   EXTERNAL*      49/33
        CO.EDT          0   EXTERNAL*       2/25 X   16/32
        CO.SNAP         0   EXTERNAL*       2/25 X
        CPM=ASF         0   EXTERNAL*       2/48 X   53/18
        CPM=DAT         0   EXTERNAL*       2/49 X   50/46
        CPM=DEC         0   EXTERNAL*       2/49 X   50/51     50/56     51/04     51/10     51/14
        CPM=END         0   EXTERNAL*       2/48 X   49/38     53/39
        CPM=EXU         0   EXTERNAL*       2/48 X   49/33     50/28     52/12     52/30     52/48     53/22     53/45
                                           49/14     50/12     50/34     52/18     52/36     52/54     53/29
                                           49/27     50/22     52/06     52/24     52/42     53/03     53/34
        CPM=FMT         0   EXTERNAL*       2/49 X   52/01
        CPM=IMP         0   EXTERNAL*       2/49 X   51/53
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        CPM=NTR         0   EXTERNAL*       2/48 X   50/04
        CPM=OK          0   EXTERNAL*       2/48 X   49/19     49/57     51/39
        CPM=TPE         0   EXTERNAL*       2/49 X   51/48
        CPM=TYP         0   EXTERNAL*       2/49 X   51/19     51/24     51/29     51/34     51/43
        CPM=1ST         0   EXTERNAL*       2/48 X   49/23     49/45     49/49     49/53     50/18     50/41
        CRJ             0   EXTERNAL*       3/08 X   47/24
        CR.INP         22   TSTEXT          6/19      8/20     11/40
        CR.OUT         27   TSTEXT          6/27      8/57      9/27     12/13
        CR.REF         55   TSTEXT         11/01
        CURST           0   EXTERNAL*       3/11 X   22/35 S
        CVT             0   EXTERNAL*       3/14 X   45/04
        C=BFWA       1063   PROGRAM*        2/19 E   39/53 L
        C=BFWA1      1070   PROGRAM*       39/55     40/10 L
        C=BFWA2      1073   PROGRAM*       40/08     40/15 L
        C=BFWA3      1076   PROGRAM*       40/17     40/27 L
        C=CNT        1077   PROGRAM*        2/20 E   40/38 L
        C=ERR           0   EXTERNAL*       3/11 X   41/34     42/14     43/34
        C=FMT        1105   PROGRAM*        2/20 E   41/09 L
        C=IOL        1116   PROGRAM*        2/19 E   41/50 L
        C=IOT         762   PROGRAM*       36/22 L   40/28     40/57     41/31     46/30
        C.CON      340000   TSTEXT         37/09     40/13     43/09
        C.DIF       20000   TSTEXT         46/31
        C.VAR      200000   TSTEXT         16/07     17/02     38/04     38/05     43/10     46/31
        C.VDIM     300000   TSTEXT         45/16
        DATA           21                  50/46 L
        DATA=           0   EXTERNAL*      50/46
        DECODE         42                  52/18 L
        DECODE=       110   PROGRAM*        8/17 L    8/17 E   52/18
        DIMENSI        23                  50/56 L
        DIMENS=         0   EXTERNAL*      50/56
        DIMUL           0   EXTERNAL*      45/01 S   45/07 S
        DOB           257   PROGRAM*       13/42 L   24/43
        DOBA          274   PROGRAM*       14/02 S   14/11     14/29 L
        DOC           275   PROGRAM*       14/46 L   24/42
        DOC2          277   PROGRAM*       14/52 L   14/56
        DOC4          302   PROGRAM*       14/54     15/01 L
        DOC6          304   PROGRAM*       15/03     15/06 L
        DOUBLE         32                  51/34 L   53/55
        DOUBLE=         0   EXTERNAL*      51/34
        DO.            53                   2/20 E   53/22 L
        EIS.PNX         0   EXTERNAL*       3/15 X   48/49
        EMT             0   EXTERNAL*       2/56 X   25/56
        ENCODE         44                  52/30 L
        ENCODE=       120   PROGRAM*        8/54 L    8/54 E   52/30
        END             5                  49/38 L
        ENDFILE        43                  52/24 L
        ENDFIL=       113   PROGRAM*        8/32 L    8/32 E   52/24
        END=            0   EXTERNAL*      49/38     53/39
        ENTRY          12                  50/04 L
        ENTRY=          0   EXTERNAL*      50/04
        EOS            56                   2/21 E   53/39 L
        EQUIVAL        24                  51/04 L
        EQUIVA=         0   EXTERNAL*      51/04
        ERT             0   EXTERNAL*       2/45 X   16/19     17/04
        ESC             0   EXTERNAL*       2/45 X   34/43
        ESY             0   EXTERNAL*      16/55
        EXTERNA        25                  51/10 L
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        EXTERN=         0   EXTERNAL*      51/10
        E.ANS           0   EXTERNAL*       2/34 X    6/14      9/20     10/30     11/49     12/22     26/57
        E.AT10          0   EXTERNAL*      28/23
        E.DO8           0   EXTERNAL*      43/56
        E.IO            0   EXTERNAL*       2/34 X   32/11
        E.IOB1          0   EXTERNAL*       2/34 X    6/29
        E.IOB10         0   EXTERNAL*      37/46     38/45     39/35
        E.IOB2          0   EXTERNAL*      35/46     35/48
        E.IOB3          0   EXTERNAL*       2/34 X    6/32      7/18
        E.IOB4          0   EXTERNAL*       2/34 X    7/02      7/33
        E.IOB5          0   EXTERNAL*       2/34 X    7/15      7/44
        E.IOB7          0   EXTERNAL*       2/34 X   37/05     37/06     37/10     40/09     40/10     40/14
        E.IOB8          0   EXTERNAL*      35/55
        E.IOB9          0   EXTERNAL*      38/12     38/15     38/37     38/57     39/03     39/09     39/11
        E.IOD1          0   EXTERNAL*       2/35 X   19/37
        E.IOD2          0   EXTERNAL*       2/39 X   20/30
        E.IOD3          0   EXTERNAL*       2/35 X   20/42
        E.IOD4          0   EXTERNAL*       2/42 X   21/13
        E.IOF           0   EXTERNAL*      41/12
        E.IOF1          0   EXTERNAL*       2/35 X   41/33
        E.IOL1          0   EXTERNAL*       2/40 X   42/13     42/13
        E.IOL2          0   EXTERNAL*       2/35 X   43/33     43/33
        E.IOL4          0   EXTERNAL*       2/40 X
        E.IOL5          0   EXTERNAL*       2/40 X   25/37     25/38
        E.ION           0   EXTERNAL*       2/35 X   26/36
        E.ION1          0   EXTERNAL*       2/39 X   26/21
        E.IOS1          0   EXTERNAL*       2/35 X   27/14
        E.IOS10         0   EXTERNAL*       2/41 X   27/41
        E.IOS2          0   EXTERNAL*       2/35 X   27/32
        E.IOS3          0   EXTERNAL*       2/36 X   27/46
        E.IOS4          0   EXTERNAL*       2/36 X   27/49
        E.IOS5          0   EXTERNAL*       2/36 X   28/09
        E.IOS6          0   EXTERNAL*       2/41 X   27/11     27/31     27/48
        E.IOS7          0   EXTERNAL*       2/36 X   28/05     46/16     46/32
        E.IOS9          0   EXTERNAL*       2/41 X   27/25     27/26     40/43     40/44
        E.IO1           0   EXTERNAL*       2/36 X   11/08     32/01
        E.IO10          0   EXTERNAL*       2/36 X
        E.IO11          0   EXTERNAL*       2/36 X   33/11
        E.IO12          0   EXTERNAL*       2/37 X   33/18
        E.IO13          0   EXTERNAL*       2/37 X   13/08
        E.IO14          0   EXTERNAL*       2/37 X   26/10
        E.IO19          0   EXTERNAL*       2/37 X
        E.IO2           0   EXTERNAL*      23/38
        E.IO20          0   EXTERNAL*       2/38 X   13/27
        E.IO21          0   EXTERNAL*       2/38 X
        E.IO25          0   EXTERNAL*       2/40 X   12/42
        E.IO26          0   EXTERNAL*       2/40 X   12/53
        E.IO27          0   EXTERNAL*       2/40 X    9/55      9/57     23/37
        E.IO28          0   EXTERNAL*       2/40 X    9/44     13/15
        E.IO29          0   EXTERNAL*       2/41 X
        E.IO3           0   EXTERNAL*       2/38 X   32/15
        E.IO6           0   EXTERNAL*       2/38 X   11/11     11/11
        E.IO6U          0   EXTERNAL*       2/35 X
        E.IO62          0   EXTERNAL*       2/41 X
        E.IO7           0   EXTERNAL*       2/38 X   30/39     30/54
        E.IO8           0   EXTERNAL*       2/38 X   13/04
        E.IO9           0   EXTERNAL*       2/39 X   10/02     10/17     13/06
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        E.UE            0   EXTERNAL*       2/39 X   32/51
        E.UE1           0   EXTERNAL*       2/39 X   32/52
        E.UE2           0   EXTERNAL*       2/39 X   16/45
        FFN           310   PROGRAM*        2/18 E   15/27 L   16/23
        FFNA         1375   PROGRAM*       15/34     15/44 L
        FFT           325   PROGRAM*        9/46     10/07     16/17     16/21 L   31/55
        FFT2          332   PROGRAM*       16/32 L   16/46
        FFT3          340   PROGRAM*       16/06     16/45 L
        FFT4          342   PROGRAM*       16/33     16/52 L
        FFT45         345   PROGRAM*       16/53     16/56 L
        FFT5          316   PROGRAM*       16/05 L   16/28
        FFT9          320   PROGRAM*       16/08 L   16/43     17/15
        FILL.           0   EXTERNAL*       2/39 X   16/25 S   28/22 S   32/10 S   32/20 S
        FMTA         1107   PROGRAM*       41/11     41/13 L
        FMT1         1114   PROGRAM*       41/29     41/33 L
        FMT1A        1111   PROGRAM*       41/24 L
        FMT1B        1112   PROGRAM*       41/24     41/27 L
        FORMAT         37                   2/20 E   52/01 L
        FORMAT=         0   EXTERNAL*      52/01
        FUNCTIO         6                   2/21 E   49/45 L
        FUNCTI=         0   EXTERNAL*      49/45
        FWABIAS      1061   PROGRAM*       37/39 S   38/38     38/40     39/28     39/30     39/40 L   39/41
        GOTO           16                  50/28 L
        GOTO=           0   EXTERNAL*      50/28
        ICONL           0   EXTERNAL*       2/29 X    4/18
        IFS             0   EXTERNAL*      53/29
        IF.            54                   2/20 E   53/29 L
        ILI           360   PROGRAM*       17/35 L   21/54     41/53
        ILI.1         375   PROGRAM*       17/43     17/49     18/01 L
        IMPLICI        36                  51/53 L
        IMPLIC=         0   EXTERNAL*      51/53
        INTEGER        30                  51/24 L   53/53
        INTEGE=         0   EXTERNAL*      51/24
        IOAPT           0   PROGRAM*        4/02 L   22/02     22/39     23/47 S   30/01 S   35/21
        IOARGM          0   EXTERNAL*       2/29 X   29/33
        IOARGO          1   PROGRAM*        4/04 L
        IOARGT          3   PROGRAM*        4/07 L   14/10     23/51     23/52     29/44     29/44 S   29/46
        IOBFWA         10   PROGRAM*        4/32 D   37/35     40/27 S
        IOBLWA         11   PROGRAM*        4/35 D   37/27 S
        IOBMOD          7   PROGRAM*        4/28 D   36/09 S
        IOCNT           6   PROGRAM*        4/26 D   40/55 S
        IOD           404   PROGRAM*       19/54 L   24/06
        IODIR           2   PROGRAM*        2/22 E   12/49     23/41     26/22     29/38 S   29/43 S   43/13     46/17
                                            4/06 L   18/01     25/35     28/25     29/43     42/08     43/37
        IODOLEN        12   PROGRAM*        4/20 L   26/04     29/55 S
        IODX          503   PROGRAM*       19/52     24/07 L
        IOD2          406   PROGRAM*       20/07 L   20/14     20/31     21/10     21/22
        IOD4          417   PROGRAM*       20/13     20/36 L
        IOD5          425   PROGRAM*       20/49     21/03 L
        IOD50         431   PROGRAM*       21/05     21/07     21/09     21/12 L
        IOD6          423   PROGRAM*       20/12     20/57 L
        IOD7          432   PROGRAM*       21/01     21/15 L
        IOD8          402   PROGRAM*       19/37 L   20/10
        IOENDT         13   PROGRAM*        4/23 L   18/03     23/45 S   25/52     30/02 S
        IOFIT           6   PROGRAM*        4/25 D   29/43     29/43 S   29/44     29/44 S
        IOFMT           7   PROGRAM*        4/29 D   30/28 S   41/27 S
        IOJ           434   PROGRAM*        7/48     11/21     13/43     14/48     21/48 L   25/46     48/21
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        IOJ1          437   PROGRAM*       21/51     21/53 L
        IOJ2          441   PROGRAM*       21/53     22/01 L
        IOJ4          451   PROGRAM*       22/15     22/21 L
        IOLEN           5   PROGRAM*        2/19 E   21/49     29/48     29/51 S   41/55 S   42/34
                                            4/09 L   25/41     29/51     41/51     42/10     43/30
        IOLSCR       1225   PROGRAM*       44/56 S   45/15     45/43 L
        IOL1         1120   PROGRAM*       41/52     41/54 L
        IOL2         1132   PROGRAM*       42/23 L
        IOL25        1135   PROGRAM*       42/25     42/28 L
        IOL3         1127   PROGRAM*       42/09     42/16 L
        IOL3.5       1131   PROGRAM*       42/17     42/20 L
        IOL4         1136   PROGRAM*       41/57     42/33 L
        IOL43        1141   PROGRAM*       42/52 L
        IOL45        1147   PROGRAM*       42/33     43/08 L
        IOL46        1155   PROGRAM*       43/18     43/22 L
        IOL46.2      1157   PROGRAM*       43/24     43/26 L
        IOL47        1164   PROGRAM*       43/11     43/36 L
        IOL47A       1175   PROGRAM*       43/39     43/50     44/01 L
        IOL470       1171   PROGRAM*       43/50 L   43/55
        IOL49A       1175   PROGRAM*       44/29 L
        IOL5         1214   PROGRAM*       43/29     44/44     45/20 L
        IOL50        1206   PROGRAM*       45/02 L   45/13
        IOL51        1212   PROGRAM*       45/10     45/15 L
        IOL55        1216   PROGRAM*       45/22     45/26 L
        IOL6         1222   PROGRAM*       44/32     44/34     45/18     45/24     45/40 L
        IONAM           0   EXTERNAL*       4/18 D    6/44 S   11/20 S   22/12     24/03 S   26/30 S   31/13 S   31/17
        IONGRP          7   PROGRAM*        4/30 D
        IOREF           4   PROGRAM*        4/08 L    9/28 S   12/14 S   16/56     27/15     29/48
                                            6/40 S   11/02 S   16/18     23/52     27/54     30/33
                                            7/25     11/41 S   16/34     27/01 S   29/46     31/07
        IOSTAT         15   PROGRAM*        4/39 L   12/31 S   12/35
        IOSTR          10   PROGRAM*        4/33 D   46/15 S
        IOX          1303   PROGRAM*       47/25     48/48 L
        IO1ST           6   PROGRAM*        4/12 L    4/25      4/26     17/36
        IO2ND           7   PROGRAM*        4/13 L    4/28      4/29      4/30     17/40     29/51     29/51 S   29/52
        IO3RD          10   PROGRAM*        4/14 L    4/32      4/33     17/46     29/52     29/53
        IO4TH          11   PROGRAM*        4/15 L    4/35     17/51     29/53
        IO=BFWA         2                   3/47 D   40/16
        IO=BLEN         4                   3/49 D
        IO=BLWA         3                   3/48 D   39/37
        IO=BMOD         1                   3/46 D   36/10
        IO=CM           7                   3/57 D   25/39
        IO=CNT          0                   3/55 D   40/56
        IO=FIT          0                   3/44 D
        IO=FMT          1                   3/53 D   41/30
        IO=NGRP         1                   3/51 D
        IO=STR          2                   3/56 D   46/29
        IO.DOB         70   TSTEXT         20/19     20/19
        IO.DOC         67   TSTEXT         14/09     24/36     24/41
        ISN             0   EXTERNAL*       3/05 X   30/46
        LDSET           7                  49/49 L
        LDSET=          0   EXTERNAL*      49/49
        LEVEL          26                  51/14 L
        LEVEL=          0   EXTERNAL*      51/14
        LGR          1304   PROGRAM*        2/18 E   49/10 L   53/52     53/53     53/54     53/55     53/56
        LG.LEN         52                   2/18 E   53/09 L
        LOGICAL        27                  51/19 L   53/52
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        LOGICA=         0   EXTERNAL*      51/19
        LST           464   PROGRAM*        2/18 E   10/04     10/16     12/50     12/54     23/28 L
                                           10/01     10/15     10/18     12/52     13/28     23/40
        LST1          472   PROGRAM*       23/30     23/35     23/41 L
        LST12         470   PROGRAM*       23/36     23/38 L
        LST4          512   PROGRAM*       24/38     24/54 L
        LST4A         517   PROGRAM*       25/07     25/10     25/12 L
        LST4B         522   PROGRAM*       24/55     25/11     25/17 L
        LST5          532   PROGRAM*        2/21 E   25/36     25/45 L   26/31     26/35
        LST7          537   PROGRAM*       25/53     25/57 L
        LST.GO        504   PROGRAM*       14/27     15/08     15/11     15/13     24/34 L   24/44     25/16     25/19
        LST.N         543   PROGRAM*       24/04     26/21 L
        LST.N1        552   PROGRAM*       26/33     26/36 L
        LST.S         476   PROGRAM*       23/42     23/50 L   28/27
        LST.X         524   PROGRAM*       24/05     24/37     25/32 L
        LWABIAS      1062   PROGRAM*       37/34 S   37/39 S   38/40     39/30     39/41 D
        L.ABIAS        22   TSTEXT         35/29     41/25     46/13
        L.ASIZ         15   TSTEXT         45/21
        L.ATAG         22   TSTEXT         30/25     35/29     41/25     46/13
        L.CDPC         52   TSTEXT         28/19     32/08
        L.DIMLG        30   TSTEXT         44/39
        L.DOE           6   TSTEXT         43/53
        L.MODE          3   TSTEXT         34/44     35/43     40/39
        L.MSHORT        6   TSTEXT         43/27
        L.NDIM          6   TSTEXT         44/51
        L.PNT          15   TSTEXT         44/36
        L.PWF          15   TSTEXT         46/20
        L.SCPM          5   TSTEXT         49/14     49/45     50/18     50/51     51/24     51/53     52/30     53/18
                                           49/19     49/49     50/22     50/56     51/29     52/01     52/36     53/22
                                           49/23     49/53     50/28     51/04     51/34     52/06     52/42     53/29
                                           49/27     49/57     50/34     51/10     51/39     52/12     52/48     53/34
                                           49/33     50/04     50/41     51/14     51/43     52/18     52/54     53/39
                                           49/38     50/12     50/46     51/19     51/48     52/24     53/03     53/45
        L.SJMP         22   TSTEXT         49/14     49/45     50/18     50/51     51/24     51/53     52/30     53/18
                                           49/19     49/49     50/22     50/56     51/29     52/01     52/36     53/22
                                           49/23     49/53     50/28     51/04     51/34     52/06     52/42     53/29
                                           49/27     49/57     50/34     51/10     51/39     52/12     52/48     53/34
                                           49/33     50/04     50/41     51/14     51/43     52/18     52/54     53/39
                                           49/38     50/12     50/46     51/19     51/48     52/24     53/03     53/45
        L.SKEY         30   TSTEXT         49/14     49/45     50/18     50/51     51/24     51/53     52/30     53/18
                                           49/19     49/49     50/22     50/56     51/29     52/01     52/36     53/22
                                           49/23     49/53     50/28     51/04     51/34     52/06     52/42     53/29
                                           49/27     49/57     50/34     51/10     51/39     52/12     52/48     53/34
                                           49/33     50/04     50/41     51/14     51/43     52/18     52/54     53/39
                                           49/38     50/12     50/46     51/19     51/48     52/24     53/03     53/45
        L.SLEN          7   TSTEXT         49/14     49/45     50/18     50/51     51/24     51/53     52/30     53/18
                                           49/19     49/49     50/22     50/56     51/29     52/01     52/36     53/22
                                           49/23     49/53     50/28     51/04     51/34     52/06     52/42     53/29
                                           49/27     49/57     50/34     51/10     51/39     52/12     52/48     53/34
                                           49/33     50/04     50/41     51/14     51/43     52/18     52/54     53/39
                                           49/38     50/12     50/46     51/19     51/48     52/24     53/03     53/45
        L.STL           7                   5/22 E    5/38 D
        L.TAG          22   TSTEXT         37/28     46/19     47/44
        L.TURP          3   TSTEXT         22/27     22/31     48/48
        L.2BIAS        22   TSTEXT         34/37     43/12
        L.2TAG         22   TSTEXT         34/37
        MOD             0   EXTERNAL*       2/29 X   16/24
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        MSK         10000                   5/25 D    5/26 D    5/28 D    5/30 D    5/32 D    5/34 D    5/36 D
                                            5/25      5/27      5/29      5/31      5/33      5/35
                                            5/25 D    5/27 D    5/29 D    5/31 D    5/33 D    5/35 D
                                            5/26      5/28      5/30      5/32      5/34      5/36
        MXP             0   EXTERNAL*       3/14 X   13/44     15/06     22/25
        M.ADDR       2000   TSTEXT         42/53
        M.AVAR     200000   TSTEXT         35/57     37/18     40/18     41/14     46/02
                                           35/57     40/18     40/46     41/14     46/02
        M.CHAR          6   TSTEXT         43/20
        M.DBL           4   TSTEXT         37/13     37/48
        M.DEF          10   TSTEXT         43/41     46/25
        M.ENT          40   TSTEXT         32/48
        M.EXT         100   TSTEXT         32/48
        M.INT           2   TSTEXT         32/44     35/45     40/41     42/18     43/25
        M.NLST       1000   TSTEXT         32/48
        M.NVAR      20000   TSTEXT         16/54     32/48
        M.SNFMT       400   TSTEXT         30/37     30/37
        M.SNREF         1   TSTEXT         30/37     30/37
        M.STBAK       400                   5/33 E    5/33 D    5/55
        M.STCMM      4000                   5/36 E    5/36 D
        M.STCRM         1                   5/25 E    5/25 D
        M.STENF      1000                   5/34 E    5/34 D    8/40
        M.STIBI        20                   5/29 E    5/29 D
        M.STIBU       100                   5/31 E    5/31 D    6/24
        M.STICO         4                   5/27 E    5/27 D    8/21     11/42
        M.STOBI        40                   5/30 E    5/30 D
        M.STOBU       200                   5/32 E    5/32 D    6/28
        M.STOCO        10                   5/28 E    5/28 D    9/01      9/29     12/15
        M.STREW      2000                   5/35 E    5/35 D   10/54
        M.STRP2         2                   5/26 E    5/26 D
        M.SYSEXT    20100   TSTEXT         16/38     16/38     22/23
        M.UNIV          0   TSTEXT         43/22
        M.2PRO      10000   TSTEXT         35/25
        NAMELIS        11                  49/57 L
        NAMELI=         0   EXTERNAL*      49/57
        NAP             0   EXTERNAL*       2/45 X   22/11
        NCM             0   EXTERNAL*       2/45 X   45/31
        NCS             0   EXTERNAL*       2/45 X   17/10
        NDC           553   PROGRAM*        8/22      9/02     26/57 L
        NDCE1         561   PROGRAM*       27/12     27/15 L
        NDCE2         566   PROGRAM*       27/23     27/27 L
        NDCE3         573   PROGRAM*       27/40     27/42 L
        NDCE5         616   PROGRAM*       28/12     28/14     28/17     28/25 L
        NDC=CNT         0   EXTERNAL*       2/29 X   27/16
        NDC=STR         0   EXTERNAL*       2/29 X   27/55
        NULL           57                   2/20 E   53/45 L
        N.STL          14                   5/22 E    5/39 D
        OR.DOCI         3   TSTEXT         43/49
        OR.OPR          0   TSTEXT         22/36
        OR.1OP          1   TSTEXT         22/32     22/36     35/32     47/13
        OR.2OP          2   TSTEXT         22/31     22/32     47/20
        OVERLAY        10                  49/53 L
        OVERLA=         0   EXTERNAL*      49/53
        O=BSS           0   EXTERNAL*       3/15 X   25/55
        O=IOJ        1242   PROGRAM*        2/19 E   47/11 L
        O=SUBL          0   EXTERNAL*      36/57     40/04
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        O.COMMA        13   TSTEXT          7/01      9/54     13/02     20/29     24/09     25/34     27/47     31/22
                                            7/32     10/14     15/10     23/34     25/08     27/30     27/47
        O.CONS          2   TSTEXT          8/37     21/06     27/21     27/39     30/44     32/05
        O.LP           10   TSTEXT          6/22     20/09     20/19     27/10     28/16     33/13 F
                                            7/14     20/19     21/08     28/13     33/10
        O.PERIOD       37   TSTEXT         27/24
        O.RP           11   TSTEXT          7/13      7/43     28/08     33/13 F
        O.SLP          32   TSTEXT          7/03      7/36     19/55     27/53     31/12
        O.STAR          6   TSTEXT          9/41     13/13
        O.VAR           3   TSTEXT          8/06      8/37     20/57     28/04     28/11     32/03
                                            8/07      8/39     21/04     28/11     30/53
        O.(            10   TSTEXT          9/32     11/46     12/20     20/11     24/54
        O.)            11   TSTEXT         12/39     13/26     14/53     20/11     25/09     26/32     31/24
        O.=            12   TSTEXT         13/49
        PAR             0   EXTERNAL*       3/11 X    7/05      7/29      7/40     25/17     27/27     28/06     31/16
        PAREXIT         0   EXTERNAL*       3/11 X   36/23     36/30     36/37     46/33
        PAUSE          13                  50/12 L
        PAUSE=          0   EXTERNAL*      50/12
        PDT             0   EXTERNAL*       3/21 X   15/04
        PFD           620   PROGRAM*        6/53      9/47     10/08     11/15     12/34     27/05     29/32 L
        PFD2          623   PROGRAM*       29/36     29/38 L
        PNC1          125   PROGRAM*        9/27 L   10/33
        PNC1A         131   PROGRAM*        9/37 L   11/51     12/24
        PNC1B         144   PROGRAM*        9/56     10/02 L
        PNC2          146   PROGRAM*        9/43     10/06 L
        POPX            0   EXTERNAL*       3/11 X   45/42
        POP.ST1         0   EXTERNAL*       3/11 X   42/27     42/29     43/04
        PRECISI        33                   2/20 E   51/39 L
        PRECIS=         0   EXTERNAL*      51/39
        PRINT          46                  52/42 L
        PRINT=        157   PROGRAM*       10/28 L   10/28 E   52/42
        PROGRAM        14                  50/18 L
        PROGRA=         0   EXTERNAL*      50/18
        PSN             0   EXTERNAL*       3/05 X    7/55      8/04     11/25     26/08     53/45
        PSO             0   EXTERNAL*       3/14 X   36/29
        PTN           637   PROGRAM*       10/12     13/24     27/44     30/31 L
        PTN10         665   PROGRAM*       31/25     31/27     31/29 L
        PTN2          647   PROGRAM*       30/45     30/52 L
        PTN3          651   PROGRAM*        2/21 E   30/56 L
        PTN8          634   PROGRAM*       30/20 L   30/57
        PTN9          635   PROGRAM*       30/25 L   30/47
        PTN=FMT         0   EXTERNAL*       2/29 X   31/08
        PUNCH          45                  52/36 L
        PUNCH=        123   PROGRAM*        9/18 L    9/18 E   52/36
        PWE             0   EXTERNAL*      10/02     11/11     13/06     23/38     41/33     43/33
                                           10/17     13/04     16/45     28/23     42/13     43/56
        P.             73   TSTEXT         16/28     35/48     38/12     38/57     39/11     41/11     44/31     47/52
                                           30/57     36/51     38/15     39/03     39/55     42/25     44/41
                                           34/46     38/10     38/55     39/09     40/44     44/29     47/48
        P.ABIAS        30   TSTEXT         37/16     42/20     42/37     43/26
        P.ADDR         12   TSTEXT         34/34
        P.AFIT         21   TSTEXT         17/12     32/35
        P.AMR          60   TSTEXT          6/41      7/26     27/17     27/56     29/42     31/09
        P.ARE           7   TSTEXT         34/32     34/34     34/36     44/31
        P.ARY          10   TSTEXT         34/49     35/19     44/29     44/33
        P.ATAG         52   TSTEXT         16/08     17/03     17/14     18/05     32/46     35/06
        P.AVAR         20   TSTEXT         16/14     32/41
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        P.BLOCK        30   TSTEXT         38/29     38/34
        P.COMM         13   TSTEXT         38/10     38/12     38/15
        P.DIMLG        36   TSTEXT         44/41
        P.EQUIV        12   TSTEXT         39/09     39/11
        P.FP            4   TSTEXT         38/55     38/57     39/03
        P.INTR         11   TSTEXT         34/32     34/49     35/49     37/06     40/10
                                           34/46     35/48     36/51     39/55     40/44
        P.LCF           6   TSTEXT         35/19
        P.LI12         60   TSTEXT         47/18
        P.LONG          2   TSTEXT         35/03     42/25
        P.NDIM         66   TSTEXT         44/50
        P.NLST         11   TSTEXT         30/57
        P.PNT          30   TSTEXT         44/33
        P.PPRO         13   TSTEXT         16/28
        P.SATTR        31   TSTEXT         49/14     49/45     50/18     50/51     51/24     51/53     52/30     53/18
                                           49/19     49/49     50/22     50/56     51/29     52/01     52/36     53/22
                                           49/23     49/53     50/28     51/04     51/34     52/06     52/42     53/29
                                           49/27     49/57     50/34     51/10     51/39     52/12     52/48     53/34
                                           49/33     50/04     50/41     51/14     51/43     52/18     52/54     53/39
                                           49/38     50/12     50/46     51/19     51/48     52/24     53/03     53/45
        P.SBKD         31   TSTEXT         49/38     50/51     51/04     51/19     51/29     51/43     51/53
                                           50/46     50/56     51/14     51/24     51/34     51/48     53/39
        P.SCDS         32   TSTEXT         49/27     50/04     50/34     52/12     52/24     52/36     52/48     53/03
                                           49/38     50/12     52/06     52/18     52/30     52/42     52/54     53/39
        P.SDON         36   TSTEXT         50/22     50/28     50/34     53/22
        P.SGEN         33   TSTEXT         49/14     49/38     50/22     52/06     52/24     52/42     53/03     53/34
                                           49/27     50/04     50/28     52/12     52/30     52/48     53/22     53/39
                                           49/33     50/12     50/34     52/18     52/36     52/54     53/29     53/45
        P.SHC          52   TSTEXT         35/51
        P.SHORT        13   TSTEXT         35/49     37/06     40/10
        P.SLBL         34   TSTEXT         49/14     50/12     50/34     52/12     52/30     52/48     53/22     53/45
                                           49/27     50/22     52/01     52/18     52/36     52/54     53/29
                                           49/33     50/28     52/06     52/24     52/42     53/03     53/34
        P.SNIF         35   TSTEXT         49/19     49/49     50/18     50/56     51/19     51/39     52/01
                                           49/23     49/53     50/41     51/04     51/24     51/43     53/18
                                           49/38     49/57     50/46     51/10     51/29     51/48     53/22
                                           49/45     50/04     50/51     51/14     51/34     51/53
        P.TAG          52   TSTEXT         16/42     36/53     37/30     39/57     43/54
                                           32/43     37/01     37/40     40/05
        P.TGB          67   TSTEXT         37/08     40/12
        P.VDIM         35   TSTEXT         44/50
        P.2ARY         16   TSTEXT         41/11
        P.2BIAS        30   TSTEXT         36/24     37/32     37/37     37/52     42/39     43/14     43/27
        P.2EQUIV       15   TSTEXT         47/47     47/48     47/52
        P.2TAG         52   TSTEXT         34/36     35/24     35/26
        READ           50                  52/54 L
        READ=         202   PROGRAM*       11/38 L   11/38 E   52/54
        REAL           31                  51/29 L   53/54
        REAL=           0   EXTERNAL*      51/29
        REFLAG        357   PROGRAM*       16/16     16/27 S   16/40 S   17/06 S   17/18 L
        REFNUM          0   EXTERNAL*       2/30 X   30/38 S
        REFVAR          0   EXTERNAL*       2/29 X   16/36 S   24/01 S
        REP.           55                   2/20 E   53/34 L
        RETURN         15                  50/22 L
        RETURN=         0   EXTERNAL*      50/22
        REWIND         47                  52/48 L
        REWIND=       163   PROGRAM*       10/51 L   10/51 E   52/48
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        REW2          164   PROGRAM*        5/56      8/41      8/44     11/01 L
        REW3          172   PROGRAM*       11/09     11/13 L
        RTC           671   PROGRAM*        6/51     11/14     12/33     31/57 L
        RTC1          677   PROGRAM*       32/06     32/12 L
        RTC2          705   PROGRAM*       32/04     32/29 L
        RTC3          712   PROGRAM*       32/39     32/43 L
        RTC4          716   PROGRAM*       32/50     32/52 L
        RTC8          667   PROGRAM*       31/52 L   32/19     32/24     32/27
        R.W            14   PROGRAM*        2/22 E    9/42 S   12/29 S   13/19 S   23/33     30/36 S   43/15
                                            4/36 L    9/52 S   12/41     16/12     25/33     32/36
        SAVNAM        356   PROGRAM*       17/01 S   17/07     17/17 L   18/06 S   18/09
        SA=BKS3         0   EXTERNAL*       3/15 X   47/14
        SCR             0   EXTERNAL*       3/24 X   25/12 S   25/14     45/28 S
        SDO             0   EXTERNAL*       3/21 X   53/22
        SKS           724   PROGRAM*       21/02     33/20 L
        SKS2          717   PROGRAM*       33/07 L   33/12
        SKS4          720   PROGRAM*       33/09 L   33/15     33/17     33/22
        SOPR            0   EXTERNAL*       3/11 X   36/28 S   36/35 S   42/57 S
        SSY             0   EXTERNAL*       2/45 X   16/05     16/52
        STATIC          0   EXTERNAL*       6/35      9/37     11/03     12/44     12/56     27/02
        STLTAB         16   PROGRAM*        5/22 E    5/23 L
        STOP           17                  50/34 L
        STOP=           0   EXTERNAL*      50/34
        STRA         1230   PROGRAM*       46/11 L
        STRB         1232   PROGRAM*       46/12     46/15 L
        STRC         1237   PROGRAM*       46/18     46/29 L
        SUBROUT        20                  50/41 L
        SUBROU=         0   EXTERNAL*      50/41
        S=BIN           0   EXTERNAL*       2/52 X   12/36     13/10
        S=COD           0   EXTERNAL*       2/52 X   10/09     10/09     13/12
        S=CONT          0   EXTERNAL*       2/52 X   22/17     22/17
        S=FREE          0   EXTERNAL*       2/52 X    9/48      9/48     13/16     13/16
        S=INP           0   EXTERNAL*       2/52 X    8/19     11/45
        S=NLST    7777774   TSTEXT         30/20
        S=OUT           0   EXTERNAL*       2/52 X    8/56      9/30     12/17     12/17
        S=STR           0   EXTERNAL*       2/52 X   28/26
        S.BKSP          0   EXTERNAL*       2/53 X    5/54
        S.BUFIO         0   EXTERNAL*       2/52 X    6/34
        S.ENDFI         0   EXTERNAL*       2/53 X    8/35
        S.IOCAL         0   EXTERNAL*       2/53 X    6/39     11/16     22/23     26/25
        S.NLST          0   EXTERNAL*       2/53 X   26/27
        S.REWIN         0   EXTERNAL*       2/53 X   10/53
        S.1            14                   5/25 D    5/26 D    5/28 D    5/30 D    5/32 D    5/34 D    5/36 D
                                            5/25      5/27      5/29      5/31      5/33      5/35      5/38
                                            5/25 D    5/27 D    5/29 D    5/31 D    5/33 D    5/35 D    5/39
                                            5/26      5/28      5/30      5/32      5/34      5/36
        TA.NAM          0   EXTERNAL*      38/16     39/12
        TEST            0   TSTEXT         19/42 F   50/10 F
        TG.APL          0   EXTERNAL*       2/30 X    7/50     11/22     22/03     22/42 S   23/43     25/48     29/56
        TG.PRO          0   EXTERNAL*       2/30 X   13/46
        TG.TEM          0   EXTERNAL*       2/30 X   35/01
        TO              1                   2/20 E   49/19 L
        TO=             0   EXTERNAL*      49/19
        TP=DO           0   EXTERNAL*       2/30 X   26/05     26/09     26/09 S   29/34     43/46
        TP=ILI          0   EXTERNAL*       2/31 X   22/43     22/43 S   47/42     48/05
        TP.APL          0   EXTERNAL*       2/30 X   17/38     17/50     17/55     18/08     25/40     42/52
                                           17/38     17/44     17/55     18/08     22/01     42/23     45/41
1       /IO  INPUT / OUTPUT STATEMENTS.                               COMPASS 3.7-871.     24/05/02. 15.52.13.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        TP.DIM          0   EXTERNAL*       2/30 X   44/35
        TP.DO           0   EXTERNAL*      43/45
        TP.ILI          0   EXTERNAL*       2/31 X   47/49     48/24     48/24
        TRLINE          0   EXTERNAL*      47/23
        TRV             0   EXTERNAL*       2/53 X   30/55     32/31
        TSF             0   EXTERNAL*       2/53 X   16/38     22/23
        TS.CON          0   EXTERNAL*       2/30 X   45/31
        TS.SYM          0   EXTERNAL*       2/31 X   16/05     16/52     38/06     43/08     46/22
        TT.PAR          0   EXTERNAL*       2/31 X   22/27     22/27     25/54     35/28     36/54     40/01
        TYPE           35                  51/48 L
        TYPES        1364   PROGRAM*        2/21 E   53/52 L
        TYPE=           0   EXTERNAL*      51/48
        WBL             0   EXTERNAL*       2/48 X
        WIN             0   EXTERNAL*      47/19
        WOT1          237   PROGRAM*       12/40     12/56 L
        WOT2          242   PROGRAM*       13/03     13/05 L
        WOT3          244   PROGRAM*       13/05     13/07 L
        WOT3A         253   PROGRAM*       13/14     13/22 L
        WOT3B         255   PROGRAM*       13/20     13/25 L
        WOT.R         221   PROGRAM*        9/33     11/48     12/21     12/28 L
        WRITE          51                  53/03 L
        WRITE=        212   PROGRAM*       12/11 L   12/11 E   53/03
        .CPU          111   TSTEXT         36/02 F   40/20 F   41/16 F   44/03 F   46/38 F
                                           37/20 F   40/48 F   42/41 F   46/04 F
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      343              IDENT  NUM
                        343                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       342 
                                        LITERALS* LOCAL         342         1 
  
  
                                        ENTRY POINTS. 
  
                                        PSN            166+           CLK            175+           CUAFLAG          0+ 
                                        GSN             31+           DLAB           152+           ISASG           62+ 
                                        STN0R          165+           DODO           136+           LBDO           132+ 
                                        CUA             10+           ISN60           66+ 
                                        ISN            105+           LABL           154+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.SNAP   NOPATH    TT=SCR    E.SN      E.SN18    STNTND    CPM       PDT 
                                        LOP=R     REFNUM    TT.SCR    E.SN9     E.SN19    PIG       GSNX      TRVA
                                        CDORD     STN       E.DO12    E.SN12    E.SN20    SFN       CSB       MVE 
                                        CSNTAG    TS.STN    E.DO24    E.SN13    FILL.     ERT       WBL       ALC 
                                        DOORD     TP.DO     E.DO25    E.SN14    FILL.2    ESN       WOF       PWE 
                                        DTI       TP=DO     E.DO25A   E.SN15    STNTD     SSN       INIF
  
  
  
  
                                                  IDENT  NUM                                                     NUM         2
                                         NUM      SECT   (STATEMENT NUMBER TRANSLATORS),1                        NUM         3
  
                                                                                                                 NUM         4
                                                  SST    B,D,EXIT.                                               NUM         5
                                                  NOREF  B,D,EXIT.                                               NUM         6
                                                                                                                 NUM         7
                                         B=NUM    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     NUM         8
                                                                                                                 NUM         9
                                                  ENTRY  PSN,GSN,STN0R,CUA,ISN,CLK,DLAB,DODO,ISN60,LABL          NUM        10
                                                  ENTRY  CUAFLAG,ISASG                                           FCC0639     6
                                                  ENTRY  LBDO                                                    FCC1728X    6
                                                                                                                 NUM        12
                                        *         IN FTN                                                         NUM        13
                                                  EXT    CO.SNAP,LOP=R                                           NUM        14
                                                                                                                 NUM        15
                                        *         IN TABLES                                                      NUM        16
                                                  EXT    CDORD,CSNTAG,DOORD,DTI,NOPATH,REFNUM,STN,TS.STN         NUM        17
                                                  EXT    TP.DO,TP=DO,TT=SCR,TT.SCR                               FCC1307     9
                                                                                                                 NUM        18
                                        *         IN ERRORS                                                      NUM        19
                                                  EXT    E.DO12,E.DO24,E.DO25,E.DO25A,E.SN,E.SN9,E.SN12,E.SN13   FCC1307    10
                                                  EXT    E.SN14,E.SN15,E.SN18,E.SN19,E.SN20                      FCC1307    11
                                                  EXT    FILL.,FILL.2,STNTD,STNTND                               FCC1307    12
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     2
  
  
                                                                                                                 NUM        24
                                        *         IN PIG                                                         NUM        25
                                                  EXT    PIG                                                     NUM        26
                                                                                                                 NUM        27
                                        *         IN MAP                                                         NUM        28
                                                  EXT    SFN                                                     NUM        29
                                                                                                                 NUM        30
                                        *         IN ALLOC                                                       NUM        31
                                                  EXT    ERT,ESN,SSN                                             NUM        32
                                                                                                                 NUM        33
                                        *         IN MAIN                                                        NUM        34
                                                  EXT    CPM,GSNX,CSB,WBL,WOF                                    NUM        35
                                                                                                                 NUM        36
                                        *         IN IF                                                          NUM        37
                                                  EXT    INIF                                                    NUM        38
                                                                                                                 NUM        39
                                        *         IN DO                                                          NUM        40
                                                  EXT    PDT                                                     NUM        41
                                                                                                                 NUM        42
                                        *         IN INIT                                                        NUM        43
                                                  EXT    TRVA                                                    NUM        44
                                                                                                                 NUM        45
  
  
  
  
                                        **        *NUM* IS A SECTION TO HANDLE MOST OF THE PROCESSING FOR        NUM        47
                                        *                STATEMENT NUMBER REFERENCES AND DEFINITIONS.  IT        NUM        48
                                        *                INTERFACES STRONGLY WITH *DO*, THE MASTER LOOP, AND     NUM        49
                                        *                ALL KEYWORD STATEMENTS WHICH REFERENCE STATEMENT        NUM        50
                                        *                NUMBERS.                                                NUM        51
  
  
  
  
                                        **        CUA -  ASSEMBLE (UPCOMING) STATEMENT NUMBER                    NUM        53
                                        *         ENTRY  X1 = DPC STATEMENT NUMBER TO BE ASSEMBLED               NUM        54
                                        *                     (0L FORMAT, MUST HAVE AT LEAST 12 ZERO BITS TERM-  NUM        55
                                        *                     INATING FIELD)                                     NUM        56
                                        *         EXIT   (B2) = SHIFT COUNT NECESSARY TO LEFT-JUSTIFY (X6).      NUM        57
                                        *                IF VALID LABEL --                                       NUM        58
                                        *                  (X6) = DPC STATEMENT LABEL IN 0R FORM                 NUM        59
                                        *                IF ERROR --                                             NUM        60
                                        *                  (X6) = -1                                             NUM        61
                                        *                                                                        NUM        62
                                        *         POSTS ERRORS FOR ILL-FORMED STATEMENT LABELS.                  NUM        63
                                        *         AND EXIT WITH STATEMENT NUMBER = TO *ERR.*                     NUM        64
                                        *         USES   A1,A2  B2,B7  X0,X6,X7                                  NUM        65
                                                                                                                 NUM        66
                                                                                                                 NUM        67
             0                     1     CUAFLAG  BSS    1           NEGATIVE IF ZERO STATEMENT LABELS ALLOWED   NUM        68
             1  0770000026 +             CUA4     MI     B7,CUAE3    IF NON-NUMERIC                              NUM        69
                          6177777765              SB7    B7-10D                                                  NUM        70
             2  0670000026 +                      PL     B7,CUAE3    IF NON-NUMERIC                              NUM        71
                                                                                                                 NUM        72
             3  15210                    CUA6     BX2    -X0*X1      ISOLATE NEXT CHARACTER                      NUM        73
                     20106                        LX1    CHAR                                                    NUM        74
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     3
                                                                      CUA 
  
                          6272777722              SB7    X2-1R                                                   NUM        75
             4  0470000003 +                      ZR     B7,CUA6     IF BLANK, IGNORE                            NUM        76
                          20606                   LX6    CHAR                                                    NUM        77
                               36662              IX6    X6+X2       MERGE CHARACTER INTO ASSEMBLY               NUM        78
             5  6272777744                        SB7    X2-1R0                                                  NUM        79
                          6122777771              SB2    B2-CHAR                                                 NUM        80
             6  0312000001 +                      NZ     X2,CUA4     IF NOT ZERO CHARACTER                       NUM        81
                          10266                   BX2    X6                                                      NUM        82
                               20666              LX6    -CHAR                                                   NUM        83
             7  21244                             AX2    6*CHAR                                                  NUM        84
                     0312000025 +                 NZ     X2,CUAE2    IF OVER FIVE NUMERIC CHARACTERS             NUM        85
                                                                                                                 NUM        86
            10  0400400010 +             CUA      SUBR   0                                                       NUM        87
            11  10611                             BX6    X1                                                      NUM        88
                     43066                        MX0    -CHAR                                                   NUM        89
                          6120000074              SB2    10*CHAR                                                 NUM        90
            12  5160000000 X                      SA6    FILL.                                                   NUM        91
                          20106                   LX1    CHAR                                                    NUM        92
                               76700              SX7    B0          IMPLIES NO LEADING ZERO FOUND               NUM        93
            13  15610                    CUA2     BX6    -X0*X1      ISOLATE LEADING CHARACTER                   NUM        94
                     20106                        LX1    CHAR                                                    NUM        95
                          6276777722              SB7    X6-1R                                                   NUM        96
            14  0470000013 +                      ZR     B7,CUA2     IF BLANK, IGNORE                            NUM        97
                          6276777744              SB7    X6-1R0                                                  NUM        98
            15  0470000022 +                      ZR     B7,CUA3     IF LEADING ZERO                             NUM        99
                          0316000001 +            NZ     X6,CUA4     IF SIGNIFICANT CHARACTER                    NUM       100
            16  0307000010 +                      ZR     X7,CUAX     IF NOT STATEMENT NUMBER ZERO                NUM       101
                          5110000000 +            SA1    CUAFLAG                                                 NUM       102
            17  0331000023 +                      NG     X1,CUAE1    IF STATEMENT LABEL ZERO ALLOWED             NUM       103
                          6170000000 X            FATAL  E.SN19      STATEMENT LABEL ZERO IS ILLEGAL             NUM       104
            21  43673                             MX6    -1                                                      NUM       105
                     0400000010 +                 EQ     CUAX        EXIT..                                      NUM       106
                                                                                                                 NUM       107
            22  76710                    CUA3     SX7    B1          LEADING ZERO DETECTED                       NUM       108
                     0400000013 +                 EQ     CUA2                                                    NUM       109
                                                                                                                 NUM       110
                                        *         ERROR PROCESSING                                               NUM       111
                                                                                                                 NUM       112
            23  6170000000 X             CUAE1    NOTE   E.SN20      STATEMENT LABEL ZERO IGNORED                NUM       113
            24  43600                             MX6    0                                                       NUM       114
                     0400000010 +                 EQ     CUAX        EXIT..                                      NUM       115
                                                                                                                 NUM       116
            25  6170000000 X             CUAE2    SB7    E.SN14                                                  NUM       117
                          0400000027 +            JP     CUAE        CONTINUE.                                   NUM       118
                                                                                                                 NUM       119
            26  6170000000 X             CUAE3    SB7    E.SN15                                                  NUM       120
                                                                                                                 NUM       121
            27  0100000000 X             CUAE     FATAL  B7          OUTPUT ERROR MESSAGE                        NUM       122
            30  43673                             MX6    -1                                                      NUM       123
                     0400000010 +                 EQ     CUAX        EXIT..                                      NUM       124
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     4
                                                                      GSN 
  
                                        **        GSN -  GET STATEMENT NUMBER.                                   NUM       126
                                        *                                                                        NUM       127
                                        *         ENTRY  FROM *CUS*.  AN EXECUTABLE STATEMENT HAS BEEN           NUM       128
                                        *                     ENCOUNTERED WITH A NON-BLANK LABEL.                NUM       129
                                        *                (X6) = STATEMENT LABEL FIELD.                           NUM       130
                                        *                (FILL.) = STATEMENT LABEL, LEFT-JUSTIFIED               NUM       131
                                        *                                                                        NUM       132
                                        *         EXIT   INTO *CUS*.                                             NUM       133
                                        *                (STN) =  STATEMENT LABEL FIELD OF SOURCE CARD IN 0R     NUM       134
                                        *                     FORMAT.                                            NUM       135
                                        *                (CSNTAG) = TAG OF THE STATEMENT LABEL.  42/ 0,  18/TAG  NUM       136
                                        *                (DTI) = COPY OF (CSNTAG) IF THIS IS A DO-TERMINAL.      NUM       137
                                        *                                                                        NUM       138
                                        *         GENERAL FLOW                                                   NUM       139
                                        *                                                                        NUM       140
                                        *         IF THE STATEMENT LABEL ON THE SOURCE CARD  IS NOT              NUM       141
                                        *         IN TS.STN WE UPDATE (TG.SN) AND ADD TAG TO TS.STN SETTING THE  NUM       142
                                        *         DEFINED BIT.  IF IT IS IN TS.STN WE CHECK IF THE DEFINED BIT   NUM       143
                                        *         IS ON, IF SO, WE PUMP OUT A *FATAL* ERROR OF A DUPLICATE       NUM       144
                                        *         STATEMENT NUMBER AND CONTINUE, IGNORING THE STATEMENT LABEL.   NUM       145
                                        *                                                                        NUM       146
                                        *         CALLS  ADDREF, ADSTN, RLK, SSN.                                NUM       147
                                                                                                                 NUM       148
                                                                                                                 NUM       149
            31                           GSN      BSS    0           ENTRY/EXIT...                               NUM       150
            31  0336000000 X                      MI     X6,GSNX     IF ERROR - EXIT..                           NUM       151
                          20622                   LX6    P.STN                                                   NUM       152
            32  5110000000 X                      SCAN   TS.STN,SSN                                              NUM       153
            33  76711                             =X7    M.SNDEF                                                 NUM       154
                     0770000040 +                 MI     B7,GSN5     IF *NIT*                                    NUM       155
                               20272              IFBIT  X2,-SNDEF,GSN10     IF *NOT-DEFINED*                    NUM       156
                                                                                                                 NUM       157
                                        **        HERE IF *STATEMENT NUMBER* IS IN TABLE AND *DEFINED*           NUM       158
                                        *         ERROR - DUPLICATE STATEMENT NUMBER DEFINITION.                 NUM       159
                                                                                                                 NUM       160
                          6170000000 X            FATAL  E.SN                                                    NUM       161
            36  5110000342 +                      SA1    ="SERR."                                                NUM       162
                          10711                   BX7    X1                                                      NUM       163
            37  5170000000 X                      SA7    STN                                                     NUM       164
                          0400000060 +            EQ     GSN60       CONTINUE..  (TO ENTER REF-TAB)              NUM       165
                                                                                                                 NUM       166
                                        **        HERE IF *STATEMENT NUMBER* IS NOT IN TABLE.                    NUM       167
                                                                                                                 NUM       168
            40  7100000200               GSN5     =X0    M.SNLAB                                                 NUM       169
                          12707                   BX7    X0+X7                                                   NUM       170
            41  0100000000 X                      ADSTN  A1          ADD TO TABLE.                               NUM       171
            42  5130000000 X                      SA3    DOORD                                                   NUM       172
                          66771                   =B7    B7+1        TAG ORDINAL                                 NUM       173
            43  0303000057 +                      ZR     X3,GSN45    IF NOT IN *DO*                              NUM       174
                          5110000000 X            SA1    TS.STN                                                  NUM       175
            44  0100000264 +                      RJ     SDL         SET DEFINITION LINK                         NUM       176
            45  0400000057 +                      EQ     GSN45       CONTINUE.                                   NUM       177
                                                                                                                 NUM       178
                                        **        HERE IF *STATEMENT NUMBER* IS IN TABLE.                        NUM       179
                                        *                AND IS NOT-DEFINED.                                     NUM       180
                                                                                                                 NUM       181
            46  5130000000 X             GSN10    SA3    DOORD                                                   NUM       182
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     5
                                                                      GSN 
  
                          20266                   IFBIT  X2,SNLAB/SNDEF,GSN11                                    NUM       183
                          66270                   SB2    B7                                                      NUM       184
            50  6170000000 X                      FATAL  E.SN13      PREVIOUS USE AS A FORMAT NUMBER.            NUM       185
            51  66720                             SB7    B2                                                      NUM       186
                     5110000000 X                 SA1    TS.STN                                                  NUM       187
                               13333              BX3    0                                                       NUM       188
            52  12667                    GSN11    BX6    X6+X7                                                   NUM       189
                     20272                        IFBIT  X2,-SNDOT/SNLAB,GSN20                                   NUM       190
            53  10766                             BX7    X6                                                      NUM       191
                     76300                        =X3    0                                                       NUM       192
                          21752                   AX7    P.TAG                                                   NUM       193
            54  5170000000 X                      SA7    DTI         INDICATE *DO* TERMINATION                   NUM       194
                                                                                                                 NUM       195
            55  66771                    GSN20    =B7    B7+1        ORDINAL OF *TAG* ENTRY.                     NUM       196
                     54620                        SA6    A2          RESET TAG INDICATING DEFINED.               NUM       197
                          0303000057 +            ZR     X3,GSN45    IF NOT IN *DO*.                             NUM       198
            56  54110                             SA1    A1                                                      NUM       199
                     0100000264 +                 RJ     SDL         SET DEFINITION LINK                         NUM       200
            57  21652                    GSN45    AX6    P.TAG                                                   NUM       201
                     5160000000 X                 SA6    CSNTAG      SET CURRENT STATEMENT TAG.                  NUM       202
                               20652              LX6    P.TAG                                                   NUM       203
            60  7110000014               GSN60    ADDREF X6,CR.LAB,GSNX    ADD TO CROSS REF TABLE                NUM       204
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     6
                                                                      ISN 
  
                                        **        ISN -  IDENTIFY STATEMENT NUMBER                               NUM       206
                                        *                                                                        NUM       207
                                        *         ENTRY  (X6) = STATEMENT NUMBER (0L FORMAT)                     NUM       208
                                        *                                                                        NUM       209
                                        *                (B2) = USAGE DEFINITION FOR STATEMENT NUMBER.           NUM       210
                                        *                EITHER --                                               NUM       211
                                        *                M.SNLAB = CONTROL LABEL, IE. GO TO 1                    NUM       212
                                        *                M.SNFMT = FORMAT LABEL.  IE. PRINT 1                    NUM       213
                                        *                M.SNDOT = DO DEFINITION. IE. DO    1                    NUM       214
                                        *                                                                        NUM       215
                                        *                (REFNUM)= TYPE OF REFERENCE FOR *CROSS REFERENCE*       NUM       216
                                        *                          PROCESSOR.                                    NUM       217
                                        *                                                                        NUM       218
                                        *         EXIT   (X6) = TAG FOR STATEMENT NUMBER.                        NUM       219
                                        *                (B7) = ORDINAL OF TAG ENTRY IN TS.STN                   NUM       220
                                        *                                                                        NUM       221
                                        *         NOTE   (X6) = -1 IF SYNTAX ERROR IN STATEMENT NUMBER           NUM       222
                                        *                                                                        NUM       223
                                        *         USES   A1,A2,A3,A6,A7  X0,X1,X3,X6,X7  B2,B7                   FCC1307    13
                                        *                FILL.2 = CURRENT STATEMENT NUMBER IN 0L FORM.           NUM       225
                                        *                                                                        NUM       226
                                        *         CALLS  ADSTN, CUA, RLK                                         NUM       227
                                                                                                                 NUM       228
            62                     1     ISASG    BSSZ   1           ASSIGN STATEMENT FLAG (.NE. 0 ON ASSIGN)    FCC0639     7
                                                                                                                 NUM       229
                                        **        PROCESS ERROR  (X1) = - ERROR ADDRESS.                         NUM       230
                                                                                                                 NUM       231
            63  43255                    ISNEX1   MX2    45          USAGE CONFLICT ERROR EXIT                   NUM       232
                     15112                        BX1    -X2*X1                                                  NUM       233
                          63210                   SB2    X1                                                      NUM       234
                                                                                                                 NUM       235
                                        **        OUTPUT ERROR  (B2) _ ERROR                                     NUM       236
                                                                                                                 NUM       237
            64  76270                    ISNEX    SX2    B7          SAVE ORDINAL                                NUM       238
                     66720                        FATAL  B2          OUTPUT ERROR                                NUM       239
            65  63720                             SB7    X2          RESTORE ORDINAL. ( X6 PRESERVED ACROSS ERR) NUM       240
                     43673                        MX6    59          (X6) = -1 IMPLIES ERROR IN DO               NUM       241
                          0400000105 +            EQ     ISNX        EXIT..                                      NUM       242
                                                                                                                 NUM       243
                                        **        SET TAG IN TABLE ADDING DEFINED BITS FOR USAGE                 NUM       244
                                        *         (X2) = USAGE.                                                  NUM       245
                                        *         (X6) = TAG FOR STATEMENT NUMBER.                               NUM       246
                                        *         (B7) = TAG ORDINAL.                                            NUM       247
                                                                                                                 NUM       248
            66  5110000000 X             ISN60    SA1    TS.STN                                                  NUM       249
                          12662                   BX6    X6+X2                                                   NUM       250
                               53617              SA6    X1+B7       REPLACE TAG REFLECTING USE.                 NUM       251
            67  5130000000 X                      SA3    DOORD                                                   NUM       252
                                                                                                                 NUM       253
                                        **        SET LINK IF INSIDE DO AND ADD NUMBER TO CROSS REF TABLE        NUM       254
                                        *         (X1) = (TS.STN)                                                NUM       255
                                        *         (X2) = USAGE.                                                  NUM       256
                                        *         (X3) = (DOORD)                                                 NUM       257
                                        *         (X6) = UPDATED TAG.                                            NUM       258
                                                                                                                 NUM       259
            70  7100000400               ISN70    =X0    M.SNFMT                                                 NUM       260
                          11702                   BX7    X0*X2                                                   NUM       261
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     7
                                                                      ISN 
  
            71  0317000076 +                      NZ     X7,ISN72    IF PROCESSING FORMAT                        NUM       262
                          7100001000              =X0    M.SNDOT                                                 NUM       263
            72  0303000076 +                      ZR     X3,ISN72    IF NOT IN A *DO*                            NUM       264
                          11702                   BX7    X0*X2                                                   NUM       265
            73  5120000062 +                      SA2    ISASG                                                   FCC0639     8
                          0317000076 +            NZ     X7,ISN72    IF DEFINES NESTING                          NUM       266
            74  54720                             SA7    A2                                                      FCC0639     9
                     0312000076 +                 NZ     X2,ISN72    IF PROCESSING ASSIGN STATEMENT              FCC0639    10
            75  0100000237 +                      RJ     SRL         SET REFERENCE LINK                          NUM       267
                                                                                                                 NUM       268
                                        **        ADD NUMBER TO CROSS REFERENCE TABLE -- IF SELECTED.            NUM       269
                                                                                                                 NUM       270
            76  5120000000 X             ISN72    SA2    LOP=R                                                   NUM       271
                          0322000105 +            PL     X2,ISNX     IF NO CROSS REFERENCE.                      NUM       272
            77  5110000000 X                      SA1    REFNUM                                                  NUM       273
                          10366                   BX3    X6                                                      NUM       274
           100  5160000000 X                      SA6    TRVA        SAVE TAG                                    NUM       275
                          76670                   SX6    B7                                                      NUM       276
                               54661              =A6    A6+1        SAVE ORDINAL                                NUM       277
           101  10633                             ADDREF X3,X1                                                   NUM       278
           103  5110000000 X                      SA1    TRVA                                                    NUM       279
                          54211                   =A2    A1+1                                                    NUM       280
                               10611              BX6    X1          RESTORE TAG                                 NUM       281
           104  63720                             SB7    X2          RESTORE ORDINAL                             NUM       282
                                                                                                                 NUM       283
                                                                                                                 NUM       284
           105  0400400105 +             ISN      SUBR   0                                                       NUM       285
                                                                                                                 NUM       286
                                        *         FORM STATEMENT NUMBER                                          NUM       287
                                                                                                                 NUM       288
           106  7206777775                        SX0    X6-O.CONS                                               FCC1307    14
                          0300000110 +            ZR     X0,ISN2     IF DIGIT STRING                             NUM       290
           107  73060                             SX0    X6                                                      NUM       291
                     0310000000 X                 NZ     X0,E.SN18   IF TYPED OTHER THAN DIGIT STRING            NUM       292
           110  43052                    ISN2     MX0    L.SYM                                                   NUM       293
                     11606                        BX6    X0*X6                                                   NUM       294
                          5130000000 X            SA3    DOORD                                                   NUM       295
           111  76220                             SX2    B2          USAGE                                       NUM       296
                     5160000000 X                 SA6    FILL.2      IN CASE OF ANY ERROR.                       NUM       297
                               13000              BX0    0                                                       NUM       298
           112  0303000113 +                      ZR     X3,ISN3     IF NOT INSIDE DO                            NUM       299
                          76010                   =X0    M.SNREF                                                 NUM       300
           113  15720                    ISN3     BX7    -X0*X2      SELECTIVELY BRING DOWN REF BIT              NUM       301
                     22106                        LX1    X6                                                      NUM       302
                          5170000164 +            SA7    STNUSE      SET USAGE DEFINITION.                       NUM       303
           114  0100000010 +                      RJ     CUA                                                     NUM       304
           115  5160000165 +                      SA6    STN0R       SAVE 0R NUMBER.                             NUM       305
                          0336000105 +            MI     X6,ISNX     IF ERROR - EXIT..                           NUM       306
           116  5110000000 X                      SA1    TS.STN                                                  NUM       307
                          20622                   LX6    P.STN                                                   NUM       308
           117  0100000000 X                      SCAN   A1,SSN                                                  NUM       309
           120  0770000157 +                      MI     B7,ISN40    IF *STATEMENT NUMBER* NOT IN TABLE.         NUM       310
                                                                                                                 NUM       311
                                        **        STATEMENT NUMBER ALREADY IN TABLE                              NUM       312
                                        *         CHECK VALIDITY OF CURRENT USE                                  NUM       313
                                                                                                                 NUM       314
                          10066                   BX0    X6                                                      NUM       315
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     8
                                                                      ISN 
  
           121  6130000000 X                      SB3    STNTD                                                   NUM       316
                          20072                   IFBIT  X0,SNDEF,ISN10                                          NUM       317
                          6130000000 X            SB3    STNTND                                                  NUM       318
           123  7100001600               ISN10    =X0    M.SNLAB+M.SNFMT+M.SNDOT                                 NUM       319
                          11206                   BX2    X0*X6       BRING DOWN SELECTIVE BITS (TABLE)           NUM       320
                               24322              NX3,B2 X2                                                      NUM       321
           124  5110000164 +                      SA1    STNUSE                                                  NUM       322
                          6122777727              SB2    B2-47+P.SNLAB                                           NUM       323
           125  11201                             BX2    X0*X1       BRING DOWN SELECTIVE BITS (REFERENCE)       NUM       324
                     56123                        SA1    B2+B3                                                   NUM       325
                          24322                   NX3,B2 X2                                                      NUM       326
                               66771              =B7    B7+1        ORDINAL OF TAG ENTRY                        NUM       327
           126  7102777727                        SX0    B2-47+P.SNLAB                                           NUM       328
                          14000                   BX0    -X0                                                     NUM       329
                               20004              LX0    4           *16                                         NUM       330
           127  63200                             SB2    X0                                                      NUM       331
                     22121                        LX1    B2,X1                                                   NUM       332
                          5120000164 +            SA2    STNUSE      USE                                         NUM       333
           130  21154                             AX1    60-16       BACK TO LOW ORDER.                          NUM       334
                     63210                        SB2    X1                                                      NUM       335
                          0331000063 +            MI     X1,ISNEX1   IF ERROR.                                   NUM       336
                                                                                                                 NUM       337
           131  0222000000                        JP     B2          JUMP TO CHECK REFERENCE                     NUM       338
                                                                                                                 FCC1728X    7
           132  10066                    LBDO     BX0    X6                                                      FCC1728X    8
                     20073                        IFBIT  X0,-SNREF,LBDO1 IF STATEMENT NUMBER NOT DEFINED         FCC1728X    9
           133  7170000010                        =X7    M.SNE       IS ENTRY TO *DO*                            FCC1728X   10
                          12676                   BX6    X7+X6                                                   FCC1728X   11
           134  12626                    LBDO1    BX6    X2+X6                                                   FCC1728X   12
                     5110000000 X                 SA1    TS.STN      STATEMENT NUMBER TABLE                      FCC1728X   13
                               53617              SA6    X1+B7                                                   FCC1728X   14
           135  0400000076 +                      EQ     ISN72                                                   FCC1728X   15
  
  
  
  
                                        **        STATEMENT NUMBER PREVIOUSLY REFERENCED BUT NOT DEFINED.        NUM       340
                                        *         A.  CHECK IF DO LABEL ALREADY DEFINED AS A DO TERMINAL.  IF    FCC1307    15
                                        *             NOT -  GO TO B.  IF SO - CHECK FOR LEGAL NESTING.          FCC1307    16
                                        *         B.  CHECK IF DO LABEL REFERENCED OUTSIDE DO NEST.  IF SO -     FCC1307    17
                                        *             SET ENTRY FLAG.                                            FCC1307    18
                                        *         C.  IF NOT - OK.                                               FCC1307    19
                                                                                                                 NUM       346
           136  10066                    DODO     BX0    X6                                                      NUM       347
                     20062                        IFBIT  X0,-SNDOT,DODO1 IF NOT ALREADY DO TERMINAL              FCC1307    20
           137  5130000000 X                      SA3    DOORD                                                   FCC1307    21
                          10166                   BX1    X6                                                      FCC1307    22
                               20122              LX1    -P.TAG                                                  FCC1307    23
           140  7211537777                        SX1    X1-C.STN                                                FCC1307    24
                          37113                   IX1    X1-X3                                                   FCC1307    25
           141  0301000145 +                      ZR     X1,DODO1    IF LEGAL NESTING                            FCC1307    26
                          5110000000 X            SA1    TS.STN                                                  FCC1307    27
           142  7100001000                        SX0    M.SNDOT                                                 FCC1307    28
                          15660                   BX6    -X0*X6      CLEAR DO TERMINAL BIT                       FCC1307    29
                               53617              SA6    X1+B7                                                   FCC1307    30
           143  0100000324 +                      RJ     RDE         REMOVE DO ENTRY                             FCC1307    31
           144  6120000000 X                      SB2    E.DO12                                                  FCC1307    32
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE     9
  
  
                          0400000064 +            EQ     ISNEX                                                   FCC1307    33
                                                                                                                 FCC1307    34
           145  20011                    DODO1    IFBIT  X0,-SNREF/SNDOT,ISN72  IF NOT REFERENCED                FCC1307    35
           146  0313000147 +                      NZ     X3,DODO2    IF NESTING                                  FCC1307    36
                          12662                   BX6    X6+X2                                                   FCC1307    37
           147  7170000010               DODO2    =X7    M.SNE                                                   FCC1307    38
                          12667                   BX6    X6+X7                                                   FCC1307    39
           150  5110000000 X                      SA1    TS.STN                                                  FCC1307    40
                          53617                   SA6    X1+B7                                                   FCC1307    41
           151  0400000076 +                      EQ     ISN72                                                   FCC1307    42
  
  
  
  
                                        **        STATEMENT NUMBER PREVIOUSLY DEFINED                            FCC1307    43
                                        *         A.  IF DO LOOP REFERENCING HAS AN EXTENDED RANGE - GO TO B.    NUM       353
                                        *             IF NOT FATAL ERROR -- TRANSFER TO CLOSED LOOP.             NUM       354
                                        *         B.  IF DO LOOP NOT NESTED ON SAME NUMBER - TRANSFER OK.  IF SO NUM       355
                                        *             FATAL ERROR ILLEGAL TRANSFER.                              NUM       356
                                                                                                                 NUM       357
           152  10066                    DLAB     BX0    X6                                                      NUM       358
                     6120000000 X                 SB2    E.SN9                                                   NUM       359
                               20061              IFBIT  X0,-SNOPE,ISNEX   IF LOOP IS OPEN. (HAS EXTENDED RANGE) NUM       360
                          0400000066 +            EQ     ISN60                                                   NUM       361
                                                                                                                 NUM       362
                                        **        C.  IF NUMBER REFERENCING IS ACTIVE - TRANSFER OK.  IF NOT     NUM       363
                                        *             FATAL ERROR -- TRANSFER TO INSIDE A CLOSED D LOOP.         NUM       364
                                                                                                                 NUM       365
           154  5130000000 X             LABL     SA3    DOORD                                                   NUM       366
                          0313000066 +            NZ     X3,ISN60    IF IN *DO*                                  NUM       367
           155  10066                             BX0    X6                                                      NUM       368
                     20071                        IFBIT  X0,-SNINA,ISN60   IF NOT REFERENCE TO INACTIVE LABEL    NUM       369
           156  6120000000 X                      SB2    E.DO24                                                  NUM       370
                          0400000064 +            EQ     ISNEX       ERROR EXIT..                                NUM       371
  
  
  
  
                                        **        STATEMENT NUMBERS FIRST USE                                    NUM       373
                                        *         A.  ADD IN USAGE BITS                                          NUM       374
                                        *         B.  ADD NUMBER TO STATEMENT NUMBER TABLE                       NUM       375
                                        *         C.  CONTINUE, CHECKING CROSS REFERENCE, AND LINK               NUM       376
                                                                                                                 NUM       377
           157  5120000164 +             ISN40    SA2    STNUSE                                                  NUM       378
                          73720                   SX7    X2          TYPE OF REFERENCE.                          NUM       379
           160  0100000000 X                      ADSTN  A1          ADD STATEMENT NUMBER / TAG TO TABLE.        NUM       380
           161  5130000000 X                      SA3    DOORD                                                   NUM       381
                          66771                   =B7    B7+1        TAG ORDINAL                                 NUM       382
           162  5120000164 +                      SA2    STNUSE      RELOAD USAGE                                NUM       383
                          5110000000 X            SA1    TS.STN      RELOAD TS.STN                               NUM       384
           163  0400000070 +                      EQ     ISN70       CONTINUE                                    NUM       385
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    10
  
  
           164  00000000000000000000     STNUSE   DATA   0           TYPE OF REFERENCE ON ENTRY TO *ISN*         NUM       387
           165  00000000000000000000     STN0R    DATA   0           STATEMENT NUMBER IN 0R FORMAT.              NUM       388
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    11
                                                                      PSN 
  
                                        **        PSN -  PROCESS STATEMENT LABEL.                                NUM       390
                                        *                                                                        NUM       391
                                        *         ENTRY  (STN) = STATEMENT LABEL ON CURRENT CARD PROCESSING.     NUM       392
                                        *                (DTI) = TAG OF STATEMENT LABEL IF THIS IS A DO-TERMINAL NUM       393
                                        *                (INIF) = L.TAG TO BE COMPILED IN FRONT OF NEXT STATEMEN NUM       394
                                        *                            FOR JUMP AROUND ANY ONE-BRANCH *IF*.        NUM       395
                                        *                                                                        NUM       396
                                        *         EXIT   IF STATEMENT LABEL PRESENT --                           NUM       397
                                        *                1. IF *DO* NUMBER PROCESS *DO* CONCLUSION CODE          NUM       398
                                        *                2. CLEAR ALL REGISTER ASSOCIATE.                        NUM       399
                                        *                3. IF PART OF FORWARD *IF* CODE RESET REGISTER          NUM       400
                                        *                   ASSOCIATES TO WHAT THERE WHERE BEFORE IF JUMP WAS    NUM       401
                                        *                   PROCESSED.                                           NUM       402
                                        *                4. CALL *PIG* TO PRINT INSTRUCTION GROUP COMPILED FOR   NUM       403
                                        *                   THIS STATEMENT.                                      NUM       404
                                        *                                                                        NUM       405
                                        *                EXIT TO COMPILERS MASTER LOOP.                          NUM       406
                                        *                                                                        NUM       407
                                        *         USES   ALL REGISTERS.                                          NUM       408
                                        *                                                                        NUM       409
                                        *         CALLS  CSB, PDT, PIG                                           NUM       410
                                                                                                                 NUM       411
                                                                                                                 NUM       412
           166  5120000000 X             PSN      SA2    INIF                                                    NUM       413
                          0302000170 +            ZR     X2,PSN2     IF NO ACTIVE *IF*                           NUM       414
           167  13666                             BX6    0                                                       NUM       415
                     5160000000 X                 SA6    NOPATH                                                  NUM       416
           170  0100000000 X             PSN2     RJ     CSB         CHECK FOR SEQUENCE BREAK                    NUM       417
                                                                                                                 NUM       418
                                        **        COMPILE DO-TERMINATION CODE, IF NECESSARY.                     NUM       419
                                                                                                                 NUM       420
           171  5120000000 X                      SA2    DTI                                                     NUM       421
                          0302000173 +            ZR     X2,PSN8     IF NO DO-TERMINATION                        NUM       422
           172  20222                             LX2    P.DOTAG                                                 NUM       423
                     0100000000 X                 RJ     PDT         PROCESS *DO* TERMINATION                    NUM       424
                                                                                                                 NUM       425
                                        **        PROCESS INSTRUCTION GROUP.                                     NUM       426
                                                                                                                 NUM       427
           173  0100000000 X             PSN8     RJ     PIG         PROCESS INSTRUCTION GROUP                   NUM       428
           174  0400000000 X                      EQ     CPM         EXIT..  (TO MASTER LOOP)                    NUM       429
  
  
  
  
                                        **        CLK -  CLEAR LINKS FOR STATEMENT NUMBERS INSIDE CURRENT *DO*   NUM       431
                                        *         NEST BEING CLOSED.                                             NUM       432
                                        *                                                                        NUM       433
                                        *         ENTRY  (DOORD) = STARTING ORDINAL FOR DO NEST                  NUM       434
                                        *                (CDORD) = STARTING ORDINAL FOR CURRENT DO               NUM       435
                                        *                                                                        NUM       436
                                        *         EXIT   LINKS CLEARED                                           NUM       437
                                        *                                                                        NUM       438
                                        *         USES   A1,A2,A3,A4,A6,A7  X0  B2,B3,B6,B7                      NUM       439
                                                                                                                 NUM       440
                                                                                                                 NUM       441
           175  0400400175 +             CLK      SUBR               ENTRY/EXIT..                                NUM       442
                                         TEST     IFNE   TEST                                                    NUM       443
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    12
                                                                      CLK 
  
                                                  RJ     PRLKH       PRINT LINK DUMP HEADER                      NUM       444
                                         TEST     ENDIF  TEST                                                    NUM       445
           176  5120000000 X                      SA2    DOORD                                                   NUM       446
                          5110000000 X            SA1    TS.STN                                                  NUM       447
           177  63620                             SB6    X2                                                      NUM       448
                     43057                        MX0    -L.SLINK                                                NUM       449
                          5140000000 X            SA4    CDORD                                                   NUM       450
           200  53316                             SA3    X1+B6       1ST LINKED NUMBER                           NUM       451
                     7160000020                   =X6    M.SNX                                                   NUM       452
                               63340              SB3    X4          ENDING LINK                                 NUM       453
           201  20013                             LX0    P.SLINK                                                 NUM       454
                     15430                        BX4    -X0*X3                                                  NUM       455
                          7120000010              =X2    M.SNE                                                   NUM       456
           202  67701                             =B7    -1                                                      NUM       457
                     63210                        SB2    X1                                                      NUM       458
                          76700                   =X7    0                                                       NUM       459
                                                                                                                 NUM       460
                                        **        SCAN LINKS TO SEE WHAT TYPE OF *DO* I HAVE                     NUM       461
                                        *         (B2) = (TS.STN)                                                NUM       462
                                        *         (B3) = (CDORD) BEGINNING OF NEST                               NUM       463
                                        *         (B6) = (DOORD) DO BEING DEFINED                                NUM       464
                                        *         (X2) = M.SNE                                                   NUM       465
                                        *         (X6) = M.SNX                                                   NUM       466
                                                                                                                 NUM       467
           203  20461                    CLK5     LX4    -P.SLINK                                                NUM       468
                     0473000212 +                 EQ     B7,B3,CLK30 IF END OF CURRENT *DO* LINK                 NUM       469
                               63740              SB7    X4                                                      NUM       470
                                         TEST     IFNE   TEST                                                    NUM       471
                                                  RJ     PRLINK                                                  NUM       472
                                         TEST     ENDIF  TEST                                                    NUM       473
           204  11163                             BX1    X6*X3                                                   NUM       474
                     0301000210 +                 ZR     X1,CLK7     IF DOES NOT DEFINE A POSSIBLE EXIT          NUM       475
                               11123              BX1    X2*X3                                                   NUM       476
           205  0311000206 +                      NZ     X1,CLK6     IF ALSO DEFINED IN LOOP - EXIT NOT SET      NUM       477
                                                                                                                 NUM       478
                                        **        NUMBER WAS REFERENCED INSIDE DO BUT NOT DEFINED                NUM       479
                                        *         SETS DO HAS AN EXTENDED RANGE                                  NUM       480
                                                                                                                 NUM       481
                          12776                   BX7    X7+X6       DEFINE DO HAS EXIT                          NUM       482
                                                                                                                 NUM       483
                                        **        SET *SNREF* FOR NUMBERS THAT WERE REFERENCED INSIDE CURRENT DO NUM       484
                                                                                                                 NUM       485
           206  76110                    CLK6     =X1    M.SNREF                                                 NUM       486
                     12613                        BX6    X1+X3                                                   NUM       487
                          54630                   SA6    A3          SET REFERENCE BIT                           NUM       488
           207  7160000020                        =X6    M.SNX                                                   NUM       489
                          0400000211 +            EQ     CLK10       CONTINUE                                    NUM       490
                                                                                                                 NUM       491
                                        **        NUMBER WAS NOT REFERENCED INSIDE DO - CHECK IF IT WAS DEFINED  NUM       492
                                                                                                                 NUM       493
           210  11123                    CLK7     BX1    X2*X3                                                   NUM       494
                     0301000211 +                 ZR     X1,CLK10    IF DOES NOT DEFINE AN ENTRY                 NUM       495
                               12772              BX7    X7+X2       DEFINE DO HAS AN ENTRY                      NUM       496
                                                                                                                 NUM       497
                                        **        GET NEXT LINK                                                  NUM       498
                                                                                                                 NUM       499
           211  53342                    CLK10    SA3    X4+B2                                                   NUM       500
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    13
                                                                      CLK 
  
                     15430                        BX4    -X0*X3                                                  NUM       501
                          0400000203 +            EQ     CLK5        CONTINUE                                    NUM       502
                                                                                                                 NUM       503
                                        **        INFORMATION SCAN COMPLETE                                      NUM       504
                                                                                                                 NUM       505
           212  7100000020               CLK30    =X0    M.SNX                                                   NUM       506
                          11670                   BX6    X7*X0                                                   NUM       507
                               56226              SA2    B2+B6                                                   NUM       508
           213  7130000004                        =X3    M.SNINA     SET STATEMENT NUMBERS DEFINED IN LOOP INACT NUM       509
                          0306000216 +            ZR     X6,CLK40    IF NO EXIT DEFINED - DO CONSIDERED CLOSED   NUM       510
           214  7100002000                        =X0    M.SNOPE     DEFINE DO LOOP IS OPEN                      NUM       511
                          12602                   BX6    X0+X2                                                   NUM       512
                               76300              =X3    0           BIT ADD IN                                  NUM       513
           215  54620                             SA6    A2          DO HAS EXTENDED RANGE                       NUM       514
                     0400000220 +                 EQ     CLK50                                                   NUM       515
                                                                                                                 NUM       516
                                        **        DO IS CLOSED - CHECK IF THERE WAS AN ILLEGAL FORWARD REFERENCE NUM       517
                                        *         TO A NUMBER DEFINED INSIDE THIS DO                             NUM       518
                                        *         (X2) = CURRENT DO BEING DEFINED TAG.                           NUM       519
                                                                                                                 NUM       520
           216  20270                    CLK40    IFBIT  X2,-SNE,CLK50     IF NO FORWARD REFERENCE INSIDE DO     NUM       521
           217  6170000000 X                      FATAL  E.DO25            ILLEGAL ENTRY                         NUM       522
                                                                                                                 NUM       523
                                        **        CLEAR LINKS FOR CURRENT *DO*                                   NUM       524
                                        *         (X3) = BITS TO ADD TO STATEMENTS LINKED                        FCC1307    44
                                        *         (B2) = (TS.STN)                                                NUM       526
                                        *         (B3) = (CDORD) BEGINNING OF NEST                               NUM       527
                                        *         (B6) = (DOORD) DO BEING DEFINED                                NUM       528
                                                                                                                 NUM       529
           220  73230                    CLK50    SX2    X3          BIT ADD IN                                  NUM       530
                                         TEST     IFNE   TEST                                                    NUM       531
                                                  RJ     PRLKH                                                   NUM       532
                                         TEST     ENDIF  TEST                                                    NUM       533
                     43057                        MX0    -L.SLINK                                                NUM       534
                          56326                   SA3    B2+B6                                                   NUM       535
           221  5110000236 +                      SA1    MASKNE                                                  NUM       536
                          20013                   LX0    P.SLINK                                                 NUM       537
                               67701              =B7    -1                                                      NUM       538
           222  22701                             LX7    X1                                                      NUM       539
                     0436000224 +                 EQ     B3,B6,CLK51 IF NO OUTER DO                              NUM       540
           223  7140000020                        SX4    M.SNX                                                   NUM       541
                          12774                   BX7    X7+X4       LEAVE SNX BIT ON IF THIS DO IS NESTED       NUM       542
           224  15430                    CLK51    BX4    -X0*X3                                                  NUM       543
                                                                                                                 NUM       544
                                        **        CLEAR LINK LOOP AND SET APPROPRIATE BITS IN CLASS FOR NUMBERS  NUM       545
                                        *         REFERENCED / DEFINED WITHIN CURRENT LOOP                       NUM       546
                                        *         A.  IF NUMBER HAD *SNX* SET - CHANGE TO *SNREF*                NUM       547
                                        *         B.  IF DO IS CLOSED LOOP - SET *SNINA* BIT TO INDICATE NUMBER  NUM       548
                                        *             IS INACTIVE.                                               NUM       549
                                                                                                                 NUM       550
           225  20461                    CLK52    LX4    -P.SLINK                                                NUM       551
                     0473000232 +                 EQ     B7,B3,CLK55 IF END OF CURRENT *DO* LINK                 NUM       552
                               11637              BX6    X3*X7       CLEAR LINKS + SPECIAL BITS                  NUM       553
           226  63740                             SB7    X4                                                      NUM       554
                     20373                        IFBIT  X3,SNREF,CLK53                                          NUM       555
           227  12662                             BX6    X6+X2       ADD IN BITS                                 NUM       556
           230  54630                    CLK53    SA6    A3                                                      NUM       557
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    14
                                                                      CLK 
  
                                         TEST     IFNE   TEST                                                    NUM       558
                                                  RJ     PRLINK                                                  NUM       559
                                         TEST     ENDIF  TEST                                                    NUM       560
                     53342                        SA3    X4+B2                                                   NUM       561
                          15430                   BX4    -X0*X3                                                  NUM       562
           231  0400000225 +                      EQ     CLK52       CONTINUE                                    NUM       563
                                                                                                                 NUM       564
                                        **        RESET CURRENT DO LINK, SETTING IT LINKED TO BEGINNING OF DO    NUM       565
                                        *         NEST                                                           NUM       566
                                                                                                                 NUM       567
           232  56126                    CLK55    SA1    B2+B6       CURRENT DO BEING CLOSED                     NUM       568
                     76330                        SX3    B3                                                      NUM       569
                          20313                   LX3    P.SLINK                                                 NUM       570
                               12631              BX6    X3+X1                                                   NUM       571
           233  7100000020                        =X0    M.SNX                                                   NUM       572
                          54610                   SA6    A1          RELINK INNER DO NUMBER TO OUTER             NUM       573
                               20161              IFBIT  X1,-SNOPE,EXIT.                                         NUM       574
                          12760                   BX7    X6+X0       SET EXIT ON DO NUMBER IF EXTENDED RANGE     NUM       575
                               54710              SA7    A1                                                      NUM       576
           235  0400000175 +                      EQ     EXIT.                                                   NUM       577
                                                                                                                 NUM       578
                                                                                                                 NUM       579
           236  77777777777700003747     MASKNE   VFD    L.TAG/-0,L.SNAD/-0,L.SLINK/0,L.SNCLS/-M.SNE-M.SNX       NUM       580
  
  
  
  
                                        **        SRL -  SET REFERENCE LINK                                      NUM       582
                                        *                                                                        NUM       583
                                        *         ENTRY  (X1) = (TS.STN)                                         NUM       584
                                        *                (X3) = (DOORD)                                          NUM       585
                                        *                (X6) = CURRENT TAG PROCESSING.                          NUM       586
                                        *                (B7) = ORDINAL OF CURRENT *TAG* ENTRY.                  NUM       587
                                        *                                                                        NUM       588
                                        *         EXIT   (X6) = TAG UPDATED WITH LINK.                           NUM       589
                                        *                (B7) = UNTOUCHED.                                       NUM       590
                                        *                                                                        NUM       591
                                        *         USES   A1,A2,A3  X0,X1,X2,X3,X6,X7  B2,B7                      NUM       592
                                                                                                                 NUM       593
                                                                                                                 NUM       594
           237  0400400237 +             SRL      SUBR               ENTRY/EXIT..                                NUM       595
                                                                                                                 NUM       596
                                        **        CHECK IF CURRENT NUMBER HAS BEEN LINKED TO CURRENT *DO* NEST   NUM       597
                                                                                                                 NUM       598
           240  63230                             SB2    X3                                                      NUM       599
                     43057                        MX0    -L.SLINK                                                NUM       600
                          10366                   BX3    X6          CURRENT TAG.                                NUM       601
                               20013              LX0    P.SLINK                                                 NUM       602
           241  15230                             BX2    -X0*X3      CURRENT LINK FIELD FOR NUMBER               NUM       603
                     0302000247 +                 ZR     X2,SRL10    IF NOT LINKED - 1ST USE INSIDE *DO*         NUM       604
                                                                                                                 NUM       605
                                        **        IF STATEMENT NUMBER LINKED TO CURRENT *DO* NEST                FCC1307    45
                                        *         SET FIELD INDICATING NUMBER IS REFERENCED INSIDE A *DO*        NUM       607
                                                                                                                 NUM       608
           242  7100000020                        =X0    M.SNX                                                   NUM       609
                          0527000244 +            NE     B2,B7,SRL5  IF REFERENCE IS NOT TO CURRENT DO           NUM       610
           243  76010                             =X0    M.SNREF                                                 NUM       611
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    15
                                                                      SRL 
  
           244  12630                    SRL5     BX6    X3+X0                                                   NUM       612
                     53617                        SA6    X1+B7       SET *M.SNX* BIT                             NUM       613
                          53212                   SA2    X1+B2                                                   NUM       614
           245  7100000020                        =X0    M.SNX                                                   NUM       615
                          12720                   BX7    X2+X0                                                   NUM       616
                               54720              SA7    A2          INDICATE *DO* HAS AN EXIT                   NUM       617
           246  0400000237 +                      EQ     EXIT.                                                   NUM       618
                                                                                                                 NUM       619
                                        **        HERE IF 1ST REFERENCE TO STATEMENT NUMBER INSIDE               NUM       620
                                        *         THIS *DO* NEST.                                                NUM       621
                                                                                                                 NUM       622
           247  10033                    SRL10    BX0    X3                                                      NUM       623
                     20072                        IFBIT  X0,-SNDEF,SRL20     IF NUMBER NOT PREVIOUSLY DEFINED    NUM       624
           250  20073                             IFBIT  X0,-SNINA/SNDEF,SRL15                                   NUM       625
                               66370              SB3    B7                                                      NUM       626
           251  22206                             LX2    X6                                                      NUM       627
                     6170000000 X                 FATAL  E.DO24      ILLEGAL TRANSFER TO INSIDE A CLOSED DO      NUM       628
           253  22602                             LX6    X2                                                      NUM       629
                     66730                        SB7    B3                                                      NUM       630
                          0400000237 +            EQ     EXIT.                                                   NUM       631
                                                                                                                 NUM       632
           254  20073                    SRL15    IFBIT  X0,SNE/SNINA,SRL20                                      NUM       633
                               53212              SA2    X1+B2                                                   NUM       634
           255  7100000020                        =X0    M.SNX                                                   NUM       635
                          12620                   BX6    X2+X0                                                   NUM       636
                               54620              SA6    A2          INDICATE *DO* HAS AN EXIT                   NUM       637
                                                                                                                 NUM       638
                                        **        LINK NUMBER TO CURRENT *DO*                                    NUM       639
                                        *         (X3) = TAG FOR CURRENT NUMBER                                  NUM       640
                                                                                                                 NUM       641
           256  53212                    SRL20    SA2    X1+B2       CURRENT LINK FROM *DO* NUMBER               NUM       642
                     7170000020                   =X7    M.SNX                                                   NUM       643
                               43057              MX0    -L.SLINK                                                NUM       644
           257  12373                             BX3    X7+X3       SET M.SNX                                   NUM       645
                     76770                        SX7    B7          CURRENT TAG ORDINAL                         NUM       646
                          20013                   LX0    P.SLINK                                                 NUM       647
                               15620              BX6    -X0*X2      CURRENT LINK FIELD                          NUM       648
           260  12663                             BX6    X6+X3       LINK NUMBER TO LAST LINK                    NUM       649
                     53617                        SA6    X1+B7                                                   NUM       650
                          11302                   BX3    X0*X2                                                   NUM       651
                               10066              BX0    X6                                                      NUM       652
           261  20713                             LX7    P.SLINK                                                 NUM       653
                     12673                        BX6    X7+X3       RESET *DO* LINK TO NUMBER                   NUM       654
                          54620                   SA6    A2                                                      NUM       655
                               10600              BX6    X0                                                      NUM       656
           262  0400000237 +                      EQ     EXIT.                                                   NUM       657
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    16
                                                                      SDL 
  
                                        **        SDL -  SET DEFINITION LINK.                                    NUM       659
                                        *                                                                        NUM       660
                                        *         ENTRY  (X1) = (TS.STN)                                         NUM       661
                                        *                (X3) = (DOORD)                                          NUM       662
                                        *                (X6) = CURRENT TAG PROCESSING.                          NUM       663
                                        *                (B7) = ORDINAL OF CURRENT *TAG* ENTRY.                  NUM       664
                                        *                                                                        NUM       665
                                        *         EXIT   (X6) = TAG UPDATED WITH LINK.                           NUM       666
                                        *                (B7) = UNTOUCHED.                                       NUM       667
                                        *                                                                        NUM       668
                                        *         USES   A1,A2,A3  X0,X1,X2,X3,X6,X7  B2,B7                      NUM       669
                                                                                                                 NUM       670
                                                                                                                 NUM       671
           263  7100000010               SDL40    =X0    M.SNE                                                   NUM       672
                          12630                   BX6    X3+X0       SET *M.SNE* BIT                             NUM       673
                               53617              SA6    X1+B7                                                   NUM       674
                                                                                                                 NUM       675
           264  0400400264 +             SDL      SUBR               ENTRY/EXIT..                                NUM       676
                                                                                                                 NUM       677
                                        **        CHECK IF CURRENT NUMBER HAS BEEN LINKED TO CURRENT *DO* NEST   NUM       678
                                                                                                                 NUM       679
           265  63230                             SB2    X3          DO STATEMENT TAG ORDINAL                    NUM       680
                     43057                        MX0    -L.SLINK                                                NUM       681
                          10366                   BX3    X6          CURRENT TAG.                                NUM       682
                               20013              LX0    P.SLINK                                                 NUM       683
           266  15230                             BX2    -X0*X3      CURRENT LINK FIELD FOR NUMBER               NUM       684
                     0302000303 +                 ZR     X2,SDL20    IF NOT LINKED - 1ST USE INSIDE *DO*         NUM       685
                                                                                                                 NUM       686
                                        **        IF STATEMENT NUMBER LINKED TO CURRENT *DO* NEST                NUM       687
                                        *                                                                        NUM       688
                                        *         CHECKS                                                         NUM       689
                                        *         A.  IF CURRENT NUMBER HAS *SNX* SET, SCAN LINK TO SEE IF       NUM       690
                                        *             NUMBER WAS FIRST REFERENCED INSIDE CURRENT *DO*.  IF NOT   NUM       691
                                        *             PREVIOUS FORWARD REFERENCE IS AN ILLEGAL TRANSFER FROM     NUM       692
                                        *             OUTER DO TO INNER.                                         NUM       693
                                        *                                                                        NUM       694
                                        *         IF NOT (A)                                                     NUM       695
                                        *         B.  SET FIELD INDICATING NUMBER IS DEFINED INSIDE *DO* NEST.   NUM       696
                                                                                                                 NUM       697
                               10233              BX2    X3                                                      NUM       698
           267  7100000020                        =X0    M.SNX                                                   NUM       699
                          11703                   BX7    X0*X3                                                   NUM       700
                               21252              AX2    P.2TAG                                                  NUM       701
           270  0307000263 +                      ZR     X7,SDL40    IF NO PREVIOUS REFERENCE INSIDE A DO        NUM       702
                          5110000000 X            SA1    TS.STN                                                  NUM       703
           271  6232537777                        SB3    X2-C.STAT                                               NUM       704
                          43057                   MX0    -L.SLINK                                                NUM       705
                               53212              SA2    X1+B2       LOAD CURRENT DO TAG TO GET LAST LINK        NUM       706
           272  20013                             LX0    P.SLINK                                                 NUM       707
                     63210                        SB2    X1                                                      NUM       708
                          67303                   SB3    -B3                                                     NUM       709
                               15420              BX4    -X0*X2      LINK                                        NUM       710
                                                                                                                 NUM       711
                                        **        SCAN LINK TILL DO FOUND OR STATEMENT NUMBER                    NUM       712
                                        *         A.  IF DO FOUND FIRST - CURRENT DEFINITION WAS PREVIOUSLY      NUM       713
                                        *             REFERENCED FROM OUTSIDE CURRENT DO AND IS AN ILLEGAL       NUM       714
                                        *             TRANSFER FROM OUTER DO TO INNER.                           NUM       715
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    17
                                                                      SDL 
  
                                        *         B.  IF NUMBER FOUND FIRST - CURRENT DEFINITION WAS REFERENCED  NUM       716
                                        *             FROM INSIDE CURRENT DO, SET *SNE* BIT AND EXIT..           NUM       717
                                                                                                                 NUM       718
           273  20461                    SDL5     LX4    -P.SLINK                                                NUM       719
                     73743                        SX7    X4+B3                                                   NUM       720
                          53242                   SA2    X4+B2                                                   NUM       721
           274  0307000263 +                      ZR     X7,SDL40    IF NUMBER 1ST REFERENCED INSIDE CURRENT DO  NUM       722
                          15420                   BX4    -X0*X2      ORDINAL FIELD OF NEXT LINK                  NUM       723
                               20262              IFBIT  X2,-SNDOT,SDL5                                          NUM       724
                                                                                                                 NUM       725
                                        **        ILLEGAL TRANSFER FROM INSIDE DO NEST FROM OUTER DO TO INNER    NUM       726
                                                                                                                 NUM       727
                          7100000010              =X0    M.SNE                                                   NUM       728
           276  12630                             BX6    X3+X0       SET *M.SNE* BIT                             NUM       729
                     56627                        SA6    B2+B7                                                   NUM       730
                          66370                   SB3    B7                                                      NUM       731
           277  6170000000 X                      FATAL  E.SN12      PREVIOUS TRANSFER ILLEGAL                   NUM       732
           300  66730                             SB7    B3                                                      NUM       733
                     0100000324 +                 RJ     RDE         REMOVE DO ENTRY                             FCC1307    46
           301  5110000000 X                      SA1    TS.STN                                                  FCC1307    47
                          53117                   SA1    X1+B7                                                   FCC1307    48
                               22601              LX6    X1          RESTORE LABEL TAG                           FCC1307    49
           302  0400000264 +                      EQ     EXIT.                                                   NUM       734
                                                                                                                 NUM       735
                                        **        HERE IF 1ST REFERENCE TO STATEMENT NUMBER INSIDE               NUM       736
                                        *         THIS *DO* NEST.                                                NUM       737
                                        *         CHECKS                                                         NUM       738
                                        *         A.  FORWARD REFERENCE TO NUMBER FROM OUTSIDE CURRENT DO        NUM       739
                                        *             NEST.  IF SO, SET *SNE* IN *DO* NUMBER INDICATING *DO* HAS NUM       740
                                        *             BEEN ENTERED FROM OUTSIDE DO.  WHEN WE COME TO CONCLUSION  NUM       741
                                        *             *SNE* BIT IS CHECKED IF DO WAS DEFINED AS A CLOSED LOOP.   NUM       742
                                        *             IF CLOSED THEN WE FATAL THE LOOP AND TELL THE PROGRAMMER   NUM       743
                                        *             THAT CURRENT DO WAS ILLEGALLY ENTERED BY A FORWARD         NUM       744
                                        *             TRANSFER OF THIS TYPE.                                     NUM       745
                                        *                                                                        NUM       746
                                        *         IF NOT (A)                                                     NUM       747
                                        *         B.  SET *SNE* IN NUMBER, INDICATING IT DEFINES AN ENTRY INTO   NUM       748
                                        *             CURRENT NEST.                                              NUM       749
                                                                                                                 NUM       750
           303  10033                    SDL20    BX0    X3                                                      NUM       751
                     20073                        IFBIT  X0,-SNREF,SDL25                                         NUM       752
           304  20070                             IFBIT  X0,SNX/SNREF,SDL25  IF REFERENCE IS FROM NESTED DO      NUM       753
                               53212              SA2    X1+B2                                                   NUM       754
           305  7100000010                        =X0    M.SNE                                                   NUM       755
                          12620                   BX6    X2+X0                                                   NUM       756
                               66370              SB3    B7          SAVE ORDINAL                                NUM       757
           306  54620                             SA6    A2          INDICATE *DO* HAS BEEN ENTERED              NUM       758
                     6170000000 X                 NOTE   E.DO25A     POSSIBLE ILLEGAL TRANSFER                   NUM       759
           310  5110000000 X                      SA1    TS.STN                                                  NUM       760
                          66730                   SB7    B3                                                      NUM       761
                                                                                                                 NUM       762
                                        **        LINK NUMBER TO CURRENT *DO* SETTING *SNE* BIT                  NUM       763
                                        *         (X1) = (TS.STN)                                                NUM       764
                                        *         (X3) = TAG FOR CURRENT NUMBER                                  NUM       765
                                                                                                                 NUM       766
           311  53212                    SDL25    SA2    X1+B2       CURRENT LINK FROM *DO* NUMBER               NUM       767
                     7170000010                   =X7    M.SNE                                                   NUM       768
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    18
                                                                      SDL 
  
                               43057              MX0    -L.SLINK                                                NUM       769
           312  12373                             BX3    X7+X3                                                   NUM       770
                     76770                        SX7    B7          CURRENT TAG ORDINAL                         NUM       771
                          20013                   LX0    P.SLINK                                                 NUM       772
                               15620              BX6    -X0*X2      CURRENT LINK FIELD                          NUM       773
           313  12663                             BX6    X6+X3       LINK NUMBER TO LAST LINK                    NUM       774
                     53617                        SA6    X1+B7                                                   NUM       775
                          11302                   BX3    X0*X2                                                   NUM       776
                               10066              BX0    X6                                                      NUM       777
           314  20713                             LX7    P.SLINK                                                 NUM       778
                     12673                        BX6    X7+X3       RESET *DO* LINK TO NUMBER                   NUM       779
                          54620                   SA6    A2                                                      NUM       780
                               10600              BX6    X0                                                      NUM       781
           315  0400000264 +                      EQ     EXIT.                                                   NUM       782
  
  
  
  
                                        **        RDE  - REMOVE DO ENTRY                                         FCC1307    51
                                        *                                                                        FCC1307    52
                                        *                CALLED WHEN AN ERROR IS DETECTED IN DO PROCESSING       FCC1307    53
                                        *                WHICH RENDERS THE DO TERMINAL UNCOMPILABLE.             FCC1307    54
                                        *                                                                        FCC1307    55
                                        *         ENTRY  (X6) = DO TERMINATOR TAG                                FCC1307    56
                                        *                                                                        FCC1307    57
                                        *         EXIT   ALL DO ENTRIES ON TP.DO PERTAINING TO THAT TERMINATOR   FCC1307    58
                                        *                ARE REMOVED.                                            FCC1307    59
                                        *                                                                        FCC1307    60
                                        *         USES   A1,A2,A3,A6  X0,X1,X2,X3,X6  B2,B3                      FCC1307    61
                                        *                                                                        FCC1307    62
                                        *         CALLS  ALC, MVE                                                FCC1307    63
                                                                                                                 FCC1307    64
                                                                                                                 FCC1307    65
           316  13666                    RDE3     SHRINK TP=DO                                                   FCC1307    66
           317  5120000000 X                      SA2    TT=SCR                                                  FCC1307    67
                          5110000000 X            ALLOC  TP.DO,X2                                                FCC1307    68
           321  22301                             LX3    X1          NEW ORIGIN                                  FCC1307    69
                     10122                        BX1    X2          NEW LENGTH                                  FCC1307    70
                          5120000000 X            SA2    TT.SCR      NEW DO LIST                                 FCC1307    71
           322  0100000000 X                      RJ     =XMVE                                                   FCC1307    72
           323  13666                             SHRINK TT=SCR                                                  FCC1307    73
                               66720              SB7    B2          RESTORE (B7)                                FCC1307    74
                                                                                                                 FCC1307    75
                                                                                                                 FCC1307    76
           324  0400400324 +             RDE      SUBR                                                           FCC1307    77
           325  5120000000 X                      SA2    TP=DO                                                   FCC2318     6
                          0302000324 +            ZR     X2,RDE                                                  FCC2318     7
           326  66270                             SB2    B7          PRESERVE (B7)                               FCC1307    78
                     21652                        AX6    P.TAG                                                   FCC1307    79
                          63360                   SB3    X6                                                      FCC1307    80
                               67303              SB3    -B3         PRESERVE TAG OF DO TERMINAL                 FCC1307    81
           327  13666                             SHRINK TT=SCR                                                  FCC1307    82
                                                                                                                 FCC1307    83
           330  5120000000 X             RDE1     SA2    TP.DO                                                   FCC1307    84
                          5212000005              SA1    X2+OR.DOSN                                              FCC1307    85
           331  21122                             AX1    P.DOTAG                                                 FCC1307    86
                     73113                        SX1    X1+B3                                                   FCC1307    87
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    19
                                                                      RDE 
  
                          0301000336 +            ZR     X1,RDE2     IF DO ENTRY MATCH                           FCC1307    88
                                                                                                                 FCC1307    89
                                        *         IF NOT A DO ENTRY TO DISCARD, SAVE ON TT.SCR                   FCC1307    90
                                                                                                                 FCC1307    91
           332  5110000000 X                      ALLOC  TT.SCR,L.DOE                                            FCC1307    92
           334  7110000006                        SX1    L.DOE                                                   FCC1307    93
                          5120000000 X            SA2    TP.DO                                                   FCC1307    94
           335  7137777771                        SX3    B7-L.DOE                                                FCC1307    95
                          0100000000 X            RJ     =XMVE                                                   FCC1307    96
                                                                                                                 FCC1307    97
                                        *         RESET TP.DO FOR LOOP                                           FCC1307    98
                                                                                                                 FCC1307    99
           336  5110000000 X             RDE2     SA1    TP.DO                                                   FCC1307   100
                          5120000000 X            SA2    TP=DO                                                   FCC1307   101
           337  7261000006                        SX6    X1+L.DOE                                                FCC1307   102
                          7202777771              SX0    X2-L.DOE                                                FCC1307   103
           340  0300000316 +                      ZR     X0,RDE3     IF LOOP DONE                                FCC1307   104
                          54610                   SA6    A1                                                      FCC1307   105
                               10600              SHRINK TP=DO,X0                                                FCC1307   106
                          0400000330 +            EQ     RDE1        CONTINUE..                                  FCC1307   107
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    20
  
  
                                         TEST     IFNE   TEST                                                    NUM       784
                                         PRLINK   SPACE  4,8                                                     NUM       785
                                        **        PRLINK - PRINT LINKED STATEMENT NUMBER IF SNAP *N* ON.         NUM       786
                                        *                                                                        NUM       787
                                        *         ENTRY  (A3) = STATEMENT NUMBER TAG WORD                        NUM       788
                                        *         EXIT   LINKED NUMBER PRINTED.                                  NUM       789
                                        *                                                                        NUM       790
                                        *         NOTE - DESTROYS *A1* ONLY.                                     NUM       791
                                                                                                                 NUM       792
                                                                                                                 NUM       793
                                         PRLINK   SUBR   0                                                       NUM       794
                                                  SA1    CO.SNAP                                                 NUM       795
                                                  LX1    1RN                                                     NUM       796
                                                  PL     X1,PRLINKX                                              NUM       797
                                                  RJ     =XSVR=      SAVE REGISTERS                              NUM       798
                                                  SA2    =XSVA+3                                                 NUM       799
                                                  SA5    X2-1        LOAD STATEMENT NUMBER DPC                   NUM       800
                                                  MX0    L.SYM                                                   NUM       801
                                                  BX1    X0*X5                                                   NUM       802
                                                  MX0    CHAR                                                    NUM       803
                                         PRLNK1   BX3    X0*X1                                                   NUM       804
                                                  NZ     X3,PRLNK5   IF LEFT JUSTIFIED                           NUM       805
                                                  LX1    CHAR                                                    NUM       806
                                                  EQ     PRLNK1                                                  NUM       807
                                                                                                                 NUM       808
                                         PRLNK5   RJ     SFN         SPACE FILL NAME                             NUM       809
                                                  SA6    PRLNKL      SAVE NAME                                   NUM       810
                                                  SA5    A5+1        LOAD TAG                                    NUM       811
                                                  SA1    =1H                                                     NUM       812
                                                  IFBIT  X5,-SNDEF,PRLNK7                                        NUM       813
                                                  SA1    =10H DEFINED                                            NUM       814
                                         PRLNK7   BX6    X1                                                      NUM       815
                                                  =A6    A6+1                                                    NUM       816
                                                  SA1    =1H                                                     NUM       817
                                                  IFBIT  X5,-SNREF/SNDEF,PRLNK8                                  NUM       818
                                                  SA1    =10H REFER                                              NUM       819
                                         PRLNK8   BX6    X1                                                      NUM       820
                                                  =A6    A6+1                                                    NUM       821
                                                  SA1    =1H                                                     NUM       822
                                                  IFBIT  X5,-SNX/SNREF,PRLNK9                                    NUM       823
                                                  SA1    =10H EXIT SET                                           NUM       824
                                         PRLNK9   BX6    X1                                                      NUM       825
                                                  =A6    A6+1                                                    NUM       826
                                                  SA1    =1H                                                     NUM       827
                                                  IFBIT  X5,-SNE/SNX,PRLNK10                                     NUM       828
                                                  SA1    =10H ENTER SET                                          NUM       829
                                         PRLNK10  BX6    X1                                                      NUM       830
                                                  =A6    A6+1                                                    NUM       831
                                                  SA1    =1H                                                     NUM       832
                                                  IFBIT  X5,-SNDOT/SNE,PRLNK11                                   NUM       833
                                                  SA1    =10H DO NUMBER                                          NUM       834
                                         PRLNK11  BX6    X1                                                      NUM       835
                                                  =A6    A6+1                                                    NUM       836
                                                  BX6    0                                                       NUM       837
                                                  =A6    A6+1        END OF LINE                                 NUM       838
                                                  PLINE  PRLNKL      LINK INFORMATION                            NUM       839
                                                  RJ     =XRSR=      RESTORE REGISTERS                           NUM       840
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    21
  
  
                                                  EQ     PRLINKX                                                 NUM       841
                                         PRLKH    SPACE  4,8                                                     NUM       842
                                        **        PRINT LINE HEADER                                              NUM       843
                                        *                                                                        NUM       844
                                        *         DESTROYS A1 ONLY                                               NUM       845
                                                                                                                 NUM       846
                                                                                                                 NUM       847
                                         PRLKH    SUBR   0                                                       NUM       848
                                                  SA1    CO.SNAP                                                 NUM       849
                                                  LX1    1RN                                                     NUM       850
                                                  PL     X1,PRLKHX                                               NUM       851
                                                  RJ     =XSVR=      SAVE REGISTERS                              NUM       852
                                                  PLINE  PRLNKH,4,2  HEADER                                      FEAT126A 1009
                                                  RJ     =XRSR=      RESTORE REGISTERS                           NUM       854
                                                  EQ     PRLKHX      EXIT..                                      NUM       855
                                                                                                                 NUM       856
                                         PRLNKH   DIS    ,/        DUMP OF LINKS FOR CURRENT DO/                 NUM       857
                                         PRLNKL   BSSZ   12                                                      NUM       858
                                         TEST     ENDIF  TEST                                                    NUM       859
                                                  LIST   D                                                       NUM       860
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        PWE 
             0 X                        ALC 
             0 X                        MVE 
  
                                        CONTENT OF LITERALS BLOCK.
  
           342  00000000005105222252         (ERR)
  
           343                                    END                                                            NUM       861
  
                             55100B CM  STORAGE USED             1867 STATEMENTS      848 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.405 SECONDS         470 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*      18/36     19/05
        CDORD           0   EXTERNAL*       1/51 X   12/07
        CHAR            6   TSTEXT          2/57      3/06      3/10      3/16      3/21
                                            3/03      3/09      3/15      3/18
        CLK           175   PROGRAM*        1/43 E   11/56 L
        CLK10         211   PROGRAM*       12/47     12/52     12/57 L
        CLK30         212   PROGRAM*       12/26     13/06 L
        CLK40         216   PROGRAM*       13/10     13/21 L
        CLK5          203   PROGRAM*       12/25 L   13/02
        CLK50         220   PROGRAM*       13/15     13/21     13/30 L
        CLK51         224   PROGRAM*       13/40     13/43 L
        CLK52         225   PROGRAM*       13/51 L   14/06
        CLK53         230   PROGRAM*       13/55     13/57 L
        CLK55         232   PROGRAM*       13/52     14/11 L
        CLK6          206   PROGRAM*       12/34     12/43 L
        CLK7          210   PROGRAM*       12/32     12/51 L
        CO.SNAP         0   EXTERNAL*       1/48 X
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    22
        SYMBOLIC REFERENCE TABLE. 
  
        CPM             0   EXTERNAL*       2/12 X   11/40
        CR.LAB         14   TSTEXT          5/22
        CSB             0   EXTERNAL*       2/12 X   11/28
        CSNTAG          0   EXTERNAL*       1/51 X    5/20 S
        CUA            10   PROGRAM*        1/43 E    3/13 L    7/46
        CUAE           27   PROGRAM*        3/44      3/48 L
        CUAE1          23   PROGRAM*        3/29      3/39 L
        CUAE2          25   PROGRAM*        3/11      3/43 L
        CUAE3          26   PROGRAM*        2/52      2/54      3/46 L
        CUAFLAG         0   PROGRAM*        1/44 E    2/51 L    3/28
        CUA2           13   PROGRAM*        3/20 L    3/23      3/35
        CUA3           22   PROGRAM*        3/25      3/34 L
        CUA4            1   PROGRAM*        2/52 L    3/07      3/26
        CUA6            3   PROGRAM*        2/56 L    3/02
        C.STAT     240000   TSTEXT         16/46
        C.STN      240000   TSTEXT          8/49
        DLAB          152   PROGRAM*        1/43 E    9/21 L
        DODO          136   PROGRAM*        1/43 E    8/44 L
        DODO1         145   PROGRAM*        8/45      8/51      9/03 L
        DODO2         147   PROGRAM*        9/04      9/06 L
        DOORD           0   EXTERNAL*       1/51 X    4/57      7/37      9/29     12/03
                                            4/47      6/48      8/46      9/47
        DTI             0   EXTERNAL*       1/51 X    5/12 S   11/32
        ERT             0   EXTERNAL*       2/09 X    5/22      7/20
        ESN             0   EXTERNAL*       2/09 X    4/46      9/46
        E.DO12          0   EXTERNAL*       1/55 X    8/57
        E.DO24          0   EXTERNAL*       1/55 X    9/33     15/17
        E.DO25          0   EXTERNAL*       1/55 X   13/22     13/22
        E.DO25A         0   EXTERNAL*       1/55 X   17/48
        E.SN            0   EXTERNAL*       1/55 X    4/36
        E.SN12          0   EXTERNAL*       1/55 X   17/17     17/17
        E.SN13          0   EXTERNAL*       1/55 X    5/03      5/03
        E.SN14          0   EXTERNAL*       1/56 X    3/43
        E.SN15          0   EXTERNAL*       1/56 X    3/46
        E.SN18          0   EXTERNAL*       1/56 X    7/34
        E.SN19          0   EXTERNAL*       1/56 X    3/30
        E.SN20          0   EXTERNAL*       1/56 X    3/39
        E.SN9           0   EXTERNAL*       1/55 X    9/22
        FILL.           0   EXTERNAL*       1/57 X    3/17 S
        FILL.2          0   EXTERNAL*       1/57 X    7/39 S
        GSN            31   PROGRAM*        1/43 E    4/25 L
        GSNX            0   EXTERNAL*       2/12 X    4/26      5/22
        GSN10          46   PROGRAM*        4/31      4/57 L
        GSN11          52   PROGRAM*        5/01      5/07 L
        GSN20          55   PROGRAM*        5/08      5/14 L
        GSN45          57   PROGRAM*        4/49      4/52      5/16      5/19 L
        GSN5           40   PROGRAM*        4/30      4/44 L
        GSN60          60   PROGRAM*        4/40      5/22 L
        INIF            0   EXTERNAL*       2/15 X   11/24
        ISASG          62   PROGRAM*        1/44 E    6/24 L    7/05
        ISN           105   PROGRAM*        1/43 E    7/27 L
        ISNEX          64   PROGRAM*        6/34 L    9/01      9/23      9/34
        ISNEX1         63   PROGRAM*        6/28 L    8/21
        ISN10         123   PROGRAM*        8/02      8/04 L
        ISN2          110   PROGRAM*        7/32      7/35 L
        ISN3          113   PROGRAM*        7/41      7/43 L
        ISN40         157   PROGRAM*        7/52      9/44 L
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    23
        SYMBOLIC REFERENCE TABLE. 
  
        ISN60          66   PROGRAM*        1/43 E    6/45 L    9/24      9/30      9/32
        ISN70          70   PROGRAM*        6/56 L    9/51
        ISN72          76   PROGRAM*        7/01      7/03      7/06      7/08      7/13 L    8/32      9/03      9/10
        LABL          154   PROGRAM*        1/43 E    9/29 L
        LBDO          132   PROGRAM*        1/45 E    8/25 L
        LBDO1         134   PROGRAM*        8/26      8/29 L
        LOP=R           0   EXTERNAL*       1/48 X    7/13
        L.DOE           6   TSTEXT         19/05     19/06     19/08     19/15     19/16
        L.SLINK        15   TSTEXT         12/06     13/34     14/23     14/46     15/33     16/23     16/47     18/01
        L.SNAD         22   TSTEXT         14/23
        L.SNCLS        13   TSTEXT         14/23
        L.SYM          52   TSTEXT          7/35
        L.TAG          22   TSTEXT         14/23
        MASKNE        236   PROGRAM*       13/36     14/23 L
        MVE             0   EXTERNAL*      18/40     19/09
        M.SNDEF         2   TSTEXT          4/29
        M.SNDOT      1000   TSTEXT          7/02      8/04      8/53
        M.SNE          10   TSTEXT          8/27      9/06     12/13     14/23     16/14     17/13     17/44     17/57
        M.SNFMT       400   TSTEXT          6/56      8/04
        M.SNINA         4   TSTEXT         13/09
        M.SNLAB       200   TSTEXT          4/44      8/04
        M.SNOPE      2000   TSTEXT         13/11
        M.SNREF         1   TSTEXT          7/42     12/43     14/57
        M.SNX          20   TSTEXT         12/09     12/46     13/41     14/23     14/55     15/04     15/32
                                           12/46     13/06     14/15     14/55     15/04     15/24     16/41
        NOPATH          0   EXTERNAL*       1/51 X   11/27 S
        OR.DOSN         5   TSTEXT         18/55
        O.CONS          2   TSTEXT          7/31
        PDT             0   EXTERNAL*       2/18 X   11/35
        PIG             0   EXTERNAL*       2/03 X   11/39
        PSN           166   PROGRAM*        1/43 E   11/24 L
        PSN2          170   PROGRAM*       11/25     11/28 L
        PSN8          173   PROGRAM*       11/33     11/39 L
        PWE             0   EXTERNAL*       3/30      3/48      5/03     13/22     17/17
                                            3/39      4/36      6/35     15/17     17/48
        P.             73   TSTEXT          4/31      8/26      9/23     13/21     14/17     17/09
                                            8/02      8/45      9/32     13/55     15/13     17/41
        P.DOTAG        22   TSTEXT         11/34     18/56
        P.SLINK        13   TSTEXT         12/11     13/37     14/13     15/36     16/25     17/04     18/10
                                           12/25     13/51     14/48     15/42     16/49     18/04
        P.SNDEF         1   TSTEXT          4/31      5/01      8/02     15/13     15/14
        P.SNDOT        11   TSTEXT          5/08      8/45      9/03     17/09
        P.SNE           3   TSTEXT         13/21     15/22
        P.SNINA         2   TSTEXT          9/32     15/14     15/22
        P.SNLAB         7   TSTEXT          5/01      5/08      8/08      8/13
        P.SNOPE        12   TSTEXT          9/23     14/17
        P.SNREF         0   TSTEXT          8/26      9/03     13/55     17/41     17/42
        P.SNX           4   TSTEXT         17/42
        P.STN          22   TSTEXT          4/27      7/50
        P.TAG          52   TSTEXT          5/11      5/19      5/21      8/48     18/49
        P.2TAG         52   TSTEXT         16/43
        RDE           324   PROGRAM*        8/56     17/19     18/45 L   18/47
        RDE1          330   PROGRAM*       18/54 L   19/20
        RDE2          336   PROGRAM*       19/01     19/13 L
        RDE3          316   PROGRAM*       18/34 L   19/17
        REFNUM          0   EXTERNAL*       1/51 X    7/15
        SDL           264   PROGRAM*        4/51      5/18     16/18 L
1       /NUM  STATEMENT NUMBER TRANSLATORS                            COMPASS 3.7-871.     24/05/02. 15.52.18.      PAGE    24
        SYMBOLIC REFERENCE TABLE. 
  
        SDL20         303   PROGRAM*       16/27     17/40 L
        SDL25         311   PROGRAM*       17/41     17/42     17/56 L
        SDL40         263   PROGRAM*       16/14 L   16/44     17/07
        SDL5          273   PROGRAM*       17/04 L   17/09
        SFN             0   EXTERNAL*       2/06 X
        SRL           237   PROGRAM*        7/09     14/41 L
        SRL10         247   PROGRAM*       14/50     15/12 L
        SRL15         254   PROGRAM*       15/14     15/22 L
        SRL20         256   PROGRAM*       15/13     15/22     15/31 L
        SRL5          244   PROGRAM*       14/56     15/01 L
        SSN             0   EXTERNAL*       2/09 X    4/28      7/51
        STN             0   EXTERNAL*       1/51 X    4/39 S
        STNTD           0   EXTERNAL*       1/57 X    8/01
        STNTND          0   EXTERNAL*       1/57 X    8/03
        STNUSE        164   PROGRAM*        7/45 S    8/07      8/18      9/44      9/49     10/01 L
        STN0R         165   PROGRAM*        1/43 E    7/47 S   10/02 L
        TEST            0   TSTEXT         11/57 F   12/28 F   13/31 F   14/01 F   20/01 F
        TP=DO           0   EXTERNAL*       1/52 X   18/34     18/34 S   18/46     19/14     19/19     19/19 S
        TP.DO           0   EXTERNAL*       1/52 X   18/36     18/54     19/07     19/13
        TRVA            0   EXTERNAL*       2/21 X    7/17 S    7/21
        TS.STN          0   EXTERNAL*       1/51 X    4/28      5/05      7/49      8/52      9/50     16/45     17/49
                                            4/28      4/50      6/45      8/30      9/08     12/04     17/20
        TT=SCR          0   EXTERNAL*       1/52 X   18/35     18/41     18/41 S   18/52     18/52 S
        TT.SCR          0   EXTERNAL*       1/52 X   18/39     19/05
        WBL             0   EXTERNAL*       2/12 X
        WOF             0   EXTERNAL*       2/12 X
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2231              IDENT  PAR
                       2231                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2223 
                                        LITERALS* LOCAL        2223         6 
  
  
                                        ENTRY POINTS. 
  
                                        PAR.EOS        465+           POP.STD       1722+           C=ERR          555+ 
                                        PAR.HOL         70+           POP.PL        1524+           DO.ERR         754+ 
                                        PAR.TNK         52+           POP.CM         547+           C=DO           654+ 
                                        PAR.VAR        115+           POP.REL       1633+           C=FUN          560+ 
                                        PAR.PL         413+           POP.UM        1556+           C=GOT          566+ 
                                        PAR.MIN        424+           POP.LOG       1607+           A=ASF         1037+ 
                                        PAR.STD        430+           PAREXIT        503+           A=BEF         1063+ 
                                        PAR.LP         374+           POP.ST1       1734+           A=BIF         1125+ 
                                        PAR.EQL        405+           SOPR             2+           A=CALL        1170+ 
                                        PAR.CM         354+           SMOD             0+           A=DEC         1167+ 
                                        PAR.TRU        303+           IXLASTV       1012+           A=LIST        1242+ 
                                        PAR.FAL        303+           PAR             22+           A=DO          1243+ 
                                        PAR.DLP        402+           ADT           1742+           A=FUN         1207+ 
                                        POP.MUL       1532+           POPX           531+           A=IF          1237+ 
                                        POP.DIV       1505+           PAR.NX          42+           CURST            3+ 
                                        POP.PN        1020+           C=CERR         554+           CT2           2012+ 
                                        POP.RP        1013+           C=BEF          612+           SDM           2033+ 
                                        POP.REQ       1652+           C=BIF          627+           CNF             11+ 
                                        POP.NOT       1622+           C=CALL         560+           FAL           2020+ 
                                        POP.EXP       1246+           C=DEC          653+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.SNAP   CCONONE   SDIV      E.DO3     E.AT11    PSN       MODTBL    MVE 
                                        CO.TBK    DOORD     TT=PAR    E.DO4     E.AT12    TER1      O=GOC     E.LV11
                                        LOP=R     DOIX      TT.PAR    E.DO5     E.ANS3    TER2      R..2      O=RAGS1 
                                        ACONS     ENTRY.    TS.CON    E.DO8     E.CL3     CCC       R..3      O=RAGD1 
                                        ARGMIS    EXTFUN    TS.SYM    E.DO11    ALC.REG   CCR       R..4      E.XP5 
                                        ANDNOT    EXTFARM   TS.STN    E.DO16    ALC.00    CMC       R..5      E.TY
                                        ARGCOMA   ERROP     TP.DO     E.DO17    ERT       CMO       R..6      E.AT13
                                        ARGMODE   EQUAL     TP=DO     E.DO23    ESY       LCT       R..7      ALC 
                                        ATTR      FLOW      TG.PRO    E.GO9     ESC       A=ARRAY   R..8      O=GOCL
                                        ARRARM    INAFR     TT=ASF    E.GO10    NCM       ESF       R..9      TRLINE
                                        ASFARM    IN.EXP    TT.SCR    E.GO11    NCS       MXP       R..10     E.AT6 
                                        ASFLEN    INTMAC    TT=SCR    E.LP3     SSY       PSO       MODECON   ADW 
                                        BEFXARM   LASTAD    UMINUS    E.LP4     WOF       SSO       O=RAGDD   TP.ILI
                                        BIFFUN    LASTOP    VALUE.    E.MRA     DEC       VAM       O=RAGDS   E.VA3 
                                        BIFARM    LDEAD     VTRUE     E.TE1     STY       VEL       O=RAGSD   E.SU6 
                                        BINOUT    LPARM     ZLE       E.TE2     SLT       VIL       O=RAGSS   E.TE2B
                                        BEFFUN    LPAR      ZLEQUAL   E.TE2A    TSF       INLBASE   AFR       A=FMT 
                                        COD       MOD       DO.DPC    E.TE3     GOTA      I..2      CALLTAG   TLV 
                                        CALLOP    POPTBL    E.AT1     E.TE4     EMT       I..3      OSTACK    E.AT8 
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        CNFARM    PSTACK    E.AT1A    E.TE7     CRL       I..4      ESTACK    PWE 
                                        CONOTBL   PR.SLP    E.AT2     E.TE8     IFRESLT   I..5      SCR       E.AT10
                                        CSYMBOL   REGARG    E.AT3     E.XP1     IFMOD     I..6      SCR2      FEXPR 
                                        COMMA     REGARG2   E.AT5     E.XP2     CFC       I..7      TRVA      ANSI= 
                                        CHARMAP   REFVAR    E.DO      E.XP3     R.W       I..8      CST.BOS   E.AT9 
                                        CONONE    ROUTNAM   E.DO1     E.XP4     IODIR     I..9      E.AT7 
                                        CLPARM    REVMIN    E.DO2     FILL.     CML       I..10     DUC.BTH 
  
  
  
  
                                                  IDENT  PAR                                                     PAR         2
                                         PAR      SECT   (P A R S E),1                                           PAR         3
  
                                                                                                                 PAR         4
                                                  SST    A,B,C,D,E,F,Z                                           PAR         5
                                                  NOREF  A,B,C,D,E,F,Z                                           PAR         6
                                                                                                                 PAR         7
                                         B=PAR    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     PAR         8
                                                                                                                 PAR         9
                                                  ENTRY  PAR.EOS,PAR.HOL,PAR.TNK,PAR.VAR,PAR.PL,PAR.MIN,PAR.STD  PAR        10
                                                  ENTRY  PAR.LP,PAR.EQL,PAR.CM,PAR.TRU,PAR.FAL,PAR.DLP           FCC0616    26
                                                  ENTRY  POP.MUL,POP.DIV,POP.PN,POP.RP,POP.REQ,POP.NOT,POP.EXP   PAR        12
                                                  ENTRY  POP.STD,POP.PL,POP.CM,POP.REL,POP.UM,POP.LOG            FCC0616    27
                                                  ENTRY  PAREXIT,POP.ST1,SOPR,SMOD,IXLASTV,PAR,ADT,POPX          PAR        14
                                                  ENTRY  PAR.NX,C=CERR,C=BEF,C=BIF,C=CALL,C=DEC,C=ERR,DO.ERR     PAR        15
                                                  ENTRY  C=DO,C=FUN,C=GOT,A=ASF,A=BEF,A=BIF,A=CALL,A=DEC         FCC0787    59
                                                  ENTRY  A=LIST,A=DO,A=FUN,A=IF,CURST,CT2,SDM,CNF,FAL            FCC0787    60
                                                                                                                 PAR        19
                                        *         IN FTN                                                         PAR        20
                                                  EXT    CO.SNAP,CO.TBK,LOP=R                                    PAR        21
                                                                                                                 PAR        22
                                        *         IN TABLES                                                      PAR        23
                                                  EXT    ACONS,ARGMIS,ANDNOT,ARGCOMA,ARGMODE,ATTR,ARRARM,ASFARM  PAR        24
                                                  EXT    ASFLEN,BEFXARM,BIFFUN,BIFARM,BINOUT,BEFFUN,COD,CALLOP   PAR        25
                                                  EXT    CNFARM,CONOTBL,CSYMBOL,COMMA,CHARMAP,CONONE,CLPARM      PAR        26
                                                  EXT    CCONONE,DOORD,DOIX,ENTRY.,EXTFUN,EXTFARM,ERROP,EQUAL    PAR        27
                                                  EXT    FLOW,INAFR,IN.EXP,INTMAC,LASTAD,LASTOP,LDEAD,LPARM,LPAR PAR        28
                                                  EXT    MOD,POPTBL,PSTACK,PR.SLP,REGARG,REGARG2                 FCC1495AX   7
                                                  EXT    REFVAR,ROUTNAM,REVMIN,SDIV,TT=PAR,TT.PAR,TS.CON,TS.SYM  PAR        30
                                                  EXT    TS.STN,TP.DO,TP=DO,TG.PRO,TT=ASF,TT.SCR,TT=SCR,UMINUS   PAR        31
                                                  EXT    VALUE.,VTRUE,ZLE,ZLEQUAL                                PAR        32
                                                                                                                 PAR        33
                                        *         IN ERRORS                                                      PAR        34
                                                  EXT    DO.DPC,E.AT1,E.AT1A,E.AT2,E.AT3,E.AT5                   FCC1046    27
                                                  EXT    E.DO,E.DO1,E.DO2,E.DO3,E.DO4,E.DO5,E.DO8,E.DO11,E.DO16  PAR        36
                                                  EXT    E.DO17,E.DO23,E.GO9,E.GO10,E.GO11,E.LP3,E.LP4           FCC0787    62
                                                  EXT    E.MRA,E.TE1,E.TE2,E.TE2A,E.TE3,E.TE4,E.TE7,E.TE8,E.XP1  PAR        38
                                                  EXT    E.XP2,E.XP3,E.XP4,FILL.                                 PAR        39
                                                  EXT    E.AT11,E.AT12                                           FCC1294     8
                                                  EXT    E.ANS3                                                  FCC1638X    9
                                                  EXT    E.CL3                                                   FCC2307    12
                                                                                                                 PAR        40
                                        *         IN ALLOC                                                       PAR        41
                                                  EXT    ALC.REG,ALC.00,ERT,ESY,ESC,NCM,NCS,SSY                  PAR        42
                                                                                                                 PAR        43
                                        *         IN MAIN                                                        PAR        44
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     3
  
  
                                                  EXT    WOF                                                     PAR        45
                                                                                                                 PAR        46
                                        *         IN LEX                                                         PAR        47
                                                  EXT    DEC,STY,SLT,TSF                                         PAR        48
                                                                                                                 PAR        49
                                        *         IN KEY                                                         PAR        50
                                                  EXT    GOTA,EMT,CRL                                            PAR        51
                                                                                                                 PAR        52
                                        *         IN IF                                                          PAR        53
                                                  EXT    IFRESLT,IFMOD                                           FCC0616    28
                                                                                                                 PAR        55
                                        *         IN TSDATA                                                      FCC0787    63
                                                  EXT    CFC                                                     FCC0787    64
                                                                                                                 FCC0787    65
                                        *         IN IO                                                          PAR        56
                                                  EXT    R.W,IODIR,CML                                           PAR        57
                                                                                                                 PAR        58
                                        *         IN NUM                                                         PAR        59
                                                  EXT    PSN                                                     PAR        60
                                                                                                                 PAR        61
                                        *         IN CONRED                                                      PAR        62
                                                  EXT    TER1,TER2,CCC,CCR,CMC,CMO,LCT                           PAR        63
                                                                                                                 PAR        64
                                        *         IN GEN                                                         PAR        65
                                                  EXT    A=ARRAY,ESF,MXP,PSO,SSO,VAM,VEL,VIL                     FCC0519     4
                                                  EXT    INLBASE,I..2,I..3,I..4,I..5                             PAR        67
                                                  EXT    I..6,I..7,I..8,I..9,I..10,MODTBL,O=GOC                  FCC0878     4
                                                  EXT    R..2,R..3,R..4,R..5,R..6,R..7,R..8,R..9,R..10           FCC0878     5
                                                  EXT    MODECON,O=RAGDD,O=RAGDS,O=RAGSD,O=RAGSS                 PAR        70
                                                                                                                 PAR        71
                                        *         IN ASF                                                         PAR        72
                                                  EXT    AFR                                                     PAR        73
                                                                                                                 PAR        74
                                        *         IN INIT                                                        PAR        75
                                                  EXT    CALLTAG,OSTACK,ESTACK,SCR,SCR2,TRVA,CST.BOS             PAR        76
                                                                                                                 PAR        77
                                                                                                                 PAR        78
                                                                                                                 PAR        79
                                        **        GENERAL COMMENT TO THOSE WHO GET THIS FAR --                   PAR        80
                                        *                                                                        PAR        81
                                        *         I THINK THAT I SHALL NEVER SEE                                 PAR        82
                                        *         A SUBROUTINE THAT WORKS FOR ME                                 PAR        83
                                        *         A MACRO OR ZERO TEST                                           PAR        84
                                        *         THAT ISNT JUST A RODENTS NEST                                  PAR        85
                                        *         A STRING THAT DOESNT ALWAYS STRAY                              PAR        86
                                        *         AND MIX UP BITS IN WILD ARRAY                                  PAR        87
                                        *         A PROCESS WITH RE-ENTRANT FLAIR                                PAR        88
                                        *         THAT ISNT JUST A LOOPING SNARE                                 PAR        89
                                        *         ROUTINES WHOSE TIMINGS ARE NOT SLAIN                           PAR        90
                                        *         WHEN INTERRUPTS BEGIN TO RAIN                                  PAR        91
                                        *         ONLY GOD CAN MAKE A TREE                                       PAR        92
                                        *         BUT, BUGS ARE MADE BY GUYS LIKE ME.                            PAR        93
                                        *                                                                        PAR        94
                                        *         TRADITIONAL.                                                   PAR        95
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     4
                                                                      MISS
  
                                                  MACRO  PARSNAP,NAME                                            PAR        97
                                         NAME     REG                                                            PAR        98
                                         OPSTACK  CORE   OSTACK,8                                                PAR        99
                                         ELSTACK  CORE   ESTACK,8                                                PAR       100
                                         ARGCMOM  CORE   ARGCOMA,3                                               PAR       101
                                                  ENDM                                                           PAR       102
  
  
  
  
                                        **        MISCELLANEOUS CELLS USED BY PARSER                             PAR       104
                                                                                                                 PAR       105
             0  00000000000000000000     SMOD     DATA   0           SUB-EXPRESSION DOMINANT MODE.               PAR       106
             1                     1     SMOD1    BSS    1           MODE CONVERSION OFFSET TO MODECON           PAR       107
             2  00000000000000000000     SOPR     DATA   0            -     -       OPERATOR.                    PAR       108
             3  00000000000000000000     CURST    DATA   0            -     -       START.                       PAR       109
             4  00000000000000000000     SOPR1    DATA   0                                                       PAR       110
             5  00000000000000000000     SOPR2    DATA   0                                                       PAR       111
             6                     2     POPDPC   BSS    2           DPC FOR OPERATOR CAUSING AN OPERATOR TO BE  PAR       112
                                                                     POPPED.                                     PAR       113
                                   7 +   POPPER   EQU    POPDPC+1    OPERATOR (SETOP) WORD FOR *POPDPC*          PAR       114
            10                     1     CMLFLG   BSS    1           I/O RESTART CALLS INDICATOR                 PAR       115
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     5
                                                                      CNF 
  
                                        **        CNF -  COMPILE NORMAL FORMULA                                  PAR       117
                                                                                                                 PAR       118
                                                                                                                 PAR       119
            11  5110000000 X             CNF      SA1    ZLEQUAL                                                 PAR       120
                          63411                   =B4    X1+1        START AT RIGHT SIDE OF LAST *=*             FCC0787    66
                               10611              BX6    X1                                                      PAR       123
            12  5160000000 X                      SA6    ZLE         SET                                         PAR       124
                          53110                   SA1    X1                                                      FCC0498    31
                               21122              AX1    P.SYM                                                   FCC0498    32
            13  0301000015 +                      ZR     X1,CNF1     IF NO MULTIPLE ASSIGNMENT                   FCC0498    33
                          6170000000 X            ANSI   =XE.AT9                                                 FCC0498    34
                                                                                                                 PAR       125
                                        **        PARSE STATEMENT.                                               PAR       126
                                                                                                                 PAR       127
            15  5130000000 X             CNF1     SA3    CNFARM                                                  FCC0498    35
                          76700                   =X7    0                                                       PAR       129
                               22603              LX6    X3                                                      PAR       130
            16  5170000000 X                      SA7    ARGCOMA                                                 PAR       131
                          5160000000 X            SA6    ARGMODE                                                 PAR       132
            17  0100000000 X                      RJ     MXP         MARK EXTERNAL PROCESS START                 PAR       133
            20  0100000022 +                      RJ     PAR         PARSE STATEMENT.                            PAR       134
                                                                                                                 PAR       135
            21  0400000000 X                      EQ     PSN         CONTINUE WITH PARSED BLOCK INTACT.          PAR       136
                                                                                                                 PAR       137
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     6
                                                                      PARSE 
  
                                        **        PAR -  ARITHMETIC STATEMENT PARSING ROUTINE.                   PAR       139
                                        *                                                                        PAR       140
                                        *         A GENERAL PURPOSE *ONE-PASS* ARITHMETIC PARSING ROUTINE USING  PAR       141
                                        *         PSEUDO REVERSE POLISH ALGORITHM. (N-TURPLE)                    PAR       142
                                        *                                                                        PAR       143
                                        *         THIS ROUTINE WILL TRANSLATE ANY ARITHMETIC, LOGICAL,           PAR       144
                                        *         RELATIONAL, OR MASKING EXPRESSION INTO PSEUDO- POLISH          PAR       145
                                        *         NOTATION.                                                      PAR       146
                                        *                                                                        PAR       147
                                        *         ENTRY                                                          PAR       148
                                        *                B4 _ POINTS TO WHERE PAR IS TO START PROCESSING.        PAR       149
                                        *                                                                        PAR       150
                                        *                (ARGMODE) = PRESET TO INDICATE CURRENT MODE OF          PAR       151
                                        *                            EXPRESSION *PARSE* WILL HANDLE.             PAR       152
                                        *                                                                        PAR       153
                                        *                (ARGCOMA) = PRESET TO CURRENT ARGUMENT COUNT.           PAR       154
                                        *                                                                        PAR       155
                                        *                (CURST) = ORDINAL, RELATIVE TO TT.PAR, POINTING TO      PAR       156
                                        *                          BREAK FOR SQUEEZING PROCESS.                  PAR       157
                                        *                                                                        PAR       158
                                        *         EXIT   (B4) _ LAST ELEMENT PROCESSED.                          PAR       159
                                        *                                                                        PAR       160
                                        *                                                                        PAR       161
                                        *         --------------- L O C K  -  R E G I S T E R S --------------   PAR       162
                                        *                       B4 _ POINTS TO CURRENT *SB* ENTRY                PAR       163
                                        *                       B5 _ CURRENT OP-STACK ENTRY                      PAR       164
                                        *                       B6 _ CURRENT ELEMENT ENTRY                       PAR       165
                                        *         NO ROUTINE CALLED BY *PAR* MAY DESTROY ANY OF THE ABOVE REGS.  PAR       166
                                        *         ------------------------------------------------------------   PAR       167
                                        *                                                                        PAR       168
                                        *         USES   ALL REGISTERS.                                          PAR       169
                                                                                                                 PAR       170
                                                                                                                 PAR       171
                                                                                                                 PAR       172
            22  0400400022 +             PAR      SUBR   0                                                       PAR       173
            23  5110000000 X                      SA1    TT=PAR                                                  PAR       174
                          5120000000 X            SA2    ARGMODE                                                 PAR       175
            24  6160000000 X                      SB6    ESTACK      SET UP *B6* _ ELEMENT STACK.                PAR       176
                          10611                   BX6    X1                                                      PAR       177
                               43700              MX7    0                                                       PAR       178
            25  7202776535 -                      SX0    X2-A=LIST                                               PAR       179
                          5170000010 +            SA7    CMLFLG      INITIALIZE                                  PAR       180
            26  0310000030 +                      NZ     X0,PAR1     IF NOT I/O LIST ITEM                        PAR       181
                          5110000000 X            SA1    IODIR                                                   PAR       182
            27  0311000030 +                      NZ     X1,PAR1     IF NOT INPUT                                PAR       183
                          76710                   =X7    1                                                       PAR       184
                               54770              SA7    A7          FLAG FOR I/O LIST ITEMS IN INPUT            PAR       185
            30  6150000000 X             PAR1     SB5    OSTACK      SET UPT *B5* _ OPERATOR STACK               PAR       186
                          21260                   AX2    P.AMR                                                   PAR       187
                               13777              BX7    0                                                       PAR       188
            31  5160000000 X                      SA6    LDEAD       SET = LENGTH + 1 OF TT.PAR ON ENTRY         PAR       189
                          5170000000 X            SA7    INAFR       INDICATE NO STATEMENT FUNCTION EXPANSION    PAR       190
            32  73620                             SX6    X2                                                      PAR       191
                     7170000000                   SX7    O.EOS                                                   PAR       192
            33  5160000000 X                      SA6    REFVAR      RESET CURRENT REFERNCE VALUE.               PAR       193
                          5170000000 X            SA7    OSTACK      EOS TO OPERATOR STACK.                      PAR       194
            34  56540                             SA5    B4                                                      FCC0787    67
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     7
                                                                      PARSE 
  
                     63350                        SB3    X5                                                      FCC0787    68
                          5130000000 X            SA3    =XFEXPR                                                 FCC0787    69
            35  22433                             LX4    B3,X3                                                   FCC0787    70
                     0334000042 +                 MI     X4,PAR.NX   IF FIRST ELEMENT LEGAL                      FCC0787    71
                               43052              MX0    L.CDPC                                                  FCC0787    72
            36  5215000000 X                      SA1    X5+CHARMAP                                              FCC0787    73
                          11601                   BX6    X0*X1                                                   FCC0787    74
            37  5160000000 X                      SA6    FILL.                                                   FCC0787    75
                          6170000000 X            FATAL  =XE.AT10                                                FCC0787    76
            41  0305000465 +                      ZR     X5,PAR.EOS  IF *EOS* FIRST ELEMENT                      FCC0787    77
                          0400000461 +            EQ     PAREX11                                                 FCC0787    78
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     8
                                                                      PAR.NX
  
                                        **        PARSE MASTER LOOP.                                             PAR       196
                                        *         PAR.NX LOADS THE NEXT ELEMENT AND FOLLOWING ELEMENT AND        PAR       197
                                        *         CHECKS IF AN ILLEGAL OPERATOR/OPERAND COMBINATION IS ABOUT     PAR       198
                                        *         TO BE PROCESSED.                                               PAR       199
                                        *                                                                        PAR       200
                                        *         IF LEGAL COMBINATION.                                          PAR       201
                                        *                JUMP TO PROCESS ELEMENT.                                PAR       202
                                        *                                                                        PAR       203
                                        *         IF ILLEGAL COMBINATION.                                        PAR       204
                                        *                JUMP TO PAR.EX TO OUTPUT COMBINATION THAT IS IN ERROR   PAR       205
                                        *                AND EXIT PAR.                                           PAR       206
                                        *                                                                        PAR       207
                                        *         UPON EXIT FROM PAR.NX REGISTERS ARE SET TO --                  PAR       208
                                        *                                                                        PAR       209
                                        *         (X1) = CURRENT *SB* ENTRY.                                     PAR       210
                                        *         (X3) = LAST OPERATOR STACK ENTRY.                              PAR       211
                                        *         (X5) = NEXT    *SB* ENTRY.                                     PAR       212
                                                                                                                 PAR       213
            42  56140                    PAR.NX   SA1    B4          NEXT ENTRY                                  PAR       214
                     56541                        SA5    B4+B1                                                   PAR       215
                          0301000465 +            ZR     X1,PAR.EOS  IF END OF STATEMENT. (*EOS*)                PAR       216
            43  63350                             SB3    X5                                                      PAR       217
                     5231000000 X                 SA3    X1+CONOTBL-O.DEF                                        PAR       218
            44  6123777740                        SB2    B3-O.PERIOD                                             PAR       219
                          22433                   LX4    B3,X3                                                   PAR       220
            45  5221777773 X                      SA2    X1+PSTACK-O.PL                                          PAR       221
                          63730                   SB7    X3          JUMP ADDRESS                                PAR       222
                               56350              SA3    B5                                                      PAR       223
                                                                                                                 PAR       224
                                         SNAP=Z   IFNE   TEST        DUMP PARSE TABLES                           PAR       225
                                                  SA3    CO.SNAP                                                 PAR       226
                                                  LX3    1RZ                                                     PAR       227
                                                  PL     X3,PAR.NXS  IF PARSE SNAP NOT SELECTED                  PAR       228
                                                  SA3    B5                                                      PAR       229
                                         MASTER   PARSNAP                                                        PAR       230
                                         PAR.NXS  SA3    B5                                                      PAR       231
                                         SNAP=Z   ENDIF                                                          PAR       232
                                                                                                                 PAR       233
            46  0602000051 +                      LE     B2,PAR.NX1  IF NORMAL OPERATOR/OPERAND                  FCC0787    79
                                        *         TEST FOR I/O DO BEGIN                                          FCC0787    80
                                                                                                                 FCC0787    81
                                                                                                                 FCC0787    82
                          6123777707              SB2    B3-IO.DOB   IO.DOB ALLOWED TO FOLLOW COMMA              FCC0787    83
            47  6231777764                        SB3    X1-O.COMMA                                              FCC0787    84
                          0520000441 +            NZ     B2,PAREX                                                FCC0787    85
            50  0530000441 +                      NZ     B3,PAREX                                                FCC0787    86
                          0277000000              JP     B7                                                      FCC0787    87
                                                                                                                 FCC0787    88
            51  0324000441 +             PAR.NX1  PL     X4,PAREX    IF ILLEGAL OPERATOR COMBINATION             FCC0787    89
                                                                                                                 PAR       236
                          0277000000              JP     B7          JUMP TO PROCESS CURRENT ELEMENT.            PAR       237
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE     9
                                                                      PAR.TNK 
  
                                        **        TNK -  TRANSLATE CONSTANT                                      PAR       239
                                        *                                                                        PAR       240
                                        *         ENTRY  B4 _ TO CONSTANT TO BE TRANSLATED.                      PAR       241
                                        *                                                                        PAR       242
                                        *         EXIT   (X6) = TAG FOR CONSTANT.                                PAR       243
                                        *                (B7) = ORDINAL OF TAG.                                  PAR       244
                                        *                                                                        PAR       245
                                        *         USES   CANNOT DESTROY - B4,B5,B6                               PAR       246
                                        *                                                                        PAR       247
                                        *         CALLS  DEC, NCM, NCS                                           PAR       248
                                                                                                                 PAR       249
                                                                                                                 PAR       250
                                        **        TRANSLATE CONSTANT TO INTERNAL BINARY USING *DEC*              PAR       251
                                        *         RETURN WITH                                                    PAR       252
                                        *                (X1) = MODE OF CONSTANT.                                PAR       253
                                        *                (X6) = UPPER HALF OF CONSTANT.                          PAR       254
                                        *                (X2) = LOWER HALF OF CONSTANT. (IF *DBL*)               PAR       255
                                                                                                                 PAR       256
            52  0100000000 X             PAR.TNK  RJ     DEC         TRANSLATE TO INTERNAL BINARY                PAR       257
            53  6221777773                        =B2    X1-M.DBL                                                PAR       258
                          10711                   BX7    X1          MODE                                        PAR       259
            54  0520000063 +                      NZ     B2,TNK.ENT  IF NOT *DOUBLE*                             PAR       260
                                                                                                                 PAR       261
                                        **        HERE IF CONSTANT = DOUBLE                                      PAR       262
                                        *         (X2) = LOWER HALF OF CONSTANT                                  PAR       263
                                        *         (X6) = REAL PART.                                              PAR       264
                                        *         (X7) = MODE.                                                   PAR       265
                                                                                                                 PAR       266
            55  5160000000 X             TNK.DBL  SA6    SCR         1ST WORD OF CONSTANT                        PAR       267
                          10622                   BX6    X2                                                      PAR       268
                               54661              =A6    A6+1        2ND WORD                                    PAR       269
            56  54761                             =A7    A6+1        MODE                                        PAR       270
                     6120000000 X                 SB2    SCR         FWA                                         PAR       271
            57  5110000000 X                      SA1    TS.CON                                                  PAR       272
                          6132000002              SB3    B2+2        LWA+1                                       PAR       273
            60  0100000000 X                      RJ     NCM         SCAN/ENTER INTO CONSTANT TABLE.             PAR       274
            61  5130000002 X                      SA3    SCR+2       MODE                                        PAR       275
                          7167340000              SX6    B7+C.CON    FORM TAG                                    PAR       276
            62  20652                             LX6    P.TAG                                                   PAR       277
                     12663                        BX6    X6+X3       ADD IN MODE BITS.                           PAR       278
                          0400000064 +            EQ     TNK40       CONTINUE                                    PAR       279
                                                                                                                 PAR       280
                                        **        ENTRY SINGLE WORD CONSTANT.                                    PAR       281
                                        *         (X6) = CONSTANT. (IN BINARY)                                   PAR       282
                                        *         (X7) = MODE.                                                   PAR       283
                                                                                                                 PAR       284
            63  0100000000 X             TNK.ENT  RJ     NCS         SCAN/ENTRY CONSTANT                         PAR       285
            64  56241                    TNK40    =A2    B4+1                                                    PAR       286
                     5110000000 X                 SA1    ACONS                                                   PAR       287
                               66441              =B4    B4+1                                                    PAR       288
            65  63320                             SB3    X2                                                      PAR       289
                     56660                        SA6    B6                                                      PAR       290
                          22431                   LX4    B3,X1                                                   PAR       291
                               66661              =B6    B6+1                                                    PAR       292
            66  0334000042 +                      MI     X4,PAR.NX   IF NEXT OK TO FOLLOW CONSTANT               PAR       293
                          57141                   =A1    B4-1        SET TOKEN FOR ERROR MESSAGE                 PAR       294
                               56540              SA5    B4          SET TOKEN FOR ERROR MESSAGE                 PAR       295
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    10
                                                                      PAR.TNK 
  
            67  6144777776                        SB4    B4-1        RESET TOKEN POINTER                         FCC2196     5
                          0400000441 +            EQ     PAREX                                                   PAR       296
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    11
  
  
                                        **        HERE IF *ELEMENT* IS A *HOLLERITH CONSTANT*                    PAR       298
                                                                                                                 PAR       299
            70  10011                    PAR.HOL  BX0    X1                                                      PAR       300
                     21022                        AX0    P.LCON                                                  PAR       301
                          43263                   MX2    -L.LCON                                                 FCC0844    25
                               15702              BX7    -X2*X0                                                  PAR       303
            71  63770                             SB7    X7                                                      PAR       304
                     0471000101 +                 EQ     B7,B1,PAR.HOL5 IF LENGTH=1,OK ANYWHERE                  PAR       305
            72  5130000000 X                      SA3    ARGMODE                                                 PAR       306
                          10411                   BX4    X1                                                      PAR       307
                               20323              IFBIT  X3,AMWHOL,PAR.HOL3                                      PAR       308
            74  6170000000 X             PAR.HOL2 NOTE   E.AT3       HOLLERITH MORE THAN ONE WORD - TRUNCATED    PAR       309
            75  10144                             BX1    X4                                                      PAR       310
                     76700                        =X7    0                                                       PAR       311
                          0400000101 +            EQ     PAR.HOL5                                                PAR       312
                                                                                                                 PAR       313
            76  56241                    PAR.HOL3 =A2    B4+1                                                    PAR       314
                     6272777764                   SB7    X2-O.COMMA                                              PAR       315
            77  0302000101 +                      ZR     X2,PAR.HOL4 IF NEXT *EOS*                               PAR       316
                          6222777766              SB2    X2-O.RP                                                 PAR       317
           100  0470000101 +                      ZR     B7,PAR.HOL4 IF NEXT *,*                                 PAR       318
                          0520000074 +            NZ     B2,PAR.HOL2 IF NEXT NOT *)* - NOT ARGUMENT              PAR       319
           101                           PAR.HOL4 BSS    0                                                       PAR       320
                                                                                                                 PAR       321
           101  43022                    PAR.HOL5 MX0    L.2TAG                                                  PAR       322
                     5130000000 X                 SA3    ARGMODE                                                 PAR       323
                               11601              BX6    X0*X1       TAG                                         PAR       324
           102  6273776535 -                      SB7    X3-A=LIST                                               PAR       325
                          0570000110 +            NZ     B7,PAR.HOL7 IF NOT IN LIST PROCESSING                   PAR       326
           103  7130000002                        SX3    M.INT       DEFAULT TYPE FOR HOLL CONSTANTS IN APLIST   PAR       327
                          5120000000 X            SA2    R.W                                                     PAR       328
           104  12663                             BX6    X6+X3       TAG + LENGTH                                PAR       329
                     0302000107 +                 ZR     X2,PAR.HOL6 IF NOT LIST-DIRECTED I/O                    PAR       330
                               21133              AX1    P.CLCON                                                 PAR       331
           105  43055                             MX0    -L.CLCON                                                FCC0844    26
                     15310                        BX3    -X0*X1                                                  FCC0844    27
                          0303000107 +            ZR     X3,PAR.HOL6 IF NOT A CHAR STRING                        PAR       333
           106  43701                             MX7    1                                                       PAR       334
                     5170000000 X                 SA7    R.W         SET FLAG FOR CHAR STRING                    PAR       335
                               73730              SX7    X3                                                      PAR       336
           107  20736                    PAR.HOL6 LX7    P.2BIAS+L.MSHORT                                        PAR       337
                     12667                        BX6    X6+X7       TAG + LENGTH + MODE                         PAR       338
           110  5130000000 X             PAR.HOL7 SA3    ARGMODE                                                 FCC0498    36
                          6273776607 -            SB7    X3-A=CALL                                               FCC0498    37
           111  0470000113 +                      ZR     B7,PAR.HOL8 IF HOLLERITH IN CALL ARGUMENT LIST          FCC0498    38
                          6170000000 X            ANSI   =XE.AT8                                                 FCC0498    39
           113  66441                    PAR.HOL8 =B4    B4+1                                                    FCC0498    40
                     56660                        SA6    B6                                                      PAR       340
                          66661                   SB6    B6+B1                                                   PAR       341
           114  0400000042 +                      EQ     PAR.NX      CONTINUE                                    PAR       342
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    12
                                                                      TRE 
  
                                        **        TRE -  TRANSLATE ELEMENT.                                      PAR       344
                                        *                                                                        PAR       345
                                        *         TRE FIRST SCANS THE SYMBOL TABLE TO CHECK IF ELEMENT HAS       PAR       346
                                        *         ALREADY BEEN TAGGED.  IF IT HAS IT DOES SOME SIMPLE SYNTAX     PAR       347
                                        *         CHECKING AND EXITS.  IF NOT IT THEN CHECKS THE SYNTAX USAGE    PAR       348
                                        *         AND DEPENDING ON ITS USE WILL EITHER ---                       PAR       349
                                        *                                                                        PAR       350
                                        *         A. CALL TSF TO TRANSLATE SPECIAL FUNCTION.                     PAR       351
                                        *         B. ENTER TAG INTO SYMBOL TABLE AS A VARIABLE.                  PAR       352
                                        *                                                                        PAR       353
                                        *         IN ALL CASES TRE WILL SET UP THE EXIT CONDITIONS NEEDED FOR    PAR       354
                                        *         PARSE TO MAKE SENSE OUT OF THIS MESS.                          PAR       355
                                        *                                                                        PAR       356
                                        *         ENTRY  (B4) _ ELEMENT TO TRANSLATE.                            PAR       357
                                        *                      (MUST CONTAIN O.VAR BITS IN LOW ORDER.)           PAR       358
                                        *                                                                        PAR       359
                                        *         EXIT   (X6) = SYMBOL TABLE ENTRY.                              PAR       360
                                        *                (B2) =                                                  PAR       361
                                        *                            IF VARIABLE   PAR.NX                        PAR       362
                                        *                            IF ARRAY      PAR.SUB                       PAR       363
                                        *                            IF FUNCTION   PAR.FUN  (IF ALREADY IN TABLE PAR       364
                                        *                                          PAR.FUN  (IF 1ST REFERENCE)   PAR       365
                                        *                                                                        PAR       366
                                        *         USES   CANNOT DESTROY  A4,A5,A7  B4,B5,B6                      PAR       367
                                        *                                                                        PAR       368
                                        *         CALLS  SCAN, TRV, TSF.                                         PAR       369
                                                                                                                 PAR       370
                                                                                                                 PAR       371
           115  56140                    PAR.VAR  SA1    B4                                                      PAR       372
                     43052                        MX0    L.SYM                                                   PAR       373
                          11601                   BX6    X0*X1       SYMBOL ONLY                                 PAR       374
                               13777              BX7    0                                                       PAR       375
           116  5160000000 X                      SA6    FILL.       IN CASE OF ERROR.                           PAR       376
                          5170000000 X            SA7    ATTR        CLEAR ATTRIBUTE CELL                        PAR       377
           117  5160000000 X                      SA6    CSYMBOL     SAVE CURRENT SYMBOL                         PAR       378
                          56241                   =A2    B4+1                                                    PAR       379
           120  6272777774                        SB7    X2-O.VAR                                                PAR       380
                          0570000122 +            NZ     B7,PAR.VAR2 IF LESS THAN 8 CHARACTERS IN NAME           PAR       381
           121  0100000000 X                      RJ     =XTLV       TRUNCATE NAME -- SORT OF                    PAR       382
           122  5110000000 X             PAR.VAR2 SCAN   TS.SYM,SSY                                              PAR       383
           123  5130000000 X                      SA3    REFVAR                                                  PAR       384
                          7170010000              =X7    M.VAR                                                   PAR       385
           124  6223777723                        SB2    X3-CR.STR                                               PAR       386
                          0520000126 +            NZ     B2,TRE6     IF NOT PROCESSING A *SET*                   PAR       387
           125  7170010010                        =X7    M.VAR+M.DEF                                             PAR       388
           126  0770000244 +             TRE6     MI     B7,TRE80    IF *NIT*                                    PAR       389
                                                                                                                 PAR       390
                                        **        HERE IF ELEMENT ALREADY IN SYMBOL TABLE.                       PAR       391
                                        *                                                                        PAR       392
                                        *         GO THRU SEQUENCE OF CHECKS FOR PROPER USE.                     PAR       393
                                        *         1. CHECK IF CLASS = ARRAY.                                     PAR       394
                                        *                YES - CHECK IF FOLLOWED BY *(*                          PAR       395
                                        *                   IF NOT OUTPUT ANSI MESSAGE NOTING REFERENCE TO       PAR       396
                                        *                   AN ARRAY WITHOUT SUBSCRIPT.                          PAR       397
                                        *                                                                        PAR       398
                                        *                NOT - GO TO 2.                                          PAR       399
                                        *         2. CHECK IF IT IS A VARIABLE.                                  PAR       400
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    13
                                                                      TRE 
  
                                        *                YES - CHECK IF FOLLOWED BY *(*                          PAR       401
                                        *                   IF SO OUTPUT ILLEGAL USE OF VARIABLE.                PAR       402
                                        *                NO  - GO TO 3.                                          PAR       403
                                        *                                                                        PAR       404
                                        *         3. CHECK IF IT IS A FUNCTION.                                  PAR       405
                                                                                                                 PAR       406
                          56141                   =A1    B4+1                                                    PAR       407
                               10366              BX3    X6                                                      PAR       408
           127  7201777767                        SX0    X1-O.(                                                  PAR       409
                          20355                   IFBIT  X3,-RP,TRE7 IF NOT RETURNS-ARG                          PAR       410
                          6170000000 X            FATAL  E.MRA       RETURNS-ARG NOT ALLOWED                     PAR       411
           132  6120000042 +                      =B2    PAR.NX                                                  PAR       412
                          0400000253 +            EQ     TREX        EXIT..                                      PAR       413
           133  20302                    TRE7     IFBIT  X3,-VAR/RP,TRE30  IF NOT VARIABLE                       PAR       414
                               20304              IFBIT  X3,-ARY/VAR,TRE22 IF NOT ARRAY                          PAR       415
                          12667                   BX6    X6+X7                                                   PAR       416
           135  7170040000                        SX7    M.2ARY                                                  PAR       417
                          6120000275 +            SB2    PAR.SUB                                                 PAR       418
           136  54620                             SA6    A2          RESET TAG WITH APPROPIATE CLASS BITS.       PAR       419
                     5170000000 X                 SA7    ATTR                                                    PAR       420
           137  0100001770 +                      RJ     CIL         CHECK IF ILLEGAL LEVEL                      PAR       421
           140  0300000253 +                      ZR     X0,TREX     IF ARRAY FOLLOWED BY *(*                    PAR       422
                          5130000000 X            SA3    ARGMODE                                                 PAR       423
           141  6170000000 X                      SB7    E.TE4                                                   PAR       424
                          6233776535 -            SB3    X3-A=LIST                                               PAR       425
           142  0430000150 +                      ZR     B3,TRE8     IF IN I/O LIST PROCESSING                   PAR       426
                          6233776607 -            SB3    X3-A=CALL                                               PAR       427
           143  0430000151 +                      ZR     B3,TRE10    IF IN CALL PROCESSING                       PAR       428
                          6233776570 -            SB3    X3-A=FUN                                                PAR       429
           144  0430000151 +                      ZR     B3,TRE10    IF IN EXTERNAL FUNCTION PROCESSING          PAR       430
                          6120000000 X            SB2    =XA=FMT                                                 PAR       431
           145  63330                             SB3    X3                                                      PAR       432
                     67332                        SB3    B3-B2                                                   PAR       433
                          0430000150 +            ZR     B3,TRE8     IF FORMAT INDICATOR                         PAR       434
           146  0100000000 X                      ANSI   B7                                                      PAR       435
           147  0400000151 +                      EQ     TRE10                                                   PAR       436
                                                                                                                 PAR       437
           150  7277002200               TRE8     =X7    X7+M.ADDR+M.ARE   INDICATE NOT SINGLE ELEMENT           FCC1134    26
                          54770                   SA7    A7                                                      PAR       439
                                                                                                                 PAR       440
           151  6120000042 +             TRE10    SB2    PAR.NX                                                  PAR       441
                          0400000253 +            EQ     TREX        EXIT..                                      PAR       442
                                                                                                                 PAR       443
                                                                                                                 PAR       444
                                        *         HERE IF POSSIBLE VARIABLE.                                     PAR       445
                                                                                                                 PAR       446
           152  12667                    TRE22    BX6    X6+X7       ADD IN CLASS BITS                           PAR       447
                     6120000042 +                 SB2    PAR.NX      INDICATE VARIABLE.                          PAR       448
                               54620              SA6    A2          RESET TAG WITH APPROPIATE CLASS BITS.       PAR       449
           153  0100001770 +                      RJ     CIL         CHECK IF ILLEGAL LEVEL                      PAR       450
           154  0310000253 +                      NZ     X0,TREX     IF NOT FOLLOWED BY *(*                      PAR       451
                          6170000000 X            FATAL  E.TE1       ILLEGAL *(* FOLLOWING VARIABLE NAME.        PAR       452
                                                                                                                 PAR       453
                                        *         SKIP OVER BAD PARENTHESIZED EXPRESSION                         PAR       454
                                                                                                                 PAR       455
           156  66441                             =B4    B4+1                                                    PAR       456
           157  66310                    TRE22A   =B3    1           INITIALIZE *LP* COUNTER                     PAR       457
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    14
                                                                      TRE 
  
                     66200                        =B2    0           INITIALIZE *RP* COUNTER                     PAR       458
           160  66441                    TRE23    =B4    B4+1                                                    PAR       459
                     56140                        SA1    B4                                                      PAR       460
                          0301000000 X            ZR     X1,PSN      IF *EOS* - EXIT...                          PAR       461
           161  6271777767                        SB7    X1-O.(                                                  PAR       462
                          0470000164 +            ZR     B7,TRE24    IF *(*                                      PAR       463
           162  6271777766                        SB7    X1-O.)                                                  PAR       464
                          0470000165 +            ZR     B7,TRE25    IF *)*                                      PAR       465
           163  0400000160 +                      EQ     TRE23                                                   PAR       466
           164  66331                    TRE24    =B3    B3+1                                                    PAR       467
                     0400000160 +                 EQ     TRE23                                                   PAR       468
           165  66221                    TRE25    =B2    B2+1                                                    PAR       469
                     0523000160 +                 NE     B2,B3,TRE23                                             PAR       470
           166  6120000042 +                      SB2    PAR.NX                                                  PAR       471
                          0400000253 +            EQ     TREX        EXIT..                                      PAR       472
                                                                                                                 PAR       473
                                        *         HERE IF POSSIBLE FUNCTION/SUBROUTINE.                          PAR       474
                                                                                                                 PAR       475
           167  6120000306 +             TRE30    SB2    PAR.FUN     INDICATE EXTERNAL.                          PAR       476
                          20373                   IFBIT  X3,-NVAR/VAR,TRE70                                      PAR       477
                          20306                   IFBIT  X3,-FUN/NVAR,TRE40 IF NOT A FUNCTION.                   PAR       478
                          0300000253 +            ZR     X0,TREX     IF FOLLOWED BY *(* - OK.                    PAR       479
                                                                                                                 PAR       480
                                        **        REFERENCE TO AN FUNCTION/SUBROUTINE WITHOUT A LEFT PAREN       PAR       481
                                        *         VALIDATE LEGAL FOR CURRENT MODE OF EXPRESSION                  PAR       482
                                        *         (X3) = TAG SHIFTED BY P.FUN                                    PAR       483
                                                                                                                 PAR       484
           172  5120000000 X             TRE32    SA2    ARGMODE                                                 PAR       485
                          6120000042 +            =B2    PAR.NX            RETURN ADDRESS                        PAR       486
           173  6130000000 X                      =B3    E.TE2A                                                  PAR       487
                          20370                   IFBIT  X3,INLINE/FUN,TRE33 IF REFERENCE TO INTRINSIC           PAR       488
                          6130000000 X            =B3    =XE.TE2B                                                FCC0718     7
           175  20303                             IFBIT  X3,BEF/INLINE,TRE33  IF REFERENCE TO BEF                FCC0718     8
           176  6130000000 X                      =B3    E.TE2                                                   PAR       489
                          20227                   IFBIT  X2,AMFUN,TREX     IF FUNCTION WITHOUT LIST ALLOWED      PAR       490
           200  66730                    TRE33    FATAL  B3                                                      PAR       491
           201  0400000253 +                      EQ     TREX                                                    PAR       492
                                                                                                                 PAR       493
                                        *         HERE IF POSSIBLE SUBROUTINE.                                   PAR       494
                                                                                                                 PAR       495
           202  20372                    TRE40    IFBIT  X3,-SUB/FUN,TRE60 IF NOT SUBROUTINE.                    PAR       496
           203  5130000000 X                      SA3    ARGMODE                                                 PAR       497
                          6120000042 +            =B2    PAR.NX                                                  PAR       498
           204  20327                             IFBIT  X3,AMFUN,TRE41  IF STAND ALONE REFERENCE MANDATORY      PAR       499
           205  6120000306 +                      SB2    PAR.FUN                                                 FCC1011     5
                          0300000253 +            ZR     X0,TREX     IF FOLLOWED BY *(* - OK                     PAR       500
           206  0400000215 +                      EQ     TRE42                                                   PAR       501
           207  0310000212 +             TRE41    NZ     X0,TRE41.5  MUST BE STAND ALONE                         FCC1716X   12
                          6170000000 X            FATAL  E.TE3                                                   PAR       503
           211  0400000157 +                      EQ     TRE22A                                                  PAR       504
                                                                                                                 FCC1716X   13
           212  10366                    TRE41.5  BX3    X6          SYMBOL TABLE ENTRY                          FCC1716X   14
                     20353                        IFBIT  X3,EST,TREX  APPEARS IN EXTERNAL STMT                   FCC1716X   15
           213  6170000000 X                      FATAL  =XE.SU6     EXT IN CALL SHOULD BE IN EXTERNAL STMT      FCC1716X   16
           214  0400000216 +                      EQ     TRE42.5                                                 FCC1716X   17
           215  6170000000 X             TRE42    FATAL  E.TE3       SUBROUTINE WITH NO *(* FOLLOWING.           PAR       505
           216  6120000042 +             TRE42.5  =B2    PAR.NX                                                  FCC1716X   18
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    15
                                                                      TRE 
  
                          0400000253 +            EQ     TREX        EXIT..                                      PAR       507
                                                                                                                 PAR       508
                                        *         HERE IF DEFINED AS NOT-VAR BUT NOT A SUBROUTINE/FUNCTION.      PAR       509
                                                                                                                 PAR       510
           217  20304                    TRE60    IFBIT  X3,-ENT/SUB,TRE70  IF NOT ENTRY POINT                   FCC0585     7
           220  5110000000 X                      SA1    ENTRY.                                                  FCC0585     8
                          20330                   SBIT   X3,TAG/ENT+1                                            FCC0585     9
           221  6231200000                        SB3    X1+C.VAR                                                PAR       513
                          63730                   SB7    X3                                                      PAR       514
           222  0537000000 X                      NE     B3,B7,=XE.VA3  IF NOT MAIN ENTRY POINT                  FCC0585    10
                          5110000000 X            SA1    MOD                                                     PAR       516
           223  20162                             IFBIT  X1,-PFNC,=XE.VA3  IF NOT IN FUNCTION SUBPROGRAM         FCC0585    11
           224  5130000000 X                      SA3    VALUE.                                                  PAR       518
                          5110000000 X            SA1    TS.SYM                                                  PAR       519
           225  36313                             IX3    X1+X3                                                   PAR       520
                     53230                        SA2    X3          SWITCH REFERENCE TO *VALUE.*                PAR       521
                          10622                   BX6    X2                                                      PAR       522
           226  0400000152 +                      EQ     TRE22       PROCESS AS VARIABLE                         PAR       523
  
  
  
  
                                        **         CHECK UNCLASSIFIED TAG FOR POSSIBLE VARIABLE                  PAR       525
                                        *          OR FUNCTION CLASSIFICATION..                                  PAR       526
                                        *                                                                        PAR       527
                                        *         ANSI COMMENT......                                             PAR       528
                                        *         ANSI ALLOWS A PROGRAMMER TO DEFINE AN INTRINSIC FUNCTION IN A  PAR       529
                                        *         TYPE STATEMENT.  THUS A SYMBOL BY THE NAME OF A KNOWN          PAR       530
                                        *         INTRINSIC FUNCTION WILL BE SET INTO OUR SYMBOL TABLE BUT WILL  PAR       531
                                        *         NOT HAVE A CLASSIFICATION ON ITS USE.  WE ALSO HAVE TO WATCH   PAR       532
                                        *         OUT FOR A SYMBOL THAT IS IN THE SYMBOL TABLE THAT HAS ONLY THE PAR       533
                                        *         *EXTERNAL* CLASSIFICATION BITS ON.  IN *EXTERNAL* CASE IT IS   PAR       534
                                        *         SORT OF SIMPLE, CONTEXT TELLS USE WHAT TO DO.                  PAR       535
                                        *                IN THE CASE OF A SYMBOL THAT HAS MERELY BEEN TYPED, WE  PAR       536
                                        *         MUST CHECK IF IT IS A *BEF* OR *INLINE* AND THEN CHECK IF THE  PAR       537
                                        *         MODE OF TYPING IS THE SAME AS THE EXPLICIT TYPING GIVEN THE    PAR       538
                                        *         FUNCTION BY ANSI.                                              PAR       539
                                        *                IF IT IS THEN SYMBOL IS THE DEFINED *BEF* OR            PAR       540
                                        *         *INTRINSIC*, IF NOT ITS DEFAULT IS SET TO A VARIABLE OR        PAR       541
                                        *         EXTERNAL FUNCTION DEPENDING ON THE CONTEXT.                    PAR       542
                                        *                                                                        PAR       543
                                        *                                                                        PAR       544
                                        *         ENTRY  (X0) = 0, IF FOLLOWED BY *(*                            PAR       545
                                        *                (X6) = TAG CURRENTLY PROCESSING                         PAR       546
                                        *                (A2) = ADDRESS OF TAG IN SYMBOL TABLE.                  PAR       547
                                        *                (X7) = CLASS BITS (ONLY IF FOUND TO BE A VARIABLE)      PAR       548
                                        *                                                                        PAR       549
                                        *         EXIT   (X6) = UPDATED TAG                                      PAR       550
                                        *                       ALSO UPDATED IN TABLE OFF OF *A2*                PAR       551
                                        *                                                                        PAR       552
                                        *                (B2) = PAR.XX PROCESSING ADDRESS FOR PARSER.            PAR       553
                                        *                       TO.                                              PAR       554
                                        *         CALLS  SLT                                                     PAR       555
                                                                                                                 PAR       556
                                                                                                                 PAR       557
           227  22207                    TRE70    LX2    X7                                                      PAR       558
                     6120000042 +                 =B2    PAR.NX                                                  PAR       559
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    16
                                                                      TRE70 
  
                               10166              BX1    X6                                                      PAR       560
           230  0310000242 +                      NZ     X0,TRE76    IF NOT FOLLOWED BY *(* - SET VARIABLE BIT   PAR       561
                                                                                                                 PAR       562
                                        **        HERE IF ENTITY FOLLOWED BY *(*, BUT DOES NOT HAVE CLASS        PAR       563
                                        *         IF FORMAL PARAMETER OR EXTERNAL SET CLASS AS EXTERNAL FUNCTION PAR       564
                                                                                                                 PAR       565
                          7100000120              =X0    M.FP+M.EXT                                              PAR       566
           231  7120020300                        =X2    M.NVAR+M.FUN+M.EXT                                      PAR       567
                          11106                   BX1    X0*X6                                                   PAR       568
           232  6120000306 +                      =B2    PAR.FUN                                                 PAR       569
                          0311000243 +            NZ     X1,TRE78    MUST BE EXTERNAL FUNCTION.                  PAR       570
                                                                                                                 PAR       571
                                        **        NOT FORMAL PARAMETER CHECK IF ENTITY APPEARED IN TYPE          PAR       572
                                        *         STATEMENT AND TYPE AND NAME SAME AS A *BEF* OR *INTRINSIC*     PAR       573
                                                                                                                 PAR       574
           233  43052                             MX0    L.SYM                                                   PAR       575
                     55321                        =A3    A2-1        LOAD SYMBOL FROM *SYMBOL* TABLE             PAR       576
                          11103                   BX1    X0*X3       SYMBOL ONLY                                 PAR       577
           234  0100000000 X                      RJ     SLT         SCAN LIBRARY TABLE.                         PAR       578
           235  6120000306 +                      =B2    PAR.FUN                                                 PAR       579
                          7120020300              =X2    M.NVAR+M.EXT+M.FUN                                      PAR       580
           236  0770000243 +                      MI     B7,TRE78    IF NOT IN TABLE - EXTERNAL FUNCTION         PAR       581
                          43071                   MX0    -L.MODE                                                 PAR       582
                               13163              BX1    X6-X3                                                   PAR       583
           237  15010                             BX0    -X0*X1                                                  PAR       584
                     0310000243 +                 NZ     X0,TRE78    IF NOT SAME MODE                            PAR       585
                               43052              MX0    -L.CLASS-L.MODE                                         PAR       586
           240  11106                             BX1    X0*X6       ELIMINATE ALL OLD CLASS+MODE BITS.          PAR       587
                     12631                        BX6    X3+X1       CHANGE CLASS BITS TO TABLE ENTRY.           PAR       588
                          54620                   SA6    A2                                                      PAR       589
           241  0400000253 +                      EQ     TREX        EXIT..                                      PAR       590
                                                                                                                 PAR       591
                                        **        ELEMENT NOT FOLLOWED BY LEFT PAREN                             PAR       592
                                        *         A.  IF EXTERNAL BIT SET, CONTINUE, NOT SETTING ANY OTHER BITS  PAR       593
                                        *         B.  IF NOT (A), SET VARIABLE BITS DEFINED IN (X2)              PAR       594
                                                                                                                 PAR       595
           242  20165                    TRE76    IFBIT  X1,EXT,TREX IF EXTERNAL SET, DO NOTHING TO CLASS        PAR       596
                                                                                                                 PAR       597
                                        **        (X2) = CLASS BITS FOR TAG                                      PAR       598
                                        *         (B2) = ADDRESS FOR PROCESSING TAG                              PAR       599
                                                                                                                 PAR       600
           243  12626                    TRE78    BX6    X2+X6                                                   PAR       601
                     54620                        SA6    A2                                                      PAR       602
                          0400000253 +            EQ     TREX        CLASSIFIED.                                 PAR       603
                                                                                                                 PAR       604
                                        **        HERE IF ELEMENT NOT IN SYMBOL TABLE.                           PAR       605
                                        *         CHECK IF FOLLOWED BY *(*                                       PAR       606
                                        *         IF YES, MUST BE A FUNCTION REFERENCE -- CALL *TSF*             PAR       607
                                        *                                                                        PAR       608
                                        *         IF NO,  MUST BE A SIMPLE VARIABLE -- ADD TO TABLE AND EXIT.    PAR       609
                                                                                                                 PAR       610
           244  56141                    TRE80    =A1    B4+1                                                    PAR       611
                     7221777767                   SX2    X1-O.(                                                  PAR       612
           245  0302000251 +                      ZR     X2,TRE90    IF ELEMENT FOLLOWED BY *(*                  PAR       613
                          0100000000 X            RJ     STY         SET MODE                                    PAR       614
           246  36771                             IX7    X7+X1       ADD IN CLASS FIELD.                         PAR       615
                     5110000000 X                 ADSYM  TS.SYM      ADD SYMBOL, TAG TO TABLE.                   PAR       616
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    17
                                                                      TRE70 
  
           250  6120000042 +                      =B2    PAR.NX                                                  PAR       617
                          0400000253 +            EQ     TREX        EXIT..                                      PAR       618
                                                                                                                 PAR       619
                                        **        HERE IF NOT IN TABLE AND FOLLOWED BY *(*                       PAR       620
                                        *         EXIT   (NEXT) = 0, SYMBOL ALREADY USED, ARGUMENT COUNT SET.    PAR       621
                                                                                                                 PAR       622
           251  13666                    TRE90    BX6    0                                                       PAR       623
                     0100000000 X                 RJ     TSF         TRANSLATE FUNCTION REFERENCE                PAR       624
           252  6120000306 +                      SB2    PAR.FUN     INDICATE EXTERNAL.                          PAR       625
                          0400000261 +            EQ     PAR.VARX                                                PAR       626
                                                                                                                 PAR       627
                                        **        EXIT ROUTINE, BUT CHECK IF CROSS REFERENCE HAS BEEN REQUESTED  PAR       628
                                        *         FIRST....                                                      PAR       629
                                        *         (X6) = TAG                                                     PAR       630
                                        *         (B2) = SPECIAL FLAG.                                           PAR       631
                                                                                                                 PAR       632
           253  5110000000 X             TREX     SA1    LOP=R                                                   PAR       633
                          0321000261 +            PL     X1,PAR.VARX IF NO CROSS-REFERENCE SELECTED.             PAR       634
           254  22206                             LX2    X6                                                      PAR       635
                     5160000000 X                 SA6    TRVA        SAVE TAG.                                   PAR       636
                               76620              SX6    B2                                                      PAR       637
           255  54661                             =A6    A6+1        SAVE FLAG.                                  PAR       638
                     5110000000 X                 SA1    REFVAR      TYPE OF REFERENCE                           PAR       639
                               22602              LX6    X2                                                      PAR       640
           256  6170000257 +                      ADDREF X6,X1                                                   PAR       641
           257  5110000000 X                      SA1    TRVA                                                    PAR       642
                          54211                   =A2    A1+1                                                    PAR       643
                               10611              BX6    X1          TAG.                                        PAR       644
           260  63220                             SB2    X2          FLAG.                                       PAR       645
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    18
                                                                      VARX
  
                                        **        VARX - TRANSLATION OF SYMBOL COMPLETE.                         PAR       647
                                        *                                                                        PAR       648
                                        *         (B2) = PROCESSOR ADDRESS                                       PAR       649
                                        *         (ATTR)= ATTRIBUTE BITS TO BE SET FOR PASS *2*                  PAR       650
                                                                                                                 PAR       651
           261  22506                    PAR.VARX LX5    X6          PASS *1* TAG.                               PAR       652
                     10166                        BX1    X6                                                      PAR       653
                          66441                   =B4    B4+1                                                    PAR       654
                               43066              MX0    -L.FPNO                                                 PAR       655
           262  21122                             AX1    P.FPNO                                                  PAR       656
                     7170002000                   =X7    M.EQUIV                                                 PAR       657
                               43325              MX3    L.TAG+L.MODE                                            PAR       658
           263  15210                             BX2    -X0*X1                                                  PAR       659
                     20303                        LX3    L.MODE                                                  PAR       660
                          11776                   BX7    X7*X6                                                   PAR       661
           264  5140000000 X                      SA4    ATTR                                                    PAR       662
                          66661                   =B6    B6+1        UPDATE ELEMENT STACK POINTER.               PAR       663
                               20222              LX2    P.2FPNO                                                 PAR       664
           265  11136                             BX1    X3*X6       TAG + MODE  (SAME FOR PASS *1* AND *2*)     PAR       665
                     36612                        IX6    X1+X2       TAG + PARM + MODE. (PASS *2* TAG.)          PAR       666
                          20703                   LX7    P.2EQUIV-P.EQUIV                                        PAR       667
                               12664              BX6    X6+X4       ADD IN ATTRIBUTE BITS                       PAR       668
           266  12667                             BX6    X6+X7                                                   PAR       669
                     57661                        =A6    B6-1        TO ELEMENT STACK.                           PAR       670
                          5120000010 +            SA2    CMLFLG                                                  PAR       671
           267  0302000274 +                      ZR     X2,PAR.VAR7 IF NOT INPUT I/O LIST ITEMS                 PAR       672
                          0332000273 +            MI     X2,PAR.VAR6 IF ARRAY SUBSCRIPT                          PAR       673
           270  76420                             SX4    B2          SAVE B2                                     PAR       674
                     5110000000 X                 ADDWD  =XTP.ILI    ADD INPUT LIST ITEM TO TABLE                PAR       675
           272  63240                             SB2    X4                                                      PAR       676
                     0400000274 +                 EQ     PAR.VAR7                                                PAR       677
           273  0100000000 X             PAR.VAR6 RJ     CML         CHECK FOR MATCH IN LIST TABLE               PAR       678
                                                                                                                 PAR       679
                                        **        (X6) = PASS *2* TAG, (X5) = PASS *1* TAG.                      PAR       680
                                                                                                                 PAR       681
           274  0222000000               PAR.VAR7 JP     B2          JUMP TO PROCESS TRANSLATED SYMBOL.          PAR       682
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    19
                                                                      PAR.SUB 
  
                                                                                                                 PAR       684
                                        **        HERE IF ELEMENT IS A *ARRAY(*                                  PAR       685
                                                                                                                 PAR       686
           275  5120000000 X             PAR.SUB  SA2    ARGMODE                                                 PAR       687
                          0100000000 X            RJ     SSO         SET-UP SUBSCRIPT OPERATOR.                  PAR       688
                                                                                                                 PAR       689
                                        **        RETURN FROM *SSO* WITH (X7) = DIMENSIONALITY.                  PAR       690
                                                                                                                 PAR       691
           276  5110000010 +                      SA1    CMLFLG                                                  PAR       692
                          0301000300 +            ZR     X1,PAR.SUB1 IF NOT I/O LIST ITEM OR FLAG ALREADY SET    PAR       693
           277  0331000300 +                      MI     X1,PAR.SUB1 IF FLAG ALREADY SET FOR A *(*               PAR       694
                          77605                   =X6    -B5         FLAG SET TO ADDR OF *(*                     PAR       695
                               54610              SA6    A1                                                      PAR       696
           300  5130000000 X             PAR.SUB1 SA3    ARRARM                                                  PAR       697
                          76400                   =X4    0                                                       PAR       698
                               10633              BX6    X3                                                      PAR       699
           301  20722                             LX7    P.ACM                                                   PAR       700
                     6130000032                   =B3    O.SLP                                                   PAR       701
           302  0400000341 +                      EQ     PAR.SPS     ENTER PAREN STACK                           PAR       702
                                                                                                                 PAR       703
                                        **        HERE IF *TRUE* OR *FALSE*                                      PAR       704
                                                                                                                 PAR       705
           303                           PAR.TRU  BSS    0                                                       PAR       706
           303  6271777747               PAR.FAL  SB7    X1-O.TRUE                                               PAR       707
                          5117000000 X            SA1    B7+VTRUE                                                PAR       708
           304  66441                             =B4    B4+1                                                    PAR       709
                     10611                        BX6    X1                                                      PAR       710
                          66661                   =B6    B6+1                                                    PAR       711
           305  5166777776                        SA6    B6-1                                                    PAR       712
                          0400000042 +            EQ     PAR.NX      CONTINUE.                                   PAR       713
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    20
                                                                      PAR.FUN 
  
                                        **        HERE IF ELEMENT IS A *FUNCTION* OF SOME KIND ....              PAR       715
                                                                                                                 PAR       716
           306  10755                    PAR.FUN  BX7    X5                                                      PAR       717
                     20562                        IFBIT  X5,-SUB,JOE                                             FCC2307    13
           307  6170000000 X                      ANSI   E.CL3       SAME NAME USED AS A FUNCTION AND SUB        FCC2307    14
           310  10577                    JOE      BX5    X7                                                      FCC2307    15
                     20565                        IFBIT  X5,EXT,PAR.XF     IF EXTERNAL                           PAR       718
           311  20570                             IFBIT  X5,-ASF/EXT,PAR.BF                                      PAR       719
                                                                                                                 PAR       720
                                        **        HERE IF REFERENCE TO AN ASF FUNCTION.                          PAR       721
                                                                                                                 PAR       722
           312  0100000000 X                      RJ     AFR         PROCESS *ASF* REFERENCE.                    PAR       723
                                                                                                                 PAR       724
                                        **        (B4) RESET TO SKELETON                                         PAR       725
                                        *         (B6) RESET ABOVE ASF ESTACK ENTRY                              PAR       726
                                        *         (INAFR)   RESET                                                PAR       727
                                        *         (ALC.REG) RESET                                                PAR       728
                                                                                                                 PAR       729
           313  5130000000 X                      SA3    ASFARM                                                  PAR       730
                          76530                   SX5    B3                                                      PAR       731
                               43071              MX0    -L.MODE                                                 PAR       732
           314  56460                             SA4    B6          THE ASF ENTRY IS NEEDED FOR MODE            PAR       733
                     15440                        BX4    -X0*X4      NEW *ARGMIS*                                PAR       734
                          10633                   BX6    X3          NEW *ARGMODE*                               PAR       735
           315  6130000032                        =B3    O.SLP                                                   PAR       736
                          22705                   LX7    X5                                                      PAR       737
           316  0400000341 +                      EQ     PAR.SPS     SET PAREN STACK                             PAR       738
                                                                                                                 PAR       739
                                        **        HERE IF INTRINSIC FUNCTION REFERENCE                           PAR       740
                                                                                                                 PAR       741
           317  5150000000 X             PAR.BF   SA5    CSYMBOL     DPC FOR INTRINSIC                           PAR       742
                          43271                   MX2    -L.ARGMF                                                PAR       743
                               21652              AX6    P.2TAG                                                  PAR       744
           320  5130000000 X                      SA3    BIFARM                                                  PAR       745
                          21730                   AX7    P.ARGMF                                                 PAR       746
           321  6130000032                        =B3    O.ILP                                                   PAR       747
                          36465                   IX4    X6+X5       (X4) = ARGMIS = 42/ SYMBOL, 18/ TAG         PAR       748
                               15772              BX7    -X2*X7      ARGCOMA, ARGUMENT MODE                      PAR       750
           322  5120002223 +                      SA2    =4LLOCF                                                 FCC0718     9
                          37552                   IX5    X5-X2                                                   FCC0718    10
           323  0315000325 +                      NZ     X5,PAR.BF1  IF NOT *LOCF*                               FCC0718    11
                          43601                   MX6    1                                                       FCC0718    12
                               20645              LX6    P.AMFUN+1                                               FCC0718    13
           324  36363                             IX3    X6+X3       SPECIAL CASE FOR *LOCF*                     FCC0718    14
           325  22603                    PAR.BF1  LX6    X3          (X6) = ARGMODE                              FCC0718    15
                     20722                        LX7    P.ACM       SET DEFINED ARGUMENT MODE                   PAR       751
                          0400000341 +            EQ     PAR.SPS     ENTER PAREN STACK                           PAR       752
                                                                                                                 PAR       753
                                        **        HERE IF REFERENCE TO AN EXTERNAL FUNCTION.                     PAR       754
                                                                                                                 PAR       755
           326  5130000000 X             PAR.XF   SA3    EXTFARM                                                 PAR       756
                          10477                   BX4    X7                                                      PAR       757
                               20572              IFBIT  X5,-BEF/EXT,PAR.XF5                                     PAR       758
                          5110000000 X            SA1    CSYMBOL     DPC FOR *BEF*                               PAR       759
           330  21652                             AX6    P.2TAG                                                  PAR       760
                     5130000000 X                 SA3    BEFXARM     IF BASIC EXTERNAL FUNCTION                  PAR       761
                               36416              IX4    X1+X6       42/ DPC FOR BEF, 18/ TAG FOR BEF            PAR       762
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    21
                                                                      PAR.FUN 
  
           331  21730                             AX7    P.ARGMF     SET ARGUMENT MODE TYPE                      PAR       763
                                                                                                                 PAR       764
           332  43071                    PAR.XF5  MX0    -L.MODE                                                 PAR       765
                     5120000000 X                 SA2    TT=SCR                                                  PAR       766
                               15770              BX7    -X0*X7      MODE OF ARGUMENTS FOR FUNCTION              PAR       767
           333  20244                             LX2    36                                                      PAR       768
                     10633                        BX6    X3                                                      PAR       769
                          20722                   LX7    P.ACM                                                   PAR       770
           334  6130000032                        =B3    O.SLP                                                   PAR       771
                          36727                   IX7    X2+X7       18/FWA OF FUNCTION,18/ACM,18/0              PAR       772
           335  5130000000 X                      SA3    DOORD                                                   PAR       773
                          0303000341 +            ZR     X3,PAR.SPS  IF NOT INSIDE *DO*                          PAR       774
           336  63730                             SB7    X3                                                      PAR       775
                     5120000000 X                 SA2    TS.STN                                                  PAR       776
                               10577              BX5    X7                                                      PAR       777
           337  53127                             SA1    X2+B7       LOAD STATEMENT TAG FOR *DO*                 PAR       778
                     7100000100                   =X0    M.SNEX                                                  PAR       779
                               12701              BX7    X0+X1       INDICATE EXTERNAL IN *DO*                   PAR       780
           340  54710                             SA7    A1                                                      PAR       781
                     10755                        BX7    X5                                                      PAR       782
                          0400000341 +            EQ     PAR.SPS                                                 PAR       783
  
  
  
  
                                        **        SPS -  SET PARENTHESIS STACK.                                  PAR       785
                                        *                                                                        PAR       786
                                        *                                                                        PAR       787
                                        *         ENTRY  (X4) = NEW VALUE FOR ARGMIS.                            PAR       788
                                        *                (X6) = NEW VALUE FOR ARGMODE.                           PAR       789
                                        *                (X7) = NEW VALUE FOR ARGCOMA.                           PAR       790
                                        *                (B3) = OPERATOR *DPC* TO BE ENTERED.                    PAR       791
                                        *                (B4) _ LEFT PAREN IN *SB*                               PAR       792
                                        *                                                                        PAR       793
                                        *         EXIT   WITH *ADDOP* ENTRY CONDITIONS SET.                      PAR       794
                                        *                                                                        PAR       795
                                        *                (X1) = DPC FOR CURRENT OP.                              PAR       796
                                        *                (X2) = OPERATOR STACK ENTRY.                            PAR       797
                                        *                (B4) _ NEXT *SB* ENTRY.                                 PAR       798
                                        *                (B5) = UPDATED BY *4*                                   FCC0787    90
                                        *         RESET -                                                        PAR       800
                                        *                (ARGMODE,ARGCOMA,ARGMIS)                                PAR       801
                                        *                (REFVAR)                                                PAR       802
                                        *                                                                        PAR       803
                                        *         OPERATOR STACK UPON EXIT. (B5 UPDATED BY L.PSTACK)             PAR       804
                                        *                N   = OLD *ARGMODE*                                     PAR       805
                                        *                N+1 = OLD *ARGCOMA*                                     PAR       806
                                        *                N+2 = OLD *ARGMIS*                                      PAR       807
                                        *                N+3 = LEFT PAREN OPERATOR.                              PAR       808
                                                                                                                 PAR       809
                                                                                                                 PAR       810
           341  10066                    PAR.SPS  BX0    X6                                                      PAR       811
                     5120000000 X                 SA2    ARGMODE                                                 PAR       812
                               54620              SA6    A2          RESET NEW *ARGMODE*                         PAR       813
           342  10622                             BX6    X2                                                      PAR       814
                     56651                        =A6    B5+1        SAVE OLD VALUE FOR ARGMODE TO *OSTACK*      PAR       815
                          5150000000 X            SA5    ARGCOMA                                                 PAR       816
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    22
                                                                      PAR.SPS 
  
           343  6155000003                        SB5    B5+L.PSTACK                                             PAR       817
                          10655                   BX6    X5                                                      PAR       818
           344  5130000000 X                      SA3    ARGMIS                                                  PAR       819
                          54750                   SA7    A5          RESET NEW *ARGCOMA*                         PAR       820
                               54661              =A6    A6+1        SAVE OLD VALUE FOR ARGCOMA TO *OSTACK*      PAR       821
           345  22703                             LX7    X3                                                      PAR       822
                     10644                        BX6    X4                                                      PAR       823
                          76130                   SX1    B3          DPC FOR *(*                                 PAR       824
                               54761              =A7    A6+1        SAVE OLD VALUE FOR ARGMIS TO *OSTACK*       PAR       825
           346  5120000000 X                      SA2    LPAR                                                    PAR       826
                          21060                   AX0    P.AMR                                                   PAR       827
                               66441              =B4    B4+1        UPDATE TO NEXT ELEMENT                      PAR       828
           347  10700                             BX7    X0                                                      PAR       829
                     54630                        SA6    A3          RESET NEW *ARGMIS*                          PAR       830
                          5170000000 X            SA7    REFVAR      SET REFERENCE CELL TO NEW VALUE             PAR       831
           350  43052                             MX0    -L.SBPR                                                 FCC0787    91
                     66551                        SB5    B5+B1                                                   FCC0787    92
                          11302                   BX3    X0*X2                                                   FCC0787    93
                               36631              IX6    X3+X1                                                   FCC0787    94
           351  56650                             SA6    B5                                                      FCC0787    95
                     56540                        =A5    B4                                                      FCC0787    96
                          63350                   SB3    X5                                                      FCC0787    97
           352  5231000000 X                      SA3    X1+CONOTBL-O.DEF                                        FCC0787    98
                          22433                   LX4    B3,X3                                                   FCC0787    99
           353  0324000441 +                      PL     X4,PAREX                                                FCC0787   100
                          0400000042 +            EQ     PAR.NX                                                  FCC0787   101
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    23
                                                                      PAR.CM
  
                                        **        PROCESS COMMA OPERATOR.                                        PAR       834
                                                                                                                 PAR       835
           354  5140000000 X             PAR.CM   SA4    ARGMODE                                                 PAR       836
                          6224776652 -            SB2    X4-A=BIF                                                PAR       837
           355  0305000372 +                      ZR     X5,PAR.CM8  IF *,* FOLLOWED BY *EOS*                    PAR       838
                          0420000430 +            ZR     B2,PAR.STD  IF INSIDE AN *INTRINSIC*                    PAR       839
                                                                                                                 PAR       840
                                        **        POP HOLDING STACK FOR ARGUMENT.                                PAR       841
                                                                                                                 PAR       842
           356  21322                    PAR.CM5  AX3    L.SBPR                                                  PAR       843
                     43463                        MX4    -L.STPR                                                 PAR       844
                          15334                   BX3    -X4*X3                                                  PAR       845
           357  6170000001 X                      SB7    PR.SLP+1                                                PAR       846
                          67707                   SB7    -B7                                                     PAR       847
                               63737              SB7    X3+B7                                                   PAR       848
           360  0770000364 +                      MI     B7,PAR.CM7  IF NOT ARITHMETIC OPERATOR                  PAR       849
                          7160000013              =X6    O.COMMA                                                 PAR       850
           361  56350                             SA3    B5          OPERATOR POPPING.                           PAR       851
                     67551                        =B5    B5-1                                                    PAR       852
                          22106                   LX1    X6                                                      PAR       853
           362  5160000006 +                      SA6    POPDPC      INDICATE *,* CAUSING POP                    PAR       854
                          0100000531 +            RJ     POP         POP OPERATOR.                               PAR       855
           363  56350                             SA3    B5                                                      PAR       856
                     0400000356 +                 EQ     PAR.CM5     LOOP                                        PAR       857
                                                                                                                 PAR       858
                                        **        SET COMMA INTO OPERATOR STACK AND POP ARGUMENT                 PAR       859
                                                                                                                 PAR       860
           364  56140                    PAR.CM7  SA1    B4                                                      PAR       861
                     5120000000 X                 SA2    COMMA       RELOAD COMMA OPERATOR                       PAR       862
                               43052              MX0    -L.SBPR                                                 PAR       863
           365  11302                             BX3    X0*X2                                                   PAR       864
                     36631                        IX6    X3+X1                                                   PAR       865
                          56651                   =A6    B5+1        *,* OPERATOR TO OP-STACK.                   PAR       866
                                                                                                                 PAR       867
                                        **        POP COMMA OPERATOR ADD IMPLIED COMMA TO OPERATOR STACK         PAR       868
                                        *         IF NEXT IS *EOS*.                                              PAR       869
                                                                                                                 PAR       870
                               10366              BX3    X6                                                      PAR       871
           366  56150                             SA1    B5                                                      PAR       872
                     0100000531 +                 RJ     POP         POP COMMA OPERATOR.                         PAR       873
           367  5130000000 X                      SA3    ARGMODE                                                 FCC0787   102
                          6273776535 -            SB7    X3-A=LIST                                               FCC0787   103
           370  0470000503 +                      ZR     B7,PAREXIT  IF IN I/O LIST                              FCC0787   104
                          66441                   =B4    B4+1        NEXT                                        PAR       874
           371  0400000042 +                      EQ     PAR.NX      CONTINUE TO NEXT.                           PAR       875
                                                                                                                 PAR       876
                                        **        COMMA FOLLOWED BY *EOS*. ONLY ALLOWED IN I/O LIST.             PAR       877
                                                                                                                 PAR       878
           372  6224776535 -             PAR.CM8  SB2    X4-A=LIST                                               PAR       879
                          0520000441 +            NZ     B2,PAREX    IF NOT I/O LIST PROCESSING                  PAR       880
           373  66441                             =B4    B4+1                                                    PAR       881
                     0400000042 +                 EQ     PAR.NX      CONTINUE TO NEXT                            PAR       882
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    24
                                                                      PAR.LP
  
                                        **        FOUND UNQUALIFIED PARENTHESIS IN *SB*                          PAR       884
                                        *         IF IT IS NOT PART OF A COMPLEX CONSTANT, THEN IT ENCLOSES      FCC0787   105
                                        *         SOME EXPRESSION.                                               FCC0787   106
                                        *                                                                        FCC0787   107
                                        *         ENTRY  PAR.NX EXIT CONDITIONS                                  FCC0787   108
                                        *                                                                        FCC0787   109
           374  56440                    PAR.LP   SA4    B4                                                      FCC0787   110
                     0100000000 X                 RJ     CFC         CHECK FOR COMPLEX CONSTANT                  FCC0787   111
           375  64440                             SB4    A4                                                      FCC0787   112
                     0300000400 +                 ZR     X0,PAR.LP5  IF CPLX CONST                               FCC0787   113
                               13777              =X7                                                            FCC0787   114
           376  5110000000 X                      SA1    LPARM                                                   FCC0787   115
                          6130000010              SB3    O.LP                                                    FCC0787   116
           377  10611                             BX6    X1                                                      FCC0787   117
                     43400                        MX4    0                                                       FCC0787   118
                          0400000341 +            EQ     PAR.SPS                                                 FCC0787   119
                                                                                                                 FCC0787   120
           400  10611                    PAR.LP5  BX6    X1          REAL PART, IMAGINARY IN X2                  FCC0787   121
                     7170000005                   =X7    M.CPLX                                                  FCC0787   122
                               67441              =B4    B4-1                                                    FCC0787   123
           401  0400000055 +                      EQ     TNK.DBL                                                 FCC0787   124
  
  
  
  
                                        **        DUMMY LEFT PAREN AT BEGINNING OF *SB* FOUND,                   PAR       924
                                        *                                                                        PAR       925
                                        *         PROCESS BY SETTING PAREN STACK TO PROPER MODE FOR OPERATING    PAR       926
                                        *         WITHIN CURRENT STATEMENT, THEN ADD SPECIAL PAREN TO OPERATOR   PAR       927
                                        *         STACK.                                                         PAR       928
                                                                                                                 PAR       929
           402  5130000000 X             PAR.DLP  SA3    ARGMODE                                                 PAR       930
                          5120000000 X            SA2    ARGCOMA                                                 PAR       931
           403  63310                             SB3    X1          OPERATOR                                    PAR       932
                     10633                        BX6    X3                                                      PAR       933
                          22702                   LX7    X2                                                      PAR       934
           404  0400000341 +                      EQ     PAR.SPS     SET PAREN STACK                             PAR       935
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    25
                                                                      MISOPS
  
                                        **        PROCESS MISCELLANEOUS OPERATORS CHECKING SYNTAX USAGE AND      PAR       937
                                        *         MISCELLANEOUS ERRORS.                                          PAR       938
                                                                                                                 PAR       939
                                                                                                                 PAR       940
                                        **        PROCESS *=*S, CHECKING FOR LAST/ NOT LAST *=*S.                PAR       941
                                                                                                                 PAR       942
           405  5140000000 X             PAR.EQL  SA4    ARGMODE                                                 PAR       943
                          43001                   MX0    1                                                       PAR       944
                               20052              LX0    P.AMEQ+1                                                PAR       945
           406  11004                             BX0    X0*X4                                                   PAR       946
                     0310000411 +                 NZ     X0,PAR.EQL2 IF *=* ALLOWED                              PAR       947
           407  6170000000 X                      FATAL  =XE.AT6     *ILLEGAL USE OF ASSIGNMENT OPERATOR*        PAR       948
           410  66441                             =B4    B4+1        BYPASS BAD *=*                              FCC1062     4
                     0400000042 +                 EQ     PAR.NX                                                  FCC1062     5
           411  5140000000 X             PAR.EQL2 SA4    ZLE                                                     PAR       949
                          0304000430 +            ZR     X4,PAR.STD  IF IN ZERO LEVEL.                           PAR       950
           412  66441                             =B4    B4+1        IGNORE ( SEE *EOS* PROCESS.)                PAR       951
                     0400000042 +                 EQ     PAR.NX      CONTINUE. (IGNORING *=*)                    PAR       952
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    26
                                                                      PAR.PL
  
                                        **        CHECK IF PLUS IS UNARY                                         PAR       955
                                                                                                                 PAR       956
                                                                                                                 PAR       957
           413  57441                    PAR.PL   =A4    B4-1        LOAD LAST OPERATOR                          PAR       958
                     5150002224 +                 SA5    ="PREUNAR"                                              PAR       959
                               63740              SB7    X4                                                      PAR       960
           414  22075                             LX0    B7,X5                                                   PAR       961
                     0320000430 +                 PL     X0,PAR.STD  IF NOT UNARY PLUS                           PAR       962
           415  5140000000 X                      SA4    ARGMODE                                                 PAR       963
                          6274776534 -            SB7    X4-A=DO                                                 PAR       964
           416  0570000423 +                      NZ     B7,PAR.PL1  NOT PROCESSING DO                           PAR       965
                          5110000000 X            SA1    =XARGCOMA  DO INDEX NUMBER                              PAR       966
           417  63310                             SB3    X1                                                      PAR       967
                     5143000000 X                 SA4    B3+=XDO.DPC   DPC FOR CURRENT INDEX                     PAR       968
                               10644              BX6    X4                                                      PAR       969
           420  5110000000 X                      SA1    FILL.                                                   PAR       970
                          37461                   IX4    X6-X1                                                   PAR       971
           421  0304000423 +                      ZR     X4,PAR.PL1  IF MESSAGE JUST GIVEN                       PAR       972
                          54610                   SA6    A1                                                      PAR       973
           422  6170000000 X                      ANSI   E.DO16      DO INDEX MUST BE SIMPLE INTEGER             PAR       974
           423  66441                    PAR.PL1  =B4    B4+1                                                    PAR       975
                     0400000042 +                 EQ     PAR.NX      IGNORE UNARY PLUS                           PAR       976
  
  
  
  
                                        **        CHECK IF MINUS IS UNARY                                        PAR       978
                                                                                                                 PAR       979
                                                                                                                 PAR       980
           424  57441                    PAR.MIN  =A4    B4-1        LOAD LAST OPERATOR                          PAR       981
                     5150002224 +                 SA5    ="PREUNAR"                                              PAR       982
                               63740              SB7    X4                                                      PAR       983
           425  22075                             LX0    B7,X5                                                   PAR       984
                     0320000430 +                 PL     X0,PAR.STD  IF NOT UNARY MINUS                          PAR       985
           426  5120000000 X                      SA2    UMINUS                                                  PAR       986
                          7110000027              =X1    O.UMIN                                                  PAR       987
           427  0400000430 +                      EQ     PAR.STD     PROCESS AS UNARY MINUS                      PAR       988
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    27
                                                                      COMPARE 
  
                                        **        COMPARE CURRENT OPERATOR (COP) TO LAST OPERATOR (LOP).         PAR      1015
                                        *                                                                        PAR      1016
                                        *         (X1) = DPC FOR CURRENT OPERATOR. (COP)                         PAR      1017
                                        *         (X2) = COP *SETOP* WORD.                                       PAR      1018
                                        *         (X3) = LOP INSTACK *SETOP* WORD.                               PAR      1019
                                        *                                                                        PAR      1020
                                        *         IF COP .GT. LOP - ADD COP TO OPERATOR STACK.                   PAR      1021
                                        *                                                                        PAR      1022
                                        *         IF COP .LT. LOP - POP LOP AND CONTINUE TO POP UNTIL            PAR      1023
                                        *                           COP .GT. LOP.                                PAR      1024
                                                                                                                 PAR      1025
                                                                                                                 PAR      1026
           430  20352                    PAR.STD  LX3    -L.SBPR                                                 PAR      1027
                     66441                        SB4    B4+B1                                                   PAR      1028
                          43463                   MX4    -L.STPR                                                 PAR      1029
                               73020              SX0    X2          *SB* PRIORITY BITS ONLY                     PAR      1030
           431  15534                             BX5    -X4*X3                                                  PAR      1031
                     37005                        IX0    X0-X5                                                   PAR      1032
                          20322                   LX3    L.SBPR      RESTORE *X3*                                PAR      1033
           432  0320000437 +                      PL     X0,PAR.ADOP IF COP .GT. LOP  (ADD TO OPSTACK)           PAR      1034
                                                                                                                 PAR      1035
                                        **        SET UP FOR *POP* CALL.                                         PAR      1036
                                        *                                                                        PAR      1037
                                        *         (X1) = COP.                                                    PAR      1038
                                        *         (X3) = OPSTACK ENTRY FOR OPERATOR TO BE POPPED.                PAR      1039
                                                                                                                 PAR      1040
                          10611                   BX6    X1                                                      PAR      1041
                               67551              =B5    B5-1                                                    PAR      1042
           433  22702                             LX7    X2                                                      PAR      1043
                     5160000006 +                 SA6    POPDPC      SAVE *DPC* FOR OPERATOR                     PAR      1044
                               67441              =B4    B4-1                                                    PAR      1045
           434  54761                             =A7    A6-POPDPC+POPPER  SAVE OPERATOR STACK WORD (SETOP WORD) PAR      1046
                     0100000531 +                 RJ     POP         POP OPERATOR                                PAR      1047
                                                                                                                 PAR      1048
                                        **        RETURN FROM POP                                                PAR      1049
                                        *         IF *POPPER* HAS BEEN SET NEGATIVE, OPERATOR HAS BEEN           PAR      1050
                                        *         NULLED ( IE. RIGHT PAREN POPPING LEFT PAREN)                   PAR      1051
                                                                                                                 PAR      1052
           435  5120000007 +                      SA2    POPPER                                                  PAR      1053
                          56350                   SA3    B5          RELOAD LAST OPERATOR                        PAR      1054
                               55121              =A1    A2-POPPER+POPDPC                                        PAR      1055
           436  0322000430 +                      PL     X2,PAR.STD  CONTINUE CHECK FOR POPPING                  PAR      1056
                          0400000042 +            EQ     PAR.NX      NEXT                                        PAR      1057
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    28
                                                                      PAR.ADOP
  
                                        **        ADD OPERATOR TO OP-STACK.                                      PAR      1059
                                        *                                                                        PAR      1060
                                        *         ENTRY  (X1) = DPC FOR OPERATOR.                                PAR      1061
                                        *                (X2) = CURRENT OPERATOR STACK ENTRY.                    PAR      1062
                                        *                                                                        PAR      1063
                                        *         EXIT   (B5) = UPDATED TO POINT TO CURRENT OPERAND.             PAR      1064
                                        *                (X6) = OPERAND ADDED TO ESTACK.                         PAR      1065
                                                                                                                 PAR      1066
           437  43052                    PAR.ADOP MX0    -L.SBPR                                                 PAR      1067
                     66551                        SB5    B5+B1       UPDATE POINTER                              PAR      1068
                          11302                   BX3    X0*X2                                                   PAR      1069
                               36631              IX6    X3+X1       PRIORITY + ORGINAL ENTRY                    PAR      1070
           440  56650                             SA6    B5          ADD TO STACK                                PAR      1071
                     0400000042 +                 EQ     PAR.NX      CONTINUE.                                   PAR      1072
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    29
                                                                      ERR 
  
                                        **        HERE IF ILLEGAL COMBINATION OF OPERATOR/OPERANDS               PAR      1074
                                                                                                                 PAR      1075
           441  5140000000 X             PAREX    SA4    ARGMODE                                                 PAR      1076
                          10044                   BX0    X4                                                      PAR      1077
                               20025              IFBIT  X0,-AMRP,PAREX2   IF NO SPECIAL SYNTAX ALLOWED          PAR      1078
           443  6221777766               PAREX1   SB2    X1-O.RP                                                 PAR      1079
                          0520000447 +            NZ     B2,PAREX3   IF NOT LOOKING AT *)*                       PAR      1080
           444  0277000000                        JP     B7          CONTINUE                                    PAR      1081
                                                                                                                 PAR      1082
           445  6224776534 -             PAREX2   SB2    X4-A=DO                                                 PAR      1083
                          0420000443 +            ZR     B2,PAREX1   IF IN *DO* PROCESSING. (MUST BE I/O TYPE)   PAR      1084
           446  6224776540 -                      SB2    X4-A=IF                                                 PAR      1085
                          0420000443 +            ZR     B2,PAREX1   IF IN *IF* PROCESSING.                      PAR      1086
                                                                                                                 PAR      1087
           447  43052                    PAREX3   MX0    L.CDPC                                                  PAR      1088
                     5221000000 X                 SA2    X1+CHARMAP                                              PAR      1089
           450  0312000451 +                      NZ     X2,PAREX5   IF NOT *SYMBOL*                             PAR      1090
                          10211                   BX2    X1          USE *SB* SYMBOL.                            PAR      1091
           451  11602                    PAREX5   BX6    X0*X2                                                   PAR      1092
                     5110002225 +                 SA1    =4LNSTD                                                 PAR      1093
                               13416              BX4    X1-X6                                                   PAR      1094
           452  0314000454 +                      NZ     X4,PARX6    IF NOT *NON-STANDARD* PAREN                 PAR      1095
                          7160000051              SX6    1R(         GET LEFT  PAREN FOR ERROR MESSAGE           PAR      1096
           453  20666                             LX6    54                                                      PAR      1097
           454  5225000000 X             PARX6    SA2    X5+CHARMAP                                              PAR      1098
                          5160000000 X            SA6    FILL.       SET FILLER.                                 PAR      1099
           455  0312000456 +                      NZ     X2,PAREX10  IF NOT *SYMBOL*                             PAR      1100
                          10255                   BX2    X5                                                      PAR      1101
           456  11602                    PAREX10  BX6    X0*X2                                                   PAR      1102
                     6170000000 X                 SB7    E.AT2                                                   PAR      1103
                               54661              SA6    A6+B1       SET FILLER.                                 PAR      1104
           457  0100000000 X                      FATAL  B7          OUTPUT ERROR.                               PAR      1105
           460  56140                             SA1    B4                                                      FCC2078     7
                     0301000465 +                 ZR     X1,PAR.EOS  IF END OF STATEMENT(*EOS*)                  FCC2078     8
           461  66441                    PAREX11  =B4    B4+1                                                    FCC0787   125
                     5110000000 X                 SA1    TT.PAR                                                  PAR      1107
                               13444              BX4    0                                                       PAR      1108
           462  76500                             =X5    0                                                       PAR      1109
                     6130000000 X                 SB3    ERROP       EMIT *ERROR* OPERATOR                       PAR      1110
                               67303              SB3    -B3                                                     PAR      1111
           463  0100000000 X                      RJ     EMT                                                     PAR      1112
           464  0400000042 +                      EQ     PAR.NX      CONTINUE..  (IGNORING NASTY CHARACTER)      PAR      1113
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    30
                                                                      PAR.EOS 
  
                                                                                                                 PAR      1126
                                        **        END OF STATEMENT (*EOS*) FOUND IN *SB*                         PAR      1127
                                        *                                                                        PAR      1128
                                        *         PROCESSING WHEN *EOS* FOUND IS DEPENDENT UPON THE VALUE OF     PAR      1129
                                        *         *ZLE*.  UPON ENTRY TO *PAR* THE CONDITION OF *ZLE* WAS SET TO  PAR      1130
                                        *         INDICATE WHETHER AN *=* WAS FOUND DURING THE TABBING OF THE    PAR      1131
                                        *         CURRENT STATEMENT BEING PROCESSED.  *ZLE* UPON ENTRY TO THIS   PAR      1132
                                        *         SECTION POINTS TO THE LAST *=* FOUND DURING TABS PROCESS,      PAR      1133
                                        *         WHERE ALL PREVIOUS *=* CONTAIN A LINK TO PREVIOUS *=* .        PAR      1134
                                        *         THUS A SIMPLE CHECK IF DONE ON *ZLE* TO DETERMINE IF WE HAVE   PAR      1135
                                        *         PROCESSED WHAT IS ON THE LEFT HAND SIDE OF THE *=*S, OR        PAR      1136
                                        *         WHETHER THERE WAS ONE FOR THIS STATEMENT.  IN ANY CASE WE WILL PAR      1137
                                        *         LINK BACKWARDS THRU THE TABBED *SB* TILL WE FINALLY COME TO    PAR      1138
                                        *         THE TERMINAL LEFT MEMBER OF THE STATEMENT.                     PAR      1139
                                        *                                                                        PAR      1140
                                        *         GENERAL FLOW.                                                  PAR      1141
                                        *                                                                        PAR      1142
                                        *         A.  FLUSH REMAINDER OF OP-STACK.                               PAR      1143
                                        *         B.  CHECK IF LAST *=* (LEFT MEMBER) HAS BEEN PROCESSED.        PAR      1144
                                        *             1.  IF YES - SET ENDING CONDITIONS AND EXIT.               PAR      1145
                                        *             2.  IF NO  - RESET *SB* POINTER,(B4), AND *ZLE* TO NEW     PAR      1146
                                        *                         CONDITION.                                     PAR      1147
                                        *                                                                        PAR      1148
                                        *         VISUAL EXAMPLE.                                                PAR      1149
                                        *                                                                        PAR      1150
                                        *                0        1         2         3         4                PAR      1151
                                        *                12345678901234567890123456789012345678901               PAR      1152
                                        *                A=B=C=D=E=F=R**2-K+L-ARR(I,J,K+L,4,5,6,7)               PAR      1153
                                        *                           ZLE=12  (ENTRY TO PAR)                       PAR      1154
                                        *         POINTER=        8                                              PAR      1155
                                        *         POINTER=      6                                                PAR      1156
                                        *         POINTER=    4                                                  PAR      1157
                                        *         POINTER=  2                                                    PAR      1158
                                                                                                                 PAR      1159
                                                                                                                 PAR      1160
           465  6130000000 X             PAR.EOS  SB3    OSTACK                                                  PAR      1161
                          67353                   SB3    B5-B3                                                   PAR      1162
           466  0703000507 +                      GT     B3,PAR.EOS6 IF OPERATOR STACK NOT EMPTY                 FCC1007     4
                          5110000000 X            SA1    ZLE                                                     PAR      1164
           467  0301000500 +                      ZR     X1,PAR.EOS3 IF TRUE *EOS*.                              PAR      1165
                          53210                   SA2    X1                                                      PAR      1166
                               76600              =X6    O.EOS                                                   PAR      1167
           470  21222                             AX2    P.SYM                                                   PAR      1168
                     54620                        SA6    A2          REPLACE *=* WITH *EOS*.                     PAR      1169
                          63420                   SB4    X2          RESET *B4* TO *=*                           PAR      1170
           471  5110000000 X                      SA1    "SB.BOS"                                                PAR      1171
                          66210                   =B2    1                                                       PAR      1172
           472  0312000473 +                      NZ     X2,PAR.EOS1 IF NOT LAST *=*                             PAR      1173
                          63410                   SB4    X1          RESET TO STARTING POSITION.                 PAR      1174
                               66200              =B2    0                                                       PAR      1175
           473  10622                    PAR.EOS1 BX6    X2                                                      PAR      1176
                     56342                        SA3    B4+B2                                                   PAR      1177
                          5160000000 X            SA6    ZLE         RESET TO NEXT LEVEL.                        PAR      1178
           474  7110000012                        =X1    O.=                                                     PAR      1179
                          7160000054              =X6    CR.STR                                                  PAR      1180
           475  6273777774                        SB7    X3-O.VAR                                                PAR      1181
                          5120000000 X            SA2    EQUAL                                                   PAR      1182
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    31
                                                                      PAR.EOS 
  
           476  5160000000 X                      SA6    REFVAR      SET UP FOR *STORE*                          PAR      1183
                          0470000437 +            ZR     B7,PAR.ADOP IF LEFT MEMBER IS A SYMBOL                  PAR      1184
           477  6170000000 X                      FATAL  E.TE8       ILLEGAL LEFT MEMBER                         PAR      1185
                                                                                                                 PAR      1186
                                        **        HERE IF LAST *=* PROCESSED.                                    PAR      1187
                                                                                                                 PAR      1188
           500  5110000000 X             PAR.EOS3 SA1    ARGMODE                                                 PAR      1189
                          7130000013              =X3    O.COMMA                                                 PAR      1190
           501  20126                             IFBIT  X1,-AMEOS,PAREXIT                                       PAR      1191
                               10633              BX6    X3                                                      PAR      1192
           502  76100                             =X1    O.EOS                                                   PAR      1193
                     56651                        =A6    B5+1                                                    PAR      1194
                          0100000531 +            RJ     POP         POP LAST ARGUMENT                           PAR      1195
                                                                                                                 PAR      1196
                                        **        PAREXIT - EXIT PARSER.                                         PAR      1197
                                        *                                                                        PAR      1198
                                        *         ENTRY  (B4) _ LAST ELEMENT PROCESSED IN *SB*.                  PAR      1199
                                        *                                                                        PAR      1200
                                        *         EXIT   (B4) _ LAST ENTRY PROCESSED BY PARSER.                  PAR      1201
                                                                                                                 PAR      1202
                                                                                                                 PAR      1203
           503  5120000000 X             PAREXIT  SA2    FLOW        DEAD CODE FLAG                              PAR      1204
                                                                                                                 PAR      1205
                                         TEST     IFNE   TEST        DUMP PARSED FILE (IF IN TEST MODE)          PAR      1206
                                                  SA1    CO.SNAP                                                 PAR      1207
                                                  LX1    1RP                                                     PAR      1208
                                                  PL     X1,PAR.EOSA IF SNAP NOT REQUESTED.                      PAR      1209
                                                  RJ     =XSN.PAR                                                PAR      1210
                                         PAR.EOSA BSS    0                                                       PAR      1211
                                         TEST     ENDIF  TEST                                                    PAR      1212
                                                                                                                 PAR      1213
                                         SNAP=Z   IFNE   TEST        DUMP PARSE TABLES                           PAR      1214
                                                  SA1    CO.SNAP                                                 PAR      1215
                                                  LX1    1RZ                                                     PAR      1216
                                                  PL     X1,PAR.EOSS IF PARSE SNAP NOT SELECTED                  PAR      1217
                                         PARSEXIT PARSNAP                                                        PAR      1218
                                         PAR.EOSS BSS    0                                                       PAR      1219
                                         SNAP=Z   ENDIF                                                          PAR      1220
                                                                                                                 PAR      1221
                          67441                   =B4    B4-1        RESET TO LAST ELEMENT PROCESSED             PAR      1222
           504  0302000022 +                      ZR     X2,PARX     EXIT.. (NOT DEAD CODE JUST PROCESSED)       PAR      1223
                          5110000000 X            SA1    LDEAD                                                   PAR      1224
           505  10611                             SHRINK TT=PAR,X1   TRASH DEAD CODE JUST ADDED                  PAR      1225
           506  0400000022 +                      EQ     PARX        EXIT..                                      PAR      1226
                                                                                                                 PAR      1227
                                        **        FLUSH REMAINING OP STACKS.                                     PAR      1228
                                                                                                                 PAR      1229
           507  56350                    PAR.EOS6 SA3    B5          OPERATOR TO POP                             FCC1007     5
                     67551                        =B5    B5-1                                                    PAR      1231
                          6223777745              SB2    X3-O.SLP                                                PAR      1232
           510  6233777767                        SB3    X3-O.LP                                                 FCC1007     6
                          0420000517 +            ZR     B2,PAR.EOS8 IF *(* BEING POPPED                         PAR      1233
           511  0530000513 +                      NZ     B3,PAR.EOS7 IF NOT POPPING *LP*                         FCC1007     7
                          6170000000 X            SB7    E.LP3                                                   FCC1007     8
           512  0400001016 +                      EQ     POP.RP5     TAKE ERROR EXIT                             FCC1007     9
           513  13666                    PAR.EOS7 BX6    0                                                       FCC1007    10
                     56150                        SA1    B5                                                      PAR      1235
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    32
                                                                      PAR.EOS 
  
                          5160000007 +            SA6    POPPER                                                  PAR      1236
           514  55661                             =A6    A6-POPPER+POPDPC                                        PAR      1237
                     0100000531 +                 RJ     POP         POP OPERATOR                                PAR      1238
           515  5110000007 +                      SA1    POPPER                                                  PAR      1239
                          0321000465 +            PL     X1,PAR.EOS  IF NO PROCESSING NOT SET                    PAR      1240
           516  67441                             =B4    B4-1        RESET *B4*                                  PAR      1241
                     67551                        =B5    B5-1                                                    PAR      1242
                          0400000465 +            EQ     PAR.EOS     CONTINUE                                    PAR      1243
           517  5150000000 X             PAR.EOS8 SA5    ARGMODE                                                 PAR      1244
                          6120000000 X            SB2    =XA=FMT                                                 PAR      1245
           520  63350                             SB3    X5                                                      PAR      1246
                     67332                        SB3    B3-B2                                                   PAR      1247
                          0530000523 +            NZ     B3,PAR.EOS9 IF NOT FORMAT INDICATOR                     PAR      1248
           521  7110000011                        SX1    O.)                                                     FCC0794    20
                          77701                   =X7    -1                                                      PAR      1250
           522  5170000007 +                      SA7    POPPER                                                  FCC0794    21
           523  10611                    PAR.EOS9 BX6    X1                                                      FCC0683    10
                     5160000006 +                 SA6    POPDPC      UPDATE   DPC   FOR OPERATOR                 FCC0683    11
                               76100              =X1    O.EOS       INDICATE *(* BEING POPPED BY  *EOS*         FCC0683    12
           524  0100000531 +                      RJ     POP                                                     PAR      1255
  
  
  
  
                                        **        PAR.STOP - CATASTROPIC ERROR ENCOUNTERED IN CURRENT STATEMENT  PAR      1257
                                        *                OUTPUT ERROR TURPLE AND EXIT BACK TO MASTER LOOP,       PAR      1258
                                        *                IGNORING RETURN TO CALLER OF PAR.                       PAR      1259
                                        *                                                                        PAR      1260
                                        *         ENTRY  N/A                                                     PAR      1261
                                        *                                                                        PAR      1262
                                        *         EXIT   TO *PSN* TO START ANEW                                  PAR      1263
                                        *                                                                        PAR      1264
                                        *         CALLS  ADT                                                     PAR      1265
                                                                                                                 PAR      1266
                                                                                                                 PAR      1267
           525  5130000000 X             PAR.STOP SA3    ERROP                                                   PAR      1268
                          76700                   =X7    0                                                       PAR      1269
                               13444              BX4    0                                                       PAR      1270
           526  22603                             LX6    X3                                                      PAR      1271
                     76500                        =X5    0                                                       PAR      1272
                          5170000000 +            SA7    SMOD                                                    PAR      1273
           527  5067000002                        =A6    A7-SMOD+SOPR                                            PAR      1274
                          0100001742 +            RJ     ADT         ADD ERROR TURPLE                            PAR      1275
           530  0400000000 X                      EQ     PSN         START ANEW..                                PAR      1276
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    33
                                                                      POP 
  
                                        **        POP -  POP INSTRUCTIONS IN TURPLE FORM FOR -*PASS TWO*         PAR      1278
                                        *                PROCESSING.                                             PAR      1279
                                        *                                                                        PAR      1280
                                        *         ENTRY  (X1) = OPERATOR CAUSING (X3) TO BE POPPED.              PAR      1281
                                        *                (X3) = CURRENT OPERATOR BEING POPPED.                   PAR      1282
                                        *                                                                        PAR      1283
                                        *                (B5) _ OPERATOR IN FRONT OF OPERATOR BEING POPPED.      PAR      1284
                                        *                IE. IF .AND. BEING POPPED BY .NOT. THE OPSTACK          PAR      1285
                                        *                    WOULD LOOK LIKE BELOW,  WITH B5 POINTING TO *EOS*.  PAR      1286
                                        *                      OPSTACK =    0     1     2                        PAR      1287
                                        *                                 EOS .AND. .NOT.                        PAR      1288
                                        *                            B5     '                                    PAR      1289
                                        *                                                                        PAR      1290
                                        *                (B6) _ LAST OPERAND IN STACK.                           PAR      1291
                                        *                (A7) _ LAST POPPED TURPLE.                              PAR      1292
                                        *                                                                        PAR      1293
                                        *         EXIT   (B6) _ INTERMEDIATE RESULTS OF TURPLE PROCESSED.        PAR      1294
                                        *                                                                        PAR      1295
                                        *                NOTE- NOT ALL SUB-PROCESSORS RELATED TO *POP* EXIT THRU PAR      1296
                                        *                      POPX.                                             PAR      1297
                                        *                    A.  PARENTHESIS PROCESSORS EXIT DIRECTLY TO PAR.NX. PAR      1298
                                        *                                                                        PAR      1299
                                        *         USES   CANNOT DESTORY  B4,B5,B6                                PAR      1300
                                                                                                                 PAR      1301
                                                                                                                 PAR      1302
           531  0400400531 +             POP      SUBR   0                                                       PAR      1303
           532  13666                             =X6                                                            PAR      1304
                     5150000000 X                 SA5    TT.PAR                                                  PAR      1305
           533  5160000000 +                      SA6    SMOD        CLEAR RESULTANT MODE                        PAR      1306
                          76700                   =X7    0                                                       PAR      1307
                               10633              BX6    X3                                                      PAR      1308
           534  5140000000 X                      SA4    TT=PAR                                                  PAR      1309
                          63310                   SB3    X1                                                      PAR      1310
           535  5170000000 X                      SA7    ATTR        CLEAR ATTRITBUTE CELL                       PAR      1311
                          36045                   IX0    X4+X5                                                   PAR      1312
           536  5160000002 +                      SA6    SOPR        SAVE OPERATOR.                              PAR      1313
                          7270777774              SX7    X0-L.TURP+OR.OPR                                        PAR      1314
           537  5170000000 X                      SA7    LASTAD      LAST TURPLE OPERATOR ADDRESS                PAR      1315
                          5146777775              SA4    B6-2        1ST OPERAND INTO (X4)                       PAR      1316
           540  53570                             SA5    X7                                                      PAR      1317
                     5223000000 X                 SA2    X3+POPTBL   RELATIVE TO OPERATOR BEING POPPED.          PAR      1318
                               10655              BX6    X5                                                      PAR      1319
           541  76700                             =X7    0                                                       PAR      1320
                     5160000000 X                 SA6    LASTOP      SET LAST OPERATOR                           PAR      1321
                               66200              =B2    0           ALWAYS A *0* UPON EXIT                      PAR      1322
           542  22032                             LX0    B3,X2                                                   PAR      1323
                     54541                        =A5    A4+1        2ND OPERAND INTO (X5)                       PAR      1324
                                                                                                                 PAR      1325
                                         SNAP=Z   IFNE   TEST        DUMP PARSE TABLES                           PAR      1326
                                                  SA5    CO.SNAP                                                 PAR      1327
                                                  LX5    1RZ                                                     PAR      1328
                                                  PL     X5,POPS     IF PARSE SNAP NOT SELECTED                  PAR      1329
                                                  =A5    A4+1                                                    PAR      1330
                                         POPP     PARSNAP                                                        PAR      1331
                                         POPS     =A5    A4+1                                                    PAR      1332
                                         SNAP=Z   ENDIF                                                          PAR      1333
                                                                                                                 PAR      1334
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    34
                                                                      POP 
  
                          10633                   BX6    X3          CURRENT OPERATOR                            PAR      1335
                               63720              SB7    X2                                                      PAR      1336
           543  20633                             IFBIT  X6,-COM,POP.JP    IF NOT COMMUNIATIVE OPERATOR          PAR      1338
                                                                                                                 PAR      1339
                                        **        FIX ORDER OF COMMUTATIVE OPERATORS IN TAG NUMERIC ORDER        PAR      1340
                                                                                                                 PAR      1341
                               37745              IX7    X4-X5                                                   PAR      1342
           544  10144                             BX1    X4                                                      PAR      1343
                     0327000546 +                 PL     X7,POP.JP   IF IN NUMERIC ORDER                         PAR      1344
                               10455              BX4    X5                                                      PAR      1345
           545  22501                             LX5    X1                                                      PAR      1346
                                                                                                                 PAR      1347
                                        **        CHECK IF SPECIAL PROCESSING NECESSARY FOR OPERATOR.            PAR      1348
                                        *                                                                        PAR      1349
                                        *         IF (B7) = 0                                                    PAR      1350
                                        *                NO SPECIAL PROCESSING NECESSARY, EXIT TO POP.STD        PAR      1351
                                        *         IF (B7) = 0                                                    PAR      1352
                                        *                SPECIAL PROCESSING REQUESTED FOR THIS COMBINATION OF    PAR      1353
                                        *                OPERATORS.                                              PAR      1354
                                        *                                                                        PAR      1355
                                        *         IN ALL CASES THE FOLLOWING REGISTERS ARE SET = TO.             PAR      1356
                                        *                                                                        PAR      1357
                                        *         (B2) = ALWAYS A *0* UPON EXIT                                  PAR      1358
                                        *         (B3) = DPC FOR OPERATOR CAUSING POP                            PAR      1359
                                        *                                                                        PAR      1360
                                        *         (X3) = OPERATOR.                                               PAR      1361
                                        *         (X4) = 1ST OPERAND                                             PAR      1362
                                        *         (X5) = 2ND OPERAND                                             PAR      1363
                                        *         (X7) = 0, IF OPERANDS NOT REVERSED                             PAR      1364
                                                                                                                 PAR      1365
           546  0320001722 +             POP.JP   PL     X0,POP.STD  IF NO SPECIAL PROCESSING                    FCC1495AX   8
                          0277000000              JP     B7          JUMP TO SPECIAL CHECK                       PAR      1368
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    35
                                                                      C=OPER
  
                                        **        POP.CM - PROCESSING OF A COMMA.                                PAR      1370
                                        *                                                                        PAR      1371
                                        *         C=XXX PROCESSING SECTION.                                      PAR      1372
                                        *                                                                        PAR      1373
                                        *         ENTRY  (ARGMODE) = CURRENT VALUE FOR C= IN DEFINED FIELD.      PAR      1374
                                        *                IF C= FIELD IS ZERO, COMMA IS NOT-DEFINED.              PAR      1375
                                        *                                                                        PAR      1376
                                        *                (X3) = CURRENT OPERATOR WORD FOR COMMA.                 PAR      1377
                                        *                (X4) = 1ST OPERAND.                                     PAR      1378
                                        *                (X5) = 2ND OPERAND.                                     PAR      1379
                                        *                                                                        PAR      1380
                                        *         EXIT   SEE INDIVIDUAL PROCESSORS.                              PAR      1381
                                        *                (NOTE - NOT ALL PROCESSORS EXIT DIRECTLY THRU *POP*...) PAR      1382
                                                                                                                 PAR      1383
           547  5110000000 X             POP.CM   SA1    ARGCOMA                                                 PAR      1384
                          76010                   =X0    1                                                       PAR      1385
           550  5120000000 X                      SA2    ARGMODE                                                 PAR      1386
                          36610                   IX6    X1+X0       UPDATE NUMBER OF ARGUMENTS                  PAR      1387
                               43052              MX0    -L.AMC                                                  PAR      1388
           551  10722                             BX7    X2                                                      PAR      1389
                     21222                        AX2    P.AMC                                                   PAR      1390
                          15020                   BX0    -X0*X2      C=XXX ADDRESS                               PAR      1391
                               54610              SA6    A1                                                      PAR      1392
           552  63200                             SB2    X0                                                      PAR      1393
                     0420400552 +                 ZR     B2,*+400000B                                            PAR      1394
                                                                                                                 PAR      1395
                                        **        EXIT CONDITIONS                                                PAR      1396
                                        *         (B2) = C=XXX ADDRESS                                           PAR      1397
                                        *         (X2) = (ARGMODE) SHIFTED BY P.AMC                              PAR      1398
                                        *         (X6) = CURRENT VALUE OF *ARGCOMA*                              PAR      1399
           553  0222000000                        JP     B2          JUMP TO INDIVIDUAL PROCESSORS.              PAR      1400
  
  
  
  
                                        **        C=CERR - IF COMMA NOT ALLOWED FOR PAREN LEVEL CURRENTLY IN.    PAR      1402
                                                                                                                 PAR      1403
                                                                                                                 PAR      1404
           554  6170000000 X             C=CERR   FATAL  E.AT5                                                   PAR      1405
           555  5130000000 X             C=ERR    SA3    ERROP                                                   PAR      1406
                          76700                   =X7    0                                                       PAR      1407
                               13444              BX4    0                                                       PAR      1408
           556  76500                             =X5    0                                                       PAR      1409
                     5170000002 +                 SA7    SOPR                                                    PAR      1410
           557  0400001734 +                      EQ     POP.ST1     ADD ERROR TURPLE                            PAR      1411
  
  
  
  
                                        **        C=CALL - PROCESS ARGUMENT FROM CALL STATEMENT                  PAR      1413
                                        *         (X5) = ARGUMENT.                                               PAR      1414
                                                                                                                 PAR      1415
           560                           C=FUN    BSS    0           EQUIVALENT TO C=CALL                        PAR      1416
           560  0100000000 X             C=CALL   RJ     ESC         EXPAND SHORT CONSTANT                       PAR      1417
           561  0100001226 +                      RJ     SDB         SET DEFINED BIT IF VARIABLE                 PAR      1418
           562  6130000000 X                      SB3    CALLOP                                                  PAR      1419
                          67303                   SB3    -B3                                                     PAR      1420
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    36
                                                                      C=CALL
  
                               76400              =X4    0           1ST OPERAND = DUMMY                         PAR      1421
           563  67661                             =B6    B6-1        REMOVE ARGUMENT FROM STACK                  PAR      1422
                     5110000000 X                 SA1    TT.SCR                                                  PAR      1423
           564  0100000000 X                      RJ     EMT         EMIT ARGUMENT LOAD TO SCRATCH TABLE         PAR      1424
           565  0400000531 +                      EQ     POPX                                                    PAR      1425
  
  
  
  
                                        **        C=GOT - PROCESS *EOS* OF COMPUTED *GOTO*.                      PAR      1443
                                        *                IF NOT AT *EOS* - COMMA IS ILLEGAL                      PAR      1444
                                        *                OTHERWISE PROCESS RESULTS FOR *GO TO* PROCESSOR         PAR      1445
                                                                                                                 PAR      1446
                                                                                                                 PAR      1447
           566  56240                    C=GOT    SA2    B4                                                      PAR      1448
                     10155                        BX1    X5                                                      PAR      1449
                          0312000554 +            NZ     X2,C=CERR   IF NOT AT *EOS*                             PAR      1450
           567  20162                             IFBIT  X1,-INTR,C=GT5    IF NOT INTERMEDIATE                   PAR      1451
           570  6170000000 X                      ANSI   E.GO9       MUST BE SIMPLE INTEGER VARIABLE             PAR      1452
                                                                                                                 PAR      1453
                                        **        CHECK MODE OF RESULTS OF *GO TO* EXPRESSION                    PAR      1454
                                                                                                                 PAR      1455
           571  43071                    C=GT5    MX0    -L.MODE                                                 PAR      1456
                     15250                        BX2    -X0*X5                                                  PAR      1457
                          6272777776              SB7    X2-M.LOG                                                PAR      1458
           572  0570000575 +                      NZ     B7,C=GT7    IF NOT LOGICAL RESULTS                      PAR      1459
                          6170000000 X            FATAL  E.GO10                                                  PAR      1460
           574  0400000555 +                      EQ     C=ERR                                                   PAR      1461
                                                                                                                 PAR      1462
           575  67771                    C=GT7    =B7    B7+M.LOG-M.INT                                          PAR      1463
                     10455                        BX4    X5          EXPRESSION RESULTS = OR.1OP                 PAR      1464
                          0470000603 +            ZR     B7,C=GT10   IF INTEGER RESULTS                          PAR      1465
           576  6170000000 X                      ANSI   E.GO11      MUST BE INTEGER                             PAR      1466
           577  5130000000 X                      SA3    INTMAC                                                  PAR      1467
                          10544                   BX5    X4                                                      PAR      1468
                               76400              =X4    0                                                       PAR      1469
           600  10633                             BX6    X3                                                      PAR      1470
                     66661                        =B6    B6+1                                                    PAR      1471
                          5160000002 +            SA6    SOPR                                                    PAR      1472
           601  0100001742 +                      RJ     ADT         OUTPUT *INT* TURPLE                         PAR      1473
           602  57461                             =A4    B6-1        RESULTS OF *INT*                            PAR      1474
           603  7130000000 X             C=GT10   =X3    O=GOC                                                   PAR      1475
                          5150000000 X            SA5    =XTRLINE                                                PAR      1476
           604  5110000000 X                      SA1    GOTA        NUMBER OF BRANCHES                          PAR      1477
                          7255770000              SX5    X5-7777B                                                PAR      1478
           605  0335000607 +                      MI     X5,C=GT12                                               PAR      1479
                          7130000000 X            =X3    =XO=GOCL                                                PAR      1480
           606  73111                             =X1    X1+1        CHANGE TEST TO 2 .LE. ARG .LE. N+1          PAR      1481
           607  20352                    C=GT12   LX3    P.JPAD                                                  PAR      1482
                     7160000063                   SX6    O.GOTC                                                  PAR      1483
                               12663              BX6    X6+X3                                                   PAR      1484
           610  14511                             BX5    -X1         COMPLEMENT                                  PAR      1485
                     10366                        BX3    X6                                                      PAR      1486
                          20500                   LX5    P.PTAGL                                                 PAR      1487
           611  5160000002 +                      SA6    SOPR        SET OPERATOR                                PAR      1488
                          0400001734 +            EQ     POP.ST1     POPIT.                                      PAR      1489
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    37
                                                                      C=BEF 
  
                                        **        C=BEF - PROCESS BASIC EXTERNAL FUNCTION ARGUMENT, CHECKING     PAR      1491
                                        *         IF MODE OF ARGUMENT AGREES WITH DEFINED TYPE, AND OUTPUTING    PAR      1492
                                        *         TURPLE FOR ARGUMENT                                            PAR      1493
                                        *         (ARGMIS) = 42/ DPC FOR BEF, 18/TAG FOR BEF                     PAR      1494
                                                                                                                 PAR      1495
                                                                                                                 PAR      1496
           612  5120000000 X             C=BEF    SA2    ARGCOMA                                                 PAR      1497
                          5130000000 X            SA3    ARGMIS                                                  PAR      1498
           613  10155                             BX1    X5                                                      PAR      1499
                     21222                        AX2    P.ACM                                                   PAR      1500
                          0100000000 X            RJ     VAM         VALIDATE AGRUMENT MODE ARGEEMENT            PAR      1501
           614  0100000000 X                      RJ     ESC         EXPAND SHORT CONSTANT                       PAR      1502
           615  5110000000 X                      SA1    CO.TBK                                                  PAR      1503
                          6130000000 X            SB3    CALLOP                                                  PAR      1504
           616  67303                             SB3    -B3                                                     PAR      1505
                     0331000624 +                 MI     X1,C=BEF4   IF TRACKBACK SELECTED                       PAR      1506
           617  5130000000 X                      SA3    REGARG                                                  PAR      1507
                          5170000000 +            SA7    SMOD                                                    PAR      1508
           620  5110000000 X                      ALLOC  TT.SCR,1                                                PAR      1509
           622  10755                             BX7    X5                                                      PAR      1510
                     57771                        SA7    B7-B1                                                   PAR      1511
                          67661                   =B6    B6-1        REMOVE ARGUMENT FROM STACK                  PAR      1512
           623  0400000531 +                      EQ     POPX                                                    PAR      1513
                                                                                                                 PAR      1514
           624  76400                    C=BEF4   =X4    0           1ST OPERAND = DUMMY                         PAR      1515
                     5110000000 X                 SA1    TT.SCR                                                  PAR      1516
                               67661              =B6    B6-1        REMOVE ARGUMENT FROM STACK                  PAR      1517
           625  0100000000 X                      RJ     EMT         EMIT ARGUMENT LOAD TO SCRATCH TABLE         PAR      1518
           626  0400000531 +                      EQ     POPX                                                    PAR      1519
  
  
  
  
                                        **        C=BIF- PROCESS INTRINSIC FUNCTION ARGUMENT CHECKING IF MODE    PAR      1521
                                        *                OF ARGUMENT AGREES WITH DEFINED TYPE.                   PAR      1522
                                                                                                                 PAR      1523
                                                                                                                 PAR      1524
           627  5120000000 X             C=BIF    SA2    ARGCOMA                                                 PAR      1525
                          10144                   BX1    X4                                                      PAR      1526
                               63720              SB7    X2                                                      PAR      1527
           630  5130000000 X                      SA3    ARGMIS                                                  PAR      1528
                          21222                   AX2    P.ACM                                                   PAR      1529
           631  0717000632 +                      GT1    B7,C=BIF5   IF ALREADY VALIDATED MODE OF 1ST ARGUMENT   PAR      1530
                          0100000000 X            RJ     VAM         VALIDATE 1ST ARGUMENT MODE                  FEAT126C  150
           632  5110002226 +             C=BIF5   SA1    =5LSHIFT                                                PAR      1532
                          37131                   IX1    X3-X1                                                   PAR      1533
                               21130              AX1    24                                                      PAR      1534
           633  0311000634 +                      NZ     X1,C=BIF7   IF NOT INTRINSIC *SHIFT*                    PAR      1535
                          76211                   =X2    M.INT                                                   PAR      1536
           634  10155                    C=BIF7   BX1    X5                                                      PAR      1537
                     0100000000 X                 RJ     VAM         VALIDATE 2ND ARGUMENT MODE                  FEAT126C  151
           635  5110000000 X                      SA1    BIFFUN                                                  PAR      1539
                          5120000000 X            SA2    TS.SYM                                                  PAR      1540
           636  43063                             MX0    -L.JPADF                                                PAR      1541
                     6223577777                   SB2    X3-C.SYM                                                PAR      1542
                               43771              MX7    -3                                                      FCC1886     5
           637  53222                             SA2    X2+B2       FETCH SYMBOL TABLE ENTRY                    PAR      1543
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    38
                                                                      C=BIF 
  
                     15727                        BX7    -X7*X2      ISOLATE MODE                                FCC1886     6
                          21233                   AX2    P.JPADF                                                 PAR      1544
                               15620              BX6    -X0*X2      ISOLATE RELATIVE SKELETON ADDRESS           PAR      1545
           640  7226000000 X                      SX2    X6+INLBASE                                              PAR      1546
                          6276777377              SB7    X6-1S8                                                  PAR      1547
           641  5170000000 +                      SA7    SMOD                                                    FCC1886     7
                          0770000644 +            MI     B7,C=BIF10  IF NOT SPECIAL FUNCTION                     PAR      1548
           642  0100000000 X                      RJ     ESF         EVUALATE SPECIAL FUNCTION                   PAR      1549
           643  0332000531 +                      MI     X2,POPX     IF FUNCTION REDUCED                         PAR      1550
                                                                                                                 PAR      1551
           644  20252                    C=BIF10  LX2    P.JPAD      ACTUAL MACRO ADDRESS                        PAR      1552
                     36312                        IX3    X1+X2                                                   PAR      1553
                          5110000000 X            SA1    ARGMIS                                                  PAR      1554
           645  43052                             MX0    L.SYM                                                   PAR      1555
                     11101                        BX1    X0*X1                                                   PAR      1556
                          66710                   =B7    1                                                       PAR      1557
           646  5127000651 +             C=BIF11  SA2    B7+DMINMAXT                                             PAR      1558
                          37212                   IX2    X1-X2                                                   PAR      1559
           647  0302001722 +                      ZR     X2,POP.STD  IF *DMAX1* OR *DMIN1*                       PAR      1560
                          67771                   =B7    B7-1                                                    PAR      1561
           650  0770001734 +                      MI     B7,POP.ST1  IF NOT                                      PAR      1562
                          0400000646 +            EQ     C=BIF11                                                 PAR      1563
                                                                                                                 PAR      1564
           651                           DMINMAXT BSS    0                                                       PAR      1565
           651  04150130340000000000              CON    5LDMAX1                                                 PAR      1566
           652  04151116340000000000              CON    5LDMIN1                                                 PAR      1567
  
  
  
  
                                        **        C=DEC - PROCESS *,* FOR EXPRESSION IN DECLARATIVE              PAR      1569
                                        *                                                                        PAR      1570
                                        *         ENTRY  (X6) = RESULTS OF EXPRESSION.                           PAR      1571
                                        *                                                                        PAR      1572
                                        *         EXIT   PAR.EXIT                                                PAR      1573
                                                                                                                 PAR      1574
                                                                                                                 PAR      1575
           653  6144000001               C=DEC    SB4    B4+1                                                    PAR      1576
                          0400000503 +            EQ     PAREXIT     EXIT POINTING TO NEXT CHARACTER             PAR      1577
  
  
  
  
  
  
  
  
                                        **        C=DO-  CHECK INDICES OF *DO* LOOP                              PAR      1580
                                        *                                                                        PAR      1581
                                        *         ENTRY- (X4) = INDEX VARIABLE.                                  PAR      1582
                                        *         (X6) = INDEX NUMBER. (ARGCOMA)                                 PAR      1583
                                                                                                                 PAR      1584
                                                                                                                 PAR      1585
           654  43071                    C=DO     MX0    -L.MODE                                                 PAR      1586
                     6236777776                   SB3    X6-1                                                    PAR      1587
           655  5123000000 X                      SA2    B3+DO.DPC   LOAD DPC FOR CURRENT INDEX PROCESSING       PAR      1588
                          0430000657 +            ZR     B3,C=DO1    IF PROCESSING CONTROL INDEX                 PAR      1589
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    39
                                                                      C=DO
  
           656  10455                             BX4    X5                                                      PAR      1590
           657  10622                    C=DO1    BX6    X2                                                      PAR      1591
                     22104                        LX1    X4                                                      PAR      1592
                          5160000000 X            SA6    FILL.       DPC FOR CURRENT INDEX.                      PAR      1593
           660  0100000000 X                      RJ     LCT         CHECK IF CONSTANT                           PAR      1594
           661  5220000663 +                      SA2    X0+DO=IX                                                PAR      1595
                          10366                   BX3    X6                                                      PAR      1596
                               63720              SB7    X2                                                      PAR      1597
                                                                                                                 PAR      1598
                                        **        EXIT   (X0) = MODE OF INDEX                                    PAR      1599
                                        *                (X3) = BINARY OF CONSTANT.                              PAR      1600
                                        *                (B2) = 0, IF INDEX NOT A CONSTANT                       PAR      1601
                                        *                (B3) = INDEX TYPE.                                      PAR      1602
                                                                                                                 PAR      1603
           662  0277000000                        JP     B7          JUMP RELATIVE TO MODE OF INDEX.             PAR      1604
  
  
  
  
                                        *         DO=IX - INDEX JUMP TABLE RELATIVE TO MODE OF INDEX.            PAR      1606
                                                                                                                 PAR      1607
                                                                                                                 PAR      1608
           663                           DO=IX    BSS    0                                                       PAR      1609
      L      0                                    LOC    M.UNIV                                                  PAR      1610
                                                                                                                 PAR      1611
      L      0  00000000000000000671 +            CON    IX=UNIV     INDEX JUMP TABLE.                           PAR      1612
      L      1  00000000000000000674 +            CON    IX=LOG                                                  PAR      1613
      L      2  00000000000000000677 +            CON    IX=INT                                                  PAR      1614
      L      3  00000000000000000674 +            CON    IX=REAL                                                 PAR      1615
      L      4  00000000000000000674 +            CON    IX=DBL                                                  PAR      1616
      L      5  00000000000000000674 +            CON    IX=CPLX                                                 PAR      1617
           671                                    LOC    *O                                                      PAR      1618
  
  
  
  
                                        *         IF INDEX IS CHAMELON                                           PAR      1620
                                                                                                                 PAR      1621
                                                                                                                 PAR      1622
           671  0430000700 +             IX=UNIV  ZR     B3,DOER17   IF CONTROL INDEX, ERROR                     PAR      1623
                          6170000000 X            ANSI   E.DO16      NON ANSI INDEX                              PAR      1624
           673  0400000677 +                      EQ     IX=INT                                                  PAR      1625
  
  
  
  
                                        *         IF INDEX IS LOGICAL, REAL, DOUBLE OR COMPLEX.                  PAR      1627
                                                                                                                 PAR      1628
                                                                                                                 PAR      1629
           674                           IX=REAL  BSS    0                                                       PAR      1630
           674                           IX=DBL   BSS    0                                                       PAR      1631
           674                           IX=CPLX  BSS    0                                                       PAR      1632
           674  0430000700 +             IX=LOG   ZR     B3,DOER17   IF CONTROL INDEX, ERROR                     PAR      1633
                          6170000000 X            FATAL  E.DO1                                                   PAR      1634
           676  0400000754 +                      EQ     DO.ERR                                                  PAR      1635
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    40
                                                                      IX=INT
  
                                        *         IF INDEX IS INTEGER.                                           PAR      1637
                                                                                                                 PAR      1638
                                                                                                                 PAR      1639
           677  0420000717 +             IX=INT   ZR     B2,C=DO10   IF NOT CONSTANT                             PAR      1640
                          0530000702 +            NZ     B3,C=DO6    IF NOT CONTROL INDEX                        PAR      1641
                                                                                                                 PAR      1642
           700  6170000000 X             DOER17   FATAL  E.DO17      CONTROL INDEX NOT INTEGER                   PAR      1643
           701  0400001010 +                      EQ     DO.CON6                                                 PAR      1644
  
  
  
  
                                        *         CHECK CONSTANT INDEX USE.                                      PAR      1646
                                                                                                                 PAR      1647
           702  10033                    C=DO6    BX0    X3                                                      PAR      1648
                     0333000704 +                 MI     X3,C=DO6A   IF INDEX IS NEGATIVE                        PAR      1649
           703  0313000706 +                      NZ     X3,C=DO6B   IF INDEX IS NOT ZERO                        PAR      1650
           704  6170000000 X             C=DO6A   FATAL  E.DO5       INDEX NOT .GT. ZERO                         PAR      1651
           705  0400000754 +                      EQ     DO.ERR                                                  PAR      1652
           706  7120377776               C=DO6B   SX2    377776B     MAXIMUM VALUE OF DO INDEX                   FCC2291    13
                          37220                   IX2    X2-X0                                                   FCC2291    14
           707  0322000712 +                      PL     X2,C=DO6C   IF INDEX IS NOT TOO LARGE                   FCC2291    15
                          6170000000 X            FATAL  E.DO3       INDEX TOO LARGE                             PAR      1655
           711  0400000754 +                      EQ     DO.ERR                                                  PAR      1656
           712  5120001012 +             C=DO6C   SA2    IXLASTV     LAST VALUE OF INDEX                         PAR      1657
                          10633                   BX6    X3                                                      PAR      1658
                               37032              IX0    X3-X2                                                   PAR      1659
           713  54620                             SA6    A2          RESET INDEX                                 PAR      1660
                     0320000741 +                 PL     X0,C=DOX    IF NON-NEGATIVE DIFFERENCE, EXIT..          PAR      1661
           714  6123777774                        SB2    B3-3                                                    PAR      1662
                          0420000741 +            ZR     B2,C=DOX    IF PROCESSING INCREMENT, EXIT..             PAR      1663
           715  6170000000 X                      WARN   E.DO2       ** ONE-TRIP **                              PAR      1664
           716  0400000741 +                      EQ     C=DOX       EXIT..                                      PAR      1665
  
  
  
  
                                        **        PROCESS WHEN INDEX IS A TAG.                                   PAR      1667
                                                                                                                 PAR      1668
           717  10044                    C=DO10   BX0    X4                                                      PAR      1669
                     21052                        AX0    P.TAG                                                   PAR      1670
                          10144                   BX1    X4                                                      PAR      1671
                               20162              IFBIT  X1,-INTR,C=DO15   IF NOT INTERMEDIATE                   FCC1299     5
                          6170000000 X            FATAL  E.DO4       NOT A SIMPLE VARIABLE                       PAR      1673
           722  0400000754 +                      EQ     DO.ERR                                                  PAR      1674
           723  5110000000 X             C=DO15   SA1    TS.SYM                                                  FCC1299     6
                          6270577777              SB7    X0-C.SYM                                                PAR      1676
           724  53217                             SA2    B7+X1                                                   PAR      1677
                     0530000734 +                 NZ     B3,C=DO16         IF NOT CONTROL INDEX                  FCC1299     7
           725  7130000010                        =X3    M.DEF                                                   FCC1299     8
                          12623                   BX6    X2+X3             SET DEFINE BIT                        FCC1299     9
                               54620              SA6    A2                                                      FCC1299    10
           726  20257                             IFBIT  X2,-VAR,C=DO16A     IF NOT SIMPLE VARIABLE              FCC1901    15
                               20241              IFBIT  X2,-FPS/VAR,C=DO16A IF NOT FP USED AS A SUBSCRIPT       FCC1901    16
                          55221                   SA2    A2-B1               POINTS TO SYMBOL IN TS.SYM          FCC1901    17
                               43652              MX6    L.SYM                                                   FCC1901    18
           730  11626                             BX6    X2*X6               EXTRACT SYMBOL                      FCC1901    19
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    41
                                                                      IX=TAG
  
                     5160000000 X                 SA6    FILL.                                                   FCC1901    20
           731  6170000000 X                      ANSI   =XE.AT13            REDEFINITION OF FPS IS NON-ANSI     FCC1901    21
           732  54221                             SA2    A2+B1                                                   FCC1901    22
                     0400000734 +                 EQ     C=DO16                                                  FCC1901    23
           733  54220                    C=DO16A  SA2    A2                  RESTORE X2                          FCC1901    24
           734  20257                    C=DO16   IFBIT  X2,VAR,C=DO20     IF A VARIABLE                         FCC1299    11
           735  6170000000 X                      FATAL  E.DO4       INDEX MUST BE SIMPLE VARIABLE               PAR      1679
           736  0400000754 +                      EQ     DO.ERR                                                  PAR      1680
           737  13666                    C=DO20   BX6    0                                                       FCC1299    12
                     5160001012 +                 SA6    IXLASTV                                                 PAR      1682
           740  0400000741 +                      EQ     C=DOX        EXIT..                                     PAR      1683
  
  
  
  
                                        **        C=DOX - ADD INDEX TO *TP.DO* TABLE                             PAR      1685
                                        *                                                                        PAR      1686
                                        *         ENTRY  (X4) = CURRENT INDEX VALUE.                             PAR      1687
                                        *                (B3) = CURRENT INDEX NUMBER.                            PAR      1688
                                        *                     = 0, CONTROL                                       PAR      1689
                                        *                     = 1, INITIAL                                       PAR      1690
                                        *                     = 2, LIMIT                                         PAR      1691
                                        *                     = 3, INCREMENT                                     PAR      1692
                                        *                     = 4, ERROR                                         PAR      1693
                                        *                                                                        PAR      1694
                                        *         EXIT   POPX                                                    PAR      1695
                                                                                                                 PAR      1696
           741  5113000745 +             C=DOX    SA1    B3+DO.INX                                               PAR      1697
                          5130000000 X            SA3    TP.DO                                                   PAR      1698
           742  5120000000 X                      SA2    TP=DO                                                   PAR      1699
                          63710                   SB7    X1          JUMP ADDRESS                                PAR      1700
                               36023              IX0    X2+X3                                                   PAR      1701
           743  10644                             BX6    X4          INDEX TAG                                   PAR      1702
                     6220777771                   SB2    X0-L.DOE    FWA FOR CURRENT DO ENTRY                    PAR      1703
           744  0277000000                        JP     B7                                                      PAR      1704
                                                                                                                 PAR      1705
           745                           DO.INX   BSS    0                                                       PAR      1706
           745  00000000000000000776 +            CON    DO.CON                                                  PAR      1707
           746  00000000000000000755 +            CON    DO.INIT                                                 PAR      1708
           747  00000000000000000761 +            CON    DO.LIM                                                  PAR      1709
           750  00000000000000000774 +            CON    DO.INCR                                                 PAR      1710
           751  00000000000000000752 +            CON    DO.ERR1                                                 PAR      1711
                                                                                                                 PAR      1712
                                        **        RETURN FOR ALL *DO* DEFINITION ERRORS.                         PAR      1713
                                                                                                                 PAR      1714
           752  6170000000 X             DO.ERR1  FATAL  E.DO                                                    PAR      1715
           753  0400000022 +                      EQ     PARX        EXIT PAR ENTIRELY                           FCC1453     5
           754  67661                    DO.ERR   =B6    B6-1        ELIMINATE OPERAND                           PAR      1716
                     0400000531 +                 EQ     POPX        EXIT..                                      PAR      1717
                                                                                                                 PAR      1718
                                        **        PROCESS *INITIAL* INDEX                                        PAR      1719
                                                                                                                 PAR      1720
           755  67661                    DO.INIT  =B6    B6-1        ELIMINATE OPERAND IN STACK                  PAR      1721
                     7100000000 X                 =X0    PR.SLP                                                  PAR      1722
           756  7130000013                        =X3    O.COMMA                                                 PAR      1723
                          20022                   LX0    P.STPR                                                  PAR      1724
           757  5162000000                        SA6    B2+OR.DOSI  INITIAL TO DO TABLE                         PAR      1725
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    42
                                                                      IX=INTR 
  
                          12703                   BX7    X0+X3                                                   PAR      1726
                               56750              SA7    B5          REPLACE *=* WITH SPECIAL *COMMA*            PAR      1727
           760  0400000531 +                      EQ     POPX        CONTINUE - POPPING DO TURPLE                PAR      1728
                                                                                                                 PAR      1729
                                        **        PROCESS *LIMIT* INDEX                                          PAR      1730
                                                                                                                 PAR      1731
           761  7100004000               DO.LIM   =X0    M.SHORT                                                 PAR      1732
                          5110000000 X            SA1    CONONE                                                  PAR      1733
           762  11306                             BX3    X0*X6                                                   PAR      1734
                     0303000766 +                 ZR     X3,DO.LIM2  IF *LIMIT* NOT SHORT CONSTANT               PAR      1735
                               21652              AX6    P.SHC                                                   PAR      1736
           763  43052                             MX0    -L.SHC                                                  PAR      1737
                     73461                        =X4    X6+1                                                    PAR      1738
                          14244                   BX2    -X4         COMPLEMENT FOR ADD IN                       PAR      1739
           764  7130004002                        SX3    M.SHORT+M.INT                                           PAR      1740
                          15720                   BX7    -X0*X2      EXTRACT *SHORT* LENGTH ONLY                 PAR      1741
                               20752              LX7    P.SHC                                                   PAR      1742
           765  12673                             BX6    X7+X3       ALWAYS *INTEGER* REGARDLESS OF ORGINAL MODE PAR      1743
           766  5162000001               DO.LIM2  SA6    B2+OR.DOLI  SET *LIMIT* IN *DO* TABLE                   PAR      1744
                          10711                   BX7    X1                                                      PAR      1745
           767  5122000005                        SA2    B2+OR.DOSN                                              PAR      1746
                          5172000002              SA7    B2+OR.DOII  PRESET INCREMENT = 1                        PAR      1747
           770  73620                             SX6    X2                                                      PAR      1748
                     0316000772 +                 NZ     X6,DO.LIM5  IF IN I/O LIST PROCESSING.                  PAR      1749
           771  5120000000 X                      SA2    TG.PRO      GET GENERATED LABEL TO TAG START OF DO      PAR      1750
                          73621                   =X6    X2+1                                                    PAR      1751
                               54620              SA6    A2          UPDATE L-TAG                                PAR      1752
           772  67661                    DO.LIM5  =B6    B6-1                                                    PAR      1753
                     5162000004                   SA6    B2+OR.DORT  RETURN TAG TO TABLE.                        PAR      1754
           773  0400000531 +                      EQ     POPX        EXIT..                                      PAR      1755
                                                                                                                 PAR      1756
                                        **        PROCESS *INCREMENT* INDEX                                      PAR      1757
                                                                                                                 PAR      1758
           774  5162000002               DO.INCR  SA6    B2+OR.DOII  SET INCREMENT                               PAR      1759
                          67661                   =B6    B6-1                                                    PAR      1760
           775  0400000531 +                      EQ     POPX        EXIT..                                      PAR      1761
                                                                                                                 PAR      1762
                                        **        PROCESS *CONTROL* INDEX                                        PAR      1763
                                                                                                                 PAR      1764
           776  10144                    DO.CON   BX1    X4          CONTROL INDEX                               PAR      1765
                     5120000000 X                 SA2    TP.DO                                                   PAR      1766
                               22601              LX6    X1                                                      PAR      1767
           777  6172000003                        SB7    B2+OR.DOCI                                              PAR      1768
                          5160000000 X            SA6    DOIX        ACTIVE *DO* INDEX                           PAR      1769
          1000  5162000003                        SA6    B2+OR.DOCI  CONTROL INDEX TO TP.DO                      PAR      1770
                          6232000003              SB3    X2+OR.DOCI                                              PAR      1771
          1001  5212000003                        SA1    X2+OR.DOCI                                              PAR      1772
                          0400001007 +            EQ     DO.CON5     CHECK IF INDEX ALREADY IN USE.              PAR      1773
                                                                                                                 PAR      1774
                                        **        CHECK IF CURRENT *DO* CONTROL VALUE ACTIVE BY OTHER *DO*       PAR      1775
                                                                                                                 PAR      1776
          1002  13316                    DO.CON1  BX3    X1-X6                                                   PAR      1777
                     6133000006                   SB3    B3+L.DOE                                                PAR      1778
                               21352              AX3    P.TAG                                                   PAR      1779
          1003  0313001006 +                      NZ     X3,DO.CON2  IF INDEX NOT REDEFINED                      PAR      1780
                          6170000000 X            FATAL  E.DO11      INDEX OF OUTER DO REDEFINED                 PAR      1781
          1005  0400001010 +                      EQ     DO.CON6                                                 PAR      1782
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    43
                                                                      IX=INTR 
  
          1006  56130                    DO.CON2  SA1    B3                                                      PAR      1783
          1007  0737001002 +             DO.CON5  LT     B3,B7,DO.CON1     IF NOT END OF TABLE.                  PAR      1784
                                                                                                                 PAR      1785
          1010  76110                    DO.CON6  =X1    1                                                       PAR      1786
                     5120000000 X                 SA2    ARGCOMA                                                 PAR      1787
                               36621              IX6    X2+X1                                                   PAR      1788
          1011  54620                             SA6    A2          UPDATE *ARGCOMA*                            PAR      1789
                     0400000654 +                 EQ     C=DO        CONTINUE, PROCESSING *INITIAL*              PAR      1790
                                                                                                                 PAR      1791
                                        **        (*IXLASTV*)  THE LAST INDEX VALUE, IF INDEX WAS A VARIABLE     PAR      1792
                                        *         *IXLASTV* WILL CONTAIN A ZERO.                                 PAR      1793
                                                                                                                 PAR      1794
          1012  00000000000000000000     IXLASTV  DATA   0           LAST VALUE OF *DO* INDEX PROCESSED.         PAR      1795
  
  
  
  
                                        **        POP.RP - RIGHT PAREN BEING POPPED.                             PAR      1797
                                        *         OUTPUT ERROR, TOO FEW LEFT PARENS - SCANNING STOPPED.          PAR      1798
                                        *                                                                        PAR      1799
                                        *         JOINTED AT POP.RP5  BY LEFT PAREN POPPER IF NOT BEING POPPED   PAR      1800
                                        *         RIGHT PAREN - ERROR = TOO FEW RIGHT PARENS                     PAR      1801
                                        *                                                                        PAR      1802
                                        *         EXIT   C=ERR                                                   PAR      1803
                                                                                                                 PAR      1804
                                                                                                                 PAR      1805
          1013  56151                    POP.RP   =A1    B5+1                                                    PAR      1806
                     21122                        AX1    18          TEST FOR SPECIAL RP                         PAR      1807
                          0301001015 +            ZR     X1,POP.RP1  IF NOT SPECIAL RP, THEN ERROR               PAR      1808
          1014  0400000500 +                      EQ     PAR.EOS3    CONTINUE PROCESSING IO LIST                 PAR      1809
          1015  6144777774               POP.RP1  =B4    B4-3        SET FOR ERROR PROCESSING                    PAR      1810
                          6170000000 X            SB7    E.LP4                                                   PAR      1811
          1016  0100000000 X             POP.RP5  FATAL  B7                                                      PAR      1812
          1017  0400000525 +                      EQ     PAR.STOP    CATASTROPIC ERROR, START ANEW               PAR      1813
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    44
                                                                      POP.PN
  
                                        **        POP.PN -  PROCESS RIGHT PARENTHESIS POPPING LEFT PARENTHESIS   PAR      1815
                                        *                                                                        PAR      1816
                                        *         A=XXX PROCESSING SECTION.                                      PAR      1817
                                        *                                                                        PAR      1818
                                        *         GENERAL FLOW.                                                  PAR      1819
                                        *         UPON ENTRY ARGMODE AND ARGCOMA ARE SET TO THE CURRENT MODE     PAR      1820
                                        *         OF THE SUB-EXPRESSION DEFINED IN PARENTHESIS AS SET WHEN       PAR      1821
                                        *         THE OPEN PAREN WAS FOUND.                                      PAR      1822
                                        *                                                                        PAR      1823
                                        *         THE NEW VALUES TO BE SET FOR CELLS ARGMODE,ARGCOMA AND ARGMIS  PAR      1824
                                        *         WERE PREVIOUSLY SET BY *SPS* TO BE IN THE OPERATOR STACK IN    PAR      1825
                                        *         FRONT OF THE CURRENT LEFT PAREN THAT IS CURRENTLY BEING POPPED PAR      1826
                                        *         THUS WE RESET ALL THREE OF THESE CELLS AS DEFINED BELOW.       PAR      1827
                                        *                                                                        PAR      1828
                                        *         AFTER THIS WE EXIT TO THE APPROPRIATE A=XXX PROCESSOR DEFINED  PAR      1829
                                        *         BY THE A= FIELD OF THE ENTRY ARGMODE.                          PAR      1830
                                        *                                                                        PAR      1831
                                        *         NOTE -                                                         PAR      1832
                                        *         IF LEFT PAREN NOT BEING POPPED BY RIGHT PAREN - NEXT ENTRY     PAR      1833
                                        *         IN *SB* IS REPLACED WITH AN *EOS* AND EXIT IS MADE TO C=CERR   PAR      1834
                                        *         TO OUTPUT ERROR INDICATING TOO MANY LEFT PARENS, AND TO ADD    PAR      1835
                                        *         ERROR TURPLE TO PARSED FILE.                                   PAR      1836
                                        *                                                                        PAR      1837
                                        *                B5-3   =   ARGMODE.                                     PAR      1838
                                        *                B5-2   =   ARGCOMA                                      PAR      1839
                                        *                B5-1   =   ARGMIS                                       PAR      1840
                                        *                                                                        PAR      1841
                                        *         ARGMODE FORMAT.                                                PAR      1842
                                        *         +-----------+-----------+-----------------+-----------------+  PAR      1843
                                        *         +           +           +                 +                 +  PAR      1844
                                        *         +  REFVAR   +ATTRIBUTES +      C=XXX      +       A=XXX        PAR      1845
                                        *         +           +           +                 +                 +  PAR      1846
                                        *         +-----------+-----------+-----------------+-----------------+  PAR      1847
                                        *              12         12               18               18           PAR      1848
                                        *                                                                        PAR      1849
                                        *         ARGCOMA FORMAT.                                                PAR      1850
                                        *         +-----------------------+-----------------+-----------------+  PAR      1851
                                        *         +///////////////////////+  MODE  OF  PARM + CURRENT ARGUMENT+  PAR      1852
                                        *         +///////////////////////+ ( MAY BE OTHER )+    -  1         +  PAR      1853
                                        *         +///////////////////////+                 +                 +  PAR      1854
                                        *         +-----------------------+-----------------+-----------------+  PAR      1855
                                        *                    24                   18               18            PAR      1856
                                        *                                                                        PAR      1857
                                        *                                                                        PAR      1858
                                        *         ENTRY  (X3) = CURRENT *(* OPERATOR TO BE PROCESSED.            PAR      1859
                                        *                (B2) = CURRENT VALUE OF ARGCOMA                         PAR      1860
                                        *                (B3) = CURRENT VALUE OF ARGMODE.                        PAR      1861
                                        *                (B4) _ RIGHT PARENTHESIS IN *SB*.                       PAR      1862
                                        *                (POPPER) = TABBED VALUE FOR RIGHT PAREN OPERATOR.       PAR      1863
                                        *                                                                        PAR      1864
                                        *         EXIT   DEPENDING ON THE PARTICULAR VALUE FOR A=, EXIT IS THRU  PAR      1865
                                        *                A.  POP.STD - TO PROCESS OPERATOR.                      PAR      1866
                                        *                B.  POPX    - IGNORE OPERATOR.                          PAR      1867
                                        *                              (NOTE - IN CERTAIN *POPPER* IS SET TO     PAR      1868
                                        *                                      INDICATE BY-PASSING OF PAREN.)    PAR      1869
                                        *                                                                        PAR      1870
                                        *         USES   A2,A3,A4,A6  X5  B3                                     PAR      1871
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    45
                                                                      POP.PN
  
                                                                                                                 PAR      1872
                                                                                                                 PAR      1873
          1020  5140000000 X             POP.PN   SA4    ARGMODE                                                 PAR      1874
                          5130000006 +            SA3    POPDPC                                                  PAR      1875
          1021  5150000000 X                      SA5    ARGCOMA                                                 PAR      1876
                          6223777766              SB2    X3-O.RP                                                 PAR      1877
          1022  63340                             SB3    X4                                                      PAR      1878
                     5130000000 X                 SA3    ARGMIS                                                  PAR      1879
          1023  6170000000 X                      SB7    E.LP3       IN CASE OF PAREN MIS-MATCH                  PAR      1880
                          0520001016 +            NZ     B2,POP.RP5  IF *(* NOT BEING POPPED BY *)*              PAR      1881
          1024  10744                             BX7    X4                                                      PAR      1882
                     63250                        SB2    X5                                                      PAR      1883
                          5170000000 X            SA7    SCR         SAVE CURRENT *ARGMODE*                      PAR      1884
          1025  22605                             LX6    X5                                                      PAR      1885
                     10733                        BX7    X3                                                      PAR      1886
                          5125777775              SA2    B5-2        TO BE USED FOR RESETTING ARGMODE.           PAR      1887
          1026  54671                             =A6    A7+1        SAVE CURRENT *ARGCOMA*                      PAR      1888
                     54421                        =A4    A2+1        TO BE USED FOR RESETTING ARGCOMA.           PAR      1889
                          54761                   =A7    A6+1        SAVE CURRENT *ARGMIS*                       PAR      1890
                               10622              BX6    X2                                                      PAR      1891
          1027  6155777774                        SB5    B5-L.PSTACK RESET *OSTACK* POINTER                      PAR      1892
                          5130000010 +            SA3    CMLFLG                                                  PAR      1893
          1030  54541                             =A5    A4+1        TO BE USED FOR RESETTING ARGMIS.            PAR      1894
                     73235                        SX2    X3+B5                                                   PAR      1895
                          5160000000 X            SA6    ARGMODE     RESET ARGMODE                               PAR      1896
          1031  0312001032 +                      NZ     X2,POP.PN1  IF NO NEED TO RESET FLAG                    PAR      1897
                          76710                   =X7    1                                                       PAR      1898
                               54730              SA7    A3                                                      PAR      1899
          1032  21660                    POP.PN1  AX6    P.AMR                                                   PAR      1900
                     5120000000 X                 SA2    ARGCOMA                                                 PAR      1901
                               10744              BX7    X4                                                      PAR      1902
          1033  5160000000 X                      SA6    REFVAR      RESET CROSS REFERENCE VALUE.                PAR      1903
                          54720                   SA7    A2          RESET ARGCOMA.                              PAR      1904
                               10655              BX6    X5                                                      PAR      1905
          1034  5160000000 X                      SA6    ARGMIS                                                  PAR      1906
                          5146777775              SA4    B6-2        1ST OPERAND                                 PAR      1907
          1035  43673                             MX6    -1                                                      PAR      1908
                     66441                        =B4    B4+1        BY-PASS RIGHT PARENTHESIS.                  PAR      1909
                          57561                   =A5    B6-1        2ND OPERAND.                                PAR      1910
          1036  5160000007 +                      SA6    POPPER      INDICATE IGNORE FUTHER PROCESSING OF PAREN  PAR      1911
                                                                                                                 PAR      1912
                                        **        EXIT TO A=XXX PROCESSOR WITH THE FOLLOWING CONDITIONS SET --   PAR      1913
                                        *         (X2) = (ARGCOMA)                                               PAR      1914
                                        *         (X5) = 2ND OPERAND                                             PAR      1915
                                        *         (B2) = NUMBER OF ARGUMENTS -1 INSIDE PARENS.                   PAR      1916
                                        *         (B4) _ NEXT ELEMENT PAST CLOSING RIGHT PAREN                   PAR      1917
                                        *                                                                        PAR      1918
                                        *         (SCR)  = (ARGMODE) FOR PAREN BEING CLOSED.                     PAR      1919
                                        *         (SCR+1)= (ARGCOMA)  -    -     -      -                        PAR      1920
                                        *         (SCR+2)= (ARGMIS )  -    -     -      -                        PAR      1921
                                                                                                                 PAR      1922
                          0233000000              JP     B3                                                      PAR      1923
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    46
                                                                      A=ASF 
  
                                        **        A=ASF -ASF TERMINATION.                                        PAR      1925
                                        *                                                                        PAR      1926
                                        *         PARSER COMES HERE TO TERMINATE AN *ASF* EXPANSION.             PAR      1927
                                        *                                                                        PAR      1928
                                        *         ENTRY  B4_ NEXT CHARACTER AFTER *ASF* *)*.                     PAR      1929
                                        *                                                                        PAR      1930
                                        *         EXIT   (INAFR)   CLEARED                                       PAR      1931
                                        *                (B4)      RESET TO *SB*                                 PAR      1932
                                        *                (ALC.REG) RESET TO *SB*                                 PAR      1933
                                        *                (TT=ASF)  RESET TO REAL LENGTH                          PAR      1934
                                                                                                                 PAR      1935
                                                                                                                 PAR      1936
          1037  57461                    A=ASF    =A4    B6-1        FETCH LAST ESTACK ENTRY                     PAR      1937
                     43071                        MX0    -L.MODE                                                 PAR      1938
                          5120000002 X            SA2    SCR+2       ASF *ARGMIS* VALUE                          PAR      1939
          1040  15140                             BX1    -X0*X4                                                  PAR      1940
                     0301001057 +                 ZR     X1,A=ASF2   IF ASF EXPR TYPELESS                        FCC1294     9
                               13012              BX0    X1-X2                                                   PAR      1942
          1041  0300001051 +                      ZR     X0,A=ASF1   IF NO MODE CONVERSION NEEDED                PAR      1943
                          76610                   =X6    1           FIRST (ONLY) OPERAND TO BE CONVERTED        PAR      1944
                               20622              LX6    18                                                      PAR      1945
          1042  12626                             BX6    X2+X6                                                   PAR      1946
                     5160000000 +                 SA6    SMOD        SET SMOD FOR OMC                            PAR      1947
                               20203              LX2    3           8*MODE = SHIFT COUNT                        PAR      1948
          1043  63220                             SB2    X2                                                      PAR      1949
                     5221000000 X                 SA2    X1+MODTBL   MODE CONVERSION TABLE ENTRY                 PAR      1950
                               43064              MX0    -8                                                      PAR      1951
          1044  23622                             AX6    B2,X2                                                   PAR      1952
                     15660                        BX6    -X0*X6      ONLY 8 BITS FOR EACH MODE                   PAR      1953
                          0306001051 +            ZR     X6,A=ASF1   IF NO CONVERSION NEEDED                     FCC0963     5
          1045  6226777400                        SB2    X6-377B                                                 FCC1294    10
                          0520001050 +            NE     B2,A=ASF0   IF LEGAL CONVERSION                         FCC1294    11
          1046  6170000000 X                      FATAL  E.AT12                                                  FCC1294    12
          1047  5120000002 X                      SA2    SCR+2                                                   FCC1294    13
                          0400001061 +            EQ     A=ASF3                                                  FCC1294    14
                                                                                                                 FCC1294    15
          1050  54661                    A=ASF0   =A6    A6-SMOD+SMOD1  SET SMOD1 FOR OMC                        FCC1294    16
                     0100002075 +                 RJ     OMC         MODE CONVERSION                             PAR      1955
          1051  56140                    A=ASF1   SA1    B4                                                      PAR      1956
                     0311000042 +                 NZ     X1,PAR.NX   IF NOT *EOS*                                PAR      1957
          1052  5130000000 X                      SA3    ALC.00                                                  PAR      1958
                          5110000000 X            SA1    ASFLEN                                                  PAR      1959
          1053  5120000000 X                      SA2    INAFR                                                   PAR      1960
                          10733                   BX7    X3                                                      PAR      1961
                               22601              LX6    X1                                                      PAR      1962
          1054  63420                             SB4    X2          INPUT CURSOR BACK TO *SB*                   PAR      1963
                     5170000000 X                 SA7    ALC.REG     UNLOCK *B4*                                 PAR      1964
          1055  5160000000 X                      SHRINK TT=ASF,X6   ERASE EXPANDED STATEMENT FUNCTION           FCC0813   169
                          13777                   BX7    0                                                       PAR      1966
                               54720              SA7    A2          INDICATE NO STATEMENT FUNCTION IN PROGRESS  PAR      1967
          1056  0400000042 +                      EQ     PAR.NX      CONTINUE TO PROCESS REST OF STATEMENT       PAR      1968
          1057  6222777776               A=ASF2   SB2    X2-M.LOG    HERE IF ASF EXPR TYPELESS                   FCC1294    17
                          0520001061 +            NE     B2,A=ASF3   IF ASF MODE NOT LOGICAL                     FCC1294    18
          1060  6170000000 X                      WARN   E.AT11                                                  FCC1294    19
          1061  11404                    A=ASF3   BX4    X0*X4       CHANGE EXPR MODE TO ASF MODE                FCC1294    20
                     12642                        BX6    X4+X2                                                   FCC1294    21
                          54640                   SA6    A4                                                      FCC1294    22
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    47
                                                                      A=ASF 
  
          1062  0400001051 +                      EQ     A=ASF1                                                  FCC1294    23
  
  
  
  
                                        **        A=BEF  TERMINATE END OF ARGUMENT LIST FOR *BASIC EXTERNAL*     PAR      1970
                                        *                                                                        PAR      1971
                                        **        VALIDATE ARGUMENT LIST AGREEMENT WITH THAT DEFINED FOR CURRENT PAR      1972
                                        *         BASIC EXTERNAL, OUTPUT TURPLE FOR FINAL ARGUMENT               PAR      1973
                                                                                                                 PAR      1974
                                                                                                                 PAR      1975
          1063  5140000002 X             A=BEF    SA4    SCR+2       RELOAD A= ARGMIS (ROUTINE NAME)             PAR      1976
                          20452                   LX4    P.2TAG                                                  PAR      1977
          1064  0100000000 X                      RJ     VIL         VALIDATE BEF ARGUMENT LIST AGREEMENT        PAR      1978
                                                                                                                 PAR      1979
          1065  5130000002 X                      SA3    SCR+2       RELOAD A= ARGMIS (ROUTINE NAME)             PAR      1980
                          55231                   =A2    A3-1        RELOAD A= ARGCOMA                           PAR      1981
                               10155              BX1    X5                                                      PAR      1982
          1066  21222                             AX2    P.ACM                                                   PAR      1983
                     0100000000 X                 RJ     VAM         VALIDATE FINAL ARGUMENT MODE                PAR      1984
          1067  54440                             SA4    A4                                                      PAR      1985
                     10644                        BX6    X4                                                      PAR      1986
                          5160000003 X            SA6    SCR+3       SAVE ROUTINE TAG                            PAR      1987
          1070  5110000000 X                      SA1    CO.TBK                                                  PAR      1988
                          0321001075 +            PL     X1,A=BEF2   IF TRACEBACK OFF                            FEAT126C  152
          1071  5110000000 X                      SA1    TS.SYM                                                  FCC2174     7
                          63710                   SB7    X1                                                      FCC2174     8
                               55447              SA4    A4-B7       RELATIVIZE SYMTAB POINTER                   FCC2174     9
          1072  0100002020 +                      RJ     FAL         FLUSH ARGUMENT LOAD TURPLES                 PAR      1990
          1073  5110000000 X                      SA1    TS.SYM                                                  FCC2174    10
                          63710                   SB7    X1                                                      FCC2174    11
                               54447              SA4    A4+B7       RELOAD TAG                                  FCC2174    12
                                                                                                                 PAR      1991
          1074  43400                             MX4    0                                                       PAR      1992
                     0400001102 +                 EQ     A=BEF3                                                  PAR      1993
                                                                                                                 PAR      1994
          1075  43400                    A=BEF2   MX4    0           INITIALIZE TO NO FIRST ARGUMENT             PAR      1995
                     5110000001 X                 SA1    SCR+1                                                   PAR      1996
          1076  5120000000 X                      SA2    TT=SCR                                                  PAR      1997
                          21144                   AX1    36                                                      PAR      1998
                               37321              IX3    X2-X1       NUMBER ENTRIES IN TT.SCR                    PAR      1999
          1077  0303001102 +                      ZR     X3,A=BEF3   IF NO SAVED ARGUMENTS                       PAR      2000
                          5120000000 X            SA2    TT.SCR                                                  PAR      2001
          1100  36221                             IX2    X2+X1       GET POINTER TO FIRST ARGUEMENT              FCC1616X    7
                     53220                        SA2    X2                                                      PAR      2002
                          10422                   BX4    X2          SET UP FIRST ARGUMENT                       PAR      2003
                               10611              SHRINK TT=SCR,X1   COLLAPSE TABLE                              PAR      2004
          1102  43071                    A=BEF3   MX0    -L.MODE                                                 PAR      2005
                     54240                        SA2    A4                                                      PAR      2006
                          5110000000 X            SA1    CO.TBK                                                  PAR      2007
          1103  5130000000 X                      SA3    CALLOP                                                  PAR      2008
                          15720                   BX7    -X0*X2      RESULT MODE                                 PAR      2009
          1104  0331001113 +                      MI     X1,A=BEF4   IF TRACKBACK SELECTED                       PAR      2010
                          21222                   AX2    P.ARGC                                                  PAR      2011
                               43666              MX6    -L.ARGC                                                 PAR      2012
          1105  15626                             BX6    -X6*X2      NUMBER OF ARGUMENTS                         PAR      2013
                     21601                        AX6    1                                                       PAR      2014
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    48
                                                                      A=BEF 
  
                          63260                   SB2    X6          NUMBER ARGUMENTS - 1  (0 OR 1)              PAR      2015
          1106  5132000000 X                      SA3    =XREGARG+B2 REGARG OR REGARG2                           PAR      2016
                          21206                   AX2    P.ARGMF-P.ARGC                                          PAR      2017
                               15220              BX2    -X0*X2      MODE OF ARGUMENTS                           PAR      2018
          1107  7100000004                        SX0    M.LONG                                                  PAR      2019
                          11202                   BX2    X0*X2                                                   PAR      2020
                               21202              AX2    P.LONG      0 FOR SINGLE WORD, 1 FOR DOUBLE             PAR      2021
          1110  5112001502 +                      SA1    BEF.ARG+B2                                              PAR      2022
                          11662                   BX6    X6*X2       1 IFF 2 DOUBLE-WORD ARGUMENTS               PAR      2023
                               63260              SB2    X6                                                      PAR      2024
          1111  54112                             SA1    A1+B2       GET PROPER WORD OUT OF TABLE                PAR      2025
                     20204                        LX2    4                                                       PAR      2026
                          63220                   SB2    X2                                                      PAR      2027
                               43054              MX0    -16                                                     PAR      2028
          1112  23121                             AX1    B2          GET PROPER 16-BIT ENTRY OUT OF WORD         PAR      2029
                     15110                        BX1    -X0*X1                                                  PAR      2030
                          20152                   LX1    P.JPAD                                                  PAR      2031
                               12331              BX3    X3+X1                                                   PAR      2032
          1113  10633                    A=BEF4   BX6    X3                                                      PAR      2033
                     10633                        BX6    X3                                                      PAR      2034
                          5160000002 +            SA6    SOPR                                                    PAR      2035
          1114  5170000000 +                      SA7    SMOD                                                    PAR      2036
                          0100000000 X            RJ     ESC         EXPAND SHORT CONSTANT                       PAR      2037
          1115  5130000002 +                      SA3    SOPR                                                    PAR      2038
                          0100001742 +            RJ     ADT         ADD TURPLE FOR LAST ARGUMENT                PAR      2039
                                                                                                                 PAR      2040
          1116  5110000000 X                      SA1    CO.TBK                                                  PAR      2041
                          5130000000 X            SA3    EXTFUN                                                  PAR      2042
          1117  0331001120 +                      MI     X1,A=BEF6   IF TRACKBACK SELECTED                       PAR      2043
                          5130000000 X            SA3    BEFFUN                                                  PAR      2044
          1120  5120000000 X             A=BEF6   SA2    TT=PAR                                                  PAR      2045
                          5110000003 X            SA1    SCR+3       RESTORE ROUTINE TAG                         PAR      2046
          1121  7272000003                        =X7    X2+L.TURP                                               PAR      2047
                          5170000003 +            SA7    CURST       RESET RELATIVE SQUEEZE START                PAR      2048
          1122  22503                             LX5    X3          SAVE OPERATOR                               PAR      2049
                     0100002012 +                 RJ     CT2         CONVERT TAG TO PASS *2* FORM                PAR      2050
          1123  10355                             BX3    X5          OR.OPR                                      PAR      2051
                     22406                        LX4    X6          OR.1OP = EXTERAL ROUTINE NAME               PAR      2052
                          76500                   =X5    0           OPERAND TWO = 0                             FCC0744     9
                               66661              =B6    B6+1        DUMMY TO RESTORE ELEMENT STACK              PAR      2054
          1124  0400001734 +                      EQ     POP.ST1     CONTINUE                                    PAR      2055
  
  
  
  
                                        **        A=BIF - PROCESS CLOSING *)* FOR INTRINSICS                     PAR      2057
                                        *         (X2) = ARGCOMA.                                                PAR      2058
                                                                                                                 PAR      2059
                                                                                                                 PAR      2060
          1125  5140000002 X             A=BIF    SA4    SCR+2       RELOAD A= ARGMIS (ROUTINE NAME + TAG)       PAR      2061
                          20452                   LX4    P.2TAG                                                  PAR      2062
          1126  0420001154 +                      ZR     B2,A=BIF5   IF ONE ARGUMENT, PAREN ACTS AS COMMA        PAR      2063
                          0100000000 X            RJ     VIL         VALIDATE INTRINSIC LIST                     PAR      2064
          1127  43071                             MX0    -L.MODE                                                 PAR      2065
                     5116777775                   SA1    B6-2        FUNCTION                                    PAR      2066
                               11205              BX2    X0*X5                                                   PAR      2067
          1130  67661                             =B6    B6-1        ELIMINATE FUNCTION                          PAR      2068
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    49
                                                                      A=BIF 
  
                     15310                        BX3    -X0*X1                                                  PAR      2069
                          36623                   IX6    X2+X3       RESET RESULT MODE                           PAR      2070
                               57661              =A6    B6-1        RESET INTERMEDIATE                          PAR      2071
          1131  5110000002 X                      SA1    SCR+2       RELOAD *BIF* ARGMIS                         PAR      2072
                          43052                   MX0    L.SYM                                                   PAR      2073
                               11101              BX1    X0*X1                                                   PAR      2074
          1132  6170000003                        SB7    3                                                       PAR      2075
          1133  5127001150 +             A=BIF1   SA2    B7+MINMAXT                                              PAR      2076
                          37321                   IX3    X2-X1                                                   PAR      2077
          1134  0303001136 +                      ZR     X3,A=BIF2   IF *MAX1*, *MIN1*, *AMAX0* OR *AMIN0*       PAR      2078
                          67771                   =B7    B7-1                                                    PAR      2079
          1135  0770000531 +                      MI     B7,POPX     IF NONE OF THE ABOVE, EXIT.. (IGNORE)       PAR      2080
                          0400001133 +            EQ     A=BIF1                                                  PAR      2081
                                                                                                                 PAR      2082
                                        *         MODE CONVERSION NECESSARY                                      PAR      2083
                                                                                                                 PAR      2084
          1136  43071                    A=BIF2   MX0    -L.MODE                                                 PAR      2085
                     15160                        BX1    -X0*X6      MODE OF FUNCTION                            PAR      2086
                          6271777775              SB7    X1-M.INT                                                PAR      2087
          1137  0470001141 +                      ZR     B7,A=BIF3   IF *MAX1* OR *MIN1*                         PAR      2088
                          7120000002              SX2    M.INT                                                   PAR      2089
          1140  0400001142 +                      EQ     A=BIF4                                                  PAR      2090
          1141  7120000003               A=BIF3   SX2    M.REAL                                                  PAR      2091
          1142  11606                    A=BIF4   BX6    X0*X6       REMOVE FUNCTION TYPE                        PAR      2092
                     36626                        IX6    X2+X6       AND RESET WITH ARGUMENT TYPE                PAR      2093
                          54660                   SA6    A6                                                      FCC1709X    9
                               10466              BX4    X6                                                      PAR      2095
          1143  76610                             =X6    1                                                       PAR      2096
                     20622                        LX6    18                                                      PAR      2097
                          12616                   BX6    X1+X6                                                   PAR      2098
          1144  5160000000 +                      SA6    SMOD        SET SMOD FOR OMC                            PAR      2099
                          20103                   LX1    3           8*MODE = SHIFT COUNT                        PAR      2100
                               63210              SB2    X1                                                      PAR      2101
          1145  5212000000 X                      SA1    X2+MODTBL                                               PAR      2102
                          43064                   MX0    -8                                                      PAR      2103
                               23621              AX6    B2,X1                                                   PAR      2104
          1146  15660                             BX6    -X0*X6                                                  PAR      2105
                     54661                        =A6    A6-SMOD+SMOD1  SET SMOD1 FOR OMC                        PAR      2106
                          0100002075 +            RJ     OMC         MODE CONVERSION                             PAR      2107
          1147  0400000531 +                      EQ     POPX        EXIT.. (IGNORE)                             PAR      2108
                                                                                                                 PAR      2109
                                        *         TABLE OF FUNCTION NAMES WHICH REQUIRE MODE CONVERSION          PAR      2110
                                                                                                                 PAR      2111
          1150                           MINMAXT  BSS    0                                                       PAR      2112
          1150  01150130330000000000              CON    5LAMAX0                                                 PAR      2113
          1151  01151116330000000000              CON    5LAMIN0                                                 PAR      2114
          1152  15013034000000000000              CON    4LMAX1                                                  PAR      2115
          1153  15111634000000000000              CON    4LMIN1                                                  PAR      2116
                                                                                                                 PAR      2117
          1154  0100000000 X             A=BIF5   RJ     VIL         VALIDATE INTRINSIC LIST                     PAR      2118
          1155  5116777775                        SA1    B6-2        FUNCTION                                    PAR      2119
                          43071                   MX0    -L.MODE                                                 PAR      2120
          1156  5120000001 X                      =A2    SCR+1       ARGCOMA                                     PAR      2121
                          15610                   BX6    -X0*X1      RESULT MODE                                 PAR      2122
                               57561              =A5    B6-1        ARGUMENT                                    PAR      2123
          1157  21222                             AX2    P.ACM                                                   PAR      2124
                     5160000000 +                 SA6    SMOD        SET RESULT MODE                             PAR      2125
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    50
                                                                      A=BIF 
  
                               54321              =A3    A2+1                                                    PAR      2126
          1160  10155                             BX1    X5                                                      PAR      2127
                     0100000000 X                 RJ     VAM         VALIDATE ARGUMENT MODE                      PAR      2128
          1161  5110000000 X                      SA1    BIFFUN                                                  PAR      2129
                          13444                   =X4                DUMMY OR.1OP                                PAR      2130
                               43063              MX0    -L.JPADF                                                PAR      2131
          1162  54240                             SA2    A4          FETCH SYMBOL TABLE ENTRY (A4 SET IN VIL)    PAR      2132
                     21233                        AX2    P.JPADF                                                 PAR      2133
                          15620                   BX6    -X0*X2      ISOLATE RELATIVE SKELETON ADDRESS           PAR      2134
          1163  7226000000 X                      SX2    X6+INLBASE                                              PAR      2135
                          6276777377              SB7    X6-1S8                                                  PAR      2136
          1164  0770001166 +                      MI     B7,A=BIF10  IF NOT SPECIAL FUNCTION                     PAR      2137
                          0100000000 X            RJ     ESF         EVUALATE SPECIAL FUNCTION                   PAR      2138
          1165  0332000531 +                      MI     X2,POPX     IF FUNCTION REDUCED                         PAR      2139
                                                                                                                 PAR      2140
          1166  20252                    A=BIF10  LX2    P.JPAD                                                  PAR      2141
                     36312                        IX3    X1+X2                                                   PAR      2142
                          0400001734 +            EQ     POP.ST1     POP LIKE COMMA, BY-PASS *SDM*               PAR      2143
  
  
  
  
                                        **        A=DEC - PROCESS *,* FOR EXPRESSION IN DECLARATIVE              PAR      2145
                                        *                                                                        PAR      2146
                                        *         ENTRY  (X6) = RESULTS OF EXPRESSION.                           PAR      2147
                                        *                                                                        PAR      2148
                                        *         EXIT   PAR.EXIT                                                PAR      2149
                                                                                                                 PAR      2150
                                                                                                                 PAR      2151
          1167  0400000503 +             A=DEC    EQ     PAREXIT                                                 PAR      2152
  
  
  
  
                                        **        A=CALL - PROCESSING CLOSING OF CALL LIST.                      PAR      2154
                                                                                                                 PAR      2155
                                                                                                                 PAR      2156
          1170  5140000000 X             A=CALL   SA4    CALLTAG     RELOAD TAG FOR EXTERNAL SET BY *CLL*        PAR      2157
                          0100000000 X            RJ     VEL         VALIDATE ARGUMENT LIST                      PAR      2158
          1171  0100002020 +                      RJ     FAL         FLUSH ARGUMENT LOAD TURPLES                 PAR      2159
          1172  0100000000 X                      RJ     ESC         EXPAND SHORT CONSTANT                       PAR      2160
          1173  0100001226 +                      RJ     SDB         SET DEFINED BIT IF VARIABLE                 PAR      2161
          1174  5130000000 X                      SA3    CALLOP                                                  PAR      2162
                          13444                   BX4    0           1ST OPERAND = DUMMY                         PAR      2163
                               22603              LX6    X3                                                      PAR      2164
          1175  5160000002 +                      SA6    SOPR                                                    PAR      2165
                          0100001742 +            RJ     ADT         ADD TURPLE                                  PAR      2166
          1176  56140                             SA1    B4                                                      PAR      2167
                     0301001206 +                 ZR     X1,A=CALL5  IF *EOS*                                    PAR      2168
          1177  6271777764                        SB7    X1-O.COMMA                                              PAR      2169
                          0470001204 +            ZR     B7,A=CALL4                                              PAR      2170
          1200  5231000000 X                      SA3    X1+CHARMAP                                              PAR      2171
                          0313001202 +            NZ     X3,A=CALL3  IF NOT CONS OR VAR                          PAR      2172
          1201  22301                             LX3    X1                                                      PAR      2173
          1202  43052                    A=CALL3  MX0    L.CDPC                                                  PAR      2174
                     11603                        BX6    X0*X3                                                   PAR      2175
                          5160000000 X            SA6    FILL.                                                   PAR      2176
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    51
                                                                      A=CALL
  
          1203  0400000000 X                      EQ     =XE.TY      OUTPUT ERROR                                PAR      2177
          1204  0100000000 X             A=CALL4  RJ     CRL         PROCESS CALL STATEMENT RETURNS LIST         PAR      2178
          1205  0100002020 +                      RJ     FAL         FLUSH                                       PAR      2179
          1206  0400000531 +             A=CALL5  EQ     POPX                                                    PAR      2180
  
  
  
  
                                        **        A=FUN - PROCESS CLOSING OF EXTERNAL FUNCTION LIST.             PAR      2182
                                        *         (SCR+2) = ROUTINE TAG AS SET WHEN FUNCTION ENCOUNTERED.        PAR      2183
                                                                                                                 PAR      2184
                                                                                                                 PAR      2185
          1207  5140000002 X             A=FUN    SA4    SCR+2       RELOAD A=ARMIS, EXTERNAL TAG                PAR      2186
                          0100000000 X            RJ     VEL         VALIDATE ARGUMENT LIST                      PAR      2187
          1210  0100002020 +                      RJ     FAL         FLUSH ARGUMENT LOAD TURPLES                 PAR      2188
          1211  43071                             MX0    -L.MODE                                                 PAR      2189
                     5140000002 X                 SA4    SCR+2       RELOAD EXTERNAL TAG                         PAR      2190
          1212  5120000000 X                      SA2    TS.SYM                                                  PAR      2191
                          21452                   AX4    P.2TAG                                                  PAR      2192
          1213  6224577777                        SB2    X4-C.SYM    ORDINAL INTO TS.SYM                         PAR      2193
                          53222                   SA2    X2+B2       TAG FROM SYMBOL TABLE                       PAR      2194
          1214  5130000000 X                      SA3    CALLOP                                                  PAR      2195
                          15720                   BX7    -X0*X2      RESULTANT MODE                              PAR      2196
                               10633              BX6    X3                                                      PAR      2197
          1215  13444                             BX4    0           DUMMY OR.1OP FOR ARGUMENT TURPLE            PAR      2198
                     5160000002 +                 SA6    SOPR                                                    PAR      2199
          1216  5170000000 +                      SA7    SMOD                                                    PAR      2200
                          0100000000 X            RJ     ESC         EXPAND POSSIBLE SHORT CONSTANT              PAR      2201
          1217  0100001226 +                      RJ     SDB         SET DEFINED BIT IF VARIABLE                 PAR      2202
          1220  0100001742 +                      RJ     ADT         ADD TURPLE FOR LAST ARGUMENT                PAR      2203
          1221  5110000002 X                      SA1    SCR+2                                                   PAR      2204
                          0100002012 +            RJ     CT2         CONVERT TAG TO PASS *2* FORM                PAR      2205
          1222  22406                             LX4    X6                                                      PAR      2206
                     5130000000 X                 SA3    EXTFUN                                                  PAR      2207
          1223  5120000000 X                      SA2    TT=PAR                                                  PAR      2208
                          22702                   LX7    X2                                                      PAR      2209
                               76500              =X5    0           OPERAND TWO = 0                             FCC0744    10
          1224  66661                             =B6    B6+1        DUMMY                                       PAR      2211
                     5170000003 +                 SA7    CURST       RESET RELATIVE SQUEEZE START                PAR      2212
          1225  0400001734 +                      EQ     POP.ST1     CONTINUE                                    PAR      2213
  
  
  
  
                                        **        SDB -  SET DEFINED BIT                                         PAR      2215
                                        *                FOR VARIABLES IN CALL AND EXTERNAL FUNCTION ARGUMENT    PAR      2216
                                        *                LISTS.                                                  PAR      2217
                                        *                                                                        PAR      2218
                                        *         ENTRY  (X5) = PARSE FILE OPERAND                               FEAT126C  153
                                        *                                                                        PAR      2220
                                        *         EXIT   SYMBOL TABLE ENTRY UPDATED IF VARIABLE                  PAR      2221
                                        *                                                                        PAR      2222
                                        *         USES   A1 X0,X1 B3                                             PAR      2223
                                                                                                                 PAR      2224
                                                                                                                 PAR      2225
          1226  0400401226 +             SDB      SUBR   0                                                       PAR      2226
          1227  10055                             BX0    X5                                                      PAR      2227
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    52
                                                                      SDB 
  
                     20062                        IFBIT  X0,INTR,SDBX     IF INTERMEDIATE                        PAR      2228
          1230  22105                             LX1    X5                                                      PAR      2229
                     43005                        MX0    L.TGB                                                   PAR      2230
                          11001                   BX0    X0*X1                                                   PAR      2231
                               21052              AX0    P.TAG                                                   PAR      2232
          1231  7200577777                        SX0    X0-C.VAR                                                PAR      2233
                          0310001226 +            NZ     X0,SDBX     IF NOT SYMBOL TABLE ENTRY                   FEAT126C  154
          1232  21152                             AX1    P.TAG                                                   PAR      2235
                     6231577777                   SB3    X1-C.VAR    SYMBOL TABLE ORDINAL                        PAR      2236
          1233  5110000000 X                      SA1    TS.SYM                                                  PAR      2237
                          53113                   SA1    B3+X1                                                   PAR      2238
                               22001              LX0    X1                                                      PAR      2239
          1234  20057                             IFBIT  X0,-VAR,SDBX     IF NOT VARIABLE                        PAR      2240
          1235  7100000010                        SX0    M.DEF                                                   PAR      2241
                          12601                   BX6    X0+X1       SET DEFINED BIT ON                          PAR      2242
                               54610              SA6    A1                                                      PAR      2243
          1236  0400001226 +                      EQ     SDBX        EXIT..                                      PAR      2244
  
  
  
  
                                        **        A=IF - PROCESS TERMINAL PARENTHESIS OF *IF* EXPRESSION.        PAR      2291
                                        *         SET CELLS                                                      PAR      2292
                                        *                IFRESULT = TEST OPERAND FOR JUMPS                       PAR      2293
                                        *                IFMOD    = RESULTANT MODE OF IF EXPRESSION.             PAR      2294
                                        *         EXIT TO PAR.EOS                                                PAR      2295
                                                                                                                 PAR      2296
                                                                                                                 PAR      2297
          1237  5116777776               A=IF     SA1    B6-1              TOP OF OPERAND STACK                  PAR      2298
                          43071                   MX0    -L.MODE                                                 PAR      2299
                               22701              LX7    X1                                                      PAR      2300
          1240  15610                             BX6    -X0*X1                                                  PAR      2301
                     5170000000 X                 SA7    IFRESLT                                                 PAR      2302
          1241  5160000000 X                      SA6    IFMOD                                                   PAR      2303
                          0400000503 +            EQ     PAREXIT     FOUND TERMINAL *)* OF IF (EXP) - EXIT..     PAR      2304
  
  
  
  
                                        **        A=LIST - PROCESS CLOSING OF AN I/O LIST.                       PAR      2306
                                                                                                                 PAR      2307
                                                                                                                 PAR      2308
          1242  0400000531 +             A=LIST   EQ     POPX        EXIT..                                      PAR      2309
  
  
  
  
                                        **        A=DO - PROCESS CLOSING OF *DO*                                 PAR      2311
                                                                                                                 PAR      2312
                                                                                                                 PAR      2313
          1243                           A=DO     BSS    0                                                       FCC2184     4
          1243  6122777775                        SB2    B2-2                                                    FCC2184     5
                          0620000503 +            PL     B2,PAREXIT  IF SUFFICIENT DO INDEX PARAMETERS           FCC2184     6
          1244  6170000000 X                      FATAL  E.DO        ILLEGAL DO FORMAT                           FCC2184     7
          1245  0400000503 +                      EQ     PAREXIT                                                 FCC2184     8
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    53
                                                                      POP.EXP 
  
                                        **        POP.EXP -  PROCESS ** TURPLE FOR REDUCTION AND TYPE            PAR      2316
                                        *                                                                        PAR      2317
                                        *         POP.EXP EVALUATES CURRENT EXPONENTIAL BEING POPPED FOR         PAR      2318
                                        *         SIMPLE COMPILE TIME REDUCTION, TRANSFORMATIONS ON OPERATOR AND PAR      2319
                                        *         CONVERSION NECESSARY TO PROCESS BOTH EXTERNAL AND INTERNAL     PAR      2320
                                        *         PROCESSING.                                                    PAR      2321
                                        *                                                                        PAR      2322
                                        *         TRANSFORMATIONS POSSIBLE.                                      PAR      2323
                                        *                                                                        PAR      2324
                                        *         1.  INTEGER TO REAL(CONSTANT)                                  PAR      2325
                                        *             IF POWER HAS AN INTEGRAL VALUE, CHANGE FORM TO             PAR      2326
                                        *             FLOAT(INTEGER) TO IFIX(REAL)                               PAR      2327
                                        *                                                                        PAR      2328
                                        *         2.  INTEGER TO INTEGER(CONSTANT)                               PAR      2329
                                        *             IF CONSTANT IS .LE. EXP.IL, PROCESS USING DEFINED MACROS   PAR      2330
                                        *             INLINE.                                                    PAR      2331
                                        *                                                                        PAR      2332
                                        *         3.  REAL TO INTEGER(CONSTANT)                                  PAR      2333
                                        *             IF CONSTANT IS .LE. EXP.IL, PROCESS USING DEFINED MACROS   PAR      2334
                                        *             INLINE.                                                    PAR      2335
                                        *                                                                        PAR      2336
                                        *                                                                        PAR      2337
                                        *         ENTRY  (X3) = OPERATOR = **                                    PAR      2338
                                        *                (X4) = 1ST OPERAND                                      PAR      2339
                                        *                (X5) = 2ND OPERAND                                      PAR      2340
                                                                                                                 PAR      2341
                                  13     EXP.IL   EQU    11          UPPER LIMIT (+1) FOR COMPUTING IN-LINE (**) FCC0878     6
                                                                                                                 PAR      2343
                                                                                                                 PAR      2344
          1246  10044                    POP.EXP  BX0    X4                                                      PAR      2345
                     5120000000 X                 SA2    TT=PAR            CURRENT START OF ** OPERATION         PAR      2346
                               20062              IFBIT  X0,-INTR,POP.EX10 IF NOT INTERMEDIATE                   PAR      2347
                                                                                                                 PAR      2348
                                        **        SCAN BACKWARDS TO FIND START OF LEFT MEMBER FOR ** OPERATOR    PAR      2349
                                                                                                                 PAR      2350
                          10244                   BX2    X4                                                      PAR      2351
          1250  6170000052                        SB7    P.JPAD                                                  PAR      2352
                          5110000000 X            SA1    TT.PAR                                                  PAR      2353
          1251  21252                             AX2    P.JPAD                                                  PAR      2354
                     63211                        =B2    X1+1                                                    PAR      2355
          1252  53322                    POP.EX2  SA3    X2+B2                                                   PAR      2356
                     10033                        BX0    X3                                                      PAR      2357
                          54131                   =A1    A3+1                                                    PAR      2358
                               20362              IFBIT  X3,INTR,POP.EX4   IF INTERMEDIATE CONTINUE              PAR      2359
                          10011                   BX0    X1                                                      PAR      2360
                               20162              IFBIT  X1,-INTR,POP.EX10 IF NOT INTERMEDIATE - START FOUND     PAR      2361
          1255  23270                    POP.EX4  AX2    B7,X0                                                   PAR      2362
                     0400001252 +                 EQ     POP.EX2           CONTINUE SCAN                         PAR      2363
                                                                                                                 PAR      2364
          1256  43071                    POP.EX10 MX0    -L.MODE                                                 FCC1638X   10
                     15140                        BX1    -X0*X4                                                  FCC1638X   11
                          5211000000 X            SA1    X1+MODTBL   RELATIVE TO BASE                            FCC1638X   12
          1257  15650                             BX6    -X0*X5                                                  FCC1638X   13
                     6276000006                   SB7    X6+6                                                    FCC1638X   14
                               22171              LX1    B7,X1       SHIFT RELATIVE TO POWER                     FCC1638X   15
          1260  0321001264 +                      PL     X1,POP.EX12 IF NO ANSI ERROR                            FCC1638X   16
                          7110554747              SX1    3R **                                                   FCC1638X   17
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    54
                                                                      POP.EXP 
  
          1261  20152                             LX1    7*CHAR                                                  FCC1638X   18
                     43022                        MX0    3*CHAR                                                  FCC1638X   19
                          11601                   BX6    X0*X1                                                   FCC1638X   20
          1262  5160000000 X                      SA6    FILL.                                                   FCC1638X   21
                          6170000000 X            ANSI   E.ANS3      THE TYPE COMBINATIONS ARE NON-ANSI          FCC1638X   22
          1264  10622                    POP.EX12 BX6    X2          (X2) = START OF LEFT MEMBER RELATIVE TO     FCC1638X   23
                                        *                            PARSED FILE.                                FCC1638X   24
                     10144                        BX1    X4          POWER (RIGHT MEMBER)                        PAR      2368
                          5160000000 X            SA6    SCR         SAVE LEFT MEMBER ADDRESS                    PAR      2369
                                                                                                                 PAR      2370
                                        **        SET-UP CHECK CELLS FOR DETERMINING IF TERM CAN BE EITHER       PAR      2371
                                        *         REDUCED AT COMPILE TIME OR USE ONE OF THE TRANSFORMATIONS.     FEAT126C  155
                                                                                                                 PAR      2373
          1265  0100000000 X                      RJ     LCT         CHECK IF BASE IS CONSTANT                   PAR      2374
          1266  10155                             BX1    X5                                                      PAR      2375
                     5160000000 X                 SA6    TER1        SAVE BASE                                   PAR      2376
          1267  0100000000 X                      RJ     LCT         CHECK IF POWER IS CONSTANT                  PAR      2377
                                                                                                                 PAR      2378
                                        *         FORM JUMP ADDRESS                                              PAR      2379
                                                                                                                 PAR      2380
          1270  43071                             MX0    -L.MODE                                                 PAR      2381
                     5160000000 X                 SA6    TER2        SAVE POWER                                  PAR      2382
                               15240              BX2    -X0*X4      MODE OF BASE                                PAR      2383
          1271  76720                             =X7    B2          SAVE POWER FLAG, CONSTANT/NOT CONSTANT      PAR      2384
                     15350                        BX3    -X0*X5      MODE OF POWER (-LONG BITS)                  PAR      2385
                          5212001474 +            SA1    X2+EXP.TBL                                              PAR      2386
          1272  63730                             SB7    X3          SAVE POWER MODE                             PAR      2387
                     20303                        LX3    3           POWER * 8                                   PAR      2388
                          63230                   SB2    X3          SHIFT COUNT                                 PAR      2389
                               43064              MX0    -8                                                      PAR      2390
          1273  23121                             AX1    B2,X1                                                   PAR      2391
                     15010                        BX0    -X0*X1                                                  PAR      2392
                          63200                   SB2    X0          JUMP ADDRESS                                PAR      2393
                               20064              LX0    59-7                                                    PAR      2394
          1274  0320001276 +                      PL     X0,POP.EX20 IF POSSIBLE TO REDUCE (**)                  PAR      2395
                                                                                                                 PAR      2396
                                        **        HERE IF TERM MUST BE PROCESSED EXTERNALLY                      PAR      2397
                                                                                                                 PAR      2398
                          6132001257 +            SB3    B2+EXP.EXT-1S7                                          PAR      2399
          1275  0400001421 +                      EQ     POP.EX60    TRANSLATE EXTERNAL                          PAR      2400
                                                                                                                 PAR      2401
                                        **        HERE IF TERM CAN POSSIBLY BE REDUCED.                          PAR      2402
                                        *         (B2) = CHECK PROCESSOR ADDRESS.                                PAR      2403
                                        *         (B7) = MODE OF POWER.                                          PAR      2404
                                        *         (X2) = POWER,( BINARY )                                        PAR      2405
                                        *         (X7) = 0, POWER NOT CONSTANT.                                  PAR      2406
                                                                                                                 PAR      2407
          1276  5110000000 X             POP.EX20 SA1    TER1        BASE                                        PAR      2408
                          6132777772              SB3    B2-TO.II+EXP.BASE                                       PAR      2409
          1277  10266                             BX2    X6          POWER                                       PAR      2410
                     0730001313 +                 MI     B3,POP.EX30 IF UNDEFINED OPERATION                      PAR      2411
          1300  0307001311 +                      ZR     X7,POP.EX27 IF POWER NOT CONSTANT                       PAR      2412
                                                                                                                 PAR      2413
                                        **        CHECK IF POWER IS *0* OR *1*                                   PAR      2414
                                                                                                                 PAR      2415
                          0312001306 +            NZ     X2,POP.EX25 IF POWER NOT *0*                            PAR      2416
          1301  76070                             SX0    B7                                                      PAR      2417
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    55
                                                                      POP.EXP 
  
                     7110004000                   =X1    M.SHORT                                                 PAR      2418
          1302  6177777774                        SB7    B7-M.REAL                                               PAR      2419
                          7120172040              =X2    1.0/1S42                                                PAR      2420
          1303  36610                             IX6    X1+X0                                                   PAR      2421
                     0470001304 +                 ZR     B7,POP.EX22 IF BASE = REAL                              PAR      2422
                               76210              =X2    1                                                       PAR      2423
          1304  20252                    POP.EX22 LX2    P.SHC                                                   PAR      2424
                     12726                        BX7    X2+X6                                                   PAR      2425
                          5176777775              =A7    B6-2                                                    PAR      2426
          1305  67661                             =B6    B6-1                                                    PAR      2427
                     0400000531 +                 EQ     POPX        EXIT.. (REDUCTION TO SIMPLE CONSTANT)       PAR      2428
                                                                                                                 PAR      2429
                                        **        CHECK IF POWER IS *1*, IF SO, REMOVE CONSTANT *1* FROM ESTACK  PAR      2430
                                        *         AND EXIT, POPPING NOTHING.                                     PAR      2431
                                                                                                                 PAR      2432
          1306  7202777776               POP.EX25 SX0    X2-1                                                    PAR      2433
                          0310001311 +            NZ     X0,POP.EX27 IF POWER NOT *1*                            PAR      2434
          1307  67661                             =B6    B6-1                                                    PAR      2435
                     22604                        LX6    X4                                                      FCC0878     7
                          57661                   =A6    B6-1        RESTORE BASE (IN CASE CHANGED)              FCC0878     8
          1310  0400000531 +                      EQ     POPX        EXIT.. (REDUCTION TO LOAD OF BASE)          PAR      2436
                                                                                                                 PAR      2437
                                        **        CHECK IF COMBINATION CAN BE FORMED IN-LINE OR CAN BE           PAR      2438
                                        *         REDUCED TO A SIMPLE TERM.                                      PAR      2439
                                                                                                                 PAR      2440
          1311  36012                    POP.EX27 IX0    X1+X2                                                   PAR      2441
                     0300001420 +                 ZR     X0,POP.EX50 IF NO CONSTANTS                             PAR      2442
                               10311              BX3    X1          BASE                                        PAR      2443
          1312  0302001420 +                      ZR     X2,POP.EX50 IF POWER NOT CONSTANT                       PAR      2444
                          13666                   BX6    0                                                       PAR      2445
          1313  0222001314 +             POP.EX30 JP     B2+EXP.BASE                                             PAR      2446
                                                                                                                 PAR      2447
                                                                                                                 PAR      2448
                                        **        UNTRANSLATABLE EXPRESSION, ILLEGAL USE OF LOGICAL.             PAR      2449
                                                                                                                 PAR      2450
          1314                           EXP.BASE BSS    0           BASE FOR DISCISION JUMP                     PAR      2451
          1314                           TO.LL    BSS    0           LOGICAL TO LOGICAL                          PAR      2452
          1314                           TO.LI    BSS    0           LOGICAL TO INTEGER                          PAR      2453
          1314                           TO.LR    BSS    0           LOCICAL TO REAL                             PAR      2454
          1314                           TO.LD    BSS    0           LOGICAL TO DOUBLE                           PAR      2455
          1314                           TO.LC    BSS    0           LOGICAL TO COMPLEX                          PAR      2456
          1314                           TO.IL    BSS    0           INTEGER TO LOGICAL                          PAR      2457
          1314                           TO.RL    BSS    0           REAL    TO LOGICAL                          PAR      2458
          1314                           TO.DL    BSS    0           DOUBLE  TO LOGICAL                          PAR      2459
          1314                           TO.CL    BSS    0                                                       PAR      2460
          1314  6170000000 X                      FATAL  E.XP1       ERROR (**) NON-LOGICAL OPERATOR             PAR      2461
          1315  67661                             =B6    B6-1                                                    PAR      2462
                     0400000531 +                 EQ     POPX        EXIT..                                      PAR      2463
                                                                                                                 PAR      2464
                                        **        UNTRANSLATABLE EXPRESSION, UNDEFINED USAGE OF COMPLEX.         PAR      2465
                                                                                                                 PAR      2466
          1316                           TO.CR    BSS    0           COMPLEX TO REAL                             PAR      2467
          1316                           TO.CD    BSS    0           COMPLEX TO DOUBLE                           PAR      2468
          1316  6170000000 X             TO.CC    FATAL  E.XP2       ERROR - COMPLEX BASE ONLY TO INTEGER        PAR      2469
          1317  67661                             =B6    B6-1                                                    PAR      2470
                     0400000531 +                 EQ     POPX        EXIT..                                      PAR      2471
                                                                                                                 PAR      2472
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    56
                                                                      POP.EXP 
  
                                        **        REDUCABLE FORMS                                                PAR      2473
                                        *         A.  INTEGER TO INTEGER.                                        PAR      2474
                                                                                                                 PAR      2475
          1320  00000000000000001457 +            CON    S.ITOI                                                  PAR      2476
          1321  27101                    TO.II    PX1                                                            PAR      2477
                     6130001457 +                 SB3    S.ITOI                                                  PAR      2478
                               24101              NX1                REAL BASE                                   PAR      2479
          1322  76711                             =X7    M.INT       INDICATE INTEGER.                           PAR      2480
                     10311                        BX3    X1                                                      PAR      2481
                          0322001360 +            PL     X2,TO.RR5   IF POWER IS POSITIVE - CONTINUE             PAR      2482
          1323  6170000000 X                      NOTE   E.XP4       INTEGER TO NEGATIVE CONSTANTS RESULTS = 0   PAR      2483
          1324  0400001421 +                      EQ     POP.EX60                                                PAR      2484
                                                                                                                 PAR      2485
                                        **        B.  INTEGER TO REAL.                                           PAR      2486
                                                                                                                 PAR      2487
          1325  00000000000000001460 +            CON    S.ITOR                                                  PAR      2488
          1326  26022                    TO.IR    UX0,B2 X2                                                      PAR      2489
                     6130001460 +                 SB3    S.ITOR      EXTERNAL PROCESSOR                          PAR      2490
                               22020              LX0    B2,X0                                                   PAR      2491
          1327  10311                             BX3    X1                                                      PAR      2492
                     27100                        PX1    X0                                                      PAR      2493
                          24101                   NX1                                                            PAR      2494
                               37612              IX6    X1-X2       SAFETY                                      PAR      2495
          1330  0316001421 +                      NZ     X6,POP.EX60 IF POWER NOT INTEGRAL VALUE                 PAR      2496
                          10600                   BX6    X0                                                      FCC0878     9
          1331  5160001344 +                      SA6    TO.IRA                                                  FCC0878    10
                          7110000003              =X1    M.REAL                                                  FCC0878    11
          1332  76211                             =X2    M.INT                                                   FCC0878    12
                     76611                        =X6    2                                                       FCC0878    13
                          20622                   LX6    18                                                      FCC0878    14
                               12616              BX6    X1+X6                                                   FCC0878    15
          1333  5160000000 +                      SA6    SMOD        SET SMOD FOR OMC                            FCC0878    16
                          20103                   LX1    3           8*MODE = SHIFT COUNT                        FCC0878    17
                               63210              SB2    X1                                                      FCC0878    18
          1334  5212000000 X                      SA1    X2+MODTBL   MODE CONVERSION TABLE ENTRY                 FCC0878    19
                          43064                   MX0    -8                                                      FCC0878    20
                               23621              AX6    B2,X1                                                   FCC0878    21
          1335  15660                             BX6    -X0*X6      ONLY 8 BITS FOR EACH MODE                   FCC0878    22
                     54661                        =A6    A6-SMOD+SMOD1  SET SMOD1 FOR OMC                        FCC0878    23
                          0100002075 +            RJ     OMC                                                     FCC0878    24
          1336  5120001344 +                      SA2    TO.IRA                                                  FCC0878    25
                          10622                   BX6    X2                                                      FCC0878    26
                               22503              LX5    X3          SAVE (X3)                                   FCC0878    27
          1337  0100000000 X                      RJ     NCS                                                     FCC0878    28
          1340  10355                             BX3    X5          RESTORE (X3)                                FCC0878    29
                     22506                        LX5    X6          RESET POWER OPERAND                         FCC0878    30
                          6130001463 +            SB3    S.RTOI                                                  FCC0878    31
          1341  27103                             PX1    X3                                                      PAR      2497
                     24301                        NX3    X1                                                      PAR      2498
                          7170000003              =X7    M.REAL                                                  PAR      2499
          1342  5120001344 +                      SA2    TO.IRA                                                  FCC0878    32
                          10133                   BX1    X3          BASE TO REAL                                PAR      2501
          1343  0400001360 +                      EQ     TO.RR5                                                  PAR      2502
                                                                                                                 PAR      2503
          1344                     1     TO.IRA   BSS    1           SAVE INTEGER VALUE OF POWER                 FCC0878    33
                                                                                                                 PAR      2504
                                        **        C.  REAL TO INTEGER.                                           PAR      2505
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    57
                                                                      POP.EXP 
  
                                                                                                                 PAR      2506
          1345  00000000000000001463 +            CON    S.RTOI                                                  PAR      2507
          1346  7170000003               TO.RI    =X7    M.REAL                                                  PAR      2508
                          6130001463 +            SB3    S.RTOI                                                  PAR      2509
          1347  0400001360 +                      EQ     TO.RR5                                                  PAR      2510
                                                                                                                 PAR      2511
                                        **        D.  REAL TO REAL                                               PAR      2512
                                                                                                                 PAR      2513
          1350  00000000000000001464 +            CON    S.RTOR                                                  PAR      2514
          1351  7170000003               TO.RR    =X7    M.REAL                                                  PAR      2515
                          26072                   UX0,B7 X2                                                      PAR      2516
                               10622              BX6    X2                                                      PAR      2517
          1352  6130001464 +                      SB3    S.RTOR                                                  PAR      2518
                          22270                   LX2    B7,X0                                                   PAR      2519
                               10311              BX3    X1                                                      PAR      2520
          1353  27002                             PX0    X2                                                      PAR      2521
                     24000                        NX0    X0                                                      PAR      2522
                          37060                   IX0    X6-X0       SAFETY                                      PAR      2523
          1354  0310001421 +                      NZ     X0,POP.EX60 IF POWER IS NOT INTEGRAL VALUE              PAR      2524
                          6272777764              SB7    X2-EXP.IL                                               PAR      2525
          1355  0770001360 +                      MI     B7,TO.RR5   IF CAN BE PROCESSED IN-LINE                 PAR      2526
                          6130001463 +            SB3    S.RTOI                                                  PAR      2527
          1356  10622                             BX6    X2                                                      PAR      2528
                     76711                        =X7    M.INT                                                   PAR      2529
                          0100000000 X            RJ     NCS         ENTER NEW CONSTANT                          PAR      2530
          1357  10566                             BX5    X6                                                      PAR      2531
                     0400001421 +                 EQ     POP.EX60                                                PAR      2532
                                                                                                                 PAR      2533
                                        **        EVALUATE EXPRESSION AT COMPILE TIME.                           PAR      2534
                                        *         (X1) = (X3) = BASE IN FLOATING POINT BINARY                    PAR      2535
                                        *         (X2) = POWER IN INTEGER                                        PAR      2536
                                        *         (B3) = EXTERNAL PROCESSOR ADDRESS                              PAR      2537
                                        *         (X7) = RESULTANT MODE.                                         PAR      2538
                                                                                                                 PAR      2539
          1360  63220                    TO.RR5   SB2    X2          POWER                                       PAR      2540
                     7100000013                   SX0    EXP.IL                                                  FCC1801X    5
                               37020              IX0    X2-X0                                                   FCC1801X    6
          1361  0320001421 +                      PL     X0,POP.EX60  IF .GT. LIMIT TO PROCESS IN-LINE           FCC1801X    7
                          0332001421 +            MI     X2,POP.EX60 IF POWER IS NEG., CANT BE REDUCED.          PAR      2543
          1362  0311001401 +                      NZ     X1,TO.RED   IF BASE CONSTANT-COMPILE TIME REDUCE        PAR      2544
                          0421001306 +            EQ1    B2,POP.EX25 IF POWER = 1                                PAR      2545
                                                                                                                 PAR      2546
                                        **        SET UP IN-LINE MACRO FOR EVALUATING ** EXPRESSION.             PAR      2547
                                        *         MULTIPLIES USING MACROS -  R..P OR I..P                        PAR      2548
                                        *         (B2) = POWER (INTEGER .GT. 1 .LT. 12)                          PAR      2549
                                        *         (X7) = RESULTANT MODE (CAN ONLY BE INTEGER OR REAL)            PAR      2550
                                                                                                                 PAR      2551
          1363  7227777775                        SX2    X7-M.INT    =0 IF INTEGER, =1 IF REAL                   PAR      2552
                          5112001366 +            SA1    B2+EXP.INL-2                                            PAR      2553
          1364  20204                             LX2    4           *16                                         PAR      2554
                     43054                        MX0    -16                                                     PAR      2555
                          63220                   SB2    X2                                                      PAR      2556
                               23221              AX2    B2,X1                                                   PAR      2557
          1365  15120                             BX1    -X0*X2      ADDRESS OF PROCESSING SKELETON.             PAR      2558
                     5120000000 X                 SA2    IN.EXP                                                  PAR      2559
                               20152              LX1    P.JPAD                                                  PAR      2560
          1366  36612                             IX6    X1+X2       SET OPERATOR WORD                           PAR      2561
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    58
                                                                      POP.EXP 
  
                     5160000002 +                 SA6    SOPR        RESET OPERATOR                              PAR      2562
                               10366              BX3    X6                                                      PAR      2563
          1367  0400001722 +                      EQ     POP.STD     CONTINUE                                    PAR      2564
                                                                                                                 PAR      2565
          1370                           EXP.INL  BSS    0                                                       PAR      2566
          1370  000000000000000 X                 VFD    28/0,16/R..2,16/I..2                                    PAR      2567
                              000000 X
          1371  000000000000000 X                 VFD    28/0,16/R..3,16/I..3                                    PAR      2568
                              000000 X
          1372  000000000000000 X                 VFD    28/0,16/R..4,16/I..4                                    PAR      2569
                              000000 X
          1373  000000000000000 X                 VFD    28/0,16/R..5,16/I..5                                    PAR      2570
                              000000 X
          1374  000000000000000 X                 VFD    28/0,16/R..6,16/I..6                                    PAR      2571
                              000000 X
          1375  000000000000000 X                 VFD    28/0,16/R..7,16/I..7                                    PAR      2572
                              000000 X
          1376  000000000000000 X                 VFD    28/0,16/R..8,16/I..8                                    PAR      2573
                              000000 X
          1377  000000000000000 X                 VFD    28/0,16/R..9,16/I..9                                    PAR      2574
                              000000 X
          1400  000000000000000 X                 VFD    28/0,16/R..10,16/I..10                                  PAR      2575
                              000000 X
  
  
  
  
                                        **        PERFORM EXPRESSION REDUCTION AT COMPILE TIME.                  PAR      2578
                                        *         (B2) = POWER (INTEGER )                                        PAR      2579
                                        *         (X1) = BASE  (REAL)                                            PAR      2580
                                        *         (X3) = (X1)                                                    PAR      2581
                                        *         (X6) = 0     (SUMMATION REGISTER)                              PAR      2582
                                        *         (X7) = RESULTANT MODE                                          PAR      2583
                                                                                                                 PAR      2584
          1401  36012                    TO.RED   IX0    X1+X2                                                   PAR      2585
                     0310001403 +                 NZ     X0,TO.RED2  IF NOT 0 ** 0 CASE                          PAR      2586
          1402  6170000000 X                      NOTE   E.XP3       0**0 IS INDEFINITE                          PAR      2587
          1403  0421001412 +             TO.RED2  EQ1    B2,TO.RED4  IF POWER IS 1                               PAR      2588
                          0712001410 +            GT     B2,B1,TO.RED3     IF POWER IS .GT. 1                    PAR      2589
          1404  7100172040                        =X0    1.0/1S42                                                PAR      2590
                          20052                   LX0    42                                                      PAR      2591
          1405  0520001407 +                      NZ     B2,TO.RED2A       IF POWER IS NEGATIVE                  PAR      2592
                          10100                   BX1    X0          SET RESULT TO 1.0                           PAR      2593
          1406  0400001412 +                      EQ     TO.RED4                                                 PAR      2594
                                                                                                                 PAR      2595
          1407  44101                    TO.RED2A FX1    X0/X1       1/BASE                                      PAR      2596
                     10311                        BX3    X1                                                      PAR      2597
                          67202                   =B2    -B2         -(POWER)                                    PAR      2598
          1410  0351001416 +             TO.RED3  OR     X1,POP.EX52 IF CONSTANT OUT OF RANGE                    PAR      2599
                          0371001416 +            ID     X1,POP.EX52 IF CONSTANT INDEFINITE                      PAR      2600
          1411  40113                             FX1    X1*X3       NEW BASE = BASE * POWER                     PAR      2601
                     67221                        =B2    B2-1                                                    PAR      2602
                          0521001410 +            NE1    B2,TO.RED3  IF NOT FINISHED                             PAR      2603
          1412  6277777775               TO.RED4  SB7    X7-M.INT                                                PAR      2604
                          67661                   =B6    B6-1        UPDATE ESTACK                               PAR      2605
                               10611              BX6    X1          RESULTS                                     PAR      2606
          1413  0570001414 +                      NZ     B7,TO.RED5  IF NOT INTEGER                              PAR      2607
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    59
                                                                      TO.RED
  
                          26031                   UX0,B3 X1                                                      PAR      2608
                               22630              LX6    B3,X0                                                   PAR      2609
          1414  0100000000 X             TO.RED5  RJ     NCS         ENTER CONSTANT                              PAR      2610
          1415  57661                             =A6    B6-1                                                    PAR      2611
                     0400000531 +                 EQ     POPX        EXIT..                                      PAR      2612
                                                                                                                 PAR      2613
                                        **        TERM NOT REDUCABLE, TRANSLATE EXTERNAL ROUTINE NAME, AND       PAR      2614
                                        *         PROCESS LIKE FUNCTION CALL.                                    PAR      2615
                                        *                                                                        PAR      2616
                                        *         (B3) _ EXTERNAL ROUTINE TO CALL.                               PAR      2617
                                        *         (X4) = TAG FOR BASE                                            PAR      2618
                                        *         (X5) = TAG FOR POWER                                           PAR      2619
                                                                                                                 PAR      2620
          1416  6170000000 X             POP.EX52 WARN   =XE.XP5                                                 PAR      2621
          1417  0400001421 +                      EQ     POP.EX60                                                PAR      2622
          1420  5112001313 +             POP.EX50 SA1    B2+EXP.BASE-1                                           PAR      2623
                          63310                   SB3    X1          ADDRESS FOR EXTERNAL                        PAR      2624
                                                                                                                 PAR      2625
          1421  76640                    POP.EX60 SX6    B4                                                      PAR      2626
                     5160000000 X                 SA6    SCR         SAVE *B4*                                   PAR      2627
                               43244              MX2    L.FDPC                                                  PAR      2628
          1422  56130                             SA1    B3                                                      PAR      2629
                     43071                        MX0    -L.MODE                                                 PAR      2630
                          11621                   BX6    X2*X1       EXTERNAL SYMBOL ONLY                        PAR      2631
                               15710              BX7    -X0*X1      RESULTANT MODE                              PAR      2632
          1423  5120000000 X                      SA2    CO.TBK                                                  PAR      2633
                          5170000000 +            SA7    SMOD                                                    PAR      2634
          1424  43363                             MX3    -L.FJPAD                                                PAR      2635
                     7100000053                   =X0    1R$                                                     PAR      2636
                               21114              AX1    P.FJPAD                                                 PAR      2637
          1425  0332001426 +                      MI     X2,POP.EX70 IF NOT IN CALL BY VALUE                     PAR      2638
                          7100000057              =X0    1R.                                                     PAR      2639
          1426  15713                    POP.EX70 BX7    -X3*X1                                                  PAR      2640
                     63270                        SB2    X7          SHIFT COUNT FOR SUFFIX                      PAR      2641
                          22320                   LX3    B2,X0                                                   PAR      2642
                               64461              =B4    A6+1                                                    PAR      2643
          1427  12663                             BX6    X6+X3       ADD IN SPECIAL CHARACTER                    PAR      2644
                     54661                        =A6    A6+1                                                    PAR      2645
                          7160020100              TAGSEX B4          TAG IT                                      PAR      2646
          1431  22104                             LX1    X4                                                      PAR      2647
                     10255                        BX2    X5                                                      PAR      2648
                          21102                   AX1    P.LONG                                                  PAR      2649
                               76010              =X0    1                                                       PAR      2650
          1432  21202                             AX2    P.LONG                                                  PAR      2651
                     11101                        BX1    X0*X1                                                   PAR      2652
                          43754                   MX7    -16                                                     PAR      2653
                               11202              BX2    X0*X2                                                   PAR      2654
          1433  5211001503 +                      SA1    X1+EXP.ARG                                              PAR      2655
                          20204                   LX2    4                                                       PAR      2656
                               63720              SB7    X2                                                      PAR      2657
          1434  5160000000 X                      SA6    ROUTNAM                                                 PAR      2658
                          23271                   AX2    X1,B7                                                   PAR      2659
                               15627              BX6    -X7*X2                                                  PAR      2660
          1435  5110000000 X                      SA1    SCR                                                     PAR      2661
                          20652                   LX6    P.JPAD                                                  PAR      2662
          1436  5120000000 X                      SA2    CO.TBK                                                  PAR      2663
                          63410                   SB4    X1                                                      PAR      2664
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    60
                                                                      TO.RED
  
          1437  0322001450 +                      PL     X2,POP.EX80 IF CALL-BY-VALUE                            PAR      2665
                          10655                   BX6    X5                                                      PAR      2666
          1440  5160000000 X                      SA6    SCR         SAVE SECOND ARGUMENT                        PAR      2667
                          10544                   BX5    X4          SET SECOND ARG. TO BASE                     PAR      2668
          1441  0100000000 X                      RJ     ESC         EXPAND SHORT CONSTANT (IF ANY)              PAR      2669
          1442  5130000000 X                      SA3    CALLOP                                                  PAR      2670
                          76400                   =X4    0           DUMMY FIRST ARGUMENT                        PAR      2671
                               22703              LX7    X3                                                      PAR      2672
          1443  5170000002 +                      SA7    SOPR                                                    PAR      2673
                          0100001742 +            RJ     ADT         EMIT ARG. LOAD TURPLE FOR BASE              PAR      2674
          1444  5150000000 X                      SA5    SCR         POWER                                       PAR      2675
                          0100000000 X            RJ     ESC         EXPAND SHORT CONSTANT (IF ANY)              PAR      2676
          1445  5130000002 +                      SA3    SOPR        RESET X3                                    PAR      2677
                          76400                   =X4    0           DUMMY FIRST ARG.                            PAR      2678
                               66661              =B6    B6+1        ADVANCE ESTACK POINTER (TWO TURPLES OUTPUT) PAR      2679
          1446  0100001742 +                      RJ     ADT         EMIT ARG. LOAD TURPLE FOR POWER             PAR      2680
          1447  0400001452 +                      EQ     POP.EX85                                                PAR      2681
                                                                                                                 PAR      2682
          1450  5130000000 X             POP.EX80 SA3    REGARG2                                                 PAR      2683
                          12336                   BX3    X3+X6                                                   PAR      2684
                               22703              LX7    X3                                                      PAR      2685
          1451  5170000002 +                      SA7    SOPR                                                    PAR      2686
                          0100001742 +            RJ     ADT         EMIT ARGUMENT LOAD TURPLE                   PAR      2687
          1452  5120000000 X             POP.EX85 SA2    CO.TBK                                                  PAR      2688
                          5130000000 X            SA3    EXTFUN                                                  PAR      2689
          1453  0332001454 +                      MI     X2,POP.EX90 IF TRACEBACK ON                             PAR      2690
                          5130000000 X            SA3    BEFFUN                                                  PAR      2691
          1454  5120000000 X             POP.EX90 SA2    TT=PAR                                                  PAR      2692
                          5140000000 X            SA4    ROUTNAM                                                 PAR      2693
          1455  7272000003                        =X7    X2+L.TURP                                               PAR      2694
                          5170000003 +            SA7    CURST       RESET RELATIVE SQEEZE START                 PAR      2695
                                                                                                                 PAR      2696
                                        **        NEXT INSTRUCTION IS SETTING A DUMMY OPERAND THAT IS NEVER      PAR      2697
                                        *         USED IN THE ACTUAL SKELETON EXPANSION BUT IS NECESSARY         PAR      2698
                                        *         TO STOP SQUEEZE FROM SQUEEZING OUT UNLIKE ** OPERATORS.        PAR      2699
                                                                                                                 PAR      2700
          1456  76500                             =X5    0           OPERAND TWO = 0                             FCC0744    11
                     66661                        SB6    B6+B1       ADVANCE ESTACK POINTER                      PAR      2702
                          0400001734 +            EQ     POP.ST1     MODE ALREADY DEFINED - POP.ST1              PAR      2703
  
  
  
  
                                        **        EXPONENTIAL ROUTINES                                           PAR      2705
                                                                                                                 PAR      2706
                                         EXPEX    MACRO  NAME,ARGTYP,FUNTYP                                      FCC0966    13
                                         Y        MICRO  1,, NAME                                                PAR      2714
                                         Z        MICCNT Y                                                       PAR      2715
                                         C        SET    54-Z*CHAR                                               PAR      2716
                                         F.NAME   VFD    L.FDPC/0L_NAME,1/0,L.FBEF/0,1/0,L.FJPAD/C,L.FARGM/M.ARG FCC0966    14
                                        ,TYP,L.FARGC/2,L.MODE/M.FUNTYP                                           FCC0966    15
                                         EXPEX    ENDM                                                           PAR      2719
                                                                                                                 PAR      2720
                                                                                                                 PAR      2721
          1457                           EXP.EXT  BSS    0           BASE CELL FOR EXPONTENTIAL ROUTINES         PAR      2722
          1457  11241712000000362022     S.ITOI   EXPEX  ITOJ,INT,INT                                            PAR      2723
          1460  11241730000000362023     S.ITOR   EXPEX  ITOX,INT,REAL                                           PAR      2724
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    61
                                                                      EXPDIS
  
          1461  11241704000000362024     S.ITOD   EXPEX  ITOD,INT,DBL                                            PAR      2725
          1462  11241732000000362025     S.ITOC   EXPEX  ITOZ,INT,CPLX                                           PAR      2726
          1463  30241711000000363023     S.RTOI   EXPEX  XTOI,REAL,REAL                                          PAR      2727
          1464  30241731000000363023     S.RTOR   EXPEX  XTOY,REAL,REAL                                          PAR      2728
          1465  30241704000000363024     S.RTOD   EXPEX  XTOD,REAL,DBL                                           PAR      2729
          1466  30241732000000363025     S.RTOC   EXPEX  XTOZ,REAL,CPLX                                          PAR      2730
          1467  04241711000000364024     S.DTOI   EXPEX  DTOI,DBL,DBL                                            PAR      2731
          1470  04241730000000364024     S.DTOR   EXPEX  DTOX,DBL,DBL                                            PAR      2732
          1471  04241704000000364024     S.DTOD   EXPEX  DTOD,DBL,DBL                                            PAR      2733
          1472  04241732000000364025     S.DTOC   EXPEX  DTOZ,DBL,CPLX                                           PAR      2734
          1473  32241711000000365025     S.CTOI   EXPEX  ZTOI,CPLX,CPLX                                          PAR      2735
                                                                                                                 PAR      2736
                                                  POPMAC EXPEX                                                   PAR      2737
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    62
                                                                      TSF 
  
                                        **        DESCISION TABLE FOR EXPONENTIALS.                              PAR      2739
                                                                                                                 PAR      2740
                                                                                                                 PAR      2741
                                                  MACRO  DICIDE,DUM,MU,ML,MI,MR,MD,MC                            PAR      2742
                                         C        MICRO  1,,$12/0$                                               PAR      2743
                                        .1        ECHO   ,FORMS=(MC,MD,MR,MI,ML,MU)                              PAR      2744
                                         A        MICRO  2,2,/FORMS/                                             PAR      2745
                                         .2       IFC    EQ,/"A"/TO/                                             PAR      2746
                                         C        MICRO  1,,$"C",8/S.FORMS-EXP.EXT+1S7$                          PAR      2747
                                         .2       ELSE                                                           PAR      2748
                                         C        MICRO  1,,$"C",8/TO.FORMS-EXP.BASE$                            PAR      2749
                                         .2       ENDIF                                                          PAR      2750
                                        .1        ENDD                                                           PAR      2751
                                                  VFD    "C"                                                     PAR      2752
                                         DICIDE   ENDM                                                           PAR      2753
                                                                                                                 PAR      2754
                                                                                                                 PAR      2755
          1474                           EXP.TBL  BSS    0                                                       PAR      2756
          1474  00004070101201200005     M=UNIV   DICIDE II,IL,II,IR,ITOD,ITOC                                   PAR      2757
          1475  00000000000000000000     M=LOG    DICIDE LI,LL,LI,LR,LD,LC                                       PAR      2758
          1476  00004070101201200005     M=INT    DICIDE II,IL,II,IR,ITOD,ITOC                                   PAR      2759
          1477  00004170303506400032     M=REAL   DICIDE RI,RL,RI,RR,RTOD,RTOC                                   PAR      2760
          1500  00004270521142000210     M=DBL    DICIDE DTOI,DL,DTOI,DTOR,DTOD,DTOC                             PAR      2761
          1501  00000040100243000214     M=CPLX   DICIDE CTOI,CL,CTOI,CR,CD,CC                                   PAR      2762
                                                  POPMAC DICIDE                                                  PAR      2763
                                                                                                                 PAR      2764
                                        **        TABLE FOR ARGUMENT LOAD SKELETONS.                             PAR      2765
          1502  000000000000000 X        BEF.ARG  VFD    28/0,16/=XO=RAGD1,16/=XO=RAGS1                          PAR      2766
                              000000 X
                                                                                                                 PAR      2767
          1503                           EXP.ARG  BSS    0                                                       PAR      2768
          1503  000000000000000 X                 VFD    28/0,16/O=RAGSD,16/O=RAGSS                              PAR      2769
                              000000 X
          1504  000000000000000 X                 VFD    28/0,16/O=RAGDD,16/O=RAGDS                              PAR      2770
                              000000 X
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    63
                                                                      POP.DIV 
  
                                        **        POP.DIV - PROCESS DIVIDE POPPING DIVIDE.                       PAR      2772
                                        *                                                                        PAR      2773
                                        *         PURPOSE                                                        PAR      2774
                                        *         TO CHANGE SEQUENCE - A  =  B / C / D / E / F                   PAR      2775
                                        *                          TO  A  =  B /(C * D * E * F )                 PAR      2776
                                        *                                                                        PAR      2777
                                        *         GENERAL FLOW.                                                  PAR      2778
                                        *                                                                        PAR      2779
                                        *         1. IF DIVIDE BEING POPPED IS COMMUTATIVE - DIVIDE WAS          PAR      2780
                                        *            PREVIOUSLY CHANGE TO SPECIAL MULTIPLY.                      PAR      2781
                                        *                A.  CHANGE DPC FOR OPERATOR TO MULTIPLY, THUS MAKING    PAR      2782
                                        *                    DIVIDE LOOK LIKE A TRUE MULTIPLY.                   PAR      2783
                                        *                B.  RESET POPPER TO SPECIAL DIVIDE                      PAR      2784
                                        *                C.  RESET OPERATOR STACK FOR CURRENT DIVIDE TO (A)      PAR      2785
                                        *                                                                        PAR      2786
                                        *         2. IF DIVIDE BEING POPPED IS NOT COMMUTATIVE - DIVIDE IS 1ST   PAR      2787
                                        *            IN SEQUENCE                                                 PAR      2788
                                        *                A.  CHECK IF BOTH OPERANDS ARE INTEGER, IF SO LET       PAR      2789
                                        *                    DIVIDE BE POPPED. IF NOT GO TO (B)                  PAR      2790
                                        *                B.  IF BOTH OPERANDS ARE CONSTANTS LET DIVIDE BE        PAR      2791
                                        *                    POPPED. IF NOT GO TO (C)                            PAR      2792
                                        *                C.  CHANGE POPPER TO SPECIAL DIVIDE.                    PAR      2793
                                        *                D.  RESET *B5* INDICATING DIVIDE NOT POPPED.            PAR      2794
                                        *                E.  EXIT TO PAR.ADOP TO ADD SECOND DIVIDE AS SPECIAL    PAR      2795
                                        *                    DIVIDE.                                             PAR      2796
                                        *                                                                        PAR      2797
                                        *         3. IF DIVIDE NOT BEING POPPED BY DIVIDE                        PAR      2798
                                        *                A.  CHECK IF DIVIDE BEING POPPED IS A SPECIAL DIVIDE    PAR      2799
                                        *                    THAT HAS NOT BEEN COMFIRMED.                        PAR      2800
                                        *                B.  IF (A) IS TRUE, CHANGE DIVIDE TO TRUE MULTIPLY      PAR      2801
                                        *                    AND EXIT TO POP.STD, POPPING AS MULTIPLY.           PAR      2802
                                        *                C.  IF (A) IS FALSE, EXIT TO POP.STD TO POP DIVIDE.     PAR      2803
                                                                                                                 PAR      2804
                                                                                                                 PAR      2805
          1505  5110000006 +             POP.DIV  SA1    POPDPC                                                  PAR      2806
                          37013                   IX0    X1-X3                                                   PAR      2807
                               10233              BX2    X3                                                      PAR      2808
          1506  63200                             SB2    X0                                                      PAR      2809
                     0520001521 +                 NZ     B2,POP.DV10 IF NOT DIVIDE POPPING DIVIDE                PAR      2810
                               20233              IFBIT  X2,-COM,POP.DV5   IF NOT POPPING SPECIAL DIVIDE         PAR      2811
                          5110000000 X            SA1    SDIV                                                    PAR      2812
          1510  76210                             =X2    O.DIV-O.MULT                                            PAR      2813
                     37632                        IX6    X3-X2                                                   PAR      2814
                          10711                   BX7    X1                                                      PAR      2815
          1511  5160000002 +                      SA6    SOPR        SET CONFIRMED MULTIPLY                      PAR      2816
                          10366                   BX3    X6                                                      PAR      2817
          1512  5170000007 +                      SA7    POPPER      CHANGE TO SPECIAL DIVIDE                    PAR      2818
                          56651                   =A6    B5+1        CHANGE IN STACK ALSO (INCASE MULT NO POP)   PAR      2819
          1513  0400001536 +                      EQ     POP.SDIV    HANDLE AS MULTIPLY                          PAR      2820
                                                                                                                 PAR      2821
                                        **        HERE IF DIVIDE 1ST IN SEQUENCE                                 PAR      2822
                                                                                                                 PAR      2823
          1514  43071                    POP.DV5  MX0    -L.MODE                                                 PAR      2824
                     15140                        BX1    -X0*X4                                                  PAR      2825
                          15250                   BX2    -X0*X5                                                  PAR      2826
                               20103              LX1    L.MODE                                                  PAR      2827
          1515  36012                             IX0    X1+X2                                                   PAR      2828
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    64
                                                                      POP.DIV 
  
                     5120000000 X                 SA2    SDIV        CHANGE TO SPECIAL DIVIDE                    PAR      2829
          1516  6270777773                        SB7    X0-M.INT-M.INT*1S"A"                                    PAR      2830
                          0470001722 +            ZR     B7,POP.STD  IF INTEGER DIVIDE, POP AS DIVIDE            PAR      2831
          1517  66441                             =B4    B4+1        NEXT                                        PAR      2832
                     7110000007                   =X1    O.DIV                                                   PAR      2833
                               66551              =B5    B5+1        RE ACTIVATE 1ST DIVIDE                      PAR      2834
          1520  0400000437 +                      EQ     PAR.ADOP    IGNORE- SET INTO OPERATOR STACK             PAR      2835
                                                                                                                 PAR      2836
          1521  20233                    POP.DV10 IFBIT  X2,-COM,POP.STD   IF NOT POPPING SPECIAL DIVIDE         PAR      2837
                               76210              =X2    O.DIV-O.MULT                                            PAR      2838
          1522  37632                             IX6    X3-X2                                                   PAR      2839
                     5160000002 +                 SA6    SOPR        SET CONFIRMED MULTIPLY                      PAR      2840
                               10366              BX3    X6                                                      PAR      2841
          1523  0400001722 +                      EQ     POP.STD     POP AS TRUE MULTIPLY                        PAR      2842
  
  
  
  
                                        **        POP.PL - PLUS BEING POPPED.                                    PAR      2844
                                        *                                                                        PAR      2845
                                        *         PURPOSE                                                        PAR      2846
                                        *         1.  TO CHANGE SEQUENCE   A = -B + C                            PAR      2847
                                        *                               TO A =  C - B                            PAR      2848
                                        *         2.  TO CHANGE SEQUENCE   A =  CONSTANT + VARIABLE              PAR      2849
                                        *                               TO A =  VARIABLE + CONSTANT              PAR      2850
                                                                                                                 PAR      2851
                                                                                                                 PAR      2852
          1524  5110000000 X             POP.PL   SA1    LASTOP                                                  PAR      2853
                          6271777750              SB7    X1-O.UMIN                                               PAR      2854
          1525  5120000000 X                      SA2    LASTAD                                                  PAR      2855
                          0570001532 +            NZ     B7,POP.PL10 IF LAST OP NOT *UNARY-*                     PAR      2856
          1526  10155                             BX1    X5                                                      PAR      2857
                     0100002005 +                 RJ     COR         CHECK IF OPERAND IS INPUT TO OPERATOR       PAR      2858
          1527  0310001532 +                      NZ     X0,POP.PL10 IF *UNARY* NOT INPUT INTO *PLUS*            PAR      2859
                          5130000000 X            SA3    REVMIN                                                  PAR      2860
          1530  5251000002                        =A5    X1-OR.OPR+OR.2OP                                        PAR      2861
                          10633                   BX6    X3                                                      PAR      2862
                               54720              SA7    A2          RESET LENGTH OF TT=PAR                      PAR      2863
          1531  5160000002 +                      SA6    SOPR                                                    PAR      2864
                          0400001722 +            EQ     POP.STD                                                 PAR      2865
                                                                                                                 PAR      2866
                                        **        CHECK FOR COMMUTATIVE OPERATOR BEING POPPED BY SAME.           PAR      2867
                                        *         IF TRUE AND 1ST OPERAND IS A CONSTANT REVERSE ORDER AND DELAY  PAR      2868
                                        *         PROCESSING.                                                    PAR      2869
                                        *         (JOINED HERE BY MULTIPLY POP PROCESSOR)                        PAR      2870
                                                                                                                 PAR      2871
                                                                                                                 PAR      2872
          1532                           POP.MUL  BSS    0                                                       PAR      2873
          1532  5110000006 +             POP.PL10 SA1    POPDPC                                                  PAR      2874
                          37013                   IX0    X1-X3                                                   PAR      2875
                               63200              SB2    X0                                                      PAR      2876
          1533  0520001722 +                      NZ     B2,POP.STD  IF NOT BEING POPPED BY LIKE OPERATOR        PAR      2877
                          5110000000 X            SA1    SDIV                                                    FCCA533     7
          1534  43263                             MX2    -L.STPR                                                 FCCA533     8
                     13113                        BX1    X1-X3                                                   FCCA533     9
                          20152                   LX1    -P.STPR                                                 FCCA533    10
                               15212              BX2    -X2*X1                                                  FCCA533    11
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    65
                                                                      POP.PL
  
          1535  0302001722 +                      ZR     X2,POP.STD  IF * POPPING SPECIAL DIVIDE                 FCCA533    12
                                                                                                                 PAR      2878
                                        **        JOINED HERE IF POPPING A SPECIAL DIVIDE                        PAR      2879
                                                                                                                 PAR      2880
          1536  5116777775               POP.SDIV SA1    B6-2                                                    PAR      2881
                          57261                   =A2    B6-1                                                    PAR      2882
          1537  7100004000                        =X0    M.SHORT                                                 PAR      2883
                          22602                   LX6    X2                                                      PAR      2884
                               10711              BX7    X1                                                      PAR      2885
                                                                                                                 PAR      2886
                                        **        CHECK IF OPERANDS ARE CONSTANTS                                PAR      2887
                                                                                                                 PAR      2888
          1540  11301                             BX3    X0*X1       BRING DOWN SHORT BIT                        PAR      2889
                     21167                        AX1    P.TGB                                                   PAR      2890
                          13030                   BX0    X3-X0       WIPE OUT SHORT                              PAR      2891
          1541  7231777761                        SX3    X1-C.CON/1S13                                           PAR      2892
                          66210                   =B2    1           INDICATE 1 CONSTANT                         PAR      2893
                               11130              BX1    X3*X0       SHORT OR CONSTANT                           PAR      2894
          1542  7100004000                        =X0    M.SHORT                                                 PAR      2895
                          0301001544 +            ZR     X1,POP.PL15 IF 1ST = CONSTANT                           PAR      2896
          1543  10366                             BX3    X6                                                      PAR      2897
                     22607                        LX6    X7          ROTATE OPERANDS                             PAR      2898
                          66200                   =B2    0           INDICATE NO CONSTANT SO FAR                 PAR      2899
                               10733              BX7    X3                                                      PAR      2900
                                                                                                                 PAR      2901
          1544  11302                    POP.PL15 BX3    X0*X2                                                   PAR      2902
                     21267                        AX2    P.TGB                                                   PAR      2903
                          13130                   BX1    X3-X0                                                   PAR      2904
          1545  7202777761                        SX0    X2-C.CON/1S13                                           PAR      2905
                          66221                   =B2    B2+1                                                    PAR      2906
                               11210              BX2    X1*X0                                                   PAR      2907
          1546  5130000002 +                      SA3    SOPR        RELOAD POPPED OPERATOR                      PAR      2908
                          0302001550 +            ZR     X2,POP.PL20 IF 2ND = CONSTANT                           PAR      2909
          1547  67221                             =B2    B2-1                                                    PAR      2910
                                                                                                                 PAR      2911
                                        **        (B2) = 0 = NO CONSTANTS                                        PAR      2912
                                        *                1 = 1 OPERAND IS CONSTANT                               PAR      2913
                                        *                  > 1 BOTH ARE CONSTANT                                 PAR      2914
                                                                                                                 PAR      2915
          1550  0521001722 +             POP.PL20 NE1    B2,POP.STD  IF BOTH OR NONE ARE CONSTANTS               PAR      2916
                          43371                   MX3    -L.MODE                                                 FCC1293     8
                               15043              BX0    -X3*X4      MODE                                        FCC1293     9
          1551  15353                             BX3    -X3*X5      MODE                                        FCC1293    10
                     11003                        BX0    X0*X3       0 IF AT LEAST 1 UNIVERSAL                   FCC1293    11
                          63200                   =B2    X0                                                      FCC1293    12
          1552  5130000002 +                      SA3    SOPR        RELOAD POPPED OPERATOR                      FCC1293    13
                          0420001722 +            EQ     B2,POP.STD  IF AT LEAST 1 UNIVERSAL OPERAND             FCC1293    14
          1553  54610                             SA6    A1          REVERSE ORDER, MAKING CONSTANT SECOND       PAR      2917
                     54720                        SA7    A2                                                      PAR      2918
                          66551                   =B5    B5+1        PUT OPERATOR BACK INTO TABLE                PAR      2919
          1554  5120000007 +                      SA2    POPPER                                                  PAR      2920
                          55121                   =A1    A2-POPPER+POPDPC                                        PAR      2921
                               66441              =B4    B4+1        NEXT                                        PAR      2922
          1555  0400000437 +                      EQ     PAR.ADOP    RESET OPERATOR STACK                        PAR      2923
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    66
                                                                      POP.UM
  
                                        **        POP.UM - PROCESS UNARY MINUS BEING POPPED.                     PAR      2925
                                        *                                                                        PAR      2926
                                        *         PURPOSE.                                                       PAR      2927
                                        *         1.  TO CHANGE SEQUENCE    A = - CONSTANT                       PAR      2928
                                        *                            TO     A =   CONSTANT                       PAR      2929
                                        *         2.  TO CHANGE SEQENCE     A = - ( - B )                        PAR      2930
                                        *                            TO     A =       B                          PAR      2931
                                        *         3.  TO CHANGE SEQUENCE    A = - (B - C)                        PAR      2932
                                        *                            TO     A =    C - B                         PAR      2933
                                        *                                                                        PAR      2934
                                        *         ENTRY  (X5) = OPERAND                                          PAR      2935
                                                                                                                 PAR      2936
                                                                                                                 PAR      2937
          1556  10155                    POP.UM   BX1    X5                                                      PAR      2938
                     0100000000 X                 RJ     LCT                                                     PAR      2939
          1557  0420001572 +                      ZR     B2,POP.UM10 IF OPERAND NOT CONSTANT                     PAR      2940
                                                                                                                 PAR      2941
                                        **        (X6) = 1ST CONSTANT IN BINARY                                  PAR      2942
                                        *         (X7) = 2ND CONSTANT IN BINARY, (ONLY VALID IF LONG BIT SET.)   PAR      2943
                                                                                                                 PAR      2944
          1560  10355                    POP.UM1  BX3    X5                                                      PAR      2945
                     20371                        IFBIT  X3,LONG,POP.UM5                                         PAR      2946
          1561  5120000000 X                      SA2    TT.PAR                                                  PAR      2947
                          14666                   BX6    -X6                                                     PAR      2948
                               22700              LX7    X0          MODE                                        PAR      2949
          1562  0100000000 X                      RJ     NCS         ENTER CONSTANT                              PAR      2950
          1563  57661                             =A6    B6-1        REPLACE STACK ENTRY                         PAR      2951
                     0400000531 +                 EQ     POPX        EXIT..                                      PAR      2952
                                                                                                                 PAR      2953
                                        **        HERE IF DOUBLE WORD CONSTANT                                   PAR      2954
                                        *         (X1) = (X6) = UPPER PART                                       PAR      2955
                                        *         (X2) = (X7) = LOWER PART                                       PAR      2956
                                                                                                                 PAR      2957
          1564  14611                    POP.UM5  BX6    -X1                                                     PAR      2958
                     14722                        BX7    -X2                                                     PAR      2959
                          5160000000 X            SA6    SCR                                                     PAR      2960
          1565  54761                             =A7    A6+1                                                    PAR      2961
                     64260                        SB2    A6          FWA                                         PAR      2962
                          6132000002              SB3    B2+2        LWA+1                                       PAR      2963
          1566  5110000000 X                      SCAN   TS.CON,NCM  SCAN/ENTER NEW CONSTANTS                    PAR      2964
          1567  7107340000                        SX0    B7+C.CON                                                PAR      2965
                          43671                   MX6    -L.MODE                                                 PAR      2966
                               15156              BX1    -X6*X5                                                  PAR      2967
          1570  20052                             LX0    P.TAG                                                   PAR      2968
                     36610                        IX6    X1+X0                                                   PAR      2969
                          57661                   =A6    B6-1        REPLACE STACK ENTRY                         PAR      2970
          1571  0400000531 +                      EQ     POPX        EXIT..                                      PAR      2971
                                                                                                                 PAR      2972
          1572  5110000000 X             POP.UM10 SA1    LASTOP                                                  PAR      2973
                          5120000000 X            SA2    LASTAD                                                  PAR      2974
          1573  6271777750                        SB7    X1-O.UMIN                                               PAR      2975
                          6221777772              SB2    X1-O.MIN                                                PAR      2976
          1574  0570001601 +                      NZ     B7,POP.UM15 IF NOT RESULTS OF ANOTHER UNARY-            PAR      2977
                          10155                   BX1    X5                                                      PAR      2978
          1575  0100002005 +                      RJ     COR                                                     PAR      2979
          1576  0310001606 +                      NZ     X0,POP.UM20 IF NOT INPUT INTO THIS OPERATOR             PAR      2980
                          5231000002              =A3    X1-OR.OPR+OR.2OP                                        PAR      2981
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    67
                                                                      POP.UM
  
          1577  54720                             SA7    A2          RESET LENGTH OF TT=PAR                      PAR      2982
                     10633                        BX6    X3                                                      PAR      2983
                          57661                   =A6    B6-1        PUT OPERAND BACK IN ELEMENT STACK           PAR      2984
          1600  0400000531 +                      EQ     POPX        EXIT..                                      PAR      2985
                                                                                                                 PAR      2986
                                        **        CHECK FOR -(A-B)                                               PAR      2987
                                                                                                                 PAR      2988
          1601  0520001606 +             POP.UM15 NZ     B2,POP.UM20 IF  LAST NOT *-*                            PAR      2989
                          10155                   BX1    X5                                                      PAR      2990
          1602  0100002005 +                      RJ     COR                                                     PAR      2991
          1603  0310001606 +                      NZ     X0,POP.UM20 IF NOT INPUT INTO THIS OPERATOR             PAR      2992
                          53311                   =A3    X1-OR.OPR+OR.1OP                                        PAR      2993
                               10633              BX6    X3                                                      PAR      2994
          1604  54431                             =A4    A3-OR.1OP+OR.2OP                                        PAR      2995
                     10744                        BX7    X4                                                      PAR      2996
                          54640                   SA6    A4          REVERSE THE ORDER OF THE SUBTRACT           PAR      2997
                               54730              SA7    A3                                                      PAR      2998
          1605  0400000531 +                      EQ     POPX        EXIT..                                      PAR      2999
                                                                                                                 PAR      3000
                                        **        HERE IF UNARY- TO BE OUTPUT                                    PAR      3001
                                                                                                                 PAR      3002
          1606  76400                    POP.UM20 =X4    0           OR.1OP  = DUMMY                             PAR      3003
                     66661                        =B6    B6+1        DUMMY FOR UNARY-                            PAR      3004
                          0400001722 +            EQ     POP.STD                                                 PAR      3005
  
  
  
  
                                        **        CHECK IF ONE OPERAND IS A LONG CONSTANT AND CAN BE CONVERTED   PAR      3026
                                        *         TO MASK FORM.                                                  PAR      3027
                                                                                                                 PAR      3028
          1607  0100002151 +             POP.LOG  RJ     SMM         SET MODE FOR SPECIAL OPERATOR               PAR      3029
          1610  7263777754                        SX6    X3-O.AND                                                PAR      3030
                          10144                   BX1    X4                                                      PAR      3031
          1611  5160000000 X                      SA6    TRVA                                                    PAR      3032
                          0100000000 X            RJ     LCT                                                     PAR      3033
          1612  0620001734 +                      GE     B2,POP.ST1  IF NOT LONG CONSTANT                        PAR      3034
                          10166                   BX1    X6                                                      PAR      3035
                               76211              =X2    M.INT                                                   PAR      3036
          1613  66310                             =B3    1                                                       PAR      3037
                     0100000000 X                 RJ     CMO                                                     PAR      3038
          1614  0306001734 +                      ZR     X6,POP.ST1  IF NOT MASK CONSTANT                        PAR      3039
                          22705                   LX7    X5                                                      PAR      3040
                               10566              BX5    X6                                                      PAR      3041
          1615  5120000000 X                      SA2    TRVA                                                    PAR      3042
                          22407                   LX4    X7                                                      PAR      3043
          1616  5232000000 X                      SA3    X2+ANDNOT                                               PAR      3044
                          43052                   MX0    -L.SBPR                                                 PAR      3045
          1617  7222000033                        SX2    X2+O.ANDN                                               PAR      3046
                          11303                   BX3    X0*X3                                                   PAR      3047
                               36323              IX3    X2+X3       REFORM .OP..NOT. OPERATOR                   PAR      3048
          1620  10633                             BX6    X3                                                      PAR      3049
                     5160000002 +                 SA6    SOPR                                                    PAR      3050
          1621  0400001734 +                      EQ     POP.ST1     CONTINUE ..                                 PAR      3051
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    68
                                                                      POP.NT
  
                                        **        CHECK IF .NOT. (.NOT. EXPRESSION) COMBINATION.                 PAR      3053
                                                                                                                 PAR      3054
                                                                                                                 PAR      3055
          1622  10155                    POP.NOT  BX1    X5                                                      PAR      3056
                     0100000000 X                 RJ     LCT         CHECK IF OPERAND IS CONSTANT                PAR      3057
          1623  0520001560 +                      NZ     B2,POP.UM1  IF CONSTANT OPERAND                         PAR      3058
                          10455                   BX4    X5          DUMMY 1ST OPERAND = 2ND                     PAR      3059
          1624  0100002151 +                      RJ     SMM         SET MODE FOR SPECIAL OPERATOR               PAR      3060
          1625  66661                             =B6    B6+1        RESET FOR UNARY                             PAR      3061
                     5110000000 X                 SA1    LASTOP                                                  PAR      3062
                               76400              =X4    0           DUMMY 1ST OPERAND                           PAR      3063
          1626  6271777755                        SB7    X1-O.NOT                                                PAR      3064
                          0570001734 +            NZ     B7,POP.ST1  IF LAST PROCESSED NOT .NOT.                 FCC0616    29
          1627  10155                             BX1    X5                                                      PAR      3066
                     0100002005 +                 RJ     COR                                                     PAR      3067
          1630  0310001734 +                      NZ     X0,POP.ST1  IF NOT INPUT INTO THIS OPERATOR             FCC0616    30
                          5231000002              =A3    X1-OR.OPR+OR.2OP                                        PAR      3069
          1631  54720                             SA7    A2          RESET LENGTH OF TT=PAR                      PAR      3070
                     10633                        BX6    X3                                                      PAR      3071
                          5166777775              SA6    B6-2        PUT OPERAND BACK IN ELEMENT STACK           PAR      3072
          1632  67661                             =B6    B6-1                                                    PAR      3073
                     0400000531 +                 EQ     POPX        EXIT                                        PAR      3074
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    69
                                                                      POP.REL 
  
                                        **        RELATIONALS BEING POPPED.                                      PAR      3096
                                                                                                                 PAR      3097
                                                                                                                 PAR      3098
          1633  63730                    POP.REL  SB7    X3                                                      PAR      3099
                     5110002227 +                 SA1    ="LEGT"                                                 PAR      3100
          1634  6123777766                        SB2    B3-O.RP                                                 PAR      3101
                          22671                   LX6    B7,X1                                                   PAR      3102
                               10055              BX0    X5                                                      PAR      3103
          1635  0326001641 +                      PL     X6,POP.RL10 IF NOT .LE. OR .GT.                         PAR      3104
                                                                                                                 PAR      3105
                                        **        CHANGE RELATIONALS .LE. TO .GE. OR .GT. TO .LT.                PAR      3106
                                                                                                                 PAR      3107
                          10544                   BX5    X4                                                      PAR      3108
                               63760              SB7    X6                                                      PAR      3109
          1636  22400                             LX4    X0                                                      PAR      3110
                     7160000003                   =X6    O.GE-O.LE                                               PAR      3111
          1637  0470001640 +                      ZR     B7,POP.RL3  IF PROCESSING .LE.                          PAR      3112
                          7160777772              =X6    O.LT-O.GT                                               PAR      3113
          1640  36336                    POP.RL3  IX3    X3+X6       CHANGE TO NEW OPERATOR                      PAR      3114
                     10633                        BX6    X3                                                      PAR      3115
                          5160000002 +            SA6    SOPR                                                    PAR      3116
                                                                                                                 PAR      3117
          1641  13045                    POP.RL10 BX0    X4-X5                                                   PAR      3118
                     43271                        MX2    -L.MODE                                                 PAR      3119
                          15102                   BX1    -X2*X0                                                  PAR      3120
                               15242              BX2    -X2*X4                                                  PAR      3121
          1642  0311001646 +                      NZ     X1,POP.RL15 IF MIXED MODE.                              PAR      3122
                          6272777776              SB7    X2-M.LOG                                                PAR      3123
          1643  0570001646 +                      NZ     B7,POP.RL15 IF DOMINANT MODE NOT LOGICAL.               PAR      3124
                          6170000000 X            FATAL  E.AT1A      NON-LOGICAL OPERATOR ON LOGICAL OPERANDS    PAR      3125
          1645  0400000531 +                      EQ     POPX        EXIT..                                      PAR      3126
                                                                                                                 PAR      3127
          1646  0100002033 +             POP.RL15 RJ     SDM         SET DOMINANT MODE AND OPERATOR              PAR      3128
          1647  5120000000 +                      SA2    SMOD                                                    PAR      3129
                          43052                   MX0    -18                                                     PAR      3130
                               76710              =X7    M.LOG                                                   PAR      3131
          1650  11102                             BX1    X0*X2       SAVE CONVERSION BITS                        PAR      3132
                     36671                        IX6    X7+X1                                                   PAR      3133
                          54620                   SA6    A2          RESET SMOD INDICATING RESULTS = LOGICAL     PAR      3134
          1651  0400001734 +                      EQ     POP.ST1     CONTINUE                                    PAR      3135
  
  
  
  
                                        **        EQUAL - VALIDATE NOTHING ILLEGAL                               PAR      3137
                                        *                                                                        PAR      3138
                                        *                A. CHECKS LEFT SIDE FOR LEGALITY.                       PAR      3139
                                        *                B. VALIDATES NOT RESETTING A *DO* PARAMETER.            PAR      3140
                                        *                C. CHECKS MODE CONVERSION ON CONSTANTS.                 PAR      3141
                                                                                                                 PAR      3142
          1652  0100002033 +             POP.REQ  RJ     SDM                                                     PAR      3143
          1653  5120000000 +                      SA2    SMOD                                                    PAR      3144
                          21222                   AX2    18                                                      PAR      3145
          1654  6170000000 X                      SB7    E.LP3                                                   PAR      3146
                          0302001661 +            ZR     X2,POP.RQ5  IF NO MIXED MODE.                           PAR      3147
          1655  0100000000 X                      RJ     LCT                                                     PAR      3148
          1656  0420001661 +                      ZR     B2,POP.RQ5  IF RIGHT MEMBER NOT CONSTANT.               PAR      3149
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    70
                                                                      POP.REQ 
  
                                                                                                                 PAR      3150
                                        **        CHANGE CONSTANT TO DOMINANT MODE                               PAR      3151
                                                                                                                 PAR      3152
                          5120000000 +            SA2    SMOD                                                    PAR      3153
          1657  6130000000                        SB3    0                                                       PAR      3154
                          10166                   BX1    X6          CONSTANT TO CHECK (LCT RETURNED)            PAR      3155
                               73220              SX2    X2          INDICATE 1ST = CONSTANT                     PAR      3156
          1660  0100000000 X                      RJ     CMC         CHECK IF CONSTANT CAN ACTUAL BE CONVERTED   PAR      3157
                                                                                                                 PAR      3158
                                        **        CHECK IF REDEFINING *DO* INDEX                                 PAR      3159
                                                                                                                 PAR      3160
          1661  5120000000 X             POP.RQ5  SA2    TP=DO                                                   PAR      3161
                          5110000000 X            SA1    TP.DO                                                   PAR      3162
          1662  0302001701 +                      ZR     X2,POP.RQ10 IF NOT IN *DO*                              PAR      3163
                          36012                   IX0    X1+X2                                                   PAR      3164
                               63210              SB2    X1                                                      PAR      3165
          1663  10655                             BX6    X5                                                      PAR      3166
                     5220777776                   SA2    X0-1        PRELOAD 1ST ENTRY                           PAR      3167
                               57621              =A6    B2-1        DUMMY FIND                                  PAR      3168
                                                                                                                 PAR      3169
                                        **        SCAN *DO* TABLE                                                PAR      3170
                                                                                                                 PAR      3171
          1664  13025                    POP.RQ6  BX0    X2-X5                                                   PAR      3172
                     55221                        =A2    A2-1                                                    PAR      3173
                          0310001664 +            NZ     X0,POP.RQ6  IF NO MATCH                                 PAR      3174
          1665  65722                             SB7    A2-B2                                                   PAR      3175
                     0770001701 +                 MI     B7,POP.RQ10 IF DUMMY FIND                               PAR      3176
                                                                                                                 PAR      3177
                                        *         CHECK IF IT IS THE CONTROL INDEX THAT IS REDEFINED             PAR      3178
                                                                                                                 PAR      3179
          1666  5120000000 X                      SA2    TP=DO                                                   PAR      3180
                          36012                   IX0    X1+X2                                                   PAR      3181
                               63700              SB7    X0          (B7) = LWA+1 OF TABLE                       PAR      3182
          1667  6221000003                        SB2    X1+OR.DOCI                                              PAR      3183
                          56120                   SA1    B2          PREFETCH FIRST CONTROL INDEX                PAR      3184
          1670  0400001673 +                      EQ     POP.RQ8                                                 PAR      3185
                                                                                                                 PAR      3186
          1671  13015                    POP.RQ7  BX0    X1-X5                                                   PAR      3187
                     6122000006                   SB2    B2+L.DOE                                                PAR      3188
                               21052              AX0    P.TAG                                                   PAR      3189
          1672  0300001674 +                      ZR     X0,POP.RQ9  IF CONTROL INDEX REDEFINED -- *FATAL*       PAR      3190
                          56120                   SA1    B2          FETCH NEXT CONTROL INDEX                    PAR      3191
          1673  0727001671 +             POP.RQ8  LT     B2,B7,POP.RQ7     IF NOT END OF TABLE, LOOP             PAR      3192
                          0400001676 +            EQ     POP.RQ9A                                                PAR      3193
                                                                                                                 PAR      3194
          1674  6170000000 X             POP.RQ9  FATAL  E.DO8                                                   PAR      3195
          1675  0400001703 +                      EQ     POP.RQ11                                                PAR      3196
                                                                                                                 PAR      3197
          1676                           POP.RQ9A BSS    0                                                       PAR      3198
          1676  6170000000 X                      NOTE   E.DO23      REDEFINING *DO* PARAMETER                   PAR      3199
          1677  5120000000 X                      SA2    DOIX                                                    PAR      3200
                          14622                   BX6    -X2                                                     PAR      3201
                               54620              SA6    A2          INDICATE AN INDEX IS CHANGED IN ACTIVE LOOP PAR      3202
          1700  0400001703 +                      EQ     POP.RQ11    BY-PASS NULL EXPRESSION CHECK               PAR      3203
                                                                                                                 PAR      3204
                                        **        VALIDATE LEFT MEMBER LEGAL                                     PAR      3205
                                                                                                                 PAR      3206
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    71
                                                                      POP.REQ 
  
          1701  13045                    POP.RQ10 BX0    X4-X5                                                   PAR      3207
                     67661                        =B6    B6-1        ELIMINATE ONE OPERAND                       PAR      3208
                          0300000531 +            ZR     X0,POPX     IF LEFT MEMBER = RIGHT MEMBER               PAR      3209
          1702  66661                             =B6    B6+1        PUT OPERAND BACK                            PAR      3210
          1703  22005                    POP.RQ11 LX0    X5                                                      PAR      3211
                     10155                        BX1    X5                                                      PAR      3212
                          20062                   IFBIT  X0,-INTR,POP.RQ12     IF NOT INTERMEDIATE               PAR      3213
                          20001                   IFBIT  X0,ARY/INTR,POP.ST1  IF ARRAY INTERMEDIATE - OK.        PAR      3214
                          6170000000 X            FATAL  E.TE8                 LEFT SIDE IS ILLEGAL              PAR      3215
          1707  0400001734 +                      EQ     POP.ST1                                                 PAR      3216
                                                                                                                 PAR      3217
          1710  21152                    POP.RQ12 AX1    P.2TAG                                                  PAR      3218
                     5120000000 X                 SA2    TS.SYM                                                  PAR      3219
          1711  6221577777                        SB2    X1-C.SYM                                                PAR      3220
                          7100200000              SX0    C.SYM                                                   FCCA468     7
          1712  13601                             BX6    X0-X1                                                   FCCA468     8
                     21615                        AX6    L.PWF                                                   FCCA468     9
                          0316001720 +            NZ     X6,POP.RQ14 IF NOT SYMBOL                               FCCA468    10
          1713  53222                             SA2    X2+B2                                                   PAR      3224
                     20257                        IFBIT  X2,-VAR,POP.RQ14  IF NOT SIMPLE VARIABLE                FCC1901    25
          1714  20241                             IFBIT  X2,-FPS/VAR,POP.ST1   IF NOT FP USED AS A SUBSCRIPT     FCC1901    26
                               55221              SA2    A2-B1       POINTS TO SYMBOL IN TS.SYM                  FCC1901    27
          1715  43652                             MX6    L.SYM                                                   FCC1901    28
                     11626                        BX6    X2*X6       EXTRACT SYMBOL                              FCC1901    29
                          5160000000 X            SA6    FILL.                                                   FCC1901    30
          1716  6170000000 X                      ANSI   =XE.AT13    REDEFINITION OF FPS IS NON-ANSI             FCC1901    31
          1717  0400001734 +                      EQ     POP.ST1     ADD TURPLE TO PARSED FILE                   FCC1901    32
          1720  6170000000 X             POP.RQ14 FATAL  E.TE8                                                   PAR      3226
          1721  0400001734 +                      EQ     POP.ST1                                                 PAR      3227
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    72
                                                                      POP.STD 
  
                                        **        STD -  SET DOMINANT MODE / ADD TURPLE TO PARSED FILE           PAR      3230
                                        *         ENTRY  (X3) = OPERATOR                                         PAR      3231
                                        *                (X4) = 1ST OPERAND                                      PAR      3232
                                        *                (X5) = 2ND OPERAND                                      PAR      3233
                                        *                                                                        PAR      3234
                                        *         CALLS  SDM,POP.ST1                                             PAR      3235
                                                                                                                 PAR      3236
                                                                                                                 PAR      3237
          1722  10633                    POP.STD  BX6    X3                                                      PAR      3238
                     5160000004 +                 SA6    SOPR1       SAVE OPERATOR                               PAR      3239
          1723  0100002033 +                      RJ     SDM         SET DOMINANT MODE / RESULTANT MODE          PAR      3240
          1724  10633                             BX6    X3                                                      PAR      3241
                     5160000002 +                 SA6    SOPR        SET OPERATOR CELL                           PAR      3242
          1725  5160000005 +                      SA6    SOPR2       SAVE OPERATOR                               PAR      3243
                          0100000000 X            RJ     PSO         PROCESS SUBSCRIPT OPERATION IF IN ARRAY     PAR      3244
          1726  0303000531 +                      ZR     X3,POPX     IF SUBSCRIPT OPERATION REDUCED              PAR      3245
                          5110000005 +            SA1    SOPR2                                                   PAR      3246
          1727  37113                             IX1    X1-X3                                                   PAR      3247
                     0311001737 +                 NZ     X1,POP.ST5  IF OPERATOR CHANGED                         PAR      3248
          1730  5130000004 +                      SA3    SOPR1       RELOAD ORIGINAL OPERATOR                    PAR      3249
                          10633                   BX6    X3                                                      PAR      3250
          1731  5160000002 +                      SA6    SOPR                                                    PAR      3251
                          0100002033 +            RJ     SDM         RESET DOMINANT MODE / RESULTANT MODE        PAR      3252
          1732  10633                             BX6    X3                                                      PAR      3253
                     5160000002 +                 SA6    SOPR        RESET OPERATOR CELL                         PAR      3254
          1733  0400001737 +                      EQ     POP.ST5                                                 PAR      3255
  
  
  
  
                                        **        ST1 -  ADD TURPLE TO PARSED FILE                               PAR      3257
                                        *                                                                        PAR      3258
                                        *         ENTRY  (X3) = OPERATOR                                         PAR      3259
                                        *                (X4) = 1ST OPERAND                                      PAR      3260
                                        *                (X5) = 2ND OPERAND                                      PAR      3261
                                        *                                                                        PAR      3262
                                        *         CALLS  PSO,OMC,ADT                                             PAR      3263
                                                                                                                 PAR      3264
                                                                                                                 PAR      3265
          1734  10633                    POP.ST1  BX6    X3                                                      PAR      3266
                     5160000002 +                 SA6    SOPR        SET OPERATOR CELL                           PAR      3267
          1735  0100000000 X                      RJ     PSO         PROCESS SUBSCRIPT OPERATION IF IN ARRAY     PAR      3268
          1736  0303000531 +                      ZR     X3,POPX     IF SUBSCRIPT OPERATION REDUCED              PAR      3269
          1737  0100002075 +             POP.ST5  RJ     OMC         OUTPUT MODE CONVERSION IF REQUIRED          PAR      3270
          1740  0100001742 +                      RJ     ADT         ADD TURPLE                                  PAR      3271
          1741  0400000531 +                      EQ     POPX        EXIT..                                      PAR      3272
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    73
                                                                      ADT 
  
                                        **        ADT  ADD TURPLE TO PARSED FILE.                                PAR      3274
                                        *                                                                        PAR      3275
                                        *         GENERAL FLOW                                                   PAR      3276
                                        *         A. CCR - CHECKS IF CURRENT TURPLE CAN BE PERFORMED AT COMPILE  FEAT126C  156
                                        *                  TIME, IF OPERATION IS DEFINED, IF TURPLE CAN BE       PAR      3286
                                        *                  MODIFIED TO A FASTER DEFINED OPERATION, ETC.          PAR      3287
                                        *                                                                        PAR      3288
                                        *         B. SQZ - CHECKS IF CURRENT TURPLE CAN BE SQUEEZED OUT BECAUSE  FEAT126C  157
                                        *                  OF A PREVIOUS ALIKE TURPLE.                           PAR      3290
                                        *                                                                        PAR      3291
                                        *         C. ALC - ALLOCATES ROOM FOR CURRENT TURPLE.                    FEAT126C  158
                                        *                                                                        PAR      3293
                                        *                                                                        PAR      3294
                                        *         ENTRY  (X3) = OPERATOR                                         PAR      3295
                                        *                (SOPR) = (X3)                                           PAR      3296
                                        *                (SMOD) = RESULTANT MODE OF TURPLE.                      PAR      3297
                                        *                         (SEE DEFINITION IN *SDM*.)                     PAR      3298
                                        *                (X4) = 1ST OPERAND                                      PAR      3299
                                        *                (X5) = 2ND OPERAND                                      PAR      3300
                                        *                                                                        PAR      3301
                                        *         EXIT   TT.PAR UPDATED BY L.TURP, IF TURPLE NOT SQUEEZED OR     PAR      3302
                                        *                REDUCED.                                                PAR      3303
                                        *                (B6) = UPDATED BY -1.                                   PAR      3304
                                        *                ESTACK (B6) = INTERMEDIATE GENERATED BY CURRENT TURPLE. PAR      3305
                                                                                                                 PAR      3306
                                                                                                                 PAR      3307
          1742  0400401742 +             ADT      SUBR   0                                                       PAR      3308
          1743  10033                             BX0    X3                                                      PAR      3309
                                                                                                                 PAR      3310
                                        **        CONSTANT COMBINATION CHECK.                                    PAR      3311
                                        *         CHECK IF CURRENT TURPLE IS A SIMPLE CONSTANT RESULT OR         PAR      3312
                                        *         WILL RESULT IN A MACHINE UNDEFINED OPERAND.                    PAR      3313
                                        *         (X0) = OPERATOR.                                               PAR      3314
                                        *         RETURN FROM *CCR*                                              PAR      3315
                                        *                X6 = 0 - TURPLE NOT REDUCED.                            PAR      3316
                                        *                X6 " 0 - RESULTS OF REDUCTION.                          PAR      3317
                                                                                                                 PAR      3318
          1744  10733                    ADT2     BX7    X3                                                      PAR      3319
                     20067                        IFBIT  X0,NONSTD/COM,ADT10                                     PAR      3320
          1745  0100000000 X                      RJ     CCR         CHECK CONSTANT REDUCTION.                   PAR      3321
          1746  10733                             BX7    X3                                                      PAR      3322
                     0306001751 +                 ZR     X6,ADT10    IF NOT REDUCED                              PAR      3323
          1747  5166777775                        SA6    B6-2        RESULT OF REDUCTION BACK TO OP-STACK        PAR      3324
                          67661                   =B6    B6-1                                                    PAR      3325
          1750  0400001742 +                      EQ     ADTX        EXIT.. (TERM REDUCED)                       PAR      3326
                                                                                                                 PAR      3327
                                        **        SQUEEZE TURPLE -- IF POSSIBLE.                                 PAR      3328
                                        *         CHECK IF CURRENT TURPLE IS ALREADY IN PARSED FILE.             PAR      3329
                                        *         (X7) = OPERATOR.                                               PAR      3330
                                        *         RETURN FROM *SQZ*                                              PAR      3331
                                        *                B2 > 0 - TURPLE SQUEEZE                                 PAR      3332
                                                                                                                 PAR      3333
          1751  76650                    ADT10    SX6    B5                                                      PAR      3334
                     20727                        IFBIT  X7,NSQEZ,ADT36                                          PAR      3335
          1752  5160000000 X                      SA6    TRVA        SAVE *B5*                                   PAR      3336
                          0100002167 +            RJ     SQZ         CHECK IF CURRENT TURPLE CAN BE ELIMINATED   PAR      3337
          1753  5110000000 X                      SA1    TRVA                                                    PAR      3338
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    74
                                                                      ADT 
  
                          63510                   SB5    X1          RESTORE *B5*                                PAR      3339
          1754  0620001742 +                      PL     B2,ADTX     IF SQUEEZE PERFORMED.                       PAR      3340
                                                                                                                 PAR      3341
                                        **        SET UP INTERMEDIATE RESULT OPERAND TO *ESTACK*                 PAR      3342
                                        *         AND PUT CURRENT TURPLE IN *SB* FOR LATER PROCESSING BY *CAI*.  PAR      3343
                                        *         (X4) = 1ST OPERAND TO ADT.                                     PAR      3344
                                        *         (X5) = 2ND OPERAND TO ADT.                                     PAR      3345
                                                                                                                 PAR      3346
          1755  6273777765               ADT36    SB7    X3-O.=                                                  PAR      3347
                          10655                   BX6    X5                                                      PAR      3348
          1756  0470001762 +                      ZR     B7,ADT40    IF ADDING *=* TURPLE                        PAR      3349
                          5130000000 +            SA3    SMOD                                                    PAR      3350
          1757  5110000000 X                      SA1    ATTR        ATTRITBUTE CELL                             PAR      3351
                                                                                                                 PAR      3352
                                        **        SET-UP INTERMEDIATE FOR *ESTACK*                               PAR      3353
                                        *         (X3) = SMOD                                                    PAR      3354
                                                                                                                 PAR      3355
                          5120000000 X            SA2    TT=PAR                                                  PAR      3356
          1760  7100001000                        SX0    M.INTR                                                  PAR      3357
                          36113                   IX1    X1+X3       ADD ATTRITBUTE + RESULTANT MODE             PAR      3358
                               20252              LX2    P.TAG                                                   PAR      3359
          1761  73710                             SX7    X1                                                      PAR      3360
                     12302                        BX3    X0+X2       INTERMEDIATE TAG                            PAR      3361
                          36637                   IX6    X3+X7       ADD IN ATTRIBUTE+MODE                       PAR      3362
          1762  5110000000 X             ADT40    SA1    TT.PAR                                                  PAR      3363
                          5166777775              SA6    B6-2        INTERMEDIATE OPERAND TO ELEMENT STACK.      PAR      3364
                                                                                                                 PAR      3365
                                        **        REFORM                                                         PAR      3366
                                        *         SET RESULTANT MODE IN OPERATOR WORD THE SAME AS THE            PAR      3367
                                        *         INTERMEDIATE JUST PUT INTO ELEMENT STACK FOR RESULTS OF THIS   PAR      3368
                                        *         TURPLE                                                         PAR      3369
                                        *         ALLOCATE ROOM FOR CURRENT TURPLE                               PAR      3370
                                        *         SET TURPLE INTO PARSED FILE.                                   PAR      3371
                                                                                                                 PAR      3372
          1763  7100000003                        ALLOC  A1,L.TURP                                               PAR      3373
          1764  5110000000 +                      SA1    SMOD                                                    PAR      3374
                          10755                   BX7    X5                                                      PAR      3375
          1765  5130000002 +                      SA3    SOPR                                                    PAR      3376
                          73110                   SX1    X1                                                      PAR      3377
                               57771              =A7    B7-1        2ND OPERAND TO FILE.                        PAR      3378
          1766  20133                             LX1    P.DMOD                                                  PAR      3379
                     12613                        BX6    X1+X3                                                   PAR      3380
                          22704                   LX7    X4                                                      PAR      3381
                               67661              =B6    B6-1        RESET OPERAND STACK                         PAR      3382
          1767  55771                             =A7    A7-1        1ST OPERAND TO STACK.                       PAR      3383
                     55671                        =A6    A7-1        OPERATOR TO STACK.                          PAR      3384
                          0400001742 +            EQ     ADTX        EXIT..                                      PAR      3385
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    75
                                                                      CIL 
  
                                        **        CIL -  CHECK IF ILLEGAL USE OF LEVEL 3 NAME                    PAR      3387
                                        *                                                                        PAR      3388
                                        *         ENTRY  (X3) = TAG SHIFTED TO PUT *ARY* BIT IN SIGN POSITION    PAR      3389
                                        *                                                                        PAR      3390
                                        *         EXIT   DIAGNOSTIC OUTPUT FOR ILLEGAL USAGE                     PAR      3391
                                        *                                                                        PAR      3392
                                        *         USES   A1  X2,X3  B3                                           PAR      3393
                                                                                                                 PAR      3394
                                                                                                                 PAR      3395
          1770  0400401770 +             CIL      SUBR   0                                                       PAR      3396
          1771  20301                             IFBIT  X3,-LEV/ARY,CILX  IF NOT LEVEL NAME, EXIT..             PAR      3397
                               20337              LX3    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER            PAR      3398
          1772  43272                             MX2    -L.LEVN                                                 PAR      3399
                     15232                        BX2    -X2*X3      (X2) = LEVEL NUMBER                         PAR      3400
                          7222777774              SX2    X2-3                                                    PAR      3401
          1773  0312001770 +                      NZ     X2,CILX     IF NOT LEVEL 3, EXIT..                      PAR      3402
                                                                                                                 PAR      3403
                                        *         HERE IF LEVEL 3 TAG                                            PAR      3404
                                                                                                                 PAR      3405
                          5130000000 X            SA3    ARGMODE                                                 PAR      3406
          1774  6233776607 -                      SB3    X3-A=CALL                                               PAR      3407
                          0430001770 +            ZR     B3,CILX     IF IN CALL PROCESSING, EXIT..               PAR      3408
          1775  6233776570 -                      SB3    X3-A=FUN                                                PAR      3409
                          0430001770 +            ZR     B3,CILX     IF IN EXTERNAL FUNCTION PROCESSING, EXIT..  PAR      3410
          1776  6233776652 -                      SB3    X3-A=BIF                                                PAR      3411
                          0530002002 +            NZ     B3,CIL2     IF NOT IN INTRINSIC PROCESSING              PAR      3412
                                                                                                                 PAR      3413
                                        *         HERE IF IN INTRINSIC PROCESSING.                               PAR      3414
                                        *         PERMIT LEVEL 3 IN *LOCF* ONLY.                                 PAR      3415
                                                                                                                 PAR      3416
          1777  5114777775                        SA1    B4-2        GET FUNCTION NAME                           PAR      3417
                          43352                   MX3    L.SYM                                                   PAR      3418
                               11231              BX2    X3*X1       (X2) = SYMBOL ONLY                          PAR      3419
          2000  5110002004 +                      SA1    CILA                                                    PAR      3420
                          13321                   BX3    X2-X1                                                   PAR      3421
          2001  0303001770 +                      ZR     X3,CILX     IF PROCESSING *LOCF*                        PAR      3422
                                                                                                                 PAR      3423
                                        *         HERE IF ILLEGAL USE OF LEVEL 3                                 PAR      3424
                                                                                                                 PAR      3425
          2002  6170000000 X             CIL2     FATAL  =XE.LV11                                                PAR      3426
          2003  0400001770 +                      EQ     CILX        EXIT..                                      PAR      3427
                                                                                                                 PAR      3428
          2004  14170306000000000000     CILA     DATA   0LLOCF                                                  PAR      3429
  
  
  
  
                                        **        COR -  CHECK IF OPERAND IS INPUT TO REDUCABLE OPERATOR.        FEAT126C  161
                                        *                                                                        PAR      3432
                                        *         ENTRY  (X1) = INPUT OPERAND (INTERMEDIATE)                     PAR      3433
                                        *                                                                        PAR      3434
                                        *         EXIT   (X0) = 0, OPERAND IS INPUT.                             PAR      3435
                                        *                (X7) = (TT=PAR) - L.TURP                                PAR      3436
                                        *                (A1) = LASTAD                                           PAR      3437
                                        *                (A2) _ TT=PAR                                           PAR      3438
                                        *                                                                        PAR      3439
                                        *         USES   A1,A2  X0                                               PAR      3440
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    76
                                                                      COR 
  
                                                                                                                 PAR      3441
          2005  0400402005 +             COR      SUBR               ENTRY/EXIT...                               PAR      3442
          2006  10011                             BX0    X1                                                      PAR      3443
                     20062                        IFBIT  X0,-INTR,EXIT.    IF NOT INTERMEDIATE                   PAR      3444
          2007  5120000000 X                      SA2    TT=PAR                                                  PAR      3445
                          21152                   AX1    P.JPAD                                                  PAR      3446
          2010  7272777774                        SX7    X2-L.TURP                                               PAR      3447
                          37017                   IX0    X1-X7                                                   PAR      3448
          2011  5110000000 X                      SA1    LASTAD                                                  PAR      3449
                          0400002005 +            EQ     EXIT.                                                   PAR      3450
  
  
  
  
                                        **        CT2 -  CONVERT TAG TO PASS *2* FORM                            PAR      3452
                                        *                                                                        PAR      3453
                                        *         ENTRY  (X1) = SYMBOL TABLE TAG ENTRY                           PAR      3454
                                        *                                                                        PAR      3455
                                        *         EXIT   (X6) = PASS *2* FORM OF TAG                             PAR      3456
                                        *                                                                        PAR      3457
                                        *         USES   X0,X1,X2,X3,X6                                          PAR      3458
                                                                                                                 PAR      3459
                                                                                                                 PAR      3460
          2012  0400402012 +             CT2      SUBR               ENTRY/EXIT...                               PAR      3461
          2013  7100002000                        =X0    M.EQUIV                                                 PAR      3462
                          5130002230 +            SA3    PAS2MF                                                  PAR      3463
          2014  11001                             BX0    X0*X1                                                   PAR      3464
                     22201                        LX2    X1                                                      PAR      3465
                          11631                   BX6    X3*X1                                                   PAR      3466
                               20003              LX0    P.2EQUIV-P.EQUIV                                        PAR      3467
          2015  12660                             BX6    X6+X0                                                   PAR      3468
                     20267                        IFBIT  X2,-FP,EXIT.      IF NOT *FP*                           PAR      3469
                                                                                                                 PAR      3470
          2016  43066                             MX0    -L.FPNO                                                 PAR      3471
                     20257                        SBIT   X2,FPNO/FP+1                                            PAR      3472
                          15220                   BX2    -X0*X2      EXTRACT SYMBOL TABLE *FP* FIELD             PAR      3473
                               20222              LX2    P.2FPNO                                                 PAR      3474
          2017  12662                             BX6    X6+X2       ADD IN *FP* FIELD                           PAR      3475
                     0400002012 +                 EQ     EXIT.                                                   PAR      3476
                                                                                                                 PAR      3477
                                         PAS2MF   SYMASK (TAG,MODE)                                              PAR      3478
  
  
  
  
                                        **        FAL - FLUSH ARGUMENT LOAD TURPLES ACCUMULATED IN TT.SCR.       PAR      3480
                                        *                                                                        PAR      3481
                                        *         ENTRY  (ARGCOMA) = 6/0,18/TT=SCR,18/ACM,18/0                   PAR      3482
                                        *                            TT=SCR = TT.SCR LENGTH AT *(*.              PAR      3483
                                        *                (TT=SCR) = CURRENT LENGTH OF TT.SCR.                    PAR      3484
                                        *                                                                        PAR      3485
                                        *         EXIT   (TT=SCR) = COLLAPSED TO SIZE AT *(*.                    PAR      3486
                                        *                *TURPLES* MOVED TO PARSED TABLE.                        PAR      3487
                                        *                                                                        PAR      3488
                                        *         USES   A1,A2,A6 X3,X4                                          PAR      3489
                                        *                                                                        PAR      3490
                                        *         CALLS  ALC, MVE.                                               FEAT126C  162
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    77
                                                                      FAL 
  
                                                                                                                 PAR      3492
                                                                                                                 PAR      3493
          2020  0400402020 +             FAL      SUBR               ENTRY/EXIT...                               PAR      3494
          2021  5110000001 X                      SA1    SCR+1                                                   PAR      3495
                          5120000000 X            SA2    TT=SCR                                                  PAR      3496
          2022  21144                             AX1    36                                                      PAR      3497
                     37421                        IX4    X2-X1       WC                                          PAR      3498
                          0304002020 +            ZR     X4,EXIT.    IF NO TURPLES TO MOVE                       PAR      3499
          2023  5110000000 X                      ALLOC  TT.PAR,X4                                               PAR      3500
          2025  5110000001 X                      SA1    SCR+1                                                   PAR      3501
                          5120000000 X            SA2    TT.SCR                                                  PAR      3502
          2026  21144                             AX1    36                                                      PAR      3503
                     76370                        SX3    B7                                                      PAR      3504
                          36212                   IX2    X1+X2       SOURCE ADDRESS                              PAR      3505
                               37334              IX3    X3-X4       DESTINATION ADDRESS                         PAR      3506
          2027  10611                             SHRINK TT=SCR,X1   COLLAPSE SCRATCH TABLE                      PAR      3507
                               10144              MVE    X4,X2,X3    MOVE *TURPLES* TO PARSED TABLE              PAR      3508
          2031  0400002020 +                      EQ     EXIT.                                                   PAR      3509
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    78
                                                                      SDM 
  
                                        **        SDM -  SET DOMINANT MODE                                       PAR      3511
                                        *                                                                        PAR      3512
                                        *         ENTRY  (X3) = OPERATOR.                                        PAR      3513
                                        *                (X4) = 1ST OPERAND                                      PAR      3514
                                        *                (X5) = 2ND OPERAND                                      PAR      3515
                                        *                                                                        PAR      3516
                                        *         EXIT   *SDM* SETS UP THE FOLLOWING CELLS/FIELDS.               PAR      3517
                                        *                1. *DMOD* FIELD IN OPERATOR.                            PAR      3518
                                        *                2. *MODC* FIELD IN OPERATOR.                            PAR      3519
                                        *                3. *SMOD* CELL.                                         PAR      3520
                                        *                                                                        PAR      3521
                                        *         *SMOD* = 24/0,18/POINT,18/MODE.                                PAR      3522
                                        *                POINT = 0 IF BOTH OPERANDS ARE OF THE SAME MODE.        PAR      3523
                                        *                      = 1 IF 1ST  OPERAND IS DOMINANT MODE.             PAR      3524
                                        *                      = 2 IF 2ND  OPERAND IS DOMINANT MODE.             PAR      3525
                                        *                                                                        PAR      3526
                                        *         *SMOD1* = MODTBL ENTRY (IF CONVERSION NECESSARY)               FEAT126C  163
                                                                                                                 FEAT126C  164
                                        *         SUBFIELD *MODC* =0                                             PAR      3527
                                        *                                                                        PAR      3528
                                        *         (X3) = (X6) = (SOPR)= UPDATED OPERATOR.                        PAR      3529
                                        *                                                                        PAR      3530
                                        *         USES   A1,A2,A3  X0,X7  B2,B3,B7                               PAR      3531
                                                                                                                 PAR      3532
                                                                                                                 PAR      3533
          2032  5160000002 +             SDMXA    SA6    SOPR        RESET OPERATOR WITH SKELETON MODE OFFSET    PAR      3534
                          46000                   NO                                                             PAR      3535
                               10366              BX3    X6                                                      PAR      3536
                                                                                                                 PAR      3537
          2033  0400402033 +             SDM      SUBR               ENTRY/EXIT...                               PAR      3538
          2034  22003                             LX0    X3                                                      PAR      3539
                     20031                        IFBIT  X0,-MODLS,SDM3                                          PAR      3540
                                                                                                                 PAR      3541
                                        **        HERE IF OPERATOR IS MODELESS.                                  PAR      3542
                                                                                                                 PAR      3543
          2035  43071                             MX0    -L.MODE                                                 PAR      3544
                     15640                        BX6    -X0*X4      MODE BITS FROM 1ST OPERAND                  PAR      3545
                          43115                   MX1    L.MODC+L.DMOD                                           PAR      3546
          2036  5160000000 +                      SA6    SMOD                                                    PAR      3547
                          20133                   LX1    P.MODC+L.MODC                                           PAR      3548
                               15631              BX6    -X1*X3      ZERO TO DMOD AND MODC FIELDS.               PAR      3549
          2037  0400002032 +                      EQ     SDMXA       EXIT..                                      PAR      3550
                                                                                                                 PAR      3551
                                        **        FIND DOMINANT MODE.                                            PAR      3552
                                                                                                                 PAR      3553
          2040  66300                    SDM3     SB3    B0                                                      PAR      3554
                     43071                        MX0    -L.MODE                                                 PAR      3555
                          6273777745              SB7    X3-O.SLP                                                PAR      3556
          2041  15140                             BX1    -X0*X4      1ST OPERAND MODE BITS.                      PAR      3557
                     6223777765                   SB2    X3-O.=                                                  PAR      3558
          2042  0570002045 +                      NZ     B7,SDM5     IF NOT SPECIAL OPERATOR                     PAR      3559
                          10611                   BX6    X1                                                      PAR      3560
                               43015              MX0    L.MODC+L.DMOD                                           PAR      3561
          2043  5160000000 +                      SA6    SMOD                                                    PAR      3562
                          20033                   LX0    P.MODC+L.MODC                                           PAR      3563
                               15630              BX6    -X0*X3                                                  PAR      3564
          2044  0400002032 +                      EQ     SDMXA       EXIT..                                      PAR      3565
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    79
                                                                      SDM 
  
                                                                                                                 PAR      3566
          2045  22701                    SDM5     LX7    X1                                                      PAR      3567
                     15250                        BX2    -X0*X5      2ND OPERAND MODE BITS.                      PAR      3568
                          22602                   LX6    X2                                                      PAR      3569
                               37312              IX3    X1-X2                                                   PAR      3570
          2046  0303002051 +                      ZR     X3,SDM10    IF 1ST = 2ND                                PAR      3571
                          66311                   =B3    2                                                       PAR      3572
          2047  0333002051 +                      MI     X3,SDM10    IF 2ND = DOMINANT MODE.                     PAR      3573
                          0420002051 +            ZR     B2,SDM10    IF OPERATOR IS *=*                          PAR      3574
          2050  10722                             BX7    X2                                                      PAR      3575
                     66310                        =B3    1                                                       PAR      3576
                          22601                   LX6    X1          1ST    = DOMINANT MODE.                     PAR      3577
                                                                                                                 PAR      3578
                                        **        HERE WITH                                                      PAR      3579
                                        *         (B3) = POINTER                                                 PAR      3580
                                        *              = 0 = NO MODE CONVERSION.                                 PAR      3581
                                        *              = 1 = 1ST IS DOMINANT MODE.                               PAR      3582
                                        *              = 2 = 2ND IS DOMINANT MODE.                               PAR      3583
                                        *         (X6) = DOMINANT MODE. (WHICH IS ASSUMED TO BE THE RESULTANT    PAR      3584
                                        *                                MODE OF THE OPERATION.)                 PAR      3585
                                        *         (X6) = DOMINANT MODE.                                          PAR      3586
                                        *         (X7) = MODE OF OPERAND TO BE CONVERTED.                        PAR      3587
                                                                                                                 PAR      3588
          2051  76130                    SDM10    SX1    B3                                                      PAR      3589
                     5227000000 X                 SA2    X7+MODTBL   RELATIVE TO MODE TO BE CONVERTED            FCC0519     5
                               73760              SX7    X6                                                      FCC0519     6
          2052  20122                             LX1    18          POINTER FOR *SMOD*                          PAR      3596
                     20703                        LX7    3           8*DOMINANT MODE.                            PAR      3597
                          36616                   IX6    X1+X6       ADD IN DOMINANT MODE FOR *SMOD*             PAR      3598
                               63270              SB2    X7          SHIFT COUNT FOR DOMINANT MODE.              PAR      3599
          2053  43064                             MX0    -8          LENGTH OF EACH ENTRY IN MCTBL.              PAR      3600
                     23122                        AX1    B2,X2                                                   PAR      3601
                          5130000002 +            SA3    SOPR                                                    PAR      3602
          2054  15210                             BX2    -X0*X1      ONLY 8 BITS FOR EACH MODE.                  PAR      3603
                     5213000000 X                 SA1    X3+=XCHARMAP                                            FCC0519     7
          2055  6170000000 X                      SB7    =XDUC.BTH                                               FCC0519     8
                          67707                   SB7    -B7                                                     FCC0519     9
                               63717              SB7    B7+X1                                                   FCC0519    10
          2056  0470002057 +                      ZR     B7,SDM11    IF NOT UNARY OPERATOR                       FCC0519    11
                          76200                   =X2    0                                                       FCC0519    12
          2057  22702                    SDM11    LX7    X2                                                      FCC0519    13
                     0312002060 +                 NZ     X2,SDM12    IF MODE CONVERSION NECESSARY                PAR      3605
                               73660              SX6    X6          INDICATE NO MODE CONVERSION                 PAR      3606
          2060  5170000001 +             SDM12    SA7    SMOD1                                                   PAR      3607
                          55671                   =A6    A7-SMOD1+SMOD                                           PAR      3608
                               43763              MX7    -L.MODC                                                 PAR      3609
          2061  6272777400                        SB7    X2-377B                                                 PAR      3610
                          20722                   LX7    P.MODC                                                  PAR      3611
          2062  0570002065 +                      NZ     B7,SDM31    IF NO MODE CONVERSION ERROR                 PAR      3612
                                                                                                                 PAR      3613
                                        **        HERE IF MODE CONVERSION IS ILLEGAL                             PAR      3614
                                                                                                                 PAR      3615
                          6170000000 X            FATAL  E.AT1       LOGICAL AND NON LOGICAL OPERANDS MIXED      PAR      3616
          2064  5130000002 +                      SA3    SOPR                                                    PAR      3617
                          0400002072 +            EQ     SDM32                                                   PAR      3618
                                                                                                                 PAR      3619
                                        *         (B2) = SHIFT COUNT FOR DOMINANT MODE.                          PAR      3620
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    80
                                                                      SDM 
  
                                                                                                                 PAR      3621
          2065  11673                    SDM31    BX6    X7*X3       ZERO MODC FIELD IN OPERATOR                 PAR      3622
                     21352                        AX3    P.JPAD                                                  PAR      3623
                          20222                   LX2    P.MODC                                                  PAR      3624
                               53130              SA1    X3          DOMINANT MODE TABLE FOR OPERATION.          PAR      3625
          2066  23321                             AX3    B2,X1                                                   PAR      3626
                                                                                                                 PAR      3627
                                        **        RESET OPERATOR JUMP OR LOAD ADDRESS RELATIVE TO DOMINANT MODE. PAR      3628
                                                                                                                 PAR      3629
                     15030                        BX0    -X0*X3                                                  PAR      3630
                          6270777400              SB7    X0-377B                                                 PAR      3631
          2067  20052                             LX0    P.JPAD                                                  PAR      3632
                     36660                        IX6    X6+X0       SET OPERATOR RELATIVE TO DOMINANT MODE.     PAR      3633
                          0770002032 +            MI     B7,SDMXA    IF OPERATION DEFINED FOR THIS MODE          FCC0519    14
          2070  6170000000 X                      FATAL  E.AT1A                                                  FCC1046    28
          2071  5130000002 +                      SA3    SOPR                                                    PAR      3637
          2072  43052                    SDM32    MX0    60-18       ON ERROR,CLEAR MODE                         PAR      3638
                     5110000000 +                 SA1    SMOD        CONVERSION FLAG FROM SMOD                   PAR      3639
                               15710              BX7    -X0*X1                                                  PAR      3640
          2073  54710                             SA7    A1                                                      FCC1046    29
                     76010                        =X0    1                                                       FCC1046    30
                          20042                   LX0    P.MODLS                                                 FCC1046    31
                               12603              BX6    X0+X3       RESET OPERATOR MODELESS IF ERROR            FCC1046    32
          2074  5160000004 +                      SA6    SOPR1                                                   FCC1046    33
                          0400002033 +            EQ     EXIT.       (ERROR)                                     PAR      3642
  
  
  
  
                                        **        OMC - OUTPUT MODE CONVERSION TURPLE                            PAR      3644
                                        *                                                                        PAR      3645
                                        *         ENTRY  (X3) = OPERATOR                                         PAR      3646
                                        *                (X4) = 1ST OPERAND                                      PAR      3647
                                        *                (X5) = 2ND OPERAND                                      PAR      3648
                                        *                (SMOD) = 24/0,18/DOMINANT OPERAND,18/DOMINANT MODE      PAR      3649
                                        *                (SMOD1) = OFFSET TO MODECON                             PAR      3650
                                        *                                                                        PAR      3651
                                        *         EXIT   (X3) = PRESERVED                                        PAR      3652
                                        *                (X4) = MODE CONVERSION INTERMEDIATE IF DOMINANT MODE    PAR      3653
                                        *                            OPERAND =2, OTHERWISE PRESERVED             PAR      3654
                                        *                (X5) = MODE CONVERSION INTERMEDIATE IF DOMINANT MODE    PAR      3655
                                        *                            OPERAND=1, OTHERWISE PRESERVED              PAR      3656
                                        *                (SMOD) = 42/0, 18/DOMINANT MODE                         PAR      3657
                                        *                                                                        PAR      3658
                                        *         USES   CANNOT DESTROY B4,B5,B6 X3,X4,X5                        PAR      3659
                                        *                X4,X5 MAY BE REPLACED BY MODE CONV. INTERMEDIATE        PAR      3660
                                        *                                                                        PAR      3661
                                        *                                                                        PAR      3662
                                        *         GENERAL SMOD(18-35)   = 0  EXIT. (NO CONVERSION)               PAR      3663
                                        *                               = 1  CONVERT ARG IN X5 TO DOMINANT MODE  PAR      3664
                                        *                               = 2  CONVERT ARG IN X4 TO DOMINANT MODE  PAR      3665
                                        *         DOMINANT MODE IS IN SMOD(0-17)                                 PAR      3666
                                        *                                                                        PAR      3667
                                        *                SMOD1 = OFFSET TO MODECON FOR CORRECT SKELETON          PAR      3668
                                        *                            ADDRESS, CALCULATED BY *SDM*.               PAR      3669
                                        *                                                                        PAR      3670
                                        *                                                                        PAR      3671
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    81
                                                                      OMC 
  
          2075  0400402075 +             OMC      SUBR               ENTRY/EXIT...                               PAR      3672
          2076  5120000000 +                      SA2    SMOD                                                    FCC1638X   25
                          73720                   SX7    X2          (X7) MODE OF DOMINANT OPERAND               FCC1638X   26
          2077  6232777773                        =B3    X2-M.DBL                                                FCC1638X   27
                          10633                   BX6    X3                                                      PAR      3674
                               21222              AX2    18          X2 = ARG. NUMBER OF DOMINANT MODE           FCC1638X   28
          2100  5160002146 +                      SA6    OMCA        SAVE *X3*                                   PAR      3676
                          6273777765              SB7    X3-O.=                                                  FCC1638X   29
          2101  43071                             MX0    -L.MODE                                                 FCC1638X   30
                     15640                        BX6    -X0*X4      (X6) = MODE OF OPERAND TO BE CONVERTED      FCC1638X   31
                                        *                            IF OPERATOR IS *=*                          FCC1638X   32
                          7110005554              SX1    2R =                                                    FCC1638X   33
          2102  20160                             LX1    8*CHAR                                                  FCC1638X   34
                     0302002106 +                 ZR     X2,OMC03    IF NO MODE CONVERSION REQUIRED              FCC1638X   35
          2103  0570002111 +                      NZ     B7,OMC05    IF NOT *=* OPERATOR                         FCC1638X   36
                          6227777772              SB2    X7-M.CPLX                                               FCC1638X   37
          2104  0420002120 +                      ZR     B2,OMC08    IF DOMINANT MODE COMPLEX                    FCC1638X   38
                          6226777772              SB2    X6-M.CPLX                                               FCC1638X   39
          2105  0420002120 +                      ZR     B2,OMC08    IF OPERAND TO BE CONVERTED COMPLEX          FCC1638X   40
                          0400002123 +            EQ     OMC10                                                   FCC1638X   41
                                                                                                                 FCC1638X   42
          2106  0570002075 +             OMC03    NZ     B7,EXIT.    IF NOT *=* OPERATOR                         FCC1638X   43
                          6227777774              SB2    X7-M.REAL                                               FCC1638X   44
          2107  0520002075 +                      NZ     B2,EXIT.    IF DOMINANT MODE NOT REAL                   FCC1638X   45
                          6226777772              SB2    X6-M.CPLX                                               FCC1638X   46
          2110  0420002120 +                      ZR     B2,OMC08    IF OPERAND TO BE CONVERTED COMPLEX          FCC1638X   47
                          0400002075 +            EQ     EXIT.                                                   FCC1638X   48
                                                                                                                 FCC1638X   49
          2111  6222777776               OMC05    =B2    X2-1                                                    FCC1638X   50
                          10155                   BX1    X5                                                      FCC1638X   51
          2112  0420002113 +                      ZR     B2,OMC07    IF OPERAND IS IN X5                         FCC1638X   52
                          10144                   BX1    X4          OPERAND IS IN X4                            FCC1638X   53
          2113  6273777767               OMC07    SB7    X3-O.LP                                                 FCC1638X   54
                          0670002123 +            PL     B7,OMC10    IF OPERATOR GREATER THEN O.DIV              FCC1638X   55
          2114  6273777773                        SB7    X3-O.PL                                                 FCC1638X   56
                          0770002123 +            MI     B7,OMC10    IF OPERATOR LESS THEN O.PL                  FCC1638X   57
          2115  15610                             BX6    -X0*X1      (X6) MODE OF OPERAND TO BE CONVERTED        FCC1638X   58
                     5216000000 X                 SA1    X6+MODTBL   RELATIVE TO MODE TO BE CONVERTED            FCC1638X   59
                               63270              SB2    X7          SHIFT COUNT FOR DOMINANT MODE               FCC1638X   60
          2116  22621                             LX6    B2,X1                                                   FCC1638X   61
                     0326002123 +                 PL     X6,OMC10    IF NO ANSI ERROR                            FCC1638X   62
          2117  7213005541                        SX1    X3+2R +-O.PL EXPECTS O.PL=4,O.MIN=5,O.MULT=6,O.DIV=7    FCC1638X   63
                          20160                   LX1    8*CHAR                                                  FCC1638X   64
          2120  10611                    OMC08    BX6    X1                                                      FCC1638X   65
                     5160000000 X                 SA6    FILL.                                                   FCC1638X   66
          2121  6170000000 X                      ANSI   E.ANS3      THE TYPE COMBINATION OF THE OPERANDS        FCC1638X   67
                                        *                            IS NON-ANSI                                 FCC1638X   68
          2122  0302002075 +                      ZR     X2,EXIT.    IF NO MODE CONVERSION REQUIRED              FCC1638X   69
                                                                                                                 FCC0539    15
                                        *         CHECK IF OPERAND TO CONVERT IS INTEGER CONSTANT.               FCC0539    16
                                        *         IF IT IS - THEN LET CONRED DO IT.                              FCC0539    17
                                                                                                                 FCC0539    18
          2123  0430002126 +             OMC10    ZR     B3,OMC2     IF DOMINANT MODE DOUBLE                     FCC1638X   70
                          6272777775              SB7    X2-M.INT                                                FCC1638X   71
          2124  21267                             AX2    P.TGB                                                   FCC0539    26
                     6222777761                   SB2    X2-C.CON/1S13                                           FCC0539    27
                               46000              NO                                                             FCC0539    28
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    82
                                                                      OMC 
  
          2125  66727                             SB7    B2+B7                                                   FCC0539    29
                     46000                        NO                                                             FCC0539    30
                          0470002075 +            ZR     B7,EXIT.    IF OPERAND IS INTEGER CONSTANT              FCC0539    31
                                                                                                                 FCC0539    32
          2126  10755                    OMC2     BX7    X5                                                      FCC0539    33
                     22604                        LX6    X4                                                      PAR      3679
                          5170002147 +            SA7    OMCA+1      SAVE *X5*                                   FCC1638X   72
          2127  13444                             BX4    0           DUMMY ARG FOR MODE CONVERSION               PAR      3681
                     7170000000 X                 SX7    MODECON     BASE ADDRESS OF CONVERSION SKELETONS        PAR      3682
          2130  5120000001 +                      SA2    SMOD1       CONVERSION OFFSET TO MODECON                PAR      3683
                          7130000065              =X3    O.MODC      MODE CONVERSION OPERATOR                    PAR      3684
          2131  36527                             IX5    X2+X7       SKELETON ADDRESS FOR MODE CONVERSION        PAR      3685
                     54671                        =A6    A7+1        SAVE *X4*                                   PAR      3686
                          5110000000 +            SA1    SMOD        DOMINANT MODE                               FCC1638X   73
          2132  21122                             AX1    18          X1 = ARG. NUMBER OF DOMINANT MODE           FCC1638X   74
                     20552                        LX5    P.JPAD                                                  PAR      3687
                          36653                   IX6    X5+X3       FULL MODE CONVERSION OPERATOR.              PAR      3688
          2133  5251002146 +                      SA5    X1+OMCA     OPERAND TO CONVERT                          PAR      3689
                          5221002143 +            SA2    X1+OMC.RC                                               PAR      3690
          2134  10366                             BX3    X6                                                      PAR      3691
                     10722                        BX7    X2                                                      PAR      3692
                          5160000002 +            SA6    SOPR        SET SOPR WITH CURRENT OPERATOR              PAR      3693
          2135  5170002142 +                      SA7    OMC.RR      SET UP RESTORE WORD                         PAR      3694
                          66661                   =B6    B6+1        DUMMY FOR *ADT* RESET USE TO TT.PAR         PAR      3695
          2136  0100001742 +                      RJ     ADT         PUT OUT CONVERSION TURPLE TO TT.PAR         PAR      3696
          2137  5120000000 +                      SA2    SMOD        CLEAR DOMINANT OPERAND                      FCC0539    34
                          43452                   MX4    60-18                                                   FCC0539    35
          2140  5130002146 +                      SA3    OMCA        RESTORE *X3*                                PAR      3698
                          20422                   LX4    18                                                      FCC0539    36
                               10633              BX6    X3                                                      PAR      3700
          2141  11742                             BX7    X4*X2                                                   FCC0539    37
                     5160000002 +                 SA6    SOPR        RESET OPERATOR                              PAR      3702
                               54720              SA7    A2                                                      FCC0539    38
                                                                                                                 PAR      3703
          2142                     1     OMC.RR   BSS    1           ** FILLED **                                PAR      3704
          2143  0400002075 +                      EQ     EXIT.                                                   PAR      3705
                                                                                                                 PAR      3706
                                        **        SKELETON RESTORE REGISTER WORDS.                               PAR      3707
                                                                                                                 PAR      3708
          2144  5140002150 +             OMC.X5   =A4    OMCA+2      RESTORE *X4*                                PAR      3709
                          5156777776              SA5    B6-1        RESET *X5* TO CONVERSION INTERMEDIATE       PAR      3710
          2145  5146777776               OMC.X4   SA4    B6-1        RESET *X4* TO CONVERSION INTERMEDIATE       PAR      3711
                          5150002147 +            =A5    OMCA+1      RESTORE *X5*                                PAR      3712
                                                                                                                 PAR      3713
                                2143 +   OMC.RC   EQU    OMC.X5-1                                                PAR      3714
                                                                                                                 PAR      3715
          2146                     3     OMCA     BSS    3                                                       PAR      3716
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    83
                                                                      SMM 
  
                                        **        SMM -  SET MODE OF MASKING/LOGICAL OPERATOR                    PAR      3718
                                        *                .AND. - .OR. - .NOT.                                    PAR      3719
                                        *                                                                        PAR      3720
                                        *         ENTRY  (X3) = OPERATOR                                         PAR      3721
                                        *                (X4) = 1ST OPERAND                                      PAR      3722
                                        *                (X5) = 2ND OPERAND                                      PAR      3723
                                        *                                                                        PAR      3724
                                        *         EXIT   (SMOD) = RESULTANT MODE OF OPERATION                    PAR      3725
                                        *                (X3)   = (SOPR) = MODC, MODM BITS SET.                  PAR      3726
                                        *                (X4)   = PRESERVED.                                     PAR      3727
                                        *                (X5)   = PRESERVED.                                     PAR      3728
                                        *                                                                        PAR      3729
                                        *         GENERAL -                                                      PAR      3730
                                        *                IF 1OP AND 2OP = LOGICAL                                PAR      3731
                                        *                            OPERATION PERFORMED AS MODELESS, RESULTANT  PAR      3732
                                        *                            MODE SET TO LOGICAL.                        PAR      3733
                                        *                                                                        PAR      3734
                                        *                IF ONLY ONE OPERAND IS LOGICAL                          PAR      3735
                                        *                            ILLEGAL USE OF LOGICAL OPERAND.             PAR      3736
                                        *                                                                        PAR      3737
                                        *                IF 1OP AND 2OP " LOGICAL                                FEAT126C  166
                                        *                            OPERATION PERFORMED AS MODELESS, RESULTANT  PAR      3739
                                        *                            MODE SET TO MODELESS.                       PAR      3740
                                                                                                                 PAR      3741
                                                                                                                 PAR      3742
          2151  0400402151 +             SMM      SUBR               ENTRY/EXIT...                               PAR      3743
          2152  13045                             BX0    X4-X5                                                   PAR      3744
                     43271                        MX2    -L.MODE                                                 PAR      3745
                          15102                   BX1    -X2*X0                                                  PAR      3746
                               76700              =X7    M.UNIV                                                  PAR      3747
          2153  15642                             BX6    -X2*X4                                                  PAR      3748
                     0301002161 +                 ZR     X1,SMM5     IF NOT MIXED MODE                           PAR      3749
                                                                                                                 PAR      3750
                                        **        MIXED MODE - CHECK IF ILLEGAL USE OF LOGICALS.                 PAR      3751
                                                                                                                 PAR      3752
                               15152              BX1    -X2*X5                                                  PAR      3753
          2154  7226777776                        =X2    X6-M.LOG                                                PAR      3754
                          76700                   =X7    M.UNIV                                                  PAR      3755
          2155  7201777776                        =X0    X1-M.LOG                                                PAR      3756
                          0302002157 +            ZR     X2,SMM3     IF 1ST LOGICAL     - ERROR                  PAR      3757
          2156  0310002163 +                      NZ     X0,SMM6     IF 2ND NOT LOGICAL - RESULTS = MODELESS     FCC0498    41
          2157  6170000000 X             SMM3     FATAL  E.AT1       ILLEGAL USE OF LOGICAL OPERAND              PAR      3759
          2160  76710                             =X7    M.LOG                                                   PAR      3760
                     0400002164 +                 EQ     SMM10       CONTINUE                                    PAR      3761
                                                                                                                 PAR      3762
                                        **        MO MIXED MODE, CHECK IF DOMINANT MODE = LOGICAL.               PAR      3763
                                        *         (X6) = MODE BITS FROM 1ST OPERAND                              PAR      3764
                                        *         (X7) = M.UNIV                                                  PAR      3765
                                                                                                                 PAR      3766
          2161  6276777776               SMM5     SB7    X6-M.LOG                                                PAR      3767
                          0570002163 +            NZ     B7,SMM6     IF DOMINANT MODE NOT LOGICAL                FCC0498    42
          2162  10766                             BX7    X6          SET = LOGICAL                               PAR      3769
                     0400002164 +                 EQ     SMM10                                                   FCC0498    43
                                                                                                                 FCC0498    44
          2163  6170000000 X             SMM6     ANSI   =XE.AT7                                                 FCC0498    45
                                                                                                                 FCC0498    46
                                                                                                                 PAR      3770
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    84
                                                                      SMM 
  
                                        **        SET *SMOD* AND OPERATOR WORD WITH CORRECT MODE BITS.           PAR      3771
                                                                                                                 PAR      3772
          2164  43115                    SMM10    MX1    L.MODC+L.DMOD                                           PAR      3773
                     20133                        LX1    P.MODC+L.MODC                                           PAR      3774
                          15631                   BX6    -X1*X3                                                  PAR      3775
          2165  5170000000 +                      SA7    SMOD                                                    PAR      3776
                          5160000002 +            SA6    SOPR                                                    PAR      3777
          2166  10366                             BX3    X6                                                      PAR      3778
                     0400002151 +                 EQ     EXIT.                                                   PAR      3779
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    85
                                                                      SQZ 
  
                                        **        SQZ -  SQUEEZE OPERATION IF POSSIBLE.                          PAR      3781
                                        *                                                                        PAR      3782
                                        *         CHECK TO SEE IF CURRENT TURPLE HAS ALREADY BEEN POPPED.        PAR      3783
                                        *         IF FOUND                                                       PAR      3784
                                        *                SET *ESTACK* ENTRY = TO INTERMEDIATE ORDINAL OF         PAR      3785
                                        *                TURPLE THAT MATCHED AND EXIT SETTING B2 \ 0.            PAR      3786
                                        *                                                                        PAR      3787
                                        *         IF NOT FOUND                                                   PAR      3788
                                        *                SET B2 < 0 AND EXIT.                                    PAR      3789
                                        *                                                                        PAR      3790
                                        *         ENTRY  (X3) = CURRENT OPERATOR.                                PAR      3791
                                        *                (X4) = 1ST OPERAND.                                     PAR      3792
                                        *                (X5) = 2ND OPERAND.                                     PAR      3793
                                        *                                                                        PAR      3794
                                        *         EXIT   (B2) > 0 SQUEEZE PERFORMED.                             PAR      3795
                                        *                                                                        PAR      3796
                                        *         USES   A1,A2,A6  X0,X7  B2,B3,B5,B7                            PAR      3797
                                                                                                                 PAR      3798
                                                                                                                 PAR      3799
          2167  0400402167 +             SQZ      SUBR               ENTRY/EXIT...                               PAR      3800
          2170  5120000000 X                      SA2    BINOUT                                                  PAR      3801
                          5110000000 X            SA1    TT.PAR                                                  PAR      3802
          2171  67201                             =B2    -1          INDICATE NO SQUEEZE PERFORMED               PAR      3803
                     0322002167 +                 PL     X2,EXIT.    IF BINARY SUPPRESS - NO SQUEEZE             PAR      3804
          2172  5120000000 X                      SA2    TT=PAR                                                  PAR      3805
                          36012                   IX0    X1+X2       LWA+1                                       PAR      3806
          2173  5120000003 +                      SA2    CURST                                                   PAR      3807
                          6230777774              =B3    X0-L.TURP   LAST OPERATOR                               PAR      3808
          2174  36012                             IX0    X1+X2                                                   PAR      3809
                     63500                        =B5    X0+OR.OPR   FWA                                         PAR      3810
                                                                                                                 PAR      3811
                                        **        BACKWARD SCAN OF PARSED FILE FOR MATCHING TURPLE.              PAR      3812
                                                                                                                 PAR      3813
          2175  56130                    SQZ5     SA1    B3          LOAD NEXT OPERATOR                          PAR      3814
                     0735002167 +                 LT     B3,B5,EXIT. IF FINISHED                                 PAR      3815
                               13613              BX6    X1-X3                                                   PAR      3816
          2176  6133777774                        =B3    B3-L.TURP                                               PAR      3817
                          10033                   BX0    X3          SAVE OPERATOR                               PAR      3818
          2177  5021000002                        =A2    A1+OR.2OP   2ND OPERAND                                 PAR      3819
                          0306002204 +            ZR     X6,SQZ7     IF OPERATOR THE SAME                        PAR      3820
          2200  6271777765                        SB7    X1-O.=                                                  PAR      3821
                          0570002175 +            NZ     B7,SQZ5     IF NOT TRYING TO PASS BY *=*                PAR      3822
          2201  13025                             BX0    X2-X5                                                   PAR      3823
                     37724                        IX7    X2-X4                                                   PAR      3824
                          46000                   NO                                                             PAR      3825
                               11007              BX0    X0*X7                                                   PAR      3826
          2202  0310002175 +                      NZ     X0,SQZ5     IF NOT RESETTING VALUE OF ONE OF OPERANDS   PAR      3827
                          67201                   =B2    -1                                                      PAR      3828
          2203  0400002167 +                      EQ     EXIT.                                                   PAR      3829
                                                                                                                 PAR      3830
                                        **        OPERATOR IS THE SAME,  CHECK 2ND OPERAND.                      PAR      3831
                                        *         (X0) = OPERATOR.                                               PAR      3832
                                                                                                                 PAR      3833
          2204  37725                    SQZ7     IX7    X2-X5                                                   PAR      3834
                     10611                        BX6    X1          SAVE OPERATOR                               PAR      3835
                          0317002175 +            NZ     X7,SQZ5     IF 2ND OPERAND NOT THE SAME                 PAR      3836
                                                                                                                 PAR      3837
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    86
                                                                      SQZ 
  
                                        **        2ND OPERAND IS A MATCH,  CHECK 1ST OPERAND.                    PAR      3838
                                                                                                                 PAR      3839
          2205  55121                             =A1    A2+OR.1OP-OR.2OP                                        PAR      3840
                     37214                        IX2    X1-X4                                                   PAR      3841
                          6273777765              SB7    X3-O.=                                                  PAR      3842
          2206  0302002214 +                      ZR     X2,SQZ40    IF MATCH, ELIMINATE                         PAR      3843
                          0570002175 +            NZ     B7,SQZ5     IF NOT PROCESSING AN *=* OPERATION.         PAR      3844
          2207  10044                             BX0    X4                                                      PAR      3845
                     20062                        IFBIT  X0,-INTR,SQZ5                                           PAR      3846
          2210  5110000000 X                      SA1    TT.PAR                                                  PAR      3847
                          21040                   AX0    P.TAG-P.INTR-1                                          PAR      3848
                               36010              IX0    X1+X0                                                   PAR      3849
          2211  53100                             SA1    X0                                                      PAR      3850
                     6271777765                   SB7    X1-O.=                                                  PAR      3851
          2212  0570002175 +                      NZ     B7,SQZ5     IF NOT AN *=* INTERMEDIATE.                 PAR      3852
                                                                                                                 PAR      3853
                                        **        ELIMINATE RIGHT OPERAND IN CASES LIKE --                       PAR      3854
                                        *         C=B=C=2.0, WHERE *C* DOES NOT NEED TO BE RESET MORE THAN ONCE. PAR      3855
                                                                                                                 PAR      3856
                          66200                   =B2    0           INDICATE SQUEEZE.                           PAR      3857
                                         TEST     IFNE   TEST                                                    PAR      3858
                                                  RJ     SN.SQZ                                                  PAR      3859
                                         TEST     ENDIF                                                          PAR      3860
                               67661              =B6    B6-1        ELIMINATE OPERANDS.                         PAR      3861
          2213  0400002167 +                      EQ     EXIT.                                                   PAR      3862
                                                                                                                 PAR      3863
                                        **        ELIMINATE TURPLE,  SQUEEZED PERFORMED.                         PAR      3864
                                                                                                                 PAR      3865
          2214  0470002175 +             SQZ40    ZR     B7,SQZ5     IF *=* OPERATOR                             PAR      3866
                          21633                   AX6    P.DMOD                                                  PAR      3867
          2215  5120000000 X                      SA2    ATTR        ATTRIBUTES FOR OPERAND RESULTS              PAR      3868
                          43070                   MX0    -L.DMOD                                                 PAR      3869
          2216  5110000000 X                      SA1    TT.PAR                                                  PAR      3870
                          7130001000              =X3    M.INTR                                                  PAR      3871
          2217  15560                             BX5    -X0*X6      DOMINANT MODE                               PAR      3872
                     36323                        IX3    X2+X3       INTER + ATTRIBUTES                          PAR      3873
                          6221777774              =B2    X1-L.TURP                                               PAR      3874
          2220  77432                             SX4    B3-B2       ORDINAL                                     PAR      3875
                     36635                        IX6    X3+X5       ORDINAL + MODE                              PAR      3876
                          20452                   LX4    P.TAG                                                   PAR      3877
                               46000              NO                                                             PAR      3878
          2221  36646                             IX6    X4+X6       ORDINAL + MODE + INTERMEDIATE BIT.          PAR      3879
                     5166777775                   SA6    B6-2        SQUEEZE OPERATION TO ESTACK.                PAR      3880
                               67661              =B6    B6-1                                                    PAR      3881
                                         TEST     IFNE   TEST                                                    PAR      3882
                                                  RJ     SN.SQZ                                                  PAR      3883
                                         TEST     ENDIF                                                          PAR      3884
          2222  0400002167 +                      EQ     EXIT.                                                   PAR      3885
                                         TEST     IFNE   TEST                                                    PAR      3886
                                         SN.SQZ   SPACE  4,8                                                     PAR      3887
                                        **        SN.SQZ - NOTIFY OF SQUEEZE OPERATION PERFORMED.                PAR      3888
                                        *                                                                        PAR      3889
                                        *         ENTRY  (B3)+L.TURP _ OPERATOR THAT WAS SQUEEZED.               PAR      3890
                                        *                                                                        PAR      3891
                                        *         EXIT   (A1) DESTROYED.                                         PAR      3892
                                        *                                                                        PAR      3893
                                        *         USES   DESTROYS *A1* ONLY...                                   PAR      3894
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    87
                                                                      SQZ 
  
                                                                                                                 PAR      3895
                                                                                                                 PAR      3896
                                         SN.SQZ   SUBR   0                                                       PAR      3897
                                                  SA1    CO.SNAP                                                 PAR      3898
                                                  LX1    1RQ                                                     PAR      3899
                                                  PL     X1,SN.SQZX  IF PARSED SNAPS NOT REQUESTED.              PAR      3900
                                                  RJ     =XSVR                                                   PAR      3901
                                                  SA3    =XSVB+3                                                 PAR      3902
                                                  SA2    TT.PAR                                                  PAR      3903
                                                  IX0    X3-X2                                                   PAR      3904
                                                  SX1    X0+L.TURP                                               PAR      3905
                                                  RJ     COD         CONVERT TO OCTAL                            PAR      3906
                                                  LX6    3*CHAR      4 DIGITS TO HIGH ORDER                      PAR      3907
                                                  MX0    4*CHAR                                                  PAR      3908
                                                  SA1    TT=PAR                                                  PAR      3909
                                                  BX4    X0*X6                                                   PAR      3910
                                                  RJ     COD         CONVERT TO OCTAL                            PAR      3911
                                                  MX0    -6*CHAR                                                 PAR      3912
                                                  LX6    8*CHAR                                                  PAR      3913
                                                  BX5    -X0*X6      EXTRACT LOWER 6 DIGITS                      PAR      3914
                                                  BX6    X5+X4                                                   PAR      3915
                                                  SA6    SQZOPR                                                  PAR      3916
                                                  SA1    SOPR                                                    PAR      3917
                                                  SA2    X1+CHARMAP                                              PAR      3918
                                                  MX0    L.CDPC                                                  PAR      3919
                                                  BX6    X0*X2                                                   PAR      3920
                                                  SA6    SQZBUFC     OPERATOR SQUEEZED.                          PAR      3921
                                                  PLINE  SQZBUF                                                  PAR      3922
                                                  RJ     =XRSR                                                   PAR      3923
                                                  EQ     SN.SQZX     EXIT..                                      PAR      3924
                                                                                                                 PAR      3925
                                        **        SQZ LINE BUFFER.                                               PAR      3926
                                                                                                                 PAR      3927
                                         SQZBUF   DATA   10H                                                     PAR      3928
                                                  DATA   10H OPERATOR                                            PAR      3929
                                                  DIS    1,SQUEEZE AT                                            PAR      3930
                                         SQZOPR   DATA   0                                                       PAR      3931
                                                  DIS    1, OPERATOR                                             PAR      3932
                                         SQZBUFC  DATA   0                                                       PAR      3933
                                         TEST     ENDIF                                                          PAR      3934
  
  
  
  
                                                  LIST   D                                                       PAR      3936
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        E.AT9 
             0 X                        ANSI= 
             0 X                        FEXPR 
             0 X                        E.AT10
             0 X                        PWE 
             0 X                        E.AT8 
             0 X                        TLV 
             0 X                        A=FMT 
             0 X                        E.TE2B
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    88
                                                                      LITERALS
  
             0 X                        E.SU6 
             0 X                        E.VA3 
             0 X                        TP.ILI
             0 X                        ADW 
             0 X                        E.AT6 
             0 X                        TRLINE
             0 X                        O=GOCL
             0 X                        ALC 
             0 X                        E.AT13
             0 X                        E.TY
             0 X                        E.XP5 
             0 X                        O=RAGD1 
             0 X                        O=RAGS1 
             0 X                        E.LV11
             0 X                        MVE 
             0 X                        DUC.BTH 
             0 X                        E.AT7 
  
                                        CONTENT OF LITERALS BLOCK.
  
          2223  14170306000000000000    LOCF
          2224  00137774100000000000     K;@H 
          2225  16232404000000000000    NSTD
          2226  23101106240000000000    SHIFT 
          2227  00002100000000000000      Q 
          2230  77777700000000000007    ;;;      G
  
          2231                                    END                                                            PAR      3937
  
                             57100B CM  STORAGE USED             8479 STATEMENTS     1288 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            6.100 SECONDS        2404 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACONS           0   EXTERNAL*       2/34 X    9/49
        ADT          1742   PROGRAM*        2/25 E   36/40     50/47     60/10     60/23     73/27 L
                                           32/43     48/25     51/30     60/16     72/45     82/25
        ADT10        1751   PROGRAM*       73/39     73/42     73/53 L
        ADT2         1744   PROGRAM*       73/38 L
        ADT36        1755   PROGRAM*       73/54     74/09 L
        ADT40        1762   PROGRAM*       74/11     74/25 L
        ADW             0   EXTERNAL*      18/29
        AFR             0   EXTERNAL*       3/32 X   20/12
        ALC             0   EXTERNAL*      37/19     74/35     77/09
        ALC.REG         0   EXTERNAL*       2/55 X   46/47 S
        ALC.00          0   EXTERNAL*       2/55 X   46/41
        ANDNOT          0   EXTERNAL*       2/34 X   67/47
        ANSI=           0   EXTERNAL*       5/11     13/35     26/20     36/33     41/02     71/26     83/55
                                           11/46     20/05     36/19     39/41     54/05     81/46
        ARGCOMA         0   EXTERNAL*       2/34 X   21/57     26/12     37/07     43/05     45/30
                                            5/18 S   24/33     35/15     37/38     45/05
        ARGMIS          0   EXTERNAL*       2/34 X   22/03     37/08     37/41     38/13     45/08     45/35 S
        ARGMODE         0   EXTERNAL*       2/34 X   11/09     13/23     19/04     23/41     26/09     32/09     45/25 S
                                            5/19 S   11/26     14/28     21/53     24/32     29/03     35/17     75/20
                                            6/37     11/43     14/42     23/03     25/07     31/07     45/03
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        ARRARM          0   EXTERNAL*       2/34 X   19/14
        ASFARM          0   EXTERNAL*       2/34 X   20/19
        ASFLEN          0   EXTERNAL*       2/35 X   46/42
        ATTR            0   EXTERNAL*       2/34 X   12/34 S   13/20 S   18/16     33/34 S   74/13     86/31
        A=ARRAY         0   EXTERNAL*       3/25 X
        A=ASF        1037   PROGRAM*        2/27 E   46/13 L
        A=ASF0       1050   PROGRAM*       46/32     46/37 L
        A=ASF1       1051   PROGRAM*       46/19     46/30     46/39 L   47/01
        A=ASF2       1057   PROGRAM*       46/17     46/52 L
        A=ASF3       1061   PROGRAM*       46/35     46/53     46/55 L
        A=BEF        1063   PROGRAM*        2/27 E   47/12 L
        A=BEF2       1075   PROGRAM*       47/25     47/37 L
        A=BEF3       1102   PROGRAM*       47/35     47/42     47/48 L
        A=BEF4       1113   PROGRAM*       47/53     48/19 L
        A=BEF6       1120   PROGRAM*       48/29     48/31 L
        A=BIF        1125   PROGRAM*        2/27 E   23/04     48/50 L   75/25
        A=BIF1       1133   PROGRAM*       49/08 L   49/13
        A=BIF10      1166   PROGRAM*       50/12     50/16 L
        A=BIF2       1136   PROGRAM*       49/10     49/17 L
        A=BIF3       1141   PROGRAM*       49/20     49/23 L
        A=BIF4       1142   PROGRAM*       49/22     49/24 L
        A=BIF5       1154   PROGRAM*       48/52     49/50 L
        A=CALL       1170   PROGRAM*        2/27 E   11/44     13/27     50/38 L   75/21
        A=CALL3      1202   PROGRAM*       50/53     50/55 L
        A=CALL4      1204   PROGRAM*       50/51     51/02 L
        A=CALL5      1206   PROGRAM*       50/49     51/04 L
        A=DEC        1167   PROGRAM*        2/27 E   50/30 L
        A=DO         1243   PROGRAM*        2/28 E   26/10     29/10     52/51 L
        A=FMT           0   EXTERNAL*      13/31     32/10
        A=FUN        1207   PROGRAM*        2/28 E   13/29     51/13 L   75/23
        A=IF         1237   PROGRAM*        2/28 E   29/12     52/29 L
        A=LIST       1242   PROGRAM*        2/28 E    6/41     11/28     13/25     23/42     23/49     52/43 L
        BEFFUN          0   EXTERNAL*       2/35 X   48/30     60/27
        BEFXARM         0   EXTERNAL*       2/35 X   20/56
        BEF.ARG      1502   PROGRAM*       48/08     62/28 L
        BIFARM          0   EXTERNAL*       2/35 X   20/34
        BIFFUN          0   EXTERNAL*       2/35 X   37/52     50/04
        BINOUT          0   EXTERNAL*       2/35 X   85/21
        CALLOP          0   EXTERNAL*       2/35 X   35/56     37/14     47/51     50/43     51/22     60/06
        CALLTAG         0   EXTERNAL*       3/35 X   50/38
        CCC             0   EXTERNAL*       3/22 X
        CCONONE         0   EXTERNAL*       2/37 X
        CCR             0   EXTERNAL*       3/22 X   73/40
        CFC             0   EXTERNAL*       3/13 X   24/08
        CHAR            6   TSTEXT         54/01     60/57     61/03     61/06     61/09     81/13
                                           54/02     61/01     61/04     61/07     61/10     81/43
                                           60/56     61/02     61/05     61/08     61/11
        CHARMAP         0   EXTERNAL*       2/36 X    7/06     29/16     29/25     50/52     79/35
        CIL          1770   PROGRAM*       13/21     13/50     75/10 L
        CILA         2004   PROGRAM*       75/34     75/43 L
        CIL2         2002   PROGRAM*       75/26     75/40 L
        CLPARM          0   EXTERNAL*       2/36 X
        CMC             0   EXTERNAL*       3/22 X   70/08
        CML             0   EXTERNAL*       3/16 X   18/32
        CMLFLG         10   PROGRAM*        4/22 L    6/42 S   18/25     19/09     45/22
        CMO             0   EXTERNAL*       3/22 X   67/41
        CNF            11   PROGRAM*        2/28 E    5/04 L
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        CNFARM          0   EXTERNAL*       2/36 X    5/15
        CNF1           15   PROGRAM*        5/10      5/15 L
        COD             0   EXTERNAL*       2/35 X
        COMMA           0   EXTERNAL*       2/36 X   23/29
        CONONE          0   EXTERNAL*       2/36 X   42/08
        CONOTBL         0   EXTERNAL*       2/36 X    8/23     22/23
        COR          2005   PROGRAM*       64/33     66/55     67/10     68/15     76/02 L
        CO.SNAP         0   EXTERNAL*       2/31 X
        CO.TBK          0   EXTERNAL*       2/31 X   37/13     47/24     47/50     48/27     59/26     59/56     60/24
        CRL             0   EXTERNAL*       3/07 X   51/02
        CR.STR         54   TSTEXT         12/43     30/55
        CST.BOS         0   EXTERNAL*       3/35 X   30/46
        CSYMBOL         0   EXTERNAL*       2/36 X   12/35 S   20/31     20/54
        CT2          2012   PROGRAM*        2/28 E   48/36     51/32     76/24 L
        CURST           3   PROGRAM*        2/28 E    4/16 L   48/34 S   51/39 S   60/31 S   85/27
        C=BEF         612   PROGRAM*        2/26 E   37/07 L
        C=BEF4        624   PROGRAM*       37/16     37/25 L
        C=BIF         627   PROGRAM*        2/26 E   37/38 L
        C=BIF10       644   PROGRAM*       38/07     38/11 L
        C=BIF11       646   PROGRAM*       38/17 L   38/22
        C=BIF5        632   PROGRAM*       37/43     37/45 L
        C=BIF7        634   PROGRAM*       37/48     37/50 L
        C=CALL        560   PROGRAM*        2/26 E   35/54 L
        C=CERR        554   PROGRAM*        2/26 E   35/39 L   36/17
        C=DEC         653   PROGRAM*        2/26 E   38/38 L
        C=DO          654   PROGRAM*        2/27 E   38/54 L   43/08
        C=DOX         741   PROGRAM*       40/29     40/31     40/33     41/11     41/28 L
        C=DO1         657   PROGRAM*       38/57     39/02 L
        C=DO10        717   PROGRAM*       40/04     40/40 L
        C=DO15        723   PROGRAM*       40/43     40/46 L
        C=DO16        734   PROGRAM*       40/49     41/04     41/06 L
        C=DO16A       733   PROGRAM*       40/53     40/54     41/05 L
        C=DO20        737   PROGRAM*       41/06     41/09 L
        C=DO6         702   PROGRAM*       40/05     40/15 L
        C=DO6A        704   PROGRAM*       40/16     40/18 L
        C=DO6B        706   PROGRAM*       40/17     40/20 L
        C=DO6C        712   PROGRAM*       40/22     40/25 L
        C=ERR         555   PROGRAM*        2/26 E   35/40 L   36/28
        C=FUN         560   PROGRAM*        2/27 E   35/53 L
        C=GOT         566   PROGRAM*        2/27 E   36/15 L
        C=GT10        603   PROGRAM*       36/32     36/42 L
        C=GT12        607   PROGRAM*       36/46     36/49 L
        C=GT5         571   PROGRAM*       36/18     36/23 L
        C=GT7         575   PROGRAM*       36/26     36/30 L
        C.CON      340000   TSTEXT          9/38     65/16     65/29     66/41     81/56
        C.SYM      200000   TSTEXT         37/55     40/47     51/20     71/14     71/15
        C.VAR      200000   TSTEXT         15/08     52/06     52/09
        DEC             0   EXTERNAL*       3/04 X    9/19
        DMINMAXT      651   PROGRAM*       38/17     38/24 L
        DOER17        700   PROGRAM*       39/40     39/53     40/07 L
        DOIX            0   EXTERNAL*       2/37 X   42/44 S   70/51
        DOORD           0   EXTERNAL*       2/37 X   21/11
        DO=IX         663   PROGRAM*       39/06     39/23 L
        DO.CON        776   PROGRAM*       41/38     42/40 L
        DO.CON1      1002   PROGRAM*       42/52 L   43/02
        DO.CON2      1006   PROGRAM*       42/55     43/01 L
        DO.CON5      1007   PROGRAM*       42/48     43/02 L
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        DO.CON6      1010   PROGRAM*       40/08     42/57     43/04 L
        DO.DPC          0   EXTERNAL*       2/45 X   26/14     38/56
        DO.ERR        754   PROGRAM*        2/26 E   39/55     40/19     40/24     40/45     41/08     41/48 L
        DO.ERR1       752   PROGRAM*       41/42     41/46 L
        DO.INCR       774   PROGRAM*       41/41     42/34 L
        DO.INIT       755   PROGRAM*       41/39     41/53 L
        DO.INX        745   PROGRAM*       41/28     41/37 L
        DO.LIM        761   PROGRAM*       41/40     42/07 L
        DO.LIM2       766   PROGRAM*       42/10     42/19 L
        DO.LIM5       772   PROGRAM*       42/24     42/28 L
        DUC.BTH         0   EXTERNAL*      79/36
        EMT             0   EXTERNAL*       3/07 X   29/41     36/04     37/28
        ENTRY.          0   EXTERNAL*       2/37 X   15/06
        EQUAL           0   EXTERNAL*       2/37 X   30/57
        ERROP           0   EXTERNAL*       2/37 X   29/39     32/36     35/40
        ERT             0   EXTERNAL*       2/55 X   17/25
        ESC             0   EXTERNAL*       2/55 X   35/54     37/12     48/23     50/41     51/28     60/05     60/12
        ESF             0   EXTERNAL*       3/25 X   38/08     50/13
        ESTACK          0   EXTERNAL*       3/35 X    6/38
        ESY             0   EXTERNAL*       2/55 X   16/57
        EXP.ARG      1503   PROGRAM*       59/48     62/31 L
        EXP.BASE     1314   PROGRAM*       54/49     55/36 L   62/19     62/21     62/23
                                           55/31     59/16     62/20     62/22     62/24
        EXP.EXT      1457   PROGRAM*       54/39     60/55 L   62/19     62/21     62/22     62/23     62/24
        EXP.IL         13                  53/27 D   57/20     57/36
        EXP.INL      1370   PROGRAM*       57/49     58/05 L
        EXP.TBL      1474   PROGRAM*       54/26     62/18 L
        EXTFARM         0   EXTERNAL*       2/37 X   20/51
        EXTFUN          0   EXTERNAL*       2/37 X   48/28     51/34     60/25
        E.ANS3          0   EXTERNAL*       2/51 X   54/05     81/46     81/46
        E.AT1           0   EXTERNAL*       2/45 X   79/53     83/42
        E.AT1A          0   EXTERNAL*       2/45 X   69/30     80/15
        E.AT10          0   EXTERNAL*       7/09
        E.AT11          0   EXTERNAL*       2/50 X   46/54
        E.AT12          0   EXTERNAL*       2/50 X   46/33
        E.AT13          0   EXTERNAL*      41/02     71/26
        E.AT2           0   EXTERNAL*       2/45 X   29/30
        E.AT3           0   EXTERNAL*       2/45 X   11/12
        E.AT5           0   EXTERNAL*       2/45 X   35/39
        E.AT6           0   EXTERNAL*      25/12
        E.AT7           0   EXTERNAL*      83/55
        E.AT8           0   EXTERNAL*      11/46
        E.AT9           0   EXTERNAL*       5/11
        E.CL3           0   EXTERNAL*       2/52 X   20/05
        E.DO            0   EXTERNAL*       2/46 X   41/46     52/54
        E.DO1           0   EXTERNAL*       2/46 X   39/54
        E.DO11          0   EXTERNAL*       2/46 X   42/56
        E.DO16          0   EXTERNAL*       2/46 X   26/20     26/20     39/41
        E.DO17          0   EXTERNAL*       2/47 X   40/07
        E.DO2           0   EXTERNAL*       2/46 X   40/32
        E.DO23          0   EXTERNAL*       2/47 X   70/50
        E.DO3           0   EXTERNAL*       2/46 X   40/23
        E.DO4           0   EXTERNAL*       2/46 X   40/44     41/07     41/07
        E.DO5           0   EXTERNAL*       2/46 X   40/18
        E.DO8           0   EXTERNAL*       2/46 X   70/46
        E.GO10          0   EXTERNAL*       2/47 X   36/27
        E.GO11          0   EXTERNAL*       2/47 X   36/33
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        E.GO9           0   EXTERNAL*       2/47 X   36/19     36/19
        E.LP3           0   EXTERNAL*       2/47 X   31/54     45/09     69/54
        E.LP4           0   EXTERNAL*       2/47 X   43/32
        E.LV11          0   EXTERNAL*      75/40
        E.MRA           0   EXTERNAL*       2/48 X   13/11
        E.SU6           0   EXTERNAL*      14/54
        E.TE1           0   EXTERNAL*       2/48 X   13/52
        E.TE2           0   EXTERNAL*       2/48 X   14/34     14/34
        E.TE2A          0   EXTERNAL*       2/48 X   14/30
        E.TE2B          0   EXTERNAL*      14/32
        E.TE3           0   EXTERNAL*       2/48 X   14/49     14/56
        E.TE4           0   EXTERNAL*       2/48 X   13/24
        E.TE7           0   EXTERNAL*       2/48 X
        E.TE8           0   EXTERNAL*       2/48 X   31/03     71/09     71/28
        E.TY            0   EXTERNAL*      51/01
        E.VA3           0   EXTERNAL*      15/10     15/12
        E.XP1           0   EXTERNAL*       2/48 X   55/46
        E.XP2           0   EXTERNAL*       2/49 X   55/54
        E.XP3           0   EXTERNAL*       2/49 X   58/37     58/37
        E.XP4           0   EXTERNAL*       2/49 X   56/11
        E.XP5           0   EXTERNAL*      59/14
        FAL          2020   PROGRAM*        2/28 E   47/29     50/40     51/03     51/15     77/03 L
        FEXPR           0   EXTERNAL*       7/02
        FILL.           0   EXTERNAL*       2/49 X   12/33 S   29/26 S   41/01 S   54/04 S   81/45 S
                                            7/08 S   26/16     39/04 S   50/57 S   71/25 S
        FLOW            0   EXTERNAL*       2/38 X   31/22
        F.DTOD       1471   PROGRAM*       61/09 L
        F.DTOI       1467   PROGRAM*       61/07 L
        F.DTOX       1470   PROGRAM*       61/08 L
        F.DTOZ       1472   PROGRAM*       61/10 L
        F.ITOD       1461   PROGRAM*       61/01 L
        F.ITOJ       1457   PROGRAM*       60/56 L
        F.ITOX       1460   PROGRAM*       60/57 L
        F.ITOZ       1462   PROGRAM*       61/02 L
        F.XTOD       1465   PROGRAM*       61/05 L
        F.XTOI       1463   PROGRAM*       61/03 L
        F.XTOY       1464   PROGRAM*       61/04 L
        F.XTOZ       1466   PROGRAM*       61/06 L
        F.ZTOI       1473   PROGRAM*       61/11 L
        GOTA            0   EXTERNAL*       3/07 X   36/44
        IFMOD           0   EXTERNAL*       3/10 X   52/34 S
        IFRESLT         0   EXTERNAL*       3/10 X   52/33 S
        INAFR           0   EXTERNAL*       2/38 X    6/52 S   46/43
        INLBASE         0   EXTERNAL*       3/26 X   38/04     50/10
        INTMAC          0   EXTERNAL*       2/38 X   36/34
        IN.EXP          0   EXTERNAL*       2/38 X   57/55
        IODIR           0   EXTERNAL*       3/16 X    6/44
        IO.DOB         70   TSTEXT          8/43
        IXLASTV      1012   PROGRAM*        2/25 E   40/25     41/10 S   43/13 L
        IX=CPLX       674   PROGRAM*       39/31     39/52 L
        IX=DBL        674   PROGRAM*       39/30     39/51 L
        IX=INT        677   PROGRAM*       39/28     39/42     40/04 L
        IX=LOG        674   PROGRAM*       39/27     39/53 L
        IX=REAL       674   PROGRAM*       39/29     39/50 L
        IX=UNIV       671   PROGRAM*       39/26     39/40 L
        I..10           0   EXTERNAL*       3/27 X   58/22
        I..2            0   EXTERNAL*       3/26 X   58/06
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        I..3            0   EXTERNAL*       3/26 X   58/08
        I..4            0   EXTERNAL*       3/26 X   58/10
        I..5            0   EXTERNAL*       3/26 X   58/12
        I..6            0   EXTERNAL*       3/27 X   58/14
        I..7            0   EXTERNAL*       3/27 X   58/16
        I..8            0   EXTERNAL*       3/27 X   58/18
        I..9            0   EXTERNAL*       3/27 X   58/20
        JOE           310   PROGRAM*       20/04     20/06 L
        LASTAD          0   EXTERNAL*       2/38 X   33/38 S   64/30     66/50     76/09
        LASTOP          0   EXTERNAL*       2/38 X   33/44 S   64/28     66/49     68/10
        LCT             0   EXTERNAL*       3/22 X   39/05     54/14     54/17     66/15     67/36     68/05     69/56
        LDEAD           0   EXTERNAL*       2/38 X    6/51 S   31/42
        LOP=R           0   EXTERNAL*       2/31 X   17/17
        LPAR            0   EXTERNAL*       2/38 X   22/10
        LPARM           0   EXTERNAL*       2/38 X   24/12
        L.AMC          22   TSTEXT         35/19
        L.ARGC          6   TSTEXT         47/55
        L.ARGMF         3   TSTEXT         20/32
        L.CDPC         52   TSTEXT          7/05     29/15     50/55
        L.CLASS        17   TSTEXT         16/27
        L.CLCON        17   TSTEXT         11/35
        L.DMOD          4   TSTEXT         78/38     78/53     84/03     86/32
        L.DOE           6   TSTEXT         41/34     42/53     70/39
        L.FARGC         6   TSTEXT         60/56     61/01     61/03     61/05     61/07     61/09     61/11
                                           60/57     61/02     61/04     61/06     61/08     61/10
        L.FARGM         3   TSTEXT         60/56     61/01     61/03     61/05     61/07     61/09     61/11
                                           60/57     61/02     61/04     61/06     61/08     61/10
        L.FBEF          1   TSTEXT         60/56     61/01     61/03     61/05     61/07     61/09     61/11
                                           60/57     61/02     61/04     61/06     61/08     61/10
        L.FDPC         44   TSTEXT         59/21     60/57     61/02     61/04     61/06     61/08     61/10
                                           60/56     61/01     61/03     61/05     61/07     61/09     61/11
        L.FJPAD        11   TSTEXT         59/28     60/57     61/02     61/04     61/06     61/08     61/10
                                           60/56     61/01     61/03     61/05     61/07     61/09     61/11
        L.FPNO          6   TSTEXT         18/09     76/34
        L.JPADF        11   TSTEXT         37/54     50/06
        L.LCON         11   TSTEXT         11/05
        L.LEVN          2   TSTEXT         75/13
        L.MODC         11   TSTEXT         78/38     78/40     78/53     78/55     79/46     84/03     84/04
        L.MODE          3   TSTEXT         16/23     36/23     49/52     60/56     61/05     61/11     76/41
                                           16/27     38/54     51/16     60/57     61/06     63/53     78/36
                                           18/12     46/14     52/30     61/01     61/07     63/56     78/47
                                           18/14     47/48     53/50     61/02     61/08     65/41     81/09
                                           20/21     48/54     54/21     61/03     61/09     66/42     83/28
                                           21/03     49/17     59/23     61/04     61/10     69/24
        L.MSHORT        6   TSTEXT         11/41
        L.PSTACK        3   TSTEXT         22/01     45/21
        L.PWF          15   TSTEXT         71/17
        L.SBPR         22   TSTEXT         22/16     23/10     23/30     27/13     27/19     28/09     67/48
        L.SHC          22   TSTEXT         42/12
        L.STPR         11   TSTEXT         23/11     27/15     64/54
        L.SYM          52   TSTEXT         12/30     16/16     38/14     40/56     49/05     71/23     75/32
        L.TAG          22   TSTEXT         18/12     76/41
        L.TGB           5   TSTEXT         52/03
        L.TURP          3   TSTEXT         33/37     48/33     60/30     74/35     76/07     85/28     85/37     86/37
        L.2TAG         22   TSTEXT         11/25
        MINMAXT      1150   PROGRAM*       49/08     49/44 L
        MOD             0   EXTERNAL*       2/39 X   15/11
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        MODECON         0   EXTERNAL*       3/29 X   82/09
        MODTBL          0   EXTERNAL*       3/27 X   46/26     49/34     53/52     56/35     79/25     81/38
        MVE             0   EXTERNAL*      77/17
        MXP             0   EXTERNAL*       3/25 X    5/20
        M.ADDR       2000   TSTEXT         13/38
        M.ARE         200   TSTEXT         13/38
        M.CPLX          5   TSTEXT         24/19     61/02     61/06     61/10     61/11     81/16     81/18     81/25
        M.DBL           4   TSTEXT          9/20     61/01     61/07     61/09     81/04
                                            9/20     61/05     61/08     61/10     81/04
        M.DEF          10   TSTEXT         12/45     40/50     40/50     52/14
        M.EQUIV      2000   TSTEXT         18/11     76/25     76/25
        M.EXT         100   TSTEXT         16/07     16/08     16/21
        M.FP           20   TSTEXT         16/07
        M.FUN         200   TSTEXT         16/08     16/21
        M.INT           2   TSTEXT         11/30     42/15     56/08     57/48     60/57     64/02
                                           36/30     49/19     56/28     58/54     61/01     67/39
                                           37/49     49/21     57/24     60/56     61/02     81/54
        M.INTR       1000   TSTEXT         74/19     86/34
        M.LOG           1   TSTEXT         36/25     46/52     69/36     83/39     83/43
                                           36/30     69/28     83/37     83/39     83/50
        M.LONG          4   TSTEXT         48/05
        M.NVAR      20000   TSTEXT         16/08     16/21
        M.REAL          3   TSTEXT         49/23     56/27     57/03     60/57     61/04     61/06
                                           55/02     56/50     57/10     61/03     61/05     81/23
        M.SHORT      4000   TSTEXT         42/07     42/15     55/01     65/07     65/07     65/19
        M.SNEX        100   TSTEXT         21/17
        M.SYSEXT    20100   TSTEXT         59/39
        M.UNIV          0   TSTEXT         39/24     83/30     83/38
        M.VAR       10000   TSTEXT         12/42     12/45
        M.2ARY      40000   TSTEXT         13/17
        NCM             0   EXTERNAL*       2/55 X    9/36     66/40
        NCS             0   EXTERNAL*       2/55 X    9/47     56/44     57/25     59/03     66/26
        OMC          2075   PROGRAM*       46/38     49/39     56/40     72/44     81/01 L
        OMCA         2146   PROGRAM*       81/07 S   82/07 S   82/18     82/28     82/40     82/43     82/47 L
        OMC03        2106   PROGRAM*       81/14     81/22 L
        OMC05        2111   PROGRAM*       81/15     81/29 L
        OMC07        2113   PROGRAM*       81/31     81/33 L
        OMC08        2120   PROGRAM*       81/17     81/19     81/26     81/44 L
        OMC10        2123   PROGRAM*       81/20     81/34     81/36     81/41     81/53 L
        OMC2         2126   PROGRAM*       81/53     82/05 L
        OMC.RC       2143   PROGRAM*       82/19     82/45 D
        OMC.RR       2142   PROGRAM*       82/23 S   82/35 L
        OMC.X4       2145   PROGRAM*       82/42 L
        OMC.X5       2144   PROGRAM*       82/40 L   82/45
        OR.DOCI         3   TSTEXT         42/43     42/45 S   42/46     42/47     70/34
        OR.DOII         2   TSTEXT         42/22 S   42/34 S
        OR.DOLI         1   TSTEXT         42/19 S
        OR.DORT         4   TSTEXT         42/29 S
        OR.DOSI         0   TSTEXT         41/57 S
        OR.DOSN         5   TSTEXT         42/21
        OR.OPR          0   TSTEXT         33/37     64/36     66/57     67/12     68/17     85/30
        OR.1OP          1   TSTEXT         67/12     67/14     86/03
        OR.2OP          2   TSTEXT         64/36     66/57     67/14     68/17     85/39     85/39     86/03
        OSTACK          0   EXTERNAL*       3/35 X    6/48      6/56 S   30/36
        O=GOC           0   EXTERNAL*       3/27 X   36/42
        O=GOCL          0   EXTERNAL*      36/47
        O=RAGDD         0   EXTERNAL*       3/29 X   62/34
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        O=RAGDS         0   EXTERNAL*       3/29 X   62/34
        O=RAGD1         0   EXTERNAL*      62/28
        O=RAGSD         0   EXTERNAL*       3/29 X   62/32
        O=RAGSS         0   EXTERNAL*       3/29 X   62/32
        O=RAGS1         0   EXTERNAL*      62/28
        O.AND          23   TSTEXT         67/33
        O.ANDN         33   TSTEXT         67/49
        O.COMMA        13   TSTEXT          8/44     11/18     23/17     31/08     41/55     41/55     50/50
        O.DEF           0   TSTEXT          8/23     22/23
        O.DIV           7   TSTEXT         63/42     64/05     64/10
        O.EOS           0   TSTEXT          6/54     30/42     31/11     32/19
        O.GE           20   TSTEXT         69/16
        O.GOTC         63   TSTEXT         36/50
        O.GT           21   TSTEXT         69/18
        O.ILP          32   TSTEXT         20/36     20/36
        O.LE           15   TSTEXT         69/16
        O.LP           10   TSTEXT         24/13     31/51     81/33
        O.LT           14   TSTEXT         69/18
        O.MIN           5   TSTEXT         66/52
        O.MODC         65   TSTEXT         82/11
        O.MULT          6   TSTEXT         63/42     64/10
        O.NOT          22   TSTEXT         68/12
        O.PERIOD       37   TSTEXT          8/24
        O.PL            4   TSTEXT          8/26     81/35     81/42
        O.RP           11   TSTEXT         11/20     29/06     45/06     69/06
        O.SLP          32   TSTEXT         19/18     20/25     20/25     21/09     21/09     31/50     78/48
        O.TRUE         30   TSTEXT         19/24
        O.UMIN         27   TSTEXT         26/36     64/29     66/51
        O.VAR           3   TSTEXT         12/37     30/56
        O.(            10   TSTEXT         13/09     14/05     16/53
        O.)            11   TSTEXT         14/07     32/14
        O.=            12   TSTEXT         30/54     74/09     78/50     81/08     85/41     86/05     86/14
        PAR            22   PROGRAM*        2/25 E    5/21      6/35 L
        PAREX         441   PROGRAM*        8/45      8/46      8/49     10/02     22/25     23/50     29/03 L
        PAREXIT       503   PROGRAM*        2/25 E   31/09     38/39     52/35     52/55
                                           23/43     31/22 L   50/30     52/53
        PAREX1        443   PROGRAM*       29/06 L   29/11     29/13
        PAREX10       456   PROGRAM*       29/27     29/29 L
        PAREX11       461   PROGRAM*        7/11     29/35 L
        PAREX2        445   PROGRAM*       29/05     29/10 L
        PAREX3        447   PROGRAM*       29/07     29/15 L
        PAREX5        451   PROGRAM*       29/17     29/19 L
        PARX6         454   PROGRAM*       29/22     29/25 L
        PAR1           30   PROGRAM*        6/43      6/45      6/48 L
        PAR.ADOP      437   PROGRAM*       27/20     28/09 L   31/02     64/07     65/54
        PAR.BF        317   PROGRAM*       20/08     20/31 L
        PAR.BF1       325   PROGRAM*       20/41     20/45 L
        PAR.CM        354   PROGRAM*        2/22 E   23/03 L
        PAR.CM5       356   PROGRAM*       23/10 L   23/24
        PAR.CM7       364   PROGRAM*       23/16     23/28 L
        PAR.CM8       372   PROGRAM*       23/05     23/49 L
        PAR.DLP       402   PROGRAM*        2/22 E   24/32 L
        PAR.EOS       465   PROGRAM*        2/21 E    7/10      8/21     29/34     30/36 L   32/05     32/08
        PAR.EOS1      473   PROGRAM*       30/48     30/51 L
        PAR.EOS3      500   PROGRAM*       30/40     31/07 L   43/30
        PAR.EOS6      507   PROGRAM*       30/38     31/48 L
        PAR.EOS7      513   PROGRAM*       31/53     31/56 L
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        PAR.EOS8      517   PROGRAM*       31/52     32/09 L
        PAR.EOS9      523   PROGRAM*       32/13     32/17 L
        PAR.EQL       405   PROGRAM*        2/22 E   25/07 L
        PAR.EQL2      411   PROGRAM*       25/11     25/15 L
        PAR.FAL       303   PROGRAM*        2/22 E   19/24 L
        PAR.FUN       306   PROGRAM*       14/19     14/45     16/10     16/20     17/09     20/03 L
        PAR.HOL        70   PROGRAM*        2/21 E   11/03 L
        PAR.HOL2       74   PROGRAM*       11/12 L   11/22
        PAR.HOL3       76   PROGRAM*       11/11     11/17 L
        PAR.HOL4      101   PROGRAM*       11/19     11/21     11/23 L
        PAR.HOL5      101   PROGRAM*       11/08     11/15     11/25 L
        PAR.HOL6      107   PROGRAM*       11/33     11/37     11/41 L
        PAR.HOL7      110   PROGRAM*       11/29     11/43 L
        PAR.HOL8      113   PROGRAM*       11/45     11/47 L
        PAR.LP        374   PROGRAM*        2/22 E   24/07 L
        PAR.LP5       400   PROGRAM*       24/10     24/18 L
        PAR.MIN       424   PROGRAM*        2/21 E   26/30 L
        PAR.NX         42   PROGRAM*        2/26 E   11/50     13/48     14/57     19/30     25/14     28/14
                                            7/04     13/12     14/14     15/57     22/26     25/18     29/42
                                            8/19 L   13/12     14/29     17/01     23/45     26/22     46/40
                                            9/55     13/41     14/43     17/01     23/52     27/43     46/51
        PAR.NX1        51   PROGRAM*        8/39      8/49 L
        PAR.PL        413   PROGRAM*        2/21 E   26/04 L
        PAR.PL1       423   PROGRAM*       26/11     26/18     26/21 L
        PAR.SPS       341   PROGRAM*       19/19     20/27     20/47     21/12     21/21     21/52 L   24/16     24/37
        PAR.STD       430   PROGRAM*        2/21 E   23/06     25/16     26/08     26/34     26/37     27/13 L   27/42
        PAR.STOP      525   PROGRAM*       32/36 L   43/34
        PAR.SUB       275   PROGRAM*       13/18     19/04 L
        PAR.SUB1      300   PROGRAM*       19/10     19/11     19/14 L
        PAR.TNK        52   PROGRAM*        2/21 E    9/19 L
        PAR.TRU       303   PROGRAM*        2/22 E   19/23 L
        PAR.VAR       115   PROGRAM*        2/21 E   12/29 L
        PAR.VARX      261   PROGRAM*       17/10     17/18     18/06 L
        PAR.VAR2      122   PROGRAM*       12/38     12/40 L
        PAR.VAR6      273   PROGRAM*       18/27     18/32 L
        PAR.VAR7      274   PROGRAM*       18/26     18/31     18/36 L
        PAR.XF        326   PROGRAM*       20/07     20/51 L
        PAR.XF5       332   PROGRAM*       20/53     21/03 L
        PAS2MF       2230   PROGRAM*       76/26
        POP           531   PROGRAM*       23/22     23/40     27/33     31/13     32/03     32/20     33/26 L
        POPDPC          6   PROGRAM*        4/19 L   23/21 S   27/32     32/02     45/04     64/49
                                            4/21     27/30 S   27/41     32/18 S   63/35     65/52
        POPPER          7   PROGRAM*        4/21 D   27/39     32/01 S   32/04     45/40 S   65/51
                                           27/32     27/41     32/02     32/16 S   63/47 S   65/52
        POPTBL          0   EXTERNAL*       2/39 X   33/41
        POP.CM        547   PROGRAM*        2/24 E   35/15 L
        POP.DIV      1505   PROGRAM*        2/23 E   63/35 L
        POP.DV10     1521   PROGRAM*       63/39     64/09 L
        POP.DV5      1514   PROGRAM*       63/40     63/53 L
        POP.EXP      1246   PROGRAM*        2/23 E   53/30 L
        POP.EX10     1256   PROGRAM*       53/32     53/46     53/50 L
        POP.EX12     1264   PROGRAM*       53/56     54/06 L
        POP.EX2      1252   PROGRAM*       53/41 L   53/48
        POP.EX20     1276   PROGRAM*       54/35     54/48 L
        POP.EX22     1304   PROGRAM*       55/05     55/07 L
        POP.EX25     1306   PROGRAM*       54/56     55/16 L   57/41
        POP.EX27     1311   PROGRAM*       54/52     55/17     55/26 L
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        POP.EX30     1313   PROGRAM*       54/51     55/31 L
        POP.EX4      1255   PROGRAM*       53/44     53/47 L
        POP.EX50     1420   PROGRAM*       55/27     55/29     59/16 L
        POP.EX52     1416   PROGRAM*       58/49     58/50     59/14 L
        POP.EX60     1421   PROGRAM*       54/40     56/24     57/27     57/39     59/19 L
                                           56/12     57/19     57/38     59/15
        POP.EX70     1426   PROGRAM*       59/31     59/33 L
        POP.EX80     1450   PROGRAM*       60/01     60/19 L
        POP.EX85     1452   PROGRAM*       60/17     60/24 L
        POP.EX90     1454   PROGRAM*       60/26     60/28 L
        POP.JP        546   PROGRAM*       34/03     34/09     34/31 L
        POP.LOG      1607   PROGRAM*        2/24 E   67/32 L
        POP.MUL      1532   PROGRAM*        2/23 E   64/48 L
        POP.NOT      1622   PROGRAM*        2/23 E   68/04 L
        POP.PL       1524   PROGRAM*        2/24 E   64/28 L
        POP.PL10     1532   PROGRAM*       64/31     64/34     64/49 L
        POP.PL15     1544   PROGRAM*       65/20     65/26 L
        POP.PL20     1550   PROGRAM*       65/33     65/40 L
        POP.PN       1020   PROGRAM*        2/23 E   45/03 L
        POP.PN1      1032   PROGRAM*       45/26     45/29 L
        POP.REL      1633   PROGRAM*        2/24 E   69/04 L
        POP.REQ      1652   PROGRAM*        2/23 E   69/51 L
        POP.RL10     1641   PROGRAM*       69/09     69/23 L
        POP.RL15     1646   PROGRAM*       69/27     69/29     69/33 L
        POP.RL3      1640   PROGRAM*       69/17     69/19 L
        POP.RP       1013   PROGRAM*        2/23 E   43/27 L
        POP.RP1      1015   PROGRAM*       43/29     43/31 L
        POP.RP5      1016   PROGRAM*       31/55     43/33 L   45/10
        POP.RQ10     1701   PROGRAM*       70/14     70/27     71/01 L
        POP.RQ11     1703   PROGRAM*       70/47     70/54     71/05 L
        POP.RQ12     1710   PROGRAM*       71/07     71/12 L
        POP.RQ14     1720   PROGRAM*       71/18     71/20     71/28 L
        POP.RQ5      1661   PROGRAM*       69/55     69/57     70/12 L
        POP.RQ6      1664   PROGRAM*       70/23 L   70/25
        POP.RQ7      1671   PROGRAM*       70/38 L   70/43
        POP.RQ8      1673   PROGRAM*       70/36     70/43 L
        POP.RQ9      1674   PROGRAM*       70/41     70/46 L
        POP.RQ9A     1676   PROGRAM*       70/44     70/49 L
        POP.SDIV     1536   PROGRAM*       63/49     65/05 L
        POP.STD      1722   PROGRAM*        2/24 E   38/19     64/03     64/14     64/52     65/40     67/24
                                           34/31     58/03     64/09     64/40     65/01     65/47     72/09 L
        POP.ST1      1734   PROGRAM*        2/25 E   38/21     51/40     67/42     68/16     71/10     71/29
                                           35/45     48/41     60/39     67/54     69/40     71/21     72/40 L
                                           36/56     50/18     67/37     68/13     71/08     71/27
        POP.ST5      1737   PROGRAM*       72/19     72/26     72/44 L
        POP.UM       1556   PROGRAM*        2/24 E   66/14 L
        POP.UM1      1560   PROGRAM*       66/21 L   68/06
        POP.UM10     1572   PROGRAM*       66/16     66/49 L
        POP.UM15     1601   PROGRAM*       66/53     67/08 L
        POP.UM20     1606   PROGRAM*       66/56     67/08     67/11     67/22 L
        POP.UM5      1564   PROGRAM*       66/22     66/34 L
        PR.SLP          0   EXTERNAL*       2/39 X   23/13     41/54
        PSN             0   EXTERNAL*       3/19 X    5/23     14/04     32/44
        PSO             0   EXTERNAL*       3/25 X   72/15     72/42
        PSTACK          0   EXTERNAL*       2/39 X    8/26
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        PWE             0   EXTERNAL*       7/09     14/49     31/03     40/18     41/46     52/54     59/14     71/28
                                           11/12     14/54     35/39     40/23     42/56     55/46     69/30     75/40
                                           13/11     14/56     36/27     40/32     43/33     55/54     70/46     79/53
                                           13/52     25/12     39/54     40/44     46/33     56/11     70/50     80/15
                                           14/36     29/32     40/07     41/07     46/54     58/37     71/09     83/42
        P.             73   TSTEXT         11/11     14/53     20/07     36/18     52/01     53/46     71/07     76/32
                                           13/10     15/12     29/05     40/43     52/13     63/40     71/20     78/32
                                           14/35     16/37     31/09     40/53     53/32     64/09     73/54     86/09
                                           14/44     20/04     34/03     41/06     53/44     66/22     76/04
        P.ACM          22   TSTEXT         19/17     20/46     21/08     37/10     37/42     47/19     49/56
        P.AMC          22   TSTEXT         35/21
        P.AMEOS        45   TSTEXT         31/09
        P.AMEQ         51   TSTEXT         25/09
        P.AMFUN        44   TSTEXT         14/35     14/44     20/43
        P.AMR          60   TSTEXT          6/49     22/11     45/29
        P.AMRP         46   TSTEXT         29/05
        P.AMWHOL       50   TSTEXT         11/11
        P.ARGC         22   TSTEXT         47/54     48/03
        P.ARGMF        30   TSTEXT         20/35     21/01     48/03
        P.ARY          10   TSTEXT         13/15     71/08     75/11
        P.ASF          12   TSTEXT         20/08
        P.BEF          10   TSTEXT         14/33     20/53
        P.CLCON        33   TSTEXT         11/34
        P.COM          40   TSTEXT         34/03     63/40     64/09     73/39
        P.DMOD         33   TSTEXT         74/41     86/30
        P.ENT           5   TSTEXT         15/05     15/07
        P.EQUIV        12   TSTEXT         18/21     76/30
        P.EST          20   TSTEXT         14/53
        P.EXT           6   TSTEXT         16/37     20/07     20/08     20/53
        P.FJPAD        14   TSTEXT         59/30
        P.FP            4   TSTEXT         76/32     76/35
        P.FPNO         22   TSTEXT         18/10     76/35
        P.FPS          47   TSTEXT         40/54     71/21
        P.FUN           7   TSTEXT         14/21     14/31     14/41
        P.INLINE       13   TSTEXT         14/31     14/33
        P.INTR         11   TSTEXT         36/18     52/01     53/44     71/07     76/04     86/11
                                           40/43     53/32     53/46     71/08     86/09
        P.JPAD         52   TSTEXT         36/49     48/17     53/37     57/56     76/06     80/12
                                           38/11     50/16     53/39     59/55     80/03     82/16
        P.JPADF        33   TSTEXT         38/02     50/08
        P.LCON         22   TSTEXT         11/04
        P.LEV           7   TSTEXT         75/11     75/12
        P.LEVN         45   TSTEXT         75/12
        P.LONG          2   TSTEXT         48/07     59/42     59/44     66/22
        P.MODC         22   TSTEXT         78/40     78/55     79/48     80/04     84/04
        P.MODE          0   TSTEXT         76/41
        P.MODLS        42   TSTEXT         78/32     80/22
        P.NONSTD       45   TSTEXT         73/39
        P.NSQEZ        44   TSTEXT         73/54
        P.NVAR         15   TSTEXT         14/20     14/21
        P.PFNC         11   TSTEXT         15/12
        P.PTAGL         0   TSTEXT         36/54
        P.RP           16   TSTEXT         13/10     13/14
        P.SHC          52   TSTEXT         42/11     42/17     55/07
        P.STPR         22   TSTEXT         41/56     64/56
        P.SUB          11   TSTEXT         14/41     15/05     20/04
        P.SYM          22   TSTEXT          5/09     30/43
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        P.TAG          52   TSTEXT          9/39     40/41     52/05     66/44     74/21     86/11
                                           15/07     42/54     52/08     70/40     76/41     86/40
        P.TGB          67   TSTEXT         65/14     65/27     81/55
        P.VAR          14   TSTEXT         13/14     14/20     40/54     52/13     71/21
                                           13/15     40/53     41/06     71/20
        P.2BIAS        30   TSTEXT         11/41
        P.2EQUIV       15   TSTEXT         18/21     76/30
        P.2FPNO        22   TSTEXT         18/18     76/37
        P.2TAG         52   TSTEXT         20/33     20/55     47/13     48/51     51/19     71/12
        REFVAR          0   EXTERNAL*       2/40 X    6/55 S   12/41     17/23     22/15 S   31/01 S   45/32 S
        REGARG          0   EXTERNAL*       2/39 X   37/17     48/02
        REGARG2         0   EXTERNAL*       2/39 X   60/19
        REVMIN          0   EXTERNAL*       2/40 X   64/35
        ROUTNAM         0   EXTERNAL*       2/40 X   59/51 S   60/29
        R.W             0   EXTERNAL*       3/16 X   11/31     11/39 S
        R..10           0   EXTERNAL*       3/28 X   58/22
        R..2            0   EXTERNAL*       3/28 X   58/06
        R..3            0   EXTERNAL*       3/28 X   58/08
        R..4            0   EXTERNAL*       3/28 X   58/10
        R..5            0   EXTERNAL*       3/28 X   58/12
        R..6            0   EXTERNAL*       3/28 X   58/14
        R..7            0   EXTERNAL*       3/28 X   58/16
        R..8            0   EXTERNAL*       3/28 X   58/18
        R..9            0   EXTERNAL*       3/28 X   58/20
        SCR             0   EXTERNAL*       3/35 X   45/13 S   47/16     48/50     51/13     59/20 S   66/36 S
                                            9/29 S   46/15     47/23 S   49/04     51/17     59/54     77/04
                                            9/33     46/34     47/38     49/53     51/31     60/03 S   77/10
                                            9/37     47/12     48/32     49/53     54/09 S   60/11
        SCR2            0   EXTERNAL*       3/35 X
        SDB          1226   PROGRAM*       35/55     50/42     51/29     51/56 L
        SDIV            0   EXTERNAL*       2/40 X   63/41     64/01     64/53
        SDM          2033   PROGRAM*        2/28 E   69/33     69/51     72/11     72/23     78/30 L
        SDMXA        2032   PROGRAM*       78/26 L   78/42     78/57     80/14
        SDM10        2051   PROGRAM*       79/06     79/08     79/09     79/24 L
        SDM11        2057   PROGRAM*       79/39     79/41 L
        SDM12        2060   PROGRAM*       79/42     79/44 L
        SDM3         2040   PROGRAM*       78/32     78/46 L
        SDM31        2065   PROGRAM*       79/49     80/02 L
        SDM32        2072   PROGRAM*       79/55     80/17 L
        SDM5         2045   PROGRAM*       78/51     79/02 L
        SLT             0   EXTERNAL*       3/04 X   16/19
        SMM          2151   PROGRAM*       67/32     68/08     83/26 L
        SMM10        2164   PROGRAM*       83/44     83/53     84/03 L
        SMM3         2157   PROGRAM*       83/40     83/42 L
        SMM5         2161   PROGRAM*       83/32     83/50 L
        SMM6         2163   PROGRAM*       83/41     83/51     83/55 L
        SMOD            0   PROGRAM*        2/25 E   32/42 S   46/23 S   49/38     56/39     70/04     78/54 S   82/14
                                            4/13 L   33/29 S   46/37     49/57 S   59/27 S   74/12     79/45     82/26
                                           32/41 S   37/18 S   48/22 S   51/27 S   69/34     74/36     80/18     84/06 S
                                           32/42     38/06 S   49/31 S   56/32 S   69/52     78/39 S   81/02
        SMOD1           1   PROGRAM*        4/14 L   46/37     49/38     56/39     79/44 S   79/45     82/10
        SOPR            2   PROGRAM*        2/25 E   35/44 S   50/46 S   60/22 S   65/46     72/25 S   79/54
                                            4/15 L   36/39 S   51/26 S   63/45 S   67/53 S   72/41 S   80/16
                                           32/42     36/55 S   58/01 S   64/12 S   69/21 S   74/38     82/22 S
                                           32/42 S   48/21 S   60/09 S   64/39 S   72/13 S   78/26 S   82/32 S
                                           33/36 S   48/24     60/13     65/32     72/22 S   79/33     84/07 S
        SOPR1           4   PROGRAM*        4/17 L   72/10 S   72/20     80/24 S
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        SOPR2           5   PROGRAM*        4/18 L   72/14 S   72/17
        SQZ          2167   PROGRAM*       73/56     85/20 L
        SQZ40        2214   PROGRAM*       86/06     86/29 L
        SQZ5         2175   PROGRAM*       85/34 L   85/42     85/47     85/56     86/07     86/09     86/15     86/29
        SQZ7         2204   PROGRAM*       85/40     85/54 L
        SSO             0   EXTERNAL*       3/25 X   19/05
        SSY             0   EXTERNAL*       2/55 X   12/40
        STY             0   EXTERNAL*       3/04 X   16/55
        S.CTOI       1473   PROGRAM*       61/11 L   62/24
        S.DTOC       1472   PROGRAM*       61/10 L   62/23
        S.DTOD       1471   PROGRAM*       61/09 L   62/23
        S.DTOI       1467   PROGRAM*       61/07 L   62/23
        S.DTOR       1470   PROGRAM*       61/08 L   62/23
        S.ITOC       1462   PROGRAM*       61/02 L   62/19     62/21
        S.ITOD       1461   PROGRAM*       61/01 L   62/19     62/21
        S.ITOI       1457   PROGRAM*       56/04     56/06     60/56 L
        S.ITOR       1460   PROGRAM*       56/16     56/18     60/57 L
        S.RTOC       1466   PROGRAM*       61/06 L   62/22
        S.RTOD       1465   PROGRAM*       61/05 L   62/22
        S.RTOI       1463   PROGRAM*       56/47     57/02     57/04     57/22     61/03 L
        S.RTOR       1464   PROGRAM*       57/09     57/13     61/04 L
        TER1            0   EXTERNAL*       3/22 X   54/16 S   54/48
        TER2            0   EXTERNAL*       3/22 X   54/22 S
        TEST            0   TSTEXT          8/30 F   31/24 F   31/32 F   33/49 F   86/21 F   86/45 F   86/49 F
        TG.PRO          0   EXTERNAL*       2/41 X   42/25
        TLV             0   EXTERNAL*      12/39
        TNK40          64   PROGRAM*        9/41      9/48 L
        TNK.DBL        55   PROGRAM*        9/29 L   24/21
        TNK.ENT        63   PROGRAM*        9/22      9/47 L
        TO.CC        1316   PROGRAM*       55/54 L   62/24
        TO.CD        1316   PROGRAM*       55/53 L   62/24
        TO.CL        1314   PROGRAM*       55/45 L   62/24
        TO.CR        1316   PROGRAM*       55/52 L   62/24
        TO.DL        1314   PROGRAM*       55/44 L   62/23
        TO.II        1321   PROGRAM*       54/49     56/05 L   62/19     62/21
        TO.IL        1314   PROGRAM*       55/42 L   62/19     62/21
        TO.IR        1326   PROGRAM*       56/17 L   62/19     62/21
        TO.IRA       1344   PROGRAM*       56/26 S   56/41     56/51     56/55 L
        TO.LC        1314   PROGRAM*       55/41 L   62/20
        TO.LD        1314   PROGRAM*       55/40 L   62/20
        TO.LI        1314   PROGRAM*       55/38 L   62/20
        TO.LL        1314   PROGRAM*       55/37 L   62/20
        TO.LR        1314   PROGRAM*       55/39 L   62/20
        TO.RED       1401   PROGRAM*       57/40     58/35 L
        TO.RED2      1403   PROGRAM*       58/36     58/38 L
        TO.RED2A     1407   PROGRAM*       58/42     58/46 L
        TO.RED3      1410   PROGRAM*       58/39     58/49 L   58/53
        TO.RED4      1412   PROGRAM*       58/38     58/44     58/54 L
        TO.RED5      1414   PROGRAM*       58/57     59/03 L
        TO.RI        1346   PROGRAM*       57/03 L   62/22
        TO.RL        1314   PROGRAM*       55/43 L   62/22
        TO.RR        1351   PROGRAM*       57/10 L   62/22
        TO.RR5       1360   PROGRAM*       56/10     56/53     57/05     57/21     57/35 L
        TP=DO           0   EXTERNAL*       2/41 X   41/30     70/12     70/31
        TP.DO           0   EXTERNAL*       2/41 X   41/29     42/41     70/13
        TP.ILI          0   EXTERNAL*      18/29
1       /PAR  P A R S E                                               COMPASS 3.7-871.     24/05/02. 15.52.20.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        TREX          253   PROGRAM*       13/13     13/42     14/15     14/35     14/46     15/01     16/37     17/02
                                           13/22     13/51     14/22     14/37     14/53     16/31     16/44     17/17 L
        TRE10         151   PROGRAM*       13/28     13/30     13/36     13/41 L
        TRE22         152   PROGRAM*       13/15     13/47 L   15/18
        TRE22A        157   PROGRAM*       13/57 L   14/50
        TRE23         160   PROGRAM*       14/02 L   14/09     14/11     14/13
        TRE24         164   PROGRAM*       14/06     14/10 L
        TRE25         165   PROGRAM*       14/08     14/12 L
        TRE30         167   PROGRAM*       13/14     14/19 L
        TRE32         172   PROGRAM*       14/28 L
        TRE33         200   PROGRAM*       14/31     14/33     14/36 L
        TRE40         202   PROGRAM*       14/21     14/41 L
        TRE41         207   PROGRAM*       14/44     14/48 L
        TRE41.5       212   PROGRAM*       14/48     14/52 L
        TRE42         215   PROGRAM*       14/47     14/56 L
        TRE42.5       216   PROGRAM*       14/55     14/57 L
        TRE6          126   PROGRAM*       12/44     12/46 L
        TRE60         217   PROGRAM*       14/41     15/05 L
        TRE7          133   PROGRAM*       13/10     13/14 L
        TRE70         227   PROGRAM*       14/20     15/05     15/56 L
        TRE76         242   PROGRAM*       16/02     16/37 L
        TRE78         243   PROGRAM*       16/11     16/22     16/26     16/42 L
        TRE8          150   PROGRAM*       13/26     13/34     13/38 L
        TRE80         244   PROGRAM*       12/46     16/52 L
        TRE90         251   PROGRAM*       16/54     17/07 L
        TRLINE          0   EXTERNAL*      36/43
        TRVA            0   EXTERNAL*       3/35 X   17/20 S   17/26     67/35 S   67/45     73/55 S   73/57
        TSF             0   EXTERNAL*       3/04 X   17/08     59/39
        TS.CON          0   EXTERNAL*       2/40 X    9/34     66/40
        TS.STN          0   EXTERNAL*       2/41 X   21/14
        TS.SYM          0   EXTERNAL*       2/40 X   15/14     37/53     47/26     51/18     71/13
                                           12/40     16/57     40/46     47/30     52/10
        TT=ASF          0   EXTERNAL*       2/41 X   46/48     46/48 S
        TT=PAR          0   EXTERNAL*       2/40 X   31/43     33/32     51/35     60/28     76/05
                                            6/36     31/43 S   48/31     53/31     74/18     85/25
        TT=SCR          0   EXTERNAL*       2/41 X   21/04     47/39     47/47     47/47 S   77/05     77/16     77/16 S
        TT.PAR          0   EXTERNAL*       2/40 X   33/28     66/23     77/09     86/10
                                           29/36     53/38     74/25     85/22     86/33
        TT.SCR          0   EXTERNAL*       2/41 X   36/03     37/19     37/26     47/43     77/11
        UMINUS          0   EXTERNAL*       2/41 X   26/35
        VALUE.          0   EXTERNAL*       2/42 X   15/13
        VAM             0   EXTERNAL*       3/25 X   37/11     37/44     37/51     47/20     50/03
        VEL             0   EXTERNAL*       3/25 X   50/39     51/14
        VIL             0   EXTERNAL*       3/25 X   47/14     48/53     49/50
        VTRUE           0   EXTERNAL*       2/42 X   19/25
        WOF             0   EXTERNAL*       3/01 X
        ZLE             0   EXTERNAL*       2/42 X    5/07 S   25/15     30/39     30/53 S
        ZLEQUAL         0   EXTERNAL*       2/42 X    5/04
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      416              IDENT  CONRED 
                        416                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       413 
                                        LITERALS* LOCAL         413         3 
  
  
                                        ENTRY POINTS. 
  
                                        TER1           316+           LCT            402+           CMC            322+ 
                                        TER2           317+           CCR              1+           CMO            202+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.RND    MINUS.M   SHFSA     E.CR2     E.CR6     FILL.     SCR       DO.DPC
                                        CONF      PLUS.M    SHFS      E.CR3     E.CR7     NCS       PWE       ARGCOMA 
                                        CONZER    SHFC      TS.CON    E.CR3A    E.CR8     SMOD      A=ARRAY   A=DO
                                        DIVP2     SHFD      CON.DPC   E.CR4     E.CR9     SOPR      ANSI=     ARGMODE 
                                        IMULT2    SHFDS     E.CR1     E.CR5     E.CR10    MULT.R    E.DO16
  
  
  
  
                                                  IDENT  CONRED                                                  CONRED      2
                                         CONRED   SECT   (COMPLILE TIME ARITHMETIC PROCESSOR.),1                 CONRED      3
  
                                                                                                                 CONRED      4
                                                  SST    B,D,EXIT.                                               CONRED      5
                                                  NOREF  B,D,EXIT.                                               CONRED      6
                                                                                                                 CONRED      7
                                         B=CON    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     CONRED      8
                                                                                                                 CONRED      9
                                                  ENTRY  TER1,TER2,LCT,CCR,CMC,CMO                               FCC0787   126
                                                                                                                 CONRED     11
                                        *         IN FTN                                                         CONRED     12
                                                  EXT    CO.RND                                                  CONRED     13
                                                                                                                 CONRED     14
                                        *         IN TABLES                                                      CONRED     15
                                                  EXT    CONF,CONZER,DIVP2,IMULT2,MINUS.M,PLUS.M,SHFC,SHFD,SHFDS CONRED     16
                                                  EXT    SHFSA,SHFS,TS.CON                                       CONRED     17
                                                                                                                 CONRED     18
                                        *         IN ERRORS                                                      CONRED     19
                                                  EXT    CON.DPC,E.CR1,E.CR2,E.CR3,E.CR3A,E.CR4,E.CR5,E.CR6      CONRED     20
                                                  EXT    E.CR7,E.CR8,E.CR9,E.CR10,FILL.                          FCC0787   127
                                                                                                                 CONRED     22
                                        *         IN ALLOC                                                       CONRED     23
                                                  EXT    NCS                                                     CONRED     24
                                                                                                                 CONRED     25
                                        *         IN PAR                                                         CONRED     26
                                                  EXT    SMOD,SOPR                                               CONRED     27
                                                                                                                 CONRED     28
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     2
  
  
                                        *         IN GEN                                                         CONRED     29
                                                  EXT    MULT.R                                                  CONRED     30
                                                                                                                 CONRED     31
                                        *         IN INIT                                                        CONRED     32
                                                  EXT    SCR                                                     CONRED     33
                                                                                                                 CONRED     34
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     3
                                                                      CCR 
  
                                        **        CCR -  CHECK FOR POSSIBLE CONSTANT REDUCTION.                  CONRED     37
                                        *                                                                        CONRED     38
                                        *                     GENERAL PURPOSE ROUTINE TO REDUCE SIMPLE           CONRED     39
                                        *                OPERATOR COMBINATIONS USING EITHER  --                  CONRED     40
                                        *                            A.  PLUS            (PLC SECTION.)          CONRED     41
                                        *                            B.  MINUS           (MIC SECTION.)          CONRED     42
                                        *                            C.  MULTIPLY        (MUC SECTION.)          CONRED     43
                                        *                            D.  DIVIDE          (DIC SECTION.)          CONRED     44
                                        *                                                                        CONRED     45
                                        *                WITH MODE OF OPERATION BEING EITHER  --                 CONRED     46
                                        *                            A. UNIVERSAL                                CONRED     47
                                        *                            B. INTEGER.                                 CONRED     48
                                        *                            C. REAL                                     CONRED     49
                                        *                                                                        CONRED     50
                                        *                ALSO HANDLIES IMPLIED REDUCTIONS.  (IE. A=0/X)          CONRED     51
                                        *                AND OUTPUTS ERRORS FOR *END* CASES.(IE OVERFLOW)        CONRED     52
                                        *                                                                        CONRED     53
                                        *         ENTRY  (X4)    = 1ST OPERAND.                                  CONRED     54
                                        *                (X5)    = 2ND OPERAND.                                  CONRED     55
                                        *                (SOPR)  = CURRENT OPERATOR.                             CONRED     56
                                        *                (SMOD)  = DOMINANT MODE.                                CONRED     57
                                        *                                                                        CONRED     58
                                        *         EXIT   (X6) = 0 NO REDUCTION PERFORMED.                        CONRED     59
                                        *                     " 0 RESULTS OF PERFORMED REDUCTION.                CONRED     60
                                        *                (X4,X5) = PRESERVED.                                    CONRED     61
                                        *                                                                        CONRED     62
                                        *                (B3) =-1       NO CONSTANT.                             CONRED     63
                                        *                     = 0   1ST IS CONSTANT.                             CONRED     64
                                        *                     = 1   2ND IS CONSTANT                              CONRED     65
                                        *                                                                        CONRED     66
                                        *         USES   CANNOT DESTORY  A7  B4,B5,B6  X4,X5                     CONRED     67
                                        *                (X4,X5 CAN BE ALTERED IF EXPRESSION IS REDUCED.)        CONRED     68
                                        *         CELLS  (SCR TO SCR+3)                                          CONRED     69
                                        *                                                                        CONRED     70
                                        *         CALLS  LCT - TO LOAD PROPOSED CONSTANT IN BINARY FORM.         CONRED     71
                                        *                CMC - CHECK IF CONSTANT CAN BE CONVERTED TO MODE OF     CONRED     72
                                        *                      EXPRESSION.                                       CONRED     73
                                        *                NCS - ENTER REDUCED CONSTANT INTO TS.CON.               CONRED     74
                                        *                PCA - PROCESS ACTUAL ARITHMETIC REDUCTIONS.             CONRED     75
                                                                                                                 CONRED     76
                                                                                                                 CONRED     77
             0  7160000000               CCR0     SX6    0                                                       FCC0539    41
                          5130000000 X            SA3    SOPR                                                    FCC0539    42
                                                                                                                 FCC0539    43
             1  0400400001 +             CCR      SUBR               ENTRY/EXIT...                               CONRED     78
             2  5110000000 X                      SA1    SMOD                                                    CONRED     79
                          5120000413 +            SA2    ="CCRMOD"                                               CONRED     80
             3  13666                             BX6    0                                                       CONRED     81
                     63210                        SB2    X1                                                      CONRED     82
                          5160000317 +            SA6    TER2                                                    CONRED     83
             4  5110000000 X                      SA1    SOPR                                                    CONRED     84
                          5160000000 X            SA6    CONF        INDICATE NO CONSTANT IN TURPLE              CONRED     85
             5  22022                             LX0    B2,X2                                                   CONRED     86
                     5120000414 +                 SA2    ="CCROPS"                                               CONRED     87
                               67301              =B3    -1                                                      CONRED     88
             6  0320000001 +                      PL     X0,EXIT.    IF NOT REDUCABLE MODE. - EXIT..             CONRED     89
                          63210                   SB2    X1                                                      CONRED     90
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     4
                                                                      CCR 
  
                               22022              LX0    B2,X2                                                   CONRED     91
             7  0330000016 +                      MI     X0,CCR1     IF REDUCABLE OPERATOR                       FCC0539    44
                          76020                   SX0    B2                                                      FCC0539    45
            10  6122777765                        SB2    B2-O.=                                                  FCC0539    46
                          0520000001 +            NZ     B2,EXIT.    IF NOT EQUALS - EXIT                        FCC0539    47
            11  10144                             BX1    X4                                                      FCC0539    48
                     0100000402 +                 RJ     LCT                                                     FCC0539    49
            12  66710                             SB7    B1                                                      FCC0539    50
                     0420000000 +                 ZR     B2,CCR0     IF NOT A CONSTANT                           FCC0539    51
            13  6220777775                        SB2    X0-M.INT                                                FCC0539    52
                          0520000000 +            NZ     B2,CCR0     IF NOT INTEGER - EXIT                       FCC0539    53
            14  10244                             BX2    X4                                                      FCC0696     5
                     0100000233 +                 RJ     CIR         CHECK IF CONVERSION REQUIRED                FCC0539    54
            15  10422                             BX4    X2                                                      FCC0696     6
                     0400000000 +                 EQ     CCR0        EXIT                                        FCC0539    56
                                                                                                                 CONRED     93
                                        **        REDUCABLE OPERATOR FOUND, MODE IS UNIV, INTEGER OR REAL.       CONRED     94
                                        *         CHECK FOR CONSTANTS AS OPERANDS                                CONRED     95
                                                                                                                 CONRED     96
            16  10144                    CCR1     BX1    X4                                                      FCC0539    57
                     0100000402 +                 RJ     LCT         GET 1ST CONSTANT                            CONRED     98
            17  0420000047 +                      ZR     B2,CCR10    IF  1ST NOT CONSTANT                        CONRED     99
                          66710                   =B7    1                                                       FCC0696     7
                               10244              BX2    X4                                                      FCC0696     8
            20  0100000233 +                      RJ     CIR         CHECK IF LEGAL INTEGER                      FCC0539    59
            21  10422                             BX4    X2                                                      FCC0696     9
                     10166                        BX1    X6                                                      CONRED    100
                          5160000316 +            SA6    TER1                                                    CONRED    101
            22  0100000211 +                      RJ     COC         CHECK IF CONSTANT IN RANGE                  CONRED    102
            23  0670000177 +                      PL     B7,CCR.RX   IF OUT OF RANGE                             CONRED    103
                          10155                   BX1    X5                                                      CONRED    104
                               66300              =B3    0                                                       CONRED    106
            24  0100000402 +                      RJ     LCT         GET 2ND CONSTANT                            CONRED    107
            25  5110000316 +                      SA1    TER1        RELOAD 1ST TERM BINARY                      CONRED    108
                          0420000055 +            ZR     B2,CCR15    IF 2ND NOT CONSTANT, 1ST IS                 CONRED    109
            26  66711                             =B7    2                                                       FCC0696    10
                     10255                        BX2    X5                                                      FCC0696    11
                          0100000233 +            RJ     CIR         CHECK IF LEGAL INTEGER                      FCC0539    62
            27  10522                             BX5    X2                                                      FCC0696    12
                     10366                        BX3    X6                                                      CONRED    110
                          22106                   LX1    X6                                                      CONRED    111
            30  0100000211 +                      RJ     COC         CHECK IF CONSTANT IN RANGE                  CONRED    112
            31  0311000034 +                      NZ     X1,CCR6     IF NOT ZERO                                 CONRED    113
                          5140000000 X            SA4    SOPR                                                    CONRED    114
            32  6234777770                        SB3    X4-O.DIV                                                CONRED    115
                          0530000035 +            NZ     B3,CCR7     IF NOT DIVIDE                               CONRED    116
            33  66310                             =B3    1                                                       CONRED    117
                     0400000055 +                 EQ     CCR15                                                   CONRED    118
                                                                                                                 CONRED    119
            34  0670000177 +             CCR6     PL     B7,CCR.RX   IF OUT OF RANGE                             CONRED    120
                                                                                                                 CONRED    121
                                        **        HERE WHEN BOTH OPERANDS ARE CONSTANTS.                         CONRED    122
                                        *         REDUCE EXPRESSION AT COMPILE TIME.                             CONRED    123
                                                                                                                 CONRED    124
            35  5140000000 X             CCR7     SA4    =XARGMODE                                               CONRED    125
                          6120000000 X            SB2    =XA=DO                                                  CONRED    126
            36  63740                             SB7    X4                                                      CONRED    127
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     5
                                                                      CCR 
  
                     67772                        SB7    B7-B2                                                   CONRED    128
                          0570000044 +            NZ     B7,CCR8     NOT PROCESSING DO                           CONRED    129
            37  5110000000 X                      SA1    =XARGCOMA   DO INDEX NUMBER                             CONRED    130
                          6271000000              SB7    X1+                                                     FCC0539    64
            40  5147000000 X                      SA4    B7+=XDO.DPC DPC FOR CURRENT INDEX                       CONRED    132
                          5110000000 X            SA1    FILL.                                                   CONRED    134
            41  10644                             BX6    X4                                                      FCC0539    65
                     37461                        IX4    X6-X1                                                   CONRED    135
                          0304000044 +            ZR     X4,CCR8     IF MESSAGE JUST GIVEN                       CONRED    136
            42  54610                             SA6    A1                                                      CONRED    137
                     6170000000 X                 ANSI   =XE.DO16    INDEX MUST BE SIMPLE INTEGER                CONRED    138
            44  5110000316 +             CCR8     SA1    TER1        =1ST CONSTANT                               CONRED    139
                          10233                   BX2    X3                                                      CONRED    140
            45  5130000000 X                      SA3    SOPR                                                    CONRED    141
                          0100000246 +            RJ     PCA         PERFORM COMPILE TIME REDUCTION              CONRED    142
            46  0400000001 +                      EQ     EXIT.                                                   CONRED    143
                                                                                                                 CONRED    144
                                        **        HERE WHEN 1ST IS NOT A CONSTANT.                               CONRED    145
                                                                                                                 CONRED    146
            47  10155                    CCR10    BX1    X5                                                      CONRED    147
                     0100000402 +                 RJ     LCT         LOAD 2ND OPERAND.                           CONRED    148
            50  5160000317 +                      SA6    TER2                                                    CONRED    149
                          67301                   =B3    -1          INDICATE NO CONSTANTS.                      CONRED    150
                               22706              LX7    X6                                                      CONRED    151
            51  76600                             =X6    0           INDICATE NO CONSTANTS                       CONRED    152
                     0420000001 +                 ZR     B2,EXIT.    IF NOT CONSTANT - EXIT..                    CONRED    153
                               10677              BX6    X7                                                      FCC0539    66
            52  66711                             =B7    2                                                       FCC0696    13
                     10255                        BX2    X5                                                      FCC0696    14
                          0100000233 +            RJ     CIR         CHECK IF LEGAL INTEGER                      FCC0539    68
            53  10522                             BX5    X2                                                      FCC0696    15
                     10166                        BX1    X6                                                      FCC0539    70
                          0100000211 +            RJ     COC         CHECK FOR CONSTANT IN RANGE                 CONRED    155
            54  0670000177 +                      PL     B7,CCR.RX   IF OUT OF RANGE                             CONRED    156
                          66310                   =B3    1           INDIATE 2ND = CONSTANT.                     CONRED    158
                                                                                                                 CONRED    159
                                        **        ONE OPERAND IS A CONSTANT - CHECK FOR LEGAL OPERATION          CONRED    160
                                        *         INVOLVING CONSTANT OPERAND.                                    CONRED    161
                                        *                                                                        CONRED    162
                                        *         (X1) = BINARY OF CONSTANT                                      CONRED    163
                                        *                (X1) IS IN RANGE.                                       CONRED    164
                                        *                                                                        CONRED    165
                                        *         (B3) = 0 IF 1ST OPERAND IS A CONSTANT                          CONRED    166
                                        *                1 IF 2ND OPERAND IS A CONSTANT                          CONRED    167
                                                                                                                 CONRED    168
            55  5130000000 X             CCR15    SA3    SOPR        CURRENT OPERATOR                            CONRED    169
                          5223000054 +            SA2    X3+OPJTBL-O.PL                                          CONRED    170
            56  13666                             BX6    0           INDICATE NO REDUCTION                       CONRED    171
                                                                                                                 CONRED    172
                     63720                        SB7    X2                                                      CONRED    173
                          5120000000 X            SA2    SMOD                                                    CONRED    174
                                                                                                                 CONRED    175
                                        **        EXIT WITH                                                      CONRED    176
                                        *                (X1) = BINARY OF CONSTANT                               CONRED    177
                                        *                (X2) = (SMOD)                                           CONRED    178
                                                                                                                 CONRED    179
            57  0277000000                        JP     B7          JUMP TO OPERATOR USING CONSTANT             CONRED    180
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     6
                                                                      CCR 
  
                                                                                                                 CONRED    181
            60  00000000000000000064 +   OPJTBL   CON    PLC         *+*                                         CONRED    182
            61  00000000000000000071 +            CON    MIC         *-*                                         CONRED    183
            62  00000000000000000077 +            CON    MUC         *                                           CONRED    184
            63  00000000000000000120 +            CON    DIC         */*                                         CONRED    185
  
  
  
  
                                        **        PLC - OPERATOR IS A PLUS.                                      CONRED    187
                                        *                                                                        CONRED    188
                                        *         A.  CHECK IF ADD OF *0* - NOTE MESSAGE TO PROGRAMMER.          CONRED    189
                                        *         B.  CONVERT CONSTANT TO DOMINANT MODE.                         CONRED    190
                                        *         C.  IF CONSTANT IS = (2**N-1) CHANGE OPERATOR TO MINUS AND     CONRED    191
                                        *             OPERAND TO -(2**N-1)                                       CONRED    192
                                                                                                                 CONRED    193
            64  0311000066 +             PLC      NZ     X1,PLC5     IF NOT *0*                                  CONRED    194
                          6170000000 X            SB7    E.CR1                                                   CONRED    195
            65  0400000175 +                      EQ     CCR.EC      OUTP                                        CONRED    196
            66  0100000202 +             PLC5     RJ     CMO         CHECK FOR MASK ADD                          CONRED    197
            67  0306000166 +                      ZR     X6,CCR.IG   IF FAILURE                                  CONRED    198
                          5130000000 X            SA3    PLUS.M                                                  CONRED    199
            70  0400000075 +                      EQ     MIC10                                                   CONRED    200
  
  
  
  
                                        **        MIC - OPERATOR IS A MINUS.                                     CONRED    202
                                        *                                                                        CONRED    203
                                        *         A.  CHECK IF MINUS OF *0* - NOTE MESSAGE TO PROGRAMMER.        CONRED    204
                                        *         B.  CONVERT CONSTANT TO DOMINANT MODE.                         CONRED    205
                                        *         C.  IF CONSTANT IS = (2**N-1) CHANGE OPERATOR TO PLUS AND      CONRED    206
                                        *             OPERAND TO -(2**N-1)                                       CONRED    207
                                                                                                                 CONRED    208
            71  0311000073 +             MIC      NZ     X1,MIC5     IF NOT *0*                                  CONRED    209
                          0430000166 +            ZR     B3,CCR.IG   IF 0-I, NO REDUCTION                        CONRED    210
            72  6170000000 X                      SB7    E.CR1                                                   CONRED    211
                          0400000175 +            EQ     CCR.EC      OUTPUT NOTE                                 CONRED    212
            73  0100000202 +             MIC5     RJ     CMO         CHECK FOR MASK ADD                          CONRED    213
            74  0306000166 +                      ZR     X6,CCR.IG   IF FAILURE                                  CONRED    214
                          5130000000 X            SA3    MINUS.M                                                 CONRED    215
            75  10733                    MIC10    BX7    X3                                                      CONRED    216
                     22506                        LX5    X6                                                      CONRED    217
                          5170000000 X            SA7    SOPR                                                    CONRED    218
            76  76600                             =X6    0           INDICATE NO REDUCTION                       CONRED    219
                     66310                        =B3    1                                                       CONRED    220
                          0400000001 +            EQ     EXIT.                                                   CONRED    221
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     7
                                                                      MUC 
  
                                        **        MUC -  OPERATOR IS A MULTIPLY.                                 CONRED    223
                                        *                                                                        CONRED    224
                                        *         A.  CHECK FOR MULTIPLY BY *0*. IF SO AND EXPRESSION IS NOT     CONRED    225
                                        *             INTEGER * REAL 0 - ELIMINATE MULTIPLY - SETTING RESULTS TO CONRED    226
                                        *             *0*, OTHERWISE EXIT.                                       CONRED    227
                                        *                                                                        CONRED    228
                                        *         B.  CHECK FOR MULTIPLY BY *1*.  PERFORM SAME TESTS AS *A*      CONRED    229
                                        *             INTEGER * REAL 1 - ELIMINATE MULTIPLY. OTHERWISE EXIT.     CONRED    230
                                        *         C.  IF NO MODE CONVERSION IS SET AND MULTIPLY IS AN INTEGER    CONRED    231
                                        *             CALL *CSI* TO SEE IF MULTIPLY CAN BE CHANGED TO USE        CONRED    232
                                        *             *SHIFT* COMBINATION.                                       CONRED    233
                                        *                                                                        CONRED    234
                                        *         D.  CONVERT CONSTANT TO DOMINANT MODE.                         CONRED    235
                                                                                                                 CONRED    236
                                                                                                                 CONRED    237
            77  0311000101 +             MUC      NZ     X1,MUC10    IF CONSTANT NOT *0*                         CONRED    238
                          6170000000 X            SB7    E.CR2                                                   CONRED    239
           100  0400000171 +                      EQ     CCR.E0      OUTPUT NOTE ERROR - SET RESULTS = 0         CONRED    240
                                                                                                                 CONRED    241
           101  76710                    MUC10    =X7    1                                                       CONRED    242
                     37071                        IX0    X7-X1                                                   CONRED    243
                          0310000106 +            NZ     X0,MUC20    IF NOT INTEGER *1*                          CONRED    244
           102  6170000000 X                      SB7    E.CR5                                                   CONRED    245
                          5120000000 X            SA2    ARGMODE                                                 CONRED    246
           103  73020                             SX0    X2                                                      CONRED    247
                     7120000000 X                 SX2    =XA=ARRAY                                               CONRED    248
                               37002              IX0    X0-X2                                                   CONRED    249
           104  0310000175 +                      NZ     X0,CCR.EC   IF NOT TRANSPARENT TO USER REDUCTION        CONRED    250
                          66700                   =B7    0                                                       CONRED    251
           105  0400000175 +                      EQ     CCR.EC      OUTPUT NOTE ERROR - SET RESULTS = NON CONS  CONRED    252
                                                                                                                 CONRED    253
           106  10011                    MUC20    BX0    X1                                                      CONRED    254
                     7160172040                   SX6    1.0/1S42                                                CONRED    255
                               20022              LX0    L.SHC                                                   CONRED    256
           107  37706                             IX7    X0-X6                                                   CONRED    257
                     0317000115 +                 NZ     X7,MUC30    IF CONSTANT NOT *1.0*                       CONRED    258
                               10022              BX0    X2                                                      CONRED    259
           110  6170000000 X                      SB7    E.CR5                                                   CONRED    260
                          21022                   AX0    18                                                      CONRED    261
           111  0310000166 +                      NZ     X0,CCR.IG   IF OTHER OPERAND IS INTEGER - IGNORE        CONRED    262
                          5120000000 X            SA2    ARGMODE                                                 CONRED    263
           112  73020                             SX0    X2                                                      CONRED    264
                     7120000000 X                 SX2    =XA=ARRAY                                               CONRED    265
                               37002              IX0    X0-X2                                                   CONRED    266
           113  0310000175 +                      NZ     X0,CCR.EC   IF NOT TRANSPARENT TO USER REDUCTION        CONRED    267
                          66700                   =B7    0                                                       CONRED    268
           114  0400000175 +                      EQ     CCR.EC      OUTPUT NOTE ERROR - SET RESULTS = NON CONS  CONRED    269
                                                                                                                 CONRED    270
           115  6272777775               MUC30    =B7    X2-M.INT                                                CONRED    271
                          0570000166 +            NZ     B7,CCR.IG   IF DOMINANT MODE NOT INTEGER                CONRED    272
           116  10611                             BX6    X1          CONSTANT                                    CONRED    273
                     0100000341 +                 RJ     CSI         CHECK FOR USE OF SHIFT MACRO                CONRED    274
           117  13666                             BX6    0           INDICATE NOT REDUCED                        CONRED    275
                     0400000001 +                 EQ     EXIT.                                                   CONRED    276
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     8
                                                                      DIC 
  
                                        **        DIC -  OPERATOR IS DIVIDE.                                     CONRED    278
                                        *                                                                        CONRED    279
                                        *         A.  CHECK FOR DIVIDE INTO *0*. SET RESULTS = 0.                CONRED    280
                                        *                                                                        CONRED    281
                                        *         B.  CHECK FOR DIVIDE BY *0*.   SET RESULTS = INFINITE.         CONRED    282
                                        *                                                                        CONRED    283
                                        *         C.  CHECK FOR DIVIDE BY *1*. IF NON-CONSTANT OPERAND NOT       CONRED    284
                                        *             INTEGER AND CONSTANT NOT REAL 1 - SET RESULTS = NON-CONST. CONRED    285
                                        *                                                                        CONRED    286
                                        *         D.  CHECK FOR DIVIDE BY REAL CONSTANT INTO REAL CONSTANT.      CONRED    287
                                        *             IF SO AND *NOINVERT* IS NOT SET CHANGE CONSTANT TO 1/CONS  CONRED    288
                                        *             AND CHANGE OPERATOR TO MULTIPLY.                           CONRED    289
                                        *                                                                        CONRED    290
                                        *         E.  IF DOMINANT MODE IS INTEGER AND 2ND OPERAND IS A CONSTANT, CONRED    291
                                        *             CHECK IF CONSTANT IS A POWER OF 2.  IF SO CHANGE DIVIDE TO CONRED    292
                                        *             *SHF2* OPERATOR TO PERFORM DIVIDE BY RIGHT SHIFT.          CONRED    293
                                                                                                                 CONRED    294
                                                                                                                 CONRED    295
           120  0311000127 +             DIC      NZ     X1,DIC10    IF CONSTANT NOT *0*                         CONRED    296
                          6170000000 X            SB7    E.CR4                                                   CONRED    297
           121  0430000171 +                      ZR     B3,CCR.E0   IF DIVIDE INTO 0 (1ST OPERAND = 0)          CONRED    298
                          6222777775              SB2    X2-M.INT                                                FCC0539    71
           122  6170000000 X                      SB7    E.CR3A                                                  CONRED    301
                          0420000171 +            ZR     B2,CCR.E0   IF INTEGER DIVIDE                           CONRED    302
           123  7160001777                        SX6    1777B                                                   FCC0539    72
                          73720                   SX7    X2          MODE                                        CONRED    305
                               20660              LX6    48                                                      CONRED    306
           124  0100000000 X                      RJ     NCS         ENTER CONSTANT                              CONRED    307
           125  10266                             BX2    X6                                                      CONRED    308
                     6170000000 X                 SB7    E.CR3                                                   CONRED    309
           126  0400000172 +                      EQ     CCR.NE      OUTPUT FATAL ERROR - SET RESULTS = 1777BS42 CONRED    310
                                                                                                                 CONRED    311
           127  0430000166 +             DIC10    ZR     B3,CCR.IG   IF SECOND OPERAND NOT CONSTANT              CONRED    312
                          76710                   =X7    1                                                       CONRED    313
                               37071              IX0    X7-X1                                                   CONRED    314
           130  0310000132 +                      NZ     X0,DIC15    IF CONSTANT NOT *1*                         CONRED    315
                          6170000000 X            SB7    E.CR6                                                   CONRED    316
           131  0400000175 +                      EQ     CCR.EC      OUTPUT NOTE ERROR - SET RESULTS = NON CONST CONRED    317
                                                                                                                 CONRED    318
           132  7100172040               DIC15    SX0    1.0/1S42                                                FCC1155     4
                          20052                   LX0    P.SHC                                                   FCC1155     5
                               37001              IX0    X0-X1                                                   FCC1155     6
           133  0310000136 +                      NZ     X0,DIC20    IF CONSTANT NOT *1.0*                       FCC1155     7
                          10022                   BX0    X2                                                      CONRED    323
                               21022              AX0    18                                                      CONRED    324
           134  0310000136 +                      NZ     X0,DIC20    IF MODE CONVERSION                          CONRED    325
                          6170000000 X            SB7    E.CR6                                                   CONRED    326
           135  0400000175 +                      EQ     CCR.EC      OUTPUT NOTE ERROR - SET RESULTS = NON CONST CONRED    327
                                                                                                                 CONRED    328
                                        **        CHECK IF DIVIDE CAN BE CHANGED TO A RECIPROCAL MULTIPLY.       CONRED    329
                                                                                                                 CONRED    330
                                         NOINVERT IFEQ   NOINVERT                                                CONRED    331
           136  10022                    DIC20    BX0    X2                                                      CONRED    332
                     21022                        AX0    18                                                      CONRED    333
                          0310000166 +            NZ     X0,CCR.IG   IF MODE CONVERSION                          CONRED    334
           137  6272777775                        =B7    X2-M.INT                                                CONRED    335
                          0570000145 +            NZ     B7,DIC22    IF DOMINANT MODE NOT *INTEGER*              CONRED    336
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE     9
                                                                      DIC 
  
           140  7261777776                        SX6    X1-1                                                    CONRED    337
                          11716                   BX7    X1*X6                                                   CONRED    338
           141  0317000167 +                      NZ     X7,CCR.IG1  IF NOT POWER OF *2*                         CONRED    339
                          24071                   NX0,B7 X1                                                      CONRED    340
           142  5130000000 X                      SA3    DIVP2                                                   CONRED    341
                          6177777720              SB7    B7-47                                                   CONRED    342
           143  77507                             SX5    -B7                                                     CONRED    343
                     10733                        BX7    X3                                                      CONRED    344
                          20530                   LX5    P.PTAGM                                                 CONRED    345
                               76600              =X6    0           INDICATE NO REDUCTION                       CONRED    346
           144  5170000000 X                      SA7    SOPR                                                    CONRED    347
                          0400000001 +            EQ     EXIT.                                                   CONRED    348
                                                                                                                 CONRED    349
           145  6272777774               DIC22    =B7    X2-M.REAL                                               CONRED    350
                          0570000167 +            NZ     B7,CCR.IG1  IF DOMINANT MODE NOT *REAL*                 CONRED    351
           146  10644                             BX6    X4                                                      CONRED    352
                     5160000002 X                 SA6    SCR+2       SAVE 1ST OPERAND                            CONRED    353
                               10711              BX7    X1                                                      CONRED    354
           147  22605                             LX6    X5                                                      CONRED    355
                     5110000415 +                 SA1    =1.0                                                    CONRED    356
                               54661              =A6    A6+1        SAVE 2ND OPERAND                            CONRED    357
           150  10277                             BX2    X7                                                      CONRED    358
                     5130000000 X                 SA3    SOPR                                                    CONRED    359
           151  5170000000 X                      SA7    SCR         SAVE ORGINAL CONSTANT                       CONRED    360
                          0100000246 +            RJ     PCA         PERFORM DIVIDE                              CONRED    361
           152  0570000155 +                      NZ     B7,DIC30    IF NO ERROR IN CONVERTING                   CONRED    362
                                                                                                                 CONRED    363
                                        **        IF ERROR IN CONVERTING TO RECIPROCAL                           CONRED    364
                                                                                                                 CONRED    365
           153  5140000002 X             DIC25    SA4    SCR+2       RELOAD OPERANDS                             CONRED    366
                          5130000000 X            SA3    SOPR                                                    FCC0539    73
           154  54541                             =A5    A4+1                                                    CONRED    367
                     13666                        BX6    0                                                       CONRED    369
                          0400000001 +            EQ     EXIT.                                                   CONRED    370
                                                                                                                 CONRED    371
           155  5160000001 X             DIC30    SA6    SCR+1       SAVE RESULTING TAG                          CONRED    372
                          5110000320 +            SA1    RTER        LOAD RESULTS                                CONRED    373
           156  55261                             =A2    A6-1        ORGINAL CONSTANT                            CONRED    374
                     7130000006                   SX3    O.MULT                                                  CONRED    375
           157  0100000246 +                      RJ     PCA         PERFORM MULTIPLY  (1/CON) * CON             CONRED    376
           160  5120000415 +                      SA2    =1.0                                                    CONRED    377
                          5110000320 +            SA1    RTER                                                    CONRED    378
           161  37612                             IX6    X1-X2                                                   CONRED    379
                     0316000153 +                 NZ     X6,DIC25    IF (1/CON) * CON  .NE. 1 - IGNORE           CONRED    380
           162  5150000001 X                      SA5    SCR+1       RESULTING TAG                               CONRED    381
                          43052                   MX0    -L.SBPR                                                 CONRED    382
                               54451              =A4    A5+1                                                    CONRED    383
           163  7110000000 X                      SX1    MULT.R                                                  CONRED    384
                          7130000006              =X3    O.MULT                                                  CONRED    385
           164  20152                             LX1    P.JPAD                                                  CONRED    386
                     36613                        IX6    X1+X3       CHANGE DIVIDE TO MULTIPLY                   CONRED    387
                          5160000000 X            SA6    SOPR                                                    CONRED    388
           165  10366                             BX3    X6                                                      CONRED    389
                     13666                        =X6                                                            CONRED    390
                          0400000001 +            EQ     EXIT.                                                   CONRED    391
                                         NOINVERT ELSE                                                           CONRED    392
                                         DIC20    BSS    0                                                       CONRED    393
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    10
                                                                      DIC 
  
                                         NOINVERT ENDIF                                                          CONRED    394
  
  
  
  
                                        **        HERE IF NO CONSTANT REDUCTION.                                 CONRED    396
                                        *                                                                        CONRED    397
                                        *         CHECK FOR MODE CONVERSION AT COMPILE TIME OF CONSTANT.         CONRED    398
                                        *         EXIT   (X6) ALWAYS = 0.                                        CONRED    399
                                                                                                                 CONRED    400
           166  0100000322 +             CCR.IG   RJ     CMC                                                     CONRED    401
           167  76600                    CCR.IG1  =X6    0           INDICATE NO REDUCTION                       CONRED    402
                     5130000000 X                 SA3    SOPR        RELOAD OPERATOR                             CONRED    403
           170  0400000001 +                      EQ     EXIT.                                                   CONRED    404
  
  
  
  
                                        **        OUTPUT  FATAL/NOTE/WARNING MESSAGES INVOLVING CONSTANTS        CONRED    406
                                        *         USED AS OPERANDS.                                              CONRED    407
                                        *                                                                        CONRED    408
                                        *         EXPRESSION REDUCES TO CONSTANT 0.                              CONRED    409
                                        *         (X2) = (SMOD)                                                  CONRED    410
                                        *         (B7) = ERROR ADDRESS.                                          CONRED    411
                                                                                                                 CONRED    412
           171  73020                    CCR.E0   SX0    X2          RESULTANT MODE ONLY                         CONRED    413
                     5130000000 X                 SA3    CONZER                                                  CONRED    414
                               36630              IX6    X3+X0       ZERO RESULTS.                               CONRED    415
                                                                                                                 CONRED    416
                                        **        OUTPUT ERROR - EXIT..                                          CONRED    417
                                        *         (X6) = RESULTS /FLAG                                           CONRED    418
                                        *         (B7) = ERROR ADDRESS.                                          CONRED    419
                                                                                                                 CONRED    420
           172  0470000001 +             CCR.NE   ZR     B7,EXIT.    IF TRANSPARENT TO USER REDUCTION            CONRED    421
                          10266                   BX2    X6          SAVE RESULTS / FLAG                         CONRED    422
           173  0100000000 X                      WARN   B7          OUTPUT ERROR.                               CONRED    423
           174  10622                             BX6    X2          RESULTS.                                    CONRED    424
                     0400000001 +                 EQ     EXIT.                                                   CONRED    425
                                                                                                                 CONRED    426
                                        **        EXPRESSION ELIMINATED.                                         CONRED    427
                                        *         (B3) = CONSTANT FLAG                                           CONRED    428
                                                                                                                 CONRED    429
           175  10655                    CCR.EC   BX6    X5                                                      CONRED    430
                     0430000172 +                 ZR     B3,CCR.NE   IF 1ST = CONSTANT, RESULTS = 2ND OPERAND    CONRED    431
                               10644              BX6    X4                                                      CONRED    432
           176  0400000172 +                      EQ     CCR.NE                                                  CONRED    433
                                                                                                                 CONRED    434
                                        **        CONSTANT OUT OF RANGE - NON-STANDARD CONSTANT.                 CONRED    435
                                        *                                                                        CONRED    436
                                        *         (B7) = ERROR ADDRESS                                           CONRED    437
                                                                                                                 CONRED    438
           177  5110000000 X             CCR.RX   SA1    SOPR                                                    CONRED    439
                          5231777773 X            SA3    X1+CON.DPC-O.PL                                         CONRED    440
           200  10633                             BX6    X3                                                      CONRED    441
                     5120000000 X                 SA2    SMOD                                                    CONRED    442
           201  5160000000 X                      SA6    FILL.                                                   CONRED    443
                          0400000171 +            EQ     CCR.E0      CONTINUE                                    CONRED    444
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    11
                                                                      CMO 
  
                                        **        CMO -  CHECK FOR MASK OPERAND.                                 CONRED    446
                                        *                                                                        CONRED    447
                                        *         IF (X1) = (2**N-1), (X6) = -(2**N-1)                           CONRED    448
                                        *                                                                        CONRED    449
                                        *         ENTRY  (B3) = 0, 1ST = CONSTANT                                CONRED    450
                                        *                       1, 2ND = CONSTANT                                CONRED    451
                                        *                (X1) = CONSTANT                                         CONRED    452
                                        *                (X2) = (SMOD)                                           CONRED    453
                                        *                                                                        CONRED    454
                                        *         EXIT   (X6) " 0, CONSTANT CHANGED TO -(CONSTANT)               CONRED    455
                                        *                (TER2) = BINARY OF CONSTANT.                            CONRED    456
                                                                                                                 CONRED    457
                                                                                                                 CONRED    458
           202  0400400202 +             CMO      SUBR               ENTRY/EXIT...                               CONRED    459
           203  13666                             BX6    0           INDICATE FAILURE                            CONRED    460
                     0430000202 +                 ZR     B3,EXIT.                                                CONRED    461
           204  6272777775                        SB7    X2-M.INT                                                CONRED    462
                          76010                   =X0    1                                                       CONRED    463
           205  0570000202 +                      NZ     B7,EXIT.    IF NOT INTEGER                              CONRED    464
                          36010                   IX0    X1+X0                                                   CONRED    465
                               11701              BX7    X0*X1                                                   CONRED    466
           206  0317000202 +                      NZ     X7,EXIT.    IF NOT -(POWER OF 2)                        CONRED    467
                          14611                   BX6    -X1                                                     CONRED    468
                               76711              =X7    M.INT                                                   CONRED    469
           207  5160000317 +                      SA6    TER2                                                    CONRED    470
                          0100000000 X            RJ     NCS                                                     CONRED    471
           210  0400000202 +                      EQ     EXIT.                                                   CONRED    472
  
  
  
  
                                        **        COC -  CHECK OPERAND CONSTANT FOR NON-STANDARD.                CONRED    474
                                        *                                                                        CONRED    475
                                        *         ENTRY  (X0) = MODE OF CONSTANT.                                CONRED    476
                                        *                (X1) = CONSTANT                                         CONRED    477
                                        *                                                                        CONRED    478
                                        *         EXIT   (B7) > 0, NON-STANDARD CONSTANT.                        CONRED    479
                                        *                (X1) = ALWAYS PRESERVED.                                CONRED    480
                                        *                                                                        CONRED    482
                                        *         CANNOT DESTROY - B2,B3,B4,B5,B6  X1,X4,X5,X7                   CONRED    483
                                                                                                                 CONRED    484
                                                                                                                 CONRED    485
           211  0400400211 +             COC      SUBR               ENTRY/EXIT..                                CONRED    486
           212  0310000214 +                      NZ     X0,COC1     IF NOT MODELESS CONSTANT                    FCC1295     6
                          5120000000 X            SA2    SMOD                                                    FCC1295     7
           213  10022                             BX0    X2                                                      FCC1295     8
           214  6270777774               COC1     SB7    X0-M.REAL                                               FCC1295     9
                          0770000211 +            MI     B7,EXIT.    IF NOT FLOATING POINT                       CONRED    489
           215  67701                             =B7    -1                                                      CONRED    491
                     0351000217 +                 OR     X1,COC2     IF CONSTANT INFINITE                        FCC1295    10
           216  0371000217 +                      ID     X1,COC2     IF CONSTANT INDEFINITE                      FCC1295    11
                          0400000211 +            EQ     EXIT.                                                   FCC1295    12
           217  6170000000 X             COC2     SB7    E.CR7                                                   FCC1295    13
                          0400000211 +            EQ     EXIT.                                                   CONRED    496
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    12
                                                                      CIR 
  
                                        **        CIR  -  CHECK IF LEGAL INTEGER.                                FCC0539    75
                                        *         *CIR* CHECKS THE SUPPLIED CONSTANT TO SEE IF IT IS AN          FCC0539    76
                                        *         INTEGER USED IN CONJUNCTION WITH AN * OR /, IF SO *CIR*        FCC0539    77
                                        *         ISSUES A FATAL DIAGNOSTIC.  IF THE CONSTANT IS INVOLVED        FCC0539    78
                                        *         IN A TURPLE WHOSE DOMINANT MODE IS REAL, *CIR* CHECKS          FCC0539    79
                                        *         WHETHER IT MAY PERFORM A CONVERSION.  IF IT MAY, IT WILL,      FCC0539    80
                                        *         ISSUING DIAGNOSTICS AS NECESSARY.                              FCC0539    81
                                        *                                                                        FCC0539    82
                                        *         ENTRY  (X0) = MODE OF CONSTANT.                                FCC0539    83
                                        *                (X2) = OPERATOR FORM OF CONSTANT                        FCC0696    16
                                        *                (X6) = BINARY OF CONSTANT.                              FCC0539    84
                                        *                                                                        FCC0539    85
                                        *         EXIT   AS ENTRY.                                               FCC0539    86
                                        *                                                                        FCC0539    87
                                        *         USES   X1,X3,X7,B2,B7                                          FCC0539    88
                                                                                                                 FCC0539    90
           220  21160                    CIR0     AX1    60-12                                                   FCC0539    91
                     0300000233 +                 ZR     X0,CIR      IF CONSTANT MODE UNIVERSAL                  FCC0539    92
           221  0301000224 +                      ZR     X1,CIR1     IF INTEGER .LT. 2**48                       FCC0539    93
                          10300                   BX3    X0          SAVE X0 TEMPORARILY                         FCC0539    94
           222  6170000000 X                      FATAL  E.CR9                                                   FCC0539    95
           223  10033                             BX0    X3                                                      FCC0539    96
                     0400000233 +                 EQ     CIR                                                     FCC0539    97
                                                                                                                 FCC0539    98
           224  54110                    CIR1     SA1    A1                                                      FCC0539    99
                     20152                        LX1    -18                                                     FCC0539   100
                          63210                   SB2    X1                                                      FCC0539   101
                               21122              AX1    18                                                      FCC0539   102
           225  0420000233 +                      ZR     B2,CIR      IF NO MODE CONVERSION                       FCC0539   103
                          67727                   SB7    B2-B7                                                   FCC0539   104
                               20144              LX1    2*18                                                    FCC0539   105
           226  0470000233 +                      ZR     B7,CIR      IF NO CONVERSION FOR THIS CONSTANT          FCC0539   106
                          27606                   PX6    B0,X6       CONVERT                                     FCC0539   108
                               10711              BX7    X1                                                      FCC0539   109
           227  24606                             NX6    B0,X6                                                   FCC0539   110
                     7100000003                   SX0    M.REAL      SET CONSTANT TYPE EQUAL TO M.REAL           FCC0539   111
                               54710              SA7    A1          RESET SMOD                                  FCC0539   112
           230  5160000245 +                      SA6    CIRA        PRESERVE THE BINARY CONSTANT                FCC0961     5
                          22700                   LX7    X0                                                      FCC0696    17
           231  0100000000 X                      RJ     NCS                                                     FCC0696    18
           232  22206                             LX2    X6                                                      FCC0696    19
                     5110000245 +                 SA1    CIRA                                                    FCC0961     6
                               10611              BX6    X1          RESTORE THE BINARY OF THE CONSTANT          FCC0961     7
                                                                                                                 FCC0539   116
           233  0400400233 +             CIR      SUBR                                                           FCC0539   117
           234  6220777774                        SB2    X0-M.REAL                                               FCC0539   119
                          0620000233 +            PL     B2,EXIT.    IF CONSTANT NOT INTEGER OR OCTAL            FCC0539   120
           235  5110000000 X                      SA1    SOPR        CURRENT OPERATOR                            FCC0539   121
                          43372                   MX3    -2                                                      FCC0539   122
                               20364              LX3    -8                                                      FCC0539   123
           236  63210                             SB2    X1                                                      FCC0539   124
                     46000                        NO                                                             FCC0539   125
                          5110000000 X            SA1    SMOD                                                    FCC0539   126
           237  22323                             LX3    B2,X3                                                   FCC0539   127
                     6221777774                   SB2    X1-M.REAL                                               FCC0539   128
                               46000              NO                                                             FCC0539   129
           240  10166                             BX1    X6                                                      FCC0539   130
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    13
                                                                      CIR 
  
                     0420000220 +                 ZR     B2,CIR0     IF DOMINANT MODE IS REAL                    FCC0539   131
           241  0333000233 +                      MI     X3,EXIT.    IF OPERATOR IS + OR -                       FCC0539   132
                          21160                   AX1    60-12                                                   FCC0539   133
           242  0301000224 +                      ZR     X1,CIR1     IF INTEGER .LT. 2**48                       FCC0539   134
                          10300                   BX3    X0          SAVE X0 TEMPORARILY                         FCC0539   135
           243  6170000000 X                      FATAL  E.CR8                                                   FCC0539   136
           244  10033                             BX0    X3                                                      FCC0539   137
                     0400000233 +                 EQ     CIR                                                     FCC0539   138
                                                                                                                 FCC0961     8
           245                     1     CIRA     BSS    1                                                       FCC0961     9
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    14
                                                                      PCA 
  
                                        **        PCA -  PERFORM COMPILE TIME ARITHMETIC.                        CONRED    498
                                        *                                                                        CONRED    499
                                        *         ENTRY  (X1) = 1ST CONSTANT                                     CONRED    500
                                        *                (X2) = 2ND CONSTANT                                     CONRED    501
                                        *                                                                        CONRED    502
                                        *         NOTE   BOTH (X1) AND (X2) MUST BE OF MODE                      CONRED    503
                                        *                            MODLS,INTEGER, OR REAL                      CONRED    504
                                        *                                                                        CONRED    505
                                        *                (X3) = O.XX FOR OPERATOR.                               CONRED    506
                                        *                       MAY BE ANY OF THE FOLLOWING --                   CONRED    507
                                        *                        1.  O.PL                                        CONRED    508
                                        *                        2.  O.MIN                                       CONRED    509
                                        *                        3.  O.MULT                                      CONRED    510
                                        *                        4.  O.DIV                                       CONRED    511
                                        *                                                                        CONRED    512
                                        *         EXIT   (B7) > 0, TERM REDUCED                                  CONRED    513
                                        *                (X6) = TAG FOR RESULTS                                  CONRED    514
                                        *                (RTER) = RESULTS IN BINARY OF REDUCTION.                CONRED    515
                                        *                                                                        CONRED    516
                                        *                (B7) = 0, ERROR IN REDUCTION.                           CONRED    517
                                        *                                                                        CONRED    518
                                        *         USES   A1,A2,A3,A4,A5  X0  B2,B3,B7                            CONRED    519
                                        *         CELLS  (SCR+4) TO SAVE O.XX                                    CONRED    520
                                        *                                                                        CONRED    521
                                        *         CALLS  COC - TO CHECK RESULTS.                                 CONRED    522
                                        *                NCS - TO ENTER CONSTANT.                                CONRED    523
                                                                                                                 CONRED    524
                                                                                                                 CONRED    525
           246  0400400246 +             PCA      SUBR               ENTRY/EXIT...                               CONRED    526
           247  10633                             BX6    X3                                                      CONRED    527
                     5160000004 X                 SA6    SCR+4       SAVE OPERATOR                               CONRED    529
                               10611              BX6    X1                                                      FCC0539   139
           250  5140000000 X                      SA4    SMOD                                                    FCC0539   140
                          63240                   SB2    X4          DOMINANT MODE                               FCC0539   141
           251  7253777773                        SX5    X3-O.PL                                                 FCC0539   142
                          73740                   SX7    X4          MODE BITS                                   FCC0539   143
                               14055              BX0    -X5                                                     CONRED    550
           252  0520000254 +                      NZ     B2,PCA15    IF MODE NOT UNIVERSAL                       CONRED    551
                          66211                   =B2    M.INT       PROCESS AS INTEGER                          CONRED    552
                               76711              =X7    M.INT       MODE OF RESULT, INTEGER                     FCC1293    15
           253  5170000000 X                      SA7    SMOD                                                    FCC1293    16
                                                                                                                 FCC0539   144
           254  5132000256 +             PCA15    SA3    B2+PCA22-M.INT                                          CONRED    553
                          63200                   SB2    X0                                                      CONRED    554
                               20504              LX5    4           *16                                         CONRED    555
           255  43055                             MX0    -15                                                     CONRED    556
                     63252                        SB2    X5+B2       *15                                         CONRED    557
                          23323                   AX3    B2,X3                                                   CONRED    558
                               15030              BX0    -X0*X3                                                  CONRED    559
           256  63200                             SB2    X0                                                      CONRED    560
                     5130000000 X                 SA3    CO.RND                                                  CONRED    561
           257  0222000000                        JP     B2          JUMP TO PROCESSOR.                          CONRED    562
                                                                                                                 CONRED    563
                                                  POPMAC JUMPTO                                                  CONRED    564
                                         JUMPTO   MACRO  ARG,MODE                                                CONRED    565
                                         .1       IRP    ARG                                                     CONRED    566
                                                  VFD    15/MODE.ARG                                             CONRED    567
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    15
                                                                      PCA 
  
                                         .1       IRP                                                            CONRED    568
                                         JUMPTO   ENDM                                                           CONRED    569
           260  00266 +                  PCA22    JUMPTO (DIV,MU,MI,PL),INT                                      CONRED    570
           261  00301 +                           JUMPTO (DIV,MU,MI,PL),REAL                                     CONRED    571
                                                                                                                 CONRED    572
                                        **        DOMINANT MODE = UNIVERSAL / INTEGER.                           CONRED    573
                                                                                                                 CONRED    574
           262  36612                    INT.PL   IX6    X1+X2                                                   CONRED    575
                     0400000304 +                 EQ     PCA40       CONTINUE                                    CONRED    576
                                                                                                                 CONRED    577
           263  37612                    INT.MI   IX6    X1-X2                                                   CONRED    578
                     0400000304 +                 EQ     PCA40       CONTINUE.                                   CONRED    579
                                                                                                                 CONRED    580
           264  40312                    INT.MU   FX3    X1*X2       CHECK FOR OVERFLOW                          FCC0539   145
                     42612                        IX6    X1*X2       INTEGER MULTIPLY                            FCC0539   146
                          0313000303 +            NZ     X3,PCA30                                                FCC0539   147
           265  0400000304 +                      EQ     PCA40       CONTINUE.                                   CONRED    582
                                                                                                                 CONRED    583
           266  27101                    INT.DIV  IX6    X1/X2                                                   CONRED    584
           270  0400000304 +                      EQ     PCA40       CONTINUE.                                   CONRED    585
                                                                                                                 CONRED    586
                                        **        DOMINANT MODE = REAL.                                          CONRED    587
                                                                                                                 CONRED    588
           271  30012                    REAL.PL  FX0    X1+X2                                                   CONRED    589
                     20345                        LX3    1R+         FADD BIT                                    CONRED    590
                          24600                   NX6    X0                                                      CONRED    591
           272  0323000304 +                      PL     X3,PCA40    IF ROUNDED NOT SELECTED                     CONRED    592
                          34012                   RX0    X1+X2                                                   CONRED    593
                               24600              NX6    X0                                                      CONRED    594
           273  0400000304 +                      EQ     PCA40       CONTINUE.                                   CONRED    595
                                                                                                                 CONRED    596
           274  31012                    REAL.MI  FX0    X1-X2                                                   CONRED    597
                     20346                        LX3    1R-         FSUB BIT                                    CONRED    598
                          24600                   NX6    X0                                                      CONRED    599
           275  0323000304 +                      PL     X3,PCA40    IF ROUNDED NOT SELECTED                     CONRED    600
                          35012                   RX0    X1-X2                                                   CONRED    601
                               24600              NX6    X0                                                      CONRED    602
           276  0400000304 +                      EQ     PCA40       CONTINUE.                                   CONRED    603
                                                                                                                 CONRED    604
           277  40612                    REAL.MU  FX6    X1*X2                                                   CONRED    605
                     20347                        LX3    1R*         FMULT BIT                                   CONRED    606
                          0323000304 +            PL     X3,PCA40    IF ROUNDED NOT SELECTED                     CONRED    607
           300  41012                             RX0    X1*X2                                                   CONRED    608
                     0400000304 +                 EQ     PCA40       CONTINUE.                                   CONRED    609
                                                                                                                 CONRED    610
           301  44612                    REAL.DIV FX6    X1/X2                                                   CONRED    611
                     20350                        LX3    1R/         FDIV BIT                                    CONRED    612
                          0323000304 +            PL     X3,PCA40    IF ROUNDED NOT SELECTED                     CONRED    613
           302  45012                             RX0    X1/X2                                                   CONRED    614
                     0400000304 +                 EQ     PCA40       CONTINUE.                                   CONRED    615
                                                                                                                 CONRED    616
                                        **        REDUCTION PERFORMED                                            CONRED    617
                                        *         (X6) = BINARY OF ARITHMETIC PERFORMED.                         CONRED    618
                                        *         (X7) = MODE OF RESULTS                                         CONRED    619
                                                                                                                 CONRED    620
           303  6170000000 X             PCA30    FATAL  E.CR10                                                  FCC0539   148
                                                                                                                 FCC0539   149
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    16
                                                                      PCA 
  
           304  5160000320 +             PCA40    SA6    RTER        SAVE BINARY OF REDUCTION                    CONRED    621
                          5130000004 X            SA3    SCR+4                                                   CONRED    622
           305  10166                             BX1    X6                                                      CONRED    623
                     73070                        SX0    X7          MODE OF CONSTANT                            CONRED    624
                          0100000211 +            RJ     COC         CHECK IF RESULTING CONSTANT IN RANGE        CONRED    625
           306  0670000311 +                      PL     B7,PCA.RX   IF OUT OF RANGE                             CONRED    626
                          10611                   BX6    X1                                                      CONRED    627
           307  0100000000 X                      RJ     NCS         ADD TO RESULTS TO CON TABLE                 CONRED    628
           310  66710                             =B7    1           INDICATE REDUCTION                          CONRED    629
                     0400000246 +                 EQ     EXIT.                                                   CONRED    630
                                                                                                                 CONRED    631
                                        **        IF UNDEFINED ARITHMETIC OPERATION.                             CONRED    632
                                        *         ONE OF OPERANDS IS NON-STANDARD                                CONRED    633
                                        *                                                                        CONRED    634
                                        *         ENTRY  (B7) = ERROR ADDRESS                                    CONRED    635
                                        *                (X3) = O.XX                                             CONRED    636
                                                                                                                 CONRED    637
           311  6223777773               PCA.RX   SB2    X3-O.PL                                                 CONRED    638
                          5142000000 X            SA4    B2+CON.DPC                                              CONRED    639
           312  5120000000 X                      SA2    SMOD                                                    CONRED    640
                          10644                   BX6    X4                                                      CONRED    641
           313  5110000000 X                      SA1    CONZER                                                  CONRED    642
                          5160000000 X            SA6    FILL.       SET OPERATOR DPC INTO FILL. FOR ERROR       CONRED    643
           314  73020                             SX0    X2                                                      CONRED    644
                     36201                        IX2    X0+X1       SET RESULTS = 0                             CONRED    645
                          0100000000 X            FATAL  B7                                                      CONRED    646
           315  10622                             BX6    X2                                                      CONRED    647
                     66700                        =B7    0           INDICATE ERROR IN REDUCTION                 CONRED    648
                          0400000246 +            EQ     EXIT.                                                   CONRED    649
                                                                                                                 CONRED    650
           316  00000000000000000000     TER1     DATA   0                                                       CONRED    652
           317  00000000000000000000     TER2     DATA   0                                                       CONRED    653
           320  00000000000000000000     RTER     DATA   0           RESULTS OF REDUCTION PERFORMED BY *PCA* IN  CONRED    654
                                                                     BINARY                                      CONRED    655
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    17
                                                                      CMC 
  
                                        **        CMC -  CHECK FOR REDUCTION IN MODE CONVERSION OF CONSTANT.     CONRED    657
                                        *                                                                        CONRED    658
                                        *                THIS ROUTINE IS NOT INTENDED TO CATCH ALL COMPILE TIME  CONRED    659
                                        *         MODE CONVERSIONS.  BUT IT IS SUPPOSE TO CATCH TYPICAL          CONRED    660
                                        *         PROGRAMMER ERRORS WHEN DEALING WITH CONSTANT EXPRESSIONS,      CONRED    661
                                        *         IE.         A=1.0        AS      A=1                           CONRED    662
                                        *                                                                        CONRED    663
                                        *         ENTRY  (X1) = CONSTANT.                                        CONRED    664
                                        *                (X2) = (SMOD), 24/0,18/MODE CONV,18/DOMINANT MODE       CONRED    665
                                        *                (X3) = (SOPR)                                           CONRED    666
                                        *                (B3) = 0 IF 1ST = CONSTANT.                             CONRED    667
                                        *                                                                        CONRED    668
                                        *         EXIT   (B3) = PRESERVED.                                       CONRED    669
                                        *                (X1) = PRESERVED.                                       CONRED    670
                                        *                (X2) = (SMOD) ALTETER IF CONSTANT CONVERTED.            CONRED    671
                                        *                (X3) = (SOPR) ALTERED IF CONSTANT CONVERTED TO (SMOD).  CONRED    672
                                        *                                                                        CONRED    673
                                        *                (SPOR) RESET IF CONVERSION PROCESSED.                   CONRED    674
                                        *         USES   A1,A2,A3,A6,A7  X0  B2,B3,B7                            CONRED    675
                                        *                (SCR, SCR+1)                                            CONRED    676
                                        *         CALLS  NCS                                                     CONRED    677
                                                                                                                 CONRED    678
                                                                                                                 CONRED    679
           321  10400                    CMCX     BX4    X0          IF 1ST = CONSTANT                           CONRED    680
                     7160000000                   SX6    0                                                       CONRED    681
                                                                                                                 CONRED    682
           322  0400400322 +             CMC      SUBR   -           ENTRY/EXIT...                               CONRED    683
           323  6272777774                        =B7    X2-M.REAL                                               CONRED    684
                          21222                   AX2    18                                                      CONRED    685
           324  0302000322 +                      ZR     X2,EXIT.    IF NO MODE CONVERSION                       CONRED    686
                          63220                   SB2    X2          DOMINANT MODE                               CONRED    687
           325  0523000322 +                      NE     B2,B3,EXIT. IF CONSTANT IN DOMINANT MODE                CONRED    688
                          76630                   SX6    B3                                                      CONRED    689
           326  0570000322 +                      NZ     B7,EXIT.    IF NOT REAL                                 CONRED    690
                          5160000000 X            SA6    SCR         SAVE CONSTANT POINTER                       CONRED    691
           327  27101                             PX1    X1                                                      CONRED    692
                     24601                        NX6    X1                                                      CONRED    693
                          54661                   =A6    A6+1                                                    CONRED    694
           330  7170000003                        =X7    M.REAL                                                  CONRED    695
                          5170000000 X            SA7    SMOD        RESET, INDICATING NO MODE CONVERSION        CONRED    696
           331  0100000000 X                      RJ     NCS         ENTER CONSTANT.                             CONRED    697
           332  43111                             MX1    L.MODC                                                  CONRED    698
                     5130000000 X                 SA3    SOPR                                                    CONRED    699
                               20133              LX1    P.MODC+L.MODC                                           CONRED    700
           333  5120000000 X                      SA2    SCR         RELOAD CONSTANT POINTER                     CONRED    701
                          10066                   BX0    X6                                                      CONRED    702
                               15631              BX6    -X1*X3                                                  CONRED    703
           334  54121                             =A1    A2+1        LOAD ACTUAL CONVERTED CONSTANT.             CONRED    704
                     10366                        BX3    X6                                                      CONRED    705
                          54630                   SA6    A3          RESET *SOPR*                                CONRED    706
           335  0302000321 +                      ZR     X2,CMCX     IF 1ST = CONSTANT                           CONRED    707
                          10500                   BX5    X0                                                      CONRED    708
                               76600              =X6    0                                                       CONRED    709
           336  0400000322 +                      EQ     EXIT.                                                   CONRED    710
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    18
                                                                      CSI 
  
                                        **        CSI -  CHECK SHIFT INSTRUCTION USAGE.                          CONRED    712
                                        *                                                                        CONRED    713
                                        *                                                                        CONRED    714
                                        *         INSPIRATION BY --  C. BAGWELL   (SIGPLAN NOTICE)               CONRED    715
                                        *                                          VOLUME 5, NUMBER 7.           CONRED    716
                                        *                                          PAGE 56.                      CONRED    717
                                        *                                                                        CONRED    718
                                        *         THE PURPOSE OF THIS LITTLE ROUTINE IS DEFINED BY THE TIMINGS O CONRED    719
                                        *         AN INTEGER MULTIPLY FOR 6000 MACHINES.                         CONRED    720
                                        *                                                                        CONRED    721
                                        *                6400 TIME = 8.3 US                                      CONRED    722
                                        *                6600 TIME = 2.2 US (INCLUDING SET OF CONSTANT)          CONRED    723
                                        *                                                                        CONRED    724
                                        *         THE CODE PRODUCED BY THIS ROUTINE TIMES OUT AT                 CONRED    725
                                        *                6400      = 3.4 US (WORST CASE)                         CONRED    726
                                        *                6600      = 1.8 US (WORST CASE)                         CONRED    727
                                        *                                                                        CONRED    728
                                        *         IT SEEMS OBVIOUS TO THIS PROGRAMMER, EVEN WITH INTEGER         CONRED    729
                                        *         MULTIPLY THAT THIS ROUTINE SHOULD BE LEFT ACTIVE.  ONE MIGHT   CONRED    730
                                        *         HAVE A POINT ON A 6600 FOR ONLY TRANSFORMING SIMPLE POWERS OF  CONRED    731
                                        *         *2* -- BUT ......                                              CONRED    732
                                        *                                                                        CONRED    733
                                        *                                                                        CONRED    734
                                        *         *CSI* WILL SEE IF AN INTEGER MULTIPLY INSTRUCTION CAN BE       CONRED    735
                                        *         CHANGED TO ONE OF THE FORMS LISTED BELOW.                      CONRED    736
                                        *                                                                        CONRED    737
                                        *          POWER OF 2       DIFFERENCE POWER OF 2      SUM POWER OF 2    CONRED    738
                                        *         ---------------   ---------------------      ---------------   CONRED    739
                                        *         SA1   OPERAND     SA1   OPERAND              SA1   OPERAND     CONRED    740
                                        *         LX1   (K)         BX0   X1                   BX0   X1          CONRED    741
                                        *         BX7    X1         LX1   (J)                  LX1   (K-J)       CONRED    742
                                        *                           LX0   (K)                  IX7   X1+X0       CONRED    743
                                        *                           IX7   X1-X0                LX7   (J)         CONRED    744
                                        *         O=SHFC            O=SHFD                     O=SHFS            CONRED    745
                                        *         (IF FOUND THAT TERM IS (I*2), INSTEAD OF A O=SHFC MACRO,       CONRED    746
                                        *          IMULT2 MACRO IS PROCESSED, THUS PERFORMING MULTIPLY AS        CONRED    747
                                        *          (I+I). )                                                      CONRED    748
                                        *                                                                        CONRED    749
                                        *         ENTRY  (X6)   = CONSTANT MULTIPLIER TO BE CHECKED.             CONRED    750
                                        *                (SOPR) = CURRENT OPERATOR.                              CONRED    751
                                        *                (B3)   = 0  1ST = MULTIPLIER.                           CONRED    752
                                        *                       = 1  2ND = MULTIPLIER.                           CONRED    753
                                        *                                                                        CONRED    754
                                        *         EXIT   (B3) = 0 = INSTRUCTION CHANGED.                         CONRED    755
                                        *                (X5) = MULTIPLIER. (IF CHANGED)                         CONRED    756
                                        *                                                                        CONRED    757
                                        *         USES   A1,A2,A3  X0,X5  B2,B7                                  CONRED    758
                                                                                                                 CONRED    759
                                                                                                                 CONRED    760
                                        **        TRANSFORMATION PERFORMED.                                      CONRED    761
                                        *         (X1) = SHIFT MULTIPLIER.                                       CONRED    762
                                        *         (X3) = NEW OPERATOR.                                           CONRED    763
                                                                                                                 CONRED    764
           337  10633                    CSIX     BX6    X3                                                      CONRED    765
                     0530000340 +                 NZ     B3,CSIX5    IF 2ND IS MULTIPLIER                        CONRED    766
                               22405              LX4    X5                                                      CONRED    767
           340  10511                    CSIX5    BX5    X1          MULTIPLIER TO 2ND OPERAND.                  CONRED    768
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    19
                                                                      CSI 
  
                     5160000000 X                 SA6    SOPR        RESET OPERATOR WORD.                        CONRED    769
                               20530              LX5    P.PTAGM                                                 CONRED    770
                                                                                                                 CONRED    771
                                                                                                                 CONRED    772
           341  0400400341 +             CSI      SUBR   -           ENTRY/EXIT...                               CONRED    773
           342  76310                             =X3    1                                                       CONRED    774
                     37163                        IX1    X6-X3                                                   CONRED    775
                          63760                   SB7    X6          SAVE MULTIPLIER                             CONRED    776
                               11061              BX0    X6*X1                                                   CONRED    777
           343  10211                             BX2    X1                                                      CONRED    778
                     21221                        AX2    17                                                      CONRED    779
                          0312000341 +            NZ     X2,EXIT.                                                CONRED    780
           344  0310000355 +                      NZ     X0,CSI5     IF NOT SIMPLE POWER OF 2                    CONRED    781
                                                                                                                 CONRED    782
                                        *         SET-UP SIMPLE POWER OF 2                                       CONRED    783
                                                                                                                 CONRED    784
                          24076                   NX0,B7 X6          POWER                                       CONRED    785
           345  6177777720                        SB7    B7-47       OFF BIAS                                    CONRED    786
                          5130000000 X            SA3    SHFC                                                    CONRED    787
           346  67707                             SB7    -B7         SHIFT CONSTANT.                             CONRED    788
                     10633                        BX6    X3                                                      CONRED    789
                          76170                   SX1    B7          K                                           CONRED    790
           347  0571000337 +                      NE1    B7,CSIX     IF POWER NOT *1*                            CONRED    791
                          66730                   SB7    B3                                                      CONRED    792
           350  5130000000 X                      SA3    IMULT2      PLUS OPERATOR FOR I+I                       CONRED    793
                          22703                   LX7    X3                                                      CONRED    794
           351  6130777776                        SB3    -1          FLAG NO CONSTANTS IN OPERATION              CONRED    795
                          5170000000 X            SA7    SOPR        RESET MULTIPLIER OPERATOR TO PLUS           CONRED    796
           352  0570000354 +                      NZ     B7,CSI3     IF 2ND OPERAND IS CONSTANT                  CONRED    797
                          22405                   LX4    X5          OVERLAY CONSTANT WITH VARIABLE OPERAND      CONRED    798
           353  0400000341 +                      EQ     EXIT.                                                   CONRED    799
           354  22504                    CSI3     LX5    X4                                                      CONRED    800
                     0400000341 +                 EQ     EXIT.                                                   CONRED    801
                                                                                                                 CONRED    802
                                        *         NOT SIMPLE POWER OF *2*, CHECK IF SUM OF POWER OF *2*          CONRED    803
                                                                                                                 CONRED    804
           355  37203                    CSI5     IX2    X0-X3                                                   CONRED    805
                     63200                        SB2    X0          SAVE K PORTION                              CONRED    806
                          11002                   BX0    X0*X2                                                   CONRED    807
           356  0310000364 +                      NZ     X0,CSI10    IF NO SUM OF POWER OF 2                     CONRED    808
                                                                                                                 CONRED    809
                                        *         SET-UP SUM OF POWER OF 2                                       CONRED    810
                                                                                                                 CONRED    811
                          76220                   SX2    B2          K   NUMBER                                  CONRED    812
                               77172              SX1    B7-B2       J   NUMBER                                  CONRED    813
           357  24022                             NX0,B2 X2                                                      CONRED    814
                     6122777720                   SB2    B2-47       -K  POWER                                   CONRED    815
                               24071              NX0,B7 X1          J   NUMBER                                  CONRED    816
           360  67202                             SB2    -B2                                                     CONRED    817
                     6177777720                   SB7    B7-47       -J  POWER                                   CONRED    818
                               77207              SX2    -B7         J   POWER                                   CONRED    819
           361  5130000000 X                      SA3    SHFS                                                    CONRED    820
                          76027                   SX0    B2+B7       K-J POWER                                   CONRED    821
                               20022              LX0    18                                                      CONRED    822
           362  36120                             IX1    X2+X0       J POWER + (K-J) POWER                       CONRED    823
                     0312000337 +                 NZ     X2,CSIX     IF *J* POWER NOT *0*                        CONRED    824
           363  5130000000 X                      SA3    SHFSA                                                   CONRED    825
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    20
                                                                      CSI 
  
                          0400000337 +            EQ     CSIX        SET EXIT CONDITIONS..                       CONRED    826
                                                                                                                 CONRED    827
                                        *         NOT SUM OF POWER OF *2*, CHECK IF DIFFERENCE OF POWER OF *2*   CONRED    828
                                                                                                                 CONRED    829
           364  12761                    CSI10    BX7    X6+X1                                                   CONRED    830
                     36073                        IX0    X7+X3                                                   CONRED    831
                          11207                   BX2    X0*X7                                                   CONRED    832
           365  0312000373 +                      NZ     X2,CSI20    IF NOT DIFFERENCE OF POWER OF *2*           CONRED    833
                          13261                   BX2    X6-X1       2**J+1 - 1                                  CONRED    834
                                                                                                                 CONRED    835
                                        *         SET-UP DIFFERENCE OF POWER OF 2                                CONRED    836
                                                                                                                 CONRED    837
                               24122              NX1,B2 X2                                                      CONRED    838
           366  6122777720                        SB2    B2-47                                                   CONRED    839
                          76170                   SX1    B7                                                      CONRED    840
                               77202              SX2    -B2         J   POWER                                   CONRED    841
           367  24071                             NX0,B7 X1          K+J POWER                                   CONRED    842
                     6177777717                   SB7    B7-48                                                   CONRED    843
           370  5130000000 X                      SA3    SHFD                                                    CONRED    844
                          77007                   SX0    -B7         K   POWER                                   CONRED    845
                               20222              LX2    18                                                      CONRED    846
           371  36120                             IX1    X2+X0       J .OR. K                                    CONRED    847
                     0312000337 +                 NZ     X2,CSIX     IF *J* POWER NOT ZERO.                      CONRED    848
           372  5130000000 X                      SA3    SHFDS                                                   CONRED    849
                          0400000337 +            EQ     CSIX        SET EXIT CONDITIONS.                        CONRED    850
                                                                                                                 CONRED    851
                                        *         NOT SUM, DIFFERENCE OF POWER OF *2*, CHECK IF (N-1) IS EITHER  CONRED    852
                                        *         SUM OR DIFFERENCE                                              CONRED    853
                                                                                                                 CONRED    854
           373                           CSI20    BSS    0                                                       CONRED    855
           373  0400000341 +                      EQ     EXIT.                                                   CONRED    856
  
  
  
  
                                        **        LCT -  LOAD BINARY OF CONSTANT.                                CONRED    885
                                        *                                                                        CONRED    886
                                        *         ENTRY  (X1)= PROPOSED CONSTANT.                                CONRED    887
                                        *                                                                        CONRED    888
                                        *         EXIT   IF CONSTANT FOUND.                                      CONRED    889
                                        *                (B2) =   1 = SHORT CONSTANT.                            CONRED    890
                                        *                (B2) =  -1 = CONSTANT (K-TAG)                           CONRED    891
                                        *                (X0) = MODE.                                            CONRED    892
                                        *                (X6) = CONSTANT (1ST WORD)                              CONRED    893
                                        *                (X7) = CONSTANT (2ND WORD, B2 = -1, LONG BIT ON)        CONRED    894
                                        *                (X1=X6, X2=X7, TRUE IF LONG BIT SET)                    CONRED    895
                                        *                                                                        CONRED    896
                                        *                IF CONSTANT NOT FOUND.                                  CONRED    897
                                        *                (B2) =   0 = NO CONSTANT.                               CONRED    898
                                        *                (X0) = MODE                                             CONRED    899
                                        *                (X6) = 0                                                CONRED    900
                                        *                                                                        CONRED    901
                                        *         USES   A1,A2  X0  B2,B7                                        CONRED    902
                                                                                                                 CONRED    903
                                                                                                                 CONRED    904
           374  22201                    LCT1     LX2    X1                                                      CONRED    905
                     15010                        BX0    -X0*X1                                                  CONRED    906
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    21
                                                                      LCT 
  
                          6270777774              SB7    X0-M.REAL                                               CONRED    907
           375  21152                             AX1    P.SHC                                                   CONRED    908
                     66210                        =B2    1           INDICATE SHORT CONSTANT                     CONRED    909
                          10611                   BX6    X1                                                      CONRED    910
                               20652              LX6    P.SHC                                                   CONRED    911
           376  0470000402 +                      ZR     B7,LCT      IF REAL CONSTANT                            CONRED    912
                          10611                   BX6    X1                                                      CONRED    913
           377  0311000402 +                      NZ     X1,LCT      IF CONSTANT NOT *0*                         CONRED    914
                          21230                   AX2    P.2BIAS                                                 CONRED    915
           400  0302000402 +                      ZR     X2,LCT      IF TRUE *0* CONSTANT                        CONRED    916
                          43101                   MX1    1                                                       CONRED    917
           401  6272777776                        SB7    X2-1                                                    CONRED    918
                          23671                   AX6    B7,X1       GENERATE *MASK* TYPE CONSTANT               CONRED    919
                                                                                                                 CONRED    920
           402  0400400402 +             LCT      SUBR               ENTRY/EXIT...                               CONRED    921
           403  7120004000                        =X2    M.SHORT                                                 CONRED    922
                          43071                   MX0    -L.MODE                                                 CONRED    923
                               11621              BX6    X2*X1                                                   CONRED    924
           404  0316000374 +                      NZ     X6,LCT1     IF SHORT CONSTANT                           CONRED    925
                          22701                   LX7    X1                                                      CONRED    926
                               15010              BX0    -X0*X1                                                  CONRED    927
           405  21767                             AX7    P.TGB                                                   CONRED    928
                     5120000000 X                 SA2    TS.CON                                                  CONRED    929
                               13666              BX6    0           =0, NO CONSTANT                             CONRED    930
           406  6277777761                        =B7    X7-C.CON/1S13                                           CONRED    931
                          66200                   =B2    0           INDICATE NO CONSTANT.                       CONRED    932
           407  0570000402 +                      NZ     B7,EXIT.    IF NOT *CONSTANT*                           CONRED    933
                                                                                                                 CONRED    934
                          21152                   AX1    P.TAG                                                   CONRED    935
           410  6221437777                        SB2    X1-C.CON                                                CONRED    936
                          53122                   SA1    X2+B2       LOAD CONSTANT (1ST WORD)                    CONRED    937
                               66710              =B7    1           INDICATE CONSTANT                           CONRED    938
           411  54211                             =A2    A1+1        LOAD CONSTANT (2ND WORD)                    CONRED    939
                     67201                        =B2    -1          INDICATE NOT SHORT CONSTANT                 CONRED    940
                          10611                   BX6    X1          1ST WORD                                    CONRED    941
                               22702              LX7    X2          2ND WORD                                    CONRED    942
           412  0400000402 +                      EQ     EXIT.                                                   CONRED    943
                                                  LIST   D                                                       CONRED    944
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ARGMODE 
             0 X                        A=DO
             0 X                        ARGCOMA 
             0 X                        DO.DPC
             0 X                        E.DO16
             0 X                        ANSI= 
             0 X                        A=ARRAY 
             0 X                        PWE 
  
                                        CONTENT OF LITERALS BLOCK.
  
           413  54000000000000000000    = 
           414  03600001000000000000    C# A
           415  17204000000000000000    OP5 
  
           416                                    END                                                            CONRED    945
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    22
  
  
                             55100B CM  STORAGE USED             1657 STATEMENTS      840 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.047 SECONDS         383 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI=           0   EXTERNAL*       5/11
        ARGCOMA         0   EXTERNAL*       5/03
        ARGMODE         0   EXTERNAL*       4/55      7/24      7/41
        A=ARRAY         0   EXTERNAL*       7/26      7/43
        A=DO            0   EXTERNAL*       4/56
        CCR             1   PROGRAM*        1/39 E    3/45 L
        CCR0            0   PROGRAM*        3/42 L    4/09      4/11      4/15
        CCR1           16   PROGRAM*        4/02      4/20 L
        CCR10          47   PROGRAM*        4/22      5/20 L
        CCR15          55   PROGRAM*        4/35      4/48      5/46 L
        CCR6           34   PROGRAM*        4/43      4/50 L
        CCR7           35   PROGRAM*        4/46      4/55 L
        CCR8           44   PROGRAM*        5/02      5/09      5/12 L
        CCR.EC        175   PROGRAM*        6/19      7/28      7/45      8/38     10/43 L
                                            6/38      7/30      7/47      8/48
        CCR.E0        171   PROGRAM*        7/18      8/21      8/24     10/26 L   10/57
        CCR.IG        166   PROGRAM*        6/21      6/36      6/40      7/40      7/50      8/33      8/55     10/11 L
        CCR.IG1       167   PROGRAM*        9/03      9/15     10/12 L
        CCR.NE        172   PROGRAM*        8/31     10/34 L   10/44     10/46
        CCR.RX        177   PROGRAM*        4/30      4/50      5/34     10/52 L
        CIR           233   PROGRAM*        4/13      4/38     12/18     12/29     12/45 L
                                            4/25      5/30     12/23     12/32     13/08
        CIRA          245   PROGRAM*       12/38 S   12/42     13/10 L
        CIR0          220   PROGRAM*       12/17 L   13/01
        CIR1          224   PROGRAM*       12/19     12/25 L   13/04
        CMC           322   PROGRAM*        1/39 E   10/11     17/27 L
        CMCX          321   PROGRAM*       17/24 L   17/51
        CMO           202   PROGRAM*        1/39 E    6/20      6/39     11/14 L
        COC           211   PROGRAM*        4/29      4/42      5/33     11/43 L   16/05
        COC1          214   PROGRAM*       11/44     11/47 L
        COC2          217   PROGRAM*       11/50     11/51     11/53 L
        CONF            0   EXTERNAL*       1/45 X    3/52 S
        CONZER          0   EXTERNAL*       1/45 X   10/27     16/22
        CON.DPC         0   EXTERNAL*       1/49 X   10/53     16/19
        CO.RND          0   EXTERNAL*       1/42 X   14/51
        CSI           341   PROGRAM*        7/52     19/05 L
        CSIX          337   PROGRAM*       18/54 L   19/23     19/56     20/01     20/23     20/25
        CSIX5         340   PROGRAM*       18/55     18/57 L
        CSI10         364   PROGRAM*       19/40     20/05 L
        CSI20         373   PROGRAM*       20/08     20/30 L
        CSI3          354   PROGRAM*       19/29     19/32 L
        CSI5          355   PROGRAM*       19/13     19/37 L
        C.CON      340000   TSTEXT         21/25     21/30
        DIC           120   PROGRAM*        6/05      8/19 L
        DIC10         127   PROGRAM*        8/19      8/33 L
        DIC15         132   PROGRAM*        8/36      8/40 L
        DIC20         136   PROGRAM*        8/43      8/46      8/53 L
        DIC22         145   PROGRAM*        8/57      9/14 L
        DIC25         153   PROGRAM*        9/30 L    9/44
        DIC30         155   PROGRAM*        9/26      9/36 L
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    23
        SYMBOLIC REFERENCE TABLE. 
  
        DIVP2           0   EXTERNAL*       1/45 X    9/05
        DO.DPC          0   EXTERNAL*       5/05
        E.CR1           0   EXTERNAL*       1/49 X    6/18      6/37
        E.CR10          0   EXTERNAL*       1/50 X   15/56
        E.CR2           0   EXTERNAL*       1/49 X    7/17
        E.CR3           0   EXTERNAL*       1/49 X    8/30
        E.CR3A          0   EXTERNAL*       1/49 X    8/23
        E.CR4           0   EXTERNAL*       1/49 X    8/20
        E.CR5           0   EXTERNAL*       1/49 X    7/23      7/38
        E.CR6           0   EXTERNAL*       1/49 X    8/37      8/47
        E.CR7           0   EXTERNAL*       1/50 X   11/53
        E.CR8           0   EXTERNAL*       1/50 X   13/06     13/06
        E.CR9           0   EXTERNAL*       1/50 X   12/21     12/21
        E.DO16          0   EXTERNAL*       5/11
        FILL.           0   EXTERNAL*       1/50 X    5/06     10/56 S   16/23 S
        IMULT2          0   EXTERNAL*       1/45 X   19/25
        INT.DIV       266   PROGRAM*       15/03     15/19 L
        INT.MI        263   PROGRAM*       15/03     15/11 L
        INT.MU        264   PROGRAM*       15/03     15/14 L
        INT.PL        262   PROGRAM*       15/03     15/08 L
        LCT           402   PROGRAM*        1/39 E    4/21      5/21     21/08     21/15 L
                                            4/07      4/33     21/06     21/10
        LCT1          374   PROGRAM*       20/56 L   21/19
        L.MODC         11   TSTEXT         17/42     17/44
        L.MODE          3   TSTEXT         21/17
        L.SBPR         22   TSTEXT          9/46
        L.SHC          22   TSTEXT          7/34
        MIC            71   PROGRAM*        6/03      6/35 L
        MIC10          75   PROGRAM*        6/23      6/42 L
        MIC5           73   PROGRAM*        6/35      6/39 L
        MINUS.M         0   EXTERNAL*       1/45 X    6/41
        MUC            77   PROGRAM*        6/04      7/16 L
        MUC10         101   PROGRAM*        7/16      7/20 L
        MUC20         106   PROGRAM*        7/22      7/32 L
        MUC30         115   PROGRAM*        7/36      7/49 L
        MULT.R          0   EXTERNAL*       2/02 X    9/48
        M.INT           2   TSTEXT          4/10      8/22     11/17     14/39     14/43
                                            7/49      8/56     11/24     14/40
        M.REAL          3   TSTEXT          9/14     12/36     12/55     17/28     17/39
                                           11/47     12/46     17/28     17/39     21/01
        M.SHORT      4000   TSTEXT         21/16     21/16
        NCS             0   EXTERNAL*       1/53 X    8/28     11/26     12/40     16/08     17/41
        NOINVERT        0   TSTEXT          8/52 F
        OPJTBL         60   PROGRAM*        5/47      6/02 L
        O.DIV           7   TSTEXT          4/45
        O.MULT          6   TSTEXT          9/39      9/49
        O.PL            4   TSTEXT          5/47     10/53     14/35     16/18
        O.=            12   TSTEXT          4/04
        PCA           246   PROGRAM*        5/15      9/25      9/40     14/29 L
        PCA15         254   PROGRAM*       14/38     14/43 L
        PCA22         260   PROGRAM*       14/43     15/03 L
        PCA30         303   PROGRAM*       15/16     15/56 L
        PCA40         304   PROGRAM*       15/09     15/17     15/27     15/35     15/42     15/48     16/01 L
                                           15/12     15/20     15/30     15/38     15/44     15/50
        PCA.RX        311   PROGRAM*       16/06     16/18 L
        PLC            64   PROGRAM*        6/02      6/17 L
        PLC5           66   PROGRAM*        6/17      6/20 L
1       /CONRED  COMPLILE TIME ARITHMETIC PROCESSOR.                  COMPASS 3.7-871.     24/05/02. 15.52.28.      PAGE    24
        SYMBOLIC REFERENCE TABLE. 
  
        PLUS.M          0   EXTERNAL*       1/45 X    6/22
        PWE             0   EXTERNAL*      10/36     12/21     13/06     15/56     16/26
        P.JPAD         52   TSTEXT          9/50
        P.MODC         22   TSTEXT         17/44
        P.PTAGM        30   TSTEXT          9/09     19/02
        P.SHC          52   TSTEXT          8/41     21/02     21/05
        P.TAG          52   TSTEXT         21/29
        P.TGB          67   TSTEXT         21/22
        P.2BIAS        30   TSTEXT         21/09
        REAL.DIV      301   PROGRAM*       15/04     15/46 L
        REAL.MI       274   PROGRAM*       15/04     15/32 L
        REAL.MU       277   PROGRAM*       15/04     15/40 L
        REAL.PL       271   PROGRAM*       15/04     15/24 L
        RTER          320   PROGRAM*        9/37      9/42     16/01 S   16/33 L
        SCR             0   EXTERNAL*       2/05 X    9/24 S    9/36 S   14/31 S   17/35 S
                                            9/17 S    9/30      9/45     16/02     17/45
        SHFC            0   EXTERNAL*       1/45 X   19/19
        SHFD            0   EXTERNAL*       1/45 X   20/19
        SHFDS           0   EXTERNAL*       1/45 X   20/24
        SHFS            0   EXTERNAL*       1/46 X   19/52
        SHFSA           0   EXTERNAL*       1/46 X   19/57
        SMOD            0   EXTERNAL*       1/56 X    5/51     11/45     14/33     16/20
                                            3/46     10/55     12/53     14/41 S   17/40 S
        SOPR            0   EXTERNAL*       1/56 X    4/44      6/44 S    9/31     10/52     19/01 S
                                            3/43      5/14      9/11 S    9/52 S   12/48     19/28 S
                                            3/51      5/46      9/23     10/13     17/43
        TER1          316   PROGRAM*        1/39 E    4/28 S    4/34      5/12     16/31 L
        TER2          317   PROGRAM*        1/39 E    3/50 S    5/22 S   11/25 S   16/32 L
        TS.CON          0   EXTERNAL*       1/46 X   21/23
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      253              IDENT  ASF
                        253                       END 
  
  
                                        ENTRY POINTS. 
  
                                        AFDEX          134+           AFR            142+           AFD              0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        INAFR     TT.ASF    E.AF4     FILL.2    ADW       ASFARG    SCR2      PWE 
                                        REFVAR    E.AF10    E.AF5     ERR=F     SSY       FWAASF    ALC 
                                        TT=SCR    E.AF11    E.AF6     E.AF17    SCT       FWAARG    TSF 
                                        TT.SCR    E.AF15    E.AF7     ALC.ASF   SCS       FWAREF    MVE 
                                        TS.SYM    E.AF16    E.AF9     ALC.REG   PSP       SCR       E.TC2 
                                        TT=ASF    E.AF3     FILL.     SCSA      ASFERR    SVB6      TLV 
  
  
  
  
                                                  IDENT  ASF                                                     ASF         2
                                         ASF      SECT   (*ASF* DEFINITION / REFERENCE PROCESSORS),1             ASF         3
  
                                                                                                                 ASF         4
                                                  SST    A,B,D,EXIT.                                             ASF         5
                                                  NOREF  A,B,D,EXIT.                                             ASF         6
                                                                                                                 ASF         7
                                         B=ASF    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     ASF         8
                                                                                                                 ASF         9
                                                  ENTRY  AFDEX,AFR,AFD                                           ASF        10
                                                                                                                 ASF        11
                                        *         IN TABLES                                                      ASF        12
                                                  EXT    INAFR,REFVAR,TT=SCR,TT.SCR,TS.SYM,TT=ASF,TT.ASF         ASF        13
                                                                                                                 ASF        14
                                        *         IN ERRORS                                                      ASF        15
                                                  EXT    E.AF10,E.AF11                                           ASF        16
                                                  EXT    E.AF15,E.AF16,E.AF3,E.AF4,E.AF5,E.AF6,E.AF7,E.AF9       ASF        17
                                                  EXT    FILL.,FILL.2,ERR=F                                      FEAT126C  175
                                                  EXT    E.AF17                                                  FCC1247    13
                                                                                                                 ASF        20
                                        *         IN ALLOC                                                       ASF        21
                                                  EXT    ALC.ASF,ALC.REG,SCSA,ADW,SSY,SCT,SCS                    ASF        22
                                                                                                                 ASF        23
                                        *         IN MAIN                                                        ASF        24
                                                  EXT    PSP                                                     ASF        25
                                                                                                                 ASF        26
                                        *         IN INIT                                                        ASF        27
                                                  EXT    ASFERR,ASFARG,FWAASF,FWAARG,FWAREF,SCR,SVB6,SCR2        ASF        28
                                                                                                                 ASF        29
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     2
                                                                      ASF 
  
                                        **        *ASF* IS ENTERED BY MASTER LOOP WHEN A STATEMENT FUNCTION      ASF        31
                                        *                DEFINITION IS ENCOUNTERED, AND IS CALLED BY *PAR* TO    ASF        32
                                        *                EXPAND A STATEMENT FUNCTION REFERENCE.                  ASF        33
  
  
  
  
                                        **        AFD -  ARITHMETIC FUNCTION DEFINITION PROCESSOR.               ASF        35
                                        *         ENTERED FROM COMPILERS MASTER LOOP.                            ASF        36
                                        *         ENTRY  (B4) - START OF STATEMENT.                              ASF        37
                                        *         EXIT   TO *PSP*.                                               ASF        38
                                        *                                                                        ASF        39
                                        *         TT.ASF ENTRY FORMAT.                                           ASF        40
                                        *         1      = 24/0, 18/0, 18/LENGTH OF SKELETON + ARGUMENT WORDS    ASF        41
                                        *         2 TO N = 6/0, 18/LEN OF REF, 18/FWA OF REF, 18/NO OF USES      ASF        42
                                        *                                                                        ASF        43
                                        *         N+1    = ACTUAL SKELETON, WITH DUMMY PARAMETERS ENTRIES IN THE ASF        44
                                        *                  FOLLOWING FORMAT                                      ASF        45
                                        *                  18/PARAMETER NUMBER, 24/0, 18/O.ASFA                  ASF        46
                                        *                                                                        ASF        47
                                        *         USES TT.SCR FOR PARAMETER CHECKING.                            ASF        48
                                                                                                                 ASF        49
                                                                                                                 ASF        50
             0  76600                    AFD      SHRINK TT=SCR,0                                                ASF        51
                               43052              MX0    L.SYM                                                   ASF        52
             1  56240                             =A2    B4          CHECK IF ALREADY DEFINED                    FCC1247A    5
                     11602                        BX6    X0*X2                                                   FCC1247    15
                          5160000000 X            SA6    FILL.                                                   FCC1247    16
             2  5110000000 X                      SCAN   TS.SYM,SSY                                              FCC1247    17
             3  43052                             MX0    L.SYM                                                   FCC1247A    6
                     0770000014 +                 MI     B7,AFD05    IF SYMBOL NOT FOUND                         FCC1247A    7
             4  7120020000                        SX2    M.NVAR                                                  FCC1247    19
                          11226                   BX2    X2*X6                                                   FCC1247    20
             5  0312000010 +                      NZ     X2,AFD03    IF NVAR                                     FCC1247A    8
                          7120010020              SX2    M.VAR+M.FP                                              FCC1247    22
             6  11226                             BX2    X2*X6                                                   FCC1247    23
                     0302000014 +                 ZR     X2,AFD05    IF NOT NVAR, VAR OR FP                      FCC1247A    9
             7  0400000000 X                      EQ     E.AF17      CONFLICTING DEFINITION                      FCC1247    25
                                                                                                                 FCC1247    26
            10  7120002000               AFD03    SX2    M.ASF       HERE IF NVAR                                FCC1247    27
                          11226                   BX2    X2*X6                                                   FCC1247    28
            11  0302000000 X                      ZR     X2,E.AF17   IF NOT ASF, FATAL ERROR                     FCC1247A   10
                          6170000000 X            WARN   E.AF16      DUPLICATE ASF, NEW OVERRIDES                FCC1247    30
            13  43052                             MX0    L.SYM                                                   FCC1247    31
            14  56241                    AFD05    =A2    B4+1                                                    ASF        53
                     66441                        =B4    B4+1                                                    ASF        54
                          6272777767              SB7    X2-O.(                                                  ASF        55
            15  0570000014 +                      NZ     B7,AFD05    IF LEFT PAREN NOT FOUND                     ASF        56
                          57241                   =A2    B4-1                                                    ASF        57
                               11602              BX6    X0*X2                                                   ASF        58
            16  5110000000 X                      ADDWD  TT.SCR                                                  ASF        59
            17  5160000000 X                      SA6    FILL.                                                   ASF        60
                                                                                                                 ASF        61
                                        **        ADD DUMMY ARGS TO SCRATCH TABLE                                ASF        62
                                                                                                                 ASF        63
            20  56441                    AFD10    =A4    B4+1                                                    ASF        64
                     66441                        =B4    B4+1                                                    ASF        65
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     3
                                                                      AFD 
  
                          6274777774              SB7    X4-O.VAR                                                ASF        66
            21  0570000000 X                      NZ     B7,=XE.AF15       IF NOT VARIABLE                       ASF        67
                          43052                   MX0    L.SYM                                                   ASF        68
                               11640              BX6    X4*X0                                                   ASF        69
            22  5160000000 X                      SA6    FILL.2                                                  FCC0396    19
                          5110000000 X            SCAN   TT.SCR,SCT  LOOK FOR DUMMY ARG                          ASF        70
            24  0770000027 +                      MI     B7,AFD13    IF NOT ALREADY REFERENCED                   ASF        71
                          6170000000 X            FATAL  =XE.AF9     DUPLICATE DUMMY ARG                         ASF        73
            26  0400000030 +                      EQ     AFD13A      DONOT ADD ERROR ENTRY TO TT.SCR             FCCA526    13
            27  5110000000 X             AFD13    ADDWD  TT.SCR                                                  ASF        74
            30  56441                    AFD13A   =A4    B4+1                                                    FCCA526    14
                     6274777774                   SB7    X4-O.VAR                                                ASF        76
            31  0570000032 +                      NZ     B7,AFD14    IF NOT LONG NAME                            ASF        77
                          0100000000 X            RJ     =XTLV       TRUNCATE NAME                               ASF        78
            32  56441                   AFD14     =A4    B4+1                                                    ASF        79
                     66441                        =B4    B4+1                                                    ASF        80
                          6274777764              SB7    X4-O.COMMA                                              ASF        81
            33  0470000020 +                      ZR     B7,AFD10    IF MORE ARGS                                ASF        82
                          6274777766              SB7    X4-O.)                                                  ASF        83
            34  0470000036 +                      ZR     B7,AFD20    IF RIGHT PAREN FOUND                        ASF        84
                          10644                   BX6    X4                                                      ASF        85
            35  5160000000 X                      SA6    FILL.                                                   ASF        86
                          0400000000 X            EQ     =XE.TC2     EXPECTED COMMA OR RIGHT PAREN               ASF        87
                                                                                                                 ASF        88
                                        **        HERE IF END OF ARGUMENT STRING FOUND                           ASF        89
                                        *         (B4) _ CLOSING *)*                                             ASF        90
                                                                                                                 ASF        91
            36  56241                    AFD20    SA2    B4+B1                                                   ASF        92
                     66441                        SB4    B4+B1                                                   ASF        93
                          6272777765              SB7    X2-O.=                                                  ASF        94
            37  0570000000 X                      NZ     B7,E.AF3    IF NO *=* FOLLOWING END OF ARUGMENTS        ASF        95
                          76640                   SX6    B4                                                      ASF        96
                               66540              SB5    B4          LENGTH OF *ASF* SKELETON                    ASF        97
            40  5120000136 +                      SA2    ASFMASK                                                 ASF        98
                          5160000001 X            SA6    SCR+1       SAVE START OF *ASF*                         ASF        99
            41  10622                             BX6    X2                                                      ASF       100
                     5160000000 X                 SA6    SCSA        SET MASK FOR *SCS*                          ASF       101
                                                                                                                 ASF       102
                                        **        HERE IF *=* FOUND AFTER END OF ARGUMENTS.                      ASF       103
                                        *         SCAN THROU *ASF* REPLACING ALL REFERENCES TO DUMMY PARAMETERS  ASF       104
                                        **T  DUM-ARG     18/ PARAM NUM,  24/ ,  18/ O.AFSA                       ASF       105
                                        *                CHECK IF ASF IS RECURSIVE, AND OUTPUT ERROR IF SO.      ASF       106
                                                                                                                 ASF       107
            42  56141                    AFD30    SA1    B4+B1                                                   ASF       108
                     66441                        SB4    B4+B1                                                   ASF       109
                          10611                   BX6    X1                                                      ASF       110
            43  0301000065 +                      ZR     X1,AFD50    IF *EOS*                                    ASF       111
                          6271777774              SB7    X1-O.VAR                                                ASF       112
            44  0570000042 +                      NZ     B7,AFD30    IF NOT VARIABLE, WHY BOTHER                 ASF       113
                          10011                   BX0    X1                                                      ASF       114
            45  5110000141 +                      SA1    OCTCK                                                   ASF       115
                          37010                   IX0    X1-X0                                                   ASF       116
            46  0310000051 +                      NZ     X0,AFD31    IF NOT OCTAL CONSTANT                       ASF       117
                          57141                   =A1    B4-1                                                    ASF       118
            47  6271777775                        SB7    X1-O.CONS                                               ASF       119
                          0570000051 +            NZ     B7,AFD31    IF NOT OCTAL CONSTANT                       ASF       120
            50  0400000042 +                      EQ     AFD30                                                   ASF       121
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     4
                                                                      AFD 
  
            51  5110000000 X             AFD31    SCAN   TT.SCR,SCS  SCAN TO SEE IF ARGUMENT                     ASF       122
            52  0770000042 +                      MI     B7,AFD30    IF NOT IN TABLE (NOT ARGUMENT)              ASF       123
                          0470000000 X            ZR     B7,E.AF6    IF RECURSIVE DEFINITION.                    ASF       124
            53  76010                             =X0    1                                                       ASF       125
                     36702                        IX7    X0+X2       UPDATE USE COUNT                            ASF       126
                          76670                   SX6    B7                                                      ASF       127
                               54720              SA7    A2          RESET WITH USE COUNT UPDATED                ASF       128
                                                                                                                 ASF       129
                                        **        HERE IF ARGUMENT REFERENCE FOUND.                              ASF       130
                                                                                                                 ASF       131
            54  20652                             LX6    P.TAG                                                   ASF       132
                     7100000040                   SX0    O.ASFA                                                  ASF       133
                               36606              IX6    X0+X6                                                   ASF       134
            55  56640                             SA6    B4          RESET TO INDICATE ARGUMENT.                 ASF       135
                     56341                        =A3    B4+1                                                    ASF       136
                          6273777774              SB7    X3-O.VAR                                                ASF       137
            56  0570000042 +                      NZ     B7,AFD30    IF NOT LONG NAME                            ASF       138
                                                                                                                 ASF       139
                                        **        THROW AWAY EXCESS TOKENS IN NAME (OVERWRITE STRING BUFFER)     ASF       140
                                                                                                                 ASF       141
            57  54331                    AFD32    =A3    A3+1                                                    ASF       142
                     6273777774                   SB7    X3-O.VAR                                                ASF       143
            60  0470000057 +                      ZR     B7,AFD32    IF MORE TOKENS IN NAME                      ASF       144
                          55131                   =A1    A3-1                                                    ASF       145
            61  54111                    AFD34    =A1    A1+1                                                    ASF       146
                     0311000061 +                 NZ     X1,AFD34    IF NOT EOS                                  ASF       147
                               65731              =B7    A3-1                                                    ASF       148
            62  75117                             MVE    A1-B7,A3,B4+1     THROW AWAY THE WHOLE BLOODY MESS      ASF       149
            64  0400000042 +                      EQ     AFD30       CONTINUE                                    ASF       150
                                                                                                                 ASF       151
                                        **        VALIDATE THAT ALL DUMMY PARAMETERS ARE USED.                   ASF       152
                                        *         (IF ONE IS NOT USED OUTPUT WARNING MESSAGE.)                   ASF       153
                                                                                                                 ASF       154
            65  5120000000 X             AFD50    SA2    TT=SCR                                                  ASF       155
                          5140000000 X            SA4    TT.SCR                                                  ASF       156
            66  6232777776                        SB3    X2-1        DO NOT CHECK ASF NAME ITSELF.               ASF       157
                          43552                   MX5    L.SYM                                                   ASF       158
                               67545              SB5    B4-B5       LENGTH OF ASF SKELETON                      ASF       159
            67  66630                             SB6    B3          NUMBER OF PARAMETERS.                       ASF       160
                                                                                                                 ASF       161
            70  53243                    AFD52    SA2    X4+B3                                                   ASF       162
                     67331                        SB3    B3-B1                                                   ASF       163
                          73120                   SX1    X2                                                      ASF       164
            71  0730000075 +                      MI     B3,AFD60    IF END OF ARGUMENT LIST.                    ASF       165
                          0311000070 +            NZ     X1,AFD52    IF ARGUMENT USED                            ASF       166
            72  11652                             BX6    X5*X2                                                   ASF       167
                     5160000000 X                 SA6    FILL.2      ARGUMENT NOT USED.                          ASF       168
            73  6170000000 X                      WARN   E.AF7       ARGUMENT NEVER USED.                        ASF       169
            74  0400000070 +                      EQ     AFD52       LOOP THROUGH TABLE                          FEAT126C  176
                                                                                                                 ASF       171
                                        **        HERE WHEN ALL ARGUMENT REFERENCES IN *ASF* HAVE BEEN           ASF       172
                                        *         TRANSLATED AND VALIDATED                                       ASF       173
                                        *         NOW ADD SKELETON FOR *ASF* TO TT.ASF TABLE.                    ASF       174
                                        *         (B5) = LENGTH OF SKELETON FOR THIS ASF.                        ASF       175
                                        *         (B6) = NUMBER OF PARAMETERS.                                   ASF       176
                                                                                                                 ASF       177
            75  0615000000 X             AFD60    LE     B5,B1,E.AF4 IF NULL PARAMETER LIST.                     FCC0396    20
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     5
                                                                      AFD 
  
                          5120000000 X            SA2    ERR=F                                                   FEAT126C  177
            76  0312000134 +                      NZ     X2,AFDEX    IF ERRORS, SUPPRESS DEFINITION              ASF       180
                          76661                   =X6    B6+1                                                    ASF       181
                               76750              SX7    B5                                                      ASF       182
            77  5160000140 +                      SA6    ARGNUM      SAVE B6 CELL                                ASF       183
                          5170000137 +            SA7    ASFLEN      SAVE B5 CELL                                ASF       184
                                                                                                                 ASF       185
                                        **        MAKE SYMBOL TABLE ENTRY                                        ASF       186
                                                                                                                 ASF       187
           100  5110000000 X                      SA1    TT.SCR                                                  ASF       188
                          7160000004              =X6    CR.DEC                                                  ASF       189
           101  53210                             SA2    X1                                                      ASF       190
                     5160000000 X                 SA6    REFVAR      SET REF MAP VALUE                           ASF       191
                               10622              BX6    X2                                                      ASF       192
           102  5110000000 X                      SCAN   TS.SYM,SSY                                              ASF       193
           103  0770000106 +                      MI     B7,AFD62    IF NOT ALREADY IN TABLE                     ASF       194
                          7130022210              =X3    M.DEF+M.ASF+M.NVAR+M.FUN                                ASF       195
           104  66771                             =B7    B7+1                                                    ASF       196
                     12736                        BX7    X3+X6                                                   ASF       197
                          54720                   SA7    A2                                                      ASF       198
           105  0400000110 +                      EQ     AFD64                                                   ASF       202
                                                                                                                 ASF       203
                                        **        TAG ASF IF NOT ALREADY DEFINED                                 ASF       204
                                                                                                                 ASF       205
           106  5110000000 X             AFD62    SA1    TT.SCR                                                  ASF       206
                          63410                   TAGASF X1                                                      ASF       207
           110  76670                    AFD64    SX6    B7                                                      ASF       208
                     5160000000 X                 SA6    SCR                                                     ASF       209
                                                                                                                 ASF       210
                                        **        ADD SKELETON TO TABLE                                          ASF       211
                                                                                                                 ASF       212
           111  5110000140 +                      SA1    ARGNUM                                                  ASF       213
                          5120000137 +            SA2    ASFLEN                                                  ASF       214
           112  63610                             SB6    X1                                                      ASF       215
                     63520                        SB5    X2                                                      ASF       216
                          5110000001 X            SA1    SCR+1                                                   ASF       217
           113  63410                             SB4    X1                                                      ASF       218
                     76456                        SX4    B5+B6                                                   ASF       219
                          5150000000 X            SA5    TT=ASF                                                  ASF       220
           114  5110000000 X                      ALLOC  TT.ASF,X4   ALLOCIATE ROOM FOR CURRENT *ASF*            ASF       221
                                                                                                                 ASF       222
                                        **        PREFIX SKELETON WITH USE COUNTS OF ARGUMENTS                   ASF       223
                                                                                                                 ASF       224
           116  5120000000 X                      SA2    TT.SCR                                                  ASF       225
                          67275                   SB2    B7-B5       STORE ADDRESS                               ASF       226
                               53326              SA3    X2+B6       LAST ARGUMENTS USE COUNT                    ASF       227
           117  66360                             SB3    B6                                                      ASF       228
           120  10633                    AFD65    BX6    X3                                                      ASF       229
                     67331                        =B3    B3-1                                                    ASF       230
                          56620                   SA6    B2                                                      ASF       231
                               55331              =A3    A3-1                                                    ASF       232
           121  67221                             =B2    B2-1                                                    ASF       233
                     0530000120 +                 NZ     B3,AFD65    IF NOT END OF ARGUMENTS                     ASF       234
           122  5130000000 X                      SA3    TT=SCR      NUMBER OF ARGS + 1                          ASF       235
                          37643                   IX6    X4-X3                                                   ASF       236
           123  5066777776                        SA6    A6-1        LENGTH OF SKELETON = 1ST WORD OF ASF        ASF       237
                                                                                                                 ASF       238
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     6
                                                                      AFD 
  
                                        **        (X1) = NEW ORGIN OF TS.ARG.                                    ASF       239
                                        *         (X2) = LENGTH.                                                 ASF       240
                                        *         (X5) = FWA FOR CURRENT SKELETON RELATIVE TO TT.ASF             ASF       241
                                        *         (B6) = NUMBER OF PARAMETERS +1.                                ASF       242
                                                                                                                 ASF       243
                          5140000000 X            SA4    TS.SYM                                                  ASF       244
           124  36115                             IX1    X1+X5                                                   ASF       245
                     5130000000 X                 SA3    SCR         SYMBOL TABLE ORDINAL                        ASF       246
                               77061              =X0    B6-1        NUMBER OF ARGUMENTS                         ASF       247
           125  63740                             SB7    X4                                                      ASF       248
                     53237                        SA2    X3+B7       TAG FOR CURRENT ASF                         ASF       249
                          43666                   MX6    -L.ARGC     CLEAR FIELDS IN CASE OF DUP DEF             FCC1247    32
                               20622              LX6    P.ARGC                                                  FCC1247    33
           126  11262                             BX2    X6*X2                                                   FCC1247    34
                     43652                        MX6    -L.ASFP                                                 FCC1247    35
                          20630                   LX6    P.ASFP                                                  FCC1247    36
                               11262              BX2    X6*X2                                                   FCC1247    37
           127  20022                             LX0    P.ARGC                                                  ASF       250
                     64366                        SB3    A6+B6       FWA FOR SKELETON                            ASF       251
                          36602                   IX6    X0+X2       ADD IN PARAMETER FIELD                      ASF       252
                               56441              =A4    B4+1        FWA OF SKELETON                             ASF       253
           130  20530                             LX5    P.ASFP                                                  FCC1201     5
                     12665                        BX6    X6+X5       TT.ASF ORDINAL TO POINTER FIELD             ASF       255
                          54620                   SA6    A2          ASF TAG WITH PARAMETER COUNT TO SYMBOL TAB  ASF       256
                                                                                                                 ASF       257
                                        **        ADD SKELETON TO *ASF* TABLE FOR LATER PROCESSING WHEN *ASF*    ASF       258
                                        *         USED.                                                          ASF       259
                                        *         (B5) = LENGTH OF SKELETON.                                     ASF       260
                                        *         (A4) _ SKELETON                                                ASF       261
                                        *         (B3) _ FWA FOR SKELETON                                        ASF       262
                                                                                                                 ASF       263
           131  10644                    AFD70    BX6    X4                                                      ASF       264
                     67551                        =B5    B5-1                                                    ASF       265
                          56630                   SA6    B3          ADD SKELETON WORD TO ASF TABLE              ASF       266
                               54441              =A4    A4+1        NEXT WORD                                   ASF       267
           132  66331                             =B3    B3+1                                                    ASF       268
                     0550000131 +                 NZ     B5,AFD70    IF NOT END                                  ASF       269
                               76600              =X6    O.EOS       INDICATE END OF ASF                         ASF       270
           133  54660                             SA6    A6                                                      ASF       271
           134  76600                    AFDEX    SHRINK TT=SCR,0    CLEAR TABLE                                 ASF       272
           135  0400000000 X                      EQ     PSP         EXIT..                                      ASF       273
                                                                                                                 ASF       274
           136  77777777777777000000     ASFMASK  VFD    L.SYM/-0,*P/0                                           ASF       275
           137  00000000000000000000     ASFLEN   DATA   0           TEMP SAVE CELL                              ASF       276
           140  00000000000000000000     ARGNUM   DATA   0           TEMP SAVE CELL                              ASF       277
                                                                                                                 ASF       278
           141  02000000000000000003     OCTCK    VFD    L.SYM/0LB,L.SBPR/O.VAR  OCTAL CONSTANT CHECK            ASF       279
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     7
                                                                      AFR 
  
                                        **        AFR -  ARITHMETIC STATEMENT FUNCTION REFERENCE PROCESSING.     ASF       281
                                        *                                                                        ASF       282
                                        *         ENTERED FROM *PARSE* UPON FINDING A REFERENCE TO AN *ASF*      ASF       283
                                        *            FOLLOWED BY A *(*.                                          ASF       284
                                        *                                                                        ASF       285
                                        *         ENTRY  (B4) _ *ASF* TO PROCESS.                                ASF       286
                                        *                FILL. = *ASF* NAME.                                     ASF       287
                                        *                (X7)  = *ASF* SYMBOL TABLE TAG.                         ASF       288
                                        *                (B6)  _ *ASF* ENTRY IN ESTACK.                          ASF       289
                                        *                (INAFR) SET                                             ASF       290
                                        *                                                                        ASF       291
                                        *         EXIT   (B6) RESET, ELIMINATING *ASF* FROM ESTACK               ASF       292
                                        *                (B4) = WHERE TO INPUT FROM.                             ASF       293
                                        *                (INAFR) RESET, IF NECESSARY.                            ASF       294
                                        *                (ALC.REG) LOCKS (B4) TO TT.ASF                          ASF       295
                                                                                                                 ASF       296
                                                                                                                 ASF       297
           142  0400400142 +             AFR      SUBR               ENTRY/EXIT...                               ASF       298
           143  77661                             =X6    B6-1        ELIMINATE *ASF* FROM ESTACK                 ASF       299
                     43166                        MX1    -L.ARGC                                                 ASF       300
                          5160000000 X            SA6    SVB6        SAVE (B6)                                   ASF       301
           144  76650                             SX6    B5                                                      ASF       302
                     54661                        =A6    A6+1        SAVE (B5)                                   ASF       303
                          5120000000 X            SA2    TT=SCR                                                  ASF       304
           145  13666                             =X6                                                            ASF       305
                     21722                        AX7    P.ARGC                                                  ASF       306
                          5160000000 X            SA6    ASFERR      INDICATE NO ARGUMENT ERROR                  ASF       307
           146  10622                             BX6    X2                                                      ASF       308
                     43352                        MX3    -L.ASFP                                                 FCC1201     6
                          5160000000 X            SA6    SCR2                                                    ASF       310
           147  66441                             =B4    B4+1                                                    ASF       311
                     15671                        BX6    -X1*X7      NUMBER OF PARAMETERS                        ASF       312
                          21706                   AX7    P.ASFP-P.ARGC                                           FCC1201     7
           150  5110000000 X                      SA1    TT.ASF                                                  ASF       314
                          5120000000 X            SA2    INAFR                                                   ASF       315
           151  15773                             BX7    -X3*X7      ASF DEFINITION RELATIVE ADDRESS             ASF       316
                     63660                        SB6    X6                                                      ASF       317
                          36071                   IX0    X7+X1                                                   ASF       318
           152  5160000000 X                      SA6    ASFARG                                                  ASF       319
                          5170000000 X            SA7    FWAASF                                                  ASF       320
           153  13666                             BX6    0                                                       ASF       321
                     77741                        =X7    B4-1        FWA OF REFERENCE                            ASF       322
                          5160000000 X            SA6    FWAARG                                                  ASF       323
           154  0302000155 +                      ZR     X2,AFR17    IF INPUT FROM *SB*                          ASF       324
                          37771                   IX7    X7-X1                                                   ASF       325
           155  5170000000 X             AFR17    SA7    FWAREF      SAVE FWA OF REFERENCE                       ASF       326
                          63301                   =B3    X0+1        (B3) = ADDRESS OF ARG DESCRIPTORS           ASF       327
                                                                                                                 ASF       328
                                        *         NOW    (ASFARG) = NUMBER OF PARAMS                             ASF       329
                                        *                (ASFERR) = 0 (NO ERROR)                                 ASF       330
                                        *                (FWAREF) = *SB* ADDR OF FWA REFERENCE                   ASF       331
                                        *                (FWAARG) = RELATIVE ADDRESS OF ACTUAL ARGUMENTS         ASF       332
                                                                                                                 ASF       333
                                        **        SCAN THRU PARAMETER CALL FOR ZERO LEVEL COMMA.                 ASF       334
                                        *         AND ENTERING IN PARAMETER CELLS FOR *ASF*                      ASF       335
                                        *         ENTRY  (B3) = ADDRESS OF FWA DESCRIPTORS IN DEFINITION         ASF       336
                                        *                (B4) = FWA OF ARGUMENT                                  ASF       337
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     8
                                                                      AFR 
  
                                        *                (B6) = NUMBER OF PARAMETERS REMAINING TO DO             ASF       338
                                        *         USES   (B2) = PC COUNT. (PC= PAREN COUNT)                      ASF       339
                                        *                (B5) = FWA OF ARGUMENT                                  ASF       340
                                        *                (X5) = SPACE ACCUMULATOR                                ASF       341
                                                                                                                 ASF       342
                               66540              =B5    B4          START OF ARGUMENT                           ASF       343
           156  66200                             =B2    0           INITIALIZE PAREN LEVEL                      ASF       344
                     76510                        =X5    1           CLEAR SPACE REQUIRED TOTAL                  ASF       345
                                                                                                                 ASF       346
           157  56140                    AFR20    SA1    B4                                                      ASF       347
                     7221777767                   SX2    X1-O.LP                                                 ASF       348
                               66441              =B4    B4+1                                                    ASF       349
           160  0301000000 X                      ZR     X1,E.AF5    IF PREMATURE END OF STATEMENT.              ASF       350
                          0312000162 +            NZ     X2,AFR25    IF NOT *(*                                  ASF       351
           161  66221                             =B2    B2+1        PC=PC+1                                     ASF       352
                     0400000157 +                 EQ     AFR20       CONTINUE                                    ASF       353
                                                                                                                 ASF       354
           162  7222777776               AFR25    =X2    X2+O.LP-O.RP                                            ASF       355
                          0312000165 +            NZ     X2,AFR26    IF NOT *)*                                  ASF       356
           163  67221                             =B2    B2-1        PC=PC-1                                     ASF       357
                     0620000157 +                 PL     B2,AFR20    IF NOT ENDING PAREN                         ASF       358
           164  0561000000 X                      NE1    B6,E.AF11                                               ASF       359
                          0400000167 +            EQ     AFR30                                                   ASF       360
                                                                                                                 ASF       361
           165  0520000157 +             AFR26    NZ     B2,AFR20    IF NOT IN ZERO LEVEL                        ASF       362
                          7221777764              SX2    X1-O.COMMA                                              ASF       363
           166  0312000157 +                      NZ     X2,AFR20    IF NO COMMA                                 ASF       364
                                                                                                                 ASF       365
                                        **        FOUND ZERO LEVEL COMMA OR RIGHT PARENTHESIS.                   ASF       366
                                        *                (B3) = ADDRESS OF FWA DESCRIPTORS IN DEFINITON          ASF       367
                                        *                (B4) _ NEXT ELEMENT AFTER *,* OR *)*.                   ASF       368
                                        *                (B5) _ START OF CURRENT ARGUMENT                        ASF       369
                                        *                (B6) = NUMBER OF ARGS REMAINING TO DO                   ASF       370
                                                                                                                 ASF       371
           167  0545000171 +             AFR30    NE     B4,B5,AFR32 IF NOT NULL PARAMETER.                      ASF       372
                          6170000000 X            FATAL  E.AF10      EMPTY PARAMETER LIST.                       ASF       373
                                                                                                                 ASF       374
           171  56130                    AFR32    SA1    B3                                                      ASF       375
                     5120000000 X                 SA2    FWAARG                                                  ASF       376
                               77345              SX3    B4-B5       LENGTH OF ARGUMENT + 1                      ASF       377
           172  36723                             IX7    X2+X3                                                   ASF       378
                     7233777776                   =X3    X3-1        ACTUAL ARGUMENT LENGTH                      ASF       379
                               66540              =B5    B4          START OF NEXT PARAMETER                     ASF       380
           173  20222                             LX2    18                                                      ASF       381
                     54720                        SA7    A2          UPDATE RELATIVE ARG START                   ASF       382
                          10033                   BX0    X3                                                      ASF       383
                               73410              SX4    X1          ISOLATE ARGUMENT USE COUNT                  ASF       384
           174  20344                             LX3    2*18                                                    ASF       385
                     7200777776                   =X0    X0-1                                                    ASF       386
           175  0300000176 +                      ZR     X0,AFR37    IF ARGUMENT IS SINGLE ELEMENT               ASF       387
                          7200000002              SX0    X0+2        OTHERWISE ALLOW SPACE FOR PARENTHESES       ASF       388
           176  42404                    AFR37    IX4    X0*X4       (X4)  = LENGTH * USES                       ASF       389
                     12732                        BX7    X3+X2                                                   ASF       390
                          66331                   =B3    B3+1                                                    ASF       391
                               73110              SX1    X1          ISOLATE ARGUMENT USE COUNT                  ASF       392
           177  12617                             BX6    X1+X7       6/ 0,  18/ LENARG,  18/ FWA ARG,  18/ USES  ASF       393
                     67661                        =B6    B6-1                                                    ASF       394
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE     9
                                                                      AFR 
  
                          36554                   IX5    X5+X4       ACCUMULATE EXPANSION SIZE                   ASF       395
                               57631              =A6    B3-1        RESET ARG POINTER WORD                      ASF       396
           200  0706000157 +                      GT     B6,AFR20    IF ALL ARGUMENTS NOT PROCESSED              FEAT126C  178
                                                                                                                 ASF       398
                          0620000000 X            PL     B2,E.AF11   IF NOT TERMINAL *)* FOUND - ARGUMENT ERROR  ASF       399
                                                                                                                 ASF       400
                                                                                                                 ASF       401
                                        **        WE HAVE NOW COMPUTED THE LENGTH NECESSARY TO HOLD ALL OF THE   ASF       402
                                        *         ACTUAL ARGUMENTS.  THEY MUST NOW BE MOVED OUT OF THE WAY, SO   ASF       403
                                        *         WE CAN START STORING THE EXPANSION OVER TOP OF THEM.           ASF       404
                                        *                (X5) = LENGTH OF ALL ACTUAL ARGUMENTS                   ASF       405
                                        *                       + PARENTHESES (IF NEEDED)                        ASF       406
                                        *                (B4) = END OF ACTUAL ARGS + 1                           ASF       407
                                        *                (FWAREF) = IF IN *SB* -- ADDRESS                        ASF       408
                                        *                           IF TT.ASF  -- RELATIVE ADDRESS               ASF       409
                                        *                (FWAASF) = RELATIVE ADDRESS OF FWA ASF DEFINITION       ASF       410
                                                                                                                 ASF       411
           201  5120000000 X                      SA2    FWAARG                                                  ASF       412
                          73221                   =X2    X2+1                                                    ASF       413
           202  5110000000 X                      ALLOC  TT.SCR,X2                                               ASF       414
           204  5130000000 X                      SA3    INAFR                                                   ASF       415
                          5120000000 X            SA2    FWAREF                                                  ASF       416
           205  0303000206 +                      ZR     X3,AFR52    IF INPUT WAS ALREADY FROM AN ASF            ASF       417
                          5130000000 X            SA3    TT.ASF                                                  ASF       418
           206  36223                    AFR52    IX2    X2+X3       FROM = (FWAREF) + OFFSET                    ASF       419
                     63520                        SB5    X2                                                      ASF       420
                          76370                   SX3    B7                                                      ASF       421
                               77145              SX1    B4-B5       W.C. = LEN OF ALL ACTUAL ARGS               ASF       422
           207  37331                             IX3    X3-X1       DEST = (LWA) - (LENGTH)                     ASF       423
                     0100000000 X                 MVE    X1,X2,X3    MOVE ACTUAL ARGUMENTS TO SCRATCH AREA       ASF       424
                                                                                                                 ASF       425
           210  5110000000 X                      SA1    TT.ASF                                                  ASF       426
                          5120000000 X            SA2    FWAASF                                                  ASF       427
           211  36012                             IX0    X1+X2       (X0) = ADDRESS OF DEFINITION                ASF       428
                     53300                        SA3    X0          LENGTH OF SKELETON                          ASF       429
                          5120000000 X            SA2    INAFR                                                   ASF       430
           212  36035                             IX0    X3+X5                                                   ASF       431
                     63600                        SB6    X0          (B6) = TOTAL LENGTH NEEDED FOR EXPANSION    ASF       432
                          0302000221 +            ZR     X2,AFR60    IF NOT ALREADY INSIDE *ASF*                 ASF       433
                                                                                                                 ASF       434
                                                                                                                 ASF       435
                                        **        IF WE WERE ALREADY INSIDE A STATEMENT FUNCTION, THEN THE       ASF       436
                                        *         SPACE FORMERLY OCCUPIED BY THE ACTUAL ARGUMENT TEXT MUST BE    ASF       437
                                        *         TRASHED.  THE SPACE ACTUALLY NEEDED FOR THE EXPANSION IS --    ASF       438
                                        *         (REQ)  = (CURRENT) + (B6) - (ACTUAL ARG LEN)                   ASF       439
                                        *                (B6) = LENGTH NEEDED TO HOLD THIS EXPANSION --          ASF       440
                                        *                     = (SKELETON LENGTH) + (X5)                         ASF       441
                                        *                (X0) = (B6)                                             ASF       442
                                        *                (X5) = LENGTH NEEDED FOR ALL OCCURENCES OF ACTUAL       ASF       443
                                        *                            ARGUMENTS IN THE SKELETON.                  ASF       444
                                        *                (B5) = FWA ACTUAL ARGS                                  ASF       445
                                        *                (B4) = END ACTUAL ARGS, +1                              ASF       446
                                        *                (ACTUAL ARG LENGTH) = (B4) - (B5)                       ASF       447
                                                                                                                 ASF       448
           213  67441                             =B4    B4-1                                                    ASF       449
                     67661                        =B6    B6-1        DONT THE CELL FOR AN *EOS*                  ASF       450
                          67545                   SB5    B4-B5       ACTUAL ARGUMENT LENGTH                      ASF       451
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE    10
                                                                      AFR 
  
                                                                                                                 ASF       452
                                                                                                                 ASF       453
                                        **        FORTUNATELY, WE CAN ADJUST THE ALLOCATION BEFORE MOVING STUFF  ASF       454
                                        *         AROUND, REGARDLESS OF WHETHER THE TABLE EXPANDS OR CONTRACTS.  ASF       455
                                        *         THIS IS BECAUSE A SHRINKING TABLE WILL NOT CAUSE ANY MOVEMENT  ASF       456
                                        *         OF TABLES, AND THE WORDS WHICH ARE NOT NOW FORMALLY IN THE     ASF       457
                                        *         TABLE WILL STILL EXIST, RIGHT WHERE THEY WERE.  ANY SUCH WORDS ASF       458
                                        *         ARE THEN MOVED TO THEIR NEW POSITION.                          ASF       459
                                        *                (B6) = SIZE OF EXPANSION                                ASF       460
                                        *                (B5) = ACTUAL ARGUMENT LENGTH                           ASF       461
                                        *                ADJUSTMENT TO LENGTH = (B6) - (B5)                      ASF       462
                                        *                (B7) = NEW END OF TABLE + 1                             ASF       463
                                                                                                                 ASF       464
                               77065              SX0    B6-B5                                                   ASF       465
           214  5110000000 X                      ALLOC  TT.ASF,X0                                               ASF       466
           215  67265                             SB2    B6-B5                                                   ASF       467
                     76070                        SX0    B7                                                      ASF       468
                          76342                   =X3    B4+B2       DEST = (FROM) + (ADJUSTMENT)                ASF       469
                               56540              SA5    B4                                                      ASF       470
           216  76240                             SX2    B4          FROM = END +1 OF ACTUAL ARGS                ASF       471
                     37103                        IX1    X0-X3       W.C. = (LWA) - (DESTINATION)                ASF       472
                          0100000000 X            MVE    X1,X2,X3    SLIDE THE TRAILING PORTION AROUND           ASF       473
           217  5110000000 X                      SA1    TT.ASF                                                  ASF       474
                          67245                   SB2    B4-B5       FWA TO STORE SKELETON = (END ARGS) - (LEN)  ASF       475
                               10755              BX7    X5                                                      ASF       476
           220  0400000224 +                      EQ     AFR65       BYPASS RE-ALLOCATION..                      ASF       477
                                                                                                                 ASF       478
                                        **        WHEN INPUT IS FROM THE *SB*, TT.ASF MUST BE ALLOCATED ENOUGH   ASF       479
                                        *         ROOM TO HOLD THE SKELETON + THE ACTUAL ARGUMENTS IN ALL THEIR  ASF       480
                                        *         OCCURRENCES.  THIS WAS COMPUTED LONG AGO.                      ASF       481
                                        *                (B6) = AFOREMENTIONED LENGTH                            ASF       482
                                        *                (X0) = DITTO                                            ASF       483
                                        *         ALSO, NOW RESET --                                             ASF       484
                                        *                (INAFR) _ PAST TERMINAL RPAREN OF ACTUAL ARGUMENT.      ASF       485
                                                                                                                 ASF       486
           221  5110000000 X             AFR60    ALLOC  TT.ASF,X0                                               ASF       487
           222  76640                             =X6    B4                                                      ASF       488
                     67276                        SB2    B7-B6       FWA TO STORE EXPANDED ASF                   ASF       489
                          5160000000 X            SA6    INAFR       SET *SB* ADDRESS TO (EVENTUALLY) RESUME AT  ASF       490
           223  13777                             BX7    0                                                       ASF       491
                                                                                                                 ASF       492
                                                                                                                 ASF       493
                                        **        ONE WAY OR ANOTHER, ALL NECESSARY ALLOCATIONS AND PRELIMINARY  ASF       494
                                        *         MOVES HAVE BEEN ACCOMPLISHED.                                  ASF       495
                                        *                (X1) = FWA TT.ASF                                       ASF       496
                                        *                (B2) = FWA TO STORE EXPANSION                           ASF       497
                                                                                                                 ASF       498
           224  5120000000 X             AFR65    SA2    FWAASF                                                  ASF       499
                          5140000000 X            SA4    ASFARG                                                  ASF       500
           225  36312                             IX3    X1+X2       (X3) _ SKELETON LENGTH WORD                 ASF       501
                     7160000010                   SX6    O.LP                                                    ASF       502
                               63530              SB5    X3          (B5) _ FWA OF ARG PARMETER WORDS - 1        ASF       503
           226  5120000000 X                      SA2    TT.SCR                                                  ASF       504
                          5110000000 X            SA1    SCR2                                                    ASF       505
           227  36043                             IX0    X4+X3       (X0) _ FWA SKELETON - 1                     ASF       506
                     53401                        =A4    X0+1        (A4) _ FWA SKELETON                         ASF       507
                          36221                   IX2    X2+X1                                                   ASF       508
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE    11
                                                                      AFR 
  
                               63320              SB3    X2          (B3) _ FWA ACTUAL ARGS                      ASF       509
           230  56620                             SA6    B2                                                      ASF       510
                     66420                        SB4    B2                                                      ASF       511
                                                                                                                 ASF       512
                                        **        IT REMAINS TO DO THE ACTUAL EXPANSION.  THE SKELETON IS MOVED  ASF       513
                                        *         INTO THE SPACE JUST ALLOCATED -- WHENEVER A FORMAL PARAMETER   ASF       514
                                        *         IS ABOUT TO BE MOVED, WE PICK UP THE SAVED TEXT OF IT (FROM    ASF       515
                                        *         TT.SCR) AND MOVE THAT, INSTEAD.  MUST NOT FORGET TO SURROUND   ASF       516
                                        *         THE ACTUAL ARGUMENTS WITH PARENS.  THIS IS TO PRESERVE PROPER  ASF       517
                                        *         GROUPING WITHIN THE ASF EXPANSION.  FOR SINGLE ELEMENT         ASF       518
                                        *         ARGUMENTS, PARENTHESIS BRACKETING IS NOT DONE.                 ASF       519
                                        *                (B3) = FWA OF ACTUAL ARGUMENTS (IN TT.SCR)              ASF       520
                                        *                (B4) = FWA SKELETON                                     ASF       521
                                        *                (B5) = FWA ARGUMENT POINTERS - 1                        ASF       522
                                        *                (A4) = SKELETON FETCH ADDRESS                           ASF       523
                                        *                (A6) = EXPANSION STORE ADDRESS                          ASF       524
                                        *                (X7) = FINAL CHARACTER OF STRING.                       ASF       525
                                                                                                                 ASF       526
           231  6274777737               AFR72    SB7    X4-O.ASFA                                               ASF       527
                          10644                   BX6    X4                                                      ASF       528
                               21452              AX4    P.TAG                                                   ASF       529
           232  0570000241 +                      NZ     B7,AFR78    IF NOT REFERENCE TO ARGUMENT                ASF       530
                                                                                                                 ASF       531
                          53245                   SA2    X4+B5       FETCH ARGUMENT DESCRIPTOR FROM DEFINITION   ASF       532
                               21222              AX2    18                                                      ASF       533
           233  53123                             SA1    X2+B3       PRE-FETCH 1ST ARGUMENT WORD                 ASF       534
                     54111                        =A1    A1+1        SKIP LEADING DELIMITER                      ASF       535
                          21222                   AX2    18                                                      ASF       536
                               63720              SB7    X2          (B7) = LENGTH OF THIS ACTUAL ARGUMENT       ASF       537
           234  6167777776                        SB6    B7-1        FOR LATER TEST                              ASF       538
                          0471000236 +            EQ1    B7,AFR75    IF SINGLE ELEMENT ARGUMENT                  ASF       539
           235  55111                             =A1    A1-1        RESTORE TO ORIGINAL POSITION                ASF       540
                     66771                        =B7    B7+1        ALLOW FOR PARENTHESES                       ASF       541
                          7110000010              SX1    O.LP                                                    ASF       542
           236  10611                    AFR75    BX6    X1                                                      ASF       543
                     67771                        =B7    B7-1                                                    ASF       544
                          54661                   =A6    A6+1                                                    ASF       545
                               54111              =A1    A1+1                                                    ASF       546
           237  0671000236 +                      GE1    B7,AFR75    LOOP TILL END OF ARGUMENT                   ASF       547
                          0460000242 +            ZR     B6,AFR79    IF SINGLE ELEMENT ARGUMENT                  ASF       548
           240  7160000011                        SX6    O.RP                                                    ASF       549
                                                                                                                 ASF       550
           241  54661                    AFR78    =A6    A6+1                                                    ASF       551
           242  54441                    AFR79    =A4    A4+1                                                    ASF       552
                     0316000231 +                 NZ     X6,AFR72    IF NOT END OF SKELETON                      ASF       553
                               54760              SA7    A6                                                      ASF       554
                                                                                                                 ASF       555
                                        **        EXPANSION FINISHED, RETURN TO *PAR*.                           ASF       556
                                                                                                                 ASF       557
           243  5130000000 X                      SA3    SVB6                                                    ASF       558
                          54231                   =A2    A3+1                                                    ASF       559
           244  5140000000 X                      SA4    ALC.ASF                                                 ASF       560
                          5110000000 X            SA1    SCR2                                                    ASF       561
           245  63630                             SB6    X3          RESTORE (B6)                                ASF       562
                     63520                        SB5    X2          RESTORE (B5)                                ASF       563
                          10611                   SHRINK TT=SCR,X1                                               ASF       564
                          10644                   BX6    X4                                                      ASF       565
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE    12
                                                                      AFR 
  
           247  5160000000 X                      SA6    ALC.REG                                                 ASF       566
                          0317000142 +            NZ     X7,EXIT.    IF NOT ZERO-LEVEL STATEMENT FUNCTION        ASF       567
           250  7170000011                        SX7    O.RP                                                    ASF       568
                          13666                   BX6    O.EOS                                                   ASF       569
                               54770              SA7    A7                                                      ASF       570
           251  5110000000 X                      ADDWD  TT.ASF      ADD AN EXTRA *EOS*                          ASF       571
           252  0400000142 +                      EQ     EXIT.                                                   ASF       572
                                                                                                                 ASF       573
                                                  LIST   D                                                       ASF       574
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        PWE 
             0 X                        TLV 
             0 X                        E.TC2 
             0 X                        MVE 
             0 X                        TSF 
             0 X                        ALC 
  
           253                                    END                                                            ASF       575
  
                             55100B CM  STORAGE USED             1432 STATEMENTS      812 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.985 SECONDS         311 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       1/45 X    2/51      3/10     12/06
        AFD             0   PROGRAM*        1/33 E    2/24 L
        AFDEX         134   PROGRAM*        1/33 E    5/02      6/40 L
        AFD03          10   PROGRAM*        2/34      2/40 L
        AFD05          14   PROGRAM*        2/31      2/37      2/45 L    2/48
        AFD10          20   PROGRAM*        2/56 L    3/18
        AFD13          27   PROGRAM*        3/07      3/10 L
        AFD13A         30   PROGRAM*        3/09      3/11 L
        AFD14          32   PROGRAM*        3/13      3/15 L
        AFD20          36   PROGRAM*        3/20      3/28 L
        AFD30          42   PROGRAM*        3/44 L    3/49      3/57      4/02      4/17      4/29
        AFD31          51   PROGRAM*        3/53      3/56      4/01 L
        AFD32          57   PROGRAM*        4/21 L    4/23
        AFD34          61   PROGRAM*        4/25 L    4/26
        AFD50          65   PROGRAM*        3/47      4/34 L
        AFD52          70   PROGRAM*        4/41 L    4/45      4/49
        AFD60          75   PROGRAM*        4/44      4/57 L
        AFD62         106   PROGRAM*        5/16      5/25 L
        AFD64         110   PROGRAM*        5/21      5/27 L
        AFD65         120   PROGRAM*        5/48 L    5/53
        AFD70         131   PROGRAM*        6/32 L    6/37
        AFR           142   PROGRAM*        1/33 E    7/18 L
        AFR17         155   PROGRAM*        7/44      7/46 L
        AFR20         157   PROGRAM*        8/10 L    8/16      8/21      8/25      8/27      9/03
        AFR25         162   PROGRAM*        8/14      8/18 L
        AFR26         165   PROGRAM*        8/19      8/25 L
        AFR30         167   PROGRAM*        8/23      8/35 L
        AFR32         171   PROGRAM*        8/35      8/38 L
        AFR37         176   PROGRAM*        8/50      8/52 L
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE    13
        SYMBOLIC REFERENCE TABLE. 
  
        AFR52         206   PROGRAM*        9/23      9/25 L
        AFR60         221   PROGRAM*        9/39     10/36 L
        AFR65         224   PROGRAM*       10/26     10/48 L
        AFR72         231   PROGRAM*       11/19 L   11/45
        AFR75         236   PROGRAM*       11/31     11/35 L   11/39
        AFR78         241   PROGRAM*       11/22     11/43 L
        AFR79         242   PROGRAM*       11/40     11/44 L
        ALC             0   EXTERNAL*       5/40      9/20     10/15     10/36
        ALC.ASF         0   EXTERNAL*       1/45 X   11/52
        ALC.REG         0   EXTERNAL*       1/45 X   12/01 S
        ARGNUM        140   PROGRAM*        5/05 S    5/32      6/45 L
        ASFARG          0   EXTERNAL*       1/51 X    7/39 S   10/49
        ASFERR          0   EXTERNAL*       1/51 X    7/27 S
        ASFLEN        137   PROGRAM*        5/06 S    5/33      6/44 L
        ASFMASK       136   PROGRAM*        3/34      6/43 L
        CR.DEC          4   TSTEXT          5/11
        ERR=F           0   EXTERNAL*       1/41 X    5/01
        E.AF10          0   EXTERNAL*       1/39 X    8/36
        E.AF11          0   EXTERNAL*       1/39 X    8/22      9/05
        E.AF15          0   EXTERNAL*       1/40 X    3/02
        E.AF16          0   EXTERNAL*       1/40 X    2/43
        E.AF17          0   EXTERNAL*       1/42 X    2/38      2/42
        E.AF3           0   EXTERNAL*       1/40 X    3/31
        E.AF4           0   EXTERNAL*       1/40 X    4/57
        E.AF5           0   EXTERNAL*       1/40 X    8/13
        E.AF6           0   EXTERNAL*       1/40 X    4/03
        E.AF7           0   EXTERNAL*       1/40 X    4/48      4/48
        E.AF9           0   EXTERNAL*       1/40 X    3/08
        E.TC2           0   EXTERNAL*       3/23
        FILL.           0   EXTERNAL*       1/41 X    2/28 S    2/52 S    3/22 S
        FILL.2          0   EXTERNAL*       1/41 X    3/05 S    4/47 S
        FWAARG          0   EXTERNAL*       1/51 X    7/43 S    8/39      9/18
        FWAASF          0   EXTERNAL*       1/51 X    7/40 S    9/33     10/48
        FWAREF          0   EXTERNAL*       1/51 X    7/46 S    9/22
        INAFR           0   EXTERNAL*       1/36 X    7/35      9/21      9/36     10/39 S
        L.ARGC          6   TSTEXT          6/12      7/20
        L.ASFP         22   TSTEXT          6/15      7/29
        L.SBPR         22   TSTEXT          6/47
        L.SYM          52   TSTEXT          2/25      2/30      2/44      3/03      4/37      6/43      6/47
        MVE             0   EXTERNAL*       4/28      9/30     10/22
        M.ASF        2000   TSTEXT          2/40      5/17      5/26      5/26
        M.DEF          10   TSTEXT          5/17
        M.FP           20   TSTEXT          2/35
        M.FUN         200   TSTEXT          5/17      5/26      5/26
        M.NVAR      20000   TSTEXT          2/32      5/17      5/26      5/26
        M.VAR       10000   TSTEXT          2/35
        OCTCK         141   PROGRAM*        3/51      6/47 L
        O.ASFA         40   TSTEXT          4/12     11/19
        O.COMMA        13   TSTEXT          3/17      8/26
        O.CONS          2   TSTEXT          3/55
        O.EOS           0   TSTEXT          6/38
        O.LP           10   TSTEXT          8/11      8/18     10/51     11/34
        O.RP           11   TSTEXT          8/18     11/41     12/03
        O.VAR           3   TSTEXT          3/01      3/12      3/48      4/16      4/22      6/47
        O.(            10   TSTEXT          2/47
        O.)            11   TSTEXT          3/19
        O.=            12   TSTEXT          3/30
1       /ASF  *ASF* DEFINITION / REFERENCE PROCESSORS                 COMPASS 3.7-871.     24/05/02. 15.52.29.      PAGE    14
        SYMBOLIC REFERENCE TABLE. 
  
        PSP             0   EXTERNAL*       1/48 X    6/41
        PWE             0   EXTERNAL*       2/43      3/08      4/48      8/36
        P.ARGC         22   TSTEXT          6/13      6/18      7/26      7/33
        P.ASFP         30   TSTEXT          6/16      6/22      7/33
        P.TAG          52   TSTEXT          4/11     11/21
        REFVAR          0   EXTERNAL*       1/36 X    5/13 S
        SCR             0   EXTERNAL*       1/51 X    3/35 S    5/28 S    5/36      6/08
        SCR2            0   EXTERNAL*       1/51 X    7/30 S   10/54     11/53
        SCS             0   EXTERNAL*       1/45 X    4/01
        SCSA            0   EXTERNAL*       1/45 X    3/37 S
        SCT             0   EXTERNAL*       1/45 X    3/06
        SSY             0   EXTERNAL*       1/45 X    2/29      5/15
        SVB6            0   EXTERNAL*       1/51 X    7/21 S   11/50
        TLV             0   EXTERNAL*       3/14
        TSF             0   EXTERNAL*       5/26
        TS.SYM          0   EXTERNAL*       1/36 X    2/29      5/15      6/06
        TT=ASF          0   EXTERNAL*       1/36 X    5/39
        TT=SCR          0   EXTERNAL*       1/36 X    2/24 S    5/54      6/40 S   11/56
                                            2/24      4/34      6/40      7/24     11/56 S
        TT.ASF          0   EXTERNAL*       1/36 X    7/34      9/32     10/23     12/06
                                            5/40      9/24     10/15     10/36
        TT.SCR          0   EXTERNAL*       1/36 X    3/06      4/01      5/10      5/44      9/20
                                            2/51      3/10      4/35      5/25      9/20     10/53
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      304              IDENT  DO 
                        304                       END 
  
  
                                        ENTRY POINTS. 
  
                                        CDI            130+           DIP            217+           SDO              1+ 
                                        CDO            215+           PDT            240+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.SNAP   DOIX      REFNUM    TP=DO     E.DO29    IOLEN     PAR       CO.ER 
                                        ARGCOMA   DO=CC     REGFILE   UUC       E.IOL3    PSN       CAI       E.NP1 
                                        ARGMODE   DO.CSKL   TT.PAR    E.AS4     ERR=F     STN0R     EIS.PNX   LDEAD 
                                        APLUG     DOORD     TT=PAR    E.DO12    ADW       CLK       MXP       NOPATH
                                        CONONE    DOARM     TS.STN    E.DO13    ALC.DO    ISN       NULLOP    FLOW
                                        CALLIO    DO.BEG    TS.CON    E.DO18    ALC.REG   GST       CDOTG     ANSI= 
                                        CDORD     DOLMR     TP.APL    E.DO27    NCM       SDS       SCR       PWE 
                                        DOSTNO    NOOPP     TP.DO     E.DO28    ASL       IXLASTV   ALC 
  
  
  
  
                                                  IDENT  DO                                                      DO          2
                                         DO       SECT   (*DO* STATEMENT PROCESSORS),1                           DO          3
  
                                                                                                                 DO          4
                                                  SST    B,D,EXIT.                                               DO          5
                                                  NOREF  B,D,EXIT.                                               DO          6
                                                                                                                 DO          7
                                         B=DO     RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     DO          8
                                                                                                                 DO          9
                                                  ENTRY  CDI,CDO,DIP,PDT,SDO                                     FCC1307   108
                                                                                                                 DO         11
                                        *         IN FTN                                                         DO         12
                                                  EXT    CO.SNAP                                                 DO         13
                                                                                                                 DO         14
                                        *         IN TABLES                                                      DO         15
                                                  EXT    ARGCOMA,ARGMODE,APLUG,CONONE,CALLIO,CDORD               DO         16
                                                  EXT    DOSTNO,DOIX,DO=CC,DO.CSKL,DOORD,DOARM,DO.BEG,DOLMR      FCC1307   109
                                                  EXT    NOOPP,REFNUM,REGFILE,TT.PAR,TT=PAR                      FCC1307   110
                                                  EXT    TS.STN,TS.CON,TP.APL,TP.DO,TP=DO,UUC                    DO         19
                                                                                                                 DO         20
                                        *         IN ERRORS                                                      DO         21
                                                  EXT    E.AS4,E.DO12,E.DO13,E.DO18,E.DO27,E.DO28,E.DO29         FCC1307   111
                                                  EXT    E.IOL3,ERR=F                                            FEAT126C  179
                                                                                                                 DO         24
                                        *         IN ALLOC                                                       DO         25
                                                  EXT    ADW,ALC.DO,ALC.REG,NCM                                  DO         26
                                                                                                                 DO         27
                                        *         IN MAIN                                                        DO         28
                                                  EXT    ASL                                                     DO         29
                                                                                                                 DO         30
                                        *         IN IO                                                          DO         31
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     2
  
  
                                                  EXT    IOLEN                                                   DO         32
                                                                                                                 DO         33
                                        *         IN NUM                                                         DO         34
                                                  EXT    PSN,STN0R,CLK,ISN                                       DO         35
                                                                                                                 DO         36
                                        *         IN REG                                                         DO         37
                                                  EXT    GST,SDS                                                 DO         38
                                                                                                                 DO         39
                                        *         IN PAR                                                         DO         40
                                                  EXT    IXLASTV,PAR                                             DO         41
                                                                                                                 DO         42
                                        *         IN GEN                                                         DO         43
                                                  EXT    CAI,EIS.PNX,MXP,NULLOP                                  FCC1307   112
                                                                                                                 DO         45
                                        *         IN INIT                                                        DO         46
                                                  EXT    CDOTG,SCR                                               DO         47
                                                                                                                 DO         48
                                                                                                                 DO         49
                                        **        SDO -  SET-UP *DO* FOR PROCESSING                              DO         50
                                        *                                                                        DO         51
                                        *         *SDO* ENTERED FROM COMPILERS MASTER LOOP.  (*CPM*)             DO         52
                                        *         ENTRY  (B4) _ *SB* WHERE *DO* STARTS.                          DO         53
                                        *         EXIT   (X6) = *DO* STATEMENT NUMBER (0L FORMAT)                DO         54
                                        *                                                                        DO         55
                                        *         USES   ALL REGISTERS.                                          DO         56
                                                                                                                 DO         57
                                                                                                                 DO         58
             0  00000000000000000000              CON    0           DUMMY FOR DUMB *ASK*                        DO         59
                                                                                                                 DO         60
             1  56140                    SDO      SA1    B4                                                      DO         61
                     6271777775                   SB7    X1-O.CONS                                               DO         62
             2  0570000000 X                      NZ     B7,E.AS4    IF NO LABEL                                 DO         63
                          0100000000 X            RJ     ASL         ADJUST STATEMENT LABEL                      DO         64
             3  10611                             BX6    X1                                                      DO         65
                     56440                        SA4    B4          FETCH SUPPOSED VARIABLE                     DO         66
                          5160000000 X            SA6    DOSTNO                                                  DO         67
             4  6224777764                        SB2    X4-O.COMMA                                              DO         68
                          0304000000 X            ZR     X4,E.DO27   ** PREMATURE E.O.S. **                      DO         69
             5  0520000011 +                      NZ     B2,SDO3     ALLOW LABEL TO END WITH A COMMA             DO         70
                          6170000000 X            WARN   E.DO29      ** COMMA IGNORED **                         DO         71
             7  6170000000 X                      ANSI   E.DO28      ** COMMA NON-ANSI **                        DO         72
            10  56441                             =A4    B4+1                                                    DO         73
                     0304000000 X                 ZR     X4,E.DO27   ** PREMATURE E.O.S. **                      DO         74
                                                                                                                 DO         75
            11  64441                    SDO3     =B4    A4+1        POINT TO *EQUAL* SIGN                       DO         76
                     6274777774                   SB7    X4-O.VAR                                                DO         77
                               43052              MX0    LG.VAR*CHAR                                             DO         78
            12  11701                             BX7    X0*X1                                                   DO         79
                     76640                        SX6    B4                                                      DO         80
                          5170000000 X            SA7    DOIX                                                    DO         81
                                                                                                                 DO         82
            13  5160000000 X                      SA6    IXLASTV     SAVE *B4*                                   DO         83
                          0100000000 X            RJ     CAI         FLUSH PARSED FILE                           DO         84
            14  5120000000 X                      SA2    IXLASTV                                                 DO         85
                          5110000000 X            SA1    DOSTNO                                                  DO         86
            15  43036                             MX0    5*CHAR                                                  DO         87
                     11701                        BX7    X0*X1       SAVE ONLY 5 DIGITS                          DO         88
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     3
  
  
                          54710                   SA7    A1                                                      DO         89
                               63420              SB4    X2          RESTORE *B4*                                DO         90
            16  10611                             BX6    X1                                                      DO         91
                     0100000130 +                 RJ     CDI         PROCESS *DO* DEFINITION.                    DO         92
            17  5130000000 X                      SA3    =XFLOW                                                  DO         93
                          0303000000 X            ZR     X3,PSN      IF DO IS ACCESSABLE (NOT NOPATH)            DO         94
                                                                                                                 DO         95
                                        *         NOTE - FOR DO LOOPS, ONLY THE DO STATEMENT WILL GET THE NOPATH DO         96
                                        *                WARNING MESSAGE.  FLOW, NOPATH AND LDEAD ARE CLEARED,   DO         97
                                        *                AND THE DO LOOP CODE WILL BE GENERATED. CHECKING ALL    DO         98
                                        *                CASES FOR NOPATH CONDITIONS DIDNT SEEM WORTH THE CODE   DO         99
                                        *                SAVINGS.                                                DO        100
                                                                                                                 DO        101
            20  13777                             BX7    0                                                       DO        102
                     54730                        SA7    A3                                                      DO        103
                          5170000000 X            SA7    =XNOPATH                                                DO        104
            21  5170000000 X                      SA7    =XLDEAD                                                 DO        105
                          0400000000 X            EQ     =XE.NP1                                                 DO        106
  
  
  
  
                                        **        ADL -  ANALYZE *DO* LOOP FOR OPTIMAL COUNTING MECHANISM.       DO        108
                                        *                                                                        DO        109
                                        *                                                                        DO        110
                                        *         ENTRY  (B5) _ START OF CURRENT *DO* IN *TP.DO*                 DO        111
                                        *                (B7) = 0, IF PROCESSING PROGRAMMER DEFINED *DO*         DO        112
                                        *                                                                        DO        113
                                        *         EXIT   DO CONCLUSION *TURPLES* ADDED TO PARSED FLE.            DO        114
                                        *                                                                        DO        115
                                        *         USES   ALL BUT A0, B4.                                         DO        116
                                                                                                                 DO        117
                                                                                                                 DO        118
                                  50     OP.LEN   EQU    40          MAXIMUM LENGTH *DO* TO LOOK AT.             DO        119
                                  17     L.NULDO  EQU    5*L.TURP    LENGHT OF A DUMMY DO, DEFINING INDEX AND    DO        120
                                        *                            CONCLUSION ONLY.                            DO        121
                                                                                                                 DO        122
                                                                                                                 DO        123
            22  0400400022 +             ADL      SUBR               ENTRY/EXIT...                               DO        124
            23  5125000001                        SA2    B5+OR.DOLI  DO LIMIT                                    DO        125
                          7100004000              =X0    M.SHORT                                                 DO        126
            24  5155000002                        SA5    B5+OR.DOII  DO INCREMENT                                DO        127
                          11302                   BX3    X0*X2       BRING DOWN SHORT BITS                       DO        128
                               11605              BX6    X0*X5                                                   DO        129
            25  36036                             IX0    X3+X6                                                   DO        130
                     5110000000 X                 SA1    TS.STN                                                  DO        131
                               36603              IX6    X0+X3                                                   DO        132
            26  21612                             AX6    P.SHORT-1                                               DO        133
                     5160000000 X                 SA6    SCR         SAVE ORDINAL OF O=DOC                       DO        134
            27  0470000031 +                      ZR     B7,ADL5     IF NOT *I/O* *DO*                           DO        135
                                                                                                                 DO        136
                                        *         ANALYZE *I/O* DO.                                              DO        137
                                                                                                                 DO        138
                          0100000065 +            RJ     AID         ANALYZE *I/O* DO FOR REDUCTION              DO        139
            30  0750000022 +                      MI     B5,EXIT.    IF *DO* COLLAPSED.                          DO        140
                          0400000053 +            EQ     ADL30       CONTINUE                                    DO        141
                                                                                                                 DO        142
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     4
                                                                      ACD 
  
                                        **        ANALYZE *DO* TO DETERMINE IF ANYTHING CAN BE DONE TO IMPROVE   DO        143
                                        *         ITS COUNTING MECHANISM.                                        DO        144
                                        *                                                                        DO        145
                                        *         IN ORDER TO DO ANY EVALUATION OF THE *DO* THE FOLLOWING        DO        146
                                        *         CONDITIONS MUST BE SATISFIED.                                  DO        147
                                        *                                                                        DO        148
                                        *         A.  DO MUST NOT HAVE ANY EXTERNAL REFERENCES.                  DO        149
                                        *         B.  DO MUST NOT HAVE AN EXIT.                                  DO        150
                                        *         C.  NONE OF ITS *DO* INDICES MUST BE ALTERED.                  DO        151
                                        *         D.  DO MUST BE THE ZERO LEVEL OF A NEST.                       DO        152
                                                                                                                 DO        153
            31  5125000005               ADL5     SA2    B5+OR.DOSN                                              DO        154
                          10522                   BX5    X2                                                      DO        155
                               21222              AX2    P.DOTAG                                                 DO        156
            32  6272537777                        SB7    X2-C.STAT                                               DO        157
                          53317                   SA3    X1+B7       DO STATMENT TAG FROM ST.NO. TABLE           DO        158
                               10033              BX0    X3                                                      DO        159
            33  20065                             IFBIT  X0,SNEX,ADL30     IF EXTERNAL PROCESS INSIDE LOOP       DO        160
            34  5140000000 X                      SA4    DOIX                                                    DO        161
                          20070                   IFBIT  X0,SNOPE/SNEX,ADL30                                     DO        162
                          20005                   IFBIT  X0,SNNS/SNOPE,ADL30                                     DO        163
                          0334000053 +            MI     X4,ADL30    IF INDEX ALTERED INSIDE BODY                DO        164
                                                                                                                 DO        165
                                        **        *DO* IS DEFINED AS CLOSED, CHECK COUNTING MECHANISM            DO        166
                                        *                                                                        DO        167
                                        *         ENTRY  (X5) = (OR.DOSN)                                        DO        168
                                        *                (A2) _ (OR.DOSN)                                        DO        169
                                                                                                                 DO        170
            37  21230                             AX2    P.DFLAG-P.DOTAG                                         DO        171
                     5110000000 X                 SA1    TT.PAR                                                  DO        172
            40  5130000000 X                      SA3    TT=PAR                                                  DO        173
                          36712                   IX7    X1+X2                                                   DO        174
                               43022              MX0    L.DFLAG                                                 DO        175
            41  5217000005                        SA1    X7+OR.DFLAG      LOAD FLAG WORD                         DO        176
                          37632                   IX6    X3-X2                                                   DO        177
                               15450              BX4    -X0*X5      CLEAR PASS *1* FLAG BITS                    DO        178
            42  6276777760                        SB7    X6-L.NULDO                                              DO        179
                          20352                   LX3    P.DFLAG                                                 DO        180
            43  5110000000 X                      SA1    =XCO.ER                                                 FCC1314     4
                          0321000045 +            PL     X1,ADL7     IF OTR NOT ON                               FCC1314     5
            44  6177777774                        SB7    B7-L.TURP   ELSE MUST TAKE OTR TURPLE INTO ACCOUNT      FCC1314     6
            45  0670000051 +             ADL7     PL     B7,ADL10    IF NOT NULL *DO*                            FCC1314     7
                          5110000000 X            SA1    NOOPP                                                   DO        182
            46  10611                             BX6    X1                                                      DO        183
                     53670                        SA6    X7          NULLIFY *DO* BEGIN CODE                     DO        184
                          5267000003              SA6    X7+L.TURP                                               DO        185
            47  6170000000 X                      NOTE   E.DO18      NULL DO LOOP - IGNORED                      DO        186
            50  0400000022 +                      EQ     EXIT.                                                   DO        187
                                                                                                                 DO        188
            51  5150000000 X             ADL10    SA5    SCR                                                     DO        189
                          36643                   IX6    X4+X3       ADD POINTER TO START FOR OPT=1 PROCESSING   DO        190
            52  6170000000 X                      SB7    DO=CC                                                   DO        191
                          67707                   SB7    -B7                                                     DO        192
                               63757              SB7    X5+B7                                                   DO        193
                                                                                                                 DO        194
                                        **        ADD *DO* CONCLUSION MACROS TO PARSED FILE FOR CURRENT *DO*     DO        195
                                        *         (B5) _ START OF CURRENT *DO* IN *TP.DO*                        DO        196
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     5
                                                                      ACD 
  
                                                                                                                 DO        197
            53  5110000000 X             ADL30    SA1    SCR                                                     DO        198
                          5241000001 X            SA4    X1+DO.CSKL+1                                            DO        199
            54  5110000000 X             ADL32    SA1    ALC.DO                                                  DO        200
                          5150000000 X            SA5    ALC.REG                                                 DO        201
            55  10611                             BX6    X1                                                      DO        202
                     54650                        SA6    A5                                                      DO        203
                          5110000000 X            ALLOC  TT.PAR,2*L.TURP                                         DO        204
            57  10655                             BX6    X5                                                      DO        205
                     54650                        SA6    A5                                                      DO        206
                          5135000004              SA3    B5+OR.DORT                                              DO        207
            60  56551                             =A5    B5+OR.DOLI                                              DO        208
                     22705                        LX7    X5                                                      DO        209
                          10633                   BX6    X3                                                      DO        210
                               57671              =A6    B7-1        OR.2OP = DO RETURN LABEL                    DO        211
            61  54251                             =A2    A5-OR.DOLI+OR.DOII                                      DO        212
                     55761                        =A7    A6-1        OR.1OP = DO LIMIT                           DO        213
                          22604                   LX6    X4                                                      DO        214
                               55671              =A6    A7-1        OR.OPR = DO MACRO                           DO        215
            62  54321                             =A3    A2-OR.DOII+OR.DOCI                                      DO        216
                     10722                        BX7    X2                                                      DO        217
                          55441                   =A4    A4-1                                                    DO        218
                               55761              =A7    A6-1        OR.2OP = DO INCREMENT                       DO        219
            63  22604                             LX6    X4                                                      DO        220
                     10733                        BX7    X3                                                      DO        221
                          55771                   =A7    A7-1        OR.1OP = DO CONTROL VARIABLE                DO        222
                               55671              =A6    A7-1        OR.OPR = DO MACRO                           DO        223
            64  0400000022 +                      EQ     EXIT.                                                   DO        224
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     6
                                                                      AID 
  
                                        **        AID -  ANALYZE IMPLIED *DO* LOOP FOR LIST COLLAPSE.            DO        226
                                        *                                                                        DO        227
                                        *                                                                        DO        228
                                        *         ENTRY  (B5) _ START OF CURRENT *DO* IN *TP.DO*                 DO        229
                                        *                (X5) = (OR.DOII)                                        DO        230
                                        *                (X6) = ORDINAL INTO *DO.CSKL* TABLE.                    DO        231
                                        *                                                                        DO        232
                                        *         EXIT   (B5) > 0, NO LIST COLLAPSE                              DO        233
                                        *                     _ START OF CURRENT *DO* IN *TP.DO*                 DO        234
                                        *                (B5) < 0, LIST COLLAPSED, NO DO CONCLUSION CODE NEEDED, DO        235
                                        *                            O=DOB *TURPLES* NOOP.                       DO        236
                                        *         TABLES MUST NOT BE MOVED UNLESS LIST IS COLLAPSED.             DO        237
                                        *                                                                        DO        238
                                        *         FOR A COLLAPSIBLE LOOP, THE PARSED FILE TURPLES WILL APPEAR    DO        239
                                        *         AS FOLLOWS (BEGINNING AT *B2*) --                              DO        240
                                        *                0.  DOBEGIN                                             DO        241
                                        *                1.  DOBEGIN (INDEX-TAG)                                 DO        242
                                        *                2.  MRKEXT                                              DO        243
                                        *                3.  ARY-LOD (ARRAY-TAG       ,  INDEX-TAG  )            DO        244
                                        *                4.  APLUG   (INTERMEDIATE(4.),  AP-TAG     )            DO        245
                                        *                5.  RJUMP   (AP-TAG + TRACE  ,  ROUTINE-TAG)            DO        246
                                        *         WE ALSO REQUIRE THAT *INITIAL* AND *LIMIT* BE SHORT CONSTANTS, DO        247
                                        *                AND THAT THE *INCREMENT* IS ONE.                        DO        248
                                        *                                                                        DO        249
                                        *         IF THE ABOVE HOLDS, THEN THE LOOP IS COLLAPSIBLE.  THIS DOES   DO        250
                                        *         NOT EXHAUST THE CATEGORY OF LOGICALLY COLLAPSIBLE LOOPS, BUT   DO        251
                                        *         IT DOES DEFINE THE ONLY ONES THAT WE WILL (PRESENTLY) HANDLE.  DO        252
                                        *                                                                        DO        253
                                        *         THE COLLAPSE IS ACCOMPLISHED BY --                             DO        254
                                        *                A.  CONSTRUCT AN AP-LIST ITEM ENTRY WHOSE FIELDS ARE    DO        255
                                        *                    SET AS FOLLOWS --                                   DO        256
                                        *                            (ATAG)  = COPY (2TAG) OF 1OP OF TURPLE (3.) DO        257
                                        *                            (ABIAS) = COPY (2BIAS)OF 1OP OF TURPLE (3.) DO        258
                                        *                            (ATYP,  = ELEMENT LENGTH, WHICH IS EQUAL TO DO        259
                                        *                             ASIZ)    THE TRIP COUNT OF THE LOOP.       DO        260
                                        *                B.  ENTER THE AP-ITEM FROM (A.) INTO THE AP-LIST TABLE  DO        261
                                        *                    (*TP.APL*), AND INCREMENT (*IOLEN*).  *IOJ* WILL    DO        262
                                        *                    LATER CONSTRUCT A NEW AP-LIST AND *RJUMP* TURPLE.   DO        263
                                        *                C.  RESET TURPLES (0.) THRU (5.) TO *O=NOOP*, AND ZERO  DO        264
                                        *                    OUT THEIR OPERANDS.                                 DO        265
                                        *                D.  SET REPLY TO INDICATE COLLAPSE.                     DO        266
                                        *                                                                        DO        267
                                        *         NOTE   THIS WASTES THE AP-TAG AND AP-LIST ORIGINALLY SET UP TO DO        268
                                        *                BE USED BY TURPLE (5.).  TO AVOID THIS, HOWEVER, WOULD  DO        269
                                        *                REQUIRE CHANGES TO PREVIOUSLY CONSTRUCTED TABLES THAT   DO        270
                                        *                ARE NOT OBVIOUS TO THE CURRENT WRITER.                  DO        271
                                        *                                                                        DO        272
                                        *         USES   ALL BUT A0, B4.                                         DO        273
                                        *         CALLS  ADDWD, NOTE.                                            DO        274
                                                                                                                 DO        275
                                                                                                                 DO        276
            65  0400400065 +             AID      SUBR               ENTRY/EXIT...                               DO        277
            66  5120000000 X                      SA2    CONONE                                                  DO        278
                          13725                   BX7    X2-X5                                                   DO        279
            67  0317000065 +                      NZ     X7,EXIT.    IF INCREMENT NOT = 1                        DO        280
                                                                                                                 DO        281
                          5110000000 X            SA1    TT.PAR                                                  DO        282
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     7
                                                                      AID 
  
            70  5120000000 X                      SA2    TT=PAR                                                  DO        283
                          6170000000 X            SB7    DO=CC                                                   DO        284
            71  67707                             SB7    -B7                                                     DO        285
                     63767                        SB7    X6+B7                                                   DO        286
                          36012                   IX0    X1+X2       = LWA+1 (TT.PAR)                            DO        287
            72  6220777755                        SB2    X0-6*L.TURP                                             DO        288
                          0570000065 +            NZ     B7,EXIT.    IF BOTH INDICES NOT CONSTANT                DO        289
                                                                                                                 DO        290
            73  56320                             =A3    B2+0*L.TURP+OR.OPR                                      DO        291
                     5122000003                   =A2    B2+1*L.TURP+OR.OPR                                      DO        292
            74  7233777734                        SX3    X3-O.DOB                                                DO        293
                          7222777734              SX2    X2-O.DOB                                                DO        294
            75  0313000065 +                      NZ     X3,EXIT.    IF *DOBEGIN* NOT WHERE EXPECTED             DO        295
                          0312000065 +            NZ     X2,EXIT.    IF *DOBEGIN* NOT WHERE EXPECTED             DO        296
                                                                                                                 DO        297
            76  5132000011                        =A3    B2+3*L.TURP+OR.OPR                                      DO        298
                          6273777730              SB7    X3-O.ARY                                                DO        299
            77  0570000065 +                      NZ     B7,EXIT.    IF FIRST ITEM NOT AN ARRAY                  DO        300
                                                                                                                 DO        301
                          5122000013              SA2    B2+3*L.TURP+OR.2OP                                      DO        302
           100  5112000004                        SA1    B2+1*L.TURP+OR.1OP                                      DO        303
                          13621                   BX6    X2-X1                                                   DO        304
           101  0316000065 +                      NZ     X6,EXIT.    IF INDEX NOT SAME AS SUBSCRIPT              DO        305
                                                                                                                 DO        306
                          54321                   =A3    A2+1        = 4*L.TURP+OR.OPR                           DO        307
           102  5110000000 X                      SA1    APLUG                                                   DO        308
                          13731                   BX7    X3-X1                                                   DO        309
           103  0317000065 +                      NZ     X7,EXIT.    IF ARRAY NOT REALLY A LIST ITEM             DO        310
                                                                                                                 DO        311
                          5132000017              SA3    B2+5*L.TURP+OR.OPR                                      DO        312
           104  5110000000 X                      SA1    CALLIO                                                  DO        313
                          13631                   BX6    X3-X1                                                   DO        314
           105  0316000065 +                      NZ     X6,EXIT.    IF TOO MUCH STUFF IN LIST                   DO        315
                                                                                                                 DO        316
                          6170000000 X            NOTE   E.IOL3      ** IMPLIED LOOP REDUCED **                  DO        317
                                                                                                                 DO        318
                                   0              ERRNZ  L.ABIAS-L.2BIAS   BIAS FIELDS MUST BE SAME LENGTH       DO        319
                                   0              ERRNZ  P.2BIAS+L.2BIAS-P.2TAG   (2TAG) AND (2BIAS) MUST BE ADJ DO        320
                                                                                                                 DO        321
           107  55221                             =A2    A2-OR.2OP+OR.1OP                                        DO        322
                     43052                        MX0    -L.ATAG                                                 DO        323
                          56150                   =A1    B5+OR.DOSI                                              DO        324
                               54311              =A3    A1-OR.DOSI+OR.DOLI                                      DO        325
                                                  SBIT   X2,ATAG/2TAG                                            DO        326
           110  20222                             LX2    -P.ATAG     (X2) =  24/ ABIAS,  18/ JUNK,  18/ ATAG     DO        327
                     15520                        BX5    -X0*X2      COPY (2TAG) INTO (ATAG)                     DO        328
                          21152                   AX1    P.SHC       SIGN EXTEND *INITIAL*                       DO        329
                               21352              AX3    P.SHC       SIGN EXTEND COMPLEMENT OF (*LIMIT* + 1)     DO        330
           111  6170000005                        SB7    5                                                       DO        331
                          36431                   IX4    X3+X1       -(TRIP COUNT) = -(LIMIT+1) + INITIAL        DO        332
                               21252              AX2    -L.ABIAS    SIGN EXTEND *BIAS*                          DO        333
           112  36721                             IX7    X2+X1       NEW BIAS = INITIAL + OLD BIAS               DO        334
                     43022                        MX0    L.ABIAS                                                 DO        335
                          14444                   BX4    -X4         (X4) = TRUE TRIP COUNT                      DO        336
                               20752              LX7    -L.ABIAS                                                DO        337
           113  11307                             BX3    X0*X7       ISOLATE NEW BIAS                            DO        338
                     5110000000 X                 SA1    NOOPP                                                   DO        339
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     8
                                                                      AID 
  
                               12535              BX5    X3+X5                                                   DO        340
           114  76700                             =X7    0                                                       DO        341
                     22601                        LX6    X1                                                      DO        342
                          56620                   SA6    B2          NO-OP TURPLE (0.)                           DO        343
                               54761              =A7    A6+OR.1OP                                               DO        344
           115  20552                             LX5    P.ATAG                                                  DO        345
                     54771                        =A7    A7-OR.1OP+OR.2OP                                        DO        346
                                                                                                                 DO        347
           116  54671                    AID50    =A6    A7-OR.2OP+L.TURP  --     (1, 2, 3, 4)                   DO        348
                     54761                        =A7    A6+OR.1OP                                               DO        349
                          67771                   =B7    B7-1                                                    DO        350
                               54771              =A7    A7-OR.1OP+OR.2OP                                        DO        351
           117  0570000116 +                      NZ     B7,AID50    IF MORE TURPLES TO KILL                     DO        352
                                                                                                                 DO        353
                          22204                   LX2    X4                                                      DO        354
           120  7234020000                        =X3    X4+"AP=SIZ"S"ATYP"    SET ITEM LENGTH INDICATOR         DO        355
                          12653                   BX6    X5+X3                                                   DO        356
                               21215              AX2    L.ASIZ                                                  DO        357
           121  67501                             =B5    -1          INDICATE LOOP COLLAPSED                     DO        358
                     0302000125 +                 ZR     X2,AID60    IF SHORT ENUF TO PUT IN DIRECTLY            DO        359
                               22704              LX7    X4                                                      DO        360
           122  5170000000 X                      SA7    SCR                                                     DO        361
                          64270                   SB2    A7                                                      DO        362
                               64370              SB3    A7                                                      DO        363
           123  5110000000 X                      SCAN   TS.CON,NCM  ENTER TRIP COUNT INTO CONSTANT TABLE        DO        364
           124  7147040000                        SX4    B7+"AP=CON"S"ATYP"                                      DO        365
                          12645                   BX6    X4+X5                                                   DO        366
                                                                                                                 DO        367
           125  5120000000 X             AID60    SA2    IOLEN                                                   DO        368
                          73721                   =X7    X2+1        INCREMENT (IOLEN) FOR THIS ITEM             DO        369
                               54720              SA7    A2                                                      DO        370
           126  5110000000 X                      ADDWD  TP.APL                                                  DO        371
           127  0400000065 +                      EQ     EXIT.                                                   DO        372
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE     9
                                                                      CDI 
  
                                        **        CDI -  COMPILE *DO* INITIAL *TURPLE*.                          DO        374
                                        *                                                                        DO        375
                                        *         ENTRY  (B4) _ *=* OF *DO* STATEMENT.                           DO        376
                                        *                (X6) =                                                  DO        377
                                        *                1. IF LOW ORDER 18 BITS ARE ZERO                        DO        378
                                        *                   PROCESSING A PROGRAMMER *DO*                         DO        379
                                        *                2. OTHERWISE ASSUMED TO BE A I/O LIST PROCESSOR CALL.   DO        380
                                        *                                                                        DO        381
                                        *         EXIT   ENTRYS MADE INTO -                                      DO        382
                                        *                (X6) = 0                                                DO        383
                                        *                1. TS.STN OF STATEMENT NUMBER.(IF NOT I/O LIST PROCESS) FCC1307   113
                                        *                2. TP.DO  OF *DO* PARAMETERS. (SEE TP.DO WRITE-UP)      DO        385
                                        *                                                                        DO        386
                                        *                (X6) = 1S59                                             DO        387
                                        *                *DO* DEFINITION CONTAINED AN ERROR -- NO TABLE ENTRIES  DO        388
                                        *                MADE IN *TP.DO*.                                        DO        389
                                        *                                                                        DO        390
                                        *         CALLS  ALLOC, ISN, MXP, PAR                                    DO        391
                                        *                                                                        DO        392
                                        *         USES   ALL REGISTERS.                                          DO        393
                                                                                                                 DO        394
                                                                                                                 DO        395
           130  0400400130 +             CDI      SUBR               ENTRY/EXIT...                               DO        398
           131  63760                             SB7    X6                                                      DO        399
                     10566                        BX5    X6                                                      DO        400
                          0570000156 +            NZ     B7,CDI15    IF IN I/O LIST PROCESSING.                  DO        401
                                                                                                                 DO        402
                                        **        IDENTIFY STATEMENT NUMBER AS *DO*                              FCC1307   114
                                                                                                                 DO        404
           132  6120001200                        =B2    M.SNDOT+M.SNLAB   DO TERM AND STMNT NO. MASK            DO        405
                          7170000004              =X7    CR.DO       MARK DO IN CROSS REF.                       DO        406
           133  5170000000 X                      SA7    REFNUM                                                  FCC1307   115
                          0100000000 X            RJ     ISN         IDENTIFY STATEMENT NUMBER.                  DO        407
           134  0336000130 +                      NG     X6,EXIT.    IF ERROR IN DO STATEMENT NUMBER             FCC1307   116
                          76370                   SX3    B7          ORD OF TAG ENTRY IN TS.STN                  DO        409
           135  5110000000 X                      SA1    DOORD       ORD IN TS.STN OF CURRENT DO                 DO        410
                          76770                   SX7    B7                                                      DO        411
           136  5120000000 X                      SA2    TS.STN                                                  DO        412
                          10566                   BX5    X6          TAG FOR STATEMENT NUMBER.                   DO        413
                               20313              LX3    P.SLINK                                                 DO        414
           137  63320                             SB3    X2                                                      DO        415
                     54710                        SA7    A1          INDICATE *DO* PROCESSING. (SET DOORD)       DO        416
                          0301000153 +            ZR     X1,CDI10    IF DOES NOT DEFINE NESTING                  DO        417
                                                                                                                 DO        418
                                        **        1. ZERO LEVEL DO                                               DO        419
                                        *           A.  SET LINK TO ITSELF                                       DO        420
                                        *           B.  SET *CDORD* TO BASE OF DO NEST                           DO        421
                                        *                                                                        DO        422
                                        *         2. NESTED DO DEFINITION.                                       DO        423
                                        *           A.  IF PREVIOUSLY LINKED - CONTINUE WITH OLD LINK            FCC1307   117
                                        *           B.  SCAN LINK TO FIND LAST LINK IN PREVOUS DO CHAIN.         DO        425
                                        *           C.  SET LAST LINK OF PREVIOUS DO TO CURRENT DO               DO        426
                                        *           D.  SET CURRENT DO LINKED TO BASE OF NEST.                   DO        427
                                                                                                                 DO        428
           140  43057                             MX0    -L.SLINK                                                FCC1307   118
                     20013                        LX0    P.SLINK                                                 FCC1307   119
                          15460                   BX4    -X0*X6                                                  FCC1307   120
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    10
                                                                      CDI 
  
           141  0314000154 +                      NZ     X4,CDI13    IF PREVIOUSLY LINKED                        FCC1307   121
                          5120000000 X            SA2    CDORD       ENDING LINK = START OF DO NEST              DO        430
           142  7130000040                        =X3    M.SNNS                                                  DO        433
                          53113                   SA1    X1+B3       START SCAN FROM LAST DO START               DO        434
                               15410              BX4    -X0*X1                                                  DO        436
           143  12731                             BX7    X3+X1       INDICATE LAST DO IS NESTED                  DO        437
                     21152                        AX1    P.2TAG                                                  DO        438
                          63220                   SB2    X2                                                      DO        439
                               20461              LX4    -P.SLINK                                                DO        440
           144  6261537777                        SB6    X1-C.STAT                                               DO        441
                          54710                   SA7    A1          RESET *DO* IN TABLE                         DO        442
                                                                                                                 DO        443
           145  63540                    CDI5     SB5    X4                                                      DO        444
                     53143                        SA1    X4+B3                                                   DO        445
                          0452000150 +            EQ     B5,B2,CDI7  IF END OF CURRENT *DO* LINK                 DO        446
           146  15410                             BX4    -X0*X1                                                  DO        447
                     66650                        SB6    B5                                                      DO        448
                          46000                   NO                                                             DO        449
                               20461              LX4    -P.SLINK                                                DO        450
           147  0400000145 +                      EQ     CDI5        CONTINUE                                    DO        451
                                                                                                                 DO        452
                                        **        END OF LAST DO LINK                                            DO        453
                                                                                                                 DO        454
           150  56436                    CDI7     SA4    B3+B6       RELOAD LAST LINK                            DO        455
                     76370                        SX3    B7                                                      DO        456
                          11704                   BX7    X0*X4       CLEAR OLD LINK                              DO        457
                               20313              LX3    P.SLINK                                                 DO        458
           151  12737                             BX7    X3+X7                                                   DO        459
                     54740                        SA7    A4          RESET LAST LINK TO CURRENT DO               DO        460
                          15140                   BX1    -X0*X4                                                  DO        461
                               12661              BX6    X6+X1                                                   DO        462
           152  56637                             SA6    B3+B7       SET CURRENT DO LINKED TO BASE OF NEST       DO        463
                     0400000154 +                 EQ     CDI13       CONTINUE                                    DO        464
                                                                                                                 DO        465
                                                                                                                 DO        466
                                        **        SET CURRENT DO LINK                                            DO        467
                                        *         (B3) = (TS.STN)                                                DO        468
                                        *         (B7) = ORDINAL OF CURRENT DO RELATIVE TO (TS.STN)              DO        469
                                        *         (X3) = LINK FIELD TO ITSELF                                    DO        470
                                        *         (X5) = (X6)                                                    DO        471
                                        *         (X6) = TAG RETURNED FROM *ISN*                                 DO        472
                                        *         (X7) = (B7)                                                    DO        473
                                        *         (CDORD) = SET FOR BASE OF DO NEST                              DO        474
                                                                                                                 DO        475
           153  12663                    CDI10    BX6    X6+X3                                                   DO        476
                     5170000000 X                 SA7    CDORD       SET BASE OF DO NEST = ORDINAL               DO        477
                               56637              SA6    B3+B7       RESET TAG ENTRY WITH *DO* LINK.             DO        478
                                                                                                                 DO        479
           154  21552                    CDI13    AX5    P.2TAG                                                  DO        480
                     5110000000 X                 SA1    STN0R       STATEMENT NUMBER IN 0R FORM                 DO        481
                               20522              LX5    P.DOTAG                                                 DO        482
           155  10611                             BX6    X1                                                      DO        483
                                                                                                                 DO        484
                                        **        IF IN I/O LIST MODE.                                           DO        485
                                        *                (X5) = (X6) = L-TAG RIGHT JUSTIFIED.                    DO        486
                                        *                                                                        DO        487
                                        *         IF IN NORMAL DO.                                               DO        488
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    11
                                                                      CDI 
  
                                        *                (X5) = TAG RIGHT JUSTIFIED IN *DOTAG* FIELD.            DO        489
                                        *                (X6) = STATEMENT NUMBER IN DPC RIGHT JUSTIFIED.         DO        490
                                                                                                                 DO        491
           156  5160000000 X             CDI15    SA6    DOSTNO      SAVE *DO* STATEMENT NUMBER                  DO        492
                          13666                   BX6    0                                                       DO        493
           157  5160000000 X                      SA6    IXLASTV     CLEAR LAST INDEX VALUE CELL.                DO        494
                          67441                   =B4    B4-1        POINT TO *INDEX*                            DO        495
           160  5110000000 X                      ALLOC  TP.DO,L.DOE ALLOCATE ROOM FOR NEW *DO*.                 DO        496
           162  6272777776                        SB7    X2-L.DOE+OR.DOSN                                        DO        497
                          22705                   LX7    X5                                                      DO        498
                               63350              SB3    X5                                                      DO        499
           163  53717                             SA7    X1+B7       STATEMENT NUMBER TO TP.DO                   DO        500
                     0430000166 +                 ZR     B3,CDI20    IF NOT IN I/O LIST PROCESSING.              DO        501
           164  7160000032                        =X6    O.SLP                                                   DO        502
                          5164777776              SA6    B4-1        INDICATE TERMINATION OF MATCHING *)*.       DO        503
           165  67441                             =B4    B4-1                                                    DO        504
           166  76711                    CDI20    =X7    M.INT                                                   DO        505
                     5130000000 X                 SA3    DOARM                                                   DO        506
                               20722              LX7    P.ACM                                                   DO        507
           167  10633                             BX6    X3                                                      DO        508
                     5170000000 X                 SA7    ARGCOMA                                                 DO        509
           170  5160000000 X                      SA6    ARGMODE                                                 DO        510
                          0100000000 X            RJ     MXP         MARK EXTERNAL PROCESS                       DO        511
           171  0100000000 X                      RJ     PAR         PARSE IT.                                   DO        512
           172  5120000000 X                      SA2    ERR=F                                                   FEAT126C  180
                          13666                   =X6                INDICATE NO ERRORS                          DO        514
           173  0302000201 +                      ZR     X2,CDI25    IF NO ERRORS INSIDE DO                      DO        515
           174  5130000000 X             CDI21    SA3    TP.DO                                                   DO        516
                          5140000000 X            SA4    TP=DO                                                   DO        517
           175  13777                             BX7    0                                                       DO        518
                     36034                        IX0    X3+X4                                                   DO        519
                          5220777776              SA2    X0-L.DOE+OR.DOSN                                        DO        520
           176  5270777775                        SA7    X0-L.DOE+OR.DORT  INDICATE ERROR IN DO                  DO        521
                          63720                   SB7    X2                                                      DO        522
                               43601              MX6    1           INDICATE ERROR                              DO        523
           177  0470000130 +                      ZR     B7,EXIT.    IF PROGRAM DEFINED *DO*                     DO        524
                          7264777771              SHRINK A4,X4-L.DOE ELIMINATE DO FROM TABLE IF I/O DO           FCC0813   171
                     43601                        MX6    1           INDICATE ERROR                              FCC1692X    5
                          0400000130 +            EQ     EXIT.                                                   DO        527
                                                                                                                 DO        528
                                        **        TERMINATE *DO* INITIAL PROCESSING BY ADDING INITIAL *DO*       DO        529
                                        *         TURPLE TO PARSED FILE.                                         DO        530
                                        *         FORM -                                                         DO        531
                                        *                OR.OPR = O=DOB                                          DO        532
                                        *                OR.1OP = DO INITIAL                                     DO        533
                                        *                OR.2OP = DO RETURN TAG                                  DO        534
                                        *                                                                        DO        535
                                        *                OR.OPR = O=DOB1                                         DO        536
                                        *                OR.1OP = DO INDEX                                       DO        537
                                        *                OR.2OP = FLAG, INITIALLY SET TO 0.                      DO        538
                                                                                                                 DO        539
           201  5110000000 X             CDI25    ALLOC  TT.PAR,2*L.TURP                                         DO        540
           203  63510                             SB5    X1          ORGIN OF *TT.PAR*                           DO        541
                     5130000000 X                 SA3    TP.DO                                                   DO        542
           204  5120000000 X                      SA2    TP=DO                                                   DO        543
                          36032                   IX0    X3+X2                                                   DO        544
                               13777              BX7    0                                                       DO        545
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    12
                                                                      CDI 
  
           205  5240777774                        SA4    X0-L.DOE+OR.DOCI                                        DO        546
                          57771                   =A7    B7-1        OR.2OP = FLAG (INITIAL SET = 0)             DO        547
           206  5130000000 X                      SA3    DO.BEG                                                  DO        548
                          10644                   BX6    X4                                                      DO        549
                               22703              LX7    X3                                                      DO        550
           207  54541                             =A5    A4-OR.DOCI+OR.DORT                                      DO        551
                     55671                        =A6    A7-1        OR.1OP = CONTROL INDEX                      DO        552
                          22605                   LX6    X5                                                      DO        553
                               55761              =A7    A6-1        OR.OPR = O=DOB1                             DO        554
           210  5045777773                        =A4    A5-OR.DORT+OR.DOSI                                      DO        555
                          55671                   =A6    A7-1        OR.2OP = DO RETURN TAG                      DO        556
                               22704              LX7    X4                                                      DO        557
           211  10633                             BX6    X3                                                      DO        558
                     55761                        =A7    A6-1        OR.1OP = DO INITIAL                         DO        559
                          55671                   =A6    A7-1        OR.OPR = O=DOB                              DO        560
           212  5230777776                        SA3    X0-L.DOE+OR.DOSN                                        DO        561
                          75765                   SX7    A6-B5       RELATIVE ADDRESS                            DO        562
                               20752              LX7    P.DFLAG                                                 DO        563
           213  36637                             IX6    X3+X7                                                   DO        564
                     54630                        SA6    A3          SET FLAG CELL TO POINT TO *DO* BEGIN TURPLE DO        565
                          13666                   =X6                INDICATE NO ERROR                           DO        566
           214  0400000130 +                      EQ     EXIT.                                                   DO        567
  
  
  
  
                                        **        CDO -  CLEAR *DO* REGISTER CONDITIONS.                         DO        569
                                        *                                                                        DO        570
                                        *         ENTRY  FROM PASS *2* ON TERMINATION OF *DO* CONCLUSION CODE.   DO        571
                                        *                                                                        DO        572
                                        *         EXIT   BACK TO PASS *2*, CLEARING *B6* REGISTER FROM RGFILE    DO        573
                                        *                AND USEFILE.                                            DO        574
                                                                                                                 DO        575
                                                                                                                 DO        576
           215  76700                    CDO      =X7    0                                                       DO        577
                     22304                        LX3    X4                                                      DO        578
                          5170000000 X            SA7    DOIX        CLEAR *DOIX*                                DO        579
           216  5170000006                        SA7    R.B6        CLEAR REGFILE ENTRY                         DO        580
                          0400000000 X            EQ     NULLOP                                                  DO        581
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    13
                                                                      DIP 
  
                                        **        DIP -  *PASS 3* PROCESSING FOR A *DO* LOOP.                    DO        583
                                        *                                                                        DO        584
                                        *         ENTRY  CALLED WHEN A *O=DOB* *TURPLE* WAS ENCOUNTERED IN       DO        585
                                        *                PARSED FILE SET DURING PASS *1*                         DO        586
                                        *                *DIP* CHECKS *FLAG* TO DETERMINE WHAT HE CAN DO TO *DO* DO        587
                                        *                LOOP COUNTING MECHANISM AND *DO* STRUCTURE.             DO        588
                                        *                                                                        DO        589
                                        *         CHECKS                                                         DO        590
                                        *                                                                        DO        591
                                        *                FLAG (OR.2OP OF O=DOB1 *TURPLE*)                        DO        592
                                        *                < 0, *DO* IS EITHER *I/O*, *EXTENDED RANGE*, HAS AN     DO        593
                                        *                     *EXTERNAL PROCESS* INSIDE BODY, OR REDEFINES       DO        594
                                        *                     *DO* INDEX.                                        DO        595
                                        *                                                                        DO        596
                                        *                OUTPUT TURPLE AS DEFINED BY *PDT* DURING PASS *1*.      DO        597
                                        *                                                                        DO        598
                                        *                FLAG > 0, INDICATES *DO* IS CLOSED.                     DO        599
                                        *                IN THIS CASE WE CAN OPTIMIZE *DO* COUNTING MECHANISM.   DO        600
                                        *                                                                        DO        601
                                        *                                                                        DO        602
                                        *         EXIT   DO BEGIN CODE ADDED TO INTERMEDIATE FILE.               DO        603
                                                                                                                 DO        604
                                                                                                                 DO        605
           217  5124000005               DIP      SA2    B4+OR.DFLAG                                             DO        606
                          5154000001              SA5    B4+OR.1OP                                               DO        607
           220  21252                             AX2    P.DFLAG                                                 DO        608
                     6144000003                   =B4    B4+L.TURP                                               DO        609
                               63520              SB5    X2          SAVE FLAG                                   DO        610
           221  66200                             SB2    B0                                                      DO        611
                     66700                        SB7    B0                                                      DO        612
                          0100000000 X            RJ     GST                                                     DO        613
           222  0450000232 +                      ZR     B5,DIP5     IF NOT CLOSED LOOP                          DO        614
                                                                                                                 DO        615
                                        *         PROCESS CLOSED LOOP                                            DO        616
                                                                                                                 DO        617
                          7160000006              SX6    R.B6-RGFILE                                             DO        618
           223  63660                             SB6    X6          SAVE REGISTER                               DO        619
                     5154000001                   SA5    B4+OR.1OP   *DO* INDEX TAG                              DO        620
           224  5160000000 X                      SA6    DOIX                                                    DO        621
                          0100000000 X            RJ     GST         GET STATUS OF *DO* INDEX                    DO        622
           225  0420000227 +                      ZR     B2,DIP3     IF NOT ACTIVE IN ANOTHER REGISTER           DO        623
                          76600                   =X6    0                                                       DO        624
           226  5162000000 X                      SA6    B2+REGFILE  CLEAR OTHER ASSIGNMENT                      DO        625
           227  7100000400               DIP3     =X0    RLOCK                                                   DO        626
                          76660                   SX6    B6                                                      DO        627
                               12705              BX7    X0+X5       OR IN LOCK BIT                              DO        628
           230  54610                             SA6    A1          INDICATE IN *B* REGISTER                    DO        629
                     5176000000 X                 SA7    B6+REGFILE  TAG + LOCK BIT + USE COUNT                  DO        630
           231  6144000003                        =B4    B4+L.TURP                                               DO        631
                          0400000000 X            EQ     EIS.PNX     NEXT..                                      DO        632
                                                                                                                 DO        633
                                        *         PROCESS OPEN LOOP                                              DO        634
                                                                                                                 DO        635
           232  7100100000               DIP5     =X0    M.USTAT                                                 DO        636
                          6130000026              SB3    R.X6-RGFILE                                             DO        637
           233  13666                             BX6    0                                                       DO        638
                     66200                        SB2    B0                                                      DO        639
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    14
                                                                      DIP 
  
                          15710                   BX7    -X0*X1                                                  DO        640
                               56541              =A5    B4+OR.1OP   *DO* INDEX TAG                              DO        641
           234  7100000400                        =X0    RLOCK                                                   DO        642
                          54710                   SA7    A1          INDICATE NOT IN REGISTER                    DO        643
                               15550              BX5    -X0*X5                                                  DO        644
           235  5163000000 X                      SA6    B3+REGFILE  CLEAR REGFILE                               DO        645
                          5160000000 X            SA6    DOIX                                                    DO        646
           236  5160000000 X                      SA6    UUC                                                     DO        647
                          0100000000 X            RJ     SDS         SET DELAYED STORE IN MOTION                 DO        648
           237  6144000003                        =B4    B4+L.TURP                                               DO        649
                          0400000000 X            EQ     EIS.PNX     NEXT..                                      DO        650
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    15
                                                                      PDT 
  
                                        **        PDT -  PROCESS *DO* TABLES.                                    DO        652
                                        *                                                                        DO        653
                                        *         *PDT* WILL SET UP A *D0* CONCLUSION TURPLE TO BE PROCESSED     DO        654
                                        *         BY PASS 2, WHEN PARSED FILE IS FINALLY FLUSHED.                DO        655
                                        *                                                                        DO        656
                                        *         ENTRY  IF I/O LIST PROCESSING                                  DO        657
                                        *                (X2) = TABLE FORMAT FOR AN I/O DO.                      DO        658
                                        *         TABLE FORMAT=                                                  DO        659
                                        *                       24/ 0,  18/ 0       18/ L.TAG                    DO        660
                                        *                                                                        DO        661
                                        *                IF PROGRAMMER DEFINED *DO*                              DO        662
                                        *                (X2) = TABLE FORMAT FOR PROGRAMMER DO.                  DO        663
                                        *         TABLE FORMAT=                                                  DO        664
                                        *                       24/ 0,  18/ SN.TAG, 18/ 0                        DO        665
                                        *                                                                        DO        666
                                        *         EXIT   DO CONCLUSION SKELETONS ADDED TO PARSED FILE.           DO        667
                                        *                                                                        DO        668
                                        *                IF (X2) = A *DO* NUMBER                                 DO        669
                                        *                DO CONCLUSION CODE COMPILED.                            DO        670
                                        *                                                                        DO        671
                                        *         USES   ALL REGISTERS EXCEPT *B4*                               DO        672
                                        *                                                                        DO        673
                                        *         CALLS  ADL, CDS, CIR, SSN                                      DO        674
                                                                                                                 DO        675
                                                                                                                 DO        676
           240  0400400240 +             PDT      SUBR               ENTRY/EXIT...                               DO        677
                                                                                                                 DO        678
                                         SNAP=Q   IFNE   TEST,0      DUMP(TP.DO)                                 DO        679
                                                  SA1    CO.SNAP                                                 DO        680
                                                  LX1    1RN         DO SNAP FLAG                                FEAT126C  181
                                                  PL     X1,PDT1A                                                DO        682
                                                  DUMPT  (TP.DO)                                                 DO        683
                                         PDT1A    BSS    0                                                       DO        684
                                         SNAP=Q   ENDIF                                                          DO        685
                                                                                                                 DO        686
           241  10622                             BX6    X2                                                      DO        687
                     5140000000 X                 SA4    TP=DO                                                   DO        688
           242  5110000000 X                      SA1    TP.DO                                                   DO        689
                          5160000000 X            SA6    CDOTG       SAVE STATEMENT TAG (LOWER ORDER)            DO        690
           243  36214                             IX2    X1+X4       LWA+1                                       DO        691
                     43022                        MX0    L.DFLAG                                                 DO        692
                          5232777776              SA3    X2-L.DOE+OR.DOSN                                        DO        693
           244  13536                             BX5    X3-X6       COMPARE TABLE ENTRY TO NUMBER               DO        694
                     6053777772                   SB5    A3-OR.DOSN+OR.DOSI                                      DO        695
                               15250              BX2    -X0*X5      ISOLATE TAG ONLY                            DO        696
           245  0302000250 +                      ZR     X2,PDT5     IF NOT ILLEGALLY NESTED DO                  DO        697
                          6170000000 X            FATAL  E.DO12                                                  DO        698
           247  0400000266 +                      EQ     PDT40       CONTINUE CHECK                              DO        699
                                                                                                                 DO        700
                                        **        CHECK IF *DO* DEFINITION HAD ERRORS.                           DO        701
                                        *         (B5) = FWA FROM *DO* TABLE FOR CURRENT *DO*.                   DO        702
                                        *         (X3) = CURRENT *DO* ENTRY TAG.                                 DO        703
                                        *         (X4) = CURRENT LENGTH OF DO TABLE                              DO        704
                                                                                                                 DO        705
           250  5125000004               PDT5     SA2    B5+OR.DORT                                              DO        706
                          0312000254 +            NZ     X2,PDT7     IF NO ERROR IN DO DEFINITION                DO        707
           251  6170000000 X                      NOTE   E.DO13      DEFINITION ERROR                            DO        708
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    16
                                                                      PDT 
  
           252  0100000000 X                      RJ     CLK         CLEAR LINKS                                 DO        709
           253  13222                             BX2    X2-X2       *NOT ILLEGALLY NESTED DO* FLAG              DO        710
                     0400000266 +                 EQ     PDT40                                                   DO        711
                                                                                                                 DO        712
           254  63730                    PDT7     SB7    X3          =0, IN PROGRAMMER DO                        DO        713
                     22603                        LX6    X3                                                      DO        714
                          76700                   =X7    0                                                       DO        715
           255  0570000260 +                      NZ     B7,PDT10    IF CURRENT IS AN I/O IMPLIED DO             DO        716
                          10544                   BX5    X4                                                      DO        717
           256  0100000000 X                      RJ     CLK         CLEAR CURRENT DO LINKS                      DO        718
           257  10455                             BX4    X5                                                      DO        719
                     66700                        =B7    0           INDICATE PROGRAMMER *DO*                    DO        720
           260  6234777771               PDT10    SB3    X4-L.DOE                                                DO        721
                          13777                   BX7    0                                                       DO        722
           261  0430000264 +                      ZR     B3,PDT15    IF ZERO LENGTH TABLE.                       DO        723
                          5125777776              SA2    B5-L.DOE+OR.DOSN                                        DO        724
           262  63220                             SB2    X2                                                      DO        725
                     21222                        AX2    P.DOTAG                                                 DO        726
                          0520000264 +            NZ     B2,PDT15    IF NEXT IS AN I/O IMPLIED DO                DO        727
           263  7272537777                        =X7    X2-C.STAT   ORDINAL OF NEXT DO                          DO        728
                                                                                                                 DO        729
                                        **        RESET *DOORD* AND ANALYZE *DO* FOR PASS *1*.                   DO        730
                                        *                (B5) _ START OF CURRENT *DO* IN TP.DO                   DO        731
                                        *                (X7) = NEW *DOORD* FOR DO GOING INTO                    DO        732
                                                                                                                 DO        733
           264  5170000000 X             PDT15    SA7    DOORD       RESET *DO* ORDINAL                          DO        734
                          0100000022 +            RJ     ADL         ANALYZE *DO*                                DO        735
                                                                                                                 DO        736
                                        **        CLEAR *DO* CELLS - CHECK IF MORE THAN ONE *DO* IN NEST.        DO        737
                                                                                                                 DO        738
           265  43200                             MX2    0           *NOT ILLEGALLY NESTED DO* FLAG              DO        739
           266  76600                    PDT40    =X6    0                                                       DO        740
                     13777                        BX7    0                                                       DO        741
                          5160000000 X            SA6    DOLMR       CLEAR DO-LIMIT                              DO        742
           267  54761                             =A7    A6+1          -   DO-INCREMENT                          DO        743
                     54671                        =A6    A7+1          -   DO-INDEX                              DO        744
                          5140000000 X            SA4    TP=DO                                                   DO        745
           270  54761                             =A7    A6+1          -   DO-INDEX REGISTER                     DO        746
                     0312000240 +                 NZ     X2,EXIT.    IF ILLEGAL NEST                             DO        747
           271  7264777771                        SX6    X4-L.DOE                                                DO        748
                          54640                   SHRINK A4,X6       RESET LENGTH                                FCC0813   172
                                                                                                                 DO        750
                                        **        CHECK IF MORE THAN ONE LOOP TERMINATES ON THIS *DO* NUMBER.    DO        751
                                        *         (X6) = CURRENT LENGTH OF DO TABLE                              DO        752
                                                                                                                 DO        753
           272  5120000000 X                      SA2    CDOTG       CURRENT *DO* TAG.                           DO        754
                          5110000000 X            SA1    TP.DO                                                   DO        755
           273  6226777776                        SB2    X6-L.DOE+OR.DOSN                                        DO        756
                          0306000240 +            ZR     X6,EXIT.    IF EMPTY TABLE.                             DO        757
           274  43052                             MX0    -L.DOTAG                                                DO        758
                     53312                        SA3    X1+B2                                                   DO        759
                          20022                   LX0    P.DOTAG                                                 DO        760
                               15330              BX3    -X0*X3                                                  DO        761
           275  13732                             BX7    X3-X2                                                   DO        762
                     0317000240 +                 NZ     X7,EXIT.    IF NOT CURRENT *DO* NUMBER.                 DO        763
                                                                                                                 DO        764
                                        **        NESTING OF *DO* WITH SINGLE TERMINATOR                         DO        765
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    17
                                                                      PDT 
  
                                        *         RESET LINK FIELD IN *DO* NUMBER TO ITSELF, CHECKING FIRST IF   DO        766
                                        *         DO IS PROGRAMMER DEFINED.                                      DO        767
                                                                                                                 DO        768
                               63730              SB7    X3                                                      DO        769
           276  10466                             BX4    X6                                                      DO        770
                     6053777772                   SB5    A3-OR.DOSN+OR.DOSI                                      DO        771
                                                                                                                 DO        772
           277  0570000250 +                      NZ     B7,PDT5     IF IN *I/O* DO                              DO        773
                          10633                   BX6    X3                                                      DO        774
           300  5110000000 X                      SA1    TS.STN                                                  DO        775
                          21622                   AX6    P.DOTAG                                                 DO        776
           301  6226537777                        SB2    X6-C.STAT                                               DO        777
                          7100000040              =X0    M.SNNS                                                  DO        778
           302  53212                             SA2    X1+B2       LOAD NUMBER FROM TS.STN                     DO        779
                     12620                        BX6    X2+X0                                                   DO        780
                          54620                   SA6    A2          INDICATE NUMBER TERMINATES MORE THAN 1 LOOP DO        781
           303  0400000250 +                      EQ     PDT5        CONTINUE                                    DO        782
                                                                                                                 DO        783
                                                  LIST   D                                                       DO        784
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        PWE 
             0 X                        ANSI= 
             0 X                        FLOW
             0 X                        NOPATH
             0 X                        LDEAD 
             0 X                        E.NP1 
             0 X                        CO.ER 
             0 X                        ALC 
  
           304                                    END                                                            DO        785
  
                             55100B CM  STORAGE USED             1658 STATEMENTS      827 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.364 SECONDS         414 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADL            22   PROGRAM*        3/39 L   16/27
        ADL10          51   PROGRAM*        4/42      4/50 L
        ADL30          53   PROGRAM*        3/56      4/18      4/20      4/21      4/22      5/02 L
        ADL32          54   PROGRAM*        5/04 L
        ADL5           31   PROGRAM*        3/50      4/12 L
        ADL7           45   PROGRAM*        4/40      4/42 L
        ADW             0   EXTERNAL*       1/52 X    8/32
        AID            65   PROGRAM*        3/54      6/52 L
        AID50         116   PROGRAM*        8/09 L    8/13
        AID60         125   PROGRAM*        8/20      8/29 L
        ALC             0   EXTERNAL*       5/08     11/08     11/52
        ALC.DO          0   EXTERNAL*       1/52 X    5/04
        ALC.REG         0   EXTERNAL*       1/52 X    5/05
        ANSI=           0   EXTERNAL*       2/41
        APLUG           0   EXTERNAL*       1/42 X    7/26
        ARGCOMA         0   EXTERNAL*       1/42 X   11/21 S
        ARGMODE         0   EXTERNAL*       1/42 X   11/22 S
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        ASL             0   EXTERNAL*       1/55 X    2/33
        CAI             0   EXTERNAL*       2/13 X    2/53
        CALLIO          0   EXTERNAL*       1/42 X    7/31
        CDI           130   PROGRAM*        1/36 E    3/04      9/23 L
        CDI10         153   PROGRAM*        9/43     10/45 L
        CDI13         154   PROGRAM*       10/01     10/33     10/49 L
        CDI15         156   PROGRAM*        9/26     11/04 L
        CDI20         166   PROGRAM*       11/13     11/17 L
        CDI21         174   PROGRAM*       11/28 L
        CDI25         201   PROGRAM*       11/27     11/52 L
        CDI5          145   PROGRAM*       10/13 L   10/20
        CDI7          150   PROGRAM*       10/15     10/24 L
        CDO           215   PROGRAM*        1/36 E   12/35 L
        CDORD           0   EXTERNAL*       1/42 X   10/02     10/46 S
        CDOTG           0   EXTERNAL*       2/16 X   15/39 S   16/46
        CHAR            6   TSTEXT          2/47      2/56
        CLK             0   EXTERNAL*       2/04 X   16/01     16/10
        CONONE          0   EXTERNAL*       1/42 X    6/53
        CO.ER           0   EXTERNAL*       4/39
        CO.SNAP         0   EXTERNAL*       1/39 X
        CR.DO           4   TSTEXT          9/31
        C.STAT     240000   TSTEXT          4/15     10/10     16/20     17/12
        DIP           217   PROGRAM*        1/36 E   13/24 L
        DIP3          227   PROGRAM*       13/41     13/44 L
        DIP5          232   PROGRAM*       13/32     13/54 L
        DOARM           0   EXTERNAL*       1/43 X   11/18
        DOIX            0   EXTERNAL*       1/43 X    2/50 S    4/19     12/37 S   13/39 S   14/07 S
        DOLMR           0   EXTERNAL*       1/43 X   16/34 S
        DOORD           0   EXTERNAL*       1/43 X    9/36     16/26 S
        DOSTNO          0   EXTERNAL*       1/43 X    2/36 S    2/55     11/04 S
        DO=CC           0   EXTERNAL*       1/43 X    4/52      7/02
        DO.BEG          0   EXTERNAL*       1/43 X   12/03
        DO.CSKL         0   EXTERNAL*       1/43 X    5/03
        EIS.PNX         0   EXTERNAL*       2/13 X   13/50     14/11
        ERR=F           0   EXTERNAL*       1/49 X   11/25
        E.AS4           0   EXTERNAL*       1/48 X    2/32
        E.DO12          0   EXTERNAL*       1/48 X   15/47
        E.DO13          0   EXTERNAL*       1/48 X   15/57
        E.DO18          0   EXTERNAL*       1/48 X    4/47
        E.DO27          0   EXTERNAL*       1/48 X    2/38      2/43
        E.DO28          0   EXTERNAL*       1/48 X    2/41      2/41
        E.DO29          0   EXTERNAL*       1/48 X    2/40
        E.IOL3          0   EXTERNAL*       1/49 X    7/35
        E.NP1           0   EXTERNAL*       3/18
        FLOW            0   EXTERNAL*       3/05
        GST             0   EXTERNAL*       2/07 X   13/31     13/40
        IOLEN           0   EXTERNAL*       2/01 X    8/29
        ISN             0   EXTERNAL*       2/04 X    9/33
        IXLASTV         0   EXTERNAL*       2/10 X    2/52 S    2/54     11/06 S
        LDEAD           0   EXTERNAL*       3/17 S
        LG.VAR          7   TSTEXT          2/47
        L.ABIAS        22   TSTEXT          7/37      7/51      7/53      7/55
        L.ASIZ         15   TSTEXT          8/18
        L.ATAG         22   TSTEXT          7/41
        L.DFLAG        22   TSTEXT          4/33     15/41
        L.DOE           6   TSTEXT         11/08     11/32     11/37     12/16     16/13     16/40
                                           11/09     11/33 S   12/01     15/42     16/16     16/48
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        L.DOTAG        22   TSTEXT         16/50
        L.NULDO        17                   3/35 D    4/37
        L.SLINK        15   TSTEXT          9/55
        L.TURP          3   TSTEXT          3/35      5/08      7/10      7/21     11/52     13/49
                                            4/41      7/06      7/16      7/30     13/27     14/10
                                            4/46 S    7/09      7/20      8/09     13/49
        L.2BIAS        22   TSTEXT          7/37      7/38
        MXP             0   EXTERNAL*       2/13 X   11/23
        M.INT           2   TSTEXT         11/17
        M.SHORT      4000   TSTEXT          3/41
        M.SNDOT      1000   TSTEXT          9/30
        M.SNLAB       200   TSTEXT          9/30
        M.SNNS         40   TSTEXT         10/03     17/13
        M.USTAT    100000   TSTEXT         13/54
        NCM             0   EXTERNAL*       1/52 X    8/25
        NOOPP           0   EXTERNAL*       1/44 X    4/43      7/57
        NOPATH          0   EXTERNAL*       3/16 S
        NULLOP          0   EXTERNAL*       2/13 X   12/39
        OP.LEN         50                   3/34 D
        OR.DFLAG        5   TSTEXT          4/34     13/24
        OR.DOCI         3   TSTEXT          5/20     12/01     12/06
        OR.DOII         2   TSTEXT          3/42      5/16      5/20
        OR.DOLI         1   TSTEXT          3/40      5/12      5/16      7/43
        OR.DORT         4   TSTEXT          5/11     11/33 S   12/06     12/10     15/55
        OR.DOSI         0   TSTEXT          7/42      7/43     12/10     15/44     17/06
        OR.DOSN         5   TSTEXT          4/12     11/32     15/42     16/16     17/06
                                           11/09     12/16     15/44     16/48
        OR.OPR          0   TSTEXT          7/09      7/10      7/16      7/30
        OR.1OP          1   TSTEXT          7/21      8/05      8/10     13/25     14/02
                                            7/40      8/07      8/12     13/38
        OR.2OP          2   TSTEXT          7/20      7/40      8/07      8/09      8/12
        O.ARY          47   TSTEXT          7/17
        O.COMMA        13   TSTEXT          2/37
        O.CONS          2   TSTEXT          2/31
        O.DOB          43   TSTEXT          7/11      7/12
        O.SLP          32   TSTEXT         11/14     11/14
        O.VAR           3   TSTEXT          2/46
        PAR             0   EXTERNAL*       2/10 X   11/24
        PDT           240   PROGRAM*        1/36 E   15/26 L
        PDT10         260   PROGRAM*       16/08     16/13 L
        PDT15         264   PROGRAM*       16/15     16/19     16/26 L
        PDT40         266   PROGRAM*       15/48     16/03     16/32 L
        PDT5          250   PROGRAM*       15/46     15/55 L   17/08     17/17
        PDT7          254   PROGRAM*       15/56     16/05 L
        PSN             0   EXTERNAL*       2/04 X    3/06
        PWE             0   EXTERNAL*       2/40      4/47      7/35     15/47     15/57
        P.             73   TSTEXT          4/18
        P.ACM          22   TSTEXT         11/19
        P.ATAG         52   TSTEXT          7/45      8/06
        P.DFLAG        52   TSTEXT          4/29      4/38     12/18     13/26
        P.DOTAG        22   TSTEXT          4/14      4/29     10/51     16/18     16/52     17/11
        P.SHC          52   TSTEXT          7/47      7/48
        P.SHORT        13   TSTEXT          3/48
        P.SLINK        13   TSTEXT          9/40      9/56     10/09     10/19     10/27
        P.SNEX          6   TSTEXT          4/18      4/20
        P.SNNS          5   TSTEXT          4/21
        P.SNOPE        12   TSTEXT          4/20      4/21
1       /DO  *DO* STATEMENT PROCESSORS                                COMPASS 3.7-871.     24/05/02. 15.52.30.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        P.2BIAS        30   TSTEXT          7/38
        P.2TAG         52   TSTEXT          7/38     10/07     10/49
        REFNUM          0   EXTERNAL*       1/44 X    9/32 S
        REGFILE         0   EXTERNAL*       1/44 X   13/43 S   13/48 S   14/06 S
        RGFILE          0   TSTEXT         13/36     13/55
        RLOCK         400   TSTEXT         13/44     14/03
        R.B6            6   TSTEXT         12/38 S   13/36
        R.X6           26   TSTEXT         13/55
        SCR             0   EXTERNAL*       2/16 X    3/49 S    4/50      5/02      8/22 S
        SDO             1   PROGRAM*        1/36 E    2/30 L
        SDO3           11   PROGRAM*        2/39      2/45 L
        SDS             0   EXTERNAL*       2/07 X   14/09
        STN0R           0   EXTERNAL*       2/04 X   10/50
        TEST            0   TSTEXT         15/28 F
        TP=DO           0   EXTERNAL*       1/45 X   11/29     11/55     15/37     16/37
        TP.APL          0   EXTERNAL*       1/45 X    8/32
        TP.DO           0   EXTERNAL*       1/45 X   11/08     11/08     11/28     11/54     15/38     16/47
        TS.CON          0   EXTERNAL*       1/45 X    8/25
        TS.STN          0   EXTERNAL*       1/45 X    3/46      9/38     17/10
        TT=PAR          0   EXTERNAL*       1/44 X    4/31      7/01
        TT.PAR          0   EXTERNAL*       1/44 X    4/30      5/08      6/57     11/52
        UUC             0   EXTERNAL*       1/45 X   14/08 S
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      160              IDENT  FUN
                        160                       END 
  
  
                                        ENTRY POINTS. 
  
                                        O=ARG           15+           O=FUN            3+           ARGNUM         156+ 
                                        O=RJT          124+           O=BEF            0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        RJSUB     RREG      TT.SCR    NAP       CIA       GST       SLD       CDS 
                                        RJTDUM    TG.PRO    UUC       EMT       CRJ       EIS.PNX   TRACE 
                                        ROUTNAM   TP.APL    WIN       ASR       CWI       SA=BK     TG.TEM
                                        REGFILE   T.VDIM    ADW       CLI       DIT       XMITS3    CLT 
  
  
  
  
                                                  IDENT  FUN                                                     FUN         2
                                         FUN      SECT   (INLINE / EXTERNAL FUNCTION PROCESSORS),1               FUN         3
  
                                                                                                                 FUN         4
                                                  SST    A,B,C,D                                                 FUN         5
                                                  NOREF  A,B,C,D                                                 FUN         6
                                                                                                                 FUN         7
                                         B=FUN    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     FUN         8
                                                                                                                 FUN         9
                                                  ENTRY  O=ARG,O=RJT,O=FUN,O=BEF,ARGNUM                          FUN        10
                                                                                                                 FUN        11
                                        *         IN TABLES                                                      FUN        12
                                                  EXT    RJSUB,RJTDUM,ROUTNAM,REGFILE,RREG                       FUN        13
                                                  EXT    TG.PRO,TP.APL,T.VDIM,TT.SCR,UUC                         FUN        14
                                                                                                                 FUN        15
                                        *         IN PIG                                                         FUN        16
                                                  EXT    WIN                                                     FUN        17
                                                                                                                 FUN        18
                                        *         IN ALLOC                                                       FUN        19
                                                  EXT    ADW,NAP                                                 FUN        20
                                                                                                                 FUN        21
                                        *         IN KEY                                                         FUN        22
                                                  EXT    EMT                                                     FUN        23
                                                                                                                 FUN        24
                                        *         IN REG                                                         FUN        25
                                                  EXT    ASR,CLI,CIA,CRJ,CWI,DIT,GST                             FUN        26
                                                                                                                 FUN        27
                                        *         IN GEN                                                         FUN        28
                                                  EXT    EIS.PNX,SA=BK,XMITS3,SLD                                FUN        29
                                                                                                                 FUN        30
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     2
                                                                      O=BEF 
  
                                        **        O=BEF - RETURN JUMP TO CALL-BY-VALUE FUNCTION.                 FUN        32
                                        *                                                                        FUN        33
                                        *         ENTRY  (1OP) = ROUTINE TAG.                                    FUN        34
                                        *                (B4) _ TURPLE BEING PROCESSED.                          FUN        35
                                        *                CODE TO LOAD THE ARGUMENT(S) HAS BEEN COMPILED BY       FUN        36
                                        *                            PRECEDING *O=RAG* TURPLES.                  FUN        37
                                        *         EXIT   TO *O=FUN2*.                                            FUN        38
                                        *         CALLS  CRJ.                                                    FUN        39
                                                                                                                 FUN        40
                                                                                                                 FUN        41
             0  5114000001               O=BEF    SA1    B4+OR.1OP                                               FUN        42
                          10611                   BX6    X1                                                      FUN        43
                               13111              CRJ    NONE                                                    FUN        44
             2  0400000005 +                      EQ     O=FUN2      CONTINUE..                                  FUN        45
  
  
  
  
                                        **        O=FUN - RETURN JUMP TO CALL-BY-NAME FUNCTION.                  FUN        47
                                        *                                                                        FUN        48
                                        *         ENTRY  (1OP) = ROUTINE TAG.                                    FUN        49
                                        *                (B4) _ TURPLE BEING PROCESSED.                          FUN        50
                                        *                ARGUMENTS HAVE BEEN SET UP BY PRECEEDING *O=ARG*        FUN        51
                                        *                            TURPLES --                                  FUN        52
                                        *                (ARGNUM) SET-UP BY *O=ARG*.                             FUN        53
                                        *                (TP.APL) SET-UP BY *O=ARG*.                             FUN        54
                                        *                                                                        FUN        55
                                        *         EXIT   TO *EIS.PNX*.                                           FUN        56
                                        *                (B4) ADVANCED                                           FUN        57
                                        *         CALLS  PEJ, TRF.                                               FUN        58
                                        *                                                                        FUN        59
                                        *         NOTE   ALSO CONTAINS PROCESSING USED BY *O=BEF*.               FUN        60
                                                                                                                 FUN        61
                                                                                                                 FUN        62
             3  5114000001               O=FUN    SA1    B4+OR.1OP                                               FUN        63
                          10611                   BX6    X1                                                      FUN        65
             4  5160000000 X                      SA6    ROUTNAM                                                 FUN        67
                          0100000133 +            RJ     PEJ         COMPILE EXTERNAL JUMP.                      FUN        69
                                                                                                                 FUN        70
                                        **        JOINED HERE BY CALL-BY-VALUE RETURN JUMP.                      FUN        71
                                                                                                                 FUN        72
             5  13555                    O=FUN2   BX5    0                                                       FUN        73
                     43700                        MX7    0                                                       FUN        74
                          6120000026              SB2    R.X6-RGFILE 0TR (UPPER HALF)                            FUN        75
             6  66300                             =B3    0           RESULTS OF UPPER HALF                       FUN        76
                     5170000000 X                 SA7    UUC                                                     FUN        77
             7  0100000000 X                      RJ     DIT         DEFINE INTERMEDIATE RESULTS                 FUN        78
            10  56140                             =A1    B4+OR.OPR                                               FUN        79
                     43071                        MX0    -L.MODE                                                 FUN        80
                          21133                   AX1    P.DMOD                                                  FUN        81
                               15210              BX2    -X0*X1                                                  FUN        82
            11  20271                             IFBIT  X2,-LONG,O=FUN5   IF SINGLE RESULT                      FUN        83
                               13555              BX5    0                                                       FUN        84
            12  6120000027                        SB2    R.X7-RGFILE 0TR (LOWER HALF)                            FUN        85
                          66310                   =B3    1           RESULTS OF LOWER HALF                       FUN        86
            13  0100000000 X                      RJ     DIT         DEFINE INTERMEDIATE RESULTS                 FUN        87
                                                                                                                 FUN        88
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     3
                                                                      O=FUN 
  
            14  6144000003               O=FUN5   =B4    B4+L.TURP                                               FUN        89
                          0400000000 X            EQ     EIS.PNX     CONTINUE                                    FUN        90
  
  
  
  
                                        **        O=ARG -  PROCESS EXTERNAL ARGUMENT REFERENCE.                  FUN        92
                                        *                                                                        FUN        93
                                        *         ENTRY  DEFINE ONLY FROM *EIS* - EXPAND INSTRUCTION SKELETON.   FUN        94
                                        *                (B4) _ CURRENT TURPLE.                                  FUN        95
                                        *                (1OP) = N/A                                             FUN        96
                                        *                (2OP) = ARGUMENT TAG + BIAS                             FUN        97
                                        *                (B5) _ START OF PARSED FILE.                            FUN        98
                                        *                (ARGNUM) = NUMBER OF ARGUMENTS PREVIOUSLY PROCESSED FOR FUN        99
                                        *                            THIS CALL.                                  FUN       100
                                        *                (TP.APL) = CONTAINS THOSE PREVIOUS ARGUMENTS.           FUN       101
                                        *                                                                        FUN       102
                                        *         EXIT   (B4) = B4+L.TURP                                        FUN       103
                                        *                                                                        FUN       104
                                        *         CALLS  ADDWD                                                   FUN       105
                                        *         USES   CANNOT DESTROY *B4*, *A7*                               FUN       106
                                                                                                                 FUN       107
                                                                                                                 FUN       108
            15                           O=ARG    BSS    0                                                       FUN       109
            15  13000                             DRITE  DEACTIVATE                                              FCC1339     6
            16  5110000156 +                      SA1    ARGNUM                                                  FUN       110
                          5124000002              SA2    B4+OR.2OP   FETCH ARGUMENT                              FUN       111
            17  73611                             =X6    X1+1                                                    FUN       112
                     10022                        BX0    X2                                                      FUN       113
                          20062                   SBIT   X0,INTR                                                 FUN       114
                               54610              SA6    A1          UPDATE ARGUMENT COUNT.                      FUN       115
            20  0302000103 +                      ZR     X2,ARG64    IF NULL ARG SIGNALING FOR -0 WORD           FUN       116
                          22502                   LX5    X2                                                      FUN       117
                               10622              BX6    X2                                                      FUN       118
            21  10322                             BX3    X2                                                      FUN       119
                     21367                        AX3    P.TGB                                                   FUN       120
                          6273777765              SB7    X3-C.STN/1S13                                           FUN       121
            22  0470000064 +                      ZR     B7,ARG60    IF STATEMENT NUMBER TAG                     FUN       122
                          10100                   BX1    X0                                                      FCC1134    27
                               20173              IFBIT  X1,ADDR/INTR,ARG70  IF ADDRESS SET                      FCC1134    28
                          0320000064 +            PL     X0,ARG60    IF NOT INTERMEDIATE                         FUN       123
                                                                                                                 FUN       124
                                        **        PROCESS IF *INTERMEDIATE*                                      FUN       125
                                                                                                                 FUN       126
            24  20067                             IFBIT  X0,2ARY/INTR,ARG40                                      FUN       127
                               10166              BX1    X6                                                      FUN       128
                                                                                                                 FUN       129
                                        **        PROCESS IF *TEMPORARY* VALUE.                                  FUN       130
                                                                                                                 FUN       131
            25  66200                             =B2    0           STATUS OF LOWER HALF                        FUN       132
                     66700                        =B7    0           STATUS OF TAG ONLY                          FUN       133
                          0100000000 X            RJ     GST         GET STATUS OF TAG                           FUN       134
            26  10611                             BX6    X1                                                      FUN       135
                     0420000064 +                 ZR     B2,ARG60    IF INTERMEDIATE NOT IN REGISTER             FUN       136
            27  0100000000 X                      RJ     CWI         COMPILE STORE OF INTERMEDIATE.              FUN       137
            30  5124000002                        SA2    B4+OR.2OP                                               FUN       138
                          43071                   MX0    -L.MODE                                                 FUN       139
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     4
                                                                      O=ARG 
  
                               10522              BX5    X2                                                      FUN       140
            31  21233                             AX2    P.DMOD                                                  FUN       141
                     15120                        BX1    -X0*X2                                                  FUN       142
                          20271                   IFBIT  X2,-LONG,ARG60    IF SINGLE RESULT                      FUN       143
                          5160000157 +            SA6    ARGNUM+1                                                FUN       144
            33  66210                             =B2    1                   STATUS OF LOWER HALF                FUN       145
                     66700                        =B7    0                                                       FUN       146
                          0100000000 X            RJ     GST                                                     FUN       147
            34  0420000036 +                      ZR     B2,ARG10    IF LOWER HALF NOT IN REGISTER               FUN       148
                          5152000000 X            SA5    B2+REGFILE                                              FUN       149
            35  0100000000 X                      RJ     CWI                                                     FUN       150
            36  5150000157 +             ARG10    SA5    ARGNUM+1                                                FUN       151
                          10655                   BX6    X5                                                      FUN       152
            37  0400000064 +                      EQ     ARG60                                                   FUN       153
                                                                                                                 FUN       154
                                        **        PROCESS IF *PLUG* VALUE.                                       FUN       155
                                                                                                                 FUN       156
            40  66200                    ARG40    SB2    B0                                                      FUN       157
                     66700                        SB7    B0                                                      FUN       158
                          0100000000 X            RJ     GST         GET STATUS OF TAG                           FUN       159
            41  0520000047 +                      NZ     B2,ARG43    IF IN REGISTER                              FUN       160
                                                                                                                 FUN       161
                                        *         INTERMEDIATE REQUIRES PROCESSING OF LOAD INTO REGISTER         FUN       162
                                        *         (KNOWN TO BE *SUBSCRIPTED ARRAY LOAD BY FLAG IN OPERATOR WORD) FUN       163
                                                                                                                 FUN       164
            42  0100000000 X             ARG42    RJ     ASR         ASSIGN RESULT REGISTER                      FUN       165
            43  76720                             SX7    B2                                                      FUN       166
                     5170000000 X                 SA7    RREG        SET HARD REGISTER                           FUN       167
            44  5114000002                        SA1    B4+OR.2OP                                               FUN       168
                          7100002000              =X0    M.ADDR      SET ADDRESS BIT                             FUN       169
            45  66200                             SB2    B0                                                      FUN       170
                     12510                        BX5    X1+X0                                                   FUN       171
                          0100000000 X            RJ     SLD         PROCESS ARRAY LOAD                          FUN       172
            46  76320                             SX3    B2          RESULT REGISTER LOAD = 0TR.                 FUN       173
                     0400000055 +                 EQ     ARG45       CONTINUE                                    FUN       174
                                                                                                                 FUN       175
                                        *         INTERMEDIATE ALREADY LOADED, CHECK IF IN RESULT REGISTER AND   FUN       176
                                        *         IF NOT PUT IT THERE.                                           FUN       177
                                                                                                                 FUN       178
            47  5112000000 X             ARG43    SA1    B2+REGFILE                                              FUN       179
                          7102777751              SX0    B2-R.X6+RGFILE                                          FUN       180
            50  76320                             SX3    B2                                                      FUN       181
                     20161                        IFBIT  X1,-ADDR,ARG42  IF ADDRESS                              FUN       182
            51  0320000055 +                      PL     X0,ARG45   IF IN RESULT REGISTER                        FUN       183
                          0100000000 X            RJ     ASR         ASSIGN STORE REGISTER                       FUN       184
            52  76320                             SX3    B2                                                      FUN       185
                     43071                        MX0    -3                                                      FUN       186
                          15740                   BX7    -X0*X4                                                  FUN       187
                               36276              IX2    X7+X6                                                   FUN       188
            53  7272000000 X                      SX7    X2+XMITS3                                               FUN       189
                          20760                   LX7    P.LI15+3                                                FUN       190
            54  6120000055 +                      WCODE  X7          OUTPUT *XMIT* TO RESULT REGISTER            FUN       191
                                                                                                                 FUN       192
                                        *         (X3) = 0TR. FOR REGISTER TO STORE FROM, INTO *AP-LIST* TAG     FUN       193
                                                                                                                 FUN       194
            55  43071                    ARG45    MX0    -3                                                      FUN       195
                     5120000000 X                 SA2    TG.PRO                                                  FUN       196
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     5
                                                                      O=ARG 
  
                               15330              BX3    -X0*X3      =00R                                        FUN       197
            56  5110000156 +                      SA1    ARGNUM                                                  FUN       198
                          20306                   LX3    6           =R00                                        FUN       199
            57  7211777776                        =X1    X1-1        ARGNUM-1 FOR APLIST OFFSET                  FUN       200
                          73221                   =X2    X2+1        NEXT PROGRAM TAG WILL BE OUR AP-LIST        FUN       201
            60  7263000000 X                      SX6    X3+SA=BK                                                FUN       202
                          20114                   LX1    P.LBIAS                                                 FUN       203
                               20236              LX2    P.LTAG                                                  FUN       204
            61  12312                             BX3    X1+X2                                                   FUN       205
                     20655                        LX6    P.LI15                                                  FUN       206
                          36736                   IX7    X3+X6                                                   FUN       207
            62  6120000063 +                      WCODE  X7          OUTPUT *STORE* INTO *AP-LIST* TAG           FUN       208
            63  43644                             MX6    L.ABIAS+L.ATAG    INDICATE *PLUG*                       FUN       209
                     0400000104 +                 EQ     ARG65                                                   FUN       210
                                                                                                                 FUN       211
                                        **        ADD ELEMENT TO AP-LIST TABLE                                   FUN       212
                                        *         ENTRY  (X6) = TAG.                                             FUN       213
                                                                                                                 FUN       214
            64  43022                    ARG60    MX0    L.ATAG                                                  FUN       215
                                                  SBIT   X6,ATAG/2TAG                                            FUN       216
                     10166                        BX1    X6                                                      FUN       217
                          21167                   AX1    P.TGB                                                   FUN       218
            65  6271777773                        SB7    X1-C.SCR/1S13                                           FUN       219
                          0570000071 +            NZ     B7,ARG62                                                FUN       220
            66  21652                             AX6    P.ATAG                                                  FUN       221
                     7110100000                   =X1    C.SCR                                                   FUN       222
                               37161              IX1    X6-X1                                                   FUN       223
            67  5120000000 X                      SA2    TT.SCR                                                  FUN       224
                          43044                   MX0    L.ATAG+L.ABIAS                                          FUN       225
                               63720              SB7    X2                                                      FUN       226
            70  53517                             SA5    X1+B7                                                   FUN       227
                     10655                        BX6    X5                                                      FUN       228
                                                  SBIT   X6,ATAG/2TAG                                            FUN       229
                                                                                                                 FUN       230
                                        **        CHECK IF ARGUMENT IS A FORMAL PARAMETER.                       FUN       231
                                                                                                                 FUN       232
            71  10255                    ARG62    BX2    X5                                                      FUN       233
                     43766                        MX7    -L.2FPNO                                                FUN       234
                          11606                   BX6    X0*X6                                                   FUN       235
                                                                                                                 FUN       236
                                        *         BIT *ALCM* MUST BE TURNED ON IN THE AP-LIST ENTRY FOR AN       FUN       237
                                        *         ECS/LCM ITEM.                                                  FUN       238
                                                                                                                 FUN       239
            72  0100000000 X                      RJ     =XCLT       CHECK FOR LCM/ECS TAG                       FUN       240
            73  0303000074 +                      ZR     X3,ARG63    IF LCM OR ECS TAG                           FUN       241
                          0400000075 +            EQ     ARG635                                                  FUN       242
                                                                                                                 FUN       243
            74  43001                    ARG63    MX0    1                                                       FUN       244
                     20025                        LX0    P.ALCM+1    TURN ON *ALCM* BIT                          FUN       245
                          12606                   BX6    X0+X6                                                   FUN       246
            75  21222                    ARG635   AX2    P.2FPNO                                                 FUN       247
                     15727                        BX7    -X7*X2                                                  FUN       248
                          21245                   AX2    P.TGB-P.2FPNO                                           FUN       249
            76  7212777767                        SX1    X2-C.SYM/1S13                                           FUN       250
                          0311000104 +            NZ     X1,ARG65    IF NOT *SYMB0L*                             FUN       251
            77  0307000104 +                      ZR     X7,ARG65    IF NOT A FORMAL PARAMETER                   FUN       252
                          0100000000 X            RJ     ASR                                                     FUN       253
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     6
                                                                      O=ARG 
  
           100  7100002000                        =X0    M.ADDR                                                  FUN       254
                          12505                   BX5    X0+X5                                                   FUN       255
                               43752              MX7    L.2TAG+L.2BIAS+L.2FPNO                                  FUN       256
           101  11175                             BX1    X7*X5                                                   FUN       257
                     0100000000 X                 RJ     CLI         COMPILE LOAD INSTRUCTION                    FUN       258
           102  76320                             SX3    B2                                                      FUN       259
                     0400000055 +                 EQ     ARG45                                                   FUN       260
                                                                                                                 FUN       261
           103  43674                    ARG64    MX6    60          -0 WORD PRECEDING RETURNS LIST              FUN       262
           104  5110000000 X             ARG65    ADDWD  TP.APL                                                  FUN       263
                                                                                                                 FUN       264
                                        **        RETURN TO *ARITH*                                              FUN       265
                                                                                                                 FUN       266
           105  6144000003                        SB4    B4+L.TURP                                               FUN       267
                          0400000000 X            EQ     EIS.PNX     CONTINUE                                    FUN       268
           106  0100000000 X             ARG70    RJ     ASR                                                     FCC1134    29
           107  10055                             BX0    X5                                                      FCC1134    30
                     20062                        IFBIT  X0,INTR,ARG75  IF ARRAY ADDRESS SET                     FCC1134    31
                                                                                                                 FCC1134    32
                                        *         ADDR OPERANDS ARE ALWAYS IN SCRATCH TABLE.                     FCC1134    33
                                                                                                                 FCC1134    34
           110  5130000000 X                      SA3    TT.SCR                                                  FCC1134    35
                          21552                   AX5    P.2TAG                                                  FCC1134    36
                               63730              SB7    X3                                                      FCC1134    37
           111  43752                             MX7    L.2TAG+L.2BIAS+L.2FPNO                                  FCC1134    38
                     7255677777                   SX5    X5-C.SCR                                                FCC1134    39
                               53557              SA5    X5+B7                                                   FCC1134    40
           112  11175                             BX1    X7*X5                                                   FCC1134    41
                     0100000000 X                 RJ     CLI                                                     FCC1134    42
                                                                                                                 FCC1134    43
           113  5130000000 X             ARG71    SA3    =XTG.TEM                                                FCC1134    44
                          73731                   =X7    X3+1                                                    FCC1134    45
                               54730              SA7    A3                                                      FCC1134    46
           114  20336                             LX3    P.LTAG                                                  FCC1134    47
                     76220                        SX2    B2                                                      FCC1134    48
                          43071                   MX0    -3                                                      FCC1134    49
                               15220              BX2    -X0*X2                                                  FCC1134    50
           115  20206                             LX2    6           =R00                                        FCC1134    51
                     7262000000 X                 SX6    X2+SA=BK                                                FCC1134    52
                               20655              LX6    P.LI15                                                  FCC1134    53
           116  36736                             IX7    X3+X6                                                   FCC1134    54
           117  6120000120 +                      WCODE  X7                                                      FCC1134    55
           120  20314                             LX3    P.ATAG-P.LTAG                                           FCC1134    56
                     10633                        BX6    X3                                                      FCC1134    57
                          0400000104 +            EQ     ARG65                                                   FCC1134    58
                                                                                                                 FCC1134    59
           121  76720                    ARG75    SX7    B2                                                      FCC1134    60
                     5170000000 X                 SA7    RREG                                                    FCC1134    61
                               66200              SB2    B0                                                      FCC1134    62
           122  0100000000 X                      RJ     SLD                                                     FCC1134    63
           123  0400000113 +                      EQ     ARG71                                                   FCC1134    64
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     7
                                                                      O=RJT 
  
                                        **        O=RJT - GENERATE RETURN JUMP TO EXTERNAL.                      FUN       270
                                        *                                                                        FUN       271
                                        *         ENTRY  (1OP) = ROUTINE TAG.                                    FUN       272
                                        *                (B4) _ TURPLE BEING PROCESSED.                          FUN       273
                                        *                ARGUMENTS HAVE BEEN SET UP BY PRECEEDING *O=ARG*        FUN       274
                                        *                            TURPLES --                                  FUN       275
                                        *                (ARGNUM) SET-UP BY *O=ARG*.                             FUN       276
                                        *                (TP.APL) SET-UP BY *O=ARG*.                             FUN       277
                                        *         EXIT   TO *EIS.PNX*.                                           FUN       278
                                        *                (B4) ADVANCED.                                          FUN       279
                                        *         CALLS  PEJ                                                     FUN       280
                                                                                                                 FUN       281
                                                                                                                 FUN       282
           124                           O=RJT    BSS    0           ENTRY...                                    FUN       283
           124  56441                             =A4    B4+OR.1OP                                               FUN       284
                     10644                        BX6    X4                                                      FUN       286
                          5160000000 X            SA6    ROUTNAM                                                 FUN       288
           125  0100000133 +                      RJ     PEJ         PROCESS EXTERNAL JUMP                       FUN       290
           126  6144000003                        SB4    B4+L.TURP                                               FUN       291
                          0400000000 X            EQ     EIS.PNX     EXIT..                                      FUN       292
  
  
  
  
                                        **        PEJ -  PROCESS EXTERNAL JUMP.                                  FUN       294
                                        *                                                                        FUN       295
                                        *         ENTRY  (ARGNUM) = NUMBER OF ARGUMENTS.                         FUN       296
                                        *                (ROUTNAM)= TAG OF ROUTINE TO CALL.                      FUN       297
                                        *                (TP.APL) = CONTAINS THE ARGUMENTS, AT THE VERY END OF   FUN       298
                                        *                            THE TABLE.                                  FUN       299
                                        *                (TRACE) = LINE NO. FOR TRACEBACK                        FUN       300
                                        *                                                                        FUN       301
                                        *         EXIT   EXTERNAL JUMP COMPILED.                                 FUN       302
                                        *                (ARGNUM) = 0                                            FUN       303
                                        *                                                                        FUN       304
                                        *         CALLS  ADDWD, CLOAD, CRJ                                       FUN       305
                                                                                                                 FUN       306
                                                                                                                 FUN       307
           127  5110000000 X             PEJ6     SA1    ROUTNAM                                                 FUN       308
                          43066                   MX0    -L.2FPNO                                                FUN       309
                               10611              BX6    X1                                                      FUN       310
           130  21122                             AX1    P.2FPNO                                                 FUN       311
                     15210                        BX2    -X0*X1                                                  FUN       312
                          0312000144 +            NZ     X2,PEJ4     IF FORMAL PARAMETER                         FUN       313
                                                                                                                 FUN       314
           131  5130000000 X             PEJ8     SA3    =XTRACE                                                 FCC0744    16
                          77101                   CRJ    MUST                                                    FUN       316
                                                                                                                 FUN       317
           133  0400400133 +             PEJ      SUBR   -           ENTRY/EXIT...                               FUN       318
           134  0100000000 X                      RJ     CIA         CLEAR INTEMEDIATES / ASSOCIATES             FUN       319
           135  5120000156 +                      SA2    ARGNUM                                                  FUN       320
                          13666                   BX6    0                                                       FUN       321
                               63621              =B6    X2+1        = ARGUMENT COUNT + ZERO WORD                FUN       322
           136  54620                             SA6    A2          CLEAR ARG COUNT FOR NEXT ENTRY              FUN       323
                     5110000000 X                 ADDWD  TP.APL      ADD ENDING WORD OF 0                        FUN       324
                                                                                                                 FUN       325
                                         SNAP=L   IFNE   TEST        DUMP AP-LIST TABLE                          FUN       326
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     8
                                                                      PEJ 
  
                                                 SA3    =XCO.SNAP                                                FUN       327
                                                  LX3    1RL                                                     FUN       328
                                                  PL     X3,PEJ3S    IF AP-LIST SNAP NOT SELECTED                FUN       329
                                                  DUMPT  (TP.APL)                                                FUN       330
                                         PEJ3S    BSS    0                                                       FUN       331
                                         SNAP=L   ENDIF                                                          FUN       332
                                                                                                                 FUN       333
           140  66360                             SB3    B6                                                      FUN       334
                     0100000000 X                 RJ     NAP         SCAN/ENTER AP-LIST TABLE.                   FUN       335
           141  21652                             AX6    P.TAG                                                   FUN       336
                     7110000100 X                 SX1    SA=BK+100B                                              FUN       337
                               20117              LX1    18-3                                                    FUN       338
           142  12716                             BX7    X1+X6                                                   FUN       339
                     20736                        LX7    30                                                      FUN       340
           143  6120000127 +                      WCODE  X7,PEJ6     COMPILE LOAD OF AP-LIST TAG                 FUN       341
                                                                                                                 FUN       342
                                        **        HERE TO HANDLE *RJ* TO DUMMY ARGUMENT.                         FUN       343
                                        *                EMIT AN ADDRESS SUBSTITUTION TURPLE TO THE VAR-DIM      FUN       344
                                        *                GENERATOR.                                              FUN       345
                                                                                                                 FUN       346
           144  5130000000 X             PEJ4     SA3    TG.PRO                                                  FUN       347
                          5140000000 X            SA4    ROUTNAM                                                 FUN       348
           145  73731                             =X7    X3+1                                                    FUN       349
                     6130000000 X                 SB3    RJSUB                                                   FUN       350
                               67303              SB3    -B3                                                     FUN       351
           146  10577                             BX5    X7                                                      FUN       352
                     7100002000                   =X0    M.ADDR                                                  FUN       353
                               54730              SA7    A3          ADVANCE (TG.PRO)                            FUN       354
           147  12440                             BX4    X4+X0                                                   FUN       355
                     5110000000 X                 SA1    T.VDIM                                                  FUN       356
                               20552              LX5    P.2TAG                                                  FUN       357
           150  0100000000 X                      RJ     EMT         EMIT  (O=RJSUB, ROUTNAM, *)                 FUN       358
           151  21552                             AX5    P.2TAG                                                  FUN       359
                     73750                        CBSS   X5                                                      FUN       360
                                                                                                                 FUN       361
                                        **        IF THIS WAS THE FIRST *RJ* TO A FORMAL PARAMETER, NOTIFY *FVD* FUN       362
                                        *                THAT A SKELETON *RJT* WORD WILL BE NECESSARY.           FUN       363
                                                                                                                 FUN       364
           153  5110000000 X                      SA1    RJTDUM                                                  FUN       365
                          13666                   BX6    0                                                       FUN       366
           154  0311000131 +                      NZ     X1,PEJ8     IF PREVIOUS DUMMY CALL                      FUN       367
                          7170260007              SX7    CT.RJS                                                  FUN       368
           155  54710                             SA7    A1                                                      FUN       369
                     0400000131 +                 EQ     PEJ8        CONTINUE.. TO OUTPUT DUMMY *RJ* WORD        FUN       370
                                                                                                                 FUN       371
           156  00000000000000000000     ARGNUM   DATA   0,0                                                     FUN       372
                                                  LIST   D                                                       FUN       374
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        CDS 
             0 X                        CLT 
             0 X                        TG.TEM
             0 X                        TRACE 
  
           160                                    END                                                            FUN       375
  
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     9
  
  
                             55100B CM  STORAGE USED              843 STATEMENTS      784 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.684 SECONDS         232 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       1/42 X    6/10      7/55
        ARGNUM        156   PROGRAM*        1/32 E    3/26      4/05 S    4/12      5/02      7/51      8/46 L
        ARG10          36   PROGRAM*        4/09      4/12 L
        ARG40          40   PROGRAM*        3/45      4/18 L
        ARG42          42   PROGRAM*        4/26 L    4/43
        ARG43          47   PROGRAM*        4/21      4/40 L
        ARG45          55   PROGRAM*        4/35      4/44      4/56 L    6/07
        ARG60          64   PROGRAM*        3/38      3/41      3/54      4/04      4/14      5/19 L
        ARG62          71   PROGRAM*        5/24      5/37 L
        ARG63          74   PROGRAM*        5/45      5/48 L
        ARG635         75   PROGRAM*        5/46      5/51 L
        ARG64         103   PROGRAM*        3/32      6/09 L
        ARG65         104   PROGRAM*        5/14      5/55      5/56      6/10 L    6/45
        ARG70         106   PROGRAM*        3/40      6/16 L
        ARG71         113   PROGRAM*        6/31 L    6/51
        ARG75         121   PROGRAM*        6/18      6/47 L
        ASR             0   EXTERNAL*       1/48 X    4/26      4/45      5/57      6/16
        CDS             0   EXTERNAL*       3/25
        CIA             0   EXTERNAL*       1/48 X    7/50
        CLI             0   EXTERNAL*       1/48 X    6/05      6/29
        CLT             0   EXTERNAL*       5/44
        CRJ             0   EXTERNAL*       1/48 X    2/13      7/47
        CT.RJS     260007   TSTEXT          8/42
        CWI             0   EXTERNAL*       1/48 X    3/55      4/11
        C.SCR      100000   TSTEXT          5/23      5/26      6/26
        C.STN      240000   TSTEXT          3/37
        C.SYM      200000   TSTEXT          5/54
        DIT             0   EXTERNAL*       1/48 X    2/47      2/56
        EIS.PNX         0   EXTERNAL*       1/51 X    3/02      6/15      7/20
        EMT             0   EXTERNAL*       1/45 X    8/32
        GST             0   EXTERNAL*       1/48 X    3/52      4/08      4/20
        L.ABIAS        22   TSTEXT          5/13      5/29
        L.ATAG         22   TSTEXT          5/13      5/19      5/29
        L.MODE          3   TSTEXT          2/49      3/57
        L.TURP          3   TSTEXT          3/01      6/14      7/19
        L.2BIAS        22   TSTEXT          6/03      6/25
        L.2FPNO         6   TSTEXT          5/38      6/03      6/25      7/40
        L.2TAG         22   TSTEXT          6/03      6/25
        M.ADDR       2000   TSTEXT          4/30      6/01      8/27
        NAP             0   EXTERNAL*       1/42 X    8/09
        OR.OPR          0   TSTEXT          2/48
        OR.1OP          1   TSTEXT          2/11      2/35      7/15
        OR.2OP          2   TSTEXT          3/27      3/56      4/29
        O=ARG          15   PROGRAM*        1/32 E    3/24 L
        O=BEF           0   PROGRAM*        1/32 E    2/11 L
        O=FUN           3   PROGRAM*        1/32 E    2/35 L
        O=FUN2          5   PROGRAM*        2/14      2/42 L
        O=FUN5         14   PROGRAM*        2/52      3/01 L
        O=RJT         124   PROGRAM*        1/32 E    7/14 L
        PEJ           133   PROGRAM*        2/38      7/18      7/49 L
1       /FUN  INLINE / EXTERNAL FUNCTION PROCESSORS                   COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    10
        SYMBOLIC REFERENCE TABLE. 
  
        PEJ4          144   PROGRAM*        7/44      8/21 L
        PEJ6          127   PROGRAM*        7/39 L    8/15
        PEJ8          131   PROGRAM*        7/46 L    8/41      8/44
        P.             73   TSTEXT          2/52      3/30      4/04      4/43      6/18
        P.ADDR         12   TSTEXT          3/40      4/43
        P.ALCM         24   TSTEXT          5/49
        P.ATAG         52   TSTEXT          5/25      6/43
        P.DMOD         33   TSTEXT          2/50      4/02
        P.INTR         11   TSTEXT          3/30      3/40      3/45      6/18
        P.LBIAS        14   TSTEXT          5/07
        P.LI15         55   TSTEXT          4/51      5/10      6/40
        P.LONG          2   TSTEXT          2/52      4/04
        P.LTAG         36   TSTEXT          5/08      6/34      6/43
        P.TAG          52   TSTEXT          8/10
        P.TGB          67   TSTEXT          3/36      5/22      5/53
        P.2ARY         16   TSTEXT          3/45
        P.2FPNO        22   TSTEXT          5/51      5/53      7/42
        P.2TAG         52   TSTEXT          6/23      8/31      8/33
        REGFILE         0   EXTERNAL*       1/35 X    4/10      4/40
        RGFILE          0   TSTEXT          2/44      2/54      4/41
        RJSUB           0   EXTERNAL*       1/35 X    8/24
        RJTDUM          0   EXTERNAL*       1/35 X    8/39
        ROUTNAM         0   EXTERNAL*       1/35 X    2/37 S    7/17 S    7/39      8/22
        RREG            0   EXTERNAL*       1/35 X    4/28 S    6/48 S
        R.X6           26   TSTEXT          2/44      4/41
        R.X7           27   TSTEXT          2/54
        SA=BK           0   EXTERNAL*       1/51 X    5/06      6/39      8/11
        SLD             0   EXTERNAL*       1/51 X    4/33      6/50
        TEST            0   TSTEXT          7/57 F
        TG.PRO          0   EXTERNAL*       1/36 X    4/57      8/21
        TG.TEM          0   EXTERNAL*       6/31
        TP.APL          0   EXTERNAL*       1/36 X    6/10      7/55
        TRACE           0   EXTERNAL*       7/46
        TT.SCR          0   EXTERNAL*       1/36 X    5/28      6/22
        T.VDIM          0   EXTERNAL*       1/36 X    8/30
        UUC             0   EXTERNAL*       1/36 X    2/46 S
        WIN             0   EXTERNAL*       1/39 X    4/52      5/12      6/42      8/15      8/34
        XMITS3          0   EXTERNAL*       1/51 X    4/50
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1124              IDENT  REG
                       1124                       END 
  
  
                                        ENTRY POINTS. 
  
                                        CLOADJ         720+           LFP            561+           SDS           1004+ 
                                        REGLK          716+           RLL            702+           CLI            122+ 
                                        CRJ            327+           RUL            707+           CWI            366+ 
                                        CAR             40+           SST           1075+           CLP            306+ 
                                        CDS             45+           ABR              0+           CLT            317+ 
                                        CIA             70+           ASR             16+           STRGLK         721+ 
                                        DIT            410+           AIR              4+           CIAA            67+ 
                                        GST            500+           LSC            633+           GSTC           553+ 
                                        GNR            436+           RUT            730+ 
                                        LTG            674+           SFR           1051+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.TBK    RG=BADR   RREG      FMASK     SB=XB     SA=ABS6   SX=XK     SX=XKS3 
                                        DRITE     RG=INTR   TG.TEM    LSHF      SB=XK     SA=AKS6   AFREG     LCMR
                                        REGA      RG=FPRG   TT.PAR    SA=AB     SX=BK     REGPRO    TS.BLK    LCMW
                                        REGX      UUC       TT.SCR    SA=AK     XOR       CRTTAB    TT=USE    IADD
                                        RGC       RG=LOAD   TS.SYM    SA=BKS3   XMITS3    SCR       TT.USE    SX=BKS3 
                                        REGFILE   RG=LODX   WIN       SB=BK     SA=XKS3   SX=BB     SA=BK     RG=SET
                                        RGX       RG=STOR   ALREG     SB=BB     SA=ABS3   SX=XB     TA.NAM
  
  
  
  
                                                  IDENT  REG                                                     REG         2
                                         REG      SECT   (REGISTER ALLOCATOR ROUTINES),1                         REG         3
  
                                                                                                                 REG         4
                                                  SST    B,D,EXIT.                                               REG         5
                                                  NOREF  B,D,EXIT.                                               REG         6
                                                                                                                 REG         7
                                         B=REG    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     REG         8
                                                                                                                 REG         9
                                                  ENTRY  CLOADJ,REGLK,CRJ,CAR,CDS,CIA,DIT,GST,GNR,LTG            REG        10
                                                  ENTRY  LFP,RLL,RUL,SST,ABR,ASR,AIR,LSC,RUT,SFR,SDS,CLI,CWI     REG        11
                                                  ENTRY  CLP,CLT,STRGLK                                          REG        12
                                                                                                                 REG        13
                                        *         IN FTN                                                         REG        14
                                                  EXT    CO.TBK                                                  REG        15
                                                                                                                 REG        16
                                        *         IN TABLES                                                      REG        17
                                                  EXT    DRITE,REGA,REGX                                         REG        18
                                                  EXT    RGC,REGFILE,RGX,RG=BADR,RG=INTR,RG=FPRG,UUC             REG        19
                                                  EXT    RG=LOAD,RG=LODX,RG=STOR,RREG                            REG        20
                                                  EXT    TG.TEM,TT.PAR,TT.SCR,TS.SYM                             REG        21
                                                                                                                 REG        22
                                        *         IN PIG                                                         REG        23
                                                  EXT    WIN                                                     REG        24
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     2
  
  
                                                                                                                 REG        25
                                        *         IN GEN                                                         REG        26
                                                  EXT    ALREG                                                   REG        27
                                                  EXT    FMASK,LSHF,SA=AB,SA=AK,SA=BKS3                          REG        28
                                                  EXT    SB=BK,SB=BB,SB=XB,SB=XK,SX=BK,XOR,XMITS3                REG        29
                                                  EXT    SA=XKS3,SA=ABS3,SA=ABS6,SA=AKS6,REGPRO                  REG        30
                                                  EXT    CRTTAB                                                  REG        31
                                                                                                                 REG        32
                                        *         IN INIT                                                        REG        33
                                                  EXT    SCR                                                     REG        34
                                                                                                                 REG        35
  
  
  
  
  
  
  
  
                                        **        ABR -  ASSIGN *B* REGISTER                                     REG        38
                                        *         ENTRY  (X1) = TAG                                              REG        39
                                        *                                                                        REG        40
                                        *         EXIT   (B2) = 0TR - WHERE T = B TYPE                           REG        41
                                        *                (X6) = 0R0 - REGISTER ASSIGNED                          REG        42
                                        *                                                                        REG        43
                                        *         USES   A1,A2,A3  X0  B2,B3,B5,B7                               REG        44
                                        *         CALLS  RUT, SFR                                                REG        45
                                                                                                                 REG        46
                                                                                                                 REG        47
             0  0400400000 +             ABR      SUBR               ENTRY/EXIT...                               REG        48
             1  6130000000 X                      SB3    RG=BADR                                                 REG        49
                          0100001051 +            RJ     SFR         SCAN FOR REGISTER                           REG        50
             2  0307000000 +                      ZR     X7,EXIT.    IF USE COUNT *0*                            REG        51
                          0100000730 +            RJ     RUT         RESET USE TABLE                             REG        52
             3  0400000000 +                      EQ     EXIT.                                                   REG        53
  
  
  
  
                                        **        AIR -  ASSIGN *INTERMEDIATE* REGISTER.                         REG        55
                                        *                                                                        REG        56
                                        *         ENTRY  N/A                                                     REG        57
                                        *                                                                        REG        58
                                        *         EXIT   IF FREE REGISTER FOUND.                                 REG        59
                                        *                (B2) = REGISTER - 0TR, ASSIGNED                         REG        60
                                        *                                                                        REG        61
                                        *                IF NO FREE REGISTER FOUND.                              REG        62
                                        *                (B2) = - (0TR) FOR NEXT AVAILABLE LOAD REGISTER TO USE  REG        63
                                        *                (B5) = USE COUNT ON REGISTER.                           REG        64
                                        *                                                                        REG        65
                                        *         CALLS  DRITE,SFR                                               REG        66
                                                                                                                 REG        67
                                                                                                                 REG        68
             4  0400400004 +             AIR      SUBR               ENTRY/EXIT...                               REG        69
             5  6130000000 X                      SB3    RG=INTR                                                 REG        70
                          0100001051 +            RJ     SFR         SCAN FOR REGISTER                           REG        71
             6  0307000004 +                      ZR     X7,EXIT.    IF USE COUNT *0*                            REG        72
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     3
                                                                      AIR 
  
                                                                                                                 REG        73
                                        **        HERE IF *INTERMEDIATE* REGISTERS NOT FREE.                     REG        74
                                                                                                                 REG        75
                          13000                   DRITE  DEACTIVATE                                              REG        76
            10  0302000011 +                      ZR     X2,AIR1     IF REGISTER NOT RELEASED                    REG        77
                          0307000004 +            ZR     X7,EXIT.    IF LAST USE OF REGISTER                     REG        78
                                                                                                                 REG        79
            11  6130000000 X             AIR1     SB3    RG=LOAD                                                 REG        80
                          0100001051 +            RJ     SFR                                                     REG        81
            12  0307000004 +                      ZR     X7,EXIT.    IF REGISTER FREE                            REG        82
                          67202                   SB2    -B2                                                     REG        83
                               43063              MX0    -L.RUSE                                                 REG        84
            13  5110000000 X                      SA1    RGX                                                     REG        85
                          0301000004 +            ZR     X1,EXIT.    IF NON-INTERMEDIATE NOT AVAILABLE           REG        86
            14  5221000000 X                      SA2    X1+REGFILE                                              REG        87
                          63210                   SB2    X1                                                      REG        88
                               15720              BX7    -X0*X2                                                  REG        89
            15  0400000004 +                      EQ     EXIT.                                                   REG        90
  
  
  
  
                                        **        ASR -  FIND AVAILABLE STORE REGISTER.                          REG        92
                                        *                                                                        REG        93
                                        *         ENTRY  N/A                                                     REG        94
                                        *                                                                        REG        95
                                        *         EXIT   (B2) = 0TR.                                             REG        96
                                        *                (X6) = 0R0.                                             REG        97
                                        *                                                                        REG        98
                                        *         CALLS  DRITE,SFR,RUT,GNT,CLI                                   REG        99
                                        *                                                                        REG       100
                                        *         USES   A2,A5,A6  X0,X7  B7                                     REG       101
                                                                                                                 REG       102
                                                                                                                 REG       103
            16  0400400016 +             ASR      SUBR               ENTRY/EXIT...                               REG       104
            17  6130000000 X                      SB3    RG=STOR                                                 REG       105
                          0100001051 +            RJ     SFR         SCAN FOR REGISTER                           REG       106
            20  0307000016 +                      ZR     X7,EXIT.    IF FREE REGISTER (USE COUNT = 0)            REG       107
                          13000                   DRITE  DEACTIVATE                                              REG       108
            22  0302000023 +                      ZR     X2,ASR1     IF REGISTER NOT FREED                       REG       109
                          0307000016 +            ZR     X7,EXIT.    IF LAST USE OF REGISTER                     REG       110
            23  5112000000 X             ASR1     SA1    B2+REGFILE                                              REG       111
                          10011                   BX0    X1                                                      REG       112
                               20062              IFBIT  X0,-INTR,ASR2                                           REG       113
                          20067                   IFBIT  X0,2ARY/INTR,ASR2                                       REG       114
                          5120000000 X            SA2    RGX                                                     REG       115
            26  0302000031 +                      ZR     X2,ASR5     IF NON-INTERMEDIATE NOT AVAILABLE           REG       116
                          63220                   SB2    X2                                                      REG       117
            27  0100000730 +             ASR2     RJ     RUT                                                     REG       118
            30  0400000016 +                      EQ     EXIT.                                                   REG       119
                                                                                                                 REG       120
            31  0100000452 +             ASR5     RJ     GNT         GET NEXT TEMPORARY                          REG       121
            32  76220                             SX2    B2                                                      REG       122
                     76700                        =X7    0                                                       REG       123
                          43071                   MX0    -3                                                      REG       124
                               10166              BX1    X6                                                      REG       125
            33  10655                             BX6    X5          SAVE X5                                     FCC1412     9
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     4
                                                                      ASR 
  
                     5152000000 X                 SA5    B2+REGFILE  TAG BEING STORED                            FCC1412    10
                               54750              SA7    A5          ZERO REGFILE ENTRY                          FCC1412    11
            34  5160000037 +                      SA6    ASRA                                                    FCC1412    12
                          15620                   BX6    -X0*X2                                                  FCC1412    13
                               20603              LX6    3                                                       FCC1412    14
            35  0100000122 +                      RJ     CLI         COMPILE LOAD (IN THIS CASE. A STORE) INS.   FCC1412    15
            36  5150000037 +                      SA5    ASRA        RESTORE X5                                  FCC1412    16
                          0400000016 +            EQ     EXIT.                                                   REG       130
                                                                                                                 REG       131
            37                     1     ASRA     BSS    1           SAVE X5 CELL                                FCC1412    17
  
  
  
  
                                        **        CAR -  CLEAR REGISTER FILE (RGFILE).                           REG       133
                                        *                                                                        REG       134
                                        *         ENTRY  N/A                                                     REG       135
                                        *                                                                        REG       136
                                        *         EXIT   *RGFILE* CLEARED.                                       REG       137
                                                                                                                 REG       138
                                                                                                                 REG       139
            40  0400400040 +             CAR      SUBR               ENTRY/EXIT...                               REG       140
            41  76600                             =X6    0                                                       REG       141
                     6170000027                   SB7    L.RGFILE                                                REG       142
            42  5127000000 X             CAR5     SA2    B7+REGFILE                                              REG       143
                          0470000040 +            ZR     B7,EXIT.    IF FINISHED                                 REG       144
            43  67771                             =B7    B7-1                                                    REG       145
                     20253                        IFBIT  X2,RLOCK,CAR5                                           REG       146
            44  54620                             SA6    A2                                                      REG       147
                     0400000042 +                 EQ     CAR5        LOOP                                        REG       148
  
  
  
  
                                        **        CDS -  CHECK DELAYED STORE.                                    REG       150
                                        *                                                                        REG       151
                                        *         NOTE                                                           REG       152
                                        *                *CDS* SHOULD ALWAYS BE CALLED VIA MACRO *DRITE*         REG       153
                                        *                                                                        REG       154
                                        *         ENTRY  (X0) = 0 PROCESS DELAYED STORE IF SET                   REG       155
                                        *                       "0 PROCESS ONLY IF = TO (DRITE)                  REG       156
                                        *                       THAT BEING PROCESSED.                            REG       157
                                        *                (X1) = TAG CURRENTLY BEING PROCESSED                    REG       158
                                        *                                                                        REG       159
                                        *         EXIT   (X2) = 0 IF DELAYED STORE NOT PROCESSED.                REG       160
                                        *                       (X1) PRESERVED.                                  REG       161
                                        *                (X2) " 0 DELAYED STORE PROCESSED.                       REG       162
                                        *                       (X1) DESTROYED.                                  REG       163
                                        *                (B2) = REGISTER FOR *DRITE* RELEASED - 0TR.             REG       164
                                        *                (X6) = 0R0 OF REGISTER FREED.                           REG       165
                                        *                                                                        REG       166
                                        *         USES   A1,A2,A3  X0  B2,B7                                     REG       167
                                        *                (SCR2+4)                                                REG       168
                                        *         CALLS  CIW                                                     REG       169
                                                                                                                 REG       170
                                                                                                                 REG       171
            45  0400400045 +             CDS      SUBR               ENTRY/EXIT...                               REG       172
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     5
                                                                      CDS 
  
            46  5120000000 X                      SA2    DRITE                                                   REG       173
                          0302000045 +            ZR     X2,EXIT.    IF NO DELAYED STORE ACTIVE                  REG       174
            47  54121                             =A1    A2+1                                                    REG       175
                     0300000053 +                 ZR     X0,CDS10    IF FORCED PROCESSING.                       REG       176
                               13720              BX7    X2-X0                                                   REG       177
            50  54311                             =A3    A1+1                                                    REG       178
                     21721                        AX7    P.TYPE                                                  REG       179
                          0307000053 +            ZR     X7,CDS10    IF TAG SAME AS LEFT MEMBER                  REG       180
            51  13630                             BX6    X3-X0                                                   REG       181
                     21621                        AX6    P.TYPE                                                  REG       182
                          0306000053 +            ZR     X6,CDS10    IF TAG SAME AS RIGHT MEMBER                 REG       183
            52  20056                             IFBIT  X0,-2EQUIV,EXIT.  IF TAG NOT EQUIVALENCED               REG       184
                                                                                                                 REG       185
                                        **        COMPILE STORE OF TAG FOUND IN *B3* REGISTER FILE ENTRY.        REG       186
                                                                                                                 REG       187
            53  76760                    CDS10    SX7    B6                                                      REG       188
                     5170000066 +                 SA7    CDSA        SAVE *B6*                                   REG       189
                                                                                                                 REG       190
                                        **        IF THE HARD REGISTER FLAG IS SET, WE TURN IT OFF TO PREVENT    REG       191
                                        *         ITS BEING DESTROYED BY A STORE INTO AN *FP*, THEN RESTORE IT.  REG       192
                                                                                                                 REG       193
            54  5110000000 X                      SA1    RREG                                                    REG       194
                          0331000060 +            MI     X1,CDS15    IF NO HARD REGISTER                         REG       195
            55  14711                             BX7    -X1                                                     REG       196
                     54710                        SA7    A1          TURN OFF FLAG                               REG       197
                          0100000104 +            RJ     CIW         COMPILE STORE                               REG       198
            56  5110000000 X                      SA1    RREG                                                    REG       199
                          14711                   BX7    -X1                                                     REG       200
                               54710              SA7    A1          RESTORE FLAG                                REG       201
            57  0400000061 +                      EQ     CDS20                                                   REG       202
                                                                                                                 REG       203
            60  0100000104 +             CDS15    RJ     CIW         COMPILE STORE                               REG       204
                                                                                                                 REG       205
            61  5110000000 X             CDS20    SA1    DRITE                                                   REG       206
                          13777                   BX7    0                                                       REG       207
                               76010              =X0    1                                                       REG       208
            62  5130000066 +                      SA3    CDSA                                                    REG       209
                          54710                   SA7    A1          CLEAR DELAYED STORE FLAG                    REG       210
                               63630              SB6    X3                                                      REG       211
            63  5122000000 X                      SA2    B2+REGFILE                                              REG       212
                          43363                   MX3    -L.RUSE                                                 REG       213
                               13112              BX1    X1-X2                                                   REG       214
            64  15723                             BX7    -X3*X2                                                  REG       215
                     0311000045 +                 NZ     X1,EXIT.    IF RGFILE TAG NOT SAME AS DRITE TAG         REG       216
                               37720              IX7    X2-X0       USE COUNT-1                                 REG       217
            65  54720                             SA7    A2                                                      REG       218
                     15773                        BX7    -X3*X7      USE COUNT ONLY                              REG       219
                          0400000045 +            EQ     EXIT.                                                   REG       220
                                                                                                                 REG       221
            66  00000000000000000000     CDSA     DATA   0           SAVE *B6*                                   REG       222
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     6
                                                                      CIA 
  
                                        **        CIA -  CHECK IF ANY ACTIVE STORES / CLEAR ASSOCIATE.           REG       224
                                        *                                                                        REG       225
                                        *         ENTRY  N/A                                                     REG       226
                                        *                                                                        REG       227
                                        *         EXIT   ASSOCIATES CLEARED, INTERMEDIATES STORED.               REG       228
                                        *                                                                        REG       229
                                        *         USES   A1,A2,A3  X0  B2,B7                                     REG       230
                                        *                                                                        REG       231
                                        *         CALLS  DRITE,RUT                                               REG       232
                                                                                                                 REG       233
                                         #FID     IFNE   .FID,0                                                  F66FCC    800
                                                  ENTRY  CIAA                                                    F66FCC    801
                                         #FID     ENDIF                                                          F66FCC    802
            67                     1     CIAA     BSSZ   1           LOCK CLEAR FLAG                             FCC0805     4
                                                                                                                 REG       234
            70  0400400070 +             CIA      SUBR               ENTRY/EXIT...                               REG       235
            71  13000                             DRITE  DEACTIVATE                                              REG       236
            72  6170000027                        SB7    L.RGFILE                                                REG       237
                          43063                   MX0    -L.RUSE                                                 REG       238
            73  0400000075 +                      EQ     CIA2                                                    FCC1012     6
                                                                                                                 FCC1012     7
            74  43700                    CIA1     MX7    0                                                       FCC1012     8
                     54720                        SA7    A2          ZERO OUT REGFILE ENTRY                      FCC1012     9
                                                                                                                 FCC1012    10
            75  0470000070 +             CIA2     ZR     B7,EXIT.    IF FINISHED                                 REG       239
                          5127000000 X            SA2    B7+REGFILE                                              REG       240
            76  66270                             SB2    B7                                                      REG       241
                     15120                        BX1    -X0*X2                                                  REG       242
                          20263                   LX2    59-8                                                    REG       243
                               67771              =B7    B7-1                                                    REG       244
            77  0301000074 +                      ZR     X1,CIA1     IF USE COUNT ZERO                           FCC1012    11
                          0322000102 +            PL     X2,CIA3     IF REGISTER UN-LOCKED                       FCC0805     5
           100  5130000067 +                      SA3    CIAA                                                    FCC0805     6
                          0303000075 +            ZR     X3,CIA2     IF REGISTER TO REMAIN LOCKED                FCC0805     7
           101  43001                             MX0    1                                                       FCC0805     8
                     15720                        BX7    -X0*X2      REMOVE LOCK BIT                             FCC0805     9
                          20711                   LX7    9                                                       FCC0805    10
                               54720              SA7    A2          RESTORE IN REGFILE                          FCC0805    11
                                                                                                                 FCC0805    12
           102  0100000730 +             CIA3     RJ     RUT         RESET TAG                                   FCC0805    13
           103  43063                             MX0    -L.RUSE                                                 REG       248
                     67721                        =B7    B2-1                                                    REG       249
                          0400000075 +            EQ     CIA2        CONTINUE                                    REG       250
                                                                                                                 REG       251
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     7
                                                                      CIW 
  
                                        **        CIW -  COMPILE WRITE INSTRUCTIONS                              REG       253
                                        *                                                                        REG       254
                                        *         ENTRY  (DRITE)  SET.                                           REG       255
                                        *                                                                        REG       256
                                        *         EXIT   (B2) = REGISTER FOR WRITE - 0TR.                        REG       257
                                        *                (X6) = 0R0.                                             REG       258
                                        *                                                                        REG       259
                                        *         USES   A1,A2,A3,A6,A7  X0  B2,B3,B7                            REG       260
                                        *                                                                        REG       261
                                        *         CALLS  DRITE,WCODE,CLI                                         REG       262
                                                                                                                 REG       263
                                                                                                                 REG       264
           104  0400400104 +             CIW      SUBR               ENTRY/EXIT...                               REG       265
           105  5120000000 X                      SA2    DRITE                                                   REG       266
                          43071                   MX0    -3                                                      REG       267
                               54121              =A1    A2+1        TAG FOR INSTRUCTION + *I* REGISTER          REG       268
           106  43763                             MX7    -L.RUSE                                                 REG       269
                     15020                        BX0    -X0*X2      =00R (*A* REGISTER FOR LEFT MEMBER)         REG       270
                          15617                   BX6    -X7*X1      =0R0 (*I* REGISTER)                         REG       271
                               36706              IX7    X0+X6                                                   REG       272
           107  0300000115 +                      ZR     X0,CIW10    IF LEFT MEMBER NOT IN *A* REGISTER          REG       273
                          5230000000 X            SA3    X0+REGA                                                 REG       274
           110  7277000000 X                      SX7    X7+SA=ABS3                                              REG       275
                          13023                   BX0    X2-X3                                                   REG       276
                               20760              LX7    P.LI15+3                                                REG       277
           111  10366                             BX3    X6                                                      REG       278
                     21011                        AX0    L.RUSE                                                  REG       279
                          0310000115 +            NZ     X0,CIW10    IF NOT SAME TAG                             REG       280
           112  6120000113 +                      WCODE  X7                                                      REG       281
           113  10633                             BX6    X3                                                      REG       282
                     21303                        AX3    3                                                       REG       283
                          6223000020              SB2    X3+REG.X-RGFILE                                         REG       284
           114  0400000104 +                      EQ     EXIT.                                                   REG       285
                                                                                                                 REG       286
           115  10266                    CIW10    BX2    X6                                                      REG       287
                     43052                        MX0    L.2TAG+L.2BIAS+L.2FPNO                                  REG       288
                          21203                   AX2    3                                                       REG       289
                               11101              BX1    X0*X1                                                   REG       290
           116  10755                             BX7    X5                                                      REG       291
                     5170000121 +                 SA7    CIWA        SAVE X5                                     REG       292
                               10511              BX5    X1                                                      REG       293
           117  6222000020                        SB2    X2+REG.X-RGFILE                                         REG       294
                          0100000122 +            RJ     CLI                                                     REG       295
           120  5150000121 +                      SA5    CIWA        RESTORE X5                                  REG       296
                          0400000104 +            EQ     EXIT.                                                   REG       297
                                                                                                                 REG       298
           121  00000000000000000000     CIWA     DATA   0                                                       REG       299
  
  
  
  
                                        **        CLI - COMPILE LOAD INSTRUCTION.                                REG       301
                                        *                                                                        REG       302
                                        *         ENTRY  (B2) = REGISTER TO USE - 0TR                            REG       303
                                        *                (X1) = STATUS WORD OF TAG TO LOAD.                      FCC1134AX   8
                                        *                       ONLY TAG, BIAS AND FPNO FIELDS ARE USED.         FCC1134AX   9
                                        *                (X5) = STATUS WORD OF X1 TAG  OR                        FCC1134AX  10
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     8
                                                                      CLI 
  
                                        *                     = PARSED FILE OPERAND WORD OF X1 TAG.              FCC1134AX  11
                                        *                (X6) = REGISTER TO USE - 0R0.                           REG       305
                                        *                                                                        REG       306
                                        *         EXIT   (B2) = PRESERVED.                                       REG       307
                                        *                (X5) = PRESERVED.                                       REG       308
                                        *                                                                        REG       309
                                        *         USES   A2,A3,A6,A7  X0  B2,B3,B5,B7                            REG       310
                                        *                                                                        REG       311
                                        *         CALLS  GNR,WCODE,CLT,RLL,RUL,CLP                               REG       312
                                                                                                                 REG       313
                                                                                                                 REG       314
           122  0400400122 +             CLI      SUBR               ENTRY/EXIT ...                              REG       315
           123  43052                             MX0    -L.2BIAS                                                REG       324
                     20030                        LX0    P.2BIAS                                                 REG       326
                          15310                   BX3    -X0*X1      TAG *BIAS*                                  REG       327
                               43266              MX2    -L.2FPNO                                                REG       328
                                                                                                                 REG       329
                                        **        CHECK FOR FORMAL PARAMETER.                                    REG       330
                                        *                                                                        REG       331
                                        *         (B3) = REGISTER TO USE - 00R.                                  REG       332
                                        *         (B5) = 0TR.                                                    REG       333
                                        *         (X1) = TAG TO BE LOADED.                                       REG       334
                                        *         (X2) = MX2   -L.2FPNO                                          REG       335
                                        *         (X3) = TAG *BIAS*                                              REG       336
                                        *         (X6) = REGISTER TO USE - 0R0.                                  REG       337
                                                                                                                 REG       338
           124  20222                    CLI2     LX2    P.2FPNO                                                 REG       339
                     21314                        AX3    P.2BIAS-P.LBIAS                                         REG       340
                          15012                   BX0    -X2*X1      EXTRACT *FP* NO.                            REG       341
                               66520              SB5    B2                                                      REG       342
           125  10211                             BX2    X1                                                      REG       343
                     21267                        AX2    P.TGB                                                   REG       344
                          6272777762              SB7    X2-C.TEM/1S13                                           REG       345
           126  7276000000 X                      SX7    X6+SA=BKS3  (X6) = 0R0 FOR *I* REG                      FCC1134AX  12
                          0470000267 +            ZR     B7,CLI18A   IF TEMP TAG, COMPILE  SAI TAG               FCC1134AX  13
           127  21022                             AX0    P.2FPNO                                                 REG       347
                     0300000217 +                 ZR     X0,CLI15    IF NOT *FP*                                 REG       348
                                                                                                                 FCC1134AX  14
                                        **        TAG IS FORMAL PARAMETER                                        FCC1134AX  15
                                        *         SAVE SOME REGISTERS                                            FCC1134AX  16
                                                                                                                 FCC1134AX  17
                               76750              SX7    B5                                                      FCC1134AX  18
           130  5170000302 +                      SA7    CLI.B5      SAVE B5  (0TR)                              FCC1134AX  19
                          10711                   BX7    X1                                                      FCC1134AX  20
           131  5170000276 +                      SA7    CLI.X1      SAVE X1  STATUS WORD TAG                    FCC1134AX  21
                          10733                   BX7    X3                                                      FCC1134AX  22
           132  5170000277 +                      SA7    CLI.X3      SAVE X3  BIAS                               FCC1134AX  23
                          10766                   BX7    X6                                                      FCC1134AX  24
           133  6172777751                        SB7    B2-R.X6+RGFILE                                          REG       349
                          0770000143 +            NG     B7,CLI5     IF NOT STORE REGISTER                       REG       350
                                                                                                                 REG       351
                                        **        GET LOAD REGISTER FOR INDIRECT STORE.                          REG       352
                                                                                                                 REG       353
           134  5160000301 +                      SA6    CLI.X6      SAVE X6 (0R0)                               REG       354
                          10600                   BX6    X0                                                      REG       355
           135  5160000275 +                      SA6    CLI.X0      SAVE X0 (PARAMETER NO.)                     REG       356
                          6130000000 X            SB3    RG=LOAD                                                 REG       361
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE     9
                                                                      CLI 
  
           136  0100000436 +                      RJ     GNR         GET LOAD REGISTER                           REG       362
           137  10766                             BX7    X6          (0R0) LOAD REGISTER                         REG       363
                                                                                                                 REG       364
                                        *         RESTORE REGISTERS                                              REG       365
                                                                                                                 REG       366
                     5130000302 +                 SA3    CLI.B5                                                  REG       367
                               63530              SB5    X3          RESTORE B5                                  REG       368
           140  5130000301 +                      SA3    CLI.X6                                                  REG       369
                          10633                   BX6    X3          RESTORE X6                                  REG       370
           141  5130000275 +                      SA3    CLI.X0                                                  REG       371
                          10033                   BX0    X3          RESTORE X0                                  REG       372
           142  5130000277 +                      SA3    CLI.X3      RESTORE X3                                  REG       373
                                                                                                                 FCC1134AX  25
                                        **        OUTPUT TO LONG FILE                                            FCC1134AX  26
                                        *         SAI A0+FPNO-1  OR  SAI A0                                      FCC1134AX  27
                                                                                                                 FCC1134AX  28
           143  21703                    CLI5     AX7    3           (00R) LOAD REGISTER                         REG       374
                     63370                        SB3    X7                                                      REG       375
                          7210777776              SX1    X0-1                                                    REG       376
           144  7207000000 X                      SX0    X7+SA=AKS6                                              REG       377
                          0311000146 +            NZ     X1,CLI10    IF NOT 1ST PARAMETER                        REG       378
           145  7207000000 X                      SX0    X7+SA=ABS6                                              REG       379
           146  20063                    CLI10    LX0    P.LI15+6                                                REG       380
                     20114                        LX1    P.LBIAS                                                 REG       382
                          63563                   SB5    X6+B3       =0RR                                        REG       383
                               36701              IX7    X0+X1                                                   REG       385
           147  6120000150 +                      WCODE  X7                                                      REG       386
                                         #MD      IFEQ   .DAL,0                                                  FCC1134AX  29
                                                                                                                 FCC1134AX  30
                                        **        FOR NON-LCM VALUE LOAD,  COMPILE- SAI XJ+BIAS.(0TR)            FCC1134AX  31
                                        *         OF *I* REG IS IN CLI.B5 AND (XJ) = (A0+FPNO-1).                FCC1134AX  32
                                                                                                                 FCC1134AX  33
                                                  SX7    B5+SA=XKS3                                              FCC1134AX  34
                                                  SA3    CLI.X3      RETRIEVE BIAS                               FCC1134AX  35
                                                  BX2    X5                                                      FCC1134AX  36
                                                  IFBIT  X2,-ADDR,CLI11    IF VALUE LOAD, TAG IS SCM.            FCC1134AX  37
                                                                                                                 FCC1134AX  38
                                         #MD      ENDIF                                                          FCC1134AX  39
                                                                                                                 REG       387
                                        *         SAVE SOME REGISTERS                                            REG       390
                                                                                                                 REG       391
           150  76750                             SX7    B5                                                      REG       394
                     5170000274 +                 SA7    CLIA         SAVE (0RR)                                 FCC1134AX  40
                               10755              BX7    X5                                                      REG       396
           151  5170000300 +                      SA7    CLI.X5      SAVE X5                                     REG       397
                          5150000276 +            SA5    CLI.X1      TAG FOR *CLT*                               REG       398
           152  0100000317 +                      RJ     CLT         CHECK FOR LCM TAG                           REG       399
           153  5120000274 +                      SA2    CLIA                                                    FCC1134AX  41
                          63520                   SB5    X2          RESTORE B5 (0RR)                            REG       401
           154  5150000300 +                      SA5    CLI.X5      RESTORE X5                                  REG       402
                          0313000206 +            NZ     X3,CLI109   IF NOT LCM TAG                              REG       403
                                                                                                                 REG       404
                                        **        FORMAL LCM TAG                                                 REG       405
                                                                                                                 REG       406
           155  5120000302 +                      SA2    CLI.B5       (0TR)                                      FCC1134AX  42
                          7100002000              =X0    M.ADDR                                                  REG       408
           156  5130000277 +                      SA3    CLI.X3      RESTORE X3 (BIAS)                           REG       409
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    10
                                                                      CLI 
  
                          0313000161 +            NZ     X3,CLI103   IF NONZERO BIAS                             REG       410
                                                                                                                 FCC1134    65
                                         #MD      IFEQ   .DAL,1                                                  FCC1134    66
                                                                                                                 FCC1134    67
           157  11005                             BX0    X0*X5                                                   REG       411
                     0300000201 +                 ZR     X0,CLI105   IF NOT ADDRESS                              REG       412
                                                                                                                 FCC1134    68
                                         #MD      ENDIF                                                          FCC1134    69
                                                                                                                 REG       413
                                        **        ADDRESS IS TO BE LOADED, BIAS IS ZERO                          REG       414
                                                                                                                 REG       415
           160  7175000000 X                      SX7    B5+XMITS3                                               REG       416
                          0400000215 +            EQ     CLI11                                                   REG       418
                                                                                                                 REG       419
                                        **        BIAS IS NONZERO -- COMPUTE ADDRESS                             REG       420
                                        *         OUTPUT TO INTERMEDIATE FILE                                    REG       421
                                        *                SXI    BIAS                                             REG       422
                                        *                IXI    XI+XJ                                            REG       423
                                                                                                                 REG       424
           161  43071                    CLI103   MX0    -3                                                      REG       425
                     15220                        BX2    -X0*X2      (00R) OF UNBIASED ADDRESS                   REG       426
                          63720                   SB7    X2                                                      REG       427
           162  0100000702 +                      RJ     RLL         LOCK ADDRESS REGISTER                       REG       428
           163  5170000304 +                      SA7    CLI.PR      SAVE ADDRESS REGISTER (00R)                 REG       429
                          6130000000 X            =B3    =XRG=SET                                                REG       430
           164  0100000436 +                      RJ     GNR         GET SET REGISTER                            REG       431
           165  5120000304 +                      SA2    CLI.PR      (00R) ADDRESS REGISTER                      REG       432
                          63720                   SB7    X2                                                      REG       433
           166  0100000707 +                      RJ     RUL         UNLOCK ADDRESS REGISTER                     REG       434
           167  7276000000 X                      SX7    X6+=XSX=BKS3      OPCODE + *I* REGISTER                 REG       435
                          5160000305 +            SA6    CLI.SR      SAVE SET REGISTER (0R0)                     REG       436
           170  5130000277 +                      SA3    CLI.X3      RELOAD BIAS                                 REG       437
                          20760                   LX7    P.LI15+3                                                REG       438
                               12773              BX7    X7+X3       ADD IN BIAS                                 REG       439
           171  6120000172 +                      WCODE X7           COMPILE SET INSTRUCTION                     REG       440
           172  5120000304 +                      SA2    CLI.PR      (00R) ADDRESS REGISTER                      REG       441
                          5130000305 +            SA3    CLI.SR      (0R0) SET REGISTER                          REG       442
           173  7272000000 X                      SX7    X2+=XIADD   OPCODE + *K* REGISTER                       REG       443
                          20206                   LX2    6           (R00) ADDRESS REGISTER                      REG       444
                               12773              BX7    X7+X3       ADD IN *J* REGISTER                         REG       445
           174  12772                             BX7    X7+X2       ADD IN *I* REGISTER                         REG       446
                     20755                        LX7    P.LI15                                                  REG       447
                          5150000300 +            SA5    CLI.X5                                                  REG       448
           175  7100002000                        =X0    M.ADDR                                                  REG       449
                          11005                   BX0    X0*X5                                                   REG       450
           176  5120000302 +                      SA2    CLI.B5                                                  FCC1134AX  43
                          63520                   SB5    X2          (0TR) ADDRESS REGISTER                      REG       452
                                                                                                                 FCC1134    70
                                         #MD      IFEQ   .DAL,1                                                  FCC1134    71
                                                                                                                 FCC1134    72
           177  0310000271 +                      NZ     X0,CLI20    IF ADDRESS ONLY                             REG       453
           200  6120000201 +                      WCODE  X7                                                      REG       454
                                                                                                                 REG       455
                                        **        OUTPUT TO INTERMEDIATE FILE                                    REG       456
                                        *                RXJ    XK                                               REG       457
                                        *         OR                                                             REG       458
                                        *                WXJ    XK                                               REG       459
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    11
                                                                      CLI 
  
                                                                                                                 REG       460
           201  63520                    CLI105   SB5    X2          (0TR)                                       REG       461
                     6175777751                   SB7    B5-R.X6+RGFILE                                          REG       462
           202  5120000274 +                      SA2    CLIA        (0RR)                                       FCC1134AX  44
                          0770000204 +            NG     B7,CLI107   IF NOT STORE REGISTER                       REG       464
           203  7272000000 X                      SX7    X2+=XLCMW   OPCODE + *J* AND *K* REGISTERS              REG       465
                          0400000205 +            EQ     CLI108                                                  REG       466
                                                                                                                 REG       467
           204  7272000000 X             CLI107   SX7    X2+=XLCMR   OPCODE + *J* AND *K* REGISTERS              REG       468
                                                                                                                 REG       469
           205  20755                    CLI108   LX7    P.LI15                                                  REG       470
                                                                                                                 FCC1134    73
                                         #MD      ENDIF                                                          FCC1134    74
                                                                                                                 FCC1134    75
                     0400000271 +                 EQ     CLI20                                                   REG       471
                                                                                                                 REG       472
                                                                                                                 FCC1134AX  45
                                        **        NON-LCM FORMAL PARAMETER, (XJ) = (A0+FPNO-1)                   FCC1134AX  46
                                        *         AND (0TR) OF *I* REG IN CLI.B5 .                               FCC1134AX  47
                                                                                                                 FCC1134AX  48
           206  5130000277 +             CLI109   SA3    CLI.X3                                                  REG       473
                          7100002000              =X0    M.ADDR                                                  REG       477
           207  7175000000 X                      SX7    B5+SA=XKS3                                              REG       478
                          11005                   BX0    X0*X5                                                   REG       480
           210  0300000215 +                      ZR     X0,CLI11    IF VALUE LOAD, COMPILE SAI XJ+BIAS.         FCC1134AX  49
                          6120000000 X            SB2    SA=XKS3                                                 REG       483
           211  67202                             SB2    -B2                                                     REG       484
                     0303000214 +                 ZR     X3,CLI10D   IF ZERO BIAS, COMPILE  BXI XJ.              FCC1134AX  50
                                                                                                                 FCC1134AX  51
                                        *         NONZERO BIAS, COMPILE  SXI XJ+BIAS.                            FCC1134AX  52
                                                                                                                 FCC1134AX  53
           212  6122000000 X                      SB2    B2+=XSX=XKS3                                            REG       496
                          73772                   SX7    X7+B2                                                   REG       497
           213  5130000277 +                      SA3    CLI.X3      RELOAD BIAS                                 REG       498
                          0400000215 +            EQ     CLI11                                                   REG       499
                                                                                                                 REG       500
           214  6122000000 X             CLI10D   SB2    B2+XMITS3                                               REG       519
                          73772                   SX7    X7+B2                                                   REG       520
           215  20760                    CLI11    LX7    P.LI15+3                                                REG       521
                     5120000302 +                 SA2    CLI.B5                                                  FCC1134AX  54
                               36773              IX7    X7+X3       ADD IN *BIAS*                               REG       523
           216  63520                             SB5    X2          RESTORE (0TR)                               FCC1134AX  55
                     0400000271 +                 EQ     CLI20       COMPLETE LOAD                               REG       524
                                                                                                                 REG       525
                                        **        NOT FORMAL PARAMETER.                                          REG       526
                                                                                                                 REG       527
           217  43022                    CLI15    MX0    L.TAG                                                   REG       528
                                         #MD      IFEQ   .DAL,0                                                  FCC1134AX  56
                                                                                                                 FCC1134AX  57
                                                  BX2    X5                                                      FCC1134AX  58
                                                  IFBIT  X2,-ADDR,CLI18A   NOT FP/LCM, COMPILE  SAI TAG.         FCC1134AX  59
                                                                                                                 FCC1134AX  60
                                         #MD      ENDIF                                                          FCC1134AX  61
                                                                                                                 REG       530
                                        *         SAVE SOME REGISTERS                                            REG       531
                                                                                                                 REG       532
                     10711                        BX7    X1                                                      REG       533
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    12
                                                                      CLI 
  
                          5170000276 +            SA7    CLI.X1      SAVE X1                                     REG       534
           220  10733                             BX7    X3                                                      REG       535
                     5170000277 +                 SA7    CLI.X3      SAVE X3                                     REG       536
                               10755              BX7    X5                                                      REG       537
           221  5170000300 +                      SA7    CLI.X5      SAVE X5                                     REG       538
                          76750                   SX7    B5                                                      REG       539
           222  5170000302 +                      SA7    CLI.B5      SAVE B5                                     REG       540
                          10511                   BX5    X1          TAG FOR *CLT*                               REG       541
           223  0100000317 +                      RJ     CLT         CHECK FOR LCM TAG                           REG       542
           224  0313000262 +                      NZ     X3,CLI18    IF NOT LCM TAG                              REG       543
                                                                                                                 REG       544
                                        **        LOAD LCM TAG                                                   REG       545
                                                                                                                 REG       546
                          5160000303 +            SA6    CLI.LR      SAVE LOAD REGISTER                          REG       547
           225  0100000306 +                      RJ     CLP         COMPILE LOAD OF POINTER                     REG       548
           226  76250                             SX2    B5          (0TR) POINTER LOAD REGISTER                 REG       549
                     43071                        MX0    -3                                                      REG       550
                          15220                   BX2    -X0*X2      (00R)                                       REG       551
                               63720              SB7    X2                                                      REG       552
           227  0100000702 +                      RJ     RLL         LOCK POINTER REGISTER                       REG       553
           230  5170000304 +                      SA7    CLI.PR      SAVE POINTER REGISTER (00R)                 REG       554
                                                                                                                 REG       555
                                        **        OUTPUT TO INTERMEDIATE FILE                                    REG       556
                                        *                SXI    RELADD+BIAS                                      REG       557
                                        *         RELADD = RELATIVE ADDRESS OF NAME IN BLOCK                     REG       558
                                                                                                                 REG       559
                          6130000000 X            =B3    =XRG=SET                                                REG       560
           231  0100000436 +                      RJ     GNR         GET SET REGISTER                            REG       561
           232  5120000304 +                      SA2    CLI.PR      (00R) POINTER REGISTER                      REG       562
                          63720                   SB7    X2                                                      REG       563
           233  0100000707 +                      RJ     RUL         UNLOCK POINTER REGISTER                     REG       564
           234  7276000000 X                      SX7    X6+=XSX=BKS3      OPCODE + *I* REGISTER                 REG       565
                          5160000305 +            SA6    CLI.SR      SAVE SET REGISTER (0R0)                     REG       566
           235  5110000276 +                      SA1    CLI.X1      RELOAD TAG                                  REG       567
                          5120000000 X            SA2    =XTA.NAM                                                REG       568
           236  43057                             MX0    -L.PWF                                                  REG       569
                     20122                        LX1    -P.2TAG                                                 REG       570
                          63320                   SB3    X2          (B3) = FWA ADDRESS TABLE                    REG       571
                               15210              BX2    -X0*X1      (X2) = TAG ORDINAL                          REG       572
           237  21201                             AX2    1                                                       REG       573
                     53223                        SA2    X2+B3       FETCH ADDRESS TABLE ENTRY                   REG       574
                          43044                   MX0    -L.RELADD                                               REG       575
                               15220              BX2    -X0*X2      (X2) = BLOCK-RELATIVE ADDRESS               REG       576
           240  20214                             LX2    P.LBIAS                                                 REG       577
                     5130000277 +                 SA3    CLI.X3      RELOAD BIAS                                 REG       578
                               36323              IX3    X2+X3       RELADD + BIAS                               REG       579
           241  20760                             LX7    P.LI15+3                                                REG       580
                     12773                        BX7    X7+X3                                                   REG       581
           242  6120000243 +                      WCODE  X7          COMPILE SET INSTRUCTION                     REG       582
                                                                                                                 REG       583
                                        **        OUTPUT TO INTERMEDIATE FILE                                    REG       584
                                        *                IXI    XI+XJ                                            REG       585
                                                                                                                 REG       586
           243  5120000304 +                      SA2    CLI.PR      (00R) POINTER REGISTER                      REG       587
                          5130000305 +            SA3    CLI.SR      (0R0) SET REGISTER                          REG       588
           244  7272000000 X                      SX7    X2+=XIADD   OPCODE + *K* REGISTER                       REG       589
                          20206                   LX2    6           (R00) ADDRESS REGISTER                      REG       590
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    13
                                                                      CLI 
  
                               12773              BX7    X7+X3       ADD IN *J* REGISTER                         REG       591
                                                                                                                 FCC1134    76
                                         #MD      IFEQ   .DAL,1                                                  FCC1134    77
                                                                                                                 FCC1134    78
           245  5150000300 +                      SA5    CLI.X5                                                  FCC1134    79
                          7100002000              SX0    M.ADDR                                                  FCC1134    80
           246  11005                             BX0    X0*X5                                                   FCC1134    81
                     0310000257 +                 NZ     X0,CLI17A   IF ADDRESS SET                              FCC1134    82
                               12772              BX7    X7+X2       ADD IN *I* REGISTER                         REG       592
           247  20755                             LX7    P.LI15                                                  REG       593
           250  6120000251 +                      WCODE  X7          COMPILE ADD INSTRUCTION                     REG       594
                                                                                                                 REG       595
                                        **        OUTPUT TO INTERMEDIATE FILE                                    REG       596
                                        *                RXJ    XK                                               REG       597
                                        *         OR                                                             REG       598
                                        *                WXJ    XK                                               REG       599
                                                                                                                 REG       600
           251  5130000302 +                      SA3    CLI.B5      (0TR) LOAD REGISTER                         REG       601
                          5120000304 +            SA2    CLI.PR      (00R) ADDRESS REGISTER                      REG       602
           252  63530                             SB5    X3                                                      REG       603
                     5130000303 +                 SA3    CLI.LR      (0R0) LOAD REGISTER                         REG       604
           253  6175777751                        SB7    B5-R.X6+RGFILE                                          REG       605
                          0770000255 +            NG     B7,CLI16    IF NOT STORE REGISTER                       REG       606
           254  7272000000 X                      SX7    X2+=XLCMW   OPCODE + *K* REGISTER                       REG       607
                          0400000256 +            EQ     CLI17                                                   REG       608
                                                                                                                 REG       609
           255  7272000000 X             CLI16    SX7    X2+=XLCMR   OPCODE + *K* REGISTER                       REG       610
                                                                                                                 REG       611
           256  12773                    CLI17    BX7    X7+X3       ADD IN *J* REGISTER                         REG       612
                     20755                        LX7    P.LI15                                                  REG       613
                          0400000271 +            EQ     CLI20                                                   REG       614
                                                                                                                 FCC1134    83
                                         #MD      ENDIF                                                          FCC1134    84
                                                                                                                 FCC1134    85
           257  5130000303 +             CLI17A   SA3    CLI.LR                                                  FCC1134    86
                          20303                   LX3    6-3                                                     FCC1134    87
                               12773              BX7    X7+X3                                                   FCC1134    88
           260  20755                             LX7    P.LI15                                                  FCC1134    89
                     5130000302 +                 SA3    CLI.B5                                                  FCC1134    90
                               63530              SB5    X3                                                      FCC1134    91
           261  5150000300 +                      SA5    CLI.X5                                                  FCC1653X    6
                          0400000271 +            EQ     CLI20                                                   FCC1134    92
                                                                                                                 REG       615
                                                                                                                 FCC1134AX  62
                                        *         RESTORE REGISTERS                                              FCC1134AX  63
                                                                                                                 FCC1134AX  64
           262  5110000302 +             CLI18    SA1    CLI.B5      (0TR)                                       FCC1134AX  65
                          5130000277 +            SA3    CLI.X3      RESTORE X3  (BIAS)                          REG       621
           263  63510                             SB5    X1          RESTORE B5  (0TR OF LOAD REGISTER)          REG       622
                     5150000300 +                 SA5    CLI.X5      RESTORE X5  (TAG)                           REG       623
           264  5110000276 +                      SA1    CLI.X1      RESTORE X1  (TAG)                           REG       624
                                                                                                                 REG       625
                          7100002000              SX0    M.ADDR                                                  FCC1134    94
           265  7276000000 X                      SX7    X6+SA=BKS3                                              FCC1134    95
                          11005                   BX0    X0*X5                                                   FCC1134    96
           266  0300000267 +                      ZR     X0,CLI18A   IF NOT ADDRESS SET                          FCC1134    97
                          7276000000 X            SX7    X6+SX=BKS3                                              FCC1134    98
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    14
                                                                      CLI 
  
                                                                                                                 FCC1134    99
           267  43022                    CLI18A   MX0    L.TAG                                                   FCC1134AX  66
                     11201                        BX2    X0*X1                                                   FCC1134AX  67
                          36072                   IX0    X7+X2                                                   FCC1134AX  68
                               20060              LX0    P.LI15+3                                                REG       631
           270  12730                             BX7    X3+X0       ADD IN *BIAS*                               REG       632
                                                                                                                 REG       633
           271  6120000272 +             CLI20    WCODE  X7                                                      REG       634
           272  76650                             SX6    B5                                                      REG       642
                     43071                        MX0    -3                                                      REG       643
                          66250                   SB2    B5                                                      REG       644
                               15660              BX6    -X0*X6                                                  REG       645
           273  20603                             LX6    3           =0R0                                        REG       646
                     0400000122 +                 EQ     EXIT.                                                   REG       647
                                                                                                                 REG       648
           274  00000000000000000000     CLIA     DATA   0                                                       REG       649
                                                                                                                 REG       650
           275                     1     CLI.X0   BSS    1                                                       REG       651
           276                     1     CLI.X1   BSS    1                                                       REG       652
           277                     1     CLI.X3   BSS    1                                                       REG       653
           300                     1     CLI.X5   BSS    1                                                       REG       654
           301                     1     CLI.X6   BSS    1                                                       REG       655
           302                     1     CLI.B5   BSS    1                                                       REG       656
           303                     1     CLI.LR   BSS    1                                                       REG       657
           304                     1     CLI.PR   BSS    1                                                       REG       658
           305                     1     CLI.SR   BSS    1                                                       REG       659
  
  
  
  
                                        **        CLP -  COMPILE LOAD OF POINTER WORD                            REG       661
                                        *                                                                        REG       662
                                        *         ENTRY  (X5) = ECS/LCM NAME TAG                                 REG       663
                                        *                                                                        REG       664
                                        *         EXIT   INSTRUCTION COMPILED TO LOAD POINTER WORD               REG       665
                                        *                (B5) = 0TR OF REGISTER USED                             REG       666
                                        *                                                                        REG       667
                                        *         USES   A1,A2,A3,A6  X0,X7  B2,B3,B6,B7                         REG       668
                                                                                                                 REG       669
                                                                                                                 REG       670
           306  0400400306 +             CLP      SUBR               ENTRY/EXIT ...                              REG       671
           307  0100000470 +                      RJ     GPT         GET POINTER TAG                             REG       672
           310  20260                             LX2    P.LTAG-P.CTAG     ALIGN POINTER TAG                     REG       673
                     10622                        BX6    X2                                                      REG       674
                          5160000316 +            SA6    CLPA        SAVE POINTER TAG                            REG       675
           311  6130000000 X                      =B3    RG=LOAD                                                 REG       676
                          0100000436 +            RJ     GNR         GET POINTER-WORD LOAD REGISTER              REG       677
           312  20603                             LX6    3           (R00)                                       REG       678
                     7110000000 X                 SX1    =XSA=BK                                                 REG       679
                               36716              IX7    X1+X6       ADD IN *I* REGISTER                         REG       680
           313  20755                             LX7    P.LI15      ALIGN                                       REG       681
                     5120000316 +                 SA2    CLPA        RELOAD POINTER TAG                          REG       682
                               36772              IX7    X7+X2       ADD IN TAG                                  REG       683
           314  66520                             SB5    B2                                                      REG       684
           315  6120000306 +                      WCODE  X7,EXIT.    COMPILE LOAD OF POINTER                     FCC1208    13
                                                                                                                 REG       687
           316                     1     CLPA     BSS    1                                                       REG       688
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    15
  
  
                                        **        CLT -  CHECK FOR LCM/ECS TAG                                   REG       690
                                        *                                                                        REG       691
                                        *         ENTRY  (X5) = TAG IN *PASS 2* TAG FIELD                        REG       692
                                        *                                                                        REG       693
                                        *         EXIT   (X3) = 0    IF TAG IS LCM OR ECS                        REG       694
                                        *                     " 0    IF TAG IS SCM OR CM                         REG       695
                                        *                (X5) = PRESERVED                                        REG       696
                                        *                                                                        REG       697
                                        *         USES   A1,A3  X0  B5,B7                                        REG       698
                                        *                                                                        REG       699
                                        *         CALLS  GLN                                                     REG       700
                                                                                                                 REG       701
                                                                                                                 REG       702
           317  0400400317 +             CLT      SUBR   0                                                       REG       703
           320  20522                             LX5    -P.2TAG                                                 REG       704
                     43067                        MX0    -L.2TAG+L.PWF                                           REG       705
                          20015                   LX0    L.PWF                                                   REG       706
                               15050              BX0    -X0*X5                                                  REG       707
           321  20552                             LX5    P.2TAG      RESTORE X5                                  REG       708
                     7200577777                   SX0    X0-C.SYM                                                REG       709
           322  0300000324 +                      ZR     X0,CLT2     IF SYMBOL TAG                               REG       710
                          76310                   =X3    1                                                       REG       711
           323  0400000317 +                      EQ     CLTX        EXIT..                                      REG       712
                                                                                                                 REG       713
           324  0100000421 +             CLT2     RJ     GLN         GET LEVEL NUMBER OF TAG                     REG       714
           325  7231777774                        SX3    X1-3                                                    REG       715
                          0303000317 +            ZR     X3,CLTX     IF LEVEL 3, EXIT..                          REG       716
                                                                                                                 REG       717
                                         .76      IFEQ   .CPU,76                                                 REG       718
                                                                                                                 REG       719
                                                  SX3    X1-2                                                    REG       720
                                                                                                                 REG       721
                                         .76      ENDIF                                                          REG       722
                                                                                                                 REG       723
           326  0400000317 +                      EQ     CLTX        EXIT..                                      REG       724
  
  
  
  
                                        **        CRJ -  COMPILE RETURN JUMP SEQUENCE                            REG       726
                                        *                                                                        REG       727
                                        *         SHOULD ALWAYS BE CALLED BY MACRO *CRJ*.                        REG       728
                                        *                                                                        REG       729
                                        *         COMPILES AN *RJ* TO A TAG, AND THE (OPTIONAL,DEPENDING ON      REG       730
                                        *                (CO.TBK)) TRACE-BACK INFORMATION.                       REG       731
                                        *         ALSO DEACTIVATES ANY DELAYED STORE, AND CLEARS ALL REGISTER    REG       732
                                        *                ASSOCIATES.                                             REG       733
                                        *         ENTRY  (X1)<0 IF TRACEBACK IS MANDATORY.                       REG       734
                                        *                   = 0 IF TRACEBACK IS PROHIBITED                       REG       735
                                        *                   > 0 IF TRACEBACK IS PERMITTED                        REG       736
                                        *                (X3) = LINE NO. FOR TRACEBACK (IF SELECTED)             REG       737
                                        *                X6 = 18/TAG,42/XXXX                                     REG       738
                                        *         USES   A2,A3,A6,A7                                             REG       739
                                        *                                                                        REG       740
                                        *         CALLS  CIA, WCODE                                              REG       741
                                                                                                                 REG       742
           327  0400400327 +            CRJ       SUBR               ENTRY/EXIT                                  REG       743
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    16
  
  
           330  5120000000 X                      SA2    CO.TBK      TRACEBACK FLAG (T-OPTION)                   REG       744
                          21652                   AX6    P.TAG       REMOVE LOW-ORDER GARBAGE                    REG       745
                               76711              =X7    I.RJ                                                    REG       746
           331  20652                             LX6    P.TAG       REPOSITION                                  REG       747
                     0301000337 +                 ZR     X1,CRJ4     IF TRACE PROHIBITED                         REG       748
           332  0331000333 +                      MI     X1,CRJ2     IF TRACE MANDATORY                          REG       749
                          0322000337 +            PL     X2,CRJ4     IF T-OPTION NOT SELECTED                    REG       750
           333  7273770000               CRJ2     SX7    X3-7777B                                                REG       751
                          0337000336 +            MI     X7,CRJ3     IF LINE NO. .LT. 4096                       REG       752
           334  73730                             SX7    X3                                                      REG       753
                     5170000355 +                 SA7    CRJB        SAVE LINE NO.                               REG       754
           335  7130007777                        SX3    7777B       FLAG IN LINE NO.                            REG       755
           336  76710                    CRJ3     =X7    I.CALL                                                  REG       756
                     20336                        LX3    P.LI12-P.TRC                                            REG       757
                          12663                   BX6    X6+X3                                                   REG       758
           337  12667                    CRJ4     BX6    X6+X7                                                   REG       759
                     20660                        LX6    P.LI12                                                  REG       760
                          5160000354 +            SA6    CRJA                                                    REG       761
           340  5170000067 +                      SA7    CIAA        SET LOCK CLEAR FLAG                         FCC0805    14
                          0100000070 +            RJ     CIA         CLEAR REGISTER ASSOCIATES                   FCC0805    15
           341  43600                             MX6    0                                                       FCC0805    16
                     5160000067 +                 SA6    CIAA        CLEAR LOCK FLAG                             FCC0805    17
           342  5120000354 +                      SA2    CRJA                                                    REG       763
                          10722                   BX7    X2                                                      REG       764
           343  6120000344 +                      WCODE  X7          RJ WORD TO LONG  FILE                       REG       765
           344  5120000355 +                      SA2    CRJB                                                    REG       766
                          0302000327 +            ZR     X2,EXIT.    IF LINE NO. WAS .LT. 4096                   REG       767
           345  5130000356 +                      SA3    CRJC                                                    REG       768
                          10733                   WCODE  X3          SB0 B0+0 TO LONG FILE  (FILLER)             REG       769
           347  5120000355 +                      SA2    CRJB        LINE NO.                                    REG       770
                          5130000356 +            SA3    CRJC        SB0 SKELETON                                REG       771
           350  20214                             LX2    P.LBIAS     POSITION LINE NO. TO BIAS FIELD             REG       772
                     12732                        BX7    X3+X2                                                   REG       773
           351  6120000352 +                      WCODE  X7          SB0 B0+LINE NO.  TO LONG FILE               REG       774
           352  76700                             =X7    0                                                       REG       775
                     5170000355 +                 SA7    CRJB        CLEAR FLAG FOR NEXT TIME                    REG       776
           353  0400000327 +                      EQ     EXIT.                                                   REG       777
                                                                                                                 REG       778
           354                     1     CRJA     BSS    1           TEMP CELL FOR INSTRUCTION                   REG       779
           355                     1     CRJB     BSSZ   1           TEMP CELL FOR LINE NO. IF .GT. 4095         REG       780
           356  61000000000000000000     CRJC     VFD    12/6100B,48/0  LONG FILE WORD FOR SB0 B0+K              REG       781
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    17
                                                                      CRT 
  
                                        **        CRT - CHECK REGISTER TYPE                                      REG       783
                                        *                                                                        REG       784
                                        *         ENTRY  B2 = REGISTER TYPE TAG IS IN (0TR)                      REG       785
                                        *                B3 = REGISTER TYPE WANTED (0TR)                         REG       786
                                        *                *T* BIT VALUES                                          REG       787
                                        *                    =000 *B* REGISTER                                   REG       788
                                        *                    =010 *A* REGISTER                                   REG       789
                                        *                    =020 *X* REGISTER                                   REG       790
                                        *                                                                        REG       791
                                        *         EXIT   IF B7 = 0 IF TYPES MATCH                                REG       792
                                        *                X7 = INSTRUCTION TO TRANSFER TO SAME TYPE               REG       793
                                        *                                                                        REG       794
                                        *                IF B7 = INSTRUCTION TO TRANSFER IF DIFFERENT TYPES      REG       795
                                        *                X7 = B7                                                 REG       796
                                        *                                                                        REG       797
                                        *         THE FOLLOWING MATRIX IS USED TO DETERMINE INSTRUCTION          REG       798
                                        *                                                                        REG       799
                                        *                                                                        REG       800
                                        *                     WANT REGISTER TYPE                                 REG       801
                                        *                                                                        REG       802
                                        *                        X         A           B                         REG       803
                                        *                                                                        REG       804
                                        *                 +----------+----------+----------+                     REG       805
                                        *                 +          +          +          +                     REG       806
                                        *   I             +   SX=BB  +   SX=BB  +  -SB=BB  +                     REG       807
                                        *   N             +          +          +          +                     REG       808
                                        *                 +----------+----------+----------+                     REG       809
                                        *   R             +          +          +          +                     REG       810
                                        *   E             +   SA=AB  +  -SA=AB  +   SB=AB  +                     REG       811
                                        *   G             +          +          +          +                     REG       812
                                        *   I             +----------+----------+----------+                     REG       813
                                        *   S             +          +          +          +                     REG       814
                                        *   T             +  -XMIT   +  -XMIT   +   SB=XB  +                     REG       815
                                        *   E             +          +          +          +                     REG       816
                                        *   R             +----------+----------+----------+                     REG       817
                                        *                                                                        REG       818
                                        *                                                                        REG       819
                                        *         USES   A2  X0,X1,X2,X7  B7                                     REG       820
                                                                                                                 REG       821
                                                                                                                 REG       822
           357  0400400357 +             CRT      SUBR               ENTRY/EXIT...                               REG       823
           360  56330                             SA3    B3                                                      REG       824
                     76220                        SX2    B2          REGISTER TYPE TAG IS IN                     REG       825
                          73330                   SX3    X3          REGISTER TYPE WANTED                        REG       826
                               21203              AX2    3           ORDINAL INTO TABLE                          REG       827
           361  43054                             MX0    -16         INSTRUCTION MASK                            REG       828
                     21303                        AX3    3                                                       REG       829
                          5222000000 X            SA2    X2+CRTTAB   GET INSTRUCTION TABLE ENTRY                 REG       830
           362  20304                             LX3    4           16*TYPE WANTED                              REG       831
                     63730                        SB7    X3          SHIFT COUNT                                 REG       832
                          23272                   AX2    B7,X2       SHIFT TO APPROPRIATE INSTRUCTION            REG       833
                               15720              BX7    -X0*X2                                                  REG       834
           363  20754                             LX7    60-16                                                   REG       835
                     21757                        AX7    60-13       SIGN EXTEND                                 REG       836
                          63770                   SB7    X7          INSTRUCTION TO B7                           REG       837
           364  0327000357 +                      PL     X7,EXIT.    IF NOT TYPE MATCH - EXIT                    REG       838
                          66700                   =B7    0           FLAG TYPE MATCH                             REG       839
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    18
                                                                      CRT 
  
                               14777              BX7    -X7                                                     REG       840
           365  0400000357 +                      EQ     EXIT.                                                   REG       841
  
  
  
  
                                        **        CWI -  COMPILE WRITE OF INTERMEDIATE.                          REG       843
                                        *                                                                        REG       844
                                        *         CALLED TO STORE TO TEMP CELL AN INTERMEDIATE THAT IS BEING     REG       845
                                        *         CLOBBERED AND HAS AT LEAST ONE REMAINING USE.                  REG       846
                                        *                                                                        REG       847
                                        *         ENTRY  (B2) = 0TR.TO PROCESS.                                  REG       848
                                        *                (X5) = TAG TO PROCESS.                                  REG       849
                                        *                                                                        REG       850
                                        *         EXIT   (B2) = REGISTER USED. (0TR)                             REG       851
                                        *                (X6) = TEMPORARY TAG. (18/T-TAG,24/0,18/MODE)           REG       852
                                        *                                                                        REG       853
                                        *                (SCR, SCR+1)                                            REG       854
                                        *                                                                        REG       855
                                        *         CALLS  GNT,ASR,WCODE,CLI                                       REG       856
                                                                                                                 REG       857
                                                                                                                 REG       858
           366  0400400366 +             CWI      SUBR               ENTRY/EXIT...                               REG       859
           367  43600                             MX6    0                                                       REG       860
                     10155                        BX1    X5                                                      REG       861
                          5162000000 X            SA6    B2+REGFILE  CLEAR REGISTER FILE FOR INTER. BEING STORED REG       862
           370  0100000452 +                      RJ     GNT                                                     REG       863
           371  7152777757                        SX5    B2-R.X0+RGFILE                                          REG       864
                          6172777751              SB7    B2-R.X6+RGFILE                                          REG       865
           372  0670000400 +                      PL     B7,CWI20    IF IN STORE REGISTER                        REG       866
                          5160000000 X            SA6    SCR         SAVE TAG                                    REG       867
           373  10755                             BX7    X5                                                      REG       868
                     54761                        =A7    A6+1        SAVE REG                                    REG       869
                          0100000016 +            RJ     ASR                                                     REG       870
           374  5130000001 X                      SA3    SCR+1       REGISTER =00L                               REG       871
                          36036                   IX0    X3+X6       =RL                                         REG       872
           375  7270000000 X                      SX7    X0+XMITS3                                               REG       873
                          10566                   BX5    X6                                                      REG       874
                               20760              LX7    P.LI15+3                                                REG       875
           376  6120000377 +                      WCODE  X7          COMPILE *XMIT* TO *R*                       REG       876
           377  5110000000 X                      SA1    SCR         RELOAD TAG                                  REG       877
                          21503                   AX5    3           =00L  (L-R  = R)                            REG       878
                               10611              BX6    X1                                                      REG       879
                                                                                                                 REG       880
                                        *         (X5) = REGISTER INTERMEDIATE IS IN = 00R                       REG       881
                                        *         (X6) = TEMP TAG - 18/TAG,24/0,15/0,3/MODE                      REG       882
                                        *         (B6) _ INTERMEDIATE                                            REG       883
                                                                                                                 REG       884
           400  10166                    CWI20    BX1    X6                                                      REG       885
                     10655                        BX6    X5                                                      REG       887
                          20603                   LX6    3                                                       REG       888
           401  6255000020                        SB5    X5+R.X0-RGFILE                                          FCC2282     4
                          10511                   BX5    X1                                                      FCC2282     5
           402  7276000000 X                      SX7    X6+SA=BKS3                                              FCC2282     6
                          43052                   MX0    -L.2BIAS                                                FCC2282     7
                               20030              LX0    P.2BIAS                                                 FCC2282     8
           403  15310                             BX3    -X0*X1      BIAS                                        FCC2282     9
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    19
                                                                      STINS 
  
                     20360                        LX3    P.LBIAS-P.2BIAS                                         FCC2282    10
                          43052                   MX0    -L.2TAG                                                 FCC2282    11
                               20052              LX0    P.2TAG                                                  FCC2282    12
           404  15110                             BX1    -X0*X1      TAG                                         FCC2282    13
                     20160                        LX1    P.LTAG-P.2TAG                                           FCC2282    14
                          20760                   LX7    P.LI15+3                                                FCC2282    15
                               12037              BX0    X3+X7                                                   FCC2282    16
           405  12701                             BX7    X0+X1                                                   FCC2282    17
           406  6120000407 +                      WCODE  X7                                                      FCC2282    18
           407  66250                             SB2    B5                                                      FCC2282    19
                     10655                        BX6    X5                                                      REG       891
                          0400000366 +            EQ     EXIT.                                                   REG       892
  
  
  
  
                                        **        DIT -  DEFINE INTERMEDIATE RESULTS.                            REG       894
                                        *                                                                        REG       895
                                        *         ENTRY  (B2) = REGISTER FOR INTERMEDIATE.                       REG       896
                                        *                (B4) = CURRENT PASS 1 ENTRY.                            REG       897
                                        *                (X5) = SPECIAL MODE BITS FOR INTERMEDIATE.              REG       898
                                        *                       IE. ARY, OPVAL ETC.                              REG       899
                                        *                                                                        REG       900
                                        *         EXIT   (B2) = 0TR, FOR INTERMEDIATE.                           REG       901
                                        *                (X6) = 0R0, FOR INTERMEDIATE.                           REG       902
                                        *                INTERMEDIATE TAG PUT IN REGISTER FILE.                  REG       903
                                        *                                                                        REG       904
                                        *         USES   A1,A2,A3,A5,A6,A7  X0  B2,B3,B5,B6,B7                   REG       905
                                        *                                                                        REG       906
                                        *         CALLS  SST                                                     REG       907
                                                                                                                 REG       908
           410  0400400410 +             DIT      SUBR               ENTRY/EXIT...                               REG       909
           411  56140                             =A1    B4+OR.OPR   CURRENT OPERATOR.                           REG       910
                     10211                        BX2    X1                                                      REG       911
                          43070                   MX0    -L.DMOD                                                 REG       912
           412  5130000000 X                      SA3    TT.PAR      FWA                                         REG       913
                          20033                   LX0    P.DMOD                                                  REG       914
                               43763              MX7    -L.RUSE                                                 REG       915
           413  15010                             BX0    -X0*X1      RESULTANT MODE.                             REG       916
                     21222                        AX2    P.MODC                                                  REG       917
                          63530                   SB5    X3          FWA                                         REG       918
                               15627              BX6    -X7*X2      USE COUNT                                   REG       919
                                                                                                                 REG       920
                                        **        CONSTRUCT INTERMEDIATE.                                        REG       921
                                                                                                                 REG       922
           414  77345                             SX3    B4-B5       ORDINAL                                     REG       923
                     7275001000                   SX7    X5+M.INTR                                               REG       924
                               20352              LX3    P.TAG                                                   REG       925
           415  36530                             IX5    X3+X0       ORDINAL + MODE                              REG       926
                     43271                        MX2    -3                                                      REG       927
                          36556                   IX5    X5+X6                                                   REG       928
                               12575              BX5    X7+X5                                                   REG       929
           416  76320                             SX3    B2          =0TR                                        REG       930
                     15632                        BX6    -X2*X3      =00R                                        REG       931
                          20603                   LX6    3                                                       REG       932
           417  0100001075 +                      RJ     SST         SET STATUS OF TAG                           REG       933
           420  0400000410 +                      EQ     EXIT.                                                   REG       934
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    20
  
  
                                        **        GLN -  GET LEVEL NUMBER OF TAG                                 REG       936
                                        *                                                                        REG       937
                                        *         ENTRY  (X5) = TAG IN *PASS 2* TAG FIELD                        REG       938
                                        *                                                                        REG       939
                                        *         EXIT   (X1) = LEVEL NUMBER OF TAG                              REG       940
                                        *                (X5) = PRESERVED                                        REG       941
                                        *                                                                        REG       942
                                        *         USES   A1,A3  X0  B5,B7                                        REG       943
                                                                                                                 REG       944
                                                                                                                 REG       945
           421  0400400421 +             GLN      SUBR   0                                                       REG       946
                                                                                                                 REG       947
                                        *         THE TAG WORD MAY NOW BE IN TT.USE.  WE LOOK FOR IT THERE FIRST REG       948
                                        *         AND, IF NOT FOUND, WE GO TO TS.SYM.                            REG       949
                                                                                                                 REG       950
           422  5110000000 X                      SA1    =XTT.USE                                                REG       951
                          5130000000 X            SA3    =XTT=USE                                                REG       952
           423  63510                             =B5    X1          (B5) = FWA TT.USE                           REG       953
                     63730                        =B7    X3                                                      REG       954
                          67771                   =B7    B7-1                                                    REG       955
                               43022              MX0    L.TAG                                                   REG       956
           424  20500                             LX5    -P.2TAG-L.TAG                                           REG       957
                     11305                        BX3    X0*X5       (X3) = TAG ONLY                             REG       958
                          20574                   LX5    P.2TAG+L.TAG                                            REG       959
           425  0770000431 +                      LT     B7,GLN6     IF NULL USE TABLE, AVOID                    REG       960
                                                                                                                 REG       961
           426  56157                   GLN2      SA1    B5+B7       FETCH TT.USE ENTRY                          REG       962
                     20100                        LX1    -P.TAG-L.TAG                                            REG       963
                          11001                   BX0    X0*X1       (X0) = TAG ONLY                             REG       964
                               37003              IX0    X0-X3                                                   REG       965
           427  0300000433 +                      ZR     X0,GLN8     IF TAG FOUND                                REG       966
                          43022                   MX0    L.TAG       RESTORE X0                                  REG       967
                               67771              =B7    B7-1                                                    REG       968
           430  0670000426 +                      PL     B7,GLN2     IF NOT END OF TABLE, LOOP                   REG       969
                                                                                                                 REG       970
           431  20322                    GLN6     LX3    -P.TAG                                                  REG       971
                     43057                        MX0    -L.PWF                                                  REG       972
                          15330                   BX3    -X0*X3      (X3) = TS.SYM ORDINAL                       REG       973
           432  5110000000 X                      SA1    TS.SYM                                                  REG       974
                          63730                   =B7    X3                                                      REG       975
                               53117              SA1    X1+B7       FETCH TS.SYM ENTRY                          REG       976
           433  20164                    GLN8     IFBIT  X1,-LEV,GLN9      IF NOT *LEVEL* TAG                    REG       977
                               43072              MX0    -L.LEVN                                                 REG       978
           434  20137                             LX1    P.LEV+1-P.LEVN                                          REG       979
                     15110                        BX1    -X0*X1      (X1) = LEVEL NUMBER                         REG       980
                          0400000421 +            EQ     GLNX        EXIT..                                      REG       981
                                                                                                                 REG       982
           435  7110000001               GLN9     SX1    1                                                       REG       983
                          0400000421 +            EQ     GLNX        EXIT..                                      REG       984
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    21
                                                                      GNR 
  
                                        **        GNR -  GET NEXT REGISTER.                                      REG       987
                                        *                                                                        REG       988
                                        *         *GNR* IS CALLED WHEN A REGISTER IS NEEDED FOR A LOAD/SET       REG       989
                                        *         INSTRUCTION.  IT WILL ALWAYS ASSIGN A REGISTER NOTING          REG       990
                                        *         WHETHER A *HARD* REGISTER AND REGISTER TYPES AGREE.            REG       991
                                        *                                                                        REG       992
                                        *         ENTRY  (B3) = RG=XXXX REGISTER TYPE                            REG       993
                                        *                (X5) = TAG.                                             REG       994
                                        *                                                                        REG       995
                                        *         EXIT   (B2) = 0TR, FOR REGISTER ASSIGNED.                      REG       996
                                        *                (X6) = 0R0, FOR (B2)                                    REG       997
                                        *                                                                        REG       998
                                        *         USES   A1,A2,A3,A5  X0  B2,B3,B6,B7                            REG       999
                                        *                                                                        REG      1000
                                        *         CALLS  SFR,RUT                                                 REG      1001
                                        *                (SCR,SCR+1)                                             REG      1002
                                                                                                                 REG      1003
                                                                                                                 REG      1004
           436  0400400436 +             GNR      SUBR               ENTRY/EXIT...                               REG      1005
           437  0100001051 +                      RJ     SFR         FIND AVAILABLE REGISTER                     REG      1006
           440  0307000444 +                      ZR     X7,GNR5     IF REGISTER FREE                            REG      1007
                          5120000000 X            SA2    RGX                                                     REG      1008
           441  76730                             SX7    B3                                                      REG      1009
                     0302000442 +                 ZR     X2,GNR2     IF NON-INTERMEDIATE NOT AVAILABLE           REG      1010
                               63220              SB2    X2                                                      REG      1011
           442  5170000451 +             GNR2     SA7    GNRA                                                    REG      1012
                          0100000730 +            RJ     RUT         CLEAR REGISTER                              REG      1013
           443  5120000451 +                      SA2    GNRA                                                    REG      1014
                          63320                   SB3    X2                                                      REG      1015
           444  6170000000 X             GNR5     SB7    RG=LOAD                                                 REG      1016
                          77037                   SX0    B3-B7                                                   REG      1017
           445  0310000436 +                      NZ     X0,EXIT.    IF NOT *A* REGISTER LOAD                    REG      1018
                          6122777767              SB2    B2-REG.X+REG.A                                          REG      1019
           446  5112000000 X                      SA1    B2+REGFILE                                              REG      1020
                          43063                   MX0    -L.RUSE                                                 REG      1021
                               15110              BX1    -X0*X1      USE COUNT ONLY                              REG      1022
           447  0301000436 +                      ZR     X1,EXIT.    IF *A* REGISTER IS FREE                     REG      1023
                          0100000730 +            RJ     RUT         CLEAR *A* REGISTER                          REG      1024
           450  0400000436 +                      EQ     EXIT.                                                   REG      1025
                                                                                                                 REG      1026
           451  00000000000000000000     GNRA     DATA   0                                                       REG      1027
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    22
                                                                      GNT 
  
                                        **        GNT - GENERATE TEMPORARY TAG.                                  REG      1029
                                        *                                                                        REG      1030
                                        *         ENTRY  (X1) = INTERMEDIATE TO PROCESS                          REG      1031
                                        *                (B2) = 0TR OF REGISTER INTERMEDIATE IS IN               REG      1032
                                        *                                                                        REG      1033
                                        *         EXIT   (B2) = PRESERVED                                        REG      1034
                                        *                (X6) = TEMP.TAG + ORDINAL OF INTR + INTR BIT + USE CT   REG      1035
                                        *                                                                        REG      1036
                                        *         USES   A1,A2,A3,A6,A7 X0 B3,B5.                                REG      1037
                                        *                                                                        REG      1038
                                        *         CALLS  NONE.                                                   REG      1039
                                                                                                                 REG      1040
                                                                                                                 REG      1041
           452  0400400452 +             GNT      SUBR               ENTRY/EXIT...                               REG      1042
           453  43073                             MX0    -1                                                      REG      1043
                     5130000000 X                 SA3    TT.PAR                                                  REG      1044
                               21121              AX1    P.TYPE                                                  REG      1045
           454  63330                             SB3    X3          START OF PARSED FILE                        REG      1046
                     15610                        BX6    -X0*X1      TAG TYPE (0 = UPPER HALF, 1 = ;OWER HALF)   REG      1047
                          5120000000 X            SA2    TG.TEM                                                  REG      1048
           455  43070                             MX0    -L.DMOD                                                 REG      1049
                     63760                        SB7    X6                                                      REG      1050
                          21112                   AX1    P.DMOD-P.TYPE                                           REG      1051
                               73721              =X7    X2+1          ADVANCE TG.TEM                            REG      1052
           456  15610                             BX6    -X0*X1        MODE OF INTERMEDIATE                      REG      1053
                     21117                        AX1    P.JPAD-P.DMOD                                           REG      1054
                          43044                   MX0    L.2TAG+L.2BIAS                                          REG      1055
                               53313              SA3    X1+B3         LOAD INTERMEDIATE CELL                    REG      1056
           457  20252                             LX2    P.2TAG                                                  REG      1057
                     10133                        BX1    X3                                                      REG      1058
                          20671                   IFBIT  X6,LONG,GNT4                                            REG      1059
                          0470000462 +            ZR     B7,GNT5                                                 REG      1060
           461  7277000001               GNT4     SX7    X7+1        ADVANCE (TG.TEM) TWICE IF DOUBLE-WORD       REG      1061
                                                                                                                 REG      1062
           462  21167                    GNT5     AX1    P.TGB                                                   REG      1063
                     6231777762                   SB3    X1-C.TEM/1S13                                           REG      1064
                               43173              MX1    -1                                                      REG      1065
           463  6177000017                        SB7    B7+P.2STAT                                              REG      1066
                          0430000465 +            ZR     B3,GNT10      IF TEMPORARY TAG ALREADY DEFINED          REG      1067
           464  15330                             BX3    -X0*X3                                                  REG      1068
                     54720                        SA7    A2            UPDATE TG.TEM                             REG      1069
                          12323                   BX3    X2+X3                                                   REG      1070
                                                                                                                 REG      1071
           465  43052                    GNT10    MX0    L.2TAG+L.2BIAS+L.2FPNO                                  REG      1072
                     11603                        BX6    X0*X3                                                   REG      1073
                          22271                   LX2    X1,B7                                                   REG      1074
           466  7117777760                        SX1    B7-P.2STAT                                              REG      1075
                          11723                   BX7    X2*X3                                                   REG      1076
                               20130              LX1    P.2BIAS                                                 REG      1077
           467  54730                             SA7    A3            CLEAR STATUS OF TAG                       REG      1078
                     12616                        BX6    X1+X6                                                   REG      1079
                          0400000452 +            EQ     EXIT.                                                   REG      1080
  
  
  
  
                                        **        GPT -  GET POINTER TAG                                         REG      1082
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    23
                                                                      GST 
  
                                        *                                                                        REG      1083
                                        *         ENTRY  (X5) = ECS/LCM NAME TAG                                 REG      1084
                                        *                                                                        REG      1085
                                        *         EXIT   (X2) = POINTER-WORD TAG                                 REG      1086
                                        *                (X5) = PRESERVED                                        REG      1087
                                        *                                                                        REG      1088
                                        *         USES   A2,A3  B7                                               REG      1089
                                                                                                                 REG      1090
           470  0400400470 +             GPT      SUBR   0                                                       REG      1091
           471  5130000000 X                      SA3    =XTA.NAM                                                REG      1092
                          63730                   SB7    X3                (B7) = FWA ADDRESS TABLE              REG      1093
                               43257              MX2    -L.PWF                                                  REG      1094
           472  20522                             LX5    -P.2TAG                                                 REG      1095
                     15252                        BX2    -X2*X5      (X2) = TAG ORDINAL                          REG      1096
                          20552                   LX5    P.2TAG            RESTORE X5                            REG      1097
           473  5130000000 X                      SA3    =XTS.BLK                                                REG      1098
                          21201                   AX2    1           (X2) = ADDRESS TABLE ORDINAL                REG      1099
                               53227              SA2    X2+B7       (X2) = ADDRESS TABLE ENTRY                  REG      1100
           474  63731                             SB7    X3+B1             (B7) = FWA+1 BLOCK TABLE              REG      1101
                     43360                        MX3    -L.BLOCK                                                REG      1102
                          21230                   AX2    P.BLOCK                                                 REG      1103
                               15223              BX2    -X3*X2      (X2) = BLOCK NUMBER                         REG      1104
           475  53227                             SA2    X2+B7       (X2) = BLOCK TABLE ENTRY                    REG      1105
                     43322                        MX3    L.CTAG                                                  REG      1106
                          11232                   BX2    X3*X2       (X2) = POINTER-WORD TAG                     REG      1107
           476  0400000470 +                      EQ     GPTX              EXIT..                                REG      1108
  
  
  
  
                                        **        GST - GET STATUS OF TAG.                                       REG      1110
                                        *                                                                        REG      1111
                                        *         ENTRY  (X5) = TAG.                                             REG      1112
                                        *                (B2) = 0 (STATUS OF UPPER HALF)                         REG      1113
                                        *                       1 (STATUS OF LOWER HALF)                         REG      1114
                                        *                (B3) = RG=XXXX REGISTER TYPE                            REG      1115
                                        *                (B7) = 0 STATUS OF TAG ONLY.                            REG      1116
                                        *                     " 0 FULL STATUS. IF TAG IS IN A REGISTER, CRT IS   REG      1117
                                        *                         CALLED TO CHECK IF REGISTER TYPES MATCH.       REG      1118
                                        *                                                                        REG      1119
                                        *         EXIT.  (B2) = 0 (TAG NOT IN REGISTER)                          REG      1120
                                        *                     " 0 (TAG IN REGISTER - 0TR OF REGISTER)            REG      1121
                                        *                (A1) _ ADDRESS OF TAG                                   REG      1122
                                        *                (X1) = (ADDRESS)                                        REG      1123
                                        *                (X5) PRESERVED)                                         REG      1124
                                        *                (X6) = 0R0 - IF TAG IN REGISTER.                        FCC1208    14
                                        *                (GSTC) = LOCATION OF STATUS WORD --                     FCC1208    15
                                        **T  GSTC 42/ TABLE, 18/ ORDINAL                                         FCC1208    16
                                        *                                                                        REG      1125
                                        *         USES   A1,A2  X0,X3,X6  B2,B3,B7                               REG      1126
                                        *                UNDER NO CONDITION CAN *GST* DESTROY *B5* OR *B6*.      REG      1127
                                        *                                                                        REG      1128
                                        *         CALLS  CRT                                                     REG      1129
                                                                                                                 REG      1130
                                                                                                                 REG      1131
           477  76620                    GSTX     SX6    B2                                                      REG      1132
                     43071                        MX0    -3                                                      REG      1133
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    24
  
  
                          15660                   BX6    -X0*X6                                                  REG      1134
                               20603              LX6    3           =0R0                                        REG      1135
           500  0400400500 +             GST      SUBR   -           ENTRY/EXIT...                               REG      1136
           501  76770                             SX7    B7                                                      REG      1137
                     5170000547 +                 SA7    GSTA                                                    REG      1138
                               43073              MX0    -1                                                      REG      1150
           502  10155                             BX1    X5                                                      REG      1151
                     21170                        AX1    60-4                                                    REG      1152
                          15310                   BX3    -X0*X1      EXTRACT 4 BIT                               REG      1153
                               21101              AX1    1           UPPER 3 TAG BITS ONLY                       REG      1154
           503  36613                             IX6    X1+X3       TABLE ORDINAL                               REG      1155
                                                                                                                 REG      1156
                                        *         (X6) = ORDINAL INTO *GST.TBL* DEFINED FROM THE *UPPER *4* BITS REG      1157
                                        *                OF THE TAG.                                             REG      1158
                                                                                                                 REG      1159
           504  5226000556 +             GST5     SA2    X6+GST.TBL                                              REG      1160
                          5132000554 +            SA3    B2+GST.STAT                                             REG      1161
           505  22602                             LX6    X2                                                      REG      1162
                     53120                        SA1    X2          LOAD BASE TABLE POINTER WORD                REG      1163
                          21622                   AX6    P.GSTSFT                                                REG      1164
                               63710              SB7    X1          FWA OF TABLE                                REG      1165
           506  21244                             AX2    P.GSTTAG                                                REG      1166
                     63260                        SB2    X6          SHIFT COUNT FOR ORDINAL                     REG      1167
                          43055                   MX0    60-15                                                   REG      1168
                               23725              AX7    X5,B2                                                   REG      1169
           507  37672                             IX6    X7-X2       TABLE ORDINAL                               REG      1170
                     66200                        SB2    B0          INDICATE NOT IN REGISTER                    REG      1171
                          15660                   BX6    -X0*X6                                                  REG      1172
                               74710              SX7    A1                                                      FCC1208    17
           510  20722                             LX7    18                                                      FCC1208    18
                     36767                        IX7    X6+X7                                                   FCC1208    19
                          53167                   SA1    X6+B7                                                   REG      1173
                               43066              MX0    -L.UREG                                                 REG      1174
           511  63730                             SB7    X3          SHIFT COUNT TO CHECK STATUS                 REG      1175
                     22271                        LX2    X1,B7                                                   REG      1176
                          5170000553 +            SA7    GSTC        SAVE LOCATION OF STATUS WORD                FCC1208    20
           512  0322000500 +                      PL     X2,EXIT.    IF NOT IN REGISTER                          REG      1177
                          21322                   AX3    18                                                      REG      1178
                               63730              SB7    X3                                                      REG      1179
           513  23771                             AX7    X1,B7                                                   REG      1180
                     15670                        BX6    -X0*X7      REGISTER (0TR)                              REG      1181
                          63260                   SB2    X6                                                      REG      1182
           514  5122000000 X                      SA2    B2+REGFILE                                              REG      1183
                          13625                   BX6    X2-X5                                                   REG      1184
                               21611              AX6    L.RUSE                                                  REG      1185
           515  20262                             IFBIT  X2,-INTR,GST6     IF NOT INTERMEDIATE                   REG      1186
                               21641              AX6    P.2TAG-L.RUSE                                           REG      1187
           516  0316000522 +             GST6     NZ     X6,GST7     IF NOT SAME TAG                             REG      1188
                          76220                   SX2    B2                                                      REG      1189
           517  7100000010                        =X0    REG.A-RGFILE                                            REG      1190
                          11202                   BX2    X0*X2                                                   REG      1191
           520  0302000523 +                      ZR     X2,GST8     IF NOT *A* REGISTER                         REG      1192
                          5022000010              SA2    A2+REG.X-REG.A                                          REG      1193
           521  13625                             BX6    X2-X5                                                   REG      1194
                     21611                        AX6    L.RUSE                                                  REG      1195
                          0306000523 +            ZR     X6,GST8     IF SAME TAG                                 REG      1196
           522  66200                    GST7     SB2    B0          INDICATE NOT IN REGISTER                    REG      1197
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    25
  
  
                     0400000500 +                 EQ     EXIT.                                                   REG      1198
                                                                                                                 REG      1199
           523  5120000547 +             GST8     SA2    GSTA                                                    REG      1200
                          0302000477 +            ZR     X2,GSTX     IF FULL STATUS NOT REQUESTED                REG      1201
           524  0100000357 +                      RJ     CRT         CHECK REGISTER TYPES                        REG      1202
           525  0570000531 +                      NZ     B7,GST10    IF TYPES DO NOT MATCH                       REG      1203
                          5120000000 X            SA2    RREG                                                    REG      1204
           526  43371                             MX3    -3                                                      REG      1205
                     76020                        SX0    B2                                                      REG      1206
                          0332000477 +            MI     X2,GSTX     IF NO HARD REGISTER                         REG      1207
           527  13602                             BX6    X0-X2                                                   REG      1208
                     15063                        BX0    -X3*X6                                                  REG      1209
                          0310000531 +            NZ     X0,GST10    IF NOT IN CORRECT REGISTER                  REG      1210
           530  14622                             BX6    -X2         CLEAR HARD REGISTER ASSIGNMENT              REG      1211
                     54620                        SA6    A2                                                      REG      1212
                          0400000477 +            EQ     GSTX                                                    REG      1213
                                                                                                                 REG      1214
                                        *         TAG IS NOT IN CORRECT REGISTER.                                REG      1215
                                        *         (B2) = REGISTER (0TR)                                          REG      1216
                                        *         (X7) = INSTRUCTION TO USE.                                     REG      1217
                                                                                                                 REG      1218
           531  7102777751               GST10    SX0    B2-R.X6+RGFILE                                          REG      1219
                          0330000535 +            MI     X0,GST11    IF NOT STORE REGISTER                       REG      1220
                                                                                                                 REG      1221
                                        **        TAG IS CURRENTLY IN A STORE REGISTER.  THE REGISTER TO WHICH   REG      1222
                                        *         IT WILL BE TRANSMITTED MAY NOT BE FREE AND MAY THEREFORE       REG      1223
                                        *         REQUIRE A STORE REGISTER TO CONVEY ITS CONTENTS TO MEMORY.     REG      1224
                                        *         WE LOCK THE STORE REGISTER NOW,REMEMBER IT, AND UNLOCK ITS     REG      1225
                                        *         REGFILE ENTRY WHEN IT IS SAFE TO DO SO.                        REG      1226
                                                                                                                 REG      1227
           532  76620                             SX6    B2                                                      REG      1228
                     5160000721 +                 SA6    STRGLK      REGISTER TO CLEAR                           REG      1229
           533  5122000000 X                      SA2    B2+REGFILE                                              REG      1230
                          7100000400              SX0    RLOCK                                                   REG      1231
           534  12602                             BX6    X0+X2       LOCK ON                                     REG      1232
                     54620                        SA6    A2                                                      REG      1233
                          0400000542 +            EQ     GST12                                                   REG      1234
                                                                                                                 REG      1235
           535  7100000010               GST11    =X0    REG.A-RGFILE                                            REG      1236
                          76220                   SX2    B2                                                      REG      1237
                               13666              BX6    0                                                       REG      1238
           536  22307                             LX3    X7                                                      REG      1239
                     11202                        BX2    X0*X2                                                   REG      1240
                          5162000000 X            SA6    B2+REGFILE                                              REG      1241
           537  0302000542 +                      ZR     X2,GST12    IF TAG NOT IN *A* REGISTER                  REG      1242
                          5026000010              SA2    A6+REG.X-REG.A   GET ASSOCIATE *X* REG                  REG      1243
           540  46000                             NO                                                             REG      1244
                     13625                        BX6    X2-X5                                                   REG      1245
                          21611                   AX6    L.RUSE                                                  REG      1246
           541  0316000542 +                      NZ     X6,GST12    IF NOT SAME TAGE IN *X* REGISTER            REG      1247
                          54620                   SA6    A2          CLEAR ASSIGNMENT                            REG      1248
           542  21311                    GST12    AX3    9                                                       REG      1249
                     6130000000 X                 SB3    RG=LODX                                                 REG      1250
                               43072              MX0    -2                                                      REG      1251
           543  6170000000 X                      SB7    XMITS3                                                  REG      1252
                          67707                   SB7    -B7                                                     REG      1253
                               73677              SX6    X7+B7                                                   REG      1254
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    26
  
  
           544  66710                             SB7    B1                                                      REG      1255
                     15230                        BX2    -X0*X3                                                  REG      1256
                          0306000477 +            ZR     X6,GSTX     IF XMIT                                     REG      1257
           545  5222000547 +                      SA2    X2+GSTA     GET TYPE OF LOAD TO USE                     REG      1258
                          63320                   SB3    X2                                                      REG      1259
           546  0400000477 +                      EQ     GSTX                                                    REG      1260
                                                                                                                 REG      1261
           547                     1     GSTA     BSS    1                                                       REG      1262
           550  00000000000000000000 X            VFD    42/0,18/RG=LOAD                                         REG      1263
           551  00000000000000000000 X            VFD    42/0,18/RG=BADR                                         REG      1264
           552  00000000000000000000 X            VFD    42/0,18/RG=LODX                                         REG      1265
                                                  ENTRY  GSTC                                                    FCC1208    21
           553  00000000000000400553 +   GSTC     CON    "BLOWUP"    LOCATION OF STATUS WORD                     FCC1208    22
                                                                                                                 REG      1266
           554                           GST.STAT BSS    0                                                       REG      1267
           554  00000000000000000054              VFD    24/0,18/P.UREG,18/59-P.USTAT                            REG      1268
           555  00000000000006000053              VFD    24/0,18/P.LREG,18/59-P.LSTAT                            REG      1269
  
  
  
  
                                        **        TBLOOK - SET UP TABLE FOR TAG LOOK UP.                         REG      1271
                                        *                                                                        REG      1272
                                        *         TAG   = BIAS TO SUBSTRACT FROM TAG TO GET ORDINAL RELATIVE     REG      1273
                                        *                TO TABLE.                                               REG      1274
                                        *         SHFTCNT= SHIFT COUNT TO USE TO EXTRACT TAG.                    REG      1275
                                        *         TBLADR = ADDRESS OF *TABLE* POINTER WORD.                      REG      1276
                                                                                                                 REG      1277
                                         GSTTBL   DEFINE 0,18        TABLE POINTER                               REG      1278
                                         GSTSFT   DEFINE 18,18       SHIFT COUNT FOR TABLE ORDINAL               REG      1279
                                         GSTTAG   DEFINE 36,18       BIAS FOR TAG ORDINAL                        REG      1280
                                                                                                                 REG      1281
                                                  MACRO  TBLOOK,TAG,BIAS,SHFTCNT,TBLADR                          REG      1282
                                         TAG      VFD    6/0,L.GSTTAG/BIAS,L.GSTSFT/SHFTCNT,L.GSTTBL/TBLADR      REG      1283
                                         TBLOOK   ENDM                                                           REG      1284
                                                                                                                 REG      1285
                                                                                                                 REG      1286
           556                           GST.TBL  BSS    0           START OF TABLE.                             REG      1287
           556  00000000000052000000 X   GST.INTR TBLOOK 0,P.TAG,TT.PAR                                          REG      1288
           557  00100000000052000000 X   GST.SCR  TBLOOK C.SCR,P.2TAG,TT.SCR                                     REG      1289
           560  00200000000052000000 X   GST.SYM  TBLOOK C.SYM,P.TAG,TS.SYM                                      REG      1290
                                                                                                                 REG      1291
                                        .TEST     IFNE   TEST                                                    REG      1292
                                         GST..    BSS    0                                                       REG      1293
                                                  DUP    2,1         DUMMYS IN CASE SOMEONE BLOWS IT.            REG      1294
                                                  TBLOOK 0,0,"BLOWUP"                                            REG      1295
                                        .TEST     ENDIF                                                          REG      1296
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    27
                                                                      LFP 
  
                                        **        LFP -  LOAD FORMAL PARAMETER ADDRESS                           REG      1298
                                        *         ENTRY  (X1) = TAG                                              REG      1299
                                        *                (X2) = FORMAL PARAMETER NUMBER.                         REG      1300
                                        *         EXIT   (B6) = (R00) *FP* LOAD REGISTER USED FOR *SAJ*          REG      1301
                                        *                (B2) = (0TR) *FP* SET REGISTER USED FOR *SBK* OR *SXI*  REG      1302
                                        *                                                                        REG      1303
                                        *         OUTPUTS TO INTERMEDIATE FILE                                   REG      1304
                                        *                SAJ    A0+FP                                            REG      1305
                                        *         AND EITHER                                                     REG      1306
                                        *                SBK    XJ+BIAS    (CM/SCM TAG)                          REG      1307
                                        *         OR                                                             REG      1308
                                        *                SXI    R+BIAS     (ECS/LCM TAG -- R CONTAINS SUBSCRIPT) REG      1309
                                        *                                                                        REG      1310
                                        *         USES   A1,A2,A3  X0,X5  B2,B3,B5,B6                            REG      1311
                                        *                                                                        REG      1312
                                        *         CALLS  SFR,RUT,WCODE,CLT,RLL,GNR,RUL                           REG      1313
                                                                                                                 REG      1314
                                                                                                                 REG      1315
           561  0400400561 +             LFP      SUBR               ENTRY/EXIT...                               REG      1316
           562  5130000000 X                      SA3    ALREG                                                   REG      1317
                          7272777776              SX7    X2-1        ACTUAL ARGUMENT NUMBER                      REG      1318
           563  43071                             MX0    -3                                                      REG      1319
                     6273777751                   SB7    X3-R.X6+RGFILE                                          REG      1320
                               15630              BX6    -X0*X3                                                  REG      1321
           564  10511                             BX5    X1                                                      REG      1322
                     20606                        LX6    6           =R00                                        REG      1323
                          0770000575 +            NG     B7,LFP4     IF *AREG NOT STORE REGISTER                 REG      1324
           565  5170000631 +                      SA7    LFPA        SAVE *FP* NO.                               REG      1325
                          6130000000 X            SB3    RG=LOAD                                                 REG      1326
           566  0100001051 +                      RJ     SFR         GET A LOAD REGISTER                         REG      1327
           567  0307000570 +                      ZR     X7,LFP2     IF *A* AVAILABLE                            REG      1328
                          0100000730 +            RJ     RUT                                                     REG      1329
           570  5112000010 X             LFP2     SA1    B2+REGFILE+REG.X-REG.A                                  REG      1330
                          43011                   MX0    L.RUSE                                                  REG      1331
                               15210              BX2    -X0*X1                                                  REG      1332
           571  0302000574 +                      ZR     X2,LFP3     IF *X* REGISTER AVAILABLE                   REG      1333
                          6122000010              SB2    B2+REG.X-REG.A                                          REG      1334
           572  0100000730 +                      RJ     RUT                                                     REG      1335
           573  6122777767                        SB2    B2-REG.X+REG.A                                          REG      1336
           574  5120000631 +             LFP3     SA2    LFPA                                                    REG      1337
                          20603                   LX6    3           =R00                                        REG      1338
                               10722              BX7    X2                                                      REG      1339
           575  7206000000 X             LFP4     SX0    X6+SA=AK                                                REG      1340
                          0317000577 +            NZ     X7,LFP5     IF NOT 1ST *FP*                             REG      1341
           576  7206000000 X                      SX0    X6+SA=AB                                                REG      1342
           577  20714                    LFP5     LX7    P.LBIAS                                                 REG      1343
                     10366                        BX3    X6                                                      REG      1344
                          20055                   LX0    P.LI15                                                  REG      1345
                               36707              IX7    X0+X7                                                   REG      1346
           600  6120000601 +                      WCODE  X7          SAI = A0+FP                                 REG      1347
                                                                                                                 REG      1348
                                        *         NOW OUTPUT LOAD OF ACTUAL ADDRESS VIA A *B* SET.               REG      1349
                                                                                                                 REG      1350
           601  63630                             SB6    X3          SAVE ADDRESS FUNCTION REGISTER              REG      1351
                     0100000317 +                 RJ     CLT         CHECK FOR LCM/ECS TAG                       REG      1352
           602  0313000620 +                      NZ     X3,LFP8     IF NOT LCM OR ECS TAG                       REG      1353
                          76660                   SX6    B6          (R00)                                       REG      1354
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    28
                                                                      LFP 
  
                               21606              AX6    6           (00R)                                       REG      1355
           603  5160000632 +                      SA6    FPREG       SAVE FORMAL PARAMETER REGISTER              REG      1356
                          63760                   SB7    X6                                                      REG      1357
           604  0100000702 +                      RJ     RLL         LOCK FORMAL PARAMETER REGISTER              REG      1358
           605  6130000000 X                      =B3    =XRG=SET                                                REG      1359
                          0100000436 +            RJ     GNR         GET NEXT SET REGISTER                       REG      1360
           606  20603                             LX6    3           (R00) SET REGISTER                          REG      1361
                     5130000632 +                 SA3    FPREG                                                   REG      1362
                               63730              SB7    X3          (00R)                                       REG      1363
           607  0100000707 +                      RJ     RUL         UNLOCK FORMAL PARAMETER REGISTER            REG      1364
           610  5130000000 X                      SA3    =XAFREG     (0TR) ADDRESS FUNCTION REGISTER             REG      1365
                          10233                   BX2    X3                                                      REG      1366
                               43071              MX0    -3                                                      REG      1367
           611  15220                             BX2    -X0*X2      EXTRACT REGISTER                            REG      1368
                     20203                        LX2    3                                                       REG      1369
                          43052                   MX0    -L.2BIAS                                                REG      1370
                               36662              IX6    X6+X2                                                   REG      1371
           612  21530                             AX5    P.2BIAS                                                 REG      1372
                     21303                        AX3    3                                                       REG      1373
                          15250                   BX2    -X0*X5      BIAS ON TAG                                 REG      1374
           613  0303000616 +                      ZR     X3,LFP7     IF IN *B* REGISTER                          REG      1375
                          7170000000 X            SX7    =XSX=XK                                                 REG      1376
           614  0312000625 +                      NZ     X2,LFP10    IF NOT *0* BIAS                             REG      1377
                          7170000000 X            SX7    =XSX=XB                                                 REG      1378
           615  0400000625 +                      EQ     LFP10                                                   REG      1379
                                                                                                                 REG      1380
           616  7170000000 X             LFP7     SX7    SX=BK                                                   REG      1381
                          0312000625 +            NZ     X2,LFP10    IF NOT *0* BIAS                             REG      1382
           617  7170000000 X                      SX7    =XSX=BB                                                 REG      1383
                          0400000625 +            EQ     LFP10                                                   REG      1384
                                                                                                                 REG      1385
           620  6130000000 X             LFP8     =B3    RG=BADR                                                 REG      1386
                          0100001051 +            RJ     SFR         GET NEXT *B* REGISTER                       REG      1387
           621  20603                             LX6    3                                                       REG      1388
                     76360                        SX3    B6                                                      REG      1389
                          21303                   AX3    3                                                       REG      1390
                               43052              MX0    -L.2BIAS                                                REG      1391
           622  36663                             IX6    X6+X3                                                   REG      1392
                     21530                        AX5    P.2BIAS                                                 REG      1393
                          7170000000 X            SX7    SB=XK                                                   REG      1394
           623  15250                             BX2    -X0*X5      BIAS ON TAG                                 REG      1395
                     0312000625 +                 NZ     X2,LFP10    IF NOT *0* BIAS                             REG      1396
           624  7170000000 X                      SX7    SB=XB                                                   REG      1397
           625  12667                    LFP10    BX6    X6+X7                                                   REG      1398
                     20214                        LX2    P.LBIAS                                                 REG      1399
                          20655                   LX6    P.LI15      OP-CODE + REGISTERS                         REG      1400
                               36726              IX7    X2+X6       ADD IN OP-CODE                              REG      1401
           626  66520                             SB5    B2                                                      REG      1402
           627  6120000630 +                      WCODE  X7                                                      REG      1403
           630  66250                             SB2    B5                                                      REG      1404
                     0400000561 +                 EQ     EXIT.                                                   REG      1405
                                                                                                                 REG      1406
           631  00000000000000000000     LFPA     DATA   0           SAVE *B2*                                   REG      1407
           632  00000000000000000000     FPREG    DATA   0           FORMAL PARAMETER REGISTER                   REG      1408
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    29
                                                                      LSC 
  
                                        **        LSC - LOAD SHORT CONSTANT.                                     REG      1410
                                        *                                                                        REG      1411
                                        *         ENTRY  (B3) = TYPE OF LOAD.                                    REG      1412
                                        *                (B4) = PARSED FILE ADDRESS FOR CURRENT TURPLE.          REG      1413
                                        *                (X1) = TT.SCR FORM OF TAG TO BE LOADED.                 REG      1414
                                        *                (X5) = TAG TO BE LOADED.                                REG      1415
                                        *                                                                        REG      1416
                                        *         EXIT   (B2) = REGISTER - (0TR)                                 REG      1417
                                        *                (B6) = STATUS WORD FOR TAG.                             REG      1418
                                        *                (X6) = REGISTER (0R0)                                   REG      1419
                                        *                                                                        REG      1420
                                        *         USES    ALL REGISTERS EXCEPT A0,A4 B4                          REG      1421
                                        *                                                                        REG      1422
                                        *         CALLS  ASR,GNR,WCODE                                           REG      1423
                                                                                                                 REG      1424
           633  0400400633 +             LSC      SUBR               ENTRY/EXIT...                               REG      1425
           634  56240                             =A2    B4+OR.OPR                                               REG      1426
                     10611                        BX6    X1                                                      REG      1427
                          76730                   SX7    B3          TYPE OF LOAD                                REG      1428
           635  5130000000 X                      SA3    RREG                                                    REG      1429
                          5160000672 +            SA6    LSCA                                                    REG      1430
           636  54761                             =A7    A6+1                                                    REG      1431
                     0323000644 +                 PL     X3,LSC10    IF REGISTER ALREADY ASSIGNED                REG      1432
           637  6272777765                        SB7    X2-O.=                                                  REG      1433
                          0570000642 +            NZ     B7,LSC5     IF NOT PROCESSING *=* TURPLE                REG      1434
           640  0100000016 +                      RJ     ASR         ASSIGN STORAGE REGISTER                     REG      1435
           641  0400000645 +                      EQ     LSC20                                                   REG      1436
                                                                                                                 REG      1437
           642  6272777734               LSC5     SB7    X2-O.DOB                                                REG      1438
                          0570000644 +            NZ     B7,LSC10    IF NOT PROCESSING DO-BEGIN                  REG      1439
           643  7160000026                        SX6    R.X6-RGFILE USE *X6*                                    REG      1440
                          54630                   SA6    A3                                                      REG      1441
                                                                                                                 REG      1442
           644  0100000436 +             LSC10    RJ     GNR         GET REGISTER                                REG      1443
                                                                                                                 REG      1444
           645  10766                    LSC20    BX7    X6                                                      REG      1445
                     5130000673 +                 SA3    LSCA+1                                                  REG      1446
                               20703              LX7    3                                                       REG      1447
           646  55231                             =A2    A3-1                                                    REG      1448
                     6170000000 X                 SB7    RG=BADR                                                 REG      1449
                               67707              SB7    -B7                                                     REG      1450
           647  63737                             SB7    X3+B7                                                   REG      1451
                     21252                        AX2    P.SHC                                                   REG      1452
                          7217000000 X            SX1    X7+SX=BK                                                REG      1453
           650  0570000651 +                      NZ     B7,LSC21    IF NOT *B* REGISTER LOAD                    REG      1454
                          7217000000 X            SX1    X7+SB=BK                                                REG      1455
           651  43052                    LSC21    MX0    -L.LBIAS                                                REG      1456
                     15220                        BX2    -X0*X2                                                  REG      1457
                          0312000660 +            NZ     X2,LSC25    IF NOT CONSTANT OF*0*                       REG      1458
           652  7217000000 X                      =X1    X7+SB=BB                                                REG      1459
                          0470000666 +            ZR     B7,LSC30    IF *B* REGISTER LOAD                        REG      1460
                                                                                                                 REG      1461
                                        *         CONSTANT LOAD OF *0*. CHECK FOR MASK TYPE CONSTANT.            REG      1462
                                                                                                                 REG      1463
           653  10355                             BX3    X5                                                      REG      1464
                     43066                        MX0    -L.MSHORT                                               REG      1465
                          7217000000 X            SX1    X7+FMASK                                                REG      1466
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    30
                                                                      LSC 
  
           654  21330                             AX3    P.MSHORT                                                REG      1467
                     15030                        BX0    -X0*X3                                                  REG      1468
                          36110                   IX1    X1+X0                                                   REG      1469
                               22306              LX3    X6                                                      REG      1470
           655  0310000666 +                      NZ     X0,LSC30    IF MASK TYPE CONSTANT                       REG      1471
                                                                                                                 REG      1472
                                        *         *0* CONSTANT. COMPILE (BXI   XI-XI)                            REG      1473
                                                                                                                 REG      1474
                          7217000000 X            SX1    X7+XOR      OP-CODE + I00                               REG      1475
           656  21303                             AX3    3           =00I                                        REG      1476
                     36716                        IX7    X1+X6       OP-CODE + II0                               REG      1477
                          36173                   IX1    X7+X3       OP-CODE + III                               REG      1478
           657  0400000666 +                      EQ     LSC30                                                   REG      1479
                                                                                                                 REG      1480
                                        *         (X1) = INSTRUCTION.                                            REG      1481
                                        *         (X2) = CONSTANT                                                REG      1482
                                        *         (X5) = TAG.                                                    REG      1483
                                        *         (X6) = REGISTER TO USE (0TR)                                   REG      1484
                                        *         (X7) = REGISTER TO USE (R00)                                   REG      1485
                                                                                                                 REG      1486
           660  43071                    LSC25    MX0    -L.MODE                                                 REG      1487
                     73370                        SX3    X7                                                      REG      1488
                          20022                   LX0    P.2FPNO                                                 REG      1489
                               15050              BX0    -X0*X5      MODE BITS                                   REG      1490
           661  21022                             AX0    P.2FPNO                                                 REG      1491
                     6270777774                   SB7    X0-M.REAL                                               REG      1492
           662  0570000666 +                      NZ     B7,LSC30    IF NOT REAL CONSTANT                        REG      1493
                          20214                   LX2    P.LBIAS                                                 REG      1494
                               20155              LX1    P.LI15                                                  REG      1495
           663  36712                             IX7    X1+X2                                                   REG      1496
                     66520                        SB5    B2                                                      REG      1497
           664  6120000665 +                      WCODE  X7                                                      REG      1498
           665  7213000052 X                      SX1    X3+LSHF+60-L.SHC                                        REG      1499
                          66250                   SB2    B5                                                      REG      1500
                               13222              BX2    0                                                       REG      1501
                                                                                                                 REG      1502
                                        *         (X1) = OP-CODE + REGISTER (RIGHT JUSTIFIED)                    REG      1503
                                        *         (X2) = CONSTANT.                                               REG      1504
                                        *         (B2) = REGISTER (0TR)                                          REG      1505
                                                                                                                 REG      1506
           666  20155                    LSC30    LX1    P.LI15                                                  REG      1507
                     66520                        SB5    B2                                                      REG      1508
                          20214                   LX2    P.LBIAS                                                 REG      1509
                               36712              IX7    X1+X2                                                   REG      1510
           667  6120000670 +             LSC35    WCODE  X7                                                      REG      1511
           670  76650                             SX6    B5                                                      REG      1512
                     43071                        MX0    -3                                                      REG      1513
                          66250                   SB2    B5                                                      REG      1514
                               15660              BX6    -X0*X6                                                  REG      1515
           671  20603                             LX6    3           =0R0                                        REG      1516
                     0400000633 +                 EQ     EXIT.                                                   REG      1517
                                                                                                                 REG      1518
                                                                                                                 REG      1519
           672  00000000000000000000     LSCA     DATA   0,0                                                     REG      1520
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    31
                                                                      LTG 
  
                                        **        LTG -  LOAD TAG                                                REG      1522
                                        *                                                                        REG      1523
                                        *         ENTRY  (B2) = 0 (LOAD UPPER HALF)                              REG      1524
                                        *                     = 1 (LOAD LOWER HALF)                              REG      1525
                                        *                (B3) = TYPE OF LOAD.                                    REG      1526
                                        *                (X5) = TAG TO BE LOADED.                                REG      1527
                                        *                                                                        REG      1528
                                        *         EXIT   (B2) = REGISTER (0TR)                                   REG      1529
                                        *                (B6) = STATUS WORD FOR TAG.                             REG      1530
                                        *                (X6) = REGISTER (0R0)                                   REG      1531
                                        *                                                                        REG      1532
                                        *         USES   ALL REGISTERS EXCEPT A0,A4 B4.                          REG      1533
                                        *                                                                        REG      1534
                                        *         CALLS  GNR,CLI                                                 REG      1535
                                                                                                                 REG      1536
                                                                                                                 REG      1537
           674  0400400674 +             LTG      SUBR               ENTRY/EXIT...                               REG      1538
           675  10611                             BX6    X1                                                      REG      1539
                     5160000701 +                 SA6    LTGA        SAVE TAG TO BE USED IN INSTRUCTION          REG      1540
           676  0100000436 +                      RJ     GNR         GET REGISTER                                REG      1541
           677  5110000701 +                      SA1    LTGA                                                    REG      1542
                          0100000122 +            RJ     CLI         COMPILE LOAD INSTRUCTION                    REG      1543
           700  0400000674 +                      EQ     EXIT.                                                   REG      1544
                                                                                                                 REG      1545
                                                                                                                 REG      1546
           701  00000000000000000000     LTGA     DATA   0                                                       REG      1547
                                                                                                                 REG      1548
  
  
  
  
                                        **        RLL -  LOCK REGISTER *X* AND *A* REGISTER.                     REG      1550
                                        *                                                                        REG      1551
                                        *         ENTRY  (B7) = REGISTER TO LOCK - 00R.                          REG      1552
                                        *                                                                        REG      1553
                                        *         EXIT   REGISTER LOCKED.                                        REG      1554
                                        *                (X7) = LOCK REGISTER - 00R.                             REG      1555
                                        *                                                                        REG      1556
                                        *         USES   A1,A2,A7  X0                                            REG      1557
                                        *         CANNOT DESTORY *X6*                                            REG      1558
                                                                                                                 REG      1559
                                                                                                                 REG      1560
           702  0400400702 +             RLL      SUBR               ENTRY/EXIT...                               REG      1561
           703  7100000400                        =X0    RLOCK                                                   REG      1562
                          5117000000 X            SA1    B7+REGX                                                 REG      1563
           704  12710                             BX7    X1+X0                                                   REG      1564
                     5127000000 X                 SA2    B7+REGA                                                 REG      1565
                               54710              SA7    A1          LOCK ON *X*                                 REG      1566
           705  12720                             BX7    X2+X0                                                   REG      1567
                     54720                        SA7    A2          LOCK ON *A*                                 REG      1568
                          76770                   SX7    B7          REGISTER = 00R.                             REG      1569
           706  0400000702 +                      EQ     EXIT.                                                   REG      1570
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    32
                                                                      RUL 
  
                                        **        RUL -  UNLOCK REGISTER *X* AND *A* REGISTER.                   REG      1572
                                        *                                                                        REG      1573
                                        *         ENTRY  (B7) = REGISTER TO UNLOCK - 00R.                        REG      1574
                                        *                                                                        REG      1575
                                        *         EXIT   REGISTER UNLOCKED.                                      REG      1576
                                        *                                                                        REG      1577
                                        *         USES   A1,A2,A7  X0                                            REG      1578
                                        *         CANNOT DESTORY *X6*                                            REG      1579
                                                                                                                 REG      1580
                                                                                                                 REG      1581
           707  0400400707 +             RUL      SUBR               ENTRY/EXIT...                               REG      1582
           710  7100000400                        =X0    RLOCK                                                   REG      1583
                          0770000707 +            LT     B7,EXIT.    IF NO REGISTER TO UNLOCK                    REG      1584
           711  5117000000 X                      SA1    B7+REGX                                                 REG      1585
                                                                                                                 REG      1586
                                        *         DO NOT TOUCH TEMP *X* REGISTER                                 REG      1587
                                                                                                                 REG      1588
                          43263                   MX2    -L.RUSE                                                 REG      1589
                               15712              BX7    -X2*X1      USE COUNT                                   REG      1590
           712  7120000777                        =X2    MAX.USEC                                                REG      1591
                          13272                   BX2    X7-X2                                                   REG      1592
           713  0302000714 +                      ZR     X2,RUL1     IF TEMP REGISTER                            REG      1593
                          15710                   BX7    -X0*X1                                                  REG      1594
                               54710              SA7    A1          CLEAR LOCK ON *X*                           REG      1595
           714  5127000000 X             RUL1     SA2    B7+REGA                                                 REG      1596
                          15720                   BX7    -X0*X2                                                  REG      1597
                               54720              SA7    A2          CLEAR LOCK ON *A*                           REG      1598
           715  0400000707 +                      EQ     EXIT.                                                   REG      1599
                                                                                                                 REG      1600
           716                     3     REGLK    BSS    3           LOCK REGISTER                               REG      1601
                                 717 +   CLOADK   EQU    REGLK+1     *K* PORTION                                 REG      1602
                                 720 +   CLOADJ   EQU    REGLK+2     *J* PORTION                                 REG      1603
           721                     1     STRGLK   BSS    1                                                       REG      1604
  
  
  
  
                                        **        RUT -  RESET USAGE TABLE FOR REGISTER BEING CLOBBERED.         REG      1606
                                        *                                                                        REG      1607
                                        *         ENTRY  (B2) = 0TR OF REGISTER BEING CLOBBERED.                 REG      1608
                                        *                                                                        REG      1609
                                        *         EXIT   (B2) = PRESERVED.                                       REG      1610
                                        *                (B3) = 00R (R FROM *B2*)                                REG      1611
                                        *                RGFILE, USEFILE CLEARED FOR (B2).                       REG      1612
                                        *                                                                        REG      1613
                                        *         USES   A1,A2,A3,A6,A7  X0  B3,B5,B7                            REG      1614
                                        *                DESTORYS (A5) BUT NOT (X5)                              REG      1615
                                        *                                                                        REG      1616
                                        *         (SCR2) FOR SAVING *X5*                                         REG      1617
                                        *                                                                        REG      1618
                                        *         CALLS  GST,SFR,DRITE,WCODE                                     REG      1619
                                                                                                                 REG      1620
                                                                                                                 REG      1621
           722  5150000773 +             RUTX     SA5    RUTA        RESTORE *X5*                                REG      1622
                          76650                   SX6    B5                                                      REG      1623
                               13777              BX7    0                                                       REG      1624
           723  66250                             SB2    B5          RESTORE*B2*                                 REG      1625
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    33
                                                                      RUT 
  
                     43071                        MX0    -3                                                      REG      1626
                                                                                                                 FCC1462X   13
                                        **        CLEAR REGFILE ENTRY.                                           FCC1462X   14
                                                                                                                 FCC1462X   15
                          6155777757              SB5    B5-REG.X                                                FCC1462X   16
           724  5112000000 X                      SA1    B2+=XREGFILE                                            FCC1462X   17
                          0750000727 +            MI     B5,RUT35    IF NOT X REG CLEAR ONE REG ONLY.            FCC1462X   18
           725  5125000000 X                      SA2    B5+REGA     FETCH CORESPONDING A REG.                   FCC1462X   19
                          13221                   BX2    X2-X1                                                   FCC1462X   20
                               21211              AX2    L.RUSE                                                  FCC1462X   21
           726  0312000727 +                      NZ     X2,RUT35    IF TAGS NOT EQUAL CLOBBER X REG ONLY.       FCC1462X   22
                          5072000000              SA7    A2+         CLOBBER A REG.                              FCC1462X   23
           727  15660                    RUT35    BX6    -X0*X6                                                  FCC1462X   24
                     54710                        SA7    A1          (B2+REGFILE) IS ALWAYS CLEARED.             FCC1462X   25
                          63360                   SB3    X6          =00R                                        REG      1630
                               20603              LX6    3           =0R0                                        REG      1631
                                                                                                                 REG      1632
           730  0400400730 +             RUT      SUBR   -           ENTRY/EXIT...                               REG      1633
           731  10755                             BX7    X5                                                      REG      1634
                     66520                        SB5    B2                                                      REG      1635
                          5170000773 +            SA7    RUTA                                                    REG      1636
           732  7160000722 +                      SX6    RUTX                                                    REG      1637
                          5152000000 X            SA5    B2+REGFILE                                              REG      1638
           733  5160000776 +                      SA6    RUT.ADR                                                 REG      1639
           734  10155                    RUT5     BX1    X5                                                      REG      1640
                     43073                        MX0    -1                                                      REG      1641
                          66700                   =B7    0           STATUS OF TAG ONLY                          REG      1642
                               21121              AX1    P.TYPE                                                  REG      1643
           735  15710                             BX7    -X0*X1                                                  REG      1644
                     63270                        SB2    X7          TAG TYPE (0 = UPPER HALF, 1 = LOWER HALF)   REG      1645
                          5170001001 +            SA7    RUT.TYP                                                 REG      1646
           736  0100000500 +                      RJ     GST         GET STATUS OF TAG                           REG      1647
           737  5120000776 +                      SA2    RUT.ADR                                                 REG      1648
                          63720                   SB7    X2                                                      REG      1649
           740  0520000741 +                      NZ     B2,RUT6     IF IN REGISTER                              REG      1650
                          0277000000              JP     B7                                                      REG      1651
                                                                                                                 REG      1652
                                                                                                                 REG      1653
                                        *         TAG IS ACTIVE, IF IT IS A SIMPLE TAG INDICATE IN REGISTER      REG      1654
                                        *         POINTER WORD THAT TAG IS NO LONGER IN A REGISTER - PUT TAG     REG      1655
                                        *         BACK IN TABLE FROM REGISTER FILE AND CLEAR REGISTER ENTRY      REG      1656
                                        *         FROM *0TR* ON ENTRY.                                           REG      1657
                                                                                                                 REG      1658
           741  5120001001 +             RUT6     SA2    RUT.TYP                                                 REG      1659
                          43073                   MX0    -1                                                      REG      1660
                               10755              BX7    X5                                                      REG      1661
           742  6232000017                        SB3    X2+P.2STAT                                              REG      1662
                          22030                   LX0    X0,B3                                                   REG      1663
                               11601              BX6    X0*X1       INDICATE TAG NOT IN REGISTER                REG      1664
           743  54610                             SA6    A1                                                      REG      1665
                     20762                        IFBIT  X7,INTR,RUT20                                           REG      1666
           744  0277000000                        JP     B7                                                      REG      1667
                                                                                                                 REG      1668
                                        *         FOUND INTERMEDIATE IN REGISTER -- MUST SAVE IN TEMPORARY       REG      1669
                                        *         (B2) = 0TR                                                     REG      1670
                                        *         (X5) = TAG                                                     REG      1671
                                                                                                                 REG      1672
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    34
                                                                      RUT 
  
                                        *RUT20    IFBIT  X2,ADDR/INTR,RUT30                                      REG      1673
           745                           RUT20    BSS    0                                                       REG      1674
                                                                                                                 REG      1675
                                         SNAP=H   IFNE   TEST                                                    REG      1676
                                                  SX6    3RRUT                                                   REG      1677
                                                  RJ     REGPRO                                                  REG      1678
                                         SNAP=H   ENDIF                                                          REG      1679
           745  20767                             IFBIT  X7,-2ARY/INTR,RUT25                                     REG      1680
                                                                                                                 REG      1681
                                        **        INTERMEDIATE IS ARY-LOD -- INDICATE POST-PROCESSING REQUIRED.  REG      1682
                                                                                                                 REG      1683
           746  0277000000                        JP     B7                                                      REG      1684
                                                                                                                 REG      1685
           747  7105777751               RUT25    SX0    B5-R.X6+RGFILE                                          REG      1686
                          10755                   BX7    X5                                                      REG      1687
                               66250              SB2    B5                                                      REG      1688
           750  0320000767 +                      PL     X0,RUT28    IF ALREADY IN STORE REGISTER                REG      1689
                          76650                   SX6    B5                                                      REG      1690
           751  6130000000 X                      SB3    RG=STOR                                                 REG      1691
                          5160001000 +            SA6    INT.REG     SAVE 0TR OF REGISTER BEING CLOBBERED        REG      1692
           752  5170000777 +                      SA7    INT.TAG                                                 REG      1693
                          0100001051 +            RJ     SFR         GET STORE REGISTER                          REG      1694
           753  66520                             SB5    B2                                                      REG      1695
                     0307000761 +                 ZR     X7,RUT27    IF REGISTER AVAILABLE                       REG      1696
                               13000              DRITE  DEACTIVATE                                              REG      1697
           755  5152000000 X                      SA5    B2+REGFILE                                              REG      1698
                          7170000761 +            SX7    RUT27                                                   REG      1699
           756  5170000776 +                      SA7    RUT.ADR     RESET JUMP ADDRESS                          REG      1700
                          0302000734 +            ZR     X2,RUT5     IF REGISTER NOT FREED                       REG      1701
           757  43063                             MX0    -L.RUSE                                                 REG      1702
                     66520                        SB5    B2                                                      REG      1703
                          15250                   BX2    -X0*X5                                                  REG      1704
           760  0312000734 +                      NZ     X2,RUT5     IF NOT LAST USE OF REGISTER                 REG      1705
                                                                                                                 REG      1706
                                        **        TRANSFER INTERMEDIATE TO STORE REGISTER.                       REG      1707
                                                                                                                 REG      1708
           761  76650                    RUT27    SX6    B5          0TR *I* REGISTER                            REG      1709
                     43071                        MX0    -3                                                      REG      1710
                          5110001000 +            SA1    INT.REG     0TR *J* REGISTER                            REG      1711
           762  15260                             BX2    -X0*X6                                                  REG      1712
                     15710                        BX7    -X0*X1                                                  REG      1713
                          20203                   LX2    3                                                       REG      1714
                               36772              IX7    X7+X2                                                   REG      1715
           763  7277000000 X                      SX7    X7+XMITS3                                               REG      1716
                          20760                   LX7    P.LI15+3                                                REG      1717
           764  6120000765 +                      WCODE  X7                                                      REG      1718
           765  6170000722 +                      SB7    RUTX                                                    REG      1719
                          5120001000 +            SA2    INT.REG                                                 REG      1720
           766  66250                             SB2    B5                                                      REG      1721
                     5150000777 +                 SA5    INT.TAG                                                 REG      1722
                               63520              SB5    X2                                                      REG      1723
                                                                                                                 REG      1724
                                        **        STORE INTERMEDIATE IN TEMPORARY.                               REG      1725
                                        *         (X5) = INTERMEDIATE TAG.                                       REG      1726
                                        *         (B2) = 0TR OF STORE REGISTER.                                  REG      1727
                                                                                                                 REG      1728
           767  76650                    RUT28    SX6    B5                                                      REG      1729
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    35
                                                                      RUT 
  
                     76770                        SX7    B7                                                      REG      1730
                          5160000774 +            SA6    RUTA+1                                                  REG      1731
           770  5170000776 +                      SA7    RUT.ADR                                                 REG      1732
                          0100000366 +            RJ     CWI         STORE INTERMEDIATE IN TEMPORARY             REG      1733
           771  5110000774 +                      SA1    RUTA+1                                                  REG      1734
                          5120000776 +            SA2    RUT.ADR                                                 REG      1735
           772  63510                             SB5    X1                                                      REG      1736
                     63720                        SB7    X2                                                      REG      1737
                          0277000000              JP     B7                                                      REG      1738
                                                                                                                 REG      1739
           773                     3     RUTA     BSS    3           RUT SCRATCH                                 REG      1740
           776  00000000000000000000     RUT.ADR  DATA   0                                                       REG      1741
           777  00000000000000000000     INT.TAG  DATA   0           INTERMEDIATE TAG                            REG      1742
          1000  00000000000000000000     INT.REG  DATA   0           0TR OF REGISTER INTERMEDIATE IS IN          REG      1743
          1001  00000000000000000000     RUT.TYP  DATA   0           TYPE OF TAG                                 REG      1744
  
  
  
  
                                        **        SDS -  SET DELAYED STORE IN MOTION.                            REG      1746
                                        *                                                                        REG      1747
                                        *         ENTRY  (B3) = REGISTER NUMBER FOR RIGHT MEMBER RESULTS = 0TR.  REG      1748
                                        *                       MUST INDICATE EITHER *X6* OR *X7*                REG      1749
                                        *                (X1) = TAG FOR LEFT MEMBER.                             REG      1750
                                        *                                                                        REG      1751
                                        *         NOTE --                                                        REG      1752
                                        *         IF CURRENT TAG BEING SET IS SAME AS *DRITE*, *DRITE* IS IGNORE REG      1753
                                        *                                                                        REG      1754
                                        *         EXIT   TAG FOR LEFT MEMBER SET INTO *RGFILE* *X* ASSOCIATE     REG      1755
                                        *                (DRITE) = - 0TR. FOR LEFT MEMBER IF ALREADY IN *A* REG  REG      1756
                                        *                            TAG, IF NOT IN AN *A* REGISTER.             REG      1757
                                        *                                                                        REG      1758
                                        *         USES   A1,A2,A3,A5,A6,A7  X0  B2,B3,B5,B7                      REG      1759
                                        *                (SDSA,SDSA+1)                                           REG      1760
                                        *                                                                        REG      1761
                                        *         CALLS  DRITE,GST,SST,SFR,WCODE                                 REG      1762
                                                                                                                 REG      1763
                                                                                                                 REG      1764
          1002  5120001045 +             SDSX     SA2    SDSA                                                    REG      1765
                          43071                   MX0    -3                                                      REG      1766
                               46000              NO                                                             REG      1767
          1003  15620                             BX6    -X0*X2                                                  REG      1768
                     63220                        SB2    X2                                                      REG      1769
                          20603                   LX6    3                                                       REG      1770
                                                                                                                 REG      1771
                                                                                                                 REG      1772
          1004  0400401004 +             SDS      SUBR   -                                                       REG      1773
          1005  76730                             SX7    B3                                                      REG      1774
                     76020                        SX0   B2                                                       REG      1775
                          5130000000 X            SA3    DRITE                                                   REG      1776
          1006  10655                             BX6    X5                                                      REG      1777
                     20021                        LX0    P.TYPE                                                  REG      1778
                          5170001045 +            SA7    SDSA        SAVE REGISTER                               REG      1779
          1007  12550                             BX5    X5+X0                                                   REG      1780
                     13053                        BX0    X5-X3                                                   REG      1781
                          54671                   =A6    A7+1        SAVE REGISTER                               REG      1782
                               21021              AX0    P.TYPE                                                  REG      1783
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    36
                                                                      SDS 
  
          1010  66620                             SB6    B2                                                      REG      1784
                     0300001013 +                 ZR     X0,SDS10    IF CURRENT TAG ALREADY DELAYED- IGNORE OLD  REG      1785
          1011  0303001013 +                      ZR     X3,SDS10    IF NO *DRITE*                               REG      1786
                          13000                   DRITE  DEACTIVATE  FORCE PROCESSING OF ANY DELAYED STORE       REG      1787
                                                                                                                 REG      1788
                                        *         (X6) = TAG CURRENTLY PROCESSING.                               REG      1789
                                                                                                                 REG      1790
          1013  66260                    SDS10    SB2    B6                                                      REG      1791
                     66700                        =B7    0           STATUS OF TAG ONLY                          REG      1792
                          0100000500 +            RJ     GST         GET STATUS OF TAG                           REG      1793
          1014  43071                             MX0    -3                                                      REG      1794
                     7130000010                   =X3    REG.A-RGFILE                                            REG      1795
                               11605              BX6    X0*X5                                                   REG      1796
          1015  76220                             SX2    B2                                                      REG      1797
                     0420001022 +                 ZR     B2,SDS15    IF TAG NOT IN REGISTER                      REG      1798
                               11732              BX7    X3*X2                                                   REG      1799
          1016  43373                             MX3    -1                                                      REG      1800
                     6176000017                   SB7    B6+P.2STAT                                              REG      1801
                               22373              LX3    X3,B7                                                   REG      1802
          1017  0307001021 +                      ZR     X7,SDS12    IF NOT IN *A* REGISTER                      REG      1803
                          76700                   =X7    0                                                       REG      1804
                               15220              BX2    -X0*X2      =00R (LEFT MEMBER)                          REG      1805
          1020  6122000010                        SB2    B2+REG.X-REG.A                                          REG      1806
                          36662                   IX6    X6+X2                                                   REG      1807
                                                                                                                 REG      1808
          1021  5172000000 X             SDS12    SA7    B2+REGFILE  CLEAR REGISTER FILE                         REG      1809
                          11731                   BX7    X3*X1       CLEAR STATUS OF TAG                         REG      1810
                               54710              SA7    A1                                                      REG      1811
          1022  5120001045 +             SDS15    SA2    SDSA        *X* REGISTER FOR LEFT MEMBER                REG      1812
                          5160000000 X            SA6    DRITE       SET DRITE IN MOTION                         REG      1813
          1023  63220                             SB2    X2                                                      REG      1814
                     15620                        BX6    -X0*X2                                                  REG      1815
                          43363                   MX3    -L.RUSE                                                 REG      1816
                               20603              LX6    3           =0R0 (RIGHT MEMBER)                         REG      1817
          1024  5122000000 X                      SA2    B2+REGFILE                                              REG      1818
                          11031                   BX0    X3*X1       CLEAR USE COUNT                             REG      1819
                               15723              BX7    -X3*X2      USE COUNT (RIGHT MEMBER)                    REG      1820
          1025  36606                             IX6    X0+X6                                                   REG      1821
                     76060                        SX0    B6                                                      REG      1822
                          66360                   SB3    B6                                                      REG      1823
                               20030              LX0    P.2BIAS                                                 REG      1824
          1026  36660                             IX6    X6+X0                                                   REG      1825
                     54661                        =A6    A6+1                                                    REG      1826
                          54761                   =A7    A6+1                                                    REG      1827
          1027  0317001031 +                      NZ     X7,SDS20    IF NOT LAST USE OF RIGHT MEMBER             REG      1828
                          0100001075 +            RJ     SST         SET STATUS OF TAG (LEFT MEMBER)             REG      1829
          1030  0400001002 +                      EQ     SDSX                                                    REG      1830
                                                                                                                 REG      1831
          1031  10722                    SDS20    BX7    X2                                                      REG      1832
                     76010                        =X0    1                                                       REG      1833
                          54761                   =A7    A6+1                                                    REG      1834
                               37250              IX2    X5-X0       USE COUNT - 1 (LEFT MEMBER)                 REG      1835
          1032  15023                             BX0    -X3*X2                                                  REG      1837
                     5120000553 +                 SA2    =XGSTC      REMEMBER LOCATION OF STATUS WORD            FCC1208    23
                               10722              BX7    X2                                                      FCC1208    24
          1033  0300001002 +                      ZR     X0,SDSX     IF LAST USE OF LEFT MEMBER                  REG      1838
                          5170001046 +            SA7    SDSA+1                                                  REG      1839
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    37
                                                                      SDS 
  
          1034  6130000000 X                      SB3    RG=LODX                                                 REG      1840
                          0100001051 +            RJ     SFR                                                     REG      1841
          1035  0317001002 +                      NZ     X7,SDSX     IF *X* REGISTER NOT AVAILABLE               REG      1842
                          5110001045 +            SA1    SDSA        =0TR) (RIGHT MEMBER)                        REG      1843
          1036  43071                             MX0    -3                                                      REG      1844
                     7236000000 X                 SX3    X6+XMITS3                                               REG      1845
                               15110              BX1    -X0*X1      =00R                                        REG      1846
          1037  66520                             SB5    B2                                                      REG      1847
                     36731                        IX7    X3+X1                                                   REG      1848
                          20760                   LX7    P.LI15+3                                                REG      1849
          1040  6120001041 +                      WCODE  X7                                                      REG      1850
          1041  5120001046 +                      SA2    SDSA+1                                                  REG      1851
                          66250                   SB2    B5                                                      REG      1852
                               63720              SB7    X2          ORDINAL IN TABLE OF STATUS WORD             FCC1208    25
          1042  21222                             AX2    18                                                      FCC1208    26
                     53220                        SA2    X2          FETCH ORIGIN OF TABLE                       FCC1208    27
                          53127                   SA1    X2+B7                                                   FCC1208    28
                               66360              SB3    B6                                                      REG      1854
          1043  0100001075 +                      RJ     SST         SET STATUS OF TAG                           REG      1855
          1044  0400001002 +                      EQ     SDSX                                                    REG      1856
                                                                                                                 REG      1857
          1045  00000000000000000000     SDSA     DATA   0,0         SAVE REQUESTED REGISTER                     REG      1858
  
  
  
  
                                        **        SFR -  SCAN FOR REGISTER.                                      REG      1860
                                        *                                                                        REG      1861
                                        *         *SFR* SCANS THE REGISTER FILE FINDING THE LOWEST USE COUNT     REG      1862
                                        *         REGISTER AVAILABLE OF THE TYPE REQUESTED.  *SFR* MAKES A       REG      1863
                                        *         SPECIAL CASE WHEN *RREG* IS SET OR A LOAD REGISTER IS          REG      1864
                                        *         REQUESTED TO STOP *J* AND *K* FROM GETTING THE SAME REGISTER.  REG      1865
                                        *                                                                        REG      1866
                                        *         UPON EXIT *SFR* RESTORES THE REGISTER SCAN WORD REPOSITIONED   REG      1867
                                        *         TO POINT TO THE NEXT REGISTER TO START SCANNING.               REG      1868
                                        *         (ALL REGISTER SCAN WORDS ARED DEFINED TO BE USED CYCLICALLY).  REG      1869
                                        *                                                                        REG      1870
                                        *         ENTRY  (B3) = RG=XXXX, TYPE OF REGISTER.                       REG      1871
                                        *                                                                        REG      1872
                                        *         EXIT   (B2) = 0TR, OF REGISTER FOUND.                          REG      1873
                                        *                (B3) = PRESERVED                                        REG      1874
                                        *                (X6) = 0R0.                                             REG      1875
                                        *                (X7) = USE COUNT                                        REG      1876
                                        *                                                                        REG      1877
                                        *         USES   A1,A2,A3  X0,X6,X7  B2,B3,B5,B7                         REG      1878
                                        *                (SCR2 FOR SAVING *X5*)                                  REG      1879
                                                                                                                 REG      1880
                                                                                                                 REG      1881
          1047  10622                    SFRX     BX6    X2                                                      REG      1882
                     76320                        SX3    B2                                                      REG      1883
                          43071                   MX0    -3                                                      REG      1884
                               56631              =A6    B3+1        RESET REGISTER SKELETON WORD                REG      1885
          1050  5150001074 +                      SA5    SFRA        RESTORE *X5*                                REG      1886
                          15630                   BX6    -X0*X3                                                  REG      1887
                               20603              LX6    3                                                       REG      1888
                                                                                                                 REG      1894
          1051  0400401051 +             SFR      SUBR   -           ENTRY/EXIT...                               REG      1895
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    38
                                                                      SFR 
  
          1052  56130                             SA1    B3                                                      REG      1896
                     13666                        BX6    0                                                       REG      1897
                          5120000000 X            SA2    RREG                                                    REG      1898
          1053  21122                             AX1    P.RGNUM                                                 REG      1899
                     14722                        BX7    -X2                                                     REG      1900
                          5160000000 X            SA6    RGX                                                     REG      1901
          1054  0332001060 +                      MI     X2,SFR5     IF NO HARD REGISTER                         REG      1902
                          43063                   MX0    -L.RUSE                                                 REG      1903
                               54720              SA7    A2                                                      REG      1904
          1055  63220                             SB2    X2                                                      REG      1905
                     43171                        MX1    -3                                                      REG      1906
                          15621                   BX6    -X1*X2                                                  REG      1907
          1056  5132000000 X                      SA3    B2+REGFILE                                              REG      1908
                          20603                   LX6    3           =0R0                                        REG      1909
                               15730              BX7    -X0*X3      USE COUNT FOR HARD REGISTER                 REG      1910
          1057  0400001051 +                      EQ     EXIT.                                                   REG      1911
                                                                                                                 REG      1912
          1060  63710                    SFR5     SB7    X1          NUMBER OF REGISTERS                         REG      1913
                     43301                        MX3    1                                                       REG      1914
                          10755                   BX7    X5                                                      REG      1915
                               21122              AX1    L.RGMSK     MASK COUNT                                  REG      1916
          1061  7150000400                        SX5    RLOCK                                                   REG      1917
                          5170001074 +            SA7    SFRA                                                    REG      1918
          1062  6251777776                        SB5    X1-1        LENGTH OF MASK - 1                          REG      1919
                          23053                   AX0    B5,X3       FORM MASK FOR REGISTER WORD                 REG      1920
                               54211              =A2    A1+1        LOAD REGISTER SKELETON WORD                 REG      1921
          1063  66551                             =B5    B5+1        RESTORE LENGTH                              REG      1922
                     22050                        LX0    B5,X0       SHIFT MASK TO LOW ORDER                     REG      1923
                          43163                   MX1    -L.RUSE                                                 REG      1924
                               22252              LX2    B5,X2       NEXT REGISTER ORDINAL                       REG      1925
          1064  11602                             BX6    X0*X2                                                   REG      1926
                     5236000000 X                 SA3    X6+REGFILE                                              REG      1927
                               15131              BX1    -X1*X3      EXTRACT USE COUNT                           REG      1928
                                                                                                                 REG      1929
          1065  63260                    SFR10    SB2    X6                                                      REG      1930
                     10711                        BX7    X1                                                      REG      1931
                          0307001047 +            ZR     X7,SFRX     IF REGISTER FREE                            REG      1932
                                                                                                                 REG      1933
          1066  0470001047 +             SFR12    ZR     B7,SFRX     IF FINISHED                                 REG      1934
                          11602                   BX6    X0*X2       NEXT REGISTER ORDINAL                       REG      1935
                               43163              MX1    -L.RUSE                                                 REG      1936
          1067  5236000000 X                      SA3    X6+REGFILE                                              REG      1937
                          15131                   BX1    -X1*X3      EXTRACT USE COUNT                           REG      1938
                               37317              IX3    X1-X7                                                   REG      1939
          1070  0333001065 +                      NG     X3,SFR10    IF NEW LOW                                  REG      1940
                          67771                   =B7    B7-1                                                    REG      1941
                               22252              LX2    X2,B5       SHIFT REGISTER WORD FOR NEXT ORDINAL        REG      1942
          1071  5236000000 X                      SA3    X6+REGFILE                                              REG      1943
                          37115                   IX1    X1-X5                                                   REG      1944
                               20362              IFBIT  X3,INTR,SFR12                                           REG      1945
                          0321001066 +            PL     X1,SFR12    IF NOT NEW LOW (NON-INTERMEDIATE)           REG      1946
          1073  36515                             IX5    X1+X5                                                   REG      1947
                     54660                        SA6    A6                                                      REG      1948
                          0400001066 +            EQ     SFR12                                                   REG      1949
                                                                                                                 REG      1950
          1074                     1     SFRA     BSS    1                                                       REG      1951
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    39
                                                                      SST 
  
                                        **        SST - SET STATUS OF TAG.                                       REG      1953
                                        *                                                                        REG      1954
                                        *         ENTRY  (B2) = REGISTER (0TR)                                   REG      1955
                                        *                (B3) = TYPE OF LOAD.                                    REG      1956
                                        *                       0 = UPPER HALF OF TAG.                           REG      1957
                                        *                       1 = LOWER HALF OF TAG.                           REG      1958
                                        *                (A1) = STATUS WORD ADDRESS.                             REG      1959
                                        *                (X1) = STATUS WORD.                                     REG      1960
                                        *                                                                        REG      1961
                                        *         EXIT   STATUS BIT SET INDICATING TAG IN REGISTER + REGISTER.   REG      1962
                                        *                                                                        REG      1963
                                        *         USES   A1,A2,A3  X0,X7  B5,B7                                  REG      1964
                                        *                                                                        REG      1965
                                        *         CALLS  CLT                                                     REG      1966
                                                                                                                 REG      1967
                                                                                                                 REG      1968
          1075  0400401075 +             SST      SUBR               ENTRY/EXIT...                               REG      1969
          1076  5122000000 X                      SA2    B2+REGFILE                                              FCC2109    10
                          43063                   MX0    -L.RUSE                                                 FCC2109    11
          1077  7130000400                        SX3    RLOCK                                                   FCC2109    12
                          22702                   LX7    X2                                                      FCC2109    13
                               15220              BX2    -X0*X2      REGFILE USE COUNT                           FCC2109    14
          1100  0302001103 +                      ZR     X2,SST1     IF NO USE COUNT                             FCC2109    15
                          11332                   BX3    X3*X2       LOCK BIT EXTRACTION                         FCC2109    16
          1101  0313001103 +                      NZ     X3,SST1     IF LOCK BIT SET                             FCC2109    17
                          13357                   BX3    X5-X7                                                   FCC2109    18
                               21311              AX3    L.RUSE      ELIMINATE USE COUNT                         FCC2109    19
          1102  0313001103 +                      NZ     X3,SST1     IF TAGS NOT EQUAL DO NOTHING                FCC2109    20
                          11505                   BX5    X0*X5                                                   FCC2109    21
                               36552              IX5    X5+X2       ELSE RETAIN REGFILE USE COUNT               FCC2109    22
          1103  5123001122 +             SST1     SA2    B3+SST.STAT                                             FCC2109    23
                          76310                   =X3    1                                                       REG      1971
                               63720              SB7    X2                                                      REG      1972
          1104  22773                             LX7    X3,B7                                                   REG      1973
                     76020                        SX0    B2          0TR                                         REG      1974
                          21222                   AX2    18                                                      REG      1975
                               12117              BX1    X1+X7       INDICATE IN REGISTER                        REG      1976
          1105  43366                             MX3    -L.UREG                                                 REG      1977
                     63720                        SB7    X2                                                      REG      1978
                          22273                   LX2    X3,B7       POSITION MASK                               REG      1979
                               22770              LX7    X0,B7       POSITION REGISTER                           REG      1980
          1106  76330                             SX3    B3                                                      REG      1981
                     11121                        BX1    X2*X1                                                   REG      1982
                          20321                   LX3    P.TYPE                                                  REG      1983
                               36717              IX7    X1+X7                                                   REG      1984
          1107  12553                             BX5    X5+X3                                                   REG      1985
                     54710                        SA7    A1                                                      REG      1986
                          7130000010              SX3    REG.A-RGFILE                                            FCC1653X    7
          1110  5120000000 X                      SA2    UUC                                                     FCC1653X    8
                          11330                   BX3    X3*X0                                                   FCC1653X    9
                               37752              IX7    X5-X2                                                   FCC1653X   10
          1111  0303001117 +                      ZR     X3,SST4     IF NOT *A* REGISTER                         REG      1991
                                                                                                                 REG      1992
                                        *         AVOID *A* REGISTER IF LCM TAG                                  REG      1993
                                                                                                                 REG      1994
                                                                                                                 FCC1653X   11
                                         .DAL     IFEQ   .DAL,0                                                  FCC1653X   12
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    40
                                                                      SST 
  
                                                  BX2    X5                                                      FCC1653X   13
                                                  IFBIT  X2,-ADDR,SST7     IF NOT ADDRESS REFERENCE,TAG IN SCM   FCC1653X   14
                                         .DAL     ENDIF                                                          FCC1653X   15
                                                                                                                 FCC1653X   16
                          20122                   LX1    -P.2TAG                                                 FCC1653X   17
                               43067              MX0    -L.2TAG+L.PWF                                           REG      1996
          1112  20015                             LX0    L.PWF                                                   REG      1997
                     15010                        BX0    -X0*X1                                                  FCC1653X   18
                          20152                   LX1    P.2TAG                                                  FCC1653X   19
          1113  7200577777                        SX0    X0-C.SYM                                                REG      2000
                          0310001120 +            NZ     X0,SST7     IF NOT SYMBOL TAG                           REG      2001
          1114  22205                             LX2    X5          SAVE PARSED FILE OPERAND WORD ACROSS CLT    FCC1653X   20
                     10511                        BX5    X1          STATUS WORD TAG FORMAT IN X5 FOR CLT        FCC1653X   21
                          0100000317 +            RJ     CLT         CHECK FOR LCM TAG.                          FCC1653X   22
          1115  10522                             BX5    X2          RESTORE X5.                                 FCC1653X   23
                     0313001120 +                 NZ     X3,SST7     IF NOT LCM TAG                              REG      2003
          1116  5172777767 X                      SA7    B2+=XREGX-REG.A   SET REGFILE ENTRY (X-REG).            FCC1653X   24
                          0400001075 +            EQ     EXIT.                                                   REG      2006
                                                                                                                 REG      2007
          1117  5172000000 X             SST4     SA7    B2+REGFILE  TAG TO REGFILE                              REG      2008
                          0400001075 +            EQ     EXIT.                                                   REG      2009
                                                                                                                 REG      2010
          1120  5172000000 X             SST7     SA7    B2+REGFILE  TAG TO REGFILE                              REG      2011
                          5077000010              SA7    A7+REG.X-REG.A    TAG TO ASSOCIATE *X* REGISTER         REG      2012
          1121  0400001075 +                      EQ     EXIT.                                                   REG      2013
                                                                                                                 REG      2014
                                                                                                                 REG      2015
          1122  00000000000000000017     SST.STAT VFD    24/0,18/P.UREG,18/P.USTAT                               REG      2016
          1123  00000000000006000020              VFD    24/0,18/P.LREG,18/P.LSTAT                               REG      2017
                                                  LIST   D                                                       REG      2018
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        RG=SET
             0 X                        SX=BKS3 
             0 X                        IADD
             0 X                        LCMW
             0 X                        LCMR
             0 X                        SX=XKS3 
             0 X                        TA.NAM
             0 X                        SA=BK 
             0 X                        TT.USE
             0 X                        TT=USE
             0 X                        TS.BLK
             0 X                        AFREG 
             0 X                        SX=XK 
             0 X                        SX=XB 
             0 X                        SX=BB 
  
          1124                                    END                                                            REG      2019
  
                             55500B CM  STORAGE USED             3343 STATEMENTS      969 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.485 SECONDS         972 REFERENCES
  
  
  
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    41
        SYMBOLIC REFERENCE TABLE. 
  
        ABR             0   PROGRAM*        1/44 E    2/30 L
        AFREG           0   EXTERNAL*      28/11
        AIR             4   PROGRAM*        1/44 E    2/54 L
        AIR1           11   PROGRAM*        3/05      3/08 L
        ALREG           0   EXTERNAL*       2/03 X   27/20
        ASR            16   PROGRAM*        1/44 E    3/35 L   18/34     29/26
        ASRA           37   PROGRAM*        4/03 S    4/07      4/10 L
        ASR1           23   PROGRAM*        3/40      3/42 L
        ASR2           27   PROGRAM*        3/44      3/45      3/49 L
        ASR5           31   PROGRAM*        3/47      3/52 L
        CAR            40   PROGRAM*        1/43 E    4/22 L
        CAR5           42   PROGRAM*        4/25 L    4/28      4/30
        CDS            45   PROGRAM*        1/43 E    3/04      3/39      4/57 L    6/17     34/25     36/04
        CDSA           66   PROGRAM*        5/17 S    5/37      5/50 L
        CDS10          53   PROGRAM*        5/04      5/08      5/11      5/16 L
        CDS15          60   PROGRAM*        5/23      5/32 L
        CDS20          61   PROGRAM*        5/30      5/34 L
        CIA            70   PROGRAM*        1/43 E    6/16 L   16/20
        CIAA           67   PROGRAM*        6/12 E    6/14 L    6/33     16/19 S   16/22 S
        CIA1           74   PROGRAM*        6/22 L    6/31
        CIA2           75   PROGRAM*        6/20      6/25 L    6/34      6/43
        CIA3          102   PROGRAM*        6/32      6/40 L
        CIW           104   PROGRAM*        5/26      5/32      7/13 L
        CIWA          121   PROGRAM*        7/40 S    7/44      7/47 L
        CIW10         115   PROGRAM*        7/21      7/28      7/35 L
        CLI           122   PROGRAM*        1/44 E    4/06      7/43      8/12 L   31/22
        CLIA          274   PROGRAM*        9/43 S    9/48     11/04     14/16 L
        CLI10         146   PROGRAM*        9/21      9/23 L
        CLI10D        214   PROGRAM*       11/28     11/37 L
        CLI103        161   PROGRAM*       10/01     10/20 L
        CLI105        201   PROGRAM*       10/06     11/02 L
        CLI107        204   PROGRAM*       11/05     11/09 L
        CLI108        205   PROGRAM*       11/07     11/11 L
        CLI109        206   PROGRAM*        9/51     11/21 L
        CLI11         215   PROGRAM*       10/13     11/25     11/35     11/39 L
        CLI15         217   PROGRAM*        8/37     11/47 L
        CLI16         255   PROGRAM*       13/23     13/27 L
        CLI17         256   PROGRAM*       13/25     13/29 L
        CLI17A        257   PROGRAM*       13/08     13/35 L
        CLI18         262   PROGRAM*       12/10     13/47 L
        CLI18A        267   PROGRAM*        8/35     13/56     14/02 L
        CLI2          124   PROGRAM*        8/27 L
        CLI20         271   PROGRAM*       10/51     11/15     11/43     13/31     13/42     14/08 L
        CLI5          143   PROGRAM*        8/50      9/17 L
        CLI.B5        302   PROGRAM*        8/43 S    9/55     11/40     13/18     13/47
                                            9/06     10/46     12/07 S   13/39     14/23 L
        CLI.LR        303   PROGRAM*       12/14 S   13/21     13/35     14/24 L
        CLI.PR        304   PROGRAM*       10/24 S   10/27     10/36     12/21 S   12/29     12/54     13/19     14/25 L
        CLI.SR        305   PROGRAM*       10/31 S   10/37     12/33 S   12/55     14/26 L
        CLI.X0        275   PROGRAM*        8/56 S    9/10     14/18 L
        CLI.X1        276   PROGRAM*        8/45 S    9/46     12/01 S   12/34     13/51     14/19 L
        CLI.X3        277   PROGRAM*        8/47 S    9/57     11/21     12/03 S   13/48
                                            9/12     10/32     11/34     12/45     14/20 L
        CLI.X5        300   PROGRAM*        9/45 S    9/50     10/43     12/05 S   13/05     13/41     13/50     14/21 L
        CLI.X6        301   PROGRAM*        8/54 S    9/08     14/22 L
        CLOADJ        720   PROGRAM*        1/43 E   32/32 D
        CLOADK        717   PROGRAM*       32/31 D
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    42
        SYMBOLIC REFERENCE TABLE. 
  
        CLP           306   PROGRAM*        1/45 E   12/15     14/41 L
        CLPA          316   PROGRAM*       14/45 S   14/52     14/57 L
        CLT           317   PROGRAM*        1/45 E    9/47     12/09     15/14 L   27/55     40/14
        CLT2          324   PROGRAM*       15/21     15/25 L
        CO.TBK          0   EXTERNAL*       1/48 X   16/01
        CRJ           327   PROGRAM*        1/43 E   15/57 L
        CRJA          354   PROGRAM*       16/18 S   16/23     16/39 L
        CRJB          355   PROGRAM*       16/11 S   16/26     16/30     16/36 S   16/40 L
        CRJC          356   PROGRAM*       16/28     16/31     16/41 L
        CRJ2          333   PROGRAM*       16/06     16/08 L
        CRJ3          336   PROGRAM*       16/09     16/13 L
        CRJ4          337   PROGRAM*       16/05     16/07     16/16 L
        CRT           357   PROGRAM*       17/41 L   25/05
        CRTTAB          0   EXTERNAL*       2/07 X   17/48
        CWI           366   PROGRAM*        1/44 E   18/23 L   35/04
        CWI20         400   PROGRAM*       18/30     18/49 L
        C.SCR      100000   TSTEXT         26/40
        C.SYM      200000   TSTEXT         15/20     26/41     40/10
        C.TEM      320000   TSTEXT          8/33     22/36
        DIT           410   PROGRAM*        1/43 E   19/32 L
        DRITE           0   EXTERNAL*       1/51 X    5/01      5/34      7/14     35/50     36/30 S
        FMASK           0   EXTERNAL*       2/04 X   29/57
        FPREG         632   PROGRAM*       28/02 S   28/08     28/54 L
        GLN           421   PROGRAM*       15/25     20/11 L
        GLN2          426   PROGRAM*       20/27 L   20/34
        GLN6          431   PROGRAM*       20/25     20/36 L
        GLN8          433   PROGRAM*       20/31     20/42 L
        GLN9          435   PROGRAM*       20/42     20/48 L
        GNR           436   PROGRAM*        1/43 E   10/26     14/47     28/06     31/20
                                            9/01     12/28     21/19 L   29/34
        GNRA          451   PROGRAM*       21/26 S   21/28     21/41 L
        GNR2          442   PROGRAM*       21/24     21/26 L
        GNR5          444   PROGRAM*       21/21     21/30 L
        GNT           452   PROGRAM*        3/52     18/27     22/14 L
        GNT10         465   PROGRAM*       22/39     22/44 L
        GNT4          461   PROGRAM*       22/31     22/33 L
        GNT5          462   PROGRAM*       22/32     22/35 L
        GPT           470   PROGRAM*       14/42     23/09 L
        GST           500   PROGRAM*        1/43 E   24/03 L   33/32     36/10
        GSTA          547   PROGRAM*       24/05 S   25/03     26/04     26/08 L
        GSTC          553   PROGRAM*       24/36 S   26/12 E   26/13 L   36/54
        GSTX          477   PROGRAM*       23/56 L   25/04     25/10     25/16     26/03     26/06
        GST10         531   PROGRAM*       25/06     25/13     25/22 L
        GST11         535   PROGRAM*       25/23     25/39 L
        GST12         542   PROGRAM*       25/37     25/45     25/50     25/52 L
        GST5          504   PROGRAM*       24/16 L
        GST6          516   PROGRAM*       24/46     24/48 L
        GST7          522   PROGRAM*       24/48     24/57 L
        GST8          523   PROGRAM*       24/52     24/56     25/03 L
        GST.INTR      556   PROGRAM*       26/39 L
        GST.SCR       557   PROGRAM*       26/40 L
        GST.STAT      554   PROGRAM*       24/17     26/15 L
        GST.SYM       560   PROGRAM*       26/41 L
        GST.TBL       556   PROGRAM*       24/16     26/38 L
        IADD            0   EXTERNAL*      10/38     12/56
        INT.REG      1000   PROGRAM*       34/20 S   34/39     34/48     35/14 L
        INT.TAG       777   PROGRAM*       34/21 S   34/50     35/13 L
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        I.CALL          1   TSTEXT         16/13
        I.RJ            2   TSTEXT         16/03
        LCMR            0   EXTERNAL*      11/09     13/27
        LCMW            0   EXTERNAL*      11/06     13/24
        LFP           561   PROGRAM*        1/44 E   27/19 L
        LFPA          631   PROGRAM*       27/28 S   27/40     28/53 L
        LFP10         625   PROGRAM*       28/23     28/25     28/28     28/30     28/42     28/44 L
        LFP2          570   PROGRAM*       27/31     27/33 L
        LFP3          574   PROGRAM*       27/36     27/40 L
        LFP4          575   PROGRAM*       27/27     27/43 L
        LFP5          577   PROGRAM*       27/44     27/46 L
        LFP7          616   PROGRAM*       28/21     28/27 L
        LFP8          620   PROGRAM*       27/56     28/32 L
        LSC           633   PROGRAM*        1/44 E   29/16 L
        LSCA          672   PROGRAM*       29/21 S   29/37     30/54 L
        LSC10         644   PROGRAM*       29/23     29/30     29/34 L
        LSC20         645   PROGRAM*       29/27     29/36 L
        LSC21         651   PROGRAM*       29/45     29/47 L
        LSC25         660   PROGRAM*       29/49     30/21 L
        LSC30         666   PROGRAM*       29/51     30/05     30/13     30/27     30/41 L
        LSC35         667   PROGRAM*       30/45 L
        LSC5          642   PROGRAM*       29/25     29/29 L
        LSHF            0   EXTERNAL*       2/04 X   30/33
        LTG           674   PROGRAM*        1/43 E   31/17 L
        LTGA          701   PROGRAM*       31/19 S   31/21     31/26 L
        L.BLOCK        14   TSTEXT         23/20
        L.CTAG         22   TSTEXT         23/24
        L.DMOD          4   TSTEXT         19/35     22/21
        L.GSTSFT       22                  26/30 D   26/39     26/40     26/41
        L.GSTTAG       22                  26/31 D   26/39     26/40     26/41
        L.GSTTBL       22                  26/29 D   26/39     26/40     26/41
        L.LBIAS        22   TSTEXT         29/47
        L.LEVN          2   TSTEXT         20/43
        L.MODE          3   TSTEXT         30/21
        L.MSHORT        6   TSTEXT         29/56
        L.PWF          15   TSTEXT         12/36     15/16     15/17     20/37     23/12     40/06     40/07
        L.RELADD       30   TSTEXT         12/42
        L.RGFILE       27   TSTEXT          4/24      6/18
        L.RGMSK        22   TSTEXT         38/21
        L.RUSE         11   TSTEXT          3/12      6/41     19/38     24/47     27/34     34/30     38/29     39/27
                                            5/41      7/17     21/35     24/55     32/18     36/33     38/41
                                            6/19      7/27     24/45     25/49     33/10     38/08     39/19
        L.SHC          22   TSTEXT         30/33
        L.TAG          22   TSTEXT         11/47     14/02     20/21     20/22     20/24     20/28     20/32
        L.UREG          6   TSTEXT         24/33     39/38
        L.2BIAS        22   TSTEXT          7/36      8/13     18/55     22/27     22/44     28/16     28/37
        L.2FPNO         6   TSTEXT          7/36      8/16     22/44
        L.2TAG         22   TSTEXT          7/36     15/16     19/02     22/27     22/44     40/06
        MAX.USEC      777   TSTEXT         32/20
        M.ADDR       2000   TSTEXT          9/56     10/44     11/22     13/06     13/53
        M.INTR       1000   TSTEXT         19/47
        M.REAL          3   TSTEXT         30/26
        OR.OPR          0   TSTEXT         19/33     29/17
        O.DOB          43   TSTEXT         29/29
        O.=            12   TSTEXT         29/24
        P.             73   TSTEXT          3/44      4/28      5/12     20/42     22/31     24/46     33/51     38/50
        P.BLOCK        30   TSTEXT         23/21
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        P.CTAG         52   TSTEXT         14/43
        P.DMOD         33   TSTEXT         19/37     22/23     22/26
        P.GSTSFT       22                  24/20     26/30 D
        P.GSTTAG       44                  24/22     26/31 D
        P.GSTTBL        0                  26/29 D
        P.INTR         11   TSTEXT          3/44      3/45     24/46     33/51     34/08     38/50
        P.JPAD         52   TSTEXT         22/26
        P.LBIAS        14   TSTEXT          8/28     12/44     19/01     28/45     30/43
                                            9/24     16/32     27/46     30/28
        P.LEV           7   TSTEXT         20/42     20/44
        P.LEVN         45   TSTEXT         20/44
        P.LI12         60   TSTEXT         16/14     16/17
        P.LI15         55   TSTEXT          7/25     10/42     12/47     13/38     18/39     28/46     34/45
                                            9/23     11/11     13/10     14/05     19/06     30/29     37/10
                                           10/33     11/39     13/30     14/51     27/48     30/41
        P.LONG          2   TSTEXT         22/31
        P.LREG          6   TSTEXT         26/17     40/29
        P.LSTAT        20   TSTEXT         26/17     40/29
        P.LTAG         36   TSTEXT         14/43     19/05
        P.MODC         22   TSTEXT         19/40
        P.MSHORT       30   TSTEXT         30/01
        P.RGNUM        22   TSTEXT         38/04
        P.RLOCK        20   TSTEXT          4/28
        P.SHC          52   TSTEXT         29/43
        P.TAG          52   TSTEXT         16/02     16/04     19/48     20/28     20/36     26/39     26/41
        P.TGB          67   TSTEXT          8/32     22/35
        P.TRC          22   TSTEXT         16/14
        P.TYPE         21   TSTEXT          5/07      5/10     22/17     22/23     33/28     35/52     35/57     39/44
        P.UREG          0   TSTEXT         26/16     40/28
        P.USTAT        17   TSTEXT         26/16     40/28
        P.2ARY         16   TSTEXT          3/45     34/08
        P.2BIAS        30   TSTEXT          8/14      8/28     18/56     19/01     22/49     28/18     28/39     36/41
        P.2EQUIV       15   TSTEXT          5/12
        P.2FPNO        22   TSTEXT          8/27      8/36     30/23     30/25
        P.2STAT        17   TSTEXT         22/38     22/47     33/47     36/18
        P.2TAG         52   TSTEXT         12/37     15/19     19/05     20/24     23/13     24/47     40/05
                                           15/15     19/03     20/22     22/29     23/15     26/40     40/09
        REGA            0   EXTERNAL*       1/51 X    7/22     31/47     32/25     33/08
        REGFILE         0   EXTERNAL*       1/52 X    4/25     21/34     27/33     36/26 S   38/42     40/23 S
                                            3/15      5/40     24/43     33/06     36/35     38/48
                                            3/42      6/26     25/33     33/23     38/13     39/18
                                            4/01     18/26 S   25/44 S   34/26     38/32     40/20 S
        REGLK         716   PROGRAM*        1/43 E   32/30 L   32/31     32/32
        REGPRO          0   EXTERNAL*       2/06 X
        REGX            0   EXTERNAL*       1/51 X   31/45     32/14     40/17 S
        REG.A          10   TSTEXT         21/33     24/50     25/39     27/33     27/39     36/23     40/17 S
                                           24/50     24/53     25/46     27/37     36/12     39/48     40/24 S
        REG.X          20   TSTEXT          7/32     21/33     25/46     27/37     33/05     40/24 S
                                            7/42     24/53     27/33     27/39     36/23
        RGC             0   EXTERNAL*       1/52 X
        RGFILE          0   TSTEXT          7/32     11/03     18/29     24/50     27/23     36/12
                                            7/42     13/22     18/52     25/22     29/31     39/48
                                            8/49     18/28     24/50     25/39     34/14
        RGX             0   EXTERNAL*       1/52 X    3/13      3/46     21/22     38/06 S
        RG=BADR         0   EXTERNAL*       1/52 X    2/31     26/10     28/32     29/40
        RG=FPRG         0   EXTERNAL*       1/52 X
        RG=INTR         0   EXTERNAL*       1/52 X    2/55
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        RG=LOAD         0   EXTERNAL*       1/53 X    3/08      8/57     14/46     21/30     26/09     27/29
        RG=LODX         0   EXTERNAL*       1/53 X   25/53     26/11     37/01
        RG=SET          0   EXTERNAL*      10/25     12/27     28/05
        RG=STOR         0   EXTERNAL*       1/53 X    3/36     34/19
        RLL           702   PROGRAM*        1/44 E   10/23     12/20     28/04     31/43 L
        RLOCK         400   TSTEXT         25/34     31/44     31/44     32/12     32/12     38/22     39/20
        RREG            0   EXTERNAL*       1/53 X    5/22      5/27     25/07     29/20     38/03
        RUL           707   PROGRAM*        1/44 E   10/29     12/31     28/10     32/11 L
        RUL1          714   PROGRAM*       32/22     32/25 L
        RUT           730   PROGRAM*        1/44 E    3/49     21/27     27/32     33/18 L
                                            2/34      6/40     21/38     27/38
        RUTA          773   PROGRAM*       32/54     33/21 S   35/02 S   35/05     35/11 L
        RUTX          722   PROGRAM*       32/54 L   33/22     34/47
        RUT20         745   PROGRAM*       33/51     34/02 L
        RUT25         747   PROGRAM*       34/08     34/14 L
        RUT27         761   PROGRAM*       34/24     34/27     34/37 L
        RUT28         767   PROGRAM*       34/17     34/57 L
        RUT35         727   PROGRAM*       33/07     33/11     33/13 L
        RUT5          734   PROGRAM*       33/25 L   34/29     34/33
        RUT6          741   PROGRAM*       33/35     33/44 L
        RUT.ADR       776   PROGRAM*       33/24 S   33/33     34/28 S   35/03 S   35/06     35/12 L
        RUT.TYP      1001   PROGRAM*       33/31 S   33/44     35/15 L
        R.X0           20   TSTEXT         18/28     18/52
        R.X6           26   TSTEXT          8/49     11/03     13/22     18/29     25/22     27/23     29/31     34/14
        SA=AB           0   EXTERNAL*       2/04 X   27/45
        SA=ABS3         0   EXTERNAL*       2/06 X    7/23
        SA=ABS6         0   EXTERNAL*       2/06 X    9/22
        SA=AK           0   EXTERNAL*       2/04 X   27/43
        SA=AKS6         0   EXTERNAL*       2/06 X    9/20
        SA=BK           0   EXTERNAL*      14/49
        SA=BKS3         0   EXTERNAL*       2/04 X    8/34     13/54     18/54
        SA=XKS3         0   EXTERNAL*       2/06 X   11/23     11/26
        SB=BB           0   EXTERNAL*       2/05 X   29/50
        SB=BK           0   EXTERNAL*       2/05 X   29/46
        SB=XB           0   EXTERNAL*       2/05 X   28/43
        SB=XK           0   EXTERNAL*       2/05 X   28/40
        SCR             0   EXTERNAL*       2/10 X   18/31 S   18/35     18/41
        SDS          1004   PROGRAM*        1/44 E   35/47 L
        SDSA         1045   PROGRAM*       35/39     35/53 S   36/29     36/57 S   37/04     37/12     37/22 L
        SDSX         1002   PROGRAM*       35/39 L   36/47     36/56     37/03     37/20
        SDS10        1013   PROGRAM*       36/02     36/03     36/08 L
        SDS12        1021   PROGRAM*       36/20     36/26 L
        SDS15        1022   PROGRAM*       36/15     36/29 L
        SDS20        1031   PROGRAM*       36/45     36/49 L
        SFR          1051   PROGRAM*        1/44 E    2/56      3/37     27/30     34/22     37/57 L
                                            2/32      3/09     21/20     28/33     37/02
        SFRA         1074   PROGRAM*       37/53     38/23 S   38/56 L
        SFRX         1047   PROGRAM*       37/49 L   38/37     38/39
        SFR10        1065   PROGRAM*       38/35 L   38/45
        SFR12        1066   PROGRAM*       38/39 L   38/50     38/51     38/54
        SFR5         1060   PROGRAM*       38/07     38/18 L
        SST          1075   PROGRAM*        1/44 E   19/56     36/46     37/19     39/17 L
        SST1         1103   PROGRAM*       39/23     39/25     39/28     39/31 L
        SST4         1117   PROGRAM*       39/52     40/20 L
        SST7         1120   PROGRAM*       40/11     40/16     40/23 L
        SST.STAT     1122   PROGRAM*       39/31     40/28 L
        STRGLK        721   PROGRAM*        1/45 E   25/32 S   32/33 L
1       /REG  REGISTER ALLOCATOR ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.52.32.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        SX=BB           0   EXTERNAL*      28/29
        SX=BK           0   EXTERNAL*       2/05 X   28/27     29/44
        SX=BKS3         0   EXTERNAL*      10/30     12/32     13/57
        SX=XB           0   EXTERNAL*      28/24
        SX=XK           0   EXTERNAL*      28/22
        SX=XKS3         0   EXTERNAL*      11/32
        TA.NAM          0   EXTERNAL*      12/35     23/10
        TEST            0   TSTEXT         26/43 F   34/04 F
        TG.TEM          0   EXTERNAL*       1/54 X   22/20
        TS.BLK          0   EXTERNAL*      23/16
        TS.SYM          0   EXTERNAL*       1/54 X   20/39     26/41
        TT=USE          0   EXTERNAL*      20/17
        TT.PAR          0   EXTERNAL*       1/54 X   19/36     22/16     26/39
        TT.SCR          0   EXTERNAL*       1/54 X   26/40
        TT.USE          0   EXTERNAL*      20/16
        UUC             0   EXTERNAL*       1/52 X   39/49
        WIN             0   EXTERNAL*       1/57 X   10/35     13/11     16/25     18/40     28/49     34/46
                                            7/29     10/52     14/08     16/29     19/09     30/32     37/11
                                            9/27     12/49     14/55     16/34     27/50     30/45
        XMITS3          0   EXTERNAL*       2/05 X   10/12     11/37     18/37     25/55     34/44     37/06
        XOR             0   EXTERNAL*       2/05 X   30/09
        .CPU          111   TSTEXT         15/29 F
        .DAL            1   TSTEXT          9/28 F   10/03 F   10/49 F   11/48 F   13/03 F   39/57 F
        .FID            1   TSTEXT          6/11 F
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3446              IDENT  GEN
                       3446                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      3442 
                                        LITERALS* LOCAL        3442         4 
  
  
                                        ENTRY POINTS. 
  
                                        O=SUBL         602+           O=DOC1        2266+           R..7          2211+ 
                                        DIMI          1064+           O=DOC2        2272+           R..8          2215+ 
                                        O=OTR         3344+           O=DOC3        2276+           R..9          2220+ 
                                        O=RAGDD       2446+           O=DOC4        2310+           R..10         2224+ 
                                        O=RAGDS       2443+           O=DOC3A       2302+           MODECON       1602+ 
                                        O=RAGSD       2440+           O=SHFC        1550+           O=RANF        2005+ 
                                        O=RAGSS       2436+           O=SHFS        1563+           O=RTNA        2347+ 
                                        SA=ABS3       5400            O=SHFD        1553+           O=XMIT        2426+ 
                                        SA=ABS6        540            O=SHFSA       1570+           SB=BB        66000
                                        SA=BK        51000            O=SHFDS       1560+           SB=BK        61000
                                        STDIF         2161+           O=DIVP2       1573+           SB=XB        63000
                                        ZERO         13000            STR.I         1577+           SB=XK        62000
                                        SX=BK        71000            STR.D         1600+           XOR          13000
                                        FMASK        43000            SUB.I         1261+           DUC.          2552+ 
                                        SA=AB        54000            ADD.I         1225+           DUC.1ST       2560+ 
                                        SA=AK        50000            MULT.I        1312+           DUC.2ND       2565+ 
                                        SA=AKS6        500            O=ORN         1444+           DUC.BTH       2561+ 
                                        DIMSYM         156+           INLBASE       1626+           EIS.PNX       2654+ 
                                        MXP             76+           O=NTR0        2402+           O=EPO         3341+ 
                                        CVT            226+           O=QUITS       2344+           O=RJSUB       2452+ 
                                        PSO            452+           LSHF         20000            O=NOOP        3014+ 
                                        ALREG         1065+           O=NTR         2367+           NULLOP        3007+ 
                                        A=ARRAY        342+           O=RETN        2364+           CAI           2505+ 
                                        C=ARRAY        304+           O=NTRX        2400+           FVD           2524+ 
                                        ESF             12+           O=NTRM        2371+           XMITS3        1000
                                        SSO            543+           O=NTRN        2373+           SA=XKS3       5200
                                        VAM            111+           O=NTRY        2401+           SA=BKS3       5100
                                        VEL            121+           O=GOTON       2314+           SA=BKS9         51
                                        VIL            140+           IFEN2         2157+           SB=BKS9         61
                                        SLD            603+           O=NTRP        2410+           SX=BKS9         71
                                        O=ADD         1224+           IFE1N         2160+           SX=XKS9         72
                                        O=SUB         1260+           IFI111        2152+           IADD         36000
                                        O=MULT        1311+           IFLN2         2155+           SX=XKS3       7200
                                        O=DIV         1350+           IFL1N         2156+           SX=BKS3       7100
                                        O=STR         1576+           IFL12         2153+           SB=BKS3       6100
                                        O=LT          1447+           IFBASE        2015+           L.FIV          120
                                        O=GE          1463+           O=QUITP       2343+           E.FIV         1220+ 
                                        O=EQ          1525+           NSTDIF        2170+           CRTTAB        1221+ 
                                        O=NE          1502+           I..2          2230+           SX=BB        76000
                                        O=NOT         1306+           I..3          2231+           SX=XB        73000
                                        O=ANDO        1441+           I..4          2233+           SX=XK        72000
                                        O=XOR         1443+           I..5          2235+           AFREG         1066+ 
                                        O=ORO         1442+           I..6          2240+           DIMUL          154+ 
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        O=UMIN        1305+           I..7          2243+           O=GOCL        2327+ 
                                        O=APLUG       2427+           I..8          2247+           O=RAGD1       2434+ 
                                        O=ASSGN       2340+           I..9          2252+           O=RAGS1       2433+ 
                                        O=XORN        1446+           I..10         2256+           LCMR          1400
                                        O=STRC        2415+           MODTBL        1620+           LCMW          1500
                                        O=ANDN        1445+           O=GOC         2317+           O=RADD        1247+ 
                                        O=DOB         2262+           MULT.R        1313+           O=RSUB        1274+ 
                                        O=GOA         2315+           R..2          2176+           O=RMULT       1334+ 
                                        O=BSS         2342+           R..3          2177+           O=RDIV        1417+ 
                                        O=INT         1746+           R..4          2201+           O=NTRN1       2376+ 
                                        O=RETS        2362+           R..5          2203+           O=VOID        2412+ 
                                        O=RETD        2357+           R..6          2206+           O=OTRA        3404+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.SNAP   REGB      T.VDIM    E.IF7     SCSA      LTG       TER2      STRGLK
                                        CO.RND    RANF      T=VDIM    E.SB2     ADW       LSC       CCR       MVE 
                                        ARGMODE   REG=B     TG.VDIM   E.SB3     SCS       RLL       LCT       REGA
                                        ARGCOMA   REG=T     TT.SCR    E.SB4     NCS       RUL       ARGNUM    RG=SET
                                        ATTR      REGX      TT=SCR    E.SB6     WOF       RUT       CDO       TA.NAM
                                        BIFFUN    RGC       TS.STN    E.SB7     S.RANDM   SFR       DIP       CLP 
                                        BIFSHF    REGFILE   TT=USE    E.SU2     TSF       SST       ESTACK    CLT 
                                        BINOUT    RGX       TT.USE    E.SU3     CLOADJ    SDS       SCR       GSTC
                                        CHARMAP   RG=TEMP   TG.TEM    E.SU8     REGLK     LFP       SCR2      E.SB8 
                                        DRITE     RG=LOAD   TEM.MAX   E.SU9     ABR       PAR.NX    S.FID     TRLINE
                                        INTMAC    RG=LODX   UUC       E.SU10    ASR       POP.STD   PIGLAB    ALC 
                                        REFLIN    RJTDUM    UMINUS    FILL.     AIR       SMOD      PIGLINE   PWE 
                                        MOD       RREG      VD.EQ     FILL.3    CDS       SOPR      PIG       E.IN1 
                                        MULT(S    SHFC      VD.MULT   OSE       CRJ       ADT       CIAA
                                        MULT      SUBOP     VD.INTR   ERR=F     CIA       CT2       CO.ID 
                                        N.TABLE   TT=PAR    XMITOP    WIN       CPL       SDM       TRACE 
                                        NOLDS     TT.PAR    XPOP      ALC.00    DIT       POPX      CLI 
                                        PLUS      TS.SYM    E.AT1     ALC.CAI   GST       CURST     RG=STOR 
                                        PLUS(S    TP.DIM    E.AT1A    ALC.REG   GNR       TER1      RG=INTR 
  
  
  
  
                                                  IDENT  GEN                                                     GEN         2
                                         GEN      SECT   (CODE GENERATION)                                       GEN         3
  
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     3
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS. 
  
                                         FUNLST   SECT   (EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.),1    GEN         4
  
                                                                                                                 GEN         5
                                                  SST    A,B,C,D,E,F,G,L,N,X,Z,EXIT.                             GEN         6
                                                  NOREF  A,B,C,D,E,F,G,L,N,X,Z,EXIT.                             GEN         7
                                                                                                                 GEN         8
                                         B=GEN    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     GEN         9
                                                                                                                 GEN        10
                                                  ENTRY  O=SUBL,DIMI,O=OTR                                       FEAT155G  363
                                                  ENTRY  O=RAGDD,O=RAGDS,O=RAGSD,O=RAGSS,SA=ABS3,SA=ABS6         GEN        12
                                                  ENTRY  SA=BK,STDIF,ZERO,SX=BK,FMASK,SA=AB,SA=AK,SA=AKS6        GEN        13
                                                  ENTRY  DIMSYM,MXP,CVT,PSO,ALREG,A=ARRAY                        GEN        14
                                                  ENTRY  C=ARRAY,ESF,SSO,VAM,VEL,VIL,SLD                         GEN        15
                                                  ENTRY  O=ADD,O=SUB,O=MULT,O=DIV,O=STR,O=LT,O=GE,O=EQ,O=NE      GEN        16
                                                  ENTRY  O=NOT,O=ANDO,O=XOR,O=ORO,O=UMIN,O=APLUG,O=ASSGN,O=XORN  GEN        17
                                                  ENTRY  O=STRC,O=ANDN,O=DOB,O=GOA,O=BSS,O=INT,O=RETS,O=RETD     GEN        18
                                                  ENTRY  O=DOC1,O=DOC2,O=DOC3,O=DOC4                             GEN        19
                                                  ENTRY  O=DOC3A,O=SHFC,O=SHFS,O=SHFD,O=SHFSA,O=SHFDS,O=DIVP2    GEN        20
                                                  ENTRY  STR.I,STR.D,SUB.I,ADD.I,MULT.I,O=ORN,INLBASE            GEN        21
                                                  ENTRY  O=NTR0,O=STR,O=QUITS,LSHF,O=NTR,O=RETN                  GEN        22
                                                  ENTRY  O=NTRX,O=NTRM,O=NTRN,O=NTRY,O=GOTON,IFEN2,O=NTRP        GEN        23
                                                  ENTRY  IFE1N,IFI111,IFLN2,IFL1N,IFL12,IFBASE,O=QUITP,NSTDIF    GEN        24
                                                  ENTRY  I..2,I..3,I..4,I..5,I..6                                GEN        25
                                                  ENTRY  I..7,I..8,I..9,I..10,MODTBL,O=GOC,MULT.R                FCC0878    34
                                                  ENTRY  R..2,R..3,R..4,R..5,R..6,R..7,R..8,R..9,R..10           FCC0878    35
                                                  ENTRY  MODECON,O=RANF,O=RTNA,O=XMIT                            FCC2194    10
                                                  ENTRY  SB=BB,SB=BK,SB=XB,SB=XK,XOR                             GEN        29
                                                  ENTRY  DUC.,DUC.1ST,DUC.2ND,DUC.BTH,EIS.PNX,O=EPO              GEN        30
                                                  ENTRY  O=RJSUB,O=NOOP,NULLOP,CAI,FVD,XMITS3                    GEN        31
                                                  ENTRY  SA=XKS3,SA=BKS3,SA=BKS9,SB=BKS9,SX=BKS9,SX=XKS9         GEN        32
                                                  ENTRY  IADD,SX=XKS3,SX=BKS3,SB=BKS3                            FEAT155G  364
                                                  ENTRY  L.FIV,E.FIV,CRTTAB                                      GEN        34
                                                  ENTRY  SX=BB,SX=XB,SX=XK,AFREG                                 GEN        35
                                                  ENTRY  DIMUL                                                   GEN        36
                                                  ENTRY  O=GOCL,O=RAGD1,O=RAGS1                                  GEN        37
                                                                                                                 GEN        38
                                        *         IN FTN                                                         GEN        39
                                                  EXT    CO.SNAP,CO.RND                                          GEN        40
                                                                                                                 GEN        41
                                        *         IN TABLES                                                      GEN        42
                                                  EXT    ARGMODE,ARGCOMA,ATTR,BIFFUN,BIFSHF,BINOUT               FCC0966    16
                                                  EXT    CHARMAP,DRITE,INTMAC,REFLIN,MOD,MULT(S,MULT,N.TABLE     FEAT155E  297
                                                  EXT    NOLDS,PLUS,PLUS(S,REGB,RANF,REG=B,REG=T,REGX,RGC        FEAT126C  167
                                                  EXT    REGFILE,RGX,RG=TEMP,RG=LOAD,RG=LODX,RJTDUM,RREG,SHFC    GEN        46
                                                  EXT    SUBOP,TT=PAR,TT.PAR,TS.SYM,TP.DIM,T.VDIM,T=VDIM,TG.VDIM GEN        47
                                                  EXT    TT.SCR,TT=SCR,TS.STN,TT=USE,TT.USE,TG.TEM,TEM.MAX,UUC   GEN        48
                                                  EXT    UMINUS,VD.EQ,VD.MULT,VD.INTR,XMITOP,XPOP                FCC2194    11
                                                                                                                 GEN        50
                                        *         IN ERRORS                                                      GEN        51
                                                  EXT    E.AT1,E.AT1A,E.IF7,E.SB2,E.SB3,E.SB4,E.SB6,E.SB7        FCC0597    27
                                                  EXT    E.SU2,E.SU3,E.SU8,E.SU9,E.SU10,FILL.,FILL.3,OSE,ERR=F   FEAT126C  168
                                                                                                                 GEN        54
                                        *         IN PIG                                                         GEN        55
                                                  EXT    WIN                                                     GEN        56
                                                                                                                 GEN        57
                                        *         IN ALLOC                                                       GEN        58
                                                  EXT    ALC.00,ALC.CAI,ALC.REG,SCSA,ADW,SCS,NCS                 GEN        59
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     4
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS. 
  
                                                                                                                 GEN        60
                                        *         IN MAIN                                                        GEN        61
                                                  EXT    WOF                                                     GEN        62
                                                                                                                 GEN        63
                                        *         IN LEX                                                         GEN        64
                                                  EXT    S.RANDM,TSF                                             GEN        65
                                                                                                                 GEN        66
                                        *         IN REG                                                         GEN        67
                                                  EXT    CLOADJ,REGLK,ABR,ASR,AIR,CDS,CRJ,CIA,CPL,DIT            GEN        68
                                                  EXT    GST,GNR,LTG,LSC,RLL,RUL,RUT,SFR,SST,SDS,LFP             GEN        69
                                                                                                                 GEN        70
                                        *         IN PAR                                                         GEN        71
                                                  EXT    PAR.NX,POP.STD,SMOD,SOPR,ADT,CT2,SDM,POPX,CURST         GEN        72
                                                                                                                 GEN        73
                                        *         IN CONRED                                                      GEN        74
                                                  EXT    TER1,TER2,CCR,LCT                                       GEN        75
                                                                                                                 GEN        76
                                        *         IN FUN                                                         GEN        77
                                                  EXT    ARGNUM                                                  GEN        78
                                                                                                                 GEN        79
                                        *         IN DO                                                          GEN        80
                                                  EXT    CDO,DIP                                                 GEN        81
                                                                                                                 GEN        82
                                        *         IN INIT                                                        GEN        83
                                                  EXT    ESTACK,SCR,SCR2                                         GEN        84
                                                                                                                 GEN        85
  
  
  
  
                                        **        ESA -  EVUALATE SHIFT CONSTANT                                 GEN        87
                                        *                                                                        GEN        88
                                        *         ENTRY  (X5) = CONSTANT TO EVUALATE.                            GEN        89
                                        *                                                                        GEN        90
                                        *         EXIT   (B2) < 0, NO CONSTANT PRESENT, (X6) N/A                 GEN        91
                                        *                (X0) = MODE (IN ALL CASES)                              GEN        92
                                        *                (X6) = CONVERTED CONSTANT IN THE RANGE OF 0 TO +60.     GEN        93
                                        *                                                                        GEN        94
                                        *         NOTE   CONVERSION OF CONSTANT SHIFT IS THE SAME AS *COMPASS*   GEN        95
                                        *                VER 2.0, 3.0 - AND SHOULD BE.                           GEN        96
                                        *                                                                        GEN        97
                                        *         USES   A1,A2,A6,A7  X0  B2,B7                                  GEN        98
                                        *         CALLS  LCT                                                     GEN        99
                                                                                                                 GEN       100
                                                                                                                 GEN       101
             0  0400400000 +             ESA      SUBR               ENTRY/EXIT...                               GEN       102
             1  10155                             BX1    X5                                                      GEN       103
                     0100000000 X                 RJ     LCT         GET BINARY OF CONSTANT                      GEN       104
             2  0602000000 +                      LE     B2,EXIT.    IF NO CONSTANT OR CONSTANT IS REAL          GEN       105
                          7120000074              =X2    60                                                      GEN       106
             3  0326000005 +                      PL     X6,ESA5     IF POSITIVE                                 GEN       107
             4  36662                    +        IX6    X6+X2                                                   GEN       108
                     0336000004 +                 MI     X6,*                                                    GEN       109
             5  0306000000 +             ESA5     ZR     X6,EXIT.    IF *0*                                      GEN       110
             6  37662                    +        IX6    X6-X2                                                   GEN       111
                     0326000006 +                 PL     X6,*                                                    GEN       112
                               36662              IX6    X6+X2                                                   GEN       113
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     5
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.     ESA 
  
             7  0316000000 +                      NZ     X6,EXIT.                                                GEN       114
                          10622                   BX6    X2                                                      GEN       115
            10  0400000000 +                      EQ     EXIT.                                                   GEN       116
  
  
  
  
                                        **        ESF -  EVUALATE SPECIAL *INTRINSIC* FUNCTION.                  GEN       118
                                        *                                                                        GEN       119
                                        *         ENTRY  (B7) = RELATIVE ADDRESS TO *ESFBASE*                    GEN       120
                                        *                (A4) _ SYMBOL TABLE ENTRY.                              GEN       121
                                        *                                                                        GEN       122
                                        *         EXIT   (X1) = OPERATOR WORD.                                   GEN       123
                                        *                (X2) IF > 0, MACRO ADDRESS FOR FUNCTION.                GEN       124
                                        *                (X2) IF < 0, FUNCTION REDUCED.                          GEN       125
                                        *                                                                        GEN       126
                                        *         USES   A1,A2,A3  X0  B2,B3,B7                                  GEN       127
                                        *         CALLS  ESA, TSF                                                GEN       128
                                                                                                                 GEN       129
                                                                                                                 GEN       130
            11  5110000000 X             ESFX     SA1    BIFFUN                                                  GEN       131
                                                                                                                 GEN       132
            12  0400400012 +             ESF      SUBR   -           ENTRY/EXIT...                               GEN       133
            13  0277000014 +                      JP     B7+ESFBASE                                              GEN       134
                                                                                                                 GEN       135
            14                           ESFBASE  BSS    0           BASE ADDRESS                                GEN       136
                                                                                                                 GEN       137
                                                                                                                 GEN       138
            14  0100000000 +             ES.MASK  RJ     ESA         EVUALATE MASK                               GEN       139
            15  7120001762 +                      =X2    O=MASK                                                  GEN       140
                          0602000011 +            LE     B2,ESFX     IF NOT INTEGER CONSTANT                     GEN       141
            16  43101                             MX1    1                                                       GEN       142
                     6276777776                   SB7    X6-1                                                    GEN       143
                               76700              =X7    M.UNIV      MODE                                        GEN       144
            17  23671                             AX6    B7,X1                                                   GEN       145
                     10166                        BX1    X6                                                      FCC0975     4
                          21173                   AX1    59                                                      FCC0975     5
                               11616              BX6    X1*X6                                                   FCC0975     6
            20  67661                             =B6    B6-1        ELIMINATE FUNCTION                          GEN       146
                     0100000000 X                 RJ     NCS         ENTER NEW CONSTANT                          GEN       147
            21  77201                             =X2    -1          INDICATE REDUCED                            GEN       148
                     57661                        =A6    B6-1        REPLACE *MASK(CON)* WITH CON                GEN       149
                          0400000012 +            EQ     EXIT.                                                   GEN       150
                                                                                                                 GEN       151
            22  10155                    ES.MOD   BX1    X5                                                      GEN       152
                     0100000000 X                 RJ     LCT                                                     GEN       153
            23  7120001770 +                      =X2    O=MOD                                                   GEN       154
                          0602000011 +            LE     B2,ESFX     IF MODULO NOT CONSTANT                      GEN       155
            24  7206777776                        SX0    X6-1                                                    GEN       156
                          11706                   BX7    X0*X6                                                   GEN       157
            25  0317000011 +                      NZ     X7,ESFX     IF MODULO NOT POWER OF 2                    GEN       158
                          14600                   BX6    -X0                                                     GEN       159
                               76711              =X7    M.INT                                                   GEN       160
            26  0100000000 X                      RJ     NCS         ENTER CONSTANT                              GEN       161
            27  7120002000 +                      =X2    O=MODP2                                                 GEN       162
                          10566                   BX5    X6                                                      GEN       163
            30  0400000011 +                      EQ     ESFX        EXIT..                                      GEN       164
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     6
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.     ESF 
  
                                                                                                                 GEN       165
            31  10155                    ES.SHIFT BX1    X5                                                      GEN       166
                     0100000000 X                 RJ     LCT                                                     GEN       167
            32  7120002011 +                      =X2    O=SHIFT                                                 GEN       168
                          0602000011 +            LE     B2,ESFX     IF NOT INTEGER CONSTANT                     GEN       169
            33  6276777703                        SB7    X6-60                                                   GEN       170
                          77201                   =X2    -1                                                      GEN       171
                               67661              =B6    B6-1                                                    GEN       172
            34  0306000012 +                      ZR     X6,EXIT.    IF NULL SHIFT                               GEN       173
                          0470000012 +            ZR     B7,EXIT.    IF NULL SHIFT                               GEN       174
            35  10700                             BX7    X0                                                      GEN       175
                     66661                        =B6    B6+1                                                    GEN       176
                          0100000000 X            RJ     NCS         ENTER CONSTANT                              GEN       177
            36  10166                             BX1    X6                                                      GEN       178
                     22006                        LX0    X6                                                      GEN       179
                          20060                   IFBIT  X0,-SHORT,SHIFT  IF NOT SHORT CONSTANT                  GEN       180
                          21152                   AX1    P.SHC                                                   GEN       181
            40  0311000044 +                      NZ     X1,SHIFT    IF MASK CONSTANT NOT POSSIBLE               GEN       182
                          10066                   BX0    X6                                                      GEN       183
                               21030              AX0    P.MSHORT                                                GEN       184
            41  0300000044 +                      ZR     X0,SHIFT    IF NOT MASK CONSTANT                        GEN       185
                                                                                                                 GEN       186
                                        *         SHIFT COUNT MAY NOT BE MASK CONSTANT.  IF MASK CONSTANT        GEN       187
                                        *         PRESENT, IT MUST BE CONVERTED TO PROPER NEGATIVE CONSTANT.     GEN       188
                                                                                                                 GEN       189
                          6270777776              =B7    X0-1                                                    GEN       190
            42  43101                             MX1    1                                                       GEN       191
                     23171                        AX1    X1,B7                                                   GEN       192
                          43052                   MX0    -L.SHC                                                  GEN       193
                               15010              BX0    -X0*X1                                                  GEN       194
            43  20052                             LX0    P.SHC                                                   GEN       195
                     7110004002                   SX1    M.SHORT+M.INT                                           GEN       196
                               12601              BX6    X0+X1                                                   GEN       197
            44  10566                    SHIFT    BX5    X6                                                      GEN       198
                     7120002013 +                 =X2    O=SHIFTC                                                GEN       199
            45  5110000000 X                      SA1    BIFSHF                                                  GEN       200
                          0400000012 +            EQ     EXIT.                                                   GEN       201
                                                                                                                 GEN       202
            46  10155                    ES.LOCF  BX1    X5                                                      FCC1134   102
                     0100000000 X                 RJ     LCT                                                     FCC1134   103
            47  0420000053 +                      ZR     B2,ES.LOC2  IF NOT CONSTANT                             FCC1134   104
                                                                                                                 FCC1134   105
            50  10655                    ES.LOC1  BX6    X5                                                      FCC1134   106
                     67661                        =B6    B6-1                                                    FCC1134   107
                          57661                   =A6    B6-1                                                    FCC1134   108
            51  6170000000 X                      FATAL  =XE.IN1                                                 FCC1134   109
            52  77201                             =X2    -1                                                      FCC1134   110
                     0400000012 +                 EQ     EXIT.                                                   FCC1134   111
                                                                                                                 FCC1134   112
            53  10055                    ES.LOC2  BX0    X5                                                      FCC1134   113
                     20062                        LX0    59-P.INTR                                               FCC1134   114
                          10655                   BX6    X5                                                      FCC1134   115
                               20663              LX6    59-P.ARY                                                FCC1134   116
            54  13606                             BX6    X0-X6                                                   FCC1134   117
                     0336000050 +                 MI     X6,ES.LOC1  IF NOT ARRAY OR TAG                         FCC1134   118
            55  7100002100                        SX0    M.ADDR+M.LCF                                            FCC1134   119
                          43271                   MX2    -L.MODE                                                 FCC1134   120
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     7
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.     ESF 
  
                               20200              LX2    P.MODE                                                  FCC1134   121
            56  11525                             BX5    X2*X5       MODE = UNIV                                 FCC1134   122
                     12650                        BX6    X5+X0                                                   FCC1134   123
                          77201                   =X2    -1                                                      FCC1134   124
                               67661              =B6    B6-1        REPLACE LOCF(ARG) WITH ADDR(ARG)            FCC1134   125
            57  57661                             =A6    B6-1                                                    FCC1134   126
                     0400000012 +                 EQ     EXIT.                                                   GEN       204
                                                                                                                 GEN       205
            60  76640                    ES.RANF  SX6    B4                                                      GEN       206
                     5110000000 X                 SA1    S.RANDM                                                 GEN       207
            61  5160000000 X                      SA6    SCR                                                     GEN       208
                          10711                   BX7    X1                                                      GEN       209
                               54761              =A7    A6+1                                                    GEN       210
            62  64470                             TAGSEX A7          TAG *RANDOM.*                               GEN       211
            64  5120000000 X                      SA2    SCR                                                     GEN       212
                          10166                   BX1    X6                                                      GEN       213
                               63420              SB4    X2          RESTORE *B4*                                GEN       214
            65  10166                             BX1    X6                                                      GEN       215
                     0100000000 X                 RJ     CT2         GET PASS *2* TAG                            GEN       216
            66  76310                             =X3    1                                                       GEN       217
                     10566                        BX5    X6          =XRANDOM                                    GEN       218
                          20330                   LX3    P.2BIAS                                                 GEN       219
                               36436              IX4    X3+X6       =XRANDOM+1                                  GEN       220
            67  5130000000 X                      SA3    RANF                                                    GEN       221
                          10633                   BX6    X3                                                      GEN       222
            70  5160000000 X                      SA6    SOPR                                                    GEN       223
                          0100000000 X            RJ     ADT                                                     GEN       224
            71  77201                             =X2    -1                                                      FCC0966    17
                     0400000012 +                 EQ     EXIT.                                                   GEN       229
                                                                                                                 GEN       230
            72  7120001441 +             ES.AND   SX2    O=AND                                                   GEN       231
                          0400000012 +            EQ     EXIT.                                                   GEN       232
                                                                                                                 GEN       233
            73  7120001442 +             ES.OR    SX2    O=OR                                                    GEN       234
                          0400000012 +            EQ     EXIT.                                                   GEN       235
                                                                                                                 GEN       236
            74  7120001443 +             ES.XOR   SX2    O=XOR                                                   GEN       237
                          0400000012 +            EQ     EXIT.                                                   GEN       238
                                                                                                                 GEN       239
            75  7120001306 +             ES.COMPL SX2    O=COMPL                                                 GEN       240
                          0400000012 +            EQ     EXIT.                                                   GEN       241
  
  
  
  
                                        **        MARK EXTERNAL PROCESS BLOCK START.                             GEN       243
                                        *                                                                        GEN       244
                                        *         ENTRY  TT.PAR SET TO CURRENT LENGTH                            GEN       245
                                        *                                                                        GEN       246
                                        *         EXIT   O=EPO ENTERED INTO PARSED FILE.                         GEN       247
                                        *         USES   CANNOT DESTROY X4,X5  B4,B5,B6                          GEN       248
                                                                                                                 GEN       249
                                                                                                                 GEN       250
            76  0400400076 +             MXP      SUBR               ENTRY/EXIT...                               GEN       251
            77  5120000000 X                      SA2    TT=PAR                                                  GEN       252
                          5110000000 X            SA1    TT.PAR                                                  GEN       253
           100  0302000103 +                      ZR     X2,MXP5     IF START OF NEW BLOCK                       GEN       254
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     8
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.     MXP 
  
                          36012                   IX0    X1+X2                                                   GEN       255
           101  5230777774                        SA3    X0-L.TURP                                               GEN       256
                          6273777723              SB7    X3-O.MXP                                                GEN       257
           102  0470000076 +                      ZR     B7,EXIT.    IF LAST TURPLE IS *MXP* TURPLE              GEN       258
           103  7100000003               MXP5     ALLOC  A1,L.TURP                                               GEN       259
           104  5110000000 X                      SA1    REFLIN                                                  FEAT155E  298
                          21106                   AX1    CHAR                                                    FEAT155E  299
                               10611              BX6    X1                                                      FEAT155E  300
           105  5160000000 X                      SA6    =XTRLINE    STORE LINE NO. FOR TRACEBACK USE            GEN       262
                          20622                   LX6    P.TRC       PUT IN BITS 18-29 OF TURPLE OPERANDS 1 , 2  FCC0744    12
           106  5120000000 X                      SA2    XPOP                                                    GEN       263
                          5167777776              SA6    B7-1                                                    GEN       264
           107  10722                             BX7    X2                                                      GEN       265
                     55661                        =A6    A6-1                                                    GEN       266
                          55761                   =A7    A6-1                                                    GEN       267
           110  0400000076 +                      EQ     EXIT.                                                   GEN       270
  
  
  
  
                                        **        VAM -  VALIDATE ARGUMENT MODE AGREEMENT FOR INTRINSICS         GEN       306
                                        *                                                                        GEN       307
                                        *         ENTRY  (X1) = ARGUMENT TO CHECK                                GEN       308
                                        *                (X2) = DEFINED ARGUMENT MODE IN LOWER 18 BITS           GEN       309
                                        *                (X3) = FUNCTION NAME, 42/NAME,18/GARBAGE, IGNORED.      GEN       310
                                        *                                                                        GEN       311
                                        *         EXIT   (X0) = 0 MODE AGREEMENT                                 GEN       312
                                        *                     " 0,MODE MISMATCH, (X1) = TAG WITH MODE CHANGED    GEN       313
                                        *                         CORRECT MODE.                                  GEN       314
                                        *                (X7) = MODE BITS OF ARGUMENT                            GEN       315
                                        *                                                                        GEN       316
                                        *         USES   X0,X1,X2,X7  B7                                         GEN       317
                                        *                (FILL. IF ERROR FOUND IN ARGUMENT.)                     GEN       318
                                                                                                                 GEN       319
                                                                                                                 GEN       320
           111  0400400111 +             VAM      SUBR               ENTRY/EXIT...                               GEN       321
           112  73220                             SX2    X2                                                      GEN       322
                     43071                        MX0    -L.MODE                                                 GEN       323
                          15710                   BX7    -X0*X1                                                  GEN       324
                               13072              BX0    X7-X2                                                   GEN       325
           113  0300000111 +                      ZR     X0,EXIT.    IF MODE AGREEMENT                           GEN       326
                          76000                   =X0    0                                                       GEN       327
           114  0302000111 +                      ZR     X2,EXIT.    IF DEFINED MODE IS TYPELESS                 GEN       328
                          0317000116 +            NZ     X7,VAM1     IF ARGUMENT IS NOT TYPELESS                 GEN       329
           115  7222777773                        SX2    X2-M.DBL                                                GEN       330
                          0332000111 +            MI     X2,EXIT.    IF DEFINED MODE IS SINGLE TYPE              GEN       331
           116  43052                    VAM1     MX0    L.SYM                                                   GEN       332
                     11603                        BX6    X0*X3                                                   GEN       333
                          5160000000 X            SA6    FILL.                                                   GEN       334
           117  6170000000 X                      FATAL  E.SU3                                                   GEN       335
           120  76700                             =X7    M.UNIV      MODE BITS = UNIVERSAL                       GEN       336
                     0400000111 +                 EQ     EXIT.                                                   GEN       337
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE     9
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.     VEL 
  
                                        **        VEL -  VALIDATE ARGUMENT LIST FOR EXTERNAL.                    GEN       339
                                        *                                                                        GEN       340
                                        *         ENTRY  (X2) = NUMBER OF ARGUMENT -1                            GEN       341
                                        *                (X4) = CURRENT ROUTINE TAG                              GEN       342
                                        *                                                                        GEN       343
                                        *         EXIT   IF 1ST REFERENCE                                        GEN       344
                                        *                (PARM) FIELD SET INTO SYMBOL TABLE                      GEN       345
                                        *                ARGUMENT COUNT CHECKED AGAINST *MAX.SARG*               GEN       346
                                        *                IF NOT 1ST REFERENCE                                    GEN       347
                                        *                CHECK AGAINST DEFINED ARGUMENT COUNT.                   GEN       348
                                        *                ARGUMENT COUNT CHECKED AGAINST *MAX.SARG*               GEN       349
                                        *                                                                        GEN       350
                                        *                (X3) = PERSERVED.                                       GEN       351
                                        *                                                                        GEN       352
                                        *         USES   A1,A2,A3,A4,A6  X0  B2,B3,B7                            GEN       353
                                                                                                                 GEN       354
                                                                                                                 GEN       355
           121  0400400121 +             VEL      SUBR               ENTRY/EXIT...                               GEN       356
           122  5110000000 X                      SA1    TS.SYM                                                  GEN       357
                          21452                   AX4    P.2TAG                                                  GEN       358
                               73221              =X2    X2+1        ACTUAL ARGUMENT COUNT                       GEN       359
           123  6224577777                        SB2    X4-C.SYM                                                GEN       360
                          7100000010              =X0    M.DEF                                                   GEN       361
           124  53412                             SA4    X1+B2       TAG FROM SYMBOL TABLE                       GEN       362
                     11104                        BX1    X0*X4                                                   GEN       363
                          6222777700              SB2    X2-MAX.SARG                                             GEN       364
           125  0311000131 +                      NZ     X1,VEL30    IF ALREADY DEFINED                          GEN       365
                          20230                   LX2    P.UARGC                                                 GEN       366
                               12740              BX7    X4+X0       SET DEFINED BIT                             GEN       367
           126  36672                             IX6    X7+X2       SET ARGUMENT COUNT                          GEN       368
                     6170000000 X                 SB7    E.SU8       EXCEEDS COMPILER LIMITS                     GEN       369
           127  0702000135 +                      GT     B2,VEL50    IF EXCEEDS COMPILER DEFINED LIMITS          GEN       370
                          54640                   SA6    A4          RESET IN SYMBOL TABLE WITH PARMS+DEFINED    GEN       371
           130  0400000121 +                      EQ     EXIT.                                                   GEN       372
                                                                                                                 GEN       373
                                                                                                                 GEN       374
                                        **        HERE IF NOT 1ST REFERENCE TO EXTERNAL                          GEN       375
                                        *         (X2) = ARGUMENT COUNT.                                         GEN       376
                                                                                                                 GEN       377
           131  43066                    VEL30    MX0    -L.UARGC                                                GEN       378
                     20444                        LX4    -P.UARGC                                                GEN       379
                          15040                   BX0    -X0*X4      LAST ARGUMENT COUNT                         GEN       380
           132  6170000000 X                      SB7    E.SU2       IN CASE OF ERROR.                           GEN       381
           133  37602                    VEL40    IX6    X0-X2                                                   GEN       382
                     0316000135 +                 NZ     X6,VEL50    IF ARGUMENT COUNT NON-AGREEMENT.            GEN       383
           134  6170000000 X                      SB7    E.SU8       EXCEEDS COMPILER LIMITS                     GEN       384
                          0602000121 +            LE     B2,EXIT.    IF DOES NOT EXCEED COMPILER DEFINED LIMITS  GEN       385
                                                                                                                 GEN       386
                                        **        ARGUMENT COUNT DOES NOT AGREE WITH LAST USAGE OR WITH DEFINED  GEN       387
                                        *         *ANSI*.                                                        GEN       388
                                                                                                                 GEN       389
                                                                                                                 GEN       390
           135  55241                    VEL50    =A2    A4-1        LOAD SYMBOL ENTRY                           GEN       391
                     43152                        MX1    L.SYM                                                   GEN       392
                          11612                   BX6    X1*X2                                                   GEN       393
           136  5160000000 X                      SA6    FILL.                                                   GEN       394
                          0100000000 X            FATAL  B7                                                      GEN       395
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    10
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.     VEL 
  
           137  0400000121 +                      EQ     EXIT.                                                   GEN       396
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    11
        /FUNLST  EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.     VIL 
  
                                        **        VIL -  TERMINATE ARGUMENT LIST PROCESSING.                     GEN       398
                                        *                                                                        GEN       399
                                        *         ENTRY  (X2) = NUMBER OF ARGUMENT -1                            GEN       400
                                        *                (X4) = CURRENT ROUTINE TAG                              GEN       401
                                        *                                                                        GEN       402
                                        *         EXIT   (X3) = PERSERVED.                                       GEN       403
                                        *                (A4) _ TAG TABLE ENTRY OF ROUTINE.                      GEN       404
                                        *                                                                        GEN       405
                                        *         USES   A1,A2,A3,A4,A6  X0  B2,B3,B7                            GEN       406
                                                                                                                 GEN       407
                                                                                                                 GEN       408
           140  0400400140 +             VIL      SUBR               ENTRY/EXIT...                               GEN       409
           141  5110000000 X                      SA1    TS.SYM                                                  GEN       410
                          21452                   AX4    P.2TAG                                                  GEN       411
                               73221              =X2    X2+1        ACTUAL ARGUMENT COUNT                       GEN       412
           142  6224577777                        SB2    X4-C.SYM                                                GEN       413
                          53412                   SA4    X1+B2       SYMBOL TABLE ENTRY                          GEN       414
                                                                                                                 GEN       415
                                        **        HERE IF NOT 1ST REFERENCE TO EXTERNAL                          GEN       416
                                        *         (X2) = ARGUMENT COUNT.                                         GEN       417
                                                                                                                 GEN       418
           143  43066                    VIL30    MX0    -L.ARGC                                                 GEN       419
                     20452                        LX4    -P.ARGC                                                 GEN       420
                          15040                   BX0    -X0*X4      DEFINED ARGUMENT COUNT                      GEN       421
           144  6170000000 X                      SB7    E.SU10      IN CASE OF ERROR.                           GEN       422
                          63220                   SB2    X2                                                      GEN       423
           145  0310000147 +                      NZ     X0,VIL40    IF NOT INFINITE ARGUMENT COUNT TYPE         GEN       424
                          0712000140 +            GT1    B2,EXIT.    IF NOT ONE ARGUMENT                         GEN       425
           146  6170000000 X                      SB7    E.SU9                                                   GEN       426
                          0400000150 +            EQ     VIL50       OUTPUT ERROR                                GEN       427
                                                                                                                 GEN       428
           147  37602                    VIL40    IX6    X0-X2                                                   GEN       429
                     0306000140 +                 ZR     X6,EXIT.    IF ARGUMENT COUNT AGREEMENT                 GEN       430
                                                                                                                 GEN       431
                                        **        ARGUMENT DOES NOT AGREE WITH DEFINED COUNT OF INTRINSIC        GEN       432
                                                                                                                 GEN       433
           150  55241                    VIL50    =A2    A4-1        LOAD SYMBOL                                 GEN       434
                     43152                        MX1    L.SYM                                                   GEN       435
                          11612                   BX6    X1*X2                                                   GEN       436
           151  5160000000 X                      SA6    FILL.3                                                  GEN       437
                          0100000000 X            FATAL  B7                                                      GEN       438
           152  0400000140 +                      EQ     EXIT.                                                   GEN       439
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    12
        /SUBS  S U B S C R I P T S
  
                                         SUBS     SECT   (S U B S C R I P T S),1                                 GEN       440
  
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    13
        /SUBS  S U B S C R I P T S                                    SUBSPTS 
  
                                        **        SUBSCRIPTS - FOLLOWING SECTION CONTAINS ALL CODE RELATED TO    GEN       443
                                        *         PASS 1, AND PASS 2 PROCESSING OF SUBSCRIPTS.                   GEN       444
                                        *                                                                        GEN       445
                                        *         1.  GENERAL DESCRIPTION OF ACTION TAKEN DURING PASS 1.         GEN       446
                                        *                                                                        GEN       447
                                        *         2.  GENERAL DESCRIPTION OF ACTION TAKEN DURING PASS 2.         GEN       448
                                                                                                                 GEN       449
  
  
  
  
                                        **        MISCELLANEOUS CONSTANTS USED BY SUBSCRIPT PROCESSORS.          GEN       451
                                        *                                                                        GEN       452
                                        *         *DIM* = DIMENSION LENGTH.                                      GEN       453
                                        **T DIM   60/DIMENSION LENGTH                                            GEN       454
                                        *                                                                        GEN       455
                                        *         *DIMUL* = CURRENT SUBSCRIPT MULTIPLIER.                        GEN       456
                                        **T DIMUL 60/CURRENT SUBSCRIPT MULTIPLIER.                               GEN       457
                                        *                                                                        GEN       458
                                        *         *DIMBIAS* = BIAS FOR SUBSCRIPT.                                GEN       459
                                        **T DIMBIAS 12/0,24/RUNNING TOTAL,24/CURRENT BIAS                        GEN       460
                                        *                                                                        GEN       461
                                        *         *DIMSYM* = SYMBOL FOR ARRAY BEING PROCESSED.                   GEN       462
                                        **T DIMSYM  18/SATAG,5/0,1/A,18/SVBIAS,18/SDIMNO                         GEN       463
                                        *         *A* = *SANSI*                                                  GEN       464
                                                                                                                 GEN       465
                                                                                                                 GEN       466
           153  00000000000000000000     DIM      DATA   0           DIMENSION LENGTH.                           GEN       467
           154  00000000000000000000     DIMUL    DATA   0           CURRENT SUBSCRIPT MULTIPLIER.               GEN       468
           155  00000000000000000000     DIMBIAS  DATA   0           BIAS FOR SUBSCRIPT.                         GEN       469
                                                                                                                 GEN       470
           156  00000000000000000000     DIMSYM   DATA   0           SYMBOL FOR ARRAY CURRENTLY PROCESSING.      GEN       471
                                         SDIMNO   DEFINE 0,18        CURRENT DIMENSION NUMBER.                   GEN       472
                                         SVBIAS   DEFINE 18,MAX.DIM  INDICATE DIMENSIONALITY IS A VARIABLE       GEN       473
                                         SANSI    DEFINE 36          NO ANSI ERROR FOUND IF 0                    GEN       474
                                                  IFGT   P.SVBIAS+L.SVBIAS,P.SATAG,1                             GEN       475
                                         9        ERR    NUMBER OF SUBSCRIPTS DEFINED EXCEEDS COMPILER LIMITS    GEN       476
  
  
  
  
                                        **        SUBERR - SUBSCRIPT ERROR MACRO                                 GEN       478
                                        *                                                                        GEN       479
                                        *         SUBERR ERRADDR                                                 GEN       480
                                        *                                                                        GEN       481
                                        *         ERRADDR = ERROR SKELETON ADDRESS (B7).                         GEN       482
                                        *                   MUST HAVE RETURN ADDRESS = *.                        GEN       483
                                                                                                                 GEN       484
                                                                                                                 GEN       485
                                         SUBERR   MACRO  ERRADDR                                                 GEN       486
                                                  =B7    ERRADDR                                                 GEN       487
                                                  RJ     OSE                                                     GEN       488
                                         SUBERR   ENDM                                                           GEN       489
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    14
        /SUBS  S U B S C R I P T S                                    CSR 
  
                                        **        CSR -  CHECK SUBSCRIPT RESULTS                                 GEN       491
                                        *                                                                        GEN       492
                                        *         ENTRY  (X1) = RESULTS FROM SUBSCRIPT JUST FINISHED PROCESSING  GEN       493
                                        *                (X4) = ARGCOMA                                          GEN       494
                                        *                (DIMBIAS) = LOWER 24 BITS = ADDIN CONSTANTS FOUND BY    GEN       495
                                        *                            *PSO* WHILE PROCESSING CURRENT SUBSCRIPT    GEN       496
                                        *                                                                        GEN       497
                                        *         EXIT   (X4) = (ARGCOMA)                                        GEN       498
                                        *                (X6) = (DIMBIAS) UPDATED                                GEN       499
                                        *                (SRES)= 0, IF RESULTS OF SUBSCRIPT NOT A CONSTANT.      GEN       500
                                        *                           OTHERWISE BINARY OF SUBSCRIPT CONSTANT.      GEN       501
                                        *                                                                        GEN       502
                                        *         USES   A1,A2,A3  X0  B2,B7                                     GEN       503
                                                                                                                 GEN       504
                                                                                                                 GEN       505
           157  0400400157 +             CSR      SUBR               ENTRY/EXIT..                                GEN       506
                                                                                                                 GEN       507
                                         SNAP=S   IFNE   TEST        DUMP REGISTERS IF SNAP=S                    GEN       508
                                                  SA2    CO.SNAP                                                 GEN       509
                                                  LX2    1RS                                                     GEN       510
                                                  PL     X2,CSR1SN   IF *S* SNAP NOT SELECTED                    GEN       511
                                         CSR      REG                                                            GEN       512
                                         CSR1SN   BSS    0                                                       GEN       513
                                         SNAP=S   ENDIF                                                          GEN       514
                                                                                                                 GEN       515
           160  43071                             MX0    -L.MODE                                                 GEN       516
                     15010                        BX0    -X0*X1                                                  GEN       517
                          6220777775              =B2    X0-M.INT                                                GEN       518
           161  0420000166 +                      ZR     B2,CSR5     IF SUBSCRIPT RESULTS INTEGER.               GEN       519
                          63200                   =B2    X0-M.UNIV                                               FCC0498    47
           162  0420000166 +                      ZR     B2,CSR5     IF SUBSCRIPT RESULTS MODELESS               FCC0498    48
                          10644                   BX6    X4                                                      GEN       520
           163  5160001602 +                      SA6    MODECON     SAVE *ARGCOMA*                              GEN       521
                          77761                   =X7    B6-1                                                    GEN       522
           164  0100000417 +                      RJ     ISR         INTEGERIZE SUBSCRIPT                        GEN       523
           165  5140001602 +                      SA4    MODECON     RESTORE *ARGCOMA*                           GEN       524
           166  0100000000 X             CSR5     RJ     LCT         CHECK IF CONSTANT RESULTS                   GEN       525
           167  5110000155 +                      SA1    DIMBIAS                                                 GEN       526
                          43052                   MX0    -L.2BIAS                                                GEN       527
                               76720              SX7    B2                                                      FCC1210     5
           170  5160001057 +                      SA6    SRES        SUBSCRIPT RESULT                            FCC1210     6
                          5076000001              =A7    A6-SRES+SIND  SUBSCRIPT INDICATOR                       FCC1210     7
           171  5130000154 +                      SA3    DIMUL       CURRENT MULTIPLIER                          GEN       529
                          15210                   BX2    -X0*X1      CONSTANTS FOUND WITHIN SUBSCRIPT            GEN       530
                               20252              LX2    60-L.2BIAS                                              GEN       531
           172  21252                             AX2    60-L.2BIAS  CURRENT BIAS                                GEN       532
                     0333000175 +                 MI     X3,CSR6     IF CONSTANT TERM                            GEN       533
           173  7252777776                        =X5    X2-1                                                    GEN       534
                          42553                   DX5    X5*X3       (BIAS - 1) * MULTIPLIER                     GEN       535
                               36756              IX7    X5+X6       ADD ANY CONSTANT RESULT TO BIAS             GEN       536
           174  0400000177 +                      EQ     CSR12                                                   GEN       537
                                                                                                                 GEN       538
           175  22513                    CSR6     LX5    B1,X3                                                   GEN       539
                     36726                        IX7    X2+X6       BIAS+CONSTANT RESULT                        GEN       540
                          0335000201 +            MI     X5,CSR20    IF VARIABLE DIMENSION MULTIPLIER            GEN       541
           176  23615                             AX6    B1,X5       ACTUAL MULTIPLIER                           GEN       542
                     37776                        IX7    X7-X6       SUBTRACT MULTIPLIER FROM BIAS               GEN       543
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    15
        /SUBS  S U B S C R I P T S                                    CSR 
  
                          54630                   SA6    A3                                                      GEN       544
                                                                                                                 GEN       545
                                        *         (X1) = LAST BIAS   36/ LAST BIAS, 24/GARBAGE                   GEN       546
                                        *         (X7) = BIAS FOUND WITHIN CURRENT SUBSCRIPT, 36/GARBAGE,24/BIAS GEN       547
                                                                                                                 GEN       548
           177  21130                    CSR12    AX1    24                                                      GEN       549
                     36617                        IX6    X1+X7       ADD IN LAST BIAS - CLEAR CURRENT            GEN       550
                          20630                   LX6    24                                                      GEN       551
           200  5160000155 +                      SA6    DIMBIAS     RESET DIMBIAS                               GEN       552
                          0400000157 +            EQ     EXIT.                                                   GEN       553
                                        *                                                                        GEN       554
                                        *          CURRENT MULTIPLIER IS VARIABLE....OUTPUT TURPLES              GEN       555
                                        *                 (1) VARIABLE MULTIPLIER*CURRENT BIAS                   GEN       556
                                        *                 (2) CURRENT RESULT + INTERMEDIATE OF (1)               GEN       557
                                        *                                                                        GEN       558
                                        *          (X2) = CURRENT BIAS                                           GEN       559
                                        *          (X3) = -VARIABLE MULTIPLIER TAG (P.2TAG PORTION ONLY)         GEN       560
                                        *                                                                        GEN       561
           201  7222777776               CSR20    =X2    X2-1                                                    FCC0868     5
                          6222777776              =B2    X2-1                                                    FCC0868     6
           202  76700                             =X7    0                                                       GEN       563
                     0302000177 +                 ZR     X2,CSR12    UPDATE DIMBIAS, CURRENT BIAS=0.             GEN       564
                               14533              BX5    -X3                                                     GEN       565
           203  7110010002                        SX1    M.INT+M.2PRO                                            FCC0868     7
                          20552                   LX5    P.2TAG      GENERATE PASS 2 VARIABLE TAG                FCC0868     8
                               36551              IX5    X5+X1       PASS 2 VARDIM TAG                           FCC0868     9
           204  22604                             LX6    X4                                                      GEN       566
                     6166000002                   SB6    B6+2                                                    GEN       567
           205  5170000000 X                      SA7    ATTR        CLEAR ATTRIBUTES CELL                       GEN       568
                          5160000225 +            SA6    CSRA        SAVE *X4*                                   FCC0868    10
           206  0520000210 +                      NZ     B2,CSR25    IF DIMBIAS " 1                              FCC0868    11
                          10655                   BX6    X5                                                      FCC0868    12
                               67661              =B6    B6-1                                                    FCC0868    13
           207  57661                             =A6    B6-1                                                    FCC0868    14
                     0400000216 +                 EQ     CSR30                                                   FCC0868    15
           210  22602                    CSR25    LX6    X2          CONSTANT BIAS                               FCC0868    16
                     0100000000 X                 RJ     NCS         GENERATE CORRECT CONSTANT TAG.              GEN       571
                                        *                            (X6) = CONSTANT TAG                         GEN       572
                                        *                            (X5) = V.TAG                                GEN       573
           211  10466                             BX4    X6          CONSTANT TAG                                GEN       576
                     5120000000 X                 SA2    MULT        MULTIPLY OPERATOR                           GEN       578
                               43052              MX0    -L.SBPR                                                 GEN       579
           212  7110000006                        SX1    O.MULT                                                  GEN       580
                          11302                   BX3    X0*X2       CLEAR *SB* PRIORITY                         GEN       581
                               36631              IX6    X3+X1       PASS 2 MULTIPLY OPERATOR                    GEN       582
           213  22306                             LX3    X6                                                      GEN       583
                     5160000000 X                 SA6    SOPR        SET CURRENT OPERATOR                        GEN       584
           214  0100000000 X                      RJ     SDM                                                     GEN       585
           215  0100000000 X                      RJ     ADT         PUT TURPLE ON TT.PAR FILE                   GEN       586
           216  5120000000 X             CSR30    SA2    PLUS        PLUS OPERATOR WORD                          FCC0868    17
                          7110000004              SX1    O.PL                                                    GEN       588
           217  43052                             MX0    -L.SBPR                                                 GEN       589
                     57561                        =A5    B6-1        RESULT OF MULTIPLY TURPLE                   GEN       590
                          11302                   BX3    X0*X2       CLEAR *SB* PRIORITY FROM OPERATOR           GEN       591
                               55451              =A4    A5-1        RESULT TAG OF CURRENT SUBSCRIPT             GEN       592
           220  36631                             IX6    X3+X1       PASS 2 PLUS OPERATOR                        GEN       593
                     22306                        LX3    X6                                                      GEN       594
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    16
        /SUBS  S U B S C R I P T S                                    CSR 
  
                          5160000000 X            SA6    SOPR        SET CURRENT OPERATOR                        GEN       595
           221  0100000000 X                      RJ     SDM                                                     GEN       596
           222  0100000000 X                      RJ     ADT         PUT PLUS TURPLE ON TT.PAR FILE              GEN       597
           223  5110000155 +                      SA1    DIMBIAS     CURRENT BIAS                                GEN       598
                          5140000225 +            SA4    CSRA        RESTORE *X4*                                GEN       599
           224  76700                             =X7    0                                                       GEN       600
                     0400000177 +                 EQ     CSR12                                                   GEN       601
           225                     1     CSRA     BSS    1                                                       GEN       602
  
  
  
  
                                        **        CVT -  COMPUTE *VARDIM* TAG FOR SUBSCRIPT PROCESSORS.          GEN       604
                                        *                                                                        GEN       605
                                        *         ENTRY  (B2) = SUBSCRIPT NUMBER FOR V-TAG.                      GEN       606
                                        *                (B3) = ORDINAL OF *TP.DIM* INFO FOR THIS ARRAY.         GEN       607
                                        *                                                                        GEN       608
                                        *         EXIT   (X6) = V-TAG OF USE FOR SUBSCRIPT MULTIPLIER OR         GEN       609
                                        *                    LENGTH DEPENDING ON ENTRY CONDITIONS DEFINED BY     GEN       610
                                        *                    B2.                                                 GEN       611
                                        **T       (X6)  L.TAG/V-TAG, L.BIAS/0, L.FPNO/0, L.2CLAS/0, L.MODE/M.INT GEN       612
                                        *                       (PASS *2* FORM)                                  GEN       613
                                        *                                                                        GEN       614
                                        *         USES   A1,A2,A3,A4,A5,A6,A7  X0  B2,B3,B7                      GEN       615
                                        *                (SCR2 - SCR2+3)                                         GEN       616
                                        *         NOTE -- X3,X4,X5 ARE PRESERVED.                                GEN       617
                                        *                                                                        GEN       618
                                        *         CALLS  ALLOC                                                   GEN       619
                                                                                                                 GEN       620
                                                                                                                 GEN       621
           226  0400400226 +             CVT      SUBR               ENTRY/EXIT...                               GEN       622
           227  5110000000 X                      SA1    TP.DIM                                                  GEN       623
                          5122000273 +            SA2    B2+DIMPT.                                               GEN       624
           230  63713                             SB7    X1+B3                                                   GEN       625
                     76620                        SX6    B2                                                      GEN       626
                          53327                   SA3    X2+B7       LOAD TP.DIM ENTRY                           GEN       627
                               21222              AX2    18                                                      GEN       628
           231  5160000303 +                      SA6    CVTA                                                    GEN       629
                          10133                   BX1    X3                                                      GEN       630
           232  0302000233 +                      ZR     X2,CVT10    IF DIMENSIONALITY IN LOW ORDER              GEN       631
                          21336                   AX3    P.DIM                                                   GEN       632
           233  10633                    CVT10    BX6    X3                                                      GEN       633
                     20645                        IFBIT  X6,-SDIM,CVT20    IF VARDIM TAG NOT PROCESSED           GEN       634
           234  43052                             MX0    -L.TAG                                                  GEN       635
                     15630                        BX6    -X0*X3      CURRENT V.TAG                               FEAT155G  365
                          22206                   LX2    X6                                                      GEN       637
                               20252              LX2    P.2TAG                                                  GEN       638
           235  0400000226 +                      EQ     EXIT.                                                   GEN       639
                                                                                                                 GEN       640
                                        *         SUBSCRIPT DIMENSIONALITY IS A VARIABLE AND HAS NOT YET BEEN    GEN       641
                                        *         PROCESSED INTO A LOCAL *VARDIM* CELL.                          GEN       642
                                        *         (X3) _ SYMBOL TABLE ORDINAL FOR VARIABLE                       GEN       643
                                                                                                                 GEN       644
           236  43052                    CVT20    MX0    -L.TAG                                                  GEN       645
                     5120000000 X                 SA2    TS.SYM                                                  GEN       646
                               22704              LX7    X4                                                      GEN       647
           237  10655                             BX6    X5                                                      GEN       648
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    17
        /SUBS  S U B S C R I P T S                                    CVT 
  
                     5170000000 X                 SA7    SCR2        SAVE *X4*                                   GEN       649
                               54671              =A6    A7+1        SAVE *X5*                                   GEN       650
           240  15630                             BX6    -X0*X3                                                  GEN       651
                     20344                        LX3    -P.TDIM-1                                               GEN       652
                          0333000243 +            MI     X3,CVT22    IF CURRENT DIMENSION IS VARIABLE            GEN       653
           241  7170000002                        SX7    M.INT                                                   GEN       654
                          0100000000 X            RJ     NCS         GENERATE CORRECT CONSTANT                   GEN       655
           242  10466                             BX4    X6                                                      GEN       656
                     0400000255 +                 EQ     CVT30                                                   GEN       657
                                                                                                                 GEN       658
           243  63720                    CVT22    SB7    X2                                                      GEN       659
                     53167                        SA1    X6+B7       VARIABLE DIMENSION                          GEN       660
                          0100000000 X            RJ     CT2         PASS *2* FORM                               GEN       661
           244  10466                             BX4    X6                                                      GEN       662
                     0521000255 +                 NE1    B2,CVT30    IF NOT 1ST SUBSCRIPT                        GEN       663
           245                           CVT25    BSS    0                                                       FEAT155G  366
           245  5110000000 X                      ALLOC  T.VDIM,L.TURP                                           GEN       665
           247  77571                             =X5    B7-1                                                    GEN       666
                                                                                                                 GEN       667
                                        *         OUTPUT *O.=* MACRO TO *VARDIM* FILE.                           GEN       668
                                        *         (X5) = NEXT TABLE ENTRY                                        GEN       669
                                                                                                                 GEN       670
                     5120000000 X                 SA2    TG.VDIM     CURRENT VARIABLE DIMENSION TAG              GEN       671
                               73621             =X6    X2+1                                                     GEN       672
           250  5110000303 +                      SA1    CVTA                                                    GEN       673
                          54620                   SA6    A2                                                      FEAT155G  367
                               63210              SB2    X1                                                      GEN       675
           251  0100000571 +                      RJ     SVT         SET VARDIM TAG IN *DIM* TABLE               GEN       676
           252  22704                             LX7    X4          DIMENSIONALITY                              GEN       677
                     10622                        BX6    X2          V-TAG                                       GEN       678
                          53650                   =A6    X5          OR.2OP = *V-TAG*                            GEN       679
           253  5130000000 X                      SA3    VD.EQ                                                   GEN       680
                          55761                   =A7    A6-1        OR.1OP = VARIABLE DIMENSION                 GEN       681
                               10633              BX6    X3                                                      GEN       682
           254  55671                             =A6    A7-1                                                    GEN       683
                     0400000272 +                 EQ     CVT45       SET EXIT CONDITIONS                         GEN       684
                                                                                                                 GEN       685
                                        *         SUBSCRIPT NOT LAST ONE TO BE PROCESSED, CHECK IF               GEN       686
                                        *         NEXT TO LAST ONE ALREADY CONVERTED TO LOCAL CELL AND           GEN       687
                                        *         OUTPUT MULTIPLY TO GET CURRENT SUBSCRIPT.                      GEN       688
                                        *         (X4) = SYMBOL TABLE TAG FOR DIMENSIONALITY                     GEN       689
                                                                                                                 GEN       690
           255  5110000154 +            CVT30    SA1    DIMUL                                                    GEN       691
                          0321000267 +           PL     X1,CVT40    IF FIRST VARIABLE DIMENSION                  GEN       692
           256  14211                            BX2    -X1         PREVIOUS DIM. MULTIPLIER TAG                 GEN       693
                     7130010002                  SX3    M.INT+M.2PRO                                             GEN       694
                               20252             LX2    P.2TAG                                                   GEN       695
           257  12523                            BX5    X2+X3                                                    GEN       696
           260  5110000000 X            CVT35    ALLOC  T.VDIM,L.TURP                                            GEN       697
           262  22705                            LX7    X5          PREVIOUS MULT. TAG (PASS 2 FORMAT)           GEN       698
                     22604                       LX6    X4          CURRENT DIMENSION TAG                        GEN       699
                          5130000000 X           SA3    VD.MULT                                                  GEN       700
           263  57771                            =A7    B7-1                                                     GEN       701
                     22703                       LX7    X3                                                       GEN       702
                          55671                  =A6    A7-1                                                     GEN       703
           264  5110000000 X                     SA1    T.VDIM      ORIGIN OF T.VDIM FILE                        GEN       704
                          55761                  =A7    A6-1        MULTIPLY OPERATOR TO T.VDIM                  GEN       705
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    18
        /SUBS  S U B S C R I P T S                                    CVT 
  
                               74270             SX2    A7          ADDRESS OF MULTIPLY OPERATOR IN T.VDIM       GEN       706
           265  37321                            IX3    X2-X1       RELATIVE ADDRESS OF MULTIPLY TURPLE          GEN       707
                     20352                       LX3    P.2TAG                                                   GEN       708
                          5120000000 X           SA2    VD.INTR       MAKE INTERMEDIATE TAG FOR STORE TURPLE     GEN       709
           266  12423                            BX4    X2+X3                                                    GEN       710
                     0400000245 +                EQ     CVT25       PUT STORE TURPLE ON T.VDIM FILE              GEN       711
           267  22601                   CVT40    LX6    X1          PREVIOUS MULTIPLY CONSTANT                   GEN       712
                     7170000002                  SX7    M.INT                                                    GEN       713
           270  0100000000 X                     RJ     NCS         GENERATE CORRECT CONSTANT TAG                GEN       714
           271  22506                            LX5    X6                                                       GEN       715
                     0400000260 +                EQ     CVT35       GENERATE NEW MULTIPLIER.                     GEN       716
                                                                                                                 GEN       717
                                        *         SET EXIT CONDITIONS, RESTORE REGISTERS                         GEN       718
                                        *         (X2) = V-TAG IN LOW ORDER 18 BITS                              GEN       719
                                                                                                                 GEN       720
           272  5140000000 X             CVT45    SA4    SCR2        RESTORE *X4*                                GEN       721
                          10622                   BX6    X2                                                      GEN       722
                               54541              =A5    A4+1        RESTORE *X5*                                GEN       723
           273  21652                             AX6    P.2TAG                                                  FEAT155G  368
                     0400000226 +                 EQ     EXIT.                                                   GEN       725
                                                                                                                 GEN       726
           274                                    BSS    0                                                       GEN       727
                                 273 +   DIMPT.   EQU    *-1                                                     GEN       728
           274  00000000000001000001              VFD    24/0,18/1,18/1     DIMENSIONALITY = 1                   GEN       729
           275  00000000000000000002              VFD    24/0,18/0,18/2     DIMENSIONALITY = 2                   GEN       730
           276  00000000000001000002              VFD    24/0,18/1,18/2     DIMENSIONALITY = 3                   GEN       731
           277  00000000000000000003              VFD    24/0,18/0,18/3     DIMENSIONALITY = 4                   GEN       732
           300  00000000000001000003              VFD    24/0,18/1,18/3     DIMENSIONALITY = 5                   GEN       733
           301  00000000000000000004              VFD    24/0,18/0,18/4     DIMENSIONALITY = 6                   GEN       734
           302  00000000000001000004              VFD    24/0,18/1,18/4     DIMENSIONALITY = 7                   GEN       735
                                                                                                                 GEN       736
           303  00000000000000000000     CVTA     DATA   0                                                       GEN       737
  
  
  
  
                                        **        C=ARRAY -  RESET DIMENSION MULTIPLIER FOR SUBSCRIPT OPERATION. GEN       739
                                        *                                                                        GEN       740
                                        *         C=ARRAY UPDATES.                                               GEN       741
                                        *                1. DIMUL   CURRENT SUBSCRIPT MULTIPLIER.                GEN       742
                                        *                2. DIM     CURRENT DIMENSIONALITY.                      GEN       743
                                        *                3. DIMBIAS (IF LAST SUBSCRIPT RESULTED IN A CONSTANT)   GEN       744
                                        *                                                                        GEN       745
                                        *         ENTRY  (X3) = COMMA OPERATOR.                                  GEN       746
                                        *                (X5) = RESULTS FROM CURRENT SUBSCRIPT                   GEN       747
                                        *                (B5) _ SPECIAL LEFT PAREN FOR CURRENT ARRAY.            GEN       748
                                        *                                                                        GEN       749
                                        *         EXIT   (B4) UPDATED BY 1.                                      GEN       750
                                        *                IF AN ERROR OCCURED IN PROCESSING CURRENT SUBSCRIPT     GEN       751
                                        *                EXIT IS TO *EOS*.                                       GEN       752
                                        *                OTHERWISE EXIT IS TO PAR.NX.                            GEN       753
                                        *                                                                        GEN       754
                                        *         USES   A1,A2,A3  X0  B2,B3,B7                                  GEN       755
                                        *                                                                        GEN       756
                                        *         CALLS  CSR                                                     GEN       757
                                                                                                                 GEN       758
                                                                                                                 GEN       759
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    19
        /SUBS  S U B S C R I P T S                                    C=ARRAY 
  
           304                           C=ARRAY  BSS    0           ENTRY...                                    GEN       760
           304  5140000000 X                      SA4    ARGCOMA                                                 GEN       761
                          10155                   BX1    X5                                                      GEN       762
           305  0100000157 +                      RJ     CSR         CHECK SUBSCRIPT RESULTS                     GEN       763
                                                                                                                 GEN       764
                                        **        (X4) = ARGCOMA                                                 GEN       765
                                                                                                                 GEN       766
           306  10044                             BX0    X4                                                      GEN       767
                     21422                        AX4    P.ACM                                                   GEN       768
                          63240                   SB2    X4          ORDINAL OF DIMENSION                        GEN       769
           307  5110000000 X                      SA1    TP.DIM                                                  GEN       770
                          10600                   BX6    X0          ARGCOMA IF NOT INTO NEW WORD.               GEN       771
                               53312              SA3    X1+B2       LOAD NEXT DIMENSIONALITY WORD.              GEN       772
           310  20073                             LX0    59                                                      GEN       773
                     5140000153 +                 SA4    DIM                                                     GEN       774
           311  0330000313 +                      MI     X0,C=AR50   IF EVEN SUBSCRIPT NUMBER.                   GEN       775
                          76110                   =X1    1                                                       GEN       776
                               21336              AX3    P.DIM       CURRENT DIMENSIONALITY                      GEN       777
           312  20122                             LX1    P.ACM                                                   GEN       778
                     36661                        IX6    X6+X1       RESET DIMENSIONALITY (TP.DIM) POINTER WORD  GEN       779
           313                           C=AR50   BSS    0                                                       FCC0575     8
           313  5160000000 X                      SA6    ARGCOMA     UPDATE ARGCOMA.                             GEN       781
                          5110000154 +            SA1    DIMUL                                                   GEN       782
                                                                                                                 GEN       783
                                                                                                                 GEN       784
                                        **        PROCESS BIAS IF DIMENSIONALITY IS CONSTANT                     GEN       785
                                        *         (A1) _ DIMUL.                                                  GEN       786
                                        *         (X1) = LAST VALUE OF *DIMUL*                                   GEN       787
                                        *         (A4) _ DIM.                                                    GEN       788
                                        *         (X3) = NEW DIMENSIONALITY.                                     GEN       789
                                                                                                                 GEN       790
           314  43044                             MX0    -L.DIM                                                  GEN       791
                     15730                        BX7    -X0*X3                                                  GEN       792
                          54740                   SA7    A4          RESET CURRENT DIMENSION (DIM)               GEN       793
                               10244              BX2    X4                                                      GEN       794
           315  0331000327 +                      MI     X1,C=AR75   IF CURRENT MULTIPLIER IS VARIABLE           GEN       795
                          20244                   LX2    -P.TDIM-1                                               GEN       796
           316  0332000327 +                      MI     X2,C=AR75   IF CURRENT DIMENSION IS VARIABLE            GEN       797
                          42714                   IX7    X1*X4                                                   GEN       798
                               54710              SA7    A1          RESET DIMENSION MULTIPLIER.                 GEN       799
           317  5130001057 +                      SA3    SRES                                                    GEN       800
                          22207                   LX2    X7                                                      GEN       801
                                                                                                                 GEN       802
                                        **        RESET DIMENSION MULTIPLIER.                                    GEN       803
                                        *         (X2) = CURRENT MULTIPLIER                                      GEN       804
                                        *         (X3) " 0, IF CONSTANT RESULTS FROM PREVIOUS SUBSCRIPT.         GEN       805
                                                                                                                 GEN       806
           320  6272777776                        SB7    X2-1                                                    GEN       807
                          5140000000 X            SA4    PLUS(S                                                  GEN       808
           321  7150000004                        =X5    O.PL                                                    GEN       809
                          76171                   =X1    B7+1                                                    GEN       810
                               63230              SB2    X3                                                      GEN       811
           322  0570000324 +                      NZ     B7,C=AR72   IF CURRENT MULTIPLIER NOT = 1               GEN       812
                          0521000340 +            NE1    B2,C=AR90   IF CURRENT RESULTS NOT = 1                  GEN       813
           323  67661                             =B6    B6-1        ELIMINATE LAST RESULTS, ALREADY IN DIMBIAS  GEN       814
                     66441                        =B4    B4+1        SET = NEXT ELEMENT                          GEN       815
                          0400000000 X            EQ     PAR.NX      CONTINUE                                    GEN       816
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    20
        /SUBS  S U B S C R I P T S                                    C=ARRAY 
  
                                                                                                                 GEN       817
                                        **        IF RESULTS FROM LAST SUBSCRIPT NOT = 1                         GEN       818
                                        *         (X1) = MULTIPLIER IN LOWER 18 BITS                             GEN       819
                                                                                                                 GEN       820
           324  20152                    C=AR72   LX1    P.SHC                                                   GEN       821
                     7120014002                   =X2    M.SMULT+M.SHORT+M.INT                                   GEN       822
           325  0303000335 +                      ZR     X3,C=AR80   IF PREVIOUS SUBSCRIPT NOT SIMPLE CONSTANT   GEN       823
                          67661                   =B6    B6-1                                                    GEN       824
           326  0400000336 +                      EQ     C=AR85      BYPASS ADD IN OF CONSTANT.                  GEN       825
                                                                                                                 GEN       826
                                        **        PROCESS SETTING OF VARIABLE DIMENSION TAG AS SUBSCRIPT         GEN       827
                                        *         MULTIPLIER.                                                    GEN       828
                                        *                                                                        GEN       829
                                        *         (X6) = ARGCOMA                                                 GEN       830
                                        *                                                                        GEN       831
           327  10066                   C=AR75   BX0    X6                                                       GEN       832
                     63260                       SB2    X6          CURRENT SUBSCRIPT NUMBER (1-7)               GEN       833
                          21044                  AX0    2*18                                                     GEN       834
                               63300             SB3    X0          *TP.DIM* ORDINAL (CONTROL WORD)              GEN       835
           330  0100000226 +                     RJ     CVT         COMPUTE NEXT VARDIM MULTIPLIER TAG           GEN       836
           331  10122                            BX1    X2          NEXT MULTIPLIER TAG                          GEN       837
                     5140000000 X                SA4    PLUS(S      SUBSCRIPT PLUS OPERATOR                      GEN       838
                               14666             BX6    -X6         NEGATIVE MULTIPLIER FLAGS VARDIM             GEN       839
           332  7120010002                       =X2    M.2PRO+M.INT                                             GEN       840
                          5160000154 +           SA6    DIMUL       SET NEW MULTIPLIER                           GEN       841
           333  5130001060 +                      SA3    SIND                                                    FCC1210     8
                          0303000335 +            ZR     X3,C=AR80   IF RESULT NOT CONSTANT                      GEN       843
           334  67661                             =B6    B6-1         REMOVE CONSTANT RESULT FROM ESTACK         GEN       844
                     0400000336 +                 EQ     C=AR85       DONT PUT PLUS OPERATOR ON STACK            GEN       845
                                        **        PLUS OPERATOR TO STACK TO ADD PREVIOUS SUBSCRIPT VALUE         GEN       846
                                        *         (X1) = MULTIPLIER                                              GEN       847
                                        *         (X2) = CLASS AND MODE BITS FOR MULTIPLIER                      GEN       848
                                        *         (X4) = PLUS OPERATOR                                           GEN       849
                                                                                                                 GEN       850
           335  66551                    C=AR80   =B5    B5+1                                                    GEN       851
                     10644                        BX6    X4                                                      GEN       852
                          56650                   SA6    B5          PLUS OPERATOR TO OSTACK.                    GEN       853
                                                                                                                 GEN       854
                                        **        MULTIPLIER TO ELEMENT STACK.                                   GEN       855
                                        *         (X1) = MULTIPLIER SHIFTED BY P.SHC                             GEN       856
                                        *         (X2) = TYPE BITS FOR MULTIPLIER                                GEN       857
                                                                                                                 GEN       858
           336  12612                    C=AR85   BX6    X1+X2                                                   GEN       859
                     5140000000 X                 SA4    MULT(S                                                  GEN       860
                               56660              SA6    B6          MULTIPLIER TO ESTACK.                       GEN       861
           337  66661                             =B6    B6+1                                                    GEN       862
                     7150000006                   =X5    O.STAR                                                  GEN       863
                                                                                                                 GEN       864
                                        **        ADD OR MULTIPLY TO OPERATOR STACK (B5)                         GEN       865
                                        *         (X4) = OPERATOR STACK WORD (EITHER PLUS OR MULTIPLY)           GEN       866
                                        *         (X5) = DPC FOR OPERATOR.                                       GEN       867
                                                                                                                 GEN       868
           340  43052                    C=AR90   MX0    -L.SBPR                                                 GEN       869
                     66551                        =B5    B5+1                                                    GEN       870
                          11104                   BX1    X0*X4                                                   GEN       871
                               66441              =B4    B4+1                                                    GEN       872
           341  36615                             IX6    X1+X5                                                   GEN       873
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    21
        /SUBS  S U B S C R I P T S                                    C=ARRAY 
  
                     56650                        SA6    B5          OPERATOR TO STACK                           GEN       874
                          0400000000 X            EQ     PAR.NX      CONTINUE.                                   GEN       875
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    22
        /SUBS  S U B S C R I P T S                                    A=ARRAY 
  
                                        **        PROCESS CLOSING PAREN FOR CURRENT SUBSCRIPT.                   GEN       877
                                        *         POP HOLDING STACK FOR SUBSCRIPT.                               GEN       878
                                        *                                                                        GEN       879
                                        *         ENTRY  (X2) = (ARGCOMA) = (SCR+1)                              GEN       880
                                        *                (X4) = RESULTING TAG FOR LAST SUBSCRIPT IN THIS         GEN       881
                                        *                       REFERENCE                                        GEN       882
                                        *                                                                        GEN       883
                                        *                                                                        GEN       884
                                        *         FORMS OF STACK ENTRY IS --                                     GEN       885
                                        *                                                                        GEN       886
                                        *         A.  SIMPLE SUBSCRIPT                                           GEN       887
                                        *                N    =  ARGMODE.                                        GEN       888
                                        *                N+1  =  ARGCOMA                                         GEN       889
                                        *                N+2  = (DIMSYM)                                         GEN       890
                                        *                                                                        GEN       891
                                        *         B.  SUBSCRIPTED SUBSCRIPT FORM IS                              GEN       892
                                        *                N - N+2 SAME AS SIMPLE SUBSCRIPT FORM.                  GEN       893
                                        *                N+3  =  CURRENT DIMENSION                               GEN       894
                                        *                N+4  =  CURRENT DIMENSION BIAS                          GEN       895
                                        *                N+5  =  ARRAY DIMENSION ORDINAL.                        GEN       896
                                                                                                                 GEN       897
                                                                                                                 GEN       898
           342                           A=ARRAY  BSS    0                                                       GEN       899
           342  7242000001                        SX4    X2+1        SUBSCRIPT NUMBER                            GEN       900
                          10155                   BX1    X5          RESULTS OF SUBSCRIPT                        GEN       901
           343  0100000157 +                      RJ     CSR         CHECK SUBSCRIPT RESULTS                     GEN       902
                                                                                                                 GEN       903
                                        **        LOAD COMPUTED OFFSET FROM *DIM* TABLE                          GEN       904
                                        *         (X6) = (DIMBIAS)                                               GEN       905
                                                                                                                 GEN       906
           344  5120000156 +                      SA2    DIMSYM                                                  GEN       907
                          5110000000 X            SA1    TS.SYM                                                  GEN       908
           345  21252                             AX2    P.2TAG                                                  GEN       909
                     5130000000 X                 SA3    TP.DIM                                                  GEN       910
           346  6232577777                        SB3    X2-C.SYM                                                GEN       911
                          53213                   SA2    X1+B3       TAG WORD FROM SYMBOL TABLE                  GEN       912
                               43057              MX0    -L.PNT                                                  GEN       913
           347  21230                             AX2    P.PNT                                                   GEN       914
                     15120                        BX1    -X0*X2                                                  GEN       915
                          43044                   MX0    -L.DIMOS                                                GEN       916
                               63310              SB3    X1                                                      GEN       917
           350  53133                             SA1    X3+B3       DIMENSION INFO WORD                         GEN       918
                     21630                        AX6    24                                                      GEN       919
                          15310                   BX3    -X0*X1      DIMENSION OFF-SET COMPUTED AT DECLARATIVE   GEN       920
                                                                                                                 GEN       921
                                        **        (X6) = BIAS - TP.DIM                                           GEN       922
                                        *         (X4) = (ARGCOMA) FOR SUBSCRIPT.                                GEN       923
                                        *         (A2) _ DIMBIAS                                                 GEN       924
                                                                                                                 GEN       925
                                                                                                                 GEN       926
           351  5110000156 +                      SA1    DIMSYM                                                  GEN       927
                          5160000155 +            SA6    DIMBIAS     RESET BIAS                                  GEN       928
           352  73110                             SX1    X1          NUMBER OF DIMENSIONS ONLY                   GEN       929
                     73440                        SX4    X4          SUBSCRIPT COUNT ONLY                        GEN       930
                          37014                   IX0    X1-X4                                                   GEN       931
                               10366              BX3    X6                                                      GEN       932
           353  6220000000                        SB2    X0+0                                                    GEN       933
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    23
        /SUBS  S U B S C R I P T S                                    A=ARRAY 
  
                          0420000361 +            ZR     B2,A=AR20   IF REFERENCE MATCHES DIMENSION.             GEN       934
           354  0620000357 +                      PL     B2,A=AR10   IF FEWER SUBSCRIPTS THAN DIMENSIONED        GEN       935
                          6170000000 X            SUBERR =XE.SB8     FATAL -- TOO MANY SUBSCRIPTS                GEN       936
           356  0400000360 +                      EQ     A=AR15                                                  GEN       937
                                                                                                                 GEN       938
           357  6170000000 X             A=AR10   SUBERR =XE.SB2     SUBSCRIPTED WITH FEWER THAN DIMENSIONED     GEN       939
                                                                                                                 GEN       940
           360  5130000155 +             A=AR15   SA3    DIMBIAS                                                 GEN       941
                                                                                                                 GEN       942
                                        **        DETERMINE TYPE OF SUBSCRIPT AND PROCESS EITHER BY OUTPUT OF    GEN       943
                                        *         A *SUBSCRIPT* MACRO, OR A SIMPLE OPERAND TO OTHER MACRO        GEN       944
                                        *                                                                        GEN       945
                                        *         (X3) = CONSTANT BIAS ON ARRAY REFERENCE                        GEN       946
                                                                                                                 GEN       947
           361  7110000004               A=AR20   SX1    M.LONG                                                  GEN       948
                          5146777775              SA4    B6-2        1ST OPERAND                                 GEN       949
           362  43052                             MX0    -L.2BIAS                                                GEN       950
                     11114                        BX1    X1*X4       SET/CELL LONG BIT                           GEN       951
                          0301000364 +            ZR     X1,A=AR52   IF NOT DOUBLE WORD ARRAY                    GEN       952
           363  20301                             LX3    1           MULTIPLY BIAS BY *2* FOR DOUBLE WORD        GEN       953
           364  20330                    A=AR52   LX3    P.2BIAS                                                 GEN       954
                                                                                                                 GEN       955
                                        **        ADD IN BIAS FIELD.                                             GEN       956
                                        *         (X4) = ARRAY                                                   GEN       957
                                        *         (X5) = ADDRESS FUNCTION FOR *ARRAY* REFERENCE.                 GEN       958
                                                                                                                 GEN       959
                     20030                        LX0    P.2BIAS                                                 GEN       960
                          11104                   BX1    X0*X4       CLEAR BIAS FIELD.                           GEN       961
                               15330              BX3    -X0*X3                                                  GEN       962
           365  66300                             =B3    0           INDICATE IGNORE OPERATOR.                   GEN       963
                     12631                        BX6    X3+X1                                                   GEN       964
                          67661                   =B6    B6-1        ELIMINATE ADDRESS FUNCTION                  GEN       965
           366  5110001060 +                      SA1    SIND        CONSTANT INDICATOR FOR ADDRESS FUNCTION     FCC1210     9
                          10255                   BX2    X5                                                      GEN       967
                               54640              SA6    A4          ADD IN BIAS FIELD TO ARRAY TAG.             GEN       968
           367  5125777774                        SA2    B5-3                                                    GEN       969
                          54521                   =A5    A2+1                                                    GEN       970
                               10622              BX6    X2                                                      GEN       971
           370  22705                             LX7    X5                                                      GEN       972
                     54351                        =A3    A5+1                                                    GEN       973
                          54531                   =A5    A3+1                                                    GEN       974
           371  5160000153 +                      SA6    DIM         RESET (DIM)                                 GEN       975
                          6155777773              SB5    B5-4                                                    GEN       976
           372  10633                             BX6    X3                                                      GEN       977
                     54761                        =A7    A6+1        RESET (DIMUL)                               GEN       978
                          10755                   BX7    X5                                                      GEN       979
                               54671              =A6    A7+1        RESET (DIMBIAS)                             GEN       980
           373  54761                             =A7    A6+1        RESET (DIMSYM)                              GEN       981
                     0311000000 X                 NZ     X1,POPX     IF SUBSCRIPT RESULTED IN CONSTANT           GEN       982
                                                                                                                 GEN       983
                                        **        ADDRESS FUNCTION OTHER THAN SIMPLE CONSTANT.                   GEN       984
                                        *         OUTPUT SUBSCRIPT MACRO.                                        GEN       985
                                                                                                                 GEN       986
                               10144              BX1    X4                                                      FCC1210    10
           374  66661                             =B6    B6+1        ADDRESS FUNCTION ELEMENT NEEDED             GEN       988
                     20171                        IFBIT  X1,-LONG,A=AR56     IF NOT DOUBLE WORD ARRAY            GEN       989
           375  76510                             =X5    1           2ND OPERAND                                 GEN       990
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    24
        /SUBS  S U B S C R I P T S                                    A=ARRAY 
  
                     57461                        =A4    B6-1        1ST OPERAND = ADDRESS FUNCTION              GEN       991
                          5130000000 X            SA3    SHFC                                                    GEN       992
           376  20530                             LX5    P.PTAGM                                                 GEN       993
                     66661                        =B6    B6+1                                                    GEN       994
                          10633                   BX6    X3                                                      GEN       995
           377  5160000000 X                      SA6    SOPR                                                    GEN       996
                          0100000000 X            RJ     ADT                                                     GEN       997
                                                                                                                 GEN       998
           400  57461                    A=AR56   =A4    B6-1        2ND OPERAND                                 FCC2194    12
                     7100041000                   SX0    M.2ARY+M.INTR                                           FCC2194    13
                               11104              BX1    X0*X4                                                   FCC2194    14
           401  13101                             BX1    X0-X1                                                   FCC2194    15
                     43500                        MX5    0                                                       FCC2194    16
                          0311000404 +            NZ     X1,A=AR57   IF NOT SUBSCRIPTED SUBSCRIPT                FCC2194    17
           402  5130000000 X                      SA3    XMITOP                                                  FCC2194    18
                          10633                   BX6    X3                                                      FCC2194    19
                               66661              =B6    B6+1        INCREMENT FOR XMIT TURPLE                   FCC2194    20
           403  5160000000 X                      SA6    SOPR                                                    FCC2194    21
                          0100000000 X            RJ     ADT                                                     FCC2194    22
           404  43001                    A=AR57   MX0    1                                                       FCC2194    23
                     5120000000 X                 SA2    ARGMODE                                                 GEN      1000
                               20050              LX0    P.AMADDR+1                                              GEN      1001
           405  5110000000 X                      SA1    ATTR                                                    GEN      1002
                          11702                   BX7    X0*X2       BRING DOWN ADDRESS BIT FROM *ARGMODE*       GEN      1003
                               21701              AX7    P.AMADDR-P.OPADDR                                       GEN      1004
           406  5130000000 X                      SA3    SUBOP                                                   GEN      1005
                          5146777775              =A4    B6-2        1ST OPERAND                                 GEN      1006
           407  36637                             IX6    X3+X7       ADD ADDRESS BIT, IF SET                     GEN      1007
                     54541                        =A5    A4+1        2ND OPERAND                                 GEN      1008
                          21734                   AX7    P.OPADDR-P.ADDR                                         GEN      1009
           410  7207040400                        SX0    X7+M.ARY+M.2ARY                                         GEN      1010
                          12701                   BX7    X0+X1       ADD IN M.ARY BIT                            GEN      1011
           411  5170000000 X                      SA7    ATTR        ATTRIBUTE = ARRAY                           GEN      1012
                          5160000000 X            SA6    SOPR        SUBSCRIPT OPERATOR.                         GEN      1013
           412  10366                             BX3    X6                                                      GEN      1014
                     0400000000 X                 EQ     POP.STD                                                 GEN      1015
  
  
  
  
                                        **        ISR -  INTEGERIZE SUBSCRIPT                                    GEN      1017
                                        *                                                                        GEN      1018
                                        *         ENTRY  (X1) = SUSBCRIPT OTHER THAN INTEGER TO BE CONVERTED.    GEN      1019
                                        *                (X4) = ARGCOMA.                                         GEN      1020
                                        *                                                                        GEN      1021
                                        *         EXIT   (X1) = TAG FOR INTEGERIZED RESULTS.                     GEN      1022
                                        *                                                                        GEN      1023
                                        *         USES   A1,A2,A3,A4,A5,A6,A7  X0  B2,B3,B7                      GEN      1024
                                        *         CALLS  ADT, NCS                                                GEN      1025
                                                                                                                 GEN      1026
                                                                                                                 GEN      1027
           413  43071                    ISR45    MX0    -L.MODE                                                 GEN      1028
                     76711                        =X7    M.INT                                                   GEN      1029
                          11205                   BX2    X0*X5       EVERYTHING BUT MODE                         GEN      1030
                               12572              BX5    X7+X2       DUMMY MODE AS INTEGER                       GEN      1031
           414  0100000000 X             ISR50    SUBERR B7                                                      GEN      1032
           415  5120000443 +                      SA2    ISRA+1                                                  GEN      1033
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    25
        /SUBS  S U B S C R I P T S                                    ISR 
  
                          10755                   BX7    X5                                                      GEN      1034
                               53720              SA7    X2          SET NEW OPERAND BACK                        GEN      1035
           416  22105                             LX1    X5                                                      GEN      1036
                                                                                                                 GEN      1037
           417  0400400417 +             ISR      SUBR               ENTRY/EXIT...                               GEN      1038
           420  76611                             =X6    M.INT                                                   GEN      1039
                     5170000443 +                 SA7    ISRA+1      SAVE ADDRESS OF OPERAND                     GEN      1040
           421  5160000000 X                      SA6    SMOD        SET RESULT MODE TO INTEGER                  GEN      1041
                          10511                   BX5    X1                                                      GEN      1042
           422  0100000000 X                      RJ     LCT         CHECK IF CONSTANT                           GEN      1043
           423  6230777774                        SB3    X0-M.REAL                                               GEN      1044
                          0630000427 +            PL     B3,ISR5     IF FLOATING POINT                           GEN      1045
           424  6220777776                        SB2    X0-M.LOG                                                GEN      1046
                          6170000000 X            SB7    E.SB4                                                   GEN      1047
           425  0520000413 +                      NZ     B2,ISR45    IF NOT LOGICAL                              GEN      1048
                          6170000000 X            SB7    E.SB6       SUBSCRIPT CAN NOT BE LOGICAL                GEN      1049
           426  0400000413 +                      EQ     ISR45                                                   FCC0498    49
                                                                                                                 GEN      1051
                                        *         IF SUBSCRIPT IS FLOATING POINT                                 GEN      1052
                                                                                                                 GEN      1053
           427  10155                    ISR5     BX1    X5                                                      GEN      1054
                     0420000433 +                 ZR     B2,ISR10    IF NOT SIMPLE CONSTANT                      GEN      1055
                               76711              =X7    M.INT                                                   GEN      1056
           430  26076                             UX0,B7 X6          CONVERT TO INTEGER                          GEN      1057
                     22670                        LX6    B7,X0                                                   GEN      1058
                          0100000000 X            RJ     NCS         ENTER CONSTANT AS INTEGER                   GEN      1059
           431  10566                             BX5    X6                                                      GEN      1060
                     6170000000 X                 SB7    E.SB4                                                   GEN      1061
           432  0400000414 +                      EQ     ISR50       EXIT..                                      GEN      1062
                                                                                                                 GEN      1063
                                        *         SUBSCRIPT NOT SIMPLE CONSTANT                                  GEN      1064
                                                                                                                 GEN      1065
           433  22704                    ISR10    LX7    X4                                                      GEN      1066
                     5170000442 +                 SA7    ISRA        SAVE *X4*                                   GEN      1067
           434  5130000000 X                      SA3    INTMAC                                                  GEN      1068
                          76400                   =X4    0           DUMMY 1ST OPERAND                           GEN      1069
                               10633              BX6    X3                                                      GEN      1070
           435  66661                             =B6    B6+1        DUMMY OPERAND FOR *INT*                     GEN      1071
                     5160000000 X                 SA6    SOPR                                                    GEN      1072
           436  0100000000 X                      RJ     ADT         ADD TURPLE                                  GEN      1073
           437  5116777776                        SA1    B6-1        RESET SUBSCRIPT OPERAND                     GEN      1074
                          10511                   BX5    X1                                                      GEN      1075
           440  6170000000 X                      SB7    E.SB4                                                   GEN      1076
                          5140000442 +            SA4    ISRA        RESTORE *X4*                                GEN      1077
           441  0400000414 +                      EQ     ISR50       OUTPUT NOTE DIAGNOSTIC                      GEN      1078
                                                                                                                 GEN      1079
           442  00000000000000000000     ISRA     DATA   0           SAVE *X4*                                   GEN      1080
           443  00000000000000000000              DATA   0           SAVE OPERAND ADDRESS                        GEN      1081
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    26
        /SUBS  S U B S C R I P T S                                    PSO 
  
                                        **        PSO -  PROCESS SUBSCRIPT OPERATION.                            GEN      1083
                                        *                                                                        GEN      1084
                                        *         *PSO* CHECKS EACH TURPLE BEING POPPED WHILE PROCESSING A       GEN      1085
                                        *         SUBSCRIPT TO ANALYZE IF CURRENT TURPLE CAN BE REDUCED TO A     GEN      1086
                                        *         SIMPLER TURPLE, COMPLETELY ELIMINATED, ADDED TO PREVIOUS       GEN      1087
                                        *         TURPLE OR POPPED AS IS.                                        GEN      1088
                                        *         *PSO* ALSO CHECKS FOR NON-ANSI SUBSCRIPT OPERATIONS, AND       GEN      1089
                                        *         WHETHER CURRENT OPERATION DEFINES A SUBSCRIPT TO BE OUTSIDE    GEN      1090
                                        *         THE LIMITS FOR CURRENT ARRAY SUBSCRIPT IS OPERATING ON.        GEN      1091
                                        *                                                                        GEN      1092
                                        *         ENTRY  CALLED FROM *POP*                                       GEN      1093
                                        *                (X3) = OPERATOR.                                        GEN      1094
                                        *                (X4) = 1ST OPERAND.                                     GEN      1095
                                        *                (X5) = 2ND OPERAND.                                     GEN      1096
                                        *                                                                        GEN      1097
                                        *                (B4) _ NEXT CHARACTER IN *SB*.                          GEN      1098
                                        *                (B6)-2 _ 1ST OPERAND FOR OPERATOR.                      GEN      1099
                                        *                (B6)-1 _ 2ND OPERAND FOR OPERATOR.                      GEN      1100
                                        *                                                                        GEN      1101
                                        *                (A7) _ 2ND OPERAND FOR LAST TURPLE POPPED.              GEN      1102
                                        *                                                                        GEN      1103
                                        *         EXIT   (X3) = 0 SUBSCRIPT PROCESSED.                           GEN      1104
                                        *                       (X3,X4,X5) NOT PRESERVED.                        GEN      1105
                                        *                                                                        GEN      1106
                                        *                (X3) " 0 CONTINUE NORMAL FLOW.                          GEN      1107
                                        *                       (X3,X4,X5) PRESERVED.                            GEN      1108
                                        *                                                                        GEN      1109
                                        *         USES   A1,A2,A3,A6,A7  X0  B2,B3,B7                            GEN      1110
                                        *                (SCR2)                                                  GEN      1111
                                        *         NOTE   IF REDUCED ALSO USES - A4,A5                            GEN      1112
                                        *                                                                        GEN      1113
                                        *         CALLS  CCR, LCT, PCA, PVD                                      GEN      1114
                                                                                                                 GEN      1115
                                                                                                                 GEN      1116
           444  5130000000 X             PSONX    SA3    SOPR        RELOAD OPERATOR WORD                        GEN      1117
           445  7100010000               PSOX     =X0    M.SMULT     CLEAR *SMULT* ON BOTH OPERANDS FOR PASS 2   GEN      1118
                          22104                   LX1    X4                                                      GEN      1119
                               10255              BX2    X5                                                      GEN      1120
           446  21167                             AX1    P.TGB                                                   GEN      1121
                     21267                        AX2    P.TGB                                                   GEN      1122
                          7211777763              SX1    X1-C.VDIM/1S13                                          GEN      1123
           447  0301000450 +                      ZR     X1,PSO80    IF 1ST OPERAND IS *PROGRAM* TAG             GEN      1124
                          15440                   BX4    -X0*X4                                                  GEN      1125
           450  7222777763               PSO80    SX2    X2-C.VDIM/1S13                                          GEN      1126
                          0302000452 +            ZR     X2,PSO81    IF 2ND OPERAND IS *PROGRAM* TAG             GEN      1127
           451  15550                             BX5    -X0*X5                                                  GEN      1128
                                                                                                                 GEN      1129
           452                           PSO81    BSS    0                                                       GEN      1130
                                                                                                                 GEN      1131
                                                                                                                 GEN      1132
           452  0400400452 +             PSO      SUBR   -           ENTRY/EXIT...                               GEN      1133
           453  5120000000 X                      SA2    ARGMODE                                                 GEN      1134
                          6272777435 -            SB7    X2-A=ARRAY                                              GEN      1135
           454  0570000452 +                      NZ     B7,EXIT.    IF NOT IN ARRAY SUBSCRIPT - EXIT            GEN      1136
                          5120003442 +            SA2    ="SUBOPS2"  ANSI TEST (SUBSCRIPT ALREADY NOTED)         FCC0575     9
           455  63230                             SB2    X3                                                      GEN      1138
                     22022                        LX0    B2,X2                                                   GEN      1139
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    27
        /SUBS  S U B S C R I P T S                                    PSO 
  
                          0330000462 +            MI     X0,PSO10    IF LEGAL ANSI OPERATOR.                     GEN      1140
           456  5120000000 X                      SA2    ARGCOMA                                                 GEN      1141
                          10644                   BX6    X4                                                      GEN      1142
                               73421              =X4    X2+1                                                    GEN      1143
           457  5160000442 +                      SA6    ISRA                                                    GEN      1144
                          6170000000 X            SUBERR E.SB3                                                   GEN      1145
           461  5140000442 +                      SA4    ISRA                                                    GEN      1146
                                                                                                                 GEN      1147
                                        **        CHECK IF THIS PART OF SUBSCRIPT IS INTEGER OR MODELESS         FCC0498    50
                                                                                                                 GEN      1149
           462  5120000000 X             PSO10    SA2    SMOD                                                    GEN      1150
                          6272777775              =B7    X2-M.INT                                                GEN      1151
           463  63220                             =B2    X2-M.UNIV                                               FCC0498    51
                     21222                        AX2    18                                                      GEN      1152
                          66300                   =B3    0                                                       GEN      1153
           464  0470000466 +                      ZR     B7,PSO15    IF DOMINANT MODE = INTEGER                  GEN      1154
                          0420000466 +            ZR     B2,PSO15    IF DOMINANT MODE = MODELESS                 FCC0498    52
           465  66310                             =B3    1                                                       GEN      1155
                                                                                                                 GEN      1156
           466  0302000473 +             PSO15    ZR     X2,PSO20    IF NO MIXED MODE                            GEN      1157
                          10644                   BX6    X4                                                      GEN      1158
           467  5110000000 X                      SA1    ARGCOMA                                                 GEN      1159
                          5160000442 +            SA6    ISRA                                                    GEN      1160
           470  73411                             =X4    X1+1                                                    GEN      1161
                     6170000000 X                 SUBERR E.SB7                                                   GEN      1162
           472  5140000442 +                      SA4    ISRA        RELOAD *X4*                                 GEN      1163
                                                                                                                 GEN      1164
                                        **        CHECK IF CURRENT TURPLE IS A SIMPLE CONSTANT COMBINATION.      GEN      1165
                                                                                                                 GEN      1166
           473  6273777771               PSO20    SB7    X3-O.MULT                                               GEN      1167
                          7100010000              =X0    M.SMULT                                                 GEN      1168
           474  0570000506 +                      NZ     B7,PSO25    IF NOT PROCESSING MULTIPLY, NOT SUBS RESULT GEN      1169
                                                                                                                 GEN      1170
                                        *         CHECK IF PROCESSING SUBSCRIPT RESULTS                          GEN      1171
                                                                                                                 GEN      1172
                          5116777775              SA1    B6-2        1ST  OPERAND                                GEN      1173
           475  54211                             =A2    A1+1        2ND  OPERAND                                GEN      1174
                     11701                        BX7    X0*X1       EXTRACT SUBSCRIPT MULTIPLIER BIT            GEN      1175
                          11002                   BX0    X0*X2                                                   GEN      1176
                               36670              IX6    X7+X0                                                   GEN      1177
           476  5160001064 +                      SA6    DIMI        SET IF PROCESSING SUBSCRIPT MULTIPLIER      GEN      1178
                          0430000506 +            ZR     B3,PSO25    IF SUBSCRIPT IS INTEGER                     GEN      1179
           477  0306000506 +                      ZR     X6,PSO25    IF NOT END OF SUBSCRIPT                     GEN      1180
                                                                                                                 GEN      1181
                                        **        TERM PROCESSING IS RESULTS OF SUBSCRIPT AND IS NOT INTEGER     GEN      1182
                                        *         OUTPUT CONVERSION *TURPLE* AND CONTINUE PROCESSING WITH        GEN      1183
                                        *         RESULTS OF CONVERSION * MULTIPLIER.                            GEN      1184
                                                                                                                 GEN      1185
                          7176777775              SX7    B6-2                                                    GEN      1186
           500  22603                             LX6    X3                                                      GEN      1187
                     0310000502 +                 NZ     X0,PSO22    IF 2ND IS DIMENSION MULTIPLIER              GEN      1188
                               10122              BX1    X2                                                      GEN      1189
           501  73771                             =X7    X7+1                                                    GEN      1190
           502  5160001602 +             PSO22    SA6    MODECON     SAVE OPERATOR                               GEN      1191
                          5120000000 X            SA2    ARGCOMA                                                 GEN      1192
           503  73421                             =X4    X2+1        CURRENT SUBSCRIPT NUMBER                    GEN      1193
                     0100000417 +                 RJ     ISR         INTERIZE SUBSCRIPT RESULTS                  GEN      1194
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    28
        /SUBS  S U B S C R I P T S                                    PSO 
  
           504  5130001602 +                      SA3    MODECON     RELOAD OPERATOR                             GEN      1195
                          5146777775              SA4    B6-2                                                    GEN      1196
           505  10633                             BX6    X3                                                      GEN      1197
                     54541                        =A5    A4+1                                                    GEN      1198
                          5160000000 X            SA6    SOPR                                                    GEN      1199
           506  0100000000 X             PSO25    RJ     CCR         CHECK FOR CONSTANT REDUCTION                GEN      1200
           507  5130000000 X                      SA3    SOPR        RELOAD OPERATOR.                            GEN      1201
                          0306000514 +            ZR     X6,PSO30    IF NOT CONSTANT COMBINATION.                GEN      1202
                                                                                                                 GEN      1203
                                        **        HERE IF CURRENT TURPLE IS REDUCED TO SIMPLE TERM               GEN      1204
                                                                                                                 GEN      1205
           510  67661                             =B6    B6-1        UPDATE ESTACK                               GEN      1206
                     13333                        BX3    0           INDICATE SUCCESS.                           GEN      1207
                          57161                   =A1    B6-1                                                    GEN      1208
                               57661              =A6    B6-1                                                    GEN      1209
           511  20157                             IFBIT  X1,-SMULT,PSOX                                          GEN      1210
           512  5150000154 +                      SA5    DIMUL                                                   GEN      1211
                          43001                   MX0    1                                                       GEN      1212
                               12650              BX6    X5+X0                                                   GEN      1213
           513  54650                             SA6    A5                                                      GEN      1214
                     0400000445 +                 EQ     PSOX                                                    GEN      1215
                                                                                                                 GEN      1216
                                        **        HERE IF NOT SIMPLE CONSTANT COMBINATION                        GEN      1217
                                                                                                                 GEN      1218
           514  5120003443 +             PSO30    SA2    ="SUBOPS"                                               GEN      1219
                          0730000445 +            MI     B3,PSOX     IF NOT OF OPERANDS CONSTANT                 GEN      1220
                                                                                                                 GEN      1221
                                        **        HERE IF ONE OPERAND IS CONSTANT, CHECK IF OF THE FORM --       GEN      1222
                                        *         VARIABLE +- CONS  OR  CONS +- VARIABLE                         GEN      1223
                                        *         (B3) = 0, 1ST = CONSTANT                                       GEN      1224
                                        *         (B3) = 1, 2ND = CONSTANT                                       GEN      1225
                                                                                                                 GEN      1226
           515  22002                             LX0    X2                                                      GEN      1227
                     5120000000 X                 SA2    TER1        CONSTANT                                    GEN      1228
                               10155              BX1    X5                                                      GEN      1229
           516  0430000520 +                      ZR     B3,PSO35                                                GEN      1230
                          10144                   BX1    X4                                                      GEN      1231
           517  5120000000 X                      SA2    TER2        CONSTANT                                    GEN      1232
                                                                                                                 GEN      1233
                                        **        (X1) = TAG TERM (OTHER THAN CONSTANT)                          GEN      1234
                                        *         (X2) = CONSTANT TERM (IN BINARY)                               GEN      1235
                                        *         (X3) = OPERATOR.                                               GEN      1236
                                        *         (DIMI) = *SMULT* BIT IF PRESENT IN ONE OF OPERANDS.            GEN      1237
                                                                                                                 GEN      1238
           520  63730                    PSO35    SB7    X3                                                      GEN      1239
                     10722                        BX7    X2                                                      GEN      1240
                          22070                   LX0    B7,X0                                                   GEN      1241
           521  5120000000 X                      SA2    SMOD        DOMINANT MODE                               GEN      1242
                          6272777775              SB7    X2-M.INT                                                GEN      1243
           522  10611                             BX6    X1                                                      GEN      1244
                     0470000524 +                 ZR     B7,PSO40    IF DOMINANT MODE IS INTEGER                 GEN      1245
           523  6272777777                        SB7    X2-M.UNIV                                               GEN      1246
                          0570000445 +            NZ     B7,PSOX     IF DOMINANT MODE NOT UNIVERSAL              GEN      1247
                                                                                                                 GEN      1248
                                        **        (X6) = TAG TERM                                                GEN      1249
                                        *         (X7) = CONSTANT IN BINARY. (INTEGER FORM)                      GEN      1250
                                                                                                                 GEN      1251
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    29
        /SUBS  S U B S C R I P T S                                    PSO 
  
           524  0320000445 +             PSO40    PL     X0,PSOX     IF NOT + OR - OR *                          GEN      1252
                          43071                   MX0    -L.MODE                                                 GEN      1253
                               15240              BX2    -X0*X4                                                  GEN      1254
           525  7222777775                        SX2    X2-M.INT                                                GEN      1255
                          0312000452 +            NZ     X2,EXIT.    IF NOT TYPE INTEGER - EXIT...               GEN      1256
           526  15250                             BX2    -X0*X5                                                  GEN      1257
                     7222777775                   SX2    X2-M.INT                                                GEN      1258
           527  0312000452 +                      NZ     X2,EXIT.    IF NOT TYPE INTEGER - EXIT...               GEN      1259
                          6273777773              SB7    X3-O.PL                                                 GEN      1260
           530  0470000533 +                      ZR     B7,PSO45    IF +                                        GEN      1261
                          67771                   =B7    B7+O.PL-O.MIN                                           GEN      1262
                               10166              BX1    X6                                                      GEN      1263
           531  0570000445 +                      NZ     B7,PSOX     IF * OPERATOR                               GEN      1264
                          14777                   BX7    -X7                                                     GEN      1265
           532  0530000533 +                      NZ     B3,PSO45    IF CONSTANT IS 2ND TERM                     GEN      1266
                          67301                   =B3    -1                                                      GEN      1267
                               14777              BX7    -X7         ADD                                         GEN      1268
                                                                                                                 GEN      1269
                                        **        ELIMINATE OPERATION INVOLVING CONSTANT.                        GEN      1270
                                        *                                                                        GEN      1271
                                        *         RESET BIAS WITH CONSTANT ADD IN.                               GEN      1272
                                        *         (X1) = VARIABLE TO RETURN TO STACK.                            GEN      1273
                                        *         (X7) = CONSTANT ADD IN                                         GEN      1274
                                        *                                                                        GEN      1275
                                        *         REDUCES STACK ENTRY COMPLETELY STORING RESULTS AS LAST OPERAND GEN      1276
                                        *         FOR SUBSCRIPT. AND SETS HIGH ORDER BIT IN *DIMUL* IF ONE OF    GEN      1277
                                        *         OPERANDS IS CURRENT *SUBSCRIPT* MULTIPLIER.                    GEN      1278
                                                                                                                 GEN      1279
                                                                                                                 GEN      1280
           533  5120000155 +             PSO45    SA2    DIMBIAS                                                 GEN      1281
                          43044                   MX0    -24                                                     GEN      1282
                               15320              BX3    -X0*X2                                                  GEN      1283
                                                                                                                 GEN      1284
           534  20352                             LX3    60-L.2BIAS  SIGN EXTEND                                 GEN      1285
                     21352                        AX3    60-L.2BIAS  SIGN EXTEND                                 GEN      1286
                                                                                                                 GEN      1287
                          36637                   IX6    X3+X7                                                   GEN      1288
                               15360              BX3    -X0*X6      LOWER 24 BITS ONLY                          GEN      1289
           535  11220                             BX2    X2*X0       CLEAR CURRENT BIAS FOR UPDATED BIAS         GEN      1290
                     67661                        =B6    B6-1                                                    GEN      1291
                          12632                   BX6    X3+X2       PUT BACK IN BIAS                            GEN      1292
                               10711              BX7    X1                                                      GEN      1293
           536  54620                             SA6    A2          UPDATE BIAS.                                GEN      1294
                     13333                        BX3    0           INDICATE REDUCED.                           GEN      1295
                          57761                   =A7    B6-1        VARIABLE BACK TO ELEMENT STACK              GEN      1296
           537  0630000445 +                      PL     B3,PSOX     IF NOT (CONSTANT - VARIABLE)                GEN      1297
                          43052                   MX0    -L.SBPR                                                 GEN      1298
           540  5120000000 X                      SA2    UMINUS                                                  GEN      1299
                          7110000027              =X1    O.UMIN                                                  GEN      1300
           541  11402                             BX4    X0*X2       NOT *SB* PRIORITY                           GEN      1301
                     66551                        =B5    B5+1                                                    GEN      1302
                          12641                   BX6    X4+X1       ADD *DPC* FOR UNARY MINUS                   GEN      1303
                               56650              =A6    B5          SET UNARY MINUS FOR OPERATOR ON VARIABLE    GEN      1304
           542  0400000445 +                      EQ     PSOX                                                    GEN      1305
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    30
        /SUBS  S U B S C R I P T S                                    SSO 
  
                                        **        SSO -  SET UP SUBSCRIPT OPERATIONS.                            GEN      1310
                                        *                                                                        GEN      1311
                                        *         ENTRY  PARSER HAS ENCOUNTED AN ARRAY FOLLOWED BY A *(*         GEN      1312
                                        *                *SSO* SETS CONDITIONS FOR PARSER TO INDICATE WE ARE     GEN      1313
                                        *                NOW IN SUBSCRIPT MODE.                                  GEN      1314
                                        *                                                                        GEN      1315
                                        *                (A2) = ARGMODE.                                         GEN      1316
                                        *                (X5) = PASS *1* ARRAY TAG. (FROM SYMBOL TABLE.)         GEN      1317
                                        *                                                                        GEN      1318
                                        *         EXIT   (X7) = ORDINAL OF NEXT DIMENSIONALITY FOR (ARGCOMA)     GEN      1319
                                        *                THE FOLLOWING CELLS ARE ESTABLISHED AS ACTIVE.          GEN      1320
                                        *         DIMUL  =   SET TO *1* - FOR MULTIPLIER OF 1ST SUBSCRIPT.       GEN      1321
                                        *                                                                        GEN      1322
                                        *         DIM    =   VALUE FOR 1ST DIMENSION SPECIFIED ON DECLARATIVE    GEN      1323
                                        *                    DIMENSION CARD FOR CURRENT ARRAY.                   GEN      1324
                                        *                    36/0,24/CURRENT DIMENSION MULTIPLIER.               GEN      1325
                                        *                                                                        GEN      1326
                                        *         DIMBIAS=   24/RUNNING TOTAL, 18/UNDEFINED, 24/CURRENT BIAS     GEN      1327
                                        *                =    0,0,0                                              GEN      1328
                                        *                                                                        GEN      1329
                                        *         DIMSYM =   18/ARRAY TAG, 6,0, 18/VARIABLE SUBSCRIPTS,          GEN      1330
                                        *                    1/ANSI,18/NUMBER OF DIMENSIONS.                     GEN      1331
                                        *                                                                        GEN      1332
                                        *         (X7) = POINTER TO DIMENSION INFORMATION RELATIVE TO TP.DIM.    GEN      1333
                                                                                                                 GEN      1334
                                                                                                                 GEN      1335
           543  0400400543 +             SSO      SUBR               ENTRY/EXIT...                               GEN      1336
           544  6222777435 -                      SB2    X2-A=ARRAY                                              GEN      1337
                          0520000551 +            NZ     B2,SSO5     IF NOT ALREADY IN SUBSCRIPT.                GEN      1338
                                                                                                                 GEN      1339
                                        **        HERE IF SUBSCRIPTED SUBSCRIPT.                                 GEN      1340
                                                                                                                 GEN      1341
           545  5120000156 +                      SA2    DIMSYM                                                  GEN      1342
                          20227                   IFBIT  X2,SANSI,SSO5     IF ERROR ALREADY OUTPUTTED.           GEN      1343
                          5120000000 X            SA2    ARGCOMA                                                 FCC0575    10
           547  73421                             =X4    X2+1                                                    FCC0575    11
                     6170000000 X                 SUBERR E.SB3       OUTPUT SUBSCRIPT ERROR.                     GEN      1344
                                                                                                                 GEN      1345
                                        **        RESET SUBSCRIPT PROCESSING CELLS.                              GEN      1346
                                                                                                                 GEN      1347
           551  76600                    SSO5     =X6    0                                                       GEN      1348
                     43057                        MX0    -L.PNT                                                  GEN      1349
                          5110000153 +            SA1    DIM                                                     GEN      1350
           552  21530                             AX5    P.PNT                                                   GEN      1351
                     54211                        =A2    A1+1                                                    GEN      1352
                          10711                   BX7    X1                                                      GEN      1353
                               54321              =A3    A2+1                                                    GEN      1354
           553  5160001064 +                      SA6    DIMI                                                    GEN      1355
                          54630                   SA6    A3          CLEAR BIAS CELL                             GEN      1356
                               54431              =A4    A3+1                                                    GEN      1357
           554  56751                             =A7    B5+1        SAVE CURRENT DIMENSIONALITY IN *OSTACK*     GEN      1358
                     22602                        LX6    X2                                                      GEN      1359
                          10733                   BX7    X3                                                      GEN      1360
                               54671              =A6    A7+1        SAVE CURRENT MULTIPLIER IN *OSTACK*         GEN      1361
           555  6155000004                        SB5    B5+4                                                    GEN      1362
                          22604                   LX6    X4                                                      GEN      1363
                               54761              =A7    A6+1        SAVE CURRENT BIAS IN *OSTACK*               GEN      1364
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    31
        /SUBS  S U B S C R I P T S                                    SSO 
  
           556  54671                             =A6    A7+1        SAVE CURRENT SYMBOL IN *OSTACK*             GEN      1365
                     5110000000 X                 SA1    TP.DIM                                                  GEN      1366
                               15250              BX2    -X0*X5      POINTER TO TP.DIM ORDINAL                   GEN      1367
           557  21522                             AX5    P.TAG-P.PNT                                             GEN      1368
                     20552                        LX5    P.SATAG                                                 GEN      1369
                          63220                   SB2    X2                                                      GEN      1370
                               76610              =X6    1                                                       GEN      1371
           560  10755                             BX7    X5          ARRAY TAG                                   GEN      1372
                     53312                        SA3    B2+X1       LOAD DIMENSION CONTROL WORD.                GEN      1373
                          5160000154 +            SA6    DIMUL       CURRENT MULTIPLIER.                         GEN      1374
                                                                                                                 GEN      1375
                                        **        SET DIM = CURRENT DIMENSION                                    GEN      1376
                                                                                                                 GEN      1377
           561  6170000036                        SB7    P.DIM                                                   GEN      1378
                          54231                   =A2    A3+1                                                    GEN      1379
                               23672              AX6    B7,X2                                                   GEN      1380
           562  10033                             BX0    X3                                                      GEN      1381
                     76200                        =X2    0                                                       GEN      1382
                          7112000002              =X1    B2+2                                                    GEN      1383
           563  20036                             IFBIT  X0,-VDIM,SSO7     IF NOT VARIABLE DIMENSION             GEN      1384
                               76220              SX2    B2                                                      GEN      1385
           564  20222                             LX2    18          BASE ADDRESS OF *DIM* INFO                  GEN      1386
           565  5160000153 +             SSO7     SA6    DIM         CURRENT DIMENSION                           GEN      1387
                                                                                                                 GEN      1388
                                        **        SET DIMOR = ORDINAL RELATIVE TO TP.DIM ENTRY.                  GEN      1389
                                                                                                                 GEN      1390
                          6130000066              SB3    P.NDIM                                                  GEN      1391
           566  36412                             IX4    X1+X2       ADD IN VDIM FLAGS, IF THERE                 GEN      1392
                                                                                                                 GEN      1393
                                        **        SET DIMBIAS = COMPLEMENT SET AT DECLARATIVE TIME.              GEN      1394
                                                                                                                 GEN      1395
                     43044                        MX0    -L.DIMOS                                                GEN      1396
                          23133                   AX1    B3,X3       NUMBER OF DIMENSIONS.                       GEN      1397
                               36671              IX6    X7+X1                                                   GEN      1398
           567  22704                             LX7    X4          DIMENSION ORDINAL.                          GEN      1399
                     5160000156 +                 SA6    DIMSYM      SAVE ARRAY NAME.                            GEN      1400
           570  0400000543 +                      EQ     EXIT.                                                   GEN      1401
  
  
  
  
                                        **        SVT -  SET VARDIM TAG IN *DIM* TABLE.                          GEN      1403
                                        *                                                                        GEN      1404
                                        *         ENTRY  (B2) = SUBSCRIPT NUMBER FOR V-TAG.                      GEN      1405
                                        *                (B3) = ORDINAL OF *TP.DIM* INFO FOR THIS ARRAY.         GEN      1406
                                        *                (X2) = *V-TAG* TO BE ENTERED.                           GEN      1407
                                        *                                                                        GEN      1408
                                        *         EXIT   (X2) = PASS *2* TAG FOR *V-TAG*                         GEN      1409
                                        *                TP.DIM ENTRY REPLACE WITH *V-TAG*                       GEN      1410
                                        *                                                                        GEN      1411
                                        *         USES   A1,A2,A3,A6  X0,X7  B7                                  GEN      1412
                                                                                                                 GEN      1413
                                                                                                                 GEN      1414
           571  0400400571 +             SVT      SUBR               ENTRY/EXIT...                               GEN      1415
           572  5130000000 X                      SA3    TP.DIM                                                  GEN      1416
                          5112000273 +            SA1    B2+DIMPT.                                               GEN      1417
           573  63733                             SB7    X3+B3                                                   GEN      1418
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    32
        /SUBS  S U B S C R I P T S                                    SVT 
  
                     53317                        SA3    X1+B7                                                   GEN      1419
                          43702                   MX7    2                                                       GEN      1420
                               21122              AX1    18                                                      GEN      1421
           574  43036                             MX0    P.DIM                                                   GEN      1422
                     63710                        SB7    X1                                                      GEN      1423
                          20730                   LX7    P.TDIM+1                                                GEN      1424
                               10122              BX1    X2                                                      GEN      1425
           575  0470000577 +                      ZR     B7,SVT10    IF DIMENSIONALITY IN LOW ORDER              GEN      1426
                          20136                   LX1    P.DIM                                                   GEN      1427
                               20036              LX0    P.DIM                                                   GEN      1428
           576  20736                             LX7    P.DIM                                                   GEN      1429
           577  11603                    SVT10    BX6    X0*X3       CLEAR OLD BITS                              GEN      1430
                     12367                        BX3    X6+X7       ADD IN *SDIM* BIT                           GEN      1431
                          7100010002              =X0    M.INT+M.2PRO                                            GEN      1432
           600  12631                             BX6    X3+X1       ADD IN V-TAG                                GEN      1433
                     20252                        LX2    P.TAG                                                   GEN      1434
                          54630                   SA6    A3          RESET TAG INTO *DIM* TABLE                  GEN      1435
                               36220              IX2    X2+X0                                                   GEN      1436
           601  0400000571 +                      EQ     EXIT.                                                   GEN      1437
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    33
        /SUBS  S U B S C R I P T S                                    O=SUBS
  
                                        **        PASS 2 PROCESSING OF A SUBCRIPTED ARRAY.                       GEN      1439
                                        *                                                                        GEN      1440
                                        *         ENTRY HERE FROM ARITH WHEN SUBSCRIPT TURPLE FOUND.             GEN      1441
                                        *         PROCESSING IS DEFERRED UNTIL USE OF SUBSCRIPTED ARRAY IS       GEN      1442
                                        *         DETERMINED.  IF THE SUBSCRIPT IS A SUBSCRIPTED ARRAY, THEN     GEN      1443
                                        *         ARRAY IS PROCESSED.                                            GEN      1444
                                        *                                                                        GEN      1445
                                        *         ENTRY  (B4) _ START OF SUBSCRIPT ARRAY TURPLE. (OPERATOR WORD) GEN      1446
                                        *                (B4+1)_ ARRAY TAG.+ BIAS    (OR.1OP)                    GEN      1447
                                        *                (B4+2)  INTERMEDIATE        (OR.2OP)                    GEN      1448
                                        *                                                                        GEN      1449
                                        *         EXIT   (B4) UPDATED, EXIT TO EIS.PNX.                          GEN      1450
                                        *         USES   CANNOT DESTROY *B4*.                                    GEN      1451
                                                                                                                 GEN      1452
                                                                                                                 GEN      1453
           602                           O=SUBL   BSS    0                                                       FCC2194    24
                                         .T       IFNE   TEST                                                    FCC2194    25
                                                  SA5    B4+OR.2OP                                               FCC2194    26
                                                  SX0    M.2ARY+M.INTR                                           FCC2194    27
                                                  BX1    X0*X5                                                   FCC2194    28
                                                  BX1    X0-X1                                                   FCC2194    29
                                                  NZ     X1,SUBL     IF NOT SUBSCRIPTED SUBSCRIPT                FCC2194    30
                                                  TRUBL                                                          FCC2194    31
                                         .T       ENDIF                                                          FCC2194    32
           602  6144000003               SUBL     =B4    B4+L.TURP                                               GEN      1461
                          0400002654 +            EQ     EIS.PNX     SET POST PROCESSING FLAG                    GEN      1462
                                                                                                                 GEN      1463
  
  
  
  
                                        **        SLD -  SUBSCRIPT LOAD.                                         GEN      1465
                                        *                                                                        GEN      1466
                                        *         CALLED WHEN PROCESSING AN INTERMEDIATE AND FOUND THAT IT IS AN GEN      1467
                                        *         ARRAY LOAD.                                                    GEN      1468
                                        *                                                                        GEN      1469
                                        *         EXIT   SUBSCRIPT LOADED IN (X6) REGISTER.                      GEN      1470
                                        *                (X6) = REGISTER - (0R0).                                GEN      1471
                                        *                (B3) = REGISTER - (0TR).                                GEN      1472
                                        *                                                                        GEN      1473
                                        *         (NOLDS) = (NOLDS) +1                                           GEN      1474
                                        *                                                                        GEN      1475
                                        *         USES   A1,A2,A3,A4,A5  X0  B2,B3,B5,B6,B7                      GEN      1476
                                        *                CELLS -  SCR2 TO SCR2+6                                 GEN      1477
                                                                                                                 GEN      1478
           603  0400400603 +             SLD      SUBR               ENTRY/EXIT...                               GEN      1479
           604  76640                             SX6    B4                                                      GEN      1480
                     10744                        BX7    X4                                                      GEN      1481
                          5120000000 X            SA2    TT.PAR                                                  GEN      1482
           605  22105                             LX1    X5                                                      GEN      1483
                     37662                        IX6    X6-X2                                                   GEN      1484
                          21152                   AX1    P.JPAD                                                  GEN      1485
           606  5160001061 +                      SA6    SAVEB4      SAVE *B4*                                   GEN      1486
                          63410                   SB4    X1                                                      GEN      1487
                               74640              SX6    A4                                                      GEN      1488
           607  54661                             =A6    A6+1        SAVE *A4*                                   GEN      1489
                     63424                        SB4    X2+B4       SUBSCRIPT TURPLE                            GEN      1490
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    34
        /SUBS  S U B S C R I P T S                                    SLD 
  
                          54761                   =A7    A6+1        SAVE *X4*                                   GEN      1491
                               76700              =X7    0           SET VALUE WANTED FLAG                       GEN      1492
           610  20561                             IFBIT  X5,-ADDR,SLD1                                           GEN      1493
           611  7170020000                        =X7    SX=AK-SA=AK ADD IN TO OP-CODE FOR ADDRESS/VALUE         GEN      1494
           612  5170001067 +             SLD1     SA7    ADDR        =0 IF VALUE                                 GEN      1495
                          5154000002              SA5    B4+OR.2OP   ADDRESS FUNCTION TAG                        GEN      1496
           613  5110000000 X                      SA1    RREG                                                    GEN      1497
                          43674                   MX6    -0                                                      GEN      1498
                               10711              BX7    X1                                                      GEN      1499
           614  54610                             SA6    A1                                                      GEN      1500
                     76620                        SX6    B2                                                      GEN      1501
                          5170001065 +            SA7    ALREG       SAVE HARD REGISTER FLAG                     GEN      1502
           615  5160003331 +                      SA6    TYPLOD                                                  GEN      1503
                          7207777751              SX0    X7-R.X6                                                 GEN      1504
           616  0330000620 +                      MI     X0,SLD15    IF NOT STORE REGISTER                       GEN      1505
                                                                                                                 GEN      1506
                                        *         LOCK STORE REGISTER TO FORCE THE OTHER STORE REGISTER TO BE    GEN      1507
                                        *         USED FOR ANY STORES TO TEMPORARIES                             GEN      1508
                                                                                                                 GEN      1509
                          43071                   MX0    -3                                                      GEN      1510
                               15070              BX0    -X0*X7                                                  GEN      1511
           617  63700                             SB7    X0          (00R) HARD REGISTER FLAG                    GEN      1512
                     0100000000 X                 RJ     RLL         LOCK HARD REGISTER                          GEN      1513
           620  10055                    SLD15    DRITE  X5                                                      GEN      1514
           621  13666                             BX6    0                                                       GEN      1515
                     5160001072 +                 SA6    TRIP        RESET RE-TRY INDICATOR                      GEN      1516
           622  6130000000 X                      SB3    RG=LOAD                                                 GEN      1517
                          66200                   SB2    B0                                                      GEN      1518
                               66710              SB7    B1                                                      GEN      1519
           623  0100000000 X                      RJ     GST         GET STATUS OF ADDRESS FUNCTION              GEN      1520
           624  7122777767                        SX2    B2-REG.A       (B2) = 0TR                               FCC1811XA   7
                          0332000636 +            MI     X2,SLD17       IF B REG                                 FCC1811XA   8
           625  14066                             BX0    -X6                                                     FCC1811XA   9
                     21003                        AX0    3              (X0) = -(00R)                            FCC1811XA  10
                          6270000006              SB7    X0-REG.X+R.X6  (B7)=0 IF AF IN X6, -1 IF IN X7          FCC1811XA  11
           626  0707000636 +                      LT     B0,B7,SLD17    IF NOT IN STORE REG                      FCC1811XA  12
                          7100000400              SX0    RLOCK          SET LOCK BIT MASK                        FCC1811XA  13
           627  5127000027 X                      SA2    B7+REGFILE+R.X7 GET OTHER STORE REG                     FCC1811XA  14
                          11002                   BX0    X0*X2          EXTRACT LOCK BIT                         FCC1811XA  15
                               76710              =X7    1                                                       FCC1811XA  16
           630  0300000636 +                      ZR     X0,SLD17       IF NOT LOCKED                            FCC1811XA  17
                          5122000000 X            SA2    B2+REGFILE     GET REGFILE ENTRY OF AF                  FCC1811XA  18
           631  12727                             BX7    X2+X7          INSURE USE [AF] .NEQ. 0                  FCC1811XA  19
                     54720                        SA7    A2             RESET REGFILE                            FCC1811XA  20
                          0100000000 X            RJ     RUT            CLEAR AF-REG                             FCC1811XA  21
           632  7102777757                        SX0    B2-REG.X       0TR - 020                                FCC1811XA  22
                          21003                   AX0    3                                                       FCC1811XA  23
           633  0300000635 +                      ZR     X0,SLD16       IF X REG                                 FCC1811XA  24
                          6123000020              SB2    B3+REG.X       B2 = 02R                                 FCC1811XA  25
           634  0100000000 X                      RJ     RUT            CLEAR X REG                              FCC1811XA  26
           635  66200                    SLD16    =B2    0              UPPER PART                               FCC1811XA  27
                     66700                        =B7    0              PARTIAL STATES                           FCC1811XA  28
                          0100000000 X            RJ     GST            GET STATES OF ADDRESS FUNCTION           FCC1811XA  29
           636  6130000000 X             SLD17    SB3    RG=LOAD                                                 FCC1811XA  30
                          5120000000 X            SA2    =XGSTC         GET POINTER TO STATUS WORD               FCC1811XA  31
           637  10722                             BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS    FCC1208    30
                     5170001075 +                 SA7    AFSTS                                                   FCC1208    31
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    35
        /SUBS  S U B S C R I P T S                                    SLD 
  
           640  6160400640 +                      SB6    "BLOWUP"    **** DEBUG ****                             FCC1208    32
                          0420000644 +            ZR     B2,SLD2     IF TAG NOT IN REGISTER                      GEN      1522
           641  10066                             BX0    X6                                                      GEN      1523
                     21003                        AX0    3                                                       GEN      1524
                          5220000000 X            SA2    X0+REGX                                                 GEN      1525
           642  13052                             BX0    X5-X2                                                   GEN      1526
                     20262                        IFBIT  X2,INTR,SLD3  IF INTERMEDIATE, NO CONFLICT              FCC0964     5
           643  21011                             AX0    L.RUSE                                                  GEN      1527
                     0300000663 +                 ZR     X0,SLD3     IF CORRECT TAG                              GEN      1528
           644  43052                    SLD2     MX0    L.2TAG+L.2BIAS+L.2FPNO                                  GEN      1529
                     11101                        BX1    X0*X1                                                   GEN      1530
                          0100000000 X            RJ     LTG         LOAD ADDRESS FUNCTION                       GEN      1531
           645  5120001072 +                      SA2    TRIP                                                    GEN      1532
                          0302000663 +            ZR     X2,SLD3     IF NO RECORD OF TROUBLE                     GEN      1533
           646  5130001070 +                      SA3    SAVEB2      (0TR) ARRAY LOAD REG                        GEN      1534
                          63330                   SB3    X3                                                      GEN      1535
           647  0523000663 +                      NE     B2,B3,SLD3  IF NO CONFLICT                              GEN      1536
                                                                                                                 GEN      1537
                                        **        PROBLEM DUE TO ADDRESS FUNCTION AND ARRAY LOAD CLAIMING        GEN      1538
                                        *         SAME REGISTER.  ADDRESS FUNCTION MUST BE COPIED TO ANOTHER     GEN      1539
                                        *         REGISTER.                                                      GEN      1540
                                                                                                                 GEN      1541
                          21603                   AX6    3                                                       FCC1812X    6
                               76760              SX7    B6                                                      FCC1812X    7
           650  63760                             SB7    X6                                                      FCC1812X    8
                     5170001071 +                 SA7    SAVEB6      SAVE B6                                     FCC1812X    9
           651  0100000000 X                      RJ     RLL         LOCK ADDRESS FUNCTION REGISTER              FCC1812X   10
           652  0100000000 X                      RJ     AIR         ASSIGN INTERMEDIATE REGISTER                GEN      1544
           653  0620000654 +                      PL     B2,SLD25    IF REGISTER FREE                            GEN      1545
                          0100000000 X            RJ     ASR         ASSIGN STORE REGISTER                       GEN      1546
           654  5130001070 +             SLD25    SA3    SAVEB2      (0TR) ADDRESS FUNCTION REGISTER             GEN      1547
                          63530                   SB5    X3                                                      GEN      1548
                               76620              SX6    B2          (0TR) *I* REGISTER                          GEN      1549
           655  43071                             MX0    -3                                                      GEN      1550
                                                                                                                 GEN      1551
                                        *         MAKE ADJUSTMENTS TO *REGFILE*                                  GEN      1552
                                                                                                                 GEN      1553
                     13777                        BX7    0                                                       GEN      1554
                          5175000010 X            SA7    B5+REGFILE+REG.X-REG.A  CLEAR OLD REGFILE ENTRY         GEN      1555
                                                                                                                 GEN      1556
                                        *         COMPILE TRANSMIT INSTRUCTION                                   GEN      1557
                                                                                                                 GEN      1558
           656  15260                             BX2    -X0*X6      (00R) *I* REGISTER                          GEN      1559
                     15730                        BX7    -X0*X3      (00R) *J* REGISTER                          GEN      1560
                          20203                   LX2    3                                                       GEN      1561
                               36772              IX7    X7+X2                                                   GEN      1562
           657  7277001000                        SX7    X7+XMITS3                                               GEN      1563
                          20760                   LX7    P.LI15+3                                                GEN      1564
                               66520              SB5    B2                                                      GEN      1565
           660  6120000661 +                      WCODE  X7                                                      GEN      1566
                                                                                                                 GEN      1567
                                        *         ADJUST/RESTORE REGISTERS                                       GEN      1568
                                                                                                                 GEN      1569
           661  66250                             SB2    B5          (0TR) NEW ADDRESS FUNCTION REGISTER         GEN      1570
                     43071                        MX0    -3                                                      GEN      1571
                          76620                   SX6    B2                                                      GEN      1572
                               15660              BX6    -X0*X6                                                  GEN      1573
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    36
        /SUBS  S U B S C R I P T S                                    SLD 
  
           662  20603                             LX6    3           (0R0) NEW ADDRESS FUNCTION REGISTER         GEN      1574
                     5120001071 +                 SA2    SAVEB6                                                  GEN      1575
                               63620              SB6    X2          RESTORE B6                                  GEN      1576
           663  5110001075 +             SLD3     SA1    AFSTS                                                   FCC1208    33
                          63710                   SB7    X1          ORDINAL IN TABLE OF STATUS WORD             FCC1208    34
                               21122              AX1    18                                                      FCC1208    35
           664  53210                             SA2    X1          FETCH TABLE ORIGIN                          FCC1208    36
                     53127                        SA1    X2+B7                                                   FCC1208    37
                          66300                   SB3    B0                                                      GEN      1578
           665  0100000000 X                      RJ     SST         SET STATUS OF ADDRESS FUNCTION              GEN      1579
                                                                                                                 GEN      1580
           666  21603                             AX6    3                                                       GEN      1581
                     63760                        SB7    X6                                                      GEN      1582
                          0100000000 X            RJ     RLL         LOCK ADDRESS FUNCTION REGISTER              GEN      1583
           667  5110001065 +                      SA1    ALREG                                                   GEN      1584
                          76620                   SX6    B2                                                      GEN      1585
                               10711              BX7    X1                                                      GEN      1586
           670  5160001066 +                      SA6    AFREG                                                   GEN      1587
                          5170000000 X            SA7    RREG        RESET HARD REGISTER FLAG                    GEN      1588
           671  7207777751                        SX0    X7-R.X6                                                 GEN      1589
                          0330000674 +            MI     X0,SLD32    IF NOT STORE REGISTER                       GEN      1590
           672  43071                             MX0    -3                                                      GEN      1591
                     15070                        BX0    -X0*X7                                                  GEN      1592
                          63700                   SB7    X0          (00R) HARD REGISTER FLAG                    GEN      1593
           673  0100000000 X                      RJ     RUL         UNLOCK HARD REGISTER                        GEN      1594
           674  6130000000 X             SLD32    SB3    RG=LOAD                                                 GEN      1595
                          0100000000 X            RJ     GNR         GET ARRAY LOAD REGISTER                     GEN      1596
           675  76720                             SX7    B2                                                      GEN      1597
                     5170001070 +                 SA7    SAVEB2                                                  GEN      1598
           676  5154000002                        SA5    B4+OR.2OP   ADDRESS FUNCTION TAG                        GEN      1599
                          6130000000 X            SB3    RG=LOAD                                                 GEN      1600
           677  66200                             SB2    B0                                                      GEN      1601
                     66710                        SB7    B1                                                      GEN      1602
                          0100000000 X            RJ     GST         GET STATUS OF ADDRESS FUNCTION (AGAIN)      GEN      1603
           700  5120000000 X                      SA2    =XGSTC                                                  FCC1208    38
                          10722                   BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS    FCC1208    39
           701  5170001075 +                      SA7    AFSTS                                                   FCC1208    40
                          6160400701 +            SB6    "BLOWUP"    **** DEBUG ****                             FCC1208    41
           702  0520000704 +                      NZ     B2,SLD35    IF TAG IN REGISTER                          GEN      1605
                          7160000001              SX6    1                                                       GEN      1606
           703  5160001072 +                      SA6    TRIP        SET RE-TRY INDICATOR                        GEN      1607
                          0400000644 +            EQ     SLD2                                                    GEN      1608
                                                                                                                 GEN      1609
           704  5150001070 +             SLD35    SA5    SAVEB2                                                  GEN      1610
                          63250                   SB2    X5          RESTORE B2                                  GEN      1611
           705  6122000010                        SB2    B2+REG.X-REG.A                                          GEN      1612
                          5154000001              SA5    B4+OR.1OP                                               GEN      1613
           706  76620                             SX6    B2                                                      GEN      1614
                     10755                        BX7    X5          ARRAY TAG - PASS 3 FORMAT                   GEN      1615
                          5160001065 +            SA6    ALREG                                                   GEN      1616
           707  5170001056 +                      SA7    ALTAG                                                   GEN      1617
                          5130001066 +            SA3    AFREG                                                   GEN      1618
           710  43771                             MX7    -3                                                      GEN      1619
                     15637                        BX6    -X7*X3      (00R)                                       GEN      1620
                          21303                   AX3    3           (00T)                                       GEN      1621
                               63760              SB7    X6          (00R) FOR *RUL*                             GEN      1622
           711  7140051000                        SX4    SA=BK                                                   GEN      1623
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    37
        /SUBS  S U B S C R I P T S                                    SLD 
  
                          0303000713 +            ZR     X3,SLD4     IF *B* REGISTER                             GEN      1624
           712  7140052000                        SX4    SA=XK                                                   GEN      1625
                          0100000000 X            RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER            GEN      1626
           713  5130003331 +             SLD4     SA3    TYPLOD      TYPE OF LOAD (0=UPPER HALF, 1= LOWER HALF)  GEN      1627
                          5110001056 +            SA1    ALTAG       ARRAY LOAD TAG                              GEN      1628
           714  20330                             LX3    P.2BIAS                                                 GEN      1629
                                        *                                                                        GEN      1630
                                        *         (X1)    = ARRAY TAG                                            GEN      1631
                                        *         (X5)    = ARRAY TAG                                            GEN      1632
                                        *         (X4)    = SA=XK OR SA=BK                                       GEN      1633
                                        *         (ALREG) =  I REGISTER (OTR)                                    GEN      1634
                                        *         (AFREG) = J REGISTER (OTR)                                     GEN      1635
                                        *         (ADDR)  = 0 IF VALUE WANTED                                    GEN      1636
                                        *                 = 20000 IF ADDRESS WANTED                              GEN      1637
                                        *                                                                        GEN      1638
                     5120001067 +                 SA2    ADDR                                                    GEN      1639
                               36113              IX1    X1+X3                                                   GEN      1640
           715  10311                             BX3    X1                                                      GEN      1641
                     36424                        IX4    X2+X4       ADD IN VALUE FLAG                           GEN      1642
                          43066                   MX0    -L.2FPNO                                                GEN      1643
                               21322              AX3    P.2FPNO                                                 GEN      1644
           716  15230                             BX2    -X0*X3      *FP* NUMBER                                 GEN      1645
                     0302000754 +                 ZR     X2,SLD8     IF TAG NOT FORMAL PARAMETER                 GEN      1646
                                                                                                                 GEN      1647
                                        *         RELOCK ADDRESS FUNCTION REGISTER TO AVOID CONFLICT WITH        GEN      1648
                                        *         *FP* LOAD REGISTER IN LCM/ECS CASE.                            GEN      1649
                                                                                                                 GEN      1650
                               10711              BX7    X1                                                      GEN      1651
           717  5170001073 +                      SA7    SAVEX1      SAVE X1                                     GEN      1652
                          10722                   BX7    X2                                                      GEN      1653
           720  5170001074 +                      SA7    SAVEX2      SAVE X2                                     GEN      1654
                          0100000000 X            RJ     RLL                                                     GEN      1655
           721  5110001065 +                      SA1    ALREG                                                   FCC1371X    6
                          7221777751              SX2    X1-R.X6                                                 FCC1371X    7
           722  0332000724 +                      MI     X2,SLD42                                                FCC1371X    8
                          6271777757              SB7    X1-REG.X                                                FCC1371X    9
           723  0100000000 X                      RJ     RLL         HARD STORE REG MUST ALSO BE LOCKED          FCC1371X   10
                                                                                                                 FCC1371X   11
           724  5110001073 +             SLD42    SA1    SAVEX1                                                  FCC1371X   12
                          5120001074 +            SA2    SAVEX2      RESTORE X2                                  GEN      1657
           725  0100000000 X                      RJ     LFP         LOAD ADDRESS OF FP                          GEN      1658
           726  5130001065 +                      SA3    ALREG                                                   FCC1371X   13
                          7203777751              SX0    X3-R.X6                                                 FCC1371X   14
           727  0330000731 +                      MI     X0,SLD44                                                FCC1371X   15
                          6273777757              SB7    X3-REG.X                                                FCC1371X   16
           730  0100000000 X                      RJ     RUL                                                     FCC1371X   17
           731  5130001066 +             SLD44    SA3    AFREG                                                   FCC1371X   18
                          43071                   MX0    -3                                                      GEN      1660
                               15330              BX3    -X0*X3      (00R) ADDRESS FUNCTION REGISTER             GEN      1661
           732  63730                             SB7    X3                                                      GEN      1662
                     0100000000 X                 RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER            GEN      1663
           733  5120001067 +                      SA2    ADDR        ADDRESS/VALUE FLAG                          GEN      1664
                          5150001056 +            SA5    =XALTAG     RELOAD TAG FOR *CLT*                        GEN      1665
           734  0100000000 X                      RJ     =XCLT       CHECK FOR LCM/ECS TAG                       GEN      1666
           735  0313000747 +                      NZ     X3,SLD5     IF NOT LCM OR ECS TAG                       GEN      1667
                                                                                                                 GEN      1668
                                        **        FORMAL LCM/ECS TAG.                                            GEN      1669
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    38
        /SUBS  S U B S C R I P T S                                    SLD 
  
                                        *         OUTPUT TO INTERMEDIATE FILE                                    GEN      1670
                                        *                IXI    XJ+XK                                            GEN      1671
                                                                                                                 GEN      1672
                          76620                   SX6    B2          (0TR) *FP* SET REGISTER                     GEN      1673
                               43071              MX0    -3                                                      GEN      1674
           736  15660                             BX6    -X0*X6      (00R)                                       GEN      1675
                     7110036000                   SX1    =XIADD                                                  GEN      1676
                               12716              BX7    X1+X6       SET *K* REGISTER IN INSTRUCTION             GEN      1677
           737  20755                             LX7    P.LI15                                                  GEN      1678
                     76460                        SX4    B6          (R00) *FP* LOAD REGISTER                    GEN      1679
                          21406                   AX4    6           (--R)                                       GEN      1680
                               43071              MX0    -3                                                      GEN      1681
           740  15440                             BX4    -X0*X4      (00R)                                       GEN      1682
                                                                                                                 GEN      1683
                                         #DAL     IFNE   .DAL,0                                                  S3143FC    36
                                                                                                                 GEN      1685
                     5150001067 +                 SA5    ADDR                                                    GEN      1686
           741  0315001031 +                      NZ     X5,SLCMPA   IF ADDRESS WANTED                           GEN      1687
                          20460                   LX4    60-12                                                   GEN      1688
                               36774              IX7    X7+X4       ADD IN *J* REGISTER                         GEN      1689
           742  5110001065 +                      SA1    ALREG       (0TR) ARRAY LOAD REGISTER                   GEN      1690
                          6271777751              SB7    X1-R.X6+RGFILE                                          GEN      1691
           743  0770000745 +                      NG     B7,SLD45    IF NOT STORE REGISTER                       GEN      1692
                          5160001100 +            SA6    SLDSR       SAVE SET REGISTER                           GEN      1693
           744  20663                             LX6    60-9                                                    GEN      1694
                     36776                        IX7    X7+X6       ADD IN *I* REGISTER                         GEN      1695
                          0400000746 +            EQ     SLD47                                                   GEN      1696
                                                                                                                 GEN      1697
           745  43071                    SLD45    MX0    -3                                                      GEN      1698
                     15610                        BX6    -X0*X1      (00R) ARRAY LOAD REGISTER                   GEN      1699
                          20663                   LX6    60-9                                                    GEN      1700
                               36776              IX7    X7+X6       ADD IN *I* REGISTER                         GEN      1701
           746  6120001034 +             SLD47    WCODE  X7,SLCMPB   COMPILE ADDRESS COMPUTATION                 FCC1208    42
                                                                                                                 FCC1208    43
                                         #DAL     ELSE                                                           FCC1208    44
                                                  EQ     SLCMPA                                                  FCC1208    45
                                                                                                                 GEN      1704
                                         #DAL     ENDIF                                                          S3143FC    37
                                                                                                                 GEN      1708
           747  5130001066 +             SLD5     SA3    =XAFREG     (0TR) ADDRESS FUNCTION REGISTER             GEN      1709
                          76620                   SX6    B2          (00R) *FP* B REGISTER                       GEN      1710
                               21303              AX3    3           (00T) ADDRESS FUNCTION REGISTER             GEN      1711
           750  7110053000                        SX1    SA=XB                                                   GEN      1712
                          0313000752 +            NZ     X3,SLD6     IF NOT IN *B* REGISTER                      GEN      1713
           751  7110056000                        SX1    SA=BB                                                   GEN      1714
           752  36412                    SLD6     IX4    X1+X2       ADD IN ADDRESS/VALUE FUNCTION               GEN      1715
                     12764                        BX7    X6+X4       SET *K* REGISTER IN INSTRUCTION             GEN      1716
                          20755                   LX7    P.LI15                                                  GEN      1717
           753  0400001030 +                      EQ     SL.CMP      CONTINUE                                    GEN      1718
                                                                                                                 GEN      1719
                                        **        ADD IN BIAS FIELD FOR TAG IN (X1)                              GEN      1720
                                                                                                                 GEN      1721
           754  20455                    SLD8     LX4    P.LI15      OP-CODE                                     GEN      1722
                     21130                        AX1    P.2BIAS     TAG,BIAS                                    GEN      1723
                          20114                   LX1    P.LBIAS                                                 GEN      1724
                               36741              IX7    X4+X1       OP-CODE+TAG+BIAS                            GEN      1725
           755  0100000000 X                      RJ     =XCLT       CHECK FOR LCM/ECS TAG                       GEN      1726
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    39
        /SUBS  S U B S C R I P T S                                    SLD 
  
           756  0313001030 +                      NZ     X3,SL.CMP   IF NOT LCM OR ECS TAG                       GEN      1727
                                                                                                                 GEN      1728
                                        **        ADDRESS OF LCM/ECS TAG REQUIRED.                               GEN      1729
                                        *         OUTPUT TO INTERMEDIATE FILE                                    GEN      1730
                                        *                SAJ    L.XX       POINTER WORD                          GEN      1731
                                        *                SXK    XI+RELAD-1 (XI) = SUBSCRIPT, RELAD = RELATIVE    GEN      1732
                                        *                                       ADDRESS OF ARRAY IN BLOCK        GEN      1733
                                        *                IXK    XJ+XK                                            GEN      1734
                                                                                                                 GEN      1735
                          5170001055 +            SA7    SLDA        SAVE PARTIAL SET INSTRUCTION                GEN      1736
                                                                                                                 GEN      1737
                                        *         LOCK SOME REGISTERS                                            GEN      1738
                                                                                                                 GEN      1739
           757  5120001066 +                      SA2    AFREG       (0TR) ADDRESS FUNCTION REGISTER             GEN      1740
                          43071                   MX0    -3                                                      GEN      1741
                               15220              BX2    -X0*X2      (00R)                                       GEN      1742
           760  63720                             SB7    X2                                                      GEN      1743
                     0100000000 X                 RJ     RLL         LOCK ADDRESS FUNCTION REGISTER              GEN      1744
           761  5120001065 +                      SA2    ALREG       (0TR) ARRAY LOAD REGISTER                   GEN      1745
                          43071                   MX0    -3                                                      GEN      1746
                               15220              BX2    -X0*X2      (00R)                                       GEN      1747
           762  63720                             SB7    X2                                                      GEN      1748
                     0100000000 X                 RJ     RLL         LOCK ARRAY LOAD REGISTER                    GEN      1749
                                                                                                                 GEN      1750
           763  0100000000 X                      RJ     =XCLP       COMPILE LOAD OF POINTER                     GEN      1751
           764  5110001055 +                      SA1    SLDA        RELOAD PARTIAL SET INSTRUCTION              GEN      1752
                                                                                                                 GEN      1753
                                         #DAL     IFNE   .DAL,0                                                  S3143FC    38
                                                                                                                 GEN      1755
                          5120001067 +            SA2    ADDR                                                    GEN      1756
           765  0312000770 +                      NZ     X2,SLD82    IF ADDRESS WANTED                           GEN      1757
                                                                                                                 GEN      1758
                                        **        VALUE REQUIRED FOR LCM/ECS TAG.                                GEN      1759
                                        *         IT CAN ONLY BE A 7000 LEVEL 2 ITEM.                            GEN      1760
                                                                                                                 GEN      1761
                          43052                   MX0    -L.LBIAS                                                GEN      1762
                               20014              LX0    P.LBIAS                                                 GEN      1763
           766  15710                             BX7    -X0*X1      BIAS                                        GEN      1764
                     7110072000                   SX1    =XSX=XK                                                 GEN      1765
                               20155              LX1    P.LI15                                                  GEN      1766
           767  36771                             IX7    X7+X1       OPCODE + BIAS                               GEN      1767
                     0400000771 +                 EQ     SLD84                                                   GEN      1768
                                                                                                                 GEN      1769
                                         #DAL     ENDIF                                                          S3143FC    39
                                                                                                                 GEN      1771
           770  5120003444 +             SLD82    SA2    OPBIAS      MASK TO GET RID OF TAG                      GEN      1772
                          11721                   BX7    X2*X1       OPCODE+BIAS                                 GEN      1773
                                                                                                                 GEN      1774
                                        *         GET RELATIVE ADDRESS OF ARRAY                                  GEN      1775
                                                                                                                 GEN      1776
           771  5110000000 X             SLD84    SA1    =XTA.NAM                                                GEN      1777
                          20522                   LX5    -P.2TAG                                                 GEN      1778
                               43057              MX0    -L.PWF                                                  GEN      1779
           772  15450                             BX4    -X0*X5      (X4) = TAG ORDINAL                          GEN      1780
                     63310                        SB3    X1          (B3) = FWA TA.NAM                           GEN      1781
                          21401                   AX4    1                                                       GEN      1782
                               53143              SA1    X4+B3       FETCH ADDRESS TABLE ENTRY                   GEN      1783
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    40
        /SUBS  S U B S C R I P T S                                    SLD 
  
           773  43044                             MX0    -L.RELADD                                               GEN      1784
                     15410                        BX4    -X0*X1      (X4) = RELATIVE ADDRESS                     GEN      1785
                          20414                   LX4    P.LBIAS                                                 GEN      1786
                               36774              IX7    X7+X4       ADD RELATIVE ADDRESS TO BIAS                GEN      1787
           774  43001                             MX0    1                                                       FCC1434X   36
                     20037                        LX0    1+P.LBIAS+L.LBIAS                                       FCC1434X   37
                          11407                   BX4    X0*X7       EXTRACT POSSIBLE OVERFLOW BIT               FCC1434X   38
                               20452              LX4    -L.LBIAS                                                FCC1434X   39
           775  36747                             IX7    X4+X7       ADD IN OVERFLOW BIT                         FCC1434X   40
                     15770                        BX7    -X0*X7      MASK OUT OVERFLOW BIT                       FCC1434X   41
                          5120001066 +            SA2    =XAFREG                                                 GEN      1788
           776  43071                             MX0    -3                                                      GEN      1789
                     15420                        BX4    -X0*X2      EXTRACT *J* REGISTER                        GEN      1790
                          20460                   LX4    60-12                                                   GEN      1791
                               36774              IX7    X7+X4       ADD IN *J* REGISTER                         GEN      1792
                                                                                                                 GEN      1793
                                         #DAL     IFNE   .DAL,0                                                  S3143FC    40
                                                                                                                 GEN      1795
           777  5150001067 +                      SA5    ADDR                                                    GEN      1796
                          0315001014 +            NZ     X5,SLD89    IF ADDRESS WANTED                           GEN      1797
          1000  5110001065 +                      SA1    ALREG       (0TR) ARRAY LOAD REGISTER                   GEN      1798
                          6271777751              SB7    X1-R.X6+RGFILE                                          GEN      1799
          1001  0770001012 +                      NG     B7,SLD87    IF NOT STORE REGISTER                       GEN      1800
                                                                                                                 GEN      1801
                                        *         FOR LCM STORES, THE SET REGISTER AND LOAD REGISTER MUST BE     GEN      1802
                                        *         DIFFERENT.  FOR LOADS, THEY ARE THE SAME.                      GEN      1803
                                                                                                                 GEN      1804
                          5170001077 +            SA7    SLDSET      SAVE PARTIAL INSTRUCTION                    GEN      1805
          1002  76150                             SX1    B5          (0TR) POINTER-WORD REGISTER                 GEN      1806
                     15110                        BX1    -X0*X1      (00R)                                       GEN      1807
                          63710                   SB7    X1                                                      GEN      1808
          1003  0100000000 X                      RJ     RLL         LOCK POINTER-WORD REGISTER                  GEN      1809
          1004  5170001076 +                      SA7    SLDPWR      SAVE POINTER-WORD REGISTER                  GEN      1810
                          6130000000 X            =B3    =XRG=SET                                                GEN      1811
          1005  0100000000 X                      RJ     GNR         GET SET REGISTER                            GEN      1812
          1006  5130001076 +                      SA3    SLDPWR      (00R) POINTER-WORD REGISTER                 GEN      1813
                          63530                   SB5    X3                                                      GEN      1814
                               63730              SB7    X3                                                      GEN      1815
          1007  0100000000 X                      RJ     RUL         UNLOCK POINTER-WORD REGISTER                GEN      1816
          1010  21603                             AX6    3           (00R) SET REGISTER                          GEN      1817
                     5110001077 +                 SA1    SLDSET      RELOAD PARTIAL INSTRUCTION                  GEN      1818
                               10711              BX7    X1                                                      GEN      1819
          1011  5160001100 +                      SA6    SLDSR       SAVE SET REGISTER                           GEN      1820
                          0400001013 +            EQ     SLD88                                                   GEN      1821
                                                                                                                 GEN      1822
          1012  15610                    SLD87    BX6    -X0*X1      (00R) ARRAY LOAD REGISTER                   GEN      1823
                                                                                                                 GEN      1824
          1013  10566                    SLD88    BX5    X6                                                      GEN      1825
                     0400001015 +                 EQ     SLD9                                                    GEN      1826
                                                                                                                 GEN      1827
          1014                           SLD89    BSS    0                                                       GEN      1828
                                                                                                                 GEN      1829
                                         #DAL     ENDIF                                                          S3143FC    41
                                                                                                                 GEN      1831
          1014  5110001065 +                      SA1    =XALREG                                                 GEN      1832
                          15610                   BX6    -X0*X1                                                  GEN      1833
                               10566              BX5    X6                                                      GEN      1834
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    41
        /SUBS  S U B S C R I P T S                                    SLD 
  
          1015  20663                    SLD9     LX6    60-9        *I* REGISTER                                GEN      1835
                     36767                        IX7    X6+X7       ADD IN *I* REGISTER                         GEN      1836
          1016  6120001017 +                      WCODE  X7          OUTPUT INSTRUCTION TO SET BLOCK-REL. ADDR.  GEN      1837
          1017  7110036000                        SX1    =XIADD                                                  GEN      1838
                          12715                   BX7    X1+X5       ADD *K* REGISTER TO OPCODE                  GEN      1839
                               20506              LX5    6           (R00)                                       GEN      1840
          1020  12775                             BX7    X7+X5       *I* AND *K* REGISTER SAME                   GEN      1841
                     43071                        MX0    -3                                                      GEN      1842
                          76150                   SX1    B5          (0TR) POINTER-WORD REGISTER                 GEN      1843
                               15110              BX1    -X0*X1      (00R)                                       GEN      1844
          1021  20103                             LX1    3           (0R0)                                       GEN      1845
                     12771                        BX7    X7+X1       ADD IN *J* REGISTER                         GEN      1846
                          20755                   LX7    P.LI15      ALIGN                                       GEN      1847
          1022  6120001023 +                      WCODE  X7          OUTPUT INSTRUCTION TO COMPUTE ADDRESS       GEN      1848
                                                                                                                 GEN      1849
                                        *         UNLOCK REGISTERS                                               GEN      1850
                                                                                                                 GEN      1851
          1023  5120001066 +                      SA2    AFREG       (0TR) ADDRESS FUNCTION REGISTER             GEN      1852
                          43071                   MX0    -3                                                      GEN      1853
                               15220              BX2    -X0*X2      (00R)                                       GEN      1854
          1024  63720                             SB7    X2                                                      GEN      1855
                     0100000000 X                 RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER            GEN      1856
          1025  5120001065 +                      SA2    ALREG       (0TR) ARRAY LOAD REGISTER                   GEN      1857
                          43071                   MX0    -3                                                      GEN      1858
                               15220              BX2    -X0*X2      (00R)                                       GEN      1859
          1026  63720                             SB7    X2                                                      GEN      1860
                     0100000000 X                 RJ     RUL         UNLOCK ARRAY LOAD REGISTER                  GEN      1861
                                                                                                                 GEN      1862
          1027  0400001034 +                      EQ     SLCMPB                                                  GEN      1863
                                                                                                                 GEN      1864
                                                                                                                 GEN      1865
                                        **        OUTPUT CODE TO LOAD ARRAY INTO REGISTER.                       GEN      1866
                                        *                                                                        GEN      1867
                                        *         (AFREG) = REGISTER FOR *J* PART OF INSTRUCTION.                GEN      1868
                                        *         (ALREG) = REGISTER FREE FOR LOAD. (0TR)                        GEN      1869
                                        *         (X7) = INSTRUCTION OP-CODE IN HIGH ORDER + BIAS IF PRESENT     GEN      1870
                                                                                                                 GEN      1871
          1030  5120001066 +             SL.CMP   SA2    AFREG                                                   GEN      1872
                          43071                   MX0    -3                                                      GEN      1873
                               15420              BX4    -X0*X2      EXTRACT *J* REGISTER                        GEN      1874
          1031  20460                    SLCMPA   LX4    60-12                                                   GEN      1875
                     36774                        IX7    X7+X4       ADD IN *J* REGISTER                         GEN      1876
                          5110001065 +            SA1    ALREG                                                   GEN      1877
          1032  15610                             BX6    -X0*X1                                                  GEN      1878
                     20663                        LX6    60-9        *I* REGISTER                                GEN      1879
                          36767                   IX7    X6+X7       ADD IN *I* REGISTER                         GEN      1880
          1033  6120001044 +                      WCODE  X7,SLCMPQ   COMPILE ARRAY LOAD                          FCC1208    46
                                                                                                                 GEN      1883
          1034                           SLCMPB   BSS    0                                                       GEN      1884
                                                                                                                 GEN      1885
                                         #DAL     IFNE   .DAL,0                                                  S3143FC    42
                                                                                                                 GEN      1887
          1034  5150001067 +                      SA5    ADDR                                                    GEN      1888
                          5120001065 +            SA2    ALREG       (0TR)                                       GEN      1889
          1035  0315001044 +                      NZ     X5,SLCMPM   IF ADDRESS WANTED                           GEN      1890
                                                                                                                 GEN      1891
                                        **        VALUE OF 7000 LEVEL 2 TAG REQUIRED.                            GEN      1892
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    42
        /SUBS  S U B S C R I P T S                                    SLD 
  
                                        *         OUTPUT TO INTERMEDIATE FILE                                    GEN      1893
                                        *                RXJ    XJ                                               GEN      1894
                                        *         OR                                                             GEN      1895
                                        *                WXJ    XK                                               GEN      1896
                                                                                                                 GEN      1897
                          6272777751              SB7    X2-R.X6+RGFILE                                          GEN      1898
          1036  43071                             MX0    -3                                                      GEN      1899
                     15320                        BX3    -X0*X2      (00R)                                       GEN      1900
                          0770001041 +            NG     B7,SLCMPD   IF NOT STORE REGISTER                       GEN      1901
          1037  5140001100 +                      SA4    SLDSR       (00R) SET REGISTER                          GEN      1902
                          7170001500              SX7    LCMW                                                    GEN      1903
          1040  0400001042 +                      EQ     SLCMPE                                                  GEN      1904
                                                                                                                 GEN      1905
          1041  10433                    SLCMPD   BX4    X3                                                      GEN      1906
                     7170001400                   SX7    LCMR                                                    GEN      1907
          1042  20303                    SLCMPE   LX3    3           (0R0)                                       GEN      1908
                     12334                        BX3    X3+X4       ADD *J* AND *K* REGISTERS                   GEN      1909
                          36773                   IX7    X7+X3                                                   GEN      1910
                               20755              LX7    P.LI15                                                  GEN      1911
          1043  6120001044 +                      WCODE  X7          OUTPUT LCM R/W INSTRUCTION                  GEN      1912
          1044                           SLCMPM   BSS    0                                                       GEN      1913
                                                                                                                 GEN      1914
                                         #DAL     ENDIF                                                          S3143FC    43
                                                                                                                 GEN      1916
          1044  5150001067 +             SLCMPQ   SA5    ADDR                                                    GEN      1917
                          5120001065 +            SA2    ALREG       (0TR)                                       GEN      1918
          1045  0305001046 +                      ZR     X5,SL.CMP0  IF ADDRESS NOT REQUESTED                    GEN      1919
                          7150002000              =X5    M.ADDR                                                  GEN      1920
          1046  7255040000               SL.CMP0  SX5    X5+M.2ARY                                               GEN      1921
                          5110003331 +            SA1    TYPLOD                                                  GEN      1922
          1047  63220                             SB2    X2                                                      GEN      1923
                     63310                        SB3    X1                                                      GEN      1924
                                                                                                                 GEN      1925
                                        *         DEFINE ARRAY LOAD RESULTS.                                     GEN      1926
                                                                                                                 GEN      1927
                          0100000000 X            RJ     DIT         DEFINE INTERMEDIATE                         GEN      1928
                                                                                                                 GEN      1929
                                        *         RESTORE REGISTERS AND EXIT.                                    GEN      1930
                                                                                                                 GEN      1931
          1050  5150001061 +             SL.CMP10 SA5    SAVEB4                                                  GEN      1932
                          76700                   =X7    0                                                       GEN      1933
                               54151              =A1    A5+1                                                    GEN      1934
          1051  5120000000 X                      SA2    TT.PAR                                                  GEN      1935
                          36552                   IX5    X5+X2                                                   GEN      1936
                               63450              SB4    X5          RESTORE *B4*                                GEN      1937
          1052  54211                             =A2    A1+1                                                    GEN      1938
                     5130000000 X                 SA3    NOLDS                                                   GEN      1939
          1053  5170001066 +                      SA7    AFREG                                                   GEN      1940
                          53410                   SA4    X1          RESTORE *A4*                                GEN      1941
                               73731              =X7    X3+1                                                    GEN      1942
          1054  10422                             BX4    X2          RESTORE *X4*                                GEN      1943
                     54730                        SA7    A3          UPDATE NO. OF LOADS                         GEN      1944
                          0400000603 +            EQ     EXIT.                                                   GEN      1945
                                                                                                                 GEN      1946
                                         OPBIAS   SYMASK (LI12,LBIAS)                                            GEN      1947
          1055                     1     SLDA     BSS    1                                                       GEN      1948
          1056  00000000000000000000     ALTAG    DATA   0           PASS 3 ARRAY LOAD TAG                       GEN      1949
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    43
        /SUBS  S U B S C R I P T S                                    SLD 
  
          1057  00000000000000000000     SRES     DATA   0                                                       GEN      1950
          1060  00000000000000000000     SIND     DATA   0                                                       FCC1210    11
          1061  00000000000000000000     SAVEB4   DATA   0                                                       GEN      1951
          1062  00000000000000000000     SAVEA4   DATA   0                                                       GEN      1952
          1063  00000000000000000000     SAVEX4   DATA   0                                                       GEN      1953
          1064  00000000000000000000     DIMI     DATA   0                                                       GEN      1954
          1065  00000000000000000000     ALREG    DATA   0                                                       GEN      1955
          1066  00000000000000000000     AFREG    DATA   0                                                       GEN      1956
          1067  00000000000000000000     ADDR     DATA   0                                                       GEN      1957
          1070  00000000000000000000     SAVEB2   DATA   0                                                       GEN      1958
          1071  00000000000000000000     SAVEB6   DATA   0                                                       GEN      1959
          1072  00000000000000000000     TRIP     DATA   0                                                       GEN      1960
          1073  00000000000000000000     SAVEX1   DATA   0                                                       GEN      1961
          1074  00000000000000000000     SAVEX2   DATA   0                                                       GEN      1962
          1075  00000000000000401075 +   AFSTS    CON    "BLOWUP"    LOCATION OF ADDRESS FUNCTION STATUS WORD    FCC1208    47
                                                                                                                 GEN      1963
                                         #DAL     IFNE   .DAL,0                                                  S3143FC    44
                                                                                                                 GEN      1965
          1076  00000000000000000000     SLDPWR   DATA   0                                                       GEN      1966
          1077  00000000000000000000     SLDSET   DATA   0                                                       GEN      1967
          1100  00000000000000000000     SLDSR    DATA   0                                                       GEN      1968
                                                                                                                 GEN      1969
                                         #DAL     ENDIF                                                          S3143FC    45
                                                                                                                 GEN      1971
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    44
        /SUBS  S U B S C R I P T S
  
                                        ****      TABLE OF ALL KNOWN INTRINSIC AND BASIC EXTERNAL FUNCTIONS      GEN      1973
                                        *         DEFINED AT COMPILE TIME.                                       GEN      1974
                                        *                                                                        GEN      1975
                                                                                                                 GEN      1976
                                                                                                                 GEN      1977
                                                  MACRO  NLINE,NAME,ARGTYP,FUNTYP,NOARGS,NANSI,SPEC              FCC0966    18
                                         B        SET    1                                                       GEN      1982
                                                  IFC    EQ,*NANSI*NONANSI*,1                                    GEN      1983
                                         B        SET    0                                                       GEN      1984
                                                  IFC    EQ,*SPEC**,2                                            GEN      1985
                                         F.NAME   VFD    L.FDPC/0L_NAME,1/0,L.FBEF/0,L.FANSI/B,L.FJPAD/O=NAME-IN FCC0966    19
                                        ,LBASE,L.FARGM/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP                   FCC0966    20
                                                  SKIP   1                                                       GEN      1988
                                         F.NAME   VFD    L.FDPC/0L_NAME,1/0,L.FBEF/0,L.FANSI/B,L.FJPAD/ES.NAME-E FCC0966    21
                                        ,SFBASE+1S8,L.FARGM/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP              FCC0966    22
                                         NLINE    ENDM                                                           GEN      1991
                                                                                                                 GEN      1992
                                                  MACRO  EXTBF,NAME,ARGTYP,FUNTYP,NOARGS,NANSI                   FCC0966    23
                                         B        SET    1                                                       GEN      1997
                                                  IFC    EQ,*NANSI*NONANSI*,1                                    GEN      1998
                                         B        SET    0                                                       GEN      1999
                                         Y        MICRO  1,, NAME                                                GEN      2000
                                         Z        MICCNT Y                                                       GEN      2001
                                         C        SET    54-Z*CHAR                                               GEN      2002
                                         F.NAME   VFD    L.FDPC/0L_NAME,1/0,L.FBEF/1,L.FANSI/B,L.FJPAD/C,L.FARGM FCC0966    24
                                        ,/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP                                FCC0966    25
                                         EXTBF    ENDM                                                           GEN      2005
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    45
        /SUBS  S U B S C R I P T S                                    INLINE
  
                                        **        INLINE TABLE FORMAT.                                           GEN      2007
                                        *                                                                        GEN      2008
                                        *         +---------------------------------+---+-+--------+--+-----+--+ FCC0966    26
                                        *         +                                 +///+A+        +A + NUM + M+ FCC0966    27
                                        *         +    F U N C T I O N     N A M E  +///+N+   REL  +R + OF  + O+ FCC0966    28
                                        *         +                                 +///+S+ ADDRESS+G + ARGS+ D+ FCC0966    29
                                        *         +          ( IN  DPC )            +///+I+        +M +     + E+ FCC0966    30
                                        *         +---------------------------------+---+-+--------+--+-----+--+ FCC0966    31
                                        *                                                                        GEN      2015
                                        *                                                                        GEN      2016
                                        *         EXTERNAL TABLE FORMAT.                                         GEN      2017
                                        *                                                                        GEN      2018
                                        *         +---------------------------------+-+-+-+--------+--+-----+--+ FCC0966    32
                                        *         +                                 +/+B+A+        +A + NUM + M+ FCC0966    33
                                        *         +    F U N C T I O N     N A M E  +/+E+N+  SHIFT +R + OF  + O+ FCC0966    34
                                        *         +                                 +/+F+S+  COUNT +G + ARGS+ D+ FCC0966    35
                                        *         +          ( IN  DPC )            +/+ +I+        +M +     + E+ FCC0966    36
                                        *         +---------------------------------+-+-+-+--------+--+-----+--+ FCC0966    37
                                        *                                                                        GEN      2025
                                        *                                                                        GEN      2026
                                        *         SYMBOL TABLE ENTRY FORMAT FOR EITHER *BEF* OR *INTRINSIC*      GEN      2027
                                        *                                                                        GEN      2028
                                        *         +-----------------+-------+--------+--+-----+-------------+--+ FCC0966    38
                                        *         +                 +///////+ SHIFT  +A + NUM +             + M+ FCC0966    39
                                        *         +   T    A    G   +///////+ COUNT  +R + OF  +  C L A S S  + O+ FCC0966    40
                                        *         +                 +///////+  OR    +G + ARGS+             + D+ FCC0966    41
                                        *         +                 +///////+ ADDRESS+M +     +             + E+ FCC0966    42
                                        *         +-----------------+-------+--------+--+-----+-------------+--+ FCC0966    43
                                        *                18            7        9      3   6         15      3   GEN      2035
                                        *                                   +--- PNT----+-PARM+                  GEN      2036
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    46
        /SUBS  S U B S C R I P T S                                    FIV 
  
          1101                           FIV      BSS    0                                                       GEN      2038
      L      0                                    LOC    0                                                       GEN      2039
                                                                                                                 GEN      2040
                                        ****      START OF ALL INTRINSICS.                                       GEN      2041
                                                                                                                 GEN      2042
      L      0  01022300000010003013     ABS      NLINE  REAL,REAL,1                                             GEN      2043
      L      1  01111501070010035013     AIMAG    NLINE  CPLX,REAL,1                                             GEN      2044
      L      2  01111624000010043013     AINT     NLINE  REAL,REAL,1                                             GEN      2045
      L      3  01150130330010102003     AMAX0    NLINE  INT,REAL                                                GEN      2046
      L      4  01150130340010423003     AMAX1    NLINE  REAL,REAL                                               GEN      2047
      L      5  01151116330010342003     AMIN0    NLINE  INT,REAL                                                GEN      2048
      L      6  01151116340010503003     AMIN1    NLINE  REAL,REAL                                               GEN      2049
      L      7  01151704000010523003     AMOD     NLINE  REAL,REAL                                               GEN      2050
      L     10  01160400000004560000     AND      NLINE  UNIV,UNIV,,NONANSI,SPEC                                 FCC0966    44
      L     11  03152014300010773025     CMPLX    NLINE  REAL,CPLX,2                                             GEN      2052
      L     12  03171612070010675015     CONJG    NLINE  CPLX,CPLX,1                                             GEN      2053
      L     13  03171520140004610010     COMPL    NLINE  UNIV,UNIV,1,NONANSI,SPEC                                FCC0966    45
      L     14  04010223000010714014     DABS     NLINE  DBL,DBL,1                                               GEN      2055
      L     15  04021405000010753014     DBLE     NLINE  REAL,DBL,1                                              GEN      2056
      L     16  04111500000011013023     DIM      NLINE  REAL,REAL,2                                             GEN      2057
      L     17  04150130340010164004     DMAX1    NLINE  DBL,DBL                                                 GEN      2058
      L     20  04151116340010364004     DMIN1    NLINE  DBL,DBL                                                 GEN      2059
      L     21  04151704000030364024     DMOD     EXTBF  DBL,DBL,2                                               GEN      2060
      L     22  04231107160011064024     DSIGN    NLINE  DBL,DBL,2                                               GEN      2061
      L     23  06141701240011162013     FLOAT    NLINE  INT,REAL,1                                              GEN      2062
      L     24  11010223000010002012     IABS     NLINE  INT,INT,1                                               GEN      2063
      L     25  11041115000011302022     IDIM     NLINE  INT,INT,2                                               GEN      2064
      L     26  11041116240011204012     IDINT    NLINE  DBL,INT,1                                               GEN      2065
      L     27  11061130000011203012     IFIX     NLINE  REAL,INT,1                                              GEN      2066
      L     30  11162400000011203012     INT      NLINE  REAL,INT,1                                              GEN      2067
      L     31  11231107160011222022     ISIGN    NLINE  INT,INT,2                                               GEN      2068
      L     32  14170306000004320012     LOCF     NLINE  UNIV,INT,1,NONANSI,SPEC                                 FCC0966    46
      L     33  15012313000004002010     MASK     NLINE  INT,UNIV,1,NONANSI,SPEC                                 FCC1510X    5
      L     34  15013033000010102002     MAX0     NLINE  INT,INT                                                 GEN      2071
      L     35  15013034000010423002     MAX1     NLINE  REAL,INT                                                GEN      2072
      L     36  15111633000010342002     MIN0     NLINE  INT,INT                                                 GEN      2073
      L     37  15111634000010503002     MIN1     NLINE  REAL,INT                                                GEN      2074
      L     40  15170400000014062022     MOD      NLINE  INT,INT,2,,SPEC                                         FCC0966    48
      L     41  17220000000004570000     OR       NLINE  UNIV,UNIV,,NONANSI,SPEC                                 FCC0966    49
      L     42  22011606000004440013     RANF     NLINE  UNIV,REAL,1,NONANSI,SPEC                                FCC0966    50
      L     43  22050114000011625013     REAL     NLINE  CPLX,REAL,1                                             GEN      2077
      L     44  23101106240004150020     SHIFT    NLINE  UNIV,UNIV,2,NONANSI,SPEC                                FCC0966    51
      L     45  23110716000011223023     SIGN     NLINE  REAL,REAL,2                                             GEN      2079
      L     46  23160714000011624013     SNGL     NLINE  DBL,REAL,1                                              GEN      2080
      L     47  30172200000004600000     XOR      NLINE  UNIV,UNIV,,NONANSI,SPEC                                 FCC0966    52
      L                                 ****                                                                     GEN      2082
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    47
        /SUBS  S U B S C R I P T S                                    EXTBF 
  
                                        ****      START OF BASIC EXTERNAL FUNCTIONS (BEFS).                      GEN      2084
                                                                                                                 GEN      2085
      L     50  04010317230030304014     DACOS    EXTBF  DBL,DBL,1                                               F191FCC     7
      L     51  04012311160030304014     DASIN    EXTBF  DBL,DBL,1                                               F191FCC     8
      L     52  04012401160030304014     DATAN    EXTBF  DBL,DBL,1                                               GEN      2086
      L     53  04012401163530224024     DATAN2   EXTBF  DBL,DBL,2                                               GEN      2087
      L     54  04031723000030364014     DCOS     EXTBF  DBL,DBL,1                                               GEN      2088
      L     55  04053020000030364014     DEXP     EXTBF  DBL,DBL,1                                               GEN      2089
      L     56  04141707000030364014     DLOG     EXTBF  DBL,DBL,1                                               GEN      2090
      L     57  04141707343330224014     DLOG10   EXTBF  DBL,DBL,1                                               GEN      2091
      L     60  04231116000030364014     DSIN     EXTBF  DBL,DBL,1                                               GEN      2092
      L     61  04240116000030364014     DTAN     EXTBF  DBL,DBL,1                                               F191FCC     9
      L     62  04232122240030304014     DSQRT    EXTBF  DBL,DBL,1                                               GEN      2093
      L     63  04240116100020304014     DTANH    EXTBF  DBL,DBL,1,NONANSI                                       FEAT79CZ    4
      L     64  04231116100020304014     DSINH    EXTBF  DBL,DBL,1,NONANSI                                       FEAT79CZ    5
      L     65  04031723100020304014     DCOSH    EXTBF  DBL,DBL,1,NONANSI                                       FEAT79CZ    6
      L                                                                                                          GEN      2094
      L     66  03010223000030365013     CABS     EXTBF  CPLX,REAL,1                                             GEN      2095
      L     67  03031723000030365015     CCOS     EXTBF  CPLX,CPLX,1                                             GEN      2096
      L     70  03053020000030365015     CEXP     EXTBF  CPLX,CPLX,1                                             GEN      2097
      L     71  03141707000030365015     CLOG     EXTBF  CPLX,CPLX,1                                             GEN      2098
      L     72  03231116000030365015     CSIN     EXTBF  CPLX,CPLX,1                                             GEN      2099
      L     73  03232122240030305015     CSQRT    EXTBF  CPLX,CPLX,1                                             GEN      2100
      L                                                                                                          GEN      2101
      L     74  23111600000030443013     SIN      EXTBF  REAL,REAL,1                                             GEN      2102
      L     75  03172300000030443013     COS      EXTBF  REAL,REAL,1                                             GEN      2103
      L     76  23212224000030363013     SQRT     EXTBF  REAL,REAL,1                                             GEN      2104
      L     77  24011600000020443013     TAN      EXTBF  REAL,REAL,1,NONANSI                                     GEN      2105
      L    100  01240116000030363013     ATAN     EXTBF  REAL,REAL,1                                             GEN      2106
      L    101  01141707000030363013     ALOG     EXTBF  REAL,REAL,1                                             GEN      2107
      L    102  01141707343330223013     ALOG10   EXTBF  REAL,REAL,1                                             GEN      2108
      L    103  01240116350030303023     ATAN2    EXTBF  REAL,REAL,2                                             GEN      2109
      L    104  01240116100030303013     ATANH    EXTBF  REAL,REAL,1                                             F191FCC    10
      L    105  24011610000030363013     TANH     EXTBF  REAL,REAL,1                                             GEN      2110
      L    106  23111610000020363013     SINH     EXTBF  REAL,REAL,1,NONANSI                                     FEAT79BZ    4
      L    107  03172310000020363013     COSH     EXTBF  REAL,REAL,1,NONANSI                                     FEAT79BZ    5
      L    110  01231116000020363013     ASIN     EXTBF  REAL,REAL,1,NONANSI                                     GEN      2111
      L    111  01031723000020363013     ACOS     EXTBF  REAL,REAL,1,NONANSI                                     GEN      2112
      L    112  05302000000030443013     EXP      EXTBF  REAL,REAL,1                                             GEN      2113
      L    113  05220600000030443013     ERF      EXTBF  REAL,REAL,1                                             F191FCC    11
      L    114  05220603000030363013     ERFC     EXTBF  REAL,REAL,1                                             F191FCC    12
      L    115  23111604000030363013     SIND     EXTBF  REAL,REAL,1                                             F191FCC    13
      L    116  03172304000030363013     COSD     EXTBF  REAL,REAL,1                                             F191FCC    14
      L    117  24011604000030363013     TAND     EXTBF  REAL,REAL,1                                             F191FCC    15
      L                                 ****                                                                     GEN      2114
      L    120                           L.FIV    BSS    0           LENGTH OF *FIV* TABLE                       GEN      2115
          1221                                    LOC    *O                                                      GEN      2116
                                1220 +   E.FIV    EQU    *-1                                                     GEN      2117
                                                  POPMAC INLINE                                                  GEN      2118
                                                  POPMAC EXTBF                                                   GEN      2119
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    48
        /SUBS  S U B S C R I P T S                                    STINS 
  
                                        **        STINS - SET INSTRUCTION DEPENDING ON TYPES.                    GEN      2122
                                                                                                                 GEN      2123
                                                                                                                 GEN      2124
                                         STINS    MACRO  INSTS                                                   GEN      2125
                                         A        MICRO                                                          GEN      2126
                                         B        SET    60                                                      GEN      2127
                                         C        SET    16                                                      GEN      2128
                                         .1       IRP    INSTS                                                   GEN      2129
                                         A        MICRO  1,,."A",C/INSTS.                                        GEN      2130
                                         B        SET    B-C                                                     GEN      2131
                                         .1       IRP                                                            GEN      2132
                                                  VFD    B/0"A"                                                  GEN      2133
                                         STINS    ENDM                                                           GEN      2134
                                                                                                                 GEN      2135
                                                                                                                 GEN      2136
          1221  00003700017400111777     CRTTAB   STINS  (SX=BB,SX=BB,-SB=BB)                                    GEN      2137
          1222  00002600024777663000              STINS  (SA=AB,-SA=AB,SB=XB) **** TEMP SB=XB ****               GEN      2138
          1223  00007377775777663000              STINS  (-XMIT,-XMIT,SB=XB)                                     GEN      2139
                                                                                                                 GEN      2140
                                                  POPMAC STINS                                                   GEN      2141
  
  
  
  
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    49
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN
  
                                         RMAC     SECT   (SKELETONS FOR CODE GENERATION.-MACRUN),1               GEN      2143
  
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    50
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  DEFUJP
  
                                        **        DEFUJP - DEFINE INSTRUCTIONS FOR UNCONDITIONAL JUMPS           GEN      2145
                                                                                                                 GEN      2146
                                                                                                                 GEN      2147
                                                  MACRO  DEFUJP,INST,OPC,TYPE                                    GEN      2148
                                         INST     EQU    OPC_BS3                                                 GEN      2149
                                         INST     MACRO  K                                                       GEN      2150
                                                  FORM   (0,OPC,K),INST,TYPE                                     GEN      2151
                                         INST     ENDM                                                           GEN      2152
                                         DEFUJP   ENDM                                                           GEN      2153
  
  
  
  
                                        **        DEFINS - DEFINE INSTRUCTIONS                                   GEN      2155
                                                                                                                 GEN      2156
                                                                                                                 GEN      2157
                                                  MACRO  DEFINS,INST,OPC,TYPE                                    GEN      2158
                                         A        MICRO  1,, 9                                                   GEN      2159
                                                  IFEQ   TYPE,M.BRAN,1                                           GEN      2160
                                         A        MICRO  1,, 6                                                   GEN      2161
                                         INST     EQU    OPC_BS"A"                                               GEN      2162
                                         INST     MACRO  I,J,K                                                   GEN      2163
                                                  FORM   (I,J,K),INST,TYPE                                       GEN      2164
                                         INST     ENDM                                                           GEN      2165
                                         DEFINS   ENDM                                                           GEN      2166
                                                                                                                 GEN      2167
                                                                                                                 GEN      2168
                                        **        PURGE STORE, THE 7RM STORE MACRO IN SYSTEXT                    GEN      2169
                                                                                                                 GEN      2170
                                                  PURGMAC  STORE                                                 GEN      2171
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    51
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  DMOD
  
                                        **        DMOD - BUILD MODE OF OPERATION POINTER WORD FOR SELECTING      GEN      2173
                                        *                APPROPRIATE INSTRUCTIONS FOR A GIVEN OPERATOR           GEN      2174
                                        *         TYPE = 1ST 3 CHARACTERS MUST BE 0=                             GEN      2175
                                        *         U,L,I,R,D,C = PROCESSING ADDRESSES FOR                         GEN      2176
                                        *                U = UNIVERSAL.                                          GEN      2177
                                        *                L = LOGICAL.                                            GEN      2178
                                        *                I = INTEGER.                                            GEN      2179
                                        *                R = REAL                                                GEN      2180
                                        *                D = DOUBLE                                              GEN      2181
                                        *                C = COMPLEX                                             GEN      2182
                                        *                                                                        GEN      2183
                                        *         MUST NOT USE SCRATCH SYMBOL *Z* - SEE FORM, FORME              GEN      2184
                                                                                                                 GEN      2185
                                                                                                                 GEN      2186
                                                  MACRO  DMOD,TYPE,U,L,I,R,D,C                                   GEN      2187
                                         B        MICRO  3,,/TYPE/                                               GEN      2188
                                         E        MICRO  ,,                                                      GEN      2189
                                        .1        ECHO   ,P=(C,D,R,I,L,U)                                        GEN      2190
                                         A        MICRO  1,1,/P/                                                 GEN      2191
                                         .2       IFC    EQ,*"A"*E*                                              GEN      2192
                                         E        MICRO  1,,$"E"8/E.EXBASE,$                                     FCC1046    34
                                         .2       ELSE                                                           GEN      2194
                                         E        MICRO  1,,$"E"8/"B".P-TYPE,$                                   GEN      2195
                                        .1        ENDD                                                           GEN      2196
                                         TYPE     VFD    12/0,"E"                                                GEN      2197
                                         DMOD     ENDM                                                           GEN      2198
                                                                                                                 GEN      2199
                                 377     E.EXBASE EQU    377B                                                    FCC1046    35
                                                                                                                 GEN      2201
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    52
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  ITYPE 
  
                                        **        ITYPE - FIELD DEFINITIONS FOR INSTRUCTION SKELETON WORDS.      GEN      2203
                                                                                                                 GEN      2204
                                                                                                                 GEN      2205
                                         ITYPE    DEFINE 54,6                                                    GEN      2206
                                                                                                                 GEN      2207
                                                                                                                 GEN      2208
                                   0     M.COND   EQU    0           CONDITIONAL                                 GEN      2209
                                   1     M.NORM   EQU    1           ARITHMETIC OP-CODES                         GEN      2210
                                   2     M.INCR   EQU    2           LOAD REGISTER OP-CODES                      GEN      2211
                                   3     M.BRAN   EQU    3           BRANCH OP-CODES                             GEN      2212
                                   4     M.SHIF   EQU    4           REGISTER SHIFT OP-CODES                     GEN      2213
                                   5     M.ICALL  EQU    5           IF NEEDS TO CALL A EXTERNAL PROCESSOR TO    GEN      2214
                                   6     M.IUSE   EQU    6           IF USE ANOTHER SKELETON.                    GEN      2215
                                   7     M.IRST   EQU    7           IF RESET TO ANOTHER SKELETON.               GEN      2216
                                  10     M.LOAD   EQU    10B         LOAD/STORE INSTRUCTIONS                     GEN      2217
                                                                                                                 GEN      2218
                                        **        VALUES *11* THRU *37* NOT CURRENTLY USED.                      GEN      2219
                                                                                                                 GEN      2220
                                  40     M.IEND   EQU    40B         END OF SKELETON                             GEN      2221
                                  73     P.IEND   EQU    59                                                      GEN      2222
                                                                                                                 GEN      2223
                                         IOPC     DEFINE 45,9        OPCODE.                                     GEN      2224
                                         INUM     DEFINE 17,6        REGISTER/ CONSTANT.                         GEN      2225
                                         IOAD     DEFINE 12,5        ORDINAL.                                    GEN      2226
                                         IQF      DEFINE 0,12        K IF CONSTANT ADD IN.                       GEN      2227
                                                                                                                 GEN      2228
                                        **        SKELETON EXPANSION FORMAT.                                     GEN      2229
                                        *                                                                        GEN      2230
                                        **T SKELETON  6/ TYP, 9/OPCODE, 6/I, 5/I, 6/J, 5/J, 6/K, 5/K, 12/Q FIELD GEN      2231
                                        **T,    6/ ,9/ , 6/NUM, 5/ADDR, 6/NUM, 5/ADDR, 6/NUM, 5/ADDR,12/CONSTANT GEN      2232
                                                                                                                 GEN      2233
                                        **        MICROS USED WITHIN SKELETON FIELDS TO DEFINED A PARTICULAR     GEN      2234
                                        *         TYPE OF OPERATION/OPERAND OR CONSTANT                          GEN      2235
                                                                                                                 GEN      2236
                                         M1       MICRO  1,, CL1                                                 GEN      2237
                                         M2       MICRO  1,, CM1                                                 GEN      2238
                                         M3       MICRO  1,, CU1                                                 GEN      2239
                                         N1       MICRO  1,, CL2                                                 GEN      2240
                                         N2       MICRO  1,, CM2                                                 GEN      2241
                                         N3       MICRO  1,, CU2                                                 GEN      2242
                                         K-1      MICRO  1,, +777776B      MINUS ONE                             GEN      2243
                                         TAG1     MICRO  1,, CU2           TAG FIELD FROM OR.1OP                 GEN      2244
                                         TAG2     MICRO  1,, CU2           TAG FIELD FROM OR.2OP                 GEN      2245
                                                                                                                 GEN      2246
                                         DOBEG    MICRO  1,, CL4           DO BEGIN LABEL                        GEN      2247
                                         DOINCR   MICRO  1,, CU2           DO INCREMENT TAG (CONSTANT)           GEN      2248
                                         DOLIM    MICRO  1,, CU3           DO LIMIT VALUE   (CONSTANT)           GEN      2249
                                         DOINIT   MICRO  1,, CU1           DO INITIAL VALUE (CONSTANT)           GEN      2250
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    53
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  IMACROS 
  
                                        **        INSTRUCTION MACROS                                             GEN      2252
                                                                                                                 GEN      2253
                                        **        BRANCH UNIT                                                    GEN      2254
                                                                                                                 GEN      2255
                                         RJQ      DEFUJP 2,M.BRAN                                                GEN      2256
                                         JPQ      DEFUJP 3,M.BRAN                                                GEN      2257
                                         EQJ      DEFUJP 4,M.BRAN                                                GEN      2258
                                                                                                                 GEN      2259
                                         #DAL     IFNE   .DAL,0                                                  S3143FC    46
                                                                                                                 GEN      2261
                                                  ENTRY  LCMR,LCMW                                               GEN      2262
                                         LCMR     DEFINS 014,M.BRAN  FAKE *RXJ  XK* AS BRANCH FOR *DEFINS*       GEN      2263
                                         LCMW     DEFINS 015,M.BRAN  FAKE *WXJ  XK* AS BRANCH FOR *DEFINS*       GEN      2264
                                                                                                                 GEN      2265
                                         #DAL     ENDIF                                                          S3143FC    47
                                                                                                                 GEN      2267
                                         ZRJ      DEFINS 030,M.BRAN                                              GEN      2268
                                         NZJ      DEFINS 031,M.BRAN                                              GEN      2269
                                         PLJ      DEFINS 032,M.BRAN                                              GEN      2270
                                         MIJ      DEFINS 033,M.BRAN                                              GEN      2271
                                                                                                                 GEN      2272
                                         IRJ      DEFINS 034,M.BRAN                                              GEN      2273
                                         ORJ      DEFINS 035,M.BRAN                                              GEN      2274
                                         DFJ      DEFINS 036,M.BRAN                                              GEN      2275
                                         IDJ      DEFINS 037,M.BRAN                                              GEN      2276
                                                                                                                 GEN      2277
                                         EQB      DEFINS 040,M.BRAN                                              GEN      2278
                                         NEB      DEFINS 050,M.BRAN                                              GEN      2279
                                         LEB      DEFINS 060,M.BRAN                                              GEN      2280
                                         GEB      DEFINS 060,M.BRAN                                              GEN      2281
                                         LTB      DEFINS 070,M.BRAN                                              GEN      2282
                                         GTB      DEFINS 070,M.BRAN                                              GEN      2283
                                                                                                                 GEN      2284
                                        **        BOOLEAN UNIT                                                   GEN      2285
                                                                                                                 GEN      2286
                                         XMIT     DEFINS 10,M.SHIF                                               GEN      2287
                                         AND      DEFINS 11,M.NORM                                               GEN      2288
                                         OR       DEFINS 12,M.NORM                                               GEN      2289
                                         XOR      DEFINS 13,M.NORM                                               GEN      2290
                                         ZERO     DEFINS 13,M.NORM                                               GEN      2291
                                         XMITC    DEFINS 14,M.NORM                                               GEN      2292
                                         ANDN     DEFINS 15,M.NORM                                               GEN      2293
                                         ORN      DEFINS 16,M.NORM                                               GEN      2294
                                         LGDIFC   DEFINS 17,M.NORM                                               GEN      2295
                                         XORN     DEFINS 17,M.NORM                                               GEN      2296
                                                                                                                 GEN      2297
                                        **        SHIFT UNIT.                                                    GEN      2298
                                                                                                                 GEN      2299
                                         LSHF     DEFINS 20,M.SHIF                                               GEN      2300
                                         RSHF     DEFINS 21,M.SHIF                                               GEN      2301
                                         LSHFB    DEFINS 22,M.SHIF                                               GEN      2302
                                         RSHFB    DEFINS 23,M.SHIF                                               GEN      2303
                                         NORMZ    DEFINS 24,M.NORM                                               GEN      2304
                                         RNORMZ   DEFINS 25,M.NORM                                               GEN      2305
                                         UPACK    DEFINS 26,M.NORM                                               GEN      2306
                                         PACK     DEFINS 27,M.NORM                                               GEN      2307
                                         FMASK    DEFINS 43,M.NORM                                               GEN      2308
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    54
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  IMACROS 
  
                                                                                                                 GEN      2309
                                        **        ADD UNIT.                                                      GEN      2310
                                                                                                                 GEN      2311
                                         FADD     DEFINS 30,M.NORM                                               GEN      2312
                                         FSUB     DEFINS 31,M.NORM                                               GEN      2313
                                         DFADD    DEFINS 32,M.NORM                                               GEN      2314
                                         DFSUB    DEFINS 33,M.NORM                                               GEN      2315
                                         RFADD    DEFINS 34,M.NORM                                               GEN      2316
                                         RFSUB    DEFINS 35,M.NORM                                               GEN      2317
                                                                                                                 GEN      2318
                                        **        LONG ADD UNIT.                                                 GEN      2319
                                                                                                                 GEN      2320
                                         .76      IFEQ   .CPU,76                                                 GEN      2321
                                                  ENTRY  IADD                                                    GEN      2322
                                         .76      ENDIF                                                          GEN      2323
                                                                                                                 GEN      2324
                                         IADD     DEFINS 36,M.NORM                                               GEN      2325
                                         ISUB     DEFINS 37,M.NORM                                               GEN      2326
                                                                                                                 GEN      2327
                                        **        MULTIPLY UNIT.                                                 GEN      2328
                                                                                                                 GEN      2329
                                         FMULT    DEFINS 40,M.NORM                                               GEN      2330
                                         RMULT    DEFINS 41,M.NORM                                               GEN      2331
                                         DMULT    DEFINS 42,M.NORM                                               GEN      2332
                                         IMULT    DEFINS 42,M.NORM                                               GEN      2333
                                                                                                                 GEN      2334
                                        **        DIVIDE UNIT.                                                   GEN      2335
                                                                                                                 GEN      2336
                                         FDIV     DEFINS 44,M.NORM                                               GEN      2337
                                         RDIV     DEFINS 45,M.NORM                                               GEN      2338
                                         NOOP     DEFINS 46,M.NORM                                               GEN      2339
                                         POPCNT   DEFINS 47,M.NORM                                               GEN      2340
                                                                                                                 GEN      2341
                                        **        INCREMENT UNIT                                                 GEN      2342
                                                                                                                 GEN      2343
                                         SA=AK    DEFINS 50,M.INCR                                               GEN      2344
                                         SA=BK    DEFINS 51,M.INCR                                               GEN      2345
                                         SA=XK    DEFINS 52,M.INCR                                               GEN      2346
                                         SA=XB    DEFINS 53,M.INCR                                               GEN      2347
                                         SA=AB    DEFINS 54,M.INCR                                               GEN      2348
                                         SA=AMB   DEFINS 55,M.INCR                                               GEN      2349
                                         SA=BB    DEFINS 56,M.INCR                                               GEN      2350
                                         SA=BMB   DEFINS 57,M.INCR                                               GEN      2351
                                                                                                                 GEN      2352
                                         SB=AK    DEFINS 60,M.INCR                                               GEN      2353
                                         SB=BK    DEFINS 61,M.INCR                                               GEN      2354
                                         SB=XK    DEFINS 62,M.INCR                                               GEN      2355
                                         SB=XB    DEFINS 63,M.INCR                                               GEN      2356
                                         SB=AB    DEFINS 64,M.INCR                                               GEN      2357
                                         SB=AMB   DEFINS 65,M.INCR                                               GEN      2358
                                         SB=BB    DEFINS 66,M.INCR                                               GEN      2359
                                         SB=BMB   DEFINS 67,M.INCR                                               GEN      2360
                                                                                                                 GEN      2361
                                                                                                                 GEN      2362
                                         SX=AK    DEFINS 70,M.INCR                                               GEN      2363
                                         SX=BK    DEFINS 71,M.INCR                                               GEN      2364
                                         SX=XK    DEFINS 72,M.INCR                                               GEN      2365
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    55
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  IMACROS 
  
                                         SX=XB    DEFINS 73,M.INCR                                               GEN      2366
                                         SX=AB    DEFINS 74,M.INCR                                               GEN      2367
                                         SX=AMB   DEFINS 75,M.INCR                                               GEN      2368
                                         SX=BB    DEFINS 76,M.INCR                                               GEN      2369
                                         SX=BMB   DEFINS 77,M.INCR                                               GEN      2370
                                                                                                                 GEN      2371
                                         LOAD     DEFINS 50,M.LOAD                                               GEN      2372
                                         LOADB    DEFINS 60,M.LOAD                                               GEN      2373
                                         STORE    DEFINS 50,M.LOAD                                               GEN      2374
                                                                                                                 GEN      2375
                                        *         THESE EQUATES ARE FOR EXTERNAL REFERENCES                      GEN      2376
                                                                                                                 GEN      2377
                                5400     SA=ABS3  EQU    SA=AB/1S3                                               GEN      2378
                                 540     SA=ABS6  EQU    SA=AB/1S6                                               GEN      2379
                                 500     SA=AKS6  EQU    SA=AK/1S6                                               GEN      2380
                                5200     SA=XKS3  EQU    SA=XK/1S3                                               GEN      2381
                                5100     SA=BKS3  EQU    SA=BK/1S3                                               GEN      2382
                                  51     SA=BKS9  EQU    SA=BK/1S9                                               GEN      2383
                                  61     SB=BKS9  EQU    SB=BK/1S9                                               GEN      2384
                                  71     SX=BKS9  EQU    SX=BK/1S9                                               GEN      2385
                                  72     SX=XKS9  EQU    SX=XK/1S9                                               GEN      2386
                                7200     SX=XKS3  EQU    SX=XK/1S3                                               GEN      2387
                                7100     SX=BKS3  EQU    SX=BK/1S3                                               GEN      2388
                                1000     XMITS3   EQU    XMIT/1S3                                                GEN      2389
                                6100     SB=BKS3  EQU    SB=BK/1S3                                               FEAT155G  369
                                                                                                                 GEN      2390
                                         .76      IFEQ   .CPU,76                                                 GEN      2391
                                                  ENTRY  SX=BKS3                                                 GEN      2392
                                         SX=BKS3  EQU    SX=BK/1S3                                               GEN      2393
                                         .76      ENDIF                                                          GEN      2394
  
  
  
  
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    56
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  FORM
  
                                        **        FORM - FORM INSTRUCTION SKELETON FOR COMPILING A GIVEN         GEN      2397
                                        *                SEQUENCE OF CODE.                                       GEN      2398
                                        *                                                                        GEN      2399
                                        *         ALL INSTRUCTION TO BE COMPILED BY ARITH MUST BE IN THE FORM    GEN      2400
                                        *         OF SKELETON INSTRUCTIONS TO BE EXPANDED BY *EIS*, THE          GEN      2401
                                        *         GENERAL INSTRUCTION EXPANDER.                                  GEN      2402
                                        *                                                                        GEN      2403
                                        *         *FORM* HAS 3 ARGUMENTS --                                      GEN      2404
                                        *                1ST = I,J,K PORTIONS OF INSTRUCTIONS.                   GEN      2405
                                        *                2ND = OPCODE                                            GEN      2406
                                        *                3RD = TYPE OF OP-CODE.                                  GEN      2407
                                                                                                                 GEN      2408
                                                                                                                 GEN      2409
                                         FORM     MACRO  IJK,OPCODE,TYPE                                         GEN      2410
                                        **               FLUSH PREVIOUS SKELETON                                 GEN      2411
                                                  VFD    "H""L""Q"                                               GEN      2412
                                         L        MICRO                                                          GEN      2413
                                         Q        MICRO  1,,$,L.IQF/0$                                           GEN      2414
                                         X        SET    TYPE                                                    GEN      2415
                                         H        MICRO  1,,$L.ITYPEM/X,L.IOPCM/OPCODE/1S6$                      GEN      2416
                                        .1        IRP    IJK                                                     GEN      2417
                                                  IFC    EQ,  IJK ,2                                             GEN      2418
                                                  SETCON 0                                                       GEN      2419
                                                  SKIP   7                                                       GEN      2420
                                        **                           DEFINE BASE FOR THIS PORTION                GEN      2421
                                                  IFC    LT, IJK 0 ,2                                            GEN      2422
                                        **                           HERE IF LETTER.                             GEN      2423
                                                  SETOTH IJK                                                     GEN      2424
                                                  SKIP   4                                                       GEN      2425
                                                  IFC    LT, IJK * ,2                                            GEN      2426
                                        **                           HERE IF CONSTANT.                           GEN      2427
                                                  SETCON IJK                                                     GEN      2428
                                                  SKIP   1                                                       GEN      2429
                                        **                           HERE SPECIAL CHARACTER                      GEN      2430
                                                  SETOTH IJK                                                     GEN      2431
                                        .1        IRP                                                            GEN      2432
                                         FORM     ENDM                                                           GEN      2433
                                                                                                                 GEN      2434
                                                                                                                 GEN      2435
                                         ITYPEM   DEFINE P.ITYPE,L.ITYPE                                         GEN      2436
                                         IOPCM    DEFINE P.IOPC,L.IOPC                                           GEN      2437
                                         INUMM    DEFINE P.INUM,L.INUM                                           GEN      2438
                                         IOADM    DEFINE P.IOAD,L.IOAD                                           GEN      2439
                                         IQFM     DEFINE P.IQF,L.IQF                                             GEN      2440
                                                  NOREF  L.IOPCM,L.INUMM,L.IOADM,L.IQFM                          GEN      2441
  
  
  
  
                                        **        REGSET - SET REQUIRED REGISTERS FOR *LOAD* / *STORE*           GEN      2443
                                        *                  SKELETON EXPANSIONS.                                  GEN      2444
                                        *                                                                        GEN      2445
                                        *         REGSET (I=TR,J=TR,K=TR)                                        GEN      2446
                                        *                T = TYPE OF REGISTER  *R.X*, *R.B* OR *R.A*             GEN      2447
                                        *                R=  0-7.                                                GEN      2448
                                                                                                                 GEN      2449
                                                                                                                 GEN      2450
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    57
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  REGSET
  
                                         REGSET   MACRO  IJK                                                     GEN      2451
                                        .1        IRP    IJK                                                     GEN      2452
                                         A        MICRO  3,, IJK                                                 GEN      2453
                                         C        MICRO  1,,$"C"18/"A"-RGFILE,$                                  GEN      2454
                                        .1        IRP                                                            GEN      2455
                                                  VFD    "C"6/0                                                  GEN      2456
                                         REGSET   ENDM                                                           GEN      2457
  
  
  
  
                                        **        SETCON-  SET CONSTANT FORM OF SKELETON FOR CURRENT PORTION     GEN      2459
                                        *                  OF INSTRUCTION PROCESSING.                            GEN      2460
                                        *                                                                        GEN      2461
                                        *         EXIT   MICRO *L* RESET.                                        GEN      2462
                                        *                IF Q FIELD PRESENT MICRO *Q* BUILT.                     GEN      2463
                                        *                                                                        GEN      2464
                                        *         A *Q* FIELD IS INDICATED BY THE FIRST CHARACTER BEING A PLUS   GEN      2465
                                        *         OR MINUS SIGN.                                                 GEN      2466
                                        *                                                                        GEN      2467
                                        *                                                                        GEN      2468
                                        *         CALLED BY *FORM* WHEN ITH PORTION IS A CONSTANT.               GEN      2469
                                                                                                                 GEN      2470
                                                                                                                 GEN      2471
                                         SETCON   MACRO  IJK                                                     GEN      2472
                                         A        SET    IJK                                                     GEN      2473
                                        .1        IFC    LT, IJK +                                               GEN      2474
                                        *                                                                        GEN      2475
                                        *                            HARD NUMERIC REGISTER FIELD                 GEN      2476
                                        *                                                                        GEN      2477
                                         L        MICRO  1,,$"L",L.INUMM/IJK,L.IOADM/AT.K-SBASE$                 GEN      2478
                                        .1        ELSE                                                           GEN      2479
                                        *                                                                        GEN      2480
                                        *                            18-BIT *Q* FIELD                            GEN      2481
                                        *                                                                        GEN      2482
                                         D        OCTMIC A,6                                                     GEN      2483
                                         .2       IFLT   A,0                                                     GEN      2484
                                         B        MICRO  1,2, "D"                                                GEN      2485
                                         C        MICRO  3,, "D"                                                 GEN      2486
                                         L        MICRO  1,,$"L",L.INUMM/"B"B,L.IOADM/AT.Q-SBASE$                GEN      2487
                                         Q        MICRO  1,,$,L.IQF/"C"B$                                        GEN      2488
                                         .2       ELSE                                                           GEN      2489
                                         B        DECMIC A/1S12                                                  GEN      2490
                                         D        DECMIC A-"B"*1S12                                              GEN      2491
                                         L        MICRO  1,,$"L",L.INUMM/"B",L.IOADM/AT.Q-SBASE$                 GEN      2492
                                         Q        MICRO  1,,$,L.IQF/"D"$                                         GEN      2493
                                         .2       ENDIF                                                          GEN      2494
                                        .1        ENDIF                                                          GEN      2495
                                         SETCON   ENDM                                                           GEN      2496
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    58
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  SETOTH
  
                                        **        SETOTH- SET OTHER TYPE FIELD FOR *FORM* MACRO.                 GEN      2498
                                                                                                                 GEN      2499
                                                                                                                 GEN      2500
                                         SETOTH   MACRO  IJK                                                     GEN      2501
                                         A        MICRO  1,, IJK                                                 GEN      2502
                                         B        MICCNT A                                                       GEN      2503
                                         C        MICRO  B,1, IJK                                                GEN      2504
                                         F        SET    1                                                       GEN      2505
                                         D        MICRO  B-1,1, IJK                                              GEN      2506
                                                  IFC    GT, "D" Z ,2                                            GEN      2507
                                         F        SET    2                                                       GEN      2508
                                         C        MICRO  B-1,2, IJK                                              GEN      2509
                                         G        SET    B-F                                                     GEN      2510
                                         E        MICRO  1,G, IJK                                                GEN      2511
                                         A        MICMIC 1,T."E"                                                 GEN      2512
                                         N        MICRO  "C"*2+6,2,-"A"-                                         GEN      2513
                                         E        MICRO  1,, "A"                                                 GEN      2514
                                         L        MICRO  1,,$"L",L.INUMM/"N",L.IOADM/AT."E"-SBASE$               GEN      2515
                                         SETOTH   ENDM                                                           GEN      2516
  
  
  
  
                                        **        ENDF - FLUSH LAST SKELETON WORD.                               GEN      2518
                                        *                                                                        GEN      2519
                                        *         ENDF                                                           GEN      2520
                                                                                                                 GEN      2521
                                                                                                                 GEN      2522
                                         ENDF     MACRO                                                          GEN      2523
                                                  VFD    "H""L""Q"                                               GEN      2524
                                         H        MICRO                                                          GEN      2525
                                         L        MICRO                                                          GEN      2526
                                         Q        MICRO                                                          GEN      2527
                                         ENDF     ENDM                                                           GEN      2528
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    59
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  ENDS
  
                                        **        ENDS - END MACRO SKELETON.                                     GEN      2530
                                        *                                                                        GEN      2531
                                        *         GENERATES ENDING *SKELETON* FOR AN *RMAC* MACRO.               GEN      2532
                                        *                                                                        GEN      2533
                                        *         ENDS                                                           GEN      2534
                                                                                                                 GEN      2535
                                                                                                                 GEN      2536
                                         ENDS     MACRO                                                          GEN      2537
                                         X        SET    X+M.IEND                                                GEN      2538
                                                  VFD    "H""L""Q"                                               GEN      2539
                                         H        MICRO                                                          GEN      2540
                                         L        MICRO                                                          GEN      2541
                                         Q        MICRO                                                          GEN      2542
                                         ENDS     ENDM                                                           GEN      2543
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    60
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  SETSPC
  
                                        **        DEFINITION OF SPECIAL SKELETONS AVAILABLE WHEN TYPE FIELD      GEN      2545
                                        *         OF SKELETON IS = M.SPEC                                        GEN      2546
                                                                                                                 GEN      2547
                                         ITYPE    DEFINE 54,6        TYPE                                        GEN      2548
                                         MATTR    DEFINE 36,18       ATTRIBUTES                                  GEN      2549
                                         MARG     DEFINE 18,18       ARGUMENT IF PRESENT                         GEN      2550
                                         MJPAD    DEFINE 0,18        ADDRESS TO BE SET TO                        GEN      2551
  
  
  
  
                                        **        SETSPC- SET SPECIAL SKELETON                                   GEN      2553
                                                                                                                 GEN      2554
                                                                                                                 GEN      2555
                                         SETSPC   MACRO  TYPE,WHERE,ARG                                          GEN      2556
                                                  VFD    "H""L""Q"                                               GEN      2557
                                         H        MICRO  1,,$L.ITYPE/X,L.MATTR/0,L.MARG/ARG,L.MJPAD/WHERE$       GEN      2558
                                         X        SET    TYPE                                                    GEN      2559
                                         L        MICRO                                                          GEN      2560
                                         Q        MICRO                                                          GEN      2561
                                         SETSPC   ENDM                                                           GEN      2562
  
  
  
  
                                        **        RESET - RESET CURRENT INSTRUCTION SKELETON POINTER TO ARGUMENT GEN      2564
                                        *         ARG = WHERE TO RESET SKELETON TO.  IF NEGATIVE *ARG* INDICATES GEN      2565
                                        *               RELATIVE TO TT.PAR WHERE NEXT *TURPLE* IS TO BE FOUND    GEN      2566
                                                                                                                 GEN      2567
                                                                                                                 GEN      2568
                                         RESET    MACRO  TO,ARG                                                  GEN      2569
                                                  SETSPC M.IRST,TO,ARG                                           GEN      2570
                                         RESET    ENDM                                                           GEN      2571
  
  
  
  
                                        **        USESKL - USE ANOTHER SKELETON TO PARTIAL PROCESS               GEN      2573
                                        *                  CURRENT TURPLE.                                       GEN      2574
                                                                                                                 GEN      2575
                                                                                                                 GEN      2576
                                         USESKL   MACRO  TO,ARG                                                  GEN      2577
                                                  SETSPC M.IUSE,TO,ARG                                           GEN      2578
                                         USESKL   ENDM                                                           GEN      2579
  
  
  
  
                                        **        CALL - CALL AN EXTERNAL PROCESSOR TO PROCESS/ OR PARTIALLY     GEN      2581
                                        *                PROCESS CURRENT TURPLE.                                 GEN      2582
                                        *                                                                        GEN      2583
                                        *         NOTE - IF CALL IS TO USE OR.1OP OR OR.2OP AS ARGUMENT, *L*     GEN      2584
                                        *                MUST BE PREFIX FOLLOWED BY EITHER *1* OR *2* ONLY.      GEN      2585
                                        *                ALL OTHER CASES SHOULD PREFIX ARGUMENT WITH A *0+*.     GEN      2586
                                                                                                                 GEN      2587
                                                                                                                 GEN      2588
                                         CALL     MACRO  TO,ARG                                                  GEN      2589
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    61
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  CALL
  
                                        .1        IFC    LT, ARG 0                                               GEN      2590
                                         A        MICRO  2,1, ARG                                                GEN      2591
                                         B        OCTMIC "A",1                                                   GEN      2592
                                                  SETSPC M.ICALL,TO,-"B"                                         GEN      2593
                                        .1        ELSE                                                           GEN      2594
                                                  SETSPC M.ICALL,TO,ARG                                          GEN      2595
                                        .1        ENDIF                                                          GEN      2596
                                         CALL     ENDM                                                           GEN      2597
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    62
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  MICMIC
  
                                        **        MICMIC- GET MICRO OF MICRO.                                    GEN      2600
                                        *         MIC = RESULTING MICRO.                                         GEN      2601
                                        *         N   = STARTING CHARACTER POSITION.                             GEN      2602
                                        *         CMIC= CURRENT MICRO.                                           GEN      2603
                                                                                                                 GEN      2604
                                                                                                                 GEN      2605
                                                  MACRO  MICMIC,MIC,N,CMIC                                       GEN      2606
                                         MIC      MICRO  N,,/"CMIC"/                                             GEN      2607
                                         MICMIC   ENDM                                                           GEN      2608
  
  
  
  
                                        ****      MICROS TO TRANSLATE REQUESTED TYPE OF OPERATION INTO           GEN      2610
                                        *         INTERNAL ADDRESS AND NUMBERS.                                  GEN      2611
                                                                                                                 GEN      2612
                                                                                                                 GEN      2613
                                         T.B      MICRO  1,,/SB     010203040506070809101112/                    GEN      2614
                                         T.X      MICRO  1,,/SX   00010203040506070809101112/                    GEN      2615
                                         T.L      MICRO  1,,/L      010204050708101113141617/                    GEN      2616
                                         T.LN     MICRO  1,,/LN     010204050708101113141617/                    GEN      2617
                                         T.LB     MICRO  1,,/LB     010204050708101113141617/                    GEN      2618
                                         T.R      MICRO  1,,/RR     010204050708101113141617/                    GEN      2619
                                         T.LU     MICRO  1,,/L      010204050708101113141617/                    GEN      2620
                                         T.LNU    MICRO  1,,/LN     010204050708101113141617/                    GEN      2621
                                         T.LL     MICRO  1,,/LL     010204050708101113141617/                    GEN      2622
                                         T.LNL    MICRO  1,,/LNL    010204050708101113141617/                    GEN      2623
                                         T.RU     MICRO  1,,/RR     010204050708101113141617/                    GEN      2624
                                         T.RL     MICRO  1,,/RL     010204050708101113141617/                    GEN      2625
                                         T.T      MICRO  1,,/ST     0001020304050607080910111213141516171819/    GEN      2626
                                         T.TG     MICRO  1,,/TG     010204050708101113141617/                    GEN      2627
                                         T.CL     MICRO  1,,/CNL    010204050708101113141617/                    GEN      2628
                                         T.CM     MICRO  1,,/CNM    010204050708101113141617/                    GEN      2629
                                         T.CU     MICRO  1,,/CNU    010204050708101113141617/                    GEN      2630
                                                                                                                 GEN      2631
                                        **          CLEAR ENTITY TYPE OF MACROS.                                 GEN      2632
                                                                                                                 GEN      2633
                                         T.*B     MICRO  1,,/CB     010203040506070809101112/                    GEN      2634
                                         T.*X     MICRO  1,,/CX     010203040506070809101112/                    GEN      2635
                                         T.*T     MICRO  1,,/CT     0001020304050607080910111213141516171819/    GEN      2636
                                         T.*L     MICRO  1,,/CL     010204050708101113141617/                    GEN      2637
                                         T.*LU    MICRO  1,,/CLU    010204050708101113141617/                    GEN      2638
                                         T.*LL    MICRO  1,,/CLL    010204050708101113141617/                    GEN      2639
                                        ****                                                                     GEN      2640
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    63
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  INST
  
                                        **        INSTRUCTION SKELETONS.                                         GEN      2642
                                                                                                                 GEN      2643
                                         H        MICRO                    SET UP MICROS FOR SKELETONS           GEN      2644
                                         L        MICRO                                                          GEN      2645
                                         Q        MICRO                                                          GEN      2646
  
  
  
  
                                        **        1.  ADD INSTRUCTIONS.                                          GEN      2648
                                                                                                                 GEN      2649
                                                                                                                 GEN      2650
          1224  00000360200200377401     O=ADD    DMOD   I,E.AT1A,I,R,D,C                                        GEN      2651
          1225 0                         ADD.I    IADD   R1,L1,L2                                                GEN      2652
          1225  41360013602501120000              ENDS                                                           GEN      2653
          1226 0                         ADD.R    FADD   T1,L1,L2                                                GEN      2654
          1226  01300004402501120000              NORMZ  R1,0,*T1                                                GEN      2655
          1227  41240013600440060000              ENDS                                                           GEN      2656
          1230 0                         ADD.D    FADD   T1,LNU1,LNU2                                            GEN      2657
          1230  01300004402701160000              DFADD  T2,LU1,LU2                                              GEN      2658
          1231  01320014402501120000              FADD   T3,LL1,LL2                                              GEN      2659
          1232  01300024402601140000              NORMZ  T4,0,*T1                                                GEN      2660
          1233  01240034400440060000              FADD   T5,*T2,*T3                                              GEN      2661
          1234  01300044402301060000              FADD   T6,T4,T5                                                GEN      2662
          1235  01300054407102220000              NORMZ  T7,0,*T6                                                GEN      2663
          1236  01240064400442460000              DFADD  T8,*T4,*T5                                              GEN      2664
          1237  01320074406302060000              NORMZ  T9,0,*T8                                                GEN      2665
          1240  01240104400443460000              FADD   RU1,T7,T9                                               GEN      2666
          1241  01300013615104220000              DFADD  RL1,*T7,*T9                                             GEN      2667
          1242  41320014014304060000              ENDS                                                           GEN      2668
          1243 0                         ADD.C    FADD   T1,LU1,LU2                                              GEN      2669
          1243  01300004402501120000              NORMZ  RU1,0,*T1                                               GEN      2670
          1244  01240013600440060000              FADD   T2,LL1,LL2                                              GEN      2671
          1245  01300014402601140000              NORMZ  RL1,0,*T2                                               GEN      2672
          1246  41240014000440460000              ENDS                                                           GEN      2673
  
  
  
  
                                        **        ROUNDED ADD INSTRUCTIONS                                       GEN      2675
                                                                                                                 GEN      2676
                                                                                                                 GEN      2677
                                                  ENTRY  O=RADD                                                  GEN      2678
          1247  00000120200200377401     O=RADD   DMOD   I,E.AT1A,I,R,D,C                                        GEN      2679
          1250 0                         RADD.I   IADD   R1,L1,L2                                                GEN      2680
          1250  41360013602501120000              ENDS                                                           GEN      2681
          1251 0                         RADD.R   RFADD  T1,L1,L2                                                GEN      2682
          1251  01340004402501120000              NORMZ  R1,0,*T1                                                GEN      2683
          1252  41240013600440060000              ENDS                                                           GEN      2684
          1253 0                         RADD.D   RESET  ADD.D                                                   GEN      2685
          1253  47000000000000001230 +            ENDS                                                           GEN      2686
          1254 0                         RADD.C   RFADD  T1,LU1,LU2                                              GEN      2687
          1254  01340004402501120000              NORMZ  RU1,0,*T1                                               GEN      2688
          1255  01240013600440060000              RFADD  T2,LL1,LL2                                              GEN      2689
          1256  01340014402601140000              NORMZ  RL1,0,*T2                                               GEN      2690
          1257  41240014000440460000              ENDS                                                           GEN      2691
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    64
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  SUBTRACT
  
                                        **        2.  SUBTRACT INSTRUCTIONS.                                     GEN      2693
                                                                                                                 GEN      2694
                                                                                                                 GEN      2695
          1260  00000200200200377401     O=SUB    DMOD   I,E.AT1A,I,R,D,C                                        GEN      2696
          1261 0                         SUB.I    ISUB   R1,L1,L2                                                GEN      2697
          1261  41370013602501120000              ENDS                                                           GEN      2698
          1262 0                         SUB.R    FSUB   T1,L1,L2                                                GEN      2699
          1262  01310004402501120000              NORMZ  R1,0,*T1                                                GEN      2700
          1263  41240013600440060000              ENDS                                                           GEN      2701
          1264 0                         SUB.D    FSUB   T1,LNU1,LNU2                                            GEN      2702
          1264  01310004402701160000              DFSUB  T2,LU1,LU2                                              GEN      2703
          1265  01330014402501120000              FSUB   T3,LL1,LL2                                              GEN      2704
          1266  01310024402601140000              RESET  ADD.D+3                                                 GEN      2705
          1267  47000000000000001233 +            ENDS                                                           GEN      2706
          1270 0                         SUB.C    FSUB   T1,LU1,LU2                                              GEN      2707
          1270  01310004402501120000              NORMZ  RU1,0,*T1                                               GEN      2708
          1271  01240013600440060000              FSUB   T2,LL1,LL2                                              GEN      2709
          1272  01310014402601140000              NORMZ  RL1,0,*T2                                               GEN      2710
          1273  41240014000440460000              ENDS                                                           GEN      2711
  
  
  
  
                                        **        ROUNDED SUBTRACT INSTRUCTIONS                                  GEN      2713
                                                                                                                 GEN      2714
                                                                                                                 GEN      2715
                                                  ENTRY  O=RSUB                                                  GEN      2716
          1274  00000120200200377401     O=RSUB   DMOD   I,E.AT1A,I,R,D,C                                        GEN      2717
          1275 0                         RSUB.I   ISUB   R1,L1,L2                                                GEN      2718
          1275  41370013602501120000              ENDS                                                           GEN      2719
          1276 0                         RSUB.R   RFSUB  T1,L1,L2                                                GEN      2720
          1276  01350004402501120000              NORMZ  R1,0,*T1                                                GEN      2721
          1277  41240013600440060000              ENDS                                                           GEN      2722
          1300 0                         RSUB.D   RESET  SUB.D                                                   GEN      2723
          1300  47000000000000001264 +            ENDS                                                           GEN      2724
          1301 0                         RSUB.C   RFSUB  T1,LU1,LU2                                              GEN      2725
          1301  01350004402501120000              NORMZ  RU1,0,*T1                                               GEN      2726
          1302  01240013600440060000              RFSUB  T2,LL1,LL2                                              GEN      2727
          1303  01350014402601140000              NORMZ  RL1,0,*T2                                               GEN      2728
          1304  41240014000440460000              ENDS                                                           GEN      2729
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    65
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  UMINUS
  
                                        **        4.  UNARY MINUS                                                GEN      2731
                                                                                                                 GEN      2732
                                                                                                                 GEN      2733
          1305  00000040100100377401     O=UMIN   DMOD   I,E.AT1A,I,I,D,D                                        GEN      2734
          1306 0                         UMIN.I   XMITC  R1,L2                                                   GEN      2735
          1306  41140013604500110000              ENDS                                                           GEN      2736
                                1306 +   O=NOT    EQU    UMIN.I                                                  GEN      2737
          1307 0                         UMIN.D   XMITC  RU1,LU2                                                 GEN      2738
          1307  01140013604500110000              XMITC  RL1,LL2                                                 GEN      2739
          1310  41140014004600110000              ENDS                                                           GEN      2740
  
  
  
  
                                        **        5.  MULTIPLY INSTRUCTIONS.                                     GEN      2742
                                                                                                                 GEN      2743
                                                                                                                 GEN      2744
          1311  00000260140200377401     O=MULT   DMOD   I,E.AT1A,I,R,D,C                                        GEN      2745
          1312                           MULT.I   BSS    0                                                       GEN      2746
          1312 0                                  IMULT  R1,L1,L2                                                GEN      2747
          1312  41420013602501120000              ENDS                                                           GEN      2748
          1313 0                         MULT.R   FMULT  R1,L1,L2                                                GEN      2749
          1313  41400013602501120000              ENDS                                                           GEN      2750
          1314 0                         MULT.D   FMULT  T1,LL1,LNU2                                             GEN      2751
          1314  01400004402601160000              FMULT  T2,LNU1,LL2                                             GEN      2752
          1315  01400014402701140000              FADD   T3,*T1,*T2                                              GEN      2753
          1316  01300024400300460000              FMULT  T4,LNU1,LNU2                                            GEN      2754
          1317  01400034402701160000              DMULT  T5,LU1,LU2                                              GEN      2755
          1320  01420044402501120000              FADD   T6,*T3,*T5                                              GEN      2756
          1321  01300054404302060000              FADD   RU1,T4,T6                                               GEN      2757
          1322  01300013607102620000              DFADD  RL1,*T4,*T6                                             GEN      2758
          1323  41320014006302460000              ENDS                                                           GEN      2759
          1324 0                         MULT.C   FMULT  T1,LNU1,LNU2                                            GEN      2760
          1324  01400004402701160000              FMULT  T2,LNL1,LNL2                                            GEN      2761
          1325  01400014402641150000              FSUB   T3,*T1,*T2                                              GEN      2762
          1326  01310024400300460000              NORMZ  RU1,0,*T3                                               GEN      2763
          1327  01240013600441060000              FMULT  T4,LU1,LL2                                              GEN      2764
          1330  01400034402501140000              FMULT  T5,LL1,LU2                                              GEN      2765
          1331  01400044402601120000              FADD   T6,*T4,*T5                                              GEN      2766
          1332  01300054406302060000              NORMZ  RL1,0,*T6                                               GEN      2767
          1333  41240014000442460000              ENDS                                                           GEN      2768
  
  
  
  
                                        **        ROUNDED MULTIPLY                                               GEN      2770
                                                                                                                 GEN      2771
                                                                                                                 GEN      2772
                                                  ENTRY  O=RMULT                                                 GEN      2773
          1334  00000100140200377401     O=RMULT  DMOD   I,E.AT1A,I,R,D,C                                        GEN      2774
          1335 0                         RMULT.I  IMULT  R1,L1,L2                                                GEN      2775
          1335  41420013602501120000              ENDS                                                           GEN      2776
          1336 0                         RMULT.R  RMULT  R1,L1,L2                                                GEN      2777
          1336  41410013602501120000              ENDS                                                           GEN      2778
          1337 0                         RMULT.D  RESET  MULT.D                                                  GEN      2779
          1337  47000000000000001314 +            ENDS                                                           GEN      2780
          1340 0                         RMULT.C  RMULT  T1,LNU1,LNU2                                            GEN      2781
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    66
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  RMULT 
  
          1340  01410004402701160000              RMULT  T2,LNL1,LNL2                                            GEN      2782
          1341  01410014402641150000              RFSUB  T3,*T1,*T2                                              GEN      2783
          1342  01350024400300460000              NORMZ  RU1,0,*T3                                               GEN      2784
          1343  01240013600441060000              RMULT  T4,LU1,LL2                                              GEN      2785
          1344  01410034402501140000              RMULT  T5,LL1,LU2                                              GEN      2786
          1345  01410044402601120000              RFADD  T6,*T4,*T5                                              GEN      2787
          1346  01340054406302060000              NORMZ  RL1,0,*T6                                               GEN      2788
          1347  41240014000442460000              ENDS                                                           GEN      2789
  
  
  
  
                                        **        6.  DIVIDE INSTRUCTIONS.                                       GEN      2791
                                                                                                                 GEN      2792
                                                                                                                 GEN      2793
          1350  00000620400700377401     O=DIV    DMOD   I,E.AT1A,I,R,D,C                                        GEN      2794
          1351 0                         DIV.I    PACK   T1,0,L2                                                 GEN      2795
          1351  01270004400441120000              NORMZ  T2,0,*T1                                                GEN      2796
          1352  01240014400440060000              PACK   T3,0,L1                                                 GEN      2797
          1353  01270024400440520000              FDIV   T4,*T3,*T2                                              GEN      2798
          1354  01440034404300460000              UPACK  T5,B1,*T4                                               GEN      2799
          1355  01260044403041460000              LSHFB  R1,*B1,*T5                                              GEN      2800
          1356  44220013602002060000              ENDS                                                           GEN      2801
          1357 0                         DIV.R    FDIV   R1,L1,L2                                                GEN      2802
          1357  41440013602501120000              ENDS                                                           GEN      2803
          1360 0                         DIV.D    FDIV   T1,LNU1,LNU2                                            GEN      2804
          1360  01440004402701160000              FMULT  T2,T1,LNU2                                              GEN      2805
          1361  01400014401101160000              FSUB   T3,LNU1,T2                                              GEN      2806
          1362  01310024402700620000              DFSUB  T4,LU1,*T2                                              GEN      2807
          1363  01330034402500460000              NORMZ  T5,0,*T3                                                GEN      2808
          1364  01240044400441060000              FADD   T6,*T4,*T5                                              GEN      2809
          1365  01300054406302060000              DMULT  T7,T1,LNU2                                              GEN      2810
          1366  01420064401101160000              FSUB   T8,LL1,*T7                                              GEN      2811
          1367  01310074402603060000              FADD   T9,*T6,*T8                                              GEN      2812
          1370  01300104412303460000              FMULT  T10,T1,LL2                                              GEN      2813
          1371  01400114401101140000              FSUB   T11,*T9,*T10                                            GEN      2814
          1372  01310124420304460000              FDIV   T12,*T11,LU2                                            GEN      2815
          1373  01440134424301120000              FADD   T13,T1,T12                                              GEN      2816
          1374  01300144401105620000              NORMZ  T14,0,*T13                                              GEN      2817
          1375  01240154400446060000              DFADD  T15,*T1,*T12                                            GEN      2818
          1376  01320164400305460000              FADD   RU1,T15,T14                                             GEN      2819
          1377  01300013635106620000              DFADD  RL1,*T15,*T14                                           GEN      2820
          1400  41320014034306460000              ENDS                                                           GEN      2821
          1401 0                         DIV.C    FMULT  T1,LNU1,LNL2                                            GEN      2822
          1401  01400004402701150000              FMULT  T2,LNL1,LNU2                                            GEN      2823
          1402  01400014402641160000              FSUB   T3,*T2,*T1                                              GEN      2824
          1403  01310024402300060000              NORMZ  T4,0,*T3                                                GEN      2825
          1404  01240034400441060000              FMULT  T5,LU1,LNU2                                             GEN      2826
          1405  01400044402501160000              FMULT  T6,LL1,LNL2                                             GEN      2827
          1406  01400054402601150000              FADD   T7,*T5,*T6                                              GEN      2828
          1407  01300064410302460000              NORMZ  T8,0,*T7                                                GEN      2829
          1410  01240074400443060000              FMULT  T9,LU2,LNU2                                             GEN      2830
          1411  01400104404501160000              FMULT  T10,LL2,LNL2                                            GEN      2831
          1412  01400114404601150000              FADD   T11,*T9,*T10                                            GEN      2832
          1413  01300124420304460000              NORMZ  T12,0,*T11                                              GEN      2833
          1414  01240134400445060000              FDIV   RU1,*T8,T12                                             GEN      2834
          1415  01440013616305620000              FDIV   RL1,*T4,*T12                                            GEN      2835
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    67
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  DIVIDE
  
          1416  41440014006305460000              ENDS                                                           GEN      2836
  
  
  
  
                                        **        ROUNDED DIVIDE                                                 GEN      2838
                                        *                                                                        GEN      2839
                                        *                                                                        GEN      2840
                                                  ENTRY  O=RDIV                                                  GEN      2841
          1417  00000100140200377401     O=RDIV   DMOD   I,E.AT1A,I,R,D,C                                        GEN      2842
          1420 0                         RDIV.I   RESET  DIV.I                                                   GEN      2843
          1420  47000000000000001351 +            ENDS                                                           GEN      2844
          1421 0                         RDIV.R   RDIV   R1,L1,L2                                                GEN      2845
          1421  41450013602501120000              ENDS                                                           GEN      2846
          1422 0                         RDIV.D   RESET  DIV.D                                                   GEN      2847
          1422  47000000000000001360 +            ENDS                                                           GEN      2848
          1423 0                         RDIV.C   RMULT  T1,LNU1,LNL2                                            GEN      2849
          1423  01410004402701150000              RMULT  T2,LNL1,LNU2                                            GEN      2850
          1424  01410014402641160000              RFSUB  T3,*T2,*T1                                              GEN      2851
          1425  01350024402300060000              NORMZ  T4,0,*T3                                                GEN      2852
          1426  01240034400441060000              RMULT  T5,LU1,LNU2                                             GEN      2853
          1427  01410044402501160000              RMULT  T6,LL1,LNL2                                             GEN      2854
          1430  01410054402601150000              RFADD  T7,*T5,*T6                                              GEN      2855
          1431  01340064410302460000              NORMZ  T8,0,*T7                                                GEN      2856
          1432  01240074400443060000              RMULT  T9,LU2,LNU2                                             GEN      2857
          1433  01410104404501160000              RMULT  T10,LL2,LNL2                                            GEN      2858
          1434  01410114404601150000              RFADD  T11,*T9,*T10                                            GEN      2859
          1435  01340124420304460000              NORMZ  T12,0,*T11                                              GEN      2860
          1436  01240134400445060000              RDIV   RU1,*T8,T12                                             GEN      2861
          1437  01450013616305620000              RDIV   RL1,*T4,*T12                                            GEN      2862
          1440  41450014006305460000              ENDS                                                           GEN      2863
  
  
  
  
                                        **        7.  LOGICAL / MASKING OPERATORS.                               GEN      2865
                                        *             VAR1 .OP. VAR2 = MODELESS  (THANK YOU, 3600)               GEN      2866
                                        *             LOG1 .OP. LOG2 = LOGICAL                                   GEN      2867
                                                                                                                 GEN      2868
                                                                                                                 GEN      2869
                                        *O=NOT    SEE UNARY MINUS OPERATOR. (O=UMIN)                             GEN      2870
          1441 0                         O=ANDO   AND    R1,L1,L2                                                GEN      2871
          1441  41110013602501120000              ENDS                                                           GEN      2872
          1442 0                         O=ORO    OR     R1,L1,L2                                                GEN      2873
          1442  41120013602501120000              ENDS                                                           GEN      2874
          1443 0                         O=XOR    XOR    R1,L1,L2                                                GEN      2875
          1443  41130013602501120000              ENDS                                                           GEN      2876
          1444 0                         O=ORN    ORN    R1,L1,L2                                                GEN      2877
          1444  41160013602501120000              ENDS                                                           GEN      2878
          1445 0                         O=ANDN   ANDN   R1,L1,L2                                                GEN      2879
          1445  41150013602501120000              ENDS                                                           GEN      2880
          1446 0                         O=XORN   XORN   R1,L1,L2                                                GEN      2881
          1446  41170013602501120000              ENDS                                                           GEN      2882
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    68
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  RELAT 
  
                                        **        8.  RELATIONALS.                                               GEN      2884
                                        *             VAR1 .OP. VAR2 = PERFORM IN VAR MODE, RESULTS = LOGICAL    GEN      2885
                                        *             LOG1 .OP. LOG2 = ILLEGAL.                                  GEN      2886
                                                                                                                 GEN      2887
                                                                                                                 GEN      2888
                                                                                                                 GEN      2889
          1447  00000100300400377401     O=LT     DMOD   I,E.AT1A,I,R,D,R                                        GEN      2890
          1450 0                         LT.I     ISUB   T1,L1,L2                                                GEN      2891
          1450  01370004402501120000              FMASK  T2,0,0                                                  GEN      2892
          1451  01430014400440110000              IADD   R1,*T1,*T2                                              GEN      2893
          1452  41360013600300460000              ENDS                                                           GEN      2894
          1453 0                         LT.R     FSUB   T1,L1,L2                                                GEN      2895
          1453  01310004402501120000              NORMZ  R1,0,*T1                                                GEN      2896
          1454  41240013600440060000              ENDS                                                           GEN      2897
          1455 0                         LT.D     FSUB   T1,LL1,LL2                                              GEN      2898
          1455  01310004402601140000              FSUB   T2,LNU1,LNU2                                            GEN      2899
          1456  01310014402701160000              NORMZ  T3,0,*T2                                                GEN      2900
          1457  01240024400440460000              DFSUB  T4,LU1,LU2                                              GEN      2901
          1460  01330034402501120000              FADD   T5,*T1,*T4                                              GEN      2902
          1461  01300044400301460000              FADD   RU1,*T3,*T5                                             GEN      2903
          1462  41300013604302060000              ENDS                                                           GEN      2904
                                                                                                                 GEN      2905
          1463  00000120400500377401     O=GE     DMOD   I,E.AT1A,I,R,D,R                                        GEN      2906
          1464 0                         GE.I     ISUB   T1,L1,L2                                                GEN      2907
          1464  01370004402501120000              FMASK  T2,0,0                                                  GEN      2908
          1465  01430014400440110000              IADD   T3,*T1,*T2                                              GEN      2909
          1466  01360024400300460000              XMITC  R1,*T3,0                                                GEN      2910
          1467  41140013604300110000              ENDS                                                           GEN      2911
          1470 0                         GE.R     FSUB   T1,L1,L2                                                GEN      2912
          1470  01310004402501120000              NORMZ  T2,0,*T1                                                GEN      2913
          1471  01240014400440060000              XMITC  R1,*T2,0                                                GEN      2914
          1472  41140013602300110000              ENDS                                                           GEN      2915
          1473 0                         GE.D     DFSUB  T1,LNU1,LNU2                                            GEN      2916
          1473  01330004402701160000              FSUB   T2,LU1,LU2                                              GEN      2917
          1474  01310014402501120000              NORMZ  T3,0,*T2                                                GEN      2918
          1475  01240024400440460000              FSUB   T4,LL1,LL2                                              GEN      2919
          1476  01310034402601140000              FADD   T5,*T1,*T4                                              GEN      2920
          1477  01300044400301460000              FADD   T6,*T3,*T5                                              GEN      2921
          1500  01300054404302060000              XMITC  RU1,*T6,0                                               GEN      2922
          1501  41140013612300110000              ENDS                                                           GEN      2923
                                                                                                                 GEN      2924
                                                                                                                 GEN      2925
          1502  00000260540600377401     O=NE     DMOD   I,E.AT1A,I,R,D,D                                        GEN      2926
          1503 0                         NE.I     FMASK  T1,0,0                                                  GEN      2927
          1503  01430004400440110000              ISUB   T2,L1,L2                                                GEN      2928
          1504  01370014402501120000              IADD   T3,*T2,T1                                               GEN      2929
          1505  01360024402300220000              ISUB   T4,*T1,T3                                               GEN      2930
          1506  01370034400301220000              OR     R1,*T4,*T3                                              GEN      2931
          1507  41120013606301060000              ENDS                                                           GEN      2932
          1510 0                         NE.R     FSUB   T1,L1,L2                                                GEN      2933
          1510  01310004402501120000              NORMZ  T2,0,*T1                                                GEN      2934
          1511  01240014400440060000              FMASK  T3,0,0                                                  GEN      2935
          1512  01430024400440110000              ISUB   T4,*T3,T2                                               GEN      2936
          1513  01370034404300620000              OR     R1,*T2,*T4                                              GEN      2937
          1514  41120013602301460000              ENDS                                                           GEN      2938
          1515 0                         NE.D     FSUB   T1,LU1,LU2                                              GEN      2939
          1515  01310004402501120000              FSUB   T2,LL1,LL2                                              GEN      2940
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    69
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  RELAT 
  
          1516  01310014402601140000              NORMZ  T3,0,*T1                                                GEN      2941
          1517  01240024400440060000              FMASK  T4,0,0                                                  GEN      2942
          1520  01430034400440110000              NORMZ  T5,0,*T2                                                GEN      2943
          1521  01240044400440460000              OR     T6,*T3,*T5                                              GEN      2944
          1522  01120054404302060000              ISUB   T7,*T4,T6                                               GEN      2945
          1523  01370064406302620000              OR     RU1,*T7,*T6                                             GEN      2946
          1524  41120013614302460000              ENDS                                                           GEN      2947
                                                                                                                 GEN      2948
          1525  00000260540600377401     O=EQ     DMOD   I,E.AT1A,I,R,D,D                                        GEN      2949
          1526 0                         EQ.I     ISUB   T1,L1,L2                                                GEN      2950
          1526  01370004402501120000              FMASK  T2,0,0                                                  GEN      2951
          1527  01430014400440110000              IADD   T3,*T1,T2                                               GEN      2952
          1530  01360024400300620000              ISUB   T4,*T2,T3                                               GEN      2953
          1531  01370034402301220000              LGDIFC R1,*T4,*T3                                              GEN      2954
          1532  41170013606301060000              ENDS                                                           GEN      2955
          1533 0                         EQ.R     FSUB   T1,L1,L2                                                GEN      2956
          1533  01310004402501120000              NORMZ  T2,0,*T1                                                GEN      2957
          1534  01240014400440060000              FMASK  T3,0,0                                                  GEN      2958
          1535  01430024400440110000              ISUB   T4,*T3,T2                                               GEN      2959
          1536  01370034404300620000              LGDIFC R1,*T2,*T4                                              GEN      2960
          1537  41170013602301460000              ENDS                                                           GEN      2961
          1540 0                         EQ.D     FSUB   T1,LU1,LU2                                              GEN      2962
          1540  01310004402501120000              NORMZ  T2,0,*T1                                                GEN      2963
          1541  01240014400440060000              FSUB   T3,LL1,LL2                                              GEN      2964
          1542  01310024402601140000              FMASK  T4,0,0                                                  GEN      2965
          1543  01430034400440110000              NORMZ  T5,0,*T3                                                GEN      2966
          1544  01240044400441060000              OR     T6,*T2,*T5                                              GEN      2967
          1545  01120054402302060000              ISUB   T7,*T4,T6                                               GEN      2968
          1546  01370064406302620000              LGDIFC RU1,*T7,*T6                                             GEN      2969
          1547  41170013614302460000              ENDS                                                           GEN      2970
  
  
  
  
                                        **        SKELETONS THAT MAKE USE OF THE SHIFT INSTRUCTION TO PERFORM    GEN      2972
                                        *         ARITHMETIC OPERATIONS.                                         GEN      2973
                                        *                                                                        GEN      2974
                                        *         INTEGER MULTIPLY SKELETONS.                                    GEN      2975
                                                                                                                 GEN      2976
                                                                                                                 GEN      2977
          1550 0                         O=SHFC   XMIT   T1,L1                                                   GEN      2978
          1550  04100004402500110000              LSHF   T1,CM2                                                  GEN      2979
          1551  04200004404200110000              XMIT   R1,*T1                                                  GEN      2980
          1552  44100013600300110000              ENDS                                                           GEN      2981
          1553 0                         O=SHFD   XMIT   T1,LN1,0                                                GEN      2982
          1553  04100004402700110000              LSHF   T1,CU2,0                                                GEN      2983
          1554  04200004404240110000              XMIT   T2,L1,0                                                 GEN      2984
          1555  04100014402500110000              LSHF   T2,CM2,0                                                GEN      2985
          1556  04200014404200110000              ISUB   R1,*T2,*T1                                              GEN      2986
          1557  41370013602300060000              ENDS                                                           GEN      2987
          1560 0                         O=SHFDS  XMIT   T1,LN1,0                                                GEN      2988
          1560  04100004402700110000              LSHF   T1,CM2,0                                                GEN      2989
          1561  04200004404200110000              ISUB   R1,*T1,L1                                               GEN      2990
          1562  41370013600300520000              ENDS                                                           GEN      2991
          1563 0                         O=SHFS   XMIT   T1,LN1,0                                                GEN      2992
          1563  04100004402700110000              LSHF   T1,CU2,0                                                GEN      2993
          1564  04200004404240110000              IADD   T2,*T1,L1                                               GEN      2994
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    70
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  O=REL1
  
          1565  01360014400300520000              LSHF   T2,CM2                                                  GEN      2995
          1566  04200014404200110000              XMIT   R1,*T2                                                  GEN      2996
          1567  44100013602300110000              ENDS                                                           GEN      2997
          1570 0                         O=SHFSA  XMIT   T1,LN1,0                                                GEN      2998
          1570  04100004402700110000              LSHF   T1,CU2,0                                                GEN      2999
          1571  04200004404240110000              IADD   R1,*T1,L1                                               GEN      3000
          1572  41360013600300520000              ENDS                                                           GEN      3001
                                                                                                                 GEN      3002
                                        **        INTEGER DIVIDE BY POWER OF 2 SKELETON                          GEN      3003
                                                                                                                 GEN      3004
          1573 0                         O=DIVP2  XMIT   T1,L1                                                   GEN      3005
          1573  04100004402500110000              RSHF   T1,CM2                                                  GEN      3006
          1574  04210004404200110000              XMIT   R1,*T1                                                  GEN      3007
          1575  44100013600300110000              ENDS                                                           GEN      3008
  
  
  
  
                                        **        11.  STORE SKELETONS RELATIVE TO DOMINANT MODE                 GEN      3010
                                        *              *TURPLE* FORM -                                           GEN      3011
                                        *                            OR.1OP = RIGHT MEMBER.                      GEN      3012
                                        *                            OR.2OP = LEFT  MEMBER.                      GEN      3013
                                                                                                                 GEN      3014
                                                                                                                 GEN      3015
          1576  00000040100100200401     O=STR    DMOD   I,I,I,R,D,C                                             GEN      3016
          1577                           STR.I    BSS    0                                                       GEN      3017
          1577 0                         STR.R    STORE  R2,L1                                                   GEN      3018
          1577  50500023602500110000              ENDS                                                           GEN      3019
                                                                                                                 GEN      3020
          1600                           STR.D    BSS    0                                                       GEN      3021
          1600 0                         STR.C    STORE  RU2,LU1                                                 GEN      3022
          1600  10500023602500110000              STORE  RL2,LL1                                                 GEN      3023
          1601  50500024002600110000              ENDS                                                           GEN      3024
  
  
  
  
                                        **        MODE CONVERSION SKELETONS                                      GEN      3026
                                        *                                                                        GEN      3027
                                        *         KEY TO *MC* OPERANDS FOR MODE CONVERSION PROCESSING.           GEN      3028
                                        *         *MC* = 1, RESULTS TO UPPER REGISTER.                           GEN      3029
                                        *              = 2, RESULTS TO LOWER REGISTER.                           GEN      3030
                                                                                                                 GEN      3031
          1602  00000000000000000000     MODECON  DATA   0           MODE CONVERSION FLAG USED DURING *PASS* 2   GEN      3032
                                                                     TO PROCESS CONVERSION.                      GEN      3033
                                                                                                                 GEN      3034
          1603 0                         ITOR     PACK   T1,0,L2     INTEGER TO REAL CONVERSION                  GEN      3035
          1603  01270004400441120000              NORMZ  R1,0,*T1                                                GEN      3036
          1604  41240013600440060000              ENDS                                                           GEN      3037
                                                                                                                 GEN      3038
          1605 0                         ITOD     PACK   T1,0,L2     INTEGER TO DOUBLE CONVERSION                GEN      3039
          1605  01270004400441120000              NORMZ  RU1,0,*T1                                               GEN      3040
          1606  01240013600440060000              FMASK  RL1,0,0                                                 GEN      3041
          1607  41430014000440110000              ENDS                                                           GEN      3042
                                1605 +   ITOC     EQU    ITOD        INTEGER TO COMPLEX CONVERSION               GEN      3043
                                                                                                                 GEN      3044
          1610 0                         RTOI     UPACK  T1,6,L2     REAL TO INTEGER CONVERSION                  GEN      3045
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    71
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  MODECON 
  
          1610  01260004414441120000              LSHFB  R1,6,*T1                                                GEN      3046
          1611  44220013614440060000              ENDS                                                           GEN      3047
                                                                                                                 GEN      3048
          1612 0                         RTOD     XMIT   RU1,L2      REAL TO DOUBLE CONVERSION                   GEN      3049
          1612  04100013604500110000              FMASK  RL1,0,0                                                 GEN      3050
          1613  41430014000440110000              ENDS                                                           GEN      3051
                                                                                                                 GEN      3052
          1614 0                         DTOI     UPACK  T1,7,LU2    DOUBLE TO INTEGER                           GEN      3053
          1614  01260004416441120000              LSHFB  R1,7,*T1                                                GEN      3054
          1615  44220013616440060000              ENDS                                                           GEN      3055
                                1614 +   CTOI     EQU    DTOI                                                    GEN      3056
                                                                                                                 GEN      3057
          1616 0                         DTOC     XMIT   RU1,LU2     DOUBLE TO COMPLEX CONVERSION                GEN      3058
          1616  04100013604500110000              FMASK  RL1,0,0                                                 GEN      3059
          1617  41430014000440110000              ENDS                                                           GEN      3060
                                1616 +   CTOD     EQU    DTOC        COMPLEX TO DOUBLE                           GEN      3061
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    72
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  MCTBL 
  
                                        **        MCTBL - MODE CONVERSION TABLE BUILD MACRO.                     GEN      3063
                                                                                                                 GEN      3064
                                                                                                                 GEN      3065
                                                  MACRO  MCTBL,DUMY,U,L,I,R,D,C,NAB,NAE                          FCC1638X   75
                                         E        SET    0                                                       FCC1638X   76
                                                  IRP    NAB                                                     FCC1638X   77
                                         B        DECMIC 5-M.NAB                                                 FCC1638X   78
                                         E        SET    1S"B"+E                                                 FCC1638X   79
                                                  IRP    NAB                                                     FCC1638X   80
                                         G        SET    0                                                       FCC1638X   81
                                                  IRP    NAE                                                     FCC1638X   82
                                         J        DECMIC 5-M.NAE                                                 FCC1638X   83
                                         G        SET    1S"J"+G                                                 FCC1638X   84
                                                  IRP    NAE                                                     FCC1638X   85
                                         F        MICRO  ,,                                                      FCC1638X   86
                                        .1        ECHO   ,P1=(C,D,R,I,L,U)                                       GEN      3068
                                         A        MICRO  1,1, P1                                                 GEN      3069
                                                  IFC    EQ,$"A"$E$,3                                            GEN      3070
                                         A        MICRO  4,, P1                                                  GEN      3071
                                         F        MICRO  1,,$"F"8/E.EXBASE,$                                     FCC1638X   87
                                                  SKIP   4                                                       GEN      3073
                                                  IFC    EQ,$"A"$*$,2                                            GEN      3074
                                         F        MICRO  1,,$"F"8/0,$                                            FCC1638X   88
                                                  SKIP   1                                                       GEN      3076
                                         F        MICRO  1,,$"F"8/P1-MODECON,$                                   FCC1638X   89
                                        .1        ENDD                                                           GEN      3078
                                                  VFD    6/E,6/G,"F"                                             FCC1638X   90
                                         MCTBL    ENDM                                                           GEN      3080
  
  
  
  
                                        **        MCTBL - TABLE TO FORM JUMP ADDRESSES FOR MODE CONVERSION.      GEN      3084
                                        *         FORM IS OPERAND TO BE CONVERTED VS DOMINANT MODE               GEN      3085
                                        *                                                                        GEN      3086
                                        *         KEY                                                            GEN      3087
                                        *                * = NO MODE CONVERSION.                                 GEN      3088
                                        *         PREFIX E = ERROR IN MODE CONVERSION.                           GEN      3089
                                        *         X TO Y   = MODE CONVERSION TO BE PROCESSED.                    GEN      3090
                                        *         MCTBL EXPANDED TO USE HIGH ORDER 12 BITS                       FCC1638X   91
                                        *         NAB - NON-ANSI COMBINATIONS WITH *+-/ OPERATORS                FCC1638X   92
                                        *         FORM IS MODE OF OPERAND TO CONVERTED VERSUS DOMINANT MODE      FCC1638X   93
                                        *         NAE - NON ANSI EXPONENTIATION                                  FCC1638X   94
                                        *         FORM IS BASE VERSUS EXPONENT                                   FCC1638X   95
                                                                                                                 GEN      3091
                                                                                                                 GEN      3092
          1620                           MODTBL   BSS    0                                                       GEN      3093
          1620  00000200400000177400     M.UNIV   MCTBL  *,ERR1,*,*,RTOD,RTOD,(),()                              FCC1638X   96
          1621  00007777777777600377     M.LOG    MCTBL  ERR1,*,ERR1,ERR1,ERR1,ERR1,(),()                        FCC1638X   97
          1622  07070060140100177400     M.INT    MCTBL  *,ERR1,*,ITOR,ITOD,ITOC,(REAL,DBL,CPLX),(REAL,DBL,CPLX) FCC1638X   98
          1623  00010200400001577400     M.REAL   MCTBL  *,ERR1,RTOI,*,RTOD,RTOD,(),(CPLX)                       FCC1638X   99
          1624  01010300000002577400     M.DBL    MCTBL  *,ERR1,DTOI,*,*,DTOC,(CPLX),(CPLX)                      FCC1638X  100
          1625  00000000600002577400     M.CPLX   MCTBL  *,ERR1,CTOI,*,CTOD,*,(),()                              FCC1638X  101
                                                                                                                 GEN      3103
                                                  POPMAC MCTBL                                                   GEN      3104
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    73
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  INTRINS 
  
                                        **        12. INTRINSIC FUNCTIONS.                                       GEN      3106
                                                                                                                 GEN      3107
                                                                                                                 GEN      3108
          1626                           INLBASE  BSS    0           BASE ADDRESS OF INLINES.                    GEN      3109
          1626 0                         O=ABS    XMIT   T1,LN2,0                                                GEN      3110
          1626  04100004404700110000              RSHF   T1,59,0                                                 GEN      3111
          1627  04210004566440110000              XOR    R1,L2,*T1                                               GEN      3112
          1630  41130013604500060000              ENDS                                                           GEN      3113
                                1626 +   O=IABS   EQU    O=ABS                                                   GEN      3114
          1631 0                         O=AIMAG  XMIT   R1,LL2,0    IMAGINARY PART OF COMPLEX ARGUMENT          GEN      3115
          1631  44100013604600110000              ENDS                                                           GEN      3116
          1632 0                         O=AINT   ZERO   T1                                                      FCC1055     5
          1632  01130004400440110000              PACK   T2,0,*T1                                                FCC1055     6
          1633  01270014400440060000              FADD   T3,L2,*T2                                               FCC1055     7
          1634  01300024404500460000              NORMZ  R1,0,*T3                                                GEN      3120
          1635  41240013600441060000              ENDS                                                           GEN      3121
          1636 0                         O=MAX0   ISUB   T1,LN1,LN2  I=MAX0(I1,I2)                               GEN      3122
          1636  01370004402701160000              XMIT   T2,*T1,0                                                GEN      3123
          1637  04100014400300110000              RSHF   T2,59,0                                                 GEN      3124
          1640  04210014566440110000              AND    T3,T2,L2                                                GEN      3125
          1641  01110024403101120000              ANDN   T4,L1,*T2                                               GEN      3126
          1642  01150034402500460000              IADD   R1,*T3,*T4                                              GEN      3127
          1643  41360013604301460000              ENDS                                                           GEN      3128
          1644 0                         O=DMAX1  FSUB   T1,LNU1,LNU2                                            GEN      3129
          1644  01310004402701160000              DFSUB  T2,LNU1,LNU2                                            GEN      3130
          1645  01330014402701160000              FSUB   T3,LNL1,LNL2                                            GEN      3131
          1646  01310024402641150000              NORMZ  T4,0,*T1                                                GEN      3132
          1647  01240034400440060000              FADD   T5,*T2,*T3                                              GEN      3133
          1650  01300044402301060000              FADD   T6,*T4,*T5                                              GEN      3134
          1651  01300054406302060000              XMIT   T7,*T6,0                                                GEN      3135
          1652  04100064412300110000              RSHF   T7,59,0                                                 GEN      3136
          1653  04210064566440110000              AND    T8,T7,LU2                                               GEN      3137
          1654  01110074415101120000              AND    T9,T7,LL2                                               GEN      3138
          1655  01110104415101140000              ANDN   T10,LU1,T7                                              GEN      3139
          1656  01150114402503220000              ANDN   T11,LL1,*T7                                             GEN      3140
          1657  01150124402603060000              IADD   RU1,*T8,*T10                                            GEN      3141
          1660  01360013616304460000              OR     RL1,*T9,*T11                                            GEN      3142
          1661  41120014020305060000              ENDS                                                           GEN      3143
          1662 0                         O=MIN0   ISUB   T1,LN2,LN1   I=MIN0(I1,I2)                              GEN      3144
          1662  01370004404700560000              RESET  O=MAX0+1                                                GEN      3145
          1663  47000000000000001637 +            ENDS                                                           GEN      3146
          1664 0                         O=DMIN1  FSUB   T1,LNU2,LNU1                                            GEN      3147
          1664  01310004404700560000              DFSUB  T2,LNU2,LNU1                                            GEN      3148
          1665  01330014404700560000              FSUB   T3,LNL2,LNL1                                            GEN      3149
          1666  01310024404640550000              RESET  O=DMAX1+3                                               GEN      3150
          1667  47000000000000001647 +            ENDS                                                           GEN      3151
          1670 0                         O=AMAX1  FSUB   T1,LN1,LN2  R=AMAX1(R1,R2)                              GEN      3152
          1670  01310004402701160000              XMIT   T2,*T1,0                                                GEN      3153
          1671  04100014400300110000              RSHF   T2,59,0                                                 GEN      3154
          1672  04210014566440110000              AND    T3,T2,L2                                                GEN      3155
          1673  01110024403101120000              ANDN   T4,L1,*T2                                               GEN      3156
          1674  01150034402500460000              IADD   R1,*T3,*T4                                              GEN      3157
          1675  41360013604301460000              ENDS                                                           GEN      3158
          1676 0                         O=AMIN1  FSUB   T1,LN2,LN1  R=AMIN1(R1,R2)                              GEN      3159
          1676  01310004404700560000              RESET  O=AMAX1+1                                               GEN      3160
          1677  47000000000000001671 +            ENDS                                                           GEN      3161
                                                                                                                 GEN      3162
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    74
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  INTRINS 
  
                                1670 +   O=MAX1   EQU    O=AMAX1     I=MAX1(R1,R2)  (MODE CONVERSION TO FOLLOW)  GEN      3163
                                1676 +   O=MIN1   EQU    O=AMIN1     I=MIN1(R1,R2)  (MODE CONVERSION TO FOLLOW)  GEN      3164
                                1636 +   O=AMAX0  EQU    O=MAX0      R=AMAX0(I1,I2) (MODE CONVERSION TO FOLLOW)  GEN      3165
                                1662 +   O=AMIN0  EQU    O=MIN0      R=AMAN0(I1,I2) (MODE CONVERSION TO FOLLOW)  GEN      3166
                                                                                                                 GEN      3167
          1700 0                         O=AMOD   FDIV   T1,LN1,LN2                                              FCC1583AX   5
          1700  01440004402701160000              ZERO   T2                                                      FCC1583AX   6
          1701  01130014400440110000              PACK   T3,0,*T2                                                FCC1583AX   7
          1702  01270024400440460000              FADD   T4,*T3,*T1                                              FCC1583AX   8
          1703  01300034404300060000              NORMZ  T5,0,*T4                                                FCC1583AX   9
          1704  01240044400441460000              FMULT  T6,T5,LN2                                               FCC1583AX  10
          1705  01400054411101160000              DMULT  T7,*T5,L2                                               FCC1583AX  11
          1706  01420064410301120000              DFSUB  T8,LN1,T6                                               FCC1583AX  12
          1707  01330074402702620000              FSUB   T9,L1,*T6                                               FCC1583AX  13
          1710  01310104402502460000              FSUB   T10,*T8,*T7                                             FCC1583AX  14
          1711  01310114416303060000              NORMZ  T11,0,*T9                                               FCC1583AX  15
          1712  01240124400444060000              FADD   T12,*T11,*T10                                           FCC1583AX  16
          1713  01300134424304460000              NORMZ  R1,0,*T12                                               FCC1583AX  17
          1714  41240013600445460000              ENDS                                                           FCC1583AX  18
                                                                                                                 FCC1583AX  19
                                1441 +   O=AND    EQU    O=ANDO                                                  GEN      3177
                                1306 +   O=COMPL  EQU    O=NOT                                                   GEN      3178
                                                                                                                 GEN      3179
          1715 0                         O=CONJG  XMIT   RU1,LU2                                                 GEN      3180
          1715  04100013604500110000              XMITC  RL1,LL2                                                 GEN      3181
          1716  41140014004600110000              ENDS                                                           GEN      3182
          1717 0                         O=DABS   XMIT   T1,LNU2                                                 GEN      3183
          1717  04100004404700110000              RSHF   T1,59                                                   GEN      3184
          1720  04210004566440110000              XOR    RU1,T1,LU2                                              GEN      3185
          1721  01130013601101120000              XOR    RL1,*T1,LL2                                             GEN      3186
          1722  41130014000301140000              ENDS                                                           GEN      3187
                                                                                                                 GEN      3188
          1723 0                         O=DBLE   XMIT   RU1,L2                                                  GEN      3189
          1723  04100013604500110000              FMASK  RL1,0,0                                                 GEN      3190
          1724  41430014000440110000              ENDS                                                           GEN      3191
          1725 0                         O=CMPLX  XMIT   RU1,L1                                                  GEN      3192
          1725  04100013602500110000              XMIT   RL1,L2                                                  GEN      3193
          1726  44100014004500110000              ENDS                                                           GEN      3194
                                                                                                                 GEN      3195
          1727 0                         O=DIM    FSUB   T1,L1,L2                                                FCC1055     8
          1727  01310004402501120000              NORMZ  T2,0,T1                                                 FCC1055     9
          1730  01240014400440220000              XMIT   T3,*T1                                                  FCC1055    10
          1731  04100024400300110000              RSHF   T3,59,0                                                 FCC1055    11
          1732  04210024566440110000              ANDN   R1,*T2,*T3                                              FCC1055    12
          1733  41150013602301060000              ENDS                                                           GEN      3204
                                                                                                                 GEN      3205
          1734 0                         O=DSIGN  XMIT   T1,LNU1                                                 GEN      3206
          1734  04100004402700110000              RSHF   T1,59,0                                                 GEN      3207
          1735  04210004566440110000              XOR    T2,T1,LU1                                               GEN      3208
          1736  01130014401100520000              XOR    T3,*T1,LL1                                              GEN      3209
          1737  01130024400300540000              XMIT   T4,LU2                                                  GEN      3210
          1740  04100034404500110000              RSHF   T4,59,0                                                 GEN      3211
          1741  04210034566440110000              XOR    RU1,*T2,T4                                              GEN      3212
          1742  01130013602301620000              XOR    RL1,*T3,*T4                                             GEN      3213
          1743  41130014004301460000              ENDS                                                           GEN      3214
                                                                                                                 GEN      3215
          1744 0                         O=FLOAT  PACK   T1,0,L2                                                 GEN      3216
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    75
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  INTRINS 
  
          1744  01270004400441120000              NORMZ  R1,0,*T1                                                GEN      3217
          1745  41240013600440060000              ENDS                                                           GEN      3218
          1746                           O=IFIX   BSS    0                                                       GEN      3219
          1746                           O=INT    BSS    0                                                       GEN      3220
          1746 0                         O=IDINT  UPACK  T1,6,L2                                                 GEN      3221
          1746  01260004414441120000              LSHFB  R1,6,*T1                                                GEN      3222
          1747  44220013614440060000              ENDS                                                           GEN      3223
                                                                                                                 GEN      3224
          1750                           O=SIGN   BSS    0                                                       GEN      3225
          1750 0                         O=ISIGN  XMIT   T1,LN1                                                  GEN      3226
          1750  04100004402700110000              RSHF   T1,59,0                                                 GEN      3227
          1751  04210004566440110000              XOR    T2,*T1,L1                                               GEN      3228
          1752  01130014400300520000              XMIT   T3,L2                                                   GEN      3229
          1753  04100024404500110000              RSHF   T3,59,0                                                 GEN      3230
          1754  04210024566440110000              XOR    R1,*T3,*T2                                              GEN      3231
          1755  41130013604300460000              ENDS                                                           GEN      3232
                                                                                                                 GEN      3233
          1756 0                         O=IDIM   ISUB   T1,L1,L2                                                FCC1055    13
          1756  01370004402501120000              XMIT   T2,T1                                                   FCC1055    14
          1757  04100014401100110000              RSHF   T2,59,0                                                 FCC1055    15
          1760  04210014566440110000              ANDN   R1,*T1,*T2                                              FCC1055    16
          1761  41150013600300460000              ENDS                                                           GEN      3241
                                                                                                                 GEN      3242
          1762 0                         O=MASK   FMASK  T1,0,1                                                  FCC1175     4
          1762  01430004400440510000              SB=XK  6,L2,-1                                                 FCC1175     5
          1763  02620062204537647776              RSHFB  T2,6,*T1                                                FCC0975     7
          1764  04230014414440060000              XMIT   T3,T2                                                   FCC0975     8
          1765  04100024403100110000              RSHF   T3,59,0                                                 FCC0975     9
          1766  04210024566440110000              AND    R1,*T2,*T3                                              FCC0975    10
          1767  41110013602301060000              ENDS                                                           GEN      3250
                                                                                                                 GEN      3251
          1770 0                         O=MOD    PACK   T1,0,LN2    I=MOD(J,K)                                  GEN      3252
          1770  01270004400441160000              NORMZ  T2,0,*T1                                                GEN      3253
          1771  01240014400440060000              PACK   T3,0,LN1                                                GEN      3254
          1772  01270024400440560000              FDIV   T4,*T3,*T2                                              GEN      3255
          1773  01440034404300460000              UPACK  T5,6,*T4                                                GEN      3256
          1774  01260044414441460000              LSHFB  T6,6,*T5                                                GEN      3257
          1775  04220054414442060000              IMULT  T7,*T6,L2                                               GEN      3258
          1776  01420064412301120000              ISUB   R1,L1,*T7                                               GEN      3259
          1777  41370013602503060000              ENDS                                                           GEN      3260
                                                                                                                 GEN      3261
          2000 0                         O=MODP2  XMIT   T1,LN1      MOD(INP, POWER OF 2 CONSTANT)               GEN      3262
          2000  04100004402700110000              RSHF   T1,60                                                   GEN      3263
          2001  04210004570440110000              XOR    T2,L1,T1                                                GEN      3264
          2002  01130014402500220000              ANDN   T3,*T2,L2                                               GEN      3265
          2003  01150024402301120000              XOR    R1,*T3,*T1                                              GEN      3266
          2004  41130013604300060000              ENDS                                                           GEN      3267
                                                                                                                 GEN      3268
                                1442 +   O=OR     EQU    O=ORO                                                   GEN      3269
                                                                                                                 GEN      3270
          2005 0                         O=RANF   DMULT  T1,LL2,LU1                                              GEN      3271
          2005  01420004404600520000              CALL   O=RNF,L1                                                FCC0966    53
          2006  05000000777776003416 +            NORMZ  R1,0,*T1                                                GEN      3272
          2007  41240013600440060000              ENDS                                                           GEN      3273
                                                                                                                 GEN      3274
          2010 0                         O=REAL   XMIT   R1,LU2                                                  GEN      3275
          2010  44100013604500110000              ENDS                                                           GEN      3276
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    76
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  INTRINS 
  
                                2010 +   O=SNGL   EQU    O=REAL                                                  GEN      3277
                                                                                                                 GEN      3278
                                                                                                                 GEN      3279
                                        *         VARIABLE SHIFT                                                 GEN      3280
                                                                                                                 GEN      3281
          2011 0                         O=SHIFT  SB=XB  6,L2                                                    GEN      3282
          2011  02630062204500110000              LSHFB  R1,6,L1                                                 GEN      3283
          2012  44220013614440520000              ENDS                                                           GEN      3284
                                                                                                                 GEN      3285
                                        *         CONSTANT SHIFT                                                 GEN      3286
                                                                                                                 GEN      3287
          2013 0                         O=SHIFTC SB=BK  6,,"N3"                                                 GEN      3288
          2013  02610062200441050000              LSHFB  R1,6,L1                                                 GEN      3289
          2014  44220013614440520000              ENDS                                                           GEN      3290
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    77
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  IFMAC 
  
                                        **        13. IF INSTRUCTION SKELETONS.                                  GEN      3292
                                                                                                                 GEN      3293
                                                                                                                 GEN      3294
          2015                           IFBASE   BSS    0           BASE FOR *IF* JUMP SKELETONS.               GEN      3295
                                                                                                                 GEN      3296
          2015 0                         IFI123   ZRJ    0,L1,"N2"                                               GEN      3297
          2015  03030002202501040000              PLJ    0,L1,"N3"                                               GEN      3298
          2016  03032002202501050000              EQJ    "N1"                                                    GEN      3299
          2017  43000002210441030000              ENDS                                                           GEN      3300
          2020 0                         IFD123   OR     T1,LU1,LL1                                              GEN      3301
          2020  01120004402500540000              ZRJ    T1,0,"N2"                                               GEN      3302
          2021  03030004400441040000              PLJ    0,*T1,"N3"                                              GEN      3303
          2022  03032002200301050000              EQJ    "N1"                                                    GEN      3304
          2023  43000002210441030000              ENDS                                                           GEN      3305
                                                                                                                 GEN      3306
          2024 0                         IFI122   FMASK  T1,0,0                                                  GEN      3307
          2024  01430004400440110000              IADD   T2,*T1,L1                                               GEN      3308
          2025  01360014400300520000              PLJ    0,*T2,"N2"                                              GEN      3309
          2026  03032002202301040000              EQJ    "N1"                                                    GEN      3310
          2027  43000002210441030000              ENDS                                                           GEN      3311
          2030 0                         IFR122   NORMZ  T1,0,L1                                                 FCC2203    10
          2030  01240004400440520000              PLJ    0,*T1,"N2"                                              FCC2203    11
          2031  03032002200301040000              EQJ    "N1"                                                    GEN      3313
          2032  43000002210441030000              ENDS                                                           GEN      3314
          2033 0                         IFD122   FADD   T1,LU1,LL1                                              GEN      3315
          2033  01300004402500540000              NORMZ  T2,0,*T1                                                GEN      3316
          2034  01240014400440060000              PLJ    0,*T2,"N2"                                              GEN      3317
          2035  03032002202301040000              EQJ    "N1"                                                    GEN      3318
          2036  43000002210441030000              ENDS                                                           GEN      3319
                                                                                                                 GEN      3320
          2037 0                         IFI113   FMASK  T1,0,0                                                  GEN      3321
          2037  01430004400440110000              ISUB   T2,*T1,L1                                               GEN      3322
          2040  01370014400300520000              PLJ    0,*T2,"N1"                                              GEN      3323
          2041  03032002202301030000              EQJ    "N3"                                                    GEN      3324
          2042  43000002210441050000              ENDS                                                           GEN      3325
          2043 0                         IFR113   XMITC  T1,L1,0                                                 GEN      3326
          2043  01140004402500110000              NORMZ  T2,0,*T1                                                GEN      3327
          2044  01240014400440060000              PLJ    0,*T2,"N1"                                              GEN      3328
          2045  03032002202301030000              EQJ    "N3"                                                    GEN      3329
          2046  43000002210441050000              ENDS                                                           GEN      3330
          2047 0                         IFD113   FADD   T1,LU1,LL1                                              GEN      3331
          2047  01300004402500540000              XMITC  T2,*T1,0                                                GEN      3332
          2050  01140014400300110000              NORMZ  T3,0,*T2                                                GEN      3333
          2051  01240024400440460000              PLJ    0,*T3,"N1"                                              GEN      3334
          2052  03032002204301030000              EQJ    "N1"                                                    GEN      3335
          2053  43000002210441030000              ENDS                                                           GEN      3336
                                                                                                                 GEN      3337
          2054 0                         IFI121   ZRJ    0,L1,"N2"                                               GEN      3338
          2054  03030002202501040000              EQJ    "N1"                                                    GEN      3339
          2055  43000002210441030000              ENDS                                                           GEN      3340
                                                                                                                 GEN      3341
          2056 0                         IFIN23   ZRJ    0,L1,"N2"                                               GEN      3342
          2056  03030002202501040000              PLJ    0,L1,"N3"                                               GEN      3343
          2057  43032002202501050000              ENDS                                                           GEN      3344
          2060 0                         IFDN23   OR     T1,LU1,LL1                                              GEN      3345
          2060  01120004402500540000              ZRJ    0,T1,"N2"                                               GEN      3346
          2061  03030002201101040000              PLJ    0,*T1,"N3"                                              GEN      3347
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    78
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  IFMAC 
  
          2062  43032002200301050000              ENDS                                                           GEN      3348
                                                                                                                 GEN      3349
          2063 0                         IFI1N3   FMASK  T1,0,0                                                  GEN      3350
          2063  01430004400440110000              IADD   T2,*T1,L1                                               GEN      3351
          2064  01360014400300520000              MIJ    0,T2,"N1"                                               GEN      3352
          2065  03033002203101030000              NZJ    0,*T2,"N3"                                              GEN      3353
          2066  43031002202301050000              ENDS                                                           GEN      3354
          2067 0                         IFR1N3   NORMZ  T1,0,L1                                                 FCC2203    12
          2067  01240004400440520000              MIJ    0,T1,"N1"                                               FCC2203    13
          2070  03033002201101030000              NZJ    0,*T1,"N3"                                              FCC2203    14
          2071  43031002200301050000              ENDS                                                           GEN      3357
          2072 0                         IFD1N3   FADD   T1,LU1,LL1                                              GEN      3358
          2072  01300004402500540000              NORMZ  T2,0,*T1                                                GEN      3359
          2073  01240014400440060000              MIJ    0,T2,"N1"                                               GEN      3360
          2074  03033002203101030000              NZJ    0,*T2,"N3"                                              GEN      3361
          2075  43031002202301050000              ENDS                                                           GEN      3362
                                                                                                                 GEN      3363
          2076 0                         IFI12N   ZRJ    0,L1,"N2"                                               GEN      3364
          2076  03030002202501040000              MIJ    0,L1,"N1"                                               GEN      3365
          2077  43033002202501030000              ENDS                                                           GEN      3366
          2100 0                         IFD12N   FADD   T1,LU1,LL1                                              GEN      3367
          2100  01300004402500540000              NORMZ  T2,0,*T1                                                GEN      3368
          2101  01240014400440060000              ZRJ    0,T2,"N2"                                               GEN      3369
          2102  03030002203101040000              MIJ    0,*T2,"N1"                                              GEN      3370
          2103  43033002202301030000              ENDS                                                           GEN      3371
                                                                                                                 GEN      3372
          2104 0                         IFIN22   FMASK  T1,0,0                                                  GEN      3373
          2104  01430004400440110000              IADD   T2,*T1,L1                                               GEN      3374
          2105  01360014400300520000              PLJ    0,*T2,"N2"                                              GEN      3375
          2106  43032002202301040000              ENDS                                                           GEN      3376
          2107 0                         IFRN22   NORMZ  T1,0,L1                                                 FCC2203    15
          2107  01240004400440520000              PLJ    0,*T1,"N2"                                              FCC2203    16
          2110  43032002200301040000              ENDS                                                           GEN      3378
          2111 0                         IFDN22   FADD   T1,LU1,LL1                                              GEN      3379
          2111  01300004402500540000              NORMZ  T2,0,*T1                                                GEN      3380
          2112  01240014400440060000              PLJ    0,*T2,"N2"                                              GEN      3381
          2113  43032002202301040000              ENDS                                                           GEN      3382
                                                                                                                 GEN      3383
          2114 0                         IFI1NN   FMASK  T1,0,0                                                  GEN      3384
          2114  01430004400440110000              IADD   T2,*T1,L1                                               GEN      3385
          2115  01360014400300520000              MIJ    0,*T2,"N1"                                              GEN      3386
          2116  43033002202301030000              ENDS                                                           GEN      3387
          2117 0                         IFR1NN   NORMZ  T1,0,L1                                                 FCC2203    17
          2117  01240004400440520000              MIJ    0,*T1,"N1"                                              FCC2203    18
          2120  43033002200301030000              ENDS                                                           GEN      3389
          2121 0                         IFD1NN   FADD   T1,LU1,LL1                                              GEN      3390
          2121  01300004402500540000              NORMZ  T2,0,*T1                                                GEN      3391
          2122  01240014400440060000              MIJ    0,*T2,"N1"                                              GEN      3392
          2123  43033002202301030000              ENDS                                                           GEN      3393
                                                                                                                 GEN      3394
          2124 0                         IFINN3   FMASK  T1,0,0                                                  GEN      3395
          2124  01430004400440110000              ISUB   T2,*T1,L1                                               GEN      3396
          2125  01370014400300520000              MIJ    0,*T2,"N3"                                              GEN      3397
          2126  43033002202301050000              ENDS                                                           GEN      3398
          2127 0                         IFRNN3   XMITC  T1,L1,0                                                 GEN      3399
          2127  01140004402500110000              NORMZ  T2,0,*T1                                                GEN      3400
          2130  01240014400440060000              MIJ    0,*T2,"N3"                                              GEN      3401
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    79
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  IFMAC 
  
          2131  43033002202301050000              ENDS                                                           GEN      3402
          2132 0                         IFDNN3   FADD   T1,LU1,LL1                                              GEN      3403
          2132  01300004402500540000              XMITC  T2,*T1,0                                                GEN      3404
          2133  01140014400300110000              NORMZ  T3,0,*T2                                                GEN      3405
          2134  01240024400440460000              MIJ    0,*T3,"N3"                                              GEN      3406
          2135  43033002204301050000              ENDS                                                           GEN      3407
                                                                                                                 GEN      3408
          2136 0                         IFI11N   FMASK  T1,0,0                                                  GEN      3409
          2136  01430004400440110000              ISUB   T2,*T1,L1                                               GEN      3410
          2137  01370014400300520000              PLJ    0,*T2,"N1"                                              GEN      3411
          2140  43032002202301030000              ENDS                                                           GEN      3412
          2141 0                         IFR11N   XMITC  T1,L1,0                                                 GEN      3413
          2141  01140004402500110000              NORMZ  T2,0,*T1                                                GEN      3414
          2142  01240014400440060000              PLJ    0,*T2,"N1"                                              GEN      3415
          2143  43032002202301030000              ENDS                                                           GEN      3416
          2144 0                         IFD11N   FADD   T1,LU1,LL1                                              GEN      3417
          2144  01300004402500540000              XMITC  T2,*T1,0                                                GEN      3418
          2145  01140014400300110000              NORMZ  T3,0,*T2                                                GEN      3419
          2146  01240024400440460000              PLJ    0,*T3,"N1"                                              GEN      3420
          2147  43032002204301030000              ENDS                                                           GEN      3421
                                                                                                                 GEN      3422
          2150 0                         IFIN2N   ZRJ    0,L1,"N2"                                               GEN      3423
          2150  43030002202501040000              ENDS                                                           GEN      3424
                                                                                                                 GEN      3425
          2151 0                         IFI1N1   NZJ    0,L1,"N1"                                               GEN      3426
          2151  43031002202501030000              ENDS                                                           GEN      3427
                                                                                                                 GEN      3428
          2152 0                         IFI111   EQJ    "N1"                                                    GEN      3429
          2152  43000002210441030000              ENDS                                                           GEN      3430
                                                                                                                 GEN      3431
          2153 0                         IFL12    MIJ    0,L1,"N1"                                               GEN      3432
          2153  03033002202501030000              EQJ    "N2"                                                    GEN      3433
          2154  43000002210441040000              ENDS                                                           GEN      3434
          2155 0                         IFLN2    PLJ    0,L1,"N2"                                               GEN      3435
          2155  43032002202501040000              ENDS                                                           GEN      3436
          2156 0                         IFL1N    MIJ    0,L1,"N1"                                               GEN      3437
          2156  43033002202501030000              ENDS                                                           GEN      3438
                                                                                                                 GEN      3439
          2157 0                         IFEN2    NZJ    0,L1,"N1"                                               GEN      3440
          2157  43031002202501030000              ENDS                                                           GEN      3441
          2160 0                         IFE1N    ZRJ    0,L1,"N1"                                               GEN      3442
          2160  43030002202501030000              ENDS                                                           GEN      3443
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    80
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  IFTBL 
  
                                        **        IFTBL- GENERATE *IF* TABLE JUMP ADDRESS FOR PROCESSING         GEN      3445
                                        *                3-BRANCH *IF* STATEMENTS.                               GEN      3446
                                                                                                                 GEN      3447
                                         IFTBL    MACRO  PRE,M,L,I,R,D,C                                         GEN      3448
                                         C        MICRO  ,,                                                      GEN      3449
                                        .1        ECHO   ,P1=(M,L,I,R,D,C)                                       GEN      3450
                                         A        MICRO  1,1, P1                                                 GEN      3451
                                         .2       IFC    EQ,*E*"A"*                                              GEN      3452
                                        C         MICRO  1,,$"C"8/-1,$                                           GEN      3453
                                         .2       ELSE                                                           GEN      3454
                                         C        MICRO  1,,$"C"8/IF_P1_PRE-IFBASE,$                             GEN      3455
                                         .2       ENDIF                                                          GEN      3456
                                        .1        ENDD                                                           GEN      3457
                                                  VFD    "C"*P/0                                                 GEN      3458
                                         IFTBL    ENDM                                                           GEN      3459
  
  
  
  
                                        **        TABLES FOR COMPILING *IF* JUMP CODE ON 3-BRANCH IF.            GEN      3461
                                                                                                                 GEN      3462
                                        *         ENTRIES WHEN UPCOMING STATEMENT NUMBER NOT REFERENCED.         GEN      3463
                                                                                                                 GEN      3464
          2161                           STDIF    BSS    0                                                       GEN      3465
          2161  00177000000014000000              IFTBL  123,I,ERR7,I,I,D,I                                      GEN      3466
          2162  04577022054150260000              IFTBL  113,I,ERR7,I,R,D,R                                      GEN      3467
          2163  01777007016070070000              IFTBL  122,I,ERR7,I,I,D,I                                      GEN      3468
          2164  07777037076174370000              IFTBL  121,I,ERR7,I,I,I,I                                      GEN      3469
                                                                                                                 GEN      3470
                                        **        ENTRIES WHEN UPCOMING STATEMENT NUMBER REFERENCED ONLY ONCE.   GEN      3471
                                                                                                                 GEN      3472
          2165  10377041102214410000              IFTBL  N23,I,ERR7,I,I,D,I                                      GEN      3473
          2166  11577046124264520000              IFTBL  1N3,I,ERR7,I,R,D,R                                      GEN      3474
          2167  14377061142314610000              IFTBL  12N,I,ERR7,I,I,D,I                                      GEN      3475
                                                                                                                 GEN      3476
                                        **        ENTRIES WHEN UPCOMING STATEMENT NUMBER IS REFERENCED           GEN      3477
                                        *         MORE THAN ONCE.                                                GEN      3478
                                                                                                                 GEN      3479
          2170                           NSTDIF   BSS    0                                                       GEN      3480
          2170  21777107224465120000              IFTBL  NN3,I,ERR7,I,R,D,R                                      GEN      3481
          2171  24377121250535240000              IFTBL  11N,I,ERR7,I,R,D,R                                      GEN      3482
          2172  15777067164360720000              IFTBL  N22,I,ERR7,I,R,D,R                                      GEN      3483
          2173  17777077204421020000              IFTBL  1NN,I,ERR7,I,R,D,R                                      GEN      3484
          2174  27177134270561340000              IFTBL  1N1,I,ERR7,I,I,I,I                                      GEN      3485
          2175  26777133266555330000              IFTBL  N2N,I,ERR7,I,I,I,I                                      GEN      3486
  
  
  
  
                                        **        14.  REAL RAISED TO INTEGER CONSTANT.                          GEN      3488
                                                                                                                 GEN      3489
                                                                                                                 GEN      3490
          2176 0                         R..2     FMULT  R1,L1,LN1                                               GEN      3491
          2176  41400013602500560000              ENDS                                                           GEN      3492
          2177 0                         R..3     FMULT  T1,LN1,LN1                                              GEN      3493
          2177  01400004402700560000              FMULT  R1,*T1,L1                                               GEN      3494
          2200  41400013600300520000              ENDS                                                           GEN      3495
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    81
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  RTOIC 
  
          2201 0                         R..4     FMULT  T1,L1,LN1                                               GEN      3496
          2201  01400004402500560000              FMULT  R1,*T1,T1                                               GEN      3497
          2202  41400013600300220000              ENDS                                                           GEN      3498
          2203 0                         R..5     FMULT  T1,LN1,LN1                                              GEN      3499
          2203  01400004402700560000              FMULT  T2,T1,T1                                                GEN      3500
          2204  01400014401100220000              FMULT  R1,*T2,L1                                               GEN      3501
          2205  41400013602300520000              ENDS                                                           GEN      3502
          2206 0                         R..6     FMULT  T1,L1,LN1                                               GEN      3503
          2206  01400004402500560000              FMULT  T2,T1,T1                                                GEN      3504
          2207  01400014401100220000              FMULT  R1,*T1,*T2                                              GEN      3505
          2210  41400013600300460000              ENDS                                                           GEN      3506
          2211 0                         R..7     FMULT  T1,LN1,LN1                                              GEN      3507
          2211  01400004402700560000              FMULT  T2,T1,L1                                                GEN      3508
          2212  01400014401100520000              FMULT  T3,*T1,T1                                               GEN      3509
          2213  01400024400300220000              FMULT  R1,*T2,*T3                                              GEN      3510
          2214  41400013602301060000              ENDS                                                           GEN      3511
          2215 0                         R..8     FMULT  T1,L1,LN1                                               GEN      3512
          2215  01400004402500560000              FMULT  T2,*T1,T1                                               GEN      3513
          2216  01400014400300220000              FMULT  R1,*T2,T2                                               GEN      3514
          2217  41400013602300620000              ENDS                                                           GEN      3515
          2220 0                         R..9     FMULT  T1,LN1,LN1                                              GEN      3516
          2220  01400004402700560000              FMULT  T2,*T1,T1                                               GEN      3517
          2221  01400014400300220000              FMULT  T3,*T2,T2                                               GEN      3518
          2222  01400024402300620000              FMULT  R1,*T3,L1                                               GEN      3519
          2223  41400013604300520000              ENDS                                                           GEN      3520
          2224 0                         R..10    FMULT  T1,L1,LN1                                               GEN      3521
          2224  01400004402500560000              FMULT  T2,T1,T1                                                GEN      3522
          2225  01400014401100220000              FMULT  T3,*T2,T2                                               GEN      3523
          2226  01400024402300620000              FMULT  R1,*T1,*T3                                              GEN      3524
          2227  41400013600301060000              ENDS                                                           GEN      3525
  
  
  
  
                                        **        15A.  INTEGER RAISED TO INTEGER CONSTANT                       GEN      3528
                                        *               (INTEGER MULTIPLY INSTRUCTION AVAILABLE.)                GEN      3529
                                                                                                                 GEN      3530
          2230 0                         I..2     IMULT  R1,L1,LN1                                               GEN      3531
          2230  41420013602500560000              ENDS                                                           GEN      3532
          2231 0                         I..3     IMULT  T1,LN1,LN1                                              GEN      3533
          2231  01420004402700560000              IMULT  R1,*T1,L1                                               GEN      3534
          2232  41420013600300520000              ENDS                                                           GEN      3535
          2233 0                         I..4     IMULT  T1,L1,LN1                                               GEN      3536
          2233  01420004402500560000              IMULT  R1,*T1,T1                                               GEN      3537
          2234  41420013600300220000              ENDS                                                           GEN      3538
          2235 0                         I..5     IMULT  T1,LN1,LN1                                              GEN      3539
          2235  01420004402700560000              IMULT  T2,*T1,T1                                               GEN      3540
          2236  01420014400300220000              IMULT  R1,*T2,L1                                               GEN      3541
          2237  41420013602300520000              ENDS                                                           GEN      3542
          2240 0                         I..6     IMULT  T1,LN1,LN1                                              GEN      3543
          2240  01420004402700560000              IMULT  T2,*T1,L1                                               GEN      3544
          2241  01420014400300520000              IMULT  R1,*T2,T2                                               GEN      3545
          2242  41420013602300620000              ENDS                                                           GEN      3546
          2243 0                         I..7     IMULT  T1,LN1,LN1                                              GEN      3547
          2243  01420004402700560000              IMULT  T2,T1,L1                                                GEN      3548
          2244  01420014401100520000              IMULT  T3,*T1,T1                                               GEN      3549
          2245  01420024400300220000              IMULT  R1,*T2,*T3                                              GEN      3550
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    82
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  ITOIC1
  
          2246  41420013602301060000              ENDS                                                           GEN      3551
          2247 0                         I..8     IMULT  T1,L1,LN1                                               GEN      3552
          2247  01420004402500560000              IMULT  T2,*T1,T1                                               GEN      3553
          2250  01420014400300220000              IMULT  R1,*T2,T2                                               GEN      3554
          2251  41420013602300620000              ENDS                                                           GEN      3555
          2252 0                         I..9     IMULT  T1,LN1,LN1                                              GEN      3556
          2252  01420004402700560000              IMULT  T2,*T1,T1                                               GEN      3557
          2253  01420014400300220000              IMULT  T3,*T2,T2                                               GEN      3558
          2254  01420024402300620000              IMULT  R1,*T3,L1                                               GEN      3559
          2255  41420013604300520000              ENDS                                                           GEN      3560
          2256 0                         I..10    IMULT  T1,LN1,LN1                                              GEN      3561
          2256  01420004402700560000              IMULT  T2,*T1,T1                                               GEN      3562
          2257  01420014400300220000              IMULT  T3,*T2,L1                                               GEN      3563
          2260  01420024402300520000              IMULT  R1,*T3,T3                                               GEN      3564
          2261  41420013604301220000              ENDS                                                           GEN      3565
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    83
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  DOMAC 
  
                                        **        *DO* STATEMENT MACROS.                                         GEN      3569
                                        *                                                                        GEN      3570
                                        *         A.  *DO* BEGIN CODE.                                           GEN      3571
                                                                                                                 GEN      3572
                                                                                                                 GEN      3573
          2262 0                         O=DOB    CALL   O=CAR       CLEAR REGISTER FILE                         GEN      3574
          2262  05000000777777003337 +            XMIT   X6,L1                                                   GEN      3575
          2263  04100064602500110000              CALL   CBSS,L2                                                 GEN      3576
          2264  05000000777775003406 +            CALL   DIP         SET *DO* CONDITIONS                         GEN      3577
          2265  45000000777777000000 X            ENDS                                                           GEN      3578
                                                                                                                 GEN      3579
  
  
  
  
                                        **        B.  *DO* CONCLUSION CODE.                                      GEN      3581
                                        *                GENERAL FORM OF TURPLE FOR *DOC* MACROS IS              GEN      3582
                                        *                                                                        GEN      3583
                                        *         NOTE - *DOC* MACROS ALWAYS ARE USED WITH A DOUBLE TURPLE.      GEN      3584
                                        *                                                                        GEN      3585
                                        *                1ST TURPLE.                                             GEN      3586
                                        *                OR.OPR = O=DOCX, WHERE X CAN BE 1,2 OR 3.               GEN      3587
                                        *                OR.1OP = INDEX OF *DO*                                  GEN      3588
                                        *                OR.2OP = INCREMENT OF *DO*                              GEN      3589
                                        *                                                                        GEN      3590
                                        *                2ND TURPLE, (ALWAYS FOLLOWING 1ST)                      GEN      3591
                                        *                                                                        GEN      3592
                                        *                OR.OPR = DUMMY (ECHO OF 1ST)                            GEN      3593
                                        *                OR.1OP = LIMIT OF *DO*                                  GEN      3594
                                        *                OR.2OP = *DO* BEGIN STATMENT TAG.                       GEN      3595
                                                                                                                 GEN      3596
                                        **        O=DOC1                                                         GEN      3597
                                        *                1. INCREMENT IS VARIABLE                                GEN      3598
                                        *                2. LIMIT IS VARIABLE                                    GEN      3599
                                                                                                                 GEN      3600
          2266 0                         O=DOC1   IADD   X6,L1,L2                                                GEN      3601
          2266  01360064602501120000              ISUB   T1,L3,X6                                                FCC0684     4
          2267  01370004410503230000              PLJ    0,*T1,"DOBEG"                                           FCC0684     5
          2270  03032002200302430000              RESET  -L.TURP                                                 GEN      3604
          2271  47000000000000777774              ENDS                                                           GEN      3605
                                                                                                                 GEN      3606
                                        **        O=DOC2                                                         GEN      3607
                                        *                1. INCREMENT IS SHORT                                   GEN      3608
                                        *                2. LIMIT IS VARIABLE                                    GEN      3609
                                                                                                                 GEN      3610
          2272 0                         O=DOC2   SX=XK  X6,L1,"DOINCR"                                          GEN      3611
          2272  02720064602501050000              ISUB   T1,L3,X6                                                FCC0684     6
          2273  01370004410503230000              PLJ    0,*T1,"DOBEG"                                           FCC0684     7
          2274  03032002200302430000              RESET  -L.TURP                                                 GEN      3614
          2275  47000000000000777774              ENDS                                                           GEN      3615
                                                                                                                 GEN      3616
                                                                                                                 GEN      3617
                                        **        O=DOC3                                                         GEN      3618
                                        *                1.  INCREMENT IS SHORT                                  GEN      3619
                                        *                2.  LIMIT IS SHORT                                      GEN      3620
                                                                                                                 GEN      3621
          2276 0                         O=DOC3   SX=XK  X6,L1,"DOINCR"                                          GEN      3622
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    84
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  DOCONC
  
          2276  02720064602501050000              SX=XK  T1,X6,"DOLIM"                                           FCC0684     8
          2277  02720004415142050000              MIJ    0,*T1,"DOBEG"                                           FCC0684     9
          2300  03033002200302430000              RESET  -L.TURP                                                 GEN      3625
          2301  47000000000000777774              ENDS                                                           GEN      3626
                                                                                                                 GEN      3627
                                        **        O=DOC3A, SAME CONDITIONS OF *DO* INDICES AND *DO* LOOP IS      GEN      3628
                                        *                  WELL BEHAVED.                                         GEN      3629
                                        *                (B6) IS ASSIGNED *DO* INDEX ACROSS *DO* LOOP            GEN      3630
                                                                                                                 GEN      3631
                                                                                                                 GEN      3632
          2302 0                         O=DOC3A  LOADB  L1,,+R.B5-RGFILE                                        GEN      3633
          2302  10600012400440240005              SB=BK  5,5,"DOINCR"                                            GEN      3634
          2303  02610052212441050000              SB=BK  6,5,"DOLIM"                                             GEN      3635
          2304  02610062212442050000              LTB    6,0,"DOBEG"                                             GEN      3636
          2305  03070062200442430000              CALL   CDO         CLEAR *DO*                                  GEN      3637
          2306  05000000777777000000 X            RESET  -L.TURP                                                 GEN      3638
          2307  47000000000000777774              ENDS                                                           GEN      3639
                                                                                                                 GEN      3640
                                        **        O=DOC4                                                         GEN      3641
                                        *                1.  INCREMENT IS VARIABLE                               GEN      3642
                                        *                2.  LIMIT IS SHORT                                      GEN      3643
                                                                                                                 GEN      3644
                                                                                                                 GEN      3645
          2310 0                         O=DOC4   IADD   X6,L1,L2                                                GEN      3646
          2310  01360064602501120000              SX=XK  T1,X6,"DOLIM"                                           FCC0684    10
          2311  02720004415142050000              MIJ    0,*T1,"DOBEG"                                           FCC0684    11
          2312  03033002200302430000              RESET  -L.TURP                                                 GEN      3649
          2313  47000000000000777774              ENDS                                                           GEN      3650
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    85
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  MISC
  
                                        **        14. MISCELLANEOUS SKELETONS.                                   GEN      3652
                                                                                                                 GEN      3653
                                                                                                                 GEN      3654
                                        **        UNCONDITIONAL GOTO                                             GEN      3655
          2314 0                         O=GOTON  EQJ    "N1"                                                    GEN      3656
          2314  43000002210441030000              ENDS                                                           GEN      3657
                                                                                                                 GEN      3658
                                        **        ASSIGNED GOTO                                                  GEN      3659
          2315 0                         O=GOA    SB=XB  6,L1,0                                                  GEN      3660
          2315  02630062202500110000              CALL   CBJ                   COMPILE *B* JUMP                  GEN      3661
          2316  45000000777777003413 +            ENDS                                                           GEN      3662
                                                                                                                 GEN      3663
                                        **        COMPUTED GOTO                                                  GEN      3664
          2317 0                         O=GOC    CALL   O=CAR       *KLUDGE*                                    GEN      3665
          2317  05000000777777003337 +            SX=XK  T1,LN1,-1   X1 = (NUMBER OF BRANCHES)                   GEN      3666
                                        ,                            SX0   X1-1                                  GEN      3667
          2320  02720004402737647776              SX=XK  T2,LN1,CL2  SX7  X1-(NUMBER OF BRANCHES)                GEN      3668
          2321  02720014402701030000              ORN    T3,*T1,*T2  BX6   -X7+X0                                GEN      3669
          2322  01160024400300460000              CALL   O=CDW                                                   GEN      3670
          2323  05000000777777003335 +            RSHF   T3,59       AX6   59                                    GEN      3671
          2324  04210024566440110000              ANDN   T4,L1,*T3   BX0   -X6*X1                                GEN      3672
          2325  01150034402501060000              SB=XB  6,*T4                                                   GEN      3673
          2326  42630062206300110000              ENDS                                                           GEN      3674
                                                                                                                 GEN      3675
                                        **        COMPUTED GOTO IF LINE NUMBER .GE. 7777B                        GEN      3676
          2327 0                         O=GOCL   CALL   O=CAR                                                   GEN      3677
          2327  05000000777777003337 +            SX=XK  T1,L1,+1                                                GEN      3678
          2330  02720004402500240001              SX=XK  T2,T1,-2                                                GEN      3679
          2331  02720014401137647775              SX=XK  T3,T1,CL2                                               GEN      3680
          2332  02720024401101030000              ORN    T4,*T2,*T3                                              GEN      3681
          2333  01160034402301060000              CALL   O=CDW                                                   GEN      3682
          2334  05000000777777003335 +            RSHF   T4,59                                                   GEN      3683
          2335  04210034566440110000              ANDN   T5,*T1,*T4                                              GEN      3684
          2336  01150044400301460000              SB=XB  6,*T5                                                   GEN      3685
          2337  42630062210300110000              ENDS                                                           GEN      3686
                                                                                                                 GEN      3687
          2340 0                         O=ASSGN  SX=BK  X6,0,"M1"                                               GEN      3688
          2340  02710064600440430000              SA=BK  6,0,"N3"                                                GEN      3689
          2341  42510062200441050000              ENDS                                                           GEN      3690
                                                                                                                 GEN      3691
          2342 0                         O=BSS    CALL   CBSS,L1     DEFINE LABEL                                GEN      3692
          2342  45000000777776003406 +            ENDS                                                           GEN      3693
                                                                                                                 GEN      3694
                                        **        SKELETONS FOR SUBPROGRAM EXIT.                                 GEN      3695
                                                                                                                 GEN      3696
          2343 0                         O=QUITP  SA=BK  1,0,+CT.TRAC                                            GEN      3697
          2343  02510012200453240000              ENDF                                                           GEN      3698
          2344 0                         O=QUITS  CALL   O=CDW                                                   GEN      3699
          2344  05000000777777003335 +            EQJ    "N1"                                                    GEN      3700
          2345  03000002210441030000              CALL   O=CAR                                                   GEN      3701
          2346  45000000777777003337 +            ENDS                                                           GEN      3702
                                                                                                                 GEN      3703
          2347 0                         O=RTNA   CALL   O=CDW                                                   GEN      3704
          2347  05000000777777003335 +            SA=AK  5,0,CL1                                                 GEN      3705
          2350  02500052200440430000              SA=BK  4,0,+CT.TPA0                                            GEN      3706
          2351  02510042200453240001              SB=XB  6,5                                                     GEN      3707
          2352  02630062212440110000              SA=XB  0,4                                                     GEN      3708
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    86
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  MISC
  
          2353  02530002210440110000              CALL   CBJ                                                     GEN      3709
          2354  05000000777777003413 +            CALL   O=CAR                                                   GEN      3710
          2355  45000000777777003337 +            ENDS                                                           GEN      3711
                                                                                                                 GEN      3712
          2356 0                         O=RET0   CALL   CBSS,+CT.RETN     SUBROUTINE                            GEN      3713
          2356  45000000260006003406 +            ENDS                                                           GEN      3714
                                                                                                                 GEN      3715
                                        **        FUNCTION RESULT RETURN MACROS --                               GEN      3716
                                        *                (2OP) = VALUE. + MODE                                   GEN      3717
                                                                                                                 GEN      3718
          2357 0                         O=RETD   CALL O=CAR                                                     GEN      3719
          2357  05000000777777003337 +            XMIT   X7,LL2      FUNCTION - DOUBLE RESULTS                   GEN      3720
          2360  04100074604600110000              XMIT   X6,L2                                                   GEN      3721
          2361  44100064604500110000              ENDS                                                           GEN      3722
                                                                                                                 GEN      3723
          2362 0                         O=RETS   CALL   O=CAR                                                   GEN      3724
          2362  05000000777777003337 +            XMIT   X6,L2       FUNCTION - SINGLE RESULTS                   GEN      3725
          2363  44100064604500110000              ENDS                                                           GEN      3726
                                                                                                                 GEN      3727
                                        **        ENTRY POINT DEFINITION MACROS --                               GEN      3728
                                        *                ("M1") = ENTRY POINT TAG                                GEN      3729
                                        *                ("N1") = TAG OF FIRST INST AFTER ENTRY POINT.           GEN      3730
                                        *                ("N3") = TAG OF MAIN ENTRY POINT, IF REQUIRED.          GEN      3731
                                                                                                                 GEN      3732
          2364 0                         O=RETN   CALL   O=CDW                                                   GEN      3733
          2364  05000000777777003335 +            SA=BK  2,0,+CT.TPA0         RESTORE (A0)                       GEN      3734
          2365  02510022200453240001              SA=XB  0,2                                                     GEN      3735
          2366  02530002204440110000              ENDF                                                           GEN      3736
          2367 0                         O=NTR    CALL   CBSS,L1           MAIN ENTRY, NO ARGS                   GEN      3737
          2367  05000000777776003406 +            EQJ    "M1"                                                    GEN      3738
          2370  43000002210440430000              ENDS                                                           GEN      3739
                                                                                                                 GEN      3740
          2371 0                         O=NTRM   SB=BK  6,0,+CT.BEGIN                                           GEN      3741
          2371  02610062200453240005              CALL   CBSS,+CT.INIT                                           GEN      3742
          2372  05000000260004003406 +            ENDF                                                           GEN      3743
          2373 0                         O=NTRN   SX=AB  6,0                                                     GEN      3744
          2373  02740062200440110000              SA=AB  0,1                                                     GEN      3745
          2374  02540002202440110000              SA=BK  6,0,+CT.TPA0                                            GEN      3746
          2375  42510062200453240001              ENDS                                                           GEN      3747
                                                                                                                 GEN      3748
                                         #FID     IFNE   .FID,0                                                  F66FCC    803
                                                  ENTRY  O=NTRN1                                                 F66FCC    804
          2376 0                         O=NTRN1  SX=AB  6,1                                                     F66FCC    805
          2376  02740062202440110000              SA=BK  6,0,+CT.TPA1                                            F66FCC    806
          2377  42510062200453240002              ENDS                                                           F66FCC    807
                                         #FID     ENDIF                                                          F66FCC    808
                                                                                                                 F66FCC    809
          2400 0                         O=NTRX   JPQ    +CT.BEGIN                                               FCCA598     6
          2400  43000002206453240005              ENDS                                                           GEN      3750
                                                                                                                 GEN      3751
          2401 0                         O=NTRY   CALL   CBJ,+7                                                  GEN      3752
          2401  45000000000007003413 +            ENDS                                                           GEN      3753
                                                                                                                 GEN      3754
          2402 0                         O=NTR0   CALL   CBSS,L1           ENTRY POINT, NO ARGS                  GEN      3755
          2402  05000000777776003406 +            EQJ    "M1"                                                    GEN      3756
          2403  03000002210440430000              ENDF                                                           GEN      3757
          2404 0                         O=NTR1   SA=BK  5,0,"M1"                                                GEN      3758
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    87
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  MISC
  
          2404  02510052200440430000              XMIT   7,5,5                                                   GEN      3759
          2405  04100072212442510000              SA=BK  7,0,"N3"                                                GEN      3760
          2406  02510072200441050000              CALL   O=CAR                                                   GEN      3761
          2407  45000000777777003337 +            ENDS                                                           GEN      3762
                                                                                                                 GEN      3763
          2410 0                         O=NTRP   SB=BK  6,0,"N1"    ENTRY WITH ARGUMENTS                        GEN      3764
          2410  02610062200441030000              EQJ    +CT.INIT                                                GEN      3765
          2411  43000002210453240004              ENDS                                                           GEN      3766
                                        **        VOID THE INSTRUCTION STACK AFTER POSSIBLY STORING INTO IT.     GEN      3767
                                                  ENTRY  O=VOID                                                  GEN      3769
          2412 0                         O=VOID   RJQ    "M1"        VOID CPU INSTRUCTION STACK                  F7540FTA   13
          2412  03000002204440430000              CALL   CBSS,L1                                                 GEN      3771
          2413  05000000777776003406 +            RJQ    "M1"        DUMMY WORD                                  GEN      3772
          2414  43000002204440430000              ENDS                                                           GEN      3773
                                                                                                                 GEN      3781
                                        **        SET TRACEBACK WORD.                                            GEN      3782
                                                                                                                 GEN      3783
          2415 0                         O=STRC   CALL   O=CDW                                                   GEN      3784
          2415  05000000777777003335 +            XMIT   X7,L1                                                   GEN      3785
          2416  04100074602500110000              SA=BK  7,0,"N1"                                                GEN      3786
          2417  42510072200441030000              ENDS                                                           GEN      3787
                                                                                                                 GEN      3788
                                        **        SET LINE NUMBER IN ENTRY POINT.                                GEN      3789
                                                                                                                 GEN      3790
          2420 0                         O=SLNO   SA=BK  1,0,"M1"                                                GEN      3791
          2420  02510012200440430000              FMASK  T2,30                                                   GEN      3792
          2421  01430014474440110000              SX=BB  T3,7                                                    GEN      3793
          2422  02760024416440110000              AND    T4,*T2,1                                                GEN      3794
          2423  01110034402300510000              OR     7,*T4,*T3                                               GEN      3795
          2424  01120072206301060000              SA=BK  7,0,"M1"                                                GEN      3796
          2425  42510072200440430000              ENDS                                                           GEN      3797
                                                                                                                 FCC2194    33
                                        **        TRANSMIT.                                                      FCC2194    34
                                                                                                                 FCC2194    35
          2426 0                         O=XMIT   XMIT   R1,L1                                                   FCC2194    36
          2426  44100013602500110000              ENDS                                                           FCC2194    37
  
  
  
  
                                        **        SOME *I/O* SKELETONS.                                          GEN      3799
                                                                                                                 GEN      3800
                                                                                                                 GEN      3801
          2427 0                         O=APLUG  LOAD   L2                PLUG (NEW) ADDRESS INTO AP-LIST.      GEN      3802
          2427  10500022400440110000              FMASK  T1,36                                                   GEN      3803
          2430  01430004510440110000              AND    T2,*T1,L2                                               GEN      3804
          2431  01110014400301120000              OR     R1,L1,*T2                                               GEN      3805
          2432  41120013602500460000              ENDS                                                           GEN      3806
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    88
        /RMAC  SKELETONS FOR CODE GENERATION.-MACRUN                  O=RAG 
  
                                        **        O=RAG - LOAD ARGUMENT INTO REGISTER FOR CALL-BY-VALUE.         GEN      3808
                                        *                                                                        GEN      3809
                                        *                (1OP) = SECOND ARGUMENT (OR DUMMY).                     GEN      3810
                                        *                (2OP) = FIRST  ARGUMENT.                                GEN      3811
                                                                                                                 GEN      3812
                                                                                                                 GEN      3813
          2433 0                         O=RAGS1  LOAD   L2,,+R.X1-RGFILE SINGLE ARGUMENT                        GEN      3814
          2433  50500022400440240021              ENDS                                                           GEN      3815
                                                                                                                 GEN      3816
          2434 0                         O=RAGD1  LOAD   LU2,,+R.X1-RGFILE                                       GEN      3817
          2434  10500022400440240021              LOAD   LL2,,+R.X2-RGFILE                                       GEN      3818
          2435  50500023000440240022              ENDS                                                           GEN      3819
                                                                                                                 GEN      3820
          2436 0                         O=RAGSS  LOAD   L1,,+R.X1-RGFILE  1OP = SINGLE , 2OP = SINGLE           GEN      3821
          2436  10500012400440240021              LOAD   L2,,+R.X3-RGFILE                                        GEN      3822
          2437  50500022400440240023              ENDS                                                           GEN      3823
                                                                                                                 GEN      3824
          2440 0                         O=RAGSD  LOAD   L1,,+R.X1-RGFILE  1OP = SINGLE , 2OP = DOUBLE           GEN      3825
          2440  10500012400440240021              LOAD   LU2,,+R.X3-RGFILE                                       GEN      3826
          2441  10500022400440240023              LOAD   LL2,,+R.X4-RGFILE                                       GEN      3827
          2442  50500023000440240024              ENDS                                                           GEN      3828
                                                                                                                 GEN      3829
          2443 0                         O=RAGDS  LOAD   LU1,,+R.X1-RGFILE 1OP = DOUBLE , 2OP = SINGLE           GEN      3830
          2443  10500012400440240021              LOAD   LL1,,+R.X2-RGFILE                                       GEN      3831
          2444  10500013000440240022              LOAD   L2,,+R.X3-RGFILE                                        GEN      3832
          2445  50500022400440240023              ENDS                                                           GEN      3833
                                                                                                                 GEN      3834
          2446 0                         O=RAGDD  LOAD   LU1,,+R.X1-RGFILE 1OP = DOUBLE , 2OP = DOUBLE           GEN      3835
          2446  10500012400440240021              LOAD   LL1,,+R.X2-RGFILE                                       GEN      3836
          2447  10500013000440240022              LOAD   LU2,,+R.X3-RGFILE                                       GEN      3837
          2450  10500022400440240023              LOAD   LL2,,+R.X4-RGFILE                                       GEN      3838
          2451  50500023000440240024              ENDS                                                           GEN      3839
  
  
  
  
                                        **        O=ADSUB - ADDRESS SUBSTITUTION TURPLES                         GEN      3841
                                        *                                                                        GEN      3842
                                        *                (1OP) = TAG TO BE SUBSTITUTED.                          GEN      3843
                                        *                (2OP) = TAG FOR LOCATION OF SUBSTITUTION.               GEN      3844
                                                                                                                 GEN      3845
                                                                                                                 GEN      3846
          2452 0                         O=RJSUB  XMIT   X2,L1                                                   GEN      3847
          2452  04100024602500110000              LSHF   X2,30                                                   GEN      3848
          2453  04200024674440110000              SA=BK  1,0,+CT.RJS                                             GEN      3849
          2454  02510012200453240007              OR     X7,X1,X2                                                GEN      3850
          2455  01120074603141230000              SA=AB  7,L2,0                                                  GEN      3851
          2456  42540072204500110000              ENDS                                                           GEN      3852
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    89
        /ARI  A R I T H 
  
                                         ARI      SECT   (A R I T H),1                                           GEN      3853
  
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    90
        /ARI  A R I T H                                               CAI 
  
                                        **        CAI -  COMPILE ARITHMETIC INSTRUCTION.                         GEN      3855
                                        *                                                                        GEN      3856
                                        *         (P A S S   --  T W O  OF A ONE PASS COMPILER.)                 GEN      3857
                                        *                                                                        GEN      3858
                                        *         ENTRY  TT.PAR = PARSED FILE TO PROCESS.                        GEN      3859
                                        *                TT.SCR = EXTERNALS TO PROCESS.                          GEN      3860
                                        *                                                                        GEN      3861
                                        *         EXIT   TT=PAR = 0                                              GEN      3862
                                        *                TT=USE = 0                                              GEN      3863
                                        *                TT=SCR = 0                                              GEN      3864
                                                                                                                 GEN      3865
                                                                                                                 GEN      3866
                                        **        EXIT --   P A S S   T W O....                                  GEN      3867
                                                                                                                 GEN      3868
                                                                                                                 GEN      3869
                                        **        EXIT THRU HERE IF BINARY SUPPRESSED OR LOCAL ERRORS FOUND.     GEN      3870
                                                                                                                 GEN      3871
          2457                           CAIX     BSS    0                                                       GEN      3872
                                                                                                                 GEN      3873
                                         TEST     IFNE   TEST                                                    GEN      3874
                                                  SA5    PARSLEN                                                 GEN      3875
                                                  SA4    TT=PAR                                                  GEN      3876
                                                  IX0    X5-X4                                                   GEN      3877
                                                  AX0    59                                                      GEN      3878
                                                  BX7    -X0*X5                                                  GEN      3879
                                                  BX6    X0*X4                                                   GEN      3880
                                                  IX6    X6+X7                                                   GEN      3881
                                                  SA6    A5          RESET MAXIMUM PARSED FILE LENGTH            GEN      3882
                                                  EQ     CAIXSN      CONTINUE                                    GEN      3883
                                                  ENTRY  PARSLEN                                                 GEN      3884
                                         PARSLEN  DATA   0                                                       GEN      3885
                                                  DIS    ,/ LARGEST PARSED FILE LENGTH./                         GEN      3886
                                                                                                                 GEN      3887
                                         CAIXSN   BSS    0                                                       GEN      3888
                                         TEST     ENDIF  TEST                                                    GEN      3889
          2457  5110000000 X                      SA1    DRITE                                                   GEN      3890
                          0301002462 +            ZR     X1,CAI10    IF DELAYED STORE NOT SET                    GEN      3891
          2460  20155                             IFBIT  X1,-2ARY,CAI10                                          GEN      3892
                               13000              DRITE  DEACTIVATE                                              GEN      3893
          2462                           CAI10    BSS    0                                                       GEN      3894
                                                                                                                 GEN      3895
          2462  76600                             SHRINK TT=PAR,0                                                GEN      3896
          2463  5120000000 X                      SA2    TT=USE                                                  GEN      3897
                          5160000000 X            SHRINK TT=SCR,X6                                               GEN      3898
          2464  54620                             SHRINK A2,X6                                                   GEN      3899
                     5160000000 X                 SA6    CURST       RESET STARTING PASS 1 BLOCK                 GEN      3900
                                                                                                                 GEN      3901
                                        *         RESTORE *TAG* BACK TO SYMBOL TABLE                             GEN      3902
                                                                                                                 GEN      3903
          2465  5110000000 X                      SA1    TT.USE                                                  GEN      3904
                          5130000000 X            SA3    TS.SYM                                                  GEN      3905
          2466  63620                             SB6    X2                                                      GEN      3906
                     63510                        SB5    X1                                                      GEN      3907
                          63430                   SB4    X3                                                      GEN      3908
          2467  7100200000                        =X0    C.SYM                                                   GEN      3909
                          67661                   =B6    B6-1                                                    GEN      3910
          2470  0606002473 +                      LE     B6,CAI35    IF NULL USE TABLE, AVOID..                  GEN      3911
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    91
        /ARI  A R I T H                                               CAI 
  
                                                                                                                 GEN      3912
                                        *         LOOP THROU *TT.USE* FOR TAG THAT NEED TO BE RESTORED.          GEN      3913
                                                                                                                 GEN      3914
          2471  56156                    CAI30    SA1    B5+B6       LOAD TAG                                    GEN      3915
                     10611                        BX6    X1                                                      GEN      3916
                          21152                   AX1    P.TAG                                                   GEN      3917
                               37310              IX3    X1-X0                                                   GEN      3918
          2472  53634                             SA6    X3+B4       RESET SYMBOL TABLE ENTRY                    GEN      3919
                     67661                        =B6    B6-1                                                    GEN      3920
          2473  0660002471 +             CAI35    PL     B6,CAI30    IF NOT END OF TABLE                         GEN      3921
                                                                                                                 GEN      3922
                                        **        RESET TEM.MAX TO MAXIMUM TEMPORARY TAG.                        GEN      3923
                                                                                                                 GEN      3924
                          5120000000 X            SA2    TEM.MAX                                                 GEN      3925
          2474  5130000000 X                      SA3    TG.TEM                                                  GEN      3926
                          37023                   IX0    X2-X3                                                   GEN      3927
                               21073              AX0    60-1                                                    GEN      3928
          2475  11403                             BX4    X0*X3                                                   GEN      3929
                     15620                        BX6    -X0*X2                                                  GEN      3930
                          36646                   IX6    X4+X6                                                   GEN      3931
                               54620              SA6    A2          RESET TEM.MAX                               GEN      3932
          2476  7160320000                        SX6    C.TEM                                                   GEN      3933
                          54630                   SA6    A3          RESET TG.TEM                                GEN      3934
                                                                                                                 GEN      3935
                                        **        CLEAR ALL INTERMEDIATE REGISTERS.                              GEN      3936
                                        *         ASSOCIATES FOR INTERMEDIATES MUST BE CLEARED BECAUSE THEY      FCC1208    48
                                        *         RELATE TO THE SEQUENCE WITHIN WHICH THEY OCCUR, AND THEY       FCC1208    49
                                        *         THEREFORE POINT NOWHERE NOW THAT THE PRESENT PARSED FILE HAS   FCC1208    50
                                        *         BEEN ERASED.                                                   FCC1208    51
                                                                                                                 GEN      3937
                               13666              BX6    0                                                       FCC1208    52
          2477  6170000007                        SB7    R.X7-R.X0                                               GEN      3938
          2500  5127000000 X             CAI40    SA2    REGX+B7                                                 FCC1208    53
                          5117000000 X            SA1    =XREGA+B7                                               FCCA456     6
          2501  0770002505 +                      MI     B7,CAIY     IF ALL REGISTERS EXAMINED                   FCC1208    54
                          20262                   SBIT   X2,INTR                                                 FCC1208    55
                               20162              SBIT   X1,INTR                                                 FCCA456     7
          2502  67771                             =B7    B7-1                                                    FCC1208    56
                     0322002503 +                 PL     X2,CAI41    IF NOT INTERMEDIATE                         FCCA456     8
                               54620              SA6    A2          CLEAR ASSOCIATE                             FCC1208    58
          2503  0321002500 +             CAI41    PL     X1,CAI40    IF NOT INTERMEDIATE                         FCCA456     9
                          54610                   SA6    A1          CLEAR A REG ENTRY                           FCCA456    10
          2504  0400002500 +                      EQ     CAI40                                                   FCC1208    59
                                                                                                                 GEN      3946
                                                                                                                 GEN      3947
          2505                           CAIY     BSS                EXIT..                                      FCC1208    60
          2505  0400402505 +             CAI      EQ     "BLOWUP"    ENTRY...                                    GEN      3948
          2506  76600                             SHRINK TT=USE,0                                                GEN      3949
          2507  5110000000 X                      SA1    ERR=F                                                   FEAT126C  169
                          0311002457 +            NZ     X1,CAIX     IF FATAL ERRORS IN PARSED FILE              FCC1208    61
                                                                                                                 GEN      3956
                                        **        SET-UP USAGE TABLE -- THEN SORT FROM HIGHEST TO LOWEST USAGE   GEN      3957
                                                                                                                 GEN      3958
          2510  5110000000 X                      SA1    BINOUT                                                  FCC1208    62
                          5120000000 X            SA2    TT=PAR                                                  GEN      3960
          2511  0321002457 +                      PL     X1,CAIX     IF BINARY SUPPRESSED                        GEN      3961
                          13666                   BX6    0                                                       GEN      3962
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    92
        /ARI  A R I T H                                               CAI 
  
          2512  5110000000 X                      SA1    TT.PAR                                                  GEN      3963
                          0302002457 +            ZR     X2,CAIX     IF NULL PARSED FILE - EXIT..                GEN      3964
          2513  5160000000 X                      SA6    ARGNUM      CLEAR ARGUMENT COUNT (FOR O=ARG)            GEN      3965
                          0100002545 +            RJ     DUC         DEFINED USE COUNT FOR *PASS* 1 FILE         GEN      3966
          2514  13666                             BX6    0                                                       GEN      3967
                     5110000000 X                 ADDWD  TT.PAR      END INDICATOR.                              GEN      3968
          2516  5140000000 X                      SA4    TT.PAR                                                  GEN      3969
                                         TEST     IFNE   TEST                                                    GEN      3970
                                                                                                                 GEN      3971
                                        **        DUMP NUMBER OF TERMS FOUND (ONLY IF IN TEST MODE)              GEN      3972
                                                                                                                 GEN      3973
                                                  SA2    CO.SNAP                                                 GEN      3974
                                                  LX2    1RA                                                     GEN      3975
                                                  PL     X2,CAI2SN   IF *ARITH* SNAP NOT REQUESTED               GEN      3976
                                                  DUMPT  TT.USE      DUMP USE TABLE                              GEN      3977
                                                  DUMPT  TT.SCR                                                  GEN      3978
                                                  RJ     =XSN.PAR                                                GEN      3979
                                         CAI2SN   BSS    0                                                       GEN      3980
                                         TEST     ENDIF                                                          GEN      3981
                                                                                                                 GEN      3982
                                        **        PROCESS EXPANSION OF PARSED FILE FOR CODE GENERATION.          GEN      3983
                                                                                                                 GEN      3984
                          63440                   SB4    X4          PRESET *B4* TO START OF PARSED FILE         GEN      3985
          2517  5110000000 X                      SA1    ALC.CAI                                                 GEN      3986
                          10711                   BX7    X1          LOCK (B4) _ PARSED FILE                     GEN      3987
          2520  5170000000 X                      SA7    ALC.REG                                                 GEN      3988
                          0100002642 +            RJ     EIS         EXPAND INSTRUCTION SKELETONS                GEN      3989
          2521  5110000000 X                      SA1    ALC.00      UNLOCK (B4)                                 GEN      3990
                          10711                   BX7    X1                                                      GEN      3991
          2522  5170000000 X                      SA7    ALC.REG                                                 GEN      3992
                          0400002457 +            EQ     CAIX        EXIT..                                      GEN      3993
                                                                                                                 GEN      3994
          2523  00000000000000000000     RESFLG   DATA   0           SKELETON ADDRESS WHEN PROCESSING MODE       GEN      3995
                                                                     CONVERSION IN EIS.                          GEN      3996
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    93
        /ARI  A R I T H                                               FVD 
  
                                        **        FVD -  FLUSH VARIABLE DIMENSION CODE.                          GEN      3998
                                        *                                                                        GEN      3999
                                        *         COMPILES CODE TO PRE-COMPUTE VARIABLE DIMENSION ADDRESS        GEN      4000
                                        *         FUNCTIONS, WHEN NECESSARY.  WILL NOT COMPILE ANYTHING IF NO    GEN      4001
                                        *         VARIABLE DIMENSIONS OCCURRED IN THE SUBPROGRAM.                GEN      4002
                                        *                                                                        GEN      4003
                                        *         ENTRY  T.VDIM TABLE CONTAINS *TURPLES* TO BE PROCESSED.        GEN      4004
                                        *                TT.PAR IS A NULL TABLE.                                 GEN      4005
                                        *                                                                        GEN      4006
                                        *         EXIT.                                                          F66FCC    810
                                        *                CODE DEFINED BY *TURPLES* IN *T.VDIM* SENT TO           GEN      4008
                                        *                INTERMEDIATE FILE.                                      GEN      4009
                                        *                                                                        GEN      4010
                                        *         USES   ALL                                                     GEN      4011
                                        *         CALLS  ALLOC, CAI                                              GEN      4012
                                                                                                                 GEN      4013
                                                                                                                 GEN      4014
          2524  0400402524 +             FVD      SUBR               ENTRY/EXIT...                               GEN      4015
          2525  5110000000 X                      SA1    MOD                                                     GEN      4016
                          5130000000 X            SA3    T=VDIM                                                  GEN      4017
          2526  7160003000                        =X6    M.PFNC+M.PSUB                                           GEN      4018
                          11061                   BX0    X6*X1                                                   GEN      4019
                               63630              SB6    X3                                                      GEN      4020
          2527  0300002524 +                      ZR     X0,EXIT.    IF NOT PROCEDURE SUBPROGRAM                 GEN      4021
                          0303002537 +            ZR     X3,FVD9     IF NO VARIABLE DIMENSION CODE               GEN      4022
                                                                                                                 GEN      4023
                                        **        FLUSH *T.VDIM* TABLE - OUTPUT INTERMEDIATE FILE CODE.          GEN      4024
                                                                                                                 GEN      4025
          2530  5110000000 X                      ALLOC  TT.PAR,X3   ALLOCIATE SPACE FOR *TURPLES*               GEN      4026
          2532  77376                             SX3    B7-B6       DESTINATION ADDRESS                         GEN      4027
                     5110000000 X                 SA1    T=VDIM      WC                                          GEN      4029
          2533  5120000000 X                      SA2    T.VDIM      SOURCE ADDRESS                              GEN      4030
                          0100000000 X            MVE    X1,X2,X3    MOVE *TURPLES* TO PARSER TABLE              GEN      4032
          2534  13666                             SHRINK T=VDIM      COLLAPSE T.VDIM                             FCC0813   170
          2535  0100002505 +                      RJ     CAI         FLUSH TABLE                                 GEN      4033
          2536  13000                             DRITE  DEACTIVATE                                              GEN      4034
                                                                                                                 GEN      4035
                                        **        COMPILE DUMMY *RJT* WORD IF NECESSARY.                         GEN      4036
                                                                                                                 GEN      4037
                                                                                                                 GEN      4038
          2537  5110000000 X             FVD9     SA1    RJTDUM                                                  GEN      4039
                          0301002524 +            ZR     X1,EXIT.                                                GEN      4040
          2540  73710                             CBSS   X1                                                      GEN      4041
          2542  76600                             =X6    0           ROUTINE NAME                                GEN      4042
                     76300                        =X3    0           TRACEBACK LINE NUMBER                       GEN      4043
                          77101                   CRJ    MUST                                                    GEN      4044
          2544  0400002524 +                      EQ     EXIT.                                                   GEN      4045
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    94
        /ARI  A R I T H                                               DUC 
  
                                        **        DUC -  DEFINE *USE* COUNT ON OPERANDS IN *PASS* 1 FILE FOR     GEN      4047
                                        *                *PASS* 2 PROCESSING OF REGISTER ASSIGNMENT.             GEN      4048
                                        *                                                                        GEN      4049
                                        *         ENTRY  PARSED FILE BUILT AND FWA OF TABLE IT IS IN CONTAINED   GEN      4050
                                        *                IN REGISTER (X1).                                       GEN      4051
                                        *                                                                        GEN      4052
                                        *                                                                        GEN      4053
                                        *         EXIT   USE COUNT SET IN --                                     GEN      4054
                                        *                IF *OPERAND* WAS A *TAG* -                              GEN      4055
                                        *                *TAG* BITS IN *TS.SYM* REPLACED WITH *USE* COUNT.       GEN      4056
                                        *                                                                        GEN      4057
                                        *                IF *OPERAND* WAS A *CONSTANT* OR *INTERMEDIATE*         GEN      4058
                                        *                *USE* COUNT IN *BIAS* POSITION OF *OPERAND*             GEN      4059
                                        *                                                                        GEN      4060
                                        *                (SCSA) = (USEMASK)                                      GEN      4061
                                        *                                                                        GEN      4062
                                        *         USES   ALL REGISTERS.                                          GEN      4063
                                        *                (SCSA, TT.SCR, TT.SYM, TT.USE)                          GEN      4064
                                        *         CALLS  ADDWD, SCS                                              GEN      4065
                                        *                                                                        GEN      4066
                                        *         NOTE - NEITHER ADDWD, NOR SCS MAY DESTROY (X4,X5  B4,B5,B6)    GEN      4067
                                                                                                                 GEN      4068
                                         USEMASK  SYMASK (2TAG,2BIAS,2FPNO,2CLAS)                                GEN      4069
                                                                                                                 GEN      4070
          2545  0400402545 +             DUC      SUBR               ENTRY/EXIT..                                GEN      4071
          2546  5130003445 +                      SA3    USEMASK                                                 GEN      4072
                          5021000000 X            SA2    A1+N.TABLE  LOAD LENGTH OF TABLE BEING PROCESSED        GEN      4073
          2547  10733                             BX7    X3                                                      GEN      4074
                     36021                        IX0    X2+X1                                                   GEN      4075
                          5170000000 X            SA7    SCSA        SET MASK FOR *SCS* SCAN                     GEN      4076
          2550  64410                             SB4    A1          SAVE TABLE ADDRESS                          GEN      4077
                     7242777774                   SX4    X2-L.TURP   LENGTH -L.TURP                              GEN      4078
                               63510              SB5    X1          FWA OF TABLE                                GEN      4079
          2551  10122                             BX1    X2                                                      GEN      4080
                     53345                        SA3    X4+B5                                                   GEN      4081
                          0400002554 +            EQ     DUC10       CONTINUE                                    GEN      4082
                                                                                                                 GEN      4083
                                        **        REGISTER ALLOCATION                                            GEN      4084
                                        *         (X2) = WORD FROM TABLE                                         GEN      4085
                                        *         (X4) = DECREMENT WORD                                          GEN      4086
                                        *                                                                        GEN      4087
                                        *         (B4) _ TABLE ORIGIN WORD OF TABLE BEING SCANNED                GEN      4088
                                        *         (B5) = FWA OF TABLE                                            GEN      4089
                                        *         (B6) = REMAINING LENGTH TO SCAN                                GEN      4090
                                                                                                                 GEN      4091
                                                                                                                 GEN      4092
          2552                           DUC.     BSS    0           NULL OPERATOR.                              GEN      4093
          2552  56140                    DUC2     SA1    B4                                                      GEN      4094
                     63510                        SB5    X1          RESET FWA OF TABLE SCANNING                 GEN      4095
          2553  53345                    DUC6     SA3    X4+B5       NEXT ENTRY                                  GEN      4096
                     0334002545 +                 MI     X4,EXIT.    IF FINISHED                                 GEN      4097
                                                                                                                 GEN      4098
                                        *         DETERMINE TYPE OF OPERAND                                      GEN      4099
                                        *         (X3) = OPERATOR WORD                                           GEN      4100
                                                                                                                 GEN      4101
          2554  5213000000 X             DUC10    SA1    X3+CHARMAP                                              GEN      4102
                          7244777774              =X4    X4-L.TURP                                               GEN      4103
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    95
        /ARI  A R I T H                                               DUC 
  
          2555  5023000002                        =A2    A3+OR.2OP   PRELOAD 2ND OPERAND                         GEN      4104
                          63710                   SB7    X1                                                      GEN      4105
          2556  6160002552 +                      SB6    DUC2                                                    GEN      4106
                          10122                   BX1    X2                                                      GEN      4107
          2557  0277000000                        JP     B7          JUMP TO PROCESS OPERANDS                    GEN      4108
                                                                                                                 GEN      4109
                                        *         1ST OPERAND ONLY.                                              GEN      4110
                                                                                                                 GEN      4111
          2560  55221                    DUC.1ST  =A2    A2-OR.2OP+OR.1OP                                        GEN      4112
                     10122                        BX1    X2                                                      GEN      4113
                          0400002565 +            EQ     DUC15                                                   GEN      4114
                                                                                                                 GEN      4115
                                        *         BOTH OPERAND.                                                  GEN      4116
                                                                                                                 GEN      4117
          2561  6160002563 +             DUC.BTH  SB6    DUC12                                                   GEN      4118
                          7244000004              =X4    X4+L.TURP+1                                             GEN      4119
          2562  0400002565 +                      EQ     DUC15                                                   GEN      4120
                                                                                                                 GEN      4121
                                        *         PROCESS 1ST OPERAND WHEN *BOTH* REQUESTED.                     GEN      4122
                                                                                                                 GEN      4123
          2563  56140                    DUC12    SA1    B4                                                      GEN      4124
                     6160002552 +                 SB6    DUC2                                                    GEN      4125
                               63510              SB5    X1                                                      GEN      4126
          2564  53245                             SA2    X4+B5                                                   GEN      4127
                     7244777773                   =X4    X4-L.TURP-1                                             GEN      4128
                               10122              BX1    X2                                                      GEN      4129
                                                                                                                 GEN      4130
                                        *         SET OPERANDS USE COUNT.                                        GEN      4131
                                        *         (X1) = (X2) = OPERANDS                                         GEN      4132
                                        *         (B6) = EXIT ADDRESS.                                           GEN      4133
                                                                                                                 GEN      4134
          2565                           DUC.2ND  BSS    0                                                       GEN      4135
          2565  10322                    DUC15    BX3    X2                                                      GEN      4136
                     21367                        AX3    P.TGB                                                   GEN      4137
                          6273777765              SB7    X3-C.STN/1S13                                           GEN      4138
          2566  0570002567 +                      NZ     B7,DUC152   IF NOT STATEMENT NUMBER                     GEN      4139
                          0266000000              JP     B6                                                      GEN      4140
                                                                                                                 GEN      4141
          2567  20160                    DUC152   IFBIT  X1,SHORT,DUC30    IF SHORT CONSTANT                     GEN      4142
                               20102              IFBIT  X1,INTR/SHORT,DUC40   IF INTERMEDIATE                   GEN      4143
                          6273777767              SB7    X3-C.SYM/1S13                                           GEN      4144
          2571  0470002576 +                      ZR     B7,DUC16           IF SYMBOL                            GEN      4145
                          6273777761              SB7    X3-C.CON/1S13                                           GEN      4146
          2572  0470002614 +                      ZR     B7,DUC37           IF CONSTANT                          GEN      4147
                          6273777764              SB7    X3-C.PRO/1S13                                           GEN      4148
          2573  0470002614 +                      ZR     B7,DUC37           IF PROGRAM TAG                       GEN      4149
                          6273777763              SB7    X3-C.VDIM/1S13                                          GEN      4150
          2574  0470002614 +                      ZR     B7,DUC37           IF VAR-DIM                           GEN      4151
                          6273777762              SB7    X3-C.TEM/1S13                                           GEN      4152
          2575  0470002614 +                      ZR     B7,DUC37           IF TEMP TAG                          GEN      4153
                          0266000000              JP     B6                IF TAG NOT DEFINED                    GEN      4154
                                                                                                                 GEN      4155
                                        *         CURRENT ENTITY IS DEFINED TO BE IN THE SYMBOL TABLE.           GEN      4156
                                        *         CHECK IF *1ST* USE                                             GEN      4157
                                                                                                                 GEN      4158
          2576  20167                    DUC16    IFBIT  X1,2ARY/INTR,DUC37   IF ARRAY                           GEN      4159
                               20104              IFBIT  X1,ADDR/2ARY,DUC37  IF ADDRESS SET                      FCC1134   127
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    96
        /ARI  A R I T H                                               DUC 
  
                          10122                   BX1    X2                                                      GEN      4160
          2600  5150000000 X                      SA5    TS.SYM                                                  GEN      4161
                          21152                   AX1    P.2TAG                                                  GEN      4162
                               63250              SB2    X5                                                      GEN      4163
          2601  7271577777                        SX7    X1-C.SYM                                                GEN      4164
                          53372                   SA3    X7+B2       LOAD SYMBOL TABLE ENTRY                     GEN      4165
                               76510              =X5    1                                                       GEN      4166
          2602  10033                             BX0    X3                                                      GEN      4167
                     20063                        LX0    59-8        *** TEMPORARY ***                           GEN      4168
                          0320002606 +            PL     X0,DUC25    IF 1ST USE                                  GEN      4169
          2603  7110000400                        SX1    RLOCK                                                   FCC2472     6
                          13331                   BX3    X3-X1       TURN OFF NOT LAST USE BIT                   FCC2472     7
                               36635              IX6    X3+X5                                                   GEN      4170
          2604  12661                             BX6    X6+X1       TURN ON NOT LAST USE BIT                    FCC2472     8
                     54630                        SA6    A3          UPDATE USE COUNT                            GEN      4171
                          54620                   SA6    A2          REPLACE PARSED FILE ENTRY                   GEN      4172
          2605  0266000000                        JP     B6          EXIT                                        GEN      4173
                                                                                                                 GEN      4174
                                        **        PROCESS *SYMBOL TABLE TAG*                                     GEN      4175
                                        *         FIRST USE OF TAG, REPLACE SYMBOL TABLE ENTRY WITH THE PARSED   GEN      4176
                                        *         FILE ENTRY REPLACING *MODE* BITS WITH *0* AND SETTING THE      GEN      4177
                                        *         LOCK BIT TO INDICATE NOT THE *1ST* USE.  TAKE THE *TS.SYM*     GEN      4178
                                        *         ENTRY AND PUT IT IN *TT.USE* FOR *CAI* TO USE TO PUT BACK INTO GEN      4179
                                        *         THE SYMBOL TABLE.                                              GEN      4180
                                                                                                                 GEN      4181
          2606  43763                    DUC25    MX7    -L.RUSE                                                 GEN      4182
                     7110000400                   =X1    RLOCK                                                   GEN      4183
                               11772              BX7    X7*X2                                                   GEN      4184
          2607  22603                             LX6    X3                                                      GEN      4185
                     12771                        BX7    X7+X1       INDICATE NOT 1ST USE                        GEN      4186
                          36775                   IX7    X7+X5                                                   GEN      4187
                               54730              SA7    A3                                                      GEN      4188
          2610  54720                             SA7    A2          REPLACE PARSED FILE ENTRY                   GEN      4189
                     5110000000 X                 ADDWD  TT.USE      ADD *SYMBOL* TABLE ENTRY TO USE TABLE       GEN      4190
          2612  0266000000                        JP     B6                                                      GEN      4191
                                                                                                                 GEN      4192
                                        *         HERE IF *OPERAND IS SHORT CONSTANT.                            GEN      4193
                                                                                                                 GEN      4194
          2613  43071                    DUC30    MX0    -L.MODE                                                 GEN      4195
                     15520                        BX5    -X0*X2                                                  GEN      4196
                          20522                   LX5    P.2FPNO                                                 GEN      4197
                               12225              BX2    X2+X5                                                   GEN      4198
                                                                                                                 GEN      4199
                                        *         HERE IF *OPERAND IS CONSTANT, PROGRAM, VAR-DIM, OR ARRAY TAG.  GEN      4200
                                        *         HERE ALSO FOR SET TO SYMBOL TABLE TAG.                         FCC1134   128
                                                                                                                 GEN      4201
                                                                                                                 GEN      4202
          2614  56340                    DUC37    SA3    B4                                                      GEN      4203
                     63530                        SB5    X3                                                      GEN      4204
                          65525                   SB5    A2-B5                                                   GEN      4205
                               22602              LX6    X2                                                      GEN      4206
          2615  76510                             =X5    1                                                       GEN      4207
                     5110000000 X                 SCAN   TT.SCR,SCS                                              GEN      4208
          2617  0770002621 +                      MI     B7,DUC38    IF NOT ALREADY IN TABLE                     GEN      4209
                          36625                   IX6    X2+X5       ADVANCE USE COUNT                           GEN      4210
                               54620              SA6    A2                                                      GEN      4211
          2620  5110000000 X                      SA1    TT.SCR                                                  GEN      4212
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    97
        /ARI  A R I T H                                               DUC 
  
                          0400002623 +            EQ     DUC39                                                   GEN      4213
                                                                                                                 GEN      4214
                                        *         *OPERAND* NOT IN TABLE (1ST) USE) SET USE COUNT =1, AND ADD    GEN      4215
                                        *         TO TABLE.                                                      GEN      4216
                                                                                                                 GEN      4217
          2621  11636                    DUC38    BX6    X3*X6       SET USE COUNT = 1                           GEN      4218
                     36665                        IX6    X6+X5                                                   GEN      4219
                          5110000000 X            ADDWD  TT.SCR                                                  GEN      4220
                                                                                                                 GEN      4221
                                        *         HERE TO REPLACE PARSED FILE ENTRY AND RESET (SDSA)             GEN      4222
                                        *         (B5) = RELATIVE PARSED FILE ADDRESS.                           GEN      4223
                                        *         (A6) = TT.SCR ADDRESS OF *OPERAND*.                            GEN      4224
                                        *         (X1) = FWA TT.SCR.                                             GEN      4225
                                        *         (X6) = PARSED FILE ENTRY WITH USE COUNT ADDED.                 GEN      4226
                                                                                                                 GEN      4227
          2623  56340                    DUC39    SA3    B4                                                      GEN      4228
                     63710                        SB7    X1                                                      GEN      4229
                          43022                   MX0    L.2TAG                                                  GEN      4230
                               63535              SB5    B5+X3                                                   GEN      4231
          2624  75167                             SX1    A6-B7                                                   GEN      4232
                     15660                        BX6    -X0*X6                                                  GEN      4233
                          7221100000              SX2    X1+C.SCR                                                GEN      4234
          2625  10733                             BX7    X3                                                      GEN      4235
                     20252                        LX2    P.2TAG                                                  GEN      4236
                          36662                   IX6    X6+X2       REPLACE *TAG* WITH TT.SCR ORDINAL           GEN      4237
                               56650              SA6    B5          REPLCE PARSED FILE ENTRY                    GEN      4238
          2626  0266000000                        JP     B6          NEXT                                        GEN      4239
                                                                                                                 GEN      4240
                                        *         *OPERAND* IS INTERMEDIATE.                                     GEN      4241
                                                                                                                 GEN      4242
          2627  10322                    DUC40    BX3    X2                                                      GEN      4243
                     43771                        MX7    -L.MODE                                                 GEN      4244
                          76010                   =X0    1                                                       GEN      4245
                               21352              AX3    P.JPAD                                                  GEN      4246
          2630  15627                             BX6    -X7*X2                                                  GEN      4247
                     20022                        LX0    P.MODC                                                  GEN      4248
                          53535                   SA5    X3+B5       OPERATOR WORD FOR INTERMEDIATE              GEN      4249
                               20633              LX6    P.DMOD                                                  GEN      4250
          2631  36750                             IX7    X5+X0       ADVANCE USE COUNT                           GEN      4251
                     12626                        BX6    X2+X6                                                   GEN      4252
                          43063                   MX0    -L.RUSE                                                 GEN      4253
                               54750              SA7    A5          REPLACE OPERATOR WORD                       GEN      4254
          2632  11606                             BX6    X0*X6                                                   GEN      4255
                     21722                        AX7    P.MODC                                                  GEN      4256
                          15770                   BX7    -X0*X7                                                  GEN      4257
                               36667              IX6    X6+X7       ADD USE COUNT TO OPERAND                    GEN      4258
          2633  54620                             SA6    A2          REPLACE ENTRY IN PARSED FILE                GEN      4259
                     7130000004                   =X3    M.LONG                                                  GEN      4260
                               20167              IFBIT  X1,-2ARY/INTR,DUC42                                     GEN      4261
                          11732                   BX7    X3*X2                                                   GEN      4262
                               21522              AX5    P.MODC                                                  GEN      4263
          2635  5015000002                        =A1    A5+OR.2OP                                               GEN      4264
                          21702                   AX7    P.LONG                                                  GEN      4265
                               10311              BX3    X1                                                      GEN      4266
          2636  20162                             IFBIT  X1,-INTR,DUC42                                          GEN      4267
                               15550              BX5    -X0*X5                                                  GEN      4268
          2637  21352                             AX3    P.JPAD                                                  GEN      4269
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    98
        /ARI  A R I T H                                               DUC 
  
                     36057                        IX0    X5+X7                                                   GEN      4270
                          53135                   SA1    X3+B5                                                   GEN      4271
                               20022              LX0    P.MODC                                                  GEN      4272
          2640  36610                             IX6    X1+X0                                                   GEN      4273
                     54610                        SA6    A1                                                      GEN      4274
          2641  0266000000               DUC42    JP     B6                                                      GEN      4275
                                                                                                                 GEN      4276
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE    99
        /ARI  A R I T H                                               EIS 
  
                                        **        EIS -  EXPAND INSTRUCTION SKELETON.                            GEN      4278
                                        *                                                                        GEN      4279
                                        *         HEART OF PASS TWO PROCESSING.  *EIS* USES THE PARSED FILE,     GEN      4280
                                        *         BUILT DURING PASS ONE AS A PSEUDO- MICRO PROGRAMMING FILE TO   GEN      4281
                                        *         GENERATE OBJECT CODE FOR THE CURRENT SEQUENCE.  EACH TURPLE    GEN      4282
                                        *         IS EXPANDED USING THE OR.OPR WORD AS THE ADDRESS FOR THE       GEN      4283
                                        *         SKELETON.  AS EACH PORTION OF THE INSTRUCTION IS PROCESSED     GEN      4284
                                        *         *EIS* KEEPS TRACK OF REGISTERS USED, TYPE OF USAGE, OP-CODES   GEN      4285
                                        *         AND SEQUENCE BREAKS WITHIN THE PASS ONE FILE.                  GEN      4286
                                        *                                                                        GEN      4287
                                        *                                                                        GEN      4288
                                        *         SPECIAL CASING IS DONE WHEN THE OP-CODE FOR A GIVEN EXPANSION  GEN      4289
                                        *         DEFINES EITHER A LOAD OR STORE OPERATION.  AFTER THE J PORTION GEN      4290
                                        *         OF A LOAD INSTRUCTION IS SET INTO *INS.REG*, EIS LOOKS AT THE  GEN      4291
                                        *         TYPE OF REGISTERS USED TO DETERMINE WHAT TYPE OF LOAD          GEN      4292
                                        *         INSTRUCTION IS TO BE COMPILED.  IN DOING THIS, *EIS* MIGHT     GEN      4293
                                        *         HAVE TO INSERT SPECIAL SEQUENCES OF SKELETONS TO GET THE       GEN      4294
                                        *         REGISTERS SET-UP CORRECTLY FOR ADDRESS GENERATION.             GEN      4295
                                        *                                                                        GEN      4296
                                        *         CURRENTLY THERE ARE FOUR MAJOR ROUTES *EIS* MAY TAKE           GEN      4297
                                        *         1.  NON-STANDARD PROCESSORS                                    GEN      4298
                                        *             EXTERNAL PROCESSOR MUST BE CALLED TO EXPAND CURRENT        GEN      4299
                                        *             SKELETON.                                                  GEN      4300
                                        *         2.  A RESET OF SKELETON                                        GEN      4301
                                        *             CURRENT SKELETON USES ANOTHER SKELETON TO COMPLETE         GEN      4302
                                        *             EXPANSION OF CURRENT TURPLE.                               GEN      4303
                                        *         3.  A CALL DURING SKELETON EXPANSION                           GEN      4304
                                        *             SUB-PROCESS INSIDE SKELETON REQUIRES A SPECIAL PROCESSOR   GEN      4305
                                        *             TO HANDLE SUB-FUNCTION OF TURPLE.                          GEN      4306
                                        *         4.  A USE OF ANOTHER SKELETON FOR A SUB-PROCESS OF CURRENT     GEN      4307
                                        *             TURPLE.                                                    GEN      4308
                                        *             CURRENT TURPLE IS PARTIAL DEFINED BY ANOTHER SKELETON.     GEN      4309
                                        *                                                                        GEN      4310
                                        *         ENTRY  (B4) _ 1ST PARSED TURPLE.                               GEN      4311
                                        *                                                                        GEN      4312
                                        *         EXIT   CODE COMPILED FOR PARSED FILE.                          GEN      4313
                                        *                                                                        GEN      4314
                                        *         --------------- L O C K  -  R E G I S T E R S --------------   GEN      4315
                                        *                                                                        GEN      4316
                                        *                       B4 _ POINTS TO CURRENT TURPLE.                   GEN      4317
                                        *                       A4,X4 = CURRENT INSTRUCTION SKELETON.            GEN      4318
                                        *                                                                        GEN      4319
                                        *         NO ROUTINE INTERNAL TO *EIS* MAY DESTROY ABOVE REGISTERS.      GEN      4320
                                        *         ------------------------------------------------------------   GEN      4321
                                                                                                                 GEN      4322
                                                                                                                 GEN      4323
          2642  0400402642 +             EIS      SUBR   0                                                       GEN      4324
          2643  7160000005                        SX6    R.X5-R.X0                                               GEN      4325
                          43773                   MX7    -1                                                      GEN      4326
          2644  5160000000 X                      SA6    RGX         INITIALIZE REGISTER USAGE                   GEN      4327
                          73661                   =X6    X6+1                                                    GEN      4328
          2645  5170000000 X                      SA7    REGLK                                                   GEN      4329
                          5170000000 X            SA7    =XSTRGLK                                                GEN      4330
          2646  5160000000 X                      SA6    RGC         INITIALIZE LOAD REGISTERS                   GEN      4331
                                                                                                                 GEN      4332
                                        *         RESET REGISTER SKELETON WORDS                                  GEN      4333
                                                                                                                 GEN      4334
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   100
        /ARI  A R I T H                                               EIS 
  
                                         RESET    ECHO   ,CLASS=(INTR,TEMP,LOAD,LODX,STOR)                       GEN      4335
                                                  =A1    =XRG=CLASS+2                                            GEN      4336
                                                  BX6    X1                                                      GEN      4337
                                                  =A6    A1-1                                                    GEN      4338
                                         RESET    ENDD                                                           GEN      4339
                                                                                                                 GEN      4340
          2654  56540                    EIS.PNX  =A5    B4+OR.OPR                                               GEN      4341
                     43600                        MX6    0                                                       GEN      4342
                          10055                   BX0    X5                                                      GEN      4343
          2655  5160000000 X                      SA6    NOLDS       CLEAR NUMBER OF LOADS                       GEN      4344
                          0305002642 +            ZR     X5,EISX     IF END OF PARSED FILE. (*EOS* FOUND.)       GEN      4345
          2656  73661                             =X6    X6+1                                                    GEN      4346
                     5160000000 X                 SA6    UUC                                                     GEN      4347
                                                                                                                 GEN      4348
                               21552              AX5    P.JPAD      SHIFT TO INSTRUCTION SKELETON ADDRESS       GEN      4349
          2657  20026                             IFBIT  X0,-NONSTD,EIS5                                         GEN      4350
  
  
  
  
                                        **        IF NON-STANDARD OPERATOR (LIKE SUBSCRIPT,OR FUNCTION)          GEN      4352
                                        *         *EIS* JUMPS TO THE PROCESSOR WITH                              GEN      4353
                                        *                                                                        GEN      4354
                                        *         (X0) = CURRENT OPERATOR SHIFTED BY P.NONSTD.                   GEN      4355
                                        *         (B4) _ START OF CURRENT TRIPLE.                                GEN      4356
                                        *         (B7) = 0                                                       GEN      4357
                                                                                                                 GEN      4358
                               66700              =B7    0                                                       GEN      4359
                                                                                                                 GEN      4360
          2660  63250                             SB2    X5          PROCESSOR ADDRESS                           GEN      4361
                     0222000000                   JP     B2          JUMP TO PROCESSOR.                          GEN      4362
                                                                                                                 GEN      4363
                                        **        ENTRY  (X5) = CURRENT PARSED FILE OPERATOR WORD.               GEN      4364
                                                                                                                 GEN      4365
          2661  63250                    EIS5     SB2    X5          INSTRUCTION SKELETON ADDRESS                GEN      4366
                     57421                        =A4    B2-1        DUMMY LOAD TO ACTIVATE *A4*                 GEN      4367
          2662  7160777774               EIS.LNX  SX6    -3                                                      GEN      4368
                          13555                   BX5    0           CLEAR REGISTER ASSEMBLE - 000.              GEN      4369
          2663  5160003327 +                      SA6    IJK                                                     GEN      4370
                          54441                   =A4    A4+1                                                    GEN      4371
  
  
  
  
                                        **        CHECK IF SKELETON REQUIRES SPECIAL HANDLING                    GEN      4373
                                        *                                                                        GEN      4374
                                        *         USESKL - TEMPORARY USE OF DIFFERENT SKELETON X RETURNING TO    GEN      4375
                                        *                  CURRENT SKELETON.                                     GEN      4376
                                        *         RESET  - RESET SKELETON TO X.                                  GEN      4377
                                        *         CALL   - EXTERNAL PROCESSOR *RJ* TO X.                         GEN      4378
                                        *         OTHER  - NORMAL PROCESSING.                                    GEN      4379
                                        *                                                                        GEN      4380
                                        *         ENTRY  (X4) = CURRENT SKELETON WORD.                           GEN      4381
                                                                                                                 GEN      4382
                               10044              BX0    X4                                                      GEN      4383
          2664  21066                             AX0    P.ITYPE                                                 GEN      4384
                     43167                        MX1    -L.ITYPE+1                                              GEN      4385
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   101
        /ARI  A R I T H                                               SPECIAL 
  
                          15201                   BX2    -X1*X0                                                  GEN      4386
          2665  5212002667 +                      SA1    X2+EIS.TYP                                              GEN      4387
                          10722                   BX7    X2                                                      GEN      4388
                               63710              SB7    X1                                                      GEN      4389
          2666  5170003330 +                      SA7    OPTYP                                                   GEN      4390
                          0277000000              JP     B7          JUMP TO PROCESS TYPE                        GEN      4391
                                                                                                                 GEN      4392
          2667                           EIS.TYP  BSS    0                                                       GEN      4393
          2667  00000000000000002714 +            CON    EIS.COND    CONDITIONAL                                 GEN      4394
          2670  00000000000000002714 +            CON    EIS.LN1     ARITHMETIC TYPE INSTRUCTION                 GEN      4395
          2671  00000000000000002714 +            CON    EIS.LN1     DEFINED INCREMENT INSTRUCTION               GEN      4396
          2672  00000000000000002714 +            CON    EIS.BRN     BRANCH                                      GEN      4397
          2673  00000000000000002714 +            CON    EIS.SHF     SHIFT/XMIT                                  GEN      4398
          2674  00000000000000002704 +            CON    EIS.CALL    CALL                                        GEN      4399
          2675  00000000000000002707 +            CON    EIS.USEL    USE-SKEL                                    GEN      4400
          2676  00000000000000002700 +            CON    EIS.RSET    RESET                                       GEN      4401
          2677  00000000000000002711 +            CON    EIS.LOD     LOAD/STORE INSTRUCTION                      GEN      4402
                                                                                                                 GEN      4403
                                        **        IF PROCESSING *RESET* SKELETON                                 GEN      4404
                                                                                                                 GEN      4405
          2700  63240                    EIS.RSET SB2    X4                                                      GEN      4406
                     0620002703 +                 PL     B2,EIS.RST5 IF HARD ADDRESS OF SKELETON                 GEN      4407
          2701  6122777774                        SB2    B2-L.TURP                                               GEN      4408
                          67442                   SB4    B4-B2                                                   GEN      4409
          2702  0400002654 +                      EQ     EIS.PNX     CONTINUE TO NEXT REQUESTED *TURPLE*         GEN      4410
          2703  56420                    EIS.RST5 SA4    B2                                                      GEN      4411
                     0400002714 +                 EQ     EIS.LN1     CONTINUE WITH NEXT SKELETON                 GEN      4412
                                                                                                                 GEN      4413
                                        **        IF PROCESSING *CALL* SKELETON                                  GEN      4414
                                                                                                                 GEN      4415
          2704  63240                    EIS.CALL SB2    X4          JUMP ADDRESS                                GEN      4416
                     21422                        AX4    P.MARG                                                  GEN      4417
                          73140                   SX1    X4                                                      GEN      4418
                                                                                                                 GEN      4419
                                        **        WHEN (P.MARG) IS POSITIVE, IT CONTAINS THE ARGUMENT TO THE     GEN      4420
                                        *         MACRO.                                                         GEN      4421
                                                                                                                 GEN      4422
          2705  0321002706 +                      PL     X1,EIS.CL5  IF ARGUMENT IS CONSTANT                     GEN      4423
                                                                                                                 GEN      4424
                                        **        WHEN (P.MARG) IS NEGATIVE, THE MACRO ARGUMENT IS IN THE PARSED GEN      4425
                                        *         TURPLE, AND (P.MARG) IS THE COMPLEMENT OF THE ORDINAL IN THE   GEN      4426
                                        *         TURPLE WHICH CONTAINS THE ARGUMENT.                            GEN      4427
                                                                                                                 GEN      4428
                          63740                   SB7    X4                                                      GEN      4429
                               57147              SA1    B4-B7       LOAD ARGUMENT FROM PARSED FILE              GEN      4430
          2706  0222000000               EIS.CL5  JP     B2          EXECUTE CALLED ROUTINE                      GEN      4431
                                                                                                                 GEN      4432
                                        **        IF PROCESSING *USESKL* SKELETON                                GEN      4433
                                                                                                                 GEN      4434
          2707  7034000001               EIS.USEL SX3    A4+1                                                    GEN      4435
                          53440                   SA4    X4                                                      GEN      4436
                               14633              BX6    -X3                                                     GEN      4437
          2710  5160002523 +                      SA6    RESFLG                                                  GEN      4438
                          0400002714 +            EQ     EIS.LN1     CONTINUE                                    GEN      4439
                                                                                                                 GEN      4440
                                        **        IF PROCESSING *LOAD* TYPE INSTRUCTION.                         GEN      4441
                                                                                                                 GEN      4442
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   102
        /ARI  A R I T H                                               SPECIAL 
  
          2711  43060                    EIS.LOD  MX0    -L.IQF                                                  GEN      4443
                     15640                        BX6    -X0*X4                                                  GEN      4444
                          0306002714 +            ZR     X6,EIS.LN1  IF NO HARD REGISTER SPECIFIED               GEN      4445
          2712  5160000000 X                      SA6    RREG        SET HARD REGISTER                           GEN      4446
                          5160003334 +            SA6    HREG        SET LOCK FLAG                               FCC0805    18
          2713  0400002714 +                      EQ     EIS.LN1                                                 GEN      4447
                                                                                                                 GEN      4448
                                        **        EIS.LN1 - START PROCESSING OF CURRENT SKELETON.                GEN      4449
                                        *                                                                        GEN      4450
                                        *         ENTRY  (A4),(X4) = CURRENT SKELETON WORD.                      GEN      4451
                                        *                (IJK) = -3.                                             GEN      4452
                                                                                                                 GEN      4453
          2714                           EIS.COND BSS    0                                                       GEN      4454
          2714                           EIS.BRN  BSS    0                                                       GEN      4455
          2714                           EIS.SHF  BSS    0                                                       GEN      4456
          2714                           EIS.NOOP BSS    0                                                       GEN      4457
          2714  43011                    EIS.LN1  MX0    L.IOPC                                                  GEN      4458
                     20066                        LX0    P.IOPC+L.IOPC                                           GEN      4459
                          11604                   BX6    X0*X4       EXTRACT OP-CODE FIELD                       GEN      4460
                               20460              LX4    -L.IQF                                                  GEN      4461
          2715  21655                             AX6    P.IOPC      TO LOW ORDER                                GEN      4462
                     5160003326 +                 SA6    OPCODE      CURRENT OP-CODE                             GEN      4463
                                                                                                                 GEN      4464
                                        **        RETURN HERE FOR NEXT PROCESSING OF NEXT PORTION OF INSTRUCTION GEN      4465
                                        *         CURRENTLY EXPANDING WITHIN SKELETON.                           GEN      4466
                                                                                                                 GEN      4467
          2716  5110003327 +             EIS.NX   SA1    IJK                                                     GEN      4468
                          43067                   MX0    -L.IOAD                                                 GEN      4469
          2717  6271777774                        SB7    X1-3                                                    GEN      4470
                          0717002751 +            GT     B7,B1,EIS.CMP     IF FINISHED.                          GEN      4471
  
  
  
  
                                        **        HERE IF NOT END OF CURRENT SKELETON.                           GEN      4473
                                        *         JUMP TO PROCESSOR FOR CURRENT PORTION OF INSTRUCTION.          GEN      4474
                                        *                                                                        GEN      4475
                                        *         ENTRY  (X0) = MASK OF -L.IOAD                                  GEN      4476
                                        *                (X4) = SKELETON SHIFTED BY N*L.IOAD                     GEN      4477
                                        *                                                                        GEN      4478
                                        *         EXIT   (X3) = (INUM) FIELD.                                    GEN      4479
                                        *                (X6) = 0                                                GEN      4480
                                                                                                                 GEN      4481
          2720  76610                             =X6    1                                                       GEN      4482
                     15140                        BX1    -X0*X4                                                  GEN      4483
                          5221002724 +            SA2    X1+AT.BASE                                              GEN      4484
          2721  43066                             MX0    -L.INUM                                                 GEN      4485
                     20467                        LX4    -L.IOAD                                                 GEN      4486
                          5160000000 X            SA6    UUC         SET UPDATE USE COUNT INCREMENT              GEN      4487
          2722  63220                             SB2    X2          ADDRESS OF PROCESSOR.                       GEN      4488
                     66700                        =B7    0                                                       GEN      4489
                          15340                   BX3    -X0*X4      REGISTER/CONSTANT NUMBER.                   GEN      4490
          2723  7160000000                        SX6    0           CLEAR REGISTER ASSIGNMENT.                  GEN      4491
                          0222000000              JP     B2                                                      GEN      4492
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   103
        /ARI  A R I T H                                               TYPES 
  
                                        **        INDIVIDUAL PROCESSOR SECTION FOR SPECIFIED TYPE OF REQUEST     GEN      4494
                                        *         NOTE   AT.I TABLE MAY NOT EXCEED 5 BITS IN LENGTH,             GEN      4495
                                        *                MAXIMUM LENGTH =37B...                                  GEN      4496
                                                                                                                 GEN      4497
                                                                                                                 GEN      4498
          2724                           AT.BASE BSS    0           BASE ADDRESS.                                GEN      4499
          2724  00000000000000003077 +   AT.CB    CON    EIS.CB      CLEARING OF *B*                             GEN      4500
          2725  00000000000000402725 +   AT.CLU   CON    *+4S15      CLEAR UPPER PART OF LOAD REG. (NOT USED)    GEN      4501
          2726  00000000000000402726 +   AT.CLL   CON    *+4S15      CLEAR LOWER PART OF LOAD REG. (NOT USED)    GEN      4502
          2727  00000000000000003300 +   AT.CNL   CON    EIS.CNL     SET ITH PORTION = LOWER  PART OF FILE WORD  GEN      4503
          2730  00000000000000003277 +   AT.CNM   CON    EIS.CNM     SET ITH PORTION = MIDDLE PART               GEN      4504
          2731  00000000000000003276 +   AT.CNU   CON    EIS.CNU     SET ITH PORTION = UPPER  PART OF FILE WORD  GEN      4505
          2732  00000000000000003073 +   AT.CT    CON    EIS.CT      CLEAR TEMPORARY                             GEN      4506
          2733  00000000000000402733 +   AT.CX    CON    *+4S15      CLEAR *X* ASSIGNMENT (NOT USED)             GEN      4507
          2734  00000000000000402734 +   AT.HR    CON    *+4S15      ASSIGN HARD REGISTER (NOT USED)             GEN      4508
          2735  00000000000000003270 +   AT.K     CON    EIS.K       LOAD OF *K*                                 GEN      4509
          2736  00000000000000003104 +   AT.L     CON    EIS.L       LOAD OF SINGLE TAG                          GEN      4510
          2737  00000000000000402737 +   AT.LB    CON    *+4S15      LOAD OF *B* REGISTER (NOT USED)             GEN      4511
          2740  00000000000000003102 +   AT.LL    CON    EIS.LL      LOAD OF LOWER PART                          GEN      4512
          2741  00000000000000003101 +   AT.LNL   CON    EIS.LNL                                                 GEN      4513
          2742  00000000000000003103 +   AT.LN    CON    EIS.LNU     LOAD TAG NOT RESETTING USE COUNT            GEN      4514
          2743  00000000000000003233 +   AT.RR    CON    EIS.IR      PROCESS INTERMEDIATE                        GEN      4515
          2744  00000000000000003232 +   AT.RL    CON    EIS.IRL     PROCESS INTERMEDIATE LOWER                  GEN      4516
          2745  00000000000000003023 +   AT.SB    CON    EIS.SB      SET *B* REGISTER                            GEN      4517
          2746  00000000000000003044 +   AT.ST    CON    EIS.ST      SET TEMPORARY REGISTER                      GEN      4518
          2747  00000000000000003026 +   AT.SX    CON    EIS.SX      SET *X* REGISTER                            GEN      4519
          2750  00000000000000003273 +   AT.Q     CON    EIS.Q       PROCESS IF *Q* FIELD PRESENT                GEN      4520
                                                                                                                 GEN      4521
                                  25     L.ATABLE EQU    *-AT.BASE   SEE NOTE ABOVE...                           GEN      4522
                                2724 +   SBASE    EQU    AT.BASE                                                 GEN      4523
                                                  NOREF  SBASE       *SBASE* USED ONLY IN MACRO DEFINITIONS      GEN      4524
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   104
        /ARI  A R I T H                                               EIS.CMP 
  
                                        **        COMPILE - FLUSH INSTRUCTION TO LONG FILE.                      GEN      4526
                                        *                                                                        GEN      4527
                                        *             HERE WHEN  I,J,K AND Q PORTIONS OF SKELETON HAVE BEEN      GEN      4528
                                        *             EVALUATED.                                                 GEN      4529
                                        *                                                                        GEN      4530
                                        *         ENTRY  INS.REG = REGISTERS - IJK                               GEN      4531
                                        *                (X1) = REGISTERS - I00                                  GEN      4532
                                        *                (X6) = REGISTERS - 0I0                                  GEN      4533
                                        *                (X4) = SKELETON WORD SHIFTED TO P.ITYPE FIELD.          GEN      4534
                                                                                                                 GEN      4535
                                                                                                                 GEN      4536
          2751  5120003330 +             EIS.CMP  SA2    OPTYP                                                   GEN      4537
                          43063                   MX0    -L.IOPC                                                 GEN      4538
                               22104              LX1    X4          SAVE                                        GEN      4539
          2752  6272777767                        SB7    X2-M.LOAD                                               GEN      4540
                          0570002760 +            NZ     B7,EIS.CM1  IF NOT *LOAD* OP-CODE                       GEN      4541
                                                                                                                 GEN      4542
                                        **        TERMINATE INSTRUCTION *LOAD* OPERATOR                          GEN      4543
                                                                                                                 GEN      4544
          2753  10344                             BX3    X4                                                      GEN      4545
                     5110000000 X                 SA1    RREG                                                    GEN      4546
                               20355              LX3    59-P.IEND+P.IOPC                                        GEN      4547
          2754  6271010000                        SB7    X1+XMIT                                                 GEN      4548
                          0570003007 +            NZ     B7,NULLOP   IF LOAD SATISFIED                           GEN      4549
          2755  14211                             BX2    -X1                                                     GEN      4550
                     43773                        MX7    -1                                                      GEN      4551
                          5150003325 +            SA5    INS.REG                                                 GEN      4552
          2756  54710                             SA7    A1          INDICATE SATISFIED                          GEN      4553
                     36725                        IX7    X2+X5                                                   GEN      4554
                          20755                   LX7    P.LI15                                                  GEN      4555
          2757  0400003006 +                      EQ     EIS.CM6                                                 GEN      4556
                                                                                                                 GEN      4557
          2760  15240                    EIS.CM1  BX2    -X0*X4      OPCODE FIELD                                GEN      4558
                                                                                                                 GEN      4559
                                        **         DUMP CURRENT INSTRUCTION.                                     GEN      4560
                                                                                                                 GEN      4561
                     10322                        BX3    X2                                                      GEN      4562
                          21303                   AX3    3                                                       GEN      4563
                               20463              LX4    -L.IOPC                                                 GEN      4564
          2761  63230                             SB2    X3                                                      GEN      4565
                     5150003325 +                 SA5    INS.REG                                                 GEN      4566
                               43066              MX0    -L.ITYPE                                                GEN      4567
          2762  15040                             BX0    -X0*X4      TYPE FIELD.                                 GEN      4568
                                                                                                                 GEN      4569
                     20555                        LX5    60-L.IOPC-3-3                                           GEN      4570
                                                                                                                 GEN      4571
                                        **        IF ONLY ONE LOAD INSTRUCTION COMPILED FOR THIS TURPLE CHECK    GEN      4572
                                        *         FOR PRELOAD CANDIDATE.                                         GEN      4573
                                        *         (X2) = OP-CODE                                                 GEN      4574
                                        *         (X5) = I,J,K PORTION OF INSTRUCTION                            GEN      4575
                                        *         (A5) _ INS.REG                                                 GEN      4576
                                                                                                                 GEN      4577
          2763  63320                    EIS.CM5  SB3    X2          SAVE 9 BIT OPCODE FOR PRELOAD TEST          GEN      4578
                     20263                        LX2    60-L.IOPC                                               GEN      4579
                          10300                   BX3    X0                                                      GEN      4580
          2764  5110000000 X                      SA1    NOLDS                                                   GEN      4581
                          36725                   IX7    X2+X5       OPCODE + I,J,K PORTION.                     GEN      4582
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   105
        /ARI  A R I T H                                               EIS.CMP 
  
          2765  6271777775                        SB7    X1-2                                                    GEN      4583
                          20366                   LX3    59-P.IEND+P.ITYPE                                       GEN      4584
          2766  0670002774 +                      PL     B7,CBREAK   IF PROCESSED MORE THAN ONE LOAD             GEN      4585
                                                                                                                 GEN      4586
                                        **        CHECK CURRENT OP-CODE AND NEXT TO SEE IF PRELOAD CAN BE SET    GEN      4587
                                        *         IN MOTION.                                                     GEN      4588
                                        *                CURRENT OP-CODE CAN NOT BE ANY TYPE OF JUMP INSTRUCT    GEN      4589
                                        *                                                                        GEN      4590
                                        *                NEXT TURPLE MUST BE A STANDARD ARITHMETIC OPERATOR.     GEN      4591
                                        *                                                                        GEN      4592
                                        *         CALLS  CPL                                                     GEN      4593
                                                                                                                 GEN      4594
                                                                                                                 GEN      4595
                          5124000003              SA2    B4+L.TURP                                               GEN      4596
          2767  66700                             =B7    0           INDICATE CLEARING OF REGISTERS REQUIRED     GEN      4597
                     0430003000 +                 ZR     B3,CBREAK5  IF UNCONDITIONAL BREAK                      GEN      4598
          2770  6222777777                        SB2    X2-O.EOS                                                GEN      4599
                          6173777677              SB7    B3-XMIT/1S6                                             GEN      4600
          2771  54121                             =A1    A2+OR.1OP                                               GEN      4601
                     0770003000 +                 MI     B7,CBREAK5  IF CONDITIONAL JUMP                         GEN      4602
          2772  6272777765                        SB7    X2-O.=                                                  GEN      4603
                          0420002774 +            ZR     B2,CBREAK   IF NEXT OPERATOR IS *EOS*                   GEN      4604
          2773  0670002774 +                      PL     B7,CBREAK   IF NOT AN ARITHMETIC OPERATOR               GEN      4605
                                        *         RJ     CPL         CHECK FOR PRELOAD OF OPERAND                GEN      4606
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   106
        /ARI  A R I T H                                               CREAK 
  
                                        **        CBREAK - CHECK IF CURRENT OPCODE BEING COMPILED                GEN      4608
                                        *         BREAKS THE CURRENT REGISTER ALLOCATION SEQUENCE.               GEN      4609
                                        *                                                                        GEN      4610
                                        *         NOTE - GENERAL RETURN ADDRESS FOR EXTERNAL PROCESSORS.         GEN      4611
                                        *         ENTRY  (X3) = SKELETON SHIFTED BY P.IEND                       GEN      4612
                                        *                (X7) = INSTRUCTION ABOUT TO BE ADDED TO TT.LF           GEN      4613
                                                                                                                 GEN      4614
          2774  5120000000 X             CBREAK   SA2    DRITE                                                   GEN      4615
                          43014                   MX0    12                                                      GEN      4616
                               11507              BX5    X0*X7                                                   GEN      4617
          2775  66700                             =B7    0           INDICATE CLEARING OF REGISTERS REQUIRED     GEN      4618
                     0305003000 +                 ZR     X5,CBREAK5  IF UNCONDITIONAL BREAK IN REGISTERS         GEN      4619
                               20506              LX5    L.IOPC-3                                                GEN      4620
          2776  0302003006 +                      ZR     X2,COMPILE  IF NO DELAYED STORE                         GEN      4621
                          6275777767              SB7    X5-XMIT/1S9 (XMIT = CONDITIONALS +1)                    GEN      4622
          2777  0670003006 +                      PL     B7,COMPILE  IF NOT A *JUMP* INSTRUCTION                 GEN      4623
          3000  10633                    CBREAK5  BX6    X3                                                      GEN      4624
                     5170000000 X                 SA7    ESTACK      SAVE INSTRUCTION                            GEN      4625
                               54671              =A6    A7+1        SAVE END FLAG                               GEN      4626
          3001  76770                             SX7    B7                                                      GEN      4627
                     54761                        =A7    A6+1        SAVE CLEAR REGISTER FLAG                    GEN      4628
                          13000                   DRITE  DEACTIVATE                                              GEN      4629
          3003  5120000002 X                      SA2    ESTACK+2                                                GEN      4630
                          0332003005 +            MI     X2,CBREAK10 IF NO REGISTER CLEARING REQUIRED            GEN      4631
          3004  0100000000 X                      RJ     CIA         CLEAR REGISTER FILE                         GEN      4632
          3005  5120000000 X             CBREAK10 SA2    ESTACK                                                  GEN      4633
                          54321                   =A3    A2+1                                                    GEN      4634
                               10722              BX7    X2                                                      GEN      4635
                                                                                                                 GEN      4636
                                        **        COMPILE - OUTPUT INSTRUCTION TO LONG FILE.                     GEN      4637
                                        *                                                                        GEN      4638
                                        *         ENTRY  SAME AS *CBREAK*                                        GEN      4639
                                                                                                                 GEN      4640
          3006                           EIS.CM6  BSS    0                                                       GEN      4641
          3006  6120003007 +             COMPILE  WCODE  X7           INSTRUCTION TO LONG FILE                   GEN      4642
                                                                                                                 GEN      4643
                                        **        NULLOP - NULL PROCESSING                                       GEN      4644
                                        *                                                                        GEN      4645
                                        *         ENTRY  SAME AS *CBREAK* (X7) IGNORED.                          GEN      4646
                                                                                                                 GEN      4647
          3007                           NULLOP   BSS    0                                                       GEN      4648
          3007  76600                             =X6    0                                                       GEN      4649
                     13777                        =X7                                                            GEN      4650
                          5160003325 +            SA6    INS.REG     CLEAR REGISTER ASSEMBLY CELL                GEN      4651
          3010  54761                             =A7    A6+1        CLEAR OPCODE CELL                           GEN      4652
                     5110000000 X                 SA1    REGLK                                                   GEN      4653
                               54711              =A7    A1+1        *I* PORTION                                 GEN      4654
          3011  54671                             =A6    A7+1        *J* PORTION                                 GEN      4655
                     63710                        SB7    X1                                                      GEN      4656
                          0100000000 X            RJ     RUL         UNLOCK REGISTER                             GEN      4657
          3012  43673                             MX6    -1                                                      GEN      4658
                     5160000000 X                 SA6    REGLK                                                   GEN      4659
          3013  0323002662 +             EIS.CM7  PL     X3,EIS.LNX  IF NOT LAST INSTRUCTION IN SEQUENCE.        GEN      4660
          3014                           O=NOOP   BSS    0           IF NULL PROCESSING FOR *TURPLE*             GEN      4661
          3014  6144000003                        =B4    B4+L.TURP                                               GEN      4662
                          5110002523 +            SA1    RESFLG                                                  GEN      4663
          3015  10311                             BX3    X1                                                      GEN      4664
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   107
        /ARI  A R I T H                                               CREAK 
  
                     0303002654 +                 ZR     X3,EIS.PNX  IF NO RESET OF SKELETON                     GEN      4665
                                                                                                                 GEN      4666
                                        **        RESET SKELETON TO ORGINAL SKELETON WHICH CAUSED RESET FLAG TO  GEN      4667
                                        *         BE TURNED ON.                                                  GEN      4668
                                        *         (X1) = RESFLG                                                  GEN      4669
                                                                                                                 GEN      4670
          3016  6144777774                        =B4    B4-L.TURP                                               GEN      4671
                          13666                   BX6    0                                                       GEN      4672
          3017  0323003021 +                      PL     X3,RESET5   IF NOT *USKEL*                              GEN      4673
                          14211                   BX2    -X1                                                     GEN      4674
                               54610              SA6    A1          CLEAR *RESFLG*                              GEN      4675
          3020  53420                             SA4    X2                                                      GEN      4676
                     0400002714 +                 EQ     EIS.LN1     CONTINUE WHERE I LEFT OFF                   GEN      4677
                                                                                                                 GEN      4678
          3021  5243777776               RESET5   SA4    X3-1                                                    GEN      4679
                          54610                   SA6    A1          CLEAR RESET FLAG.                           GEN      4680
                               54620              SA6    A2          RESET MODE CONVERSION FLAG                  GEN      4681
          3022  0400002662 +                      EQ     EIS.LNX     CONTINUE FROM WHERE WE LEFT OFF.            GEN      4682
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   108
        /ARI  A R I T H                                               HARDRG
  
                                        **        2.  ASSIGN TEMPORARY REGISTER.                                 GEN      4684
                                        **            A.  ASSIGN TEMPORARY *B* REGISTER.                         GEN      4685
                                                                                                                 GEN      4686
                                                                                                                 GEN      4687
          3023  63630                    EIS.SB   SB6    X3          SAVE ORDINAL                                GEN      4688
                     77101                        =X1    -1                                                      GEN      4689
                          0100000000 X            RJ     ABR         ASSIGN *B* REGISTER                         GEN      4690
          3024  76720                             SX7    B2                                                      GEN      4691
                     5176000000 X                 SA7    B6+REG=B    SET *B* REGISTER ASSIGNED CELL              GEN      4692
          3025  0400003305 +                      EQ     EIS.LRF                                                 GEN      4693
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   109
        /ARI  A R I T H                                               EIS.SX
  
                                        **        ASSIGN *X* REGISTER                                            GEN      4695
                                        *                                                                        GEN      4696
                                        *         ENTRY  (X3) = REGISTER REQUESTED TO ASSIGN                     GEN      4697
                                        *                                                                        GEN      4698
                                        *         IF REGISTER REQUESTING IS NOT A STORE REGISTER, REGISTER IS    GEN      4699
                                        *         SET WITH NO CHECKING OF USEFILE.                               GEN      4700
                                        *         IF A STORE REGISTER IS REQUESTED, A CHECK IS MADE OF THE       GEN      4701
                                        *         USEFILE TO MAKE SURE WE ARE NOT ABOUT TO CLOBBER A DEFINED     GEN      4702
                                        *         RESULT.                                                        GEN      4703
                                                                                                                 GEN      4704
                                                                                                                 GEN      4705
          3026  73630                    EIS.SX   SX6    X3                                                      GEN      4706
                     6273777771                   SB7    X3-R.X6+REG.X                                           GEN      4707
                               20603              LX6    3           =0R0                                        GEN      4708
          3027  63630                             SB6    X3          =00R                                        GEN      4709
                     0770003034 +                 MI     B7,EIS.SX5  IF NOT REQUESTING *STORE* REGISTER          GEN      4710
                               43063              MX0    -L.RUSE                                                 GEN      4711
          3030  5213000000 X                      SA1    X3+REGX                                                 GEN      4712
                          15210                   BX2    -X0*X1                                                  GEN      4713
          3031  0302003034 +                      ZR     X2,EIS.SX5  IF USE COUNT *0*                            GEN      4714
                          13000                   DRITE  DEACTIVATE                                              GEN      4715
          3033  76660                             SX6    B6                                                      GEN      4716
                     20603                        LX6    3           =0R0                                        GEN      4717
                                                                                                                 GEN      4718
                                        **        CHECK FOR USELESS *XMIT* INSTRUCTION ON SOFT TRANSFER OP-CODE  GEN      4719
                                        *                                                                        GEN      4720
                                        *         (X6) = 0R0, REQUESTED REGISTER.                                GEN      4721
                                        *         (INS.REG) = REGISTERS ASSIGNED SO FAR.                         GEN      4722
                                                                                                                 GEN      4723
          3034  5116000000 X             EIS.SX5  SA1    B6+REGX                                                 GEN      4724
                          43063                   MX0    -L.RUSE                                                 GEN      4725
                               15110              BX1    -X0*X1                                                  GEN      4726
          3035  0301003037 +                      ZR     X1,EIS.SX10 IF REGISTER FREE                            GEN      4727
                          6126000020              SB2    B6+REG.X-RGFILE                                         GEN      4728
          3036  0100000000 X                      RJ     RUT                                                     GEN      4729
          3037  5120003326 +             EIS.SX10 SA2    OPCODE                                                  GEN      4730
                          6272777677              SB7    X2-XMIT/1S6                                             GEN      4731
          3040  0570003317 +                      NZ     B7,EIS.REG  IF NOT *XMIT*                               GEN      4732
                          5120003325 +            SA2    INS.REG                                                 GEN      4733
                                                                                                                 GEN      4734
                                        **        CHECK IF *XMIT* INTO SAME REGISTER                             GEN      4735
                                                                                                                 GEN      4736
          3041  43171                             MX1    -3                                                      GEN      4737
                     13062                        BX0    X6-X2                                                   GEN      4738
                          21003                   AX0    3                                                       GEN      4739
                               15001              BX0    -X1*X0                                                  GEN      4740
          3042  0310003317 +                      NZ     X0,EIS.REG  IF NOT *XMIT* INTO SAME REGISTER            GEN      4741
                          54440                   SA4    A4          RELOAD SKELETON WORD                        GEN      4742
                                                  SBIT   X4,IEND                                                 GEN      4743
                               10344              BX3    X4                                                      GEN      4744
          3043  0400003007 +                      EQ     NULLOP      NULLIFY OP-CODE                             GEN      4745
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   110
        /ARI  A R I T H                                               EIS.ST
  
                                        **            C.  ASSIGN TEMPORARY *X* REGISTER.                         GEN      4747
                                        *                 ASSIGN X0, X7, X6 IN THAT ORDER, IF ALL ARE IN USE     GEN      4748
                                        *                 KILLS ANY DELAYED STORES.  IF ONE FREED USES REGISTER  GEN      4749
                                        *                 FROM DELAYED STORE, IF NOT USES ONE OF LOAD REGISTERS  GEN      4750
                                        *                 DEPENDING ON HOW MANY LOAD REGISTERS ARE LOCKED.       GEN      4751
                                                                                                                 GEN      4752
                                                                                                                 GEN      4753
          3044  5213000000 X             EIS.ST   SA1    X3+REG=T                                                GEN      4754
                          63630                   SB6    X3          ORDINAL OF TEMPORARY                        GEN      4755
                               63210              SB2    X1          REGISTER - 0TR                              GEN      4756
          3045  0311003067 +                      NZ     X1,EIS.ST30 IF ALREADY LOADED - USE IT                  GEN      4757
                                                                                                                 GEN      4758
                                        **        CHECK FOR UNNECESSARY TRANSMIT INSTRUCTION.  IF FOUND,         GEN      4759
                                        *         MAKE *I* REGISTER SAME AS *J* REGISTER SO THAT *PIG* WILL      GEN      4760
                                        *         ELIMINATE INSTRUCTION.                                         GEN      4761
                                                                                                                 GEN      4762
                          5120003326 +            SA2    OPCODE                                                  GEN      4763
          3046  6272777677                        SB7    X2-XMIT/1S6                                             GEN      4764
                          0570003053 +            NZ     B7,EIS.ST10 IF NOT *XMIT*                               GEN      4765
          3047  5120003325 +                      SA2    INS.REG                                                 GEN      4766
                          43071                   MX0    -3                                                      GEN      4767
                               21203              AX2    3                                                       GEN      4768
          3050  15020                             BX0    -X0*X2      *J* REGISTER                                GEN      4769
                     5220000000 X                 SA2    X0+REGX     REGFILE ENTRY FOR *J* REGISTER              GEN      4770
                               43163              MX1    -L.RUSE                                                 GEN      4771
          3051  15121                             BX1    -X1*X2      USE COUNT                                   GEN      4772
                     0311003053 +                 NZ     X1,EIS.ST10 IF USE COUNT NOT ZERO                       GEN      4773
                                                                                                                 GEN      4774
                                        *         TRANSMIT INSTRUCTION IS UNNECESSARY                            GEN      4775
                                                                                                                 GEN      4776
          3052  6220000020                        SB2    X0+REG.X-RGFILE   *I* REGISTER - 0TR                    GEN      4777
                          0400003067 +            EQ     EIS.ST30                                                GEN      4778
                                                                                                                 GEN      4779
          3053  6130000000 X             EIS.ST10 SB3    RG=TEMP                                                 GEN      4780
                          0100000000 X            RJ     SFR                                                     GEN      4781
          3054  0307003067 +                      ZR     X7,EIS.ST30 IF TEMP REGISTER AVAILABLE                  GEN      4782
                          5110000000 X            SA1    RGX                                                     GEN      4783
          3055  0301003060 +                      ZR     X1,EIS.ST20 IF NON-INTERMEDIATE NOT AVAILABLE           GEN      4784
                          63210                   SB2    X1                                                      GEN      4785
          3056  0100000000 X                      RJ     RUT                                                     GEN      4786
          3057  0400003067 +                      EQ     EIS.ST30                                                GEN      4787
                                                                                                                 GEN      4788
                                                                                                                 GEN      4789
                                        **        TAKE CARE TO AVOID DEADLOCK THAT WILL OCCUR IF BOTH STORE      GEN      4790
                                        *         REGISTERS ARE ASSIGNED AS TEMPORARY *X* REGISTERS.             GEN      4791
                                                                                                                 GEN      4792
          3060  5110000026 X             EIS.ST20 SA1    REGFILE+R.X6                                            GEN      4793
                          5120000027 X            SA2    REGFILE+R.X7                                            GEN      4794
          3061  7130000777                        =X3    MAX.USEC                                                GEN      4795
                          43063                   MX0    -L.RUSE                                                 GEN      4796
                               15110              BX1    -X0*X1      USE COUNT ON *X6*                           GEN      4797
          3062  13131                             BX1    X3-X1                                                   GEN      4798
                     0301003066 +                 ZR     X1,EIS.ST25 IF *X6* IS TEMPORARY                        GEN      4799
                               15220              BX2    -X0*X2      USE COUNT ON *X7*                           GEN      4800
          3063  13132                             BX1    X3-X2                                                   GEN      4801
                     0301003066 +                 ZR     X1,EIS.ST25 IF *X7* IS TEMPORARY                        GEN      4802
                                                                                                                 GEN      4803
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   111
        /ARI  A R I T H                                               EIS.ST
  
                                        *         NEITHER *X6* NOR *X7* IS TEMPORARY.                            GEN      4804
                                                                                                                 GEN      4805
          3064  0100000000 X                      RJ     ASR         ASSIGN STORE REGISTER                       GEN      4806
          3065  0400003067 +                      EQ     EIS.ST30                                                GEN      4807
                                                                                                                 GEN      4808
                                        *         USE TEMP REGISTER OF LOWEST USE COUNT.                         GEN      4809
                                                                                                                 GEN      4810
          3066  0100000000 X             EIS.ST25 RJ     RUT                                                     GEN      4811
                                                                                                                 GEN      4812
                                        **        FOUND REGISTER FREE FOR TEMPORARY ASSIGNMENT.                  GEN      4813
                                        *         (B2) = 0TR.                                                    GEN      4814
                                        *         (B6) = ORDINAL OF TEMPORARY.                                   GEN      4815
                                                                                                                 GEN      4816
          3067  76360                    EIS.ST30 SX3    B6                                                      GEN      4817
                     76720                        SX7    B2                                                      GEN      4818
                          20352                   LX3    P.TAG                                                   GEN      4819
          3070  7120000777                        =X2    MAX.USEC                                                GEN      4820
                          43071                   MX0    -3                                                      GEN      4821
                               12623              BX6    X2+X3       DUMMY TAG FOR RGFILE                        GEN      4822
          3071  5176000000 X                      SA7    B6+REG=T    SET *REG=T* FILE                            GEN      4823
                          5162000000 X            SA6    B2+REGFILE                                              GEN      4824
          3072  15670                             BX6    -X0*X7                                                  GEN      4825
                     20603                        LX6    3                                                       GEN      4826
                          0400003305 +            EQ     EIS.LRF                                                 GEN      4827
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   112
        /ARI  A R I T H                                               CLTEMP
  
                                        **        CLEAR REGISTER ASSIGNMENT FOR CURRENT SKELETON.                GEN      4829
                                        *             A.  PROCESS TEMPORARY - WITH CLEARING OF T-REGISTER.       GEN      4830
                                                                                                                 GEN      4831
          3073  5223000000 X             EIS.CT   SA2    X3+REG=T    LOAD TEMPORARY REGISTER CELL                GEN      4832
                          76700                   =X7    0                                                       GEN      4833
                               43171              MX1    -3                                                      GEN      4834
          3074  54720                             SA7    A2          CLEAR TEMPORARY REGISTER CELL               GEN      4835
                                                                                                                 GEN      4836
                                        **        CLEAR *USEFILE* USAGE COUNT ON REGISTER POINTED TO BY *0TR*    GEN      4837
                                        *         IN *X2*.                                                       GEN      4838
                                        *         (X1) = REGISTER MASK.                                          GEN      4839
                                        *         (X2) = 0TR FOR REGISTER TO BE CLEARED.                         GEN      4840
                                                                                                                 GEN      4841
          3075  15621                    EIS.CT5  BX6    -X1*X2      REGISTER ONLY = 00R                         GEN      4842
                     63220                        SB2    X2                                                      GEN      4843
                          13777                   BX7    0                                                       GEN      4844
                               20603              LX6    3           =0R0                                        GEN      4845
          3076  5272000000 X                      SA7    X2+REGFILE                                              GEN      4846
                          0400003305 +            EQ     EIS.LRF                                                 GEN      4847
                                                                                                                 GEN      4848
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   113
        /ARI  A R I T H                                               EIS.CB
  
                                        *             B. CLEAR *B* REGISTER                                      GEN      4850
          3077  5223000000 X             EIS.CB   SA2    X3+REG=B                                                GEN      4851
                          76700                   =X7    0                                                       GEN      4852
                               54720              SA7    A2          CLEAR *B* REGISTER LOCAL CEL                GEN      4853
          3100  0400003075 +                      EQ     EIS.CT5     CONTINUE                                    GEN      4854
  
  
  
  
                                        **            D. PROCESS LOAD OF LOWER PART OF DOUBLE TYPE VARIABLE.     GEN      4856
                                        *                 ENTRY - (X3) = RELATIVE ORDINAL OF TAG TO BE LOADED.   GEN      4857
                                        *                         (B7) = REGISTER NUMBER. IF 0 - ANY REGISTER.   GEN      4858
                                                                                                                 GEN      4859
          3101  76600                    EIS.LNL  =X6    0                                                       GEN      4860
                     5160000000 X                 SA6    UUC                                                     GEN      4861
                                                                                                                 GEN      4862
          3102  53534                    EIS.LL   SA5    X3+B4       TAG TO BE LOADED                            GEN      4863
                     76610                        =X6    1           INDICATE LOWER HALF                         GEN      4864
                          0400003105 +            EQ     EIS.L2                                                  GEN      4865
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   114
        /ARI  A R I T H                                               EIS.L 
  
                                        **           C. PROCESS LOAD INTO *A*,*X* REGISTER.                      GEN      4867
                                        *                ENTRY - (X3) = RELATIVE ORDINAL OF TAG TO BE LOADED.    GEN      4868
                                        *                        (B7) = REGISTER NUMBER. IF 0 - ANY REGISTER.    GEN      4869
                                                                                                                 GEN      4870
  
  
  
  
                                        **        EIS.LNU - SAME AS EIS.L BUT DOES NOT RESET USE COUNT OF        GEN      4872
                                        *         TAG BEING LOADED.                                              GEN      4873
                                                                                                                 GEN      4874
                                                                                                                 GEN      4875
          3103  76600                    EIS.LNU  =X6    0                                                       GEN      4876
                     5160000000 X                 SA6    UUC                                                     GEN      4877
          3104  53534                    EIS.L    SA5    X3+B4       TAG TO BE LOADED                            GEN      4878
                     76600                        =X6    0           UPPER HALF                                  GEN      4879
                                                                                                                 GEN      4880
          3105  5160003331 +             EIS.L2   SA6    TYPLOD                                                  GEN      4881
                          7100000400              SX0    RLOCK                                                   GEN      4882
          3106  63660                             SB6    X6                                                      GEN      4883
                     15550                        BX5    -X0*X5                                                  GEN      4884
                          20621                   LX6    P.TYPE                                                  GEN      4885
                               12556              BX5    X5+X6                                                   GEN      4886
          3107  13000                             DRITE  DEACTIVATE                                              GEN      4887
          3110  10155                             BX1    X5                                                      GEN      4888
                     66260                        SB2    B6                                                      GEN      4889
                          66710                   =B7    1           FULL STATUS                                 GEN      4890
                               10055              BX0    X5                                                      GEN      4891
          3111  20162                             IFBIT  X1,-INTR,EIS.L5  IF NOT INTERMEDIATE                    GEN      4892
                               20055              IFBIT  X0,-2ARY,EIS.L5 IF NOT ARY-LOD                          GEN      4893
                          13000                   DRITE  DEACTIVATE                                              GEN      4894
          3114  66260                             SB2    B6                                                      GEN      4895
                     0100000603 +                 RJ     SLD         PROCESS SUBSCRIPT LOAD                      GEN      4896
          3115  0400003222 +                      EQ     EIS.L22                                                 FCC1960    12
                                                                                                                 GEN      4898
          3116  6130000000 X             EIS.L5   SB3    RG=LOAD                                                 GEN      4899
                          0100000000 X            RJ     GST         GET STATUS OF TAG                           GEN      4900
          3117  5120000000 X                      SA2    =XGSTC                                                  FCC1208    63
                          22307                   LX3    X7                                                      FCC1208    64
                               10722              BX7    X2          SAVE LOCATION OF TAG STATUS WORD            FCC1208    65
          3120  5170003226 +                      SA7    EISLA                                                   FCC1208    66
                          6160403120 +            SB6    "BLOWUP"    **** DEBUG ****                             FCC1208    67
          3121  10733                             BX7    X3                                                      FCC1208    68
                     43052                        MX0    L.2TAG+L.2BIAS+L.2FPNO                                  GEN      4902
                          5130003331 +            SA3    TYPLOD                                                  GEN      4903
          3122  10255                             BX2    X5                                                      GEN      4904
                     11101                        BX1    X0*X1                                                   GEN      4905
                          20330                   LX3    P.2BIAS                                                 GEN      4906
                               20260              IFBIT  X2,SHORT,EIS.L10 IF SHORT CONSTANT                      GEN      4907
                          36113                   IX1    X1+X3                                                   GEN      4908
                               20272              IFBIT  X2,2EQUIV/SHORT,EIS.L7                                  GEN      4909
                          0520003132 +            NZ     B2,EIS.L12   IF TAG IN REGISTER                         GEN      4910
          3125  0100000000 X             EIS.L7   RJ     LTG         LOAD TAG                                    GEN      4911
          3126  0400003145 +                      EQ     EIS.L15                                                 GEN      4912
                                                                                                                 GEN      4913
          3127  6130000000 X             EIS.L10  SB3    RG=LODX                                                 GEN      4914
                          0520003132 +            NZ     B2,EIS.L12  IF TAG IN REGISTER                          GEN      4915
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   115
        /ARI  A R I T H                                               EIS.LNU 
  
          3130  0100000000 X                      RJ     LSC         LOAD SHORT CONSTANT                         GEN      4916
          3131  0400003145 +                      EQ     EIS.L15                                                 GEN      4917
                                                                                                                 GEN      4918
          3132  0470003145 +             EIS.L12  ZR     B7,EIS.L15  IF TAG IN CORRECT REGISTER                  GEN      4919
                          5170003332 +            SA7    EIS.INST    SAVE INSTRUNCION                            GEN      4920
          3133  21603                             AX6    3                                                       GEN      4921
                     5067000001                   =A6    A7+EIS.JREG-EIS.INST  SAVE *J* REGISTER                 GEN      4922
          3134  0100000000 X                      RJ     GNR         GET REGISTER                                GEN      4923
          3135  5120003333 +                      SA2    EIS.JREG                                                GEN      4924
                          10366                   BX3    X6                                                      GEN      4925
          3136  5012777776                        =A1    A2-EIS.JREG+EIS.INST                                    GEN      4926
                          36062                   IX0    X6+X2       =0IJ                                        GEN      4927
                               66520              SB5    B2                                                      GEN      4928
          3137  36710                             IX7    X1+X0       OP-CODE + IJ                                GEN      4929
                     20760                        LX7    P.LI15+3                                                GEN      4930
          3140  6120003141 +                      WCODE  X7                                                      GEN      4931
          3141  5110000000 X                      SA1    =XSTRGLK                                                GEN      4932
                          0331003144 +            MI     X1,EIS.L13  IF NO ASSIGNMENT TO CLEAR                   GEN      4933
          3142  5211000000 X                      SA1    X1+REGFILE                                              GEN      4934
                          7100000400              SX0    RLOCK                                                   GEN      4935
          3143  15610                             BX6    -X0*X1      UNLOCK STORE REGISTER                       GEN      4936
                     54610                        SA6    A1                                                      GEN      4937
          3144  10633                    EIS.L13  BX6    X3                                                      GEN      4938
                     66250                        SB2    B5                                                      GEN      4939
                                                                                                                 GEN      4940
                                        *         INDICATE TAG IN REGISTER IN REGISTER.                          GEN      4941
                                        *         UPDATE USE COUNT ON TAG AND PUT IN RGFILE.                     GEN      4942
                                        *         (B2) = REGISTER (0TR)                                          GEN      4943
                                        *         (X5) = TAG (FROM PARSED FILE)                                  GEN      4945
                                        *         (X6) = REGISTER (0R0)                                          GEN      4946
                                        *                (EISLA) = LOCATION OF TAG STATUS WORD                   FCC1208    69
                                                                                                                 FCC1208    70
          3145  5130000000 X             EIS.L15  SA3    UUC                                                     FCC1960    13
                          76700                   SX7    B0                                                      FCC1960    14
                               10633              BX6    X3                                                      FCC1960    15
          3146  54730                             SA7    A3          SET USE COUNT TO ZERO                       FCC1960    16
                     5160003227 +                 SA6    EIS.LUC     SAVE USE COUNT                              FCC1960    17
          3147  5130003331 +                      SA3    TYPLOD                                                  FCC1960    18
                          5110003226 +            SA1    EISLA                                                   FCC1208    71
          3150  63710                             SB7    X1          ORDINAL IN TABLE OF STATUS WORD             FCC1208    72
                     21122                        AX1    18                                                      FCC1208    73
                          53210                   SA2    X1          FETCH ORIGIN OF TABLE                       FCC1208    74
                               53127              SA1    X2+B7                                                   FCC1208    75
          3151  63330                             SB3    X3                                                      GEN      4949
                     0100000000 X                 RJ     SST         SET STATUS OF TAG                           GEN      4950
          3152  76720                             SX7    B2                                                      FCC1960    19
                     5170003230 +                 SA7    EIS.LJ      SAVE OTR OF REG TAG IS IN                   FCC1960    20
          3153  7130000777                        =X3    MAX.USEC                                                FCC1960    21
                          43063                   MX0    -L.RUSE                                                 FCC1960    22
                               77102              SX1    -B2                                                     FCC1960    23
          3154  6271000026                        SB7    X1+R.X6                                                 FCC1960    24
                          0707003214 +            LT     B0,B7,EIS.L21 IF NOT STORE REGISTER                     FCC1960    25
          3155  5127000027 X                      SA2    B7+REGFILE+R.X7 LOAD OTHER STORE REG.                   FCC1960    26
                          15120                   BX1    -X0*X2      USE COUNT ON STORE REG.                     FCC1960    27
                               13231              BX2    X3-X1                                                   FCC1960    28
          3156  0312003214 +                      NZ     X2,EIS.L21  IF STORE REG NOT TEMPORARY                  FCC1960    29
                          6130000000 X            SB3    RG=TEMP                                                 FCC1960    30
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   116
        /ARI  A R I T H                                               EIS.LNU 
  
          3157  0100000000 X                      RJ     SFR                                                     FCC1960    31
          3160  76620                             SX6    B2         OTR ASSIGNED BY SFR                          FCCA444     5
                     5160003231 +                 SA6    EIS.LX                                                  FCCA444     6
          3161  0317003164 +                      NZ     X7,EIS.L19  IF TEMPORARY REG NOT AVAILABLE              FCC1960    32
                          5110003327 +            SA1    IJK                                                     FCC1960    33
          3162  5120003230 +                      SA2    EIS.LJ     REG HOLDING OPD                              FCCA444     7
                          63220                   SB2    X2                                                      FCCA444     8
          3163  0301003214 +                      ZR     X1,EIS.L21  IF PROCESSING J PART                        FCC1960    34
                          0400003202 +            EQ     EIS.L20     XMIT                                        FCC1960    35
                                                                                                                 FCC1960    36
          3164  6130000000 X             EIS.L19  SB3    RG=LODX                                                 FCC1960    37
                          0100000000 X            RJ     GNR                                                     FCC1960    38
          3165  76720                             SX7    B2                                                      FCC1960    39
                     5170003231 +                 SA7    EIS.LX      SAVE REG ASSIGNED                           FCC1960    40
          3166  5130003331 +                      SA3    TYPLOD      STATUS - 0=UPPER,1=LOWER                    FCC1960    41
                          63230                   SB2    X3                                                      FCC1960    42
          3167  6130000000 X                      SB3    RG=STOR                                                 FCC1960    43
                          66700                   SB7    B0          STATUS OF TAG ONLY                          FCC1960    44
          3170  0100000000 X                      RJ     GST                                                     FCC1960    45
          3171  5120000000 X                      SA2    =XGSTC                                                  FCC1960    46
                          10622                   BX6    X2                                                      FCC1960    47
          3172  5160003226 +                      SA6    EISLA       SAVE LOCATION OF STATUS                     FCC1960    48
                          0520003202 +            NZ     B2,EIS.L20  IF TAG IN REG - XMIT                        FCC1960    49
          3173  5120003226 +                      SA2    EISLA       LOCATION OF TAG STATUS WORD ADDRESS         FCC1960    50
                          63720                   SB7    X2          ORDINAL IN TABLE OF STATUS WORD             FCC1960    51
                               21222              AX2    18                                                      FCC1960    52
          3174  53220                             SA2    X2          FETCH TABLE ORIGIN                          FCC1960    53
                     53127                        SA1    X2+B7                                                   FCC1960    54
                          43052                   MX0    L.2TAG+L.2BIAS+L.2FPNO                                  FCC1960    55
          3175  5130003331 +                      SA3    TYPLOD      STATUS - 0=UPPER , 1=LOWER                  FCC1960    56
                          11101                   BX1    X0*X1                                                   FCC1960    57
                               20330              LX3    P.2BIAS                                                 FCC1960    58
          3176  36113                             IX1    X1+X3       ADD BIAS                                    FCC1960    59
                     5130003231 +                 SA3    EIS.LX                                                  FCC1960    60
                               63230              SB2    X3          ASSIGNED REG                                FCC1960    61
          3177  43071                             MX0    -3                                                      FCC1960    62
                     15630                        BX6    -X0*X3                                                  FCC1960    63
                          20603                   LX6    3           ORO                                         FCC1960    64
          3200  0100000000 X                      RJ     =XCLI                                                   FCC1960    65
          3201  0400003214 +                      EQ     EIS.L21                                                 FCC1960    66
                                                                                                                 FCC1960    67
          3202  5120003231 +             EIS.L20  SA2    EIS.LX      OTR OF REG TO TRANSMIT TO                   FCCA444     9
                          63220                   SB2    X2                                                      FCCA444    10
                               43071              MX0    -3                                                      FCC1960    69
          3203  15220                             BX2    -X0*X2      (00R) *I* REGISTER                          FCC1960    70
                     5130003230 +                 SA3    EIS.LJ                                                  FCC1960    71
          3204  7160000000                        SX6    0                                                       FCCA444    11
                          63530                   SB5    X3            OTR OF REG TRANSMITTING FROM              FCCA444    12
                               15730              BX7    -X0*X3        (00R) *J* REGISTER                        FCCA444    13
          3205  5115000000 X                      SA1    B5+REGFILE        *X* REGFILE ENTRY                     FCCA444    14
                          5135777767 X            SA3    B5+REGFILE-REG.A  *A* REGFILE ENTRY                     FCCA444    15
          3206  13131                             BX1    X3-X1                                                   FCCA444    16
                     21111                        AX1    L.RUSE                                                  FCCA444    17
                          0311003210 +            NZ     X1,EIS.LA      IF TAGS NOT EQUAL CLEAR X REG ONLY       FCCA444    18
          3207  54630                             SA6    A3             CLEAR OLD *A* REGFILE ENTRY              FCCA444    19
          3210  54610                    EIS.LA   SA6    A1             CLEAR OLD *X* REGFILE ENTRY              FCCA444    20
                     20203                        LX2    3                                                       FCC1960    73
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   117
        /ARI  A R I T H                                               EIS.LNU 
  
                          36772                   IX7    X7+X2                                                   FCC1960    74
          3211  7277001000                        SX7    X7+XMITS3                                               FCC1960    75
                          20760                   LX7    P.LI15+3                                                FCC1960    76
                               66520              SB5    B2                                                      FCC1960    77
          3212  6120003213 +                      WCODE  X7          XMIT                                        FCC1960    78
          3213  66250                             SB2    B5            OTR OF REG HOLDING OPD.                   FCCA444    21
          3214  5110003227 +             EIS.L21  SA1    EIS.LUC                                                 FCC1960    79
                          10711                   BX7    X1                                                      FCC1960    80
          3215  5130003331 +                      SA3    TYPLOD                                                  FCC1960    81
                          5170000000 X            SA7    UUC         RESTORE USE COUNT                           FCC1960    82
          3216  5110003226 +                      SA1    EISLA       LOCATION OF TAG STATUS WORD ADDRESS         FCC1960    83
                          63710                   SB7    X1          ORDINAL IN TABLE OF STATUS WORD             FCC1960    84
                               21122              AX1    18                                                      FCC1960    85
          3217  53210                             SA2    X1          FETCH TABLE ORIGIN                          FCC1960    86
                     53127                        SA1    X2+B7                                                   FCC1960    87
                          63330                   SB3    X3                                                      FCC1960    88
          3220  0100000000 X                      RJ     SST         SET STATUS OF TAG                           FCC1960    89
          3221  43071                             MX0    -3                                                      FCC1960    90
                     76120                        SX1    B2                                                      FCC1960    91
                          15610                   BX6    -X0*X1                                                  FCC1960    92
                               20603              LX6    3           ORO                                         FCC1960    93
          3222  5110003334 +             EIS.L22  SA1    HREG                                                    FCC1960    94
                          0301003305 +            ZR     X1,EIS.LRF  IF HARD REGISTER TO REMAIN UN-LOCKED        FCC0805    22
          3223  10266                             BX2    X6                                                      FCC0805    23
                     43700                        MX7    0                                                       FCC0805    24
                          20271                   LX2    -3                                                      FCC0805    25
                               54710              SA7    A1          CLEAR HREG                                  FCC0805    26
          3224  63720                             SB7    X2                                                      FCC0805    27
                     0100000000 X                 RJ     RLL         LOCK REGISTER                               FCC0805    28
          3225  0400003305 +                      EQ     EIS.LRF                                                 GEN      4951
                                                                                                                 GEN      4952
                                                                                                                 FCC1208    76
          3226  00000000000000403226 +   EISLA    CON    "BLOWUP"    LOCATION OF TAG STATUS WORD                 FCC1208    77
          3227  00000000000000000000     EIS.LUC  DATA   0           SAVED USE COUNT OF TAG                      FCC1960    95
          3230  00000000000000000000     EIS.LJ   DATA   0           OTR OF REG TAG IS IN                        FCC1960    96
          3231  00000000000000000000     EIS.LX   DATA   0           REG ASSIGNED AFTER GNR CALL                 FCC1960    97
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   118
        /ARI  A R I T H                                               RESULT
  
                                        **        SET INTERMEDIATE RESULT REGISTER.                              GEN      4954
                                        *             ENTRY  B4 - START OF INSTRUCTION GROUP (TURPLE)            GEN      4955
                                        *             EXIT   (X6) REGISTER NUMBER - 0R0.                         GEN      4956
                                        *             USES   A1,A2,A3  X0  B2,B7                                 GEN      4957
                                        *             CALLS  CDS                                                 GEN      4958
                                                                                                                 GEN      4959
                                                                                                                 GEN      4960
          3232  56541                    EIS.IRL  =A5    B4+OR.1OP   RIGHT MEMBER                                GEN      4961
                     66610                        =B6    1           RESULTS OF LOWER HALF                       GEN      4962
                          0400003234 +            EQ     EIS.IR1                                                 GEN      4963
                                                                                                                 GEN      4964
                                        **        SCAN INTERMEDIATE REGISTERS - *X7,X6,X0*                       GEN      4965
                                                                                                                 GEN      4966
          3233  56240                    EIS.IR   SA2    B4                                                      GEN      4967
                     66600                        SB6    B0          RESULTS OF UPPER HALF                       GEN      4968
                          56541                   =A5    B4+OR.1OP   RIGHT MEMBER                                GEN      4969
                                                                                                                 GEN      4970
          3234  56240                    EIS.IR1  =A2    B4+OR.OPR                                               GEN      4971
                     13666                        BX6    X6-X6                                                   GEN      4972
                          6272777765              SB7    X2-O.=                                                  GEN      4973
          3235  5160000000 X                      SA6    UUC                                                     GEN      4974
                          0570003257 +            NZ     B7,EIS.IR9  IF NOT PROCESSING *STORE* TURPLE            GEN      4975
          3236  66260                             SB2    B6          TAG TYPE                                    GEN      4976
                     66700                        =B7    0           STATUS OF TAG ONLY                          GEN      4977
                          0100000000 X            RJ     GST         GET STATUS OF RIGHT MEMBER                  GEN      4978
          3237  7102777751                        SX0    B2-R.X6+RGFILE                                          GEN      4979
                          0320003242 +            PL     X0,EIS.IR2  IF IN *STORE* REGISTER                      GEN      4980
          3240  0100000000 X                      RJ     ASR         ASSIGN STORE REGISTER                       GEN      4981
          3241  7170767777                        SX7    -XMIT                                                   GEN      4982
                          5170000000 X            SA7    RREG        INDICATE LOAD NOT SATISFIED                 GEN      4983
                                                                                                                 GEN      4984
                                                                                                                 GEN      4985
                                        *         CHECK LEFT MEMBER FOR VARIABLE TYPE                            GEN      4986
                                                                                                                 GEN      4987
          3242  5154000002               EIS.IR2  SA5    B4+OR.2OP        LEFT MEMBER                            GEN      4988
                          7100000400              =X0    RLOCK                                                   GEN      4989
          3243  10255                             BX2    X5                                                      GEN      4990
                     15550                        BX5    -X0*X5                                                  GEN      4991
                          20262                   IFBIT  X2,-INTR,EIS.IR5                                        GEN      4992
                                                                                                                 GEN      4993
                                        *         LEFT MEMBER IS A *SUBSCRIPTED ARRAY INVOLVING ADDRESS FUNCTION GEN      4994
                                                                                                                 GEN      4995
                          5110000000 X            SA1    RREG                                                    GEN      4996
          3245  76620                             SX6    B2                                                      GEN      4997
                     6271010000                   SB7    X1+XMIT                                                 GEN      4998
                               54610              SA6    A1          SET HARD REGISTER                           GEN      4999
          3246  0570003252 +                      NZ     B7,EIS.IR3  IF LOAD SATISFIED                           GEN      5000
                          5130003325 +            SA3    INS.REG                                                 GEN      5001
          3247  43071                             MX0    -3                                                      GEN      5002
                     14211                        BX2    -X1                                                     GEN      5003
                          15160                   BX1    -X0*X6      =00I                                        GEN      5004
                               36732              IX7    X3+X2                                                   GEN      5005
          3250  20106                             LX1    6                                                       GEN      5006
                     36771                        IX7    X7+X1                                                   GEN      5007
                          20755                   LX7    P.LI15                                                  GEN      5008
          3251  6120003252 +                      WCODE  X7                                                      GEN      5009
          3252  66260                    EIS.IR3  SB2    B6                                                      GEN      5010
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   119
        /ARI  A R I T H                                               RESULT
  
                     76710                        =X7    1                                                       GEN      5011
                          5170000000 X            SA7    UUC                                                     GEN      5012
          3253  0100000603 +                      RJ     SLD                                                     GEN      5013
          3254  0400003317 +                      EQ     EIS.REG                                                 GEN      5014
                                                                                                                 GEN      5015
                                        *         SET DELAYED STORE IN MOTION                                    GEN      5016
                                                                                                                 GEN      5017
          3255  66320                    EIS.IR5  SB3    B2                                                      GEN      5018
                     66260                        SB2    B6                                                      GEN      5019
                          0100000000 X            RJ     SDS          SET DELAYED STORE                          GEN      5020
          3256  0400003317 +                      EQ     EIS.REG                                                 GEN      5021
                                                                                                                 GEN      5022
                                        *         CHECK IF PROCESSING *STORE* TURPLE.                            GEN      5023
                                                                                                                 GEN      5024
          3257  5124000003               EIS.IR9  SA2    B4+L.TURP                                               GEN      5025
                          6272777765              SB7    X2-O.=                                                  GEN      5026
          3260  0570003262 +                      NZ     B7,EIS.IR10 IF RESULTS NOT INPUT IN *STORE*E            GEN      5027
                          0100000000 X            RJ     ASR         FIND AVAILABLE STORE REGISTER               GEN      5028
          3261  0400003266 +                      EQ     EIS.IR30    CONTINUE                                    GEN      5029
                                                                                                                 GEN      5030
                                        *         IF INTERMEDIATE NOT INPUT INTO *STORE* TURPLE                  GEN      5031
                                                                                                                 GEN      5032
          3262  0100000000 X             EIS.IR10 RJ     AIR         ASSIGN INTERMEDIATE REGISTER                GEN      5033
          3263  0620003265 +                      PL     B2,EIS.IR20 IF REGISTER AVAILABLE                       GEN      5034
                          0100000000 X            RJ     ASR         USE STORE REGISTER                          GEN      5035
          3264  0400003266 +                      EQ     EIS.IR30                                                GEN      5036
                                                                                                                 GEN      5037
          3265  0307003266 +             EIS.IR20 ZR     X7,EIS.IR30 IF REGISTER FREE                            GEN      5038
                          0100000000 X            RJ     RUT                                                     GEN      5039
                                                                                                                 GEN      5040
                                        **        (B2) = 0TR. FOR RESULTS.                                       GEN      5041
                                                                                                                 GEN      5042
          3266  76500                    EIS.IR30 =X5    0                                                       GEN      5043
                     66360                        SB3    B6          INTERMEDIATE TYPE (UPPER/LOWER)             GEN      5044
                          0100000000 X            RJ     DIT         DEFINE INTERMEDIATE                         GEN      5045
          3267  0400003317 +                      EQ     EIS.REG                                                 GEN      5046
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   120
        /ARI  A R I T H                                               REGPRO
  
                                        **        REGPRO - HELP ME DETERMINE IF REGISTERS ARE BEING ASSIGNED     GEN      5048
                                        *         CORRECTLY.                                                     GEN      5049
                                        *                                                                        GEN      5050
                                        *         ENTRY  (B2) = REGISTER BEING CLOBBERED, RESET ETC.             GEN      5051
                                        *                (X6) = CALLER NAME IN 3R FORMAT.                        GEN      5052
                                        *                                                                        GEN      5053
                                        *         EXIT   MESSAGE PRINTED.                                        GEN      5054
                                        *                                                                        GEN      5055
                                        *         DESTROYS *A1,X1, X6*                                           GEN      5056
                                                                                                                 GEN      5057
                                         SNAP=H   IFNE   TEST        IF IN TEST MODE                             FEAT126C  170
                                                                                                                 GEN      5058
                                         REGPRO   SUBR   0                                                       GEN      5059
                                                                                                                 GEN      5060
                                                  ENTRY  REGPRO                                                  GEN      5067
                                                                                                                 GEN      5068
                                                  SA1    CO.SNAP                                                 GEN      5069
                                                  LX1    1RH                                                     GEN      5070
                                                  PL     X1,REGPROX  IF NOT REQUESTED.                           GEN      5071
                                                  SA1    =7L                                                     GEN      5072
                                                  BX6    X1+X6                                                   GEN      5073
                                                  SA6    REGLNN      CALLER NAME.                                GEN      5074
                                         REGFILE  CORE   REGB,L.RGFILE                                           GEN      5075
                                                  RJ     =XSVR                                                   GEN      5076
                                                  SA1    =XSVB+4                                                 GEN      5077
                                                  SA2    TT.PAR                                                  GEN      5078
                                                  SX0    X1                                                      GEN      5079
                                                  IX1    X0-X2                                                   GEN      5080
                                                  RJ     =XCOD       CONVERT TO DPC                              FEAT126C  171
                                                  SA6    REGLNO                                                  GEN      5082
                                                  SA1    =XSVB+2                                                 GEN      5083
                                                  SX1    X1                                                      GEN      5084
                                                  RJ     =XCOD       CONVERT TO DPC                              FEAT126C  172
                                                  SA6    REGLNW                                                  GEN      5086
                                                  SA1    RGC                                                     GEN      5087
                                                  RJ     =XCOD                                                   FEAT126C  173
                                                  SA6    REGRGC                                                  GEN      5089
                                                  SA1    RGX                                                     GEN      5090
                                                  RJ     =XCOD                                                   FEAT126C  174
                                                  SA6    REGRGX                                                  GEN      5092
                                                  PLINE  REGLN       PRINT CONTENTS OF RGC, RGX                  GEN      5093
                                                  RJ     =XRSR                                                   GEN      5094
                                                  EQ     REGPRO      CONTINUE                                    GEN      5095
                                                                                                                 GEN      5096
                                         REGLN    DATA   30H REGISTER REASSIGNMENT -HELP-                        GEN      5097
                                         REGLNO   DATA   10H                                                     GEN      5098
                                         REGLNW   DATA   10H                                                     GEN      5099
                                         REGLNN   DATA   0                                                       GEN      5100
                                                  DATA   10H  RGC =                                              GEN      5101
                                         REGRGC   DATA   0                                                       GEN      5102
                                                  DATA   10H  RGX =                                              GEN      5103
                                         REGRGX   DATA   0                                                       GEN      5104
                                         REGLNE   DATA   0                                                       GEN      5105
                                                                                                                 GEN      5106
                                         SNAP=H   ENDIF                                                          GEN      5107
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   121
        /ARI  A R I T H                                               EIS.K 
  
                                        **        SET CONSTANT FOR CURRENT INSTRUCTION.                          GEN      5110
                                                                                                                 GEN      5111
          3270  73630                    EIS.K    SX6    X3          6 BIT TYPE CONSTANT.                        GEN      5112
                     6273777767                   SB7    X3-10B                                                  GEN      5113
                               67201              =B2    -1          INDICATE NOT A REGISTER (FOR EIS.LRF)       FCC1010    16
          3271  0670003305 +                      PL     B7,EIS.LRF  IF IN CORRECT FIELD                         GEN      5114
                          20603                   LX6    3                                                       GEN      5115
          3272  0400003305 +                      EQ     EIS.LRF                                                 GEN      5116
                                                                                                                 GEN      5117
          3273  54240                    EIS.Q    SA2    A4          RELOAD                                      GEN      5118
                     43060                        MX0    -L.IQF                                                  GEN      5119
                          15320                   BX3    -X0*X2      LOWER 12 BITS                               GEN      5120
                               43166              MX1    -L.INUM                                                 GEN      5121
          3274  20253                             LX2    -L.IQF-L.IOAD                                           GEN      5122
                     15121                        BX1    -X1*X2                                                  GEN      5123
                          20114                   LX1    L.IQF                                                   GEN      5124
                               36613              IX6    X1+X3       18 - BIT *Q* FIELD                          GEN      5125
          3275  20660                             LX6    60-18+6     SHIFT TO Q POSITION                         GEN      5126
                     0400003317 +                 EQ     EIS.REG                                                 GEN      5127
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   122
        /ARI  A R I T H                                               EIS.CNL 
  
                                        *         8.  SET ITH PORTION OF INSTRUCTION TO CONTENTS OF PARSE FILE.  GEN      5129
                                        *             WILL HANDLE EITHER A TAG OR CONSTANT THAT IS RIGHT         GEN      5130
                                        *             JUSTIFIED WITHIN THE APPROPRIATE FIELD.                    GEN      5131
                                        *                                                                        GEN      5132
                                        *             THREE DEFINED PROCESSORS ARE --                            GEN      5133
                                        *             CNU = ELEMENT IN UPPER  L.2TAG BITS OF WORD.               GEN      5134
                                        *             CNM = ELEMENT IN MIDDLE L.2TAG BITS OF WORD.               GEN      5135
                                        *             CNL = ELEMENT IN LOWER  L.2TAG BITS OF WORD.               GEN      5136
                                                                                                                 GEN      5137
                                                                                                                 GEN      5138
          3276  6120000052               EIS.CNU  SB2    P.PTAGU     ELEMENT IN UPPER L.2TAG BITS                GEN      5139
                          0400003301 +            EQ     EIS.CNX                                                 GEN      5140
          3277  6120000030               EIS.CNM  SB2    P.PTAGM     ELEMENT IN MIDDLE L.2TAG BITS               GEN      5141
                          0400003301 +            EQ     EIS.CNX                                                 GEN      5142
          3300  6120000000               EIS.CNL  SB2    P.PTAGL     ELEMENT IN LOWER L.2TAG BITS                GEN      5143
                                                                                                                 GEN      5144
                                        **        SET ELEMENT INTO (X6) READY FOR ADD IN TO INSTRUCTION BUILD    GEN      5145
                                        *         WORD                                                           GEN      5146
                                        *                                                                        GEN      5147
                                        *         (B2) = RELATIVE SHIFT COUNT                                    GEN      5148
                                        *         (X3) = RELATIVE WORD IN PARSED FILE TO USE.                    GEN      5149
                                                                                                                 GEN      5150
          3301  53134                    EIS.CNX  SA1    X3+B4       LOAD PARSED FILE WORD                       GEN      5151
                     43052                        MX0    -L.2TAG                                                 GEN      5152
                          23221                   AX2    B2,X1       SHIFT TO LOW ORDER OF WORD                  GEN      5153
          3302  5150003330 +                      SA5    OPTYP                                                   GEN      5154
                          15620                   BX6    -X0*X2      EXTRACT FIELD                               GEN      5155
          3303  6275777773                        SB7    X5-M.SHIF                                               GEN      5156
                          0470003317 +            ZR     B7,EIS.REG  IF NOT PROCESSING ADDRESS (K)               GEN      5157
          3304  20660                             LX6    60-18+3+3   SHIFT TO APPROPIATE BIT FOR INSTRUCTION     GEN      5158
                     0400003317 +                 EQ     EIS.REG                                                 GEN      5159
  
  
  
  
                                        **        LOCK REGISTER FILE FOR REGISTER USED IN CURRENT INSTRUCTION    GEN      5161
                                        *                                                                        GEN      5162
                                        *         ENTRY  (B2) = 0TR                                              GEN      5163
                                        *                (X6) = 0R0, AS ABOVE.                                   GEN      5164
                                        *                                                                        GEN      5165
                                        *         EXIT   LOCK BIT SET IN *RGFILE* IF ASSIGNMENT IS FOR *K* PART  GEN      5166
                                        *                OF INSTRUCTION.                                         GEN      5167
                                        *                CLEAR LOCK BIT ON *K* IF PROCESSING *J*                 GEN      5168
                                                                                                                 GEN      5169
                                                                                                                 GEN      5170
          3305  5120003327 +             EIS.LRF  SA2    IJK                                                     GEN      5171
                          5110000000 X            SA1    REGLK                                                   FCC1010    17
          3306  43773                             MX7    -1                                                      GEN      5174
                     0322003313 +                 PL     X2,EIS.LRF5 IF NOT PROCESSING *K*                       GEN      5175
          3307  0720003317 +                      MI     B2,EIS.REG  IF A CONSTANT (NOT A REGISTER)              FCC1010    18
                          76520                   SX5    B2                                                      GEN      5176
                               43171              MX1    -3                                                      GEN      5177
          3310  15251                             BX2    -X1*X5      GET REGISTER -00R                           GEN      5178
                     63720                        SB7    X2                                                      GEN      5179
                          0100000000 X            RJ     RLL         LOCK REGISTER                               GEN      5180
          3311  5170000000 X                      SA7    REGLK       SAVE REGISTER  -00R.                        GEN      5181
                          54771                   =A7    A7+1                                                    GEN      5182
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   123
        /ARI  A R I T H                                               EIS.LRF 
  
          3312  0400003317 +                      EQ     EIS.REG     CONTINUE                                    GEN      5183
                                                                                                                 GEN      5184
          3313  54710                    EIS.LRF5 SA7    A1          CLEAR *REGLK*                               GEN      5185
                     0312003317 +                 NZ     X2,EIS.REG  IF NOT PROCESSING *J*                       GEN      5186
          3314  5170000000 X                      SA7    CLOADJ                                                  GEN      5187
                          63710                   SB7    X1                                                      GEN      5188
          3315  0100000000 X                      RJ     RUL         UNLOCK REGISTER                             GEN      5189
          3316  0400003317 +                      EQ     EIS.REG     CONTINUE                                    GEN      5190
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   124
        /ARI  A R I T H                                               REG 
  
                                        **        9.  SET REGISTER IN TO BUILD REGISTER,(X5), AND CONTINUE       GEN      5192
                                        *             TO NEXT.                                                   GEN      5193
                                        *             ENTRY  (X6) = REGISTER - 0R0                               GEN      5194
                                        *                                                                        GEN      5195
                                        *             EXIT   (X1) REGISTER SHIFTED APPROPRIATELY.                GEN      5196
                                        *                    (X4) SHIFTED BY -L.INUM                             GEN      5197
                                        *                    (B6) UPDATED BY 3.                                  GEN      5198
                                        *                    INS.REG =  REGISTER ADDED IN PROPER POSITION.       GEN      5199
                                                                                                                 GEN      5200
                                                                                                                 GEN      5201
          3317  5130003327 +             EIS.REG  SA3    IJK                                                     GEN      5202
                          5110003325 +            SA1    INS.REG                                                 GEN      5203
          3320  63630                             SB6    X3                                                      GEN      5204
                     0323003322 +                 PL     X3,EIS.RG5  IF POSITIVE SHIFT                           GEN      5205
          3321  6166000074                        SB6    B6+60       NO DROPPING THE BITS..                      GEN      5206
          3322  22266                    EIS.RG5  LX2    B6,X6                                                   GEN      5207
                     12612                        BX6    X1+X2                                                   GEN      5208
                          20466                   LX4    -L.INUM                                                 GEN      5209
          3323  7273000003                        SX7    X3+3                                                    GEN      5210
                          54610                   SA6    A1          UPDATE ASSIGNED                             GEN      5211
                               54730              SA7    A3          UPDATE *IJK*                                GEN      5212
          3324  0400002716 +                      EQ     EIS.NX      CONTINUE FOR NEXT PORTION OF INSTRUCTION.   GEN      5213
                                                                                                                 GEN      5214
          3325  00000000000000000000     INS.REG  DATA   0           IJK PARTS OF INSTRUCTION                    GEN      5215
          3326  00000000000000000000     OPCODE   DATA   0           OPCODE                                      GEN      5216
          3327  00000000000000000000     IJK      DATA   0           = 3 PROCESSING *I* PART                     GEN      5217
                                                                     = 0    -       *J*  -                       GEN      5218
                                                                     =-3    -       *K*  -                       GEN      5219
          3330  00000000000000000000     OPTYP    DATA   0           M.XXX FOR OP-CODE FIELD OF SKELETON         GEN      5220
                                                                                                                 GEN      5221
          3331  00000000000000000000     TYPLOD   DATA   0           TYPE OF LOAD                                GEN      5222
                                                                                                                 GEN      5223
                                                                                                                 GEN      5224
          3332  00000000000000000000     EIS.INST DATA   0           INSTRUNCION TO PUT TAG IN CORRECT REGISTER  GEN      5225
          3333  00000000000000000000     EIS.JREG DATA   0           *J* REGISTER FOR ABOVE                      GEN      5226
          3334                     1     HREG     BSSZ   1           LOCK HARD REGISTER FLAG                     FCC0805    29
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   125
        /ARI  A R I T H                                               O=XXX 
  
                                        **        O=XXX - THIS SECTION CONTAINS SPECIAL PROCESSING ROUTINES      GEN      5228
                                        *                 USED FOR EXPANSION OF SKELETONS.                       GEN      5229
  
  
  
  
                                        **        O=CDW - CHECK *DRITE* FLAG, AND PROCESS IF SET.                GEN      5231
                                        *                                                                        GEN      5232
                                        *         ENTRY  (B4) _ CURRENT *TURPLE* BEING PROCESSED.                GEN      5233
                                        *                                                                        GEN      5234
                                        *         EXIT   *DRITE* CLEARED.                                        GEN      5235
                                        *                (B4) _ AS ENTRY - L.TURP, EXIT TO EIS.PNX TO CONTINUE   GEN      5236
                                        *                       PROCESSING OF ORGINAL *TURPLE*                   GEN      5237
                                        *                                                                        GEN      5238
                                        *         CALLS  CDS                                                     GEN      5239
                                                                                                                 GEN      5240
                                                                                                                 GEN      5241
          3335  64640                    O=CDW    SB6    A4          SAVE SKELETON ADDRESS                       GEN      5242
                     13000                        DRITE  DEACTIVATE                                              GEN      5243
          3336  56360                    O=CDWX   SA3    B6          RELOAD SKELETON WORD                        GEN      5244
                                                  SBIT   X3,IEND                                                 GEN      5245
                     0400003007 +                 EQ     NULLOP      CONTINUE WITH EXPANSION                     GEN      5246
  
  
  
  
                                        **        O=CAR - CLEAR ALL REGISTER ASSOCIATES.                         GEN      5248
                                        *                                                                        GEN      5249
                                        *         ENTRY  (B4) _ CURRENT *TURPLE* BEING PROCESSED.                GEN      5250
                                        *                                                                        GEN      5251
                                        *         EXIT   *DRITE* CLEARED.                                        GEN      5252
                                        *                ALL REGISTER ASSOCIATES CLEARED.                        GEN      5253
                                        *                (B4) _ AS ENTRY - L.TURP, EXIT TO EIS.PNX TO CONTINUE   GEN      5254
                                        *                       PROCESSING OF ORGINAL *TURPLE*                   GEN      5255
                                        *                                                                        GEN      5256
                                        *         CALLS  CAR.                                                    GEN      5257
                                                                                                                 GEN      5258
                                                                                                                 GEN      5259
          3337  64640                    O=CAR    SB6    A4          SAVE SKELETON ADDRESS                       GEN      5260
                     0100000000 X                 RJ     CIA         CLEAR REGISTER FILE                         GEN      5261
          3340  0400003336 +                      EQ     O=CDWX                                                  GEN      5262
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   126
        /ARI  A R I T H                                               O=EPO 
  
                                        **        O=EPO -  EXTERNAL PROCESSOR SET-UP                             GEN      5264
                                        *                                                                        GEN      5265
                                        *         ENTRY  (B4) _ PARSED FILE ENTRY                                GEN      5266
                                        *                                                                        GEN      5267
                                                                                                                 GEN      5268
                                                                                                                 GEN      5269
          3341  5114000002               O=EPO    =A1    B4+OR.2OP                                               GEN      5270
                          6144000003              =B4    B4+L.TURP                                               GEN      5271
          3342  10711                             BX7    X1                                                      FCC0744    13
                     21722                        AX7    P.TRC       42/0,18/TRACEBACK LINE NUMBER               FCC0744    14
                          5170000000 X            SA7    =XTRACE     SAVE FOR USE BY *FUN*                       FCC0744    15
          3343  0400002654 +                      EQ     EIS.PNX     CONTINUE                                    GEN      5272
  
  
  
  
                                        **        O=OTR - OBJECT TIME REPRIEVE CODE                              FEAT155G  371
                                        *                                                                        FEAT155G  372
                                        *         ENTRY  (B4) _ PARSE FILE ENTRY                                 FEAT155G  373
                                        *                                                                        FEAT155G  374
                                                                                                                 FEAT155G  375
          3344  5114000002               O=OTR    =A1    B4+OR.2OP                                               FEAT155G  376
                                         #FID     IFNE   .FID,0                                                  F66FCC    811
                          5150000000 X            SA5    =XCO.ID                                                 F66FCC    812
          3345  0325003365 +                      PL     X5,O=OTR20  IF FID CODE NOT REQUIRED                    F66FCC    813
                                                                                                                 F66FCC    814
                          5120000000 X            SA2    TT.PAR                                                  F66FCC    815
          3346  76640                             SX6    B4                                                      F66FCC    816
                     5150000000 X                 SA5    ALC.00                                                  F66FCC    817
                               37662              IX6    X6-X2       GET INDEX INTO PARSE TABLE                  F66FCC    818
          3347  10755                             BX7    X5                                                      F66FCC    819
                     5160003405 +                 SA6    O=OTRB      SAVE INDEX                                  F66FCC    820
          3350  5170000000 X                      SA7    ALC.REG     UNLOCK B4                                   F66FCC    821
                          5150003404 +            SA5    O=OTRA                                                  F66FCC    822
          3351  22601                             LX6    X1                                                      F66FCC    823
                     13515                        BX5    X1-X5                                                   F66FCC    824
                          54650                   SA6    A5          SET PREV LINE NUMBER TO OTR LINE NUMBER     F66FCC    825
          3352  0305003400 +                      ZR     X5,O=OTR30  IF SAME LINE AS PREVIOUS, IGNORE THE OTR    F66FCC    826
                                                                                                                 F66FCC    827
                          76610                   =X6    1                                                       F66FCC    828
          3353  5160000000 X                      SA6    =XCIAA      SET LOCK CLEAR FLAG                         F66FCC    829
                          0100000000 X            RJ     =XCIA       CLEAR REGISTER ASSOCIATES                   F66FCC    830
          3354  13666                             BX6    0                                                       F66FCC    831
                     5160000000 X                 SA6    =XCIAA      CLEAR LOCK FLAG                             F66FCC    832
          3355  7170000001                        CBSS   1           FLUSH CODE FROM WINA                        F66FCC    833
          3357  0100000000 X                      RJ     =XPIG       MAKE LINE NUMBER TABLE ENTRY                F66FCC    834
          3360  5150003405 +                      SA5    O=OTRB                                                  F66FCC    835
                          5110000000 X            SA1    TT.PAR                                                  F66FCC    836
          3361  36551                             IX5    X5+X1       PARSE TABLE ADDRESS                         F66FCC    837
                     5215000002                   SA1    X5+OR.2OP   RESTORE A1 AND X1                           F66FCC    838
                               10611              BX6    X1          RESTORE CURRENT LINE NUMBER                 F66FCC    839
          3362                           O=OTR10  BSS                                                            F66FCC    840
          3362  55511                             =A5    A1-OR.2OP+OR.1OP  GET LABEL FROM OTR TURPLE             F66FCC    841
                     73250                        SX2    X5                                                      F66FCC    842
                          0312003365 +            NZ     X2,O=OTR20  IF NO LNT ENTRY REQUIRED                    F66FCC    843
                                                                                                                 F66FCC    844
          3363  5160000000 X                      SA6    =XPIGLINE                                               F66FCC    845
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   127
        /ARI  A R I T H                                               O=OTR 
  
                          10655                   BX6    X5                                                      F66FCC    846
          3364  5160000000 X                      SA6    =XPIGLAB                                                F66FCC    847
          3365                           O=OTR20  BSS                                                            F66FCC    848
                                         #FID     ENDIF                                                          F66FCC    849
          3365  6144000003                        =B4    B4+L.TURP                                               FEAT155G  377
                          10611                   BX6    X1                                                      FEAT155G  378
                               21622              AX6    P.TRC                                                   FEAT155G  379
          3366  5160000000 X                      SA6    =XTRACE     SAVE FOR USE BY *FUN*                       FEAT155G  380
                          20614                   LX6    P.LBIAS                                                 FEAT155G  381
                               10566              BX5    X6          PRESERVE LINE NUMBER                        FEAT155G  382
          3367  7170000001                        CBSS   1           FORCE UPPER                                 FEAT155G  383
          3371  7110006100                        SX1    SB=BKS3                                                 FEAT155G  384
                          7211000002              SX1    X1+2                                                    FEAT155G  385
          3372  10711                             BX7    X1                                                      FEAT155G  386
                     20760                        LX7    P.LI12                                                  FEAT155G  387
                          12757                   BX7    X5+X7                                                   FEAT155G  388
                                         #FID     IFEQ   .FID,0                                                  F66FCC    850
                                                  WCODE  X7,EIS.PNX                                              F66FCC    851
                                         #FID     ELSE                                                           F66FCC    852
          3373  6120003374 +                      WCODE  X7                                                      F66FCC    853
          3374  5110000000 X                      SA1    =XCO.ID                                                 F66FCC    854
                          0321002654 +            PL     X1,EIS.PNX  IF FID CODE NOT NECESSARY                   F66FCC    855
                                                                                                                 F66FCC    856
          3375  6140000000 X                      TAGSEX =XS.FID                                                 F66FCC    857
          3377  13111                             CRJ    NONE                                                    F66FCC    858
          3400                           O=OTR30  BSS                                                            F66FCC    859
          3400  5110000000 X                      SA1    TT.PAR                                                  F66FCC    860
                          5150003405 +            SA5    O=OTRB      PARSE TABLE INDEX                           F66FCC    861
          3401  5120000000 X                      SA2    ALC.CAI                                                 F66FCC    862
                          36515                   IX5    X1+X5       PARSE TABLE ADDRESS                         F66FCC    863
                               10622              BX6    X2                                                      F66FCC    864
          3402  6245000003                        =B4    X5+L.TURP   ADDRESS OF NEXT TURPLE                      F66FCC    865
                          5160000000 X            SA6    ALC.REG     RELOCK B4                                   F66FCC    866
          3403  0400002654 +                      EQ     EIS.PNX                                                 F66FCC    867
                                                                                                                 F66FCC    868
                                                                                                                 F66FCC    869
                                                  ENTRY  O=OTRA                                                  F66FCC    870
          3404  00000000000000000000     O=OTRA   DATA   0           LINE NUMBER OF PREVIOUS OTR                 F66FCC    871
          3405                     1     O=OTRB   BSS    1           PARSE TABLE INDEX SAVED HERE                F66FCC    872
                                         #FID     ENDIF                                                          F66FCC    873
  
  
  
  
                                        **        CBSS - DEFINE LABEL.                                           GEN      5274
                                        *                                                                        GEN      5275
                                        *         ENTRY  (X1) = LABEL TO DEFINE.                                 GEN      5276
                                        *                (X4) = SKELETON WORD                                    GEN      5277
                                        *                                                                        GEN      5278
                                        *         EXIT   TO *CBREAK*                                             GEN      5279
                                        *                (X3) = SKELETON SHIFTED BY P.IEND                       GEN      5280
                                        *                (X7) = INSTRUCTION FORMATTED FOR LONG FILE              GEN      5281
                                        *         IF LABEL IS INACTIVE STATEMENT NUMBER, WILL EXIT TO *NULLOP*   GEN      5282
                                        *                WITHOUT COMPILING ANYTHING.                             GEN      5283
                                        *                                                                        GEN      5284
                                        *         USES   CANNOT DESTROY  A0,A4  B4                               GEN      5285
                                                                                                                 GEN      5286
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   128
        /ARI  A R I T H                                               CBSS
  
                                                                                                                 GEN      5287
          3406                           CBSS     BSS    0           ENTRY...                                    GEN      5288
          3406  6271537777                        SB7    X1-C.STAT                                               GEN      5289
                          5120000000 X            SA2    TS.STN                                                  GEN      5290
          3407  10344                             BX3    X4                                                      GEN      5291
                     6221517777                   SB2    X1-C.STAT-C.DIF                                         GEN      5292
                                                  SBIT   X3,IEND                                                 GEN      5293
          3410  0770003412 +                      MI     B7,CBSS3    IF NOT A STATEMENT LABEL                    GEN      5294
                          0620003412 +            PL     B2,CBSS3    IF NOT A STATEMENT LABEL                    GEN      5295
          3411  53227                             SA2    X2+B7                                                   GEN      5296
                     20271                        SBIT   X2,SNINA                                                GEN      5297
                          0332003007 +            MI     X2,NULLOP   IF INACTIVE STATEMENT LABEL, EXIT..         GEN      5298
                                                                                                                 GEN      5299
          3412  73710                    CBSS3    CBSS   X1,,X7                                                  GEN      5300
                     0400002774 +                 EQ     CBREAK      EXIT..                                      GEN      5301
  
  
  
  
                                        **        CBJ -  COMPILE *B* JUMP.                                       GEN      5303
                                        *                                                                        GEN      5304
                                        *         ENTRY  (A4,X4) = SKELETON WORD                                 GEN      5305
                                        *                                                                        GEN      5306
                                        *         EXIT   TO EIS.CMP                                              GEN      5307
                                        *                (X7) = INSTRUCTION TO COMPILE                           GEN      5308
                                        *                (X3) = SKELETON SHIFTED BY P.IEND                       GEN      5309
                                                                                                                 GEN      5310
                                                                                                                 GEN      5311
          3413                           CBJ      BSS    0           ENTRY...                                    GEN      5312
          3413  7110000006                        SX1    R.B6-RGFILE ** B6 ONLY **                               GEN      5313
                          7120000003              =X2    I.JP                                                    GEN      5314
          3414  10344                             BX3    X4                                                      GEN      5315
                     20260                        LX2    P.LI12                                                  GEN      5316
                          12712                   BX7    X1+X2                                                   GEN      5317
                                                  SBIT   X3,IEND                                                 GEN      5318
          3415  0400002774 +                      EQ     CBREAK      RETURN TO COMPILE INSTRUCTION               GEN      5319
  
  
  
  
                                        **        O=RNF - RESET RANDOM.                                          FCC0966    55
                                        *                 RESETS RANDOM. TO THE UNNORMALIZED PRODUCT OF THE      FCC0966    56
                                        *                 LAST VALUE OF RANDOM. * KERNEL                         FCC0966    57
                                                                                                                 FCC0966    58
          3416                           O=RNF    BSS    0                                                       FCC0966    59
          3416  6130000000 X                      SB3    =XRG=STOR                                               FCC0966    60
                          22501                   LX5    X1          PRESERVE RANDOM. SYMTAB ORDINAL             FCC0966    61
          3417  0100000000 X                      RJ     GNR         GET A STORE REGISTER                        FCC0966    62
          3420  43071                             MX0    -3          FOR STATUS                                  FCC0966    63
                     76120                        SX1    B2                                                      FCC0966    64
                          15110                   BX1    -X0*X1                                                  FCC0966    65
                               63610              SB6    X1                                                      FCC0966    66
                                                                                                                 FCC0966    67
                                        *         (B6) = STORE REGISTER TO USE                                   FCC0966    68
                                                                                                                 FCC0966    69
          3421  5110000000 X                      SA1    REG=T       *T1*                                        FCC0966    70
                          15110                   BX1    -X0*X1      *T1* REGISTER                               FCC0966    71
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   129
        /ARI  A R I T H                                               O=RNF 
  
          3422  7221777771                        SX2    X1-6                                                    FCC0966    72
                          0322003430 +            PL     X2,RNF1     IF NO TRANSMIT (*T1* IN STORE REGISTER)     FCC0966    73
          3423  6130000003                        SB3    3                                                       FCC0966    74
                          7130010000              SX3    XMIT                                                    FCC0966    75
          3424  22231                             LX2    X1,B3                                                   FCC0966    76
                     12212                        BX2    X1+X2                                                   FCC0966    77
                          76160                   SX1    B6                                                      FCC0966    78
                               12323              BX3    X2+X3                                                   FCC0966    79
          3425  20106                             LX1    6                                                       FCC0966    80
                     12713                        BX7    X1+X3                                                   FCC0966    81
                          20755                   LX7    P.LI15                                                  FCC0966    82
          3426  6120003427 +                      WCODE  X7          OUTPUT TRANSMIT                             FCC0966    83
          3427  43071                             MX0    -3          RESTORE STATUS MASK                         FCC0966    84
                     76160                        SX1    B6          RESTORE STORE REGISTER                      FCC0966    85
                                                                                                                 FCC0966    86
                                        *         (X1) = STORE REGISTER                                          FCC0966    87
                                                                                                                 FCC0966    88
          3430  20522                    RNF1     LX5    L.TAG                                                   FCC0966    89
                     7255577777                   SX5    X5-C.SYM                                                FCC0966    90
          3431  5120000000 X                      SA2    TS.SYM                                                  FCC0966    91
                          36225                   IX2    X2+X5                                                   FCC0966    92
          3432  7150022000                        SX5    22000B      TRANSMIT INSTRUCTION TO RESET RANDOM.       FCC0966    93
                          53320                   SA3    X2                                                      FCC0966    94
                               15330              BX3    -X0*X3      RANDOM. REGISTER                            FCC0966    95
          3433  12551                             BX5    X5+X1                                                   FCC0966    96
                     20303                        LX3    3                                                       FCC0966    97
                          7223054000              SX2    X3+SA=AB                                                FCC0966    98
          3434  20106                             LX1    6                                                       FCC0966    99
                     12712                        BX7    X1+X2                                                   FCC0966   100
                          20755                   LX7    P.LI15                                                  FCC0966   101
                               20303              LX3    3                                                       FCC0966   102
          3435  12535                             BX5    X3+X5                                                   FCC0966   103
          3436  6120003437 +                      WCODE  X7          OUTPUT STORE                                FCC0966   104
          3437  20555                             LX5    P.LI15                                                  FCC0966   105
                     10755                        BX7    X5                                                      FCC0966   106
          3440  6120003441 +                      WCODE  X7          OUTPUT TRANSMIT                             FCC0966   107
          3441  0400003007 +                      EQ     NULLOP      CONTINUE PROCESSING SKELETON..              FCC0966   108
                                                                                                                 FCC0966   109
                                                  LIST   D                                                       GEN      5320
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        E.IN1 
             0 X                        PWE 
             0 X                        ALC 
             0 X                        TRLINE
             0 X                        E.SB8 
             0 X                        GSTC
             0 X                        CLT 
             0 X                        CLP 
             0 X                        TA.NAM
             0 X                        RG=SET
             0 X                        REGA
             0 X                        MVE 
             0 X                        STRGLK
             0 X                        RG=INTR 
             0 X                        RG=STOR 
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   130
        /ARI  A R I T H                                               LITERALS
  
             0 X                        CLI 
             0 X                        TRACE 
             0 X                        CO.ID 
             0 X                        CIAA
             0 X                        PIG 
             0 X                        PIGLINE 
             0 X                        PIGLAB
             0 X                        S.FID 
  
                                        CONTENT OF LITERALS BLOCK.
  
          3442  03400000000004000000    C5    D 
          3443  03400000000000000000    C5
          3444  77770000007777770000    ;;   ;;;
          3445  77777777777777077000    ;;;;;;;G' 
  
          3446                                    END                                                            GEN      5321
  
                             61300B CM  STORAGE USED            51860 STATEMENTS     1649 SYMBOLS 
                               PARALLEL CPU ASSEMBLY           31.014 SECONDS        8221 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABR             0   EXTERNAL*       4/09 X  108/07
        ADDR         1067   PROGRAM*       34/05 S   37/52     39/30     41/53     43/09 L
                                           37/16     38/17     40/19     42/25
        ADD.C        1243   PROGRAM*       63/13     63/31 L
        ADD.D        1230   PROGRAM*       63/13     63/19 L   63/51     64/14
        ADD.I        1225   PROGRAM*        3/19 E   63/13     63/14 L
        ADD.R        1226   PROGRAM*       63/13     63/16 L
        ADT             0   EXTERNAL*       4/13 X    7/27     15/49     16/03     24/07     24/19     25/40
        ADW             0   EXTERNAL*       3/57 X   92/06     96/34     97/08
        AFREG        1066   PROGRAM*        3/33 E   36/52     38/40     40/11     41/38     43/08 L
                                           36/18 S   37/47     39/14     41/18     42/48 S
        AFSTS        1075   PROGRAM*       34/57 S   36/04     36/37 S   43/15 L
        AIR             0   EXTERNAL*       4/09 X   35/28    119/23
        ALC             0   EXTERNAL*       8/05     17/17     17/49     93/29
        ALC.CAI         0   EXTERNAL*       3/57 X   92/24    127/29
        ALC.REG         0   EXTERNAL*       3/57 X   92/26 S   92/30 S  126/33 S  127/33 S
        ALC.00          0   EXTERNAL*       3/57 X   92/28    126/29
        ALREG        1065   PROGRAM*        3/12 E   36/15     37/33     38/21     40/21     41/23     41/54     43/07 L
                                           34/12 S   36/50 S   37/42     39/19     40/55     41/43     42/26
        ALTAG        1056   PROGRAM*       36/51 S   37/05     37/53     42/57 L
        AND         11000                  53/37 D   73/21     73/34     75/30     87/47
                                           67/43     73/33     73/51     87/29
        ANDN        15000                  53/42 D   73/22     73/36     74/45     75/46     85/34
                                           67/51     73/35     73/52     75/22     85/22
        ARGCOMA         0   EXTERNAL*       3/41 X   19/02     19/22 S   27/02     27/22     27/55     30/35
        ARGMODE         0   EXTERNAL*       3/41 X   24/21     26/52
        ARGNUM          0   EXTERNAL*       4/19 X   92/03 S
        ASR             0   EXTERNAL*       4/09 X   35/30    111/03    118/28    119/18    119/25
        ATTR            0   EXTERNAL*       3/41 X   15/29 S   24/23     24/33 S
        AT.BASE      2724   PROGRAM*      102/46    103/06 L  103/29    103/30
        AT.CB        2724   PROGRAM*       66/23    103/07 L
        AT.CLL       2726   PROGRAM*      103/09 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   131
        SYMBOLIC REFERENCE TABLE. 
  
        AT.CLU       2725   PROGRAM*      103/08 L
        AT.CNL       2727   PROGRAM*       77/09     77/39     78/15     79/11     79/37     84/15     85/50     87/12
                                           77/14     77/45     78/20     79/15     79/40     84/27     85/55     87/14
                                           77/20     77/46     78/25     79/20     79/42     85/06     86/31     87/21
                                           77/24     77/50     78/42     79/26     83/39     85/18     86/56     87/26
                                           77/29     78/06     78/45     79/29     83/49     85/30     87/01     87/31
                                           77/34     78/10     78/49     79/32     84/03     85/38     87/07    103/10 L
        AT.CNM       2730   PROGRAM*       69/43     70/02     77/12     77/28     77/57     78/30     79/23    103/11 L
                                           69/49     70/13     77/19     77/49     78/19     78/33     79/33
                                           69/53     77/07     77/23     77/53     78/24     78/37     79/35
        AT.CNU       2731   PROGRAM*       69/47     77/08     77/54     78/16     83/47     84/14    103/12 L
                                           69/57     77/13     78/01     78/54     84/01     84/26
                                           70/06     77/35     78/07     79/01     84/02     85/39
                                           76/13     77/40     78/11     79/06     84/13     87/03
        AT.CT        2732   PROGRAM*       63/18     66/22     68/20     69/30     74/11     77/19     78/57     81/57
                                           63/23     66/23     68/21     69/44     74/13     77/23     79/01     82/01
                                           63/24     66/30     68/27     69/50     74/15     77/27     79/04     82/04
                                           63/26     66/31     68/28     69/54     74/16     77/28     79/05     82/05
                                           63/27     66/32     68/31     70/01     74/17     77/33     79/06     82/08
                                           63/28     66/34     68/32     70/03     74/18     77/34     79/10     82/09
                                           63/30     66/35     68/36     70/07     74/19     77/38     79/11     82/10
                                           63/33     66/37     68/38     70/14     74/31     77/39     79/14     82/13
                                           63/35     66/38     68/39     70/49     74/43     77/43     79/15     82/14
                                           63/49     66/40     68/40     70/53     74/45     77/44     79/18     82/15
                                           63/54     66/41     68/47     71/02     74/51     77/45     79/19     83/39
                                           63/56     66/43     68/48     71/10     74/54     78/01     79/20     83/49
                                           64/09     66/47     68/49     73/08     74/55     78/05     80/57     84/03
                                           64/17     66/48     68/52     73/14     75/02     78/07     81/03     84/27
                                           64/19     66/51     68/54     73/15     75/07     78/11     81/07     85/19
                                           64/33     66/52     68/55     73/16     75/13     78/14     81/11     85/22
                                           64/38     66/55     69/02     73/19     75/16     78/16     81/15     85/23
                                           64/40     66/56     69/04     73/22     75/22     78/23     81/16     85/31
                                           65/27     66/57     69/05     73/23     75/27     78/25     81/19     85/34
                                           65/30     67/01     69/06     73/28     75/30     78/29     81/20     85/35
                                           65/32     67/20     69/07     73/29     75/34     78/30     81/23     87/29
                                           65/36     67/21     69/13     73/30     75/36     78/33     81/24     87/30
                                           65/37     67/24     69/14     73/31     75/37     78/36     81/25     87/47
                                           65/40     67/25     69/15     73/36     75/38     78/37     81/29     87/48
                                           65/41     67/28     69/18     73/37     75/39     78/41     81/30    103/13 L
                                           66/03     67/29     69/20     73/38     75/40     78/42     81/42
                                           66/04     67/30     69/21     73/49     75/46     78/45     81/45
                                           66/07     67/31     69/24     73/52     75/47     78/48     81/48
                                           66/08     68/11     69/27     73/53     75/54     78/49     81/49
                                           66/19     68/14     69/28     74/09     77/13     78/53     81/52
                                           66/21     68/18     69/29     74/10     77/18     78/54     81/53
        AT.CX        2733   PROGRAM*      103/14 L
        AT.HR        2734   PROGRAM*      103/15 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   132
        SYMBOLIC REFERENCE TABLE. 
  
        AT.K         2735   PROGRAM*       63/18     68/32     70/53     74/48     77/19     78/28     83/49     87/08
                                           63/23     68/36     70/54     74/49     77/20     78/30     84/03     87/12
                                           63/26     68/40     71/01     74/52     77/22     78/32     84/12     87/14
                                           63/28     68/45     71/02     74/53     77/23     78/33     84/13     87/20
                                           63/33     68/52     71/05     75/01     77/24     78/36     84/14     87/21
                                           63/35     68/53     71/06     75/02     77/27     78/37     84/15     87/26
                                           63/49     69/02     71/09     75/06     77/28     78/40     84/27     87/27
                                           63/54     69/03     71/10     75/07     77/29     78/42     85/06     87/28
                                           63/56     69/04     71/14     75/11     77/32     78/44     85/10     87/29
                                           64/09     69/12     71/15     75/12     77/34     78/45     85/21     87/30
                                           64/17     69/18     73/06     75/14     77/35     78/48     85/23     87/31
                                           64/19     69/19     73/07     75/15     77/37     78/49     85/33     87/36
                                           64/33     69/24     73/11     75/20     77/38     78/52     85/35     87/45
                                           64/38     69/26     73/13     75/21     77/39     78/54     85/38     87/46
                                           64/40     69/27     73/14     75/25     77/40     78/56     85/39     88/08
                                           65/06     69/42     73/16     75/26     77/43     78/57     85/47     88/11
                                           65/09     69/43     73/19     75/27     77/44     79/01     85/50     88/12
                                           65/10     69/44     73/20     75/28     77/45     79/04     85/55     88/15
                                           65/37     69/46     73/28     75/29     77/46     79/05     85/56     88/16
                                           65/41     69/47     73/31     75/33     77/49     79/06     85/57     88/19
                                           66/04     69/48     73/32     75/34     77/50     79/09     86/01     88/20
                                           66/08     69/49     73/49     75/35     77/53     79/11     86/13     88/21
                                           66/18     69/52     73/50     75/37     77/54     79/13     86/14     88/24
                                           66/19     69/53     74/08     75/38     77/57     79/14     86/18     88/25
                                           66/20     69/56     74/09     75/43     78/01     79/15     86/27     88/26
                                           66/31     69/57     74/11     75/44     78/04     79/18     86/28     88/29
                                           66/40     70/02     74/17     75/54     78/06     79/19     86/31     88/30
                                           66/48     70/03     74/19     75/57     78/07     79/20     86/34     88/31
                                           66/52     70/05     74/25     76/07     78/09     79/23     86/37     88/32
                                           66/56     70/06     74/26     76/08     78/10     79/26     86/38     88/44
                                           67/21     70/12     74/28     76/13     78/11     79/29     86/39     88/45
                                           67/25     70/13     74/29     76/14     78/14     79/32     86/44     88/46
                                           67/29     70/14     74/34     77/07     78/15     79/33     86/45     88/48
                                           68/10     70/28     74/35     77/08     78/16     79/35     86/49    103/16 L
                                           68/14     70/32     74/37     77/09     78/19     79/37     86/56
                                           68/18     70/33     74/38     77/12     78/20     79/40     87/01
                                           68/26     70/48     74/42     77/13     78/23     79/42     87/02
                                           68/28     70/49     74/43     77/14     78/24     83/08     87/03
                                           68/31     70/52     74/44     77/17     78/25     83/39     87/07
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   133
        SYMBOLIC REFERENCE TABLE. 
  
        AT.L         2736   PROGRAM*       63/15     66/06     68/51     73/35     75/57     78/32     81/18     86/18
                                           63/17     66/18     68/57     73/51     76/07     78/35     81/25     87/20
                                           63/21     66/20     69/11     73/52     76/08     78/41     81/27     87/36
                                           63/32     66/25     69/17     74/13     76/14     78/44     81/39     87/45
                                           63/46     66/30     69/23     74/15     77/07     78/47     81/42     87/47
                                           63/48     66/38     69/42     74/25     77/08     78/53     81/44     87/48
                                           63/53     66/49     69/48     74/30     77/11     78/56     81/49     88/08
                                           64/06     66/53     69/54     74/34     77/18     79/03     81/52     88/11
                                           64/08     67/14     70/01     74/37     77/22     79/10     81/56     88/15
                                           64/12     67/22     70/07     74/38     77/26     79/13     82/03     88/16
                                           64/16     67/26     70/12     74/41     77/33     79/17     82/10     88/19
                                           64/30     67/43     70/28     74/50     77/37     79/23     82/14     88/20
                                           64/32     67/45     70/32     74/52     77/42     79/26     83/08     88/24
                                           64/37     67/47     70/48     75/01     77/49     79/32     83/37     88/26
                                           65/06     67/49     70/52     75/06     77/53     79/35     83/38     88/29
                                           65/09     67/51     71/01     75/13     77/54     79/37     83/47     88/31
                                           65/21     67/53     71/05     75/14     77/56     79/40     83/48     88/44
                                           65/23     68/09     71/09     75/19     78/05     79/42     84/01     88/48
                                           65/29     68/13     71/14     75/26     78/09     80/54     84/12    103/17 L
                                           65/38     68/19     73/08     75/39     78/13     80/57     84/25
                                           65/39     68/25     73/15     75/40     78/19     81/02     85/10
                                           65/52     68/30     73/21     75/45     78/20     81/07     85/22
                                           65/54     68/35     73/22     75/46     78/22     81/09     85/28
                                           66/05     68/46     73/33     75/52     78/29     81/14     86/14
        AT.LB        2737   PROGRAM*      103/18 L
        AT.LL        2740   PROGRAM*       63/22     65/10     66/06     67/27     73/11     75/52     78/22     88/12
                                           63/34     65/25     66/34     68/16     73/34     77/11     78/35     88/21
                                           63/55     65/26     66/36     68/37     73/36     77/26     78/47     88/25
                                           64/13     65/38     66/50     69/01     74/26     77/42     79/03     88/30
                                           64/18     65/39     66/54     69/25     74/31     77/56     79/17     88/32
                                           64/39     66/05     67/23     70/33     74/51     78/13     86/13    103/19 L
        AT.LN        2742   PROGRAM*       63/20     66/28     67/19     70/05     73/48     75/33     81/13     81/51
                                           64/11     66/29     67/22     73/06     73/55     75/35     81/18     81/55
                                           65/25     66/33     67/26     73/18     74/07     75/43     81/22     82/03
                                           65/26     66/45     68/17     73/25     74/12     80/54     81/27     82/07
                                           65/28     66/46     68/34     73/26     74/14     80/56     81/39     82/12
                                           65/34     66/49     69/46     73/40     74/28     81/02     81/41     85/17
                                           66/01     66/53     69/52     73/43     74/48     81/05     81/44     85/18
                                           66/27     67/18     69/56     73/44     75/11     81/09     81/47    103/21 L
        AT.LNL       2741   PROGRAM*       65/35     66/45     66/50     67/18     67/23     73/27    103/20 L
                                           66/02     66/46     66/54     67/19     67/27     73/45
        AT.Q         2750   PROGRAM*       75/26     85/29     86/34     87/08     88/15     88/21     88/29     88/46
                                           84/12     85/47     86/39     88/08     88/16     88/24     88/30    103/27 L
                                           85/17     85/56     86/45     88/11     88/19     88/25     88/31
                                           85/28     86/27     86/49     88/12     88/20     88/26     88/32
        AT.RL        2744   PROGRAM*       63/30     64/19     65/32     66/43     70/33     71/15     74/31     74/55
                                           63/35     64/40     65/41     67/01     70/54     73/38     74/35    103/23 L
                                           63/56     65/10     66/08     67/31     71/06     74/26     74/38
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   134
        SYMBOLIC REFERENCE TABLE. 
  
        AT.RR        2743   PROGRAM*       63/15     65/09     67/43     69/07     71/02     74/37     80/54     82/01
                                           63/18     65/21     67/45     69/15     71/05     74/45     80/57     82/05
                                           63/29     65/23     67/47     69/21     71/10     74/54     81/03     82/10
                                           63/33     65/31     67/49     69/30     71/14     75/02     81/07     82/15
                                           63/46     65/37     67/51     69/44     73/08     75/07     81/11     87/36
                                           63/49     65/52     67/53     69/50     73/11     75/16     81/16     87/48
                                           63/54     65/54     68/11     69/54     73/16     75/22     81/20    103/22 L
                                           64/06     66/04     68/14     70/03     73/23     75/30     81/25
                                           64/09     66/23     68/21     70/07     73/37     75/40     81/30
                                           64/17     66/25     68/28     70/14     73/53     75/47     81/39
                                           64/30     66/42     68/32     70/28     74/19     75/54     81/42
                                           64/33     66/57     68/40     70/32     74/25     75/57     81/45
                                           64/38     67/14     68/49     70/49     74/30     76/08     81/49
                                           65/06     67/30     68/55     70/53     74/34     76/14     81/53
        AT.SB        2745   PROGRAM*       66/22    103/24 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   135
        SYMBOLIC REFERENCE TABLE. 
  
        AT.ST        2746   PROGRAM*       63/17     66/19     67/30     69/25     73/35     75/19     78/24     81/44
                                           63/20     66/20     68/09     69/26     73/36     75/20     78/28     81/45
                                           63/21     66/21     68/10     69/27     73/40     75/21     78/29     81/47
                                           63/22     66/22     68/13     69/28     73/43     75/25     78/32     81/48
                                           63/23     66/27     68/16     69/29     73/44     75/27     78/35     81/51
                                           63/24     66/28     68/17     69/42     73/45     75/28     78/36     81/52
                                           63/25     66/29     68/18     69/43     73/48     75/29     78/40     81/53
                                           63/26     66/30     68/19     69/46     73/49     75/33     78/41     81/55
                                           63/27     66/31     68/20     69/47     73/50     75/34     78/44     81/56
                                           63/28     66/32     68/25     69/48     73/51     75/35     78/47     81/57
                                           63/29     66/33     68/26     69/49     73/52     75/36     78/48     82/03
                                           63/32     66/34     68/27     69/52     73/55     75/37     78/52     82/04
                                           63/34     66/35     68/30     69/53     74/07     75/38     78/53     82/05
                                           63/48     66/36     68/31     69/56     74/08     75/39     78/56     82/07
                                           63/53     66/37     68/34     69/57     74/09     75/43     78/57     82/08
                                           63/55     66/38     68/35     70/01     74/10     75/44     79/03     82/09
                                           64/08     66/39     68/36     70/02     74/11     75/45     79/04     82/12
                                           64/11     66/40     68/37     70/05     74/12     75/46     79/05     82/13
                                           64/12     66/41     68/38     70/06     74/13     75/52     79/09     82/14
                                           64/13     66/42     68/39     70/12     74/14     77/11     79/10     82/15
                                           64/16     66/45     68/45     70/13     74/15     77/12     79/13     83/38
                                           64/18     66/46     68/46     70/48     74/16     77/17     79/14     83/48
                                           64/32     66/47     68/47     70/52     74/17     77/18     79/17     84/02
                                           64/37     66/48     68/48     71/01     74/18     77/22     79/18     84/26
                                           64/39     66/49     68/51     71/09     74/28     77/26     79/19     85/17
                                           65/25     66/50     68/52     73/06     74/29     77/27     80/56     85/18
                                           65/26     66/51     68/53     73/07     74/30     77/32     81/02     85/19
                                           65/27     66/52     68/54     73/13     74/41     77/33     81/03     85/21
                                           65/28     66/53     68/57     73/14     74/42     77/37     81/05     85/22
                                           65/29     66/54     69/01     73/15     74/43     77/38     81/06     85/28
                                           65/30     66/55     69/02     73/18     74/44     77/42     81/09     85/29
                                           65/31     66/56     69/03     73/19     74/48     77/43     81/10     85/30
                                           65/34     66/57     69/04     73/20     74/49     77/44     81/13     85/31
                                           65/35     67/18     69/05     73/21     74/50     77/56     81/14     85/33
                                           65/36     67/19     69/06     73/22     74/51     77/57     81/15     85/34
                                           65/38     67/20     69/11     73/25     74/52     78/04     81/18     87/27
                                           65/39     67/21     69/12     73/26     74/53     78/05     81/19     87/28
                                           65/40     67/22     69/13     73/27     74/54     78/06     81/20     87/29
                                           66/01     67/23     69/14     73/28     75/01     78/09     81/22     87/46
                                           66/02     67/24     69/17     73/29     75/06     78/10     81/23     87/47
                                           66/03     67/25     69/18     73/30     75/11     78/13     81/24    103/25 L
                                           66/05     67/26     69/19     73/31     75/12     78/14     81/27
                                           66/06     67/27     69/20     73/32     75/13     78/15     81/28
                                           66/07     67/28     69/23     73/33     75/14     78/22     81/29
                                           66/18     67/29     69/24     73/34     75/15     78/23     81/41
        AT.SX        2747   PROGRAM*       83/08     83/47     84/02     85/38     86/18     88/45
                                           83/37     83/48     84/25     86/13     87/20     88/47
                                           83/38     84/01     84/26     86/14     88/44    103/26 L
        A=ARRAY       342   PROGRAM*        3/12 E   22/23 L   26/53     30/28
        A=AR10        357   PROGRAM*       23/02     23/06 L
        A=AR15        360   PROGRAM*       23/04     23/08 L
        A=AR20        361   PROGRAM*       23/01     23/15 L
        A=AR52        364   PROGRAM*       23/19     23/21 L
        A=AR56        400   PROGRAM*       23/56     24/09 L
        A=AR57        404   PROGRAM*       24/14     24/20 L
        BIFFUN          0   EXTERNAL*       3/41 X    5/21
        BIFSHF          0   EXTERNAL*       3/41 X    6/36
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   136
        SYMBOLIC REFERENCE TABLE. 
  
        BINOUT          0   EXTERNAL*       3/41 X   91/54
        CAI          2505   PROGRAM*        3/29 E   91/47 L   93/35
        CAIX         2457   PROGRAM*       90/18 L   91/50     91/56     92/02     92/31
        CAIY         2505   PROGRAM*       91/35     91/46 L
        CAI10        2462   PROGRAM*       90/37     90/38     90/40 L
        CAI30        2471   PROGRAM*       91/04 L   91/10
        CAI35        2473   PROGRAM*       90/57     91/10 L
        CAI40        2500   PROGRAM*       91/33 L   91/41     91/43
        CAI41        2503   PROGRAM*       91/39     91/41 L
        CBJ          3413   PROGRAM*       85/11     86/02     86/52    128/29 L
        CBREAK       2774   PROGRAM*      105/03    105/22    105/23    106/08 L  128/15    128/36
        CBREAK10     3005   PROGRAM*      106/24    106/26 L
        CBREAK5      3000   PROGRAM*      105/16    105/20    106/12    106/17 L
        CBSS         3406   PROGRAM*       83/09     85/42     86/06     86/30     86/35     86/55     87/13    128/02 L
        CBSS3        3412   PROGRAM*      128/08    128/09    128/14 L
        CCR             0   EXTERNAL*       4/16 X   28/06
        CDO             0   EXTERNAL*       4/22 X   84/16
        CDS             0   EXTERNAL*       4/09 X   90/39    106/22    114/24    125/19
                                           34/24     93/36    109/21    114/31
        CHAR            6   TSTEXT          8/07     47/07     47/13     47/20     47/27     47/33     47/39
                                           46/23     47/08     47/14     47/21     47/28     47/34     47/40
                                           47/03     47/09     47/15     47/22     47/29     47/35     47/41
                                           47/04     47/10     47/16     47/23     47/30     47/36     47/42
                                           47/05     47/11     47/18     47/25     47/31     47/37     47/43
                                           47/06     47/12     47/19     47/26     47/32     47/38     47/44
        CHARMAP         0   EXTERNAL*       3/42 X   94/56
        CIA             0   EXTERNAL*       4/09 X  106/25    125/40    126/42
        CIAA            0   EXTERNAL*     126/41 S  126/44 S
        CLI             0   EXTERNAL*     116/39
        CLOADJ          0   EXTERNAL*       4/09 X  123/05 S
        CLP             0   EXTERNAL*      39/25
        CLT             0   EXTERNAL*      37/54     38/57
        COMPILE      3006   PROGRAM*      106/14    106/16    106/35 L
        CO.ID           0   EXTERNAL*     126/24    127/21
        CO.RND          0   EXTERNAL*       3/38 X
        CO.SNAP         0   EXTERNAL*       3/38 X
        CPL             0   EXTERNAL*       4/09 X
        CRJ             0   EXTERNAL*       4/09 X   93/46    127/25
        CRTTAB       1221   PROGRAM*        3/32 E   48/16 L
        CSR           157   PROGRAM*       14/16 L   19/04     22/26
        CSRA          225   PROGRAM*       15/30 S   16/05     16/08 L
        CSR12         177   PROGRAM*       14/51     15/06 L   15/22     16/07
        CSR20         201   PROGRAM*       14/55     15/19 L
        CSR25         210   PROGRAM*       15/31     15/36 L
        CSR30         216   PROGRAM*       15/35     15/50 L
        CSR5          166   PROGRAM*       14/29     14/31     14/37 L
        CSR6          175   PROGRAM*       14/47     14/53 L
        CTOD         1616   PROGRAM*       71/16 D   72/53
        CTOI         1614   PROGRAM*       71/11 D   72/53
        CT2             0   EXTERNAL*       4/13 X    7/19     17/13
        CT.BEGIN   260005   TSTEXT         86/33     86/48
        CT.INIT    260004   TSTEXT         86/35     87/07
        CT.RETN    260006   TSTEXT         86/06
        CT.RJS     260007   TSTEXT         88/45
        CT.TPA0    260001   TSTEXT         85/55     86/26     86/38
        CT.TPA1    260002   TSTEXT         86/44
        CT.TRAC    260000   TSTEXT         85/46
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   137
        SYMBOLIC REFERENCE TABLE. 
  
        CURST           0   EXTERNAL*       4/13 X   90/46 S
        CVT           226   PROGRAM*        3/12 E   16/31 L   20/20
        CVTA          303   PROGRAM*       16/38 S   17/25     18/32 L
        CVT10         233   PROGRAM*       16/40     16/42 L
        CVT20         236   PROGRAM*       16/43     16/54 L
        CVT22         243   PROGRAM*       17/05     17/11 L
        CVT25         245   PROGRAM*       17/16 L   18/06
        CVT30         255   PROGRAM*       17/09     17/15     17/43 L
        CVT35         260   PROGRAM*       17/49 L   18/11
        CVT40         267   PROGRAM*       17/44     18/07 L
        CVT45         272   PROGRAM*       17/36     18/16 L
        C=ARRAY       304   PROGRAM*        3/13 E   19/01 L
        C=AR50        313   PROGRAM*       19/16     19/21 L
        C=AR72        324   PROGRAM*       19/53     20/05 L
        C=AR75        327   PROGRAM*       19/36     19/38     20/16 L
        C=AR80        335   PROGRAM*       20/07     20/27     20/35 L
        C=AR85        336   PROGRAM*       20/09     20/29     20/43 L
        C=AR90        340   PROGRAM*       19/54     20/53 L
        C.CON      340000   TSTEXT         95/43
        C.DIF       20000   TSTEXT        128/06
        C.PRO      260000   TSTEXT         95/45
        C.SCR      100000   TSTEXT         97/22
        C.STAT     240000   TSTEXT        128/03    128/06
        C.STN      240000   TSTEXT         95/35
        C.SYM      200000   TSTEXT          9/22     11/16     22/35     90/55     90/55     95/41     96/05    129/19
        C.TEM      320000   TSTEXT         91/22     95/49
        C.VDIM     300000   TSTEXT         26/41     26/44     95/47
        DFADD       32000                  54/06 D   63/21     63/27     63/30     65/32     66/41     66/43
        DFJ          3600                  53/24 D
        DFSUB       33000                  54/07 D   64/12     66/30     68/19     68/34     73/26     73/44     74/14
        DIM           153   PROGRAM*       13/28 L   19/15     23/42 S   30/43     31/23 S
        DIMBIAS       155   PROGRAM*       13/30 L   14/38     15/09 S   16/04     22/52 S   23/08     29/30
        DIMI         1064   PROGRAM*        3/09 E   27/41 S   30/48 S   43/06 L
        DIMPT.        273   PROGRAM*       16/33     18/23 D   31/56
        DIMSYM        156   PROGRAM*        3/12 E   13/32 L   22/31     22/51     30/33     31/36 S
        DIMUL         154   PROGRAM*        3/34 E   13/29 L   14/43     17/43     19/23     20/25 S   28/17     31/10 S
        DIP             0   EXTERNAL*       4/22 X   83/10
        DIT             0   EXTERNAL*       4/09 X   42/36    119/35
        DIV.C        1401   PROGRAM*       66/16     66/44 L
        DIV.D        1360   PROGRAM*       66/16     66/26 L   67/16
        DIV.I        1351   PROGRAM*       66/16     66/17 L   67/12
        DIV.R        1357   PROGRAM*       66/16     66/24 L
        DMULT       42000                  54/24 D   65/29     66/33     74/13     75/52
        DRITE           0   EXTERNAL*       3/42 X   90/36    106/08
        DTOC         1616   PROGRAM*       71/13 L   71/16     72/52
        DTOI         1614   PROGRAM*       71/08 L   71/11     72/52
        DUC          2545   PROGRAM*       92/04     94/25 L
        DUC10        2554   PROGRAM*       94/36     94/56 L
        DUC12        2563   PROGRAM*       95/15     95/21 L
        DUC15        2565   PROGRAM*       95/11     95/17     95/33 L
        DUC152       2567   PROGRAM*       95/36     95/39 L
        DUC16        2576   PROGRAM*       95/42     95/56 L
        DUC2         2552   PROGRAM*       94/48 L   95/03     95/22
        DUC25        2606   PROGRAM*       96/10     96/26 L
        DUC30        2613   PROGRAM*       95/39     96/39 L
        DUC37        2614   PROGRAM*       95/44     95/46     95/48     95/50     95/56     95/57     96/48 L
        DUC38        2621   PROGRAM*       96/54     97/06 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   138
        SYMBOLIC REFERENCE TABLE. 
  
        DUC39        2623   PROGRAM*       97/01     97/16 L
        DUC40        2627   PROGRAM*       95/40     97/31 L
        DUC42        2641   PROGRAM*       97/49     97/55     98/06 L
        DUC6         2553   PROGRAM*       94/50 L
        DUC.         2552   PROGRAM*        3/28 E   94/47 L
        DUC.BTH      2561   PROGRAM*        3/28 E   95/15 L
        DUC.1ST      2560   PROGRAM*        3/28 E   95/09 L
        DUC.2ND      2565   PROGRAM*        3/28 E   95/32 L
        EIS          2642   PROGRAM*       92/27     99/47 L
        EISLA        3226   PROGRAM*      114/41 S  115/39    116/22 S  116/24    117/11    117/33 L
        EIS5         2661   PROGRAM*      100/16    100/35 L
        EIS.BRN      2714   PROGRAM*      101/12    102/14 L
        EIS.CALL     2704   PROGRAM*      101/14    101/31 L
        EIS.CB       3077   PROGRAM*      103/07    113/02 L
        EIS.CL5      2706   PROGRAM*      101/38    101/46 L
        EIS.CMP      2751   PROGRAM*      102/30    104/12 L
        EIS.CM1      2760   PROGRAM*      104/16    104/33 L
        EIS.CM5      2763   PROGRAM*      104/53 L
        EIS.CM6      3006   PROGRAM*      104/31    106/34 L
        EIS.CM7      3013   PROGRAM*      106/53 L
        EIS.CNL      3300   PROGRAM*      103/10    122/15 L
        EIS.CNM      3277   PROGRAM*      103/11    122/13 L
        EIS.CNU      3276   PROGRAM*      103/12    122/11 L
        EIS.CNX      3301   PROGRAM*      122/12    122/14    122/23 L
        EIS.COND     2714   PROGRAM*      101/09    102/13 L
        EIS.CT       3073   PROGRAM*      103/13    112/04 L
        EIS.CT5      3075   PROGRAM*      112/14 L  113/05
        EIS.INST     3332   PROGRAM*      115/05 S  115/07 S  115/11    124/34 L
        EIS.IR       3233   PROGRAM*      103/22    118/14 L
        EIS.IRL      3232   PROGRAM*      103/23    118/08 L
        EIS.IR1      3234   PROGRAM*      118/10    118/18 L
        EIS.IR10     3262   PROGRAM*      119/17    119/23 L
        EIS.IR2      3242   PROGRAM*      118/27    118/35 L
        EIS.IR20     3265   PROGRAM*      119/24    119/28 L
        EIS.IR3      3252   PROGRAM*      118/47    118/57 L
        EIS.IR30     3266   PROGRAM*      119/19    119/26    119/28    119/33 L
        EIS.IR5      3255   PROGRAM*      118/39    119/08 L
        EIS.IR9      3257   PROGRAM*      118/22    119/15 L
        EIS.JREG     3333   PROGRAM*      115/07 S  115/09    115/11    124/35 L
        EIS.K        3270   PROGRAM*      103/16    121/03 L
        EIS.L        3104   PROGRAM*      103/17    114/15 L
        EIS.LA       3210   PROGRAM*      116/54    116/56 L
        EIS.LJ       3230   PROGRAM*      115/47 S  116/06    116/46    117/35 L
        EIS.LL       3102   PROGRAM*      103/19    113/17 L
        EIS.LNL      3101   PROGRAM*      103/20    113/14 L
        EIS.LNU      3103   PROGRAM*      103/21    114/13 L
        EIS.LNX      2662   PROGRAM*      100/37 L  106/53    107/18
        EIS.LN1      2714   PROGRAM*      101/10    101/11    101/27    101/54    102/03    102/06    102/17 L  107/13
        EIS.LOD      2711   PROGRAM*      101/17    102/01 L
        EIS.LRF      3305   PROGRAM*      108/10    111/24    112/19    117/23    117/30    121/06    121/08    122/46 L
        EIS.LRF5     3313   PROGRAM*      122/49    123/03 L
        EIS.LUC      3227   PROGRAM*      115/37 S  117/07    117/34 L
        EIS.LX       3231   PROGRAM*      116/03 S  116/14 S  116/34    116/42    117/36 L
        EIS.L10      3127   PROGRAM*      114/49    114/56 L
        EIS.L12      3132   PROGRAM*      114/52    114/57    115/04 L
        EIS.L13      3144   PROGRAM*      115/18    115/23 L
        EIS.L15      3145   PROGRAM*      114/54    115/02    115/04    115/33 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   139
        SYMBOLIC REFERENCE TABLE. 
  
        EIS.L19      3164   PROGRAM*      116/04    116/11 L
        EIS.L2       3105   PROGRAM*      113/19    114/18 L
        EIS.L20      3202   PROGRAM*      116/09    116/23    116/42 L
        EIS.L21      3214   PROGRAM*      115/52    115/56    116/08    116/40    117/07 L
        EIS.L22      3222   PROGRAM*      114/34    117/22 L
        EIS.L5       3116   PROGRAM*      114/29    114/30    114/36 L
        EIS.L7       3125   PROGRAM*      114/51    114/53 L
        EIS.NOOP     2714   PROGRAM*      102/16 L
        EIS.NX       2716   PROGRAM*      102/27 L  124/22
        EIS.PNX      2654   PROGRAM*        3/28 E   33/26    100/07 L  101/25    107/01    126/12    127/22    127/34
        EIS.Q        3273   PROGRAM*      103/27    121/10 L
        EIS.REG      3317   PROGRAM*      109/38    119/04    119/36    122/29    122/50    123/04    124/11 L
                                          109/47    119/11    121/19    122/31    123/01    123/08
        EIS.RG5      3322   PROGRAM*      124/14    124/16 L
        EIS.RSET     2700   PROGRAM*      101/16    101/21 L
        EIS.RST5     2703   PROGRAM*      101/22    101/26 L
        EIS.SB       3023   PROGRAM*      103/24    108/05 L
        EIS.SHF      2714   PROGRAM*      101/13    102/15 L
        EIS.ST       3044   PROGRAM*      103/25    110/08 L
        EIS.ST10     3053   PROGRAM*      110/19    110/27    110/34 L
        EIS.ST20     3060   PROGRAM*      110/38    110/47 L
        EIS.ST25     3066   PROGRAM*      110/53    110/56    111/08 L
        EIS.ST30     3067   PROGRAM*      110/11    110/32    110/36    110/41    111/04    111/14 L
        EIS.SX       3026   PROGRAM*      103/26    109/12 L
        EIS.SX10     3037   PROGRAM*      109/33    109/36 L
        EIS.SX5      3034   PROGRAM*      109/16    109/20    109/30 L
        EIS.TYP      2667   PROGRAM*      101/02    101/08 L
        EIS.USEL     2707   PROGRAM*      101/15    101/50 L
        EQB          4000                  53/27 D
        EQJ            40                  53/07 D   77/20     77/35     77/50     85/06     86/56
                                           77/09     77/24     77/40     79/29     85/50     87/08
                                           77/14     77/29     77/46     79/33     86/31
        EQ.D         1540   PROGRAM*       69/09     69/22 L
        EQ.I         1526   PROGRAM*       69/09     69/10 L
        EQ.R         1533   PROGRAM*       69/09     69/16 L
        ERR=F           0   EXTERNAL*       3/51 X   91/49
        ESA             0   PROGRAM*        4/46 L    5/29
        ESA5            5   PROGRAM*        4/51      4/54 L
        ESF            12   PROGRAM*        3/13 E    5/23 L
        ESFBASE        14   PROGRAM*        5/24     46/14     46/32     46/38     46/40     46/45
                                            5/26 L   46/17     46/33     46/39     46/42
        ESFX           11   PROGRAM*        5/21 L    5/31      5/48      5/51      5/57      6/05
        ESTACK          0   EXTERNAL*       4/25 X  106/18 S  106/23    106/26
        ES.AND         72   PROGRAM*        7/31 L   46/14
        ES.COMPL       75   PROGRAM*        7/40 L   46/17
        ES.LOCF        46   PROGRAM*        6/39 L   46/32
        ES.LOC1        50   PROGRAM*        6/43 L    6/55
        ES.LOC2        53   PROGRAM*        6/41      6/50 L
        ES.MASK        14   PROGRAM*        5/29 L   46/33
        ES.MOD         22   PROGRAM*        5/45 L   46/38
        ES.OR          73   PROGRAM*        7/34 L   46/39
        ES.RANF        60   PROGRAM*        7/09 L   46/40
        ES.SHIFT       31   PROGRAM*        6/02 L   46/42
        ES.XOR         74   PROGRAM*        7/37 L   46/45
        E.AT1           0   EXTERNAL*       3/50 X
        E.AT1A          0   EXTERNAL*       3/50 X
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   140
        SYMBOLIC REFERENCE TABLE. 
  
        E.EXBASE      377                  51/28 D   64/04     65/18     67/10     68/43     72/49     72/52
                                           63/13     64/28     65/50     68/07     69/09     72/50     72/53
                                           63/44     65/04     66/16     68/23     72/48     72/51
        E.FIV        1220   PROGRAM*        3/32 E   47/48 D
        E.IF7           0   EXTERNAL*       3/50 X
        E.IN1           0   EXTERNAL*       6/46
        E.SB2           0   EXTERNAL*       3/50 X   23/06
        E.SB3           0   EXTERNAL*       3/50 X   27/06     30/37
        E.SB4           0   EXTERNAL*       3/50 X   25/14     25/28     25/43
        E.SB6           0   EXTERNAL*       3/50 X   25/16
        E.SB7           0   EXTERNAL*       3/50 X   27/25
        E.SB8           0   EXTERNAL*      23/03
        E.SU10          0   EXTERNAL*       3/51 X   11/25
        E.SU2           0   EXTERNAL*       3/51 X    9/43
        E.SU3           0   EXTERNAL*       3/51 X    8/50
        E.SU8           0   EXTERNAL*       3/51 X    9/31      9/46
        E.SU9           0   EXTERNAL*       3/51 X   11/29
        FADD        30000                  54/04 D   63/25     65/30     66/39     68/21     73/30     78/13     79/17
                                           63/17     63/29     65/31     66/42     68/38     74/10     78/22
                                           63/20     63/32     65/40     66/51     68/39     74/18     78/35
                                           63/22     63/34     66/32     66/55     73/15     77/26     78/47
                                           63/24     65/27     66/35     68/20     73/29     77/42     79/03
        FDIV        44000                  54/29 D   66/25     66/38     67/01     75/36
                                           66/21     66/27     66/57     74/07
        FILL.           0   EXTERNAL*       3/51 X    8/49 S    9/56 S
        FILL.3          0   EXTERNAL*       3/51 X   11/40 S
        FIV          1101   PROGRAM*       46/01 L
        FMASK       43000                   3/11 E   68/26     69/03     69/26     71/15     77/17     78/28     79/09
                                           53/57 D   68/45     69/12     70/54     74/35     77/32     78/40     87/27
                                           68/10     68/53     69/19     71/06     75/25     78/04     78/52     87/46
        FMULT       40000                  54/22 D   65/35     66/46     80/54     81/06     81/14     81/22     81/29
                                           65/23     65/38     66/49     80/56     81/07     81/15     81/23     81/30
                                           65/25     65/39     66/50     80/57     81/09     81/16     81/24
                                           65/26     66/28     66/53     81/02     81/10     81/18     81/25
                                           65/28     66/36     66/54     81/03     81/11     81/19     81/27
                                           65/34     66/45     74/12     81/05     81/13     81/20     81/28
        FSUB        31000                  54/05 D   64/16     66/34     68/16     68/37     69/17     73/27     73/55
                                           64/08     64/18     66/37     68/17     68/51     69/23     73/43     74/15
                                           64/11     65/36     66/47     68/30     68/57     69/25     73/45     74/16
                                           64/13     66/29     68/13     68/35     69/01     73/25     73/48     74/41
        FVD          2524   PROGRAM*        3/29 E   93/18 L
        FVD9         2537   PROGRAM*       93/25     93/41 L
        F.ABS           0                  46/06 L
        F.ACOS        111                  47/38 L
        F.AIMAG         1                  46/07 L
        F.AINT          2                  46/08 L
        F.ALOG        101                  47/30 L
        F.ALOG10      102                  47/31 L
        F.AMAX0         3                  46/09 L
        F.AMAX1         4                  46/10 L
        F.AMIN0         5                  46/11 L
        F.AMIN1         6                  46/12 L
        F.AMOD          7                  46/13 L
        F.AND          10                  46/14 L
        F.ASIN        110                  47/37 L
        F.ATAN        100                  47/29 L
        F.ATANH       104                  47/33 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   141
        SYMBOLIC REFERENCE TABLE. 
  
        F.ATAN2       103                  47/32 L
        F.CABS         66                  47/18 L
        F.CCOS         67                  47/19 L
        F.CEXP         70                  47/20 L
        F.CLOG         71                  47/21 L
        F.CMPLX        11                  46/15 L
        F.COMPL        13                  46/17 L
        F.CONJG        12                  46/16 L
        F.COS          75                  47/26 L
        F.COSD        116                  47/43 L
        F.COSH        107                  47/36 L
        F.CSIN         72                  47/22 L
        F.CSQRT        73                  47/23 L
        F.DABS         14                  46/18 L
        F.DACOS        50                  47/03 L
        F.DASIN        51                  47/04 L
        F.DATAN        52                  47/05 L
        F.DATAN2       53                  47/06 L
        F.DBLE         15                  46/19 L
        F.DCOS         54                  47/07 L
        F.DCOSH        65                  47/16 L
        F.DEXP         55                  47/08 L
        F.DIM          16                  46/20 L
        F.DLOG         56                  47/09 L
        F.DLOG10       57                  47/10 L
        F.DMAX1        17                  46/21 L
        F.DMIN1        20                  46/22 L
        F.DMOD         21                  46/23 L
        F.DSIGN        22                  46/24 L
        F.DSIN         60                  47/11 L
        F.DSINH        64                  47/15 L
        F.DSQRT        62                  47/13 L
        F.DTAN         61                  47/12 L
        F.DTANH        63                  47/14 L
        F.ERF         113                  47/40 L
        F.ERFC        114                  47/41 L
        F.EXP         112                  47/39 L
        F.FLOAT        23                  46/25 L
        F.IABS         24                  46/26 L
        F.IDIM         25                  46/27 L
        F.IDINT        26                  46/28 L
        F.IFIX         27                  46/29 L
        F.INT          30                  46/30 L
        F.ISIGN        31                  46/31 L
        F.LOCF         32                  46/32 L
        F.MASK         33                  46/33 L
        F.MAX0         34                  46/34 L
        F.MAX1         35                  46/35 L
        F.MIN0         36                  46/36 L
        F.MIN1         37                  46/37 L
        F.MOD          40                  46/38 L
        F.OR           41                  46/39 L
        F.RANF         42                  46/40 L
        F.REAL         43                  46/41 L
        F.SHIFT        44                  46/42 L
        F.SIGN         45                  46/43 L
        F.SIN          74                  47/25 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   142
        SYMBOLIC REFERENCE TABLE. 
  
        F.SIND        115                  47/42 L
        F.SINH        106                  47/35 L
        F.SNGL         46                  46/44 L
        F.SQRT         76                  47/27 L
        F.TAN          77                  47/28 L
        F.TAND        117                  47/44 L
        F.TANH        105                  47/34 L
        F.XOR          47                  46/45 L
        GEB          6000                  53/30 D
        GE.D         1473   PROGRAM*       68/23     68/33 L
        GE.I         1464   PROGRAM*       68/23     68/24 L
        GE.R         1470   PROGRAM*       68/23     68/29 L
        GNR             0   EXTERNAL*       4/10 X   36/27     40/35    115/08    116/12    128/48
        GST             0   EXTERNAL*       4/10 X   34/30     34/53     36/34    114/37    116/19    118/25
        GSTC            0   EXTERNAL*      34/55     36/35    114/38    116/20
        GTB          7000                  53/32 D
        HREG         3334   PROGRAM*      102/05 S  117/22    124/36 L
        IADD        36000                   3/31 E   54/17 D   68/11     69/13     73/23     77/18     78/41
                                           38/07     63/15     68/27     70/01     73/37     78/05     83/37
                                           41/04     63/46     68/47     70/07     73/53     78/29     84/25
        IDJ          3700                  53/25 D
        IFBASE       2015   PROGRAM*        3/22 E   80/25     80/27     80/32     80/34     80/41     80/43     80/45
                                           77/04 L   80/26     80/28     80/33     80/40     80/42     80/44
        IFDNN3       2132   PROGRAM*       79/02 L   80/40
        IFDN22       2111   PROGRAM*       78/34 L   80/42
        IFDN23       2060   PROGRAM*       77/55 L   80/32
        IFD1NN       2121   PROGRAM*       78/46 L   80/43
        IFD1N3       2072   PROGRAM*       78/12 L   80/33
        IFD11N       2144   PROGRAM*       79/16 L   80/41
        IFD113       2047   PROGRAM*       77/41 L   80/26
        IFD12N       2100   PROGRAM*       78/21 L   80/34
        IFD122       2033   PROGRAM*       77/25 L   80/27
        IFD123       2020   PROGRAM*       77/10 L   80/25
        IFEN2        2157   PROGRAM*        3/21 E   79/39 L
        IFE1N        2160   PROGRAM*        3/22 E   79/41 L
        IFINN3       2124   PROGRAM*       78/51 L   80/40
        IFIN2N       2150   PROGRAM*       79/22 L   80/45
        IFIN22       2104   PROGRAM*       78/27 L   80/42
        IFIN23       2056   PROGRAM*       77/52 L   80/32
        IFI1NN       2114   PROGRAM*       78/39 L   80/43
        IFI1N1       2151   PROGRAM*       79/25 L   80/44
        IFI1N3       2063   PROGRAM*       78/03 L   80/33
        IFI11N       2136   PROGRAM*       79/08 L   80/41
        IFI111       2152   PROGRAM*        3/22 E   79/28 L
        IFI113       2037   PROGRAM*       77/31 L   80/26
        IFI12N       2076   PROGRAM*       78/18 L   80/34
        IFI121       2054   PROGRAM*       77/48 L   80/28
        IFI122       2024   PROGRAM*       77/16 L   80/27
        IFI123       2015   PROGRAM*       77/06 L   80/25
        IFLN2        2155   PROGRAM*        3/22 E   79/34 L
        IFL1N        2156   PROGRAM*        3/22 E   79/36 L
        IFL12        2153   PROGRAM*        3/22 E   79/31 L
        IFRNN3       2127   PROGRAM*       78/55 L   80/40
        IFRN22       2107   PROGRAM*       78/31 L   80/42
        IFR1NN       2117   PROGRAM*       78/43 L   80/43
        IFR1N3       2067   PROGRAM*       78/08 L   80/33
        IFR11N       2141   PROGRAM*       79/12 L   80/41
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   143
        SYMBOLIC REFERENCE TABLE. 
  
        IFR113       2043   PROGRAM*       77/36 L   80/26
        IFR122       2030   PROGRAM*       77/21 L
        IJK          3327   PROGRAM*      100/39 S  102/27    116/05    122/46    124/11    124/26 L
        IMULT       42000                  54/25 D   81/39     81/45     81/51     81/56     82/04     82/09     82/14
                                           65/21     81/41     81/47     81/52     81/57     82/05     82/10     82/15
                                           65/52     81/42     81/48     81/53     82/01     82/07     82/12
                                           75/39     81/44     81/49     81/55     82/03     82/08     82/13
        INLBASE      1626   PROGRAM*        3/19 E   46/09     46/13     46/19     46/24     46/28     46/34     46/41
                                           46/06     46/10     46/15     46/20     46/25     46/29     46/35     46/43
                                           46/07     46/11     46/16     46/21     46/26     46/30     46/36     46/44
                                           46/08     46/12     46/18     46/22     46/27     46/31     46/37     73/04 L
        INS.REG      3325   PROGRAM*      104/27    104/41    106/44 S  109/39    110/20    118/48    124/12    124/24 L
        INTMAC          0   EXTERNAL*       3/42 X   25/35
        IRJ          3400                  53/22 D
        ISR           417   PROGRAM*       14/35     25/05 L   27/57
        ISRA          442   PROGRAM*       24/57     25/34 S   25/47 L   27/07     27/26
                                           25/07 S   25/44     27/05 S   27/23 S
        ISR10         433   PROGRAM*       25/22     25/33 L
        ISR45         413   PROGRAM*       24/52 L   25/15     25/17
        ISR5          427   PROGRAM*       25/12     25/21 L
        ISR50         414   PROGRAM*       24/56 L   25/29     25/45
        ISUB        37000                  54/18 D   68/09     68/48     69/11     69/29     73/18     75/40     79/10
                                           64/06     68/25     68/54     69/14     69/50     73/40     77/33     83/38
                                           64/30     68/46     69/06     69/20     69/54     75/19     78/53     83/48
        ITOC         1605   PROGRAM*       70/55 D   72/50
        ITOD         1605   PROGRAM*       70/51 L   70/55     72/50
        ITOR         1603   PROGRAM*       70/47 L   72/50
        I.JP            3   TSTEXT        128/31
        I..10        2256   PROGRAM*        3/24 E   82/11 L
        I..2         2230   PROGRAM*        3/23 E   81/38 L
        I..3         2231   PROGRAM*        3/23 E   81/40 L
        I..4         2233   PROGRAM*        3/23 E   81/43 L
        I..5         2235   PROGRAM*        3/23 E   81/46 L
        I..6         2240   PROGRAM*        3/23 E   81/50 L
        I..7         2243   PROGRAM*        3/24 E   81/54 L
        I..8         2247   PROGRAM*        3/24 E   82/02 L
        I..9         2252   PROGRAM*        3/24 E   82/06 L
        JPQ            30                  53/06 D   86/49
        LCMR         1400                  42/15     53/11 E   53/12 D
        LCMW         1500                  42/11     53/11 E   53/13 D
        LCT             0   EXTERNAL*       4/16 X    4/48      5/46      6/03      6/40     14/37     25/10
        LEB          6000                  53/29 D
        LFP             0   EXTERNAL*       4/10 X   37/41
        LGDIFC      17000                  53/44 D   69/15     69/21     69/30
        LOAD        50000                  55/07 D   88/11     88/16     88/21     88/26     88/31
                                           87/45     88/12     88/19     88/24     88/29     88/32
                                           88/08     88/15     88/20     88/25     88/30
        LOADB       60000                  55/08 D   84/12
        LSC             0   EXTERNAL*       4/10 X  115/01
        LSHF        20000                   3/20 E   69/43     69/49     69/57     70/06
                                           53/49 D   69/47     69/53     70/02     88/45
        LSHFB       22000                  53/51 D   66/23     71/02     71/10     75/07     75/38     76/08     76/14
        LTB          7000                  53/31 D   84/15
        LTG             0   EXTERNAL*       4/10 X   35/12    114/53
        LT.D         1455   PROGRAM*       68/07     68/15 L
        LT.I         1450   PROGRAM*       68/07     68/08 L
        LT.R         1453   PROGRAM*       68/07     68/12 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   144
        SYMBOLIC REFERENCE TABLE. 
  
        L.ARGC          6   TSTEXT         11/22
        L.ATABLE       25                 103/29 D
        L.DIM          30   TSTEXT         19/32
        L.DIMOS        30   TSTEXT         22/40     31/32
        L.FANSI         1   TSTEXT         46/06     46/16     46/26     46/36     47/03     47/13     47/25     47/35
                                           46/07     46/17     46/27     46/37     47/04     47/14     47/26     47/36
                                           46/08     46/18     46/28     46/38     47/05     47/15     47/27     47/37
                                           46/09     46/19     46/29     46/39     47/06     47/16     47/28     47/38
                                           46/10     46/20     46/30     46/40     47/07     47/18     47/29     47/39
                                           46/11     46/21     46/31     46/41     47/08     47/19     47/30     47/40
                                           46/12     46/22     46/32     46/42     47/09     47/20     47/31     47/41
                                           46/13     46/23     46/33     46/43     47/10     47/21     47/32     47/42
                                           46/14     46/24     46/34     46/44     47/11     47/22     47/33     47/43
                                           46/15     46/25     46/35     46/45     47/12     47/23     47/34     47/44
        L.FARGC         6   TSTEXT         46/06     46/16     46/26     46/36     47/03     47/13     47/25     47/35
                                           46/07     46/17     46/27     46/37     47/04     47/14     47/26     47/36
                                           46/08     46/18     46/28     46/38     47/05     47/15     47/27     47/37
                                           46/09     46/19     46/29     46/39     47/06     47/16     47/28     47/38
                                           46/10     46/20     46/30     46/40     47/07     47/18     47/29     47/39
                                           46/11     46/21     46/31     46/41     47/08     47/19     47/30     47/40
                                           46/12     46/22     46/32     46/42     47/09     47/20     47/31     47/41
                                           46/13     46/23     46/33     46/43     47/10     47/21     47/32     47/42
                                           46/14     46/24     46/34     46/44     47/11     47/22     47/33     47/43
                                           46/15     46/25     46/35     46/45     47/12     47/23     47/34     47/44
        L.FARGM         3   TSTEXT         46/06     46/16     46/26     46/36     47/03     47/13     47/25     47/35
                                           46/07     46/17     46/27     46/37     47/04     47/14     47/26     47/36
                                           46/08     46/18     46/28     46/38     47/05     47/15     47/27     47/37
                                           46/09     46/19     46/29     46/39     47/06     47/16     47/28     47/38
                                           46/10     46/20     46/30     46/40     47/07     47/18     47/29     47/39
                                           46/11     46/21     46/31     46/41     47/08     47/19     47/30     47/40
                                           46/12     46/22     46/32     46/42     47/09     47/20     47/31     47/41
                                           46/13     46/23     46/33     46/43     47/10     47/21     47/32     47/42
                                           46/14     46/24     46/34     46/44     47/11     47/22     47/33     47/43
                                           46/15     46/25     46/35     46/45     47/12     47/23     47/34     47/44
        L.FBEF          1   TSTEXT         46/06     46/16     46/26     46/36     47/03     47/13     47/25     47/35
                                           46/07     46/17     46/27     46/37     47/04     47/14     47/26     47/36
                                           46/08     46/18     46/28     46/38     47/05     47/15     47/27     47/37
                                           46/09     46/19     46/29     46/39     47/06     47/16     47/28     47/38
                                           46/10     46/20     46/30     46/40     47/07     47/18     47/29     47/39
                                           46/11     46/21     46/31     46/41     47/08     47/19     47/30     47/40
                                           46/12     46/22     46/32     46/42     47/09     47/20     47/31     47/41
                                           46/13     46/23     46/33     46/43     47/10     47/21     47/32     47/42
                                           46/14     46/24     46/34     46/44     47/11     47/22     47/33     47/43
                                           46/15     46/25     46/35     46/45     47/12     47/23     47/34     47/44
        L.FDPC         44   TSTEXT         46/06     46/16     46/26     46/36     47/03     47/13     47/25     47/35
                                           46/07     46/17     46/27     46/37     47/04     47/14     47/26     47/36
                                           46/08     46/18     46/28     46/38     47/05     47/15     47/27     47/37
                                           46/09     46/19     46/29     46/39     47/06     47/16     47/28     47/38
                                           46/10     46/20     46/30     46/40     47/07     47/18     47/29     47/39
                                           46/11     46/21     46/31     46/41     47/08     47/19     47/30     47/40
                                           46/12     46/22     46/32     46/42     47/09     47/20     47/31     47/41
                                           46/13     46/23     46/33     46/43     47/10     47/21     47/32     47/42
                                           46/14     46/24     46/34     46/44     47/11     47/22     47/33     47/43
                                           46/15     46/25     46/35     46/45     47/12     47/23     47/34     47/44
        L.FIV         120                   3/32 E   47/46 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   145
        SYMBOLIC REFERENCE TABLE. 
  
        L.FJPAD        11   TSTEXT         46/06     46/16     46/26     46/36     47/03     47/13     47/25     47/35
                                           46/07     46/17     46/27     46/37     47/04     47/14     47/26     47/36
                                           46/08     46/18     46/28     46/38     47/05     47/15     47/27     47/37
                                           46/09     46/19     46/29     46/39     47/06     47/16     47/28     47/38
                                           46/10     46/20     46/30     46/40     47/07     47/18     47/29     47/39
                                           46/11     46/21     46/31     46/41     47/08     47/19     47/30     47/40
                                           46/12     46/22     46/32     46/42     47/09     47/20     47/31     47/41
                                           46/13     46/23     46/33     46/43     47/10     47/21     47/32     47/42
                                           46/14     46/24     46/34     46/44     47/11     47/22     47/33     47/43
                                           46/15     46/25     46/35     46/45     47/12     47/23     47/34     47/44
        L.INUM          6                  52/23 D   56/42    102/47    121/13    124/18
        L.IOAD          5                  52/24 D   56/43    102/28    102/48    121/14
        L.IOPC         11                  52/22 D  102/17    104/13    104/45    106/13
                                           56/41    102/18    104/39    104/54
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   146
        SYMBOLIC REFERENCE TABLE. 
  
        L.IQF          14                  52/25 D   66/18     68/31     71/01     74/48     77/43     80/57     85/28
                                           56/44     66/19     68/32     71/02     74/49     77/44     81/02     85/29
                                           63/15     66/20     68/34     71/05     74/50     77/45     81/03     85/30
                                           63/17     66/21     68/35     71/06     74/51     77/46     81/05     85/31
                                           63/18     66/22     68/36     71/09     74/52     77/49     81/06     85/33
                                           63/20     66/23     68/37     71/10     74/53     77/50     81/07     85/34
                                           63/21     66/25     68/38     71/14     74/54     77/53     81/09     85/35
                                           63/22     66/27     68/39     71/15     74/55     77/54     81/10     85/38
                                           63/23     66/28     68/40     73/06     75/01     77/56     81/11     85/39
                                           63/24     66/29     68/45     73/07     75/02     77/57     81/13     85/47
                                           63/25     66/30     68/46     73/08     75/06     78/01     81/14     85/50
                                           63/26     66/31     68/47     73/11     75/07     78/04     81/15     85/55
                                           63/27     66/32     68/48     73/13     75/11     78/05     81/16     85/56
                                           63/28     66/33     68/49     73/14     75/12     78/06     81/18     85/57
                                           63/29     66/34     68/51     73/15     75/13     78/07     81/19     86/01
                                           63/30     66/35     68/52     73/16     75/14     78/09     81/20     86/13
                                           63/32     66/36     68/53     73/18     75/15     78/10     81/22     86/14
                                           63/33     66/37     68/54     73/19     75/16     78/11     81/23     86/18
                                           63/34     66/38     68/55     73/20     75/19     78/13     81/24     86/27
                                           63/35     66/39     68/57     73/21     75/20     78/14     81/25     86/28
                                           63/46     66/40     69/01     73/22     75/21     78/15     81/27     86/31
                                           63/48     66/41     69/02     73/23     75/22     78/16     81/28     86/34
                                           63/49     66/42     69/03     73/25     75/25     78/19     81/29     86/37
                                           63/53     66/43     69/04     73/26     75/26     78/20     81/30     86/38
                                           63/54     66/45     69/05     73/27     75/27     78/22     81/39     86/39
                                           63/55     66/46     69/06     73/28     75/28     78/23     81/41     86/44
                                           63/56     66/47     69/07     73/29     75/29     78/24     81/42     86/45
                                           64/06     66/48     69/11     73/30     75/30     78/25     81/44     86/49
                                           64/08     66/49     69/12     73/31     75/33     78/28     81/45     86/56
                                           64/09     66/50     69/13     73/32     75/34     78/29     81/47     87/01
                                           64/11     66/51     69/14     73/33     75/35     78/30     81/48     87/02
                                           64/12     66/52     69/15     73/34     75/36     78/32     81/49     87/03
                                           64/13     66/53     69/17     73/35     75/37     78/33     81/51     87/07
                                           64/16     66/54     69/18     73/36     75/38     78/35     81/52     87/08
                                           64/17     66/55     69/19     73/37     75/39     78/36     81/53     87/12
                                           64/18     66/56     69/20     73/38     75/40     78/37     81/55     87/14
                                           64/19     66/57     69/21     73/40     75/43     78/40     81/56     87/20
                                           64/30     67/01     69/23     73/43     75/44     78/41     81/57     87/21
                                           64/32     67/14     69/24     73/44     75/45     78/42     82/01     87/26
                                           64/33     67/18     69/25     73/45     75/46     78/44     82/03     87/27
                                           64/37     67/19     69/26     73/48     75/47     78/45     82/04     87/28
                                           64/38     67/20     69/27     73/49     75/52     78/47     82/05     87/29
                                           64/39     67/21     69/28     73/50     75/54     78/48     82/07     87/30
                                           64/40     67/22     69/29     73/51     75/57     78/49     82/08     87/31
                                           65/06     67/23     69/30     73/52     76/07     78/52     82/09     87/36
                                           65/09     67/24     69/42     73/53     76/08     78/53     82/10     87/45
                                           65/10     67/25     69/43     73/55     76/13     78/54     82/12     87/46
                                           65/21     67/26     69/44     74/07     76/14     78/56     82/13     87/47
                                           65/23     67/27     69/46     74/08     77/07     78/57     82/14     87/48
                                           65/25     67/28     69/47     74/09     77/08     79/01     82/15     88/08
                                           65/26     67/29     69/48     74/10     77/09     79/03     83/08     88/11
                                           65/27     67/30     69/49     74/11     77/11     79/04     83/37     88/12
                                           65/28     67/31     69/50     74/12     77/12     79/05     83/38     88/15
                                           65/29     67/43     69/52     74/13     77/13     79/06     83/39     88/16
                                           65/30     67/45     69/53     74/14     77/14     79/09     83/47     88/19
                                           65/31     67/47     69/54     74/15     77/17     79/10     83/48     88/20
                                           65/32     67/49     69/56     74/16     77/18     79/11     83/49     88/21
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   147
        SYMBOLIC REFERENCE TABLE. 
  
                                           65/34     67/51     69/57     74/17     77/19     79/13     84/01     88/24
                                           65/35     67/53     70/01     74/18     77/20     79/14     84/02     88/25
                                           65/36     68/09     70/02     74/19     77/22     79/15     84/03     88/26
                                           65/37     68/10     70/03     74/25     77/23     79/17     84/12     88/29
                                           65/38     68/11     70/05     74/26     77/24     79/18     84/13     88/30
                                           65/39     68/13     70/06     74/28     77/26     79/19     84/14     88/31
                                           65/40     68/14     70/07     74/29     77/27     79/20     84/15     88/32
                                           65/41     68/16     70/12     74/30     77/28     79/23     84/25     88/44
                                           65/52     68/17     70/13     74/31     77/29     79/26     84/26     88/45
                                           65/54     68/18     70/14     74/34     77/32     79/29     84/27     88/46
                                           66/01     68/19     70/28     74/35     77/33     79/32     85/06     88/47
                                           66/02     68/20     70/32     74/37     77/34     79/33     85/10     88/48
                                           66/03     68/21     70/33     74/38     77/35     79/35     85/17    102/01
                                           66/04     68/25     70/48     74/41     77/37     79/37     85/18    102/20
                                           66/05     68/26     70/49     74/42     77/38     79/40     85/19    121/11
                                           66/06     68/27     70/52     74/43     77/39     79/42     85/21    121/14
                                           66/07     68/28     70/53     74/44     77/40     80/54     85/22    121/16
                                           66/08     68/30     70/54     74/45     77/42     80/56     85/23
        L.ITYPE         6                  52/04 D   65/56     75/53     84/04     85/20     85/54     86/26     87/13
                                           56/40     67/12     83/07     84/16     85/27     86/02     86/30     87/19
                                           60/04 D   67/16     83/09     84/17     85/32     86/03     86/35    100/57
                                           63/51     73/41     83/10     84/28     85/42     86/06     86/52    104/42
                                           64/14     73/46     83/40     85/11     85/49     86/12     86/55
                                           64/35     73/56     83/50     85/15     85/51     86/17     87/04
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   148
        SYMBOLIC REFERENCE TABLE. 
  
        L.ITYPEM        6                  56/40 D   66/19     68/32     71/02     74/49     77/44     81/02     85/29
                                           63/15     66/20     68/34     71/05     74/50     77/45     81/03     85/30
                                           63/17     66/21     68/35     71/06     74/51     77/46     81/05     85/31
                                           63/18     66/22     68/36     71/09     74/52     77/49     81/06     85/33
                                           63/20     66/23     68/37     71/10     74/53     77/50     81/07     85/34
                                           63/21     66/25     68/38     71/14     74/54     77/53     81/09     85/35
                                           63/22     66/27     68/39     71/15     74/55     77/54     81/10     85/38
                                           63/23     66/28     68/40     73/06     75/01     77/56     81/11     85/39
                                           63/24     66/29     68/45     73/07     75/02     77/57     81/13     85/47
                                           63/25     66/30     68/46     73/08     75/06     78/01     81/14     85/50
                                           63/26     66/31     68/47     73/11     75/07     78/04     81/15     85/55
                                           63/27     66/32     68/48     73/13     75/11     78/05     81/16     85/56
                                           63/28     66/33     68/49     73/14     75/12     78/06     81/18     85/57
                                           63/29     66/34     68/51     73/15     75/13     78/07     81/19     86/01
                                           63/30     66/35     68/52     73/16     75/14     78/09     81/20     86/13
                                           63/32     66/36     68/53     73/18     75/15     78/10     81/22     86/14
                                           63/33     66/37     68/54     73/19     75/16     78/11     81/23     86/18
                                           63/34     66/38     68/55     73/20     75/19     78/13     81/24     86/27
                                           63/35     66/39     68/57     73/21     75/20     78/14     81/25     86/28
                                           63/46     66/40     69/01     73/22     75/21     78/15     81/27     86/31
                                           63/48     66/41     69/02     73/23     75/22     78/16     81/28     86/34
                                           63/49     66/42     69/03     73/25     75/25     78/19     81/29     86/37
                                           63/53     66/43     69/04     73/26     75/26     78/20     81/30     86/38
                                           63/54     66/45     69/05     73/27     75/27     78/22     81/39     86/39
                                           63/55     66/46     69/06     73/28     75/28     78/23     81/41     86/44
                                           63/56     66/47     69/07     73/29     75/29     78/24     81/42     86/45
                                           64/06     66/48     69/11     73/30     75/30     78/25     81/44     86/49
                                           64/08     66/49     69/12     73/31     75/33     78/28     81/45     86/56
                                           64/09     66/50     69/13     73/32     75/34     78/29     81/47     87/01
                                           64/11     66/51     69/14     73/33     75/35     78/30     81/48     87/02
                                           64/12     66/52     69/15     73/34     75/36     78/32     81/49     87/03
                                           64/13     66/53     69/17     73/35     75/37     78/33     81/51     87/07
                                           64/16     66/54     69/18     73/36     75/38     78/35     81/52     87/08
                                           64/17     66/55     69/19     73/37     75/39     78/36     81/53     87/12
                                           64/18     66/56     69/20     73/38     75/40     78/37     81/55     87/14
                                           64/19     66/57     69/21     73/40     75/43     78/40     81/56     87/20
                                           64/30     67/01     69/23     73/43     75/44     78/41     81/57     87/21
                                           64/32     67/14     69/24     73/44     75/45     78/42     82/01     87/26
                                           64/33     67/18     69/25     73/45     75/46     78/44     82/03     87/27
                                           64/37     67/19     69/26     73/48     75/47     78/45     82/04     87/28
                                           64/38     67/20     69/27     73/49     75/52     78/47     82/05     87/29
                                           64/39     67/21     69/28     73/50     75/54     78/48     82/07     87/30
                                           64/40     67/22     69/29     73/51     75/57     78/49     82/08     87/31
                                           65/06     67/23     69/30     73/52     76/07     78/52     82/09     87/36
                                           65/09     67/24     69/42     73/53     76/08     78/53     82/10     87/45
                                           65/10     67/25     69/43     73/55     76/13     78/54     82/12     87/46
                                           65/21     67/26     69/44     74/07     76/14     78/56     82/13     87/47
                                           65/23     67/27     69/46     74/08     77/07     78/57     82/14     87/48
                                           65/25     67/28     69/47     74/09     77/08     79/01     82/15     88/08
                                           65/26     67/29     69/48     74/10     77/09     79/03     83/08     88/11
                                           65/27     67/30     69/49     74/11     77/11     79/04     83/37     88/12
                                           65/28     67/31     69/50     74/12     77/12     79/05     83/38     88/15
                                           65/29     67/43     69/52     74/13     77/13     79/06     83/39     88/16
                                           65/30     67/45     69/53     74/14     77/14     79/09     83/47     88/19
                                           65/31     67/47     69/54     74/15     77/17     79/10     83/48     88/20
                                           65/32     67/49     69/56     74/16     77/18     79/11     83/49     88/21
                                           65/34     67/51     69/57     74/17     77/19     79/13     84/01     88/24
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   149
        SYMBOLIC REFERENCE TABLE. 
  
                                           65/35     67/53     70/01     74/18     77/20     79/14     84/02     88/25
                                           65/36     68/09     70/02     74/19     77/22     79/15     84/03     88/26
                                           65/37     68/10     70/03     74/25     77/23     79/17     84/12     88/29
                                           65/38     68/11     70/05     74/26     77/24     79/18     84/13     88/30
                                           65/39     68/13     70/06     74/28     77/26     79/19     84/14     88/31
                                           65/40     68/14     70/07     74/29     77/27     79/20     84/15     88/32
                                           65/41     68/16     70/12     74/30     77/28     79/23     84/25     88/44
                                           65/52     68/17     70/13     74/31     77/29     79/26     84/26     88/45
                                           65/54     68/18     70/14     74/34     77/32     79/29     84/27     88/46
                                           66/01     68/19     70/28     74/35     77/33     79/32     85/06     88/47
                                           66/02     68/20     70/32     74/37     77/34     79/33     85/10     88/48
                                           66/03     68/21     70/33     74/38     77/35     79/35     85/17
                                           66/04     68/25     70/48     74/41     77/37     79/37     85/18
                                           66/05     68/26     70/49     74/42     77/38     79/40     85/19
                                           66/06     68/27     70/52     74/43     77/39     79/42     85/21
                                           66/07     68/28     70/53     74/44     77/40     80/54     85/22
                                           66/08     68/30     70/54     74/45     77/42     80/56     85/23
                                           66/18     68/31     71/01     74/48     77/43     80/57     85/28
        L.LBIAS        22   TSTEXT         39/36     40/06     40/08     42/55
        L.LI12         14   TSTEXT         42/55
        L.MARG         22                  60/06 D   67/16     83/09     84/17     85/32     86/03     86/35
                                           63/51     73/41     83/10     84/28     85/42     86/06     86/52
                                           64/14     73/46     83/40     85/11     85/49     86/12     86/55
                                           64/35     73/56     83/50     85/15     85/51     86/17     87/04
                                           65/56     75/53     84/04     85/20     85/54     86/26     87/13
                                           67/12     83/07     84/16     85/27     86/02     86/30     87/19
        L.MATTR        22                  60/05 D   67/16     83/09     84/17     85/32     86/03     86/35
                                           63/51     73/41     83/10     84/28     85/42     86/06     86/52
                                           64/14     73/46     83/40     85/11     85/49     86/12     86/55
                                           64/35     73/56     83/50     85/15     85/51     86/17     87/04
                                           65/56     75/53     84/04     85/20     85/54     86/26     87/13
                                           67/12     83/07     84/16     85/27     86/02     86/30     87/19
        L.MJPAD        22                  60/07 D   67/16     83/09     84/17     85/32     86/03     86/35
                                           63/51     73/41     83/10     84/28     85/42     86/06     86/52
                                           64/14     73/46     83/40     85/11     85/49     86/12     86/55
                                           64/35     73/56     83/50     85/15     85/51     86/17     87/04
                                           65/56     75/53     84/04     85/20     85/54     86/26     87/13
                                           67/12     83/07     84/16     85/27     86/02     86/30     87/19
        L.MODE          3   TSTEXT          6/57     46/12     46/23     46/34     46/45     47/13     47/26     47/37
                                            8/38     46/13     46/24     46/35     47/03     47/14     47/27     47/38
                                           14/26     46/14     46/25     46/36     47/04     47/15     47/28     47/39
                                           24/52     46/15     46/26     46/37     47/05     47/16     47/29     47/40
                                           29/02     46/16     46/27     46/38     47/06     47/18     47/30     47/41
                                           46/06     46/17     46/28     46/39     47/07     47/19     47/31     47/42
                                           46/07     46/18     46/29     46/40     47/08     47/20     47/32     47/43
                                           46/08     46/19     46/30     46/41     47/09     47/21     47/33     47/44
                                           46/09     46/20     46/31     46/42     47/10     47/22     47/34     96/39
                                           46/10     46/21     46/32     46/43     47/11     47/23     47/35     97/32
                                           46/11     46/22     46/33     46/44     47/12     47/25     47/36
        L.PNT          15   TSTEXT         22/37     30/42
        L.PWF          15   TSTEXT         39/53
        L.RELADD       30   TSTEXT         40/01
        L.RUSE         11   TSTEXT         35/08     97/41    109/31    110/50    116/53
                                           96/26    109/17    110/25    115/49
        L.SBPR         22   TSTEXT         15/42     15/52     20/53     29/47
        L.SDIMNO       22                  13/33 D
        L.SHC          22   TSTEXT          6/29
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   150
        SYMBOLIC REFERENCE TABLE. 
  
        L.SVBIAS        3                  13/34 D   13/36 F
        L.SYM          52   TSTEXT          8/47      9/54     11/38
        L.TAG          22   TSTEXT         16/44     16/54    129/18
        L.TURP          3   TSTEXT          8/02     17/49     83/50     84/28     95/16    105/14    107/07    127/05
                                            8/05     33/25     84/04     94/32     95/25    106/55    119/15    127/32
                                           17/17     83/40     84/17     94/57    101/23    107/07    126/08
        L.UARGC         6   TSTEXT          9/40
        L.2BIAS        22   TSTEXT         14/39     14/46     29/34     35/10    114/44
                                           14/45     23/17     29/35     94/23    116/29
        L.2CLAS         6   TSTEXT         94/23
        L.2FPNO         6   TSTEXT         35/10     37/20     94/23    114/44    116/29
        L.2TAG         22   TSTEXT         35/10     94/23     97/18    114/44    116/29    122/24
        MAX.DIM         3   TSTEXT         13/34
        MAX.SARG       77   TSTEXT          9/26
        MAX.USEC      777   TSTEXT        110/49    111/17    111/17    115/48    115/48
        MIJ          3300                  53/20 D   78/10     78/20     78/42     78/49     79/01     79/32     84/03
                                           78/06     78/15     78/25     78/45     78/54     79/06     79/37     84/27
        MOD             0   EXTERNAL*       3/42 X   93/19
        MODECON      1602   PROGRAM*        3/26 E   14/36     28/01     72/48     72/51     72/53
                                           14/33 S   27/54 S   70/44 L   72/50     72/52
        MODTBL       1620   PROGRAM*        3/24 E   72/47 L
        MULT            0   EXTERNAL*       3/42 X   15/41
        MULT(S          0   EXTERNAL*       3/42 X   20/44
        MULT.C       1324   PROGRAM*       65/18     65/33 L
        MULT.D       1314   PROGRAM*       65/18     65/24 L   65/56
        MULT.I       1312   PROGRAM*        3/19 E   65/18     65/19 L
        MULT.R       1313   PROGRAM*        3/24 E   65/18     65/22 L
        MVE             0   EXTERNAL*      93/33
        MXP            76   PROGRAM*        3/12 E    7/54 L
        MXP5          103   PROGRAM*        7/57      8/05 L
        M.ADDR       2000   TSTEXT          6/56     42/28
        M.ARY         400   TSTEXT         24/31
        M.BRAN          3                  52/10 D   77/22     77/45     78/09     78/32     79/14     79/39     86/30
                                           77/06     77/23     77/48     78/10     78/36     79/19     79/41     86/48
                                           77/07     77/27     77/49     78/14     78/41     79/22     83/38     86/55
                                           77/08     77/28     77/52     78/15     78/44     79/25     83/48     87/07
                                           77/11     77/33     77/53     78/18     78/48     79/28     84/02     87/11
                                           77/12     77/34     77/56     78/19     78/53     79/31     84/14     87/13
                                           77/13     77/38     77/57     78/23     78/57     79/32     84/26
                                           77/18     77/39     78/05     78/24     79/05     79/34     85/05
                                           77/19     77/44     78/06     78/29     79/10     79/36     85/49
        M.COND          0                  52/07 D
        M.CPLX          5   TSTEXT         46/07     46/16     47/18     47/20     47/22
                                           46/15     46/41     47/19     47/21     47/23
        M.DBL           4   TSTEXT          8/45     46/21     46/24     47/03     47/06     47/09     47/12     47/15
                                           46/18     46/22     46/28     47/04     47/07     47/10     47/13     47/16
                                           46/19     46/23     46/44     47/05     47/08     47/11     47/14
        M.DEF          10   TSTEXT          9/23
        M.ICALL         5                  52/12 D   83/09     85/19     85/48     86/02     86/25     86/54
                                           75/52     84/15     85/26     85/50     86/05     86/29     87/03
                                           83/06     85/10     85/31     85/53     86/11     86/34     87/12
                                           83/08     85/14     85/41     86/01     86/16     86/51     87/18
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   151
        SYMBOLIC REFERENCE TABLE. 
  
        M.IEND         40                  52/19 D   65/52     68/40     73/16     76/08     78/49     81/30     86/03
                                           63/15     65/54     68/49     73/23     76/14     78/54     81/39     86/06
                                           63/18     65/56     68/55     73/38     77/09     79/01     81/42     86/14
                                           63/30     66/08     69/07     73/41     77/14     79/06     81/45     86/18
                                           63/35     66/23     69/15     73/46     77/20     79/11     81/49     86/31
                                           63/46     66/25     69/21     73/53     77/24     79/15     81/53     86/39
                                           63/49     66/43     69/30     73/56     77/29     79/20     82/01     86/45
                                           63/51     67/01     69/44     74/19     77/35     79/23     82/05     86/49
                                           63/56     67/12     69/50     74/26     77/40     79/26     82/10     86/52
                                           64/06     67/14     69/54     74/31     77/46     79/29     82/15     87/04
                                           64/09     67/16     70/03     74/35     77/50     79/33     83/10     87/08
                                           64/14     67/31     70/07     74/38     77/54     79/35     83/40     87/14
                                           64/19     67/43     70/14     74/45     78/01     79/37     83/50     87/21
                                           64/30     67/45     70/28     74/55     78/07     79/40     84/04     87/31
                                           64/33     67/47     70/33     75/02     78/11     79/42     84/17     87/36
                                           64/35     67/49     70/49     75/07     78/16     80/54     84/28     87/48
                                           64/40     67/51     70/54     75/16     78/20     80/57     85/06     88/08
                                           65/06     67/53     71/02     75/22     78/25     81/03     85/11     88/12
                                           65/10     68/11     71/06     75/30     78/30     81/07     85/23     88/16
                                           65/21     68/14     71/10     75/40     78/33     81/11     85/35     88/21
                                           65/23     68/21     71/15     75/47     78/37     81/16     85/39     88/26
                                           65/32     68/28     73/08     75/54     78/42     81/20     85/42     88/32
                                           65/41     68/32     73/11     75/57     78/45     81/25     85/51     88/48
        M.INCR          2                  52/09 D   84/01     85/17     85/37     85/57     86/38     87/20
                                           75/25     84/12     85/22     85/38     86/26     86/43     87/25
                                           76/06     84/13     85/27     85/46     86/27     86/44     87/27
                                           76/12     84/25     85/28     85/54     86/33     86/57     87/30
                                           83/46     85/09     85/29     85/55     86/36     87/02     88/45
                                           83/57     85/15     85/34     85/56     86/37     87/06     88/47
        M.INT           2   TSTEXT          5/53     17/46     25/06     29/07     46/26     46/31     46/36
                                            6/32     18/08     25/23     32/14     46/27     46/32     46/37
                                           14/28     20/06     27/12     46/09     46/28     46/33     46/38
                                           15/24     20/24     28/49     46/11     46/29     46/34
                                           17/06     24/53     29/04     46/25     46/30     46/35
        M.INTR       1000   TSTEXT         24/10
        M.IRST          7                  52/14 D   64/13     65/55     67/15     73/45     83/39     84/03     84/27
                                           63/50     64/34     67/11     73/40     73/55     83/49     84/16
        M.IUSE          6                  52/13 D
        M.LCF         100   TSTEXT          6/56
        M.LOAD         10                  52/15 D   70/32     88/07     88/14     88/19     88/24     88/29    104/15
                                           70/27     84/11     88/10     88/15     88/20     88/25     88/30
                                           70/31     87/44     88/11     88/18     88/23     88/28     88/31
        M.LOG           1   TSTEXT         25/13
        M.LONG          4   TSTEXT         23/15     97/48
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   152
        SYMBOLIC REFERENCE TABLE. 
  
        M.NORM          1                  52/08 D   65/26     66/47     68/33     70/52     74/29     78/21     81/28
                                           63/14     65/27     66/48     68/34     70/53     74/30     78/22     81/29
                                           63/16     65/28     66/49     68/35     70/57     74/34     78/27     81/38
                                           63/17     65/29     66/50     68/36     71/05     74/40     78/28     81/40
                                           63/19     65/30     66/51     68/37     71/08     74/41     78/31     81/41
                                           63/20     65/31     66/52     68/38     71/14     74/44     78/34     81/43
                                           63/21     65/33     66/53     68/39     73/07     74/49     78/35     81/44
                                           63/22     65/34     66/54     68/44     73/12     74/50     78/39     81/46
                                           63/23     65/35     66/55     68/45     73/13     74/53     78/40     81/47
                                           63/24     65/36     66/56     68/46     73/14     74/54     78/43     81/48
                                           63/25     65/37     66/57     68/47     73/15     74/57     78/46     81/50
                                           63/26     65/38     67/13     68/48     73/17     75/01     78/47     81/51
                                           63/27     65/39     67/17     68/50     73/20     75/05     78/51     81/52
                                           63/28     65/40     67/18     68/51     73/21     75/12     78/52     81/54
                                           63/29     65/51     67/19     68/52     73/22     75/15     78/55     81/55
                                           63/31     65/53     67/20     68/53     73/24     75/18     78/56     81/56
                                           63/32     65/57     67/21     68/54     73/25     75/21     79/02     81/57
                                           63/33     66/01     67/22     68/56     73/26     75/24     79/03     82/02
                                           63/34     66/02     67/23     68/57     73/27     75/29     79/04     82/03
                                           63/45     66/03     67/24     69/01     73/28     75/32     79/08     82/04
                                           63/47     66/04     67/25     69/02     73/29     75/33     79/09     82/06
                                           63/48     66/05     67/26     69/03     73/32     75/34     79/12     82/07
                                           63/52     66/06     67/27     69/04     73/33     75/35     79/13     82/08
                                           63/53     66/07     67/28     69/05     73/34     75/36     79/16     82/09
                                           63/54     66/17     67/29     69/06     73/35     75/38     79/17     82/11
                                           63/55     66/18     67/30     69/10     73/36     75/39     79/18     82/12
                                           64/05     66/19     67/42     69/11     73/37     75/44     80/53     82/13
                                           64/07     66/20     67/44     69/12     73/39     75/45     80/55     82/14
                                           64/08     66/21     67/46     69/13     73/42     75/46     80/56     83/36
                                           64/10     66/24     67/48     69/14     73/43     75/51     81/01     83/37
                                           64/11     66/26     67/50     69/16     73/44     75/53     81/02     83/47
                                           64/12     66/27     67/52     69/17     73/47     77/10     81/04     84/24
                                           64/15     66/28     68/08     69/18     73/50     77/16     81/05     85/18
                                           64/16     66/29     68/09     69/19     73/51     77/17     81/06     85/21
                                           64/17     66/30     68/10     69/20     73/52     77/21     81/08     85/30
                                           64/18     66/31     68/12     69/22     73/54     77/25     81/09     85/33
                                           64/29     66/32     68/13     69/23     74/06     77/26     81/10     87/26
                                           64/31     66/33     68/15     69/24     74/07     77/31     81/12     87/28
                                           64/32     66/34     68/16     69/25     74/08     77/32     81/13     87/29
                                           64/36     66/35     68/17     69/26     74/09     77/36     81/14     87/45
                                           64/37     66/36     68/18     69/27     74/10     77/37     81/15     87/46
                                           64/38     66/37     68/19     69/28     74/11     77/41     81/17     87/47
                                           64/39     66/38     68/20     69/29     74/12     77/42     81/18     88/46
                                           65/05     66/39     68/24     69/49     74/13     77/43     81/19
                                           65/08     66/40     68/25     69/53     74/14     77/55     81/21
                                           65/09     66/41     68/26     69/57     74/15     78/03     81/22
                                           65/20     66/42     68/27     70/06     74/16     78/04     81/23
                                           65/22     66/44     68/29     70/47     74/17     78/08     81/24
                                           65/24     66/45     68/30     70/48     74/18     78/12     81/26
                                           65/25     66/46     68/31     70/51     74/25     78/13     81/27
        M.PFNC       1000   TSTEXT         93/21
        M.PSUB       2000   TSTEXT         93/21
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   153
        SYMBOLIC REFERENCE TABLE. 
  
        M.REAL          3   TSTEXT         25/11     46/11     46/25     46/41     47/27     47/33     47/39
                                           46/06     46/12     46/29     46/43     47/28     47/34     47/40
                                           46/07     46/13     46/30     46/44     47/29     47/35     47/41
                                           46/08     46/15     46/35     47/18     47/30     47/36     47/42
                                           46/09     46/19     46/37     47/25     47/31     47/37     47/43
                                           46/10     46/20     46/40     47/26     47/32     47/38     47/44
        M.SHIF          4                  52/11 D   69/52     71/01     73/31     74/43     75/19     76/13     88/43
                                           66/22     69/55     71/04     73/48     74/47     75/20     83/07     88/44
                                           69/41     69/56     71/09     73/49     74/48     75/26     85/20    122/28
                                           69/42     70/01     71/13     74/24     74/51     75/27     85/32
                                           69/43     70/02     73/05     74/27     74/52     75/28     86/12
                                           69/45     70/04     73/06     74/28     75/06     75/37     86/13
                                           69/46     70/05     73/10     74/33     75/10     75/42     86/17
                                           69/47     70/11     73/18     74/36     75/11     75/43     87/01
                                           69/48     70/12     73/19     74/37     75/13     75/56     87/19
                                           69/51     70/13     73/30     74/42     75/14     76/07     87/35
        M.SHORT      4000   TSTEXT          6/32     20/06
        M.SMULT     10000   TSTEXT         20/06     26/36     27/31
        M.SYSEXT    20100   TSTEXT          7/14    127/24
        M.UNIV          0   TSTEXT          5/34     14/30     28/52     46/17     46/33     46/40     46/45
                                            8/51     27/13     46/14     46/32     46/39     46/42
        M.2ARY      40000   TSTEXT         24/10     24/31     42/29
        M.2PRO      10000   TSTEXT         15/24     17/46     20/24     32/14
        NCS             0   EXTERNAL*       3/57 X    5/40      5/54      6/13     15/37     17/07     18/09     25/26
        NEB          5000                  53/28 D
        NE.D         1515   PROGRAM*       68/43     68/56 L
        NE.I         1503   PROGRAM*       68/43     68/44 L
        NE.R         1510   PROGRAM*       68/43     68/50 L
        NOLDS           0   EXTERNAL*       3/43 X   42/47    100/10 S  104/56
        NOOP        46000                  54/31 D
        NORMZ       24000                  53/53 D   63/56     66/04     67/25     69/18     74/19     78/09     79/14
                                           63/18     64/09     66/08     67/29     69/24     74/42     78/14     79/19
                                           63/23     64/17     66/19     68/14     69/27     75/02     78/23
                                           63/26     64/19     66/31     68/18     70/49     75/34     78/32
                                           63/28     64/33     66/40     68/31     70/53     75/54     78/36
                                           63/33     64/38     66/48     68/36     73/16     77/22     78/44
                                           63/35     64/40     66/52     68/52     73/28     77/27     78/48
                                           63/49     65/37     66/56     69/02     74/11     77/38     78/57
                                           63/54     65/41     67/21     69/04     74/17     77/44     79/05
        NSTDIF       2170   PROGRAM*        3/22 E   80/39 L
        NULLOP       3007   PROGRAM*        3/29 E  104/24    106/41 L  109/51    125/22    128/12    129/37
        NZJ          3100                  53/18 D   78/07     78/11     78/16     79/26     79/40
        N.TABLE         0   EXTERNAL*       3/42 X   94/27
        OPBIAS       3444   PROGRAM*       39/46
        OPCODE       3326   PROGRAM*      102/22 S  109/36    110/17    124/25 L
        OPTYP        3330   PROGRAM*      101/05 S  104/12    122/26    124/29 L
        OR          12000                  53/38 D   68/49     69/05     69/28     77/11     87/30     88/47
                                           67/45     68/55     69/07     73/38     77/56     87/48
        ORJ          3500                  53/23 D
        ORN         16000                  53/43 D   67/49     85/19     85/31
        OR.OPR          0   TSTEXT        100/07    118/18
        OR.1OP          1   TSTEXT         36/47     95/09    105/19    118/08    118/16    126/53
        OR.2OP          2   TSTEXT         34/06     95/01     97/52    126/07    126/50
                                           36/30     95/09    118/35    126/22    126/53
        OSE             0   EXTERNAL*       3/51 X   23/03     23/06     24/56     27/06     27/25     30/37
        O=ABS        1626   PROGRAM*       46/06     73/05 L   73/09
        O=ADD        1224   PROGRAM*        3/14 E   63/13 L   63/13
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   154
        SYMBOLIC REFERENCE TABLE. 
  
        O=AIMAG      1631   PROGRAM*       46/07     73/10 L
        O=AINT       1632   PROGRAM*       46/08     73/12 L
        O=AMAX0      1636   PROGRAM*       46/09     74/03 D
        O=AMAX1      1670   PROGRAM*       46/10     73/47 L   73/56     74/01
        O=AMIN0      1662   PROGRAM*       46/11     74/04 D
        O=AMIN1      1676   PROGRAM*       46/12     73/54 L   74/02
        O=AMOD       1700   PROGRAM*       46/13     74/06 L
        O=AND        1441   PROGRAM*        7/31     74/21 D
        O=ANDN       1445   PROGRAM*        3/16 E   67/50 L
        O=ANDO       1441   PROGRAM*        3/15 E   67/42 L   74/21
        O=APLUG      2427   PROGRAM*        3/15 E   87/44 L
        O=ASSGN      2340   PROGRAM*        3/15 E   85/37 L
        O=BSS        2342   PROGRAM*        3/16 E   85/41 L
        O=CAR        3337   PROGRAM*       83/07     85/27     86/03     86/17    125/39 L
                                           85/15     85/51     86/12     87/04
        O=CDW        3335   PROGRAM*       85/20     85/32     85/49     85/54     86/26     87/19    125/18 L
        O=CDWX       3336   PROGRAM*      125/20 L  125/41
        O=CMPLX      1725   PROGRAM*       46/15     74/36 L
        O=COMPL      1306   PROGRAM*        7/40     74/22 D
        O=CONJG      1715   PROGRAM*       46/16     74/24 L
        O=DABS       1717   PROGRAM*       46/18     74/27 L
        O=DBLE       1723   PROGRAM*       46/19     74/33 L
        O=DIM        1727   PROGRAM*       46/20     74/40 L
        O=DIV        1350   PROGRAM*        3/14 E   66/16 L   66/16
        O=DIVP2      1573   PROGRAM*        3/18 E   70/11 L
        O=DMAX1      1644   PROGRAM*       46/21     73/24 L   73/46
        O=DMIN1      1664   PROGRAM*       46/22     73/42 L
        O=DOB        2262   PROGRAM*        3/16 E   83/06 L
        O=DOC1       2266   PROGRAM*        3/17 E   83/36 L
        O=DOC2       2272   PROGRAM*        3/17 E   83/46 L
        O=DOC3       2276   PROGRAM*        3/17 E   83/57 L
        O=DOC3A      2302   PROGRAM*        3/18 E   84/11 L
        O=DOC4       2310   PROGRAM*        3/17 E   84/24 L
        O=DSIGN      1734   PROGRAM*       46/24     74/47 L
        O=EPO        3341   PROGRAM*        3/28 E  126/07 L
        O=EQ         1525   PROGRAM*        3/14 E   69/09 L   69/09
        O=FLOAT      1744   PROGRAM*       46/25     74/57 L
        O=GE         1463   PROGRAM*        3/14 E   68/23 L   68/23
        O=GOA        2315   PROGRAM*        3/16 E   85/09 L
        O=GOC        2317   PROGRAM*        3/24 E   85/14 L
        O=GOCL       2327   PROGRAM*        3/35 E   85/26 L
        O=GOTON      2314   PROGRAM*        3/21 E   85/05 L
        O=IABS       1626   PROGRAM*       46/26     73/09 D
        O=IDIM       1756   PROGRAM*       46/27     75/18 L
        O=IDINT      1746   PROGRAM*       46/28     75/05 L
        O=IFIX       1746   PROGRAM*       46/29     75/03 L
        O=INT        1746   PROGRAM*        3/16 E   46/30     75/04 L
        O=ISIGN      1750   PROGRAM*       46/31     75/10 L
        O=LT         1447   PROGRAM*        3/14 E   68/07 L   68/07
        O=MASK       1762   PROGRAM*        5/30     75/24 L
        O=MAX0       1636   PROGRAM*       46/34     73/17 L   73/41     74/03
        O=MAX1       1670   PROGRAM*       46/35     74/01 D
        O=MIN0       1662   PROGRAM*       46/36     73/39 L   74/04
        O=MIN1       1676   PROGRAM*       46/37     74/02 D
        O=MOD        1770   PROGRAM*        5/47     75/32 L
        O=MODP2      2000   PROGRAM*        5/55     75/42 L
        O=MULT       1311   PROGRAM*        3/14 E   65/18 L   65/18
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   155
        SYMBOLIC REFERENCE TABLE. 
  
        O=NE         1502   PROGRAM*        3/14 E   68/43 L   68/43
        O=NOOP       3014   PROGRAM*        3/29 E  106/54 L
        O=NOT        1306   PROGRAM*        3/15 E   65/07 D   74/22
        O=NTR        2367   PROGRAM*        3/20 E   86/29 L
        O=NTRM       2371   PROGRAM*        3/21 E   86/33 L
        O=NTRN       2373   PROGRAM*        3/21 E   86/36 L
        O=NTRN1      2376   PROGRAM*       86/42 E   86/43 L
        O=NTRP       2410   PROGRAM*        3/21 E   87/06 L
        O=NTRX       2400   PROGRAM*        3/21 E   86/48 L
        O=NTRY       2401   PROGRAM*        3/21 E   86/51 L
        O=NTR0       2402   PROGRAM*        3/20 E   86/54 L
        O=NTR1       2404   PROGRAM*       86/57 L
        O=OR         1442   PROGRAM*        7/34     75/49 D
        O=ORN        1444   PROGRAM*        3/19 E   67/48 L
        O=ORO        1442   PROGRAM*        3/15 E   67/44 L   75/49
        O=OTR        3344   PROGRAM*        3/09 E  126/22 L
        O=OTRA       3404   PROGRAM*      126/34    127/37 E  127/38 L
        O=OTRB       3405   PROGRAM*      126/32 S  126/47    127/28    127/39 L
        O=OTR10      3362   PROGRAM*      126/52 L
        O=OTR20      3365   PROGRAM*      126/25    126/55    127/03 L
        O=OTR30      3400   PROGRAM*      126/38    127/26 L
        O=QUITP      2343   PROGRAM*        3/22 E   85/46 L
        O=QUITS      2344   PROGRAM*        3/20 E   85/48 L
        O=RADD       1247   PROGRAM*       63/43 E   63/44 L   63/44
        O=RAGDD      2446   PROGRAM*        3/10 E   88/28 L
        O=RAGDS      2443   PROGRAM*        3/10 E   88/23 L
        O=RAGD1      2434   PROGRAM*        3/35 E   88/10 L
        O=RAGSD      2440   PROGRAM*        3/10 E   88/18 L
        O=RAGSS      2436   PROGRAM*        3/10 E   88/14 L
        O=RAGS1      2433   PROGRAM*        3/35 E   88/07 L
        O=RANF       2005   PROGRAM*        3/26 E   75/51 L
        O=RDIV       1417   PROGRAM*       67/09 E   67/10 L   67/10
        O=REAL       2010   PROGRAM*       46/41     75/56 L   76/01
        O=RETD       2357   PROGRAM*        3/16 E   86/11 L
        O=RETN       2364   PROGRAM*        3/20 E   86/25 L
        O=RETS       2362   PROGRAM*        3/16 E   86/16 L
        O=RET0       2356   PROGRAM*       86/05 L
        O=RJSUB      2452   PROGRAM*        3/29 E   88/43 L
        O=RMULT      1334   PROGRAM*       65/49 E   65/50 L   65/50
        O=RNF        3416   PROGRAM*       75/53    128/45 L
        O=RSUB       1274   PROGRAM*       64/27 E   64/28 L   64/28
        O=RTNA       2347   PROGRAM*        3/26 E   85/53 L
        O=SHFC       1550   PROGRAM*        3/18 E   69/41 L
        O=SHFD       1553   PROGRAM*        3/18 E   69/45 L
        O=SHFDS      1560   PROGRAM*        3/18 E   69/51 L
        O=SHFS       1563   PROGRAM*        3/18 E   69/55 L
        O=SHFSA      1570   PROGRAM*        3/18 E   70/04 L
        O=SHIFT      2011   PROGRAM*        6/04     76/06 L
        O=SHIFTC     2013   PROGRAM*        6/35     76/12 L
        O=SIGN       1750   PROGRAM*       46/43     75/09 L
        O=SLNO       2420   PROGRAM*       87/25 L
        O=SNGL       2010   PROGRAM*       46/44     76/01 D
        O=STR        1576   PROGRAM*        3/14 E    3/20 E   70/25 L   70/25
        O=STRC       2415   PROGRAM*        3/16 E   87/18 L
        O=SUB        1260   PROGRAM*        3/14 E   64/04 L   64/04
        O=SUBL        602   PROGRAM*        3/09 E   33/16 L
        O=UMIN       1305   PROGRAM*        3/15 E   65/04 L   65/04
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   156
        SYMBOLIC REFERENCE TABLE. 
  
        O=VOID       2412   PROGRAM*       87/10 E   87/11 L
        O=XMIT       2426   PROGRAM*        3/26 E   87/35 L
        O=XOR        1443   PROGRAM*        3/15 E    7/37     67/46 L
        O=XORN       1446   PROGRAM*        3/15 E   67/52 L
        O.EOS           0   TSTEXT        105/17
        O.MIN           5   TSTEXT         29/11
        O.MULT          6   TSTEXT         15/43     27/30
        O.MXP          54   TSTEXT          8/03
        O.PL            4   TSTEXT         15/51     19/50     29/09     29/11
        O.STAR          6   TSTEXT         20/47
        O.UMIN         27   TSTEXT         29/49
        O.=            12   TSTEXT        105/21    118/20    119/16
        PACK        27000                  53/56 D   66/20     70/52     74/09     75/33
                                           66/18     70/48     73/14     75/01     75/35
        PAR.NX          0   EXTERNAL*       4/13 X   19/57     21/02
        PIG             0   EXTERNAL*     126/46
        PIGLAB          0   EXTERNAL*     127/02 S
        PIGLINE         0   EXTERNAL*     126/57 S
        PLJ          3200                  53/19 D   77/19     77/34     77/54     78/33     79/15     83/39
                                           77/08     77/23     77/39     78/01     78/37     79/20     83/49
                                           77/13     77/28     77/45     78/30     79/11     79/35
        PLUS            0   EXTERNAL*       3/43 X   15/50
        PLUS(S          0   EXTERNAL*       3/43 X   19/49     20/22
        POPCNT      47000                  54/32 D
        POPX            0   EXTERNAL*       4/13 X   23/49
        POP.STD         0   EXTERNAL*       4/13 X   24/36
        PSO           452   PROGRAM*        3/12 E   26/51 L
        PSONX         444   PROGRAM*       26/35 L
        PSOX          445   PROGRAM*       26/36 L   28/21     28/53     29/13     29/54
                                           28/16     28/26     29/01     29/46
        PSO10         462   PROGRAM*       27/01     27/11 L
        PSO15         466   PROGRAM*       27/16     27/17     27/20 L
        PSO20         473   PROGRAM*       27/20     27/30 L
        PSO22         502   PROGRAM*       27/51     27/54 L
        PSO25         506   PROGRAM*       27/32     27/42     27/43     28/06 L
        PSO30         514   PROGRAM*       28/08     28/25 L
        PSO35         520   PROGRAM*       28/36     28/45 L
        PSO40         524   PROGRAM*       28/51     29/01 L
        PSO45         533   PROGRAM*       29/10     29/15     29/30 L
        PSO80         450   PROGRAM*       26/42     26/44 L
        PSO81         452   PROGRAM*       26/45     26/48 L
        PWE             0   EXTERNAL*       6/46      8/50      9/57     11/41
        P.             73   TSTEXT          6/16     28/16     34/03     91/36     97/55    114/30    128/11
                                           16/43     30/34     35/07     91/37    100/16    114/49
                                           23/56     31/20     90/38     95/39    114/29    118/39
        P.ACM          22   TSTEXT         19/09     19/19
        P.ADDR         12   TSTEXT         24/30     34/03     95/57
        P.AMADDR       47   TSTEXT         24/22     24/25
        P.ARGC         22   TSTEXT         11/23
        P.ARY          10   TSTEXT          6/53
        P.DIM          36   TSTEXT         16/41     19/18     31/14     32/04     32/09     32/10     32/11
        P.DMOD         33   TSTEXT         97/38
        P.IEND         73                  52/20 D  104/22    105/02
        P.INTR         11   TSTEXT          6/51     91/36     95/40     97/49    114/29
                                           35/07     91/37     95/56     97/55    118/39
        P.INUM         21                  52/23 D   56/42
        P.INUMM        21                  56/42 D
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   157
        SYMBOLIC REFERENCE TABLE. 
  
        P.IOAD         14                  52/24 D   56/43
        P.IOADM        14                  56/43 D
        P.IOPC         55                  52/22 D   56/41    102/18    102/21    104/22
        P.IOPCM        55                  56/41 D
        P.IQF           0                  52/25 D   56/44
        P.IQFM          0                  56/44 D
        P.ITYPE        66                  52/04 D   56/40     60/04 D  100/56    105/02
        P.ITYPEM       66                  56/40 D
        P.JPAD         52   TSTEXT         33/52     97/34     97/57    100/15
        P.LBIAS        14   TSTEXT         38/55     39/37     40/03     40/06     42/55    127/09
        P.LI12         60   TSTEXT         42/55    127/15    128/33
        P.LI15         55   TSTEXT         35/48     38/48     39/40     42/19    115/15    118/55    129/30
                                           38/09     38/53     41/13    104/30    117/03    129/11    129/34
        P.LONG          2   TSTEXT         23/56     97/53
        P.MARG         22                  60/06 D  101/32
        P.MATTR        44                  60/05 D
        P.MJPAD         0                  60/07 D
        P.MODC         22   TSTEXT         97/36     97/44     97/51     98/03
        P.MODE          0   TSTEXT          7/01
        P.MSHORT       30   TSTEXT          6/20
        P.NDIM         66   TSTEXT         31/27
        P.NONSTD       45   TSTEXT        100/16
        P.OPADDR       46   TSTEXT         24/25     24/30
        P.PNT          30   TSTEXT         22/38     30/44     31/04
        P.PTAGL         0   TSTEXT        122/15
        P.PTAGM        30   TSTEXT         24/03    122/13
        P.PTAGU        52   TSTEXT        122/11
        P.SANSI        44                  13/35 D   30/34
        P.SATAG        52   TSTEXT         13/36 F   31/05
        P.SDIM         26   TSTEXT         16/43
        P.SDIMNO        0                  13/33 D
        P.SHC          52   TSTEXT          6/17      6/31     20/05
        P.SHORT        13   TSTEXT          6/16     95/39     95/40    114/49    114/51
        P.SMULT        14   TSTEXT         28/16
        P.SNINA         2   TSTEXT        128/11
        P.SVBIAS       22                  13/34 D   13/36 F
        P.TAG          52   TSTEXT         31/04     32/16     91/06    111/16
        P.TDIM         27   TSTEXT         17/04     19/37     32/06
        P.TGB          67   TSTEXT         26/39     26/40     95/34
        P.TRC          22   TSTEXT          8/10    126/10    127/07
        P.TYPE         21   TSTEXT        114/22
        P.UARGC        30   TSTEXT          9/28      9/41
        P.VDIM         35   TSTEXT         31/20
        P.2ARY         16   TSTEXT         90/38     95/56     95/57     97/49    114/30
        P.2BIAS        30   TSTEXT          7/22     23/21     23/27     37/06     38/54     94/23    114/48    116/32
        P.2CLAS        11   TSTEXT         94/23
        P.2EQUIV       15   TSTEXT        114/51
        P.2FPNO        22   TSTEXT         37/21     94/23     96/41
        P.2TAG         52   TSTEXT          9/20     15/25     17/47     18/19     39/52     96/03
                                           11/14     16/47     18/03     22/33     94/23     97/24
        RADD.C       1254   PROGRAM*       63/44     63/52 L
        RADD.D       1253   PROGRAM*       63/44     63/50 L
        RADD.I       1250   PROGRAM*       63/44     63/45 L
        RADD.R       1251   PROGRAM*       63/44     63/47 L
        RANF            0   EXTERNAL*       3/43 X    7/24
        RDIV        45000                  54/30 D   67/14     67/30     67/31
        RDIV.C       1423   PROGRAM*       67/10     67/17 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   158
        SYMBOLIC REFERENCE TABLE. 
  
        RDIV.D       1422   PROGRAM*       67/10     67/15 L
        RDIV.I       1420   PROGRAM*       67/10     67/11 L
        RDIV.R       1421   PROGRAM*       67/10     67/13 L
        REFLIN          0   EXTERNAL*       3/42 X    8/06
        REGA            0   EXTERNAL*      91/34
        REGB            0   EXTERNAL*       3/43 X
        REGFILE         0   EXTERNAL*       3/44 X   34/42    110/47    111/21 S  115/19    116/50
                                           34/38     35/39 S  110/48    112/18 S  115/53    116/51
        REGLK           0   EXTERNAL*       4/09 X   99/52 S  106/46    106/52 S  122/47    122/56 S
        REGX            0   EXTERNAL*       3/43 X   35/05     91/33    109/18    109/30    110/24
        REG=B           0   EXTERNAL*       3/43 X  108/09 S  113/02
        REG=T           0   EXTERNAL*       3/43 X  110/08    111/20 S  112/04    128/56
        REG.A          10   TSTEXT         34/31     35/39 S   36/46    116/51
        REG.X          20   TSTEXT         34/35     34/49     36/46     37/45    109/34
                                           34/46     35/39 S   37/36    109/13    110/31
        RESET5       3021   PROGRAM*      107/09    107/15 L
        RESFLG       2523   PROGRAM*       92/33 L  101/53 S  106/56
        RFADD       34000                  54/08 D   63/48     63/53     63/55     66/07     67/24     67/28
        RFSUB       35000                  54/09 D   64/32     64/37     64/39     66/03     67/20
        RGC             0   EXTERNAL*       3/43 X   99/54 S
        RGFILE          0   TSTEXT         38/22     84/11     88/11     88/18     88/23     88/28     88/31    118/26
                                           40/22     88/07     88/14     88/19     88/24     88/29    109/34    128/30
                                           42/06     88/10     88/15     88/20     88/25     88/30    110/31
        RGX             0   EXTERNAL*       3/44 X   99/50 S  110/37
        RG=INTR         0   EXTERNAL*     100/05
        RG=LOAD         0   EXTERNAL*       3/44 X   34/27     34/54     36/26     36/31    100/05    114/36
        RG=LODX         0   EXTERNAL*       3/44 X  100/05    114/56    116/11
        RG=SET          0   EXTERNAL*      40/34
        RG=STOR         0   EXTERNAL*     100/05    116/17    128/46
        RG=TEMP         0   EXTERNAL*       3/44 X  100/05    110/34    115/57
        RJQ            20                  53/05 D   87/12     87/14
        RJTDUM          0   EXTERNAL*       3/44 X   93/41
        RLL             0   EXTERNAL*       4/10 X   35/27     37/32     39/18     40/32    122/55
                                           34/23     36/14     37/37     39/23    117/29
        RLOCK         400   TSTEXT         34/37     96/11     96/27    114/19    115/20    118/36
        RMULT       41000                  54/23 D   66/01     66/05     67/18     67/22     67/26
                                           65/54     66/02     66/06     67/19     67/23     67/27
        RMULT.C      1340   PROGRAM*       65/50     65/57 L
        RMULT.D      1337   PROGRAM*       65/50     65/55 L
        RMULT.I      1335   PROGRAM*       65/50     65/51 L
        RMULT.R      1336   PROGRAM*       65/50     65/53 L
        RNF1         3430   PROGRAM*      129/02    129/18 L
        RNORMZ      25000                  53/54 D
        RREG            0   EXTERNAL*       3/44 X   34/07     36/19 S  102/04 S  104/21    118/30 S  118/43
        RSHF        21000                  53/50 D   73/20     74/29     74/53     75/21     85/21
                                           70/13     73/32     74/44     75/12     75/29     85/33
                                           73/07     73/50     74/49     75/15     75/44
        RSHFB       23000                  53/52 D   75/27
        RSUB.C       1301   PROGRAM*       64/28     64/36 L
        RSUB.D       1300   PROGRAM*       64/28     64/34 L
        RSUB.I       1275   PROGRAM*       64/28     64/29 L
        RSUB.R       1276   PROGRAM*       64/28     64/31 L
        RTOD         1612   PROGRAM*       71/04 L   72/48     72/51
        RTOI         1610   PROGRAM*       70/57 L   72/51
        RUL             0   EXTERNAL*       4/10 X   37/03     37/51     41/22    106/50
                                           36/25     37/46     40/39     41/27    123/07
        RUT             0   EXTERNAL*       4/10 X   34/45     34/50    109/35    110/40    111/08    119/29
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   159
        SYMBOLIC REFERENCE TABLE. 
  
        R.B5            5   TSTEXT         84/11
        R.B6            6   TSTEXT        128/30
        R.X0           20   TSTEXT         91/32     99/48
        R.X1           21   TSTEXT         88/07     88/10     88/14     88/18     88/23     88/28
        R.X2           22   TSTEXT         88/11     88/24     88/29
        R.X3           23   TSTEXT         88/15     88/19     88/25     88/30
        R.X4           24   TSTEXT         88/20     88/31
        R.X5           25   TSTEXT         99/48
        R.X6           26   TSTEXT         34/14     36/20     37/43     40/22    109/13    115/51
                                           34/35     37/34     38/22     42/06    110/47    118/26
        R.X7           27   TSTEXT         34/38     91/32    110/48    115/53
        R..10        2224   PROGRAM*        3/25 E   81/26 L
        R..2         2176   PROGRAM*        3/25 E   80/53 L
        R..3         2177   PROGRAM*        3/25 E   80/55 L
        R..4         2201   PROGRAM*        3/25 E   81/01 L
        R..5         2203   PROGRAM*        3/25 E   81/04 L
        R..6         2206   PROGRAM*        3/25 E   81/08 L
        R..7         2211   PROGRAM*        3/25 E   81/12 L
        R..8         2215   PROGRAM*        3/25 E   81/17 L
        R..9         2220   PROGRAM*        3/25 E   81/21 L
        SAVEA4       1062   PROGRAM*       43/04 L
        SAVEB2       1070   PROGRAM*       35/15     35/31     36/29 S   36/44     43/10 L
        SAVEB4       1061   PROGRAM*       33/53 S   42/40     43/03 L
        SAVEB6       1071   PROGRAM*       35/26 S   36/02     43/11 L
        SAVEX1       1073   PROGRAM*       37/29 S   37/39     43/13 L
        SAVEX2       1074   PROGRAM*       37/31 S   37/40     43/14 L
        SAVEX4       1063   PROGRAM*       43/05 L
        SA=AB       54000                   3/11 E   48/17     54/40 D   55/13     55/14     86/38     88/48    129/27
        SA=ABS3      5400                   3/10 E   55/13 D
        SA=ABS6       540                   3/10 E   55/14 D
        SA=AK       50000                   3/11 E   34/04     54/36 D   55/15     85/55
        SA=AKS6       500                   3/11 E   55/15 D
        SA=AMB      55000                  54/41 D
        SA=BB       56000                  38/45     54/42 D
        SA=BK       51000                   3/11 E   55/17     85/47     86/39     87/03     87/31
                                           36/57     55/18     85/56     86/45     87/21     88/46
                                           54/37 D   85/39     86/27     87/01     87/26
        SA=BKS3      5100                   3/30 E   55/17 D
        SA=BKS9        51                   3/30 E   55/18 D
        SA=BMB      57000                  54/43 D
        SA=XB       53000                  38/43     54/39 D   86/01     86/28
        SA=XK       52000                  37/02     54/38 D   55/16
        SA=XKS3      5200                   3/30 E   55/16 D
        SB=AB       64000                  54/49 D
        SB=AK       60000                  54/45 D
        SB=AMB      65000                  54/50 D
        SB=BB       66000                   3/27 E   48/16     54/51 D
        SB=BK       61000                   3/27 E   55/19     76/13     84/14     87/07
                                           54/46 D   55/25     84/13     86/34
        SB=BKS3      6100                   3/31 E   55/25 D  127/12
        SB=BKS9        61                   3/30 E   55/19 D
        SB=BMB      67000                  54/52 D
        SB=XB       63000                   3/27 E   48/18     76/07     85/23     85/57
                                           48/17     54/48 D   85/10     85/35
        SB=XK       62000                   3/27 E   54/47 D   75/26
        SCR             0   EXTERNAL*       4/25 X    7/11 S    7/15
        SCR2            0   EXTERNAL*       4/25 X   17/01 S   18/16
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   160
        SYMBOLIC REFERENCE TABLE. 
  
        SCS             0   EXTERNAL*       3/57 X   96/53
        SCSA            0   EXTERNAL*       3/57 X   94/30 S
        SDM             0   EXTERNAL*       4/13 X   15/48     16/02
        SDS             0   EXTERNAL*       4/10 X  119/10
        SFR             0   EXTERNAL*       4/10 X  110/35    116/01
        SHFC            0   EXTERNAL*       3/44 X   24/02
        SHIFT          44   PROGRAM*        6/16      6/18      6/21      6/34 L
        SIND         1060   PROGRAM*       14/42 S   20/26     23/33     43/02 L
        SLCMPA       1031   PROGRAM*       38/18     41/41 L
        SLCMPB       1034   PROGRAM*       38/33     41/29     41/49 L
        SLCMPD       1041   PROGRAM*       42/09     42/14 L
        SLCMPE       1042   PROGRAM*       42/12     42/16 L
        SLCMPM       1044   PROGRAM*       41/55     42/21 L
        SLCMPQ       1044   PROGRAM*       41/47     42/25 L
        SLD           603   PROGRAM*        3/13 E   33/46 L  114/33    119/03
        SLDA         1055   PROGRAM*       39/10 S   39/26     42/56 L
        SLDPWR       1076   PROGRAM*       40/33 S   40/36     43/19 L
        SLDSET       1077   PROGRAM*       40/28 S   40/41     43/20 L
        SLDSR        1100   PROGRAM*       38/24 S   40/43 S   42/10     43/21 L
        SLD1          612   PROGRAM*       34/03     34/05 L
        SLD15         620   PROGRAM*       34/15     34/24 L
        SLD16         635   PROGRAM*       34/48     34/51 L
        SLD17         636   PROGRAM*       34/32     34/36     34/41     34/54 L
        SLD2          644   PROGRAM*       35/02     35/10 L   36/42
        SLD25         654   PROGRAM*       35/29     35/31 L
        SLD3          663   PROGRAM*       35/07     35/09     35/14     35/17     36/04 L
        SLD32         674   PROGRAM*       36/21     36/26 L
        SLD35         704   PROGRAM*       36/39     36/44 L
        SLD4          713   PROGRAM*       37/01     37/04 L
        SLD42         724   PROGRAM*       37/35     37/39 L
        SLD44         731   PROGRAM*       37/44     37/47 L
        SLD45         745   PROGRAM*       38/23     38/29 L
        SLD47         746   PROGRAM*       38/27     38/33 L
        SLD5          747   PROGRAM*       37/55     38/40 L
        SLD6          752   PROGRAM*       38/44     38/46 L
        SLD8          754   PROGRAM*       37/23     38/53 L
        SLD82         770   PROGRAM*       39/31     39/46 L
        SLD84         771   PROGRAM*       39/42     39/51 L
        SLD87        1012   PROGRAM*       40/23     40/46 L
        SLD88        1013   PROGRAM*       40/44     40/48 L
        SLD89        1014   PROGRAM*       40/20     40/51 L
        SLD9         1015   PROGRAM*       40/49     41/01 L
        SL.CMP       1030   PROGRAM*       38/49     39/01     41/38 L
        SL.CMP0      1046   PROGRAM*       42/27     42/29 L
        SL.CMP10     1050   PROGRAM*       42/40 L
        SMOD            0   EXTERNAL*       4/13 X   25/08 S   27/11     28/48
        SOPR            0   EXTERNAL*       4/13 X   15/47 S   24/06 S   24/34 S   26/35     28/07
                                            7/26 S   16/01 S   24/18 S   25/39 S   28/05 S
        SRES         1057   PROGRAM*       14/41 S   14/42 S   19/41     43/01 L
        SSO           543   PROGRAM*        3/13 E   30/27 L
        SSO5          551   PROGRAM*       30/29     30/34     30/41 L
        SSO7          565   PROGRAM*       31/20     31/23 L
        SST             0   EXTERNAL*       4/10 X   36/10    115/45    117/17
        STDIF        2161   PROGRAM*        3/11 E   80/24 L
        STORE       50000                  55/09 D   70/28     70/32     70/33
        STRGLK          0   EXTERNAL*      99/53 S  115/17
        STR.C        1600   PROGRAM*       70/25     70/31 L
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   161
        SYMBOLIC REFERENCE TABLE. 
  
        STR.D        1600   PROGRAM*        3/19 E   70/25     70/30 L
        STR.I        1577   PROGRAM*        3/19 E   70/25     70/26 L
        STR.R        1577   PROGRAM*       70/25     70/27 L
        SUBL          602   PROGRAM*       33/25 L
        SUBOP           0   EXTERNAL*       3/45 X   24/26
        SUB.C        1270   PROGRAM*       64/04     64/15 L
        SUB.D        1264   PROGRAM*       64/04     64/10 L   64/35
        SUB.I        1261   PROGRAM*        3/19 E   64/04     64/05 L
        SUB.R        1262   PROGRAM*       64/04     64/07 L
        SVT           571   PROGRAM*       17/28     31/54 L
        SVT10         577   PROGRAM*       32/08     32/12 L
        SX=AB       74000                  55/02 D   86/37     86/44
        SX=AK       70000                  34/04     54/55 D
        SX=AMB      75000                  55/03 D
        SX=BB       76000                   3/33 E   48/16     55/04 D   87/28
        SX=BK       71000                   3/11 E   54/56 D   55/20     55/23     85/38
        SX=BKS3      7100                   3/31 E   55/23 D
        SX=BKS9        71                   3/30 E   55/20 D
        SX=BMB      77000                  55/05 D
        SX=XB       73000                   3/33 E   55/01 D
        SX=XK       72000                   3/33 E   54/57 D   55/22     84/01     84/26     85/18     85/29
                                           39/39     55/21     83/47     84/02     85/17     85/28     85/30
        SX=XKS3      7200                   3/31 E   55/22 D
        SX=XKS9        72                   3/30 E   55/21 D
        S.FID           0   EXTERNAL*     127/24
        S.RANDM         0   EXTERNAL*       4/06 X    7/10
        TA.NAM          0   EXTERNAL*      39/51
        TEM.MAX         0   EXTERNAL*       3/46 X   91/14
        TER1            0   EXTERNAL*       4/16 X   28/34
        TER2            0   EXTERNAL*       4/16 X   28/38
        TEST            0   TSTEXT         14/18 F   33/17 F   90/20 F   92/08 F  120/11 F
        TG.TEM          0   EXTERNAL*       3/46 X   91/15
        TG.VDIM         0   EXTERNAL*       3/45 X   17/23
        TP.DIM          0   EXTERNAL*       3/45 X   16/32     19/11     22/34     31/02     31/55
        TRACE           0   EXTERNAL*     126/11 S  127/08 S
        TRIP         1072   PROGRAM*       34/26 S   35/13     36/41 S   43/12 L
        TRLINE          0   EXTERNAL*       8/09 S
        TSF             0   EXTERNAL*       4/06 X    7/14    127/24
        TS.STN          0   EXTERNAL*       3/46 X  128/04
        TS.SYM          0   EXTERNAL*       3/45 X    9/19     11/13     16/55     22/32     90/51     96/02    129/20
        TT=PAR          0   EXTERNAL*       3/45 X    7/55     90/42     90/42 S   91/55
        TT=SCR          0   EXTERNAL*       3/46 X   90/44     90/44 S
        TT=USE          0   EXTERNAL*       3/46 X   90/43     91/48     91/48 S
        TT.PAR          0   EXTERNAL*       3/45 X   33/49     92/01     92/07    126/27    127/27
                                            7/56     42/43     92/06     93/29    126/48
        TT.SCR          0   EXTERNAL*       3/46 X   96/53     96/57     97/08
        TT.USE          0   EXTERNAL*       3/46 X   90/50     96/34
        TYPLOD       3331   PROGRAM*       34/13 S   42/30    114/45    116/15    117/09
                                           37/04    114/18 S  115/38    116/30    124/31 L
        T=VDIM          0   EXTERNAL*       3/45 X   93/20     93/31     93/34     93/34 S
        T.VDIM          0   EXTERNAL*       3/45 X   17/17     17/49     17/56     93/32
        UMINUS          0   EXTERNAL*       3/47 X   29/48
        UMIN.D       1307   PROGRAM*       65/04     65/08 L
        UMIN.I       1306   PROGRAM*       65/04     65/05 L   65/07
        UPACK       26000                  53/55 D   66/22     71/01     71/09     75/06     75/37
        USEMASK      3445   PROGRAM*       94/26
1       /GEN  CODE GENERATION                                         COMPASS 3.7-871.     24/05/02. 15.52.35.      PAGE   162
        SYMBOLIC REFERENCE TABLE. 
  
        UUC             0   EXTERNAL*       3/46 X  102/49 S  114/14 S  117/10 S  119/02 S
                                          100/13 S  113/15 S  115/33    118/21 S
        VAM           111   PROGRAM*        3/13 E    8/36 L
        VAM1          116   PROGRAM*        8/44      8/47 L
        VD.EQ           0   EXTERNAL*       3/47 X   17/32
        VD.INTR         0   EXTERNAL*       3/47 X   18/04
        VD.MULT         0   EXTERNAL*       3/47 X   17/52
        VEL           121   PROGRAM*        3/13 E    9/18 L
        VEL30         131   PROGRAM*        9/27      9/40 L
        VEL40         133   PROGRAM*        9/44 L
        VEL50         135   PROGRAM*        9/32      9/45      9/53 L
        VIL           140   PROGRAM*        3/13 E   11/12 L
        VIL30         143   PROGRAM*       11/22 L
        VIL40         147   PROGRAM*       11/27     11/32 L
        VIL50         150   PROGRAM*       11/30     11/37 L
        WIN             0   EXTERNAL*       3/54 X   41/03     42/20    115/16    126/45    129/12
                                           35/50     41/14     93/43    117/05    127/11    129/33
                                           38/33     41/47    106/35    118/56    127/20    129/36
        WOF             0   EXTERNAL*       4/03 X
        XMIT        10000                  48/18     69/52     71/14     74/28     75/11     86/13    104/23    129/04
                                           53/36 D   69/56     73/06     74/34     75/14     86/14    105/18
                                           55/24     70/03     73/11     74/37     75/20     86/18    106/15
                                           69/42     70/05     73/19     74/38     75/28     87/02    109/37
                                           69/44     70/12     73/31     74/43     75/43     87/20    110/18
                                           69/46     70/14     73/49     74/48     75/57     87/36    118/29
                                           69/48     71/05     74/25     74/52     83/08     88/44    118/45
        XMITC       14000                  53/41 D   65/09     68/28     68/40     77/37     78/56     79/13
                                           65/06     65/10     68/32     74/26     77/43     79/04     79/18
        XMITOP          0   EXTERNAL*       3/47 X   24/15
        XMITS3       1000                   3/29 E   35/47     55/24 D  117/02
        XOR         13000                   3/27 E   67/47     74/30     74/50     74/54     75/13     75/45
                                           53/39 D   73/08     74/31     74/51     74/55     75/16     75/47
        XORN        17000                  53/45 D   67/53
        XPOP            0   EXTERNAL*       3/47 X    8/11
        ZERO        13000                   3/11 E   53/40 D   73/13     74/08
        ZRJ          3000                  53/17 D   77/12     77/53     78/19     79/23
                                           77/07     77/49     77/57     78/24     79/42
        .CPU          111   TSTEXT         54/13 F   55/27 F
        .DAL            1   TSTEXT         38/15 F   39/28 F   40/17 F   41/51 F   43/17 F   53/09 F
        .FID            1   TSTEXT         86/41 F  126/23 F  127/17 F
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TSNAP
                          0                       END 
  
  
  
  
                                                  IDENT  TSNAP                                                   TSNAP       2
                                                  SST    A                                                       TSNAP       3
                                                                                                                 TSNAP       4
                                                  SECT   (TSNAP  TEST MODE SNAP PACKAGE)                         TSNAP       5
  
                                                                                                                 TSNAP       6
                                                  NOREF  A                                                       TSNAP       7
                                                                                                                 TSNAP       8
                                         B=TSNAP  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     TSNAP       9
                                                                                                                 TSNAP      10
                                         #SNAP    IFNE   TEST,0                                                  TSNAP      11
                                                                                                                 FCC1046    37
                                                  ENTRY  DAR                                                     FCC1046    38
                                                  ENTRY  DAR=                                                    FCC1046    39
                                                  ENTRY  IDP=                                                    FCC1046    40
                                                  ENTRY  IDPFLG                                                  FCC1046    41
                                                  ENTRY  REG=                                                    FCC1046    42
                                                  ENTRY  RSR=                                                    FCC1046    43
                                                  ENTRY  SNP=                                                    FCC1046    44
                                                  ENTRY  SVR=                                                    FCC1046    45
                                                                                                                 TSNAP      12
                                        *         IN FTN                                                         TSNAP      13
                                                  EXT    F.OUT                                                   TSNAP      14
                                                                                                                 TSNAP      15
                                        *         IN TABLES                                                      TSNAP      16
                                                  EXT    BASES,CHARMAP,FRA=,LASTCOL,MOVES,N.TABLE,ORIGINS        TSNAP      17
                                                  EXT    SIZES,TT=PAR,TT.PAR,TS=SYM,TS.SYM                       TSNAP      18
                                                                                                                 TSNAP      19
                                        *         IN PIG                                                         TSNAP      20
                                                  EXT    PIK=PS,PIK=XJP                                          TSNAP      21
                                                                                                                 TSNAP      22
                                        *         IN MAP                                                         TSNAP      23
                                                  EXT    WOD                                                     TSNAP      24
                                                                                                                 TSNAP      25
                                        *         IN ALLOC                                                       TSNAP      26
                                                  EXT    ADW,ADW2,ALC                                            TSNAP      27
                                                                                                                 TSNAP      28
                                        *         IN PAR                                                         TSNAP      29
                                                  EXT    PAR                                                     TSNAP      30
                                                                                                                 TSNAP      31
                                        *         IN GEN                                                         TSNAP      32
                                                  EXT    DUC.1ST,DUC.2ND,DUC.BTH                                 TSNAP      33
                                                                                                                 TSNAP      34
                                         DAZ=PS   =      PIK=PS                                                  TSNAP      35
                                         DAZ=XJP  =      PIK=XJP                                                 TSNAP      36
                                         F.BDO    =      F.OUT       DEFINE BATCH DEBUG OUTPUT FILE TO BE SAME   TSNAP      37
                                        *                              AS NORMAL OUTPUT FILE AS DEFINED BY       TSNAP      38
                                        *                              *L=* CC PARAMETER                         TSNAP      39
                                         SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER    TSNAP      40
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     2
  
  
                                         PRBDO    SPACE  4,8                                                     TSNAP      41
                                        **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                    TSNAP      42
                                                                                                                 TSNAP      43
                                                  PURGMAC PRBDO                                                  TSNAP      44
                                                                                                                 TSNAP      45
                                         PRBDO    OPSYN  PLINE                                                   TSNAP      46
                                         FAA=     SPACE  4,8                                                     TSNAP      47
                                        **        FAA - FIND ABSOLUTE ADDRESS.                                   TSNAP      48
                                        *                                                                        TSNAP      49
                                        *                                                                        TSNAP      50
                                        *         ENTRY  (X0) = MX0 7*CHAR                                       TSNAP      51
                                        *                (X1) = 42/0LNAME, 18/0                                  TSNAP      52
                                        *                                                                        TSNAP      53
                                        *         EXIT   (X6) = .PL. IF ABS ADDR ASSOCIATED WITH *NAME*          TSNAP      54
                                        *                     = .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND)  TSNAP      55
                                        *                                                                        TSNAP      56
                                        *         USES   X - 2,3,6,7       (INCLUDES ALL CALLS)                  TSNAP      57
                                        *                A - 2                                                   TSNAP      58
                                        *                B - 6,7                                                 TSNAP      59
                                        *                                                                        TSNAP      60
                                        *         CALLS  /DBG=IDP/SKT                                            TSNAP      61
                                                                                                                 TSNAP      62
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              TSNAP      63
                                                                                                                 TSNAP      64
                                         FAA=     SUBR               ** ENTRY/EXIT **                            TSNAP      65
                                                  SB6    =XFWA1.0    (B6) = FWA OF (1,0) *RPV* TABLE             TSNAP      66
                                                  RJ     /DBG=IDP/SKT  SEARCH *RPV* TABLE FOR *NAME*             TSNAP      67
                                                  SX6    X2+                                                     TSNAP      68
                                                  NZ     X2,EXIT.    IF A FIND                                   TSNAP      69
                                                  MX6    1           SET TO *NO FIND*                            TSNAP      70
                                                  EQ     EXIT.                                                   TSNAP      71
                                         #OS      ENDIF                                                          TSNAP      72
                                         UIO=     SPACE  4,8                                                     TSNAP      73
                                        **        UIO= - USER IDP OWNCODE.                                       TSNAP      74
                                        *                                                                        TSNAP      75
                                        *                                                                        TSNAP      76
                                        *         ENTRY  (RA.ORG) =  12/LAST OVERLAY LOADED (0P0S FMT),48/OTHER  TSNAP      77
                                        *                (UIOA)   =  48/0,12/LAST OVERLAY LOADED ON PREVIOUS     TSNAP      78
                                        *                              IDP CALL (0P0S FMT)                       TSNAP      79
                                        *                                                                        TSNAP      80
                                        *         EXIT   (X1)     =  .MI., I.E. HONOR BREAK                      TSNAP      81
                                        *                                                                        TSNAP      82
                                        *                WARNING -- IF THE USER HAS NOT ALLOTTED ENOUGH SPACE    TSNAP      83
                                        *                  FOR THE USER *SET* NAME TABLE *IDPSET* TO CONTAIN     TSNAP      84
                                        *                  ALL THE DEFAULT *SET* NMAES, THEN *ADZ* (CALLED BY    TSNAP      85
                                        *                  *IST*) WILL SENSE TABLE OVERFLOW AND XIT TO *IDP=ER*. TSNAP      86
                                        *                  THIS CONDITION SHOULD BE AVOIDED.                     TSNAP      87
                                        *                                                                        TSNAP      88
                                        *         USES   X - 0,1,2,3,6,7   (INCLUDES ALL CALLS)                  TSNAP      89
                                        *                A - 1,2,6                                               TSNAP      90
                                        *                B - 6,7                                                 TSNAP      91
                                        *                                                                        TSNAP      92
                                        *         CALLS  CLZ,IST                                                 TSNAP      93
                                                                                                                 TSNAP      94
                                         #OS      IFNE   .OS,2                                                   FEAT155FA   4
                                                                                                                 TSNAP      95
                                         UIO=     SUBR               ** ENTRY/EXIT **                            TSNAP      96
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     3
  
  
                                                  SA2    RA.ORG                                                  TSNAP      97
                                                  SA3    UIOA                                                    TSNAP      98
                                                  MX1    1           SET TO *HONOR BREAK*                        TSNAP      99
                                                  AX2    48-0                                                    TSNAP     100
                                                  IX7    X2-X3                                                   TSNAP     101
                                                  BX6    X2                                                      TSNAP     102
                                                  ZR     X7,EXIT.    IF WE ARE STILL IN THE SAME OVERLAY         TSNAP     103
                                                  SA6    A3                                                      TSNAP     104
                                                  SB6    IDPBA                                                   TSNAP     105
                                                  RJ     CLZ         CLEAR IDP TABLE -- BREAK ADDRESSES          TSNAP     106
                                                  SB6    IDPSET                                                  TSNAP     107
                                                  RJ     CLZ         CLEAR IDP TABLE -- SET NAMES                TSNAP     108
                                                  RJ     IST         (RE)INITIALIZE DEFAULT *SET* NAMES          TSNAP     109
                                                  MX1    1           SET TO *HONOR BREAK*                        TSNAP     110
                                                  EQ     EXIT.                                                   TSNAP     111
                                                                                                                 TSNAP     112
                                                                                                                 TSNAP     113
                                         UIOA     BSSZ   1           USED TO TELL WHETHER OR NOT A NEW OVERLAY   TSNAP     114
                                        *                              HAS BEEN LOADED SINCE THE LAST *IDP*      TSNAP     115
                                        *                              CALL-- CONTAINS THE MOST RECENT OVERLAY   TSNAP     116
                                        *                              LOADED NR FROM *RA.ORG* -- 48/0,12/0P0S   TSNAP     117
                                         #OS      ENDIF                                                          FEAT155FA   5
                                         URO=     SPACE  4,8                                                     TSNAP     118
                                        **        URO= - USER REG= OWNCODE.                                      TSNAP     119
                                        *                                                                        TSNAP     120
                                        *         ENTRY  NONE                                                    TSNAP     121
                                        *                                                                        TSNAP     122
                                        *         EXIT   (X1) = .MI. IF SNAP TO BE HONORED, ELSE .PL.            TSNAP     123
                                        *                                                                        TSNAP     124
                                        *         USES   X - 1                                                   TSNAP     125
                                        *                A - 1                                                   TSNAP     126
                                        *                                                                        TSNAP     127
                                        *         CALLS  NONE                                                    TSNAP     128
                                                                                                                 TSNAP     129
                                                                                                                 TSNAP     130
                                         URO=     SUBR               ** ENTRY/EXIT **                            TSNAP     131
                                                  SA1    =XCO.SNAP                                               TSNAP     132
                                                  LX1    1RG                                                     TSNAP     133
                                                  BX1    -X1                                                     TSNAP     134
                                                  EQ     EXIT.                                                   TSNAP     135
                                                                                                                 TSNAP     136
                                                                                                                 TSNAP     137
                                         USO=     =      URO=                                                    TSNAP     138
                                         UFT=     SPACE  4,8                                                     TSNAP     139
                                        **        UFT= - USER FILE NAME TABLE.                                   TSNAP     140
                                                                                                                 TSNAP     141
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              TSNAP     142
                                                                                                                 TSNAP     143
                                         UFT=     BSS    0                                                       TSNAP     144
                                                  VFD    42/0LF.OUT,18/=XF.OUT                                   TSNAP     145
                                                  VFD    42/0LOUTPUT,18/=XF.OUT                                  FCCT001     3
                                                  DATA   0           END OF TABLE MARK                           TSNAP     146
                                         #OS      ENDIF                                                          TSNAP     147
                                         UKT=     SPACE  4,8                                                     TSNAP     148
                                        **        UKT= - USER KEYWORD TABLE.                                     TSNAP     149
                                                                                                                 TSNAP     150
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              TSNAP     151
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     4
  
  
                                                                                                                 TSNAP     152
                                         UKT=     BSS    0                                                       TSNAP     153
                                                  VFD    42/0LDUMPT,18/ST=DMT                                    TSNAP     154
                                                  DATA   0           END OF TABLE MARK                           TSNAP     155
                                         #OS      ENDIF                                                          TSNAP     156
                                         DBG=IDP  CTEXT  DBG=IDP - INTERACTIVE AND BATCH DEBUG PACKAGES.         DBG=IDP     2
                                         DBG=IDP  SPACE  4,8                                                     DBG=IDP     3
                                                  IF     -DEF,QUAL$,1                                            DBG=IDP     4
                                                  QUAL   DBG=IDP                                                 DBG=IDP     5
                                                  BASE   D                                                       DBG=IDP     6
                                         DBG=IDP  SPACE  4,8                                                     DBG=IDP     7
                                        **        DBG=IDP - INTERACTIVE AND BATCH DEBUG PACKAGES.                DBG=IDP     8
                                        *                                                                        DBG=IDP     9
                                        *                                                                        DBG=IDP    10
                                        *                CONTAINS THE INTERACTIVE DEBUG PACKAGE (IDP=), WHICH    DBG=IDP    11
                                        *         PLACES A HOST PROGRAM IN INTERACTIVE MODE; AND THE 2 BATCH     DBG=IDP    12
                                        *         DEBUGGING ROUTINES (REG=,SNP=), WHICH PROVIDE REGISTER AND     DBG=IDP    13
                                        *         CORE SNAPSHOT DUMPS.                                           DBG=IDP    14
                                        *                                                                        DBG=IDP    15
                                        *            IN THE SECTIONS THAT FOLLOW, *ASSEMBLY-TIME DEPENDENCIES*   DBG=IDP    16
                                        *         ARE DEFINED TO BE THE INTERFACES THAT THE IDP INSTALLER MUST   DBG=IDP    17
                                        *         PROVIDE; *ASSEMBLY-TIME OPTIONS* ARE THOSE INTERFACES WHICH    DBG=IDP    18
                                        *         ARE OPTIONAL, I.E. INTERFACES THAT HAVE DEFAULT CONDITIONS.    DBG=IDP    19
                                        *            IN THE CASE WHERE THE USER PROVIDES A SUBROUTINE THAT WILL  DBG=IDP    20
                                        *         BE CALLED BY IDP, THE *ENTRY* AND *EXIT* CONDITIONS ARE SHOWN. DBG=IDP    21
                                        *         IN ADDITION, THE REGISTERS THAT CANNOT BE ALTERED BY THE USER  DBG=IDP    22
                                        *         SUBROUTINE ARE SPECIFIED VIA *LOCKED*.  (B1) ARE ASSUMED TO BE DBG=IDP    23
                                        *         EQUAL TO 1 (LOCKED), AND WILL THEREFORE NOT BE MENTIUNED       DBG=IDP    24
                                        *         AGAIN.                                                         DBG=IDP    25
                                        *                                                                        DBG=IDP    26
                                        *         ASSEMBLY-TIME DEPENDENCIES--                                   DBG=IDP    27
                                        *                                                                        DBG=IDP    28
                                        ************************************************************************ DBG=IDP    29
                                        *                                                                        DBG=IDP    30
                                        ***       CP.NFLS - NOMINAL FIELD LENGTH SCM.                            DBG=IDP    31
                                        *                                                                        DBG=IDP    32
                                        *                *CP.NFLS* MUST BE THE NAME OF THE SCM LOCATION THAT     DBG=IDP    33
                                        *         CONTAINS THE CURRENT NOMINAL FIELD LENGTH FOR THE HOST         DBG=IDP    34
                                        *         PROGRAM.  THE CONTENTS OF *CP.NFLS* ARE USED BY *DBG=IDP*      DBG=IDP    35
                                        *         FOR ADDRESS COMPUTATION CHECKS.                                DBG=IDP    36
                                        *                0 .LE. LEGAL ADDR .LE. (CP.NFLS)                        DBG=IDP    37
                                        *                                                                        DBG=IDP    38
                                        *         FORMAT--                                                       DBG=IDP    39
                                        *         VFD    42/0,18/FL                                              DBG=IDP    40
                                        *                                                                        DBG=IDP    41
                                        *         NOTE-- IT IS SUGGESTED THAT (CP.NFLS) BE 10B WORDS LESS THAN   DBG=IDP    42
                                        *           THE ACTUAL FIELD LENGTH SCM TO AVOID POSSIBLE STACK          DBG=IDP    43
                                        *           LOOK AHEAD PROBLEMS NEAR FL.                                 DBG=IDP    44
                                        ************************************************************************ DBG=IDP    45
                                        *                                                                        DBG=IDP    46
                                        *         ASSEMBLY-TIME OPTIONS--                                        DBG=IDP    47
                                        *                                                                        DBG=IDP    48
                                        ************************************************************************ DBG=IDP    49
                                        *                                                                        DBG0002    22
                                        ***              IF THE SYMBOL *EOS* IS A MICRO NAME (MIC), THEN         DBG0002    23
                                        *         "EOS" IS A MICRO WHICH DEFINES THE INTERACTIVE                 DBG0002    24
                                        *         END-OF-STATEMENT CHARACTER.  THE USE OF THIS CHARACTER ALLOWS  DBG0002    25
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     5
  
  
                                        *         AN *IDP* USER TO ENTER MORE THAN ONE INTERACTIVE COMMAND ON    DBG0002    26
                                        *         A SINGLE LINE.                                                 DBG0002    27
                                        *                                                                        DBG0002    28
                                        *         DEFAULT IS --                                                  DBG0002    29
                                        *                                                                        DBG0002    30
                                        *         EOS    MICRO  1,,/;/                                           DBG0002    31
                                        *                                                                        DBG0002    32
                                        *         E.G.   SNAP,100;REG,X1;END                                     DBG0002    33
                                        *                                                                        DBG0002    34
                                        *         NOTE   THE END OF STATEMENT LOGIC WILL NOT WORK PROPERLY IF    DBG0002    35
                                        *                "EOS" IS ONE OF THE FOLLOWING 8 CHARACTERS --           DBG0002    36
                                        *                JKLMNOPQ                                                DBG0002    37
                                        ************************************************************************ DBG0002    38
                                        *                                                                        DBG=IDP    50
                                        ***          IF THE SYMBOL *FAA=* IS DEFINED (DEF), THEN *FAA= - FIND    DBG=IDP    51
                                        *         ABSOLUTE ADDRESS* IS A USER SUBROUTINE THAT WILL PROVIDE       DBG=IDP    52
                                        *         *DBG=IDP* WITH AN ABSOLUTE ADDRESS ASSOCIATED WITH A *NAME*.   DBG=IDP    53
                                        *         THIS OPTION IS INTENDED FOR HOST PROGRAMS THAT CONSIST OF      DBG=IDP    54
                                        *         MULTIPLE *DECK*S OR *IDENT*S, AND WHERE USERS OF *IDP* WOULD   DBG=IDP    55
                                        *         LIKE TO BE ABLE TO REFERENCE ADDRESSES RELATIVE TO A           DBG=IDP    56
                                        *         DECK NAME--  E.G. SNAP NAME+20,,10                             DBG=IDP    57
                                        *            IF *FAA=* IS DEFINED, THEN *IDP* WILL *RJ =XFAA=* TO TRY TO DBG=IDP    58
                                        *         ASSOCIATE AN ABSOLUTE ADDRESS WITH *NAME* BEFORE HE SEARCHS    DBG=IDP    59
                                        *         THE USER *SET* TABLE.                                          DBG=IDP    60
                                        *                                                                        DBG=IDP    61
                                        **        FAA= - FIND ABSOLUTE ADDRESS.                                  DBG=IDP    62
                                        *                                                                        DBG=IDP    63
                                        *         ENTRY  (X0) = MX0 7*CHAR     (CHAR=6)                          DBG=IDP    64
                                        *                (X1) = 42/0LNAME, 18/0                                  DBG=IDP    65
                                        *                                                                        DBG=IDP    66
                                        *         EXIT   (X6) = .PL. IF ABS ADDR ASSOCIATED WITH NAME            DBG=IDP    67
                                        *                       .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND)  DBG=IDP    68
                                        *                                                                        DBG=IDP    69
                                        *         LOCKED X - 0,1                                                 DBG=IDP    70
                                        ************************************************************************ DBG=IDP    71
                                        *                                                                        DBG=IDP    72
                                        ***          IF THE SYMBOL *FRA=* IS DEFINED (DEF), THEN *FRA= - FIND    DBG=IDP    73
                                        *         RELATIVE ADDRESS* IS A USER SUBROUTINE THAT WILL PROVIDE       DBG=IDP    74
                                        *         *DBG=IDP* WITH A DISPLAY CODE (DPC) NAME AND RELATIVE OFFSET   DBG=IDP    75
                                        *         ASSOCIATED WITH AN ABSOLUTE ADDRESS. THIS ROUTINE IS THE       DBG=IDP    76
                                        *         LOGICAL COMPLEMENT TO *FAA=*, AND IS USED BY ROUTINES IN       DBG=IDP    77
                                        *         *DBG=IDP* TO OUTPUT A MORE HUMAN READABLE ADDRESS FORMAT.      DBG=IDP    78
                                        *                                                                        DBG=IDP    79
                                        *         E.G. IN RESPONSE TO *IDP* COMMAND-- CODE NAME+10               DBG=IDP    80
                                        *         1025   010001023         RJ    1023     6 IN NAME              DBG=IDP    81
                                        *                                                                        DBG=IDP    82
                                        *            IF *FRA=* IS DEFINED, WHENEVER A ROUTINE IN *DBG=IDP*       DBG=IDP    83
                                        *         REQUIRES THIS RELATIVE ADDRESS PLUS OFFSET DPC FORMAT, A       DBG=IDP    84
                                        *         *EQ =XFRA=* IS EXECUTED.                                       DBG=IDP    85
                                        *                                                                        DBG=IDP    86
                                        **        FRA= - FIND RELATIVE ADDRESS.                                  DBG=IDP    87
                                        *                                                                        DBG=IDP    88
                                        *         ENTRY  (X1) = 60/ABS ADDR                                      DBG=IDP    89
                                        *                (B7) = RETURN ADDRESS-- AN *RJ =XFRA=* IS NOT USED      DBG=IDP    90
                                        *                         BECAUSE IF THE HOST PROGRAM HAS REPRIEVE       DBG=IDP    91
                                        *                         PROCESSING, THEN *FRA=* COULD BE INCORPORATED  DBG=IDP    92
                                        *                         INTO IT AND EXIST IN AN AREA CHECKSUMMED       DBG=IDP    93
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     6
  
  
                                        *                         BY *RPV*                                       DBG=IDP    94
                                        *                                                                        DBG=IDP    95
                                        *         EXIT   (X6) = 1ST WORD OF DPC RESULT                           DBG=IDP    96
                                        *                         E.G. (X6) = NNNNNN.IN.     (.=BLANK(55B))      DBG=IDP    97
                                        *                (X7) = 2ND WORD OF DPC RESULT  (-C- FORMAT)             DBG=IDP    98
                                        *                         E.G. (X7) = XXXXXXX000     (0=00B)             DBG=IDP    99
                                        *                                                                        DBG=IDP   100
                                        *         LOCKED X - 5                                                   DBG=IDP   101
                                        *                A - 0,5,6,7                                             DBG=IDP   102
                                        ************************************************************************ DBG0002    39
                                        *                                                                        DBG0002    40
                                        ***              IF THE SYMBOL *PROMPT* IS A MICRO NAME (MIC), THEN      DBG0002    41
                                        *         "PROMPT" IS A MICRO WHICH DEFINES THE INTERACTIVE PROMPT.      DBG0002    42
                                        *         THIS PROMPT WILL BE ISSUED WHENEVER *IDP* REQUIRES THAT THE    DBG0002    43
                                        *         USER ENTER A COMMAND.                                          DBG0002    44
                                        *                                                                        DBG0002    45
                                        *         DEFAULT IS --                                                  DBG0002    46
                                        *                                                                        DBG0002    47
                                        *         PROMPT MICRO  1,,/>>/                                          DBG0002    48
                                        *                                                                        DBG0002    49
                                        *         NOTE - *IDP* PREFIXES THE "PROMPT" WITH A BLANK (55B) PRINT    DBG0002    50
                                        *                CONTROL CHARACTER.                                      DBG0002    51
                                        ************************************************************************ DBG=IDP   103
                                        *                                                                        DBG=IDP   104
                                        ***          IF THE SYMBOL *UKT=* IS DEFINED (DEF), THEN *UKT=* IS THE   DBG=IDP   105
                                        *         FWA OF THE USER KEYWORD TABLE. THIS OPTION ALLOWS THE USER TO  DBG=IDP   106
                                        *         PERFORM HER OR HIS OWN KEYWORD PROCESSING IN INTERACTIVE MODE. DBG=IDP   107
                                        *         IF *UKT=* IS DEFINED, THEN AFTER *IDP* HAS SEARCHED ITS OWN    DBG=IDP   108
                                        *         KEYWORD TABLE, IT WILL SEARCH THE USER KEYWORD TABLE AT        DBG=IDP   109
                                        *         *UKT=* ET SEQ, AND BRANCH TO THE PROCESSOR ADDRESS IF A FIND   DBG=IDP   110
                                        *         IS MADE. *UKT=* FORMAT--                                       DBG=IDP   111
                                        *                                                                        DBG=IDP   112
                                        * UKT=    BSS    0                                                       DBG=IDP   113
                                        *         VFD    42/0LKEYWORD, 18/PROCESSOR ADDR                         DBG=IDP   114
                                        *          .                                                             DBG=IDP   115
                                        *          .                                                             DBG=IDP   116
                                        *         DATA   0           END OF TABLE MARK                           DBG=IDP   117
                                        *                                                                        DBG=IDP   118
                                        *            AFTER KEYWORD PROCESSING, THE USER SHOULD BRANCH TO EITHER  DBG=IDP   119
                                        *         *IDP=MN* TO REENTER THE MAIN LOOP, OR TO *IDP=ER* TO ISSUE     DBG=IDP   120
                                        *         MESSAGE *ERROR--* BEFORE REENTERING MAIN LOOP.                 DBG=IDP   121
                                        ************************************************************************ DBG=IDP   122
                                        *                                                                        DBG=IDP   123
                                        ***          IF THE SYMBOL *UIO=* IS DEFINED (DEF), THEN *UIO= - USER    DBG=IDP   124
                                        *         IDP OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY   DBG=IDP   125
                                        *         TO *IDP=*. IT ALLOWS THE USER TO PERFORM HER OWN TASKS BEFORE  DBG=IDP   126
                                        *         ENTERING INTERACTIVE MODE (E.G. CHECKING A MASTER SNAP FLAG).  DBG=IDP   127
                                        *                                                                        DBG=IDP   128
                                        **        UIO= - USER IDP OWNCODE.                                       DBG=IDP   129
                                        *                                                                        DBG=IDP   130
                                        *         ENTRY  NONE                                                    DBG=IDP   131
                                        *                                                                        DBG=IDP   132
                                        *         EXIT   (X1) = .MI. IF TO ENTER INTERACTIVE MODE                DBG=IDP   133
                                        *                     = .PL. IF NOT ENTERING INTERACTIVE MODE THIS TIME  DBG=IDP   134
                                        *                              I.E. ALL REGISTERS ARE RESTORED AND       DBG=IDP   135
                                        *                                   CONTROL RETURNS TO CALLER            DBG=IDP   136
                                        *                                                                        DBG=IDP   137
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     7
  
  
                                        *         LOCKED X - 5                                                   DBG=IDP   138
                                        ************************************************************************ DBG=IDP   139
                                        *                                                                        DBG=IDP   140
                                        ***       .OS - DEFINE OPERATING SYSTEM.                                 DBG=IDP   141
                                        *                                                                        DBG=IDP   142
                                        *         .OS = 1   KRONOS 2 OR NOS 1/TS                                 DBG=IDP   143
                                        *         .OS = 2   SCOPE 2  (CYBER 76)                                  DBG=IDP   144
                                        *         .OS = 3   SCOPE 3 OR NOS 1/BE  (DEFAULT)                       DBG=IDP   145
                                        ************************************************************************ DBG=IDP   146
                                        *                                                                        DBG=IDP   147
                                        ***          IF THE SYMBOL *URO=* IS DEFINED (DEF), THEN *URO= - USER    DBG=IDP   148
                                        *         REG= OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY  DBG=IDP   149
                                        *         TO THE REGISTER SNAPSHOT ROUTINE *REG=* (CALLED VIA *REG*      DBG=IDP   150
                                        *         MACRO IN *DBG=MAC*). IT ALLOWS THE USER TO PERFORM HIS OWN     DBG=IDP   151
                                        *         TASKS BEFORE THE REGISTER SNAPSHOT IS TAKEN (E.G. CHECKING A   DBG=IDP   152
                                        *         MASTER SNAP FLAG).                                             DBG=IDP   153
                                        *                                                                        DBG=IDP   154
                                        **        URO= - USER REG= OWNCODE.                                      DBG=IDP   155
                                        *                                                                        DBG=IDP   156
                                        *         ENTRY  NONE                                                    DBG=IDP   157
                                        *                                                                        DBG=IDP   158
                                        *         EXIT   (X1) = .MI. IF TO PERFORM REGISTER SNAPSHOT             DBG=IDP   159
                                        *                     = .PL. IF NO REGISTER SNAPSHOT THIS TIME           DBG=IDP   160
                                        ************************************************************************ DBG=IDP   161
                                        *                                                                        DBG=IDP   162
                                        ***          IF THE SYMBOL *USO=* IS DEFINED (DEF), THEN *USO= - USER    DBG=IDP   163
                                        *         SNP= OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY  DBG=IDP   164
                                        *         TO THE CORE SNAPSHOT ROUTINE *SNP=* (CALLED VIA *SNAP* MACRO   DBG=IDP   165
                                        *         IN *DBG=MAC*). IT ALLOWS THE USER TO PERFORM HIS OWN TASKS     DBG=IDP   166
                                        *         BEFORE THE SNAPSHOT IS TAKEN (E.G. CHECKING A MASTER SNAP      DBG=IDP   167
                                        *         FLAG).                                                         DBG=IDP   168
                                        *                                                                        DBG=IDP   169
                                        **        USO= - USER SNP= OWNCODE.                                      DBG=IDP   170
                                        *                                                                        DBG=IDP   171
                                        *         ENTRY  NONE                                                    DBG=IDP   172
                                        *                                                                        DBG=IDP   173
                                        *         EXIT   (X1) = .MI. IF SNAP TO BE TAKEN                         DBG=IDP   174
                                        *                     = .PL. IF NO SNAP THIS TIME                        DBG=IDP   175
                                        ************************************************************************ DBG=IDP   176
                                        *                                                                        DBG=IDP   177
                                        ***              AS A SPACE OPTIMIZATION, IF THE FOLLOWING GENERAL       DBG=IDP   178
                                        *         UTILITY SUBROUTINES ARE DEFINED (DEF), THEN THEY WILL NOT BE   DBG=IDP   179
                                        *         ASSEMBLED WITHIN *DBG=IDP*--                                   DBG=IDP   180
                                        *                                                                        DBG=IDP   181
                                        *         WOD - CONVERT A FULL BINARY WORD TO OCTAL DPC.                 DBG=IDP   183
                                        *                                                                        DBG=IDP   184
                                        *                THIS OPTIOM APPLIES MAINLY TO HOST PROGRAMS THAT HAVE   DBG=IDP   185
                                        *         *DBG=IDP* ASSEMBLED ONLY IN A TEST OR DEBUGGING CONFIGURATION, DBG=IDP   186
                                        *         BUT THAT REQUIRE THE ABOVE UTILITY SUBROUTINES UNDER ALL       DBG=IDP   187
                                        *         CONFIGURATIONS, THEREBY NECESSITATING A SEPARATE COPY OF THEM. DBG=IDP   188
                                        ************************************************************************ DBG=IDP   189
                                         .OS      SPACE  4,8                                                     DBG=IDP   190
                                        **        DEFINE DEFAULT OPERATING SYSTEM.                               DBG=IDP   191
                                                  IF     -DEF,.OS,1                                              DBG=IDP   192
                                         .OS      =      3           SCOPE 3                                     DBG=IDP   193
                                         BITMIC   SPACE  4,8                                                     DBG0002    52
                                        **        BITMIC - MACRO TO GENERATE BIT MASKS FOR CHARACTER STRINGS     DBG0002    53
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     8
  
  
                                        *                                                                        DBG0002    54
                                        * MIKE    BITMIC (BITS),OFF                                              DBG0002    55
                                        * MIKE    LETMIC (LETS),OFF             (ALTERNATE FORM)                 DBG0002    56
                                        *                                                                        DBG0002    57
                                        *         *MIKE* = THE NAME OF THE MICRO TO BE GENERATED.                DBG0002    58
                                        *         *BITS* = (BIT1,BIT2,...,BITN)                                  DBG0002    59
                                        *                WHERE EACH *BITN* IS A VALUE OF A BIT THAT IS TO BE SET DBG0002    60
                                        *         *LETS* = A CHARACTER STRING, (ABCD...N) IMPLIES THAT           DBG0002    61
                                        *                THE BIT VALUES ARE (1RA,1RB,1RC,...,1RN).               DBG0002    62
                                        *                THIS ALTERNATE FORM IS MERELY A CONVENIENCE ITEM.       DBG0002    63
                                        *         *OFF*  = OFFSET, IF OTHER THAN 59.                             DBG0002    64
                                        *                                                                        DBG0002    65
                                        *         GENERATES A MICRO WHICH IS A 20 OCTAL DIGIT INTEGER (WITH      DBG0002    66
                                        *                THE *B* SUFFIX PRESENT) WHICH REPRESENTS THE SUM OF     DBG0002    67
                                        *                    ---     2**(OFF-BIT(N))     ---                     DBG0002    68
                                        *                TAKEN OVER ALL *N* PARAMETERS.                          DBG0002    69
                                        *                *OFF* IS = 59 UNLESS EXPLICITLY MENTIONED.              DBG0002    70
                                        *                                                                        DBG0002    71
                                        *         USES   (AS SCRATCH SYMBOLS)  A B C D E F G                     DBG0002    72
                                                                                                                 DBG0002    73
                                                  NOREF  A,B,C,D,E,F,G                                           DBG0002    74
                                                                                                                 DBG0002    75
                                                  PURGMAC BITMIC                                                 DBG0002    76
                                                                                                                 DBG0002    77
                                                  MACRO  BITMIC,LOC,BITS,OFF                                     DBG0002    78
                                         C        OCTMIC ,10D                                                    DBG0002    79
                                         D        OCTMIC ,10D                                                    DBG0002    80
                                         F        SET    OFF 59D                                                 DBG0002    81
                                                  IRP    BITS                                                    DBG0002    82
                                        ..2       IFLE   F-BITS,29                                               DBG0002    83
                                         E        DECMIC F-BITS,2                                                DBG0002    84
                                         C        OCTMIC 1S"E"+"C"B,10D                                          DBG0002    85
                                        ..2       ELSE                                                           DBG0002    86
                                         E        DECMIC F-30-BITS,2                                             DBG0002    87
                                         D        OCTMIC 1S"E"+"D"B,10D                                          DBG0002    88
                                        ..2       ENDIF                                                          DBG0002    89
                                                  IRP                                                            DBG0002    90
                                         LOC      MICRO  1,, "D""C"B                                             DBG0002    91
                                         BITMIC   ENDM                                                           DBG0002    92
                                         LETMIC   SPACE  4,8                                                     DBG0002    93
                                                  PURGMAC LETMIC                                                 DBG0002    94
                                                                                                                 DBG0002    95
                                                  MACRO  LETMIC,LOC,BITS,OFF                                     DBG0002    96
                                         A        SET    0                                                       DBG0002    97
                                         B        MICRO  1,,^_BITS_^                                             DBG0002    98
                                         C        OCTMIC ,10D                                                    DBG0002    99
                                         D        OCTMIC ,10D                                                    DBG0002   100
                                         F        SET    OFF 59D                                                 DBG0002   101
                                         G        MICCNT B                                                       DBG0002   102
                                        .1        DUP    G                                                       DBG0002   103
                                         A        SET    A+1                                                     DBG0002   104
                                         B        MICRO  A,1,^_BITS_^                                            DBG0002   105
                                        ..2       IFLE   F-1R"B",29                                              DBG0002   106
                                         E        DECMIC F-1R"B",2                                               DBG0002   107
                                         C        OCTMIC 1S"E"+"C"B,10D                                          DBG0002   108
                                        ..2       ELSE                                                           DBG0002   109
                                         E        DECMIC F-30-1R"B",2                                            DBG0002   110
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE     9
  
  
                                         D        OCTMIC 1S"E"+"D"B,10D                                          DBG0002   111
                                        ..2       ENDIF                                                          DBG0002   112
                                        .1        ENDD                                                           DBG0002   113
                                         LOC      MICRO  1,, "D""C"B                                             DBG0002   114
                                         LETMIC   ENDM                                                           DBG0002   115
                                         CHARMX   SPACE  4,8                                                     DBG0002   116
                                        **        CHARMX - GENERATE CHARACTER SHIFT MASK WORD.                   DBG0002   117
                                        *                                                                        DBG0002   118
                                        *                                                                        DBG0002   119
                                        * LAB     CHARMX CHAR,BIAS                                               DBG0002   120
                                        *                                                                        DBG0002   121
                                        * MX=NR09 CHARMX (0,1,2,3,4,5,6,7,8,9)                                   DBG0002   122
                                        * MX=TOKN CHARMX ("EOS",+,-,*,(,)),+7777B-1RM                            DBG0002   123
                                        *                                                                        DBG0002   124
                                        *         ENTRY  LAB  = COMPASS ADDRESS FIELD OF CHARACTER SHIFT MASK    DBG0002   125
                                        *                         WORD                                           DBG0002   126
                                        *                CHAR = A LIST OF CHARACTERS TO GENERATE SHIFT MASK FOR  DBG0002   127
                                        *                BIAS = CHAR BIAS (MODULO 60D)                           DBG0002   128
                                        *                                                                        DBG0002   129
                                        *                         IF (LAB) ARE LEFT SHIFTED *CHAR_BIAS*, THEN    DBG0002   130
                                        *                         SIGN BIT WILL BE ON FOR ANY CHARACTER THAT     DBG0002   131
                                        *                         APPEARED IN *CHAR* LIST, AND OFF FOR ALL       DBG0002   132
                                        *                         OTHERS.                                        DBG0002   133
                                        *                                                                        DBG0002   134
                                        *         EXIT   NONE                                                    DBG0002   135
                                        *                                                                        DBG0002   136
                                        *         USES   NONE                                                    DBG0002   137
                                        *                                                                        DBG0002   138
                                        *         CALLS  NONE                                                    DBG0002   139
                                                                                                                 DBG0002   140
                                                  NOREF  .2,.3,.4                                                DBG0002   141
                                                                                                                 DBG0002   142
                                                  PURGMAC CHARMX                                                 DBG0002   143
                                                                                                                 DBG0002   144
                                                  MACRO  CHARMX,LAB,CHAR,BIAS                                    DBG0002   145
                                        *                                                                        DBG0002   146
                                         .1       MICRO  1,60,/0000000000000000000000000000000000000000000000000 DBG0002   147
                                        ,00000000000/                                                            DBG0002   148
                                        *                                                                        DBG0002   149
                                         CHAR     IRP    CHAR                                                    DBG0002   150
                                         .2       MICRO  1,,/CHAR/                                               DBG0002   151
                                         .3       MICCNT .2                                                      DBG0002   152
                                        *                                                                        DBG0002   153
                                                  IFEQ   .3,1,2                                                  DBG0002   154
                                         .4       SET    1R".2"                                                  DBG0002   155
                                                  SKIP   1                                                       DBG0002   156
                                         .4       SET    ".2"                                                    DBG0002   157
                                        *                                                                        DBG0002   158
                                                  IFC    NE,/BIAS//,1                                            DBG0002   159
                                         .4       SET    .4_BIAS                                                 DBG0002   160
                                        *                                                                        DBG0002   161
                                         .4       OCTMIC .4,2                                                    DBG0002   162
                                         .2       SET    ".4"B                                                   DBG0002   163
                                        *                                                                        DBG0002   164
                                                  IFNE   .2,0,2                                                  DBG0002   165
                                         .3       MICRO  1,.2,/".1"/                                             DBG0002   166
                                                  SKIP   1                                                       DBG0002   167
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    10
  
  
                                         .3       MICRO  1,,//                                                   DBG0002   168
                                        *                                                                        DBG0002   169
                                                  IFNE   .2,59,2                                                 DBG0002   170
                                         .4       MICRO  .2+2,,/".1"/                                            DBG0002   171
                                                  SKIP   1                                                       DBG0002   172
                                         .4       MICRO  1,,//                                                   DBG0002   173
                                        *                                                                        DBG0002   174
                                         .1       MICRO  1,60,/".3"1".4"/                                        DBG0002   175
                                         CHAR     IRP                                                            DBG0002   176
                                        *                                                                        DBG0002   177
                                         .2       SET    0                                                       DBG0002   178
                                         LAB      BSS    0                                                       DBG0002   179
                                        *                                                                        DBG0002   180
                                         BIT      DUP    60                                                      DBG0002   181
                                         .2       SET    .2+1                                                    DBG0002   182
                                         .3       MICRO  .2,1,/".1"/                                             DBG0002   183
                                        *                                                                        DBG0002   184
                                                  POS    60-.2+1                                                 DBG0002   185
                                                  VFD    1/".3"                                                  DBG0002   186
                                         BIT      ENDD                                                           DBG0002   187
                                        *                                                                        DBG0002   188
                                         CHARMX   ENDM                                                           DBG0002   189
                                         DESCRIBE SPACE  4,8                                                     DBG0002   190
                                        **        DESCRIBE, DEFINE - FIELD DEFINITION MACROS.                    DBG0002   191
                                        *                                                                        DBG0002   192
                                        *         MACROS TO FACILITATE FIELD DESCRIPTION, WHERE FIELDS ARE       DBG0002   193
                                        *         SUB-WORD ENTITIES.  THE 'DESCRIBE' MACRO IS USED TO PROVIDE    DBG0002   194
                                        *         A PREFIX FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES. DBG0002   195
                                        *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE         DBG0002   196
                                        *         DEFINED0                                                       DBG0002   197
                                        *                                                                        DBG0002   198
                                        *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT    DBG0002   199
                                        *                              WHICH COMPRISES THE NAMED FIELD (WITHIN   DBG0002   200
                                        *                              A WORD BITS ARE NUMBERED ACCORDING TO     DBG0002   201
                                        *                              THE POWER OF TWO WHICH THEY REPRESENT)    DBG0002   202
                                        *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD           DBG0002   203
                                        *                                                                        DBG0002   204
                                        *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-  DBG0002   205
                                        *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER   DBG0002   206
                                        *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.  DBG0002   207
                                        *                                                                        DBG0002   208
                                        *         'DESCRIBE' REFERENCE --                                        DBG0002   209
                                        *                                                                        DBG0002   210
                                        *                DESCRIBE PFX,BITSLONG,TOPBIT                            DBG0002   211
                                        *                                                                        DBG0002   212
                                        *         WHERE  PFX  IS THE PREFIX MENTIONED ABOVE,                     DBG0002   213
                                        *           BITSLONG  IS THE TOTAL LENGTH IN BITS OF THE STRUCTURE,      DBG0002   214
                                        *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED,           DBG0002   215
                                        *             TOPBIT  THE BEGINNING (I.E. LEFTMOST) BIT OF THE STRUCTURE DBG0002   216
                                        *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE        DBG0002   217
                                        *                                                                        DBG0002   218
                                        *         'DEFINE' REFERENCE --                                          DBG0002   219
                                        *         NAME   DEFINE  LENGTH,RESET                                    DBG0002   220
                                        *                                                                        DBG0002   221
                                        *         WHERE NAME IS THE NAME OF THE FIELD MENTIONED ABOVE, IF NOT    DBG0002   222
                                        *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.      DBG0002   223
                                        *             LENGTH IS THE BIT LENGTH OF THE FIELD (OR FILLER), A VALUE DBG0002   224
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    11
  
  
                                        *                    ONE IS ASSUMED IF THIS PARAMETER IS OMITTED         DBG0002   225
                                        *              RESET IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE        DBG0002   226
                                        *                    DEFINED RELATIVE TO BIT POSITION 'RESET' AS THE     DBG0002   227
                                        *                    TOPMOST (LEFTMOST) BIT.                             DBG0002   228
                                        *                                                                        DBG0002   229
                                        *         UNLESS THE 'RESET' PARAMETER OCCURS, EACH 'DEFINE' IS          DBG0002   230
                                        *         CONSIDERED TO REFERENCE A FIELD BEGINNING TO THE IMMEDIATE     DBG0002   231
                                        *         RIGHT OF THE PRECEDING FIELD.                                  DBG0002   232
                                        *                                                                        DBG0002   233
                                        *         CONSIDER THE FOLLOWING EXAMPLE                                 DBG0002   234
                                        *                                                                        DBG0002   235
                                        *         TABLE X      .------.-------.------.                           DBG0002   236
                                        *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE @ 100)     DBG0002   237
                                        *                      .------.-------.------.                           DBG0002   238
                                        *                       '      '       '     '                           DBG0002   239
                                        *                      59     47      17     0                           DBG0002   240
                                        *                                                                        DBG0002   241
                                        *                 OR   .------.--------------.                           DBG0002   242
                                        *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)         DBG0002   243
                                        *                      .------.--------------.                           DBG0002   244
                                        *                       '      '             '                           DBG0002   245
                                        *                      59     47             0                           DBG0002   246
                                        *                                                                        DBG0002   247
                                        *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE DBG0002   248
                                        *                                  TWO CHARACTERS 'X.'                   DBG0002   249
                                        *         TYPE   DEFINE  12                                              DBG0002   250
                                        *         MSG    DEFINE  48                                              DBG0002   251
                                        *         VALUE  DEFINE  30,X.TYPEP-1                                    DBG0002   252
                                        *         SUBV   DEFINE  18                                              DBG0002   253
                                        *                                                                        DBG0002   254
                                        *       THE SYMBOLS DEFINED WOULD BE                                     DBG0002   255
                                        *                                                                        DBG0002   256
                                        *                X.TYPEP   EQU  48                                       DBG0002   257
                                        *                X.TYPEL   EQU  12                                       DBG0002   258
                                        *                X.MSGP    EQU   0                                       DBG0002   259
                                        *                X.MSGL    EQU  48                                       DBG0002   260
                                        *                X.VALUEP  EQU  18                                       DBG0002   261
                                        *                X.VALUEL  EQU  30                                       DBG0002   262
                                        *                X.SUBVP   EQU   0                                       DBG0002   263
                                        *                X.SUBVL   EQU  18                                       DBG0002   264
                                                                                                                 DBG0002   265
                                                  NOREF  .1,.L,.P,.Z                                             DBG0002   266
                                                                                                                 DBG0002   267
                                                  PURGMAC DESCRIBE                                               DBG0002   268
                                                                                                                 DBG0002   269
                                         DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT                                  DBG0002   270
                                        *                                                                        DBG0002   271
                                         .P       MICRO  1,,/PREFIX/                                             DBG0002   272
                                         .L       SET    BITSLONG 60                                             DBG0002   273
                                         .B       SET    TOPBIT .L-1                                             DBG0002   274
                                         DESCRIBE ENDM                                                           DBG0002   275
                                                                                                                 DBG0002   276
                                                  PURGMAC DEFINE                                                 DBG0002   277
                                                                                                                 DBG0002   278
                                                  MACRO  DEFINE,N,LONG,RESET                                     DBG0002   279
                                         .1       SET    LONG 1                                                  DBG0002   280
                                                  IFC    NE,//RESET/,2                                           DBG0002   281
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    12
  
  
                                         .B       SET    RESET                                                   DBG0002   282
                                         .L       SET    1000                                                    DBG0002   283
                                                  IFC    NE,//N/,6                                               DBG0002   284
                                         ".P"N_P  EQU    .B-.1+1                                                 DBG0002   285
                                         ".P"N_L  EQU    .1                                                      DBG0002   286
                                                  IFEQ   .1,1,3                                                  DBG0002   287
                                                  IFLE   ".P"N_P,18,2                                            DBG0002   288
                                         .A       DECMIC ".P"N_P                                                 DBG0002   289
                                         ".P"N_M  EQU    1S".A"                                                  DBG0002   290
                                         .L       SET    .L-.1                                                   DBG0002   291
                                         .B       SET    .B-.1                                                   DBG0002   292
                                                  IFLT   .L,0,1                                                  DBG0002   293
                                                   ERR    TOTAL FIELD LENGTHS ARE LONGER THAN SPECIFIED          DBG0002   294
                                                  IFLT   .B,0,3                                                  DBG0002   295
                                                  IFNE   .B,-1,1                                                 DBG0002   296
                                                   ERR    FIELD SPANS A WORD BOUNDARY                            DBG0002   297
                                         .B       SET    59                                                      DBG0002   298
                                         DEFINE   ENDM                                                           DBG0002   299
                                         DEQU     SPACE  4,8                                                     DBG0002   300
                                        **        DEQU - DEFINE EQUIVALENCED FIELDS                              DBG0002   301
                                                                                                                 DBG0002   302
                                                  PURGMAC DEQU                                                   DBG0002   303
                                                                                                                 DBG0002   304
                                                  MACRO  DEQU,N,B,LEN                                            DBG0002   305
                                         ".P"N_P  EQU    ".P"B_P                                                 DBG0002   306
                                         ".P"N_L  EQU    LEN ".P"B_L                                             DBG0002   307
                                                  ENDM                                                           DBG0002   308
                                         LXQ      SPACE  4,8                                                     DBG0002   309
                                        **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                     DBG0002   310
                                        *                                                                        DBG0002   311
                                        *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS    DBG0002   312
                                        *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.       DBG0002   313
                                        *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                        DBG0002   314
                                        *                                                                        DBG0002   315
                                        *         LXI       JK                                                   DBG0002   316
                                        *                                                                        DBG0002   317
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED                              DBG0002   318
                                        *                *JK* = SHIFT COUNT EXPRESSION                           DBG0002   319
                                        *                                                                        DBG0002   320
                                        *         USES   XI                                                      DBG0002   321
                                                                                                                 DBG0002   322
                                                                                                                 DBG0002   323
                                                  PURGDEF ^XQ                                                    DBG0002   324
                                                  PURGDEF   LXQ                                                  DBG0002   325
                                         ^XQ      CPOP   0,200B,100B                                             DBG0002   326
                                                                                                                 DBG0002   327
                                         LXQ      OPDEF     I,JK                                                 DBG0002   328
                                          IFNE JK,0,2                                                            DBG0002   329
                                          IFNE JK_&60D,0,1                                                       DBG0002   330
                                          ^X.I JK                                                                DBG0002   331
                                          ENDM                                                                   DBG0002   332
                                         PRIDP    SPACE  4,8                                                     DBG=IDP   194
                                        **        PRIDP - PRINT CODED LINE ON OUTPUT FILE.                       DBG=IDP   195
                                        *                                                                        DBG=IDP   196
                                        *                                                                        DBG=IDP   197
                                        *         PRIDP  FWA,LEN,NRB                                             DBG=IDP   198
                                        *                                                                        DBG=IDP   199
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    13
  
  
                                        *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                          DBG=IDP   200
                                        *                LEN = LENGTH OF LINE (IN WORDS)                         DBG=IDP   201
                                        *                    = .ZR. IF LENGTH TO BE COMPUTED                     DBG=IDP   202
                                        *                NRB = NR OF BLANK LINES TO OUTPUT PRECEDING THE LINE    DBG=IDP   203
                                        *                                                                        DBG=IDP   204
                                        *         EXIT   NONE                                                    DBG=IDP   205
                                        *                                                                        DBG=IDP   206
                                        *         USES   ALL BUT B4,A0,X0,A5,X5 (INCLUDES ALL CALLS)             DBG=IDP   207
                                        *                                                                        DBG=IDP   208
                                        *         CALLS  ROL                                                     DBG=IDP   209
                                                                                                                 DBG=IDP   210
                                                                                                                 DBG=IDP   211
                                                  PURGMAC PRIDP                                                  DBG=IDP   212
                                                                                                                 DBG=IDP   213
                                         PRIDP    MACRO  FWA,LEN,NRB                                             DBG=IDP   214
                                                  =X6    FWA                                                     DBG=IDP   215
                                                  =X7    LEN                                                     DBG=IDP   216
                                                  =X4    NRB                                                     DBG=IDP   217
                                                  RJ     =XROL                                                   DBG=IDP   218
                                         PRIDP    ENDM                                                           DBG=IDP   219
                                         PRBDO    SPACE  4,8                                                     DBG=IDP   220
                                        **        PRBDO - PRINT CODED LINE ON BATCH DEBUG OUTPUT FILE.           DBG=IDP   221
                                        *                                                                        DBG=IDP   222
                                        *                                                                        DBG=IDP   223
                                        *                IF THE USER DID NOT DEFINE A BATCH DEBUG OUTPUT FILE,   DBG=IDP   224
                                        *         (F.BDO -DEF), THEN *IDP* WILL INVENT ONE AND ACCESS IT VIA     DBG=IDP   225
                                        *         *PRBDO* MACRO. IF *F.BDO* IS DEFINED, THEN THE USER SUPPLIES   DBG=IDP   226
                                        *         HER OWN *PRBDO*.                                               DBG0002   333
                                        *                                                                        DBG=IDP   228
                                        *         PRBDO  FWA,LEN                                                 DBG=IDP   229
                                        *                                                                        DBG=IDP   230
                                        *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                          DBG=IDP   231
                                        *                LEN = LENGTH OF LINE (IN WORDS)                         DBG=IDP   232
                                        *                    = .ZR. IF LENGTH TO BE COMPUTED                     DBG=IDP   233
                                        *                                                                        DBG=IDP   234
                                        *         EXIT   NONE                                                    DBG=IDP   235
                                        *                                                                        DBG=IDP   236
                                        *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)              DBG=IDP   237
                                        *                                                                        DBG=IDP   238
                                        *         CALLS  WRITEC                                                  DBG=IDP   239
                                                                                                                 DBG=IDP   240
                                                                                                                 DBG=IDP   241
                                         #BDO     IF     -DEF,F.BDO                                              DBG=IDP   242
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              DBG=IDP   243
                                                                                                                 DBG=IDP   244
                                                  PURGMAC PRBDO                                                  DBG=IDP   245
                                                                                                                 DBG=IDP   246
                                         PRBDO    MACRO  FWA,LEN                                                 DBG=IDP   247
                                                  WRITEC =XF.BDO,(FWA),(LEN)                                     DBG=IDP   248
                                         PRBDO    ENDM                                                           DBG=IDP   249
                                         #OS      ENDIF                                                          DBG=IDP   250
                                         #BDO     ENDIF                                                          DBG=IDP   251
                                         MICROS   SPACE  4,8                                                     DBG0002   334
                                        **        DEFINE DEFAULT MICROS.                                         DBG0002   335
                                                                                                                 DBG0002   336
                                                  IFNE   .OS,2,2                                                 DBG0002   337
                                                  IF     -MIC,EOS,1                                              DBG0002   338
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    14
  
  
                                         EOS      MICRO  1,,/;/                                                  DBG0002   339
                                                                                                                 DBG0002   340
                                                  IFNE   .OS,2,2                                                 DBG0002   341
                                                  IF     -MIC,PROMPT,1                                           DBG0002   342
                                         PROMPT   MICRO  1,,/>>/                                                 DBG0002   343
                                         DEFS     SPACE  4,8                                                     DBG=IDP   252
                                        **        SYMBOL DEFINITIONS.                                            DBG=IDP   253
                                                                                                                 DBG=IDP   254
                                                                                                                 DBG=IDP   255
                                         CHAR     =      6           LENGTH OF CYBER CHARACTER                   DBG=IDP   256
                                                                                                                 DBG=IDP   257
                                         L.BSL    =      4           NR OF CM WORDS DUMPED ON LINE (BATCH)       DBG=IDP   258
                                         L.ISL    =      2           NR OF CM WORDS DUMPED ON LINE (INTERACTIVE) DBG=IDP   259
                                                                                                                 DBG=IDP   260
                                         L.PRB    =      0           NR OF PRECEDING BLANKS TO OUTPUT            DBG0002   344
                                        *                              FOR SPACING PURPOSES                      DBG=IDP   262
                                         DEFS     SPACE  4,8                                                     DBG=IDP   263
                                        **        SNAP PARAMETER LIST SYMBOL DEFINITIONS.                        DBG=IDP   264
                                        *           THESE SYMBOLS DEFINE THE ORDINALS INTO THE SNAP PARAMETER    DBG=IDP   265
                                        *           LIST. (DESIRED WORD IS AT-- FWA OF PARAMETER LIST + SN=XXX)  DBG=IDP   266
                                                                                                                 DBG=IDP   267
                                                                                                                 DBG=IDP   268
                                         SN=FRK   =      0           1ST WORD OF FREQUENCY PARAMETER LIST        DBG=IDP   269
                                         SN=LL    =      0           LOWER LIMIT                                 DBG=IDP   270
                                         SN=UL    =      1           UPPER LIMIT                                 DBG=IDP   271
                                         SN=INC   =      2           INCREMENT                                   DBG=IDP   272
                                         SN=HDR   =      3           HEADER                                      DBG=IDP   273
                                         SN=CNT   =      4           SNAP COUNT                                  DBG=IDP   274
                                         SN=FWA   =      5           FWA                                         DBG=IDP   275
                                         SN=LWA   =      6           LWA                                         DBG=IDP   276
                                         SN=LEN   =      7           LENGTH                                      DBG=IDP   277
                                         SN=RRL   =      5           1ST WORD OF *RGR=* LIST FOR *REG* MACRO     DBG=IDP   278
                                         SN=SRL   =      8           1ST WORD OF *RGR=* LIST FOR *SNAP* MACRO    DBG=IDP   279
                                         APL      SPACE  4,8                                                     DBG=IDP   280
                                        *         APL - DUMMY APLIST USED FOR SAVE CELLS AND *IDP* CALLS.        DBG=IDP   281
                                                                                                                 DBG=IDP   282
                                         APL      BSSZ   SN=LEN+1                                                DBG=IDP   283
                                                                                                                 DBG=IDP   284
                                                  LOC    APL                                                     DBG=IDP   285
                                                                                                                 DBG=IDP   286
                                         AP=LL    =      *+SN=LL                                                 DBG=IDP   287
                                         AP=UL    =      *+SN=UL                                                 DBG=IDP   288
                                         AP=INC   =      *+SN=INC                                                DBG=IDP   289
                                         AP=HDR   =      *+SN=HDR                                                DBG=IDP   290
                                         AP=CNT   =      *+SN=CNT                                                DBG=IDP   291
                                         AP=FWA   =      *+SN=FWA                                                DBG=IDP   292
                                         AP=LWA   =      *+SN=LWA                                                DBG=IDP   293
                                         AP=LEN   =      *+SN=LEN                                                DBG=IDP   294
                                                  LOC    *O                                                      DBG=IDP   295
                                         DATA     SPACE  4,8                                                     DBG=IDP   296
                                         FWAPARM  BSSZ   1           SAVE CELL FOR FWA OF PARAMETER LIST         DBG=IDP   297
                                                                                                                 DBG=IDP   298
                                                                                                                 DBG=IDP   302
                                         SNAPLNE  BSSZ   15          INTERACTIVE AND BATCH DEBUG OUTPUT LINE     DBG=IDP   303
                                        *                              IMAGE AREA                                DBG=IDP   304
                                         IDPFLG   SPACE  4,8                                                     DBG0002   345
                                        **        IDPFLG - INTERACTIVE/BATCH MASTER CONTROL FLAG.                DBG0002   346
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    15
  
  
                                        *                                                                        DBG0002   347
                                        *                CONTAINS GLOBAL CONTROL INFORMATION THAT IS USED        DBG0002   348
                                        *         THROUGH OUT *DBG=IDP*.  THE FIELDS IN *IDPFLG* ARE DESCRIBED   DBG0002   349
                                        *         BY PAIRS OF SYMBOLS OF THE FORM *IDF.XXXP* AND *IDF.XXXL*,     DBG0002   350
                                        *         WHERE *IDF* IS THE COMMON PREFIX, *XXX* IS THE FIELD           DBG0002   351
                                        *         DESCRIPTOR, *P* DENOTES THE RIGHT-MOST BIT OF THE FIELD, AND   DBG0002   352
                                        *         *L* DENOTES THE LENGTH OF THE FIELD.                           DBG0002   353
                                        *                                                                        DBG0002   354
                                        *                FIELD DESCRIPTIONS (XXX) ARE --                         DBG0002   355
                                        *                                                                        DBG0002   356
                                        *         ADR  = 0  IF ADDRESSES ARE TO BE OUTPUT AS ABSOLUTE            DBG0002   357
                                        *              = 1  IF ADDRESSES ARE TO BE OUTPUT AS DECK RELATIVE       DBG0002   358
                                        *                                                                        DBG0002   359
                                        *         BDO  = 1  IF WRITING TO BATCH DEBUG OUTPUT FILE (F.BDO),       DBG0002   360
                                        *                     ELSE 0                                             DBG0002   361
                                        *                                                                        DBG0002   362
                                        *         BKO  = 1  IF ECHOING/WRITING INPUT SOURCE LINE IMAGE TO        DBG0002   363
                                        *                     BATCH DEBUG OUTPUT FILE *F.BDO*, ELSE 0            DBG0002   364
                                        *                                                                        DBG0002   365
                                        *         FTO  = 0  IF THIS IS 1ST TIME *IDP* HAS BEEN CALLED, ELSE 1    DBG0002   366
                                        *                                                                        DBG0002   367
                                        *         IDO  = 1  IF WRITING TO INTERACTIVE DEBUG OUTPUT FILE (F.IDO), DBG0002   368
                                        *                     ELSE 0                                             DBG0002   369
                                        *                                                                        DBG0002   370
                                        *         IKO  = 1  IF ECHOING/WRITING INPUT SOURCE LINE IMAGE TO        DBG0002   371
                                        *                     INTERACTIVE DEBUG OUTPUT FILE *F.IDO*, ELSE 0      DBG0002   372
                                        *                                                                        DBG0002   373
                                        *         INP  = 1  IF READING FROM BATCH DEBUG INPUT FILE (F.BDI)       DBG0002   374
                                        *                     (I.E. READING FROM AN UNCONNECTED INPUT FILE)      DBG0002   375
                                        *              = 0  IF READING FROM INTERACTIVE DEBUG INPUT FILE (F.IDI) DBG0002   376
                                        *                                                                        DBG0002   377
                                        *         SNL  = NR OF CM WORDS TO BE DUMPED (BY *DCM*) ON A SINGLE LINE DBG0002   378
                                        *              = L.BSL  IN BATCH MODE                                    DBG0002   379
                                        *              = L.ISL  IN INTERACTIVE MODE                              DBG0002   380
                                        *                                                                        DBG0002   381
                                        *         XEC  = 0  IF THE EXECUTIVE IS *IDP=*                           DBG0002   382
                                        *              = 1  IF THE EXECUTIVE IS *REG=*                           DBG0002   383
                                        *              = 2  IF THE EXECUTIVE IS *SNP=*                           DBG0002   384
                                                                                                                 DBG0002   385
                                                                                                                 DBG0002   386
                                                  DESCRIBE IDF.                                                  DBG0002   387
                                         IDO      DEFINE 1                                                       DBG0002   388
                                         IKO      DEFINE 1                                                       DBG0002   389
                                                  DEFINE 1                                                       DBG0002   390
                                         BDO      DEFINE 1                                                       DBG0002   391
                                         BKO      DEFINE 1                                                       DBG0002   392
                                                  DEFINE 1                                                       DBG0002   393
                                         FTO      DEFINE 1                                                       DBG0002   394
                                         INP      DEFINE 1                                                       DBG0002   395
                                         ADR      DEFINE 1                                                       DBG0002   396
                                         XEC      DEFINE 3                                                       DBG0002   397
                                                  DEFINE 30                                                      DBG0002   398
                                         SNL      DEFINE 18                                                      DBG0002   399
                                                                                                                 DBG0002   400
                                         IDPFLG   BSSZ   1                                                       DBG0002   401
                                         IDPTB    SPACE  4,8                                                     DBG0002   402
                                        **        IDPTB - COMMAND LINE TOKEN BUFFER DESCRIBE/DEFINES.            DBG0002   403
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    16
  
  
                                                                                                                 DBG0002   404
                                                                                                                 DBG0002   405
                                                  DESCRIBE TB.                                                   DBG0002   406
                                         LAS      DEFINE 1                                                       DBG0002   407
                                                  DEFINE 23                                                      DBG0002   408
                                         PRS      DEFINE 18                                                      DBG0002   409
                                         LEN      DEFINE 18                                                      DBG0002   410
                                         F.BDO    SPACE  4,8                                                     DBG=IDP   305
                                        **        F.BDO - FET AND BUFFER FOR BATCH DEBUG OUTPUT FILE.            DBG=IDP   306
                                                                                                                 DBG=IDP   307
                                         #BDO     IF     -DEF,F.BDO                                              DBG=IDP   308
                                         #OS      IFNE   .OS,2                                                   DBG=IDP   309
                                         L.BDO    =      101B        LENGTH OF BATCH OUTPUT BUFFER               DBG=IDP   310
                                                                                                                 DBG=IDP   311
                                         F.BDO    BSS    0           ** FWA OF FET **                            DBG=IDP   312
                                         BDO      FILEC  IDPBDO,L.BDO                                            DBG=IDP   313
                                         IDPBDO   BSS    L.BDO                                                   DBG=IDP   314
                                         #OS      ENDIF                                                          DBG=IDP   315
                                         #BDO     ENDIF                                                          DBG=IDP   316
                                         DBG=IDP  TITLE  BATCH AND SHARED ROUTINES.                              DBG=IDP   317
                                         CHK      SPACE  4,8                                                     DBG=IDP   318
                                        **        CHK - CHECK CM ADDRESS.                                        DBG=IDP   319
                                        *                                                                        DBG=IDP   320
                                        *                                                                        DBG=IDP   321
                                        *         ENTRY  (B2)   =  ADDRESS TO BE CHECKED                         DBG=IDP   322
                                        *                                                                        DBG=IDP   323
                                        *         EXIT   (B2)   =  .MI. IF (B2) WAS BAD                          DBG=IDP   324
                                        *                       =  UNCHANGED IF OK                               DBG=IDP   325
                                        *                                                                        DBG=IDP   326
                                        *         USES   X - 1,2                                                 DBG=IDP   327
                                        *                A - 1                                                   DBG=IDP   328
                                        *                B - NONE    (USES B2 IF .GT. FL)                        DBG=IDP   329
                                        *                                                                        DBG=IDP   330
                                        *         CALLS  NONE                                                    DBG=IDP   331
                                                                                                                 DBG=IDP   332
                                                                                                                 DBG=IDP   333
                                         CHK      SUBR               ** ENTRY/EXIT **                            DBG=IDP   334
                                                  SA1    =XCP.NFLS                                               DBG=IDP   335
                                                  MI     B2,EXIT.    IF ADDR BAD TO START WITH                   DBG=IDP   336
                                                  SX2    B2                                                      DBG=IDP   337
                                                  IX2    X2-X1                                                   DBG=IDP   338
                                                  MI     X2,EXIT.    IF ADDR OK                                  DBG=IDP   339
                                                  SB2    -B2         SET TO *ADDR IS BAD*                        DBG=IDP   340
                                                  EQ     EXIT.                                                   DBG=IDP   341
                                         DAB      SPACE  4,8                                                     DBG=IDP   342
                                        **        DAB - DUMP AN -A- OR -B- REGISTER AND WHAT IT POINTS TO.       DBG=IDP   343
                                        *                                                                        DBG=IDP   344
                                        *                                                                        DBG=IDP   345
                                        *         ENTRY  (B4) = 0TR, WHERE                                       DBG=IDP   346
                                        *                            T IS REGISTER TYPE                          DBG=IDP   347
                                        *                                  = 0 FOR -B- REGISTER                  DBG=IDP   348
                                        *                                  = 1 FOR -A- REGISTER                  DBG=IDP   349
                                        *                            R IS REGISTER NR (0-7)                      DBG=IDP   350
                                        *                            E.G.  A6 WOULD BE 016                       DBG=IDP   351
                                        *                                                                        DBG=IDP   352
                                        *         EXIT   (B4) IS UNCHANGED                                       DBG=IDP   353
                                        *                                                                        DBG=IDP   354
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    17
  
  
                                        *         USES   ALL BUT B4                                              DBG=IDP   355
                                        *                                                                        DBG=IDP   356
                                        *         CALLS  FAB,PRIDP                                               DBG=IDP   357
                                                                                                                 DBG=IDP   358
                                                                                                                 DBG=IDP   359
                                         DAB      SUBR               ** ENTRY/EXIT **                            DBG=IDP   360
                                                  SB6    SNAPLNE                                                 DBG=IDP   361
                                                  RJ     FAB         FORMAT -A- OR -B- REGISTER                  DBG=IDP   362
                                                  PRIDP  SNAPLNE                                                 DBG=IDP   363
                                                  EQ     EXIT.                                                   DBG=IDP   364
                                         DAR      SPACE  4,8                                                     DBG=IDP   365
                                        **        DAR - DUMP ALL REGISTERS.                                      DBG=IDP   366
                                        *                                                                        DBG=IDP   367
                                        *                                                                        DBG=IDP   368
                                        *         ENTRY  NONE                                                    DBG=IDP   369
                                        *                                                                        DBG=IDP   370
                                        *         EXIT   NONE                                                    DBG=IDP   371
                                        *                                                                        DBG=IDP   372
                                        *         USES   ALL                                                     DBG=IDP   373
                                        *                                                                        DBG=IDP   374
                                        *         CALLS  DAB,DUX,PRIDP,WOD                                       DBG=IDP   375
                                                                                                                 DBG=IDP   376
                                                                                                                 DBG=IDP   377
                                         DAR      SUBR   0           ** ENTRY/EXIT **                            DBG=IDP   378
                                                  SB4    B0          INITIALIZE (B4) = REGISTER COUNT, 0TR       DBG=IDP   379
                                                  PRIDP  ,,L.PRB                                                 DBG=IDP   380
                                                                                                                 DBG=IDP   381
                                                  SA1    IDPFLG                                                  DBG=IDP   382
                                                  LX1    59-IDF.IDOP                                             DBG0002   411
                                                  PL     X1,DAR5     IF NOT WRITING INTERACTIVELY,               DBG0002   412
                                        *                              PACK -A- AND -B- REGISTERS...             DBG0002   413
                                                                                                                 DBG=IDP   384
                                        *         DUMP -B- REGISTERS.                                            DBG=IDP   385
                                                                                                                 DBG=IDP   386
                                         DAR2     RJ     DAB         DUMP -B- REGISTER                           DBG=IDP   387
                                                  SB4    B4+B1                                                   DBG=IDP   388
                                                  SB7    007B                                                    DBG=IDP   389
                                                  LE     B4,B7,DAR2  IF NOT DONE                                 DBG=IDP   390
                                                                                                                 DBG=IDP   391
                                                  PRIDP  ,,L.PRB                                                 DBG=IDP   392
                                                                                                                 DBG=IDP   393
                                        *         DUMP -A- REGISTERS.                                            DBG=IDP   394
                                                                                                                 DBG=IDP   395
                                         DAR3     RJ     DAB         DUMP -A- REGISTER                           DBG=IDP   396
                                                  SB4    B4+B1                                                   DBG=IDP   397
                                                  SB7    017B                                                    DBG=IDP   398
                                                  LE     B4,B7,DAR3  IF NOT DONE                                 DBG=IDP   399
                                                                                                                 DBG=IDP   400
                                                  PRIDP  ,,L.PRB                                                 DBG=IDP   401
                                                                                                                 DBG=IDP   402
                                        *         DUMP -X- REGISTERS.                                            DBG=IDP   403
                                                                                                                 DBG=IDP   404
                                         DAR4     RJ     DUX         DUMP -X- REGISTER                           DBG=IDP   405
                                                  SB4    B4+B1                                                   DBG=IDP   406
                                                  SB7    027B                                                    DBG=IDP   407
                                                  LE     B4,B7,DAR4  IF NOT DONE                                 DBG=IDP   408
                                                  EQ     EXIT.                                                   DBG=IDP   409
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    18
  
  
                                                                                                                 DBG=IDP   410
                                        *         HERE IF PACKING -A- AND -B- REGISTERS IN BATCH MODE.           DBG=IDP   411
                                                                                                                 DBG=IDP   412
                                         DAR5     SB6    SNAPLNE                                                 DBG=IDP   413
                                                  RJ     FAB         FORMAT -B- REGISTER                         DBG=IDP   414
                                                  SB4    B4+10B                                                  DBG=IDP   415
                                                  SB6    A6                                                      DBG=IDP   416
                                                  RJ     FAB         FORMAT -A- REGISTER                         DBG=IDP   417
                                                  PRIDP  SNAPLNE                                                 DBG=IDP   418
                                                  SB4    B4-10B+1                                                DBG=IDP   419
                                                  SB7    007B                                                    DBG=IDP   420
                                                  LE     B4,B7,DAR5  IF NOT DONE                                 DBG=IDP   421
                                                                                                                 DBG=IDP   422
                                                  PRIDP  ,,L.PRB                                                 DBG=IDP   423
                                                  SB4    020B        (B4) = 0TR, WHERE T=2 (X REG)               DBG=IDP   424
                                                  EQ     DAR4                                                    DBG=IDP   425
                                         DCM      SPACE  4,8                                                     DBG=IDP   426
                                        **        DCM - DUMP CENTRAL MEMORY.                                     DBG=IDP   427
                                        *                                                                        DBG=IDP   428
                                        *                                                                        DBG=IDP   429
                                        *                CONVERTS CM WORDS TO OCTAL DPC AND DUMPS THEM IN THE    DBG0002   414
                                        *         FOLLOWING FORMAT--                                             DBG0002   415
                                        *     COL 1         1         1         1         1                      DBG0002   416
                                        *         ..NNNNNN..CCCCCCCCCCCCCCCCCCCC..........ETC                    DBG0002   417
                                        *                   ******************************                       DBG0002   418
                                        *         N = ADDR OF 1ST WORD DUMPED ON LINE                            DBG0002   419
                                        *         C = CONVERTED CM WORD                                          DBG0002   420
                                        *         . = BLANK(55B)                                                 DBG0002   421
                                        *         THE FORMAT OF COLS 11 THRU 40 (INDICATED BY *) IS REPEATED FOR DBG0002   422
                                        *           HOWEVER MANY CM WORDS ARE TO BE DUMPED ON A LINE.            DBG0002   423
                                        *                                                                        DBG0002   424
                                        *                (IDPFLG) = 42/OTHER, 18/NR OF CM WORDS TO BE DUMPED ON  DBG0002   425
                                        *                             A SINGLE LINE                              DBG0002   426
                                        *                                                                        DBG0002   427
                                        *         ENTRY  (X2) = 18/0, 21/LEV OF IND ADDR ,21/FWA                 DBG=IDP   430
                                        *                (X3) = 18/0, 21/LEV OF IND ADDR ,21/LWA                 DBG=IDP   431
                                        *                         (X3) IS OPTIONAL                               DBG=IDP   432
                                        *                (X4) = 18/0,21/LEV OF IND ADDR ,21/LEN                  DBG=IDP   433
                                        *                         NOTE -- IF LEN = 0, DMP IS FROM FWA TO LWA,    DBG=IDP   434
                                        *                                        ELSE DMP IS FROM FWA TO FWA+LEN DBG=IDP   435
                                        *                                                                        DBG=IDP   436
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN BAD, ELSE .PL.           DBG=IDP   437
                                        *                                                                        DBG=IDP   438
                                        *         USES   ALL BUT B4,A0                                           DBG0002   428
                                        *                                                                        DBG=IDP   440
                                        *         CALLS  COD,FLL,PRIDP                                           DBG=IDP   441
                                                                                                                 DBG=IDP   442
                                                                                                                 DBG=IDP   443
                                         DCM      SUBR               ** ENTRY/EXIT **                            DBG0002   429
                                                  RJ     FLL         CHECK FWA,LWA, AND LENGTH                   DBG0002   430
                                                  SA1    =10H                                                    DBG0002   431
                                                  MI     B2,EXIT.    IF FWA,LWA, OR LEN IS BAD                   DBG0002   432
                                                  BX6    X1                                                      DBG0002   433
                                                  SB6    B0          PRESET TO *READY FOR NEW SNAP LINE*         DBG0002   434
                                                  SA6    SNAPLNE     PRESTORE (A6) = ADDR OF LAST WORD STORED    DBG0002   435
                                        *                              INTO SNAP LINE.  THIS WILL FORCE A BLANK  DBG0002   436
                                        *                              LINE TO BE OUTPUT AS 1ST LINE OF DUMP.    DBG0002   437
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    19
  
  
                                                                                                                 DBG0002   438
                                        *         ** MAIN LOOP NODE **                                           DBG0002   439
                                                                                                                 DBG0002   440
                                         DCM2     SA5    AP=FWA      (X5) = ADDR OF NEXT WORD TO DUMP            DBG0002   441
                                                  SA2    A5+B1       (X2) = LWA OF DUMP                          DBG0002   442
                                                  IX3    X2-X5                                                   DBG0002   443
                                                  SX7    X5+B1                                                   DBG0002   444
                                                  MI     X3,DCM6     IF FINISHED                                 DBG0002   445
                                                  SA7    A5                                                      DBG0002   446
                                                  GT     B6,B0,DCM3  IF MORE WORDS TO DUMP ON THIS LINE          DBG0002   447
                                                                                                                 DBG0002   448
                                        *         HERE IF READY TO OUTPUT OLD LINE AND START NEW LINE BY         DBG0002   449
                                        *           SETTING UP ADDR OF 1ST WORD ON LINE.                         DBG0002   450
                                                                                                                 DBG0002   451
                                                  MX6    0                                                       DBG0002   452
                                                  SA6    A6+B1       MARK EOL                                    DBG0002   453
                                                  PRIDP  SNAPLNE                                                 DBG0002   454
                                                                                                                 DBG0002   455
                                                  SX1    X5                                                      DBG0002   456
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- ADDR         DBG0002   457
                                                  SA1    IDPFLG                                                  DBG0002   458
                                                  LX6    8*CHAR-6*CHAR                                           DBG0002   459
                                                  SB6    X1          (B6) = NR OF WORDS TO DUMP ON A LINE        DBG0002   460
                                                  SA6    SNAPLNE                                                 DBG0002   461
                                                  LE     B6,B0,*+4S15 IF BAD WORDS PER LINE COUNT...             DBG0002   462
                                                                                                                 DBG0002   463
                                        *         HERE TO DUMP A SINGLE WORD.                                    DBG0002   464
                                                                                                                 DBG0002   465
                                         DCM3     SA1    X5          (X1) = NEXT WORD TO BE DUMPED               DBG0002   466
                                                  SA2    =10H                                                    DBG0002   467
                                                  NZ     X1,DCM4     IF WORD TO DUMP IS NON-ZERO                 DBG0002   468
                                                  SX3    2R 0&2R                                                 DBG0002   469
                                                  SX4    2R-0&2R                                                 DBG0002   470
                                                  BX3    -X1*X3                                                  DBG0002   471
                                                  BX4    -X1+X4                                                  DBG0002   472
                                                  IX5    X3+X4                                                   DBG0002   473
                                                  LX6    X2                                                      DBG0002   474
                                                  BX7    X2-X5       (X7) = .........0   (.=55B)  IF (X1) = +0   DBG0002   475
                                        *                                 = ........-0   (.=55B)  IF (X1) = -0   DBG0002   476
                                                  EQ     DCM5                                                    DBG0002   477
                                                                                                                 DBG0002   478
                                         DCM4     RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC     DBG0002   479
                                                                                                                 DBG0002   480
                                         DCM5     SA6    A6+B1                                                   DBG0002   481
                                                  SA7    A6+B1                                                   DBG0002   482
                                                  SA1    =10H                                                    DBG0002   483
                                                  SB6    B6-B1                                                   DBG0002   484
                                                  BX6    X1                                                      DBG0002   485
                                                  SA6    A7+B1                                                   DBG0002   486
                                                  EQ     DCM2        MAIN LOOP...                                DBG0002   487
                                                                                                                 DBG0002   488
                                        *         HERE IF FINISHED -- NEED TO OUTPUT FINAL WORD.                 DBG0002   489
                                                                                                                 DBG0002   490
                                         DCM6     MX6    0                                                       DBG0002   491
                                                  SA6    A6+B1       MARK EOL                                    DBG0002   492
                                                  PRIDP  SNAPLNE                                                 DBG0002   493
                                                  EQ     EXIT.                                                   DBG0002   494
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    20
  
  
                                         DSR      SPACE  4,8                                                     DBG=IDP   487
                                        **        DSR - DUMP SELECTED REGISTERS.                                 DBG=IDP   488
                                        *                                                                        DBG=IDP   489
                                        *                                                                        DBG=IDP   490
                                        *                PERFORMS A SELECTED REGISTER DUMP, BASED ON A PARAMETER DBG=IDP   491
                                        *         LIST SET UP BY *SNAP* AND/OR *REG* MACROS.                     DBG=IDP   492
                                        *                                                                        DBG=IDP   493
                                        *                0TR = REGISTER DESIGNATOR                               DBG=IDP   494
                                        *                            T = REGISTER TYPE                           DBG=IDP   495
                                        *                              = 0 FOR -B- REGISTER                      DBG=IDP   496
                                        *                              = 1 FOR -A- REGISTER                      DBG=IDP   497
                                        *                              = 2 FOR -X- REGISTER                      DBG=IDP   498
                                        *                            R = REGISTER NR (0-7)                       DBG=IDP   499
                                        *                              E.G. A3 WOULD BE 013B                     DBG=IDP   500
                                        *                SV=B = FWA OF REGISTER SAVE AREA                        DBG=IDP   501
                                        *                                                                        DBG=IDP   502
                                        *         PARAMETER LIST FORMAT--                                        DBG=IDP   503
                                        *                                                                        DBG=IDP   504
                                        *         VFD    60/SV=B+0TR                                             DBG=IDP   505
                                        *         VFD    60/SV=B+0TR                                             DBG=IDP   506
                                        *                 .                                                      DBG=IDP   507
                                        *                 .                                                      DBG=IDP   508
                                        *                60/0        END OF PARAMETER LIST                       DBG=IDP   509
                                        *                                                                        DBG=IDP   510
                                        *         ENTRY  (A1,X1) = ADDR + CNTS OF 1ST WORD OF PARAMETER LIST     DBG=IDP   511
                                        *                                                                        DBG=IDP   512
                                        *         EXIT   NONE                                                    DBG=IDP   513
                                        *                                                                        DBG=IDP   514
                                        *         USES   ALL                                                     DBG=IDP   515
                                        *                                                                        DBG=IDP   516
                                        *         CALLS  DAB,DUX                                                 DBG=IDP   517
                                                                                                                 DBG=IDP   518
                                                                                                                 DBG=IDP   519
                                         DSR      SUBR               ** ENTRY/EXIT **                            DBG=IDP   520
                                                                                                                 DBG=IDP   521
                                         DSR2     ZR     X1,EXIT.    IF FINISHED DUMPING SELECTED REGISTERS      DBG=IDP   522
                                                  SB2    =XSV=B                                                  DBG=IDP   523
                                                  SB3    X1                                                      DBG=IDP   524
                                                  SX6    A1+                                                     DBG=IDP   525
                                                  SB4    B3-B2                                                   DBG=IDP   526
                                                  SB5    20B                                                     DBG=IDP   527
                                                  SA6    DSRA        SAVE (A1) = CURRENT POSITION IN PARM LIST   DBG=IDP   528
                                                  GE     B4,B5,DSR3  IF -X- REGISTER DUMP                        DBG=IDP   529
                                                  RJ     DAB         DUMP -A- OR -B- REGISTER                    DBG=IDP   530
                                                  EQ     DSR4                                                    DBG=IDP   531
                                                                                                                 DBG=IDP   532
                                         DSR3     RJ     DUX         DUMP -X- REGISTER                           DBG=IDP   533
                                                                                                                 DBG=IDP   534
                                         DSR4     SA1    DSRA                                                    DBG=IDP   535
                                                  SA1    X1+1                                                    DBG=IDP   536
                                                  EQ     DSR2                                                    DBG=IDP   537
                                                                                                                 DBG=IDP   538
                                                                                                                 DBG=IDP   539
                                         DSRA     BSSZ   1           SAVED (A1) = ADDR OF NEXT REGISTER PARAME-  DBG=IDP   540
                                        *                              TER WORD                                  DBG=IDP   541
                                         DUX      SPACE  4,8                                                     DBG=IDP   542
                                        **        DUX - DUMP AN -X- REGISTER.                                    DBG=IDP   543
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    21
  
  
                                        *                                                                        DBG=IDP   544
                                        *                                                                        DBG=IDP   545
                                        *         ENTRY  (B4) = 0TR, WHERE                                       DBG=IDP   546
                                        *                            T IS REGISTER TYPE (2=X REGISTER)           DBG=IDP   547
                                        *                            R IS REGISTER NR (0-7)                      DBG=IDP   548
                                        *                              E.G. X1 WOULD BE 021B                     DBG=IDP   549
                                        *                                                                        DBG=IDP   550
                                        *         EXIT   (B4) IS UNCHANGED                                       DBG=IDP   551
                                        *                                                                        DBG=IDP   552
                                        *         USES   ALL BUT B4                                              DBG=IDP   553
                                        *                                                                        DBG=IDP   554
                                        *         CALLS  PRIDP,WOD                                               DBG=IDP   555
                                                                                                                 DBG=IDP   556
                                                                                                                 DBG=IDP   557
                                         DUX      SUBR               ** ENTRY/EXIT **                            DBG=IDP   558
                                                  SA1    B4+SV=B                                                 DBG=IDP   559
                                                  SA2    DUXA                                                    DBG=IDP   560
                                                  SX7    B4-20B      (X7) = X REGISTER NR                        DBG=IDP   561
                                                  LX7    2*CHAR-1*CHAR                                           DBG=IDP   562
                                                  IX6    X2+X7       (X6) = 10H       XN  , WHERE N=0 THRU 7     DBG=IDP   563
                                                  SA6    SNAPLNE                                                 DBG=IDP   564
                                                  RJ     =XWOD       CONVERT ONE FULL BINARY WORD TO OCTAL DPC   DBG=IDP   565
                                                  SA6    A6+B1                                                   DBG=IDP   566
                                                  SA7    A6+B1                                                   DBG=IDP   567
                                                  SA1    =10H                                                    DBG=IDP   568
                                                  SA2    B4+SV=B     (X2) = CONTENTS OF X-N-                     DBG=IDP   569
                                                  BX6    X1                                                      DBG=IDP   570
                                                  LX7    X2                                                      DBG=IDP   571
                                                  SA6    A7+B1                                                   DBG=IDP   572
                                                  SA7    A6+B1                                                   DBG=IDP   573
                                                  BX6    X6-X6                                                   DBG=IDP   574
                                                  SA6    A7+B1       MARK EOL                                    DBG=IDP   575
                                                  PRIDP  SNAPLNE                                                 DBG=IDP   576
                                                  EQ     EXIT.                                                   DBG=IDP   577
                                                                                                                 DBG=IDP   578
                                                                                                                 DBG=IDP   579
                                         DUXA     DATA   10H       X0                                            DBG=IDP   580
                                         FAB      SPACE  4,8                                                     DBG=IDP   581
                                        **        FAB - FORMAT AN -A- OR -B- REGISTER.                           DBG=IDP   582
                                        *                                                                        DBG=IDP   583
                                        *                                                                        DBG=IDP   584
                                        *                THIS ROUTINE WILL FORMAT AN -A- OR -B- REGISTER         DBG=IDP   585
                                        *         SUITABLE FOR PRINTING. FORMAT--                                DBG=IDP   586
                                        *                                                                        DBG=IDP   587
                                        *    (B6)+0         0         0         0         0         0            DBG=IDP   588
                                        *         .......TR..NNNNNN.....C(TR).=.NNNNNNNNNNNNNNNNNNNN             DBG=IDP   589
                                        *                                                                        DBG=IDP   590
                                        *         T=REGISTER TYPE (B,A),R=REGISTER NR (0-7),.=BLANK(55B)         DBG=IDP   591
                                        *                                                                        DBG=IDP   592
                                        *         ENTRY  (B4) = 0TR, WHERE                                       DBG=IDP   593
                                        *                            T IS REGISTER TYPE (B=0,A=1)                DBG=IDP   594
                                        *                            R IS REGISTER NR (0-7)                      DBG=IDP   595
                                        *                (B6) = FWA TO STORE                                     DBG=IDP   596
                                        *                                                                        DBG=IDP   597
                                        *         EXIT   (B4) = UNCHANGED                                        DBG=IDP   598
                                        *                (B6) = UNCHANGED                                        DBG=IDP   599
                                        *                (A6) = ADDR OF FULL ZERO WORD EOL MARKER                DBG=IDP   600
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    22
  
  
                                        *                                                                        DBG=IDP   601
                                        *         USES   X - ALL     (INCLUDES ALL CALLS)                        DBG=IDP   602
                                        *                A - ALL BUT A0                                          DBG=IDP   603
                                        *                B - 2,3,4,5                                             DBG=IDP   604
                                        *                                                                        DBG=IDP   605
                                        *         CALLS  CHK,COD,WOD                                             DBG=IDP   606
                                                                                                                 DBG=IDP   607
                                                                                                                 DBG=IDP   608
                                         FAB      SUBR               ** ENTRY/EXIT **                            DBG=IDP   609
                                                  SX1    B4                                                      DBG=IDP   610
                                                  MX0    -3                                                      DBG=IDP   611
                                                  SA5    SV=B+B4     (X5) = SAVED (TR)   (T=REG TYPE,R=REG NR)   DBG=IDP   612
                                                  BX6    X0*X1       (X6) = REG TYPE (B=00B,A=10B)               DBG=IDP   613
                                                  SB5    B4          SAVE (B4) = 0TR                             DBG=IDP   614
                                                  BX7    -X0*X1      (X7) = REG NR (0-7)                         DBG=IDP   615
                                                  LX6    -3                                                      DBG=IDP   616
                                                  SA2    FABA+X6                                                 DBG=IDP   617
                                                  SA3    FABB+X6                                                 DBG=IDP   618
                                                  LX7    2*CHAR-1*CHAR                                           DBG=IDP   619
                                                  IX6    X2+X7       (X6) = .......TR.   (.=BLANK,T=RTYPE,R=RNR) DBG=IDP   620
                                                  LX7    5*CHAR-2*CHAR                                           DBG=IDP   621
                                                  SA6    B6                                                      DBG=IDP   622
                                                  MX0    -18                                                     DBG=IDP   623
                                                  IX7    X3+X7       (X7) = ..C(TR).=.                           DBG=IDP   624
                                                  BX1    -X0*X5                                                  DBG=IDP   625
                                                  SA7    B6+2                                                    DBG=IDP   626
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP   627
                                                  LX6    9*CHAR-6*CHAR                                           DBG=IDP   628
                                                  SB4    B5          RESTORE (B4)                                DBG=IDP   629
                                                  SA6    A6+B1                                                   DBG=IDP   630
                                                  SB2    X5                                                      DBG=IDP   631
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP   632
                                                  PL     B2,FAB2     IF ADDR OK                                  DBG=IDP   633
                                                  SA1    =20H ** OUT OF RANGE **                                 DBG=IDP   634
                                                  SA2    A1+B1                                                   DBG=IDP   635
                                                  BX6    X1                                                      DBG=IDP   636
                                                  LX7    X2                                                      DBG=IDP   637
                                                  EQ     FAB3                                                    DBG=IDP   638
                                                                                                                 DBG=IDP   639
                                        *         HERE TO CONVERT C(TR) TO OCTAL DPC.                            DBG=IDP   640
                                                                                                                 DBG=IDP   641
                                         FAB2     SA1    B2          (X1) = C(TR)                                DBG=IDP   642
                                                  RJ     WOD         CONVERT A FULL BINARY WORD TO OCTAL DPC     DBG=IDP   643
                                                                                                                 DBG=IDP   644
                                         FAB3     SA6    A7+B1                                                   DBG=IDP   645
                                                  SA7    A6+B1                                                   DBG=IDP   646
                                                  MX6    0                                                       DBG=IDP   647
                                                  SA6    A7+B1       MARK EOL                                    DBG=IDP   648
                                                  EQ     EXIT.                                                   DBG=IDP   649
                                                                                                                 DBG=IDP   650
                                                                                                                 DBG=IDP   651
                                         FABA     DATA   10H       B0  NNNNNN                                    DBG=IDP   652
                                                  DATA   10H       A0  NNNNNN                                    DBG=IDP   653
                                         FABB     DATA   10H  C(B0) =  NNNNNNNNNNNNNNNNNNNN                      DBG=IDP   654
                                                  DATA   10H  C(A0) =  NNNNNNNNNNNNNNNNNNNN                      DBG=IDP   655
                                         FLL      SPACE  4,8                                                     DBG=IDP   656
                                        **        FLL - CHECK FWA,LWA, AND LENGTH PARAMETERS.                    DBG=IDP   657
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    23
  
  
                                        *                                                                        DBG=IDP   658
                                        *                                                                        DBG=IDP   659
                                        *         ENTRY  (X2) = 18/0, 21/LEV OF IND ADDR, 21/FWA                 DBG=IDP   660
                                        *                (X3) = 18/0, 21/LEV OF IND ADDR, 21/LWA                 DBG=IDP   661
                                        *                         (X3) IS OPTIONAL                               DBG=IDP   662
                                        *                (X4) = 18/0, 21/LEV OF IND ADDR, 21/LEN                 DBG=IDP   663
                                        *                         NOTE -- IF LEN = 0, DMP IS FROM FWA TO LWA,    DBG=IDP   664
                                        *                                        ELSE DMP IS FROM FWA TO FWA+LEN DBG=IDP   665
                                        *                                                                        DBG=IDP   666
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN WAS BAD, ELSE .PL.       DBG=IDP   667
                                        *                (AP=FWA) = FWA                                          DBG=IDP   668
                                        *                (AP=LWA) = LWA                                          DBG=IDP   669
                                        *                                                                        DBG=IDP   670
                                        *         USES   X - ALL BUT X5                                          DBG=IDP   671
                                        *                A - 1,2,6                                               DBG=IDP   672
                                        *                B - 2,3                                                 DBG=IDP   673
                                        *                                                                        DBG=IDP   674
                                        *         CALLS  CHK,GIL                                                 DBG=IDP   675
                                                                                                                 DBG=IDP   676
                                                                                                                 DBG=IDP   677
                                         FLL      SUBR               ** ENTRY/EXIT **                            DBG=IDP   678
                                                                                                                 DBG=IDP   679
                                        *         CHECK FWA.                                                     DBG=IDP   680
                                                                                                                 DBG=IDP   681
                                                  LX2    -21                                                     DBG=IDP   682
                                                  SB3    X2+         (B3) = LEVEL OF INDIRECT ADDRESSING         DBG=IDP   683
                                                  LX2    21          RESTORE (X2)                                DBG=IDP   684
                                                  RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       DBG=IDP   685
                                                  MI     B2,EXIT.    IF FWA IS BAD                               DBG=IDP   686
                                                  SX6    B2          SAVE (B2) = FWA                             DBG=IDP   687
                                                  SA6    AP=FWA                                                  DBG=IDP   688
                                                                                                                 DBG=IDP   689
                                        *         CHECK LENGTH.                                                  DBG=IDP   690
                                                                                                                 DBG=IDP   691
                                         FLL2     MX0    -42                                                     DBG=IDP   692
                                                  BX2    -X0*X4                                                  DBG=IDP   693
                                                  ZR     X2,FLL3     IF NO LENGTH, USE LWA                       DBG=IDP   694
                                                  LX2    -21                                                     DBG=IDP   695
                                                  SB3    X2                                                      DBG=IDP   696
                                                  LX2    21                                                      DBG=IDP   697
                                                  RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       DBG=IDP   698
                                                  MI     B2,EXIT.    IF LENGTH IS BAD                            DBG=IDP   699
                                                  SB2    X6+B2       (B2) = FWA + LEN                            DBG=IDP   700
                                                  SB2    B2-B1       (B2) = LWA                                  DBG=IDP   701
                                                  RJ     CHK         CHECK CM ADDR                               DBG=IDP   702
                                                  MI     B2,EXIT.    IF LWA IS BAD                               DBG=IDP   703
                                                  SX6    B2          SAVE (B2) = LWA                             DBG=IDP   704
                                                  SA6    A6+B1                                                   DBG=IDP   705
                                                  EQ     EXIT.                                                   DBG=IDP   706
                                                                                                                 DBG=IDP   707
                                        *         CHECK LWA.                                                     DBG=IDP   708
                                                                                                                 DBG=IDP   709
                                         FLL3     BX2    X3                                                      DBG=IDP   710
                                                  LX2    -21                                                     DBG=IDP   711
                                                  BX7    -X0*X3                                                  DBG=IDP   712
                                                  SB3    X2                                                      DBG=IDP   713
                                                  SX4    B1          (X4) = DEFAULT LEN IS 1, IF LEN AND LWA =0  DBG=IDP   714
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    24
  
  
                                                  LX2    21                                                      DBG=IDP   715
                                                  ZR     X7,FLL2     IF NO LWA, DEFAULT LEN=1                    DBG=IDP   716
                                                  RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       DBG=IDP   717
                                                  MI     B2,EXIT.    IF LWA IS BAD                               DBG=IDP   718
                                                  SX6    B2          SAVE (B2) = LWA                             DBG=IDP   719
                                                  SA6    A6+B1                                                   DBG=IDP   720
                                                  EQ     EXIT.                                                   DBG=IDP   721
                                         FRK      SPACE  4,8                                                     DBG=IDP   722
                                        **        FRK - CHECK FREQUENCY PARAMETERS.                              DBG=IDP   723
                                        *                                                                        DBG=IDP   724
                                        *                                                                        DBG=IDP   725
                                        *         ENTRY  (X5)   =  FWA OF SNAP PARAMETER LIST                    DBG=IDP   726
                                        *                                                                        DBG=IDP   727
                                        *         FREQUENCY PARAMETER LIST AT (X5)+SN=FRK --                     DBG=IDP   728
                                        *                                                                        DBG=IDP   729
                                        *         VFD    60/LOWER LIMIT (LL)                                     DBG=IDP   730
                                        *         VFD    60/UPPER LIMIT (UL)                                     DBG=IDP   731
                                        *         VFD    60/INCREMENT  (INC)                                     DBG=IDP   732
                                        *         VFD    60/10HNAME                                              DBG=IDP   733
                                        *         VFD    60/SNAP COUNT                                           DBG=IDP   734
                                        *                                                                        DBG=IDP   735
                                        *         EXIT   (X5)   =  .ZR. IF NO SNAP THIS TIME, ELSE UNCHANGED     DBG=IDP   736
                                        *                                                                        DBG=IDP   737
                                        *         USES   X - ALL     (BUT X5 IF SNAP THIS TIME)                  DBG=IDP   738
                                        *                A - 1,2,3,4                                             DBG=IDP   739
                                        *                B - 7                                                   DBG=IDP   740
                                        *                                                                        DBG=IDP   741
                                        *         CALLS  NONE                                                    DBG=IDP   742
                                                                                                                 DBG=IDP   743
                                                                                                                 DBG=IDP   744
                                         FRK.NO   SX5    0                                                       DBG=IDP   745
                                                                                                                 DBG=IDP   746
                                         FRK      SUBR               ** ENTRY/EXIT **                            DBG=IDP   747
                                                  SA1    X5+SN=LL    (X1) = LL                                   DBG=IDP   748
                                                  SA2    A1+B1       (X2) = UL                                   DBG=IDP   749
                                                  SA3    A2+B1       (X3) = INC                                  DBG=IDP   750
                                                  SA4    X5+SN=CNT   (X4) = SNAP COUNT                           DBG=IDP   751
                                                  MI     X1,FRK.NO   IF LL BAD                                   DBG=IDP   752
                                                  MI     X2,FRK.NO   IF UL BAD                                   DBG=IDP   753
                                                  MI     X3,FRK.NO    IF INC BAD                                 DBG=IDP   754
                                                  SX6    X4+B1       (X6) = SNAP COUNT + 1                       DBG=IDP   755
                                                  SA6    A4+                                                     DBG=IDP   756
                                                  IX7    X6-X1       (X7) = SNAP CNT - LOWER LIMIT               DBG=IDP   757
                                                  MI     X7,FRK.NO   IF NOT TIME TO SNAP YET                     DBG=IDP   758
                                                  IX7    X2-X6       (X7) = UPPER LIMIT - SNAP COUNT             DBG=IDP   759
                                                  PX3    X3                                                      DBG=IDP   760
                                                  MI     X7,FRK.NO   IF PAST UPPER LIMIT                         DBG=IDP   761
                                                                                                                 DBG=IDP   762
                                        *         COMPUTE  (COUNT/INC)*INC-COUNT.                                DBG=IDP   763
                                                                                                                 DBG=IDP   764
                                                  PX6    X6                                                      DBG=IDP   765
                                                  NX3    X3                                                      DBG=IDP   766
                                                  NX6    X6                                                      DBG=IDP   767
                                                  FX7    X6/X3                                                   DBG=IDP   768
                                                  UX7    X7,B7                                                   DBG=IDP   769
                                                  LX7    X7,B7                                                   DBG=IDP   770
                                                  PX7    X7                                                      DBG=IDP   771
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    25
  
  
                                                  NX7    X7                                                      DBG=IDP   772
                                                  FX7    X7*X3                                                   DBG=IDP   773
                                                  IX7    X7-X6                                                   DBG=IDP   774
                                                  NZ     X7,FRK.NO   IF NOT AT A SNAP INCREMENT                  DBG=IDP   775
                                                  EQ     EXIT.       SNAP SHOULD BE HONORED...                   DBG=IDP   776
                                         GIL      SPACE  4,8                                                     DBG=IDP   777
                                        **        GIL - GENERATE INDIRECT LOAD.                                  DBG=IDP   778
                                        *                                                                        DBG=IDP   779
                                        *                                                                        DBG=IDP   780
                                        *                GENERATES 0 THRU N INDIRECT LOADS, CHECKING THE ADDRESS DBG=IDP   781
                                        *         TO BE LOADED BEFORE EACH LOAD.                                 DBG=IDP   782
                                        *                                                                        DBG=IDP   783
                                        *         ENTRY  (X2) = ADDRESS (BITS 59-18) IGNORED)                    DBG=IDP   784
                                        *                (B3) = LEVEL OF INDIRECT ADDRESSING,                    DBG=IDP   785
                                        *                         (B3) = 0 MEANS DIRECT ADDRESSING               DBG=IDP   786
                                        *                                                                        DBG=IDP   787
                                        *         EXIT   (B2) = ADDRESS AT END OF INDIRECT CHAIN, IF (B2) .PL.   DBG=IDP   788
                                        *                       IF (B2) .MI., ONE OF THE ADDRESSES WAS BAD       DBG=IDP   789
                                        *                                                                        DBG=IDP   790
                                        *         USES   X - 1,2                                                 DBG=IDP   791
                                        *                A - 1,2                                                 DBG=IDP   792
                                        *                B - 2,3                                                 DBG=IDP   793
                                        *                                                                        DBG=IDP   794
                                        *         CALLS  CHK                                                     DBG=IDP   795
                                                                                                                 DBG=IDP   796
                                                                                                                 DBG=IDP   797
                                         GIL      SUBR               ** ENTRY/EXIT **                            DBG=IDP   798
                                                                                                                 DBG=IDP   799
                                         GIL2     SB2    X2                                                      DBG=IDP   800
                                                  SB3    B3-B1                                                   DBG=IDP   801
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP   802
                                                  MI     B2,EXIT.    IF ADDR IS BAD                              DBG=IDP   803
                                                  SA2    B2+                                                     DBG=IDP   804
                                                  GE     B3,B0,GIL2  IF MORE LEVELS OF INDIRECT ADDRESSING TO GO DBG=IDP   805
                                                  EQ     EXIT.                                                   DBG=IDP   806
                                         HDR      SPACE  4,8                                                     DBG=IDP   807
                                        **        HDR - PRINT SNAP HEADER.                                       DBG=IDP   808
                                        *                                                                        DBG=IDP   809
                                        *                                                                        DBG=IDP   810
                                        *                PRINTS A SNAP HEADER OF THE FORM--                      DBG=IDP   811
                                        *                                                                        DBG=IDP   812
                                        * NAME      SNAP NR  NNNNNN    CALLED BY NNNNNN IN XXXXXXX               DBG=IDP   813
                                        *                                                                        DBG=IDP   814
                                        *         ENTRY  (A5,   =  ADDR OF CALLER                                DBG=IDP   815
                                        *                    X5)=  FWA OF PARAMETER LSIT                         DBG=IDP   816
                                        *                                                                        DBG=IDP   817
                                        *         EXIT   NONE                                                    DBG=IDP   818
                                        *                                                                        DBG=IDP   819
                                        *         USES   ALL BUT A5,X5                                           DBG=IDP   820
                                        *                                                                        DBG=IDP   821
                                        *         CALLS  CDD,FRA=,PRIDP                                          DBG=IDP   822
                                                                                                                 DBG=IDP   823
                                                                                                                 DBG=IDP   824
                                         HDR      SUBR               ** ENTRY/EXIT **                            DBG=IDP   825
                                                  SA1    X5+SN=HDR                                               DBG=IDP   826
                                                  SA4    X5+SN=CNT                                               DBG=IDP   827
                                                  ZR     X1,EXIT.    IF NO HEADER TO BE GENERATED                DBG=IDP   828
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    26
  
  
                                                  MX0    8*CHAR                                                  DBG=IDP   829
                                                  BX6    X0*X1                                                   DBG=IDP   830
                                                  SX7    2R                                                      DBG=IDP   831
                                                  BX6    X6+X7                                                   DBG=IDP   832
                                                  LX6    -2*CHAR     (X6) = 10H  NAME                            DBG=IDP   833
                                                  SA6    SNAPLNE                                                 DBG=IDP   834
                                                  SA2    HDRA                                                    DBG=IDP   835
                                                  SA3    A2+B1                                                   DBG=IDP   836
                                                  SX1    X4                                                      DBG=IDP   837
                                                  BX6    X2                                                      DBG=IDP   838
                                                  LX7    X3                                                      DBG=IDP   839
                                                  SA6    A6+B1                                                   DBG=IDP   840
                                                  SA7    A6+2                                                    DBG=IDP   841
                                                  RJ     =XCDD       CONVERT BINARY TO DECIMAL DPC               DBG=IDP   842
                                                  BX6    X4                                                      DBG=IDP   843
                                                  SA6    A6+B1                                                   DBG=IDP   844
                                                  SX1    A5                                                      DBG=IDP   845
                                                                                                                 DBG=IDP   846
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP   847
                                                  SB7    HDR2        (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP   848
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP   849
                                                                                                                 DBG=IDP   850
                                         HDR2     BSS    0                                                       DBG=IDP   851
                                                                                                                 DBG=IDP   852
                                         #FRA     ELSE                                                           DBG=IDP   853
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP   854
                                                  BX6    X4                                                      DBG=IDP   855
                                                  MX7    0                                                       DBG=IDP   856
                                         #FRA     ENDIF                                                          DBG=IDP   857
                                                                                                                 DBG=IDP   858
                                                  SA6    A7+B1                                                   DBG=IDP   859
                                                  SA7    A6+B1                                                   DBG=IDP   860
                                                  PRIDP  SNAPLNE,,L.PRB                                          DBG=IDP   861
                                                  EQ     EXIT.                                                   DBG=IDP   862
                                                                                                                 DBG=IDP   863
                                                                                                                 DBG=IDP   864
                                        *         DATA   10H  SNAPNAME                                           DBG=IDP   865
                                         HDRA     DATA   10H SNAP NR                                             DBG=IDP   866
                                        *         DATA   10HNNNNNN                                               DBG=IDP   867
                                                  DATA   10HCALLED BY                                            DBG=IDP   868
                                        *         DATA   10HNNNNNN IN                                            DBG=IDP   869
                                        *         DATA   10CXXXXXXX                                              DBG=IDP   870
                                         REG      SPACE  4,8                                                     DBG=IDP   871
                                        **        REG - REGISTER SNAPSHOT.                                       DBG=IDP   872
                                        *                                                                        DBG=IDP   873
                                        *                                                                        DBG=IDP   874
                                        *                CALLED BY *REG* MACRO.                                  DBG=IDP   875
                                        *                                                                        DBG=IDP   876
                                        *         ENTRY  LOWER HALF OF *RJ REG=* WORD HAS FWA OF PARAMETER LIST. DBG=IDP   877
                                        *                                                                        DBG=IDP   878
                                        * +       RJ     REG=                                                    DBG=IDP   879
                                        * -       VFD    30/FWA OF PARAMETER LIST                                DBG=IDP   880
                                        *                                                                        DBG=IDP   881
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP BY DBG=IDP   882
                                        *         *REG* MACRO (SEE *DBG=MAC*) --                                 DBG=IDP   883
                                        *                                                                        DBG=IDP   884
                                        *         VFD    60/LOWER LIMIT (LL)                                     DBG=IDP   885
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    27
  
  
                                        *         VFD    60/UPPER LIMIT (UL)                                     DBG=IDP   886
                                        *         VFD    60/INCREMENT (INC)                                      DBG=IDP   887
                                        *         VFD    60/10HNAME  (OR .ZR. IF NO NAME)                        DBG=IDP   888
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          DBG=IDP   889
                                        *         VFD    60/REGISTER DUMP FLAG                                   DBG=IDP   893
                                        *                 .                                                      DBG=IDP   894
                                        *                 .                                                      DBG=IDP   895
                                        *         VFD    60/REGISTER DUMP FLAG                                   DBG=IDP   896
                                        *                .ZR. = NO REGISTER DUMP  (OR END OF REGISTER LIST)      DBG=IDP   897
                                        *                .MI. = DUMP ALL REGISTERS                               DBG=IDP   898
                                        *                .GT.0 = ADDR OF REGISTER SAVE WORD FOR REGISTER TO DMP  DBG=IDP   899
                                        *                                                                        DBG=IDP   900
                                        *         EXIT   NONE                                                    DBG=IDP   901
                                        *                                                                        DBG=IDP   902
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      DBG=IDP   903
                                        *                                                                        DBG=IDP   904
                                        *         CALLS  DAR,DSR,FRK,HDR,RSR=,SOB,SVR=,URO=(IF DEF)              DBG0002   495
                                                                                                                 DBG=IDP   906
                                                                                                                 DBG=IDP   907
                                         REG=     SUBR               ** ENTRY/EXIT **                            DBG=IDP   908
                                                  RJ     =XSVR=      SAVE ALL REGISTERS                          DBG=IDP   909
                                                  SX1    1           SET TO *EXECUTIVE IS /REG=/*                DBG0002   496
                                                  RJ     SOB         SET OUTPUT BIT FLAGS                        DBG0002   497
                                                                                                                 DBG=IDP   910
                                         #URO     IF     DEF,URO=                                                DBG=IDP   911
                                                  RJ     =XURO=      USER REG= OWNCODE                           DBG=IDP   912
                                                  PL     X1,REG3     IF NO REGISTER SNAPSHOT THIS TIME           DBG=IDP   913
                                         #URO     ENDIF                                                          DBG=IDP   914
                                                                                                                 DBG=IDP   915
                                                  SA4    REG=        (X4) = 30/EQ CALLING ADDRESS+1, 30/0        DBG=IDP   916
                                                  LX4    30                                                      DBG=IDP   917
                                                  SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       DBG=IDP   918
                                                  SX6    X5          (X6) = FWA OF PARAMETER LIST                DBG=IDP   919
                                                  SA6    FWAPARM                                                 DBG=IDP   920
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  DBG=IDP   921
                                                  ZR     X5,REG3     IF NOT SNAPPING THIS TIME                   DBG=IDP   922
                                                  RJ     HDR         OUTPUT SNAP HEADER                          DBG=IDP   923
                                                  SA5    FWAPARM                                                 DBG=IDP   924
                                                  SA1    X5+SN=RRL   (A1,X1) = ADDR + CNTS OF 1ST REGISTER DUMP  DBG=IDP   925
                                        *                              PARAMETER WORD                            DBG=IDP   926
                                                  PL     X1,REG2     IF NOT DUMPING ALL REGISTERS                DBG=IDP   927
                                                  RJ     DAR         DUMP ALL REGISTERS                          DBG=IDP   928
                                                  EQ     REG3                                                    DBG=IDP   929
                                                                                                                 DBG=IDP   930
                                         REG2     RJ     DSR         DUMP SELECTED REGISTERS                     DBG=IDP   931
                                                                                                                 DBG=IDP   932
                                         REG3     RJ     =XRSR=      RESTORE ALL REGISTERS                       DBG=IDP   933
                                                  EQ     EXIT.                                                   DBG=IDP   934
                                         ROL      SPACE  4,8                                                     DBG0002   498
                                        **        ROL - WRITE OUTPUT LINE.                                       DBG0002   499
                                        *                                                                        DBG0002   500
                                        *                                                                        DBG0002   501
                                        *                SHOULD BE ACCESSED VIA *PRIDP* MACRO.  THIS ROUTINE     DBG0002   502
                                        *         WILL OUTPUT A SINGLE LINE WITH A SPECIFIED NUMBER OF PRECEDING DBG0002   503
                                        *         BLANK LINES TO EITHER THE INTERACTIVE DEBUG OUTPUT FILE        DBG0002   504
                                        *         *F.IDO* AND/OR TO THE USERS BATCH DEBUG OUTPUT FILE            DBG0002   505
                                        *         (VIA *PRBDO* MACRO).                                           DBG0002   506
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    28
  
  
                                        *                                                                        DBG0002   507
                                        *         ENTRY  (X4) = NR OF PRECEDING BLANK LINES TO OUTPUT (0=NONE)   DBG0002   508
                                        *                (X6) = FWA OF LINE TO BE OUTPUT                         DBG0002   509
                                        *                (X7) = LEN OF LINE TO BE OUTPUT (IN WORDS)              DBG0002   510
                                        *                     = .ZR. IF LEN TO BE COMPUTED BY *WRITEC* (SCOPE 2) DBG0002   511
                                        *                (IDPFLG) --                                             DBG0002   512
                                        *                  BIT IDF.IDOP = 1 IF WRITING TO *F.IDO*, ELSE 0        DBG0002   513
                                        *                  BIT IDF.BDOP = 1 IF WRITING TO *F.BDO*, ELSE 0        DBG0002   514
                                        *                                                                        DBG0002   515
                                        *         EXIT   NONE                                                    DBG0002   516
                                        *                                                                        DBG0002   517
                                        *         USES   ALL BUT B4,A0,X0,A5,X5          (INCLUDES ALL CALLS)    DBG0002   518
                                        *                                                                        DBG0002   519
                                        *         CALLS  PRBDO,WRITEC                                            DBG0002   520
                                                                                                                 DBG0002   521
                                                                                                                 DBG0002   522
                                         ROL      SUBR               ** ENTRY/EXIT **                            DBG0002   523
                                                                                                                 DBG0002   524
                                        *         INITIALIZATION.  SAVE CRITICAL REGISTERS TO AVOID LETTING      DBG0009    14
                                        *         HOST DESTROY THEM VIA *PRBDO* CALL.                            DBG0009    15
                                                                                                                 DBG0002   526
                                                  SA6    ROLA        SAVE (X6) = FWA OF LINE                     DBG0002   527
                                                  SA7    A6+B1       SAVE (X7) = LEN OF LINE                     DBG0002   528
                                                  BX6    X4                                                      DBG0002   529
                                                  SX7    B4-B0                                                   DBG0002   530
                                                  SA6    A7+B1       SAVE (X4) = NR OF PRECEDING BLANK LINES     DBG0002   531
                                                  SA7    A6+B1       SAVE (B4)                                   DBG0002   532
                                                  SX6    A0-B0                                                   DBG0009    16
                                                  SX7    A5-B0                                                   DBG0009    17
                                                  SA6    A7+B1       SAVE (A0)                                   DBG0009    18
                                                  SA7    A6+B1       SAVE (A5)                                   DBG0009    19
                                                  BX6    X0                                                      DBG0009    20
                                                  LX7    X5                                                      DBG0009    21
                                                  SA6    A7+B1       SAVE (X0)                                   DBG0009    22
                                                  SA7    A6+B1       SAVE (X5)                                   DBG0009    23
                                                                                                                 DBG0002   533
                                        *         HERE TO OUTPUT APPROPRIATE NUMBER OF PRECEDING BLANK LINES.    DBG0002   534
                                                                                                                 DBG0002   535
                                         ROL2     SA1    ROL=PRB     (X1) = NR OF PRECEDING BLANK LINES          DBG0002   536
                                                  SA2    IDPFLG                                                  DBG0002   537
                                                  SX6    X1-1                                                    DBG0002   538
                                                  MI     X6,ROL4     IF NO MORE BLANK LINES                      DBG0002   539
                                                  LX2    59-IDF.IDOP                                             DBG0002   540
                                                  SA6    A1                                                      DBG0002   541
                                                  PL     X2,ROL3     IF NOT WRITING TO INTERACTIVE DEBUG OUTPUT  DBG0002   542
                                                                                                                 DBG0002   543
                                         #OS2     IFNE   .OS,2       IF NOT SCOPE 2                              DBG0002   544
                                                  WRITEC =XF.IDO,(=C= =),1                                       DBG0002   545
                                                                                                                 DBG0002   546
                                         #OS2     ELSE                                                           DBG0002   547
                                                  EQ     *+4S15      IF TRYING TO WRITE INTERACTIVELY...         DBG0002   548
                                         #OS2     ENDIF                                                          DBG0002   549
                                                                                                                 DBG0002   550
                                         ROL3     SA1    IDPFLG                                                  DBG0002   551
                                                  LX1    59-IDF.BDOP                                             DBG0002   552
                                                  PL     X1,ROL2     IF NOT WRITING TO BATCH DEBUG OUTPUT        DBG0002   553
                                                  PRBDO  (=C= =),1                                               DBG0002   554
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    29
  
  
                                                  EQ     ROL2                                                    DBG0002   555
                                                                                                                 DBG0002   556
                                        *         HERE TO OUTPUT LINE FINALLY.                                   DBG0002   557
                                                                                                                 DBG0002   558
                                         ROL4     SA1    IDPFLG                                                  DBG0002   559
                                                  LX1    59-IDF.IDOP                                             DBG0002   560
                                                  PL     X1,ROL5     IF NOT WRITING TO INTERACTIVE DEBUG OUTPUT  DBG0002   561
                                                                                                                 DBG0002   562
                                         #OS2     IFNE   .OS,2       IF NOT SCOPE 2                              DBG0002   563
                                                  SA1    ROLA        (X1) = FWA OF LINE                          DBG0002   564
                                                  SA2    A1+B1       (X2) = LEN OF LINE                          DBG0002   565
                                                  ZR     X1,ROL6     IF NO LINE TO OUTPUT                        DBG0002   566
                                                  WRITEC =XF.IDO,X1,X2                                           DBG0002   567
                                                                                                                 DBG0002   568
                                         #OS2     ELSE                                                           DBG0002   569
                                                  EQ     *+4S15      IF TRYING TO WRITE INTERACTIVELY...         DBG0002   570
                                         #OS2     ENDIF                                                          DBG0002   571
                                                                                                                 DBG0002   572
                                         ROL5     SA1    IDPFLG                                                  DBG0002   573
                                                  SA2    ROLA                                                    DBG0002   574
                                                  SA3    A2+B1                                                   DBG0002   575
                                                  LX1    59-IDF.BDOP                                             DBG0002   576
                                                  PL     X1,ROL6     IF NOT WRITING TO BATCH DEBUG OUTPUT        DBG0002   577
                                                  ZR     X2,ROL6     IF NO LINE TO OUTPUT                        DBG0002   578
                                                  PRBDO  X2,X3                                                   DBG0002   579
                                                                                                                 DBG0002   580
                                        *         FINAL PROCESSING -- RESTORE SAVED REGISTERS.                   DBG0002   581
                                                                                                                 DBG0002   582
                                         ROL6     SA1    ROL=B4                                                  DBG0002   583
                                                  SA2    A1+B1                                                   DBG0009    24
                                                  SA3    A2+B1                                                   DBG0009    25
                                                  SA4    A3+B1                                                   DBG0009    26
                                                  SB4    X1          RESTORE (B4)                                DBG0009    27
                                                  SA0    X2          RESTORE (A0)                                DBG0009    28
                                                  SA5    X3          RESTORE (A5)                                DBG0009    29
                                                  SA1    A4+B1                                                   DBG0009    30
                                                  NO                                                             DBG0009    31
                                                  BX0    X4          RESTORE (X0)                                DBG0009    32
                                                  LX5    X1          RESTORE (X5)                                DBG0009    33
                                                  EQ     EXIT.                                                   DBG0002   585
                                                                                                                 DBG0002   586
                                                                                                                 DBG0002   587
                                         ROLA     BSSZ   8                                                       DBG0009    34
                                                                                                                 DBG0002   589
                                                  LOC    ROLA                                                    DBG0002   590
                                         ROL=FWA  =      *           SAVED FWA                                   DBG0002   591
                                         ROL=LEN  =      *+1         SAVED LENGTH                                DBG0002   592
                                         ROL=PRB  =      *+2         SAVED PRECEDING BLANK COUNT                 DBG0002   593
                                         ROL=B4   =      *+3         SAVED (B4)                                  DBG0002   594
                                         ROL=A0   =      *+4         SAVED (A0)                                  DBG0009    35
                                         ROL=A5   =      *+5         SAVED (A5)                                  DBG0009    36
                                         ROL=X0   =      *+6         SAVED (X0)                                  DBG0009    37
                                         ROL=X5   =      *+7         SAVED (X5)                                  DBG0009    38
                                                  LOC    *O                                                      DBG0002   595
                                         SNP      SPACE  4,8                                                     DBG=IDP  1063
                                        **        SNP - SNAPSHOT OF CORE AND REGISTERS.                          DBG=IDP  1064
                                        *                                                                        DBG=IDP  1065
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    30
  
  
                                        *                                                                        DBG=IDP  1066
                                        *                CALLED BY *SNAP* MACRO.                                 DBG=IDP  1067
                                        *                                                                        DBG=IDP  1068
                                        *         LOWER HALF OF *RJ SNP=* WORD HAS FWA OF PARAMETER LIST--       DBG=IDP  1069
                                        *                                                                        DBG=IDP  1070
                                        * +       RJ     SNP=                                                    DBG=IDP  1071
                                        * -       VFD    30/FWA OF PARAMETER LIST                                DBG=IDP  1072
                                        *                                                                        DBG=IDP  1073
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP BY DBG=IDP  1074
                                        *         BY *SNAP* MACRO. (SEE *DBG=MAC*) --                            DBG=IDP  1075
                                        *                                                                        DBG=IDP  1076
                                        *         VFD    60/LOWER LIMIT (LL)                                     DBG=IDP  1077
                                        *         VFD    60/UPPER LIMIT (UL)                                     DBG=IDP  1078
                                        *         VFD    60/INCREMENT (INC)                                      DBG=IDP  1079
                                        *         VFD    60/10HNAME  (OR .ZR. IF NO NAME)                        DBG=IDP  1080
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          DBG=IDP  1081
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/FWA               DBG=IDP  1082
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LWA               DBG=IDP  1083
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LEN               DBG=IDP  1084
                                        *         VFD    60/REGISTER DUMP FLAG                                   DBG=IDP  1085
                                        *                 .                                                      DBG=IDP  1086
                                        *                 .                                                      DBG=IDP  1087
                                        *         VFD    60/REGISTER DUMP FLAG                                   DBG=IDP  1088
                                        *                .ZR. = NO REGISTER DUMP  (OR END OF REGISTER LIST)      DBG=IDP  1089
                                        *                .MI. = DUMP ALL REGISTERS                               DBG=IDP  1090
                                        *                .GT.0 = ADDR OF REGISTER SAVE WORD FOR REGISTER TO DMP  DBG=IDP  1091
                                        *                                                                        DBG=IDP  1092
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      DBG=IDP  1093
                                        *                                                                        DBG=IDP  1094
                                        *         CALLS  DAR,DCM,DSR,FRK,HDR,RSR=,SOB,SVR=,USO=(IF DEF)          DBG0002   596
                                                                                                                 DBG=IDP  1096
                                                                                                                 DBG=IDP  1097
                                         SNP=     SUBR               ** ENTRY/EXIT **                            DBG=IDP  1098
                                                  RJ     SVR=        SAVE ALL REGISTERS                          DBG=IDP  1099
                                                  SX1    2           SET TO *EXECUTIVE IS /SNP=/*                DBG0002   597
                                                  RJ     SOB         SET OUTPUT BIT FLAGS                        DBG0002   598
                                                                                                                 DBG=IDP  1100
                                         #USO     IF     DEF,USO=                                                DBG=IDP  1101
                                                  RJ     =XUSO=      USER SNP= OWNCODE                           DBG=IDP  1102
                                                  PL     X1,SNP4     IF NO SNAPSHOT THIS TIME                    DBG=IDP  1103
                                         #USO     ENDIF                                                          DBG=IDP  1104
                                                                                                                 DBG=IDP  1105
                                                  SA4    SNP=        (X4) = 30/EQ CALLING ADDRESS+1, 30/0        DBG=IDP  1106
                                                  LX4    30                                                      DBG=IDP  1107
                                                  SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       DBG=IDP  1108
                                                  SX6    X5          (X6) = FWA OF PARAMETER LIST                DBG=IDP  1109
                                                  SA6    FWAPARM                                                 DBG=IDP  1110
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  DBG=IDP  1111
                                                  ZR     X5,SNP4     IF NO SNAP THIS TIME                        DBG=IDP  1112
                                                  RJ     HDR         OUTPUT SNAP HEADER                          DBG=IDP  1113
                                                  SA1    X5+SN=SRL   (A1,X1) = ADDR + CNTS OF 1ST WORD OF        DBG=IDP  1114
                                        *                              REGISTER LIST                             DBG=IDP  1115
                                                  PL     X1,SNP2     IF NOT DUMPING ALL REGISTERS                DBG=IDP  1116
                                                  RJ     DAR         DUMP ALL REGISTERS                          DBG=IDP  1117
                                                  EQ     SNP3                                                    DBG=IDP  1118
                                                                                                                 DBG=IDP  1119
                                         SNP2     RJ     DSR         DUMP SELECTED REGISTERS                     DBG=IDP  1120
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    31
  
  
                                                                                                                 DBG=IDP  1121
                                         SNP3     SA5    FWAPARM                                                 DBG=IDP  1122
                                                  SA2    X5+SN=FWA   (X2) = 10/0,21/LVL OF IND ADDR,21/FWA       DBG=IDP  1123
                                                  SA3    A2+B1       (X3) = 18/0,21/LVL OF IND ADDR,21/LWA       DBG=IDP  1124
                                                  SA4    A3+B1       (X4) = 18/0,21/LVL OF IND ADDR,21/LEN       DBG=IDP  1125
                                                  RJ     DCM         DUMP CENTRAL MEMORY                         DBG=IDP  1126
                                                                                                                 DBG=IDP  1127
                                         SNP4     RJ     =XRSR=      RESTORE ALL REGISTERS                       DBG=IDP  1128
                                                  EQ     EXIT.                                                   DBG=IDP  1129
                                         SOB      SPACE  4,8                                                     DBG0002   599
                                        **        SOB - SET OUTPUT BIT FLAGS.                                    DBG0002   600
                                        *                                                                        DBG0002   601
                                        *                                                                        DBG0002   602
                                        *                THIS ROUTINE SETS BITS IN THE MASTER CONTROL FLAG,      DBG0002   603
                                        *         *IDPFLG*, WHICH DETERMINES WHERE OUTPUT IS TO BE WRITTEN BY A  DBG0002   604
                                        *         BATCH (I.E. NON-INTERACTIVE) EXECUTIVE --                      DBG0002   605
                                        *                                                                        DBG0002   606
                                        *           1. IF INTERACTIVE MODE HAS EVER BEEN ENTERED (BIT *FTO* ON), DBG0002   607
                                        *                THEN NO FLAGS ARE SET  (I.E. ALL FLAGS ARE AS SET BY    DBG0002   608
                                        *                INTERACTIVE USER VIA *OUTPUT* COMMAND).                 DBG0002   609
                                        *           2. IF INTERACTIVE MODE HAS NOT YET BEEN ENTERED              DBG0002   610
                                        *                (BIT *FTO* OFF), THEN SET --                            DBG0002   611
                                        *                  BDO = WRITING TO BATCH DEBUG OUTPUT FILE, *F.BDO*     DBG0002   612
                                        *                  SNL = L.BSL                                           DBG0002   613
                                        *                                                                        DBG0002   614
                                        *         ENTRY  (X1) = BITS 0 THRU *IDF.XECL-1* CONTAIN THE VALUE TO    DBG0002   615
                                        *                         BE PLACED IN *XEC* FIELD,                      DBG0002   616
                                        *                         (BITS 59 THRU *IDF.XECL* ARE IGNORED).         DBG0002   617
                                        *                                                                        DBG0002   618
                                        *         EXIT   (IDPFLG) UPDATED                                        DBG0002   619
                                        *                                                                        DBG0002   620
                                        *         USES   X - 1,2,3,4,6                                           DBG0002   621
                                        *                A - 2,6                                                 DBG0002   622
                                        *                B - NONE                                                DBG0002   623
                                        *                                                                        DBG0002   624
                                        *         CALLS  NONE                                                    DBG0002   625
                                                                                                                 DBG0002   626
                                                                                                                 DBG0002   627
                                         SOB      SUBR               ** ENTRY/EXIT **                            DBG0002   628
                                                  SA2    IDPFLG                                                  DBG0002   629
                                                  MX3    -IDF.XECL                                               DBG0002   630
                                                  SX4    L.BSL                                                   DBG0002   631
                                                  BX1    -X3*X1                                                  DBG0002   632
                                                  LX2    0-IDF.XECP                                              DBG0002   633
                                                  BX2    X3*X2       CLEAR OLD *XEC*                             DBG0002   634
                                                  IX6    X2+X1       MERGE NEW *XEC*                             DBG0002   635
                                                  LX2    59-IDF.FTOP+IDF.XECP-0                                  DBG0002   636
                                                  LX6    IDF.XECP-0                                              DBG0002   637
                                                  MX3    1                                                       DBG0002   638
                                                  SA6    A2                                                      DBG0002   639
                                                  MI     X2,EXIT.    IF *IDP* HAS EVER BEEN CALLED               DBG0002   640
                                                  LX3    IDF.BDOP-59                                             DBG0002   641
                                                  MX2    -IDF.SNLL                                               DBG0002   642
                                                  BX6    X6+X3       MERGE *BDO*                                 DBG0002   643
                                                  LX2    IDF.SNLP-0                                              DBG0002   644
                                                  LX4    IDF.SNLP-0                                              DBG0002   645
                                                  BX6    X2*X6       CLEAR OLD *SNL*                             DBG0002   646
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    32
  
  
                                                  IX6    X6+X4       MERGE NEW *SNL*                             DBG0002   647
                                                  SA6    A2                                                      DBG0002   648
                                                  EQ     EXIT.                                                   DBG0002   649
                                         WOD      SPACE  4,8                                                     DBG=IDP  1130
                                        **        WOD - CONVERT A WORD TO OCTAL DISPLAY CODE.                    DBG=IDP  1131
                                        *                                                                        DBG=IDP  1132
                                        *                                                                        DBG=IDP  1133
                                        *         ENTRY  (X1)   =  BINARY WORD TO CONVERT                        DBG=IDP  1134
                                        *                                                                        DBG=IDP  1135
                                        *         EXIT   (X6)   =  UPPER 10 OCTAL DIGITS OF CONVERTED WORD       DBG=IDP  1136
                                        *                (X7)   =  LOWER 10 OCTAL DIGITS OF CONVERTED WORD       DBG=IDP  1137
                                        *                                                                        DBG=IDP  1138
                                        *         USES   X - ALL                                                 DBG=IDP  1139
                                        *                A - 2,3,4,5                                             DBG=IDP  1140
                                        *                B - NONE                                                DBG=IDP  1141
                                        *                                                                        DBG=IDP  1142
                                        *         CALLS  NONE                                                    DBG=IDP  1143
                                                                                                                 DBG=IDP  1144
                                                                                                                 DBG=IDP  1145
                                         #WOD     IF     -DEF,WOD                                                DBG=IDP  1146
                                                                                                                 DBG=IDP  1147
                                         WOD      SUBR               ** ENTRY/EXIT **                            DBG=IDP  1148
                                                                                                                 DBG=IDP  1149
                                        *         ON ENTRY   (X1)  = ABCDE FGHIJ KLMNO PQRST                     DBG=IDP  1150
                                                                                                                 DBG=IDP  1151
                                                  SA2    WODA        7.... 7.... 7.... 7....                     DBG=IDP  1152
                                                  BX7    X2*X1       A.... F.... K.... P....                     DBG=IDP  1153
                                                  LX1    3           BCDEF GHIJK LMNOP QRSTA                     DBG=IDP  1154
                                                  BX6    X2*X1       B.... G.... L.... Q....                     DBG=IDP  1155
                                                  LX1    3           CDEFG HIJKL MNOPQ RSTAB                     DBG=IDP  1156
                                                  LX7    9*3         .K... .P... .A... .F...                     DBG=IDP  1157
                                                  BX0    X2*X1       C.... H.... M.... R....                     DBG=IDP  1158
                                                  LX6    7*3         ...L. ...Q. ...B. ...G.                     DBG=IDP  1159
                                                  LX1    3           DEFGH IJKLM NOPQR STABC                     DBG=IDP  1160
                                                  IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                     DBG=IDP  1161
                                                  BX5    X2*X1       D.... I.... N.... S....                     DBG=IDP  1162
                                                  LX1    3           EFGHI JKLMN OPQRS TABCD                     DBG=IDP  1163
                                                  LX0    5*3         H.... M.... R.... C....                     DBG=IDP  1164
                                                  BX6    X2*X1       E.... J.... O.... T....                     DBG=IDP  1165
                                                  IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.                     DBG=IDP  1166
                                                  LX5    3*3         ..I.. ..N.. ..S.. ..D..                     DBG=IDP  1167
                                                  LX6    3           ....J ....O ....T ....E                     DBG=IDP  1168
                                                  IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE                     DBG=IDP  1169
                                                  SA4    A2+B1       .7.7. 7.7.7 ..... .....                     DBG=IDP  1170
                                                  SA3    A4+B1       ..... .7.7. 7.7.7 .....                     DBG=IDP  1171
                                                  BX7    X7+X5       HKILJ MPNQO RASBT CFDGE                     DBG=IDP  1172
                                                  BX2    X7*X4       .K.L. M.N.O ..... .....                     DBG=IDP  1173
                                                  SA5    A3+B1       00000 00000 00000 00000                     DBG=IDP  1174
                                                  BX1    X7*X3       ..... .P.Q. R.S.T .....                     DBG=IDP  1175
                                                  LX7    10*3        RASBT CFDGE HKILJ MPNQO                     DBG=IDP  1176
                                                  IX2    X5+X2       .K.L. M.N.O 00000 00000                     DBG=IDP  1177
                                                  BX0    X7*X4       .A.B. C.D.E ..... .....                     DBG=IDP  1178
                                                  IX0    X0+X5       .A.B. C.D.E 00000 00000                     DBG=IDP  1179
                                                  LX1    15*3        ..... ..... .P.Q. R.S.T                     DBG=IDP  1180
                                                  BX3    X7*X3       ..... .F.G. H.I.J .....                     DBG=IDP  1181
                                                  IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T                     DBG=IDP  1182
                                                  LX3    15*3        ..... ..... .F.G. H.I.J                     DBG=IDP  1183
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    33
  
  
                                                  IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J                     DBG=IDP  1184
                                                  EQ     EXIT.                                                   DBG=IDP  1185
                                                                                                                 DBG=IDP  1186
                                         WODA     CON    70000700007000070000B                                   DBG=IDP  1187
                                                  CON    07070707070000000000B                                   DBG=IDP  1188
                                                  CON    00000070707070700000B                                   DBG=IDP  1189
                                                  CON    10H0000000000                                           DBG=IDP  1190
                                         #WOD     ENDIF                                                          DBG=IDP  1191
                                         IDP      TITLE  IDP - INTERACTIVE DEBUGGING PACKAGE.                    DBG=IDP  1192
                                        **        IDP - INTERACTIVE DEBUGGING PACKAGE.                           DBG=IDP  1193
                                        *                                                                        DBG=IDP  1194
                                        *                                                                        DBG=IDP  1195
                                        *                THIS IS THE INTERACTIVE DEBUGGING PACKAGE WHICH ALLOWS  DBG=IDP  1196
                                        *         ITS USER THE JOYS AND SORROWS OF INTERACTIVE DEBUGGING.        DBG=IDP  1197
                                        *                                                                        DBG=IDP  1198
                                        *                INITIAL ENTRY IS VIA *BREAK* MACRO (DBG=MAC), WHICH     DBG=IDP  1199
                                        *         ASSEMBLES AN *RJ IDP=* AT THE DESIRED LOCATION TO BE BREAK-    DBG=IDP  1200
                                        *         POINTED. SUBSEQUENT ENTRIES CAN BE VIA MORE ASSEMBLED *BREAK*S DBG=IDP  1201
                                        *         OR BY PLACING AN *IDP* GENERATED BREAKPOINT, VIA *BREAK*       DBG=IDP  1202
                                        *         COMMAND, AT THE DESIRED LOCATION TO BE BREAKPOINTED.           DBG=IDP  1203
                                        *                                                                        DBG=IDP  1204
                                        *         IDP COMMANDS ARE--                                             DBG=IDP  1205
                                        *                                                                        DBG=IDP  1206
                                        *         BREAK                                                          DBG=IDP  1207
                                        *         BREAK  ADDR,LL,UL,INC                                          DBG=IDP  1208
                                        *         BRPL   ADDR,A1,LL,UL,INC                                       DBG=IDP  1209
                                        *         BRMI   ADDR,A1,LL,UL,INC                                       DBG=IDP  1210
                                        *         BRZR   ADDR,A1,LL,UL,INC                                       DBG=IDP  1211
                                        *         BRNZ   ADDR,A1,LL,UL,INC                                       DBG=IDP  1212
                                        *         BREQ   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1213
                                        *         BRNE   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1214
                                        *         BRLT   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1215
                                        *         BRGE   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1216
                                        *         BRLE   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1217
                                        *         BRGT   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1218
                                        *         CODE   FWA,LWA,LEN                                             DBG=IDP  1219
                                        *         CONNECT FILE                                                   DBG=IDP  1220
                                        *         DISCONT FILE                                                   DBG=IDP  1221
                                        *         DPC FWA,LWA,LEN                                                DBG0002   650
                                        *         END                                                            DBG=IDP  1222
                                        *         FREEZE                                                         DBG0006     5
                                        *         JUMP   ADDR                                                    DBG=IDP  1223
                                        *         OUTPUT I,B,IE,BE                                               DBG0002   651
                                        *         REGS                                                           DBG=IDP  1224
                                        *         REGS   R1,R2,...,RN                                            DBG=IDP  1225
                                        *         SET                                                            DBG=IDP  1226
                                        *         SET    NAME,VALUE                                              DBG=IDP  1227
                                        *         SNAP   FWA,LWA,LEN                                             DBG=IDP  1228
                                        *         STORE  ADDR,C1,C2,C3,C4                                        DBG=IDP  1229
                                        *         STEP   L,RJ                                                    DBG=IDP  1230
                                        *         STPL   ADDR,L,RJ                                               DBG=IDP  1231
                                        *         STMI   ADDR,L,RJ                                               DBG=IDP  1232
                                        *         STZR   ADDR,L,RJ                                               DBG=IDP  1233
                                        *         STNZ   ADDR,L,RJ                                               DBG=IDP  1234
                                        *         STEQ   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1235
                                        *         STNE   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1236
                                        *         STLT   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1237
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    34
  
  
                                        *         STGE   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1238
                                        *         STLE   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1239
                                        *         STGT   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1240
                                        *         STRANGE ADDR1,ADDR2,L,RJ                                       DBG=IDP  1241
                                        *         STNR   NR,L,RJ                                                 DBG=IDP  1242
                                        *         STAR   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1243
                                        *         UNBREAK ADDR1,...,ADDRN                                        DBG0002   652
                                        *         UNSET  NAME1,...,NAMEN                                         DBG=IDP  1245
                                        *         WHERE  ADDR1,...,ADDRN                                         DBG=IDP  1246
                                        *         XEQ                                                            DBG=IDP  1247
                                        *                                                                        DBG=IDP  1248
                                        *         MAY THE GODS BE WITH YOU...                                    DBG=IDP  1249
                                        *                                                                        DBG=IDP  1250
                                        *         ENTRY  NONE                                                    DBG=IDP  1251
                                        *                                                                        DBG=IDP  1252
                                        *         EXIT   NONE                                                    DBG=IDP  1253
                                        *                                                                        DBG=IDP  1254
                                        *         USES   NONE        (OR IT WOULDNT BE ANY GOOD)                 DBG=IDP  1255
                                        *                                                                        DBG=IDP  1256
                                        *         CALLS  (EXTERNAL TO DBG=IDP)--                                 DBG=IDP  1257
                                        *                CDD,COD,DXB,OPEN,READC,RSR=,SFN,SVR=,WRITEC,WRITER      DBG0004     4
                                                                                                                 DBG=IDP  1259
                                                                                                                 DBG=IDP  1260
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              DBG=IDP  1261
                                                                                                                 DBG=IDP  1262
                                         IDP=     SUBR               ** ENTRY **                                 DBG0001    13
                                                  RJ     =XSVR=      SAVE ALL REGISTTERS                         DBG=IDP  1264
                                                                                                                 DBG0002   653
                                        *         INITIALIZATION.                                                DBG0002   654
                                                                                                                 DBG0002   655
                                                  SA1    IDP=                                                    DBG0002   656
                                                  SX6    60                                                      DBG0002   657
                                                  LX1    30                                                      DBG0002   658
                                                  SX7    X1                                                      DBG0002   659
                                                  SA6    IDPPOS      SET UP POS COUNTER                          DBG=IDP  1270
                                                  SA7    IDPPREG     SET UP PSEUDO P REGISTER                    DBG=IDP  1271
                                                  SB6    IDPXFT                                                  DBG0002   660
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- TRANSFER ADDRESSES     DBG0002   661
                                                                                                                 DBG0002   662
                                        *         SET UP *IDPFLG* - MASTER CONTROL FLAG.                         DBG0002   663
                                        *                                                                        DBG0002   664
                                        *           SET  XEC = *IDP=*                                            DBG0002   665
                                        *           IF 1ST TIME *IDP* HAS BEEN ENTERED (BIT *FTO* OFF), SET --   DBG0002   666
                                        *                FTO = 1ST TIME ONLY CODE HAS BEEN EXECUTED              DBG0002   667
                                        *                IDO = WRITING INTERACTIVELY (F.IDO)                     DBG0002   668
                                        *                SNL = L.ISL                                             DBG0002   669
                                                                                                                 DBG0002   670
                                                  SA1    IDPFLG                                                  DBG0002   671
                                                  MX2    -IDF.XECL                                               DBG0002   672
                                                  MX3    1                                                       DBG0002   673
                                                  LX2    IDF.XECP-0                                              DBG0002   674
                                                  BX6    X2*X1       CLEAR OLD *XEC*/SET NEW *XEC*               DBG0002   675
                                                  MX4    -IDF.SNLL                                               DBG0002   676
                                                  LX1    59-IDF.FTOP                                             DBG0002   677
                                                  SA6    A1                                                      DBG0002   678
                                                  MI     X1,IDP2     IF NOT 1ST TIME                             DBG0002   679
                                                  LX4    IDF.SNLP-0                                              DBG0002   680
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    35
  
  
                                                  LX3    IDF.FTOP-59                                             DBG0002   681
                                                  BX6    X4*X6       CLEAR OLD *SNL*                             DBG0002   682
                                                  =X1    L.ISL                                                   DBG0002   683
                                                  BX6    X6+X3       MERGE *FTO*                                 DBG0002   684
                                                  LX3    IDF.IDOP-IDF.FTOP                                       DBG0002   685
                                                  BX6    X6+X1       MERGE NEW *SNL*                             DBG0002   686
                                                  IX6    X6+X3       MERGE *IDO*                                 DBG0002   687
                                                  SA6    A1                                                      DBG0002   688
                                                                                                                 DBG=IDP  1275
                                        *         SET UP *F.IDI - INTERACTIVE DEBUG INPUT FILE*.                 DBG=IDP  1276
                                                                                                                 DBG=IDP  1277
                                                  SA1    F.IDI                                                   DBG=IDP  1278
                                                  SX2    040021B     (X2) = CIO EOR STATUS                       DBG=IDP  1279
                                                  MX0    7*CHAR                                                  DBG=IDP  1280
                                                  BX6    X0*X1                                                   DBG=IDP  1281
                                                  BX6    X6+X2                                                   DBG=IDP  1282
                                                  SA6    A1                                                      DBG=IDP  1283
                                                  OPEN   F.IDI,,RCL                                              FCCA580     8
                                                  SA1    F.IDI                                                   DBG=IDP  1285
                                                  MX2    0           SET TO *CONNECT*                            DBG=IDP  1286
                                                  RJ     CON         CONNECT F.IDI                               DBG=IDP  1287
                                                                                                                 DBG=IDP  1288
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  DBG=IDP  1289
                                                  MI     X1,*+4S15   IF *CON* DETECTED ERROR...                  DBG=IDP  1290
                                         #OS3     ENDIF                                                          DBG=IDP  1291
                                                                                                                 DBG=IDP  1292
                                        *         SET UP *F.IDO - INTERACTIVE DEBUG OUTPUT FILE*.                DBG=IDP  1293
                                                                                                                 DBG=IDP  1294
                                                  OPEN   F.IDO,,RCL                                              FCCA580     9
                                                  SA1    F.IDO                                                   DBG=IDP  1296
                                                  MX2    0           SET TO *CONNECT*                            DBG=IDP  1297
                                                  RJ     CON         CONNECT F.IDO                               DBG=IDP  1298
                                                                                                                 DBG=IDP  1299
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  DBG=IDP  1300
                                                  MI     X1,*+4S15   IF *CON* DETECTED ERROR...                  DBG=IDP  1301
                                         #OS3     ENDIF                                                          DBG=IDP  1302
                                                                                                                 DBG=IDP  1303
                                        *         CLEAR/INITIALIZE TABLES.                                       DBG0002   689
                                                                                                                 DBG=IDP  1305
                                                  SB6    IDPBA                                                   DBG=IDP  1306
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- BREAK ADDRESSES        DBG=IDP  1307
                                                  SB6    IDPSET                                                  DBG=IDP  1308
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- SET NAMES              DBG=IDP  1309
                                                  RJ     IST         (RE)INITIALIZE *SET* TABLE                  DBG=IDP  1310
                                                                                                                 DBG=IDP  1311
                                        *         INITIAL BREAK PROCESSING.                                      DBG=IDP  1312
                                                                                                                 DBG=IDP  1313
                                         IDP2     SA1    IDPPREG                                                 DBG=IDP  1314
                                                  SA5    X1-1        (X5) = 30/RJ IDP, 30/FWA PARAMETER LIST     DBG=IDP  1315
                                                  BX6    X6-X6                                                   DBG=IDP  1316
                                                  SX5    X5                                                      DBG=IDP  1318
                                                  SA6    ST=ENDX     SET TO *DEFAULT IS NOT IDP GENERATED BRK*   DBG=IDP  1319
                                                  RJ     BRK         BREAK PROCESSOR                             DBG=IDP  1321
                                                                                                                 DBG=IDP  1322
                                         #UIO     IF     DEF,UIO=                                                DBG=IDP  1323
                                                  RJ     =XUIO=      USER IDP OWNCODE                            DBG=IDP  1324
                                                  PL     X1,ST=ENDW  IF NO INTERACTIVE BREAK THIS TIME           DBG=IDP  1325
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    36
  
  
                                         #UIO     ENDIF                                                          DBG=IDP  1326
                                                                                                                 DBG=IDP  1327
                                                  ZR     X5,ST=ENDW  IF CONDITIONAL BREAK NOT SATISFIED          DBG=IDP  1328
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  DBG=IDP  1329
                                                  ZR     X5,ST=ENDW  IF NO BREAK THIS TIME                       DBG=IDP  1330
                                                                                                                 DBG=IDP  1331
                                        *         FLUSH *F.BDO - BATCH DEBUG OUTPUT FILE*.                       DBG=IDP  1332
                                                                                                                 DBG=IDP  1333
                                                  WRITER =XF.BDO,,RCL                                            DBG=IDP  1334
                                                                                                                 DBG=IDP  1335
                                        *         INTRODUCE YOURSELF.                                            DBG=IDP  1336
                                                                                                                 DBG=IDP  1337
                                         IDP2A    BSS    0                                                       DBG=IDP  1338
                                                  SA1    =10H **IDP**                                            DBG0002   690
                                                  SA2    =10H CALLD BY                                           DBG0002   691
                                                  SA3    X5+SN=HDR                                               DBG0002   692
                                                  BX6    X1                                                      DBG0002   693
                                                  LX7    X2                                                      DBG0002   694
                                                  SA6    SNAPLNE                                                 DBG0002   695
                                                  SA7    A6+B1                                                   DBG0002   696
                                                  BX6    X3                                                      DBG0002   697
                                                  ZR     X3,IDP4     IF NO HEADER PROVIDED BY CALLER .OR.        DBG0002   698
                                        *                              IDP GENERATED BREAK                       DBG0002   699
                                                  SA6    A6+B1                                                   DBG0002   700
                                                  SA7    A6+B1                                                   DBG0002   701
                                                                                                                 DBG=IDP  1363
                                         IDP4     SA1    IDPPREG                                                 DBG=IDP  1364
                                                  SX1    X1-1                                                    DBG=IDP  1365
                                                                                                                 DBG=IDP  1366
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  1367
                                                  SB7    IDP5        (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP  1368
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  1369
                                                                                                                 DBG=IDP  1370
                                         IDP5     BSS    0                                                       DBG=IDP  1371
                                                                                                                 DBG=IDP  1372
                                         #FRA     ELSE                                                           DBG=IDP  1373
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  1374
                                                  BX6    X4                                                      DBG=IDP  1375
                                                  MX7    0                                                       DBG=IDP  1376
                                         #FRA     ENDIF                                                          DBG=IDP  1377
                                                                                                                 DBG=IDP  1378
                                                  SA6    A7+B1                                                   DBG0002   702
                                                  SA7    A6+B1                                                   DBG0002   703
                                                  PRIDP  SNAPLNE                                                 DBG0002   704
                                                  EQ     IDP8        READ 1ST LINE...                            DBG0002   705
                                         IDP=MN   SPACE  4,8                                                     DBG0002   706
                                        *         ** MAIN LOOP NODE **                                           DBG0002   707
                                                                                                                 DBG0002   708
                                         IDP=MN   BSS    0                                                       DBG0002   709
                                                  SA1    IDPSTMT                                                 DBG0002   710
                                                  PL     X1,IDP7     IF LAST STMT PROCESSED WAS NOT IN *PROC*    DBG0002   711
                                                                                                                 DBG0002   712
                                        *         HERE IF LAST STATEMENT WAS IN A PROCEDURE.                     DBG0002   713
                                                                                                                 DBG0002   714
                                                  EQ     *+4S15      OOPS...                                     DBG0002   715
                                                                                                                 DBG0002   716
                                        *         CHECK FOR AVAILABILITY OF NEXT STATEMENT.                      DBG0002   717
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    37
  
  
                                                                                                                 DBG0002   718
                                         IDP7     SA2    X1          (X2) = LEN WORD FOR LAST STMT PROCESSED     DBG0002   719
                                                  LX2    59-TB.LASP                                              DBG0002   720
                                                  MI     X2,IDP8     IF LAST STMT PROCESSED WAS LAST ON LINE     DBG0002   721
                                                  LX2    0-TB.LENP+TB.LASP-59                                    DBG0002   722
                                                  SX1    X1                                                      DBG0002   723
                                                  SX2    X2+B1                                                   DBG0002   724
                                                  IX6    X1+X2       (X6) = ADDR OF LEN WORD FOR NEXT STMT       DBG0002   725
                                                  SA6    IDPSTMT                                                 DBG0002   726
                                                  SA5    X6+B1       (A5,X5) = A+C OF 1ST TOKEN IN NEXT STMT     DBG0002   727
                                                  EQ     IDP12                                                   DBG0002   728
                                                                                                                 DBG0002   729
                                        *         HERE TO READ NEW LINE.                                         DBG0002   730
                                                                                                                 DBG0002   731
                                         IDP8     SA1    IDPFLG                                                  DBG0002   732
                                                  LX1    59-IDF.INPP                                             DBG0002   733
                                                  MI     X1,IDP9     IF READING FROM BATCH INPUT (F.BDI)         DBG0002   734
                                                                                                                 DBG0002   735
                                                  DUP    L.PRB,1                                                 DBG0002   736
                                                  WRITEC =XF.IDO,(=C=  =)                                        DBG0002   737
                                                                                                                 DBG0002   738
                                                  WRITEC =XF.IDO,(=C= "PROMPT"=)                                 DBG0002   739
                                                  WRITER =XF.IDO,,RCL                                            DBG0002   740
                                                                                                                 DBG0002   741
                                         IDP9     RJ     RIL         READ IDP LINE                               DBG0002   742
                                                  SA2    IDPFLG                                                  DBG0002   743
                                                  ZR     X1,IDP10    IF EOR/EOF NOT ENCOUNTERED                  DBG0002   744
                                                  MX6    1                                                       DBG0002   745
                                                  LX6    IDF.INPP-59                                             DBG0002   746
                                                  BX6    -X6*X2      CLEAR INP                                   DBG0002   747
                                                  SA6    A2                                                      DBG0002   748
                                                  EQ     IDP8                                                    DBG0002   749
                                                                                                                 DBG0002   750
                                        *         HERE TO ECHO LINE TO BATCH DEBUG OUTPUT FILE (F.BDO),          DBG0002   751
                                        *           IF REQUESTED.                                                DBG0002   752
                                                                                                                 DBG0002   753
                                         IDP10    BX3    X2                                                      DBG0002   754
                                                  LX2    59-IDF.BKOP                                             DBG0002   755
                                                  LX3    59-IDF.BDOP                                             DBG0002   756
                                                  BX4    X2*X3                                                   DBG0002   757
                                                  PL     X4,IDP10A   IF NO ECHO REQUESTED .OR. NOT WRITING TO    DBG0002   758
                                        *                              BATCH DEBUG OUTPUT FILE (F.BDO)           DBG0002   759
                                                  PRBDO  (=C=  =),1                                              DBG0002   760
                                                  SA2    L=LIM                                                   DBG0002   761
                                                  PRBDO  IDPLIM-1,X2                                             DBG0002   762
                                                                                                                 DBG0002   763
                                        *         HERE TO ECHO LINE TO INTERACTIVE DEBUG OUTPUT FILE (F.IDO),    DBG0002   764
                                        *           IF REQUESTED.                                                DBG0002   765
                                                                                                                 DBG0002   766
                                         IDP10A   SA1    IDPFLG                                                  DBG0002   767
                                                  BX2    X1                                                      DBG0002   768
                                                  LX1    59-IDF.IKOP                                             DBG0002   769
                                                  LX2    59-IDF.IDOP                                             DBG0002   770
                                                  BX3    X1*X2                                                   DBG0002   771
                                                  PL     X3,IDP11    IF NO ECHO REQUESTED .OR. NOT WRITING TO    DBG0002   772
                                        *                              INTERACTIVE DEBUG OUTPUT FILE (F.IDO)     DBG0002   773
                                                                                                                 DBG0002   774
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    38
  
  
                                                  DUP    L.PRB,1                                                 DBG0002   775
                                                  WRITEC =XF.IDO,(=C=  =)                                        DBG0002   776
                                                                                                                 DBG0002   777
                                                  WRITEC =XF.IDO,IDPLIM-1                                        DBG0002   778
                                                                                                                 DBG0002   779
                                        *         HERE TO ENTOKEN NEW LINE.                                      DBG0002   780
                                                                                                                 DBG0002   781
                                         IDP11    SX7    L.TB                                                    DBG0002   782
                                                  SA6    IDPTB       (A6) = ADDR OF LEN WORD FOR 1ST STMT        DBG0002   783
                                                  SA7    BUB=LEN                                                 DBG0002   784
                                                  RJ     BUB         BURST/BUILD NEW LINE                        DBG0002   785
                                                  SX6    IDPTB                                                   DBG0002   786
                                                  SA5    IDPTB+1                                                 DBG0002   787
                                                  SA6    IDPSTMT                                                 DBG0002   788
                                                                                                                 DBG0002   789
                                        *         HERE TO SEARCH FOR STATEMENT KEYWORD.                          DBG0002   790
                                                                                                                 DBG0002   791
                                         IDP12    MX0    7*CHAR                                                  DBG0002   792
                                                  SX6    B1                                                      DBG0002   793
                                                  ZR     X5,IDP=MN   IF A NULL STMT, IGNORE...                   DBG0002   794
                                        *                              (PROBABLE "EOS" "EOS" SYNTAX)             DBG0002   795
                                                  SA2    =40404040404040404040B                                  DBG0002   796
                                                  BX1    X0*X5       (X1) = 0LKEYWORD                            DBG0002   797
                                                  IX6    X1-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     DBG0002   798
                                                  BX7    -X6+X1      (X7) = ALL TRAILING 0 BITS IN (X1) = 0 BITS DBG0002   799
                                        *                                    ALL OTHER LEADING BITS = 1 BITS     DBG0002   800
                                                  SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS          DBG0002   801
                                                  BX6    X2*X7       (X6) = 40B WHERE EACH CHAR IN KEYWORD IS    DBG0002   802
                                                  LX7    X6,B7       (X7) = 01B WHERE EACH CHAR IN KEYWORD IS    DBG0002   803
                                                  SB6    IDPKEY                                                  DBG0002   804
                                                  IX7    X6-X7       (X7) = 37B WHERE EACH CHAR IN KEYWORD IS    DBG0002   805
                                                  BX0    X6+X7       (X0) = 77B WHERE EACH CHAR IN KEYWORD IS    DBG0002   806
                                                  RJ     SKT         SEARCH *IDP* KEYWORD TABLE                  DBG=IDP  1398
                                                                                                                 DBG=IDP  1399
                                         #UKT     IF     DEF,UKT=                                                DBG=IDP  1400
                                                  NZ     X2,IDP=UK   IF A FIND                                   DBG=IDP  1401
                                                  SB6    =XUKT=      (B6) = FWA OF USER KEYWORD TABLE            DBG=IDP  1402
                                                  RJ     SKT         SEARCH USER KEYWORD TABLE                   DBG=IDP  1403
                                                                                                                 DBG=IDP  1404
                                         IDP=UK   BSS    0                                                       DBG=IDP  1405
                                         #UKT     ENDIF                                                          DBG=IDP  1406
                                                                                                                 DBG=IDP  1407
                                                  ZR     X2,IDP.ER   IF NO FIND IN TABLE                         DBG=IDP  1408
                                                  SB5    X2          (B5) = PROCESSOR ADDR                       DBG=IDP  1409
                                                  SA5    A5+B1       (A5,X5) = A+C OF TOKEN THAT TERMINATED KEYW DBG0002   807
                                                  JP     B5                                                      DBG=IDP  1410
                                         IDP=ER   SPACE  4,8                                                     DBG0002   808
                                        *         HERE FOR ERROR CONDITION.                                      DBG=IDP  1412
                                                                                                                 DBG=IDP  1413
                                         IDP=ER   BSS    0           ** ERROR **                                 DBG=IDP  1414
                                         IDP.ER   BSS    0                                                       DBG=IDP  1415
                                                                                                                 DBG0002   809
                                                  DUP    L.PRB,1                                                 DBG0002   810
                                                  WRITEC =XF.IDO,(=C=  =)                                        DBG0002   811
                                                                                                                 DBG0002   812
                                                  WRITEC =XF.IDO,(=C= ** ERROR **=)                              DBG0002   813
                                                  EQ     IDP=MN                                                  DBG=IDP  1417
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    39
  
  
                                         IDP=OV   SPACE  4,8                                                     DBG0002   814
                                        *         HERE IF TABLE OVERFLOW.                                        DBG0002   815
                                                                                                                 DBG0002   816
                                         IDP=OV   BSS    0           ** TABLE OVERFLOW **                        DBG0002   817
                                                                                                                 DBG0002   818
                                                  DUP    L.PRB,1                                                 DBG0002   819
                                                  WRITEC =XF.IDO,(=C=  =)                                        DBG0002   820
                                                                                                                 DBG0002   821
                                                  WRITEC =XF.IDO,(=C= ** TABLE OVERFLOW **=)                     DBG0002   822
                                                  EQ     IDP=ER                                                  DBG0002   823
                                         IDP=IFR  SPACE  4,8                                                     DBG0006     6
                                        **        IDP=IFR - IDP RESTART.                                         DBG0006     7
                                        *                                                                        DBG0006     8
                                        *                                                                        DBG0006     9
                                        *         HERE FROM *RHH* WHEN HOST HAS JUST BEEN RESTARTED              DBG0006    10
                                        *         VIA *IFR*.  NEED TO *MEM* BACK DOWN TO ORIGINAL FIELD          DBG0006    11
                                        *         LENGTH.                                                        DBG0006    12
                                                                                                                 DBG0006    13
                                                                                                                 DBG0006    14
                                         IDP=IFR  BSS    0           ** ENTRY **                                 DBG0006    15
                                                  SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                            DBG0006    16
                                                  MX2    -1                                                      DBG0006    17
                                                  BX6    X2*X1       CLEAR COMPLETE BIT                          DBG0006    18
                                                  SA6    A1                                                      DBG0006    19
                                                  MEMORY SCM,A1,RCL                                              DBG0006    20
                                                  EQ     IDP=MN      CONTINUE INTERACTIVE SESSION...             DBG0006    21
                                         ST=      SPACE  4,8                                                     DBG=IDP  1418
                                        **        ST= - STATEMENT PROCESSORS.                                    DBG=IDP  1419
                                        *                                                                        DBG=IDP  1420
                                         ST=BRK   SPACE  4,8                                                     DBG=IDP  1421
                                        *         HERE TO PROCESS *BREAK ADDR,LL,UL,INC*,                        DBG=IDP  1422
                                        *                      OR *BRPL ADDR,ADDR1,LL,UL,INC* FORM,              DBG=IDP  1423
                                        *                      OR  *BREQ ADDR,ADDR1,ADDR2,LL,UL,INC* FORM.       DBG=IDP  1424
                                                                                                                 DBG=IDP  1425
                                         ST=BRK   SX6    B7+IDPKEY-IDPKBR  (X6) = BREAK TYPE CODE (BTC)          DBG=IDP  1426
                                                  SA6    IDPBTC                                                  DBG=IDP  1427
                                                  ZR     X5,ST=BRK13 IF EOS ENCOUNTERED, LIST ALL BREAKS...      DBG0002   824
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  DBG=IDP  1429
                                                  ZR     X3,ST=BRK13 IF 1ST EXPRESSION IS NULL, LIST ALL BREAKS  DBG=IDP  1430
                                                  SX6    X1                                                      DBG=IDP  1431
                                                  SB2    X1          (B2) = ADDR AT WHICH TO BREAK               DBG=IDP  1432
                                                  SA6    AP=FWA                                                  DBG=IDP  1433
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1434
                                                  MI     B2,IDP.ER   IF ADDR IS BAD                              DBG=IDP  1435
                                                  SA2    IDPBTC                                                  DBG=IDP  1436
                                                  MX3    0                                                       DBG=IDP  1437
                                                  ZR     X2,ST=BRK2  IF THIS IS *BREAK ADDR,LL,UL,INC*           DBG=IDP  1438
                                                                                                                 DBG=IDP  1439
                                        *         ASSEMBLE ADDR1.                                                DBG=IDP  1440
                                                                                                                 DBG=IDP  1441
                                                  ZR     X5,ST=BRK2  IF ADDR FOLLOWED BY EOS                     DBG=IDP  1442
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR1                 DBG=IDP  1443
                                                                                                                 DBG=IDP  1444
                                         ST=BRK2  NZ     X3,ST=BRK3  IF ADDR1 NOT NULL                           DBG=IDP  1445
                                                  SX1    0           (X1) = DEFAULT ADDR1                        DBG=IDP  1446
                                                                                                                 DBG=IDP  1447
                                         ST=BRK3  SB2    X1                                                      DBG=IDP  1448
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    40
  
  
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1449
                                                  MI     B2,IDP.ER   IF ADDR1 IS BAD                             DBG=IDP  1450
                                                  SX6    B2                                                      DBG=IDP  1451
                                                  MX3    0                                                       DBG=IDP  1452
                                                  SA6    AP=LWA                                                  DBG=IDP  1453
                                                  SA2    IDPBTC                                                  DBG=IDP  1454
                                                  SX7    X2-BTC=EQ                                               DBG=IDP  1455
                                                  MI     X7,ST=BRK4  IF THIS IS *BREAK ADDR,LL,UL,INC*           DBG=IDP  1456
                                        *                              OR *BRPL ADDR,ADDR1,LL,UL,INC* FORM       DBG=IDP  1457
                                                                                                                 DBG=IDP  1458
                                        *         ASSEMBL ADDR2.                                                 DBG=IDP  1459
                                                                                                                 DBG=IDP  1460
                                                  ZR     X5,ST=BRK4  IF ADDR1 FOLLOWED BY EOS                    DBG=IDP  1461
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR2                 DBG=IDP  1462
                                                                                                                 DBG=IDP  1463
                                         ST=BRK4  NZ     X3,ST=BRK5  IF ADDR2 NOT NULL                           DBG=IDP  1464
                                                  SX1    0                                                       DBG=IDP  1465
                                                                                                                 DBG=IDP  1466
                                         ST=BRK5  SB2    X1                                                      DBG=IDP  1467
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1468
                                                  MI     B2,IDP.ER   IF ADDR2 IS BAD                             DBG=IDP  1469
                                                  SX6    B2                                                      DBG=IDP  1470
                                                  MX3    0                                                       DBG=IDP  1471
                                                  SA6    AP=LEN      SAVE (X6) = ADDR2                           DBG=IDP  1472
                                                                                                                 DBG=IDP  1473
                                        *         ASSEMBLE LL.                                                   DBG=IDP  1474
                                                                                                                 DBG=IDP  1475
                                                  ZR     X5,ST=BRK6  IF ADDR2 FOLLOWED BY EOS                    DBG=IDP  1476
                                                  RJ     PAS         PARSE SUBEXPRESSION-- LL                    DBG=IDP  1477
                                                                                                                 DBG=IDP  1478
                                         ST=BRK6  NZ     X3,ST=BRK7  IF LL NOT NULL                              DBG=IDP  1479
                                                  SX1    1           (X1) = DEFAULT LL                           DBG=IDP  1480
                                                                                                                 DBG=IDP  1481
                                         ST=BRK7  SX6    X1                                                      DBG=IDP  1482
                                                  SA6    AP=LL                                                   DBG=IDP  1483
                                                  MX3    0                                                       DBG=IDP  1484
                                                  ZR     X5,ST=BRK8  IF LL FOLLOWED BY EOS                       DBG=IDP  1485
                                                  RJ     PAS         PARSE SUBEXPRESSION-- UL                    DBG=IDP  1486
                                                                                                                 DBG=IDP  1487
                                         ST=BRK8  NZ     X3,ST=BRK9  IF UL NOT NULL                              DBG=IDP  1488
                                                  SX1    100         (X1) = DEFAULT UL                           DBG=IDP  1489
                                                                                                                 DBG=IDP  1490
                                         ST=BRK9  SX6    X1                                                      DBG=IDP  1491
                                                  SA6    AP=UL                                                   DBG=IDP  1492
                                                  MX3    0                                                       DBG=IDP  1493
                                                  ZR     X5,ST=BRK10 IF UL FOLLOWED BY EOS                       DBG=IDP  1494
                                                  RJ     PAS         PARSE SUBEXPRESSION-- INC                   DBG=IDP  1495
                                                                                                                 DBG=IDP  1496
                                         ST=BRK10 NZ     X3,ST=BRK11 IF INC NOT NULL                             DBG=IDP  1497
                                                  SX1    1           (X1) = DEFAULT INC                          DBG=IDP  1498
                                                                                                                 DBG=IDP  1499
                                         ST=BRK11 SX6    X1                                                      DBG=IDP  1500
                                                  SA6    AP=INC                                                  DBG=IDP  1501
                                                                                                                 DBG=IDP  1502
                                        *         ASSEMBLE NEW BREAK TABLE ENTRY.                                DBG=IDP  1503
                                                                                                                 DBG=IDP  1504
                                                  SA1    AP=FWA      (X1) = BREAK ADDR                           DBG=IDP  1505
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    41
  
  
                                                  SA2    A1+B1       (X2) = ADDR1                                DBG=IDP  1506
                                                  SA3    A2+B1       (X3) = ADDR2                                DBG=IDP  1507
                                                  SA4    IDPBTC      (X4) = BREAK TYPE CODE                      DBG=IDP  1508
                                                  LX2    54-18                                                   DBG=IDP  1509
                                                  BX6    X1+X2       (X6) = 6/0,18/ADDR1,18/0,18/BREAK ADDR      DBG=IDP  1510
                                                  LX3    36-18                                                   DBG=IDP  1511
                                                  BX6    X6+X3       (X6) = 6/0,18/ADDR1,18/ADDR2,18/BRK ADDR    DBG=IDP  1512
                                                  LX4    60-6                                                    DBG=IDP  1513
                                                  BX6    X6+X4       (X6) = 6/BTC,18/ADDR1,18/ADDR2,18/BRK ADDR  DBG=IDP  1514
                                                  SA6    ST=BRKB                                                 DBG=IDP  1515
                                                                                                                 DBG=IDP  1516
                                                  SA2    AP=LL       (X2) = LL                                   DBG=IDP  1517
                                                  SA3    A2+B1       (X3) = UL                                   DBG=IDP  1518
                                                  SA4    A3+B1       (X4) = INC                                  DBG=IDP  1519
                                                  LX2    60-15                                                   DBG=IDP  1520
                                                  LX3    45-15                                                   DBG=IDP  1521
                                                  BX7    X2+X3       (X7) = 15/LL,15/UL,12/0,18/0                DBG=IDP  1522
                                                  LX4    30-12                                                   DBG=IDP  1523
                                                  BX7    X7+X4       (X7) = 15/LL,15/UL,12/INC,18/0              DBG=IDP  1524
                                                  SA7    A6+B1                                                   DBG=IDP  1525
                                                                                                                 DBG=IDP  1526
                                                  SX1    X1                                                      DBG=IDP  1527
                                                  SB6    IDPBA                                                   DBG=IDP  1528
                                                  MX0    -18                                                     DBG=IDP  1529
                                                  BX0    -X0                                                     DBG=IDP  1530
                                                  RJ     SKT         SEARCH FOR BREAK ADDR                       DBG=IDP  1531
                                                  SA1    ST=BRKB                                                 DBG=IDP  1532
                                                  NZ     X2,ST=BRK12 IF BREAK ADDR ALREADY IN TABLE              DBG=IDP  1533
                                                                                                                 DBG=IDP  1534
                                        *         HERE IF MAKING A NEW ENTRY.                                    DBG=IDP  1535
                                                                                                                 DBG=IDP  1536
                                                  BX6    X1                                                      DBG=IDP  1537
                                                  RJ     ADZ         ADD NEW *IDPBA* ENTRY                       DBG=IDP  1538
                                                  SA3    X1          (X3) = PREVIOUS CONTENTS OF BREAK ADDR      DBG=IDP  1539
                                                  SA4    ST=BRKA     (X4) = *RJ IDP* PLUG                        DBG=IDP  1540
                                                  BX6    X3                                                      DBG=IDP  1541
                                                  LX7    X4                                                      DBG=IDP  1542
                                                  SB6    B7+B7                                                   DBG=IDP  1543
                                                  SA6    IDPBC+B6                                                DBG=IDP  1544
                                                  SA7    A3                                                      DBG=IDP  1545
                                                  SA1    ST=BRKB+1   (X1) = 2ND WORD OF NEW *IDPBC* ENTRY        DBG=IDP  1546
                                                  BX6    X1                                                      DBG=IDP  1547
                                                  SA6    A6+B1                                                   DBG=IDP  1548
                                                  EQ     IDP=MN                                                  DBG=IDP  1549
                                                                                                                 DBG=IDP  1550
                                        *         HERE IF REPLACING/UPDATING AN EXISTING ENTRY.                  DBG=IDP  1551
                                                                                                                 DBG=IDP  1552
                                         ST=BRK12 SB6    B7+B7                                                   DBG=IDP  1553
                                                  BX6    X1                                                      DBG=IDP  1554
                                                  SA3    IDPBC+B6+1  (X3) = 2ND WORD OF EXISTING *IDPBC* ENTRY   DBG=IDP  1555
                                                  SA6    A2          REPLACE OLD *IDPBA* WITH NEW                DBG=IDP  1556
                                                  SA4    A1+B1       (X4) = NEW 2ND WORD OF *IDPBC* ENTRY        DBG=IDP  1557
                                                  SX3    X3          (X3) = SNAP COUNT                           DBG=IDP  1558
                                                  BX6    X4+X3                                                   DBG=IDP  1559
                                                  SA6    A3          REPLACE OLD WITH NEW                        DBG=IDP  1560
                                                  EQ     IDP=MN                                                  DBG=IDP  1561
                                                                                                                 DBG=IDP  1562
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    42
  
  
                                        *         HERE TO LIST ALL BREAKS.                                       DBG=IDP  1563
                                                                                                                 DBG=IDP  1564
                                         ST=BRK13 RJ     LBT         LIST BREAK TABLE                            DBG=IDP  1565
                                                  EQ     IDP=MN                                                  DBG=IDP  1566
                                                                                                                 DBG=IDP  1567
                                                                                                                 DBG=IDP  1568
                                         ST=BRKA  RJ     IDP=        PLUG VALUE                                  DBG=IDP  1569
                                         -        VFD    30/0                                                    DBG=IDP  1570
                                                                                                                 DBG=IDP  1571
                                         ST=BRKB  BSSZ   2           SAVE CELLS                                  DBG=IDP  1572
                                         ST=COD   SPACE  4,8                                                     DBG=IDP  1573
                                        *         HERE TO PROCESS *CODE FWA,LWA,LEN*.                            DBG=IDP  1574
                                                                                                                 DBG=IDP  1575
                                         ST=COD   BSS    0                                                       DBG0002   825
                                                  ZR     X5,ST=COD1  IF EOS ENCOUNTERED                          DBG0002   826
                                                  RJ     PAS         PARSE SUBEXPRESSION-- FWA                   DBG=IDP  1577
                                                  NZ     X3,ST=COD2  IF 1ST EXPRESSION *FWA* NOT NULL            DBG=IDP  1578
                                                                                                                 DBG0002   827
                                         ST=COD1  SA1    IDPPREG                                                 DBG0002   828
                                                                                                                 DBG=IDP  1580
                                         ST=COD2  SX6    X1                                                      DBG=IDP  1581
                                                  SA6    AP=FWA                                                  DBG=IDP  1582
                                                  MX1    0                                                       DBG=IDP  1583
                                                  ZR     X5,ST=COD3  IF FWA FOLLOWED BY EOS                      DBG=IDP  1584
                                                  RJ     PAS         PARSE SUBEXPRESSION-- LWA                   DBG=IDP  1585
                                                                                                                 DBG=IDP  1586
                                         ST=COD3  SX6    X1                                                      DBG=IDP  1587
                                                  SA6    AP=LWA                                                  DBG=IDP  1588
                                                  MX1    0                                                       DBG=IDP  1589
                                                  ZR     X5,ST=COD4  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS    DBG=IDP  1590
                                                  RJ     PAS         PARSE SUBEXPRESSION-- LEN                   DBG=IDP  1591
                                                                                                                 DBG=IDP  1592
                                         ST=COD4  SX6    X1                                                      DBG=IDP  1593
                                                  SA6    AP=LEN                                                  DBG=IDP  1594
                                                  SA2    AP=FWA                                                  DBG=IDP  1595
                                                  SA3    A2+B1                                                   DBG=IDP  1596
                                                  SA4    A3+B1                                                   DBG=IDP  1597
                                                  RJ     FLL         CHECK FWA,LWA,LEN                           DBG=IDP  1598
                                                  MI     B2,IDP=ER   IF FWA,LWA,OR LEN IS BAD                    DBG=IDP  1599
                                                                                                                 DBG=IDP  1600
                                        *         HERE TO DEASSEMBLE FROM FWA TO LWA.                            DBG=IDP  1601
                                                                                                                 DBG=IDP  1602
                                         ST=COD5  SA1    AP=FWA                                                  DBG=IDP  1603
                                                  SA2    A1+B1                                                   DBG=IDP  1604
                                                  IX3    X2-X1                                                   DBG=IDP  1605
                                                  SX6    X1+B1                                                   DBG=IDP  1606
                                                  MI     X3,IDP=MN   IF FINISHED                                 DBG=IDP  1607
                                                  SA6    A1                                                      DBG=IDP  1608
                                                  SA5    X1          (A5,X5) = WORD TO DEASSEMBLE                DBG=IDP  1609
                                                  SB4    60          (B4) = POSITION COUNTER                     DBG=IDP  1610
                                                                                                                 DBG=IDP  1611
                                         ST=COD6  RJ     DAZ         DEASSEMBLE INSTRUCTION                      DBG=IDP  1612
                                                  MI     X1,ST=COD5  IF INSTRUCTION FORCED UPPER                 DBG=IDP  1613
                                                  SB4    B4-B5                                                   DBG=IDP  1614
                                                  GT     B4,B0,ST=COD6  IF MORE INSTRUCTIONS TO GO IN THIS WORD  DBG=IDP  1615
                                                  EQ     ST=COD5                                                 DBG=IDP  1616
                                         ST=CON   SPACE  4,8                                                     DBG=IDP  1617
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    43
  
  
                                        *         HERE TO PROCESS *CONNECT FILE*.                                DBG=IDP  1618
                                                                                                                 DBG=IDP  1619
                                         ST=CON   ZR     X5,IDP=ER   IF EOS ENCOUTNTERED                         DBG0002   829
                                                  SA5    A5+B1                                                   DBG0002   830
                                                  SB4    B0          SET TO *CONNECT*                            DBG0002   831
                                                                                                                 DBG=IDP  1622
                                         ST=CON2  BSS    0                                                       DBG=IDP  1623
                                                                                                                 DBG=IDP  1624
                                         #UFT     IF     DEF,UFT=                                                DBG=IDP  1625
                                                  SB6    =XUFT=      (B6) = FWA OF USER FILE NAME TABLE          DBG=IDP  1626
                                                  MX0    7*CHAR                                                  DBG=IDP  1627
                                                  BX1    X0*X5       (X1) = 0LLFN                                DBG0002   832
                                                  RJ     SKT         SEARCH FOR FILE NAME                        DBG=IDP  1628
                                                  ZR     X2,IDP=ER   IF NO FIND                                  DBG=IDP  1629
                                                  SA1    X2          (A1,X1) = A + C OF 1ST WORD OF FET          DBG=IDP  1630
                                                  SX2    B4          SET TO *CONNECT/DISCONT*                    DBG=IDP  1631
                                                  RJ     CON         CONNECT/DISCONT FILE                        DBG=IDP  1632
                                                                                                                 DBG=IDP  1633
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  DBG=IDP  1634
                                                  MI     X1,IDP=ER   IF *CON* DETECTED ERROR...                  DBG=IDP  1635
                                         #OS3     ENDIF                                                          DBG=IDP  1636
                                         #UFT     ENDIF                                                          DBG=IDP  1637
                                                                                                                 DBG=IDP  1638
                                                  EQ     IDP=MN                                                  DBG=IDP  1639
                                         ST=DPC   SPACE  4,8                                                     DBG0002   833
                                        *         HERE TO PROCESS *DPC FWA,LWA,LEN*.                             DBG0002   834
                                                                                                                 DBG0002   835
                                         ST=DPC   BSS    0                                                       DBG0002   836
                                                  ZR     X5,IDP=ER   IF EOS ENCOUNTERED                          DBG0002   837
                                                  RJ     PAS         PARSE SUBEXPRESSION -- FWA                  DBG0002   838
                                                  ZR     X3,IDP=ER   IF 1ST EXPRESSION *FWA* IS NULL             DBG0002   839
                                                  SX6    X1                                                      DBG0002   840
                                                  SA6    AP=FWA                                                  DBG0002   841
                                                  MX1    0                                                       DBG0002   842
                                                  ZR     X5,ST=DPC2  IF FWA FOLLOWED BY EOS                      DBG0002   843
                                                  RJ     PAS         PARSE SUBEXPRESSION -- LWA                  DBG0002   844
                                                                                                                 DBG0002   845
                                         ST=DPC2  SX6    X1                                                      DBG0002   846
                                                  SA6    AP=LWA                                                  DBG0002   847
                                                  MX1    0                                                       DBG0002   848
                                                  ZR     X5,ST=DPC3  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS    DBG0002   849
                                                  RJ     PAS         PARSE SUBEXPRESSION -- LEN                  DBG0002   850
                                                                                                                 DBG0002   851
                                         ST=DPC3  SX6    X1                                                      DBG0002   852
                                                  BX4    X6                                                      DBG0002   853
                                                  SA6    AP=LEN                                                  DBG0002   854
                                                  SA2    AP=FWA                                                  DBG0002   855
                                                  SA3    AP=LWA                                                  DBG0002   856
                                                  RJ     DOD         DUMP CENTRAL MEMORY - OCTAL AND DPC         DBG0002   857
                                                  PL     B2,IDP=MN   IF FWA,LWA,AND LEN OK                       DBG0002   858
                                                  EQ     IDP=ER                                                  DBG0002   859
                                         ST=DSC   SPACE  4,8                                                     DBG=IDP  1640
                                        *         HERE TO PROCESS *DISCONT FILE*.                                DBG=IDP  1641
                                                                                                                 DBG=IDP  1642
                                         ST=DSC   ZR     X5,IDP=ER   IF EOS ENCOUNTERED                          DBG0002   860
                                                  SA5    A5+B1                                                   DBG0002   861
                                                  SB4    B1          SET TO *DISCONT*                            DBG=IDP  1644
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    44
  
  
                                                  EQ     ST=CON2     PROCESS *DISCONT*...                        DBG=IDP  1645
                                         ST=END   SPACE  4,8                                                     DBG=IDP  1646
                                        *         HERE TO PROCESS *END*.                                         DBG=IDP  1647
                                                                                                                 DBG=IDP  1648
                                         ST=END   BSS    0           ** END **                                   DBG=IDP  1649
                                                  PRIDP  (=C= BYE...=),,L.PRB                                    DBG=IDP  1650
                                                  WRITER =XF.IDO,,RCL                                            DBG=IDP  1651
                                                                                                                 DBG=IDP  1652
                                         ST=ENDW  SA1    IDPPREG     (X1) = PSEUDO P REGISTER                    DBG=IDP  1653
                                                  SA2    IDPPOS      (X2) = POS COUNTER                          DBG=IDP  1654
                                                  SA3    ST=ENDX                                                 DBG=IDP  1655
                                                  SA4    =46000460004600046000B                                  DBG=IDP  1656
                                                  SB4    X2                                                      DBG=IDP  1658
                                                  LX6    X3                                                      DBG=IDP  1659
                                                  SB6    60                                                      DBG=IDP  1660
                                                  SA5    ST=ENDZ     (X5) = *JP B0+0* PLUG                       DBG=IDP  1661
                                                  LE     B4,B0,*+4S15  IF BAD POS COUNTER, SHAZAM...             DBG=IDP  1662
                                                  LT     B4,B6,ST=END2 IF NEXT INSTRUCTION TO XEQ IS NOT UPPER,  DBG=IDP  1663
                                        *                              (I.E.STEP MODE LEFT US IN MIDDLE OF WORD) DBG=IDP  1664
                                                  NZ     X3,ST=END4  IF TO XEQ PREVIOUS CONTENTS OF BREAK ADDR   DBG=IDP  1665
                                        *                              AT *ST=ENDX*                              DBG=IDP  1666
                                                  LX6    X4                                                      DBG=IDP  1667
                                                  EQ     ST=END4                                                 DBG=IDP  1668
                                                                                                                 DBG=IDP  1669
                                         ST=END2  NZ     X3,ST=END3  IF TO XEQ PARTIAL WORD AT *ST=ENDX*         DBG=IDP  1670
                                                  SA3    X1          (X3) = PARTIALLY XEQ WORD AT ((IDPPREG))    DBG=IDP  1671
                                                  SX1    X1+B1       (X1) = RETURN ADDR                          DBG=IDP  1672
                                                                                                                 DBG=IDP  1673
                                        *         HERE BECAUSE STEP MODE LEFT US IN THE MIDDLE OF A WORD--       DBG=IDP  1674
                                        *           LEFT JUSTIFY REMAINING INSTRUCTION(S) TO XEQ AND NO-OP FILL. DBG=IDP  1675
                                                                                                                 DBG=IDP  1676
                                         ST=END3  MX0    1                                                       DBG=IDP  1677
                                                  SB7    B6-B4       (B7) = NR OF BITS ALREADY XEQ IN THIS WORD  DBG=IDP  1678
                                                  SB5    B4-B1                                                   DBG=IDP  1679
                                                  LX6    X3,B7       (X6) = INSTRUCTIONS TO XEQ-- LEFT JUSTIFIED DBG=IDP  1680
                                                  AX0    X0,B5       (X0) = EXTRACT MASK FOR INST TO XEQ         DBG=IDP  1681
                                                  BX6    X0*X6                                                   DBG=IDP  1682
                                                  BX4    -X0*X4                                                  DBG=IDP  1683
                                                  BX6    X6+X4       (X6) = INSTRUCTIONS TO XEQ W/ NO-OP FILL    DBG=IDP  1684
                                                                                                                 DBG=IDP  1685
                                        *         HERE TO SET UP *JP B0+RETURN ADDR*.                            DBG=IDP  1686
                                                                                                                 DBG=IDP  1687
                                         ST=END4  SA6    ST=ENDX                                                 DBG=IDP  1688
                                                  LX1    30                                                      DBG=IDP  1690
                                                  BX6    X5+X1       (X6) = 30/JP B0+RETURN ADDR, 30/NO-OP       DBG=IDP  1691
                                                  SA6    ST=ENDY                                                 DBG=IDP  1692
                                                  RJ     RSR=        RESTORE ORIGINAL REGISTERS                  DBG=IDP  1693
                                                                                                                 DBG=IDP  1694
                                         ST=ENDX  BSSZ   1           WORD TO EXECUTE BEFORE EXITING *IDP*        DBG=IDP  1695
                                        *                              IF AN IDP GENERATED BREAK, THEN IS PLUG-  DBG=IDP  1696
                                        *                              GED WITH PREVIOUS CONTENTS OF BREAK ADDR  DBG=IDP  1697
                                        *                              IF AN ASSEMBLED BREAK, THEN IS .ZR.       DBG=IDP  1698
                                        *                              SEE *BRK*.                                DBG=IDP  1699
                                                                                                                 DBG=IDP  1700
                                         ST=ENDY  BSSZ   1           PLUGGED WITH *JP B0+RETURN ADDR*            DBG=IDP  1701
                                                                                                                 DBG=IDP  1702
                                         ST=ENDZ  JP     B0+         PLUG VALUE                                  DBG=IDP  1703
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    45
  
  
                                         ST=FRZ   SPACE  4,8                                                     DBG0006    22
                                        *         HERE TO PROCESS *FREEZE*.                                      DBG0006    23
                                                                                                                 DBG0006    24
                                         ST=FRZ   BSS    0                                                       DBG0006    25
                                                  SA1    FW.IFR+/IFR/F.FRZ-RA.ORG                                DBG0006    26
                                                  SA2    =0LFRZ                                                  DBG0006    27
                                                  MX3    -18                                                     DBG0006    28
                                                  BX1    -X3*X1      CLEAR OLD LFN                               DBG0006    29
                                                  IX6    X1+X2       MERGE NEW LFN                               DBG0006    30
                                                  SA6    A1                                                      DBG0006    31
                                                  RJ     FRZ         FREEZE INTERACTIVE HOST                     DBG0006    32
                                                  EQ     IDP=MN                                                  DBG0006    33
                                         ST=JP    SPACE  4,8                                                     DBG=IDP  1704
                                        *         HERE TO PROCESS *JUMP ADDR*.                                   DBG=IDP  1705
                                                                                                                 DBG=IDP  1706
                                         ST=JP    BSS    0                                                       DBG0002   862
                                                  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          DBG0002   863
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  DBG=IDP  1708
                                                  ZR     X3,IDP=MN   IF ADDR IS NULL                             DBG=IDP  1709
                                                  SB2    X1                                                      DBG=IDP  1710
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1711
                                                  MI     B2,IDP.ER   IF ADDR IS BAD                              DBG=IDP  1712
                                                  SA1    =46000460004600046000B                                  DBG=IDP  1713
                                                  SX7    60                                                      DBG=IDP  1714
                                                  SA7    IDPPOS                                                  DBG=IDP  1715
                                                  SX6    B2                                                      DBG=IDP  1716
                                                  BX7    X1                                                      DBG=IDP  1717
                                                  SA6    IDPPREG                                                 DBG=IDP  1718
                                                  SA7    ST=ENDX                                                 DBG=IDP  1719
                                                  EQ     ST=END                                                  DBG=IDP  1720
                                         ST=OUT   SPACE  4,8                                                     DBG0002   864
                                        **        HERE TO PROCESS *OUTPUT I,B*.                                  DBG0002   865
                                                                                                                 DBG0002   866
                                         ST=OUT   ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          DBG0002   867
                                                  SB6    IDPKOUT     (B6) = FWA OF *OUTPUT* OPTIONS KEYWORD TBL  DBG0002   868
                                                  RJ     POL         PROCESS OPTIONS LIST ITEM                   DBG0002   869
                                                  SA1    B6+B7                                                   DBG0002   870
                                                  ZR     X3,ST=OUT   IF NULL PARAMETER, IGNORE...                DBG0002   871
                                                  SB5    X1          (B5) = OPTIONS PROCESSOR ADDR               DBG0002   872
                                                  MX0    1                                                       DBG0002   873
                                                  SA2    IDPFLG                                                  DBG0002   874
                                                  BX6    -X6*X0      (X6) = +0 IF -OPTION, OR 1S59 IF +OPTION    DBG0002   875
                                                  JP     B5+                                                     DBG0002   876
                                                                                                                 DBG0002   877
                                        *         HERE IF *OUTPUT I* OR *OUTPUT -I*.                             DBG0002   878
                                                                                                                 DBG0002   879
                                         ST=OUT2  LX0    IDF.IDOP-59                                             DBG0002   880
                                                  BX2    -X0*X2      CLEAR EXISTING FIELD                        DBG0002   881
                                                  LX6    IDF.IDOP-59                                             DBG0002   882
                                                  BX6    X2+X6                                                   DBG0002   883
                                                  SA6    A2                                                      DBG0002   884
                                                  EQ     ST=OUT                                                  DBG0002   885
                                                                                                                 DBG0002   886
                                        *         HERE IF *OUTPUT B* OR *OUTPUT -B*.                             DBG0002   887
                                                                                                                 DBG0002   888
                                         ST=OUT3  LX0    IDF.BDOP-59                                             DBG0002   889
                                                  BX2    -X0*X2      CLEAR EXISTING FIELD                        DBG0002   890
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    46
  
  
                                                  LX6    IDF.BDOP-59                                             DBG0002   891
                                                  BX6    X2+X6                                                   DBG0002   892
                                                  SA6    A2                                                      DBG0002   893
                                                  EQ     ST=OUT                                                  DBG0002   894
                                                                                                                 DBG0002   895
                                        *         HERE IF *OUTPUT BE* OR *OUTPUT -BE*.                           DBG0002   896
                                                                                                                 DBG0002   897
                                         ST=OUT4  LX0    IDF.BKOP-59                                             DBG0002   898
                                                  BX2    -X0*X2      CLEAR EXISTING FIELD                        DBG0002   899
                                                  LX6    IDF.BKOP-59                                             DBG0002   900
                                                  BX6    X2+X6       MERGE NEW BKO                               DBG0002   901
                                                  SA6    A2                                                      DBG0002   902
                                                  EQ     ST=OUT                                                  DBG0002   903
                                                                                                                 DBG0002   904
                                        *         HERE IF *OUTPUT IE* OR *OUTPUT -IE*.                           DBG0002   905
                                                                                                                 DBG0002   906
                                         ST=OUT5  LX0    IDF.IKOP-59                                             DBG0002   907
                                                  BX2    -X0*X2      CLEAR EXISTING FIELD                        DBG0002   908
                                                  LX6    IDF.IKOP-59                                             DBG0002   909
                                                  BX6    X2+X6       MERGE NEW IKO                               DBG0002   910
                                                  SA6    A2                                                      DBG0002   911
                                                  EQ     ST=OUT                                                  DBG0002   912
                                         ST=REG   SPACE  4,8                                                     DBG=IDP  1721
                                        *         HERE TO PROCESS *REG R1,R2,...,RN*.                            DBG=IDP  1722
                                                                                                                 DBG=IDP  1723
                                         ST=REG   BSS    0                                                       DBG0002   913
                                                  SA0    A5          INITIALIZE (A0) = ADDR OF CURRENT TOKEN     DBG=IDP  1725
                                                  NZ     X5,ST=REG2  IF *REG* NOT FOLLOWED BY EOS                DBG0002   914
                                                  RJ     DAR         DUMP ALL REGISTERS                          DBG=IDP  1727
                                                  EQ     IDP=MN                                                  DBG=IDP  1728
                                                                                                                 DBG=IDP  1729
                                        *         HERE FOR SELECTED REGISTER DUMP.                               DBG=IDP  1730
                                                                                                                 DBG=IDP  1731
                                         ST=REG2  SA0    A0+B1                                                   DBG=IDP  1732
                                                  SA5    A0                                                      DBG=IDP  1733
                                                  ZR     X5,IDP=MN   IF AN EOS ENCOUNTERED                       DBG=IDP  1735
                                                                                                                 DBG=IDP  1736
                                                  SX6    X5-O.SEP                                                DBG0002   915
                                                  SX7    X5-O.CONS                                               DBG=IDP  1738
                                                  SA4    IDP0TR                                                  DBG=IDP  1739
                                                  ZR     X6,ST=REG2  IF SEPARATOR TOKEN                          DBG=IDP  1740
                                                  ZR     X7,ST=REG4  IF CONSTANT TOKEN                           DBG=IDP  1741
                                                                                                                 DBG=IDP  1742
                                        *         HERE IF A NAME TOKEN, CHECK FOR REGISTER NAME.                 DBG=IDP  1743
                                                                                                                 DBG=IDP  1744
                                                  LX5    CHAR                                                    DBG=IDP  1745
                                                  MX0    -CHAR                                                   DBG=IDP  1746
                                                  BX6    -X0*X5      (X6) = REGISTER TYPE (BAX)                  DBG=IDP  1747
                                                  SX4    B0          (X4) = 0TR, WHERE T=0 (B REG)               DBG=IDP  1748
                                                  SX1    X6-1RB                                                  DBG=IDP  1749
                                                  SX2    X6-1RA                                                  DBG=IDP  1750
                                                  SX3    X6-1RX                                                  DBG=IDP  1751
                                                  ZR     X1,ST=REG4  IF B REGISTER                               DBG=IDP  1752
                                                  SX4    010B        (X4) = 0TR, WHERE T=1 (A REG)               DBG=IDP  1753
                                                  ZR     X2,ST=REG4  IF A REGISTER                               DBG=IDP  1754
                                                  SX4    020B        (X4) = 0TR, WHERE T=2 (X REG)               DBG=IDP  1755
                                                  ZR     X3,ST=REG4  IF X REGISTER                               DBG=IDP  1756
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    47
  
  
                                                  EQ     IDP=ER                                                  DBG=IDP  1757
                                                                                                                 DBG=IDP  1758
                                         ST=REG4  LX5    CHAR                                                    DBG=IDP  1759
                                                  MX0    -CHAR                                                   DBG=IDP  1760
                                                  BX6    -X0*X5                                                  DBG=IDP  1761
                                                  MX1    1R7-1R0+1                                               DBG=IDP  1762
                                                  LX1    -1R0        (X1) = (0-7) SHIFT MASK                     DBG=IDP  1763
                                                  SB3    X6          (B3) = REGISTER NR (0-7)                    DBG=IDP  1764
                                                  LX7    X1,B3                                                   DBG=IDP  1765
                                                  LX5    5*CHAR                                                  DBG=IDP  1766
                                                  PL     X7,IDP=ER   IF NOT (0-7), ERROR...                      DBG=IDP  1767
                                                  MX0    -5*CHAR                                                 DBG=IDP  1768
                                                  BX7    -X0*X5                                                  DBG=IDP  1769
                                                  NZ     X7,IDP=ER   IF REST OF CHARS NON-ZERO, NOT A REGISTER   DBG=IDP  1770
                                                  SB6    B3-1R0      (B6) = REGISTER NR IN BINARY                DBG=IDP  1771
                                                  MX0    60-3                                                    DBG=IDP  1772
                                                  BX7    X0*X4       STRIP OLD REGISTER NR                       DBG=IDP  1773
                                                  SX6    X7+B6       (X6) = NEW 0TR                              DBG=IDP  1774
                                                  SB4    X6                                                      DBG=IDP  1775
                                                  SA6    IDP0TR                                                  DBG=IDP  1776
                                                  SB7    020B                                                    DBG=IDP  1777
                                                  GE     B4,B7,ST=REG5     IF DUMPING X REGISTER                 DBG=IDP  1778
                                                  RJ     DAB         DUMP -A- OR -B- REGISTER                    DBG=IDP  1779
                                                  EQ     ST=REG2                                                 DBG=IDP  1780
                                                                                                                 DBG=IDP  1781
                                         ST=REG5  RJ     DUX         DUMP -X- REGISTER                           DBG=IDP  1782
                                                  EQ     ST=REG2                                                 DBG=IDP  1783
                                         ST=RES   SPACE  4,8                                                     DBG=IDP  1784
                                        *         HERE TO PROCESS *RESET*.                                       DBG=IDP  1785
                                                                                                                 DBG=IDP  1786
                                         ST=RES   SB6    IDPBA                                                   DBG=IDP  1787
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- BREAK ADDRESSES        DBG=IDP  1788
                                                  SB6    IDPSET                                                  DBG=IDP  1789
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- SET NAMES              DBG=IDP  1790
                                                  RJ     IST         (RE)INITIALIZE DEFAULT *SET* NAMES          DBG=IDP  1791
                                                  EQ     IDP=MN                                                  DBG=IDP  1792
                                         ST=SET   SPACE  4,8                                                     DBG=IDP  1793
                                        *         HERE TO PROCESS *SET NAME,ADDR*.                               DBG=IDP  1794
                                                                                                                 DBG=IDP  1795
                                         ST=SET   ZR     X5,ST=SET3  IF EOS ENCOUNTERED                          DBG0002   916
                                                  SA5    A5+B1       (X5) = 42/0LNAME,18/O.VAR                   DBG0002   917
                                                  SX6    X5-O.VAR                                                DBG=IDP  1797
                                                  NZ     X6,IDP=ER   IF NOT A NAME TOKEN                         DBG0002   918
                                                  MX0    7*CHAR                                                  DBG=IDP  1799
                                                  BX7    X0*X5                                                   DBG=IDP  1800
                                                  SA7    IDPNAM      SAVE 0LNAME                                 DBG=IDP  1801
                                                  SA5    A5+B1                                                   DBG=IDP  1802
                                                  RJ     PAS         PARSE SUBEXPRESSION -- ADDR                 DBG=IDP  1803
                                                  MX0    7*CHAR                                                  DBG=IDP  1804
                                                  SB6    IDPSET      (B6) = FWA OF *SET* TABLE                   DBG=IDP  1805
                                                  BX4    -X0*X1      (X4) = 42/0,18/VALUE OF *NAME*              DBG=IDP  1806
                                                  SA1    IDPNAM                                                  DBG=IDP  1807
                                                  RJ     SKT         SEARCH *SET* TABLE FOR NAME                 DBG=IDP  1808
                                                  IX6    X1+X4       (X6) = 42/0LNAME, 18/VALUE OF NAME          DBG=IDP  1809
                                                  ZR     X2,ST=SET2  IF NO FIND                                  DBG=IDP  1810
                                                  SA6    A2                                                      DBG=IDP  1811
                                                  EQ     IDP=MN                                                  DBG=IDP  1812
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    48
  
  
                                                                                                                 DBG=IDP  1813
                                         ST=SET2  RJ     ADZ         ADD A WORD TO IDP TABLE                     DBG=IDP  1814
                                                  EQ     IDP=MN                                                  DBG=IDP  1815
                                                                                                                 DBG=IDP  1816
                                        *         HERE TO LIST *SET* TABLE.                                      DBG=IDP  1817
                                                                                                                 DBG=IDP  1818
                                         ST=SET3  SA5    IDPSET                                                  DBG=IDP  1819
                                                  RJ     LST         LIST SET TABLE                              DBG=IDP  1820
                                                  EQ     IDP=MN                                                  DBG=IDP  1821
                                         ST=SNP   SPACE  4,8                                                     DBG=IDP  1822
                                        *         HERE TO PROCESS *SNAP FWA,LWA,LEN*.                            DBG=IDP  1823
                                                                                                                 DBG=IDP  1824
                                         ST=SNP   BSS    0                                                       DBG0002   919
                                                  ZR     X5,IDP=ER   IF EOS ENCOUNTERED                          DBG0002   920
                                                  RJ     PAS         PARSE SUBEXPRESSION -- FWA                  DBG=IDP  1826
                                                  ZR     X3,IDP.ER   IF 1ST EXPRESSION *FWA* IS NULL             DBG=IDP  1827
                                                  SX6    X1                                                      DBG=IDP  1828
                                                  SA6    AP=FWA                                                  DBG=IDP  1829
                                                  MX1    0                                                       DBG=IDP  1830
                                                  ZR     X5,ST=SNP2  IF FWA FOLLOWED BY EOS                      DBG=IDP  1831
                                                  RJ     PAS         PARSE SUBEXPRESSION -- LWA                  DBG=IDP  1832
                                                                                                                 DBG=IDP  1833
                                         ST=SNP2  SX6    X1                                                      DBG=IDP  1834
                                                  SA6    AP=LWA                                                  DBG=IDP  1835
                                                  MX1    0                                                       DBG=IDP  1836
                                                  ZR     X5,ST=SNP3  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS    DBG=IDP  1837
                                                  RJ     PAS         PARSE SUBEXPRESSION -- LEN                  DBG=IDP  1838
                                                                                                                 DBG=IDP  1839
                                         ST=SNP3  SX6    X1                                                      DBG=IDP  1840
                                                  BX4    X6                                                      DBG=IDP  1841
                                                  SA6    AP=LEN                                                  DBG=IDP  1842
                                                  SA2    AP=FWA                                                  DBG=IDP  1843
                                                  SA3    AP=LWA                                                  DBG=IDP  1844
                                                  RJ     DCM         DUMP CENTRAL MEMORY                         DBG=IDP  1845
                                                  PL     B2,IDP=MN   IF FWA,LWA,AND LEN OK                       DBG=IDP  1846
                                                  EQ     IDP=ER                                                  DBG=IDP  1847
                                         ST=STO   SPACE  4,8                                                     DBG=IDP  1848
                                        *         HERE TO PROCESS *STORE ADDR,C1,C2,C3,C4*.                      DBG=IDP  1849
                                                                                                                 DBG=IDP  1850
                                         ST=STO   BSS    0                                                       DBG0002   921
                                                  ZR     X5,IDP=ER   IF EOS ENCOUNTERED                          DBG0002   922
                                                  RJ     PAS         PARSE SUBEXPRESSION -- ADDR TO STORE        DBG=IDP  1852
                                                  ZR     X3,IDP=ER   IF 1ST EXPRESSION *ADDR* IS NULL            DBG=IDP  1853
                                                  SX6    X1                                                      DBG=IDP  1854
                                                  SB2    X1                                                      DBG=IDP  1855
                                                  SA6    IDPSTA      SAVE STORE ADDR                             DBG=IDP  1856
                                                  RJ     CHK         CHECK CM ADDRESS -- STORE ADDR              DBG=IDP  1857
                                                  MI     B2,IDP=ER   IF ADDR IS BAD                              DBG=IDP  1858
                                                  MX6    0                                                       DBG=IDP  1859
                                                  SA6    A6+B1       CLEAR (IDPSTC) = NEW VALUE TO STORE         DBG=IDP  1860
                                                  SA6    A6+B1       CLEAR (IDPSTM) = NULL PARAMETER MASK        DBG=IDP  1861
                                                  ZR     X5,ST=STO4  IF STORE ADDR FOLLOWED BY EOS               DBG=IDP  1862
                                                                                                                 DBG=IDP  1863
                                         ST=STO2  RJ     PAS         PARSE SUBEXPRESSION -- C-N-                 DBG=IDP  1864
                                                  SA2    IDPSTC      (X2) = CURRENT VALUE TO BE STORED           DBG=IDP  1865
                                                  SA4    A2+B1       (X4) = CURRENT NULL PARAMETER MASK          DBG=IDP  1866
                                                  MX0    -15                                                     DBG=IDP  1867
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    49
  
  
                                                  LX2    15                                                      DBG=IDP  1868
                                                  LX4    15                                                      DBG=IDP  1869
                                                  BX6    X2+X1                                                   DBG=IDP  1870
                                                  LX7    X4                                                      DBG=IDP  1871
                                                  SA6    A2                                                      DBG=IDP  1872
                                                  NZ     X3,ST=STO3  IF C-N- NOT NULL                            DBG=IDP  1873
                                                  BX7    -X0+X4                                                  DBG=IDP  1874
                                                                                                                 DBG=IDP  1875
                                         ST=STO3  SA7    A4                                                      DBG=IDP  1876
                                                  NZ     X5,ST=STO2  IF NOT FINISHED ASSEMBLING STORE VALUE      DBG=IDP  1877
                                                                                                                 DBG=IDP  1878
                                        *         HERE IF FINISHED ASSEMBLING STORE VALUE.                       DBG=IDP  1879
                                                                                                                 DBG=IDP  1880
                                         ST=STO4  SA1    IDPSTA      (X1) = STORE ADDR                           DBG=IDP  1881
                                                  SA2    A1+B1       (X2) = NEW ASSEMBLED STORE VALUE            DBG=IDP  1882
                                                  SA3    A2+B1       (X3) = NULL PARAMETER MASK                  DBG=IDP  1883
                                                  SA1    X1          (X1) = OLD CONTENTS OF STORE ADDR           DBG=IDP  1884
                                                  BX6    X3*X1                                                   DBG=IDP  1885
                                                  BX7    X2+X6       (X7) = NEW CONTENTS OF STORE ADDR           DBG=IDP  1886
                                                  SA7    A1          NEW REPLACES OLD                            DBG=IDP  1887
                                                  SA7    A2                                                      DBG=IDP  1888
                                                  RJ     =XWOD       CONVERT A WORD OF BINARY TO OCTAL DPC--OLD  DBG=IDP  1889
                                                  SA6    IDPMSG4+1                                               DBG=IDP  1890
                                                  SA7    A6+B1                                                   DBG=IDP  1891
                                                  SA1    IDPSTC      (X1) = NEW CONTENTS OF STORE ADDR           DBG=IDP  1892
                                                  RJ     =XWOD       CONVERT A WORD OF BINARY TO OCTAL DPC--NEW  DBG=IDP  1893
                                                  SA6    IDPMSG5+1                                               DBG=IDP  1894
                                                  SA7    A6+B1                                                   DBG=IDP  1895
                                                  PRIDP  IDPMSG4,4                                               DBG=IDP  1896
                                                  PRIDP  IDPMSG5,4                                               DBG=IDP  1897
                                                  EQ     IDP=MN                                                  DBG=IDP  1898
                                         ST=STP   SPACE  4,8                                                     DBG=IDP  1899
                                        *         HERE TO PROCESS *STEP L,RJ*,                                   DBG=IDP  1900
                                        *                      OR *STPL ADDR1,L,RJ* FORM,                        DBG=IDP  1901
                                        *                      OR *STEQ ADDR1,ADDR2,L,RJ* FORM.                  DBG=IDP  1902
                                                                                                                 DBG=IDP  1903
                                         ST=STP   SX6    B7+IDPKEY-IDPKST  (X6) = STEP TYPE CODE (XTC)           DBG=IDP  1904
                                                  SA6    IDPXTC                                                  DBG=IDP  1905
                                                  ZR     X6,ST=STP5  IF *STEP L,RJ* FORM                         DBG=IDP  1907
                                                  ZR     X5,ST=STP1  IF EOS ENCOUNTERED                          DBG0002   923
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR1                 DBG=IDP  1908
                                                  NZ     X3,ST=STP2  IF ADDR1 NOT NULL                           DBG0002   924
                                                                                                                 DBG0002   925
                                         ST=STP1  SX1    0           (X1) = DEFAULT ADDR1                        DBG0002   926
                                                                                                                 DBG=IDP  1911
                                         ST=STP2  SB2    X1                                                      DBG=IDP  1912
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1913
                                                  MI     B2,IDP=ER   IF ADDR1 IS BAD                             DBG=IDP  1914
                                                  SX6    B2                                                      DBG=IDP  1915
                                                  MX3    0                                                       DBG=IDP  1916
                                                  SA6    IDPXA1                                                  DBG=IDP  1917
                                                  SA2    IDPXTC                                                  DBG=IDP  1918
                                                  SX7    X2-XTC=EQ                                               DBG=IDP  1919
                                                  MI     X7,ST=STP3  IF THIS IS *STPL ADDR1,L,RJ* FORM           DBG=IDP  1920
                                                                                                                 DBG=IDP  1923
                                        *         ASSEMBLE ADDR2.                                                DBG=IDP  1924
                                                                                                                 DBG=IDP  1925
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    50
  
  
                                                  ZR     X5,ST=STP3  IF ADDR1 FOLLOWED BY EOS                    DBG=IDP  1926
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR2                 DBG=IDP  1927
                                                                                                                 DBG=IDP  1928
                                         ST=STP3  NZ     X3,ST=STP4  IF ADDR2 NOT NULL                           DBG=IDP  1929
                                                  SA1    IDPXA1      (X1) = DEFAULT ADDR2                        DBG=IDP  1930
                                                                                                                 DBG=IDP  1931
                                         ST=STP4  SB2    X1                                                      DBG=IDP  1932
                                                  SX6    B2                                                      DBG=IDP  1933
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1934
                                                  MI     B2,IDP=ER   IF ADDR2 IS BAD                             DBG=IDP  1935
                                                  SA6    IDPXA2                                                  DBG=IDP  1936
                                                                                                                 DBG=IDP  1937
                                        *         HERE TO PROCESS *L,RJ* OPTIONS LIST.                           DBG=IDP  1938
                                                                                                                 DBG=IDP  1939
                                         ST=STP5  ZR     X5,ST=STP6  IF EOS ENCOUNTERED                          DBG=IDP  1940
                                                  SB6    IDPKSTO     (B6) = FWA OF STEP OPTIONS KEYWORD TABLE    DBG=IDP  1941
                                                  RJ     POL         PROCESS OPTIONS LIST                        DBG=IDP  1942
                                                  ZR     X3,ST=STP5  IF NULL PARAMETER                           DBG=IDP  1943
                                                  SA7    IDPXOP+B7                                               DBG=IDP  1944
                                                  EQ     ST=STP5                                                 DBG=IDP  1945
                                                                                                                 DBG=IDP  1946
                                        *         HERE TO SET UP FOR ACTUAL STEP.                                DBG=IDP  1947
                                                                                                                 DBG=IDP  1948
                                         ST=STP6  SA1    IDPXTC                                                  DBG=IDP  1949
                                                  SA2    IDPXA2                                                  DBG=IDP  1950
                                                  MX6    0                                                       DBG=IDP  1951
                                                  SX3    X1-XTC=NR                                               DBG=IDP  1952
                                                  BX7    X2                                                      DBG=IDP  1953
                                                  SA6    IDPXRJ      SET TO *AT LEVEL 0 NOW*                     DBG=IDP  1954
                                                  NZ     X3,ST=STP7  IF NOT *STNR NR,L,RJ*                       DBG=IDP  1955
                                                  SA7    IDPXA1      (RE)SET STEP COUNT                          DBG=IDP  1956
                                                                                                                 DBG=IDP  1957
                                         ST=STP7  SA1    IDPXOL      (X1) = /L/ OPTION FLAG                      DBG=IDP  1958
                                                  SA2    A1+B1       (X2) = /RJ/ OPTION FLAG                     DBG=IDP  1959
                                                  SX6    B1          SET TO *LIST ON*                            DBG=IDP  1960
                                                  SA3    IDPXRJ                                                  DBG=IDP  1961
                                                  NZ     X2,ST=STP7A IF /RJ/ TRACING ON                          DBG=IDP  1962
                                                  ZR     X3,ST=STP7A IF AT LEVEL 0 (I.E. NO ACTIVE *RJ*)         DBG=IDP  1963
                                                  SX6    B0          SET TO *LIST OFF*                           DBG=IDP  1964
                                                                                                                 DBG=IDP  1965
                                         ST=STP7A BX7    X6*X1                                                   DBG=IDP  1966
                                                  SA7    IDPXLST                                                 DBG=IDP  1967
                                                                                                                 DBG=IDP  1968
                                        *         HERE TO CHECK STEP CONDITIONS.                                 DBG=IDP  1969
                                                                                                                 DBG=IDP  1970
                                         ST=STP8  SA3    IDPXTC      (X3) = STEP TYPE CODE                       DBG=IDP  1971
                                                  SA1    IDPXA1      (X1) = A1                                   DBG=IDP  1972
                                                  SA2    A1+B1       (X2) = A2                                   DBG=IDP  1973
                                                  SB5    X3                                                      DBG=IDP  1974
                                                  SX6    X3-XTC=NR                                               DBG=IDP  1975
                                                  SX0    X3-XTC=AR                                               DBG=IDP  1976
                                                  SX7    X3-XTC=RNG                                              DBG=IDP  1977
                                                  ZR     X3,ST=STP9  IF *STEP L,RJ*                              DBG=IDP  1978
                                                  ZR     X6,ST=STP10 IF *STNR NR,L,RJ*                           DBG=IDP  1979
                                                  ZR     X0,ST=STP9  IF *STAR ADDR1,ADDR2,L,RJ*                  DBG=IDP  1980
                                                  ZR     X7,ST=STP12 IF *STRANGE ADDR1,ADDR2,L,RJ*               DBG=IDP  1981
                                                                                                                 DBG=IDP  1982
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    51
  
  
                                                  SA1    X1          (X1) = C1                                   DBG=IDP  1983
                                                  SA2    X2          (X2) = C2                                   DBG=IDP  1984
                                                  RJ     CBC         CHECK STEP CONDITION                        DBG=IDP  1985
                                                  ZR     B6,IDP=MN   IF CONDITION NOT SATISFIED                  DBG=IDP  1986
                                                                                                                 DBG=IDP  1987
                                         ST=STP9  RJ     STP         STEP ONE INSTRUCTION                        DBG=IDP  1988
                                                  SA1    IDPXTC                                                  DBG=IDP  1989
                                                  SA2    IDPXRJ                                                  DBG=IDP  1990
                                                  SA3    IDPXORJ                                                 DBG=IDP  1991
                                                  SX6    X1-XTC=AR                                               DBG=IDP  1992
                                                  ZR     X6,ST=STP9A IF *STAR ADDR1,ADDR2,L,RJ*                  DBG=IDP  1993
                                                  NZ     X1,ST=STP7  IF NOT *STEP L,RJ*                          DBG=IDP  1994
                                                                                                                 DBG=IDP  1995
                                        *         HERE IF *STEP L,RJ*.                                           DBG=IDP  1996
                                                                                                                 DBG=IDP  1997
                                                  NZ     X3,IDP=MN   IF /RJ/ SELECTED                            DBG=IDP  1998
                                                  ZR     X2,IDP=MN   IF AT LEVEL 0                               DBG=IDP  1999
                                                  EQ     ST=STP7                                                 DBG=IDP  2000
                                                                                                                 DBG=IDP  2001
                                        *         HERE TO PROCESS *STAR ADDR1,ADDR2,L,RJ*.                       DBG=IDP  2002
                                                                                                                 DBG=IDP  2003
                                         ST=STP9A SA1    IDPXAR                                                  DBG=IDP  2004
                                                  SA2    IDPXA1                                                  DBG=IDP  2005
                                                  SA3    IDPXA2                                                  DBG=IDP  2006
                                                  SA4    IDPPREG                                                 DBG=IDP  2007
                                                  IX6    X1-X2                                                   DBG=IDP  2008
                                                  IX7    X3-X1                                                   DBG=IDP  2009
                                                  MI     X6,ST=STP7  IF ADDR BELOW LOWER LIMIT                   DBG=IDP  2010
                                                  MI     X7,ST=STP7  IF ADDR ABOVE UPPER LIMIT                   DBG=IDP  2011
                                                  EQ     IDP=MN                                                  DBG=IDP  2012
                                                                                                                 DBG=IDP  2013
                                        *         HERE TO PROCESS *STNR NR,L,RJ*.                                DBG=IDP  2014
                                                                                                                 DBG=IDP  2015
                                         ST=STP10 SA2    IDPXORJ                                                 DBG=IDP  2016
                                                  SA3    IDPXRJ                                                  DBG=IDP  2017
                                                  SX6    X1-1                                                    DBG=IDP  2018
                                                  NZ     X2,ST=STP11 IF /RJ/ SELECTED                            DBG=IDP  2019
                                                  NZ     X3,ST=STP9  IF NOT AT LEVEL 0                           DBG=IDP  2020
                                                                                                                 DBG=IDP  2021
                                         ST=STP11 MI     X6,IDP=MN   IF NO MORE INSTRUCTIONS TO STEP             DBG=IDP  2022
                                                  SA6    A1                                                      DBG=IDP  2023
                                                  EQ     ST=STP9                                                 DBG=IDP  2024
                                                                                                                 DBG=IDP  2025
                                        *         HERE TO PROCESS *STRANGE ADDR1,ADDR2,L,RJ*.                    DBG=IDP  2026
                                                                                                                 DBG=IDP  2027
                                         ST=STP12 SA4    IDPPREG                                                 DBG=IDP  2028
                                                  IX6    X4-X1                                                   DBG=IDP  2029
                                                  IX7    X2-X4                                                   DBG=IDP  2030
                                                  MI     X6,IDP=MN   IF P BELOW LOWER RANGE                      DBG=IDP  2031
                                                  MI     X7,IDP=MN   IF P ABOVE UPPER RANGE                      DBG=IDP  2032
                                                  EQ     ST=STP9                                                 DBG=IDP  2033
                                         ST=UBK   SPACE  4,8                                                     DBG=IDP  2034
                                        *         HERE TO PROCESS *UNBREAK ADDR1,...,ADDRN*.                     DBG0002   927
                                                                                                                 DBG=IDP  2036
                                         ST=UBK   BSS    0                                                       DBG0002   928
                                                  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          DBG0002   929
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  DBG=IDP  2038
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    52
  
  
                                                  ZR     X3,ST=UBK   IF ADDR IS NULL                             DBG0002   930
                                                  SB6    IDPBA                                                   DBG=IDP  2040
                                                  MX0    -18                                                     DBG=IDP  2041
                                                  BX0    -X0                                                     DBG=IDP  2042
                                                  RJ     SKT         SEARCH FOR *ADDR*                           DBG=IDP  2043
                                                  ZR     X2,IDP=ER   IF NO FIND                                  DBG0002   931
                                                  SB6    B7+B7                                                   DBG=IDP  2045
                                                  SA4    IDPBC+B6                                                DBG=IDP  2046
                                                  MX6    -1                                                      DBG=IDP  2047
                                                  BX7    X4                                                      DBG=IDP  2048
                                                  SA6    A2          SET TO *THIS ENTRY IS AVAILABLE*            DBG=IDP  2049
                                                  SA7    X2          RESTORE PREVIOUS CONTENTS OF BREAK ADDR     DBG=IDP  2050
                                                  EQ     ST=UBK      CONTINUE...                                 DBG0002   932
                                         ST=UST   SPACE  4,8                                                     DBG=IDP  2052
                                        *         HERE TO PROCESS *UNSET NAME1,...,NAMEN*.                       DBG=IDP  2053
                                                                                                                 DBG=IDP  2054
                                         ST=UST   BSS    0                                                       DBG0002   933
                                                                                                                 DBG=IDP  2056
                                         ST=UST2  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          DBG0002   934
                                                  SA5    A5+B1                                                   DBG0002   935
                                                  NO                                                             DBG=IDP  2058
                                                  SX6    X5-O.VAR                                                DBG=IDP  2060
                                                  NZ     X6,ST=UST2  IF NOT A NAME TOKEN                         DBG=IDP  2061
                                                  SB6    IDPSET                                                  DBG=IDP  2062
                                                  MX0    7*CHAR                                                  DBG=IDP  2063
                                                  BX1    X5                                                      DBG=IDP  2064
                                                  RJ     SKT         SEARCH FOR NAME                             DBG=IDP  2065
                                                  ZR     X2,ST=UST2  IF NO FIND                                  DBG=IDP  2066
                                                  SX6    -B1                                                     DBG=IDP  2067
                                                  SA6    A2          SET TO *THIS ENTRY IS AVAILABLE*            DBG=IDP  2068
                                                  EQ     ST=UST2                                                 DBG=IDP  2069
                                         ST=WHR   SPACE  4,8                                                     DBG=IDP  2070
                                        *         HERE TO PROCESS *WHERE ADDR1,...,ADDRN*.                       DBG=IDP  2071
                                                                                                                 DBG=IDP  2072
                                         ST=WHR   BSS    0                                                       DBG0002   936
                                                  ZR     X5,ST=WHR2A IF EOS ENCOUNTERED                          DBG0002   937
                                                                                                                 DBG=IDP  2074
                                         ST=WHR2  RJ     PAS         PARSE SUBEXPRESSION                         DBG=IDP  2075
                                                  NZ     X3,ST=WHR3  IF ADDR NOT NULL                            DBG=IDP  2076
                                                                                                                 DBG0002   938
                                         ST=WHR2A SA1    IDPPREG                                                 DBG0002   939
                                                                                                                 DBG=IDP  2078
                                         ST=WHR3  MX0    -18                                                     DBG=IDP  2079
                                                  BX1    -X0*X1                                                  DBG=IDP  2080
                                                  LX0    X1          SAVE (X1) = ADDR                            DBG=IDP  2081
                                                  RJ     COD         CONVERT BINARY TO OCTAL DPC                 DBG=IDP  2082
                                                  LX6    9*CHAR-6*CHAR                                           DBG=IDP  2083
                                                  BX1    X0                                                      DBG=IDP  2084
                                                  SA6    SNAPLNE                                                 DBG=IDP  2085
                                                                                                                 DBG=IDP  2086
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  2087
                                                  SB7    ST=WHR4     (B7) = RETURN ADDRESS FOR *FRA=*            DBG=IDP  2088
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  2089
                                                                                                                 DBG=IDP  2090
                                         ST=WHR4  SA6    A6+B1                                                   DBG=IDP  2091
                                                  SA7    A6+B1                                                   DBG=IDP  2092
                                                                                                                 DBG=IDP  2093
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    53
  
  
                                         #FRA     ELSE                                                           DBG=IDP  2094
                                                  MX6    0                                                       DBG=IDP  2095
                                                  SA6    A6+B1       MARK EOL                                    DBG=IDP  2096
                                         #FRA     ENDIF                                                          DBG=IDP  2097
                                                                                                                 DBG=IDP  2098
                                                  PRIDP  SNAPLNE                                                 DBG=IDP  2099
                                                  NZ     X5,ST=WHR2  IF NOT EOS TOKEN                            DBG=IDP  2100
                                                  EQ     IDP=MN                                                  DBG=IDP  2101
                                         ST=XEQ   SPACE  4,8                                                     DBG=IDP  2102
                                        *         HERE TO PROCESS *XEQ*.                                         DBG=IDP  2103
                                                                                                                 DBG=IDP  2104
                                         ST=XEQ   =      ST=STP6                                                 DBG=IDP  2105
                                         ST=XFR   SPACE  4,8                                                     DBG0002   940
                                        *         HERE TO PROCESS *XFER NR*.                                     DBG0002   941
                                                                                                                 DBG0002   942
                                         ST=XFR   ZR     X5,ST=XFR1  IF EOS ENCOUNTERED                          DBG0002   943
                                                  RJ     PAS         PARSE SUBEXPRESSION -- NR                   DBG0002   944
                                                  NZ     X3,ST=XFR2  IF NR NOT NULL                              DBG0002   945
                                                                                                                 DBG0002   946
                                         ST=XFR1  SX6    L.XFT       (X6) = DEFAULT NR = ALL ENTRIES             DBG0002   947
                                                                                                                 DBG0002   948
                                         ST=XFR2  RJ     LXT         LIST XFER TABLE                             DBG0002   949
                                                  EQ     IDP=MN                                                  DBG0002   950
                                         ST=XNR   SPACE  4,8                                                     DBG0002   951
                                        *         HERE TO PROCESS *STNR,NR,L,RJ*.                                DBG0002   952
                                                                                                                 DBG0002   953
                                         ST=XNR   SX6    XTC=NR                                                  DBG0002   954
                                                  SA6    IDPXTC                                                  DBG0002   955
                                                  ZR     X5,ST=STP5  IF EOS ENCOUNTERED                          DBG0002   956
                                                  RJ     PAS         PARSE SUBEXPRESSION-- NR                    DBG0002   957
                                                  ZR     X3,ST=STP5  IF NR IS NULL                               DBG0002   958
                                                  SA6    IDPXA1                                                  DBG0002   959
                                                  SA6    IDPXA2                                                  DBG0002   960
                                                  EQ     ST=STP5     REJOIN NORMAL STEP PROCESSING FLOW...       DBG0002   961
                                         ADZ      SPACE  4,8                                                     DBG=IDP  2106
                                        **        ADZ - ADD A WORD TO IDP TABLE.                                 DBG=IDP  2107
                                        *                                                                        DBG=IDP  2108
                                        *                                                                        DBG=IDP  2109
                                        *                THIS ROUTINE WILL ADD A SINGLE WORD TO AN IDP FIXED     DBG=IDP  2110
                                        *         LENGTH TABLE THAT IS TERMINATED BY A ZERO WORD, AND WHERE      DBG=IDP  2111
                                        *         AN AVAILABLE SPACE IS MARKED BY A -1.                          DBG=IDP  2112
                                        *                                                                        DBG=IDP  2113
                                        *         ENTRY  (X6)   =  WORD TO BE ADDED TO TABLE                     DBG=IDP  2114
                                        *                (B6)   =  FWA OF TABLE                                  DBG=IDP  2115
                                        *                                                                        DBG=IDP  2116
                                        *         EXIT   TO *IDP=OV* IF TABLE OVERFLOW                           DBG0002   962
                                        *                (X1)   =  -1 IF ENTRY ALREADY IN TABLE, ELSE            DBG=IDP  2118
                                        *                       =  ENTRY THAT WAS MADE IN TABLE                  DBG=IDP  2119
                                        *                (B7)   =  ORDINAL OF ENTRY THAT WAS MADE OR OF MATCHING DBG=IDP  2120
                                        *                            ENTRY                                       DBG=IDP  2121
                                        *                                                                        DBG=IDP  2122
                                        *         USES   X - 0,1,2,3,6,7                                         DBG=IDP  2123
                                        *                A - 1,2                                                 DBG=IDP  2124
                                        *                B - 7                                                   DBG=IDP  2125
                                        *                                                                        DBG=IDP  2126
                                        *         CALLS  IDP.ER,PRIDP,SKT                                        DBG=IDP  2127
                                                                                                                 DBG=IDP  2128
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    54
  
  
                                                                                                                 DBG=IDP  2129
                                         ADZ      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2130
                                                  BX1    X6                                                      DBG=IDP  2131
                                                  MX0    60                                                      DBG=IDP  2132
                                                  SA6    ADZA        SAVE (X6)                                   DBG=IDP  2133
                                                  RJ     SKT         SEARCH TO SEE IF ENTRY ALREADY IN TABLE     DBG=IDP  2134
                                                  SX1    -B1                                                     DBG=IDP  2135
                                                  NZ     X2,EXIT.    IF ENTRY ALREADY IN TABLE                   DBG=IDP  2136
                                                  RJ     SKT         SEARCH FOR AVAILABLE SPACE                  DBG=IDP  2137
                                                  ZR     X2,IDP=OV   IF NO AVAILABLE SPACE LEFT                  DBG0002   963
                                                  SA1    ADZA                                                    DBG=IDP  2139
                                                  BX6    X1                                                      DBG=IDP  2140
                                                  SA6    A2          MAKE NEW TABLE ENTRY                        DBG=IDP  2141
                                                  EQ     EXIT.                                                   DBG=IDP  2142
                                                                                                                 DBG=IDP  2146
                                                                                                                 DBG=IDP  2147
                                         ADZA     BSSZ   1                                                       DBG=IDP  2148
                                         BRK      SPACE  4,8                                                     DBG=IDP  2292
                                        **        BRK - BREAK PROCESSOR.                                         DBG=IDP  2293
                                        *                                                                        DBG=IDP  2294
                                        *                                                                        DBG=IDP  2295
                                        *         1. IF THIS IS AN ASSEMBLED BREAK (NOT *IDP* GENERATED),        DBG=IDP  2296
                                        *            THEN CONTROL IS MERELY RETURNED TO CALLER.                  DBG=IDP  2297
                                        *                                                                        DBG=IDP  2298
                                        *         2. IF THIS IS AN *IDP* GENERATED BREAK, THE 2 PARALLEL TABLES, DBG=IDP  2299
                                        *            *IDPBA/IDPBC*, ARE QUERIED FOR INFORMATION THAT WILL BE     DBG=IDP  2300
                                        *            PLUGGED INTO A DUMMY PARAMETER LIST FOR THIS BREAK. THE     DBG=IDP  2301
                                        *            PREVIOUS CONTENTS OF THE BREAK ADDR ARE PICKED UP FROM      DBG=IDP  2302
                                        *            *IDPBC* AND PLUGGED AT *ST=ENDX* SO THAT THEY CAN BE        DBG=IDP  2303
                                        *            EXECUTED BEFORE EXITING *IDP*.                              DBG=IDP  2304
                                        *                                                                        DBG=IDP  2305
                                        *         TABLE FORMATS ARE--                                            DBG=IDP  2306
                                        *                                                                        DBG=IDP  2307
                                        *         IDPBA ENTRY AT (IDPBA+ORDINAL)                                 DBG=IDP  2308
                                        *                                                                        DBG=IDP  2309
                                        *         VFD    6/BREAK TYPE CODE (BTC)                                 DBG=IDP  2310
                                        *         VFD    18/ ADDR1                                               DBG=IDP  2311
                                        *         VFD    18/ ADDR2   FOR A CONDITIONAL BREAK (BRNE,...) THE      DBG=IDP  2312
                                        *                              CONTENTS OF THE CORE LOCATION ADDR1 WILL  DBG=IDP  2313
                                        *                              BE COMPARED TO THE CONTENTS OF CORE       DBG=IDP  2314
                                        *                              LOCATION ADDR2.                           DBG=IDP  2315
                                        *         VFD    18/ BREAK ADDR                                          DBG=IDP  2316
                                        *                                                                        DBG=IDP  2317
                                        *         IDPBC ENTRY AT (IDPBC+2*ORDINAL)                               DBG=IDP  2318
                                        *                                                                        DBG=IDP  2319
                                        *         VFD    60/ PREVIOUS CONTENTS OF BREAK ADDR                     DBG=IDP  2320
                                        *         VFD    15/ LL                                                  DBG=IDP  2321
                                        *         VFD    15/ UL                                                  DBG=IDP  2322
                                        *         VFD    12/ INC                                                 DBG=IDP  2323
                                        *         VFD    18/ SNAP COUNT                                          DBG=IDP  2324
                                        *                                                                        DBG=IDP  2325
                                        *            IF THIS IS A CONDITIONAL *IDP* GENERATED BREAK              DBG=IDP  2326
                                        *            (BRPL,BREQ,...), THE RELATIONAL CONDITION IS EVALUATED.     DBG=IDP  2327
                                        *            A TRUE RESULT MEANS THE BREAK WILL BE HONORED, A FALSE THAT DBG=IDP  2328
                                        *            IT WILL NOT.                                                DBG=IDP  2329
                                        *                                                                        DBG=IDP  2330
                                        *         ENTRY  (X1)    =   (IDPPREG)  PSEUDO P REGISTER                DBG=IDP  2331
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    55
  
  
                                        *                            (IDPPREG)-1 = ADDR OF IDP CALLER (BREAK AD) DBG=IDP  2332
                                        *                (A5,    =   (IDPPREG)-1                                 DBG=IDP  2333
                                        *                    X5) =   FWA OF PARAMETER LIST                       DBG=IDP  2334
                                        *                        =   .ZR. IF *IDP* GENERATED BREAK               DBG=IDP  2335
                                        *                                                                        DBG=IDP  2336
                                        *         EXIT   (X5)    =   FWA OF PARAMETER LIST FOR THIS BREAK        DBG=IDP  2337
                                        *                              (OR DUMMY PARAMETER LIST FOR *IDP* BREAK) DBG=IDP  2338
                                        *                        =   .ZR. IF NO BREAK THIS TIME                  DBG=IDP  2339
                                        *                                                                        DBG=IDP  2340
                                        *         USES   X - ALL                                                 DBG=IDP  2341
                                        *                A - 1,2,3,6,7                                           DBG=IDP  2342
                                        *                B - 5,6,7                                               DBG=IDP  2343
                                        *                                                                        DBG=IDP  2344
                                        *         CALLS  CBC,SKT                                                 DBG=IDP  2345
                                                                                                                 DBG=IDP  2346
                                                                                                                 DBG=IDP  2347
                                         BRK      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2348
                                                  SX6    X5                                                      DBG=IDP  2349
                                                  MX7    -0                                                      DBG=IDP  2350
                                                  SX1    X1-1        (X1) = BREAK ADDR                           DBG=IDP  2351
                                                  SA6    FWAPARM                                                 DBG=IDP  2352
                                                  NZ     X5,EXIT.    IF NOT *IDP* GENERATED BREAK                DBG=IDP  2353
                                                                                                                 DBG=IDP  2354
                                        *         SET UP DUMMY APLIST FOR *IDP* GENERATED BREAK.                 DBG=IDP  2355
                                                                                                                 DBG=IDP  2356
                                                  SX6    APL         (X6) = FWA OF DUMMY APLIST                  DBG=IDP  2357
                                                  SA7    AP=HDR      SET TO *IDP GENERATED BREAK HEADER*         DBG=IDP  2358
                                                  SA6    A6                                                      DBG=IDP  2359
                                                  MX0    -18                                                     DBG=IDP  2360
                                                  SX5    X6                                                      DBG=IDP  2361
                                                  BX0    -X0                                                     DBG=IDP  2362
                                                  SB6    IDPBA                                                   DBG=IDP  2363
                                                  RJ     SKT         SEARCH FOR BREAK ADDR                       DBG=IDP  2364
                                                  ZR     X2,*+4S15   IF NO FIND, IRRETRIEVABLE ERROR...          DBG=IDP  2365
                                                  SB6    B7+B7                                                   DBG=IDP  2366
                                                  SA3    IDPBC+B6+1  (X3) = 15/LL,15/UL,12/INC,18/CNT            DBG=IDP  2367
                                                  SX6    X3                                                      DBG=IDP  2368
                                                  BX7    -X0*X3      (X7) = 15/LL,15/UL,12/INC,18/0              DBG=IDP  2369
                                                  SA6    AP=CNT                                                  DBG=IDP  2370
                                                  SX4    X3+B1       (X4) = CNT+1                                DBG=IDP  2371
                                                  BX7    X7+X4       (X7) = 15/LL,15/UL,12/INC,18/CNT+1          DBG=IDP  2372
                                                  SA7    A3                                                      DBG=IDP  2373
                                                  MX0    -15                                                     DBG=IDP  2374
                                                  LX3    15                                                      DBG=IDP  2375
                                                  BX6    -X0*X3      (X6) = LL                                   DBG=IDP  2376
                                                  LX3    15                                                      DBG=IDP  2377
                                                  BX7    -X0*X3      (X7) = UL                                   DBG=IDP  2378
                                                  SA6    AP=LL                                                   DBG=IDP  2379
                                                  SA7    A6+B1                                                   DBG=IDP  2380
                                                  MX0    -12                                                     DBG=IDP  2381
                                                  LX3    12                                                      DBG=IDP  2382
                                                  BX6    -X0*X3      (X6) = INC                                  DBG=IDP  2383
                                                  SA6    A7+B1                                                   DBG=IDP  2384
                                                                                                                 DBG=IDP  2385
                                        *         SET UP EXIT SO THAT PREVIOUS CONTENTS OF BREAK ADDR WILL BE    DBG=IDP  2386
                                        *           EXECUTED BEFORE EXITING *IDP*.                               DBG=IDP  2387
                                        *                                                                        DBG=IDP  2388
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    56
  
  
                                                  SA3    A3-B1       (X3) = PREVIOUS CONTENTS OF BREAK ADDR      DBG=IDP  2389
                                                  BX6    X3                                                      DBG=IDP  2390
                                                  SA6    ST=ENDX                                                 DBG=IDP  2391
                                                                                                                 DBG=IDP  2392
                                        *         CHECK TO SEE IF BREAK CONDITION SATISFIED.                     DBG=IDP  2393
                                                                                                                 DBG=IDP  2394
                                                  MX0    -6                                                      DBG=IDP  2395
                                                  LX2    6                                                       DBG=IDP  2396
                                                  BX6    -X0*X2      (X6) = BREAK TYPE CODE (BTC)                DBG=IDP  2397
                                                  SB5    X6                                                      DBG=IDP  2398
                                                  MX0    -18                                                     DBG=IDP  2399
                                                  LX2    18                                                      DBG=IDP  2400
                                                  BX6    -X0*X2                                                  DBG=IDP  2401
                                                  SA1    X6          (X1) = (ADDR1)                              DBG=IDP  2402
                                                  LX2    18                                                      DBG=IDP  2403
                                                  BX6    -X0*X2                                                  DBG=IDP  2404
                                                  SA2    X6          (X2) = (ADDR2)                              DBG=IDP  2405
                                                  RJ     CBC         CHECK BREAK CONDITION                       DBG=IDP  2406
                                                  NZ     B6,EXIT.    IF CONDITION WAS SATISFIED (TRUE)           DBG=IDP  2407
                                                  MX5    0                                                       DBG=IDP  2408
                                                  EQ     EXIT.                                                   DBG=IDP  2409
                                         BUB      SPACE  4,8                                                     DBG0002   964
                                        **        BUB - BURST/BUILD IDP COMMAND.                                 DBG0002   965
                                        *                                                                        DBG0002   966
                                        *                                                                        DBG0002   967
                                        *                THIS ROUTINE BURSTS AND BUILDS A PACKED (I.E. 10 CHARS  DBG0002   968
                                        *         PER WORD) SOURCE LINE AT *IDPLIM* ET SEQ INTO ITS TOKEN FORM.  DBG0002   969
                                        *                                                                        DBG0002   970
                                        *         GENERAL TOKEN FORMAT IS --                                     DBG0002   971
                                        *                                                                        DBG0002   972
                                        *         VFD    42/0L_CHARS,18/TOKEN TYPE                               DBG0002   973
                                        *                CHARS = DISPLAY CODE CHARACTERS THAT CONSTITUTE THIS    DBG0002   974
                                        *                          TOKEN                                         DBG0002   975
                                        *                TOKEN TYPE = A TYPE CODE THAT IS USED TO DISTINGUISH    DBG0002   976
                                        *                               ONE TOKEN FROM ANOTHER. (NOTE--BIT 17    DBG0002   977
                                        *                               OF TOKEN TYPE MUST BE 0)                 DBG0002   978
                                        *                                                                        DBG0002   979
                                        *         TOKEN TYPES ARE --                                             DBG0002   980
                                        *                                                                        DBG0002   981
                                        *         O.VAR  VARIABLE OR NAME TOKEN  (ALPHANUMERIC)                  DBG0002   982
                                        *         O.CONS CONSTANT TOKEN  (NUMERIC)                               DBG0002   983
                                        *         O.SEP  SEPARATOR TOKEN (E.G. *,+-)                             DBG0002   984
                                        *                                                                        DBG0002   985
                                        *         E.G. IF ; IS THE END-OF-STMT CHARACTER --                      DBG0002   986
                                        *                                                                        DBG0002   987
                                        *         SNAP,NAME,,4;REG,X1                                            DBG0002   988
                                        *                                                                        DBG0002   989
                                        *         WOULD BECOME --                                                DBG0002   990
                                        *         VFD    42/OTHER ,18/LEN OF STMT = 7                            DBG0002   991
                                        *         VFD    42/4LSNAP,18/O.VAR                                      DBG0002   992
                                        *         VFD    42/1L,   ,18/O.SEP                                      DBG0002   993
                                        *         VFD    42/4LNAME,18/O.VAR                                      DBG0002   994
                                        *         VFD    42/1L,   ,18/O.SEP                                      DBG0002   995
                                        *         VFD    42/1L,   ,18/O.SEP                                      DBG0002   996
                                        *         VFD    42/1L4   ,18/O.CONS                                     DBG0002   997
                                        *         VFD    60/0  ** EOS **                                         DBG0002   998
                                        *                                                                        DBG0002   999
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    57
  
  
                                        *         VFD    42/OTHER ,18/LEN OF STMT = 4                            DBG0002  1000
                                        *         VFD    42/3LREG ,18/O.VAR                                      DBG0002  1001
                                        *         VFD    42/1L,   ,18/O.SEP                                      DBG0002  1002
                                        *         VFD    42/2LX1  ,18/O.VAR                                      DBG0002  1003
                                        *         VFD    60/0  ** EOS **                                         DBG0002  1004
                                        *                                                                        DBG0002  1005
                                        *         ENTRY  (A5,X5)   = A+C OF 1ST WORD OF SOURCE LINE IMAGE        DBG0002  1006
                                        *                              TO BE BURST/BUILT                         DBG0002  1007
                                        *                (A6)+1    = ADDR TO STORE 1ST TOKEN THAT IS BURST/BUILT DBG0002  1008
                                        *                (L=LIM)   = NR OF WORDS IN SOURCE LINE IMAGE AT         DBG0002  1009
                                        *                              (IDPLIM) ET SEQ  (INCLUDES WORD           DBG0002  1010
                                        *                              CONTAINING EOL MARK)                      DBG0002  1011
                                        *                                                                        DBG0002  1012
                                        *         EXIT   NONE                                                    DBG0002  1013
                                        *                                                                        DBG0002  1014
                                        *         USES   ALL                                                     DBG0002  1015
                                        *                                                                        DBG0002  1016
                                        *         CALLS  NONE                                                    DBG0002  1017
                                                                                                                 DBG0002  1018
                                                                                                                 DBG0002  1019
                                         BUB      SUBR               ** ENTRY/EXIT **                            DBG0002  1020
                                                                                                                 DBG0002  1021
                                        *         FIRST TIME ONLY INITIALIZATION.                                DBG0002  1022
                                                                                                                 DBG0002  1023
                                                  SX7    A6                                                      DBG0002  1024
                                                  MX0    -CHAR                                                   DBG0002  1025
                                                  SA4    10*CHAR                                                 DBG0002  1026
                                                  SA7    IDPSTMT                                                 DBG0002  1027
                                                  SB3    CHAR                                                    DBG0002  1028
                                                  SB6    A4                                                      DBG0002  1029
                                                  SA0    B0          SET TO *LENGTH=0 FIRST TIME THROUGH*        DBG0002  1030
                                                                                                                 DBG0002  1031
                                        *         SET UP (B7) = NR OF WORDS TO BURST/BUILD (NOT INCLUDING WORD   DBG0002  1032
                                        *           CONTAINING EOL MARK).  I.E. (B7) WILL CONTAIN NR OF FULL     DBG0002  1033
                                        *           WORDS (10 CHARS EACH) TO BURST/BUILD.  THREE END-OF-LINE     DBG0002  1034
                                        *           CONDITIONS ARE SIGNIFICANT --                                DBG0002  1035
                                        *                                                                        DBG0002  1036
                                        *             (A5)+0         1     (X=ANY CHAR,0=00B)                    DBG0002  1037
                                        *                  XXXXXXXX00            (L=LIM) = 1, (B7) = 0           DBG0002  1038
                                        *                 +0         1                                           DBG0002  1039
                                        *                  XXXXXXXXXX0000000000  (L=LIM) = 1, (B7) = 1           DBG0002  1040
                                        *                 +0         1                                           DBG0002  1041
                                        *                  XXXXXXXXX00000000000  (L=LIM) = 2, (B7) = 0           DBG0002  1042
                                                                                                                 DBG0002  1043
                                                  SA1    =XL=LIM     (X1) = NR OF WORDS IN SOURCE LINE IMAGE     DBG0002  1044
                                        *                                     (INCLUDES WORD CONTAINING EOL MRK) DBG0002  1045
                                                  SB5    A5-2                                                    DBG0002  1046
                                                  SB7    X1-1        (B7) = NR OF WORDS IN SOURCE LINE IMAGE     DBG0002  1047
                                        *                                     (NOT INCLUDING WD CONTAINING EOL)  DBG0002  1048
                                                  SA2    B5+X1       (A2,X2) = A+C OF NEXT TO LAST WORD OF LINE  DBG0002  1049
                                                  ZR     B7,BUB2     IF 11 CHAR (66 BIT) EOL NOT POSSIBLE        DBG0002  1050
                                                  BX6    -X0*X2                                                  DBG0002  1051
                                                  NZ     X6,BUB2     IF NOT 11 CHAR (66 BIT) EOL MARK            DBG0002  1052
                                                  SB7    B7-B1                                                   DBG0002  1053
                                                                                                                 DBG0002  1054
                                        *         INITIALIZE FOR BURST/BUILD OF KEYWORD.                         DBG0002  1055
                                                                                                                 DBG0002  1056
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    58
  
  
                                         BUB2     SA2    MX=KEYW                                                 DBG0002  1057
                                                  MX1    0           SET TO *NOT SQUEEZING BLANKS*               DBG0002  1058
                                                  SB5    B0          SET TO *NOT SQUEEZING BLANKS*               DBG0002  1059
                                                  BX2    -X2                                                     DBG0002  1060
                                                  EQ     BUB2B                                                   DBG0002  1061
                                                                                                                 DBG0002  1062
                                        *         INITIALIZE FOR BURST/BUILD OF NON-KEYWORD.                     DBG0002  1063
                                                                                                                 DBG0002  1064
                                         BUB2A    SA1    =10H                                                    DBG0002  1065
                                                  SA2    MX=TOKN                                                 DBG0002  1066
                                                  SB5    1R +7777B-1RM                                           DBG0002  1067
                                                                                                                 DBG0002  1068
                                        *         COMMON INITIALIZATION FOR BURST/BUILD.                         DBG0002  1069
                                                                                                                 DBG0002  1070
                                         BUB2B    SA3    BUB=LEN                                                 DBG0002  1071
                                                  SX4    A0                                                      DBG0002  1072
                                                  IX7    X3-X4                                                   DBG0002  1073
                                                  SB4    8*CHAR-1*CHAR                                           DBG0002  1074
                                                  BX6    X6-X6                                                   DBG0002  1075
                                                  SA7    A3                                                      DBG0002  1076
                                                  NZ     B7,BUB4     IF 1ST WORD OF SOURCE LINE DOES NOT CONTAIN DBG0002  1077
                                        *                              EOL MARK, INTO THE FIRE...                DBG0002  1078
                                                                                                                 DBG0002  1079
                                        *         HERE TO PROCESS WORD CONTAINING EOL MARK (I.E. LAST WORD OF    DBG0002  1080
                                        *           SOURCE LINE) -- FIGURE OUT HOW MANY USEABLE (I.E. NON-EOL)   DBG0002  1081
                                        *           BITS ARE IN FINAL WORD TO BE BURST/BUILT.                    DBG0002  1082
                                                                                                                 DBG0002  1083
                                         BUB2C    MI     B7,BUB5     IF HAVE ALREADY PROCESSED LAST WORD OF LINE DBG0002  1084
                                                  SA3    =40404040404040404040B                                  DBG0002  1085
                                                  SX4    B1                                                      DBG0002  1086
                                                  IX7    X5-X4       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     DBG0002  1087
                                                  BX4    -X7+X5      (X4) = ALL TRAILING 0 BITS IN (X1) = 0 BITS DBG0002  1088
                                        *                                     ALL OTHER LEADING BITS = 1 BITS    DBG0002  1089
                                                  SB2    60-5        (B2) = RIGHT CIRCULAR SHIFT 5 BITS          DBG0002  1090
                                                  BX7    X3*X4       (X7) = 40B WHERE EACH CHAR IN LAST WORD IS  DBG0002  1091
                                                  LX4    X7,B2       (X4) = 01B WHERE EACH CHAR IN LAST WORD IS  DBG0002  1092
                                                  IX3    X7-X4       (X3) = 37B WHERE EACH CHAR IN LAST WORD IS  DBG0002  1093
                                                  BX4    X7+X3       (X4) = 77B WHERE EACH CHAR IN LAST WORD IS  DBG0002  1094
                                                  CX7    X4                                                      DBG0002  1095
                                                  SB7    B7-B1       (B7) = SET WORD COUNT TO -1 (I.E. BURSTING  DBG0002  1096
                                        *                                     LAST WD) TO AVOID LOOPING AT BUB2B DBG0002  1097
                                                  SB6    X7          (B6) = NR OF BITS TO BU/BU IN LAST WD (X5)  DBG0002  1098
                                                  EQ     BUB4        BURST/BUILD LAST WORD...                    DBG0002  1099
                                                                                                                 DBG0002  1100
                                        *         BURST/BUILD LOOP  ** INSTACK **                                DBG0002  1101
                                                                                                                 DBG0002  1102
                                         BUB3     SB7    B7-B1                                                   DBG0002  1103
                                                  SA5    A5+B1                                                   DBG0002  1104
                                                  LE     B7,B0,BUB2C IF NO MORE SOURCE WORDS TO BURST/BUILD      DBG0002  1105
                                                  IX7    X5-X1                                                   DBG0002  1106
                                                  SB6    A4                                                      DBG0002  1107
                                                  ZR     X7,BUB3     IF NEXT SOURCE IMAGE WORD IS ALL BLANK      DBG0002  1108
                                                                                                                 DBG0002  1109
                                         BUB4     LX5    CHAR                                                    DBG0002  1110
                                                  LE     B6,B0,BUB3  IF SOURCE IMAGE WORD (X5) IS EXHAUSTED      DBG0002  1111
                                                  BX4    -X0*X5                                                  DBG0002  1112
                                                  SB6    B6-B3                                                   DBG0002  1113
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    59
  
  
                                                  SB2    X4+7777B-1RM                                            DBG0002  1114
                                                  NO                                                             DBG0002  1115
                                                  LX7    X2,B2                                                   DBG0002  1116
                                                  EQ     B2,B5,BUB4  IF CHAR TO PACK IS A BLANK (55B)            DBG0002  1117
                                                  LX3    X4,B4                                                   DBG0002  1118
                                                  SB4    B4-B3                                                   DBG0002  1119
                                                  MI     X7,BUB5     IF NEXT CHAR TO PACK IS TERMINATOR          DBG0002  1120
                                                  BX6    X6+X3                                                   DBG0002  1121
                                                  GE     B4,B0,BUB4  IF PACKING REG (X6) NOT FULL                DBG0002  1122
                                                                                                                 DBG0002  1123
                                        *         HERE IF AN ERROR -- TERMINATE TOKEN BUFFER.                    DBG0002  1124
                                                                                                                 DBG0002  1125
                                                  SA1    IDPSTMT                                                 DBG0002  1126
                                                  MX6    1                                                       DBG0002  1127
                                                  SX2    B1                                                      DBG0002  1128
                                                  BX6    X6+X2       (X6) = 1/1=LAST STMT ON LINE,41/0,18/LEN    DBG0002  1129
                                                  SA6    X1                                                      DBG0002  1130
                                                  EQ     IDP=ER      ERROR - TOKEN .GT. 7 CHARS                  DBG0002  1131
                                                                                                                 DBG0002  1132
                                        *         HERE TO STORE PACKING REG (X6).                                DBG0002  1133
                                                                                                                 DBG0002  1134
                                         BUB5     LX6    10*CHAR-8*CHAR (X6) = 42/0LNAME,18/0                    DBG0002  1135
                                                  SA1    BUB=LEN                                                 DBG0002  1136
                                                  SA0    B1                                                      DBG0002  1137
                                                  SA2    MX=NR09                                                 DBG0002  1138
                                                  LX7    X6,B3                                                   DBG0002  1139
                                                  BX7    -X0*X7                                                  DBG0002  1140
                                                  SX3    X1-3-1                                                  DBG0002  1141
                                                  SB4    X7                                                      DBG0002  1142
                                                  LX2    X2,B4                                                   DBG0002  1143
                                                  PL     X3,BUB6     IF NO TABLE OVERFLOW IMPENDING              DBG0002  1144
                                                                                                                 DBG0002  1145
                                        *         HERE IF AN ERROR -- TERMINATE TOKEN BUFFER.                    DBG0002  1146
                                                                                                                 DBG0002  1147
                                                  SA1    IDPSTMT                                                 DBG0002  1148
                                                  MX6    1                                                       DBG0002  1149
                                                  SX2    B1                                                      DBG0002  1150
                                                  BX6    X6+X2       (X6) = 1/1=LAST STMT ON LINE,41/0,18/LEN    DBG0002  1151
                                                  SA6    X1                                                      DBG0002  1152
                                                  EQ     IDP=OV                                                  DBG0002  1153
                                                                                                                 DBG0002  1154
                                         BUB6     ZR     X6,BUB8     IF (X6) IS NULL, PROBABLE ,, SYNTAX         DBG0002  1155
                                                  SX7    O.VAR                                                   DBG0002  1156
                                                  PL     X2,BUB7     IF 1ST CHAR IN (X6) IS NOT 0 THRU 9         DBG0002  1157
                                                  SX7    O.CONS                                                  DBG0002  1158
                                                                                                                 DBG0002  1159
                                         BUB7     BX6    X6+X7                                                   DBG0002  1160
                                                  SA0    A0+B1                                                   DBG0002  1161
                                                  SA6    A6+B1                                                   DBG0002  1162
                                                                                                                 DBG0002  1163
                                        *         CHECK FOR AND PROCESS END-OF-STATEMENT.                        DBG0002  1164
                                                                                                                 DBG0002  1165
                                         BUB8     SB2    -2                                                      DBG0002  1166
                                                  SX2    X4-1R"EOS"                                              DBG0002  1167
                                                  LE     B7,B2,BUB9  IF NOTHING MORE TO BURST                    DBG0002  1168
                                                  NZ     X2,BUB10    IF NOT EOS CHARACTER                        DBG0002  1169
                                                                                                                 DBG0002  1170
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    60
  
  
                                         BUB9     SA1    IDPSTMT                                                 DBG0002  1171
                                                  MX6    0                                                       DBG0002  1172
                                                  SX2    A6+B1                                                   DBG0002  1173
                                                  SA6    A6+B1       MARK EOS                                    DBG0002  1174
                                                  IX7    X2-X1                                                   DBG0002  1175
                                                  NO                                                             DBG0002  1176
                                                  SA7    X1                                                      DBG0002  1177
                                                  LE     B7,B2,BUB11 IF FINISHED                                 DBG0002  1178
                                                  SX7    A6+B1       (X7) = ADDR OF LEN WORD FOR NEXT STMT       DBG0002  1179
                                                  SA6    A6+B1       (A6+1) = NEXT ADDR TO STORE                 DBG0002  1180
                                                  SA0    A0+B1                                                   DBG0002  1181
                                                  SA7    A1                                                      DBG0002  1182
                                                  EQ     BUB2        CRANK UP FOR NEW STMT...                    DBG0002  1183
                                                                                                                 DBG0002  1184
                                        *         HERE TO STORE TERMINATOR CHARACTER (X4).                       DBG0002  1185
                                                                                                                 DBG0002  1186
                                         BUB10    BX6    X4                                                      DBG0002  1187
                                                  SX7    O.SEP                                                   DBG0002  1188
                                                  LX6    10*CHAR-1*CHAR                                          DBG0002  1189
                                                  BX6    X6+X7       (X6) = 42/0LCHAR,18/O.SEP                   DBG0002  1190
                                                  SA6    A6+B1                                                   DBG0002  1191
                                                  EQ     BUB2A       CONTINUE...                                 DBG0002  1192
                                                                                                                 DBG0002  1193
                                         BUB11    MX6    1                                                       DBG0002  1194
                                                  BX7    X6+X7                                                   DBG0002  1195
                                                  SA7    X1                                                      DBG0002  1196
                                                  EQ     EXIT.                                                   DBG0002  1197
                                                                                                                 DBG0002  1198
                                                                                                                 DBG0002  1199
                                         BUB=LEN  =      APL         SAVED NR OF WORDS LEFT IN TOKEN BUFFER      DBG0002  1200
                                         CBC      SPACE  4,8                                                     DBG=IDP  2410
                                        **        CBC - CHECK BREAK CONDITION.                                   DBG=IDP  2411
                                        *                                                                        DBG=IDP  2412
                                        *                                                                        DBG=IDP  2413
                                        *                THIS ROUTINE RETURNS A TRUE/FALSE VALUE FOR A GIVEN     DBG=IDP  2414
                                        *         LOGICAL EXPRESSION-- C1.OP.C2                                  DBG=IDP  2415
                                        *                                                                        DBG=IDP  2416
                                        *         NOTE-- THE OPERATOR JUMP TABLE AT *CBC.OP* HAS A ONE-TO-ONE    DBG=IDP  2417
                                        *         ORDER DEPENDENT RELATIONSHIP WITH THE *BREAK* KEYWORDS AT      DBG=IDP  2418
                                        *         (IDPKBR) ET SEQ. SHOULD A CHANGE BE EFFECTED TO EITHER TABLE,  DBG=IDP  2419
                                        *         BOTH SHOULD BE CHECKED FOR CONSISTENCY.                        DBG=IDP  2420
                                        *                                                                        DBG=IDP  2421
                                        *         ENTRY  (X1) = C1   1ST QUANTITY                                DBG=IDP  2422
                                        *                (X2) = C2   2ND QUANTITY                                DBG=IDP  2423
                                        *                (B5) = BREAK TYPE CODE (BTC)                            DBG=IDP  2424
                                        *                                                                        DBG=IDP  2425
                                        *         EXIT   (B6) = .NZ. IF TRUE, ELSE .ZR. IF FALSE                 DBG=IDP  2426
                                        *                                                                        DBG=IDP  2427
                                        *         USES   X - 0,3,6,7                                             DBG=IDP  2428
                                        *                A - NONE                                                DBG=IDP  2429
                                        *                B - 6                                                   DBG=IDP  2430
                                        *                                                                        DBG=IDP  2431
                                        *         CALLS  NONE                                                    DBG=IDP  2432
                                                                                                                 DBG=IDP  2433
                                                                                                                 DBG=IDP  2434
                                         CBC      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2435
                                                  MI     B5,*+4S15   IF BTC IS BAD, AVOID SMELLY EVIL BUG...     DBG=IDP  2436
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    61
  
  
                                                  SB6    CBC2-CBC.OP (B6) = NR OF OPERATOR JP TABLE ENTRIES      DBG=IDP  2437
                                                  GT     B5,B6,*+4S15  IF BTC IS BAD, P U...DUMMKOPF             DBG=IDP  2438
                                                  SB6    B1          SET TO *CONDITION SATISFIED (TRUE)*         DBG=IDP  2439
                                                  ZR     B5,EXIT.    IF UNCONDITIONAL BREAK                      DBG=IDP  2440
                                                  BX3    X1-X2                                                   DBG=IDP  2441
                                                  IX6    X1-X2                                                   DBG=IDP  2442
                                                  IX7    X2-X1                                                   DBG=IDP  2443
                                                  MX0    0                                                       DBG=IDP  2444
                                                  IX6    X6+X0       REMOVE POSSIBLE -0                          DBG=IDP  2445
                                                  IX7    X7+X0                                                   DBG=IDP  2446
                                                  JP     CBC.OP+B5-1                                             DBG=IDP  2447
                                                                                                                 DBG=IDP  2448
                                        *         CBC.OP - OPERATOR JUMP TABLE.                                  DBG=IDP  2449
                                                                                                                 DBG=IDP  2450
                                         CBC.OP   BSS    0                                                       DBG=IDP  2451
                                                  LOC    1                                                       DBG=IDP  2452
                                                                                                                 DBG=IDP  2453
                                        *         HERE FOR .PL.C1                                                DBG=IDP  2454
                                                                                                                 DBG=IDP  2455
                                         +        PL     X1,EXIT.    IF TRUE                                     DBG=IDP  2456
                                                  EQ     CBC2                                                    DBG=IDP  2457
                                                                                                                 DBG=IDP  2458
                                        *         HERE FOR .MI.C1                                                DBG=IDP  2459
                                                                                                                 DBG=IDP  2460
                                        +         MI     X1,EXIT.    IF TRUE                                     DBG=IDP  2461
                                                  EQ     CBC2                                                    DBG=IDP  2462
                                                                                                                 DBG=IDP  2463
                                        *         HERE FOR .ZR.C1                                                DBG=IDP  2464
                                                                                                                 DBG=IDP  2465
                                         +        ZR     X1,EXIT.    IF TRUE                                     DBG=IDP  2466
                                                  EQ     CBC2                                                    DBG=IDP  2467
                                                                                                                 DBG=IDP  2468
                                        *         HERE FOR .NZ.C1                                                DBG=IDP  2469
                                                                                                                 DBG=IDP  2470
                                         +        NZ     X1,EXIT.    IF TRUE                                     DBG=IDP  2471
                                                  EQ     CBC2                                                    DBG=IDP  2472
                                                                                                                 DBG=IDP  2473
                                        *         HERE FOR C1.EQ.C2                                              DBG=IDP  2474
                                                                                                                 DBG=IDP  2475
                                         +        ZR     X3,EXIT.    IF TRUE                                     DBG=IDP  2476
                                                  EQ     CBC2                                                    DBG=IDP  2477
                                                                                                                 DBG=IDP  2478
                                        *         HERE FOR C1.NE.C2                                              DBG=IDP  2479
                                                                                                                 DBG=IDP  2480
                                         +        NZ     X3,EXIT.    IF TRUE                                     DBG=IDP  2481
                                                  EQ     CBC2                                                    DBG=IDP  2482
                                                                                                                 DBG=IDP  2483
                                        *         HERE FOR C1.LT.C2                                              DBG=IDP  2484
                                                                                                                 DBG=IDP  2485
                                         +        MI     X6,EXIT.    IF TRUE                                     DBG=IDP  2486
                                                  EQ     CBC2                                                    DBG=IDP  2487
                                                                                                                 DBG=IDP  2488
                                        *         HERE FOR C1.GE.C2                                              DBG=IDP  2489
                                                                                                                 DBG=IDP  2490
                                         +        PL     X6,EXIT.    IF TRUE                                     DBG=IDP  2491
                                                  EQ     CBC2                                                    DBG=IDP  2492
                                                                                                                 DBG=IDP  2493
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    62
  
  
                                        *         HERE FOR C1.LE.C2                                              DBG=IDP  2494
                                                                                                                 DBG=IDP  2495
                                         +        PL     X7,EXIT.    IF TRUE                                     DBG=IDP  2496
                                                  EQ     CBC2                                                    DBG=IDP  2497
                                                                                                                 DBG=IDP  2498
                                        *         HERE FOR C1.GT.C2                                              DBG=IDP  2499
                                                                                                                 DBG=IDP  2500
                                         +        MI     X7,EXIT.    IF TRUE                                     DBG=IDP  2501
                                                  EQ     CBC2                                                    DBG=IDP  2502
                                                                                                                 DBG=IDP  2503
                                                  LOC    *O                                                      DBG=IDP  2504
                                                                                                                 DBG=IDP  2505
                                        *         HERE FOR CONDITION NOT SATISFIED (FALSE).                      DBG=IDP  2506
                                                                                                                 DBG=IDP  2507
                                         CBC2     SB6    B0                                                      DBG=IDP  2508
                                                  EQ     EXIT.                                                   DBG=IDP  2509
                                         CLZ      SPACE  4,8                                                     DBG=IDP  2510
                                        **        CLZ - CLEAR *IDP* TABLE.                                       DBG=IDP  2511
                                        *                                                                        DBG=IDP  2512
                                        *                                                                        DBG=IDP  2513
                                        *                THIS ROUTINE WILL CLEAR AN *IDP* ZERO TERMINATED TABLE  DBG=IDP  2514
                                        *         BY SETTING ALL ENTRIES TO *AVAILABLE*, I.E. -1.                DBG=IDP  2515
                                        *                                                                        DBG=IDP  2516
                                        *         ENTRY  (B6) = FWA OF TABLE TO BE CLEARED                       DBG=IDP  2517
                                        *                                                                        DBG=IDP  2518
                                        *         EXIT   NONE                                                    DBG=IDP  2519
                                        *                                                                        DBG=IDP  2520
                                        *         USES   X - 1,6                                                 DBG=IDP  2521
                                        *                A - 1,6                                                 DBG=IDP  2522
                                        *                B - NONE                                                DBG=IDP  2523
                                        *                                                                        DBG=IDP  2524
                                        *         CALLS  NONE                                                    DBG=IDP  2525
                                                                                                                 DBG=IDP  2526
                                                                                                                 DBG=IDP  2527
                                         CLZ      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2528
                                                  SA1    B6                                                      DBG=IDP  2529
                                                  MX6    -1                                                      DBG=IDP  2530
                                                                                                                 DBG=IDP  2531
                                         CLZ2     ZR     X1,EXIT.    IF FINISHED                                 DBG=IDP  2532
                                                  SA6    A1                                                      DBG=IDP  2533
                                                  SA1    A1+B1                                                   DBG=IDP  2534
                                                  EQ     CLZ2                                                    DBG=IDP  2535
                                         CON      SPACE  4,8                                                     DBG=IDP  2536
                                        **        CON - CONNECT/DISCONT FILE.                                    DBG=IDP  2537
                                        *                                                                        DBG=IDP  2538
                                        *                                                                        DBG=IDP  2539
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF FET OF FILE              DBG=IDP  2540
                                        *                (X2)    = +0  IF TO CONNECT                             DBG=IDP  2541
                                        *                        =  1  IF TO DISCONT                             DBG=IDP  2542
                                        *                                                                        DBG=IDP  2543
                                        *         EXIT   SCOPE 3--                                               DBG=IDP  2544
                                        *                (X1)    = .MI. IF PP ROUTINE *CON* DETECTED ERROR,      DBG=IDP  2545
                                        *                                 ELSE .PL.                              DBG=IDP  2546
                                        *                KRONOS/NOS/SCOPE 2-- NONE                               DBG=IDP  2547
                                        *                                                                        DBG=IDP  2548
                                        *         USES   ALL BUT A0,A5,X5                                        DBG=IDP  2549
                                        *                                                                        DBG=IDP  2550
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    63
  
  
                                        *         CALLS  SCOPE 3-- SYSTEM                                        DBG=IDP  2551
                                        *                KRONOS/NOS-- CLOSE,REQUEST,WRITER                       DBG=IDP  2552
                                                                                                                 DBG=IDP  2553
                                                                                                                 DBG=IDP  2554
                                         CON      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2555
                                                                                                                 DBG=IDP  2556
                                         #OS2     IFEQ   .OS,2       IF SCOPE 2                                  DBG=IDP  2557
                                                  EQ     EXIT.                                                   DBG=IDP  2558
                                         #OS2     ENDIF                                                          DBG=IDP  2559
                                                                                                                 DBG=IDP  2560
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  DBG=IDP  2561
                                                  MX0    7*CHAR                                                  DBG=IDP  2562
                                                  BX6    X0*X1       (X6) = 42/0LFILENAME, 18/0                  DBG=IDP  2563
                                                  SA6    CONA                                                    DBG=IDP  2564
                                                  LX2    6                                                       DBG=IDP  2565
                                                  SYSTEM CON,RCL,CONA,X2                                         DBG=IDP  2566
                                                                                                                 DBG=IDP  2567
                                                  SA1    CONA                                                    DBG=IDP  2568
                                                  LX1    59-1                                                    DBG=IDP  2569
                                                  EQ     EXIT.                                                   DBG=IDP  2570
                                                                                                                 DBG=IDP  2571
                                                                                                                 DBG=IDP  2572
                                         CONA     BSSZ   1           PARAMETER WORD FOR PP ROUTINE *CON*--       DBG=IDP  2573
                                        *                              42/0LFILENAME                             DBG=IDP  2574
                                        *                              16/0, 1/ERROR FLAG, 1/COMPLETE BIT        DBG=IDP  2575
                                                                                                                 DBG=IDP  2576
                                         #OS3     ELSE               IF KRONOS/NOS                               DBG=IDP  2577
                                                  SX6    A1                                                      DBG=IDP  2578
                                                  SA6    CONA        SAVE (A1) = FWA OF FET                      DBG=IDP  2579
                                                  NZ     X2,CON2     IF TO DISCONT FILE                          DBG=IDP  2580
                                                                                                                 DBG=IDP  2581
                                        *         HERE TO CONNECT FILE.                                          DBG=IDP  2582
                                                                                                                 DBG=IDP  2583
                                                  WRITER A1,,RCL     FLUSH BUFFER                                DBG=IDP  2584
                                                  SA1    CONA                                                    DBG=IDP  2585
                                                  CLOSE  X1,,RCL     CLOSE FILE                                  DBG=IDP  2586
                                                  SA1    CONA                                                    DBG=IDP  2587
                                                  SX6    2RTT                                                    DBG=IDP  2588
                                                  MX0    60-48                                                   DBG=IDP  2589
                                                  SA2    X1+B1       (X2) = 12/DEVICE TYPE, 48/OTHER             DBG=IDP  2590
                                                  LX6    10*CHAR-2*CHAR                                          DBG=IDP  2591
                                                  BX2    -X0*X2                                                  DBG=IDP  2592
                                                  IX6    X2+X6       (X6) = 12/2RTT, 48/OTHER                    DBG=IDP  2593
                                                  SA6    A2                                                      DBG=IDP  2594
                                                  REQUEST X1,TT      ASSIGN FILE TO TERMINAL                     DBG=IDP  2595
                                                  EQ     EXIT.                                                   DBG=IDP  2596
                                                                                                                 DBG=IDP  2597
                                        *         HERE TO DISCONT FILE.                                          DBG=IDP  2598
                                                                                                                 DBG=IDP  2599
                                         CON2     WRITER A1,,RCL     FLUSH BUFFER                                DBG=IDP  2600
                                                  SA1    CONA                                                    DBG=IDP  2601
                                                  CLOSE  X1,,RCL                                                 DBG=IDP  2602
                                                  EQ     EXIT.                                                   DBG=IDP  2603
                                                                                                                 DBG=IDP  2604
                                                                                                                 DBG=IDP  2605
                                         CONA     BSSZ   1           SAVED FWA OF FET                            DBG=IDP  2606
                                         #OS3     ENDIF                                                          DBG=IDP  2607
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    64
  
  
                                         DAZ      SPACE  4,8                                                     DBG=IDP  2608
                                        **        DAZ - DEASSEMBLER.                                             DBG=IDP  2609
                                        *                                                                        DBG=IDP  2610
                                        *                                                                        DBG=IDP  2611
                                        *                DEASSEMBLES A SINGLE BINARY INSTRUCTION TO ITS          DBG=IDP  2612
                                        *         *COMPASS* MNEMONIC AND LISTS IT.                               DBG=IDP  2613
                                        *                                                                        DBG=IDP  2614
                                        *         ENTRY  (A5,     =  ADDR OF WORD CONTAINING INSTRUCTION TO      DBG=IDP  2615
                                        *                              DEASSEMBLE                                DBG=IDP  2616
                                        *                    X5)  =  WORD CONTAINING INSTRUCTION TO DEASSEMBLE   DBG=IDP  2617
                                        *                            NOTE-- ((A5)) MIGHT NOT BE EQUAL TO (X5),   DBG=IDP  2618
                                        *                              AS WOULD BE THE CASE WHEN DASSEMBLING     DBG=IDP  2619
                                        *                              THE SAVED PREVIOUS CONTENTS OF AN IDP     DBG=IDP  2620
                                        *                              GENERATED BREAK (SEE *STP*)               DBG=IDP  2621
                                        *                (B4)     =  POSITION COUNTER. LEFT MOST BIT TO BE       DBG=IDP  2622
                                        *                              DEASSEMBLED IS BIT (B4)-1 IN (X5).        DBG=IDP  2623
                                        *                              (BITS ARE NUMBERED 59 THRU 0) COMPASS     DBG=IDP  2624
                                        *                              EQUIVALENT WOULD BE--                     DBG=IDP  2625
                                        *                                  POS   (B4)    IN (X5)                 DBG=IDP  2626
                                        *                (IDPFAD) =  .NZ. IF *DAZ* IS TO UNCONDITIONALLY FORCE   DBG0002  1201
                                        *                                   OUT ADDR OF DEASSEMBLED INSTRUCTION, DBG0002  1202
                                        *                         =  .ZR. IF ADDR IS TO APPEAR ONLY IF INSTR IS  DBG0002  1203
                                        *                                   FORCED UPPER IN WORD, I.E. (B4)=60D  DBG0002  1204
                                        *                                                                        DBG=IDP  2627
                                        *         EXIT   (A5,X5)  =  UNCHANGED                                   DBG=IDP  2628
                                        *                (B4)     =  UNCHANGED                                   DBG=IDP  2629
                                        *                (X1)     =  .MI. IF INSTRUCTION DEASSEMBLED FORCES      DBG=IDP  2630
                                        *                              UPPER, ELSE .PL.                          DBG=IDP  2631
                                        *                (B5)     =  NR OF BITS DEASSEMBLED IF NO FORCE UPPER,   DBG=IDP  2632
                                        *                         =  NR OF BITS IN INSTRUCTION THAT FORCED UPPER DBG=IDP  2633
                                        *                (IDPFAD) =  +0                                          DBG0002  1205
                                        *                                                                        DBG=IDP  2634
                                        *         USES   ALL BUT A5,X5,B4                                        DBG=IDP  2635
                                        *                                                                        DBG=IDP  2636
                                        *         LOCKED (A6+1)   =  NEXT AVAILABLE *SNAPLNE* LOCATION           DBG=IDP  2637
                                        *                                                                        DBG=IDP  2638
                                        *         CALLS  COD,PRIDP,VFD                                           DBG=IDP  2639
                                                                                                                 DBG=IDP  2640
                                                                                                                 DBG=IDP  2641
                                         DAZ      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2642
                                                  SB6    60                                                      DBG=IDP  2643
                                                  LE     B4,B0,*+1S17  IF POSITION COUNTER IS BAD                DBG=IDP  2644
                                                  SA1    =10H                                                    DBG=IDP  2645
                                                  SA2    IDPFAD                                                  DBG0002  1206
                                                  MX7    0                                                       DBG0002  1207
                                                  BX6    X1                                                      DBG=IDP  2646
                                                  SA7    A2          CLEAR *FORCE OUT ADDR UNCONDITIONALLY* FLAG DBG0002  1208
                                                  NZ     X2,DAZ1     IF FORCING OUT ADDR UNCONDITIONALLY         DBG0002  1209
                                                  LT     B4,B6,DAZ2  IF THIS INSTRUCTION NOT UPPER               DBG=IDP  2647
                                                                                                                 DBG=IDP  2648
                                        *         HERE IF INSTRUCTION IS UPPER, OUTPUT ADDRESS.                  DBG=IDP  2649
                                                                                                                 DBG=IDP  2650
                                         DAZ1     SB5    B4          SAVE (B4)                                   DBG0002  1210
                                                  SX1    A5                                                      DBG=IDP  2652
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (ADDR)          DBG=IDP  2653
                                                  LX6    3*CHAR                                                  DBG=IDP  2654
                                                  SB4    B5          RESTORE (B4)                                DBG=IDP  2655
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    65
  
  
                                                                                                                 DBG=IDP  2656
                                        *         BREAK OUT OP CODE.                                             DBG=IDP  2657
                                                                                                                 DBG=IDP  2658
                                         DAZ2     SA6    SNAPLNE                                                 DBG=IDP  2659
                                                  SB6    -B4                                                     DBG=IDP  2660
                                                  MX0    -6                                                      DBG=IDP  2661
                                                  SB6    60+B6+6     60-(B4) = LEFT JUST SHIFT COUNT FOR INSTRTN DBG=IDP  2662
                                                  LX5    X5,B6       (X5) = 54/OTHER STUFF, 6/OP CODE            DBG=IDP  2663
                                                  BX7    -X0*X5                                                  DBG=IDP  2664
                                                  LX5    3           (X5) = 51/OTHER STUFF,6/OP CODE,3/I         DBG=IDP  2665
                                                  MX0    -3                                                      DBG=IDP  2666
                                                  SA7    DAZ=OP                                                  DBG=IDP  2667
                                                  ZR     X7,DAZ12    IF 00B OP CODE, REST OF WORD IS DATA        DBG=IDP  2668
                                                                                                                 DBG=IDP  2669
                                        *         BREAK OUT *I* FIELD.                                           DBG=IDP  2670
                                                                                                                 DBG=IDP  2671
                                                  BX7    -X0*X5                                                  DBG=IDP  2672
                                                  LX5    3           (X5) = 48/OTHER STUFF,6/OP,3/I,3/J          DBG=IDP  2673
                                                  SX7    X7+1R0                                                  DBG=IDP  2674
                                                  SA7    A7+B1       SAVE (X7) = 1R<I>                           DBG=IDP  2675
                                                                                                                 DBG=IDP  2676
                                        *         BREAK OUT *J* FIELD.                                           DBG=IDP  2677
                                                                                                                 DBG=IDP  2678
                                                  BX7    -X0*X5                                                  DBG=IDP  2679
                                                  LX5    3           (X5) = 45/OTHER,6/OP,3/I,3/J,3/K            DBG=IDP  2680
                                                  SX7    X7+1R0                                                  DBG=IDP  2681
                                                  SA7    A7+B1       SAVE (X7) = 1R<J>                           DBG=IDP  2682
                                                                                                                 DBG=IDP  2683
                                        *         BREAK OUT *K* FIELD.                                           DBG=IDP  2684
                                                                                                                 DBG=IDP  2685
                                                  BX7    -X0*X5                                                  DBG=IDP  2686
                                                  LX5    18-3        (X5) = 30/OTHER,6/OP,3/I,3/J,18/Q           DBG=IDP  2687
                                                  SX7    X7+1R0                                                  DBG=IDP  2688
                                                  MX0    -18                                                     DBG=IDP  2689
                                                  SA7    A7+B1       SAVE (X7) = 1R<K>                           DBG=IDP  2690
                                                                                                                 DBG=IDP  2691
                                        *         BREAK OUT *Q* 18 BIT ADDRESS FIELD.                            DBG=IDP  2692
                                                                                                                 DBG=IDP  2693
                                                  BX1    -X0*X5      (X1) = 42/0,18/Q                            DBG=IDP  2694
                                                  SB5    B4          SAVE (B4)                                   DBG=IDP  2695
                                                  SB7    60-60+B4-6-3-3-3-15  (B7) = 60-((60-(B4))+6+3+3+3+15)   DBG=IDP  2696
                                                  SX7    X1                                                      DBG=IDP  2697
                                                  LX5    X5,B7       RESTORE (X5)                                DBG=IDP  2698
                                                  SA7    DAZ=ADR                                                 DBG=IDP  2699
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC-- *Q*           DBG=IDP  2700
                                                  SB4    B5          RESTORE (B4)                                DBG=IDP  2701
                                                  SB2    B2-B1                                                   DBG=IDP  2702
                                                  MX0    1                                                       DBG=IDP  2703
                                                  AX0    X0,B2                                                   DBG=IDP  2704
                                                  BX7    X0*X4       (X7) = 0L<Q>                                DBG=IDP  2705
                                                  SA7    A7+B1                                                   DBG=IDP  2706
                                                                                                                 DBG=IDP  2707
                                        *         FETCH INSTRUCTION SKELETON AND CHECK FOR LENGTH CONFLICT.      DBG=IDP  2708
                                                                                                                 DBG=IDP  2709
                                                  SA1    DAZ=OP                                                  DBG=IDP  2710
                                                  SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 DBG=IDP  2711
                                                  SB5    15                                                      DBG=IDP  2712
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    66
  
  
                                                  BX1    X5                                                      DBG=IDP  2713
                                                  PL     X2,DAZ3     IF SHORT (15 BIT) INSTRUCTION               DBG=IDP  2714
                                                  SB5    B5+B5       (B5) = 30                                   DBG=IDP  2715
                                                                                                                 DBG=IDP  2716
                                         DAZ3     LT     B4,B5,DAZ12 IF NOT ENOUGH ROOM FOR 30 BIT INSTR,        DBG=IDP  2717
                                        *                                  MUST BE DATA                          DBG=IDP  2718
                                                                                                                 DBG=IDP  2719
                                        *         CONVERT BINARY INSTRUCTION PARCEL TO OCTAL DPC.                DBG=IDP  2720
                                                                                                                 DBG=IDP  2721
                                                  RJ     VFD         VARIABLE FIELD DEFINITION                   DBG=IDP  2722
                                                  SA6    A6+B1                                                   DBG=IDP  2723
                                                  BX6    X7                                                      DBG=IDP  2724
                                                  SA6    A6+B1                                                   DBG=IDP  2725
                                                                                                                 DBG=IDP  2726
                                        *         CHECK FOR X REGISTER BRANCH INSTRUCTION.                       DBG=IDP  2727
                                                                                                                 DBG=IDP  2728
                                                  SA1    DAZ=OP                                                  DBG=IDP  2729
                                                  SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 DBG=IDP  2730
                                                  SX6    X1-03B                                                  DBG=IDP  2731
                                                  NZ     X6,DAZ4     IF NOT X REGISTER BRANCH                    DBG=IDP  2732
                                                  SA1    DAZ=I                                                   DBG=IDP  2733
                                                  SA2    DAZ=XJP+X1-1R0    (X2) = X REG BRANCH SKELETON          DBG=IDP  2734
                                                                                                                 DBG=IDP  2735
                                        *         GENERATE ...OPI....      (.=BLANK(55B))                        DBG=IDP  2736
                                                                                                                 DBG=IDP  2737
                                         DAZ4     SA1    DAZ=OPI     (X1) = ...000....   (0=00B)                 DBG=IDP  2738
                                                  MX0    -2*CHAR                                                 DBG=IDP  2739
                                                  BX6    -X0*X2      (X6) = 2R<OP>                               DBG=IDP  2740
                                                  LX6    7*CHAR-2*CHAR                                           DBG=IDP  2741
                                                  MX0    -4                                                      DBG=IDP  2742
                                                  LX2    3+4         (X2) = 56/OTHER STUFF,4/1ST DESCRIPTOR      DBG=IDP  2743
                                                  BX3    -X0*X2                                                  DBG=IDP  2744
                                                  SA4    DAZ=I-1+X3                                              DBG=IDP  2745
                                                  BX6    X1+X6       (X6) = ...OP0....   (0=00B)                 DBG=IDP  2746
                                                  LX4    5*CHAR-1*CHAR                                           DBG=IDP  2747
                                                  BX6    X6+X4       (X6) = ...OPI....                           DBG=IDP  2748
                                                                                                                 DBG=IDP  2749
                                        *         ASSEMBLE NORMAL (I,J,K) ITEMS.                                 DBG=IDP  2750
                                                                                                                 DBG=IDP  2751
                                         DAZ5     SA6    A6+B1                                                   DBG=IDP  2752
                                                  SB6    10*CHAR                                                 DBG=IDP  2753
                                                  MX6    0                                                       DBG=IDP  2754
                                                                                                                 DBG=IDP  2755
                                         DAZ6     LX2    4                                                       DBG=IDP  2756
                                                  SB6    B6-CHAR                                                 DBG=IDP  2757
                                                  BX3    -X0*X2      (X3) = DESCRIPTOR                           DBG=IDP  2758
                                                  SA4    DAZ=I-1+X3                                              DBG=IDP  2759
                                                  ZR     X3,DAZ11    IF END OF DESCRIPTOR LIST IN SKELETON       DBG=IDP  2760
                                                                                                                 DBG=IDP  2761
                                         DAZ7     MI     X4,DAZ8     IF THIS IS A CONDITIONAL ITEM               DBG=IDP  2762
                                                  LX4    X4,B6                                                   DBG=IDP  2763
                                                  BX6    X6+X4                                                   DBG=IDP  2764
                                                  GT     B6,B0,DAZ6  IF PACKING REG (X6) NOT FULL                DBG=IDP  2765
                                                  EQ     DAZ5                                                    DBG=IDP  2766
                                                                                                                 DBG=IDP  2767
                                        *         PROCESS AND ASSEMBLE CONDITONAL ITEM.                          DBG=IDP  2768
                                                                                                                 DBG=IDP  2769
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    67
  
  
                                         DAZ8     NZ     X4,DAZ9     IF *Q* 18 BIT ADDRESS                       DBG=IDP  2770
                                                                                                                 DBG=IDP  2771
                                        *         HERE TO PROCESS CONDITIONAL *B0* ASSEMBLY.                     DBG=IDP  2772
                                                                                                                 DBG=IDP  2773
                                                  LX2    4                                                       DBG=IDP  2774
                                                  BX3    -X0*X2                                                  DBG=IDP  2775
                                                  SA4    DAZ=I-1+X3                                              DBG=IDP  2776
                                                  SX7    X4-1R0                                                  DBG=IDP  2777
                                                  SX4    1RB                                                     DBG=IDP  2778
                                                  LX2    -4          RESTORE (X2)                                DBG=IDP  2779
                                                  NZ     X7,DAZ7     IF NOT *B0* REFERENCE                       DBG=IDP  2780
                                                                                                                 DBG=IDP  2781
                                        *         HERE TO IGNORE *B0* REFERENCE.                                 DBG=IDP  2782
                                                                                                                 DBG=IDP  2783
                                                  LX2    2*4         SKIP OVER *B0* AND SEPARATOR                DBG=IDP  2784
                                                  SB6    B6+CHAR                                                 DBG=IDP  2785
                                                  EQ     DAZ6                                                    DBG=IDP  2786
                                                                                                                 DBG=IDP  2787
                                        *         HERE TO PROCESS *Q* 18 BIT ADDRESS.                            DBG=IDP  2788
                                                                                                                 DBG=IDP  2789
                                         DAZ9     SA1    DAZ=ADR+1   (X1) = 0L<Q>   (ALWAYS .LE. 6 CHARS)        DBG=IDP  2790
                                                  MX0    -CHAR                                                   DBG=IDP  2791
                                                                                                                 DBG=IDP  2792
                                        *         ASSEMBLE *Q*.                                                  DBG=IDP  2793
                                                                                                                 DBG=IDP  2794
                                         DAZ10    LX1    CHAR                                                    DBG=IDP  2795
                                                  BX4    -X0*X1                                                  DBG=IDP  2796
                                                  ZR     X4,DAZ11    IF FINISHED ASSEMBLING *Q*                  DBG=IDP  2797
                                                  LX4    X4,B6                                                   DBG=IDP  2798
                                                  SB6    B6-CHAR                                                 DBG=IDP  2799
                                                  BX6    X6+X4                                                   DBG=IDP  2800
                                                  GE     B6,B0,DAZ10 IF PACKING REG (X6) NOT FULL                DBG=IDP  2801
                                                  SA6    A6+B1                                                   DBG=IDP  2802
                                                  MX6    0                                                       DBG=IDP  2803
                                                  SB6    10*CHAR-1*CHAR                                          DBG=IDP  2804
                                                  EQ     DAZ10                                                   DBG=IDP  2805
                                                                                                                 DBG=IDP  2806
                                        *         STORE FINAL WORD.                                              DBG=IDP  2807
                                                                                                                 DBG=IDP  2808
                                         DAZ11    BX1    X6                                                      DBG=IDP  2809
                                                  RJ     =XSFN       SPACE FILL NAME                             DBG=IDP  2810
                                                  SA6    A6+B1                                                   DBG=IDP  2811
                                                                                                                 DBG=IDP  2812
                                        *         GENERATE RELATIVE ADDRESS.                                     DBG=IDP  2813
                                                                                                                 DBG=IDP  2814
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  2815
                                                  SA1    DAZ=ADR                                                 DBG=IDP  2816
                                                  SA2    =10H                                                    DBG=IDP  2817
                                                  SB3    SNAPLNE+5                                               DBG=IDP  2818
                                                  SB2    A6                                                      DBG=IDP  2819
                                                  SB7    DAZ11B      (B7) = RETURN ADDRESS FOR *FRA=*            DBG=IDP  2820
                                                  SA0    B4          SAVE (B4)                                   DBG=IDP  2821
                                                  GE     B2,B3,DAZ11A IF WE DONT NEED BLANK FILL                 DBG=IDP  2822
                                                  BX6    X2                                                      DBG=IDP  2823
                                                  SA6    A6+B1                                                   DBG=IDP  2824
                                                                                                                 DBG=IDP  2825
                                         DAZ11A   SB6    30                                                      DBG=IDP  2826
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    68
  
  
                                                  MI     X1,DAZ11C   IF ADDR IS .MI. (I.E. NOT AN ADDRESS)       DBG=IDP  2827
                                                  LT     B5,B6,DAZ11C IF 15 BIT INSTRUCTION, NO RELATIVE ADDR    DBG=IDP  2828
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  2829
                                                                                                                 DBG=IDP  2830
                                         DAZ11B   SA1    A6          (X1) = XX........   .=BLANK(55B)            DBG=IDP  2831
                                        *                              X=DIFFERENT CHARS DEPENDING ON DEASSEMBLY DBG=IDP  2832
                                                  SB4    A0          RESTORE (B4)                                DBG=IDP  2833
                                                  MX0    3*CHAR                                                  DBG=IDP  2834
                                                  BX1    X0*X1       (X1) = XX.0000000   (.=BLANK(55B),0=00B)    DBG=IDP  2835
                                                  LX6    -3*CHAR                                                 DBG=IDP  2836
                                                  BX6    -X0*X6      (X6) = 000NNNNNN.   (.=BLANK(55B),0=00B)    DBG=IDP  2837
                                                  BX6    X6+X1       (X6) = XX.NNNNNN.   (.=BLANK(55B))          DBG=IDP  2838
                                                  SA6    A1                                                      DBG=IDP  2839
                                                  SX1    3RIN                                                    DBG=IDP  2840
                                                  BX6    X7+X1       (X6) = XXXXXXXIN.   (.=BLANK(55B))          DBG=IDP  2841
                                                  LX6    10*CHAR-3*CHAR                                          DBG=IDP  2842
                                                  SA6    A6+B1                                                   DBG=IDP  2843
                                         #FRA     ENDIF                                                          DBG=IDP  2844
                                                                                                                 DBG=IDP  2845
                                        *         FINAL PROCESSING AND EXIT.                                     DBG=IDP  2846
                                                                                                                 DBG=IDP  2847
                                         DAZ11C   MX6    0                                                       DBG=IDP  2848
                                                  SA6    A6+B1                                                   DBG=IDP  2849
                                                  SX0    B5                                                      DBG0002  1211
                                                  PRIDP  =XSNAPLNE                                               DBG=IDP  2851
                                                  SB5    X0                                                      DBG0002  1212
                                                  SB6    59-57                                                   DBG=IDP  2853
                                                  SA2    DAZ=OP                                                  DBG=IDP  2854
                                                  SA2    DAZ=PS+X2                                               DBG=IDP  2855
                                                  LX1    X2,B6       SET TO *FORCED UPPER(.MI.)/NOT UPPER(.PL.)* DBG=IDP  2856
                                                  EQ     EXIT.                                                   DBG=IDP  2857
                                                                                                                 DBG=IDP  2858
                                        *         HERE IF OUTPUTING REST OF WORD AS DATA.                        DBG=IDP  2859
                                                                                                                 DBG=IDP  2860
                                         DAZ12    SB5    B4          (B5) = LENGTH OF REMAINDER OF INSTR WORD    DBG=IDP  2861
                                                  SA1    A5          (X1) = INSTRUCTION WORD                     DBG=IDP  2862
                                                  RJ     VFD         VARIABLE FIELD DEFINITION                   DBG=IDP  2863
                                                  SA6    A6+B1                                                   DBG=IDP  2864
                                                  SA7    A6+B1                                                   DBG=IDP  2865
                                                  SA1    =7L   DATA                                              DBG=IDP  2866
                                                  BX6    X1                                                      DBG=IDP  2867
                                                  SA6    A7+B1                                                   DBG=IDP  2868
                                                  SX0    B5          SAVE (B5)                                   DBG0002  1213
                                                  PRIDP  =XSNAPLNE                                               DBG=IDP  2870
                                                  SB5    X0          RESTORE (B5)                                DBG0002  1214
                                                  MX2    0           SET TO *THIS IS A DATA ITEM*                DBG=IDP  2872
                                                  MX1    1           SET TO *FORCED UPPER*                       DBG=IDP  2873
                                                  EQ     EXIT.                                                   DBG=IDP  2874
                                                                                                                 DBG=IDP  2875
                                                                                                                 DBG=IDP  2876
                                         DAZ=ADR  BSSZ   1           18 BIT *Q* IN BINARY                        DBG=IDP  2877
                                                  BSSZ   1           18 BIT *Q* IN -0L- FORMAT                   DBG=IDP  2878
                                         DAZ=OPI  CON    3L   +4R                                                DBG=IDP  2879
                                         DAZ=OP   DATA   0           OP CODE FOR INSTRUCTION                     DBG=IDP  2880
                                         DAZ=I    DATA   0           *I* REGISTER PORTION OF INSTRUCTION         DBG=IDP  2881
                                         DAZ=J    DATA   0           *J* REGISTER PORTION OF INSTRUCTION         DBG=IDP  2882
                                         DAZ=K    DATA   0           *K* REGISTER PORTION OF INSTRUCTION         DBG=IDP  2883
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    69
  
  
                                         DAZ=Q    DATA   -1          FLAG TO INDICATE 18 BIT *Q*                 DBG=IDP  2884
                                                  DATA   1R+                                                     DBG=IDP  2885
                                                  DATA   1R-                                                     DBG=IDP  2886
                                                  DATA   1R*                                                     DBG=IDP  2887
                                                  DATA   1R/                                                     DBG=IDP  2888
                                                  DATA   1R,                                                     DBG=IDP  2889
                                                  DATA   1RA                                                     DBG=IDP  2890
                                                  DATA   1RB                                                     DBG=IDP  2891
                                                  DATA   -0          FLAG TO INDICATE CONDITIONAL *B0* ASSEMBLY  DBG=IDP  2892
                                                  DATA   1RX                                                     DBG=IDP  2893
                                                  DATA   1R                                                      DBG=IDP  2894
                                         INST     SPACE  4,8                                                     DBG=IDP  2895
                                        **        INST - MACRO TO GENERATE INSTRUCTION SKELETONS.                DBG=IDP  2896
                                        *         GENERATES TABLE OF INSTRUCTION SKELETONS USED BY *PIG* TO      DBG=IDP  2897
                                        *                CONVERT INSTRUCTIONS TO HUMAN-READABLE FORM FOR THE     DBG=IDP  2898
                                        *                OBJECT CODE LISTING.                                    DBG=IDP  2899
                                        *                                                                        DBG=IDP  2900
                                        *         INST   (KEY),BJMP,FORCE,IJJ                                    DBG=IDP  2901
                                        *                                                                        DBG=IDP  2902
                                        *         *KEY*  = INSTRUCTION DESCRIPTOR.  EACH CHARACTER OF THE *KEY*  DBG=IDP  2903
                                        *                  HAS MEANING AS FOLLOWS --                             DBG=IDP  2904
                                        *                            I   I-PORTION OF INSTRUCTION                DBG=IDP  2905
                                        *                            J   J-PORTION OF INSTRUCTION                DBG=IDP  2906
                                        *                            K   K-PORTION OF INSTRUCTION (3 BITS ONLY)  DBG=IDP  2907
                                        *                            Q   18-BIT *K* ADDRESS FIELD (MUST BE LAST) DBG=IDP  2908
                                        *                            C   OUTPUT A *B* IF THE NEXT REGISTER IS    DBG=IDP  2909
                                        *                                            NOT A ZERO,                 DBG=IDP  2910
                                        *                                            ELSE, SKIP THE NEXT 2 ITEMS DBG=IDP  2911
                                        *                            + - * / A B X , AND BLANK ALL STAND FOR     DBG=IDP  2912
                                        *                                            THEMSELVES.                 DBG=IDP  2913
                                        *         *BJMP* = NON-EMPTY IF THIS A *B-REGISTER* JUMP INSTRUCTION.    DBG=IDP  2914
                                        *                            (04 THRU 07 INSTRUCTION.)                   DBG=IDP  2915
                                        *         *FORCE*= THIS INSTRUCTION FORCES THE NEXT INSTRUCTION UPPER.   DBG=IDP  2916
                                        *         *COPY* = COPY *J* INTO *K*.                                    DBG=IDP  2917
                                                                                                                 DBG=IDP  2918
                                         #DAZ     IF     -DEF,DAZ=PS                                             DBG=IDP  2919
                                         P.COPY   =      2*CHAR                                                  DBG=IDP  2920
                                                  NOREF  D,L                                                     DBG=IDP  2921
                                                                                                                 DBG=IDP  2922
                                                                                                                 DBG=IDP  2923
                                         INST     MACRO  KEY,BJMP,FORCE,IJJ                                      DBG=IDP  2924
                                         A        MICRO  3,1,=KEY=                                               DBG=IDP  2925
                                         B        MICRO  5,,=KEY=                                                DBG=IDP  2926
                                         B        MICRO  1,,="A""B"=                                             DBG=IDP  2927
                                         C        MICCNT B                                                       DBG=IDP  2928
                                         D        SET    0                                                       DBG=IDP  2929
                                         L        SET    0                                                       DBG=IDP  2930
                                         A        MICRO  C+3,1,=KEY=                                             DBG=IDP  2931
                                                  IFC    EQ,="A"=Q=,1                                            DBG=IDP  2932
                                         L        SET    L+4                                                     DBG=IDP  2933
                                                  IFC    NE,,BJMP,,,1                                            DBG=IDP  2934
                                         L        SET    L+2                                                     DBG=IDP  2935
                                                  IFC    NE,,FORCE,,,1                                           DBG=IDP  2936
                                         L        SET    L+1                                                     DBG=IDP  2937
                                                  VFD    3/L                                                     DBG=IDP  2938
                                        .1        DUP    C                                                       DBG=IDP  2939
                                         D        SET    D+1                                                     DBG=IDP  2940
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    70
  
  
                                         A        MICRO  D,1,="B"=                                               DBG=IDP  2941
                                         A        MICRO  2*1R"A"-1,2,/101112-D-E-F-G-H010203-L-M-N-O-P04-R-S-T-U DBG=IDP  2942
                                        ,-V-W13-Y-Z-0-1-2-3-4-5-6-7-8-905060708-(-)-$-=1409/                     DBG=IDP  2943
                                                  VFD    4/"A"                                                   DBG=IDP  2944
                                        .1        ENDD                                                           DBG=IDP  2945
                                                  IFLE   $,2*6-1+4,1                                             DBG=IDP  2946
                                         8        ERR    INST - DESCRIPTOR (KEY) IS TOO LONG                     DBG=IDP  2947
                                                  POS    P.COPY+1                                                DBG=IDP  2948
                                         A        MICRO  1,2, KEY                                                DBG=IDP  2949
                                                  VFD    1/IJJ,12/2R"A"                                          DBG=IDP  2950
                                         INST     ENDM                                                           DBG=IDP  2951
                                         DAZ=PS   SPACE  4,8                                                     DBG=IDP  2952
                                        **        DAZ=PS - INSTRUCTION SKELETON TABLES FOR *DAZ*.                DBG=IDP  2953
                                                                                                                 DBG=IDP  2954
                                                                                                                 DBG=IDP  2955
                                         DAZ=PS   INST   (PS  Q)               00    (FAKE)                      DBG=IDP  2956
                                                  INST   (RJ  Q),,1            01                                DBG=IDP  2957
                                                  INST   (JP  CI+Q),,1         02                                DBG=IDP  2958
                                                  INST   (JXI XJ,Q)            03I  (FAKE)                       DBG=IDP  2959
                                         DAZ=EQ   INST   (EQ  CI,CJ,Q),1       04                                DBG=IDP  2960
                                                  INST   (NE  CI,CJ,Q),1       05                                DBG=IDP  2961
                                                  INST   (GE  BI,CJ,Q),1       06                                DBG=IDP  2962
                                                  INST   (LT  BI,CJ,Q),1       07                                DBG=IDP  2963
                                                                                                                 DBG=IDP  2964
                                                  INST   (BXI XJ),,,1          10                                DBG=IDP  2965
                                                  INST   (BXI XJ*XK)           11                                DBG=IDP  2966
                                                  INST   (BXI XJ+XK)           12                                DBG=IDP  2967
                                                  INST   (BXI XJ-XK)           13                                DBG=IDP  2968
                                                  INST   (BXI -XJ),,,1         14                                DBG=IDP  2969
                                                  INST   (BXI -XK*XJ)          15                                DBG=IDP  2970
                                                  INST   (BXI -XK+XJ)          16                                DBG=IDP  2971
                                                  INST   (BXI -XJ-XK)          17                                DBG=IDP  2972
                                                                                                                 DBG=IDP  2973
                                                  INST   (LXI JKB)             20                                DBG=IDP  2974
                                                  INST   (AXI JKB)             21                                DBG=IDP  2975
                                                  INST   (LXI CJ,XK)           22                                DBG=IDP  2976
                                                  INST   (AXI CJ,XK)           23                                DBG=IDP  2977
                                                  INST   (NXI CJ,XK)           24                                DBG=IDP  2978
                                                  INST   (ZXI CJ,XK)           25                                DBG=IDP  2979
                                                  INST   (UXI CJ,XK)           26                                DBG=IDP  2980
                                                  INST   (PXI CJ,XK)           27                                DBG=IDP  2981
                                                                                                                 DBG=IDP  2982
                                                  INST   (FXI XJ+XK)           30                                DBG=IDP  2983
                                                  INST   (FXI XJ-XK)           31                                DBG=IDP  2984
                                                  INST   (DXI XJ+XK)           32                                DBG=IDP  2985
                                                  INST   (DXI XJ-XK)           33                                DBG=IDP  2986
                                                  INST   (RXI XJ+XK)           34                                DBG=IDP  2987
                                                  INST   (RXI XJ-XK)           35                                DBG=IDP  2988
                                                  INST   (IXI XJ+XK)           36                                DBG=IDP  2989
                                                  INST   (IXI XJ-XK)           37                                DBG=IDP  2990
                                                                                                                 DBG=IDP  2991
                                                  INST   (FXI XJ*XK)           40                                DBG=IDP  2992
                                                  INST   (RXI XJ*XK)           41                                DBG=IDP  2993
                                                  INST   (DXI XJ*XK)           42                                DBG=IDP  2994
                                                  INST   (MXI JKB)             43                                DBG=IDP  2995
                                                  INST   (FXI XJ/XK)           44                                DBG=IDP  2996
                                                  INST   (RXI XJ/XK)           45                                DBG=IDP  2997
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    71
  
  
                                                  INST   (NO  IJKB)            46                                DBG=IDP  2998
                                                  INST   (CXI XK),,,1          47                                DBG=IDP  2999
                                                                                                                 DBG=IDP  3000
                                                  INST   (SAI AJ+Q)            50                                DBG=IDP  3001
                                                  INST   (SAI CJ+Q)            51                                DBG=IDP  3002
                                                  INST   (SAI XJ+Q)            52                                DBG=IDP  3003
                                                  INST   (SAI CK+XJ)           53                                DBG=IDP  3004
                                                  INST   (SAI CK+AJ)           54                                DBG=IDP  3005
                                                  INST   (SAI AJ-BK)           55                                DBG=IDP  3006
                                                  INST   (SAI CK+BJ)           56                                DBG=IDP  3007
                                                  INST   (SAI -BK+BJ)          57                                DBG=IDP  3008
                                                                                                                 DBG=IDP  3009
                                                  INST   (SBI AJ+Q)            60                                DBG=IDP  3010
                                                  INST   (SBI CJ+Q)            61                                DBG=IDP  3011
                                                  INST   (SBI XJ+Q)            62                                DBG=IDP  3012
                                                  INST   (SBI CK+XJ)           63                                DBG=IDP  3013
                                                  INST   (SBI CK+AJ)           64                                DBG=IDP  3014
                                                  INST   (SBI AJ-BK)           65                                DBG=IDP  3015
                                                  INST   (SBI CK+BJ)           66                                DBG=IDP  3016
                                                  INST   (SBI -BK+BJ)          67                                DBG=IDP  3017
                                                                                                                 DBG=IDP  3018
                                                  INST   (SXI AJ+Q)            70                                DBG=IDP  3019
                                                  INST   (SXI CJ+Q)            71                                DBG=IDP  3020
                                                  INST   (SXI XJ+Q)            72                                DBG=IDP  3021
                                                  INST   (SXI CK+XJ)           73                                DBG=IDP  3022
                                                  INST   (SXI CK+AJ)           74                                DBG=IDP  3023
                                                  INST   (SXI AJ-BK)           75                                DBG=IDP  3024
                                                  INST   (SXI CK+BJ)           76                                DBG=IDP  3025
                                                  INST   (SXI -BK+BJ)          77                                DBG=IDP  3026
                                                                                                                 DBG=IDP  3027
                                         DAZ=XJP  INST   (ZR  XJ,Q)            030                               DBG=IDP  3028
                                                  INST   (NZ  XJ,Q)            031                               DBG=IDP  3029
                                                  INST   (PL  XJ,Q)            032                               DBG=IDP  3030
                                                  INST   (MI  XJ,Q)            033                               DBG=IDP  3031
                                                  INST   (IR  XJ,Q)            034                               DBG=IDP  3032
                                                  INST   (OR  XJ,Q)            035                               DBG=IDP  3033
                                                  INST   (DF  XJ,Q)            036                               DBG=IDP  3034
                                                  INST   (ID  XJ,Q)            037                               DBG=IDP  3035
                                         #DAZ     ENDIF                                                          DBG=IDP  3036
                                         DOD      SPACE  4,8                                                     DBG0002  1215
                                        **        DOD - DUMP CENTRAL MEMORY -- OCTAL AND DPC.                    DBG0002  1216
                                        *                                                                        DBG0002  1217
                                        *                                                                        DBG0002  1218
                                        *                CONVERTS CM WORDS TO OCTAL DPC AND ALSO DUMPS THE       DBG0002  1219
                                        *         UNCONVERTED DPC EQUIVALENT IN THE FOLLOWING FORMAT--           DBG0002  1220
                                        *     COL 1         1         1         1         1         1            DBG0002  1221
                                        *         ..NNNNNN..CCCCCCCCCCCCCCCCCCCC..........UUUUUUUUUU             DBG0002  1222
                                        *         N = ADDR OF WORD DUMPED                                        DBG0002  1223
                                        *         C = CONVERTED CM WORD                                          DBG0002  1224
                                        *         U = UNCONVERTED CM WORD. NOTE--TRAILING COLONS ARE TREATED AS  DBG0002  1225
                                        *               AN EOL AND THEREFORE WILL NOT APPEAR.                    DBG0002  1226
                                        *         . = BLANK(55B)                                                 DBG0002  1227
                                        *                                                                        DBG0002  1228
                                        *         ENTRY  (X2) = 18/0,21/LEV OF IND ADDR,21/FWA                   DBG0002  1229
                                        *                (X3) = 18/0,21/LEV OF IND ADDR,21/LWA                   DBG0002  1230
                                        *                       NOTE-- (X3) IS OPTIONAL                          DBG0002  1231
                                        *                (X4) = 18/0,21/LEV OF IND ADDR,21/LEN                   DBG0002  1232
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    72
  
  
                                        *                         NOTE-- IF LEN = 0, DMP IS FROM FWA TO LWA,     DBG0002  1233
                                        *                         ELSE DMP IS FROM FWA TO FWA+LEN-1              DBG0002  1234
                                        *                                                                        DBG0002  1235
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN IS BAD, ELSE .PL.        DBG0002  1236
                                        *                                                                        DBG0002  1237
                                        *         USES   ALL BUT B4        (INCLUDES ALL CALLS)                  DBG0002  1238
                                        *                                                                        DBG0002  1239
                                        *         CALLS  COD,FLL,PRIDP,WOD                                       DBG0002  1240
                                                                                                                 DBG0002  1241
                                                                                                                 DBG0002  1242
                                         DOD      SUBR               ** ENTRY/EXIT **                            DBG0002  1243
                                                  RJ     FLL         CHECK FWA,LWA, AND LENGTH                   DBG0002  1244
                                                  MI     B2,EXIT.    IF FWA,LWA, OR LEN IS BAD                   DBG0002  1245
                                                                                                                 DBG0002  1246
                                        *         HERE TO BUILD SNAP OUTPUT LINE.                                DBG0002  1247
                                                                                                                 DBG0002  1248
                                         DOD2     SA1    AP=FWA      (X1) = ADDR OF NEXT WORD TO DUMP            DBG0002  1249
                                                  SA2    A1+B1       (X2) = LWA TO DUMP                          DBG0002  1250
                                                  IX3    X2-X1                                                   DBG0002  1251
                                                  SX6    X1+B1                                                   DBG0002  1252
                                                  SB2    B0          SET TO *NO ERROR OCCURRED*                  DBG0002  1253
                                                  MI     X3,EXIT.    IF FINISHED                                 DBG0002  1254
                                                  SA6    A1                                                      DBG0002  1255
                                                  SA0    X1                                                      DBG0002  1256
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG0002  1257
                                                  LX6    8*CHAR-6*CHAR                                           DBG0002  1258
                                                  SA6    SNAPLNE                                                 DBG0002  1259
                                                  SA1    A0          (X1) = NEXT WORD TO BE DUMPED               DBG0002  1260
                                                  RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC     DBG0002  1261
                                                  SA6    A6+B1                                                   DBG0002  1262
                                                  SA7    A6+B1                                                   DBG0002  1263
                                                  SA1    =10H                                                    DBG0002  1264
                                                  SA2    A0                                                      DBG0002  1265
                                                  BX6    X1                                                      DBG0002  1266
                                                  LX7    X2                                                      DBG0002  1267
                                                  SA6    A7+B1                                                   DBG0002  1268
                                                  SA7    A6+B1                                                   DBG0002  1269
                                                  MX6    0                                                       DBG0002  1270
                                                  SA6    A7+B1       MARK EOL                                    DBG0002  1271
                                                  PRIDP  SNAPLNE                                                 DBG0002  1272
                                                  EQ     DOD2                                                    DBG0002  1273
                                         FRZ      SPACE  4,8                                                     DBG0006    34
                                        **        FRZ - FREEZE INTERACTIVE SESSION.                              DBG0006    35
                                        *                                                                        DBG0006    36
                                        *                                                                        DBG0006    37
                                        *         PERFORMS A CHECKPOINT OF AN INTERACTIVE SESSION BY             DBG0006    38
                                        *         WRITING THE CURRENT CORE IMAGE TO LFN *F.FRZ* IN A             DBG0006    39
                                        *         SPECIAL FORMAT.                                                DBG0006    40
                                        *                                                                        DBG0006    41
                                        *         *F.FRZ* FORMAT --                                              DBG0006    42
                                        *                                                                        DBG0006    43
                                        *           RECORD 1 CONSISTS OF A LOADER ABSOLUTE BINARY, CALLED *IFR*  DBG0006    44
                                        *           (IDP FREEZE RESTART), THAT WHEN EXECUTED WILL READ THE       DBG0006    45
                                        *           FROZEN HOST BACK INTO CORE (OVERLAYING ITSELF), AND          DBG0006    46
                                        *           THEN REINVOKE *IDP*.                                         DBG0006    47
                                        *                                                                        DBG0006    48
                                        *           RECORD 2 CONTAINS THE CORE IMAGE OF THE FROZEN HOST.         DBG0006    49
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    73
  
  
                                        *                                                                        DBG0006    50
                                        *         SEE ROUTINE *IFR* IN DATA SECTION BEGINNING AT ADDR *FW.IFR*.  DBG0006    51
                                        *                                                                        DBG0006    52
                                        *         ENTRY  NONE                                                    DBG0006    53
                                        *                                                                        DBG0006    54
                                        *         EXIT   *F.FRZ* WRITTEN                                         DBG0006    55
                                        *                                                                        DBG0006    56
                                        *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)              DBG0006    57
                                        *                                                                        DBG0006    58
                                        *         CALLS  MEMORY,REWIND,WRITER,WRITEW                             DBG0006    59
                                                                                                                 DBG0006    60
                                                                                                                 DBG0006    61
                                         FRZ      SUBR               ** ENTRY/EXIT **                            DBG0006    62
                                                                                                                 DBG0006    63
                                        *         FIND OUT ACTUAL FIELD LENGTH SCM (AFLS) SO THAT *IFR*          DBG0006    64
                                        *         CAN KNOW HOW MUCH IS NEEDED TO RESTART.  IF *CMM* IS ACTIVE,   DBG0006    65
                                        *         SAVE THIS KNOWLEDGE IN (CMMFLG) SO THAT *IFR* CAN KNOW         DBG0006    66
                                        *         TO INDICATE SO TO OPERATING SYSTEM.                            DBG0006    67
                                                                                                                 DBG0006    68
                                                  SA1    RA.LWP                                                  DBG0006    69
                                                  BX6    X6-X6                                                   DBG0006    70
                                                  SX7    X1          (X7) = .MI. IF *CMM* ACTIVE, ELSE .PL.      DBG0006    71
                                                  SA6    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                            DBG0006    72
                                                  SA7    FW.IFR+/IFR/CMMFLG-RA.ORG                               DBG0006    73
                                                  MEMORY SCM,A6,RCL                                              DBG0006    74
                                                                                                                 DBG0006    75
                                        *         NEED TO SAVE 2 SPECIAL WORDS BECAUSE WE ARE ONLY WRITING       DBG0006    76
                                        *         FROM *RA.MTR+1* TO FL-1 TO *F.FRZ*.                            DBG0006    77
                                        *           1. SAVE (RA.SSW) BECAUSE APPARENTLY *CIO* WILL SOMETIMES     DBG0006    78
                                        *              NOT ALLOW ONE TO HAVE *RA.MTR* IN CIO BUFFER AREA.        DBG0006    79
                                        *           2. SAVE WORD AT FL-1 BECAUSE LWA+1 OF CIO BUFFER IS NOT      DBG0006    80
                                        *              WRITTEN.                                                  DBG0006    81
                                                                                                                 DBG0006    82
                                                  SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                            DBG0006    83
                                                  SA2    RA.SSW                                                  DBG0006    84
                                                  SA3    X1-1                                                    DBG0006    85
                                                  BX6    X2                                                      DBG0006    86
                                                  LX7    X3                                                      DBG0006    87
                                                  SA6    FW.IFR+/IFR/SVWDS-RA.ORG                                DBG0006    88
                                                  SA7    A6+B1                                                   DBG0006    89
                                                                                                                 DBG0006    90
                                        *         SET UP AND *OPEN* *F.FRZ* FET FOR RECORD 1 WRITE.              DBG0006    91
                                        *         FIRST, THOUGH, WE NEED TO SET THE *COMPLETE* BIT               DBG0006    92
                                        *         IN *F.FRZ* FET BECAUSE IF WE ARE NOW FREEZING AN               DBG0006    93
                                        *         INTERACTIVE SESSION THAT WAS PREVIOUSLY FROZEN AND UNFROZEN,   DBG0006    94
                                        *         THEN *F.FRZ* IS MARKED AS STILL BEING ACTIVE.  THIS HAPPENS    DBG0006    95
                                        *         BECAUSE WHEN THE PREVIOUS SESSION WAS FROZEN, *F.FRZ* WAS      DBG0006    96
                                        *         USED TO WRITE ITSELF OUT, AND WAS THEREFORE STILL ACTIVE WHEN  DBG0006    97
                                        *         CORE IMAGE WAS WRITTEN TO DISK.                                DBG0006    98
                                                                                                                 DBG0006    99
                                                  SA1    F.FRZ                                                   DBG0006   100
                                                  MX2    -1                                                      DBG0006   101
                                                  BX6    -X2+X1      SET COMPLETE BIT                            DBG0006   102
                                                  SA6    A1                                                      DBG0006   103
                                                                                                                 DBG0006   104
                                                  SX6    FW.IFR                                                  DBG0006   105
                                                  SX7    FW.IFR+L.IFR-1                                          DBG0006   106
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    74
  
  
                                                  SA6    A6+B1       FIRST  = FW.IFR                             DBG0006   107
                                                  SA7    A6+B1       IN     = FW.IFR+L.IFR-1                     DBG0006   108
                                                  SA6    A7+B1       OUT    = FW.IFR                             DBG0006   109
                                                  SX7    X7+B1                                                   DBG0006   110
                                                  SA7    A6+B1       LIMIT  = FW.IFR+L.IFR                       DBG0006   111
                                                                                                                 DBG0006   112
                                                  OPEN   A1,,RCL                                                 DBG0006   113
                                                  SA1    F.FRZ+4     (X1) = LIMIT                                DBG0006   114
                                                  SX6    X1-1                                                    DBG0006   115
                                                  SA6    F.FRZ+2     IN = LIMIT-1                                DBG0006   116
                                                                                                                 DBG0006   117
                                        *         WRITE INTERACTIVE FREEZE RESTART PROGRAM, *IFR*,               DBG0006   118
                                        *         TO RECORD 1 OF *F.FRZ*.                                        DBG0006   119
                                                                                                                 DBG0006   120
                                                  WRITER F.FRZ,,RCL                                              DBG0006   121
                                                                                                                 DBG0006   122
                                        *         SET UP *F.FRZ* FET SO THAT BUFFER IS ALL OF FL.                DBG0006   123
                                                                                                                 DBG0006   124
                                                  SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                            DBG0006   125
                                                  SX6    RA.MTR+1    (X6) = FIRST = OUT                          DBG0006   126
                                                  LX1    30                                                      DBG0006   127
                                                  SX7    X1-2        (X7) = IN = AFLS-2 (FOR SAFETY)             DBG0006   128
                                                  SA6    F.FRZ+1     FIRST = RA.MTR+1                            DBG0006   129
                                                  SA7    A6+B1       IN =AFLS-2                                  DBG0006   130
                                                  SA6    A7+B1       OUT = RA.MTR+1                              DBG0006   131
                                                  SX7    X7+B1       (X7) = LIMIT = AFLS-1 (FOR SAFETY)          DBG0006   132
                                                  SA7    A6+B1       LIMIT = AFLS-1                              DBG0006   133
                                                                                                                 DBG0006   134
                                        *         WRITE ALL OF SCM TO *F.FRZ/RECORD 2*.                          DBG0006   135
                                                                                                                 DBG0006   136
                                                  WRITER F.FRZ,,RCL                                              DBG0006   137
                                                  EQ     EXIT.                                                   DBG0006   138
                                         IST      SPACE  4,8                                                     DBG=IDP  3037
                                        **        IST - INITIALIZE *SET* TABLE.                                  DBG=IDP  3038
                                        *                                                                        DBG=IDP  3039
                                        *                                                                        DBG=IDP  3040
                                        *                THIS ROUTINE SETS UP THE DEFAULT *SET* TABLE VALUES.    DBG=IDP  3041
                                        *                                                                        DBG=IDP  3042
                                        *         ENTRY  NONE                                                    DBG=IDP  3043
                                        *                                                                        DBG=IDP  3044
                                        *         EXIT   NONE                                                    DBG=IDP  3045
                                        *                                                                        DBG=IDP  3046
                                        *         USES   ALL                                                     DBG=IDP  3047
                                        *                                                                        DBG=IDP  3048
                                        *         CALLS  ADZ                                                     DBG=IDP  3049
                                                                                                                 DBG=IDP  3050
                                                                                                                 DBG=IDP  3051
                                         IST      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3052
                                                  SB6    IDPSET      (B6) = FWA OF IDP *SET* TABLE               DBG=IDP  3053
                                                  SA1    =4LTEMP                                                 DBG=IDP  3054
                                                  SX6    IDPTMP                                                  DBG=IDP  3055
                                                  BX6    X1+X6       (X6) = 42/0LTEMP,18/FWA OF TEMP AREA        DBG=IDP  3056
                                                  RJ     ADZ         ADD WORD TO IDP TABLE                       DBG=IDP  3057
                                                  SX7    1RP                                                     DBG=IDP  3058
                                                  SX6    IDPPREG                                                 DBG=IDP  3059
                                                  LX7    10*CHAR-1*CHAR                                          DBG=IDP  3060
                                                  BX6    X7+X6       (X6) = 42/0LP, 18/ADDR OF PSEUDO P REGISTER DBG=IDP  3061
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    75
  
  
                                                  RJ     ADZ         ADD WORD TO IDP TABLE                       DBG=IDP  3062
                                                  EQ     EXIT.                                                   DBG=IDP  3063
                                         LBT      SPACE  4,8                                                     DBG=IDP  3064
                                        **        LBT - LIST BREAK TABLE.                                        DBG=IDP  3065
                                        *                                                                        DBG=IDP  3066
                                        *                                                                        DBG=IDP  3067
                                        *                LISTS THE CONTENTS OF THE PARALLEL BREAK TABLES         DBG=IDP  3068
                                        *         *IDPBA/IDPBC* IN THREE FORMS, DEPENDING ON THE TYPE OF BREAK-- DBG=IDP  3069
                                        *                                                                        DBG=IDP  3070
                                        *     COL 1         1         1         1        (.=BLANK(55B))          DBG=IDP  3071
                                        *         .BREAK.AT.NNNNNN.IN.XXXXXXX                                    DBG=IDP  3072
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             DBG=IDP  3073
                                        *                                                                        DBG=IDP  3074
                                        *         .BRPL..AT.NNNNNN.IN.XXXXXXX....A1.NNNNNN                       DBG=IDP  3075
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             DBG=IDP  3076
                                        *                                                                        DBG=IDP  3077
                                        *         .BREQ..AT.NNNNNN.IN.XXXXXXX....A1.NNNNNN.A2.NNNNNN             DBG=IDP  3078
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             DBG=IDP  3079
                                        *                                                                        DBG=IDP  3080
                                        *         ENTRY  NONE                                                    DBG=IDP  3081
                                        *                                                                        DBG=IDP  3082
                                        *         EXIT   NONE                                                    DBG=IDP  3083
                                        *                                                                        DBG=IDP  3084
                                        *         USES   ALL BUT A0                                              DBG=IDP  3085
                                        *                                                                        DBG=IDP  3086
                                        *         CALLS  COD,FRA=,PRIDP,SFN                                      DBG=IDP  3087
                                                                                                                 DBG=IDP  3088
                                                                                                                 DBG=IDP  3089
                                         LBT      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3090
                                                                                                                 DBG=IDP  3091
                                        *         SET UP FOR 1ST ENTRY.                                          DBG=IDP  3092
                                                                                                                 DBG=IDP  3093
                                                  SA5    IDPBA                                                   DBG=IDP  3094
                                                  EQ     LBT2                                                    DBG=IDP  3095
                                                                                                                 DBG=IDP  3096
                                        *         MAIN LOOP.                                                     DBG=IDP  3097
                                                                                                                 DBG=IDP  3098
                                         LBT1     SA5    A5+B1                                                   DBG=IDP  3099
                                                                                                                 DBG=IDP  3100
                                         LBT2     ZR     X5,EXIT.    IF FINISHED LISTING ALL BREAKS              DBG=IDP  3101
                                                  SX6    X5+B1                                                   DBG=IDP  3102
                                                  ZR     X6,LBT1     IF THIS ENTRY AVAILABLE (NOT A BREAK)       DBG=IDP  3103
                                                                                                                 DBG=IDP  3104
                                        *         ASSEMBLE * BREAK AT *.                                         DBG=IDP  3105
                                                                                                                 DBG=IDP  3106
                                                  SX4    X5          (X4) = BREAK ADDRESS                        DBG=IDP  3107
                                                  LX5    6                                                       DBG=IDP  3108
                                                  MX0    -6                                                      DBG=IDP  3109
                                                  BX6    -X0*X5      (X6) = BREAK TYPE CODE                      DBG=IDP  3110
                                                  MX0    7*CHAR                                                  DBG=IDP  3111
                                                  SA1    IDPKBR+X6                                               DBG=IDP  3112
                                                  SA6    IDPBTC                                                  DBG=IDP  3113
                                                  BX1    X0*X1                                                   DBG=IDP  3114
                                                  RJ     =XSFN       SPACE FILL NAME                             DBG=IDP  3115
                                                  LX6    -CHAR                                                   DBG=IDP  3116
                                                  BX6    X0*X6                                                   DBG=IDP  3117
                                                  SX7    3RAT                                                    DBG=IDP  3118
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    76
  
  
                                                  BX6    X6+X7       (X6) = .BREAK.AT.   (.=BLANK(55B))          DBG=IDP  3119
                                                  SA6    SNAPLNE                                                 DBG=IDP  3120
                                                                                                                 DBG=IDP  3121
                                        *         ASSEMBLE *NNNNNN IN XXXXXXX   *.                               DBG=IDP  3122
                                                                                                                 DBG=IDP  3123
                                                  SX1    X4                                                      DBG=IDP  3124
                                                                                                                 DBG=IDP  3125
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  3126
                                                  SB7    LBT3        (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP  3127
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  3128
                                                                                                                 DBG=IDP  3129
                                         LBT3     BSS    0                                                       DBG=IDP  3130
                                                                                                                 DBG=IDP  3131
                                         #FRA     ELSE                                                           DBG=IDP  3132
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3133
                                                  BX6    X4                                                      DBG=IDP  3134
                                                  MX7    0                                                       DBG=IDP  3135
                                         #FRA     ENDIF                                                          DBG=IDP  3136
                                                                                                                 DBG=IDP  3137
                                                  SA6    A6+B1                                                   DBG=IDP  3138
                                                  SA7    A6+B1                                                   DBG=IDP  3139
                                                  SA2    IDPBTC                                                  DBG=IDP  3140
                                                  ZR     X2,LBT5     IF *BREAK ADDR,LL,UL,INC* FORM              DBG=IDP  3141
                                                  BX1    X7                                                      DBG=IDP  3142
                                                  RJ     SFN         SPACE FILL NAME                             DBG=IDP  3143
                                                  SA6    A6+B1       RE-STORE BLANK FILLED *XXXXXXX   *          DBG=IDP  3144
                                                                                                                 DBG=IDP  3145
                                        *         ASSEMBLE * A1 NNNNNN*.                                         DBG=IDP  3146
                                                                                                                 DBG=IDP  3147
                                                  LX5    18                                                      DBG=IDP  3148
                                                  SX1    X5                                                      DBG=IDP  3149
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3150
                                                  SA2    IDPBTC                                                  DBG=IDP  3151
                                                  SX1    3R A1                                                   DBG=IDP  3152
                                                  MX0    -7*CHAR                                                 DBG=IDP  3153
                                                  BX6    -X0*X6                                                  DBG=IDP  3154
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3155
                                                  BX1    X0*X1                                                   DBG=IDP  3156
                                                  BX6    X6+X1       (X6) = .A1.NNNNNN   (.=BLANK(55B))          DBG=IDP  3157
                                                  SA6    A6+B1                                                   DBG=IDP  3158
                                                  SX2    X2-BTC=EQ                                               DBG=IDP  3159
                                                  MI     X2,LBT4     IF *BRPL ADDR,A1,LL,UL,INC* FORM            DBG=IDP  3160
                                                                                                                 DBG=IDP  3161
                                        *         ASSEMBLE * A2 NNNNNN*.                                         DBG=IDP  3162
                                                                                                                 DBG=IDP  3163
                                                  LX5    18                                                      DBG=IDP  3164
                                                  SX1    X5                                                      DBG=IDP  3165
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3166
                                                  SX1    3R A2                                                   DBG=IDP  3167
                                                  MX0    -7*CHAR                                                 DBG=IDP  3168
                                                  BX6    -X0*X6                                                  DBG=IDP  3169
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3170
                                                  BX1    X0*X1                                                   DBG=IDP  3171
                                                  BX6    X6+X1       (X6) = .A2.NNNNNN   (.=BLANK(55B))          DBG=IDP  3172
                                                  SA6    A6+B1                                                   DBG=IDP  3173
                                                                                                                 DBG=IDP  3174
                                         LBT4     MX6    0                                                       DBG=IDP  3175
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    77
  
  
                                                  SA6    A6+B1       MARK EOL                                    DBG=IDP  3176
                                                                                                                 DBG=IDP  3177
                                         LBT5     PRIDP  SNAPLNE                                                 DBG=IDP  3178
                                                                                                                 DBG=IDP  3179
                                        *         ASSEMBLE *           LL NNNNN *.                               DBG=IDP  3180
                                                                                                                 DBG=IDP  3181
                                                  SA1    =10H                                                    DBG=IDP  3182
                                                  SB7    A5-IDPBA                                                DBG=IDP  3183
                                                  SB6    B7+B7                                                   DBG=IDP  3184
                                                  SA2    IDPBC+B6+1  (X2) = 2ND WORD OF *IDPBC* ENTRY            DBG=IDP  3185
                                                  BX6    X1                                                      DBG=IDP  3186
                                                  BX5    X2                                                      DBG=IDP  3187
                                                  LX5    15                                                      DBG=IDP  3188
                                                  MX0    -15                                                     DBG=IDP  3189
                                                  BX1    -X0*X5                                                  DBG=IDP  3190
                                                  SA6    SNAPLNE                                                 DBG=IDP  3191
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3192
                                                  SX1    3R LL                                                   DBG=IDP  3193
                                                  LX4    -4*CHAR     LEFT JUSTIFY NR TO BIT 35                   DBG=IDP  3194
                                                  BX6    X4          (X6) = ....NNNNN.   (.=BLANK(55B))          DBG=IDP  3195
                                                  MX0    -7*CHAR                                                 DBG=IDP  3196
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3197
                                                  BX1    X0*X1                                                   DBG=IDP  3198
                                                  BX6    -X0*X6                                                  DBG=IDP  3199
                                                  BX6    X6+X1       (X6) = .LL.NNNNN.   (.=BLANK(55B))          DBG=IDP  3200
                                                  SA6    A6+B1                                                   DBG=IDP  3201
                                                                                                                 DBG=IDP  3202
                                        *         ASSEMBLE * UL NNNNN *.                                         DBG=IDP  3203
                                                                                                                 DBG=IDP  3204
                                                  LX5    15                                                      DBG=IDP  3205
                                                  MX0    -15                                                     DBG=IDP  3206
                                                  BX1    -X0*X5      (X1) = UL                                   DBG=IDP  3207
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3208
                                                  SX1    3R UL                                                   DBG=IDP  3209
                                                  LX4    -4*CHAR                                                 DBG=IDP  3210
                                                  BX6    X4          (X6) = ....NNNNN.   (.=BLANK(55B))          DBG=IDP  3211
                                                  MX0    -7*CHAR                                                 DBG=IDP  3212
                                                  BX6    -X0*X6                                                  DBG=IDP  3213
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3214
                                                  BX1    X0*X1                                                   DBG=IDP  3215
                                                  BX6    X6+X1       (X6) = .UL.NNNNN.   (.=BLANK(55B))          DBG=IDP  3216
                                                  SA6    A6+B1                                                   DBG=IDP  3217
                                                                                                                 DBG=IDP  3218
                                        *         ASSEMBLE * INC NNNN *.                                         DBG=IDP  3219
                                                                                                                 DBG=IDP  3220
                                                  LX5    12                                                      DBG=IDP  3221
                                                  MX0    -12                                                     DBG=IDP  3222
                                                  BX1    -X0*X5      (X1) = INC                                  DBG=IDP  3223
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3224
                                                  SA1    =4L INC                                                 DBG=IDP  3225
                                                  LX4    -5*CHAR                                                 DBG=IDP  3226
                                                  BX6    X4          (X6) = .....NNNN.   (.=BLANK(55B))          DBG=IDP  3227
                                                  MX0    -6*CHAR                                                 DBG=IDP  3228
                                                  BX6    -X0*X6                                                  DBG=IDP  3229
                                                  BX6    X6+X1       (X6) = .INC.NNNN.   (.=BLANK(55B))          DBG=IDP  3230
                                                  SA6    A6+B1                                                   DBG=IDP  3231
                                                                                                                 DBG=IDP  3232
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    78
  
  
                                        *         ASSEMBLE *CNT NNNNNN*.                                         DBG=IDP  3233
                                                                                                                 DBG=IDP  3234
                                                  LX5    18                                                      DBG=IDP  3235
                                                  SX1    X5                                                      DBG=IDP  3236
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3237
                                                  SX1    3RCNT                                                   DBG=IDP  3238
                                                  MX0    -7*CHAR                                                 DBG=IDP  3239
                                                  BX6    -X0*X6                                                  DBG=IDP  3240
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3241
                                                  BX1    X0*X1                                                   DBG=IDP  3242
                                                  BX6    X6+X1       (X6) = CNT.NNNNNN   (.=BLANK(55B))          DBG=IDP  3243
                                                  MX7    0                                                       DBG=IDP  3244
                                                  SA6    A6+B1                                                   DBG=IDP  3245
                                                  SA7    A6+B1       MARK EOL                                    DBG=IDP  3246
                                                  PRIDP  SNAPLNE                                                 DBG=IDP  3247
                                                  EQ     LBT1                                                    DBG=IDP  3248
                                         LST      SPACE  4,8                                                     DBG=IDP  3249
                                        **        LST - LIST *SET* NAME TABLE.                                   DBG=IDP  3250
                                        *                                                                        DBG=IDP  3251
                                        *                                                                        DBG=IDP  3252
                                        *         ENTRY  (A5,X5) =   ADDR + CNTS OF 1ST *SET* TABLE ENTRY        DBG=IDP  3253
                                        *                                                                        DBG=IDP  3254
                                        *         EXIT   NONE                                                    DBG=IDP  3255
                                        *                                                                        DBG=IDP  3256
                                        *         USES   ALL                                                     DBG=IDP  3257
                                        *                                                                        DBG=IDP  3258
                                        *         CALLS  COD,FRA=,PRIDP,SFN                                      DBG=IDP  3259
                                                                                                                 DBG=IDP  3260
                                                                                                                 DBG=IDP  3261
                                         LST      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3262
                                                                                                                 DBG=IDP  3263
                                         LST2     ZR     X5,EXIT.    IF FINISHED ALL SET NAMES                   DBG=IDP  3264
                                                  SX1    B1                                                      DBG=IDP  3265
                                                  IX6    X5+X1                                                   DBG=IDP  3266
                                                  ZR     X6,LST4     IF THIS ENTRY IS AVAILABLE (NOT A SET)      DBG=IDP  3267
                                                  MX0    7*CHAR                                                  DBG=IDP  3268
                                                  BX1    X0*X5       (X1) = 0LNAME                               DBG=IDP  3269
                                                  RJ     =XSFN       SPACE FILL NAME                             DBG=IDP  3270
                                                  LX6    -CHAR                                                   DBG=IDP  3271
                                                  SA6    SNAPLNE                                                 DBG=IDP  3272
                                                  BX1    -X0*X5                                                  DBG=IDP  3273
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC-- SET NAME VALU DBG=IDP  3274
                                                  LX6    4*CHAR                                                  DBG=IDP  3275
                                                  SA6    A6+B1                                                   DBG=IDP  3276
                                                                                                                 DBG=IDP  3277
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  3278
                                                  BX1    -X0*X5                                                  DBG=IDP  3279
                                                  SB7    LST3        (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP  3280
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  3281
                                                                                                                 DBG=IDP  3282
                                         LST3     SA6    A6+B1                                                   DBG=IDP  3283
                                                  SA7    A6+B1                                                   DBG=IDP  3284
                                                                                                                 DBG=IDP  3285
                                         #FRA     ELSE                                                           DBG=IDP  3286
                                                  MX6    0                                                       DBG=IDP  3287
                                                  SA6    A6+B1                                                   DBG=IDP  3288
                                         #FRA     ENDIF                                                          DBG=IDP  3289
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    79
  
  
                                                                                                                 DBG=IDP  3290
                                                  PRIDP  SNAPLNE                                                 DBG=IDP  3291
                                                                                                                 DBG=IDP  3292
                                         LST4     SA5    A5+B1                                                   DBG=IDP  3293
                                                  EQ     LST2                                                    DBG=IDP  3294
                                         LXT      SPACE  4,8                                                     DBG0002  1274
                                        **        LXT - LIST XFER TABLE.                                         DBG0002  1275
                                        *                                                                        DBG0002  1276
                                        *                                                                        DBG0002  1277
                                        *                LISTS THE MOST RECENT TRANSFERS OF CONTROL TO OCCUR     DBG0002  1278
                                        *         DURING STEP MODE (CONTAINED IN *IDPXFT*).                      DBG0002  1279
                                        *                                                                        DBG0002  1280
                                        *         *IDPXFT* FORMAT --                                             DBG0002  1281
                                        *                                                                        DBG0002  1282
                                        *         VFD    60/-1       UNUSED ENTRY (I.E. XFT HAS NOT FILLED YET)  DBG0002  1283
                                        *          .                                                             DBG0002  1284
                                        *          .                                                             DBG0002  1285
                                        *         VFD    30/POS COUNTER,30/P REGISTER OF XFER INSTRUCTION        DBG0002  1286
                                        *          .                                                             DBG0002  1287
                                        *         VFD    60/0        END OF TABLE MARK                           DBG0002  1288
                                        *                                                                        DBG0002  1289
                                        *         ENTRY  (X6) = NR OF ENTRIES TO LIST (BEGINNING W/ MOST RECENT) DBG0002  1290
                                        *                                                                        DBG0002  1291
                                        *         EXIT   NONE                                                    DBG0002  1292
                                        *                                                                        DBG0002  1293
                                        *         USES   ALL                                                     DBG0002  1294
                                        *                                                                        DBG0002  1295
                                        *         CALLS  DAZ                                                     DBG0002  1296
                                                                                                                 DBG0002  1297
                                                                                                                 DBG0002  1298
                                         LXT      SUBR               ** ENTRY/EXIT **                            DBG0002  1299
                                                                                                                 DBG0002  1300
                                        *         INITIALIZATION.                                                DBG0002  1301
                                                                                                                 DBG0002  1302
                                                  SX1    IDPXFT+L.XFT                                            DBG0002  1303
                                                  SX7    X6-L.XFT-1                                              DBG0002  1304
                                                  MI     X7,LXT2     IF NOT ASKING FOR TOO MANY ENTRIES          DBG0002  1305
                                                  SX6    L.XFT                                                   DBG0002  1306
                                                                                                                 DBG0002  1307
                                         LXT2     IX7    X1-X6                                                   DBG0002  1308
                                                  NO                                                             DBG0002  1309
                                                  SA7    LXT=NXT                                                 DBG0002  1310
                                                                                                                 DBG0002  1311
                                        *         ** MAIN LOOP NODE **                                           DBG0002  1312
                                                                                                                 DBG0002  1313
                                         LXT3     SA2    LXT=NXT                                                 DBG0002  1314
                                                  SA3    X2          (X3) = NEXT *XFT* ENTRY                     DBG0002  1315
                                                  SX7    X2+B1                                                   DBG0002  1316
                                                  SX4    X3+B1                                                   DBG0002  1317
                                                  SA7    A2                                                      DBG0002  1318
                                                  ZR     X3,EXIT.    IF HIT END OF TABLE MARK, DONE...           DBG0002  1319
                                                  ZR     X4,LXT3     IF HIT AVAILABLE ENTRY (I.E. *XFT* WAS NOT  DBG0002  1320
                                        *                              FULL TO BEGIN WITH)                       DBG0002  1321
                                                  SA5    X3          (A5,X5) = A+C OF XFER INSTRUCTION           DBG0002  1322
                                                  AX3    30                                                      DBG0002  1323
                                                  SB4    X3          (B4) = POS COUNTER                          DBG0002  1324
                                                  SA7    IDPFAD      SET TO *FORCE OUT ADDR UNCONDITIONALLY*     DBG0002  1325
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    80
  
  
                                                  RJ     DAZ         DEASSEMBLE XFER INSTRUCTION                 DBG0002  1326
                                                  EQ     LXT3                                                    DBG0002  1327
                                                                                                                 DBG0002  1328
                                                                                                                 DBG0002  1329
                                         LXT=NXT  =      APL         SAVED ADDR OF NEXT *XFT* ENTRY              DBG0002  1330
                                         PAS      SPACE  4,8                                                     DBG=IDP  3295
                                        **        PAS - PARSE SUBEXPRESSION.                                     DBG=IDP  3296
                                        *                                                                        DBG=IDP  3297
                                        *                THIS ROUTINE PARSES AN EXPRESSION THAT IS TERMINATED    DBG=IDP  3298
                                        *         BY A -,- OR -EOS-, AND RETURNS THE VALUE OF THE EXPRESSION     DBG=IDP  3299
                                        *         IN THE ACCUMULATOR *IDPACC*.                                   DBG=IDP  3300
                                        *                                                                        DBG=IDP  3301
                                        *         ENTRY  (A5+1,X5)=  ADDR + CONTENTS OF 1ST TOKEN IN EXPRESSION  DBG=IDP  3302
                                        *                                                                        DBG=IDP  3303
                                        *         EXIT   (IDPACC) =  BINARY VALUE OF EXPRESSION                  DBG=IDP  3304
                                        *                (X1)     =  (IDPACC)                                    DBG=IDP  3305
                                        *                (X3)     =  .ZR. IF EXPRESSION WAS NULL, ELSE .NZ.      DBG=IDP  3306
                                        *                (A5,X5)  =  ADDR + CNTS OF TOKEN THAT TERMINATED PARSE  DBG=IDP  3307
                                        *                (X6)     =  (X1) = (IDPACC)                             DBG0002  1331
                                        *                                                                        DBG=IDP  3308
                                        *         USES   ALL                                                     DBG=IDP  3309
                                        *                                                                        DBG=IDP  3310
                                        *         CALLS  DXB,FAA(IF DEF),IDP=ER,SKT                              DBG0002  1332
                                                                                                                 DBG=IDP  3312
                                                                                                                 DBG=IDP  3313
                                         PAS      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3314
                                                                                                                 DBG=IDP  3315
                                        *         INITIALIZATION.                                                DBG=IDP  3316
                                                                                                                 DBG=IDP  3317
                                                  MX6    0                                                       DBG=IDP  3318
                                                  MX7    -1                                                      DBG=IDP  3319
                                                  SA6    IDPACC      CLEAR ACCUMULATOR                           DBG=IDP  3320
                                                  SA6    IDPSGN      SET TO *SIGN IS PLUS*                       DBG=IDP  3321
                                                  SA6    IDPIND      SET TO *DIRECT ADDRESSING*                  DBG=IDP  3322
                                                  SA7    IDPNUL      SET TO *NULL EXPRESSION SO FAR*             DBG=IDP  3324
                                                                                                                 DBG=IDP  3325
                                        *         MAIN LOOP NODE.                                                DBG=IDP  3326
                                                                                                                 DBG=IDP  3327
                                         PS=ALL   SA5    A5+B1       (X5) = NEXT TOKEN TO PARSE                  DBG=IDP  3328
                                                  SA4    IDPNUL                                                  DBG=IDP  3329
                                                  SX7    X4+B1                                                   DBG=IDP  3330
                                                  SA7    A4                                                      DBG=IDP  3331
                                                  ZR     X5,PS=END   IF EOS TOKEN                                DBG=IDP  3332
                                                  MX0    -CHAR                                                   DBG0002  1333
                                                  =X6    X5-O.VAR                                                DBG=IDP  3333
                                                  =X7    X5-O.CONS                                               DBG=IDP  3334
                                                  ZR     X6,PS=NAM   IF NAME TOKEN                               DBG=IDP  3335
                                                  ZR     X7,PS=CON   IF CONSTANT TOKEN                           DBG=IDP  3336
                                                  SX6    X5-O.SEP                                                DBG=IDP  3337
                                                  NZ     X6,IDP.ER   IF NOT SEPARATOR TOKEN, ERR...              DBG=IDP  3338
                                                                                                                 DBG=IDP  3339
                                        *         HERE TO PROCESS A SEPARATOR TOKEN -- *,+-                      DBG=IDP  3340
                                                                                                                 DBG=IDP  3341
                                                  LX5    1*CHAR-10*CHAR                                          DBG0002  1334
                                                  BX5    -X0*X5                                                  DBG0002  1335
                                                  SX6    X5-1R,                                                  DBG=IDP  3343
                                                  SX7    X5-1R*                                                  DBG=IDP  3344
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    81
  
  
                                                  ZR     X6,PS=END   IF , TOKEN                                  DBG=IDP  3345
                                                  ZR     X7,PS=STR   IF * TOKEN                                  DBG=IDP  3346
                                                  SX6    X5-1R+                                                  DBG=IDP  3347
                                                  SX7    X5-1R-                                                  DBG=IDP  3348
                                                  ZR     X6,PS=PL    IF + TOKEN                                  DBG=IDP  3349
                                                  ZR     X7,PS=MI    IF - TOKEN                                  DBG=IDP  3350
                                                  EQ     IDP.ER      ERR - *UNKNOWN TOKEN*                       DBG=IDP  3351
                                                                                                                 DBG=IDP  3352
                                        *         HERE IF NAME TOKEN.                                            DBG=IDP  3353
                                                                                                                 DBG=IDP  3354
                                         PS=NAM   SA1    IDPBAX                                                  DBG=IDP  3355
                                                  BX2    X5                                                      DBG=IDP  3356
                                                  MX0    -CHAR                                                   DBG=IDP  3357
                                                  LX2    CHAR                                                    DBG=IDP  3358
                                                  BX6    -X0*X2                                                  DBG=IDP  3359
                                                  SB2    X6          (B2) = REGISTER TYPE (BAX)                  DBG=IDP  3360
                                                  LX7    X1,B2                                                   DBG=IDP  3361
                                                  PL     X7,PS=NAM2  IF NAME DOES NOT BEGIN WITH B,A,OR X        DBG=IDP  3362
                                                                                                                 DBG=IDP  3363
                                        *         CHECK FOR REGISTER NAME.                                       DBG=IDP  3364
                                                                                                                 DBG=IDP  3365
                                                  MX1    1R7-1R0+1                                               DBG=IDP  3366
                                                  LX1    -1R0        (X1) = (0-7) SHIFT MASK                     DBG=IDP  3367
                                                  LX2    CHAR                                                    DBG=IDP  3368
                                                  BX6    -X0*X2                                                  DBG=IDP  3369
                                                  SB3    X6          (B3) = REGISTER NR (0-7) DPC                DBG=IDP  3370
                                                  LX7    X1,B3                                                   DBG=IDP  3371
                                                  PL     X7,PS=NAM2  IF 2ND LETTER OF NAME IS NOT (0-7)          DBG=IDP  3372
                                                  LX2    CHAR                                                    DBG=IDP  3373
                                                  BX7    -X0*X2                                                  DBG=IDP  3374
                                                  NZ     X7,PS=NAM2  IF 3RD CHAR IS NON-ZERO, NOT A REGISTER     DBG=IDP  3375
                                                  SB5    1RB                                                     DBG=IDP  3376
                                                  SB6    000B        (B6) = 0TR, WHERE T=0 (B REG)               DBG=IDP  3377
                                                  EQ     B2,B5,PS=NAM1     IF B REGISTER                         DBG=IDP  3378
                                                  SB5    1RA                                                     DBG=IDP  3379
                                                  SB6    010B        (B6) = 0TR, WHERE T=1 (A REG)               DBG=IDP  3380
                                                  EQ     B2,B5,PS=NAM1     IF A REGISTER                         DBG=IDP  3381
                                                  SB6    020B        (B6) = 0TR, WHERE T=2 (X REG)               DBG=IDP  3382
                                                                                                                 DBG=IDP  3383
                                         PS=NAM1  SB7    X6-1R0      (B7) = REGISTER NR IN BINARY                DBG=IDP  3384
                                                  SB6    B6+B7       (B6) = 0TR                                  DBG=IDP  3385
                                                  SX6    B6+SV=B     (X6) = ADDR OF SAVED 0TR REGISTER           DBG=IDP  3386
                                                  EQ     PS=ACC                                                  DBG=IDP  3387
                                                                                                                 DBG=IDP  3388
                                        *         CHECK FOR DECK NAME.                                           DBG=IDP  3389
                                                                                                                 DBG=IDP  3390
                                         PS=NAM2  MX0    7*CHAR                                                  DBG=IDP  3391
                                                  BX1    X0*X5       (X1) = 0LNAME                               DBG=IDP  3392
                                                                                                                 DBG=IDP  3393
                                         #FAA     IF     DEF,FAA=                                                DBG=IDP  3394
                                                  RJ     =XFAA=      FIND ABSOLUTE ADDRESS                       DBG=IDP  3395
                                                  PL     X6,PS=ACC   IF A FIND, ADJUST ACCUMULATOR...            DBG=IDP  3396
                                         #FAA     ENDIF                                                          DBG=IDP  3397
                                                                                                                 DBG=IDP  3398
                                        *         HERE TO SEARCH USER *SET* TABLE.                               DBG=IDP  3399
                                                                                                                 DBG=IDP  3400
                                                  SB6    IDPSET      (B6) = FWA OF *SET* TABLE                   DBG=IDP  3401
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    82
  
  
                                                  RJ     SKT         SEARCH SET TABLE FOR NAME                   DBG=IDP  3402
                                                  ZR     X2,IDP.ER   IF NO FIND                                  DBG=IDP  3403
                                                  SX6    X2+                                                     DBG=IDP  3404
                                                  EQ     PS=ACC                                                  DBG=IDP  3405
                                                                                                                 DBG=IDP  3406
                                        *         HERE IF CONSTANT TOKEN.                                        DBG=IDP  3407
                                                                                                                 DBG=IDP  3408
                                         PS=CON   MX0    7*CHAR                                                  DBG=IDP  3409
                                                  BX5    X0*X5       (X5) = 42/0LCONSTANT(DPC), 18/0             DBG=IDP  3410
                                                  SB7    B0          SET TO *MODE IS OCTAL*                      DBG=IDP  3411
                                                  RJ     =XDXB       CONVERT DPC TO BINARY                       DBG=IDP  3412
                                                  NZ     X4,IDP.ER   IF ERROR IN ASSEMBLY                        DBG=IDP  3413
                                                  EQ     PS=ACC      ADJUST ACCUMULATOR...                       DBG=IDP  3414
                                                                                                                 DBG=IDP  3415
                                        *         HERE IF * TOKEN.                                               DBG=IDP  3416
                                                                                                                 DBG=IDP  3417
                                         PS=STR   SA1    IDPIND                                                  DBG=IDP  3418
                                                  SX6    X1+B1       (X6) = LEVEL OF INDIRECT ADDRESSING         DBG=IDP  3419
                                                  SA6    A1                                                      DBG=IDP  3420
                                                  EQ     PS=ALL      RETURN TO MAIN LOOP.. .                     DBG=IDP  3421
                                                                                                                 DBG=IDP  3422
                                        *         HERE IF + TOKEN .                                              DBG=IDP  3423
                                                                                                                 DBG=IDP  3424
                                         PS=PL    =      PS=ALL                                                  DBG=IDP  3425
                                                                                                                 DBG=IDP  3426
                                        *         HERE IF - TOKEN.                                               DBG=IDP  3427
                                                                                                                 DBG=IDP  3428
                                         PS=MI    SA1    IDPSGN                                                  DBG=IDP  3429
                                                  MX6    60                                                      DBG=IDP  3430
                                                  BX6    X1-X6                                                   DBG=IDP  3431
                                                  SA6    A1                                                      DBG=IDP  3432
                                                  EQ     PS=ALL      RETURN TO MAIN LOOP...                      DBG=IDP  3433
                                                                                                                 DBG=IDP  3434
                                        *         HERE TO ADJUST ACCUMULATOR.                                    DBG=IDP  3435
                                                                                                                 DBG=IDP  3436
                                         PS=ACC   SA1    IDPIND                                                  DBG=IDP  3437
                                                  SX7    X1-1                                                    DBG=IDP  3438
                                                  MI     X7,PS=ACC2  IF NO MORE LEVELS OF INDIRECT ADDR          DBG=IDP  3439
                                                  SA7    A1                                                      DBG=IDP  3440
                                                  SB2    X6                                                      DBG=IDP  3441
                                                  RJ     CHK         CHECK CM ADDR                               DBG=IDP  3442
                                                  MI     B2,IDP.ER   IF ADDR IS BAD                              DBG=IDP  3443
                                                  SA2    B2          (X2) = NEW ADDRESS                          DBG=IDP  3444
                                                  BX6    X2                                                      DBG=IDP  3445
                                                  EQ     PS=ACC                                                  DBG=IDP  3446
                                                                                                                 DBG=IDP  3447
                                         PS=ACC2  SA1    IDPACC                                                  DBG=IDP  3448
                                                  SA2    IDPSGN                                                  DBG=IDP  3449
                                                  BX3    X6-X2       (X3) = +X6 IF +, -X6 IF -                   DBG=IDP  3450
                                                  IX7    X1+X3                                                   DBG=IDP  3451
                                                  MX6    0                                                       DBG=IDP  3452
                                                  SA7    A1                                                      DBG=IDP  3453
                                                  SA6    A2          SET TO *DEFAULT SIGN IS PLUS*               DBG=IDP  3454
                                                  EQ     PS=ALL      RETURN TO MAIN LOOP ...                     DBG=IDP  3455
                                                                                                                 DBG=IDP  3456
                                        *         HERE IF END OF SUBEXPRESSION SENSED.                           DBG=IDP  3457
                                                                                                                 DBG=IDP  3458
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    83
  
  
                                         PS=END   SA1    IDPACC                                                  DBG=IDP  3459
                                                  SA3    IDPNUL                                                  DBG=IDP  3460
                                                  BX6    X1                                                      DBG0002  1336
                                                  EQ     EXIT.                                                   DBG=IDP  3461
                                         POL      SPACE  4,8                                                     DBG=IDP  3462
                                        **        POL - PROCESS OPTIONS LIST ITEM.                               DBG=IDP  3463
                                        *                                                                        DBG=IDP  3464
                                        *                                                                        DBG=IDP  3465
                                        *                THIS ROUTINE WILL PROCESS AN OPTIONS LIST ITEM THAT IS  DBG=IDP  3466
                                        *         TERMINATED BY A -,- OR -EOS-.                                  DBG=IDP  3467
                                        *                                                                        DBG=IDP  3468
                                        *         ENTRY  (B6) = FWA OF OPTIONS KEYWORD TABLE (OKT)               DBG=IDP  3469
                                        *                (A5+1,X5) = ADDR + CONTENTS OF 1ST TOKEN IN LIST        DBG=IDP  3470
                                        *                                                                        DBG=IDP  3471
                                        *         EXIT   IF NO ERROR--                                           DBG=IDP  3472
                                        *                (A5,X5) =  A + C OF TOKEN THAT TERMINATED OPTIONS LIST  DBG=IDP  3473
                                        *                (X3)    = .ZR. IF OPTIONS LIST ITEM WAS NULL, ELSE .NZ. DBG=IDP  3474
                                        *                (X6)    =  -DEFAULT IF - PREFIX, ELSE +DEFAULT          DBG=IDP  3475
                                        *                (X7)    =  +0 IF - PREFIX, ELSE + DEFAULT               DBG=IDP  3476
                                        *                (B7)    =  ORDINAL INTO *OKT* OF FIND                   DBG=IDP  3477
                                        *                                                                        DBG=IDP  3478
                                        *                IF AN ERROR-- EXIT IS TO *IDP=ER*                       DBG=IDP  3479
                                        *                                                                        DBG=IDP  3480
                                        *         USES   X - ALL                                                 DBG=IDP  3481
                                        *                A - 2,3,5                                               DBG=IDP  3482
                                        *                B - 7                                                   DBG=IDP  3483
                                        *                                                                        DBG=IDP  3484
                                        *         CALLS  IDP=ER,SKT                                              DBG=IDP  3485
                                                                                                                 DBG=IDP  3486
                                                                                                                 DBG=IDP  3487
                                         POL      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3488
                                                                                                                 DBG=IDP  3489
                                        *         INITIALIZATION.                                                DBG=IDP  3490
                                                                                                                 DBG=IDP  3491
                                                  BX4    X4-X4       SET TO *NO - PREFIX SO FAR*                 DBG=IDP  3492
                                                  MX6    -1                                                      DBG=IDP  3493
                                                  SX7    B0                                                      DBG=IDP  3494
                                                  SA6    IDPNUL      SET TO *NULL EXPRESSION SO FAR*             DBG=IDP  3495
                                                  SA7    IDPACC      CLEAR ACCUMULATOR                           DBG=IDP  3496
                                                                                                                 DBG=IDP  3497
                                        *         MAIN LOOP NODE.                                                DBG=IDP  3498
                                                                                                                 DBG=IDP  3499
                                         POL2     SA3    IDPNUL                                                  DBG=IDP  3500
                                                  SA5    A5+B1                                                   DBG=IDP  3501
                                                  SX6    X3+B1                                                   DBG=IDP  3502
                                                  MX0    -CHAR                                                   DBG0002  1337
                                                  SA6    A3                                                      DBG=IDP  3503
                                                  ZR     X5,POL4     IF EOS ENCOUNTERED                          DBG=IDP  3504
                                                  SX6    X5-O.SEP                                                DBG=IDP  3505
                                                  SX7    X5-O.VAR                                                DBG=IDP  3506
                                                  NZ     X6,POL3     IF NOT A SEPARATOR                          DBG=IDP  3507
                                                                                                                 DBG=IDP  3508
                                        *         HERE IF A SEPARATOR TOKEN ENCOUNTERED.                         DBG=IDP  3509
                                                                                                                 DBG=IDP  3510
                                                  LX5    1*CHAR-10*CHAR                                          DBG0002  1338
                                                  BX5    -X0*X5                                                  DBG0002  1339
                                                  SX6    X5-1R,                                                  DBG=IDP  3512
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    84
  
  
                                                  SX7    X5-1R-                                                  DBG=IDP  3513
                                                  ZR     X6,POL4     IF , ENCOUNTERED (I.E. END OF LIST)         DBG=IDP  3514
                                                  NZ     X7,IDP=ER   IF NOT - TOKEN, ERROR...                    DBG=IDP  3515
                                                  MX4    60          SET TO * - PREFIX ENCOUNTERED*              DBG=IDP  3516
                                                  EQ     POL2                                                    DBG=IDP  3517
                                                                                                                 DBG=IDP  3518
                                        *         HERE TO PROCESS NAME TOKEN.                                    DBG=IDP  3519
                                                                                                                 DBG=IDP  3520
                                         POL3     NZ     X7,IDP=ER   IF NOT A NAME TOKEN, ERROR...               DBG=IDP  3521
                                                  MX0    7*CHAR                                                  DBG0002  1340
                                                  SX6    B1                                                      DBG0002  1341
                                                  SA2    =40404040404040404040B                                  DBG0002  1342
                                                  BX1    X0*X5       (X1) = 0LKEYWORD                            DBG0002  1343
                                                  IX6    X1-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     DBG0002  1344
                                                  BX7    -X6+X1      (X7) = ALL TRAILING 0 BITS IN (X1) = 0 BITS DBG0002  1345
                                        *                                    ALL OTHER LEADING BITS = 1 BITS     DBG0002  1346
                                                  SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS          DBG0002  1347
                                                  BX6    X2*X7       (X6) = 40B WHERE EACH CHAR IN KEYWORD IS    DBG0002  1348
                                                  LX7    X6,B7       (X7) = 01B WHERE EACH CHAR IN KEYWORD IS    DBG0002  1349
                                                  IX7    X6-X7       (X7) = 37B WHERE EACH CHAR IN KEYWORD IS    DBG0002  1350
                                                  BX0    X6+X7       (X0) = 77B WHERE EACH CHAR IN KEYWORD IS    DBG0002  1351
                                                  RJ     SKT         SEARCH FOR NAME                             DBG=IDP  3524
                                                  ZR     X2,IDP=ER   IF NO FIND                                  DBG=IDP  3525
                                                  SX6    X2                                                      DBG=IDP  3526
                                                  SA6    IDPACC                                                  DBG=IDP  3527
                                                  EQ     POL2                                                    DBG=IDP  3528
                                                                                                                 DBG=IDP  3529
                                        *         HERE TO SET UP EXIT CONDITIONS.                                DBG=IDP  3530
                                                                                                                 DBG=IDP  3531
                                         POL4     SA1    IDPACC                                                  DBG=IDP  3532
                                                  SA3    IDPNUL                                                  DBG=IDP  3533
                                                  BX6    X1-X4       (X6) = -DEFAULT IF - PREFIX, ELSE +DEFAULT  DBG=IDP  3534
                                                  BX7    -X4*X1      (X7) = +0 IF - PREFIX, ELSE +DEFAULT        DBG=IDP  3535
                                                  EQ     EXIT.                                                   DBG=IDP  3536
                                         RIL      SPACE  4,8                                                     DBG0002  1352
                                        **        RIL - READ IDP INPUT LINE.                                     DBG0002  1353
                                        *                                                                        DBG0002  1354
                                        *                                                                        DBG0002  1355
                                        *         ENTRY  IF READING INTERACTIVELY (F.IDI) -- NONE                DBG0002  1356
                                        *                IF READING FROM BATCH (F.BDI) -- INITIAL *READ* ISSUED  DBG0002  1357
                                        *                  TO FILL BUFFER                                        DBG0002  1358
                                        *                                                                        DBG0002  1359
                                        *         EXIT   (X1)      = .NZ. IF EOR/EOF ENCOUNTERED, ELSE .ZR.      DBG0002  1360
                                        *                IF NO EOR/EOF ENCOUNTERED --                            DBG0002  1361
                                        *                (A5,X5)   = A+C OF 1ST WORD OF LINE IMAGE               DBG0002  1362
                                        *                (L=LIM)   = NR OF WORDS IN SOURCE LINE IMAGE            DBG0002  1363
                                        *                              (INCLUDES WORD CONTAINING EOL MARK)       DBG0002  1364
                                        *                                                                        DBG0002  1365
                                        *         USES   ALL BUT A0,X0     (INCLUDES ALL CALLS)                  DBG0002  1366
                                        *                                                                        DBG0002  1367
                                        *         CALLS  READ,READC                                              DBG0002  1368
                                                                                                                 DBG0002  1369
                                                                                                                 DBG0002  1370
                                         RIL      SUBR               ** ENTRY/EXIT **                            DBG0002  1371
                                                                                                                 DBG0002  1372
                                         RIL2     SA5    IDPFLG                                                  DBG0002  1373
                                                  SX2    F.IDI                                                   DBG0002  1374
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    85
  
  
                                                  LX5    59-IDF.INPP                                             DBG0002  1375
                                                  SB6    IDPLIM                                                  DBG0002  1376
                                                  PL     X5,RIL3     IF READING INTERACTIVELY (F.IDI)            DBG0002  1377
                                                  SX2    F.BDI                                                   DBG0002  1378
                                                                                                                 DBG0002  1379
                                         RIL3     READC  X2,B6                                                   DBG0002  1380
                                                  ZR     X1,RIL4     IF NOT EOR/EOF STATUS                       DBG0002  1381
                                                  MI     X5,EXIT.    IF READING FROM BATCH (F.BDI)               DBG0002  1382
                                                  READ   X2,RCL                                                  DBG0002  1383
                                                                                                                 DBG0002  1384
                                        *         SET EOR STATUS TO PREVENT *READC* FROM READING AHEAD.          DBG0002  1385
                                                                                                                 DBG0002  1386
                                                  SA1    X2                                                      DBG0002  1387
                                                  MX6    60-18                                                   DBG0002  1388
                                                  BX1    X6*X1                                                   DBG0002  1389
                                                  SX6    040021B                                                 DBG0002  1390
                                                  BX6    X1+X6                                                   DBG0002  1391
                                                  SA6    A1                                                      DBG0002  1392
                                                  EQ     RIL2                                                    DBG0002  1393
                                                                                                                 DBG0002  1394
                                        *         SET UP EXIT CONDITIONS.                                        DBG0002  1395
                                                                                                                 DBG0002  1396
                                         RIL4     SX7    B6-IDPLIM   (X7) = NR OF WORDS IN LINE IMAGE            DBG0002  1397
                                                  SA5    IDPLIM      (A5,X5) = A+C OF 1ST WORD OF LINE IMAGE     DBG0002  1398
                                                  SA7    L=LIM                                                   DBG0002  1399
                                                  EQ     EXIT.                                                   DBG0002  1400
                                         SKT      SPACE  4,8                                                     DBG=IDP  3603
                                        **        SKT - SEARCH KEYWORD TABLE.                                    DBG=IDP  3604
                                        *                                                                        DBG=IDP  3605
                                        *                                                                        DBG=IDP  3606
                                        *                SEARCHS A TABLE THAT IS TERMINATED BY A ZERO WORD       DBG=IDP  3607
                                        *         FOR A MATCH, USING A SPECIFIED EXTRACTION MASK.                DBG=IDP  3608
                                        *                                                                        DBG=IDP  3609
                                        *         ENTRY  (B6)     =  FWA TO BEGIN SEARCH                         DBG=IDP  3610
                                        *                (X0)     =  EXTRACTION MASK TO USE                      DBG=IDP  3611
                                        *                (X1)     =  ELEMENT TO SEARCH FOR                       DBG=IDP  3612
                                        *                                                                        DBG=IDP  3613
                                        *         EXIT   IF NO FIND --                                           DBG=IDP  3614
                                        *                (X2)     =  .ZR.                                        DBG=IDP  3615
                                        *                IF A FIND --                                            DBG=IDP  3616
                                        *                (B7)     =  ORDINAL OF FIND                             DBG=IDP  3617
                                        *                (A2,X2)  =  ADDR + CONTENTS OF WORD THAT MATCHED        DBG=IDP  3618
                                        *                                                                        DBG=IDP  3619
                                        *         USES   X - 2,3,6,7                                             DBG=IDP  3620
                                        *                A - 2                                                   DBG=IDP  3621
                                        *                B - 7                                                   DBG=IDP  3622
                                        *                                                                        DBG=IDP  3623
                                        *         CALLS  NONE                                                    DBG=IDP  3624
                                                                                                                 DBG=IDP  3625
                                                                                                                 DBG=IDP  3626
                                         SKT      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3627
                                                  SA2    B6                                                      DBG=IDP  3628
                                                  BX6    X0*X1                                                   DBG=IDP  3629
                                                  SB7    -1                                                      DBG=IDP  3630
                                                                                                                 DBG=IDP  3631
                                         SKT2     ZR     X2,EXIT.    IF END OF TABLE                             DBG=IDP  3632
                                                  BX7    X0*X2                                                   DBG=IDP  3633
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    86
  
  
                                                  SB7    B7+B1                                                   DBG=IDP  3634
                                                  IX3    X6-X7                                                   DBG=IDP  3635
                                                  ZR     X3,EXIT.    IF A FIND                                   DBG=IDP  3636
                                                  SA2    A2+B1                                                   DBG=IDP  3637
                                                  EQ     SKT2                                                    DBG=IDP  3638
                                         STP      SPACE  4,8                                                     DBG=IDP  3639
                                        **        STP - STEP AN INSTRUCTION.                                     DBG=IDP  3640
                                        *                                                                        DBG=IDP  3641
                                        *                                                                        DBG=IDP  3642
                                        *                THIS ROUTINE WILL STEP A SINGLE CPU INSTRUCTION, AND    DBG=IDP  3643
                                        *         LIST THE RESULT REGISTER, IF APPROPRIATE.                      DBG=IDP  3644
                                        *                                                                        DBG=IDP  3645
                                        *                *STP* ALSO PERFORMS A LIMITED SET OF ERROR CHECKS FOR   DBG=IDP  3646
                                        *         RANGE ERRORS (MODE=1). 1) THE PSEUDO P REGISTER IS CHECKED,    DBG=IDP  3647
                                        *         2) XFERS OF CONTROL (BRANCH OR RJ) ARE CHECKED, AND            DBG=IDP  3648
                                        *         3) LOAD/STORE ADDRESSES ARE CHECKED. IF AN ERROR IS DETECTED,  DBG=IDP  3649
                                        *         THE BAD INSTRUCTION AND THE -P- REGISTER ARE DISPLAYED (EVEN   DBG=IDP  3650
                                        *         IF -L SELECTED). STEP MODE IS THEN TERMINATED.                 DBG=IDP  3651
                                        *                                                                        DBG=IDP  3652
                                        *         ENTRY  (ST=ENDX) = CONTAINS THE PREVIOUS CONTENTS OF IDP       DBG=IDP  3653
                                        *                              GENERATED BREAK ADDR IF THEY NEED TO      DBG=IDP  3654
                                        *                              BE XEQ, ELSE .ZR.                         DBG=IDP  3655
                                        *                (IDPPREG) = PSEUDO P REGISTER, I.E. ADDRESS OF WORD     DBG=IDP  3656
                                        *                              CONTAINING INSTRUCTION TO XEQ             DBG=IDP  3657
                                        *                (IDPPOS)  = POSITION COUNTER. LEFT MOST BIT OF INSTR    DBG=IDP  3658
                                        *                              TO XEQ IS BIT (IDPPOS)-1 IN ((IDPPREG)).  DBG=IDP  3659
                                        *                              (BITS ARE NUMBERED 59 THRU 0)             DBG=IDP  3660
                                        *                              E.G. FOR A WORD CONTAINING--              DBG=IDP  3661
                                        *                               +  MX0  -CHAR                            DBG=IDP  3662
                                        *                                  SA1  ADDR                             DBG=IDP  3663
                                        *                                  BX6  -X0*X5                           DBG=IDP  3664
                                        *                              WHEN STEPPING *SA1  ADDR*--               DBG=IDP  3665
                                        *                              (IDPPOS) = 45                             DBG=IDP  3666
                                        *                (IDPXLST) = .NZ. IF LISTING EACH STEPPED INSTRUCTION,   DBG=IDP  3667
                                        *                                  ELSE .ZR.                             DBG=IDP  3668
                                        *                                                                        DBG=IDP  3669
                                        *         EXIT   (ST=ENDX), (IDPPREG), AND (IDPPOS) UPDATED              DBG=IDP  3670
                                        *                TO *IDP=ER* IF AN ERROR DETECTED                        DBG=IDP  3671
                                        *                TO *IDP2A* IF AN *RJ IDP=* IS ENCOUNTERED AND THE       DBG0001    14
                                        *                  BREAK CONDITIONS ARE STATISFIED                       DBG0001    15
                                        *                                                                        DBG=IDP  3672
                                        *         USES   ALL BUT A0                                              DBG=IDP  3673
                                        *                                                                        DBG=IDP  3674
                                        *         CALLS  BRK,CHK,DAB,DAZ,DUX,FRA=(IF DEF),FRK,                   DBG0001    16
                                        *                  PRIDP,RSR=,SVR=                                       DBG0001    17
                                                                                                                 DBG=IDP  3676
                                                                                                                 DBG=IDP  3677
                                         STP      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3678
                                                                                                                 DBG=IDP  3679
                                        *         INITIALIZATION.                                                DBG=IDP  3680
                                                                                                                 DBG=IDP  3681
                                                  MX6    0                                                       DBG=IDP  3682
                                                  SX7    -B1                                                     DBG=IDP  3683
                                                  SA6    IDPXFR      CLEAR *TRANSFER CONTROL* FLAG               DBG=IDP  3684
                                                  SA7    IDPXAR      SET TO *NO ADDR REF SO FAR*                 DBG=IDP  3685
                                                                                                                 DBG=IDP  3686
                                        *         FETCH WORD CONTAINING INSTRUCTION TO BE XEQ.                   DBG=IDP  3687
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    87
  
  
                                                                                                                 DBG=IDP  3688
                                                  SA1    IDPPREG     (X1) = PSEUDO P REGISTER                    DBG=IDP  3689
                                                  SA2    ST=ENDX                                                 DBG=IDP  3690
                                                  SA3    A1+B1       (X3) = POS COUNTER                          DBG=IDP  3691
                                                  SA5    X1          (X5) = WORD CONTAINING INSTRUCTION TO XEQ   DBG=IDP  3692
                                                  ZR     X2,STP2     IF NOT *IDP* GENERATED BREAK                DBG=IDP  3693
                                                                                                                 DBG=IDP  3694
                                        *         HERE BECAUSE INSTRUCTION TO XEQ AT *ST=ENDX*.                  DBG=IDP  3695
                                                                                                                 DBG=IDP  3696
                                                  SA5    A5-B1       (A5) = ADDR OF GENERATED BREAK              DBG=IDP  3697
                                                  BX5    X2                                                      DBG=IDP  3698
                                                                                                                 DBG=IDP  3699
                                        *         LIST INSTRUCTION IF NECESSARY.                                 DBG=IDP  3700
                                                                                                                 DBG=IDP  3701
                                         STP2     SA1    IDPXLST                                                 DBG=IDP  3702
                                                  SB4    X3                                                      DBG=IDP  3703
                                                  ZR     X1,STP3     IF NOT LISTING INSTRUCTION                  DBG=IDP  3704
                                                  RJ     DAZ         DEASSEMBLE INSTRUCTION                      DBG=IDP  3705
                                                                                                                 DBG=IDP  3706
                                        *         BREAK OUT OPCODE.                                              DBG=IDP  3707
                                                                                                                 DBG=IDP  3708
                                         STP3     SB6    -B4                                                     DBG=IDP  3709
                                                  MX0    -6                                                      DBG=IDP  3710
                                                  SB6    B6+60+6                                                 DBG=IDP  3711
                                                  LX5    X5,B6       (X5) = 54/OTHER STUFF, 6/OPCODE             DBG=IDP  3712
                                                  BX6    -X0*X5                                                  DBG=IDP  3713
                                                  LX5    3           (X5) = 51/OTHER, 6/OPC, 3/I                 DBG=IDP  3714
                                                  MX0    -3                                                      DBG=IDP  3715
                                                  SA6    STP=OP                                                  DBG=IDP  3716
                                                  ZR     X6,STP=ER   IF 00B OPCODE, TRYING TO XEQ DATA...        DBG=IDP  3717
                                                                                                                 DBG=IDP  3718
                                        *         BREAK OUT *I* FIELD.                                           DBG=IDP  3719
                                                                                                                 DBG=IDP  3720
                                                  BX6    -X0*X5                                                  DBG=IDP  3721
                                                  LX5    3           (X5) = 48/OTHER, 6/OPC, 3/I, 3/J            DBG=IDP  3722
                                                  SA6    A6+B1                                                   DBG=IDP  3723
                                                                                                                 DBG=IDP  3724
                                        *         BREAK OUT *J* FIELD.                                           DBG=IDP  3725
                                                                                                                 DBG=IDP  3726
                                                  BX6    -X0*X5                                                  DBG=IDP  3727
                                                  LX5    3           (X5) = 45/OTHER, 6/OPC, 3/I, 3/J, 3/K       DBG=IDP  3728
                                                  SA6    A6+B1                                                   DBG=IDP  3729
                                                                                                                 DBG=IDP  3730
                                        *         BREAK OUT *K* FIELD.                                           DBG=IDP  3731
                                                                                                                 DBG=IDP  3732
                                                  BX6    -X0*X5                                                  DBG=IDP  3733
                                                  LX5    18-3        (X5) = 30/OTHER, 6/OPC, 3/I, 3/J, 18/Q      DBG=IDP  3734
                                                  SA6    A6+B1                                                   DBG=IDP  3735
                                                                                                                 DBG=IDP  3736
                                        *         BREAK OUT *Q* 18 BIT ADDRESS FIELD.                            DBG=IDP  3737
                                                                                                                 DBG=IDP  3738
                                                  SX6    X5                                                      DBG=IDP  3739
                                                  SA6    STP=ADR                                                 DBG=IDP  3740
                                                                                                                 DBG=IDP  3741
                                        *         FETCH INSTRUCTION SKELETON AND CHECK FOR LENGTH CONFLICT.      DBG=IDP  3742
                                                                                                                 DBG=IDP  3743
                                                  SA1    STP=OP                                                  DBG=IDP  3744
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    88
  
  
                                                  LX5    30          LEFT JUSTIFY INSTRUCTION                    DBG=IDP  3745
                                                  MX0    15                                                      DBG=IDP  3746
                                                  SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 DBG=IDP  3747
                                                  SB5    15                                                      DBG=IDP  3748
                                                  PL     X2,STP4     IF SHORT (15 BIT) INSTRUCTION               DBG=IDP  3749
                                                  MX0    30                                                      DBG=IDP  3750
                                                  SB5    B5+B5                                                   DBG=IDP  3751
                                                                                                                 DBG=IDP  3752
                                         STP4     LT     B4,B5,STP=ER IF NOT ENOUGH ROOM FOR 30 BIT INSTRUCTION, DBG=IDP  3753
                                        *                              TRYING TO XEQ DATA...                     DBG=IDP  3754
                                                                                                                 DBG=IDP  3755
                                        *         BREAK OUT FULL INSTRUCTION.                                    DBG=IDP  3756
                                                                                                                 DBG=IDP  3757
                                                  SA3    =46000460004600046000B                                  DBG=IDP  3758
                                                  BX6    X0*X5                                                   DBG=IDP  3759
                                                  BX7    -X0*X3                                                  DBG=IDP  3760
                                                  IX6    X6+X7       (X6) = INSTRUCTION, LEFT JUST W/ NO-OP FILL DBG=IDP  3761
                                                  SA6    STP=IN                                                  DBG=IDP  3762
                                                                                                                 DBG=IDP  3763
                                        *         SPLIT INSTRUCTION INTO REPRESENTATIVE TYPE--                   DBG=IDP  3764
                                        *           01 THRU 07  BRANCH                                           DBG=IDP  3765
                                        *           10 THRU 47  NORMAL                                           DBG=IDP  3766
                                        *           50 THRU 57  LOAD/STORE                                       DBG=IDP  3767
                                        *           60 THRU 77  NORMAL                                           DBG=IDP  3768
                                                                                                                 DBG=IDP  3769
                                                  SX3    X1-10B                                                  DBG=IDP  3770
                                                  SX4    X1-50B                                                  DBG=IDP  3771
                                                  MI     X3,STP6     IF A BRANCH                                 DBG=IDP  3772
                                                  MI     X4,STP5     IF A NORMAL                                 DBG=IDP  3773
                                                  SX3    X1-60B                                                  DBG=IDP  3774
                                                  MI     X3,STP12    IF A LOAD/STORE                             DBG=IDP  3775
                                                                                                                 DBG=IDP  3776
                                        *         HERE IF A NORMAL INSTRUCTION (NO SPECIAL PROCESSING).          DBG=IDP  3777
                                                                                                                 DBG=IDP  3778
                                         STP5     RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                  DBG=IDP  3779
                                                                                                                 DBG=IDP  3780
                                        *         HERE TO XEQ NORMAL INSTRUCTION.                                DBG=IDP  3781
                                                                                                                 DBG=IDP  3782
                                         STP=IN   BSSZ   1           THIS WORD IS PLUGGED WITH THE INSTRUCTION   DBG=IDP  3783
                                        *                              TO BE XEQ, LEFT JUSTIFIED WITH NO-OP FILL DBG=IDP  3784
                                                                                                                 DBG=IDP  3785
                                                  RJ     SVR=        SAVE ORIGINAL REGISTERS                     DBG=IDP  3786
                                                  EQ     STP=X                                                   DBG=IDP  3787
                                                                                                                 DBG=IDP  3788
                                        *         HERE IF A BRANCH INSTRUCTION (01 THRU 07).                     DBG=IDP  3789
                                                                                                                 DBG=IDP  3790
                                         STP6     SA2    STP=I                                                   DBG0001    18
                                                  SX6    X1-01B                                                  DBG0001    19
                                                  SA3    STP=ADR                                                 DBG0001    20
                                                  NZ     X6,STP8     IF NOT 01B INSTRUCTION                      DBG0001    21
                                                  NZ     X2,STP5     IF NOT *RJ*                                 DBG0001    22
                                                                                                                 DBG0001    23
                                        *         HERE IF AN *RJ* INSTRUCTION.                                   DBG0001    24
                                                                                                                 DBG0001    25
                                                  SA4    IDPPREG                                                 DBG0001    26
                                                  SA5    ST=ENDX     (X5) = WORD CONTAINING *RJ* INSTRUCTION     DBG0001    27
                                        *                                     (IF PREVIOUS CONTENTS OF GEN BRK)  DBG0001    28
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    89
  
  
                                                  BX6    X4          (X6) = /*+1/                                DBG0001    29
                                                  SX7    X3-REG=                                                 DBG0001    30
                                                  SX0    X3-SNP=                                                 DBG0001    31
                                                  NZ     X5,STP6A    IF *RJ* IS PREVIOUS CONTENTS OF BREAK ADDR  DBG0001    32
                                                  SA5    X4          (X5) = WORD CONTAINING *RJ* INSTRUCTION     DBG0001    33
                                                  SX6    X4+B1       (X6) = /*+1/                                DBG0001    34
                                                                                                                 DBG0001    35
                                        *         CHECK FOR CALL TO *REG=/SNP=*.  THESE ROUTINES MUST AVOID      DBG0001    36
                                        *           BEING STEPPED BECAUSE THEY USE *SVR=/RSR=* TO SAVE AND       DBG0001    37
                                        *           RESTORE THE CALLERS REGISTERS (SEE NEXT PARAGRAPH).          DBG0001    38
                                                                                                                 DBG0001    39
                                         STP6A    ZR     X7,STP7     IF *RJ REG=*                                DBG0001    40
                                                  ZR     X0,STP7     IF *RJ SNP=*                                DBG0001    41
                                                                                                                 DBG0001    42
                                        *         CHECK FOR CALL TO *RSR=/SVR=*.  THIS IS CURRENTLY FATALLY      DBG0001    43
                                        *           RECURSIVE BECAUSE *STP* USES *RSR=/SVR=* TO SAVE AND RESTORE DBG0001    44
                                        *           THE ORIGINAL REGISTERS BEFORE AND AFTER EACH INSTRUCTION IS  DBG0001    45
                                        *           STEPPED.  THIS IMPLIES THAT *RSR=/SVR=* WOULD HAVE TO BE     DBG0001    46
                                        *           ABLE TO BE STEPPED AND EXECUTED CONCURRENTLY...TRICKY.       DBG0001    47
                                                                                                                 DBG0001    48
                                                  SX7    =XRSR=                                                  DBG0001    49
                                                  SX0    =XSVR=                                                  DBG0001    50
                                                  IX7    X3-X7                                                   DBG0001    51
                                                  IX0    X3-X0                                                   DBG0001    52
                                                  ZR     X7,STP=ER   IF *RJ RSR=*                                DBG0001    53
                                                  ZR     X0,STP=ER   IF *RJ SVR=*                                DBG0001    54
                                                                                                                 DBG0001    55
                                        *         SET UP TRANSFER ADDRESS OF /RJ Q/ TO BE /Q+1/.                 DBG0001    56
                                                                                                                 DBG0001    57
                                                  SX7    X3+B1       (X7) = /Q+1/                                DBG0001    58
                                                  SB2    X7                                                      DBG0001    59
                                                  SA7    IDPXFR                                                  DBG0001    60
                                                                                                                 DBG0001    61
                                        *         CHECK TRANSFER ADDR AND SIMULATE *RJ* BY PLUGGING /EQ *+1/.    DBG0001    62
                                        *                                                                        DBG0001    63
                                        *         ENTRY  (B2) = TRANSFER ADDRESS                                 DBG0001    64
                                        *                (X6) = /*+1/  (I.E. RETURN ADDR)                        DBG0001    65
                                        *                (X3) = /Q/    (I.E. ADDR TO PLUG /EQ *+1/)              DBG0001    66
                                        *                                                                        DBG0001    67
                                        *         NOTE   WHEN THIS IS NOT *RJ REG=/SNP=*, THEN                   DBG0001    68
                                        *                TRANSFER ADDR = Q+1  OR  (B2) = (X3)+1.                 DBG0001    69
                                        *                                                                        DBG0001    70
                                        *                WHEN THIS IS AN *RJ REG=/SNP=*, THEN                    DBG0001    71
                                        *                TRANSFER ADDR = *+1  OR  (B2) = (X6), I.E. THE *RJ* HAS DBG0001    72
                                        *                BEEN SKIPPED.                                           DBG0001    73
                                                                                                                 DBG0001    74
                                         STP6B    RJ     CHK         CHECK CM ADDRESS                            DBG0001    75
                                                  SX7    0400B       (X7) = *EQ* INSTRUCTION                     DBG0001    76
                                                  MI     B2,STP=ER   IF ADDR IS BAD                              DBG0001    77
                                                  LX7    29-11                                                   DBG0001    78
                                                  SX0    IDP=                                                    DBG0001    79
                                                  BX7    X7+X6       (X7) = 30/0,30/EQ *+1                       DBG0001    80
                                                  LX7    59-29       (X7) = 30/EQ *+1,30/0                       DBG0001    81
                                                  SA7    X3                                                      DBG0001    82
                                                                                                                 DBG0001    83
                                        *         CHECK FOR *RJ IDP=*.                                           DBG0001    84
                                                                                                                 DBG0001    85
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    90
  
  
                                                  IX0    X3-X0                                                   DBG0001    86
                                                  SA1    IDPXRJ                                                  DBG0001    87
                                                  ZR     X0,STP7A    IF *RJ IDP=*                                DBG0001    88
                                                                                                                 DBG0001    89
                                        *         SET UP LEVEL 0 *RJ* ADDRESS.                                   DBG0001    90
                                                                                                                 DBG0001    91
                                                  NZ     X1,STP=X    IF NOT AT LEVEL 0 *RJ*                      DBG0001    92
                                                  SX6    X3                                                      DBG0001    93
                                                  SA6    A1                                                      DBG0001    94
                                                  EQ     STP=X                                                   DBG0001    95
                                                                                                                 DBG0001    96
                                        *         HERE TO PROCESS *RJ REG=/SNP=*.                                DBG0001    97
                                                                                                                 DBG0001    98
                                         STP7     SA6    IDPXFR      SET TO *RJ REG=/SNP= BECOMES                DBG0001    99
                                        *                              BRANCH TO /*+1/*                          DBG0001   100
                                                  BX7    X5          (X7) = 30/RJ REG=/SNP=, 30/FWA OF PARM LIST DBG0001   101
                                                  SA7    STP=SNP                                                 DBG0001   102
                                                  RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                  DBG0001   103
                                                                                                                 DBG0001   104
                                         STP=SNP  BSSZ   1           THIS WORD IS PLUGGED WITH AN *RJ REG=* OR   DBG0001   105
                                        *                              AN *RJ SNP=* FORCED UPPER WITH THE FWA OF DBG0001   106
                                        *                              THE PARAMETER LIST IN THE LOWER 18 BITS   DBG0001   107
                                                                                                                 DBG0001   108
                                                  SA1    IDPXFR      (X1) = ADDR TO XFER TO (I.E. /*+1/)         DBG0001   109
                                                  SA3    STP=ADR     (X3) = *REG=* OR *SNP=*                     DBG0001   110
                                                  SB2    X1                                                      DBG0001   111
                                                  BX6    X1                                                      DBG0001   112
                                                  EQ     STP6B                                                   DBG0001   113
                                                                                                                 DBG0001   114
                                        *         HERE TO PROCESS *RJ IDP=*.                                     DBG0001   115
                                                                                                                 DBG0001   116
                                         STP7A    SA6    IDPXFR      SET TO */RJ IDP=/ BECOMES BRANCH TO /*+1/*  DBG0001   117
                                                  SX1    A5+B1       (X1) = ADDR+1 OF *RJ IDP=*                  DBG0001   118
                                                  SX5    X5          (X5) = FWA OF PARAMETER LIST (IF .NZ.)      DBG0001   119
                                                  RJ     BRK         BREAK PROCESSOR                             DBG0001   120
                                                  ZR     X5,STP=X    IF NO BREAK THIS TIME                       DBG0001   121
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  DBG0001   122
                                                  ZR     X5,STP=X    IF NO BREAK THIS TIME                       DBG0001   123
                                                                                                                 DBG0001   124
                                        *         HERE TO HONOR BREAK.                                           DBG0001   125
                                                                                                                 DBG0001   126
                                                  SA1    IDPXFR                                                  DBG0001   127
                                                  SX7    60                                                      DBG0001   128
                                                  BX6    X1                                                      DBG0001   129
                                                  SA7    IDPPOS                                                  DBG0001   130
                                                  SA6    IDPPREG                                                 DBG0001   131
                                                  EQ     IDP2A       HONOR THIS BREAK...                         DBG0001   132
                                                                                                                 DBG=IDP  3888
                                        *         HERE IF BRANCH INSTRUCTION (02 THRU 07).                       DBG=IDP  3889
                                                                                                                 DBG=IDP  3890
                                         STP8     SX6    X1-4                                                    DBG=IDP  3891
                                                  SX7    X1-2                                                    DBG=IDP  3892
                                                  ZR     X6,STP10    IF *EQ BI,BJ,ADDR*                          DBG=IDP  3893
                                                  ZR     X7,STP11    IF *JP BI+ADDR*                             DBG=IDP  3894
                                                                                                                 DBG=IDP  3895
                                        *         HERE IF CONDITIONAL BRANCH INSTRUCTION.                        DBG=IDP  3896
                                                                                                                 DBG=IDP  3897
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    91
  
  
                                         STP9     SA1    STP=IN                                                  DBG=IDP  3898
                                                  MX0    -18                                                     DBG=IDP  3899
                                                  LX0    48-18                                                   DBG=IDP  3900
                                                  SX2    STP=BP      (X2) = BRANCH *PASS* ADDR                   DBG=IDP  3901
                                                  LX2    48-18                                                   DBG=IDP  3902
                                                  BX1    X0*X1                                                   DBG=IDP  3903
                                                  BX2    -X0*X2                                                  DBG=IDP  3904
                                                  IX6    X1+X2       (X6) = 12/BRANCH OPC, 18/STP=BRP, 30/NO-OPS DBG=IDP  3905
                                                  SA6    STP=BR                                                  DBG=IDP  3906
                                                                                                                 DBG=IDP  3907
                                        *         HERE TO XEQ CONDITIONAL BRANCH INSTRUCTION. THE 18 BIT ADDRESS DBG=IDP  3908
                                        *           *Q* PORTION OF THE BRANCH INSTRUCTION IS MODIFIED SO THAT IF DBG=IDP  3909
                                        *           THE BRANCH IS TAKEN, CONTROL PASSES TO *STP=BP*.             DBG=IDP  3910
                                                                                                                 DBG=IDP  3911
                                                  RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                  DBG=IDP  3912
                                                                                                                 DBG=IDP  3913
                                         STP=BR   BSSZ   1           BRANCH TO XEQ IS PLUGGED HERE -- LEFT JUST- DBG=IDP  3914
                                        *                              IFIED W/ *Q* ALTERED AND NO-OP FILL       DBG=IDP  3915
                                                                                                                 DBG=IDP  3916
                                         STP=BF   SB1    1           RESTORE (B1) = 1                            DBG=IDP  3917
                                                  EQ     STP=X                                                   DBG=IDP  3918
                                                                                                                 DBG=IDP  3919
                                         STP=BP   SA1    STP=ADR                                                 DBG=IDP  3920
                                                  SB1    1           RESTORE (B1) = 1                            DBG=IDP  3921
                                                  SB2    X1          (B2) = ADDR TO TRANSFER CONTROL TO          DBG=IDP  3922
                                                  SX6    X1                                                      DBG=IDP  3923
                                                  SA6    IDPXFR                                                  DBG=IDP  3924
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  3925
                                                  SA1    IDPXLST                                                 DBG=IDP  3926
                                                  MI     B2,STP=ER   IF ADDR IS BAD                              DBG=IDP  3927
                                                  ZR     X1,STP=X    IF NOT LISTING                              DBG=IDP  3928
                                                  PRIDP  (=C=                                 BRANCH TAKEN...=)  DBG=IDP  3929
                                                  EQ     STP=X                                                   DBG=IDP  3930
                                                                                                                 DBG=IDP  3931
                                        *         HERE IF *EQ BI,BJ,ADDR*.                                       DBG=IDP  3932
                                                                                                                 DBG=IDP  3933
                                         STP10    SA1    STP=I                                                   DBG=IDP  3934
                                                  SA2    STP=J                                                   DBG=IDP  3935
                                                  BX6    X1+X2                                                   DBG=IDP  3936
                                                  NZ     X6,STP9     IF NOT *EQ ADDR*                            DBG=IDP  3937
                                                  MX7    0                                                       DBG=IDP  3938
                                                  SA1    IDPXRJ                                                  DBG=IDP  3939
                                                  SA2    IDPPREG                                                 DBG=IDP  3940
                                                  IX6    X1-X2                                                   DBG=IDP  3941
                                                  NZ     X6,STP=BP   IF NOT POSSIBLY *RJ SUBR* EXIT              DBG=IDP  3942
                                                  SA7    A1          SET TO *BACK TO LEVEL 0 NOW*                DBG=IDP  3943
                                                  EQ     STP=BP                                                  DBG=IDP  3944
                                                                                                                 DBG=IDP  3945
                                        *         HERE IF *JP BI+ADDR*.                                          DBG=IDP  3946
                                                                                                                 DBG=IDP  3947
                                         STP11    SA1    STP=I                                                   DBG=IDP  3948
                                                  SA2    STP=ADR                                                 DBG=IDP  3949
                                                  SA3    =XSV=B+X1   (X3) = (BI)                                 DBG=IDP  3950
                                                  IX6    X2+X3       (X6) = BI+ADDR                              DBG=IDP  3951
                                                  SB2    X6                                                      DBG=IDP  3952
                                                  SA6    IDPXFR                                                  DBG=IDP  3953
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  3954
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    92
  
  
                                                  PL     B2,STP=X    IF ADDR OK                                  DBG=IDP  3955
                                                  EQ     STP=ER                                                  DBG=IDP  3956
                                                                                                                 DBG=IDP  3957
                                        *         HERE IF A LOAD/STORE INSTRUCTION (50 THRU 57).                 DBG=IDP  3958
                                                                                                                 DBG=IDP  3959
                                         STP12    SA1    STP=LS+X1-50B  (X1) = LOAD/STORE SKELETON               DBG=IDP  3960
                                                  SA2    STP=I                                                   DBG=IDP  3961
                                                  SA3    A2+B1                                                   DBG=IDP  3962
                                                  SA4    A3+B1                                                   DBG=IDP  3963
                                                  SA5    STP=ADR                                                 DBG=IDP  3964
                                                  SB6    X1          (B6) = .MI. IF *Q* FLAG, ELSE               DBG=IDP  3965
                                        *                                 = FWA OF APPROPRIATE SAVED REG BLOCK   DBG=IDP  3966
                                                  LX1    -18-3                                                   DBG=IDP  3967
                                                  BX6    X1                                                      DBG=IDP  3968
                                                  AX6    59          (X6) = +0 IF *J* REG + *K* REG              DBG=IDP  3969
                                        *                                   -0 IF *J* REG - *K* REG              DBG=IDP  3970
                                                  SB7    X1                                                      DBG=IDP  3971
                                                  ZR     X2,STP5     IF *SA0* (I.E. NOT LOAD/STORE)              DBG=IDP  3972
                                                  MI     B6,STP13    IF *Q* 18 BIT ADDR                          DBG=IDP  3973
                                                  SA5    B6+X4       (X5) = SAVED *K* REGISTER                   DBG=IDP  3974
                                                  BX5    X5-X6                                                   DBG=IDP  3975
                                                                                                                 DBG=IDP  3976
                                         STP13    SA1    B7+X3       (X1) = SAVED *J* REGISTER                   DBG=IDP  3977
                                                  IX6    X1+X5                                                   DBG=IDP  3978
                                                  SB2    X6          (B2) = ADDR TO LOAD/STORE                   DBG=IDP  3979
                                                  SA6    IDPXAR                                                  DBG=IDP  3980
                                                  RJ     =XCHK       CHECK CM ADDRESS                            DBG=IDP  3981
                                                  PL     B2,STP5     IF ADDR OK                                  DBG=IDP  3982
                                                  EQ     STP=ER                                                  DBG=IDP  3983
                                                                                                                 DBG=IDP  3984
                                        *         LOAD/STORE TABLE.                                              DBG=IDP  3985
                                                                                                                 DBG=IDP  3986
                                         STP=LS   BSS    0                                                       DBG=IDP  3987
                                                                                                                 DBG=IDP  3988
                                                  LOC    50B                                                     DBG=IDP  3989
                                         +        VFD    18/0,3/0,18/=XSV=A,3/0,18/-1         SAI  AJ+Q          DBG=IDP  3990
                                         +        VFD    18/0,3/0,18/=XSV=B,3/0,18/-1         SAI  BJ+Q          DBG=IDP  3991
                                         +        VFD    18/0,3/0,18/=XSV=X,3/0,18/-1         SAI  XJ+Q          DBG=IDP  3992
                                         +        VFD    18/0,3/0,18/=XSV=X,3/0,18/=XSV=B     SAI  XJ+BK         DBG=IDP  3993
                                         +        VFD    18/0,3/0,18/=XSV=A,3/0,18/=XSV=B     SAI  AJ+BK         DBG=IDP  3994
                                         +        VFD    18/0,3/0,18/=XSV=A,3/4,18/=XSV=B     SAI  AJ-BK         DBG=IDP  3995
                                         +        VFD    18/0,3/0,18/=XSV=B,3/0,18/=XSV=B     SAI  BJ+BK         DBG=IDP  3996
                                         +        VFD    18/0,3/0,18/=XSV=B,3/4,18/=XSV=B     SAI  BJ-BK         DBG=IDP  3997
                                                  LOC    *O                                                      DBG=IDP  3998
                                                                                                                 DBG=IDP  3999
                                        *         HERE TO UPDATE POS COUNTER AND PSEUDO P REGISTER.              DBG=IDP  4000
                                                                                                                 DBG=IDP  4001
                                         STP=X    SA1    STP=OP                                                  DBG=IDP  4002
                                                  SA2    IDPXFR                                                  DBG=IDP  4003
                                                  SA3    IDPPREG                                                 DBG=IDP  4004
                                                  SA4    IDPPOS                                                  DBG=IDP  4005
                                                  SA5    ST=ENDX                                                 DBG=IDP  4006
                                                  SA1    DAZ=PS+X1   (X1) = INSTRUCTION SKELETON                 DBG=IDP  4007
                                                  SB5    15                                                      DBG=IDP  4008
                                                  BX6    X2                                                      DBG=IDP  4009
                                                  SB4    X4                                                      DBG=IDP  4010
                                                  MX7    0                                                       DBG=IDP  4011
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    93
  
  
                                                  PL     X1,STP=X2   IF SHORT (15 BIT) INSTRUCTION               DBG=IDP  4012
                                                  SB5    B5+B5                                                   DBG=IDP  4013
                                                                                                                 DBG=IDP  4014
                                         STP=X2   LX1    59-57                                                   DBG=IDP  4015
                                                  NZ     X2,STP=X4A  IF A XFER OF CONTROL OCCURRED               DBG0002  1401
                                                  SX6    X3+B1                                                   DBG=IDP  4017
                                                  LE     B4,B5,STP=X3  IF NO MORE INSTRUCTIONS IN THIS WORD      DBG=IDP  4018
                                                  PL     X1,STP=X5   IF INSTRUCTION DOES NOT FORCE UPPER         DBG=IDP  4019
                                                                                                                 DBG=IDP  4020
                                         STP=X3   ZR     X5,STP=X4   IF NOT IN IDP GENERATED BREAK MODE          DBG=IDP  4021
                                                  SX6    X3                                                      DBG=IDP  4022
                                                                                                                 DBG=IDP  4023
                                        *         HERE IF INSTRUCTION FORCES UPPER.                              DBG=IDP  4024
                                                                                                                 DBG=IDP  4025
                                         STP=X4   SA7    A5          SET TO *NOT IN IDP GENERATED BREAK MODE*    DBG=IDP  4026
                                                  SA6    A3                                                      DBG=IDP  4027
                                                  SX7    60                                                      DBG=IDP  4028
                                                  SA7    A4                                                      DBG=IDP  4029
                                                  EQ     STP=X6                                                  DBG=IDP  4030
                                                                                                                 DBG0002  1402
                                        *         HERE IF TRANSFER OF CONTROL OCCURRED -- ENTER TRANSFER ADDR    DBG0002  1403
                                        *           ONTO PUSH DOWN STACK OF SAVED TRANSFER ADDRESSES *IDPXFT*.   DBG0002  1404
                                        *           ALL ENTRIES IN PUSH DOWN STACK ARE MOVED UP (TOWARD *RA*)    DBG0002  1405
                                        *           ONE POSITION (THE 1ST ENTRY IN *XFT*, THE EARLIEST TRANSFER  DBG0002  1406
                                        *           ADDRESS, FALLS OFF STACK).  EXAMPLE --                       DBG0002  1407
                                        *                                                                        DBG0002  1408
                                        *                     BEFORE                 AFTER                       DBG0002  1409
                                        *             XFT+0  XFER(N)         XFT+0  XFER(N+1)                    DBG0002  1410
                                        *                +1  XFER(N+1)          +1  XFER(N+2)                    DBG0002  1411
                                        *                +2  XFER(N+2)          +2  XFER(N+3)                    DBG0002  1412
                                        *                +3  XFER(N+3)          +3  XFER(N+4) -- NEW ENTRY       DBG0002  1413
                                        *                +4  END-OF-TABLE       +4  END-OF-TABLE                 DBG0002  1414
                                                                                                                 DBG0002  1415
                                         STP=X4A  SA1    IDPXFT+1    (A1,X1) = A+C OF 1ST WORD TO MOVE           DBG0002  1416
                                                  SB7    L.XFT-1     (B7) = NR OF WORDS TO MOVE                  DBG0002  1417
                                                                                                                 DBG0002  1418
                                         STP=X4B  BX7    X1                                                      DBG0002  1419
                                                  SA7    A1-B1                                                   DBG0002  1420
                                                  SB7    B7-B1                                                   DBG0002  1421
                                                  SA1    A1+B1                                                   DBG0002  1422
                                                  GT     B7,B0,STP=X4B IF NOT DONE                               DBG0002  1423
                                                                                                                 DBG0002  1424
                                                  LX4    59-29                                                   DBG0002  1425
                                                  BX7    X4+X3       (X7) = 30/POS COUNTER,30/P REG OF XFER INST DBG0002  1426
                                                  SA7    A1-B1       MAKE NEW ENTRY                              DBG0002  1427
                                                  MX7    0                                                       DBG0002  1428
                                                  EQ     STP=X4      FORCE UPPER...                              DBG0002  1429
                                                                                                                 DBG=IDP  4031
                                        *         HERE IF INSTRUCTION DOES NOT FORCE UPPER.                      DBG=IDP  4032
                                                                                                                 DBG=IDP  4033
                                         STP=X5   SB6    B4-B5                                                   DBG=IDP  4034
                                                  SX7    B6                                                      DBG=IDP  4035
                                                  SA7    A4                                                      DBG=IDP  4036
                                                                                                                 DBG=IDP  4037
                                        *         LIST RESULT REGISTER.                                          DBG=IDP  4038
                                                                                                                 DBG=IDP  4039
                                         STP=X6   SA3    IDPXLST                                                 DBG=IDP  4040
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    94
  
  
                                                  SA4    STP=OP                                                  DBG=IDP  4041
                                                  ZR     X3,EXIT.    IF NOT LISTING                              DBG=IDP  4042
                                                                                                                 DBG=IDP  4043
                                                  SX6    X4-10B                                                  DBG=IDP  4044
                                                  SA3    STP=I                                                   DBG=IDP  4045
                                                  MI     X6,EXIT.    IF A BRANCH INSTRUCTION                     DBG=IDP  4046
                                                  LX1    -2          RESTORE (X1) = INSTRUCTION SKELETON         DBG=IDP  4047
                                                  MX0    -CHAR                                                   DBG=IDP  4048
                                                  BX6    -X0*X1                                                  DBG=IDP  4049
                                                  SX7    X6-1RB                                                  DBG=IDP  4050
                                                  SB6    000B        (B6) = 0TR, WHERE T=0 (B REG)               DBG=IDP  4051
                                                  ZR     X7,STP=X8   IF B REGISTER                               DBG=IDP  4052
                                                  SX7    X6-1RA                                                  DBG=IDP  4053
                                                  SB6    010B        (B6) = 0TR, WHERE T=1 (A REG)               DBG=IDP  4054
                                                  ZR     X7,STP=X8   IF A REGISTER                               DBG=IDP  4055
                                                  SX7    X6-1RX                                                  DBG=IDP  4056
                                                  SB6    020B        (B6) = 0TR, WHERE T=2 (X REG)               DBG=IDP  4057
                                                  ZR     X7,STP=X9   IF X REGISTER                               DBG=IDP  4058
                                                  EQ     EXIT.                                                   DBG=IDP  4059
                                                                                                                 DBG=IDP  4060
                                         STP=X8   SB4    B6+X3       (B4) = 0TR                                  DBG=IDP  4061
                                                  RJ     DAB         DUMP -A- OR -B- REGISTER                    DBG=IDP  4062
                                                  EQ     EXIT.                                                   DBG=IDP  4063
                                                                                                                 DBG=IDP  4064
                                         STP=X9   SB4    B6+X3       (B4) = 02R                                  DBG=IDP  4065
                                                  RJ     DUX         DUMP -X- REGISTER                           DBG=IDP  4066
                                                  EQ     EXIT.                                                   DBG=IDP  4067
                                                                                                                 DBG=IDP  4068
                                        *         HERE IF AN ERROR ENCOUNTERED.                                  DBG=IDP  4069
                                                                                                                 DBG=IDP  4070
                                         STP=ER   SA1    IDPXLST                                                 DBG=IDP  4071
                                                  SA2    ST=ENDX                                                 DBG=IDP  4072
                                                  SA3    IDPPREG                                                 DBG=IDP  4073
                                                  SA4    IDPPOS                                                  DBG=IDP  4074
                                                  NZ     X1,STP=E3   IF INSTRUCTION WAS ALREADY LISTED           DBG=IDP  4075
                                                  SA5    X3                                                      DBG=IDP  4076
                                                  ZR     X2,STP=E2   IF NOT IN IDP GENERATED BREAK MODE          DBG=IDP  4077
                                                  SA5    A2                                                      DBG=IDP  4078
                                                                                                                 DBG=IDP  4079
                                         STP=E2   SB4    X4                                                      DBG=IDP  4080
                                                  RJ     DAZ         DEASSEMBLE BAD INSTRUCTION                  DBG=IDP  4081
                                                                                                                 DBG=IDP  4082
                                         STP=E3   MX0    -18                                                     DBG=IDP  4083
                                                  SA1    IDPPREG                                                 DBG=IDP  4084
                                                  SA2    =10H      P =                                           DBG=IDP  4085
                                                  BX1    -X0*X1                                                  DBG=IDP  4086
                                                  LX7    X2                                                      DBG=IDP  4087
                                                  SA7    SNAPLNE                                                 DBG=IDP  4088
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  4089
                                                  BX6    X4                                                      DBG=IDP  4090
                                                  SA6    A7+B1                                                   DBG=IDP  4091
                                                                                                                 DBG=IDP  4092
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  4093
                                                  SA1    IDPPREG                                                 DBG=IDP  4094
                                                  SB7    STP=E4      (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP  4095
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  4096
                                                                                                                 DBG=IDP  4097
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    95
  
  
                                         STP=E4   SA6    A6+B1                                                   DBG=IDP  4098
                                                  SA7    A6+B1                                                   DBG=IDP  4099
                                                                                                                 DBG=IDP  4100
                                         #FRA     ELSE                                                           DBG=IDP  4101
                                                  MX6    0                                                       DBG=IDP  4102
                                                  SA6    A6+B1       MARK EOL                                    DBG=IDP  4103
                                         #FRA     ENDIF                                                          DBG=IDP  4104
                                                                                                                 DBG=IDP  4105
                                                  PRIDP  SNAPLNE                                                 DBG=IDP  4106
                                                  EQ     IDP=ER                                                  DBG=IDP  4107
                                                                                                                 DBG=IDP  4108
                                                                                                                 DBG=IDP  4109
                                         STP=ADR  =      DAZ=ADR                                                 DBG=IDP  4110
                                         STP=I    =      DAZ=I                                                   DBG=IDP  4111
                                         STP=J    =      DAZ=J                                                   DBG=IDP  4112
                                         STP=K    =      DAZ=K                                                   DBG=IDP  4113
                                         STP=OP   =      DAZ=OP                                                  DBG=IDP  4114
                                         VFD      SPACE  4,8                                                     DBG=IDP  4115
                                        **        VFD - VARIABLE FIELD DEFINITION.                               DBG=IDP  4116
                                        *                                                                        DBG=IDP  4117
                                        *                                                                        DBG=IDP  4118
                                        *                CONVERTS A SPECIFIED FIELD IN A BINARY WORD TO OCTAL    DBG=IDP  4119
                                        *         DISPLAY CODE WITH APPROPRIATE SPACING AND BLANK FILL.          DBG=IDP  4120
                                        *         THE FIELD TO BE CONVERTED CAN BE REPRESENTED IN *COMPASS* BY-- DBG=IDP  4121
                                        *                                                                        DBG=IDP  4122
                                        *         POS    (B4)   IN (X1)                                          DBG=IDP  4123
                                        *         VFD    (B5)/FIELD   WHERE *FIELD* HAS BEEN EXTRACTED FROM (X1) DBG=IDP  4124
                                        *                                                                        DBG=IDP  4125
                                        *         E.G.   (B4) = 45   POSITION COUNTER                            DBG=IDP  4126
                                        *                (B5) = 30   NR OF BITS                                  DBG=IDP  4127
                                        *                                                                        DBG=IDP  4128
                                        *                BINARY      76211031100015620310                        DBG=IDP  4129
                                        *                DPC RSULT   .....0311000156.....    (.=BLANK(55B))      DBG=IDP  4130
                                        *                                                                        DBG=IDP  4131
                                        *         ENTRY  (X1)  =  BINARY WORD TO BE CONVERTED                    DBG=IDP  4132
                                        *                (B4)  =  POSITION COUNTER                               DBG=IDP  4133
                                        *                (B5)  =  NR OF BITS IN FIELD                            DBG=IDP  4134
                                        *                                                                        DBG=IDP  4135
                                        *         EXIT   (X6)  =  CONVERTED UPPER 30 BITS OF (X1) -- DPC RESULT  DBG=IDP  4136
                                        *                (X7)  =  CONVERTED LOWER 30 BITS OF (X1) -- DPC RESULT  DBG=IDP  4137
                                        *                (X0)  =  .ZR. IF BAD POS OR BIT COUNT ON ENTRY,         DBG=IDP  4138
                                        *                            ELSE .NZ.                                   DBG=IDP  4139
                                        *                                                                        DBG=IDP  4140
                                        *         USES   X - 0,1,2,3,4,6,7                                       DBG=IDP  4141
                                        *                A - NONE                                                DBG=IDP  4142
                                        *                B - 6                                                   DBG=IDP  4143
                                        *                                                                        DBG=IDP  4144
                                        *         CALLS  NONE                                                    DBG=IDP  4145
                                                                                                                 DBG=IDP  4146
                                                                                                                 DBG=IDP  4147
                                         VFD      SUBR               ** ENTRY/EXIT **                            DBG=IDP  4148
                                                  MX3    0                                                       DBG=IDP  4149
                                                  BX0    X0-X0                                                   DBG=IDP  4150
                                                  SB6    B5-1                                                    DBG=IDP  4151
                                                  LT     B4,B0,EXIT. IF POS COUNT IS BAD                         DBG=IDP  4152
                                                  LT     B5,B0,EXIT. IF BIT COUNT IS BAD                         DBG=IDP  4153
                                                  MX0    -3                                                      DBG=IDP  4154
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    96
  
  
                                                  ZR     B5,VFD2     IF NOT CONVERTING ANY BITS                  DBG=IDP  4155
                                                  MX3    1                                                       DBG=IDP  4156
                                                  AX3    X3,B6                                                   DBG=IDP  4157
                                                  NO                                                             DBG=IDP  4158
                                                  LX3    X3,B4       (X3) = EXTRACT MASK FOR BITS TO CONVERT     DBG=IDP  4159
                                                  BX1    X3*X1                                                   DBG=IDP  4160
                                                                                                                 DBG=IDP  4161
                                         VFD2     MX6    0                                                       DBG=IDP  4162
                                                  BX7    X7-X7                                                   DBG=IDP  4163
                                                  SB6    60                                                      DBG=IDP  4164
                                                                                                                 DBG=IDP  4165
                                        *         ASSEMBLE APPROPRIATE DIGITS.                                   DBG=IDP  4166
                                                                                                                 DBG=IDP  4167
                                         VFD3     LX1    3                                                       DBG=IDP  4168
                                                  BX2    -X0*X1                                                  DBG=IDP  4169
                                                  LX3    3                                                       DBG=IDP  4170
                                                  BX4    -X0*X3                                                  DBG=IDP  4171
                                                  SX2    X2+1R0                                                  DBG=IDP  4172
                                                  SB6    B6-6                                                    DBG=IDP  4173
                                                  NZ     X4,VFD4     IF ASSEMBLING THESE DIGITS                  DBG=IDP  4174
                                                  SX2    1R                                                      DBG=IDP  4175
                                                                                                                 DBG=IDP  4176
                                         VFD4     LX2    X2,B6                                                   DBG=IDP  4177
                                                  BX7    X7+X2                                                   DBG=IDP  4178
                                                  GT     B6,B0,VFD3  IF PACKING REG (X7) NOT FULL                DBG=IDP  4179
                                                                                                                 DBG=IDP  4180
                                        *         HERE IF PACKING REGISTER (X7) IS FULL.                         DBG=IDP  4181
                                                                                                                 DBG=IDP  4182
                                                  SB6    60                                                      DBG=IDP  4183
                                                  NZ     X6,EXIT.    IF FINISHED ASSEMBLING ENTIRE WORD          DBG=IDP  4184
                                                  BX6    X7                                                      DBG=IDP  4185
                                                  MX7    0                                                       DBG=IDP  4186
                                                  EQ     VFD3                                                    DBG=IDP  4187
                                         DATA     SPACE  4,8                                                     DBG=IDP  4188
                                        **        *IDP* DATA DECLARATIONS.                                       DBG=IDP  4189
                                                                                                                 DBG=IDP  4190
                                                                                                                 DBG0002  1430
                                         IDPSTMT  BSSZ   1           DURING TOKEN GENERATION *BUB* -- CONTAINS   DBG0002  1431
                                        *                              ADDR OF STMT INFO WORD FOR STMT BEING     DBG0002  1432
                                        *                              BURST/BUILT, SO THAT UPON ENCOUNTERING    DBG0002  1433
                                        *                              EOS, *BUB* CAN GO BACK AND FILL IN LEN.   DBG0002  1434
                                        *                            DURING STMT PROCESSING -- INDICATES WHERE   DBG0002  1435
                                        *                              STMT BEING PROCESSED IS.                  DBG0002  1436
                                        *                              IF STMT IS NOT PART OF *PROC* -- BIT 59   DBG0002  1437
                                        *                                IS 0 AND BITS 17 THRU 0 CONTAIN THE     DBG0002  1438
                                        *                                ADDR OF STMT INFO WORD IN *IDPTB* FOR   DBG0002  1439
                                        *                                THIS STMT.                              DBG0002  1440
                                        *                              IF STMT IS PART OF *PROC* -- BIT 59 IS 1  DBG0002  1441
                                        *                                AND BITS 17 THRU 0 CONTAIN THE *IDPPRN* DBG0002  1442
                                        *                                ORD OF *PROC* CONTAINING STMT.          DBG0002  1443
                                                                                                                 DBG0002  1444
                                         IDPSTO   BSSZ   3                                                       DBG=IDP  4191
                                                                                                                 DBG=IDP  4192
                                                  LOC    IDPSTO                                                  DBG=IDP  4193
                                         IDPSTA   =      *           ADDR TO STORE INTO FOR *STORE* PROCESSING   DBG=IDP  4194
                                         IDPSTC   =      *+1         NEW VALUE ASSEMBLED FROM C1 THRU C4 ON      DBG=IDP  4195
                                        *                              *STORE* COMMAND                           DBG=IDP  4196
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    97
  
  
                                         IDPSTM   =      *+2         MASK ASSEMBLED FROM NULL C1 THRU C4 ON      DBG=IDP  4197
                                        *                              *STORE* COMMAND. IDP USES THIS MASK TO    DBG=IDP  4198
                                        *                              PICK UP THE PREVIOUS CONTENTS OF THE C-N- DBG=IDP  4199
                                        *                              FIELD IF THE NEW C-N- FIELD IS NULL       DBG=IDP  4200
                                        *                              E.G.  STORE ADDR,,22222,,44444            DBG=IDP  4201
                                        *                              PREVIOUS (STA) = 01020304050607080910     DBG=IDP  4202
                                        *                                       (STC) = 00000222220000044444     DBG=IDP  4203
                                        *                                       (STM) = 77777000007777700000     DBG=IDP  4204
                                        *                                   NEW (STA) = 01020222220607044444     DBG=IDP  4205
                                                  LOC    *O                                                      DBG=IDP  4206
                                                                                                                 DBG=IDP  4207
                                         IDPBAX   BSS    0           BAX REGISTER SHIFT MASK                     DBG=IDP  4208
                                                  ECHO   2,BIT=(A,B,X)                                           DBG=IDP  4209
                                                  POS    60-1R_BIT                                               DBG=IDP  4210
                                                  VFD    1/1                                                     DBG=IDP  4211
                                                  POS    0                                                       DBG=IDP  4212
                                                                                                                 DBG0002  1445
                                         IDPSMX   BSS    0           SEPARATOR TOKEN MASK +-*,                   DBG=IDP  4217
                                                  POS    60-1R+                                                  DBG=IDP  4218
                                                  VFD    1/1                                                     DBG=IDP  4219
                                                  POS    60-1R-                                                  DBG=IDP  4220
                                                  VFD    1/1                                                     DBG=IDP  4221
                                                  POS    60-1R*                                                  DBG=IDP  4222
                                                  VFD    1/1                                                     DBG=IDP  4223
                                                  POS    60-1R,                                                  DBG=IDP  4224
                                                  VFD    1/1                                                     DBG=IDP  4225
                                                  POS    0                                                       DBG=IDP  4226
                                         IDPBTC   BSSZ   1           BREAK TYPE CODE                             DBG=IDP  4227
                                                                                                                 DBG=IDP  4228
                                         IDPACC   BSSZ   1           ACCUMULATOR FOR THIS SUBEXPRESSION          DBG=IDP  4229
                                         IDPIND   BSSZ   1           USED BY *PAS* TO SHOW THE LEVEL OF INDIR-   DBG=IDP  4230
                                        *                              ECT ADDRESSING, 0 = DIRECT ADDRESSING     DBG=IDP  4231
                                         IDPNUL   BSSZ   1           .ZR. IF JUST PARSED NULL EXPRESSION         DBG=IDP  4232
                                        *                                   E.G.   SNAP FWA,,LEN   (LWA IS NULL) DBG=IDP  4233
                                         IDPSGN   BSSZ   1           SET TO +0 WHEN + SIGN ENCOUNTERED           DBG=IDP  4234
                                        *                                   -0 WHEN - SIGN ENCOUNTERED           DBG=IDP  4235
                                                                                                                 DBG=IDP  4236
                                         IDP0TR   BSSZ   1           REGISTER DESIGNATOR                         DBG=IDP  4237
                                        *                              USED FOR *REG R1,R2,...,RN* PROCESSING.   DBG=IDP  4238
                                        *                              FORMAT IS--  60/0TR WHERE                 DBG=IDP  4239
                                        *                                  T = REGISTER TYPE (B=0,A=1,X=2)       DBG=IDP  4240
                                        *                                  R = REGISTER NR (0-7)                 DBG=IDP  4241
                                                                                                                 DBG=IDP  4242
                                         IDPNAM   BSSZ   1           SAVE CELL FOR *ST=SET* -- SET NAME (0L FMT) DBG=IDP  4243
                                                                                                                 DBG=IDP  4244
                                         IDPFAD   BSSZ   1           .NZ. IF *DAZ* IS TO FORCE OUT ADDR OF INST- DBG0002  1446
                                        *                              RUCTION BEING DEASSEMBLED EVEN IF NOT     DBG0002  1447
                                        *                              FORCED UPPER IN WORD, ELSE .ZR.           DBG0002  1448
                                        *                              E.G. IF *FAD* IS .ZR. --                  DBG0002  1449
                                        *                              ADDR  54111                 SA1  A1+B1    DBG0002  1450
                                        *                                         0311000000       NZ   X1,...   DBG0002  1451
                                        *                                                   10611  BX6  X1       DBG0002  1452
                                        *                              E.G. IF *FAD* IS .NZ. --                  DBG0002  1453
                                        *                              ADDR  54111                 SA1  A1+B1    DBG0002  1454
                                        *                              ADDR       0311000000       NZ   X1,...   DBG0002  1455
                                        *                              ADDR                 10611  BX6  X1       DBG0002  1456
                                        *                              NOTE-- *DAZ* WILL ALWAYS ZERO *FAD*       DBG0002  1457
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    98
  
  
                                                                                                                 DBG0002  1458
                                         IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                          DBG=IDP  4247
                                                                                                                 DBG=IDP  4248
                                         IDPPPP   BSSZ   2           PSEUDO P REGISTER AND POS COUNTER           DBG=IDP  4249
                                                                                                                 DBG=IDP  4250
                                                  LOC    IDPPPP                                                  DBG=IDP  4251
                                         IDPPREG  =      *           PSEUDO P REGISTER. POINTS TO WORD CONTAIN-  DBG=IDP  4252
                                        *                              ING NEXT INSTRUCTION TO BE XEQ            DBG=IDP  4253
                                         IDPPOS   =      *+1         POSITION COUNTER. LEFT MOST BIT OF INST-    DBG=IDP  4254
                                        *                              RUCTION TO XEQ IS BIT (IDPPOS)-1 IN       DBG=IDP  4255
                                        *                              ((IDPPREG)).(BITS ARE NUMBERED 59 THRU 0) DBG=IDP  4256
                                                  LOC    *O                                                      DBG=IDP  4257
                                                                                                                 DBG=IDP  4258
                                         IDPXAR   BSSZ   1           .MI. IF NO ADDR REF VIA LOAD/STORE, ELSE    DBG=IDP  4259
                                        *                              ADDR THAT WAS REFERENCED. USED IN *STAR*  DBG=IDP  4260
                                        *                              PROCESSING.                               DBG=IDP  4261
                                         IDPXCA   BSSZ   2           CONDITIONAL *STEP* COMPARE ADDRESSES.       DBG=IDP  4262
                                        *                              IF THIS IS A CONDITIONAL STEP (STNE,...), DBG=IDP  4263
                                        *                              THEN ((XA1)) WILL BE COMPARED TO ((XA2))  DBG=IDP  4264
                                                                                                                 DBG=IDP  4265
                                                  LOC    IDPXCA                                                  DBG=IDP  4266
                                         IDPXA1   =      *                                                       DBG=IDP  4267
                                         IDPXA2   =      *+1                                                     DBG=IDP  4268
                                                  LOC    *O                                                      DBG=IDP  4269
                                                                                                                 DBG=IDP  4270
                                         IDPXFR   BSSZ   1           .ZR. IF NO XFER OF CONTROL BY BRANCH OR RJ, DBG=IDP  4271
                                        *                              ELSE ADDR TO XFER CONTROL TO. USED IN     DBG=IDP  4272
                                        *                              STEP MODE SO THAT PSEUDO P REGISTER IS    DBG=IDP  4273
                                        *                              NOT PREMATURELY UPDATED WHEN BRANCHING.   DBG=IDP  4274
                                         IDPXLST  BSSZ   1           .NZ. IF LISTING THIS INSTRUCTION IN STEP    DBG=IDP  4275
                                        *                              MODE, ELSE .ZR.                           DBG=IDP  4276
                                         IDPXRJ   BSSZ   1           .ZR. IF AT LEVEL 0 (I.E. NO *RJ* ACTIVE),   DBG=IDP  4277
                                        *                              ELSE ADDR OF ENTRY POINT TO ROUTINE       DBG=IDP  4278
                                        *                              CALLED FROM LEVEL 0. USED IN STEP MODE TO DBG=IDP  4279
                                        *                              DETERMINE WHEN TO TURN LISTING BACK ON    DBG=IDP  4280
                                        *                              WHEN /-RJ/ OPTION SELECTED                DBG=IDP  4281
                                         IDPXTC   BSSZ   1           *STEP* TYPE CODE                            DBG=IDP  4282
                                                                                                                 DBG=IDP  4283
                                         IDPXOP   BSSZ   2           STEP OPTIONS FLAGS. THERE IS A ONE-TO-ONE   DBG=IDP  4284
                                        *                              RELATIONSHIP BETWEEN THE STEP OPTIONS     DBG=IDP  4285
                                        *                              FLAGS AND THE STEP OPTIONS KEYWORD TABLE. DBG=IDP  4286
                                        *                              WHEN *POL* RETURNS WITH A KEYWORD FIND    DBG=IDP  4287
                                        *                              AND AN OPTIONS FLAG VALUE, THE ORDINAL OF DBG=IDP  4288
                                        *                              FIND IN THE STEP OPTIONS KEYWORD TABLE IS DBG=IDP  4289
                                        *                              THE ORDINAL TO STORE INTO *IDPXOP*.       DBG=IDP  4290
                                                                                                                 DBG=IDP  4291
                                                  LOC    IDPXOP                                                  DBG=IDP  4292
                                         IDPXOL   =      *           .NZ. IF /L/ SELECTED ON STEP COMAND,        DBG=IDP  4293
                                        *                              ELSE .ZR. IF /-L/ SELECTED                DBG=IDP  4294
                                         IDPXORJ  =      *+1         .NZ. IF /RJ/ SELECTED ON STEP COMMAND,      DBG=IDP  4295
                                        *                              ELSE .ZR. IF /-RJ/ SELECTED               DBG=IDP  4296
                                                  LOC    *O                                                      DBG=IDP  4297
                                         MX=      SPACE  4,8                                                     DBG0002  1459
                                        **        MX= - CHARACTER SHIFT MASKS.                                   DBG0002  1460
                                                                                                                 DBG0002  1461
                                                                                                                 DBG0002  1462
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE    99
  
  
                                         MX=KEYW  CHARMX (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,0, DBG0002  1463
                                        ,1,2,3,4,5,6,7,8,9),+7777B-1RM                                           DBG0002  1464
                                         MX=NR09  CHARMX (0,1,2,3,4,5,6,7,8,9)                                   DBG0002  1465
                                         MX=TOKN  CHARMX ("EOS",+,-,*,(,)),+7777B-1RM                            DBG0002  1466
                                         MSG      SPACE  4,8                                                     DBG=IDP  4298
                                        **        *IDP* MESSAGES.                                                DBG=IDP  4299
                                                                                                                 DBG=IDP  4300
                                         IDPMSG2  DIS    3, CALLD BY 000000 IN XXXXXXX                           DBG=IDP  4301
                                         IDPMSG4  DIS    3, OLD VALU 00000000000000000000                        DBG=IDP  4302
                                                  DATA   0                                                       DBG=IDP  4303
                                         IDPMSG5  DIS    3, NEW VALU 00000000000000000000                        DBG=IDP  4304
                                                  DATA   0                                                       DBG=IDP  4305
                                         F.IDI    SPACE  4,8                                                     DBG=IDP  4306
                                        **        F.IDI - FET, LINE IMAGE AREA, AND BUFFER FOR INTERACTIVE       DBG=IDP  4307
                                        *           DEBUG INPUT FILE.                                            DBG=IDP  4308
                                                                                                                 DBG=IDP  4309
                                         #IDI     IF     -DEF,F.IDI                                              DBG=IDP  4310
                                         L.IDI    =      101B        LENGTH OF *IDP* INPUT BUFFER                DBG0002  1467
                                                                                                                 DBG=IDP  4312
                                         F.IDI    BSS    0           ** FWA OF FET **                            DBG=IDP  4313
                                         ZZZZZDI  FILEC  IDPIDI,L.IDI,(FET=7)                                    DBG0005     6
                                                  DIS    1, **IDP**                                              DBG0002  1468
                                         IDPLIM   DIS    8,INTERACTIVE DEBUG LINE IMAGE AREA.                    DBG=IDP  4315
                                         IDPIDI   BSS    L.IDI                                                   DBG=IDP  4316
                                                                                                                 DBG0002  1469
                                         L=LIM    BSSZ   1           NR OF WORDS IN SOURCE LINE IMAGE AT         DBG0002  1470
                                        *                              (IDPLIM) ET SEQ (INCLUDES WORD CONTAINING DBG0002  1471
                                        *                              EOL MARK)                                 DBG0002  1472
                                         #IDI     ENDIF                                                          DBG=IDP  4317
                                         F.BDI    SPACE  4,8                                                     DBG0002  1473
                                         F.BDI    =      F.IDI                                                   DBG0002  1474
                                         F.IDO    SPACE  4,8                                                     DBG=IDP  4318
                                        **        F.IDO - FET AND BUFFER FOR INTERACTIVE DEBUG OUTPUT FILE.      DBG=IDP  4319
                                                                                                                 DBG=IDP  4320
                                         #IDO     IF     -DEF,F.IDO                                              DBG=IDP  4321
                                         L.IDO    =      101B        LENGTH OF *IDP* OUTPUT BUFFER               DBG=IDP  4322
                                                                                                                 DBG=IDP  4323
                                         F.IDO    BSS    0           ** FWA OF FET **                            DBG=IDP  4324
                                         ZZZZZDO  FILEC  IDPIDO,L.IDO,(FET=7)                                    DBG0005     7
                                         IDPIDO   BSS    L.IDO                                                   DBG=IDP  4326
                                         #IDO     ENDIF                                                          DBG=IDP  4327
                                         IDPTB    SPACE  4,8                                                     DBG0002  1475
                                        **        IDPTB - COMMAND LINE TOKEN BUFFER.                             DBG0002  1476
                                        *                                                                        DBG0002  1477
                                        *                CONTAINS THE CURRENT COMMAND LINE IN TOKEN FORM.        DBG0002  1478
                                        *                                                                        DBG0002  1479
                                        *         TOKEN BUFFER FORMAT --                                         DBG0002  1480
                                        *                                                                        DBG0002  1481
                                        *         VFD    1/LAS,41/0,18/LEN   (TOKEN INFO WORD FOR STMT 1)        DBG0002  1482
                                        *         VFD    42/0LCHARS,18/TOKEN TYPE                                DBG0002  1483
                                        *         VFD    42/0LCHAR ,18/TOKEN TYPE                                DBG0002  1484
                                        *          .                                                             DBG0002  1485
                                        *          .                                                             DBG0002  1486
                                        *         VFD    60/0   (END OF STATEMENT MARK FOR STMT 1)               DBG0002  1487
                                        *                                                                        DBG0002  1488
                                        *         VFD    1/LAS,41/0,18/LEN   (TOKEN INFO WORD FOR STMT 2)        DBG0002  1489
                                        *          .                                                             DBG0002  1490
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   100
  
  
                                        *         ETC                                                            DBG0002  1491
                                        *                                                                        DBG0002  1492
                                        *                THE FIELDS IN THE TOKEN INFORMATION WORDS ARE DESCRIBED DBG0002  1493
                                        *         BY PAIRS OF SYMBOLS OF THE FORM *TB.XXXP* AND *TB.XXXL*,       DBG0002  1494
                                        *         WHERE *TB* IS THE COMMON PREFIX, AND *XXX* IS THE FIELD        DBG0002  1495
                                        *         DESCRIPTION.                                                   DBG0002  1496
                                        *                                                                        DBG0002  1497
                                        *         FIELD DESCRIPTIONS (XXX) ARE --                                DBG0002  1498
                                        *                                                                        DBG0002  1499
                                        *         LAS  = 1  IF THIS IS LAST STMT ON LINE, ELSE 0                 DBG0002  1500
                                        *                                                                        DBG0002  1501
                                        *         LEN  = NR OF WORDS OR TOKENS IN STMT  (INCLUDES EOL MARK)      DBG0002  1502
                                        *                  NOTE--IF LAS .EQ. 0, TOKEN INFO WORD FOR NEXT         DBG0002  1503
                                        *                  STMT IS AT -- TOKEN INFO WORD + LEN + 1               DBG0002  1504
                                                                                                                 DBG0002  1505
                                                                                                                 DBG0002  1506
                                         L.TB     =      40          LENGTH OF TOKEN BUFFER                      DBG0002  1507
                                         IDPTB    BSSZ   L.TB                                                    DBG0002  1508
                                         TOKEN    SPACE  4,8                                                     DBG=IDP  4334
                                        **        IDP TOKEN VALUES.                                              DBG=IDP  4335
                                                                                                                 DBG=IDP  4336
                                         O.CONS   =      2           CONSTANT                                    DBG=IDP  4337
                                         O.SEP    =      4           SEPARATOR +-*,                              DBG=IDP  4338
                                         O.VAR    =      3           NAME                                        DBG=IDP  4339
                                         KEYW     SPACE  4,8                                                     DBG=IDP  4340
                                        **        KEYW - *IDP* KEYWORD TABLE GENERATOR.                          DBG=IDP  4341
                                        *                                                                        DBG=IDP  4342
                                        *                                                                        DBG=IDP  4343
                                        *                MACRO USED TO GENERATE THE *IDP* COMMAND KEYWORD TABLE. DBG=IDP  4344
                                        *                                                                        DBG=IDP  4345
                                        *         KEYW   KEYWRD,ADDR                                             DBG=IDP  4346
                                        *                                                                        DBG=IDP  4347
                                        *         ENTRY  *KEYWRD* =  THE *IDP* KEYWORD                           DBG=IDP  4348
                                        *                *ADDR*   =  STATEMENT PROCESSOR FOR THIS KEYWORD        DBG=IDP  4349
                                        *                                                                        DBG=IDP  4350
                                        *         EXIT   NONE                                                    DBG=IDP  4351
                                        *                                                                        DBG=IDP  4352
                                        *         USES   NONE                                                    DBG=IDP  4353
                                        *                                                                        DBG=IDP  4354
                                        *         CALLS  NONE                                                    DBG=IDP  4355
                                                                                                                 DBG=IDP  4356
                                                                                                                 DBG=IDP  4357
                                                  PURGMAC  KEYW                                                  DBG=IDP  4358
                                                                                                                 DBG=IDP  4359
                                         KEYW     MACRO  KEYWRD,ADDR                                             DBG=IDP  4360
                                                  VFD    42/0L_KEYWRD,18/ADDR                                    DBG=IDP  4361
                                         KEYW     ENDM                                                           DBG=IDP  4362
                                         KEY      SPACE  4,8                                                     DBG=IDP  4363
                                        **        *IDP* KEYWORD TABLE.                                           DBG=IDP  4364
                                                                                                                 DBG=IDP  4365
                                         IDPKEY   BSS    0                                                       DBG=IDP  4366
                                                  KEYW   CODE,ST=COD                                             DBG=IDP  4367
                                                  KEYW   CONNECT,ST=CON                                          DBG=IDP  4368
                                                  KEYW   DISCONT,ST=DSC                                          DBG=IDP  4369
                                                  KEYW   DPC,ST=DPC                                              DBG0002  1509
                                                  KEYW   END,ST=END                                              DBG=IDP  4370
                                                  KEYW   FREEZE,ST=FRZ                                           DBG0006   139
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   101
  
  
                                                  KEYW   JUMP,ST=JP                                              DBG=IDP  4371
                                                  KEYW   OUTPUT,ST=OUT                                           DBG0002  1510
                                                  KEYW   REGS,ST=REG                                             DBG=IDP  4372
                                                  KEYW   RESET,ST=RES                                            DBG=IDP  4373
                                                  KEYW   SET,ST=SET                                              DBG=IDP  4374
                                                  KEYW   SNAP,ST=SNP                                             DBG=IDP  4375
                                                  KEYW   STORE,ST=STO                                            DBG=IDP  4376
                                                  KEYW   UNBREAK,ST=UBK                                          DBG=IDP  4377
                                                  KEYW   UNSET,ST=UST                                            DBG=IDP  4378
                                                  KEYW   UBREAK,ST=UBK                                           DBG=IDP  4379
                                                  KEYW   USET,ST=UST                                             DBG=IDP  4380
                                                  KEYW   WHERE,ST=WHR                                            DBG=IDP  4381
                                                  KEYW   XEQ,ST=XEQ                                              DBG=IDP  4382
                                                  KEYW   XFER,ST=XFR                                             DBG0002  1511
                                                                                                                 DBG=IDP  4383
                                        *         *BREAK* KEYWORDS.                                              DBG=IDP  4384
                                        *              THE BREAK TYPE CODE (IDPBTC) IS DETERMINED FROM THE BREAK DBG=IDP  4385
                                        *           KEYWORD ORDINAL.                                             DBG=IDP  4386
                                        *              THERE EXISTS A ONE-TO-ONE RELATIONSHIP BETWEEN THE        DBG=IDP  4387
                                        *           BREAK KEYWORD TABLE AND THE *CBC* OPERATOR TABLE. A CHANGE   DBG=IDP  4388
                                        *           TO ONE WOULD AFFECT THE OTHER.                               DBG=IDP  4389
                                        *              THE ORDER OF THE BREAK KEYWORDS WITHIN *IDPKBR* IS ALSO   DBG=IDP  4390
                                        *           SIGNIFICANT--                                                DBG=IDP  4391
                                        *                BTC = 0  IS A BREAK WITH ONLY ONE ADDRESS EXPRESSION--  DBG=IDP  4392
                                        *                            BREAK ADDR                                  DBG=IDP  4393
                                        *                BTC .LT. BTC=EQ  ARE BREAKS WITH 2 ADDR EXPRESSIONS--   DBG=IDP  4394
                                        *                            BRPL ADDR,ADDR1                             DBG=IDP  4395
                                        *                BTC .GE. BTC=EQ  ARE BREAKS WITH 3 ADDR EXPRESSIONS--   DBG=IDP  4396
                                        *                            BREQ ADDR,ADDR1,ADDR2                       DBG=IDP  4397
                                        *           THIS INFORMATION IS USED THROUGHOUT BREAK PROCESSING.        DBG=IDP  4398
                                                                                                                 DBG=IDP  4399
                                         IDPKBR   BSS    0                                                       DBG=IDP  4400
                                                  LOC    0                                                       DBG=IDP  4401
                                                  KEYW   BREAK,ST=BRK                                            DBG=IDP  4402
                                                  KEYW   BRPL,ST=BRK                                             DBG=IDP  4403
                                                  KEYW   BRMI,ST=BRK                                             DBG=IDP  4404
                                                  KEYW   BRZR,ST=BRK                                             DBG=IDP  4405
                                                  KEYW   BRNZ,ST=BRK                                             DBG=IDP  4406
                                         BTC=EQ   KEYW   BREQ,ST=BRK                                             DBG=IDP  4407
                                                  KEYW   BRNE,ST=BRK                                             DBG=IDP  4408
                                                  KEYW   BRLT,ST=BRK                                             DBG=IDP  4409
                                                  KEYW   BRGE,ST=BRK                                             DBG=IDP  4410
                                                  KEYW   BRLE,ST=BRK                                             DBG=IDP  4411
                                                  KEYW   BRGT,ST=BRK                                             DBG=IDP  4412
                                                  LOC    *O                                                      DBG=IDP  4413
                                                                                                                 DBG=IDP  4414
                                        *         *STEP* KEYWORDS.                                               DBG=IDP  4415
                                        *              THE STEP TYPE CODE (IDPXTC) IS DETERMINED FROM THE STEP   DBG=IDP  4416
                                        *           KEYWORD ORDINAL.                                             DBG=IDP  4417
                                        *              THERE EXISTS A ONE-TO-ONE RELATIONSHIP BETWEEN THE STEP   DBG=IDP  4418
                                        *           KEYWORD TABLE AND THE *CBC* OPERATOR TABLE.                  DBG=IDP  4419
                                        *              THE ORDER OF THE STEP KEYWORDS WITHIN *IDPKST* IS ALSO    DBG=IDP  4420
                                        *           SIGNIFICANT--                                                DBG=IDP  4421
                                        *                XTC = 0  IS A STEP WITH NO ADDR EXPRESSION--            DBG=IDP  4422
                                        *                            STEP L,RJ                                   DBG=IDP  4423
                                        *                XTC .LT. XTC=EQ ARE STEPS WITH 1 ADDR EXPRESSION--      DBG=IDP  4424
                                        *                            STMI ADDR,L,RJ                              DBG=IDP  4425
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   102
  
  
                                        *                XTC .GE. XTC=EQ AND                                     DBG=IDP  4426
                                        *                    .LT. XTC=RNG ARE STEPS WITH 2 ADDR EXPRESSIONS--    DBG=IDP  4427
                                        *                            STGT ADDR1,ADDR2,L,RJ                       DBG=IDP  4428
                                        *                XTC .GE. XTC=RNG ARE STEPS THAT ARE SPECIAL CASED--     DBG=IDP  4429
                                        *                            STAR ADDR,L,RJ                              DBG=IDP  4430
                                        *           (ALSO SEE *BREAK* KEYWORDS)                                  DBG=IDP  4431
                                                                                                                 DBG=IDP  4432
                                         IDPKST   BSS    0                                                       DBG=IDP  4433
                                                  LOC    0                                                       DBG=IDP  4434
                                                  KEYW   STEP,ST=STP                                             DBG=IDP  4435
                                                  KEYW   STPL,ST=STP                                             DBG=IDP  4436
                                                  KEYW   STMI,ST=STP                                             DBG=IDP  4437
                                                  KEYW   STZR,ST=STP                                             DBG=IDP  4438
                                                  KEYW   STNZ,ST=STP                                             DBG=IDP  4439
                                         XTC=EQ   KEYW   STEQ,ST=STP                                             DBG=IDP  4440
                                                  KEYW   STNE,ST=STP                                             DBG=IDP  4441
                                                  KEYW   STLT,ST=STP                                             DBG=IDP  4442
                                                  KEYW   STGE,ST=STP                                             DBG=IDP  4443
                                                  KEYW   STLE,ST=STP                                             DBG=IDP  4444
                                                  KEYW   STGT,ST=STP                                             DBG=IDP  4445
                                         XTC=RNG  KEYW   STRANGE,ST=STP                                          DBG=IDP  4446
                                         XTC=NR   KEYW   STNR,ST=XNR                                             DBG0002  1512
                                         XTC=AR   KEYW   STAR,ST=STP                                             DBG=IDP  4448
                                                  LOC    *O                                                      DBG=IDP  4449
                                                  DATA   0           END OF TABLE MARK                           DBG=IDP  4450
                                                                                                                 DBG=IDP  4451
                                        **        *STEP* OPTIONS KEYWORD TABLE.                                  DBG=IDP  4452
                                        *           THERE IS A ONE-TO-ONE RELATIONSHIP BETWEEN THE STEP OPTIONS  DBG=IDP  4453
                                        *           KEYWORD TABLE AND THE STEP OPTIONS FLAGS (SEE *IDPXOP*)      DBG=IDP  4454
                                                                                                                 DBG=IDP  4455
                                         IDPKSTO  BSS    0                                                       DBG=IDP  4456
                                                  KEYW   L,1                                                     DBG=IDP  4457
                                                  KEYW   RJ,1                                                    DBG=IDP  4458
                                                  DATA   0           END OF TABLE MARK                           DBG=IDP  4459
                                         KEY      SPACE  4,8                                                     DBG0002  1513
                                        **        *OUTPUT* OPTIONS KEYWORD TABLE.                                DBG0002  1514
                                                                                                                 DBG0002  1515
                                         IDPKOUT  BSS    0                                                       DBG0002  1516
                                                  KEYW   B,ST=OUT3                                               DBG0002  1517
                                                  KEYW   BECHO,ST=OUT4                                           DBG0002  1518
                                                  KEYW   I,ST=OUT2                                               DBG0002  1519
                                                  KEYW   IECHO,ST=OUT5                                           DBG0002  1520
                                                  DATA   0           END OF TABLE MARK                           DBG0002  1521
                                         IDPBA    SPACE  4,8                                                     DBG=IDP  4460
                                        **        IDPBA/IDPBC - BREAK ADDRESS AND BREAK CONTENTS PARALLEL TBLS.  DBG=IDP  4461
                                                                                                                 DBG=IDP  4462
                                         L.BA     =      10          LENGTH OF *IDPBA*                           DBG=IDP  4463
                                         IDPBA    BSS    0           FWA OF *BREAK* ADDR TABLE                   DBG=IDP  4464
                                         .BA      DUP    L.BA,1                                                  DBG=IDP  4465
                                                  CON    -1                                                      DBG=IDP  4466
                                                  DATA   0           END OF TABLE TERMINATOR                     DBG=IDP  4467
                                         IDPBC    BSSZ   2*L.BA      *BREAK* ADDR CONTENTS TABLE                 DBG=IDP  4468
                                         IDPTMP   SPACE  4,8                                                     DBG=IDP  4469
                                        **        IDP USER *TEMP* TABLE.                                         DBG=IDP  4470
                                                                                                                 DBG=IDP  4471
                                         L.TMP    =      10D                                                     DBG=IDP  4472
                                         IDPTMP   BSSZ   L.TMP                                                   DBG=IDP  4473
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   103
  
  
                                         IDPSET   SPACE  4,8                                                     DBG=IDP  4474
                                        **        IDP *SET* TABLE DEFINITION.                                    DBG=IDP  4475
                                                                                                                 DBG=IDP  4476
                                         L.SET    =      30B         LENGTH OF IDP *SET* TABLE                   DBG=IDP  4477
                                         IDPSET   BSS    0                                                       DBG=IDP  4478
                                                  DUP    L.SET,1                                                 DBG=IDP  4479
                                                  CON    -1                                                      DBG=IDP  4480
                                                  DATA   0                                                       DBG=IDP  4481
                                         IDPXFT   SPACE  4,8                                                     DBG0002  1522
                                        **        IDPXFT - MOST RECENT TRANSFER ADDRESSES TABLE.                 DBG0002  1523
                                        *                                                                        DBG0002  1524
                                        *           TABLE FORMAT --                                              DBG0002  1525
                                        *                                                                        DBG0002  1526
                                        *             XFT+0    VFD  30/-1  AVAILABLE ENTRY(ONLY IF XFT NOT FULL) DBG0002  1527
                                        *                       .                                                DBG0002  1528
                                        *                       .                                                DBG0002  1529
                                        *                +N    VFD  30/POS COUNTER,30/P REG OF EARLIEST XFER     DBG0002  1530
                                        *                +N+1  VFD  30/POS COUNTER,30/P REG OF LATER XFER        DBG0002  1531
                                        *                       .                                                DBG0002  1532
                                        *               +L.XFT VFD  60/0   END OF TABLE MARK                     DBG0002  1533
                                                                                                                 DBG0002  1534
                                         L.XFT    =      4                                                       DBG0002  1535
                                         IDPXFT   BSS    0                                                       DBG0002  1536
                                                  DUP    L.XFT,1                                                 DBG0002  1537
                                                  CON    -1                                                      DBG0002  1538
                                                  DATA   0                                                       DBG0002  1539
                                         IFR      SPACE  4,8                                                     DBG0006   140
                                        ***       IFR - IDP FREEZE RESTART.                                      DBG0006   141
                                        *                                                                        DBG0006   142
                                        *                                                                        DBG0006   143
                                                                                                                 DBG0006   144
                                         FW.IFR   BSS    0           MARK FWA OF *FREEZE* RESTART AREA           DBG0006   145
                                                                                                                 DBG0006   146
                                                  QUAL   IFR                                                     DBG0006   147
                                         IFR      SPACE  4,8                                                     DBG0006   148
                                        **        IFR - IDP FREEZE RECOVERY/RESTART.                             DBG0006   149
                                        *                                                                        DBG0006   150
                                        *                                                                        DBG0006   151
                                        *         THIS ROUTINE IS USED TO RESTART (I.E. SWAPIN) AN               DBG0006   152
                                        *         IDP HOST PROGRAM THAT WAS FROZEN VIA *FREEZE*                  DBG0006   153
                                        *         COMMAND.  THE PROGRAM TO RESTART WAS WRITTEN BY *FRZ*          DBG0006   154
                                        *         TO LFN *F.FRZ* IN A SPECIAL FORMAT --                          DBG0006   155
                                        *                                                                        DBG0006   156
                                        *           RECORD 1  CONTAINS *IFR* (THE CODE YOU ARE LOOKING AT)       DBG0006   157
                                        *                     IN THE FORMAT OF AN ABSOLUTE BINARY.               DBG0006   158
                                        *                                                                        DBG0006   159
                                        *           RECORD 2  CONTAINS THE CORE IMAGE OF THE FROZEN PROGRAM.     DBG0006   160
                                        *                                                                        DBG0006   161
                                        *         BECAUSE RECORD 1 OF *F.FRZ* LOOKS LIKE AN ABS BINARY, THE      DBG0006   162
                                        *         PROGRAMMER NEED ONLY ENTER THE NAME OF THE FREEZE FILE AT      DBG0006   163
                                        *         HIS OR HER TERMINAL IN ORDER TO RESTART THE HOST.              DBG0006   164
                                        *                                                                        DBG0006   165
                                        *         AFTER *IFR* HAS BEEN LOADED, IT WILL MAKE AN OPERATING SYSTEM  DBG0006   166
                                        *         REQUEST FOR THE AMOUNT OF CM THAT THE HOST HAD AT THE TIME IT  DBG0006   167
                                        *         WAS FROZEN PLUS ENOUGH FOR *IFR* TO PERFORM THE FOLLOWING      DBG0006   168
                                        *         TASKS.  AFTER *IFR* HAS CREATED A HOLE FOR THE HOST            DBG0006   169
                                        *         BY *MEM*ING, IT WILL *PLUG* SOME CODE UP ABOVE THE HOLE,       DBG0006   170
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   104
  
  
                                        *         WHICH WILL READ IN THE 2ND RECORD OF *F.FRZ*.                  DBG0006   171
                                        *                                                                        DBG0006   172
                                        *         WE ALL HAVE CHET RICHARDS OF SVLOPS TO THANK FOR THIS          DBG0006   173
                                        *         DIABOLICALLY CLEVER IDEA.  HI HO SILVER, AND AWAY...           DBG0006   174
                                        *                                                                        DBG0006   175
                                        *         IMPORTANT NOTE--  IT IS IMPORTANT TO REALIZE THAT              DBG0006   176
                                        *         THIS CODE, AS IT EXISTS IN /DBG=IDP/, IS A DATA SECTION,       DBG0006   177
                                        *         I.E. IT CANNOT BE EXECUTED.  IT IS HERE ONLY SO THAT *FRZ*     DBG0006   178
                                        *         CAN WRITE IT OUT AS THE 1ST RECORD ON *F.FRZ*.                 DBG0006   179
                                        *                                                                        DBG0006   180
                                        *         ENTRY  NONE                                                    DBG0006   181
                                        *                                                                        DBG0006   182
                                        *         EXIT   TO *RHH* IN HIGH CORE TO READ IN FROZEN HOST            DBG0006   183
                                        *                                                                        DBG0006   184
                                        *         USES   IRRELEVANT                                              DBG0006   185
                                        *                                                                        DBG0006   186
                                        *         CALLS  MEMORY                                                  DBG0006   187
                                                                                                                 DBG0006   188
                                                                                                                 DBG0006   189
                                                  LOC    RA.ORG                                                  DBG0006   190
                                                                                                                 DBG0006   191
                                                  VFD    12/5000B,12/0,18/RA.ORG,18/IFR                          DBG0006   192
                                                                                                                 DBG0006   193
                                         IFR      BSS    0           ** LOADER ENTRY POINT **                    DBG0006   194
                                                  SB1    1                                                       DBG0006   195
                                                                                                                 DBG0006   196
                                        *         REQUEST ENOUGH MEMORY FOR THE FROZEN HOST PLUS *RHH*.          DBG0006   197
                                        *         ALSO, IF *CMM* WAS ACTIVE IN FROZEN HOST, INDICATE SO TO       DBG0006   198
                                        *         OPERATING SYSTEM.                                              DBG0006   199
                                                                                                                 DBG0006   200
                                                  SA2    SYS=MEM+1   (X2) = 30/AFLS OF FROZEN HOST,30/OTHER      DBG0006   201
                                                  SA1    CMMFLG      (X1) = .MI. IF *CMM* ACTIVE IN HOST,        DBG0006   202
                                        *                                   ELSE .PL.                            DBG0006   203
                                                  LX2    30                                                      DBG0006   204
                                                  MX3    1                                                       DBG0006   205
                                                  SX6    X2+L.RHH+L.IFRSZ+10B                                    DBG0006   206
                                                  BX7    X3*X1       (X7) = 1S59 IF *CMM* ACTIVE, ELSE +0        DBG0006   207
                                                  LX6    30          (X6) = 30/ENOUGH CORE FOR FROZEN HOST       DBG0006   208
                                        *                                    AND *RHH*, 30/0                     DBG0006   209
                                                  LX7    2-59                                                    DBG0006   210
                                                  BX6    X6+X2       SET *CMM* BIT IF APPROPRIATE                DBG0006   211
                                                  SA6    SYS=MEM                                                 DBG0006   212
                                                                                                                 DBG0006   213
                                                                                                                 DBG0006   214
                                                  SA1    IFRA        (X1) = *MEM* REQUEST WORD                   DBG0006   215
                                                  BX6    X1                                                      DBG0006   216
                                                  RJ     SYS         MAKE SYSTEM REQUEST                         DBG0006   217
                                                                                                                 DBG0006   218
                                        *         RESTORE (RA.SSW) AND (FL-1).                                   DBG0006   219
                                                                                                                 DBG0006   220
                                                  SA1    SVWDS       (X1) = SAVED (RA.SSW)                       DBG0006   221
                                                  SA3    A1+B1       (X3) = SAVED (FL-1)                         DBG0006   222
                                                  BX6    X1                                                      DBG0006   223
                                                  LX7    X2                                                      DBG0006   224
                                                  =A6    RA.SSW                                                  DBG0006   225
                                                  SA7    X2-1                                                    DBG0006   226
                                                                                                                 DBG0006   227
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   105
  
  
                                        *         SET UP *F.FRZ* FET SO THAT A *READSKP* WILL READ               DBG0006   228
                                        *         THE FROZEN HOST FROM *F.FRZ/RECORD 2* INTO                     DBG0006   229
                                        *         THE HOLE CREATED BY *MEM*.                                     DBG0006   230
                                                                                                                 DBG0006   231
                                                  SA1    RA.PGN                                                  DBG0006   232
                                                  SX7    X2          (X7) = OUT = AFLS OF FROZEN HOST            DBG0006   233
                                                  MX3    7*CHAR                                                  DBG0006   234
                                                  SA7    F.FRZ+3     OUT = AFLS OF FROZEN HOST                   DBG0006   235
                                                  SX4    122B        (X4) = *OPEN/NO REWIND* CIO CODE            DBG0006   236
                                                  BX6    X3*X1                                                   DBG0006   237
                                                  SX7    X7+B1       (X7) = LIMIT = AFLS+1 OF FROZEN HOST        DBG0006   238
                                                  IX6    X6+X4                                                   DBG0006   239
                                                  SA7    A7+B1       LIMIT = AFLS+1 OF FROZEN HOST               DBG0006   240
                                                  SA6    F.FRZ                                                   DBG0006   241
                                                  =X7    RA.MTR+1                                                DBG0006   242
                                                  SA7    A6+B1       FIRST = RA.MTR+1                            DBG0006   243
                                                  SA7    A7+B1       IN = FIRST =RA.MTR+1                        DBG0006   244
                                                                                                                 DBG0006   245
                                        *         MOVE *RHH* AND *F.FRZ* FET TO HIGH CORE                        DBG0006   246
                                        *         (ABOVE HOLE CREATED FOR FROZEN HOST).                          DBG0006   247
                                                                                                                 DBG0006   248
                                                  SB4    B0                                                      DBG0006   249
                                                  SA1    FW.RHH      (A1,X1) = A+C OF 1ST WORD TO MOVE           DBG0006   250
                                                  SB3    L.RHH       (B2) = NR OF WORDS TO MOVE                  DBG0006   251
                                                  SB2    X2+L.IFRSZ  (B2) = ADDR TO MOVE TO                      DBG0006   252
                                                                                                                 DBG0006   253
                                         IFR2     BX6    X1                                                      DBG0006   254
                                                  SA6    B2+B4                                                   DBG0006   255
                                                  SB4    B4+B1                                                   DBG0006   256
                                                  SA1    A1+B1                                                   DBG0006   257
                                                  LT     B4,B3,IFR2  IF NOT DONE                                 DBG0006   258
                                                                                                                 DBG0006   259
                                        *         OPEN *F.FRZ*.                                                  DBG0006   260
                                                                                                                 DBG0006   261
                                                  SA1    IFRB        (X1) = *CIO* REQUEST WORD                   DBG0006   262
                                                  SX2    B2+F.FRZ-FW.RHH   (X2) = FWA OF *F.FRZ* FET             DBG0006   263
                                                  BX6    X1+X2                                                   DBG0006   264
                                                  SA6    A1          SAVE *CIO* REQUEST W/ ADDR OF MOVED *F.FRZ* DBG0006   265
                                                  RJ     SYS         MAKE SYSTEM REQUEST TO OPEN *F.FRZ*         DBG0006   266
                                                                                                                 DBG0006   267
                                        *         SET UP SYSTEM REQUEST TO PERFORM THE *READSKP*                 DBG0006   268
                                        *         WHICH WILL READ THE FROZEN HOST INTO THE HOLE CREATED          DBG0006   269
                                        *         BY *MEM*.                                                      DBG0006   270
                                                                                                                 DBG0006   271
                                         IFR3     SA1    RA.MTR                                                  DBG0006   272
                                                  NZ     X1,IFR3     IF (RA.MTR) NOT CLEAR, WAIT...              DBG0006   273
                                                                                                                 DBG0006   274
                                                  SA1    SYS1                                                    DBG0006   275
                                                  SA2    B2+F.FRZ-FW.RHH   (A2,X2) = A+C OF *F.FRZ* FET WORD 1   DBG0006   276
                                                  SA3    IFRB        (X3) = *CIO* REQUEST WORD                   DBG0006   277
                                                  MX4    7*CHAR                                                  DBG0006   278
                                                  BX7    X1                                                      DBG0006   279
                                                  LX1    59-56       (X1) = .MI. IF *EQ* INSTRUCTION             DBG0006   280
                                        *                                 = .PL. IF *XJ* INSTRUCTION             DBG0006   281
                                                  BX6    X4*X2       CLEAR BITS 0 THRU 17 OF *F.FRZ* WORD 1      DBG0006   282
                                                  SX4    22B         (X4) = *READSKP* CIO CODE                   DBG0006   283
                                                  IX6    X6+X4       MERGE *READSKP* CIO CODE                    DBG0006   284
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   106
  
  
                                                  SA6    A2                                                      DBG0006   285
                                                  BX6    X3          (X6) = *CIO* REQUEST WORD                   DBG0006   286
                                                                                                                 DBG0006   287
                                        *         RELOCATE *WAIT (RA.MTR) LOOP* IF NOT USING                     DBG0006   288
                                        *         *XJ* INSTRUCTION.                                              DBG0006   289
                                                                                                                 DBG0006   290
                                                  PL     X1,IFR4     IF USING *XJ*                               DBG0006   291
                                                  MX2    -18                                                     DBG0006   292
                                                  SX3    B2+B1       (X3) = ADDR OF *RHH* INSTRUCTIONS WHICH     DBG0006   293
                                        *                                   ACTUALLY MAKES THE *CIO* REQUEST     DBG0006   294
                                        *                                   TO READ *F.FRZ*                      DBG0006   295
                                                  BX7    X2*X7       CLEAR OLD ADDR                              DBG0006   296
                                                  IX7    X7+X3       MERGE NEW ADDR                              DBG0006   297
                                                  SA7    B2+B1                                                   DBG0006   298
                                                                                                                 DBG0006   299
                                        *         EVERYTHING IS READY TO GO...                                   DBG0006   300
                                        *         TRANSFER CONTROL TO *RHH* UP IN HIGH CORE.                     DBG0006   301
                                                                                                                 DBG0006   302
                                         IFR4     JP     B2+                                                     DBG0006   303
                                                                                                                 DBG0006   304
                                                                                                                 DBG0006   305
                                        *         *MEM* REQUEST WORD.                                            DBG0006   306
                                                                                                                 DBG0006   307
                                         IFRA     VFD    18/3LMEM,3/2,21/0,18/SYS=MEM                            DBG0006   308
                                                                                                                 DBG0006   309
                                        *         *CIO* REQUEST WORD.                                            DBG0006   310
                                                                                                                 DBG0006   311
                                         IFRB     VFD    18/3LCIO,3/2,21/0,18/0                                  DBG0006   312
                                         SYS      SPACE  4                                                       DBG0006   313
                                        ***       SYS - PROCESS SYSTEM REQUEST.                                  DBG0006   314
                                        *                                                                        DBG0006   315
                                        *         ENTRY  (X6) = SYSTEM REQUEST.                                  DBG0006   316
                                        *                                                                        DBG0006   317
                                        *         EXIT   REQUEST PROCESSED.                                      DBG0006   318
                                        *                                                                        DBG0006   319
                                        *         USES   X - 1.                                                  DBG0006   320
                                        *                B - NONE.                                               DBG0006   321
                                        *                A - 1, 6.                                               DBG0006   322
                                        *                                                                        DBG0006   323
                                        *         CALLS  NONE.                                                   DBG0006   324
                                                                                                                 DBG0006   325
                                                                                                                 DBG0006   326
                                        *         INSTRUCTION WORDS FOR MONITOR CALL.                            DBG0006   327
                                                                                                                 DBG0006   328
                                         SYSA     BSS    0                                                       DBG0006   329
                                                  LOC    *+2                                                     DBG0006   330
                                         +        SA1    A1          WAIT (RA+1) CLEAR IF AUTO RECALL            DBG0006   331
                                                  LX1    59-40                                                   DBG0006   332
                                                  NG     X1,*                                                    DBG0006   333
                                                  LOC    SYSA+1                                                  DBG0006   334
                                                                                                                 DBG0006   335
                                                  XJ                                                             DBG0006   336
                                                                                                                 DBG0006   337
                                         SYS1     EQ     SYS2        FIRST ENTRY                                 DBG0006   338
                                                                                                                 DBG0006   339
                                         SYS      PS                 ENTRY/EXIT                                  DBG0006   340
                                         +        SA1    1           WAIT (RA+1) CLEAR                           DBG0006   341
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   107
  
  
                                                  NZ     X1,*                                                    DBG0006   342
                                                  SA6    A1          ENTER REQUEST                               DBG0006   343
                                                  EQ     SYS1                                                    DBG0006   344
                                                                                                                 DBG0006   345
                                        *         INITIAL ENTRY TO SET TYPE OF CALL.                             DBG0006   346
                                                                                                                 DBG0006   347
                                         SYS2     SA1    SYSA        NO MEJ/CEJ OPTION                           DBG0006   348
                                                  BX6    X1                                                      DBG0006   349
                                                                                                                 DBG0006   350
                                                  SA1    RA.CEJ                                                  DBG0006   351
                                                  PL     X1,SYS3     IF NO MEJ/CEJ PRESENT                       DBG0006   352
                                                  SA1    SYSA+1                                                  DBG0006   353
                                                  BX6    X1                                                      DBG0006   354
                                         SYS3     BSS    0                                                       DBG0006   355
                                                                                                                 DBG0006   356
                                                  SA6    SYS1        SET MONITOR CALL                            DBG0006   357
                                                  SA1    1           RESET (A1)                                  DBG0006   358
                                                  BX6    X1                                                      DBG0006   359
                                                  RJ     SYS1-1      CLEAR STACK                                 DBG0006   360
                                         IFR      SPACE  4,8                                                     DBG0006   361
                                         SYS=MEM  BSSZ   2           30/AFLS OF HOST PLUS *RHH*,30/0             DBG0006   362
                                        *                            30/AFLS OF HOST,30/0                        DBG0006   363
                                                                                                                 DBG0006   364
                                         L.IFRSZ  =      10B         LEN OF SAFETY ZONE BETWEEN HOST AND *RHH*   DBG0006   365
                                                                                                                 DBG0006   366
                                                                                                                 DBG0006   367
                                         SVWDS    BSSZ   1           SAVED (RA.SSW)                              DBG0006   368
                                                  BSSZ   1           SAVED (FL-1)                                DBG0006   369
                                                                                                                 DBG0006   370
                                         CMMFLG   BSSZ   1           .MI. IF *CMM* ACTIVE, ELSE .PL.             DBG0006   371
                                         RHH      SPACE  4,8                                                     DBG0006   372
                                        **        RHH - READ HOST INTO HOLE.                                     DBG0006   373
                                        *                                                                        DBG0006   374
                                        *                                                                        DBG0006   375
                                        *         THIS ROUTINE MAKES THE ACTUAL OPERATING SYSTEM REQUEST         DBG0006   376
                                        *         TO READ THE FROZEN HOST FROM *F.FRZ/RECORD 2*                  DBG0006   377
                                        *         INTO THE HOLE CREATED BY *IFR*.                                DBG0006   378
                                        *                                                                        DBG0006   379
                                        *         ENTRY  (X6) = *CIO* REQUEST WORD                               DBG0006   380
                                        *                                                                        DBG0006   381
                                        *         EXIT   TO *IDP=MN* IN UNFROZEN HOST                            DBG0006   382
                                        *                                                                        DBG0006   383
                                        *         USES                                                           DBG0006   384
                                        *                                                                        DBG0006   385
                                        *         CALLS  NONE                                                    DBG0006   386
                                                                                                                 DBG0006   387
                                         FW.RHH   BSS    0           MARK FWA OF*RHH*                            DBG0006   388
                                                                                                                 DBG0006   389
                                         RHH      BSS    0           ** ENTRY **                                 DBG0006   390
                                                  SA6    RA.MTR                                                  DBG0006   391
                                                                                                                 DBG0006   392
                                        *         THE FOLLOWING LOCATION WILL BE PLUGGED WITH                    DBG0006   393
                                        *         A *WAIT (RA.MTR)* LOOP BY *IFR* IF NO *XJ* INSTRUCTION         DBG0006   394
                                        *         AVAILABLE.                                                     DBG0006   395
                                                                                                                 DBG0006   396
                                        +         XJ                                                             DBG0006   397
                                                                                                                 DBG0006   398
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   108
  
  
                                        *         THE INTERACTIVE HOST IS NOW BACK IN CORE... RE-ENTER *IDP*.    DBG0006   399
                                                                                                                 DBG0006   400
                                        +         EQ     IDP=IFR                                                 DBG0006   401
                                         F.FRZ    SPACE  4,8                                                     DBG0006   402
                                        **        F.FRZ - FET FOR *FREEZE* FILE.                                 DBG0006   403
                                                                                                                 DBG0006   404
                                         F.FRZ    BSS    0           ** FWA OF FET **                            DBG0006   405
                                         L.FRZ    =      101B        LENGTH OF *F.FRZ* BUFFER FOR RECORD 1 WRITE DBG0006   406
                                        *                            (I.E. SMALLEST POSSIBLE, 1 PRU)             DBG0006   407
                                         FRZ      FILEB  /DBG=IDP/FW.IFR,L.FRZ                                   DBG0006   408
                                                                                                                 DBG0006   409
                                                                                                                 DBG0006   410
                                         L.RHH    =      *-FW.RHH+1                                              DBG0006   411
                                                                                                                 DBG0006   412
                                                  LOC    *O                                                      DBG0006   413
                                                  QUAL   *                                                       DBG0006   414
                                                                                                                 DBG0006   415
                                         L.IFR    =      *-FW.IFR+1  LENGTH OF IDP FREEZE RESTART PROGRAM        DBG0006   416
                                         F.FRZ    =      FW.IFR+/IFR/F.FRZ-RA.ORG  SO THAT *IDP* CAN REF FET     DBG0006   417
                                         IDP      SPACE  4,8                                                     DBG0006   418
                                                                                                                 DBG=IDP  4482
                                         #OS      ELSE                                                           DBG=IDP  4483
                                         IDP=     SUBR               ** ENTRY/EXIT **                            DBG=IDP  4484
                                                  EQ     EXIT.                                                   DBG=IDP  4485
                                         #OS      ENDIF                                                          DBG=IDP  4486
                                         DBG=IDP  SPACE  4,8                                                     DBG=IDP  4487
                                                  BASE   *                                                       DBG=IDP  4488
                                         QUAL$    IF     -DEF,QUAL$                                              DBG=IDP  4489
                                                  QUAL   *                                                       DBG=IDP  4490
                                         IDP=     =      /DBG=IDP/IDP=                                           DBG=IDP  4491
                                                                                                                 DBG=IDP  4492
                                                  IF     DEF,/DBG=IDP/.OS,1                                      DBG=IDP  4493
                                         .OS      =      /DBG=IDP/.OS                                            DBG=IDP  4494
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              DBG=IDP  4495
                                         IDP=ER   =      /DBG=IDP/IDP=ER                                         DBG=IDP  4496
                                         IDP=IFR  =      /DBG=IDP/IDP=IFR                                        DBG0006   419
                                         IDP=MN   =      /DBG=IDP/IDP=MN                                         DBG=IDP  4497
                                         #OS      ENDIF                                                          DBG=IDP  4498
                                                                                                                 DBG=IDP  4499
                                         REG=     =      /DBG=IDP/REG=                                           DBG=IDP  4500
                                         SNP=     =      /DBG=IDP/SNP=                                           DBG=IDP  4501
                                         QUAL$    ENDIF                                                          DBG=IDP  4502
                                                  ENDX                                                           DBG=IDP  4503
                                         DBG=IDP  SPACE  4,8                                                     TSNAP     158
                                                                                                                 TSNAP     165
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              TSNAP     166
                                         CLZ      =      /DBG=IDP/CLZ                                            TSNAP     167
                                         DAR      =      /DBG=IDP/DAR                                            TSNAP     168
                                         DAR=     =      /DBG=IDP/DAR                                            TSNAP     169
                                         DCM      =      /DBG=IDP/DCM                                            TSNAP     170
                                         FRK      =      /DBG=IDP/FRK                                            TSNAP     171
                                         FWAPARM  =      /DBG=IDP/FWAPARM                                        TSNAP     172
                                         HDR      =      /DBG=IDP/HDR                                            TSNAP     173
                                         IDF.BDOP =      /DBG=IDP/IDF.BDOP                                       FCCT001     4
                                         IDF.SNLP =      /DBG=IDP/IDF.SNLP                                       FCCT001     5
                                         IDF.XECP =      /DBG=IDP/IDF.XECP                                       FCCT001     6
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              TSNAP     174
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   109
  
  
                                         IDPBA    =      /DBG=IDP/IDPBA                                          TSNAP     175
                                         IDPFLG   =      /DBG=IDP/IDPFLG                                         TSNAP     176
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              TSNAP     177
                                         IDPSA5   =      /DBG=IDP/IDPSA5                                         TSNAP     178
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              TSNAP     181
                                         IDPSET   =      /DBG=IDP/IDPSET                                         TSNAP     182
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              TSNAP     183
                                         IST      =      /DBG=IDP/IST                                            TSNAP     184
                                         L.BSL    =      /DBG=IDP/L.BSL                                          FCCT001     7
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              TSNAP     186
                                         SKT      =      /DBG=IDP/SKT                                            TSNAP     187
                                         SNAPLNE  =      /DBG=IDP/SNAPLNE                                        TSNAP     188
                                         SOB      =      /DBG=IDP/SOB                                            FCCT001     8
                                         ROL      =      /DBG=IDP/ROL                                            TSNAP     189
                                                  TITLE  TSFTN SNAPPING ROUTINES.                                FCC1046    46
                                         DAT      SPACE  4,8                                                     TSNAP     190
                                        **        DAT - DUMP A TABLE.                                            TSNAP     191
                                        *                                                                        TSNAP     192
                                        *                                                                        TSNAP     193
                                        *         ENTRY  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN (TT.) WORD        TSNAP     194
                                        *                                                                        TSNAP     195
                                        *         EXIT   NONE                                                    TSNAP     196
                                        *                                                                        TSNAP     197
                                        *         USES   ALL                                                     TSNAP     198
                                        *                                                                        TSNAP     199
                                        *         CALLS  COD,DCM,PRIDP                                           TSNAP     200
                                                                                                                 TSNAP     201
                                                                                                                 TSNAP     202
                                         DAT      SUBR               ** ENTRY/EXIT **                            TSNAP     203
                                                  SB5    A1+         (B5) = ADDR OF TABLE ORIGIN WORD            TSNAP     204
                                                  SA1    A1+N.TABLE  (X1) = LEN OF TABLE                         TSNAP     205
                                                  SA2    DATB                                                    TSNAP     206
                                                  SB6    =XORIGINS                                               TSNAP     207
                                                  SA3    A2+B1                                                   TSNAP     208
                                                  SB6    B5-B6                                                   TSNAP     209
                                                  SA4    B6+=XPTSN   (X4) = TABLE NAME (-H- FMT)                 TSNAP     210
                                                  SA5    A3+B1                                                   TSNAP     211
                                                  BX6    X2                                                      TSNAP     212
                                                  SA6    SNAPLNE                                                 TSNAP     213
                                                  LX7    X3                                                      TSNAP     214
                                                  SA7    A6+B1                                                   TSNAP     215
                                                  BX6    X4                                                      TSNAP     216
                                                  LX7    X5                                                      TSNAP     217
                                                  SA6    A7+B1                                                   TSNAP     218
                                                  SA7    A6+B1                                                   TSNAP     219
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (TBL LEN)       TSNAP     220
                                                  SA6    A7+B1                                                   TSNAP     221
                                                  MX7    0                                                       TSNAP     222
                                                  SA7    A6+B1       MARK EOL                                    TSNAP     223
                                                  SB4    B5          (B4) = ADDR OF TABLE ORIGIN WORD            TSNAP     224
                                                  PRIDP  SNAPLNE,,1                                              TSNAP     225
                                                  SA2    B4          (X2) = ORIGIN (FWA) OF TABLE                TSNAP     226
                                                  MX3    0           (X3) = LWA (NULL)                           TSNAP     227
                                                  SA4    B4+N.TABLE  (X4) = LENGTH OF TABLE                      TSNAP     228
                                                  RJ     DCM         DUMP CENTRAL MEMORY                         TSNAP     229
                                                  EQ     EXIT.                                                   TSNAP     230
                                                                                                                 TSNAP     231
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   110
  
  
                                                                                                                 TSNAP     232
                                         DATB     DIS    2,      DUMP OF TABLE                                   TSNAP     233
                                        *         DATA   10HTT.NAME                                              TSNAP     234
                                                  DATA   10H LENGTH =                                            TSNAP     235
                                        *         DATA   10H NNNNNNB                                             TSNAP     236
                                         DMT      SPACE  4,8                                                     TSNAP     237
                                        **        DMT - DUMP TABLES.                                             TSNAP     238
                                        *                                                                        TSNAP     239
                                        *                                                                        TSNAP     240
                                        *                CALLED BY *DUMPT* MACRO.                                TSNAP     241
                                        *                                                                        TSNAP     242
                                        *         ENTRY  LOWER HALF OF *RJ DMT=* WORD HAS FWA OF PARAMETER LIST- TSNAP     243
                                        * +       RJ     DMT=                                                    TSNAP     244
                                        * -       VFD    30/FWA OF PARAMETER LIST                                TSNAP     245
                                        *                                                                        TSNAP     246
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP    TSNAP     247
                                        *         BY *DUMPT* MACRO.  (SEE *TSTEXT*) --                           TSNAP     248
                                        *                                                                        TSNAP     249
                                        *         VFD    60/LOWER LIMIT (LL)                                     TSNAP     250
                                        *         VFD    60/UPPER LIMIT (UL)                                     TSNAP     251
                                        *         VFD    60/INCREMENT (INC)                                      TSNAP     252
                                        *         VFD    60/10HSNAP NAME   (OR .ZR. IF NO NAME)                  TSNAP     253
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          TSNAP     254
                                        *         VFD    18/0,21/T2,21/T1                                        TSNAP     255
                                        *                 .                                                      TSNAP     256
                                        *                 .                                                      TSNAP     257
                                        *         VFD    18/0,21/TN,21/TM                                        TSNAP     258
                                        *         VFD    60/0        END OF TABLE MARK                           TSNAP     259
                                        *                                                                        TSNAP     260
                                        *                WHERE T1,T2,...,TM,TN ARE THE ADDRESS OF TABLE ORIGIN   TSNAP     261
                                        *                  (TT.) WORDS (SEE *TABLE* MACRO IN *TABLES*).          TSNAP     262
                                        *                  T2 AND T1 SPECIFY THAT ALL THE TABLES T1 THRU T2,     TSNAP     263
                                        *                  INCLUSIVE, ARE TO BE DUMPED.   (T1.LE.T2)             TSNAP     264
                                        *                                                                        TSNAP     265
                                        *         EXIT   NONE                                                    TSNAP     266
                                        *                                                                        TSNAP     267
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      TSNAP     268
                                        *                                                                        TSNAP     269
                                        *         CALLS  DAT,FRK,HDR,RSR,SOB,SVR                                 FCCT001     9
                                                                                                                 TSNAP     271
                                                                                                                 TSNAP     272
                                         DMT=     SUBR   =           ** ENTRY/EXIT **                            TSNAP     273
                                                  RJ     SVR         SAVE ALL REGISTERS                          TSNAP     274
                                                  SX1    3           SET TO *EXECUTIVE IS /DMT=/*                FCCT001    10
                                                  RJ     SOB         SET OUTPUT BIT FLAGS                        FCCT001    11
                                                  SA4    DMT=                                                    TSNAP     275
                                                  LX4    30                                                      TSNAP     276
                                                  SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       TSNAP     277
                                                  SX6    X5          (X6) = FWA OF PARAMETER LIST                TSNAP     278
                                                  SA6    FWAPARM                                                 TSNAP     279
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  TSNAP     280
                                                  ZR     X5,DMT3     IF NO DUMP THIS TIME                        TSNAP     281
                                                  RJ     HDR         OUTPUT HEADING                              TSNAP     282
                                                  SX2    X5+SN=DMT-1 (X2+1) = ADDR OF 1ST TABLE PARAMETER WORD   TSNAP     283
                                                  SA3    DMTA        INITIALIZE (A3) = ADDR TO STORE THE ADDR OF TSNAP     284
                                        *                              THE TABLE ORIGIN WORD FOR THE 1ST TABLE   TSNAP     285
                                        *                              TO BE DUMPED                              TSNAP     286
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   111
  
  
                                                  EQ     DMT2A                                                   TSNAP     287
                                                                                                                 TSNAP     288
                                        *         DUMP THE TABLES T1 THRU T2, WHERE T1 AND T2 ARE PICKED UP      TSNAP     289
                                        *         FROM A SINGLE *DUMPT* TABLE PARAMETER LIST ENTRY.              TSNAP     290
                                                                                                                 TSNAP     291
                                         DMT2     SA1    X1          (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD  TSNAP     292
                                                  RJ     DAT         DUMP A TABLE                                TSNAP     293
                                                  SA2    FWAPARM     (X2) = ADDR OF CURRENT TABLE PARAMETER WORD TSNAP     294
                                                  SA3    DMTA        (X3) = ADDR OF TABLE ORIGIN (TT.) WORD FOR  TSNAP     295
                                        *                              TABLE JUST DUMPED                         TSNAP     296
                                                  SA1    X2          (X1) = 18/0,21/T2,21/T1                     TSNAP     297
                                                  SX6    X3+B1                                                   TSNAP     298
                                                  AX1    21                                                      TSNAP     299
                                                  IX7    X1-X6       (X7) = T2-(TN+1)  *TN.GE.T1*                TSNAP     300
                                                  SA6    A3+                                                     TSNAP     301
                                                  PL     X7,DMT2     IF NOT FINISHED DUMPING T1 THRU T2          TSNAP     302
                                                                                                                 TSNAP     303
                                        *         PICK UP NEXT TM THRU TN DUMP RANGE FROM THE NEXT *DUMPT*       TSNAP     304
                                        *         TABLE PARAMETER LIST ENTRY.                                    TSNAP     305
                                                                                                                 TSNAP     306
                                         DMT2A    SX6    X2+B1                                                   TSNAP     307
                                                  SA1    X6          (A1,X1) = ADDR + CNTS OF NXT TABLE PARAM WD TSNAP     308
                                                  SA6    FWAPARM                                                 TSNAP     309
                                                  SX7    X1          (X7) = ADDR OF TABLE ORIGIN WORD FOR NEXT   TSNAP     310
                                        *                              TABLE TO BE DUMPED                        TSNAP     311
                                                  SA7    A3                                                      TSNAP     312
                                                  NZ     X1,DMT2     IF NOT FINISHED DUMPING                     TSNAP     313
                                                                                                                 TSNAP     314
                                         DMT3     RJ     RSR         RESTORE ALL REGISTERS                       TSNAP     315
                                                  EQ     EXIT.                                                   TSNAP     316
                                                                                                                 TSNAP     317
                                                                                                                 TSNAP     318
                                         DMTA     BSSZ   1           SAVE CELL FOR THE ADDRESS OF THE TABLE      TSNAP     319
                                        *                              ORIGIN (TT.) WORD OF THE NEXT TABLE TO    TSNAP     320
                                        *                              BE DUMPED.                                TSNAP     321
                                         DXP=     SPACE  4,8                                                     TSNAP     322
                                        **        DXP= - DUMP EXCHANGE PACKAGE.                                  TSNAP     323
                                        *                                                                        TSNAP     324
                                        *                                                                        TSNAP     325
                                        *                BECAUSE SCOPE 2 REPRIEVE HAS NO RESET, THE SYSTEM DUMPS TSNAP     326
                                        *         ALL REGISTERS AS THEY WERE DURING REPRIEVE PROCESSING; AND     TSNAP     327
                                        *         BECAUSE THIS IS NOT USEFUL, THIS ROUTINE DUMPS ALL REGISTERS   TSNAP     328
                                        *         AS THEY WERE WHEN REPRIEVE WAS CALLED. IT ALSO DUMPS 100       TSNAP     329
                                        *         WORDS EITHER SIDE OF WHAT THE -P- REGISTER WAS WHEN REPRIEVE   TSNAP     330
                                        *         WAS CALLED.                                                    TSNAP     331
                                        *                                                                        TSNAP     332
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE         TSNAP     333
                                        *                                                                        TSNAP     334
                                        *         EXIT   NONE                                                    TSNAP     335
                                        *                                                                        TSNAP     336
                                        *         USES   ALL BUT A0,A5,X5                                        TSNAP     337
                                        *                                                                        TSNAP     338
                                        *         CALLS  COD,DAR,DCM,PRIDP,TEX                                   TSNAP     339
                                                                                                                 TSNAP     340
                                         .OS      IFEQ   .OS,2       IF SCOPE 2                                  TSNAP     341
                                                                                                                 TSNAP     342
                                         DXP=     SUBR   =           ** ENTRY/EXIT **                            TSNAP     343
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   112
  
  
                                                  RJ     TEX         TRANSFER EXCHANGE PACKAGE REGISTERS         TSNAP     344
                                                                                                                 TSNAP     345
                                        *         DUMP P,RA,FL,EM,RE,FE, AND MA.                                 TSNAP     346
                                                                                                                 TSNAP     347
                                         DXP2     SA3    DXPB                                                    TSNAP     348
                                                  SX6    X3-6                                                    TSNAP     349
                                                  ZR     X6,DXP3     IF DONE                                     TSNAP     350
                                                  SX6    X3+B1                                                   TSNAP     351
                                                  SA6    A3                                                      TSNAP     352
                                                  SA2    DXPA+X3     (X2) = .......XX.   (.=BLANK(55B))          TSNAP     353
                                                  SA1    HARDREG+X3  (X1) = SAVED CONTENTS OF HARDWARE REGISTER  TSNAP     354
                                                  BX6    X2                                                      TSNAP     355
                                                  SA6    =XSNAPLNE                                               TSNAP     356
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 TSNAP     357
                                                  LX6    3*CHAR      (X6) = .NNNNNN...                           TSNAP     358
                                                  SA6    A6+B1                                                   TSNAP     359
                                                  MX7    0                                                       TSNAP     360
                                                  SA7    A6+B1       MARK EOL                                    TSNAP     361
                                                  PRIDP  SNAPLNE,3                                               TSNAP     362
                                                  EQ     DXP2                                                    TSNAP     363
                                                                                                                 TSNAP     364
                                        *         HERE TO DUMP ALL REGISTERS.                                    TSNAP     365
                                                                                                                 TSNAP     366
                                         DXP3     RJ     DAR         DUMP ALL REGISTERS                          TSNAP     367
                                                                                                                 TSNAP     368
                                        *         HERE TO DUMP 100B WORDS EITHER SIDE OF -P- REGISTER            TSNAP     369
                                                                                                                 TSNAP     370
                                                  SA1    HARDREG     (X1) = -P- REGISTER                         TSNAP     371
                                                  SX4    200B        (X4) = NR OF WORDS TO DUMP (LEN)            TSNAP     372
                                                  NZ     X1,DXP4     IF -P- REGISTER NONZERO                     TSNAP     373
                                                  SA1    B0          EXTRACT -P- FROM RA+0                       TSNAP     374
                                                  LX1    59-47+18                                                TSNAP     375
                                                                                                                 TSNAP     376
                                         DXP4     MX0    -18                                                     TSNAP     377
                                                  BX1    -X0*X1                                                  TSNAP     378
                                                  SX2    X1-100B     (X2) = FWA TO DUMP                          TSNAP     379
                                                  RJ     DCM         DUMP CENTRAL MEMORY                         TSNAP     380
                                                  EQ     EXIT.                                                   TSNAP     381
                                                                                                                 TSNAP     382
                                                                                                                 TSNAP     383
                                         DXPA     DATA   10H1       P  NNNNNN                                    TSNAP     384
                                                  DATA   10H       RA  NNNNNN                                    TSNAP     385
                                                  DATA   10H       FL  NNNNNN                                    TSNAP     386
                                                  DATA   10H       EM  NNNNNN                                    TSNAP     387
                                                  DATA   10H       RE  NNNNNN                                    TSNAP     388
                                                  DATA   10H       FE  NNNNNN                                    TSNAP     389
                                                  DATA   10H       MA  NNNNNN                                    TSNAP     390
                                                                                                                 TSNAP     391
                                         DXPB     BSSZ   1                                                       TSNAP     392
                                         .OS      ENDIF                                                          TSNAP     393
                                         PTA      SPACE  4,8                                                     TSNAP     394
                                        **        PTA -  PRINT TABLE ALLOCATION.                                 TSNAP     395
                                        *                                                                        TSNAP     396
                                        *         ENTRY  (X1) = NAME OF CALLER.                                  TSNAP     397
                                        *                                                                        TSNAP     398
                                        *         USES   SAVES/RESTORES ALL REGISTERS.                           TSNAP     399
                                                                                                                 TSNAP     400
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   113
  
  
                                                                                                                 TSNAP     401
                                         PTA      SUBR   =           ** ENTRY/EXIT **                            TSNAP     402
                                                  RJ     SVR         SAVE ALL REGISTERS                          TSNAP     403
                                                                                                                 TSNAP     404
                                                  SA1    SVX+1                                                   TSNAP     405
                                                  BX6    X1                                                      TSNAP     406
                                                  SA6    PTAB                                                    TSNAP     407
                                                  PLINE  PTAA,,2                                                 TSNAP     408
                                                  RJ     PTO         PRINT TABLE ORIGINS                         TSNAP     409
                                                                                                                 TSNAP     410
                                                  RJ     RSR         RESTORE ALL REGISTERS                       TSNAP     411
                                                  EQ     PTAX        EXIT..                                      TSNAP     412
                                                                                                                 TSNAP     413
                                         PTAA     DIS    3,    ****  TABLE ALLOCATION AT                         TSNAP     414
                                         PTAB     DIS    1,                                                      TSNAP     415
                                                  CON    6L  ****                                                TSNAP     416
                                         PTO      SPACE  4,8                                                     TSNAP     417
                                        **        PTO - PRINT TABLE ORIGINS.                                     TSNAP     418
                                        *                                                                        TSNAP     419
                                        *                                                                        TSNAP     420
                                        *                PRINTS TABLE STATISTICS IN THE FOLLOWING FORMAT--       TSNAP     421
                                        *     COL 1         1         1         1         (.=BLANK(55B))         TSNAP     422
                                        *         ..........TABLE.......ORIGIN......SIZE.....SLOP...             TSNAP     423
                                        *         ......NN..NAME........NNNNNN....NNNNNN...NNNNNN...             TSNAP     424
                                        *                                                                        TSNAP     425
                                        *         ENTRY  NONE                                                    TSNAP     426
                                        *                                                                        TSNAP     427
                                        *         EXIT   NONE                                                    TSNAP     428
                                        *                                                                        TSNAP     429
                                        *         USES   ALL                                                     TSNAP     430
                                        *                                                                        TSNAP     431
                                        *         CALLS  COD,PLINE                                               TSNAP     432
                                                                                                                 TSNAP     433
                                                                                                                 TSNAP     434
                                         PTO      SUBR   =                                                       FCC1208    79
                                                  SA0    B0          (A0) = TABLE ORDINAL                        TSNAP     436
                                                  MX7    0                                                       FCC1208    80
                                                  SA7    SNAPLNE+5   PRESET END OF LINE                          FCC1208    81
                                                  PLINE  PTOA,5,1                                                FCC1208    82
                                                                                                                 TSNAP     438
                                         PTO2     SX1    A0                                                      TSNAP     439
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- TABLE ORD    TSNAP     440
                                                  SA1    =XPTSN+A0   (X1) = TABLE NAME   (-H- FMT)               TSNAP     441
                                                  LX6    2*CHAR      (X6) = ......NN..   (.=BLANK(55B))          TSNAP     442
                                                  BX7    X1                                                      TSNAP     443
                                                  SA6    SNAPLNE                                                 TSNAP     444
                                                  SA1    =XBASES+A0  (X1) = TABLE ORIGIN                         TSNAP     447
                                                  SA7    A6+B1                                                   FCC1208    83
                                                  =X5    X1+FUDGE    (X5) = ORIGIN + FUDGE                       FCC1208    84
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- ORIGIN       TSNAP     448
                                                  LX6    2*CHAR                                                  TSNAP     449
                                                  SA6    A7+B1       (X6) = ..NNNNNN..   (.=BLANK(55B))          TSNAP     450
                                                                                                                 TSNAP     451
                                                  SA3    A1+B1       (X3) = ORIGIN OF NEXT TABLE                 TSNAP     454
                                                  SA1    A0+=XSIZES  (X1) = TABLE LENGTH                         FCC1208    85
                                                  IX5    X5+X1                                                   FCC1208    86
                                                  IX5    X3-X5       (X5) = AMOUNT OF SLOP SPACE                 TSNAP     457
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   114
  
  
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- LENGTH       TSNAP     458
                                                  LX6    2*CHAR      (X6) = ..NNNNNN..   (.=BLANK(55B))          TSNAP     459
                                                  SA6    A6+B1                                                   TSNAP     460
                                                                                                                 TSNAP     461
                                                  BX1    X5                                                      TSNAP     462
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- SLOP         TSNAP     463
                                                  LX6    2*CHAR                                                  TSNAP     464
                                                  SA6    A6+B1                                                   TSNAP     465
                                                  PLINE  SNAPLNE                                                 TSNAP     468
                                                  SB6    =XN.TABLE-1                                             TSNAP     469
                                                  SA0    A0+B1                                                   TSNAP     470
                                                  SB7    A0                                                      TSNAP     471
                                                  LT     B7,B6,PTO2  IF MORE TABLES TO GO                        TSNAP     472
                                                  EQ     EXIT.                                                   TSNAP     473
                                                                                                                 TSNAP     474
                                                                                                                 TSNAP     475
                                         PTOA     DIS    5,          TABLE      ORIGIN      SIZE     SLOP        TSNAP     476
                                         PTS      SPACE  4,8                                                     TSNAP     477
                                        **        PTS -  PRINT TABLE STATISTICS.                                 TSNAP     478
                                                                                                                 TSNAP     479
                                                                                                                 TSNAP     480
                                         PTS9     RJ     RSR         RESTORE REGISTERS                           TSNAP     481
                                                                                                                 TSNAP     482
                                         PTS      SUBR   =           ** ENTRY/EXIT **                            TSNAP     483
                                                  RJ     SVR         SAVE REGISTERS                              TSNAP     484
                                                  SA3    MOVES                                                   TSNAP     485
                                                  SA2    CO.SNAP                                                 TSNAP     486
                                                  LX2    1RC                                                     TSNAP     487
                                                  SX6    X3+B1       COUNT TABLE CRASHES                         TSNAP     488
                                                  SA6    A3                                                      TSNAP     489
                                                  PL     X2,PTS4     CRASH SNAP NOT DESIRED                      TSNAP     490
                                                  SA1    =XCP.LSTF                                               TSNAP     491
                                                  ZR     X1,PTS9     IF SHORT LIST                               TSNAP     492
                                                  PLINE  (=C=  **  TABLE CRASH -- RE-ALLOCATION REQUIRED.=),,1   TSNAP     493
                                                  SA2    ALC                                                     TSNAP     494
                                                  AX2    30                                                      TSNAP     495
                                                  SB7    ADW2                                                    TSNAP     496
                                                  SB7    -B7                                                     TSNAP     497
                                                  SB7    X2+B7                                                   TSNAP     498
                                                  NZ     B7,PTS2     IF NOT CALLED FROM ADDWORD                  TSNAP     499
                                                  PLINE  PTSB                                                    TSNAP     500
                                                  SA2    ADW                                                     TSNAP     501
                                                  AX2    30                                                      TSNAP     502
                                         PTS2     SX1    X2                                                      TSNAP     503
                                                  RJ     COD                                                     TSNAP     504
                                                  SA6    PTSC1                                                   TSNAP     505
                                                  PLINE  PTSC        PRINT CALL ADDRESS                          TSNAP     506
                                                                                                                 TSNAP     507
                                                  SA1    SVB+2                                                   TSNAP     508
                                                  SA2    X1+PTSN                                                 TSNAP     509
                                                  SB5    X1                                                      TSNAP     510
                                                  BX6    X2                                                      TSNAP     511
                                                  SA6    PTSE1                                                   TSNAP     512
                                                  SA1    SVX+0                                                   TSNAP     513
                                                  RJ     COD         CONVERT INCREMENT                           TSNAP     514
                                                  SA6    PTSE2                                                   TSNAP     515
                                                  SA1    B5+=XSIZES                                              TSNAP     516
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   115
  
  
                                                  RJ     COD         CONVERT PREVIOUS SIZE                       TSNAP     517
                                                  SA6    PTSE3                                                   TSNAP     518
                                                  PLINE  PTSE                                                    TSNAP     519
                                                                                                                 TSNAP     520
                                                  SA1    SVX+3                                                   TSNAP     521
                                                  RJ     COD         CONVERT NECESSARY STORAGE                   TSNAP     522
                                                  SA6    PTSF1                                                   TSNAP     523
                                                  SA1    =XW.TABS                                                TSNAP     524
                                                  RJ     COD                                                     TSNAP     525
                                                  SA6    PTSF2                                                   TSNAP     526
                                                  PLINE  PTSF                                                    TSNAP     527
                                         PTS4     SA2    CO.SNAP                                                 TSNAP     528
                                                  LX2    1RT                                                     TSNAP     529
                                                  PL     X2,PTS9     IF TABLE SNAP NOT SELECTED                  TSNAP     530
                                                  RJ     PTO         PRINT TABLE ORIGINS                         TSNAP     531
                                                                                                                 TSNAP     532
                                                  EQ     PTS9        EXIT..                                      TSNAP     533
                                                                                                                 TSNAP     534
                                         PTSB     DIS    ,/          CALLED FROM *ADDWORD*./                     TSNAP     535
                                                                                                                 TSNAP     536
                                         PTSC     DATA   H/          CALLED FROM /                               TSNAP     537
                                         PTSC1    DATA   0,0                                                     TSNAP     538
                                                                                                                 TSNAP     539
                                         PTSE     DIS    2,  TABLE NUMBER                                        TSNAP     540
                                         PTSE1    DIS    1,(B2)                                                  TSNAP     541
                                                  DIS    1, ADDING                                               TSNAP     542
                                         PTSE2    DIS    1,(X0)                                                  TSNAP     543
                                                  DIS    1, TO PREV                                              TSNAP     544
                                         PTSE3    DIS    1,(SIZES+B2)                                            TSNAP     545
                                                  DATA   0                                                       TSNAP     546
                                                                                                                 TSNAP     547
                                         PTSF     DIS    2,  NOW USING                                           TSNAP     548
                                         PTSF1    DIS    1,(X3)                                                  TSNAP     549
                                                  DIS    1, OUT OF                                               TSNAP     550
                                         PTSF2    DIS    1,(SIZCORE)                                             TSNAP     551
                                                  DATA   0                                                       TSNAP     552
                                         SBD      SPACE  4,8                                                     TSNAP     553
                                        **        SBD -  ENTRY POINT FOR STRING BUFFER DUMP.                     TSNAP     554
                                                                                                                 TSNAP     555
                                                                                                                 TSNAP     556
                                         SBD      SUBR   =           ** ENTRY/EXIT **                            TSNAP     557
                                                  RJ     SVR         SAVE REGISTERS                              TSNAP     558
                                                  SA1    CO.SNAP                                                 TSNAP     559
                                                  LX1    1RG         GENERAL SNAP FLAG                           TSNAP     560
                                                  MI     X1,SBD9     IF GENERAL SNAP NOT ON                      FCC1046    47
                                                  SA4    SBD         (X4) = 30/EQ CALLING ADDRESS+1, 30/0        TSNAP     562
                                                  LX4    30                                                      TSNAP     563
                                                  SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       TSNAP     564
                                                  SX6    X5          (X6) = FWA OF PARAMETER LIST                TSNAP     565
                                                  SA6    FWAPARM                                                 TSNAP     566
                                                  RJ     FRK         CHECK IF TIME TO SNAP                       TSNAP     567
                                                  ZR     X5,SBD9     IF SUPPRESSED THIS TIME                     TSNAP     568
                                                  RJ     HDR         OUTPUT HEADING                              TSNAP     569
                                                  RJ     SBL         LIST THE STRING BUFFER                      TSNAP     570
                                                                                                                 TSNAP     571
                                         SBD9     RJ     RSR         RESTORE REGISTERS                           TSNAP     572
                                                  EQ     EXIT.                                                   FCC1046    48
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   116
  
  
                                         SBL      SPACE  4,8                                                     TSNAP     574
                                        **        SBL -  STRING BUFFER LIST.                                     TSNAP     575
                                        *         LISTS STRING BUFFER WITHOUT CHECKING ANY SWITCHES.             TSNAP     576
                                        *         USES   ALL.                                                    TSNAP     577
                                                                                                                 TSNAP     578
                                                                                                                 TSNAP     579
                                         SBL      SUBR   =           ** ENTRY/EXIT **                            TSNAP     580
                                                  SA1    =XT.SB                                                  TSNAP     581
                                                  SA3    LASTCOL                                                 TSNAP     582
                                                  BX6    0                                                       TSNAP     583
                                                  SA2    =1H                                                     TSNAP     584
                                                  SA5    X1+SB.HEAD                                              TSNAP     585
                                                  LX7    X2                                                      TSNAP     586
                                                  SB4    X3-SB.HEAD                                              TSNAP     587
                                                  SA6    SNAPLNE+5   PRESET END OF LINE MARK                     FCC1046    49
                                                  SA7    SNAPLNE+3                                               TSNAP     589
                                                                                                                 TSNAP     590
                                         SBL4     SX1    A5                                                      FCC1046    50
                                                  SB5    B4          SAVE (B4)                                   TSNAP     592
                                                  RJ     COD         CONVERT ADDRESS TO DPC                      TSNAP     593
                                                  LX6    9*CHAR-6*CHAR                                           TSNAP     594
                                                  SB4    B5          RESTORE (B4)                                TSNAP     595
                                                  =X2    2R  -2R=                                                TSNAP     596
                                                  SX3    X5                                                      TSNAP     597
                                                  IX6    X6-X2                                                   TSNAP     598
                                                  BX1    X5-X3                                                   TSNAP     599
                                                  SA6    SNAPLNE                                                 TSNAP     600
                                                  RJ     SFN                                                     TSNAP     601
                                                  SA2    X5+CHARMAP                                              FCC1046    51
                                                  LX6    -2*6                                                    FCC1046    52
                                                  SX3    X2                                                      FCC1046    53
                                                  SA6    SNAPLNE+4                                               FCC1046    54
                                                  BX1    X2-X3                                                   FCC1046    55
                                                  RJ     SFN         SPACE FILL CHARACTER MAPPING                FCC1046    56
                                                  LX6    -2*6                                                    FCC1046    57
                                                  =A6    A6-1                                                    FCC1046    58
                                                  BX1    X5                                                      TSNAP     608
                                                  SB3    A5                                                      TSNAP     609
                                                  RJ     WOD         CONVERT CONTENTS TO DPC                     TSNAP     610
                                                  =A7    A6-1                                                    FCC1046    59
                                                  =A6    A7-1                                                    FCC1046    60
                                                  =B4    B4-1                                                    TSNAP     613
                                                  =A5    B3+1                                                    TSNAP     614
                                                  PLINE  A6-1                                                    TSNAP     615
                                                  PL     B4,SBL4     IF MORE TO GO                               FCC1046    61
                                                                                                                 TSNAP     617
                                                  PLINE  ,,1                                                     TSNAP     618
                                                  EQ     EXIT.                                                   FCC1046    62
                                         SN.PAR   SPACE  4,8                                                     TSNAP     620
                                        **        SN.PAR - DUMP PARSED FILE (ONLY IF IN TEST MODE)               TSNAP     621
                                        *                                                                        TSNAP     622
                                        *         ENTRY  (TT=PAR) = LENGTH OF PARSED FILE.                       TSNAP     623
                                        *                                                                        TSNAP     624
                                        *         EXIT   FORMATTED FILE DUMPED.                                  TSNAP     625
                                        *                                                                        TSNAP     626
                                        *         CALLS  PLINE, PIA, SVR, RSR, WOD                               TSNAP     627
                                                                                                                 TSNAP     628
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   117
  
  
                                                                                                                 TSNAP     629
                                         SN.PAR   SUBR   =           ** ENTRY/EXIT **                            TSNAP     630
                                                  RJ     SVR         SAVE REGISTERS.                             TSNAP     631
                                                  SA1    TT=PAR                                                  TSNAP     632
                                                  SA2    TT.PAR                                                  TSNAP     633
                                                  BX6    0                                                       TSNAP     634
                                                  SA6    SN.PNO                                                  TSNAP     635
                                                  SA5    X2                                                      TSNAP     636
                                                  SB4    X1-1        LENGTH OF PARSED FILE.                      TSNAP     637
                                                  SA0    B4                                                      TSNAP     638
                                                  MI     B4,SN.PAR5  IF EMPTY TABLE                              TSNAP     639
                                                  SA2    PAR                                                     TSNAP     640
                                                  MX0    -18                                                     TSNAP     641
                                                  AX2    30                                                      TSNAP     642
                                                  BX1    -X0*X2                                                  TSNAP     643
                                                  RJ     COD         CONVERT CALLING ADDRESS                     TSNAP     644
                                                  SA6    SN.CAL                                                  TSNAP     645
                                                  SX1    A0+B1                                                   TSNAP     646
                                                  RJ     COD         CONVERT PARSE FILE LENGTH TO DPC            TSNAP     647
                                                  LX6    4*CHAR                                                  TSNAP     648
                                                  SA6    SN.LEN                                                  TSNAP     649
                                                  PLINE  SN.HDR,,1                                               TSNAP     650
                                                                                                                 TSNAP     651
                                        **        LOOP ON PARSED FILE                                            TSNAP     652
                                                                                                                 TSNAP     653
                                         SN.PAR1  RJ     SN.POP      PROCESS OPERATOR.                           TSNAP     654
                                                  PLINE  LINPAR                                                  TSNAP     655
                                                  SB4    A0                                                      TSNAP     656
                                                  MI     B4,SN.PAR5  IF FINISHED                                 TSNAP     657
                                                  RJ     SN.PSYM     PROCESS 1ST SYMBOL.                         TSNAP     658
                                                  PLINE  LINPAR                                                  TSNAP     659
                                                  SB4    A0                                                      TSNAP     660
                                                  MI     B4,SN.PAR5  IF FINISHED                                 TSNAP     661
                                                  RJ     SN.PSYM     PROCESS 2ND SYMBOL                          TSNAP     662
                                                  PLINE  LINPAR                                                  TSNAP     663
                                                  PLINE  ,,1         BLANK LINE BETWEEN TURPLES                  TSNAP     664
                                                  SB4    A0                                                      TSNAP     665
                                                  PL     B4,SN.PAR1  IF MORE TO GO.                              TSNAP     666
                                                                                                                 TSNAP     667
                                        **        END OF LOOP                                                    TSNAP     668
                                                                                                                 TSNAP     669
                                         SN.PAR5  RJ     RSR         RESTORE REGISTERS.                          TSNAP     670
                                                  EQ     EXIT.                                                   TSNAP     671
                                         SN.PSYM  SPACE  4,8                                                     TSNAP     672
                                        **        SN.PSYM - DUMP SYMBOL FROM PARSED FILE.                        TSNAP     673
                                                                                                                 TSNAP     674
                                                                                                                 TSNAP     675
                                         SN.PSYM  SUBR               ENTRY/EXIT...                               TSNAP     676
                                                  SA1    SN.PNO                                                  TSNAP     677
                                                  SX6    X1+B1                                                   TSNAP     678
                                                  SA6    A1          UPDATE ORDINAL                              TSNAP     679
                                                  RJ     COD         CONVERT TO *DPC*                            TSNAP     680
                                                  LX6    9*CHAR-6*CHAR                                           TSNAP     681
                                                  SX1    2R  &2R=                                                TSNAP     682
                                                  BX6    X6-X1       (X6) = .NNNNNN.=.   (.=BLANK(55B))          TSNAP     683
                                                  SA6    LINNO                                                   TSNAP     684
                                                  LX1    X5                                                      TSNAP     685
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   118
  
  
                                                  BX0    X5                                                      TSNAP     686
                                                  AX1    P.TAG                                                   TSNAP     687
                                                  IFBIT  X0,INTR,SN.SYM5        IF INTERMEDIATE                  TSNAP     688
                                                  SB2    X1-C.SYM-1                                              TSNAP     689
                                                  MI     B2,SN.SYM10            IF NOT A VARIABLE.               TSNAP     690
                                                  SA3    TS=SYM                                                  TSNAP     691
                                                  SA2    TS.SYM                                                  TSNAP     692
                                                  SB7    X3                                                      TSNAP     693
                                                  GT     B2,B7,SN.SYM10        IF NOT A VARIABLE.                TSNAP     694
                                                  MX0    L.SYM                                                   TSNAP     695
                                                  SA3    X2+B2       LOAD SYMBOL                                 TSNAP     696
                                                  BX6    X0*X3       SYMBOL ONLY                                 TSNAP     697
                                                  EQ     SN.SYM40    CONTINUE                                    TSNAP     698
                                                                                                                 TSNAP     699
                                        **        HERE IF NOT INTERMEDIATE                                       TSNAP     700
                                                                                                                 TSNAP     701
                                         SN.SYM5  RJ     COD         CONVERT TO OCTAL DPC                        TSNAP     702
                                                  SX1    2RI=                                                    TSNAP     703
                                                  EQ     SN.SYM11                                                TSNAP     704
                                                                                                                 TSNAP     705
                                        **        HERE IF OTHER FORM OF TAG OR CONSTANT.                         TSNAP     706
                                                                                                                 TSNAP     707
                                         SN.SYM10 RJ     COD         CONVERT TO OCTAL DPC                        TSNAP     708
                                                  SX1    2RC=                                                    TSNAP     709
                                         SN.SYM11 MX0    4*CHAR                                                  TSNAP     710
                                                  LX1    8*CHAR                                                  TSNAP     711
                                                  BX0    -X0*X6                                                  TSNAP     713
                                                  LX0    2*6                                                     FCC1208    87
                                                  BX6    X1+X0       ADD IN I=                                   TSNAP     714
                                                  EQ     SN.SYM40    CONTINUE                                    TSNAP     715
                                                                                                                 TSNAP     716
                                        **        HERE WITH SYMBOL CONVERTED TO DPC.                             TSNAP     717
                                        *         (X6) = DPC FOR SYMBOL.                                         TSNAP     718
                                                                                                                 TSNAP     719
                                         SN.SYM40 SA6    LINPDP      STORE INTO LINE BUFFER.                     TSNAP     720
                                                  BX1    X5                                                      TSNAP     721
                                                  SB3    A5                                                      TSNAP     722
                                                  RJ     WOD         CONVERT TAG TO OCTAL (CLOBBERS A5)          TSNAP     723
                                                  SA6    LINPOC                                                  TSNAP     724
                                                  SA7    A6+B1                                                   TSNAP     725
                                                  SA0    A0-B1                                                   TSNAP     726
                                                  SA5    B3+B1                                                   TSNAP     727
                                                  EQ     EXIT.                                                   TSNAP     728
                                         SN.POP   SPACE  4,8                                                     TSNAP     729
                                        **        SN.POP - DUMP OPERATOR FROM PARSED FILE.                       TSNAP     730
                                        *         OUTPUT IS DIVIDED INTO SPECIFIED FIELDS THAT ARE SET-UP DURING TSNAP     731
                                        *         PARSING OF A STATEMENT.                                        TSNAP     732
                                        *                                                                        TSNAP     733
                                        *         ENTRY  (X5) = OPERATOR.                                        TSNAP     734
                                        *                                                                        TSNAP     735
                                        *         EXIT   (X5) = NEXT OPERAND                                     TSNAP     736
                                                                                                                 TSNAP     737
                                                                                                                 TSNAP     738
                                         SN.POP   SUBR               ENTRY/EXIT...                               TSNAP     739
                                                                                                                 TSNAP     740
                                        *         UPDATE ORDINAL AND SET DPC INTO LINE BUFFER.                   TSNAP     741
                                                                                                                 TSNAP     742
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   119
  
  
                                                  SA1    SN.PNO                                                  TSNAP     743
                                                  =X6    X1+1                                                    TSNAP     744
                                                  SA6    A1          UPDATE ORDINAL                              TSNAP     745
                                                  RJ     COD         CONVERT TO *DPC*                            TSNAP     746
                                                  LX6    9*CHAR-6*CHAR                                           TSNAP     747
                                                  SX1    2R  &2R=                                                TSNAP     748
                                                  BX6    X6-X1       (X6) = .NNNNNN.=.   (.=BLANK(55B))          TSNAP     749
                                                  SA6    LINNO                                                   TSNAP     750
                                                                                                                 TSNAP     751
                                        *         CONVERT OPERATORE PROCESSOR ADDRESS TO DPC                     TSNAP     752
                                                                                                                 TSNAP     753
                                                  BX1    X5                                                      TSNAP     754
                                                  AX1    -18                                                     TSNAP     755
                                                  RJ     COD         CONVERT JUMP ADDRESS TO *DPC*               TSNAP     756
                                                  SA6    LINJPAD     STORE IN LINE BUFFER.                       TSNAP     757
                                                                                                                 TSNAP     758
                                        *         CONVERT OPERATOR CODE TO DPC                                   TSNAP     759
                                                                                                                 TSNAP     760
                                                  SA1    =7HST.NO.                                               TSNAP     761
                                                  SB2    X5-LG.SYM                                               TSNAP     762
                                                  BX6    X1                                                      TSNAP     763
                                                  PL     B2,SN.POP5  IF NOT AN OPERATOR.                         TSNAP     764
                                                  SA2    X5+CHARMAP                                              TSNAP     765
                                                  MX0    L.CDPC                                                  TSNAP     766
                                                  BX1    X0*X2                                                   TSNAP     767
                                                  RJ     SFN         PAD OUT WITH BLANKS.                        TSNAP     768
                                                                                                                 TSNAP     769
                                        *         DETERMINE DOMINANT MODE OF OPERATOR                            TSNAP     770
                                                                                                                 TSNAP     771
                                         SN.POP5  LX6    -CHAR                                                   TSNAP     772
                                                  SA6    LINOPR      OPERATOR IN DPC                             TSNAP     773
                                                  BX0    X5                                                      TSNAP     774
                                                  MX1    -L.DMOD                                                 TSNAP     775
                                                  AX0    P.DMOD                                                  TSNAP     776
                                                  BX3    -X1*X0                                                  TSNAP     777
                                                  SA2    X3+SN.DMOD                                              TSNAP     778
                                                  BX0    X5                                                      TSNAP     779
                                                  BX6    X2                                                      TSNAP     780
                                                  MX1    -L.MODC                                                 TSNAP     781
                                                  =A6    A6+1        OPERATOR DOMINANT MODE                      TSNAP     782
                                                                                                                 TSNAP     783
                                        *         DETERMINE IF MODE CONVERSION ON OPERANDS                       TSNAP     784
                                                  AX0    P.MODC                                                  TSNAP     785
                                                  BX3    -X1*X0                                                  TSNAP     786
                                                  SA2    =1H                                                     TSNAP     787
                                                  ZR     X3,SN.POP6  IF NO MODE CONVERSION                       TSNAP     788
                                                  SA2    =10H MODE CONV                                          TSNAP     789
                                         SN.POP6  BX6    X2                                                      TSNAP     790
                                                  =A6    A6+1                                                    TSNAP     791
                                                                                                                 TSNAP     792
                                        *         DETERMINE TYPE OF OPERANDS                                     TSNAP     793
                                                                                                                 TSNAP     794
                                                  SA2    X5+CHARMAP                                              TSNAP     795
                                                  SB7    DUC.1ST                                                 TSNAP     796
                                                  SB7    -B7                                                     TSNAP     797
                                                  SB7    X2+B7                                                   TSNAP     798
                                                  SB2    SN.1ST                                                  TSNAP     799
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   120
  
  
                                                  ZR     B7,SN.POP7                                              TSNAP     800
                                                  SB7    DUC.BTH                                                 TSNAP     801
                                                  SB7    -B7                                                     TSNAP     802
                                                  SB7    X2+B7                                                   TSNAP     803
                                                  SB2    SN.BOTH                                                 TSNAP     804
                                                  ZR     B7,SN.POP7                                              TSNAP     805
                                                  SB7    DUC.2ND                                                 TSNAP     806
                                                  SB7    -B7                                                     TSNAP     807
                                                  SB7    X2+B7                                                   TSNAP     808
                                                  SB2    SN.2ND                                                  TSNAP     809
                                                  ZR     B7,SN.POP7                                              TSNAP     810
                                                  SB2    SN.NULL                                                 TSNAP     811
                                         SN.POP7  SA3    B2                                                      TSNAP     812
                                                  BX6    X3                                                      TSNAP     813
                                                  =A6    A6+1                                                    TSNAP     814
                                                                                                                 TSNAP     815
                                        *         CONVERT OPERATOR WORD TO DPC/OCTAL                             TSNAP     816
                                                                                                                 TSNAP     817
                                                  BX1    X5                                                      TSNAP     818
                                                  SB3    A5                                                      TSNAP     819
                                                  RJ     WOD                                                     TSNAP     820
                                                  SA6    LINPOC                                                  TSNAP     821
                                                  SA7    A6+B1                                                   TSNAP     822
                                                                                                                 TSNAP     823
                                        *         UPDATE POINTERS.                                               TSNAP     824
                                                                                                                 TSNAP     825
                                                  SA0    A0-B1                                                   TSNAP     826
                                                  =A5    B3+1                                                    TSNAP     827
                                                  EQ     EXIT.                                                   TSNAP     828
                                                                                                                 TSNAP     829
                                         SN.PNO   DATA   0           RELATIVE NUMBER ON LISTING OF DUMP.         TSNAP     830
                                                                                                                 TSNAP     831
                                        **        LINE IMAGE FOR DUMPING CONTENTS OF A PARSED FILE ELEMENT.      TSNAP     832
                                                                                                                 TSNAP     833
                                         LINPAR   BSS    0                                                       TSNAP     834
                                         LINNO    DATA   0                                                       TSNAP     835
                                         LINPOC   DATA   0           ENTRY 1ST HALF                              TSNAP     836
                                                  DATA   0           ENTRY 2ND HALF                              TSNAP     837
                                                  DATA   10H                                                     TSNAP     838
                                         LINJPAD  BSS    0           JUMP ADDRESS OF OPERATOR.                   TSNAP     839
                                         LINPDP   DATA   0                                                       TSNAP     840
                                         LINOPR   DATA   0           OPERATOR DPC                                TSNAP     841
                                         LINDMOD  DATA   0           DOMINANT MODE                               TSNAP     842
                                         LINMODC  DATA   0           MODE CONVERSION                             TSNAP     843
                                         LINTYP   DATA   0           TYPE OF OPERANDS                            TSNAP     844
                                                                                                                 TSNAP     845
                                        **        DOMINANT MODE *DPC*                                            TSNAP     846
                                                                                                                 TSNAP     847
                                         SN.DMOD  DIS    1, CHAMELEON                                            TSNAP     848
                                                  DIS    1, LOGICAL                                              TSNAP     849
                                                  DIS    1, INTEGER                                              TSNAP     850
                                                  DIS    1, REAL                                                 TSNAP     851
                                                  DIS    1, DOUBLE                                               TSNAP     852
                                                  DIS    1, COMPLEX                                              TSNAP     853
                                                                                                                 TSNAP     854
                                        **        TYPE OF OPERANDS                                               TSNAP     855
                                                                                                                 TSNAP     856
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   121
  
  
                                         SN.1ST   DATA   8L FIRST                                                TSNAP     857
                                         SN.2ND   DATA   8L SECOND                                               TSNAP     858
                                         SN.BOTH  DATA   8L BOTH                                                 TSNAP     859
                                         SN.NULL  DATA   8L NONE                                                 TSNAP     860
                                                                                                                 TSNAP     861
                                        **        HEADER LINE FOR EACH TIME PARSED OUTPUT IS REQUESTED.          TSNAP     862
                                                                                                                 TSNAP     863
                                         SN.HDR   DATA   30H      (DUMP OF PARSED FILE.)                         TSNAP     864
                                                  DATA   20H CALLED FROM  ------                                 TSNAP     865
                                         SN.CAL   DATA   0                                                       TSNAP     866
                                                  DATA   40H      CURRENT LENGTH OF TT.PAR TABLE =               TSNAP     867
                                         SN.LEN   DATA   0                                                       TSNAP     868
                                                  DATA   2L                                                      TSNAP     869
                                         ST=      SPACE  4,8                                                     TSNAP     870
                                        **        ST= - STATEMENT PROCESSORS FOR USER *IDP* COMMANDS.            TSNAP     871
                                        *                                                                        TSNAP     872
                                        *                                                                        TSNAP     873
                                        *                THIS ROUTINE PROCESSES *TS* ONLY *IDP* COMMANDS--       TSNAP     874
                                        *                                                                        TSNAP     875
                                        *         DUMPT  T1,T2,...,TN                                            TSNAP     876
                                        *                                                                        TSNAP     877
                                        *         ENTRY  (A5,X5) = A+C OF TOKEN THAT TERMINATED KEYWORD          FCCT001    12
                                        *                                                                        TSNAP     879
                                        *         EXIT TO *IDP=MN*                                               TSNAP     880
                                         ST=DMT   SPACE  4,8                                                     TSNAP     881
                                        **        HERE TO PROCESS *DUMPT T1,T2,...,TN*.                          TSNAP     882
                                                                                                                 TSNAP     883
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              TSNAP     884
                                                                                                                 TSNAP     885
                                         ST=DMT   SX6    A5                                                      FCCT001    13
                                                  MX7    0                                                       TSNAP     887
                                                  SA6    IDPSA5      SAVE (A5) = NEXT TOKEN ADDR                 TSNAP     888
                                                  SB6    =XPTSN                                                  TSNAP     889
                                                  SA7    B6+=XN.TABLE-1  SET *TT.END* NAME WORD TO END OF TABLE  TSNAP     890
                                        *                                  MARK                                  TSNAP     891
                                                                                                                 TSNAP     892
                                         ST=DMT2  SA5    X6                                                      TSNAP     893
                                                  MX0    7*CHAR                                                  TSNAP     894
                                                  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          TSNAP     895
                                                  SX6    X5-O.VAR                                                TSNAP     896
                                                  NZ     X6,ST=DMT3  IF NOT A NAME TOKEN                         TSNAP     897
                                                  BX1    X0*X5                                                   TSNAP     898
                                                  RJ     =XSFN       SPACE FILL NAME                             TSNAP     899
                                                  BX1    X6          (X1) = 10HTABLE NAME                        TSNAP     900
                                                  SB6    =XPTSN      (B6) = FWA OF TABLE NAME WORDS (-H- FMT)    TSNAP     901
                                                  RJ     SKT         SEARCH TABLE FOR MATCH                      TSNAP     902
                                                  ZR     X2,ST=DMT3  IF NO FIND                                  TSNAP     903
                                                  SA1    B7+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD  TSNAP     904
                                                  RJ     DAT         DUMP A TABLE                                TSNAP     905
                                                                                                                 TSNAP     906
                                         ST=DMT3  SA1    IDPSA5                                                  TSNAP     907
                                                  SX6    X1+B1                                                   TSNAP     908
                                                  SA6    A1                                                      TSNAP     909
                                                  EQ     ST=DMT2                                                 TSNAP     910
                                         #OS      ENDIF                                                          TSNAP     911
                                         TEX      SPACE  4,8                                                     TSNAP     912
                                        **        TEX - TRANSFER EXCHANGE PACKAGE REGISTERS.                     TSNAP     913
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   122
  
  
                                        *                                                                        TSNAP     914
                                        *                                                                        TSNAP     915
                                        *                THIS ROUTINE WILL TRANSFER THE CONTENTS OF THE          TSNAP     916
                                        *         REGISTERS IN THE SAVED EXCHANGE PACKAGE TO THE REGISTER SAVE   TSNAP     917
                                        *         AREA (SVB,SVA,SVX -- AS SET UP BY *COMCSVR*). A SUBSEQUENT     TSNAP     918
                                        *         CALL TO *RSR=* WOULD RESTORE ALL REGISTERS TO THEIR VALUES     TSNAP     919
                                        *         AT THE TIME OF THE EXCHANGE.                                   TSNAP     920
                                        *                                                                        TSNAP     921
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE         TSNAP     922
                                        *                                                                        TSNAP     923
                                        *         EXIT   NONE                                                    TSNAP     924
                                        *                                                                        TSNAP     925
                                        *         USES   X - 0,1,6,7                                             TSNAP     926
                                        *                A - 1,6,7                                               TSNAP     927
                                        *                B - 2,3,4,5,7                                           TSNAP     928
                                        *                                                                        TSNAP     929
                                        *         CALLS  NONE                                                    TSNAP     930
                                                                                                                 TSNAP     931
                                                                                                                 TSNAP     932
                                         TEX      SUBR               ** ENTRY/EXIT **                            TSNAP     933
                                                  SA1    A1+16-1     (X1) = LAST WORD OF 16 WORD EXCHANGE PKG    TSNAP     934
                                                  SB2    =XSVB                                                   TSNAP     935
                                                  SB3    =XSVA                                                   TSNAP     936
                                                  SB4    =XSVX                                                   TSNAP     937
                                                  SB5    HARDREG                                                 TSNAP     938
                                                  SB7    7           (B7) = LOOP COUNT -N-                       TSNAP     939
                                                  MX0    -18                                                     TSNAP     940
                                                                                                                 TSNAP     941
                                        *         RESTORE -X- REGISTERS.                                         TSNAP     942
                                                                                                                 TSNAP     943
                                         TEX2     BX6    X1                                                      TSNAP     944
                                                  SA6    B4+B7                                                   TSNAP     945
                                                  SB7    B7-B1       N-1                                         TSNAP     946
                                                  SA1    A1-B1                                                   TSNAP     947
                                                  GE     B7,B0,TEX2  IF MORE -X- REGS TO GO                      TSNAP     948
                                                                                                                 TSNAP     949
                                        *         RESTORE -B- AND -A- REGS, AND SAVE P,RA,FL,EM,RE,FE,MA.        TSNAP     950
                                                                                                                 TSNAP     951
                                                  SB7    7           (B7) = LOOP COUNT -N-                       TSNAP     952
                                                                                                                 TSNAP     953
                                         TEX3     BX6    -X0*X1      (X6) = (B-N-)                               TSNAP     954
                                                  LX1    -18                                                     TSNAP     955
                                                  BX7    -X0*X1      (X7) = (A-N-)                               TSNAP     956
                                                  SA6    B2+B7                                                   TSNAP     957
                                                  SA7    B3+B7                                                   TSNAP     958
                                                  LX1    -18                                                     TSNAP     959
                                                  BX6    -X0*X1      (X6) = P,RA,FL,EM,RE,FE,OR MA               TSNAP     960
                                                  SA6    B5+B7                                                   TSNAP     961
                                                  SB7    B7-B1       N-1                                         TSNAP     962
                                                  SA1    A1-B1                                                   TSNAP     963
                                                  GE     B7,B0,TEX3  IF NOT DONE                                 TSNAP     964
                                                  EQ     EXIT.                                                   TSNAP     965
                                                                                                                 TSNAP     966
                                                                                                                 TSNAP     967
                                         HARDREG  BSSZ   8           SAVED HARDWARE REGISTERS                    TSNAP     968
                                        *         BSSZ   1           SAVED P                                     TSNAP     969
                                        *         BSSZ   1           SAVED RA                                    TSNAP     970
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   123
  
  
                                        *         BSSZ   1           SAVED FL                                    TSNAP     971
                                        *         BSSZ   1           SAVED EM                                    TSNAP     972
                                        *         BSSZ   1           SAVED RE                                    TSNAP     973
                                        *         BSSZ   1           SAVED FE                                    TSNAP     974
                                        *         BSSZ   1           SAVED MA                                    TSNAP     975
                                        *         BSSZ   1           DUMMY FOR CONSISTENCY                       TSNAP     976
                                         CTEXT    SPACE  4,8                                                     FCC1046    63
                                        *         COMMON DECKS.                                                  FCC1046    64
                                                                                                                 FCC1046    65
                                                                                                                 FCC1046    66
                                                  CTEXT  COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.  COMCCDD     2
                                         CDD      SPACE  4                                                       COMCCDD     3
                                                  IF     -DEF,QUAL$,1                                            COMCCDD     4
                                                  QUAL   COMCCDD                                                 COMCCDD     5
                                                  BASE   D                                                       COMCCDD     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCCDD     7
                                         CDD      SPACE  4                                                       COMCCDD     8
                                        ***       CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.             COMCCDD     9
                                        *         G. R. MANSFIELD.  70/12/18.                                    COMCCDD    10
                                        *         ADAPTED FROM SUBROUTINE *CONDEC* IN *COMPASS VER 2.0*.         COMCCDD    11
                                         CDD      SPACE  4                                                       COMCCDD    12
                                        ***              CDD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH       COMCCDD    13
                                        *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCDD    14
                                        *         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCDD    15
                                        *                                                                        COMCCDD    16
                                        *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCDD    17
                                        *                (B1) = 1.                                               COMCCDD    18
                                        *                                                                        COMCCDD    19
                                        *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCDD    20
                                        *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCDD    21
                                        *                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCDD    22
                                        *                                                                        COMCCDD    23
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCDD    24
                                        *                B - 2, 3, 4, 5.                                         COMCCDD    25
                                        *                A - 2, 3, 4.                                            COMCCDD    26
                                        *                                                                        COMCCDD    27
                                        *         CALLS  NONE.                                                   COMCCDD    28
                                                                                                                 COMCCDD    29
                                                                                                                 COMCCDD    30
                                         CDD1     DX6    X1*X2       COMPUTE QUOTIENT                            COMCCDD    31
                                                  FX1    X1*X2                                                   COMCCDD    32
                                                  UX7    X1          CHECK QUOTIENT                              COMCCDD    33
                                                  LX4    -6          SHIFT ASSEMBLY                              COMCCDD    34
                                                  SB2    B2+B4                                                   COMCCDD    35
                                                  FX6    X6*X3       EXTRACT REMAINDER DIGIT                     COMCCDD    36
                                                  SX6    X6+B3       CONVERT DIGIT                               COMCCDD    37
                                                  IX4    X6+X4                                                   COMCCDD    38
                                                  NZ     X7,CDD1     LOOP TO ZERO QUOTIENT                       COMCCDD    39
                                                  LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCDD    40
                                                  LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCDD    41
                                                                                                                 COMCCDD    42
                                         CDD      PS                 ENTRY/EXIT                                  COMCCDD    43
                                                  SA2    CDDA        =.1P48+1                                    COMCCDD    44
                                                  SA3    A2+B1       =10.P                                       COMCCDD    45
                                                  PX1    X1                                                      COMCCDD    46
                                                  SB2    B0          CLEAR JUSTIFY COUNT                         COMCCDD    47
                                                  SA4    A3+B1       =1H                                         COMCCDD    48
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   124
  
  
                                                  SB3    1R0-1R      (B3) = CONVERSION CONSTANT                  COMCCDD    49
                                                  SB4    6           (B4) = SHIFT INCREMENT                      COMCCDD    50
                                                  EQ     CDD1                                                    COMCCDD    51
                                                                                                                 COMCCDD    52
                                         CDDA     CON    0.1P48+1                                                COMCCDD    53
                                                  CON    10.P                                                    COMCCDD    54
                                                  CON    1H                                                      COMCCDD    55
                                                  SPACE  4                                                       COMCCDD    56
                                                  BASE   *                                                       COMCCDD    57
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCDD    58
                                                  QUAL   *                                                       COMCCDD    59
                                         CDD      EQU    /COMCCDD/CDD                                            COMCCDD    60
                                         QUAL$    ENDIF                                                          COMCCDD    61
                                                  ENDX                                                           COMCCDD    62
                                                  CTEXT  COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.    COMCCOD     2
                                         COD      SPACE  4                                                       COMCCOD     3
                                                  IF     -DEF,QUAL$,1                                            COMCCOD     4
                                                  QUAL   COMCCOD                                                 COMCCOD     5
                                                  BASE   D                                                       COMCCOD     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCCOD     7
                                         COD      SPACE  4                                                       COMCCOD     8
                                        ***       COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.               COMCCOD     9
                                        *         G. R. MANSFIELD.  70/12/18.                                    COMCCOD    10
                                        *         ADAPTED FROM SUBROUTINE *COD* IN *LIBEDIT*.                    COMCCOD    11
                                         COD      SPACE  4                                                       COMCCOD    12
                                        ***              COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH       COMCCOD    13
                                        *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCOD    14
                                        *         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCOD    15
                                        *                                                                        COMCCOD    16
                                        *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCOD    17
                                        *                (B1) = 1.                                               COMCCOD    18
                                        *                                                                        COMCCOD    19
                                        *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCOD    20
                                        *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCOD    21
                                        *                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCOD    22
                                        *                                                                        COMCCOD    23
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCOD    24
                                        *                B - 2, 3, 4.                                            COMCCOD    25
                                        *                A - 2, 4.                                               COMCCOD    26
                                        *                                                                        COMCCOD    27
                                        *         CALLS  NONE.                                                   COMCCOD    28
                                                                                                                 COMCCOD    29
                                                                                                                 COMCCOD    30
                                         COD      PS                 ENTRY/EXIT                                  COMCCOD    31
                                                  SA4    CODA        =1H                                         COMCCOD    32
                                                  SB3    6           (B3) = SHIFT INCREMENT                      COMCCOD    33
                                                  MX2    -3          (X2) = DIGIT MASK                           COMCCOD    34
                                                  SB2    B0          CLEAR JUSTIFY COUNT                         COMCCOD    35
                                                  SB4    1R0-1R      (B4) = CONVERSION COUNT                     COMCCOD    36
                                         COD1     BX7    -X2*X1      EXTRACT DIGIT                               COMCCOD    37
                                                  LX4    -6          SHIFT ASSEMBLY                              COMCCOD    38
                                                  SB2    B2+B3                                                   COMCCOD    39
                                                  SX3    X7+B4       CONVERT DIGIT                               COMCCOD    40
                                                  AX1    3           SHIFT OFF DIGIT                             COMCCOD    41
                                                  IX4    X4+X3       ADD DIGIT TO ASSEMBLY                       COMCCOD    42
                                                  NZ     X1,COD1     LOOP TO ZERO DIGIT                          COMCCOD    43
                                                  LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCOD    44
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   125
  
  
                                                  LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCOD    45
                                                  EQ     COD         RETURN                                      COMCCOD    46
                                                                                                                 COMCCOD    47
                                         CODA     CON    1H                                                      COMCCOD    48
                                                  SPACE  4                                                       COMCCOD    49
                                                  BASE   *                                                       COMCCOD    50
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCOD    51
                                                  QUAL   *                                                       COMCCOD    52
                                         COD      EQU    /COMCCOD/COD                                            COMCCOD    53
                                         QUAL$    ENDIF                                                          COMCCOD    54
                                                  ENDX                                                           COMCCOD    55
                                                  CTEXT  COMCDXB - DISPLAY CODE TO BINARY CONVERSION.            COMCDXB     2
                                         DXB      SPACE  4                                                       COMCDXB     3
                                                  IF     -DEF,QUAL$,1                                            COMCDXB     4
                                                  QUAL   COMCDXB                                                 COMCDXB     5
                                                  BASE   D                                                       COMCDXB     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCDXB     7
                                         DXB      SPACE  4                                                       COMCDXB     8
                                        ***       DXB - DISPLAY CODE TO BINARY CONVERSION.                       COMCDXB     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCDXB    10
                                         COMCDXB  SPACE  4                                                       COMCDXB    11
                                        ***              DXB CONVERTS ONE WORD OF DISPLAY CODE DIGITS TO         COMCDXB    12
                                        *         A BINARY VALUE.  CONVERSION MAY BE IN OCTAL OR DECIMAL BY      COMCDXB    13
                                        *         THE FOLLOWING CONDITIONS.                                      COMCDXB    14
                                        *         (1.)  ASSUMED BASE SPECIFIED BY CALLER.                        COMCDXB    15
                                        *         (2.)  POST RADIX SPECIFICATION.  (B = OCTAL, D = DECIMAL)      COMCDXB    16
                                        *         (3.)  PRESENCE OF 8 OR 9 WILL FORCE DECIMAL IF NO *B* POST     COMCDXB    17
                                        *                RADIX.                                                  COMCDXB    18
                                        *         ERROR CONDITIONS SENSED ARE -                                  COMCDXB    19
                                        *         (1.)  PRESENCE OF NON-DIGIT IN WORD.                           COMCDXB    20
                                        *         (2.)  PRESENCE OF CHARACTER AFTER POST RADIX.                  COMCDXB    21
                                        *         (3.)  PRESENCE OF 8 OR 9 WITH POST RADIX = B.                  COMCDXB    22
                                        *                                                                        COMCDXB    23
                                        *                                                                        COMCDXB    24
                                        *         ENTRY  (X5) = WORD TO CONVERT.                                 COMCDXB    25
                                        *                (B7) > 0 IF DECIMAL BASE ASSUMED.                       COMCDXB    26
                                        *                (B1) = 1.                                               COMCDXB    27
                                        *                                                                        COMCDXB    28
                                        *         EXIT   (X6) = CONVERTED DIGITS.                                COMCDXB    29
                                        *                (X4) " 0 IF ERROR IN ASSEMBLY.                          COMCDXB    30
                                        *                                                                        COMCDXB    31
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCDXB    32
                                        *                B - 2, 3, 4, 5.                                         COMCDXB    33
                                        *                A - NONE.                                               COMCDXB    34
                                        *                                                                        COMCDXB    35
                                        *         CALLS  NONE.                                                   COMCDXB    36
                                                                                                                 COMCDXB    37
                                                                                                                 COMCDXB    38
                                         DXB1     LX2    X7,B2       DECIMAL * 10                                COMCDXB    39
                                                  IX7    X2+X7                                                   COMCDXB    40
                                                  LX6    3           OCTAL * 8                                   COMCDXB    41
                                                  BX2    -X3*X1      8/9 PRESENCE                                COMCDXB    42
                                                  LX7    1                                                       COMCDXB    43
                                                  BX6    X6+X1       OCTAL + NEW DIGIT                           COMCDXB    44
                                                  IX7    X7+X1       DECIMAL + NEW DIGIT                         COMCDXB    45
                                                  SB5    B5+X2       NOTE 8/9                                    COMCDXB    46
                                         DXB2     LX5    6           NEXT CHARACTER                              COMCDXB    47
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   126
  
  
                                                  BX1    -X0*X5                                                  COMCDXB    48
                                                  SB4    X1          CHECK CHARACTER                             COMCDXB    49
                                                  LX2    X4,B4                                                   COMCDXB    50
                                                  SX1    X1+B3       CONVERT CHARACTER                           COMCDXB    51
                                                  BX5    X0*X5       CLEAR CHARACTER                             COMCDXB    52
                                                  NG     X2,DXB1     LOOP IF DIGIT                               COMCDXB    53
                                                                                                                 COMCDXB    54
                                        *         CHECK FOR POST RADIX SPECIFICATION.                            COMCDXB    55
                                                                                                                 COMCDXB    56
                                                  SB3    B5+B7       SET BASE (ASSUMED OR 8/9)                   COMCDXB    57
                                                  ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB    58
                                                  SB3    B2+B2       BASE = DECIMAL                              COMCDXB    59
                                                  NZ     X5,DXB      RETURN IF NOT LAST CHARACTER                COMCDXB    60
                                                  EQ     B4,B3,DXB3  IF *D*                                      COMCDXB    61
                                                  SB5    B4-B5                                                   COMCDXB    62
                                                  NE     B5,B2,DXB   RETURN IF NOT *B* OR *B* AND 8/9 PRESENT    COMCDXB    63
                                                  SB3    B0          SET OCTAL                                   COMCDXB    64
                                         DXB3     MX4    0           CLEAR ERROR                                 COMCDXB    65
                                                  ZR     B3,DXB      RETURN IF BASE = OCTAL                      COMCDXB    66
                                                  BX6    X7          SET DECIMAL                                 COMCDXB    67
                                                                                                                 COMCDXB    68
                                         DXB      PS                 ENTRY/EXIT                                  COMCDXB    69
                                                  SX4    7774B       MASK FOR \0123456789@                       COMCDXB    70
                                                  MX0    -6          (X0) = CHARACTER MASK.                      COMCDXB    71
                                                  SX6    B0          CLEAR OCTAL                                 COMCDXB    72
                                                  SB2    B1+B1       (B2) = 2                                    COMCDXB    73
                                                  BX7    X7-X7       CLEAR DECIMAL                               COMCDXB    74
                                                  SB3    -1R0        (B3) = CONVERSION CONSTANT                  COMCDXB    75
                                                  LX4    21                                                      COMCDXB    76
                                                  SB5    B0          CLEAR 8/9 PRESENCE                          COMCDXB    77
                                                  SX3    7           MASK FOR 8/9                                COMCDXB    78
                                                  EQ     DXB2        ENTER CONVERSION LOOP                       COMCDXB    79
                                                  SPACE  4                                                       COMCDXB    80
                                                  BASE   *                                                       COMCDXB    81
                                         QUAL$    IF     -DEF,QUAL$                                              COMCDXB    82
                                                  QUAL   *                                                       COMCDXB    83
                                         DXB      EQU    /COMCDXB/DXB                                            COMCDXB    84
                                         QUAL$    ENDIF                                                          COMCDXB    85
                                                  ENDX                                                           COMCDXB    86
                                                  CTEXT  COMCSFN - SPACE FILL RIGHT JUSTIFIED ZEROES.            COMCSFN     2
                                                  SPACE  4                                                       COMCSFN     3
                                                  IF     -DEF,QUAL$,1                                            COMCSFN     4
                                                  QUAL   COMCSFN                                                 COMCSFN     5
                                                  BASE   D                                                       COMCSFN     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.                     COMCSFN     7
                                         SFN      SPACE  4                                                       COMCSFN     8
                                        ***       SFN - SPACE FILL NAME.                                         COMCSFN     9
                                        *         G. R. MANSFIELD.   70/12/08.                                   COMCSFN    10
                                        *         S. R. MCPHERSON.   74/11/15.                                   COMCSFN    11
                                         SFN      SPACE  4                                                       COMCSFN    12
                                        ***       SFN - SPACE FILL RIGHT JUSTIFIED ZEROES.                       COMCSFN    13
                                        *                                                                        COMCSFN    14
                                        *         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL.                  COMCSFN    15
                                        *                (B1) = 1.                                               COMCSFN    16
                                        *                                                                        COMCSFN    17
                                        *         EXIT   (X6) = NAME SPACE FILLED.                               COMCSFN    18
                                        *                (X7) = FINAL CHARACTER MASK.                            COMCSFN    19
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   127
  
  
                                        *                                                                        COMCSFN    20
                                        *         USES   X - 1, 2, 3, 6, 7.                                      COMCSFN    21
                                        *                A - 3.                                                  COMCSFN    22
                                        *                B - 2.                                                  COMCSFN    23
                                                                                                                 COMCSFN    24
                                                                                                                 COMCSFN    25
                                         SFN      PS     0           ENTRY/EXIT                                  COMCSFN    26
                                                  SX7    B1                                                      COMCSFN    27
                                                  SA3    SFNA        =40404040404040404040B                      COMCSFN    28
                                                  IX7    X1-X7       FIND LOWEST BIT SET                         COMCSFN    29
                                                  BX6    -X7+X1                                                  COMCSFN    30
                                                  SB2    60-5                                                    COMCSFN    31
                                                  BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS           COMCSFN    32
                                                  SA3    A3+B1       =10H                                        COMCSFN    33
                                                  LX6    X7,B2                                                   COMCSFN    34
                                                  IX6    X7-X6                                                   COMCSFN    35
                                                  BX7    X7+X6                                                   COMCSFN    36
                                                  BX3    -X7*X3                                                  COMCSFN    37
                                                  IX6    X1+X3                                                   COMCSFN    38
                                                  EQ     SFN         RETURN                                      COMCSFN    39
                                                                                                                 COMCSFN    40
                                         SFNA     DATA   40404040404040404040B                                   COMCSFN    41
                                         SFNB     DATA   10H                                                     COMCSFN    42
                                                  SPACE  4                                                       COMCSFN    43
                                                  BASE   *                                                       COMCSFN    44
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSFN    45
                                                  QUAL   *                                                       COMCSFN    46
                                         SFN      EQU    /COMCSFN/SFN                                            COMCSFN    47
                                         QUAL$    ENDIF                                                          COMCSFN    48
                                                  ENDX                                                           COMCSFN    49
                                         SVR=     CTEXT  COMCSVR - SAVE AND RESTORE REGISTERS.                   COMCSVR     2
                                         SVR=     SPACE  4,8                                                     COMCSVR     3
                                                  IF     -DEF,QUAL$,1                                            COMCSVR     4
                                                  QUAL   COMCSVR                                                 COMCSVR     5
                                                  BASE   D                                                       COMCSVR     6
                                         SVR=     SPACE  4,8                                                     COMCSVR     7
                                        ***       SVR - SAVE AND RESTORE REGISTERS.                              COMCSVR     8
                                        *                                                                        COMCSVR     9
                                        *                                                                        COMCSVR    10
                                        *                CONTAINS THE ROUTINES *SVR=* TO SAVE ALL REGISTERS,     COMCSVR    11
                                        *         AND *RSR=* TO RESTORE ALL REGISTERS. MINUS ZERO (-0) IS PRE-   COMCSVR    12
                                        *         SERVED IN ALL REGISTERS, PARTICULARLY -A- AND -B- REGISTERS.   COMCSVR    13
                                        *         EACH REGISTER IS SAVED IN A FULL CM WORD (-A- AND -B-          COMCSVR    14
                                        *         REGISTERS ARE SIGN EXTENDED TO BIT 59). A REGISTER BLOCK IS    COMCSVR    15
                                        *         DEFINED TO BE ALL THE -B- REGISTERS, ALL THE -A- REGISTERS, OR COMCSVR    16
                                        *         ALL THE -X- REGISTERS. ALL REGISTERS IN A REGISTER BLOCK ARE   COMCSVR    17
                                        *         SAVED CONTIGUOUSLY IN ASCENDING ORDER.                         COMCSVR    18
                                        *                                                                        COMCSVR    19
                                        *         ASSEMBLY-TIME OPTIONS--                                        COMCSVR    20
                                        *                                                                        COMCSVR    21
                                        *            IF THE SYMBOL *BN=1* (N=1 THRU 7) IS DEFINED, (B.N) ARE     COMCSVR    22
                                        *         ASSUMED TO BE EQUAL TO 1. IF *BN=1* IS NOT DEFINED, (B1)       COMCSVR    23
                                        *         ARE CHECKED FOR 1 TO TRY TO AVOID EXECUTING THE *SAVE (B1)     COMCSVR    24
                                        *         VIA RJ SEQUENCE* CODE.                                         COMCSVR    25
                                        *                                                                        COMCSVR    26
                                        *            IF THE SYMBOL *#SVR* IS DEFINED (DEF), THEN THE CALLER      COMCSVR    27
                                        *         WILL PROVIDE THE FWA OF THE REGISTER SAVE AREA IN THE LOWER    COMCSVR    28
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   128
  
  
                                        *         30 BITS OF THE CALLING *RJ* FOR *SVR=*--                       COMCSVR    29
                                        *                30/RJ SVR, 30/FWA OF REGISTER SAVE AREA                 COMCSVR    30
                                        *         AND IN (X1) FOR *RSR=*.                                        COMCSVR    31
                                        *            IF THE SYMBOL *#SVR* IS NOT DEFINED (-DEF), THEN A LOCAL    COMCSVR    32
                                        *         REGISTER SAVE AREA, (SVREG) ET SEQ, WILL BE USED AND NO        COMCSVR    33
                                        *         PARAMETERS NEED TO BE PASSED.                                  COMCSVR    34
                                        *                                                                        COMCSVR    35
                                        *            THE MICRO "SVBAX" DEFINES THE ORDER IN WHICH THE -B-, -A-,  COMCSVR    36
                                        *         AND -X- REGISTER BLOCKS ARE SAVED IN CM.                       COMCSVR    37
                                        *         I.E.   SVBAX    MICRO  1,,/BAX/        (DEFAULT) MEANS         COMCSVR    38
                                        *                SV=B     BSSZ   8                                       COMCSVR    39
                                        *                SV=A     BSSZ   8                                       COMCSVR    40
                                        *                SV=X     BSSZ   8                                       COMCSVR    41
                                        *         OR     SVBAX    MICRO  1,,/ABX/        MEANS                   COMCSVR    42
                                        *                SV=A     BSSZ   8                                       COMCSVR    43
                                        *                SV=B     BSSZ   8                                       COMCSVR    44
                                        *                SV=X     BSSZ   8                                       COMCSVR    45
                                         SVR=     SPACE  4,8                                                     COMCSVR    46
                                                  IF     -MIC,SVBAX,1                                            COMCSVR    47
                                         SVBAX    MICRO  1,,/BAX/                                                COMCSVR    48
                                                                                                                 COMCSVR    49
                                         .1       MICRO  1,1,/"SVBAX"/                                           COMCSVR    50
                                         .2       MICRO  2,1,/"SVBAX"/                                           COMCSVR    51
                                         .3       MICRO  3,1,/"SVBAX"/                                           COMCSVR    52
                                                                                                                 COMCSVR    53
                                         SV".1"   =      0                                                       COMCSVR    54
                                         SV".2"   =      0+8                                                     COMCSVR    55
                                         SV".3"   =      0+8+8                                                   COMCSVR    56
                                                                                                                 COMCSVR    57
                                         .SVR     IF     -DEF,#SVR                                               COMCSVR    58
                                         SVREG    BSSZ   3*8                                                     COMCSVR    59
                                                                                                                 COMCSVR    60
                                         .SVR     ELSE                                                           COMCSVR    61
                                         SVX7     BSSZ   1           TEMPORARY SAVE (X7)                         COMCSVR    62
                                         SVA5     BSSZ   1           TEMPORARY SAVE (A5)                         COMCSVR    63
                                         SVX5     BSSZ   1           TEMPORARY SAVE (X5)                         COMCSVR    64
                                         .SVR     ENDIF                                                          COMCSVR    65
                                                                                                                 COMCSVR    66
                                         SVR=     SPACE  4,8                                                     COMCSVR    67
                                        **        SVR - SAVE ALL REGISTERS.                                      COMCSVR    68
                                        *                                                                        COMCSVR    69
                                        *                                                                        COMCSVR    70
                                        *         ENTRY  IF *#SVR* DEFINED--                                     COMCSVR    71
                                        *                LOWER 30 BITS OF CALLING *RJ* CONTAINS FWA OF           COMCSVR    72
                                        *                 REGISTER SAVE AREA (RSA)--   30/RJ SVR=, 30/FWA OF RSA COMCSVR    73
                                        *                                                                        COMCSVR    74
                                        *                IF *#SVR* NOT DEFINED-- NONE                            COMCSVR    75
                                        *                                                                        COMCSVR    76
                                        *                IF *BN=1* DEFINED-- (B.N) = 1                           COMCSVR    77
                                        *                                                                        COMCSVR    78
                                        *         EXIT   (B1) = 1                                                COMCSVR    79
                                        *                                                                        COMCSVR    80
                                        *         USES   ALL                                                     COMCSVR    81
                                        *                                                                        COMCSVR    82
                                        *         CALLS  NONE                                                    COMCSVR    83
                                                                                                                 COMCSVR    84
                                                                                                                 COMCSVR    85
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   129
  
  
                                         SVR=     EQ     *+4S15      ** ENTRY/EXIT **                            COMCSVR    86
                                                                                                                 COMCSVR    87
                                        *         CHECK TO SEE IF ANY REGISTER HAS BEEN DEFINED TO BE EQUAL      COMCSVR    88
                                        *           TO 1 AT ASSEMBLY TIME VIA *BN=1* SYMBOL. IF NOT, CHECK FOR   COMCSVR    89
                                        *           (B1) = 1. IF (B1).NE.1, SAVE (B1) THE HARD WAY BY EXECUTING  COMCSVR    90
                                        *           THE *SAVE (B1)* RJ SEQUENCE AT *SVR2*. IF BIT 2**N WAS ON    COMCSVR    91
                                        *           IN (B1), THEN THE *RJ* AT (SVR2+2*N+1) WILL BE EXECUTED,     COMCSVR    92
                                        *           RESULTING IN AN /EQ SVR2+2*N+2/. IF BIT 2**N WAS NOT ON      COMCSVR    93
                                        *           IN (B1), THEN THE *RJ* WILL NOT BE  EXECUTED. BY QUERYING    COMCSVR    94
                                        *           (SVR2+2*N+1), ONE CAN DETERMINE WHETHER OR NOT BIT 2**N      COMCSVR    95
                                        *           WAS ON IN (B1) BY THE PRESENCE OF AN *EQ* (BIT WAS ON), OR   COMCSVR    96
                                        *           AN *RJ* (BIT WAS OFF) INSTRUCTION.                           COMCSVR    97
                                                                                                                 COMCSVR    98
                                         B=1      MICRO  1,,/B0/                                                 COMCSVR    99
                                                  ECHO   4,BN=(B1,B7,B5,B2,B3,B4,B6)                             COMCSVR   100
                                                  IF     DEF,BN=1,3                                              COMCSVR   101
                                         B=1      MICRO  1,,/BN/                                                 COMCSVR   102
                                                  STOPDUP                                                        COMCSVR   103
                                         B.EQ.1   SKIP                                                           COMCSVR   104
                                                                                                                 COMCSVR   105
                                                  LE     B1,B0,SVR2  IF (B1).LE.0 (INSURES -0 WILL BE HONORED)   COMCSVR   106
                                                  SB1    B1-1                                                    COMCSVR   107
                                                  ZR     B1,SVR4     IF (B1) = 1                                 COMCSVR   108
                                                  SB1    B1+1        RESTORE (B1)                                COMCSVR   109
                                                                                                                 COMCSVR   110
                                         SVR2     BSS    0                                                       COMCSVR   111
                                                  PL     B1,*+2                                                  COMCSVR   112
                                         +        RJ     *                                                       COMCSVR   113
                                                                                                                 COMCSVR   114
                                         B.NE.1   DUP    17                                                      COMCSVR   115
                                         +        SB1    B1+B1                                                   COMCSVR   116
                                                  NO                                                             COMCSVR   117
                                                  PL     B1,*+2                                                  COMCSVR   118
                                         +        RJ     *                                                       COMCSVR   119
                                         B.NE.1   ENDD                                                           COMCSVR   120
                                                                                                                 COMCSVR   121
                                         +        SB0    B0+         FILLER BECAUSE /RJ */S MUST BE 2 WORDS      COMCSVR   122
                                        *                              APART FOR RESTORE                         COMCSVR   123
                                                                                                                 COMCSVR   124
                                         SVR3     RJ     *           (B1)=1/(B1).NE.1 FLAG                       COMCSVR   125
                                                                                                                 COMCSVR   126
                                         SVR4     BSS    0                                                       COMCSVR   127
                                                                                                                 COMCSVR   128
                                         B.EQ.1   ELSE                                                           COMCSVR   129
                                                  MI     "B=1",*+4S15  IF ("B=1") IS BAD (SHOULD BE EQUAL TO 1)  COMCSVR   130
                                                  S"B=1" "B=1"-1                                                 COMCSVR   131
                                                  ZR     "B=1",SVR2  IF ("B=1") = 1                              COMCSVR   132
                                                  S"B=1" "B=1"+1     RESTORE ("B=1")                             COMCSVR   133
                                                  EQ     *+4S15                                                  COMCSVR   134
                                                                                                                 COMCSVR   135
                                         SVR2     BSS    0                                                       COMCSVR   136
                                                  IFC    NE,/"B=1"/B1/,1                                         COMCSVR   137
                                                  S"B=1" B1-B0       SAVE (B1)                                   COMCSVR   138
                                         B.EQ.1   ENDIF                                                          COMCSVR   139
                                                                                                                 COMCSVR   140
                                        *         SAVE   A - 4,5,6,7                                             COMCSVR   141
                                        *                X - 4,5,6,7                                             COMCSVR   142
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   130
  
  
                                                                                                                 COMCSVR   143
                                         .SVR1    IF     -DEF,#SVR   IF USING LOCAL REGISTER SAVE AREA           COMCSVR   144
                                                  SB1    A7-B0                                                   COMCSVR   145
                                                  SA7    SVREG+SVX+7                                             COMCSVR   146
                                                  SX7    B1-B0                                                   COMCSVR   147
                                                  SA7    SVREG+SVA+7                                             COMCSVR   148
                                                  SB1    1                                                       COMCSVR   149
                                                  SX7    A6-B0                                                   COMCSVR   150
                                                  SA6    SVREG+SVX+6                                             COMCSVR   151
                                                  SA7    A7-B1                                                   COMCSVR   152
                                                  BX6    X5                                                      COMCSVR   153
                                                  SX7    A5-B0                                                   COMCSVR   154
                                                  SA6    A6-B1                                                   COMCSVR   155
                                                  SA7    A7-B1                                                   COMCSVR   156
                                                  BX6    X4                                                      COMCSVR   157
                                                  SX7    A4-B0                                                   COMCSVR   158
                                                  SA6    A6-B1                                                   COMCSVR   159
                                                  SA7    A7-B1                                                   COMCSVR   160
                                                  SX5    SVREG       (X5) = FWA OF SAVED REGISTER AREA           COMCSVR   161
                                                                                                                 COMCSVR   162
                                         .SVR1    ELSE               IF USING USER DEFINED SAVE AREA             COMCSVR   163
                                                  SB1    A7-B0       SAVE (A7) ** TEMPORARY **                   COMCSVR   164
                                                  SA7    SVX7        SAVE (X7) ** TEMPORARY **                   COMCSVR   165
                                                  SX7    A5-B0                                                   COMCSVR   166
                                                  SA7    SVA5        SAVE (A5) ** TEMPORARY **                   COMCSVR   167
                                                  BX7    X5                                                      COMCSVR   168
                                                  SA7    SVX5        SAVE (X5) ** TEMPORARY **                   COMCSVR   169
                                                                                                                 COMCSVR   170
                                                  SA5    SVR=        (X5) = 30/EQ CALLER+1, 30/0                 COMCSVR   171
                                                  LX5    30                                                      COMCSVR   172
                                                  SA5    X5-1        (X5) = 30/RJ SVR=, 30/FWA OF RSA            COMCSVR   173
                                                  SX7    B1-B0                                                   COMCSVR   174
                                                  SB1    1                                                       COMCSVR   175
                                                  SA7    X5+SVA+7                                                COMCSVR   176
                                                  SX7    A6-B0                                                   COMCSVR   177
                                                  SA6    X5+SVX+6                                                COMCSVR   178
                                                  SA7    A7-B1                                                   COMCSVR   179
                                                  BX6    X4                                                      COMCSVR   180
                                                  SX7    A4-B0                                                   COMCSVR   181
                                                  SA6    A6-2                                                    COMCSVR   182
                                                  SA7    A7-2                                                    COMCSVR   183
                                         .SVR1    ENDIF                                                          COMCSVR   184
                                                                                                                 COMCSVR   185
                                        *         SAVE   A - 0,1,2,3                                             COMCSVR   186
                                        *                X - 0,1,2,3                                             COMCSVR   187
                                                                                                                 COMCSVR   188
                                         SV=AX    ECHO   ,N=(3,2,1,0)                                            COMCSVR   189
                                                  BX6    X.N                                                     COMCSVR   190
                                                  SX7    A.N-B0                                                  COMCSVR   191
                                                  SA6    A6-B1                                                   COMCSVR   192
                                                  SA7    A7-B1                                                   COMCSVR   193
                                         SV=AX    ENDD                                                           COMCSVR   194
                                                                                                                 COMCSVR   195
                                        *         IF USING USER DEFINED SAVE AREA, SAVE (X7),(A5),(X5) FINALLY.  COMCSVR   196
                                                                                                                 COMCSVR   197
                                         .SVR2    IF     DEF,#SVR                                                COMCSVR   198
                                                  SA2    SVX7        (X2) = SAVED (X7)                           COMCSVR   199
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   131
  
  
                                                  SA3    A2+B1       (X3) = SAVED (A5)                           COMCSVR   200
                                                  SA4    A3+B1       (X4) = SAVED (X5)                           COMCSVR   201
                                                  BX6    X2                                                      COMCSVR   202
                                                  LX7    X3                                                      COMCSVR   203
                                                  SA6    X5+SVX+7                                                COMCSVR   204
                                                  SA7    X5+SVA+5                                                COMCSVR   205
                                                  BX6    X4                                                      COMCSVR   206
                                                  SA6    X5+SVX+5                                                COMCSVR   207
                                         .SVR2    ENDIF                                                          COMCSVR   208
                                                                                                                 COMCSVR   209
                                        *         SAVE   B - 0,2,3,4,5,6,7                                       COMCSVR   210
                                                                                                                 COMCSVR   211
                                                  BX6    X6-X6                                                   COMCSVR   212
                                                  SA6    X5+SVB+0                                                COMCSVR   213
                                                                                                                 COMCSVR   214
                                         B=1      IFC    NE,/"B=1"/B0/                                           COMCSVR   215
                                                  SX7    "B=1"-B0                                                COMCSVR   216
                                                  S"B=1" B1          RESET ("B=1") = 1                           COMCSVR   217
                                                                                                                 COMCSVR   218
                                         B=1      ELSE                                                           COMCSVR   219
                                                  SX7    B1                                                      COMCSVR   220
                                         B=1      ENDIF                                                          COMCSVR   221
                                                                                                                 COMCSVR   222
                                                  SA7    A6+B1                                                   COMCSVR   223
                                                                                                                 COMCSVR   224
                                         SV=B     ECHO   ,U=(2,4,6),L=(3,5,7)                                    COMCSVR   225
                                                  SX6    B.U-B0                                                  COMCSVR   226
                                                  SX7    B.L-B0                                                  COMCSVR   227
                                                  SA6    A7+B1                                                   COMCSVR   228
                                                  SA7    A6+B1                                                   COMCSVR   229
                                         SV=B     ENDD                                                           COMCSVR   230
                                                                                                                 COMCSVR   231
                                        *         SAVE (B1)                                                      COMCSVR   232
                                                                                                                 COMCSVR   233
                                         B.NE.1   IFC    EQ,/"B=1"/B0/                                           COMCSVR   234
                                                  SA5    SVR3        (X5) = (B1)=1/(B1).NE.1 FLAG                COMCSVR   235
                                                  SX4    0100B       (X4) = *RJ* OP CODE                         COMCSVR   236
                                                  SX3    B1                                                      COMCSVR   237
                                                  LX3    42-0-1                                                  COMCSVR   238
                                                  SX6    A5                                                      COMCSVR   239
                                                  LX4    29-11                                                   COMCSVR   240
                                                  BX6    X4+X6       (X6) = 30/0, 30/RJ *                        COMCSVR   241
                                                  LX6    30                                                      COMCSVR   242
                                                  SA6    A5          RESTORE .RJ *.                              COMCSVR   243
                                                  LX5    59-56                                                   COMCSVR   244
                                                  BX7    X7-X7                                                   COMCSVR   245
                                                  PL     X5,SVR=     IF (B1) = 1, NO NEED TO ASSEMBLE (B1)       COMCSVR   246
                                                  SB2    B1+B1                                                   COMCSVR   247
                                                                                                                 COMCSVR   248
                                        *         ASSEMBLE ORIGINAL (B1) INTO (X7).                              COMCSVR   249
                                                                                                                 COMCSVR   250
                                         SVR5     SA5    A5-B2                                                   COMCSVR   251
                                                  IX3    X3+X3                                                   COMCSVR   252
                                                  SX6    A5                                                      COMCSVR   253
                                                  LX5    59-56                                                   COMCSVR   254
                                                  BX6    X4+X6                                                   COMCSVR   255
                                                  PL     X5,SVR6     IF BIT WAS CLEAR                            COMCSVR   256
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   132
  
  
                                                  BX7    X7+X3                                                   COMCSVR   257
                                                                                                                 COMCSVR   258
                                         SVR6     LX6    59-29                                                   COMCSVR   259
                                                  SA6    A5                                                      COMCSVR   260
                                                  PL     X3,SVR5     IF MORE BITS TO ASSEMBLE                    COMCSVR   261
                                                                                                                 COMCSVR   262
                                        *         HERE FOR FINAL SAVE OF (B1).                                   COMCSVR   263
                                                                                                                 COMCSVR   264
                                                  AX7    42          SIGN EXTEND                                 COMCSVR   265
                                                  SA7    A7-7+1                                                  COMCSVR   266
                                         B.NE.1   ENDIF                                                          COMCSVR   267
                                                                                                                 COMCSVR   268
                                                  EQ     SVR=        EXIT...                                     COMCSVR   269
                                         RSR=     SPACE  4,8                                                     COMCSVR   270
                                        **        RSR - RESTORE ALL REGISTERS.                                   COMCSVR   271
                                        *                                                                        COMCSVR   272
                                        *                                                                        COMCSVR   273
                                        *         ENTRY  IF *#SVR* NOT DEFINED-- NONE                            COMCSVR   274
                                        *                                                                        COMCSVR   275
                                        *                IF *#SVR* DEFINED-- (X1) = FWA OF REGISTER SAVE AREA    COMCSVR   276
                                        *                                                                        COMCSVR   277
                                        *         EXIT   ALL REGISTERS SET TO THE CONTENTS OF REGISTER SAVE AREA COMCSVR   278
                                        *                                                                        COMCSVR   279
                                        *         USES   ALL                                                     COMCSVR   280
                                        *                                                                        COMCSVR   281
                                        *         CALLS  NONE                                                    COMCSVR   282
                                                                                                                 COMCSVR   283
                                                                                                                 COMCSVR   284
                                         RSR=     EQ     *+4S15      ** ENTRY/EXIT **                            COMCSVR   285
                                                  SB1    1                                                       COMCSVR   286
                                                                                                                 COMCSVR   287
                                        *         SET UP FINAL -B- REGISTERS RESTORE AT (RSR4) ET SEQ.           COMCSVR   288
                                                                                                                 COMCSVR   289
                                         .RSR     IF     DEF,#SVR    IF USING USER DEFINED REGISTER SAVE AREA    COMCSVR   290
                                                  SB7    X1+         (B7) = FWA OF REGISTER SAVE AREA            COMCSVR   291
                                                                                                                 COMCSVR   292
                                         .RSR     ELSE               IF USING LOCAL REGISTER SAVE AREA           COMCSVR   293
                                                  SB7    SVREG                                                   COMCSVR   294
                                         .RSR     ENDIF                                                          COMCSVR   295
                                                                                                                 COMCSVR   296
                                                  MX4    -18                                                     COMCSVR   297
                                                  SA1    B7+SVB+7    (X1) = SAVED (B7)                           COMCSVR   298
                                                  BX5    X4                                                      COMCSVR   299
                                                  LX4    30                                                      COMCSVR   300
                                                  SB4    4                                                       COMCSVR   301
                                                  BX0    X4*X5       (X0) = 77770000007777000000B                COMCSVR   302
                                                                                                                 COMCSVR   303
                                         RSR2     SA2    A1-B1       (X2) = SAVED (B.N-1)                        COMCSVR   304
                                                  SA3    RSR4+B4-1                                               COMCSVR   305
                                                  BX1    -X5*X1                                                  COMCSVR   306
                                                  SB4    B4-B1                                                   COMCSVR   307
                                                  BX2    -X5*X2                                                  COMCSVR   308
                                                  LX1    30                                                      COMCSVR   309
                                                  BX3    X0*X3                                                   COMCSVR   310
                                                  IX6    X1+X2                                                   COMCSVR   311
                                                  BX7    X6+X3       (X7) = 30/SB.N B7+K, 30/SB.N-1 B7+K         COMCSVR   312
                                                  SA7    A3                                                      COMCSVR   313
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   133
  
  
                                                  SA1    A2-B1       (X1) = SAVED (B.N)                          COMCSVR   314
                                                  GT     B4,B0,RSR2  IF STILL MORE -B- REGS TO GO...             COMCSVR   315
                                                                                                                 COMCSVR   316
                                                  SA2    B7+SVA+6    (X2) = SAVED (A6)                           COMCSVR   317
                                                                                                                 COMCSVR   318
                                        *         THE MOST LIKELY CANDIDATE FOR THE DANGER DISCUSSED IN THE NEXT COMCSVR   319
                                        *           PARAGRAPH IS THE SYSTEM COMMUNICATION CELL (RA.MTR).         COMCSVR   320
                                        *           ACCORDINGLY, WE WAIT FOR IT TO CLEAR BEFORE PROCEEDING.      COMCSVR   321
                                                                                                                 COMCSVR   322
                                         RSR3     SA1    B1                                                      COMCSVR   323
                                                  NZ     X1,RSR3     IF (RA.MTR) NOT CLEAR                       COMCSVR   324
                                                                                                                 COMCSVR   325
                                        *         A SLIGHT BIT OF CARE IS SPENT ON RESTORATION OF (A6) AND (A7). COMCSVR   326
                                        *           WE WISH TO AVOID HAVING THE CONTENTS OF THE WORD THAT THE    COMCSVR   327
                                        *           STORE REGISTER IS POINTING TO TO GET CHANGED (I.E. BY A PP)  COMCSVR   328
                                        *           WHILE WE ARE RESTORING (A6) OR (A7). ABOUT THE ONLY THING    COMCSVR   329
                                        *           THAT CAN BE DONE TO MINIMIZE THIS POSSIBILITY IS TO GET THE  COMCSVR   330
                                        *           LOAD AND THE STORE AS CLOSE TOGETHER AS POSSIBLE. BY KEEPING COMCSVR   331
                                        *           THEM IN THE SAME WORD, WE HAVE AT LEAST INSURED THAT WE WILL COMCSVR   332
                                        *           NOT BE EXCHANGED AFTER THE LOAD BUT BEFORE THE STORE.        COMCSVR   333
                                        *           BARRING DELAYS IN THE HOPPER, THIS SHOULD REDUCE THE DANGER  COMCSVR   334
                                        *           PERIOD TO A FEW MINOR CYCLES. SUGGESTIONS ARE WELCOME.       COMCSVR   335
                                                                                                                 COMCSVR   336
                                                  SA3    A2+B1       (X3) = SAVED (A7)                           COMCSVR   337
                                                                                                                 COMCSVR   338
                                         +        SA4    X2-0                                                    COMCSVR   339
                                                  BX6    X4                                                      COMCSVR   340
                                                  SA6    A4-B0       RESTORE (A6)                                COMCSVR   341
                                                                                                                 COMCSVR   342
                                         +        SA5    X3-0                                                    COMCSVR   343
                                                  BX7    X5                                                      COMCSVR   344
                                                  SA7    A5-B0       RESTORE (A7)                                COMCSVR   345
                                                                                                                 COMCSVR   346
                                                  SA1    B7+SVX+6                                                COMCSVR   347
                                                  SA4    A1+B1                                                   COMCSVR   348
                                                  BX6    X1          RESTORE (X6)                                COMCSVR   349
                                                  LX7    X4          RESTORE (X7)                                COMCSVR   350
                                                  BX0    -X0-X0                                                  COMCSVR   351
                                                  SB6    X0-0        (B6) = -0                                   COMCSVR   352
                                                                                                                 COMCSVR   353
                                        *         RESTORE (A0),(X0).                                             COMCSVR   354
                                                                                                                 COMCSVR   355
                                                  SA4    B7+SVA+0                                                COMCSVR   356
                                                  SA5    B7+SVX+0                                                COMCSVR   357
                                                  SA0    X4+B6                                                   COMCSVR   358
                                                  BX0    X5                                                      COMCSVR   359
                                                                                                                 COMCSVR   360
                                        *         RESTORE A - 1,2,3,4                                            COMCSVR   361
                                        *                 X - 1,2,3,4                                            COMCSVR   362
                                                                                                                 COMCSVR   363
                                                  ECHO   4,N=(1,2,3,4)                                           COMCSVR   364
                                                  SA4    A4+B1       (X4) = SAVED (A.N)                          COMCSVR   365
                                                  SA5    A5+B1       (X5) = SAVED (X.N)                          COMCSVR   366
                                                  SA.N   X4+B6                                                   COMCSVR   367
                                                  BX.N   X5                                                      COMCSVR   368
                                                                                                                 COMCSVR   369
                                        *         RESTORE (A5),(X5)-- THE ORIGINAL (X5) ARE BROKEN APART INTO    COMCSVR   370
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   134
  
  
                                        *           (B1) THRU (B5) AS DISPLAYED BELOW. THIS ALLOWS US TO RESTORE COMCSVR   371
                                        *           (A5).                                                        COMCSVR   372
                                        *           DISASSEMBLY IS FROM LEFT TO RIGHT, TOP TO BOTTOM.            COMCSVR   373
                                        *           REASSEMBLY IS FROM RIGHT TO LEFT, BOTTOM TO TOP.             COMCSVR   374
                                        *         5          4          3          2          1               55 COMCSVR   375
                                        *         9          8          7          6          5              098 COMCSVR   376
                                        *         .............................................................. COMCSVR   377
                                        *         ++++++++++++                                                   COMCSVR   378
                                        *             (B1)   ++++++++++++                                        COMCSVR   379
                                        *                        (B2)   ++++++++++++                             COMCSVR   380
                                        *                                   (B3)   ++++++++++++                  COMCSVR   381
                                        *                                              (B4)   ++++++++++++++++++ COMCSVR   382
                                        *         ++                                                 (B5)        COMCSVR   383
                                                                                                                 COMCSVR   384
                                                  SA5    A5+B1       (X5) = SAVED (X5)                           COMCSVR   385
                                                                                                                 COMCSVR   386
                                                  ECHO   2,N=(1,2,3)                                             COMCSVR   387
                                                  UX5    X5,B.N                                                  COMCSVR   388
                                                  LX5    11                                                      COMCSVR   389
                                                                                                                 COMCSVR   390
                                                  UX5    X5,B4                                                   COMCSVR   391
                                                  LX5    11+18                                                   COMCSVR   392
                                                  SB5    X5+B6                                                   COMCSVR   393
                                                                                                                 COMCSVR   394
                                                  SA5    B7+SVA+5    (X5) = SAVED (A5)                           COMCSVR   395
                                                  SA5    X5+B6       RESTORE (A5)                                COMCSVR   396
                                                                                                                 COMCSVR   397
                                        *         REASSEMBLE (X5).                                               COMCSVR   398
                                                                                                                 COMCSVR   399
                                                  SX5    B5+B6                                                   COMCSVR   400
                                                  LX5    60-11-18                                                COMCSVR   401
                                                  PX5    X5,B4                                                   COMCSVR   402
                                                                                                                 COMCSVR   403
                                                  ECHO   2,N=(3,2,1)                                             COMCSVR   404
                                                  LX5    -11                                                     COMCSVR   405
                                                  PX5    X5,B.N                                                  COMCSVR   406
                                                                                                                 COMCSVR   407
                                        *         RESTORE B - 0,1,2,3,4,5,6,7                                    COMCSVR   408
                                                                                                                 COMCSVR   409
                                         RSR4     BSS    0                                                       COMCSVR   410
                                                  ECHO   2,U=(1,3,5,7),L=(0,2,4,6)                               COMCSVR   411
                                                  SB.U   B6+*                                                    COMCSVR   412
                                                  SB.L   B6+*                                                    COMCSVR   413
                                                                                                                 COMCSVR   414
                                                  EQ     RSR=        EXIT...                                     COMCSVR   415
                                         SVR=     SPACE  4,8                                                     COMCSVR   416
                                                  BASE   *                                                       COMCSVR   417
                                                                                                                 COMCSVR   418
                                         #SVR     IF     -DEF,#SVR                                               COMCSVR   419
                                         SV=B     =      SVREG+SVB                                               COMCSVR   420
                                         SV=A     =      SVREG+SVA                                               COMCSVR   421
                                         SV=X     =      SVREG+SVX                                               COMCSVR   422
                                         #SVR     ENDIF                                                          COMCSVR   423
                                                                                                                 COMCSVR   424
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSVR   425
                                                  QUAL   *                                                       COMCSVR   426
                                         SVR=     =      /COMCSVR/SVR=                                           COMCSVR   427
1       /  TSNAP  TEST MODE SNAP PACKAGE                              COMPASS 3.7-871.     24/05/02. 15.53.09.      PAGE   135
  
  
                                         RSR=     =      /COMCSVR/RSR=                                           COMCSVR   428
                                                                                                                 COMCSVR   429
                                         #SVR     IF     -DEF,#SVR                                               COMCSVR   430
                                         SV=B     =      /COMCSVR/SV=B                                           COMCSVR   431
                                         SV=A     =      /COMCSVR/SV=A                                           COMCSVR   432
                                         SV=X     =      /COMCSVR/SV=X                                           COMCSVR   433
                                         #SVR     ENDIF                                                          COMCSVR   434
                                         QUAL$    ENDIF                                                          COMCSVR   435
                                                  ENDX                                                           COMCSVR   436
                                         SVR=     SPACE  4,8                                                     TSNAP     981
                                         RSR      =      RSR=                                                    TSNAP     983
                                                  ENTRY  RSR                                                     TSNAP     984
                                         SVR      =      SVR=                                                    TSNAP     985
                                                  ENTRY  SVR                                                     TSNAP     986
                                                                                                                 TSNAP     987
                                         #SVR     IF     -DEF,#SVR   IF LOCAL REGISTER SAVE AREA                 TSNAP     988
                                                  ECHO   4,R=(B,A,X)                                             TSNAP     989
                                         SV_R     =      /COMCSVR/SVREG+/COMCSVR/SV_R                            TSNAP     990
                                         SAV.R    =      SV_R                                                    TSNAP     991
                                                  ENTRY  SV_R,SAV.R                                              TSNAP     992
                                                  ENTRY  SV=R                                                    TSNAP     993
                                         #SVR     ENDIF                                                          TSNAP     994
                                                                                                                 TSNAP     995
                                         #SNAP    ENDIF                                                          TSNAP     996
                                                                                                                 TSNAP     997
                                                  LIST   D                                                       TSNAP     998
             0                                    END                                                            TSNAP     999
  
                             55100B CM  STORAGE USED             7712 STATEMENTS      725 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            4.375 SECONDS           1 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        TEST            0   TSTEXT          1/19 F
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      551              IDENT  INIT 
                        551              FIN.OLR  END                END OF (1,0) WHEN OBJECT LIST + MAP OFF
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       542 
                                        LITERALS* LOCAL         542         7 
  
  
                                        ENTRY POINTS. 
  
                                        ADWT           513+           DLEN            52+           SIGN            35+ 
                                        DPTA           512+           DVT             12+           SST1            24+ 
                                        EQUA           532+           INDX            27+           SSTL            42+ 
                                        SCR            537+           INC             22+           SUBN            23+ 
                                        SAVE           500+           I.DIT            4+           TEMP             7+ 
                                        FCA              0+           LI              46+           TMP             51+ 
                                        DECA           520+           LL              20+           UL              21+ 
                                        HOLLSKL          0+           LPINF           14+           FORSKEL          0+ 
                                        SCR2           533+           MP              44+           OSTACK           0+ 
                                        TRVA           527+           NONANSI         11+           FWAASF         543+ 
                                        AGNK           531+           N.DIMS          55+           FWAARG         550+ 
                                        CALLTAG        531+           N.ITEM           2+           FWAREF         544+ 
                                        BIAS            17+           N.SUBS          40+           SVB6           545+ 
                                        CON1            24+           N.VSUB          41+           CDOTG          545+ 
                                        CON2            32+           ORD             53+           ESTACK         240+ 
                                        CLOSREP          1+           ORGI            42+           ASFERR         542+ 
                                        DA              43+           PL               3+           ASFARG         547+ 
                                        DATEMP           0+           REPFLAG          0+           CST.BOS        517+ 
                                        DATEMPL          7+           RL              45+           FTO             24+ 
                                        DIM             56+           SDPF            54+ 
                                        DIM.MUL         61+           SELIST          64+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.RND    F.LGO     BINIO     BT.IDN9   PSTACK    THRESH    CO.REW    MIN.TFL 
                                        CP.CARD   F.OUT     CDD       ERT       MLOP=X    W.TABS    CIO=      MVE 
                                        CP.PAGE   F.RMAP    REFIO     AFSA      MLOP=R    CP.NFLS   F.TABS    LSTWRKG 
                                        CP.PD     LOP=O     ANSI.SW   WNB=      WININIT   TL.PAGE   RSELECT   LSTMSTR 
                                        LCP.PS    LOP=R     RUN.X     O=RDIV    WINX      O.TTLA    LOP=M     L.MSTR
                                        FV.LGO    LOP=X     PPAD      O=RMULT   MLOP=O    TL.PNAM   FIN.OL    TIMER 
                                        F.IN      PLIMIT    WIN       O=RSUB    CP.CPU    CP.LSTF   FIN       L.CARD
                                        F.LF      TIME1     BT.IDNT   O=RADD    TL.CCOP   CP.PW     CP.MXFL 
  
  
  
  
                                                  IDENT  INIT                                                    INIT        2
                                         INIT     SECT   (TS MODE INITIALIZATION)                                FEAT126C  228
  
                                                                                                                 INIT        3
                                                  SST    A,EXIT.                                                 INIT        4
                                                  NOREF  A,EXIT.                                                 INIT        5
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     2
  
  
                                                                                                                 INIT        6
                                         B=INIT   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     INIT        7
                                                                                                                 INIT        8
                                                  ENTRY  ADWT,DPTA,EQUA,SCR,SAVE,FCA                             INIT        9
                                                  ENTRY  DECA,HOLLSKL,SCR2,TRVA,AGNK,CALLTAG,BIAS,CON1           FEAT155G  391
                                                  ENTRY  CON2,CLOSREP,DA,DATEMP,DATEMPL,DIM,DIM.MUL,DLEN,DVT     INIT       11
                                                  ENTRY  INDX,INC,I.DIT,LI,LL,LPINF,MP,NONANSI,N.DIMS,N.ITEM     INIT       12
                                                  ENTRY  N.SUBS,N.VSUB,ORD,ORGI,PL,REPFLAG,RL,SDPF,SELIST,SIGN   INIT       13
                                                  ENTRY  SST1,SSTL,SUBN,TEMP,TMP,UL,FORSKEL,OSTACK               INIT       14
                                                  ENTRY  FWAASF,FWAARG,FWAREF,SVB6,CDOTG,ESTACK,ASFERR           INIT       15
                                                  ENTRY  ASFARG,CST.BOS                                          INIT       16
                                                  ENTRY  FTO                                                     INIT       17
                                                                                                                 INIT       18
                                        *         IN FTN                                                         INIT       19
                                                  EXT    CO.RND,CP.CARD,CP.PAGE,CP.PD,LCP.PS                     FCCA422    50
                                                  EXT    FV.LGO,F.IN,F.LF,F.LGO,F.OUT,F.RMAP                     FEAT155E  302
                                                  EXT    LOP=O,LOP=R,LOP=X,PLIMIT,TIME1                          FEAT155E  303
                                                                                                                 INIT       22
                                        *         IN TABLES                                                      INIT       23
                                                  EXT    BINIO,CDD,REFIO                                         FEAT155G  392
                                                                                                                 INIT       25
                                        *         IN ERRORS                                                      INIT       26
                                                  EXT    ANSI.SW                                                 INIT       27
                                                                                                                 INIT       28
                                        *         IN BATCH                                                       INIT       29
                                                  EXT    RUN.X                                                   INIT       30
                                                                                                                 INIT       31
                                        *         IN HEADER                                                      INIT       32
                                                  EXT    PPAD                                                    INIT       33
                                                                                                                 INIT       34
                                        *         IN PIG                                                         INIT       35
                                                  EXT    WIN                                                     FCC0787   128
                                                                                                                 INIT       37
                                        *         IN END                                                         INIT       41
                                                  EXT    BT.IDNT,BT.IDN9                                         INIT       42
                                                                                                                 INIT       43
                                        *         IN ALLOC                                                       INIT       44
                                                  EXT    ERT                                                     INIT       45
                                                                                                                 INIT       46
                                        *         IN MAIN                                                        INIT       47
                                                  EXT    AFSA                                                    FEAT155G  393
                                                                                                                 INIT       49
                                 542 +   FIRSTLIT LIT    0LFIRSTLIT.                                             INIT       50
                                                                                                                 INIT       51
                                                                                                                 INIT       52
             0                           BSSX     BSS    0           BASE ADDRESS OF SCRATCH CELLS               INIT       53
                                   0     BSSX.    SET    0                                                       INIT       54
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     3
                                                                      FCA 
  
                                        **        FCA -  FINISHED WITH COMPASS ASSEMBLY.                         INIT       67
                                        *                                                                        INIT       68
                                        *         ENTRY  THE (1,0) HAS JUST BEEN RELOADED AFTER RETURNING FROM   INIT       69
                                        *                *COMPASS*, AND THE INPUT FILE IS NOT FINISHED.          INIT       70
                                        *                                                                        INIT       71
                                        *         EXIT   TO *RUN1* TO BEGIN NEXT PROGRAM-UNIT.                   INIT       72
                                        *                                                                        INIT       73
                                        *         CALLS  IMO                                                     INIT       74
                                                                                                                 INIT       75
                                                                                                                 INIT       76
             0                           FCA      BSS    0           ENTRY...                                    INIT       77
             0  0100000105 +                      RJ     IMO         INITIALIZE MASTER OVERLAY                   INIT       78
                                                                                                                 INIT       79
                                        **        SET UP (CP.CARD) THE WAY *RNC* WOULD HAVE.                     INIT       80
                                        *                INSURE THAT THE END-OF-LINE TERMINATOR IS EXACTLY 10    INIT       81
                                        *                ZERO CHARACTERS.                                        INIT       82
                                                                                                                 INIT       84
                                         #RM      IFNE   CP#RM,0                                                 INIT       85
                                                                                                                 INIT       86
                                        *         ZERO OUT UNUSED BITS IN LAST WORD OF CARD IMAGE.               INIT       87
                                        *                (CODE STOLEN FROM SCANNER.)                             INIT       88
                                                                                                                 INIT       89
                                                  SA2    =XF.IN      (X2) = ADDRESS OF INPUT FILE FIT            INIT       90
                                                  FETCH  X2,RL,X1    RETURNS RECORD LENGTH (CHARS.) IN X1        INIT       91
                                                  IX2    X1+X1                                                   INIT       92
                                                  SX3    X1+9                                                    INIT       93
                                                  SX1    52429       (2**19)/10 + 1                              INIT       94
                                                  IX3    X3*X1                                                   INIT       95
                                                  AX3    19          RECORD LENGTH (WORDS) IN X3                 INIT       96
                                                  LX1    X2,B1                                                   INIT       97
                                                  SB6    X3                                                      INIT       98
                                                  IX2    X2+X1       RECORD LENGTH (BITS)                        INIT       99
                                                  BX4    X3                                                      INIT      100
                                                  LX3    6                                                       INIT      101
                                                  SA1    =XCP.CARD-1+B6    LAST WORD OF LINE                     INIT      102
                                                  LX4    2                                                       INIT      103
                                                  IX3    X3-X4       LINE LINGTH (BITS)                          INIT      104
                                                  MX4    1                                                       INIT      105
                                                  IX3    X3-X2       UNUSED BIT COUNT                            INIT      106
                                                  SB2    X3-59                                                   INIT      107
                                                  AX4    -B2                                                     INIT      108
                                                  BX6    X4*X1       DISCARD UNUSED BITS                         INIT      109
                                                  AX4    6                                                       INIT      110
                                                  SA6    A1                                                      INIT      111
                                                  NZ     X4,FCA2     IF TERMINATOR AT LEAST 12 BITS LONG         INIT      112
                                                  MX7    0                                                       INIT      113
                                                  SA7    A6+B1       TERMINATE LINE WITH 60 ZERO BITS            INIT      114
                                         FCA2     BSS    0                                                       INIT      115
                                         #RM      ENDIF                                                          INIT      116
             1  5130000000 X                      SA3    CP.CARD                                                 INIT      117
                          43060                   MX0    -2*CHAR                                                 INIT      118
             2  15430                    FCA3     BX4    -X0*X3                                                  INIT      119
                     54331                        =A3    A3+1                                                    INIT      120
                          0314000002 +            NZ     X4,FCA3     IF NOT END OF IMAGE                         INIT      121
             3  55531                             =A5    A3-1                                                    INIT      122
                     64630                        SB6    A3                                                      INIT      123
                          13666                   BX6    0                                                       INIT      124
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     4
                                                                      FCA 
  
                               43773              MX7    -1                                                      INIT      125
             4  0315000010 +                      NZ     X5,FCA4     IF NOT FULL WORD END-OF-LINE MARK           INIT      126
                          55451                   =A4    A5-1                                                    INIT      127
                               43366              MX3    -CHAR                                                   INIT      128
             5  67661                             =B6    B6-1                                                    INIT      129
                     15543                        BX5    -X3*X4                                                  INIT      130
                          0315000014 +            NZ     X5,FCA5     IF NOT 11-CHARACTER END-OF-LINE             INIT      131
             6  7170000055                        SX7    1R                                                      INIT      132
                          12647                   BX6    X4+X7       CHANGE TO 10-CHAR E-O-L                     INIT      133
                               54640              SA6    A4                                                      INIT      134
             7  0400000014 +                      EQ     FCA5                                                    INIT      135
                                                                                                                 INIT      136
            10  36457                    FCA4     IX4    X5+X7       LOCATE TRAILING BIT                         INIT      137
                     5130000543 +                 SA3    =40404040404040404040B                                  INIT      138
                               56660              SA6    B6          MARK END OF IMAGE                           INIT      139
            11  15745                             BX7    -X5*X4                                                  INIT      140
                     6170000067                   =B7    60-CHAR+1                                               INIT      141
                               11437              BX4    X3*X7       40B WHERE TRAILING 00B WERE                 INIT      142
            12  22674                             LX6    X4,B7                                                   INIT      143
                     5130000544 +                 SA3    =10H                                                    FCC1328X  542
                               37746              IX7    X4-X6                                                   INIT      144
            13  12447                             BX4    X4+X7       77B WHERE TRAILING 00B WERE                 INIT      145
                     11643                        BX6    X4*X3                                                   INIT      147
                          36756                   IX7    X5+X6       APPEND TRAILING BLANKS                      INIT      148
                               54750              SA7    A5                                                      INIT      149
                                                                                                                 INIT      150
            14  6170777776 X             FCA5     SB7    =XCP.CARD-1                                             FCC1328X  543
                          77767                   SX7    B6-B7       (X7) = NR OF WORDS IN SOURCE LINE IMAGE     FCC1328X  544
            15  5170000000 X                      SA7    =XL.CARD                                                FCC1328X  545
                                                                                                                 INIT      153
                          5110000000 X            SA1    FV.LGO                                                  INIT      154
            16  0301000022 +                      ZR     X1,FCA6     IF BINARY SUPPRESSED                        INIT      155
                          7120000000 X            SETFIL FILE=F.LGO,MODE=RESET                                   INIT      156
                                                                                                                 INIT      157
                                                  IFNE   CP#RM,7,1                                               INIT      158
            21  7120000000 X                      RECALL F.LGO                                                   INIT      159
                                                                                                                 INIT      160
                                                                                                                 INIT      161
            22  0100000000 X             FCA6     RJ     =XTIMER                                                 INIT      162
            23  5160000000 X                      SA6    =XTIME1                                                 INIT      163
                          0400000000 X            EQ     RUN.X       EXIT..                                      INIT      164
  
  
  
  
                                        **        FTO - FIRST TIME ONLY CODE.                                    INIT      166
                                        *                                                                        INIT      167
                                        *         ACTUALLY PART OF PRIMARY INITIALIZATION. SETS UP FIT/FET,      INIT      168
                                        *         OPENS FILES, AND OTHER THINGS THAT CANNOT BE DONE BY CODE      INIT      169
                                        *         WHICH RESIDES IN A BUFFER.                                     INIT      170
                                                                                                                 INIT      171
                                                                                                                 INIT      172
            24  0400400024 +             FTO      SUBR               ENTRY/EXIT..                                INIT      173
                                                                                                                 FEAT155H  117
                                        *         INITIALIZE WORKING COPY OF LISTING FLAGS.                      FEAT155H  118
                                                                                                                 FEAT155H  119
            25  7110000000 X                      MVE    =XL.MSTR,=XLSTMSTR,=XLSTWRKG                            FEAT155H  120
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     5
                                                                      RUN.0 
  
                                                                                                                 FEAT155H  121
            27  7160000000 X                      SX6    =XMIN.TFL                                               FCC0813   180
                          5160000000 X            SA6    =XCP.MXFL   INITIALIZE MAX FL USED                      FCC0813   181
            30  7110000000 X                      SX1    =XFIN       LWA+1 OF (1,0) OVERLAY                      FEAT155G  394
                          5120000000 X            SA2    LOP=O                                                   FEAT155G  395
            31  0332000034 +                      MI     X2,FTO10    IF OBJECT LIST ON                           FEAT155G  396
                          7110000000 X            SX1    =XFIN.OL    TRASH LIST CODE                             FEAT155G  397
            32  5120000000 X                      SA2    =XLOP=M                                                 FEAT155G  398
                          0332000034 +            MI     X2,FTO10    IF MAP ON                                   FEAT155G  399
            33  7110000551 +                      SX1    =XFIN.OLR   TRASH LIST AND MAP CODE                     FEAT155G  400
            34  63310                    FTO10    SB3    X1                                                      FEAT155G  401
                     5120000000 X                 SA2    =XRSELECT                                               INIT      176
            35  0322000037 +                      PL     X2,FTO1     IF SHORT OR NO REF MAP                      INIT      177
                          7120000000 X            SETFIL FILE=F.RMAP,MODE=INIT,FWA=X1                            INIT      178
            37  5110000000 X             FTO1     SA1    FV.LGO                                                  INIT      179
                          5120000000 X            SA2    LOP=O                                                   FCC1608X   28
            40  0311000041 +                      NZ     X1,FTO1.5   IF BINARY OUTPUT                            FCC1608X   29
                          0322000047 +            PL     X2,FTO2     IF LONG FILE NOT USED                       FCC1608X   30
            41                           FTO1.5   BSS                                                            FCC1608X   31
            41  7120000000 X                      SETFIL FILE=F.LF,MODE=INIT,FWA=B3                              INIT      182
            43  5110000000 X                      SA1    FV.LGO                                                  FCC1608X   32
                          0301000047 +            ZR     X1,FTO2     IF NO BINARY OUTPUT                         FCC1608X   33
            44  7120000000 X                      SETFIL FILE=F.LGO,MODE=INIT,FWA=B3                             INIT      192
            46  66320                             SB3    B2          FWA OF LGO                                  FCC1608X   34
            47                           FTO2     BSS                                                            FCC1608X   35
            47  76630                             SX6    B3                                                      FCC1608X   36
                     5160000000 X                 SA6    =XF.TABS    FWA OF TABLES                               FCC1608X   37
                                                                                                                 INIT      200
                                        *         OPEN IN AND OUT FILES.  OPEN LGO IF NOT DESELECTED BY          INIT      201
                                        *         CONTROL CARD OPTION (B=0).                                     INIT      202
                                                                                                                 INIT      203
            50  7120000000 X                      OPEN   F.OUT,NR,RCL                                            FCC1200    29
                                                                                                                 FCC1200    30
                                         #RM      IFNE   CP#RM,0                                                 INIT      204
                                                  OPEN   F.IN,,RRCL                                              FCCA580    12
                                                  STORE  X2,MRL=100D                                             INIT      206
                                                  SA1    FV.LGO                                                  INIT      208
                                                  ZR     X1,FTO25    IF B=0 SELECTED                             INIT      209
                                                  OPEN   F.LGO,,RCL                                              FCCA580    13
                                                                                                                 INIT      211
                                         #RM      ENDIF                                                          INIT      212
                                                                                                                 FEAT126A 1023
                                        *         IF *REW* PARAMETER IS SELECTED, REWIND INPUT AND LGO FILES.    INIT      213
            52  5110000000 X             FTO25    SA1    =XCO.REW                                                INIT      214
                          0321000060 +            PL     X1,FTO3     IF *REW* NOT SELECTED                       INIT      215
            53  7120000000 X                      REWIND F.IN                                                    INIT      216
            55  5110000000 X                      SA1    FV.LGO                                                  INIT      217
                          0301000060 +            ZR     X1,FTO3     IF B=0 SELECTED                             INIT      218
            56  7120000000 X                      REWIND F.LGO                                                   INIT      219
            60                           FTO3     BSS    0                                                       INIT      220
                                                                                                                 FEAT126A 1024
                                         #RM      IFEQ   CP#RM,0                                                 INIT      221
            60  7120000000 X                      READ   F.IN        START UP INPUT BUFFER                       INIT      222
                                         #RM      ENDIF                                                          INIT      223
                                                                                                                 INIT      224
            62  0100000105 +                      RJ     IMO         INITIALIZE MAIN OVERLAY                     FCC1658X    6
                                                                                                                 INIT      226
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     6
                                                                      RUN.0 
  
            63  5120000000 X                      SA2    =XCP.PW                                                 CP139FC   200
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1026
                          0312000070 +            NZ     X2,FTO5     IF PW OPTION ON CONTROL CARD                FEAT126A 1027
            64  5110000001 X                      SA1    F.OUT+I.DT  PICK UP DEVICE TYPE WORD                    FEAT126A 1028
                                         #OS2     IFEQ   .OS,1       IF OPERATING SYSTEM IS NOS                  FCC0859     5
                          21160                   AX1    48          GET DEVICE TYPE FIELD                       FCC0859     6
            65  6221775353                        SB2    X1-2RTT                                                 FCC0859     7
                          0520000104 +            NZ     B2,FTO9     IF NOT A TERMINAL FILE                      FCC1658X    7
            66  7120000107                        SX2    PW.TTY-1    ADJUST FOR CARRIAGE CONTROL CHARACTER       FCC0859     9
                                         #OS2     ELSE                                                           FCC0859    10
                                                  AX1    54                                                      FCC0859    11
                                                  SB2    X1+16B                                                  FCC0859    12
                                                  NZ     B2,FTO9     IF NOT A TERMINAL FILE                      FCC1658X    8
                                                  SX2    PW.TTY                                                  FCC0859    14
                                         #OS2     ENDIF                                                          FCC0859    15
                                                                                                                 FCC1658X    9
                          43700                   MX7    0                                                       FCC1658X   10
            67  5170000000 X                      SA7    CP.PD       CLEAR OUT PAGE DENSITY CELL                 FCC1658X   11
                          0400000071 +            EQ     FTO6                                                    FEAT126A 1038
                                                                                                                 FEAT126A 1039
                                         #OS      ELSE                                                           FEAT126A 1040
                                                  ZR     X2,FTO9     IF NOT *PW* MODE                            FCC1658X   12
                                         #OS      ENDIF                                                          FEAT126A 1042
                                                                                                                 FEAT126A 1043
            70  7212777601               FTO5     SX1    X2-126                                                  FEAT126A 1044
                          0321000103 +            PL     X1,FTO8     IF PW .GE. 126                              FEAT126A 1045
            71  5130000000 X             FTO6     SA3    =XCP.LSTF                                               FEAT126A 1046
                          13777                   BX7    0                                                       FCC1328X  546
                               43014              MX0    2*CHAR                                                  FCC1328X  547
            72  5110000001 X                      SA1    =XTL.PNAM+1                                             FEAT126A 1048
                          0303000075 +            ZR     X3,FTO7     IF L=0                                      FEAT126A 1049
            73  5110777776 X                      SA1    =XO.TTLA-1                                              FEAT126A 1050
                          5140000545 +            SA4    =2L1        SET FOR PAGE EJECT                          FEAT126A 1051
            74  54311                             =A3    A1+1                                                    FEAT126A 1052
                     15530                        BX5    -X0*X3                                                  FEAT126A 1054
                          12654                   BX6    X5+X4                                                   FEAT126A 1055
                               54630              SA6    A3          ADD CARRIAGE CONTROL TO O.TTLA              FEAT126A 1056
            75  54710                    FTO7     SA7    A1          ADD ZERO TERMINATOR                         FEAT126A 1057
                     73221                        SX2    X2+B1       ADD 1 CHARACTER FOR CARRIAGE CONTROL        FCC0859    16
                          7100146315              SX0    52429                                                   FEAT126A 1066
            76  5110777776 X                      SA1    =XTL.PAGE-1 (X1) = ......PAGE   (.=BLANK(55B))          FCC1328X  548
                          42320                   IX3    X2*X0                                                   FEAT126A 1067
                               21323              AX3    19          (X3) = [PAGE WIDTH/10]                      FEAT126A 1068
            77  7140000012                        SX4    10                                                      FEAT126A 1069
                          42543                   IX5    X4*X3                                                   FEAT126A 1070
                               20144              LX1    10*CHAR-4*CHAR                                          FCC1328X  549
           100  37225                             IX2    X2-X5       (X2) = REMAINDER AFTER DIVIDE BY 10         FEAT126A 1071
                     7140000006                   SX4    6                                                       FEAT126A 1072
                               42224              IX2    X2*X4       (X2) = REMAINDER IN BITS                    FEAT126A 1073
           101  10711                             BX7    X1          (X7) = PAGE......   (.=BLANK(55B))          FCC1328X  550
                     20236                        LX2    30                                                      FEAT126A 1074
                          12632                   BX6    X3+X2                                                   FEAT126A 1075
                               54710              SA7    A1                                                      FCC1328X  551
           102  54620                             SA6    A2          CP.PW = 30/CHARACTERS,30/WORDS              CP139FC   201
                     0400000104 +                 EQ     FTO9                                                    FCC1658X   13
                                                                                                                 FEAT126A 1078
           103  43600                    FTO8     MX6    0                                                       FEAT126A 1079
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     7
                                                                      RUN.0 
  
                     54620                        SA6    A2          TURN OFF PW MODE                            FEAT126A 1080
                                                                                                                 FCC1658X   14
           104  0400000024 +             FTO9     EQ     EXIT.                                                   FCCA410    24
  
  
  
  
                                        **        IMO -  INITIALIZE MAIN OVERLAY.                                INIT      244
                                        *                                                                        INIT      245
                                        *         ENTRY  TO (1,0) OVERLAY -- SECONDARY INITIALIZATION.           INIT      246
                                        *         EXIT   (1,O) CELLS SET UP.                                     INIT      247
                                                                                                                 INIT      248
                                                                                                                 INIT      249
           105  0400400105 +             IMO      SUBR               ENTRY/EXIT...                               INIT      250
           106  5110000000 X                      SA1    =XF.TABS    FWA OF TABLES                               FEAT155D  131
                          5120000000 X            SA2    =XCP.NFLS   CM FIELD LENGTH                             FEAT155D  132
           107  37621                             IX6    X2-X1                                                   FEAT155D  133
                     5160000000 X                 SA6    =XW.TABS    WIDTH OF TABLE SPACE                        FEAT155D  134
                               21604              AX6    FLSLOP                                                  FEAT155D  135
           110  5160000000 X                      SA6    =XTHRESH    GIVE ALLOC ENOUGH ELBOW ROOM                FEAT155D  136
                          5110000000 X            SA1    =XTL.CCOP                                               INIT      251
           111  54211                             SA2    A1+B1                                                   INIT      252
                     10611                        BX6    X1          SET C.C. OPTIONS INTO 77-TABLE              INIT      253
                          22702                   LX7    X2                                                      INIT      254
           112  5140000000 X                      SA4    =XCP.CPU                                                INIT      255
                          5110000546 +            SA1    =8R CMODEL                                              INIT      256
           113  7150000000 X                      SX5    BT.IDN9                                                 INIT      257
                          5265000000 X            SA6    X5+BT.IDNT                                              INIT      258
           114  5150000000 X                      SA5    CP.PAGE                                                 INIT      259
                          0325000120 +            PL     X5,IMO2     IF PAGE PROPAGATION                         INIT      260
           115  20501                             LX5    1                                                       FCCA473    41
                     0325000117 +                 PL     X5,IMO1     IF CP.PAGE IS NOT SET                       FCCA473    42
                               43502              MX5    2                                                       FCCA473    43
           116  0400000120 +                      EQ     IMO2                                                    FCCA473    44
           117  43501                    IMO1     MX5    1                                                       FCCA473    45
           120  54761                    IMO2     SA7    A6+B1                                                   INIT      262
                     10655                        BX6    X5                                                      INIT      264
                          5160000000 X            SA6    CP.PAGE                                                 INIT      266
                                                                                                                 INIT      268
           121  5140000000 X                      SA4    FV.LGO                                                  INIT      269
                          5110000000 X            SA1    =XMLOP=O                                                FCC1608X   38
           122  43673                             MX6    -1                                                      INIT      270
                     5120000000 X                 SA2    WIN                                                     FCC1608X   39
           123  0314000125 +                      NZ     X4,IMO4     IF BINARY NOT SUPPRESSED (B.NE.0)           FEAT126BA   8
                          5160000000 X            SA6    BINIO       KEEP MANAGER AWAY FROM INTERMEDIATE FILE    INIT      272
           124  0331000125 +                      MI     X1,IMO4     IF OBJECT LIST CHOSEN                       FCC1608X   40
                          5120000000 X            SA2    =XWINX                                                  FCC1608X   41
           125  10722                    IMO4     BX7    X2                                                      FCC1608X   42
                     5170000000 X                 SA7    =XWININIT   POSSIBLY MAKE IMMEDIATE RETURN              FCC1608X   43
                                                                                                                 INIT      287
           126  5110000000 X                      SA1    =XMLOP=R                                                FCC1608X   44
                          7160000270              SX6    0270B       *JP B7*                                     INIT      289
           127  0331000131 +                      MI     X1,IMO5     IF REF MAP SELECTED                         INIT      290
                          20660                   LX6    48                                                      INIT      291
                               77701              =X7    -1                                                      INIT      292
           130  5160000000 X                      SA6    ERT         WIRE OFF X-REF                              INIT      293
                          5170000000 X            SA7    REFIO       KEEP MANAGER AWAY FROM REF-TABLE            INIT      296
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     8
                                                                      IMO 
  
                                                                                                                 INIT      298
           131  5110000000 X             IMO5     SA1    =XMLOP=X                                                FEAT155HA   6
                          5120000000 X            SA2    ANSI.SW                                                 INIT      300
           132  0321000134 +                      PL     X1,IMO6     IF ANSI-LIST OFF                            INIT      301
                          20236                   LX2    30                                                      INIT      302
                               10722              BX7    X2          ENABLE ANSI LISTING                         INIT      303
           133  54720                             SA7    A2                                                      INIT      304
                                                                                                                 INIT      305
           134  5110000000 X             IMO6     SA1    PLIMIT                                                  INIT      306
                          0100000000 X            RJ     CDD         CONVERT DECIMAL (PRINT-LIMIT) TO DISPLAY    INIT      307
           135  6122777703                        SB2    B2-10*CHAR                                              INIT      308
                          23126                   AX1    X6,B2       LEFT JUSTIFY                                INIT      309
           136  5130000547 +                      SA3    =6LQ2NTRY                                               F162FTNA  807
                          20122                   LX1    3*CHAR      4567---123                                  INIT      311
                               43044              MX0    6*CHAR                                                  INIT      312
           137  15410                             BX4    -X0*X1      //////-123                                  INIT      313
                     36734                        IX7    X3+X4       Q8NTRY-123                                  INIT      314
                          11601                   BX6    X0*X1       4567--                                      INIT      315
           140  5170777776 X                      SA7    PPAD-1                                                  INIT      316
                          54671                   =A6    A7+1                                                    INIT      317
                                                                                                                 INIT      318
                                                                                                                 INIT      319
                                        **        POST REPRIEVE REQUEST.                                         INIT      320
                                        *                                                                        INIT      321
                                         .T       IFNE   TEST,0                                                  INIT      322
                                                  SA1    RA.SSW                                                  INIT      323
                                                  LX1    59-11                                                   INIT      324
                                                  MI     X1,IMO62    IF SENSE SWITCH 6 ON, SKIP *RPV* REQUEST    INIT      325
                                                                                                                 INIT      326
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1082
                                                  SYSTEM RPV,RCL,=XXJP,37BS6                                     INIT      328
                                         #OS      ELSE                                                           INIT      329
                                                  REPRIEVE  =XXJP    POST REPRIEVE REQUEST                       INIT      330
                                         #OS      ENDIF                                                          INIT      331
                                         .T       ENDIF                                                          INIT      332
                                                                                                                 INIT      333
           141                           IMO62    BSS    0                                                       INIT      334
                                        *         IF ROUND IS SELECTED FOR AN OPERATOR, PLUG APPROPRIATE         INIT      335
                                        *         CODE SKELETON ADDRESS IN PSTACK ENTRY FOR THAT OPERATOR.       INIT      336
                                                                                                                 INIT      337
           141  5110000000 X                      SA1    =XCO.RND    ROUND CONTROL CARD SETTING                  INIT      338
                          0301000105 +            ZR     X1,EXIT.    IF NO OPERATIONS TO BE ROUNDED.             INIT      339
           142  43222                             MX2    L.JPAD                                                  INIT      340
                     20145                        LX1    1R+                                                     INIT      341
                          0321000145 +            PL     X1,IMO7     IF + NOT SELECTED                           INIT      342
           143  5130000000 X                      SA3    =XPSTACK                                                INIT      343
                          7140000000 X            SX4    =XO=RADD                                                INIT      344
           144  15732                             BX7    -X2*X3                                                  INIT      345
                     20452                        LX4    P.JPAD                                                  INIT      346
                          12774                   BX7    X7+X4                                                   INIT      347
                               54730              SA7    A3                                                      INIT      348
           145  20101                    IMO7     LX1    1R--1R+                                                 INIT      349
                     0321000150 +                 PL     X1,IMO8     IF - NOT SELECTED                           INIT      350
           146  5130000001 X                      SA3    PSTACK+O.MIN-O.PL                                       INIT      351
                          7140000000 X            SX4    =XO=RSUB                                                INIT      352
           147  15732                             BX7    -X2*X3                                                  INIT      353
                     20452                        LX4    P.JPAD                                                  INIT      354
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE     9
                                                                      IMO 
  
                          12774                   BX7    X7+X4                                                   INIT      355
                               54730              SA7    A3                                                      INIT      356
           150  20101                    IMO8     LX1    1R*-1R-                                                 INIT      357
                     0321000153 +                 PL     X1,IMO9     IF * NOT SELECTED                           INIT      358
           151  5130000002 X                      SA3    PSTACK+O.MULT-O.PL                                      INIT      359
                          7140000000 X            SX4    =XO=RMULT                                               INIT      360
           152  15732                             BX7    -X2*X3                                                  INIT      361
                     20452                        LX4    P.JPAD                                                  INIT      362
                          12774                   BX7    X7+X4                                                   INIT      363
                               54730              SA7    A3                                                      INIT      364
           153  20101                    IMO9     LX1    1R/-1R*                                                 INIT      365
                     0321000105 +                 PL     X1,EXIT.    IF / NOT SELECTED                           INIT      366
           154  5130000003 X                      SA3    PSTACK+O.DIV-O.PL                                       INIT      367
                          7140000000 X            SX4    =XO=RDIV                                                INIT      368
           155  15732                             BX7    -X2*X3                                                  INIT      369
                     20452                        LX4    P.JPAD                                                  INIT      370
                          12774                   BX7    X7+X4                                                   INIT      371
                               54730              SA7    A3                                                      INIT      372
                                                                                                                 INIT      373
           156  0400000105 +                      EQ     EXIT.                                                   INIT      374
                                                                                                                 INIT      375
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    10
        FA=SET - SET FILE TABLES
  
           156                                    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
           157  0400400157 +             FA=SET   JP     *+4S15      ** ENTRY/EXIT **                            FA=SET     35
           160  53120                             SA1    X2          (X1) = FET WORD 1                           FA=SET     36
                     20173                        LX1    59-0                                                    FA=SET     37
                          0331000162 +            MI     X1,SET2     IF FILE QUIET                               FA=SET     38
           161  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
           162  5212000005               SET2     SA1    X2+I.CBSET                                              FA=SET     44
                          77323                   SX3    B2-B3                                                   FA=SET     45
                               21373              AX3    59D                                                     FA=SET     46
           163  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
           164  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
           165  36773                             IX7    X7+X3       (X7) = BUFFER LWA+1                         FA=SET     55
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    11
        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
           166  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
           167  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
           170  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
           171  54771                             SA7    A7+B1       CBSET                                       FA=SET     72
                     0400000157 +                 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       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    12
        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                                            FEAT126C   26
                                                  SX7    B3-B2       (X7) = HOLDING BUFFER LENGTH (WORDS)        FA=SET    141
                                                  IX6    X7+X7                                                   FA=SET    142
                                                  LX7    3                                                       FA=SET    143
                                                  IX6    X6+X7       (X6) = LENGTH (CHARACTERS)                  FA=SET    144
                                                  STORE  X2,PTL=X6,X1                                            FEAT126C   27
                                                  JP     FA=SET      EXIT                                        FA=SET    148
                                                                                                                 FA=SET    149
                                         SET3     MX1    0           DUMMY LENGTH = 0 TO FORCE FWA = LWA+1       FA=SET    150
                                                  RJ     SAR                                                     FA=SET    151
                                                  JP     FA=SET      EXIT                                        FA=SET    152
                                         SAR      SPACE  4,8                                                     FA=SET    153
                                        **        SAR - SET ADDRESSES IN REGISTERS.                              FA=SET    154
                                        *                                                                        FA=SET    155
                                        *                                                                        FA=SET    156
                                        *         ENTRY  (X1) = LEN * 1S18                                       FA=SET    157
                                        *                (B2) = FWA OR 0                                         FA=SET    158
                                        *                (B3) = 0 OR LWA+1                                       FA=SET    159
                                        *                (B4) = +1 IF FWA-UP MODE AND (B2) = FWA                 FA=SET    160
                                        *                     = -1 IF LWA-DOWN MODE AND (B3) = LWA+1             FA=SET    161
                                        *                                                                        FA=SET    162
                                        *         EXIT   (X1) = LEN * 1S18  (LOWER 18 BITS CLEAR)                FA=SET    163
                                        *                (X6) = FWA                                              FA=SET    164
                                        *                (B2) = FWA                                              FA=SET    165
                                        *                (B3) = LWA+1                                            FA=SET    166
                                        *                                                                        FA=SET    167
                                        *         USES   X - 1, 6                                                FA=SET    168
                                        *                A - NONE                                                FA=SET    169
                                        *                B - 2, 3                                                FA=SET    170
                                        *                                                                        FA=SET    171
                                        *         CALLS  NONE                                                    FA=SET    172
                                                                                                                 FA=SET    173
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    13
        FA=SET - SET FILE TABLES                                      SET                 FA=SET
  
                                                                                                                 FA=SET    174
                                         SAR2     BX6    -X1         (X6) = - BUFFER LENGTH                      FA=SET    175
                                                  LX1    18D                                                     FA=SET    176
                                                  SB2    X6+B3       (B2) = BUFFER FWA                           FA=SET    177
                                                  SX6    X6+B3                                                   FA=SET    178
                                                                                                                 FA=SET    179
                                         SAR      JP     *+4S15      ** ENTRY/EXIT **                            FA=SET    180
                                                  AX1    18D                                                     FA=SET    181
                                                  MI     B4,SAR2     IF LWA-DOWN MODE                            FA=SET    182
                                                  SB3    X1+B2       (B3) = BUFFER LWA+1                         FA=SET    183
                                                  LX1    18D                                                     FA=SET    184
                                                  SX6    B2                                                      FA=SET    185
                                                  EQ     SAR         EXIT                                        FA=SET    186
                                                  SPACE  4                                                       FA=SET    187
                                         #RM      ENDIF                                                          FA=SET    188
                                                                                                                 FA=SET    189
                                                                                                                 FA=SET    190
                                                  IF     -DEF,QUAL$,2                                            FA=SET    191
                                                  QUAL   *                                                       FA=SET    192
                                 157 +   FA=SET   EQU    /FA=SET/FA=SET                                          FA=SET    193
                                                  ENDX                                                           FA=SET    194
                                                                                                                 INIT      377
           172                           ENDCODE  BSS    0                                                       INIT      378
                                 550 +   LASTLIT  LIT    0LLASTLIT.                                              INIT      379
                                                  LIST   L,B,D,R     END OF LISTING                              INIT      380
  
  
  
  
                                        **        BSSX - ASSIGN STORAGE AT END OF PROGRAM                        INIT      382
                                        *                                                                        INIT      383
                                        * SYM     BSSX   LEN                                                     INIT      384
                                        *                                                                        INIT      385
                                        *         *SYM* = SYMBOL TO BE DEFINED.                                  INIT      386
                                        *         *LEN* = NUMBER OF WORDS TO RESERVE.                            INIT      387
                                        *                                                                        INIT      388
                                                                                                                 INIT      389
                                                                                                                 INIT      390
                                                  MACRO  BSSX,SYM,LEN                                            INIT      391
                                         A        OCTMIC BSSX.                                                   INIT      392
                                         B        MICRO  1,8,,SYM       ,                                        INIT      393
                                         BSSX     RMT=   ("B" EQU      BSSX+"A"B)                                INIT      394
                                         BSSX.    SET    BSSX.+LEN                                               INIT      395
                                         BSSX     ENDM                                                           INIT      396
                                                                                                                 INIT      397
                                                                                                                 INIT      398
                                        **        EQUX - DEFERRED EQUIVALENCE MACRO                              INIT      399
                                        *                                                                        INIT      400
                                                                                                                 INIT      401
                                                                                                                 INIT      402
                                                  MACRO  EQUX,LOC,VAL                                            INIT      403
                                         B        MICRO  1,8,,LOC       ,                                        INIT      404
                                         EQUX     RMT=   ("B" EQU    VAL)                                        INIT      405
                                         EQUX     ENDM                                                           INIT      406
                                                                                                                 INIT      407
                                                                                                                 INIT      408
                                         OSTACK   BSSX   N.OPSTK     OPERATOR STACK                              INIT      409
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    14
        FA=SET - SET FILE TABLES                                      BUFFERS 
  
                                         ESTACK   BSSX   N.ELSTK     ELEMENT STACK                               INIT      410
                                         SAVE     BSSX   10          SAVE REGISTERS (PWE)                        FEAT126B  930
                                         DPTA     BSSX   1           SAVE CELL FOR (X6)                          INIT      412
                                         ADWT     BSSX   4           TEMPORARY STORAGE FOR TABLE SECTION.        INIT      413
                                         CST.BOS  BSSX   1           LOCAL BEGINNING OF STATEMENT                INIT      414
                                         DECA     BSSX   7           SAVE / RESTORE REGISTERS FOR *DEC*          INIT      416
           172                           HOLLSKL  EQUX   OSTACK      SCRATCH AREA FOR BUILDING HOLLERITH CONSTS  INIT      417
                                         TRVA     BSSX   2           SAVE OF *X6* AND *X7* IF CR REQUESTED       INIT      418
           172                           AGNK     EQUX   CALLTAG                                                 INIT      419
                                         CALLTAG  BSSX   1           TAG OF ROUTINE TO BE *CALL*ED (PASS *2*)    INIT      420
                                                                                                                 INIT      421
                                        *         THESE EQUATES ARE USED BY THE DATA PROCESSOR                   INIT      422
                                                                                                                 INIT      423
                                                                                                                 INIT      424
                                        **        TEMP MACRO - USES EQUX REMOTE AREA                             INIT      425
                                        *                                                                        INIT      426
                                                                                                                 INIT      427
                                                  MACRO  TEMP,LABEL,LEN                                          INIT      428
                                         A        MICRO  1,8,/LABEL       /                                      INIT      429
                                         EQUX     RMT=   ("A" EQU    "B"+"T"    LEN)                             INIT      430
                                         T        DECMIC "T"+LEN                                                 INIT      431
                                                  ENDM                                                           INIT      432
                                                                                                                 INIT      433
                                         T        MICRO                                                          INIT      434
                                         B        MICRO  1,, OSTACK                                              INIT      435
                                                                                                                 INIT      436
           172                           DATEMP   TEMP   0           FWA OF CONTROL CELLS FOR A LIST             INIT      437
           172                           REPFLAG  TEMP   1           REP FLAG                                    INIT      438
           172                           CLOSREP  TEMP   1           CLOSE REP FLAG                              INIT      439
           172                           N.ITEM   TEMP   1           NUMBER OF DATA ITEMS                        INIT      440
           172                           PL       TEMP   1           PAREN LEVEL                                 INIT      441
           172                           I.DIT    TEMP   3           1 - ORDINAL OF NEXT ITEM IN TI.DAT          INIT      442
                                                                     2 - NUM OF ITEMS REMAINING IN REP LIST      INIT      443
                                                                     3 - ORDINAL OF 1ST DATA ITEM IN REP LIST    INIT      444
           172                           DATEMPL  TEMP   0                                                       INIT      445
           172                           TEMP     TEMP   2           SOME TEMPORARIES                            INIT      446
           172                           NONANSI  TEMP   1           FLAG NON-ANSI USAGES                        INIT      447
           172                           DVT      TEMP   2           DVT WORDS - SET BY PDV                      INIT      448
           172                           LPINF    TEMP   3           DO LOOP INDEX INFO                          INIT      449
           172                           BIAS     TEMP   1           ACCUMULATED BIAS DUE TO SUBSC CALC          INIT      450
           172                           LL       TEMP   1           LOWER LIMIT                                 INIT      451
           172                           UL       TEMP   1           UPPER LIMIT                                 INIT      452
           172                           INC      TEMP   1           INCREMENT                                   INIT      453
           172                           SUBN     TEMP   1           NUMBER OF SUBSCRIPTS IN ARRAY               INIT      454
           172                           SST1     TEMP   0                                                       INIT      455
           172                           CON1     TEMP   MAX.DIM     CON1(I) - CONSTANT MULTIPLIERS              INIT      456
           172                           INDX     TEMP   MAX.DIM     IVAR(I)                                     INIT      457
           172                           CON2     TEMP   MAX.DIM     CON2(I) - CONSTANT ADDENDS                  INIT      458
           172                           SIGN     TEMP   MAX.DIM     SIGN(I)                                     INIT      459
           172                           N.SUBS   TEMP   1           NUMBER OF SUBSCRIPTS                        INIT      460
           172                           N.VSUB   TEMP   1           NUMBER OF VARIABLE SUBSCRIPTS               INIT      461
           172                           SSTL     TEMP   0                                                       INIT      462
           172                           ORGI     TEMP   1           ORG COUNTER INCREMENT                       INIT      463
           172                           DA       TEMP   1           ADDRESS DIFFERENCE                          INIT      464
           172                           MP       TEMP   1           MULTIPLIER ( DA*RL )                        INIT      465
           172                           RL       TEMP   1           NUMBER OF ITEMS IN A REPLIST                INIT      466
           172                           LI       TEMP   3           TEMPORARIES USED AS LOOP INDICES            INIT      467
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    15
        FA=SET - SET FILE TABLES                                      BUFFERS 
  
           172                           TMP      TEMP   1           2 TEMPORARIES                               INIT      468
           172                           DLEN     TEMP   1                                                       INIT      469
           172                           ORD      TEMP   1           VALUE OF SYMTAB ORDINAL                     INIT      470
           172                           SDPF     TEMP   1           0 IF SINGLE PRECISION, 1 IF DOUBLE          INIT      471
           172                           N.DIMS   TEMP   1           NUMBER OF DIMENSIONS                        INIT      472
           172                           DIM      TEMP   MAX.DIM     DIM1, DIM2, ....,DIM(N)                     INIT      473
           172                           DIM.MUL  TEMP   MAX.DIM     1 , DIM1 , DIM1*DIM2                        INIT      474
           172                           SELIST   TEMP   1           ** BEGINNING OF *SB*                        INIT      475
                                                                                                                 INIT      476
                                        *         END OF DATA EQUATES                                            INIT      477
                                                                                                                 INIT      478
                                         EQUA     BSSX   1           TEMP FOR ROOT MEMBER + OFFSET               INIT      479
           172                           FORSKEL  EQUX   OSTACK      SKELETON AREA FOR PACKING FORMAT            INIT      480
                                         SCR2     BSSX   MAX.DIM+1   GENERAL SCRATCH AREA 2                      INIT      481
                                         SCR      BSSX   10          GENERAL SCRATCH AREA. NEVER TO BE USED BY   INIT      482
                                                                     TABLE SECTION. SHOULD BE USED ONLY BY LOCAL INIT      483
                                                                     ROUTINES.....                               INIT      484
           172                           ASFERR   EQUX   SCR+3       ERROR IN PROCESSING *ASF* REFERENCE         INIT      485
           172                           FWAASF   EQUX   SCR+4       FWA OF ASF RELATIVE TO TT.ASF               INIT      486
           172                           FWAREF   EQUX   SCR+5       FWA OF REFERENCE                            INIT      487
           172                           SVB6     EQUX   SCR+6                                                   INIT      488
           172                           SVB5     EQUX   SCR+7                                                   INIT      489
           172                           ASFARG   EQUX   SCR+8       NUMBER OF ARGUMENTS                         INIT      490
           172                           FWAARG   EQUX   SCR+9       RELATIVE FWA OF ACTUAL ARGUMENTS            INIT      491
           172                           CDOTG    EQUX   SCR+6       CURRENT DO TAG BEING PROCESSED              INIT      492
                                                                                                                 INIT      497
                                        **        BUFFERS AND FIXED LENGTH SCRATCH AREAS.                        INIT      498
                                                                                                                 INIT      499
                                                                                                                 INIT      500
                                         BSSX     HERE               *BLANK COMMON*, SORT OF                     INIT      501
                                   0 +   OSTACK   EQU      BSSX+0B                                              BSSX    .1
                                 240 +   ESTACK   EQU      BSSX+240B                                            BSSX    .1
                                 500 +   SAVE     EQU      BSSX+500B                                            BSSX    .1
                                 512 +   DPTA     EQU      BSSX+512B                                            BSSX    .1
                                 513 +   ADWT     EQU      BSSX+513B                                            BSSX    .1
                                 517 +   CST.BOS  EQU      BSSX+517B                                            BSSX    .1
                                 520 +   DECA     EQU      BSSX+520B                                            BSSX    .1
                                 527 +   TRVA     EQU      BSSX+527B                                            BSSX    .1
                                 531 +   CALLTAG  EQU      BSSX+531B                                            BSSX    .1
                                 532 +   EQUA     EQU      BSSX+532B                                            BSSX    .1
                                 533 +   SCR2     EQU      BSSX+533B                                            BSSX    .1
                                 537 +   SCR      EQU      BSSX+537B                                            BSSX    .1
                                         EQUX     HERE               DEFERRED EQUIVALENCES.                      INIT      502
                                   0 +   HOLLSKL  EQU    OSTACK                                                 EQUX    .1
                                 531 +   AGNK     EQU    CALLTAG                                                EQUX    .1
                                   0 +   DATEMP   EQU    OSTACK+    0                                           EQUX    .1
                                   0 +   REPFLAG  EQU    OSTACK+0    1                                          EQUX    .1
                                   1 +   CLOSREP  EQU    OSTACK+1    1                                          EQUX    .1
                                   2 +   N.ITEM   EQU    OSTACK+2    1                                          EQUX    .1
                                   3 +   PL       EQU    OSTACK+3    1                                          EQUX    .1
                                   4 +   I.DIT    EQU    OSTACK+4    3                                          EQUX    .1
                                   7 +   DATEMPL  EQU    OSTACK+7    0                                          EQUX    .1
                                   7 +   TEMP     EQU    OSTACK+7    2                                          EQUX    .1
                                  11 +   NONANSI  EQU    OSTACK+9    1                                          EQUX    .1
                                  12 +   DVT      EQU    OSTACK+10    2                                         EQUX    .1
                                  14 +   LPINF    EQU    OSTACK+12    3                                         EQUX    .1
                                  17 +   BIAS     EQU    OSTACK+15    1                                         EQUX    .1
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    16
        FA=SET - SET FILE TABLES                                      BUFFERS 
  
                                  20 +   LL       EQU    OSTACK+16    1                                         EQUX    .1
                                  21 +   UL       EQU    OSTACK+17    1                                         EQUX    .1
                                  22 +   INC      EQU    OSTACK+18    1                                         EQUX    .1
                                  23 +   SUBN     EQU    OSTACK+19    1                                         EQUX    .1
                                  24 +   SST1     EQU    OSTACK+20    0                                         EQUX    .1
                                  24 +   CON1     EQU    OSTACK+20    MAX.DIM                                   EQUX    .1
                                  27 +   INDX     EQU    OSTACK+23    MAX.DIM                                   EQUX    .1
                                  32 +   CON2     EQU    OSTACK+26    MAX.DIM                                   EQUX    .1
                                  35 +   SIGN     EQU    OSTACK+29    MAX.DIM                                   EQUX    .1
                                  40 +   N.SUBS   EQU    OSTACK+32    1                                         EQUX    .1
                                  41 +   N.VSUB   EQU    OSTACK+33    1                                         EQUX    .1
                                  42 +   SSTL     EQU    OSTACK+34    0                                         EQUX    .1
                                  42 +   ORGI     EQU    OSTACK+34    1                                         EQUX    .1
                                  43 +   DA       EQU    OSTACK+35    1                                         EQUX    .1
                                  44 +   MP       EQU    OSTACK+36    1                                         EQUX    .1
                                  45 +   RL       EQU    OSTACK+37    1                                         EQUX    .1
                                  46 +   LI       EQU    OSTACK+38    3                                         EQUX    .1
                                  51 +   TMP      EQU    OSTACK+41    1                                         EQUX    .1
                                  52 +   DLEN     EQU    OSTACK+42    1                                         EQUX    .1
                                  53 +   ORD      EQU    OSTACK+43    1                                         EQUX    .1
                                  54 +   SDPF     EQU    OSTACK+44    1                                         EQUX    .1
                                  55 +   N.DIMS   EQU    OSTACK+45    1                                         EQUX    .1
                                  56 +   DIM      EQU    OSTACK+46    MAX.DIM                                   EQUX    .1
                                  61 +   DIM.MUL  EQU    OSTACK+49    MAX.DIM                                   EQUX    .1
                                  64 +   SELIST   EQU    OSTACK+52    1                                         EQUX    .1
                                   0 +   FORSKEL  EQU    OSTACK                                                 EQUX    .1
                                 542 +   ASFERR   EQU    SCR+3                                                  EQUX    .1
                                 543 +   FWAASF   EQU    SCR+4                                                  EQUX    .1
                                 544 +   FWAREF   EQU    SCR+5                                                  EQUX    .1
                                 545 +   SVB6     EQU    SCR+6                                                  EQUX    .1
                                 546 +   SVB5     EQU    SCR+7                                                  EQUX    .1
                                 547 +   ASFARG   EQU    SCR+8                                                  EQUX    .1
                                 550 +   FWAARG   EQU    SCR+9                                                  EQUX    .1
                                 545 +   CDOTG    EQU    SCR+6                                                  EQUX    .1
                                                                                                                 INIT      503
                                 551 +   BUFFERS  EQU    BSSX+BSSX.                                              INIT      504
                                                                                                                 INIT      505
                                   7     LITBLOC  EQU    LASTLIT-FIRSTLIT+1                                      INIT      506
           172                   350              BSS    BUFFERS-ENDCODE-LITBLOC                                 INIT      507
  
  
  
  
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        L.CARD
             0 X                        TIMER 
             0 X                        L.MSTR
             0 X                        LSTMSTR 
             0 X                        LSTWRKG 
             0 X                        MVE 
             0 X                        MIN.TFL 
             0 X                        CP.MXFL 
             0 X                        FIN 
             0 X                        FIN.OL
             0 X                        LOP=M 
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    17
        FA=SET - SET FILE TABLES                                      LITERALS
  
             0 X                        RSELECT 
             0 X                        F.TABS
             0 X                        CIO=
             0 X                        CO.REW
             0 X                        CP.PW 
             0 X                        CP.LSTF 
             0 X                        TL.PNAM 
             0 X                        O.TTLA
             0 X                        TL.PAGE 
             0 X                        CP.NFLS 
             0 X                        W.TABS
             0 X                        THRESH
             0 X                        TL.CCOP 
             0 X                        CP.CPU
             0 X                        MLOP=O
             0 X                        WINX
             0 X                        WININIT 
             0 X                        MLOP=R
             0 X                        MLOP=X
             0 X                        PSTACK
             0 X                        O=RADD
             0 X                        O=RSUB
             0 X                        O=RMULT 
             0 X                        O=RDIV
             0 X                        WNB=
  
                                        CONTENT OF LITERALS BLOCK.
  
           542  06112223241411245700    FIRSTLIT. 
           543  40404040404040404040    5555555555
           544  55555555555555555555
           545  34550000000000000000    1 
           546  00005503151704051455       CMODEL 
           547  21351624223100000000    Q2NTRY
           550  14012324141124570000    LASTLIT.
  
           551                           FIN.OLR  END                END OF (1,0) WHEN OBJECT LIST + MAP OFF     FEAT155G  402
  
                             55300B CM  STORAGE USED             1236 STATEMENTS      896 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.132 SECONDS         440 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADWT          513   PROGRAM*        2/04 E   15/35 D
        AFSA            0   EXTERNAL*       2/41 X
        AGNK          531   PROGRAM*        2/05 E   15/45 D
        ANSI.SW         0   EXTERNAL*       2/23 X    8/03
        ASFARG        547   PROGRAM*        2/11 E   16/32 D
        ASFERR        542   PROGRAM*        2/10 E   16/27 D
        BIAS           17   PROGRAM*        2/05 E   15/57 D
        BINIO           0   EXTERNAL*       2/20 X    7/45 S
        BSSX            0   PROGRAM*        2/46 L   15/32     15/34     15/36     15/38     15/40     15/42
                                           15/31     15/33     15/35     15/37     15/39     15/41     16/36
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        BSSX.         551                   2/47 D   14/01 D   14/03 D   14/05 D   14/08 D   15/12 D   15/15 D
                                           13/57     14/02     14/04     14/06     14/10     15/14     16/36
                                           13/57 D   14/02 D   14/04 D   14/06 D   14/10 D   15/14 D
                                           14/01     14/03     14/05     14/08     15/12     15/15
        BT.IDNT         0   EXTERNAL*       2/35 X    7/28 S
        BT.IDN9         0   EXTERNAL*       2/35 X    7/27
        BUFFERS       551   PROGRAM*       16/36 D   16/39
        CALLTAG       531   PROGRAM*        2/05 E   15/39 D   15/45
        CDD             0   EXTERNAL*       2/20 X    8/10
        CDOTG         545   PROGRAM*        2/10 E   16/34 D
        CHAR            6   TSTEXT          3/51      4/04      4/17      6/29      6/46      8/11      8/14      8/15
        CIO=            0   EXTERNAL*       5/32      5/46      5/49      5/53
        CLOSREP         1   PROGRAM*        2/06 E   15/48 D
        CON1           24   PROGRAM*        2/05 E   16/06 D
        CON2           32   PROGRAM*        2/06 E   16/08 D
        CO.REW          0   EXTERNAL*       5/44
        CO.RND          0   EXTERNAL*       2/15 X    8/41
        CP.CARD         0   EXTERNAL*       2/15 X    3/50      4/27
        CP.CPU          0   EXTERNAL*       7/25
        CP.LSTF         0   EXTERNAL*       6/27
        CP.MXFL         0   EXTERNAL*       5/03 S
        CP.NFLS         0   EXTERNAL*       7/16
        CP.PAGE         0   EXTERNAL*       2/15 X    7/29      7/38 S
        CP.PD           0   EXTERNAL*       2/15 X    6/18 S
        CP.PW           0   EXTERNAL*       6/01
        CP#RM           0   TSTEXT          3/18 F    4/35 F    5/34 F    5/52 F   10/10 F
        CST.BOS       517   PROGRAM*        2/11 E   15/36 D
        DA             43   PROGRAM*        2/06 E   16/14 D
        DATEMP          0   PROGRAM*        2/06 E   15/46 D
        DATEMPL         7   PROGRAM*        2/06 E   15/52 D
        DECA          520   PROGRAM*        2/05 E   15/37 D
        DIM            56   PROGRAM*        2/06 E   16/23 D
        DIM.MUL        61   PROGRAM*        2/06 E   16/24 D
        DLEN           52   PROGRAM*        2/06 E   16/19 D
        DPTA          512   PROGRAM*        2/04 E   15/34 D
        DVT            12   PROGRAM*        2/06 E   15/55 D
        ENDCODE       172   PROGRAM*       13/23 L   16/39
        EQUA          532   PROGRAM*        2/04 E   15/40 D
        ERT             0   EXTERNAL*       2/38 X    7/56 S
        ESTACK        240   PROGRAM*        2/10 E   15/32 D
        FA=SET        157   PROGRAM*        4/33      5/14      5/20      5/23     13/20 D
        FCA             0   PROGRAM*        2/04 E    3/11 L
        FCA3            2   PROGRAM*        3/52 L    3/54
        FCA4           10   PROGRAM*        4/02      4/13 L
        FCA5           14   PROGRAM*        4/07      4/11      4/27 L
        FCA6           22   PROGRAM*        4/32      4/39 L
        FIN             0   EXTERNAL*       5/04
        FIN.OL          0   EXTERNAL*       5/07
        FIN.OLR       551   PROGRAM*        5/10     16/44 L
        FIRSTLIT      542   PROGRAM*        2/43 L   16/38
        FLSLOP          4   TSTEXT          7/19
        FORSKEL         0   PROGRAM*        2/09 E   16/26 D
        FTO            24   PROGRAM*        2/12 E    4/53 L
        FTO1           37   PROGRAM*        5/13      5/15 L
        FTO10          34   PROGRAM*        5/06      5/09      5/11 L
        FTO1.5         41   PROGRAM*        5/17      5/19 L
        FTO2           47   PROGRAM*        5/18      5/22      5/25 L
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        FTO25          52   PROGRAM*        5/44 L
        FTO3           60   PROGRAM*        5/45      5/48      5/50 L
        FTO5           70   PROGRAM*        6/03      6/25 L
        FTO6           71   PROGRAM*        6/19      6/27 L
        FTO7           75   PROGRAM*        6/31      6/38 L
        FTO8          103   PROGRAM*        6/26      6/57 L
        FTO9          104   PROGRAM*        6/08      6/55      7/03 L
        FV.LGO          0   EXTERNAL*       2/16 X    4/31      5/15      5/21      5/47      7/40
        FWAARG        550   PROGRAM*        2/10 E   16/33 D
        FWAASF        543   PROGRAM*        2/10 E   16/28 D
        FWAREF        544   PROGRAM*        2/10 E   16/29 D
        F.IN            0   EXTERNAL*       2/16 X    5/46      5/53
        F.LF            0   EXTERNAL*       2/16 X    5/20
        F.LGO           0   EXTERNAL*       2/16 X    4/33      4/36      5/23      5/49
        F.OUT           0   EXTERNAL*       2/16 X    5/32      5/32      6/04
        F.RMAP          0   EXTERNAL*       2/16 X    5/14
        F.TABS          0   EXTERNAL*       5/27 S    7/15
        HOLLSKL         0   PROGRAM*        2/05 E   15/44 D
        IMO           105   PROGRAM*        3/12      5/56      7/14 L
        IMO1          117   PROGRAM*        7/32      7/35 L
        IMO2          120   PROGRAM*        7/30      7/34      7/36 L
        IMO4          125   PROGRAM*        7/44      7/46      7/48 L
        IMO5          131   PROGRAM*        7/53      8/02 L
        IMO6          134   PROGRAM*        8/04      8/09 L
        IMO62         141   PROGRAM*        8/37 L
        IMO7          145   PROGRAM*        8/45      8/52 L
        IMO8          150   PROGRAM*        8/53      9/03 L
        IMO9          153   PROGRAM*        9/04      9/11 L
        INC            22   PROGRAM*        2/07 E   16/03 D
        INDX           27   PROGRAM*        2/07 E   16/07 D
        I.CBSET         5   TSTEXT          4/33     10/46
        I.DIT           4   PROGRAM*        2/07 E   15/51 D
        I.DT            1   TSTEXT          6/04
        I.LIMIT         4   TSTEXT         11/06
        I.OUT           3   TSTEXT         11/04 S
        LASTLIT       550   PROGRAM*       13/24 L   16/38
        LCP.PS          0   EXTERNAL*       2/15 X
        LI             46   PROGRAM*        2/07 E   16/17 D
        LITBLOC         7                  16/38 D   16/39
        LL             20   PROGRAM*        2/07 E   16/01 D
        LOP=M           0   EXTERNAL*       5/08
        LOP=O           0   EXTERNAL*       2/17 X    5/05      5/16
        LOP=R           0   EXTERNAL*       2/17 X
        LOP=X           0   EXTERNAL*       2/17 X
        LPINF          14   PROGRAM*        2/07 E   15/56 D
        LSTMSTR         0   EXTERNAL*       4/57
        LSTWRKG         0   EXTERNAL*       4/57
        L.CARD          0   EXTERNAL*       4/29 S
        L.JPAD         22   TSTEXT          8/43
        L.MSTR          0   EXTERNAL*       4/57
        MAX.DIM         3   TSTEXT         15/14
        MIN.TFL         0   EXTERNAL*       5/02
        MLOP=O          0   EXTERNAL*       7/41
        MLOP=R          0   EXTERNAL*       7/51
        MLOP=X          0   EXTERNAL*       8/02
        MP             44   PROGRAM*        2/07 E   16/15 D
        MVE             0   EXTERNAL*       4/57
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        NONANSI        11   PROGRAM*        2/07 E   15/54 D
        N.DIMS         55   PROGRAM*        2/07 E   16/22 D
        N.ELSTK       240   TSTEXT         14/01
        N.ITEM          2   PROGRAM*        2/07 E   15/49 D
        N.OPSTK       240   TSTEXT         13/57
        N.SUBS         40   PROGRAM*        2/08 E   16/10 D
        N.VSUB         41   PROGRAM*        2/08 E   16/11 D
        ORD            53   PROGRAM*        2/08 E   16/20 D
        ORGI           42   PROGRAM*        2/08 E   16/13 D
        OSTACK          0   PROGRAM*        2/09 E   15/49     15/55     16/04     16/10     16/16     16/22
                                           15/31 D   15/50     15/56     16/05     16/11     16/17     16/23
                                           15/44     15/51     15/57     16/06     16/12     16/18     16/24
                                           15/46     15/52     16/01     16/07     16/13     16/19     16/25
                                           15/47     15/53     16/02     16/08     16/14     16/20     16/26
                                           15/48     15/54     16/03     16/09     16/15     16/21
        O=RADD          0   EXTERNAL*       8/47
        O=RDIV          0   EXTERNAL*       9/14
        O=RMULT         0   EXTERNAL*       9/06
        O=RSUB          0   EXTERNAL*       8/55
        O.DIV           7   TSTEXT          9/13
        O.MIN           5   TSTEXT          8/54
        O.MULT          6   TSTEXT          9/05
        O.PL            4   TSTEXT          8/54      9/05      9/13
        O.TTLA          0   EXTERNAL*       6/32
        PL              3   PROGRAM*        2/08 E   15/50 D
        PLIMIT          0   EXTERNAL*       2/17 X    8/09
        PPAD            0   EXTERNAL*       2/29 X    8/19 S
        PSTACK          0   EXTERNAL*       8/46      8/54      9/05      9/13
        PW.TTY        110   TSTEXT          6/09
        P.JPAD         52   TSTEXT          8/49      8/57      9/08      9/16
  U     QUAL$                              10/06 F   13/18 F
        REFIO           0   EXTERNAL*       2/20 X    7/57 S
        REPFLAG         0   PROGRAM*        2/08 E   15/47 D
        RL             45   PROGRAM*        2/08 E   16/16 D
        RSELECT         0   EXTERNAL*       5/12
        RUN.X           0   EXTERNAL*       2/26 X    4/41
        SAVE          500   PROGRAM*        2/04 E   15/33 D
        SCR           537   PROGRAM*        2/04 E   16/27     16/29     16/31     16/33
                                           15/42 D   16/28     16/30     16/32     16/34
        SCR2          533   PROGRAM*        2/05 E   15/41 D
        SDPF           54   PROGRAM*        2/08 E   16/21 D
        SELIST         64   PROGRAM*        2/08 E   16/25 D
        SIGN           35   PROGRAM*        2/08 E   16/09 D
        SSTL           42   PROGRAM*        2/09 E   16/12 D
        SST1           24   PROGRAM*        2/09 E   16/05 D
        SUBN           23   PROGRAM*        2/09 E   16/04 D
        SVB5          546   PROGRAM*       16/31 D
        SVB6          545   PROGRAM*        2/10 E   16/30 D
        TEMP            7   PROGRAM*        2/09 E   15/53 D
        TEST            0   TSTEXT          8/25 F
        THRESH          0   EXTERNAL*       7/20 S
        TIMER           0   EXTERNAL*       4/39
        TIME1           0   EXTERNAL*       2/17 X    4/40 S
        TL.CCOP         0   EXTERNAL*       7/21
        TL.PAGE         0   EXTERNAL*       6/41
        TL.PNAM         0   EXTERNAL*       6/30
        TMP            51   PROGRAM*        2/09 E   16/18 D
1       /INIT  TS MODE INITIALIZATION                                 COMPASS 3.7-871.     24/05/02. 15.53.14.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        TRVA          527   PROGRAM*        2/05 E   15/38 D
        UL             21   PROGRAM*        2/09 E   16/02 D
        WIN             0   EXTERNAL*       2/32 X    7/43
        WININIT         0   EXTERNAL*       7/49 S
        WINX            0   EXTERNAL*       7/47
        WNB=            0   EXTERNAL*       4/36     10/41
        W.TABS          0   EXTERNAL*       7/18 S
        .OS             1   TSTEXT          6/02 F    6/05 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  FA=SET
  
  
        FA=SET        157   PROGRAM*       10/37 L   11/18     13/20
        SET2          162   PROGRAM*       10/40     10/46 L
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      570              IDENT  MAP
                        570              FIN.OL   END                END OF (1,0) OVERLAY WHEN OBJECT LIST OFF
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       561 
                                        LITERALS* LOCAL         561         7 
  
  
                                        ENTRY POINTS. 
  
                                        WVM              0+           FIN.OL         570+ 
                                        LPS.PL         442+           WVBD           367+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.SNAP   FAILSFT   REFIO     TS=ENT    TT.REF    L.CL      SCR       CP.BLF
                                        LCP.PS    LCNT      TN=BLK    TS=SYM    TA=NAM    WVMX      RDW=
                                        F.RMAP    LINEBUF   TS=STN    TS.BLK    TA.NAM    DSRT      CIO=
                                        LOP=R     LOSTREF   TN.EXT    TS.STN    TN=EXT    MVE       HDRBL 
                                        O.STITL   N.TABLE   TN.BLK    TS.SYM    SFN       SRT       BLNKCOM 
                                        CDD       NREXT     TP.DIM    TS.ENT    LJS       WBL       CP.PW 
                                        COD       PASS      TS=BLK    TT=REF    CLASS     WOF       ALC 
  
  
  
  
                                                  IDENT  MAP                                                     MAP         2
                                         MAP      SECT   (LISTING ROUTINES -- PASS 2 = MAP.),1                   MAP         3
  
                                                                                                                 MAP         4
                                                  SST    A,B,D                                                   MAP         5
                                                  NOREF  A,B,D                                                   MAP         6
                                                                                                                 MAP         7
                                         B=MAP    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     MAP         8
                                                                                                                 MAP         9
                                                  ENTRY  WVM,LPS.PL,FIN.OL,WVBD                                  FEAT155G  403
                                                                                                                 MAP        11
                                        *         IN FTN                                                         MAP        12
                                                  EXT    CO.SNAP,LCP.PS,F.RMAP,LOP=R,O.STITL                     FCCA422    51
                                                                                                                 MAP        14
                                        *         IN TABLES                                                      MAP        15
                                                  EXT    CDD,COD,FAILSFT,LCNT,LINEBUF,LOSTREF                    FEAT155H  122
                                                  EXT    N.TABLE,NREXT,PASS,REFIO,TN=BLK,TS=STN                  CP139FC   202
                                                  EXT    TN.EXT,TN.BLK,TP.DIM                                    FEAT155G  404
                                                  EXT    TS=BLK,TS=ENT,TS=SYM,TS.BLK                             FEAT155G  405
                                                  EXT    TS.STN,TS.SYM,TS.ENT,TT=REF,TT.REF                      FEAT155G  406
                                                  EXT    TA=NAM,TA.NAM,TN=EXT                                    FEAT155G  407
                                                  EXT    SFN,LJS                                                 FEAT155G  408
                                                                                                                 MAP        23
                                        *         IN ERRORS                                                      MAP        24
                                                  EXT    CLASS,L.CL                                              FEAT155G  409
                                                                                                                 MAP        29
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     2
  
  
                                        *         IN END                                                         MAP        30
                                                  EXT    WVMX                                                    FEAT155G  410
                                                                                                                 MAP        32
                                        *         IN ALLOC                                                       MAP        33
                                                  EXT    DSRT,MVE,SRT                                            MAP        34
                                                                                                                 MAP        35
                                        *         IN MAIN                                                        MAP        36
                                                  EXT    WBL,WOF                                                 FEAT155G  411
                                                                                                                 MAP        38
                                        *         IN INIT                                                        MAP        39
                                                  EXT    SCR                                                     MAP        40
                                                                                                                 MAP        41
  
  
  
  
                                        **        WVM -  WRITE VARIABLE MAP                                      MAP        43
                                        *         EXIT   INTO *END*.                                             MAP        44
                                        *         USES   ALL REGISTERS.                                          MAP        45
                                                                                                                 MAP        46
                                                                                                                 MAP        47
             0                           WVM      BSS    0           ENTRY...                                    MAP        48
             0  5110000000 X                      SA1    FAILSFT                                                 MAP        49
                          0311000000 X            NZ     X1,WVMX     NO MAP IF TABLES CRUMPED                    MAP        50
  
  
  
  
                                        **        IF BL PARAMETER SELECTED, PAGE EJECT BEFORE REF MAP.           MAP        52
                                                                                                                 MAP        53
             1  5110000000 X                      SA1    =XCP.BLF                                                MAP        54
                          0301000004 +            ZR     X1,WVB      IF BL NOT SELECTED                          MAP        55
             2  5120000000 X                      SA2    LCP.PS                                                  FCCA422    52
                          10722                   BX7    X2                                                      FEAT155E  314
             3  5170000000 X                      SA7    LCNT        FORCE EJECT WITH NEXT LINE PRINTED          MAP        57
  
  
  
  
                                        **        WVB -  OUTPUT COMMON BLOCKS.                                   MAP        59
                                                                                                                 MAP        60
                                                                                                                 MAP        61
             4  5110000000 X             WVB      ALLOC  TS.BLK,2    FOR END OF TABLE MARK                       FEAT155GA  14
             6  6232777773                        SB3    X2-4                                                    FEAT155GA  15
                          5110000000 X            SA1    TS.BLK                                                  FEAT155GA  16
             7  5120000000 X                      SA2    TS=BLK                                                  MAP        63
                          5130000561 +            SA3    =1H                                                     MAP        64
            10  36012                             IX0    X1+X2                                                   MAP        65
                     13666                        BX6    0                                                       MAP        66
                          22703                   LX7    X3                                                      MAP        67
                               53710              SA7    X1          RESET NAME OF -PROGRAM- BLOCK               MAP        72
            11  7271000002                        =X7    X1+2                                                    FCC0583    11
                          5260777775              SA6    X0-2        MARK END OF TABLE                           FEAT155GA  17
            12  6140000354 +                      SB4    WVBA                                                    FCC0583    12
                          5170000367 +            SA7    WVBD        SAVE FWA OF COMMON BLOCKS                   FCC0583    13
            13  37707                             IX7    X0-X7       NUMBER OF REAL BLOCKS (* 2)                 MAP        79
                     5130000000 X                 SA3    =XCP.PW                                                 CP139FC   203
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     3
                                                                      WVB 
  
            14  0430000064 +                      ZR     B3,WVBX     IF NO COMMON BLOCKS                         FEAT155GA  18
                          54771                   SA7    A7+B1       SAVE WORD COUNT OF COMMON BLOCKS            MAP        81
            15  7277000006                        SX7    X7+6                                                    MAP        82
                          7150000004              SX5    4                                                       FEAT126A  413
            16  0303000017 +                      ZR     X3,WVB1A    IF NOT IN PW MODE                           FEAT126A  414
                          73530                   SX5    X3                                                      FEAT126AA  13
                               21501              AX5    1                                                       FEAT126AA  14
            17  0100000457 +             WVB1A    RJ     LSH                                                     FEAT126A  416
                                                                                                                 MAP        85
                                        **        CONVERT BLOCK NAMES TO LISTABLE FORMAT.                        MAP        86
                                                                                                                 MAP        87
            20  5110000000 X                      SA1    =XBLNKCOM                                               FCC0583    14
                          5140000367 +            SA4    WVBD                                                    FCC0583    15
            21  7211777775                        SX1    X1-2                                                    FCC0583    16
                          36341                   IX3    X4+X1                                                   FCC0583    17
                               63730              SB7    X3          ADDRESS OF BLANK COMMON (IF ANY)            FCC0583    18
            22  53540                             SA5    X4                                                      FCC0583    19
                     5140000562 +                 SA4    =1A/                                                    MAP        89
                               43073              MX0    -1                                                      MAP        90
            23  5120000563 +                      SA2    =40404040404040404040B                                  MAP        91
                          5110000564 +            SA1    =10H//////////                                          MAP        92
            24  6130000067                        SB3    60-CHAR+1                                               MAP        94
                          66211                   =B2    2                                                       MAP        95
                                                                                                                 MAP        96
            25  65457                    WVB2     SB4    A5-B7                                                   FCC0583    20
                     0440000032 +                 ZR     B4,WVB3     IF BLANK COMMON                             FCC0583    21
                               36750              IX7    X5+X0       LOCATE LOWEST BIT                           FCC0583    22
            26  16357                             BX3    -X7+X5                                                  MAP        98
                     11723                        BX7    X2*X3       40 WHERE CHARACTERS WERE                    MAP        99
                          22337                   LX3    X7,B3                                                   MAP       100
                               37673              IX6    X7-X3                                                   MAP       101
            27  36776                             IX7    X7+X6       77 WHERE CHARACTERS WERE                    MAP       102
                     15617                        BX6    -X7*X1                                                  MAP       103
                          21706                   AX7    CHAR        EXTEND MASK FOR ONE MORE CHAR               MAP       104
                               15347              BX3    -X7*X4                                                  MAP       105
            30  36656                             IX6    X5+X6       APPEND TRAILING SLASHES                     MAP       106
                     11576                        BX5    X7*X6       DISCARD SUPERFLOUS SLASHES                  MAP       107
                          36735                   IX7    X3+X5       SPACE FILL                                  MAP       108
                               20766              LX7    -CHAR                                                   MAP       110
            31  54750                             SA7    A5          SAVE FORMATTED NAME FOR WVV                 FCC0583    23
            32  54552                    WVB3     SA5    A5+B2                                                   FCC0583    24
                     0315000025 +                 NZ     X5,WVB2     IF NOT LAST BLOCK                           MAP       112
                                                                                                                 MAP       113
            33  5130000370 +                      SA3    WVBD+1      WORD COUNT                                  FCC0583    25
                          5110000000 X            SA1    =XBLNKCOM                                               FCC0583    26
            34  0301000036 +                      ZR     X1,WVB3A    IF NO BLANK COMMON                          FCC0583    27
                          5150000565 +            SA5    =2H//                                                   MAP       116
            35  22705                             LX7    X5                                                      MAP       117
                     56770                        SA7    B7          SET NAME OF BLANK COMMON                    FCC0583    28
            36  5110000000 X             WVB3A    ALLOC  TN.BLK,X3                                               FCC0583    29
            40  10311                             BX3    X1                                                      MAP       120
                     73121                        SX1    X2+B1       ADJUST W.C. TO COPY THE ZERO WORD           MAP       121
                          5120000000 X            SA2    TS.BLK                                                  FEAT155GA  19
            41  7222000002                        =X2    X2+2                                                    FEAT155GA  20
                          0100000000 X            RJ     MVE         COPY BLOCK TABLE                            MAP       123
            42  5110000000 X                      SA1    TN.BLK                                                  MAP       124
                          0100000000 X            RJ     DSRT        SORT COPIED TABLE                           MAP       125
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     4
                                                                      WVB 
  
            43  5110000000 X                      SA1    TN.BLK                                                  MAP       126
                          53510                   SA5    X1                                                      MAP       127
                                                                                                                 MAP       128
            44  5140000000 X                      SA4    =XCP.PW                                                 CP139FC   204
                          6140000052 +            SB4    WVB5                                                    FEAT126A  418
            45  0304000046 +                      ZR     X4,WVB4     IF NOT IN PW MODE                           FEAT126A  419
                          6140000053 +            SB4    WVB5A                                                   FEAT126A  420
            46  6150000000 X             WVB4     SB5    LINEBUF                                                 FEAT126A  421
                          5140000561 +            SA4    =1H                                                     MAP       130
            47  5110000000 X                      SA1    =XCP.PW                                                 CP139FC   205
                          6160000004              SB6    4                                                       MAP       131
            50  66311                             =B3    2                                                       MAP       132
                     0301000052 +                 ZR     X1,WVB5     IF NOT IN PW MODE                           FEAT126A  423
                               21101              AX1    1                                                       FEAT126A  424
            51  63610                             SB6    X1                                                      FEAT126A  425
                     0400000053 +                 EQ     WVB5A                                                   FEAT126A  426
                                                                                                                 MAP       133
            52  22704                    WVB5     LX7    X4                                                      FEAT126A  427
                     66551                        SB5    B5+B1                                                   FEAT126A  428
                          57751                   SA7    B5-B1                                                   FEAT126A  429
            53  54151                    WVB5A    SA1    A5+B1                                                   FEAT126A  430
                     67661                        SB6    B6-B1                                                   MAP       137
                          43044                   MX0    -L.BLEN                                                 MAP       138
                               15110              BX1    -X0*X1      ISOLATE BLOCK LENGTH                        MAP       139
            54  0100000000 X                      PIA                CONVERT LENGTH TO DPC                       FEAT126C   89
            55  56650                             SA6    B5                                                      FEAT126A  431
                     10755                        BX7    X5                                                      MAP       142
                          54553                   SA5    A5+B3                                                   MAP       143
                               54761              SA7    A6+B1                                                   MAP       144
            56  64571                             SB5    A7+B1                                                   MAP       145
                     0305000060 +                 ZR     X5,WVB6     IF LAST BLOCK                               MAP       146
            57  0460000060 +                      ZR     B6,WVB6                                                 FEAT126A  432
                          0244000000              JP     B4                                                      FEAT126A  433
                                                                                                                 MAP       148
            60  43600                    WVB6     MX6    0                                                       FEAT126A  434
                     56650                        SA6    B5                                                      MAP       151
                          6130777776 X            SB3    LINEBUF-1                                               FEAT126A  435
            61  7110000000 X                      PLINE  LINEBUF,B5-B3                                           FEAT126A  436
            63  0315000046 +                      NZ     X5,WVB4     IF MORE ENTRIES                             MAP       153
                                                                                                                 MAP       154
            64  76600                    WVBX     SHRINK TN=BLK,0    EXIT..                                      MAP       155
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     5
                                                                      WVE 
  
                                        **        WVE -  LIST ENTRY POINTS AND EXTERNALS.                        MAP       159
                                                                                                                 MAP       160
                                                                                                                 MAP       161
            65  5110000000 X             WVE      SA1    TS.ENT                                                  MAP       162
                          0100000000 X            RJ     SRT         SORT ENTRY POINT TABLE                      MAP       163
            66  5120000000 X                      SA2    TS=ENT                                                  MAP       164
                          6232777776              SB3    X2-1                                                    MAP       165
            67  0603000117 +                      LE     B3,WVE5     IF ONE OR FEWER ENTRY POINTS                MAP       166
                          6140000356 +            SB4    WVEA                                                    MAP       167
            70  7272000003                        SX7    X2+3                                                    MAP       168
                          5110000000 X            SA1    =XCP.PW                                                 CP139FC   206
            71  7150000004                        SX5    4                                                       FEAT126A  438
                          73110                   SX1    X1                                                      FEAT126A  439
            72  0301000073 +                      ZR     X1,WVE1     IF NOT IN PW MODE                           FEAT126A  440
                          23511                   AX5    X1,B1                                                   FEAT126A  441
            73  0100000457 +             WVE1     RJ     LSH         LIST SUB-HEADING                            FEAT126A  442
            74  5110000000 X                      SA1    TS.ENT                                                  MAP       171
                          5120000000 X            SA2    TS=ENT                                                  MAP       172
            75  53510                             SA5    X1                                                      MAP       173
                     63420                        SB4    X2          NUMBER OF ENTRY POINTS                      MAP       174
                                                                                                                 MAP       175
                                        *         BEGIN NEW LINE.                                                MAP       176
                                                                                                                 MAP       177
            76  5140000000 X             WVE2     SA4    TA.NAM                                                  FEAT126A  443
                          5110000000 X            SA1    =XCP.PW                                                 CP139FC   207
            77  6150000000 X                      SB5    LINEBUF                                                 FEAT126A  445
                          73110                   SX1    X1                                                      FEAT126A  446
                               63340              SB3    X4                                                      FEAT126A  447
           100  21101                             AX1    1                                                       FEAT126A  448
                     63610                        SB6    X1                                                      FEAT126A  449
                          43400                   MX4    0                                                       FEAT126A  450
           101  0311000103 +                      NZ     X1,WVE3     IF IN PW MODE                               FEAT126A  451
                          5140000561 +            SA4    =1H                                                     FEAT126A  452
           102  6160000004                        SB6    4                                                       FEAT126A  453
                                                                                                                 FEAT126A  454
                                        *         BEGIN NEXT ITEM.                                               FEAT126A  455
                                                                                                                 FEAT126A  456
           103  67441                    WVE3     SB4    B4-B1                                                   FEAT126A  457
                     73050                        SX0    X5                                                      FEAT126A  458
                          0740000113 +            MI     B4,WVE4     IF TABLE EXHAUSTED                          FEAT126A  459
           104  0304000106 +                      ZR     X4,WVE3A    IF IN PW MODE                               FEAT126A  460
                          22704                   LX7    X4                                                      FEAT126A  461
                               66551              =B5    B5+1                                                    FEAT126A  462
           105  57751                             =A7    B5-1                                                    FEAT126A  463
           106  13150                    WVE3A    BX1    X5-X0       ISOLATE NAME                                FEAT126A  464
                     21001                        AX0    1                                                       MAP       192
                          67661                   SB6    B6-B1                                                   MAP       193
           107  0100000000 X                      RJ     SFN         SPACE FILL NAME                             MAP       194
           110  53103                             SA1    X0+B3                                                   MAP       195
                     56651                        =A6    B5+1                                                    FEAT126A  465
                          64561                   SB5    A6+B1                                                   MAP       197
           111  0100000000 X                      PIA                CONVERT ADDRESS TO DPC                      FEAT126C   90
           112  54551                             SA5    A5+B1                                                   MAP       199
                     55661                        SA6    A6-B1                                                   MAP       200
                          0560000103 +            NZ     B6,WVE3     IF MORE FOR THIS LINE                       MAP       201
                                                                                                                 MAP       202
           113  43600                    WVE4     MX6    0                                                       FEAT126A  466
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     6
                                                                      WVE 
  
                     56650                        SA6    B5                                                      MAP       205
                          6130777776 X            SB3    LINEBUF-1                                               FEAT126A  467
           114  7110000000 X                      PLINE  LINEBUF,B5-B3                                           FEAT126A  468
           116  0704000076 +                      GT     B4,WVE2     IF MORE ENTRIES                             MAP       207
                                                                                                                 MAP       208
                                        *         LIST OUT THE EXTERNALS.                                        MAP       209
                                                                                                                 MAP       210
           117  5120000000 X             WVE5     SA2    NREXT                                                   MAP       211
                          76600                   SHRINK TS=ENT,0                                                MAP       212
                          7222777776              SX2    X2-1                                                    MAP       213
           121  5160000000 X                      SHRINK TN=EXT,X6                                               MAP       214
                          0302000157 +            ZR     X2,WVEX     IF NO EXTERNALS                             MAP       215
           122  5110000000 X                      ALLOC  TN.EXT,X2                                               MAP       216
           124  5130000000 X                      SA3    TS.SYM                                                  MAP       217
                          5140000000 X            SA4    TA=NAM                                                  MAP       218
           125  43252                             MX2    L.SYM                                                   MAP       219
                     63510                        SB5    X1          FWA NEW EXTERNAL TABLE                      MAP       220
                          53331                   SA3    X3+B1                                                   MAP       221
                               43173              MX1    -1                                                      MAP       222
           126  6130000003                        =B3    3                                                       MAP       223
                          7100000100              CLAS=  X0,EXT                                                  MAP       224
           127  36441                    WVE52    IX4    X4+X1       DECREMENT COUNT                             MAP       225
                     11703                        BX7    X0*X3                                                   MAP       226
                          5033000002              SA3    A3+2                                                    MAP       227
           130  0334000133 +                      MI     X4,WVE54    IF TABLE EXHAUSTED                          MAP       228
                          0307000127 +            ZR     X7,WVE52    IF NOT EXTERNAL                             MAP       229
           131  55533                             SA5    A3-B3                                                   MAP       230
                     11625                        BX6    X2*X5       MOVE NAME TO EXT TABLE                      MAP       231
                          56650                   SA6    B5                                                      MAP       232
                               66551              SB5    B5+B1                                                   MAP       233
           132  0400000127 +                      EQ     WVE52       LOOP..                                      MAP       234
                                                                                                                 MAP       235
           133  5110000000 X             WVE54    SA1    TN.EXT                                                  MAP       236
                          0100000000 X            RJ     SRT         SORT EXTERNALS TABLE                        FEAT126C   91
           134  5120000000 X                      SA2    TN=EXT                                                  MAP       238
                          6140000360 +            SB4    WVEC                                                    MAP       239
           135  7272000007                        SX7    X2+7                                                    MAP       240
                          5110000000 X            SA1    =XCP.PW                                                 CP139FC   208
           136  7150000010                        SX5    8                                                       FEAT126A  470
                          0301000140 +            ZR     X1,WVE56    IF NOT IN PW MODE                           FEAT126A  471
           137  73110                             SX1    X1                                                      FEAT126A  472
                     23511                        AX5    X1,B1                                                   FEAT126A  473
           140  0100000457 +             WVE56    RJ     LSH         LIST SUB-HEADING                            FEAT126A  474
           141  5110000000 X                      SA1    TN.EXT                                                  MAP       243
                          5120000000 X            SA2    TN=EXT                                                  MAP       244
           142  53510                             SA5    X1                                                      MAP       245
                     63420                        SB4    X2          NUMBER OF EXTERNALS                         MAP       246
                                                                                                                 MAP       247
                                        *         BEGIN NEW LINE.                                                MAP       248
                                                                                                                 MAP       249
           143  5110000000 X             WVE6     SA1    =XCP.PW                                                 CP139FC   209
                          63610                   SB6    X1                                                      FEAT126A  476
           144  5160777776 X                      SA6    LINEBUF-1                                               FEAT126A  477
                          0311000150 +            NZ     X1,WVE7     IF IN PW MODE                               FEAT126A  478
           145  5140000561 +                      SA4    =1H                                                     FEAT126A  479
                          6160000010              SB6    8                                                       FEAT126A  480
           146  10644                             BX6    X4                                                      FEAT126A  481
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     7
                                                                      WVE 
  
                     5066000001                   SA6    A6+1                                                    FEAT126A  482
           147  5066000001                        SA6    A6+1                                                    FEAT126A  483
                                                                                                                 MAP       255
                                        *         BEGIN NEXT ITEM.                                               MAP       256
                                                                                                                 MAP       257
           150  67441                    WVE7     SB4    B4-B1                                                   MAP       258
                     10155                        BX1    X5                                                      MAP       259
                          0740000153 +            MI     B4,WVE8     IF TABLE EXHAUSTED                          MAP       260
           151  67661                             SB6    B6-B1                                                   MAP       261
                     0100000000 X                 RJ     SFN         SPACE FILL NAME                             MAP       262
           152  54661                             SA6    A6+B1                                                   MAP       263
                     54551                        SA5    A5+B1                                                   MAP       264
                          0560000150 +            NZ     B6,WVE7     IF MORE FOR THIS LINE                       MAP       265
           153  13666                    WVE8     BX6    X6-X6                                                   FEAT126A  484
                     54661                        SA6    A6+B1       MARK END OF LINE                            FEAT126A  485
                          6130777776 X            SB3    LINEBUF-1                                               FEAT126A  486
           154  7110000000 X                      PLINE  LINEBUF,A6-B3                                           FEAT126A  487
           156  0704000143 +                      GT     B4,WVE6     IF MORE ENTRIES                             MAP       270
           157                           WVEX     BSS    0           EXIT..                                      MAP       271
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     8
                                                                      WVM 
  
                                        **        OUTPUT SYMBOL AND LABEL MAPS AND X-REFS.                       MAP       273
                                                                                                                 MAP       274
                                                                                                                 MAP       275
           157  0100000477 +                      RJ     PRT         PREPARE REFERENCE TABLES.                   MAP       276
                                                                                                                 MAP       277
                                        **        PROCESS STATEMENT LABELS.                                      MAP       278
                                                                                                                 MAP       279
           160  5120000000 X                      SA2    TS=STN                                                  MAP       280
                          6140000362 +            SB4    WVSA                                                    MAP       281
           161  63720                             SB7    X2                                                      FEAT126A  488
                     0617000174 +                 LE     B7,B1,WVM5  IF NO LABELS                                FEAT126A  489
           162  5110000000 X                      SA1    =XCP.PW                                                 CP139FC   210
                          7272000006              SX7    X2+6                                                    FEAT126A  491
           163  7150000004                        SX5    4                                                       FEAT126A  492
                          0301000166 +            ZR     X1,WVL1     IF NOT IN PW MODE                           FEAT126A  493
           164  7221777775                        SX2    X1-2                                                    FEAT126A  494
                          73321                   SX3    X2+B1       COMPUTE NO. OF ENTRIES/LINE                 FEAT126A  495
                               22413              LX4    X3,B1       CP.PW/3 = (X+1)*5/16 -- X.LT.17             CP139FC   211
           165  20401                             LX4    1                                                       FEAT126A  497
                     36534                        IX5    X3+X4                                                   FEAT126A  498
                          21504                   AX5    4                                                       FEAT126A  499
                               73551              SX5    X5+B1                                                   FEAT126A  500
           166  0100000457 +             WVL1     RJ     LSH         LIST SUB-HEADING                            FEAT126A  501
                                                                                                                 MAP       286
           167  5110000211 +                      SA1    WVS=RJ                                                  MAP       287
                          7160000003              =X6    4-1                                                     MAP       288
           170  5120000000 X                      SA2    =XCP.PW                                                 CP139FC   212
                          0302000173 +            ZR     X2,WVM4     IF NOT IN PW MODE                           FEAT126A  503
           171  7222777775                        SX2    X2-2                                                    FEAT126A  504
                          73321                   SX3    X2+B1       COMPUTE NO. OF ENTRIES PER LINE - 1         FEAT126A  505
                               22413              LX4    X3,B1                                                   FEAT126A  506
           172  20401                             LX4    1                                                       FEAT126A  507
                     36634                        IX6    X3+X4                                                   FEAT126A  508
                          21604                   AX6    4           X6 = WVBT/3                                 FEAT126A  509
           173  0100000213 +             WVM4     RJ     WRM         WRITE REF MAP  (LABEL MAP)                  FEAT126A  510
                                                                                                                 MAP       290
                                        **        PROCESS VARIABLES.                                             MAP       291
                                                                                                                 MAP       292
           174  5120000000 X             WVM5     SA2    TS=SYM                                                  MAP       293
                          6140000365 +            SB4    WVVA                                                    MAP       294
           175  7272000003                        SX7    X2+3                                                    MAP       295
                          63720                   SB7    X2                                                      FEAT126A  511
                               76511              SX5    B1+B1                                                   FEAT126A  512
           176  0617000000 X                      LE     B7,B1,WVMX  IF NO SYMBOLS                               FEAT126A  513
                          5110000000 X            SA1    =XCP.PW                                                 CP139FC   213
           177  0301000200 +                      ZR     X1,WVM6     IF NOT IN PW MODE                           FEAT126A  515
                          76510                   SX5    B1                                                      FEAT126A  516
           200  0100000457 +             WVM6     RJ     LSH         LIST SUB-HEADING                            FEAT126A  517
                                                                                                                 MAP       299
           201  5120000000 X                      SA2    TS.SYM                                                  MAP       300
                          5130000000 X            SA3    TS=SYM                                                  MAP       301
           202  10622                             BX6    X2                                                      MAP       302
                     22703                        LX7    X3                                                      MAP       303
                          5110000212 +            SA1    WVV=RJ                                                  MAP       304
           203  5160000000 X                      SA6    TS.STN      SWITCH TO SYMBOL TABLE                      MAP       305
                          5170000000 X            SA7    TS=STN                                                  MAP       306
           204  76610                             =X6    2-1                                                     MAP       307
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE     9
                                                                      WVM 
  
                     5120000000 X                 SA2    =XCP.PW     IF CP.PW .EQ.0 THEN X6 = 1                  CP139FC   214
           205  0302000207 +                      ZR     X2,WVM7     IF NOT IN PW MODE                           FEAT126A  519
                          7222777765              SX2    X2-10                                                   FEAT126A  520
           206  14322                             BX3    -X2         ELSE IF WVBT .GE. 10 THEN X6=1              FEAT126A  521
                     21373                        AX3    59                                                      FEAT126A  522
                          76210                   SX2    B1          ELSE X6=0                                   FEAT126A  523
                               11632              BX6    X3*X2                                                   FEAT126A  524
           207  0100000213 +             WVM7     RJ     WRM         WRITE REF MAP (SYMBOL MAP)                  FEAT126A  525
           210  0400000412 +                      EQ     LPS         EXIT TO LIST PROGRAM STATISTICS             FEAT155G  412
                                                                                                                 MAP       310
           211  0100000253 +             WVS=RJ   RJ     WVS                                                     MAP       311
           212  0100000275 +             WVV=RJ   RJ     WVV                                                     MAP       312
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    10
                                                                      WRM 
  
                                        **        WRM -  WRITE REFERENCE MAP.                                    MAP       314
                                        *                                                                        MAP       315
                                        *         ENTRY  (TS STN) = POINTERS TO TABLE TO PROCESS.                MAP       316
                                        *                (X1) = RETURN JUMP TO FORMATTER INSTRUCTION.            MAP       317
                                        *                (X6) = NUMBER MINUS ONE OF ENTRIES PER LINE, IN NON-REF MAP       318
                                        *                       MODE.  WILL ALWAYS BE SET TO ONE IF REF MAP ON.  MAP       319
                                        *         USES   ALL BUT A0.                                             MAP       320
                                                                                                                 MAP       321
                                                                                                                 MAP       322
           213  0400400213 +             WRM      SUBR               ENTRY/EXIT...                               MAP       323
           214  5120000000 X                      SA2    LOP=R                                                   MAP       324
                          10711                   BX7    X1                                                      MAP       325
                               21273              AX2    -1          -0 IF REF ON, ELSE +0                       MAP       326
           215  5170000225 +                      SA7    WRM.RJ                                                  MAP       327
                          15362                   BX3    -X2*X6      +0          ,      (X6)                     MAP       328
                               73631              =X6    X3+1         1          ,      (X6)+1                   MAP       329
           216  5160000000 X                      SA6    SCR         SET ENTRIES PER LINE                        MAP       330
                          0100000217 +            RJ     WRM2-1      VOID STACK                                  FCCA597     4
           217  0000000000               +        PS                                                             FCCA597     5
                                                                                                                 MAP       331
           220  5130000000 X             WRM2     SA3    SCR         FETCH ENTRIES PER LINE                      MAP       332
                          6150000000 X            SB5    LINEBUF                                                 MAP       333
           221  10633                             BX6    X3                                                      MAP       334
                     5140000561 +                 SA4    =1H                                                     MAP       335
                               54631              =A6    A3+1        RESET LOOP COUNT                            MAP       336
                                                                                                                 MAP       337
           222  5110000000 X             WRM4     SA1    TS=STN                                                  MAP       338
                          5120000000 X            SA2    TS.STN                                                  MAP       339
           223  76011                             =X0    2                                                       MAP       340
                     36620                        IX6    X2+X0                                                   MAP       341
                          53520                   SA5    X2          FETCH TABLE ENTRY                           MAP       342
                               37710              IX7    X1-X0       DECREMENT LENGTH OF TABLE                   MAP       343
           224  54620                             SA6    A2                                                      MAP       344
                     0301000235 +                 ZR     X1,WRM6     IF TABLE EXHAUSTED                          MAP       345
                               54710              SA7    A1                                                      MAP       346
           225  0100000000               WRM.RJ   RJ     **          FORMAT SYM OR LAB FOR LISTING               MAP       348
           226  5120000001 X                      SA2    SCR+1                                                   MAP       349
                          7272777776              SX7    X2-1        DECREMENT LOOP COUNT                        MAP       350
           227  54720                             SA7    A2                                                      MAP       351
                     0317000222 +                 NZ     X7,WRM4     IF MORE FOR THIS LINE                       MAP       352
                               55551              =A5    A5-1                                                    MAP       353
           230  5110000000 X                      SA1    =XCP.PW                                                 CP139FC   215
                          73550                   SX5    X5                                                      MAP       356
           231  6120000014 X                      SB2    LINEBUF+12                                              FEAT126A  527
                          67625                   SB6    B2-B5                                                   FEAT126A  528
           232  0301000234 +                      ZR     X1,WRM5     IF NOT IN PW MODE                           FEAT126A  529
                          6221000000 X            SB2    LINEBUF+X1                                              FEAT126A  530
           233  67625                             SB6    B2-B5                                                   FEAT126A  531
                     0460000235 +                 EQ     B6,WRM6     IF LINE FILLED                              FEAT126A  532
                                                                                                                 MAP       357
           234  0100000401 +             WRM5     RJ     FXR         FORMAT X-REF                                MAP       358
           235  5110000000 X             WRM6     SA1    =XCP.PW                                                 CP139FC   216
                          0301000240 +            ZR     X1,WRM6A    IF NOT IN PW MODE                           FEAT126A  534
           236  57251                             SA2    B5-B1                                                   FEAT126A  535
                     37024                        IX0    X2-X4                                                   FEAT126A  536
                          0310000240 +            NZ     X0,WRM6A    IF WORD NOT BLANK                           FEAT126A  537
           237  67551                             SB5    B5-B1                                                   FEAT126A  538
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    11
                                                                      + 
  
                     0400000235 +                 EQ     WRM6                                                    FEAT126A  539
                                                                                                                 FEAT126A  540
           240  43600                    WRM6A    MX6    0                                                       FEAT126A  541
                     56650                        SA6    B5          MARK END OF LINE                            FEAT126A  542
                          6130777776 X            SB3    LINEBUF-1                                               FEAT126A  543
           241  7110000000 X                      PLINE  LINEBUF,B5-B3                                           FEAT126A  544
           243  5110000561 +                      SA1    =1H                                                     MAP       363
                          5130000000 X            SA3    =XCP.PW                                                 CP139FC   217
           244  22601                             LX6    X1                                                      FEAT126A  546
                     6150000005 X                 SB5    LINEBUF+5                                               FEAT126A  547
           245  5160000000 X                      SA6    LINEBUF                                                 FEAT126A  548
                          6160000007              SB6    7                                                       FEAT126A  549
           246  0303000250 +                      ZR     X3,WRM7     IF NOT IN PW MODE                           FEAT126A  550
                          6150000001 X            SB5    LINEBUF+1                                               FEAT126A  551
           247  6263777776                        =B6    X3-1                                                    FEAT126A  552
                          0400000251 +            EQ     WRM8                                                    FEAT126A  553
                                                                                                                 FEAT126A  554
           250  57651                    WRM7     =A6    B5-1        BLANK LINEBUF+4                             FEAT126A  555
                     55661                        =A6    A6-1        BLANK LINBUF+3                              MAP       368
                          55661                   =A6    A6-1        BLANK LINBUF+2                              MAP       369
                               55661              =A6    A6-1        BLANK LINBUF+1                              MAP       370
           251  0315000234 +             WRM8     NZ     X5,WRM5     IF (MORE) REF CHAIN                         FEAT126A  556
                                                                                                                 MAP       373
                          5120000000 X            SA2    TS=STN                                                  MAP       374
           252  0312000220 +                      NZ     X2,WRM2     IF TABLE NOT EXHAUSTED                      MAP       375
                          0400000213 +            EQ     EXIT.                                                   MAP       376
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    12
                                                                      WVS 
  
                                        **        WVS -  FORMAT STATEMENT LABEL FOR MAP.                         MAP       378
                                        *                                                                        MAP       379
                                        *         ENTRY  (B5) _ FWA TO STORE.                                    MAP       380
                                        *                (A5) _ TS.STN ENTRY TO PROCESS.                         MAP       381
                                        *                (X5) = ((A5))                                           MAP       382
                                        *                (X4) = 10H                                              MAP       383
                                        *                                                                        MAP       384
                                        *         EXIT   (B5) _ LAST ADDRESS + 1 STORED INTO.                    MAP       385
                                        *                (X4) PRESERVED.                                         MAP       386
                                                                                                                 MAP       387
                                                                                                                 MAP       388
           253  0400400253 +             WVS      SUBR               ENTRY/EXIT...                               MAP       389
           254  5110000000 X                      SA1    =XCP.PW                                                 CP139FC   218
                          6120000000 X            SB2    LINEBUF                                                 FEAT126A  558
           255  21522                             AX5    P.STN                                                   FEAT126A  559
                     10744                        BX7    X4                                                      FEAT126A  560
                          0301000257 +            ZR     X1,WVS30    IF NOT IN PW MODE                           FEAT126A  561
           256  0452000260 +                      EQ     B5,B2,WVS32 IF AT BEGINNING OF LINE                     FEAT126A  562
           257  56750                    WVS30    SA7    B5                                                      FEAT126A  563
                     66551                        SB5    B5+B1                                                   FEAT126A  564
           260  0100000000 X             WVS32    RJ     LJS         LEFT JUSTIFY STATEMENT LABEL                FEAT126A  565
           261  54551                             =A5    A5+1        FETCH TAG ENTRY                             MAP       394
                     20666                        LX6    -CHAR                                                   MAP       395
                          13111                   BX1    0                                                       MAP       396
                               20563              IFBIT  X5,-SNFMT,WVS34                                         MAP       397
                          7110000053              SX1    1RF&1R                                                  MAP       398
           263  20573                    WVS34    IFBIT  X5,-SNDOT/SNFMT,WVS36                                   MAP       399
           264  7110000051                        SX1    1RD&1R                                                  MAP       400
           265  20507                    WVS36    IFBIT  X5,-SNINA/SNDOT,WVS38                                   MAP       401
           266  7211004400                        SX1    X1+2RI &2R                                              MAP       402
           267  13661                    WVS38    BX6    X6-X1                                                   MAP       403
                     56650                        SA6    B5                                                      FEAT126A  566
                                                                                                                 MAP       405
                                        **        CONVERT AND FORMAT ADDRESS.                                    MAP       406
                                                                                                                 MAP       407
                          20547                   LX5    P.SNINA+1-P.SNAD                                        MAP       408
                               73150              SX1    X5                                                      MAP       409
           270  0100000000 X                      PIA                CONVERT ADDRESS TO DPC                      FEAT126C   92
           271  43100                             MX1    0                                                       MAP       411
                     20526                        IFBIT  X5,SNDEF/SNAD-1,WVS42                                   MAP       412
           272  7110003000                        SX1    2R  -2RU                                                MAP       413
           273  37661                    WVS42    IX6    X6-X1                                                   MAP       414
                     20660                        LX6    -2*CHAR                                                 MAP       415
                          54661                   =A6    A6+1                                                    MAP       416
                               64561              =B5    A6+1                                                    MAP       417
           274  0400000253 +                      EQ     EXIT.                                                   MAP       418
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    13
                                                                      WVV 
  
                                        **        WVV -  OUTPUT VARIABLE ASSIGNMENTS.                            MAP       420
                                        *                                                                        MAP       421
                                        *         ENTRY  (B5) _ FWA TO STORE.                                    MAP       422
                                        *                (A5) _ TS.SYM ENTRY TO PROCESS.                         MAP       423
                                        *                (X5) = ((A5))                                           MAP       424
                                        *                (X4) = 10H                                              MAP       425
                                        *                                                                        MAP       426
                                        *         EXIT   (B5) _ LAST ADDRESS + 1 STORED INTO.                    MAP       427
                                        *                (X4) PRESERVED.                                         MAP       428
                                                                                                                 MAP       429
                                                                                                                 MAP       430
           275  0400400275 +             WVV      SUBR               ENTRY/EXIT...                               MAP       431
           276  73150                             SX1    X5                                                      MAP       432
                     13151                        BX1    X5-X1                                                   MAP       433
                          54551                   =A5    A5+1        FETCH TAG ENTRY                             MAP       434
           277  0100000000 X                      RJ     SFN         G000ABCDEF                                  MAP       435
           300  20630                             LX6    4*CHAR      DEFG000ABC                                  MAP       436
                     10155                        BX1    X5                                                      MAP       437
                          73760                   SX7    X6                                                      MAP       438
                               43271              MX2    -L.MODE                                                 MAP       439
           301  37667                             IX6    X6-X7                                                   MAP       440
                     15052                        BX0    -X2*X5                                                  MAP       441
                          5120000566 +            SA2    =7L                                                     MAP       442
           302  20544                             LX5    -P.PNT                                                  MAP       443
                     5230000371 +                 SA3    X0+WVVC     FETCH *TYPE* LETTER                         MAP       444
                               12727              BX7    X2+X7                                                   MAP       445
           303  36663                             IX6    X6+X3                                                   MAP       446
                     43057                        MX0    -L.PNT                                                  MAP       447
                          15250                   BX2    -X0*X5      ISOLATE TP.DIM ORDINAL                      MAP       448
                               63320              SB3    X2                                                      MAP       449
           304  21153                             AX1    P.TAG+1                                                 MAP       450
                     5120000000 X                 SA2    TA.NAM                                                  MAP       451
           305  6271677777                        SB7    X1-C.VAR/2  ORDINAL OF ENTRY IN ADDRESS TABLE           MAP       452
                          56750                   SA7    B5                                                      MAP       453
                               10055              BX0    X5                                                      MAP       454
           306  20523                             IFBIT  X5,-FP/PNT-1,WVV32                                      MAP       455
           307  7110000054                        SX1    1RA&1R                                                  MAP       456
                          13661                   BX6    X6-X1                                                   MAP       457
           310  20564                    WVV32    IFBIT  X5,VAR/FP,WVV4                                          MAP       458
                                                                                                                 MAP       459
                                        **        HANDLE NON-VARIABLES HERE.                                     MAP       460
                                                                                                                 MAP       461
                               20012              IFBIT  X0,-NVAR/PNT-1,WVV42                                    MAP       462
                          54671                   =A6    A7+1                                                    MAP       463
                               20572              IFBIT  X5,-RP/VAR,WVV33  IF NOT RETURNS PARAMETER              MAP       464
                          5130000013 X            SA3    CLASS+P.RP-P.DEF                                        MAP       465
           313  20517                             LX5    P.RP+1      RESTORE (X5)                                MAP       466
                     10644                        BX6    X4                                                      MAP       467
                          0400000324 +            EQ     WVV34                                                   MAP       468
           314  20517                    WVV33    LX5    P.RP+1      RESTORE (X5)                                MAP       469
                     7110007740                   CLAS=  X1,(INLINE,ASF,SUB,BEF,FUN,EXT,ENT)                     MAP       470
                               20010              SBIT   X0,ENT/NVAR                                             MAP       471
           315  11715                             BX7    X1*X5                                                   MAP       472
                     0317000321 +                 NZ     X7,WVV33A   IF ONE OF ABOVE CLASSES                     FCC0524     3
           316  7110001000                        SX1    M.NLST                                                  FCC0524     4
                          11115                   BX1    X1*X5                                                   FCC0524     5
           317  0311000321 +                      NZ     X1,WVV33A   IF NAMELIST                                 FCC0524     6
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    14
                                                                      WVV 
  
                                                                                                                 FCC0524     7
                                        **        LIST NO CLASSES IF NO CLASS BIT ON.  THIS INCLUDES CASE OF     FCC0524     8
                                        *         FILE NAME WHEN LINKAGE SUPPRESSED (*SYSEDIT* PARAMETER).       FCC0524     9
                                                                                                                 FCC0524    10
                          22604                   LX6    X4                                                      FCC0524    11
                               10744              BX7    X4          KIND OF NVAR = BLANK                        FCC0524    12
           320  0400000331 +                      EQ     WVV38                                                   FCC0524    13
                                                                                                                 FCC0524    14
           321  24127                    WVV33A   NX1,B2 X7                                                      FCC0524    15
                     6130000052 X                 SB3    CLASS-P.CLASS2+47                                       MAP       474
           322  6133000000 X                      SB3    B3+L.CL                                                 MAP       475
                          57332                   SA3    B3-B2                                                   MAP       476
                               10644              BX6    X4                                                      MAP       477
           323  0320000325 +                      PL     X0,WVV35    IF NOT ENTRY POINT                          MAP       478
           324  53227                    WVV34    SA2    X2+B7       FETCH ADDRESS TABLE ENTRY                   MAP       479
                     73120                        SX1    X2                                                      MAP       480
                          0100000000 X            PIA                CONVERT ADDRESS TO DPC                      FEAT126C   93
                                                                                                                 MAP       482
           325  20666                    WVV35    LX6    -CHAR                                                   MAP       483
                     7120000100                   SX2    1S6                                                     MAP       484
                               11123              BX1    X2*X3                                                   MAP       485
           326  0301000330 +                      ZR     X1,WVV37    IF NO WEIRD CHARACTER                       MAP       486
                          43266                   MX2    -CHAR                                                   MAP       487
           327  7110000055                        SX1    1R                                                      MAP       488
                          11323                   BX3    X2*X3       REMOVE WEIRD CHARACTER                      MAP       489
                                                                                                                 MAP       490
           330  12731                    WVV37    BX7    X3+X1                                                   MAP       491
                                                                                                                 FCC0524    16
           331  54661                    WVV38    =A6    A6+1        = ADDRESS                                   FCC0524    17
                     54761                        =A7    A6+1        BLOCK = KIND OF NVAR                        MAP       493
                          10644                   BX6    X4                                                      MAP       494
                               54671              =A6    A7+1        ARY LEN = BLANK                             MAP       495
           332  64561                             =B5    A6+1                                                    MAP       496
                     0400000275 +                 EQ     EXIT.                                                   MAP       497
                                                                                                                 MAP       498
                                        **        CONVERT AND FORMAT ADDRESS+/BLOCK/.                            MAP       499
                                                                                                                 MAP       500
           333  20015                    WVV4     IFBIT  X0,-EQUIV/PNT-1,WVV42                                   MAP       501
           334  7110000035                        SX1    1R#&1R                                                  MAP       502
                          13661                   BX6    X6-X1                                                   MAP       503
           335  54671                    WVV42    =A6    A7+1                                                    MAP       504
                     53327                        SA3    X2+B7       FETCH ADDRESS TABLE ENTRY                   MAP       505
                          73130                   SX1    X3                                                      MAP       506
                               20344              LX3    -P.BLOCK                                                MAP       507
           336  0100000000 X                      PIA                CONVERT ADDRESS TO DPC                      FEAT126C   94
           337  13111                             BX1    0                                                       FCC1495AX   9
                     20511                        IFBIT  X5,DEF/VAR,WVV44  IF DEFINED                            FCC1495AX  10
           340  22005                             LX0    X5                                                      FCC1495AX  11
                     20073                        IFBIT  X0,FP/DEF,WVV44  IF FORMAL PARAMETER                    FCC1495AX  12
           341  7110000070                        SX1    1RU&1R                                                  MAP       512
           342  13661                    WVV44    BX6    X6-X1                                                   MAP       513
                     20666                        LX6    -CHAR                                                   MAP       514
                          5110000000 X            SA1    TS.BLK                                                  MAP       515
           343  54661                             =A6    A6+1                                                    MAP       516
                     36031                        IX0    X3+X1                                                   MAP       517
                          5110000000 X            SA1    TP.DIM                                                  MAP       518
           344  53200                             SA2    X0          FETCH BLOCK NAME                            MAP       519
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    15
                                                                      WVV 
  
                     43044                        MX0    -L.DIMLG                                                MAP       520
                          10722                   BX7    X2                                                      MAP       521
                               53213              SA2    X1+B3       FIRST DIM WORD                              MAP       522
           345  54761                             =A7    A6+1                                                    MAP       523
                                                                                                                 MAP       524
                                        **        FORMAT ARRAY SIZE.                                             MAP       525
                                                                                                                 MAP       526
                     10644                        BX6    X4                                                      MAP       527
                          20567                   IFBIT  X5,-ARY/DEF,WVV5                                        MAP       528
                          20236                   LX2    -P.DIMLG                                                MAP       529
                               15120              BX1    -X0*X2                                                  MAP       530
                                                  SBIT   X2,VDIM/DIMLG-1                                         MAP       531
           347  0322000351 +                      PL     X2,WVV46    IF NOT VARIABLY DIMENSIONED                 MAP       532
                          5120000567 +            SA2    =10HVAR-DIM                                             MAP       533
           350  10622                             BX6    X2                                                      MAP       534
                     0400000353 +                 EQ     WVV5                                                    MAP       535
                                                                                                                 MAP       536
           351  0100000000 X             WVV46    RJ     CDD         CONVERT DECIMAL DIGITS (ARRAY LENGTH)       MAP       537
           352  6122777711                        SB2    B2-9*CHAR                                               MAP       538
                          54440                   SA4    A4                                                      MAP       539
                               23626              AX6    B2          LEFT JUSTIFY                                MAP       540
                                                                                                                 MAP       541
           353  54671                    WVV5     =A6    A7+1                                                    MAP       542
                     64561                        =B5    A6+1                                                    MAP       543
                          0400000275 +            EQ     EXIT.                                                   MAP       544
                                                                                                                 MAP       545
                                                                                                                 MAP       546
           354  55464603171515171655     WVBA     DATA   18C --COMMON BLOCKS--                                   FEAT155H  123
           356  55464605162422315520     WVEA     DATA   17C --ENTRY POINTS--                                    FEAT155H  124
           360  55464605302405221601     WVEC     DATA   14C --EXTERNALS--                                       FEAT155H  125
           362  55464623240124051505     WVSA     DATA   21C --STATEMENT LABELS--                                FEAT155H  126
           365  55464626012211010214     WVVA     DATA   17C --VARIABLE MAP--                                    FEAT155H  127
           367                     2     WVBD     BSS    2           TEMP HOLDING FOR NUM OF BLOCKS              FEAT126A  574
                                                                                                                 MAP       557
           371                           WVVC     BSS    0           *TYPE* LETTERS                              MAP       558
      L      0                                    LOC    M.UNIV                                                  MAP       559
      L      0  00000000000000465555              DATA   3R-                                                     MAP       560
      L      1  00000000000000145555              DATA   3RL                                                     MAP       561
      L      2  00000000000000115555              DATA   3RI                                                     MAP       562
      L      3  00000000000000225555              DATA   3RR                                                     MAP       563
      L      4  00000000000000045555              DATA   3RD                                                     MAP       564
      L      5  00000000000000325555              DATA   3RZ                                                     MAP       565
      L      6  00000000000000165555              DATA   3RN                                                     MAP       566
      L      7  00000000000000555555              DATA   3R                                                      MAP       567
           401                                    LOC    *O                                                      MAP       568
  
  
  
  
                                        **        FXR -  FORMAT CROSS REFERENCES.                                MAP       909
                                        *                                                                        MAP       910
                                        *         ENTRY  (X5) = LINK TO REFERENCE CHAIN.                         MAP       911
                                        *                (B5) _ FWA TO STORE.                                    MAP       912
                                        *                (B6) = LIMIT ON NUMBER OF REFS.                         MAP       913
                                        *                                                                        MAP       914
                                        *         EXIT   (B5) _ LWA+1 STORED INTO.                               MAP       915
                                        *                (X5) = NEXT LINK.                                       MAP       916
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    16
                                                                      FXR 
  
                                        *                                                                        MAP       917
                                        *         USES   ALL BUT A0.                                             MAP       918
                                        *         WILL NOT MOVE TABLES.                                          MAP       919
                                                                                                                 MAP       920
                                                                                                                 MAP       921
           401  0400400401 +             FXR      SUBR               ENTRY/EXIT...                               MAP       922
           402  5110000000 X                      SA1    TT.REF                                                  MAP       923
                          73550                   SX5    X5          ISOLATE LINK                                MAP       924
                               63410              SB4    X1          (B4) = FWA REFS                             MAP       925
                                                                                                                 MAP       926
           403  0305000401 +             FXR2     ZR     X5,EXIT.    IF END OF THIS REFERENCE CHAIN              MAP       927
                          53554                   SA5    X5+B4       FETCH A REFERENCE                           MAP       928
                               43066              MX0    -L.CRUSE                                                MAP       929
           404  15750                             BX7    -X0*X5      ISOLATE USAGE LETTER                        MAP       930
                     21506                        AX5    P.CRLIN                                                 MAP       931
                          43046                   MX0    -L.CRLIN                                                MAP       932
                               15150              BX1    -X0*X5      ISOLATE LINE NUMBER                         MAP       933
           405  0100000000 X                      RJ     CDD         CONVERT LINE NUMBER                         MAP       934
           406  43366                             MX3    54                                                      FEAT155E  315
                     20614                        LX6    2*CHAR                                                  MAP       936
                          11436                   BX4    X3*X6                                                   FEAT155E  316
                               36774              IX7    X7+X4       -----/LL U                                  MAP       938
           407  21544                             AX5    P.TAG-P.CRLIN                                           MAP       939
                     73550                        SX5    X5          ISOLATE LINK TO NEXT                        MAP       940
                          56750                   SA7    B5          STORE FORMATTED REFERENCE                   MAP       941
                               66551              =B5    B5+1                                                    MAP       942
           410  67661                             =B6    B6-1                                                    MAP       943
                     0706000403 +                 GT     B6,FXR2     IF LINE NOT FULL                            MAP       944
           411  0400000401 +                      EQ     EXIT.                                                   MAP       945
  
  
  
  
                                        **        LPS - LIST PROGRAM-UNIT STATISTICS.                            FEAT126A  647
                                        *                                                                        FEAT126A  648
                                        *         ENTRY  NONE                                                    FEAT155G  413
                                        *         EXIT INTO *END*                                                FEAT126A  650
                                                                                                                 FEAT126A  651
                                                                                                                 FEAT126A  652
           412                           LPS      BSS    0           ENTRY                                       FEAT126A  653
           412  76710                             SX7    B1                                                      FEAT155E  317
                     7120000000 X                 SX2    =XHDRBL                                                 FEAT155E  318
                               20736              LX7    30                                                      FEAT155E  319
           413  12772                             BX7    X7+X2                                                   FEAT155E  320
                     5170000000 X                 SA7    =XO.STITL   RESET SUBTITLE                              FEAT155E  321
           414  5110000561 +                      SA1    =1H                                                     FEAT126A  659
                          10611                   BX6    X1                                                      FEAT155H  128
           415  5160000001 X                      SA6    LINEBUF+1                                               FEAT126A  664
                                                                                                                 FEAT126A  665
                                        **        PREPARE STATISTICS                                             FEAT126A  666
                          5110000000 X            SA1    FAILSFT                                                 FCC0813    87
           416  0311000000 X                      NZ     X1,WVMX     IF TABLES CRUMBLED RETURN TO END            FEAT155G  414
                                                                                                                 MAP      1044
                          5110000000 X            SA1    LOSTREF                                                 MAP      1050
           417  0100000000 X                      RJ     CDD         CONVERT NUMBER OF REFENCENCES               MAP      1051
           420  20606                             LX6    CHAR                                                    MAP      1052
                     5160000447 +                 SA6    LPS.RF                                                  MAP      1053
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    17
                                                                      LPS 
  
                                                                                                                 MAP      1054
           421  5130000000 X                      SA3    LCNT                                                    FEAT126A  671
                          5110000000 X            SA1    LCP.PS                                                  FCCA422    53
           422  37731                             IX7    X3-X1                                                   FEAT155E  323
                     6227000006                   SB2    X7+ENDLINES                                             FEAT155E  324
           423  0720000424 +                      MI     B2,LPS2     IF SUFFICIENT ROOM LEFT ON THIS PAGE        FEAT126A  673
                          73711                   =X7    X1+1                                                    FEAT155E  325
                               54730              SA7    A3                                                      FEAT126A  675
           424  5110000000 X             LPS2     SA1    =XCP.PW                                                 CP139FC   219
                          0301000433 +            ZR     X1,LPS4     IF NOT IN PW MODE                           FEAT126A  677
           425  7110000442 +                      PLINE  LPSD,5,3                                                FEAT126A  681
           427  5110000000 X                      SA1    LOP=R                                                   FCC1200    32
                          0321000000 X            PL     X1,WVMX     EXIT                                        FCC1200    33
           430  7110000447 +                      PLINE  LPS.RF,2                                                FEAT155G  415
           432  0400000000 X                      EQ     =XWVMX      EXIT TO END                                 FEAT155G  416
                                                                                                                 FEAT155G  417
           433  5110000000 X             LPS4     SA1    LOP=R                                                   FEAT155G  418
                          7120000005              SX2    5                                                       FEAT155G  419
           434  0321000437 +                      PL     X1,LPS5     IF SHORT MAP                                FEAT155G  420
                          7120005555              SX2    2R                                                      FEAT155G  421
           435  5110000446 +                      SA1    LPS.R0                                                  FEAT155G  422
                          12612                   BX6    X1+X2                                                   FEAT155G  423
                               54610              SA6    A1                                                      FEAT155G  424
           436  7120000010                        SX2    8                                                       FEAT155G  425
           437  7110000442 +             LPS5     PLINE  LPSD,X2,3                                               FEAT126A  700
           441  0400000000 X                      EQ     =XWVMX      EXIT TO END                                 FEAT155G  426
                                                                                                                 FEAT155G  427
                                         TEST     IFNE   TEST,0                                                  FEAT155G  428
                                         ENDLINES EQU    12                                                      FEAT155G  429
                                         TEST     ELSE                                                           FEAT155G  430
                                   6     ENDLINES EQU    6                                                       FEAT155G  431
                                         TEST     ENDIF                                                          FEAT155G  432
                                                                                                                 FEAT155G  433
           442                           LPSD     BSS    0                                                       MAP      1094
           442  55555555551625141455     LPS.PL   DIS    1,     NULL                                             FEAT155E  326
           443  20221707220115462516              DIS    2,PROGRAM-UNIT LENGTH                                   MAP      1096
           445  51162255233115235255     LPS.SY   DIS    1,(NR SYMS)                                             MAP      1099
           446  55233115021714230000     LPS.R0   DIS    ,/ SYMBOLS/ END OF STATISTICS (R.LT.2)                  FEAT155G  434
           447  51242454220506525555     LPS.RF   DIS    1,(TT=REF)                                              MAP      1101
           450  22050605220516030523              DIS    1,REFERENCES                                            MAP      1102
           451  00000000000000000000              CON    0           LINE TERMINATOR                             FEAT155G  435
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    18
                                                                      LSH 
  
                                        **        LSH -  LIST SUB HEADING.                                       MAP      1114
                                        *                                                                        MAP      1115
                                        *         SETS UP NEW SUB-TITLE, AND THEN TRIES TO LIST 4 BLANK LINES,   MAP      1116
                                        *                THE NEW SUB-HEADING, AND 2 MORE BLANKS.  IF THIS WOULD  MAP      1117
                                        *                LEAVE LESS THAN (X7) USABLE LINES REMAINING ON THE      MAP      1118
                                        *                PAGE, NO PRINTING TAKES PLACE BUT AN EJECT IS FORCED.   MAP      1119
                                        *         ENTRY  (B4) _ FWA NEW SUB-TITLE (-C- FORMAT).                  MAP      1120
                                        *                (X5) = NUMBER OF ENTRIES PER LINE                       FEAT126A  728
                                        *                (X7) = NUMBER OF ENTRIES                                FEAT126A  729
                                        *         EXIT   (B4) PRESERVED.                                         MAP      1122
                                        *                (X2) = OUA.                                             MAP      1123
                                        *                SUB-TITLE RESET.                                        MAP      1124
                                        *         IF (X7)  \ EJECT, WILL ALWAYS CAUSE PAGE EJECT.                MAP      1129
                                        *         IF (X7) @ -7, WILL NEVER PAGE EJECT.                           MAP      1130
                                        *                                                                        MAP      1131
                                        *         USES A1-A4,A6,A7  X5  B2,B3,B5-B7                              FEAT126A  730
                                        *         CALLS  WRITEC, WRITEW.                                         MAP      1133
                                                                                                                 MAP      1134
                                                                                                                 MAP      1135
           452  5110000000 X             LSH8     SA1    LCP.PS                                                  FCCA422    54
                          73611                   =X6    X1+1                                                    FEAT155E  328
           453  5160000000 X                      SA6    LCNT                                                    MAP      1140
                          0304000457 +            ZR     X4,LSHX     IF NOT IN PW MODE                           FEAT126A  731
           454  76140                             PLINE  B4,B3                                                   FEAT155H  129
           455  13111                             PLINE  ,,2                                                     FEAT126A  733
                                                                                                                 MAP      1141
           457  0400400457 +             LSH      SUBR   X           ENTRY/EXIT..                                MAP      1142
           460  5130000000 X                      SA3    LCNT                                                    MAP      1144
                          43414                   MX4    12                                                      FEAT155H  130
                               76611              SX6    B1+B1                                                   FEAT155H  131
           461  56141                             SA1    B4+B1                                                   FEAT155H  132
                     20414                        LX4    12                                                      FEAT155H  133
                          11441                   BX4    X4*X1                                                   FEAT155H  134
           462  0304000463 +                      ZR     X4,LSH3     IF NOT LONG SUBTITLE                        FEAT155H  135
                          73661                   SX6    X6+B1                                                   FEAT155H  136
           463  63360                    LSH3     SB3    X6                                                      FEAT155H  137
                     20636                        LX6    30                                                      FEAT155H  138
                          76140                   SX1    B4                                                      FEAT155H  139
                               36661              IX6    X6+X1                                                   FEAT155H  140
           464  5160000000 X                      SA6    =XO.STITL                                               FEAT155H  141
                          5140000000 X            SA4    =XCP.PW                                                 CP139FC   220
           465  5120000000 X                      SA2     LCP.PS                                                 FCCA422    55
                          37132                   IX1    X3-X2                                                   FEAT155E  330
           466  6261000012                        SB6    X1+10                                                   FEAT155E  331
                          0760000472 +            MI     B6,LSH4     IF MORE THAN 10 LINES REMAINING ON PAGE     FEAT126A  736
           467  27107                             PX1    X7                                                      FEAT126A  737
                     27505                        PX5    X5                                                      FEAT126A  738
                          24101                   NX1    X1                                                      FEAT126A  739
                               24505              NX5    X5                                                      FEAT126A  740
           470  44115                             FX1    X1/X5                                                   FEAT126A  741
                     26101                        UX1    X1                                                      FEAT126A  742
                          36713                   IX7    X1+X3                                                   FEAT126A  743
                               37672              IX6    X7-X2                                                   FEAT155E  332
           471  6276000006                        SB7    X6+6                                                    FEAT155E  333
                          0670000452 +            PL     B7,LSH8     IF TABLE WILL NOT FIT ON PAGE               FEAT126AA  16
           472  76140                    LSH4     PLINE  B4,B3,2                                                 FEAT155H  142
           474  13111                             PLINE  ,,1                                                     FEAT126A  753
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    19
                                                                      LSH 
  
           476  0400000457 +                      EQ     LSHX        EXIT..                                      MAP      1169
  
  
  
  
                                        **        PRT -  PREPARE REFERENCE TABLE.                                MAP      1171
                                        *                                                                        MAP      1172
                                        *                                                                        MAP      1173
                                        *         EXIT   REFERENCE LINKS SET UP (IF SELECTED).                   MAP      1174
                                        *                TABLES SQUEEZED AND SORTED.                             MAP      1175
                                        *                                                                        MAP      1176
                                        *         USES   ALL BUT A0.                                             MAP      1177
                                        *         CALLS  PST.                                                    MAP      1178
                                                                                                                 MAP      1179
                                                                                                                 MAP      1180
           477  0400400477 +             PRT      SUBR               ENTRY/EXIT...                               MAP      1181
           500  5110000000 X                      SA1    LOP=R                                                   MAP      1182
                          7160000005              =X6    PASS=MAP                                                MAP      1183
           501  0321000520 +                      PL     X1,PRT2     IF REF-MAP NOT SELECTED                     MAP      1184
                          5160000000 X            SA6    PASS                                                    MAP      1185
           502  5130000000 X                      SA3    REFIO                                                   MAP      1186
                          0303000520 +            ZR     X3,PRT2     IF TABLE IN CORE                            MAP      1187
                                                                                                                 MAP      1188
                                        **        READ REFERENCE TABLE BACK INTO CORE                            MAP      1189
                                                                                                                 MAP      1190
           503  76040                             SX0    B4          SAVE (B4)                                   MAP      1191
                     7120000000 X                 WRITER F.RMAP                                                  MAP      1192
           505  7120000000 X                      REWIND F.RMAP                                                  MAP      1193
           507  63400                             SB4    X0          RESTORE (B4)                                MAP      1194
                     5120000000 X                 SA2    LOSTREF                                                 MAP      1195
           510  5110000000 X                      ALLOC  TT.REF,X2                                               MAP      1196
                                                                                                                 MAP      1197
                                                  IFNE   CP#RM,7,1                                               MAP      1198
           512  7120000000 X                      READ   F.RMAP                                                  MAP      1199
                                                                                                                 MAP      1200
           514  5110000000 X                      SA1    TT.REF                                                  MAP      1201
                          5130000000 X            SA3    TT=REF                                                  MAP      1202
           515  76040                             SX0    B4          SAVE (B4)                                   MAP      1203
                     63610                        READW  F.RMAP,X1,X3                                            MAP      1204
           517  63400                             SB4    X0          RESTORE (B4)                                MAP      1205
                                                                                                                 MAP      1206
                                        **        PRE-LOAD REGISTERS, AND CLEAR LINKS FROM SYMBOL AND LABEL      MAP      1207
                                        *                TABLES.                                                 MAP      1208
                                                                                                                 MAP      1209
           520  5110000000 X             PRT2     SA1    TS.SYM                                                  MAP      1210
                          7160000004              =X6    PASS=END                                                MAP      1211
           521  5160000000 X                      SA6    PASS                                                    MAP      1212
                          5120000000 X            SA2    TS.STN                                                  MAP      1213
           522  5140000000 X                      SA4    TS=SYM                                                  MAP      1214
                          53310                   SA3    X1                                                      MAP      1215
                               63510              SB5    X1          (B5) = FWA SYMBOL TABLE                     MAP      1216
           523  63620                             SB6    X2          (B6) = FWA LABEL  TABLE                     MAP      1217
                     43052                        MX0    L.SYM                                                   MAP      1218
                          66211                   =B2    2                                                       MAP      1219
                               63740              SB7    X4          LENGTH SYM TAB                              MAP      1220
           524  11603                             BX6    X0*X3                                                   MAP      1221
                                                                                                                 MAP      1222
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    20
                                                                      PRT 
  
           525  54630                    PRT23    SA6    A3          CLEAR LINKS FROM SYM TAB                    MAP      1223
                     54332                        SA3    A3+B2                                                   MAP      1224
                          67772                   SB7    B7-B2                                                   MAP      1225
                               11603              BX6    X0*X3                                                   MAP      1226
           526  0670000525 +                      PL     B7,PRT23                                                MAP      1227
                                                                                                                 MAP      1228
                          56360                   SA3    B6                                                      MAP      1229
           527  5150000000 X                      SA5    TS=STN                                                  MAP      1230
                          63750                   SB7    X5          LENGTH LAB TAB                              MAP      1231
                               11603              BX6    X0*X3                                                   MAP      1232
                                                                                                                 MAP      1233
           530  54630                    PRT26    SA6    A3          CLEAR LINKS FROM LAB TAB                    MAP      1234
                     54332                        SA3    A3+B2                                                   MAP      1235
                          67772                   SB7    B7-B2                                                   MAP      1236
                               11603              BX6    X0*X3                                                   MAP      1237
           531  0670000530 +                      PL     B7,PRT26                                                MAP      1238
                                                                                                                 MAP      1239
                                        **        LINK SYMBOLS AND LABELS INTO  THE REFERENCES.                  MAP      1240
                                                                                                                 MAP      1241
                          5110000000 X            SA1    TT=REF      (X1) = LEN REF TABLE                        MAP      1242
           532  5140000000 X                      SA4    TT.REF                                                  MAP      1243
                          0301000543 +            ZR     X1,PRT5     IF REF TABLE EMPTY                          MAP      1244
           533  73611                             =X6    X1+1                                                    MAP      1245
                     7274777776                   =X7    X4-1                                                    MAP      1246
                               63470              SB4    X7                                                      MAP      1247
           534  43022                             MX0    L.TAG                                                   MAP      1248
                     54610                        SA6    A1                                                      MAP      1249
                          6170537776              SB7    -C.STAT-1                                               MAP      1250
           535  54740                             SA7    A4          FAKE UP INITIAL ENTRY, TO PREVENT ZERO LINK MAP      1251
                     6155040000                   SB5    B5+C.STAT-C.VAR                                         MAP      1252
                               53514              SA5    B4+X1                                                   MAP      1253
                                                                                                                 MAP      1254
                                         SNAP=R   IFNE   TEST        DMP REFERENCE TABLE                         MAP      1255
                                                  SA3    CO.SNAP                                                 MAP      1256
                                                  LX3    1RR                                                     MAP      1257
                                                  PL     X3,PRT3S    IF REFERENCE SNAP NOT SELECTED              MAP      1258
                                                  DUMPT  (TT.REF)                                                MAP      1259
                                         PRT3S    BSS    0                                                       MAP      1260
                                         SNAP=R   ENDIF                                                          MAP      1261
                                                                                                                 MAP      1262
           536  15650                    PRT4     BX6    -X0*X5                                                  MAP      1263
                     20522                        LX5    -P.TAG                                                  MAP      1264
                          73357                   SX3    X5+B7                                                   MAP      1265
                               63336              SB3    X3+B6                                                   MAP      1266
           537  0323000540 +                      PL     X3,PRT42    IF LABEL                                    MAP      1267
                          63335                   SB3    X3+B5                                                   MAP      1268
           540  56230                    PRT42    SA2    B3          FETCH SYMBOL OR LABEL                       MAP      1269
                     73420                        SX4    X2          ISOLATE SYM LINK                            MAP      1270
                          13324                   BX3    X2-X4                                                   MAP      1271
                               20452              LX4    P.TAG                                                   MAP      1272
           541  55551                             =A5    A5-1                                                    MAP      1273
                     36664                        IX6    X6+X4       LINK THIS REF TO PREVIOUS CHAIN             MAP      1274
                          12731                   BX7    X3+X1       SYM/LAB LINKS TO THIS REF                   MAP      1275
                               53614              SA6    B4+X1                                                   MAP      1276
           542  75154                             SX1    A5-B4       (X1) = (X1) - 1                             MAP      1277
                     54720                        SA7    A2                                                      MAP      1278
                          0311000536 +            NZ     X1,PRT4     IF MORE REFERENCES                          MAP      1279
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    21
                                                                      PRT 
  
                                                                                                                 MAP      1280
                                        **        SQUEEZE OUT EMPTY ENTRIES, AND SORT THE TABLES.                MAP      1281
                                                                                                                 MAP      1282
           543  5110000000 X             PRT5     SA1    TS.STN                                                  MAP      1283
                          0100000551 +            RJ     PST         SQUEEZE AND SORT                            MAP      1284
                                                                                                                 MAP      1285
           544  5110000000 X                      SA1    TS.SYM                                                  MAP      1286
                          0100000551 +            RJ     PST         SQUEEZE AND SORT                            MAP      1287
                                                                                                                 MAP      1288
           545  5130000000 X                      SA3    TS=SYM                                                  MAP      1289
                          5120000000 X            SA2    TS=STN                                                  MAP      1290
           546  36023                             IX0    X2+X3                                                   MAP      1291
                     23110                        AX1    X0,B1                                                   MAP      1292
                          0100000000 X            RJ     CDD         CONVERT NUMBER OF SYMBOLS                   MAP      1293
           547  5160000445 +                      SA6    LPS.SY                                                  MAP      1294
                                                                                                                 MAP      1295
                                         SNAP=R   IFNE   TEST        DUMP REFERENCE TABLE                        MAP      1296
                                                  SA3    CO.SNAP                                                 MAP      1297
                                                  LX3    1RR                                                     MAP      1298
                                                  PL     X3,PRT5S    IF REFERENCE SNAP NOT SELECTED              MAP      1299
                                                  DUMPT  (TS.STN,TS.SYM)                                         MAP      1300
                                         PRT5S    BSS    0                                                       MAP      1301
                                         SNAP=R   ENDIF                                                          MAP      1302
                          0400000477 +            EQ     EXIT.                                                   MAP      1303
  
  
  
  
                                        **        PST -  PREPARE REFERENCE TABLE.                                MAP      1305
                                        *                                                                        MAP      1306
                                        *         ENTRY  (A1) _ TABLE TO BE PREPARED (TS.SYM OR TS.STN).         MAP      1307
                                        *                (X1) = ((A1))                                           MAP      1308
                                        *                                                                        MAP      1309
                                        *         EXIT   TABLE SQUEEZED AND SORTED.                              MAP      1310
                                        *                                                                        MAP      1311
                                        *         USES   ALL BUT A0.                                             MAP      1312
                                        *         CALLS  DSRT.                                                   MAP      1313
                                                                                                                 MAP      1314
                                                                                                                 MAP      1315
           550  10755                    PST4     BX7    X5                                                      MAP      1316
                     54720                        SA7    A2          RESET TABLE LENGTH                          MAP      1317
                          0100000000 X            RJ     DSRT                                                    MAP      1318
                                                                                                                 MAP      1319
           551  0400400551 +             PST      SUBR               ENTRY/EXIT...                               MAP      1320
           552  5021000000 X                      SA2    A1+N.TABLE                                              MAP      1321
                          76011                   =X0    2                                                       MAP      1322
                               66211              =B2    2                                                       MAP      1323
           553  5231777775                        SA3    X1-2                                                    MAP      1324
                          63720                   SB7    X2                                                      MAP      1325
                               10633              BX6    X3                                                      MAP      1326
           554  43500                             MX5    0                                                       MAP      1327
                     54630                        SA6    A3                                                      MAP      1328
                                                                                                                 MAP      1329
           555  54332                    PST3     SA3    A3+B2                                                   MAP      1330
                     0470000550 +                 ZR     B7,PST4     IF TABLE EXHAUSTED                          MAP      1331
                               67772              SB7    B7-B2                                                   MAP      1332
           556  0303000555 +                      ZR     X3,PST3    IF NULL ENTRY, AVOID..                       MAP      1333
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    22
                                                                      PST 
  
                          54431                   SA4    A3+B1                                                   MAP      1334
                               10633              BX6    X3                                                      MAP      1335
           557  36550                             IX5    X5+X0       COUNT VALID ENTRIES                         MAP      1336
                     22704                        LX7    X4                                                      MAP      1337
                          54662                   SA6    A6+B2                                                   MAP      1338
                               54761              SA7    A6+B1                                                   MAP      1339
           560  0400000555 +                      EQ     PST3       LOOP..                                       MAP      1340
  
  
  
  
                                                  LIST   D                                                       MAP      1418
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        CP.BLF
             0 X                        ALC 
             0 X                        CP.PW 
             0 X                        BLNKCOM 
             0 X                        HDRBL 
             0 X                        CIO=
             0 X                        RDW=
  
                                        CONTENT OF LITERALS BLOCK.
  
           561  55555555555555555555
           562  55555555555555555550             /
           563  40404040404040404040    5555555555
           564  50505050505050505050    //////////
           565  50505555555555555555    //
           566  55555555555555000000
           567  26012246041115555555    VAR-DIM 
  
           570                           FIN.OL   END                END OF (1,0) OVERLAY WHEN OBJECT LIST OFF   FEAT155G  436
  
                             55200B CM  STORAGE USED             2099 STATEMENTS      881 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.555 SECONDS         528 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*       2/43      3/50      6/13     19/31
        BLNKCOM         0   EXTERNAL*       3/12      3/45
        CDD             0   EXTERNAL*       1/47 X   15/18     16/18     16/55     21/14
        CHAR            6   TSTEXT          3/22      3/39     12/43     14/19     14/52     16/20
                                            3/34     12/23     13/17     14/23     15/19     16/56
        CIO=            0   EXTERNAL*      19/27     19/28     19/34
        CLASS           0   EXTERNAL*       1/56 X   13/46     14/10
        COD             0   EXTERNAL*       1/47 X    4/25      5/52     12/38     14/17     14/45
        CO.SNAP         0   EXTERNAL*       1/44 X
        CP.BLF          0   EXTERNAL*       2/31
        CP.PW           0   EXTERNAL*       2/57      5/11      6/51      8/45     10/52     17/09
                                            4/04      5/25      8/12      9/01     11/08     18/41
                                            4/10      6/38      8/27     10/42     12/13
        CP#RM           0   TSTEXT         19/33 F
        C.STAT     240000   TSTEXT         20/28     20/30
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    23
        SYMBOLIC REFERENCE TABLE. 
  
        C.VAR      200000   TSTEXT         13/33     20/30
        DSRT            0   EXTERNAL*       2/05 X    3/57     21/42
        ENDLINES        6                  17/05     17/31 D
        FAILSFT         0   EXTERNAL*       1/47 X    2/23     16/51
        FIN.OL        570   PROGRAM*        1/41 E   22/13 L
        FXR           401   PROGRAM*       10/51     16/06 L
        FXR2          403   PROGRAM*       16/11 L   16/28
        F.RMAP          0   EXTERNAL*       1/44 X   19/27     19/28     19/34     19/34     19/39
        HDRBL           0   EXTERNAL*      16/42
        LCNT            0   EXTERNAL*       1/47 X    2/35 S   17/02     18/22 S   18/28
        LCP.PS          0   EXTERNAL*       1/44 X    2/33     17/03     18/20     18/42
        LINEBUF         0   EXTERNAL*       1/47 X    4/38      6/03      7/17     10/47     11/10     12/14
                                            4/08      5/26      6/53 S   10/22     11/05     11/11 S   16/48 S
                                            4/37      6/02      7/16     10/44     11/06     11/14
        LJS             0   EXTERNAL*       1/53 X   12/21
        LOP=R           0   EXTERNAL*       1/44 X   10/11     17/12     17/17     19/17
        LOSTREF         0   EXTERNAL*       1/47 X   16/54     19/30
        LPS           412   PROGRAM*        9/09     16/40 L
        LPSD          442   PROGRAM*       17/11     17/25     17/34 L
        LPS2          424   PROGRAM*       17/06     17/09 L
        LPS4          433   PROGRAM*       17/10     17/17 L
        LPS5          437   PROGRAM*       17/19     17/25 L
        LPS.PL        442   PROGRAM*        1/41 E   17/35 L
        LPS.RF        447   PROGRAM*       16/57 S   17/14     17/39 L
        LPS.R0        446   PROGRAM*       17/21     17/38 L
        LPS.SY        445   PROGRAM*       17/37 L   21/15 S
        LSH           457   PROGRAM*        3/08      5/16      6/43      8/23      8/48     18/27 L
        LSHX          457   PROGRAM*       18/23     18/27 D   19/01
        LSH3          463   PROGRAM*       18/34     18/36 L
        LSH4          472   PROGRAM*       18/45     18/56 L
        LSH8          452   PROGRAM*       18/20 L   18/55
        L.BLEN         30   TSTEXT          4/23
        L.CL            0   EXTERNAL*       1/56 X   14/11
        L.CRLIN        26   TSTEXT         16/16
        L.CRUSE         6   TSTEXT         16/13
        L.DIMLG        30   TSTEXT         15/01
        L.MODE          3   TSTEXT         13/20
        L.PNT          15   TSTEXT         13/28
        L.SYM          52   TSTEXT          6/16     19/53
        L.TAG          22   TSTEXT         20/26
        MVE             0   EXTERNAL*       2/05 X    3/55
        M.ASF        2000   TSTEXT         13/51
        M.BEF         400   TSTEXT         13/51
        M.ENT          40   TSTEXT         13/51
        M.EXT         100   TSTEXT          6/21     13/51
        M.FUN         200   TSTEXT         13/51
        M.INLINE     4000   TSTEXT         13/51
        M.NLST       1000   TSTEXT         13/55
        M.SUB        1000   TSTEXT         13/51
        M.UNIV          0   TSTEXT         15/36
        NREXT           0   EXTERNAL*       1/48 X    6/08
        N.TABLE         0   EXTERNAL*       1/48 X   21/45
        O.STITL         0   EXTERNAL*       1/44 X   16/45 S   18/40 S
        PASS            0   EXTERNAL*       1/48 X   19/20 S   19/47 S
        PASS=END        4   TSTEXT         19/46
        PASS=MAP        5   TSTEXT         19/18
        PRT           477   PROGRAM*        8/04     19/16 L
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    24
        SYMBOLIC REFERENCE TABLE. 
  
        PRT2          520   PROGRAM*       19/19     19/22     19/45 L
        PRT23         525   PROGRAM*       20/01 L   20/05
        PRT26         530   PROGRAM*       20/12 L   20/16
        PRT4          536   PROGRAM*       20/41 L   20/57
        PRT42         540   PROGRAM*       20/45     20/47 L
        PRT5          543   PROGRAM*       20/22     21/04 L
        PST           551   PROGRAM*       21/05     21/08     21/44 L
        PST3          555   PROGRAM*       21/54 L   21/57     22/07
        PST4          550   PROGRAM*       21/40 L   21/55
        P.             73   TSTEXT         12/25
        P.ARY          10   TSTEXT         15/09
        P.BLOCK        30   TSTEXT         14/44
        P.CLASS2        5   TSTEXT         14/10
        P.CRLIN         6   TSTEXT         16/15     16/23
        P.DEF           3   TSTEXT         13/46     14/47     14/49     15/09
        P.DIMLG        36   TSTEXT         15/10
        P.ENT           5   TSTEXT         13/52
        P.EQUIV        12   TSTEXT         14/38
        P.FP            4   TSTEXT         13/36     13/39     14/49
        P.NVAR         15   TSTEXT         13/43     13/52
        P.PNT          30   TSTEXT         13/24     13/36     13/43     14/38
        P.RP           16   TSTEXT         13/45     13/46     13/47     13/50
        P.SNAD         30   TSTEXT         12/36     12/40
        P.SNDEF         1   TSTEXT         12/40
        P.SNDOT        11   TSTEXT         12/27     12/29
        P.SNFMT        10   TSTEXT         12/25     12/27
        P.SNINA         2   TSTEXT         12/29     12/36
        P.STN          22   TSTEXT         12/15
        P.TAG          52   TSTEXT         13/31     16/23     20/42     20/50
        P.VAR          14   TSTEXT         13/39     13/45     14/47
        RDW=            0   EXTERNAL*      19/39
        REFIO           0   EXTERNAL*       1/48 X   19/21
        SCR             0   EXTERNAL*       2/11 X   10/17 S   10/21     10/37
        SFN             0   EXTERNAL*       1/53 X    5/48      7/10     13/16
        SRT             0   EXTERNAL*       2/05 X    5/05      6/34
        TA=NAM          0   EXTERNAL*       1/52 X    6/15
        TA.NAM          0   EXTERNAL*       1/52 X    5/24     13/32
        TEST            0   TSTEXT         17/28 F   20/33 F   21/17 F
        TN=BLK          0   EXTERNAL*       1/48 X    4/41      4/41 S
        TN=EXT          0   EXTERNAL*       1/52 X    6/11      6/11 S    6/35      6/45
        TN.BLK          0   EXTERNAL*       1/49 X    3/50      3/56      4/01
        TN.EXT          0   EXTERNAL*       1/49 X    6/13      6/33      6/44
        TP.DIM          0   EXTERNAL*       1/49 X   14/56
        TS=BLK          0   EXTERNAL*       1/50 X    2/46
        TS=ENT          0   EXTERNAL*       1/50 X    5/06      5/18      6/09      6/09 S
        TS=STN          0   EXTERNAL*       1/48 X    8/08      8/56 S   10/27     11/24     20/08     21/11
        TS=SYM          0   EXTERNAL*       1/50 X    8/39      8/51     19/49     21/10
        TS.BLK          0   EXTERNAL*       1/50 X    2/43      2/45      3/53     14/53
        TS.ENT          0   EXTERNAL*       1/51 X    5/04      5/17
        TS.STN          0   EXTERNAL*       1/51 X    8/55 S   10/28     19/48     21/04
        TS.SYM          0   EXTERNAL*       1/51 X    6/14      8/50     19/45     21/07
        TT=REF          0   EXTERNAL*       1/51 X   19/37     20/20
        TT.REF          0   EXTERNAL*       1/51 X   16/07     19/31     19/31     19/36     20/21
        WBL             0   EXTERNAL*       2/08 X   17/11     17/25     18/25     18/56     18/57
        WOF             0   EXTERNAL*       2/08 X    4/38      6/03      7/17     11/06     17/14     18/24
        WRM           213   PROGRAM*        8/35      9/08     10/10 L
        WRM2          220   PROGRAM*       10/18     10/21 L   11/25
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    25
        SYMBOLIC REFERENCE TABLE. 
  
        WRM4          222   PROGRAM*       10/27 L   10/40
        WRM5          234   PROGRAM*       10/46     10/51 L   11/22
        WRM6          235   PROGRAM*       10/34     10/49     10/52 L   11/01
        WRM6A         240   PROGRAM*       10/53     10/56     11/03 L
        WRM7          250   PROGRAM*       11/13     11/18 L
        WRM8          251   PROGRAM*       11/16     11/22 L
        WRM.RJ        225   PROGRAM*       10/14 S   10/36 L
        WVB             4   PROGRAM*        2/32      2/43 L
        WVBA          354   PROGRAM*        2/54     15/28 L
        WVBD          367   PROGRAM*        1/41 E    2/55 S    3/13      3/44     15/33 L
        WVBX           64   PROGRAM*        3/01      4/41 L
        WVB1A          17   PROGRAM*        3/05      3/08 L
        WVB2           25   PROGRAM*        3/25 L    3/42
        WVB3           32   PROGRAM*        3/26      3/41 L
        WVB3A          36   PROGRAM*        3/46      3/50 L
        WVB4           46   PROGRAM*        4/06      4/08 L    4/39
        WVB5           52   PROGRAM*        4/05      4/13      4/18 L
        WVB5A          53   PROGRAM*        4/07      4/16      4/21 L
        WVB6           60   PROGRAM*        4/31      4/32      4/35 L
        WVE            65   PROGRAM*        5/04 L
        WVEA          356   PROGRAM*        5/09     15/29 L
        WVEC          360   PROGRAM*        6/36     15/30 L
        WVEX          157   PROGRAM*        6/12      7/19 L
        WVE1           73   PROGRAM*        5/14      5/16 L
        WVE2           76   PROGRAM*        5/24 L    6/04
        WVE3          103   PROGRAM*        5/32      5/38 L    5/55
        WVE3A         106   PROGRAM*        5/41      5/45 L
        WVE4          113   PROGRAM*        5/40      5/57 L
        WVE5          117   PROGRAM*        5/08      6/08 L
        WVE52         127   PROGRAM*        6/22 L    6/26      6/31
        WVE54         133   PROGRAM*        6/25      6/33 L
        WVE56         140   PROGRAM*        6/40      6/43 L
        WVE6          143   PROGRAM*        6/51 L    7/18
        WVE7          150   PROGRAM*        6/54      7/06 L    7/13
        WVE8          153   PROGRAM*        7/08      7/14 L
        WVL1          166   PROGRAM*        8/15      8/23 L
        WVM             0   PROGRAM*        1/41 E    2/22 L
        WVMX            0   EXTERNAL*       2/02 X    2/24      8/44     16/52     17/13     17/15     17/26
        WVM4          173   PROGRAM*        8/28      8/35 L
        WVM5          174   PROGRAM*        8/11      8/39 L
        WVM6          200   PROGRAM*        8/46      8/48 L
        WVM7          207   PROGRAM*        9/02      9/08 L
        WVS           253   PROGRAM*        9/11     12/12 L
        WVSA          362   PROGRAM*        8/09     15/31 L
        WVS30         257   PROGRAM*       12/17     12/19 L
        WVS32         260   PROGRAM*       12/18     12/21 L
        WVS34         263   PROGRAM*       12/25     12/27 L
        WVS36         265   PROGRAM*       12/27     12/29 L
        WVS38         267   PROGRAM*       12/29     12/31 L
        WVS42         273   PROGRAM*       12/40     12/42 L
        WVS=RJ        211   PROGRAM*        8/25      9/11 L
        WVV           275   PROGRAM*        9/12     13/12 L
        WVVA          365   PROGRAM*        8/40     15/32 L
        WVVC          371   PROGRAM*       13/25     15/35 L
        WVV32         310   PROGRAM*       13/36     13/39 L
        WVV33         314   PROGRAM*       13/45     13/50 L
        WVV33A        321   PROGRAM*       13/54     13/57     14/09 L
1       /MAP  LISTING ROUTINES -- PASS 2 = MAP.                       COMPASS 3.7-871.     24/05/02. 15.53.16.      PAGE    26
        SYMBOLIC REFERENCE TABLE. 
  
        WVV34         324   PROGRAM*       13/49     14/15 L
        WVV35         325   PROGRAM*       14/14     14/19 L
        WVV37         330   PROGRAM*       14/22     14/27 L
        WVV38         331   PROGRAM*       14/07     14/29 L
        WVV4          333   PROGRAM*       13/39     14/38 L
        WVV42         335   PROGRAM*       13/43     14/38     14/41 L
        WVV44         342   PROGRAM*       14/47     14/49     14/51 L
        WVV46         351   PROGRAM*       15/13     15/18 L
        WVV5          353   PROGRAM*       15/09     15/16     15/23 L
        WVV=RJ        212   PROGRAM*        8/54      9/12 L
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      622              IDENT  LIST 
                        622              FIN      END    FTN10       END OF (1,0) OVERLAY WHEN OBJECT LIST IS 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       610 
                                        LITERALS* LOCAL         610        12 
  
  
                                        ENTRY POINTS. 
  
                                        FIN            622+           PID            132+           WCL            262+ 
                                        PFD             76+           PIK            137+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        LINEBUF   CO.ER     PIK=XJP   BA.PRO    TP.APL    TP=APL    BA.CON    PIDX
                                        TS.SYM    LOP=O     PIK=BL    N.BLK     TA.PRO    TG.VDIM   WOD       PFDX
                                        TS.STN    LPS.PL    PIK=PI    LCP.PS    ALC       BA.TEM    WBL       COD 
                                        SFN       IDENT     PIK=PS    LCNT      TT.SCR    TEM.MAX   WVBD      FFN 
                                        LOCAL     PIK=TAG   PIKX      FAILSFT   TT=SCR    BA.FMT    CP.PW     T.FILE
                                        COMSIZ    PIK=I     WOF       NARGS     TG.APL    TP=FMT    TS=CON    CO.TBK
                                        MOD       PIK=J     WCLX      SRT       BA.APL    TP.FMT    TS.CON
  
  
  
  
                                                  IDENT  LIST                                                    LIST        2
                                         LIST     SECT   (LISTING ROUTINES -- PASS 1 = OBJECT CODE.),1           LIST        3
  
                                                                                                                 LIST        4
                                                  SST    B,D,EXIT.                                               LIST        5
                                                  NOREF  B,D,EXIT.                                               LIST        6
                                                                                                                 LIST        7
                                         B=LIST   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     LIST        8
                                                                                                                 LIST        9
                                                  ENTRY  FIN,PFD,PID,PIK,WCL                                     FEAT155G  437
                                                                                                                 LIST       11
                                        *         IN TABLES                                                      LIST       15
                                                  EXT    LINEBUF,TS.SYM,TS.STN                                   LIST       16
                                                  EXT    SFN                                                     FEAT155G  438
                                                  EXT    LOCAL,COMSIZ,MOD                                        FEAT155G  439
                                        *         IN FTN                                                         FEAT155G  440
                                                  EXT    CO.ER,LOP=O                                             FEAT155G  441
                                        *         IN MAP                                                         FEAT155G  442
                                                  EXT    LPS.PL                                                  FEAT155G  443
                                        *         IN ALLOC                                                       FEAT155G  444
                                                  EXT    IDENT                                                   FEAT155G  445
                                                                                                                 LIST       17
                                        *         IN PIG                                                         LIST       18
                                                  EXT    PIK=TAG,PIK=I,PIK=J,PIK=XJP,PIK=BL,PIK=PI,PIK=PS,PIKX   LIST       19
                                                                                                                 LIST       20
                                        *         IN MAIN                                                        LIST       24
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     2
  
  
                                                  EXT    WOF                                                     LIST       25
                                                                                                                 LIST       26
  
  
  
  
                                        **        KIT -  KONVERT INTERNAL TAG (TO DPC)                           LIST       28
                                        *         CONVERTS COMPILER-INVENTED TAGS (L, I, T, C, + F) TO HUMAN-    LIST       29
                                        *                READABLE FORM.                                          LIST       30
                                        *         ENTRY  X3 = TAG (R-JUST)                                       LIST       31
                                        *         EXIT   X6 = DPC TAG (0L FORMAT) OF AT MOST 7 CHARACTERS        LIST       32
                                        *                            *T.NNNNN*                                   LIST       33
                                        *                              *NNNNN* = DPC ORDINAL, LEADING ZERO SUPP  LIST       34
                                        *                            *T*       = TAG-TYPE LETTER                 LIST       35
                                        *                X0 = 7                                                  LIST       36
                                        *         USES   A3  X1,X2                                               LIST       37
                                                                                                                 LIST       38
                                                                                                                 LIST       39
             0  0400400000 +             KIT      SUBR               ENTRY/EXIT...                               LIST       40
             1  43157                             MX1    -L.PWF                                                  LIST       41
                     76600                        SX6    B0                                                      LIST       42
                          15131                   BX1    -X1*X3      ISOLATE ORDINAL                             LIST       43
                               21315              AX3    L.PWF         AND TYPE                                  LIST       44
             2  5233777775 +                      SA3    X3+KITA-C.BASE/1S13                                     LIST       45
                          7100000007              SX0    7                                                       LIST       46
             3  11201                    KIT1     BX2    X0*X1       ISOLATE LOWEST OCTAL DIGIT                  LIST       47
                     21103                        AX1    3                                                       LIST       48
                          7222000033              SX2    X2+1R0                                                  LIST       49
             4  12662                             BX6    X6+X2                                                   LIST       50
                     20666                        LX6    -6                                                      LIST       51
                          0311000003 +            NZ     X1,KIT1     IF NUMBER NOT FINISHED                      LIST       52
             5  12663                             BX6    X6+X3                                                   LIST       53
                     20660                        LX6    -2*6                                                    LIST       54
                          0400000000 +            EQ     EXIT.                                                   LIST       55
                                                                                                                 LIST       56
             6  00000000000000002657     KITA     DATA   2RV.        20  VARIABLE                                LIST       57
             7  00000000000000002654              DATA   2RV=        22  VARIABLE (MORE)                         LIST       58
            10  00000000000000001657              DATA   2RN.        24  STATEMENT LABEL                         LIST       59
            11  00000000000000001457              DATA   2RL.        26  INVENTED LABEL                          LIST       60
            12  00000000000000002657              DATA   2RV.        30  VAR-DIM                                 LIST       61
            13  00000000000000002457              DATA   2RT.        32  TEMP/IND                                LIST       62
            14  00000000000000000357              DATA   2RC.        34  CONSTANT                                LIST       63
            15  00000000000000004757              DATA   2R*.        36  **** TEMP ****                          LIST       64
            16  00000000000000004754              DATA   2R*=        40  **** TEMP ****                          LIST       65
  
  
  
  
                                        **        KNT -  KONVERT *N* TAG TO DPC                                  LIST       67
                                        *         ENTRY  X3 = N-TAG (R-JUST)                                     LIST       68
                                        *         EXIT   X6 = DPC STATEMENT LABEL (0L FORMAT) WITH A PERIOD      LIST       69
                                        *                            ADDED AS THE FIRST CHARACTER.               LIST       70
                                        *                            AT MOST 6 CHARACTERS.                       LIST       71
                                        *         USES   A1  X2  B7                                              LIST       72
                                                                                                                 LIST       73
                                                                                                                 LIST       74
            17  0400400017 +             KNT      SUBR               ENTRY/EXIT...                               LIST       75
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     3
                                                                      KNT 
  
            20  5110000000 X                      SA1    TS.STN                                                  LIST       76
                          6273537776              SB7    X3-C.STAT-1                                             LIST       77
            21  53117                             SA1    X1+B7       FETCH TS.STAT ENTRY                         LIST       78
                     43206                        MX2    6                                                       LIST       79
                          21122                   AX1    P.STN       DISCARD LOW-ORDER GARBAGE                   LIST       80
            22  11621                    KNT1     BX6    X2*X1       ISOLATE LEADING CHARACTER                   LIST       81
                     20106                        LX1    6                                                       LIST       82
                          0306000022 +            ZR     X6,KNT1     IF NO SIGNIFICANT CHARACTER YET             LIST       83
            23  7120005700                        SX2    2R.*-1R*                                                LIST       84
                          12612                   BX6    X1+X2                                                   LIST       85
                               20660              LX6    -2*6                                                    LIST       86
            24  0400000017 +                      EQ     EXIT.                                                   LIST       87
  
  
  
  
                                        **        KTX -  KONVERT TAG TO EXTERNAL FORMAT                          LIST       89
                                        *         SIMILIAR TO *KIT*, BUT CONVERTS TO A PROGRAMMER SYMBOL WHERE   LIST       90
                                        *                POSSIBLE.                                               LIST       91
                                        *         ENTRY  (X3) = TAG (R-JUST, ZERO FILL)                          LIST       92
                                        *         EXIT   (X6) = DPC CONVERSION (L-JUST, ZERO FILL, 9 CHAR MAX)   LIST       93
                                        *                (X0) = 7.                                               LIST       94
                                        *         USES   A1,A2,A3,A6  B2,B7  X0,X4,X6                            LIST       95
                                                                                                                 LIST       96
                                                                                                                 LIST       97
            25  0400400025 +             KTX      SUBR               ENTRY/EXIT...                               LIST       98
            26  20357                             LX3    -L.PWF                                                  LIST       99
                     7100000007                   SX0    7                                                       LIST      100
            27  6273777767                        SB7    X3-C.BASE/1S13                                          LIST      101
                          7223777760              SX2    X3-C.END/1S13-1                                         LIST      102
            30  20315                             LX3    L.PWF       RESTORE X3                                  LIST      103
                     10633                        BX6    X3                                                      LIST      104
                          0770000063 +            MI     B7,KTXK     IF SHORT CONSTANT (POSITIVE)                LIST      105
            31  0322000063 +                      PL     X2,KTXK     IF SHORT CONSTANT (NEGATIVE)                LIST      106
                                                                                                                 LIST      107
                          0277000032 +            JP     B7+*+1                                                  LIST      108
                                        *                       2 2 2 2 3 3 3 3 4                                LIST      109
                                        *                       0 2 4 6 0 2 4 6 0                                LIST      110
                                                  ECHO   1,TYP=(V,V,N,L,A,T,C,Z,Z)                               LIST      111
                                                  EQ     KTX_TYP                                                 LIST      112
                                                                                                                 LIST      113
                                        *         CONVERT AN INTERNAL TAG                                        LIST      114
                                                                                                                 LIST      115
            43                           KTXZ     BSS    0           **** TEMP ****                              LIST      116
            43                           KTXL     BSS    0           26                                          LIST      117
            43                           KTXC     BSS    0           34                                          LIST      118
            43                           KTXA     BSS    0           30                                          LIST      119
            43  0100000000 +                      RJ     KIT         KONVERT INVENTED TAG                        LIST      120
            44  0400000025 +                      EQ     EXIT.       EXIT..                                      LIST      121
                                                                                                                 LIST      122
                                                                                                                 LIST      123
                                        **        CONVERT INDIRECT/TEMP TAGS   (30)                              LIST      124
                                        *                PREFIX THEM WITH *=S*.                                  LIST      125
                                                                                                                 LIST      126
                                                                                                                 LIST      127
            45                           KTXT     BSS    0           (30)                                        LIST      128
            45  0100000000 +                      RJ     KIT         KONVERT INTERNAL TAG                        LIST      129
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     4
                                                                      KTX 
  
            46  7140005423                        SX4    2R=S                                                    LIST      130
                          12664                   BX6    X6+X4                                                   LIST      131
                               20660              LX6    -2*CHAR                                                 LIST      132
            47  0400000025 +                      EQ     EXIT.       EXIT..                                      LIST      133
                                                                                                                 LIST      134
                                                                                                                 LIST      135
                                        **        CONVERT VARIABLE TAG         (20, 22)                          LIST      136
                                        *                WILL PREFIX TAG WITH *=X* IF *EXT* BIT IS SET IN THE    LIST      137
                                        *                SYMBOL TABLE ENTRY.                                     LIST      138
                                                                                                                 LIST      139
                                                                                                                 LIST      140
            50  5110000000 X             KTXV     SA1    TS.SYM                                                  LIST      141
                          6226577776              SB2    X6-C.SYM-1  ORDINAL OF TAG                              LIST      142
            51  43252                             MX2    L.SYM                                                   LIST      143
                     53312                        SA3    X1+B2                                                   LIST      144
                          11623                   BX6    X2*X3      SYMBOL                                       LIST      145
                               54231              SA2    A3+B1       TAG                                         LIST      146
            52  20265                             IFBIT  X2,-EXT,EXIT.                                           LIST      147
            53  5110000000 X                      SA1    =XCO.TBK                                                FCC1163     4
                          20272                   IFBIT  X2,-BEF/EXT,KTXV1  IF NOT BEF                           FCC1163     5
                          0331000057 +            MI     X1,KTXV1    IF TRACEBACK ON                             FCC1163     6
            55  43063                             MX0    -L.JPADF                                                FCC1163     7
                     20252                        SBIT   X2,JPADF/BEF+1                                          FCC1163     8
                          15220                   BX2    -X0*X2                                                  FCC1163     9
                               63720              SB7    X2                                                      FCC1163    10
            56  7110000057                        SX1    1R"EXT"                                                 FCC1163    11
                          22271                   LX2    X1,B7                                                   FCC1163    12
                               12662              BX6    X6+X2       APPEND SPECIAL CHARACTER                    FCC1163    13
            57  7110005430               KTXV1    SX1    2R=X                                                    FCC1163    14
                          12616                   BX6    X1+X6                                                   LIST      149
                               20660              LX6    -2*CHAR     PREFIX EXTERNALS WITH *=X*                  LIST      150
            60  0400000025 +                      EQ     EXIT.       EXIT..                                      LIST      151
                                                                                                                 LIST      152
                                                                                                                 LIST      153
                                        **        CONVERT STATEMENT LABEL TAG  (24).                             LIST      154
                                                                                                                 LIST      155
                                                                                                                 LIST      156
            61  0100000017 +             KTXN     RJ     KNT         KONVERT *N* TAG                             LIST      157
            62  0400000025 +                      EQ     EXIT.       EXIT..                                      LIST      158
                                                                                                                 LIST      159
                                                                                                                 LIST      160
                                        **        CONVERT SHORT CONSTANTS      (0-17,42-77)                      LIST      161
                                                                                                                 LIST      162
                                                                                                                 LIST      163
            63  20352                    KTXK     LX3    -18         SIGN EXTEND                                 LIST      164
                     21352                        AX3    -18                                                     LIST      165
                          0100000065 +            RJ     KTY         CONVERT SHORT CONSTANT                      LIST      166
            64  0400000025 +                      EQ     EXIT.                                                   LIST      167
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     5
                                                                      KTY 
  
                                        **        KTY -  CONVERT SHORT CONSTANTS FOR OBJECT LIST.                LIST      169
                                        *                                                                        LIST      170
                                        *                                                                        LIST      171
                                        *         ENTRY  (X3) = CONSTANT, RIGHT JUSTIFIED IN BITS (23-00).       LIST      172
                                        *                       IF BIT (2**23) IS SET, CONSTANT IS ASSUMED TO BE LIST      173
                                        *                       NEGATIVE, AND CONVERSION WILL HAVE A LEADING     LIST      174
                                        *                       MINUS SIGN.                                      LIST      175
                                        *                (X0) = 7.                                               LIST      176
                                        *                                                                        LIST      177
                                        *         EXIT   (X6) = DPC CONVERSION (0L FORMAT).  WILL HAVE A         LIST      178
                                        *                       TRAILING *B* SUFFIX IF ABSOLUTE VALUE OF         LIST      179
                                        *                       THE CONSTANT IS .GT. EIGHT.                      LIST      180
                                        *                (X3) .LT.0 IF CONSTANT WAS NEGATIVE.                    LIST      181
                                        *                (X0) = 7.                                               LIST      182
                                        *                                                                        LIST      183
                                        *         USES   X1-X3,X6                                                LIST      184
                                                                                                                 LIST      185
                                                                                                                 LIST      186
            65  0400400065 +             KTY      SUBR               ENTRY/EXIT...                               LIST      187
            66  20352                             LX3    -L.LBIAS                                                LIST      188
                     21352                        AX3    -L.LBIAS    SIGN EXTEND                                 LIST      189
                          10233                   BX2    X3                                                      LIST      190
                               21222              AX2    L.LBIAS     MASK = (+0 IF POS), (-0 IF NEG)             LIST      191
            67  13623                             BX6    X2-X3       X6 = ABS (X3)                               LIST      192
                     22106                        LX1    X6                                                      LIST      193
                          21603                   AX6    3                                                       LIST      194
            70  0306000071 +                      ZR     X6,KTY6     IF ABS(X3) .LT. 8                           LIST      195
                          76611                   =X6    1RB                                                     LIST      196
                                                                                                                 LIST      197
            71  11201                    KTY6     BX2    X0*X1       ISOLATE LOWEST OCTAL DIGIT                  LIST      198
                     21103                        AX1    3                                                       LIST      199
                          7222000033              SX2    X2+1R0                                                  LIST      200
            72  20666                             LX6    -CHAR                                                   LIST      201
                     12626                        BX6    X2+X6                                                   LIST      202
                          0311000071 +            NZ     X1,KTY6     IF NUMBER NOT EXHAUSTED                     LIST      203
                                                                                                                 LIST      204
            73  20666                             LX6    -CHAR                                                   LIST      205
                     0323000065 +                 PL     X3,EXIT.    IF POSITIVE CONSTANT                        LIST      206
            74  7110000046                        SX1    1R-                                                     LIST      207
                          12616                   BX6    X1+X6                                                   LIST      208
                               20666              LX6    -CHAR                                                   LIST      209
            75  0400000065 +                      EQ     EXIT.                                                   LIST      210
  
  
  
  
                                        **        PFD    - PRINT FILE DESCRIPTION MACROS                         FEAT155G  447
                                        *                                                                        FEAT155G  448
                                        *         ENTRY  (A4) = TAG WORD                                         FEAT155G  449
                                        *         EXIT   (X6) = FILE NAME                                        FEAT155G  450
                                        *                (X4) = BITS 18-36 OF TAG - RIGHT JUSTIFIED              FEAT155G  451
                                        *                FILE DESCRIPTOR PRINTED                                 FEAT155G  452
                                        *         USES   ALL                                                     FEAT155G  453
            76                           PFD      BSS    0                                                       FEAT155G  454
            76  0334000106 +                      MI     X4,PFD20    IF EQUIVALENCED FILE                        FEAT155G  455
                          73340                   SX3    X4                                                      FEAT155G  456
            77  0100000025 +                      RJ     KTX         CONVERT FILE BUFFER LENGTH                  FEAT155G  457
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     6
                                                                      PFD 
  
           100  5160000126 +                      SA6    PFDA+3                                                  FEAT155G  458
                          54241                   SA2    A4+B1       FETCH RECORD DESCRIPTOR                     FEAT155G  459
           101  0332000104 +                      MI     X2,PFD10    IF NO RECORD LENGTH SPECIFIED               FEAT155G  460
                          73320                   SX3    X2                                                      FEAT155G  461
           102  0100000025 +                      RJ     KTX         CONVERT RECORD LENGTH                       FEAT155G  462
           103  5160000130 +                      SA6    PFDA+5                                                  FEAT155G  463
                          0400000112 +            EQ     PFD30                                                   FEAT155G  464
                                                                                                                 FEAT155G  465
           104  43600                    PFD10    MX6    0                                                       FEAT155G  466
                     5160000130 +                 SA6    PFDA+5                                                  FEAT155G  467
           105  0400000112 +                      EQ     PFD30                                                   FEAT155G  468
                                                                                                                 FEAT155G  469
           106  5120000000 X             PFD20    SA2    =XT.FILE                                                FEAT155G  470
                          63740                   SB7    X4                                                      FEAT155G  471
                               53127              SA1    X2+B7       FETCH EQUIVALENCED NAME                     FEAT155G  472
           107  43700                             MX7    0           NO RECORD LENGTH                            FEAT155G  473
                     5170000130 +                 SA7    PFDA+5                                                  FEAT155G  474
                               10611              BX6    X1                                                      FEAT155G  475
           110  0100000000 X                      RJ     =XFFN       MANUFACTURE FILE NAME.                      FEAT155G  476
           111  5160000126 +                      SA6    PFDA+3                                                  FEAT155G  477
           112  20430                    PFD30    LX4    -2*18                                                   FEAT155G  478
                     73340                        SX3    X4                                                      FEAT155G  479
                          0100000000 +            RJ     KIT         CONVERT BUFFER TAG                          FEAT155G  480
           113  20422                             LX4    18                                                      FEAT155G  481
                     73140                        SX1    X4                                                      FEAT155G  482
                          5160000124 +            SA6    PFDA+1                                                  FEAT155G  483
           114  0100000000 X                      PIA    ,LINEBUF    CONVERT FILE ADDRESS                        FEAT155G  484
                          43352                   MX3    LG.VAR*CHAR                                             FEAT155G  485
                               11635              BX6    X3*X5                                                   FEAT155G  486
           116  63440                             SB4    X4                                                      FEAT155G  487
                     0100000000 X                 RJ     =XFFN       MANUFACTURE FILE NAME.                      FEAT155G  488
           117  10166                             BX1    X6                                                      FEAT155G  489
                     22506                        LX5    X6                                                      FEAT155G  490
                          0100000000 X            RJ     SFN         SPACE FILL                                  FEAT155G  491
           120  5120000123 +                      SA2    PFDA                                                    FEAT155G  492
                          5160000001 X            SA6    LINEBUF+1   STORE FILE NAME IN OUTPUT LINE              FEAT155G  493
           121  10622                             BX6    X2                                                      FEAT155G  494
                     54221                        SA2    A2+B1                                                   FEAT155G  495
                          0100000247 +            RJ     PVF         PRINT FILE DESCRIPTOR                       FEAT155G  496
           122  76440                             SX4    B4                                                      FEAT155G  497
                     10655                        BX6    X5                                                      FEAT155G  498
                          0400000000 X            EQ     =XPFDX      EXIT TO HEADER                              FEAT155G  499
                                                                                                                 FEAT155G  500
           123  00000006111405555555     PFDA     DATA   7RFILE                                                  FEAT155G  501
           124                     1              BSS    1           FILE NAME                                   FEAT155G  502
           125  56000000000000000000              DATA   1L,                                                     FEAT155G  503
           126                     1              BSS    1           LENGTH OR EQUIVALENCE                       FEAT155G  504
           127  56000000000000000000              DATA   1L,                                                     FEAT155G  505
           130                     1              BSS    1           RECORD LENGTH                               FEAT155G  506
           131  00000000000000000000              DATA   0                                                       FEAT155G  507
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     7
                                                                      PID 
  
                                        **        PID    - PRINT IDENT CARD                                      FEAT155G  509
                                        *                                                                        FEAT155G  510
                                        *         ENTRY  NONE                                                    FEAT155G  511
                                        *         EXIT   IDENT CARD PRINTED                                      FEAT155G  512
                                        *         USES   A1-3,A6 X1-3,X6                                         FEAT155G  513
                                        *         CALLS  PVF                                                     FEAT155G  514
                                                                                                                 FEAT155G  515
           132                           PID      BSS    0                                                       FEAT155G  516
           132  5110000610 +                      SA1    =1H                                                     FEAT155G  517
                          5130000611 +            SA3    =7RIDENT                                                FEAT155G  518
           133  10611                             BX6    X1                                                      FEAT155G  519
                     5160000000 X                 SA6    LINEBUF                                                 FEAT155G  520
                               54661              SA6    A6+B1                                                   FEAT155G  521
           134  10633                             BX6    X3                                                      FEAT155G  522
                     5120000000 X                 SA2    =XIDENT                                                 FEAT155G  523
           135  0100000247 +                      RJ     PVF         PRINT *IDENT* CARD                          FEAT155G  524
           136  0400000000 X                      EQ     =XPIDX      EXIT TO HEADER                              FEAT155G  525
  
  
  
  
                                        **        PIK -  PRINT INSTRUCTION KONVERSION                            LIST      212
                                        *         CALLED BY *PIG* TO CONVERT AND PRINT EACH OBJECT INSTRUCTION   LIST      213
                                        *                IF SUCH A LISTING WAS REQUESTED.                        LIST      214
                                        *                                                                        LIST      215
                                        *         ENTRY  (X5) = INSTRUCTION.                                     LIST      216
                                        *                (A5) = INSTRUCTION.                                     LIST      217
                                                                                                                 LIST      218
           137                           PIK      BSS    0           ENTRY...  (EXIT INTO PIG)                   LIST      219
           137  13777                             BX7    0                                                       LIST      220
                     10155                        BX1    X5                                                      LIST      221
                          43206                   MX2    L.LGH                                                   LIST      222
                               11621              BX6    X2*X1                                                   LIST      223
           140  5170000001 X                      SA7    PIK=TAG+1                                               LIST      224
                          0316000167 +            NZ     X6,PIK2     IF NO PSEUDO-INST                           LIST      225
           141  10311                             BX3    X1                                                      LIST      226
                     21160                        AX1    P.LI12                                                  LIST      227
                          63710                   SB7    X1                                                      LIST      228
           142  0277000143 +                      JP     B7+*+1                                                  LIST      229
           143  0400000150 +                      EQ     PIK1B       0  BSS                                      LIST      230
           144  0400000161 +                      EQ     PIK1CL      1  CALL                                     LIST      231
           145  0400000161 +                      EQ     PIK1RJ      2  RJ                                       LIST      232
           146  0400000165 +                      EQ     PIK1JP      3  JP                                       LIST      233
           147  0400000161 +                      EQ     PIK1EQ      4  EQ   (UNCONDITIONAL)                     LIST      234
                                                                                                                 LIST      235
                                        **  =0    PROCESS *BSS* - DEFINE LOCATION SYMBOL                         LIST      236
                                                                                                                 LIST      237
           150  7213577777               PIK1B    SX1    X3-C.BASE                                               LIST      238
                          5120000610 +            SA2    =1H                                                     LIST      239
           151  10622                             BX6    X2                                                      LIST      240
                     0331000154 +                 MI     X1,PIK1B4   IF NO TAG                                   LIST      241
                               73330              SX3    X3                                                      LIST      242
           152  0100000025 +                      RJ     KTX         CONVERT TAG TO EXTERNAL REPRESENTATION      LIST      243
           153  10166                             BX1    X6                                                      LIST      244
                     0100000000 X                 RJ     SFN         SPACE FILL                                  LIST      245
                                                                                                                 LIST      246
           154  5160000001 X             PIK1B4   SA6    LINEBUF+1                                               FEAT126A  401
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     8
                                                                      PIK 
  
                          10155                   BX1    X5                                                      LIST      248
                               21136              AX1    P.LTAG                                                  LIST      249
           155  73310                             SX3    X1                                                      LIST      250
                     0100000025 +                 RJ     KTX         CONVERT NUMBER OF BSS-ED WORDS              LIST      251
           156  5110000612 +                      SA1    =7RBSS                                                  LIST      252
                          6120000022              SB2    3*CHAR                                                  LIST      253
           157  22706                             LX7    X6                                                      LIST      254
                     10611                        BX6    X1                                                      LIST      255
                          5170000000 X            SA7    PIK=TAG                                                 LIST      256
           160  0400000234 +                      EQ     PIK4                                                    LIST      257
                                                                                                                 LIST      258
                                                                                                                 LIST      259
                                        **  =1    PROCESS *CALL* - RJ WITH TRACEBACK                             LIST      260
                                                                                                                 LIST      261
           161  43452                    PIK1CL   MX4    -L.TAG                                                  LIST      262
                     7160000024                   SX6    1RT                                                     LIST      263
                               21336              AX3    P.LTAG                                                  LIST      264
           162  6150000001 X                      SB5    PIK=PS+1                                                LIST      265
                          67575                   SB5    B7-B5                                                   LIST      266
           163  6155000000 X                      SB5    B5+PIK=PI                                               LIST      267
                          15334                   BX3    -X4*X3      ISOLATE TAG                                 LIST      268
           164  5160000002 X                      SA6    PIK=I+2                                                 LIST      269
                          0400000177 +            EQ     PIK25                                                   LIST      270
                                                                                                                 LIST      271
                                                                                                                 LIST      272
                                        **  =2    PROCESS *RJ*   - PLAIN RJ                                      LIST      273
                                                                                                                 LIST      274
                                 161 +   PIK1RJ   EQU    PIK1CL                                                  LIST      275
                                                                                                                 LIST      276
                                        **  =3    PROCESS *JP*   - INDEXED JUMP                                  LIST      277
                                                                                                                 LIST      278
           165  7263000033               PIK1JP   SX6    X3+1R0                                                  LIST      279
                          5160000000 X            SA6    PIK=I                                                   LIST      280
           166  0400000161 +                      EQ     PIK1CL                                                  LIST      281
                                                                                                                 LIST      282
                                                                                                                 LIST      283
                                        **  =4    PROCESS *EQ*   - UNCONDITIONAL JUMP                            LIST      284
                                                                                                                 LIST      285
                                 161 +   PIK1EQ   EQU    PIK1CL                                                  LIST      286
                                                                                                                 LIST      287
                                        **        PIK1 - BREAK OUT THE *I*, *J* AND *K* DIGITS                   LIST      291
                                                                                                                 LIST      292
           167  20606                    PIK2     LX6    L.LGH                                                   LIST      293
                     63560                        SB5    X6          *GH*                                        LIST      294
                          7100000007              SX0    7                                                       LIST      295
                                        .1        ECHO   ,P1=(I,J,K),REG=(3,6,6),LOC=(PIK=I,,),SC=(9,3,3)        LIST      296
                                                  LX1    SC                                                      LIST      297
                                                  BX.REG X0*X1                                                   LIST      298
                                                  SX6    X.REG+1R0                                               LIST      299
                                                  SA6    LOC  A6+B1  *P1*                                        LIST      300
                                        .1        ENDD                                                           LIST      301
                                                                                                                 LIST      302
                                         .76      IFEQ   .CPU,76                                                 LIST      303
                                                                                                                 LIST      304
                                                  SX4    B5-B1                                                   LIST      305
                                                  NZ     X4,PIK22    IF NOT *01* OPCODE                          LIST      306
                                                  SA3    PIK=I                                                   LIST      307
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE     9
                                                                      PIK 
  
                                                  SX4    X3-1R4                                                  LIST      308
                                                  MI     X4,PIK22    IF I-FIELD LESS THAN *4*                    LIST      309
                                                  SX4    X3-1R6                                                  LIST      310
                                                  PL     X4,PIK22    IF I-FIELD GREATER THAN *5*                 LIST      311
                                                                                                                 LIST      312
                                        *         HERE IF R/W LCM                                                LIST      313
                                                                                                                 LIST      314
                                                  SA3    X3+=XPIK=LCM-1R4  FETCH INST SKELETON                   LIST      315
                                                  EQ     PIK23                                                   LIST      316
                                                                                                                 LIST      317
                                         PIK22    BSS    0                                                       LIST      318
                                                                                                                 LIST      319
                                         .76      ENDIF                                                          LIST      320
                                                                                                                 LIST      321
           174  5135000000 X                      SA3    B5+PIK=PS   FETCH INST SKELETON                         LIST      322
           175  0323000206 +             PIK23    PL     X3,PIK3     IF SHORT INSTRUCTION (15 BIT)               LIST      323
                                                                                                                 LIST      324
                                        *         PRE-PROCESS AND CONVERT TAGS                                   LIST      325
                                                                                                                 LIST      326
                          43452                   MX4    -L.TAG                                                  LIST      327
                               20117              LX1    L.TAG-3                                                 LIST      328
           176  15314                             BX3    -X4*X1      ISOLATE TAG                                 LIST      329
           177  66370                    PIK25    SB3    B7          SAVE OP-CODE                                LIST      330
                     0100000025 +                 RJ     KTX         CONVERT TAG TO EXTERNAL FORM                LIST      331
           200  5160000000 X                      SA6    PIK=TAG                                                 LIST      332
                          43452                   MX4    -L.LBIAS                                                LIST      333
                               21514              AX5    P.LBIAS                                                 LIST      334
           201  15354                             BX3    -X4*X5                                                  LIST      335
                     0303000206 +                 ZR     X3,PIK3     IF NO OFFSET                                LIST      336
           202  0431000206 +                      EQ1    B3,PIK3     IF RJ WITH TRACEBACK IN BIAS FIELD          LIST      337
                          0100000065 +            RJ     KTY         CONVERT OFFSET                              LIST      338
           203  0333000205 +                      MI     X3,PIK27    IF NEGATIVE OFFSET                          LIST      339
                          7110000045              SX1    1R+                                                     LIST      340
           204  12661                             BX6    X6+X1                                                   LIST      341
                     20666                        LX6    -CHAR                                                   LIST      342
           205  5160000001 X             PIK27    SA6    PIK=TAG+1                                               LIST      343
                                                                                                                 LIST      344
                                                                                                                 LIST      345
                                        **        PIK3 - DO ACTUAL INSTRUCTION SKELETION CONVERSION              LIST      346
                                                                                                                 LIST      347
           206  5110000610 +             PIK3     SA1    =1H                                                     LIST      348
                          5130000000 X            SA3    PIK=I                                                   LIST      349
                                                                                                                 LIST      350
                                         .76      IFEQ   .CPU,76                                                 LIST      351
                                                                                                                 LIST      352
                                                  SX4    B5-B1                                                   LIST      353
                                                  NZ     X4,PIK3B    IF NOT *01* OPCODE                          LIST      354
                                                  SX4    X3-1R4                                                  LIST      355
                                                  MI     X4,PIK3B    IF I-FIELD LESS THAN *4*                    LIST      356
                                                  SX4    X3-1R6                                                  LIST      357
                                                  PL     X4,PIK3B    IF I-FIELD GREATER THAN *5*                 LIST      358
                                                                                                                 LIST      359
                                        *         HERE IF R/W LCM                                                LIST      360
                                                                                                                 LIST      361
                                                  SB5    PIK=PS+1R4                                              LIST      362
                                                  SB5    -B5                                                     LIST      363
                                                  SB5    X3+B5                                                   LIST      364
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    10
                                                                      PIK 
  
                                                  SB5    B5+=XPIK=LCM                                            LIST      365
                                                                                                                 LIST      366
                                         PIK3B    BSS    0                                                       LIST      367
                                                                                                                 LIST      368
                                         .76      ENDIF                                                          LIST      369
                                                                                                                 LIST      370
           207  7145777774                        SX4    B5-3                                                    LIST      371
                          10611                   BX6    X1                                                      LIST      372
                               43260              MX2    -2*CHAR                                                 LIST      373
           210  5160000001 X                      SA6    LINEBUF+1                                               FEAT126A  402
                          0314000213 +            NZ     X4,PIK3D    IF NO X-JUMP                                LIST      375
           211  6150000033 X                      SB5    PIK=PS+1R0                                              LIST      376
                          67505                   SB5    -B5                                                     LIST      377
                               63535              SB5    X3+B5                                                   LIST      378
           212  6155000000 X                      SB5    B5+PIK=XJP                                              LIST      379
           213  5135000000 X             PIK3D    SA3    B5+PIK=PS   FETCH SKELETON                              LIST      380
                          15432                   BX4    -X2*X3      X4 = 2R<OP-MNEMONIC>                        LIST      381
                               20301              LX3    59-58                                                   LIST      382
           214  0323000217 +                      PL     X3,PIK3G    IF NO B-JUMP                                LIST      383
                          5110000000 X            SA1    PIK=J                                                   LIST      384
           215  7211777744                        SX1    X1-1R0                                                  LIST      385
                          0311000217 +            NZ     X1,PIK3G    IF *BJ* .NE. *B0*                           LIST      386
           216  5145777773 X                      SA4    B5-4+PIK=XJP                                            LIST      387
                          15442                   BX4    -X2*X4                                                  LIST      388
           217  20430                    PIK3G    LX4    4*6                                                     LIST      389
                     5120000000 X                 SA2    PIK=BL                                                  LIST      390
                               20306              LX3    4+2                                                     LIST      391
           220  36642                             IX6    X4+X2                                                   LIST      392
                     43070                        MX0    -4                                                      LIST      393
                          15230                   BX2    -X0*X3      ISOLATE FIRST DESCRIPTOR                    LIST      394
                               20304              LX3    4                                                       LIST      395
           221  5222777776 X                      SA2    PIK=I-1+X2                                              LIST      396
                          20230                   LX2    4*6                                                     LIST      397
           222  6120000030                        SB2    4*6                                                     LIST      398
           223  20606                    PIK3L    LX6    6                                                       LIST      399
                     6122777771                   SB2    B2-6                                                    LIST      400
                               36662              IX6    X6+X2                                                   LIST      401
           224  0520000226 +                      NZ     B2,PIK3P    IF ASSEMBLY NOT FULL                        LIST      402
                          54661                   SA6    A6+B1                                                   LIST      403
           225  6120000074                        SB2    10*6                                                    LIST      404
                          13666                   BX6    0                                                       LIST      405
           226  15130                    PIK3P    BX1    -X0*X3                                                  LIST      406
                     5221777776 X                 SA2    X1+PIK=I-1                                              LIST      407
                               20304              LX3    4                                                       LIST      408
           227  0322000223 +                      PL     X2,PIK3L    IF NO CONDITIONAL ITEM                      LIST      409
                          0301000243 +            ZR     X1,PIK5     IF END OF SKELETON                          LIST      410
           230  0312000234 +                      NZ     X2,PIK4     IF 18-BIT *K* PORTION                       LIST      411
                          15130                   BX1    -X0*X3                                                  LIST      412
           231  5211777776 X                      SA1    X1+PIK=I-1  FETCH CONDIT-REGISTER                       LIST      413
                          7211777744              SX1    X1-1R0                                                  LIST      414
           232  76211                             =X2    1RB                                                     LIST      415
                     0311000223 +                 NZ     X1,PIK3L    IF NOT *B0*                                 LIST      416
                               20310              LX3    2*4         SKIP OVER REGISTER AND FOLLOWING SEP        LIST      417
           233  0400000226 +                      EQ     PIK3P                                                   LIST      418
                                                                                                                 LIST      419
                                                                                                                 LIST      420
                                        **        PIK4 - MERGE K-ADDRESS PORTION INTO ASSEMBLY                   LIST      421
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    11
                                                                      PIK 
  
                                        *         ENTRY  (X6) = PARTIAL OUTPUT WORD (RIGHT JUST, ZERO FILL)      LIST      422
                                        *                (B2) = 6 * (NUMBER OF EMPTY CHARS LEFT IN X6)           LIST      423
                                        *                (A6) _ LAST OUTPUT LINE STORE ADDRESS.                  LIST      424
                                                                                                                 LIST      425
           234  5120000000 X             PIK4     SA2    PIK=TAG                                                 LIST      426
                          43066                   MX0    -CHAR                                                   LIST      427
           235  20206                    PIK4A    LX2    CHAR                                                    LIST      428
                     6100000000                   SB0    0                                                       LIST      429
                               15120              BX1    -X0*X2                                                  LIST      430
           236  20606                    PIK4L    LX6    CHAR                                                    LIST      431
                     6122777771                   SB2    B2-CHAR                                                 LIST      432
                               20206              LX2    CHAR                                                    LIST      433
           237  36661                             IX6    X6+X1                                                   LIST      434
                     15120                        BX1    -X0*X2                                                  LIST      435
                          0520000241 +            NZ     B2,PIK4P    IF ASSEMBLY NOT FULL                        LIST      436
           240  54661                             SA6    A6+B1                                                   LIST      437
                     6120000074                   SB2    10*CHAR                                                 LIST      438
                               13666              BX6    0                                                       LIST      439
           241  0311000236 +             PIK4P    NZ     X1,PIK4L    IF MORE CHARACTERS                          LIST      440
                          54221                   SA2    A2+B1                                                   LIST      441
           242  0312000235 +                      NZ     X2,PIK4A    IF OFFSET EXISTS                            LIST      442
           243  22626                    PIK5     LX6    X6,B2       LEFT JUSTIFY ASSEMBLY                       LIST      443
                     54661                        SA6    A6+B1                                                   LIST      444
                          13666                   BX6    0                                                       LIST      445
                               54661              SA6    A6+B1       INSURE AN END OF LINE                       LIST      446
           244  6130777776 X             PIK6     SB3    LINEBUF-1                                               FEAT126A  403
                          7110000000 X            PLINE  LINEBUF,A6-B3                                           FEAT126A  404
           246  0400000000 X                      EQ     PIKX        EXIT..                                      LIST      448
  
  
  
  
                                        **        PVF -  PACK VARIABLE FIELD FOR LISTING.                        LIST      450
                                        *         ENTRY  X2 = (A2) = (FWA OF ITEMS TO BE PACKED)                 LIST      451
                                        *                A6 _ FWA+1 TO WRITE FROM                                LIST      452
                                        *                X6 = 7R]OP-FIELD                                        LIST      453
                                        *                ITEMS ARE IN 0L FORMAT, TERMINATED BY A ZERO WORD       LIST      454
                                        *         USES   A1-A4,A6,A7  B2-B5,B6,B7                                LIST      455
                                                                                                                 LIST      456
                                                                                                                 LIST      457
           247  0400400247 +             PVF      SUBR               ENTRY/EXIT...                               LIST      458
           250  6120000022                        SB2    3*CHAR                                                  LIST      460
                          43466                   MX4    -CHAR                                                   LIST      461
                               65761              SB7    A6-B1                                                   LIST      462
           251  20206                    PVF2     LX2    CHAR                                                    LIST      465
                     6100000000                   SB0    0                                                       LIST      466
                               15124              BX1    -X4*X2                                                  LIST      467
           252  20606                    PVF4     LX6    CHAR                                                    LIST      468
                     6122777771                   SB2    B2-CHAR                                                 LIST      469
                               20206              LX2    CHAR                                                    LIST      470
           253  36661                             IX6    X6+X1                                                   LIST      471
                     15124                        BX1    -X4*X2      ISOLATE NEXT CHARACTER                      LIST      472
                          0520000255 +            NZ     B2,PVF6     IF ASSEMBLY NOT FULL                        LIST      473
           254  54661                             SA6    A6+B1                                                   LIST      474
                     6120000074                   SB2    10*CHAR                                                 LIST      475
                               13666              BX6    0                                                       LIST      476
           255  0311000252 +             PVF6     NZ     X1,PVF4     IF MORE CHARACTERS                          LIST      477
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    12
                                                                      PVF 
  
                          54221                   SA2    A2+B1                                                   LIST      478
           256  0312000251 +                      NZ     X2,PVF2     IF MORE ITEMS                               LIST      479
                          22626                   LX6    X6,B2                                                   LIST      480
                               54661              SA6    A6+B1                                                   LIST      481
           257  13666                             BX6    0                                                       LIST      482
                     54661                        SA6    A6+B1                                                   LIST      483
                          67371                   SB3    B7-B1                                                   FEAT126A  405
                               76170              PLINE  B7,A6-B3                                                FEAT126A  406
           261  0400000247 +                      EQ     EXIT.                                                   LIST      485
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    13
                                                                      WCL 
  
                                        **        WCL -  WRITE (PSEUDO) COMPASS LISTING.                         FEAT155G  527
                                        *         CALLED DURING *END* PROCESSING TO LIST EVERYTHING THAT GOES    FEAT155G  528
                                        *         INTO THE BINARY THAT HASNT BEEN LISTED.                        FEAT155G  529
                                                                                                                 FEAT155G  530
                                                                                                                 FEAT155G  531
           262                           WCL      BSS    0           ENTRY...                                    FEAT155G  532
  
  
  
  
                                        **        WCC -  LIST CONSTANT ASSIGNMENTS.                              FEAT155G  534
                                                                                                                 FEAT155G  535
                                                                                                                 FEAT155G  536
           262  5130000000 X                      SA3    =XTS.CON                                                FEAT155G  537
                          66400                   =B4    0           (B4) = ORDINAL IN CON TABLE                 FEAT155G  538
           263  5120000000 X                      SA2    =XTS=CON                                                FEAT155G  539
                          53530                   SA5    X3          FETCH FIRST CONSTANT                        FEAT155G  540
                               53020              SA0    X2          A0 = LENGTH OF TABLE                        FEAT155G  541
           264  5130000000 X                      SA3    =XCP.PW                                                 FEAT155G  542
                          7170000010              SX7    8                                                       FEAT155G  543
           265  0303000270 +                      ZR     X3,WCC1     IF NOT IN PW MODE                           FEAT155G  544
                          7170000006              SX7    6                                                       FEAT155G  545
           266  7160000002                        SX6    1RB                                                     FEAT155G  546
                          20666                   LX6    9*CHAR                                                  FEAT155G  547
           267  5160000552 +                      SA6    WCCA2A                                                  FEAT155G  548
           270  5170000000 X             WCC1     SA7    =XWVBD                                                  FEAT155G  549
                          0302000306 +            ZR     X2,WCCX     IF NOT CONSTANTS                            FEAT155G  550
           271  13111                             PLINE  ,,1                                                     FEAT155G  551
                                                                                                                 FEAT155G  552
           273  7134340000               WCC2     SX3    B4+C.CON                                                FEAT155G  553
                          0100000000 +            RJ     KIT         KONVERT TO EXTERNAL FORMAT                  FEAT155G  554
           274  10166                             BX1    X6                                                      FEAT155G  555
                     0100000000 X                 RJ     SFN         SPACE FILL NAME.                            FEAT155G  556
           275  22105                             LX1    X5                                                      FEAT155G  557
                     5160000546 +                 SA6    WCCA1       +1 = TAG                                    FEAT155G  558
                               10655              BX6    X5                                                      FEAT155G  559
           276  64551                             SB5    A5+B1                                                   FEAT155G  560
                     5160000553 +                 SA6    WCCA3       +6 = DPC ECHO OF CON                        FEAT155G  561
           277  0100000000 X                      RJ     =XWOD       CONVERT CONST TO DPC                        FEAT155G  562
           300  56550                             SA5    B5                                                      FEAT155G  563
                     5140000000 X                 SA4    =XBA.CON                                                FEAT155G  564
           301  5160000550 +                      SA6    WCCA2       +3 = ABCDEFGHIJ                             FEAT155G  565
                          54761                   SA7    A6+B1       +4 = KLMNOPQRST                             FEAT155G  566
                               73144              SX1    B4+X4                                                   FEAT155G  567
           302  66441                             SB4    B4+B1                                                   FEAT155G  568
                     0100000000 X                 PIA    ,WCCA       CONVERT ADDRESS TO DPC                      FEAT155G  569
                          5120000000 X            SA2    =XWVBD                                                  FEAT155G  570
           304  74160                             PLINE  A6,X2                                                   FEAT155G  571
           305  64300                             SB3    A0                                                      FEAT155G  572
                     0743000273 +                 LT     B4,B3,WCC2  IF MORE CONSTANTS                           FEAT155G  573
           306                           WCCX     BSS    0           EXIT..                                      FEAT155G  574
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    14
                                                                      WCF 
  
                                        **        WCF -  LIST *FORMATS*.                                         FEAT155G  576
                                                                                                                 FEAT155G  577
                                                                                                                 FEAT155G  578
           306  5130000000 X                      SA3    =XTP.FMT                                                FEAT155G  579
                          5120000000 X            SA2    =XTP=FMT                                                FEAT155G  580
           307  53530                             SA5    X3          FETCH 1ST FORMAT                            FEAT155G  581
                     53020                        SA0    X2          A0 = LENGTH OF TABLE.                       FEAT155G  582
                          66400                   SB4    B0                                                      FEAT155G  583
           310  0302000327 +                      ZR     X2,WCFX     IF NO FORMATS                               FEAT155G  584
                          13111                   PLINE  ,,1                                                     FEAT155G  585
                                                                                                                 FEAT155G  586
                                        **        PROCESS 1ST WORD - STATEMENT NUMBER.                           FEAT155G  587
                                                                                                                 FEAT155G  588
           312  5120000555 +             WCF2     SA2    WCFC                                                    FEAT155G  589
                          43036                   MX0    L.STN                                                   FEAT155G  590
                               11105              BX1    X0*X5                                                   FEAT155G  591
           313  20166                             LX1    9*CHAR                                                  FEAT155G  592
                     12621                        BX6    X2+X1                                                   FEAT155G  593
                          5160000546 +            SA6    WCCA1       +1 = TAG                                    FEAT155G  594
                                                                                                                 FEAT155G  595
                                        **        PROCESS CONTENTS OF FORMAT.                                    FEAT155G  596
                                                                                                                 FEAT155G  597
           314  10655                    WCF5     BX6    X5                                                      FEAT155G  598
                     64550                        SB5    A5                                                      FEAT155G  599
                          5160000553 +            SA6    WCCA3       +6 = DPC ECHO OF CON                        FEAT155G  600
           315  10155                             BX1    X5                                                      FEAT155G  601
                     0100000000 X                 RJ     =XWOD       CONVERT CONTENTS                            FEAT155G  602
           316  56551                             SA5    B5+B1                                                   FEAT155G  603
                     5140000000 X                 SA4    =XBA.FMT                                                FEAT155G  604
           317  5160000550 +                      SA6    WCCA2       +3 = ABCDEFGHIJ                             FEAT155G  605
                          54761                   SA7    A6+B1       +4 = KLMNOPQRST                             FEAT155G  606
                               73144              SX1    B4+X4                                                   FEAT155G  607
           320  0100000000 X                      PIA    ,WCCA       CONVERT ADDRESS TO DPC                      FEAT155G  608
                          5120000000 X            SA2    =XWVBD                                                  FEAT155G  609
           322  74160                             PLINE  A6,X2                                                   FEAT155G  610
           323  5110000610 +                      SA1    =1H                                                     FEAT155G  611
                          43060                   MX0    8*CHAR                                                  FEAT155G  612
                               10611              BX6    X1                                                      FEAT155G  613
           324  15350                             BX3    -X0*X5                                                  FEAT155G  614
                     5160000546 +                 SA6    WCCA1       +1 = CLEAR TAG.                             FEAT155G  615
                               66441              SB4    B4+B1                                                   FEAT155G  616
           325  64300                             SB3    A0                                                      FEAT155G  617
                     0443000327 +                 EQ     B4,B3,WCFX  IF NO MORE FORMATS                          FEAT155G  618
           326  0313000314 +                      NZ     X3,WCF5     IF MORE IN CURRENT FORMAT.                  FEAT155G  619
                          0400000312 +            EQ     WCF2        CONTINUE                                    FEAT155G  620
           327                           WCFX     BSS    0                                                       FEAT155G  621
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    15
                                                                      WCT 
  
                                        **        WCT -  LIST OUT NUMBER OF TEMPORARIES.                         FEAT155G  623
                                                                                                                 FEAT155G  624
                                                                                                                 FEAT155G  625
           327  5110000000 X                      SA1    =XTEM.MAX                                               FEAT155G  626
                          5140000000 X            SA4    =XBA.TEM                                                FEAT155G  627
           330  5150000613 +                      SA5    =8L                                                     FEAT155G  628
                          7100000007              SX0    7                                                       FEAT155G  629
           331  7231457777                        SX3    X1-C.TEM                                                FEAT155G  630
                          5110000614 +            SA1    =H*BSSD*                                                FEAT155G  631
           332  10611                             BX6    X1                                                      FEAT155G  632
                     5160000002 X                 SA6    LINEBUF+2                                               FEAT155G  633
           333  0303000343 +                      ZR     X3,WCT2     IF NO TEMPS                                 FEAT155G  634
                                                                                                                 FEAT155G  635
                          0100000065 +            RJ     KTY         CONVERT NUMBER OF TEMPS                     FEAT155G  636
           334  5120000013 +                      SA2    KITA-C.BASE/1S13+C.TEM/1S13                             FEAT155G  637
                          5160000003 X            SA6    LINEBUF+3                                               FEAT155G  638
           335  12725                             BX7    X2+X5                                                   FEAT155G  639
                     73140                        SX1    X4                                                      FEAT155G  640
                          20760                   LX7    -2*CHAR                                                 FEAT155G  641
           336  5170000001 X                      =A7    LINEBUF+1                                               FEAT155G  642
                          0100000000 X            PIA                CONVERT OCTAL DIGITS TO DPC                 FEAT155G  643
           337  55671                             =A6    A7-1                                                    FEAT155G  644
                     74160                        PLINE  A6,4,1                                                  FEAT155G  645
           341  5110000000 X                      SA1    =XTEM.MAX                                               FEAT155G  646
                          5140000000 X            SA4    =XBA.TEM                                                FCC1891     5
           342  7231457777                        SX3    X1-C.TEM                                                FEAT155G  647
                                                                                                                 FEAT155G  648
           343  5110000000 X             WCT2     SA1    =XTG.VDIM                                               FEAT155G  649
                          7211477777              SX1    X1-C.VDIM                                               FEAT155G  650
           344  0301000353 +                      ZR     X1,WCTX     IF NO VAR-DIM CELLS                         FEAT155G  651
                          36443                   IX4    X4+X3                                                   FEAT155G  652
                               10311              BX3    X1                                                      FEAT155G  653
           345  0100000065 +                      RJ     KTY         CONVERT NUMBER OF VAR-DIM CELLS             FEAT155G  654
           346  5120000012 +                      SA2    KITA-C.BASE/1S13+C.VDIM/1S13                            FEAT155G  655
                          12725                   BX7    X2+X5                                                   FEAT155G  656
           347  5160000003 X                      SA6    LINEBUF+3                                               FEAT155G  657
                          20760                   LX7    -2*CHAR                                                 FEAT155G  658
                               10144              BX1    X4                                                      FEAT155G  659
           350  5170000001 X                      SA7    LINEBUF+1                                               FEAT155G  660
                          0100000000 X            PIA                CONVERT OCTAL DIGITS TO DPC                 FEAT155G  661
           351  55671                             =A6    A7-1                                                    FEAT155G  662
                     74160                        PLINE  A6,4,1                                                  FEAT155G  663
           353                           WCTX     BSS    0                                                       FEAT155G  664
  
  
  
  
                                        **        WCA -  LIST AP-LISTS ACTUALLY COMPILED.                        FEAT155G  666
                                                                                                                 FEAT155G  667
                                                                                                                 FEAT155G  668
           353  5110000000 X                      SA1    =XTP=APL                                                FEAT155G  669
                          5130000000 X            SA3    =XBA.APL                                                FEAT155G  670
           354  0301000450 +                      ZR     X1,WCAX     IF NO AP-LISTS                              FEAT155G  671
                          53030                   SA0    X3                                                      FEAT155G  672
                               13111              PLINE  ,,1                                                     FEAT155G  673
                                                                                                                 FEAT155G  674
           356  5120000000 X                      SA2    =XTG.APL                                                FEAT155G  675
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    16
                                                                      WCA 
  
                          13666                   SHRINK =XTT=SCR                                                FEAT155G  676
                          5110000000 X            ALLOC  =XTT.SCR,X2-C.PRO+1                                     FEAT155G  677
           361  5130000000 X                      SA3    =XTA.PRO                                                FEAT155G  678
                          66600                   =B6    0                                                       FEAT155G  679
                               63220              SB2    X2                                                      FEAT155G  680
           362  5243777776                        =A4    X3-1        INITIALIZE TAG FETCH REGISTER               FEAT155G  681
                          5120000000 X            SA2    =XTP.APL                                                FEAT155G  682
           363  6130000052                        SB3    60-18                                                   FEAT155G  683
                          53520                   SA5    X2                                                      FEAT155G  684
                                                                                                                 FEAT155G  685
           364  54441                    WCA22    =A4    A4+1                                                    FEAT155G  686
                     0602000370 +                 LE     B2,WCA24    IF NO MORE TAGS                             FEAT155G  687
                               67221              =B2    B2-1                                                    FEAT155G  688
           365  0324000364 +                      PL     X4,WCA22    IF NOT AN AP-TAG                            FEAT155G  689
                          22014                   LX0    X4,B1                                                   FEAT155G  690
           366  0320000364 +                      PL     X0,WCA22    IF NOT AN AP-TAG                            FEAT155G  691
                          22634                   LX6    X4,B3                                                   FEAT155G  692
                               53616              SA6    X1+B6                                                   FEAT155G  693
           367  66661                             =B6    B6+1        COUNT UP AP-TAGS                            FEAT155G  694
                     0400000364 +                 EQ     WCA22       LOOP..                                      FEAT155G  695
                                                                                                                 FEAT155G  696
           370  5130000000 X             WCA24    SA3    =XTP=APL                                                FEAT155G  697
                          20352                   LX3    -18                                                     FEAT155G  698
                               10733              BX7    X3                                                      FEAT155G  699
           371  76661                             =X6    B6+1                                                    FEAT155G  700
                     53716                        SA7    X1+B6                                                   FEAT155G  701
                          5160000000 X            SHRINK =XTT=SCR,X6                                             FEAT155G  702
           372  0100000000 X                      RJ     =XSRT       SORT AP-TAGS IN ADDRESS ORDER               FEAT155G  703
                                                                                                                 FEAT155G  704
           373  5110000000 X             WCA3     SA1    =XTT.SCR                                                FEAT155G  705
                          5120000000 X            SA2    =XTT=SCR                                                FEAT155G  706
           374  43073                             MX0    -1                                                      FEAT155G  707
                     53310                        SA3    X1          FETCH AP-TAG                                FEAT155G  708
                          73611                   =X6    X1+1                                                    FEAT155G  709
                               20322              LX3    18                                                      FEAT155G  710
           375  36720                             IX7    X2+X0       DECREMENT LENGTH                            FEAT155G  711
                     54610                        SA6    A1                                                      FEAT155G  712
                          63230                   SB2    X3          ADDRESS OF THIS TAG                         FEAT155G  713
                               54720              SA7    A2                                                      FEAT155G  714
           376  20322                             LX3    18                                                      FEAT155G  715
                     0307000450 +                 ZR     X7,WCAX     IF NO MORE AP-TAGS                          FEAT155G  716
                               54431              =A4    A3+1                                                    FEAT155G  717
           377  20422                             LX4    18                                                      FEAT155G  718
                     63740                        SB7    X4          ADDRESS OF NEXT TAG                         FEAT155G  719
                          67472                   SB4    B7-B2       LENGTH OF NEXT APLIST                       FEAT155G  720
           400  7233377777                        SX3    X3-4S15                                                 FEAT155G  721
                          0100000025 +            RJ     KTX         KONVERT TAG TO XTERNAL FORM                 FEAT155G  722
           401  10166                             BX1    X6                                                      FEAT155G  723
                     0100000000 X                 RJ     SFN         SPACE FILL NAME (OF TAG)                    FEAT155G  724
           402  5120000615 +                      SA2    =8LBSS    0                                             FEAT155G  725
                          5160000001 X            SA6    LINEBUF+1                                               FEAT155G  726
           403  0540000410 +                      NZ     B4,WCA4     IF NEXT TAG NOT AT SAME PLACE               FEAT155G  727
                          10722                   BX7    X2                                                      FEAT155G  728
                               74100              SX1    A0                                                      FEAT155G  729
           404  54761                             =A7    A6+1                                                    FEAT155G  730
                     0100000000 X                 PIA                CONVERT ADDRESS TO DPC                      FEAT155G  731
           405  55661                             =A6    A6-1                                                    FEAT155G  732
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    17
                                                                      WCA 
  
                     6130777776 X                 SB3    LINEBUF-1                                               FEAT155G  733
                               74160              PLINE  A6,A7-B3    * L.TAG  BSS  0*                            FEAT155G  734
           407  0400000373 +                      EQ     WCA3                                                    FEAT155G  735
                                                                                                                 FEAT155G  736
           410  43052                    WCA4     MX0    -L.ABIAS                                                FEAT155G  737
                     10155                        BX1    X5                                                      FEAT155G  738
                          0315000420 +            NZ     X5,WCA42    IF NOT AN END-OF-AP-LIST ENTRY              FEAT155G  739
           411  74100                             SX1    A0                                                      FEAT155G  740
                     0100000000 X                 PIA                CONVERT ADDRESS TO DPC                      FEAT155G  741
           412  7110001256                        SX1    2R-0-2R0                                                FEAT155G  742
                          7120003355              SX2    2R0                                                     FEAT155G  743
           413  11351                             BX3    X5*X1                                                   FEAT155G  744
                     36723                        IX7    X2+X3                                                   FEAT155G  745
                          5160000000 X            SA6    LINEBUF                                                 FEAT155G  746
           414  20760                             LX7    -2*CHAR                                                 FEAT155G  747
                     74160                        SX1    A6                                                      FEAT155G  748
                          5170000002 X            SA7    LINEBUF+2                                               FEAT155G  749
           415  54551                             =A5    A5+1                                                    FEAT155G  750
                     7120000003                   PLINE  X1,3                                                    FEAT155G  751
           417  67441                             =B4    B4-1                                                    FEAT155G  752
                     54001                        =A0    A0+1                                                    FEAT155G  753
                          0400000445 +            EQ     WCA9                                                    FEAT155G  754
                                                                                                                 FEAT155G  755
           420  21130                    WCA42    AX1    P.ABIAS                                                 FEAT155G  756
                     15710                        BX7    -X0*X1      ISOLATE BIAS                                FEAT155G  757
                          43052                   MX0    -L.ATAG                                                 FEAT155G  758
                               21122              AX1    P.ATAG-P.ABIAS                                          FEAT155G  759
           421  15310                             BX3    -X0*X1      ISOLATE TAG                                 FEAT155G  760
                     0100000025 +                 RJ     KTX         CONVERT TAG                                 FEAT155G  761
           422  5160000556 +                      SA6    WCAB                                                    FEAT155G  762
                          10377                   BX3    X7                                                      FEAT155G  763
           423  0100000065 +                      RJ     KTY         CONVERT BIAS                                FEAT155G  764
           424  0333000426 +                      MI     X3,WCA5     IF BIAS IS NEGATIVE                         FEAT155G  765
                          7110000045              SX1    1R+                                                     FEAT155G  766
           425  12661                             BX6    X6+X1                                                   FEAT155G  767
                     20666                        LX6    -CHAR                                                   FEAT155G  768
           426  73150                    WCA5     SX1    X5                                                      FEAT155G  769
                     13777                        BX7    0                                                       FEAT155G  770
                          54661                   SA6    A6+B1                                                   FEAT155G  771
                               54761              SA7    A6+B1                                                   FEAT155G  772
           427  0301000440 +                      ZR     X1,WCA8     IF NORMAL (NOT I/O) ITEM                    FEAT155G  773
                          10155                   BX1    X5                                                      FEAT155G  774
           430  7170000056                        SX7    1R,                                                     FEAT155G  775
                          20147                   LX1    P.IOLCM-P.ALCM   ISOLATE LCM BIT                        FEAT155G  776
                               20766              LX7    -CHAR                                                   FEAT155G  777
           431  54770                             SA7    A7                                                      FEAT155G  778
                     7160000033                   SX6    1R0                                                     FEAT155G  779
           432  0321000433 +                      PL     X1,WCA6     IF NO LCM BIT                               FEAT155G  780
                          7160000034              SX6    1R1                                                     FEAT155G  781
           433  20666                    WCA6     LX6    -CHAR                                                   FEAT155G  782
                     54671                        SA6    A7+B1       PUT A LCM INDICATOR IN   WCAB+3             FEAT155G  783
                          10155                BX1    X5                                                         FEAT155G  784
                               43071              MX0    -L.ATYP                                                 FEAT155G  785
           434  21115                             AX1    P.ATYP                                                  FEAT155G  786
                     15310                        BX3    -X0*X1      ISOLATE ATYP                                FEAT155G  787
                          0100000025 +            RJ     KTX         CONVERT ATYP                                FEAT155G  788
           435  5160000563 +                      SA6    WCAC        PUT ATYP IN    WCAB+5                       FEAT155G  789
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    18
                                                                      WCA 
  
                          43057                   MX0    -L.ASIZ                                                 FEAT155G  790
                               15350              BX3    -X0*X5                                                  FEAT155G  791
           436  0100000025 +                      RJ     KTX         CONVERT SIZE                                FEAT155G  792
           437  5160000565 +                      SA6    WCAD                                                    FEAT155G  793
           440  74100                    WCA8     SX1    A0                                                      FEAT155G  794
                     54001                        SA0    A0+B1       ADVANCE ADDRESS                             FEAT155G  795
                          0100000000 X            PIA                CONVERT ADDRESS TO DPC                      FEAT155G  796
           441  5120000001 X                      SA2    LINEBUF+1                                               FEAT155G  797
                          5130000616 +            SA3    =7RAPL                                                  FEAT155G  798
           442  67441                             SB4    B4-B1                                                   FEAT155G  799
                     55621                        =A6    A2-1                                                    FEAT155G  800
                          10622                   BX6    X2                                                      FEAT155G  801
                               54620              SA6    A2                                                      FEAT155G  802
           443  10633                             BX6    X3                                                      FEAT155G  803
                     5120000556 +                 SA2    WCAB                                                    FEAT155G  804
                               54551              SA5    A5+B1                                                   FEAT155G  805
           444  0100000247 +                      RJ     PVF         PACK VARIABLE FIELD                         FEAT155G  806
                                                                                                                 FEAT155G  807
           445  5120000610 +             WCA9     SA2    =1H                                                     FEAT155G  808
                          10722                   BX7    X2                                                      FEAT155G  809
           446  5170000001 X                      SA7    LINEBUF+1                                               FEAT155G  810
                          0540000410 +            NZ     B4,WCA4     IF MORE ITEMS IN THIS AP-LIST               FEAT155G  811
           447  0400000373 +                      EQ     WCA3                                                    FEAT155G  812
           450                           WCAX     BSS    0           EXIT..                                      FEAT155G  813
  
  
  
  
                                        **        WCB -  LIST I/O BUFFER ASSIGNMENTS.                            FEAT155G  815
                                                                                                                 FEAT155G  816
                                                                                                                 FEAT155G  817
           450  5110000000 X                      SA1    =XMOD                                                   FEAT155G  818
                          5120000000 X            SA2    =XNARGS                                                 FEAT155G  819
           451  20160                             IFBIT  X1,-PPRO,WCBX                                           FEAT155G  820
           452  0302000474 +                      ZR     X2,WCBX     IF NO BUFFERS                               FEAT155G  821
                          63420                   SB4    X2                                                      FEAT155G  822
                               13111              PLINE  ,,1                                                     FEAT155G  823
           454  5110000000 X                      SA1    =XTA.PRO                                                FEAT155G  824
                          5130000000 X            SA3    =XT.FILE                                                FEAT155G  825
           455  53010                             SA0    X1                                                      FEAT155G  826
                     53530                        SA5    X3                                                      FEAT155G  827
                                                                                                                 FEAT155G  828
           456  54451                    WCB2     SA4    A5+B1                                                   FEAT155G  829
                     67441                        SB4    B4-B1                                                   FEAT155G  830
                          43052                   MX0    LG.VAR*CHAR                                             FEAT155G  831
                               11105              BX1    X0*X5                                                   FEAT155G  832
           457  5054000002                        SA5    A4+2        A5 = A5+3                                   FEAT155G  833
                          0334000473 +            MI     X4,WCB6     IF EQUIVALENCED FILE, AVOID..               FEAT155G  834
           460  0100000000 X                      RJ     SFN                                                     FEAT155G  835
           461  5160000573 +                      SA6    WCBC3       FILE NAME                                   FEAT155G  836
                          73140                   SX1    X4                                                      FEAT155G  837
           462  0100000000 X                      PIA                                                            FEAT155G  838
           463  6127777711                        SB2    B7-9*CHAR                                               FEAT155G  839
                          23626                   AX6    B2                                                      FEAT155G  840
           464  5160000572 +                      SA6    WCBC2       LEFT JUSTIFIED BUFFER LENGTH                FEAT155G  841
                          21444                   AX4    2*18                                                    FEAT155G  842
                               73340              SX3    X4                                                      FEAT155G  843
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    19
                                                                      WCB 
  
           465  0100000025 +                      RJ     KTX                                                     FEAT155G  844
           466  10166                             BX1    X6                                                      FEAT155G  845
                     0100000000 X                 RJ     SFN                                                     FEAT155G  846
           467  5160000570 +                      SA6    WCBC1       L-TAG                                       FEAT155G  847
                          6274517777              SB7    X4-C.PRO                                                FEAT155G  848
           470  54207                             SA2    B7+A0                                                   FEAT155G  849
                     73120                        SX1    X2                                                      FEAT155G  850
                          0100000000 X            PIA    ,WCBC                                                   FEAT155G  851
                          74160                   PLINE A6,6                                                     FEAT155G  852
                                                                                                                 FEAT155G  853
           473  0540000456 +             WCB6     NZ     B4,WCB2     IF MORE FILES                               FEAT155G  854
           474                           WCBX     BSS    0           EXIT..                                      FEAT155G  855
  
  
  
  
                                        **        WCE    - LIST END LINE.                                        FEAT155G  857
                                                                                                                 FEAT155G  858
                                                                                                                 FEAT155G  859
           474  5110000000 X                      SA1    =XLOCAL                                                 FEAT155G  860
                          5120000000 X            SA2    =XCOMSIZ                                                FEAT155G  861
           475  36112                             IX1    X1+X2                                                   FEAT155G  862
                     0100000000 X                 PIA    ,=XLPS.PL                                               FEAT155G  863
                          5160000000 X            SA6    LINEBUF                                                 FEAT155G  864
           477  5130000000 X                      SA3    LOP=O                                                   FEAT155G  865
                          0323000510 +            PL     X3,WCE1     IF NO OBJECT LISTING                        FEAT155G  866
           500  5120000000 X                      SA2    CO.ER                                                   FEAT155G  867
                          0302000510 +            ZR     X2,WCE1     IF ER=0                                     FEAT155G  868
           501  5110000617 +                      SA1    =10L LEN.                                               FEAT155G  869
                          10611                   BX6    X1                                                      FEAT155G  870
                               64260              SB2    A6                                                      FEAT155G  871
           502  54661                             SA6    A6+B1                                                   FEAT155G  872
                     5110000612 +                 SA1    =7RBSS      PUT A  * LEN.  BSS   0 *  BEFORE  * END *   FEAT155G  873
                               20106              LX1    CHAR                                                    FEAT155G  874
           503  5130000620 +                      SA3    =1R0                                                    FEAT155G  875
                          36713                   IX7    X1+X3                                                   FEAT155G  876
                               20714              LX7    2*CHAR                                                  FEAT155G  877
           504  54761                             SA7    A6+B1                                                   FEAT155G  878
                     13666                        BX6    0                                                       FEAT155G  879
                          54671                   SA6    A7+B1                                                   FEAT155G  880
                               76120              PLINE  B2,3        B2 = FWA OF LINE TO PRINT                   FEAT155G  881
           506  5130000000 X                      SA3    LPS.PL                                                  FEAT155G  882
                          10633                   BX6    X3                                                      FEAT155G  883
           507  5160000000 X                      SA6    LINEBUF                                                 FEAT155G  884
           510  5130000000 X             WCE1     SA3    MOD                                                     FEAT155G  885
                          5120000000 X            SA2    =XIDENT                                                 FEAT155G  886
           511  5110000621 +                      SA1    =7REND                                                  FEAT155G  887
                          20360                   SBIT   X3,PPRO                                                 FEAT155G  888
           512  5140000610 +                      SA4    =1H                                                     FEAT155G  889
                          21374                   AX3    -0                                                      FEAT155G  890
                               10644              BX6    X4                                                      FEAT155G  891
           513  11223                             BX2    X2*X3                                                   FEAT155G  892
                     54661                        SA6    A6+B1                                                   FEAT155G  893
                          10611                   BX6    X1                                                      FEAT155G  894
           514  0100000247 +                      RJ     PVF         PRINT *END* LINE                            FEAT155G  895
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    20
                                                                      WCS 
  
                                        **        WCS - LIST BLOCK STATISTICS.                                   FEAT155G  897
                                                                                                                 FEAT155G  898
                                                                                                                 FEAT155G  899
           515  5110000000 X                      SA1    =XFAILSFT                                               FEAT155G  900
                          0311000247 +            NZ     X1,EXIT.    IF TABLES ARE CRUMBLES UP, BLOCKS ARE WRONG FEAT155G  901
                                                                                                                 FEAT155G  902
                                        **        PREPARE STATISTICS                                             FEAT155G  903
                                                                                                                 FEAT155G  904
           516  5130000000 X                      SA3    =XLCNT                                                  FEAT155G  905
                          5140000000 X            SA4     =XLCP.PS                                               FCCA422    56
           517  37334                             IX3    X3-X4                                                   FEAT155G  907
                     6223000014                   SB2    X3+12                                                   FEAT155G  908
           520  0602000521 +                      LE     B2,WCS1     IF SUFFICIENT ROOM LEFT ON THIS PAGE        FEAT155G  909
                          73741                   SX7    X4+B1                                                   FEAT155G  910
                               54730              SA7    A3                                                      FEAT155G  911
           521  13666                    WCS1     BX6    X6-X6                                                   FEAT155G  912
                     5140000000 X                 SA4    =XCP.PW                                                 FEAT155G  913
           522  5100000002 X                      SA0    LINEBUF+2                                               FEAT155G  914
                          5160000005 X            SA6    LINEBUF+5   STORE ZERO BYTE TERMINATOR                  FEAT155G  915
           523  7110000575 +                      SX1    WCSA                                                    FEAT155G  916
                          7120000003              SX2    3                                                       FEAT155G  917
           524  0314000532 +                      NZ     X4,WCS2     IF IN PW MODE                               FEAT155G  918
                          5130000610 +            SA3    =10H                                                    FEAT155G  919
           525  53210                             SA2    X1          SHIFT TABLE HEADER FOR PW=0 FORMAT          FEAT155G  920
                     53411                        SA4    X1+B1                                                   FEAT155G  921
                          5100000000 X            SA0    LINEBUF                                                 FEAT155G  922
           526  10733                             BX7    X3                                                      FEAT155G  923
                     54541                        SA5    A4+B1                                                   FEAT155G  924
                          54700                   SA7    A0                                                      FEAT155G  925
                               10622              BX6    X2                                                      FEAT155G  926
           527  54771                             SA7    A7+B1                                                   FEAT155G  927
                     74100                        SX1    A0                                                      FEAT155G  928
                          54671                   SA6    A7+B1                                                   FEAT155G  929
                               10744              BX7    X4                                                      FEAT155G  930
           530  10655                             BX6    X5                                                      FEAT155G  931
                     7120000006                   SX2    6                                                       FEAT155G  932
                               54761              SA7    A6+B1                                                   FEAT155G  933
           531  54671                             SA6    A7+B1                                                   FEAT155G  934
           532  76611                    WCS2     PLINE  X1,X2,2     PRINT TABLE HEADER                          FEAT155G  935
                                                                                                                 FEAT155G  936
           533  6140000000 X                      SB4    =XN.BLK                                                 FEAT155G  937
                          13666                   =X6                                                            FEAT155G  938
                               67404              SB4    -B4                                                     FEAT155G  939
           534  5154000010 X             WCS3     SA5    =XBA.PRO+8+B4 FORMAT AND PRINT TABLE                    FEAT155G  940
                          10155                   BX1    X5                                                      FEAT155G  941
           535  0100000000 X                      PIA    ,LINEBUF+3  CONVERT BLOCK ADDRESS TO DPC                FEAT155G  942
                          54451                   SA4    A5+B1                                                   FEAT155G  943
                               37145              IX1    X4-X5                                                   FEAT155G  944
           537  0100000000 X                      PIA    ,LINEBUF+4  CONVERT BLOCK LENGTH TO DPC                 FEAT155G  945
                          5124000610 +            SA2    WCSB+8+B4                                               FEAT155G  946
           541  10722                             BX7    X2                                                      FEAT155G  947
                     5170000002 X                 SA7    LINEBUF+2                                               FEAT155G  948
                               75201              SX2    A0-B1                                                   FEAT155G  949
           542  7130000005 X                      SX3    LINEBUF+5                                               FEAT155G  950
                          66441                   SB4    B4+B1                                                   FEAT155G  951
                               37232              IX2    X3-X2                                                   FEAT155G  952
           543  74100                             PLINE  A0,X2                                                   FEAT155G  953
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    21
                                                                      WCS 
  
           544  0740000534 +                      MI     B4,WCS3     IF MORE BLOCKS                              FEAT155G  954
                          0400000000 X            EQ     =XWCLX      EXIT..                                      FEAT155G  955
                                                                                                                 FEAT155G  956
                                                                                                                 FEAT155G  957
           545  55343536374041555555     WCCA     DATA   10H 123456        ADDRESS                               FEAT155G  958
           546  55035733343536375555     WCCA1    DATA   10H C.01234       TAG                                   FEAT155G  959
           547  03171655555555555555              DIS    1,CON                                                   FEAT155G  960
           550  34353637404142434433     WCCA2    DATA   10H1234567890     VALUE, UPPER HALF                     FEAT155G  961
           551  34353637404142434433              DATA   10H1234567890     VALUE, LOWER HALF                     FEAT155G  962
           552  02555555555555555555     WCCA2A   DATA   10HB                                                    FEAT155G  963
           553  01020304050607101112     WCCA3    DATA   10HABCDEFGHIJ     VALUE, EXPRESSED IN DPC               FEAT155G  964
           554  00000000000000000000              DATA   0                                                       FEAT155G  965
                                                                                                                 FEAT155G  966
           555  57000000000055555555     WCFC     VFD    CHAR/1R.,L.STN/0,24/4R                                  FEAT155G  967
                                                                                                                 FEAT155G  968
           556  24010700000000000000     WCAB     DATA   0LTAG                                                   FEAT155G  969
           557  02110123000000000000              DATA   0LBIAS                                                  FEAT155G  970
           560  56000000000000000000              DATA   1L,                                                     FEAT155G  971
           561  33000000000000000000              DATA   1L0         LCM BIT.... 0 MEANS NO LCM                  FEAT155G  972
           562  56000000000000000000              DATA   1L,                                                     FEAT155G  973
           563  33000000000000000000     WCAC     DATA   1L0         TYP                                         FEAT155G  974
           564  56000000000000000000              DATA   1L,                                                     FEAT155G  975
           565  33000000000000000000     WCAD     DATA   1L0         SIZ                                         FEAT155G  976
           566  00000000000000000000              DATA   0           END OF LIST                                 FEAT155G  977
                                                                                                                 FEAT155G  978
           567  55343536374041555555     WCBC     DIS    1, 123456         ADDRESS                               FEAT155G  979
           570  55145716555555555555     WCBC1    DIS    1, L.N            L-TAG                                 FEAT155G  980
           571  02232355555555555555              DIS    1,BSS                                                   FEAT155G  981
           572  16161616025555555555     WCBC2    DIS    1,NNNNB           LENGTH                                FEAT155G  982
           573  55140616555555555555     WCBC3    DIS    1, LFN                                                  FEAT155G  983
           574  00000000000000000000              CON    0                                                       FEAT155G  984
                                                                                                                 FEAT155G  985
           575  55550214170313555555     WCSA     DATA   28C  BLOCK    ADDRESS    LENGTH                         FEAT155G  986
           600  55550317040555555555     WCSB     DIS    1,  CODE    /                                           FEAT155G  987
           601  55551411240522011455              DIS    1,  LITERAL /                                           FEAT155G  988
           602  55550617221501245555              DIS    1,  FORMAT  /                                           FEAT155G  989
           603  55552405152055555555              DIS    1,  TEMP    /                                           FEAT155G  990
           604  55550122075555555555              DIS    1,  ARG     /                                           FEAT155G  991
           605  55551601150514112324              DIS    1,  NAMELIST/                                           FEAT155G  992
           606  55552601221101021405              DIS    1,  VARIABLE/                                           FEAT155G  993
           607  55550225060605225555              DIS    1,  BUFFER  /                                           FEAT155G  994
                                                  LIST   D                                                       LIST      486
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        CO.TBK
             0 X                        T.FILE
             0 X                        FFN 
             0 X                        COD 
             0 X                        PFDX
             0 X                        PIDX
             0 X                        TS.CON
             0 X                        TS=CON
             0 X                        CP.PW 
             0 X                        WVBD
             0 X                        WBL 
             0 X                        WOD 
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    22
                                                                      LITERALS
  
             0 X                        BA.CON
             0 X                        TP.FMT
             0 X                        TP=FMT
             0 X                        BA.FMT
             0 X                        TEM.MAX 
             0 X                        BA.TEM
             0 X                        TG.VDIM 
             0 X                        TP=APL
             0 X                        BA.APL
             0 X                        TG.APL
             0 X                        TT=SCR
             0 X                        TT.SCR
             0 X                        ALC 
             0 X                        TA.PRO
             0 X                        TP.APL
             0 X                        SRT 
             0 X                        NARGS 
             0 X                        FAILSFT 
             0 X                        LCNT
             0 X                        LCP.PS
             0 X                        N.BLK 
             0 X                        BA.PRO
             0 X                        WCLX
  
                                        CONTENT OF LITERALS BLOCK.
  
           610  55555555555555555555
           611  00000011040516245555       IDENT
           612  00000002232355555555       BSS
           613  55555555555555550000
           614  02232304555555555555    BSSD
           615  02232355555555330000    BSS    0
           616  00000001201455555555       APL
           617  55140516575555555555     LEN. 
           620  00000000000000000033             0
           621  00000005160455555555       END
  
           622                           FIN      END    FTN10       END OF (1,0) OVERLAY WHEN OBJECT LIST IS ON FEAT155G  995
  
                             55100B CM  STORAGE USED             1752 STATEMENTS      879 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.379 SECONDS         499 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*      16/02
        BA.APL          0   EXTERNAL*      15/52
        BA.CON          0   EXTERNAL*      13/41
        BA.FMT          0   EXTERNAL*      14/29
        BA.PRO          0   EXTERNAL*      20/44
        BA.TEM          0   EXTERNAL*      15/05     15/25
        CHAR            6   TSTEXT          4/03      6/28     11/07     11/42     11/50     15/19     17/50     21/14
                                            4/31      8/06     11/10     11/43     11/55     15/37     18/45
                                            5/33      9/35     11/11     11/45     13/24     17/15     18/53
                                            5/37     10/09     11/12     11/48     14/17     17/36     19/34
                                            5/41     11/06     11/17     11/49     14/37     17/45     19/37
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    23
        SYMBOLIC REFERENCE TABLE. 
  
        COD             0   EXTERNAL*       6/27     14/33     15/40     17/09     18/52     19/23     20/49
                                           13/46     15/21     16/56     18/07     19/08     20/46
        COMSIZ          0   EXTERNAL*       1/46 X   19/21
        CO.ER           0   EXTERNAL*       1/48 X   19/27
        CO.TBK          0   EXTERNAL*       4/19
        CP.PW           0   EXTERNAL*      13/19     20/17
        C.BASE     200000   TSTEXT          2/24      3/29      7/48     15/15     15/34
        C.CON      340000   TSTEXT         13/30
        C.END      340000   TSTEXT          3/30
        C.PRO      260000   TSTEXT         16/02     19/05
        C.STAT     240000   TSTEXT          3/02
        C.SYM      200000   TSTEXT          4/13
        C.TEM      320000   TSTEXT         15/08     15/15     15/26
        C.VDIM     300000   TSTEXT         15/29     15/34
        FAILSFT         0   EXTERNAL*      20/04
        FFN             0   EXTERNAL*       6/19      6/31
        FIN           622   PROGRAM*        1/41 E   21/43 L
        IDENT           0   EXTERNAL*       1/52 X    7/15     19/46
        KIT             0   PROGRAM*        2/19 L    3/48      3/57      6/23     13/31
        KITA            6   PROGRAM*        2/24      2/36 L   15/15     15/34
        KIT1            3   PROGRAM*        2/26 L    2/31
        KNT            17   PROGRAM*        2/57 L    4/38
        KNT1           22   PROGRAM*        3/06 L    3/08
        KTX            25   PROGRAM*        3/26 L    6/05      8/04     16/47     17/56     19/01
                                            5/57      7/53      9/24     17/29     18/03
        KTXA           43   PROGRAM*        3/40      3/47 L
        KTXC           43   PROGRAM*        3/40      3/46 L
        KTXK           63   PROGRAM*        3/33      3/34      4/45 L
        KTXL           43   PROGRAM*        3/40      3/45 L
        KTXN           61   PROGRAM*        3/40      4/38 L
        KTXT           45   PROGRAM*        3/40      3/56 L
        KTXV           50   PROGRAM*        3/40      3/40      4/12 L
        KTXV1          57   PROGRAM*        4/20      4/21      4/29 L
        KTXZ           43   PROGRAM*        3/40      3/40      3/44 L
        KTY            65   PROGRAM*        4/47      5/19 L    9/31     15/14     15/33     17/32
        KTY6           71   PROGRAM*        5/27      5/30 L    5/35
        LCNT            0   EXTERNAL*      20/09
        LCP.PS          0   EXTERNAL*      20/10
        LG.VAR          7   TSTEXT          6/28     18/45
        LINEBUF         0   EXTERNAL*       1/44 X    7/57 S   15/11 S   15/36 S   17/14 S   19/24 S   20/26     20/54
                                            6/27 S   10/10 S   15/16 S   15/39 S   17/17 S   19/44 S   20/46 S
                                            6/36 S   11/26     15/20     16/51 S   18/08     20/18     20/49 S
                                            7/12 S   11/27     15/20 S   17/01     18/21 S   20/19 S   20/52 S
        LOCAL           0   EXTERNAL*       1/46 X   19/20
        LOP=O           0   EXTERNAL*       1/48 X   19/25
        LPS.PL          0   EXTERNAL*       1/50 X   19/23 S   19/42
        L.ABIAS        22   TSTEXT         17/05
        L.ASIZ         15   TSTEXT         18/01
        L.ATAG         22   TSTEXT         17/26
        L.ATYP          3   TSTEXT         17/53
        L.JPADF        11   TSTEXT          4/22
        L.LBIAS        22   TSTEXT          5/20      5/21      5/23      9/26
        L.LGH           6   TSTEXT          7/32      8/43
        L.PWF          15   TSTEXT          2/20      2/23      3/27      3/31
        L.STN          36   TSTEXT         14/15     21/14
        L.SYM          52   TSTEXT          4/14
        L.TAG          22   TSTEXT          8/15      9/20      9/21
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    24
        SYMBOLIC REFERENCE TABLE. 
  
        MOD             0   EXTERNAL*       1/46 X   18/32     19/45
        NARGS           0   EXTERNAL*      18/33
        N.BLK           0   EXTERNAL*      20/41
        PFD            76   PROGRAM*        1/41 E    5/54 L
        PFDA          123   PROGRAM*        6/01 S    6/06 S    6/10 S    6/17 S    6/20 S    6/26 S    6/35      6/44 L
        PFDX            0   EXTERNAL*       6/42
        PFD10         104   PROGRAM*        6/03      6/09 L
        PFD20         106   PROGRAM*        5/55      6/13 L
        PFD30         112   PROGRAM*        6/07      6/11      6/21 L
        PID           132   PROGRAM*        1/41 E    7/08 L
        PIDX            0   EXTERNAL*       7/17
        PIK           137   PROGRAM*        1/41 E    7/29 L
        PIKX            0   EXTERNAL*       1/55 X   11/28
        PIK1B         150   PROGRAM*        7/40      7/48 L
        PIK1B4        154   PROGRAM*        7/51      7/57 L
        PIK1CL        161   PROGRAM*        7/41      8/15 L    8/28      8/34      8/39
        PIK1EQ        161   PROGRAM*        7/44      8/39 D
        PIK1JP        165   PROGRAM*        7/43      8/32 L
        PIK1RJ        161   PROGRAM*        7/42      8/28 D
        PIK2          167   PROGRAM*        7/35      8/43 L
        PIK23         175   PROGRAM*        9/16 L
        PIK25         177   PROGRAM*        8/23      9/23 L
        PIK27         205   PROGRAM*        9/32      9/36 L
        PIK3          206   PROGRAM*        9/16      9/29      9/30      9/41 L
        PIK3D         213   PROGRAM*       10/11     10/16 L
        PIK3G         217   PROGRAM*       10/19     10/22     10/25 L
        PIK3L         223   PROGRAM*       10/35 L   10/45     10/52
        PIK3P         226   PROGRAM*       10/38     10/42 L   10/54
        PIK4          234   PROGRAM*        8/10     10/47     11/05 L
        PIK4A         235   PROGRAM*       11/07 L   11/21
        PIK4L         236   PROGRAM*       11/10 L   11/19
        PIK4P         241   PROGRAM*       11/15     11/19 L
        PIK5          243   PROGRAM*       10/46     11/22 L
        PIK6          244   PROGRAM*       11/26 L
        PIK=BL          0   EXTERNAL*       1/55 X   10/26
        PIK=I           0   EXTERNAL*       1/55 X    8/22 S    8/33 S    8/51 S    9/42     10/32     10/43     10/49
        PIK=J           0   EXTERNAL*       1/55 X   10/20
        PIK=PI          0   EXTERNAL*       1/55 X    8/20
        PIK=PS          0   EXTERNAL*       1/55 X    8/18      9/15     10/12     10/16
        PIK=TAG         0   EXTERNAL*       1/55 X    7/34 S    8/09 S    9/25 S    9/36 S   11/05
        PIK=XJP         0   EXTERNAL*       1/55 X   10/15     10/23
        PVF           247   PROGRAM*        6/39      7/16     11/41 L   18/17     19/55
        PVF2          251   PROGRAM*       11/45 L   12/02
        PVF4          252   PROGRAM*       11/48 L   11/57
        PVF6          255   PROGRAM*       11/53     11/57 L
        P.             73   TSTEXT          4/18     18/34     19/48
        P.ABIAS        30   TSTEXT         17/24     17/27
        P.ALCM         24   TSTEXT         17/44
        P.ATAG         52   TSTEXT         17/27
        P.ATYP         15   TSTEXT         17/54
        P.BEF          10   TSTEXT          4/20      4/23
        P.EXT           6   TSTEXT          4/18      4/20
        P.IOLCM        73   TSTEXT         17/44
        P.JPADF        33   TSTEXT          4/23
        P.LBIAS        14   TSTEXT          9/27
        P.LI12         60   TSTEXT          7/37
        P.LTAG         36   TSTEXT          8/02      8/17
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    25
        SYMBOLIC REFERENCE TABLE. 
  
        P.PPRO         13   TSTEXT         18/34     19/48
        P.STN          22   TSTEXT          3/05
        SFN             0   EXTERNAL*       1/45 X    6/34      7/55     13/33     16/49     18/49     19/03
        SRT             0   EXTERNAL*      16/28
        TA.PRO          0   EXTERNAL*      16/03     18/38
        TEM.MAX         0   EXTERNAL*      15/04     15/24
        TG.APL          0   EXTERNAL*      15/57
        TG.VDIM         0   EXTERNAL*      15/28
        TP=APL          0   EXTERNAL*      15/51     16/22
        TP=FMT          0   EXTERNAL*      14/05
        TP.APL          0   EXTERNAL*      16/07
        TP.FMT          0   EXTERNAL*      14/04
        TS=CON          0   EXTERNAL*      13/16
        TS.CON          0   EXTERNAL*      13/14
        TS.STN          0   EXTERNAL*       1/44 X    3/01
        TS.SYM          0   EXTERNAL*       1/44 X    4/12
        TT=SCR          0   EXTERNAL*      16/01 S   16/27 S   16/31
        TT.SCR          0   EXTERNAL*      16/02     16/30
        T.FILE          0   EXTERNAL*       6/13     18/39
        WBL             0   EXTERNAL*      13/28     14/10     15/23     15/42     15/55     18/37     20/39
        WCAB          556   PROGRAM*       17/30 S   18/15     21/16 L
        WCAC          563   PROGRAM*       17/57 S   21/21 L
        WCAD          565   PROGRAM*       18/04 S   21/23 L
        WCAX          450   PROGRAM*       15/53     16/41     18/24 L
        WCA22         364   PROGRAM*       16/11 L   16/14     16/16     16/20
        WCA24         370   PROGRAM*       16/12     16/22 L
        WCA3          373   PROGRAM*       16/30 L   17/03     18/23
        WCA4          410   PROGRAM*       16/52     17/05 L   18/22
        WCA42         420   PROGRAM*       17/07     17/24 L
        WCA5          426   PROGRAM*       17/33     17/37 L
        WCA6          433   PROGRAM*       17/48     17/50 L
        WCA8          440   PROGRAM*       17/41     18/05 L
        WCA9          445   PROGRAM*       17/22     18/19 L
        WCBC          567   PROGRAM*       19/08 S   21/26 L
        WCBC1         570   PROGRAM*       19/04 S   21/27 L
        WCBC2         572   PROGRAM*       18/55 S   21/29 L
        WCBC3         573   PROGRAM*       18/50 S   21/30 L
        WCBX          474   PROGRAM*       18/34     18/35     19/12 L
        WCB2          456   PROGRAM*       18/43 L   19/11
        WCB6          473   PROGRAM*       18/48     19/11 L
        WCCA          545   PROGRAM*       13/46 S   14/33 S   21/05 L
        WCCA1         546   PROGRAM*       13/35 S   14/19 S   14/40 S   21/06 L
        WCCA2         550   PROGRAM*       13/42 S   14/30 S   21/08 L
        WCCA2A        552   PROGRAM*       13/25 S   21/10 L
        WCCA3         553   PROGRAM*       13/38 S   14/25 S   21/11 L
        WCCX          306   PROGRAM*       13/27     13/51 L
        WCC1          270   PROGRAM*       13/21     13/26 L
        WCC2          273   PROGRAM*       13/30 L   13/50
        WCE1          510   PROGRAM*       19/26     19/28     19/45 L
        WCFC          555   PROGRAM*       14/14     21/14 L
        WCFX          327   PROGRAM*       14/09     14/43     14/46 L
        WCF2          312   PROGRAM*       14/14 L   14/45
        WCF5          314   PROGRAM*       14/23 L   14/44
        WCL           262   PROGRAM*        1/41 E   13/06 L
        WCLX            0   EXTERNAL*      21/02
        WCSA          575   PROGRAM*       20/20     21/33 L
        WCSB          600   PROGRAM*       20/50     21/34 L
1       /LIST  LISTING ROUTINES -- PASS 1 = OBJECT CODE.              COMPASS 3.7-871.     24/05/02. 15.53.17.      PAGE    26
        SYMBOLIC REFERENCE TABLE. 
  
        WCS1          521   PROGRAM*       20/13     20/16 L
        WCS2          532   PROGRAM*       20/22     20/39 L
        WCS3          534   PROGRAM*       20/44 L   21/01
        WCTX          353   PROGRAM*       15/30     15/43 L
        WCT2          343   PROGRAM*       15/12     15/28 L
        WOD             0   EXTERNAL*      13/39     14/27
        WOF             0   EXTERNAL*       2/01 X   12/08     14/35     17/19     19/41
                                           11/27     13/48     17/02     19/09     20/57
        WVBD            0   EXTERNAL*      13/26 S   13/47     14/34
        .CPU          111   TSTEXT          8/53 F    9/44 F
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     5111              IDENT  LSTPRO 
                       5111                       END    FTN20
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4764 
                                        LITERALS* LOCAL        4764         2 
                                        TABLES    COMMON          0       312 
                                        ORIGINS   LOCAL        4766        24 
                                        SIZES     LOCAL        5012        24 
                                        ROOMS     LOCAL        5036        24 
                                        TINFO     LOCAL        5062        24 
                                        PHVECT    LOCAL        5106         3 
  
  
                                        ENTRY POINTS. 
  
                                        B=LSTPR          0+           N.FP          4633+           S.EOT         5044+ 
                                        LABEL         3034+           RETURNS       4634+           Z.FPBL           7
                                        SYMBOL        3006+           FSTEX         4635+           O.FPBL        4775+ 
                                        LFER          3044+           VARDIM        4636+           L.FPBL        5021+ 
                                        NTYPE         3054+           LEVEL         4637+           S.FPBL        5045+ 
                                        IMPTYP        3062+           LEVEL2        4640+           Z.ASF           10
                                        NRB           3065+           N.TLAB        4641+           O.ASF         4776+ 
                                        RSSW          3066+           O.LOOP        4642+           L.ASF         5022+ 
                                        KSSW          3073+           L.LOOP        4643+           S.ASF         5046+ 
                                        FTN20         3102+           N.ERROR       4644+           Z.ARLST         11
                                        FTNABT        3222+           N.FERR        4645+           O.ARLST       4777+ 
                                        FTNEND        3227+           E.UDEFL       4646+           L.ARLST       5023+ 
                                        CDD           3350+           P2NOGO        4647+           S.ARLST       5047+ 
                                        COD           3357+           O.TSS         4650+           Z.CON           12
                                        DXB           3376+           L.TSS         4666+           O.CON         5000+ 
                                        MVE=          3415+           TEMPA0.       4650+           L.CON         5024+ 
                                        SFN           3423+           VALUE.        4651+           S.CON         5050+ 
                                        CIO=          3440+           TRACE.        4652+           Z.DATA          13
                                        RDC=          3446+           ENTRY.        4653+           O.DATA        5001+ 
                                        RDW=          3463+           EXIT.         4654+           L.DATA        5025+ 
                                        WTC=          3577+           CON.          4655+           S.DATA        5051+ 
                                        WTW=          3613+           LABEL.        4656+           Z.DIL           14
                                        FA=LOL        3677+           FTNNOP.       4657+           O.DIL         5002+ 
                                        FA=NPG        3706+           NOPS.         4660+           L.DIL         5026+ 
                                        L.STITL       3741+           FP.           4661+           S.DIL         5052+ 
                                        FA=SET        3742+           ST.           4662+           Z.DIT           15
                                        MPP           3755+           OT.           4663+           O.DIT         5003+ 
                                        OUTUSE        3771+           IT.           4664+           L.DIT         5027+ 
                                        C.BLOCK       4001+           VD.           4665+           S.DIT         5053+ 
                                        USTART.       4004+           PHASE         4666+           Z.ENTR          16
                                        UVARDIM       4005+           NAF           4667+           O.ENTR        5004+ 
                                        UENTRY.       4006+           LTN           4670+           L.ENTR        5030+ 
                                        UCODE.        4007+           LOWCORE       4671+           S.ENTR        5054+ 
                                        UDATA.        4010+           FWAWORK       4672+           Z.NML           17
                                        UDATA..       4011+           LWAWORK       4673+           O.NML         5005+ 
                                        UHOL.         4012+           O.GLT         4674+           L.NML         5031+ 
                                        FRA=          4072+           O.API         4675+           S.NML         5055+ 
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        SETCORE       4116+           O.IOT         4676+           Z.DOLST         20
                                        COMPMSG       4123+           GOTOER.       4677+           O.DOLST       5006+ 
                                        PROGNAM       4124+           O.CEP         4701+           L.DOLST       5032+ 
                                        LSTWRKG       4125+           OPTLVL        4702+           S.DOLST       5056+ 
                                        ANSI          4125+           OPT2          4703+           Z.IOLST         21
                                        IEFLG         4126+           STLTAB        4704+           O.IOLST       5007+ 
                                        LOP=M         4127+           ORIGINS       4766+           L.IOLST       5033+ 
                                        LOP=O         4130+           SIZES         5012+           S.IOLST       5057+ 
                                        LOP=R         4131+           ROOMS         5036+           Z.LTAB          22
                                        LOP=W         4126+           TINFO         5062+           O.LTAB        5010+ 
                                        LOP=X         4125+           NAFVEC        5106+           L.LTAB        5034+ 
                                        OLIST         4130+           Z.COM            0            S.LTAB        5060+ 
                                        RSELECT       4131+           O.COM         4766+           Z.SCR           23
                                        R=FLAG        4132+           L.COM         5012+           O.SCR         5011+ 
                                        O.STITL       4133+           S.COM         5036+           L.SCR         5035+ 
                                        N.AP          4142+           Z.EQV            1            S.SCR         5061+ 
                                        N.GL          4143+           O.EQV         4767+           Z.EXT           10
                                        SYMORD        4144+           L.EQV         5013+           O.EXT         4776+ 
                                        N.LINES       4405+           S.EQV         5037+           L.EXT         5022+ 
                                        N.COM         4406+           Z.DIM            2            S.EXT         5046+ 
                                        ORGTAB        4407+           O.DIM         4770+           Z.UDV            7
                                        O.LBLK        4607+           L.DIM         5014+           O.UDV         4775+ 
                                        START.        4607+           S.DIM         5040+           L.UDV         5021+ 
                                        VARDIM.       4610+           Z.DCON           3            S.UDV         5045+ 
                                        EPOINT.       4611+           O.DCON        4771+           T.FPBL        5071+ 
                                        CODE.         4612+           L.DCON        5015+           SAVTBL        4721+ 
                                        DATA.         4613+           S.DCON        5041+           PUTTAB        4722+ 
                                        DATA..        4614+           Z.LAT            4            WB.LAB        4744+ 
                                        HOL.          4615+           O.LAT         4772+           WB.ESS        4745+ 
                                        SDATA.        4616+           L.LAT         5016+           WB.LFN        4746+ 
                                        N.ST          4617+           S.LAT         5042+           WB.FTN        4747+ 
                                        N.OT          4620+           Z.SCA            5            WB.NOP        4750+ 
                                        N.DO          4621+           O.SCA         4773+           WB.CON        4751+ 
                                        N.VD          4622+           L.SCA         5017+           WB.NML        4752+ 
                                        N.IT          4623+           S.SCA         5043+           WB.FMT        4753+ 
                                        LINENR        4624+           Z.ECT            5            WB.HOL        4754+ 
                                        N.EXST        4625+           O.ECT         4773+           WB.ECGS       4755+ 
                                        N.FILES       4626+           L.ECT         5017+           WB.PROG       4756+ 
                                        N.EQUF        4627+           S.ECT         5043+           WB.FP         4757+ 
                                        IOAPLN        4630+           Z.EOT            6            SYMDMP        4760+ 
                                        XFRNAME       4631+           O.EOT         4774+           TABDMP        4762+ 
                                        FUNTYPE       4632+           L.EOT         5020+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CP.PD     F.LGO     TL.DATE   LWA2.0    ENDFTN    CP.CARD   OVL21     CO.OLVL 
                                        LCP.PS    F.OPT     TL.PAGE   WNB=      FVLEN     CP.ERCT   LOVER     FL
                                        PDFLAG    F.OUT     TL.TIME   CP.PAGE   SCRTBL    MSG=      OVLB      PMDFLAG 
                                        RS.PD     F.RLST    DFLAG     CP.BLF    GT1       CO.REW    OVLA      COMRET
                                        FV.LGO    F.RMAP    MLOP=R    RCL=      CP.LSTF   GL.SYM    OVL24 
                                        F.COMPS   L.TITL    UFLAG     SYS=      CO.ABT    CP.NFLS   PR.MXFL 
                                        F.IN      O.TITL    FWA2.0    LDCOM     CAFLAG    F.CMPS    CP.AFLS 
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     3
  
  
                                                  IDENT  LSTPRO                                                  LSTPRO      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
  
  
  
             0                           B=LSTPR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     LSTPRO      6
                                                                                                                 LSTPRO      7
                                                                                                                 LSTPRO      8
                                  12     O.SYMTAB EQU    12B               FWA OF THE SYMBOL TABLE               LSTPRO      9
                                  13     L.SYMTAB EQU    13B               LWA+1 OF THE SYMBOL TABLE             LSTPRO     10
                                  37     DUKE     =      RA.SSW+37B        CURRENT STATEMENT LINE NR (BINARY)    LSTPRO     11
  
  
  
                                                  ENTRY  LABEL                                                   LSTPRO     13
                                                  ENTRY  SYMBOL                                                  LSTPRO     14
                                                  EXT    CP.PD,LCP.PS,PDFLAG                                     FCCA422    57
                                                  EXT    RS.PD                                                   FCCA593    62
                                                  EXT    FV.LGO,F.COMPS,F.IN,F.LGO,F.OPT                         FEAT155E  335
                                                  EXT    F.OUT,F.RLST,F.RMAP                                     FEAT155E  336
                                                  EXT    L.TITL,O.TITL,TL.DATE,TL.PAGE,TL.TIME                   LSTPRO     17
                                                  EXT    DFLAG,MLOP=R,UFLAG                                      FEAT155H  143
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     4
        RLIST/LGO AND COMPS FILE BUFFERS OR HOLDING BUFFERS           RCBUFS
  
                                                                                                                 IOBUFL      2
                                        **        2 PASS BUFFER LENGTHS                                          IOBUFL      3
                                                                                                                 IOBUFL      4
                                        **        FILE CIO BUFFER LENGTHS.                                       IOBUFL      5
                                        *                                                                        IOBUFL      6
                                         #RM      IFNE   CP#RM,7                                                 IOBUFL      7
                                                                                                                 IOBUFL      8
                                         BUFL     MICRO  1,, 1002B   NOMINAL CIO BUFFER LENGTH                   IOBUFL      9
                                                                                                                 IOBUFL     10
                                1002     LC.CMPS  =      "BUFL"                                                  IOBUFL     11
                                2004     LC.LGO   =      "BUFL"*2                                                IOBUFL     12
                                2004     LC.OPT   =      "BUFL"*2                                                IOBUFL     13
                                2004     LC.RLST  =      LC.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)   IOBUFL     14
                                1002     LC.RMAP  =      "BUFL"                                                  IOBUFL     15
                                                                                                                 IOBUFL     16
                                         #RM      ELSE                                                           IOBUFL     17
                                                                                                                 IOBUFL     18
                                         BUFL     MICRO  1,, 0       (7RM I/O BUFFERS RESIDE IN LCM.)            IOBUFL     19
                                         OBUFL    =      0                                                       IOBUFL     20
                                         EBUFL    =      0                                                       FCCA488A    5
                                         IBUF     =      0                                                       IOBUFL     21
                                         OBUF     =      0                                                       IOBUFL     22
                                                                                                                 IOBUFL     23
                                         #RM      ENDIF                                                          IOBUFL     24
                                                                                                                 IOBUFL     25
                                                                                                                 IOBUFL     26
                                                                                                                 IOBUFL     27
                                        **        FILE HOLDING BUFFER LENGTHS.                                   IOBUFL     28
                                        *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)            IOBUFL     29
                                        *                                                                        IOBUFL     30
                                         #RM      IFGE   CP#RM,6                                                 IOBUFL     31
                                                                                                                 IOBUFL     32
                                         HBUFL    MICRO  1,, 400B    HOLDING BUFFER LENGTH                       IOBUFL     33
                                                                                                                 IOBUFL     34
                                         LH.CMPS  =      0                                                       IOBUFL     35
                                         LH.IN    =      0                                                       IOBUFL     36
                                         LH.LGO   =      "HBUFL"                                                 IOBUFL     37
                                         LH.OPT   =      0                                                       IOBUFL     38
                                         LH.OUT   =      0                                                       IOBUFL     39
                                         LH.ERRS  =      0                                                       FCCA488A    6
                                         LH.RLST  =      LH.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)   IOBUFL     40
                                         LH.RMAP  =      "HBUFL"                                                 IOBUFL     41
                                                                                                                 IOBUFL     42
                                         #RM      ENDIF                                                          IOBUFL     43
                                                                                                                 RSM2763X   10
                                         #RM      IFEQ   CP#RM,0                                                 RSM2763X   11
                                                                                                                 RSM2763X   12
             0                  2004     O.RLST   BSS    LC.RLST                                                 RSM2763X   13
          2004                  1002     O.CMPS   BSS    LC.CMPS                                                 RSM2763X   14
                                                                                                                 RSM2763X   15
                                         #RM      ELSE                                                           RSM2763X   16
                                                                                                                 RSM2763X   17
                                         O.CMPS   BSS    0                                                       RSM2763X   18
                                         O.RLST   BSS    LH.RLST                                                 RSM2763X   19
                                                                                                                 RSM2763X   20
                                         #RM      ENDIF                                                          RSM2763X   21
                                                                                                                 RSM2763X   22
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     5
        RLIST/LGO AND COMPS FILE BUFFERS OR HOLDING BUFFERS           RCBUFS
  
                                   0 +   O.LGO    EQU    O.RLST                                                  RSM2763X   23
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     6
        SYMBOL TABLE SEARCH ROUTINES                                  SYMBOL
  
                                        ***                                                                      LSTPRO     20
                                        *         SYMBOL AND LABEL ARE THE SEARCH-AND-ENTER ROUTINES FOR THE     LSTPRO     21
                                        *         SYMBOL TABLE. ENTRY IS MADE WITH THE SYMBOL (LABEL) FOR WHICH  LSTPRO     22
                                        *         THE TABLE IS TO BE SEARCHED IN X1.  THIS SYMBOL SHOULD BE      LSTPRO     23
                                        *         LEFT JUSTIFIED WITH BLANK FILL IN BITS 00-47.                  LSTPRO     24
                                        *                                         B7+1 AT ENTRY CONTAINS THE     LSTPRO     25
                                        *         ADDRESS TO WHICH CONTROL SHOULD BE RETURNED IN THE EVENT       LSTPRO     26
                                        *         THAT THE SYMBOL IS IN TABLE. B7 CONTAINS THE ADDRESS TO WHICH  LSTPRO     27
                                        *         CONTROL SHOULD BE RETURNED IN THE EVENT THAT THE SYMBOL IS     LSTPRO     28
                                        *         NOT IN THE TABLE. IN THE LATTER CASE A NEW ENTRY WILL BE MADE  LSTPRO     29
                                        *         FOR THE SYMBOL AND THE APPROPRIATE CHANGES AND ADDITIONS MADE  LSTPRO     30
                                        *         TO THE LINKING INFORMATION.                                    LSTPRO     31
                                        *                                                                        LSTPRO     32
                                        *         ON EXIT:                                                       LSTPRO     33
                                        *                A0 = FWA OF THE SYMBOL TABLE                            LSTPRO     34
                                        *                A1,X1 = ADDRESS AND CONTENTS OF WORD 1 OF THE ENTRY     LSTPRO     35
                                        *                A2,X2 = ADDRESS AND CONTENTS OF WORD 2 OF THE ENTRY     LSTPRO     36
                                        *                B1 = ORDINAL OF THE ENTRY                               LSTPRO     37
                                        *                B2 = 2*B1  AND  B5 = 1                                  LSTPRO     38
                                        *                                                                        LSTPRO     39
                                        *         IN ADDITION IF THIS IS THE FIRST OCCURANCE OF A NAME, THEN:    LSTPRO     40
                                        *                X7 = 0 AND X6 = NATURAL TYPE S P.TYP                    LSTPRO     41
                                        *                                                                        LSTPRO     42
                                        *         IN DEBUG MODE, REPEATED OCCURANCES OF A NAME WITH TYPE         LSTPRO     43
                                        *         "T.DBG" ,  ( NAME FIRST MENTIONED IN A "DEBUG" STMT" )         LSTPRO     44
                                        *                X2 = .NOT.MASK(48).A.WORDB  ( P- FIELD ONLY )           LSTPRO     45
                                        *                X6 = SAVED NATURAL TYPE                                 LSTPRO     46
                                        *                X7 = THE DEBUG FIELD BITS IN WORD B ( " 0 )             LSTPRO     47
                                        *                AND CONTROL IS RETURNED TO THE FIRST OCCURRANCE EXIT    LSTPRO     48
                                                                                                                 LSTPRO     49
                                                                                                                 LSTPRO     50
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     7
         SYMBOL - SEARCH SYMBOL TABLE 
  
          3006  20114                    SYMBOL   LX1    12                LEFT JUSTIFY SYMBOL (BIT 59)          LSTPRO     52
                     10411                        BX4    X1                BEGIN HASHING IN X4                   LSTPRO     53
                          5130004144 +            SA3    SYMORD            .BEGIN LOAD OF CURRENT NEXT ORD       LSTPRO     54
          3007  20425                             LX4    21                .HASH                                 LSTPRO     55
                     6110000007                   SB1    7                 .  TWO                                LSTPRO     56
                               13414              BX4    X1-X4             .    21-BIT                           LSTPRO     57
          3010  22614                             LX6    B1,X4             .      BYTES                          LSTPRO     58
                     5120000012                   SA2    O.SYMTAB          FWA OF SYMTAB                         LSTPRO     59
                               13464              BX4    X6-X4             .HASH                                 LSTPRO     60
          3011  22716                             LX7    B1,X6             .  THREE                              LSTPRO     61
                     63130                        SB1    X3                NEXT ORDINAL                          LSTPRO     62
                          13474                   BX4    X7-X4             .    7-BIT BYTES                      LSTPRO     63
                               43065              MX0    53                .      BYTES                          LSTPRO     64
          3012  20407                             LX4    7                 .                                     LSTPRO     65
                     6150000001                   SB5    1                                                       LSTPRO     66
                               53020              SA0    X2                START OF SYMBOL TABLE TO A0           LSTPRO     67
          3013  15440                             BX4    -X0*X4            .X4 NOW HAS HEAD-OF-LIST POINTER      LSTPRO     68
                     43552                        MX5    42                .42-BIT MASK IN X5                    LSTPRO     69
                          66211                   SB2    B1+B1             2*NEXT ORDINAL                        LSTPRO     70
          3014  5224004145 +                      SA2    X4+SLIST          .GET ORDINAL FOR HEAD OF LIST         LSTPRO     71
          3015  65302                    SLCOMM   SB3    A0-B2             CURRENT NEXT ADDRESS IN B3            LSTPRO     72
                     11015                        BX0    X1*X5             .MASK OFF SYMBOL IN X0                LSTPRO     73
                          43360                   MX3    48                .48-BIT MASK IN X3                    LSTPRO     74
                               63420              SB4    X2                .HEAD OF LIST ORDINAL IN B4           LSTPRO     75
          3016  0540003026 +                      NE     B4,PRETOP         .IF LIST NON-EMPTY,SEARCH             LSTPRO     76
                          76710                   SX7    B1                HEAD OF LIST                          LSTPRO     77
          3017  10600                    LSTSW1   BX6    X0                .P- BOTH EQUAL TO ZERO           LSTS LSTPRO     78
                     6161767777                   SB6    B1-4096           TEST MAXIMUM TABLE SIZE               LSTPRO     79
                               56630              SA6    B3                STORE WORD A                          LSTPRO     80
          3020  54720                             SA7    A2                STORE LIST HEAD OR NEXT LINK          LSTPRO     81
                     0460003043 +                 ZR     B6,STFULL         IF SYMBOL TABLE FULL                  LSTPRO     82
                               43700              MX7    0                                                       LSTPRO     83
          3021  7066777775                        SX6    A6-2              DECREASE SYMEND BY 2                  LSTPRO     84
                          55765                   SA7    A6-B5             STORE WORD B                          LSTPRO     85
                               55102              SA1    A0-B2             SETUP A1,X1 WITH WORD A               LSTPRO     86
          3022  5160000013                        SA6    L.SYMTAB          UPDATE SYMEND                         LSTPRO     87
                          76615                   SX6    B1+B5             INCREASE SYMORD BY 1                  LSTPRO     88
                               55215              SA2    A1-B5             SETUP A2,X2 WITH WORD B               LSTPRO     89
          3023  5160004144 +                      SA6    SYMORD                                                  LSTPRO     90
                          0331003025 +            NG     X1,RETRN1         IF A LABEL                            LSTPRO     91
          3024  0100003054 +                      RJ     NTYPE             GET THE NATURAL TYPE                  LSTPRO     92
          3025  0277000000               RETRN1   JP     B7                                                      LSTPRO     93
                                                                                                                 LSTPRO     94
                                        *                                                                        LSTPRO     95
                                        *         MAIN SEARCH LOOP TO SCAN DOWN A SYMBOL CHAIN                   LSTPRO     96
                                        *                                                                        LSTPRO     97
                                                                                                                 LSTPRO     98
          3026  66244                    PRETOP   SB2    B4+B4             2*HEAD OF LIST ORDINAL                LSTPRO     99
                     55202                        SA2    A0-B2             LOAD THE FIRST SYMBOL                 LSTPRO    100
          3027  11452                    TOP      BX4    X5*X2             EXTRACT THE SYMBOL                    LSTPRO    101
                     37640                        IX6    X4-X0                                                   LSTPRO    102
                          0306003045 +            ZR     X6,FOUND          IF SYMBOLS ARE THE SAME               LSTPRO    103
          3030  15723                             BX7    -X3*X2            ISOLATE P+                            LSTPRO    104
                     63470                        SB4    X7                ORDINAL OF NEXT LINK                  LSTPRO    105
                          0307003032 +            ZR     X7,ENTER          IF END OF CHAIN                       LSTPRO    106
          3031  66244                             SB2    B4+B4             2*ORDINAL                             LSTPRO    107
                     55202                        SA2    A0-B2             LOAD THE NEXT MEMBER OF CHAIN         LSTPRO    108
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     8
         SYMBOL - SEARCH SYMBOL TABLE 
  
                          0400003027 +            EQ     TOP                                                     LSTPRO    109
                                                                                                                 LSTPRO    110
                                        *         SETUP TO LINK A NEW SYMBOL ONTO THE CAHIN                      LSTPRO    111
                                                                                                                 LSTPRO    112
          3032  76410                    ENTER    SX4    B1                NEXT ORDINAL                          LSTPRO    113
                     12724                        BX7    X2+X4             INSERT NEW LINK                       LSTPRO    114
                          66211                   SB2    B1+B1             2*ORDINAL                             LSTPRO    115
          3033  0400003017 +                      EQ     LSTSW1            GO PERFORM REST OF PROCESSING         LSTPRO    116
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE     9
         LABEL - LABEL SEARCH ROUTINE 
  
                                        ***                                                                      LSTPRO    118
                                        *         LABEL - SEARCH AND ENTER ROUTINE FOR SYMBOLIC LABELS           LSTPRO    119
                                        *                                                                        LSTPRO    120
          3034  20114                    LABEL    LX1    12                LEFT JUSTIFY LABEL                    LSTPRO    121
                     10411                        BX4    X1                BEGIN HASHING IN X4                   LSTPRO    122
                          5130004144 +            SA3    SYMORD            .BEGIN LOAD OF CURRENT NEXT ORD.      LSTPRO    123
          3035  20417                             LX4    15                HASH BITS 24-53                       LSTPRO    124
                     6110000005                   SB1    5                                                       LSTPRO    125
                               13441              BX4    X4-X1             INTO TWO 15-BIT                       LSTPRO    126
          3036  22614                             LX6    B1,X4             CHUNKS                                LSTPRO    127
                     5120000012                   SA2    O.SYMTAB                                                LSTPRO    128
                               13464              BX4    X6-X4             HASH THREE                            LSTPRO    129
          3037  22716                             LX7    B1,X6             5-BIT                                 LSTPRO    130
                     63130                        SB1    X3                NEXT ORDINAL                          LSTPRO    131
                          13447                   BX4    X4-X7             BYTES.                                LSTPRO    132
                               53020              SA0    X2                START OF SYMBOL TABLE TO A0           LSTPRO    133
          3040  6150000001                        SB5    1                                                       LSTPRO    134
                          66211                   SB2    B1+B1             2*ORDINAL                             LSTPRO    135
                               43067              MX0    55                MASK IN X0                            LSTPRO    136
          3041  20413                             LX4    11                                                      LSTPRO    137
                     15640                        BX6    -X0*X4            HASHED 5-BIT SYMBOL (POINTER) IN X6   LSTPRO    138
                          43544                   MX5    36                .36-BIT MASK IN X5                    LSTPRO    139
          3042  5226004345 +                      SA2    LLIST+X6          LOAD HEAD OF LIST                     LSTPRO    140
                          0400003015 +            EQ     SLCOMM            .GO TO COMMON SEARCH ROUTINE          LSTPRO    141
                                                                                                                 LSTPRO    142
                                        ***                                                                      LSTPRO    143
                                        *         ERROR EXIT                                                     LSTPRO    144
                                        *                                                                        LSTPRO    145
          3043  6160777711               STFULL   SB6    -54               (ERROR NO. 54 = SYMBOL TABLE OVERFLOW LSTPRO    146
          3044  00000000000000000000     LFER     ENTRY.                   JUMP TO FATALER IN ERPRO PLACED HERE  LSTPRO    147
  
  
  
                                        *         FOUND EXIT                                                     LSTPRO    149
                                                                                                                 LSTPRO    150
          3045  54120                    FOUND    SA1    A2                SETUP WORD A A1,X1                    LSTPRO    151
                     66140                        SB1    B4                ORDINAL                               LSTPRO    152
                          55215                   SA2    A1-B5             WORD B                                LSTPRO    153
          3046  0277000001               LSTSW3   JP     B7+1                                                    LSTPRO    154
                                                                                                                 LSTPRO    155
                                        *         X4 = TYPE FIELD - T.UDV IF IN DEBUG MODE                       LSTPRO    156
                                                                                                                 LSTPRO    157
          3047  0304003050 +            +         ZR     X4,*+1            IF AN UNUSED DEBUG VARIABLE           LSTPRO    158
                          0277000001              JP     B7+1                                                    LSTPRO    159
                                                                                                                 LSTPRO    160
          3050  43520                             MX5    L.DBGI                                                  LSTPRO    161
                     20543                        LX5    L.DBGI+P.DBGI                                           LSTPRO    162
                          11752                   BX7    X5*X2             X7 = DEBUG FIELD BITS                 LSTPRO    163
                               43360              MX3    48                                                      LSTPRO    164
          3051  22602                             LX6    X2                                                      LSTPRO    165
                     13222                        BX2    X2-X2             CLEAR WORD B                          LSTPRO    166
                          20625                   LX6    P.TYP-P.SNT                                             LSTPRO    167
                               11606              BX6    X0*X6             X6 = SAVED NATURAL TYPE               LSTPRO    168
          3052  0277000000                        JP     B7                RETURN TO FIRST TIME EXIT             LSTPRO    169
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    10
         NTYPE - GET NATURAL TYPE OF A VARIABLE 
  
                                        ***                                                                      LSTPRO    171
                                        *         NTYPE - DETERMINE NATURAL TYPE OF A VARIABLE                   LSTPRO    172
                                        *                                                                        LSTPRO    173
                                        *         ON ENTRY:                                                      LSTPRO    174
                                        *                X1 = NAME LEFT JUSTIFIED                                LSTPRO    175
                                        *                                                                        LSTPRO    176
                                        *         ON EXIT28                                                      LSTPRO    177
                                        *                X0 = TYPE , RIGHT ADJUSTED                              LSTPRO    178
                                        *                X6 = TYPE S P.TYP                                       LSTPRO    179
                                        *                                                                        LSTPRO    180
                                        *         USES   A3,X3,B3                                                LSTPRO    181
                                        *                                                                        LSTPRO    182
                                                                                                                 LSTPRO    183
          3053  6130000070               NTYPEX   SB3    P.TYP                                                   LSTPRO    184
                          22630                   LX6    B3,X0             TYPE TO X6                            LSTPRO    185
                                                                                                                 LSTPRO    186
          3054  00000000000000000000     NTYPE    ENTRY.                                                         LSTPRO    187
          3055  6130000066                        SB3    54                                                      LSTPRO    188
                          23031                   AX0    B3,X1             POSITION TO FIRST CHARACTER           LSTPRO    189
          3056  5130003062 +                      SA3    IMPTYP                                                  LSTPRO    190
                          63300                   SB3    X0                                                      LSTPRO    191
                               43000              MX0    0                 SET TYPE TO LOGICAL                   LSTPRO    192
                                                                                                                 LSTPRO    193
          3057  22333                    NTYPEL   LX3    B3,X3             SHIFT BIT TABLE BY CHARACTER          LSTPRO    194
                     0333003053 +                 NG     X3,NTYPEX         IF A HIT                              LSTPRO    195
                               73005              SX0    X0+B5             BUMP TYPE                             LSTPRO    196
          3060  20332                             LX3    26                CHECK LOWER TYPE                      LSTPRO    197
                     0333003053 +                 NG     X3,NTYPEX                                               LSTPRO    198
                               54335              SA3    A3+B5             NEXT WORD                             LSTPRO    199
          3061  73005                             SX0    X0+B5                                                   LSTPRO    200
                     0400003057 +                 EQ     NTYPEL                                                  LSTPRO    201
  
  
  
                                        ***                                                                      LSTPRO    203
                                        *         IMPTYP - IMPLICIT TYPE BIT TABLE                               LSTPRO    204
                                        *                                                                        LSTPRO    205
                                                                                                                 LSTPRO    206
                                                  ENTRY  IMPTYP                                                  LSTPRO    207
          3062  000000000                IMPTYP   VFD    27/0              LOGICAL                               LSTPRO    208
                         00176000000              VFD    8/0,6/77B,19/0    INTEGER                               LSTPRO    209
          3063  377007777                         VFD    9/377B,6/0,12/7777B                                     LSTPRO    210
                         00000000000              VFD    33/0              DOUBLE                                LSTPRO    211
          3064  000000000                         VFD    27/0              COMPLEX                               LSTPRO    212
                         00000000000              VFD    33/0                                                    LSTPRO    213
                                                                                                                 LSTPRO    214
                                        ***                                                                      LSTPRO    215
                                        *         SAVE NATURAL REAL BITS                                         LSTPRO    216
                                        *         IF NEEDED, NATURAL INTEGER BITS WILL BE COMPUTED IN LINE       LSTPRO    217
                                                                                                                 LSTPRO    218
                                                  ENTRY  NRB                                                     LSTPRO    219
          3065  3770077770000000000      NRB      VFD    9/377B,6/0,12/7777B,30/0                                LSTPRO    220
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    11
         NTYPE - GET NATURAL TYPE OF A VARIABLE                       RSSW
  
                                        **        RSSW - PLUG SWITCHES IN *SYMBOL* FOR *LISTIO* AND *FAX*.       LSTPRO    222
                                        *                                                                        LSTPRO    223
                                        *         SET SWITCHS SO THAT SYMBOL AND LABEL DO NOT ADD AN ENTRY       LSTPRO    224
                                        *         TO SYMTAB IF THE NAME IS NOT FOUND.                            LSTPRO    225
                                        *                                                                        LSTPRO    226
                                        *         THIS CODE IS NECESSARY SINCE THE NAMES OF THE BASIC EXTERNAL   LSTPRO    227
                                        *         FUNCTIONS ARE INITIALLY ENTERED IN "SYMTAB" WITHOUT            LSTPRO    228
                                        *         A TRAILING DOLLAR SIGN OR PERIOD.                              LSTPRO    229
                                        *         IF "LSTPRO" RETURNS TO THE NOT FOUND EXIT, THEN FAX WILL       LSTPRO    230
                                        *         SEARCH THE TABLE OF EXTERNAL NAMES THAT IT HAS CONSTRUCTED     LSTPRO    231
                                        *                                                                        LSTPRO    232
                                        *         KSSW - RESTORE SYMBOL CODE TO ORIGINAL PASS 1 STATE            LSTPRO    233
                                        *                                                                        LSTPRO    234
          3066  00000000000000000000     RSSW     ENTRY.                                                         LSTPRO    235
          3067  7160000027                        SX6    027B                                                    LSTPRO    236
                          46000                   NO                                                             LSTPRO    237
                               20663              LX6    51                FORM / JP B7 / INSTRUCTION            LSTPRO    238
          3070  5160003017 +                      PLUG   AT=LSTSW1,FROM=X6                                       LSTPRO    239
          3072  0400003066 +                      EQ     RSSW                                                    LSTPRO    240
                                                                                                                 LSTPRO    241
          3073  00000000000000000000     KSSW     ENTRY.                                                         LSTPRO    242
          3074  5130003100 +                      PLUG   AT=LSTSW1,FROM=KLS1N,FREG=3,SREG=7                      LSTPRO    243
          3077  0400003073 +                      EQ     KSSW                                                    LSTPRO    244
                                                                                                                 LSTPRO    245
                                                                                                                 LSTPRO    246
                                                                                                                 LSTPRO    247
          3100  10600                    KLS1N    BX6    X0                                                      LSTPRO    248
                     6161767777                   SB6    B1-4096                                                 LSTPRO    249
                               56630              SA6    B3                                                      LSTPRO    250
                                                                                                                 LSTPRO    251
          3101  43004                    KLS.D    MX0    L.TYP             PLUG FOR DEBUG MODE                   LSTPRO    252
                     11302                        BX3    X0*X2                                                   LSTPRO    253
                          37403                   IX4    X0-X3                                                   LSTPRO    254
                               46000              NO                                                             LSTPRO    255
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    12
        BATCH COMPILATION CONTROL                                     LSTPRO$ 
  
                                        *         IF (BREAK=20) WAS SELECTED, ENTRY TO OVERLAY(2,0) WILL BE TO   FEAT155F  213
                                        *         *FTN20-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.  FEAT155F  214
                                                                                                                 FEAT155F  215
                                         FTN20    BREAK                                                          FEAT155F  216
                                                                                                                 FEAT155F  217
                                                  ENTRY  FTN20                                                   LSTPRO    259
          3102                           FTN20    BSS    0           ** LOADER ENTRY POINT **                    LSTPRO    260
          3102  6110000001                        SB1    1                                                       LSTPRO    261
                                                                                                                 LSTPRO    262
                                                                                                                 LSTPRO    263
                                        **        POST REPRIEVE REQUEST.                                         LSTPRO    264
                                        *                                                                        LSTPRO    265
                                         .T       IFNE   TEST,0                                                  LSTPRO    266
                                                  SA1    RA.SSW                                                  LSTPRO    267
                                                  LX1    59-11                                                   LSTPRO    268
                                                  MI     X1,LST2     IF SENSE SWITCH 6 ON, SKIP *RPV* REQUEST    LSTPRO    269
                                         .T       ENDIF                                                          LSTPRO    270
                                                                                                                 LSTPRO    271
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1083
                                         .T       IFEQ   TEST,0                                                  LSTPRO    273
                          7160222026              SYSTEM RPV,RCL,XJP,23BS6                                       LSTPRO    274
                                         .T       ELSE                                                           LSTPRO    275
                                                  SYSTEM RPV,RCL,XJP,37BS6                                       LSTPRO    276
                                         .T       ENDIF                                                          LSTPRO    277
                                         #OS      ELSE                                                           LSTPRO    278
                                                  REPRIEVE  XJP      POST REPRIEVE REQUEST                       LSTPRO    279
                                         #OS      ENDIF                                                          LSTPRO    280
                                                                                                                 LSTPRO    281
                                                                                                                 LSTPRO    282
                                        **        OPEN FILES.                                                    LSTPRO    283
                                        *                                                                        LSTPRO    284
          3106  0100003141 +             LST2     CALL   OPF         OPEN FILES                                  LSTPRO    285
          3107  5110000000 X                      SA1    =XCOMRET                                                FCCA519    14
                          0321003111 +            PL     X1,LST2A    IF FIRST TIME THROUGH                       FCCA519    15
          3110  5120000000 X                      SA2    CP.CARD                                                 FCCA519    16
                          0302003227 +            ZR     X2,FTNEND   IF COMPASS DETECTED EOR                     FCCA519    17
                                                                                                                 FCCA519    18
          3111                           LST2A    BSS    0                                                       FCCA519    19
                                                                                                                 LSTPRO    286
                                         #RM      IFNE   CP#RM,7                                                 FCCA510     5
          3111  5110000000 X                      SA1    =XPMDFLAG                                               FEAT1070C  97
                          0301003117 +            ZR     X1,USKIP1                                               FEAT1070C  98
          3112  7120004737 +                      OPEN   ZZZZZSY,WRITENR,R                                       FEAT1070C  99
          3114  5150000000 X                      SA5    =XFL                                                    FEAT1070C 100
                          10655                   BX6    X5                                                      FEAT1070C 101
          3115  5160004743 +                      SA6    ZZZZZSY+4   LIMIT = FL                                  FEAT1070C 102
                          7160000002              SX6    2                                                       FCCA562     6
          3116  5160004740 +                      SA6    ZZZZZSY+1   FIRST = 2                                   FCCA562     7
          3117                           USKIP1   BSS    0                                                       FEAT1070C 103
                                         #RM      ENDIF                                                          FCCA510     6
                                                                                                                 LSTPRO    287
                                                                                                                 LSTPRO    288
          3117                           LST3     BSS    0           ** BATCH COMPILATION RESTART ENTRY POINT ** LSTPRO    289
                                                                                                                 LSTPRO    290
                                                                                                                 LSTPRO    291
                                                                                                                 LSTPRO    292
                                        **        INITIALIZE INTERNAL OPT LEVEL CELL TO CONTROL CARD VALUE.      LSTPRO    293
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    13
        BATCH COMPILATION CONTROL                                     LSTPRO$ 
  
                                        *                                                                        LSTPRO    294
          3117  5110000000 X                      SA1    =XCO.OLVL                                               LSTPRO    295
                          10611                   BX6    X1                                                      LSTPRO    296
                               23711              AX7    B1,X1                                                   LSTPRO    297
          3120  5160004702 +                      SA6    OPTLVL      OPTLVL = CO.OLVL                            LSTPRO    298
                          5170004703 +            SA7    OPT2        OPT2 = OPTLVL / 2                           LSTPRO    299
          3121  5110000000 X                      SA1    =XCP.AFLS                                               RSM2763X   24
                          10611                   BX6    X1                                                      RSM2763X   25
          3122  5160000000 X                      SA6    =XPR.MXFL   PR.MXFL = CP.AFLS                           RSM2763X   26
                                                                                                                 LSTPRO    300
                                                                                                                 LSTPRO    301
                                        **        LOAD AND EXECUTE PASS 1.                                       LSTPRO    302
                                        *         SELECT (2,1) OVERLAY IF DEBUG OFF, OR (2,4) IF ON.             LSTPRO    303
                                        *                                                                        LSTPRO    304
                          5110000000 X            SA1    DFLAG       (X1) = DEBUG OPTION CONTROL WORD            LSTPRO    305
          3123  0301003134 +                      ZR     X1,LST4     IF DEBUG (D) OPTION OFF                     LSTPRO    306
                          5110003101 +            PLUG   AT=LSTSW3,FROM=KLS.D                                    LSTPRO    307
          3127  5150004673 +                      LOVER  OVL24       LOAD AND EXECUTE (2,4) OVERLAY              LSTPRO    308
          3134  5150004673 +             LST4     LOVER  OVL21       LOAD AND EXECUTE (2,1) OVERLAY              LSTPRO    309
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    14
        BATCH COMPILATION CONTROL                                     OPF 
  
                                        **        OPF - OPEN FILES.                                              LSTPRO    311
                                        *                                                                        LSTPRO    312
                                        *         OPENS CMPS, IN, OUT AND RLST FILES.  IF CONTROL CARD OPTIONS   LSTPRO    313
                                        *         ARE ON, OPENS LGO AND RMAP FILES.                              LSTPRO    314
                                        *         THE OPT/DEBUG FILE IS OPENED BY THE (2,2)/(2,4) OVERLAY.       LSTPRO    315
                                        *         BUFFERS ARE ALLOCATED TO BLANK COMMON BEGINNING AT HIGH CORE   LSTPRO    316
                                        *         AND WORKING DOWN.                                              LSTPRO    317
                                        *         (RECORD MANAGER ONLY) - FILE POSITIONING PARAMETERS ARE TAKEN  LSTPRO    318
                                        *         FROM THE FITS.  THOSE PARAMETERS AGREE WITH THE POSITIONING    LSTPRO    319
                                        *         REQUESTS ON THE -OPEN- CALLS BELOW.                            LSTPRO    320
                                        *                                                                        LSTPRO    321
                                        *                                                                        LSTPRO    322
                                        *         ENTRY  FIT, FET AND PSEUDO-FET PARAMETERS CORRECTLY SET.       LSTPRO    323
                                        *                (B1) = 1                                                LSTPRO    324
                                        *                                                                        LSTPRO    325
                                        *         EXIT   (B1) = 1                                                LSTPRO    326
                                        *                FILES ARE OPEN.                                         LSTPRO    327
                                        *                                                                        LSTPRO    328
                                        *         USES   A - 1, 2, 6                                             LSTPRO    329
                                        *                X - 1, 2, 6                                             LSTPRO    330
                                        *                B - 2, 3, 4                                             LSTPRO    331
                                        *                                                                        LSTPRO    332
                                        *         CALLS  OPEN, CLOSE, SETFIL, READ                               LSTPRO    333
                                                                                                                 LSTPRO    334
                                                                                                                 LSTPRO    335
          3141  0400403141 +             OPF      ENTRY. *           ** ENTRY/EXIT **                            LSTPRO    336
                                                                                                                 LSTPRO    337
                                         .T       IFNE   TEST,0                                                  LSTPRO    338
                                                  OPEN   F.TEST,ALTER,RCL  INTERNAL DEBUG FILE *SYMTAB*          FCCA580    14
                                         .T       ENDIF                                                          LSTPRO    340
                                                                                                                 LSTPRO    341
                                        *         IF RETURNING FROM *COMPASS* (CP.CARD = .NZ.), -IN-, -OUT-      LSTPRO    342
                                        *         AND -LGO- ARE  ALREADY OPEN.  BUFFERS ARE ALLOCATED FOR        LSTPRO    343
                                        *         -IN- AND -OUT- ONLY.                                           LSTPRO    344
                                                                                                                 LSTPRO    345
                                                  ECHO   1,Z=(RLST,CMPS,LGO)                                     RSM2763X   27
                                                  SETFIL FILE==XF.Z,MODE=INIT,FWA==XO.Z                          RSM2763X   28
          3150  5110000000 X                      SA1    COMRET                                                  FCCA519    20
                          0311003216 +            NZ     X1,OPF7     IF RETURNING FROM COMPASS                   RSM2763X   30
          3151  5110000000 X                      SA1    =XCP.NFLS                                               RSM2763X   31
                          6221777773              SB2    X1-4                                                    RSM2763X   32
          3152  5120000000 X             OPF3     SA2    MLOP=R                                                  FEAT155H  144
                          0322003155 +            PL     X2,OPF4     IF SHORT REF MAP OPTION (R-OPTION .LT. 2)   LSTPRO    355
          3153  7120000000 X                      SETFIL FILE=F.RMAP,MODE=INIT,LWA1=B2                           LSTPRO    356
                                                                                                                 LSTPRO    357
                                        *         SET SYMBOL TABLE LWA+1 (TERMED AN INVERTED FWA, SINCE THE      LSTPRO    358
                                        *         SYMBOL TABLE GROWS DOWNWARD) TO LAST BUFFER FWA.               LSTPRO    359
                                                                                                                 LSTPRO    360
          3155  7162777775               OPF4     SX6    B2-2                                                    LSTPRO    361
                          5110000000 X            SA1    =XDFLAG                                                 FCC0761    10
                                                  IFEQ   TEST,0,1          ALLOW SLOP FOR SYMDMP IN TEST MODE    RSM2763X   33
          3156  0301003157 +                      ZR     X1,OPF4A    IF NOT DEBUG MODE                           FCC0761    11
                          7266777633              SX6    X6-100      ALLOCATE DEBUG FIXED AREA LIST              FCC0761    12
                                                                                                                 FCC0761    13
          3157  5160000012               OPF4A    SA6    O.SYMTAB    INITIALIZE INVERTED FWA FOR SYMBOL TABLE    FCC0761    14
                          5160000000 X            SA6    =XGL.SYM    SAVE FOR RESTORE IN LSTPRO                  FCC0761    15
                                                                                                                 LSTPRO    363
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    15
        BATCH COMPILATION CONTROL                                     OPF 
  
                                        *         OPEN INPUT, OUTPUT AND LGO FILES.                              LSTPRO    364
                                                                                                                 LSTPRO    365
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO    366
          3160  7120000000 X                      OPEN   F.OUT,NR,RCL                                            FCCA580    15
          3162  5110000000 X                      SA1    =XCO.REW                                                FEAT155H  145
                          0301003165 +            ZR     X1,OPF4C                                                FEAT155H  146
          3163  7120000000 X                      REWIND F.IN                                                    FEAT155H  147
          3165  7120000000 X             OPF4C    READ   F.IN        FILL INPUT BUFFER                           FEAT155H  148
                                         #RM      ELSE                                                           LSTPRO    368
                                                  SA1    =XCO.REW                                                FEAT155H  149
                                                  ZR     X1,OPF4C                                                FEAT155H  150
                                                  OPEN   F.IN,ALTER,RCL                                          FCCA580    16
                                                  REWIND F.IN                                                    FEAT155H  152
                                                  EQ     OPF4D                                                   FEAT155H  153
                                                                                                                 FEAT155H  154
                                         OPF4C    BSS    0                                                       FEAT155H  155
                                                  OPEN   F.IN,READNR,RCL                                         FCCA580    17
                                         OPF4D    BSS    0                                                       FEAT155H  156
                                                  STORE  X2,MRL=100D                                             LSTPRO    370
                                                  OPEN   F.OUT,WRITENR,RCL                                       FCCA580    18
                                                  OPEN   F.OPT,ALTER,RCL                                         FCCA580    19
                                         #RM      ENDIF                                                          LSTPRO    373
                                                                                                                 LSTPRO    374
                                        *         INITIALIZE PAGE SIZE AND PRINT DENSITY.                        FEAT155E  337
                                                                                                                 FEAT155E  338
          3167  5120000000 X                      SA2    CP.PD                                                   FEAT155EA  44
                          5110000000 X            SA1    LCP.PS                                                  FCCA422    58
          3170  14611                             BX6    -X1                                                     FCC1200    34
                     54610                        SA6    A1                                                      FEAT155E  343
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FCC1797X    6
                          7120000000 X            RECALL F.OUT                                                   FCC1797X    7
          3172  5130000001 X                      SA3    F.OUT+I.DT                                              FCC1797X    8
                                         #OS1     IFEQ   .OS,1       IF OPERATING SYSTEM IS NOS                  FCC1797X    9
                          21360                   AX3    48          GET DEVICE TYPE FIELD                       FCC1797X   10
          3173  6223775353                        SB2    X3-2RTT                                                 FCC1797X   11
                                         #OS1     ELSE                                                           FCC1797X   12
                                                  AX3    54                                                      FCC1797X   13
                                                  SB2    X3+16B                                                  FCC1797X   14
                                         #OS1     ENDIF                                                          FCC1797X   15
                          0520003175 +            NZ     B2,OPF4D.5  IF NOT A TERMINAL FILE                      FCC1797X   16
          3174  43700                             MX7    0                                                       FCC1797X   17
                     54720                        SA7    A2                                                      FCC1797X   18
                          0400003175 +            EQ     OPF4B                                                   FCC1797X   19
                                                                                                                 FCC1797X   20
          3175                           OPF4D.5  BSS    0                                                       FCC1797X   21
                                         #OS      ENDIF                                                          FCC1797X   22
                                                                                                                 FEAT155E  346
          3175  5110000000 X             OPF4B    SA1    FV.LGO                                                  FEAT155E  347
                          0301003204 +            ZR     X1,OPF5     IF BINARY OUTPUT OPTION OFF (B=0)           LSTPRO    376
          3176  5110000000 X                      SA1    =XCO.REW                                                FEAT155EB   7
                          0301003202 +            ZR     X1,OPF4E    IF REW OPTION NOT SELECTED                  FEAT155EB   8
          3177  7120000000 X                      OPEN F.LGO,WRITE,RCL                                           FEAT155EB   9
          3201  0400003204 +                      EQ     OPF5                                                    FEAT155EB  10
                                                                                                                 FEAT155EB  11
          3202  7120000000 X             OPF4E    OPEN F.LGO,WRITENR,RCL                                         FEAT155EB  12
          3204  7120000000 X             OPF5     CLOSE  F.OPT,UNLOAD      INSURE NO FILE FROM PRIOR JOB STEP    LSTPRO    378
                                                                                                                 LSTPRO    379
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    16
        BATCH COMPILATION CONTROL                                     OPF 
  
                                        *         OPEN REMAINING FILES.                                          LSTPRO    380
                                                                                                                 LSTPRO    381
          3206  7120000000 X             OPF6     OPEN   F.CMPS,ALTER,RCL                                        LSTPRO    382
          3210  7120000000 X                      OPEN   F.RLST,ALTER,RCL                                        LSTPRO    383
          3212  5110000000 X                      SA1    MLOP=R                                                  FEAT155H  160
                          0321003141 +            PL     X1,OPF      IF SHORT REF MAP, EXIT                      LSTPRO    385
          3213  7120000000 X                      OPEN   F.RMAP,ALTER,RCL                                        LSTPRO    386
          3215  0400003141 +                      EQ     OPF         EXIT                                        LSTPRO    387
                                                                                                                 LSTPRO    388
                                        *         HERE IF RETURNING FROM COMPASS.  RE-INITIALIZE FETS OR         LSTPRO    389
                                        *         PSEUDO-FETS FOR -RMAP-.                                        RSM2763X   34
                                                                                                                 RSM2763X   35
          3216  5110000000 X             OPF7     SA1    MLOP=R                                                  RSM2763X   36
                          0321003221 +            PL     X1,OPF8     IF SHORT REF MAP                            RSM2763X   37
          3217  7120000000 X                      SETFIL FILE=F.RMAP,MODE=RESET                                  RSM2763X   38
          3221  0400003206 +             OPF8     EQ     OPF6        GO OPEN FILES                               RSM2763X   39
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    17
        BATCH COMPILATION CONTROL                                     FTNEND
  
                                        ***       FTNABT - ABORT COMPILATION IMMEDIATELY DUE TO A SYSTEM OR      LSTPRO    402
                                        *         HARDWARE ERROR.                                                LSTPRO    403
                                        *                                                                        LSTPRO    404
                                        *         ENTRY  (X1) = ADDRESS OF ERROR MESSAGE TO BE DAYFILED          LSTPRO    405
                                                                                                                 LSTPRO    406
                                                  ENTRY  FTNABT                                                  LSTPRO    407
          3222  73110                    FTNABT   MESSAGE  X1,,R     SEND DAYFILE MESSAGE                        LSTPRO    408
          3224  76610                             SX6    B1                                                      LSTPRO    409
                     43700                        MX7    0                                                       LSTPRO    410
                          5160000000 X            SA6    =XCP.ERCT   CP.ERCT = 1                                 LSTPRO    412
          3225  5170000000 X                      SA7    =XCP.CARD   CP.CARD = 0   */ SIGNAL END OF INPUT        LSTPRO    413
                          5170000000 X            SA7    =XCAFLAG    DO NOT CALL COMPASS                         CP139FC   229
          3226  20635                             LX6    29                                                      CP139FC   230
                     5160000000 X                 SA6    =XCO.ABT    FORCE ABORT                                 CP139FC   231
                                        *         EQ     FTNEND                                                  LSTPRO    414
  
  
                                        ***       FTNEND - TERMINATE COMPILATION.                                LSTPRO    416
                                        *                                                                        LSTPRO    417
                                        *         CONTROL IS TRANSFERRED HERE WHEN EACH COMPILATION ENDS.        LSTPRO    418
                                                                                                                 LSTPRO    419
                                                  ENTRY  FTNEND                                                  LSTPRO    420
          3227  6110000001               FTNEND   SB1    1                                                       LSTPRO    421
                          0100003755 +            RJ     MPP         MAINTAIN PAGE PARITY                        LSTPRO    422
                                        *         UPON RETURN FROM MPP, (X5) = CURRENT PAGE NO.                  FCCA410    25
                                                                                                                 LSTPRO    423
                                                                                                                 LSTPRO    424
                                                                                                                 LSTPRO    425
                                        **        CHECK IF MORE TO COMPILE.                                      LSTPRO    426
                                        *                                                                        LSTPRO    427
          3230  5110000000 X                      SA1    =XCP.CARD                                               LSTPRO    428
                          0311003303 +            NZ     X1,RST      IF MORE SOURCE LINES TO COMPILE             LSTPRO    429
                                                                                                                 LSTPRO    430
                                                                                                                 LSTPRO    431
                                                                                                                 LSTPRO    432
                                        **        TERMINATE AND CLOSE FILES.                                     LSTPRO    433
                                        *                                                                        LSTPRO    434
          3231  5110000000 X                      SA1    =XCP.LSTF                                               FCCA534    19
                          0301003237 +            ZR     X1,END1     IF L = 0, DONOT OUTPUT PD                   FCCA534    20
          3232  5110000000 X                      SA1    CP.PD                                                   FCCA473    46
                          0301003237 +            ZR     X1,END1     IF TTY FILE                                 FCCA593    63
                                                                                                                 FCCA593    64
          3233  5120000000 X                      SA2    RS.PD       RESTORE *PD*                                FCCA593    65
                          13621                   BX6    X2-X1                                                   FCCA593    66
          3234  0306003237 +                      ZR     X6,END1     IF USING DEFAULT *PD*                       FCCA593    67
                                                                                                                 FCCA593    68
                          10622                   BX6    X2          ENTER JOB DEFAULT                           FCCA593    69
          3235  5160000000 X                      SA6    =XGT1                                                   FEAT155E  356
                          6160000000 X            WRITEC F.OUT,GT1,1 RESET DENSITY                               FEAT155E  357
          3237                           END1     BSS    0                                                       FCC1200    35
                                        #RM       IFEQ   CP#RM,0                                                 FCC1200    36
          3237  5110000000 X                      SA1    F.OUT                                                   FCC1200    37
                          63210                   SB2    X1                                                      FCC1200    38
          3240  0412003242 +                      EQ     B1,B2,END1A IF FILE NOT ACTED UPON                      FCC1200    39
                          6130000042              SB3    34                                                      FCC1200    40
          3241  0632003244 +                      LE     B2,B3,END1B IF NOT AN OPEN OR CLOSE                     FCC1200    41
          3242  5011000002               END1A    SA1    A1+2        GET IN POINTER                              FCC1200    42
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    18
        BATCH COMPILATION CONTROL 
  
                          54211                   SA2    A1+B1       GET OUT POINTER                             FCC1200    43
                               63210              SB2    X1                                                      FCC1200    44
          3243  63320                             SB3    X2                                                      FCC1200    45
                     0423003246 +                 EQ     B2,B3,END2 IF BUFFER EMPTY                              FCC1200    46
                                        #RM       ELSE                                                           FCC1200    47
                                                  FETCH  F.OUT,LOP,X5                                            FCC1200    48
                                                  SB3    X5                                                      FCC1200    49
                                                  LE     B3,B1,END2 IF FILE NOT WRITTEN ON                       FCC1200    50
                                        #RM       ENDIF                                                          FCC1200    51
          3244  7120000000 X             END1B    WRITER F.OUT       FLUSH OUTPUT BUFFER                         FCC1200    52
          3246  5120000000 X             END2     SA2    =XFV.LGO    FILE VECTOR                                 FEAT155EB  15
                          0302003255 +            ZR     X2,END3     IF BINARY OUTPUT SUPPRESSED (B=0)           LSTPRO    437
          3247  5110000000 X                      SA1    =XCAFLAG                                                LSTPRO    438
                          5120000000 X            SA2    =XUFLAG                                                 LSTPRO    439
          3250  12612                             BX6    X1+X2                                                   LSTPRO    440
                     0316003255 +                 NZ     X6,END3     IF C- OR E-OPTION SELECTED                  LSTPRO    441
          3251  7120000000 X                      WRITEF F.LGO                                                   LSTPRO    442
          3253  7120000000 X                      BKSP   F.LGO       BACKSPACE OVER END-OF-FILE                  LSTPRO    443
          3255                           END3     BSS    0                                                       LSTPRO    444
                                                                                                                 LSTPRO    445
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO    446
                                                                                                                 LSTPRO    447
                                        *         EVICT SCRATCH FILES.                                           LSTPRO    448
                                                                                                                 LSTPRO    449
          3255  5150000001 X                      SA5    F.OPT+I.FIRST                                           LSTPRO    450
                          5140777776 X            SA4    =XSCRTBL-1  INITIALIZE A4                               LSTPRO    451
          3256  7170000200                        SX7    200B                                                    RSM2763X   40
                          54750                   SA7    A5          CLEAR FET SO NO ERROR FROM CIO              RSM2763X   41
                               54771              SA7    A7+B1       IN CASE FET POINTERS ARE OUTSIDE            RSM2763X   42
          3257  54771                             SA7    A7+B1       PRESENT FL                                  RSM2763X   43
                     20701                        LX7    1                                                       RSM2763X   44
                          54771                   SA7    A7+B1                                                   RSM2763X   45
          3260  7100377774                        SX0    377774B                                                 LSTPRO    453
                                                                                                                 LSTPRO    455
                                         .T       IFEQ   TEST,0                                                  LSTPRO    456
                                                                                                                 LSTPRO    457
          3261  54441                    END4     SA4    A4+B1       (X4) = FET ADDRESS FOR NEXT FILE TO EVICT   LSTPRO    458
                     0334003265 +                 MI     X4,END5     IF ALL FILES EVICTED                        LSTPRO    459
                               53340              SA3    X4                                                      LSTPRO    460
          3262  11603                             BX6    X0*X3       EXTRACT CIO CODE FIELD                      LSTPRO    461
                     0306003261 +                 ZR     X6,END4     IF FILE UNUSED                              LSTPRO    462
                               10244              CLOSE  X4,UNLOAD                                               LSTPRO    463
          3264  0400003261 +                      EQ     END4        LOOP FOR NEXT FILE                          LSTPRO    464
                                                                                                                 LSTPRO    465
                                         .T       ELSE                                                           LSTPRO    466
                                                                                                                 LSTPRO    467
                                                  SA1    F.OPT                                                   LSTPRO    468
                                                  BX6    X0*X1       EXTRACT CIO CODE FIELD                      LSTPRO    469
                                                  ZR     X6,END5     IF FILE UNUSED                              LSTPRO    470
                                                  CLOSE  A1,UNLOAD                                               LSTPRO    471
                                                                                                                 LSTPRO    472
                                         .T       ENDIF                                                          LSTPRO    473
                                                                                                                 LSTPRO    474
                                         #RM      ENDIF                                                          LSTPRO    475
                                                                                                                 LSTPRO    476
                                        *         TERMINATE AND REWIND -CMPS- IF *COMPASS* ASSEMBLY (C) OPTION   LSTPRO    477
                                        *         OR UPDATE/EDIT (E) OPTION IS SELECTED.                         LSTPRO    478
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    19
        BATCH COMPILATION CONTROL 
  
                                                                                                                 LSTPRO    479
          3265  5110000000 X             END5     SA1    =XUFLAG                                                 LSTPRO    480
                          5120000000 X            SA2    =XCAFLAG                                                LSTPRO    481
          3266  12612                             BX6    X1+X2                                                   LSTPRO    482
                     0306003273 +                 ZR     X6,END6     IF NEITHER OPTION SELECTED                  LSTPRO    483
          3267  7120000000 X                      WRITER F.CMPS                                                  LSTPRO    484
          3271  7120000000 X                      REWIND F.CMPS                                                  LSTPRO    485
          3273                           END6     BSS    0                                                       LSTPRO    486
                                                                                                                 LSTPRO    487
                                         #RM      IFGE   CP#RM,6                                                 LSTPRO    488
                                                                                                                 LSTPRO    489
                                                  SX6    =XFVLEN-1   (X6) = FILE VECTOR TABLE OFFSET             LSTPRO    490
                                         END7     SA2    RA.ARG+X6   (X2) = FIT ADDRESS FROM FILE VECTOR TABLE   LSTPRO    491
                                                  SA6    GT1         TEMP SAVE OFFSET                            LSTPRO    492
                                                  ZR     X2,END8     IF FILE DESELECTED BY CONTROL CARD OPTION   LSTPRO    493
                                                  RJ     FA=CLO                                                  LSTPRO    494
                                         END8     SA1    GT1                                                     LSTPRO    495
                                                  SX6    X1-1        (X6) = OFFSET FOR NEXT FILE                 LSTPRO    496
                                                  PL     X6,END7     IF MORE FILES TO CLOSE                      LSTPRO    497
                                                                                                                 LSTPRO    498
                                         .T       IFNE   TEST,0                                                  LSTPRO    499
                                                  CLOSEM FI.TEST     INTERNAL DEBUGGING FILE *SYMTAB*            LSTPRO    500
                                         .T       ENDIF                                                          LSTPRO    501
                                                                                                                 LSTPRO    502
                                         #RM      ENDIF                                                          LSTPRO    503
                                                                                                                 LSTPRO    504
                                                                                                                 LSTPRO    505
                                                                                                                 LSTPRO    506
                                        **        TURN -SPY- OFF (TEST COMPILER ON 6000-SERIES ONLY).            LSTPRO    507
                                        *                                                                        LSTPRO    508
                                         .T       IFNE   TEST,0                                                  LSTPRO    509
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1084
                                                  CALL   OFFSPY                                                  LSTPRO    511
                                         #OS      ENDIF                                                          LSTPRO    512
                                         .T       ENDIF                                                          LSTPRO    513
                                                                                                                 LSTPRO    514
                                                                                                                 LSTPRO    515
                                                                                                                 LSTPRO    516
                                        **        WAIT FOR ALL FILE ACTIONS TO COMPLETE.                         LSTPRO    517
                                        *                                                                        LSTPRO    518
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO    519
          3273  6120000002                        SB2    RA.ARG                                                  LSTPRO    520
                          6130000002 X            SB3    RA.ARG+=XFVLEN                                          LSTPRO    521
          3274  56520                    END9     SA5    B2          (X5) = FILE VECTOR TABLE ENTRY              LSTPRO    522
                     66221                        SB2    B2+B1                                                   LSTPRO    523
                          0305003276 +            ZR     X5,END10    IF FILE DESELECTED BY CONTROL CARD OPTION   LSTPRO    524
          3275  73250                             SX2    X5          (X2) = ADDRESS OF FET FOR FILE              LSTPRO    525
                     0100000000 X                 RECALL X2                                                      LSTPRO    526
          3276  0723003274 +             END10    LT     B2,B3,END9  IF MORE FILES TO CHECK                      LSTPRO    527
                                         #RM      ENDIF                                                          LSTPRO    528
                                                                                                                 LSTPRO    529
                                                                                                                 LSTPRO    530
                                                                                                                 LSTPRO    531
                                        **        IF *COMPASS* ASSEMBLY (C) OPTION OFF, TERMINATE *FTN*.         LSTPRO    532
                                        *                                                                        LSTPRO    533
                          5110000000 X            SA1    =XCAFLAG                                                LSTPRO    534
          3277  0301000000 X                      ZR     X1,=XENDFTN IF C-OPTION OFF                             LSTPRO    535
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    20
        BATCH COMPILATION CONTROL 
  
                                                                                                                 LSTPRO    536
                                                                                                                 LSTPRO    537
                                                                                                                 LSTPRO    538
                                        **        PREPARE FOR *COMPASS* CALL.                                    LSTPRO    539
                                        *                                                                        LSTPRO    540
                                        *         (RECORD MGR OFF)   REWIND -COMPS- FILE AND MOVE ITS NAME TO    LSTPRO    541
                                        *                            THE INPUT FILE FET.                         LSTPRO    542
                                        *         (RECORD MGR ON)    MOVE -COMPS- FILE NAME TO INPUT FILE FIT.   LSTPRO    543
                                        *                                                                        LSTPRO    544
                          7160000000              SX6    0                                                       LSTPRO    545
          3300  5160000000 X                      SA6    =XCP.CARD   SIGNAL EMPTY INPUT WSA                      LSTPRO    546
                          5160000000 X            SA6    =XCAFLAG    CLEAR -CALL COMPASS- FLAG                   LSTPRO    547
                                                                                                                 LSTPRO    548
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO    549
                                                                                                                 LSTPRO    550
          3301  5110000000 X                      SA1    F.CMPS                                                  LSTPRO    551
                          10611                   BX6    X1                                                      LSTPRO    552
          3302  5160000000 X                      SA6    F.IN        MOVE FILE NAME                              LSTPRO    553
                                                                                                                 LSTPRO    554
                                         #RM      ELSE                                                           LSTPRO    555
                                                                                                                 LSTPRO    556
                                                  SA1    F.CMPS      (X1) = COMPS FILE FIT ADDR                  LSTPRO    557
                                                  SA2    F.IN        (X2) = INPUT FILE FIT ADDR                  LSTPRO    558
                                                  FETCH  X1,LFN,X3                                               LSTPRO    559
                                                  STORE  X2,LFN=X3                                               LSTPRO    560
                                                                                                                 LSTPRO    561
                                                  IFEQ   CP#RM,7,1                                               LSTPRO    562
                                                  SETFIT X2          COMPS FDT INFO TO INPUT FIT                 LSTPRO    563
                                                                                                                 LSTPRO    564
                                         #RM      ENDIF                                                          LSTPRO    565
                                                                                                                 LSTPRO    566
                          0400000000 X            EQ     =XLDCOM     EXIT TO LOAD *COMPASS* (1,0) OVERLAY        LSTPRO    567
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    21
        BATCH COMPILATION CONTROL                                     RST 
  
                                        ***       INITIALIZE COMPILER FOR PASS 1 RESTART.                        LSTPRO    569
                                                                                                                 LSTPRO    570
                                        **        INITIALIZE TABLES.                                             LSTPRO    571
                                        *                                                                        LSTPRO    572
          3303  43606                    RST      MX6    6                                                       LSTPRO    573
                     5110003065 +                 SA1    NRB          NATURAL REAL BITS                          LSTPRO    574
                               20631              LX6    24+1         NATURAL INTEGER BITS                       LSTPRO    575
          3304  10711                             BX7    X1                                                      LSTPRO    576
                     5160003062 +                 SA6    IMPTYP       RESET NATURAL TYPE TABLE                   LSTPRO    577
                               54761              SA7    A6+B1                                                   LSTPRO    578
          3305  13666                             BX6    X6-X6                                                   LSTPRO    579
                     54671                        SA6    A7+B1                                                   LSTPRO    580
                          13666                   SETZERO  ORIGINS,NTBLS   CLEAR TABLE MANAGER ORIGINS VECTORS   LSTPRO    581
          3310  13666                             SETZERO  O.BATCH,L.BATCH CLEAR BATCH CONTROL CELLS             LSTPRO    582
                                                                                                                 LSTPRO    583
                                                                                                                 LSTPRO    584
                                                                                                                 LSTPRO    585
                                        **        INITIALIZE MISCELLANEOUS CELLS.                                LSTPRO    586
                                        *                                                                        LSTPRO    587
          3312  7170005555                        SX7    2R                                                      FCC0220     9
                          76610                   SX6    B1                                                      LSTPRO    588
                               20760              LX7    59-11                                                   FCC0220    10
          3313  5160004142 +                      SA6    N.AP        N.AP = 1      */ NEXT AVAIL APLIST NUMBER   LSTPRO    590
                          5170004133 +            SA7    O.STITL     BLANK OUT SUBTITLE LINE                     FEAT155E  359
          3314  5160004143 +                      SA6    N.GL        N.GL = 1      */ NEXT AVAIL GL NUMBER       LSTPRO    591
                          5160004701 +            SA6    O.CEP       O.CEP = 1                                   LSTPRO    593
          3315  5160004144 +                      SA6    SYMORD                                                  LSTPRO    594
                          5160003741 +            SA6    L.STITL     L.STITL = 1   */ SUBTITLE LENGTH            LSTPRO    595
                                                                                                                 FCC0761    16
                                        *         RESTORE O.SYMTAB BECAUSE OF POSSIBLE STORAGE MOVES IN DEBUG    FCC0761    17
                                        *         MODE DURING LAST COMPILATION.  (DEBUG ALLOCATES FIXED TABLES   FCC0761    18
                                        *         ABOVE SYMTAB).                                                 FCC0761    19
                                                                                                                 FCC0761    20
          3316  5110000000 X                      SA1    GL.SYM                                                  FCC0761    21
                          10611                   BX6    X1                                                      FCC0761    22
          3317  5160000012                        SA6    O.SYMTAB                                                FCC0761    23
                                                                                                                 LSTPRO    600
                                                                                                                 LSTPRO    601
                                                                                                                 LSTPRO    602
                                        **        RESET *SYMBOL* TABLE SEARCH SWITCHES TO PASS 1 CONDITIONS.     LSTPRO    603
                                        *                                                                        LSTPRO    604
                          0100003073 +            CALL   KSSW                                                    LSTPRO    605
                                                                                                                 LSTPRO    606
                                                                                                                 LSTPRO    607
                                                                                                                 LSTPRO    608
                                        **        REWIND INTERNAL SCRATCH FILES.  RESTORE PASS 1 INITIAL         LSTPRO    609
                                        *         CONDITIONS AND STORAGE ALLOCATIONS IN FETS, FITS, PSEUDO-FETS. LSTPRO    610
                                        *                                                                        LSTPRO    611
                                         .T       IFNE   TEST,0                                                  LSTPRO    612
                                                  REWIND F.TEST                                                  LSTPRO    613
                                         .T       ENDIF                                                          LSTPRO    614
                                                                                                                 LSTPRO    615
          3320  5110000000 X                      SA1    =XUFLAG     UPDATE/EDIT (E) OPTION FLAG                 LSTPRO    616
                          5120000000 X            SA2    =XCAFLAG    COMPASS-TO-ASSEMBLE (C) OPTION FLAG         LSTPRO    617
          3321  12612                             BX6    X1+X2                                                   LSTPRO    618
                     46000                        NO                                                             LSTPRO    619
                          0316003326 +            NZ     X6,RST2     IF EITHER OPTION ON (MUST SAVE -CMPS- FILE) LSTPRO    620
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    22
        BATCH COMPILATION CONTROL                                     RST 
  
          3322  7120000000 X                      REWIND F.CMPS,RCL                                              LSTPRO    621
          3324  7120000000 X                      SETFIL FILE=F.CMPS,MODE=RESET                                  LSTPRO    622
          3326  5110000000 X             RST2     SA1    MLOP=R      REFERENCE MAP OPTION FLAG                   FEAT155H  162
                          0321003333 +            PL     X1,RST3     IF NO LONG REF MAP (R=0 OR =1)              LSTPRO    624
          3327  7120000000 X                      REWIND F.RMAP,RCL                                              LSTPRO    625
          3331  7120000000 X                      SETFIL FILE=F.RMAP,MODE=RESET                                  LSTPRO    626
          3333  7120000000 X             RST3     REWIND F.RLST,RCL                                              LSTPRO    627
          3335  7120000000 X                      SETFIL FILE=F.RLST,MODE=RESET                                  LSTPRO    628
          3337  5120000000 X                      SA2    =XFV.LGO                                                LSTPRO    629
                          0302003117 +            ZR     X2,LST3     IF BINARY OUTPUT SUPPRESSED (B=0), EXIT     LSTPRO    630
                                                                                                                 LSTPRO    631
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO    632
          3340  53120                             SA1    X2          (X1) = FET WORD 1                           LSTPRO    633
                     20173                        LX1    59-0                                                    LSTPRO    634
                          0331003342 +            MI     X1,RST4     IF FILE NOT BUSY                            LSTPRO    635
          3341  0100000000 X                      RECALL X2          WAIT FOR FILE QUIET                         LSTPRO    636
          3342                           RST4     BSS    0                                                       LSTPRO    637
                                         #RM      ENDIF                                                          LSTPRO    638
                                                                                                                 LSTPRO    639
          3342  7120000000 X                      SETFIL FILE=F.LGO,MODE=RESET                                   LSTPRO    640
          3344  0400003117 +                      EQ     LST3        EXIT TO RESTART BATCH COMPILATION           LSTPRO    641
  
  
  
  
                                                  LIST   F,X                                                     LSTPRO    643
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    23
        COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.
  
          3344                                    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 CORP. 1970.                     COMCCDD     7
  
  
  
  
                                        ***       CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.             COMCCDD     9
                                        *         G. R. MANSFIELD.  70/12/18.                                    COMCCDD    10
                                        *         ADAPTED FROM SUBROUTINE *CONDEC* IN *COMPASS VER 2.0*.         COMCCDD    11
  
  
  
  
                                        ***              CDD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH       COMCCDD    13
                                        *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCDD    14
                                        *         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCDD    15
                                        *                                                                        COMCCDD    16
                                        *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCDD    17
                                        *                (B1) = 1.                                               COMCCDD    18
                                        *                                                                        COMCCDD    19
                                        *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCDD    20
                                        *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCDD    21
                                        *                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCDD    22
                                        *                                                                        COMCCDD    23
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCDD    24
                                        *                B - 2, 3, 4, 5.                                         COMCCDD    25
                                        *                A - 2, 3, 4.                                            COMCCDD    26
                                        *                                                                        COMCCDD    27
                                        *         CALLS  NONE.                                                   COMCCDD    28
                                                                                                                 COMCCDD    29
                                                                                                                 COMCCDD    30
          3345  42612                    CDD1     DX6    X1*X2       COMPUTE QUOTIENT                            COMCCDD    31
                     40112                        FX1    X1*X2                                                   COMCCDD    32
                          26701                   UX7    X1          CHECK QUOTIENT                              COMCCDD    33
                               20466              LX4    -6          SHIFT ASSEMBLY                              COMCCDD    34
          3346  66224                             SB2    B2+B4                                                   COMCCDD    35
                     40663                        FX6    X6*X3       EXTRACT REMAINDER DIGIT                     COMCCDD    36
                          73663                   SX6    X6+B3       CONVERT DIGIT                               COMCCDD    37
                               36464              IX4    X6+X4                                                   COMCCDD    38
          3347  0317003345 +                      NZ     X7,CDD1     LOOP TO ZERO QUOTIENT                       COMCCDD    39
                          20466                   LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCDD    40
                               22624              LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCDD    41
                                                                                                                 COMCCDD    42
          3350  0000000000               CDD      PS                 ENTRY/EXIT                                  COMCCDD    43
          3351  5120003354 +                      SA2    CDDA        =.1P48+1                                    COMCCDD    44
                          54321                   SA3    A2+B1       =10.P                                       COMCCDD    45
                               27101              PX1    X1                                                      COMCCDD    46
          3352  66200                             SB2    B0          CLEAR JUSTIFY COUNT                         COMCCDD    47
                     54431                        SA4    A3+B1       =1H                                         COMCCDD    48
                          6130777755              SB3    1R0-1R      (B3) = CONVERSION CONSTANT                  COMCCDD    49
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    24
        COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.        CDD                 COMCCDD 
  
          3353  6140000006                        SB4    6           (B4) = SHIFT INCREMENT                      COMCCDD    50
                          0400003345 +            EQ     CDD1                                                    COMCCDD    51
                                                                                                                 COMCCDD    52
          3354  17170631463146314632     CDDA     CON    0.1P48+1                                                COMCCDD    53
          3355  20000000000000000012              CON    10.P                                                    COMCCDD    54
          3356  55555555555555555555              CON    1H                                                      COMCCDD    55
  
  
  
  
                                 D_D              BASE   *                                                       COMCCDD    57
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCDD    58
                                                  QUAL   *                                                       COMCCDD    59
                                3350 +   CDD      EQU    /COMCCDD/CDD                                            COMCCDD    60
                                         QUAL$    ENDIF                                                          COMCCDD    61
                                                  ENDX                                                           COMCCDD    62
  
  
  
  
                                                  ENTRY  CDD                                                     LSTPRO    650
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    25
        COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.
  
          3357                                    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 CORP. 1970.                     COMCCOD     7
  
  
  
  
                                        ***       COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.               COMCCOD     9
                                        *         G. R. MANSFIELD.  70/12/18.                                    COMCCOD    10
                                        *         ADAPTED FROM SUBROUTINE *COD* IN *LIBEDIT*.                    COMCCOD    11
  
  
  
  
                                        ***              COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH       COMCCOD    13
                                        *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCOD    14
                                        *         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCOD    15
                                        *                                                                        COMCCOD    16
                                        *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCOD    17
                                        *                (B1) = 1.                                               COMCCOD    18
                                        *                                                                        COMCCOD    19
                                        *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCOD    20
                                        *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCOD    21
                                        *                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCOD    22
                                        *                                                                        COMCCOD    23
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCOD    24
                                        *                B - 2, 3, 4.                                            COMCCOD    25
                                        *                A - 2, 4.                                               COMCCOD    26
                                        *                                                                        COMCCOD    27
                                        *         CALLS  NONE.                                                   COMCCOD    28
                                                                                                                 COMCCOD    29
                                                                                                                 COMCCOD    30
          3357  0000000000               COD      PS                 ENTRY/EXIT                                  COMCCOD    31
          3360  5140003365 +                      SA4    CODA        =1H                                         COMCCOD    32
                          6130000006              SB3    6           (B3) = SHIFT INCREMENT                      COMCCOD    33
          3361  43271                             MX2    -3          (X2) = DIGIT MASK                           COMCCOD    34
                     66200                        SB2    B0          CLEAR JUSTIFY COUNT                         COMCCOD    35
                          6140777755              SB4    1R0-1R      (B4) = CONVERSION COUNT                     COMCCOD    36
          3362  15712                    COD1     BX7    -X2*X1      EXTRACT DIGIT                               COMCCOD    37
                     20466                        LX4    -6          SHIFT ASSEMBLY                              COMCCOD    38
                          66223                   SB2    B2+B3                                                   COMCCOD    39
                               73374              SX3    X7+B4       CONVERT DIGIT                               COMCCOD    40
          3363  21103                             AX1    3           SHIFT OFF DIGIT                             COMCCOD    41
                     36443                        IX4    X4+X3       ADD DIGIT TO ASSEMBLY                       COMCCOD    42
                          0311003362 +            NZ     X1,COD1     LOOP TO ZERO DIGIT                          COMCCOD    43
          3364  20466                             LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCOD    44
                     22624                        LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCOD    45
                          0400003357 +            EQ     COD         RETURN                                      COMCCOD    46
                                                                                                                 COMCCOD    47
          3365  55555555555555555555     CODA     CON    1H                                                      COMCCOD    48
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    26
        COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.                              COMCCOD 
  
                                 D_D              BASE   *                                                       COMCCOD    50
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCOD    51
                                                  QUAL   *                                                       COMCCOD    52
                                3357 +   COD      EQU    /COMCCOD/COD                                            COMCCOD    53
                                         QUAL$    ENDIF                                                          COMCCOD    54
                                                  ENDX                                                           COMCCOD    55
  
  
  
  
                                                  ENTRY  COD                                                     LSTPRO    657
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    27
        COMCDXB - DISPLAY CODE TO BINARY CONVERSION.
  
          3366                                    CTEXT  COMCDXB - DISPLAY CODE TO BINARY CONVERSION.            COMCDXB     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCDXB     4
                                                  QUAL   COMCDXB                                                 COMCDXB     5
                                 D_D              BASE   D                                                       COMCDXB     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCDXB     7
  
  
  
  
                                        ***       DXB - DISPLAY CODE TO BINARY CONVERSION.                       COMCDXB     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCDXB    10
  
  
  
  
                                        ***              DXB CONVERTS ONE WORD OF DISPLAY CODE DIGITS TO         COMCDXB    12
                                        *         A BINARY VALUE.  CONVERSION MAY BE IN OCTAL OR DECIMAL BY      COMCDXB    13
                                        *         THE FOLLOWING CONDITIONS.                                      COMCDXB    14
                                        *         (1.)  ASSUMED BASE SPECIFIED BY CALLER.                        COMCDXB    15
                                        *         (2.)  POST RADIX SPECIFICATION.  (B = OCTAL, D = DECIMAL)      COMCDXB    16
                                        *         (3.)  PRESENCE OF 8 OR 9 WILL FORCE DECIMAL IF NO *B* POST     COMCDXB    17
                                        *                RADIX.                                                  COMCDXB    18
                                        *         ERROR CONDITIONS SENSED ARE -                                  COMCDXB    19
                                        *         (1.)  PRESENCE OF NON-DIGIT IN WORD.                           COMCDXB    20
                                        *         (2.)  PRESENCE OF CHARACTER AFTER POST RADIX.                  COMCDXB    21
                                        *         (3.)  PRESENCE OF 8 OR 9 WITH POST RADIX = B.                  COMCDXB    22
                                        *                                                                        COMCDXB    23
                                        *                                                                        COMCDXB    24
                                        *         ENTRY  (X5) = WORD TO CONVERT.                                 COMCDXB    25
                                        *                (B7) > 0 IF DECIMAL BASE ASSUMED.                       COMCDXB    26
                                        *                (B1) = 1.                                               COMCDXB    27
                                        *                                                                        COMCDXB    28
                                        *         EXIT   (X6) = CONVERTED DIGITS.                                COMCDXB    29
                                        *                (X4) " 0 IF ERROR IN ASSEMBLY.                          COMCDXB    30
                                        *                                                                        COMCDXB    31
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCDXB    32
                                        *                B - 2, 3, 4, 5.                                         COMCDXB    33
                                        *                A - NONE.                                               COMCDXB    34
                                        *                                                                        COMCDXB    35
                                        *         CALLS  NONE.                                                   COMCDXB    36
                                                                                                                 COMCDXB    37
                                                                                                                 COMCDXB    38
          3366  22227                    DXB1     LX2    X7,B2       DECIMAL * 10                                COMCDXB    39
                     36727                        IX7    X2+X7                                                   COMCDXB    40
                          20603                   LX6    3           OCTAL * 8                                   COMCDXB    41
                               15213              BX2    -X3*X1      8/9 PRESENCE                                COMCDXB    42
          3367  20701                             LX7    1                                                       COMCDXB    43
                     12661                        BX6    X6+X1       OCTAL + NEW DIGIT                           COMCDXB    44
                          36771                   IX7    X7+X1       DECIMAL + NEW DIGIT                         COMCDXB    45
                               63525              SB5    B5+X2       NOTE 8/9                                    COMCDXB    46
          3370  20506                    DXB2     LX5    6           NEXT CHARACTER                              COMCDXB    47
                     15150                        BX1    -X0*X5                                                  COMCDXB    48
                          63410                   SB4    X1          CHECK CHARACTER                             COMCDXB    49
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    28
        COMCDXB - DISPLAY CODE TO BINARY CONVERSION.                  COMCDXB             COMCDXB 
  
                               22244              LX2    X4,B4                                                   COMCDXB    50
          3371  73113                             SX1    X1+B3       CONVERT CHARACTER                           COMCDXB    51
                     11505                        BX5    X0*X5       CLEAR CHARACTER                             COMCDXB    52
                          0332003366 +            NG     X2,DXB1     LOOP IF DIGIT                               COMCDXB    53
                                                                                                                 COMCDXB    54
                                        *         CHECK FOR POST RADIX SPECIFICATION.                            COMCDXB    55
                                                                                                                 COMCDXB    56
          3372  66357                             SB3    B5+B7       SET BASE (ASSUMED OR 8/9)                   COMCDXB    57
                     0440003375 +                 ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB    58
                               66322              SB3    B2+B2       BASE = DECIMAL                              COMCDXB    59
          3373  0315003376 +                      NZ     X5,DXB      RETURN IF NOT LAST CHARACTER                COMCDXB    60
                          0443003375 +            EQ     B4,B3,DXB3  IF *D*                                      COMCDXB    61
          3374  67545                             SB5    B4-B5                                                   COMCDXB    62
                     0552003376 +                 NE     B5,B2,DXB   RETURN IF NOT *B* OR *B* AND 8/9 PRESENT    COMCDXB    63
                               66300              SB3    B0          SET OCTAL                                   COMCDXB    64
          3375  43400                    DXB3     MX4    0           CLEAR ERROR                                 COMCDXB    65
                     0430003376 +                 ZR     B3,DXB      RETURN IF BASE = OCTAL                      COMCDXB    66
                               10677              BX6    X7          SET DECIMAL                                 COMCDXB    67
                                                                                                                 COMCDXB    68
          3376  0000000000               DXB      PS                 ENTRY/EXIT                                  COMCDXB    69
          3377  7140007774                        SX4    7774B       MASK FOR \0123456789@                       COMCDXB    70
                          43066                   MX0    -6          (X0) = CHARACTER MASK.                      COMCDXB    71
                               76600              SX6    B0          CLEAR OCTAL                                 COMCDXB    72
          3400  66211                             SB2    B1+B1       (B2) = 2                                    COMCDXB    73
                     13777                        BX7    X7-X7       CLEAR DECIMAL                               COMCDXB    74
                          6130777744              SB3    -1R0        (B3) = CONVERSION CONSTANT                  COMCDXB    75
          3401  20425                             LX4    21                                                      COMCDXB    76
                     66500                        SB5    B0          CLEAR 8/9 PRESENCE                          COMCDXB    77
                          7130000007              SX3    7           MASK FOR 8/9                                COMCDXB    78
          3402  0400003370 +                      EQ     DXB2        ENTER CONVERSION LOOP                       COMCDXB    79
  
  
  
  
                                 D_D              BASE   *                                                       COMCDXB    81
                                         QUAL$    IF     -DEF,QUAL$                                              COMCDXB    82
                                                  QUAL   *                                                       COMCDXB    83
                                3376 +   DXB      EQU    /COMCDXB/DXB                                            COMCDXB    84
                                         QUAL$    ENDIF                                                          COMCDXB    85
                                                  ENDX                                                           COMCDXB    86
  
  
  
  
                                                  ENTRY  DXB                                                     LSTPRO    664
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    29
        COMCMVE - MOVE BLOCK OF DATA. 
  
          3402                                    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 CORP. 1970.                     COMCMVE     7
  
  
  
  
                                        ***       MVE - MOVE BLOCK OF DATA.                                      COMCMVE     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCMVE    10
                                        *         ADAPTED FROM SUBROUTINE *MOVE* IN *COMPASS VER 2.0*.           COMCMVE    11
  
  
  
  
                                        ***              MVE MOVES A BLOCK OF DATA.                              COMCMVE    13
                                        *                                                                        COMCMVE    14
                                        *         ENTRY  (X1) = WORD COUNT.                                      COMCMVE    15
                                        *                (X2) = SOURCE ADDRESS.                                  COMCMVE    16
                                        *                (X3) = DESTINATION ADDRESS.                             COMCMVE    17
                                        *                (B1) = 1                                                COMCMVE    18
                                        *                                                                        COMCMVE    19
                                        *         EXIT   NONE.                                                   COMCMVE    20
                                        *                                                                        COMCMVE    21
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCMVE    22
                                        *                B - 7.                                                  COMCMVE    23
                                        *                A - 2, 4, 6, 7.                                         COMCMVE    24
                                        *                                                                        COMCMVE    25
                                        *         CALLS  NONE.                                                   COMCMVE    26
                                                                                                                 COMCMVE    27
                                                                                                                 COMCMVE    28
                                        *         BEGIN UPWARD MOVE.                                             COMCMVE    29
                                                                                                                 COMCMVE    30
          3403  6170777775               MVE2     SB7    -2          UPWARD MOVE                                 COMCMVE    31
                          73227                   SX2    X2+B7                                                   COMCMVE    32
                               73337              SX3    X3+B7                                                   COMCMVE    33
          3404  66711                             SB7    B1+B1                                                   COMCMVE    34
                     0306003406 +                 ZR     X6,MVE3     IF WORD COUNT EVEN                          COMCMVE    35
                               53427              SA4    X2+B7       MOVE INITIAL WORD                           COMCMVE    36
          3405  36226                             IX2    X2+X6                                                   COMCMVE    37
                     10744                        BX7    X4                                                      COMCMVE    38
                          53737                   SA7    X3+B7                                                   COMCMVE    39
                               36336              IX3    X3+X6                                                   COMCMVE    40
                                                                                                                 COMCMVE    41
                                        *         INITIALIZE MOVE LOOP.                                          COMCMVE    42
                                                                                                                 COMCMVE    43
          3406  0301003415 +             MVE3     ZR     X1,MVE=     IF MOVE COMPLETE                            COMCMVE    44
                          53227                   SA2    X2+B7       MOVE FIRST 2 WORDS                          COMCMVE    45
                               54421              SA4    A2+B1                                                   COMCMVE    46
          3407  10622                             BX6    X2                                                      COMCMVE    47
                     22704                        LX7    X4                                                      COMCMVE    48
                          53637                   SA6    X3+B7                                                   COMCMVE    49
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    30
        COMCMVE - MOVE BLOCK OF DATA.                                 MVE                 COMCMVE 
  
                               54761              SA7    A6+B1                                                   COMCMVE    50
          3410  76311                             SX3    B1+B1                                                   COMCMVE    51
                     37113                        IX1    X1-X3                                                   COMCMVE    52
                          0301003415 +            ZR     X1,MVE=     IF MOVE COMPLETE                            COMCMVE    53
          3411  54227                             SA2    A2+B7       NEXT 2 WORDS                                COMCMVE    54
                     54447                        SA4    A4+B7                                                   COMCMVE    55
                                                                                                                 COMCMVE    56
                                        *         MOVE LOOP.                                                     COMCMVE    57
                                                                                                                 COMCMVE    58
          3412  10622                    MVE4     BX6    X2                                                      COMCMVE    59
                     54227                        SA2    A2+B7                                                   COMCMVE    60
                          22704                   LX7    X4                                                      COMCMVE    61
                               54447              SA4    A4+B7                                                   COMCMVE    62
          3413  37113                             IX1    X1-X3                                                   COMCMVE    63
                     46000                        NO                                                             COMCMVE    64
                          54667                   SA6    A6+B7                                                   COMCMVE    65
                               54777              SA7    A7+B7                                                   COMCMVE    66
          3414  0311003412 +                      NZ     X1,MVE4                                                 COMCMVE    67
                                                                                                                 COMCMVE    68
          3415  0000000000               MVE=     PS                 ENTRY/EXIT                                  COMCMVE    69
          3416  37423                             IX4    X2-X3       CHECK DIRECTION OF MOVE                     COMCMVE    70
                     43773                        MX7    59                                                      COMCMVE    71
                          15617                   BX6    -X7*X1                                                  COMCMVE    72
                               37116              IX1    X1-X6       REDUCE WORD COUNT TO EVEN NUMBER            COMCMVE    73
          3417  0324003403 +                      PL     X4,MVE2     IF MOVE UP                                  COMCMVE    74
                                                                                                                 COMCMVE    75
                                        *         BEGIN DOWNWARD MOVE.                                           COMCMVE    76
                                                                                                                 COMCMVE    77
                          0306003421 +            ZR     X6,MVE1     IF WORD COUNT EVEN                          COMCMVE    78
          3420  63710                             SB7    X1                                                      COMCMVE    79
                     53427                        SA4    X2+B7       MOVE INITIAL WORD                           COMCMVE    80
                          10644                   BX6    X4                                                      COMCMVE    81
                               53637              SA6    X3+B7                                                   COMCMVE    82
          3421  36221                    MVE1     IX2    X2+X1                                                   COMCMVE    83
                     36331                        IX3    X3+X1                                                   COMCMVE    84
                          6170777775              SB7    -2                                                      COMCMVE    85
          3422  0400003406 +                      EQ     MVE3                                                    COMCMVE    86
  
  
  
  
                                 D_D              BASE   *                                                       COMCMVE    88
                                         QUAL$    IF     -DEF,QUAL$                                              COMCMVE    89
                                                  QUAL   *                                                       COMCMVE    90
                                3415 +   MVE=     EQU    /COMCMVE/MVE=                                           COMCMVE    91
                                         QUAL$    ENDIF                                                          COMCMVE    92
                                                  ENDX                                                           COMCMVE    93
  
  
  
  
                                                  ENTRY  MVE=                                                    LSTPRO    671
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    31
        COMCSFN - SPACE FILL RIGHT JUSTIFIED ZEROES.
  
          3422                                    CTEXT  COMCSFN - SPACE FILL 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 CORP. 1974.                     COMCSFN     7
  
  
  
  
                                        ***       SFN - SPACE FILL NAME.                                         COMCSFN     9
                                        *         G. R. MANSFIELD.   70/12/08.                                   COMCSFN    10
                                        *         S. R. MCPHERSON.   74/11/15.                                   COMCSFN    11
  
  
  
  
                                        ***       SFN - SPACE FILL RIGHT JUSTIFIED ZEROES.                       COMCSFN    13
                                        *                                                                        COMCSFN    14
                                        *         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL.                  COMCSFN    15
                                        *                (B1) = 1.                                               COMCSFN    16
                                        *                                                                        COMCSFN    17
                                        *         EXIT   (X6) = NAME SPACE FILLED.                               COMCSFN    18
                                        *                (X7) = FINAL CHARACTER MASK.                            COMCSFN    19
                                        *                                                                        COMCSFN    20
                                        *         USES   X - 1, 2, 3, 6, 7.                                      COMCSFN    21
                                        *                A - 3.                                                  COMCSFN    22
                                        *                B - 2.                                                  COMCSFN    23
                                                                                                                 COMCSFN    24
                                                                                                                 COMCSFN    25
          3423  0000000000               SFN      PS     0           ENTRY/EXIT                                  COMCSFN    26
          3424  76710                             SX7    B1                                                      COMCSFN    27
                     5130003430 +                 SA3    SFNA        =40404040404040404040B                      COMCSFN    28
                               37717              IX7    X1-X7       FIND LOWEST BIT SET                         COMCSFN    29
          3425  16617                             BX6    -X7+X1                                                  COMCSFN    30
                     6120000067                   SB2    60-5                                                    COMCSFN    31
                               11736              BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS           COMCSFN    32
          3426  54331                             SA3    A3+B1       =10H                                        COMCSFN    33
                     22627                        LX6    X7,B2                                                   COMCSFN    34
                          37676                   IX6    X7-X6                                                   COMCSFN    35
                               12776              BX7    X7+X6                                                   COMCSFN    36
          3427  15337                             BX3    -X7*X3                                                  COMCSFN    37
                     36613                        IX6    X1+X3                                                   COMCSFN    38
                          0400003423 +            EQ     SFN         RETURN                                      COMCSFN    39
                                                                                                                 COMCSFN    40
          3430  40404040404040404040     SFNA     DATA   40404040404040404040B                                   COMCSFN    41
          3431  55555555555555555555     SFNB     DATA   10H                                                     COMCSFN    42
  
  
  
  
                                 D_D              BASE   *                                                       COMCSFN    44
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSFN    45
                                                  QUAL   *                                                       COMCSFN    46
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    32
        COMCSFN - SPACE FILL RIGHT JUSTIFIED ZEROES.
  
                                3423 +   SFN      EQU    /COMCSFN/SFN                                            COMCSFN    47
                                         QUAL$    ENDIF                                                          COMCSFN    48
                                                  ENDX                                                           COMCSFN    49
  
  
  
  
                                                  ENTRY  SFN                                                     FCC1328X  554
  
  
  
  
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO    673
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    33
        COMCCIO - I/O FUNCTION PROCESSOR. 
  
          3432                                    CTEXT  COMCCIO - I/O FUNCTION PROCESSOR.                       COMCCIO     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCCIO     4
                                                  QUAL   COMCCIO                                                 COMCCIO     5
                                 D_D              BASE   D                                                       COMCCIO     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCCIO     7
  
  
  
  
                                        ***       CIO - I/O FUNCTION PROCESSOR.                                  COMCCIO     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCCIO    10
  
  
  
  
                                        ***              CIO PERFORMS I/O FUNCTIONS VIA THE PP PROGRAM *CIO*.    COMCCIO    12
                                        *         OPERATION WILL BE PROCESSED WHEN BUFFER IS NOT BUSY.           COMCCIO    13
                                        *         IF FILE STATUS WORD = 0, OPERATION WILL NOT BE PROCESSED,      COMCCIO    14
                                        *         AND IN AND OUT WILL BE SET TO FIRST.                           COMCCIO    15
                                        *                                                                        COMCCIO    16
                                        *                (X2) (BITS 17 - 0) = ADDRESS OF FET FOR FILE.           COMCCIO    17
                                        *                (X2) (BITS 35 - 18) = SKIP COUNT TO CIO.                COMCCIO    18
                                        *                (X7) = FUNCTION CODE.                                   COMCCIO    19
                                        *                IF (X7) < 0, (X7) IS COMPLEMENT OF REQUEST, AND         COMCCIO    20
                                        *                AUTO RECALL WILL BE REQUESTED.                          COMCCIO    21
                                        *                                                                        COMCCIO    22
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCCIO    23
                                        *                IF ERP$ DEFINED IN CP PROGRAM -                         COMCCIO    24
                                        *                CIO= WILL EXIT TO ERP$ WHEN UNRECOVERED PARITY ERROR    COMCCIO    25
                                        *                OR END OF TAPE STATUS BITS ARE SET.                     COMCCIO    26
                                        *                                                                        COMCCIO    27
                                        *         USES   X - 1, 2, 6, 7.                                         COMCCIO    28
                                        *                B - NONE.                                               COMCCIO    29
                                        *                A - 1, 6, 7.                                            COMCCIO    30
                                        *                                                                        COMCCIO    31
                                        *         CALLS  SYS=.                                                   COMCCIO    32
                                                                                                                 COMCCIO    33
                                                                                                                 COMCCIO    34
          3432  0100000000 X             CIO1     RECALL X2          WAIT COMPLETION                             COMCCIO    35
                                         ERP$     IF     -DEF,ERP$                                               COMCCIO    36
          3433  43652                    CIO2     MX6    42                                                      COMCCIO    37
                     7110000002                   SX1    2                                                       COMCCIO    38
                                         ERP$     ELSE                                                           COMCCIO    39
                                         CIO2     SA1    X2          READ FILE STATUS                            COMCCIO    40
                                                  SX6    6000B                                                   COMCCIO    41
                                                  BX6    X6*X1                                                   COMCCIO    42
                                                  SX1    2                                                       COMCCIO    43
                                                  NZ     X6,ERP$     IF PARITY ERROR OR END OF REEL              COMCCIO    44
                                                  MX6    42                                                      COMCCIO    45
                                         ERP$     ENDIF                                                          COMCCIO    46
                               12661              BX6    X6+X1                                                   COMCCIO    47
          3434  53120                             SA1    X2          READ FILE STATUS                            COMCCIO    48
                     11161                        BX1    X6*X1       MASK NAME AND MODE                          COMCCIO    49
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    34
        COMCCIO - I/O FUNCTION PROCESSOR.                             CIO                 COMCCIO 
  
                          7160031117              SX6    3RCIO       SET CIO REQUEST                             COMCCIO    50
          3435  0327003436 +                      PL     X7,CIO3     IF NO AUTO RECALL WITH REQUEST              COMCCIO    51
                          14777                   BX7    -X7                                                     COMCCIO    52
                               27606              PX6    X6          SET AUTO RECALL                             COMCCIO    53
          3436  12717                    CIO3     BX7    X1+X7       ENTER REQUEST IN FILE NAME                  COMCCIO    54
                     20652                        LX6    42                                                      COMCCIO    55
                          53720                   SA7    X2          STORE FILE STATUS                           COMCCIO    56
                               12662              BX6    X6+X2       MERGE REQUEST AND FET ADDRESS               COMCCIO    57
          3437  73220                             SX2    X2                                                      COMCCIO    58
                     0100000000 X                 RJ     =XSYS=                                                  COMCCIO    59
                                                                                                                 COMCCIO    60
          3440  0000000000               CIO=     PS                 ENTRY/EXIT                                  COMCCIO    61
          3441  53120                             SA1    X2          CHECK BUFFER STATUS                         COMCCIO    62
                     20173                        LX1    59                                                      COMCCIO    63
                          0331003433 +            NG     X1,CIO2     IF BUFFER NOT BUSY                          COMCCIO    64
          3442  0311003432 +                      NZ     X1,CIO1     IF NOT BLANK FILE STATUS                    COMCCIO    65
                                         QUAL$    IF     DEF,B1=1                                                COMCCIO    66
                                                  SA1    X2+B1       SET FIRST = IN = OUT                        COMCCIO    67
                                                  SX6    X1                                                      COMCCIO    68
                                                  SA6    A1+B1                                                   COMCCIO    69
                                                  SA6    A6+B1                                                   COMCCIO    70
                                         QUAL$    ELSE                                                           COMCCIO    71
                          5212000001              SA1    X2+1        SET FIRST = IN = OUT                        COMCCIO    72
          3443  73610                             SX6    X1                                                      COMCCIO    73
                     5262000002                   SA6    X2+2                                                    COMCCIO    74
          3444  5262000003                        SA6    X2+3                                                    COMCCIO    75
                                         QUAL$    ENDIF                                                          COMCCIO    76
                          0400003440 +            EQ     CIO=        RETURN                                      COMCCIO    77
  
  
  
  
                                 D_D              BASE   *                                                       COMCCIO    79
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCIO    80
                                                  QUAL   *                                                       COMCCIO    81
                                3440 +   CIO=     EQU    /COMCCIO/CIO=                                           COMCCIO    82
                                         QUAL$    ENDIF                                                          COMCCIO    83
                                                  ENDX                                                           COMCCIO    84
  
  
  
  
                                                  ENTRY  CIO=                                                    LSTPRO    680
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    35
        COMCRDC - READ CODED LINE, -C- FORMAT.
  
          3445                                    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.                     COMCRDC     7
  
  
  
  
                                        ***       RDC - READ CODED LINE, -C- FORMAT.                             COMCRDC     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCRDC    10
  
  
  
  
                                        ***              RDC READS 1 CODED LINE FROM A CIO BUFFER TO A           COMCRDC    12
                                        *         WORKING BUFFER.                                                COMCRDC    13
                                        *                                                                        COMCRDC    14
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDC    15
                                        *                (B6) = FWA WORKING BUFFER.                              COMCRDC    16
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDC    17
                                        *                                                                        COMCRDC    18
                                        *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDC    19
                                        *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDC    20
                                        *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDC    21
                                        *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDC    22
                                        *                             TRANSFER WAS COMPLETED.                    COMCRDC    23
                                        *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDC    24
                                        *                             WORKING BUFFER.                            COMCRDC    25
                                        *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDC    26
                                        *                                                                        COMCRDC    27
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDC    28
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDC    29
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDC    30
                                        *                                                                        COMCRDC    31
                                        *         CALLS  LCB=, RXT=.                                             COMCRDC    32
                                                                                                                 COMCRDC    33
                                                                                                                 COMCRDC    34
          3445  0400003452 +             +        EQ     RDC1                                                    COMCRDC    35
                                                                                                                 COMCRDC    36
          3446  0000000000               RDC=     PS                 ENTRY/EXIT                                  COMCRDC    37
          3447  5140003446 +                      SA4    *-1         SET RETURN ADDRESS                          COMCRDC    38
                                                                                                                 COMCRDC    39
                                                  IF     -DEF,B1=1,1                                             COMCRDC    40
                          6110000001              SB1    1                                                       COMCRDC    41
                                                                                                                 COMCRDC    42
          3450  5212000004                        SA1    X2+4        (B5) = LIMIT                                COMCRDC    43
                          53321                   SA3    X2+B1       (X3) = FIRST                                COMCRDC    44
                               66767              SB7    B6+B7       (B7) = LWA+1 WORKING BUFFER                 COMCRDC    45
          3451  43460                             MX4    -12         (X4) = BYTE MASK                            COMCRDC    46
                     63510                        SB5    X1                                                      COMCRDC    47
                                                                                                                 COMCRDC    48
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDC    49
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    36
        COMCRDC - READ CODED LINE, -C- FORMAT.                        RDC=                COMCRDC 
  
                                                                                                                 COMCRDC    50
          3452  54131                    RDC1     SA1    A3+B1       (B3) = IN                                   COMCRDC    51
                     54211                        SA2    A1+B1       (B4) = OUT                                  COMCRDC    52
                          63310                   SB3    X1                                                      COMCRDC    53
                               63420              SB4    X2                                                      COMCRDC    54
                                                                                                                 COMCRDC    55
                                        *         TRANSFER DATA FROM CIRCULAR BUFFER TO WORKING BUFFER.          COMCRDC    56
                                                                                                                 COMCRDC    57
          3453  0443003551 +             RDC2     EQ     B4,B3,=XLCB= LOAD CIRCULAR BUFFER IF OUT = IN           COMCRDC    58
                          56140                   SA1    B4          READ WORD                                   COMCRDC    59
                               10611              BX6    X1                                                      COMCRDC    60
          3454  66441                             SB4    B4+B1       (OUT+1)                                     COMCRDC    61
                     0545003455 +                 NE     B4,B5,RDC3  IF (OUT+1) " LIMIT                          COMCRDC    62
                               63430              SB4    X3          (OUT+1) = FIRST                             COMCRDC    63
          3455  56660                    RDC3     SA6    B6          STORE WORD                                  COMCRDC    64
                     15764                        BX7    -X4*X6      CHECK LOWER BYTE                            COMCRDC    65
                          66661                   SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCRDC    66
          3456  0307003541 +                      ZR     X7,=XRDX=   EXIT IF END OF LINE                         COMCRDC    67
                          0567003453 +            NE     B6,B7,RDC2  LOOP TO FILL WORKING BUFFER                 COMCRDC    68
          3457  11646                             BX6    X4*X6       CLEAR LAST BYTE                             COMCRDC    69
                     54660                        SA6    A6                                                      COMCRDC    70
                          0400003541 +            EQ     =XRDX=      EXIT                                        COMCRDC    71
  
  
  
  
                                 D_D              BASE   *                                                       COMCRDC    73
                                         QUAL$    IF     -DEF,QUAL$                                              COMCRDC    74
                                                  QUAL   *                                                       COMCRDC    75
                                3446 +   RDC=     EQU    /COMCRDC/RDC=                                           COMCRDC    76
                                         QUAL$    ENDIF                                                          COMCRDC    77
                                                  ENDX                                                           COMCRDC    78
  
  
  
  
                                                  ENTRY  RDC=                                                    LSTPRO    687
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    37
        COMCRDW - READ WORDS TO WORKING BUFFER. 
  
          3460                                    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.                     COMCRDW     7
  
  
  
  
                                        ***       RDW - READ WORDS TO WORKING BUFFER.                            COMCRDW     9
                                        *         D. A. CAHLANDER.  70/11/29.                                    COMCRDW    10
  
  
  
  
                                        ***              RDW READS A GIVEN NUMBER OF WORDS FROM A CIO BUFFER TO  COMCRDW    12
                                        *         A WORKING BUFFER.  THIS DECK ALSO CONTAINS LCB=, RDX=.         COMCRDW    13
                                        *                                                                        COMCRDW    14
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDW    15
                                        *                (B6) = FWA WORKING BUFFER.                              COMCRDW    16
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDW    17
                                        *                                                                        COMCRDW    18
                                        *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDW    19
                                        *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDW    20
                                        *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDW    21
                                        *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDW    22
                                        *                             TRANSFER WAS COMPLETED.                    COMCRDW    23
                                        *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDW    24
                                        *                             WORKING BUFFER.                            COMCRDW    25
                                        *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDW    26
                                        *                                                                        COMCRDW    27
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDW    28
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDW    29
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDW    30
                                        *                                                                        COMCRDW    31
                                        *         CALLS  CIO=, LCB=, RDX=.                                       COMCRDW    32
                                                                                                                 COMCRDW    33
                                                                                                                 COMCRDW    34
          3460  76643                    RDW7     SX6    B4+B3       ADVANCE OUT                                 COMCRDW    35
                     66443                        SB4    B4+B3                                                   COMCRDW    36
                          66663                   SB6    B6+B3                                                   COMCRDW    37
                               67773              SB7    B7-B3                                                   COMCRDW    38
          3461  0545003462 +                      NE     B4,B5,RDW8  IF OUT " LIMIT                              COMCRDW    39
                          53121                   SA1    X2+B1       READ FIRST                                  COMCRDW    40
                               73610              SX6    X1          OUT = FIRST                                 COMCRDW    41
          3462  54630                    RDW8     SA6    A3          UPDATE OUT                                  COMCRDW    42
                     43100                        MX1    0                                                       COMCRDW    43
                          0570003464 +            NZ     B7,RDW1     IF NOT END OF TRANSFER                      COMCRDW    44
                                                                                                                 COMCRDW    45
          3463  0000000000               RDW=     PS                 ENTRY/EXIT                                  COMCRDW    46
          3464  5232000003               RDW1     SA3    X2+3        (B4) = OUT                                  COMCRDW    47
                          5212000002              SA1    X2+2        (B3) = IN                                   COMCRDW    48
                                                  IF     -DEF,B1=1,1                                             COMCRDW    49
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    38
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW=                COMCRDW 
  
          3465  6110000001                        SB1    1                                                       COMCRDW    50
                          54431                   SA4    A3+B1       (B5) = LIMIT                                COMCRDW    51
                               63430              SB4    X3                                                      COMCRDW    52
          3466  63310                             SB3    X1                                                      COMCRDW    53
                     53130                        SA1    X3          READ FIRST WORD                             COMCRDW    54
                          63540                   SB5    X4                                                      COMCRDW    55
          3467  0634003470 +                      GE     B3,B4,RDW2  IF NO END AROUND                            COMCRDW    56
                          66350                   SB3    B5                                                      COMCRDW    57
          3470  67334                    RDW2     SB3    B3-B4       FREE DATA LENGTH                            COMCRDW    58
                     0673003471 +                 LE     B3,B7,RDW3  IF NOT ENOUGH ROOM                          COMCRDW    59
                               66370              SB3    B7                                                      COMCRDW    60
          3471  0430003524 +             RDW3     ZR     B3,RDW9     IF NO DATA                                  COMCRDW    61
                          10711                   BX7    X1                                                      COMCRDW    62
                               54111              SA1    A1+B1                                                   COMCRDW    63
                                                                                                                 COMCRDW    64
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDW    65
                                                                                                                 COMCRDW    66
          3472  77431                             SX4    B3-B1                                                   COMCRDW    67
                     43671                        MX6    -3                                                      COMCRDW    68
                          56760                   SA7    B6                                                      COMCRDW    69
                               15346              BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCRDW    70
          3473  21403                             AX4    3           NUMBER OF BLOCKS                            COMCRDW    71
                                                                                                                 COMCRDW    72
                                        *         TRANSFER UP TO 7 WORDS.                                        COMCRDW    73
                                                                                                                 COMCRDW    74
                     0303003476 +                 ZR     X3,RDW5     IF NO ODD WORDS                             COMCRDW    75
          3474  7233777776               RDW4     SX3    X3-1                                                    COMCRDW    76
                          10711                   BX7    X1                                                      COMCRDW    77
                               54111              SA1    A1+B1                                                   COMCRDW    78
          3475  54771                             SA7    A7+B1                                                   COMCRDW    79
                     0313003474 +                 NZ     X3,RDW4     LOOP                                        COMCRDW    80
                                                                                                                 COMCRDW    81
                                        *         PRE-READ REGISTERS.                                            COMCRDW    82
                                                                                                                 COMCRDW    83
          3476  0304003460 +             RDW5     ZR     X4,RDW7     IF NO BLOCKS                                COMCRDW    84
                          63520                   SB5    X2                                                      COMCRDW    85
                               54211              SA2    A1+B1                                                   COMCRDW    86
          3477  66211                             SB2    B1+B1       (B2) = 2                                    COMCRDW    87
                     54321                        SA3    A2+B1                                                   COMCRDW    88
                          63440                   SB4    X4          (B4) = LOOP COUNT                           COMCRDW    89
                               54431              SA4    A3+B1                                                   COMCRDW    90
                                                                                                                 COMCRDW    91
                                        *         TRANSFER 8 WORD BLOCKS.                                        COMCRDW    92
                                                                                                                 COMCRDW    93
          3500  10611                    RDW6     BX6    X1                                                      COMCRDW    94
                     22702                        LX7    X2                                                      COMCRDW    95
                          54132                   SA1    A3+B2                                                   COMCRDW    96
                               54242              SA2    A4+B2                                                   COMCRDW    97
          3501  54671                             SA6    A7+B1                                                   COMCRDW    98
                     67441                        SB4    B4-B1                                                   COMCRDW    99
                          54761                   SA7    A6+B1                                                   COMCRDW   100
                               10633              BX6    X3                                                      COMCRDW   101
          3502  22704                             LX7    X4                                                      COMCRDW   102
                     54312                        SA3    A1+B2                                                   COMCRDW   103
                          54422                   SA4    A2+B2                                                   COMCRDW   104
                               54662              SA6    A6+B2                                                   COMCRDW   105
          3503  54772                             SA7    A7+B2                                                   COMCRDW   106
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    39
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW=                COMCRDW 
  
                     10611                        BX6    X1                                                      COMCRDW   107
                          22702                   LX7    X2                                                      COMCRDW   108
                               54132              SA1    A3+B2                                                   COMCRDW   109
          3504  54242                             SA2    A4+B2                                                   COMCRDW   110
                     54662                        SA6    A6+B2                                                   COMCRDW   111
                          54772                   SA7    A7+B2                                                   COMCRDW   112
                               10633              BX6    X3                                                      COMCRDW   113
          3505  22704                             LX7    X4                                                      COMCRDW   114
                     54312                        SA3    A1+B2                                                   COMCRDW   115
                          54422                   SA4    A2+B2                                                   COMCRDW   116
                               54662              SA6    A6+B2                                                   COMCRDW   117
          3506  54772                             SA7    A7+B2                                                   COMCRDW   118
                     0540003500 +                 NZ     B4,RDW6     LOOP                                        COMCRDW   119
                                                                                                                 COMCRDW   120
                                        *         READ EXIT.                                                     COMCRDW   121
                                                                                                                 COMCRDW   122
          3507  5135000003                        SA3    B5+3        OUT                                         COMCRDW   123
                          76250                   SX2    B5                                                      COMCRDW   124
                               54131              SA1    A3+B1       (B5) = LIMIT                                COMCRDW   125
          3510  56450                             SA4    B5          CHECK BUFFER STATUS                         COMCRDW   126
                     66663                        SB6    B6+B3                                                   COMCRDW   127
                          67773                   SB7    B7-B3                                                   COMCRDW   128
                               63433              SB4    X3+B3       ADVANCE OUT                                 COMCRDW   129
          3511  73633                             SX6    X3+B3                                                   COMCRDW   130
                     63510                        SB5    X1                                                      COMCRDW   131
                          20473                   LX4    59-0                                                    COMCRDW   132
                               53121              SA1    X2+B1       READ FIRST                                  COMCRDW   133
          3512  0545003513 +                      NE     B4,B5,RDW14 IF OUT " LIMIT                              COMCRDW   134
                          73610                   SX6    X1          OUT = FIRST                                 COMCRDW   135
                                                                                                                 COMCRDW   136
                                        *         TRY TO BUFFER AHEAD.                                           COMCRDW   137
                                                                                                                 COMCRDW   138
          3513  0324003462 +             RDW14    PL     X4,RDW8     IF BUFFER BUSY                              COMCRDW   139
                          20470                   LX4    0-4                                                     COMCRDW   140
          3514  0334003462 +                      NG     X4,RDW8     IF EOR/EOF SET                              COMCRDW   141
                          5242000002              SA4    X2+2        READ IN                                     COMCRDW   142
          3515  63210                             SB2    X1          (LIMIT - FIRST)                             COMCRDW   143
                     77152                        SX1    B5-B2                                                   COMCRDW   144
                          37746                   IX7    X4-X6       (IN-OUT)                                    COMCRDW   145
                               22317              LX3    X7,B1       2*(IN-OUT)                                  COMCRDW   146
          3516  21774                             AX7    60          SIGN OF (IN-OUT)                            COMCRDW   147
                     13471                        BX4    X7-X1       INVERT BUFFER IF OUT \ IN                   COMCRDW   148
                          37743                   IX7    X4-X3       BUFFER SIZE - 2*(IN-OUT)                    COMCRDW   149
          3517  0337003462 +                      NG     X7,RDW8     IF BUFFER THRESHOLD NOT REACHED             COMCRDW   150
                          54630                   SA6    A3          UPDATE OUT                                  COMCRDW   151
                               53120              SA1    X2          ISSUE PREVIOUS READ FUNCTION                COMCRDW   152
          3520  7170360374                        SX7    740770B/2                                               COMCRDW   153
                          21101                   AX1    1                                                       COMCRDW   154
                               11771              BX7    X7*X1                                                   COMCRDW   155
          3521  20701                             LX7    1                                                       COMCRDW   156
                     0100003440 +                 RJ     =XCIO=                                                  COMCRDW   157
          3522  43100                             MX1    0           RESPONSE = 0                                COMCRDW   158
                     0570003464 +                 NZ     B7,RDW1     IF NOT DONE                                 COMCRDW   159
          3523  0200003463 +                      JP     RDW=        RETURN                                      COMCRDW   160
                                                                                                                 COMCRDW   161
                                        *         LOAD CIRCULAR BUFFER.                                          COMCRDW   162
                                                                                                                 COMCRDW   163
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    40
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW=                COMCRDW 
  
          3524  53120                    RDW9     SA1    X2          CHECK BUFFER STATUS                         COMCRDW   164
                     5232000002                   SA3    X2+2        READ IN                                     COMCRDW   165
                               20173              LX1    59-0                                                    COMCRDW   166
          3525  0331003527 +                      NG     X1,RDW11    IF BUFFER NOT BUSY                          COMCRDW   167
                          0100000000 X            RECALL                                                         COMCRDW   168
          3526  0200003464 +             RDW10    JP     RDW1        CONTINUE READ                               COMCRDW   169
                                                                                                                 COMCRDW   170
          3527  63330                    RDW11    SB3    X3                                                      COMCRDW   171
                     20170                        LX1    0-4                                                     COMCRDW   172
                          0534003464 +            NE     B3,B4,RDW1  IF BUFFER NOT EMPTY                         COMCRDW   173
          3530  0331003534 +                      NG     X1,RDW12    IF EOR SET                                  COMCRDW   174
                          7160360374              SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                COMCRDW   175
          3531  20104                             LX1    4                                                       COMCRDW   176
                     11761                        BX7    X6*X1                                                   COMCRDW   177
                          20701                   LX7    1                                                       COMCRDW   178
          3532  0100003440 +                      RJ     =XCIO=                                                  COMCRDW   179
          3533  0200003464 +                      JP     RDW1        CONTINUE READ                               COMCRDW   180
                                                                                                                 COMCRDW   181
          3534  53321                    RDW12    SA3    X2+B1       SET IN = OUT = FIRST                        COMCRDW   182
                     22611                        LX6    X1,B1                                                   COMCRDW   183
                          7116000000              SX1    B6+0                                                    COMCRDW   184
          3535  0326003537 +                      PL     X6,RDW13    IF NOT EOF                                  COMCRDW   185
                          20666                   LX6    3-9                                                     COMCRDW   186
                               43173              MX1    -1                                                      COMCRDW   187
          3536  0326003537 +                      PL     X6,RDW13    IF NOT EOI                                  COMCRDW   188
                          7110777775              SX1    -2                                                      COMCRDW   189
          3537  73730                    RDW13    SX7    X3                                                      COMCRDW   190
                     54731                        SA7    A3+B1                                                   COMCRDW   191
                          46000                   NO                                                             COMCRDW   192
                               54771              SA7    A7+B1                                                   COMCRDW   193
          3540  0200003463 +                      JP     RDW=        RETURN                                      COMCRDW   194
  
  
  
  
                                        **        RDX - READ EXIT.                                               COMCRDW   196
                                        *         EXIT FROM READ SUBROUTINE TO CALLER.                           COMCRDW   197
                                        *         IF CIRCULAR BUFFER IS BUSY, OR EOR/EOF IS SENSED, NO ACTION    COMCRDW   198
                                        *         IS TAKEN.                                                      COMCRDW   199
                                        *         OTHERWISE, THE WORD COUNT REMAINING IN THE BUFFER IS CHECKED   COMCRDW   200
                                        *         AND PREVIOUS READ FUNCTION ISSUED IF NECESSARY.                COMCRDW   201
                                        *                                                                        COMCRDW   202
                                        *         ENTRY  (A2) = ADDRESS OF OUT.                                  COMCRDW   203
                                        *                (A3) = ADDRESS OF FIRST.                                COMCRDW   204
                                        *                (A4) = RETURN ADDRESS.                                  COMCRDW   205
                                        *                (X3) = FIRST.                                           COMCRDW   206
                                        *                (B3) = IN.                                              COMCRDW   207
                                        *                (B4) = OUT.                                             COMCRDW   208
                                        *                (B5) = LIMIT.                                           COMCRDW   209
                                        *                                                                        COMCRDW   210
                                        *         EXIT   TO RETURN ADDRESS.                                      COMCRDW   211
                                        *                                                                        COMCRDW   212
                                        *         CALLS  CIO=.                                                   COMCRDW   213
                                                                                                                 COMCRDW   214
                                                                                                                 COMCRDW   215
          3541  55131                    RDX=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   216
                     76640                        SX6    B4          STORE OUT                                   COMCRDW   217
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    41
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDX                 COMCRDW 
  
                          20173                   LX1    59                                                      COMCRDW   218
                               54620              SA6    A2                                                      COMCRDW   219
          3542  75231                             SX2    A3-B1       RESET (X2)                                  COMCRDW   220
                     0321003550 +                 PL     X1,RDX1     IF BUFFER BUSY                              COMCRDW   221
                               20170              LX1    -4                                                      COMCRDW   222
          3543  0331003550 +                      NG     X1,RDX1     IF EOR/EOF SET                              COMCRDW   223
                                                                                                                 COMCRDW   224
                                        *         IF BUFFER IS NOT BUSY, CHECK BUFFER SIZE.                      COMCRDW   225
                                        *         ISSUE READ IF BUFFER THRESHOLD IS REACHED.                     COMCRDW   226
                                                                                                                 COMCRDW   227
                          77634                   SX6    B3-B4       (IN-OUT)                                    COMCRDW   228
                               63230              SB2    X3          (LIMIT-FIRST)                               COMCRDW   229
          3544  22316                             LX3    X6,B1       2*(IN-OUT)                                  COMCRDW   230
                     77752                        SX7    B5-B2                                                   COMCRDW   231
                          21674                   AX6    60          SIGN OF (IN-OUT)                            COMCRDW   232
                               13467              BX4    X6-X7       INVERT BUFFER IF OUT \ IN                   COMCRDW   233
          3545  37643                             IX6    X4-X3       BUFFER SIZE - 2*(IN-OUT)                    COMCRDW   234
                     0336003550 +                 NG     X6,RDX1     IF BUFFER THRESHOLD NOT REACHED             COMCRDW   235
                               20104              LX1    4           ISSUE PREVIOUS READ FUNCTION                COMCRDW   236
          3546  7160360374                        SX6    740770B/2                                               COMCRDW   237
                          11761                   BX7    X6*X1                                                   COMCRDW   238
                               20701              LX7    1                                                       COMCRDW   239
          3547  0100003440 +                      RJ     =XCIO=                                                  COMCRDW   240
          3550  76100                    RDX1     SX1    B0          RESPONSE = 0                                COMCRDW   241
                     64240                        SB2    A4          SET RETURN ADDRESS                          COMCRDW   242
                          0222000000              JP     B2          RETURN                                      COMCRDW   243
  
  
  
  
                                        **        LCB - LOAD CIRCULAR BUFFER.                                    COMCRDW   245
                                        *         REQUEST READ IF BUFFER IS EMPTY, NOT BUSY AND NOE EOR/EOF.     COMCRDW   246
                                        *         IF BUFFER IS BUSY, RECALL AND RETURN.                          COMCRDW   247
                                        *                                                                        COMCRDW   248
                                        *         ENTRY  (A2) = ADDRESS OF OUT.                                  COMCRDW   249
                                        *                (A3) = ADDRESS OF FIRST.                                COMCRDW   250
                                        *                (A4) = RETURN ADDRESS.                                  COMCRDW   251
                                        *                (B4) = OUT.                                             COMCRDW   252
                                        *                                                                        COMCRDW   253
                                        *         EXIT   TO RETURN ADDRESS - 1 IF CONTINUATION READ.             COMCRDW   254
                                        *                TO RETURN ADDRESS IF EOR/EOF.                           COMCRDW   255
                                        *                (X1) = LAST WORD ADDRESS OF WORKING BUFFER.             COMCRDW   256
                                        *                (X1) = -1 IF EOF.                                       COMCRDW   257
                                        *                (X1) = -2 IF EOI.                                       COMCRDW   258
                                        *                                                                        COMCRDW   259
                                        *         CALLS  CIO=.                                                   COMCRDW   260
                                                                                                                 COMCRDW   261
                                                                                                                 COMCRDW   262
          3551  55131                    LCB=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   263
                     76640                        SX6    B4          STORE OUT                                   COMCRDW   264
                          20173                   LX1    59                                                      COMCRDW   265
                               54620              SA6    A2                                                      COMCRDW   266
          3552  0331003554 +                      NG     X1,LCB2     IF BUFFER NOT BUSY                          COMCRDW   267
                          0100000000 X            RECALL                                                         COMCRDW   268
          3553  65241                    LCB1     SB2    A4-B1       CONTINUE READ                               COMCRDW   269
                     0222000000                   JP     B2                                                      COMCRDW   270
                                                                                                                 COMCRDW   271
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    42
        COMCRDW - READ WORDS TO WORKING BUFFER.                       LCB                 COMCRDW 
  
          3554  55121                    LCB2     SA1    A2-B1       RE-READ IN                                  COMCRDW   272
                     63310                        SB3    X1                                                      COMCRDW   273
                          0534003553 +            NE     B3,B4,LCB1  IF BUFFER NOT EMPTY                         COMCRDW   274
          3555  55131                             SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   275
                     20167                        LX1    59-4                                                    COMCRDW   276
                          0331003561 +            NG     X1,LCB3     IF EOR SET                                  COMCRDW   277
          3556  7160360374                        SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                COMCRDW   278
                          20104                   LX1    4                                                       COMCRDW   279
                               75231              SX2    A3-B1                                                   COMCRDW   280
          3557  11761                             BX7    X6*X1                                                   COMCRDW   281
                     20701                        LX7    1                                                       COMCRDW   282
                          0100003440 +            RJ     =XCIO=                                                  COMCRDW   283
          3560  65241                             SB2    A4-B1       CONTINUE READ                               COMCRDW   284
                     0222000000                   JP     B2                                                      COMCRDW   285
                                                                                                                 COMCRDW   286
          3561  22611                    LCB3     LX6    B1,X1                                                   COMCRDW   287
                     54130                        SA1    A3          SET IN = OUT = FIRST                        COMCRDW   288
                          73710                   SX7    X1                                                      COMCRDW   289
                               54711              SA7    A1+B1                                                   COMCRDW   290
          3562  77101                             SX1    -B1         RESPONSE = -1                               COMCRDW   291
                     64240                        SB2    A4          SET RETURN ADDRESS                          COMCRDW   292
                          0336003565 +            NG     X6,LCB4     IF EOF                                      COMCRDW   293
          3563  43270                             MX2    -4                                                      COMCRDW   294
                     76160                        SX1    B6          RESPONSE = LAST WORD ADDRESS                COMCRDW   295
                          20662                   LX6    -14+4                                                   COMCRDW   296
                               15262              BX2    -X2*X6                                                  COMCRDW   297
          3564  6232000000                        SB3    X2+                                                     COMCRDW   298
                          0431003567 +            EQ     B3,B1,LCB5  IF LEVEL 1                                  COMCRDW   299
          3565  75231                    LCB4     SX2    A3-B1       RESET (X2)                                  COMCRDW   300
                     54771                        SA7    A7+B1                                                   COMCRDW   301
                          0331003574 +            NG     X1,LCB6     IF EOF/EOI                                  COMCRDW   302
          3566  0222000000               LCB4.1   JP     B2          RETURN                                      COMCRDW   303
                                                                                                                 COMCRDW   304
          3567  54130                    LCB5     SA1    A3          CHECK DEVICE TYPE                           FCC0441     9
                     43260                        MX2    -12                                                     FCC0441    10
                          20114                   LX1    12                                                      FCC0441    11
                               15112              BX1    -X2*X1                                                  FCC0441    12
          3570  7261775353                        SX6    X1-2RTT                                                 FCC0441    13
                          76160                   SX1    B6          RESPONSE = LAST WORD ADDRESS                FCC0441    14
          3571  0316003565 +                      NZ     X6,LCB4     IF DEVICE TYPE NOT *TT*                     FCC0441    15
                          54771                   SA7    A7+B1       STORE OUT                                   FCC0441    16
                               75231              READ   A3-B1       RESTART READ                                COMCRDW   306
          3573  65241                             SB2    A4-B1       CONTINUE                                    COMCRDW   307
                     0222000000                   JP     B2                                                      COMCRDW   308
          3574  20666                    LCB6     LX6    3-9                                                     COMCRDW   309
                     0326003566 +                 PL     X6,LCB4.1   IF NOT EOI                                  COMCRDW   310
                               20101              LX1    1           RESPONSE= -2                                COMCRDW   311
          3575  0222000000                        JP     B2          RETURN                                      COMCRDW   312
  
  
  
  
                                 D_D              BASE   *                                                       COMCRDW   314
                                         QUAL$    IF     -DEF,QUAL$                                              COMCRDW   315
                                                  QUAL   *                                                       COMCRDW   316
                                3463 +   RDW=     EQU    /COMCRDW/RDW=                                           COMCRDW   317
                                3541 +   RDX=     EQU    /COMCRDW/RDX=                                           COMCRDW   318
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    43
        COMCRDW - READ WORDS TO WORKING BUFFER. 
  
                                3551 +   LCB=     EQU    /COMCRDW/LCB=                                           COMCRDW   319
                                         QUAL$    ENDIF                                                          COMCRDW   320
                                                  ENDX                                                           COMCRDW   321
  
  
  
  
                                                  ENTRY  RDW=                                                    LSTPRO    694
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    44
        COMCWTC - WRITE CODED LINE, -C- FORMAT. 
  
          3575                                    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 CORP. 1970.                     COMCWTC     7
  
  
  
  
                                        ***       WTC - WRITE CODED LINE, -C- FORMAT.                            COMCWTC     9
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCWTC    10
  
  
  
  
                                        ***              WTC TRANSFERRS 1 CODED LINE IN -C- FORMAT FROM A        COMCWTC    12
                                        *         WORKING BUFFER TO A CIO BUFFER.                                COMCWTC    13
                                        *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTC    14
                                        *         WTC WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTC    15
                                        *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTC    16
                                        *         WILL BE RE-ISSUED.                                             COMCWTC    17
                                        *                                                                        COMCWTC    18
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC    19
                                        *                (B6) = FWA WORKING BUFFER.                              COMCWTC    20
                                        *                                                                        COMCWTC    21
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC    22
                                        *                                                                        COMCWTC    23
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTC    24
                                        *                B - 1, 2, 3, 4, 5, 6.                                   COMCWTC    25
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTC    26
                                        *                                                                        COMCWTC    27
                                        *         CALLS  DCB=, WTX=.                                             COMCWTC    28
                                                                                                                 COMCWTC    29
                                                                                                                 COMCWTC    30
          3576  0400003603 +             +        EQ     WTC1                                                    COMCWTC    31
                                                                                                                 COMCWTC    32
          3577  0000000000               WTC=     PS                 ENTRY/EXIT                                  COMCWTC    33
          3600  5140003577 +                      SA4    *-1                                                     COMCWTC    34
                                                                                                                 COMCWTC    35
                                                  IF     -DEF,B1=1,1                                             COMCWTC    36
                          6110000001              SB1    1                                                       COMCWTC    37
                                                                                                                 COMCWTC    38
          3601  5212000004                        SA1    X2+4        (B5) = LIMIT                                COMCWTC    39
                          53321                   SA3    X2+B1       (X3) = FIRST                                COMCWTC    40
                               43460              MX4    -12         (X4) = BYTE MASK                            COMCWTC    41
          3602  63510                             SB5    X1                                                      COMCWTC    42
                                                                                                                 COMCWTC    43
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTC    44
                                                                                                                 COMCWTC    45
          3603  5013000002               WTC1     SA1    A3+2        (B4) = OUT                                  COMCWTC    46
                          54231                   SA2    A3+B1       (X2) = IN                                   COMCWTC    47
                               63410              SB4    X1                                                      COMCWTC    48
                                                                                                                 COMCWTC    49
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    45
        COMCWTC - WRITE CODED LINE, -C- FORMAT.                       WTC=                COMCWTC 
  
                                        *         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.          COMCWTC    50
                                                                                                                 COMCWTC    51
          3604  63321                    WTC2     SB3    X2+B1       (IN+1)                                      COMCWTC    52
                     0535003605 +                 NE     B3,B5,WTC3  IF (IN+1) " LIMIT                           COMCWTC    53
                               63330              SB3    X3          (IN+1) = FIRST                              COMCWTC    54
          3605  56160                    WTC3     SA1    B6          NEXT WORD                                   COMCWTC    55
                     0434003667 +                 EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT       COMCWTC    56
                               22601              LX6    X1                                                      COMCWTC    57
          3606  66661                             SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCWTC    58
                     15714                        BX7    -X4*X1                                                  COMCWTC    59
                          53620                   SA6    X2          STORE WORD                                  COMCWTC    60
                               76230              SX2    B3          IN = IN+1                                   COMCWTC    61
          3607  0317003604 +                      NZ     X7,WTC2     LOOP TO END OF LINE                         COMCWTC    62
                          0400003660 +            EQ     =XWTX=      EXIT                                        COMCWTC    63
  
  
  
  
                                 D_D              BASE   *                                                       COMCWTC    65
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWTC    66
                                                  QUAL   *                                                       COMCWTC    67
                                3577 +   WTC=     EQU    /COMCWTC/WTC=                                           COMCWTC    68
                                         QUAL$    ENDIF                                                          COMCWTC    69
                                                  ENDX                                                           COMCWTC    70
  
  
  
  
                                                  ENTRY  WTC=                                                    LSTPRO    701
  
  
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    46
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
          3610                                    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 CORP. 1970.                     COMCWTW     7
  
  
  
  
                                        ***       WTW - WRITE WORDS FROM WORKING BUFFER.                         COMCWTW     9
                                        *         D. A. CAHLANDER.  70/11/29.                                    COMCWTW    10
  
  
  
  
                                        ***              WTW TRANSFERS DATA FROM A WORKING BUFFER TO A CIO       COMCWTW    12
                                        *         BUFFER.  THIS DECK ALSO CONTAINS DCB=, AND WTX=.               COMCWTW    13
                                        *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTW    14
                                        *         WTW WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTW    15
                                        *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTW    16
                                        *         WILL BE RE-ISSUED.                                             COMCWTW    17
                                        *                                                                        COMCWTW    18
                                        *         WHEN CALLING CIO= FROM THIS ROUTINE B6 AND B7                  COMCWTW    19
                                        *         MUST CONTAIN WORKING STORAGE BUFFER ADDRESS,                   COMCWTW    20
                                        *         AND NUMBER OF WORDS TO TRANSFER RESPECTIVELY                   COMCWTW    21
                                        *         AS ERROR PROCESSING ROUTINES DEPEND UPON                       COMCWTW    22
                                        *         THESE REGISTERS.                                               COMCWTW    23
                                        *                                                                        COMCWTW    24
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTW    25
                                        *                (B6) = FWA WORKING BUFFER.                              COMCWTW    26
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCWTW    27
                                        *                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.             COMCWTW    28
                                        *                                                                        COMCWTW    29
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTW    30
                                        *                                                                        COMCWTW    31
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTW    32
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCWTW    33
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTW    34
                                        *                                                                        COMCWTW    35
                                        *         CALLS  CIO=.                                                   COMCWTW    36
                                                                                                                 COMCWTW    37
                                                                                                                 COMCWTW    38
          3610  76634                    WTW8     SX6    B3+B4       ADVANCE IN                                  COMCWTW    39
                     66334                        SB3    B3+B4                                                   COMCWTW    40
                          66664                   SB6    B6+B4                                                   COMCWTW    41
                               67774              SB7    B7-B4                                                   COMCWTW    42
          3611  0535003612 +                      NE     B3,B5,WTW9  IF IN " LIMIT                               COMCWTW    43
                          53121                   SA1    X2+B1       IN = FIRST                                  COMCWTW    44
                               73610              SX6    X1                                                      COMCWTW    45
          3612  5262000002               WTW9     SA6    X2+2        UPDATE IN                                   COMCWTW    46
                          0570003614 +            NZ     B7,WTW1     IF NOT END OF TRANSFER                      COMCWTW    47
                                                                                                                 COMCWTW    48
          3613  0000000000               WTW=     PS                 ENTRY/EXIT                                  COMCWTW    49
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    47
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW=                COMCWTW 
  
          3614  5212000003               WTW1     SA1    X2+3        (B4) = OUT                                  COMCWTW    50
                          5232000002              SA3    X2+2        (B3) = IN                                   COMCWTW    51
                                                  IF     -DEF,B1=1,1                                             COMCWTW    52
          3615  6110000001                        SB1    1                                                       COMCWTW    53
                          54411                   SA4    A1+B1       (B5) = LIMIT                                COMCWTW    54
          3616  0470003613 +                      ZR     B7,WTW=     IF WORKING BUFFER EMPTY                     COMCWTW    55
                          63410                   SB4    X1                                                      COMCWTW    56
                               53121              SA1    X2+B1       (B2) = FIRST                                COMCWTW    57
          3617  63330                             SB3    X3                                                      COMCWTW    58
                     63540                        SB5    X4                                                      COMCWTW    59
                          63210                   SB2    X1                                                      COMCWTW    60
                               56160              SA1    B6          READ FIRST WORD                             COMCWTW    61
          3620  0524003621 +                      NE     B2,B4,WTW2  IF OUT " FIRST                              COMCWTW    62
                          66450                   SB4    B5                                                      COMCWTW    63
          3621  0734003622 +             WTW2     LT     B3,B4,WTW3  IF NO END AROUND                            COMCWTW    64
                          6145000001              SB4    B5+1                                                    COMCWTW    65
          3622  67441                    WTW3     SB4    B4-B1       CALCULATE FREE DATA SPACE                   COMCWTW    66
                     67443                        SB4    B4-B3       (B4) = TRANSFER LENGTH                      COMCWTW    67
                          0440003653 +            ZR     B4,WTW10    IF NO ROOM                                  COMCWTW    68
          3623  10711                             BX7    X1                                                      COMCWTW    69
                     0674003624 +                 LE     B4,B7,WTW4  IF NOT ENOUGH ROOM                          COMCWTW    70
                               66470              SB4    B7                                                      COMCWTW    71
                                                                                                                 COMCWTW    72
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTW    73
                                                                                                                 COMCWTW    74
          3624  54111                    WTW4     SA1    A1+B1                                                   COMCWTW    75
                     77441                        SX4    B4-B1                                                   COMCWTW    76
                          43671                   MX6    -3                                                      COMCWTW    77
                               56730              SA7    B3                                                      COMCWTW    78
          3625  15346                             BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCWTW    79
                     21403                        AX4    3           NUMBER OF BLOCKS                            COMCWTW    80
                          0303003630 +            ZR     X3,WTW6     IF NO ODD WORDS                             COMCWTW    81
                                                                                                                 COMCWTW    82
                                        *         TRANSFER UP TO 7 WORDS.                                        COMCWTW    83
                                                                                                                 COMCWTW    84
          3626  7233777776               WTW5     SX3    X3-1                                                    COMCWTW    85
                          10711                   BX7    X1                                                      COMCWTW    86
                               54111              SA1    A1+B1                                                   COMCWTW    87
          3627  54771                             SA7    A7+B1                                                   COMCWTW    88
                     0313003626 +                 NZ     X3,WTW5     LOOP                                        COMCWTW    89
                                                                                                                 COMCWTW    90
                                        *         PRE-READ REGISTERS.                                            COMCWTW    91
                                                                                                                 COMCWTW    92
          3630  0304003610 +             WTW6     ZR     X4,WTW8     IF NO BLOCKS                                COMCWTW    93
                          63520                   SB5    X2          (B5) = FET ADDRESS                          COMCWTW    94
                               54211              SA2    A1+B1                                                   COMCWTW    95
          3631  66211                             SB2    B1+B1       (B2) = 2                                    COMCWTW    96
                     54321                        SA3    A2+B1                                                   COMCWTW    97
                          63340                   SB3    X4          (B3) = BLOCK COUNT                          COMCWTW    98
                               54431              SA4    A3+B1                                                   COMCWTW    99
                                                                                                                 COMCWTW   100
                                        *         TRANSFER 8 WORD BLOCKS.                                        COMCWTW   101
                                                                                                                 COMCWTW   102
          3632  10611                    WTW7     BX6    X1                                                      COMCWTW   103
                     22702                        LX7    X2                                                      COMCWTW   104
                          54132                   SA1    A3+B2                                                   COMCWTW   105
                               54242              SA2    A4+B2                                                   COMCWTW   106
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    48
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW=                COMCWTW 
  
          3633  54671                             SA6    A7+B1                                                   COMCWTW   107
                     67331                        SB3    B3-B1                                                   COMCWTW   108
                          54761                   SA7    A6+B1                                                   COMCWTW   109
                               10633              BX6    X3                                                      COMCWTW   110
          3634  22704                             LX7    X4                                                      COMCWTW   111
                     54312                        SA3    A1+B2                                                   COMCWTW   112
                          54422                   SA4    A2+B2                                                   COMCWTW   113
                               54662              SA6    A6+B2                                                   COMCWTW   114
          3635  54772                             SA7    A7+B2                                                   COMCWTW   115
                     10611                        BX6    X1                                                      COMCWTW   116
                          22702                   LX7    X2                                                      COMCWTW   117
                               54132              SA1    A3+B2                                                   COMCWTW   118
          3636  54242                             SA2    A4+B2                                                   COMCWTW   119
                     54662                        SA6    A6+B2                                                   COMCWTW   120
                          54772                   SA7    A7+B2                                                   COMCWTW   121
                               10633              BX6    X3                                                      COMCWTW   122
          3637  22704                             LX7    X4                                                      COMCWTW   123
                     54312                        SA3    A1+B2                                                   COMCWTW   124
                          54422                   SA4    A2+B2                                                   COMCWTW   125
                               54662              SA6    A6+B2                                                   COMCWTW   126
          3640  54772                             SA7    A7+B2                                                   COMCWTW   127
                     0530003632 +                 NZ     B3,WTW7     LOOP                                        COMCWTW   128
                                                                                                                 COMCWTW   129
                                        *         WRITE EXIT.                                                    COMCWTW   130
                                                                                                                 COMCWTW   131
                               56352              SA3    B5+B2       READ IN                                     COMCWTW   132
          3641  54132                             SA1    A3+B2       (B5) = LIMIT                                COMCWTW   133
                     56450                        SA4    B5          CHECK BUFFER STATUS                         COMCWTW   134
                          66664                   SB6    B6+B4                                                   COMCWTW   135
                               67774              SB7    B7-B4                                                   COMCWTW   136
          3642  63334                             SB3    X3+B4       ADVANCE IN                                  COMCWTW   137
                     73634                        SX6    X3+B4                                                   COMCWTW   138
                          76250                   SX2    B5                                                      COMCWTW   139
                               63510              SB5    X1                                                      COMCWTW   140
          3643  20473                             LX4    59-0                                                    COMCWTW   141
                     53321                        SA3    X2+B1       READ FIRST                                  COMCWTW   142
                          0535003645 +            NE     B3,B5,WTW12 IF IN " LIMIT                               COMCWTW   143
          3644  73630                             SX6    X3          IN = FIRST                                  COMCWTW   144
                                                                                                                 COMCWTW   145
                                        *         TRY TO BUFFER AHEAD.                                           COMCWTW   146
                                                                                                                 COMCWTW   147
          3645  0324003612 +             WTW12    PL     X4,WTW9     IF BUFFER BUSY                              COMCWTW   148
                          5212000003              SA1    X2+3        READ OUT                                    COMCWTW   149
          3646  5262000002                        SA6    X2+2        STORE IN                                    COMCWTW   150
                          63230                   SB2    X3          (LIMIT-FIRST)                               COMCWTW   151
                               37616              IX6    X1-X6       (OUT-IN)                                    COMCWTW   152
          3647  77752                             SX7    B5-B2                                                   COMCWTW   153
                     22316                        LX3    X6,B1       2*(OUT-IN)                                  COMCWTW   154
                          21674                   AX6    60          SIGN OF (OUT-IN)                            COMCWTW   155
                               13467              BX4    X6-X7       INVERT BUFFER IF IN \ OUT                   COMCWTW   156
          3650  37643                             IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN)                    COMCWTW   157
                     0336003652 +                 NG     X6,WTW13    IF BUFFER THRESHOLD NOT REACHED             COMCWTW   158
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   159
                                                  SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   160
                                                  SX6    774B                                                    COMCWTW   161
                                                  BX7    X6*X1                                                   COMCWTW   162
                                                  RJ     =XCIO=                                                  COMCWTW   163
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    49
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW=                COMCWTW 
  
                                         WRIF$    ELSE   1                                                       COMCWTW   164
          3651  7170000014                        WRITE  X2                                                      COMCWTW   165
          3652  0570003614 +             WTW13    NZ     B7,WTW1     IF NOT DONE                                 COMCWTW   166
                          0200003613 +            JP     WTW=        RETURN                                      COMCWTW   167
                                                                                                                 COMCWTW   168
                                        *         DUMP CIRCULAR BUFFER.                                          COMCWTW   169
                                                                                                                 COMCWTW   170
          3653  53120                    WTW10    SA1    X2          CHECK BUFFER STATUS                         COMCWTW   171
                     20173                        LX1    59-0                                                    COMCWTW   172
                          0331003656 +            NG     X1,WTW11    IF NOT BUSY                                 COMCWTW   173
          3654  0301003656 +                      ZR     X1,WTW11    IF BLANK FET                                COMCWTW   174
                          0100000000 X            RECALL                                                         COMCWTW   175
          3655  0200003614 +                      JP     WTW1        CONTINUE WRITE                              COMCWTW   176
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   177
                                         WTW11    SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   178
                                                  SX6    774B                                                    COMCWTW   179
                                                  BX7    X6*X1                                                   COMCWTW   180
                                                  RJ     =XCIO=                                                  COMCWTW   181
                                         WRIF$    ELSE   1                                                       COMCWTW   182
          3656  7170000014               WTW11    WRITE  X2                                                      COMCWTW   183
          3657  0200003614 +                      JP     WTW1        CONTINUE WRITE                              COMCWTW   184
  
  
  
  
                                        **        WTX - WRITE EXIT.                                              COMCWTW   186
                                        *         IF BUFFER IS BUSY, RETURN.                                     COMCWTW   187
                                        *         OTHERWISE, WORD COUNT OF BUFFER IS CHECKED, AND A WRITE        COMCWTW   188
                                        *         FUNCTION IS REQUESTED IF NECESSARY.                            COMCWTW   189
                                        *                                                                        COMCWTW   190
                                        *         ENTRY  (A2) = ADDRESS OF IN.                                   COMCWTW   191
                                        *                (A3) = ADDRESS OF FIRST.                                COMCWTW   192
                                        *                (A4) = RETURN ADDRESS.                                  COMCWTW   193
                                        *                (B3) = IN+1.                                            COMCWTW   194
                                        *                (B4) = OUT.                                             COMCWTW   195
                                        *                (B5) = LIMIT.                                           COMCWTW   196
                                        *                (X2) = IN                                               COMCWTW   197
                                        *                                                                        COMCWTW   198
                                        *         EXIT   TO RETURN ADDRESS.                                      COMCWTW   199
                                        *                                                                        COMCWTW   200
                                        *         CALLS  NONE.                                                   COMCWTW   201
                                                                                                                 COMCWTW   202
                                                                                                                 COMCWTW   203
          3660  55131                    WTX=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCWTW   204
                     73620                        SX6    X2          STORE IN                                    COMCWTW   205
                          20173                   LX1    59                                                      COMCWTW   206
                               54620              SA6    A2                                                      COMCWTW   207
          3661  0321003666 +                      PL     X1,WTX1     IF BUFFER BUSY                              COMCWTW   208
                                                                                                                 COMCWTW   209
                                        *         IF BUFFER IS NOT BUSY, CHECK SIZE OF BUFFER.                   COMCWTW   210
                                        *         ISSUE WRITE IF THRESHOLD IS REACHED.                           COMCWTW   211
                                                                                                                 COMCWTW   212
                          54330                   SA3    A3          FIRST                                       COMCWTW   213
                               77643              SX6    B4-B3       (OUT-IN+1)                                  COMCWTW   214
          3662  63230                             SB2    X3          (LIMIT-FIRST)                               COMCWTW   215
                     22316                        LX3    X6,B1       2*(OUT-IN+1)                                COMCWTW   216
                          77752                   SX7    B5-B2                                                   COMCWTW   217
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    50
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTX                 COMCWTW 
  
                               21674              AX6    60          SIGN OF (OUT-IN+1)                          COMCWTW   218
          3663  13467                             BX4    X6-X7       INVERT BUFFER IF IN+1 \ OUT                 COMCWTW   219
                     37643                        IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN+1)                  COMCWTW   220
                          0336003666 +            NG     X6,WTX1     IF BUFFER THRESHOLD NOT REACHED             COMCWTW   221
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   222
                                                  SA1    A3-B1       RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   223
                                                  SX6    774B                                                    COMCWTW   224
                                                  BX7    X6*X1                                                   COMCWTW   225
                                                  RJ     =XCIO=                                                  COMCWTW   226
                                         WRIF$    ELSE   1                                                       COMCWTW   227
          3664  75231                             WRITE  A3-B1                                                   COMCWTW   228
                                                                                                                 COMCWTW   229
          3666  64240                    WTX1     SB2    A4          SET RETURN ADDRESS                          COMCWTW   230
                     75231                        SX2    A3-B1       RESET (X2)                                  COMCWTW   231
                          0222000000              JP     B2          RETURN                                      COMCWTW   232
  
  
  
  
                                        **        DCB - DUMP CIRCULAR BUFFER.                                    COMCWTW   234
                                        *         IF BUFFER IS BUSY, RECALL AND RETURN.                          COMCWTW   235
                                        *         IF BUFFER IS NOT BUSY, REQUEST WRITE FUNCTION AND RETURN.      COMCWTW   236
                                        *                                                                        COMCWTW   237
                                        *         ENTRY  (A2) = ADDRESS OF IN.                                   COMCWTW   238
                                        *                (A3) = ADDRESS OF FIRST.                                COMCWTW   239
                                        *                (A4) = RETURN ADDRESS.                                  COMCWTW   240
                                        *                (X2) = IN.                                              COMCWTW   241
                                        *                                                                        COMCWTW   242
                                        *         EXIT   TO RETURN ADDRESS - 1.                                  COMCWTW   243
                                        *                                                                        COMCWTW   244
                                        *         CALLS  NONE.                                                   COMCWTW   245
                                                                                                                 COMCWTW   246
                                                                                                                 COMCWTW   247
          3667  55131                    DCB=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCWTW   248
                     73620                        SX6    X2          STORE IN                                    COMCWTW   249
                          20173                   LX1    59                                                      COMCWTW   250
                               54620              SA6    A2                                                      COMCWTW   251
          3670  0331003673 +                      NG     X1,DCB1     IF NOT BUSY                                 COMCWTW   252
                          0301003673 +            ZR     X1,DCB1     IF BLANK FET                                COMCWTW   253
          3671  0100000000 X                      RECALL                                                         COMCWTW   254
          3672  65241                             SB2    A4-B1       CONTINUE WRITE                              COMCWTW   255
                     0222000000                   JP     B2                                                      COMCWTW   256
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   257
                                         DCB1     SA1    A3-B1       RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   258
                                                  SX6    774B                                                    COMCWTW   259
                                                  BX7    X6*X1                                                   COMCWTW   260
                                                  RJ     =XCIO=                                                  COMCWTW   261
                                         WRIF$    ELSE   1                                                       COMCWTW   262
          3673  75231                    DCB1     WRITE  A3-B1                                                   COMCWTW   263
          3675  65241                             SB2    A4-B1       CONTINUE WRITE                              COMCWTW   264
                     0222000000                   JP     B2                                                      COMCWTW   265
  
  
  
  
                                 D_D              BASE   *                                                       COMCWTW   267
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWTW   268
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    51
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.
  
                                                  QUAL   *                                                       COMCWTW   269
                                3613 +   WTW=     EQU    /COMCWTW/WTW=                                           COMCWTW   270
                                3660 +   WTX=     EQU    /COMCWTW/WTX=                                           COMCWTW   271
                                3667 +   DCB=     EQU    /COMCWTW/DCB=                                           COMCWTW   272
                                         QUAL$    ENDIF                                                          COMCWTW   273
                                                  ENDX                                                           COMCWTW   274
  
  
  
  
                                                  ENTRY  WTW=                                                    LSTPRO    708
  
  
  
  
                                         #RM      ENDIF                                                          LSTPRO    710
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    52
        FA=LOL - LIST ONE LINE                                        FA=LOL
  
                                        **        FA=LOL - LIST ONE LINE.                                        LSTPRO    712
                                        *                                                                        LSTPRO    713
                                        *                                                                        LSTPRO    714
                                        *         ENTRY  (B1) = 1                                                LSTPRO    715
                                        *                (B6) = LINE BUFFER ADDRESS.                             LSTPRO    716
                                        *                (B7) = LINE LENGTH (WORDS).                             LSTPRO    717
                                        *                                                                        LSTPRO    718
                                        *         EXIT   (B1) = 1                                                LSTPRO    719
                                        *                                                                        LSTPRO    720
                                        *         USES   X - 1, 2, 6, 7                                          LSTPRO    721
                                        *                A - 1, 2, 6, 7                                          LSTPRO    722
                                        *                B - 6                                                   LSTPRO    723
                                        *                                                                        LSTPRO    724
                                        *         CALLS  NUPAGE, WRITEC                                          LSTPRO    725
                                                                                                                 LSTPRO    726
                                                                                                                 LSTPRO    727
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO    728
                                                                                                                 LSTPRO    729
          3676  7120000000 X             LOL2     WRITEC F.OUT,B6                                                LSTPRO    730
                                                                                                                 LSTPRO    731
          3677  0400403677 +             FA=LOL   ENTRY. **          ** ENTRY/EXIT **                            LSTPRO    732
          3700  5110004405 +                      SA1    N.LINES     COMPLEMENT OF UNFILLED LINE COUNT           LSTPRO    733
                          73611                   SX6    X1+B1       DECR COUNT                                  LSTPRO    734
                               54610              SA6    A1                                                      LSTPRO    735
          3701  0336003676 +                      MI     X6,LOL2     IF PAGE NOT FULL                            LSTPRO    736
                          7176000000              SX7    B6+                                                     LSTPRO    737
          3702  5170003705 +                      SA7    LOLA        TEMP SAVE LINE ADDRESS                      LSTPRO    738
                          0100003706 +            NUPAGE             EJECT AND TITLE PAGE                        LSTPRO    739
          3703  5120003705 +                      SA2    LOLA                                                    LSTPRO    741
                          63620                   SB6    X2                                                      LSTPRO    744
          3704  0400003676 +                      EQ     LOL2                                                    LSTPRO    746
                                                                                                                 LSTPRO    747
                                         #RM      ELSE                                                           LSTPRO    748
                                                                                                                 LSTPRO    749
                                         LOL2     WRITEC F.OUT,B6,B7                                             LSTPRO    750
                                                                                                                 LSTPRO    751
                                         FA=LOL   ENTRY. **          ** ENTRY/EXIT **                            LSTPRO    752
                                                                                                                 LSTPRO    753
                                                  SA1    N.LINES     COMPLEMENT OF UNFILLED LINE COUNT           LSTPRO    757
                                                  SX6    X1+B1       DECREMENT LINE COUNT                        LSTPRO    758
                                                  SA6    A1                                                      LSTPRO    759
                                                  MI     X6,LOL2     IF PAGE NOT FULL                            LSTPRO    760
                                                  SX7    B7                                                      LSTPRO    761
                                                  SX6    B6                                                      LSTPRO    762
                                                  LX7    18D                                                     LSTPRO    763
                                                  BX6    X7+X6                                                   LSTPRO    764
                                                  SA6    LOLA        TEMP SAVE LINE LENGTH AND FWA               LSTPRO    765
                                                  NUPAGE             EJECT AND TITLE PAGE                        LSTPRO    766
                                                  SA2    LOLA                                                    LSTPRO    767
                                                  SB6    X2                                                      LSTPRO    769
                                                  AX2    18D                                                     LSTPRO    771
                                                  SB7    X2                                                      LSTPRO    773
                                                  EQ     LOL2                                                    LSTPRO    774
                                                                                                                 LSTPRO    775
                                         #RM      ENDIF                                                          LSTPRO    776
                                                                                                                 LSTPRO    777
                                                                                                                 LSTPRO    778
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    53
        FA=LOL - LIST ONE LINE                                        FA=LOL
  
                                                                                                                 LSTPRO    779
          3705                     1     LOLA     BSS    1           LINE LENGTH AND FWA TEMP SAVED HERE         LSTPRO    780
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    54
        FA=NPG - EJECT AND TITLE NEW PAGE                             FA=NPG
  
                                        **        FA=NPG - EJECT AND TITLE NEW PAGE.                             LSTPRO    782
                                        *                                                                        LSTPRO    783
                                        *                IF *BL* OPTION ON, UNCONDITIONALLY EJECTS, TITLES AND   LSTPRO    784
                                        *         SUBTITLES NEW PAGE.                                            LSTPRO    785
                                        *                IF *BL* OPTION OFF, AND 8 OR MORE LINES REMAIN ON       LSTPRO    786
                                        *         CURRENT PAGE, SPACES 4 AND LISTS SUBTITLE ONLY.  IF LESS THAN  LSTPRO    787
                                        *         8 LINES REMAIN, EJECTS, TITLES AND SUBTITLES NEW PAGE.         LSTPRO    788
                                        *         BEHAVES LIKE COMPASS *SPACE 4,4* DIRECTIVE.                    LSTPRO    789
                                        *                                                                        LSTPRO    790
                                        *                                                                        LSTPRO    791
                                        *         ENTRY  (B1) = 1                                                LSTPRO    792
                                        *                                                                        LSTPRO    793
                                        *         EXIT   PAGE SPACED OR EJECTED, AND TITLED.                     LSTPRO    794
                                        *                (N.LINES) ADJUSTED (IF SPACE 4) OR RESET (IF EJECT).    LSTPRO    795
                                        *                (CP.PAGE) INCREMENTED IF PAGE EJECTED.                  LSTPRO    796
                                        *                (B1) = 1                                                LSTPRO    797
                                        *                                                                        LSTPRO    798
                                        *         USES   X - 1, 2, 6, 7                                          LSTPRO    799
                                        *                A - 1, 2, 6, 7                                          LSTPRO    800
                                        *                B - NONE.                                               LSTPRO    801
                                        *                                                                        LSTPRO    802
                                        *         CALLS  CDD, WRITEC                                             LSTPRO    803
                                                                                                                 LSTPRO    804
                                                                                                                 LSTPRO    805
          3706  0400403706 +             FA=NPG   ENTRY. **          ** ENTRY/EXIT **                            LSTPRO    806
          3707  5110004133 +                      SA1    O.STITL     SET DOUBLE SPACE CODE IN SUBTITLE           FEAT155E  360
                          7120000033              SX2    1R0                                                     LSTPRO    808
          3710  43606                             MX6    6                                                       LSTPRO    809
                     20266                        LX2    54                                                      LSTPRO    810
                          15116                   BX1    -X6*X1                                                  LSTPRO    811
                               36621              IX6    X2+X1                                                   LSTPRO    812
          3711  5160004133 +                      SA6    O.STITL     FWA OF SUBTITLE LINE                        FEAT155E  361
                          5110000000 X            SA1    =XCP.BLF                                                LSTPRO    814
          3712  0311003720 +                      NZ     X1,NPG2     IF BURSTABLE LISTING                        LSTPRO    815
                          5110004405 +            SA1    N.LINES     CHECK SPACE LEFT ON CURRENT PAGE            LSTPRO    816
          3713  7261000007                        SX6    X1+8-1                                                  LSTPRO    817
                          0326003720 +            PL     X6,NPG2     IF LESS THAN 8 LINES LEFT                   LSTPRO    818
                                                                                                                 LSTPRO    819
                                        *         SPACE 4 AND SUBTITLE CURRENT PAGE.                             LSTPRO    820
                                                                                                                 LSTPRO    821
          3714  7261000005                        SX6    X1+4+1                                                  LSTPRO    822
                          54610                   SA6    A1          UPDATE *LINES REMAINING* COUNT              LSTPRO    823
          3715  6160004764 +                      WRITEC F.OUT,(=1C-),1    TRIPLE SPACE                          LSTPRO    824
          3717  0400003736 +                      EQ     NPG3                                                    LSTPRO    825
                                                                                                                 LSTPRO    826
                                        *         EJECT, TITLE AND SUBTITLE NEW PAGE.                            LSTPRO    827
                                                                                                                 LSTPRO    828
          3720  5110000000 X             NPG2     SA1    =XCP.PAGE   LAST PAGE NUMBER (BINARY INTEGER)           LSTPRO    829
                          43673                   MX6    -1                                                      LSTPRO    830
                               37716              IX7    X1-X6       PAGE NUMBER + 1                             LSTPRO    831
          3721  73170                             SX1    X7          REMOVE PROPAGATION BIT, IF PRESENT          LSTPRO    832
                     54710                        SA7    A1                                                      LSTPRO    833
                          0100003350 +            CALL   CDD         RETURNS (X6) = PAGE NUMBER (DISPLAY CODE)   LSTPRO    834
          3722  43730                             MX7    24                                                      LSTPRO    835
                     15667                        BX6    -X7*X6                                                  LSTPRO    836
                          6236222243              SB3    X6-1A1      FOR TEST OF FIRST PAGE                      FCCA410    29
          3723  20630                             LX6    24                                                      LSTPRO    838
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    55
        FA=NPG - EJECT AND TITLE NEW PAGE                             FA=NPG
  
                     5160000000 X                 SA6    TL.PAGE     UPDATE PAGE NUMBER IN TITLE LINE            LSTPRO    839
          3724  0530003733 +                      NZ     B3,NPG21    IF NOT FIRST PAGE                           FCCA410    30
                          5140000000 X            SA4    =XCP.LSTF                                               FCCA473    51
          3725  0304003733 +                      ZR     X4,NPG21    IF L = 0                                    FCCA473    52
                          5140000000 X            SA4    =XCP.PAGE                                               FCCA473    53
          3726  20401                             LX4    1                                                       FCCA473    54
                     0334003733 +                 MI     X4,NPG21    IF PD ALREADY WRITTEN OUT TO OUTPUT         FCCA473    55
                               20473              LX4    59                                                      FCCA473    56
          3727  76550                             SX5    B5                                                      FCCA473    57
                     20572                        LX5    58                                                      FCCA473    58
                          12645                   BX6    X4+X5                                                   FCCA473    59
          3730  5160000000 X                      SA6    =XCP.PAGE                                               FCCA473    60
                          5140000000 X            SA4    CP.PD                                                   FCCA593    70
          3731  0304003733 +                      ZR     X4,NPG21    IF TTY OUTPUT FILE                          FCCA593    71
                          6160000000 X            WRITEC F.OUT,CP.PD,1                                           FCCA410    33
          3733  5110000000 X             NPG21    SA1     LCP.PS                                                 FCCA422    65
                          10611                   BX6    X1                                                      FEAT155E  363
          3734  5160004405 +                      SA6    N.LINES     RESET FULL PAGE LINE COUNT                  LSTPRO    841
                                                                                                                 LSTPRO    842
                                        *         LIST TITLE AND SUBTITLE LINES.                                 LSTPRO    843
                                                                                                                 LSTPRO    844
                          6160000000 X            WRITEC F.OUT,O.TITL,L.TITL     / MAIN TITLE /                  LSTPRO    845
          3736  5110003741 +             NPG3     SA1    L.STITL                                                 LSTPRO    846
                          6160004133 +            WRITEC F.OUT,O.STITL,X1        / SUBTITLE /                    LSTPRO    847
                                                                                                                 LSTPRO    848
          3740  0400003706 +                      EQ     FA=NPG      EXIT                                        LSTPRO    849
                                                                                                                 LSTPRO    850
                                                                                                                 LSTPRO    851
                                                                                                                 LSTPRO    852
          3741  00000000000000000001     L.STITL  ENTRY. 1           SUBTITLE LINE LENGTH (WORDS)                LSTPRO    853
  
  
  
  
                                         #RM      IFGE   CP#RM,6                                                 LSTPRO    855
                                                  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                                                FEAT126C    3
                                        *                A - 3                                                   FEAT126C    4
                                        *                B - NONE                                                FEAT126C    5
                                        *                                                                        FA=CLO     22
                                        *         CALLS CLOSEM, FETCH                                            FA=CLO     23
                                                                                                                 FA=CLO     24
                                                                                                                 FA=CLO     25
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    56
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                         FA=CLO   JP     *+4S15      ** ENTRY/EXIT **                            FA=CLO     26
                                                  FETCH  X2,OC,X6,X3                                             FEAT126C    6
                                                  SX6    X6-#OPE#                                                FA=CLO     31
                                                  NZ     X6,FA=CLO   IF NOT OPEN, EXIT                           FA=CLO     33
                                                  CLOSEM X2                                                      FA=CLO     34
                                                  JP     FA=CLO      EXIT                                        FA=CLO     35
                                                                                                                 FA=CLO     36
                                                                                                                 FA=CLO     37
                                                  IF     -DEF,QUAL$,2                                            FA=CLO     38
                                                  QUAL   *                                                       FA=CLO     39
                                         FA=CLO   EQU    /FA=CLO/FA=CLO                                          FA=CLO     40
                                                  ENDX                                                           FA=CLO     41
                                         CLO      SPACE  4                                                       FEAT126C  229
                                                  ENTRY  FA=CLO                                                  FEAT126C  230
                                                  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
                                        *                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
                                                  ENDX                                                           FA=EOF     41
                                         EOF      SPACE  4                                                       FEAT126C  231
                                                  ENTRY  FA=EOF                                                  FEAT126C  232
                                                  CTEXT  FA=EOR - WRITE END-OF-RECORD/SECTION                    FA=EOR      2
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    57
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                         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
                                                                                                                 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
                                                  ENDX                                                           FA=EOR     41
                                         EOR      SPACE  4                                                       FEAT126C  233
                                                  ENTRY  FA=EOR                                                  FEAT126C  234
                                                  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
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    58
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                        *                                                                        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                                       FEAT126C    7
                                        *                A - 1, 3, 4, 6, 7                                       FEAT126C    8
                                        *                B - 7                                                   FEAT126C    9
                                        *                                                                        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
                                                  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                                             FEAT126C   10
                                                  SB7    X4-#ST#                                                 FEAT126C   11
                                                  ZR     B7,FLSH1    IF S TYPE RECORD                            FEAT126C   12
                                                  PUTW   X2,X1,X3                                                FA=FLSH    47
                                                  JP     FA=FLSH     EXIT                                        FA=FLSH    48
                                                                                                                 FEAT126C   13
                                         FLSH1    PUTWP  X2,X1,X3                                                FEAT126C   14
                                                  JP     FA=FLSH     EXIT                                        FEAT126C   15
                                                                                                                 FA=FLSH    49
                                                                                                                 FA=FLSH    50
                                                  IF     -DEF,QUAL$,2                                            FA=FLSH    51
                                                  QUAL   *                                                       FA=FLSH    52
                                         FA=FLSH  EQU    /FA=FLSH/FA=FLSH                                        FA=FLSH    53
                                                  ENDX                                                           FA=FLSH    54
                                                  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
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    59
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                        *         EXIT   (X2) = FIT ADDRESS                                      FA=OPE     16
                                        *                                                                        FA=OPE     17
                                        *         USES   X - 3, 6                                                FA=OPE     18
                                        *                A - 3                                                   FEAT126C   16
                                        *                B - 2                                                   FEAT126C   17
                                        *                                                                        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     30
                                        *         CHECK FILE OPEN/CLOSED STATUS.                                 FA=OPE     31
                                                                                                                 FA=OPE     32
                                                  FETCH  X2,PD,X6,X3                                             FEAT126C   18
                                                  SB2    X6          TEMP SAVE *PD* (*SETFIT* WILL DESTROY)      FA=OPE     34
                                                  SETFIT X2          FDT PARAMETERS TO FIT                       FA=OPE     35
                                                  FETCH  X2,OC,X6,X3                                             FEAT126C   19
                                                  SX6    X6-#OPE#                                                FA=OPE     37
                                                  NZ     X6,OPE2     IF FILE NOT OPEN                            FA=OPE     38
                                                                                                                 FA=OPE     39
                                        *         HERE IF FILE LEFT OPEN BY PREVIOUS JOB STEP.  SOME ATTRIBUTES  FA=OPE     40
                                        *         OF AN OPEN FILE, SUCH AS *PD*, CANNOT BE CHANGED, SO WE CLOSE  FA=OPE     41
                                        *         IT FIRST (SIGH).                                               FA=OPE     42
                                                                                                                 FA=OPE     43
                                                  FETCH  X2,CF,X6,X3 TEMP SAVE *CF* (*CLOSEM* WILL DESTROY)      FEAT126C   20
                                                  CLOSEM X2,N                                                    FA=OPE     45
                                                  STORE  X2,CF=X6,X3                                             FEAT126C   21
                                                                                                                 FA=OPE     47
                                        *         (RE)OPEN FILE.                                                 FA=OPE     48
                                                                                                                 FA=OPE     49
                                         OPE2     SX6    B2                                                      FA=OPE     50
                                                  STORE  X2,PD=X6,X3                                             FEAT126C   22
                                                  OPENM  X2                                                      FA=OPE     52
                                                  JP     FA=OPE      EXIT                                        FA=OPE     55
                                                                                                                 FA=OPE     56
                                                                                                                 FA=OPE     57
                                                  IF     -DEF,QUAL$,2                                            FA=OPE     58
                                                  QUAL   *                                                       FA=OPE     59
                                         FA=OPE   EQU    /FA=OPE/FA=OPE                                          FA=OPE     60
                                                  ENDX                                                           FA=OPE     61
                                         OPE      SPACE  4                                                       FEAT126C  235
                                                  ENTRY  FA=OPE                                                  FEAT126C  236
                                                  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
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    60
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                        *                (B7) = WSA LENGTH (WORDS).                              FA=RDC     15
                                        *                                                                        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                                          FEAT126C   23
                                        *                B - 2, 6                                                FA=RDC     28
                                        *                                                                        FA=RDC     31
                                        *         CALLS  FETCH, GETW, STORE                                      FA=RDC     32
                                                                                                                 FA=RDC     33
                                                                                                                 FA=RDC     34
                                         FA=RDC   JP     *+4S15      ** ENTRY/EXIT **                            FA=RDC     35
                                                                                                                 FA=RDC     36
                                                  IFNE   TEST,0,1                                                FA=RDC     37
                                                  LE     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB            FA=RDC     38
                                                                                                                 FA=RDC     39
                                                  SX3    B6          (X3) = WSA ADDRESS                          FA=RDC     40
                                                  SX4    B7          (X4) = WSA LENGTH                           FA=RDC     41
                                                  GETW   X2,X3,X4,RDC2                                           FA=RDC     42
                                                  SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                    FA=RDC     43
                                                  AX4    18D         (X4) = UNUSED BIT COUNT                     FA=RDC     44
                                                  SA3    B6-B1       LAST WORD OF LINE                           FA=RDC     45
                                                  MX6    1                                                       FA=RDC     46
                                                  SB2    X4-59D                                                  FA=RDC     47
                                                  MX7    0                                                       FA=RDC     48
                                                  AX4    X6,-B2                                                  FA=RDC     49
                                                  MX1    0           *TRANSFER COMPLETE* STATUS                  FA=RDC     50
                                                  BX6    X4*X3       DISCARD UNUSED BITS                         FA=RDC     51
                                                  AX4    6                                                       FA=RDC     52
                                                  SA6    A3          TERMINATE LAST WORD READ                    FA=RDC     53
                                                  NZ     X4,FA=RDC   IF AT LEAST 12-BIT LINE TERMINATOR, EXIT    FA=RDC     54
                                                  SB6    B6+B1       INCREMENT LWA+1 OF TRANSFER                 FA=RDC     55
                                                  SA7    A6+B1       TERMINATE LINE                              FA=RDC     56
                                                  JP     FA=RDC      EXIT                                        FA=RDC     57
                                                                                                                 FA=RDC     58
                                        *         HERE IF END-OF-DATA ENCOUNTERED.                               FA=RDC     59
                                                                                                                 FA=RDC     60
                                         RDC2     JP     *+4S15      ** REC MGR SIMULATES -RJ- HERE IF E-O-D **  FA=RDC     61
                                                  FETCH  X2,FP,X3,X1                                             FEAT126C   24
                                                  SX3    X3-#EOS#                                                FA=RDC     66
                                                  SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                    FA=RDC     67
                                                  SX1    B6          TO RETURN *EOS* STATUS                      FA=RDC     69
                                                  ZR     X3,FA=RDC   IF EOS, EXIT                                FA=RDC     70
                                                  MX1    -1          RETURN EOP/EOI STATUS                       FA=RDC     71
                                                  JP     FA=RDC      EXIT                                        FA=RDC     72
                                                                                                                 FA=RDC     73
                                                                                                                 FA=RDC     74
                                                  IF     -DEF,QUAL$,2                                            FA=RDC     75
                                                  QUAL   *                                                       FA=RDC     76
                                         FA=RDC   EQU    /FA=RDC/FA=RDC                                          FA=RDC     77
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    61
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                                  ENDX                                                           FA=RDC     78
                                         RDC      SPACE  4                                                       FEAT126C  237
                                                  ENTRY  FA=RDC                                                  FEAT126C  238
                                                  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     40
                                        *         CALLS  FETCH, GETWP, MOVE                                      FA=RDW     41
                                                                                                                 FA=RDW     42
                                                                                                                 FA=RDW     43
                                         FA=RDW   JP     *+4S15      ** ENTRY/EXIT **                            FA=RDW     44
                                                                                                                 FA=RDW     45
                                                  IFNE   TEST,0,1                                                FA=RDW     46
                                                  LE     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB            FA=RDW     47
                                                                                                                 FA=RDW     48
                                                  SB2    A2          (B2) = PSEUDO-FET ADDRESS                   FA=RDW     49
                                                  SB3    B7+         (B3) = NR UNTRANSFERRED WORDS               FA=RDW     50
                                                  SB4    B6          (B4) = FWA OF TRANSFER                      FA=RDW     51
                                         RDW2     SA3    B2+I.IN     (X3) = HOLDING BUFFER -IN- POINTER          FA=RDW     52
                                                  SA2    A3+B1       (X2) = HOLDING BUFFER -OUT- POINTER         FA=RDW     53
                                                  SX6    B3          NR WORDS REQUESTED                          FA=RDW     54
                                                  IX7    X3-X2       NR WORDS IN HOLDING BUFFER                  FA=RDW     55
                                                  ZR     X7,RDW6     IF HOLDING BUFFER EMPTY                     FA=RDW     56
                                                                                                                 FA=RDW     57
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    62
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                        *         COMPUTE MINIMUM OF NUMBER OF WORDS REQUESTED VS. WORDS IN      FA=RDW     58
                                        *         HOLDING BUFFER.  TRANSFER *MIN* WORDS TO WORKING STORAGE AREA. FA=RDW     59
                                                                                                                 FA=RDW     60
                                                  IX1    X6-X7                                                   FA=RDW     61
                                                  SX3    B6          (X3) = FWA OF TRANSFER                      FA=RDW     62
                                                  AX1    59D                                                     FA=RDW     63
                                                  BX6    X1*X6                                                   FA=RDW     64
                                                  BX7    -X1*X7                                                  FA=RDW     65
                                                  IX1    X6+X7       (X1) = MIN (REQUESTED, AVAILABLE) NR WORDS  FA=RDW     66
                                                  SB7    X1                                                      FA=RDW     67
                                                  IX6    X2+X1                                                   FA=RDW     68
                                                  SB3    B3-B7                                                   FA=RDW     69
                                                  SB6    B6+X1       (B6) = LWA+1 OF TRANSFER                    FA=RDW     70
                                                  SA6    A2          UPDATE -OUT-                                FA=RDW     71
                                                  MOVE   X1,X2,X3                                                FA=RDW     72
                                                  SA2    B2          RESTORE (X2) = FILE CONTROL WORD            FA=RDW     73
                                                  MX1    0           *TRANSFER COMPLETE* STATUS                  FA=RDW     74
                                                  ZR     B3,FA=RDW   IF TRANSFER COMPLETE, EXIT                  FA=RDW     75
                                                  LX3    X2,B1       LEFT ADJUST SPILL FLAG                      FA=RDW     76
                                                  SX1    B6          *EOS DETECTED* STATUS                       FA=RDW     77
                                                  PL     X3,FA=RDW   IF FILE NOT SPILLED TO DISK, EXIT           FA=RDW     78
                                                  FETCH  X2,FP,X3,X4                                             FEAT126C   25
                                                  SX4    #EOS#+#EOP#+#EOI#                                       FA=RDW     83
                                                  BX3    X4*X3                                                   FA=RDW     84
                                                  NZ     X3,RDW5     IF FILE AT EOS/EOP/EOI                      FA=RDW     86
                                                                                                                 FA=RDW     87
                                        *         REFILL HOLDING BUFFER.                                         FA=RDW     88
                                                                                                                 FA=RDW     89
                                         RDW3     SA3    B2+B1       -FIRST-                                     FA=RDW     90
                                                  SA4    B2+I.LIMIT  -LIMIT-                                     FA=RDW     91
                                                  IX1    X4-X3       HOLDING BUFFER LENGTH                       FA=RDW     92
                                                  GETWP  X2,X3,X1,RDW7     RETURNS (X1) = TRANSFER LENGTH        FA=RDW     93
                                         RDW4     ZR     X1,RDW5     IF NO DATA RECEIVED                         FA=RDW     94
                                                  BX6    X3                                                      FA=RDW     95
                                                  IX7    X3+X1                                                   FA=RDW     96
                                                  SA6    A4-B1       RESET -OUT- = -FIRST-                       FA=RDW     97
                                                  SA7    A3+B1       SET NEW -IN-                                FA=RDW     98
                                                  JP     RDW2        CONTINUE TRANSFER                           FA=RDW     99
                                                                                                                 FA=RDW    100
                                        *         PROCESS END-OF-DATA CONDITION.                                 FA=RDW    101
                                                                                                                 FA=RDW    102
                                         RDW5     SA3    B2+B1       -FIRST-                                     FA=RDW    103
                                                  SX1    B6          *EOS DETECTED* STATUS                       FA=RDW    104
                                                  BX6    X3                                                      FA=RDW    105
                                                  SA6    A3+B1       RESET -IN- = -FIRST-                        FA=RDW    106
                                                  SA6    A6+B1       RESET -OUT- = -FIRST-                       FA=RDW    107
                                                  GT     B6,B4,FA=RDW      IF ANY DATA TRANSFERRED TO WSA        FA=RDW    108
                                                  MX1    -1          *EOP/EOI* STATUS                            FA=RDW    109
                                                  JP     FA=RDW      EXIT                                        FA=RDW    110
                                                                                                                 FA=RDW    111
                                        *         PROCESS EMPTY HOLDING BUFFER.                                  FA=RDW    112
                                                                                                                 FA=RDW    113
                                         RDW6     SA2    B2          RESTORE (X2) = PSEUDO-FET WORD 1            FA=RDW    114
                                                  LX1    X2,B1       LEFT ADJUST SPILL FLAG                      FA=RDW    115
                                                  PL     X1,RDW5     IF FILE NOT SPILLED TO DISK                 FA=RDW    116
                                                  JP     RDW3        GO REFILL HOLDING BUFFER                    FA=RDW    117
                                                                                                                 FA=RDW    118
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    63
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                        *         PROCESS RECORD MANAGER DATA EXIT.                              FA=RDW    119
                                                                                                                 FA=RDW    120
                                         RDW7     JP     *+4S15      ** REC MGR SIMULATES -RJ- HERE IF E-O-D **  FA=RDW    121
                                                  JP     RDW4        CONTINUE (IGNORE 7RM *RECORD* END)          FA=RDW    122
                                                                                                                 FA=RDW    123
                                                                                                                 FA=RDW    124
                                                  IF     -DEF,QUAL$,2                                            FA=RDW    125
                                                  QUAL   *                                                       FA=RDW    126
                                         FA=RDW   EQU    /FA=RDW/FA=RDW                                          FA=RDW    127
                                                  ENDX                                                           FA=RDW    128
                                         RDW      SPACE  4                                                       FEAT126C  239
                                                  ENTRY  FA=RDW                                                  FEAT126C  240
                                                  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
                                        *                                                                        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
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    64
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                                  QUAL   *                                                       FA=RWX     47
                                         FA=RWX   EQU    /FA=RWX/FA=RWX                                          FA=RWX     48
                                                  ENDX                                                           FA=RWX     49
                                         RWX      SPACE  4                                                       FEAT126C  241
                                                  ENTRY  FA=RWX                                                  FEAT126C  242
                                                  CTEXT  FA=WTC - WRITE CODED LINE, -C- FORMAT                   FA=WTC      2
                                         WTC      SPACE  4                                                       FA=WTC      3
                                                  IF     -DEF,QUAL$,1                                            FA=WTC      4
                                                  QUAL   FA=WTC                                                  FA=WTC      5
                                                                                                                 FA=WTC      6
                                                                                                                 FA=WTC      7
                                        **        FA=WTC - WRITE CODED LINE TO FILE, IN -C- FORMAT.              FA=WTC      8
                                        *                                                                        FA=WTC      9
                                        *                *FA=WTC* PARALLELS ITS KRONOS MODEL, *COMCWTC*.         FA=WTC     10
                                        *         FOR EFFICIENCY, LINE LENGTH IN WORDS MAY BE PROVIDED IN (B7)   FA=WTC     11
                                        *         ON ENTRY.  THIS WILL AVOID A SCAN FOR AN END-OF-LINE ZERO      FA=WTC     12
                                        *         BYTE.  IF LENGTH IS NOT PROVIDED, (B7) MUST CONTAIN ZERO.      FA=WTC     13
                                        *                                                                        FA=WTC     14
                                        *                                                                        FA=WTC     15
                                        *         ENTRY  (X2) = FIT ADDRESS                                      FA=WTC     16
                                        *                (B1) = 1                                                FA=WTC     17
                                        *                (B6) = LINE ADDRESS                                     FA=WTC     18
                                        *                (B7) = LINE LENGTH IN WORDS, OR ZERO - SEE ABOVE        FA=WTC     19
                                        *                                                                        FA=WTC     20
                                        *         EXIT   (X2) = FIT ADDRESS                                      FA=WTC     21
                                        *                (B1) = 1                                                FA=WTC     22
                                        *                                                                        FA=WTC     23
                                        *         USES   X - 1, 3, 4, 6, 7                                       FA=WTC     24
                                        *                A - 1, 4                                                FA=WTC     25
                                        *                B - 2, 7                                                FA=WTC     26
                                        *                                                                        FA=WTC     27
                                        *         CALLS  PUT                                                     FA=WTC     28
                                                                                                                 FA=WTC     29
                                                                                                                 FA=WTC     30
                                         FA=WTC   JP     *+4S15      ** ENTRY/EXIT **                            FA=WTC     31
                                                                                                                 FA=WTC     32
                                                  IFNE   TEST,0,1                                                FA=WTC     33
                                                  LT     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB            FA=WTC     34
                                                                                                                 FA=WTC     35
                                        *         DETERMINE LINE LENGTH (WORDS).                                 FA=WTC     36
                                                                                                                 FA=WTC     37
                                                  GT     B7,B0,WTC3  IF CALLER PROVIDED LENGTH                   FA=WTC     38
                                                  SA1    B6          (X1) = FIRST WORD OF LINE                   FA=WTC     39
                                                  MX6    -12D                                                    FA=WTC     40
                                         WTC2     BX7    -X6*X1      EXTRACT EOL BYTE FIELD                      FA=WTC     41
                                                  SA1    A1+B1                                                   FA=WTC     42
                                                  NZ     X7,WTC2     IF NOT END-OF-LINE                          FA=WTC     43
                                                  SB7    A1-B6       (B7) = LINE LENGTH (WORDS)                  FA=WTC     44
                                                                                                                 FA=WTC     45
                                        *         DETERMINE LINE LENGTH (CHARACTERS).                            FA=WTC     46
                                                                                                                 FA=WTC     47
                                         WTC3     SB2    B7-B1                                                   FA=WTC     48
                                                  SX6    B7                                                      FA=WTC     49
                                                  SA1    B6+B2       (X1) = LAST WORD OF LINE                    FA=WTC     50
                                                  IX7    X6+X6                                                   FA=WTC     51
                                                  LX6    3                                                       FA=WTC     52
                                                  SA4    WTCA        (X4) = CHARACTER BYTE MASK                  FA=WTC     53
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    65
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                                  IX7    X6+X7       (X7) = LINE LENGTH (CHARACTERS)             FA=WTC     54
                                                                                                                 FA=WTC     55
                                        *         LOCATE AND COUNT LINE TERMINATING ZERO BYTES.  ADJUST LINE     FA=WTC     56
                                        *         LENGTH (IN CHARACTERS) ACCORDINGLY.                            FA=WTC     57
                                                                                                                 FA=WTC     58
                                                  CX6    X1          MINUS ZERO PROTECT                          FA=WTC     59
                                                  MX3    -1                                                      FA=WTC     60
                                                  NZ     X6,WTC4     IF LAST WORD NOT NULL                       FA=WTC     61
                                                  SA1    A1-1        (X1) = LAST NON-NULL WORD OF LINE           FA=WTC     62
                                                  SX7    X7-10D                                                  FA=WTC     63
                                         WTC4     IX6    X1+X3       BORROW PROPAGATES LEFT THRU ALL ZERO BYTES  FA=WTC     64
                                                  NO                                                             FA=WTC     65
                                                  BX1    -X1*X6                                                  FA=WTC     66
                                                  SX3    B6          (X3) = LINE ADDRESS                         FA=WTC     67
                                                  BX6    X4*X1       RETAIN *40* IN EACH NULL CHAR BYTE POSITION FA=WTC     68
                                                  NO                                                             FA=WTC     69
                                                  CX1    X6          (X1) = NR OF NULL CHARACTERS                FA=WTC     70
                                                  IX4    X7-X1       (X4) = LINE LENGTH (NON-NULL CHARACTERS)    FA=WTC     71
                                                  PUT    X2,X3,X4                                                FA=WTC     72
                                                  JP     FA=WTC      EXIT                                        FA=WTC     73
                                                                                                                 FA=WTC     74
                                                                                                                 FA=WTC     75
                                                                                                                 FA=WTC     76
                                         WTCA     DATA   40404040404040404040B                                   FA=WTC     77
                                                                                                                 FA=WTC     78
                                                                                                                 FA=WTC     79
                                                  IF     -DEF,QUAL$,2                                            FA=WTC     80
                                                  QUAL   *                                                       FA=WTC     81
                                         FA=WTC   EQU    /FA=WTC/FA=WTC                                          FA=WTC     82
                                                  ENDX                                                           FA=WTC     83
                                         WTC      SPACE  4                                                       FEAT126C  243
                                                  ENTRY  FA=WTC                                                  FEAT126C  244
                                                  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
                                                                                                                 FEAT126CA   4
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    66
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                         FA=WTWA  BSS    1           STORAGE FOR (X5)                            FEAT126CA   5
                                         FA=WTWB  BSS    1           STORAGE FOR (A5)                            FEAT126CA   6
                                                                                                                 FA=WTW     26
                                                                                                                 FA=WTW     27
                                         FA=WTW   JP     *+4S15      ** ENTRY/EXIT **                            FA=WTW     28
                                                                                                                 FA=WTW     29
                                                  IFNE   TEST,0,1                                                FA=WTW     30
                                                  LT     B7,B0,*+4S15  IF LENGTH ERROR, ABORT JOB                FA=WTW     31
                                                                                                                 FA=WTW     32
                                                  ZR     B7,FA=WTW   IF ZERO LENGTH WRITE                        FA=WTW     33
                                         WTW2     SA3    A2+I.IN     (X3) = HOLDING BUFFER -IN- POINTER          FA=WTW     34
                                                  SA4    A2+I.LIMIT  (X4) = HOLDING BUFFER -LIMIT- POINTER       FA=WTW     35
                                                  SX6    X3+B7       UPDATED -IN-                                FA=WTW     36
                                                  IX1    X6-X4       DATA LENGTH .MI. EMPTY BUFFER SPACE         FA=WTW     37
                                                  MI     X1,WTW4     IF DATA WILL NOT OVERFLOW BUFFER            FA=WTW     38
                                                                                                                 FA=WTW     39
                                        *         FILL HOLDING BUFFER.  CALL RECORD MANAGER TO WRITE IT TO FILE. FA=WTW     40
                                                                                                                 FA=WTW     41
                                                  MX6    1                                                       FA=WTW     42
                                                  SB2    A2          (B2) = PSEUDO-FET ADDRESS                   FA=WTW     43
                                                  LX6    -59D+58D                                                FA=WTW     44
                                                  SB3    X1          (B3) = LENGTH OF EXCESS DATA                FA=WTW     45
                                                  BX6    X2+X6                                                   FA=WTW     46
                                                  IX1    X4-X3                                                   FA=WTW     47
                                                  SX2    B6                                                      FA=WTW     48
                                                  SA6    A2          FILE SPILLED FLAG .ON.                      FA=WTW     49
                                                  SB6    B6+X1       (B6) = FWA EXCESS DATA                      FA=WTW     50
                                                  ZR     X1,WTW3     IF ZERO LENGTH MOVE                         FA=WTW     51
                                                  MOVE   X1,X2,X3                                                FA=WTW     52
                                         WTW3     SA2    B2          (X2) = FILE CONTROL WORD                    FEAT126C   28
                                                                                                                 FEAT126CA   7
                                        *         NOTE,  ***  COLOSSAL KLUGE  ***.                               FEAT126CA   8
                                        *                                                                        FEAT126CA   9
                                        *         A5 AND X5 SAVED FOR 7RM *FETCH* MACRO. THIS CODE IS TO         FEAT126CA  10
                                        *         BE REMOVED AT THE EARLIEST OPPORTUNITY TO BE SUBSTITUTED       FEAT126CA  11
                                        *         BY A MORE *CHIC* METHOD.                                       FEAT126CA  12
                                                                                                                 FEAT126CA  13
                                                  BX6    X5                                                      FEAT126CA  14
                                                  SA6    FA=WTWA     SAVE (X5)                                   FEAT126CA  15
                                                  SX6    A5                                                      FEAT126CA  16
                                                  SA6    FA=WTWB     SAVE (A5)                                   FEAT126CA  17
                                                                                                                 FEAT126CA  18
                                                  FETCH  X2,RT,X4,X1,X3,X6                                       FEAT126C   29
                                                                                                                 FEAT126CA  19
                                                  SA3    FA=WTWB                                                 FEAT126CA  20
                                                  SA5    X3          RESTORE (A5)                                FEAT126CA  21
                                                  SA3    FA=WTWA                                                 FEAT126CA  22
                                                  BX5    X3          RESTORE (X5)                                FEAT126CA  23
                                                                                                                 FEAT126CA  24
                                        *         END OF KLUGE.                                                  FEAT126CA  25
                                                                                                                 FEAT126CA  26
                                                  SA3    B2+I.LIMIT  (X3) = -LIMIT-                              FEAT126C   30
                                                  SA1    B2+B1       (X1) = -FIRST-                              FA=WTW     54
                                                  IX3    X3-X1       (X3) = HOLDING BUFFER LENGTH                FA=WTW     56
                                                  BX6    X1                                                      FA=WTW     57
                                                  SA6    A1+B1       RESET -IN- = -FIRST-                        FA=WTW     58
                                                  SB7    X4-#ST#                                                 FEAT126C   31
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    67
        FA=NPG - EJECT AND TITLE NEW PAGE 
  
                                                  ZR     B7,WTW3A    IF S TYPE RECORD                            FEAT126C   32
                                                  PUTW   X2,X1,X3    WRITE HOLDING BUFFER TO FILE                FA=WTW     59
                                                  SB7    B3          (B7) = LENGTH OF UNTRANSFERRED DATA         FA=WTW     60
                                                  JP     WTW2        CONTINUE FILLING HOLDING BUFFER             FA=WTW     61
                                                                                                                 FA=WTW     62
                                         WTW3A    PUTWP  X2,X1,X3                                                FEAT126C   33
                                                  SB7    B3          (B7) = LENGTH OF UNTRANSFERRED DATA         FEAT126C   34
                                                  JP     WTW2        CONTINUE FILLING HOLDING BUFFER             FEAT126C   35
                                                                                                                 FEAT126C   36
                                        *         MOVE DATA TO HOLDING BUFFER AND EXIT.                          FA=WTW     63
                                                                                                                 FA=WTW     64
                                         WTW4     SB2    A2          TEMP SAVE PSEUDO-FET ADDRESS                FA=WTW     65
                                                  SX1    B7          WSA LENGTH                                  FA=WTW     66
                                                  SX2    B6          WSA ADDRESS                                 FA=WTW     67
                                                  SA6    A3          UPDATE -IN-                                 FA=WTW     68
                                                  MOVE   X1,X2,X3                                                FA=WTW     69
                                                  SA2    B2          RESTORE (A2), (X2) FOR EXIT                 FA=WTW     70
                                                  JP     FA=WTW      EXIT                                        FA=WTW     71
                                                                                                                 FA=WTW     72
                                                                                                                 FA=WTW     73
                                                  IF     -DEF,QUAL$,2                                            FA=WTW     74
                                                  QUAL   *                                                       FA=WTW     75
                                         FA=WTW   EQU    /FA=WTW/FA=WTW                                          FA=WTW     76
                                                  ENDX                                                           FA=WTW     77
                                         WTW      SPACE  4                                                       FEAT126C  245
                                                  ENTRY  FA=WTW                                                  FEAT126C  246
                                                  SPACE  4                                                       LSTPRO    889
                                         #RM      ENDIF                                                          LSTPRO    890
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    68
        FA=SET - SET FILE TABLES
  
          3742                                    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
          3742  0200403742 +             FA=SET   JP     *+4S15      ** ENTRY/EXIT **                            FA=SET     35
          3743  53120                             SA1    X2          (X1) = FET WORD 1                           FA=SET     36
                     20173                        LX1    59-0                                                    FA=SET     37
                          0331003745 +            MI     X1,SET2     IF FILE QUIET                               FA=SET     38
          3744  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
          3745  5212000005               SET2     SA1    X2+I.CBSET                                              FA=SET     44
                          77323                   SX3    B2-B3                                                   FA=SET     45
                               21373              AX3    59D                                                     FA=SET     46
          3746  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
          3747  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
          3750  36773                             IX7    X7+X3       (X7) = BUFFER LWA+1                         FA=SET     55
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    69
        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
          3751  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
          3752  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
          3753  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
          3754  54771                             SA7    A7+B1       CBSET                                       FA=SET     72
                     0200003742 +                 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       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    70
        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                                            FEAT126C   26
                                                  SX7    B3-B2       (X7) = HOLDING BUFFER LENGTH (WORDS)        FA=SET    141
                                                  IX6    X7+X7                                                   FA=SET    142
                                                  LX7    3                                                       FA=SET    143
                                                  IX6    X6+X7       (X6) = LENGTH (CHARACTERS)                  FA=SET    144
                                                  STORE  X2,PTL=X6,X1                                            FEAT126C   27
                                                  JP     FA=SET      EXIT                                        FA=SET    148
                                                                                                                 FA=SET    149
                                         SET3     MX1    0           DUMMY LENGTH = 0 TO FORCE FWA = LWA+1       FA=SET    150
                                                  RJ     SAR                                                     FA=SET    151
                                                  JP     FA=SET      EXIT                                        FA=SET    152
                                         SAR      SPACE  4,8                                                     FA=SET    153
                                        **        SAR - SET ADDRESSES IN REGISTERS.                              FA=SET    154
                                        *                                                                        FA=SET    155
                                        *                                                                        FA=SET    156
                                        *         ENTRY  (X1) = LEN * 1S18                                       FA=SET    157
                                        *                (B2) = FWA OR 0                                         FA=SET    158
                                        *                (B3) = 0 OR LWA+1                                       FA=SET    159
                                        *                (B4) = +1 IF FWA-UP MODE AND (B2) = FWA                 FA=SET    160
                                        *                     = -1 IF LWA-DOWN MODE AND (B3) = LWA+1             FA=SET    161
                                        *                                                                        FA=SET    162
                                        *         EXIT   (X1) = LEN * 1S18  (LOWER 18 BITS CLEAR)                FA=SET    163
                                        *                (X6) = FWA                                              FA=SET    164
                                        *                (B2) = FWA                                              FA=SET    165
                                        *                (B3) = LWA+1                                            FA=SET    166
                                        *                                                                        FA=SET    167
                                        *         USES   X - 1, 6                                                FA=SET    168
                                        *                A - NONE                                                FA=SET    169
                                        *                B - 2, 3                                                FA=SET    170
                                        *                                                                        FA=SET    171
                                        *         CALLS  NONE                                                    FA=SET    172
                                                                                                                 FA=SET    173
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    71
        FA=SET - SET FILE TABLES                                      SET                 FA=SET
  
                                                                                                                 FA=SET    174
                                         SAR2     BX6    -X1         (X6) = - BUFFER LENGTH                      FA=SET    175
                                                  LX1    18D                                                     FA=SET    176
                                                  SB2    X6+B3       (B2) = BUFFER FWA                           FA=SET    177
                                                  SX6    X6+B3                                                   FA=SET    178
                                                                                                                 FA=SET    179
                                         SAR      JP     *+4S15      ** ENTRY/EXIT **                            FA=SET    180
                                                  AX1    18D                                                     FA=SET    181
                                                  MI     B4,SAR2     IF LWA-DOWN MODE                            FA=SET    182
                                                  SB3    X1+B2       (B3) = BUFFER LWA+1                         FA=SET    183
                                                  LX1    18D                                                     FA=SET    184
                                                  SX6    B2                                                      FA=SET    185
                                                  EQ     SAR         EXIT                                        FA=SET    186
                                                  SPACE  4                                                       FA=SET    187
                                         #RM      ENDIF                                                          FA=SET    188
                                                                                                                 FA=SET    189
                                                                                                                 FA=SET    190
                                                  IF     -DEF,QUAL$,2                                            FA=SET    191
                                                  QUAL   *                                                       FA=SET    192
                                3742 +   FA=SET   EQU    /FA=SET/FA=SET                                          FA=SET    193
                                                  ENDX                                                           FA=SET    194
  
  
  
  
                                                  ENTRY  FA=SET                                                  LSTPRO    893
  
  
  
  
                                        **        MPP - MAINTAIN PAGE PARITY.                                    LSTPRO    895
                                        *                                                                        LSTPRO    896
                                        *         ENTRY  (B1) = 1                                                LSTPRO    897
                                        *                                                                        LSTPRO    898
                                        *         EXIT   PAGE EJECTED IF NECESSARY TO MAINTAIN EVEN PARITY.      LSTPRO    899
                                        *                (B1) = 1                                                LSTPRO    900
                                        *                                                                        LSTPRO    901
                                        *         USES   X - 1, 2, 3, 6, 7                                       LSTPRO    902
                                        *                A - 1, 2, 3, 6                                          LSTPRO    903
                                        *                B - NONE.                                               LSTPRO    904
                                        *                                                                        LSTPRO    905
                                        *         CALLS  WRITEC                                                  LSTPRO    906
                                                                                                                 LSTPRO    907
                                                                                                                 LSTPRO    908
          3755  0400403755 +             MPP      ENTRY. **          ** ENTRY/EXIT **                            LSTPRO    909
          3756  5150000000 X                      SA5    =XCP.PAGE                                               FCCA410    37
                          5110000000 X            SA1    =XCP.PAGE                                               LSTPRO    910
          3757  5120000000 X                      SA2    =XCP.LSTF                                               LSTPRO    911
                          5130000000 X            SA3    =XCP.BLF                                                LSTPRO    912
          3760  11621                             BX6    X2*X1                                                   LSTPRO    913
                     11736                        BX7    X3*X6       (X7) = 1 IF EJECT NEEDED, = 0 IF NOT        LSTPRO    914
                          36617                   IX6    X1+X7                                                   LSTPRO    915
          3761  0326003765 +                      PL     X6,MPP2     IF PAGE PROPAGATION SELECTED (P OPTION)     LSTPRO    916
                          20501                   LX5    1                                                       FCCA473    65
          3762  0325003764 +                      PL     X5,MPP1     IF CP.PAGE IS NOT SET                       FCCA473    66
                          43602                   MX6    2                                                       FCCA473    67
          3763  0400003765 +                      EQ     MPP2                                                    FCCA473    68
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    72
        FA=SET - SET FILE TABLES                                      MPP 
  
          3764  43601                    MPP1     MX6    1                                                       FCCA473    69
          3765  54610                    MPP2     SA6    A1          UPDATE OR RESET PAGE NUMBER                 LSTPRO    918
                     0307003755 +                 ZR     X7,MPP      IF (EVEN PAGE COUNT) OR (SHORT/NO LIST)     LSTPRO    919
          3766  6160004765 +                      WRITEC F.OUT,(=1C1),1    EJECT PAGE TO MAINTAIN EVEN PARITY    LSTPRO    920
          3770  0400003755 +                      EQ     MPP         EXIT                                        LSTPRO    921
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    73
        OUTPUT * USE BLKNAM * TO -COMPS-                              OUTUSE
  
                                        **        OUTUSE - OUTPUT * USE BLKNAM * TO -COMPS-.                     LSTPRO    923
                                        *                                                                        LSTPRO    924
                                        *         ENTRY  (X6) = ADDRESS OF NEW BLOCK NAME (IN TABLE BELOW)       LSTPRO    925
                                        *                (C.BLOCK) = ADDRESS OF CURRENT BLOCK NAME               LSTPRO    926
                                        *                                                                        LSTPRO    927
                                        *         EXIT   *USE* WRITTEN, IF DIFFERENT FROM CURRENT BLOCK.         LSTPRO    928
                                        *                (B1) = 1                                                LSTPRO    929
                                        *                (B5) = 1                                                LSTPRO    930
                                        *                (C.BLOCK) = ADDRESS OF NEW BLOCK NAME                   LSTPRO    931
                                        *                                                                        LSTPRO    932
                                        *         USES   X - 1, 2, 3, 6, 7                                       LSTPRO    933
                                        *                A - 1, 2, 3, 6, 7                                       LSTPRO    934
                                        *                B - 1, 5                                                LSTPRO    935
                                        *                                                                        LSTPRO    936
                                        *         CALLS  WRITEC                                                  LSTPRO    937
                                                                                                                 LSTPRO    938
                                                                                                                 LSTPRO    939
          3771  0400403771 +             OUTUSE   ENTRY. **          ** ENTRY/EXIT **                            LSTPRO    940
          3772  5110004001 +                      SA1    C.BLOCK     (X1) = ADDRESS OF CURRENT BLOCK NAME        LSTPRO    941
                          6110000001              SB1    1                                                       LSTPRO    942
          3773  54211                             SA2    A1+B1       (X2) = *  USE XXXX*                         LSTPRO    943
                     37761                        IX7    X6-X1                                                   LSTPRO    944
                          53360                   SA3    X6          (X3) = NEW BLOCK NAME                       LSTPRO    945
                               43144              MX1    6*6                                                     LSTPRO    946
          3774  0307003771 +                      ZR     X7,OUTUSE   IF NEW NAME = CURRENT NAME, EXIT            LSTPRO    947
                                                                                                                 LSTPRO    948
                                        *         ASSEMBLE * USE NEWBLOK * AND WRITE TO -COMPS-.                 LSTPRO    949
                                                                                                                 LSTPRO    950
                          11212                   BX2    X1*X2       REMOVE OLD NAME FROM *USE*                  LSTPRO    951
                               54610              SA6    A1          NEW NAME ADDRESS TO (C.BLOCK)               LSTPRO    952
          3775  11713                             BX7    X1*X3                                                   LSTPRO    953
                     15131                        BX1    -X1*X3                                                  LSTPRO    954
                          54721                   SA7    A2+B1                                                   LSTPRO    955
                               36621              IX6    X2+X1                                                   LSTPRO    956
          3776  54620                             SA6    A2                                                      LSTPRO    957
                     64620                        WRITEC =XF.CMPS,A2,2     *  USE BLKNAM* TO -COMPS-             LSTPRO    958
          4000  6150000001                        SB5    1                                                       LSTPRO    959
                          0400003771 +            EQ     OUTUSE      EXIT                                        LSTPRO    960
                                                                                                                 LSTPRO    961
                                                                                                                 LSTPRO    962
                                                                                                                 LSTPRO    963
          4001  00000000000000000000     C.BLOCK  ENTRY. 0           ADDRESS OF CURRENT BLOCK NAME               LSTPRO    964
          4002  55552523055502141316              DATA   12C  USE BLKNAM   (POSITIONALLY DEPENDENT, SEE CODE)    LSTPRO    965
                                                                                                                 LSTPRO    966
                                                                                                                 LSTPRO    967
                                                                                                                 LSTPRO    968
                                        **        BLOCK - FORM BLOCK NAME TABLE ENTRY.                           LSTPRO    969
                                        *                                                                        LSTPRO    970
                                         BLOCK    MACRO  BLKNAM                                                  LSTPRO    971
                                         BNAM     MICRO  1,6, BLKNAM                                             LSTPRO    972
                                                  ENTRY  U"BNAM"                                                 LSTPRO    973
                                         FIRST4   MICRO  1,4, BLKNAM                                             LSTPRO    974
                                         REST     MICRO  5,, BLKNAM                                              LSTPRO    975
                                         U"BNAM"  VFD    36/0L"REST",24/4L"FIRST4"                               LSTPRO    976
                                         BLOCK    ENDM                                                           LSTPRO    977
                                                                                                                 LSTPRO    978
                                                                                                                 LSTPRO    979
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    74
        OUTPUT * USE BLKNAM * TO -COMPS-                              OUTUSE
  
                                                                                                                 LSTPRO    980
                                        **        BLOCK NAME TABLE.                                              LSTPRO    981
                                        *                                                                        LSTPRO    982
          4004  24570000000023240122              BLOCK  START.                                                  LSTPRO    983
          4005  11155700000026012204              BLOCK  VARDIM.                                                 LSTPRO    984
          4006  31570000000005162422              BLOCK  ENTRY.                                                  LSTPRO    985
          4007  57000000000003170405              BLOCK  CODE.                                                   LSTPRO    986
          4010  57000000000004012401              BLOCK  DATA.                                                   LSTPRO    987
          4011  57570000000004012401              BLOCK  DATA..                                                  LSTPRO    988
          4012  00000000000010171457              BLOCK  HOL.                                                    LSTPRO    989
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    75
        REPRIEVE PROCESSOR                                            RPV 
  
                                        **        RPV - REPRIEVE PROCESSOR.                                      LSTPRO    991
                                        *                                                                        LSTPRO    992
                                        *         IF COMPILATION IS ABORTED DUE TO COMPILER ERROR, *RPV* GAINS   LSTPRO    993
                                        *         CONTROL TO FLUSH THE OUTPUT BUFFER AND POST DAYFILE MESSAGES   LSTPRO    994
                                        *         THAT IDENTIFY THE PROGRAM UNIT BEING COMPILED AND WHERE THE    LSTPRO    995
                                        *         ERROR OCCURRED.  IF THE COMPILER HAS BEEN ASSEMBLED IN TEST    LSTPRO    996
                                        *         MODE, ALL FILES IN AN OUTPUT MODE ARE FLUSHED.  FINALLY, THE   LSTPRO    997
                                        *         ORIGINAL ERROR CONDITION IS RESTORED TO PERMIT NORMAL *EXIT*   LSTPRO    998
                                        *         CONDITION PROCESSING.                                          LSTPRO    999
                                        *                                                                        LSTPRO   1000
                                        *         ENTRY  NO REQUIREMENTS.                                        LSTPRO   1001
                                        *                                                                        LSTPRO   1002
                                        *         EXIT   MESSAGES POSTED AND BUFFERS FLUSHED.  REINSTATES THE    LSTPRO   1003
                                        *                ERROR CONDITION AND RETURNS CONTROL TO THE OPERATING    LSTPRO   1004
                                        *                SYSTEM.                                                 LSTPRO   1005
                                        *                                                                        LSTPRO   1006
                                        *         USES   X - ALL                                                 LSTPRO   1007
                                        *                A - 1, 2, 3, 5, 6, 7                                    LSTPRO   1008
                                        *                B - 1, 2                                                LSTPRO   1009
                                        *                                                                        LSTPRO   1010
                                        *         CALLS  CDD, SYSTEM (RPV), WRITER                               LSTPRO   1011
                                                                                                                 LSTPRO   1012
                                                                                                                 LSTPRO   1013
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1085
          4013  0000004101 +             XJP      VFD    12/0,18/LWARPV,30/0                                     LSTPRO   1015
                          0000000000
                                         #OS      ELSE                                                           LSTPRO   1016
                                         .T       IFEQ   TEST,0                                                  LSTPRO   1017
                                         XJP      VFD    12/0,18/LWARPV,6/0,24/05470000B                         LSTPRO   1018
                                         .T       ELSE                                                           LSTPRO   1019
                                         XJP      VFD    12/0,18/LWARPV,6/0,24/77770014B                         LSTPRO   1020
                                         .T       ENDIF                                                          LSTPRO   1021
                                         #OS      ENDIF                                                          LSTPRO   1022
                                                                                                                 LSTPRO   1023
                                                                                                                 LSTPRO   1024
          4014                    20              BSSZ   16          EXCHANGE PACKAGE AND RA+1                   LSTPRO   1025
                                                                                                                 LSTPRO   1026
          4034  6110000001                        SB1    1           **  REPRIEVE ENTRY POINT **                 LSTPRO   1027
                                                                                                                 LSTPRO   1028
                                         .T       IFEQ   TEST,0                                                  LSTPRO   1029
                                                                                                                 LSTPRO   1030
                          7110004123 +            MESSAGE   =XCOMPMSG,,RCL *COMPILING NNNNNNN*                   LSTPRO   1031
                                                                                                                 LSTPRO   1032
                                         .T       ELSE                                                           LSTPRO   1033
                                                                                                                 LSTPRO   1034
                                        *         SAVE CONTENTS OF ENTRY POINTS THAT *RPV* WILL USE.             LSTPRO   1035
                                                                                                                 LSTPRO   1036
                                                  SA1    CDD                                                     LSTPRO   1037
                                                  SA2    COD                                                     LSTPRO   1038
                                                  BX6    X1                                                      LSTPRO   1039
                                                  LX7    X2                                                      LSTPRO   1040
                                                  SA6    RPVE                                                    CP139FC   232
                                                  SA7    A6+B1                                                   LSTPRO   1042
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1086
                                                  SA1    =XSYS=                                                  LSTPRO   1044
                                                  SA2    =XWNB=                                                  LSTPRO   1045
                                                  SA3    =XMSG=                                                  LSTPRO   1046
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    76
        REPRIEVE PROCESSOR                                            RPV 
  
                                                  BX6    X1                                                      LSTPRO   1047
                                                  LX7    X2                                                      LSTPRO   1048
                                                  SA6    A7+B1                                                   LSTPRO   1049
                                                  SA7    A6+B1                                                   LSTPRO   1050
                                                  BX6    X3                                                      LSTPRO   1051
                                                  SA6    A7+B1                                                   LSTPRO   1052
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO   1053
                                                  SA1    CIO=                                                    LSTPRO   1054
                                                  BX6    X1                                                      LSTPRO   1055
                                                  SA6    A6+B1                                                   LSTPRO   1056
                                         #RM      ENDIF                                                          LSTPRO   1057
                                         #OS      ENDIF                                                          LSTPRO   1058
                                                                                                                 LSTPRO   1059
                                         .T       ENDIF                                                          LSTPRO   1060
                                                                                                                 LSTPRO   1061
          4037  5150004013 +                      SA5    XJP                                                     LSTPRO   1062
                          43053                   MX0    -17                                                     LSTPRO   1063
                               20530              LX5    24                                                      LSTPRO   1064
          4040  15150                             BX1    -X0*X5      EXTRACT P REGISTER                          LSTPRO   1065
                     63210                        SB2    X1                                                      LSTPRO   1066
                          0712004042 +            GT     B2,B1,RPV2  IF P-REGISTER NOT CLEARED                   LSTPRO   1067
          4041  5150000000                        SA5    RA.SSW                                                  LSTPRO   1068
                          20536                   LX5    59-47+18                                                LSTPRO   1069
                               15150              BX1    -X0*X5      EXTRACT P FROM RA+0                         LSTPRO   1070
          4042                           RPV2     BSS    0                                                       LSTPRO   1071
                                                                                                                 LSTPRO   1072
                                         .T       IFNE   TEST,0                                                  LSTPRO   1073
                                         #OS      IFEQ   .OS,2       IF SCOPE 2                                  FEAT126A 1087
                                                  BX7    X1                                                      LSTPRO   1075
                                                  SA7    ERRP=                                                   LSTPRO   1076
                                         #OS      ENDIF                                                          LSTPRO   1077
                                         .T       ENDIF                                                          LSTPRO   1078
                                                                                                                 LSTPRO   1079
          4042  6170004043 +                      SB7    RPV3        (B7) = RETURN ADDRESS                       LSTPRO   1080
                          0400004072 +            EQ     FRA=        FIND RELATIVE ADDRESS                       LSTPRO   1081
                                                                                                                 LSTPRO   1082
          4043  5160004107 +             RPV3     SA6    RPVC+1      ADDRESS AND ROUTINE NAME TO MSG TEXT        CP139FC   233
                          54761                   SA7    A6+B1                                                   LSTPRO   1084
                                                                                                                 LSTPRO   1085
                                        *         INDICATE LAST OVERLAY LOADED.                                  LSTPRO   1086
                                                                                                                 LSTPRO   1087
          4044  5110000100                        SA1    RA.ORG      (X1) = LOADER CALL PARAM LIST WORD 1        LSTPRO   1088
                          43066                   MX0    -6                                                      LSTPRO   1089
                               20106              LX1    6                                                       LSTPRO   1090
          4045  15610                             BX6    -X0*X1      PRIMARY LEVEL                               LSTPRO   1091
                     20106                        LX1    6                                                       LSTPRO   1092
                          15710                   BX7    -X0*X1      SECONDARY LEVEL                             LSTPRO   1093
                               20614              LX6    12                                                      LSTPRO   1094
          4046  63270                             SB2    X7          (B2) = SECONDARY OVERLAY LEVEL NUMBER       LSTPRO   1095
                     12767                        BX7    X6+X7                                                   LSTPRO   1096
                          5120004113 +            SA2    RPVD+2      * - (0,0)  *                                CP139FC   234
          4047  20722                             LX7    18                                                      LSTPRO   1098
                     36627                        IX6    X2+X7                                                   LSTPRO   1099
                          54620                   SA6    A2                                                      LSTPRO   1100
                                                                                                                 LSTPRO   1101
                                        *         INDICATE LAST SOURCE STATEMENT PROCESSED.  ISSUED ONLY IF      LSTPRO   1102
                                        *         (2,1), (2,2) OR (2,4) OVERLAY WAS LAST LOADED, SINCE VALID     LSTPRO   1103
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    77
        REPRIEVE PROCESSOR                                            RPV 
  
                                        *         LINE NUMBER INFORMATION IS NOT AVAILABLE AT OTHER TIMES.       LSTPRO   1104
                                                                                                                 LSTPRO   1105
          4050  7110000015                        SX1    15B         SHIFT TEST MASK FOR 1, 2 AND 4              LSTPRO   1106
                          20167                   LX1    58-3                                                    LSTPRO   1107
                               22121              LX1    B2                                                      LSTPRO   1108
          4051  0321004060 +                      PL     X1,RPV7     IF 2NDARY OVERLAY LEVEL NOT 1, 2 OR 4       LSTPRO   1109
                          66311                   SB3    B1+B1                                                   LSTPRO   1110
          4052  5110000037                        SA1    DUKE                                                    LSTPRO   1111
                          0523004054 +            NE     B2,B3,RPV6  IF NOT IN OVERLAY (1,2)                     LSTPRO   1112
                                                  IFNE   TEST,0,1                                                LSTPRO   1113
                                                  EQ     DMPTBL=                                                 LSTPRO   1114
                                                                                                                 LSTPRO   1115
          4053  5110004624 +             RPV5     SA1    LINENR                                                  LSTPRO   1116
                          73110                   SX1    X1                                                      LSTPRO   1117
          4054  43060                    RPV6     MX0    -12                                                     LSTPRO   1118
                     0100003350 +                 CALL   CDD                                                     LSTPRO   1119
          4055  11604                             BX6    X0*X4       CREATE 12-BIT ZERO BYTE MSG TERMINATOR      LSTPRO   1120
                     5160004105 +                 SA6    RPVB+3      LINE NR TO MESSAGE TEXT                     CP139FC   235
                                                                                                                 LSTPRO   1122
                                        *         ISSUE THE DAYFILE MESSAGES.                                    LSTPRO   1123
                                                                                                                 LSTPRO   1124
          4056  7110004102 +                      MESSAGE   RPVB,,RCL      * LAST STATEMENT BEGAN AT LINE NNNN*  CP139FC   236
          4060  7110004106 +             RPV7     MESSAGE   RPVC,,RCL      * ERROR AT XXXXXX IN YYYYYYY*         CP139FC   237
          4062  7110004111 +                      MESSAGE   RPVD,,RCL      * LAST OVERLAY LOADED - (P,S)*        CP139FC   238
                                                                                                                 LSTPRO   1128
                                        *         FLUSH FILE I/O BUFFERS (DIRECT CIO I/O ONLY).                  LSTPRO   1129
                                                                                                                 LSTPRO   1130
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO   1131
          4064  5110000000 X                      SA1    F.OUT                                                   LSTPRO   1132
                          76610                   SX6    B1                                                      LSTPRO   1133
                               12716              BX7    X1+X6                                                   LSTPRO   1134
          4065  54710                             SA7    A1          INSURE CIO COMPLETE BIT IS ON               LSTPRO   1135
                     74210                        WRITER A1,,RCL                                                 LSTPRO   1136
                                         .T       IFNE   TEST,0                                                  LSTPRO   1137
                                                  SX6    3           FLUSH COUNT - 1  (LGO, CMPS, RLST, RMAP)    LSTPRO   1138
                                         RPV8     SA2    =XFV.LGO+X6 (X2) = NEXT FILE FET ADDRESS                LSTPRO   1139
                                                  SA6    RPVF        TEMP SAVE VECTOR OFFSET                     LSTPRO   1140
                                                  ZR     X2,RPV9     IF FILE DESELECTED BY CONTROL CARD OPTION   LSTPRO   1141
                                                  SA1    X2          (X1) = FET WORD 1                           LSTPRO   1142
                                                  MX0    -6                                                      LSTPRO   1143
                                                  SX6    B1                                                      LSTPRO   1144
                                                  BX7    X1+X6                                                   LSTPRO   1145
                                                  SA3    RPVA        (X3) = SHIFT TEST MASK FOR CIO CODE         CP139FC   239
                                                  AX1    2                                                       LSTPRO   1147
                                                  BX0    -X0*X1      EXTRACT CIO CODE                            LSTPRO   1148
                                                  SB2    X0                                                      LSTPRO   1149
                                                  LX3    B2                                                      LSTPRO   1150
                                                  PL     X3,RPV9     IF LAST CIO OP NOT OPEN OR WRITE            LSTPRO   1151
                                                  SA7    A1          INSURE CIO COMPLETE BIT IS ON               LSTPRO   1152
                                                  WRITER A1,,RCL     FLUSH BUFFER                                LSTPRO   1153
                                         RPV9     SA1    RPVF                                                    LSTPRO   1154
                                                  SX6    X1-1        (X6) = NEXT FILE OFFSET IN VECTOR TABLE     LSTPRO   1155
                                                  PL     X6,RPV8     IF MORE FILES TO FLUSH                      LSTPRO   1156
                                         .T       ENDIF                                                          LSTPRO   1157
                                         #RM      ENDIF                                                          LSTPRO   1158
                                                                                                                 LSTPRO   1159
                                        *         RESTORE SAVED ENTRY POINT CONTENTS.                            LSTPRO   1160
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    78
        REPRIEVE PROCESSOR                                            RPV 
  
                                                                                                                 LSTPRO   1161
                                         .T       IFNE   TEST,0                                                  LSTPRO   1162
                                                  SA1    RPVE                                                    CP139FC   240
                                                  SA2    A1+B1                                                   LSTPRO   1164
                                                  BX6    X1                                                      LSTPRO   1165
                                                  LX7    X2                                                      LSTPRO   1166
                                                  SA6    CDD                                                     LSTPRO   1167
                                                  SA7    COD                                                     LSTPRO   1168
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1088
                                                  SA1    A2+2        (WILL RESTORE SYS= LATER)                   LSTPRO   1170
                                                  SA2    A1+B1                                                   LSTPRO   1171
                                                  BX6    X1                                                      LSTPRO   1172
                                                  LX7    X2                                                      LSTPRO   1173
                                                  SA6    =XWNB=                                                  LSTPRO   1174
                                                  SA7    =XMSG=                                                  LSTPRO   1175
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO   1176
                                                  SA1    A2+B1                                                   LSTPRO   1177
                                                  BX6    X1                                                      LSTPRO   1178
                                                  SA6    CIO=                                                    LSTPRO   1179
                                         #RM      ENDIF                                                          LSTPRO   1180
                                         #OS      ENDIF                                                          LSTPRO   1181
                                         .T       ENDIF                                                          LSTPRO   1182
                                                                                                                 LSTPRO   1183
                                        *         REINSTATE THE ERROR CONDITON.                                  LSTPRO   1184
                                                                                                                 LSTPRO   1185
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1089
          4067  76110                             SX1    B1                                                      LSTPRO   1187
                     20143                        LX1    35-0                                                    LSTPRO   1188
                          7160222026              SYSTEM RPV,,X1                                                 LSTPRO   1189
                                         .T       IFNE   TEST,0                                                  LSTPRO   1190
                                                  SA1    RPVE+2      (X1) = SAVED (SYS=)                         CP139FC   241
                                                  BX6    X1                                                      LSTPRO   1192
                                                  SA6    =XSYS=      RESTORE PREVIOUS CONTENTS                   LSTPRO   1193
                                         .T       ENDIF                                                          LSTPRO   1194
          4071  0400004071 +             +        EQ     *           WAIT FOR OP SYS TO PICK UP ERROR            LSTPRO   1195
                                         #OS      ELSE                                                           LSTPRO   1196
                                                                                                                 LSTPRO   1197
                                         .T       IFNE   TEST,0                                                  LSTPRO   1198
                                                  SA1    =XXJP                                                   FEAT155F  218
                                                  CALL   DXP=        DUMP EXCHANGE PACKAGE                       LSTPRO   1200
                                         .T       ENDIF                                                          LSTPRO   1201
                                                  ABORT              *** TEMPORARY UNTIL SCOPE 2.0 REPRIEVE      LSTPRO   1202
                                        *                            *** RESET METHOD IS AVAILABLE.              LSTPRO   1203
                                         #OS      ENDIF                                                          LSTPRO   1204
                                                                                                                 LSTPRO   1205
                                                                                                                 LSTPRO   1206
                                         .T       IFNE   TEST,0                                                  LSTPRO   1211
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              FEAT126A 1090
                                         RPVA     BSS    0                                                       CP139FC   242
                                                  ECHO   2,CIOCODE=(4B,14B,104B,120B,144B,160B)                  LSTPRO   1215
                                                  POS    60-CIOCODE_S-2                                          LSTPRO   1216
                                                  VFD    1/1                                                     LSTPRO   1217
                                                  POS    0                                                       CP139FC   243
                                                  BSS    0                                                       LSTPRO   1218
                                         #OS      ENDIF                                                          LSTPRO   1220
                                         .T       ENDIF                                                          LSTPRO   1234
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    79
        REPRIEVE PROCESSOR                                            FRA 
  
                                        **        FRA - FIND RELATIVE ADDRESS.                                   LSTPRO   1237
                                        *                                                                        LSTPRO   1238
                                        *                GIVEN AN ABSOLUTE ADDRESS, *FRA* FINDS THE ROUTINE      LSTPRO   1239
                                        *         NAME AND RELATIVE ADDRESS BY SEARCHING THE TABLES INSTALLED    LSTPRO   1240
                                        *         ORIGINALLY FOR *RPV* PROCESSING.                               LSTPRO   1241
                                        *                                                                        LSTPRO   1242
                                        *                *FRA* DOES NOT USE A RETURN JUMP CALLING SEQUENCE       LSTPRO   1243
                                        *         BECAUSE IT IS LOCATED IN CODE SPACE CHECKSUMMED BY *RPV*.      LSTPRO   1244
                                        *                                                                        LSTPRO   1245
                                        *                                                                        LSTPRO   1246
                                        *         ENTRY  (X1) = ADDRESS RELATIVE TO RA+0                         LSTPRO   1247
                                        *                (B7) = EXIT ADDRESS                                     LSTPRO   1248
                                        *                                                                        LSTPRO   1249
                                        *         EXIT   TO (B7), WITH ...                                       LSTPRO   1250
                                        *                (X4) = ADDRESS RELATIVE TO ROUTINE ORIGIN, H FORMAT     LSTPRO   1251
                                        *                (X6) = RELATIVE ADDRESS, DPC, *NNNNNN IN *              LSTPRO   1252
                                        *                (X7) = ROUTINE NAME, DPC, L FORMAT                      LSTPRO   1253
                                        *                                                                        LSTPRO   1254
                                        *         USES   X - 0, 1, 2, 3, 6, 7                                    LSTPRO   1255
                                        *                A - 2                                                   LSTPRO   1256
                                        *                B - 2, 3                                                LSTPRO   1257
                                        *                                                                        LSTPRO   1258
                                        *         CALLS  COD                                                     LSTPRO   1259
                                                                                                                 LSTPRO   1260
                                                                                                                 LSTPRO   1261
                                                  QUAL   FRA                                                     LSTPRO   1262
                                                                                                                 LSTPRO   1263
          4072  6130000006 X             FRA=     SB3    =XLWA2.0+1+LDR.NN                                       CP139FC   244
                          63210                   SB2    X1          (B2) = ADDRESS RELATIVE TO RA+0             LSTPRO   1265
                               56230              SA2    B3                                                      CP139FC   245
          4073  0623004074 +                      GE     B2,B3,FRA2  IF ADDRESS IN (2,N) OVERLAY                 CP139FC   246
                          5120000000 X            SA2    =XFWA2.0                                                LSTPRO   1272
                                                                                                                 LSTPRO   1275
                                        *         SEARCH ADDRESS TABLE.                                          LSTPRO   1276
                                                                                                                 LSTPRO   1277
          4074  10622                    FRA2     BX6    X2                                                      CP139FC   247
                     5022000001                   SA2    A2+1        NEXT TABLE ENTRY                            CP139FC   248
                               63320              SB3    X2                                                      CP139FC   249
          4075  0302004076 +                      ZR     X2,FRA3     IF END OF TABLE                             CP139FC   250
                          0623004074 +            GE     B2,B3,FRA2  IF ABS ADDR BEYOND CURRENT ENTRY            CP139FC   251
                                                                                                                 LSTPRO   1283
                                        *         EXTRACT ROUTINE NAME AND FORMAT RELATIVE ADDRESS.              LSTPRO   1284
                                                                                                                 LSTPRO   1285
          4076  43752                    FRA3     MX7    42                                                      CP139FC   252
                     73360                        SX3    X6          EXTRACT FWA                                 CP139FC   253
                          11076                   BX0    X7*X6       EXTRACT ROUTINE NAME                        CP139FC   254
                               37113              IX1    X1-X3       (X1) = ADDRESS RELATIVE TO ROUTINE ORIGIN   LSTPRO   1290
          4077  0100003357 +                      RJ     COD         CONVERT TO OCTAL DISPLAY CODE               LSTPRO   1291
          4100  20630                             LX6    24D                                                     LSTPRO   1292
                     7130004443                   SX3    2R  &2RIN                                               LSTPRO   1293
                               20306              LX3    6                                                       LSTPRO   1294
          4101  13663                             BX6    X6-X3       (X6) = RELATIVE ADDRESS, *NNNNNN IN *       LSTPRO   1295
                     22700                        LX7    X0          (X7) = ROUTINE NAME, L FORMAT               LSTPRO   1296
                          0277000000              JP     B7          EXIT ...                                    LSTPRO   1297
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    80
        REPRIEVE PROCESSOR
  
                                                  QUAL   *                                                       LSTPRO   1304
                                                                                                                 LSTPRO   1305
                                4072 +   FRA=     =      /FRA/FRA=                                               LSTPRO   1306
                                                  ENTRY  FRA=                                                    LSTPRO   1307
  
  
  
  
          4102                                    BSS    0                                                       CP139FC   256
                                4101 +   LWARPV   =      *-1         *** END OF CHECKSUMMED REPRIEVE CODE ***    CP139FC   257
  
  
  
  
          4102  55140123245523240124     RPVB     DIS    ,* LAST STATEMENT BEGAN AT LINE ........*               CP139FC   259
          4106  55052222172255012455     RPVC     DIS    ,* ERROR AT 000000 IN XXXXXXX*                          CP139FC   260
          4111  55140123245517260522     RPVD     DIS    ,* LAST OVERLAY LOADED - (0,0)*                         CP139FC   261
                                                                                                                 CP139FC   262
                                         .T       IFNE   TEST,0                                                  CP139FC   263
                                                                                                                 CP139FC   264
                                         RPVE     BSSZ   2           TO SAVE (CDD) AND (COD)                     CP139FC   265
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              CP139FC   266
                                                  BSSZ   3           TO SAVE (SYS=), (WNB=) AND (MSG=)           CP139FC   267
                                         #RM      IFEQ   CP#RM,0                                                 CP139FC   268
                                                  BSSZ   1           TO SAVE (CIO=)                              CP139FC   269
                                         RPVF     BSSZ   1           COUNT-1 OF FILES TO FLUSH                   CP139FC   270
                                         #RM      ENDIF                                                          CP139FC   271
                                         #OS      ELSE                                                           CP139FC   272
                                         ERRP=    ENTRY. 0           SAVE ERROR ADDRESS                          CP139FC   273
                                         #OS      ENDIF                                                          CP139FC   274
                                                                                                                 CP139FC   275
                                         .T       ENDIF                                                          CP139FC   276
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    81
        SET BLOCK OF MEMORY TO A GIVEN VALUE                          SETCORE 
  
                                        **        SETCORE - SET BLOCK OF MEMORY TO A GIVEN VALUE.                LSTPRO   1311
                                        *                                                                        LSTPRO   1312
                                        *                                                                        LSTPRO   1313
                                        *         ENTRY  (X1) = BLOCK LENGTH                                     LSTPRO   1314
                                        *                (X6) = VALUE TO SET                                     LSTPRO   1315
                                        *                (A6) = BLOCK FWA (WORD 1 ALREADY STORED)                LSTPRO   1316
                                        *                                                                        LSTPRO   1317
                                        *         EXIT   (X6) = UNCHANGED                                        LSTPRO   1318
                                        *                (X7) = (X6)                                             LSTPRO   1319
                                        *                (A6) = BLOCK LWA                                        LSTPRO   1320
                                        *                (B1) = 1                                                LSTPRO   1321
                                        *                                                                        LSTPRO   1322
                                        *         USES   X - 1, 2, 7                                             LSTPRO   1323
                                        *                A - 6, 7                                                LSTPRO   1324
                                        *                B - 1                                                   LSTPRO   1325
                                        *                                                                        LSTPRO   1326
                                        *         CALLS  NONE                                                    LSTPRO   1327
                                                                                                                 LSTPRO   1328
                                                                                                                 LSTPRO   1329
          4114  5076000001               SETC2    SA7    A6+1                                                    LSTPRO   1330
                          37112                   IX1    X1-X2                                                   LSTPRO   1331
                               54671              SA6    A7+B1                                                   LSTPRO   1332
          4115  0321004114 +                      PL     X1,SETC2    IF ALL OF BLOCK NOT SET                     LSTPRO   1333
                                                                                                                 LSTPRO   1334
          4116  0400404116 +             SETCORE  ENTRY. **          ** ENTRY/EXIT **                            LSTPRO   1335
                                                                                                                 LSTPRO   1336
                                         .T       IFNE   TEST,0                                                  LSTPRO   1337
                                                  SB1    X1                                                      LSTPRO   1338
                                                  LE     B1,B0,*+1S17      IF LENGTH ERROR, ABORT JOB            LSTPRO   1339
                                         .T       ENDIF                                                          LSTPRO   1340
                                                                                                                 LSTPRO   1341
          4117  7120000001                        SX2    1                                                       LSTPRO   1342
                          46000                   NO                                                             LSTPRO   1343
                               15721              BX7    -X1*X2      EXTRACT COMPLEMENT OF LSB                   LSTPRO   1344
          4120  63170                             SB1    X7          (B1) = 1 IF LENGTH EVEN, = 0 IF ODD         LSTPRO   1345
                     7211777774                   SX1    X1-3        DECREMENT LENGTH                            LSTPRO   1346
                               54661              SA6    A6+B1       SET 2ND WORD IF LENGTH WAS EVEN             LSTPRO   1347
          4121  20201                             LX2    1           (X2) = 2                                    LSTPRO   1348
                     6110000001                   SB1    1                                                       LSTPRO   1349
                               10766              BX7    X6                                                      LSTPRO   1350
          4122  0321004114 +                      PL     X1,SETC2    IF ALL OF BLOCK NOT SET                     LSTPRO   1351
                          0400004116 +            EQ     SETCORE     EXIT                                        LSTPRO   1352
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    82
        STORAGE DECLARATIONS
  
                                        *         *COMPILING ...* MESSAGE FOR B-DISPLAY / PROGRAM UNIT NAME      FEAT155H  163
                                        *                                                                        FEAT155H  164
          4123  03171520111411160755     COMPMSG  ENTRY. 10HCOMPILING                                            FEAT155H  165
          4124  00000000000000000000     PROGNAM  ENTRY. 0           PROGRAM UNIT NAME, 42/7H_NNN....,18/0       FEAT155H  166
                                                                                                                 FEAT155H  167
                                        *         WORKING COPY OF LISTING CONTROL FLAGS                          FEAT155H  168
                                                                                                                 FEAT155H  169
          4125                           LSTWRKG  BSS    0                                                       FEAT155H  170
                                                  ENTRY  LSTWRKG                                                 FEAT155H  171
          4125  00000000000000000000     ANSI     ENTRY.                                                         FEAT155H  172
          4126  00000000000000000000     IEFLG    ENTRY.                                                         FEAT155H  173
          4127  00000000000000000000     LOP=M    ENTRY.                                                         FEAT155H  174
          4130  00000000000000000000     LOP=O    ENTRY.                                                         FEAT155H  175
          4131  00000000000000000000     LOP=R    ENTRY.                                                         FEAT155H  176
                                         LOP=W    EQENT  IEFLG                                                   FEAT155H  177
                                         LOP=X    EQENT  ANSI                                                    FEAT155H  178
                                         OLIST    EQENT  LOP=O                                                   FEAT155H  179
                                         RSELECT  EQENT  LOP=R                                                   FEAT155H  180
          4132  00000000000000000000     R=FLAG   ENTRY.                                                         FEAT155H  181
                                                                                                                 FEAT155H  182
                                        *         SUBTITLE LINE                                                  FEAT155H  183
                                                                                                                 FEAT155H  184
          4133  55550000000000000000     O.STITL  ENTRY. 2L                                                      FEAT155H  185
          4134  55555555555555555555              DIS    6,                                                      FEAT155H  186
                                        *         SPACE FOR THE ERROR TABLE                                      LSTPRO   1354
                                        *                                                                        LSTPRO   1355
                                                  USE    /TABLES/                                                LSTPRO   1356
                                 312     SIZE     EQU    ERRMAX*2+2        SIZE OF THE ERROR TABLE               LSTPRO   1357
             0                   312              BSS    SIZE              THE ERROR TABLE                       LSTPRO   1358
                                                  IFLT   SIZE,130,1                                              LSTPRO   1359
                                                  BSS    130-SIZE          THIS AREA IS ALSO USED BY JAMMER      LSTPRO   1360
                                        *                                  AND THE REFMAP AND THE THE ASSEMBLER  LSTPRO   1361
                                                  USE    *                                                       LSTPRO   1362
                                                                                                                 LSTPRO   1363
          4142  00000000000000000001     N.AP     ENTRY. 1           PASS 1 - NEXT AVAIL AP NUMBER               LSTPRO   1364
          4143  00000000000000000001     N.GL     ENTRY. 1           PASS 1 - NEXT GL NUMBER                     LSTPRO   1365
                                        *                            PASS 2 - NUMBER OF AP/GL"S                  LSTPRO   1366
                                                                                                                 LSTPRO   1367
                                        *         HASH TABLES FOR SYMBOL AND LABEL                               LSTPRO   1368
                                                                                                                 LSTPRO   1369
          4144  00000000000000000001     SYMORD   ENTRY.  1                LAST ORDINAL + 1                      LSTPRO   1370
                                4145 +   O.BATCH  =      *                 ** BEGIN BATCH CONTROL AREA **        LSTPRO   1371
          4145                   200     SLIST    BSSZ   128                                                     LSTPRO   1372
          4345                    40     LLIST    BSSZ   32                                                      LSTPRO   1373
                                                                                                                 LSTPRO   1374
          4405  00000000000000000000     N.LINES  ENTRY. 0                 NR UNFILLED LINES ON PAGE (BINARY)    LSTPRO   1375
                                                                                                                 LSTPRO   1376
          4406  00000000000000000000     N.COM    ENTRY.                   NUMBER OF COMMON BLOCKS               LSTPRO   1377
                                                                                                                 LSTPRO   1378
          4407  00000000000000000000     ORGTAB   ENTRY.                   42/7LNAME,18/LENGTH                   LSTPRO   1379
          4410                   177              BSSZ   M.NCB                                                   LSTPRO   1380
                                                                                                                 LSTPRO   1381
                                        *         THE FOLLOWING CELLS HOLD THE LENGTH OF LOCAL RELOCATION BASES  LSTPRO   1382
                                                                                                                 LSTPRO   1383
                                                  ENTRY  O.LBLK                                                  LSTPRO   1384
                                4607 +   O.LBLK   EQU    *                 FWA OF LOCAL BLOCK TABLE              LSTPRO   1385
          4607  00000000000000000000     START.   ENTRY.                   START.                                LSTPRO   1386
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    83
        STORAGE DECLARATIONS
  
          4610  00000000000000000000     VARDIM.  ENTRY.                   VARDIM.                               LSTPRO   1387
          4611  00000000000000000000     EPOINT.  ENTRY.                   ENTRY.                                LSTPRO   1388
          4612  00000000000000000000     CODE.    ENTRY.                   CODE.                                 LSTPRO   1389
          4613  00000000000000000000     DATA.    ENTRY.                   DATA.                                 LSTPRO   1390
          4614  00000000000000000000     DATA..   ENTRY.                   DATA..                                LSTPRO   1391
          4615  00000000000000000000     HOL.     ENTRY.                   HOL.                                  LSTPRO   1392
                                   7     N.LRB    EQU    *-O.LBLK          NUMBER OF LOCAL BLOCKS                LSTPRO   1393
          4616  00000000000000000000     SDATA.   ENTRY. 0                                                       LSTPRO   1394
                                                                                                                 LSTPRO   1395
                                        *         N.XX - NUMBER OF LOCATIONS TO ASSIGN TO XX.                    LSTPRO   1396
                                                                                                                 LSTPRO   1397
          4617  00000000000000000000     N.ST     ENTRY. 0           STATEMENT TEMPORARIES ( FUNCTION CALLS )    LSTPRO   1398
          4620  00000000000000000000     N.OT     ENTRY. 0           OPTIMIZING TEMPORARIES ( CODE GENERATOR )   LSTPRO   1399
          4621  00000000000000000000     N.DO     ENTRY. 0           DO TEMPORARIES ( INDEX FUNCTIONS )          LSTPRO   1400
          4622  00000000000000000000     N.VD     ENTRY. 0           VARDIM TEMPS ( VARIABLE DIMENSION CALC )    LSTPRO   1401
          4623  00000000000000000000     N.IT     ENTRY. 0           INTERMEDIATE TEMPS ( INVARIANT EXPRESSIONS  LSTPRO   1402
                                                                                                                 LSTPRO   1403
          4624  00000000000000000000     LINENR   ENTRY. 0           INITIAL LINE NUMBER OF STMT/SEQUENCE        LSTPRO   1404
                                        *                                  BEING PROCESSED ( PASS 1/2 ).         LSTPRO   1405
          4625  00000000000000000000     N.EXST   ENTRY. 0           N. EXECUTABLE STMTS / N. *BOS"S*            LSTPRO   1406
          4626  00000000000000000000     N.FILES  ENTRY.                   NUMBER OF FILES FOR A MAIN PROGRAM    LSTPRO   1407
          4627  00000000000000000000     N.EQUF   ENTRY.             NR OF EQUIVALENCED FILES                    FCC2064     5
          4630  00000000000000000000     IOAPLN   ENTRY.                   HOLDS I/O APLIST NUMBER               LSTPRO   1408
          4631  00000000000000000000     XFRNAME  ENTRY.                   XFER NAME OR 0                        LSTPRO   1409
          4632  00000000000000000000     FUNTYPE  ENTRY. 0                 0 OR NUM OF WORDS IN FUNCTION RESULT  LSTPRO   1410
          4633  00000000000000000000     N.FP     ENTRY.                   NUMBER OF FORMAL PARAMETERS           LSTPRO   1411
          4634  00000000000000000000     RETURNS  ENTRY. 0           "0 IF RETURNS S ON CALL PARAMETER LISTS     LSTPRO   1412
          4635  00000000000000000000     FSTEX    ENTRY.                   LINE NUMBER OF FIRST EXECUTABLE STMT  LSTPRO   1413
          4636  00000000000000000000     VARDIM   ENTRY.                   .NE. 0 IF F.P. S WITH VARIABLE DIMS   LSTPRO   1414
          4637  00000000000000000000     LEVEL    ENTRY.                   .NE. 0 IF LEVEL STATEMENTS APPEARED   LSTPRO   1415
          4640  00000000000000000000     LEVEL2   ENTRY. 0           .NZ. IF LCM-RESIDENT SYMBOLS DECLARED       FCC0504     6
          4641  00000000000000000000     N.TLAB   ENTRY.                   NUMBER OF LABELS BEING TRACED ( D OPT LSTPRO   1417
                                                                                                                 LSTPRO   1418
                                        *         LOOP INFORMATION TABLE USED BY "REFMAP"                        LSTPRO   1419
                                                                                                                 LSTPRO   1420
          4642  00000000000000000000     O.LOOP   ENTRY.                   FWA OF LOOP TABLE ( PASS 2 )          LSTPRO   1421
          4643  00000000000000000000     L.LOOP   ENTRY.                   LENGTH ( SET IN PASS 1 BY DOPROC )    LSTPRO   1422
                                                                                                                 LSTPRO   1423
                                        *         FLAGS ASSOCIATED WITH ERROR PROCESSING                         LSTPRO   1424
                                                                                                                 LSTPRO   1425
          4644  00000000000000000000     N.ERROR  ENTRY.                   NUMBER OF ERRORS                      LSTPRO   1426
          4645  00000000000000000000     N.FERR   ENTRY.                   NUMBER OF FATAL ERRORS                LSTPRO   1427
          4646  00000000000000000000     E.UDEFL  ENTRY.                   NON ZERO IF MISSING LABELS            LSTPRO   1428
          4647  00000000000000000000     P2NOGO   ENTRY. 0                 DEBUG-MODE OBJECT CODE CONTROL FLAG   FCC0220    12
                                        *                                    1S59 = SUPPRESS, 0 = GENERATE CODE. FCC0220    13
                                        *         (DURING PASS 1, SET IF ANY FATAL-TO-DEBUG-EXECUTION ERRORS     FCC0220    14
                                        *         OCCUR.  AT END OF PASS 1, *NOGOFLG* VALUE IS MERGED INTO       FCC0220    15
                                        *         *P2NOGO*, WHICH THEN BECOMES THE PASS 2 MASTER CONTROL FLAG.)  FCC0220    16
                                                                                                                 LSTPRO   1429
                                        *         "SYMTAB" ORDINALS OF THE SPECIAL SYMBOLS                       LSTPRO   1430
                                                                                                                 LSTPRO   1431
                                                  ENTRY  O.TSS,L.TSS                                             LSTPRO   1432
                                4650 +   O.TSS    EQU    *                 FWA OF TABLE OF SPECIAL SYMBOLS       LSTPRO   1433
          4650  00000000000000000000     TEMPA0.  ENTRY.                                                         LSTPRO   1434
          4651  00000000000000000000     VALUE.   ENTRY.                                                         LSTPRO   1435
          4652  00000000000000000000     TRACE.   ENTRY.                                                         LSTPRO   1436
          4653  00000000000000000000     ENTRY.   ENTRY.                                                         LSTPRO   1437
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    84
        STORAGE DECLARATIONS
  
          4654  00000000000000000000     EXIT.    ENTRY.                                                         LSTPRO   1438
          4655  00000000000000000000     CON.     ENTRY.                                                         LSTPRO   1439
          4656  00000000000000000000     LABEL.   ENTRY.                                                         LSTPRO   1440
          4657  00000000000000000000     FTNNOP.  ENTRY.                                                         LSTPRO   1441
          4660  00000000000000000000     NOPS.    ENTRY.                                                         LSTPRO   1442
          4661  00000000000000000000     FP.      ENTRY.                                                         LSTPRO   1443
          4662  00000000000000000000     ST.      ENTRY.                                                         LSTPRO   1444
          4663  00000000000000000000     OT.      ENTRY.                                                         LSTPRO   1445
          4664  00000000000000000000     IT.      ENTRY.                                                         LSTPRO   1446
          4665  00000000000000000000     VD.      ENTRY.                                                         LSTPRO   1447
                                4666 +   L.TSS    EQU    *                 LWA+1 OF TABLE                        LSTPRO   1448
                                                                                                                 LSTPRO   1449
                                        *         LOCATIONS USED BY THE TABLE MANAGER                            LSTPRO   1450
                                                                                                                 LSTPRO   1451
          4666  00000000000000000000     PHASE    ENTRY.                   0 - PHASE 1, 1 - DPCLOSE, 2 - PHASE 2 LSTPRO   1452
          4667  00000000000000000000     NAF      ENTRY.                   30/N.ACTIVE TBLS,30/N.FIRST ACTIVE TB LSTPRO   1453
          4670  00000000000000000000     LTN      ENTRY.                   60/NUMBER OF LAST ACTIVE TABLE        LSTPRO   1454
                                                                                                                 LSTPRO   1455
          4671  00000000000000000000     LOWCORE  ENTRY.                   FWA OF ACTIVE TABLES                  LSTPRO   1456
                                        *                                  LOWCORE .GE. O.COM                    LSTPRO   1457
          4672  00000000000000000000     FWAWORK  ENTRY.                   FWA OF WORKING STORAGE ,              LSTPRO   1458
                                        *                                  LWA+1 OF THE TABLES                   LSTPRO   1459
          4673  00000000000000000000     LWAWORK  ENTRY.                   LWA+1 OF WORKING STORAGE              LSTPRO   1460
                                                                                                                 LSTPRO   1461
                                        *         POINTERS TO THE PSEUDO SYMBOL TABLES FOR POSSIBLE FOWARD       LSTPRO   1462
                                        *         REFERENCES IN COMPASS PRODUCED BY THE COMPILER                 LSTPRO   1463
                                                                                                                 LSTPRO   1464
          4674  00000000000000000000     O.GLT    ENTRY.             FWA OF GL DEFINATION TABLE                  LSTPRO   1465
          4675  00000000000000000000     O.API    ENTRY.             FWA OF APLIST INDEX/DEFINATION TABLE        LSTPRO   1466
          4676  00000000000000000000     O.IOT    ENTRY.             FWA OF IOLIST DEFINATION TABLE              LSTPRO   1467
                                                                                                                 LSTPRO   1468
                                 532     L.BATCH  =      *-O.BATCH         ** END BATCH CONTROL AREA **          LSTPRO   1469
                                                                                                                 LSTPRO   1470
          4677  00000000000000000000     GOTOER.  ENTRY.                   DUMMY ENTRY POINT FOR COMPUTED GO TO  LSTPRO   1471
          4700  0400404677 +                      EQ     GOTOER.+400000B   ERRORS                                LSTPRO   1472
                                                                                                                 LSTPRO   1473
          4701  00000000000000000001     O.CEP    ENTRY. 1                 SYMTAB ORDINAL OF CURRENT ENTRY POINT LSTPRO   1474
                                                                                                                 LSTPRO   1476
                                                                                                                 LSTPRO   1477
                                                                                                                 LSTPRO   1478
                                        **        INTERNAL OPTIMIZATION LEVEL VALUE (BINARY).  INITIALIZED TO    LSTPRO   1479
                                        *         CONTROL CARD OPTION VALUE EACH TIME PASS 1 IS LOADED.  MAY BE  LSTPRO   1480
                                        *         CHANGED (PROBABLY LOWERED) DURING PASS 1 OR 2, DEPENDING ON    LSTPRO   1481
                                        *         COMPLEXITY OF SOURCE PROGRAM.                                  LSTPRO   1482
                                                                                                                 LSTPRO   1483
          4702  00000000000000000000     OPTLVL   ENTRY. 0                                                       LSTPRO   1484
          4703  00000000000000000000     OPT2     ENTRY. 0           OPTLVL/2 ( "0 IF OPT .GE. 2  )              LSTPRO   1485
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    85
        STORAGE DECLARATIONS                                          STLTAB
  
                                        **        STLTAB - DEFINE STATIC LOAD DECK NAME TABLE.                   F162FTNA  809
                                        *                                                                        F162FTNA  810
                                        *         WHEN THE *STATIC* OPTION IS SELECTED, FCL DECK NAMES ARE       F162FTNA  811
                                        *         SELECTED BY *LISTIO/IOCM*, FORMATTED AS *LDSET USE=STLXXX.*    F162FTNA  812
                                        *         DIRECTIVES AND WRITTEN TO *COMPS* BY *ENDPRO/OSL*, AND         F162FTNA  813
                                        *         ASSEMBLED TO *LGO* BY *FAX/PID3*.  *PH1CTL/CTL1* CLEARS THE    F162FTNA  814
                                        *         DECK NAME SELECTION BITS AT THE BEGINNING OF EACH COMPILATION. F162FTNA  815
                                        *                                                                        F162FTNA  816
                                        *                                                                        F162FTNA  817
                                        *         STLOAD    DECKNAM,PERMSEL                                      F162FTNA  818
                                        *                                                                        F162FTNA  819
                                        *         ARGS   *DECKNAM* = FCL DECK NAME.                              F162FTNA  820
                                        *                *PERMSEL* = 1 IF DECK NAME PERMANENTLY SELECTED.        F162FTNA  821
                                        *                            MAY BE OMITTED OTHERWISE.                   F162FTNA  822
                                                                                                                 F162FTNA  823
                                                                                                                 F162FTNA  824
                                                  PURGMAC STLTAB                                                 FCCA408   207
                                                                                                                 F162FTNA  826
                                         STLTAB   MACRO  DNAM,SEL                                                F162FTNA  827
                                                  VFD    1/SEL,17/0,42/0L_DNAM                                   F162FTNA  828
                                         STLTAB   ENDM                                                           F162FTNA  829
                                                                                                                 F162FTNA  830
                                                                                                                 F162FTNA  831
                                                  ENTRY  STLTAB                                                  F162FTNA  832
          4704                           STLTAB   BSS    0                                                       F162FTNA  833
      L      0                                    LOC    0                                                       F162FTNA  834
      L      0  40000023241403221557              STLTAB STLCRM.,1                                               STLOAD      8
      L      1  00000023241422203557              STLTAB STLRP2.                                                 STLOAD      9
      L      2  00000023241411031757              STLTAB STLICO.                                                 STLOAD     10
      L      3  00000023241417031757              STLTAB STLOCO.                                                 STLOAD     11
      L      4  00000023241411021157              STLTAB STLIBI.                                                 STLOAD     12
      L      5  00000023241417021157              STLTAB STLOBI.                                                 STLOAD     13
      L      6  00000023241411022557              STLTAB STLIBU.                                                 STLOAD     14
      L      7  00000023241417022557              STLTAB STLOBU.                                                 STLOAD     15
      L     10  00000023241402011357              STLTAB STLBAK.                                                 STLOAD     16
      L     11  00000023241405160657              STLTAB STLENF.                                                 STLOAD     17
      L     12  00000023241422052757              STLTAB STLREW.                                                 STLOAD     18
      L     13  00000023241403151557              STLTAB STLCMM.                                                 FCCA535     9
      L     14  00000000000000000000              DATA   0           TERMINATE TABLE                             F162FTNA  836
          4721                                    LOC    *O                                                      F162FTNA  837
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    86
         TABLE MACRO
  
                                        ***                                                                      LSTPRO   1487
                                        *         TABLE MACRO - FORM QUANITIES FOR A TABLE TO BE MANAGED         LSTPRO   1488
                                        *                       BY THE TABLE MANAGER.                            LSTPRO   1489
                                        *                                                                        LSTPRO   1490
                                        *         ARGUMENTS:                                                     LSTPRO   1491
                                        *         TNAME - TABLE NAME, MUST BE @ 5 CHARACTERS SINCE THE QUANITIES LSTPRO   1492
                                        *                O.TNAM , L.TNAM AND Z.TNAM ARE ENTRY POINTS             LSTPRO   1493
                                        *                NOTE THAT LOCF(L.TNAM) " LOCF(O.TNAME)+1                LSTPRO   1494
                                        *                                                                        LSTPRO   1495
                                        *         TYPE                                                           LSTPRO   1496
                                        *                FIT - FIXED INCREMENT TABLE                             LSTPRO   1497
                                        *                AOR - ALLOCATE SPACE ON REQUEST                         LSTPRO   1498
                                        *                                                                        LSTPRO   1499
                                        *         AOV    ACTION ON OVERFLOW                                      LSTPRO   1500
                                        *                IER - ISSUE FC ERROR MESSAGE AND QUIT  OR               LSTPRO   1501
                                        *                RTC - RETURN TO CALLER WITH FLAG SET                    LSTPRO   1502
                                        *                                                                        LSTPRO   1503
                                        *         IAL    INITIAL ALLOCATION                                      LSTPRO   1504
                                        *                                                                        LSTPRO   1505
                                        *         INC    INCREMENT FOR FIXED INCREMENT TABLES                    LSTPRO   1506
                                        *                                                                        LSTPRO   1507
                                   0     AOR      EQU    0                                                       LSTPRO   1508
                                   1     FIT      EQU    1                 FIXED INCREMENT TABLE                 LSTPRO   1509
                                                                                                                 LSTPRO   1510
                                   0     IER      EQU    0                 ISSUE ERROR MESSAGE                   LSTPRO   1511
                                   1     RTC      EQU    1                 RETURN TO CALLER                      LSTPRO   1512
                                                                                                                 LSTPRO   1513
                                                  MACRO  TABLE,TNAM,TYPE,AOV,IAC,INC                             LSTPRO   1514
                                                  LOCAL  INCR                                                    LSTPRO   1515
                                         Z.TNAM   EQU    NTBLS.            TABLE NUMBER                          LSTPRO   1516
                                                  ENTRY  Z.TNAM                                                  LSTPRO   1517
                                         NTBLS.   SET    NTBLS.+1                                                LSTPRO   1518
                                                  USE    ORIGINS                                                 LSTPRO   1519
                                         O.TNAM   ENTRY.                                                         LSTPRO   1520
                                                  USE    SIZES                                                   LSTPRO   1521
                                         L.TNAM   ENTRY.                                                         LSTPRO   1522
                                                  USE    ROOMS                                                   LSTPRO   1523
                                         S.TNAM   ENTRY.                                                         LSTPRO   1524
                                                  USE    TINFO                                                   LSTPRO   1525
                                         INCR     EQU    INC 40B           DEFAULTS TO 40B                       LSTPRO   1526
                                        +         VFD    1/TYPE,1/AOV,22/0,18/IAC,18/INCR                        LSTPRO   1527
                                                  ENDM                                                           LSTPRO   1528
  
  
  
                                        *         "STBL" MACRO TO FORM A SHARED TABLE                            LSTPRO   1530
                                                                                                                 LSTPRO   1531
                                                  MACRO  STBL,TBL1,TBL2                                          LSTPRO   1532
                                                  ENTRY  Z.TBL1,O.TBL1,L.TBL1,S.TBL1                             LSTPRO   1533
                                         Z.TBL1   EQU    Z.TBL2                                                  LSTPRO   1534
                                         O.TBL1   EQU    O.TBL2                                                  LSTPRO   1535
                                         L.TBL1   EQU    L.TBL2                                                  LSTPRO   1536
                                         S.TBL1   EQU    S.TBL2                                                  LSTPRO   1537
                                                  ENDM                                                           LSTPRO   1538
                                                                                                                 LSTPRO   1539
                                   0     NTBLS.   SET    0                                                       LSTPRO   1540
                                   0     LNTBS.   SET    0                                                       LSTPRO   1541
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    87
         TABLES FOR PASS 1
  
                                         CTIP     MACRO  INCR              COUNT NUMBER OF TABLES IN A PHASE     LSTPRO   1543
                                                  LOCAL  F,N                                                     LSTPRO   1544
                                         N        EQU    NTBLS.-LNTBS.                                           LSTPRO   1545
                                         F        EQU    LNTBS.            FIRST ACTIVE ONE                      LSTPRO   1546
                                                  IFC    NE,/INCR//,1                                            LSTPRO   1547
                                         LNTBS.   SET    NTBLS.            INCREMENT NUMBER OF FIRST ACTIVE TBL  LSTPRO   1548
                                                  USE    PHVECT                                                  LSTPRO   1549
                                        +         VFD    30/N,30/F                                               LSTPRO   1550
                                                  USE    *                                                       LSTPRO   1551
                                                  ENDM                                                           LSTPRO   1552
                                                                                                                 LSTPRO   1553
                                        *         ESTABLISH BLOCK ORDERING                                       LSTPRO   1554
                                                                                                                 LSTPRO   1555
                                                  ENTRY  ORIGINS,SIZES,ROOMS,TINFO,NAFVEC                        LSTPRO   1556
                                                  USE    ORIGINS                                                 LSTPRO   1557
          4766                           ORIGINS  BSS    0                 ORIGINS(I) = FWA OF TABLE I           LSTPRO   1558
                                                  USE    SIZES                                                   LSTPRO   1559
          5012                           SIZES    BSS    0                 SIZES(I) = LENGTH OF TABLE I          LSTPRO   1560
                                                  USE    ROOMS                                                   LSTPRO   1561
          5036                           ROOMS    BSS    0                 ROOMS(I) = SPACE ALLOCATED TO TABLE I LSTPRO   1562
                                                  USE    TINFO                                                   LSTPRO   1563
          5062                           TINFO    BSS    0                 TINFO(I) = MISC INFO ABOUT TABLE I    LSTPRO   1564
                                                  USE    PHVECT                                                  LSTPRO   1565
          5106                           NAFVEC   BSS    0                 FWA OF NAF TBL                        LSTPRO   1566
  
  
                                        *         TABLE DECLARATIONS                                             LSTPRO   1568
                                                                                                                 LSTPRO   1569
          4766  00000000000000000000     COM      TABLE  FIT,IER,300B,40B                                        LSTPRO   1570
          4767  00000000000000000000     EQV      TABLE  FIT,IER,40B,40B                                         LSTPRO   1571
          4770  00000000000000000000     DIM      TABLE  FIT,IER,100B,40B                                        LSTPRO   1572
          4771  00000000000000000000     DCON     TABLE  FIT,IER,0,20B     TEMPORARY DEBUG CONSTANT TABLE        LSTPRO   1573
          5106  00000000040000000000              CTIP                                                           LSTPRO   1574
                                                                                                                 LSTPRO   1575
          4772  00000000000000000000     LAT      TABLE  AOR,IER                                                 LSTPRO   1576
          4773  00000000000000000000     SCA      TABLE  AOR,IER                                                 LSTPRO   1577
                                         ECT      STBL   SCA               TEMPORARY EQUIVALENCE CLASS TABLE     LSTPRO   1578
          4774  00000000000000000000     EOT      TABLE  AOR,IER     EQUIVALENCE OVERLAP TABLE                   FEAT129     5
          5107  00000000070000000000              CTIP   INCR              END OF PHASE 1 TABLES                 LSTPRO   1579
                                                                                                                 LSTPRO   1580
          4775  00000000000000000000     FPBL     TABLE                    F.P. BLOCK LENGTH TBL ( NAMELIST )    LSTPRO   1581
          4776  00000000000000000000     ASF      TABLE  AOR,IER           ASF DEFINITIONS                       LSTPRO   1582
          4777  00000000000000000000     ARLST    TABLE  AOR,IER           ARLIST BUFFER                         LSTPRO   1583
                                                                                                                 LSTPRO   1584
          5000  00000000000000000000     CON      TABLE  FIT,IER,50B,20B   BINARY LITERALS                       LSTPRO   1585
          5001  00000000000000000000     DATA     TABLE  FIT,IER,20B,20B   USEAGE DEFINED VARS IN DATA STMTS     LSTPRO   1586
          5002  00000000000000000000     DIL      TABLE  FIT,IER,20B,20B   DATA ITEM LIST TABLE                  LSTPRO   1587
          5003  00000000000000000000     DIT      TABLE  FIT,IER,20B,40B   DATA ITEM TABLE                       LSTPRO   1588
          5004  00000000000000000000     ENTR     TABLE  FIT,IER,1,10B     ENTRY POINTS                          LSTPRO   1589
          5005  00000000000000000000     NML      TABLE FIT,IER,10B,10B    NAMELIST ITEM TABLE                   LSTPRO   1590
          5006  00000000000000000000     DOLST    TABLE  FIT,RTC,100B,20B  DO LIST                               LSTPRO   1591
          5007  00000000000000000000     IOLST    TABLE  FIT,IER,20B,10B   INPUT ORDINAL LIST TABLE              LSTPRO   1592
          5010  00000000000000000000     LTAB     TABLE  AOR,IER           GOTOPROC - LABEL TABLE                LSTPRO   1593
                                                                                                                 LSTPRO   1594
          5011  00000000000000000000     SCR      TABLE  AOR,IER           SCRATCH AREA FOR ASFREF , ETC         LSTPRO   1595
                                         EXT      STBL   ASF               FORMED AT THE END OF PASS 1           LSTPRO   1596
                                         UDV      STBL   FPBL              USEAGE DEFINED VARS - ENDPROC         LSTPRO   1597
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    88
         TABLES FOR PASS 1                                                      PHVECT
  
          5110  00000000150000000007              CTIP                                                           LSTPRO   1598
                                                                                                                 LSTPRO   1599
                                  24     NTBLS    EQU    NTBLS.            NUMBER OF TABLES                      LSTPRO   1600
                                                  USE    0                                                       LSTPRO   1601
                                                                                                                 LSTPRO   1602
                                                  ENTRY  T.FPBL                                                  LSTPRO   1603
                                5071 +   T.FPBL   EQU    TINFO+Z.FPBL                                            LSTPRO   1604
  
  
  
                                         SAVTBL   MICRO  1,,                                                     LSTPRO   1606
                                  74     STBIT    SET    60                                                      LSTPRO   1607
                                                                                                                 LSTPRO   1608
                                         SAVTBL   MACRO  TBL                                                     LSTPRO   1609
                                         SAVTBL   MICRO  1,,$"SAVTBL",6/Z.TBL+1$                                 LSTPRO   1610
                                         STBIT    SET    STBIT-6                                                 LSTPRO   1611
                                                  IFLT   STBIT,0,1                                               LSTPRO   1612
                                                  ERR    10 TABLES IS MAX THAT MAY BE SAVED                      LSTPRO   1613
                                                  ENDM                                                           LSTPRO   1614
                                                                                                                 LSTPRO   1615
                                        ***                                                                      LSTPRO   1616
                                        *         LIST OF TABLES TO BE SAVED FOR PASS 2                          LSTPRO   1617
                                        *         TABLES FIRST IN THE BELOW LIST WILL BE MOVED TO HIGH CORE LAST LSTPRO   1618
                                                                                                                 LSTPRO   1619
                                                  SAVTBL UDV                                                     LSTPRO   1620
                                                  SAVTBL EXT                                                     LSTPRO   1621
                                                  SAVTBL ENTR                                                    LSTPRO   1622
                                                                                                                 LSTPRO   1623
                                                  ENTRY  SAVTBL                                                  LSTPRO   1624
          4721  00000000000000101117     SAVTBL   VFD    STBIT/0"SAVTBL"                                         LSTPRO   1625
  
  
  
  
                                        ***       PUTTAB - DUMP A TABLE TO DISK                                  FEAT1070C 105
                                        *                                                                        FEAT1070C 106
                                                  ENTRY  PUTTAB                                                  FEAT1070C 107
  
  
                                        **        ENTRY CONDITIONS                                               FEAT1070C 109
                                        *                X2 = FWA OF TABLE                                       FEAT1070C 110
                                        *                X3 = LENGTH OF TABLE                                    FEAT1070C 111
                                        *                X5 = 57/,1/ERFLAG,2/OPTLEVEL  (ONLY IF SYMBOL TABLE)    FEAT1070C 112
                                        *                X6 = TABLE TYPE                                         FEAT1070C 113
                                        *                                                                        FEAT1070C 114
                                        *                TABLES ARE OUTPUT AS 1 RECORD.                          FEAT1070C 115
                                        *                A TWO-WORD HEADER PRECEDES EACH TABLE                   FEAT1070C 116
                                        *                EMPTY TABLES ARE NOT DUMPED AT ALL                      FEAT1070C 117
                                        *         HEADER TABLE FORMAT                                            FEAT1070C 118
                                        *                                                                        FEAT1070C 119
                                        *         WORD 1  42/7H_NAME,18/0                                        FEAT1070C 120
                                        *                                                                        FEAT1070C 121
                                        *         WORD 2                                                         FEAT1070C 122
                                        *         6/     TABLE TYPE (SEE MANTRAPS IPARAMS)                       FEAT1070C 123
                                        *         30/    UNUSED                                                  FEAT1070C 124
                                        *         1/     1 IF ER OPTION ON  (ONLY IN SYMBOL ENTRY)               FEAT1070C 125
                                        *         2/     COMPILATION OPT LEVEL (ONLY IN SYMBOL ENTRY)            FEAT1070C 126
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    89
         TABLES FOR PASS 1
  
                                        *         3/     PROGTYPE (0:PROGRAM,1:SUBROUTINE,2:FUNCTION)            FEAT1070C 127
                                        *         18/    TABLE LENGTH (EXCLUDING HEADER)                         FEAT1070C 128
                                        *                                                                        FEAT1070C 129
          4722                     1     PUTTAB   BSS    1           ENTRY/EXIT                                  FEAT1070C 130
  
  
                                        *         SET UP 2 HEADER WORDS IN FRONT OF TABLE                        FEAT1070C 132
          4723  5110000000 X                      SA1    =XPMDFLAG                                               FEAT1070C 133
                          5140000056              SA4    56B         PROGRAM TYPE                                FEAT1070C 134
          4724  0303004722 +                      ZR     X3,PUTTAB   IGNORE EMPTY TABLES                         FEAT1070C 135
                          0301004722 +            ZR     X1,PUTTAB   IF MANTRAP DISABLED, RETURN                 FEAT1070C 136
          4725  5110004124 +                      SA1    PROGNAM                                                 FEAT1070C 137
                          0304004722 +            ZR     X4,PUTTAB   IGNORE BLOCKDATA                            FEAT1070C 138
          4726  26424                             UX4    X4,B2       PROGRAM TYPE TO B2                          FEAT1070C 139
                     20503                        LX5    3                                                       FEAT1070C 140
                          73052                   SX0    X5+B2       3/OPT,3/PROGTYPE                            FEAT1070C 141
                               20022              LX0    18                                                      FEAT1070C 142
  
          4727  5242777775                        SA4    X2-2        FWA-2                                       FEAT1070C 144
                          5252777776              SA5    X2-1        FWA-1                                       FEAT1070C 145
          4730  20666                             LX6    54                                                      FEAT1070C 146
                     12663                        BX6    X6+X3                                                   FEAT1070C 147
                          12606                   BX6    X0+X6                                                   FEAT1070C 148
                               22701              LX7    X1                                                      FEAT1070C 149
          4731  54650                             SA6    A5          CORRUPT FWA-1                               FEAT1070C 150
                     54740                        SA7    A4          CORRUPT FWA-2                               FEAT1070C 151
                                         #RM      IFEQ   CP#RM,7                                                 FCCA510     7
                                                  OPENM  ZZZZZSY,OUTPUT,E                                        FCCA510     8
                                                  SX3    X3+2         LENGTH = ORIG LENGTH + HEADER              FCCA510     9
                                                  SX7    A4           STARTING ADDRESS                           FCCA510    10
                                                  PUTW   ZZZZZSY,X7,X3                                           FCCA510    11
                                                  CLOSEM ZZZZZSY,R                                               FCCA510    12
                                         #RM      ELSE                                                           FCCA510    13
                          36632                   IX6    X3+X2       LWA                                         FEAT1070C 152
                               74740              SX7    A4          SET OUT=FWA-2                               FEAT1070C 153
          4732  5160004741 +                      SA6    ZZZZZSY+2   IN=LWA                                      FEAT1070C 154
                          5170004742 +            SA7    ZZZZZSY+3   OUT=FWA-2                                   FEAT1070C 155
  
          4733  7120004737 +                      WRITER ZZZZZSY,R   WRITE OUT TABLE                             FEAT1070C 157
  
  
                                        *         RELOAD FWA-2,FWA-1                                             FEAT1070C 159
                                         #RM      ENDIF                                                          FCCA510    14
          4735  10644                             BX6    X4                                                      FEAT1070C 160
                     22705                        LX7    X5                                                      FEAT1070C 161
                          54640                   SA6    A4                                                      FEAT1070C 162
                               54750              SA7    A5                                                      FEAT1070C 163
          4736  0400004722 +                      EQ     PUTTAB                                                  FEAT1070C 164
  
  
  
  
                                         #RM      IFEQ   CP#RM,0                                                 FCCA510    15
          4737  32323232322331000003     ZZZZZSY  FILEB  *,0         DUMMY FIRST,DUMMY IN,DUMMY OUT,DUMMY LIMIT  FCCA562     8
                                         #RM      ELSE                                                           FCCA510    17
                                         ZZZZZSY  FILE   FO=SQ,RT=U,OF=R,CF=R,EO=T,MRL=131071                    FCCA536     6
                                         #RM      ENDIF                                                          FCCA510    19
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    90
         ADDRESS FIELD DEFINITIONS
  
                                        ***                                                                      LSTPRO   1627
                                        *         WORDB - DEFINE TYPE AND/OR ADDRESS DEFINITION FIELDS FOR WORD  LSTPRO   1628
                                        *         B OF SYMTAB ENTRY FOR SOME SPECIAL SYMBOLS                     LSTPRO   1629
                                        *                                                                        LSTPRO   1630
                                                  MACRO  WORDB,LOC,A,B,C,D                                       FCC1088     9
                                                  LOCAL  NRL,NRB                                                 LSTPRO   1632
                                                  ENTRY  LOC                                                     LSTPRO   1633
                                         TY=      SET    0                                                       LSTPRO   1634
                                         RL=      SET    0                                                       LSTPRO   1635
                                         RB=      SET    0                                                       LSTPRO   1636
                                                  SPLIT= A                                                       LSTPRO   1637
                                                  SPLIT= B                                                       LSTPRO   1638
                                                  SPLIT= C                                                       LSTPRO   1639
                                         NRL      EQU    P.TYP-P.RL                                              LSTPRO   1640
                                         NRB      EQU    P.RL-P.RB                                               LSTPRO   1641
                                         LOC      VFD    L.TYP/TY=,NRL/RL=,NRB/RB=,P.RB/D                        FCC1088    10
                                                  ENDM                                                           LSTPRO   1643
                                                                                                                 LSTPRO   1644
                                         SPLIT=   MACRO  A                                                       LSTPRO   1645
                                                  IFC    NE,/A//,3                                               LSTPRO   1647
                                         N        MICRO  1,3,/A/                                                 LSTPRO   1648
                                         R        MICRO  4,,/A/                                                  LSTPRO   1649
                                         "N"      SET    "R"                                                     LSTPRO   1650
                                                  ENDM                                                           LSTPRO   1651
                                                                                                                 LSTPRO   1652
                                         START.   MICRO  1,,/0/                                                  LSTPRO   1653
                                         ENTRY.   MICRO  1,,/2/                                                  LSTPRO   1654
                                         CODE.    MICRO  1,,/3/                                                  LSTPRO   1655
                                         DATA.    MICRO  1,,/4/                                                  LSTPRO   1656
                                         HOL.     MICRO  1,,/6/                                                  LSTPRO   1657
                                                                                                                 LSTPRO   1658
                                        *                                  POST - LABELS AND ENTRY POINTS        LSTPRO   1659
          4744  00000002000000030000     WB.LAB   WORDB  RL=1,RB="CODE."   FAX - GL , AP AND VD LABELS           LSTPRO   1660
                                                                                                                 LSTPRO   1661
                                        *                                  HEADER CARD PROCESSOR                 LSTPRO   1662
          4745  60000002000000000000     WB.ESS   WORDB  TY=T.CGS,RL=1,RB="START."                               LSTPRO   1663
          4746  54000002000000000000     WB.LFN   WORDB  TY=T.LFN,RL=1,RB="START."                               LSTPRO   1664
                                                                                                                 LSTPRO   1665
                                        *                                  ENTRY STMT PROCESSOR                  LSTPRO   1666
          4747  60000002000000020000     WB.FTN   WORDB  TY=T.CGS,RL=1,RB="ENTRY."                               LSTPRO   1667
          4750  60000002000000040000     WB.NOP   WORDB  TY=T.CGS,RL=1,RB="DATA."                                LSTPRO   1668
                                        *                                  CON. - SET IN DPCLOSE                 LSTPRO   1669
          4751  60000002000000041000     WB.CON   WORDB  TY=T.CGS,RL=1,RB="DATA.",V.LDO                          FCC1088    11
                                        *                                  NAMELIST                              LSTPRO   1671
          4752  40000002000000040000     WB.NML   WORDB  TY=T.NML,RL=1,RB="DATA."                                LSTPRO   1672
                                        *                                  FORMAT LABELS                         LSTPRO   1673
          4753  00000002000000040000     WB.FMT   WORDB  RL=1,RB="DATA."                                         LSTPRO   1674
                                                                                                                 LSTPRO   1675
                                        *                                  HOL. - SET IN CONVERT                 LSTPRO   1676
          4754  60000002000000061000     WB.HOL   WORDB  TY=T.CGS,RL=1,RB="HOL.",V.LDO                           FCC1088    12
                                                                                                                 LSTPRO   1678
                                        *                                  ENDPROC                               LSTPRO   1679
          4755  60000002000000030000     WB.ECGS  WORDB  TY=T.CGS,RL=1,RB="CODE."                                LSTPRO   1680
          4756  00000002000000030000     WB.PROG  WORDB  RL=1,RB="CODE."                                         LSTPRO   1681
          4757  00000002000000070000     WB.FP    WORDB  RL=1,RB=7                                               LSTPRO   1682
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    91
         TABDMP - DUMP A TABLE TO DISK ( DEBUG RTN )
  
                                         .T       IFEQ   TEST,0                                                  LSTPRO   1684
                                                                                                                 LSTPRO   1685
          4760  0400404760 +             SYMDMP   ENTRY. **                                                      LSTPRO   1686
          4761  0400004760 +                      EQ     SYMDMP      EXIT WITHOUT ACTION                         LSTPRO   1687
                                                                                                                 LSTPRO   1688
          4762  0400404762 +             TABDMP   ENTRY. **                                                      LSTPRO   1689
          4763  0400004762 +                      EQ     TABDMP      EXIT WITHOUT ACTION                         LSTPRO   1690
                                                                                                                 LSTPRO   1691
                                         .T       ELSE                                                           LSTPRO   1692
                                                                                                                 LSTPRO   1693
                                         #RM      IFEQ   CP#RM,0                                                 LSTPRO   1694
                                                                                                                 LSTPRO   1695
                                        ***                                                                      LSTPRO   1696
                                        *         TABDMP - DUMP CORE TO THE FILE "SYMTAB"                        LSTPRO   1697
                                        *                                                                        LSTPRO   1698
                                        *         ON ENTRY:                                                      LSTPRO   1699
                                        *                X1,X2 = PREFIX WORDS , BCD AND INDEX                    LSTPRO   1700
                                        *                X3,X4 = FWA,LWA+1 OF TABLE TO BE DUMPED                 LSTPRO   1701
                                        *                                                                        LSTPRO   1702
                                         TABDMP   ENTRY.                                                         LSTPRO   1703
                                                  SX7    X3-2              FWA-2                                 LSTPRO   1704
                                                  SB1    1                                                       LSTPRO   1705
                                                  SA7    F.TEST+I.FIRST    (FIRST) = PREFIX WORD ADDRESS         LSTPRO   1706
                                                  BX6    X4                                                      LSTPRO   1707
                                                  SA6    A7+B1             (IN)    = LWA+1                       LSTPRO   1708
                                                  SA7    A6+B1             (OUT)   = (FIRST)                     LSTPRO   1709
                                                  SX6    77B                                                     LSTPRO   1710
                                                  SA6    A7+B1             (LIMIT) = LWA+100B                    LSTPRO   1711
                                                  SA4    X3-2                                                    LSTPRO   1712
                                                  SA5    A4+B1                                                   LSTPRO   1713
                                                  BX6    X4                                                      LSTPRO   1714
                                                  LX7    X5                                                      LSTPRO   1715
                                                  SA6    SAVE                                                    LSTPRO   1716
                                                  SA7    A6+B1                                                   LSTPRO   1717
                                                  BX6    X1                                                      LSTPRO   1718
                                                  LX7    X2                                                      LSTPRO   1719
                                                  SA6    A4                                                      LSTPRO   1720
                                                  SA7    A5                                                      LSTPRO   1721
                                                  WRITER F.TEST,RCL                                              LSTPRO   1722
                                                  SA1    SAVE                                                    LSTPRO   1723
                                                  SA2    A1+B1                                                   LSTPRO   1724
                                                  SA3    F.TEST+I.FIRST                                          LSTPRO   1725
                                                  BX6    X1                                                      LSTPRO   1726
                                                  LX7    X2                                                      LSTPRO   1727
                                                  SA6    X3                                                      LSTPRO   1728
                                                  SA7    X3+B1                                                   LSTPRO   1729
                                                  EQ     TABDMP                                                  LSTPRO   1730
                                                                                                                 LSTPRO   1731
                                         SAVE     BSSZ   2                 TO SAVE 2 WORDS                       LSTPRO   1732
                                         F.TEST   VFD    42/0LSYMTAB,18/3                                        LSTPRO   1733
                                                  CON    *           DUMMY -FIRST-                               LSTPRO   1734
                                                  CON    *-1         DUMMY -IN-                                  LSTPRO   1735
                                                  CON    *-2         DUMMY -OUT-                                 LSTPRO   1736
                                                  CON    *           DUMMY -LIMIT-                               LSTPRO   1737
                                                  DATA   0           DUMMY FET WORD 5                            LSTPRO   1738
                                                  TITLE              SYMDMP - SYMTAB DUMP ROUTINE                LSTPRO   1739
                                        ***                                                                      LSTPRO   1740
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    92
         TABDMP - DUMP A TABLE TO DISK ( DEBUG RTN )
  
                                        *         SYMDMP - DUMP THE SYMBOL TABLE TO THE FILE "SYMTAB"            LSTPRO   1741
                                        *                                                                        LSTPRO   1742
                                         SYMDMP   ENTRY.                                                         LSTPRO   1743
                                                  SA2    L.SYMTAB                                                LSTPRO   1744
                                                  SA3    O.SYMTAB                                                LSTPRO   1745
                                                  SB1    1                                                       LSTPRO   1746
                                                  SX7    X3-1                                                    LSTPRO   1747
                                                  SX6    X2+B1             FIRST                                 LSTPRO   1748
                                                  SX2    F.TEST                                                  LSTPRO   1749
                                                  SA6    X2+B1                                                   LSTPRO   1750
                                                  SA7    A6+B1             IN                                    LSTPRO   1751
                                                  SA6    A7+B1             OUT = FIRST                           LSTPRO   1752
                                                  SX7    X3+100B                                                 LSTPRO   1753
                                                  SA7    A6+B1             LIMIT                                 LSTPRO   1754
                                                  WRITER X2,RCL                                                  LSTPRO   1755
                                                  EQ     SYMDMP                                                  LSTPRO   1756
                                                                                                                 LSTPRO   1757
                                         #RM      ELSE                                                           LSTPRO   1758
                                                                                                                 LSTPRO   1759
                                         TABDMP   ENTRY. **                                                      LSTPRO   1760
                                                  EQ     TABDMP                                                  LSTPRO   1761
                                                                                                                 LSTPRO   1762
                                        *         SYMDMP - DUMP THE SYMBOL TABLE USING RECORD MANAGER.           LSTPRO   1763
                                                                                                                 LSTPRO   1764
                                         SYMDMP   ENTRY. **                                                      LSTPRO   1765
                                                  SA2    L.SYMTAB                                                LSTPRO   1766
                                                  SA3    O.SYMTAB                                                LSTPRO   1767
                                                  IX4    X3-X2                                                   LSTPRO   1768
                                                  SX5    X2+1                                                    LSTPRO   1769
                                                  SX4    X4-2                                                    LSTPRO   1770
                                                  PUTW   FI.TEST,X5,X4                                           LSTPRO   1771
                                                  EQ     SYMDMP      EXIT                                        LSTPRO   1772
                                                                                                                 LSTPRO   1773
                                        *         DECLARE *SYMTAB* FIT AND ADDRESS POINTER.                      LSTPRO   1774
                                                                                                                 LSTPRO   1775
                                         FI.TEST  FILE   LFN=SYMTAB,FO=SQ,OF=R,CF=R,PD=IO,EO=T,RT=W,MRL=131071   LSTPRO   1776
                                         F.TEST   CON    FI.TEST                                                 LSTPRO   1777
                                                                                                                 LSTPRO   1778
                                         #RM      ENDIF                                                          LSTPRO   1779
                                                                                                                 LSTPRO   1780
                                         .T       ENDIF                                                          LSTPRO   1781
                                                                                                                 LSTPRO   1782
                                                  IFNE   TEST,0,2                                                LSTPRO   1783
                                         DMPTBL=  ENTRY. **          PLUGGED FROM *CLOSE2* TO *  RJ  PTC= *      LSTPRO   1784
                                        +         EQ     RPV5                                                    LSTPRO   1785
  
  
  
          5111                                    END    FTN20                                                   LSTPRO   1787
  
                             67400B CM  STORAGE USED             6704 STATEMENTS     1060 SYMBOLS      000069 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.504 SECONDS        1541 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI         4125   PROGRAM*       82/10 E   82/10 L   82/16
        AOR             0                  86/22 D   87/35     87/36     87/38     87/42     87/43     87/53     87/55
        CAFLAG          0   EXTERNAL*      17/12 S   18/13     19/03     19/56     20/12 S   21/54
        CDD          3350   PROGRAM*       24/14 D   24/21 E   54/53     77/16
        CIO=         3440   PROGRAM*       12/43     15/52     16/04     18/18     22/01     34/43 E   42/12     50/11
                                           15/04     15/55     16/07     18/42     22/05     39/51     42/42     50/49
                                           15/07     15/56     18/10     19/06     22/07     40/16     49/02     77/33
                                           15/08     16/03     18/17     19/07     34/36 D   41/23     49/20     89/39
        COD          3357   PROGRAM*       26/04 D   26/11 E   79/48
        CODE.        4612   PROGRAM*       83/03 E   83/03 L
        COMPMSG      4123   PROGRAM*       75/42     82/03 E   82/03 L
        COMRET          0   EXTERNAL*      12/33     14/38
        CON.         4655   PROGRAM*       84/02 E   84/02 L
        CO.ABT          0   EXTERNAL*      17/14 S
        CO.OLVL         0   EXTERNAL*      13/02
        CO.REW          0   EXTERNAL*      15/05     15/50
        CP.AFLS         0   EXTERNAL*      13/07
        CP.BLF          0   EXTERNAL*      54/33     71/49
        CP.CARD         0   EXTERNAL*      12/35     17/11 S   17/31     20/11 S
        CP.ERCT         0   EXTERNAL*      17/10 S
        CP.LSTF         0   EXTERNAL*      17/38     55/03     71/48
        CP.NFLS         0   EXTERNAL*      14/40
        CP.PAGE         0   EXTERNAL*      54/48     55/05     55/12 S   71/46     71/47
        CP.PD           0   EXTERNAL*       3/20 X   15/26     17/40     55/13     55/15
        CP#RM           0   FTNTEXT         4/06 F   12/40 F   18/21 F   20/14 F   52/17 F   77/28 F
                                            4/31 F   15/03 F   19/10 F   22/12 F   55/35 F   89/27 F
                                            4/46 F   17/51 F   19/41 F   32/13 F   68/10 F   89/53 F
        C.BLOCK      4001   PROGRAM*       73/19     73/42 E   73/42 L
        DATA.        4613   PROGRAM*       83/04 E   83/04 L
        DATA..       4614   PROGRAM*       83/05 E   83/05 L
        DCB=         3667   PROGRAM*       45/07     51/04 D
        DFLAG           0   EXTERNAL*       3/25 X   13/15     14/50
        DUKE           37                   3/14 D   77/08
        DXB          3376   PROGRAM*       28/38 D   28/45 E
        ENDFTN          0   EXTERNAL*      19/57
        END1         3237   PROGRAM*       17/39     17/41     17/45     17/50 L
        END1A        3242   PROGRAM*       17/54     17/57 L
        END1B        3244   PROGRAM*       17/56     18/10 L
        END10        3276   PROGRAM*       19/46     19/49 L
        END2         3246   PROGRAM*       18/04     18/11 L
        END3         3255   PROGRAM*       18/12     18/16     18/19 L
        END4         3261   PROGRAM*       18/37 L   18/41     18/43
        END5         3265   PROGRAM*       18/38     19/02 L
        END6         3273   PROGRAM*       19/05     19/08 L
        END9         3274   PROGRAM*       19/44 L   19/49
        ENTER        3032   PROGRAM*        7/55      8/05 L
        ENTRY.       4653   PROGRAM*       83/57 E   83/57 L
        EPOINT.      4611   PROGRAM*       83/02 E   83/02 L
        ERRMAX        144   FTNTEXT        82/28
        EXIT.        4654   PROGRAM*       84/01 E   84/01 L
        E.UDEFL      4646   PROGRAM*       83/43 E   83/43 L
        FA=LOL       3677   PROGRAM*       52/21 E   52/21 L
        FA=NPG       3706   PROGRAM*       52/28     54/25 E   54/25 L   55/26
        FA=SET       3742   PROGRAM*       14/37     14/37     16/15     22/06     22/20     71/26 E
                                           14/37     14/44     22/02     22/08     71/20 D
        FIT             1                  86/23 D   87/30     87/32     87/46     87/48     87/50     87/52
                                           87/29     87/31     87/45     87/47     87/49     87/51
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        FL              0   EXTERNAL*      12/44
        FOUND        3045   PROGRAM*        7/52      9/36 L
        FP.          4661   PROGRAM*       84/06 E   84/06 L
        FRA=         4072   PROGRAM*       76/35     80/03 D   80/04 E
        FSTEX        4635   PROGRAM*       83/28 E   83/28 L
        FTNABT       3222   PROGRAM*       17/06 E   17/07 L
        FTNEND       3227   PROGRAM*       12/36     17/22 E   17/23 L
        FTNNOP.      4657   PROGRAM*       84/04 E   84/04 L
        FTN20        3102   PROGRAM*       12/06 E   12/07 L
        FUNTYPE      4632   PROGRAM*       83/25 E   83/25 L
        FVLEN           0   EXTERNAL*      19/43
        FV.LGO          0   EXTERNAL*       3/22 X   15/48     18/11     22/09
        FWAWORK      4672   PROGRAM*       84/21 E   84/21 L
        FWA2.0          0   EXTERNAL*      79/32
        F.CMPS          0   EXTERNAL*      14/37     16/03     19/06     19/07     20/16     22/01     22/02     73/36
        F.COMPS         0   EXTERNAL*       3/22 X
        F.IN            0   EXTERNAL*       3/22 X   15/07     15/08     20/18 S
        F.LGO           0   EXTERNAL*       3/22 X   14/37     15/52     15/55     18/17     18/18     22/20
        F.OPT           0   EXTERNAL*       3/22 X   15/56     18/25
        F.OUT           0   EXTERNAL*       3/23 X   15/31     17/49     18/10     54/43     55/22     72/04
                                           15/04     15/32     17/52     52/19     55/15     55/24     77/29
        F.RLST          0   EXTERNAL*       3/23 X   14/37     16/04     22/07     22/08
        F.RMAP          0   EXTERNAL*       3/23 X   14/44     16/07     16/15     22/05     22/06
        GL.SYM          0   EXTERNAL*      14/56 S   21/34
        GOTOER.      4677   PROGRAM*       84/34 E   84/34 L   84/35
        GT1             0   EXTERNAL*      17/48 S   17/49
        HOL.         4615   PROGRAM*       83/06 E   83/06 L
        IEFLG        4126   PROGRAM*       82/11 E   82/11 L   82/15
        IER             0                  86/25 D   87/31     87/36     87/43     87/47     87/50     87/55
                                           87/29     87/32     87/38     87/45     87/48     87/52
                                           87/30     87/35     87/42     87/46     87/49     87/53
        IMPTYP       3062   PROGRAM*       10/20     10/39 E   10/40 L   21/09 S
        IOAPLN       4630   PROGRAM*       83/23 E   83/23 L
        IT.          4664   PROGRAM*       84/09 E   84/09 L
        I.CBSET         5   FTNTEXT        16/15     22/02     22/06     22/08     22/20     68/46
        I.DT            1   FTNTEXT        15/32
        I.FIRST         1   FTNTEXT        18/25
        I.LIMIT         4   FTNTEXT        69/06
        I.OUT           3   FTNTEXT        69/04 S
        KLS1N        3100   PROGRAM*       11/22     11/27 L
        KLS.D        3101   PROGRAM*       11/31 L   13/17
        KSSW         3073   PROGRAM*       11/21 E   11/21 L   11/23     21/42
        LABEL        3034   PROGRAM*        3/18 E    9/04 L
        LABEL.       4656   PROGRAM*       84/03 E   84/03 L
        LCB=         3551   PROGRAM*       36/09     43/01 D
        LCP.PS          0   EXTERNAL*       3/20 X   15/27     55/16
        LC.CMPS      1002                   4/10 D    4/49
        LC.LGO       2004                   4/11 D    4/13
        LC.OPT       2004                   4/12 D
        LC.RLST      2004                   4/13 D    4/48
        LC.RMAP      1002                   4/14 D
        LDCOM           0   EXTERNAL*      20/32
        LDR.NN          5   FTNTEXT        79/28
        LEVEL        4637   PROGRAM*       83/30 E   83/30 L
        LEVEL2       4640   PROGRAM*       83/31 E   83/31 L
        LFER         3044   PROGRAM*        9/30 E    9/30 L
        LINENR       4624   PROGRAM*       77/13     83/18 E   83/18 L
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        LLIST        4345   PROGRAM*        9/23     82/44 L
        LNTBS.          7                  86/57 D   87/33     87/39     87/39 D   88/01
        LOLA         3705   PROGRAM*       52/27 S   52/29     53/02 L
        LOL2         3676   PROGRAM*       52/19 L   52/25     52/31
        LOP=M        4127   PROGRAM*       82/12 E   82/12 L
        LOP=O        4130   PROGRAM*       82/13 E   82/13 L   82/17
        LOP=R        4131   PROGRAM*       82/14 E   82/14 L   82/18
        LOP=W        4126   PROGRAM*       82/15 E   82/15 D
        LOP=X        4125   PROGRAM*       82/16 E   82/16 D
        LOVER           0   EXTERNAL*      13/18     13/19
        LOWCORE      4671   PROGRAM*       84/19 E   84/19 L
        LSTSW1       3017   PROGRAM*        7/27 L    8/08     11/18 S   11/22 S
        LSTSW3       3046   PROGRAM*        9/39 L   13/17 S
        LSTWRKG      4125   PROGRAM*       82/08 L   82/09 E
        LST2         3106   PROGRAM*       12/32 L
        LST2A        3111   PROGRAM*       12/34     12/38 L
        LST3         3117   PROGRAM*       12/53 L   22/10     22/21
        LST4         3134   PROGRAM*       13/16     13/19 L
        LTN          4670   PROGRAM*       84/17 E   84/17 L
        LWARPV       4101   PROGRAM*       75/25     80/10 D
        LWAWORK      4673   PROGRAM*       13/18     13/19     84/23 E   84/23 L
        LWA2.0          0   EXTERNAL*      13/18     13/19     79/28
        L.ARLST      5023   PROGRAM*       87/43 E   87/43 L
        L.ASF        5022   PROGRAM*       87/42 E   87/42 L   87/56
        L.BATCH       532                  21/14     84/32 D
        L.COM        5012   PROGRAM*       87/29 E   87/29 L
        L.CON        5024   PROGRAM*       87/45 E   87/45 L
        L.DATA       5025   PROGRAM*       87/46 E   87/46 L
        L.DBGI         20   FTNTEXT         9/46      9/47
        L.DCON       5015   PROGRAM*       87/32 E   87/32 L
        L.DIL        5026   PROGRAM*       87/47 E   87/47 L
        L.DIM        5014   PROGRAM*       87/31 E   87/31 L
        L.DIT        5027   PROGRAM*       87/48 E   87/48 L
        L.DOLST      5032   PROGRAM*       87/51 E   87/51 L
        L.ECT        5017   PROGRAM*       87/37 E   87/37 D
        L.ENTR       5030   PROGRAM*       87/49 E   87/49 L
        L.EOT        5020   PROGRAM*       87/38 E   87/38 L
        L.EQV        5013   PROGRAM*       87/30 E   87/30 L
        L.EXT        5022   PROGRAM*       87/56 E   87/56 D
        L.FPBL       5021   PROGRAM*       87/41 E   87/41 L   87/57
        L.IOLST      5033   PROGRAM*       87/52 E   87/52 L
        L.LAT        5016   PROGRAM*       87/35 E   87/35 L
        L.LOOP       4643   PROGRAM*       83/37 E   83/37 L
        L.LTAB       5034   PROGRAM*       87/53 E   87/53 L
        L.NML        5031   PROGRAM*       87/50 E   87/50 L
        L.SCA        5017   PROGRAM*       87/36 E   87/36 L   87/37
        L.SCR        5035   PROGRAM*       87/55 E   87/55 L
        L.STITL      3741   PROGRAM*       21/28 S   55/23     55/30 E   55/30 L
        L.SYMTAB       13                   3/13 D    7/36 S
        L.TITL          0   EXTERNAL*       3/24 X
        L.TSS        4666   PROGRAM*       83/52 E   84/11 D
        L.TYP           4   FTNTEXT        11/31     90/36     90/40     90/43     90/47     90/53     90/55
                                           90/33     90/37     90/41     90/45     90/50     90/54
        L.UDV        5021   PROGRAM*       87/57 E   87/57 D
        MLOP=R          0   EXTERNAL*       3/25 X   14/42     16/05     16/13     22/03
        MPP          3755   PROGRAM*       17/24     71/45 E   71/45 L   72/03     72/05
        MPP1         3764   PROGRAM*       71/55     72/01 L
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        MPP2         3765   PROGRAM*       71/53     71/57     72/02 L
        MSG=            0   EXTERNAL*      17/07     75/42     77/22     77/23     77/24
        MVE=         3415   PROGRAM*       30/45 D   30/52 E
        M.NCB         177   FTNTEXT        82/51
        NAF          4667   PROGRAM*       84/16 E   84/16 L
        NAFVEC       5106   PROGRAM*       87/14 E   87/24 L
        NOPS.        4660   PROGRAM*       84/05 E   84/05 L
        NPG2         3720   PROGRAM*       54/34     54/37     54/48 L
        NPG21        3733   PROGRAM*       55/02     55/04     55/07     55/14     55/16 L
        NPG3         3736   PROGRAM*       54/44     55/23 L
        NRB          3065   PROGRAM*       10/51 E   10/52 L   21/06
        NTBLS          24                  21/13     88/03 D
        NTBLS.         24                  86/56 D   87/31 D   87/36     87/41 D   87/45 D   87/48 D   87/51 D   87/55 D
                                           87/29     87/32     87/36 D   87/42     87/46     87/49     87/52     88/01
                                           87/29 D   87/32 D   87/38     87/42 D   87/46 D   87/49 D   87/52 D   88/03
                                           87/30     87/33     87/38 D   87/43     87/47     87/50     87/53
                                           87/30 D   87/35     87/39     87/43 D   87/47 D   87/50 D   87/53 D
                                           87/31     87/35 D   87/41     87/45     87/48     87/51     87/55
        NTYPE        3054   PROGRAM*        7/41     10/17 E   10/17 L
        NTYPEL       3057   PROGRAM*       10/24 L   10/31
        NTYPEX       3053   PROGRAM*       10/14 L   10/25     10/28
        N.AP         4142   PROGRAM*       21/23 S   82/35 E   82/35 L
        N.COM        4406   PROGRAM*       82/48 E   82/48 L
        N.DO         4621   PROGRAM*       83/14 E   83/14 L
        N.EQUF       4627   PROGRAM*       83/22 E   83/22 L
        N.ERROR      4644   PROGRAM*       83/41 E   83/41 L
        N.EXST       4625   PROGRAM*       83/20 E   83/20 L
        N.FERR       4645   PROGRAM*       83/42 E   83/42 L
        N.FILES      4626   PROGRAM*       83/21 E   83/21 L
        N.FP         4633   PROGRAM*       83/26 E   83/26 L
        N.GL         4143   PROGRAM*       21/25 S   82/36 E   82/36 L
        N.IT         4623   PROGRAM*       83/16 E   83/16 L
        N.LINES      4405   PROGRAM*       52/22     54/35     55/18 S   82/46 E   82/46 L
        N.LRB           7                  83/07 D
        N.OT         4620   PROGRAM*       83/13 E   83/13 L
        N.ST         4617   PROGRAM*       83/12 E   83/12 L
        N.TLAB       4641   PROGRAM*       83/32 E   83/32 L
        N.VD         4622   PROGRAM*       83/15 E   83/15 L
        OLIST        4130   PROGRAM*       82/17 E   82/17 D
        OPF          3141   PROGRAM*       12/32     14/26 L   16/06     16/08
        OPF3         3152   PROGRAM*       14/42 L
        OPF4         3155   PROGRAM*       14/43     14/49 L
        OPF4A        3157   PROGRAM*       14/52     14/55 L
        OPF4B        3175   PROGRAM*       15/43     15/48 L
        OPF4C        3165   PROGRAM*       15/06     15/08 L
        OPF4D.5      3175   PROGRAM*       15/40     15/45 L
        OPF4E        3202   PROGRAM*       15/51     15/55 L
        OPF5         3204   PROGRAM*       15/49     15/53     15/56 L
        OPF6         3206   PROGRAM*       16/03 L   16/16
        OPF7         3216   PROGRAM*       14/39     16/13 L
        OPF8         3221   PROGRAM*       16/14     16/16 L
        OPTLVL       4702   PROGRAM*       13/05 S   84/46 E   84/46 L
        OPT2         4703   PROGRAM*       13/06 S   84/47 E   84/47 L
        ORGTAB       4407   PROGRAM*       82/50 E   82/50 L
        ORIGINS      4766   PROGRAM*       21/13 S   87/14 E   87/16 L
        OT.          4663   PROGRAM*       84/08 E   84/08 L
        OUTUSE       3771   PROGRAM*       73/18 E   73/18 L   73/25     73/38
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        OVLA            0   EXTERNAL*      13/18     13/19
        OVLB            0   EXTERNAL*      13/18     13/19
        OVL21           0   EXTERNAL*      13/19
        OVL24           0   EXTERNAL*      13/18
        O.API        4675   PROGRAM*       84/29 E   84/29 L
        O.ARLST      4777   PROGRAM*       87/43 E   87/43 L
        O.ASF        4776   PROGRAM*       87/42 E   87/42 L   87/56
        O.BATCH      4145   PROGRAM*       21/14 S   82/42 D   84/32
        O.CEP        4701   PROGRAM*       21/26 S   84/37 E   84/37 L
        O.CMPS       2004   PROGRAM*        4/49 L   14/37
        O.COM        4766   PROGRAM*       87/29 E   87/29 L
        O.CON        5000   PROGRAM*       87/45 E   87/45 L
        O.DATA       5001   PROGRAM*       87/46 E   87/46 L
        O.DCON       4771   PROGRAM*       87/32 E   87/32 L
        O.DIL        5002   PROGRAM*       87/47 E   87/47 L
        O.DIM        4770   PROGRAM*       87/31 E   87/31 L
        O.DIT        5003   PROGRAM*       87/48 E   87/48 L
        O.DOLST      5006   PROGRAM*       87/51 E   87/51 L
        O.ECT        4773   PROGRAM*       87/37 E   87/37 D
        O.ENTR       5004   PROGRAM*       87/49 E   87/49 L
        O.EOT        4774   PROGRAM*       87/38 E   87/38 L
        O.EQV        4767   PROGRAM*       87/30 E   87/30 L
        O.EXT        4776   PROGRAM*       87/56 E   87/56 D
        O.FPBL       4775   PROGRAM*       87/41 E   87/41 L   87/57
        O.GLT        4674   PROGRAM*       84/28 E   84/28 L
        O.IOLST      5007   PROGRAM*       87/52 E   87/52 L
        O.IOT        4676   PROGRAM*       84/30 E   84/30 L
        O.LAT        4772   PROGRAM*       87/35 E   87/35 L
        O.LBLK       4607   PROGRAM*       82/55 E   82/56 D   83/07
        O.LGO           0   PROGRAM*        5/01 D   14/37
        O.LOOP       4642   PROGRAM*       83/36 E   83/36 L
        O.LTAB       5010   PROGRAM*       87/53 E   87/53 L
        O.NML        5005   PROGRAM*       87/50 E   87/50 L
        O.RLST          0   PROGRAM*        4/48 L    5/01     14/37
        O.SCA        4773   PROGRAM*       87/36 E   87/36 L   87/37
        O.SCR        5011   PROGRAM*       87/55 E   87/55 L
        O.STITL      4133   PROGRAM*       21/24 S   54/26     54/32 S   55/24     82/23 E   82/23 L
        O.SYMTAB       12                   3/12 D    7/08      9/11     14/55 S   21/36 S
        O.TITL          0   EXTERNAL*       3/24 X   55/22
        O.TSS        4650   PROGRAM*       83/52 E   83/53 D
        O.UDV        4775   PROGRAM*       87/57 E   87/57 D
        PDFLAG          0   EXTERNAL*       3/20 X
        PHASE        4666   PROGRAM*       84/15 E   84/15 L
        PMDFLAG         0   EXTERNAL*      12/41     89/08
        PRETOP       3026   PROGRAM*        7/25      7/48 L
        PROGNAM      4124   PROGRAM*       82/04 E   82/04 L   89/12
        PR.MXFL         0   EXTERNAL*      13/09 S
        PUTTAB       4722   PROGRAM*       88/37 E   89/04 L   89/10     89/11     89/13     89/48
        P2NOGO       4647   PROGRAM*       83/44 E   83/44 L
        P.DBGI         23   FTNTEXT         9/47
        P.RB           14   FTNTEXT        90/33     90/37     90/41     90/45     90/50     90/54
                                           90/36     90/40     90/43     90/47     90/53     90/55
        P.RL           45   FTNTEXT        90/33     90/37     90/41     90/45     90/50     90/54
                                           90/36     90/40     90/43     90/47     90/53     90/55
        P.SNT          43   FTNTEXT         9/52
        P.TYP          70   FTNTEXT         9/52     90/33     90/37     90/41     90/45     90/50     90/54
                                           10/14     90/36     90/40     90/43     90/47     90/53     90/55
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
  U     QUAL$                              23/06 F   26/02 F   29/06 F   31/56 F   35/06 F   42/54 F   46/06 F   71/18 F
                                           24/12 F   27/06 F   30/43 F   33/06 F   36/28 F   44/06 F   50/57 F
                                           25/06 F   28/36 F   31/06 F   34/34 F   37/06 F   45/20 F   68/06 F
        RA.ARG          2   CPUTEXT        19/42     19/43
        RA.ORG        100   CPUTEXT        76/42
        RA.SSW          0   CPUTEXT         3/14     76/22
        RB=             7                  90/33 D   90/36     90/40 D   90/41     90/45 D   90/47     90/53 D   90/54
                                           90/33     90/37 D   90/40     90/43 D   90/45     90/50 D   90/53     90/55 D
                                           90/36 D   90/37     90/41 D   90/43     90/47 D   90/50     90/54 D   90/55
        RCL=            0   EXTERNAL*      40/05     41/54     49/12     50/40
        RDC=         3446   PROGRAM*       36/30 D   36/37 E
        RDW=         3463   PROGRAM*       42/56 D   43/08 E
        RDX=         3541   PROGRAM*       36/18     36/22     42/57 D
        RETRN1       3025   PROGRAM*        7/40      7/42 L
        RETURNS      4634   PROGRAM*       83/27 E   83/27 L
        RL=             1                  90/33 D   90/36     90/40 D   90/41     90/45 D   90/47     90/53 D   90/54
                                           90/33     90/37 D   90/40     90/43 D   90/45     90/50 D   90/53     90/55 D
                                           90/36 D   90/37     90/41 D   90/43     90/47 D   90/50     90/54 D   90/55
        ROOMS        5036   PROGRAM*       87/14 E   87/20 L
        RPVB         4102   PROGRAM*       77/18 S   77/22     80/15 L
        RPVC         4106   PROGRAM*       76/37 S   77/23     80/16 L
        RPVD         4111   PROGRAM*       76/51     77/24     80/17 L
        RPV2         4042   PROGRAM*       76/21     76/25 L
        RPV3         4043   PROGRAM*       76/34     76/37 L
        RPV5         4053   PROGRAM*       77/13 L
        RPV6         4054   PROGRAM*       77/09     77/15 L
        RPV7         4060   PROGRAM*       77/06     77/23 L
        RSELECT      4131   PROGRAM*       82/18 E   82/18 D
        RSSW         3066   PROGRAM*       11/14 E   11/14 L   11/19
        RST          3303   PROGRAM*       17/32     21/05 L
        RST2         3326   PROGRAM*       21/57     22/03 L
        RST3         3333   PROGRAM*       22/04     22/07 L
        RST4         3342   PROGRAM*       22/15     22/17 L
        RS.PD           0   EXTERNAL*       3/21 X   17/43
        RTC             1                  86/26 D   87/51
        R=FLAG       4132   PROGRAM*       82/19 E   82/19 L
        SAVTBL       4721   PROGRAM*       88/29 E   88/30 L
        SCRTBL          0   EXTERNAL*      18/26
        SDATA.       4616   PROGRAM*       83/08 E   83/08 L
        SETCORE      4116   PROGRAM*       21/13     21/14     81/25 E   81/25 L   81/42
        SETC2        4114   PROGRAM*       81/20 L   81/23     81/41
        SFN          3423   PROGRAM*       32/01 D   32/08 E
        SIZE          312                  82/28 D   82/29     82/30 F
        SIZES        5012   PROGRAM*       87/14 E   87/18 L
        SLCOMM       3015   PROGRAM*        7/21 L    9/24
        SLIST        4145   PROGRAM*        7/20     82/43 L
        START.       4607   PROGRAM*       82/57 E   82/57 L
        STBIT          52                  88/12 D   88/25     88/25 D   88/26     88/26 D   88/27     88/27 D   88/30
        STFULL       3043   PROGRAM*        7/31      9/29 L
        STLTAB       4704   PROGRAM*       85/24 E   85/25 L
        ST.          4662   PROGRAM*       84/07 E   84/07 L
        SYMBOL       3006   PROGRAM*        3/19 E    7/01 L
        SYMDMP       4760   PROGRAM*       91/03 E   91/03 L   91/04
        SYMORD       4144   PROGRAM*        7/03      7/39 S    9/06     21/27 S   82/41 E   82/41 L
        SYS=            0   EXTERNAL*      12/21     34/10     78/29
        S.ARLST      5047   PROGRAM*       87/43 E   87/43 L
        S.ASF        5046   PROGRAM*       87/42 E   87/42 L   87/56
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        S.COM        5036   PROGRAM*       87/29 E   87/29 L
        S.CON        5050   PROGRAM*       87/45 E   87/45 L
        S.DATA       5051   PROGRAM*       87/46 E   87/46 L
        S.DCON       5041   PROGRAM*       87/32 E   87/32 L
        S.DIL        5052   PROGRAM*       87/47 E   87/47 L
        S.DIM        5040   PROGRAM*       87/31 E   87/31 L
        S.DIT        5053   PROGRAM*       87/48 E   87/48 L
        S.DOLST      5056   PROGRAM*       87/51 E   87/51 L
        S.ECT        5043   PROGRAM*       87/37 E   87/37 D
        S.ENTR       5054   PROGRAM*       87/49 E   87/49 L
        S.EOT        5044   PROGRAM*       87/38 E   87/38 L
        S.EQV        5037   PROGRAM*       87/30 E   87/30 L
        S.EXT        5046   PROGRAM*       87/56 E   87/56 D
        S.FPBL       5045   PROGRAM*       87/41 E   87/41 L   87/57
        S.IOLST      5057   PROGRAM*       87/52 E   87/52 L
        S.LAT        5042   PROGRAM*       87/35 E   87/35 L
        S.LTAB       5060   PROGRAM*       87/53 E   87/53 L
        S.NML        5055   PROGRAM*       87/50 E   87/50 L
        S.SCA        5043   PROGRAM*       87/36 E   87/36 L   87/37
        S.SCR        5061   PROGRAM*       87/55 E   87/55 L
        S.UDV        5045   PROGRAM*       87/57 E   87/57 D
        TABDMP       4762   PROGRAM*       91/06 E   91/06 L   91/07
        TEMPA0.      4650   PROGRAM*       83/54 E   83/54 L
        TEST            0   FTNTEXT        12/13 F   14/51 F   21/49 F   77/10 F   78/30 F   81/27 F
                                           12/20 F   18/35 F   75/40 F   77/34 F   78/47 F   91/01 F
                                           14/28 F   19/31 F   76/27 F   78/02 F   80/19 F   92/43 F
        TINFO        5062   PROGRAM*       87/14 E   87/22 L   88/07
        TL.DATE         0   EXTERNAL*       3/24 X
        TL.PAGE         0   EXTERNAL*       3/24 X   55/01 S
        TL.TIME         0   EXTERNAL*       3/24 X
        TOP          3027   PROGRAM*        7/50 L    8/01
        TRACE.       4652   PROGRAM*       83/56 E   83/56 L
        TY=             0                  90/33 D   90/36     90/40 D   90/41     90/45 D   90/47     90/53 D   90/54
                                           90/33     90/37 D   90/40     90/43 D   90/45     90/50 D   90/53     90/55 D
                                           90/36 D   90/37     90/41 D   90/43     90/47 D   90/50     90/54 D   90/55
        T.CGS          14   FTNTEXT        90/36     90/40     90/41     90/43     90/50     90/53
        T.FPBL       5071   PROGRAM*       88/06 E   88/07 D
        T.LFN          13   FTNTEXT        90/37
        T.NML          10   FTNTEXT        90/45
        UCODE.       4007   PROGRAM*       74/07 E   74/07 L
        UDATA.       4010   PROGRAM*       74/08 E   74/08 L
        UDATA..      4011   PROGRAM*       74/09 E   74/09 L
        UENTRY.      4006   PROGRAM*       74/06 E   74/06 L
        UFLAG           0   EXTERNAL*       3/25 X   18/14     19/02     21/53
        UHOL.        4012   PROGRAM*       74/10 E   74/10 L
        USKIP1       3117   PROGRAM*       12/42     12/49 L
        USTART.      4004   PROGRAM*       74/04 E   74/04 L
        UVARDIM      4005   PROGRAM*       74/05 E   74/05 L
        VALUE.       4651   PROGRAM*       83/55 E   83/55 L
        VARDIM       4636   PROGRAM*       83/29 E   83/29 L
        VARDIM.      4610   PROGRAM*       83/01 E   83/01 L
        VD.          4665   PROGRAM*       84/10 E   84/10 L
        V.LDO        1000   FTNTEXT        90/43     90/50
        WB.CON       4751   PROGRAM*       90/43 E   90/43 L
        WB.ECGS      4755   PROGRAM*       90/53 E   90/53 L
        WB.ESS       4745   PROGRAM*       90/36 E   90/36 L
        WB.FMT       4753   PROGRAM*       90/47 E   90/47 L
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        WB.FP        4757   PROGRAM*       90/55 E   90/55 L
        WB.FTN       4747   PROGRAM*       90/40 E   90/40 L
        WB.HOL       4754   PROGRAM*       90/50 E   90/50 L
        WB.LAB       4744   PROGRAM*       90/33 E   90/33 L
        WB.LFN       4746   PROGRAM*       90/37 E   90/37 L
        WB.NML       4752   PROGRAM*       90/45 E   90/45 L
        WB.NOP       4750   PROGRAM*       90/41 E   90/41 L
        WB.PROG      4756   PROGRAM*       90/54 E   90/54 L
        WNB=            0   EXTERNAL*      15/31     19/48     22/16     33/43     68/41
        WTC=         3577   PROGRAM*       17/49     45/29 E   54/43     55/22     72/04
                                           45/22 D   52/19     55/15     55/24     73/36
        WTW=         3613   PROGRAM*       51/02 D   51/11 E
        WTX=         3660   PROGRAM*       45/14     51/03 D
        XFRNAME      4631   PROGRAM*       83/24 E   83/24 L
        XJP          4013   PROGRAM*       12/21     75/25 L   76/16
        ZZZZZSY      4737   PROGRAM*       12/43     12/46 S   12/48 S   89/36 S   89/37 S   89/39     89/54 L
        Z.ARLST        11                  87/43 D   87/43 E
        Z.ASF          10                  87/42 D   87/42 E   87/56
        Z.COM           0                  87/29 D   87/29 E
        Z.CON          12                  87/45 D   87/45 E
        Z.DATA         13                  87/46 D   87/46 E
        Z.DCON          3                  87/32 D   87/32 E
        Z.DIL          14                  87/47 D   87/47 E
        Z.DIM           2                  87/31 D   87/31 E
        Z.DIT          15                  87/48 D   87/48 E
        Z.DOLST        20                  87/51 D   87/51 E
        Z.ECT           5                  87/37 E   87/37 D
        Z.ENTR         16                  87/49 D   87/49 E   88/30
        Z.EOT           6                  87/38 D   87/38 E
        Z.EQV           1                  87/30 D   87/30 E
        Z.EXT          10                  87/56 E   87/56 D   88/30
        Z.FPBL          7                  87/41 D   87/41 E   87/57     88/07
        Z.IOLST        21                  87/52 D   87/52 E
        Z.LAT           4                  87/35 D   87/35 E
        Z.LTAB         22                  87/53 D   87/53 E
        Z.NML          17                  87/50 D   87/50 E
        Z.SCA           5                  87/36 D   87/36 E   87/37
        Z.SCR          23                  87/55 D   87/55 E
        Z.UDV           7                  87/57 E   87/57 D   88/30
        .OS             1   FTNTEXT        12/19 F   15/30 F   15/33 F   75/24 F   78/26 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCDD 
  
  
        CDD          3350   PROGRAM*       23/51 L   24/14
        CDDA         3354   PROGRAM*       23/52     24/04 L
        CDD1         3345   PROGRAM*       23/39 L   23/47     24/02
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCOD 
  
  
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE   101
        SYMBOLIC REFERENCE TABLE.                                     COMCCOD 
  
        COD          3357   PROGRAM*       25/39 L   25/54     26/04
        CODA         3365   PROGRAM*       25/40     25/56 L
        COD1         3362   PROGRAM*       25/45 L   25/51
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCDXB 
  
  
        DXB          3376   PROGRAM*       28/11     28/14     28/17     28/20 L   28/38
        DXB1         3366   PROGRAM*       27/47 L   28/04
        DXB2         3370   PROGRAM*       27/55 L   28/30
        DXB3         3375   PROGRAM*       28/09     28/12     28/16 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCMVE 
  
  
        MVE1         3421   PROGRAM*       30/29     30/34 L
        MVE2         3403   PROGRAM*       29/39 L   30/25
        MVE3         3406   PROGRAM*       29/43     29/52 L   30/37
        MVE4         3412   PROGRAM*       30/10 L   30/18
        MVE=         3415   PROGRAM*       29/52     30/04     30/20 L   30/45
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCSFN 
  
  
        SFN          3423   PROGRAM*       31/34 L   31/47     32/01
        SFNA         3430   PROGRAM*       31/36     31/49 L
        SFNB         3431   PROGRAM*       31/50 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCIO 
  
  
  U     B1=1                               34/17 F
        CIO1         3432   PROGRAM*       33/43 L   34/16
        CIO2         3433   PROGRAM*       33/45 L   34/15
        CIO3         3436   PROGRAM*       34/02     34/05 L
        CIO=         3440   PROGRAM*       34/12 L   34/28     34/36
  U     ERP$                               33/44 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCRDC 
  
  
  U     B1=1                               35/48 F
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE   102
        SYMBOLIC REFERENCE TABLE.                                     COMCRDC 
  
        RDC1         3452   PROGRAM*       35/43     36/02 L
        RDC2         3453   PROGRAM*       36/09 L   36/19
        RDC3         3455   PROGRAM*       36/13     36/15 L
        RDC=         3446   PROGRAM*       35/45 L   36/30
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCRDW 
  
  
  U     B1=1                               37/57 F
        LCB1         3553   PROGRAM*       41/55 L   42/03
        LCB2         3554   PROGRAM*       41/53     42/01 L
        LCB3         3561   PROGRAM*       42/06     42/16 L
        LCB4         3565   PROGRAM*       42/22     42/29 L   42/40
        LCB4.1       3566   PROGRAM*       42/32 L   42/46
        LCB5         3567   PROGRAM*       42/28     42/34 L
        LCB6         3574   PROGRAM*       42/31     42/45 L
        LCB=         3551   PROGRAM*       41/49 L   43/01
        RDW1         3464   PROGRAM*       37/52     37/55 L   39/53     40/06     40/10     40/17
        RDW10        3526   PROGRAM*       40/06 L
        RDW11        3527   PROGRAM*       40/04     40/08 L
        RDW12        3534   PROGRAM*       40/11     40/19 L
        RDW13        3537   PROGRAM*       40/22     40/25     40/27 L
        RDW14        3513   PROGRAM*       39/28     39/33 L
        RDW2         3470   PROGRAM*       38/07     38/09 L
        RDW3         3471   PROGRAM*       38/10     38/12 L
        RDW4         3474   PROGRAM*       38/27 L   38/31
        RDW5         3476   PROGRAM*       38/26     38/35 L
        RDW6         3500   PROGRAM*       38/45 L   39/13
        RDW7         3460   PROGRAM*       37/43 L   38/35
        RDW8         3462   PROGRAM*       37/47     37/50 L   39/33     39/35     39/44
        RDW9         3524   PROGRAM*       38/12     40/01 L
        RDW=         3463   PROGRAM*       37/54 L   39/54     40/31     42/56
        RDX1         3550   PROGRAM*       41/04     41/06     41/18     41/24 L
        RDX=         3541   PROGRAM*       40/56 L   42/57
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWTC 
  
  
  U     B1=1                               44/44 F
        WTC1         3603   PROGRAM*       44/39     44/54 L
        WTC2         3604   PROGRAM*       45/03 L   45/13
        WTC3         3605   PROGRAM*       45/04     45/06 L
        WTC=         3577   PROGRAM*       44/41 L   45/22
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWTW 
  
  
  U     B1=1                               47/03 F
1       LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH             COMPASS 3.7-871.     24/05/02. 15.53.19.      PAGE   103
        SYMBOLIC REFERENCE TABLE.                                     COMCWTW 
  
        DCB1         3673   PROGRAM*       50/38     50/39     50/49 L
        DCB=         3667   PROGRAM*       50/34 L   51/04
  U     WRIF$                              48/53 F   49/14 F   50/05 F   50/43 F
        WTW1         3614   PROGRAM*       46/55     47/01 L   49/03     49/13     49/21
        WTW10        3653   PROGRAM*       47/19     49/08 L
        WTW11        3656   PROGRAM*       49/10     49/11     49/20 L
        WTW12        3645   PROGRAM*       48/37     48/42 L
        WTW13        3652   PROGRAM*       48/52     49/03 L
        WTW2         3621   PROGRAM*       47/13     47/15 L
        WTW3         3622   PROGRAM*       47/15     47/17 L
        WTW4         3624   PROGRAM*       47/21     47/26 L
        WTW5         3626   PROGRAM*       47/36 L   47/40
        WTW6         3630   PROGRAM*       47/32     47/44 L
        WTW7         3632   PROGRAM*       47/54 L   48/22
        WTW8         3610   PROGRAM*       46/47 L   47/44
        WTW9         3612   PROGRAM*       46/51     46/54 L   48/42
        WTW=         3613   PROGRAM*       46/57 L   47/06     49/04     51/02
        WTX1         3666   PROGRAM*       49/48     50/04     50/13 L
        WTX=         3660   PROGRAM*       49/44 L   51/03
  
  
  
  
                                                  SYMBOL QUALIFIER =  FA=SET
  
  
        FA=SET       3742   PROGRAM*       68/37 L   69/18     71/20
        SET2         3745   PROGRAM*       68/40     68/46 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  FRA 
  
  
        FRA2         4074   PROGRAM*       79/31     79/36 L   79/40
        FRA3         4076   PROGRAM*       79/39     79/44 L
        FRA=         4072   PROGRAM*       79/28 L   80/03
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  OUTPK20
                          0                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=OPK20          0+ 
  
  
  
  
                                                  IDENT  OUTPK20                                                 OUTPK20     2
             0                           B=OPK20  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     OUTPK20     3
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                         .TEST    IFNE   TEST,0                                                  OUTPK20     5
                                         OUTPTK   TITLE  OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY          OUTPTK      2
                                                                                                                 FCC1119     4
                                                  MACRO  FORM,NAME                                               OUTPTK      5
                                        NAME      BSS    0                                                       OUTPTK      6
                                        NAME()    SET    *                                                       OUTPTK      7
                                         FORM     ENDM                                                           OUTPTK      8
                                                                                                                 FCC1119     5
                                        INVOKE    MACRO  FORM                                                    OUTPTK     10
                                                  SB7    FORM                                                    OUTPTK     11
                                                  RJ     RETURN                                                  OUTPTK     12
                                                  RMT                                                            OUTPTK     13
                                                  IF     -DEF,FORM(),1                                           OUTPTK     14
                                                  ERR    FORM NOT INVOKABLE, CHECK CROSS REFERENCES AND CHANGE   OUTPTK     15
                                                  RMT                                                            OUTPTK     16
                                        INVOKE    ENDM                                                           OUTPTK     17
                                         LOCN     SPACE  3                                                       OUTPTK     18
                                        LOCN      MACRO  CHAR,ADDRESS                                            OUTPTK     19
                                        CHARNOW   MICRO  1,0, CHAR                                               OUTPTK     20
                                        LASTCHAR  MICRO  2,1, CHAR                                               OUTPTK     21
                                                  IFC    EQ, "LASTCHAR"  ,1                                      OUTPTK     22
                                        CHARNOW   MICRO  1,0, 1R_CHAR                                            OUTPTK     23
                                        *                                                                        OUTPTK     24
                                         .A       IFLE   "CHARNOW",LASTCHAR                                      OUTPTK     25
                                                  ERR    (CHAR) - FORMAT CHARACTER OUT OF SEQUENCE "SEQUENCE".   OUTPTK     26
                                         .A       ELSE                                                           OUTPTK     27
                                         .B       DUP    "CHARNOW"-LASTCHAR-1                                    OUTPTK     28
                                                  IFEQ   $,59,2                                                  OUTPTK     29
                                                  JP     ILLEGAL                                                 OUTPTK     30
                                                  SKIP   1                                                       OUTPTK     31
                                        -         JP     ILLEGAL                                                 OUTPTK     32
                                         .B       ENDD                                                           OUTPTK     33
                                         .A       ENDIF                                                          OUTPTK     34
                                        *                                                                        OUTPTK     35
                                                  IFEQ   $,59,2                                                  OUTPTK     36
                                                  JP     ADDRESS                                                 OUTPTK     37
                                                  SKIP   1                                                       OUTPTK     38
                                        -         JP     ADDRESS                                                 OUTPTK     39
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     2
  
  
                                        *                                                                        OUTPTK     40
                                         LASTCHAR SET    "CHARNOW"                                               OUTPTK     41
                                         LOCN     ENDM                                                           OUTPTK     42
                                                                                                                 OUTPTK     43
                                                                                                                 OUTPTK     44
                                        LASTCHAR  SET    -1                                                      OUTPTK     46
                                         BSS      OPSYN  BSSZ                                                    OUTPTK     47
                                                  TITLE                  SYMBOL AND STORAGE DEFINITION           OUTPTK     48
                                        DIGMASK   DATA   00000000077740000000B                                   OUTPTK     49
                                         NEEDW    BSS    0                                                       OUTPTK     50
                                                  ECHO   2,L=(A,I,L,O,R,T,Z)                                     OUTPTK     51
                                                  POS    60-1R_L                                                 OUTPTK     52
                                                  VFD    1/1                                                     OUTPTK     53
                                                  VFD    *P/0                                                    OUTPTK     54
                                        TEMPA0.   BSS    1                                                       OUTPTK     55
                                        APLIST    BSS    1                                                       OUTPTK     56
                                        R         BSS    1               FIELD DESCRIPTOR REPEAT COUNT           OUTPTK     57
                                        W         BSS    1               WIDTH                                   OUTPTK     58
                                        GOCELL    BSS    1                                                       OUTPTK     59
                                        GRC       BSS    1               GROUP REPEAT COUNT FOR CURRENT GROUP    OUTPTK     60
                                        FORMAT    BSS    1                                                       OUTPTK     61
                                        LEVEL     BSS    1                                                       OUTPTK     62
                                        GROUPADR  BSS    1                                                       OUTPTK     63
                                        HCOUNT    BSS    1                                                       OUTPTK     64
                                        MAXLEVEL  EQU    2               THE MAXIMUM NUMBER OF GROUP LEVELS      OUTPTK     65
                                        LEVSTACK  BSS    MAXLEVEL+1      STORAGE FOR GROUP LEVEL STACK           OUTPTK     66
                                        UNIT      BSS    1               HOLDS I/O UNIT DESIGNATION              OUTPTK     67
                                        MAXCOUNT  BSS    1                                                       OUTPTK     68
                                         RESCAN   BSS    1               HOLDS LEVEL STACK INFORMATION FOR       OUTPTK     69
                                                                           RESCANNING THE FORMAT WHEN THE        OUTPTK     70
                                                                           TERMINAL RIGHT PARENTHESIS IS REACHED OUTPTK     71
                                        PARENFLG  BSS    1                                                       OUTPTK     72
                                        RESETLIN  BSS    1                                                       OUTPTK     73
                                        RESETFMT  BSS    1                                                       OUTPTK     74
                                        RESETX3   BSS    1               TEMPORARY STORAGE USED BY 'SLASH'       OUTPTK     75
                                        RESETITM  BSS    1               TEMPORARY STORAGE USED BY 'SLASH'       OUTPTK     76
                                                                                                                 OUTPTK     77
                                        OUTADDR   VFD    60/BUFFER       BEGINNING OF OTUPUT LINE                OUTPTK     78
                                                  USE    /LINE/                                                  OUTPTK     79
                                         CONTINUE BSSZ   1           * EXPLICIT LINE TERMINATION MODE FLAG *     OUTPTK     80
                                                  VFD    12/2000B,48/BUFFER        VALUE TO SET TO FOR CONT MODE OUTPTK     81
                                        BUFFER    BSSZ   16                                                      OUTPTK     82
                                                  USE    *                                                       OUTPTK     83
                                                                                                                 OUTPTK     84
                                        FORMS     BSS    0                                                       OUTPTK     85
                                                  LOCN   A,AFORMP        ALPHANUMERIC (LEFT JUSTIFIED)           FCC1119     6
                                                  LOCN   H,HFORM         HOLLERITH STRING PROCESSING (COUNT)     OUTPTK     87
                                                  LOCN   I,IFORM         INTEGER CONVERSION                      OUTPTK     88
                                                  LOCN   L,LFORM                                                 OUTPTK     89
                                                  LOCN   O,OFORM         OCTAL CONVERSION                        OUTPTK     90
                                                  LOCN   R,RFORM         ALPHANUMERIC (RIGHT JUSTIFIED)          OUTPTK     91
                                                  LOCN   T,TFORM         TABULATE (TEXT EDITING)                 OUTPTK     92
                                                  LOCN   X,XFORM         SPACING  (TEXT EDITING)                 OUTPTK     93
                                                  LOCN   Z,ZFORM     OCTAL CONVERSION ( LEADING BLANK FILL )     OUTPTK     94
                                                  LOCN   *,DELIM         HOLERITH STRING (DELIMITED)             OUTPTK     95
                                                  LOCN   /,SLASH         TERMINATE CURRENT RECORD                OUTPTK     96
                                                  LOCN   1R(,LPFORM      BEGIN FIELD DESCRIPTOR GROUPING         OUTPTK     97
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     3
  
  
                                                  LOCN   1R),RPFORM      END FIELD DESCRIPTOR GROUPING           OUTPTK     98
                                                  LOCN   55B,RETURNX                                             OUTPTK     99
                                                  LOCN   (,),NEXTDESC    FIELD DESCRIPTOR SEPARATOR              OUTPTK    100
                                                  LOCN   64B,DELIM       HOLLERITH STRING (DELIMITED)            OUTPTK    101
                                                  TITLE                  INITIALIZATION INTERFACE                OUTPTK    102
                                        ************************************************************************ OUTPTK    103
                                        *                                                                      * OUTPTK    104
                                        *                                                                      * OUTPTK    105
                                        *                                                                      * OUTPTK    106
                                        *                O U T C I . -- INITIAL ENTRY POINT                    * OUTPTK    107
                                        *                                                                      * OUTPTK    108
                                        *                                                                      * OUTPTK    109
                                        *                SAVE THE FORMAT ADDRESS, THE UNIT NUMBER AND SETUP    * OUTPTK    110
                                        *             FOR PROCESSING THE BEGINNING OF AN I/O SEQUENCE.         * OUTPTK    111
                                        *                                                                      * OUTPTK    112
                                        *                                                                      * OUTPTK    113
                                        ************************************************************************ OUTPTK    114
                                                  SPACE  1                                                       OUTPTK    115
                                        OUTCI.    ENTRY.                                                         OUTPTK    116
                                                  SB1    1                                                       OUTPTK    117
                                                  SX6    A0                                                      OUTPTK    118
                                                  SA2    A1+B1           GET APLIST FORMAT WORD.                 OUTPTK    119
                                                  SA6    TEMPA0.         SAVE FOR LATER RESTORATION.             OUTPTK    120
                                                  SX7    B1                                                      OUTPTK    121
                                                  SX6    X2                                                      OUTPTK    122
                                                  BX4    X6                                                      OUTPTK    123
                                                  SA7    GRC             SET THE GROUP REPEAT COUNT 'GRC' TO ONE OUTPTK    124
                                                                           FOR THE OUTER PARENTHESIS LEVEL.      OUTPTK    125
                                                  SPACE  1                                                       OUTPTK    126
                                                  SA6    FORMAT          SAVE THE FORMAT PARAMETER ADDRESS IN    OUTPTK    127
                                                                           'FORMAT'.                             OUTPTK    128
                                                  SPACE  1                                                       OUTPTK    129
                                                  LX2    2               DETERMINE THE ADDRESS OF THE FIRST WORD OUTPTK    130
                                                  NG     X2,INIT.1         OF THE FORMAT FROM THE 'VAR' BIT IN   OUTPTK    131
                                                  IX4    X6+X7             THE APLIST ENTRY.  IF THE BIT IS NOT  OUTPTK    132
                                                                           SET, THE ADDRESS IS INCREMENTED BY 1  OUTPTK    133
                                                                           TO YIELD THE TRUE FORMAT POINTER.     OUTPTK    134
                                                  SPACE  1                                                       OUTPTK    135
                                        INIT.1    SX3    X1              DETERMINE THE UNIT NUMBER OF THE FILE   OUTPTK    136
                                                  PL     X1,INIT.2         TO BE ACCESSED.  IF THE 'VAR' BIT IS  OUTPTK    137
                                                  SA3    X1                SET, THE ADDRESS POINTS TO A WORD     OUTPTK    138
                                                                           CONTAINING THE UNIT NUMBER.           OUTPTK    139
                                                                           OTHERWISE THE UNIT NUMBER IS          OUTPTK    140
                                                                           CONTAINED IN THE APLIST WORD ENTRY.   OUTPTK    141
                                                  SPACE  1                                                       OUTPTK    142
                                        INIT.2    SX6    A1+2                                                    OUTPTK    143
                                                  SA6    APLIST          SAVE THE APLIST POINTER FOR LATER       OUTPTK    144
                                                                           PROCESSING OF THE LIST ITEMS.         OUTPTK    145
                                                  SPACE  1                                                       OUTPTK    146
                                                  BX6    X3                                                      OUTPTK    147
                                                  SX5    60-2*6          SET THE INITIAL SHIFT COUNT FOR THE     OUTPTK    148
                                                  SB2    X5                FORMAT TO POINT JUST BEYOND THE       OUTPTK    149
                                                                           INITIAL LEFT PARENTHESIS.             OUTPTK    150
                                                  SA6    UNIT              (SAVE THE UNIT DESIGNATION.)          OUTPTK    151
                                                  LX5    18                                                      OUTPTK    152
                                                  IX6    X5+X4                                                   OUTPTK    153
                                                  SA2    X4              FETCH THE FIRST FORMAT WORD.            OUTPTK    154
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     4
  
  
                                                  SB6    60                                                      OUTPTK    155
                                                  SA6    GROUPADR        SAVE THE POINTERS TO THE OUTER          OUTPTK    156
                                                                           PARENTHESIS GROUP IN 'GROUPADR'.      OUTPTK    157
                                                  SA5    OUTADDR                                                 OUTPTK    158
                                                  LX6    18                                                      OUTPTK    159
                                                  IX7    X6+X7                                                   OUTPTK    160
                                                  SA7    LEVSTACK        SETUP THE INITIAL LEVEL STACK ENTRY--   OUTPTK    161
                                                  SA7    RESCAN            THE LEVEL STACK CONTAINS THE          OUTPTK    162
                                                                           NECESSARY INFORMATION FOR RESTARTING  OUTPTK    163
                                                                           THE FORMAT SCAN AT THE BEGINNING OF   OUTPTK    164
                                                                           A PARENTHESIS GROUP, THE ZERO LEVEL   OUTPTK    165
                                                                           ENTRY MUST THEREFORE CONTAIN THE      OUTPTK    166
                                                                           INFORMATION FOR RESTARTING THE FORM   OUTPTK    167
                                                                           SCAN WHEN THE FINAL RIGHT PARENTHESIS OUTPTK    168
                                                                           IN THE FORMAT IS ENCOUNTERED.  THE    OUTPTK    169
                                                                           INFORMATION FOR THE ZERO ENTRY IS     OUTPTK    170
                                                                                SHIFTCT = 48, POSITION AFTER '(' OUTPTK    171
                                                                                WORD    = ADDRESS OF FIRST       OUTPTK    172
                                                                                          FORMAT WORD            OUTPTK    173
                                                                                GRC    = 1, REMAINING REPEAT     OUTPTK    174
                                                                                          COUNT FOR GROUP        OUTPTK    175
                                                  SA3    CONTINUE                                                OUTPTK    176
                                                  PX5    X5                                                      OUTPTK    177
                                                  BX6    X6-X6                                                   OUTPTK    178
                                                  SA6    LEVEL           INITIALIZE THE LEVEL NUMBER FOR THE     OUTPTK    179
                                                                           LEVEL STACK.                          OUTPTK    180
                                                  SPACE  1                                                       OUTPTK    181
                                                  SB4    B0              SET THE ITEM COUNT TO ZERO              OUTPTK    182
                                                  SA6    PARENFLG        TURN OF THE TERMINAL RIGHT PAREN FLAG   OUTPTK    183
                                                  SPACE  1                                                       OUTPTK    184
                                                  ZR     X3,INIT.3       IF THE PROCESSING MODE IS 'EXPLICIT     OUTPTK    185
                                                  SA4    MAXCOUNT          LINE TERMINATION' THEN CONTINUE THE   OUTPTK    186
                                                  LX5    X3                LAST LINE WHERE THE PRECEDING WRITE   OUTPTK    187
                                                  BX6    X4                STATEMENT FINISHED (I.E. IF           OUTPTK    188
                                                                           'CONTINUE' IS NON-ZERO THEN IT        OUTPTK    189
                                                                           CONTAINS THE LINE INITIALIZING        OUTPTK    190
                                                                           INFORMATION, 'MAXCOUNT' SHOULD REMAIN OUTPTK    191
                                                                           UNCHANGED IF 'CONTINUE' IS NON-ZERO). OUTPTK    192
                                                  SPACE  1                                                       OUTPTK    193
                                        INIT.3    SA6    MAXCOUNT        SET THE MAXIMUM LENGTH ATTAINED FOR THE OUTPTK    194
                                                                           LINE (IF A TAB BACKWARD HAS OCCURRED) OUTPTK    195
                                                  SPACE  1                                                       OUTPTK    196
                                                  UX0    X5,B3           SET THE LINE POSITION POINTERS AND THEN OUTPTK    197
                                                  ZR     NEXTDESC          GO TO 'NEXTDESC' TO BEGIN PORCESSING. OUTPTK    198
                                                  EJECT                                                          OUTPTK    199
                                        **        OUTCR. - ITEM CONVERSION                                       OUTPTK    200
                                        *                                                                      * OUTPTK    201
                                        *         REGISTER CONVENTIONS --                                      * OUTPTK    202
                                        *                                                                      * OUTPTK    203
                                        *         B0 -- 0             A0 -- UNUSED        X0 -- OUTPUT WORD    * OUTPTK    204
                                        *         B1 -- 1             A1 -- DATA ADDRESS  X1 -- DATA ITEM      * OUTPTK    205
                                        *         B2 -- FORMAT SHIFT  A2 -- FORMAT ADDR   X2 -- FORMAT WORD    * OUTPTK    206
                                        *         B3 -- BITS FILLED   A3 -- SCRATCH       X3 -- SPECIAL HOLD   * OUTPTK    207
                                        *         B4 -- ITEM COUNT    A4 -- SCRATCH       X4 -- SCRATCH        * OUTPTK    208
                                        *         B5 -- SCRATCH       A5 -- SCRATCH       X5 -- SCRATCH        * OUTPTK    209
                                        *         B6 -- 60            A6 -- SCRATCH       X6 -- SCRATCH        * OUTPTK    210
                                        *         B7 -- SCRATCH       A7 -- SCRATCH       X7 -- SCRATCH        * OUTPTK    211
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     5
  
  
                                                  SPACE  1                                                       OUTPTK    212
                                        OUTPTCX   PX6    X0,B3           SAVE THE CURRENT POINTERS TO THE OUTPUT OUTPTK    213
                                                  SX5    A2                LINE AND THE FORMAT.                  OUTPTK    214
                                                  SA6    RESETLIN                                                OUTPTK    215
                                                  PX7    X5,B2                                                   OUTPTK    216
                                                  SB5    B1                                                      OUTPTK    217
                                                  SA7    RESETFMT                                                OUTPTK    218
                                                  SA2    TEMPA0.                                                 OUTPTK    219
                                                  SB2    B1                                                      OUTPTK    220
                                                  SA0    X2                                                      OUTPTK    221
                                                  SPACE  1                                                       OUTPTK    222
                                                  SA2    APLIST                                                  OUTPTK    223
                                                  SA3    X2              OBTAIN APLIST ITEM WORD ENTRY.          OUTPTK    224
                                                  SPACE  1                                                       OUTPTK    225
                                                  SB1    -B1             PRESET IN CASE OF TERMINAL CALL.        OUTPTK    226
                                                  NZ     X3,PRESET       IF NOT END OF I/O PARAMETER LIST.       OUTPTK    227
                                                  PL     X3,PRESET.2       ELSE GO TO 'PRESET.2' TO HANDLE THE   OUTPTK    228
                                                                           END OF I/O LIST PROCESSING.           OUTPTK    229
                                                  EQ     OUTCI.                                                  OUTPTK    230
                                                                                                                 OUTPTK    231
                                         OUTCR.   ENTRY.                   ENTRY POINT FOR INTERRUPTED I/O LIST  OUTPTK    232
                                                  SA2    APLIST          MAKE THINGS LOOK AS IF THERE WAS NOT AN OUTPTK    233
                                                  SA5    OUTCR.            INTERRUPTION.                         OUTPTK    234
                                                  LX7    X5                                                      OUTPTK    235
                                                  SX2    A1                                                      OUTPTK    236
                                                  SA7    OUTCI.                                                  OUTPTK    237
                                                  BX3    X1                                                      OUTPTK    238
                                                  SB1    -1                                                      OUTPTK    239
                                                                                                                 OUTPTK    240
                                                                                                                 OUTPTK    241
                                         PRESET   ZR     X3,PRESET.1       IF TERMINAL CALL                      OUTPTK    242
                                                  IX4    X3+X3                                                   OUTPTK    243
                                                  SB1    X3                (B1) = DATA ITEM ADDRESS              OUTPTK    244
                                                  PL     X4,PRESET.1       IF ITEM IS ^ F.P.                     OUTPTK    245
                                                  SPACE  1                                                       OUTPTK    246
                                                  AX4    1                                                       OUTPTK    247
                                                  MX0    60-6                                                    OUTPTK    248
                                                  BX6    -X0*X4                                                  OUTPTK    249
                                                  LX4    60-6                                                    OUTPTK    250
                                                  SB3    X6                                                      OUTPTK    251
                                                  SA5    A0+B3           COMPUTE THE DATA ITEM ADDRESS BY ADDING OUTPTK    252
                                                  SB6    X4                THE FP OFFSET TO THE APPROPRIATE FP   OUTPTK    253
                                                  SB1    X5+B6             ADDRESS IN THE SUBROUTINE APLIST.     OUTPTK    254
                                                  SPACE  1                                                       OUTPTK    255
                                        PRESET.1  SX7    X2+1            INCREMENT THE APLIST POINTER, AND SET   OUTPTK    256
                                                  AX3    24                THE ITEM COUNT INTO B2.  A ZERO ITEM  OUTPTK    257
                                                  SA7    A2                COUNT WILL BE TREATED AS AN ITEM      OUTPTK    258
                                                  SB2    X3                COUNT OF 1.                           OUTPTK    259
                                                  NZ     B2,PRESET.2                                             OUTPTK    260
                                                  SB2    1                                                       OUTPTK    261
                                                  SPACE  1                                                       OUTPTK    262
                                        PRESET.2  SA5    RESETLIN                                                OUTPTK    263
                                                  SA4    RESETFMT                                                OUTPTK    264
                                                  PL     B1,SETUP.1      IF THIS IS NOT A FINAL ENTRY THEN GO    OUTPTK    265
                                                  SB2    B1                TO 'SETUP.1', OTHERWISE SWITCH THE    OUTPTK    266
                                                  SB1    -B1               FINAL INDICATOR FOR A LATER CHECK.    OUTPTK    267
                                                  SPACE  1                                                       OUTPTK    268
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     6
  
  
                                        SETUP.1   SA1    B1-1            SET THE BASE DATA ITEM ADDRESS (I.E.    OUTPTK    269
                                                                           POINT TO THE WORD IMMEDIATELY PRIOR   OUTPTK    270
                                                                           TO THE SET OF DATA ITEMS).            OUTPTK    271
                                                  SPACE  1                                                       OUTPTK    272
                                                  UX0    X5,B3           SETUP THE POINTERS TO THE LINE.         OUTPTK    273
                                                  SA2    X4              PICK UP THE CURRENT FORMAT WORD.        OUTPTK    274
                                                  SB4    B2              SETUP THE COUNT OF THE NUMBER OF ITEMS  OUTPTK    275
                                                                           TO CONVERT.                           OUTPTK    276
                                                  SB1    1                                                       OUTPTK    277
                                                  UX4    X4,B2           SETUP THE FORMAT SHIFT COUNT POINTER9   OUTPTK    278
                                                  SB6    60                                                      OUTPTK    279
                                                  SA5    PARENFLG                                                OUTPTK    280
                                                  PL     B4,INTER        IF THIS IS AN INTERMEDIATE ENTRY THEN   OUTPTK    281
                                                                           GO TO !INTER' TO ENTER THE            OUTPTK    282
                                                                           PROCESSING CYCLE.                     OUTPTK    283
                                                  SA5    CONTINUE                                                OUTPTK    284
                                                  SA4    OUTADDR                                                 OUTPTK    285
                                                  NZ     X5,SETUP.2      IF THE PROCESSING MODE IS 'EXPLICIT     OUTPTK    286
                                                                           LINE TERMINATION' THEN GO TO          OUTPTK    287
                                                                           'SETUP.2'.                            OUTPTK    288
                                                  SPACE  1                                                       OUTPTK    289
                                                  SA5    MAXCOUNT        OTHERWISE INVOKE 'SLASH' TO DUMP THE    OUTPTK    290
                                                  IX3    X0-X4             CURRENT OUTPUT LINE IF IT IS NOT      OUTPTK    291
                                                  SX6    X3+B3             EMPTY.                                OUTPTK    292
                                                  BX7    X6+X5                                                   OUTPTK    293
                                                  ZR     X7,OUTCI.       WHEN (IF NECESSARY) THE OUTPUT LINE HAS OUTPTK    294
                                                  INVOKE SLASH           BEEN DUMPED, RETURN TO THE CALLER.      OUTPTK    295
                                                  EQ     OUTCI.                                                  OUTPTK    296
                                                  SPACE  1                                                       OUTPTK    297
                                        SETUP.2   PX6    X0,B3           SINCE 'EXPLICIT LINE TERMINATION' IS IN OUTPTK    298
                                                  NO                       FORCE, SAVE THE CURRENT LINE POINTERS OUTPTK    299
                                                  SA6    CONTINUE          AND  RETURN TO THE CALLER.            OUTPTK    300
                                                  EQ     OUTCI.                                                  OUTPTK    301
                                                  SPACE  1                                                       OUTPTK    302
                                        INTER     BX7    X7-X7                                                   OUTPTK    303
                                                  SA7    A5              CLEAR THE PAREN FLAG.                   OUTPTK    304
                                                  ZR     X5,IFNOMORE     GO TO 'IFNOMORE' IF THE LAST ENTRY WAS  OUTPTK    305
                                                                           NOT STOPPED BY THE TERMINAL PAREN,    OUTPTK    306
                                                  EQ     NEXTDESC                                                OUTPTK    307
                                                  TITLE                  A -, R - FORMAT PROCESSING SECTIONS     OUTPTK    308
                                        ************************************************************************ OUTPTK    309
                                        *                                                                      * OUTPTK    310
                                        *                       R - FORMAT PROCESSING                          * OUTPTK    311
                                        *                                                                      * OUTPTK    312
                                        *                CONVERT THE R-FORM DATA ITEM INTO A-FORM AND THEN USE * OUTPTK    313
                                        *             THE A-FORMAT PROCESSING SECTION TO PROCESS THE ITEM.     * OUTPTK    314
                                        *                                                                      * OUTPTK    315
                                        ************************************************************************ OUTPTK    316
                                                  SPACE  1                                                       OUTPTK    317
                                        RFORM     FORM                                                           OUTPTK    318
                                                  SB5    X6                IF THE FIELD WIDTH IS LESS THE ELEVEN FCC1119     7
                                                  LE     B5,B6,RFORM.1       CHARACTERS, THEN GO TO RFORM.1,     FCC1119     8
                                                  SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE         FCC1119     9
                                                  CALL   SPACE               THE EXCESS NUMBER OF POSITIONS      FCC1119    10
                                                  SX6    B6                                                      FCC1119    11
                                        RFORM.1   SB7    X6                CALCULATE THE SHIFT COUNT NECESSARY T FCC1119    12
                                                  SB5    B6-B7             TRANSFORM THE DATA ITEM INTO A-FORM   OUTPTK    320
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     7
  
  
                                                  LX1    X1,B5             AND THEN PERFORM THE TRANSFORMATION.  OUTPTK    321
                                                  EQ     AFORM                                                   FCC1119    13
                                                                                                                 FCC1119    14
                                        ************************************************************************ FCC1119    15
                                        *                                                                      * FCC1119    16
                                        *                       A - FORMAT PROCESSING                          * FCC1119    17
                                        *                                                                      * FCC1119    18
                                        *                IF THE NUMBER OF CHARACTERS TO BE TRANSMITTED IS      * FCC1119    19
                                        *             GREATER THAN TEN, CALL SPACE TO INSERT THE CORRECT       * FCC1119    20
                                        *             NUMBER OF BLANKS THEN GO TO AFORM.                       * FCC1119    21
                                        *                THIS A FORMAT PROCESSOR IS CALLED ONLY WHEN THE       * FCC1119    22
                                        *             A-FORMAT ACTUALLY APPEARS IN THE USER FORMAT.  THE OTHER * FCC1119    23
                                        *             A-FORMAT PROCESSOR IS ONLY USED INTERNALLY.              * FCC1119    24
                                                                                                                 FCC1119    25
                                         AFORMP   FORM                                                           FCC1119    26
                                                  SB5    X6                IF THE FIELD WIDTH IS LESS THE ELEVEN FCC1119    27
                                                  LE     B5,B6,AFORM         CHARACTERS, THEN GO TO AFORM,       FCC1119    28
                                                  SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE         FCC1119    29
                                                  CALL   SPACE               THE EXCESS NUMBER OF POSITIONS      FCC1119    30
                                                  SX6    B6                                                      FCC1119    31
                                                                                                                 FCC1119    32
                                        ************************************************************************ OUTPTK    323
                                        *                                                                      * OUTPTK    324
                                        *                       A - FORMAT PROCESSING                          * OUTPTK    325
                                        *                                                                      * OUTPTK    326
                                        *                IF THE NUMBER OF CHARACTERS TO BE TRANSMITTED FROM    * OUTPTK    327
                                        *             THE A-FORM DATA WILL FIT INTO THE SPACE REMAINING IN THE * OUTPTK    328
                                        *             CURRENT OUTPUT WORD, THEN THE SPACE IN THE OUTPUT WORD   * OUTPTK    329
                                        *             NECESSARY TO ACCOMODATE THE A-FORM DATA IS CLEARED AND   * OUTPTK    330
                                        *             THE A-FORM DATA INSERTED.  IF NOT ENOUGH SPACE IS        * OUTPTK    331
                                        *             AVAILABLE IN THE CURRENT OUTPUT WORD FOR THE A-FORM      * OUTPTK    332
                                        *             DATA, THEN THE DATA IS SPLIT TO OCCUPY THE END OF THE    * OUTPTK    333
                                        *             CURRENT OUTPUT WORD AND THE BEGINNING OF THE NEXT        * OUTPTK    334
                                        *             OUTPUT WORD.                                             * OUTPTK    335
                                        *                                                                      * OUTPTK    336
                                        ************************************************************************ OUTPTK    337
                                                  SPACE  1                                                       OUTPTK    338
                                        AFORM     FORM                                                           OUTPTK    339
                                                  SB5    B6-B3           IF THE A-FORM DATA MUST BE SPLIT TO     OUTPTK    340
                                                  SB7    X6                OCCUPY TWO OUTPUT WORDS THEN GO       OUTPTK    341
                                                  LT     B5,B7,AFORM2WD    TO 'AFORM2WD'.                        OUTPTK    342
                                                  SPACE  1                                                       OUTPTK    343
                                        AFORM.1   MX4    1               FORM THE MASK NECESSARY TO EXTRACT      OUTPTK    344
                                                  SB7    B7-B1             THE A-FORM DATA AND INSERT IT INTO    OUTPTK    345
                                                  SA5    X0                THE OUTPUT WORD.                      OUTPTK    346
                                                  AX7    X4,B7                                                   OUTPTK    347
                                                  BX6    X7*X1             (EXTRACT THE A-FORM DATA)             OUTPTK    348
                                                  LX5    X5,B3                                                   OUTPTK    349
                                                  SB7    B3+B7                                                   OUTPTK    350
                                                  BX4    -X7*X5            (CLEAR SPACE IN THE OUTPUT WORD)      OUTPTK    351
                                                  SB3    B7+B1             (INCREMENT THE COUNT OF BITS IN THE   OUTPTK    352
                                                                           CURRENT OUTPUT WORD)                  OUTPTK    353
                                                  SPACE  1                                                       OUTPTK    354
                                                  BX6    X4+X6             (INSERT THE A-FORM DATA, THE BOOLEAN  OUTPTK    355
                                                                           UNIT MUST BE USED IN CASE AN ENTIRE   OUTPTK    356
                                                                           OUTPUT WORD CONSISTS OF SEMI-COLONS-- OUTPTK    357
                                                                           SINCE THE OUTPUT WORD WOULD BECOME    OUTPTK    358
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     8
  
  
                                                                           POSITIVE ZERO--NOT MINUS ZERO--IF     OUTPTK    359
                                                                           THE LONG ADD UNIT IS USED.)           OUTPTK    360
                                                  LX7    X6,B5                                                   OUTPTK    361
                                                  SA7    A5                                                      OUTPTK    362
                                                  ZR     RETURNX         GO TO 'RETURNX'.                        OUTPTK    363
                                                  SPACE  2                                                       OUTPTK    364
                                        AFORM2WD  MX4    1               EXTRACT THE NUMBER OF CHARACTERS IN     OUTPTK    365
                                                  SB3    B3-B1             A-FORM NECESSARY TO FILL THIS OUTPUT  OUTPTK    366
                                                  LX1    X1,B5             WORD.                                 OUTPTK    367
                                                  SB7    B7-B5                                                   OUTPTK    368
                                                  SB5    B6                                                      OUTPTK    369
                                                  SA5    X0                                                      OUTPTK    370
                                                  AX7    X4,B3                                                   OUTPTK    371
                                                  BX6    -X7*X1                                                  OUTPTK    372
                                                  SB3    B0                                                      OUTPTK    373
                                                  SX0    X0+B1                                                   OUTPTK    374
                                                  BX5    X7*X5           CLEAR SPACE IN THE CURRENT OUTPUT WORD  OUTPTK    375
                                                                           TO ACCOMODATE THE AFORM DATA.         OUTPTK    376
                                                  SPACE  1                                                       OUTPTK    377
                                                  BX6    X5+X6                                                   OUTPTK    378
                                                  SA6    A5              APPEND THE AFORM DATA TO THE CURRENT    OUTPTK    379
                                                  ZR     AFORM.1           OUTPUT WORD AND THEN GO TO 'AFORM.1'  OUTPTK    380
                                                                           TO PROCESS THE REMAINING CHARACTERS.  OUTPTK    381
                                                  TITLE                  I - FORMAT PROCESSING SECTION           OUTPTK    382
                                        ************************************************************************ OUTPTK    383
                                        *                                                                      * OUTPTK    384
                                        *                       I - FORMAT PROCESSING                          * OUTPTK    385
                                        *                                                                      * OUTPTK    386
                                        *                CONVERT THE BINARY INTEGER DATA ITEM TO DECIMAL       * OUTPTK    387
                                        *             REPRESENTATION, RIGHT-JUSTIFIED WITHIN THE SPECIFIED     * OUTPTK    388
                                        *             FIELD (WITH BLANK FILL IF NECESSARY).  AFTER THE DECIMAL * OUTPTK    389
                                        *             FORM HAS BEEN OBTAINED GO TO THE A-FORMAT PROCESSING     * OUTPTK    390
                                        *             SECTION TO INSERT THE CHARACTERS INTO THE OUTPUT LINE.   * OUTPTK    391
                                        *                                                                      * OUTPTK    392
                                        ************************************************************************ OUTPTK    393
                                                  SPACE  1                                                       OUTPTK    394
                                        IFORMCON  DATA   10H          ,10.0P0,0.100000000001P48                  OUTPTK    395
                                                  SPACE  1                                                       OUTPTK    396
                                        IFORM     FORM                                                           OUTPTK    397
                                                  SB5    X6              IF THE FIELD WIDTH IS LESS THAN ELEVEN  OUTPTK    398
                                                  LE     B5,B6,IFORM.1     CHARACTERS THEN GO TO 'IFORM.1',      OUTPTK    399
                                                  SPACE  1                                                       OUTPTK    400
                                                  SX6    B5-B6           OTHERWISE CALL 'SPACE' TO SPACE THE     OUTPTK    401
                                                  CALL   SPACE             EXCESS NUMBER OF POSITIONS (I.E. IF   OUTPTK    402
                                                  SB5    B6                THE FIELD WIDTH IS TWELVE CHARACTERS  OUTPTK    403
                                                                           THEN SPACE TWO CHARACTERS).           OUTPTK    404
                                                  SPACE  1                                                       OUTPTK    405
                                         IFORM.1  BSS    0                                                       OUTPTK    406
                                                  PL     X1,IFORM.12     IF NEGATIVE NUMBER COMPLEMENT AND       OUTPTK    407
                                                  BX1    -X1               CHANGE TO POSITIVE NUMBER             OUTPTK    408
                                                  SB6    B0                AND SET FLAG                          OUTPTK    409
                                         IFORM.12 BSS    0                                                       OUTPTK    410
                                                  PX1    X1              CONVERT THE INTEGER TO FLOATING         OUTPTK    411
                                                  SB7    B5                POINT FORM (UN-NORMALIZED) AND FETCH  OUTPTK    412
                                                  SA5    IFORMCON          THE CONVERSION CONSTANTS.             OUTPTK    413
                                                  BX7    X5                                                      OUTPTK    414
                                                  SA4    A5+B1                                                   OUTPTK    415
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE     9
  
  
                                                  SA5    A4+B1                                                   OUTPTK    416
                                                  SPACE  1                                                       OUTPTK    417
                                        IFORM.2   DX6    X5*X1           CONVERT THE BINARY VALUE, FORMING THE   OUTPTK    418
                                                  FX1    X5*X1             DECIMAL REPRESENTATION A DIGIT AT A   OUTPTK    419
                                                  SB5    B5-6              TIME (FROM RIGHT TO LEFT).            OUTPTK    420
                                                  FX6    X4*X6             METHOD: LET 'B' BE THE BINARY VALUE   OUTPTK    421
                                                  SX6    X6+1R0-1R           1)  XD = B*0.1   (FRACTIONAL PART)  OUTPTK    422
                                                  IX7    X6+X7               2)  B  = B*0.1   (INTEGRAL PART)    OUTPTK    423
                                                  NX6    X1                  3)  D  = XD*10.0 (DECIMAL DIGIT)    OUTPTK    424
                                                  LX7    -6                                                      OUTPTK    425
                                                  NZ     X6,IFORM.2                                              OUTPTK    426
                                                  NE     B6,B0,IFORM.3                                           OUTPTK    427
                                                  SX5    1R--1R                                                  OUTPTK    428
                                                  SB6    60                RESTORE B6                            OUTPTK    429
                                                  IX7    X7+X5                                                   OUTPTK    430
                                         IFORM.3  BSS    0                                                       OUTPTK    431
                                                  SPACE  1                                                       OUTPTK    432
                                                  SX6    B7              CALL 'AFORM' TO APPEND THE PROPERLY     OUTPTK    433
                                                  SB5    B6-B5             POSITIONED AND JUSTIFIED DIGITS.      OUTPTK    434
                                                  LX1    X7,B5                                                   OUTPTK    435
                                                  ZR     AFORM                                                   OUTPTK    436
                                                  TITLE  L - FORMAT PROCESSING SECTION                           OUTPTK    437
                                        ************************************************************************ OUTPTK    438
                                        *        L - FORMAT PROCESSING                                         * OUTPTK    439
                                        *        PRINTS A T IF THE LOGICAL VARIABLE HAS A VALUE OF TRUE, ELSE  * OUTPTK    440
                                        *        PRINTS A F IF THE LOGICAL VARIABLE HAS A VALUE OF FALSE       * OUTPTK    441
                                        ************************************************************************ OUTPTK    442
                                         LFORM    FORM                                                           OUTPTK    443
                                                  SB5    X6              IF THE FIELD WIDTH IS LESS THAN         OUTPTK    444
                                                  LE     B5,B6,LFORM.1     ELEVEN CHARACTERS THEN GO TO LFORM.1  OUTPTK    445
                                                                                                                 OUTPTK    446
                                                  SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE THE     OUTPTK    447
                                                  CALL   SPACE             EXCESS NUMBER OF POSITIONS            OUTPTK    448
                                                  SB5    B6                                                      OUTPTK    449
                                                                                                                 OUTPTK    450
                                         LFORM.1  BSS    0                                                       OUTPTK    451
                                                  SA5    IFORMCON          FILL WORD WITH BLANKS                 OUTPTK    452
                                                  SX6    1RF-1R            F                                     OUTPTK    453
                                                  PL     X1,LFORM.2                                              OUTPTK    454
                                                  SX6    1RT-1R            T                                     OUTPTK    455
                                         LFORM.2  BSS    0                                                       OUTPTK    456
                                                  SB7    B6-B5                                                   OUTPTK    457
                                                  IX1    X6+X5                                                   OUTPTK    458
                                                  LX1    X1,B7             SHIFT LETTER TO BOTTOM OF FIELD       OUTPTK    459
                                                  SX6    B5                                                      OUTPTK    460
                                                  EQ     AFORM                                                   OUTPTK    461
                                                  TITLE                  O - FORMAT PROCESSING SECTION           OUTPTK    462
                                        ************************************************************************ OUTPTK    463
                                        *                                                                      * OUTPTK    464
                                        *                       O - FORMAT PROCESSING                          * OUTPTK    465
                                        *                                                                      * OUTPTK    466
                                        *                CONVERT THE BINARY DATA ITEM TO OCTAL FORM (ONLY THE  * OUTPTK    467
                                        *             NUMBER OF DIGITS SPECIFIED THOUGH), BLANK FILLING IF     * OUTPTK    468
                                        *             NECESSARY.                                               * OUTPTK    469
                                        *                                                                      * OUTPTK    470
                                        ************************************************************************ OUTPTK    471
                                                  SPACE  1                                                       OUTPTK    472
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    10
  
  
                                        OFORMCON  DATA   10H0000000000,0                                         OUTPTK    473
                                                  SPACE  1                                                       OUTPTK    474
                                         ZFORM    SA4    =1H                                                     OUTPTK    475
                                                  SX7    1R0-1R                                                  OUTPTK    476
                                                  EQ     OFORM1                                                  OUTPTK    477
                                                                                                                 OUTPTK    478
                                         OFORM    SA4    =10H0000000000                                          OUTPTK    479
                                                  MX7    0                                                       OUTPTK    480
                                                                                                                 OUTPTK    481
                                         OFORM1   SA7    OFORMCON+1                                              OUTPTK    482
                                                  BX7    X4                                                      OUTPTK    483
                                                  SA7    A7-B1                                                   OUTPTK    484
                                                  SB7    X6                                                      OUTPTK    485
                                                  SB5    B6+B6                                                   OUTPTK    486
                                                  LE     B7,B6,OFORM.3   IF THE WIDTH OF THE OCTAL FORMAT IS     OUTPTK    487
                                                                           LESS THAN ELEVEN CHARACTERS THEN      OUTPTK    488
                                                                           GO TO 'OFORM.4'.                      OUTPTK    489
                                                  SPACE  1                                                       OUTPTK    490
                                                  LE     B7,B5,OFORM.1   IF THE WIDTH IS BETWEEN ELEVEN AND      OUTPTK    491
                                                                           TWENTY CHARACTERS THEN GO TO          OUTPTK    492
                                                                           'OFORM.1',                            OUTPTK    493
                                                  SX6    B7-B5           OTHERWISE CALL 'SPACE' TO SKIP OVER     OUTPTK    494
                                                  CALL   SPACE             THE EXCESS POSITIONS AND THEN         OUTPTK    495
                                                  SX6    B6+B6             PROCESS AS A TWENTY DIGIT CONVERSION. OUTPTK    496
                                                  SB7    B6+B6                                                   OUTPTK    497
                                                  SPACE  1                                                       OUTPTK    498
                                        OFORM.1   SB5    B7-B6           CONVERT THE BINARY VALUE TO TWENTY      OUTPTK    499
                                                  MX7    60-3              OCTAL DIGITS, EXTRACTING TWO DIGITS   OUTPTK    500
                                                  BX4    X7                AT A TIME.                            OUTPTK    501
                                                  LX7    30                                                      OUTPTK    502
                                                  BX4    X7*X4                                                   OUTPTK    503
                                                  IX3    X3-X3                                                   OUTPTK    504
                                                  MX5    0                                                       OUTPTK    505
                                                  SB7    B6                                                      OUTPTK    506
                                                  SPACE  1                                                       OUTPTK    507
                                        OFORM.2   BX7    -X4*X1          EXTRACT TWO OCTAL DIGITS (THIRTY BITS   OUTPTK    508
                                                  AX1    3                 APART),                               OUTPTK    509
                                                  SX6    X7+1R0            CONVERT THE DIGITS TO DISPLAY CODE    OUTPTK    510
                                                  IX3    X3+X6             AND APPEND THEM TO THE ACCUMULATED    OUTPTK    511
                                                  AX7    30                DIGITS.                               OUTPTK    512
                                                  SX6    X7+1R0                                                  OUTPTK    513
                                                  IX5    X5+X6                                                   OUTPTK    514
                                                  LX3    -6                                                      OUTPTK    515
                                                  SB7    B7-6                                                    OUTPTK    516
                                                  LX5    -6                                                      OUTPTK    517
                                                  GT     B7,B0,OFORM.2   CONTINUE UNTIL ALL DIGITS ARE PROCESSED OUTPTK    518
                                                  SPACE  1                                                       OUTPTK    519
                                                  BX1    X5              CALL 'AFORM' TO PLACE THE APPROPRIATE   OUTPTK    520
                                                  SX6    B5                DIGITS INTO THE OUTPUT LINE.          OUTPTK    521
                                                  INVOKE RFORM                                                   OUTPTK    522
                                                  BX1    X3                                                      OUTPTK    523
                                                  SX6    B6                                                      OUTPTK    524
                                                  INVOKE AFORM                                                   OUTPTK    525
                                                  ZR     NEXTELEM        RETURN FOR THE NEXT ELEMENT.            OUTPTK    526
                                                  SPACE  2                                                       OUTPTK    527
                                        OFORM.3   AX6    1               IF TEN OR FEWER DIGITS ARE TO BE        OUTPTK    528
                                                  SB5    X6+B1             CONVERTED THEN PERFORM THE CONVERSION OUTPTK    529
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    11
  
  
                                                  SA5    OFORMCON          ONE DIGIT AT A TIME, FROM RIGHT TO    OUTPTK    530
                                                  MX7    1                 LEFT.  LEADING ZERO DIGITS WILL BE    OUTPTK    531
                                                  SB5    B6-B5             REPLACED BY THE CHARACTER WHICH IS    OUTPTK    532
                                                  SA4    A5+B1             REPLICATED TEN TIMES IN 'OFORMCON'    OUTPTK    533
                                                  AX7    X7,B5             (AND OF COURSE THIS MAY BE THE        OUTPTK    534
                                                  BX1    -X7*X1            CHARACTER ZERO).  SEE THE DESCRIPTION OUTPTK    535
                                                  SB5    X4                ABOVE FOR FUTHER DETAILS.             OUTPTK    536
                                                  SX3    B7                                                      OUTPTK    537
                                                  MX4    60-3                                                    OUTPTK    538
                                                  SPACE  1                                                       OUTPTK    539
                                        OFORM.4   BX6    -X4*X1          EXTRACT ONE DIGIT.                      OUTPTK    540
                                                  AX1    3               SHIFT VALUE TO POSITION THE NEXT DIGIT. OUTPTK    541
                                                  SX7    X6+B5           CONVERT THE DIGIT TO THE VALUE WHICH,   OUTPTK    542
                                                  IX5    X5+X7             WHEN ADDED TO 'OFORMCON', WILL BE THE OUTPTK    543
                                                  SB7    B7-6              DISPLAY CODE FOR THE DIGIT.           OUTPTK    544
                                                  NO                       DECREMENT WIDTH.                      OUTPTK    545
                                                  LX5    -6              POSITION THE OCNVERTED DIGITS.          OUTPTK    546
                                                  NZ     X1,OFORM.4      CONTINUE IF ANY NON-ZERO DIGITS REMAIN. OUTPTK    547
                                                  SPACE  1                                                       OUTPTK    548
                                                  SB5    B6-B7           POSITION THE CONVERTED DIGITS AND       OUTPTK    549
                                                  LX1    X5,B5             INVOKE 'AFORM' TO APPEND THE DIGITS   OUTPTK    550
                                                  SX6    X3                TO THE OUTPUT LINE.                   OUTPTK    551
                                                  INVOKE AFORM                                                   OUTPTK    552
                                                  ZR     NEXTELEM        RETURN FOR THE NEXT ELEMENT.            OUTPTK    553
                                                  TITLE                  H - FORMAT PROCESSING SECITON           OUTPTK    554
                                        ************************************************************************ OUTPTK    555
                                        *                                                                      * OUTPTK    556
                                        *                                                                      * OUTPTK    557
                                        *                       H - FORMAT PROCESSING                          * OUTPTK    558
                                        *                                                                      * OUTPTK    559
                                        *                                                                      * OUTPTK    560
                                        ************************************************************************ OUTPTK    561
                                                  SPACE  1                                                       OUTPTK    562
                                        HFORM     SB7    X6                                                      OUTPTK    563
                                                  SB5    B2+6                                                    OUTPTK    564
                                                  LE     B7,B5,HFORM.2   IF THE CURRENT FORMAT WORD CONTAINS     OUTPTK    565
                                                                           ALL OF THE HOLLERITH TEXT THEN GO     OUTPTK    566
                                                                           TO 'HFORM.2'.                         OUTPTK    567
                                                  SPACE  1                                                       OUTPTK    568
                                        HFORM.1   SX7    B7-B5           POSITION THE HOLLERITH TEXT IN A-FORM   OUTPTK    569
                                                  SB7    B6-B5             FOR PROCESSING BY THE 'AFORM' SECTION OUTPTK    570
                                                  LX1    X2,B7             (ALSO SET THE LENGTH OF THE TEXT      OUTPTK    571
                                                                           PORTION FOR 'HFORM').                 OUTPTK    572
                                                  SPACE  1                                                       OUTPTK    573
                                                  SX6    B5              SET THE LENGTH OF THE CHARACTERS TO BE  OUTPTK    574
                                                                           PROCESSED BY THE 'AFORM' SECTION.     OUTPTK    575
                                                  SPACE  1                                                       OUTPTK    576
                                                  SA7    HCOUNT          SAVE THE LENGTH OF THE HOLLERITH STRING OUTPTK    577
                                                                           WHICH REMAINS TO BE TRANSMITTED.      OUTPTK    578
                                                  SPACE  1                                                       OUTPTK    579
                                                  INVOKE AFORM           INVOKE THE 'AFORM' PROCESSING SECTION,  OUTPTK    580
                                                                           BUT RETURN HERE TO COMPLETE THE       OUTPTK    581
                                                                           H-FORMAT PROCESSING.                  OUTPTK    582
                                                  SPACE  1                                                       OUTPTK    583
                                                  SA2    A2+B1           FETCH THE NEXT FORMAT WORD AND SET THE  OUTPTK    584
                                                  SB5    B6                AVAILABLE STRING LENGTH TO SIXTY BITS OUTPTK    585
                                                  SPACE  1                                                       OUTPTK    586
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    12
  
  
                                                  SA5    HCOUNT          LOAD THE LENGTH OF THE REMAINING        OUTPTK    587
                                                  SB7    X5                HOLLERITH TEXT TO BE TRANSMITTED AND  OUTPTK    588
                                                  GT     B7,B5,HFORM.1     IF THIS FORMAT WORD WILL NOT          OUTPTK    589
                                                                           COMPLETELY SATISFY THE TRANSFER TEHN  OUTPTK    590
                                                                           GO TO 'HFORM.1'.                      OUTPTK    591
                                                  SPACE  1                                                       OUTPTK    592
                                        HFORM.2   SB2    B5-B7           RESET THE FORMAT SHIFT COUNT,           OUTPTK    593
                                                  SB5    B6-B5             POSITION THE LAST TEXT SECTION (AND   OUTPTK    594
                                                  LX1    X2,B5           THE LENGTH OF THIS SECTION) AND         OUTPTK    595
                                                  SX6    B7              INVOKE THE 'AFORM' PROCESSING.          OUTPTK    596
                                                  SB2    B2-6                                                    OUTPTK    597
                                                  INVOKE AFORM                                                   OUTPTK    598
                                                  SPACE  1                                                       OUTPTK    599
                                                  PL     B2,NEXTDESC     IF THE CURRENT FORMAT WORD HAS BEEN     OUTPTK    600
                                                  SA2    A2+B1             EXHAUSTED THEN FETCH THE NEXT WORD    OUTPTK    601
                                                  SB2    B6+B2             AND ADJUST THE FORMAT POINTERS BEFORE OUTPTK    602
                                                  ZR     NEXTDESC          RETURNING TO 'NEXTDESC'.              OUTPTK    603
                                                  TITLE                  DELIM -- HOLLERITH STRING PROCESSING (D OUTPTK    604
                                        ,ELIMITER FORM)                                                          OUTPTK    605
                                        ************************************************************************ OUTPTK    606
                                        *                                                                      * OUTPTK    607
                                        *                                                                      * OUTPTK    608
                                        *                HOLLERITH STRING PROCESSING (DELIMITER FORM)          * OUTPTK    609
                                        *                                                                      * OUTPTK    610
                                        *                                                                      * OUTPTK    611
                                        ************************************************************************ OUTPTK    612
                                                  SPACE  1                                                       OUTPTK    613
                                        DELIM     SX3    B5              PLACE THE STRING DELIMITER INTO         OUTPTK    614
                                                  SB5    6                 REGISTER X5 AND 6 INTO REGISTER       OUTPTK    615
                                                                           B5 FOR THE DURATION OF STRING         OUTPTK    616
                                                                           PROCESSING.                           OUTPTK    617
                                                  SPACE  1                                                       OUTPTK    618
                                        DELIM.1   SB7    B6              INITIALIZE FOR ACCUMULATING UP TO TEN   OUTPTK    619
                                                  BX1    X1-X1             HOLLERITH CHARACTERS AT A TIME BEFORE OUTPTK    620
                                                  MX7    60-6              INVOKING THE 'AFORM' PROCESSING.      OUTPTK    621
                                                  SPACE  1                                                       OUTPTK    622
                                        DELIM.2   AX4    X2,B2           EXTRACT THE NEXT CHARACTER FROM THE     OUTPTK    623
                                                  SB2    B2-B5             FORMAT, UPDATE THE FORMAT POINTERS,   OUTPTK    624
                                                  BX5    -X7*X4            AND IF THE END OF THE HOLLERITH       OUTPTK    625
                                                  IX6    X5-X3             STRING HAS BEEN REACHED THEN GO TO    OUTPTK    626
                                                  PL     B2,DELIM.3        'DELIM.4'.                            OUTPTK    627
                                                  SB2    B2+B6             (RESET FORMAT POINTERS WHEN STEPPING  OUTPTK    628
                                                  SA2    A2+B1             OVER A WORD BOUNDARY.)                OUTPTK    629
                                        DELIM.3   ZR     X6,DELIM.4                                              OUTPTK    630
                                                  SPACE  1                                                       OUTPTK    631
                                                  BX1    X5+X1           OTHERWISE APPEND THE CHARACTER TO THE   OUTPTK    632
                                                  SB7    B7-B5             ACCUMULATED STRING AND GO TO          OUTPTK    633
                                                  LX1    6                 'DELIM.2' IF TEN CHARACTERS HAVE NOT  OUTPTK    634
                                                  GT     B7,B0,DELIM.2     YET BEEN ACCUMULATED.                 OUTPTK    635
                                                  SX6    B6              SET THE 'AFORM' COUNT TO TEN CHARACTERS OUTPTK    636
                                                  LX1    60-6              AND INVOKE THE 'AFORM' PROCESSING.    OUTPTK    637
                                                  INVOKE AFORM                                                   OUTPTK    638
                                                  SPACE  1                                                       OUTPTK    639
                                                  SB5    6                                                       OUTPTK    640
                                                  ZR     DELIM.1         REENTER THE CYCLE AT 'DELIM.1' TO       OUTPTK    641
                                                                           INITIALIZE.                           OUTPTK    642
                                                  SPACE  1                                                       OUTPTK    643
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    13
  
  
                                        DELIM.4  SX6     B6-B7           SET THE COUNT OF ACCUMULATED CHARACTERS OUTPTK    644
                                                 SB7     B7-B5                                                   OUTPTK    645
                                                 LX1     X1,B7             AND INVOKE THE 'AFORM' PROCESSING IF  OUTPTK    646
                                                 ZR      X6,NEXTELEM       THERE WERE ANY ACCUMULATED CHARACTERS OUTPTK    647
                                                  INVOKE AFORM                                                   OUTPTK    648
                                                  SPACE  1                                                       OUTPTK    649
                                                  ZR     NEXTDESC        AFTER PROCESSING THE CHARACTERS (IF     OUTPTK    650
                                                                           ANY) RETURN TO 'NEXTDESC' FOR THE     OUTPTK    651
                                                                           THE NEXT FORMAT FIELD DESCRIPTOR.     OUTPTK    652
                                                  TITLE                  LEFT AND RIGHT PARENTHESIS PROCESSING S OUTPTK    653
                                        ,ECTION                                                                  OUTPTK    654
                                        ************************************************************************ OUTPTK    655
                                        *                                                                      * OUTPTK    656
                                        *                       LEFT PARENTHESIS PROCESSING                    * OUTPTK    657
                                        *                                                                      * OUTPTK    658
                                        *                SAVE THE PREVIOUS GROUP INFORMATION (BEGINNING GROUP  * OUTPTK    659
                                        *             ADDRESS AND GROUP REPEAT COUNT) IN THE LEVEL STACK AND   * OUTPTK    660
                                        *             SET THE CURRENT BEGINNING GROUP ADDRESS AND GROUP REPEAT * OUTPTK    661
                                        *             COUNT.  (IF THIS IS A LEVEL-1 GROUP, THEN ALSO SAVE THE  * OUTPTK    662
                                        *             CURRENT INFORMATION FOR RESTART PURPOSES WHEN THE END OF * OUTPTK    663
                                        *             THE FORMAT IS REACHED.)                                  * OUTPTK    664
                                        *                                                                      * OUTPTK    665
                                        ************************************************************************ OUTPTK    666
                                                  SPACE  1                                                       OUTPTK    667
                                        LPFORM    SA3    GROUPADR                                                OUTPTK    668
                                                  SA5    GRC                                                     OUTPTK    669
                                                  SX4    B2                                                      OUTPTK    670
                                                  LX3    18                                                      OUTPTK    671
                                                  SX6    A2                                                      OUTPTK    672
                                                  LX4    18                                                      OUTPTK    673
                                                  BX7    X4+X6                                                   OUTPTK    674
                                                  SA4    LEVEL           (THE LEVEL NUMBER STORED IN 'LEVEL' IS  OUTPTK    675
                                                                           ONE LESS THAN THE GROUP LEVEL.)       OUTPTK    676
                                                  SPACE  1                                                       OUTPTK    677
                                                  SA7    A3              SET THE BEGINNING ADDRESS OF THE        OUTPTK    678
                                                                           CURRENT FORMAT GROUP.                 OUTPTK    679
                                                  BX6    X3+X5                                                   OUTPTK    680
                                                  LX3    X7                                                      OUTPTK    681
                                                  SA5    R                                                       OUTPTK    682
                                                  SA6    LEVSTACK+1+X4   SAVE THE PREVIOUS GROUP INFORMATION.    OUTPTK    683
                                                  BX7    X5                                                      OUTPTK    684
                                                  SX6    X4+B1                                                   OUTPTK    685
                                                  SA7    GRC             SET THE CURRENT GROUP REPEAT COUNT.     OUTPTK    686
                                                  SB7    X6                                                      OUTPTK    687
                                                  SA6    A4              INCREMENT THE CURRENT LEVEL NUMBER.     OUTPTK    688
                                                  SPACE  1                                                       OUTPTK    689
                                                  NE     B7,B1,NEXTDESC  IF THE NEW GROUP LEVEL IS NOT LEVEL ONE OUTPTK    690
                                                                           THEN GO TO 'NEXTDESC',                OUTPTK    691
                                                  SPACE  1                                                       OUTPTK    692
                                                  LX3    18              OTHERWISE SAVE THE NEW GROUP REPEAT     OUTPTK    693
                                                  BX7    X3+X7             COUNT AND BEGINNING ADDRESS FOR       OUTPTK    694
                                                  LX6    3*18              POSSIBLE USE AS A RESTART POSITION    OUTPTK    695
                                                  IX7    X6+X7             WHEN THE END OF THE FORMAT STRING IS  OUTPTK    696
                                                  SA7    RESCAN            REACHED                               OUTPTK    697
                                                  EQ     NEXTDESC                                                FCC1119    33
                                                  EJECT                                                          OUTPTK    700
                                        ************************************************************************ OUTPTK    701
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    14
  
  
                                        *                                                                      * OUTPTK    702
                                        *                   RIGHT PARENTHESIS PROCESSING                       * OUTPTK    703
                                        *                                                                      * OUTPTK    704
                                        *                                                                      * OUTPTK    705
                                        ************************************************************************ OUTPTK    706
                                                  SPACE  1                                                       OUTPTK    707
                                        RPFORM    SA5    GRC                                                     OUTPTK    708
                                                  MX7    59                                                      OUTPTK    709
                                                  IX6    X5+X7                                                   OUTPTK    710
                                                  ZR     X6,RPFORM.1     IF THE GROUP REPEAT COUNT IS EXHAUSTED  OUTPTK    711
                                                                           THEN GO TO 'RPFORM.1'.                OUTPTK    712
                                                  SPACE  1                                                       OUTPTK    713
                                                  SA4    GROUPADR        OTHERWISE RESET THE FORMAT POINTERS TO  OUTPTK    714
                                                  SA2    X4                THE BEGINNING OF THE CURRENT GROUP    OUTPTK    715
                                                  AX4    18                                                      OUTPTK    716
                                                  SA6    A5                                                      OUTPTK    717
                                                  SB2    X4                                                      OUTPTK    718
                                                  ZR     NEXTDESC        GO TO 'NEXTDESC' FOR HTE NEXT FORMAT    OUTPTK    719
                                                                           DESCRIPTOR.                           OUTPTK    720
                                                  SPACE  1                                                       OUTPTK    721
                                        RPFORM.1  SA3    LEVEL                                                   OUTPTK    722
                                                  ZR     X3,RPFORM.2     IF THIS IS THE END OF THE FORMAT THEN   OUTPTK    723
                                                                           GO TO 'RPFORM.2'.                     OUTPTK    724
                                                  SPACE  2                                                       OUTPTK    725
                                                  SA4    LEVSTACK+X3     OTHERWISE RESET THE PARENTHESIS GROUP   OUTPTK    726
                                                  IX6    X3+X7             INFORMATION AND DECREMENT THE LEVEL   OUTPTK    727
                                                  SX7    X4                                                      OUTPTK    728
                                                  SA6    A3                                                      OUTPTK    729
                                                  AX4    18                                                      OUTPTK    730
                                                  SA7    A5                                                      OUTPTK    731
                                                  BX6    X4                                                      OUTPTK    732
                                                  SA6    GROUPADR                                                OUTPTK    733
                                                  ZR     NEXTDESC        GO TO 'NEXTDESC' FOR THE NEXT FORMAT    OUTPTK    734
                                                                           DESCRIPTOR.                           OUTPTK    735
                                                  SPACE  1                                                       OUTPTK    736
                                         RPFORM.2 SA3    CONTINUE                                                OUTPTK    737
                                                  NZ     X3,RPFORM3  IF EXPLICIT CONTINUATION MODE               OUTPTK    738
                                                  INVOKE SLASH       OUTPUT THE CURRENT LINE                     OUTPTK    739
                                                                                                                 OUTPTK    740
                                         RPFORM3  SA3    RESCAN      RESET THE FORMAT POINTERS AND THE CURRENT   OUTPTK    741
                                                  SX7    X3                CURRENT GROUP INFORMATION TO RESTART  OUTPTK    742
                                                  AX3    18                THE FORMAT SCAN.                      OUTPTK    743
                                                  SA2    X3                                                      OUTPTK    744
                                                  BX6    X3                                                      OUTPTK    745
                                                  SA7    GRC                                                     OUTPTK    746
                                                  AX3    18                                                      OUTPTK    747
                                                  SA6    GROUPADR                                                OUTPTK    748
                                                  SB2    X3                                                      OUTPTK    749
                                                  AX3    18                                                      OUTPTK    750
                                                  BX6    X3                                                      OUTPTK    751
                                                  SA6    LEVEL                                                   OUTPTK    752
                                                  GT     B4,B0,NEXTDESC  IF ANY MORE ITEMS REMAIN TO BE          OUTPTK    753
                                                                           CONVERTED THEN GO TO 'NEXTDESC',      OUTPTK    754
                                                  SA7    PARENFLG                                                OUTPTK    755
                                                  ZR     OUTPTCX         OTHERWISE EXIT.                         OUTPTK    756
                                                  TITLE                  T - FORMAT PROCESSING SECTION           OUTPTK    757
                                        **        T - FORMAT PROCESSING                                          FCC1119    34
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    15
  
  
                                                  SPACE  1                                                       OUTPTK    765
                                        TFORM     SA4    OUTADDR         CALCULATE THE CURRENT DISTANCE FROM THE OUTPTK    766
                                                  IX0    X0-X4             BEGINNING OF THE LINE (IN BITS).      OUTPTK    767
                                                  LX7    X0,B1                                                   OUTPTK    768
                                                  SA5    =60.0                                                   OUTPTK    769
                                                  LX0    5                                                       OUTPTK    770
                                                  IX7    X0-X7                                                   OUTPTK    771
                                                  LX0    X7,B1                                                   OUTPTK    772
                                                  SB3    X0+B3             (CURRENT DISTANCE.)                   OUTPTK    773
                                                  SA4    MAXCOUNT                                                OUTPTK    774
                                                  SB5    X6                (POSITION TO TABULATE TO, IN BITS.)   OUTPTK    775
                                                  BX3    X3-X3                                                   OUTPTK    776
                                                  GT     B5,B3,TFORM.2   IF A TAB FORWARD THEN GO TO 'TFORM.2'.  OUTPTK    777
                                                  SPACE  1                                                       OUTPTK    778
                                                  SB7    X4              SINCE THIS IS A TAB BACKWARD, SET       OUTPTK    779
                                                  LE     B3,B7,TFORM.1     'MAXCOUNT' TO THE MAXIMUM OF THE      FCC1119    35
                                                  SA6    A4                PREVIOUS VALUE OF 'MAXCOUNT' AND THE  OUTPTK    781
                                                                           CURRENT DISTANCE TO THE BEGINNING OF  OUTPTK    782
                                                                           THE LINE.                             OUTPTK    783
                                                  SPACE  1                                                       OUTPTK    784
                                        TFORM.1   PX4    X6              RESET THE LINE POINTERS TO REFLECT      OUTPTK    785
                                                  FX7    X4/X5             THE POSITION TABULATED TO.            OUTPTK    786
                                                  SA4    OUTADDR                                                 OUTPTK    787
                                                  UX5    X7,B7                                                   OUTPTK    788
                                                  LX7    X5,B7                                                   OUTPTK    789
                                                  IX0    X7+X4                                                   OUTPTK    790
                                                  LX5    X7,B1                                                   OUTPTK    791
                                                  IX4    X5+X5                                                   OUTPTK    792
                                                  LX7    6                                                       OUTPTK    793
                                                  IX4    X7-X4                                                   OUTPTK    794
                                                  SB7    X4                                                      OUTPTK    795
                                                  SB3    B5-B7                                                   OUTPTK    796
                                                  ZR     X3,NEXTDESC     IF NO SPACING TO BE DONE THEN RETURN    OUTPTK    797
                                                  BX6    X3              OTHERWISE CALL 'SPACE' TO COMPLETE THE  OUTPTK    798
                                                  CALL   SPACE             TABULATION.                           OUTPTK    799
                                                  ZR     NEXTDESC        RETURN FOR THE NEXT FORMAT DESCRIPTOR.  OUTPTK    800
                                                  SPACE  1                                                       OUTPTK    801
                                        TFORM.2   SB7    X4              IF THIS TAB FORWARD DOES NOT EXCEED THE OUTPTK    802
                                                  LE     B3,B7,TFORM.3     MAXIMUM PREVIOUS LINE LENGTH ATTAINED OUTPTK    803
                                                  SB7    B3                THEN GO TO 'IFORM.1' TO RESET THE     OUTPTK    804
                                         TFORM.3  LE     B5,B7,TFORM.1     LINE POINTERS.                        OUTPTK    805
                                                  SPACE  1                                                       OUTPTK    806
                                                  SX3    B5-B7           OTHERWISE PERFORM THE TAB BY HAVING THE OUTPTK    807
                                                  BX6    X4                LINE POINTERS RESET TO THE MAXIMUM    OUTPTK    808
                                                  SB5    X4                LINE LENGTH AND THEN SPACING OUT TO   OUTPTK    809
                                                  EQ     TFORM.1           THE POSITION TO BE TABULATED TO       FCC1119    36
                                                                                                                 FCC1119    37
                                        **        X - FORMAT PROCESSING                                          FCC1119    38
                                                  SPACE  1                                                       OUTPTK    819
                                        XFORM     FORM                                                           OUTPTK    820
                                                  CALL   SPACE           CALL 'SPACE' TO SPACE THE SPECIFIED     OUTPTK    821
                                                  ZR     NEXTDESC          NUMBER OF POSITIONS AND THE RETURN.   OUTPTK    822
                                                  TITLE                  SLASH -- LINE OUTPUT PROCESSING         OUTPTK    823
                                        ************************************************************************ OUTPTK    824
                                        *                                                                      * OUTPTK    825
                                        *                                                                      * OUTPTK    826
                                        *                S L A S H -- LINE OUTPUT PROCESSING                   * OUTPTK    827
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    16
  
  
                                        *                                                                      * OUTPTK    828
                                        *                                                                      * OUTPTK    829
                                        ************************************************************************ OUTPTK    830
                                                  SPACE  1                                                       OUTPTK    831
                                        SLASH     FORM                                                           OUTPTK    832
                                                  SX5    A2              SAVE THE CURRENT FORMAT POINTERS, THE   OUTPTK    833
                                                  PX6    X5,B2             THE HOLD REGISTER (REGISTER X3),      OUTPTK    834
                                                  BX7    X3              AND THE DATA ITEM POINTERS.             OUTPTK    835
                                                  SX4    A1                                                      OUTPTK    836
                                                  SA6    RESETFMT                                                OUTPTK    837
                                                  SA7    RESETX3                                                 OUTPTK    838
                                                  PX6    X4,B4                                                   OUTPTK    839
                                                  SB4    8*6                                                     OUTPTK    840
                                                  SA5    X0                                                      OUTPTK    841
                                                  SA6    RESETITM                                                OUTPTK    842
                                                  SA4    OUTADDR                                                 OUTPTK    843
                                                  IX7    X0-X4           IF THE CURRENT LINE POSITION IS NOT THE OUTPTK    844
                                                  SB5    B1+B1             MAXIMUM POSITION ATTAINED THEN RESET  OUTPTK    845
                                                  LX6    X7,B5             THE LINE POINTERS TO POINT TO THE END OUTPTK    846
                                                  LX7    6                                                       OUTPTK    847
                                                  SA3    MAXCOUNT          OF THE LINE.                          OUTPTK    848
                                                  IX5    X7-X6                                                   OUTPTK    849
                                                  SX7    X5+B3                                                   OUTPTK    850
                                                  IX6    X7-X3                                                   OUTPTK    851
                                                  PX3    X3                                                      OUTPTK    852
                                                  PL     X6,SLASH.1      GO TO 'SLASH.1' IF THE CURRENT POSITION OUTPTK    853
                                                                           IS THE FARTHEST.                      OUTPTK    854
                                                  SPACE  1                                                       OUTPTK    855
                                                  SA5    =0.01666666667  (ONE SIXTIETH)                          OUTPTK    856
                                                  FX7    X5*X3             (INTEGRAL PORTION OF BITCOUNT/60)     OUTPTK    857
                                                  DX6    X5*X3             (FRACTIONAL PART OF BITCOUNT/60)      OUTPTK    858
                                                  SA5    =60.000000001   (SIXTY WITH A ROUND FACTOR.)            OUTPTK    859
                                                  IX3    X7+X4             (ADDRESS OF LAST WORD IN LINE)        OUTPTK    860
                                                  SX0    X3                                                      OUTPTK    861
                                                  FX6    X5*X6             (SET REMAINDER OF BITCOUNT/60)        OUTPTK    862
                                                  SB3    X6                                                      OUTPTK    863
                                        SLASH.1   SA3    =8L                                                     OUTPTK    864
                                                  SB6    X4              (B6) = LINE FWA                         OUTPTK    865
                                                  SA5    X0                                                      OUTPTK    866
                                                  LE     B3,B4,SLASH.2   IF THE LAST WORD OF THE LINE CONTAINS   OUTPTK    867
                                                                           ENOUGH ROOM FOR THE LINE TERMINATOR   OUTPTK    868
                                                                           THEN GO TO 'SLASH.2'.                 OUTPTK    869
                                                  SPACE  1                                                       OUTPTK    870
                                                  MX7    60-6            OTHERWISE FILL OUT THE WORD WITH A      OUTPTK    871
                                                  BX5    X7*X5             BLANK AND MOVE THE POINTERS TO THE    OUTPTK    872
                                                  SX7    1R                NEXT WORD (INDICATING THAT IT IS      OUTPTK    873
                                                  IX6    X5+X7             EMPTY OF COURSE).                     OUTPTK    874
                                                  SA5    X0+B1                                                   OUTPTK    875
                                                  SB3    B0                                                      OUTPTK    876
                                                  SA6    X0                                                      OUTPTK    877
                                                  SPACE  1                                                       OUTPTK    878
                                        SLASH.2   MX0    1               TERMINATE THE LINE WITH A ZERO BYTE AND OUTPTK    879
                                                  SB5    B3-B1             BLANK FILL (IF NECESSARY).            OUTPTK    880
                                                  AX0    X0,B5                                                   OUTPTK    881
                                                  BX7    X0                                                      OUTPTK    882
                                                  SB7    B6-B1                                                   OUTPTK    883
                                                  AX7    59                                                      OUTPTK    884
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    17
  
  
                                                  BX0    X7*X0                                                   OUTPTK    885
                                                  BX5    X0*X5                                                   OUTPTK    886
                                                  SB7    A5-B7           (B7) = LINE LENGTH (WORDS)              OUTPTK    887
                                                  BX3    -X0*X3                                                  OUTPTK    888
                                                  IX6    X5+X3                                                   OUTPTK    889
                                                  SA6    A5              (LAST WORD WITH TERMINATOR.)            OUTPTK    890
                                                                                                                 OUTPTK    891
                                        *         WRITE LINE TO FILE.                                            OUTPTK    892
                                        *         AT PRESENT, FILE IS RESTRICTED TO -OUTPUT-.                    OUTPTK    893
                                                                                                                 OUTPTK    894
                                                  LISTL  B6,B7           LINE TO SOURCE LISTING FILE             OUTPTK    895
                                                                                                                 OUTPTK    896
                                        SLASH.4   SA5    RESETFMT        RESET THE FORMAT POINTERS, THE DATA     OUTPTK    897
                                                  UX7    X5,B2             POINTERS, THE SPECIAL REGISTER (X3),  OUTPTK    898
                                                  SA2    X5                AND THE REGISTERS WITH CONSTANT VALUE OUTPTK    899
                                                  SA4    RESETITM                                                OUTPTK    900
                                                  SA5    TEMPA0.                                                 OUTPTK    901
                                                  SA0    X5                                                      OUTPTK    902
                                                  UX7    X4,B4                                                   OUTPTK    903
                                                  SA1    X4                                                      OUTPTK    904
                                                  SA3    RESETX3                                                 OUTPTK    905
                                                  SB1    1                                                       OUTPTK    906
                                                  SA5    OUTADDR                                                 OUTPTK    907
                                                  SB6    60                                                      OUTPTK    908
                                                  BX6    X6-X6                                                   OUTPTK    909
                                                  SX0    X5                                                      OUTPTK    910
                                                  SA6    MAXCOUNT                                                OUTPTK    911
                                                  SB3    B0                                                      OUTPTK    912
                                                  ZR     RETURNX         RETURN TO THE CALLER.                   OUTPTK    913
                                                  TITLE                  FORMAT ITEM-DATA ITEM CONTROL           OUTPTK    914
                                        NEXTELEM  SA5    R               REDUCE THE FIELD DESCRIPTOR REPEAT      OUTPTK    915
                                                  MX4    59                COUNT AND ALSO DECREMENT THE COUNT    OUTPTK    916
                                                  IX7    X5+X4             OF THE NUMBER OF DATA ITEMS TO BE     OUTPTK    917
                                                  SB4    B4-B1             CONVERTED.                            OUTPTK    918
                                                  SA7    A5                                                      OUTPTK    919
                                                  NZ     X7,IFNOMORE     IF THE REPEAT COUNT FOR THE CURRENT     OUTPTK    920
                                                                           FIELD DESCRIPTOR HAS NOT BEEN         OUTPTK    921
                                                                           EXHAUSTED THEN GO TO 'IFNOMORE'.      OUTPTK    922
                                                  SPACE  1                                                       OUTPTK    923
                                        NEXTDESC  BSS    0               (ENTER HERE FOR NEXT FIELD DESCRIPTOR.) OUTPTK    924
                                                  SPACE  1                                                       OUTPTK    925
                                        NEXT.1    AX4    X2,B2           EXTRACT THE NEXT FORMAT CHARACTER (AND  OUTPTK    926
                                                  SX6    B1                UPDATE THE FORMAT POINTERS).          OUTPTK    927
                                                  SA5    DIGMASK                                                 OUTPTK    928
                                                  GT     B2,B0,NEXT.2                                            OUTPTK    929
                                                  SB2    B6                                                      OUTPTK    930
                                                  SA2    A2+B1                                                   OUTPTK    931
                                        NEXT.2    MX7    60-6            USE THE FUNCTION 'DECIMAL' TO OBTAIN    OUTPTK    932
                                                  BX4    -X7*X4            THE BINARY VALUE OF THE REPEAT COUNT  OUTPTK    933
                                                  SB5    X4                (ASSUME A VALUE OF ONE IF NO REPEAT   OUTPTK    934
                                                  LX3    X5,B5             COUNT IS PRESENT).                    OUTPTK    935
                                                  SB2    B2-6                                                    OUTPTK    936
                                                  PL     X3,NEXT.4                                               OUTPTK    937
                                                  SX6    X4-1R0                                                  OUTPTK    938
                                                  RJ     DECIMAL                                                 OUTPTK    939
                                                  GT     B2,B0,NEXT.3    (ADVANCE BEYOND THE CHARACTER WHICH     OUTPTK    940
                                                  SB2    B6                TERMINATED THE DECIMAL CONVERSION.)   OUTPTK    941
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    18
  
  
                                                  SA2    A2+B1                                                   OUTPTK    942
                                        NEXT.3    SB2    B2-6                                                    OUTPTK    943
                                                  SPACE  1                                                       OUTPTK    944
                                        NEXT.4    SA5    NEEDW           IF THE FORMAT ELEMENT IS A FIELD        OUTPTK    945
                                                  SA6    R                 DESCRIPTOR AND NEEDS A WIDTH VALUE    OUTPTK    946
                                                  SA6    W                 (EG. A-FORMAT, I-FORMAT, ETC.) THEN   OUTPTK    947
                                                  LX5    X5,B5             USE THE FUNCTION 'DECIMAL' AGAIN TO   OUTPTK    948
                                                  LX4    -1                CONVERT THE NEEDED VALUE.             OUTPTK    949
                                                  SA3    FORMS+X4                                                OUTPTK    950
                                                  MI     X4,NEXT.5         (ALSO STORE AWAY THE ADDRESS OF THE   OUTPTK    951
                                                  LX3    30                PROPER PROCESSING SECTION FOR THE     OUTPTK    952
                                        NEXT.5    BX6    X3                FORMAT DESCRIPTOR.)                   OUTPTK    953
                                                  SA6    GOCELL                                                  OUTPTK    954
                                                  PL     X5,NEXT.6         GO TO 'NEXT.6' IF NO DATA ITEM IS     OUTPTK    955
                                                                           REQUIRED (I.E. NO WIDTH VALUE NEEDED) OUTPTK    956
                                                  SPACE  1                                                       OUTPTK    957
                                                  SA5    DIGMASK         SETUP DIGIT MASK FOR 'DECIMAL'          OUTPTK    958
                                                  SB7    B5                                                      OUTPTK    959
                                                  BX6    X6-X6                                                   OUTPTK    960
                                                  RJ     DECIMAL                                                 OUTPTK    961
                                                  SA6    W                                                       OUTPTK    962
                                          SA5 GOCELL                                                             OUTPTK    963
                                          SX6 X5-TFORM                                                           OUTPTK    964
                                          ZR X6,NEXT.6                                                           OUTPTK    965
                                                  SPACE  2                                                       OUTPTK    966
                                        IFNOMORE  LE     B4,B0,OUTPTCX   IF NO MORE ITEMS ARE LEFT THEN RETURN.  OUTPTK    967
                                                  SA1    A1+B1             (ELSE FETCH THE NEXT ITEM.)           OUTPTK    968
                                                  SPACE  1                                                       OUTPTK    969
                                        NEXT.6    SA5    W               CALL THE PROPER PROCESSING SECTION      OUTPTK    970
                                                  IX6    X5+X5             WITH THE WIDTH VALUE (OR COUNT VALUE  OUTPTK    971
                                                  LX4    X6,B1             IN THE CASE OF X-FORMAT, H-FORMAT,    OUTPTK    972
                                                  SA5    GOCELL            ETC.) IN BITS IN REGISTER  X6  AND    OUTPTK    973
                                                  IX6    X4+X6             THE DATA ITEM, IF ANY, IN REGISTER    OUTPTK    974
                                                  SB7    X5                X1.                                   OUTPTK    975
                                                  RJ     RETURN                                                  OUTPTK    976
                                                  SPACE  2                                                       OUTPTK    977
                                                  LT     B3,B6,NEXTELEM  UPON RETURN FROM THE PROCESSOR UPDATE   OUTPTK    978
                                                  SX0    X0+B1             THE OUTPUT LINE POINTERS IF THE END   OUTPTK    979
                                                  SB3    B0                OF A WORD BOUNDARY HAS BEEN REACHED,  OUTPTK    980
                                                  ZR     NEXTELEM          THEN GO TO 'NEXTELEM'.                OUTPTK    981
                                                  SPACE  3                                                       FCC1119    39
                                        RETURNX   LT     B3,B6,RETURN    IF THE CURRENT OUTPUT WORD IS NOT FULL  OUTPTK    983
                                                                           THEN GO TO 'RETURN'.                  OUTPTK    984
                                                  SPACE  1                                                       OUTPTK    985
                                                  SX0    X0+B1             INCREMENT THE OUTPUT POINTERS.        OUTPTK    986
                                                  SB3    B0                                                      OUTPTK    987
                                                  SPACE  1                                                       OUTPTK    988
                                        RETURN    BSS    1               ENTRY/EXIT INFORMATION FOR INVOKED      OUTPTK    989
                                                                           PROCESSORS.                           OUTPTK    990
                                                  SPACE  1                                                       OUTPTK    991
                                                  JP     B7              JUMP TO THE APPROPRIATE PROCESSOR.      OUTPTK    992
                                         ILLEGAL  SPACE  3                                                       FCC1119    40
                                        **        ILLEGAL - PROCESS ILLEGAL FORMAT SPECIFICATION                 FCC1119    41
                                                                                                                 FCC1119    42
                                         ILLEGAL  INVOKE SLASH                                                   FCC1119    43
                                                  EQ     *+1S17      ABORT                                       FCC1119    44
                                                  TITLE                  UTILITY: D E C I M A L                  OUTPTK    993
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    19
  
  
                                        ************************************************************************ OUTPTK    994
                                        *                                                                      * OUTPTK    995
                                        *                       DECIMAL                                        * OUTPTK    996
                                        *                                                                      * OUTPTK    997
                                        *                THIS FUNCTION WILL CONVERT A STRING OF DECIMAL DIGITS * OUTPTK    998
                                        *             (FROM THE FORMAT) TO BINARY.  CALLING SEQUENCE --        * OUTPTK    999
                                        *                                                                      * OUTPTK   1000
                                        *                                RJ  DECIMAL                           * OUTPTK   1001
                                        *                                                                      * OUTPTK   1002
                                        *             WHERE THE FOLLOWING REGISTERS HAVE BEEN SET:             * OUTPTK   1003
                                        *                                X5 -- 'DIGMASK'                       * OUTPTK   1004
                                        *                                X6 -- INITIAL VALUE OF NUMBER         * OUTPTK   1005
                                        *                                X7 -- 7777 7777 7777 7777 7700B       * OUTPTK   1006
                                        *                                                                      * OUTPTK   1007
                                        *             UPON RETURN REGISTER  X6  WILL CONTAIN THE CONVERTED     * OUTPTK   1008
                                        *             NUMBER AND REGISTER  X4  WILL CONTAIN THE TERMINATING    * OUTPTK   1009
                                        *             (NON-DIGIT) CHARACTER, THE FORMAT POINTERS WILL NOT      * OUTPTK   1010
                                        *             HAVE BEEN UPDATED TO REFLECT THE EXTRACTION OF THE       * OUTPTK   1011
                                        *             TERMINATING CHARACTER.                                   * OUTPTK   1012
                                        *                                                                      * OUTPTK   1013
                                        ************************************************************************ OUTPTK   1014
                                                  SPACE  1                                                       OUTPTK   1015
                                        DEC.1     IX3    X6+X6           MULTIPLY THE ACCUMULATED NUMBER BY TEN  OUTPTK   1016
                                                  LX6    3                 AND ADD THE DIGIT JUST ENCOUNTERED.   OUTPTK   1017
                                                  SX4    X4-1R0                                                  OUTPTK   1018
                                                  IX3    X6+X3                                                   OUTPTK   1019
                                                  SB2    B2-6                                                    OUTPTK   1020
                                                  IX6    X3+X4                                                   OUTPTK   1021
                                                  PL     B2,DEC.2                                                OUTPTK   1022
                                                  SB2    B6+B2                                                   OUTPTK   1023
                                                  SA2    A2+B1                                                   OUTPTK   1024
                                        DEC.2     AX3    X2,B2           EXTRACT THE NEXT FORMAT CHARACTER AND   OUTPTK   1025
                                                  BX4    -X7*X3          IF IT IS A DIGIT THE CYCLE.             OUTPTK   1026
                                                  SB5    X4                                                      OUTPTK   1027
                                                  LX3    X5,B5                                                   OUTPTK   1028
                                                  MI     X3,DEC.1                                                OUTPTK   1029
                                                                           OTHERWISE RETURN.                     OUTPTK   1030
                                                  SPACE  1                                                       OUTPTK   1031
                                        DECIMAL   BSS    1                                                       OUTPTK   1032
                                                  AX3    X2,B2                                                   OUTPTK   1033
                                                  BX4    -X7*X3                                                  OUTPTK   1034
                                                  SB5    X4                                                      OUTPTK   1035
                                                  LX3    X5,B5                                                   OUTPTK   1036
                                                  MI     X3,DEC.1                                                OUTPTK   1037
                                                  ZR     DECIMAL                                                 OUTPTK   1038
                                                  TITLE                  UTILITY:  S P A C E                     OUTPTK   1039
                                        ************************************************************************ OUTPTK   1040
                                        *                                                                      * OUTPTK   1041
                                        *                       S P A C E                                      * OUTPTK   1042
                                        *                                                                      * OUTPTK   1043
                                        *                THIS ROUTINE WILL APPEND A DESIGNATED NUMBER OF       * OUTPTK   1044
                                        *             SPACES TO THE CURRENT OUTPUT LINE AND RETURN WITH THE    * OUTPTK   1045
                                        *             LINE POINTERS UPDATED.                                   * OUTPTK   1046
                                        *                                                                      * OUTPTK   1047
                                        *                CALLING SEQUENCE--                                    * OUTPTK   1048
                                        *                                                                      * OUTPTK   1049
                                        *                       CALL  SPACE                                    * OUTPTK   1050
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    20
  
  
                                        *                                                                      * OUTPTK   1051
                                        *             WHERE REGISTER X6 HAS BEEN SET TO THE NUMBER OF BITS TO  * OUTPTK   1052
                                        *             BE FILLED BY BLANK CHARACTERS (I.E. SIX TIMES THE NUMBER * OUTPTK   1053
                                        *             OF BLANK CHARACTERS TO BE APPENDED).                     * OUTPTK   1054
                                        *                                                                      * OUTPTK   1055
                                        *                REGISTERS USED--  X4, X5, X6, X7                      * OUTPTK   1056
                                        *                                  A4, A5, A6                          * OUTPTK   1057
                                        *                                      B5,     B7                      * OUTPTK   1058
                                        *                                                                      * OUTPTK   1059
                                        *             THE NORMAL 'OUTPTK' REGISTER USAGES ARE ASSUMED          * OUTPTK   1060
                                        *             (I.E. B1=1, B6=60, X0=CURRENT OUTPUT WORD ADDRESS, ETC.).* OUTPTK   1061
                                        *                                                                      * OUTPTK   1062
                                        ************************************************************************ OUTPTK   1063
                                                  SPACE  1                                                       OUTPTK   1064
                                        SPACE     ROUTINE                                                        OUTPTK   1065
                                                  SB7    X6              (SET REGISTER B7 TO THE SPACE COUNT AND OUTPTK   1066
                                                  SB5    B6-B3             REGISTER X5 TO AN ALL BLANK WORD.)    OUTPTK   1067
                                                  SA5    =10H                                                    OUTPTK   1068
                                                  LT     B7,B5,SPACE.3   IF THE NUMBER OF COLUMNS TO SPACE LIES  OUTPTK   1069
                                                                           WITHIN THE CURRENT OUTPUT WORD BUT    OUTPTK   1070
                                                                           DOES NOT FILL IT, GO TO 'SPACE.3',    OUTPTK   1071
                                                  MX4    1               OTHERWISE FILL OUT THE CURRENT OUTPUT   OUTPTK   1072
                                                  SB7    B7-B5             WORD WITH BLANKS.                     OUTPTK   1073
                                                  SB5    B3-B1                                                   OUTPTK   1074
                                                  AX4    X4,B5                                                   OUTPTK   1075
                                                  BX7    X4                                                      OUTPTK   1076
                                                  AX4    59                                                      OUTPTK   1077
                                                  BX7    X4*X7                                                   OUTPTK   1078
                                                  BX6    -X7*X5                                                  OUTPTK   1079
                                                  SA4    X0                                                      OUTPTK   1080
                                                  BX7    X7*X4                                                   OUTPTK   1081
                                                  IX6    X7+X6                                                   OUTPTK   1082
                                                  SA6    X0                                                      OUTPTK   1083
                                                  LT     B7,B6,SPACE.2   IF THE NUMBER OF BLANKS LEFT TO BE      OUTPTK   1084
                                                                           APPENDED WILL NOT FILL A COMPLETE     OUTPTK   1085
                                                                           WORD THEN GO TO 'SPACE.2',            OUTPTK   1086
                                                  SPACE  1                                                       OUTPTK   1087
                                                  BX6    X5              OTHERWISE FILL AS MANY COMPLETE WORDS   OUTPTK   1088
                                        SPACE.1   SB7    B7-B6             AS NECESSARY UNTIL ONLY A PARTIAL     OUTPTK   1089
                                                  SA6    A6+B1             (OR NO) WORD REMAINS.                 OUTPTK   1090
                                                  GE     B7,B6,SPACE.1                                           OUTPTK   1091
                                                  SPACE  1                                                       OUTPTK   1092
                                        SPACE.2   SX0    A6+B1           UPDATE THE OUTPUT LINE POINTERS.        OUTPTK   1093
                                                  SB3    B0                                                      OUTPTK   1094
                                                  SPACE  1                                                       OUTPTK   1095
                                        SPACE.3   ZR     B7,SPACE        RETURN IF THERE ARE NO MORE SPACES TO   OUTPTK   1096
                                                                           APPEND,                               OUTPTK   1097
                                                  SB5    B6-B3           OTHERWISE APPEND THE SPACES, UPDATE THE OUTPTK   1098
                                                  MX4    1                 LINE POINTERS AND RETURN.             OUTPTK   1099
                                                  SB3    B3+B7                                                   OUTPTK   1100
                                                  SB7    B7-B1                                                   OUTPTK   1101
                                                  AX7    X4,B7                                                   OUTPTK   1102
                                                  SA4    X0                                                      OUTPTK   1103
                                                  LX7    X7,B5                                                   OUTPTK   1104
                                                  BX5    X7*X5                                                   OUTPTK   1105
                                                  BX4    -X7*X4                                                  OUTPTK   1106
                                                  IX6    X4+X5                                                   OUTPTK   1107
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    21
  
  
                                                  SA6    X0                                                      OUTPTK   1108
                                                  ZR     SPACE                                                   OUTPTK   1109
                                         SETST    SPACE  3,14                                                    OUTPTK   1114
                                        **        SETST - SET SUB TITLE LINE                                     OUTPTK   1115
                                        *                                                                        OUTPTK   1116
                                        *         CALL SETST( WDS , "SUBTITLE" )                                 OUTPTK   1117
                                                                                                                 OUTPTK   1118
                                         SETST0   SX6    1                                                       OUTPTK   1119
                                                  SA6    =XL.STITL                                               OUTPTK   1120
                                                  SX7    2R0                                                     OUTPTK   1121
                                                  LX7    48                                                      OUTPTK   1122
                                                  SA7    =XO.STITL                                               OUTPTK   1123
                                                                                                                 OUTPTK   1124
                                         SETST    ENTRY. **                                                      OUTPTK   1125
                                                  SA4    X1                                                      OUTPTK   1126
                                                  SB1    1                                                       OUTPTK   1127
                                                  ZR     X4,SETST0   IF WDS = 0    */ NO SUBSTITLE               OUTPTK   1128
                                                  BX6    X4                                                      OUTPTK   1129
                                                  SA6    L.STITL                                                 OUTPTK   1130
                                                  SA2    A1+B1                                                   OUTPTK   1131
                                                  MOVE   X4,X2,O.STITL                                           OUTPTK   1132
                                                  SA1    =XN.LINES                                               OUTPTK   1133
                                                  SX2    X1+4                                                    OUTPTK   1134
                                                  MI     X2,SETST1   IF MORE THAN 4 LINES LEFT                   OUTPTK   1135
                                                  NUPAGE                                                         OUTPTK   1136
                                                  EQ     SETST                                                   OUTPTK   1137
                                                                                                                 OUTPTK   1138
                                         SETST1   LISTL  (=2C  ),1                                               OUTPTK   1139
                                                  SA1    L.STITL                                                 OUTPTK   1140
                                                  LISTL  O.STITL,X1                                              OUTPTK   1141
                                                  EQ     SETST                                                   OUTPTK   1142
                                         REMARK   SPACE  3,8                                                     OUTPTK   1143
                                         REMARK   ENTRY.                                                         OUTPTK   1144
                                                  MESSAGE  X1,,RCL                                               F7540FT    33
                                                  EQ     REMARK                                                  OUTPTK   1146
                                         SPA=     TITLE  SPA=  -  SUBSTITUTE PARAMETER ADDRESSES.                FCCT010     6
                                        ***       SPA= - SUBSTITUTE PARAMETER ADDRESSES.                         FCCT010     7
                                        *                                                                        FCCT010     8
                                        *         L.D.HARE           CDC-SVLOPS     5/3/77.                      FCCT010     9
                                        *         M.A.HERBACH        CDC-SVLOPS     5/3/77.                      FCCT010    10
                                        *                                                                        FCCT010    11
                                        *            *SPA=* IS AN *FCL* RESIDENT RELOCATABLE ROUTINE WHOSE       FCCT010    12
                                        *         FUNCTION IS TO SUBSTITUTE ACTUAL PARAMETER ADDRESSES           FCCT010    13
                                        *         INTO THOSE EXECUTABLE INSTRUCTIONS THAT REFERENCE THE          FCCT010    14
                                        *         ASSOCIATED FORMAL PARAMETERS.  THIS PROCESS IS TERMED          FCCT010    15
                                        *         THE *ADDSUB* FUNCTION.                                         FCCT010    16
                                        *                                                                        FCCT010    17
                                        *            TO DETERMINE WHICH ADDRESSES GET ADDSUBBED, AND WITH        FCCT010    18
                                        *         WHICH ACTUAL PARAMETER ADDRESS, THE COMPILER GENERATES         FCCT010    19
                                        *         *SUB* MACROS WHICH BUILD A BLOCK FOR EACH *FP*.                FCCT010    20
                                        *         IN CORE THESE BLOCKS WOULD BE CONTIGUOUS FORMING THE *SUB*     FCCT010    21
                                        *         TABLE TERMINATED WITH A SINGLE WORD OF THE FORMAT *CON  1S58*. FCCT010    22
                                        *                                                                        FCCT010    23
                                        *            EACH ENTRY IN THE *SUB* TABLE HAS THE FOLLOWING FORMAT:-    FCCT010    24
                                        *                                                                        FCCT010    25
                                        **T       12/SPOS,6/FP.NO.,6/0,18/CA,18/ADDRESS                          FCCT010    26
                                        *                                                                        FCCT010    27
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    22
  
  
                                        *            WHERE:-                                                     FCCT010    28
                                        *                                                                        FCCT010    29
                                        *         SPOS     = INSTRUCTION PARCEL SHIFT COUNT + 2000B.             FCCT010    30
                                        *                  = $+2001B - $/59*61                                   FCCT010    31
                                        *         SPOS     = POSITIVE FOR THE FIRST ENTRY FOR A PARAMETER,       FCCT010    32
                                        *                    OR IF A *DELAY* PRECEEDED THIS *SUB*.               FCCT010    33
                                        *                    OTHERWISE  SPOS = SPOS * -1                         FCCT010    34
                                        *         FP.NO.   = FORMAL PARAMETER NUMBER.                            FCCT010    35
                                        *         CA       = CONSTANT ADDEND.                                    FCCT010    36
                                        *         ADDRESS  = ADDRESS OF INSTRUCTION TO *ADDSUB*.                 FCCT010    37
                                        *                                                                        FCCT010    38
                                        *            NOTE THAT A SHIFT OF -0 (1777B PACKED) IS GENERATED         FCCT010    39
                                        *         INSTEAD OF A +0 SHIFT.  THIS INCREASES THE PROBABILITY         FCCT010    40
                                        *         OF A USER ABORT IF HE WERE TO ACCIDENTALLY ACCESS THE          FCCT010    41
                                        *         *SUB* TABLE WITH A BAD SUBSCRIPT.                              FCCT010    42
                                        *                                                                        FCCT010    43
                                        *         ENTRY  A0 _ ACTUAL PARAMETER LIST.                             FCCT010    44
                                        *                A3 _ FIRST *SUB* TABLE ENTRY (NEVER A DELAY).           FCCT010    45
                                        *                X3 = FIRST *SUB* TABLE ENTRY.                           FCCT010    46
                                        *                                                                        FCCT010    47
                                        *         EXIT   A0 _ ACTUAL PARAMETER LIST.                             FCCT010    48
                                        *                                                                        FCCT010    49
                                        *         USES   B3,B5  A1,A2,A3,A6  X0,X1,X2,X3,X4,X5,X6                FCCT010    50
                                        *                                                                        FCCT010    51
                                        *         CALLS  NONE.                                                   FCCT010    52
                                                  SPACE  4,8                                                     FCCT010    53
                                         SPA.     ENTRY.             ENTRY/EXIT..                                FCCT010    54
                                                                                                                 FCCT010    55
                                                  UX4    B3,X3                                                   FCCT010    56
                                                  SB5    A0                                                      FCCT010    57
                                                  AX4    42          POSITION *FP* NUMBER                        FCCT010    58
                                                  SA1    X4+B5       FIRST ACTUAL PARAMETER TO ADDSUB            FCCT010    59
                                                                                                                 FCCT010    60
                                         SPA1     SA2    X3          NEXT INSTRUCTION TO ADDSUB                  FCCT010    61
                                                  UX4    B3,X3                                                   FCCT010    62
                                                  MX0    42                                                      FCCT010    63
                                                  SB4    X1          ACTUAL PARAMETER ADDRESS                    FCCT010    64
                                                                                                                 FCCT010    65
                                         SPA2     AX4    18          SHIFT *CA* TO LOW ORDER POSITION            FCCT010    66
                                                  SA3    A3+1        PRELOAD NEXT *SUB* TABLE ENTRY              FCCT010    67
                                                  SX5    X4+B4       ADD IN *CA*                                 FCCT010    68
                                                  LX1    B3,X0       POSITION MASK                               FCCT010    69
                                                  BX6    -X0*X5      CLEAR SIGN EXTENSION ON *FP* ADDRESS        FCCT010    70
                                                  SB2    A2                                                      FCCT010    71
                                                  LX5    B3,X6       POSITION *FP* ADDRESS                       FCCT010    72
                                                  BX4    X1*X2       CLEAR ADDRESS FIELD IN INSTRUCTION          FCCT010    73
                                                  SA2    X3          PRELOAD NEXT INSTRUCTION TO *ADDSUB*        FCCT010    74
                                                  BX6    X4+X5       INSERT *FP* ADDRESS                         FCCT010    75
                                                  UX4    B3,X3                                                   FCCT010    76
                                                  SA6    B2+         RESTORE *SUBBED* INSTRUCTION                FCCT010    77
                                                  MI     X3,SPA2     IF NOT DELAY OR MORE THIS *FP*              FCCT010    78
                                                                                                                 FCCT010    79
                                                  AX4    42          POSITION *FP* NUMBER                        FCCT010    80
                                                  SA1    X4+B5       NEXT ACTUAL PARAMETER TO *ADDSUB*           FCCT010    81
                                                  NZ     B3,SPA1     IF MORE TO *ADDSUB*                         FCCT010    82
                                                  EQ     SPA.        EXIT..                                      FCCT010    83
                                                  SPACE  4,5                                                     FCCT010    84
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.53.25.      PAGE    23
  
  
                                         .TEST    ENDIF                                                          OUTPK20     7
             0                                    END                                                            OUTPK20     8
  
                             64700B CM  STORAGE USED             1250 STATEMENTS      522 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.825 SECONDS           1 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        TEST            0   FTNTEXT         1/20 F
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        1              IDENT  SNAP 
                          1                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        OVLEND    LOCAL           0         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=SNAP           0+           LWA2.0           0+ 
  
  
  
  
                                                  IDENT  SNAP                                                    SNAP        2
                                                  SST    A                                                       SNAP        3
                                                                                                                 SNAP        4
                                                  LIST   F,X                                                     SNAP        6
                                                                                                                 SNAP        7
                                                  NOREF  A                                                       SNAP        8
                                                                                                                 SNAP        9
             0                           B=SNAP   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     SNAP       10
                                                                                                                 SNAP       11
                                         #SNAP    IFNE   TEST,0                                                  SNAP       12
                                                                                                                 SNAP       13
                                                  EXT    FRA=,F.OUT                                              SNAP       14
                                         F.BDO    SPACE  4,8                                                     SNAP       15
                                         F.BDO    =      F.OUT       DEFINE BATCH DEBUG OUTPUT FILE TO BE SAME   SNAP       16
                                        *                              AS NORMAL OUTPUT FILE AS DEFINED BY       SNAP       17
                                        *                              *L=* CC PARAMETER                         SNAP       18
                                         PRBDO    SPACE  4,8                                                     SNAP       19
                                        **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                    SNAP       20
                                                                                                                 SNAP       21
                                                  PURGMAC PRBDO                                                  SNAP       22
                                                                                                                 SNAP       23
                                         PRBDO    OPSYN  LISTL                                                   SNAP       24
                                         FAA=     SPACE  4,8                                                     SNAP       25
                                        **        FAA - FIND ABSOLUTE ADDRESS.                                   SNAP       26
                                        *                                                                        SNAP       27
                                        *                                                                        SNAP       28
                                        *         ENTRY  (X0) = MX0 7*CHAR                                       SNAP       29
                                        *                (X1) = 42/0LNAME, 18/0                                  SNAP       30
                                        *                                                                        SNAP       31
                                        *         EXIT   (X6) .PL. IF ADBS ADDRESS ASSOCIATED WITH NAME          SNAP       32
                                        *                     .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND)    SNAP       33
                                        *                                                                        SNAP       34
                                        *         USES   X - 2,3,6,7                                             SNAP       35
                                        *                A - 2                                                   SNAP       36
                                        *                B - 6,7                                                 SNAP       37
                                        *                                                                        SNAP       38
                                        *         CALLS  /DBG=IDP/SKT                                            SNAP       39
                                                                                                                 SNAP       40
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              SNAP       41
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     2
  
  
                                                                                                                 SNAP       42
                                         FAA=     SUBR               ** ENTRY/EXIT **                            SNAP       43
                                                  SB6    =XFWA2.0    (B6) = FWA OF (2,0) *RPV* TABLE             SNAP       44
                                                  RJ     /DBG=IDP/SKT  SEARCH FOR *NAME*                         SNAP       45
                                                  SX6    X2+                                                     SNAP       46
                                                  NZ     X2,EXIT.    IF A FIND                                   SNAP       47
                                                  SB6    =XLWA2.0+1+LDR.NN  (B6) = FWA OF (2,N) *RPV* TABLE      SNAP       48
                                                  RJ     /DBG=IDP/SKT  SEARCH FOR *NAME*                         SNAP       49
                                                  SX6    X2                                                      SNAP       50
                                                  NZ     X2,EXIT.    IF A FIND                                   SNAP       51
                                                  MX6    1           SET TO *NO FIND*                            SNAP       52
                                                  EQ     EXIT.                                                   SNAP       53
                                         #OS      ENDIF                                                          SNAP       54
                                         UIO=     SPACE  4,8                                                     SNAP       55
                                        **        UIO= - USER IDP OWNCODE.                                       SNAP       56
                                        *                                                                        SNAP       57
                                        *                                                                        SNAP       58
                                        *         ENTRY  (RA.ORG) =  12/LAST OVERLAY LOADED (0P0S FMT),48/OTHER  SNAP       59
                                        *                (UIOA)   =  48/0,12/LAST OVERLAY LOADED ON PREVIOUS     SNAP       60
                                        *                              IDP CALL (0P0S FMT)                       SNAP       61
                                        *                                                                        SNAP       62
                                        *         EXIT   (X1)     =  .MI., I.E. HONOR BREAK                      SNAP       63
                                        *                                                                        SNAP       64
                                        *                WARNING -- IF THE USER HAS NOT ALLOTTED ENOUGH SPACE    SNAP       65
                                        *                  FOR THE USER *SET* NAME TABLE *IDPSET* TO CONTAIN     SNAP       66
                                        *                  ALL THE DEFAULT *SET* NMAES, THEN *ADZ* (CALLED BY    SNAP       67
                                        *                  *IST*) WILL SENSE TABLE OVERFLOW AND XIT TO *IDP=ER*. SNAP       68
                                        *                  THIS CONDITION SHOULD BE AVOIDED.                     SNAP       69
                                        *                                                                        SNAP       70
                                        *         USES   X - 0,1,2,3,6,7   (INCLUDES ALL CALLS)                  SNAP       71
                                        *                A - 1,2,6                                               SNAP       72
                                        *                B - 6,7                                                 SNAP       73
                                        *                                                                        SNAP       74
                                        *         CALLS  CLZ,IST                                                 SNAP       75
                                                                                                                 SNAP       76
                                         #OS      IFNE   .OS,2                                                   FEAT155FA   6
                                                                                                                 SNAP       77
                                         UIO=     SUBR               ** ENTRY/EXIT **                            SNAP       78
                                                  SA2    RA.ORG                                                  SNAP       79
                                                  SA3    UIOA                                                    SNAP       80
                                                  MX1    1           SET TO *HONOR BREAK*                        SNAP       81
                                                  AX2    48-0                                                    SNAP       82
                                                  IX7    X2-X3                                                   SNAP       83
                                                  BX6    X2                                                      SNAP       84
                                                  ZR     X7,EXIT.    IF WE ARE STILL IN THE SAME OVERLAY         SNAP       85
                                                  SA6    A3                                                      SNAP       86
                                                  SB6    IDPBA                                                   SNAP       87
                                                  RJ     CLZ         CLEAR IDP TABLE -- BREAK ADDRESSES          SNAP       88
                                                  SB6    IDPSET                                                  SNAP       89
                                                  RJ     CLZ         CLEAR IDP TABLE -- SET NAMES                SNAP       90
                                                  RJ     IST         (RE)INITIALIZE DEFAULT *SET* NAMES          SNAP       91
                                                  MX1    1           SET TO *HONOR BREAK*                        SNAP       92
                                                  EQ     EXIT.                                                   SNAP       93
                                                                                                                 SNAP       94
                                                                                                                 SNAP       95
                                         UIOA     BSSZ   1           USED TO TELL WHETHER OR NOT A NEW OVERLAY   SNAP       96
                                        *                              HAS BEEN LOADED SINCE THE LAST *IDP*      SNAP       97
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     3
  
  
                                        *                              CALL-- CONTAINS THE MOST RECENT OVERLAY   SNAP       98
                                        *                              LOADED NR FROM *RA.ORG* -- 48/0,12/0P0S   SNAP       99
                                         #OS      ENDIF                                                          FEAT155FA   7
                                         URO=     SPACE  4,8                                                     SNAP      100
                                        **        URO= - USER REG= OWNCODE.                                      SNAP      101
                                        *                                                                        SNAP      102
                                        *         ENTRY  NONE                                                    SNAP      103
                                        *                                                                        SNAP      104
                                        *         EXIT   (X1) = .MI. IF SNAP TO BE HONORED, ELSE .PL.            SNAP      105
                                        *                                                                        SNAP      106
                                        *         USES   X - 1                                                   SNAP      107
                                        *                A - 1                                                   SNAP      108
                                        *                                                                        SNAP      109
                                        *         CALLS  NONE                                                    SNAP      110
                                                                                                                 SNAP      111
                                                                                                                 SNAP      112
                                         URO=     SUBR               ** ENTRY/EXIT **                            SNAP      113
                                                  SA1    =XCO.SNAP                                               SNAP      114
                                                  LX1    1RG                                                     SNAP      115
                                                  BX1    -X1                                                     SNAP      116
                                                  EQ     EXIT.                                                   SNAP      117
                                                                                                                 SNAP      118
                                                                                                                 SNAP      119
                                         USO=     =      URO=                                                    SNAP      120
                                         UFT=     SPACE  4,8                                                     SNAP      121
                                        **        UFT= - USER FILE NAME TABLE.                                   SNAP      122
                                                                                                                 SNAP      123
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              SNAP      124
                                                                                                                 SNAP      125
                                         UFT=     BSS    0                                                       SNAP      126
                                                  VFD    42/0LF.OUT,18/=XF.OUT                                   SNAP      127
                                                  VFD    42/0LOUTPUT,18/=XF.OUT                                  FCCT001    14
                                                  DATA   0           END OF TABLE MARK                           SNAP      128
                                         #OS      ENDIF                                                          SNAP      129
                                         DBG=IDP  CTEXT  DBG=IDP - INTERACTIVE AND BATCH DEBUG PACKAGES.         DBG=IDP     2
                                         DBG=IDP  SPACE  4,8                                                     DBG=IDP     3
                                                  IF     -DEF,QUAL$,1                                            DBG=IDP     4
                                                  QUAL   DBG=IDP                                                 DBG=IDP     5
                                                  BASE   D                                                       DBG=IDP     6
                                         DBG=IDP  SPACE  4,8                                                     DBG=IDP     7
                                        **        DBG=IDP - INTERACTIVE AND BATCH DEBUG PACKAGES.                DBG=IDP     8
                                        *                                                                        DBG=IDP     9
                                        *                                                                        DBG=IDP    10
                                        *                CONTAINS THE INTERACTIVE DEBUG PACKAGE (IDP=), WHICH    DBG=IDP    11
                                        *         PLACES A HOST PROGRAM IN INTERACTIVE MODE; AND THE 2 BATCH     DBG=IDP    12
                                        *         DEBUGGING ROUTINES (REG=,SNP=), WHICH PROVIDE REGISTER AND     DBG=IDP    13
                                        *         CORE SNAPSHOT DUMPS.                                           DBG=IDP    14
                                        *                                                                        DBG=IDP    15
                                        *            IN THE SECTIONS THAT FOLLOW, *ASSEMBLY-TIME DEPENDENCIES*   DBG=IDP    16
                                        *         ARE DEFINED TO BE THE INTERFACES THAT THE IDP INSTALLER MUST   DBG=IDP    17
                                        *         PROVIDE; *ASSEMBLY-TIME OPTIONS* ARE THOSE INTERFACES WHICH    DBG=IDP    18
                                        *         ARE OPTIONAL, I.E. INTERFACES THAT HAVE DEFAULT CONDITIONS.    DBG=IDP    19
                                        *            IN THE CASE WHERE THE USER PROVIDES A SUBROUTINE THAT WILL  DBG=IDP    20
                                        *         BE CALLED BY IDP, THE *ENTRY* AND *EXIT* CONDITIONS ARE SHOWN. DBG=IDP    21
                                        *         IN ADDITION, THE REGISTERS THAT CANNOT BE ALTERED BY THE USER  DBG=IDP    22
                                        *         SUBROUTINE ARE SPECIFIED VIA *LOCKED*.  (B1) ARE ASSUMED TO BE DBG=IDP    23
                                        *         EQUAL TO 1 (LOCKED), AND WILL THEREFORE NOT BE MENTIUNED       DBG=IDP    24
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     4
  
  
                                        *         AGAIN.                                                         DBG=IDP    25
                                        *                                                                        DBG=IDP    26
                                        *         ASSEMBLY-TIME DEPENDENCIES--                                   DBG=IDP    27
                                        *                                                                        DBG=IDP    28
                                        ************************************************************************ DBG=IDP    29
                                        *                                                                        DBG=IDP    30
                                        ***       CP.NFLS - NOMINAL FIELD LENGTH SCM.                            DBG=IDP    31
                                        *                                                                        DBG=IDP    32
                                        *                *CP.NFLS* MUST BE THE NAME OF THE SCM LOCATION THAT     DBG=IDP    33
                                        *         CONTAINS THE CURRENT NOMINAL FIELD LENGTH FOR THE HOST         DBG=IDP    34
                                        *         PROGRAM.  THE CONTENTS OF *CP.NFLS* ARE USED BY *DBG=IDP*      DBG=IDP    35
                                        *         FOR ADDRESS COMPUTATION CHECKS.                                DBG=IDP    36
                                        *                0 .LE. LEGAL ADDR .LE. (CP.NFLS)                        DBG=IDP    37
                                        *                                                                        DBG=IDP    38
                                        *         FORMAT--                                                       DBG=IDP    39
                                        *         VFD    42/0,18/FL                                              DBG=IDP    40
                                        *                                                                        DBG=IDP    41
                                        *         NOTE-- IT IS SUGGESTED THAT (CP.NFLS) BE 10B WORDS LESS THAN   DBG=IDP    42
                                        *           THE ACTUAL FIELD LENGTH SCM TO AVOID POSSIBLE STACK          DBG=IDP    43
                                        *           LOOK AHEAD PROBLEMS NEAR FL.                                 DBG=IDP    44
                                        ************************************************************************ DBG=IDP    45
                                        *                                                                        DBG=IDP    46
                                        *         ASSEMBLY-TIME OPTIONS--                                        DBG=IDP    47
                                        *                                                                        DBG=IDP    48
                                        ************************************************************************ DBG=IDP    49
                                        *                                                                        DBG0002    22
                                        ***              IF THE SYMBOL *EOS* IS A MICRO NAME (MIC), THEN         DBG0002    23
                                        *         "EOS" IS A MICRO WHICH DEFINES THE INTERACTIVE                 DBG0002    24
                                        *         END-OF-STATEMENT CHARACTER.  THE USE OF THIS CHARACTER ALLOWS  DBG0002    25
                                        *         AN *IDP* USER TO ENTER MORE THAN ONE INTERACTIVE COMMAND ON    DBG0002    26
                                        *         A SINGLE LINE.                                                 DBG0002    27
                                        *                                                                        DBG0002    28
                                        *         DEFAULT IS --                                                  DBG0002    29
                                        *                                                                        DBG0002    30
                                        *         EOS    MICRO  1,,/;/                                           DBG0002    31
                                        *                                                                        DBG0002    32
                                        *         E.G.   SNAP,100;REG,X1;END                                     DBG0002    33
                                        *                                                                        DBG0002    34
                                        *         NOTE   THE END OF STATEMENT LOGIC WILL NOT WORK PROPERLY IF    DBG0002    35
                                        *                "EOS" IS ONE OF THE FOLLOWING 8 CHARACTERS --           DBG0002    36
                                        *                JKLMNOPQ                                                DBG0002    37
                                        ************************************************************************ DBG0002    38
                                        *                                                                        DBG=IDP    50
                                        ***          IF THE SYMBOL *FAA=* IS DEFINED (DEF), THEN *FAA= - FIND    DBG=IDP    51
                                        *         ABSOLUTE ADDRESS* IS A USER SUBROUTINE THAT WILL PROVIDE       DBG=IDP    52
                                        *         *DBG=IDP* WITH AN ABSOLUTE ADDRESS ASSOCIATED WITH A *NAME*.   DBG=IDP    53
                                        *         THIS OPTION IS INTENDED FOR HOST PROGRAMS THAT CONSIST OF      DBG=IDP    54
                                        *         MULTIPLE *DECK*S OR *IDENT*S, AND WHERE USERS OF *IDP* WOULD   DBG=IDP    55
                                        *         LIKE TO BE ABLE TO REFERENCE ADDRESSES RELATIVE TO A           DBG=IDP    56
                                        *         DECK NAME--  E.G. SNAP NAME+20,,10                             DBG=IDP    57
                                        *            IF *FAA=* IS DEFINED, THEN *IDP* WILL *RJ =XFAA=* TO TRY TO DBG=IDP    58
                                        *         ASSOCIATE AN ABSOLUTE ADDRESS WITH *NAME* BEFORE HE SEARCHS    DBG=IDP    59
                                        *         THE USER *SET* TABLE.                                          DBG=IDP    60
                                        *                                                                        DBG=IDP    61
                                        **        FAA= - FIND ABSOLUTE ADDRESS.                                  DBG=IDP    62
                                        *                                                                        DBG=IDP    63
                                        *         ENTRY  (X0) = MX0 7*CHAR     (CHAR=6)                          DBG=IDP    64
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     5
  
  
                                        *                (X1) = 42/0LNAME, 18/0                                  DBG=IDP    65
                                        *                                                                        DBG=IDP    66
                                        *         EXIT   (X6) = .PL. IF ABS ADDR ASSOCIATED WITH NAME            DBG=IDP    67
                                        *                       .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND)  DBG=IDP    68
                                        *                                                                        DBG=IDP    69
                                        *         LOCKED X - 0,1                                                 DBG=IDP    70
                                        ************************************************************************ DBG=IDP    71
                                        *                                                                        DBG=IDP    72
                                        ***          IF THE SYMBOL *FRA=* IS DEFINED (DEF), THEN *FRA= - FIND    DBG=IDP    73
                                        *         RELATIVE ADDRESS* IS A USER SUBROUTINE THAT WILL PROVIDE       DBG=IDP    74
                                        *         *DBG=IDP* WITH A DISPLAY CODE (DPC) NAME AND RELATIVE OFFSET   DBG=IDP    75
                                        *         ASSOCIATED WITH AN ABSOLUTE ADDRESS. THIS ROUTINE IS THE       DBG=IDP    76
                                        *         LOGICAL COMPLEMENT TO *FAA=*, AND IS USED BY ROUTINES IN       DBG=IDP    77
                                        *         *DBG=IDP* TO OUTPUT A MORE HUMAN READABLE ADDRESS FORMAT.      DBG=IDP    78
                                        *                                                                        DBG=IDP    79
                                        *         E.G. IN RESPONSE TO *IDP* COMMAND-- CODE NAME+10               DBG=IDP    80
                                        *         1025   010001023         RJ    1023     6 IN NAME              DBG=IDP    81
                                        *                                                                        DBG=IDP    82
                                        *            IF *FRA=* IS DEFINED, WHENEVER A ROUTINE IN *DBG=IDP*       DBG=IDP    83
                                        *         REQUIRES THIS RELATIVE ADDRESS PLUS OFFSET DPC FORMAT, A       DBG=IDP    84
                                        *         *EQ =XFRA=* IS EXECUTED.                                       DBG=IDP    85
                                        *                                                                        DBG=IDP    86
                                        **        FRA= - FIND RELATIVE ADDRESS.                                  DBG=IDP    87
                                        *                                                                        DBG=IDP    88
                                        *         ENTRY  (X1) = 60/ABS ADDR                                      DBG=IDP    89
                                        *                (B7) = RETURN ADDRESS-- AN *RJ =XFRA=* IS NOT USED      DBG=IDP    90
                                        *                         BECAUSE IF THE HOST PROGRAM HAS REPRIEVE       DBG=IDP    91
                                        *                         PROCESSING, THEN *FRA=* COULD BE INCORPORATED  DBG=IDP    92
                                        *                         INTO IT AND EXIST IN AN AREA CHECKSUMMED       DBG=IDP    93
                                        *                         BY *RPV*                                       DBG=IDP    94
                                        *                                                                        DBG=IDP    95
                                        *         EXIT   (X6) = 1ST WORD OF DPC RESULT                           DBG=IDP    96
                                        *                         E.G. (X6) = NNNNNN.IN.     (.=BLANK(55B))      DBG=IDP    97
                                        *                (X7) = 2ND WORD OF DPC RESULT  (-C- FORMAT)             DBG=IDP    98
                                        *                         E.G. (X7) = XXXXXXX000     (0=00B)             DBG=IDP    99
                                        *                                                                        DBG=IDP   100
                                        *         LOCKED X - 5                                                   DBG=IDP   101
                                        *                A - 0,5,6,7                                             DBG=IDP   102
                                        ************************************************************************ DBG0002    39
                                        *                                                                        DBG0002    40
                                        ***              IF THE SYMBOL *PROMPT* IS A MICRO NAME (MIC), THEN      DBG0002    41
                                        *         "PROMPT" IS A MICRO WHICH DEFINES THE INTERACTIVE PROMPT.      DBG0002    42
                                        *         THIS PROMPT WILL BE ISSUED WHENEVER *IDP* REQUIRES THAT THE    DBG0002    43
                                        *         USER ENTER A COMMAND.                                          DBG0002    44
                                        *                                                                        DBG0002    45
                                        *         DEFAULT IS --                                                  DBG0002    46
                                        *                                                                        DBG0002    47
                                        *         PROMPT MICRO  1,,/>>/                                          DBG0002    48
                                        *                                                                        DBG0002    49
                                        *         NOTE - *IDP* PREFIXES THE "PROMPT" WITH A BLANK (55B) PRINT    DBG0002    50
                                        *                CONTROL CHARACTER.                                      DBG0002    51
                                        ************************************************************************ DBG=IDP   103
                                        *                                                                        DBG=IDP   104
                                        ***          IF THE SYMBOL *UKT=* IS DEFINED (DEF), THEN *UKT=* IS THE   DBG=IDP   105
                                        *         FWA OF THE USER KEYWORD TABLE. THIS OPTION ALLOWS THE USER TO  DBG=IDP   106
                                        *         PERFORM HER OR HIS OWN KEYWORD PROCESSING IN INTERACTIVE MODE. DBG=IDP   107
                                        *         IF *UKT=* IS DEFINED, THEN AFTER *IDP* HAS SEARCHED ITS OWN    DBG=IDP   108
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     6
  
  
                                        *         KEYWORD TABLE, IT WILL SEARCH THE USER KEYWORD TABLE AT        DBG=IDP   109
                                        *         *UKT=* ET SEQ, AND BRANCH TO THE PROCESSOR ADDRESS IF A FIND   DBG=IDP   110
                                        *         IS MADE. *UKT=* FORMAT--                                       DBG=IDP   111
                                        *                                                                        DBG=IDP   112
                                        * UKT=    BSS    0                                                       DBG=IDP   113
                                        *         VFD    42/0LKEYWORD, 18/PROCESSOR ADDR                         DBG=IDP   114
                                        *          .                                                             DBG=IDP   115
                                        *          .                                                             DBG=IDP   116
                                        *         DATA   0           END OF TABLE MARK                           DBG=IDP   117
                                        *                                                                        DBG=IDP   118
                                        *            AFTER KEYWORD PROCESSING, THE USER SHOULD BRANCH TO EITHER  DBG=IDP   119
                                        *         *IDP=MN* TO REENTER THE MAIN LOOP, OR TO *IDP=ER* TO ISSUE     DBG=IDP   120
                                        *         MESSAGE *ERROR--* BEFORE REENTERING MAIN LOOP.                 DBG=IDP   121
                                        ************************************************************************ DBG=IDP   122
                                        *                                                                        DBG=IDP   123
                                        ***          IF THE SYMBOL *UIO=* IS DEFINED (DEF), THEN *UIO= - USER    DBG=IDP   124
                                        *         IDP OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY   DBG=IDP   125
                                        *         TO *IDP=*. IT ALLOWS THE USER TO PERFORM HER OWN TASKS BEFORE  DBG=IDP   126
                                        *         ENTERING INTERACTIVE MODE (E.G. CHECKING A MASTER SNAP FLAG).  DBG=IDP   127
                                        *                                                                        DBG=IDP   128
                                        **        UIO= - USER IDP OWNCODE.                                       DBG=IDP   129
                                        *                                                                        DBG=IDP   130
                                        *         ENTRY  NONE                                                    DBG=IDP   131
                                        *                                                                        DBG=IDP   132
                                        *         EXIT   (X1) = .MI. IF TO ENTER INTERACTIVE MODE                DBG=IDP   133
                                        *                     = .PL. IF NOT ENTERING INTERACTIVE MODE THIS TIME  DBG=IDP   134
                                        *                              I.E. ALL REGISTERS ARE RESTORED AND       DBG=IDP   135
                                        *                                   CONTROL RETURNS TO CALLER            DBG=IDP   136
                                        *                                                                        DBG=IDP   137
                                        *         LOCKED X - 5                                                   DBG=IDP   138
                                        ************************************************************************ DBG=IDP   139
                                        *                                                                        DBG=IDP   140
                                        ***       .OS - DEFINE OPERATING SYSTEM.                                 DBG=IDP   141
                                        *                                                                        DBG=IDP   142
                                        *         .OS = 1   KRONOS 2 OR NOS 1/TS                                 DBG=IDP   143
                                        *         .OS = 2   SCOPE 2  (CYBER 76)                                  DBG=IDP   144
                                        *         .OS = 3   SCOPE 3 OR NOS 1/BE  (DEFAULT)                       DBG=IDP   145
                                        ************************************************************************ DBG=IDP   146
                                        *                                                                        DBG=IDP   147
                                        ***          IF THE SYMBOL *URO=* IS DEFINED (DEF), THEN *URO= - USER    DBG=IDP   148
                                        *         REG= OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY  DBG=IDP   149
                                        *         TO THE REGISTER SNAPSHOT ROUTINE *REG=* (CALLED VIA *REG*      DBG=IDP   150
                                        *         MACRO IN *DBG=MAC*). IT ALLOWS THE USER TO PERFORM HIS OWN     DBG=IDP   151
                                        *         TASKS BEFORE THE REGISTER SNAPSHOT IS TAKEN (E.G. CHECKING A   DBG=IDP   152
                                        *         MASTER SNAP FLAG).                                             DBG=IDP   153
                                        *                                                                        DBG=IDP   154
                                        **        URO= - USER REG= OWNCODE.                                      DBG=IDP   155
                                        *                                                                        DBG=IDP   156
                                        *         ENTRY  NONE                                                    DBG=IDP   157
                                        *                                                                        DBG=IDP   158
                                        *         EXIT   (X1) = .MI. IF TO PERFORM REGISTER SNAPSHOT             DBG=IDP   159
                                        *                     = .PL. IF NO REGISTER SNAPSHOT THIS TIME           DBG=IDP   160
                                        ************************************************************************ DBG=IDP   161
                                        *                                                                        DBG=IDP   162
                                        ***          IF THE SYMBOL *USO=* IS DEFINED (DEF), THEN *USO= - USER    DBG=IDP   163
                                        *         SNP= OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY  DBG=IDP   164
                                        *         TO THE CORE SNAPSHOT ROUTINE *SNP=* (CALLED VIA *SNAP* MACRO   DBG=IDP   165
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     7
  
  
                                        *         IN *DBG=MAC*). IT ALLOWS THE USER TO PERFORM HIS OWN TASKS     DBG=IDP   166
                                        *         BEFORE THE SNAPSHOT IS TAKEN (E.G. CHECKING A MASTER SNAP      DBG=IDP   167
                                        *         FLAG).                                                         DBG=IDP   168
                                        *                                                                        DBG=IDP   169
                                        **        USO= - USER SNP= OWNCODE.                                      DBG=IDP   170
                                        *                                                                        DBG=IDP   171
                                        *         ENTRY  NONE                                                    DBG=IDP   172
                                        *                                                                        DBG=IDP   173
                                        *         EXIT   (X1) = .MI. IF SNAP TO BE TAKEN                         DBG=IDP   174
                                        *                     = .PL. IF NO SNAP THIS TIME                        DBG=IDP   175
                                        ************************************************************************ DBG=IDP   176
                                        *                                                                        DBG=IDP   177
                                        ***              AS A SPACE OPTIMIZATION, IF THE FOLLOWING GENERAL       DBG=IDP   178
                                        *         UTILITY SUBROUTINES ARE DEFINED (DEF), THEN THEY WILL NOT BE   DBG=IDP   179
                                        *         ASSEMBLED WITHIN *DBG=IDP*--                                   DBG=IDP   180
                                        *                                                                        DBG=IDP   181
                                        *         WOD - CONVERT A FULL BINARY WORD TO OCTAL DPC.                 DBG=IDP   183
                                        *                                                                        DBG=IDP   184
                                        *                THIS OPTIOM APPLIES MAINLY TO HOST PROGRAMS THAT HAVE   DBG=IDP   185
                                        *         *DBG=IDP* ASSEMBLED ONLY IN A TEST OR DEBUGGING CONFIGURATION, DBG=IDP   186
                                        *         BUT THAT REQUIRE THE ABOVE UTILITY SUBROUTINES UNDER ALL       DBG=IDP   187
                                        *         CONFIGURATIONS, THEREBY NECESSITATING A SEPARATE COPY OF THEM. DBG=IDP   188
                                        ************************************************************************ DBG=IDP   189
                                         .OS      SPACE  4,8                                                     DBG=IDP   190
                                        **        DEFINE DEFAULT OPERATING SYSTEM.                               DBG=IDP   191
                                                  IF     -DEF,.OS,1                                              DBG=IDP   192
                                         .OS      =      3           SCOPE 3                                     DBG=IDP   193
                                         BITMIC   SPACE  4,8                                                     DBG0002    52
                                        **        BITMIC - MACRO TO GENERATE BIT MASKS FOR CHARACTER STRINGS     DBG0002    53
                                        *                                                                        DBG0002    54
                                        * MIKE    BITMIC (BITS),OFF                                              DBG0002    55
                                        * MIKE    LETMIC (LETS),OFF             (ALTERNATE FORM)                 DBG0002    56
                                        *                                                                        DBG0002    57
                                        *         *MIKE* = THE NAME OF THE MICRO TO BE GENERATED.                DBG0002    58
                                        *         *BITS* = (BIT1,BIT2,...,BITN)                                  DBG0002    59
                                        *                WHERE EACH *BITN* IS A VALUE OF A BIT THAT IS TO BE SET DBG0002    60
                                        *         *LETS* = A CHARACTER STRING, (ABCD...N) IMPLIES THAT           DBG0002    61
                                        *                THE BIT VALUES ARE (1RA,1RB,1RC,...,1RN).               DBG0002    62
                                        *                THIS ALTERNATE FORM IS MERELY A CONVENIENCE ITEM.       DBG0002    63
                                        *         *OFF*  = OFFSET, IF OTHER THAN 59.                             DBG0002    64
                                        *                                                                        DBG0002    65
                                        *         GENERATES A MICRO WHICH IS A 20 OCTAL DIGIT INTEGER (WITH      DBG0002    66
                                        *                THE *B* SUFFIX PRESENT) WHICH REPRESENTS THE SUM OF     DBG0002    67
                                        *                    ---     2**(OFF-BIT(N))     ---                     DBG0002    68
                                        *                TAKEN OVER ALL *N* PARAMETERS.                          DBG0002    69
                                        *                *OFF* IS = 59 UNLESS EXPLICITLY MENTIONED.              DBG0002    70
                                        *                                                                        DBG0002    71
                                        *         USES   (AS SCRATCH SYMBOLS)  A B C D E F G                     DBG0002    72
                                                                                                                 DBG0002    73
                                                  NOREF  A,B,C,D,E,F,G                                           DBG0002    74
                                                                                                                 DBG0002    75
                                                  PURGMAC BITMIC                                                 DBG0002    76
                                                                                                                 DBG0002    77
                                                  MACRO  BITMIC,LOC,BITS,OFF                                     DBG0002    78
                                         C        OCTMIC ,10D                                                    DBG0002    79
                                         D        OCTMIC ,10D                                                    DBG0002    80
                                         F        SET    OFF 59D                                                 DBG0002    81
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     8
  
  
                                                  IRP    BITS                                                    DBG0002    82
                                        ..2       IFLE   F-BITS,29                                               DBG0002    83
                                         E        DECMIC F-BITS,2                                                DBG0002    84
                                         C        OCTMIC 1S"E"+"C"B,10D                                          DBG0002    85
                                        ..2       ELSE                                                           DBG0002    86
                                         E        DECMIC F-30-BITS,2                                             DBG0002    87
                                         D        OCTMIC 1S"E"+"D"B,10D                                          DBG0002    88
                                        ..2       ENDIF                                                          DBG0002    89
                                                  IRP                                                            DBG0002    90
                                         LOC      MICRO  1,, "D""C"B                                             DBG0002    91
                                         BITMIC   ENDM                                                           DBG0002    92
                                         LETMIC   SPACE  4,8                                                     DBG0002    93
                                                  PURGMAC LETMIC                                                 DBG0002    94
                                                                                                                 DBG0002    95
                                                  MACRO  LETMIC,LOC,BITS,OFF                                     DBG0002    96
                                         A        SET    0                                                       DBG0002    97
                                         B        MICRO  1,,^_BITS_^                                             DBG0002    98
                                         C        OCTMIC ,10D                                                    DBG0002    99
                                         D        OCTMIC ,10D                                                    DBG0002   100
                                         F        SET    OFF 59D                                                 DBG0002   101
                                         G        MICCNT B                                                       DBG0002   102
                                        .1        DUP    G                                                       DBG0002   103
                                         A        SET    A+1                                                     DBG0002   104
                                         B        MICRO  A,1,^_BITS_^                                            DBG0002   105
                                        ..2       IFLE   F-1R"B",29                                              DBG0002   106
                                         E        DECMIC F-1R"B",2                                               DBG0002   107
                                         C        OCTMIC 1S"E"+"C"B,10D                                          DBG0002   108
                                        ..2       ELSE                                                           DBG0002   109
                                         E        DECMIC F-30-1R"B",2                                            DBG0002   110
                                         D        OCTMIC 1S"E"+"D"B,10D                                          DBG0002   111
                                        ..2       ENDIF                                                          DBG0002   112
                                        .1        ENDD                                                           DBG0002   113
                                         LOC      MICRO  1,, "D""C"B                                             DBG0002   114
                                         LETMIC   ENDM                                                           DBG0002   115
                                         CHARMX   SPACE  4,8                                                     DBG0002   116
                                        **        CHARMX - GENERATE CHARACTER SHIFT MASK WORD.                   DBG0002   117
                                        *                                                                        DBG0002   118
                                        *                                                                        DBG0002   119
                                        * LAB     CHARMX CHAR,BIAS                                               DBG0002   120
                                        *                                                                        DBG0002   121
                                        * MX=NR09 CHARMX (0,1,2,3,4,5,6,7,8,9)                                   DBG0002   122
                                        * MX=TOKN CHARMX ("EOS",+,-,*,(,)),+7777B-1RM                            DBG0002   123
                                        *                                                                        DBG0002   124
                                        *         ENTRY  LAB  = COMPASS ADDRESS FIELD OF CHARACTER SHIFT MASK    DBG0002   125
                                        *                         WORD                                           DBG0002   126
                                        *                CHAR = A LIST OF CHARACTERS TO GENERATE SHIFT MASK FOR  DBG0002   127
                                        *                BIAS = CHAR BIAS (MODULO 60D)                           DBG0002   128
                                        *                                                                        DBG0002   129
                                        *                         IF (LAB) ARE LEFT SHIFTED *CHAR_BIAS*, THEN    DBG0002   130
                                        *                         SIGN BIT WILL BE ON FOR ANY CHARACTER THAT     DBG0002   131
                                        *                         APPEARED IN *CHAR* LIST, AND OFF FOR ALL       DBG0002   132
                                        *                         OTHERS.                                        DBG0002   133
                                        *                                                                        DBG0002   134
                                        *         EXIT   NONE                                                    DBG0002   135
                                        *                                                                        DBG0002   136
                                        *         USES   NONE                                                    DBG0002   137
                                        *                                                                        DBG0002   138
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE     9
  
  
                                        *         CALLS  NONE                                                    DBG0002   139
                                                                                                                 DBG0002   140
                                                  NOREF  .2,.3,.4                                                DBG0002   141
                                                                                                                 DBG0002   142
                                                  PURGMAC CHARMX                                                 DBG0002   143
                                                                                                                 DBG0002   144
                                                  MACRO  CHARMX,LAB,CHAR,BIAS                                    DBG0002   145
                                        *                                                                        DBG0002   146
                                         .1       MICRO  1,60,/0000000000000000000000000000000000000000000000000 DBG0002   147
                                        ,00000000000/                                                            DBG0002   148
                                        *                                                                        DBG0002   149
                                         CHAR     IRP    CHAR                                                    DBG0002   150
                                         .2       MICRO  1,,/CHAR/                                               DBG0002   151
                                         .3       MICCNT .2                                                      DBG0002   152
                                        *                                                                        DBG0002   153
                                                  IFEQ   .3,1,2                                                  DBG0002   154
                                         .4       SET    1R".2"                                                  DBG0002   155
                                                  SKIP   1                                                       DBG0002   156
                                         .4       SET    ".2"                                                    DBG0002   157
                                        *                                                                        DBG0002   158
                                                  IFC    NE,/BIAS//,1                                            DBG0002   159
                                         .4       SET    .4_BIAS                                                 DBG0002   160
                                        *                                                                        DBG0002   161
                                         .4       OCTMIC .4,2                                                    DBG0002   162
                                         .2       SET    ".4"B                                                   DBG0002   163
                                        *                                                                        DBG0002   164
                                                  IFNE   .2,0,2                                                  DBG0002   165
                                         .3       MICRO  1,.2,/".1"/                                             DBG0002   166
                                                  SKIP   1                                                       DBG0002   167
                                         .3       MICRO  1,,//                                                   DBG0002   168
                                        *                                                                        DBG0002   169
                                                  IFNE   .2,59,2                                                 DBG0002   170
                                         .4       MICRO  .2+2,,/".1"/                                            DBG0002   171
                                                  SKIP   1                                                       DBG0002   172
                                         .4       MICRO  1,,//                                                   DBG0002   173
                                        *                                                                        DBG0002   174
                                         .1       MICRO  1,60,/".3"1".4"/                                        DBG0002   175
                                         CHAR     IRP                                                            DBG0002   176
                                        *                                                                        DBG0002   177
                                         .2       SET    0                                                       DBG0002   178
                                         LAB      BSS    0                                                       DBG0002   179
                                        *                                                                        DBG0002   180
                                         BIT      DUP    60                                                      DBG0002   181
                                         .2       SET    .2+1                                                    DBG0002   182
                                         .3       MICRO  .2,1,/".1"/                                             DBG0002   183
                                        *                                                                        DBG0002   184
                                                  POS    60-.2+1                                                 DBG0002   185
                                                  VFD    1/".3"                                                  DBG0002   186
                                         BIT      ENDD                                                           DBG0002   187
                                        *                                                                        DBG0002   188
                                         CHARMX   ENDM                                                           DBG0002   189
                                         DESCRIBE SPACE  4,8                                                     DBG0002   190
                                        **        DESCRIBE, DEFINE - FIELD DEFINITION MACROS.                    DBG0002   191
                                        *                                                                        DBG0002   192
                                        *         MACROS TO FACILITATE FIELD DESCRIPTION, WHERE FIELDS ARE       DBG0002   193
                                        *         SUB-WORD ENTITIES.  THE 'DESCRIBE' MACRO IS USED TO PROVIDE    DBG0002   194
                                        *         A PREFIX FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES. DBG0002   195
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    10
  
  
                                        *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE         DBG0002   196
                                        *         DEFINED0                                                       DBG0002   197
                                        *                                                                        DBG0002   198
                                        *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT    DBG0002   199
                                        *                              WHICH COMPRISES THE NAMED FIELD (WITHIN   DBG0002   200
                                        *                              A WORD BITS ARE NUMBERED ACCORDING TO     DBG0002   201
                                        *                              THE POWER OF TWO WHICH THEY REPRESENT)    DBG0002   202
                                        *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD           DBG0002   203
                                        *                                                                        DBG0002   204
                                        *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-  DBG0002   205
                                        *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER   DBG0002   206
                                        *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.  DBG0002   207
                                        *                                                                        DBG0002   208
                                        *         'DESCRIBE' REFERENCE --                                        DBG0002   209
                                        *                                                                        DBG0002   210
                                        *                DESCRIBE PFX,BITSLONG,TOPBIT                            DBG0002   211
                                        *                                                                        DBG0002   212
                                        *         WHERE  PFX  IS THE PREFIX MENTIONED ABOVE,                     DBG0002   213
                                        *           BITSLONG  IS THE TOTAL LENGTH IN BITS OF THE STRUCTURE,      DBG0002   214
                                        *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED,           DBG0002   215
                                        *             TOPBIT  THE BEGINNING (I.E. LEFTMOST) BIT OF THE STRUCTURE DBG0002   216
                                        *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE        DBG0002   217
                                        *                                                                        DBG0002   218
                                        *         'DEFINE' REFERENCE --                                          DBG0002   219
                                        *         NAME   DEFINE  LENGTH,RESET                                    DBG0002   220
                                        *                                                                        DBG0002   221
                                        *         WHERE NAME IS THE NAME OF THE FIELD MENTIONED ABOVE, IF NOT    DBG0002   222
                                        *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.      DBG0002   223
                                        *             LENGTH IS THE BIT LENGTH OF THE FIELD (OR FILLER), A VALUE DBG0002   224
                                        *                    ONE IS ASSUMED IF THIS PARAMETER IS OMITTED         DBG0002   225
                                        *              RESET IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE        DBG0002   226
                                        *                    DEFINED RELATIVE TO BIT POSITION 'RESET' AS THE     DBG0002   227
                                        *                    TOPMOST (LEFTMOST) BIT.                             DBG0002   228
                                        *                                                                        DBG0002   229
                                        *         UNLESS THE 'RESET' PARAMETER OCCURS, EACH 'DEFINE' IS          DBG0002   230
                                        *         CONSIDERED TO REFERENCE A FIELD BEGINNING TO THE IMMEDIATE     DBG0002   231
                                        *         RIGHT OF THE PRECEDING FIELD.                                  DBG0002   232
                                        *                                                                        DBG0002   233
                                        *         CONSIDER THE FOLLOWING EXAMPLE                                 DBG0002   234
                                        *                                                                        DBG0002   235
                                        *         TABLE X      .------.-------.------.                           DBG0002   236
                                        *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE @ 100)     DBG0002   237
                                        *                      .------.-------.------.                           DBG0002   238
                                        *                       '      '       '     '                           DBG0002   239
                                        *                      59     47      17     0                           DBG0002   240
                                        *                                                                        DBG0002   241
                                        *                 OR   .------.--------------.                           DBG0002   242
                                        *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)         DBG0002   243
                                        *                      .------.--------------.                           DBG0002   244
                                        *                       '      '             '                           DBG0002   245
                                        *                      59     47             0                           DBG0002   246
                                        *                                                                        DBG0002   247
                                        *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE DBG0002   248
                                        *                                  TWO CHARACTERS 'X.'                   DBG0002   249
                                        *         TYPE   DEFINE  12                                              DBG0002   250
                                        *         MSG    DEFINE  48                                              DBG0002   251
                                        *         VALUE  DEFINE  30,X.TYPEP-1                                    DBG0002   252
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    11
  
  
                                        *         SUBV   DEFINE  18                                              DBG0002   253
                                        *                                                                        DBG0002   254
                                        *       THE SYMBOLS DEFINED WOULD BE                                     DBG0002   255
                                        *                                                                        DBG0002   256
                                        *                X.TYPEP   EQU  48                                       DBG0002   257
                                        *                X.TYPEL   EQU  12                                       DBG0002   258
                                        *                X.MSGP    EQU   0                                       DBG0002   259
                                        *                X.MSGL    EQU  48                                       DBG0002   260
                                        *                X.VALUEP  EQU  18                                       DBG0002   261
                                        *                X.VALUEL  EQU  30                                       DBG0002   262
                                        *                X.SUBVP   EQU   0                                       DBG0002   263
                                        *                X.SUBVL   EQU  18                                       DBG0002   264
                                                                                                                 DBG0002   265
                                                  NOREF  .1,.L,.P,.Z                                             DBG0002   266
                                                                                                                 DBG0002   267
                                                  PURGMAC DESCRIBE                                               DBG0002   268
                                                                                                                 DBG0002   269
                                         DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT                                  DBG0002   270
                                        *                                                                        DBG0002   271
                                         .P       MICRO  1,,/PREFIX/                                             DBG0002   272
                                         .L       SET    BITSLONG 60                                             DBG0002   273
                                         .B       SET    TOPBIT .L-1                                             DBG0002   274
                                         DESCRIBE ENDM                                                           DBG0002   275
                                                                                                                 DBG0002   276
                                                  PURGMAC DEFINE                                                 DBG0002   277
                                                                                                                 DBG0002   278
                                                  MACRO  DEFINE,N,LONG,RESET                                     DBG0002   279
                                         .1       SET    LONG 1                                                  DBG0002   280
                                                  IFC    NE,//RESET/,2                                           DBG0002   281
                                         .B       SET    RESET                                                   DBG0002   282
                                         .L       SET    1000                                                    DBG0002   283
                                                  IFC    NE,//N/,6                                               DBG0002   284
                                         ".P"N_P  EQU    .B-.1+1                                                 DBG0002   285
                                         ".P"N_L  EQU    .1                                                      DBG0002   286
                                                  IFEQ   .1,1,3                                                  DBG0002   287
                                                  IFLE   ".P"N_P,18,2                                            DBG0002   288
                                         .A       DECMIC ".P"N_P                                                 DBG0002   289
                                         ".P"N_M  EQU    1S".A"                                                  DBG0002   290
                                         .L       SET    .L-.1                                                   DBG0002   291
                                         .B       SET    .B-.1                                                   DBG0002   292
                                                  IFLT   .L,0,1                                                  DBG0002   293
                                                   ERR    TOTAL FIELD LENGTHS ARE LONGER THAN SPECIFIED          DBG0002   294
                                                  IFLT   .B,0,3                                                  DBG0002   295
                                                  IFNE   .B,-1,1                                                 DBG0002   296
                                                   ERR    FIELD SPANS A WORD BOUNDARY                            DBG0002   297
                                         .B       SET    59                                                      DBG0002   298
                                         DEFINE   ENDM                                                           DBG0002   299
                                         DEQU     SPACE  4,8                                                     DBG0002   300
                                        **        DEQU - DEFINE EQUIVALENCED FIELDS                              DBG0002   301
                                                                                                                 DBG0002   302
                                                  PURGMAC DEQU                                                   DBG0002   303
                                                                                                                 DBG0002   304
                                                  MACRO  DEQU,N,B,LEN                                            DBG0002   305
                                         ".P"N_P  EQU    ".P"B_P                                                 DBG0002   306
                                         ".P"N_L  EQU    LEN ".P"B_L                                             DBG0002   307
                                                  ENDM                                                           DBG0002   308
                                         LXQ      SPACE  4,8                                                     DBG0002   309
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    12
  
  
                                        **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                     DBG0002   310
                                        *                                                                        DBG0002   311
                                        *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS    DBG0002   312
                                        *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.       DBG0002   313
                                        *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                        DBG0002   314
                                        *                                                                        DBG0002   315
                                        *         LXI       JK                                                   DBG0002   316
                                        *                                                                        DBG0002   317
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED                              DBG0002   318
                                        *                *JK* = SHIFT COUNT EXPRESSION                           DBG0002   319
                                        *                                                                        DBG0002   320
                                        *         USES   XI                                                      DBG0002   321
                                                                                                                 DBG0002   322
                                                                                                                 DBG0002   323
                                                  PURGDEF ^XQ                                                    DBG0002   324
                                                  PURGDEF   LXQ                                                  DBG0002   325
                                         ^XQ      CPOP   0,200B,100B                                             DBG0002   326
                                                                                                                 DBG0002   327
                                         LXQ      OPDEF     I,JK                                                 DBG0002   328
                                          IFNE JK,0,2                                                            DBG0002   329
                                          IFNE JK_&60D,0,1                                                       DBG0002   330
                                          ^X.I JK                                                                DBG0002   331
                                          ENDM                                                                   DBG0002   332
                                         PRIDP    SPACE  4,8                                                     DBG=IDP   194
                                        **        PRIDP - PRINT CODED LINE ON OUTPUT FILE.                       DBG=IDP   195
                                        *                                                                        DBG=IDP   196
                                        *                                                                        DBG=IDP   197
                                        *         PRIDP  FWA,LEN,NRB                                             DBG=IDP   198
                                        *                                                                        DBG=IDP   199
                                        *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                          DBG=IDP   200
                                        *                LEN = LENGTH OF LINE (IN WORDS)                         DBG=IDP   201
                                        *                    = .ZR. IF LENGTH TO BE COMPUTED                     DBG=IDP   202
                                        *                NRB = NR OF BLANK LINES TO OUTPUT PRECEDING THE LINE    DBG=IDP   203
                                        *                                                                        DBG=IDP   204
                                        *         EXIT   NONE                                                    DBG=IDP   205
                                        *                                                                        DBG=IDP   206
                                        *         USES   ALL BUT B4,A0,X0,A5,X5 (INCLUDES ALL CALLS)             DBG=IDP   207
                                        *                                                                        DBG=IDP   208
                                        *         CALLS  ROL                                                     DBG=IDP   209
                                                                                                                 DBG=IDP   210
                                                                                                                 DBG=IDP   211
                                                  PURGMAC PRIDP                                                  DBG=IDP   212
                                                                                                                 DBG=IDP   213
                                         PRIDP    MACRO  FWA,LEN,NRB                                             DBG=IDP   214
                                                  =X6    FWA                                                     DBG=IDP   215
                                                  =X7    LEN                                                     DBG=IDP   216
                                                  =X4    NRB                                                     DBG=IDP   217
                                                  RJ     =XROL                                                   DBG=IDP   218
                                         PRIDP    ENDM                                                           DBG=IDP   219
                                         PRBDO    SPACE  4,8                                                     DBG=IDP   220
                                        **        PRBDO - PRINT CODED LINE ON BATCH DEBUG OUTPUT FILE.           DBG=IDP   221
                                        *                                                                        DBG=IDP   222
                                        *                                                                        DBG=IDP   223
                                        *                IF THE USER DID NOT DEFINE A BATCH DEBUG OUTPUT FILE,   DBG=IDP   224
                                        *         (F.BDO -DEF), THEN *IDP* WILL INVENT ONE AND ACCESS IT VIA     DBG=IDP   225
                                        *         *PRBDO* MACRO. IF *F.BDO* IS DEFINED, THEN THE USER SUPPLIES   DBG=IDP   226
                                        *         HER OWN *PRBDO*.                                               DBG0002   333
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    13
  
  
                                        *                                                                        DBG=IDP   228
                                        *         PRBDO  FWA,LEN                                                 DBG=IDP   229
                                        *                                                                        DBG=IDP   230
                                        *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                          DBG=IDP   231
                                        *                LEN = LENGTH OF LINE (IN WORDS)                         DBG=IDP   232
                                        *                    = .ZR. IF LENGTH TO BE COMPUTED                     DBG=IDP   233
                                        *                                                                        DBG=IDP   234
                                        *         EXIT   NONE                                                    DBG=IDP   235
                                        *                                                                        DBG=IDP   236
                                        *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)              DBG=IDP   237
                                        *                                                                        DBG=IDP   238
                                        *         CALLS  WRITEC                                                  DBG=IDP   239
                                                                                                                 DBG=IDP   240
                                                                                                                 DBG=IDP   241
                                         #BDO     IF     -DEF,F.BDO                                              DBG=IDP   242
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              DBG=IDP   243
                                                                                                                 DBG=IDP   244
                                                  PURGMAC PRBDO                                                  DBG=IDP   245
                                                                                                                 DBG=IDP   246
                                         PRBDO    MACRO  FWA,LEN                                                 DBG=IDP   247
                                                  WRITEC =XF.BDO,(FWA),(LEN)                                     DBG=IDP   248
                                         PRBDO    ENDM                                                           DBG=IDP   249
                                         #OS      ENDIF                                                          DBG=IDP   250
                                         #BDO     ENDIF                                                          DBG=IDP   251
                                         MICROS   SPACE  4,8                                                     DBG0002   334
                                        **        DEFINE DEFAULT MICROS.                                         DBG0002   335
                                                                                                                 DBG0002   336
                                                  IFNE   .OS,2,2                                                 DBG0002   337
                                                  IF     -MIC,EOS,1                                              DBG0002   338
                                         EOS      MICRO  1,,/;/                                                  DBG0002   339
                                                                                                                 DBG0002   340
                                                  IFNE   .OS,2,2                                                 DBG0002   341
                                                  IF     -MIC,PROMPT,1                                           DBG0002   342
                                         PROMPT   MICRO  1,,/>>/                                                 DBG0002   343
                                         DEFS     SPACE  4,8                                                     DBG=IDP   252
                                        **        SYMBOL DEFINITIONS.                                            DBG=IDP   253
                                                                                                                 DBG=IDP   254
                                                                                                                 DBG=IDP   255
                                         CHAR     =      6           LENGTH OF CYBER CHARACTER                   DBG=IDP   256
                                                                                                                 DBG=IDP   257
                                         L.BSL    =      4           NR OF CM WORDS DUMPED ON LINE (BATCH)       DBG=IDP   258
                                         L.ISL    =      2           NR OF CM WORDS DUMPED ON LINE (INTERACTIVE) DBG=IDP   259
                                                                                                                 DBG=IDP   260
                                         L.PRB    =      0           NR OF PRECEDING BLANKS TO OUTPUT            DBG0002   344
                                        *                              FOR SPACING PURPOSES                      DBG=IDP   262
                                         DEFS     SPACE  4,8                                                     DBG=IDP   263
                                        **        SNAP PARAMETER LIST SYMBOL DEFINITIONS.                        DBG=IDP   264
                                        *           THESE SYMBOLS DEFINE THE ORDINALS INTO THE SNAP PARAMETER    DBG=IDP   265
                                        *           LIST. (DESIRED WORD IS AT-- FWA OF PARAMETER LIST + SN=XXX)  DBG=IDP   266
                                                                                                                 DBG=IDP   267
                                                                                                                 DBG=IDP   268
                                         SN=FRK   =      0           1ST WORD OF FREQUENCY PARAMETER LIST        DBG=IDP   269
                                         SN=LL    =      0           LOWER LIMIT                                 DBG=IDP   270
                                         SN=UL    =      1           UPPER LIMIT                                 DBG=IDP   271
                                         SN=INC   =      2           INCREMENT                                   DBG=IDP   272
                                         SN=HDR   =      3           HEADER                                      DBG=IDP   273
                                         SN=CNT   =      4           SNAP COUNT                                  DBG=IDP   274
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    14
  
  
                                         SN=FWA   =      5           FWA                                         DBG=IDP   275
                                         SN=LWA   =      6           LWA                                         DBG=IDP   276
                                         SN=LEN   =      7           LENGTH                                      DBG=IDP   277
                                         SN=RRL   =      5           1ST WORD OF *RGR=* LIST FOR *REG* MACRO     DBG=IDP   278
                                         SN=SRL   =      8           1ST WORD OF *RGR=* LIST FOR *SNAP* MACRO    DBG=IDP   279
                                         APL      SPACE  4,8                                                     DBG=IDP   280
                                        *         APL - DUMMY APLIST USED FOR SAVE CELLS AND *IDP* CALLS.        DBG=IDP   281
                                                                                                                 DBG=IDP   282
                                         APL      BSSZ   SN=LEN+1                                                DBG=IDP   283
                                                                                                                 DBG=IDP   284
                                                  LOC    APL                                                     DBG=IDP   285
                                                                                                                 DBG=IDP   286
                                         AP=LL    =      *+SN=LL                                                 DBG=IDP   287
                                         AP=UL    =      *+SN=UL                                                 DBG=IDP   288
                                         AP=INC   =      *+SN=INC                                                DBG=IDP   289
                                         AP=HDR   =      *+SN=HDR                                                DBG=IDP   290
                                         AP=CNT   =      *+SN=CNT                                                DBG=IDP   291
                                         AP=FWA   =      *+SN=FWA                                                DBG=IDP   292
                                         AP=LWA   =      *+SN=LWA                                                DBG=IDP   293
                                         AP=LEN   =      *+SN=LEN                                                DBG=IDP   294
                                                  LOC    *O                                                      DBG=IDP   295
                                         DATA     SPACE  4,8                                                     DBG=IDP   296
                                         FWAPARM  BSSZ   1           SAVE CELL FOR FWA OF PARAMETER LIST         DBG=IDP   297
                                                                                                                 DBG=IDP   298
                                                                                                                 DBG=IDP   302
                                         SNAPLNE  BSSZ   15          INTERACTIVE AND BATCH DEBUG OUTPUT LINE     DBG=IDP   303
                                        *                              IMAGE AREA                                DBG=IDP   304
                                         IDPFLG   SPACE  4,8                                                     DBG0002   345
                                        **        IDPFLG - INTERACTIVE/BATCH MASTER CONTROL FLAG.                DBG0002   346
                                        *                                                                        DBG0002   347
                                        *                CONTAINS GLOBAL CONTROL INFORMATION THAT IS USED        DBG0002   348
                                        *         THROUGH OUT *DBG=IDP*.  THE FIELDS IN *IDPFLG* ARE DESCRIBED   DBG0002   349
                                        *         BY PAIRS OF SYMBOLS OF THE FORM *IDF.XXXP* AND *IDF.XXXL*,     DBG0002   350
                                        *         WHERE *IDF* IS THE COMMON PREFIX, *XXX* IS THE FIELD           DBG0002   351
                                        *         DESCRIPTOR, *P* DENOTES THE RIGHT-MOST BIT OF THE FIELD, AND   DBG0002   352
                                        *         *L* DENOTES THE LENGTH OF THE FIELD.                           DBG0002   353
                                        *                                                                        DBG0002   354
                                        *                FIELD DESCRIPTIONS (XXX) ARE --                         DBG0002   355
                                        *                                                                        DBG0002   356
                                        *         ADR  = 0  IF ADDRESSES ARE TO BE OUTPUT AS ABSOLUTE            DBG0002   357
                                        *              = 1  IF ADDRESSES ARE TO BE OUTPUT AS DECK RELATIVE       DBG0002   358
                                        *                                                                        DBG0002   359
                                        *         BDO  = 1  IF WRITING TO BATCH DEBUG OUTPUT FILE (F.BDO),       DBG0002   360
                                        *                     ELSE 0                                             DBG0002   361
                                        *                                                                        DBG0002   362
                                        *         BKO  = 1  IF ECHOING/WRITING INPUT SOURCE LINE IMAGE TO        DBG0002   363
                                        *                     BATCH DEBUG OUTPUT FILE *F.BDO*, ELSE 0            DBG0002   364
                                        *                                                                        DBG0002   365
                                        *         FTO  = 0  IF THIS IS 1ST TIME *IDP* HAS BEEN CALLED, ELSE 1    DBG0002   366
                                        *                                                                        DBG0002   367
                                        *         IDO  = 1  IF WRITING TO INTERACTIVE DEBUG OUTPUT FILE (F.IDO), DBG0002   368
                                        *                     ELSE 0                                             DBG0002   369
                                        *                                                                        DBG0002   370
                                        *         IKO  = 1  IF ECHOING/WRITING INPUT SOURCE LINE IMAGE TO        DBG0002   371
                                        *                     INTERACTIVE DEBUG OUTPUT FILE *F.IDO*, ELSE 0      DBG0002   372
                                        *                                                                        DBG0002   373
                                        *         INP  = 1  IF READING FROM BATCH DEBUG INPUT FILE (F.BDI)       DBG0002   374
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    15
  
  
                                        *                     (I.E. READING FROM AN UNCONNECTED INPUT FILE)      DBG0002   375
                                        *              = 0  IF READING FROM INTERACTIVE DEBUG INPUT FILE (F.IDI) DBG0002   376
                                        *                                                                        DBG0002   377
                                        *         SNL  = NR OF CM WORDS TO BE DUMPED (BY *DCM*) ON A SINGLE LINE DBG0002   378
                                        *              = L.BSL  IN BATCH MODE                                    DBG0002   379
                                        *              = L.ISL  IN INTERACTIVE MODE                              DBG0002   380
                                        *                                                                        DBG0002   381
                                        *         XEC  = 0  IF THE EXECUTIVE IS *IDP=*                           DBG0002   382
                                        *              = 1  IF THE EXECUTIVE IS *REG=*                           DBG0002   383
                                        *              = 2  IF THE EXECUTIVE IS *SNP=*                           DBG0002   384
                                                                                                                 DBG0002   385
                                                                                                                 DBG0002   386
                                                  DESCRIBE IDF.                                                  DBG0002   387
                                         IDO      DEFINE 1                                                       DBG0002   388
                                         IKO      DEFINE 1                                                       DBG0002   389
                                                  DEFINE 1                                                       DBG0002   390
                                         BDO      DEFINE 1                                                       DBG0002   391
                                         BKO      DEFINE 1                                                       DBG0002   392
                                                  DEFINE 1                                                       DBG0002   393
                                         FTO      DEFINE 1                                                       DBG0002   394
                                         INP      DEFINE 1                                                       DBG0002   395
                                         ADR      DEFINE 1                                                       DBG0002   396
                                         XEC      DEFINE 3                                                       DBG0002   397
                                                  DEFINE 30                                                      DBG0002   398
                                         SNL      DEFINE 18                                                      DBG0002   399
                                                                                                                 DBG0002   400
                                         IDPFLG   BSSZ   1                                                       DBG0002   401
                                         IDPTB    SPACE  4,8                                                     DBG0002   402
                                        **        IDPTB - COMMAND LINE TOKEN BUFFER DESCRIBE/DEFINES.            DBG0002   403
                                                                                                                 DBG0002   404
                                                                                                                 DBG0002   405
                                                  DESCRIBE TB.                                                   DBG0002   406
                                         LAS      DEFINE 1                                                       DBG0002   407
                                                  DEFINE 23                                                      DBG0002   408
                                         PRS      DEFINE 18                                                      DBG0002   409
                                         LEN      DEFINE 18                                                      DBG0002   410
                                         F.BDO    SPACE  4,8                                                     DBG=IDP   305
                                        **        F.BDO - FET AND BUFFER FOR BATCH DEBUG OUTPUT FILE.            DBG=IDP   306
                                                                                                                 DBG=IDP   307
                                         #BDO     IF     -DEF,F.BDO                                              DBG=IDP   308
                                         #OS      IFNE   .OS,2                                                   DBG=IDP   309
                                         L.BDO    =      101B        LENGTH OF BATCH OUTPUT BUFFER               DBG=IDP   310
                                                                                                                 DBG=IDP   311
                                         F.BDO    BSS    0           ** FWA OF FET **                            DBG=IDP   312
                                         BDO      FILEC  IDPBDO,L.BDO                                            DBG=IDP   313
                                         IDPBDO   BSS    L.BDO                                                   DBG=IDP   314
                                         #OS      ENDIF                                                          DBG=IDP   315
                                         #BDO     ENDIF                                                          DBG=IDP   316
                                         DBG=IDP  TITLE  BATCH AND SHARED ROUTINES.                              DBG=IDP   317
                                         CHK      SPACE  4,8                                                     DBG=IDP   318
                                        **        CHK - CHECK CM ADDRESS.                                        DBG=IDP   319
                                        *                                                                        DBG=IDP   320
                                        *                                                                        DBG=IDP   321
                                        *         ENTRY  (B2)   =  ADDRESS TO BE CHECKED                         DBG=IDP   322
                                        *                                                                        DBG=IDP   323
                                        *         EXIT   (B2)   =  .MI. IF (B2) WAS BAD                          DBG=IDP   324
                                        *                       =  UNCHANGED IF OK                               DBG=IDP   325
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    16
  
  
                                        *                                                                        DBG=IDP   326
                                        *         USES   X - 1,2                                                 DBG=IDP   327
                                        *                A - 1                                                   DBG=IDP   328
                                        *                B - NONE    (USES B2 IF .GT. FL)                        DBG=IDP   329
                                        *                                                                        DBG=IDP   330
                                        *         CALLS  NONE                                                    DBG=IDP   331
                                                                                                                 DBG=IDP   332
                                                                                                                 DBG=IDP   333
                                         CHK      SUBR               ** ENTRY/EXIT **                            DBG=IDP   334
                                                  SA1    =XCP.NFLS                                               DBG=IDP   335
                                                  MI     B2,EXIT.    IF ADDR BAD TO START WITH                   DBG=IDP   336
                                                  SX2    B2                                                      DBG=IDP   337
                                                  IX2    X2-X1                                                   DBG=IDP   338
                                                  MI     X2,EXIT.    IF ADDR OK                                  DBG=IDP   339
                                                  SB2    -B2         SET TO *ADDR IS BAD*                        DBG=IDP   340
                                                  EQ     EXIT.                                                   DBG=IDP   341
                                         DAB      SPACE  4,8                                                     DBG=IDP   342
                                        **        DAB - DUMP AN -A- OR -B- REGISTER AND WHAT IT POINTS TO.       DBG=IDP   343
                                        *                                                                        DBG=IDP   344
                                        *                                                                        DBG=IDP   345
                                        *         ENTRY  (B4) = 0TR, WHERE                                       DBG=IDP   346
                                        *                            T IS REGISTER TYPE                          DBG=IDP   347
                                        *                                  = 0 FOR -B- REGISTER                  DBG=IDP   348
                                        *                                  = 1 FOR -A- REGISTER                  DBG=IDP   349
                                        *                            R IS REGISTER NR (0-7)                      DBG=IDP   350
                                        *                            E.G.  A6 WOULD BE 016                       DBG=IDP   351
                                        *                                                                        DBG=IDP   352
                                        *         EXIT   (B4) IS UNCHANGED                                       DBG=IDP   353
                                        *                                                                        DBG=IDP   354
                                        *         USES   ALL BUT B4                                              DBG=IDP   355
                                        *                                                                        DBG=IDP   356
                                        *         CALLS  FAB,PRIDP                                               DBG=IDP   357
                                                                                                                 DBG=IDP   358
                                                                                                                 DBG=IDP   359
                                         DAB      SUBR               ** ENTRY/EXIT **                            DBG=IDP   360
                                                  SB6    SNAPLNE                                                 DBG=IDP   361
                                                  RJ     FAB         FORMAT -A- OR -B- REGISTER                  DBG=IDP   362
                                                  PRIDP  SNAPLNE                                                 DBG=IDP   363
                                                  EQ     EXIT.                                                   DBG=IDP   364
                                         DAR      SPACE  4,8                                                     DBG=IDP   365
                                        **        DAR - DUMP ALL REGISTERS.                                      DBG=IDP   366
                                        *                                                                        DBG=IDP   367
                                        *                                                                        DBG=IDP   368
                                        *         ENTRY  NONE                                                    DBG=IDP   369
                                        *                                                                        DBG=IDP   370
                                        *         EXIT   NONE                                                    DBG=IDP   371
                                        *                                                                        DBG=IDP   372
                                        *         USES   ALL                                                     DBG=IDP   373
                                        *                                                                        DBG=IDP   374
                                        *         CALLS  DAB,DUX,PRIDP,WOD                                       DBG=IDP   375
                                                                                                                 DBG=IDP   376
                                                                                                                 DBG=IDP   377
                                         DAR      SUBR   0           ** ENTRY/EXIT **                            DBG=IDP   378
                                                  SB4    B0          INITIALIZE (B4) = REGISTER COUNT, 0TR       DBG=IDP   379
                                                  PRIDP  ,,L.PRB                                                 DBG=IDP   380
                                                                                                                 DBG=IDP   381
                                                  SA1    IDPFLG                                                  DBG=IDP   382
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    17
  
  
                                                  LX1    59-IDF.IDOP                                             DBG0002   411
                                                  PL     X1,DAR5     IF NOT WRITING INTERACTIVELY,               DBG0002   412
                                        *                              PACK -A- AND -B- REGISTERS...             DBG0002   413
                                                                                                                 DBG=IDP   384
                                        *         DUMP -B- REGISTERS.                                            DBG=IDP   385
                                                                                                                 DBG=IDP   386
                                         DAR2     RJ     DAB         DUMP -B- REGISTER                           DBG=IDP   387
                                                  SB4    B4+B1                                                   DBG=IDP   388
                                                  SB7    007B                                                    DBG=IDP   389
                                                  LE     B4,B7,DAR2  IF NOT DONE                                 DBG=IDP   390
                                                                                                                 DBG=IDP   391
                                                  PRIDP  ,,L.PRB                                                 DBG=IDP   392
                                                                                                                 DBG=IDP   393
                                        *         DUMP -A- REGISTERS.                                            DBG=IDP   394
                                                                                                                 DBG=IDP   395
                                         DAR3     RJ     DAB         DUMP -A- REGISTER                           DBG=IDP   396
                                                  SB4    B4+B1                                                   DBG=IDP   397
                                                  SB7    017B                                                    DBG=IDP   398
                                                  LE     B4,B7,DAR3  IF NOT DONE                                 DBG=IDP   399
                                                                                                                 DBG=IDP   400
                                                  PRIDP  ,,L.PRB                                                 DBG=IDP   401
                                                                                                                 DBG=IDP   402
                                        *         DUMP -X- REGISTERS.                                            DBG=IDP   403
                                                                                                                 DBG=IDP   404
                                         DAR4     RJ     DUX         DUMP -X- REGISTER                           DBG=IDP   405
                                                  SB4    B4+B1                                                   DBG=IDP   406
                                                  SB7    027B                                                    DBG=IDP   407
                                                  LE     B4,B7,DAR4  IF NOT DONE                                 DBG=IDP   408
                                                  EQ     EXIT.                                                   DBG=IDP   409
                                                                                                                 DBG=IDP   410
                                        *         HERE IF PACKING -A- AND -B- REGISTERS IN BATCH MODE.           DBG=IDP   411
                                                                                                                 DBG=IDP   412
                                         DAR5     SB6    SNAPLNE                                                 DBG=IDP   413
                                                  RJ     FAB         FORMAT -B- REGISTER                         DBG=IDP   414
                                                  SB4    B4+10B                                                  DBG=IDP   415
                                                  SB6    A6                                                      DBG=IDP   416
                                                  RJ     FAB         FORMAT -A- REGISTER                         DBG=IDP   417
                                                  PRIDP  SNAPLNE                                                 DBG=IDP   418
                                                  SB4    B4-10B+1                                                DBG=IDP   419
                                                  SB7    007B                                                    DBG=IDP   420
                                                  LE     B4,B7,DAR5  IF NOT DONE                                 DBG=IDP   421
                                                                                                                 DBG=IDP   422
                                                  PRIDP  ,,L.PRB                                                 DBG=IDP   423
                                                  SB4    020B        (B4) = 0TR, WHERE T=2 (X REG)               DBG=IDP   424
                                                  EQ     DAR4                                                    DBG=IDP   425
                                         DCM      SPACE  4,8                                                     DBG=IDP   426
                                        **        DCM - DUMP CENTRAL MEMORY.                                     DBG=IDP   427
                                        *                                                                        DBG=IDP   428
                                        *                                                                        DBG=IDP   429
                                        *                CONVERTS CM WORDS TO OCTAL DPC AND DUMPS THEM IN THE    DBG0002   414
                                        *         FOLLOWING FORMAT--                                             DBG0002   415
                                        *     COL 1         1         1         1         1                      DBG0002   416
                                        *         ..NNNNNN..CCCCCCCCCCCCCCCCCCCC..........ETC                    DBG0002   417
                                        *                   ******************************                       DBG0002   418
                                        *         N = ADDR OF 1ST WORD DUMPED ON LINE                            DBG0002   419
                                        *         C = CONVERTED CM WORD                                          DBG0002   420
                                        *         . = BLANK(55B)                                                 DBG0002   421
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    18
  
  
                                        *         THE FORMAT OF COLS 11 THRU 40 (INDICATED BY *) IS REPEATED FOR DBG0002   422
                                        *           HOWEVER MANY CM WORDS ARE TO BE DUMPED ON A LINE.            DBG0002   423
                                        *                                                                        DBG0002   424
                                        *                (IDPFLG) = 42/OTHER, 18/NR OF CM WORDS TO BE DUMPED ON  DBG0002   425
                                        *                             A SINGLE LINE                              DBG0002   426
                                        *                                                                        DBG0002   427
                                        *         ENTRY  (X2) = 18/0, 21/LEV OF IND ADDR ,21/FWA                 DBG=IDP   430
                                        *                (X3) = 18/0, 21/LEV OF IND ADDR ,21/LWA                 DBG=IDP   431
                                        *                         (X3) IS OPTIONAL                               DBG=IDP   432
                                        *                (X4) = 18/0,21/LEV OF IND ADDR ,21/LEN                  DBG=IDP   433
                                        *                         NOTE -- IF LEN = 0, DMP IS FROM FWA TO LWA,    DBG=IDP   434
                                        *                                        ELSE DMP IS FROM FWA TO FWA+LEN DBG=IDP   435
                                        *                                                                        DBG=IDP   436
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN BAD, ELSE .PL.           DBG=IDP   437
                                        *                                                                        DBG=IDP   438
                                        *         USES   ALL BUT B4,A0                                           DBG0002   428
                                        *                                                                        DBG=IDP   440
                                        *         CALLS  COD,FLL,PRIDP                                           DBG=IDP   441
                                                                                                                 DBG=IDP   442
                                                                                                                 DBG=IDP   443
                                         DCM      SUBR               ** ENTRY/EXIT **                            DBG0002   429
                                                  RJ     FLL         CHECK FWA,LWA, AND LENGTH                   DBG0002   430
                                                  SA1    =10H                                                    DBG0002   431
                                                  MI     B2,EXIT.    IF FWA,LWA, OR LEN IS BAD                   DBG0002   432
                                                  BX6    X1                                                      DBG0002   433
                                                  SB6    B0          PRESET TO *READY FOR NEW SNAP LINE*         DBG0002   434
                                                  SA6    SNAPLNE     PRESTORE (A6) = ADDR OF LAST WORD STORED    DBG0002   435
                                        *                              INTO SNAP LINE.  THIS WILL FORCE A BLANK  DBG0002   436
                                        *                              LINE TO BE OUTPUT AS 1ST LINE OF DUMP.    DBG0002   437
                                                                                                                 DBG0002   438
                                        *         ** MAIN LOOP NODE **                                           DBG0002   439
                                                                                                                 DBG0002   440
                                         DCM2     SA5    AP=FWA      (X5) = ADDR OF NEXT WORD TO DUMP            DBG0002   441
                                                  SA2    A5+B1       (X2) = LWA OF DUMP                          DBG0002   442
                                                  IX3    X2-X5                                                   DBG0002   443
                                                  SX7    X5+B1                                                   DBG0002   444
                                                  MI     X3,DCM6     IF FINISHED                                 DBG0002   445
                                                  SA7    A5                                                      DBG0002   446
                                                  GT     B6,B0,DCM3  IF MORE WORDS TO DUMP ON THIS LINE          DBG0002   447
                                                                                                                 DBG0002   448
                                        *         HERE IF READY TO OUTPUT OLD LINE AND START NEW LINE BY         DBG0002   449
                                        *           SETTING UP ADDR OF 1ST WORD ON LINE.                         DBG0002   450
                                                                                                                 DBG0002   451
                                                  MX6    0                                                       DBG0002   452
                                                  SA6    A6+B1       MARK EOL                                    DBG0002   453
                                                  PRIDP  SNAPLNE                                                 DBG0002   454
                                                                                                                 DBG0002   455
                                                  SX1    X5                                                      DBG0002   456
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- ADDR         DBG0002   457
                                                  SA1    IDPFLG                                                  DBG0002   458
                                                  LX6    8*CHAR-6*CHAR                                           DBG0002   459
                                                  SB6    X1          (B6) = NR OF WORDS TO DUMP ON A LINE        DBG0002   460
                                                  SA6    SNAPLNE                                                 DBG0002   461
                                                  LE     B6,B0,*+4S15 IF BAD WORDS PER LINE COUNT...             DBG0002   462
                                                                                                                 DBG0002   463
                                        *         HERE TO DUMP A SINGLE WORD.                                    DBG0002   464
                                                                                                                 DBG0002   465
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    19
  
  
                                         DCM3     SA1    X5          (X1) = NEXT WORD TO BE DUMPED               DBG0002   466
                                                  SA2    =10H                                                    DBG0002   467
                                                  NZ     X1,DCM4     IF WORD TO DUMP IS NON-ZERO                 DBG0002   468
                                                  SX3    2R 0&2R                                                 DBG0002   469
                                                  SX4    2R-0&2R                                                 DBG0002   470
                                                  BX3    -X1*X3                                                  DBG0002   471
                                                  BX4    -X1+X4                                                  DBG0002   472
                                                  IX5    X3+X4                                                   DBG0002   473
                                                  LX6    X2                                                      DBG0002   474
                                                  BX7    X2-X5       (X7) = .........0   (.=55B)  IF (X1) = +0   DBG0002   475
                                        *                                 = ........-0   (.=55B)  IF (X1) = -0   DBG0002   476
                                                  EQ     DCM5                                                    DBG0002   477
                                                                                                                 DBG0002   478
                                         DCM4     RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC     DBG0002   479
                                                                                                                 DBG0002   480
                                         DCM5     SA6    A6+B1                                                   DBG0002   481
                                                  SA7    A6+B1                                                   DBG0002   482
                                                  SA1    =10H                                                    DBG0002   483
                                                  SB6    B6-B1                                                   DBG0002   484
                                                  BX6    X1                                                      DBG0002   485
                                                  SA6    A7+B1                                                   DBG0002   486
                                                  EQ     DCM2        MAIN LOOP...                                DBG0002   487
                                                                                                                 DBG0002   488
                                        *         HERE IF FINISHED -- NEED TO OUTPUT FINAL WORD.                 DBG0002   489
                                                                                                                 DBG0002   490
                                         DCM6     MX6    0                                                       DBG0002   491
                                                  SA6    A6+B1       MARK EOL                                    DBG0002   492
                                                  PRIDP  SNAPLNE                                                 DBG0002   493
                                                  EQ     EXIT.                                                   DBG0002   494
                                         DSR      SPACE  4,8                                                     DBG=IDP   487
                                        **        DSR - DUMP SELECTED REGISTERS.                                 DBG=IDP   488
                                        *                                                                        DBG=IDP   489
                                        *                                                                        DBG=IDP   490
                                        *                PERFORMS A SELECTED REGISTER DUMP, BASED ON A PARAMETER DBG=IDP   491
                                        *         LIST SET UP BY *SNAP* AND/OR *REG* MACROS.                     DBG=IDP   492
                                        *                                                                        DBG=IDP   493
                                        *                0TR = REGISTER DESIGNATOR                               DBG=IDP   494
                                        *                            T = REGISTER TYPE                           DBG=IDP   495
                                        *                              = 0 FOR -B- REGISTER                      DBG=IDP   496
                                        *                              = 1 FOR -A- REGISTER                      DBG=IDP   497
                                        *                              = 2 FOR -X- REGISTER                      DBG=IDP   498
                                        *                            R = REGISTER NR (0-7)                       DBG=IDP   499
                                        *                              E.G. A3 WOULD BE 013B                     DBG=IDP   500
                                        *                SV=B = FWA OF REGISTER SAVE AREA                        DBG=IDP   501
                                        *                                                                        DBG=IDP   502
                                        *         PARAMETER LIST FORMAT--                                        DBG=IDP   503
                                        *                                                                        DBG=IDP   504
                                        *         VFD    60/SV=B+0TR                                             DBG=IDP   505
                                        *         VFD    60/SV=B+0TR                                             DBG=IDP   506
                                        *                 .                                                      DBG=IDP   507
                                        *                 .                                                      DBG=IDP   508
                                        *                60/0        END OF PARAMETER LIST                       DBG=IDP   509
                                        *                                                                        DBG=IDP   510
                                        *         ENTRY  (A1,X1) = ADDR + CNTS OF 1ST WORD OF PARAMETER LIST     DBG=IDP   511
                                        *                                                                        DBG=IDP   512
                                        *         EXIT   NONE                                                    DBG=IDP   513
                                        *                                                                        DBG=IDP   514
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    20
  
  
                                        *         USES   ALL                                                     DBG=IDP   515
                                        *                                                                        DBG=IDP   516
                                        *         CALLS  DAB,DUX                                                 DBG=IDP   517
                                                                                                                 DBG=IDP   518
                                                                                                                 DBG=IDP   519
                                         DSR      SUBR               ** ENTRY/EXIT **                            DBG=IDP   520
                                                                                                                 DBG=IDP   521
                                         DSR2     ZR     X1,EXIT.    IF FINISHED DUMPING SELECTED REGISTERS      DBG=IDP   522
                                                  SB2    =XSV=B                                                  DBG=IDP   523
                                                  SB3    X1                                                      DBG=IDP   524
                                                  SX6    A1+                                                     DBG=IDP   525
                                                  SB4    B3-B2                                                   DBG=IDP   526
                                                  SB5    20B                                                     DBG=IDP   527
                                                  SA6    DSRA        SAVE (A1) = CURRENT POSITION IN PARM LIST   DBG=IDP   528
                                                  GE     B4,B5,DSR3  IF -X- REGISTER DUMP                        DBG=IDP   529
                                                  RJ     DAB         DUMP -A- OR -B- REGISTER                    DBG=IDP   530
                                                  EQ     DSR4                                                    DBG=IDP   531
                                                                                                                 DBG=IDP   532
                                         DSR3     RJ     DUX         DUMP -X- REGISTER                           DBG=IDP   533
                                                                                                                 DBG=IDP   534
                                         DSR4     SA1    DSRA                                                    DBG=IDP   535
                                                  SA1    X1+1                                                    DBG=IDP   536
                                                  EQ     DSR2                                                    DBG=IDP   537
                                                                                                                 DBG=IDP   538
                                                                                                                 DBG=IDP   539
                                         DSRA     BSSZ   1           SAVED (A1) = ADDR OF NEXT REGISTER PARAME-  DBG=IDP   540
                                        *                              TER WORD                                  DBG=IDP   541
                                         DUX      SPACE  4,8                                                     DBG=IDP   542
                                        **        DUX - DUMP AN -X- REGISTER.                                    DBG=IDP   543
                                        *                                                                        DBG=IDP   544
                                        *                                                                        DBG=IDP   545
                                        *         ENTRY  (B4) = 0TR, WHERE                                       DBG=IDP   546
                                        *                            T IS REGISTER TYPE (2=X REGISTER)           DBG=IDP   547
                                        *                            R IS REGISTER NR (0-7)                      DBG=IDP   548
                                        *                              E.G. X1 WOULD BE 021B                     DBG=IDP   549
                                        *                                                                        DBG=IDP   550
                                        *         EXIT   (B4) IS UNCHANGED                                       DBG=IDP   551
                                        *                                                                        DBG=IDP   552
                                        *         USES   ALL BUT B4                                              DBG=IDP   553
                                        *                                                                        DBG=IDP   554
                                        *         CALLS  PRIDP,WOD                                               DBG=IDP   555
                                                                                                                 DBG=IDP   556
                                                                                                                 DBG=IDP   557
                                         DUX      SUBR               ** ENTRY/EXIT **                            DBG=IDP   558
                                                  SA1    B4+SV=B                                                 DBG=IDP   559
                                                  SA2    DUXA                                                    DBG=IDP   560
                                                  SX7    B4-20B      (X7) = X REGISTER NR                        DBG=IDP   561
                                                  LX7    2*CHAR-1*CHAR                                           DBG=IDP   562
                                                  IX6    X2+X7       (X6) = 10H       XN  , WHERE N=0 THRU 7     DBG=IDP   563
                                                  SA6    SNAPLNE                                                 DBG=IDP   564
                                                  RJ     =XWOD       CONVERT ONE FULL BINARY WORD TO OCTAL DPC   DBG=IDP   565
                                                  SA6    A6+B1                                                   DBG=IDP   566
                                                  SA7    A6+B1                                                   DBG=IDP   567
                                                  SA1    =10H                                                    DBG=IDP   568
                                                  SA2    B4+SV=B     (X2) = CONTENTS OF X-N-                     DBG=IDP   569
                                                  BX6    X1                                                      DBG=IDP   570
                                                  LX7    X2                                                      DBG=IDP   571
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    21
  
  
                                                  SA6    A7+B1                                                   DBG=IDP   572
                                                  SA7    A6+B1                                                   DBG=IDP   573
                                                  BX6    X6-X6                                                   DBG=IDP   574
                                                  SA6    A7+B1       MARK EOL                                    DBG=IDP   575
                                                  PRIDP  SNAPLNE                                                 DBG=IDP   576
                                                  EQ     EXIT.                                                   DBG=IDP   577
                                                                                                                 DBG=IDP   578
                                                                                                                 DBG=IDP   579
                                         DUXA     DATA   10H       X0                                            DBG=IDP   580
                                         FAB      SPACE  4,8                                                     DBG=IDP   581
                                        **        FAB - FORMAT AN -A- OR -B- REGISTER.                           DBG=IDP   582
                                        *                                                                        DBG=IDP   583
                                        *                                                                        DBG=IDP   584
                                        *                THIS ROUTINE WILL FORMAT AN -A- OR -B- REGISTER         DBG=IDP   585
                                        *         SUITABLE FOR PRINTING. FORMAT--                                DBG=IDP   586
                                        *                                                                        DBG=IDP   587
                                        *    (B6)+0         0         0         0         0         0            DBG=IDP   588
                                        *         .......TR..NNNNNN.....C(TR).=.NNNNNNNNNNNNNNNNNNNN             DBG=IDP   589
                                        *                                                                        DBG=IDP   590
                                        *         T=REGISTER TYPE (B,A),R=REGISTER NR (0-7),.=BLANK(55B)         DBG=IDP   591
                                        *                                                                        DBG=IDP   592
                                        *         ENTRY  (B4) = 0TR, WHERE                                       DBG=IDP   593
                                        *                            T IS REGISTER TYPE (B=0,A=1)                DBG=IDP   594
                                        *                            R IS REGISTER NR (0-7)                      DBG=IDP   595
                                        *                (B6) = FWA TO STORE                                     DBG=IDP   596
                                        *                                                                        DBG=IDP   597
                                        *         EXIT   (B4) = UNCHANGED                                        DBG=IDP   598
                                        *                (B6) = UNCHANGED                                        DBG=IDP   599
                                        *                (A6) = ADDR OF FULL ZERO WORD EOL MARKER                DBG=IDP   600
                                        *                                                                        DBG=IDP   601
                                        *         USES   X - ALL     (INCLUDES ALL CALLS)                        DBG=IDP   602
                                        *                A - ALL BUT A0                                          DBG=IDP   603
                                        *                B - 2,3,4,5                                             DBG=IDP   604
                                        *                                                                        DBG=IDP   605
                                        *         CALLS  CHK,COD,WOD                                             DBG=IDP   606
                                                                                                                 DBG=IDP   607
                                                                                                                 DBG=IDP   608
                                         FAB      SUBR               ** ENTRY/EXIT **                            DBG=IDP   609
                                                  SX1    B4                                                      DBG=IDP   610
                                                  MX0    -3                                                      DBG=IDP   611
                                                  SA5    SV=B+B4     (X5) = SAVED (TR)   (T=REG TYPE,R=REG NR)   DBG=IDP   612
                                                  BX6    X0*X1       (X6) = REG TYPE (B=00B,A=10B)               DBG=IDP   613
                                                  SB5    B4          SAVE (B4) = 0TR                             DBG=IDP   614
                                                  BX7    -X0*X1      (X7) = REG NR (0-7)                         DBG=IDP   615
                                                  LX6    -3                                                      DBG=IDP   616
                                                  SA2    FABA+X6                                                 DBG=IDP   617
                                                  SA3    FABB+X6                                                 DBG=IDP   618
                                                  LX7    2*CHAR-1*CHAR                                           DBG=IDP   619
                                                  IX6    X2+X7       (X6) = .......TR.   (.=BLANK,T=RTYPE,R=RNR) DBG=IDP   620
                                                  LX7    5*CHAR-2*CHAR                                           DBG=IDP   621
                                                  SA6    B6                                                      DBG=IDP   622
                                                  MX0    -18                                                     DBG=IDP   623
                                                  IX7    X3+X7       (X7) = ..C(TR).=.                           DBG=IDP   624
                                                  BX1    -X0*X5                                                  DBG=IDP   625
                                                  SA7    B6+2                                                    DBG=IDP   626
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP   627
                                                  LX6    9*CHAR-6*CHAR                                           DBG=IDP   628
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    22
  
  
                                                  SB4    B5          RESTORE (B4)                                DBG=IDP   629
                                                  SA6    A6+B1                                                   DBG=IDP   630
                                                  SB2    X5                                                      DBG=IDP   631
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP   632
                                                  PL     B2,FAB2     IF ADDR OK                                  DBG=IDP   633
                                                  SA1    =20H ** OUT OF RANGE **                                 DBG=IDP   634
                                                  SA2    A1+B1                                                   DBG=IDP   635
                                                  BX6    X1                                                      DBG=IDP   636
                                                  LX7    X2                                                      DBG=IDP   637
                                                  EQ     FAB3                                                    DBG=IDP   638
                                                                                                                 DBG=IDP   639
                                        *         HERE TO CONVERT C(TR) TO OCTAL DPC.                            DBG=IDP   640
                                                                                                                 DBG=IDP   641
                                         FAB2     SA1    B2          (X1) = C(TR)                                DBG=IDP   642
                                                  RJ     WOD         CONVERT A FULL BINARY WORD TO OCTAL DPC     DBG=IDP   643
                                                                                                                 DBG=IDP   644
                                         FAB3     SA6    A7+B1                                                   DBG=IDP   645
                                                  SA7    A6+B1                                                   DBG=IDP   646
                                                  MX6    0                                                       DBG=IDP   647
                                                  SA6    A7+B1       MARK EOL                                    DBG=IDP   648
                                                  EQ     EXIT.                                                   DBG=IDP   649
                                                                                                                 DBG=IDP   650
                                                                                                                 DBG=IDP   651
                                         FABA     DATA   10H       B0  NNNNNN                                    DBG=IDP   652
                                                  DATA   10H       A0  NNNNNN                                    DBG=IDP   653
                                         FABB     DATA   10H  C(B0) =  NNNNNNNNNNNNNNNNNNNN                      DBG=IDP   654
                                                  DATA   10H  C(A0) =  NNNNNNNNNNNNNNNNNNNN                      DBG=IDP   655
                                         FLL      SPACE  4,8                                                     DBG=IDP   656
                                        **        FLL - CHECK FWA,LWA, AND LENGTH PARAMETERS.                    DBG=IDP   657
                                        *                                                                        DBG=IDP   658
                                        *                                                                        DBG=IDP   659
                                        *         ENTRY  (X2) = 18/0, 21/LEV OF IND ADDR, 21/FWA                 DBG=IDP   660
                                        *                (X3) = 18/0, 21/LEV OF IND ADDR, 21/LWA                 DBG=IDP   661
                                        *                         (X3) IS OPTIONAL                               DBG=IDP   662
                                        *                (X4) = 18/0, 21/LEV OF IND ADDR, 21/LEN                 DBG=IDP   663
                                        *                         NOTE -- IF LEN = 0, DMP IS FROM FWA TO LWA,    DBG=IDP   664
                                        *                                        ELSE DMP IS FROM FWA TO FWA+LEN DBG=IDP   665
                                        *                                                                        DBG=IDP   666
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN WAS BAD, ELSE .PL.       DBG=IDP   667
                                        *                (AP=FWA) = FWA                                          DBG=IDP   668
                                        *                (AP=LWA) = LWA                                          DBG=IDP   669
                                        *                                                                        DBG=IDP   670
                                        *         USES   X - ALL BUT X5                                          DBG=IDP   671
                                        *                A - 1,2,6                                               DBG=IDP   672
                                        *                B - 2,3                                                 DBG=IDP   673
                                        *                                                                        DBG=IDP   674
                                        *         CALLS  CHK,GIL                                                 DBG=IDP   675
                                                                                                                 DBG=IDP   676
                                                                                                                 DBG=IDP   677
                                         FLL      SUBR               ** ENTRY/EXIT **                            DBG=IDP   678
                                                                                                                 DBG=IDP   679
                                        *         CHECK FWA.                                                     DBG=IDP   680
                                                                                                                 DBG=IDP   681
                                                  LX2    -21                                                     DBG=IDP   682
                                                  SB3    X2+         (B3) = LEVEL OF INDIRECT ADDRESSING         DBG=IDP   683
                                                  LX2    21          RESTORE (X2)                                DBG=IDP   684
                                                  RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       DBG=IDP   685
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    23
  
  
                                                  MI     B2,EXIT.    IF FWA IS BAD                               DBG=IDP   686
                                                  SX6    B2          SAVE (B2) = FWA                             DBG=IDP   687
                                                  SA6    AP=FWA                                                  DBG=IDP   688
                                                                                                                 DBG=IDP   689
                                        *         CHECK LENGTH.                                                  DBG=IDP   690
                                                                                                                 DBG=IDP   691
                                         FLL2     MX0    -42                                                     DBG=IDP   692
                                                  BX2    -X0*X4                                                  DBG=IDP   693
                                                  ZR     X2,FLL3     IF NO LENGTH, USE LWA                       DBG=IDP   694
                                                  LX2    -21                                                     DBG=IDP   695
                                                  SB3    X2                                                      DBG=IDP   696
                                                  LX2    21                                                      DBG=IDP   697
                                                  RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       DBG=IDP   698
                                                  MI     B2,EXIT.    IF LENGTH IS BAD                            DBG=IDP   699
                                                  SB2    X6+B2       (B2) = FWA + LEN                            DBG=IDP   700
                                                  SB2    B2-B1       (B2) = LWA                                  DBG=IDP   701
                                                  RJ     CHK         CHECK CM ADDR                               DBG=IDP   702
                                                  MI     B2,EXIT.    IF LWA IS BAD                               DBG=IDP   703
                                                  SX6    B2          SAVE (B2) = LWA                             DBG=IDP   704
                                                  SA6    A6+B1                                                   DBG=IDP   705
                                                  EQ     EXIT.                                                   DBG=IDP   706
                                                                                                                 DBG=IDP   707
                                        *         CHECK LWA.                                                     DBG=IDP   708
                                                                                                                 DBG=IDP   709
                                         FLL3     BX2    X3                                                      DBG=IDP   710
                                                  LX2    -21                                                     DBG=IDP   711
                                                  BX7    -X0*X3                                                  DBG=IDP   712
                                                  SB3    X2                                                      DBG=IDP   713
                                                  SX4    B1          (X4) = DEFAULT LEN IS 1, IF LEN AND LWA =0  DBG=IDP   714
                                                  LX2    21                                                      DBG=IDP   715
                                                  ZR     X7,FLL2     IF NO LWA, DEFAULT LEN=1                    DBG=IDP   716
                                                  RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)       DBG=IDP   717
                                                  MI     B2,EXIT.    IF LWA IS BAD                               DBG=IDP   718
                                                  SX6    B2          SAVE (B2) = LWA                             DBG=IDP   719
                                                  SA6    A6+B1                                                   DBG=IDP   720
                                                  EQ     EXIT.                                                   DBG=IDP   721
                                         FRK      SPACE  4,8                                                     DBG=IDP   722
                                        **        FRK - CHECK FREQUENCY PARAMETERS.                              DBG=IDP   723
                                        *                                                                        DBG=IDP   724
                                        *                                                                        DBG=IDP   725
                                        *         ENTRY  (X5)   =  FWA OF SNAP PARAMETER LIST                    DBG=IDP   726
                                        *                                                                        DBG=IDP   727
                                        *         FREQUENCY PARAMETER LIST AT (X5)+SN=FRK --                     DBG=IDP   728
                                        *                                                                        DBG=IDP   729
                                        *         VFD    60/LOWER LIMIT (LL)                                     DBG=IDP   730
                                        *         VFD    60/UPPER LIMIT (UL)                                     DBG=IDP   731
                                        *         VFD    60/INCREMENT  (INC)                                     DBG=IDP   732
                                        *         VFD    60/10HNAME                                              DBG=IDP   733
                                        *         VFD    60/SNAP COUNT                                           DBG=IDP   734
                                        *                                                                        DBG=IDP   735
                                        *         EXIT   (X5)   =  .ZR. IF NO SNAP THIS TIME, ELSE UNCHANGED     DBG=IDP   736
                                        *                                                                        DBG=IDP   737
                                        *         USES   X - ALL     (BUT X5 IF SNAP THIS TIME)                  DBG=IDP   738
                                        *                A - 1,2,3,4                                             DBG=IDP   739
                                        *                B - 7                                                   DBG=IDP   740
                                        *                                                                        DBG=IDP   741
                                        *         CALLS  NONE                                                    DBG=IDP   742
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    24
  
  
                                                                                                                 DBG=IDP   743
                                                                                                                 DBG=IDP   744
                                         FRK.NO   SX5    0                                                       DBG=IDP   745
                                                                                                                 DBG=IDP   746
                                         FRK      SUBR               ** ENTRY/EXIT **                            DBG=IDP   747
                                                  SA1    X5+SN=LL    (X1) = LL                                   DBG=IDP   748
                                                  SA2    A1+B1       (X2) = UL                                   DBG=IDP   749
                                                  SA3    A2+B1       (X3) = INC                                  DBG=IDP   750
                                                  SA4    X5+SN=CNT   (X4) = SNAP COUNT                           DBG=IDP   751
                                                  MI     X1,FRK.NO   IF LL BAD                                   DBG=IDP   752
                                                  MI     X2,FRK.NO   IF UL BAD                                   DBG=IDP   753
                                                  MI     X3,FRK.NO    IF INC BAD                                 DBG=IDP   754
                                                  SX6    X4+B1       (X6) = SNAP COUNT + 1                       DBG=IDP   755
                                                  SA6    A4+                                                     DBG=IDP   756
                                                  IX7    X6-X1       (X7) = SNAP CNT - LOWER LIMIT               DBG=IDP   757
                                                  MI     X7,FRK.NO   IF NOT TIME TO SNAP YET                     DBG=IDP   758
                                                  IX7    X2-X6       (X7) = UPPER LIMIT - SNAP COUNT             DBG=IDP   759
                                                  PX3    X3                                                      DBG=IDP   760
                                                  MI     X7,FRK.NO   IF PAST UPPER LIMIT                         DBG=IDP   761
                                                                                                                 DBG=IDP   762
                                        *         COMPUTE  (COUNT/INC)*INC-COUNT.                                DBG=IDP   763
                                                                                                                 DBG=IDP   764
                                                  PX6    X6                                                      DBG=IDP   765
                                                  NX3    X3                                                      DBG=IDP   766
                                                  NX6    X6                                                      DBG=IDP   767
                                                  FX7    X6/X3                                                   DBG=IDP   768
                                                  UX7    X7,B7                                                   DBG=IDP   769
                                                  LX7    X7,B7                                                   DBG=IDP   770
                                                  PX7    X7                                                      DBG=IDP   771
                                                  NX7    X7                                                      DBG=IDP   772
                                                  FX7    X7*X3                                                   DBG=IDP   773
                                                  IX7    X7-X6                                                   DBG=IDP   774
                                                  NZ     X7,FRK.NO   IF NOT AT A SNAP INCREMENT                  DBG=IDP   775
                                                  EQ     EXIT.       SNAP SHOULD BE HONORED...                   DBG=IDP   776
                                         GIL      SPACE  4,8                                                     DBG=IDP   777
                                        **        GIL - GENERATE INDIRECT LOAD.                                  DBG=IDP   778
                                        *                                                                        DBG=IDP   779
                                        *                                                                        DBG=IDP   780
                                        *                GENERATES 0 THRU N INDIRECT LOADS, CHECKING THE ADDRESS DBG=IDP   781
                                        *         TO BE LOADED BEFORE EACH LOAD.                                 DBG=IDP   782
                                        *                                                                        DBG=IDP   783
                                        *         ENTRY  (X2) = ADDRESS (BITS 59-18) IGNORED)                    DBG=IDP   784
                                        *                (B3) = LEVEL OF INDIRECT ADDRESSING,                    DBG=IDP   785
                                        *                         (B3) = 0 MEANS DIRECT ADDRESSING               DBG=IDP   786
                                        *                                                                        DBG=IDP   787
                                        *         EXIT   (B2) = ADDRESS AT END OF INDIRECT CHAIN, IF (B2) .PL.   DBG=IDP   788
                                        *                       IF (B2) .MI., ONE OF THE ADDRESSES WAS BAD       DBG=IDP   789
                                        *                                                                        DBG=IDP   790
                                        *         USES   X - 1,2                                                 DBG=IDP   791
                                        *                A - 1,2                                                 DBG=IDP   792
                                        *                B - 2,3                                                 DBG=IDP   793
                                        *                                                                        DBG=IDP   794
                                        *         CALLS  CHK                                                     DBG=IDP   795
                                                                                                                 DBG=IDP   796
                                                                                                                 DBG=IDP   797
                                         GIL      SUBR               ** ENTRY/EXIT **                            DBG=IDP   798
                                                                                                                 DBG=IDP   799
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    25
  
  
                                         GIL2     SB2    X2                                                      DBG=IDP   800
                                                  SB3    B3-B1                                                   DBG=IDP   801
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP   802
                                                  MI     B2,EXIT.    IF ADDR IS BAD                              DBG=IDP   803
                                                  SA2    B2+                                                     DBG=IDP   804
                                                  GE     B3,B0,GIL2  IF MORE LEVELS OF INDIRECT ADDRESSING TO GO DBG=IDP   805
                                                  EQ     EXIT.                                                   DBG=IDP   806
                                         HDR      SPACE  4,8                                                     DBG=IDP   807
                                        **        HDR - PRINT SNAP HEADER.                                       DBG=IDP   808
                                        *                                                                        DBG=IDP   809
                                        *                                                                        DBG=IDP   810
                                        *                PRINTS A SNAP HEADER OF THE FORM--                      DBG=IDP   811
                                        *                                                                        DBG=IDP   812
                                        * NAME      SNAP NR  NNNNNN    CALLED BY NNNNNN IN XXXXXXX               DBG=IDP   813
                                        *                                                                        DBG=IDP   814
                                        *         ENTRY  (A5,   =  ADDR OF CALLER                                DBG=IDP   815
                                        *                    X5)=  FWA OF PARAMETER LSIT                         DBG=IDP   816
                                        *                                                                        DBG=IDP   817
                                        *         EXIT   NONE                                                    DBG=IDP   818
                                        *                                                                        DBG=IDP   819
                                        *         USES   ALL BUT A5,X5                                           DBG=IDP   820
                                        *                                                                        DBG=IDP   821
                                        *         CALLS  CDD,FRA=,PRIDP                                          DBG=IDP   822
                                                                                                                 DBG=IDP   823
                                                                                                                 DBG=IDP   824
                                         HDR      SUBR               ** ENTRY/EXIT **                            DBG=IDP   825
                                                  SA1    X5+SN=HDR                                               DBG=IDP   826
                                                  SA4    X5+SN=CNT                                               DBG=IDP   827
                                                  ZR     X1,EXIT.    IF NO HEADER TO BE GENERATED                DBG=IDP   828
                                                  MX0    8*CHAR                                                  DBG=IDP   829
                                                  BX6    X0*X1                                                   DBG=IDP   830
                                                  SX7    2R                                                      DBG=IDP   831
                                                  BX6    X6+X7                                                   DBG=IDP   832
                                                  LX6    -2*CHAR     (X6) = 10H  NAME                            DBG=IDP   833
                                                  SA6    SNAPLNE                                                 DBG=IDP   834
                                                  SA2    HDRA                                                    DBG=IDP   835
                                                  SA3    A2+B1                                                   DBG=IDP   836
                                                  SX1    X4                                                      DBG=IDP   837
                                                  BX6    X2                                                      DBG=IDP   838
                                                  LX7    X3                                                      DBG=IDP   839
                                                  SA6    A6+B1                                                   DBG=IDP   840
                                                  SA7    A6+2                                                    DBG=IDP   841
                                                  RJ     =XCDD       CONVERT BINARY TO DECIMAL DPC               DBG=IDP   842
                                                  BX6    X4                                                      DBG=IDP   843
                                                  SA6    A6+B1                                                   DBG=IDP   844
                                                  SX1    A5                                                      DBG=IDP   845
                                                                                                                 DBG=IDP   846
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP   847
                                                  SB7    HDR2        (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP   848
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP   849
                                                                                                                 DBG=IDP   850
                                         HDR2     BSS    0                                                       DBG=IDP   851
                                                                                                                 DBG=IDP   852
                                         #FRA     ELSE                                                           DBG=IDP   853
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP   854
                                                  BX6    X4                                                      DBG=IDP   855
                                                  MX7    0                                                       DBG=IDP   856
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    26
  
  
                                         #FRA     ENDIF                                                          DBG=IDP   857
                                                                                                                 DBG=IDP   858
                                                  SA6    A7+B1                                                   DBG=IDP   859
                                                  SA7    A6+B1                                                   DBG=IDP   860
                                                  PRIDP  SNAPLNE,,L.PRB                                          DBG=IDP   861
                                                  EQ     EXIT.                                                   DBG=IDP   862
                                                                                                                 DBG=IDP   863
                                                                                                                 DBG=IDP   864
                                        *         DATA   10H  SNAPNAME                                           DBG=IDP   865
                                         HDRA     DATA   10H SNAP NR                                             DBG=IDP   866
                                        *         DATA   10HNNNNNN                                               DBG=IDP   867
                                                  DATA   10HCALLED BY                                            DBG=IDP   868
                                        *         DATA   10HNNNNNN IN                                            DBG=IDP   869
                                        *         DATA   10CXXXXXXX                                              DBG=IDP   870
                                         REG      SPACE  4,8                                                     DBG=IDP   871
                                        **        REG - REGISTER SNAPSHOT.                                       DBG=IDP   872
                                        *                                                                        DBG=IDP   873
                                        *                                                                        DBG=IDP   874
                                        *                CALLED BY *REG* MACRO.                                  DBG=IDP   875
                                        *                                                                        DBG=IDP   876
                                        *         ENTRY  LOWER HALF OF *RJ REG=* WORD HAS FWA OF PARAMETER LIST. DBG=IDP   877
                                        *                                                                        DBG=IDP   878
                                        * +       RJ     REG=                                                    DBG=IDP   879
                                        * -       VFD    30/FWA OF PARAMETER LIST                                DBG=IDP   880
                                        *                                                                        DBG=IDP   881
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP BY DBG=IDP   882
                                        *         *REG* MACRO (SEE *DBG=MAC*) --                                 DBG=IDP   883
                                        *                                                                        DBG=IDP   884
                                        *         VFD    60/LOWER LIMIT (LL)                                     DBG=IDP   885
                                        *         VFD    60/UPPER LIMIT (UL)                                     DBG=IDP   886
                                        *         VFD    60/INCREMENT (INC)                                      DBG=IDP   887
                                        *         VFD    60/10HNAME  (OR .ZR. IF NO NAME)                        DBG=IDP   888
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          DBG=IDP   889
                                        *         VFD    60/REGISTER DUMP FLAG                                   DBG=IDP   893
                                        *                 .                                                      DBG=IDP   894
                                        *                 .                                                      DBG=IDP   895
                                        *         VFD    60/REGISTER DUMP FLAG                                   DBG=IDP   896
                                        *                .ZR. = NO REGISTER DUMP  (OR END OF REGISTER LIST)      DBG=IDP   897
                                        *                .MI. = DUMP ALL REGISTERS                               DBG=IDP   898
                                        *                .GT.0 = ADDR OF REGISTER SAVE WORD FOR REGISTER TO DMP  DBG=IDP   899
                                        *                                                                        DBG=IDP   900
                                        *         EXIT   NONE                                                    DBG=IDP   901
                                        *                                                                        DBG=IDP   902
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      DBG=IDP   903
                                        *                                                                        DBG=IDP   904
                                        *         CALLS  DAR,DSR,FRK,HDR,RSR=,SOB,SVR=,URO=(IF DEF)              DBG0002   495
                                                                                                                 DBG=IDP   906
                                                                                                                 DBG=IDP   907
                                         REG=     SUBR               ** ENTRY/EXIT **                            DBG=IDP   908
                                                  RJ     =XSVR=      SAVE ALL REGISTERS                          DBG=IDP   909
                                                  SX1    1           SET TO *EXECUTIVE IS /REG=/*                DBG0002   496
                                                  RJ     SOB         SET OUTPUT BIT FLAGS                        DBG0002   497
                                                                                                                 DBG=IDP   910
                                         #URO     IF     DEF,URO=                                                DBG=IDP   911
                                                  RJ     =XURO=      USER REG= OWNCODE                           DBG=IDP   912
                                                  PL     X1,REG3     IF NO REGISTER SNAPSHOT THIS TIME           DBG=IDP   913
                                         #URO     ENDIF                                                          DBG=IDP   914
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    27
  
  
                                                                                                                 DBG=IDP   915
                                                  SA4    REG=        (X4) = 30/EQ CALLING ADDRESS+1, 30/0        DBG=IDP   916
                                                  LX4    30                                                      DBG=IDP   917
                                                  SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       DBG=IDP   918
                                                  SX6    X5          (X6) = FWA OF PARAMETER LIST                DBG=IDP   919
                                                  SA6    FWAPARM                                                 DBG=IDP   920
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  DBG=IDP   921
                                                  ZR     X5,REG3     IF NOT SNAPPING THIS TIME                   DBG=IDP   922
                                                  RJ     HDR         OUTPUT SNAP HEADER                          DBG=IDP   923
                                                  SA5    FWAPARM                                                 DBG=IDP   924
                                                  SA1    X5+SN=RRL   (A1,X1) = ADDR + CNTS OF 1ST REGISTER DUMP  DBG=IDP   925
                                        *                              PARAMETER WORD                            DBG=IDP   926
                                                  PL     X1,REG2     IF NOT DUMPING ALL REGISTERS                DBG=IDP   927
                                                  RJ     DAR         DUMP ALL REGISTERS                          DBG=IDP   928
                                                  EQ     REG3                                                    DBG=IDP   929
                                                                                                                 DBG=IDP   930
                                         REG2     RJ     DSR         DUMP SELECTED REGISTERS                     DBG=IDP   931
                                                                                                                 DBG=IDP   932
                                         REG3     RJ     =XRSR=      RESTORE ALL REGISTERS                       DBG=IDP   933
                                                  EQ     EXIT.                                                   DBG=IDP   934
                                         ROL      SPACE  4,8                                                     DBG0002   498
                                        **        ROL - WRITE OUTPUT LINE.                                       DBG0002   499
                                        *                                                                        DBG0002   500
                                        *                                                                        DBG0002   501
                                        *                SHOULD BE ACCESSED VIA *PRIDP* MACRO.  THIS ROUTINE     DBG0002   502
                                        *         WILL OUTPUT A SINGLE LINE WITH A SPECIFIED NUMBER OF PRECEDING DBG0002   503
                                        *         BLANK LINES TO EITHER THE INTERACTIVE DEBUG OUTPUT FILE        DBG0002   504
                                        *         *F.IDO* AND/OR TO THE USERS BATCH DEBUG OUTPUT FILE            DBG0002   505
                                        *         (VIA *PRBDO* MACRO).                                           DBG0002   506
                                        *                                                                        DBG0002   507
                                        *         ENTRY  (X4) = NR OF PRECEDING BLANK LINES TO OUTPUT (0=NONE)   DBG0002   508
                                        *                (X6) = FWA OF LINE TO BE OUTPUT                         DBG0002   509
                                        *                (X7) = LEN OF LINE TO BE OUTPUT (IN WORDS)              DBG0002   510
                                        *                     = .ZR. IF LEN TO BE COMPUTED BY *WRITEC* (SCOPE 2) DBG0002   511
                                        *                (IDPFLG) --                                             DBG0002   512
                                        *                  BIT IDF.IDOP = 1 IF WRITING TO *F.IDO*, ELSE 0        DBG0002   513
                                        *                  BIT IDF.BDOP = 1 IF WRITING TO *F.BDO*, ELSE 0        DBG0002   514
                                        *                                                                        DBG0002   515
                                        *         EXIT   NONE                                                    DBG0002   516
                                        *                                                                        DBG0002   517
                                        *         USES   ALL BUT B4,A0,X0,A5,X5          (INCLUDES ALL CALLS)    DBG0002   518
                                        *                                                                        DBG0002   519
                                        *         CALLS  PRBDO,WRITEC                                            DBG0002   520
                                                                                                                 DBG0002   521
                                                                                                                 DBG0002   522
                                         ROL      SUBR               ** ENTRY/EXIT **                            DBG0002   523
                                                                                                                 DBG0002   524
                                        *         INITIALIZATION.  SAVE CRITICAL REGISTERS TO AVOID LETTING      DBG0009    14
                                        *         HOST DESTROY THEM VIA *PRBDO* CALL.                            DBG0009    15
                                                                                                                 DBG0002   526
                                                  SA6    ROLA        SAVE (X6) = FWA OF LINE                     DBG0002   527
                                                  SA7    A6+B1       SAVE (X7) = LEN OF LINE                     DBG0002   528
                                                  BX6    X4                                                      DBG0002   529
                                                  SX7    B4-B0                                                   DBG0002   530
                                                  SA6    A7+B1       SAVE (X4) = NR OF PRECEDING BLANK LINES     DBG0002   531
                                                  SA7    A6+B1       SAVE (B4)                                   DBG0002   532
                                                  SX6    A0-B0                                                   DBG0009    16
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    28
  
  
                                                  SX7    A5-B0                                                   DBG0009    17
                                                  SA6    A7+B1       SAVE (A0)                                   DBG0009    18
                                                  SA7    A6+B1       SAVE (A5)                                   DBG0009    19
                                                  BX6    X0                                                      DBG0009    20
                                                  LX7    X5                                                      DBG0009    21
                                                  SA6    A7+B1       SAVE (X0)                                   DBG0009    22
                                                  SA7    A6+B1       SAVE (X5)                                   DBG0009    23
                                                                                                                 DBG0002   533
                                        *         HERE TO OUTPUT APPROPRIATE NUMBER OF PRECEDING BLANK LINES.    DBG0002   534
                                                                                                                 DBG0002   535
                                         ROL2     SA1    ROL=PRB     (X1) = NR OF PRECEDING BLANK LINES          DBG0002   536
                                                  SA2    IDPFLG                                                  DBG0002   537
                                                  SX6    X1-1                                                    DBG0002   538
                                                  MI     X6,ROL4     IF NO MORE BLANK LINES                      DBG0002   539
                                                  LX2    59-IDF.IDOP                                             DBG0002   540
                                                  SA6    A1                                                      DBG0002   541
                                                  PL     X2,ROL3     IF NOT WRITING TO INTERACTIVE DEBUG OUTPUT  DBG0002   542
                                                                                                                 DBG0002   543
                                         #OS2     IFNE   .OS,2       IF NOT SCOPE 2                              DBG0002   544
                                                  WRITEC =XF.IDO,(=C= =),1                                       DBG0002   545
                                                                                                                 DBG0002   546
                                         #OS2     ELSE                                                           DBG0002   547
                                                  EQ     *+4S15      IF TRYING TO WRITE INTERACTIVELY...         DBG0002   548
                                         #OS2     ENDIF                                                          DBG0002   549
                                                                                                                 DBG0002   550
                                         ROL3     SA1    IDPFLG                                                  DBG0002   551
                                                  LX1    59-IDF.BDOP                                             DBG0002   552
                                                  PL     X1,ROL2     IF NOT WRITING TO BATCH DEBUG OUTPUT        DBG0002   553
                                                  PRBDO  (=C= =),1                                               DBG0002   554
                                                  EQ     ROL2                                                    DBG0002   555
                                                                                                                 DBG0002   556
                                        *         HERE TO OUTPUT LINE FINALLY.                                   DBG0002   557
                                                                                                                 DBG0002   558
                                         ROL4     SA1    IDPFLG                                                  DBG0002   559
                                                  LX1    59-IDF.IDOP                                             DBG0002   560
                                                  PL     X1,ROL5     IF NOT WRITING TO INTERACTIVE DEBUG OUTPUT  DBG0002   561
                                                                                                                 DBG0002   562
                                         #OS2     IFNE   .OS,2       IF NOT SCOPE 2                              DBG0002   563
                                                  SA1    ROLA        (X1) = FWA OF LINE                          DBG0002   564
                                                  SA2    A1+B1       (X2) = LEN OF LINE                          DBG0002   565
                                                  ZR     X1,ROL6     IF NO LINE TO OUTPUT                        DBG0002   566
                                                  WRITEC =XF.IDO,X1,X2                                           DBG0002   567
                                                                                                                 DBG0002   568
                                         #OS2     ELSE                                                           DBG0002   569
                                                  EQ     *+4S15      IF TRYING TO WRITE INTERACTIVELY...         DBG0002   570
                                         #OS2     ENDIF                                                          DBG0002   571
                                                                                                                 DBG0002   572
                                         ROL5     SA1    IDPFLG                                                  DBG0002   573
                                                  SA2    ROLA                                                    DBG0002   574
                                                  SA3    A2+B1                                                   DBG0002   575
                                                  LX1    59-IDF.BDOP                                             DBG0002   576
                                                  PL     X1,ROL6     IF NOT WRITING TO BATCH DEBUG OUTPUT        DBG0002   577
                                                  ZR     X2,ROL6     IF NO LINE TO OUTPUT                        DBG0002   578
                                                  PRBDO  X2,X3                                                   DBG0002   579
                                                                                                                 DBG0002   580
                                        *         FINAL PROCESSING -- RESTORE SAVED REGISTERS.                   DBG0002   581
                                                                                                                 DBG0002   582
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    29
  
  
                                         ROL6     SA1    ROL=B4                                                  DBG0002   583
                                                  SA2    A1+B1                                                   DBG0009    24
                                                  SA3    A2+B1                                                   DBG0009    25
                                                  SA4    A3+B1                                                   DBG0009    26
                                                  SB4    X1          RESTORE (B4)                                DBG0009    27
                                                  SA0    X2          RESTORE (A0)                                DBG0009    28
                                                  SA5    X3          RESTORE (A5)                                DBG0009    29
                                                  SA1    A4+B1                                                   DBG0009    30
                                                  NO                                                             DBG0009    31
                                                  BX0    X4          RESTORE (X0)                                DBG0009    32
                                                  LX5    X1          RESTORE (X5)                                DBG0009    33
                                                  EQ     EXIT.                                                   DBG0002   585
                                                                                                                 DBG0002   586
                                                                                                                 DBG0002   587
                                         ROLA     BSSZ   8                                                       DBG0009    34
                                                                                                                 DBG0002   589
                                                  LOC    ROLA                                                    DBG0002   590
                                         ROL=FWA  =      *           SAVED FWA                                   DBG0002   591
                                         ROL=LEN  =      *+1         SAVED LENGTH                                DBG0002   592
                                         ROL=PRB  =      *+2         SAVED PRECEDING BLANK COUNT                 DBG0002   593
                                         ROL=B4   =      *+3         SAVED (B4)                                  DBG0002   594
                                         ROL=A0   =      *+4         SAVED (A0)                                  DBG0009    35
                                         ROL=A5   =      *+5         SAVED (A5)                                  DBG0009    36
                                         ROL=X0   =      *+6         SAVED (X0)                                  DBG0009    37
                                         ROL=X5   =      *+7         SAVED (X5)                                  DBG0009    38
                                                  LOC    *O                                                      DBG0002   595
                                         SNP      SPACE  4,8                                                     DBG=IDP  1063
                                        **        SNP - SNAPSHOT OF CORE AND REGISTERS.                          DBG=IDP  1064
                                        *                                                                        DBG=IDP  1065
                                        *                                                                        DBG=IDP  1066
                                        *                CALLED BY *SNAP* MACRO.                                 DBG=IDP  1067
                                        *                                                                        DBG=IDP  1068
                                        *         LOWER HALF OF *RJ SNP=* WORD HAS FWA OF PARAMETER LIST--       DBG=IDP  1069
                                        *                                                                        DBG=IDP  1070
                                        * +       RJ     SNP=                                                    DBG=IDP  1071
                                        * -       VFD    30/FWA OF PARAMETER LIST                                DBG=IDP  1072
                                        *                                                                        DBG=IDP  1073
                                        *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP BY DBG=IDP  1074
                                        *         BY *SNAP* MACRO. (SEE *DBG=MAC*) --                            DBG=IDP  1075
                                        *                                                                        DBG=IDP  1076
                                        *         VFD    60/LOWER LIMIT (LL)                                     DBG=IDP  1077
                                        *         VFD    60/UPPER LIMIT (UL)                                     DBG=IDP  1078
                                        *         VFD    60/INCREMENT (INC)                                      DBG=IDP  1079
                                        *         VFD    60/10HNAME  (OR .ZR. IF NO NAME)                        DBG=IDP  1080
                                        *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)          DBG=IDP  1081
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/FWA               DBG=IDP  1082
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LWA               DBG=IDP  1083
                                        *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LEN               DBG=IDP  1084
                                        *         VFD    60/REGISTER DUMP FLAG                                   DBG=IDP  1085
                                        *                 .                                                      DBG=IDP  1086
                                        *                 .                                                      DBG=IDP  1087
                                        *         VFD    60/REGISTER DUMP FLAG                                   DBG=IDP  1088
                                        *                .ZR. = NO REGISTER DUMP  (OR END OF REGISTER LIST)      DBG=IDP  1089
                                        *                .MI. = DUMP ALL REGISTERS                               DBG=IDP  1090
                                        *                .GT.0 = ADDR OF REGISTER SAVE WORD FOR REGISTER TO DMP  DBG=IDP  1091
                                        *                                                                        DBG=IDP  1092
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      DBG=IDP  1093
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    30
  
  
                                        *                                                                        DBG=IDP  1094
                                        *         CALLS  DAR,DCM,DSR,FRK,HDR,RSR=,SOB,SVR=,USO=(IF DEF)          DBG0002   596
                                                                                                                 DBG=IDP  1096
                                                                                                                 DBG=IDP  1097
                                         SNP=     SUBR               ** ENTRY/EXIT **                            DBG=IDP  1098
                                                  RJ     SVR=        SAVE ALL REGISTERS                          DBG=IDP  1099
                                                  SX1    2           SET TO *EXECUTIVE IS /SNP=/*                DBG0002   597
                                                  RJ     SOB         SET OUTPUT BIT FLAGS                        DBG0002   598
                                                                                                                 DBG=IDP  1100
                                         #USO     IF     DEF,USO=                                                DBG=IDP  1101
                                                  RJ     =XUSO=      USER SNP= OWNCODE                           DBG=IDP  1102
                                                  PL     X1,SNP4     IF NO SNAPSHOT THIS TIME                    DBG=IDP  1103
                                         #USO     ENDIF                                                          DBG=IDP  1104
                                                                                                                 DBG=IDP  1105
                                                  SA4    SNP=        (X4) = 30/EQ CALLING ADDRESS+1, 30/0        DBG=IDP  1106
                                                  LX4    30                                                      DBG=IDP  1107
                                                  SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*       DBG=IDP  1108
                                                  SX6    X5          (X6) = FWA OF PARAMETER LIST                DBG=IDP  1109
                                                  SA6    FWAPARM                                                 DBG=IDP  1110
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  DBG=IDP  1111
                                                  ZR     X5,SNP4     IF NO SNAP THIS TIME                        DBG=IDP  1112
                                                  RJ     HDR         OUTPUT SNAP HEADER                          DBG=IDP  1113
                                                  SA1    X5+SN=SRL   (A1,X1) = ADDR + CNTS OF 1ST WORD OF        DBG=IDP  1114
                                        *                              REGISTER LIST                             DBG=IDP  1115
                                                  PL     X1,SNP2     IF NOT DUMPING ALL REGISTERS                DBG=IDP  1116
                                                  RJ     DAR         DUMP ALL REGISTERS                          DBG=IDP  1117
                                                  EQ     SNP3                                                    DBG=IDP  1118
                                                                                                                 DBG=IDP  1119
                                         SNP2     RJ     DSR         DUMP SELECTED REGISTERS                     DBG=IDP  1120
                                                                                                                 DBG=IDP  1121
                                         SNP3     SA5    FWAPARM                                                 DBG=IDP  1122
                                                  SA2    X5+SN=FWA   (X2) = 10/0,21/LVL OF IND ADDR,21/FWA       DBG=IDP  1123
                                                  SA3    A2+B1       (X3) = 18/0,21/LVL OF IND ADDR,21/LWA       DBG=IDP  1124
                                                  SA4    A3+B1       (X4) = 18/0,21/LVL OF IND ADDR,21/LEN       DBG=IDP  1125
                                                  RJ     DCM         DUMP CENTRAL MEMORY                         DBG=IDP  1126
                                                                                                                 DBG=IDP  1127
                                         SNP4     RJ     =XRSR=      RESTORE ALL REGISTERS                       DBG=IDP  1128
                                                  EQ     EXIT.                                                   DBG=IDP  1129
                                         SOB      SPACE  4,8                                                     DBG0002   599
                                        **        SOB - SET OUTPUT BIT FLAGS.                                    DBG0002   600
                                        *                                                                        DBG0002   601
                                        *                                                                        DBG0002   602
                                        *                THIS ROUTINE SETS BITS IN THE MASTER CONTROL FLAG,      DBG0002   603
                                        *         *IDPFLG*, WHICH DETERMINES WHERE OUTPUT IS TO BE WRITTEN BY A  DBG0002   604
                                        *         BATCH (I.E. NON-INTERACTIVE) EXECUTIVE --                      DBG0002   605
                                        *                                                                        DBG0002   606
                                        *           1. IF INTERACTIVE MODE HAS EVER BEEN ENTERED (BIT *FTO* ON), DBG0002   607
                                        *                THEN NO FLAGS ARE SET  (I.E. ALL FLAGS ARE AS SET BY    DBG0002   608
                                        *                INTERACTIVE USER VIA *OUTPUT* COMMAND).                 DBG0002   609
                                        *           2. IF INTERACTIVE MODE HAS NOT YET BEEN ENTERED              DBG0002   610
                                        *                (BIT *FTO* OFF), THEN SET --                            DBG0002   611
                                        *                  BDO = WRITING TO BATCH DEBUG OUTPUT FILE, *F.BDO*     DBG0002   612
                                        *                  SNL = L.BSL                                           DBG0002   613
                                        *                                                                        DBG0002   614
                                        *         ENTRY  (X1) = BITS 0 THRU *IDF.XECL-1* CONTAIN THE VALUE TO    DBG0002   615
                                        *                         BE PLACED IN *XEC* FIELD,                      DBG0002   616
                                        *                         (BITS 59 THRU *IDF.XECL* ARE IGNORED).         DBG0002   617
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    31
  
  
                                        *                                                                        DBG0002   618
                                        *         EXIT   (IDPFLG) UPDATED                                        DBG0002   619
                                        *                                                                        DBG0002   620
                                        *         USES   X - 1,2,3,4,6                                           DBG0002   621
                                        *                A - 2,6                                                 DBG0002   622
                                        *                B - NONE                                                DBG0002   623
                                        *                                                                        DBG0002   624
                                        *         CALLS  NONE                                                    DBG0002   625
                                                                                                                 DBG0002   626
                                                                                                                 DBG0002   627
                                         SOB      SUBR               ** ENTRY/EXIT **                            DBG0002   628
                                                  SA2    IDPFLG                                                  DBG0002   629
                                                  MX3    -IDF.XECL                                               DBG0002   630
                                                  SX4    L.BSL                                                   DBG0002   631
                                                  BX1    -X3*X1                                                  DBG0002   632
                                                  LX2    0-IDF.XECP                                              DBG0002   633
                                                  BX2    X3*X2       CLEAR OLD *XEC*                             DBG0002   634
                                                  IX6    X2+X1       MERGE NEW *XEC*                             DBG0002   635
                                                  LX2    59-IDF.FTOP+IDF.XECP-0                                  DBG0002   636
                                                  LX6    IDF.XECP-0                                              DBG0002   637
                                                  MX3    1                                                       DBG0002   638
                                                  SA6    A2                                                      DBG0002   639
                                                  MI     X2,EXIT.    IF *IDP* HAS EVER BEEN CALLED               DBG0002   640
                                                  LX3    IDF.BDOP-59                                             DBG0002   641
                                                  MX2    -IDF.SNLL                                               DBG0002   642
                                                  BX6    X6+X3       MERGE *BDO*                                 DBG0002   643
                                                  LX2    IDF.SNLP-0                                              DBG0002   644
                                                  LX4    IDF.SNLP-0                                              DBG0002   645
                                                  BX6    X2*X6       CLEAR OLD *SNL*                             DBG0002   646
                                                  IX6    X6+X4       MERGE NEW *SNL*                             DBG0002   647
                                                  SA6    A2                                                      DBG0002   648
                                                  EQ     EXIT.                                                   DBG0002   649
                                         WOD      SPACE  4,8                                                     DBG=IDP  1130
                                        **        WOD - CONVERT A WORD TO OCTAL DISPLAY CODE.                    DBG=IDP  1131
                                        *                                                                        DBG=IDP  1132
                                        *                                                                        DBG=IDP  1133
                                        *         ENTRY  (X1)   =  BINARY WORD TO CONVERT                        DBG=IDP  1134
                                        *                                                                        DBG=IDP  1135
                                        *         EXIT   (X6)   =  UPPER 10 OCTAL DIGITS OF CONVERTED WORD       DBG=IDP  1136
                                        *                (X7)   =  LOWER 10 OCTAL DIGITS OF CONVERTED WORD       DBG=IDP  1137
                                        *                                                                        DBG=IDP  1138
                                        *         USES   X - ALL                                                 DBG=IDP  1139
                                        *                A - 2,3,4,5                                             DBG=IDP  1140
                                        *                B - NONE                                                DBG=IDP  1141
                                        *                                                                        DBG=IDP  1142
                                        *         CALLS  NONE                                                    DBG=IDP  1143
                                                                                                                 DBG=IDP  1144
                                                                                                                 DBG=IDP  1145
                                         #WOD     IF     -DEF,WOD                                                DBG=IDP  1146
                                                                                                                 DBG=IDP  1147
                                         WOD      SUBR               ** ENTRY/EXIT **                            DBG=IDP  1148
                                                                                                                 DBG=IDP  1149
                                        *         ON ENTRY   (X1)  = ABCDE FGHIJ KLMNO PQRST                     DBG=IDP  1150
                                                                                                                 DBG=IDP  1151
                                                  SA2    WODA        7.... 7.... 7.... 7....                     DBG=IDP  1152
                                                  BX7    X2*X1       A.... F.... K.... P....                     DBG=IDP  1153
                                                  LX1    3           BCDEF GHIJK LMNOP QRSTA                     DBG=IDP  1154
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    32
  
  
                                                  BX6    X2*X1       B.... G.... L.... Q....                     DBG=IDP  1155
                                                  LX1    3           CDEFG HIJKL MNOPQ RSTAB                     DBG=IDP  1156
                                                  LX7    9*3         .K... .P... .A... .F...                     DBG=IDP  1157
                                                  BX0    X2*X1       C.... H.... M.... R....                     DBG=IDP  1158
                                                  LX6    7*3         ...L. ...Q. ...B. ...G.                     DBG=IDP  1159
                                                  LX1    3           DEFGH IJKLM NOPQR STABC                     DBG=IDP  1160
                                                  IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                     DBG=IDP  1161
                                                  BX5    X2*X1       D.... I.... N.... S....                     DBG=IDP  1162
                                                  LX1    3           EFGHI JKLMN OPQRS TABCD                     DBG=IDP  1163
                                                  LX0    5*3         H.... M.... R.... C....                     DBG=IDP  1164
                                                  BX6    X2*X1       E.... J.... O.... T....                     DBG=IDP  1165
                                                  IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.                     DBG=IDP  1166
                                                  LX5    3*3         ..I.. ..N.. ..S.. ..D..                     DBG=IDP  1167
                                                  LX6    3           ....J ....O ....T ....E                     DBG=IDP  1168
                                                  IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE                     DBG=IDP  1169
                                                  SA4    A2+B1       .7.7. 7.7.7 ..... .....                     DBG=IDP  1170
                                                  SA3    A4+B1       ..... .7.7. 7.7.7 .....                     DBG=IDP  1171
                                                  BX7    X7+X5       HKILJ MPNQO RASBT CFDGE                     DBG=IDP  1172
                                                  BX2    X7*X4       .K.L. M.N.O ..... .....                     DBG=IDP  1173
                                                  SA5    A3+B1       00000 00000 00000 00000                     DBG=IDP  1174
                                                  BX1    X7*X3       ..... .P.Q. R.S.T .....                     DBG=IDP  1175
                                                  LX7    10*3        RASBT CFDGE HKILJ MPNQO                     DBG=IDP  1176
                                                  IX2    X5+X2       .K.L. M.N.O 00000 00000                     DBG=IDP  1177
                                                  BX0    X7*X4       .A.B. C.D.E ..... .....                     DBG=IDP  1178
                                                  IX0    X0+X5       .A.B. C.D.E 00000 00000                     DBG=IDP  1179
                                                  LX1    15*3        ..... ..... .P.Q. R.S.T                     DBG=IDP  1180
                                                  BX3    X7*X3       ..... .F.G. H.I.J .....                     DBG=IDP  1181
                                                  IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T                     DBG=IDP  1182
                                                  LX3    15*3        ..... ..... .F.G. H.I.J                     DBG=IDP  1183
                                                  IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J                     DBG=IDP  1184
                                                  EQ     EXIT.                                                   DBG=IDP  1185
                                                                                                                 DBG=IDP  1186
                                         WODA     CON    70000700007000070000B                                   DBG=IDP  1187
                                                  CON    07070707070000000000B                                   DBG=IDP  1188
                                                  CON    00000070707070700000B                                   DBG=IDP  1189
                                                  CON    10H0000000000                                           DBG=IDP  1190
                                         #WOD     ENDIF                                                          DBG=IDP  1191
                                         IDP      TITLE  IDP - INTERACTIVE DEBUGGING PACKAGE.                    DBG=IDP  1192
                                        **        IDP - INTERACTIVE DEBUGGING PACKAGE.                           DBG=IDP  1193
                                        *                                                                        DBG=IDP  1194
                                        *                                                                        DBG=IDP  1195
                                        *                THIS IS THE INTERACTIVE DEBUGGING PACKAGE WHICH ALLOWS  DBG=IDP  1196
                                        *         ITS USER THE JOYS AND SORROWS OF INTERACTIVE DEBUGGING.        DBG=IDP  1197
                                        *                                                                        DBG=IDP  1198
                                        *                INITIAL ENTRY IS VIA *BREAK* MACRO (DBG=MAC), WHICH     DBG=IDP  1199
                                        *         ASSEMBLES AN *RJ IDP=* AT THE DESIRED LOCATION TO BE BREAK-    DBG=IDP  1200
                                        *         POINTED. SUBSEQUENT ENTRIES CAN BE VIA MORE ASSEMBLED *BREAK*S DBG=IDP  1201
                                        *         OR BY PLACING AN *IDP* GENERATED BREAKPOINT, VIA *BREAK*       DBG=IDP  1202
                                        *         COMMAND, AT THE DESIRED LOCATION TO BE BREAKPOINTED.           DBG=IDP  1203
                                        *                                                                        DBG=IDP  1204
                                        *         IDP COMMANDS ARE--                                             DBG=IDP  1205
                                        *                                                                        DBG=IDP  1206
                                        *         BREAK                                                          DBG=IDP  1207
                                        *         BREAK  ADDR,LL,UL,INC                                          DBG=IDP  1208
                                        *         BRPL   ADDR,A1,LL,UL,INC                                       DBG=IDP  1209
                                        *         BRMI   ADDR,A1,LL,UL,INC                                       DBG=IDP  1210
                                        *         BRZR   ADDR,A1,LL,UL,INC                                       DBG=IDP  1211
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    33
  
  
                                        *         BRNZ   ADDR,A1,LL,UL,INC                                       DBG=IDP  1212
                                        *         BREQ   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1213
                                        *         BRNE   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1214
                                        *         BRLT   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1215
                                        *         BRGE   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1216
                                        *         BRLE   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1217
                                        *         BRGT   ADDR,A1,A2,LL,UL,INC                                    DBG=IDP  1218
                                        *         CODE   FWA,LWA,LEN                                             DBG=IDP  1219
                                        *         CONNECT FILE                                                   DBG=IDP  1220
                                        *         DISCONT FILE                                                   DBG=IDP  1221
                                        *         DPC FWA,LWA,LEN                                                DBG0002   650
                                        *         END                                                            DBG=IDP  1222
                                        *         FREEZE                                                         DBG0006     5
                                        *         JUMP   ADDR                                                    DBG=IDP  1223
                                        *         OUTPUT I,B,IE,BE                                               DBG0002   651
                                        *         REGS                                                           DBG=IDP  1224
                                        *         REGS   R1,R2,...,RN                                            DBG=IDP  1225
                                        *         SET                                                            DBG=IDP  1226
                                        *         SET    NAME,VALUE                                              DBG=IDP  1227
                                        *         SNAP   FWA,LWA,LEN                                             DBG=IDP  1228
                                        *         STORE  ADDR,C1,C2,C3,C4                                        DBG=IDP  1229
                                        *         STEP   L,RJ                                                    DBG=IDP  1230
                                        *         STPL   ADDR,L,RJ                                               DBG=IDP  1231
                                        *         STMI   ADDR,L,RJ                                               DBG=IDP  1232
                                        *         STZR   ADDR,L,RJ                                               DBG=IDP  1233
                                        *         STNZ   ADDR,L,RJ                                               DBG=IDP  1234
                                        *         STEQ   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1235
                                        *         STNE   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1236
                                        *         STLT   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1237
                                        *         STGE   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1238
                                        *         STLE   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1239
                                        *         STGT   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1240
                                        *         STRANGE ADDR1,ADDR2,L,RJ                                       DBG=IDP  1241
                                        *         STNR   NR,L,RJ                                                 DBG=IDP  1242
                                        *         STAR   ADDR1,ADDR2,L,RJ                                        DBG=IDP  1243
                                        *         UNBREAK ADDR1,...,ADDRN                                        DBG0002   652
                                        *         UNSET  NAME1,...,NAMEN                                         DBG=IDP  1245
                                        *         WHERE  ADDR1,...,ADDRN                                         DBG=IDP  1246
                                        *         XEQ                                                            DBG=IDP  1247
                                        *                                                                        DBG=IDP  1248
                                        *         MAY THE GODS BE WITH YOU...                                    DBG=IDP  1249
                                        *                                                                        DBG=IDP  1250
                                        *         ENTRY  NONE                                                    DBG=IDP  1251
                                        *                                                                        DBG=IDP  1252
                                        *         EXIT   NONE                                                    DBG=IDP  1253
                                        *                                                                        DBG=IDP  1254
                                        *         USES   NONE        (OR IT WOULDNT BE ANY GOOD)                 DBG=IDP  1255
                                        *                                                                        DBG=IDP  1256
                                        *         CALLS  (EXTERNAL TO DBG=IDP)--                                 DBG=IDP  1257
                                        *                CDD,COD,DXB,OPEN,READC,RSR=,SFN,SVR=,WRITEC,WRITER      DBG0004     4
                                                                                                                 DBG=IDP  1259
                                                                                                                 DBG=IDP  1260
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              DBG=IDP  1261
                                                                                                                 DBG=IDP  1262
                                         IDP=     SUBR               ** ENTRY **                                 DBG0001    13
                                                  RJ     =XSVR=      SAVE ALL REGISTTERS                         DBG=IDP  1264
                                                                                                                 DBG0002   653
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    34
  
  
                                        *         INITIALIZATION.                                                DBG0002   654
                                                                                                                 DBG0002   655
                                                  SA1    IDP=                                                    DBG0002   656
                                                  SX6    60                                                      DBG0002   657
                                                  LX1    30                                                      DBG0002   658
                                                  SX7    X1                                                      DBG0002   659
                                                  SA6    IDPPOS      SET UP POS COUNTER                          DBG=IDP  1270
                                                  SA7    IDPPREG     SET UP PSEUDO P REGISTER                    DBG=IDP  1271
                                                  SB6    IDPXFT                                                  DBG0002   660
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- TRANSFER ADDRESSES     DBG0002   661
                                                                                                                 DBG0002   662
                                        *         SET UP *IDPFLG* - MASTER CONTROL FLAG.                         DBG0002   663
                                        *                                                                        DBG0002   664
                                        *           SET  XEC = *IDP=*                                            DBG0002   665
                                        *           IF 1ST TIME *IDP* HAS BEEN ENTERED (BIT *FTO* OFF), SET --   DBG0002   666
                                        *                FTO = 1ST TIME ONLY CODE HAS BEEN EXECUTED              DBG0002   667
                                        *                IDO = WRITING INTERACTIVELY (F.IDO)                     DBG0002   668
                                        *                SNL = L.ISL                                             DBG0002   669
                                                                                                                 DBG0002   670
                                                  SA1    IDPFLG                                                  DBG0002   671
                                                  MX2    -IDF.XECL                                               DBG0002   672
                                                  MX3    1                                                       DBG0002   673
                                                  LX2    IDF.XECP-0                                              DBG0002   674
                                                  BX6    X2*X1       CLEAR OLD *XEC*/SET NEW *XEC*               DBG0002   675
                                                  MX4    -IDF.SNLL                                               DBG0002   676
                                                  LX1    59-IDF.FTOP                                             DBG0002   677
                                                  SA6    A1                                                      DBG0002   678
                                                  MI     X1,IDP2     IF NOT 1ST TIME                             DBG0002   679
                                                  LX4    IDF.SNLP-0                                              DBG0002   680
                                                  LX3    IDF.FTOP-59                                             DBG0002   681
                                                  BX6    X4*X6       CLEAR OLD *SNL*                             DBG0002   682
                                                  =X1    L.ISL                                                   DBG0002   683
                                                  BX6    X6+X3       MERGE *FTO*                                 DBG0002   684
                                                  LX3    IDF.IDOP-IDF.FTOP                                       DBG0002   685
                                                  BX6    X6+X1       MERGE NEW *SNL*                             DBG0002   686
                                                  IX6    X6+X3       MERGE *IDO*                                 DBG0002   687
                                                  SA6    A1                                                      DBG0002   688
                                                                                                                 DBG=IDP  1275
                                        *         SET UP *F.IDI - INTERACTIVE DEBUG INPUT FILE*.                 DBG=IDP  1276
                                                                                                                 DBG=IDP  1277
                                                  SA1    F.IDI                                                   DBG=IDP  1278
                                                  SX2    040021B     (X2) = CIO EOR STATUS                       DBG=IDP  1279
                                                  MX0    7*CHAR                                                  DBG=IDP  1280
                                                  BX6    X0*X1                                                   DBG=IDP  1281
                                                  BX6    X6+X2                                                   DBG=IDP  1282
                                                  SA6    A1                                                      DBG=IDP  1283
                                                  OPEN   F.IDI,,RCL                                              FCCA580     8
                                                  SA1    F.IDI                                                   DBG=IDP  1285
                                                  MX2    0           SET TO *CONNECT*                            DBG=IDP  1286
                                                  RJ     CON         CONNECT F.IDI                               DBG=IDP  1287
                                                                                                                 DBG=IDP  1288
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  DBG=IDP  1289
                                                  MI     X1,*+4S15   IF *CON* DETECTED ERROR...                  DBG=IDP  1290
                                         #OS3     ENDIF                                                          DBG=IDP  1291
                                                                                                                 DBG=IDP  1292
                                        *         SET UP *F.IDO - INTERACTIVE DEBUG OUTPUT FILE*.                DBG=IDP  1293
                                                                                                                 DBG=IDP  1294
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    35
  
  
                                                  OPEN   F.IDO,,RCL                                              FCCA580     9
                                                  SA1    F.IDO                                                   DBG=IDP  1296
                                                  MX2    0           SET TO *CONNECT*                            DBG=IDP  1297
                                                  RJ     CON         CONNECT F.IDO                               DBG=IDP  1298
                                                                                                                 DBG=IDP  1299
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  DBG=IDP  1300
                                                  MI     X1,*+4S15   IF *CON* DETECTED ERROR...                  DBG=IDP  1301
                                         #OS3     ENDIF                                                          DBG=IDP  1302
                                                                                                                 DBG=IDP  1303
                                        *         CLEAR/INITIALIZE TABLES.                                       DBG0002   689
                                                                                                                 DBG=IDP  1305
                                                  SB6    IDPBA                                                   DBG=IDP  1306
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- BREAK ADDRESSES        DBG=IDP  1307
                                                  SB6    IDPSET                                                  DBG=IDP  1308
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- SET NAMES              DBG=IDP  1309
                                                  RJ     IST         (RE)INITIALIZE *SET* TABLE                  DBG=IDP  1310
                                                                                                                 DBG=IDP  1311
                                        *         INITIAL BREAK PROCESSING.                                      DBG=IDP  1312
                                                                                                                 DBG=IDP  1313
                                         IDP2     SA1    IDPPREG                                                 DBG=IDP  1314
                                                  SA5    X1-1        (X5) = 30/RJ IDP, 30/FWA PARAMETER LIST     DBG=IDP  1315
                                                  BX6    X6-X6                                                   DBG=IDP  1316
                                                  SX5    X5                                                      DBG=IDP  1318
                                                  SA6    ST=ENDX     SET TO *DEFAULT IS NOT IDP GENERATED BRK*   DBG=IDP  1319
                                                  RJ     BRK         BREAK PROCESSOR                             DBG=IDP  1321
                                                                                                                 DBG=IDP  1322
                                         #UIO     IF     DEF,UIO=                                                DBG=IDP  1323
                                                  RJ     =XUIO=      USER IDP OWNCODE                            DBG=IDP  1324
                                                  PL     X1,ST=ENDW  IF NO INTERACTIVE BREAK THIS TIME           DBG=IDP  1325
                                         #UIO     ENDIF                                                          DBG=IDP  1326
                                                                                                                 DBG=IDP  1327
                                                  ZR     X5,ST=ENDW  IF CONDITIONAL BREAK NOT SATISFIED          DBG=IDP  1328
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  DBG=IDP  1329
                                                  ZR     X5,ST=ENDW  IF NO BREAK THIS TIME                       DBG=IDP  1330
                                                                                                                 DBG=IDP  1331
                                        *         FLUSH *F.BDO - BATCH DEBUG OUTPUT FILE*.                       DBG=IDP  1332
                                                                                                                 DBG=IDP  1333
                                                  WRITER =XF.BDO,,RCL                                            DBG=IDP  1334
                                                                                                                 DBG=IDP  1335
                                        *         INTRODUCE YOURSELF.                                            DBG=IDP  1336
                                                                                                                 DBG=IDP  1337
                                         IDP2A    BSS    0                                                       DBG=IDP  1338
                                                  SA1    =10H **IDP**                                            DBG0002   690
                                                  SA2    =10H CALLD BY                                           DBG0002   691
                                                  SA3    X5+SN=HDR                                               DBG0002   692
                                                  BX6    X1                                                      DBG0002   693
                                                  LX7    X2                                                      DBG0002   694
                                                  SA6    SNAPLNE                                                 DBG0002   695
                                                  SA7    A6+B1                                                   DBG0002   696
                                                  BX6    X3                                                      DBG0002   697
                                                  ZR     X3,IDP4     IF NO HEADER PROVIDED BY CALLER .OR.        DBG0002   698
                                        *                              IDP GENERATED BREAK                       DBG0002   699
                                                  SA6    A6+B1                                                   DBG0002   700
                                                  SA7    A6+B1                                                   DBG0002   701
                                                                                                                 DBG=IDP  1363
                                         IDP4     SA1    IDPPREG                                                 DBG=IDP  1364
                                                  SX1    X1-1                                                    DBG=IDP  1365
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    36
  
  
                                                                                                                 DBG=IDP  1366
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  1367
                                                  SB7    IDP5        (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP  1368
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  1369
                                                                                                                 DBG=IDP  1370
                                         IDP5     BSS    0                                                       DBG=IDP  1371
                                                                                                                 DBG=IDP  1372
                                         #FRA     ELSE                                                           DBG=IDP  1373
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  1374
                                                  BX6    X4                                                      DBG=IDP  1375
                                                  MX7    0                                                       DBG=IDP  1376
                                         #FRA     ENDIF                                                          DBG=IDP  1377
                                                                                                                 DBG=IDP  1378
                                                  SA6    A7+B1                                                   DBG0002   702
                                                  SA7    A6+B1                                                   DBG0002   703
                                                  PRIDP  SNAPLNE                                                 DBG0002   704
                                                  EQ     IDP8        READ 1ST LINE...                            DBG0002   705
                                         IDP=MN   SPACE  4,8                                                     DBG0002   706
                                        *         ** MAIN LOOP NODE **                                           DBG0002   707
                                                                                                                 DBG0002   708
                                         IDP=MN   BSS    0                                                       DBG0002   709
                                                  SA1    IDPSTMT                                                 DBG0002   710
                                                  PL     X1,IDP7     IF LAST STMT PROCESSED WAS NOT IN *PROC*    DBG0002   711
                                                                                                                 DBG0002   712
                                        *         HERE IF LAST STATEMENT WAS IN A PROCEDURE.                     DBG0002   713
                                                                                                                 DBG0002   714
                                                  EQ     *+4S15      OOPS...                                     DBG0002   715
                                                                                                                 DBG0002   716
                                        *         CHECK FOR AVAILABILITY OF NEXT STATEMENT.                      DBG0002   717
                                                                                                                 DBG0002   718
                                         IDP7     SA2    X1          (X2) = LEN WORD FOR LAST STMT PROCESSED     DBG0002   719
                                                  LX2    59-TB.LASP                                              DBG0002   720
                                                  MI     X2,IDP8     IF LAST STMT PROCESSED WAS LAST ON LINE     DBG0002   721
                                                  LX2    0-TB.LENP+TB.LASP-59                                    DBG0002   722
                                                  SX1    X1                                                      DBG0002   723
                                                  SX2    X2+B1                                                   DBG0002   724
                                                  IX6    X1+X2       (X6) = ADDR OF LEN WORD FOR NEXT STMT       DBG0002   725
                                                  SA6    IDPSTMT                                                 DBG0002   726
                                                  SA5    X6+B1       (A5,X5) = A+C OF 1ST TOKEN IN NEXT STMT     DBG0002   727
                                                  EQ     IDP12                                                   DBG0002   728
                                                                                                                 DBG0002   729
                                        *         HERE TO READ NEW LINE.                                         DBG0002   730
                                                                                                                 DBG0002   731
                                         IDP8     SA1    IDPFLG                                                  DBG0002   732
                                                  LX1    59-IDF.INPP                                             DBG0002   733
                                                  MI     X1,IDP9     IF READING FROM BATCH INPUT (F.BDI)         DBG0002   734
                                                                                                                 DBG0002   735
                                                  DUP    L.PRB,1                                                 DBG0002   736
                                                  WRITEC =XF.IDO,(=C=  =)                                        DBG0002   737
                                                                                                                 DBG0002   738
                                                  WRITEC =XF.IDO,(=C= "PROMPT"=)                                 DBG0002   739
                                                  WRITER =XF.IDO,,RCL                                            DBG0002   740
                                                                                                                 DBG0002   741
                                         IDP9     RJ     RIL         READ IDP LINE                               DBG0002   742
                                                  SA2    IDPFLG                                                  DBG0002   743
                                                  ZR     X1,IDP10    IF EOR/EOF NOT ENCOUNTERED                  DBG0002   744
                                                  MX6    1                                                       DBG0002   745
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    37
  
  
                                                  LX6    IDF.INPP-59                                             DBG0002   746
                                                  BX6    -X6*X2      CLEAR INP                                   DBG0002   747
                                                  SA6    A2                                                      DBG0002   748
                                                  EQ     IDP8                                                    DBG0002   749
                                                                                                                 DBG0002   750
                                        *         HERE TO ECHO LINE TO BATCH DEBUG OUTPUT FILE (F.BDO),          DBG0002   751
                                        *           IF REQUESTED.                                                DBG0002   752
                                                                                                                 DBG0002   753
                                         IDP10    BX3    X2                                                      DBG0002   754
                                                  LX2    59-IDF.BKOP                                             DBG0002   755
                                                  LX3    59-IDF.BDOP                                             DBG0002   756
                                                  BX4    X2*X3                                                   DBG0002   757
                                                  PL     X4,IDP10A   IF NO ECHO REQUESTED .OR. NOT WRITING TO    DBG0002   758
                                        *                              BATCH DEBUG OUTPUT FILE (F.BDO)           DBG0002   759
                                                  PRBDO  (=C=  =),1                                              DBG0002   760
                                                  SA2    L=LIM                                                   DBG0002   761
                                                  PRBDO  IDPLIM-1,X2                                             DBG0002   762
                                                                                                                 DBG0002   763
                                        *         HERE TO ECHO LINE TO INTERACTIVE DEBUG OUTPUT FILE (F.IDO),    DBG0002   764
                                        *           IF REQUESTED.                                                DBG0002   765
                                                                                                                 DBG0002   766
                                         IDP10A   SA1    IDPFLG                                                  DBG0002   767
                                                  BX2    X1                                                      DBG0002   768
                                                  LX1    59-IDF.IKOP                                             DBG0002   769
                                                  LX2    59-IDF.IDOP                                             DBG0002   770
                                                  BX3    X1*X2                                                   DBG0002   771
                                                  PL     X3,IDP11    IF NO ECHO REQUESTED .OR. NOT WRITING TO    DBG0002   772
                                        *                              INTERACTIVE DEBUG OUTPUT FILE (F.IDO)     DBG0002   773
                                                                                                                 DBG0002   774
                                                  DUP    L.PRB,1                                                 DBG0002   775
                                                  WRITEC =XF.IDO,(=C=  =)                                        DBG0002   776
                                                                                                                 DBG0002   777
                                                  WRITEC =XF.IDO,IDPLIM-1                                        DBG0002   778
                                                                                                                 DBG0002   779
                                        *         HERE TO ENTOKEN NEW LINE.                                      DBG0002   780
                                                                                                                 DBG0002   781
                                         IDP11    SX7    L.TB                                                    DBG0002   782
                                                  SA6    IDPTB       (A6) = ADDR OF LEN WORD FOR 1ST STMT        DBG0002   783
                                                  SA7    BUB=LEN                                                 DBG0002   784
                                                  RJ     BUB         BURST/BUILD NEW LINE                        DBG0002   785
                                                  SX6    IDPTB                                                   DBG0002   786
                                                  SA5    IDPTB+1                                                 DBG0002   787
                                                  SA6    IDPSTMT                                                 DBG0002   788
                                                                                                                 DBG0002   789
                                        *         HERE TO SEARCH FOR STATEMENT KEYWORD.                          DBG0002   790
                                                                                                                 DBG0002   791
                                         IDP12    MX0    7*CHAR                                                  DBG0002   792
                                                  SX6    B1                                                      DBG0002   793
                                                  ZR     X5,IDP=MN   IF A NULL STMT, IGNORE...                   DBG0002   794
                                        *                              (PROBABLE "EOS" "EOS" SYNTAX)             DBG0002   795
                                                  SA2    =40404040404040404040B                                  DBG0002   796
                                                  BX1    X0*X5       (X1) = 0LKEYWORD                            DBG0002   797
                                                  IX6    X1-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     DBG0002   798
                                                  BX7    -X6+X1      (X7) = ALL TRAILING 0 BITS IN (X1) = 0 BITS DBG0002   799
                                        *                                    ALL OTHER LEADING BITS = 1 BITS     DBG0002   800
                                                  SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS          DBG0002   801
                                                  BX6    X2*X7       (X6) = 40B WHERE EACH CHAR IN KEYWORD IS    DBG0002   802
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    38
  
  
                                                  LX7    X6,B7       (X7) = 01B WHERE EACH CHAR IN KEYWORD IS    DBG0002   803
                                                  SB6    IDPKEY                                                  DBG0002   804
                                                  IX7    X6-X7       (X7) = 37B WHERE EACH CHAR IN KEYWORD IS    DBG0002   805
                                                  BX0    X6+X7       (X0) = 77B WHERE EACH CHAR IN KEYWORD IS    DBG0002   806
                                                  RJ     SKT         SEARCH *IDP* KEYWORD TABLE                  DBG=IDP  1398
                                                                                                                 DBG=IDP  1399
                                         #UKT     IF     DEF,UKT=                                                DBG=IDP  1400
                                                  NZ     X2,IDP=UK   IF A FIND                                   DBG=IDP  1401
                                                  SB6    =XUKT=      (B6) = FWA OF USER KEYWORD TABLE            DBG=IDP  1402
                                                  RJ     SKT         SEARCH USER KEYWORD TABLE                   DBG=IDP  1403
                                                                                                                 DBG=IDP  1404
                                         IDP=UK   BSS    0                                                       DBG=IDP  1405
                                         #UKT     ENDIF                                                          DBG=IDP  1406
                                                                                                                 DBG=IDP  1407
                                                  ZR     X2,IDP.ER   IF NO FIND IN TABLE                         DBG=IDP  1408
                                                  SB5    X2          (B5) = PROCESSOR ADDR                       DBG=IDP  1409
                                                  SA5    A5+B1       (A5,X5) = A+C OF TOKEN THAT TERMINATED KEYW DBG0002   807
                                                  JP     B5                                                      DBG=IDP  1410
                                         IDP=ER   SPACE  4,8                                                     DBG0002   808
                                        *         HERE FOR ERROR CONDITION.                                      DBG=IDP  1412
                                                                                                                 DBG=IDP  1413
                                         IDP=ER   BSS    0           ** ERROR **                                 DBG=IDP  1414
                                         IDP.ER   BSS    0                                                       DBG=IDP  1415
                                                                                                                 DBG0002   809
                                                  DUP    L.PRB,1                                                 DBG0002   810
                                                  WRITEC =XF.IDO,(=C=  =)                                        DBG0002   811
                                                                                                                 DBG0002   812
                                                  WRITEC =XF.IDO,(=C= ** ERROR **=)                              DBG0002   813
                                                  EQ     IDP=MN                                                  DBG=IDP  1417
                                         IDP=OV   SPACE  4,8                                                     DBG0002   814
                                        *         HERE IF TABLE OVERFLOW.                                        DBG0002   815
                                                                                                                 DBG0002   816
                                         IDP=OV   BSS    0           ** TABLE OVERFLOW **                        DBG0002   817
                                                                                                                 DBG0002   818
                                                  DUP    L.PRB,1                                                 DBG0002   819
                                                  WRITEC =XF.IDO,(=C=  =)                                        DBG0002   820
                                                                                                                 DBG0002   821
                                                  WRITEC =XF.IDO,(=C= ** TABLE OVERFLOW **=)                     DBG0002   822
                                                  EQ     IDP=ER                                                  DBG0002   823
                                         IDP=IFR  SPACE  4,8                                                     DBG0006     6
                                        **        IDP=IFR - IDP RESTART.                                         DBG0006     7
                                        *                                                                        DBG0006     8
                                        *                                                                        DBG0006     9
                                        *         HERE FROM *RHH* WHEN HOST HAS JUST BEEN RESTARTED              DBG0006    10
                                        *         VIA *IFR*.  NEED TO *MEM* BACK DOWN TO ORIGINAL FIELD          DBG0006    11
                                        *         LENGTH.                                                        DBG0006    12
                                                                                                                 DBG0006    13
                                                                                                                 DBG0006    14
                                         IDP=IFR  BSS    0           ** ENTRY **                                 DBG0006    15
                                                  SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                            DBG0006    16
                                                  MX2    -1                                                      DBG0006    17
                                                  BX6    X2*X1       CLEAR COMPLETE BIT                          DBG0006    18
                                                  SA6    A1                                                      DBG0006    19
                                                  MEMORY SCM,A1,RCL                                              DBG0006    20
                                                  EQ     IDP=MN      CONTINUE INTERACTIVE SESSION...             DBG0006    21
                                         ST=      SPACE  4,8                                                     DBG=IDP  1418
                                        **        ST= - STATEMENT PROCESSORS.                                    DBG=IDP  1419
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    39
  
  
                                        *                                                                        DBG=IDP  1420
                                         ST=BRK   SPACE  4,8                                                     DBG=IDP  1421
                                        *         HERE TO PROCESS *BREAK ADDR,LL,UL,INC*,                        DBG=IDP  1422
                                        *                      OR *BRPL ADDR,ADDR1,LL,UL,INC* FORM,              DBG=IDP  1423
                                        *                      OR  *BREQ ADDR,ADDR1,ADDR2,LL,UL,INC* FORM.       DBG=IDP  1424
                                                                                                                 DBG=IDP  1425
                                         ST=BRK   SX6    B7+IDPKEY-IDPKBR  (X6) = BREAK TYPE CODE (BTC)          DBG=IDP  1426
                                                  SA6    IDPBTC                                                  DBG=IDP  1427
                                                  ZR     X5,ST=BRK13 IF EOS ENCOUNTERED, LIST ALL BREAKS...      DBG0002   824
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  DBG=IDP  1429
                                                  ZR     X3,ST=BRK13 IF 1ST EXPRESSION IS NULL, LIST ALL BREAKS  DBG=IDP  1430
                                                  SX6    X1                                                      DBG=IDP  1431
                                                  SB2    X1          (B2) = ADDR AT WHICH TO BREAK               DBG=IDP  1432
                                                  SA6    AP=FWA                                                  DBG=IDP  1433
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1434
                                                  MI     B2,IDP.ER   IF ADDR IS BAD                              DBG=IDP  1435
                                                  SA2    IDPBTC                                                  DBG=IDP  1436
                                                  MX3    0                                                       DBG=IDP  1437
                                                  ZR     X2,ST=BRK2  IF THIS IS *BREAK ADDR,LL,UL,INC*           DBG=IDP  1438
                                                                                                                 DBG=IDP  1439
                                        *         ASSEMBLE ADDR1.                                                DBG=IDP  1440
                                                                                                                 DBG=IDP  1441
                                                  ZR     X5,ST=BRK2  IF ADDR FOLLOWED BY EOS                     DBG=IDP  1442
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR1                 DBG=IDP  1443
                                                                                                                 DBG=IDP  1444
                                         ST=BRK2  NZ     X3,ST=BRK3  IF ADDR1 NOT NULL                           DBG=IDP  1445
                                                  SX1    0           (X1) = DEFAULT ADDR1                        DBG=IDP  1446
                                                                                                                 DBG=IDP  1447
                                         ST=BRK3  SB2    X1                                                      DBG=IDP  1448
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1449
                                                  MI     B2,IDP.ER   IF ADDR1 IS BAD                             DBG=IDP  1450
                                                  SX6    B2                                                      DBG=IDP  1451
                                                  MX3    0                                                       DBG=IDP  1452
                                                  SA6    AP=LWA                                                  DBG=IDP  1453
                                                  SA2    IDPBTC                                                  DBG=IDP  1454
                                                  SX7    X2-BTC=EQ                                               DBG=IDP  1455
                                                  MI     X7,ST=BRK4  IF THIS IS *BREAK ADDR,LL,UL,INC*           DBG=IDP  1456
                                        *                              OR *BRPL ADDR,ADDR1,LL,UL,INC* FORM       DBG=IDP  1457
                                                                                                                 DBG=IDP  1458
                                        *         ASSEMBL ADDR2.                                                 DBG=IDP  1459
                                                                                                                 DBG=IDP  1460
                                                  ZR     X5,ST=BRK4  IF ADDR1 FOLLOWED BY EOS                    DBG=IDP  1461
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR2                 DBG=IDP  1462
                                                                                                                 DBG=IDP  1463
                                         ST=BRK4  NZ     X3,ST=BRK5  IF ADDR2 NOT NULL                           DBG=IDP  1464
                                                  SX1    0                                                       DBG=IDP  1465
                                                                                                                 DBG=IDP  1466
                                         ST=BRK5  SB2    X1                                                      DBG=IDP  1467
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1468
                                                  MI     B2,IDP.ER   IF ADDR2 IS BAD                             DBG=IDP  1469
                                                  SX6    B2                                                      DBG=IDP  1470
                                                  MX3    0                                                       DBG=IDP  1471
                                                  SA6    AP=LEN      SAVE (X6) = ADDR2                           DBG=IDP  1472
                                                                                                                 DBG=IDP  1473
                                        *         ASSEMBLE LL.                                                   DBG=IDP  1474
                                                                                                                 DBG=IDP  1475
                                                  ZR     X5,ST=BRK6  IF ADDR2 FOLLOWED BY EOS                    DBG=IDP  1476
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    40
  
  
                                                  RJ     PAS         PARSE SUBEXPRESSION-- LL                    DBG=IDP  1477
                                                                                                                 DBG=IDP  1478
                                         ST=BRK6  NZ     X3,ST=BRK7  IF LL NOT NULL                              DBG=IDP  1479
                                                  SX1    1           (X1) = DEFAULT LL                           DBG=IDP  1480
                                                                                                                 DBG=IDP  1481
                                         ST=BRK7  SX6    X1                                                      DBG=IDP  1482
                                                  SA6    AP=LL                                                   DBG=IDP  1483
                                                  MX3    0                                                       DBG=IDP  1484
                                                  ZR     X5,ST=BRK8  IF LL FOLLOWED BY EOS                       DBG=IDP  1485
                                                  RJ     PAS         PARSE SUBEXPRESSION-- UL                    DBG=IDP  1486
                                                                                                                 DBG=IDP  1487
                                         ST=BRK8  NZ     X3,ST=BRK9  IF UL NOT NULL                              DBG=IDP  1488
                                                  SX1    100         (X1) = DEFAULT UL                           DBG=IDP  1489
                                                                                                                 DBG=IDP  1490
                                         ST=BRK9  SX6    X1                                                      DBG=IDP  1491
                                                  SA6    AP=UL                                                   DBG=IDP  1492
                                                  MX3    0                                                       DBG=IDP  1493
                                                  ZR     X5,ST=BRK10 IF UL FOLLOWED BY EOS                       DBG=IDP  1494
                                                  RJ     PAS         PARSE SUBEXPRESSION-- INC                   DBG=IDP  1495
                                                                                                                 DBG=IDP  1496
                                         ST=BRK10 NZ     X3,ST=BRK11 IF INC NOT NULL                             DBG=IDP  1497
                                                  SX1    1           (X1) = DEFAULT INC                          DBG=IDP  1498
                                                                                                                 DBG=IDP  1499
                                         ST=BRK11 SX6    X1                                                      DBG=IDP  1500
                                                  SA6    AP=INC                                                  DBG=IDP  1501
                                                                                                                 DBG=IDP  1502
                                        *         ASSEMBLE NEW BREAK TABLE ENTRY.                                DBG=IDP  1503
                                                                                                                 DBG=IDP  1504
                                                  SA1    AP=FWA      (X1) = BREAK ADDR                           DBG=IDP  1505
                                                  SA2    A1+B1       (X2) = ADDR1                                DBG=IDP  1506
                                                  SA3    A2+B1       (X3) = ADDR2                                DBG=IDP  1507
                                                  SA4    IDPBTC      (X4) = BREAK TYPE CODE                      DBG=IDP  1508
                                                  LX2    54-18                                                   DBG=IDP  1509
                                                  BX6    X1+X2       (X6) = 6/0,18/ADDR1,18/0,18/BREAK ADDR      DBG=IDP  1510
                                                  LX3    36-18                                                   DBG=IDP  1511
                                                  BX6    X6+X3       (X6) = 6/0,18/ADDR1,18/ADDR2,18/BRK ADDR    DBG=IDP  1512
                                                  LX4    60-6                                                    DBG=IDP  1513
                                                  BX6    X6+X4       (X6) = 6/BTC,18/ADDR1,18/ADDR2,18/BRK ADDR  DBG=IDP  1514
                                                  SA6    ST=BRKB                                                 DBG=IDP  1515
                                                                                                                 DBG=IDP  1516
                                                  SA2    AP=LL       (X2) = LL                                   DBG=IDP  1517
                                                  SA3    A2+B1       (X3) = UL                                   DBG=IDP  1518
                                                  SA4    A3+B1       (X4) = INC                                  DBG=IDP  1519
                                                  LX2    60-15                                                   DBG=IDP  1520
                                                  LX3    45-15                                                   DBG=IDP  1521
                                                  BX7    X2+X3       (X7) = 15/LL,15/UL,12/0,18/0                DBG=IDP  1522
                                                  LX4    30-12                                                   DBG=IDP  1523
                                                  BX7    X7+X4       (X7) = 15/LL,15/UL,12/INC,18/0              DBG=IDP  1524
                                                  SA7    A6+B1                                                   DBG=IDP  1525
                                                                                                                 DBG=IDP  1526
                                                  SX1    X1                                                      DBG=IDP  1527
                                                  SB6    IDPBA                                                   DBG=IDP  1528
                                                  MX0    -18                                                     DBG=IDP  1529
                                                  BX0    -X0                                                     DBG=IDP  1530
                                                  RJ     SKT         SEARCH FOR BREAK ADDR                       DBG=IDP  1531
                                                  SA1    ST=BRKB                                                 DBG=IDP  1532
                                                  NZ     X2,ST=BRK12 IF BREAK ADDR ALREADY IN TABLE              DBG=IDP  1533
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    41
  
  
                                                                                                                 DBG=IDP  1534
                                        *         HERE IF MAKING A NEW ENTRY.                                    DBG=IDP  1535
                                                                                                                 DBG=IDP  1536
                                                  BX6    X1                                                      DBG=IDP  1537
                                                  RJ     ADZ         ADD NEW *IDPBA* ENTRY                       DBG=IDP  1538
                                                  SA3    X1          (X3) = PREVIOUS CONTENTS OF BREAK ADDR      DBG=IDP  1539
                                                  SA4    ST=BRKA     (X4) = *RJ IDP* PLUG                        DBG=IDP  1540
                                                  BX6    X3                                                      DBG=IDP  1541
                                                  LX7    X4                                                      DBG=IDP  1542
                                                  SB6    B7+B7                                                   DBG=IDP  1543
                                                  SA6    IDPBC+B6                                                DBG=IDP  1544
                                                  SA7    A3                                                      DBG=IDP  1545
                                                  SA1    ST=BRKB+1   (X1) = 2ND WORD OF NEW *IDPBC* ENTRY        DBG=IDP  1546
                                                  BX6    X1                                                      DBG=IDP  1547
                                                  SA6    A6+B1                                                   DBG=IDP  1548
                                                  EQ     IDP=MN                                                  DBG=IDP  1549
                                                                                                                 DBG=IDP  1550
                                        *         HERE IF REPLACING/UPDATING AN EXISTING ENTRY.                  DBG=IDP  1551
                                                                                                                 DBG=IDP  1552
                                         ST=BRK12 SB6    B7+B7                                                   DBG=IDP  1553
                                                  BX6    X1                                                      DBG=IDP  1554
                                                  SA3    IDPBC+B6+1  (X3) = 2ND WORD OF EXISTING *IDPBC* ENTRY   DBG=IDP  1555
                                                  SA6    A2          REPLACE OLD *IDPBA* WITH NEW                DBG=IDP  1556
                                                  SA4    A1+B1       (X4) = NEW 2ND WORD OF *IDPBC* ENTRY        DBG=IDP  1557
                                                  SX3    X3          (X3) = SNAP COUNT                           DBG=IDP  1558
                                                  BX6    X4+X3                                                   DBG=IDP  1559
                                                  SA6    A3          REPLACE OLD WITH NEW                        DBG=IDP  1560
                                                  EQ     IDP=MN                                                  DBG=IDP  1561
                                                                                                                 DBG=IDP  1562
                                        *         HERE TO LIST ALL BREAKS.                                       DBG=IDP  1563
                                                                                                                 DBG=IDP  1564
                                         ST=BRK13 RJ     LBT         LIST BREAK TABLE                            DBG=IDP  1565
                                                  EQ     IDP=MN                                                  DBG=IDP  1566
                                                                                                                 DBG=IDP  1567
                                                                                                                 DBG=IDP  1568
                                         ST=BRKA  RJ     IDP=        PLUG VALUE                                  DBG=IDP  1569
                                         -        VFD    30/0                                                    DBG=IDP  1570
                                                                                                                 DBG=IDP  1571
                                         ST=BRKB  BSSZ   2           SAVE CELLS                                  DBG=IDP  1572
                                         ST=COD   SPACE  4,8                                                     DBG=IDP  1573
                                        *         HERE TO PROCESS *CODE FWA,LWA,LEN*.                            DBG=IDP  1574
                                                                                                                 DBG=IDP  1575
                                         ST=COD   BSS    0                                                       DBG0002   825
                                                  ZR     X5,ST=COD1  IF EOS ENCOUNTERED                          DBG0002   826
                                                  RJ     PAS         PARSE SUBEXPRESSION-- FWA                   DBG=IDP  1577
                                                  NZ     X3,ST=COD2  IF 1ST EXPRESSION *FWA* NOT NULL            DBG=IDP  1578
                                                                                                                 DBG0002   827
                                         ST=COD1  SA1    IDPPREG                                                 DBG0002   828
                                                                                                                 DBG=IDP  1580
                                         ST=COD2  SX6    X1                                                      DBG=IDP  1581
                                                  SA6    AP=FWA                                                  DBG=IDP  1582
                                                  MX1    0                                                       DBG=IDP  1583
                                                  ZR     X5,ST=COD3  IF FWA FOLLOWED BY EOS                      DBG=IDP  1584
                                                  RJ     PAS         PARSE SUBEXPRESSION-- LWA                   DBG=IDP  1585
                                                                                                                 DBG=IDP  1586
                                         ST=COD3  SX6    X1                                                      DBG=IDP  1587
                                                  SA6    AP=LWA                                                  DBG=IDP  1588
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    42
  
  
                                                  MX1    0                                                       DBG=IDP  1589
                                                  ZR     X5,ST=COD4  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS    DBG=IDP  1590
                                                  RJ     PAS         PARSE SUBEXPRESSION-- LEN                   DBG=IDP  1591
                                                                                                                 DBG=IDP  1592
                                         ST=COD4  SX6    X1                                                      DBG=IDP  1593
                                                  SA6    AP=LEN                                                  DBG=IDP  1594
                                                  SA2    AP=FWA                                                  DBG=IDP  1595
                                                  SA3    A2+B1                                                   DBG=IDP  1596
                                                  SA4    A3+B1                                                   DBG=IDP  1597
                                                  RJ     FLL         CHECK FWA,LWA,LEN                           DBG=IDP  1598
                                                  MI     B2,IDP=ER   IF FWA,LWA,OR LEN IS BAD                    DBG=IDP  1599
                                                                                                                 DBG=IDP  1600
                                        *         HERE TO DEASSEMBLE FROM FWA TO LWA.                            DBG=IDP  1601
                                                                                                                 DBG=IDP  1602
                                         ST=COD5  SA1    AP=FWA                                                  DBG=IDP  1603
                                                  SA2    A1+B1                                                   DBG=IDP  1604
                                                  IX3    X2-X1                                                   DBG=IDP  1605
                                                  SX6    X1+B1                                                   DBG=IDP  1606
                                                  MI     X3,IDP=MN   IF FINISHED                                 DBG=IDP  1607
                                                  SA6    A1                                                      DBG=IDP  1608
                                                  SA5    X1          (A5,X5) = WORD TO DEASSEMBLE                DBG=IDP  1609
                                                  SB4    60          (B4) = POSITION COUNTER                     DBG=IDP  1610
                                                                                                                 DBG=IDP  1611
                                         ST=COD6  RJ     DAZ         DEASSEMBLE INSTRUCTION                      DBG=IDP  1612
                                                  MI     X1,ST=COD5  IF INSTRUCTION FORCED UPPER                 DBG=IDP  1613
                                                  SB4    B4-B5                                                   DBG=IDP  1614
                                                  GT     B4,B0,ST=COD6  IF MORE INSTRUCTIONS TO GO IN THIS WORD  DBG=IDP  1615
                                                  EQ     ST=COD5                                                 DBG=IDP  1616
                                         ST=CON   SPACE  4,8                                                     DBG=IDP  1617
                                        *         HERE TO PROCESS *CONNECT FILE*.                                DBG=IDP  1618
                                                                                                                 DBG=IDP  1619
                                         ST=CON   ZR     X5,IDP=ER   IF EOS ENCOUTNTERED                         DBG0002   829
                                                  SA5    A5+B1                                                   DBG0002   830
                                                  SB4    B0          SET TO *CONNECT*                            DBG0002   831
                                                                                                                 DBG=IDP  1622
                                         ST=CON2  BSS    0                                                       DBG=IDP  1623
                                                                                                                 DBG=IDP  1624
                                         #UFT     IF     DEF,UFT=                                                DBG=IDP  1625
                                                  SB6    =XUFT=      (B6) = FWA OF USER FILE NAME TABLE          DBG=IDP  1626
                                                  MX0    7*CHAR                                                  DBG=IDP  1627
                                                  BX1    X0*X5       (X1) = 0LLFN                                DBG0002   832
                                                  RJ     SKT         SEARCH FOR FILE NAME                        DBG=IDP  1628
                                                  ZR     X2,IDP=ER   IF NO FIND                                  DBG=IDP  1629
                                                  SA1    X2          (A1,X1) = A + C OF 1ST WORD OF FET          DBG=IDP  1630
                                                  SX2    B4          SET TO *CONNECT/DISCONT*                    DBG=IDP  1631
                                                  RJ     CON         CONNECT/DISCONT FILE                        DBG=IDP  1632
                                                                                                                 DBG=IDP  1633
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  DBG=IDP  1634
                                                  MI     X1,IDP=ER   IF *CON* DETECTED ERROR...                  DBG=IDP  1635
                                         #OS3     ENDIF                                                          DBG=IDP  1636
                                         #UFT     ENDIF                                                          DBG=IDP  1637
                                                                                                                 DBG=IDP  1638
                                                  EQ     IDP=MN                                                  DBG=IDP  1639
                                         ST=DPC   SPACE  4,8                                                     DBG0002   833
                                        *         HERE TO PROCESS *DPC FWA,LWA,LEN*.                             DBG0002   834
                                                                                                                 DBG0002   835
                                         ST=DPC   BSS    0                                                       DBG0002   836
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    43
  
  
                                                  ZR     X5,IDP=ER   IF EOS ENCOUNTERED                          DBG0002   837
                                                  RJ     PAS         PARSE SUBEXPRESSION -- FWA                  DBG0002   838
                                                  ZR     X3,IDP=ER   IF 1ST EXPRESSION *FWA* IS NULL             DBG0002   839
                                                  SX6    X1                                                      DBG0002   840
                                                  SA6    AP=FWA                                                  DBG0002   841
                                                  MX1    0                                                       DBG0002   842
                                                  ZR     X5,ST=DPC2  IF FWA FOLLOWED BY EOS                      DBG0002   843
                                                  RJ     PAS         PARSE SUBEXPRESSION -- LWA                  DBG0002   844
                                                                                                                 DBG0002   845
                                         ST=DPC2  SX6    X1                                                      DBG0002   846
                                                  SA6    AP=LWA                                                  DBG0002   847
                                                  MX1    0                                                       DBG0002   848
                                                  ZR     X5,ST=DPC3  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS    DBG0002   849
                                                  RJ     PAS         PARSE SUBEXPRESSION -- LEN                  DBG0002   850
                                                                                                                 DBG0002   851
                                         ST=DPC3  SX6    X1                                                      DBG0002   852
                                                  BX4    X6                                                      DBG0002   853
                                                  SA6    AP=LEN                                                  DBG0002   854
                                                  SA2    AP=FWA                                                  DBG0002   855
                                                  SA3    AP=LWA                                                  DBG0002   856
                                                  RJ     DOD         DUMP CENTRAL MEMORY - OCTAL AND DPC         DBG0002   857
                                                  PL     B2,IDP=MN   IF FWA,LWA,AND LEN OK                       DBG0002   858
                                                  EQ     IDP=ER                                                  DBG0002   859
                                         ST=DSC   SPACE  4,8                                                     DBG=IDP  1640
                                        *         HERE TO PROCESS *DISCONT FILE*.                                DBG=IDP  1641
                                                                                                                 DBG=IDP  1642
                                         ST=DSC   ZR     X5,IDP=ER   IF EOS ENCOUNTERED                          DBG0002   860
                                                  SA5    A5+B1                                                   DBG0002   861
                                                  SB4    B1          SET TO *DISCONT*                            DBG=IDP  1644
                                                  EQ     ST=CON2     PROCESS *DISCONT*...                        DBG=IDP  1645
                                         ST=END   SPACE  4,8                                                     DBG=IDP  1646
                                        *         HERE TO PROCESS *END*.                                         DBG=IDP  1647
                                                                                                                 DBG=IDP  1648
                                         ST=END   BSS    0           ** END **                                   DBG=IDP  1649
                                                  PRIDP  (=C= BYE...=),,L.PRB                                    DBG=IDP  1650
                                                  WRITER =XF.IDO,,RCL                                            DBG=IDP  1651
                                                                                                                 DBG=IDP  1652
                                         ST=ENDW  SA1    IDPPREG     (X1) = PSEUDO P REGISTER                    DBG=IDP  1653
                                                  SA2    IDPPOS      (X2) = POS COUNTER                          DBG=IDP  1654
                                                  SA3    ST=ENDX                                                 DBG=IDP  1655
                                                  SA4    =46000460004600046000B                                  DBG=IDP  1656
                                                  SB4    X2                                                      DBG=IDP  1658
                                                  LX6    X3                                                      DBG=IDP  1659
                                                  SB6    60                                                      DBG=IDP  1660
                                                  SA5    ST=ENDZ     (X5) = *JP B0+0* PLUG                       DBG=IDP  1661
                                                  LE     B4,B0,*+4S15  IF BAD POS COUNTER, SHAZAM...             DBG=IDP  1662
                                                  LT     B4,B6,ST=END2 IF NEXT INSTRUCTION TO XEQ IS NOT UPPER,  DBG=IDP  1663
                                        *                              (I.E.STEP MODE LEFT US IN MIDDLE OF WORD) DBG=IDP  1664
                                                  NZ     X3,ST=END4  IF TO XEQ PREVIOUS CONTENTS OF BREAK ADDR   DBG=IDP  1665
                                        *                              AT *ST=ENDX*                              DBG=IDP  1666
                                                  LX6    X4                                                      DBG=IDP  1667
                                                  EQ     ST=END4                                                 DBG=IDP  1668
                                                                                                                 DBG=IDP  1669
                                         ST=END2  NZ     X3,ST=END3  IF TO XEQ PARTIAL WORD AT *ST=ENDX*         DBG=IDP  1670
                                                  SA3    X1          (X3) = PARTIALLY XEQ WORD AT ((IDPPREG))    DBG=IDP  1671
                                                  SX1    X1+B1       (X1) = RETURN ADDR                          DBG=IDP  1672
                                                                                                                 DBG=IDP  1673
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    44
  
  
                                        *         HERE BECAUSE STEP MODE LEFT US IN THE MIDDLE OF A WORD--       DBG=IDP  1674
                                        *           LEFT JUSTIFY REMAINING INSTRUCTION(S) TO XEQ AND NO-OP FILL. DBG=IDP  1675
                                                                                                                 DBG=IDP  1676
                                         ST=END3  MX0    1                                                       DBG=IDP  1677
                                                  SB7    B6-B4       (B7) = NR OF BITS ALREADY XEQ IN THIS WORD  DBG=IDP  1678
                                                  SB5    B4-B1                                                   DBG=IDP  1679
                                                  LX6    X3,B7       (X6) = INSTRUCTIONS TO XEQ-- LEFT JUSTIFIED DBG=IDP  1680
                                                  AX0    X0,B5       (X0) = EXTRACT MASK FOR INST TO XEQ         DBG=IDP  1681
                                                  BX6    X0*X6                                                   DBG=IDP  1682
                                                  BX4    -X0*X4                                                  DBG=IDP  1683
                                                  BX6    X6+X4       (X6) = INSTRUCTIONS TO XEQ W/ NO-OP FILL    DBG=IDP  1684
                                                                                                                 DBG=IDP  1685
                                        *         HERE TO SET UP *JP B0+RETURN ADDR*.                            DBG=IDP  1686
                                                                                                                 DBG=IDP  1687
                                         ST=END4  SA6    ST=ENDX                                                 DBG=IDP  1688
                                                  LX1    30                                                      DBG=IDP  1690
                                                  BX6    X5+X1       (X6) = 30/JP B0+RETURN ADDR, 30/NO-OP       DBG=IDP  1691
                                                  SA6    ST=ENDY                                                 DBG=IDP  1692
                                                  RJ     RSR=        RESTORE ORIGINAL REGISTERS                  DBG=IDP  1693
                                                                                                                 DBG=IDP  1694
                                         ST=ENDX  BSSZ   1           WORD TO EXECUTE BEFORE EXITING *IDP*        DBG=IDP  1695
                                        *                              IF AN IDP GENERATED BREAK, THEN IS PLUG-  DBG=IDP  1696
                                        *                              GED WITH PREVIOUS CONTENTS OF BREAK ADDR  DBG=IDP  1697
                                        *                              IF AN ASSEMBLED BREAK, THEN IS .ZR.       DBG=IDP  1698
                                        *                              SEE *BRK*.                                DBG=IDP  1699
                                                                                                                 DBG=IDP  1700
                                         ST=ENDY  BSSZ   1           PLUGGED WITH *JP B0+RETURN ADDR*            DBG=IDP  1701
                                                                                                                 DBG=IDP  1702
                                         ST=ENDZ  JP     B0+         PLUG VALUE                                  DBG=IDP  1703
                                         ST=FRZ   SPACE  4,8                                                     DBG0006    22
                                        *         HERE TO PROCESS *FREEZE*.                                      DBG0006    23
                                                                                                                 DBG0006    24
                                         ST=FRZ   BSS    0                                                       DBG0006    25
                                                  SA1    FW.IFR+/IFR/F.FRZ-RA.ORG                                DBG0006    26
                                                  SA2    =0LFRZ                                                  DBG0006    27
                                                  MX3    -18                                                     DBG0006    28
                                                  BX1    -X3*X1      CLEAR OLD LFN                               DBG0006    29
                                                  IX6    X1+X2       MERGE NEW LFN                               DBG0006    30
                                                  SA6    A1                                                      DBG0006    31
                                                  RJ     FRZ         FREEZE INTERACTIVE HOST                     DBG0006    32
                                                  EQ     IDP=MN                                                  DBG0006    33
                                         ST=JP    SPACE  4,8                                                     DBG=IDP  1704
                                        *         HERE TO PROCESS *JUMP ADDR*.                                   DBG=IDP  1705
                                                                                                                 DBG=IDP  1706
                                         ST=JP    BSS    0                                                       DBG0002   862
                                                  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          DBG0002   863
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  DBG=IDP  1708
                                                  ZR     X3,IDP=MN   IF ADDR IS NULL                             DBG=IDP  1709
                                                  SB2    X1                                                      DBG=IDP  1710
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1711
                                                  MI     B2,IDP.ER   IF ADDR IS BAD                              DBG=IDP  1712
                                                  SA1    =46000460004600046000B                                  DBG=IDP  1713
                                                  SX7    60                                                      DBG=IDP  1714
                                                  SA7    IDPPOS                                                  DBG=IDP  1715
                                                  SX6    B2                                                      DBG=IDP  1716
                                                  BX7    X1                                                      DBG=IDP  1717
                                                  SA6    IDPPREG                                                 DBG=IDP  1718
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    45
  
  
                                                  SA7    ST=ENDX                                                 DBG=IDP  1719
                                                  EQ     ST=END                                                  DBG=IDP  1720
                                         ST=OUT   SPACE  4,8                                                     DBG0002   864
                                        **        HERE TO PROCESS *OUTPUT I,B*.                                  DBG0002   865
                                                                                                                 DBG0002   866
                                         ST=OUT   ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          DBG0002   867
                                                  SB6    IDPKOUT     (B6) = FWA OF *OUTPUT* OPTIONS KEYWORD TBL  DBG0002   868
                                                  RJ     POL         PROCESS OPTIONS LIST ITEM                   DBG0002   869
                                                  SA1    B6+B7                                                   DBG0002   870
                                                  ZR     X3,ST=OUT   IF NULL PARAMETER, IGNORE...                DBG0002   871
                                                  SB5    X1          (B5) = OPTIONS PROCESSOR ADDR               DBG0002   872
                                                  MX0    1                                                       DBG0002   873
                                                  SA2    IDPFLG                                                  DBG0002   874
                                                  BX6    -X6*X0      (X6) = +0 IF -OPTION, OR 1S59 IF +OPTION    DBG0002   875
                                                  JP     B5+                                                     DBG0002   876
                                                                                                                 DBG0002   877
                                        *         HERE IF *OUTPUT I* OR *OUTPUT -I*.                             DBG0002   878
                                                                                                                 DBG0002   879
                                         ST=OUT2  LX0    IDF.IDOP-59                                             DBG0002   880
                                                  BX2    -X0*X2      CLEAR EXISTING FIELD                        DBG0002   881
                                                  LX6    IDF.IDOP-59                                             DBG0002   882
                                                  BX6    X2+X6                                                   DBG0002   883
                                                  SA6    A2                                                      DBG0002   884
                                                  EQ     ST=OUT                                                  DBG0002   885
                                                                                                                 DBG0002   886
                                        *         HERE IF *OUTPUT B* OR *OUTPUT -B*.                             DBG0002   887
                                                                                                                 DBG0002   888
                                         ST=OUT3  LX0    IDF.BDOP-59                                             DBG0002   889
                                                  BX2    -X0*X2      CLEAR EXISTING FIELD                        DBG0002   890
                                                  LX6    IDF.BDOP-59                                             DBG0002   891
                                                  BX6    X2+X6                                                   DBG0002   892
                                                  SA6    A2                                                      DBG0002   893
                                                  EQ     ST=OUT                                                  DBG0002   894
                                                                                                                 DBG0002   895
                                        *         HERE IF *OUTPUT BE* OR *OUTPUT -BE*.                           DBG0002   896
                                                                                                                 DBG0002   897
                                         ST=OUT4  LX0    IDF.BKOP-59                                             DBG0002   898
                                                  BX2    -X0*X2      CLEAR EXISTING FIELD                        DBG0002   899
                                                  LX6    IDF.BKOP-59                                             DBG0002   900
                                                  BX6    X2+X6       MERGE NEW BKO                               DBG0002   901
                                                  SA6    A2                                                      DBG0002   902
                                                  EQ     ST=OUT                                                  DBG0002   903
                                                                                                                 DBG0002   904
                                        *         HERE IF *OUTPUT IE* OR *OUTPUT -IE*.                           DBG0002   905
                                                                                                                 DBG0002   906
                                         ST=OUT5  LX0    IDF.IKOP-59                                             DBG0002   907
                                                  BX2    -X0*X2      CLEAR EXISTING FIELD                        DBG0002   908
                                                  LX6    IDF.IKOP-59                                             DBG0002   909
                                                  BX6    X2+X6       MERGE NEW IKO                               DBG0002   910
                                                  SA6    A2                                                      DBG0002   911
                                                  EQ     ST=OUT                                                  DBG0002   912
                                         ST=REG   SPACE  4,8                                                     DBG=IDP  1721
                                        *         HERE TO PROCESS *REG R1,R2,...,RN*.                            DBG=IDP  1722
                                                                                                                 DBG=IDP  1723
                                         ST=REG   BSS    0                                                       DBG0002   913
                                                  SA0    A5          INITIALIZE (A0) = ADDR OF CURRENT TOKEN     DBG=IDP  1725
                                                  NZ     X5,ST=REG2  IF *REG* NOT FOLLOWED BY EOS                DBG0002   914
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    46
  
  
                                                  RJ     DAR         DUMP ALL REGISTERS                          DBG=IDP  1727
                                                  EQ     IDP=MN                                                  DBG=IDP  1728
                                                                                                                 DBG=IDP  1729
                                        *         HERE FOR SELECTED REGISTER DUMP.                               DBG=IDP  1730
                                                                                                                 DBG=IDP  1731
                                         ST=REG2  SA0    A0+B1                                                   DBG=IDP  1732
                                                  SA5    A0                                                      DBG=IDP  1733
                                                  ZR     X5,IDP=MN   IF AN EOS ENCOUNTERED                       DBG=IDP  1735
                                                                                                                 DBG=IDP  1736
                                                  SX6    X5-O.SEP                                                DBG0002   915
                                                  SX7    X5-O.CONS                                               DBG=IDP  1738
                                                  SA4    IDP0TR                                                  DBG=IDP  1739
                                                  ZR     X6,ST=REG2  IF SEPARATOR TOKEN                          DBG=IDP  1740
                                                  ZR     X7,ST=REG4  IF CONSTANT TOKEN                           DBG=IDP  1741
                                                                                                                 DBG=IDP  1742
                                        *         HERE IF A NAME TOKEN, CHECK FOR REGISTER NAME.                 DBG=IDP  1743
                                                                                                                 DBG=IDP  1744
                                                  LX5    CHAR                                                    DBG=IDP  1745
                                                  MX0    -CHAR                                                   DBG=IDP  1746
                                                  BX6    -X0*X5      (X6) = REGISTER TYPE (BAX)                  DBG=IDP  1747
                                                  SX4    B0          (X4) = 0TR, WHERE T=0 (B REG)               DBG=IDP  1748
                                                  SX1    X6-1RB                                                  DBG=IDP  1749
                                                  SX2    X6-1RA                                                  DBG=IDP  1750
                                                  SX3    X6-1RX                                                  DBG=IDP  1751
                                                  ZR     X1,ST=REG4  IF B REGISTER                               DBG=IDP  1752
                                                  SX4    010B        (X4) = 0TR, WHERE T=1 (A REG)               DBG=IDP  1753
                                                  ZR     X2,ST=REG4  IF A REGISTER                               DBG=IDP  1754
                                                  SX4    020B        (X4) = 0TR, WHERE T=2 (X REG)               DBG=IDP  1755
                                                  ZR     X3,ST=REG4  IF X REGISTER                               DBG=IDP  1756
                                                  EQ     IDP=ER                                                  DBG=IDP  1757
                                                                                                                 DBG=IDP  1758
                                         ST=REG4  LX5    CHAR                                                    DBG=IDP  1759
                                                  MX0    -CHAR                                                   DBG=IDP  1760
                                                  BX6    -X0*X5                                                  DBG=IDP  1761
                                                  MX1    1R7-1R0+1                                               DBG=IDP  1762
                                                  LX1    -1R0        (X1) = (0-7) SHIFT MASK                     DBG=IDP  1763
                                                  SB3    X6          (B3) = REGISTER NR (0-7)                    DBG=IDP  1764
                                                  LX7    X1,B3                                                   DBG=IDP  1765
                                                  LX5    5*CHAR                                                  DBG=IDP  1766
                                                  PL     X7,IDP=ER   IF NOT (0-7), ERROR...                      DBG=IDP  1767
                                                  MX0    -5*CHAR                                                 DBG=IDP  1768
                                                  BX7    -X0*X5                                                  DBG=IDP  1769
                                                  NZ     X7,IDP=ER   IF REST OF CHARS NON-ZERO, NOT A REGISTER   DBG=IDP  1770
                                                  SB6    B3-1R0      (B6) = REGISTER NR IN BINARY                DBG=IDP  1771
                                                  MX0    60-3                                                    DBG=IDP  1772
                                                  BX7    X0*X4       STRIP OLD REGISTER NR                       DBG=IDP  1773
                                                  SX6    X7+B6       (X6) = NEW 0TR                              DBG=IDP  1774
                                                  SB4    X6                                                      DBG=IDP  1775
                                                  SA6    IDP0TR                                                  DBG=IDP  1776
                                                  SB7    020B                                                    DBG=IDP  1777
                                                  GE     B4,B7,ST=REG5     IF DUMPING X REGISTER                 DBG=IDP  1778
                                                  RJ     DAB         DUMP -A- OR -B- REGISTER                    DBG=IDP  1779
                                                  EQ     ST=REG2                                                 DBG=IDP  1780
                                                                                                                 DBG=IDP  1781
                                         ST=REG5  RJ     DUX         DUMP -X- REGISTER                           DBG=IDP  1782
                                                  EQ     ST=REG2                                                 DBG=IDP  1783
                                         ST=RES   SPACE  4,8                                                     DBG=IDP  1784
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    47
  
  
                                        *         HERE TO PROCESS *RESET*.                                       DBG=IDP  1785
                                                                                                                 DBG=IDP  1786
                                         ST=RES   SB6    IDPBA                                                   DBG=IDP  1787
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- BREAK ADDRESSES        DBG=IDP  1788
                                                  SB6    IDPSET                                                  DBG=IDP  1789
                                                  RJ     CLZ         CLEAR *IDP* TABLE -- SET NAMES              DBG=IDP  1790
                                                  RJ     IST         (RE)INITIALIZE DEFAULT *SET* NAMES          DBG=IDP  1791
                                                  EQ     IDP=MN                                                  DBG=IDP  1792
                                         ST=SET   SPACE  4,8                                                     DBG=IDP  1793
                                        *         HERE TO PROCESS *SET NAME,ADDR*.                               DBG=IDP  1794
                                                                                                                 DBG=IDP  1795
                                         ST=SET   ZR     X5,ST=SET3  IF EOS ENCOUNTERED                          DBG0002   916
                                                  SA5    A5+B1       (X5) = 42/0LNAME,18/O.VAR                   DBG0002   917
                                                  SX6    X5-O.VAR                                                DBG=IDP  1797
                                                  NZ     X6,IDP=ER   IF NOT A NAME TOKEN                         DBG0002   918
                                                  MX0    7*CHAR                                                  DBG=IDP  1799
                                                  BX7    X0*X5                                                   DBG=IDP  1800
                                                  SA7    IDPNAM      SAVE 0LNAME                                 DBG=IDP  1801
                                                  SA5    A5+B1                                                   DBG=IDP  1802
                                                  RJ     PAS         PARSE SUBEXPRESSION -- ADDR                 DBG=IDP  1803
                                                  MX0    7*CHAR                                                  DBG=IDP  1804
                                                  SB6    IDPSET      (B6) = FWA OF *SET* TABLE                   DBG=IDP  1805
                                                  BX4    -X0*X1      (X4) = 42/0,18/VALUE OF *NAME*              DBG=IDP  1806
                                                  SA1    IDPNAM                                                  DBG=IDP  1807
                                                  RJ     SKT         SEARCH *SET* TABLE FOR NAME                 DBG=IDP  1808
                                                  IX6    X1+X4       (X6) = 42/0LNAME, 18/VALUE OF NAME          DBG=IDP  1809
                                                  ZR     X2,ST=SET2  IF NO FIND                                  DBG=IDP  1810
                                                  SA6    A2                                                      DBG=IDP  1811
                                                  EQ     IDP=MN                                                  DBG=IDP  1812
                                                                                                                 DBG=IDP  1813
                                         ST=SET2  RJ     ADZ         ADD A WORD TO IDP TABLE                     DBG=IDP  1814
                                                  EQ     IDP=MN                                                  DBG=IDP  1815
                                                                                                                 DBG=IDP  1816
                                        *         HERE TO LIST *SET* TABLE.                                      DBG=IDP  1817
                                                                                                                 DBG=IDP  1818
                                         ST=SET3  SA5    IDPSET                                                  DBG=IDP  1819
                                                  RJ     LST         LIST SET TABLE                              DBG=IDP  1820
                                                  EQ     IDP=MN                                                  DBG=IDP  1821
                                         ST=SNP   SPACE  4,8                                                     DBG=IDP  1822
                                        *         HERE TO PROCESS *SNAP FWA,LWA,LEN*.                            DBG=IDP  1823
                                                                                                                 DBG=IDP  1824
                                         ST=SNP   BSS    0                                                       DBG0002   919
                                                  ZR     X5,IDP=ER   IF EOS ENCOUNTERED                          DBG0002   920
                                                  RJ     PAS         PARSE SUBEXPRESSION -- FWA                  DBG=IDP  1826
                                                  ZR     X3,IDP.ER   IF 1ST EXPRESSION *FWA* IS NULL             DBG=IDP  1827
                                                  SX6    X1                                                      DBG=IDP  1828
                                                  SA6    AP=FWA                                                  DBG=IDP  1829
                                                  MX1    0                                                       DBG=IDP  1830
                                                  ZR     X5,ST=SNP2  IF FWA FOLLOWED BY EOS                      DBG=IDP  1831
                                                  RJ     PAS         PARSE SUBEXPRESSION -- LWA                  DBG=IDP  1832
                                                                                                                 DBG=IDP  1833
                                         ST=SNP2  SX6    X1                                                      DBG=IDP  1834
                                                  SA6    AP=LWA                                                  DBG=IDP  1835
                                                  MX1    0                                                       DBG=IDP  1836
                                                  ZR     X5,ST=SNP3  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS    DBG=IDP  1837
                                                  RJ     PAS         PARSE SUBEXPRESSION -- LEN                  DBG=IDP  1838
                                                                                                                 DBG=IDP  1839
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    48
  
  
                                         ST=SNP3  SX6    X1                                                      DBG=IDP  1840
                                                  BX4    X6                                                      DBG=IDP  1841
                                                  SA6    AP=LEN                                                  DBG=IDP  1842
                                                  SA2    AP=FWA                                                  DBG=IDP  1843
                                                  SA3    AP=LWA                                                  DBG=IDP  1844
                                                  RJ     DCM         DUMP CENTRAL MEMORY                         DBG=IDP  1845
                                                  PL     B2,IDP=MN   IF FWA,LWA,AND LEN OK                       DBG=IDP  1846
                                                  EQ     IDP=ER                                                  DBG=IDP  1847
                                         ST=STO   SPACE  4,8                                                     DBG=IDP  1848
                                        *         HERE TO PROCESS *STORE ADDR,C1,C2,C3,C4*.                      DBG=IDP  1849
                                                                                                                 DBG=IDP  1850
                                         ST=STO   BSS    0                                                       DBG0002   921
                                                  ZR     X5,IDP=ER   IF EOS ENCOUNTERED                          DBG0002   922
                                                  RJ     PAS         PARSE SUBEXPRESSION -- ADDR TO STORE        DBG=IDP  1852
                                                  ZR     X3,IDP=ER   IF 1ST EXPRESSION *ADDR* IS NULL            DBG=IDP  1853
                                                  SX6    X1                                                      DBG=IDP  1854
                                                  SB2    X1                                                      DBG=IDP  1855
                                                  SA6    IDPSTA      SAVE STORE ADDR                             DBG=IDP  1856
                                                  RJ     CHK         CHECK CM ADDRESS -- STORE ADDR              DBG=IDP  1857
                                                  MI     B2,IDP=ER   IF ADDR IS BAD                              DBG=IDP  1858
                                                  MX6    0                                                       DBG=IDP  1859
                                                  SA6    A6+B1       CLEAR (IDPSTC) = NEW VALUE TO STORE         DBG=IDP  1860
                                                  SA6    A6+B1       CLEAR (IDPSTM) = NULL PARAMETER MASK        DBG=IDP  1861
                                                  ZR     X5,ST=STO4  IF STORE ADDR FOLLOWED BY EOS               DBG=IDP  1862
                                                                                                                 DBG=IDP  1863
                                         ST=STO2  RJ     PAS         PARSE SUBEXPRESSION -- C-N-                 DBG=IDP  1864
                                                  SA2    IDPSTC      (X2) = CURRENT VALUE TO BE STORED           DBG=IDP  1865
                                                  SA4    A2+B1       (X4) = CURRENT NULL PARAMETER MASK          DBG=IDP  1866
                                                  MX0    -15                                                     DBG=IDP  1867
                                                  LX2    15                                                      DBG=IDP  1868
                                                  LX4    15                                                      DBG=IDP  1869
                                                  BX6    X2+X1                                                   DBG=IDP  1870
                                                  LX7    X4                                                      DBG=IDP  1871
                                                  SA6    A2                                                      DBG=IDP  1872
                                                  NZ     X3,ST=STO3  IF C-N- NOT NULL                            DBG=IDP  1873
                                                  BX7    -X0+X4                                                  DBG=IDP  1874
                                                                                                                 DBG=IDP  1875
                                         ST=STO3  SA7    A4                                                      DBG=IDP  1876
                                                  NZ     X5,ST=STO2  IF NOT FINISHED ASSEMBLING STORE VALUE      DBG=IDP  1877
                                                                                                                 DBG=IDP  1878
                                        *         HERE IF FINISHED ASSEMBLING STORE VALUE.                       DBG=IDP  1879
                                                                                                                 DBG=IDP  1880
                                         ST=STO4  SA1    IDPSTA      (X1) = STORE ADDR                           DBG=IDP  1881
                                                  SA2    A1+B1       (X2) = NEW ASSEMBLED STORE VALUE            DBG=IDP  1882
                                                  SA3    A2+B1       (X3) = NULL PARAMETER MASK                  DBG=IDP  1883
                                                  SA1    X1          (X1) = OLD CONTENTS OF STORE ADDR           DBG=IDP  1884
                                                  BX6    X3*X1                                                   DBG=IDP  1885
                                                  BX7    X2+X6       (X7) = NEW CONTENTS OF STORE ADDR           DBG=IDP  1886
                                                  SA7    A1          NEW REPLACES OLD                            DBG=IDP  1887
                                                  SA7    A2                                                      DBG=IDP  1888
                                                  RJ     =XWOD       CONVERT A WORD OF BINARY TO OCTAL DPC--OLD  DBG=IDP  1889
                                                  SA6    IDPMSG4+1                                               DBG=IDP  1890
                                                  SA7    A6+B1                                                   DBG=IDP  1891
                                                  SA1    IDPSTC      (X1) = NEW CONTENTS OF STORE ADDR           DBG=IDP  1892
                                                  RJ     =XWOD       CONVERT A WORD OF BINARY TO OCTAL DPC--NEW  DBG=IDP  1893
                                                  SA6    IDPMSG5+1                                               DBG=IDP  1894
                                                  SA7    A6+B1                                                   DBG=IDP  1895
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    49
  
  
                                                  PRIDP  IDPMSG4,4                                               DBG=IDP  1896
                                                  PRIDP  IDPMSG5,4                                               DBG=IDP  1897
                                                  EQ     IDP=MN                                                  DBG=IDP  1898
                                         ST=STP   SPACE  4,8                                                     DBG=IDP  1899
                                        *         HERE TO PROCESS *STEP L,RJ*,                                   DBG=IDP  1900
                                        *                      OR *STPL ADDR1,L,RJ* FORM,                        DBG=IDP  1901
                                        *                      OR *STEQ ADDR1,ADDR2,L,RJ* FORM.                  DBG=IDP  1902
                                                                                                                 DBG=IDP  1903
                                         ST=STP   SX6    B7+IDPKEY-IDPKST  (X6) = STEP TYPE CODE (XTC)           DBG=IDP  1904
                                                  SA6    IDPXTC                                                  DBG=IDP  1905
                                                  ZR     X6,ST=STP5  IF *STEP L,RJ* FORM                         DBG=IDP  1907
                                                  ZR     X5,ST=STP1  IF EOS ENCOUNTERED                          DBG0002   923
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR1                 DBG=IDP  1908
                                                  NZ     X3,ST=STP2  IF ADDR1 NOT NULL                           DBG0002   924
                                                                                                                 DBG0002   925
                                         ST=STP1  SX1    0           (X1) = DEFAULT ADDR1                        DBG0002   926
                                                                                                                 DBG=IDP  1911
                                         ST=STP2  SB2    X1                                                      DBG=IDP  1912
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1913
                                                  MI     B2,IDP=ER   IF ADDR1 IS BAD                             DBG=IDP  1914
                                                  SX6    B2                                                      DBG=IDP  1915
                                                  MX3    0                                                       DBG=IDP  1916
                                                  SA6    IDPXA1                                                  DBG=IDP  1917
                                                  SA2    IDPXTC                                                  DBG=IDP  1918
                                                  SX7    X2-XTC=EQ                                               DBG=IDP  1919
                                                  MI     X7,ST=STP3  IF THIS IS *STPL ADDR1,L,RJ* FORM           DBG=IDP  1920
                                                                                                                 DBG=IDP  1923
                                        *         ASSEMBLE ADDR2.                                                DBG=IDP  1924
                                                                                                                 DBG=IDP  1925
                                                  ZR     X5,ST=STP3  IF ADDR1 FOLLOWED BY EOS                    DBG=IDP  1926
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR2                 DBG=IDP  1927
                                                                                                                 DBG=IDP  1928
                                         ST=STP3  NZ     X3,ST=STP4  IF ADDR2 NOT NULL                           DBG=IDP  1929
                                                  SA1    IDPXA1      (X1) = DEFAULT ADDR2                        DBG=IDP  1930
                                                                                                                 DBG=IDP  1931
                                         ST=STP4  SB2    X1                                                      DBG=IDP  1932
                                                  SX6    B2                                                      DBG=IDP  1933
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  1934
                                                  MI     B2,IDP=ER   IF ADDR2 IS BAD                             DBG=IDP  1935
                                                  SA6    IDPXA2                                                  DBG=IDP  1936
                                                                                                                 DBG=IDP  1937
                                        *         HERE TO PROCESS *L,RJ* OPTIONS LIST.                           DBG=IDP  1938
                                                                                                                 DBG=IDP  1939
                                         ST=STP5  ZR     X5,ST=STP6  IF EOS ENCOUNTERED                          DBG=IDP  1940
                                                  SB6    IDPKSTO     (B6) = FWA OF STEP OPTIONS KEYWORD TABLE    DBG=IDP  1941
                                                  RJ     POL         PROCESS OPTIONS LIST                        DBG=IDP  1942
                                                  ZR     X3,ST=STP5  IF NULL PARAMETER                           DBG=IDP  1943
                                                  SA7    IDPXOP+B7                                               DBG=IDP  1944
                                                  EQ     ST=STP5                                                 DBG=IDP  1945
                                                                                                                 DBG=IDP  1946
                                        *         HERE TO SET UP FOR ACTUAL STEP.                                DBG=IDP  1947
                                                                                                                 DBG=IDP  1948
                                         ST=STP6  SA1    IDPXTC                                                  DBG=IDP  1949
                                                  SA2    IDPXA2                                                  DBG=IDP  1950
                                                  MX6    0                                                       DBG=IDP  1951
                                                  SX3    X1-XTC=NR                                               DBG=IDP  1952
                                                  BX7    X2                                                      DBG=IDP  1953
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    50
  
  
                                                  SA6    IDPXRJ      SET TO *AT LEVEL 0 NOW*                     DBG=IDP  1954
                                                  NZ     X3,ST=STP7  IF NOT *STNR NR,L,RJ*                       DBG=IDP  1955
                                                  SA7    IDPXA1      (RE)SET STEP COUNT                          DBG=IDP  1956
                                                                                                                 DBG=IDP  1957
                                         ST=STP7  SA1    IDPXOL      (X1) = /L/ OPTION FLAG                      DBG=IDP  1958
                                                  SA2    A1+B1       (X2) = /RJ/ OPTION FLAG                     DBG=IDP  1959
                                                  SX6    B1          SET TO *LIST ON*                            DBG=IDP  1960
                                                  SA3    IDPXRJ                                                  DBG=IDP  1961
                                                  NZ     X2,ST=STP7A IF /RJ/ TRACING ON                          DBG=IDP  1962
                                                  ZR     X3,ST=STP7A IF AT LEVEL 0 (I.E. NO ACTIVE *RJ*)         DBG=IDP  1963
                                                  SX6    B0          SET TO *LIST OFF*                           DBG=IDP  1964
                                                                                                                 DBG=IDP  1965
                                         ST=STP7A BX7    X6*X1                                                   DBG=IDP  1966
                                                  SA7    IDPXLST                                                 DBG=IDP  1967
                                                                                                                 DBG=IDP  1968
                                        *         HERE TO CHECK STEP CONDITIONS.                                 DBG=IDP  1969
                                                                                                                 DBG=IDP  1970
                                         ST=STP8  SA3    IDPXTC      (X3) = STEP TYPE CODE                       DBG=IDP  1971
                                                  SA1    IDPXA1      (X1) = A1                                   DBG=IDP  1972
                                                  SA2    A1+B1       (X2) = A2                                   DBG=IDP  1973
                                                  SB5    X3                                                      DBG=IDP  1974
                                                  SX6    X3-XTC=NR                                               DBG=IDP  1975
                                                  SX0    X3-XTC=AR                                               DBG=IDP  1976
                                                  SX7    X3-XTC=RNG                                              DBG=IDP  1977
                                                  ZR     X3,ST=STP9  IF *STEP L,RJ*                              DBG=IDP  1978
                                                  ZR     X6,ST=STP10 IF *STNR NR,L,RJ*                           DBG=IDP  1979
                                                  ZR     X0,ST=STP9  IF *STAR ADDR1,ADDR2,L,RJ*                  DBG=IDP  1980
                                                  ZR     X7,ST=STP12 IF *STRANGE ADDR1,ADDR2,L,RJ*               DBG=IDP  1981
                                                                                                                 DBG=IDP  1982
                                                  SA1    X1          (X1) = C1                                   DBG=IDP  1983
                                                  SA2    X2          (X2) = C2                                   DBG=IDP  1984
                                                  RJ     CBC         CHECK STEP CONDITION                        DBG=IDP  1985
                                                  ZR     B6,IDP=MN   IF CONDITION NOT SATISFIED                  DBG=IDP  1986
                                                                                                                 DBG=IDP  1987
                                         ST=STP9  RJ     STP         STEP ONE INSTRUCTION                        DBG=IDP  1988
                                                  SA1    IDPXTC                                                  DBG=IDP  1989
                                                  SA2    IDPXRJ                                                  DBG=IDP  1990
                                                  SA3    IDPXORJ                                                 DBG=IDP  1991
                                                  SX6    X1-XTC=AR                                               DBG=IDP  1992
                                                  ZR     X6,ST=STP9A IF *STAR ADDR1,ADDR2,L,RJ*                  DBG=IDP  1993
                                                  NZ     X1,ST=STP7  IF NOT *STEP L,RJ*                          DBG=IDP  1994
                                                                                                                 DBG=IDP  1995
                                        *         HERE IF *STEP L,RJ*.                                           DBG=IDP  1996
                                                                                                                 DBG=IDP  1997
                                                  NZ     X3,IDP=MN   IF /RJ/ SELECTED                            DBG=IDP  1998
                                                  ZR     X2,IDP=MN   IF AT LEVEL 0                               DBG=IDP  1999
                                                  EQ     ST=STP7                                                 DBG=IDP  2000
                                                                                                                 DBG=IDP  2001
                                        *         HERE TO PROCESS *STAR ADDR1,ADDR2,L,RJ*.                       DBG=IDP  2002
                                                                                                                 DBG=IDP  2003
                                         ST=STP9A SA1    IDPXAR                                                  DBG=IDP  2004
                                                  SA2    IDPXA1                                                  DBG=IDP  2005
                                                  SA3    IDPXA2                                                  DBG=IDP  2006
                                                  SA4    IDPPREG                                                 DBG=IDP  2007
                                                  IX6    X1-X2                                                   DBG=IDP  2008
                                                  IX7    X3-X1                                                   DBG=IDP  2009
                                                  MI     X6,ST=STP7  IF ADDR BELOW LOWER LIMIT                   DBG=IDP  2010
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    51
  
  
                                                  MI     X7,ST=STP7  IF ADDR ABOVE UPPER LIMIT                   DBG=IDP  2011
                                                  EQ     IDP=MN                                                  DBG=IDP  2012
                                                                                                                 DBG=IDP  2013
                                        *         HERE TO PROCESS *STNR NR,L,RJ*.                                DBG=IDP  2014
                                                                                                                 DBG=IDP  2015
                                         ST=STP10 SA2    IDPXORJ                                                 DBG=IDP  2016
                                                  SA3    IDPXRJ                                                  DBG=IDP  2017
                                                  SX6    X1-1                                                    DBG=IDP  2018
                                                  NZ     X2,ST=STP11 IF /RJ/ SELECTED                            DBG=IDP  2019
                                                  NZ     X3,ST=STP9  IF NOT AT LEVEL 0                           DBG=IDP  2020
                                                                                                                 DBG=IDP  2021
                                         ST=STP11 MI     X6,IDP=MN   IF NO MORE INSTRUCTIONS TO STEP             DBG=IDP  2022
                                                  SA6    A1                                                      DBG=IDP  2023
                                                  EQ     ST=STP9                                                 DBG=IDP  2024
                                                                                                                 DBG=IDP  2025
                                        *         HERE TO PROCESS *STRANGE ADDR1,ADDR2,L,RJ*.                    DBG=IDP  2026
                                                                                                                 DBG=IDP  2027
                                         ST=STP12 SA4    IDPPREG                                                 DBG=IDP  2028
                                                  IX6    X4-X1                                                   DBG=IDP  2029
                                                  IX7    X2-X4                                                   DBG=IDP  2030
                                                  MI     X6,IDP=MN   IF P BELOW LOWER RANGE                      DBG=IDP  2031
                                                  MI     X7,IDP=MN   IF P ABOVE UPPER RANGE                      DBG=IDP  2032
                                                  EQ     ST=STP9                                                 DBG=IDP  2033
                                         ST=UBK   SPACE  4,8                                                     DBG=IDP  2034
                                        *         HERE TO PROCESS *UNBREAK ADDR1,...,ADDRN*.                     DBG0002   927
                                                                                                                 DBG=IDP  2036
                                         ST=UBK   BSS    0                                                       DBG0002   928
                                                  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          DBG0002   929
                                                  RJ     PAS         PARSE SUBEXPRESSION-- ADDR                  DBG=IDP  2038
                                                  ZR     X3,ST=UBK   IF ADDR IS NULL                             DBG0002   930
                                                  SB6    IDPBA                                                   DBG=IDP  2040
                                                  MX0    -18                                                     DBG=IDP  2041
                                                  BX0    -X0                                                     DBG=IDP  2042
                                                  RJ     SKT         SEARCH FOR *ADDR*                           DBG=IDP  2043
                                                  ZR     X2,IDP=ER   IF NO FIND                                  DBG0002   931
                                                  SB6    B7+B7                                                   DBG=IDP  2045
                                                  SA4    IDPBC+B6                                                DBG=IDP  2046
                                                  MX6    -1                                                      DBG=IDP  2047
                                                  BX7    X4                                                      DBG=IDP  2048
                                                  SA6    A2          SET TO *THIS ENTRY IS AVAILABLE*            DBG=IDP  2049
                                                  SA7    X2          RESTORE PREVIOUS CONTENTS OF BREAK ADDR     DBG=IDP  2050
                                                  EQ     ST=UBK      CONTINUE...                                 DBG0002   932
                                         ST=UST   SPACE  4,8                                                     DBG=IDP  2052
                                        *         HERE TO PROCESS *UNSET NAME1,...,NAMEN*.                       DBG=IDP  2053
                                                                                                                 DBG=IDP  2054
                                         ST=UST   BSS    0                                                       DBG0002   933
                                                                                                                 DBG=IDP  2056
                                         ST=UST2  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                          DBG0002   934
                                                  SA5    A5+B1                                                   DBG0002   935
                                                  NO                                                             DBG=IDP  2058
                                                  SX6    X5-O.VAR                                                DBG=IDP  2060
                                                  NZ     X6,ST=UST2  IF NOT A NAME TOKEN                         DBG=IDP  2061
                                                  SB6    IDPSET                                                  DBG=IDP  2062
                                                  MX0    7*CHAR                                                  DBG=IDP  2063
                                                  BX1    X5                                                      DBG=IDP  2064
                                                  RJ     SKT         SEARCH FOR NAME                             DBG=IDP  2065
                                                  ZR     X2,ST=UST2  IF NO FIND                                  DBG=IDP  2066
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    52
  
  
                                                  SX6    -B1                                                     DBG=IDP  2067
                                                  SA6    A2          SET TO *THIS ENTRY IS AVAILABLE*            DBG=IDP  2068
                                                  EQ     ST=UST2                                                 DBG=IDP  2069
                                         ST=WHR   SPACE  4,8                                                     DBG=IDP  2070
                                        *         HERE TO PROCESS *WHERE ADDR1,...,ADDRN*.                       DBG=IDP  2071
                                                                                                                 DBG=IDP  2072
                                         ST=WHR   BSS    0                                                       DBG0002   936
                                                  ZR     X5,ST=WHR2A IF EOS ENCOUNTERED                          DBG0002   937
                                                                                                                 DBG=IDP  2074
                                         ST=WHR2  RJ     PAS         PARSE SUBEXPRESSION                         DBG=IDP  2075
                                                  NZ     X3,ST=WHR3  IF ADDR NOT NULL                            DBG=IDP  2076
                                                                                                                 DBG0002   938
                                         ST=WHR2A SA1    IDPPREG                                                 DBG0002   939
                                                                                                                 DBG=IDP  2078
                                         ST=WHR3  MX0    -18                                                     DBG=IDP  2079
                                                  BX1    -X0*X1                                                  DBG=IDP  2080
                                                  LX0    X1          SAVE (X1) = ADDR                            DBG=IDP  2081
                                                  RJ     COD         CONVERT BINARY TO OCTAL DPC                 DBG=IDP  2082
                                                  LX6    9*CHAR-6*CHAR                                           DBG=IDP  2083
                                                  BX1    X0                                                      DBG=IDP  2084
                                                  SA6    SNAPLNE                                                 DBG=IDP  2085
                                                                                                                 DBG=IDP  2086
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  2087
                                                  SB7    ST=WHR4     (B7) = RETURN ADDRESS FOR *FRA=*            DBG=IDP  2088
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  2089
                                                                                                                 DBG=IDP  2090
                                         ST=WHR4  SA6    A6+B1                                                   DBG=IDP  2091
                                                  SA7    A6+B1                                                   DBG=IDP  2092
                                                                                                                 DBG=IDP  2093
                                         #FRA     ELSE                                                           DBG=IDP  2094
                                                  MX6    0                                                       DBG=IDP  2095
                                                  SA6    A6+B1       MARK EOL                                    DBG=IDP  2096
                                         #FRA     ENDIF                                                          DBG=IDP  2097
                                                                                                                 DBG=IDP  2098
                                                  PRIDP  SNAPLNE                                                 DBG=IDP  2099
                                                  NZ     X5,ST=WHR2  IF NOT EOS TOKEN                            DBG=IDP  2100
                                                  EQ     IDP=MN                                                  DBG=IDP  2101
                                         ST=XEQ   SPACE  4,8                                                     DBG=IDP  2102
                                        *         HERE TO PROCESS *XEQ*.                                         DBG=IDP  2103
                                                                                                                 DBG=IDP  2104
                                         ST=XEQ   =      ST=STP6                                                 DBG=IDP  2105
                                         ST=XFR   SPACE  4,8                                                     DBG0002   940
                                        *         HERE TO PROCESS *XFER NR*.                                     DBG0002   941
                                                                                                                 DBG0002   942
                                         ST=XFR   ZR     X5,ST=XFR1  IF EOS ENCOUNTERED                          DBG0002   943
                                                  RJ     PAS         PARSE SUBEXPRESSION -- NR                   DBG0002   944
                                                  NZ     X3,ST=XFR2  IF NR NOT NULL                              DBG0002   945
                                                                                                                 DBG0002   946
                                         ST=XFR1  SX6    L.XFT       (X6) = DEFAULT NR = ALL ENTRIES             DBG0002   947
                                                                                                                 DBG0002   948
                                         ST=XFR2  RJ     LXT         LIST XFER TABLE                             DBG0002   949
                                                  EQ     IDP=MN                                                  DBG0002   950
                                         ST=XNR   SPACE  4,8                                                     DBG0002   951
                                        *         HERE TO PROCESS *STNR,NR,L,RJ*.                                DBG0002   952
                                                                                                                 DBG0002   953
                                         ST=XNR   SX6    XTC=NR                                                  DBG0002   954
                                                  SA6    IDPXTC                                                  DBG0002   955
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    53
  
  
                                                  ZR     X5,ST=STP5  IF EOS ENCOUNTERED                          DBG0002   956
                                                  RJ     PAS         PARSE SUBEXPRESSION-- NR                    DBG0002   957
                                                  ZR     X3,ST=STP5  IF NR IS NULL                               DBG0002   958
                                                  SA6    IDPXA1                                                  DBG0002   959
                                                  SA6    IDPXA2                                                  DBG0002   960
                                                  EQ     ST=STP5     REJOIN NORMAL STEP PROCESSING FLOW...       DBG0002   961
                                         ADZ      SPACE  4,8                                                     DBG=IDP  2106
                                        **        ADZ - ADD A WORD TO IDP TABLE.                                 DBG=IDP  2107
                                        *                                                                        DBG=IDP  2108
                                        *                                                                        DBG=IDP  2109
                                        *                THIS ROUTINE WILL ADD A SINGLE WORD TO AN IDP FIXED     DBG=IDP  2110
                                        *         LENGTH TABLE THAT IS TERMINATED BY A ZERO WORD, AND WHERE      DBG=IDP  2111
                                        *         AN AVAILABLE SPACE IS MARKED BY A -1.                          DBG=IDP  2112
                                        *                                                                        DBG=IDP  2113
                                        *         ENTRY  (X6)   =  WORD TO BE ADDED TO TABLE                     DBG=IDP  2114
                                        *                (B6)   =  FWA OF TABLE                                  DBG=IDP  2115
                                        *                                                                        DBG=IDP  2116
                                        *         EXIT   TO *IDP=OV* IF TABLE OVERFLOW                           DBG0002   962
                                        *                (X1)   =  -1 IF ENTRY ALREADY IN TABLE, ELSE            DBG=IDP  2118
                                        *                       =  ENTRY THAT WAS MADE IN TABLE                  DBG=IDP  2119
                                        *                (B7)   =  ORDINAL OF ENTRY THAT WAS MADE OR OF MATCHING DBG=IDP  2120
                                        *                            ENTRY                                       DBG=IDP  2121
                                        *                                                                        DBG=IDP  2122
                                        *         USES   X - 0,1,2,3,6,7                                         DBG=IDP  2123
                                        *                A - 1,2                                                 DBG=IDP  2124
                                        *                B - 7                                                   DBG=IDP  2125
                                        *                                                                        DBG=IDP  2126
                                        *         CALLS  IDP.ER,PRIDP,SKT                                        DBG=IDP  2127
                                                                                                                 DBG=IDP  2128
                                                                                                                 DBG=IDP  2129
                                         ADZ      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2130
                                                  BX1    X6                                                      DBG=IDP  2131
                                                  MX0    60                                                      DBG=IDP  2132
                                                  SA6    ADZA        SAVE (X6)                                   DBG=IDP  2133
                                                  RJ     SKT         SEARCH TO SEE IF ENTRY ALREADY IN TABLE     DBG=IDP  2134
                                                  SX1    -B1                                                     DBG=IDP  2135
                                                  NZ     X2,EXIT.    IF ENTRY ALREADY IN TABLE                   DBG=IDP  2136
                                                  RJ     SKT         SEARCH FOR AVAILABLE SPACE                  DBG=IDP  2137
                                                  ZR     X2,IDP=OV   IF NO AVAILABLE SPACE LEFT                  DBG0002   963
                                                  SA1    ADZA                                                    DBG=IDP  2139
                                                  BX6    X1                                                      DBG=IDP  2140
                                                  SA6    A2          MAKE NEW TABLE ENTRY                        DBG=IDP  2141
                                                  EQ     EXIT.                                                   DBG=IDP  2142
                                                                                                                 DBG=IDP  2146
                                                                                                                 DBG=IDP  2147
                                         ADZA     BSSZ   1                                                       DBG=IDP  2148
                                         BRK      SPACE  4,8                                                     DBG=IDP  2292
                                        **        BRK - BREAK PROCESSOR.                                         DBG=IDP  2293
                                        *                                                                        DBG=IDP  2294
                                        *                                                                        DBG=IDP  2295
                                        *         1. IF THIS IS AN ASSEMBLED BREAK (NOT *IDP* GENERATED),        DBG=IDP  2296
                                        *            THEN CONTROL IS MERELY RETURNED TO CALLER.                  DBG=IDP  2297
                                        *                                                                        DBG=IDP  2298
                                        *         2. IF THIS IS AN *IDP* GENERATED BREAK, THE 2 PARALLEL TABLES, DBG=IDP  2299
                                        *            *IDPBA/IDPBC*, ARE QUERIED FOR INFORMATION THAT WILL BE     DBG=IDP  2300
                                        *            PLUGGED INTO A DUMMY PARAMETER LIST FOR THIS BREAK. THE     DBG=IDP  2301
                                        *            PREVIOUS CONTENTS OF THE BREAK ADDR ARE PICKED UP FROM      DBG=IDP  2302
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    54
  
  
                                        *            *IDPBC* AND PLUGGED AT *ST=ENDX* SO THAT THEY CAN BE        DBG=IDP  2303
                                        *            EXECUTED BEFORE EXITING *IDP*.                              DBG=IDP  2304
                                        *                                                                        DBG=IDP  2305
                                        *         TABLE FORMATS ARE--                                            DBG=IDP  2306
                                        *                                                                        DBG=IDP  2307
                                        *         IDPBA ENTRY AT (IDPBA+ORDINAL)                                 DBG=IDP  2308
                                        *                                                                        DBG=IDP  2309
                                        *         VFD    6/BREAK TYPE CODE (BTC)                                 DBG=IDP  2310
                                        *         VFD    18/ ADDR1                                               DBG=IDP  2311
                                        *         VFD    18/ ADDR2   FOR A CONDITIONAL BREAK (BRNE,...) THE      DBG=IDP  2312
                                        *                              CONTENTS OF THE CORE LOCATION ADDR1 WILL  DBG=IDP  2313
                                        *                              BE COMPARED TO THE CONTENTS OF CORE       DBG=IDP  2314
                                        *                              LOCATION ADDR2.                           DBG=IDP  2315
                                        *         VFD    18/ BREAK ADDR                                          DBG=IDP  2316
                                        *                                                                        DBG=IDP  2317
                                        *         IDPBC ENTRY AT (IDPBC+2*ORDINAL)                               DBG=IDP  2318
                                        *                                                                        DBG=IDP  2319
                                        *         VFD    60/ PREVIOUS CONTENTS OF BREAK ADDR                     DBG=IDP  2320
                                        *         VFD    15/ LL                                                  DBG=IDP  2321
                                        *         VFD    15/ UL                                                  DBG=IDP  2322
                                        *         VFD    12/ INC                                                 DBG=IDP  2323
                                        *         VFD    18/ SNAP COUNT                                          DBG=IDP  2324
                                        *                                                                        DBG=IDP  2325
                                        *            IF THIS IS A CONDITIONAL *IDP* GENERATED BREAK              DBG=IDP  2326
                                        *            (BRPL,BREQ,...), THE RELATIONAL CONDITION IS EVALUATED.     DBG=IDP  2327
                                        *            A TRUE RESULT MEANS THE BREAK WILL BE HONORED, A FALSE THAT DBG=IDP  2328
                                        *            IT WILL NOT.                                                DBG=IDP  2329
                                        *                                                                        DBG=IDP  2330
                                        *         ENTRY  (X1)    =   (IDPPREG)  PSEUDO P REGISTER                DBG=IDP  2331
                                        *                            (IDPPREG)-1 = ADDR OF IDP CALLER (BREAK AD) DBG=IDP  2332
                                        *                (A5,    =   (IDPPREG)-1                                 DBG=IDP  2333
                                        *                    X5) =   FWA OF PARAMETER LIST                       DBG=IDP  2334
                                        *                        =   .ZR. IF *IDP* GENERATED BREAK               DBG=IDP  2335
                                        *                                                                        DBG=IDP  2336
                                        *         EXIT   (X5)    =   FWA OF PARAMETER LIST FOR THIS BREAK        DBG=IDP  2337
                                        *                              (OR DUMMY PARAMETER LIST FOR *IDP* BREAK) DBG=IDP  2338
                                        *                        =   .ZR. IF NO BREAK THIS TIME                  DBG=IDP  2339
                                        *                                                                        DBG=IDP  2340
                                        *         USES   X - ALL                                                 DBG=IDP  2341
                                        *                A - 1,2,3,6,7                                           DBG=IDP  2342
                                        *                B - 5,6,7                                               DBG=IDP  2343
                                        *                                                                        DBG=IDP  2344
                                        *         CALLS  CBC,SKT                                                 DBG=IDP  2345
                                                                                                                 DBG=IDP  2346
                                                                                                                 DBG=IDP  2347
                                         BRK      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2348
                                                  SX6    X5                                                      DBG=IDP  2349
                                                  MX7    -0                                                      DBG=IDP  2350
                                                  SX1    X1-1        (X1) = BREAK ADDR                           DBG=IDP  2351
                                                  SA6    FWAPARM                                                 DBG=IDP  2352
                                                  NZ     X5,EXIT.    IF NOT *IDP* GENERATED BREAK                DBG=IDP  2353
                                                                                                                 DBG=IDP  2354
                                        *         SET UP DUMMY APLIST FOR *IDP* GENERATED BREAK.                 DBG=IDP  2355
                                                                                                                 DBG=IDP  2356
                                                  SX6    APL         (X6) = FWA OF DUMMY APLIST                  DBG=IDP  2357
                                                  SA7    AP=HDR      SET TO *IDP GENERATED BREAK HEADER*         DBG=IDP  2358
                                                  SA6    A6                                                      DBG=IDP  2359
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    55
  
  
                                                  MX0    -18                                                     DBG=IDP  2360
                                                  SX5    X6                                                      DBG=IDP  2361
                                                  BX0    -X0                                                     DBG=IDP  2362
                                                  SB6    IDPBA                                                   DBG=IDP  2363
                                                  RJ     SKT         SEARCH FOR BREAK ADDR                       DBG=IDP  2364
                                                  ZR     X2,*+4S15   IF NO FIND, IRRETRIEVABLE ERROR...          DBG=IDP  2365
                                                  SB6    B7+B7                                                   DBG=IDP  2366
                                                  SA3    IDPBC+B6+1  (X3) = 15/LL,15/UL,12/INC,18/CNT            DBG=IDP  2367
                                                  SX6    X3                                                      DBG=IDP  2368
                                                  BX7    -X0*X3      (X7) = 15/LL,15/UL,12/INC,18/0              DBG=IDP  2369
                                                  SA6    AP=CNT                                                  DBG=IDP  2370
                                                  SX4    X3+B1       (X4) = CNT+1                                DBG=IDP  2371
                                                  BX7    X7+X4       (X7) = 15/LL,15/UL,12/INC,18/CNT+1          DBG=IDP  2372
                                                  SA7    A3                                                      DBG=IDP  2373
                                                  MX0    -15                                                     DBG=IDP  2374
                                                  LX3    15                                                      DBG=IDP  2375
                                                  BX6    -X0*X3      (X6) = LL                                   DBG=IDP  2376
                                                  LX3    15                                                      DBG=IDP  2377
                                                  BX7    -X0*X3      (X7) = UL                                   DBG=IDP  2378
                                                  SA6    AP=LL                                                   DBG=IDP  2379
                                                  SA7    A6+B1                                                   DBG=IDP  2380
                                                  MX0    -12                                                     DBG=IDP  2381
                                                  LX3    12                                                      DBG=IDP  2382
                                                  BX6    -X0*X3      (X6) = INC                                  DBG=IDP  2383
                                                  SA6    A7+B1                                                   DBG=IDP  2384
                                                                                                                 DBG=IDP  2385
                                        *         SET UP EXIT SO THAT PREVIOUS CONTENTS OF BREAK ADDR WILL BE    DBG=IDP  2386
                                        *           EXECUTED BEFORE EXITING *IDP*.                               DBG=IDP  2387
                                        *                                                                        DBG=IDP  2388
                                                  SA3    A3-B1       (X3) = PREVIOUS CONTENTS OF BREAK ADDR      DBG=IDP  2389
                                                  BX6    X3                                                      DBG=IDP  2390
                                                  SA6    ST=ENDX                                                 DBG=IDP  2391
                                                                                                                 DBG=IDP  2392
                                        *         CHECK TO SEE IF BREAK CONDITION SATISFIED.                     DBG=IDP  2393
                                                                                                                 DBG=IDP  2394
                                                  MX0    -6                                                      DBG=IDP  2395
                                                  LX2    6                                                       DBG=IDP  2396
                                                  BX6    -X0*X2      (X6) = BREAK TYPE CODE (BTC)                DBG=IDP  2397
                                                  SB5    X6                                                      DBG=IDP  2398
                                                  MX0    -18                                                     DBG=IDP  2399
                                                  LX2    18                                                      DBG=IDP  2400
                                                  BX6    -X0*X2                                                  DBG=IDP  2401
                                                  SA1    X6          (X1) = (ADDR1)                              DBG=IDP  2402
                                                  LX2    18                                                      DBG=IDP  2403
                                                  BX6    -X0*X2                                                  DBG=IDP  2404
                                                  SA2    X6          (X2) = (ADDR2)                              DBG=IDP  2405
                                                  RJ     CBC         CHECK BREAK CONDITION                       DBG=IDP  2406
                                                  NZ     B6,EXIT.    IF CONDITION WAS SATISFIED (TRUE)           DBG=IDP  2407
                                                  MX5    0                                                       DBG=IDP  2408
                                                  EQ     EXIT.                                                   DBG=IDP  2409
                                         BUB      SPACE  4,8                                                     DBG0002   964
                                        **        BUB - BURST/BUILD IDP COMMAND.                                 DBG0002   965
                                        *                                                                        DBG0002   966
                                        *                                                                        DBG0002   967
                                        *                THIS ROUTINE BURSTS AND BUILDS A PACKED (I.E. 10 CHARS  DBG0002   968
                                        *         PER WORD) SOURCE LINE AT *IDPLIM* ET SEQ INTO ITS TOKEN FORM.  DBG0002   969
                                        *                                                                        DBG0002   970
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    56
  
  
                                        *         GENERAL TOKEN FORMAT IS --                                     DBG0002   971
                                        *                                                                        DBG0002   972
                                        *         VFD    42/0L_CHARS,18/TOKEN TYPE                               DBG0002   973
                                        *                CHARS = DISPLAY CODE CHARACTERS THAT CONSTITUTE THIS    DBG0002   974
                                        *                          TOKEN                                         DBG0002   975
                                        *                TOKEN TYPE = A TYPE CODE THAT IS USED TO DISTINGUISH    DBG0002   976
                                        *                               ONE TOKEN FROM ANOTHER. (NOTE--BIT 17    DBG0002   977
                                        *                               OF TOKEN TYPE MUST BE 0)                 DBG0002   978
                                        *                                                                        DBG0002   979
                                        *         TOKEN TYPES ARE --                                             DBG0002   980
                                        *                                                                        DBG0002   981
                                        *         O.VAR  VARIABLE OR NAME TOKEN  (ALPHANUMERIC)                  DBG0002   982
                                        *         O.CONS CONSTANT TOKEN  (NUMERIC)                               DBG0002   983
                                        *         O.SEP  SEPARATOR TOKEN (E.G. *,+-)                             DBG0002   984
                                        *                                                                        DBG0002   985
                                        *         E.G. IF ; IS THE END-OF-STMT CHARACTER --                      DBG0002   986
                                        *                                                                        DBG0002   987
                                        *         SNAP,NAME,,4;REG,X1                                            DBG0002   988
                                        *                                                                        DBG0002   989
                                        *         WOULD BECOME --                                                DBG0002   990
                                        *         VFD    42/OTHER ,18/LEN OF STMT = 7                            DBG0002   991
                                        *         VFD    42/4LSNAP,18/O.VAR                                      DBG0002   992
                                        *         VFD    42/1L,   ,18/O.SEP                                      DBG0002   993
                                        *         VFD    42/4LNAME,18/O.VAR                                      DBG0002   994
                                        *         VFD    42/1L,   ,18/O.SEP                                      DBG0002   995
                                        *         VFD    42/1L,   ,18/O.SEP                                      DBG0002   996
                                        *         VFD    42/1L4   ,18/O.CONS                                     DBG0002   997
                                        *         VFD    60/0  ** EOS **                                         DBG0002   998
                                        *                                                                        DBG0002   999
                                        *         VFD    42/OTHER ,18/LEN OF STMT = 4                            DBG0002  1000
                                        *         VFD    42/3LREG ,18/O.VAR                                      DBG0002  1001
                                        *         VFD    42/1L,   ,18/O.SEP                                      DBG0002  1002
                                        *         VFD    42/2LX1  ,18/O.VAR                                      DBG0002  1003
                                        *         VFD    60/0  ** EOS **                                         DBG0002  1004
                                        *                                                                        DBG0002  1005
                                        *         ENTRY  (A5,X5)   = A+C OF 1ST WORD OF SOURCE LINE IMAGE        DBG0002  1006
                                        *                              TO BE BURST/BUILT                         DBG0002  1007
                                        *                (A6)+1    = ADDR TO STORE 1ST TOKEN THAT IS BURST/BUILT DBG0002  1008
                                        *                (L=LIM)   = NR OF WORDS IN SOURCE LINE IMAGE AT         DBG0002  1009
                                        *                              (IDPLIM) ET SEQ  (INCLUDES WORD           DBG0002  1010
                                        *                              CONTAINING EOL MARK)                      DBG0002  1011
                                        *                                                                        DBG0002  1012
                                        *         EXIT   NONE                                                    DBG0002  1013
                                        *                                                                        DBG0002  1014
                                        *         USES   ALL                                                     DBG0002  1015
                                        *                                                                        DBG0002  1016
                                        *         CALLS  NONE                                                    DBG0002  1017
                                                                                                                 DBG0002  1018
                                                                                                                 DBG0002  1019
                                         BUB      SUBR               ** ENTRY/EXIT **                            DBG0002  1020
                                                                                                                 DBG0002  1021
                                        *         FIRST TIME ONLY INITIALIZATION.                                DBG0002  1022
                                                                                                                 DBG0002  1023
                                                  SX7    A6                                                      DBG0002  1024
                                                  MX0    -CHAR                                                   DBG0002  1025
                                                  SA4    10*CHAR                                                 DBG0002  1026
                                                  SA7    IDPSTMT                                                 DBG0002  1027
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    57
  
  
                                                  SB3    CHAR                                                    DBG0002  1028
                                                  SB6    A4                                                      DBG0002  1029
                                                  SA0    B0          SET TO *LENGTH=0 FIRST TIME THROUGH*        DBG0002  1030
                                                                                                                 DBG0002  1031
                                        *         SET UP (B7) = NR OF WORDS TO BURST/BUILD (NOT INCLUDING WORD   DBG0002  1032
                                        *           CONTAINING EOL MARK).  I.E. (B7) WILL CONTAIN NR OF FULL     DBG0002  1033
                                        *           WORDS (10 CHARS EACH) TO BURST/BUILD.  THREE END-OF-LINE     DBG0002  1034
                                        *           CONDITIONS ARE SIGNIFICANT --                                DBG0002  1035
                                        *                                                                        DBG0002  1036
                                        *             (A5)+0         1     (X=ANY CHAR,0=00B)                    DBG0002  1037
                                        *                  XXXXXXXX00            (L=LIM) = 1, (B7) = 0           DBG0002  1038
                                        *                 +0         1                                           DBG0002  1039
                                        *                  XXXXXXXXXX0000000000  (L=LIM) = 1, (B7) = 1           DBG0002  1040
                                        *                 +0         1                                           DBG0002  1041
                                        *                  XXXXXXXXX00000000000  (L=LIM) = 2, (B7) = 0           DBG0002  1042
                                                                                                                 DBG0002  1043
                                                  SA1    =XL=LIM     (X1) = NR OF WORDS IN SOURCE LINE IMAGE     DBG0002  1044
                                        *                                     (INCLUDES WORD CONTAINING EOL MRK) DBG0002  1045
                                                  SB5    A5-2                                                    DBG0002  1046
                                                  SB7    X1-1        (B7) = NR OF WORDS IN SOURCE LINE IMAGE     DBG0002  1047
                                        *                                     (NOT INCLUDING WD CONTAINING EOL)  DBG0002  1048
                                                  SA2    B5+X1       (A2,X2) = A+C OF NEXT TO LAST WORD OF LINE  DBG0002  1049
                                                  ZR     B7,BUB2     IF 11 CHAR (66 BIT) EOL NOT POSSIBLE        DBG0002  1050
                                                  BX6    -X0*X2                                                  DBG0002  1051
                                                  NZ     X6,BUB2     IF NOT 11 CHAR (66 BIT) EOL MARK            DBG0002  1052
                                                  SB7    B7-B1                                                   DBG0002  1053
                                                                                                                 DBG0002  1054
                                        *         INITIALIZE FOR BURST/BUILD OF KEYWORD.                         DBG0002  1055
                                                                                                                 DBG0002  1056
                                         BUB2     SA2    MX=KEYW                                                 DBG0002  1057
                                                  MX1    0           SET TO *NOT SQUEEZING BLANKS*               DBG0002  1058
                                                  SB5    B0          SET TO *NOT SQUEEZING BLANKS*               DBG0002  1059
                                                  BX2    -X2                                                     DBG0002  1060
                                                  EQ     BUB2B                                                   DBG0002  1061
                                                                                                                 DBG0002  1062
                                        *         INITIALIZE FOR BURST/BUILD OF NON-KEYWORD.                     DBG0002  1063
                                                                                                                 DBG0002  1064
                                         BUB2A    SA1    =10H                                                    DBG0002  1065
                                                  SA2    MX=TOKN                                                 DBG0002  1066
                                                  SB5    1R +7777B-1RM                                           DBG0002  1067
                                                                                                                 DBG0002  1068
                                        *         COMMON INITIALIZATION FOR BURST/BUILD.                         DBG0002  1069
                                                                                                                 DBG0002  1070
                                         BUB2B    SA3    BUB=LEN                                                 DBG0002  1071
                                                  SX4    A0                                                      DBG0002  1072
                                                  IX7    X3-X4                                                   DBG0002  1073
                                                  SB4    8*CHAR-1*CHAR                                           DBG0002  1074
                                                  BX6    X6-X6                                                   DBG0002  1075
                                                  SA7    A3                                                      DBG0002  1076
                                                  NZ     B7,BUB4     IF 1ST WORD OF SOURCE LINE DOES NOT CONTAIN DBG0002  1077
                                        *                              EOL MARK, INTO THE FIRE...                DBG0002  1078
                                                                                                                 DBG0002  1079
                                        *         HERE TO PROCESS WORD CONTAINING EOL MARK (I.E. LAST WORD OF    DBG0002  1080
                                        *           SOURCE LINE) -- FIGURE OUT HOW MANY USEABLE (I.E. NON-EOL)   DBG0002  1081
                                        *           BITS ARE IN FINAL WORD TO BE BURST/BUILT.                    DBG0002  1082
                                                                                                                 DBG0002  1083
                                         BUB2C    MI     B7,BUB5     IF HAVE ALREADY PROCESSED LAST WORD OF LINE DBG0002  1084
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    58
  
  
                                                  SA3    =40404040404040404040B                                  DBG0002  1085
                                                  SX4    B1                                                      DBG0002  1086
                                                  IX7    X5-X4       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     DBG0002  1087
                                                  BX4    -X7+X5      (X4) = ALL TRAILING 0 BITS IN (X1) = 0 BITS DBG0002  1088
                                        *                                     ALL OTHER LEADING BITS = 1 BITS    DBG0002  1089
                                                  SB2    60-5        (B2) = RIGHT CIRCULAR SHIFT 5 BITS          DBG0002  1090
                                                  BX7    X3*X4       (X7) = 40B WHERE EACH CHAR IN LAST WORD IS  DBG0002  1091
                                                  LX4    X7,B2       (X4) = 01B WHERE EACH CHAR IN LAST WORD IS  DBG0002  1092
                                                  IX3    X7-X4       (X3) = 37B WHERE EACH CHAR IN LAST WORD IS  DBG0002  1093
                                                  BX4    X7+X3       (X4) = 77B WHERE EACH CHAR IN LAST WORD IS  DBG0002  1094
                                                  CX7    X4                                                      DBG0002  1095
                                                  SB7    B7-B1       (B7) = SET WORD COUNT TO -1 (I.E. BURSTING  DBG0002  1096
                                        *                                     LAST WD) TO AVOID LOOPING AT BUB2B DBG0002  1097
                                                  SB6    X7          (B6) = NR OF BITS TO BU/BU IN LAST WD (X5)  DBG0002  1098
                                                  EQ     BUB4        BURST/BUILD LAST WORD...                    DBG0002  1099
                                                                                                                 DBG0002  1100
                                        *         BURST/BUILD LOOP  ** INSTACK **                                DBG0002  1101
                                                                                                                 DBG0002  1102
                                         BUB3     SB7    B7-B1                                                   DBG0002  1103
                                                  SA5    A5+B1                                                   DBG0002  1104
                                                  LE     B7,B0,BUB2C IF NO MORE SOURCE WORDS TO BURST/BUILD      DBG0002  1105
                                                  IX7    X5-X1                                                   DBG0002  1106
                                                  SB6    A4                                                      DBG0002  1107
                                                  ZR     X7,BUB3     IF NEXT SOURCE IMAGE WORD IS ALL BLANK      DBG0002  1108
                                                                                                                 DBG0002  1109
                                         BUB4     LX5    CHAR                                                    DBG0002  1110
                                                  LE     B6,B0,BUB3  IF SOURCE IMAGE WORD (X5) IS EXHAUSTED      DBG0002  1111
                                                  BX4    -X0*X5                                                  DBG0002  1112
                                                  SB6    B6-B3                                                   DBG0002  1113
                                                  SB2    X4+7777B-1RM                                            DBG0002  1114
                                                  NO                                                             DBG0002  1115
                                                  LX7    X2,B2                                                   DBG0002  1116
                                                  EQ     B2,B5,BUB4  IF CHAR TO PACK IS A BLANK (55B)            DBG0002  1117
                                                  LX3    X4,B4                                                   DBG0002  1118
                                                  SB4    B4-B3                                                   DBG0002  1119
                                                  MI     X7,BUB5     IF NEXT CHAR TO PACK IS TERMINATOR          DBG0002  1120
                                                  BX6    X6+X3                                                   DBG0002  1121
                                                  GE     B4,B0,BUB4  IF PACKING REG (X6) NOT FULL                DBG0002  1122
                                                                                                                 DBG0002  1123
                                        *         HERE IF AN ERROR -- TERMINATE TOKEN BUFFER.                    DBG0002  1124
                                                                                                                 DBG0002  1125
                                                  SA1    IDPSTMT                                                 DBG0002  1126
                                                  MX6    1                                                       DBG0002  1127
                                                  SX2    B1                                                      DBG0002  1128
                                                  BX6    X6+X2       (X6) = 1/1=LAST STMT ON LINE,41/0,18/LEN    DBG0002  1129
                                                  SA6    X1                                                      DBG0002  1130
                                                  EQ     IDP=ER      ERROR - TOKEN .GT. 7 CHARS                  DBG0002  1131
                                                                                                                 DBG0002  1132
                                        *         HERE TO STORE PACKING REG (X6).                                DBG0002  1133
                                                                                                                 DBG0002  1134
                                         BUB5     LX6    10*CHAR-8*CHAR (X6) = 42/0LNAME,18/0                    DBG0002  1135
                                                  SA1    BUB=LEN                                                 DBG0002  1136
                                                  SA0    B1                                                      DBG0002  1137
                                                  SA2    MX=NR09                                                 DBG0002  1138
                                                  LX7    X6,B3                                                   DBG0002  1139
                                                  BX7    -X0*X7                                                  DBG0002  1140
                                                  SX3    X1-3-1                                                  DBG0002  1141
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    59
  
  
                                                  SB4    X7                                                      DBG0002  1142
                                                  LX2    X2,B4                                                   DBG0002  1143
                                                  PL     X3,BUB6     IF NO TABLE OVERFLOW IMPENDING              DBG0002  1144
                                                                                                                 DBG0002  1145
                                        *         HERE IF AN ERROR -- TERMINATE TOKEN BUFFER.                    DBG0002  1146
                                                                                                                 DBG0002  1147
                                                  SA1    IDPSTMT                                                 DBG0002  1148
                                                  MX6    1                                                       DBG0002  1149
                                                  SX2    B1                                                      DBG0002  1150
                                                  BX6    X6+X2       (X6) = 1/1=LAST STMT ON LINE,41/0,18/LEN    DBG0002  1151
                                                  SA6    X1                                                      DBG0002  1152
                                                  EQ     IDP=OV                                                  DBG0002  1153
                                                                                                                 DBG0002  1154
                                         BUB6     ZR     X6,BUB8     IF (X6) IS NULL, PROBABLE ,, SYNTAX         DBG0002  1155
                                                  SX7    O.VAR                                                   DBG0002  1156
                                                  PL     X2,BUB7     IF 1ST CHAR IN (X6) IS NOT 0 THRU 9         DBG0002  1157
                                                  SX7    O.CONS                                                  DBG0002  1158
                                                                                                                 DBG0002  1159
                                         BUB7     BX6    X6+X7                                                   DBG0002  1160
                                                  SA0    A0+B1                                                   DBG0002  1161
                                                  SA6    A6+B1                                                   DBG0002  1162
                                                                                                                 DBG0002  1163
                                        *         CHECK FOR AND PROCESS END-OF-STATEMENT.                        DBG0002  1164
                                                                                                                 DBG0002  1165
                                         BUB8     SB2    -2                                                      DBG0002  1166
                                                  SX2    X4-1R"EOS"                                              DBG0002  1167
                                                  LE     B7,B2,BUB9  IF NOTHING MORE TO BURST                    DBG0002  1168
                                                  NZ     X2,BUB10    IF NOT EOS CHARACTER                        DBG0002  1169
                                                                                                                 DBG0002  1170
                                         BUB9     SA1    IDPSTMT                                                 DBG0002  1171
                                                  MX6    0                                                       DBG0002  1172
                                                  SX2    A6+B1                                                   DBG0002  1173
                                                  SA6    A6+B1       MARK EOS                                    DBG0002  1174
                                                  IX7    X2-X1                                                   DBG0002  1175
                                                  NO                                                             DBG0002  1176
                                                  SA7    X1                                                      DBG0002  1177
                                                  LE     B7,B2,BUB11 IF FINISHED                                 DBG0002  1178
                                                  SX7    A6+B1       (X7) = ADDR OF LEN WORD FOR NEXT STMT       DBG0002  1179
                                                  SA6    A6+B1       (A6+1) = NEXT ADDR TO STORE                 DBG0002  1180
                                                  SA0    A0+B1                                                   DBG0002  1181
                                                  SA7    A1                                                      DBG0002  1182
                                                  EQ     BUB2        CRANK UP FOR NEW STMT...                    DBG0002  1183
                                                                                                                 DBG0002  1184
                                        *         HERE TO STORE TERMINATOR CHARACTER (X4).                       DBG0002  1185
                                                                                                                 DBG0002  1186
                                         BUB10    BX6    X4                                                      DBG0002  1187
                                                  SX7    O.SEP                                                   DBG0002  1188
                                                  LX6    10*CHAR-1*CHAR                                          DBG0002  1189
                                                  BX6    X6+X7       (X6) = 42/0LCHAR,18/O.SEP                   DBG0002  1190
                                                  SA6    A6+B1                                                   DBG0002  1191
                                                  EQ     BUB2A       CONTINUE...                                 DBG0002  1192
                                                                                                                 DBG0002  1193
                                         BUB11    MX6    1                                                       DBG0002  1194
                                                  BX7    X6+X7                                                   DBG0002  1195
                                                  SA7    X1                                                      DBG0002  1196
                                                  EQ     EXIT.                                                   DBG0002  1197
                                                                                                                 DBG0002  1198
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    60
  
  
                                                                                                                 DBG0002  1199
                                         BUB=LEN  =      APL         SAVED NR OF WORDS LEFT IN TOKEN BUFFER      DBG0002  1200
                                         CBC      SPACE  4,8                                                     DBG=IDP  2410
                                        **        CBC - CHECK BREAK CONDITION.                                   DBG=IDP  2411
                                        *                                                                        DBG=IDP  2412
                                        *                                                                        DBG=IDP  2413
                                        *                THIS ROUTINE RETURNS A TRUE/FALSE VALUE FOR A GIVEN     DBG=IDP  2414
                                        *         LOGICAL EXPRESSION-- C1.OP.C2                                  DBG=IDP  2415
                                        *                                                                        DBG=IDP  2416
                                        *         NOTE-- THE OPERATOR JUMP TABLE AT *CBC.OP* HAS A ONE-TO-ONE    DBG=IDP  2417
                                        *         ORDER DEPENDENT RELATIONSHIP WITH THE *BREAK* KEYWORDS AT      DBG=IDP  2418
                                        *         (IDPKBR) ET SEQ. SHOULD A CHANGE BE EFFECTED TO EITHER TABLE,  DBG=IDP  2419
                                        *         BOTH SHOULD BE CHECKED FOR CONSISTENCY.                        DBG=IDP  2420
                                        *                                                                        DBG=IDP  2421
                                        *         ENTRY  (X1) = C1   1ST QUANTITY                                DBG=IDP  2422
                                        *                (X2) = C2   2ND QUANTITY                                DBG=IDP  2423
                                        *                (B5) = BREAK TYPE CODE (BTC)                            DBG=IDP  2424
                                        *                                                                        DBG=IDP  2425
                                        *         EXIT   (B6) = .NZ. IF TRUE, ELSE .ZR. IF FALSE                 DBG=IDP  2426
                                        *                                                                        DBG=IDP  2427
                                        *         USES   X - 0,3,6,7                                             DBG=IDP  2428
                                        *                A - NONE                                                DBG=IDP  2429
                                        *                B - 6                                                   DBG=IDP  2430
                                        *                                                                        DBG=IDP  2431
                                        *         CALLS  NONE                                                    DBG=IDP  2432
                                                                                                                 DBG=IDP  2433
                                                                                                                 DBG=IDP  2434
                                         CBC      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2435
                                                  MI     B5,*+4S15   IF BTC IS BAD, AVOID SMELLY EVIL BUG...     DBG=IDP  2436
                                                  SB6    CBC2-CBC.OP (B6) = NR OF OPERATOR JP TABLE ENTRIES      DBG=IDP  2437
                                                  GT     B5,B6,*+4S15  IF BTC IS BAD, P U...DUMMKOPF             DBG=IDP  2438
                                                  SB6    B1          SET TO *CONDITION SATISFIED (TRUE)*         DBG=IDP  2439
                                                  ZR     B5,EXIT.    IF UNCONDITIONAL BREAK                      DBG=IDP  2440
                                                  BX3    X1-X2                                                   DBG=IDP  2441
                                                  IX6    X1-X2                                                   DBG=IDP  2442
                                                  IX7    X2-X1                                                   DBG=IDP  2443
                                                  MX0    0                                                       DBG=IDP  2444
                                                  IX6    X6+X0       REMOVE POSSIBLE -0                          DBG=IDP  2445
                                                  IX7    X7+X0                                                   DBG=IDP  2446
                                                  JP     CBC.OP+B5-1                                             DBG=IDP  2447
                                                                                                                 DBG=IDP  2448
                                        *         CBC.OP - OPERATOR JUMP TABLE.                                  DBG=IDP  2449
                                                                                                                 DBG=IDP  2450
                                         CBC.OP   BSS    0                                                       DBG=IDP  2451
                                                  LOC    1                                                       DBG=IDP  2452
                                                                                                                 DBG=IDP  2453
                                        *         HERE FOR .PL.C1                                                DBG=IDP  2454
                                                                                                                 DBG=IDP  2455
                                         +        PL     X1,EXIT.    IF TRUE                                     DBG=IDP  2456
                                                  EQ     CBC2                                                    DBG=IDP  2457
                                                                                                                 DBG=IDP  2458
                                        *         HERE FOR .MI.C1                                                DBG=IDP  2459
                                                                                                                 DBG=IDP  2460
                                        +         MI     X1,EXIT.    IF TRUE                                     DBG=IDP  2461
                                                  EQ     CBC2                                                    DBG=IDP  2462
                                                                                                                 DBG=IDP  2463
                                        *         HERE FOR .ZR.C1                                                DBG=IDP  2464
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    61
  
  
                                                                                                                 DBG=IDP  2465
                                         +        ZR     X1,EXIT.    IF TRUE                                     DBG=IDP  2466
                                                  EQ     CBC2                                                    DBG=IDP  2467
                                                                                                                 DBG=IDP  2468
                                        *         HERE FOR .NZ.C1                                                DBG=IDP  2469
                                                                                                                 DBG=IDP  2470
                                         +        NZ     X1,EXIT.    IF TRUE                                     DBG=IDP  2471
                                                  EQ     CBC2                                                    DBG=IDP  2472
                                                                                                                 DBG=IDP  2473
                                        *         HERE FOR C1.EQ.C2                                              DBG=IDP  2474
                                                                                                                 DBG=IDP  2475
                                         +        ZR     X3,EXIT.    IF TRUE                                     DBG=IDP  2476
                                                  EQ     CBC2                                                    DBG=IDP  2477
                                                                                                                 DBG=IDP  2478
                                        *         HERE FOR C1.NE.C2                                              DBG=IDP  2479
                                                                                                                 DBG=IDP  2480
                                         +        NZ     X3,EXIT.    IF TRUE                                     DBG=IDP  2481
                                                  EQ     CBC2                                                    DBG=IDP  2482
                                                                                                                 DBG=IDP  2483
                                        *         HERE FOR C1.LT.C2                                              DBG=IDP  2484
                                                                                                                 DBG=IDP  2485
                                         +        MI     X6,EXIT.    IF TRUE                                     DBG=IDP  2486
                                                  EQ     CBC2                                                    DBG=IDP  2487
                                                                                                                 DBG=IDP  2488
                                        *         HERE FOR C1.GE.C2                                              DBG=IDP  2489
                                                                                                                 DBG=IDP  2490
                                         +        PL     X6,EXIT.    IF TRUE                                     DBG=IDP  2491
                                                  EQ     CBC2                                                    DBG=IDP  2492
                                                                                                                 DBG=IDP  2493
                                        *         HERE FOR C1.LE.C2                                              DBG=IDP  2494
                                                                                                                 DBG=IDP  2495
                                         +        PL     X7,EXIT.    IF TRUE                                     DBG=IDP  2496
                                                  EQ     CBC2                                                    DBG=IDP  2497
                                                                                                                 DBG=IDP  2498
                                        *         HERE FOR C1.GT.C2                                              DBG=IDP  2499
                                                                                                                 DBG=IDP  2500
                                         +        MI     X7,EXIT.    IF TRUE                                     DBG=IDP  2501
                                                  EQ     CBC2                                                    DBG=IDP  2502
                                                                                                                 DBG=IDP  2503
                                                  LOC    *O                                                      DBG=IDP  2504
                                                                                                                 DBG=IDP  2505
                                        *         HERE FOR CONDITION NOT SATISFIED (FALSE).                      DBG=IDP  2506
                                                                                                                 DBG=IDP  2507
                                         CBC2     SB6    B0                                                      DBG=IDP  2508
                                                  EQ     EXIT.                                                   DBG=IDP  2509
                                         CLZ      SPACE  4,8                                                     DBG=IDP  2510
                                        **        CLZ - CLEAR *IDP* TABLE.                                       DBG=IDP  2511
                                        *                                                                        DBG=IDP  2512
                                        *                                                                        DBG=IDP  2513
                                        *                THIS ROUTINE WILL CLEAR AN *IDP* ZERO TERMINATED TABLE  DBG=IDP  2514
                                        *         BY SETTING ALL ENTRIES TO *AVAILABLE*, I.E. -1.                DBG=IDP  2515
                                        *                                                                        DBG=IDP  2516
                                        *         ENTRY  (B6) = FWA OF TABLE TO BE CLEARED                       DBG=IDP  2517
                                        *                                                                        DBG=IDP  2518
                                        *         EXIT   NONE                                                    DBG=IDP  2519
                                        *                                                                        DBG=IDP  2520
                                        *         USES   X - 1,6                                                 DBG=IDP  2521
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    62
  
  
                                        *                A - 1,6                                                 DBG=IDP  2522
                                        *                B - NONE                                                DBG=IDP  2523
                                        *                                                                        DBG=IDP  2524
                                        *         CALLS  NONE                                                    DBG=IDP  2525
                                                                                                                 DBG=IDP  2526
                                                                                                                 DBG=IDP  2527
                                         CLZ      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2528
                                                  SA1    B6                                                      DBG=IDP  2529
                                                  MX6    -1                                                      DBG=IDP  2530
                                                                                                                 DBG=IDP  2531
                                         CLZ2     ZR     X1,EXIT.    IF FINISHED                                 DBG=IDP  2532
                                                  SA6    A1                                                      DBG=IDP  2533
                                                  SA1    A1+B1                                                   DBG=IDP  2534
                                                  EQ     CLZ2                                                    DBG=IDP  2535
                                         CON      SPACE  4,8                                                     DBG=IDP  2536
                                        **        CON - CONNECT/DISCONT FILE.                                    DBG=IDP  2537
                                        *                                                                        DBG=IDP  2538
                                        *                                                                        DBG=IDP  2539
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF FET OF FILE              DBG=IDP  2540
                                        *                (X2)    = +0  IF TO CONNECT                             DBG=IDP  2541
                                        *                        =  1  IF TO DISCONT                             DBG=IDP  2542
                                        *                                                                        DBG=IDP  2543
                                        *         EXIT   SCOPE 3--                                               DBG=IDP  2544
                                        *                (X1)    = .MI. IF PP ROUTINE *CON* DETECTED ERROR,      DBG=IDP  2545
                                        *                                 ELSE .PL.                              DBG=IDP  2546
                                        *                KRONOS/NOS/SCOPE 2-- NONE                               DBG=IDP  2547
                                        *                                                                        DBG=IDP  2548
                                        *         USES   ALL BUT A0,A5,X5                                        DBG=IDP  2549
                                        *                                                                        DBG=IDP  2550
                                        *         CALLS  SCOPE 3-- SYSTEM                                        DBG=IDP  2551
                                        *                KRONOS/NOS-- CLOSE,REQUEST,WRITER                       DBG=IDP  2552
                                                                                                                 DBG=IDP  2553
                                                                                                                 DBG=IDP  2554
                                         CON      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2555
                                                                                                                 DBG=IDP  2556
                                         #OS2     IFEQ   .OS,2       IF SCOPE 2                                  DBG=IDP  2557
                                                  EQ     EXIT.                                                   DBG=IDP  2558
                                         #OS2     ENDIF                                                          DBG=IDP  2559
                                                                                                                 DBG=IDP  2560
                                         #OS3     IFEQ   .OS,3       IF SCOPE 3                                  DBG=IDP  2561
                                                  MX0    7*CHAR                                                  DBG=IDP  2562
                                                  BX6    X0*X1       (X6) = 42/0LFILENAME, 18/0                  DBG=IDP  2563
                                                  SA6    CONA                                                    DBG=IDP  2564
                                                  LX2    6                                                       DBG=IDP  2565
                                                  SYSTEM CON,RCL,CONA,X2                                         DBG=IDP  2566
                                                                                                                 DBG=IDP  2567
                                                  SA1    CONA                                                    DBG=IDP  2568
                                                  LX1    59-1                                                    DBG=IDP  2569
                                                  EQ     EXIT.                                                   DBG=IDP  2570
                                                                                                                 DBG=IDP  2571
                                                                                                                 DBG=IDP  2572
                                         CONA     BSSZ   1           PARAMETER WORD FOR PP ROUTINE *CON*--       DBG=IDP  2573
                                        *                              42/0LFILENAME                             DBG=IDP  2574
                                        *                              16/0, 1/ERROR FLAG, 1/COMPLETE BIT        DBG=IDP  2575
                                                                                                                 DBG=IDP  2576
                                         #OS3     ELSE               IF KRONOS/NOS                               DBG=IDP  2577
                                                  SX6    A1                                                      DBG=IDP  2578
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    63
  
  
                                                  SA6    CONA        SAVE (A1) = FWA OF FET                      DBG=IDP  2579
                                                  NZ     X2,CON2     IF TO DISCONT FILE                          DBG=IDP  2580
                                                                                                                 DBG=IDP  2581
                                        *         HERE TO CONNECT FILE.                                          DBG=IDP  2582
                                                                                                                 DBG=IDP  2583
                                                  WRITER A1,,RCL     FLUSH BUFFER                                DBG=IDP  2584
                                                  SA1    CONA                                                    DBG=IDP  2585
                                                  CLOSE  X1,,RCL     CLOSE FILE                                  DBG=IDP  2586
                                                  SA1    CONA                                                    DBG=IDP  2587
                                                  SX6    2RTT                                                    DBG=IDP  2588
                                                  MX0    60-48                                                   DBG=IDP  2589
                                                  SA2    X1+B1       (X2) = 12/DEVICE TYPE, 48/OTHER             DBG=IDP  2590
                                                  LX6    10*CHAR-2*CHAR                                          DBG=IDP  2591
                                                  BX2    -X0*X2                                                  DBG=IDP  2592
                                                  IX6    X2+X6       (X6) = 12/2RTT, 48/OTHER                    DBG=IDP  2593
                                                  SA6    A2                                                      DBG=IDP  2594
                                                  REQUEST X1,TT      ASSIGN FILE TO TERMINAL                     DBG=IDP  2595
                                                  EQ     EXIT.                                                   DBG=IDP  2596
                                                                                                                 DBG=IDP  2597
                                        *         HERE TO DISCONT FILE.                                          DBG=IDP  2598
                                                                                                                 DBG=IDP  2599
                                         CON2     WRITER A1,,RCL     FLUSH BUFFER                                DBG=IDP  2600
                                                  SA1    CONA                                                    DBG=IDP  2601
                                                  CLOSE  X1,,RCL                                                 DBG=IDP  2602
                                                  EQ     EXIT.                                                   DBG=IDP  2603
                                                                                                                 DBG=IDP  2604
                                                                                                                 DBG=IDP  2605
                                         CONA     BSSZ   1           SAVED FWA OF FET                            DBG=IDP  2606
                                         #OS3     ENDIF                                                          DBG=IDP  2607
                                         DAZ      SPACE  4,8                                                     DBG=IDP  2608
                                        **        DAZ - DEASSEMBLER.                                             DBG=IDP  2609
                                        *                                                                        DBG=IDP  2610
                                        *                                                                        DBG=IDP  2611
                                        *                DEASSEMBLES A SINGLE BINARY INSTRUCTION TO ITS          DBG=IDP  2612
                                        *         *COMPASS* MNEMONIC AND LISTS IT.                               DBG=IDP  2613
                                        *                                                                        DBG=IDP  2614
                                        *         ENTRY  (A5,     =  ADDR OF WORD CONTAINING INSTRUCTION TO      DBG=IDP  2615
                                        *                              DEASSEMBLE                                DBG=IDP  2616
                                        *                    X5)  =  WORD CONTAINING INSTRUCTION TO DEASSEMBLE   DBG=IDP  2617
                                        *                            NOTE-- ((A5)) MIGHT NOT BE EQUAL TO (X5),   DBG=IDP  2618
                                        *                              AS WOULD BE THE CASE WHEN DASSEMBLING     DBG=IDP  2619
                                        *                              THE SAVED PREVIOUS CONTENTS OF AN IDP     DBG=IDP  2620
                                        *                              GENERATED BREAK (SEE *STP*)               DBG=IDP  2621
                                        *                (B4)     =  POSITION COUNTER. LEFT MOST BIT TO BE       DBG=IDP  2622
                                        *                              DEASSEMBLED IS BIT (B4)-1 IN (X5).        DBG=IDP  2623
                                        *                              (BITS ARE NUMBERED 59 THRU 0) COMPASS     DBG=IDP  2624
                                        *                              EQUIVALENT WOULD BE--                     DBG=IDP  2625
                                        *                                  POS   (B4)    IN (X5)                 DBG=IDP  2626
                                        *                (IDPFAD) =  .NZ. IF *DAZ* IS TO UNCONDITIONALLY FORCE   DBG0002  1201
                                        *                                   OUT ADDR OF DEASSEMBLED INSTRUCTION, DBG0002  1202
                                        *                         =  .ZR. IF ADDR IS TO APPEAR ONLY IF INSTR IS  DBG0002  1203
                                        *                                   FORCED UPPER IN WORD, I.E. (B4)=60D  DBG0002  1204
                                        *                                                                        DBG=IDP  2627
                                        *         EXIT   (A5,X5)  =  UNCHANGED                                   DBG=IDP  2628
                                        *                (B4)     =  UNCHANGED                                   DBG=IDP  2629
                                        *                (X1)     =  .MI. IF INSTRUCTION DEASSEMBLED FORCES      DBG=IDP  2630
                                        *                              UPPER, ELSE .PL.                          DBG=IDP  2631
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    64
  
  
                                        *                (B5)     =  NR OF BITS DEASSEMBLED IF NO FORCE UPPER,   DBG=IDP  2632
                                        *                         =  NR OF BITS IN INSTRUCTION THAT FORCED UPPER DBG=IDP  2633
                                        *                (IDPFAD) =  +0                                          DBG0002  1205
                                        *                                                                        DBG=IDP  2634
                                        *         USES   ALL BUT A5,X5,B4                                        DBG=IDP  2635
                                        *                                                                        DBG=IDP  2636
                                        *         LOCKED (A6+1)   =  NEXT AVAILABLE *SNAPLNE* LOCATION           DBG=IDP  2637
                                        *                                                                        DBG=IDP  2638
                                        *         CALLS  COD,PRIDP,VFD                                           DBG=IDP  2639
                                                                                                                 DBG=IDP  2640
                                                                                                                 DBG=IDP  2641
                                         DAZ      SUBR               ** ENTRY/EXIT **                            DBG=IDP  2642
                                                  SB6    60                                                      DBG=IDP  2643
                                                  LE     B4,B0,*+1S17  IF POSITION COUNTER IS BAD                DBG=IDP  2644
                                                  SA1    =10H                                                    DBG=IDP  2645
                                                  SA2    IDPFAD                                                  DBG0002  1206
                                                  MX7    0                                                       DBG0002  1207
                                                  BX6    X1                                                      DBG=IDP  2646
                                                  SA7    A2          CLEAR *FORCE OUT ADDR UNCONDITIONALLY* FLAG DBG0002  1208
                                                  NZ     X2,DAZ1     IF FORCING OUT ADDR UNCONDITIONALLY         DBG0002  1209
                                                  LT     B4,B6,DAZ2  IF THIS INSTRUCTION NOT UPPER               DBG=IDP  2647
                                                                                                                 DBG=IDP  2648
                                        *         HERE IF INSTRUCTION IS UPPER, OUTPUT ADDRESS.                  DBG=IDP  2649
                                                                                                                 DBG=IDP  2650
                                         DAZ1     SB5    B4          SAVE (B4)                                   DBG0002  1210
                                                  SX1    A5                                                      DBG=IDP  2652
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (ADDR)          DBG=IDP  2653
                                                  LX6    3*CHAR                                                  DBG=IDP  2654
                                                  SB4    B5          RESTORE (B4)                                DBG=IDP  2655
                                                                                                                 DBG=IDP  2656
                                        *         BREAK OUT OP CODE.                                             DBG=IDP  2657
                                                                                                                 DBG=IDP  2658
                                         DAZ2     SA6    SNAPLNE                                                 DBG=IDP  2659
                                                  SB6    -B4                                                     DBG=IDP  2660
                                                  MX0    -6                                                      DBG=IDP  2661
                                                  SB6    60+B6+6     60-(B4) = LEFT JUST SHIFT COUNT FOR INSTRTN DBG=IDP  2662
                                                  LX5    X5,B6       (X5) = 54/OTHER STUFF, 6/OP CODE            DBG=IDP  2663
                                                  BX7    -X0*X5                                                  DBG=IDP  2664
                                                  LX5    3           (X5) = 51/OTHER STUFF,6/OP CODE,3/I         DBG=IDP  2665
                                                  MX0    -3                                                      DBG=IDP  2666
                                                  SA7    DAZ=OP                                                  DBG=IDP  2667
                                                  ZR     X7,DAZ12    IF 00B OP CODE, REST OF WORD IS DATA        DBG=IDP  2668
                                                                                                                 DBG=IDP  2669
                                        *         BREAK OUT *I* FIELD.                                           DBG=IDP  2670
                                                                                                                 DBG=IDP  2671
                                                  BX7    -X0*X5                                                  DBG=IDP  2672
                                                  LX5    3           (X5) = 48/OTHER STUFF,6/OP,3/I,3/J          DBG=IDP  2673
                                                  SX7    X7+1R0                                                  DBG=IDP  2674
                                                  SA7    A7+B1       SAVE (X7) = 1R<I>                           DBG=IDP  2675
                                                                                                                 DBG=IDP  2676
                                        *         BREAK OUT *J* FIELD.                                           DBG=IDP  2677
                                                                                                                 DBG=IDP  2678
                                                  BX7    -X0*X5                                                  DBG=IDP  2679
                                                  LX5    3           (X5) = 45/OTHER,6/OP,3/I,3/J,3/K            DBG=IDP  2680
                                                  SX7    X7+1R0                                                  DBG=IDP  2681
                                                  SA7    A7+B1       SAVE (X7) = 1R<J>                           DBG=IDP  2682
                                                                                                                 DBG=IDP  2683
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    65
  
  
                                        *         BREAK OUT *K* FIELD.                                           DBG=IDP  2684
                                                                                                                 DBG=IDP  2685
                                                  BX7    -X0*X5                                                  DBG=IDP  2686
                                                  LX5    18-3        (X5) = 30/OTHER,6/OP,3/I,3/J,18/Q           DBG=IDP  2687
                                                  SX7    X7+1R0                                                  DBG=IDP  2688
                                                  MX0    -18                                                     DBG=IDP  2689
                                                  SA7    A7+B1       SAVE (X7) = 1R<K>                           DBG=IDP  2690
                                                                                                                 DBG=IDP  2691
                                        *         BREAK OUT *Q* 18 BIT ADDRESS FIELD.                            DBG=IDP  2692
                                                                                                                 DBG=IDP  2693
                                                  BX1    -X0*X5      (X1) = 42/0,18/Q                            DBG=IDP  2694
                                                  SB5    B4          SAVE (B4)                                   DBG=IDP  2695
                                                  SB7    60-60+B4-6-3-3-3-15  (B7) = 60-((60-(B4))+6+3+3+3+15)   DBG=IDP  2696
                                                  SX7    X1                                                      DBG=IDP  2697
                                                  LX5    X5,B7       RESTORE (X5)                                DBG=IDP  2698
                                                  SA7    DAZ=ADR                                                 DBG=IDP  2699
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC-- *Q*           DBG=IDP  2700
                                                  SB4    B5          RESTORE (B4)                                DBG=IDP  2701
                                                  SB2    B2-B1                                                   DBG=IDP  2702
                                                  MX0    1                                                       DBG=IDP  2703
                                                  AX0    X0,B2                                                   DBG=IDP  2704
                                                  BX7    X0*X4       (X7) = 0L<Q>                                DBG=IDP  2705
                                                  SA7    A7+B1                                                   DBG=IDP  2706
                                                                                                                 DBG=IDP  2707
                                        *         FETCH INSTRUCTION SKELETON AND CHECK FOR LENGTH CONFLICT.      DBG=IDP  2708
                                                                                                                 DBG=IDP  2709
                                                  SA1    DAZ=OP                                                  DBG=IDP  2710
                                                  SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 DBG=IDP  2711
                                                  SB5    15                                                      DBG=IDP  2712
                                                  BX1    X5                                                      DBG=IDP  2713
                                                  PL     X2,DAZ3     IF SHORT (15 BIT) INSTRUCTION               DBG=IDP  2714
                                                  SB5    B5+B5       (B5) = 30                                   DBG=IDP  2715
                                                                                                                 DBG=IDP  2716
                                         DAZ3     LT     B4,B5,DAZ12 IF NOT ENOUGH ROOM FOR 30 BIT INSTR,        DBG=IDP  2717
                                        *                                  MUST BE DATA                          DBG=IDP  2718
                                                                                                                 DBG=IDP  2719
                                        *         CONVERT BINARY INSTRUCTION PARCEL TO OCTAL DPC.                DBG=IDP  2720
                                                                                                                 DBG=IDP  2721
                                                  RJ     VFD         VARIABLE FIELD DEFINITION                   DBG=IDP  2722
                                                  SA6    A6+B1                                                   DBG=IDP  2723
                                                  BX6    X7                                                      DBG=IDP  2724
                                                  SA6    A6+B1                                                   DBG=IDP  2725
                                                                                                                 DBG=IDP  2726
                                        *         CHECK FOR X REGISTER BRANCH INSTRUCTION.                       DBG=IDP  2727
                                                                                                                 DBG=IDP  2728
                                                  SA1    DAZ=OP                                                  DBG=IDP  2729
                                                  SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 DBG=IDP  2730
                                                  SX6    X1-03B                                                  DBG=IDP  2731
                                                  NZ     X6,DAZ4     IF NOT X REGISTER BRANCH                    DBG=IDP  2732
                                                  SA1    DAZ=I                                                   DBG=IDP  2733
                                                  SA2    DAZ=XJP+X1-1R0    (X2) = X REG BRANCH SKELETON          DBG=IDP  2734
                                                                                                                 DBG=IDP  2735
                                        *         GENERATE ...OPI....      (.=BLANK(55B))                        DBG=IDP  2736
                                                                                                                 DBG=IDP  2737
                                         DAZ4     SA1    DAZ=OPI     (X1) = ...000....   (0=00B)                 DBG=IDP  2738
                                                  MX0    -2*CHAR                                                 DBG=IDP  2739
                                                  BX6    -X0*X2      (X6) = 2R<OP>                               DBG=IDP  2740
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    66
  
  
                                                  LX6    7*CHAR-2*CHAR                                           DBG=IDP  2741
                                                  MX0    -4                                                      DBG=IDP  2742
                                                  LX2    3+4         (X2) = 56/OTHER STUFF,4/1ST DESCRIPTOR      DBG=IDP  2743
                                                  BX3    -X0*X2                                                  DBG=IDP  2744
                                                  SA4    DAZ=I-1+X3                                              DBG=IDP  2745
                                                  BX6    X1+X6       (X6) = ...OP0....   (0=00B)                 DBG=IDP  2746
                                                  LX4    5*CHAR-1*CHAR                                           DBG=IDP  2747
                                                  BX6    X6+X4       (X6) = ...OPI....                           DBG=IDP  2748
                                                                                                                 DBG=IDP  2749
                                        *         ASSEMBLE NORMAL (I,J,K) ITEMS.                                 DBG=IDP  2750
                                                                                                                 DBG=IDP  2751
                                         DAZ5     SA6    A6+B1                                                   DBG=IDP  2752
                                                  SB6    10*CHAR                                                 DBG=IDP  2753
                                                  MX6    0                                                       DBG=IDP  2754
                                                                                                                 DBG=IDP  2755
                                         DAZ6     LX2    4                                                       DBG=IDP  2756
                                                  SB6    B6-CHAR                                                 DBG=IDP  2757
                                                  BX3    -X0*X2      (X3) = DESCRIPTOR                           DBG=IDP  2758
                                                  SA4    DAZ=I-1+X3                                              DBG=IDP  2759
                                                  ZR     X3,DAZ11    IF END OF DESCRIPTOR LIST IN SKELETON       DBG=IDP  2760
                                                                                                                 DBG=IDP  2761
                                         DAZ7     MI     X4,DAZ8     IF THIS IS A CONDITIONAL ITEM               DBG=IDP  2762
                                                  LX4    X4,B6                                                   DBG=IDP  2763
                                                  BX6    X6+X4                                                   DBG=IDP  2764
                                                  GT     B6,B0,DAZ6  IF PACKING REG (X6) NOT FULL                DBG=IDP  2765
                                                  EQ     DAZ5                                                    DBG=IDP  2766
                                                                                                                 DBG=IDP  2767
                                        *         PROCESS AND ASSEMBLE CONDITONAL ITEM.                          DBG=IDP  2768
                                                                                                                 DBG=IDP  2769
                                         DAZ8     NZ     X4,DAZ9     IF *Q* 18 BIT ADDRESS                       DBG=IDP  2770
                                                                                                                 DBG=IDP  2771
                                        *         HERE TO PROCESS CONDITIONAL *B0* ASSEMBLY.                     DBG=IDP  2772
                                                                                                                 DBG=IDP  2773
                                                  LX2    4                                                       DBG=IDP  2774
                                                  BX3    -X0*X2                                                  DBG=IDP  2775
                                                  SA4    DAZ=I-1+X3                                              DBG=IDP  2776
                                                  SX7    X4-1R0                                                  DBG=IDP  2777
                                                  SX4    1RB                                                     DBG=IDP  2778
                                                  LX2    -4          RESTORE (X2)                                DBG=IDP  2779
                                                  NZ     X7,DAZ7     IF NOT *B0* REFERENCE                       DBG=IDP  2780
                                                                                                                 DBG=IDP  2781
                                        *         HERE TO IGNORE *B0* REFERENCE.                                 DBG=IDP  2782
                                                                                                                 DBG=IDP  2783
                                                  LX2    2*4         SKIP OVER *B0* AND SEPARATOR                DBG=IDP  2784
                                                  SB6    B6+CHAR                                                 DBG=IDP  2785
                                                  EQ     DAZ6                                                    DBG=IDP  2786
                                                                                                                 DBG=IDP  2787
                                        *         HERE TO PROCESS *Q* 18 BIT ADDRESS.                            DBG=IDP  2788
                                                                                                                 DBG=IDP  2789
                                         DAZ9     SA1    DAZ=ADR+1   (X1) = 0L<Q>   (ALWAYS .LE. 6 CHARS)        DBG=IDP  2790
                                                  MX0    -CHAR                                                   DBG=IDP  2791
                                                                                                                 DBG=IDP  2792
                                        *         ASSEMBLE *Q*.                                                  DBG=IDP  2793
                                                                                                                 DBG=IDP  2794
                                         DAZ10    LX1    CHAR                                                    DBG=IDP  2795
                                                  BX4    -X0*X1                                                  DBG=IDP  2796
                                                  ZR     X4,DAZ11    IF FINISHED ASSEMBLING *Q*                  DBG=IDP  2797
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    67
  
  
                                                  LX4    X4,B6                                                   DBG=IDP  2798
                                                  SB6    B6-CHAR                                                 DBG=IDP  2799
                                                  BX6    X6+X4                                                   DBG=IDP  2800
                                                  GE     B6,B0,DAZ10 IF PACKING REG (X6) NOT FULL                DBG=IDP  2801
                                                  SA6    A6+B1                                                   DBG=IDP  2802
                                                  MX6    0                                                       DBG=IDP  2803
                                                  SB6    10*CHAR-1*CHAR                                          DBG=IDP  2804
                                                  EQ     DAZ10                                                   DBG=IDP  2805
                                                                                                                 DBG=IDP  2806
                                        *         STORE FINAL WORD.                                              DBG=IDP  2807
                                                                                                                 DBG=IDP  2808
                                         DAZ11    BX1    X6                                                      DBG=IDP  2809
                                                  RJ     =XSFN       SPACE FILL NAME                             DBG=IDP  2810
                                                  SA6    A6+B1                                                   DBG=IDP  2811
                                                                                                                 DBG=IDP  2812
                                        *         GENERATE RELATIVE ADDRESS.                                     DBG=IDP  2813
                                                                                                                 DBG=IDP  2814
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  2815
                                                  SA1    DAZ=ADR                                                 DBG=IDP  2816
                                                  SA2    =10H                                                    DBG=IDP  2817
                                                  SB3    SNAPLNE+5                                               DBG=IDP  2818
                                                  SB2    A6                                                      DBG=IDP  2819
                                                  SB7    DAZ11B      (B7) = RETURN ADDRESS FOR *FRA=*            DBG=IDP  2820
                                                  SA0    B4          SAVE (B4)                                   DBG=IDP  2821
                                                  GE     B2,B3,DAZ11A IF WE DONT NEED BLANK FILL                 DBG=IDP  2822
                                                  BX6    X2                                                      DBG=IDP  2823
                                                  SA6    A6+B1                                                   DBG=IDP  2824
                                                                                                                 DBG=IDP  2825
                                         DAZ11A   SB6    30                                                      DBG=IDP  2826
                                                  MI     X1,DAZ11C   IF ADDR IS .MI. (I.E. NOT AN ADDRESS)       DBG=IDP  2827
                                                  LT     B5,B6,DAZ11C IF 15 BIT INSTRUCTION, NO RELATIVE ADDR    DBG=IDP  2828
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  2829
                                                                                                                 DBG=IDP  2830
                                         DAZ11B   SA1    A6          (X1) = XX........   .=BLANK(55B)            DBG=IDP  2831
                                        *                              X=DIFFERENT CHARS DEPENDING ON DEASSEMBLY DBG=IDP  2832
                                                  SB4    A0          RESTORE (B4)                                DBG=IDP  2833
                                                  MX0    3*CHAR                                                  DBG=IDP  2834
                                                  BX1    X0*X1       (X1) = XX.0000000   (.=BLANK(55B),0=00B)    DBG=IDP  2835
                                                  LX6    -3*CHAR                                                 DBG=IDP  2836
                                                  BX6    -X0*X6      (X6) = 000NNNNNN.   (.=BLANK(55B),0=00B)    DBG=IDP  2837
                                                  BX6    X6+X1       (X6) = XX.NNNNNN.   (.=BLANK(55B))          DBG=IDP  2838
                                                  SA6    A1                                                      DBG=IDP  2839
                                                  SX1    3RIN                                                    DBG=IDP  2840
                                                  BX6    X7+X1       (X6) = XXXXXXXIN.   (.=BLANK(55B))          DBG=IDP  2841
                                                  LX6    10*CHAR-3*CHAR                                          DBG=IDP  2842
                                                  SA6    A6+B1                                                   DBG=IDP  2843
                                         #FRA     ENDIF                                                          DBG=IDP  2844
                                                                                                                 DBG=IDP  2845
                                        *         FINAL PROCESSING AND EXIT.                                     DBG=IDP  2846
                                                                                                                 DBG=IDP  2847
                                         DAZ11C   MX6    0                                                       DBG=IDP  2848
                                                  SA6    A6+B1                                                   DBG=IDP  2849
                                                  SX0    B5                                                      DBG0002  1211
                                                  PRIDP  =XSNAPLNE                                               DBG=IDP  2851
                                                  SB5    X0                                                      DBG0002  1212
                                                  SB6    59-57                                                   DBG=IDP  2853
                                                  SA2    DAZ=OP                                                  DBG=IDP  2854
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    68
  
  
                                                  SA2    DAZ=PS+X2                                               DBG=IDP  2855
                                                  LX1    X2,B6       SET TO *FORCED UPPER(.MI.)/NOT UPPER(.PL.)* DBG=IDP  2856
                                                  EQ     EXIT.                                                   DBG=IDP  2857
                                                                                                                 DBG=IDP  2858
                                        *         HERE IF OUTPUTING REST OF WORD AS DATA.                        DBG=IDP  2859
                                                                                                                 DBG=IDP  2860
                                         DAZ12    SB5    B4          (B5) = LENGTH OF REMAINDER OF INSTR WORD    DBG=IDP  2861
                                                  SA1    A5          (X1) = INSTRUCTION WORD                     DBG=IDP  2862
                                                  RJ     VFD         VARIABLE FIELD DEFINITION                   DBG=IDP  2863
                                                  SA6    A6+B1                                                   DBG=IDP  2864
                                                  SA7    A6+B1                                                   DBG=IDP  2865
                                                  SA1    =7L   DATA                                              DBG=IDP  2866
                                                  BX6    X1                                                      DBG=IDP  2867
                                                  SA6    A7+B1                                                   DBG=IDP  2868
                                                  SX0    B5          SAVE (B5)                                   DBG0002  1213
                                                  PRIDP  =XSNAPLNE                                               DBG=IDP  2870
                                                  SB5    X0          RESTORE (B5)                                DBG0002  1214
                                                  MX2    0           SET TO *THIS IS A DATA ITEM*                DBG=IDP  2872
                                                  MX1    1           SET TO *FORCED UPPER*                       DBG=IDP  2873
                                                  EQ     EXIT.                                                   DBG=IDP  2874
                                                                                                                 DBG=IDP  2875
                                                                                                                 DBG=IDP  2876
                                         DAZ=ADR  BSSZ   1           18 BIT *Q* IN BINARY                        DBG=IDP  2877
                                                  BSSZ   1           18 BIT *Q* IN -0L- FORMAT                   DBG=IDP  2878
                                         DAZ=OPI  CON    3L   +4R                                                DBG=IDP  2879
                                         DAZ=OP   DATA   0           OP CODE FOR INSTRUCTION                     DBG=IDP  2880
                                         DAZ=I    DATA   0           *I* REGISTER PORTION OF INSTRUCTION         DBG=IDP  2881
                                         DAZ=J    DATA   0           *J* REGISTER PORTION OF INSTRUCTION         DBG=IDP  2882
                                         DAZ=K    DATA   0           *K* REGISTER PORTION OF INSTRUCTION         DBG=IDP  2883
                                         DAZ=Q    DATA   -1          FLAG TO INDICATE 18 BIT *Q*                 DBG=IDP  2884
                                                  DATA   1R+                                                     DBG=IDP  2885
                                                  DATA   1R-                                                     DBG=IDP  2886
                                                  DATA   1R*                                                     DBG=IDP  2887
                                                  DATA   1R/                                                     DBG=IDP  2888
                                                  DATA   1R,                                                     DBG=IDP  2889
                                                  DATA   1RA                                                     DBG=IDP  2890
                                                  DATA   1RB                                                     DBG=IDP  2891
                                                  DATA   -0          FLAG TO INDICATE CONDITIONAL *B0* ASSEMBLY  DBG=IDP  2892
                                                  DATA   1RX                                                     DBG=IDP  2893
                                                  DATA   1R                                                      DBG=IDP  2894
                                         INST     SPACE  4,8                                                     DBG=IDP  2895
                                        **        INST - MACRO TO GENERATE INSTRUCTION SKELETONS.                DBG=IDP  2896
                                        *         GENERATES TABLE OF INSTRUCTION SKELETONS USED BY *PIG* TO      DBG=IDP  2897
                                        *                CONVERT INSTRUCTIONS TO HUMAN-READABLE FORM FOR THE     DBG=IDP  2898
                                        *                OBJECT CODE LISTING.                                    DBG=IDP  2899
                                        *                                                                        DBG=IDP  2900
                                        *         INST   (KEY),BJMP,FORCE,IJJ                                    DBG=IDP  2901
                                        *                                                                        DBG=IDP  2902
                                        *         *KEY*  = INSTRUCTION DESCRIPTOR.  EACH CHARACTER OF THE *KEY*  DBG=IDP  2903
                                        *                  HAS MEANING AS FOLLOWS --                             DBG=IDP  2904
                                        *                            I   I-PORTION OF INSTRUCTION                DBG=IDP  2905
                                        *                            J   J-PORTION OF INSTRUCTION                DBG=IDP  2906
                                        *                            K   K-PORTION OF INSTRUCTION (3 BITS ONLY)  DBG=IDP  2907
                                        *                            Q   18-BIT *K* ADDRESS FIELD (MUST BE LAST) DBG=IDP  2908
                                        *                            C   OUTPUT A *B* IF THE NEXT REGISTER IS    DBG=IDP  2909
                                        *                                            NOT A ZERO,                 DBG=IDP  2910
                                        *                                            ELSE, SKIP THE NEXT 2 ITEMS DBG=IDP  2911
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    69
  
  
                                        *                            + - * / A B X , AND BLANK ALL STAND FOR     DBG=IDP  2912
                                        *                                            THEMSELVES.                 DBG=IDP  2913
                                        *         *BJMP* = NON-EMPTY IF THIS A *B-REGISTER* JUMP INSTRUCTION.    DBG=IDP  2914
                                        *                            (04 THRU 07 INSTRUCTION.)                   DBG=IDP  2915
                                        *         *FORCE*= THIS INSTRUCTION FORCES THE NEXT INSTRUCTION UPPER.   DBG=IDP  2916
                                        *         *COPY* = COPY *J* INTO *K*.                                    DBG=IDP  2917
                                                                                                                 DBG=IDP  2918
                                         #DAZ     IF     -DEF,DAZ=PS                                             DBG=IDP  2919
                                         P.COPY   =      2*CHAR                                                  DBG=IDP  2920
                                                  NOREF  D,L                                                     DBG=IDP  2921
                                                                                                                 DBG=IDP  2922
                                                                                                                 DBG=IDP  2923
                                         INST     MACRO  KEY,BJMP,FORCE,IJJ                                      DBG=IDP  2924
                                         A        MICRO  3,1,=KEY=                                               DBG=IDP  2925
                                         B        MICRO  5,,=KEY=                                                DBG=IDP  2926
                                         B        MICRO  1,,="A""B"=                                             DBG=IDP  2927
                                         C        MICCNT B                                                       DBG=IDP  2928
                                         D        SET    0                                                       DBG=IDP  2929
                                         L        SET    0                                                       DBG=IDP  2930
                                         A        MICRO  C+3,1,=KEY=                                             DBG=IDP  2931
                                                  IFC    EQ,="A"=Q=,1                                            DBG=IDP  2932
                                         L        SET    L+4                                                     DBG=IDP  2933
                                                  IFC    NE,,BJMP,,,1                                            DBG=IDP  2934
                                         L        SET    L+2                                                     DBG=IDP  2935
                                                  IFC    NE,,FORCE,,,1                                           DBG=IDP  2936
                                         L        SET    L+1                                                     DBG=IDP  2937
                                                  VFD    3/L                                                     DBG=IDP  2938
                                        .1        DUP    C                                                       DBG=IDP  2939
                                         D        SET    D+1                                                     DBG=IDP  2940
                                         A        MICRO  D,1,="B"=                                               DBG=IDP  2941
                                         A        MICRO  2*1R"A"-1,2,/101112-D-E-F-G-H010203-L-M-N-O-P04-R-S-T-U DBG=IDP  2942
                                        ,-V-W13-Y-Z-0-1-2-3-4-5-6-7-8-905060708-(-)-$-=1409/                     DBG=IDP  2943
                                                  VFD    4/"A"                                                   DBG=IDP  2944
                                        .1        ENDD                                                           DBG=IDP  2945
                                                  IFLE   $,2*6-1+4,1                                             DBG=IDP  2946
                                         8        ERR    INST - DESCRIPTOR (KEY) IS TOO LONG                     DBG=IDP  2947
                                                  POS    P.COPY+1                                                DBG=IDP  2948
                                         A        MICRO  1,2, KEY                                                DBG=IDP  2949
                                                  VFD    1/IJJ,12/2R"A"                                          DBG=IDP  2950
                                         INST     ENDM                                                           DBG=IDP  2951
                                         DAZ=PS   SPACE  4,8                                                     DBG=IDP  2952
                                        **        DAZ=PS - INSTRUCTION SKELETON TABLES FOR *DAZ*.                DBG=IDP  2953
                                                                                                                 DBG=IDP  2954
                                                                                                                 DBG=IDP  2955
                                         DAZ=PS   INST   (PS  Q)               00    (FAKE)                      DBG=IDP  2956
                                                  INST   (RJ  Q),,1            01                                DBG=IDP  2957
                                                  INST   (JP  CI+Q),,1         02                                DBG=IDP  2958
                                                  INST   (JXI XJ,Q)            03I  (FAKE)                       DBG=IDP  2959
                                         DAZ=EQ   INST   (EQ  CI,CJ,Q),1       04                                DBG=IDP  2960
                                                  INST   (NE  CI,CJ,Q),1       05                                DBG=IDP  2961
                                                  INST   (GE  BI,CJ,Q),1       06                                DBG=IDP  2962
                                                  INST   (LT  BI,CJ,Q),1       07                                DBG=IDP  2963
                                                                                                                 DBG=IDP  2964
                                                  INST   (BXI XJ),,,1          10                                DBG=IDP  2965
                                                  INST   (BXI XJ*XK)           11                                DBG=IDP  2966
                                                  INST   (BXI XJ+XK)           12                                DBG=IDP  2967
                                                  INST   (BXI XJ-XK)           13                                DBG=IDP  2968
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    70
  
  
                                                  INST   (BXI -XJ),,,1         14                                DBG=IDP  2969
                                                  INST   (BXI -XK*XJ)          15                                DBG=IDP  2970
                                                  INST   (BXI -XK+XJ)          16                                DBG=IDP  2971
                                                  INST   (BXI -XJ-XK)          17                                DBG=IDP  2972
                                                                                                                 DBG=IDP  2973
                                                  INST   (LXI JKB)             20                                DBG=IDP  2974
                                                  INST   (AXI JKB)             21                                DBG=IDP  2975
                                                  INST   (LXI CJ,XK)           22                                DBG=IDP  2976
                                                  INST   (AXI CJ,XK)           23                                DBG=IDP  2977
                                                  INST   (NXI CJ,XK)           24                                DBG=IDP  2978
                                                  INST   (ZXI CJ,XK)           25                                DBG=IDP  2979
                                                  INST   (UXI CJ,XK)           26                                DBG=IDP  2980
                                                  INST   (PXI CJ,XK)           27                                DBG=IDP  2981
                                                                                                                 DBG=IDP  2982
                                                  INST   (FXI XJ+XK)           30                                DBG=IDP  2983
                                                  INST   (FXI XJ-XK)           31                                DBG=IDP  2984
                                                  INST   (DXI XJ+XK)           32                                DBG=IDP  2985
                                                  INST   (DXI XJ-XK)           33                                DBG=IDP  2986
                                                  INST   (RXI XJ+XK)           34                                DBG=IDP  2987
                                                  INST   (RXI XJ-XK)           35                                DBG=IDP  2988
                                                  INST   (IXI XJ+XK)           36                                DBG=IDP  2989
                                                  INST   (IXI XJ-XK)           37                                DBG=IDP  2990
                                                                                                                 DBG=IDP  2991
                                                  INST   (FXI XJ*XK)           40                                DBG=IDP  2992
                                                  INST   (RXI XJ*XK)           41                                DBG=IDP  2993
                                                  INST   (DXI XJ*XK)           42                                DBG=IDP  2994
                                                  INST   (MXI JKB)             43                                DBG=IDP  2995
                                                  INST   (FXI XJ/XK)           44                                DBG=IDP  2996
                                                  INST   (RXI XJ/XK)           45                                DBG=IDP  2997
                                                  INST   (NO  IJKB)            46                                DBG=IDP  2998
                                                  INST   (CXI XK),,,1          47                                DBG=IDP  2999
                                                                                                                 DBG=IDP  3000
                                                  INST   (SAI AJ+Q)            50                                DBG=IDP  3001
                                                  INST   (SAI CJ+Q)            51                                DBG=IDP  3002
                                                  INST   (SAI XJ+Q)            52                                DBG=IDP  3003
                                                  INST   (SAI CK+XJ)           53                                DBG=IDP  3004
                                                  INST   (SAI CK+AJ)           54                                DBG=IDP  3005
                                                  INST   (SAI AJ-BK)           55                                DBG=IDP  3006
                                                  INST   (SAI CK+BJ)           56                                DBG=IDP  3007
                                                  INST   (SAI -BK+BJ)          57                                DBG=IDP  3008
                                                                                                                 DBG=IDP  3009
                                                  INST   (SBI AJ+Q)            60                                DBG=IDP  3010
                                                  INST   (SBI CJ+Q)            61                                DBG=IDP  3011
                                                  INST   (SBI XJ+Q)            62                                DBG=IDP  3012
                                                  INST   (SBI CK+XJ)           63                                DBG=IDP  3013
                                                  INST   (SBI CK+AJ)           64                                DBG=IDP  3014
                                                  INST   (SBI AJ-BK)           65                                DBG=IDP  3015
                                                  INST   (SBI CK+BJ)           66                                DBG=IDP  3016
                                                  INST   (SBI -BK+BJ)          67                                DBG=IDP  3017
                                                                                                                 DBG=IDP  3018
                                                  INST   (SXI AJ+Q)            70                                DBG=IDP  3019
                                                  INST   (SXI CJ+Q)            71                                DBG=IDP  3020
                                                  INST   (SXI XJ+Q)            72                                DBG=IDP  3021
                                                  INST   (SXI CK+XJ)           73                                DBG=IDP  3022
                                                  INST   (SXI CK+AJ)           74                                DBG=IDP  3023
                                                  INST   (SXI AJ-BK)           75                                DBG=IDP  3024
                                                  INST   (SXI CK+BJ)           76                                DBG=IDP  3025
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    71
  
  
                                                  INST   (SXI -BK+BJ)          77                                DBG=IDP  3026
                                                                                                                 DBG=IDP  3027
                                         DAZ=XJP  INST   (ZR  XJ,Q)            030                               DBG=IDP  3028
                                                  INST   (NZ  XJ,Q)            031                               DBG=IDP  3029
                                                  INST   (PL  XJ,Q)            032                               DBG=IDP  3030
                                                  INST   (MI  XJ,Q)            033                               DBG=IDP  3031
                                                  INST   (IR  XJ,Q)            034                               DBG=IDP  3032
                                                  INST   (OR  XJ,Q)            035                               DBG=IDP  3033
                                                  INST   (DF  XJ,Q)            036                               DBG=IDP  3034
                                                  INST   (ID  XJ,Q)            037                               DBG=IDP  3035
                                         #DAZ     ENDIF                                                          DBG=IDP  3036
                                         DOD      SPACE  4,8                                                     DBG0002  1215
                                        **        DOD - DUMP CENTRAL MEMORY -- OCTAL AND DPC.                    DBG0002  1216
                                        *                                                                        DBG0002  1217
                                        *                                                                        DBG0002  1218
                                        *                CONVERTS CM WORDS TO OCTAL DPC AND ALSO DUMPS THE       DBG0002  1219
                                        *         UNCONVERTED DPC EQUIVALENT IN THE FOLLOWING FORMAT--           DBG0002  1220
                                        *     COL 1         1         1         1         1         1            DBG0002  1221
                                        *         ..NNNNNN..CCCCCCCCCCCCCCCCCCCC..........UUUUUUUUUU             DBG0002  1222
                                        *         N = ADDR OF WORD DUMPED                                        DBG0002  1223
                                        *         C = CONVERTED CM WORD                                          DBG0002  1224
                                        *         U = UNCONVERTED CM WORD. NOTE--TRAILING COLONS ARE TREATED AS  DBG0002  1225
                                        *               AN EOL AND THEREFORE WILL NOT APPEAR.                    DBG0002  1226
                                        *         . = BLANK(55B)                                                 DBG0002  1227
                                        *                                                                        DBG0002  1228
                                        *         ENTRY  (X2) = 18/0,21/LEV OF IND ADDR,21/FWA                   DBG0002  1229
                                        *                (X3) = 18/0,21/LEV OF IND ADDR,21/LWA                   DBG0002  1230
                                        *                       NOTE-- (X3) IS OPTIONAL                          DBG0002  1231
                                        *                (X4) = 18/0,21/LEV OF IND ADDR,21/LEN                   DBG0002  1232
                                        *                         NOTE-- IF LEN = 0, DMP IS FROM FWA TO LWA,     DBG0002  1233
                                        *                         ELSE DMP IS FROM FWA TO FWA+LEN-1              DBG0002  1234
                                        *                                                                        DBG0002  1235
                                        *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN IS BAD, ELSE .PL.        DBG0002  1236
                                        *                                                                        DBG0002  1237
                                        *         USES   ALL BUT B4        (INCLUDES ALL CALLS)                  DBG0002  1238
                                        *                                                                        DBG0002  1239
                                        *         CALLS  COD,FLL,PRIDP,WOD                                       DBG0002  1240
                                                                                                                 DBG0002  1241
                                                                                                                 DBG0002  1242
                                         DOD      SUBR               ** ENTRY/EXIT **                            DBG0002  1243
                                                  RJ     FLL         CHECK FWA,LWA, AND LENGTH                   DBG0002  1244
                                                  MI     B2,EXIT.    IF FWA,LWA, OR LEN IS BAD                   DBG0002  1245
                                                                                                                 DBG0002  1246
                                        *         HERE TO BUILD SNAP OUTPUT LINE.                                DBG0002  1247
                                                                                                                 DBG0002  1248
                                         DOD2     SA1    AP=FWA      (X1) = ADDR OF NEXT WORD TO DUMP            DBG0002  1249
                                                  SA2    A1+B1       (X2) = LWA TO DUMP                          DBG0002  1250
                                                  IX3    X2-X1                                                   DBG0002  1251
                                                  SX6    X1+B1                                                   DBG0002  1252
                                                  SB2    B0          SET TO *NO ERROR OCCURRED*                  DBG0002  1253
                                                  MI     X3,EXIT.    IF FINISHED                                 DBG0002  1254
                                                  SA6    A1                                                      DBG0002  1255
                                                  SA0    X1                                                      DBG0002  1256
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG0002  1257
                                                  LX6    8*CHAR-6*CHAR                                           DBG0002  1258
                                                  SA6    SNAPLNE                                                 DBG0002  1259
                                                  SA1    A0          (X1) = NEXT WORD TO BE DUMPED               DBG0002  1260
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    72
  
  
                                                  RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC     DBG0002  1261
                                                  SA6    A6+B1                                                   DBG0002  1262
                                                  SA7    A6+B1                                                   DBG0002  1263
                                                  SA1    =10H                                                    DBG0002  1264
                                                  SA2    A0                                                      DBG0002  1265
                                                  BX6    X1                                                      DBG0002  1266
                                                  LX7    X2                                                      DBG0002  1267
                                                  SA6    A7+B1                                                   DBG0002  1268
                                                  SA7    A6+B1                                                   DBG0002  1269
                                                  MX6    0                                                       DBG0002  1270
                                                  SA6    A7+B1       MARK EOL                                    DBG0002  1271
                                                  PRIDP  SNAPLNE                                                 DBG0002  1272
                                                  EQ     DOD2                                                    DBG0002  1273
                                         FRZ      SPACE  4,8                                                     DBG0006    34
                                        **        FRZ - FREEZE INTERACTIVE SESSION.                              DBG0006    35
                                        *                                                                        DBG0006    36
                                        *                                                                        DBG0006    37
                                        *         PERFORMS A CHECKPOINT OF AN INTERACTIVE SESSION BY             DBG0006    38
                                        *         WRITING THE CURRENT CORE IMAGE TO LFN *F.FRZ* IN A             DBG0006    39
                                        *         SPECIAL FORMAT.                                                DBG0006    40
                                        *                                                                        DBG0006    41
                                        *         *F.FRZ* FORMAT --                                              DBG0006    42
                                        *                                                                        DBG0006    43
                                        *           RECORD 1 CONSISTS OF A LOADER ABSOLUTE BINARY, CALLED *IFR*  DBG0006    44
                                        *           (IDP FREEZE RESTART), THAT WHEN EXECUTED WILL READ THE       DBG0006    45
                                        *           FROZEN HOST BACK INTO CORE (OVERLAYING ITSELF), AND          DBG0006    46
                                        *           THEN REINVOKE *IDP*.                                         DBG0006    47
                                        *                                                                        DBG0006    48
                                        *           RECORD 2 CONTAINS THE CORE IMAGE OF THE FROZEN HOST.         DBG0006    49
                                        *                                                                        DBG0006    50
                                        *         SEE ROUTINE *IFR* IN DATA SECTION BEGINNING AT ADDR *FW.IFR*.  DBG0006    51
                                        *                                                                        DBG0006    52
                                        *         ENTRY  NONE                                                    DBG0006    53
                                        *                                                                        DBG0006    54
                                        *         EXIT   *F.FRZ* WRITTEN                                         DBG0006    55
                                        *                                                                        DBG0006    56
                                        *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)              DBG0006    57
                                        *                                                                        DBG0006    58
                                        *         CALLS  MEMORY,REWIND,WRITER,WRITEW                             DBG0006    59
                                                                                                                 DBG0006    60
                                                                                                                 DBG0006    61
                                         FRZ      SUBR               ** ENTRY/EXIT **                            DBG0006    62
                                                                                                                 DBG0006    63
                                        *         FIND OUT ACTUAL FIELD LENGTH SCM (AFLS) SO THAT *IFR*          DBG0006    64
                                        *         CAN KNOW HOW MUCH IS NEEDED TO RESTART.  IF *CMM* IS ACTIVE,   DBG0006    65
                                        *         SAVE THIS KNOWLEDGE IN (CMMFLG) SO THAT *IFR* CAN KNOW         DBG0006    66
                                        *         TO INDICATE SO TO OPERATING SYSTEM.                            DBG0006    67
                                                                                                                 DBG0006    68
                                                  SA1    RA.LWP                                                  DBG0006    69
                                                  BX6    X6-X6                                                   DBG0006    70
                                                  SX7    X1          (X7) = .MI. IF *CMM* ACTIVE, ELSE .PL.      DBG0006    71
                                                  SA6    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                            DBG0006    72
                                                  SA7    FW.IFR+/IFR/CMMFLG-RA.ORG                               DBG0006    73
                                                  MEMORY SCM,A6,RCL                                              DBG0006    74
                                                                                                                 DBG0006    75
                                        *         NEED TO SAVE 2 SPECIAL WORDS BECAUSE WE ARE ONLY WRITING       DBG0006    76
                                        *         FROM *RA.MTR+1* TO FL-1 TO *F.FRZ*.                            DBG0006    77
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    73
  
  
                                        *           1. SAVE (RA.SSW) BECAUSE APPARENTLY *CIO* WILL SOMETIMES     DBG0006    78
                                        *              NOT ALLOW ONE TO HAVE *RA.MTR* IN CIO BUFFER AREA.        DBG0006    79
                                        *           2. SAVE WORD AT FL-1 BECAUSE LWA+1 OF CIO BUFFER IS NOT      DBG0006    80
                                        *              WRITTEN.                                                  DBG0006    81
                                                                                                                 DBG0006    82
                                                  SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                            DBG0006    83
                                                  SA2    RA.SSW                                                  DBG0006    84
                                                  SA3    X1-1                                                    DBG0006    85
                                                  BX6    X2                                                      DBG0006    86
                                                  LX7    X3                                                      DBG0006    87
                                                  SA6    FW.IFR+/IFR/SVWDS-RA.ORG                                DBG0006    88
                                                  SA7    A6+B1                                                   DBG0006    89
                                                                                                                 DBG0006    90
                                        *         SET UP AND *OPEN* *F.FRZ* FET FOR RECORD 1 WRITE.              DBG0006    91
                                        *         FIRST, THOUGH, WE NEED TO SET THE *COMPLETE* BIT               DBG0006    92
                                        *         IN *F.FRZ* FET BECAUSE IF WE ARE NOW FREEZING AN               DBG0006    93
                                        *         INTERACTIVE SESSION THAT WAS PREVIOUSLY FROZEN AND UNFROZEN,   DBG0006    94
                                        *         THEN *F.FRZ* IS MARKED AS STILL BEING ACTIVE.  THIS HAPPENS    DBG0006    95
                                        *         BECAUSE WHEN THE PREVIOUS SESSION WAS FROZEN, *F.FRZ* WAS      DBG0006    96
                                        *         USED TO WRITE ITSELF OUT, AND WAS THEREFORE STILL ACTIVE WHEN  DBG0006    97
                                        *         CORE IMAGE WAS WRITTEN TO DISK.                                DBG0006    98
                                                                                                                 DBG0006    99
                                                  SA1    F.FRZ                                                   DBG0006   100
                                                  MX2    -1                                                      DBG0006   101
                                                  BX6    -X2+X1      SET COMPLETE BIT                            DBG0006   102
                                                  SA6    A1                                                      DBG0006   103
                                                                                                                 DBG0006   104
                                                  SX6    FW.IFR                                                  DBG0006   105
                                                  SX7    FW.IFR+L.IFR-1                                          DBG0006   106
                                                  SA6    A6+B1       FIRST  = FW.IFR                             DBG0006   107
                                                  SA7    A6+B1       IN     = FW.IFR+L.IFR-1                     DBG0006   108
                                                  SA6    A7+B1       OUT    = FW.IFR                             DBG0006   109
                                                  SX7    X7+B1                                                   DBG0006   110
                                                  SA7    A6+B1       LIMIT  = FW.IFR+L.IFR                       DBG0006   111
                                                                                                                 DBG0006   112
                                                  OPEN   A1,,RCL                                                 DBG0006   113
                                                  SA1    F.FRZ+4     (X1) = LIMIT                                DBG0006   114
                                                  SX6    X1-1                                                    DBG0006   115
                                                  SA6    F.FRZ+2     IN = LIMIT-1                                DBG0006   116
                                                                                                                 DBG0006   117
                                        *         WRITE INTERACTIVE FREEZE RESTART PROGRAM, *IFR*,               DBG0006   118
                                        *         TO RECORD 1 OF *F.FRZ*.                                        DBG0006   119
                                                                                                                 DBG0006   120
                                                  WRITER F.FRZ,,RCL                                              DBG0006   121
                                                                                                                 DBG0006   122
                                        *         SET UP *F.FRZ* FET SO THAT BUFFER IS ALL OF FL.                DBG0006   123
                                                                                                                 DBG0006   124
                                                  SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                            DBG0006   125
                                                  SX6    RA.MTR+1    (X6) = FIRST = OUT                          DBG0006   126
                                                  LX1    30                                                      DBG0006   127
                                                  SX7    X1-2        (X7) = IN = AFLS-2 (FOR SAFETY)             DBG0006   128
                                                  SA6    F.FRZ+1     FIRST = RA.MTR+1                            DBG0006   129
                                                  SA7    A6+B1       IN =AFLS-2                                  DBG0006   130
                                                  SA6    A7+B1       OUT = RA.MTR+1                              DBG0006   131
                                                  SX7    X7+B1       (X7) = LIMIT = AFLS-1 (FOR SAFETY)          DBG0006   132
                                                  SA7    A6+B1       LIMIT = AFLS-1                              DBG0006   133
                                                                                                                 DBG0006   134
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    74
  
  
                                        *         WRITE ALL OF SCM TO *F.FRZ/RECORD 2*.                          DBG0006   135
                                                                                                                 DBG0006   136
                                                  WRITER F.FRZ,,RCL                                              DBG0006   137
                                                  EQ     EXIT.                                                   DBG0006   138
                                         IST      SPACE  4,8                                                     DBG=IDP  3037
                                        **        IST - INITIALIZE *SET* TABLE.                                  DBG=IDP  3038
                                        *                                                                        DBG=IDP  3039
                                        *                                                                        DBG=IDP  3040
                                        *                THIS ROUTINE SETS UP THE DEFAULT *SET* TABLE VALUES.    DBG=IDP  3041
                                        *                                                                        DBG=IDP  3042
                                        *         ENTRY  NONE                                                    DBG=IDP  3043
                                        *                                                                        DBG=IDP  3044
                                        *         EXIT   NONE                                                    DBG=IDP  3045
                                        *                                                                        DBG=IDP  3046
                                        *         USES   ALL                                                     DBG=IDP  3047
                                        *                                                                        DBG=IDP  3048
                                        *         CALLS  ADZ                                                     DBG=IDP  3049
                                                                                                                 DBG=IDP  3050
                                                                                                                 DBG=IDP  3051
                                         IST      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3052
                                                  SB6    IDPSET      (B6) = FWA OF IDP *SET* TABLE               DBG=IDP  3053
                                                  SA1    =4LTEMP                                                 DBG=IDP  3054
                                                  SX6    IDPTMP                                                  DBG=IDP  3055
                                                  BX6    X1+X6       (X6) = 42/0LTEMP,18/FWA OF TEMP AREA        DBG=IDP  3056
                                                  RJ     ADZ         ADD WORD TO IDP TABLE                       DBG=IDP  3057
                                                  SX7    1RP                                                     DBG=IDP  3058
                                                  SX6    IDPPREG                                                 DBG=IDP  3059
                                                  LX7    10*CHAR-1*CHAR                                          DBG=IDP  3060
                                                  BX6    X7+X6       (X6) = 42/0LP, 18/ADDR OF PSEUDO P REGISTER DBG=IDP  3061
                                                  RJ     ADZ         ADD WORD TO IDP TABLE                       DBG=IDP  3062
                                                  EQ     EXIT.                                                   DBG=IDP  3063
                                         LBT      SPACE  4,8                                                     DBG=IDP  3064
                                        **        LBT - LIST BREAK TABLE.                                        DBG=IDP  3065
                                        *                                                                        DBG=IDP  3066
                                        *                                                                        DBG=IDP  3067
                                        *                LISTS THE CONTENTS OF THE PARALLEL BREAK TABLES         DBG=IDP  3068
                                        *         *IDPBA/IDPBC* IN THREE FORMS, DEPENDING ON THE TYPE OF BREAK-- DBG=IDP  3069
                                        *                                                                        DBG=IDP  3070
                                        *     COL 1         1         1         1        (.=BLANK(55B))          DBG=IDP  3071
                                        *         .BREAK.AT.NNNNNN.IN.XXXXXXX                                    DBG=IDP  3072
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             DBG=IDP  3073
                                        *                                                                        DBG=IDP  3074
                                        *         .BRPL..AT.NNNNNN.IN.XXXXXXX....A1.NNNNNN                       DBG=IDP  3075
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             DBG=IDP  3076
                                        *                                                                        DBG=IDP  3077
                                        *         .BREQ..AT.NNNNNN.IN.XXXXXXX....A1.NNNNNN.A2.NNNNNN             DBG=IDP  3078
                                        *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN             DBG=IDP  3079
                                        *                                                                        DBG=IDP  3080
                                        *         ENTRY  NONE                                                    DBG=IDP  3081
                                        *                                                                        DBG=IDP  3082
                                        *         EXIT   NONE                                                    DBG=IDP  3083
                                        *                                                                        DBG=IDP  3084
                                        *         USES   ALL BUT A0                                              DBG=IDP  3085
                                        *                                                                        DBG=IDP  3086
                                        *         CALLS  COD,FRA=,PRIDP,SFN                                      DBG=IDP  3087
                                                                                                                 DBG=IDP  3088
                                                                                                                 DBG=IDP  3089
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    75
  
  
                                         LBT      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3090
                                                                                                                 DBG=IDP  3091
                                        *         SET UP FOR 1ST ENTRY.                                          DBG=IDP  3092
                                                                                                                 DBG=IDP  3093
                                                  SA5    IDPBA                                                   DBG=IDP  3094
                                                  EQ     LBT2                                                    DBG=IDP  3095
                                                                                                                 DBG=IDP  3096
                                        *         MAIN LOOP.                                                     DBG=IDP  3097
                                                                                                                 DBG=IDP  3098
                                         LBT1     SA5    A5+B1                                                   DBG=IDP  3099
                                                                                                                 DBG=IDP  3100
                                         LBT2     ZR     X5,EXIT.    IF FINISHED LISTING ALL BREAKS              DBG=IDP  3101
                                                  SX6    X5+B1                                                   DBG=IDP  3102
                                                  ZR     X6,LBT1     IF THIS ENTRY AVAILABLE (NOT A BREAK)       DBG=IDP  3103
                                                                                                                 DBG=IDP  3104
                                        *         ASSEMBLE * BREAK AT *.                                         DBG=IDP  3105
                                                                                                                 DBG=IDP  3106
                                                  SX4    X5          (X4) = BREAK ADDRESS                        DBG=IDP  3107
                                                  LX5    6                                                       DBG=IDP  3108
                                                  MX0    -6                                                      DBG=IDP  3109
                                                  BX6    -X0*X5      (X6) = BREAK TYPE CODE                      DBG=IDP  3110
                                                  MX0    7*CHAR                                                  DBG=IDP  3111
                                                  SA1    IDPKBR+X6                                               DBG=IDP  3112
                                                  SA6    IDPBTC                                                  DBG=IDP  3113
                                                  BX1    X0*X1                                                   DBG=IDP  3114
                                                  RJ     =XSFN       SPACE FILL NAME                             DBG=IDP  3115
                                                  LX6    -CHAR                                                   DBG=IDP  3116
                                                  BX6    X0*X6                                                   DBG=IDP  3117
                                                  SX7    3RAT                                                    DBG=IDP  3118
                                                  BX6    X6+X7       (X6) = .BREAK.AT.   (.=BLANK(55B))          DBG=IDP  3119
                                                  SA6    SNAPLNE                                                 DBG=IDP  3120
                                                                                                                 DBG=IDP  3121
                                        *         ASSEMBLE *NNNNNN IN XXXXXXX   *.                               DBG=IDP  3122
                                                                                                                 DBG=IDP  3123
                                                  SX1    X4                                                      DBG=IDP  3124
                                                                                                                 DBG=IDP  3125
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  3126
                                                  SB7    LBT3        (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP  3127
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  3128
                                                                                                                 DBG=IDP  3129
                                         LBT3     BSS    0                                                       DBG=IDP  3130
                                                                                                                 DBG=IDP  3131
                                         #FRA     ELSE                                                           DBG=IDP  3132
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3133
                                                  BX6    X4                                                      DBG=IDP  3134
                                                  MX7    0                                                       DBG=IDP  3135
                                         #FRA     ENDIF                                                          DBG=IDP  3136
                                                                                                                 DBG=IDP  3137
                                                  SA6    A6+B1                                                   DBG=IDP  3138
                                                  SA7    A6+B1                                                   DBG=IDP  3139
                                                  SA2    IDPBTC                                                  DBG=IDP  3140
                                                  ZR     X2,LBT5     IF *BREAK ADDR,LL,UL,INC* FORM              DBG=IDP  3141
                                                  BX1    X7                                                      DBG=IDP  3142
                                                  RJ     SFN         SPACE FILL NAME                             DBG=IDP  3143
                                                  SA6    A6+B1       RE-STORE BLANK FILLED *XXXXXXX   *          DBG=IDP  3144
                                                                                                                 DBG=IDP  3145
                                        *         ASSEMBLE * A1 NNNNNN*.                                         DBG=IDP  3146
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    76
  
  
                                                                                                                 DBG=IDP  3147
                                                  LX5    18                                                      DBG=IDP  3148
                                                  SX1    X5                                                      DBG=IDP  3149
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3150
                                                  SA2    IDPBTC                                                  DBG=IDP  3151
                                                  SX1    3R A1                                                   DBG=IDP  3152
                                                  MX0    -7*CHAR                                                 DBG=IDP  3153
                                                  BX6    -X0*X6                                                  DBG=IDP  3154
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3155
                                                  BX1    X0*X1                                                   DBG=IDP  3156
                                                  BX6    X6+X1       (X6) = .A1.NNNNNN   (.=BLANK(55B))          DBG=IDP  3157
                                                  SA6    A6+B1                                                   DBG=IDP  3158
                                                  SX2    X2-BTC=EQ                                               DBG=IDP  3159
                                                  MI     X2,LBT4     IF *BRPL ADDR,A1,LL,UL,INC* FORM            DBG=IDP  3160
                                                                                                                 DBG=IDP  3161
                                        *         ASSEMBLE * A2 NNNNNN*.                                         DBG=IDP  3162
                                                                                                                 DBG=IDP  3163
                                                  LX5    18                                                      DBG=IDP  3164
                                                  SX1    X5                                                      DBG=IDP  3165
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3166
                                                  SX1    3R A2                                                   DBG=IDP  3167
                                                  MX0    -7*CHAR                                                 DBG=IDP  3168
                                                  BX6    -X0*X6                                                  DBG=IDP  3169
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3170
                                                  BX1    X0*X1                                                   DBG=IDP  3171
                                                  BX6    X6+X1       (X6) = .A2.NNNNNN   (.=BLANK(55B))          DBG=IDP  3172
                                                  SA6    A6+B1                                                   DBG=IDP  3173
                                                                                                                 DBG=IDP  3174
                                         LBT4     MX6    0                                                       DBG=IDP  3175
                                                  SA6    A6+B1       MARK EOL                                    DBG=IDP  3176
                                                                                                                 DBG=IDP  3177
                                         LBT5     PRIDP  SNAPLNE                                                 DBG=IDP  3178
                                                                                                                 DBG=IDP  3179
                                        *         ASSEMBLE *           LL NNNNN *.                               DBG=IDP  3180
                                                                                                                 DBG=IDP  3181
                                                  SA1    =10H                                                    DBG=IDP  3182
                                                  SB7    A5-IDPBA                                                DBG=IDP  3183
                                                  SB6    B7+B7                                                   DBG=IDP  3184
                                                  SA2    IDPBC+B6+1  (X2) = 2ND WORD OF *IDPBC* ENTRY            DBG=IDP  3185
                                                  BX6    X1                                                      DBG=IDP  3186
                                                  BX5    X2                                                      DBG=IDP  3187
                                                  LX5    15                                                      DBG=IDP  3188
                                                  MX0    -15                                                     DBG=IDP  3189
                                                  BX1    -X0*X5                                                  DBG=IDP  3190
                                                  SA6    SNAPLNE                                                 DBG=IDP  3191
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3192
                                                  SX1    3R LL                                                   DBG=IDP  3193
                                                  LX4    -4*CHAR     LEFT JUSTIFY NR TO BIT 35                   DBG=IDP  3194
                                                  BX6    X4          (X6) = ....NNNNN.   (.=BLANK(55B))          DBG=IDP  3195
                                                  MX0    -7*CHAR                                                 DBG=IDP  3196
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3197
                                                  BX1    X0*X1                                                   DBG=IDP  3198
                                                  BX6    -X0*X6                                                  DBG=IDP  3199
                                                  BX6    X6+X1       (X6) = .LL.NNNNN.   (.=BLANK(55B))          DBG=IDP  3200
                                                  SA6    A6+B1                                                   DBG=IDP  3201
                                                                                                                 DBG=IDP  3202
                                        *         ASSEMBLE * UL NNNNN *.                                         DBG=IDP  3203
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    77
  
  
                                                                                                                 DBG=IDP  3204
                                                  LX5    15                                                      DBG=IDP  3205
                                                  MX0    -15                                                     DBG=IDP  3206
                                                  BX1    -X0*X5      (X1) = UL                                   DBG=IDP  3207
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3208
                                                  SX1    3R UL                                                   DBG=IDP  3209
                                                  LX4    -4*CHAR                                                 DBG=IDP  3210
                                                  BX6    X4          (X6) = ....NNNNN.   (.=BLANK(55B))          DBG=IDP  3211
                                                  MX0    -7*CHAR                                                 DBG=IDP  3212
                                                  BX6    -X0*X6                                                  DBG=IDP  3213
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3214
                                                  BX1    X0*X1                                                   DBG=IDP  3215
                                                  BX6    X6+X1       (X6) = .UL.NNNNN.   (.=BLANK(55B))          DBG=IDP  3216
                                                  SA6    A6+B1                                                   DBG=IDP  3217
                                                                                                                 DBG=IDP  3218
                                        *         ASSEMBLE * INC NNNN *.                                         DBG=IDP  3219
                                                                                                                 DBG=IDP  3220
                                                  LX5    12                                                      DBG=IDP  3221
                                                  MX0    -12                                                     DBG=IDP  3222
                                                  BX1    -X0*X5      (X1) = INC                                  DBG=IDP  3223
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3224
                                                  SA1    =4L INC                                                 DBG=IDP  3225
                                                  LX4    -5*CHAR                                                 DBG=IDP  3226
                                                  BX6    X4          (X6) = .....NNNN.   (.=BLANK(55B))          DBG=IDP  3227
                                                  MX0    -6*CHAR                                                 DBG=IDP  3228
                                                  BX6    -X0*X6                                                  DBG=IDP  3229
                                                  BX6    X6+X1       (X6) = .INC.NNNN.   (.=BLANK(55B))          DBG=IDP  3230
                                                  SA6    A6+B1                                                   DBG=IDP  3231
                                                                                                                 DBG=IDP  3232
                                        *         ASSEMBLE *CNT NNNNNN*.                                         DBG=IDP  3233
                                                                                                                 DBG=IDP  3234
                                                  LX5    18                                                      DBG=IDP  3235
                                                  SX1    X5                                                      DBG=IDP  3236
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  3237
                                                  SX1    3RCNT                                                   DBG=IDP  3238
                                                  MX0    -7*CHAR                                                 DBG=IDP  3239
                                                  BX6    -X0*X6                                                  DBG=IDP  3240
                                                  LX1    10*CHAR-3*CHAR                                          DBG=IDP  3241
                                                  BX1    X0*X1                                                   DBG=IDP  3242
                                                  BX6    X6+X1       (X6) = CNT.NNNNNN   (.=BLANK(55B))          DBG=IDP  3243
                                                  MX7    0                                                       DBG=IDP  3244
                                                  SA6    A6+B1                                                   DBG=IDP  3245
                                                  SA7    A6+B1       MARK EOL                                    DBG=IDP  3246
                                                  PRIDP  SNAPLNE                                                 DBG=IDP  3247
                                                  EQ     LBT1                                                    DBG=IDP  3248
                                         LST      SPACE  4,8                                                     DBG=IDP  3249
                                        **        LST - LIST *SET* NAME TABLE.                                   DBG=IDP  3250
                                        *                                                                        DBG=IDP  3251
                                        *                                                                        DBG=IDP  3252
                                        *         ENTRY  (A5,X5) =   ADDR + CNTS OF 1ST *SET* TABLE ENTRY        DBG=IDP  3253
                                        *                                                                        DBG=IDP  3254
                                        *         EXIT   NONE                                                    DBG=IDP  3255
                                        *                                                                        DBG=IDP  3256
                                        *         USES   ALL                                                     DBG=IDP  3257
                                        *                                                                        DBG=IDP  3258
                                        *         CALLS  COD,FRA=,PRIDP,SFN                                      DBG=IDP  3259
                                                                                                                 DBG=IDP  3260
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    78
  
  
                                                                                                                 DBG=IDP  3261
                                         LST      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3262
                                                                                                                 DBG=IDP  3263
                                         LST2     ZR     X5,EXIT.    IF FINISHED ALL SET NAMES                   DBG=IDP  3264
                                                  SX1    B1                                                      DBG=IDP  3265
                                                  IX6    X5+X1                                                   DBG=IDP  3266
                                                  ZR     X6,LST4     IF THIS ENTRY IS AVAILABLE (NOT A SET)      DBG=IDP  3267
                                                  MX0    7*CHAR                                                  DBG=IDP  3268
                                                  BX1    X0*X5       (X1) = 0LNAME                               DBG=IDP  3269
                                                  RJ     =XSFN       SPACE FILL NAME                             DBG=IDP  3270
                                                  LX6    -CHAR                                                   DBG=IDP  3271
                                                  SA6    SNAPLNE                                                 DBG=IDP  3272
                                                  BX1    -X0*X5                                                  DBG=IDP  3273
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC-- SET NAME VALU DBG=IDP  3274
                                                  LX6    4*CHAR                                                  DBG=IDP  3275
                                                  SA6    A6+B1                                                   DBG=IDP  3276
                                                                                                                 DBG=IDP  3277
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  3278
                                                  BX1    -X0*X5                                                  DBG=IDP  3279
                                                  SB7    LST3        (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP  3280
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  3281
                                                                                                                 DBG=IDP  3282
                                         LST3     SA6    A6+B1                                                   DBG=IDP  3283
                                                  SA7    A6+B1                                                   DBG=IDP  3284
                                                                                                                 DBG=IDP  3285
                                         #FRA     ELSE                                                           DBG=IDP  3286
                                                  MX6    0                                                       DBG=IDP  3287
                                                  SA6    A6+B1                                                   DBG=IDP  3288
                                         #FRA     ENDIF                                                          DBG=IDP  3289
                                                                                                                 DBG=IDP  3290
                                                  PRIDP  SNAPLNE                                                 DBG=IDP  3291
                                                                                                                 DBG=IDP  3292
                                         LST4     SA5    A5+B1                                                   DBG=IDP  3293
                                                  EQ     LST2                                                    DBG=IDP  3294
                                         LXT      SPACE  4,8                                                     DBG0002  1274
                                        **        LXT - LIST XFER TABLE.                                         DBG0002  1275
                                        *                                                                        DBG0002  1276
                                        *                                                                        DBG0002  1277
                                        *                LISTS THE MOST RECENT TRANSFERS OF CONTROL TO OCCUR     DBG0002  1278
                                        *         DURING STEP MODE (CONTAINED IN *IDPXFT*).                      DBG0002  1279
                                        *                                                                        DBG0002  1280
                                        *         *IDPXFT* FORMAT --                                             DBG0002  1281
                                        *                                                                        DBG0002  1282
                                        *         VFD    60/-1       UNUSED ENTRY (I.E. XFT HAS NOT FILLED YET)  DBG0002  1283
                                        *          .                                                             DBG0002  1284
                                        *          .                                                             DBG0002  1285
                                        *         VFD    30/POS COUNTER,30/P REGISTER OF XFER INSTRUCTION        DBG0002  1286
                                        *          .                                                             DBG0002  1287
                                        *         VFD    60/0        END OF TABLE MARK                           DBG0002  1288
                                        *                                                                        DBG0002  1289
                                        *         ENTRY  (X6) = NR OF ENTRIES TO LIST (BEGINNING W/ MOST RECENT) DBG0002  1290
                                        *                                                                        DBG0002  1291
                                        *         EXIT   NONE                                                    DBG0002  1292
                                        *                                                                        DBG0002  1293
                                        *         USES   ALL                                                     DBG0002  1294
                                        *                                                                        DBG0002  1295
                                        *         CALLS  DAZ                                                     DBG0002  1296
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    79
  
  
                                                                                                                 DBG0002  1297
                                                                                                                 DBG0002  1298
                                         LXT      SUBR               ** ENTRY/EXIT **                            DBG0002  1299
                                                                                                                 DBG0002  1300
                                        *         INITIALIZATION.                                                DBG0002  1301
                                                                                                                 DBG0002  1302
                                                  SX1    IDPXFT+L.XFT                                            DBG0002  1303
                                                  SX7    X6-L.XFT-1                                              DBG0002  1304
                                                  MI     X7,LXT2     IF NOT ASKING FOR TOO MANY ENTRIES          DBG0002  1305
                                                  SX6    L.XFT                                                   DBG0002  1306
                                                                                                                 DBG0002  1307
                                         LXT2     IX7    X1-X6                                                   DBG0002  1308
                                                  NO                                                             DBG0002  1309
                                                  SA7    LXT=NXT                                                 DBG0002  1310
                                                                                                                 DBG0002  1311
                                        *         ** MAIN LOOP NODE **                                           DBG0002  1312
                                                                                                                 DBG0002  1313
                                         LXT3     SA2    LXT=NXT                                                 DBG0002  1314
                                                  SA3    X2          (X3) = NEXT *XFT* ENTRY                     DBG0002  1315
                                                  SX7    X2+B1                                                   DBG0002  1316
                                                  SX4    X3+B1                                                   DBG0002  1317
                                                  SA7    A2                                                      DBG0002  1318
                                                  ZR     X3,EXIT.    IF HIT END OF TABLE MARK, DONE...           DBG0002  1319
                                                  ZR     X4,LXT3     IF HIT AVAILABLE ENTRY (I.E. *XFT* WAS NOT  DBG0002  1320
                                        *                              FULL TO BEGIN WITH)                       DBG0002  1321
                                                  SA5    X3          (A5,X5) = A+C OF XFER INSTRUCTION           DBG0002  1322
                                                  AX3    30                                                      DBG0002  1323
                                                  SB4    X3          (B4) = POS COUNTER                          DBG0002  1324
                                                  SA7    IDPFAD      SET TO *FORCE OUT ADDR UNCONDITIONALLY*     DBG0002  1325
                                                  RJ     DAZ         DEASSEMBLE XFER INSTRUCTION                 DBG0002  1326
                                                  EQ     LXT3                                                    DBG0002  1327
                                                                                                                 DBG0002  1328
                                                                                                                 DBG0002  1329
                                         LXT=NXT  =      APL         SAVED ADDR OF NEXT *XFT* ENTRY              DBG0002  1330
                                         PAS      SPACE  4,8                                                     DBG=IDP  3295
                                        **        PAS - PARSE SUBEXPRESSION.                                     DBG=IDP  3296
                                        *                                                                        DBG=IDP  3297
                                        *                THIS ROUTINE PARSES AN EXPRESSION THAT IS TERMINATED    DBG=IDP  3298
                                        *         BY A -,- OR -EOS-, AND RETURNS THE VALUE OF THE EXPRESSION     DBG=IDP  3299
                                        *         IN THE ACCUMULATOR *IDPACC*.                                   DBG=IDP  3300
                                        *                                                                        DBG=IDP  3301
                                        *         ENTRY  (A5+1,X5)=  ADDR + CONTENTS OF 1ST TOKEN IN EXPRESSION  DBG=IDP  3302
                                        *                                                                        DBG=IDP  3303
                                        *         EXIT   (IDPACC) =  BINARY VALUE OF EXPRESSION                  DBG=IDP  3304
                                        *                (X1)     =  (IDPACC)                                    DBG=IDP  3305
                                        *                (X3)     =  .ZR. IF EXPRESSION WAS NULL, ELSE .NZ.      DBG=IDP  3306
                                        *                (A5,X5)  =  ADDR + CNTS OF TOKEN THAT TERMINATED PARSE  DBG=IDP  3307
                                        *                (X6)     =  (X1) = (IDPACC)                             DBG0002  1331
                                        *                                                                        DBG=IDP  3308
                                        *         USES   ALL                                                     DBG=IDP  3309
                                        *                                                                        DBG=IDP  3310
                                        *         CALLS  DXB,FAA(IF DEF),IDP=ER,SKT                              DBG0002  1332
                                                                                                                 DBG=IDP  3312
                                                                                                                 DBG=IDP  3313
                                         PAS      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3314
                                                                                                                 DBG=IDP  3315
                                        *         INITIALIZATION.                                                DBG=IDP  3316
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    80
  
  
                                                                                                                 DBG=IDP  3317
                                                  MX6    0                                                       DBG=IDP  3318
                                                  MX7    -1                                                      DBG=IDP  3319
                                                  SA6    IDPACC      CLEAR ACCUMULATOR                           DBG=IDP  3320
                                                  SA6    IDPSGN      SET TO *SIGN IS PLUS*                       DBG=IDP  3321
                                                  SA6    IDPIND      SET TO *DIRECT ADDRESSING*                  DBG=IDP  3322
                                                  SA7    IDPNUL      SET TO *NULL EXPRESSION SO FAR*             DBG=IDP  3324
                                                                                                                 DBG=IDP  3325
                                        *         MAIN LOOP NODE.                                                DBG=IDP  3326
                                                                                                                 DBG=IDP  3327
                                         PS=ALL   SA5    A5+B1       (X5) = NEXT TOKEN TO PARSE                  DBG=IDP  3328
                                                  SA4    IDPNUL                                                  DBG=IDP  3329
                                                  SX7    X4+B1                                                   DBG=IDP  3330
                                                  SA7    A4                                                      DBG=IDP  3331
                                                  ZR     X5,PS=END   IF EOS TOKEN                                DBG=IDP  3332
                                                  MX0    -CHAR                                                   DBG0002  1333
                                                  =X6    X5-O.VAR                                                DBG=IDP  3333
                                                  =X7    X5-O.CONS                                               DBG=IDP  3334
                                                  ZR     X6,PS=NAM   IF NAME TOKEN                               DBG=IDP  3335
                                                  ZR     X7,PS=CON   IF CONSTANT TOKEN                           DBG=IDP  3336
                                                  SX6    X5-O.SEP                                                DBG=IDP  3337
                                                  NZ     X6,IDP.ER   IF NOT SEPARATOR TOKEN, ERR...              DBG=IDP  3338
                                                                                                                 DBG=IDP  3339
                                        *         HERE TO PROCESS A SEPARATOR TOKEN -- *,+-                      DBG=IDP  3340
                                                                                                                 DBG=IDP  3341
                                                  LX5    1*CHAR-10*CHAR                                          DBG0002  1334
                                                  BX5    -X0*X5                                                  DBG0002  1335
                                                  SX6    X5-1R,                                                  DBG=IDP  3343
                                                  SX7    X5-1R*                                                  DBG=IDP  3344
                                                  ZR     X6,PS=END   IF , TOKEN                                  DBG=IDP  3345
                                                  ZR     X7,PS=STR   IF * TOKEN                                  DBG=IDP  3346
                                                  SX6    X5-1R+                                                  DBG=IDP  3347
                                                  SX7    X5-1R-                                                  DBG=IDP  3348
                                                  ZR     X6,PS=PL    IF + TOKEN                                  DBG=IDP  3349
                                                  ZR     X7,PS=MI    IF - TOKEN                                  DBG=IDP  3350
                                                  EQ     IDP.ER      ERR - *UNKNOWN TOKEN*                       DBG=IDP  3351
                                                                                                                 DBG=IDP  3352
                                        *         HERE IF NAME TOKEN.                                            DBG=IDP  3353
                                                                                                                 DBG=IDP  3354
                                         PS=NAM   SA1    IDPBAX                                                  DBG=IDP  3355
                                                  BX2    X5                                                      DBG=IDP  3356
                                                  MX0    -CHAR                                                   DBG=IDP  3357
                                                  LX2    CHAR                                                    DBG=IDP  3358
                                                  BX6    -X0*X2                                                  DBG=IDP  3359
                                                  SB2    X6          (B2) = REGISTER TYPE (BAX)                  DBG=IDP  3360
                                                  LX7    X1,B2                                                   DBG=IDP  3361
                                                  PL     X7,PS=NAM2  IF NAME DOES NOT BEGIN WITH B,A,OR X        DBG=IDP  3362
                                                                                                                 DBG=IDP  3363
                                        *         CHECK FOR REGISTER NAME.                                       DBG=IDP  3364
                                                                                                                 DBG=IDP  3365
                                                  MX1    1R7-1R0+1                                               DBG=IDP  3366
                                                  LX1    -1R0        (X1) = (0-7) SHIFT MASK                     DBG=IDP  3367
                                                  LX2    CHAR                                                    DBG=IDP  3368
                                                  BX6    -X0*X2                                                  DBG=IDP  3369
                                                  SB3    X6          (B3) = REGISTER NR (0-7) DPC                DBG=IDP  3370
                                                  LX7    X1,B3                                                   DBG=IDP  3371
                                                  PL     X7,PS=NAM2  IF 2ND LETTER OF NAME IS NOT (0-7)          DBG=IDP  3372
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    81
  
  
                                                  LX2    CHAR                                                    DBG=IDP  3373
                                                  BX7    -X0*X2                                                  DBG=IDP  3374
                                                  NZ     X7,PS=NAM2  IF 3RD CHAR IS NON-ZERO, NOT A REGISTER     DBG=IDP  3375
                                                  SB5    1RB                                                     DBG=IDP  3376
                                                  SB6    000B        (B6) = 0TR, WHERE T=0 (B REG)               DBG=IDP  3377
                                                  EQ     B2,B5,PS=NAM1     IF B REGISTER                         DBG=IDP  3378
                                                  SB5    1RA                                                     DBG=IDP  3379
                                                  SB6    010B        (B6) = 0TR, WHERE T=1 (A REG)               DBG=IDP  3380
                                                  EQ     B2,B5,PS=NAM1     IF A REGISTER                         DBG=IDP  3381
                                                  SB6    020B        (B6) = 0TR, WHERE T=2 (X REG)               DBG=IDP  3382
                                                                                                                 DBG=IDP  3383
                                         PS=NAM1  SB7    X6-1R0      (B7) = REGISTER NR IN BINARY                DBG=IDP  3384
                                                  SB6    B6+B7       (B6) = 0TR                                  DBG=IDP  3385
                                                  SX6    B6+SV=B     (X6) = ADDR OF SAVED 0TR REGISTER           DBG=IDP  3386
                                                  EQ     PS=ACC                                                  DBG=IDP  3387
                                                                                                                 DBG=IDP  3388
                                        *         CHECK FOR DECK NAME.                                           DBG=IDP  3389
                                                                                                                 DBG=IDP  3390
                                         PS=NAM2  MX0    7*CHAR                                                  DBG=IDP  3391
                                                  BX1    X0*X5       (X1) = 0LNAME                               DBG=IDP  3392
                                                                                                                 DBG=IDP  3393
                                         #FAA     IF     DEF,FAA=                                                DBG=IDP  3394
                                                  RJ     =XFAA=      FIND ABSOLUTE ADDRESS                       DBG=IDP  3395
                                                  PL     X6,PS=ACC   IF A FIND, ADJUST ACCUMULATOR...            DBG=IDP  3396
                                         #FAA     ENDIF                                                          DBG=IDP  3397
                                                                                                                 DBG=IDP  3398
                                        *         HERE TO SEARCH USER *SET* TABLE.                               DBG=IDP  3399
                                                                                                                 DBG=IDP  3400
                                                  SB6    IDPSET      (B6) = FWA OF *SET* TABLE                   DBG=IDP  3401
                                                  RJ     SKT         SEARCH SET TABLE FOR NAME                   DBG=IDP  3402
                                                  ZR     X2,IDP.ER   IF NO FIND                                  DBG=IDP  3403
                                                  SX6    X2+                                                     DBG=IDP  3404
                                                  EQ     PS=ACC                                                  DBG=IDP  3405
                                                                                                                 DBG=IDP  3406
                                        *         HERE IF CONSTANT TOKEN.                                        DBG=IDP  3407
                                                                                                                 DBG=IDP  3408
                                         PS=CON   MX0    7*CHAR                                                  DBG=IDP  3409
                                                  BX5    X0*X5       (X5) = 42/0LCONSTANT(DPC), 18/0             DBG=IDP  3410
                                                  SB7    B0          SET TO *MODE IS OCTAL*                      DBG=IDP  3411
                                                  RJ     =XDXB       CONVERT DPC TO BINARY                       DBG=IDP  3412
                                                  NZ     X4,IDP.ER   IF ERROR IN ASSEMBLY                        DBG=IDP  3413
                                                  EQ     PS=ACC      ADJUST ACCUMULATOR...                       DBG=IDP  3414
                                                                                                                 DBG=IDP  3415
                                        *         HERE IF * TOKEN.                                               DBG=IDP  3416
                                                                                                                 DBG=IDP  3417
                                         PS=STR   SA1    IDPIND                                                  DBG=IDP  3418
                                                  SX6    X1+B1       (X6) = LEVEL OF INDIRECT ADDRESSING         DBG=IDP  3419
                                                  SA6    A1                                                      DBG=IDP  3420
                                                  EQ     PS=ALL      RETURN TO MAIN LOOP.. .                     DBG=IDP  3421
                                                                                                                 DBG=IDP  3422
                                        *         HERE IF + TOKEN .                                              DBG=IDP  3423
                                                                                                                 DBG=IDP  3424
                                         PS=PL    =      PS=ALL                                                  DBG=IDP  3425
                                                                                                                 DBG=IDP  3426
                                        *         HERE IF - TOKEN.                                               DBG=IDP  3427
                                                                                                                 DBG=IDP  3428
                                         PS=MI    SA1    IDPSGN                                                  DBG=IDP  3429
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    82
  
  
                                                  MX6    60                                                      DBG=IDP  3430
                                                  BX6    X1-X6                                                   DBG=IDP  3431
                                                  SA6    A1                                                      DBG=IDP  3432
                                                  EQ     PS=ALL      RETURN TO MAIN LOOP...                      DBG=IDP  3433
                                                                                                                 DBG=IDP  3434
                                        *         HERE TO ADJUST ACCUMULATOR.                                    DBG=IDP  3435
                                                                                                                 DBG=IDP  3436
                                         PS=ACC   SA1    IDPIND                                                  DBG=IDP  3437
                                                  SX7    X1-1                                                    DBG=IDP  3438
                                                  MI     X7,PS=ACC2  IF NO MORE LEVELS OF INDIRECT ADDR          DBG=IDP  3439
                                                  SA7    A1                                                      DBG=IDP  3440
                                                  SB2    X6                                                      DBG=IDP  3441
                                                  RJ     CHK         CHECK CM ADDR                               DBG=IDP  3442
                                                  MI     B2,IDP.ER   IF ADDR IS BAD                              DBG=IDP  3443
                                                  SA2    B2          (X2) = NEW ADDRESS                          DBG=IDP  3444
                                                  BX6    X2                                                      DBG=IDP  3445
                                                  EQ     PS=ACC                                                  DBG=IDP  3446
                                                                                                                 DBG=IDP  3447
                                         PS=ACC2  SA1    IDPACC                                                  DBG=IDP  3448
                                                  SA2    IDPSGN                                                  DBG=IDP  3449
                                                  BX3    X6-X2       (X3) = +X6 IF +, -X6 IF -                   DBG=IDP  3450
                                                  IX7    X1+X3                                                   DBG=IDP  3451
                                                  MX6    0                                                       DBG=IDP  3452
                                                  SA7    A1                                                      DBG=IDP  3453
                                                  SA6    A2          SET TO *DEFAULT SIGN IS PLUS*               DBG=IDP  3454
                                                  EQ     PS=ALL      RETURN TO MAIN LOOP ...                     DBG=IDP  3455
                                                                                                                 DBG=IDP  3456
                                        *         HERE IF END OF SUBEXPRESSION SENSED.                           DBG=IDP  3457
                                                                                                                 DBG=IDP  3458
                                         PS=END   SA1    IDPACC                                                  DBG=IDP  3459
                                                  SA3    IDPNUL                                                  DBG=IDP  3460
                                                  BX6    X1                                                      DBG0002  1336
                                                  EQ     EXIT.                                                   DBG=IDP  3461
                                         POL      SPACE  4,8                                                     DBG=IDP  3462
                                        **        POL - PROCESS OPTIONS LIST ITEM.                               DBG=IDP  3463
                                        *                                                                        DBG=IDP  3464
                                        *                                                                        DBG=IDP  3465
                                        *                THIS ROUTINE WILL PROCESS AN OPTIONS LIST ITEM THAT IS  DBG=IDP  3466
                                        *         TERMINATED BY A -,- OR -EOS-.                                  DBG=IDP  3467
                                        *                                                                        DBG=IDP  3468
                                        *         ENTRY  (B6) = FWA OF OPTIONS KEYWORD TABLE (OKT)               DBG=IDP  3469
                                        *                (A5+1,X5) = ADDR + CONTENTS OF 1ST TOKEN IN LIST        DBG=IDP  3470
                                        *                                                                        DBG=IDP  3471
                                        *         EXIT   IF NO ERROR--                                           DBG=IDP  3472
                                        *                (A5,X5) =  A + C OF TOKEN THAT TERMINATED OPTIONS LIST  DBG=IDP  3473
                                        *                (X3)    = .ZR. IF OPTIONS LIST ITEM WAS NULL, ELSE .NZ. DBG=IDP  3474
                                        *                (X6)    =  -DEFAULT IF - PREFIX, ELSE +DEFAULT          DBG=IDP  3475
                                        *                (X7)    =  +0 IF - PREFIX, ELSE + DEFAULT               DBG=IDP  3476
                                        *                (B7)    =  ORDINAL INTO *OKT* OF FIND                   DBG=IDP  3477
                                        *                                                                        DBG=IDP  3478
                                        *                IF AN ERROR-- EXIT IS TO *IDP=ER*                       DBG=IDP  3479
                                        *                                                                        DBG=IDP  3480
                                        *         USES   X - ALL                                                 DBG=IDP  3481
                                        *                A - 2,3,5                                               DBG=IDP  3482
                                        *                B - 7                                                   DBG=IDP  3483
                                        *                                                                        DBG=IDP  3484
                                        *         CALLS  IDP=ER,SKT                                              DBG=IDP  3485
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    83
  
  
                                                                                                                 DBG=IDP  3486
                                                                                                                 DBG=IDP  3487
                                         POL      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3488
                                                                                                                 DBG=IDP  3489
                                        *         INITIALIZATION.                                                DBG=IDP  3490
                                                                                                                 DBG=IDP  3491
                                                  BX4    X4-X4       SET TO *NO - PREFIX SO FAR*                 DBG=IDP  3492
                                                  MX6    -1                                                      DBG=IDP  3493
                                                  SX7    B0                                                      DBG=IDP  3494
                                                  SA6    IDPNUL      SET TO *NULL EXPRESSION SO FAR*             DBG=IDP  3495
                                                  SA7    IDPACC      CLEAR ACCUMULATOR                           DBG=IDP  3496
                                                                                                                 DBG=IDP  3497
                                        *         MAIN LOOP NODE.                                                DBG=IDP  3498
                                                                                                                 DBG=IDP  3499
                                         POL2     SA3    IDPNUL                                                  DBG=IDP  3500
                                                  SA5    A5+B1                                                   DBG=IDP  3501
                                                  SX6    X3+B1                                                   DBG=IDP  3502
                                                  MX0    -CHAR                                                   DBG0002  1337
                                                  SA6    A3                                                      DBG=IDP  3503
                                                  ZR     X5,POL4     IF EOS ENCOUNTERED                          DBG=IDP  3504
                                                  SX6    X5-O.SEP                                                DBG=IDP  3505
                                                  SX7    X5-O.VAR                                                DBG=IDP  3506
                                                  NZ     X6,POL3     IF NOT A SEPARATOR                          DBG=IDP  3507
                                                                                                                 DBG=IDP  3508
                                        *         HERE IF A SEPARATOR TOKEN ENCOUNTERED.                         DBG=IDP  3509
                                                                                                                 DBG=IDP  3510
                                                  LX5    1*CHAR-10*CHAR                                          DBG0002  1338
                                                  BX5    -X0*X5                                                  DBG0002  1339
                                                  SX6    X5-1R,                                                  DBG=IDP  3512
                                                  SX7    X5-1R-                                                  DBG=IDP  3513
                                                  ZR     X6,POL4     IF , ENCOUNTERED (I.E. END OF LIST)         DBG=IDP  3514
                                                  NZ     X7,IDP=ER   IF NOT - TOKEN, ERROR...                    DBG=IDP  3515
                                                  MX4    60          SET TO * - PREFIX ENCOUNTERED*              DBG=IDP  3516
                                                  EQ     POL2                                                    DBG=IDP  3517
                                                                                                                 DBG=IDP  3518
                                        *         HERE TO PROCESS NAME TOKEN.                                    DBG=IDP  3519
                                                                                                                 DBG=IDP  3520
                                         POL3     NZ     X7,IDP=ER   IF NOT A NAME TOKEN, ERROR...               DBG=IDP  3521
                                                  MX0    7*CHAR                                                  DBG0002  1340
                                                  SX6    B1                                                      DBG0002  1341
                                                  SA2    =40404040404040404040B                                  DBG0002  1342
                                                  BX1    X0*X5       (X1) = 0LKEYWORD                            DBG0002  1343
                                                  IX6    X1-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     DBG0002  1344
                                                  BX7    -X6+X1      (X7) = ALL TRAILING 0 BITS IN (X1) = 0 BITS DBG0002  1345
                                        *                                    ALL OTHER LEADING BITS = 1 BITS     DBG0002  1346
                                                  SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS          DBG0002  1347
                                                  BX6    X2*X7       (X6) = 40B WHERE EACH CHAR IN KEYWORD IS    DBG0002  1348
                                                  LX7    X6,B7       (X7) = 01B WHERE EACH CHAR IN KEYWORD IS    DBG0002  1349
                                                  IX7    X6-X7       (X7) = 37B WHERE EACH CHAR IN KEYWORD IS    DBG0002  1350
                                                  BX0    X6+X7       (X0) = 77B WHERE EACH CHAR IN KEYWORD IS    DBG0002  1351
                                                  RJ     SKT         SEARCH FOR NAME                             DBG=IDP  3524
                                                  ZR     X2,IDP=ER   IF NO FIND                                  DBG=IDP  3525
                                                  SX6    X2                                                      DBG=IDP  3526
                                                  SA6    IDPACC                                                  DBG=IDP  3527
                                                  EQ     POL2                                                    DBG=IDP  3528
                                                                                                                 DBG=IDP  3529
                                        *         HERE TO SET UP EXIT CONDITIONS.                                DBG=IDP  3530
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    84
  
  
                                                                                                                 DBG=IDP  3531
                                         POL4     SA1    IDPACC                                                  DBG=IDP  3532
                                                  SA3    IDPNUL                                                  DBG=IDP  3533
                                                  BX6    X1-X4       (X6) = -DEFAULT IF - PREFIX, ELSE +DEFAULT  DBG=IDP  3534
                                                  BX7    -X4*X1      (X7) = +0 IF - PREFIX, ELSE +DEFAULT        DBG=IDP  3535
                                                  EQ     EXIT.                                                   DBG=IDP  3536
                                         RIL      SPACE  4,8                                                     DBG0002  1352
                                        **        RIL - READ IDP INPUT LINE.                                     DBG0002  1353
                                        *                                                                        DBG0002  1354
                                        *                                                                        DBG0002  1355
                                        *         ENTRY  IF READING INTERACTIVELY (F.IDI) -- NONE                DBG0002  1356
                                        *                IF READING FROM BATCH (F.BDI) -- INITIAL *READ* ISSUED  DBG0002  1357
                                        *                  TO FILL BUFFER                                        DBG0002  1358
                                        *                                                                        DBG0002  1359
                                        *         EXIT   (X1)      = .NZ. IF EOR/EOF ENCOUNTERED, ELSE .ZR.      DBG0002  1360
                                        *                IF NO EOR/EOF ENCOUNTERED --                            DBG0002  1361
                                        *                (A5,X5)   = A+C OF 1ST WORD OF LINE IMAGE               DBG0002  1362
                                        *                (L=LIM)   = NR OF WORDS IN SOURCE LINE IMAGE            DBG0002  1363
                                        *                              (INCLUDES WORD CONTAINING EOL MARK)       DBG0002  1364
                                        *                                                                        DBG0002  1365
                                        *         USES   ALL BUT A0,X0     (INCLUDES ALL CALLS)                  DBG0002  1366
                                        *                                                                        DBG0002  1367
                                        *         CALLS  READ,READC                                              DBG0002  1368
                                                                                                                 DBG0002  1369
                                                                                                                 DBG0002  1370
                                         RIL      SUBR               ** ENTRY/EXIT **                            DBG0002  1371
                                                                                                                 DBG0002  1372
                                         RIL2     SA5    IDPFLG                                                  DBG0002  1373
                                                  SX2    F.IDI                                                   DBG0002  1374
                                                  LX5    59-IDF.INPP                                             DBG0002  1375
                                                  SB6    IDPLIM                                                  DBG0002  1376
                                                  PL     X5,RIL3     IF READING INTERACTIVELY (F.IDI)            DBG0002  1377
                                                  SX2    F.BDI                                                   DBG0002  1378
                                                                                                                 DBG0002  1379
                                         RIL3     READC  X2,B6                                                   DBG0002  1380
                                                  ZR     X1,RIL4     IF NOT EOR/EOF STATUS                       DBG0002  1381
                                                  MI     X5,EXIT.    IF READING FROM BATCH (F.BDI)               DBG0002  1382
                                                  READ   X2,RCL                                                  DBG0002  1383
                                                                                                                 DBG0002  1384
                                        *         SET EOR STATUS TO PREVENT *READC* FROM READING AHEAD.          DBG0002  1385
                                                                                                                 DBG0002  1386
                                                  SA1    X2                                                      DBG0002  1387
                                                  MX6    60-18                                                   DBG0002  1388
                                                  BX1    X6*X1                                                   DBG0002  1389
                                                  SX6    040021B                                                 DBG0002  1390
                                                  BX6    X1+X6                                                   DBG0002  1391
                                                  SA6    A1                                                      DBG0002  1392
                                                  EQ     RIL2                                                    DBG0002  1393
                                                                                                                 DBG0002  1394
                                        *         SET UP EXIT CONDITIONS.                                        DBG0002  1395
                                                                                                                 DBG0002  1396
                                         RIL4     SX7    B6-IDPLIM   (X7) = NR OF WORDS IN LINE IMAGE            DBG0002  1397
                                                  SA5    IDPLIM      (A5,X5) = A+C OF 1ST WORD OF LINE IMAGE     DBG0002  1398
                                                  SA7    L=LIM                                                   DBG0002  1399
                                                  EQ     EXIT.                                                   DBG0002  1400
                                         SKT      SPACE  4,8                                                     DBG=IDP  3603
                                        **        SKT - SEARCH KEYWORD TABLE.                                    DBG=IDP  3604
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    85
  
  
                                        *                                                                        DBG=IDP  3605
                                        *                                                                        DBG=IDP  3606
                                        *                SEARCHS A TABLE THAT IS TERMINATED BY A ZERO WORD       DBG=IDP  3607
                                        *         FOR A MATCH, USING A SPECIFIED EXTRACTION MASK.                DBG=IDP  3608
                                        *                                                                        DBG=IDP  3609
                                        *         ENTRY  (B6)     =  FWA TO BEGIN SEARCH                         DBG=IDP  3610
                                        *                (X0)     =  EXTRACTION MASK TO USE                      DBG=IDP  3611
                                        *                (X1)     =  ELEMENT TO SEARCH FOR                       DBG=IDP  3612
                                        *                                                                        DBG=IDP  3613
                                        *         EXIT   IF NO FIND --                                           DBG=IDP  3614
                                        *                (X2)     =  .ZR.                                        DBG=IDP  3615
                                        *                IF A FIND --                                            DBG=IDP  3616
                                        *                (B7)     =  ORDINAL OF FIND                             DBG=IDP  3617
                                        *                (A2,X2)  =  ADDR + CONTENTS OF WORD THAT MATCHED        DBG=IDP  3618
                                        *                                                                        DBG=IDP  3619
                                        *         USES   X - 2,3,6,7                                             DBG=IDP  3620
                                        *                A - 2                                                   DBG=IDP  3621
                                        *                B - 7                                                   DBG=IDP  3622
                                        *                                                                        DBG=IDP  3623
                                        *         CALLS  NONE                                                    DBG=IDP  3624
                                                                                                                 DBG=IDP  3625
                                                                                                                 DBG=IDP  3626
                                         SKT      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3627
                                                  SA2    B6                                                      DBG=IDP  3628
                                                  BX6    X0*X1                                                   DBG=IDP  3629
                                                  SB7    -1                                                      DBG=IDP  3630
                                                                                                                 DBG=IDP  3631
                                         SKT2     ZR     X2,EXIT.    IF END OF TABLE                             DBG=IDP  3632
                                                  BX7    X0*X2                                                   DBG=IDP  3633
                                                  SB7    B7+B1                                                   DBG=IDP  3634
                                                  IX3    X6-X7                                                   DBG=IDP  3635
                                                  ZR     X3,EXIT.    IF A FIND                                   DBG=IDP  3636
                                                  SA2    A2+B1                                                   DBG=IDP  3637
                                                  EQ     SKT2                                                    DBG=IDP  3638
                                         STP      SPACE  4,8                                                     DBG=IDP  3639
                                        **        STP - STEP AN INSTRUCTION.                                     DBG=IDP  3640
                                        *                                                                        DBG=IDP  3641
                                        *                                                                        DBG=IDP  3642
                                        *                THIS ROUTINE WILL STEP A SINGLE CPU INSTRUCTION, AND    DBG=IDP  3643
                                        *         LIST THE RESULT REGISTER, IF APPROPRIATE.                      DBG=IDP  3644
                                        *                                                                        DBG=IDP  3645
                                        *                *STP* ALSO PERFORMS A LIMITED SET OF ERROR CHECKS FOR   DBG=IDP  3646
                                        *         RANGE ERRORS (MODE=1). 1) THE PSEUDO P REGISTER IS CHECKED,    DBG=IDP  3647
                                        *         2) XFERS OF CONTROL (BRANCH OR RJ) ARE CHECKED, AND            DBG=IDP  3648
                                        *         3) LOAD/STORE ADDRESSES ARE CHECKED. IF AN ERROR IS DETECTED,  DBG=IDP  3649
                                        *         THE BAD INSTRUCTION AND THE -P- REGISTER ARE DISPLAYED (EVEN   DBG=IDP  3650
                                        *         IF -L SELECTED). STEP MODE IS THEN TERMINATED.                 DBG=IDP  3651
                                        *                                                                        DBG=IDP  3652
                                        *         ENTRY  (ST=ENDX) = CONTAINS THE PREVIOUS CONTENTS OF IDP       DBG=IDP  3653
                                        *                              GENERATED BREAK ADDR IF THEY NEED TO      DBG=IDP  3654
                                        *                              BE XEQ, ELSE .ZR.                         DBG=IDP  3655
                                        *                (IDPPREG) = PSEUDO P REGISTER, I.E. ADDRESS OF WORD     DBG=IDP  3656
                                        *                              CONTAINING INSTRUCTION TO XEQ             DBG=IDP  3657
                                        *                (IDPPOS)  = POSITION COUNTER. LEFT MOST BIT OF INSTR    DBG=IDP  3658
                                        *                              TO XEQ IS BIT (IDPPOS)-1 IN ((IDPPREG)).  DBG=IDP  3659
                                        *                              (BITS ARE NUMBERED 59 THRU 0)             DBG=IDP  3660
                                        *                              E.G. FOR A WORD CONTAINING--              DBG=IDP  3661
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    86
  
  
                                        *                               +  MX0  -CHAR                            DBG=IDP  3662
                                        *                                  SA1  ADDR                             DBG=IDP  3663
                                        *                                  BX6  -X0*X5                           DBG=IDP  3664
                                        *                              WHEN STEPPING *SA1  ADDR*--               DBG=IDP  3665
                                        *                              (IDPPOS) = 45                             DBG=IDP  3666
                                        *                (IDPXLST) = .NZ. IF LISTING EACH STEPPED INSTRUCTION,   DBG=IDP  3667
                                        *                                  ELSE .ZR.                             DBG=IDP  3668
                                        *                                                                        DBG=IDP  3669
                                        *         EXIT   (ST=ENDX), (IDPPREG), AND (IDPPOS) UPDATED              DBG=IDP  3670
                                        *                TO *IDP=ER* IF AN ERROR DETECTED                        DBG=IDP  3671
                                        *                TO *IDP2A* IF AN *RJ IDP=* IS ENCOUNTERED AND THE       DBG0001    14
                                        *                  BREAK CONDITIONS ARE STATISFIED                       DBG0001    15
                                        *                                                                        DBG=IDP  3672
                                        *         USES   ALL BUT A0                                              DBG=IDP  3673
                                        *                                                                        DBG=IDP  3674
                                        *         CALLS  BRK,CHK,DAB,DAZ,DUX,FRA=(IF DEF),FRK,                   DBG0001    16
                                        *                  PRIDP,RSR=,SVR=                                       DBG0001    17
                                                                                                                 DBG=IDP  3676
                                                                                                                 DBG=IDP  3677
                                         STP      SUBR               ** ENTRY/EXIT **                            DBG=IDP  3678
                                                                                                                 DBG=IDP  3679
                                        *         INITIALIZATION.                                                DBG=IDP  3680
                                                                                                                 DBG=IDP  3681
                                                  MX6    0                                                       DBG=IDP  3682
                                                  SX7    -B1                                                     DBG=IDP  3683
                                                  SA6    IDPXFR      CLEAR *TRANSFER CONTROL* FLAG               DBG=IDP  3684
                                                  SA7    IDPXAR      SET TO *NO ADDR REF SO FAR*                 DBG=IDP  3685
                                                                                                                 DBG=IDP  3686
                                        *         FETCH WORD CONTAINING INSTRUCTION TO BE XEQ.                   DBG=IDP  3687
                                                                                                                 DBG=IDP  3688
                                                  SA1    IDPPREG     (X1) = PSEUDO P REGISTER                    DBG=IDP  3689
                                                  SA2    ST=ENDX                                                 DBG=IDP  3690
                                                  SA3    A1+B1       (X3) = POS COUNTER                          DBG=IDP  3691
                                                  SA5    X1          (X5) = WORD CONTAINING INSTRUCTION TO XEQ   DBG=IDP  3692
                                                  ZR     X2,STP2     IF NOT *IDP* GENERATED BREAK                DBG=IDP  3693
                                                                                                                 DBG=IDP  3694
                                        *         HERE BECAUSE INSTRUCTION TO XEQ AT *ST=ENDX*.                  DBG=IDP  3695
                                                                                                                 DBG=IDP  3696
                                                  SA5    A5-B1       (A5) = ADDR OF GENERATED BREAK              DBG=IDP  3697
                                                  BX5    X2                                                      DBG=IDP  3698
                                                                                                                 DBG=IDP  3699
                                        *         LIST INSTRUCTION IF NECESSARY.                                 DBG=IDP  3700
                                                                                                                 DBG=IDP  3701
                                         STP2     SA1    IDPXLST                                                 DBG=IDP  3702
                                                  SB4    X3                                                      DBG=IDP  3703
                                                  ZR     X1,STP3     IF NOT LISTING INSTRUCTION                  DBG=IDP  3704
                                                  RJ     DAZ         DEASSEMBLE INSTRUCTION                      DBG=IDP  3705
                                                                                                                 DBG=IDP  3706
                                        *         BREAK OUT OPCODE.                                              DBG=IDP  3707
                                                                                                                 DBG=IDP  3708
                                         STP3     SB6    -B4                                                     DBG=IDP  3709
                                                  MX0    -6                                                      DBG=IDP  3710
                                                  SB6    B6+60+6                                                 DBG=IDP  3711
                                                  LX5    X5,B6       (X5) = 54/OTHER STUFF, 6/OPCODE             DBG=IDP  3712
                                                  BX6    -X0*X5                                                  DBG=IDP  3713
                                                  LX5    3           (X5) = 51/OTHER, 6/OPC, 3/I                 DBG=IDP  3714
                                                  MX0    -3                                                      DBG=IDP  3715
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    87
  
  
                                                  SA6    STP=OP                                                  DBG=IDP  3716
                                                  ZR     X6,STP=ER   IF 00B OPCODE, TRYING TO XEQ DATA...        DBG=IDP  3717
                                                                                                                 DBG=IDP  3718
                                        *         BREAK OUT *I* FIELD.                                           DBG=IDP  3719
                                                                                                                 DBG=IDP  3720
                                                  BX6    -X0*X5                                                  DBG=IDP  3721
                                                  LX5    3           (X5) = 48/OTHER, 6/OPC, 3/I, 3/J            DBG=IDP  3722
                                                  SA6    A6+B1                                                   DBG=IDP  3723
                                                                                                                 DBG=IDP  3724
                                        *         BREAK OUT *J* FIELD.                                           DBG=IDP  3725
                                                                                                                 DBG=IDP  3726
                                                  BX6    -X0*X5                                                  DBG=IDP  3727
                                                  LX5    3           (X5) = 45/OTHER, 6/OPC, 3/I, 3/J, 3/K       DBG=IDP  3728
                                                  SA6    A6+B1                                                   DBG=IDP  3729
                                                                                                                 DBG=IDP  3730
                                        *         BREAK OUT *K* FIELD.                                           DBG=IDP  3731
                                                                                                                 DBG=IDP  3732
                                                  BX6    -X0*X5                                                  DBG=IDP  3733
                                                  LX5    18-3        (X5) = 30/OTHER, 6/OPC, 3/I, 3/J, 18/Q      DBG=IDP  3734
                                                  SA6    A6+B1                                                   DBG=IDP  3735
                                                                                                                 DBG=IDP  3736
                                        *         BREAK OUT *Q* 18 BIT ADDRESS FIELD.                            DBG=IDP  3737
                                                                                                                 DBG=IDP  3738
                                                  SX6    X5                                                      DBG=IDP  3739
                                                  SA6    STP=ADR                                                 DBG=IDP  3740
                                                                                                                 DBG=IDP  3741
                                        *         FETCH INSTRUCTION SKELETON AND CHECK FOR LENGTH CONFLICT.      DBG=IDP  3742
                                                                                                                 DBG=IDP  3743
                                                  SA1    STP=OP                                                  DBG=IDP  3744
                                                  LX5    30          LEFT JUSTIFY INSTRUCTION                    DBG=IDP  3745
                                                  MX0    15                                                      DBG=IDP  3746
                                                  SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                 DBG=IDP  3747
                                                  SB5    15                                                      DBG=IDP  3748
                                                  PL     X2,STP4     IF SHORT (15 BIT) INSTRUCTION               DBG=IDP  3749
                                                  MX0    30                                                      DBG=IDP  3750
                                                  SB5    B5+B5                                                   DBG=IDP  3751
                                                                                                                 DBG=IDP  3752
                                         STP4     LT     B4,B5,STP=ER IF NOT ENOUGH ROOM FOR 30 BIT INSTRUCTION, DBG=IDP  3753
                                        *                              TRYING TO XEQ DATA...                     DBG=IDP  3754
                                                                                                                 DBG=IDP  3755
                                        *         BREAK OUT FULL INSTRUCTION.                                    DBG=IDP  3756
                                                                                                                 DBG=IDP  3757
                                                  SA3    =46000460004600046000B                                  DBG=IDP  3758
                                                  BX6    X0*X5                                                   DBG=IDP  3759
                                                  BX7    -X0*X3                                                  DBG=IDP  3760
                                                  IX6    X6+X7       (X6) = INSTRUCTION, LEFT JUST W/ NO-OP FILL DBG=IDP  3761
                                                  SA6    STP=IN                                                  DBG=IDP  3762
                                                                                                                 DBG=IDP  3763
                                        *         SPLIT INSTRUCTION INTO REPRESENTATIVE TYPE--                   DBG=IDP  3764
                                        *           01 THRU 07  BRANCH                                           DBG=IDP  3765
                                        *           10 THRU 47  NORMAL                                           DBG=IDP  3766
                                        *           50 THRU 57  LOAD/STORE                                       DBG=IDP  3767
                                        *           60 THRU 77  NORMAL                                           DBG=IDP  3768
                                                                                                                 DBG=IDP  3769
                                                  SX3    X1-10B                                                  DBG=IDP  3770
                                                  SX4    X1-50B                                                  DBG=IDP  3771
                                                  MI     X3,STP6     IF A BRANCH                                 DBG=IDP  3772
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    88
  
  
                                                  MI     X4,STP5     IF A NORMAL                                 DBG=IDP  3773
                                                  SX3    X1-60B                                                  DBG=IDP  3774
                                                  MI     X3,STP12    IF A LOAD/STORE                             DBG=IDP  3775
                                                                                                                 DBG=IDP  3776
                                        *         HERE IF A NORMAL INSTRUCTION (NO SPECIAL PROCESSING).          DBG=IDP  3777
                                                                                                                 DBG=IDP  3778
                                         STP5     RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                  DBG=IDP  3779
                                                                                                                 DBG=IDP  3780
                                        *         HERE TO XEQ NORMAL INSTRUCTION.                                DBG=IDP  3781
                                                                                                                 DBG=IDP  3782
                                         STP=IN   BSSZ   1           THIS WORD IS PLUGGED WITH THE INSTRUCTION   DBG=IDP  3783
                                        *                              TO BE XEQ, LEFT JUSTIFIED WITH NO-OP FILL DBG=IDP  3784
                                                                                                                 DBG=IDP  3785
                                                  RJ     SVR=        SAVE ORIGINAL REGISTERS                     DBG=IDP  3786
                                                  EQ     STP=X                                                   DBG=IDP  3787
                                                                                                                 DBG=IDP  3788
                                        *         HERE IF A BRANCH INSTRUCTION (01 THRU 07).                     DBG=IDP  3789
                                                                                                                 DBG=IDP  3790
                                         STP6     SA2    STP=I                                                   DBG0001    18
                                                  SX6    X1-01B                                                  DBG0001    19
                                                  SA3    STP=ADR                                                 DBG0001    20
                                                  NZ     X6,STP8     IF NOT 01B INSTRUCTION                      DBG0001    21
                                                  NZ     X2,STP5     IF NOT *RJ*                                 DBG0001    22
                                                                                                                 DBG0001    23
                                        *         HERE IF AN *RJ* INSTRUCTION.                                   DBG0001    24
                                                                                                                 DBG0001    25
                                                  SA4    IDPPREG                                                 DBG0001    26
                                                  SA5    ST=ENDX     (X5) = WORD CONTAINING *RJ* INSTRUCTION     DBG0001    27
                                        *                                     (IF PREVIOUS CONTENTS OF GEN BRK)  DBG0001    28
                                                  BX6    X4          (X6) = /*+1/                                DBG0001    29
                                                  SX7    X3-REG=                                                 DBG0001    30
                                                  SX0    X3-SNP=                                                 DBG0001    31
                                                  NZ     X5,STP6A    IF *RJ* IS PREVIOUS CONTENTS OF BREAK ADDR  DBG0001    32
                                                  SA5    X4          (X5) = WORD CONTAINING *RJ* INSTRUCTION     DBG0001    33
                                                  SX6    X4+B1       (X6) = /*+1/                                DBG0001    34
                                                                                                                 DBG0001    35
                                        *         CHECK FOR CALL TO *REG=/SNP=*.  THESE ROUTINES MUST AVOID      DBG0001    36
                                        *           BEING STEPPED BECAUSE THEY USE *SVR=/RSR=* TO SAVE AND       DBG0001    37
                                        *           RESTORE THE CALLERS REGISTERS (SEE NEXT PARAGRAPH).          DBG0001    38
                                                                                                                 DBG0001    39
                                         STP6A    ZR     X7,STP7     IF *RJ REG=*                                DBG0001    40
                                                  ZR     X0,STP7     IF *RJ SNP=*                                DBG0001    41
                                                                                                                 DBG0001    42
                                        *         CHECK FOR CALL TO *RSR=/SVR=*.  THIS IS CURRENTLY FATALLY      DBG0001    43
                                        *           RECURSIVE BECAUSE *STP* USES *RSR=/SVR=* TO SAVE AND RESTORE DBG0001    44
                                        *           THE ORIGINAL REGISTERS BEFORE AND AFTER EACH INSTRUCTION IS  DBG0001    45
                                        *           STEPPED.  THIS IMPLIES THAT *RSR=/SVR=* WOULD HAVE TO BE     DBG0001    46
                                        *           ABLE TO BE STEPPED AND EXECUTED CONCURRENTLY...TRICKY.       DBG0001    47
                                                                                                                 DBG0001    48
                                                  SX7    =XRSR=                                                  DBG0001    49
                                                  SX0    =XSVR=                                                  DBG0001    50
                                                  IX7    X3-X7                                                   DBG0001    51
                                                  IX0    X3-X0                                                   DBG0001    52
                                                  ZR     X7,STP=ER   IF *RJ RSR=*                                DBG0001    53
                                                  ZR     X0,STP=ER   IF *RJ SVR=*                                DBG0001    54
                                                                                                                 DBG0001    55
                                        *         SET UP TRANSFER ADDRESS OF /RJ Q/ TO BE /Q+1/.                 DBG0001    56
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    89
  
  
                                                                                                                 DBG0001    57
                                                  SX7    X3+B1       (X7) = /Q+1/                                DBG0001    58
                                                  SB2    X7                                                      DBG0001    59
                                                  SA7    IDPXFR                                                  DBG0001    60
                                                                                                                 DBG0001    61
                                        *         CHECK TRANSFER ADDR AND SIMULATE *RJ* BY PLUGGING /EQ *+1/.    DBG0001    62
                                        *                                                                        DBG0001    63
                                        *         ENTRY  (B2) = TRANSFER ADDRESS                                 DBG0001    64
                                        *                (X6) = /*+1/  (I.E. RETURN ADDR)                        DBG0001    65
                                        *                (X3) = /Q/    (I.E. ADDR TO PLUG /EQ *+1/)              DBG0001    66
                                        *                                                                        DBG0001    67
                                        *         NOTE   WHEN THIS IS NOT *RJ REG=/SNP=*, THEN                   DBG0001    68
                                        *                TRANSFER ADDR = Q+1  OR  (B2) = (X3)+1.                 DBG0001    69
                                        *                                                                        DBG0001    70
                                        *                WHEN THIS IS AN *RJ REG=/SNP=*, THEN                    DBG0001    71
                                        *                TRANSFER ADDR = *+1  OR  (B2) = (X6), I.E. THE *RJ* HAS DBG0001    72
                                        *                BEEN SKIPPED.                                           DBG0001    73
                                                                                                                 DBG0001    74
                                         STP6B    RJ     CHK         CHECK CM ADDRESS                            DBG0001    75
                                                  SX7    0400B       (X7) = *EQ* INSTRUCTION                     DBG0001    76
                                                  MI     B2,STP=ER   IF ADDR IS BAD                              DBG0001    77
                                                  LX7    29-11                                                   DBG0001    78
                                                  SX0    IDP=                                                    DBG0001    79
                                                  BX7    X7+X6       (X7) = 30/0,30/EQ *+1                       DBG0001    80
                                                  LX7    59-29       (X7) = 30/EQ *+1,30/0                       DBG0001    81
                                                  SA7    X3                                                      DBG0001    82
                                                                                                                 DBG0001    83
                                        *         CHECK FOR *RJ IDP=*.                                           DBG0001    84
                                                                                                                 DBG0001    85
                                                  IX0    X3-X0                                                   DBG0001    86
                                                  SA1    IDPXRJ                                                  DBG0001    87
                                                  ZR     X0,STP7A    IF *RJ IDP=*                                DBG0001    88
                                                                                                                 DBG0001    89
                                        *         SET UP LEVEL 0 *RJ* ADDRESS.                                   DBG0001    90
                                                                                                                 DBG0001    91
                                                  NZ     X1,STP=X    IF NOT AT LEVEL 0 *RJ*                      DBG0001    92
                                                  SX6    X3                                                      DBG0001    93
                                                  SA6    A1                                                      DBG0001    94
                                                  EQ     STP=X                                                   DBG0001    95
                                                                                                                 DBG0001    96
                                        *         HERE TO PROCESS *RJ REG=/SNP=*.                                DBG0001    97
                                                                                                                 DBG0001    98
                                         STP7     SA6    IDPXFR      SET TO *RJ REG=/SNP= BECOMES                DBG0001    99
                                        *                              BRANCH TO /*+1/*                          DBG0001   100
                                                  BX7    X5          (X7) = 30/RJ REG=/SNP=, 30/FWA OF PARM LIST DBG0001   101
                                                  SA7    STP=SNP                                                 DBG0001   102
                                                  RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                  DBG0001   103
                                                                                                                 DBG0001   104
                                         STP=SNP  BSSZ   1           THIS WORD IS PLUGGED WITH AN *RJ REG=* OR   DBG0001   105
                                        *                              AN *RJ SNP=* FORCED UPPER WITH THE FWA OF DBG0001   106
                                        *                              THE PARAMETER LIST IN THE LOWER 18 BITS   DBG0001   107
                                                                                                                 DBG0001   108
                                                  SA1    IDPXFR      (X1) = ADDR TO XFER TO (I.E. /*+1/)         DBG0001   109
                                                  SA3    STP=ADR     (X3) = *REG=* OR *SNP=*                     DBG0001   110
                                                  SB2    X1                                                      DBG0001   111
                                                  BX6    X1                                                      DBG0001   112
                                                  EQ     STP6B                                                   DBG0001   113
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    90
  
  
                                                                                                                 DBG0001   114
                                        *         HERE TO PROCESS *RJ IDP=*.                                     DBG0001   115
                                                                                                                 DBG0001   116
                                         STP7A    SA6    IDPXFR      SET TO */RJ IDP=/ BECOMES BRANCH TO /*+1/*  DBG0001   117
                                                  SX1    A5+B1       (X1) = ADDR+1 OF *RJ IDP=*                  DBG0001   118
                                                  SX5    X5          (X5) = FWA OF PARAMETER LIST (IF .NZ.)      DBG0001   119
                                                  RJ     BRK         BREAK PROCESSOR                             DBG0001   120
                                                  ZR     X5,STP=X    IF NO BREAK THIS TIME                       DBG0001   121
                                                  RJ     FRK         CHECK FREQUENCY PARAMETERS                  DBG0001   122
                                                  ZR     X5,STP=X    IF NO BREAK THIS TIME                       DBG0001   123
                                                                                                                 DBG0001   124
                                        *         HERE TO HONOR BREAK.                                           DBG0001   125
                                                                                                                 DBG0001   126
                                                  SA1    IDPXFR                                                  DBG0001   127
                                                  SX7    60                                                      DBG0001   128
                                                  BX6    X1                                                      DBG0001   129
                                                  SA7    IDPPOS                                                  DBG0001   130
                                                  SA6    IDPPREG                                                 DBG0001   131
                                                  EQ     IDP2A       HONOR THIS BREAK...                         DBG0001   132
                                                                                                                 DBG=IDP  3888
                                        *         HERE IF BRANCH INSTRUCTION (02 THRU 07).                       DBG=IDP  3889
                                                                                                                 DBG=IDP  3890
                                         STP8     SX6    X1-4                                                    DBG=IDP  3891
                                                  SX7    X1-2                                                    DBG=IDP  3892
                                                  ZR     X6,STP10    IF *EQ BI,BJ,ADDR*                          DBG=IDP  3893
                                                  ZR     X7,STP11    IF *JP BI+ADDR*                             DBG=IDP  3894
                                                                                                                 DBG=IDP  3895
                                        *         HERE IF CONDITIONAL BRANCH INSTRUCTION.                        DBG=IDP  3896
                                                                                                                 DBG=IDP  3897
                                         STP9     SA1    STP=IN                                                  DBG=IDP  3898
                                                  MX0    -18                                                     DBG=IDP  3899
                                                  LX0    48-18                                                   DBG=IDP  3900
                                                  SX2    STP=BP      (X2) = BRANCH *PASS* ADDR                   DBG=IDP  3901
                                                  LX2    48-18                                                   DBG=IDP  3902
                                                  BX1    X0*X1                                                   DBG=IDP  3903
                                                  BX2    -X0*X2                                                  DBG=IDP  3904
                                                  IX6    X1+X2       (X6) = 12/BRANCH OPC, 18/STP=BRP, 30/NO-OPS DBG=IDP  3905
                                                  SA6    STP=BR                                                  DBG=IDP  3906
                                                                                                                 DBG=IDP  3907
                                        *         HERE TO XEQ CONDITIONAL BRANCH INSTRUCTION. THE 18 BIT ADDRESS DBG=IDP  3908
                                        *           *Q* PORTION OF THE BRANCH INSTRUCTION IS MODIFIED SO THAT IF DBG=IDP  3909
                                        *           THE BRANCH IS TAKEN, CONTROL PASSES TO *STP=BP*.             DBG=IDP  3910
                                                                                                                 DBG=IDP  3911
                                                  RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                  DBG=IDP  3912
                                                                                                                 DBG=IDP  3913
                                         STP=BR   BSSZ   1           BRANCH TO XEQ IS PLUGGED HERE -- LEFT JUST- DBG=IDP  3914
                                        *                              IFIED W/ *Q* ALTERED AND NO-OP FILL       DBG=IDP  3915
                                                                                                                 DBG=IDP  3916
                                         STP=BF   SB1    1           RESTORE (B1) = 1                            DBG=IDP  3917
                                                  EQ     STP=X                                                   DBG=IDP  3918
                                                                                                                 DBG=IDP  3919
                                         STP=BP   SA1    STP=ADR                                                 DBG=IDP  3920
                                                  SB1    1           RESTORE (B1) = 1                            DBG=IDP  3921
                                                  SB2    X1          (B2) = ADDR TO TRANSFER CONTROL TO          DBG=IDP  3922
                                                  SX6    X1                                                      DBG=IDP  3923
                                                  SA6    IDPXFR                                                  DBG=IDP  3924
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  3925
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    91
  
  
                                                  SA1    IDPXLST                                                 DBG=IDP  3926
                                                  MI     B2,STP=ER   IF ADDR IS BAD                              DBG=IDP  3927
                                                  ZR     X1,STP=X    IF NOT LISTING                              DBG=IDP  3928
                                                  PRIDP  (=C=                                 BRANCH TAKEN...=)  DBG=IDP  3929
                                                  EQ     STP=X                                                   DBG=IDP  3930
                                                                                                                 DBG=IDP  3931
                                        *         HERE IF *EQ BI,BJ,ADDR*.                                       DBG=IDP  3932
                                                                                                                 DBG=IDP  3933
                                         STP10    SA1    STP=I                                                   DBG=IDP  3934
                                                  SA2    STP=J                                                   DBG=IDP  3935
                                                  BX6    X1+X2                                                   DBG=IDP  3936
                                                  NZ     X6,STP9     IF NOT *EQ ADDR*                            DBG=IDP  3937
                                                  MX7    0                                                       DBG=IDP  3938
                                                  SA1    IDPXRJ                                                  DBG=IDP  3939
                                                  SA2    IDPPREG                                                 DBG=IDP  3940
                                                  IX6    X1-X2                                                   DBG=IDP  3941
                                                  NZ     X6,STP=BP   IF NOT POSSIBLY *RJ SUBR* EXIT              DBG=IDP  3942
                                                  SA7    A1          SET TO *BACK TO LEVEL 0 NOW*                DBG=IDP  3943
                                                  EQ     STP=BP                                                  DBG=IDP  3944
                                                                                                                 DBG=IDP  3945
                                        *         HERE IF *JP BI+ADDR*.                                          DBG=IDP  3946
                                                                                                                 DBG=IDP  3947
                                         STP11    SA1    STP=I                                                   DBG=IDP  3948
                                                  SA2    STP=ADR                                                 DBG=IDP  3949
                                                  SA3    =XSV=B+X1   (X3) = (BI)                                 DBG=IDP  3950
                                                  IX6    X2+X3       (X6) = BI+ADDR                              DBG=IDP  3951
                                                  SB2    X6                                                      DBG=IDP  3952
                                                  SA6    IDPXFR                                                  DBG=IDP  3953
                                                  RJ     CHK         CHECK CM ADDRESS                            DBG=IDP  3954
                                                  PL     B2,STP=X    IF ADDR OK                                  DBG=IDP  3955
                                                  EQ     STP=ER                                                  DBG=IDP  3956
                                                                                                                 DBG=IDP  3957
                                        *         HERE IF A LOAD/STORE INSTRUCTION (50 THRU 57).                 DBG=IDP  3958
                                                                                                                 DBG=IDP  3959
                                         STP12    SA1    STP=LS+X1-50B  (X1) = LOAD/STORE SKELETON               DBG=IDP  3960
                                                  SA2    STP=I                                                   DBG=IDP  3961
                                                  SA3    A2+B1                                                   DBG=IDP  3962
                                                  SA4    A3+B1                                                   DBG=IDP  3963
                                                  SA5    STP=ADR                                                 DBG=IDP  3964
                                                  SB6    X1          (B6) = .MI. IF *Q* FLAG, ELSE               DBG=IDP  3965
                                        *                                 = FWA OF APPROPRIATE SAVED REG BLOCK   DBG=IDP  3966
                                                  LX1    -18-3                                                   DBG=IDP  3967
                                                  BX6    X1                                                      DBG=IDP  3968
                                                  AX6    59          (X6) = +0 IF *J* REG + *K* REG              DBG=IDP  3969
                                        *                                   -0 IF *J* REG - *K* REG              DBG=IDP  3970
                                                  SB7    X1                                                      DBG=IDP  3971
                                                  ZR     X2,STP5     IF *SA0* (I.E. NOT LOAD/STORE)              DBG=IDP  3972
                                                  MI     B6,STP13    IF *Q* 18 BIT ADDR                          DBG=IDP  3973
                                                  SA5    B6+X4       (X5) = SAVED *K* REGISTER                   DBG=IDP  3974
                                                  BX5    X5-X6                                                   DBG=IDP  3975
                                                                                                                 DBG=IDP  3976
                                         STP13    SA1    B7+X3       (X1) = SAVED *J* REGISTER                   DBG=IDP  3977
                                                  IX6    X1+X5                                                   DBG=IDP  3978
                                                  SB2    X6          (B2) = ADDR TO LOAD/STORE                   DBG=IDP  3979
                                                  SA6    IDPXAR                                                  DBG=IDP  3980
                                                  RJ     =XCHK       CHECK CM ADDRESS                            DBG=IDP  3981
                                                  PL     B2,STP5     IF ADDR OK                                  DBG=IDP  3982
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    92
  
  
                                                  EQ     STP=ER                                                  DBG=IDP  3983
                                                                                                                 DBG=IDP  3984
                                        *         LOAD/STORE TABLE.                                              DBG=IDP  3985
                                                                                                                 DBG=IDP  3986
                                         STP=LS   BSS    0                                                       DBG=IDP  3987
                                                                                                                 DBG=IDP  3988
                                                  LOC    50B                                                     DBG=IDP  3989
                                         +        VFD    18/0,3/0,18/=XSV=A,3/0,18/-1         SAI  AJ+Q          DBG=IDP  3990
                                         +        VFD    18/0,3/0,18/=XSV=B,3/0,18/-1         SAI  BJ+Q          DBG=IDP  3991
                                         +        VFD    18/0,3/0,18/=XSV=X,3/0,18/-1         SAI  XJ+Q          DBG=IDP  3992
                                         +        VFD    18/0,3/0,18/=XSV=X,3/0,18/=XSV=B     SAI  XJ+BK         DBG=IDP  3993
                                         +        VFD    18/0,3/0,18/=XSV=A,3/0,18/=XSV=B     SAI  AJ+BK         DBG=IDP  3994
                                         +        VFD    18/0,3/0,18/=XSV=A,3/4,18/=XSV=B     SAI  AJ-BK         DBG=IDP  3995
                                         +        VFD    18/0,3/0,18/=XSV=B,3/0,18/=XSV=B     SAI  BJ+BK         DBG=IDP  3996
                                         +        VFD    18/0,3/0,18/=XSV=B,3/4,18/=XSV=B     SAI  BJ-BK         DBG=IDP  3997
                                                  LOC    *O                                                      DBG=IDP  3998
                                                                                                                 DBG=IDP  3999
                                        *         HERE TO UPDATE POS COUNTER AND PSEUDO P REGISTER.              DBG=IDP  4000
                                                                                                                 DBG=IDP  4001
                                         STP=X    SA1    STP=OP                                                  DBG=IDP  4002
                                                  SA2    IDPXFR                                                  DBG=IDP  4003
                                                  SA3    IDPPREG                                                 DBG=IDP  4004
                                                  SA4    IDPPOS                                                  DBG=IDP  4005
                                                  SA5    ST=ENDX                                                 DBG=IDP  4006
                                                  SA1    DAZ=PS+X1   (X1) = INSTRUCTION SKELETON                 DBG=IDP  4007
                                                  SB5    15                                                      DBG=IDP  4008
                                                  BX6    X2                                                      DBG=IDP  4009
                                                  SB4    X4                                                      DBG=IDP  4010
                                                  MX7    0                                                       DBG=IDP  4011
                                                  PL     X1,STP=X2   IF SHORT (15 BIT) INSTRUCTION               DBG=IDP  4012
                                                  SB5    B5+B5                                                   DBG=IDP  4013
                                                                                                                 DBG=IDP  4014
                                         STP=X2   LX1    59-57                                                   DBG=IDP  4015
                                                  NZ     X2,STP=X4A  IF A XFER OF CONTROL OCCURRED               DBG0002  1401
                                                  SX6    X3+B1                                                   DBG=IDP  4017
                                                  LE     B4,B5,STP=X3  IF NO MORE INSTRUCTIONS IN THIS WORD      DBG=IDP  4018
                                                  PL     X1,STP=X5   IF INSTRUCTION DOES NOT FORCE UPPER         DBG=IDP  4019
                                                                                                                 DBG=IDP  4020
                                         STP=X3   ZR     X5,STP=X4   IF NOT IN IDP GENERATED BREAK MODE          DBG=IDP  4021
                                                  SX6    X3                                                      DBG=IDP  4022
                                                                                                                 DBG=IDP  4023
                                        *         HERE IF INSTRUCTION FORCES UPPER.                              DBG=IDP  4024
                                                                                                                 DBG=IDP  4025
                                         STP=X4   SA7    A5          SET TO *NOT IN IDP GENERATED BREAK MODE*    DBG=IDP  4026
                                                  SA6    A3                                                      DBG=IDP  4027
                                                  SX7    60                                                      DBG=IDP  4028
                                                  SA7    A4                                                      DBG=IDP  4029
                                                  EQ     STP=X6                                                  DBG=IDP  4030
                                                                                                                 DBG0002  1402
                                        *         HERE IF TRANSFER OF CONTROL OCCURRED -- ENTER TRANSFER ADDR    DBG0002  1403
                                        *           ONTO PUSH DOWN STACK OF SAVED TRANSFER ADDRESSES *IDPXFT*.   DBG0002  1404
                                        *           ALL ENTRIES IN PUSH DOWN STACK ARE MOVED UP (TOWARD *RA*)    DBG0002  1405
                                        *           ONE POSITION (THE 1ST ENTRY IN *XFT*, THE EARLIEST TRANSFER  DBG0002  1406
                                        *           ADDRESS, FALLS OFF STACK).  EXAMPLE --                       DBG0002  1407
                                        *                                                                        DBG0002  1408
                                        *                     BEFORE                 AFTER                       DBG0002  1409
                                        *             XFT+0  XFER(N)         XFT+0  XFER(N+1)                    DBG0002  1410
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    93
  
  
                                        *                +1  XFER(N+1)          +1  XFER(N+2)                    DBG0002  1411
                                        *                +2  XFER(N+2)          +2  XFER(N+3)                    DBG0002  1412
                                        *                +3  XFER(N+3)          +3  XFER(N+4) -- NEW ENTRY       DBG0002  1413
                                        *                +4  END-OF-TABLE       +4  END-OF-TABLE                 DBG0002  1414
                                                                                                                 DBG0002  1415
                                         STP=X4A  SA1    IDPXFT+1    (A1,X1) = A+C OF 1ST WORD TO MOVE           DBG0002  1416
                                                  SB7    L.XFT-1     (B7) = NR OF WORDS TO MOVE                  DBG0002  1417
                                                                                                                 DBG0002  1418
                                         STP=X4B  BX7    X1                                                      DBG0002  1419
                                                  SA7    A1-B1                                                   DBG0002  1420
                                                  SB7    B7-B1                                                   DBG0002  1421
                                                  SA1    A1+B1                                                   DBG0002  1422
                                                  GT     B7,B0,STP=X4B IF NOT DONE                               DBG0002  1423
                                                                                                                 DBG0002  1424
                                                  LX4    59-29                                                   DBG0002  1425
                                                  BX7    X4+X3       (X7) = 30/POS COUNTER,30/P REG OF XFER INST DBG0002  1426
                                                  SA7    A1-B1       MAKE NEW ENTRY                              DBG0002  1427
                                                  MX7    0                                                       DBG0002  1428
                                                  EQ     STP=X4      FORCE UPPER...                              DBG0002  1429
                                                                                                                 DBG=IDP  4031
                                        *         HERE IF INSTRUCTION DOES NOT FORCE UPPER.                      DBG=IDP  4032
                                                                                                                 DBG=IDP  4033
                                         STP=X5   SB6    B4-B5                                                   DBG=IDP  4034
                                                  SX7    B6                                                      DBG=IDP  4035
                                                  SA7    A4                                                      DBG=IDP  4036
                                                                                                                 DBG=IDP  4037
                                        *         LIST RESULT REGISTER.                                          DBG=IDP  4038
                                                                                                                 DBG=IDP  4039
                                         STP=X6   SA3    IDPXLST                                                 DBG=IDP  4040
                                                  SA4    STP=OP                                                  DBG=IDP  4041
                                                  ZR     X3,EXIT.    IF NOT LISTING                              DBG=IDP  4042
                                                                                                                 DBG=IDP  4043
                                                  SX6    X4-10B                                                  DBG=IDP  4044
                                                  SA3    STP=I                                                   DBG=IDP  4045
                                                  MI     X6,EXIT.    IF A BRANCH INSTRUCTION                     DBG=IDP  4046
                                                  LX1    -2          RESTORE (X1) = INSTRUCTION SKELETON         DBG=IDP  4047
                                                  MX0    -CHAR                                                   DBG=IDP  4048
                                                  BX6    -X0*X1                                                  DBG=IDP  4049
                                                  SX7    X6-1RB                                                  DBG=IDP  4050
                                                  SB6    000B        (B6) = 0TR, WHERE T=0 (B REG)               DBG=IDP  4051
                                                  ZR     X7,STP=X8   IF B REGISTER                               DBG=IDP  4052
                                                  SX7    X6-1RA                                                  DBG=IDP  4053
                                                  SB6    010B        (B6) = 0TR, WHERE T=1 (A REG)               DBG=IDP  4054
                                                  ZR     X7,STP=X8   IF A REGISTER                               DBG=IDP  4055
                                                  SX7    X6-1RX                                                  DBG=IDP  4056
                                                  SB6    020B        (B6) = 0TR, WHERE T=2 (X REG)               DBG=IDP  4057
                                                  ZR     X7,STP=X9   IF X REGISTER                               DBG=IDP  4058
                                                  EQ     EXIT.                                                   DBG=IDP  4059
                                                                                                                 DBG=IDP  4060
                                         STP=X8   SB4    B6+X3       (B4) = 0TR                                  DBG=IDP  4061
                                                  RJ     DAB         DUMP -A- OR -B- REGISTER                    DBG=IDP  4062
                                                  EQ     EXIT.                                                   DBG=IDP  4063
                                                                                                                 DBG=IDP  4064
                                         STP=X9   SB4    B6+X3       (B4) = 02R                                  DBG=IDP  4065
                                                  RJ     DUX         DUMP -X- REGISTER                           DBG=IDP  4066
                                                  EQ     EXIT.                                                   DBG=IDP  4067
                                                                                                                 DBG=IDP  4068
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    94
  
  
                                        *         HERE IF AN ERROR ENCOUNTERED.                                  DBG=IDP  4069
                                                                                                                 DBG=IDP  4070
                                         STP=ER   SA1    IDPXLST                                                 DBG=IDP  4071
                                                  SA2    ST=ENDX                                                 DBG=IDP  4072
                                                  SA3    IDPPREG                                                 DBG=IDP  4073
                                                  SA4    IDPPOS                                                  DBG=IDP  4074
                                                  NZ     X1,STP=E3   IF INSTRUCTION WAS ALREADY LISTED           DBG=IDP  4075
                                                  SA5    X3                                                      DBG=IDP  4076
                                                  ZR     X2,STP=E2   IF NOT IN IDP GENERATED BREAK MODE          DBG=IDP  4077
                                                  SA5    A2                                                      DBG=IDP  4078
                                                                                                                 DBG=IDP  4079
                                         STP=E2   SB4    X4                                                      DBG=IDP  4080
                                                  RJ     DAZ         DEASSEMBLE BAD INSTRUCTION                  DBG=IDP  4081
                                                                                                                 DBG=IDP  4082
                                         STP=E3   MX0    -18                                                     DBG=IDP  4083
                                                  SA1    IDPPREG                                                 DBG=IDP  4084
                                                  SA2    =10H      P =                                           DBG=IDP  4085
                                                  BX1    -X0*X1                                                  DBG=IDP  4086
                                                  LX7    X2                                                      DBG=IDP  4087
                                                  SA7    SNAPLNE                                                 DBG=IDP  4088
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 DBG=IDP  4089
                                                  BX6    X4                                                      DBG=IDP  4090
                                                  SA6    A7+B1                                                   DBG=IDP  4091
                                                                                                                 DBG=IDP  4092
                                         #FRA     IF     DEF,FRA=                                                DBG=IDP  4093
                                                  SA1    IDPPREG                                                 DBG=IDP  4094
                                                  SB7    STP=E4      (B7) = RETURN ADDR FOR *FRA=*               DBG=IDP  4095
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       DBG=IDP  4096
                                                                                                                 DBG=IDP  4097
                                         STP=E4   SA6    A6+B1                                                   DBG=IDP  4098
                                                  SA7    A6+B1                                                   DBG=IDP  4099
                                                                                                                 DBG=IDP  4100
                                         #FRA     ELSE                                                           DBG=IDP  4101
                                                  MX6    0                                                       DBG=IDP  4102
                                                  SA6    A6+B1       MARK EOL                                    DBG=IDP  4103
                                         #FRA     ENDIF                                                          DBG=IDP  4104
                                                                                                                 DBG=IDP  4105
                                                  PRIDP  SNAPLNE                                                 DBG=IDP  4106
                                                  EQ     IDP=ER                                                  DBG=IDP  4107
                                                                                                                 DBG=IDP  4108
                                                                                                                 DBG=IDP  4109
                                         STP=ADR  =      DAZ=ADR                                                 DBG=IDP  4110
                                         STP=I    =      DAZ=I                                                   DBG=IDP  4111
                                         STP=J    =      DAZ=J                                                   DBG=IDP  4112
                                         STP=K    =      DAZ=K                                                   DBG=IDP  4113
                                         STP=OP   =      DAZ=OP                                                  DBG=IDP  4114
                                         VFD      SPACE  4,8                                                     DBG=IDP  4115
                                        **        VFD - VARIABLE FIELD DEFINITION.                               DBG=IDP  4116
                                        *                                                                        DBG=IDP  4117
                                        *                                                                        DBG=IDP  4118
                                        *                CONVERTS A SPECIFIED FIELD IN A BINARY WORD TO OCTAL    DBG=IDP  4119
                                        *         DISPLAY CODE WITH APPROPRIATE SPACING AND BLANK FILL.          DBG=IDP  4120
                                        *         THE FIELD TO BE CONVERTED CAN BE REPRESENTED IN *COMPASS* BY-- DBG=IDP  4121
                                        *                                                                        DBG=IDP  4122
                                        *         POS    (B4)   IN (X1)                                          DBG=IDP  4123
                                        *         VFD    (B5)/FIELD   WHERE *FIELD* HAS BEEN EXTRACTED FROM (X1) DBG=IDP  4124
                                        *                                                                        DBG=IDP  4125
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    95
  
  
                                        *         E.G.   (B4) = 45   POSITION COUNTER                            DBG=IDP  4126
                                        *                (B5) = 30   NR OF BITS                                  DBG=IDP  4127
                                        *                                                                        DBG=IDP  4128
                                        *                BINARY      76211031100015620310                        DBG=IDP  4129
                                        *                DPC RSULT   .....0311000156.....    (.=BLANK(55B))      DBG=IDP  4130
                                        *                                                                        DBG=IDP  4131
                                        *         ENTRY  (X1)  =  BINARY WORD TO BE CONVERTED                    DBG=IDP  4132
                                        *                (B4)  =  POSITION COUNTER                               DBG=IDP  4133
                                        *                (B5)  =  NR OF BITS IN FIELD                            DBG=IDP  4134
                                        *                                                                        DBG=IDP  4135
                                        *         EXIT   (X6)  =  CONVERTED UPPER 30 BITS OF (X1) -- DPC RESULT  DBG=IDP  4136
                                        *                (X7)  =  CONVERTED LOWER 30 BITS OF (X1) -- DPC RESULT  DBG=IDP  4137
                                        *                (X0)  =  .ZR. IF BAD POS OR BIT COUNT ON ENTRY,         DBG=IDP  4138
                                        *                            ELSE .NZ.                                   DBG=IDP  4139
                                        *                                                                        DBG=IDP  4140
                                        *         USES   X - 0,1,2,3,4,6,7                                       DBG=IDP  4141
                                        *                A - NONE                                                DBG=IDP  4142
                                        *                B - 6                                                   DBG=IDP  4143
                                        *                                                                        DBG=IDP  4144
                                        *         CALLS  NONE                                                    DBG=IDP  4145
                                                                                                                 DBG=IDP  4146
                                                                                                                 DBG=IDP  4147
                                         VFD      SUBR               ** ENTRY/EXIT **                            DBG=IDP  4148
                                                  MX3    0                                                       DBG=IDP  4149
                                                  BX0    X0-X0                                                   DBG=IDP  4150
                                                  SB6    B5-1                                                    DBG=IDP  4151
                                                  LT     B4,B0,EXIT. IF POS COUNT IS BAD                         DBG=IDP  4152
                                                  LT     B5,B0,EXIT. IF BIT COUNT IS BAD                         DBG=IDP  4153
                                                  MX0    -3                                                      DBG=IDP  4154
                                                  ZR     B5,VFD2     IF NOT CONVERTING ANY BITS                  DBG=IDP  4155
                                                  MX3    1                                                       DBG=IDP  4156
                                                  AX3    X3,B6                                                   DBG=IDP  4157
                                                  NO                                                             DBG=IDP  4158
                                                  LX3    X3,B4       (X3) = EXTRACT MASK FOR BITS TO CONVERT     DBG=IDP  4159
                                                  BX1    X3*X1                                                   DBG=IDP  4160
                                                                                                                 DBG=IDP  4161
                                         VFD2     MX6    0                                                       DBG=IDP  4162
                                                  BX7    X7-X7                                                   DBG=IDP  4163
                                                  SB6    60                                                      DBG=IDP  4164
                                                                                                                 DBG=IDP  4165
                                        *         ASSEMBLE APPROPRIATE DIGITS.                                   DBG=IDP  4166
                                                                                                                 DBG=IDP  4167
                                         VFD3     LX1    3                                                       DBG=IDP  4168
                                                  BX2    -X0*X1                                                  DBG=IDP  4169
                                                  LX3    3                                                       DBG=IDP  4170
                                                  BX4    -X0*X3                                                  DBG=IDP  4171
                                                  SX2    X2+1R0                                                  DBG=IDP  4172
                                                  SB6    B6-6                                                    DBG=IDP  4173
                                                  NZ     X4,VFD4     IF ASSEMBLING THESE DIGITS                  DBG=IDP  4174
                                                  SX2    1R                                                      DBG=IDP  4175
                                                                                                                 DBG=IDP  4176
                                         VFD4     LX2    X2,B6                                                   DBG=IDP  4177
                                                  BX7    X7+X2                                                   DBG=IDP  4178
                                                  GT     B6,B0,VFD3  IF PACKING REG (X7) NOT FULL                DBG=IDP  4179
                                                                                                                 DBG=IDP  4180
                                        *         HERE IF PACKING REGISTER (X7) IS FULL.                         DBG=IDP  4181
                                                                                                                 DBG=IDP  4182
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    96
  
  
                                                  SB6    60                                                      DBG=IDP  4183
                                                  NZ     X6,EXIT.    IF FINISHED ASSEMBLING ENTIRE WORD          DBG=IDP  4184
                                                  BX6    X7                                                      DBG=IDP  4185
                                                  MX7    0                                                       DBG=IDP  4186
                                                  EQ     VFD3                                                    DBG=IDP  4187
                                         DATA     SPACE  4,8                                                     DBG=IDP  4188
                                        **        *IDP* DATA DECLARATIONS.                                       DBG=IDP  4189
                                                                                                                 DBG=IDP  4190
                                                                                                                 DBG0002  1430
                                         IDPSTMT  BSSZ   1           DURING TOKEN GENERATION *BUB* -- CONTAINS   DBG0002  1431
                                        *                              ADDR OF STMT INFO WORD FOR STMT BEING     DBG0002  1432
                                        *                              BURST/BUILT, SO THAT UPON ENCOUNTERING    DBG0002  1433
                                        *                              EOS, *BUB* CAN GO BACK AND FILL IN LEN.   DBG0002  1434
                                        *                            DURING STMT PROCESSING -- INDICATES WHERE   DBG0002  1435
                                        *                              STMT BEING PROCESSED IS.                  DBG0002  1436
                                        *                              IF STMT IS NOT PART OF *PROC* -- BIT 59   DBG0002  1437
                                        *                                IS 0 AND BITS 17 THRU 0 CONTAIN THE     DBG0002  1438
                                        *                                ADDR OF STMT INFO WORD IN *IDPTB* FOR   DBG0002  1439
                                        *                                THIS STMT.                              DBG0002  1440
                                        *                              IF STMT IS PART OF *PROC* -- BIT 59 IS 1  DBG0002  1441
                                        *                                AND BITS 17 THRU 0 CONTAIN THE *IDPPRN* DBG0002  1442
                                        *                                ORD OF *PROC* CONTAINING STMT.          DBG0002  1443
                                                                                                                 DBG0002  1444
                                         IDPSTO   BSSZ   3                                                       DBG=IDP  4191
                                                                                                                 DBG=IDP  4192
                                                  LOC    IDPSTO                                                  DBG=IDP  4193
                                         IDPSTA   =      *           ADDR TO STORE INTO FOR *STORE* PROCESSING   DBG=IDP  4194
                                         IDPSTC   =      *+1         NEW VALUE ASSEMBLED FROM C1 THRU C4 ON      DBG=IDP  4195
                                        *                              *STORE* COMMAND                           DBG=IDP  4196
                                         IDPSTM   =      *+2         MASK ASSEMBLED FROM NULL C1 THRU C4 ON      DBG=IDP  4197
                                        *                              *STORE* COMMAND. IDP USES THIS MASK TO    DBG=IDP  4198
                                        *                              PICK UP THE PREVIOUS CONTENTS OF THE C-N- DBG=IDP  4199
                                        *                              FIELD IF THE NEW C-N- FIELD IS NULL       DBG=IDP  4200
                                        *                              E.G.  STORE ADDR,,22222,,44444            DBG=IDP  4201
                                        *                              PREVIOUS (STA) = 01020304050607080910     DBG=IDP  4202
                                        *                                       (STC) = 00000222220000044444     DBG=IDP  4203
                                        *                                       (STM) = 77777000007777700000     DBG=IDP  4204
                                        *                                   NEW (STA) = 01020222220607044444     DBG=IDP  4205
                                                  LOC    *O                                                      DBG=IDP  4206
                                                                                                                 DBG=IDP  4207
                                         IDPBAX   BSS    0           BAX REGISTER SHIFT MASK                     DBG=IDP  4208
                                                  ECHO   2,BIT=(A,B,X)                                           DBG=IDP  4209
                                                  POS    60-1R_BIT                                               DBG=IDP  4210
                                                  VFD    1/1                                                     DBG=IDP  4211
                                                  POS    0                                                       DBG=IDP  4212
                                                                                                                 DBG0002  1445
                                         IDPSMX   BSS    0           SEPARATOR TOKEN MASK +-*,                   DBG=IDP  4217
                                                  POS    60-1R+                                                  DBG=IDP  4218
                                                  VFD    1/1                                                     DBG=IDP  4219
                                                  POS    60-1R-                                                  DBG=IDP  4220
                                                  VFD    1/1                                                     DBG=IDP  4221
                                                  POS    60-1R*                                                  DBG=IDP  4222
                                                  VFD    1/1                                                     DBG=IDP  4223
                                                  POS    60-1R,                                                  DBG=IDP  4224
                                                  VFD    1/1                                                     DBG=IDP  4225
                                                  POS    0                                                       DBG=IDP  4226
                                         IDPBTC   BSSZ   1           BREAK TYPE CODE                             DBG=IDP  4227
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    97
  
  
                                                                                                                 DBG=IDP  4228
                                         IDPACC   BSSZ   1           ACCUMULATOR FOR THIS SUBEXPRESSION          DBG=IDP  4229
                                         IDPIND   BSSZ   1           USED BY *PAS* TO SHOW THE LEVEL OF INDIR-   DBG=IDP  4230
                                        *                              ECT ADDRESSING, 0 = DIRECT ADDRESSING     DBG=IDP  4231
                                         IDPNUL   BSSZ   1           .ZR. IF JUST PARSED NULL EXPRESSION         DBG=IDP  4232
                                        *                                   E.G.   SNAP FWA,,LEN   (LWA IS NULL) DBG=IDP  4233
                                         IDPSGN   BSSZ   1           SET TO +0 WHEN + SIGN ENCOUNTERED           DBG=IDP  4234
                                        *                                   -0 WHEN - SIGN ENCOUNTERED           DBG=IDP  4235
                                                                                                                 DBG=IDP  4236
                                         IDP0TR   BSSZ   1           REGISTER DESIGNATOR                         DBG=IDP  4237
                                        *                              USED FOR *REG R1,R2,...,RN* PROCESSING.   DBG=IDP  4238
                                        *                              FORMAT IS--  60/0TR WHERE                 DBG=IDP  4239
                                        *                                  T = REGISTER TYPE (B=0,A=1,X=2)       DBG=IDP  4240
                                        *                                  R = REGISTER NR (0-7)                 DBG=IDP  4241
                                                                                                                 DBG=IDP  4242
                                         IDPNAM   BSSZ   1           SAVE CELL FOR *ST=SET* -- SET NAME (0L FMT) DBG=IDP  4243
                                                                                                                 DBG=IDP  4244
                                         IDPFAD   BSSZ   1           .NZ. IF *DAZ* IS TO FORCE OUT ADDR OF INST- DBG0002  1446
                                        *                              RUCTION BEING DEASSEMBLED EVEN IF NOT     DBG0002  1447
                                        *                              FORCED UPPER IN WORD, ELSE .ZR.           DBG0002  1448
                                        *                              E.G. IF *FAD* IS .ZR. --                  DBG0002  1449
                                        *                              ADDR  54111                 SA1  A1+B1    DBG0002  1450
                                        *                                         0311000000       NZ   X1,...   DBG0002  1451
                                        *                                                   10611  BX6  X1       DBG0002  1452
                                        *                              E.G. IF *FAD* IS .NZ. --                  DBG0002  1453
                                        *                              ADDR  54111                 SA1  A1+B1    DBG0002  1454
                                        *                              ADDR       0311000000       NZ   X1,...   DBG0002  1455
                                        *                              ADDR                 10611  BX6  X1       DBG0002  1456
                                        *                              NOTE-- *DAZ* WILL ALWAYS ZERO *FAD*       DBG0002  1457
                                                                                                                 DBG0002  1458
                                         IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                          DBG=IDP  4247
                                                                                                                 DBG=IDP  4248
                                         IDPPPP   BSSZ   2           PSEUDO P REGISTER AND POS COUNTER           DBG=IDP  4249
                                                                                                                 DBG=IDP  4250
                                                  LOC    IDPPPP                                                  DBG=IDP  4251
                                         IDPPREG  =      *           PSEUDO P REGISTER. POINTS TO WORD CONTAIN-  DBG=IDP  4252
                                        *                              ING NEXT INSTRUCTION TO BE XEQ            DBG=IDP  4253
                                         IDPPOS   =      *+1         POSITION COUNTER. LEFT MOST BIT OF INST-    DBG=IDP  4254
                                        *                              RUCTION TO XEQ IS BIT (IDPPOS)-1 IN       DBG=IDP  4255
                                        *                              ((IDPPREG)).(BITS ARE NUMBERED 59 THRU 0) DBG=IDP  4256
                                                  LOC    *O                                                      DBG=IDP  4257
                                                                                                                 DBG=IDP  4258
                                         IDPXAR   BSSZ   1           .MI. IF NO ADDR REF VIA LOAD/STORE, ELSE    DBG=IDP  4259
                                        *                              ADDR THAT WAS REFERENCED. USED IN *STAR*  DBG=IDP  4260
                                        *                              PROCESSING.                               DBG=IDP  4261
                                         IDPXCA   BSSZ   2           CONDITIONAL *STEP* COMPARE ADDRESSES.       DBG=IDP  4262
                                        *                              IF THIS IS A CONDITIONAL STEP (STNE,...), DBG=IDP  4263
                                        *                              THEN ((XA1)) WILL BE COMPARED TO ((XA2))  DBG=IDP  4264
                                                                                                                 DBG=IDP  4265
                                                  LOC    IDPXCA                                                  DBG=IDP  4266
                                         IDPXA1   =      *                                                       DBG=IDP  4267
                                         IDPXA2   =      *+1                                                     DBG=IDP  4268
                                                  LOC    *O                                                      DBG=IDP  4269
                                                                                                                 DBG=IDP  4270
                                         IDPXFR   BSSZ   1           .ZR. IF NO XFER OF CONTROL BY BRANCH OR RJ, DBG=IDP  4271
                                        *                              ELSE ADDR TO XFER CONTROL TO. USED IN     DBG=IDP  4272
                                        *                              STEP MODE SO THAT PSEUDO P REGISTER IS    DBG=IDP  4273
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    98
  
  
                                        *                              NOT PREMATURELY UPDATED WHEN BRANCHING.   DBG=IDP  4274
                                         IDPXLST  BSSZ   1           .NZ. IF LISTING THIS INSTRUCTION IN STEP    DBG=IDP  4275
                                        *                              MODE, ELSE .ZR.                           DBG=IDP  4276
                                         IDPXRJ   BSSZ   1           .ZR. IF AT LEVEL 0 (I.E. NO *RJ* ACTIVE),   DBG=IDP  4277
                                        *                              ELSE ADDR OF ENTRY POINT TO ROUTINE       DBG=IDP  4278
                                        *                              CALLED FROM LEVEL 0. USED IN STEP MODE TO DBG=IDP  4279
                                        *                              DETERMINE WHEN TO TURN LISTING BACK ON    DBG=IDP  4280
                                        *                              WHEN /-RJ/ OPTION SELECTED                DBG=IDP  4281
                                         IDPXTC   BSSZ   1           *STEP* TYPE CODE                            DBG=IDP  4282
                                                                                                                 DBG=IDP  4283
                                         IDPXOP   BSSZ   2           STEP OPTIONS FLAGS. THERE IS A ONE-TO-ONE   DBG=IDP  4284
                                        *                              RELATIONSHIP BETWEEN THE STEP OPTIONS     DBG=IDP  4285
                                        *                              FLAGS AND THE STEP OPTIONS KEYWORD TABLE. DBG=IDP  4286
                                        *                              WHEN *POL* RETURNS WITH A KEYWORD FIND    DBG=IDP  4287
                                        *                              AND AN OPTIONS FLAG VALUE, THE ORDINAL OF DBG=IDP  4288
                                        *                              FIND IN THE STEP OPTIONS KEYWORD TABLE IS DBG=IDP  4289
                                        *                              THE ORDINAL TO STORE INTO *IDPXOP*.       DBG=IDP  4290
                                                                                                                 DBG=IDP  4291
                                                  LOC    IDPXOP                                                  DBG=IDP  4292
                                         IDPXOL   =      *           .NZ. IF /L/ SELECTED ON STEP COMAND,        DBG=IDP  4293
                                        *                              ELSE .ZR. IF /-L/ SELECTED                DBG=IDP  4294
                                         IDPXORJ  =      *+1         .NZ. IF /RJ/ SELECTED ON STEP COMMAND,      DBG=IDP  4295
                                        *                              ELSE .ZR. IF /-RJ/ SELECTED               DBG=IDP  4296
                                                  LOC    *O                                                      DBG=IDP  4297
                                         MX=      SPACE  4,8                                                     DBG0002  1459
                                        **        MX= - CHARACTER SHIFT MASKS.                                   DBG0002  1460
                                                                                                                 DBG0002  1461
                                                                                                                 DBG0002  1462
                                         MX=KEYW  CHARMX (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,0, DBG0002  1463
                                        ,1,2,3,4,5,6,7,8,9),+7777B-1RM                                           DBG0002  1464
                                         MX=NR09  CHARMX (0,1,2,3,4,5,6,7,8,9)                                   DBG0002  1465
                                         MX=TOKN  CHARMX ("EOS",+,-,*,(,)),+7777B-1RM                            DBG0002  1466
                                         MSG      SPACE  4,8                                                     DBG=IDP  4298
                                        **        *IDP* MESSAGES.                                                DBG=IDP  4299
                                                                                                                 DBG=IDP  4300
                                         IDPMSG2  DIS    3, CALLD BY 000000 IN XXXXXXX                           DBG=IDP  4301
                                         IDPMSG4  DIS    3, OLD VALU 00000000000000000000                        DBG=IDP  4302
                                                  DATA   0                                                       DBG=IDP  4303
                                         IDPMSG5  DIS    3, NEW VALU 00000000000000000000                        DBG=IDP  4304
                                                  DATA   0                                                       DBG=IDP  4305
                                         F.IDI    SPACE  4,8                                                     DBG=IDP  4306
                                        **        F.IDI - FET, LINE IMAGE AREA, AND BUFFER FOR INTERACTIVE       DBG=IDP  4307
                                        *           DEBUG INPUT FILE.                                            DBG=IDP  4308
                                                                                                                 DBG=IDP  4309
                                         #IDI     IF     -DEF,F.IDI                                              DBG=IDP  4310
                                         L.IDI    =      101B        LENGTH OF *IDP* INPUT BUFFER                DBG0002  1467
                                                                                                                 DBG=IDP  4312
                                         F.IDI    BSS    0           ** FWA OF FET **                            DBG=IDP  4313
                                         ZZZZZDI  FILEC  IDPIDI,L.IDI,(FET=7)                                    DBG0005     6
                                                  DIS    1, **IDP**                                              DBG0002  1468
                                         IDPLIM   DIS    8,INTERACTIVE DEBUG LINE IMAGE AREA.                    DBG=IDP  4315
                                         IDPIDI   BSS    L.IDI                                                   DBG=IDP  4316
                                                                                                                 DBG0002  1469
                                         L=LIM    BSSZ   1           NR OF WORDS IN SOURCE LINE IMAGE AT         DBG0002  1470
                                        *                              (IDPLIM) ET SEQ (INCLUDES WORD CONTAINING DBG0002  1471
                                        *                              EOL MARK)                                 DBG0002  1472
                                         #IDI     ENDIF                                                          DBG=IDP  4317
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE    99
  
  
                                         F.BDI    SPACE  4,8                                                     DBG0002  1473
                                         F.BDI    =      F.IDI                                                   DBG0002  1474
                                         F.IDO    SPACE  4,8                                                     DBG=IDP  4318
                                        **        F.IDO - FET AND BUFFER FOR INTERACTIVE DEBUG OUTPUT FILE.      DBG=IDP  4319
                                                                                                                 DBG=IDP  4320
                                         #IDO     IF     -DEF,F.IDO                                              DBG=IDP  4321
                                         L.IDO    =      101B        LENGTH OF *IDP* OUTPUT BUFFER               DBG=IDP  4322
                                                                                                                 DBG=IDP  4323
                                         F.IDO    BSS    0           ** FWA OF FET **                            DBG=IDP  4324
                                         ZZZZZDO  FILEC  IDPIDO,L.IDO,(FET=7)                                    DBG0005     7
                                         IDPIDO   BSS    L.IDO                                                   DBG=IDP  4326
                                         #IDO     ENDIF                                                          DBG=IDP  4327
                                         IDPTB    SPACE  4,8                                                     DBG0002  1475
                                        **        IDPTB - COMMAND LINE TOKEN BUFFER.                             DBG0002  1476
                                        *                                                                        DBG0002  1477
                                        *                CONTAINS THE CURRENT COMMAND LINE IN TOKEN FORM.        DBG0002  1478
                                        *                                                                        DBG0002  1479
                                        *         TOKEN BUFFER FORMAT --                                         DBG0002  1480
                                        *                                                                        DBG0002  1481
                                        *         VFD    1/LAS,41/0,18/LEN   (TOKEN INFO WORD FOR STMT 1)        DBG0002  1482
                                        *         VFD    42/0LCHARS,18/TOKEN TYPE                                DBG0002  1483
                                        *         VFD    42/0LCHAR ,18/TOKEN TYPE                                DBG0002  1484
                                        *          .                                                             DBG0002  1485
                                        *          .                                                             DBG0002  1486
                                        *         VFD    60/0   (END OF STATEMENT MARK FOR STMT 1)               DBG0002  1487
                                        *                                                                        DBG0002  1488
                                        *         VFD    1/LAS,41/0,18/LEN   (TOKEN INFO WORD FOR STMT 2)        DBG0002  1489
                                        *          .                                                             DBG0002  1490
                                        *         ETC                                                            DBG0002  1491
                                        *                                                                        DBG0002  1492
                                        *                THE FIELDS IN THE TOKEN INFORMATION WORDS ARE DESCRIBED DBG0002  1493
                                        *         BY PAIRS OF SYMBOLS OF THE FORM *TB.XXXP* AND *TB.XXXL*,       DBG0002  1494
                                        *         WHERE *TB* IS THE COMMON PREFIX, AND *XXX* IS THE FIELD        DBG0002  1495
                                        *         DESCRIPTION.                                                   DBG0002  1496
                                        *                                                                        DBG0002  1497
                                        *         FIELD DESCRIPTIONS (XXX) ARE --                                DBG0002  1498
                                        *                                                                        DBG0002  1499
                                        *         LAS  = 1  IF THIS IS LAST STMT ON LINE, ELSE 0                 DBG0002  1500
                                        *                                                                        DBG0002  1501
                                        *         LEN  = NR OF WORDS OR TOKENS IN STMT  (INCLUDES EOL MARK)      DBG0002  1502
                                        *                  NOTE--IF LAS .EQ. 0, TOKEN INFO WORD FOR NEXT         DBG0002  1503
                                        *                  STMT IS AT -- TOKEN INFO WORD + LEN + 1               DBG0002  1504
                                                                                                                 DBG0002  1505
                                                                                                                 DBG0002  1506
                                         L.TB     =      40          LENGTH OF TOKEN BUFFER                      DBG0002  1507
                                         IDPTB    BSSZ   L.TB                                                    DBG0002  1508
                                         TOKEN    SPACE  4,8                                                     DBG=IDP  4334
                                        **        IDP TOKEN VALUES.                                              DBG=IDP  4335
                                                                                                                 DBG=IDP  4336
                                         O.CONS   =      2           CONSTANT                                    DBG=IDP  4337
                                         O.SEP    =      4           SEPARATOR +-*,                              DBG=IDP  4338
                                         O.VAR    =      3           NAME                                        DBG=IDP  4339
                                         KEYW     SPACE  4,8                                                     DBG=IDP  4340
                                        **        KEYW - *IDP* KEYWORD TABLE GENERATOR.                          DBG=IDP  4341
                                        *                                                                        DBG=IDP  4342
                                        *                                                                        DBG=IDP  4343
                                        *                MACRO USED TO GENERATE THE *IDP* COMMAND KEYWORD TABLE. DBG=IDP  4344
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   100
  
  
                                        *                                                                        DBG=IDP  4345
                                        *         KEYW   KEYWRD,ADDR                                             DBG=IDP  4346
                                        *                                                                        DBG=IDP  4347
                                        *         ENTRY  *KEYWRD* =  THE *IDP* KEYWORD                           DBG=IDP  4348
                                        *                *ADDR*   =  STATEMENT PROCESSOR FOR THIS KEYWORD        DBG=IDP  4349
                                        *                                                                        DBG=IDP  4350
                                        *         EXIT   NONE                                                    DBG=IDP  4351
                                        *                                                                        DBG=IDP  4352
                                        *         USES   NONE                                                    DBG=IDP  4353
                                        *                                                                        DBG=IDP  4354
                                        *         CALLS  NONE                                                    DBG=IDP  4355
                                                                                                                 DBG=IDP  4356
                                                                                                                 DBG=IDP  4357
                                                  PURGMAC  KEYW                                                  DBG=IDP  4358
                                                                                                                 DBG=IDP  4359
                                         KEYW     MACRO  KEYWRD,ADDR                                             DBG=IDP  4360
                                                  VFD    42/0L_KEYWRD,18/ADDR                                    DBG=IDP  4361
                                         KEYW     ENDM                                                           DBG=IDP  4362
                                         KEY      SPACE  4,8                                                     DBG=IDP  4363
                                        **        *IDP* KEYWORD TABLE.                                           DBG=IDP  4364
                                                                                                                 DBG=IDP  4365
                                         IDPKEY   BSS    0                                                       DBG=IDP  4366
                                                  KEYW   CODE,ST=COD                                             DBG=IDP  4367
                                                  KEYW   CONNECT,ST=CON                                          DBG=IDP  4368
                                                  KEYW   DISCONT,ST=DSC                                          DBG=IDP  4369
                                                  KEYW   DPC,ST=DPC                                              DBG0002  1509
                                                  KEYW   END,ST=END                                              DBG=IDP  4370
                                                  KEYW   FREEZE,ST=FRZ                                           DBG0006   139
                                                  KEYW   JUMP,ST=JP                                              DBG=IDP  4371
                                                  KEYW   OUTPUT,ST=OUT                                           DBG0002  1510
                                                  KEYW   REGS,ST=REG                                             DBG=IDP  4372
                                                  KEYW   RESET,ST=RES                                            DBG=IDP  4373
                                                  KEYW   SET,ST=SET                                              DBG=IDP  4374
                                                  KEYW   SNAP,ST=SNP                                             DBG=IDP  4375
                                                  KEYW   STORE,ST=STO                                            DBG=IDP  4376
                                                  KEYW   UNBREAK,ST=UBK                                          DBG=IDP  4377
                                                  KEYW   UNSET,ST=UST                                            DBG=IDP  4378
                                                  KEYW   UBREAK,ST=UBK                                           DBG=IDP  4379
                                                  KEYW   USET,ST=UST                                             DBG=IDP  4380
                                                  KEYW   WHERE,ST=WHR                                            DBG=IDP  4381
                                                  KEYW   XEQ,ST=XEQ                                              DBG=IDP  4382
                                                  KEYW   XFER,ST=XFR                                             DBG0002  1511
                                                                                                                 DBG=IDP  4383
                                        *         *BREAK* KEYWORDS.                                              DBG=IDP  4384
                                        *              THE BREAK TYPE CODE (IDPBTC) IS DETERMINED FROM THE BREAK DBG=IDP  4385
                                        *           KEYWORD ORDINAL.                                             DBG=IDP  4386
                                        *              THERE EXISTS A ONE-TO-ONE RELATIONSHIP BETWEEN THE        DBG=IDP  4387
                                        *           BREAK KEYWORD TABLE AND THE *CBC* OPERATOR TABLE. A CHANGE   DBG=IDP  4388
                                        *           TO ONE WOULD AFFECT THE OTHER.                               DBG=IDP  4389
                                        *              THE ORDER OF THE BREAK KEYWORDS WITHIN *IDPKBR* IS ALSO   DBG=IDP  4390
                                        *           SIGNIFICANT--                                                DBG=IDP  4391
                                        *                BTC = 0  IS A BREAK WITH ONLY ONE ADDRESS EXPRESSION--  DBG=IDP  4392
                                        *                            BREAK ADDR                                  DBG=IDP  4393
                                        *                BTC .LT. BTC=EQ  ARE BREAKS WITH 2 ADDR EXPRESSIONS--   DBG=IDP  4394
                                        *                            BRPL ADDR,ADDR1                             DBG=IDP  4395
                                        *                BTC .GE. BTC=EQ  ARE BREAKS WITH 3 ADDR EXPRESSIONS--   DBG=IDP  4396
                                        *                            BREQ ADDR,ADDR1,ADDR2                       DBG=IDP  4397
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   101
  
  
                                        *           THIS INFORMATION IS USED THROUGHOUT BREAK PROCESSING.        DBG=IDP  4398
                                                                                                                 DBG=IDP  4399
                                         IDPKBR   BSS    0                                                       DBG=IDP  4400
                                                  LOC    0                                                       DBG=IDP  4401
                                                  KEYW   BREAK,ST=BRK                                            DBG=IDP  4402
                                                  KEYW   BRPL,ST=BRK                                             DBG=IDP  4403
                                                  KEYW   BRMI,ST=BRK                                             DBG=IDP  4404
                                                  KEYW   BRZR,ST=BRK                                             DBG=IDP  4405
                                                  KEYW   BRNZ,ST=BRK                                             DBG=IDP  4406
                                         BTC=EQ   KEYW   BREQ,ST=BRK                                             DBG=IDP  4407
                                                  KEYW   BRNE,ST=BRK                                             DBG=IDP  4408
                                                  KEYW   BRLT,ST=BRK                                             DBG=IDP  4409
                                                  KEYW   BRGE,ST=BRK                                             DBG=IDP  4410
                                                  KEYW   BRLE,ST=BRK                                             DBG=IDP  4411
                                                  KEYW   BRGT,ST=BRK                                             DBG=IDP  4412
                                                  LOC    *O                                                      DBG=IDP  4413
                                                                                                                 DBG=IDP  4414
                                        *         *STEP* KEYWORDS.                                               DBG=IDP  4415
                                        *              THE STEP TYPE CODE (IDPXTC) IS DETERMINED FROM THE STEP   DBG=IDP  4416
                                        *           KEYWORD ORDINAL.                                             DBG=IDP  4417
                                        *              THERE EXISTS A ONE-TO-ONE RELATIONSHIP BETWEEN THE STEP   DBG=IDP  4418
                                        *           KEYWORD TABLE AND THE *CBC* OPERATOR TABLE.                  DBG=IDP  4419
                                        *              THE ORDER OF THE STEP KEYWORDS WITHIN *IDPKST* IS ALSO    DBG=IDP  4420
                                        *           SIGNIFICANT--                                                DBG=IDP  4421
                                        *                XTC = 0  IS A STEP WITH NO ADDR EXPRESSION--            DBG=IDP  4422
                                        *                            STEP L,RJ                                   DBG=IDP  4423
                                        *                XTC .LT. XTC=EQ ARE STEPS WITH 1 ADDR EXPRESSION--      DBG=IDP  4424
                                        *                            STMI ADDR,L,RJ                              DBG=IDP  4425
                                        *                XTC .GE. XTC=EQ AND                                     DBG=IDP  4426
                                        *                    .LT. XTC=RNG ARE STEPS WITH 2 ADDR EXPRESSIONS--    DBG=IDP  4427
                                        *                            STGT ADDR1,ADDR2,L,RJ                       DBG=IDP  4428
                                        *                XTC .GE. XTC=RNG ARE STEPS THAT ARE SPECIAL CASED--     DBG=IDP  4429
                                        *                            STAR ADDR,L,RJ                              DBG=IDP  4430
                                        *           (ALSO SEE *BREAK* KEYWORDS)                                  DBG=IDP  4431
                                                                                                                 DBG=IDP  4432
                                         IDPKST   BSS    0                                                       DBG=IDP  4433
                                                  LOC    0                                                       DBG=IDP  4434
                                                  KEYW   STEP,ST=STP                                             DBG=IDP  4435
                                                  KEYW   STPL,ST=STP                                             DBG=IDP  4436
                                                  KEYW   STMI,ST=STP                                             DBG=IDP  4437
                                                  KEYW   STZR,ST=STP                                             DBG=IDP  4438
                                                  KEYW   STNZ,ST=STP                                             DBG=IDP  4439
                                         XTC=EQ   KEYW   STEQ,ST=STP                                             DBG=IDP  4440
                                                  KEYW   STNE,ST=STP                                             DBG=IDP  4441
                                                  KEYW   STLT,ST=STP                                             DBG=IDP  4442
                                                  KEYW   STGE,ST=STP                                             DBG=IDP  4443
                                                  KEYW   STLE,ST=STP                                             DBG=IDP  4444
                                                  KEYW   STGT,ST=STP                                             DBG=IDP  4445
                                         XTC=RNG  KEYW   STRANGE,ST=STP                                          DBG=IDP  4446
                                         XTC=NR   KEYW   STNR,ST=XNR                                             DBG0002  1512
                                         XTC=AR   KEYW   STAR,ST=STP                                             DBG=IDP  4448
                                                  LOC    *O                                                      DBG=IDP  4449
                                                  DATA   0           END OF TABLE MARK                           DBG=IDP  4450
                                                                                                                 DBG=IDP  4451
                                        **        *STEP* OPTIONS KEYWORD TABLE.                                  DBG=IDP  4452
                                        *           THERE IS A ONE-TO-ONE RELATIONSHIP BETWEEN THE STEP OPTIONS  DBG=IDP  4453
                                        *           KEYWORD TABLE AND THE STEP OPTIONS FLAGS (SEE *IDPXOP*)      DBG=IDP  4454
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   102
  
  
                                                                                                                 DBG=IDP  4455
                                         IDPKSTO  BSS    0                                                       DBG=IDP  4456
                                                  KEYW   L,1                                                     DBG=IDP  4457
                                                  KEYW   RJ,1                                                    DBG=IDP  4458
                                                  DATA   0           END OF TABLE MARK                           DBG=IDP  4459
                                         KEY      SPACE  4,8                                                     DBG0002  1513
                                        **        *OUTPUT* OPTIONS KEYWORD TABLE.                                DBG0002  1514
                                                                                                                 DBG0002  1515
                                         IDPKOUT  BSS    0                                                       DBG0002  1516
                                                  KEYW   B,ST=OUT3                                               DBG0002  1517
                                                  KEYW   BECHO,ST=OUT4                                           DBG0002  1518
                                                  KEYW   I,ST=OUT2                                               DBG0002  1519
                                                  KEYW   IECHO,ST=OUT5                                           DBG0002  1520
                                                  DATA   0           END OF TABLE MARK                           DBG0002  1521
                                         IDPBA    SPACE  4,8                                                     DBG=IDP  4460
                                        **        IDPBA/IDPBC - BREAK ADDRESS AND BREAK CONTENTS PARALLEL TBLS.  DBG=IDP  4461
                                                                                                                 DBG=IDP  4462
                                         L.BA     =      10          LENGTH OF *IDPBA*                           DBG=IDP  4463
                                         IDPBA    BSS    0           FWA OF *BREAK* ADDR TABLE                   DBG=IDP  4464
                                         .BA      DUP    L.BA,1                                                  DBG=IDP  4465
                                                  CON    -1                                                      DBG=IDP  4466
                                                  DATA   0           END OF TABLE TERMINATOR                     DBG=IDP  4467
                                         IDPBC    BSSZ   2*L.BA      *BREAK* ADDR CONTENTS TABLE                 DBG=IDP  4468
                                         IDPTMP   SPACE  4,8                                                     DBG=IDP  4469
                                        **        IDP USER *TEMP* TABLE.                                         DBG=IDP  4470
                                                                                                                 DBG=IDP  4471
                                         L.TMP    =      10D                                                     DBG=IDP  4472
                                         IDPTMP   BSSZ   L.TMP                                                   DBG=IDP  4473
                                         IDPSET   SPACE  4,8                                                     DBG=IDP  4474
                                        **        IDP *SET* TABLE DEFINITION.                                    DBG=IDP  4475
                                                                                                                 DBG=IDP  4476
                                         L.SET    =      30B         LENGTH OF IDP *SET* TABLE                   DBG=IDP  4477
                                         IDPSET   BSS    0                                                       DBG=IDP  4478
                                                  DUP    L.SET,1                                                 DBG=IDP  4479
                                                  CON    -1                                                      DBG=IDP  4480
                                                  DATA   0                                                       DBG=IDP  4481
                                         IDPXFT   SPACE  4,8                                                     DBG0002  1522
                                        **        IDPXFT - MOST RECENT TRANSFER ADDRESSES TABLE.                 DBG0002  1523
                                        *                                                                        DBG0002  1524
                                        *           TABLE FORMAT --                                              DBG0002  1525
                                        *                                                                        DBG0002  1526
                                        *             XFT+0    VFD  30/-1  AVAILABLE ENTRY(ONLY IF XFT NOT FULL) DBG0002  1527
                                        *                       .                                                DBG0002  1528
                                        *                       .                                                DBG0002  1529
                                        *                +N    VFD  30/POS COUNTER,30/P REG OF EARLIEST XFER     DBG0002  1530
                                        *                +N+1  VFD  30/POS COUNTER,30/P REG OF LATER XFER        DBG0002  1531
                                        *                       .                                                DBG0002  1532
                                        *               +L.XFT VFD  60/0   END OF TABLE MARK                     DBG0002  1533
                                                                                                                 DBG0002  1534
                                         L.XFT    =      4                                                       DBG0002  1535
                                         IDPXFT   BSS    0                                                       DBG0002  1536
                                                  DUP    L.XFT,1                                                 DBG0002  1537
                                                  CON    -1                                                      DBG0002  1538
                                                  DATA   0                                                       DBG0002  1539
                                         IFR      SPACE  4,8                                                     DBG0006   140
                                        ***       IFR - IDP FREEZE RESTART.                                      DBG0006   141
                                        *                                                                        DBG0006   142
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   103
  
  
                                        *                                                                        DBG0006   143
                                                                                                                 DBG0006   144
                                         FW.IFR   BSS    0           MARK FWA OF *FREEZE* RESTART AREA           DBG0006   145
                                                                                                                 DBG0006   146
                                                  QUAL   IFR                                                     DBG0006   147
                                         IFR      SPACE  4,8                                                     DBG0006   148
                                        **        IFR - IDP FREEZE RECOVERY/RESTART.                             DBG0006   149
                                        *                                                                        DBG0006   150
                                        *                                                                        DBG0006   151
                                        *         THIS ROUTINE IS USED TO RESTART (I.E. SWAPIN) AN               DBG0006   152
                                        *         IDP HOST PROGRAM THAT WAS FROZEN VIA *FREEZE*                  DBG0006   153
                                        *         COMMAND.  THE PROGRAM TO RESTART WAS WRITTEN BY *FRZ*          DBG0006   154
                                        *         TO LFN *F.FRZ* IN A SPECIAL FORMAT --                          DBG0006   155
                                        *                                                                        DBG0006   156
                                        *           RECORD 1  CONTAINS *IFR* (THE CODE YOU ARE LOOKING AT)       DBG0006   157
                                        *                     IN THE FORMAT OF AN ABSOLUTE BINARY.               DBG0006   158
                                        *                                                                        DBG0006   159
                                        *           RECORD 2  CONTAINS THE CORE IMAGE OF THE FROZEN PROGRAM.     DBG0006   160
                                        *                                                                        DBG0006   161
                                        *         BECAUSE RECORD 1 OF *F.FRZ* LOOKS LIKE AN ABS BINARY, THE      DBG0006   162
                                        *         PROGRAMMER NEED ONLY ENTER THE NAME OF THE FREEZE FILE AT      DBG0006   163
                                        *         HIS OR HER TERMINAL IN ORDER TO RESTART THE HOST.              DBG0006   164
                                        *                                                                        DBG0006   165
                                        *         AFTER *IFR* HAS BEEN LOADED, IT WILL MAKE AN OPERATING SYSTEM  DBG0006   166
                                        *         REQUEST FOR THE AMOUNT OF CM THAT THE HOST HAD AT THE TIME IT  DBG0006   167
                                        *         WAS FROZEN PLUS ENOUGH FOR *IFR* TO PERFORM THE FOLLOWING      DBG0006   168
                                        *         TASKS.  AFTER *IFR* HAS CREATED A HOLE FOR THE HOST            DBG0006   169
                                        *         BY *MEM*ING, IT WILL *PLUG* SOME CODE UP ABOVE THE HOLE,       DBG0006   170
                                        *         WHICH WILL READ IN THE 2ND RECORD OF *F.FRZ*.                  DBG0006   171
                                        *                                                                        DBG0006   172
                                        *         WE ALL HAVE CHET RICHARDS OF SVLOPS TO THANK FOR THIS          DBG0006   173
                                        *         DIABOLICALLY CLEVER IDEA.  HI HO SILVER, AND AWAY...           DBG0006   174
                                        *                                                                        DBG0006   175
                                        *         IMPORTANT NOTE--  IT IS IMPORTANT TO REALIZE THAT              DBG0006   176
                                        *         THIS CODE, AS IT EXISTS IN /DBG=IDP/, IS A DATA SECTION,       DBG0006   177
                                        *         I.E. IT CANNOT BE EXECUTED.  IT IS HERE ONLY SO THAT *FRZ*     DBG0006   178
                                        *         CAN WRITE IT OUT AS THE 1ST RECORD ON *F.FRZ*.                 DBG0006   179
                                        *                                                                        DBG0006   180
                                        *         ENTRY  NONE                                                    DBG0006   181
                                        *                                                                        DBG0006   182
                                        *         EXIT   TO *RHH* IN HIGH CORE TO READ IN FROZEN HOST            DBG0006   183
                                        *                                                                        DBG0006   184
                                        *         USES   IRRELEVANT                                              DBG0006   185
                                        *                                                                        DBG0006   186
                                        *         CALLS  MEMORY                                                  DBG0006   187
                                                                                                                 DBG0006   188
                                                                                                                 DBG0006   189
                                                  LOC    RA.ORG                                                  DBG0006   190
                                                                                                                 DBG0006   191
                                                  VFD    12/5000B,12/0,18/RA.ORG,18/IFR                          DBG0006   192
                                                                                                                 DBG0006   193
                                         IFR      BSS    0           ** LOADER ENTRY POINT **                    DBG0006   194
                                                  SB1    1                                                       DBG0006   195
                                                                                                                 DBG0006   196
                                        *         REQUEST ENOUGH MEMORY FOR THE FROZEN HOST PLUS *RHH*.          DBG0006   197
                                        *         ALSO, IF *CMM* WAS ACTIVE IN FROZEN HOST, INDICATE SO TO       DBG0006   198
                                        *         OPERATING SYSTEM.                                              DBG0006   199
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   104
  
  
                                                                                                                 DBG0006   200
                                                  SA2    SYS=MEM+1   (X2) = 30/AFLS OF FROZEN HOST,30/OTHER      DBG0006   201
                                                  SA1    CMMFLG      (X1) = .MI. IF *CMM* ACTIVE IN HOST,        DBG0006   202
                                        *                                   ELSE .PL.                            DBG0006   203
                                                  LX2    30                                                      DBG0006   204
                                                  MX3    1                                                       DBG0006   205
                                                  SX6    X2+L.RHH+L.IFRSZ+10B                                    DBG0006   206
                                                  BX7    X3*X1       (X7) = 1S59 IF *CMM* ACTIVE, ELSE +0        DBG0006   207
                                                  LX6    30          (X6) = 30/ENOUGH CORE FOR FROZEN HOST       DBG0006   208
                                        *                                    AND *RHH*, 30/0                     DBG0006   209
                                                  LX7    2-59                                                    DBG0006   210
                                                  BX6    X6+X2       SET *CMM* BIT IF APPROPRIATE                DBG0006   211
                                                  SA6    SYS=MEM                                                 DBG0006   212
                                                                                                                 DBG0006   213
                                                                                                                 DBG0006   214
                                                  SA1    IFRA        (X1) = *MEM* REQUEST WORD                   DBG0006   215
                                                  BX6    X1                                                      DBG0006   216
                                                  RJ     SYS         MAKE SYSTEM REQUEST                         DBG0006   217
                                                                                                                 DBG0006   218
                                        *         RESTORE (RA.SSW) AND (FL-1).                                   DBG0006   219
                                                                                                                 DBG0006   220
                                                  SA1    SVWDS       (X1) = SAVED (RA.SSW)                       DBG0006   221
                                                  SA3    A1+B1       (X3) = SAVED (FL-1)                         DBG0006   222
                                                  BX6    X1                                                      DBG0006   223
                                                  LX7    X2                                                      DBG0006   224
                                                  =A6    RA.SSW                                                  DBG0006   225
                                                  SA7    X2-1                                                    DBG0006   226
                                                                                                                 DBG0006   227
                                        *         SET UP *F.FRZ* FET SO THAT A *READSKP* WILL READ               DBG0006   228
                                        *         THE FROZEN HOST FROM *F.FRZ/RECORD 2* INTO                     DBG0006   229
                                        *         THE HOLE CREATED BY *MEM*.                                     DBG0006   230
                                                                                                                 DBG0006   231
                                                  SA1    RA.PGN                                                  DBG0006   232
                                                  SX7    X2          (X7) = OUT = AFLS OF FROZEN HOST            DBG0006   233
                                                  MX3    7*CHAR                                                  DBG0006   234
                                                  SA7    F.FRZ+3     OUT = AFLS OF FROZEN HOST                   DBG0006   235
                                                  SX4    122B        (X4) = *OPEN/NO REWIND* CIO CODE            DBG0006   236
                                                  BX6    X3*X1                                                   DBG0006   237
                                                  SX7    X7+B1       (X7) = LIMIT = AFLS+1 OF FROZEN HOST        DBG0006   238
                                                  IX6    X6+X4                                                   DBG0006   239
                                                  SA7    A7+B1       LIMIT = AFLS+1 OF FROZEN HOST               DBG0006   240
                                                  SA6    F.FRZ                                                   DBG0006   241
                                                  =X7    RA.MTR+1                                                DBG0006   242
                                                  SA7    A6+B1       FIRST = RA.MTR+1                            DBG0006   243
                                                  SA7    A7+B1       IN = FIRST =RA.MTR+1                        DBG0006   244
                                                                                                                 DBG0006   245
                                        *         MOVE *RHH* AND *F.FRZ* FET TO HIGH CORE                        DBG0006   246
                                        *         (ABOVE HOLE CREATED FOR FROZEN HOST).                          DBG0006   247
                                                                                                                 DBG0006   248
                                                  SB4    B0                                                      DBG0006   249
                                                  SA1    FW.RHH      (A1,X1) = A+C OF 1ST WORD TO MOVE           DBG0006   250
                                                  SB3    L.RHH       (B2) = NR OF WORDS TO MOVE                  DBG0006   251
                                                  SB2    X2+L.IFRSZ  (B2) = ADDR TO MOVE TO                      DBG0006   252
                                                                                                                 DBG0006   253
                                         IFR2     BX6    X1                                                      DBG0006   254
                                                  SA6    B2+B4                                                   DBG0006   255
                                                  SB4    B4+B1                                                   DBG0006   256
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   105
  
  
                                                  SA1    A1+B1                                                   DBG0006   257
                                                  LT     B4,B3,IFR2  IF NOT DONE                                 DBG0006   258
                                                                                                                 DBG0006   259
                                        *         OPEN *F.FRZ*.                                                  DBG0006   260
                                                                                                                 DBG0006   261
                                                  SA1    IFRB        (X1) = *CIO* REQUEST WORD                   DBG0006   262
                                                  SX2    B2+F.FRZ-FW.RHH   (X2) = FWA OF *F.FRZ* FET             DBG0006   263
                                                  BX6    X1+X2                                                   DBG0006   264
                                                  SA6    A1          SAVE *CIO* REQUEST W/ ADDR OF MOVED *F.FRZ* DBG0006   265
                                                  RJ     SYS         MAKE SYSTEM REQUEST TO OPEN *F.FRZ*         DBG0006   266
                                                                                                                 DBG0006   267
                                        *         SET UP SYSTEM REQUEST TO PERFORM THE *READSKP*                 DBG0006   268
                                        *         WHICH WILL READ THE FROZEN HOST INTO THE HOLE CREATED          DBG0006   269
                                        *         BY *MEM*.                                                      DBG0006   270
                                                                                                                 DBG0006   271
                                         IFR3     SA1    RA.MTR                                                  DBG0006   272
                                                  NZ     X1,IFR3     IF (RA.MTR) NOT CLEAR, WAIT...              DBG0006   273
                                                                                                                 DBG0006   274
                                                  SA1    SYS1                                                    DBG0006   275
                                                  SA2    B2+F.FRZ-FW.RHH   (A2,X2) = A+C OF *F.FRZ* FET WORD 1   DBG0006   276
                                                  SA3    IFRB        (X3) = *CIO* REQUEST WORD                   DBG0006   277
                                                  MX4    7*CHAR                                                  DBG0006   278
                                                  BX7    X1                                                      DBG0006   279
                                                  LX1    59-56       (X1) = .MI. IF *EQ* INSTRUCTION             DBG0006   280
                                        *                                 = .PL. IF *XJ* INSTRUCTION             DBG0006   281
                                                  BX6    X4*X2       CLEAR BITS 0 THRU 17 OF *F.FRZ* WORD 1      DBG0006   282
                                                  SX4    22B         (X4) = *READSKP* CIO CODE                   DBG0006   283
                                                  IX6    X6+X4       MERGE *READSKP* CIO CODE                    DBG0006   284
                                                  SA6    A2                                                      DBG0006   285
                                                  BX6    X3          (X6) = *CIO* REQUEST WORD                   DBG0006   286
                                                                                                                 DBG0006   287
                                        *         RELOCATE *WAIT (RA.MTR) LOOP* IF NOT USING                     DBG0006   288
                                        *         *XJ* INSTRUCTION.                                              DBG0006   289
                                                                                                                 DBG0006   290
                                                  PL     X1,IFR4     IF USING *XJ*                               DBG0006   291
                                                  MX2    -18                                                     DBG0006   292
                                                  SX3    B2+B1       (X3) = ADDR OF *RHH* INSTRUCTIONS WHICH     DBG0006   293
                                        *                                   ACTUALLY MAKES THE *CIO* REQUEST     DBG0006   294
                                        *                                   TO READ *F.FRZ*                      DBG0006   295
                                                  BX7    X2*X7       CLEAR OLD ADDR                              DBG0006   296
                                                  IX7    X7+X3       MERGE NEW ADDR                              DBG0006   297
                                                  SA7    B2+B1                                                   DBG0006   298
                                                                                                                 DBG0006   299
                                        *         EVERYTHING IS READY TO GO...                                   DBG0006   300
                                        *         TRANSFER CONTROL TO *RHH* UP IN HIGH CORE.                     DBG0006   301
                                                                                                                 DBG0006   302
                                         IFR4     JP     B2+                                                     DBG0006   303
                                                                                                                 DBG0006   304
                                                                                                                 DBG0006   305
                                        *         *MEM* REQUEST WORD.                                            DBG0006   306
                                                                                                                 DBG0006   307
                                         IFRA     VFD    18/3LMEM,3/2,21/0,18/SYS=MEM                            DBG0006   308
                                                                                                                 DBG0006   309
                                        *         *CIO* REQUEST WORD.                                            DBG0006   310
                                                                                                                 DBG0006   311
                                         IFRB     VFD    18/3LCIO,3/2,21/0,18/0                                  DBG0006   312
                                         SYS      SPACE  4                                                       DBG0006   313
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   106
  
  
                                        ***       SYS - PROCESS SYSTEM REQUEST.                                  DBG0006   314
                                        *                                                                        DBG0006   315
                                        *         ENTRY  (X6) = SYSTEM REQUEST.                                  DBG0006   316
                                        *                                                                        DBG0006   317
                                        *         EXIT   REQUEST PROCESSED.                                      DBG0006   318
                                        *                                                                        DBG0006   319
                                        *         USES   X - 1.                                                  DBG0006   320
                                        *                B - NONE.                                               DBG0006   321
                                        *                A - 1, 6.                                               DBG0006   322
                                        *                                                                        DBG0006   323
                                        *         CALLS  NONE.                                                   DBG0006   324
                                                                                                                 DBG0006   325
                                                                                                                 DBG0006   326
                                        *         INSTRUCTION WORDS FOR MONITOR CALL.                            DBG0006   327
                                                                                                                 DBG0006   328
                                         SYSA     BSS    0                                                       DBG0006   329
                                                  LOC    *+2                                                     DBG0006   330
                                         +        SA1    A1          WAIT (RA+1) CLEAR IF AUTO RECALL            DBG0006   331
                                                  LX1    59-40                                                   DBG0006   332
                                                  NG     X1,*                                                    DBG0006   333
                                                  LOC    SYSA+1                                                  DBG0006   334
                                                                                                                 DBG0006   335
                                                  XJ                                                             DBG0006   336
                                                                                                                 DBG0006   337
                                         SYS1     EQ     SYS2        FIRST ENTRY                                 DBG0006   338
                                                                                                                 DBG0006   339
                                         SYS      PS                 ENTRY/EXIT                                  DBG0006   340
                                         +        SA1    1           WAIT (RA+1) CLEAR                           DBG0006   341
                                                  NZ     X1,*                                                    DBG0006   342
                                                  SA6    A1          ENTER REQUEST                               DBG0006   343
                                                  EQ     SYS1                                                    DBG0006   344
                                                                                                                 DBG0006   345
                                        *         INITIAL ENTRY TO SET TYPE OF CALL.                             DBG0006   346
                                                                                                                 DBG0006   347
                                         SYS2     SA1    SYSA        NO MEJ/CEJ OPTION                           DBG0006   348
                                                  BX6    X1                                                      DBG0006   349
                                                                                                                 DBG0006   350
                                                  SA1    RA.CEJ                                                  DBG0006   351
                                                  PL     X1,SYS3     IF NO MEJ/CEJ PRESENT                       DBG0006   352
                                                  SA1    SYSA+1                                                  DBG0006   353
                                                  BX6    X1                                                      DBG0006   354
                                         SYS3     BSS    0                                                       DBG0006   355
                                                                                                                 DBG0006   356
                                                  SA6    SYS1        SET MONITOR CALL                            DBG0006   357
                                                  SA1    1           RESET (A1)                                  DBG0006   358
                                                  BX6    X1                                                      DBG0006   359
                                                  RJ     SYS1-1      CLEAR STACK                                 DBG0006   360
                                         IFR      SPACE  4,8                                                     DBG0006   361
                                         SYS=MEM  BSSZ   2           30/AFLS OF HOST PLUS *RHH*,30/0             DBG0006   362
                                        *                            30/AFLS OF HOST,30/0                        DBG0006   363
                                                                                                                 DBG0006   364
                                         L.IFRSZ  =      10B         LEN OF SAFETY ZONE BETWEEN HOST AND *RHH*   DBG0006   365
                                                                                                                 DBG0006   366
                                                                                                                 DBG0006   367
                                         SVWDS    BSSZ   1           SAVED (RA.SSW)                              DBG0006   368
                                                  BSSZ   1           SAVED (FL-1)                                DBG0006   369
                                                                                                                 DBG0006   370
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   107
  
  
                                         CMMFLG   BSSZ   1           .MI. IF *CMM* ACTIVE, ELSE .PL.             DBG0006   371
                                         RHH      SPACE  4,8                                                     DBG0006   372
                                        **        RHH - READ HOST INTO HOLE.                                     DBG0006   373
                                        *                                                                        DBG0006   374
                                        *                                                                        DBG0006   375
                                        *         THIS ROUTINE MAKES THE ACTUAL OPERATING SYSTEM REQUEST         DBG0006   376
                                        *         TO READ THE FROZEN HOST FROM *F.FRZ/RECORD 2*                  DBG0006   377
                                        *         INTO THE HOLE CREATED BY *IFR*.                                DBG0006   378
                                        *                                                                        DBG0006   379
                                        *         ENTRY  (X6) = *CIO* REQUEST WORD                               DBG0006   380
                                        *                                                                        DBG0006   381
                                        *         EXIT   TO *IDP=MN* IN UNFROZEN HOST                            DBG0006   382
                                        *                                                                        DBG0006   383
                                        *         USES                                                           DBG0006   384
                                        *                                                                        DBG0006   385
                                        *         CALLS  NONE                                                    DBG0006   386
                                                                                                                 DBG0006   387
                                         FW.RHH   BSS    0           MARK FWA OF*RHH*                            DBG0006   388
                                                                                                                 DBG0006   389
                                         RHH      BSS    0           ** ENTRY **                                 DBG0006   390
                                                  SA6    RA.MTR                                                  DBG0006   391
                                                                                                                 DBG0006   392
                                        *         THE FOLLOWING LOCATION WILL BE PLUGGED WITH                    DBG0006   393
                                        *         A *WAIT (RA.MTR)* LOOP BY *IFR* IF NO *XJ* INSTRUCTION         DBG0006   394
                                        *         AVAILABLE.                                                     DBG0006   395
                                                                                                                 DBG0006   396
                                        +         XJ                                                             DBG0006   397
                                                                                                                 DBG0006   398
                                        *         THE INTERACTIVE HOST IS NOW BACK IN CORE... RE-ENTER *IDP*.    DBG0006   399
                                                                                                                 DBG0006   400
                                        +         EQ     IDP=IFR                                                 DBG0006   401
                                         F.FRZ    SPACE  4,8                                                     DBG0006   402
                                        **        F.FRZ - FET FOR *FREEZE* FILE.                                 DBG0006   403
                                                                                                                 DBG0006   404
                                         F.FRZ    BSS    0           ** FWA OF FET **                            DBG0006   405
                                         L.FRZ    =      101B        LENGTH OF *F.FRZ* BUFFER FOR RECORD 1 WRITE DBG0006   406
                                        *                            (I.E. SMALLEST POSSIBLE, 1 PRU)             DBG0006   407
                                         FRZ      FILEB  /DBG=IDP/FW.IFR,L.FRZ                                   DBG0006   408
                                                                                                                 DBG0006   409
                                                                                                                 DBG0006   410
                                         L.RHH    =      *-FW.RHH+1                                              DBG0006   411
                                                                                                                 DBG0006   412
                                                  LOC    *O                                                      DBG0006   413
                                                  QUAL   *                                                       DBG0006   414
                                                                                                                 DBG0006   415
                                         L.IFR    =      *-FW.IFR+1  LENGTH OF IDP FREEZE RESTART PROGRAM        DBG0006   416
                                         F.FRZ    =      FW.IFR+/IFR/F.FRZ-RA.ORG  SO THAT *IDP* CAN REF FET     DBG0006   417
                                         IDP      SPACE  4,8                                                     DBG0006   418
                                                                                                                 DBG=IDP  4482
                                         #OS      ELSE                                                           DBG=IDP  4483
                                         IDP=     SUBR               ** ENTRY/EXIT **                            DBG=IDP  4484
                                                  EQ     EXIT.                                                   DBG=IDP  4485
                                         #OS      ENDIF                                                          DBG=IDP  4486
                                         DBG=IDP  SPACE  4,8                                                     DBG=IDP  4487
                                                  BASE   *                                                       DBG=IDP  4488
                                         QUAL$    IF     -DEF,QUAL$                                              DBG=IDP  4489
                                                  QUAL   *                                                       DBG=IDP  4490
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   108
  
  
                                         IDP=     =      /DBG=IDP/IDP=                                           DBG=IDP  4491
                                                                                                                 DBG=IDP  4492
                                                  IF     DEF,/DBG=IDP/.OS,1                                      DBG=IDP  4493
                                         .OS      =      /DBG=IDP/.OS                                            DBG=IDP  4494
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              DBG=IDP  4495
                                         IDP=ER   =      /DBG=IDP/IDP=ER                                         DBG=IDP  4496
                                         IDP=IFR  =      /DBG=IDP/IDP=IFR                                        DBG0006   419
                                         IDP=MN   =      /DBG=IDP/IDP=MN                                         DBG=IDP  4497
                                         #OS      ENDIF                                                          DBG=IDP  4498
                                                                                                                 DBG=IDP  4499
                                         REG=     =      /DBG=IDP/REG=                                           DBG=IDP  4500
                                         SNP=     =      /DBG=IDP/SNP=                                           DBG=IDP  4501
                                         QUAL$    ENDIF                                                          DBG=IDP  4502
                                                  ENDX                                                           DBG=IDP  4503
                                         DBG=IDP  SPACE  4,8                                                     SNAP      131
                                                  ENTRY  DCM=                                                    SNAP      132
                                                  ENTRY  IDP=                                                    SNAP      133
                                                  ENTRY  IDPFLG                                                  SNAP      134
                                                  ENTRY  REG=                                                    SNAP      135
                                                  ENTRY  SOB                                                     FCCT001    15
                                                  ENTRY  SNP=                                                    SNAP      136
                                                                                                                 SNAP      137
                                         CHAR     =      /DBG=IDP/CHAR                                           SNAP      138
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              SNAP      139
                                         CLZ      =      /DBG=IDP/CLZ                                            SNAP      140
                                         DAR      =      /DBG=IDP/DAR                                            SNAP      141
                                         DCM      =      /DBG=IDP/DCM                                            SNAP      142
                                         DCM=     =      /DBG=IDP/DCM                                            SNAP      143
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              SNAP      144
                                         IDPBA    =      /DBG=IDP/IDPBA                                          SNAP      145
                                         IDPFLG   =      /DBG=IDP/IDPFLG                                         SNAP      146
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              SNAP      147
                                         IDPSET   =      /DBG=IDP/IDPSET                                         SNAP      148
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              SNAP      149
                                         IST      =      /DBG=IDP/IST                                            SNAP      150
                                         ROL      =      /DBG=IDP/ROL                                            SNAP      151
                                         SNAPLNE  =      /DBG=IDP/SNAPLNE                                        SNAP      152
                                         SOB      =      /DBG=IDP/SOB                                            FCCT001    16
                                         DXP=     SPACE  4,8                                                     SNAP      153
                                        **        DXP= - DUMP EXCHANGE PACKAGE.                                  SNAP      154
                                        *                                                                        SNAP      155
                                        *                                                                        SNAP      156
                                        *                BECAUSE SCOPE 2 REPRIEVE HAS NO RESET, THE SYSTEM DUMPS SNAP      157
                                        *         ALL REGISTERS AS THEY WERE DURING REPRIEVE PROCESSING; AND     SNAP      158
                                        *         BECAUSE THIS IS NOT USEFUL, THIS ROUTINE DUMPS ALL REGISTERS   SNAP      159
                                        *         AS THEY WERE WHEN REPRIEVE WAS CALLED. IT ALSO DUMPS 100       SNAP      160
                                        *         WORDS EITHER SIDE OF WHAT THE -P- REGISTER WAS WHEN REPRIEVE   SNAP      161
                                        *         WAS CALLED.                                                    SNAP      162
                                        *                                                                        SNAP      163
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE         SNAP      164
                                        *                                                                        SNAP      165
                                        *         EXIT   NONE                                                    SNAP      166
                                        *                                                                        SNAP      167
                                        *         USES   ALL BUT A0,A5,X5                                        SNAP      168
                                        *                                                                        SNAP      169
                                        *         CALLS  COD,DAR,DCM,PRIDP,TEX                                   SNAP      170
                                                                                                                 SNAP      171
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   109
  
  
                                         .OS      IFEQ   .OS,2       IF SCOPE 2                                  SNAP      172
                                                                                                                 SNAP      173
                                         DXP=     SUBR   =           ** ENTRY/EXIT **                            SNAP      174
                                                  RJ     TEX         TRANSFER EXCHANGE PACKAGE REGISTERS         SNAP      175
                                                                                                                 SNAP      176
                                        *         DUMP P,RA,FL,EM,RE,FE, AND MA.                                 SNAP      177
                                                                                                                 SNAP      178
                                         DXP2     SA3    DXPB                                                    SNAP      179
                                                  SX6    X3-6                                                    SNAP      180
                                                  ZR     X6,DXP3     IF DONE                                     SNAP      181
                                                  SX6    X3+B1                                                   SNAP      182
                                                  SA6    A3                                                      SNAP      183
                                                  SA2    DXPA+X3     (X2) = .......XX.   (.=BLANK(55B))          SNAP      184
                                                  SA1    HARDREG+X3  (X1) = SAVED CONTENTS OF HARDWARE REGISTER  SNAP      185
                                                  BX6    X2                                                      SNAP      186
                                                  SA6    =XSNAPLNE                                               SNAP      187
                                                  RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                 SNAP      188
                                                  LX6    3*CHAR      (X6) = .NNNNNN...                           SNAP      189
                                                  SA6    A6+B1                                                   SNAP      190
                                                  MX7    0                                                       SNAP      191
                                                  SA7    A6+B1       MARK EOL                                    SNAP      192
                                                  PRIDP  SNAPLNE,3                                               SNAP      193
                                                  EQ     DXP2                                                    SNAP      194
                                                                                                                 SNAP      195
                                        *         HERE TO DUMP ALL REGISTERS.                                    SNAP      196
                                                                                                                 SNAP      197
                                         DXP3     RJ     DAR         DUMP ALL REGISTERS                          SNAP      198
                                                                                                                 SNAP      199
                                        *         HERE TO DUMP 100B WORDS EITHER SIDE OF -P- REGISTER            SNAP      200
                                                                                                                 SNAP      201
                                                  SA1    HARDREG     (X1) = -P- REGISTER                         SNAP      202
                                                  SX4    200B        (X4) = NR OF WORDS TO DUMP (LEN)            SNAP      203
                                                  NZ     X1,DXP4     IF -P- REGISTER NONZERO                     SNAP      204
                                                  SA1    B0          EXTRACT -P- FROM RA+0                       SNAP      205
                                                  LX1    59-47+18                                                SNAP      206
                                                                                                                 SNAP      207
                                         DXP4     MX0    -18                                                     SNAP      208
                                                  BX1    -X0*X1                                                  SNAP      209
                                                  SX2    X1-100B     (X2) = FWA TO DUMP                          SNAP      210
                                                  RJ     DCM         DUMP CENTRAL MEMORY                         SNAP      211
                                                  EQ     EXIT.                                                   SNAP      212
                                                                                                                 SNAP      213
                                                                                                                 SNAP      214
                                         DXPA     DATA   10H1       P  NNNNNN                                    SNAP      215
                                                  DATA   10H       RA  NNNNNN                                    SNAP      216
                                                  DATA   10H       FL  NNNNNN                                    SNAP      217
                                                  DATA   10H       EM  NNNNNN                                    SNAP      218
                                                  DATA   10H       RE  NNNNNN                                    SNAP      219
                                                  DATA   10H       FE  NNNNNN                                    SNAP      220
                                                  DATA   10H       MA  NNNNNN                                    SNAP      221
                                                                                                                 SNAP      222
                                         DXPB     BSSZ   1                                                       SNAP      223
                                         .OS      ENDIF                                                          SNAP      224
                                         TEX      SPACE  4,8                                                     SNAP      225
                                        **        TEX - TRANSFER EXCHANGE PACKAGE REGISTERS.                     SNAP      226
                                        *                                                                        SNAP      227
                                        *                                                                        SNAP      228
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   110
  
  
                                        *                THIS ROUTINE WILL TRANSFER THE CONTENTS OF THE          SNAP      229
                                        *         REGISTERS IN THE SAVED EXCHANGE PACKAGE TO THE REGISTER SAVE   SNAP      230
                                        *         AREA (SVB,SVA,SVX -- AS SET UP BY *COMCSVR*). A SUBSEQUENT     SNAP      231
                                        *         CALL TO *RSR=* WOULD RESTORE ALL REGISTERS TO THEIR VALUES     SNAP      232
                                        *         AT THE TIME OF THE EXCHANGE.                                   SNAP      233
                                        *                                                                        SNAP      234
                                        *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE         SNAP      235
                                        *                                                                        SNAP      236
                                        *         EXIT   NONE                                                    SNAP      237
                                        *                                                                        SNAP      238
                                        *         USES   X - 0,1,6,7                                             SNAP      239
                                        *                A - 1,6,7                                               SNAP      240
                                        *                B - 2,3,4,5,7                                           SNAP      241
                                        *                                                                        SNAP      242
                                        *         CALLS  NONE                                                    SNAP      243
                                                                                                                 SNAP      244
                                                                                                                 SNAP      245
                                         TEX      SUBR               ** ENTRY/EXIT **                            SNAP      246
                                                  SA1    A1+16-1     (X1) = LAST WORD OF 16 WORD EXCHANGE PKG    SNAP      247
                                                  SB2    =XSVB                                                   SNAP      248
                                                  SB3    =XSVA                                                   SNAP      249
                                                  SB4    =XSVX                                                   SNAP      250
                                                  SB5    HARDREG                                                 SNAP      251
                                                  SB7    7           (B7) = LOOP COUNT -N-                       SNAP      252
                                                  MX0    -18                                                     SNAP      253
                                                                                                                 SNAP      254
                                        *         RESTORE -X- REGISTERS.                                         SNAP      255
                                                                                                                 SNAP      256
                                         TEX2     BX6    X1                                                      SNAP      257
                                                  SA6    B4+B7                                                   SNAP      258
                                                  SB7    B7-B1       N-1                                         SNAP      259
                                                  SA1    A1-B1                                                   SNAP      260
                                                  GE     B7,B0,TEX2  IF MORE -X- REGS TO GO                      SNAP      261
                                                                                                                 SNAP      262
                                        *         RESTORE -B- AND -A- REGS, AND SAVE P,RA,FL,EM,RE,FE,MA.        SNAP      263
                                                                                                                 SNAP      264
                                                  SB7    7           (B7) = LOOP COUNT -N-                       SNAP      265
                                                                                                                 SNAP      266
                                         TEX3     BX6    -X0*X1      (X6) = (B-N-)                               SNAP      267
                                                  LX1    -18                                                     SNAP      268
                                                  BX7    -X0*X1      (X7) = (A-N-)                               SNAP      269
                                                  SA6    B2+B7                                                   SNAP      270
                                                  SA7    B3+B7                                                   SNAP      271
                                                  LX1    -18                                                     SNAP      272
                                                  BX6    -X0*X1      (X6) = P,RA,FL,EM,RE,FE,OR MA               SNAP      273
                                                  SA6    B5+B7                                                   SNAP      274
                                                  SB7    B7-B1       N-1                                         SNAP      275
                                                  SA1    A1-B1                                                   SNAP      276
                                                  GE     B7,B0,TEX3  IF NOT DONE                                 SNAP      277
                                                  EQ     EXIT.                                                   SNAP      278
                                                                                                                 SNAP      279
                                                                                                                 SNAP      280
                                         HARDREG  BSSZ   8           SAVED HARDWARE REGISTERS                    SNAP      281
                                        *         BSSZ   1           SAVED P                                     SNAP      282
                                        *         BSSZ   1           SAVED RA                                    SNAP      283
                                        *         BSSZ   1           SAVED FL                                    SNAP      284
                                        *         BSSZ   1           SAVED EM                                    SNAP      285
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   111
  
  
                                        *         BSSZ   1           SAVED RE                                    SNAP      286
                                        *         BSSZ   1           SAVED FE                                    SNAP      287
                                        *         BSSZ   1           SAVED MA                                    SNAP      288
                                        *         BSSZ   1           DUMMY FOR CONSISTENCY                       SNAP      289
                                                  CTEXT  COMCSFN - SPACE FILL RIGHT JUSTIFIED ZEROES.            COMCSFN     2
                                                  SPACE  4                                                       COMCSFN     3
                                                  IF     -DEF,QUAL$,1                                            COMCSFN     4
                                                  QUAL   COMCSFN                                                 COMCSFN     5
                                                  BASE   D                                                       COMCSFN     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.                     COMCSFN     7
                                         SFN      SPACE  4                                                       COMCSFN     8
                                        ***       SFN - SPACE FILL NAME.                                         COMCSFN     9
                                        *         G. R. MANSFIELD.   70/12/08.                                   COMCSFN    10
                                        *         S. R. MCPHERSON.   74/11/15.                                   COMCSFN    11
                                         SFN      SPACE  4                                                       COMCSFN    12
                                        ***       SFN - SPACE FILL RIGHT JUSTIFIED ZEROES.                       COMCSFN    13
                                        *                                                                        COMCSFN    14
                                        *         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL.                  COMCSFN    15
                                        *                (B1) = 1.                                               COMCSFN    16
                                        *                                                                        COMCSFN    17
                                        *         EXIT   (X6) = NAME SPACE FILLED.                               COMCSFN    18
                                        *                (X7) = FINAL CHARACTER MASK.                            COMCSFN    19
                                        *                                                                        COMCSFN    20
                                        *         USES   X - 1, 2, 3, 6, 7.                                      COMCSFN    21
                                        *                A - 3.                                                  COMCSFN    22
                                        *                B - 2.                                                  COMCSFN    23
                                                                                                                 COMCSFN    24
                                                                                                                 COMCSFN    25
                                         SFN      PS     0           ENTRY/EXIT                                  COMCSFN    26
                                                  SX7    B1                                                      COMCSFN    27
                                                  SA3    SFNA        =40404040404040404040B                      COMCSFN    28
                                                  IX7    X1-X7       FIND LOWEST BIT SET                         COMCSFN    29
                                                  BX6    -X7+X1                                                  COMCSFN    30
                                                  SB2    60-5                                                    COMCSFN    31
                                                  BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS           COMCSFN    32
                                                  SA3    A3+B1       =10H                                        COMCSFN    33
                                                  LX6    X7,B2                                                   COMCSFN    34
                                                  IX6    X7-X6                                                   COMCSFN    35
                                                  BX7    X7+X6                                                   COMCSFN    36
                                                  BX3    -X7*X3                                                  COMCSFN    37
                                                  IX6    X1+X3                                                   COMCSFN    38
                                                  EQ     SFN         RETURN                                      COMCSFN    39
                                                                                                                 COMCSFN    40
                                         SFNA     DATA   40404040404040404040B                                   COMCSFN    41
                                         SFNB     DATA   10H                                                     COMCSFN    42
                                                  SPACE  4                                                       COMCSFN    43
                                                  BASE   *                                                       COMCSFN    44
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSFN    45
                                                  QUAL   *                                                       COMCSFN    46
                                         SFN      EQU    /COMCSFN/SFN                                            COMCSFN    47
                                         QUAL$    ENDIF                                                          COMCSFN    48
                                                  ENDX                                                           COMCSFN    49
                                         SVR=     CTEXT  COMCSVR - SAVE AND RESTORE REGISTERS.                   COMCSVR     2
                                         SVR=     SPACE  4,8                                                     COMCSVR     3
                                                  IF     -DEF,QUAL$,1                                            COMCSVR     4
                                                  QUAL   COMCSVR                                                 COMCSVR     5
                                                  BASE   D                                                       COMCSVR     6
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   112
  
  
                                         SVR=     SPACE  4,8                                                     COMCSVR     7
                                        ***       SVR - SAVE AND RESTORE REGISTERS.                              COMCSVR     8
                                        *                                                                        COMCSVR     9
                                        *                                                                        COMCSVR    10
                                        *                CONTAINS THE ROUTINES *SVR=* TO SAVE ALL REGISTERS,     COMCSVR    11
                                        *         AND *RSR=* TO RESTORE ALL REGISTERS. MINUS ZERO (-0) IS PRE-   COMCSVR    12
                                        *         SERVED IN ALL REGISTERS, PARTICULARLY -A- AND -B- REGISTERS.   COMCSVR    13
                                        *         EACH REGISTER IS SAVED IN A FULL CM WORD (-A- AND -B-          COMCSVR    14
                                        *         REGISTERS ARE SIGN EXTENDED TO BIT 59). A REGISTER BLOCK IS    COMCSVR    15
                                        *         DEFINED TO BE ALL THE -B- REGISTERS, ALL THE -A- REGISTERS, OR COMCSVR    16
                                        *         ALL THE -X- REGISTERS. ALL REGISTERS IN A REGISTER BLOCK ARE   COMCSVR    17
                                        *         SAVED CONTIGUOUSLY IN ASCENDING ORDER.                         COMCSVR    18
                                        *                                                                        COMCSVR    19
                                        *         ASSEMBLY-TIME OPTIONS--                                        COMCSVR    20
                                        *                                                                        COMCSVR    21
                                        *            IF THE SYMBOL *BN=1* (N=1 THRU 7) IS DEFINED, (B.N) ARE     COMCSVR    22
                                        *         ASSUMED TO BE EQUAL TO 1. IF *BN=1* IS NOT DEFINED, (B1)       COMCSVR    23
                                        *         ARE CHECKED FOR 1 TO TRY TO AVOID EXECUTING THE *SAVE (B1)     COMCSVR    24
                                        *         VIA RJ SEQUENCE* CODE.                                         COMCSVR    25
                                        *                                                                        COMCSVR    26
                                        *            IF THE SYMBOL *#SVR* IS DEFINED (DEF), THEN THE CALLER      COMCSVR    27
                                        *         WILL PROVIDE THE FWA OF THE REGISTER SAVE AREA IN THE LOWER    COMCSVR    28
                                        *         30 BITS OF THE CALLING *RJ* FOR *SVR=*--                       COMCSVR    29
                                        *                30/RJ SVR, 30/FWA OF REGISTER SAVE AREA                 COMCSVR    30
                                        *         AND IN (X1) FOR *RSR=*.                                        COMCSVR    31
                                        *            IF THE SYMBOL *#SVR* IS NOT DEFINED (-DEF), THEN A LOCAL    COMCSVR    32
                                        *         REGISTER SAVE AREA, (SVREG) ET SEQ, WILL BE USED AND NO        COMCSVR    33
                                        *         PARAMETERS NEED TO BE PASSED.                                  COMCSVR    34
                                        *                                                                        COMCSVR    35
                                        *            THE MICRO "SVBAX" DEFINES THE ORDER IN WHICH THE -B-, -A-,  COMCSVR    36
                                        *         AND -X- REGISTER BLOCKS ARE SAVED IN CM.                       COMCSVR    37
                                        *         I.E.   SVBAX    MICRO  1,,/BAX/        (DEFAULT) MEANS         COMCSVR    38
                                        *                SV=B     BSSZ   8                                       COMCSVR    39
                                        *                SV=A     BSSZ   8                                       COMCSVR    40
                                        *                SV=X     BSSZ   8                                       COMCSVR    41
                                        *         OR     SVBAX    MICRO  1,,/ABX/        MEANS                   COMCSVR    42
                                        *                SV=A     BSSZ   8                                       COMCSVR    43
                                        *                SV=B     BSSZ   8                                       COMCSVR    44
                                        *                SV=X     BSSZ   8                                       COMCSVR    45
                                         SVR=     SPACE  4,8                                                     COMCSVR    46
                                                  IF     -MIC,SVBAX,1                                            COMCSVR    47
                                         SVBAX    MICRO  1,,/BAX/                                                COMCSVR    48
                                                                                                                 COMCSVR    49
                                         .1       MICRO  1,1,/"SVBAX"/                                           COMCSVR    50
                                         .2       MICRO  2,1,/"SVBAX"/                                           COMCSVR    51
                                         .3       MICRO  3,1,/"SVBAX"/                                           COMCSVR    52
                                                                                                                 COMCSVR    53
                                         SV".1"   =      0                                                       COMCSVR    54
                                         SV".2"   =      0+8                                                     COMCSVR    55
                                         SV".3"   =      0+8+8                                                   COMCSVR    56
                                                                                                                 COMCSVR    57
                                         .SVR     IF     -DEF,#SVR                                               COMCSVR    58
                                         SVREG    BSSZ   3*8                                                     COMCSVR    59
                                                                                                                 COMCSVR    60
                                         .SVR     ELSE                                                           COMCSVR    61
                                         SVX7     BSSZ   1           TEMPORARY SAVE (X7)                         COMCSVR    62
                                         SVA5     BSSZ   1           TEMPORARY SAVE (A5)                         COMCSVR    63
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   113
  
  
                                         SVX5     BSSZ   1           TEMPORARY SAVE (X5)                         COMCSVR    64
                                         .SVR     ENDIF                                                          COMCSVR    65
                                                                                                                 COMCSVR    66
                                         SVR=     SPACE  4,8                                                     COMCSVR    67
                                        **        SVR - SAVE ALL REGISTERS.                                      COMCSVR    68
                                        *                                                                        COMCSVR    69
                                        *                                                                        COMCSVR    70
                                        *         ENTRY  IF *#SVR* DEFINED--                                     COMCSVR    71
                                        *                LOWER 30 BITS OF CALLING *RJ* CONTAINS FWA OF           COMCSVR    72
                                        *                 REGISTER SAVE AREA (RSA)--   30/RJ SVR=, 30/FWA OF RSA COMCSVR    73
                                        *                                                                        COMCSVR    74
                                        *                IF *#SVR* NOT DEFINED-- NONE                            COMCSVR    75
                                        *                                                                        COMCSVR    76
                                        *                IF *BN=1* DEFINED-- (B.N) = 1                           COMCSVR    77
                                        *                                                                        COMCSVR    78
                                        *         EXIT   (B1) = 1                                                COMCSVR    79
                                        *                                                                        COMCSVR    80
                                        *         USES   ALL                                                     COMCSVR    81
                                        *                                                                        COMCSVR    82
                                        *         CALLS  NONE                                                    COMCSVR    83
                                                                                                                 COMCSVR    84
                                                                                                                 COMCSVR    85
                                         SVR=     EQ     *+4S15      ** ENTRY/EXIT **                            COMCSVR    86
                                                                                                                 COMCSVR    87
                                        *         CHECK TO SEE IF ANY REGISTER HAS BEEN DEFINED TO BE EQUAL      COMCSVR    88
                                        *           TO 1 AT ASSEMBLY TIME VIA *BN=1* SYMBOL. IF NOT, CHECK FOR   COMCSVR    89
                                        *           (B1) = 1. IF (B1).NE.1, SAVE (B1) THE HARD WAY BY EXECUTING  COMCSVR    90
                                        *           THE *SAVE (B1)* RJ SEQUENCE AT *SVR2*. IF BIT 2**N WAS ON    COMCSVR    91
                                        *           IN (B1), THEN THE *RJ* AT (SVR2+2*N+1) WILL BE EXECUTED,     COMCSVR    92
                                        *           RESULTING IN AN /EQ SVR2+2*N+2/. IF BIT 2**N WAS NOT ON      COMCSVR    93
                                        *           IN (B1), THEN THE *RJ* WILL NOT BE  EXECUTED. BY QUERYING    COMCSVR    94
                                        *           (SVR2+2*N+1), ONE CAN DETERMINE WHETHER OR NOT BIT 2**N      COMCSVR    95
                                        *           WAS ON IN (B1) BY THE PRESENCE OF AN *EQ* (BIT WAS ON), OR   COMCSVR    96
                                        *           AN *RJ* (BIT WAS OFF) INSTRUCTION.                           COMCSVR    97
                                                                                                                 COMCSVR    98
                                         B=1      MICRO  1,,/B0/                                                 COMCSVR    99
                                                  ECHO   4,BN=(B1,B7,B5,B2,B3,B4,B6)                             COMCSVR   100
                                                  IF     DEF,BN=1,3                                              COMCSVR   101
                                         B=1      MICRO  1,,/BN/                                                 COMCSVR   102
                                                  STOPDUP                                                        COMCSVR   103
                                         B.EQ.1   SKIP                                                           COMCSVR   104
                                                                                                                 COMCSVR   105
                                                  LE     B1,B0,SVR2  IF (B1).LE.0 (INSURES -0 WILL BE HONORED)   COMCSVR   106
                                                  SB1    B1-1                                                    COMCSVR   107
                                                  ZR     B1,SVR4     IF (B1) = 1                                 COMCSVR   108
                                                  SB1    B1+1        RESTORE (B1)                                COMCSVR   109
                                                                                                                 COMCSVR   110
                                         SVR2     BSS    0                                                       COMCSVR   111
                                                  PL     B1,*+2                                                  COMCSVR   112
                                         +        RJ     *                                                       COMCSVR   113
                                                                                                                 COMCSVR   114
                                         B.NE.1   DUP    17                                                      COMCSVR   115
                                         +        SB1    B1+B1                                                   COMCSVR   116
                                                  NO                                                             COMCSVR   117
                                                  PL     B1,*+2                                                  COMCSVR   118
                                         +        RJ     *                                                       COMCSVR   119
                                         B.NE.1   ENDD                                                           COMCSVR   120
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   114
  
  
                                                                                                                 COMCSVR   121
                                         +        SB0    B0+         FILLER BECAUSE /RJ */S MUST BE 2 WORDS      COMCSVR   122
                                        *                              APART FOR RESTORE                         COMCSVR   123
                                                                                                                 COMCSVR   124
                                         SVR3     RJ     *           (B1)=1/(B1).NE.1 FLAG                       COMCSVR   125
                                                                                                                 COMCSVR   126
                                         SVR4     BSS    0                                                       COMCSVR   127
                                                                                                                 COMCSVR   128
                                         B.EQ.1   ELSE                                                           COMCSVR   129
                                                  MI     "B=1",*+4S15  IF ("B=1") IS BAD (SHOULD BE EQUAL TO 1)  COMCSVR   130
                                                  S"B=1" "B=1"-1                                                 COMCSVR   131
                                                  ZR     "B=1",SVR2  IF ("B=1") = 1                              COMCSVR   132
                                                  S"B=1" "B=1"+1     RESTORE ("B=1")                             COMCSVR   133
                                                  EQ     *+4S15                                                  COMCSVR   134
                                                                                                                 COMCSVR   135
                                         SVR2     BSS    0                                                       COMCSVR   136
                                                  IFC    NE,/"B=1"/B1/,1                                         COMCSVR   137
                                                  S"B=1" B1-B0       SAVE (B1)                                   COMCSVR   138
                                         B.EQ.1   ENDIF                                                          COMCSVR   139
                                                                                                                 COMCSVR   140
                                        *         SAVE   A - 4,5,6,7                                             COMCSVR   141
                                        *                X - 4,5,6,7                                             COMCSVR   142
                                                                                                                 COMCSVR   143
                                         .SVR1    IF     -DEF,#SVR   IF USING LOCAL REGISTER SAVE AREA           COMCSVR   144
                                                  SB1    A7-B0                                                   COMCSVR   145
                                                  SA7    SVREG+SVX+7                                             COMCSVR   146
                                                  SX7    B1-B0                                                   COMCSVR   147
                                                  SA7    SVREG+SVA+7                                             COMCSVR   148
                                                  SB1    1                                                       COMCSVR   149
                                                  SX7    A6-B0                                                   COMCSVR   150
                                                  SA6    SVREG+SVX+6                                             COMCSVR   151
                                                  SA7    A7-B1                                                   COMCSVR   152
                                                  BX6    X5                                                      COMCSVR   153
                                                  SX7    A5-B0                                                   COMCSVR   154
                                                  SA6    A6-B1                                                   COMCSVR   155
                                                  SA7    A7-B1                                                   COMCSVR   156
                                                  BX6    X4                                                      COMCSVR   157
                                                  SX7    A4-B0                                                   COMCSVR   158
                                                  SA6    A6-B1                                                   COMCSVR   159
                                                  SA7    A7-B1                                                   COMCSVR   160
                                                  SX5    SVREG       (X5) = FWA OF SAVED REGISTER AREA           COMCSVR   161
                                                                                                                 COMCSVR   162
                                         .SVR1    ELSE               IF USING USER DEFINED SAVE AREA             COMCSVR   163
                                                  SB1    A7-B0       SAVE (A7) ** TEMPORARY **                   COMCSVR   164
                                                  SA7    SVX7        SAVE (X7) ** TEMPORARY **                   COMCSVR   165
                                                  SX7    A5-B0                                                   COMCSVR   166
                                                  SA7    SVA5        SAVE (A5) ** TEMPORARY **                   COMCSVR   167
                                                  BX7    X5                                                      COMCSVR   168
                                                  SA7    SVX5        SAVE (X5) ** TEMPORARY **                   COMCSVR   169
                                                                                                                 COMCSVR   170
                                                  SA5    SVR=        (X5) = 30/EQ CALLER+1, 30/0                 COMCSVR   171
                                                  LX5    30                                                      COMCSVR   172
                                                  SA5    X5-1        (X5) = 30/RJ SVR=, 30/FWA OF RSA            COMCSVR   173
                                                  SX7    B1-B0                                                   COMCSVR   174
                                                  SB1    1                                                       COMCSVR   175
                                                  SA7    X5+SVA+7                                                COMCSVR   176
                                                  SX7    A6-B0                                                   COMCSVR   177
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   115
  
  
                                                  SA6    X5+SVX+6                                                COMCSVR   178
                                                  SA7    A7-B1                                                   COMCSVR   179
                                                  BX6    X4                                                      COMCSVR   180
                                                  SX7    A4-B0                                                   COMCSVR   181
                                                  SA6    A6-2                                                    COMCSVR   182
                                                  SA7    A7-2                                                    COMCSVR   183
                                         .SVR1    ENDIF                                                          COMCSVR   184
                                                                                                                 COMCSVR   185
                                        *         SAVE   A - 0,1,2,3                                             COMCSVR   186
                                        *                X - 0,1,2,3                                             COMCSVR   187
                                                                                                                 COMCSVR   188
                                         SV=AX    ECHO   ,N=(3,2,1,0)                                            COMCSVR   189
                                                  BX6    X.N                                                     COMCSVR   190
                                                  SX7    A.N-B0                                                  COMCSVR   191
                                                  SA6    A6-B1                                                   COMCSVR   192
                                                  SA7    A7-B1                                                   COMCSVR   193
                                         SV=AX    ENDD                                                           COMCSVR   194
                                                                                                                 COMCSVR   195
                                        *         IF USING USER DEFINED SAVE AREA, SAVE (X7),(A5),(X5) FINALLY.  COMCSVR   196
                                                                                                                 COMCSVR   197
                                         .SVR2    IF     DEF,#SVR                                                COMCSVR   198
                                                  SA2    SVX7        (X2) = SAVED (X7)                           COMCSVR   199
                                                  SA3    A2+B1       (X3) = SAVED (A5)                           COMCSVR   200
                                                  SA4    A3+B1       (X4) = SAVED (X5)                           COMCSVR   201
                                                  BX6    X2                                                      COMCSVR   202
                                                  LX7    X3                                                      COMCSVR   203
                                                  SA6    X5+SVX+7                                                COMCSVR   204
                                                  SA7    X5+SVA+5                                                COMCSVR   205
                                                  BX6    X4                                                      COMCSVR   206
                                                  SA6    X5+SVX+5                                                COMCSVR   207
                                         .SVR2    ENDIF                                                          COMCSVR   208
                                                                                                                 COMCSVR   209
                                        *         SAVE   B - 0,2,3,4,5,6,7                                       COMCSVR   210
                                                                                                                 COMCSVR   211
                                                  BX6    X6-X6                                                   COMCSVR   212
                                                  SA6    X5+SVB+0                                                COMCSVR   213
                                                                                                                 COMCSVR   214
                                         B=1      IFC    NE,/"B=1"/B0/                                           COMCSVR   215
                                                  SX7    "B=1"-B0                                                COMCSVR   216
                                                  S"B=1" B1          RESET ("B=1") = 1                           COMCSVR   217
                                                                                                                 COMCSVR   218
                                         B=1      ELSE                                                           COMCSVR   219
                                                  SX7    B1                                                      COMCSVR   220
                                         B=1      ENDIF                                                          COMCSVR   221
                                                                                                                 COMCSVR   222
                                                  SA7    A6+B1                                                   COMCSVR   223
                                                                                                                 COMCSVR   224
                                         SV=B     ECHO   ,U=(2,4,6),L=(3,5,7)                                    COMCSVR   225
                                                  SX6    B.U-B0                                                  COMCSVR   226
                                                  SX7    B.L-B0                                                  COMCSVR   227
                                                  SA6    A7+B1                                                   COMCSVR   228
                                                  SA7    A6+B1                                                   COMCSVR   229
                                         SV=B     ENDD                                                           COMCSVR   230
                                                                                                                 COMCSVR   231
                                        *         SAVE (B1)                                                      COMCSVR   232
                                                                                                                 COMCSVR   233
                                         B.NE.1   IFC    EQ,/"B=1"/B0/                                           COMCSVR   234
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   116
  
  
                                                  SA5    SVR3        (X5) = (B1)=1/(B1).NE.1 FLAG                COMCSVR   235
                                                  SX4    0100B       (X4) = *RJ* OP CODE                         COMCSVR   236
                                                  SX3    B1                                                      COMCSVR   237
                                                  LX3    42-0-1                                                  COMCSVR   238
                                                  SX6    A5                                                      COMCSVR   239
                                                  LX4    29-11                                                   COMCSVR   240
                                                  BX6    X4+X6       (X6) = 30/0, 30/RJ *                        COMCSVR   241
                                                  LX6    30                                                      COMCSVR   242
                                                  SA6    A5          RESTORE .RJ *.                              COMCSVR   243
                                                  LX5    59-56                                                   COMCSVR   244
                                                  BX7    X7-X7                                                   COMCSVR   245
                                                  PL     X5,SVR=     IF (B1) = 1, NO NEED TO ASSEMBLE (B1)       COMCSVR   246
                                                  SB2    B1+B1                                                   COMCSVR   247
                                                                                                                 COMCSVR   248
                                        *         ASSEMBLE ORIGINAL (B1) INTO (X7).                              COMCSVR   249
                                                                                                                 COMCSVR   250
                                         SVR5     SA5    A5-B2                                                   COMCSVR   251
                                                  IX3    X3+X3                                                   COMCSVR   252
                                                  SX6    A5                                                      COMCSVR   253
                                                  LX5    59-56                                                   COMCSVR   254
                                                  BX6    X4+X6                                                   COMCSVR   255
                                                  PL     X5,SVR6     IF BIT WAS CLEAR                            COMCSVR   256
                                                  BX7    X7+X3                                                   COMCSVR   257
                                                                                                                 COMCSVR   258
                                         SVR6     LX6    59-29                                                   COMCSVR   259
                                                  SA6    A5                                                      COMCSVR   260
                                                  PL     X3,SVR5     IF MORE BITS TO ASSEMBLE                    COMCSVR   261
                                                                                                                 COMCSVR   262
                                        *         HERE FOR FINAL SAVE OF (B1).                                   COMCSVR   263
                                                                                                                 COMCSVR   264
                                                  AX7    42          SIGN EXTEND                                 COMCSVR   265
                                                  SA7    A7-7+1                                                  COMCSVR   266
                                         B.NE.1   ENDIF                                                          COMCSVR   267
                                                                                                                 COMCSVR   268
                                                  EQ     SVR=        EXIT...                                     COMCSVR   269
                                         RSR=     SPACE  4,8                                                     COMCSVR   270
                                        **        RSR - RESTORE ALL REGISTERS.                                   COMCSVR   271
                                        *                                                                        COMCSVR   272
                                        *                                                                        COMCSVR   273
                                        *         ENTRY  IF *#SVR* NOT DEFINED-- NONE                            COMCSVR   274
                                        *                                                                        COMCSVR   275
                                        *                IF *#SVR* DEFINED-- (X1) = FWA OF REGISTER SAVE AREA    COMCSVR   276
                                        *                                                                        COMCSVR   277
                                        *         EXIT   ALL REGISTERS SET TO THE CONTENTS OF REGISTER SAVE AREA COMCSVR   278
                                        *                                                                        COMCSVR   279
                                        *         USES   ALL                                                     COMCSVR   280
                                        *                                                                        COMCSVR   281
                                        *         CALLS  NONE                                                    COMCSVR   282
                                                                                                                 COMCSVR   283
                                                                                                                 COMCSVR   284
                                         RSR=     EQ     *+4S15      ** ENTRY/EXIT **                            COMCSVR   285
                                                  SB1    1                                                       COMCSVR   286
                                                                                                                 COMCSVR   287
                                        *         SET UP FINAL -B- REGISTERS RESTORE AT (RSR4) ET SEQ.           COMCSVR   288
                                                                                                                 COMCSVR   289
                                         .RSR     IF     DEF,#SVR    IF USING USER DEFINED REGISTER SAVE AREA    COMCSVR   290
                                                  SB7    X1+         (B7) = FWA OF REGISTER SAVE AREA            COMCSVR   291
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   117
  
  
                                                                                                                 COMCSVR   292
                                         .RSR     ELSE               IF USING LOCAL REGISTER SAVE AREA           COMCSVR   293
                                                  SB7    SVREG                                                   COMCSVR   294
                                         .RSR     ENDIF                                                          COMCSVR   295
                                                                                                                 COMCSVR   296
                                                  MX4    -18                                                     COMCSVR   297
                                                  SA1    B7+SVB+7    (X1) = SAVED (B7)                           COMCSVR   298
                                                  BX5    X4                                                      COMCSVR   299
                                                  LX4    30                                                      COMCSVR   300
                                                  SB4    4                                                       COMCSVR   301
                                                  BX0    X4*X5       (X0) = 77770000007777000000B                COMCSVR   302
                                                                                                                 COMCSVR   303
                                         RSR2     SA2    A1-B1       (X2) = SAVED (B.N-1)                        COMCSVR   304
                                                  SA3    RSR4+B4-1                                               COMCSVR   305
                                                  BX1    -X5*X1                                                  COMCSVR   306
                                                  SB4    B4-B1                                                   COMCSVR   307
                                                  BX2    -X5*X2                                                  COMCSVR   308
                                                  LX1    30                                                      COMCSVR   309
                                                  BX3    X0*X3                                                   COMCSVR   310
                                                  IX6    X1+X2                                                   COMCSVR   311
                                                  BX7    X6+X3       (X7) = 30/SB.N B7+K, 30/SB.N-1 B7+K         COMCSVR   312
                                                  SA7    A3                                                      COMCSVR   313
                                                  SA1    A2-B1       (X1) = SAVED (B.N)                          COMCSVR   314
                                                  GT     B4,B0,RSR2  IF STILL MORE -B- REGS TO GO...             COMCSVR   315
                                                                                                                 COMCSVR   316
                                                  SA2    B7+SVA+6    (X2) = SAVED (A6)                           COMCSVR   317
                                                                                                                 COMCSVR   318
                                        *         THE MOST LIKELY CANDIDATE FOR THE DANGER DISCUSSED IN THE NEXT COMCSVR   319
                                        *           PARAGRAPH IS THE SYSTEM COMMUNICATION CELL (RA.MTR).         COMCSVR   320
                                        *           ACCORDINGLY, WE WAIT FOR IT TO CLEAR BEFORE PROCEEDING.      COMCSVR   321
                                                                                                                 COMCSVR   322
                                         RSR3     SA1    B1                                                      COMCSVR   323
                                                  NZ     X1,RSR3     IF (RA.MTR) NOT CLEAR                       COMCSVR   324
                                                                                                                 COMCSVR   325
                                        *         A SLIGHT BIT OF CARE IS SPENT ON RESTORATION OF (A6) AND (A7). COMCSVR   326
                                        *           WE WISH TO AVOID HAVING THE CONTENTS OF THE WORD THAT THE    COMCSVR   327
                                        *           STORE REGISTER IS POINTING TO TO GET CHANGED (I.E. BY A PP)  COMCSVR   328
                                        *           WHILE WE ARE RESTORING (A6) OR (A7). ABOUT THE ONLY THING    COMCSVR   329
                                        *           THAT CAN BE DONE TO MINIMIZE THIS POSSIBILITY IS TO GET THE  COMCSVR   330
                                        *           LOAD AND THE STORE AS CLOSE TOGETHER AS POSSIBLE. BY KEEPING COMCSVR   331
                                        *           THEM IN THE SAME WORD, WE HAVE AT LEAST INSURED THAT WE WILL COMCSVR   332
                                        *           NOT BE EXCHANGED AFTER THE LOAD BUT BEFORE THE STORE.        COMCSVR   333
                                        *           BARRING DELAYS IN THE HOPPER, THIS SHOULD REDUCE THE DANGER  COMCSVR   334
                                        *           PERIOD TO A FEW MINOR CYCLES. SUGGESTIONS ARE WELCOME.       COMCSVR   335
                                                                                                                 COMCSVR   336
                                                  SA3    A2+B1       (X3) = SAVED (A7)                           COMCSVR   337
                                                                                                                 COMCSVR   338
                                         +        SA4    X2-0                                                    COMCSVR   339
                                                  BX6    X4                                                      COMCSVR   340
                                                  SA6    A4-B0       RESTORE (A6)                                COMCSVR   341
                                                                                                                 COMCSVR   342
                                         +        SA5    X3-0                                                    COMCSVR   343
                                                  BX7    X5                                                      COMCSVR   344
                                                  SA7    A5-B0       RESTORE (A7)                                COMCSVR   345
                                                                                                                 COMCSVR   346
                                                  SA1    B7+SVX+6                                                COMCSVR   347
                                                  SA4    A1+B1                                                   COMCSVR   348
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   118
  
  
                                                  BX6    X1          RESTORE (X6)                                COMCSVR   349
                                                  LX7    X4          RESTORE (X7)                                COMCSVR   350
                                                  BX0    -X0-X0                                                  COMCSVR   351
                                                  SB6    X0-0        (B6) = -0                                   COMCSVR   352
                                                                                                                 COMCSVR   353
                                        *         RESTORE (A0),(X0).                                             COMCSVR   354
                                                                                                                 COMCSVR   355
                                                  SA4    B7+SVA+0                                                COMCSVR   356
                                                  SA5    B7+SVX+0                                                COMCSVR   357
                                                  SA0    X4+B6                                                   COMCSVR   358
                                                  BX0    X5                                                      COMCSVR   359
                                                                                                                 COMCSVR   360
                                        *         RESTORE A - 1,2,3,4                                            COMCSVR   361
                                        *                 X - 1,2,3,4                                            COMCSVR   362
                                                                                                                 COMCSVR   363
                                                  ECHO   4,N=(1,2,3,4)                                           COMCSVR   364
                                                  SA4    A4+B1       (X4) = SAVED (A.N)                          COMCSVR   365
                                                  SA5    A5+B1       (X5) = SAVED (X.N)                          COMCSVR   366
                                                  SA.N   X4+B6                                                   COMCSVR   367
                                                  BX.N   X5                                                      COMCSVR   368
                                                                                                                 COMCSVR   369
                                        *         RESTORE (A5),(X5)-- THE ORIGINAL (X5) ARE BROKEN APART INTO    COMCSVR   370
                                        *           (B1) THRU (B5) AS DISPLAYED BELOW. THIS ALLOWS US TO RESTORE COMCSVR   371
                                        *           (A5).                                                        COMCSVR   372
                                        *           DISASSEMBLY IS FROM LEFT TO RIGHT, TOP TO BOTTOM.            COMCSVR   373
                                        *           REASSEMBLY IS FROM RIGHT TO LEFT, BOTTOM TO TOP.             COMCSVR   374
                                        *         5          4          3          2          1               55 COMCSVR   375
                                        *         9          8          7          6          5              098 COMCSVR   376
                                        *         .............................................................. COMCSVR   377
                                        *         ++++++++++++                                                   COMCSVR   378
                                        *             (B1)   ++++++++++++                                        COMCSVR   379
                                        *                        (B2)   ++++++++++++                             COMCSVR   380
                                        *                                   (B3)   ++++++++++++                  COMCSVR   381
                                        *                                              (B4)   ++++++++++++++++++ COMCSVR   382
                                        *         ++                                                 (B5)        COMCSVR   383
                                                                                                                 COMCSVR   384
                                                  SA5    A5+B1       (X5) = SAVED (X5)                           COMCSVR   385
                                                                                                                 COMCSVR   386
                                                  ECHO   2,N=(1,2,3)                                             COMCSVR   387
                                                  UX5    X5,B.N                                                  COMCSVR   388
                                                  LX5    11                                                      COMCSVR   389
                                                                                                                 COMCSVR   390
                                                  UX5    X5,B4                                                   COMCSVR   391
                                                  LX5    11+18                                                   COMCSVR   392
                                                  SB5    X5+B6                                                   COMCSVR   393
                                                                                                                 COMCSVR   394
                                                  SA5    B7+SVA+5    (X5) = SAVED (A5)                           COMCSVR   395
                                                  SA5    X5+B6       RESTORE (A5)                                COMCSVR   396
                                                                                                                 COMCSVR   397
                                        *         REASSEMBLE (X5).                                               COMCSVR   398
                                                                                                                 COMCSVR   399
                                                  SX5    B5+B6                                                   COMCSVR   400
                                                  LX5    60-11-18                                                COMCSVR   401
                                                  PX5    X5,B4                                                   COMCSVR   402
                                                                                                                 COMCSVR   403
                                                  ECHO   2,N=(3,2,1)                                             COMCSVR   404
                                                  LX5    -11                                                     COMCSVR   405
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   119
  
  
                                                  PX5    X5,B.N                                                  COMCSVR   406
                                                                                                                 COMCSVR   407
                                        *         RESTORE B - 0,1,2,3,4,5,6,7                                    COMCSVR   408
                                                                                                                 COMCSVR   409
                                         RSR4     BSS    0                                                       COMCSVR   410
                                                  ECHO   2,U=(1,3,5,7),L=(0,2,4,6)                               COMCSVR   411
                                                  SB.U   B6+*                                                    COMCSVR   412
                                                  SB.L   B6+*                                                    COMCSVR   413
                                                                                                                 COMCSVR   414
                                                  EQ     RSR=        EXIT...                                     COMCSVR   415
                                         SVR=     SPACE  4,8                                                     COMCSVR   416
                                                  BASE   *                                                       COMCSVR   417
                                                                                                                 COMCSVR   418
                                         #SVR     IF     -DEF,#SVR                                               COMCSVR   419
                                         SV=B     =      SVREG+SVB                                               COMCSVR   420
                                         SV=A     =      SVREG+SVA                                               COMCSVR   421
                                         SV=X     =      SVREG+SVX                                               COMCSVR   422
                                         #SVR     ENDIF                                                          COMCSVR   423
                                                                                                                 COMCSVR   424
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSVR   425
                                                  QUAL   *                                                       COMCSVR   426
                                         SVR=     =      /COMCSVR/SVR=                                           COMCSVR   427
                                         RSR=     =      /COMCSVR/RSR=                                           COMCSVR   428
                                                                                                                 COMCSVR   429
                                         #SVR     IF     -DEF,#SVR                                               COMCSVR   430
                                         SV=B     =      /COMCSVR/SV=B                                           COMCSVR   431
                                         SV=A     =      /COMCSVR/SV=A                                           COMCSVR   432
                                         SV=X     =      /COMCSVR/SV=X                                           COMCSVR   433
                                         #SVR     ENDIF                                                          COMCSVR   434
                                         QUAL$    ENDIF                                                          COMCSVR   435
                                                  ENDX                                                           COMCSVR   436
                                         SVR=     SPACE  4,8                                                     SNAP      291
                                                  ENTRY  SVR=,RSR=                                               SNAP      292
                                         SVR      =      SVR=                                                    SNAP      293
                                         RSR      =      RSR=                                                    SNAP      294
                                                                                                                 SNAP      295
                                         #SVR     IF     -DEF,#SVR   IF LOCAL REGISTER SAVE AREA                 SNAP      296
                                                  ECHO   4,R=(B,A,X)                                             SNAP      297
                                         SV_R     =      /COMCSVR/SVREG+/COMCSVR/SV_R                            SNAP      298
                                         SAV.R    =      SV_R                                                    SNAP      299
                                                  ENTRY  SV_R,SAV.R                                              SNAP      300
                                                  ENTRY  SV=R                                                    SNAP      301
                                         #SVR     ENDIF                                                          SNAP      302
                                                                                                                 SNAP      303
                                                  ENTRY  SAVE=,RESET=                                            SNAP      304
                                         SAVE=    =      SVR=                                                    SNAP      305
                                         RESET=   =      RSR=                                                    SNAP      306
                                                                                                                 SNAP      307
                                         #SNAP    ENDIF                                                          SNAP      308
                                                                                                                 SNAP      309
                                                  USE    OVLEND                                                  SNAP      310
                                                  ENTRY  LWA2.0                                                  SNAP      311
             0  00000000000000000000     LWA2.0   DATA   0           DEFINE LWA (2,0) OVERLAY FOR LOADER CALL    SNAP      312
                                                                                                                 SNAP      313
                                                  LIST   D                                                       SNAP      314
             1                                    END                                                            SNAP      315
  
1       SNAP  TEST MODE SNAP PACKAGE.                                 COMPASS 3.7-871.     24/05/02. 15.53.26.      PAGE   120
  
  
                             64700B CM  STORAGE USED             6822 STATEMENTS      524 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            3.858 SECONDS           3 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        LWA2.0          0   PROGRAM*      119/52 E  119/53 L
        TEST            0   FTNTEXT         1/28 F
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4473              IDENT  FTNMSG 
                       4473                       END    FTN23
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0        52 
                                        LITERALS* LOCAL          52         3 
                                        TABLES    COMMON          0         1 
                                        ERTAB     LOCAL          55       537 
                                        MSG       LOCAL         614      3657 
  
  
                                        ENTRY POINTS. 
  
                                        B=FTMSG          0+           FTN23            0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        OVL25     OVLA      LWAWORK   N.FERR    N.ERROR   MVE=      TL.JECT 
                                        LOVER     OVL22     DFLAG     QFLAG     FA=LOL    O.STITL   CP.LSTF 
                                        OVLB      LWA2.0    P2NOGO    R=FLAG    FA=NPG    L.STITL 
  
  
  
  
                                                  IDENT  FTNMSG                                                  FTNMSG      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                                                                                 FTNMSG      6
                                                  NOREF  ANSI,ASA,FC,FE,I                                        FTNMSG      7
                                                  NOREF  LEN                                                     FTNMSG      8
                                                  NOREF  ZZZZZZZZ                                                FTNMSG      9
                                                                                                                 FTNMSG     10
                                                  B1=1                                                           FTNMSG     11
  
  
  
                                        ***                                                                      FTNMSG     13
                                        *         FTNMSG$ - FTN 1.3 OVERLAY. ISSUES ERROR MESSAGES TO THE OUTPUT FTNMSG     14
                                        *         FILE AND EXITS TO LOAD PASS 2.                                 FTNMSG     15
                                        *                                                                        FTNMSG     16
  
  
  
             0                           B=FTMSG  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     FTNMSG     18
                                                                                                                 FTNMSG     19
                                                  USE    /TABLES/                                                FTNMSG     20
             0                     1     O.ERTAB  BSS    1                 FWA OF THE ERROR TABLE                FTNMSG     21
                                                  USE    *                                                       FTNMSG     22
                                                                                                                 FTNMSG     23
                                  56     PROGRAM  EQU    56B         SUBPROGRAM TYPE, =0 IF BLOCKDATA            FTNMSG     24
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     2
  
  
                                                                                                                 FTNMSG     25
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     3
  
  
                                        **        ERMSG - GENERATE ERROR MESSAGE TEXT AND INDEX TABLES.          FTNMSG     27
                                        *                                                                        FTNMSG     28
                                        *                                                                        FTNMSG     29
                                        *         ERMSG     NAME,SEV,(TEXT)                                      FTNMSG     30
                                        *                                                                        FTNMSG     31
                                        *         ENTRY  *NAME* = ANY UNIQUE ADDRESS SYMBOL EXCEPT *ZZZZZZZZ*.   FTNMSG     32
                                        *                   DOES NOT APPEAR IN ERROR LISTING.  BEST USED TO      FTNMSG     33
                                        *                   GIVE CLUE TO INVOKING ROUTINE, E.G., ARITH25 OR      FTNMSG     34
                                        *                   GOTO7.                                               FTNMSG     35
                                        *                *SEV*  = SEVERITY CODE.  NOT USED BY *ERMSG* MACRO,     FTNMSG     36
                                        *                   BUT REQUIRED FOR EXTERNAL PROGRAM THAT GENERATES     FTNMSG     37
                                        *                   ERROR MESSAGE LIST FOR PHOTO-REPRODUCTION IN FTN     FTNMSG     38
                                        *                   REFERENCE MANUAL.  (ACTUAL SEVERITY, AS LISTED IN    FTNMSG     39
                                        *                   ERROR OUTPUT, IS DETERMINED BY THE *ERPRO* CALLER.)  FTNMSG     40
                                        *                   ACCEPTABLE VALUES ARE --                             FTNMSG     41
                                        *                            FC   - FATAL TO COMPILATON.                 FTNMSG     42
                                        *                            FE   - FATAL TO EXECUTION.                  FTNMSG     43
                                        *                            I    - INFORMATIVE.                         FTNMSG     44
                                        *                            ANSI - ANSI VIOLATION.                      FTNMSG     45
                                        *                *TEXT* = ERROR MESSAGE TO BE LISTED.  SHOULD END WITH A FTNMSG     46
                                        *                   PERIOD. (*ERMSG* WILL SUPPLY IF OMITTED.)  MUST NOT  FTNMSG     47
                                        *                   EXCEED 106 CHARACTERS, INCLUDING TERMINAL PERIOD.    FTNMSG     48
                                        *                   MUST NOT CONTAIN $.  MUST BE ENCLOSED IN PARENS.     FTNMSG     49
                                                                                                                 FTNMSG     50
                                                  QUAL   SEVC                                                    FTNMSG     51
                                                  ECHO   1,B=(FE,I,ASA,ANSI,FC)                                  FTNMSG     52
                                         B        =      1                                                       FTNMSG     53
                                                  QUAL                                                           FTNMSG     54
                                                                                                                 FTNMSG     55
                                                                                                                 FTNMSG     56
                                                                                                                 FTNMSG     57
                                         ERMSG    MACRO  NAME,SEV,TEXT                                           FTNMSG     58
                                        ERNUMBER DECMIC "ERNUMBER"+1                                             FTNMSG     59
                                          USE MSG                                                                FTNMSG     60
                                        *                            VALIDATE SEVERITY CODE.                     FTNMSG     61
                                          IF -DEF,/SEVC/SEV,1                                                    FTNMSG     62
                                          ERR ILLEGAL SEVERITY CODE - SEV.  "SEQUENCE"                           FTNMSG     63
                                        *                                                                        FTNMSG     64
                                        TXT MICRO 1,,$TEXT$                                                      FTNMSG     65
                                        *                            APPEND TERMINATING PERIOD IF MISSING.       FTNMSG     66
                                        LEN MICCNT TXT                                                           FTNMSG     67
                                        PER MICRO LEN,1,$"TXT"$                                                  FTNMSG     68
                                          IFC NE,$"PER"$.$,4                                                     FTNMSG     69
                                        TXT MICRO 1,,$"TXT".$                                                    FTNMSG     70
                                        LEN SET LEN+1                                                            FTNMSG     71
                                        *                            DEFINE TEXT IF PERIOD MISSING.              FTNMSG     72
                                        NAME DIS ,$"TXT"$                                                        FTNMSG     73
                                          SKIP 1                                                                 FTNMSG     74
                                        *                            DEFINE TEXT IF PERIOD PRESENT.              FTNMSG     75
                                        NAME DIS ,$TEXT$                                                         FTNMSG     76
                                        *                            CHECK ERROR MESSAGE LENGTH.                 FTNMSG     77
                                          IFGT LEN,106,2                                                         FTNMSG     78
                                        ERLEN DECMIC LEN-106                                                     FTNMSG     79
                                          ERR ERROR MESSAGE IS "ERLEN" CHARAC TOO LONG.  "SEQUENCE"              FTNMSG     80
                                        *                                                                        FTNMSG     81
                                        ZZZZZZZZ SET *-NAME                                                      FTNMSG     82
                                          USE ERTAB                                                              FTNMSG     83
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     4
  
  
                                          VFD 24/0,18/ZZZZZZZZ,18/NAME                                           FTNMSG     84
                                                  LIST   L           MESSAGE NR. "ERNUMBER"                      FTNMSG     85
                                          USE *                                                                  FTNMSG     86
                                         ERMSG    ENDM                                                           FTNMSG     87
                                                                                                                 FTNMSG     88
                                                                                                                 FTNMSG     89
                                                                                                                 FTNMSG     90
                                         ERNUMBER MICRO  1,, 0                                                   FTNMSG     91
                                                                                                                 FTNMSG     92
                                         AVAIL    MICRO                                                          FTNMSG     93
                                                                                                                 FTNMSG     94
                                         UNUSED   MACRO                    FOR UNUSED ERROR ORDINALS             FTNMSG     95
                                        ERNUMBER DECMIC "ERNUMBER"+1                                             FTNMSG     96
                                          USE ERTAB                                                              FTNMSG     97
                                          VFD 42/0,1/1,17/"ERNUMBER"                                             FTNMSG     98
                                                  LIST   L           "ERNUMBER" IS UNUSED                        FTNMSG     99
                                          USE *                                                                  FTNMSG    100
                                        AVAIL MICRO 1,,$"AVAIL" "ERNUMBER"$                                      FTNMSG    101
                                         UNUSED   ENDM                                                           FTNMSG    102
                                                                                                                 FTNMSG    103
                                         RESERVE  MACRO                    ERROR ORDINALS RESERVED FOR FUTURE EX FTNMSG    104
                                        ERNUMBER DECMIC "ERNUMBER"+1                                             FTNMSG    105
                                          USE ERTAB                                                              FTNMSG    106
                                          VFD 42/0,1/1,17/"ERNUMBER"                                             FTNMSG    107
                                                  LIST   L           "ERNUMBER" IS RESERVED                      FTNMSG    108
                                          USE *                                                                  FTNMSG    109
                                         RESERVE  ENDM                                                           FTNMSG    110
  
  
  
                                                  USE    ERTAB                                                   FTNMSG    112
            55                           ERTAB    BSS    0                 BASE OF THE POINTER TABLE             FTNMSG    113
                                                  USE    MSG                                                     FTNMSG    114
                                                                                                                 FTNMSG    115
           614  55555555060555555555     SEV      DATA   10H    FE                                               FTNMSG    116
           615  55555555060355555555              DATA   10H    FC                                               FTNMSG    117
           616  55555501162311555555              DATA   10H   ANSI                                              FTNMSG    118
           617  55555555115555555555              DATA   10H    I                                                FTNMSG    119
                                                                                                                 FTNMSG    120
           620                     1     INDEX    BSSZ   1                 ERROR TABLE INDEX                     FTNMSG    121
                                                                                                                 FTNMSG    122
           621                    16     ERBUF    BSSZ   14                ERROR MESSAGE BUFFER                  FTNMSG    123
                                                                                                                 FTNMSG    124
           637  33550301220455162257     O.ERHEAD DIS    ,*0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM* FTNMSG    125
                                   6     L.ERHEAD =      *-O.ERHEAD                                              FTNMSG    126
                                                                                                                 FTNMSG    127
                                                  USE    0                                                       FTNMSG    128
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     5
  
  
                                        *         LOOP THROUGH THE ERROR TABLE AND PRINT OUT DIAGNOSTICS         FTNMSG    130
                                                                                                                 FTNMSG    131
                                        *         IF (BREAK=23) WAS SELECTED, ENTRY TO OVERLAY(2,3) WILL BE TO   FEAT155F  219
                                        *         *FTN23-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.  FEAT155F  220
                                                                                                                 FEAT155F  221
                                         FTN23    BREAK                                                          FEAT155F  222
                                                                                                                 FEAT155F  223
                                                  ENTRY  FTN23                                                   FTNMSG    132
             0                           FTN23    BSS    0                 ** LOADER ENTRY POINT **              FTNMSG    133
             0  5110000000 X                      SA1    =XCP.LSTF                                               FTNMSG    134
                          6110000001              SB1    1                                                       FTNMSG    135
             1  0311000003 +                      NZ     X1,MSG1           IF SOURCE LISTING ON (*L* .NZ.)       FTNMSG    136
                          5110000052 +            SA1    =1H-                                                    FTNMSG    137
             2  10711                             BX7    X1                                                      FTNMSG    138
                     46000                        NO                                                             FTNMSG    139
                          5170000000 X            SA7    =XTL.JECT         SET TITLE TO TRIPLE SPACE, NOT EJECT  FTNMSG    140
             3  7160000006               MSG1     SX6    L.ERHEAD                                                FTNMSG    141
                          5160000000 X            SA6    =XL.STITL                                               FTNMSG    142
             4  73160                             MOVE   X6,O.ERHEAD,=XO.STITL                                   FTNMSG    143
             6  0100000000 X                      NUPAGE                                                         FTNMSG    144
             7  6160000053 +                      LISTL  (=2C  ),1         SKIP LINE AFTER SUBHEADING            FTNMSG    145
                                                                                                                 FTNMSG    146
                                        *         MAIN LOOP.                                                     FTNMSG    147
                                                                                                                 FTNMSG    148
            10  5110000620 +             MSG2     SA1    INDEX                                                   FTNMSG    149
                          5120000000 X            SA2    =XN.ERROR         (X2) = ERROR COUNT                    FTNMSG    150
            11  37312                             IX3    X1-X2                                                   FTNMSG    151
                     0323000030 +                 PL     X3,MSG5           IF ALL ERRORS LISTED                  FTNMSG    152
                               73611              SX6    X1+B1                                                   FTNMSG    153
            12  20101                             LX1    1                 *2                                    FTNMSG    154
                     5241000000 C                 SA4    O.ERTAB+X1        FIRST WORD                            FTNMSG    155
                               43002              MX0    2                                                       FTNMSG    156
            13  54610                             SA6    A1                UPDATE INDEX                          FTNMSG    157
                     11004                        BX0    X0*X4                                                   FTNMSG    158
                          43712                   MX7    10                                                      FTNMSG    159
                               20002              LX0    2                 X0 = SEVERITY                         FTNMSG    160
            14  20772                             LX7    60-2                                                    FTNMSG    161
                     11574                        BX5    X7*X4                                                   FTNMSG    162
                          43214                   MX2    12                                                      FTNMSG    163
                               15442              BX4    -X2*X4            EXTRACT MESSAGE FIELD                 FTNMSG    164
            15  21560                             AX5    48                X5 = ERROR ORDINAL                    FTNMSG    165
                     54141                        SA1    A4+B1             (X1) = LINE NUMBER                    FTNMSG    166
                                                                                                                 FTNMSG    167
                                        *         BLANK FILL *DETAILS* COLUMN ENTRY.                             FTNMSG    168
                                                                                                                 FTNMSG    169
                          5120000054 +            SA2    =40404040404040404040B                                  FTNMSG    170
            16  20414                             LX4    12          (X4) = LEFT JUSTIFY DETAIL                  FTNMSG    171
                     76610                        SX6    B1                                                      FTNMSG    172
                          37746                   IX7    X4-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BYTE    FTNMSG    173
                               15374              BX3    -X4*X7      EXTRACT BORROWS                             FTNMSG    174
            17  11623                             BX6    X2*X3       EXTRACT BORROW BYTES                        FTNMSG    175
                     10766                        BX7    X6          DEVELOP BLANKS (55B-S) FOR FILL             FTNMSG    176
                          20672                   LX6    -2                                                      FTNMSG    177
                               36376              IX3    X7+X6                                                   FTNMSG    178
            20  10733                             BX7    X3                                                      FTNMSG    179
                     20371                        LX3    -3                                                      FTNMSG    180
                          36673                   IX6    X7+X3                                                   FTNMSG    181
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     6
  
  
                               12446              BX4    X4+X6       BLANK FILL THE DETAIL                       FTNMSG    182
                                                                                                                 FTNMSG    183
                                        *         WRITE ERROR MESSAGE TO OUTPUT FILE.                            FTNMSG    184
                                                                                                                 FTNMSG    185
            21  5220000614 +                      SA2    SEV+X0      (X2) = SEVERITY CODE (DISPLAY CODE)         FTNMSG    186
                          10611                   BX6    X1                                                      FTNMSG    187
                               22702              LX7    X2                                                      FTNMSG    188
            22  5215000054 +                      SA1    ERTAB-1+X5        18/L.TEXT,18/FWA                      FTNMSG    189
                          5160000621 +            SA6    ERBUF                                                   FTNMSG    190
            23  54761                             SA7    A6+B1                                                   FTNMSG    191
                     10644                        BX6    X4          (X6) = DETAILS COLUMN ENTRY                 FTNMSG    192
                          73210                   SX2    X1                (X2) = CANNED TEXT FWA                FTNMSG    193
                               21122              AX1    18                (X1) = CANNED TEXT LENGTH             FTNMSG    194
            24  5201000003                        SA0    X1+3              (A0) = LISTING LINE LENGTH            FTNMSG    195
                          54671                   SA6    A7+B1                                                   FTNMSG    196
                               74361              MOVE   X1,X2,A6+B1       CANNED TEXT TO LISTING BUFFER         FTNMSG    197
            26  6160000621 +                      LISTL  ERBUF,A0          LIST ERROR MESSAGE                    FTNMSG    198
            27  0400000010 +                      EQ     MSG2                                                    FTNMSG    199
                                                                                                                 FTNMSG    200
                                        *         HERE AFTER ALL ERRORS ARE LISTED.                              FTNMSG    201
                                                                                                                 FTNMSG    202
            30  5110000000 X             MSG5     SA1    =XR=FLAG                                                FTNMSG    203
                          5120000000 X            SA2    =XQFLAG                                                 FTNMSG    204
            31  5130000000 X                      SA3    =XN.FERR                                                FTNMSG    205
                          5140000000 X            SA4    =XP2NOGO                                                FTNMSG    206
            32  5150000000 X                      SA5    =XDFLAG                                                 FTNMSG    207
                          7160003355              SX6    2R0                                                     FTNMSG    208
            33  7171000000                        SX7    B1+                                                     FTNMSG    209
                          20660                   LX6    48                                                      FTNMSG    210
            34  5160000000 X                      SA6    =XO.STITL                                               FTNMSG    211
                          5170000000 X            SA7    =XL.STITL                                               FTNMSG    212
                                                                                                                 FTNMSG    213
                                         #OVL     IFEQ   .OVL,0                                                  FTNMSG    214
                                                                                                                 FTNMSG    215
                                                  NZ     X1,MSG7     IF REFMAP REQUESTED                         FTNMSG    216
                                                  NZ     X3,MSG7     IF FATAL ERRORS OCCURRED                    FCC1897     5
                                                  ZR     X2,MSG7     IF NOT IN Q MODE                            FTNMSG    218
                                                  EQ     =XFTNEND                                                FTNMSG    219
                                                                                                                 FTNMSG    220
                                                                                                                 FTNMSG    223
                                         MSG7     LOVER  OVL22       LOAD AND EXECUTE PASS2                      FTNMSG    224
                                                                                                                 FTNMSG    225
                                         #OVL     ELSE                                                           FTNMSG    226
            35  0313000044 +                      NZ     X3,MSG7     IF FATAL ERRORS                             FTNMSG    227
                          0312000045 +            NZ     X2,MSG8     IF Q MODE                                   FTNMSG    228
                                                                                                                 FTNMSG    229
            36  5150000056               MSG6     SA5    PROGRAM                                                 FTNMSG    230
                          0305000045 +            ZR     X5,MSG8     IF PROGRAM = 0  */ BLOCK DATA SUBPROGRAM    FTNMSG    231
                                                                                                                 FTNMSG    232
            37  5150000000 X                      LOVER  OVL22       LOAD AND EXECUTE PASS 2                     FTNMSG    233
                                                                                                                 FTNMSG    234
            44  0305000045 +             MSG7     ZR     X5,MSG8     IF NOT IN DEBUG                             FTNMSG    235
                          0304000036 +            ZR     X4,MSG6     IF EXECUTING                                FTNMSG    236
                                                                                                                 FTNMSG    237
            45  5150000000 X             MSG8     LOVER  OVL25       LOAD AND EXECUTE PASS3                      FTNMSG    238
                                                                                                                 FTNMSG    239
                                         #OVL     ENDIF                                                          FTNMSG    240
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     7
         TABLE OF ERROR MESSAGES
  
                                        *         DOPROC MESSAGES                                                FTNMSG    242
                                                                                                                 FTNMSG    243
           645  14171720235501220555              ERMSG  DO1,FE,(LOOPS ARE NESTED MORE THAN 50 DEEP)             FTNMSG    244
                                                  LIST   L           MESSAGE NR. 1                              ERMSG   .1
                                                                                                                 FTNMSG    245
           651  15112323111607565502              ERMSG  DO2,FE,(MISSING, BAD, OR OUT OF RANGE LABEL ON DO STATE FTNMSG    246
                                        ,MENT.)                                                                  FTNMSG    247
                                                  LIST   L           MESSAGE NR. 2                              ERMSG   .1
                                                                                                                 FTNMSG    248
           657  24100555240522151116              ERMSG  DO3,FE,(THE TERMINAL STATEMENT OF THIS DO PRECEDES IT)  FTNMSG    249
                                                  LIST   L           MESSAGE NR. 3                              ERMSG   .1
                                                                                                                 FTNMSG    250
           664  24100555031716242217              ERMSG  DO4,FE,(THE CONTROL VARIABLE OF A DO OR DO IMPLIED LOOP FTNMSG    251
                                        , MUST BE A SIMPLE INTEGER VARIABLE)                                     FTNMSG    252
                                                  LIST   L           MESSAGE NR. 4                              ERMSG   .1
                                                                                                                 FTNMSG    253
           675  24100555233116240130              ERMSG  DO5,FE,(THE SYNTAX OF DO PARAMETERS MUST BE I=M1,M2,M3  FTNMSG    254
                                        ,OR I=M1,M2)                                                             FTNMSG    255
                                                  LIST   L           MESSAGE NR. 5                              ERMSG   .1
                                                                                                                 FTNMSG    256
           703  01550317162324011624              ERMSG  DO6,FE,(A CONSTANT DO PARAMETER MUST BE GREATER THAN OR FTNMSG    257
                                        , EQUAL TO 1 AND LESS THAN OR EQUAL TO 131070.)                          FCC2291    16
                                                  LIST   L           MESSAGE NR. 6                              ERMSG   .1
                                                                                                                 FTNMSG    259
           715  01550417552001220115              ERMSG  DO7,FE,(A DO PARAMETER MUST BE A POSITIVE INTEGER CONST FTNMSG    260
                                        ,ANT OR AN INTEGER VARIABLE.)                                            FTNMSG    261
                                                  LIST   L           MESSAGE NR. 7                              ERMSG   .1
                                                                                                                 FTNMSG    262
           725  04252014110301240555              ERMSG  DO8,FE,(DUPLICATE STATEMENT LABEL)                      FTNMSG    263
                                                  LIST   L           MESSAGE NR. 8                              ERMSG   .1
                                                                                                                 FTNMSG    264
           730  01552022052611172523              ERMSG  DO9,FE,(A PREVIOUS STATEMENT MAKES AN ILLEGAL TRANSFER  FTNMSG    265
                                        ,TO THIS LABEL)                                                          FTNMSG    266
                                                  LIST   L           MESSAGE NR. 9                              ERMSG   .1
                                                                                                                 FTNMSG    267
           737  24101123552324012405              ERMSG  DO10,FE,(THIS STATEMENT MAKES AN ILLEGAL TRANSFER INTO  FTNMSG    268
                                        ,A PREVIOUS DO LOOP)                                                     FTNMSG    269
                                                  LIST   L           MESSAGE NR. 10                             ERMSG   .1
                                                                                                                 FTNMSG    270
           746  01550417551417172055              ERMSG  DO11,FE,(A DO LOOP MAY NOT TERMINATE ON THIS TYPE OF ST FTNMSG    271
                                        ,ATEMENT)                                                                FTNMSG    272
                                                  LIST   L           MESSAGE NR. 11                             ERMSG   .1
                                                                                                                 FTNMSG    273
           754  04175514171720235524              ERMSG  DO12,FE,(DO LOOPS TERMINATING ON THIS LABEL ARE IMPROPE FTNMSG    274
                                        ,RLY NESTED)                                                             FTNMSG    275
                                                  LIST   L           MESSAGE NR. 12                             ERMSG   .1
                                                                                                                 FTNMSG    276
           762  24101123552324012405              ERMSG  DO13,I,(THIS STATEMENT REDEFINES A CURRENT LOOP CONTROL FTNMSG    277
                                        , VARIABLE OR PARAMETER)                                                 FTNMSG    278
                                                  LIST   L           MESSAGE NR. 13                             ERMSG   .1
                                                                                                                 FTNMSG    279
           772  05162422315523240124              ERMSG  DO14,FE,(ENTRY STATEMENTS MAY NOT OCCUR WITHIN THE RANG FTNMSG    280
                                        ,E OF A DO STATEMENT)                                                    FTNMSG    281
                                                  LIST   L           MESSAGE NR. 14                             ERMSG   .1
                                                                                                                 FTNMSG    282
          1001  04050225075505300503              ERMSG  DO15,FE,(DEBUG EXECUTION OPTION SUPPRESSED DUE TO NATUR FTNMSG    283
                                        ,E OF ABOVE FATAL ERRORS)                                                FTNMSG    284
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     8
         TABLE OF ERROR MESSAGES                                                ERTAB 
  
                                                  LIST   L           MESSAGE NR. 15                             ERMSG   .1
                                                                                                                 FTNMSG    285
          1011  14171720550205071116              ERMSG  DO16,FE,(LOOP BEGINNING AT THIS CARD NO IS ENTERED FROM FTNMSG    286
                                        , OUTSIDE ITS RANGE AND HAS NO EXITS)                                    FTNMSG    287
                                                  LIST   L           MESSAGE NR. 16                             ERMSG   .1
                                                                                                                 FTNMSG    288
          1022  25160405061116050455              ERMSG  DO17,FE,(UNDEFINED STATEMENT LABEL(S), SEE LIST BELOW.) FCC0220    17
                                                  LIST   L           MESSAGE NR. 17                             ERMSG   .1
                                                                                                                 FTNMSG    290
          1027  20220523051624552523              ERMSG  DO18,FE,(PRESENT USE OF THIS LABEL CONFLICTS WITH PREVI FTNMSG    291
                                        ,OUS USES)                                                               FTNMSG    292
                                                  LIST   L           MESSAGE NR. 18                             ERMSG   .1
                                                                                                                 FTNMSG    293
          1035  15172205552324172201              ERMSG  DO19,I,(MORE STORAGE REQUIRED BY DO STATEMENT PROCESSOR FTNMSG    294
                                        , FOR OPTIMIZATION)                                                      FTNMSG    295
                                                  LIST   L           MESSAGE NR. 19                             ERMSG   .1
                                                                                                                 FTNMSG    296
          1044  24100555252020052255              ERMSG  DO20,I,(THE UPPER LIMIT AND CONTROL VARIABLES OF THIS D FTNMSG    297
                                        ,O ARE THE SAME, PRODUCING A NON-TERMINATING LOOP.)                      FTNMSG    298
                                                  LIST   L           MESSAGE NR. 20                             ERMSG   .1
                                                                                                                 FTNMSG    299
          1056  24101123552325022022              ERMSG  DO21,FC,(THIS SUBPROGRAM HAS TOO MANY DO LOOPS)         FTNMSG    300
                                                  LIST   L           MESSAGE NR. 21                             ERMSG   .1
                                                                                                                 FTNMSG    301
          1062  14172705225514111511              ERMSG  DO22,I,(LOWER LIMIT .GE. UPPER LIMIT, ONE TRIP LOOP)    FTNMSG    302
                                                  LIST   L           MESSAGE NR. 22                             ERMSG   .1
                                                                                                                 FTNMSG    303
                                        *         PROGRAM CARD PROCESSOR                                         FTNMSG    304
                                                                                                                 FTNMSG    305
          1067  10050104052255030122              ERMSG  HCSE,FE,(HEADER CARD SYNTAX ERROR)                      FTNMSG    306
                                                  LIST   L           MESSAGE NR. 23                             ERMSG   .1
                                                                                                                 FTNMSG    307
          1072  06111405160115055511              ERMSG  PROG2,FE,(FILENAME IS GREATER THAN 6 CHARACTERS)        FTNMSG    308
                                                  LIST   L           MESSAGE NR. 24                             ERMSG   .1
                                                                                                                 FTNMSG    309
          1076  06111405160115055520              ERMSG  PROG3,FE,(FILENAME PREVIOUSLY DEFINED)                  FTNMSG    310
                                                  LIST   L           MESSAGE NR. 25                             ERMSG   .1
                                                                                                                 FTNMSG    311
          1101  25161124551625150205              ERMSG  UNITNO,FE,(UNIT NUMBER OR PARITY INDICATOR MUST BE AN I FTNMSG    312
                                        ,NTEGER CONSTANT OR VARIABLE)                                            FTNMSG    313
                                                  LIST   L           MESSAGE NR. 26                             ERMSG   .1
                                                                                                                 FTNMSG    314
          1111  05212501240504550611              ERMSG  PROG5,FE,(EQUATED FILENAME NOT PREVIOUSLY DEFINED)      FTNMSG    315
                                                  LIST   L           MESSAGE NR. 27                             ERMSG   .1
                                                                                                                 FTNMSG    316
                                        *         SCANNER                                                        FTNMSG    317
                                                                                                                 FTNMSG    318
          1116  24010214052355172605              ERMSG  SCAN1,FC,(TABLES OVERLAP, INCREASE FL)                  FTNMSG    319
                                                  LIST   L           MESSAGE NR. 28                             ERMSG   .1
                                                                                                                 FTNMSG    320
          1121  25162205031707161132              ERMSG  SCAN2,FE,(UNRECOGNIZED STATEMENT)                       FTNMSG    321
                                                  LIST   L           MESSAGE NR. 29                             ERMSG   .1
                                                                                                                 FTNMSG    322
          1124  11141405070114551401              ERMSG  S3,FE,(ILLEGAL LABEL FIELD.)                            FCC1388     5
                                                  LIST   L           MESSAGE NR. 30                             ERMSG   .1
                                                                                                                 FTNMSG    324
          1127  23240124051505162455              ERMSG  SCAN4,FE,(STATEMENT TOO LONG)                           FTNMSG    325
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE     9
         TABLE OF ERROR MESSAGES                                                ERTAB 
  
                                                  LIST   L           MESSAGE NR. 31                             ERMSG   .1
                                                                                                                 FTNMSG    326
          1132  23311502171411035516              ERMSG  SCAN5,FE,(SYMBOLIC NAME HAS TOO MANY CHARACTERS.)       FTNMSG    327
                                                  LIST   L           MESSAGE NR. 32                             ERMSG   .1
                                                                                                                 FTNMSG    328
          1136  25161501240310050455              ERMSG  SCAN6,FE,(UNMATCHED PARENTHESIS)                        FTNMSG    329
                                                  LIST   L           MESSAGE NR. 33                             ERMSG   .1
                                                                                                                 FTNMSG    330
          1141  42550310012201032405              ERMSG  SCAN7,ASA,(7 CHARACTER SYMBOLIC NAME IS NON-ANSI)       FTNMSG    331
                                                  LIST   L           MESSAGE NR. 34                             ERMSG   .1
                                                                                                                 FTNMSG    332
          1145  16175505160455030122              ERMSG  SCAN8,I,(NO END CARD, END LINE ASSUMED)                 FTNMSG    333
                                                  LIST   L           MESSAGE NR. 35                             ERMSG   .1
                                                                                                                 FTNMSG    334
          1151  24010214055517260522              ERMSG  P1TM,FC,(TABLE OVERFLOW, INCREASE FL)                   FTNMSG    335
                                                  LIST   L           MESSAGE NR. 36                             ERMSG   .1
          1154  11141405070114550310              ERMSG  SCNR10,FE,(ILLEGAL CHARACTER.  THE REMAINDER OF THIS ST FTNMSG    336
                                        ,ATEMENT WILL NOT BE COMPILED.)                                          FTNMSG    337
                                                  LIST   L           MESSAGE NR. 37                             ERMSG   .1
          1164  24100555061722150124              ERMSG  SCNR11,ANSI,(THE FORMAT OF THIS END LINE DOES NOT CONFO FTNMSG    338
                                        ,RM TO ANSI SPECIFICATIONS.)                                             FTNMSG    339
                                                  LIST   L           MESSAGE NR. 38                             ERMSG   .1
                                                                                                                 FTNMSG    340
                                        *         PROGRAM CARD PROCESSOR                                         FTNMSG    341
                                                                                                                 FTNMSG    342
          1173  22052425221623551411              ERMSG  SUB1,FE,(RETURNS LIST ERROR)                            FTNMSG    343
                                                  LIST   L           MESSAGE NR. 39                             ERMSG   .1
                                                                                                                 FTNMSG    344
          1176  04172502143155040506              ERMSG  SUB2,FE,(DOUBLY DEFINED FORMAL PARAMETER)               FTNMSG    345
                                                  LIST   L           MESSAGE NR. 40                             ERMSG   .1
                                                                                                                 FTNMSG    346
          1202  24101123552324012405              ERMSG  BDA,FE,(THIS STATEMENT TYPE IS ILLEGAL IN BLOCK DATA SU FTNMSG    347
                                        ,BPROGRAM)                                                               FTNMSG    348
                                                  LIST   L           MESSAGE NR. 41                             ERMSG   .1
                                                                                                                 FTNMSG    349
                                        *         DECLARATIVE PROCESSORS                                         FTNMSG    350
                                                                                                                 FTNMSG    351
           126  00000000000000400052              UNUSED                                                         FTNMSG    352
                                                  LIST   L           42 IS UNUSED                               UNUSED  .1
                                                                                                                 FTNMSG    353
          1210  01222201315510012355              ERMSG  DIM2,FE,(ARRAY HAS MORE THAN THREE SUBSCRIPTS)          FTNMSG    354
                                                  LIST   L           MESSAGE NR. 43                             ERMSG   .1
                                                                                                                 FTNMSG    355
          1214  01222201315527112410              ERMSG  DIM3,FE,(ARRAY WITH ILLEGAL SUBSCRIPTS)                 FTNMSG    356
                                                  LIST   L           MESSAGE NR. 44                             ERMSG   .1
                                                                                                                 FTNMSG    357
          1220  20220526111725231431              ERMSG  DIM4,I,(PREVIOUSLY DIMENSIONED ARRAY. FIRST DIMENSIONS  FTNMSG    358
                                        ,WILL BE RETAINED)                                                       FTNMSG    359
                                                  LIST   L           MESSAGE NR. 45                             ERMSG   .1
                                                                                                                 FTNMSG    360
          1227  01552601221101021405              ERMSG  DIM5,FE,(A VARIABLE DIMENSION OR THE ARRAY NAME WITH A  FTNMSG    361
                                        ,VARIABLE DIMENSION IS NOT A FORMAL PARAMETER)                           FTNMSG    362
                                                  LIST   L           MESSAGE NR. 46                             ERMSG   .1
                                                                                                                 FTNMSG    363
          1241  03100122010324052255              ERMSG  IMP1,I,(CHARACTER BOUNDS REVERSED IN IMPLICIT STATEMENT FTNMSG    364
                                        ,.)                                                                      FTNMSG    365
                                                  LIST   L           MESSAGE NR. 47                             ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    10
         TABLE OF ERROR MESSAGES                                                MSG 
  
                                                                                                                 FTNMSG    366
          1246  22052425221623551722              ERMSG  CUN,FE,(RETURNS OR EXTERNAL NAMES MAY NOT APPEAR IN DEC FTNMSG    367
                                        ,LARATIVE STATEMENTS)                                                    FTNMSG    368
                                                  LIST   L           MESSAGE NR. 48                             ERMSG   .1
                                                                                                                 FTNMSG    369
          1255  01552431200555270123              ERMSG  TYPE1,I,(A TYPE WAS DECLARED PREVIOUSLY FOR THIS VARIAB FTNMSG    370
                                        ,LE OR FUNCTION.  THIS DECLARATION IGNORED.)                             FTNMSG    371
                                                  LIST   L           MESSAGE NR. 49                             ERMSG   .1
                                                                                                                 FTNMSG    372
                                        *         ASFPRO                                                         FTNMSG    373
                                                                                                                 FTNMSG    374
          1266  04251515315520012201              ERMSG  DDP,FE,(DUMMY PARAMETER IN ASF DEFINITION OCCURED TWICE FTNMSG    375
                                        ,)                                                                       FTNMSG    376
                                                  LIST   L           MESSAGE NR. 50                             ERMSG   .1
                                                                                                                 FTNMSG    377
          1273  01230655100123551517              ERMSG  ASFTMP,FE,(ASF HAS MORE DUMMY PARAMETERS THAN ALLOWED)  FTNMSG    378
                                                  LIST   L           MESSAGE NR. 51                             ERMSG   .1
                                                                                                                 FTNMSG    379
          1300  23311624013055052222              ERMSG  ASFPLE,FE,(SYNTAX ERROR IN DUMMY ARGUMENT LIST OF STATE FTNMSG    380
                                        ,MENT FUNCTION.)                                                         FTNMSG    381
                                                  LIST   L           MESSAGE NR. 52                             ERMSG   .1
                                                                                                                 FTNMSG    382
          1306  15051517223155172605              ERMSG  ASFMO,FC,(MEMORY OVERFLOW DURING ASF EXPANSION)         FTNMSG    383
                                                  LIST   L           MESSAGE NR. 53                             ERMSG   .1
                                                                                                                 FTNMSG    384
          1312  23311502171455240102              ERMSG  LSTPRO,FC,(SYMBOL TABLE OVERFLOW)                       FTNMSG    385
                                                  LIST   L           MESSAGE NR. 54                             ERMSG   .1
                                                                                                                 FTNMSG    386
                                        *         DECLARATIVE PROCESSORS                                         FTNMSG    387
                                                                                                                 FTNMSG    388
          1315  10050104052255030122              ERMSG  PROG7,FE,(HEADER CARD NOT FIRST STATEMENT)              FTNMSG    389
                                                  LIST   L           MESSAGE NR. 55                             ERMSG   .1
                                                                                                                 FTNMSG    390
          1321  11141405070114552331              ERMSG  DPCOM,FE,(ILLEGAL SYNTAX IN COMMON DECLARATION.)        FTNMSG    391
                                                  LIST   L           MESSAGE NR. 56                             ERMSG   .1
                                                                                                                 FTNMSG    392
          1325  03171515171655260122              ERMSG  COM3,FE,(COMMON VARIABLE IS FORMAL PARAMETER OR PREVIOU FTNMSG    393
                                        ,SLY DECLARED IN COMMON OR ILLEGAL NAME.)                                FTNMSG    394
                                                  LIST   L           MESSAGE NR. 57                             ERMSG   .1
                                                                                                                 FTNMSG    395
          1336  11141405070114550214              ERMSG  COM4,FE,(ILLEGAL BLOCK NAME)                            FTNMSG    396
                                                  LIST   L           MESSAGE NR. 58                             ERMSG   .1
                                                                                                                 FTNMSG    397
          1341  11141405070114552305              ERMSG  EXT1,FE,(ILLEGAL SEPARATOR IN EXTERNAL STATEMENT)       FTNMSG    398
                                                  LIST   L           MESSAGE NR. 59                             ERMSG   .1
                                        *         DEBUG OPTION PROCESSOR                                         FTNMSG    399
                                                                                                                 FTNMSG    400
          1346  15013155161724552523              ERMSG  DBG1,I,(MAY NOT USED IN A DEBUG STATEMENT)              FTNMSG    401
                                                  LIST   L           MESSAGE NR. 60                             ERMSG   .1
                                                                                                                 FTNMSG    402
          1352  20220523051624552523              ERMSG  DBG2,I,(PRESENT USE IN CONTEXT OF THIS NAME DOES NOT MA FTNMSG    403
                                        ,TCH PREVIOUS OCCURRENCES IN DEBUG STMTS)                                FTNMSG    404
                                                  LIST   L           MESSAGE NR. 61                             ERMSG   .1
                                                                                                                 FTNMSG    405
          1363  11152014110311245523              ERMSG  IMP2,ASA,(IMPLICIT STATEMENT IS NON-ANSI.)              FTNMSG    406
                                                  LIST   L           MESSAGE NR. 62                             ERMSG   .1
                                                                                                                 FTNMSG    407
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    11
         TABLE OF ERROR MESSAGES                                                MSG 
  
                                        *         ASFPRO                                                         FTNMSG    408
                                                                                                                 FTNMSG    409
          1367  01552205060522051603              ERMSG  UNBAL,FE,(A REFERENCE TO THIS ARITHMETIC STATEMENT FUNC FTNMSG    410
                                        ,TION HAS UNBALANCED PARENTHESIS WITHIN THE PARAMETER LIST)              FTNMSG    411
                                                  LIST   L           MESSAGE NR. 63                             ERMSG   .1
                                                                                                                 FTNMSG    412
          1402  25161501240310050455              ERMSG  UNMATCH,FE,(UNMATCHED PARAMETER COUNT IN A REFERENCE TO FTNMSG    413
                                        , THIS STATEMENT FUNCTION)                                               FTNMSG    414
                                                  LIST   L           MESSAGE NR. 64                             ERMSG   .1
                                                                                                                 FTNMSG    415
                                        *         CONVERT                                                        FTNMSG    416
                                                                                                                 FTNMSG    417
          1411  11141405070114550310              ERMSG  IMP3,FE,(ILLEGAL CHARACTER FOUND IN IMPLICIT STATEMENT. FCC2285     8
                                        ,)                                                                       FTNMSG    419
                                                  LIST   L           MESSAGE NR. 65                             ERMSG   .1
                                                                                                                 FTNMSG    420
          1416  01550317162324011624              ERMSG  DECFX,FE,(A CONSTANT CANNOT BE CONVERTED.  CHECK CONSTA FTNMSG    421
                                        ,NT FOR PROPER CONSTRUCT.)                                               FTNMSG    422
                                                  LIST   L           MESSAGE NR. 66                             ERMSG   .1
                                                                                                                 FTNMSG    423
                                        *         RETURN STMT PROCESSOR                                          FTNMSG    424
                                                                                                                 FTNMSG    425
          1426  22052425221655232401              ERMSG  RTNMAIN,FE,(RETURN STATEMENT APPEARS IN MAIN PROGRAM)   FTNMSG    426
                                                  LIST   L           MESSAGE NR. 67                             ERMSG   .1
                                                                                                                 FTNMSG    427
          1433  16171646232401160401              ERMSG  RTNFUNC,FE,(NON-STANDARD RETURN STATEMENT MAY NOT APPEA FTNMSG    428
                                        ,R IN A FUNCTION SUBPROGRAM)                                             FTNMSG    429
                                                  LIST   L           MESSAGE NR. 68                             ERMSG   .1
                                                                                                                 FTNMSG    430
          1443  20012201150524052255              ERMSG  NSPARM,FE,(PARAMETER ON NON-STANDARD RETURN STATEMENT I FTNMSG    431
                                        ,S NOT A RETURNS FORMAL PARAMETER)                                       FTNMSG    432
                                                  LIST   L           MESSAGE NR. 69                             ERMSG   .1
                                                                                                                 FTNMSG    433
          1453  01550317162324011624              ERMSG  AR51,FE,(A CONSTANT ARITHMETIC OPERATION WILL GIVE AN I FTNMSG    434
                                        ,NDEFINITE OR OUT-OF-RANGE RESULT.)                                      FTNMSG    435
                                                  LIST   L           MESSAGE NR. 70                             ERMSG   .1
                                                                                                                 FTNMSG    436
          1464  11141405070114552431              ERMSG  IMP4,FE,(ILLEGAL TYPE SPECIFIED IN IMPLICIT STATEMENT.) FTNMSG    437
                                                  LIST   L           MESSAGE NR. 71                             ERMSG   .1
                                                                                                                 FTNMSG    438
          1471  24100555161716462324              ERMSG  NSASA,ASA,(THE NON-STANDARD RETURN STATEMENT IS NON-ANS FTNMSG    439
                                        ,I)                                                                      FTNMSG    440
                                                  LIST   L           MESSAGE NR. 72                             ERMSG   .1
                                                                                                                 FTNMSG    441
          1476  23311624013055052222              ERMSG  LISTIO,FE,(SYNTAX ERROR IN INPUT/OUTPUT STATEMENT.)     FTNMSG    442
                                                  LIST   L           MESSAGE NR. 73                             ERMSG   .1
                                                                                                                 FTNMSG    443
          1503  06172215012455220506              ERMSG  FMTER,FE,(FORMAT REFERENCE ILLEGAL.)                    FTNMSG    444
                                                  LIST   L           MESSAGE NR. 74                             ERMSG   .1
                                                                                                                 FTNMSG    445
          1506  01222201315522050605              ERMSG  LISTIOC,I,(ARRAY REFERENCE OUTSIDE DIMENSION BOUNDS)    FTNMSG    446
                                                  LIST   L           MESSAGE NR. 75                             ERMSG   .1
                                                                                                                 FTNMSG    447
          1513  05032350140315552205              ERMSG  AR52,FE,(ECS/LCM REFERENCE MUST BE A STAND-ALONE ARGUME FTNMSG    448
                                        ,NT TO AN EXTERNAL ROUTINE)                                              FTNMSG    449
                                                  LIST   L           MESSAGE NR. 76                             ERMSG   .1
                                                                                                                 FTNMSG    450
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    12
         TABLE OF ERROR MESSAGES                                                MSG 
  
          1523  17161431551411232455              ERMSG  E.LC,FE,(ONLY LIST DIRECTED OUTPUT STATEMENTS MAY END W FEAT155B   32
                                        ,ITH A COMMA)                                                            FEAT155B   33
                                                  LIST   L           MESSAGE NR. 77                             ERMSG   .1
                                                                                                                 FTNMSG    452
                                        *         ENTRY                                                          FTNMSG    453
                                                                                                                 FTNMSG    454
          1531  05162422315520171116              ERMSG  ENTRY1,FE,(ENTRY POINT NAMES MUST BE UNIQUE - THIS  ONE FTNMSG    455
                                        , HAS BEEN PREVIOUSLY USED IN THIS SUBPROGRAM)                           FTNMSG    456
                                                  LIST   L           MESSAGE NR. 78                             ERMSG   .1
                                                                                                                 FTNMSG    457
          1543  11152022172005225506              ERMSG  ENTRY2,FE,(IMPROPER FORM OF ENTRY STATEMENT. ONLY ALLOW FTNMSG    458
                                        ,ABLE FORM IS [  ENTRY NAME  ])                                          FTNMSG    459
                                                  LIST   L           MESSAGE NR. 79                             ERMSG   .1
                                                                                                                 FTNMSG    460
          1553  22050605220516030504              ERMSG  DO23,FE,(REFERENCED LABEL IS MORE THAN FIVE CHARACTERS) FTNMSG    461
                                                  LIST   L           MESSAGE NR. 80                             ERMSG   .1
                                                                                                                 FTNMSG    462
          1560  05162422315523240124              ERMSG  ENTRY3,FE,(ENTRY STATEMENT MAY NOT APPEAR IN A PROGRAM) FTNMSG    463
                                                  LIST   L           MESSAGE NR. 81                             ERMSG   .1
                                                                                                                 FTNMSG    464
                                        *         NAMELIST                                                       FTNMSG    465
                                                                                                                 FTNMSG    466
          1565  16011505141123245523              ERMSG  NML1,FE,(NAMELIST STATEMENT SYNTAX ERROR)               FTNMSG    467
                                                  LIST   L           MESSAGE NR. 82                             ERMSG   .1
                                                                                                                 FTNMSG    468
          1571  07221725205516011505              ERMSG  NML2,FE,(GROUP NAME PREVIOUSLY REFERENCED IN ANOTHER CO FTNMSG    469
                                        ,NTEXT)                                                                  FTNMSG    470
                                                  LIST   L           MESSAGE NR. 83                             ERMSG   .1
                                                                                                                 FTNMSG    471
          1577  07221725205516011505              ERMSG  NML3,FE,(GROUP NAME NOT SURROUNDED BY SLASHS)           FTNMSG    472
                                                  LIST   L           MESSAGE NR. 84                             ERMSG   .1
                                                                                                                 FTNMSG    473
          1603  01202005012205045527              ERMSG  NML4,FE,(APPEARED WHERE A VARIABLE WAS EXPECTED.)       FTNMSG    474
                                                  LIST   L           MESSAGE NR. 85                             ERMSG   .1
                                                                                                                 FTNMSG    475
          1610  11141405070114551601              ERMSG  NML5,FE,(ILLEGAL NAMELIST VARIABLE.)                    FTNMSG    476
                                                  LIST   L           MESSAGE NR. 86                             ERMSG   .1
                                                                                                                 FTNMSG    477
          1613  06572057552711241055              ERMSG  NML6,FE,(F.P. WITH VARIABLE DIMENSIONS NOT ALLOWED IN A FTNMSG    478
                                        , NAMELIST STATEMENT)                                                    FTNMSG    479
                                                  LIST   L           MESSAGE NR. 87                             ERMSG   .1
                                                                                                                 FTNMSG    480
          1622  05162422315523240124              ERMSG  ENTRY4,FE,(ENTRY STATEMENT MAY NOT BE LABELED)          FTNMSG    481
                                                  LIST   L           MESSAGE NR. 88                             ERMSG   .1
                                                                                                                 FTNMSG    482
          1626  11141405070114552331              ERMSG  IMP5,FE,(ILLEGAL SYNTAX IN IMPLICIT STATEMENT)          FTNMSG    483
                                                  LIST   L           MESSAGE NR. 89                             ERMSG   .1
                                                                                                                 FTNMSG    484
                                        *         DP CLOSE AND EQUIV                                             FTNMSG    485
                                                                                                                 FTNMSG    486
           206  00000000000000400132              UNUSED                                                         FCC0390     4
                                                  LIST   L           90 IS UNUSED                               UNUSED  .1
                                                                                                                 FTNMSG    489
          1632  02010455232502230322              ERMSG  EQVC,FE,(BAD SUBSCRIPT IN EQUIV STMT)                   FTNMSG    490
                                                  LIST   L           MESSAGE NR. 91                             ERMSG   .1
                                                                                                                 FTNMSG    491
          1635  17161431551716055523              ERMSG  E92,FE,(ONLY ONE SYMBOLIC NAME IN EQUIVALENCE GROUP)    FTNMSG    492
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    13
         TABLE OF ERROR MESSAGES                                                ERTAB 
  
                                                  LIST   L           MESSAGE NR. 92                             ERMSG   .1
                                                                                                                 FTNMSG    493
          1642  23311624013055052222              ERMSG  E93,FE,(SYNTAX ERROR IN EQUIVALENCE STATEMENT)          FTNMSG    494
                                                  LIST   L           MESSAGE NR. 93                             ERMSG   .1
                                                                                                                 FTNMSG    495
          1646  06172215011455200122              ERMSG  IFP,FE,(FORMAL PARAMETERS MAY NOT APPEAR IN COMMON OR E FTNMSG    496
                                        ,QUIV STMTS)                                                             FTNMSG    497
                                                  LIST   L           MESSAGE NR. 94                             ERMSG   .1
                                                                                                                 FTNMSG    498
          1654  11162617142605045511              ERMSG  E95,I,(INVOLVED IN REDUNDANT EQUIVALENCING)             FCC1289X   13
                                                  LIST   L           MESSAGE NR. 95                             ERMSG   .1
                                                                                                                 FTNMSG    500
          1660  16251502052255170655              ERMSG  E96,FE,(NUMBER OF SUBSCRIPTS IS INCOMPATIBLE WITH THE N FTNMSG    501
                                        ,UMBER OF DIMENSIONS DURING EQUIVALENCING.)                              FTNMSG    502
                                                  LIST   L           MESSAGE NR. 96                             ERMSG   .1
                                                                                                                 FTNMSG    503
          1671  11141405070114550530              ERMSG  EQVICE,FE,(ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN)    FTNMSG    504
                                                  LIST   L           MESSAGE NR. 97                             ERMSG   .1
                                                                                                                 FTNMSG    505
          1676  11162617142605045511              ERMSG  EQVCE,FE,(INVOLVED IN CONTRADICTORY EQUIVALENCING)      FTNMSG    506
                                                  LIST   L           MESSAGE NR. 98                             ERMSG   .1
                                                                                                                 FTNMSG    507
          1703  01222201315517225503              ERMSG  CUNE,FE,(ARRAY OR COMMON VARIABLE MAY NOT BE DECLARED E FTNMSG    508
                                        ,XTERNAL)                                                                FTNMSG    509
                                                  LIST   L           MESSAGE NR. 99                             ERMSG   .1
                                                                                                                 FTNMSG    510
          1711  24101123550617221555              ERMSG  ASA1,ASA,(THIS FORM OF AN I/O STATEMENT DOES NOT CONFOR FTNMSG    511
                                        ,M TO ANSI SPECIFICATIONS)                                               FTNMSG    512
                                                  LIST   L           MESSAGE NR. 100                            ERMSG   .1
                                                                                                                 FTNMSG    513
                                        *         GOTO                                                           FTNMSG    514
                                                                                                                 FTNMSG    515
          1721  07175524175523240124              ERMSG  GOTO1,FE,(GO TO STATEMENT - SYNTAX ERROR)               FTNMSG    516
                                                  LIST   L           MESSAGE NR. 101                            ERMSG   .1
                                                                                                                 FTNMSG    517
          1725  15112323111607551722              ERMSG  GOTO2,FE,(MISSING OR SYNTAX ERROR IN LIST OF TRANSFER L FTNMSG    518
                                        ,ABELS)                                                                  FTNMSG    519
                                                  LIST   L           MESSAGE NR. 102                            ERMSG   .1
                                                                                                                 FTNMSG    520
          1733  07175524175523240124              ERMSG  GOTO3,ASA,(GO TO STATEMENT CONTAINS NON-ANSI USAGES)    FTNMSG    521
                                                  LIST   L           MESSAGE NR. 103                            ERMSG   .1
                                                                                                                 FTNMSG    522
          1740  04050605032411260555              ERMSG  SCNR12,FE,(DEFECTIVE HOLLERITH CONSTANT.  CHECK FOR CHA FTNMSG    523
                                        ,RACTER COUNT ERROR, MISSING " DELIMITER OR LOST CONTIN CARD.)           FTNMSG    524
                                                  LIST   L           MESSAGE NR. 104                            ERMSG   .1
          1753  01550417551417172055              ERMSG  DO24,FE,(A DO LOOP MAY NOT TERMINATE ON A FORMAT STATEM FTNMSG    525
                                        ,ENT)                                                                    FTNMSG    526
                                                  LIST   L           MESSAGE NR. 105                            ERMSG   .1
          1761  23111607140555271722              ERMSG  E.PL,I,(SINGLE WORD CONSTANT MATCHED WITH DOUBLE OR COM FTNMSG    527
                                        ,PLEX VARIABLE. PRECISION LOST.)                                         FTNMSG    528
                                                  LIST   L           MESSAGE NR. 106                            ERMSG   .1
                                                                                                                 FTNMSG    529
          1771  16251502052255170655              ERMSG  CHAR,FE,(NUMBER OF CHARACTERS IN AN ENCODE/DECODE STATE FTNMSG    530
                                        ,MENT MUST BE AN INTEGER CONSTANT OR VARIABLE)                           FTNMSG    531
                                                  LIST   L           MESSAGE NR. 107                            ERMSG   .1
                                                                                                                 FTNMSG    532
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    14
         TABLE OF ERROR MESSAGES                                                MSG 
  
          2003  15172205552410011655              ERMSG  PRSUB,FE,(MORE THAN 49 FILES ON PROGRAM CARD OR 63 PARA FCC2246     7
                                        ,METERS ON A SUBROUTINE OR FUNCTION CARD)                                FTNMSG    534
                                                  LIST   L           MESSAGE NR. 108                            ERMSG   .1
                                                                                                                 FTNMSG    535
          2014  04050314012201241126              ERMSG  DECPH2,FE,(DECLARATIVE STATEMENT OUT OF SEQUENCE)       FTNMSG    536
                                                  LIST   L           MESSAGE NR. 109                            ERMSG   .1
                                                                                                                 FTNMSG    537
          2020  05222217225524010214              ERMSG  ETABOV,FC,(ERROR TABLE OVERFLOW)                        FTNMSG    538
                                                  LIST   L           MESSAGE NR. 110                            ERMSG   .1
                                                                                                                 FTNMSG    539
          2023  24101123550123231107              ERMSG  ASSING,FE,(THIS ASSIGN STATEMENT HAS IMPROPER FORMAT, O FTNMSG    540
                                        ,NLY ALLOWABLE IS [ASSIGN  LABEL  TO  VARIABLE ])                        FTNMSG    541
                                                  LIST   L           MESSAGE NR. 111                            ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    15
         TABLE OF ERROR MESSAGES                                                MSG 
  
                                        *         DATA                                                           FTNMSG    543
                                                                                                                 FTNMSG    544
          2035  04012401552601221101              ERMSG  E.V>C,I,(DATA VARIABLE LIST EXCEEDS ITEM LIST, EXCESS V FTNMSG    545
                                        ,ARIABLES NOT INITIALIZED)                                               FTNMSG    546
                                                  LIST   L           MESSAGE NR. 112                            ERMSG   .1
                                                                                                                 FTNMSG    547
          2045  04012401551124051555              ERMSG  E.C>V,I,(DATA ITEM LIST EXCEEDS VARIABLE LIST, EXCESS C FTNMSG    548
                                        ,ONSTANTS IGNORED)                                                       FTNMSG    549
                                                  LIST   L           MESSAGE NR. 113                            ERMSG   .1
                                                                                                                 FTNMSG    550
          2054  16171646011623115506              ERMSG  E.DNA,ASA,(NON-ANSI FORM OF DATA STATEMENT)             FTNMSG    551
                                                  LIST   L           MESSAGE NR. 114                            ERMSG   .1
                                                                                                                 FTNMSG    552
          2060  23311624013055052222              ERMSG  E.DSE,FE,(SYNTAX ERROR IN DATA STATEMENT)               FTNMSG    553
                                                  LIST   L           MESSAGE NR. 115                            ERMSG   .1
                                                                                                                 FTNMSG    554
          2064  23311624013055052222              ERMSG  E.DIL,FE,(SYNTAX ERROR IN DATA ITEM LIST)               FTNMSG    555
                                                  LIST   L           MESSAGE NR. 116                            ERMSG   .1
                                                                                                                 FTNMSG    556
          2070  45551722554655231107              ERMSG  E.DIL1,FE,(+ OR - SIGN MUST BE FOLLOWED BY A CONSTANT)  FTNMSG    557
                                                  LIST   L           MESSAGE NR. 117                            ERMSG   .1
                                                                                                                 FTNMSG    558
          2075  04012401551124051555              ERMSG  E.DIL2,FE,(DATA ITEM LISTS MAY ONLY BE NESTED 1 DEEP)   FTNMSG    559
                                                  LIST   L           MESSAGE NR. 118                            ERMSG   .1
                                                                                                                 FTNMSG    560
          2102  03171623240116245504              ERMSG  E.DIL3,FE,(CONSTANT DATA ITEM MUST BE FOLLOWED BY A , / FTNMSG    561
                                        , OR RIGHT PAREN)                                                        FTNMSG    562
                                                  LIST   L           MESSAGE NR. 119                            ERMSG   .1
                                                                                                                 FTNMSG    563
          2111  04175514111511245517              ERMSG  E.DCE1,FE,(DO LIMIT OR REP FACTOR MUST BE AN INTEGER OR FTNMSG    564
                                        , OCTAL CONSTANT BETWEEN 1 AND 131K)                                     FTNMSG    565
                                                  LIST   L           MESSAGE NR. 120                            ERMSG   .1
                                                                                                                 FTNMSG    566
          2122  06171414172705045502              ERMSG  E.DVL1,FE,(FOLLOWED BY AN ILLEGAL ITEM.)                FTNMSG    567
                                                  LIST   L           MESSAGE NR. 121                            ERMSG   .1
                                                                                                                 FTNMSG    568
          2125  23311624013055052222              ERMSG  E.DVL2,FE,(SYNTAX ERROR IN IMPLIED DO NEST)             FTNMSG    569
                                                  LIST   L           MESSAGE NR. 122                            ERMSG   .1
                                                                                                                 FTNMSG    570
          2131  04012401552601221101              ERMSG  E.DVL3,FE,(DATA VARIABLE LIST SYNTAX ERROR)             FTNMSG    571
                                                  LIST   L           MESSAGE NR. 123                            ERMSG   .1
                                                                                                                 FTNMSG    572
          2135  04252014110301240555              ERMSG  E.DVL4,FE,(DUPLICATE LOOP INDEX OR DOESNT MATCH ANY SUB FTNMSG    573
                                        ,SCRIPT VARIABLE)                                                        FTNMSG    574
                                                  LIST   L           MESSAGE NR. 124                            ERMSG   .1
                                                                                                                 FTNMSG    575
          2144  26012211010214055523              ERMSG  E.DVL5,FE,(VARIABLE SUBSCRIPTS MAY NOT APPEAR WITHOUT D FTNMSG    576
                                        ,O LOOPS)                                                                FTNMSG    577
                                                  LIST   L           MESSAGE NR. 125                            ERMSG   .1
                                                                                                                 FTNMSG    578
          2152  26011425055517065501              ERMSG  E.DVL6,FE,(VALUE OF ARRAY SUBSCRIPT IS .LT. 1 OR .GT. D FTNMSG    579
                                        ,IMENSIONALITY IN IMPLIED DO NEST)                                       FTNMSG    580
                                                  LIST   L           MESSAGE NR. 126                            ERMSG   .1
                                                                                                                 FTNMSG    581
          2162  16171655041115051623              ERMSG  E.DVL7,FE,(NON DIMENSIONED NAME APPEARS FOLLOWED BY LEF FTNMSG    582
                                        ,T PAREN)                                                                FTNMSG    583
                                                  LIST   L           MESSAGE NR. 127                            ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    16
         TABLE OF ERROR MESSAGES                                                MSG 
  
                                                                                                                 FTNMSG    584
          2170  23311624013055052222              ERMSG  E.DVL8,FE,(SYNTAX ERROR IN SUBSCRIPT LIST,MUST BE OF FO FTNMSG    585
                                        ,RM  CON1*IVAR+CON2)                                                     FTNMSG    586
                                                  LIST   L           MESSAGE NR. 128                            ERMSG   .1
                                                                                                                 FTNMSG    587
          2177  03171623240116245523              ERMSG  E.DVL9,FE,(CONSTANT SUBSCRIPT VALUE EXCEEDS ARRAY DIMEN FTNMSG    588
                                        ,SIONS)                                                                  FTNMSG    589
                                                  LIST   L           MESSAGE NR. 129                            ERMSG   .1
                                                                                                                 FTNMSG    590
          2205  32052217552324012405              ERMSG  DO130,FE,(ZERO STATEMENT LABELS ARE ILLEGAL)            FTNMSG    591
                                                  LIST   L           MESSAGE NR. 130                            ERMSG   .1
                                                                                                                 FTNMSG    592
          2211  03171623240116245514              ERMSG  E.TRC,I,(CONSTANT LENGTH .GT. VARIABLE LENGTH, CONSTANT FTNMSG    593
                                        , TRUNCATED)                                                             FTNMSG    594
                                                  LIST   L           MESSAGE NR. 131                            ERMSG   .1
                                                                                                                 FTNMSG    595
          2217  15013155161724550205              ERMSG  E.DVN1,FE,(MAY NOT BE FUNCTION, EXTERNAL, F.P. OR IN BL FTNMSG    596
                                        ,ANK COMMON)                                                             FTNMSG    597
                                                  LIST   L           MESSAGE NR. 132                            ERMSG   .1
                                                                                                                 FTNMSG    598
          2225  24101123551601150555              ERMSG  E.DVN2,FE,(THIS NAME MAY NOT BE USED IN A DATA STMT)    FTNMSG    599
                                                  LIST   L           MESSAGE NR. 133                            ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    17
         MESSAGES FROM ARITH, CALL, IF AND ASFPRO                               MSG 
  
                                        *         ARITH                                                          FTNMSG    601
                                                                                                                 FTNMSG    602
          2232  15251424112014055522              ERMSG  AR00,ASA,(MULTIPLE REPLACEMENT STATEMENT IS NON-ANSI.)  FTNMSG    603
                                                  LIST   L           MESSAGE NR. 134                            ERMSG   .1
                                                                                                                 FTNMSG    604
          2237  11141405070114552523              ERMSG  AR01,FE,(ILLEGAL USE OF THE EQUAL SIGN.)                FTNMSG    605
                                                  LIST   L           MESSAGE NR. 135                            ERMSG   .1
                                                                                                                 FTNMSG    606
          2243  23111520140555260122              ERMSG  AR02,FE,(SIMPLE VARIABLE OR CONSTANT FOLLOWED BY LEFT P FTNMSG    607
                                        ,ARENTHESIS.)                                                            FTNMSG    608
                                                  LIST   L           MESSAGE NR. 136                            ERMSG   .1
                                                                                                                 FTNMSG    609
          2251  16175515012403101116              ERMSG  AR03,FE,(NO MATCHING RIGHT PARENTHESIS.)                FTNMSG    610
                                                  LIST   L           MESSAGE NR. 137                            ERMSG   .1
                                                                                                                 FTNMSG    611
          2255  16175515012403101116              ERMSG  AR04,FE,(NO MATCHING LEFT PARENTHESIS.)                 FTNMSG    612
                                                  LIST   L           MESSAGE NR. 138                            ERMSG   .1
                                                                                                                 FTNMSG    613
          2261  24100555172005220124              ERMSG  AR05,FE,(THE OPERATOR INDICATED (-,+,*,/, OR **) MUST B FTNMSG    614
                                        ,E FOLLOWED BY A CONSTANT, NAME, OR LEFT PARENTHESIS.)                   FTNMSG    615
                                                  LIST   L           MESSAGE NR. 139                            ERMSG   .1
                                                                                                                 FTNMSG    616
          2273  01551601150555150131              ERMSG  AR06,FE,(A NAME MAY NOT BE FOLLOWED BY A CONSTANT.)     FTNMSG    617
                                                  LIST   L           MESSAGE NR. 140                            ERMSG   .1
                                                                                                                 FTNMSG    618
          2300  15172205552410011655              ERMSG  AR07,FE,(MORE THAN 63 ARGUMENTS IN ARGUMENT LIST.)      FTNMSG    619
                                                  LIST   L           MESSAGE NR. 141                            ERMSG   .1
                                                                                                                 FTNMSG    620
          2305  01550317162324011624              ERMSG  AR08,FE,(A CONSTANT MAY NOT BE FOLLOWED BY AN EQUAL SIG FTNMSG    621
                                        ,N, NAME, OR ANOTHER CONSTANT.)                                          FTNMSG    622
                                                  LIST   L           MESSAGE NR. 142                            ERMSG   .1
                                                                                                                 FTNMSG    623
          2315  24010214055517260522              ERMSG  AR09,FE,(TABLE OVERFLOW (MXOSE) - SIMPLIFY EXPRESSION O FCC0587     4
                                        ,R SEE ANALYST.)                                                         FCC0587     5
                                                  LIST   L           MESSAGE NR. 143                            ERMSG   .1
                                                                                                                 FTNMSG    626
          2324  14170711030114551720              ERMSG  AR10,FE,(LOGICAL OPERAND USED WITH NON-LOGICAL OPERATOR FTNMSG    627
                                        ,S.)                                                                     FTNMSG    628
                                                  LIST   L           MESSAGE NR. 144                            ERMSG   .1
                                                                                                                 FTNMSG    629
          2331  16175515012403101116              ERMSG  AR11,FE,(NO MATCHING RIGHT PARENTHESIS IN SUBSCRIPT.)   FTNMSG    630
                                                  LIST   L           MESSAGE NR. 145                            ERMSG   .1
                                                                                                                 FTNMSG    631
          2336  02012311035505302405              ERMSG  AR12,FE,(BASIC EXTERNAL OR INTRINSIC FUNCTION CALLED WI FTNMSG    632
                                        ,TH WRONG TYPE ARGUMENT)                                                 FTNMSG    633
                                                  LIST   L           MESSAGE NR. 146                            ERMSG   .1
                                                                                                                 FTNMSG    634
          2346  01222201315516011505              ERMSG  AR13,I,(ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEME FTNMSG    635
                                        ,NT WILL BE USED)                                                        FTNMSG    636
                                                  LIST   L           MESSAGE NR. 147                            ERMSG   .1
                                                                                                                 FTNMSG    637
          2355  11162422111623110355              ERMSG  AR14,FE,(INTRINSIC FUNCTION REFERENCE MAY NOT USE A FUN FTNMSG    638
                                        ,CTION NAME AS AN ARGUMENT)                                              FTNMSG    639
                                                  LIST   L           MESSAGE NR. 148                            ERMSG   .1
                                                                                                                 FTNMSG    640
          2365  01220725150516245516              ERMSG  AR15,FE,(ARGUMENT NOT FOLLOWED BY COMMA OR RIGHT PARENT FTNMSG    641
                                        ,HESIS.)                                                                 FTNMSG    642
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    18
         MESSAGES FROM ARITH, CALL, IF AND ASFPRO                               ERTAB 
  
                                                  LIST   L           MESSAGE NR. 149                            ERMSG   .1
                                                                                                                 FTNMSG    643
          2373  01550625160324111716              ERMSG  AR16,FE,(A FUNCTION REFERENCE REQUIRES AN ARGUMENT LIST FTNMSG    644
                                        ,.)                                                                      FTNMSG    645
                                                  LIST   L           MESSAGE NR. 150                            ERMSG   .1
                                                                                                                 FTNMSG    646
          2400  11162405070522550317              ERMSG  AR60,FE,(INTEGER CONSTANT FOR MULTIPLICATION OR DIVISIO FCC0539   150
                                        ,N EXCEEDS 2**48-1.)                                                     FCC0539   151
                                                  LIST   L           MESSAGE NR. 151                            ERMSG   .1
                                                                                                                 FTNMSG    648
          2407  24010214055517260522              ERMSG  AR18,FE,(TABLE OVERFLOW (MXFRSTB) - SIMPLIFY EXPRESSION FCC0587     6
                                        , OR SEE ANALYST.)                                                       FCC0587     7
                                                  LIST   L           MESSAGE NR. 152                            ERMSG   .1
                                                                                                                 FTNMSG    651
          2416  24101123551720052201              ERMSG  AR19,FE,(THIS OPERATOR (.NOT. OR A RELATIONAL) MUST BE  FTNMSG    652
                                        ,FOLLOWED BY A CONSTANT, NAME, LEFT PAREN, + OR -.)                      FTNMSG    653
                                                  LIST   L           MESSAGE NR. 153                            ERMSG   .1
                                                                                                                 FTNMSG    654
          2430  22050405061116112411              ERMSG  EQPO4,ANSI,(REDEFINITION OF PARAMETER USED AS DIMENSION FCC1901    33
                                        , INDICATOR IS NON-ANSI.)                                                FCC1901    34
                                                  LIST   L           MESSAGE NR. 154                            ERMSG   .1
                                                                                                                 FTNMSG    656
          2437  02012311035517225511              ERMSG  AR21,FE,(BASIC OR INTRINSIC FUNCTION WITH AN INCORRECT  FTNMSG    657
                                        ,ARGUMENT COUNT)                                                         FTNMSG    658
                                                  LIST   L           MESSAGE NR. 155                            ERMSG   .1
                                                                                                                 FTNMSG    659
          2446  24010214055517260522              ERMSG  AR22,FE,(TABLE OVERFLOW (ARLSZ) - SIMPLIFY EXPRESSION O FCC0587     8
                                        ,R SEE ANALYST.)                                                         FCC0587     9
                                                  LIST   L           MESSAGE NR. 156                            ERMSG   .1
                                                                                                                 FTNMSG    662
          2455  01222201315516011505              ERMSG  AR23,ASA,(ARRAY NAME REFERENCED WITH FEWER SUBSCRIPTS T FTNMSG    663
                                        ,HAN DIMENSIONALITY OF ARRAY.)                                           FTNMSG    664
                                                  LIST   L           MESSAGE NR. 157                            ERMSG   .1
                                                                                                                 FTNMSG    665
          2465  11141405070114551411              ERMSG  AR24,FE,(ILLEGAL LIST ITEM ENCOUNTERED IN AN I/O LIST S FTNMSG    666
                                        ,EQUENCE.)                                                               FTNMSG    667
                                                  LIST   L           MESSAGE NR. 158                            ERMSG   .1
                                                                                                                 FTNMSG    668
          2473  22110710245520012205              ERMSG  AR25,FE,(RIGHT PARENTHESIS FOLLOWED BY A NAME, CONSTANT FTNMSG    669
                                        ,, OR LEFT PARENTHESIS.)                                                 FTNMSG    670
                                                  LIST   L           MESSAGE NR. 159                            ERMSG   .1
                                                                                                                 FTNMSG    671
          2502  15172205552410011655              ERMSG  AR26,FE,(MORE THAN ONE RELATIONAL OPERATOR IN A RELATIO FTNMSG    672
                                        ,NAL EXPRESSION.)                                                        FTNMSG    673
                                                  LIST   L           MESSAGE NR. 160                            ERMSG   .1
                                                                                                                 FTNMSG    674
          2511  11160317222205032455              ERMSG  AR27,FE,(INCORRECT SYNTAX FOLLOWING INDICATED ELEMENT.) FCC0787   129
                                                  LIST   L           MESSAGE NR. 161                            ERMSG   .1
                                                                                                                 FTNMSG    677
          2516  01165501222201315522              ERMSG  AR28,FE,(AN ARRAY REFERENCE HAS TOO MANY SUBSCRIPTS.)   FTNMSG    678
                                                  LIST   L           MESSAGE NR. 162                            ERMSG   .1
                                                                                                                 FTNMSG    679
          2523  16175515012403101116              ERMSG  AR29,FE,(NO MATCHING RIGHT PARENTHESIS IN ARGUMENT LIST FTNMSG    680
                                        ,.)                                                                      FTNMSG    681
                                                  LIST   L           MESSAGE NR. 163                            ERMSG   .1
                                                                                                                 FTNMSG    682
          2530  11141405070114550617              ERMSG  AR30,FE,(ILLEGAL FORM INVOLVING THE USE OF A COMMA.)    FTNMSG    683
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    19
         MESSAGES FROM ARITH, CALL, IF AND ASFPRO                               ERTAB 
  
                                                  LIST   L           MESSAGE NR. 164                            ERMSG   .1
                                                                                                                 FTNMSG    684
          2535  14170711030114550116              ERMSG  AR31,FE,(LOGICAL AND NON-LOGICAL OPERANDS MAY NOT BE MI FTNMSG    685
                                        ,XED)                                                                    FTNMSG    686
                                                  LIST   L           MESSAGE NR. 165                            ERMSG   .1
                                                                                                                 FTNMSG    687
          2543  04112611231117165502              ERMSG  AR32,FE,(DIVISION BY CONSTANT ZERO.)                    FTNMSG    688
                                                  LIST   L           MESSAGE NR. 166                            ERMSG   .1
                                                                                                                 FTNMSG    689
          2546  01550317152014053055              ERMSG  AR33,FE,(A COMPLEX BASE MAY ONLY BE RAISED TO AN INTEGE FTNMSG    690
                                        ,R POWER)                                                                FTNMSG    691
                                                  LIST   L           MESSAGE NR. 167                            ERMSG   .1
                                                                                                                 FTNMSG    692
          2554  25230555170655241011              ERMSG  AR34,FE,(USE OF THIS PROGRAM OR SUBROUTINE NAME IN AN E FTNMSG    693
                                        ,XPRESSION.)                                                             FTNMSG    694
                                                  LIST   L           MESSAGE NR. 168                            ERMSG   .1
                                                                                                                 FTNMSG    695
          2562  23250222172524111605              ERMSG  AR35,FE,(SUBROUTINE NAME REFERRED TO BY CALL IS USED EL FTNMSG    696
                                        ,SEWHERE AS A NON-SUBROUTINE NAME.)                                      FTNMSG    697
                                                  LIST   L           MESSAGE NR. 169                            ERMSG   .1
                                                                                                                 FTNMSG    698
          2573  01220725150516245503              ERMSG  AR36,I,(ARGUMENT COUNT INCONSISTENT WITH PRIOR USAGE.)  FTNMSG    699
                                                  LIST   L           MESSAGE NR. 170                            ERMSG   .1
                                                                                                                 FTNMSG    700
          2600  11141405070114552331              ERMSG  CA00,FE,(ILLEGAL SYNTAX IN CALL STATEMENT.)             FTNMSG    701
                                                  LIST   L           MESSAGE NR. 171                            ERMSG   .1
                                                                                                                 FTNMSG    702
          2604  11141405070114552205              ERMSG  CA01,FE,(ILLEGAL RETURNS PARAMETER.)                    FTNMSG    703
                                                  LIST   L           MESSAGE NR. 172                            ERMSG   .1
                                                                                                                 FTNMSG    704
          2607  11141405070114551401              ERMSG  IF00,FE,(ILLEGAL LABELS IN IF STATEMENT.)               FTNMSG    705
                                                  LIST   L           MESSAGE NR. 173                            ERMSG   .1
                                                                                                                 FTNMSG    706
          2613  14170711030114550530              ERMSG  IF01,FE,(LOGICAL EXPRESSION IN 3-BRANCH IF STATEMENT.)  FTNMSG    707
                                                  LIST   L           MESSAGE NR. 174                            ERMSG   .1
                                                                                                                 FTNMSG    708
          2620  24100555232401240515              ERMSG  IF02,FE,(THE STATEMENT IN A LOGICAL IF MAY BE ANY EXECU FTNMSG    709
                                        ,TABLE STATEMENT OTHER THAN A DO OR ANOTHER LOGICAL IF)                  FTNMSG    710
                                                  LIST   L           MESSAGE NR. 175                            ERMSG   .1
                                                                                                                 FTNMSG    711
          2633  24100555053020220523              ERMSG  IF03,FE,(THE EXPRESSION IN A LOGICAL IF IS NOT TYPE LOG FTNMSG    712
                                        ,ICAL)                                                                   FTNMSG    713
                                                  LIST   L           MESSAGE NR. 176                            ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    20
         NON USAS USEAGES                                                       MSG 
  
          2641  22050317220455140516              ERMSG  DPROG2,FE,(RECORD LENGTH IS GREATER THAN 131,071.)      FTNMSG    715
                                                  LIST   L           MESSAGE NR. 177                            ERMSG   .1
                                                                                                                 FTNMSG    716
          2645  24100522055511235516              ERMSG  GOTO88,I,(THERE IS NO PATH TO THIS STATEMENT)           FTNMSG    717
                                                  LIST   L           MESSAGE NR. 178                            ERMSG   .1
                                                                                                                 FTNMSG    718
          2651  26012211010214055511              ERMSG  ASSIGN2,FE,(VARIABLE IN ASSIGN OR ASSIGNED GO TO IS ILL FTNMSG    719
                                        ,EGAL)                                                                   FTNMSG    720
                                                  LIST   L           MESSAGE NR. 179                            ERMSG   .1
                                                                                                                 FTNMSG    721
          2656  16011505141123245523              ERMSG  NAML,ASA,(NAMELIST STATEMENT IS NON-ANSI)               FTNMSG    722
                                                  LIST   L           MESSAGE NR. 180                            ERMSG   .1
                                                                                                                 FTNMSG    723
          2662  05162422315523240124              ERMSG  ENTRYDV,ASA,(ENTRY STATEMENT IS NON-ANSI)               FTNMSG    724
                                                  LIST   L           MESSAGE NR. 181                            ERMSG   .1
                                                                                                                 FTNMSG    725
          2665  22052425221623552001              ERMSG  CA02,ASA,(RETURNS PARAMETERS IN CALL STATEMENT.)        FTNMSG    726
                                                  LIST   L           MESSAGE NR. 182                            ERMSG   .1
                                                                                                                 FTNMSG    727
          2671  10171414052211241055              ERMSG  AR38,ASA,(HOLLERITH CONSTANT APPEARS OTHER THAN IN AN A FTNMSG    728
                                        ,RGUMENT LIST OF A CALL STATEMENT OR IN A DATA STATEMENT.)               FTNMSG    729
                                                  LIST   L           MESSAGE NR. 183                            ERMSG   .1
                                                                                                                 FTNMSG    730
          2704  01551017141405221124              ERMSG  AR39,I,(A HOLLERITH CONSTANT IS AN OPERAND OF AN ARITHM FTNMSG    731
                                        ,ETIC OPERATOR.)                                                         FTNMSG    732
                                                  LIST   L           MESSAGE NR. 184                            ERMSG   .1
                                                                                                                 FTNMSG    733
          2713  23250223032211202455              ERMSG  AR40,ASA,(SUBSCRIPT DOES NOT CONFORM TO ANSI STANDARD.) FCC0218     5
                                                  LIST   L           MESSAGE NR. 185                            ERMSG   .1
                                                                                                                 FTNMSG    735
          2720  15012313111607550530              ERMSG  AR41,ASA,(MASKING EXPRESSION IS NON-ANSI.)              FTNMSG    736
                                                  LIST   L           MESSAGE NR. 186                            ERMSG   .1
                                                                                                                 FTNMSG    737
          2724  24100555243120055503              ERMSG  AR42,ASA,(THE TYPE COMBINATION OF THE OPERANDS OF AN EX FTNMSG    738
                                        ,PONENT OPERATOR IS NON-ANSI.)                                           FTNMSG    739
                                                  LIST   L           MESSAGE NR. 187                            ERMSG   .1
                                                                                                                 FTNMSG    740
          2734  01552205140124111716              ERMSG  AR43,ASA,(A RELATIONAL HAS A COMPLEX OPERAND.)          FTNMSG    741
                                                  LIST   L           MESSAGE NR. 188                            ERMSG   .1
                                                                                                                 FTNMSG    742
          2740  24100555243120055503              ERMSG  AR44,ASA,(THE TYPE COMBINATION OF THE OPERANDS OF A REL FTNMSG    743
                                        ,ATIONAL OR ARITHMETIC OPERATOR (OTHER THAN **) IS NON-ANSI.)            FTNMSG    744
                                                  LIST   L           MESSAGE NR. 189                            ERMSG   .1
                                                                                                                 FTNMSG    745
          2753  24100555243120055503              ERMSG  AR45,ASA,(THE TYPE COMBINATION OF THE OPERANDS OF AN EQ FTNMSG    746
                                        ,UAL-SIGN OPERATOR IS NON-ANSI.)                                         FTNMSG    747
                                                  LIST   L           MESSAGE NR. 190                            ERMSG   .1
                                                                                                                 FTNMSG    748
          2763  24271746022201160310              ERMSG  AR46,ASA,(TWO-BRANCH IF STATEMENT IS NON-ANSI.)         FTNMSG    749
                                                  LIST   L           MESSAGE NR. 191                            ERMSG   .1
                                                                                                                 FTNMSG    750
          2767  24100555053020220523              ERMSG  AR47,ASA,(THE EXPRESSION IN AN IF STATEMENT IS TYPE COM FTNMSG    751
                                        ,PLEX.)                                                                  FTNMSG    752
                                                  LIST   L           MESSAGE NR. 192                            ERMSG   .1
                                                                                                                 FTNMSG    753
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    21
                                                                                MSG 
  
          2775  24101123552324012405              ERMSG  IF05,I,(THIS STATEMENT BRANCHES TO ITSELF.)             FTNMSG    755
                                                  LIST   L           MESSAGE NR. 193                            ERMSG   .1
                                                                                                                 FTNMSG    756
          3001  24101123551106550405              ERMSG  IFERR4,I,(THIS IF DEGENERATES INTO A SIMPLE TRANSFER TO FTNMSG    757
                                        , THE LABEL INDICATED.)                                                  FTNMSG    758
                                                  LIST   L           MESSAGE NR. 194                            ERMSG   .1
                                                                                                                 FTNMSG    759
          3010  24171755150116315523              ERMSG  AR48,FE,(TOO MANY SUBSCRIPTS IN ARRAY REFERENCE.)       FTNMSG    760
                                                  LIST   L           MESSAGE NR. 195                            ERMSG   .1
                                                                                                                 FTNMSG    761
          3015  14170711030114551720              ERMSG  S,ASA,(LOGICAL OPERATOR OR CONSTANT USAGE IS NON-ANSI)  FTNMSG    762
                                                  LIST   L           MESSAGE NR. 196                            ERMSG   .1
                                                                                                                 FTNMSG    763
          3022  17032401145503171623              ERMSG  SS,ASA,(OCTAL CONSTANT OR R,L FORMS OF HOLLERITH CONSTA FTNMSG    764
                                        ,NT IS NON-ANSI)                                                         FTNMSG    765
                                                  LIST   L           MESSAGE NR. 197                            ERMSG   .1
                                                                                                                 FTNMSG    766
          3031  14050624552311040555              ERMSG  AR37,FE,(LEFT SIDE OF REPLACEMENT STATEMENT IS ILLEGAL. FTNMSG    767
                                        ,)                                                                       FTNMSG    768
                                                  LIST   L           MESSAGE NR. 198                            ERMSG   .1
                                                                                                                 FTNMSG    769
          3036  01552205060522051603              ERMSG  VACPAR,FE,(A REFERENCE TO THIS ASF HAS A PARAMETER MISS FTNMSG    770
                                        ,ING)                                                                    FTNMSG    771
                                                  LIST   L           MESSAGE NR. 199                            ERMSG   .1
                                                                                                                 FTNMSG    772
          3043  11501755022506060522              ERMSG  BSI,I,(I/O BUFFER LENGTH SPECIFICATION IS NOT MEANINGFU FTNMSG    773
                                        ,L--VALUE IGNORED.)                                                      FTNMSG    774
                                                  LIST   L           MESSAGE NR. 200                            ERMSG   .1
                                                                                                                 FTNMSG    775
          3052  01552022052611172523              ERMSG  DPCL2,FE,(A PREVIOUSLY MENTIONED ADJUSTABLE SUBSCRIPT I FTNMSG    776
                                        ,S NOT TYPE INTEGER.)                                                    FTNMSG    777
                                                  LIST   L           MESSAGE NR. 201                            ERMSG   .1
                                                                                                                 FTNMSG    778
          3061  01141455140526051455              ERMSG  DPCL3,FE,(ALL LEVEL 2 OR 3 ITEMS MUST BE FORMAL PARAMET FCC0762     4
                                        ,ERS OR IN COMMON.)                                                      FCC0762     5
                                                  LIST   L           MESSAGE NR. 202                            ERMSG   .1
                                                                                                                 FTNMSG    781
                                                                                                                 FTNMSG    782
          3070  24100555243120055517              ERMSG  AR49,FE,(THE TYPE OF THIS IDENTIFIER IS NOT LEGAL FOR A FTNMSG    783
                                        ,NY EXPRESSION)                                                          FTNMSG    784
                                                  LIST   L           MESSAGE NR. 203                            ERMSG   .1
                                                                                                                 FTNMSG    785
          3077  01550317162324011624              ERMSG  AR50,FE,(A CONSTANT OPERAND OF A REAL OPERATION IS OUT  FTNMSG    786
                                        ,OF RANGE OR INDEFINITE.)                                                FTNMSG    787
                                                  LIST   L           MESSAGE NR. 204                            ERMSG   .1
          3107  25230555170655015516              ERMSG  NANC,ASA,(USE OF A NUMBER AS LABELED COMMON BLOCK NAME  FTNMSG    788
                                        ,IS NON-ANSI.)                                                           FTNMSG    789
                                                  LIST   L           MESSAGE NR. 205                            ERMSG   .1
                                                                                                                 FTNMSG    790
          3115  47474755042505552417              ERMSG  NOMORE,I,(*** DUE TO THE MANY ERRORS NOTED, ONLY THOSE  FTNMSG    791
                                        ,WHICH ARE FATAL WILL BE LISTED HEREAFTER.)                              FTNMSG    792
                                                  LIST   L           MESSAGE NR. 206                            ERMSG   .1
                                                                                                                 FTNMSG    793
          3126  01550317151505162455              ERMSG  CMTCD,ANSI,(A COMMENT LINE WITHIN A CONTINUED STATEMENT FTNMSG    794
                                        , IS NON-ANSI.)                                                          FTNMSG    795
                                                  LIST   L           MESSAGE NR. 207                            ERMSG   .1
                                                                                                                 FTNMSG    796
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    22
                                                                                MSG 
  
          3134  16171646011623115502              ERMSG  NABC,ANSI,(NON-ANSI BLANK LINES OCCURRED IN THIS PROGRA FTNMSG    797
                                        ,M UNIT.)                                                                FTNMSG    798
                                                  LIST   L           MESSAGE NR. 208                            ERMSG   .1
                                                                                                                 FTNMSG    799
          3142  27012355140123245503              ERMSG  SCANC,FE,(WAS LAST CHARACTER SEEN AFTER TROUBLE.  REMAI FTNMSG    800
                                        ,NDER OF STATEMENT IGNORED.)                                             FTNMSG    801
                                                  LIST   L           MESSAGE NR. 209                            ERMSG   .1
                                                                                                                 FTNMSG    802
          3152  04171414012255231107              ERMSG  S210,ASA,(DOLLAR SIGN STATEMENT SEPARATOR IS NON-ANSI U FTNMSG    803
                                        ,SAGE)                                                                   FTNMSG    804
                                                  LIST   L           MESSAGE NR. 210                            ERMSG   .1
                                                                                                                 FTNMSG    805
          3160  01165505302022052323              ERMSG  LIOEXP,ASA,(AN EXPRESSION IN AN OUTPUT STATEMENT I/O LI FTNMSG    806
                                        ,ST IS NON ANSI USAGE)                                                   FTNMSG    807
                                                  LIST   L           MESSAGE NR. 211                            ERMSG   .1
                                                                                                                 FTNMSG    808
          3167  06112223245527172204              ERMSG  LIOBIO,FE,(FIRST WORD AND LAST WORD ADDRESSES OF DATA T FTNMSG    809
                                        ,RANSMISSION BLOCK MUST BE IN THE SAME LEVEL)                            FTNMSG    810
                                                  LIST   L           MESSAGE NR. 212                            ERMSG   .1
                                                                                                                 FTNMSG    811
          3200  24100555260114250555              ERMSG  PARITY,FE,(THE VALUE OF THE PARITY INDICATOR IN A BUFFE FTNMSG    812
                                        ,R I/O STATEMENT MUST BE 0 OR 1)                                         FTNMSG    813
                                                  LIST   L           MESSAGE NR. 213                            ERMSG   .1
                                                                                                                 FTNMSG    814
          3210  01222201315516011505              ERMSG  E214,ANSI,(ARRAY NAME OPERAND NOT SUBSCRIPTED.  FIRST E FTNMSG    815
                                        ,LEMENT WILL BE USED.)                                                   FTNMSG    816
                                                  LIST   L           MESSAGE NR. 214                            ERMSG   .1
                                                                                                                 FTNMSG    817
          3217  15012313550122072515              ERMSG  ARMASK,I,(MASK ARGUMENT MUST BE NONNEGATIVE AND LESS TH FTNMSG    818
                                        ,AN 61.)                                                                 FTNMSG    819
                                                  LIST   L           MESSAGE NR. 215                            ERMSG   .1
                                                                                                                 FTNMSG    820
          3225  23311624013055052222              ERMSG  ASFSE,FE,(SYNTAX ERROR IN ASF DEFINITION)               FTNMSG    821
                                                  LIST   L           MESSAGE NR. 216                            ERMSG   .1
                                                                                                                 FTNMSG    822
          3231  47202217072201155523              ERMSG  IHDR,I,(*PROGRAM START. (INPUT,OUTPUT)* ASSUMED WHEN HE FTNMSG    823
                                        ,ADER STATEMENT IS DEFECTIVE OR OMITTED.)                                FTNMSG    824
                                                  LIST   L           MESSAGE NR. 217                            ERMSG   .1
                                                                                                                 FTNMSG    825
          3242  03171623240116245524              ERMSG  SIGD,I,(CONSTANT TOO LONG.  HIGH ORDER DIGITS RETAINED, FTNMSG    826
                                        , BUT SOME PRECISION LOST.)                                              FTNMSG    827
                                                  LIST   L           MESSAGE NR. 218                            ERMSG   .1
                                                                                                                 FTNMSG    828
          3252  57161724575515013155              ERMSG  AR53,FE,(.NOT. MAY NOT BE PRECEDED BY NAME, CONSTANT, O FTNMSG    829
                                        ,R RIGHT PARENS.)                                                        FTNMSG    830
                                                  LIST   L           MESSAGE NR. 219                            ERMSG   .1
                                                                                                                 FTNMSG    831
          3261  24100555061105140455              ERMSG  P1,FE,(THE FIELD FOLLOWING STOP OR PAUSE MUST BE 5 OR L FTNMSG    832
                                        ,ESS OCTAL DIGITS OR A QUOTE-DELIMITED STRING)                           FTNMSG    833
                                                  LIST   L           MESSAGE NR. 220                            ERMSG   .1
                                                                                                                 FTNMSG    834
          3273  16171646011623115506              ERMSG  NATYP,ASA,(NON-ANSI FORM OF TYPE DECLARATION)           FTNMSG    835
                                                  LIST   L           MESSAGE NR. 221                            ERMSG   .1
                                                                                                                 FTNMSG    836
          3277  11141405070114552601              ERMSG  SCAN10,FE,(ILLEGAL VARIABLE NAME FIELD IN ASSIGN OR ASS FTNMSG    837
                                        ,IGNED GOTO)                                                             FTNMSG    838
                                                  LIST   L           MESSAGE NR. 222                            ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    23
                                                                                MSG 
  
                                                                                                                 FTNMSG    839
          3305  24101123550617221501              ERMSG  PRIN12,ASA,(THIS FORMAT DECLARATION IS NON-ANSI)        FTNMSG    840
                                                  LIST   L           MESSAGE NR. 223                            ERMSG   .1
                                                                                                                 FTNMSG    841
          3311  23311624013055052222              ERMSG  LCC1,FE,(SYNTAX ERROR IN LOADER DIRECTIVE.)             FTNMSG    842
                                                  LIST   L           MESSAGE NR. 224                            ERMSG   .1
                                                                                                                 FTNMSG    843
          3315  16172455051617250710              ERMSG  E224,FC,(NOT ENOUGH ROOM IN WORKING STORAGE TO HOLD ALL FTNMSG    844
                                        , OVERLAY CONTROL CARD INFORMATION)                                      FTNMSG    845
                                                  LIST   L           MESSAGE NR. 225                            ERMSG   .1
                                                                                                                 FTNMSG    846
          3326  24101123552324012405              ERMSG  DOUN,I,(THIS STATEMENT MAY REDEFINE A CURRENT LOOP CONT FTNMSG    847
                                        ,ROL VARIABLE OR PARAMETER, OPTIMIZATION INHIBITED.)                     FTNMSG    848
                                                  LIST   L           MESSAGE NR. 226                            ERMSG   .1
                                                                                                                 FTNMSG    849
          3340  05160455232401240515              ERMSG  FRL,ASA,(END STATEMENT ACTING AS A RETURN IS NON-ANSI)  FTNMSG    850
                                                  LIST   L           MESSAGE NR. 227                            ERMSG   .1
                                                                                                                 FTNMSG    851
          3345  17030325222205160305              ERMSG  NACMT,ASA,(OCCURRENCES OF ASTERISK OR DOLLAR SIGN NON-A FTNMSG    852
                                        ,NSI COMMENT LINES.)                                                     FTNMSG    853
                                                  LIST   L           MESSAGE NR. 228                            ERMSG   .1
                                                                                                                 FTNMSG    854
          3354  04111505162311171601              ERMSG  EI,I,(DIMENSIONAL RANGE IS EXTENDED FOR EQUIVALENCING P FTNMSG    855
                                        ,URPOSES)                                                                FTNMSG    856
                                                  LIST   L           MESSAGE NR. 229                            ERMSG   .1
                                                                                                                 FTNMSG    857
          3362  24171755150116315514              ERMSG  C1.,FE,(TOO MANY LABELED COMMON BLOCKS, ONLY 125 BLOCKS FTNMSG    858
                                        , ARE ALLOWED.)                                                          FTNMSG    859
                                                  LIST   L           MESSAGE NR. 230                            ERMSG   .1
                                                                                                                 FTNMSG    860
          3371  25161124551625150205              ERMSG  PRINTB,FE,(UNIT NUMBER MUST BE BETWEEN 1 AND 99 INCLUSI FTNMSG    861
                                        ,VE.)                                                                    FTNMSG    862
                                                  LIST   L           MESSAGE NR. 231                            ERMSG   .1
                                                                                                                 FTNMSG    863
          3376  06251603241117165516              ERMSG  FUNCT,FE,(FUNCTION NAME DOES NOT APPEAR AS A VARIABLE I FTNMSG    864
                                        ,N THIS SUBPROGRAM)                                                      FTNMSG    865
                                                  LIST   L           MESSAGE NR. 232                            ERMSG   .1
                                                                                                                 FTNMSG    866
          3405  20221707220115551722              ERMSG  TSUB,FE,(PROGRAM OR SUBROUTINE NAME MAY NOT BE REFERENC FTNMSG    867
                                        ,ED IN A DECLARATIVE STATEMENT.)                                         FTNMSG    868
                                                  LIST   L           MESSAGE NR. 233                            ERMSG   .1
                                                                                                                 FTNMSG    869
          3415  06111405551405160724              ERMSG  DPROGI,I,(FILE LENGTH REQUESTED EXCEEDS 360000B -- 3600 FCC1463X   20
                                        ,00B SUBSTITUTED.)                                                       FCC1463X   21
                                                  LIST   L           MESSAGE NR. 234                            ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    24
         ERROR MESSAGES ISSUED BY THE FORMAT PROCESSOR                          MSG 
  
          3424  23052001220124172255              ERMSG  I1,I,(SEPARATOR MISSING.  SEPARATOR ASSUMED HERE.)      FTNMSG    874
                                                  LIST   L           MESSAGE NR. 235                            ERMSG   .1
                                                                                                                 FTNMSG    875
          3431  16175504110711245520              ERMSG  I2,I,(NO DIGIT PRECEDED X-FIELD.  1X ASSUMED.)          FTNMSG    876
                                                  LIST   L           MESSAGE NR. 236                            ERMSG   .1
                                                                                                                 FTNMSG    877
          3436  30460611051404552022              ERMSG  I3,I,(X-FIELD PRECEDED BY A ZERO.  NO SPACING OCCURS.)  FTNMSG    878
                                                  LIST   L           MESSAGE NR. 237                            ERMSG   .1
                                                                                                                 FTNMSG    879
          3443  20220503050411160755              ERMSG  I4,I,(PRECEDING FIELD WIDTH IS ZERO.)                   FTNMSG    880
                                                  LIST   L           MESSAGE NR. 238                            ERMSG   .1
                                                                                                                 FTNMSG    881
          3447  20220503050411160755              ERMSG  I5,I,(PRECEDING FIELD WIDTH SHOULD BE 7 OR MORE.)       FTNMSG    882
                                                  LIST   L           MESSAGE NR. 239                            ERMSG   .1
                                                                                                                 FTNMSG    883
          3454  06220103241117160114              ERMSG  I6,I,(FRACTIONAL DIGIT COUNT MISSING FROM CONVERSION DE FCC1300X   36
                                        ,SCRIPTOR.  DEPENDING ON DESCRIPTOR, ONE OR ZERO ASSUMED.)               FCC1300X   37
                                                  LIST   L           MESSAGE NR. 240                            ERMSG   .1
                                                                                                                 FTNMSG    886
           435  00000000000000400361              RESERVE                  I7                                    FCC1300X   38
                                                  LIST   L           241 IS RESERVED                            RESERVE .1
                                                                                                                 FTNMSG    889
           436  00000000000000400362              RESERVE                  I8                                    FTNMSG    890
                                                  LIST   L           242 IS RESERVED                            RESERVE .1
                                                                                                                 FTNMSG    891
          3467  06110514045527110424              ERMSG  I9,I,(FIELD WIDTH IS GREATER THAN 137 CHARACTERS.  IT M FTNMSG    892
                                        ,AY EXCEED THE I/O DEVICE CAPACITY.)                                     FTNMSG    893
                                                  LIST   L           MESSAGE NR. 243                            ERMSG   .1
                                                                                                                 FTNMSG    894
          3500  20220503050411160755              ERMSG  I10,I,(PRECEDING SCALE FACTOR EXCEEDS THE LIMIT OF REPR FTNMSG    895
                                        ,ESENTATION WITHIN THE MACHINE.)                                         FTNMSG    896
                                                  LIST   L           MESSAGE NR. 244                            ERMSG   .1
                                                                                                                 FTNMSG    897
          3510  23252005220614251725              ERMSG  I11,I,(SUPERFLUOUS SCALE FACTOR ENCOUNTERED BEFORE THE  FTNMSG    898
                                        ,CURRENT SCALE FACTOR.)                                                  FTNMSG    899
                                                  LIST   L           MESSAGE NR. 245                            ERMSG   .1
                                                                                                                 FTNMSG    900
          3520  24172401145522050317              ERMSG  I12,I,(TOTAL RECORD LENGTH IS GREATER THAN 137 CHARACTE FTNMSG    901
                                        ,RS.  IT MAY EXCEED THE I/O DEVICE CAPACITY.)                            FTNMSG    902
                                                  LIST   L           MESSAGE NR. 246                            ERMSG   .1
                                                                                                                 FTNMSG    903
          3532  06110514045527110424              ERMSG  I13,I,(FIELD WIDTH OF A CONVERSION DESCRIPTOR SHOULD BE FTNMSG    904
                                        , AS LARGE AS THE MINIMUM SPECIFIED FOR THAT DESCRIPTOR.)                FTNMSG    905
                                                  LIST   L           MESSAGE NR. 247                            ERMSG   .1
                                                                                                                 FTNMSG    906
          3545  16251505221103550611              ERMSG  I14,I,(NUMERIC FIELD FOLLOWING TAB SETTING DESIGNATOR I FTNMSG    907
                                        ,S EQUAL TO ZERO.  COLUMN ONE WILL BE ASSUMED.)                          FTNMSG    908
                                                  LIST   L           MESSAGE NR. 248                            ERMSG   .1
                                                                                                                 FTNMSG    909
          3557  16251505221103550611              ERMSG  I15,I,(NUMERIC FIELD OMITTED FROM PRECEDING SCALE FACTO FTNMSG    910
                                        ,R.  ZERO SCALE FACTOR ASSUMED.)                                         FTNMSG    911
                                                  LIST   L           MESSAGE NR. 249                            ERMSG   .1
                                                                                                                 FTNMSG    912
           446  00000000000000400372              RESERVE  I16                                                   FCC1385    13
                                                  LIST   L           250 IS RESERVED                            RESERVE .1
                                                                                                                 FTNMSG    915
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    25
         ERROR MESSAGES ISSUED BY THE FORMAT PROCESSOR                          MSG 
  
          3567  24010255230524241116              ERMSG  I17,I,(TAB SETTING MAY EXCEED RECORD SIZE, DEPENDING ON FTNMSG    916
                                        , USE.)                                                                  FTNMSG    917
                                                  LIST   L           MESSAGE NR. 251                            ERMSG   .1
                                                                                                                 FTNMSG    918
           450  00000000000000400374              RESERVE                  I18                                   FTNMSG    919
                                                  LIST   L           252 IS RESERVED                            RESERVE .1
           451  00000000000000400375              RESERVE                  I19                                   FTNMSG    920
                                                  LIST   L           253 IS RESERVED                            RESERVE .1
           452  00000000000000400376              RESERVE                  I20                                   FTNMSG    921
                                                  LIST   L           254 IS RESERVED                            RESERVE .1
                                                                                                                 FTNMSG    922
          3575  20142523552311071655              ERMSG  U1,ANSI,(PLUS SIGN IS A NON-ANSI CHARACTER.)            FTNMSG    923
                                                  LIST   L           MESSAGE NR. 255                            ERMSG   .1
                                                                                                                 FTNMSG    924
          3601  20220503050411160755              ERMSG  U2,ANSI,(PRECEDING FIELD DESCRIPTOR IS NON-ANSI.)       FTNMSG    925
                                                  LIST   L           MESSAGE NR. 256                            ERMSG   .1
                                                                                                                 FTNMSG    926
          3606  06141701241116075520              ERMSG  U3,ANSI,(FLOATING POINT DESCRIPTOR EXPECTED AFTER SCALE FTNMSG    927
                                        , FACTOR DESIGNATOR.)                                                    FTNMSG    928
                                                  LIST   L           MESSAGE NR. 257                            ERMSG   .1
                                                                                                                 FTNMSG    929
          3615  24010255230524241116              ERMSG  U4,ANSI,(TAB SETTING DESIGNATOR IS NON-ANSI.)           FTNMSG    930
                                                  LIST   L           MESSAGE NR. 258                            ERMSG   .1
                                                                                                                 FTNMSG    931
          3621  10171414052211241055              ERMSG  U5,ANSI,(HOLLERITH STRING DELIMITED BY SYMBOLS IS NON-A FTNMSG    932
                                        ,NSI.)                                                                   FTNMSG    933
                                                  LIST   L           MESSAGE NR. 259                            ERMSG   .1
                                                                                                                 FTNMSG    934
          3627  17160555170655241005              ERMSG  U6,ANSI,(ONE OF THE FOLLOWING NON-ANSI FORMS HAS BEEN U FTNMSG    935
                                        ,SED -- EW.DDE, EW.DEE, IW.Z, OW.Z.)                                     FTNMSG    936
                                                  LIST   L           MESSAGE NR. 260                            ERMSG   .1
                                                                                                                 FTNMSG    937
          3640  02010313111607552520              ERMSG  U7,ANSI,(BACKING UP WITH X SPECIFICATION IS NON-ANSI.)  FTNMSG    938
                                                  LIST   L           MESSAGE NR. 261                            ERMSG   .1
                                                                                                                 FTNMSG    939
          3645  01242405152024552417              ERMSG  U8,ANSI,(ATTEMPT TO BACK UP BEFORE COLUMN ONE CAUSES PO FTNMSG    940
                                        ,SITIONING TO BE SET AT COLUMN ONE.)                                     FTNMSG    941
                                                  LIST   L           MESSAGE NR. 262                            ERMSG   .1
                                                                                                                 FTNMSG    942
          3656  17151123231117165517              ERMSG  U9,ANSI,(OMISSION OF FIELD SEPARATOR AFTER HOLLERITH ST FTNMSG    943
                                        ,RING IS NON-ANSI.)                                                      FTNMSG    944
                                                  LIST   L           MESSAGE NR. 263                            ERMSG   .1
                                                                                                                 FTNMSG    945
           464  00000000000000400410              RESERVE                  U10                                   FTNMSG    946
                                                  LIST   L           264 IS RESERVED                            RESERVE .1
                                                                                                                 FTNMSG    947
          3665  20220503050411160755              ERMSG  F1,FE,(PRECEDING CHARACTER ILLEGAL AT THIS POINT IN STR FTNMSG    948
                                        ,ING.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                           FTNMSG    949
                                                  LIST   L           MESSAGE NR. 265                            ERMSG   .1
                                                                                                                 FTNMSG    950
          3677  11141405070114550310              ERMSG  F2,FE,(ILLEGAL CHARACTER FOLLOWS PRECEDING FLOATING POI FTNMSG    951
                                        ,NT DESCRIPTOR.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                 FTNMSG    952
                                                  LIST   L           MESSAGE NR. 266                            ERMSG   .1
                                                                                                                 FTNMSG    953
          3712  11141405070114550310              ERMSG  F3,FE,(ILLEGAL CHARACTER FOLLOWS PRECEDING A,I,L,O,R OR FTNMSG    954
                                        , Z DESCRIPTOR.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                 FTNMSG    955
                                                  LIST   L           MESSAGE NR. 267                            ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    26
         ERROR MESSAGES ISSUED BY THE FORMAT PROCESSOR                          MSG 
  
                                                                                                                 FTNMSG    956
          3725  11141405070114550310              ERMSG  F4,FE,(ILLEGAL CHARACTER FOLLOWS TAB SETTING DESIGNATOR FTNMSG    957
                                        ,.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                              FTNMSG    958
                                                  LIST   L           MESSAGE NR. 268                            ERMSG   .1
                                                                                                                 FTNMSG    959
          3737  11141405070114550310              ERMSG  F5,FE,(ILLEGAL CHARACTER FOLLOWS PRECEDING SIGN CHARACT FTNMSG    960
                                        ,ER.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                            FTNMSG    961
                                                  LIST   L           MESSAGE NR. 269                            ERMSG   .1
                                                                                                                 FTNMSG    962
          3751  20220503050411160755              ERMSG  F6,FE,(PRECEDING CHARACTER ILLEGAL.  SCALE FACTOR EXPEC FTNMSG    963
                                        ,TED.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                           FTNMSG    964
                                                  LIST   L           MESSAGE NR. 270                            ERMSG   .1
                                                                                                                 FTNMSG    965
          3763  20220503050411160755              ERMSG  F7,FE,(PRECEDING HOLLERITH COUNT IS EQUAL TO ZERO.  ERR FTNMSG    966
                                        ,OR SCAN FOR THIS FORMAT STOPS HERE.)                                    FTNMSG    967
                                                  LIST   L           MESSAGE NR. 271                            ERMSG   .1
                                                                                                                 FTNMSG    968
          3774  06172215012455232401              ERMSG  F8,FE,(FORMAT STATEMENT ENDS BEFORE LAST HOLLERITH COUN FTNMSG    969
                                        ,T IS COMPLETE.  ERROR SCAN FOR THIS FORMAT STOPS AT H .)                FTNMSG    970
                                                  LIST   L           MESSAGE NR. 272                            ERMSG   .1
                                                                                                                 FTNMSG    971
          4007  06172215012455232401              ERMSG  F9,FE,(FORMAT STATEMENT ENDS BEFORE END OF HOLLERITH ST FTNMSG    972
                                        ,RING.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                          FTNMSG    973
                                                  LIST   L           MESSAGE NR. 273                            ERMSG   .1
                                                                                                                 FTNMSG    974
          4021  20220503050411160755              ERMSG  F10,FE,(PRECEDING HOLLERITH INDICATOR IS NOT PRECEDED B FTNMSG    975
                                        ,Y A COUNT. SCANNING STOPS HERE.)                                        FTNMSG    976
                                                  LIST   L           MESSAGE NR. 274                            ERMSG   .1
                                                                                                                 FTNMSG    977
          4031  32052217551405260514              ERMSG  F11,FE,(ZERO LEVEL RIGHT PARENTHESIS MISSING.  SCANNING FTNMSG    978
                                        , STOPS.)                                                                FTNMSG    979
                                                  LIST   L           MESSAGE NR. 275                            ERMSG   .1
                                                                                                                 FTNMSG    980
          4037  15013011152515552001              ERMSG  F12,FE,(MAXIMUM PARENTHESIS NESTING LEVEL EXCEEDED. ERR FTNMSG    981
                                        ,OR SCAN FOR THIS FORMAT STOPS HERE.)                                    FTNMSG    982
                                                  LIST   L           MESSAGE NR. 276                            ERMSG   .1
                                                                                                                 FTNMSG    983
          4050  32052217551123552320              ERMSG  F13,FE,(ZERO IS SPECIFIED AS REPEAT COUNT.  SCANNING ST FTNMSG    984
                                        ,OPS.)                                                                   FTNMSG    985
                                                  LIST   L           MESSAGE NR. 277                            ERMSG   .1
                                                                                                                 FTNMSG    986
          4056  11141405070114550310              ERMSG  F14,FE,(ILLEGAL CHARACTERS AFTER TERMINATING RIGHT PARE FCC1385    14
                                        ,NTHESIS.)                                                               FCC1385    15
                                                  LIST   L           MESSAGE NR. 278                            ERMSG   .1
                                                                                                                 FTNMSG    988
          4064  27172213111607552324              ERMSG  F15,FE,(WORKING STORAGE EXCEEDED.  FORMAT SCAN HALTED.) FTNMSG    989
                                                  LIST   L           MESSAGE NR. 279                            ERMSG   .1
                                                                                                                 FTNMSG    990
          4071  06110514045527110424              ERMSG  F16,FE,(FIELD WIDTH IS GREATER THAN 131,071.  SCANNING  FTNMSG    991
                                        ,STOPS.)                                                                 FTNMSG    992
                                                  LIST   L           MESSAGE NR. 280                            ERMSG   .1
                                                                                                                 FTNMSG    993
          4077  24172401145522050317              ERMSG  F17,FE,(TOTAL RECORD LENGTH IS GREATER THAN 131,071.  S FTNMSG    994
                                        ,CANNING STOPS.)                                                         FTNMSG    995
                                                  LIST   L           MESSAGE NR. 281                            ERMSG   .1
                                                                                                                 FTNMSG    996
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    27
         ERROR MESSAGES ISSUED BY THE FORMAT PROCESSOR                          MSG 
  
          4106  24010255230524241116              ERMSG  F18,FE,(TAB SETTING IS GREATER THAN 131,071.  SCANNING  FTNMSG    997
                                        ,STOPS.)                                                                 FTNMSG    998
                                                  LIST   L           MESSAGE NR. 282                            ERMSG   .1
                                                                                                                 FTNMSG    999
           507  00000000000000400433              RESERVE                  F19                                   FTNMSG   1000
                                                  LIST   L           283 IS RESERVED                            RESERVE .1
                                                                                                                 FTNMSG   1001
           510  00000000000000400434              UNUSED                                                         FCC1289X   14
                                                  LIST   L           284 IS UNUSED                              UNUSED  .1
  
  
  
                                        *         MISCELLANEOUS                                                  FTNMSG   1004
                                                                                                                 FTNMSG   1005
          4114  03171515015515112323              ERMSG  TNOCOM,I,(COMMA MISSING BEFORE VARIABLE INDICATED.)     FTNMSG   1006
                                                  LIST   L           MESSAGE NR. 285                            ERMSG   .1
                                                                                                                 FTNMSG   1007
          4121  11141405070114552305              ERMSG  BADSEP,FE,(ILLEGAL SEPARATOR ENCOUNTERED.)              FTNMSG   1008
                                                  LIST   L           MESSAGE NR. 286                            ERMSG   .1
                                                                                                                 FTNMSG   1009
          4125  02010455233116240130              ERMSG  BADSYN,FE,(BAD SYNTAX ENCOUNTERED.)                     FTNMSG   1010
                                                  LIST   L           MESSAGE NR. 287                            ERMSG   .1
                                                                                                                 FTNMSG   1011
          4130  03171515171655021417              ERMSG  LENGTH,FE,(COMMON BLOCK LENGTH EXCEEDS 131071 WORDS.)   FTNMSG   1012
                                                  LIST   L           MESSAGE NR. 288                            ERMSG   .1
                                                                                                                 FTNMSG   1013
          4135  24010214055517260522              ERMSG  SCANOFLO,FE,(TABLE OVERFLOW (CONSTORS) - SIMPLIFY STATE FCC0587    10
                                        ,MENT OR SEE ANALYST.)                                                   FCC0587    11
                                                  LIST   L           MESSAGE NR. 289                            ERMSG   .1
                                                                                                                 FTNMSG   1016
          4144  11162601141104551405              ERMSG  LVL1,FE,(INVALID LEVEL NUMBER SPECIFIED)                FTNMSG   1017
                                                  LIST   L           MESSAGE NR. 290                            ERMSG   .1
                                                                                                                 FTNMSG   1018
          4150  14052605145503171606              ERMSG  LVL2,I,(LEVEL CONFLICTS WITH PREVIOUS DECLARATION. ORIG FTNMSG   1019
                                        ,INAL LEVEL RETAINED.)                                                   FTNMSG   1020
                                                  LIST   L           MESSAGE NR. 291                            ERMSG   .1
                                                                                                                 FTNMSG   1021
          4157  03171606141103241116              ERMSG  LVL3,FE,(CONFLICTING LEVEL DECLARATIONS EXIST IN THIS C FTNMSG   1022
                                        ,OMMON BLOCK)                                                            FTNMSG   1023
                                                  LIST   L           MESSAGE NR. 292                            ERMSG   .1
                                                                                                                 FTNMSG   1024
          4165  16172455011414551124              ERMSG  LVL4,I,(NOT ALL ITEMS IN THIS COMMON BLOCK OCCUR IN LEV FTNMSG   1025
                                        ,EL STATEMENTS)                                                          FTNMSG   1026
                                                  LIST   L           MESSAGE NR. 293                            ERMSG   .1
                                                                                                                 FTNMSG   1027
          4174  11240515235511165504              ERMSG  LVL5,FE,(ITEMS IN DIFFERENT LEVELS OF STORAGE MAY NOT B FTNMSG   1028
                                        ,E EQUIVALENCED)                                                         FTNMSG   1029
                                                  LIST   L           MESSAGE NR. 294                            ERMSG   .1
                                                                                                                 FTNMSG   1030
          4203  24101123552324012405              ERMSG  DECPO,I,(THIS STATEMENT FORM IS OBSOLETE. USE A LEVEL 3 FTNMSG   1031
                                        , STATEMENT.)                                                            FTNMSG   1032
                                                  LIST   L           MESSAGE NR. 295                            ERMSG   .1
                                                                                                                 FTNMSG   1033
          4211  01220755241755141703              ERMSG  LOCF,FE,(ARG TO LOCF MAY NOT BE AN EXPRESSION)          FTNMSG   1034
                                                  LIST   L           MESSAGE NR. 296                            ERMSG   .1
                                                                                                                 FTNMSG   1035
          4215  11162601141104552523              ERMSG  ICS,FE,(INVALID USE OF A CHARACTER STRING.)             FTNMSG   1036
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    28
         ERROR MESSAGES ISSUED BY THE FORMAT PROCESSOR                          ERTAB 
  
                                                  LIST   L           MESSAGE NR. 297                            ERMSG   .1
                                                                                                                 FTNMSG   1037
          4221  05212511260114051603              ERMSG    EQVLEN,FE,(EQUIVALENCED COMMON BLOCK EXCEEDS 131071 W FTNMSG   1038
                                        ,ORDS.)                                                                  FTNMSG   1039
                                                  LIST   L           MESSAGE NR. 298                            ERMSG   .1
                                                                                                                 FTNMSG   1040
          4226  24101123552324012405              ERMSG  ASAST,ANSI,(THIS STATEMENT TYPE IS NON-ANSI.)           FTNMSG   1041
                                                  LIST   L           MESSAGE NR. 299                            ERMSG   .1
                                                                                                                 FTNMSG   1042
          4232  24101123552022170722              ERMSG  ACALL,FE,(THIS PROGRAM UNIT CALLS ITSELF.)              FTNMSG   1043
                                                  LIST   L           MESSAGE NR. 300                            ERMSG   .1
                                                                                                                 FTNMSG   1044
          4236  03171624221714552601              ERMSG  DOCVCE,I,(CONTROL VARIABLE IN COMMON OR EQUIVALENCED, O FTNMSG   1045
                                        ,PTIMIZATION MAY BE INHIBITED)                                           FTNMSG   1046
                                                  LIST   L           MESSAGE NR. 301                            ERMSG   .1
                                                                                                                 FTNMSG   1047
          4246  23101106245501220725              ERMSG  ASHIFT,I,(SHIFT ARGUMENT MUST BE GREATER THAN -61 AND L FTNMSG   1048
                                        ,ESS THAN 61.)                                                           FTNMSG   1049
                                                  LIST   L           MESSAGE NR. 302                            ERMSG   .1
                                                                                                                 FTNMSG   1050
          4254  01221124101505241103              ERMSG  AR58,FE,(ARITHMETIC STATEMENT FUNCTION REDEFINED.)      FTNMSG   1051
                                                  LIST   L           MESSAGE NR. 303                            ERMSG   .1
                                                                                                                 FTNMSG   1052
          4261  01022317142524055526              ERMSG  CONVRT,FE,(ABSOLUTE VALUE OF INTEGER CONSTANT GREATER T FCC0400    68
                                        ,HAN 2**59-1 .)                                                          FCC0400    69
                                                  LIST   L           MESSAGE NR. 304                            ERMSG   .1
                                                                                                                 FTNMSG   1054
          4267  17021205032455170655              ERMSG  E.DO305,ANSI,(OBJECT OF LOGICAL IF IS ILLEGAL DO TERMIN FCC0825     6
                                        ,ATOR)                                                                   FCC0825     7
                                                  LIST   L           MESSAGE NR. 305                            ERMSG   .1
                                                                                                                 FTNMSG   1056
          4274  16171646111616052255              ERMSG  DOEXT,I,(NON-INNER LOOP BEGINNING AT THIS CARD IS ENTER FCC1283     8
                                        ,ED FROM OUTSIDE ITS RANGE.)                                             FCC1283     9
                                                  LIST   L           MESSAGE NR. 306                            ERMSG   .1
                                                                                                                 FTNMSG   1059
          4304  03171624221714550614              ERMSG  FLOWER,ANSI,(CONTROL FLOW INTO END LINE NOT PERMITTED.) FCC1638X  102
                                                  LIST   L           MESSAGE NR. 307                            ERMSG   .1
                                                                                                                 FTNMSG   1062
          4311  06270155011604551427              ERMSG  BUFIO1,I,(FWA AND LWA NOT IN SAME ARRAY, EQUIVALENCE CL FCC0593    26
                                        ,ASS, OR COMMON BLOCK.)                                                  FCC0593    27
                                                  LIST   L           MESSAGE NR. 308                            ERMSG   .1
                                                                                                                 FTNMSG   1065
          4320  11501755061114055516              ERMSG  E.IOND,I,(I/O FILE NOT DEFINED.)                        FCC1670X    6
                                                  LIST   L           MESSAGE NR. 309                            ERMSG   .1
                                                                                                                 FTNMSG   1068
          4323  11141405070114552523              ERMSG  CDN.E4,FE,(ILLEGAL USE OF A FUNCTION NAME.)             FTNMSG   1069
                                                  LIST   L           MESSAGE NR. 310                            ERMSG   .1
                                                                                                                 FTNMSG   1070
           543  00000000000000400467              UNUSED                                                         FTNMSG   1071
                                                  LIST   L           311 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1072
          4327  01165511065523240124              ERMSG  GOTO,I,(AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2  FTNMSG   1073
                                        ,OR 3 BRANCH COMPUTED GO TO STATEMENT.)                                  FTNMSG   1074
                                                  LIST   L           MESSAGE NR. 312                            ERMSG   .1
                                                                                                                 FTNMSG   1075
          4340  11141405070114552331              ERMSG  E313,FE,(ILLEGAL SYNTAX AFTER INITIAL KEYWORD OR NAME.) FTNMSG   1076
                                                  LIST   L           MESSAGE NR. 313                            ERMSG   .1
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    29
         ERROR MESSAGES ISSUED BY THE FORMAT PROCESSOR                          MSG 
  
                                                                                                                 FTNMSG   1077
          4345  23202522111725235503              ERMSG  E314,I,(SPURIOUS CHARACTERS AFTER CONTINUE IGNORED.)    FTNMSG   1078
                                                  LIST   L           MESSAGE NR. 314                            ERMSG   .1
                                                                                                                 FTNMSG   1079
          4352  14170104052255041122              ERMSG  LCC3,FE,(LOADER DIRECTIVE OUT OF SEQUENCE.  MUST PRECED FTNMSG   1080
                                        ,E PROGRAM UNIT HEADER LINE.)                                            FTNMSG   1081
                                                  LIST   L           MESSAGE NR. 315                            ERMSG   .1
                                                                                                                 FTNMSG   1082
          4362  11141405070114552331              ERMSG  E316,FE,(ILLEGAL SYNTAX IN IF STATEMENT.)               FTNMSG   1083
                                                  LIST   L           MESSAGE NR. 316                            ERMSG   .1
                                                                                                                 FTNMSG   1084
          4366  16251502052255170655              ERMSG  RETPAR,FE,(NUMBER OF ACTUAL PARAMETERS PLUS RETURNS EXC FTNMSG   1085
                                        ,EED 63)                                                                 FTNMSG   1086
                                                  LIST   L           MESSAGE NR. 317                            ERMSG   .1
                                                                                                                 FTNMSG   1087
          4374  01165505302022052323              ERMSG  E318,ANSI,(AN EXPRESSION OF THE FORM A**B**C IS NON-ANS FTNMSG   1088
                                        ,I, AND IS EVALUATED FROM LEFT TO RIGHT.)                                FTNMSG   1089
                                                  LIST   L           MESSAGE NR. 318                            ERMSG   .1
                                                                                                                 FTNMSG   1090
          4405  01550350551411232455              ERMSG  E319,FE,(A C/ LIST DIRECTIVE MAY NOT BE FOLLOWED BY A C FEAT121L   86
                                        ,ONTINUATION LINE.)                                                      FEAT121L   87
                                                  LIST   L           MESSAGE NR. 319                            ERMSG   .1
                                                                                                                 FTNMSG   1092
          4414  10171414052211241055              ERMSG  E.IHI,I,(HOLLERITH CONSTANT .GT. 10 CHARACTERS, EXCESS  FCC0537    10
                                        ,CHARACTERS INITIALIZED INTO SUCCEEDING WORDS.)                          FCC0537    11
                                                  LIST   L           MESSAGE NR. 320                            ERMSG   .1
                                                                                                                 FTNMSG   1094
          4426  04012401552601221101              ERMSG  E.DTC,ANSI,(DATA VARIABLE TYPE DOES NOT MATCH CONSTANT. FCC1563X   36
                                        ,)                                                                       FCC1563X   37
                                                  LIST   L           MESSAGE NR. 321                            ERMSG   .1
                                                                                                                 FTNMSG   1096
          4433  05302405221601145516              ERMSG  CA03,FE,(EXTERNAL NAME IN ARGUMENT LIST MUST APPEAR IN  FCC1716X   19
                                        ,EXTERNAL STATEMENT.)                                                    FCC1716X   20
                                                  LIST   L           MESSAGE NR. 322                            ERMSG   .1
                                                                                                                 FTNMSG   1098
          4442  16171646011623115506              ERMSG  DPBDA,ANSI,(NON-ANSI FORM OF BLOCK DATA STATEMENT.)     FCC1998    14
                                                  LIST   L           MESSAGE NR. 323                            ERMSG   .1
                                                                                                                 FTNMSG   1100
          4446  25162205031707161132              ERMSG  E324,FE,(UNRECOGNIZED OPERATOR.)                        FCC2448     5
                                                  LIST   L           MESSAGE NR. 324                            ERMSG   .1
                                                                                                                 FTNMSG   1102
          4451  23202522111725235503              ERMSG  E325,I,(SPURIOUS CHARACTERS AFTER END IGNORED.)         FCCA435     5
                                                  LIST   L           MESSAGE NR. 325                            ERMSG   .1
                                                                                                                 FTNMSG   1104
          4455  26012211010214055516              ERMSG  E.DNC,I,(VARIABLE NOT DECLARED IN LABEL COMMON)         FCCA549     5
                                                  LIST   L           MESSAGE NR. 326                            ERMSG   .1
                                                                                                                 FTNMSG   1106
          4461  11141405070114552331              ERMSG  E.PIL,FE,(ILLEGAL SYNTAX IN IMPLIED DO SPECIFICATION)   FCC2285     9
                                                  LIST   L           MESSAGE NR. 327                            ERMSG   .1
                                                                                                                 FTNMSG   1108
          4466  23011505551601150555              ERMSG  E328,ANSI,(SAME NAME USED AS FUNCTION AND SUBROUTINE)   FCC2307    16
                                                  LIST   L           MESSAGE NR. 328                            ERMSG   .1
                                                                                                                 FTNMSG   1110
           565  00000000000000400511              UNUSED                                                         FTNMSG   1111
                                                  LIST   L           329 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1112
           566  00000000000000400512              UNUSED                                                         FTNMSG   1113
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    30
         ERROR MESSAGES ISSUED BY THE FORMAT PROCESSOR                          ERTAB 
  
                                                  LIST   L           330 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1114
           567  00000000000000400513              UNUSED                                                         FTNMSG   1115
                                                  LIST   L           331 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1116
           570  00000000000000400514              UNUSED                                                         FTNMSG   1117
                                                  LIST   L           332 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1118
           571  00000000000000400515              UNUSED                                                         FTNMSG   1119
                                                  LIST   L           333 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1120
           572  00000000000000400516              UNUSED                                                         FTNMSG   1121
                                                  LIST   L           334 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1122
           573  00000000000000400517              UNUSED                                                         FTNMSG   1123
                                                  LIST   L           335 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1124
           574  00000000000000400520              UNUSED                                                         FTNMSG   1125
                                                  LIST   L           336 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1126
           575  00000000000000400521              UNUSED                                                         FTNMSG   1127
                                                  LIST   L           337 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1128
           576  00000000000000400522              UNUSED                                                         FTNMSG   1129
                                                  LIST   L           338 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1130
           577  00000000000000400523              UNUSED                                                         FTNMSG   1131
                                                  LIST   L           339 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1132
           600  00000000000000400524              UNUSED                                                         FTNMSG   1133
                                                  LIST   L           340 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1134
           601  00000000000000400525              UNUSED                                                         FTNMSG   1135
                                                  LIST   L           341 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1136
           602  00000000000000400526              UNUSED                                                         FTNMSG   1137
                                                  LIST   L           342 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1138
           603  00000000000000400527              UNUSED                                                         FTNMSG   1139
                                                  LIST   L           343 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1140
           604  00000000000000400530              UNUSED                                                         FTNMSG   1141
                                                  LIST   L           344 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1142
           605  00000000000000400531              UNUSED                                                         FTNMSG   1143
                                                  LIST   L           345 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1144
           606  00000000000000400532              UNUSED                                                         FTNMSG   1145
                                                  LIST   L           346 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1146
           607  00000000000000400533              UNUSED                                                         FTNMSG   1147
                                                  LIST   L           347 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1148
           610  00000000000000400534              UNUSED                                                         FTNMSG   1149
                                                  LIST   L           348 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1150
           611  00000000000000400535              UNUSED                                                         FTNMSG   1151
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    31
         ERROR MESSAGES ISSUED BY THE FORMAT PROCESSOR                          ERTAB 
  
                                                  LIST   L           349 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1152
           612  00000000000000400536              UNUSED                                                         FTNMSG   1153
                                                  LIST   L           350 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1154
           613  00000000000000400537              UNUSED                                                         FTNMSG   1155
                                                  LIST   L           351 IS UNUSED                              UNUSED  .1
                                                                                                                 FTNMSG   1156
                                                                                                                 FTNMSG   1157
                                                                                                                 FTNMSG   1158
                                                                                                                 FTNMSG   1159
                                                  LIST   A   ** LIST OF AVAILABLE ERROR NUMBERS **               FTNMSG   1160
                                          LIST L  "AVAIL"                                                        FTNMSG   1161
                                          LIST L   42 90 284 311 329 330 331 332 333 334 335 336 337 338 339 340 FTNMSG   1161
                                        , 341 342 343 344 345 346 347 348 349 350 351                            FTNMSG   1161
                                        ,                                                                        FTNMSG   1161
                                                                                                                 FTNMSG   1162
          4473                                    END    FTN23                                                   FTNMSG   1163
  
                             66200B CM  STORAGE USED             6598 STATEMENTS      886 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.477 SECONDS        1017 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACALL        4232   PROGRAM*       28/10 L   28/10     28/10
        ARMASK       3217   PROGRAM*       22/29 L   22/29     22/29
        AR00         2232   PROGRAM*       17/03 L   17/03     17/03
        AR01         2237   PROGRAM*       17/06 L   17/06     17/06
        AR02         2243   PROGRAM*       17/09 L   17/09     17/09
        AR03         2251   PROGRAM*       17/13 L   17/13     17/13
        AR04         2255   PROGRAM*       17/16 L   17/16     17/16
        AR05         2261   PROGRAM*       17/19 L   17/19     17/19
        AR06         2273   PROGRAM*       17/23 L   17/23     17/23
        AR07         2300   PROGRAM*       17/26 L   17/26     17/26
        AR08         2305   PROGRAM*       17/29 L   17/29     17/29
        AR09         2315   PROGRAM*       17/33 L   17/33     17/33
        AR10         2324   PROGRAM*       17/37 L   17/37     17/37
        AR11         2331   PROGRAM*       17/41 L   17/41     17/41
        AR12         2336   PROGRAM*       17/44 L   17/44     17/44
        AR13         2346   PROGRAM*       17/48 L   17/48     17/48
        AR14         2355   PROGRAM*       17/52 L   17/52     17/52
        AR15         2365   PROGRAM*       17/56 L   17/56     17/56
        AR16         2373   PROGRAM*       18/03 L   18/03     18/03
        AR18         2407   PROGRAM*       18/11 L   18/11     18/11
        AR19         2416   PROGRAM*       18/15 L   18/15     18/15
        AR21         2437   PROGRAM*       18/23 L   18/23     18/23
        AR22         2446   PROGRAM*       18/27 L   18/27     18/27
        AR23         2455   PROGRAM*       18/31 L   18/31     18/31
        AR24         2465   PROGRAM*       18/35 L   18/35     18/35
        AR25         2473   PROGRAM*       18/39 L   18/39     18/39
        AR26         2502   PROGRAM*       18/43 L   18/43     18/43
        AR27         2511   PROGRAM*       18/47 L   18/47     18/47
        AR28         2516   PROGRAM*       18/50 L   18/50     18/50
        AR29         2523   PROGRAM*       18/53 L   18/53     18/53
        AR30         2530   PROGRAM*       18/57 L   18/57     18/57
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    32
        SYMBOLIC REFERENCE TABLE. 
  
        AR31         2535   PROGRAM*       19/03 L   19/03     19/03
        AR32         2543   PROGRAM*       19/07 L   19/07     19/07
        AR33         2546   PROGRAM*       19/10 L   19/10     19/10
        AR34         2554   PROGRAM*       19/14 L   19/14     19/14
        AR35         2562   PROGRAM*       19/18 L   19/18     19/18
        AR36         2573   PROGRAM*       19/22 L   19/22     19/22
        AR37         3031   PROGRAM*       21/18 L   21/18     21/18
        AR38         2671   PROGRAM*       20/20 L   20/20     20/20
        AR39         2704   PROGRAM*       20/24 L   20/24     20/24
        AR40         2713   PROGRAM*       20/28 L   20/28     20/28
        AR41         2720   PROGRAM*       20/31 L   20/31     20/31
        AR42         2724   PROGRAM*       20/34 L   20/34     20/34
        AR43         2734   PROGRAM*       20/38 L   20/38     20/38
        AR44         2740   PROGRAM*       20/41 L   20/41     20/41
        AR45         2753   PROGRAM*       20/45 L   20/45     20/45
        AR46         2763   PROGRAM*       20/49 L   20/49     20/49
        AR47         2767   PROGRAM*       20/52 L   20/52     20/52
        AR48         3010   PROGRAM*       21/08 L   21/08     21/08
        AR49         3070   PROGRAM*       21/39 L   21/39     21/39
        AR50         3077   PROGRAM*       21/43 L   21/43     21/43
        AR51         1453   PROGRAM*       11/34 L   11/34     11/34
        AR52         1513   PROGRAM*       11/54 L   11/54     11/54
        AR53         3252   PROGRAM*       22/44 L   22/44     22/44
        AR58         4254   PROGRAM*       28/21 L   28/21     28/21
        AR60         2400   PROGRAM*       18/07 L   18/07     18/07
        ASAST        4226   PROGRAM*       28/07 L   28/07     28/07
        ASA1         1711   PROGRAM*       13/27 L   13/27     13/27
        ASFMO        1306   PROGRAM*       10/23 L   10/23     10/23
        ASFPLE       1300   PROGRAM*       10/19 L   10/19     10/19
        ASFSE        3225   PROGRAM*       22/33 L   22/33     22/33
        ASFTMP       1273   PROGRAM*       10/16 L   10/16     10/16
        ASHIFT       4246   PROGRAM*       28/17 L   28/17     28/17
        ASSIGN2      2651   PROGRAM*       20/07 L   20/07     20/07
        ASSING       2023   PROGRAM*       14/11 L   14/11     14/11
        BADSEP       4121   PROGRAM*       27/18 L   27/18     27/18
        BADSYN       4125   PROGRAM*       27/21 L   27/21     27/21
        BDA          1202   PROGRAM*        9/32 L    9/32      9/32
        BSI          3043   PROGRAM*       21/26 L   21/26     21/26
        BUFIO1       4311   PROGRAM*       28/39 L   28/39     28/39
        B1=1            0 
        CA00         2600   PROGRAM*       19/25 L   19/25     19/25
        CA01         2604   PROGRAM*       19/28 L   19/28     19/28
        CA02         2665   PROGRAM*       20/17 L   20/17     20/17
        CA03         4433   PROGRAM*       29/32 L   29/32     29/32
        CDN.E4       4323   PROGRAM*       28/46 L   28/46     28/46
        CHAR         1771   PROGRAM*       13/53 L   13/53     13/53
        CMTCD        3126   PROGRAM*       21/54 L   21/54     21/54
        COM3         1325   PROGRAM*       10/37 L   10/37     10/37
        COM4         1336   PROGRAM*       10/41 L   10/41     10/41
        CONVRT       4261   PROGRAM*       28/24 L   28/24     28/24
        CP.LSTF         0   EXTERNAL*       5/10
        CUN          1246   PROGRAM*       10/02 L   10/02     10/02
        CUNE         1703   PROGRAM*       13/23 L   13/23     13/23
        C1.          3362   PROGRAM*       23/27 L   23/27     23/27
        DBG1         1346   PROGRAM*       10/48 L   10/48     10/48
        DBG2         1352   PROGRAM*       10/51 L   10/51     10/51
        DDP          1266   PROGRAM*       10/12 L   10/12     10/12
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    33
        SYMBOLIC REFERENCE TABLE. 
  
        DECFX        1416   PROGRAM*       11/17 L   11/17     11/17
        DECPH2       2014   PROGRAM*       14/05 L   14/05     14/05
        DECPO        4203   PROGRAM*       27/50 L   27/50     27/50
        DFLAG           0   EXTERNAL*       6/26
        DIM2         1210   PROGRAM*        9/41 L    9/41      9/41
        DIM3         1214   PROGRAM*        9/44 L    9/44      9/44
        DIM4         1220   PROGRAM*        9/47 L    9/47      9/47
        DIM5         1227   PROGRAM*        9/51 L    9/51      9/51
        DOCVCE       4236   PROGRAM*       28/13 L   28/13     28/13
        DOEXT        4274   PROGRAM*       28/32 L   28/32     28/32
        DOUN         3326   PROGRAM*       23/12 L   23/12     23/12
        DO1           645   PROGRAM*        7/03 L    7/03      7/03
        DO10          737   PROGRAM*        7/36 L    7/36      7/36
        DO11          746   PROGRAM*        7/40 L    7/40      7/40
        DO12          754   PROGRAM*        7/44 L    7/44      7/44
        DO13          762   PROGRAM*        7/48 L    7/48      7/48
        DO130        2205   PROGRAM*       16/10 L   16/10     16/10
        DO14          772   PROGRAM*        7/52 L    7/52      7/52
        DO15         1001   PROGRAM*        7/56 L    7/56      7/56
        DO16         1011   PROGRAM*        8/03 L    8/03      8/03
        DO17         1022   PROGRAM*        8/07 L    8/07      8/07
        DO18         1027   PROGRAM*        8/10 L    8/10      8/10
        DO19         1035   PROGRAM*        8/14 L    8/14      8/14
        DO2           651   PROGRAM*        7/06 L    7/06      7/06
        DO20         1044   PROGRAM*        8/18 L    8/18      8/18
        DO21         1056   PROGRAM*        8/22 L    8/22      8/22
        DO22         1062   PROGRAM*        8/25 L    8/25      8/25
        DO23         1553   PROGRAM*       12/15 L   12/15     12/15
        DO24         1753   PROGRAM*       13/46 L   13/46     13/46
        DO3           657   PROGRAM*        7/10 L    7/10      7/10
        DO4           664   PROGRAM*        7/13 L    7/13      7/13
        DO5           675   PROGRAM*        7/17 L    7/17      7/17
        DO6           703   PROGRAM*        7/21 L    7/21      7/21
        DO7           715   PROGRAM*        7/25 L    7/25      7/25
        DO8           725   PROGRAM*        7/29 L    7/29      7/29
        DO9           730   PROGRAM*        7/32 L    7/32      7/32
        DPBDA        4442   PROGRAM*       29/36 L   29/36     29/36
        DPCL2        3052   PROGRAM*       21/30 L   21/30     21/30
        DPCL3        3061   PROGRAM*       21/34 L   21/34     21/34
        DPCOM        1321   PROGRAM*       10/34 L   10/34     10/34
        DPROGI       3415   PROGRAM*       23/43 L   23/43     23/43
        DPROG2       2641   PROGRAM*       20/01 L   20/01     20/01
        EI           3354   PROGRAM*       23/23 L   23/23     23/23
        ENTRYDV      2662   PROGRAM*       20/14 L   20/14     20/14
        ENTRY1       1531   PROGRAM*       12/07 L   12/07     12/07
        ENTRY2       1543   PROGRAM*       12/11 L   12/11     12/11
        ENTRY3       1560   PROGRAM*       12/18 L   12/18     12/18
        ENTRY4       1622   PROGRAM*       12/43 L   12/43     12/43
        EQPO4        2430   PROGRAM*       18/19 L   18/19     18/19
        EQVC         1632   PROGRAM*       12/54 L   12/54     12/54
        EQVCE        1676   PROGRAM*       13/20 L   13/20     13/20
        EQVICE       1671   PROGRAM*       13/17 L   13/17     13/17
        EQVLEN       4221   PROGRAM*       28/03 L   28/03     28/03
        ERBUF         621   PROGRAM*        4/42 L    6/09 S    6/17
        ERTAB          55   PROGRAM*        4/32 L    6/08
        ETABOV       2020   PROGRAM*       14/08 L   14/08     14/08
        EXT1         1341   PROGRAM*       10/44 L   10/44     10/44
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    34
        SYMBOLIC REFERENCE TABLE. 
  
        E214         3210   PROGRAM*       22/25 L   22/25     22/25
        E224         3315   PROGRAM*       23/08 L   23/08     23/08
        E313         4340   PROGRAM*       28/56 L   28/56     28/56
        E314         4345   PROGRAM*       29/02 L   29/02     29/02
        E316         4362   PROGRAM*       29/09 L   29/09     29/09
        E318         4374   PROGRAM*       29/16 L   29/16     29/16
        E319         4405   PROGRAM*       29/20 L   29/20     29/20
        E324         4446   PROGRAM*       29/39 L   29/39     29/39
        E325         4451   PROGRAM*       29/42 L   29/42     29/42
        E328         4466   PROGRAM*       29/51 L   29/51     29/51
        E92          1635   PROGRAM*       12/57 L   12/57     12/57
        E93          1642   PROGRAM*       13/03 L   13/03     13/03
        E95          1654   PROGRAM*       13/10 L   13/10     13/10
        E96          1660   PROGRAM*       13/13 L   13/13     13/13
        E.C>V        2045   PROGRAM*       15/07 L   15/07     15/07
        E.DCE1       2111   PROGRAM*       15/30 L   15/30     15/30
        E.DIL        2064   PROGRAM*       15/17 L   15/17     15/17
        E.DIL1       2070   PROGRAM*       15/20 L   15/20     15/20
        E.DIL2       2075   PROGRAM*       15/23 L   15/23     15/23
        E.DIL3       2102   PROGRAM*       15/26 L   15/26     15/26
        E.DNA        2054   PROGRAM*       15/11 L   15/11     15/11
        E.DNC        4455   PROGRAM*       29/45 L   29/45     29/45
        E.DO305      4267   PROGRAM*       28/28 L   28/28     28/28
        E.DSE        2060   PROGRAM*       15/14 L   15/14     15/14
        E.DTC        4426   PROGRAM*       29/28 L   29/28     29/28
        E.DVL1       2122   PROGRAM*       15/34 L   15/34     15/34
        E.DVL2       2125   PROGRAM*       15/37 L   15/37     15/37
        E.DVL3       2131   PROGRAM*       15/40 L   15/40     15/40
        E.DVL4       2135   PROGRAM*       15/43 L   15/43     15/43
        E.DVL5       2144   PROGRAM*       15/47 L   15/47     15/47
        E.DVL6       2152   PROGRAM*       15/51 L   15/51     15/51
        E.DVL7       2162   PROGRAM*       15/55 L   15/55     15/55
        E.DVL8       2170   PROGRAM*       16/02 L   16/02     16/02
        E.DVL9       2177   PROGRAM*       16/06 L   16/06     16/06
        E.DVN1       2217   PROGRAM*       16/17 L   16/17     16/17
        E.DVN2       2225   PROGRAM*       16/21 L   16/21     16/21
        E.IHI        4414   PROGRAM*       29/24 L   29/24     29/24
        E.IOND       4320   PROGRAM*       28/43 L   28/43     28/43
        E.LC         1523   PROGRAM*       12/01 L   12/01     12/01
        E.PIL        4461   PROGRAM*       29/48 L   29/48     29/48
        E.PL         1761   PROGRAM*       13/49 L   13/49     13/49
        E.TRC        2211   PROGRAM*       16/13 L   16/13     16/13
        E.V>C        2035   PROGRAM*       15/03 L   15/03     15/03
        FA=LOL          0   EXTERNAL*       5/21      6/17
        FA=NPG          0   EXTERNAL*       5/20
        FLOWER       4304   PROGRAM*       28/36 L   28/36     28/36
        FMTER        1503   PROGRAM*       11/48 L   11/48     11/48
        FRL          3340   PROGRAM*       23/16 L   23/16     23/16
        FTN23           0   PROGRAM*        5/08 E    5/09 L
        FUNCT        3376   PROGRAM*       23/35 L   23/35     23/35
        F1           3665   PROGRAM*       25/47 L   25/47     25/47
        F10          4021   PROGRAM*       26/26 L   26/26     26/26
        F11          4031   PROGRAM*       26/30 L   26/30     26/30
        F12          4037   PROGRAM*       26/34 L   26/34     26/34
        F13          4050   PROGRAM*       26/38 L   26/38     26/38
        F14          4056   PROGRAM*       26/42 L   26/42     26/42
        F15          4064   PROGRAM*       26/46 L   26/46     26/46
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    35
        SYMBOLIC REFERENCE TABLE. 
  
        F16          4071   PROGRAM*       26/49 L   26/49     26/49
        F17          4077   PROGRAM*       26/53 L   26/53     26/53
        F18          4106   PROGRAM*       26/57 L   26/57     26/57
        F2           3677   PROGRAM*       25/51 L   25/51     25/51
        F3           3712   PROGRAM*       25/55 L   25/55     25/55
        F4           3725   PROGRAM*       26/02 L   26/02     26/02
        F5           3737   PROGRAM*       26/06 L   26/06     26/06
        F6           3751   PROGRAM*       26/10 L   26/10     26/10
        F7           3763   PROGRAM*       26/14 L   26/14     26/14
        F8           3774   PROGRAM*       26/18 L   26/18     26/18
        F9           4007   PROGRAM*       26/22 L   26/22     26/22
        GOTO         4327   PROGRAM*       28/52 L   28/52     28/52
        GOTO1        1721   PROGRAM*       13/33 L   13/33     13/33
        GOTO2        1725   PROGRAM*       13/36 L   13/36     13/36
        GOTO3        1733   PROGRAM*       13/40 L   13/40     13/40
        GOTO88       2645   PROGRAM*       20/04 L   20/04     20/04
        HCSE         1067   PROGRAM*        8/30 L    8/30      8/30
        ICS          4215   PROGRAM*       27/57 L   27/57     27/57
        IFERR4       3001   PROGRAM*       21/04 L   21/04     21/04
        IFP          1646   PROGRAM*       13/06 L   13/06     13/06
        IF00         2607   PROGRAM*       19/31 L   19/31     19/31
        IF01         2613   PROGRAM*       19/34 L   19/34     19/34
        IF02         2620   PROGRAM*       19/37 L   19/37     19/37
        IF03         2633   PROGRAM*       19/41 L   19/41     19/41
        IF05         2775   PROGRAM*       21/01 L   21/01     21/01
        IHDR         3231   PROGRAM*       22/36 L   22/36     22/36
        IMP1         1241   PROGRAM*        9/55 L    9/55      9/55
        IMP2         1363   PROGRAM*       10/55 L   10/55     10/55
        IMP3         1411   PROGRAM*       11/13 L   11/13     11/13
        IMP4         1464   PROGRAM*       11/38 L   11/38     11/38
        IMP5         1626   PROGRAM*       12/46 L   12/46     12/46
        INDEX         620   PROGRAM*        4/40 L    5/25
        I1           3424   PROGRAM*       24/01 L   24/01     24/01
        I10          3500   PROGRAM*       24/30 L   24/30     24/30
        I11          3510   PROGRAM*       24/34 L   24/34     24/34
        I12          3520   PROGRAM*       24/38 L   24/38     24/38
        I13          3532   PROGRAM*       24/42 L   24/42     24/42
        I14          3545   PROGRAM*       24/46 L   24/46     24/46
        I15          3557   PROGRAM*       24/50 L   24/50     24/50
        I17          3567   PROGRAM*       24/57 L   24/57     24/57
        I2           3431   PROGRAM*       24/04 L   24/04     24/04
        I3           3436   PROGRAM*       24/07 L   24/07     24/07
        I4           3443   PROGRAM*       24/10 L   24/10     24/10
        I5           3447   PROGRAM*       24/13 L   24/13     24/13
        I6           3454   PROGRAM*       24/16 L   24/16     24/16
        I9           3467   PROGRAM*       24/26 L   24/26     24/26
        LCC1         3311   PROGRAM*       23/05 L   23/05     23/05
        LCC3         4352   PROGRAM*       29/05 L   29/05     29/05
        LENGTH       4130   PROGRAM*       27/24 L   27/24     27/24
        LIOBIO       3167   PROGRAM*       22/17 L   22/17     22/17
        LIOEXP       3160   PROGRAM*       22/13 L   22/13     22/13
        LISTIO       1476   PROGRAM*       11/45 L   11/45     11/45
        LISTIOC      1506   PROGRAM*       11/51 L   11/51     11/51
        LOCF         4211   PROGRAM*       27/54 L   27/54     27/54
        LOVER           0   EXTERNAL*       6/50      6/55
        LSTPRO       1312   PROGRAM*       10/26 L   10/26     10/26
        LVL1         4144   PROGRAM*       27/31 L   27/31     27/31
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        LVL2         4150   PROGRAM*       27/34 L   27/34     27/34
        LVL3         4157   PROGRAM*       27/38 L   27/38     27/38
        LVL4         4165   PROGRAM*       27/42 L   27/42     27/42
        LVL5         4174   PROGRAM*       27/46 L   27/46     27/46
        LWAWORK         0   EXTERNAL*       6/50      6/55
        LWA2.0          0   EXTERNAL*       6/50      6/55
        L.ERHEAD        6                   4/45 D    5/17
        L.STITL         0   EXTERNAL*       5/18 S    6/31 S
        MSG1            3   PROGRAM*        5/12      5/17 L
        MSG2           10   PROGRAM*        5/25 L    6/18
        MSG5           30   PROGRAM*        5/28      6/22 L
        MSG6           36   PROGRAM*        6/47 L    6/53
        MSG7           44   PROGRAM*        6/44      6/52 L
        MSG8           45   PROGRAM*        6/45      6/48      6/52      6/55 L
        MVE=            0   EXTERNAL*       5/19      6/16
        NABC         3134   PROGRAM*       22/01 L   22/01     22/01
        NACMT        3345   PROGRAM*       23/19 L   23/19     23/19
        NAML         2656   PROGRAM*       20/11 L   20/11     20/11
        NANC         3107   PROGRAM*       21/46 L   21/46     21/46
        NATYP        3273   PROGRAM*       22/52 L   22/52     22/52
        NML1         1565   PROGRAM*       12/23 L   12/23     12/23
        NML2         1571   PROGRAM*       12/26 L   12/26     12/26
        NML3         1577   PROGRAM*       12/30 L   12/30     12/30
        NML4         1603   PROGRAM*       12/33 L   12/33     12/33
        NML5         1610   PROGRAM*       12/36 L   12/36     12/36
        NML6         1613   PROGRAM*       12/39 L   12/39     12/39
        NOMORE       3115   PROGRAM*       21/50 L   21/50     21/50
        NSASA        1471   PROGRAM*       11/41 L   11/41     11/41
        NSPARM       1443   PROGRAM*       11/30 L   11/30     11/30
        N.ERROR         0   EXTERNAL*       5/26
        N.FERR          0   EXTERNAL*       6/24
        OVLA            0   EXTERNAL*       6/50      6/55
        OVLB            0   EXTERNAL*       6/50      6/55
        OVL22           0   EXTERNAL*       6/50
        OVL25           0   EXTERNAL*       6/55
        O.ERHEAD      637   PROGRAM*        4/44 L    4/45      5/19
        O.ERTAB         0   TABLES          1/54 L    5/31
        O.STITL         0   EXTERNAL*       5/19      6/30 S
        PARITY       3200   PROGRAM*       22/21 L   22/21     22/21
        PRINTB       3371   PROGRAM*       23/31 L   23/31     23/31
        PRIN12       3305   PROGRAM*       23/02 L   23/02     23/02
        PROGRAM        56                   1/57 D    6/47
        PROG2        1072   PROGRAM*        8/33 L    8/33      8/33
        PROG3        1076   PROGRAM*        8/36 L    8/36      8/36
        PROG5        1111   PROGRAM*        8/43 L    8/43      8/43
        PROG7        1315   PROGRAM*       10/31 L   10/31     10/31
        PRSUB        2003   PROGRAM*       13/57 L   13/57     13/57
        P1           3261   PROGRAM*       22/48 L   22/48     22/48
        P1TM         1151   PROGRAM*        9/15 L    9/15      9/15
        P2NOGO          0   EXTERNAL*       6/25
        QFLAG           0   EXTERNAL*       6/23
        RETPAR       4366   PROGRAM*       29/12 L   29/12     29/12
        RTNFUNC      1433   PROGRAM*       11/26 L   11/26     11/26
        RTNMAIN      1426   PROGRAM*       11/23 L   11/23     11/23
        R=FLAG          0   EXTERNAL*       6/22
        S            3015   PROGRAM*       21/11 L   21/11     21/11
        SCANC        3142   PROGRAM*       22/05 L   22/05     22/05
1        FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FILE                COMPASS 3.7-871.     24/05/02. 15.53.31.      PAGE    37
        SYMBOLIC REFERENCE TABLE. 
  
        SCANOFLO     4135   PROGRAM*       27/27 L   27/27     27/27
        SCAN1        1116   PROGRAM*        8/48 L    8/48      8/48
        SCAN10       3277   PROGRAM*       22/55 L   22/55     22/55
        SCAN2        1121   PROGRAM*        8/51 L    8/51      8/51
        SCAN4        1127   PROGRAM*        8/57 L    8/57      8/57
        SCAN5        1132   PROGRAM*        9/03 L    9/03      9/03
        SCAN6        1136   PROGRAM*        9/06 L    9/06      9/06
        SCAN7        1141   PROGRAM*        9/09 L    9/09      9/09
        SCAN8        1145   PROGRAM*        9/12 L    9/12      9/12
        SCNR10       1154   PROGRAM*        9/17 L    9/17      9/17
        SCNR11       1164   PROGRAM*        9/20 L    9/20      9/20
        SCNR12       1740   PROGRAM*       13/43 L   13/43     13/43
        SEV           614   PROGRAM*        4/35 L    6/05
        SIGD         3242   PROGRAM*       22/40 L   22/40     22/40
        SS           3022   PROGRAM*       21/14 L   21/14     21/14
        SUB1         1173   PROGRAM*        9/26 L    9/26      9/26
        SUB2         1176   PROGRAM*        9/29 L    9/29      9/29
        S210         3152   PROGRAM*       22/09 L   22/09     22/09
        S3           1124   PROGRAM*        8/54 L    8/54      8/54
        TL.JECT         0   EXTERNAL*       5/16 S
        TNOCOM       4114   PROGRAM*       27/15 L   27/15     27/15
        TSUB         3405   PROGRAM*       23/39 L   23/39     23/39
        TYPE1        1255   PROGRAM*       10/06 L   10/06     10/06
        UNBAL        1367   PROGRAM*       11/03 L   11/03     11/03
        UNITNO       1101   PROGRAM*        8/39 L    8/39      8/39
        UNMATCH      1402   PROGRAM*       11/07 L   11/07     11/07
        U1           3575   PROGRAM*       25/12 L   25/12     25/12
        U2           3601   PROGRAM*       25/15 L   25/15     25/15
        U3           3606   PROGRAM*       25/18 L   25/18     25/18
        U4           3615   PROGRAM*       25/22 L   25/22     25/22
        U5           3621   PROGRAM*       25/25 L   25/25     25/25
        U6           3627   PROGRAM*       25/29 L   25/29     25/29
        U7           3640   PROGRAM*       25/33 L   25/33     25/33
        U8           3645   PROGRAM*       25/36 L   25/36     25/36
        U9           3656   PROGRAM*       25/40 L   25/40     25/40
        VACPAR       3036   PROGRAM*       21/22 L   21/22     21/22
        .OVL            1   FTNTEXT         6/33 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  SEVC
  
  
        ANSI            1                   3/27 D
        ASA             1                   3/27 D
        FC              1                   3/27 D
        FE              1                   3/27 D
        I               1                   3/27 D
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      653              IDENT  PS1CTL 
                        653                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       652 
                                        LITERALS* LOCAL         652         1 
                                        //        COMMON          0         1 
                                        DBGBLK2   COMMON          0       115 
                                        DBGBLK1   COMMON          0        10 
                                        NONFTNX   COMMON          0        11 
                                        DOLVL     COMMON          0         1 
                                        STSORD    COMMON          0         1 
                                        MACBUF    COMMON          0        20 
  
  
                                        ENTRY POINTS. 
  
                                        B=PS1CT          0+           DOFLAG           0+/DOLVL/    ADDWD          547+ 
                                        PH2CTL           4+           IPH2             6+           ALLAE          561+ 
                                        PH2RETN         47+           ADDREF         322+           INITBL         577+ 
                                        LDPS2          244+           ALLOC          456+           PTU            621+ 
                                        LSFLG            0+           CTBLOVL        516+           WRM            644+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        RSELECT   FSTEX     T.FPBL    NOLIST    F.RMAP    BUFOUT    GOTO      DOP 
                                        OPTLVL    O.ARLST   N.FP      L.EQV     CIO=      BUFIN     ASSIGN    CVDB
                                        N.FERR    L.ARLST   ORIGINS   L.COM     BUGSOUT   WRITE     ARITH     BUGACT
                                        O.CBT     S.ARLST   SIZES     IMFLG     END       READ      NAMELST   BUGPRO
                                        O.DIM     QFLAG     ROOMS     OVL22     ENTRY     DOPROC    DATA      POINTRS 
                                        DOLAB     R=FLAG    TINFO     LOVER     PUNCH     PAUSEP    N.ST      Z.ARLST 
                                        DOLABCN   PHASE     NAFVEC    OVLB      PRINT     STOPP     WLABM     IFTLU.P 
                                        ERPRO     NAF       MOVE      OVLA      ENDFILE   CONT      DBGINTX   SPPFLAG 
                                        ERPROI    LTN       FATALER   OVL25     BKSP      RETURN    WTW=
                                        FORMAT    LOWCORE   MVE=      LWA2.0    REW       CALL      F.RLST
                                        DFLAG     FWAWORK   SETCORE   FTNEND    DEC       IFL       N.EXST
                                        OPSTAK    LWAWORK   OVL23     N.ERROR   ENC       IFE       SCANNER 
  
  
  
  
                                                  IDENT  PS1CTL                                                  PS1CTL      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
  
  
  
  
                                        ***                                                                      PS1CTL      6
                                        *         PS1CTL$ IS THE INTERFACE ROUTINE BETWEEN SCANNER AND THE       PS1CTL      7
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     2
  
  
                                        *         STATEMENT PROCESSORS FOR ALL NON SPECIFICATION STATEMENTS      PS1CTL      8
                                        *                                                                        PS1CTL      9
                                                                                                                 PS1CTL     10
                                                                                                                 PS1CTL     11
             0                           B=PS1CT  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     PS1CTL     12
                                                  ENTRY  PH2CTL,PH2RETN,LDPS2                                    PS1CTL     13
                                                                                                                 PS1CTL     14
                                                  EXT    RSELECT,OPTLVL,N.FERR,O.CBT,O.DIM                       PS1CTL     15
                                                  EXT    DOLAB,DOLABCN,ERPRO,ERPROI,FORMAT,DFLAG                 PS1CTL     16
                                                  EXT    OPSTAK,FSTEX                                            PS1CTL     17
                                                  EXT    O.ARLST,L.ARLST,S.ARLST                                 PS1CTL     18
                                                  EXT    QFLAG,R=FLAG                                            PS1CTL     19
                                                                                                                 PS1CTL     20
                                        *         ERROR MESSAGES ISSUED BY PS1CTL$                               PS1CTL     21
                                                                                                                 PS1CTL     22
                                  22     E.CUL    EQU    18                CONFLICTING USE OF A LABEL            PS1CTL     23
                                  51     E.BDA    EQU    41                STATEMENT ILLEGAL IN BLOCK DATA       PS1CTL     24
                                  67     E.HCNF   EQU    55           HEADER CARD NOT FIRST STATEMENT            PS1CTL     25
                                 155     E.DECS   EQU    109               OUT OF SEQUENCE DECLARATIVE STMT      PS1CTL     26
                                 262     E.URS    EQU    178               NO PATH TO THIS STATEMENT             PS1CTL     27
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     3
  
  
                                        *         LOCATIONS USED BY THE "DEBUG" PROCESSOR                        DBGCOM      3
                                                                                                                 DBGCOM      4
                                                  USE    //                                                      DBGCOM      5
             0                     1     DEBUG    BSS    1                                                       DBGCOM      6
                                                  USE    *                                                       DBGCOM      7
                                                  USE    /DBGBLK2/                                               DBGCOM      8
             0                     1     D.SDRL   BSS    1            BEGINNING ADDRESS OF DRL RELATIVE TO //    DBGCOM      9
             1                     1     D.EDRL   BSS    1            NEXT AVAILABLE ORDINAL OF DRL              DBGCOM     10
             2                     1     D.SDVL   BSS    1            BEGINNING ADDRESS OF DVL RELATIVE TO //    DBGCOM     11
             3                     1     D.EDVL   BSS    1            NEXT AVAILABLE ORDINAL OF DVL              DBGCOM     12
             4                     1     D.SAREA  BSS    1            BEGINNING ADDRESS OF AREA LIST // RELATIVE DBGCOM     13
             5                     1     D.EAREA  BSS    1            NEXT AVAILABLE ORDINAL OF AREA LIST        DBGCOM     14
             6                     1     D.OPL    BSS    1            BEG. ADDRESS OF OPTIONS LIST // RELATIVE   DBGCOM     15
             7                     1     D.SSMTB  BSS    1            BEG. ADDRESS OF SYMTAB RELATIVE TO //      DBGCOM     16
            10                     1     D.ESMTB  BSS    1            NEXT AVAILABLE ORDINAL OF SYMTAB           DBGCOM     17
            11                     1     D.SAASI  BSS    1            BEGINNING ADDRESS OF AASI RELATIVE TO //   DBGCOM     18
            12                     1     D.RFMAP  BSS    1            FWA REFMAP OR ITS EQU REL TO //            DBGCOM     19
            13                     1     D.ELIST  BSS    1            CURRENT ELIST POINTER RELATIVE TO //       DBGCOM     20
            14                     1     D.LELST  BSSZ   1                 LELIST FOR BUGPRO                     DBGCOM     21
            15                     1     D.ELAST  BSS    1            ENDING ADDRESS OF ELIST RELATIVE TO //     DBGCOM     22
            16                     1     D.NESTW  BSS    1            CURRENT ADDRESS OF OPRIONS LIST            DBGCOM     23
            17                     1     D.SFDIT  BSS    1            BEG. ADD. OF FIXED AREA LIST // RELATIVE   DBGCOM     24
            20                     1     D.EFDIT  BSS    1            LAST ORDINAL + 1 OF FIXED AREA LIST        DBGCOM     25
            21                     1     D.CON1   BSS    1            BEG. ADD. OF CONLIST RELATIVE TO //        DBGCOM     26
            22                     1     D.CONL   BSS    1            LAST USED WORD ORDINAL OF CONLIST          DBGCOM     27
            23                     1     D.NAASI  BSS    1            NEXT AVAILABLE ORDINAL OF AASI             DBGCOM     28
            24                     1     SDBGIND  BSS    1            BEG. ADD. OF RANDOM DEBUG INDEX REL. TO // DBGCOM     29
            25                     1     D.STOR   BSSZ   1            SCANNERS CONSTOR FOR BUGCON                DBGCOM     30
            26                     1     D.SCON1  BSSZ   1            SCANNERS CONSTOR RELATIVE TO //            DBGCOM     31
            27                     1     D.DOLAST BSS    1            DOLAST FOR FTN DEBUG ROUTINES              DBGCOM     32
            30                     1     D.NOGO   BSSZ   1            .NE. 0 IF DEBUG STMTS NOT TO BE EXECUTED   DBGCOM     33
            31                     1     D.PACK   BSSZ   1                                                       DBGCOM     34
            32                     1     D.POW    BSS    1            PREVIOUS OPTION WORD                       DBGCOM     35
            33                     1     D.OPFLG  BSSZ   1            .NE. 0 IF OPTIONS HAVE TO BE WRITTEN OUT   DBGCOM     36
            34                     1     D.ON     BSS    1            0 IF TURNING ON OPTIONS. .NE.0 IF OFF      DBGCOM     37
            35                     1     D.NOERR  BSS    1            NO. OF ERRORS IN AREA LIST                 DBGCOM     38
            36                     1     D.PADD   BSS    1           = 0 IF INTERSPERSED  (FOR TURNON)           DBGCOM     39
            37                     1     FEFLAG   BSSZ   1            IF .NE. 0 CAUSES LIST OF FE STMT IN NOLIST DBGCOM     40
            40                     1     D.OPEN   BSSZ   1            .EQ.1 IF DUNIT OPEN, 0 IF CLOSED           DBGCOM     41
            41                     1     DBGPROG  BSSZ   1            LOCATION 56 FOR FTN DEBUG ROUTINES         DBGCOM     42
            42                     1     LDEBUG   BSSZ   1                 LOCATION OF DEBUG FOR FTN DEBUG RTNS  DBGCOM     43
            43                     1     RECORD   BSSZ   1                 NEXT AVAILABLE RECORD NUMBER          DBGCOM     44
            44                     1     DISPOW   BSSZ   1                 DISPLAY FOR OPTIONS HEADER            DBGCOM     45
            45                     1     SUCCESS  BSSZ   1                 FLG FOR EXTERNAL PACKET ON DISK       DBGCOM     46
            46                     1     LTFLAG   BSS    1            .TRUE. IF PROCESSING AN OFF STMT           DBGCOM     47
            47                     1     LFLAG    BSS    1            .TRUE. IF PROCESSING AN INTERSPERSED OFF   DBGCOM     48
            50                     1     NOPROG   BSSZ   1            NON ZERO IF NO PROGRAM CARD AND            DBGCOM     49
                                                                      CALLING DBGIPKT ONLY TO SET UP             DBGCOM     50
                                                                      FOR FURTHER PROCESSING                     DBGCOM     51
            51                     2     D.CURUD  BSS    2            UPDATE ID OF CURRENT STATEMENT             DBGCOM     52
            53                     1     D.DUKE1  BSS    1            BIN. LINE NO. OF START OF CURRENT STMT.    DBGCOM     53
            54                     1     D.LABEL  BSS    1            LABEL OF CURRENT STATEMENT                 DBGCOM     54
            55                     1     D.TYPE   BSS    1            STATEMENT TYPE                             DBGCOM     55
            56                     1     D.NEST   BSS    1            CURRENT POSITION IN D.NESTW                DBGCOM     56
            57                     1     LNGIND   BSS    1            LENGTH OF THE INDEX OF DEBUG RANDOM FILE   DBGCOM     57
            60  00000000000000000000     NOACT    DATA   0           .ZR. IF PACKET INFO AVAILABLE, .MI. IF NOT  DBGCOM     58
            61                     1     AREAFLG  BSSZ   1                 AREA LIST FLAG                        DBGCOM     59
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     4
                                                                                DBGBLK2 
  
            62                     1     LNGDRL   BSSZ   1                 LENGTH ALLOTTED TO THE DRL            DBGCOM     60
            63                     1     LNGDVL   BSSZ   1                 LENGTH ALLOTTED TO THE DVL            DBGCOM     61
            64                     1     C.PACK   BSS    1                 E IF EXTERNAL PACKET, I IF INTERNAL   DBGCOM     62
            65                    24     UPDTTBL  BSS    20                TABLE FOR UPDATE IDS ON COMMENT CDS   DBGCOM     63
           111                     1     COUNTUP  BSSZ   1                 NUMBER OF ENTRIES IN UPDTTBL          DBGCOM     64
           112                     1     SCNUPDT  BSSZ   1                 .NE. 0 IF PUTUPDT ENTERED FM SCANNER  DBGCOM     65
           113                     1     INDEXNO  BSSZ   1                 1 IF NO INTERNAL PACKET INFO, 3 ELSE  DBGCOM     66
           114                     1     PHSFLAG  BSSZ   1            .LT. 0 IF BETWEEN PHASES                   DBGCOM     67
                                                  USE    *                                                       DBGCOM     68
                                                  USE    /DBGBLK1/                                               DBGCOM     69
             0                     1     ALLARR   BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL ARRAYS     DBGCOM     70
             1                     1     ALLCALL  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL CALLS      DBGCOM     71
             2                     1     ALLFUNC  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL FUNCTIONS  DBGCOM     72
             3                     1     GOTOSFL  BSSZ   1            .NE. 0 IF GO TOS OPTION IS ON              DBGCOM     73
             4                     1     NOGOFLG  BSSZ   1            .NE. 0 IF NO EXECUTION DESPITE FATAL ERROR DBGCOM     74
             5  77777777777777777776     TRACEL   DATA   -1           CURRENT TRACE LEVEL                        DBGCOM     75
             6                     1     ALLROU   BSS    1            .NE. 0 IF OPLIST APPLIES TO ALL ROUTINES   DBGCOM     76
             7  23201104052257000000     SPIDER   VFD    42/7LSPIDER.,18/0                                       DBGCOM     77
                                                  USE    *                                                       DBGCOM     78
                                                  USE    /NONFTNX/                                               DBGCOM     79
             0                     1     D.COL    BSSZ   1            .NE. 0 IF EXT DEBUG PACKET ALREADY DONE    DBGCOM     80
             1                     1     DTYPE    BSSZ   1            = 0 IF NEXT STMT NOT DEBUG STMT            DBGCOM     81
                                   1 C   C$STMT   =      DTYPE                                                   DBGCOM     82
                                        *C$STMT   BSSZ   1           .NZ. IF NEXT STMT IS C$-DEBUG, .ZR. IF NOT  DBGCOM     83
             2                     2     D.NCURU  BSSZ   2            UPDATE ID OF NEXT STATEMENT                DBGCOM     84
             4                     1     D.NDUKE  BSSZ   1            BIN. LINE NO. OF START OF NEXT STMT        DBGCOM     85
             5                     1     D.NLBEL  BSSZ   1            LABEL OF NEXT STATEMENT                    DBGCOM     86
             6                     1     DBGRFMP  BSSZ   1            LAST USED WD OF REFMAP OR EQUIVALENT       DBGCOM     87
             7                     1     DBGPHCT  BSSZ   1            " 0 WHILE DBGPHCT HAS CONTROL              FCC1852    10
            10                     1     D.CURT   BSSZ   1           .LT. 0 IF CURRENT STATEMENT IS C$ DEBUG     FCC2119     6
                                                  USE    *                                                       DBGCOM     88
                                                  PURGMAC CALLF                                                  DBGCOM     89
                                         CALLF    MACRO  NAME,RESET                                              DBGCOM     90
                                                  SA1    =0                                                      DBGCOM     91
                                                  RJ     =X_NAME                                                 DBGCOM     92
                                                  IFC    NE, RESET  ,4                                           DBGCOM     93
                                                  IFC    EQ, RESET B1 ,2                                         DBGCOM     94
                                                  SB1    1                                                       DBGCOM     95
                                                  SKIP   1                                                       DBGCOM     96
                                                  SB5    1                                                       DBGCOM     97
                                         CALLF    ENDM                                                           DBGCOM     98
  
  
  
                                        ***                                                                      DBGCOM    100
                                        *         DBGERR - CALL ROUTINE TO PRINT AN ERROR MESSAGE WHEN IN DEBUG  DBGCOM    101
                                        *                MODE                                                    DBGCOM    102
                                        *                ARGUMENT IS TEXT OF THE MESSAGE                         DBGCOM    103
                                        *                                                                        DBGCOM    104
                                                  PURGMAC DBGERR                                                 DBGCOM    105
                                         DBGERR   MACRO  TEXT                                                    DBGCOM    106
                                                  RJ     =XSAVREG                                                DBGCOM    107
                                                  SA5    =C/TEXT/                                                DBGCOM    108
                                                  RJ     =XDBGERR                                                DBGCOM    109
                                                  RJ     =XRESREG                                                DBGCOM    110
                                                  ENDM                                                           DBGCOM    111
                                  47     DBGFSTT  EQU    39                                                      DBGCOM    112
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     5
  
  
                                  62     DBGEXTP  EQU    50                                                      DBGCOM    113
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     6
  
  
                                        ***                                                                      PS1CTL     30
                                        *         JMP - FORM JUMP VECTOR FOR STATEMENT PROCESSING                PS1CTL     31
                                        *                                                                        PS1CTL     32
                                        *         PROG IS THE NAME OF THE STATEMENT PROCESSOR                    PS1CTL     33
                                        *         LSFLAG IS TO BE SET FOR RETURN, GOTO OR ARITHMETIC IF STMTS    PS1CTL     34
                                        *                                                                        PS1CTL     35
                                         JMP      MACRO  PROG,LSFLAG,FSTX                                        PS1CTL     36
                                                  IFC    EQ,//LSFLAG/                                            PS1CTL     37
                                                  SA6    B6                LS FLAG = 0                           PS1CTL     38
                                                  ELSE                                                           PS1CTL     39
                                                  SA7    B6                LS FLAG = 1                           PS1CTL     40
                                                  ENDIF                                                          PS1CTL     41
                                                  RJ     =X_PROG                                                 PS1CTL     42
                                                  EQ     PH2RETN                                                 PS1CTL     43
                                                  ENDM                                                           PS1CTL     44
                                                                                                                 PS1CTL     45
                                                                                                                 PS1CTL     46
                                        *         EQU"S FOR RA CELLS USED BY THE COMPILER                        PS1CTL     47
                                                                                                                 PS1CTL     48
                                  12     SYM1     EQU    12B               FWA OF THE SYMBOL TABLE               PS1CTL     49
                                  13     SYMEND   EQU    13B               LWA OF THE SYMBOL TABLE               PS1CTL     50
                                  17     DIM1     EQU    17B               30/LENGTH,30/FWA OF DIM TABLE         PS1CTL     51
                                  21     LTYPE    EQU    21B               TYPE OF LOGICAL IF                    PS1CTL     52
                                  23     CLABEL   EQU    23B               LABEL OF CURRENT STMT                 PS1CTL     53
                                  24     TYPE     EQU    24B               STATEMENT TYPE CODE ( 0 - 37 )        PS1CTL     54
                                  32     SELIST   EQU    32B               FWA OF E LIST                         PS1CTL     55
                                  34     LELIST   EQU    34B               E LIST POINTER FOR LOGICAL IF         PS1CTL     56
                                  37     DUKE     EQU    37B               BINARY LINE COUNT                     PS1CTL     57
                                  51     ATYPE    EQU    51B               ARITHMETICS FOR TYPES 3 AND 8 QQQQQQQ PS1CTL     58
                                  56     PROGRAM  EQU    56B               E LIST OF SUBPROGRAM NAME             PS1CTL     59
                                  64     NRLN     EQU    64B               NEXT AVAILABLE NUMBER FOR RI          PS1CTL     60
                                                                                                                 PS1CTL     61
             0  00000000000000000000     LSFLG    ENTRY.                   .NE. 0 IF LAST STMT WAS UNCONDITIONAL PS1CTL     65
                                        *                                  JUMP ( ARITH IF , RETURN OR GOTO )    PS1CTL     66
                                                                                                                 PS1CTL     67
                                                  USE    /DOLVL/                                                 PS1CTL     68
             0  00000000000000000000     DOFLAG   ENTRY.                   LEVEL OF NESTING                      PS1CTL     69
                                                  USE    /STSORD/                                                PS1CTL     70
             0                     1     STSORD   BSSZ   1                 NUMBER OF STMT TEMPORARIES GENERATED  PS1CTL     71
                                                  USE    *                 FOR A SINGLE STATEMENT                PS1CTL     72
                                                                                                                 PS1CTL     73
                                                  USE    /MACBUF/                                                PS1CTL     74
             0                    20     MACBUF   BSS    16                TEMPORARY STORAGE FOR VARIOUS ROUTINE PS1CTL     75
                                                  USE    0                                                       PS1CTL     76
                                                                                                                 PS1CTL     77
                                                                                                                 PS1CTL     78
                                                                                                                 PS1CTL     79
                                        *         R-LIST MACRO SKELETON FOR *RJ FTNERR.* (ISSUED IN DEBUG ONLY). PS1CTL     80
                                                                                                                 PS1CTL     81
                                 122     RJ60     =      122B                                                    PS1CTL     82
             1  16550000020000000000     FERRMAC  RMHDR  RJ60,2      MACRO WORD 1                                PS1CTL     83
             2                     2              BSSZ   2           WORDS 2 AND 3                               PS1CTL     84
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     7
         MAIN LOOP
  
                                        **        PH2CTL - ENTRY POINT TO PHASE 2 FROM *DPCLOSE*                 PS1CTL     87
                                                                                                                 PS1CTL     88
             4  7170000002               PH2CTL   SX7    2                                                       PS1CTL     89
                          5170000064              SA7    NRLN        NRLN = 2                                    PS1CTL     90
             5  0400000057 +                      EQ     D.PS4                                                   PS1CTL     91
  
  
                                        ***                                                                      PS1CTL     93
                                        *         IPH2 - INITIALIZE PHASE 2 FOR EXECUTABLE STMT PROCESSING       PS1CTL     94
                                        *                                                                        PS1CTL     95
             6  00000000000000000000     IPH2     ENTRY.                                                         PS1CTL     96
             7  5110000037                        SA1    DUKE                                                    PS1CTL     97
                          5130000000 X            SA3    =XSPPFLAG                                               PS1CTL     98
            10  0303000012 +                      ZR     X3,IPH2.0         IF SPP OPTION NOT SELECTED            PS1CTL     99
                          5120000001 X            SA2    =XIFTLU.P+1                                             PS1CTL    100
            11  10622                             BX6    X2                                                      PS1CTL    101
                     5062777776                   SA6    A2-1                                                    PS1CTL    102
            12  22701                    IPH2.0   LX7    X1                                                      PS1CTL    103
                     5170000000 X                 SA7    FSTEX             FSTEX = LINE NUM OF FIRST EXEC STMT   PS1CTL    104
            13  5110000000 X                      SA1    LWAWORK                                                 PS1CTL    105
                          5120000000 X            SA2    FWAWORK                                                 PS1CTL    106
            14  37312                             IX3    X1-X2             WORKING STORAGE AVAILABLE             PS1CTL    107
                     7243777377                   SX4    X3-400B           ENSURE AT LEAST 400B WORDS LEFT       PS1CTL    108
            15  0334000516 +                      NG     X4,CTBLOVL        ERROR IF NOT                          PS1CTL    109
                          7150003200              SX5    ARLSZ             ARLIST BUFFER SIZE DEFAULT            PS1CTL    110
            16  37354                             IX3    X5-X4                                                   PS1CTL    111
                     0333000017 +                 NG     X3,IPH2.2         USE MINIMUM OF THE TWO SIZES          PS1CTL    112
                               73540              SX5    X4                                                      PS1CTL    113
            17  5100000000 X             IPH2.2   ALLOC  ARLST,X5          ALLOCATE ARLIST BUFFER SPACE          PS1CTL    114
            20  5120000000 X                      SA2    S.ARLST           AMOUNT OF STORAGE ALLOCATED           PS1CTL    115
                          5130000000 X            SA3    O.ARLST           ARLIST BUFFER BASE                    PS1CTL    116
            21  10622                             BX6    X2                                                      PS1CTL    117
                     63330                        SB3    X3                FWA OF ARLIST BUFFER                  PS1CTL    118
                          5110000001 X            SA1    OPSTAK+1          BEGINNING OF ADDSUB INFORMATION       PS1CTL    119
            22  5160000000 X                      SA6    L.ARLST           AMOUNT OF ALLOCATION USED             PS1CTL    120
                          6150000001              SB5    1                                                       PS1CTL    121
            23  43052                             MX0    60-18                                                   PS1CTL    122
                     6160000074                   SB6    60                                                      PS1CTL    123
            24  26771                    LOOP     UX7    B7,X1             GET SHIFT COUNT AND ADDRESS           PS1CTL    124
                     67467                        SB4    B6-B7             COMPUTE SHIFT COUNT                   PS1CTL    125
                          53470                   SA4    X7                TARGET WORD FOR ADDRESS SUBSTITUTION  PS1CTL    126
                               22144              LX1    B4,X4             POSITION INSTRUCTION                  PS1CTL    127
            25  22770                             LX7    B7,X0             POSITION MASK                         PS1CTL    128
                     63210                        SB2    X1                ADDRESS BIAS                          PS1CTL    129
                          11174                   BX1    X7*X4             CLEAR BIAS                            PS1CTL    130
                               76323              SX3    B2+B3             ADD ARLIST BUFFER ADDRESS TO BIAS     PS1CTL    131
            26  22573                             LX5    B7,X3             POSITION RESULT                       PS1CTL    132
                     12615                        BX6    X1+X5             INSERT ADDRESS INTO INSTRUCTION       PS1CTL    133
                          54115                   SA1    A1+B5             NEXT ADDSUB INFORMATION WORD          PS1CTL    134
                               54640              SA6    A4                RESTORE                               PS1CTL    135
            27  0311000024 +                      NZ     X1,LOOP                                                 PS1CTL    136
                          5120000000 X            SA2    DFLAG                                                   PS1CTL    137
            30  0302000006 +                      ZR     X2,IPH2           IF D OPTION NOT SELECTED              PS1CTL    138
                          0100000000 X            RJ     =XPOINTRS         SET UP POINTERS FOR BUGPRO            PS1CTL    139
            31  5110000652 +                      CALLF  BUGPRO,B5         INIT FOR DEBUG PROCESSING             PS1CTL    140
                          7130777776 C            SX3    DEBUG-1                                                 PS1CTL    141
            33  5120000007 C                      SA2    D.SSMTB                                                 PS1CTL    142
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     8
         MAIN LOOP
  
                          36623                   IX6    X2+X3                                                   PS1CTL    143
            34  5160000012                        SA6    SYM1              UPDATE SYM1                           PS1CTL    144
                          5120000010 C            SA2    D.ESMTB                                                 PS1CTL    145
            35  36623                             IX6    X2+X3                                                   PS1CTL    146
                     5160000013                   SA6    SYMEND            UPDATE SYMEND                         PS1CTL    147
            36  5120000015 C                      SA2    D.ELAST                                                 PS1CTL    148
                          36623                   IX6    X2+X3                                                   PS1CTL    149
            37  5160000000 X                      SA6    LWAWORK           UPDATE LWAWORK                        PS1CTL    150
                          5120000013 C            SA2    D.ELIST                                                 PS1CTL    151
            40  36623                             IX6    X2+X3                                                   PS1CTL    152
                     5160000032                   SA6    SELIST            UPDATE SELIST                         PS1CTL    153
            41  5120000060 C                      SA2    NOACT                                                   PS1CTL    154
                          0312000045 +            NZ     X2,IPH2.1         NO PACKET INFORMATION                 PS1CTL    155
            42  43600                             MX6    0                                                       PS1CTL    156
                     5160000034 C                 SA6    D.ON                                                    PS1CTL    157
            43  5110000652 +                      CALLF  BUGACT,B5         ACTIVATE OPTIONS                      PS1CTL    158
            45  0100000000 X             IPH2.1   CALL   CVDB        ISSUE *COMPUTE VARDIM BOUNDS* R-MACRO       PS1CTL    159
            46  0400000006 +                      EQ     IPH2                                                    PS1CTL    160
  
  
  
                                        ***                                                                      PS1CTL    162
                                        *         PH2RETN - RETURN POINT FROM STMT PROCESSOR S                   PS1CTL    163
                                        *                                                                        PS1CTL    164
            47  5110000023               PH2RETN  SA1    CLABEL                                                  PS1CTL    165
                          6150000001              SB5    1                                                       PS1CTL    166
            50  0301000051 +                      ZR     X1,PH2EL    IF NO LABEL                                 PS1CTL    167
                          0100000000 X            RJ     DOLAB             OUTPUT DOEND MACROS FOR LOOPS THAT    PS1CTL    168
                                        *                                  TERMINATE ON THIS STMT                PS1CTL    169
                                                                                                                 PS1CTL    170
            51  5150000000 X             PH2EL    SA5    RSELECT                                                 PS1CTL    171
                          0305000053 +            ZR     X5,PH2DB          R = 0                                 PS1CTL    172
            52  66100                             ADDREF B0                TERMINATE THE LINE OF REFERENCES      PS1CTL    173
                                                                                                                 PS1CTL    174
            53  5130000000 X             PH2DB    SA3    DFLAG                                                   PS1CTL    175
                          0303000056 +            ZR     X3,PH2SCAN        IF NOT DEBUG MODE                     PS1CTL    176
            54  0100000000 X                      CALL   DOP         DEBUG OPTIONS PROCESSOR                     PS1CTL    177
            55  6150000001                        SB5    1                                                       PS1CTL    178
                          0400000057 +            EQ     D.PS4       CONTINUE MAIN *PS1CTL* LOOP                 PS1CTL    179
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE     9
         MAIN LOOP
  
                                        ***                                                                      PS1CTL    181
                                        *         PH2SCAN - START OF STATEMENT PROCESSING LOOP                   PS1CTL    182
                                        *                                                                        PS1CTL    183
            56  0100000000 X             PH2SCAN  CALL   SCANNER     TYPE AND CONVERT STMT TO E-LIST             PS1CTL    184
                                                                                                                 PS1CTL    185
            57  5120000024               D.PS4    SA2    TYPE                                                    PS1CTL    186
                          7262777763              SX6    X2-12                                                   PS1CTL    187
            60  0336000073 +                      MI     X6,D.PS4A   IF NOT EXECUTABLE                           PS1CTL    188
                                                                                                                 PS1CTL    189
                          5130000064              SA3    NRLN                                                    PS1CTL    190
            61  5140000000 X                      SA4    =XN.EXST                                                PS1CTL    191
                          7263703777              SX6    X3-74000B                                               PS1CTL    192
            62  73745                             SX7    X4+B5       N.EXST = N.EXST + 1                         PS1CTL    193
                     54740                        SA7    A4                                                      PS1CTL    194
                          0336000065 +            MI     X6,D.PSAA   IF NRLN < 74000B                            PS1CTL    195
                                                                                                                 PS1CTL    196
            63  6170000146 +                      WRM    EOSM        *EOS* TO RLIST TO STOP SEQ ACCUMULATION     PS1CTL    197
            64  7160000002                        SX6    2                                                       PS1CTL    198
                          5160000064              SA6    NRLN        NRLN = 2                                    PS1CTL    199
                                                                                                                 PS1CTL    200
            65  5140000037               D.PSAA   SA4    DUKE                                                    PS1CTL    201
                          5130000064              SA3    NRLN                                                    PS1CTL    202
            66  20436                             LX4    R1.INP                                                  PS1CTL    203
                     6130000001                   SB3    OC.BOS                                                  PS1CTL    204
                               36534              IX5    X3+X4                                                   PS1CTL    205
            67  27635                             PX6    B3,X5                                                   PS1CTL    206
                     5160000000 C                 SA6    MACBUF                                                  PS1CTL    207
                               66150              SB1    B5                                                      PS1CTL    208
            70  64660                             WRITEW =XF.RLST,A6,1                                           PS1CTL    209
            72  66510                             SB5    B1                                                      PS1CTL    210
                                                                                                                 PS1CTL    211
            73  5120000024               D.PS4A   SA2    TYPE                                                    PS1CTL    212
                          5110000023              SA1    CLABEL                                                  PS1CTL    213
            74  5130000056                        SA3    PROGRAM                                                 PS1CTL    214
                          63720                   SB7    X2           SET TYPE IN B7                             PS1CTL    215
            75  0313000102 +                      NZ     X3,PS2SC6         IF NOT BLOCK DATA                     PS1CTL    216
                          5120000153 +            SA2    BDTYPE                                                  PS1CTL    217
            76  22272                             LX2    X2,B7                                                   PS1CTL    218
                     0322000121 +                 PL     X2,D.BDA          IF TYPE NOT ALLOWED IN BLK DATA       PS1CTL    219
            77  6167777775                        SB6    B7-2                                                    PS1CTL    220
                          0760000105 +            LT     B6,D.PS5          IF A HEADER CARD                      PS1CTL    221
           100  6166777767                        SB6    B6-10+2                                                 PS1CTL    222
                          0760000113 +            LT     B6,D.DEC          IF A DECLAR. OUT OF SEQUENCE          PS1CTL    223
           101  0400000134 +                      EQ     PS2SC.S                                                 PS1CTL    224
                                                                                                                 PS1CTL    225
           102  6160000014               PS2SC6   SB6    12                                                      PS1CTL    226
                          0676000125 +            GE     B7,B6,PS2SC3      IF NOT DECLARATIVE                    PS1CTL    227
           103  6140000011                        SB4    9                                                       PS1CTL    228
                          0747000134 +            GT     B7,B4,PS2SC.S     IF NOT A SPECIFICATION STMT           PS1CTL    229
           104  0474000123 +                      EQ     B7,B4,PS2SC.F     IF A FORMAT STMT                      PS1CTL    230
                          0757000113 +            GT     B7,B5,D.DEC  IF NOT A HEADER CARD                       PS1CTL    232
                                                                                                                 FCC0628     9
           105  6160777710               D.PS5    POSTER SEV=FE,NR=E.HCNF *HDR OUT OF SEQ*                       FCC1768    17
           107  5110000001 C                      SA1    C$STMT                                                  FCC1768    18
                          0301000056 +            ZR     X1,PH2SCAN  IF NEXT STMT IS NOT C$DEBUG STMT            FCC1768    19
           110  0100000000 X                      CALL   SCANNER     BURST NEXT STMT INTO A SBUFF                FCC1768    20
           111  0100000000 X                      CALL   DBGINTX     PROCESS DEBUG STMT                          FCC1768    21
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    10
         MAIN LOOP
  
           112  0400000056 +                      EQ     PH2SCAN     REJOIN NORMAL FLOW OF PROGRAM               FCC1768    22
                                                                                                                 FCC0628    11
           113  6160777622               D.DEC    POSTER SEV=FE,NR=E.DECS *DECL OUT OF SEQ*                      FCC1768    23
           115  5110000001 C                      SA1    C$STMT                                                  FCC1768    24
                          0301000056 +            ZR     X1,PH2SCAN  IF NEXT STMT IS NOT C$DEBUG STMT            FCC1768    25
           116  0100000000 X                      CALL   SCANNER     BURST NEXT STMT INTO A SBUFF                FCC1768    26
           117  0100000000 X                      CALL   DBGINTX     PROCESS DEBUG STMT                          FCC1768    27
           120  0400000056 +                      EQ     PH2SCAN     REJOIN NORMAL FLOW OF PROGRAM               FCC1768    28
                                                                                                                 FCC0628    13
           121  6160777726               D.BDA    POSTER SEV=FE,NR=E.BDA,RETURN=PH2SCAN  *ILL STMT IN BLK DATA*  FCC0628    14
                                                                                                                 FCC0628    15
           123  0100000000 X             PS2SC.F  CALL   FORMAT      PROCESS FORMAT STATEMENT                    FCC0628    16
           124  0400000051 +                      EQ     PH2EL                                                   PS1CTL    260
                                                                                                                 PS1CTL    261
                                        *         CHECK FOR UNREACHABLE STMTS                                    PS1CTL    262
                                                                                                                 PS1CTL    263
           125  5120000000 +             PS2SC3   SA2    LSFLG                                                   PS1CTL    264
                          0302000133 +            ZR     X2,PS2SC4         IF LAST STMT WAS NOT AN UNCONDITIONAL PS1CTL    267
                                        *                                  JUMP                                  PS1CTL    268
           126  0311000133 +                      NZ     X1,PS2SC4         IF THIS STMT HAS A LABEL              PS1CTL    269
                          5130000147 +            SA3    JMPBIT            BIT VECTOR                            PS1CTL    270
           127  22473                             LX4    B7,X3                                                   PS1CTL    271
                     0334000133 +                 MI     X4,PS2SC4   IF THIS STMT TERMINATES THE BLOCK           FCC1425     5
                               43500              MX5    0                                                       PS1CTL    273
           130  0100000000 X                      CALL   WLABM       OUTPUT A LABEL MAC WITH IH = 0 FOR PASS 2   PS1CTL    274
                                                                                                                 PS1CTL    275
           131  6160777515                        POSTER SEV=INF,NR=E.URS,RETURN=PS2SC.S  *UNREACHABLE STMT*     FCC0628    17
                                                                                                                 PS1CTL    279
           133  0301000134 +             PS2SC4   ZR     X1,PS2SC.S        IF NO LABEL                           PS1CTL    280
                          0100000000 X            RJ     DOLABCN           PROCESS LABEL DEFINITION              PS1CTL    281
                                                                                                                 PS1CTL    282
                                        *         CHECK AND RESET MISCELLANEOUS FLAGS                            PS1CTL    283
                                                                                                                 PS1CTL    284
           134  5130000000 C             PS2SC.S  SA3    STSORD            NUMBER OF ST. S USED FOR LAST STMT    PS1CTL    285
                          5140000000 X            SA4    =XN.ST                                                  PS1CTL    286
           135  43600                             MX6    0                                                       PS1CTL    287
                     54630                        SA6    A3                RESET STSORD                          PS1CTL    288
                          37543                   IX5    X4-X3             STMAX-STSORD                          PS1CTL    289
           136  0325000137 +            +         PL     X5,*+1                                                  PS1CTL    290
                          73730                   SX7    X3                                                      PS1CTL    291
                               54740              SA7    A4          N.ST = MAX( N.ST , STSORD )                 PS1CTL    292
                                                                                                                 PS1CTL    293
           137  5110000024                        SA1    TYPE                                                    PS1CTL    294
                          63710                   SB7    X1                                                      PS1CTL    295
           140  5120000000 X             DBG1     SA2    FSTEX                                                   PS1CTL    296
                          0312000144 +            NZ     X2,PS2SC.S1       IF EXECUTABLES APPEARED               PS1CTL    297
                                                                                                                 PS1CTL    298
           141  5130000151 +                      SA3    BT.EXEC           BIT TABLE                             PS1CTL    299
                          22473                   LX4    B7,X3                                                   PS1CTL    300
           142  0334000144 +                      NG     X4,PS2SC.S1       IF STMT IS NOT EXECUTABLE             PS1CTL    301
                                                                                                                 PS1CTL    302
                          0100000006 +            RJ     IPH2              INITIALIZE FOR PHASE 2                PS1CTL    303
                                                                                                                 PS1CTL    304
           143  5110000024                        SA1    TYPE                                                    PS1CTL    305
                          63710                   SB7    X1                                                      PS1CTL    306
                                                                                                                 PS1CTL    307
           144  66377                    PS2SC.S1 SB3    B7+B7             2*STMT TYPE                           PS1CTL    308
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    11
         MAIN LOOP
  
                     43600                        MX6    0                 X6 = 0                                PS1CTL    309
                          76750                   SX7    B5                X7 = 1                                PS1CTL    310
           145  6160000000 +                      SB6    LSFLG                                                   PS1CTL    311
                          0233000130 +            JP     VTABL-2*10+B3     JUMP TO APPROPIATE STMT PROCESSOR     PS1CTL    312
           146  20020000000000000000     EOSM     VFD    12/2000B+OC.EOS,48/0                                    PS1CTL    313
  
  
  
                                        *         BIT 59-I ON IF STMT WITH TYPE I TERMINATES SUBPROGRAM          PS1CTL    315
                                                                                                                 PS1CTL    316
           147  00000                    JMPBIT   VFD    13/0              0 - 12                                PS1CTL    317
                    2                             VFD    1/-0              13                                    PS1CTL    318
                    00000000                      VFD    22/0              14 - 35                               PS1CTL    319
                            6                     VFD    2/-0              36 - 37                               PS1CTL    320
                            00000000              VFD    32/0              38 - 59                               PS1CTL    321
           150  0000
                                                                                                                 PS1CTL    322
                                        *         BIT 59-I SET IF STMT WITH TYPE CODE = I IS NOT EXECUTABLE      PS1CTL    323
                                                                                                                 PS1CTL    324
           151  77776                    BT.EXEC  VFD    14/-0        0 - 13                                     FCC0628    18
                    00                            VFD    4/0         14 - 17                                     FCC0628    19
                      4                           VFD    1/-0        18                                          FCC0628    20
                      000000                      VFD    17/0        19 - 35                                     FCC0628    21
                            77777777              VFD    34/-0       36 - 59                                     FCC0628    22
           152  7774
                                        *         STATEMENT TYPE MASK FOR BLOCK DATA                             PS1CTL    328
           153  60                       BDTYPE   VFD    2/3,2/0           HEADER CARD TYPES                     PS1CTL    329
                 33                               VFD    5/33B             ALLOWABLE DECLARATIVES                PS1CTL    330
                   2200000002                     VFD    5/11B,23/0,1/1    ALLOWABLE EXECUTABLES(DATA, END)      PS1CTL    331
                            00000000              VFD    22/0              ALL OTHERS ILLEGAL                    PS1CTL    332
  
  
  
                                        ***                                                                      PS1CTL    334
                                        *         JUMP TABLE FOR THE STATEMENT PROCESSORS                        PS1CTL    335
                                        *                                                                        PS1CTL    336
           154  0100000000 X             VTABL    RJ     =XDATA            10 - DATA STMT                        PS1CTL    337
           155  0400000051 +                      EQ     PH2EL                                                   PS1CTL    338
                                                                                                                 PS1CTL    339
           156  0100000000 X                      RJ     =XNAMELST         11 - NAMELIST/GN/...                  PS1CTL    340
           157  0400000051 +                      EQ     PH2EL                                                   PS1CTL    341
                                                                                                                 PS1CTL    342
           160  56660                             JMP    ARITH,,NX         12- ASF OR V = E                      PS1CTL    343
                                                                                                                 PS1CTL    344
           162  0100000000 X                      RJ     END               13 - END CARD                         PS1CTL    345
           163  0400000244 +                      EQ     LDPS2             LOAD PASS 2                           PS1CTL    346
                                                                                                                 PS1CTL    347
           164  56660                             JMP    ASSIGN            14 - ASSIGN N TO I                    PS1CTL    348
                                                                                                                 PS1CTL    349
           166  56760                             JMP    GOTO,1            15 - GO TO I , ETC                    PS1CTL    350
                                                                                                                 PS1CTL    351
           170  56760                             JMP    IFE,1             16 - IF(E) N1,N2,N3                   PS1CTL    352
                                                                                                                 PS1CTL    353
           172  56660                             JMP    IFL               17 - IF(E) S                          PS1CTL    354
                                                                                                                 PS1CTL    355
           174  43600                             MX6    0                 18 - BAD STATEMENT                    PS1CTL    356
                     5160000000 +                 SA6    LSFLG                                                   PS1CTL    357
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    12
         MAIN LOOP
  
           175  0400000047 +                      EQ     PH2RETN                                                 PS1CTL    358
                                                                                                                 PS1CTL    359
           176  56660                             JMP    CALL              19 - CALL NAME...                     PS1CTL    360
                                                                                                                 PS1CTL    361
           200  56760                             JMP    RETURN,1          20 - RETURN                           PS1CTL    362
                                                                                                                 PS1CTL    363
           202  56660                             JMP    CONT              21 - CONTINUE                         PS1CTL    364
                                                                                                                 PS1CTL    365
           204  56760                             JMP    STOPP,1           22 - STOP  OR  STOP NNN               PS1CTL    366
                                                                                                                 PS1CTL    367
           206  56660                             JMP    PAUSEP            23 - PAUSE                            PS1CTL    368
                                                                                                                 PS1CTL    369
           210  56660                             JMP    DOPROC            24 - DO N I = N1,N2,N3                PS1CTL    370
                                                                                                                 PS1CTL    371
           212  56660                             JMP    READ              25 - READ                             PS1CTL    372
                                                                                                                 PS1CTL    373
           214  56660                             JMP    WRITE             26 - WRITE N,LIST  ETC                PS1CTL    374
                                                                                                                 PS1CTL    375
           216  56660                             JMP    BUFIN             27 - BUFFER IN (U,K) (A,B)            PS1CTL    376
                                                                                                                 PS1CTL    377
           220  56660                             JMP    BUFOUT            28 - BUFFER OUT (U,K) (A,B)           PS1CTL    378
                                                                                                                 PS1CTL    379
           222  56660                             JMP    ENC               29 - ENCODE (N,F,A) K                 PS1CTL    380
                                                                                                                 PS1CTL    381
           224  56660                             JMP    DEC               30 - DECODE (N,F,A) K                 PS1CTL    382
                                                                                                                 PS1CTL    383
           226  56660                             JMP    REW               31 -REWIND U                          PS1CTL    384
                                                                                                                 PS1CTL    385
           230  56660                             JMP    BKSP              32 - BACK SPACE U                     PS1CTL    386
                                                                                                                 PS1CTL    387
                                                                                                                 PS1CTL    388
           232  56660                             JMP    ENDFILE           33 - END FILE U                       PS1CTL    389
                                                                                                                 PS1CTL    390
           234  56660                             JMP    PRINT             34 - PRINT F,LIST                     PS1CTL    391
                                                                                                                 PS1CTL    392
           236  56660                             JMP    PUNCH             35 - PUNCH F,LIST                     PS1CTL    393
                                                                                                                 PS1CTL    394
           240  0100000000 X                      CALL ENTRY                                                     PS1CTL    395
           241  0400000047 +                      EQ     PH2RETN                                                 PS1CTL    396
                                                                                                                 PS1CTL    397
           242  0100000000 X                      RJ     =XEND             37 - EOF ( END CARD ASSUMED )         PS1CTL    398
           243  0400000244 +                      EQ     LDPS2                                                   PS1CTL    399
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    13
         TERMINATE PASS 1 , LOAD PASS 2 
  
                                        ***                                                                      PS1CTL    401
                                        *         LDPS2 - LOAD PASS 2                                            PS1CTL    402
                                        *                                                                        PS1CTL    403
           244  5110000000 X             LDPS2    SA1    DFLAG                                                   PS1CTL    404
                          0301000252 +            ZR     X1,LDPS21         IF DEBUG NOT SELECTED                 PS1CTL    405
                                                                                                                 PS1CTL    406
                                        *         SCAN AREA LIST TABLE FOR ERRORS                                PS1CTL    407
                                                                                                                 PS1CTL    408
           245  5110000017 C                      SA1    D.SFDIT           FWA OF AREA LIST                      PS1CTL    409
                          5120000020 C            SA2    D.EFDIT           LWA+1                                 PS1CTL    410
           246  63210                             SB2    X1                                                      PS1CTL    411
                     63320                        SB3    X2                                                      PS1CTL    412
                          0423000252 +            EQ     B2,B3,LDPS21      IF NO ERRORS                          PS1CTL    413
                                                                                                                 PS1CTL    414
           247  43600                             MX6    0                                                       PS1CTL    415
                     5160000035 C                 SA6    D.NOERR           SET NO. OF ERRORS TO ZERO             PS1CTL    416
                                                                                                                 PS1CTL    417
           250  5110000652 +                      CALLF  BUGSOUT,B5   GO CHECK FOR ERRORS                        PS1CTL    418
                                                                                                                 PS1CTL    419
           252  6110000001               LDPS21   SB1    1                                                       PS1CTL    420
                          7120000000 X            WRITER =XF.RLST                                                PS1CTL    421
           254  7120000000 X                      REWIND =XF.RLST                                                PS1CTL    422
                                                                                                                 PS1CTL    423
                                        *         IF REFERENCE MAP OPTION SELECTED (R .NE. 0), TERMINATE THE     PS1CTL    424
                                        *         REFERENCES BLOCK (WRITTEN BY -ADDREF-) ON THE *REFMAP* FILE    PS1CTL    425
                                        *         AND COPY THE COMMON AND EQUIVALENCE TABLES TO THE FILE.        PS1CTL    426
                                        *         THE REFERENCES BLOCK TERMINATOR IS ONE OR MORE ZERO WORDS.     PS1CTL    427
                                        *         SINCE THE REFERENCES BUFFER *RBUF* IS CLEARED TO ZEROS AFTER   PS1CTL    428
                                        *         EACH WRITE TO *REFMAP*, AND SINCE -ADDREF- WRITES *RBUF* TO    PS1CTL    429
                                        *         *REFMAP* IMMEDIATELY WHEN FULL, THE BLOCK TERMINATOR IS        PS1CTL    430
                                        *         GUARANTEED AUTOMATICALLY BY DOING A FINAL WRITE OF *RBUF* TO   PS1CTL    431
                                        *         *REFMAP*.                                                      PS1CTL    432
                                                                                                                 PS1CTL    433
           256  5110000000 X                      SA1    RSELECT                                                 PS1CTL    434
                          0301000271 +            ZR     X1,LDPS2A         IF NO LONG MAP                        PS1CTL    435
                                                                                                                 PS1CTL    436
           257  66100                             ADDREF B0                TERMINATE THE CURRENT LINE            PS1CTL    437
           260  6160000352 +                      WRITEW =XF.RMAP,RBUF,RBUFL     TERMINATE REFERENCES            PS1CTL    438
           262  5110000000 X                      SA1    O.DIM                                                   PS1CTL    439
                          6160000000 X            SB6    =XO.CBT           (B6) = FWA COMMON BLOCK TABLE         PS1CTL    440
           263  43700                             MX7    0                                                       PS1CTL    441
                     63211                        SB2    X1+B1                                                   PS1CTL    442
                          53710                   SA7    X1                ZERO LWA+1 OF EQV INFO                PS1CTL    443
                               67726              SB7    B2-B6                                                   PS1CTL    444
           264  7120000000 X                      WRITEW =XF.RMAP,B6,B7                                          PS1CTL    445
           265  7120000000 X                      WRITER =XF.RMAP                                                PS1CTL    446
           267  7120000000 X                      REWIND =XF.RMAP                                                PS1CTL    447
                                                                                                                 PS1CTL    448
                                        **        LOAD PASS 2                                                    PS1CTL    449
                                                                                                                 PS1CTL    450
           271  5110000000 X             LDPS2A   SA1    =XN.ERROR                                               PS1CTL    451
                          0311000307 +            NZ     X1,LDPS2C   IF ERRORS ( ANY TYPE )                      PS1CTL    452
           272  5120000000 X                      SA2    QFLAG                                                   PS1CTL    457
                          0302000301 +            ZR     X2,LDPS2B   IF ^ Q MODE                                 PS1CTL    458
           273  5130000000 X                      SA3    R=FLAG                                                  PS1CTL    459
                          0303000000 X            ZR     X3,=XFTNEND IF R = 0  ( NO REFMAP )                     PS1CTL    460
                                                                                                                 PS1CTL    461
1        PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER                        COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    14
         TERMINATE PASS 1 , LOAD PASS 2 
  
                                         #OVL     IFNE   .OVL,0                                                  PS1CTL    462
           274  5150000000 X             LDPS2AA  LOVER  OVL25       LOAD AND EXECUTE REFMAP                     PS1CTL    463
                                         #OVL     ENDIF                                                          PS1CTL    464
                                                                                                                 PS1CTL    465
           301                           LDPS2B   BSS    0                                                       FCC1211    11
                                                                                                                 FCC1211    12
                                         #OVL     IFNE   .OVL,0                                                  FCC1211    13
           301  5110000056                        SA1    PROGRAM                                                 FCC1211    14
                          0301000274 +            ZR     X1,LDPS2AA  IF BLOCKDATA, SKIP (2,2) OVERLAY...         FCC1211    15
                                         #OVL     ENDIF                                                          FCC1211    16
                                                                                                                 FCC1211    17
           302  5150000000 X                      LOVER  OVL22       LOAD AND EXECUTE PASS 2                     FCC1211    18
                                                                                                                 PS1CTL    467
           307  5130000000 X             LDPS2C   SA3    =XIMFLG     FC TYPE ERRORS                              FCC2126     8
                          0303000313 +            ZR     X3,LDPS2D   IF NO FC TYPE ERROR                         FCC2126     9
           310  43600                             MX6    0                                                       FCC2126    10
                     5110000000 X                 SA1    =XR=FLAG                                                FCC2126    11
           311  7231777774                        SX3    X1-3                                                    FCC2126    12
                          0313000313 +            NZ     X3,LDPS2D   IF NOT R=3                                  FCC2126    13
           312  5160000000 X                      SA6    =XL.COM     CHECKED BY REFMAP FOR FC TYPE ERRORS        FCC2126    14
                          5160000000 X            SA6    =XL.EQV                                                 FCC2126    15
           313  5110000000 X             LDPS2D   SA1    =XN.FERR                                                FCC2126    16
                          5120000000 X            SA2    =XNOLIST                                                FEAT121L   89
           314  12612                             BX6    X1+X2                                                   FEAT121L   90
                     0306000301 +                 ZR     X6,LDPS2B   IF NO FE ERRS .AND. IN NOLIST MODE          FEAT121L   91
                                                                                                                 FEAT121L   92
           315  5150000000 X                      LOVER  OVL23       LOAD ERROR MESSAGE OVERLAY                  FEAT121L   93
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    15
         ADDREF - PASS 1 REF MAP ACCUMULATION 
  
                                        ***                                                                      PS1CTL    471
                                        *         ADDREF - ADD REFERENCE TO THE REFERENCE TABLE                  PS1CTL    472
                                        *                                                                        PS1CTL    473
                                        *         ON ENTRY:                                                      PS1CTL    474
                                        *                B1 = ORDINAL OF THE SYMBOL TO BE ADDED                  PS1CTL    475
                                        *                X2 = REFERENCE/DEFINITION BITS                          PS1CTL    476
                                        *                                                                        PS1CTL    477
                                        *         NOTE: CALL ADDREF(0,0) TERMINATES A LINE                       PS1CTL    478
                                        *                                                                        PS1CTL    479
                                        *         ADDREF IS CALLED BY THE STATEMENT PROCESSORS WHEN THE R        PS1CTL    480
                                        *         OPTION IS SELECTED TO ADD A REFERENCE FOR A SYMBOL ( IN        PS1CTL    481
                                        *         SYMTAB ONLY ).  THE REFERENCES ARE COLLECTED INTO LINES AND    PS1CTL    482
                                        *         THE LINES ARE DUMPED TO THE REFMAP TABLE FOR PROCESSING AT     PS1CTL    483
                                        *         THE END OF PASS2 WHEN ALL LOCAL SYMBOLS HAVE BEEN ASSIGNED     PS1CTL    484
                                        *         ADDRESS"S.                                                     PS1CTL    485
                                        *                                                                        PS1CTL    486
                                        *         EACH LINE CONSISTS OF A NUMBER OF 15 BIT PARCELS TERMINATED    PS1CTL    487
                                        *         BY 1 OR MORE ZERO PARCELS TO FILL OUT THE LAST WORD.           PS1CTL    488
                                        *         THE FIRST PARCEL HOLDS THE LINE NUMBER ( IN BINARY ),          PS1CTL    489
                                        *                                                                        PS1CTL    490
                                        *         SUCEEDING PARCELS HAVE THE FORMAT:                             PS1CTL    491
                                        *         1/0,2/REF,DEF CODE,12/SYMTAB ORDINAL                           PS1CTL    492
                                        *                                                                        PS1CTL    493
                                        *         THE LOW ORDER PARCEL OF THE LAST WORD CONTAINS THE NUMBER OF   PS1CTL    494
                                        *         PARCELS IN THE LAST WORD IN THE FORMAT: 3/CPC,12/0             PS1CTL    495
                                        *                                                                        PS1CTL    496
                                        *         REFERENCE LINES ARE ACCUMULATED IN *RBUF* UNTIL IT IS FULL.    PS1CTL    497
                                        *         THEN, A TERMINATOR IS PLACED IN THE 4TH PARCEL OF THE LAST     PS1CTL    498
                                        *         REFERENCE LINE (AS IF THE SOURCE LINE HAD ENDED) AND THE       PS1CTL    499
                                        *         BUFFER IS FLUSHED TO -REFMAP-.  -ADDREF- CONDITIONS ARE RESET  PS1CTL    500
                                        *         TO INITIAL.  ANY REMAINING REFERENCES IN THE CURRENT SOURCE    PS1CTL    501
                                        *         LINE ARE PROCESSED AS IF A NEW LINE HAD BEGUN.  THIS AVOIDS    PS1CTL    502
                                        *         SOME UNPLEASANT PROCESSING RESTART PROBLEMS IN PASS 2.         PS1CTL    503
                                                                                                                 PS1CTL    504
                                                                                                                 PS1CTL    505
           322  0400400322 +             ADDREF   ENTRY. **          ** ENTRY/EXIT **                            PS1CTL    506
           323  20215                             LX2    1+12        POSITION REF/DEF BITS                       PS1CTL    507
                     73121                        SX1    X2+B1       (X1) = 45/0, 2/REF/DEF, 1/0, 12/ORDINAL     PS1CTL    508
                          5140000452 +            SA4    RBUFN       (X4) = NR WORDS IN *RBUF*                   PS1CTL    509
           324  5130000453 +                      SA3    RBUFP       (X3) = CURRENT SHIFT COUNT                  PS1CTL    510
                          5254000352 +            SA5    RBUF+X4     (X5) = PARTIAL *RBUF* ENTRY                 PS1CTL    511
           325  6110000001                        SB1    1                                                       PS1CTL    512
                          0301000345 +            ZR     X1,ADD5     IF TERMINAL CALL                            PS1CTL    513
           326  0323000330 +                      PL     X3,ADD2     IF INTERMEDIATE CALL                        PS1CTL    514
                                                                                                                 PS1CTL    515
                                        *         PROCESS INITIAL CALL (NEW SOURCE LINE OR *RBUF* EMPTY).        PS1CTL    516
                                                                                                                 PS1CTL    517
                          5120000037              SA2    DUKE        SOURCE LISTING LINE NUMBER (BINARY)         PS1CTL    518
           327  7130000036                        SX3    30          INITIAL SHIFT COUNT                         PS1CTL    519
                          20255                   LX2    45                                                      PS1CTL    520
                               10522              BX5    X2          BEGIN NEW ENTRY                             PS1CTL    521
                                                                                                                 PS1CTL    522
                                        *         PROCESS INTERMEDIATE CALL.                                     PS1CTL    523
                                                                                                                 PS1CTL    524
           330  63230                    ADD2     SB2    X3                                                      PS1CTL    525
                     7263777760                   SX6    X3-15       SHIFT COUNT - 15                            PS1CTL    526
                               22121              LX1    B2                                                      PS1CTL    527
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    16
         ADDREF - PASS 1 REF MAP ACCUMULATION 
  
           331  12751                             BX7    X5+X1       MERGE NEW REFERENCE                         PS1CTL    528
                     63260                        SB2    X6                                                      PS1CTL    529
                          54630                   SA6    A3          UPDATE SHIFT COUNT                          PS1CTL    530
                               54750              SA7    A5          NEW REFERENCE TO *RBUF*                     PS1CTL    531
           332  0702000322 +                      GT     B2,B0,ADDREF      IF NEW REF NOT IN PARCEL 3 OR 4, EXIT PS1CTL    532
                                                                                                                 PS1CTL    533
                                        *         PROCESS PARCEL 3/4 ENTRIES.                                    PS1CTL    534
                                                                                                                 PS1CTL    535
                          73641                   SX6    X4+B1       BUF WD COUNT + 1                            PS1CTL    536
           333  0620000335 +                      PL     B2,ADD3     IF NEW REF IN PARCEL 3                      PS1CTL    537
                                                                                                                 PS1CTL    538
                                        *         NEW REF IN PARCEL 4 - UPDATE WORD COUNT AND RESET SHIFT COUNT. PS1CTL    539
                                                                                                                 PS1CTL    540
                          7170000055              SX7    45                                                      PS1CTL    541
           334  54640                             SA6    A4          UPDATE WORD COUNT                           PS1CTL    542
                     54730                        SA7    A3          RESET SHIFT COUNT                           PS1CTL    543
                          0400000322 +            EQ     ADDREF                                                  PS1CTL    544
                                                                                                                 PS1CTL    545
                                        *         NEW REF IN PARCEL 3 - CHECK FOR FULL BUFFER.                   PS1CTL    546
                                                                                                                 PS1CTL    547
           335  21606                    ADD3     AX6    6           BUF WD COUNT / (RBUFL=100B)                 PS1CTL    548
                     46000                        NO                                                             PS1CTL    549
                          0306000322 +            ZR     X6,ADDREF   IF BUFFER NOT FULL, EXIT                    PS1CTL    550
                                                                                                                 PS1CTL    551
                                        *         BUFFER IS FULL.  TERMINATE CURRENT REF/DEF ENTRY STRING.       PS1CTL    552
                                                                                                                 PS1CTL    553
           336  7160030000                        SX6    3S12        ACTIVE PARCEL COUNT = 3                     PS1CTL    554
                          12776                   BX7    X7+X6                                                   PS1CTL    555
                               54750              SA7    A5                                                      PS1CTL    556
                                                                                                                 PS1CTL    557
                                        *         DUMP BUFFER TO *REFMAP*, AND SET ENTRY CONDITIONS *INITIAL*.   PS1CTL    558
                                                                                                                 PS1CTL    559
           337  6160000352 +             ADD4     WRITEW =XF.RMAP,RBUF,RBUFL                                     PS1CTL    560
           341  13666                             SETZERO   RBUF,RBUFL+1   CLEAR *RBUF* AND WORD COUNT           PS1CTL    561
           343  43673                             MX6    -1                                                      PS1CTL    562
                     66510                        SB5    B1                                                      PS1CTL    563
                          5160000453 +            SA6    RBUFP       SET SHIFT COUNT TO *INITIAL*                PS1CTL    564
           344  0400000322 +                      EQ     ADDREF      EXIT                                        PS1CTL    565
                                                                                                                 PS1CTL    566
                                        *         PROCESS TERMINAL CALL.                                         PS1CTL    567
                                                                                                                 PS1CTL    568
           345  0333000322 +             ADD5     MI     X3,ADDREF   IF NO ENTRIES FOR CURRENT LINE              PS1CTL    569
                          43773                   MX7    -1                                                      PS1CTL    570
                               73641              SX6    X4+B1       BUF WD COUNT + 1                            PS1CTL    571
           346  7110000003                        SX1    3                                                       PS1CTL    572
                          54730                   SA7    A3          SET SHIFT COUNT TO *INITIAL*                PS1CTL    573
                               36331              IX3    X3+X1       SC+3                                        PS1CTL    574
           347  21304                             AX3    4           (SC+3)/16                                   PS1CTL    575
                     37113                        IX1    X1-X3       3-(SC+3)/16 = ACTIVE REFS IN CURR ENTRY WRD PS1CTL    576
                          54640                   SA6    A4          UPDATE BUF WD COUNT                         PS1CTL    577
                               20114              LX1    12                                                      PS1CTL    578
           350  12751                             BX7    X5+X1       MERGE PARCEL COUNT IN ENTRY                 PS1CTL    579
                     21606                        AX6    6           BUF WD COUNT / (RBUFL=100B)                 PS1CTL    580
                          54750                   SA7    A5          TERMINATED ENTRY TO *RBUF*                  PS1CTL    581
           351  0306000322 +                      ZR     X6,ADDREF   IF BUFFER NOT FULL, EXIT                    PS1CTL    582
                          0400000337 +            EQ     ADD4                                                    PS1CTL    583
                                                                                                                 PS1CTL    584
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    17
         ADDREF - PASS 1 REF MAP ACCUMULATION 
  
                                                                                                                 PS1CTL    585
                                 100     RBUFL    =      100B        LENGTH OF *RBUF*                            PS1CTL    586
           352                   100     RBUF     BSSZ   RBUFL       REFERENCES BUFFER                           PS1CTL    587
           452  00000000000000000000     RBUFN    DATA   0           NUMBER OF WORDS IN *RBUF*                   PS1CTL    588
           453  77777777777777777776     RBUFP    DATA   -1          SHIFT COUNT FOR NEXT REF/DEF PARCEL ENTRY   PS1CTL    589
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    18
         PASS 1 TABLE MANAGER 
  
                                                  EXT    PHASE,NAF,LTN,LOWCORE,FWAWORK,LWAWORK,T.FPBL,N.FP       PS1CTL    591
                                                  EXT    ORIGINS,SIZES,ROOMS,TINFO,NAFVEC                        PS1CTL    592
                                                  EXT    MOVE,FATALER                                            PS1CTL    593
                                                                                                                 PS1CTL    594
                                  44     E.CTO    EQU    36                TABLE OVERFLOW                        PS1CTL    595
                                                                                                                 PS1CTL    596
                                         SLL      MACRO  XR                SET LOOP LIMITS FOR TABLE MANAGER     PS1CTL    597
                                                  IF     -REG,XR,1                                               PS1CTL    598
                                                  SA5    NAF                                                     PS1CTL    599
                                                  SB2    X5                N.FT                                  PS1CTL    600
                                                  AX5    30                                                      PS1CTL    601
                                                  SB3    B2+X5             N.LT + 1                              PS1CTL    602
                                                  ENDM                                                           PS1CTL    603
                                                                                                                 PS1CTL    604
                                        ***                                                                      PS1CTL    605
                                        *         ALLOC - ADJUST TABLE ALLOCATION FOR TABLE N                    PS1CTL    606
                                        *         MAY MOVE TABLES UP OR DOWN IN CORE AND STRIP EXCESS            PS1CTL    607
                                        *         ALLOCATIONS TO BUY SPACE.                                      PS1CTL    608
                                        *                                                                        PS1CTL    609
                                        *         ON ENTRY:                                                      PS1CTL    610
                                        *                A0 = TABLE NUMBER                                       PS1CTL    611
                                        *                X5 < 0 THEN L.TBL = S.TBL = -X5                         PS1CTL    612
                                        *                X5 \ 0 THEN THE ALLOCATION WILL BE ADJUSTED SO THAT     PS1CTL    613
                                        *                S.TBL \ X5 + L.TBL  ON EXIT, IF THE SPACE IS AVAILABLE  PS1CTL    614
                                        *                                                                        PS1CTL    615
                                        *         ON EXIT:                                                       PS1CTL    616
                                        *                A0 = TABLE NUMBER                                       PS1CTL    617
                                        *                X7 " 0 IF SPACE ALLOCATED , ELSE 0                      PS1CTL    618
                                        *                                                                        PS1CTL    619
           454  14655                    ATA0     BX6    -X5                                                     PS1CTL    620
                     5060000000 X                 SA6    SIZES+A0                                                PS1CTL    621
           455  5060000000 X                      SA6    ROOMS+A0                                                PS1CTL    622
           456  00000000000000000000     ALLOC    ENTRY.                                                         PS1CTL    623
                                 456 +   ATA      EQU    ALLOC                                                   PS1CTL    624
                                                                                                                 PS1CTL    625
           457  0335000454 +                      NG     X5,ATA0           IF NEGATIVE                           PS1CTL    626
                          5030000000 X            SA3    SIZES+A0                                                PS1CTL    627
           460  5040000000 X                      SA4    ROOMS+A0                                                PS1CTL    628
                          37643                   IX6    X4-X3             UNUSED SPACE                          PS1CTL    629
                               37556              IX5    X5-X6             REMOVE FROM REQUEST                   PS1CTL    630
           461  0335000456 +                      NG     X5,ATA            IF NOTHING TO DO                      PS1CTL    631
                          5110000000 X            SA1    FWAWORK                                                 PS1CTL    632
           462  5120000000 X                      SA2    LWAWORK                                                 PS1CTL    633
                          63650                   SB6    X5                                                      PS1CTL    634
                               31721              FX7    X2-X1             SA = SPACE AVAILABLE ( IN WORKING STO PS1CTL    635
           463  73646                             SX6    X4+B6             INCREMENT ROOMS                       PS1CTL    636
                     37057                        IX0    X5-X7                                                   PS1CTL    637
                          54640                   SA6    A4                                                      PS1CTL    638
           464  0320000471 +                      PL     X0,ATA2           IF SN \ SA                            PS1CTL    639
                                                                                                                 PS1CTL    640
                                        *         SPACE IN WORKING STORAGE, MOVE TABLES ABOVE THIS ONE UP        PS1CTL    641
                                                                                                                 PS1CTL    642
           465  5130000000 X             ATA1     SA3    LTN                                                     PS1CTL    643
                          64200                   SB2    A0                                                      PS1CTL    644
                               36651              IX6    X5+X1             UPDATE FWAWORK                        PS1CTL    645
           466  63330                             SB3    X3                                                      PS1CTL    646
                     54610                        SA6    A1                                                      PS1CTL    647
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    19
         PASS 1 TABLE MANAGER 
  
                          0423000456 +            EQ     B2,B3,ATA         IF THIS IS THE LAST TABLE             PS1CTL    648
           467  0100000526 +                      RJ     MTU                                                     PS1CTL    649
           470  43701                             MX7    1                                                       PS1CTL    650
                     0400000456 +                 EQ     ATA                                                     PS1CTL    651
                                                                                                                 PS1CTL    652
                                        *         COMPUTE EXCESS SPACE AVAILABLE                                 PS1CTL    653
                                        *         = FWAWORK - LOWCORE - SIGMA( ROOMS(I) ) + SIGMA( EXC(I) )      PS1CTL    654
                                        *         EXC(I) = 0 IF SIZES(I)+40B \ ROOMS(I) , ELSE = TO DIFF         PS1CTL    655
                                                                                                                 PS1CTL    656
           471  5130000000 X             ATA2     SA3    LOWCORE                                                 PS1CTL    657
                          5150000000 X            SLL    NAF                                                     PS1CTL    658
                               37513              IX5    X1-X3             F-LC                                  PS1CTL    659
           473  6140000000 X                      SB4    ROOMS                                                   PS1CTL    660
                          6110000000 X            SB1    SIZES                                                   PS1CTL    661
           474  54204                             SA2    B4+A0             ROOMS(N)                              PS1CTL    662
                     54101                        SA1    B1+A0             SIZES(N)                              PS1CTL    663
                          10622                   BX6    X2                                                      PS1CTL    664
                               54610              SA6    A1                SIZE(N) = ROOMS(N)                    PS1CTL    665
                                                                                                                 PS1CTL    666
           475  56442                    ATA3     SA4    B4+B2             ROOMS(I)                              PS1CTL    667
                     56312                        SA3    B1+B2             SIZES(I)                              PS1CTL    668
                          37554                   IX5    X5-X4                                                   PS1CTL    669
                               66225              SB2    B2+B5             I = I+1                               PS1CTL    670
           476  7263000040                        SX6    X3+40B            SIZES(I)+40B                          PS1CTL    671
                          37264                   IX2    X6-X4                                                   PS1CTL    672
           477  0322000500 +                      PL     X2,ATA4           IF NOT ENOUGH OF AN EXCESS            PS1CTL    673
                          37552                   IX5    X5-X2                                                   PS1CTL    674
                               54640              SA6    A4                ADJUST R(I)                           PS1CTL    675
           500  0723000475 +             ATA4     LT     B2,B3,ATA3                                              PS1CTL    676
                          10611                   BX6    X1                RESTORE SIZES(N)                      PS1CTL    677
                               54610              SA6    A1                                                      PS1CTL    678
                                                                                                                 PS1CTL    679
           501  36075                             IX0    X7+X5                                                   PS1CTL    680
                     0330000514 +                 NG     X0,ATAX           IF NOT ENOUGH SPACE AVAILABLE         PS1CTL    681
                                                                                                                 PS1CTL    682
                                        *         SHRINK TABLES BELOW THIS ONE                                   PS1CTL    683
                                                                                                                 PS1CTL    684
                               63450              SB4    X5                - IF WE HAVE TO INCREMENT FWAWORK     PS1CTL    685
                                                                                                                 PS1CTL    686
           502  5110000000 X                      SA1    LOWCORE     FWA TABLE AREA                              PS1CTL    687
                          5150000000 X            SLL    NAF                                                     PS1CTL    688
                               10611              BX6    X1                                                      PS1CTL    689
           504  66630                             SB6    B3          SAVE NR OF (LAST TABLE + 1)                 PS1CTL    690
                     64300                        SB3    A0                                                      PS1CTL    691
                          0100000536 +            RJ     MTD         MOVE TABLES DOWN (0, TBLN, LOWCORE)         PS1CTL    692
           505  5110000000 X                      SA1    FWAWORK     WSA ORIGIN                                  PS1CTL    693
                          77504                   SX5    -B4         WSA LENGTH INCREMENT/DECREMENT              PS1CTL    694
                               36715              IX7    X1+X5                                                   PS1CTL    695
           506  0740000465 +                      MI     B4,ATA1     IF WSA MUST BE SHRUNK                       PS1CTL    696
                          54710                   SA7    A1          EXPAND WSA                                  PS1CTL    697
                               64205              SB2    A0+B5                                                   PS1CTL    698
           507  0426000456 +                      EQ     B2,B6,ATA   IF NO TABLES TO MOVE UP                     PS1CTL    699
                                        *                                                                        PS1CTL    700
                                        *         PACK UP TABLES ABOVE THIS ONE.                                 PS1CTL    701
                                        *                                                                        PS1CTL    702
                          67365                   SB3    B6-B5       NR OF LAST TABLE                            PS1CTL    703
                               10611              BX6    X1                                                      PS1CTL    704
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    20
         PASS 1 TABLE MANAGER 
  
           510  66430                             SB4    B3          SAVE LAST TABLE NR                          PS1CTL    705
                     0100000526 +                 RJ     MTU         MOVE TABLES UP (TBLN+1, NRTBLS,OLD FWAWORK) PS1CTL    706
           511  5010000000 X                      SA1    ORIGINS+A0                                              PS1CTL    707
                          5020000000 X            SA2    ROOMS+A0                                                PS1CTL    708
           512  66340                             SB3    B4                                                      PS1CTL    709
                     36612                        IX6    X1+X2                                                   PS1CTL    710
                          0100000536 +            RJ     MTD         MOVE TABLES DOWN (TBLN+1, NRTBLS,           PS1CTL    711
                                        *                               ORIGINS(N) + ROOMS(N).                   PS1CTL    712
           513  43701                             MX7    1                                                       PS1CTL    713
                     0400000456 +                 EQ     ATA                                                     PS1CTL    714
                                                                                                                 PS1CTL    715
                                        *         ERROR EXIT - INSUFFICIENT STORAGE                              PS1CTL    716
                                                                                                                 PS1CTL    717
           514  5010000000 X             ATAX     SA1    TINFO+A0                                                PS1CTL    718
                          43700                   MX7    0                                                       PS1CTL    719
                               20101              LX1    1                                                       PS1CTL    720
           515  0331000456 +                      NG     X1,ATA            IF RETURN TO CALLER TABLE             PS1CTL    721
                                                                                                                 PS1CTL    722
                                                  ENTRY  CTBLOVL           ENTRY FOR COMPILER TABLE OVERFLOW     PS1CTL    723
           516  5120000000 X             CTBLOVL  SA2    PHASE                                                   PS1CTL    724
                          5232000523 +            SA3    ERVEC+X2          PHASE NAME                            PS1CTL    725
           517  43400                             MX4    0                                                       PS1CTL    726
                     6160000044                   SB6    E.CTO             COMPILER TABLE OBERFLOW               PS1CTL    727
                               21201              AX2    1                                                       FCC0458     5
           520  0312000000 X                      NZ     X2,FATALER        IF NOT PROCESSING DECLARATIVES        FCC0458     6
                          7160000000              SX6    0                                                       FCC0458     7
           521  5160000000 X                      SA6    =XL.COM                                                 FCC0458     8
                          5160000000 X            SA6    =XL.EQV                                                 FCC0458     9
           522  0400000000 X                      EQ     FATALER                                                 PS1CTL    728
                                                                                                                 PS1CTL    729
           523  00005520100123055534     ERVEC    DATA   8R PHASE 1                                              PS1CTL    730
           524  00005501253055240102              DATA   8R AUX TAB                                              PS1CTL    731
           525  00005520100123055535              DATA   8R PHASE 2                                              PS1CTL    732
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    21
         MTU, MTD - MOVE TABLES UP OR DOWN
  
                                        ***                                                                      PS1CTL    734
                                        *         MTU - MOVE TABLES UP IN CORE                                   PS1CTL    735
                                        *                                                                        PS1CTL    736
                                        *         ON ENTRY:                                                      PS1CTL    737
                                        *                X6 = HIGH LIMIT OF MOVE                                 PS1CTL    738
                                        *                B2,B3 = LOOP LIMITS                                     PS1CTL    739
                                        *                                                                        PS1CTL    740
           526  00000000000000000000     MTU                                                                     PS1CTL    741
           527  5143000000 X             MTU1     SA4    ROOMS+B3                                                PS1CTL    742
                          5123000000 X            SA2    ORIGINS+B3                                              PS1CTL    743
           530  5113000000 X                      SA1    SIZES+B3                                                PS1CTL    744
                          37764                   IX7    X6-X4                                                   PS1CTL    745
                               67335              SB3    B3-B5             DECREMENT INDEX                       PS1CTL    746
           531  54720                             SA7    A2                NEW ORIGIN                            PS1CTL    747
                     10077                        BX0    X7                                                      PS1CTL    748
                          37572                   IX5    X7-X2             NEW ORGIN - OLD ORIGIN                PS1CTL    749
                               10377              BX3    X7                                                      PS1CTL    750
           532  0301000534 +                      ZR     X1,MTU2           IF LENGTH = 0                         PS1CTL    751
                          0305000534 +            ZR     X5,MTU2           SKIP GO NOWHERE MOVE                  PS1CTL    752
           533  6110000001                        MOVE   X1,X2,X3                                                PS1CTL    753
           534  10600                    MTU2     BX6    X0                                                      PS1CTL    754
                     0723000527 +                 GT     B3,B2,MTU1                                              PS1CTL    755
           535  0400000526 +                      EQ     MTU                                                     PS1CTL    756
  
  
  
                                        ***                                                                      PS1CTL    758
                                        *         MTD - MOVE TABLES DOWN IN CORE                                 PS1CTL    759
                                        *                                                                        PS1CTL    760
                                        *         ON ENTRY:                                                      PS1CTL    761
                                        *                X6 = LOW CORE LIMIT                                     PS1CTL    762
                                        *                B2,B3 = LOOP LIMITS                                     PS1CTL    763
                                        *                                                                        PS1CTL    764
           536  00000000000000000000     MTD                                                                     PS1CTL    765
           537  5142000000 X             MTD1     SA4    ROOMS+B2                                                PS1CTL    766
                          5122000000 X            SA2    ORIGINS+B2                                              PS1CTL    767
           540  5112000000 X                      SA1    SIZES+B2                                                PS1CTL    768
                          10366                   BX3    X6                                                      PS1CTL    769
                               36046              IX0    X4+X6             ADVANCE LOW                           PS1CTL    770
           541  54620                             SA6    A2                                                      PS1CTL    771
                     37532                        IX5    X3-X2             NEW ORIGIN - OLD ORIGIN               PS1CTL    772
                          0301000544 +            ZR     X1,MTD2           SKIP EMPTY TABLE                      PS1CTL    773
           542  0305000544 +                      ZR     X5,MTD2           AVIOD NULL MOVE                       PS1CTL    774
                          6110000001              MOVE   X1,X2,X3                                                PS1CTL    775
           544  66225                    MTD2     SB2    B2+B5                                                   PS1CTL    776
                     10600                        BX6    X0                                                      PS1CTL    777
                          0632000537 +            LE     B2,B3,MTD1                                              PS1CTL    778
           545  0400000536 +                      EQ     MTD                                                     PS1CTL    779
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    22
         ROUTINES FOR TABLE ALLOCATION
  
                                        ***                                                                      PS1CTL    781
                                        *         ADDWD - ADD A WORD TO THE END OF A MANAGED TABLE               PS1CTL    782
                                        *                                                                        PS1CTL    783
                                        *         ON ENTRY:                                                      PS1CTL    784
                                        *                A0 = TABLE NUMBER                                       PS1CTL    785
                                        *                X1 = WORD TO BE ADDED    ( AND B5 = 1 )                 PS1CTL    786
                                        *                                                                        PS1CTL    787
                                        *         ON EXIT:                                                       PS1CTL    788
                                        *                X6 = WORD THAT WAS ADDED                                PS1CTL    789
                                        *                X7 = NEW TABLE LENGTH ( " 0 ) OR 0 IF NO SPACE AVAIL    PS1CTL    790
                                        *                                                                        PS1CTL    791
                                                                                                                 PS1CTL    792
           546  36034                    ADDWD1   IX0    X3+X4                                                   PS1CTL    793
                     73745                        SX7    X4+B5             SIZES(I) = SIZES(I)+1                 PS1CTL    794
                          53600                   SA6    X0                                                      PS1CTL    795
                               54740              SA7    A4                UPDATE LENGTH                         PS1CTL    796
           547  00000000000000000000     ADDWD    ENTRY.                                                         PS1CTL    797
           550  5040000000 X                      SA4    SIZES+A0                                                PS1CTL    798
                          5050000000 X            SA5    ROOMS+A0                                                PS1CTL    799
           551  10611                             BX6    X1                                                      PS1CTL    800
                     37245                        IX2    X4-X5             S - R                                 PS1CTL    801
                          5030000000 X            SA3    ORIGINS+A0                                              PS1CTL    802
           552  0332000546 +                      NG     X2,ADDWD1         IF SIZES(I) < ROOMS(I)                PS1CTL    803
                                                                                                                 PS1CTL    804
                                        *         ALLOCATE MORE SPACE                                            PS1CTL    805
                                                                                                                 PS1CTL    806
                          5050000000 X            SA5    TINFO+A0          INCREMENT FOR THIS TABLE              PS1CTL    807
           553  5160000560 +                      SA6    ADDWDT            SAVE WORD                             PS1CTL    808
                          73550                   SX5    X5                                                      PS1CTL    809
           554  0100000456 +                      RJ     ATA               ADJUST ALLOCATION                     PS1CTL    810
                                                                                                                 PS1CTL    811
           555  5110000560 +                      SA1    ADDWDT                                                  PS1CTL    812
                          5030000000 X            SA3    ORIGINS+A0                                              PS1CTL    813
           556  5040000000 X                      SA4    SIZES+A0                                                PS1CTL    814
                          10611                   BX6    X1                                                      PS1CTL    815
           557  0317000546 +                      NZ     X7,ADDWD1         IF WE GOT THE SPACE                   PS1CTL    816
                          0400000547 +            EQ     ADDWD                                                   PS1CTL    817
                                                                                                                 PS1CTL    818
           560                     1     ADDWDT   BSS    1                                                       PS1CTL    819
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    23
         ROUTINES FOR TABLE ALLOCATION
  
                                        ***                                                                      PS1CTL    821
                                        *         ALLAE - ALLOCATE ALMOST EVERYTHING FOR TABLE N                 PS1CTL    822
                                        *                                                                        PS1CTL    823
                                        *         ON ENTRY:                                                      PS1CTL    824
                                        *                A0 = TABLE NUMBER                                       PS1CTL    825
                                        *                                                                        PS1CTL    826
           561  00000000000000000000     ALLAE    ENTRY.                                                         PS1CTL    827
           562  5110000000 X                      SA1    LOWCORE                                                 PS1CTL    828
                          5120000000 X            SA2    FWAWORK                                                 PS1CTL    829
           563  5130000000 X                      SA3    LWAWORK                                                 PS1CTL    830
                          5150000000 X            SLL    NAF                                                     PS1CTL    831
                               37021              IX0    X2-X1             AREA OCCUPIED BY THE TABLES           PS1CTL    832
           565  37332                             IX3    X3-X2             SA IN WORKING STORAGE                 PS1CTL    833
                     63730                        SB7    X3                B7 = L-F                              PS1CTL    834
                          6140000000 X            SB4    ROOMS                                                   PS1CTL    835
           566  6110000000 X                      SB1    SIZES                                                   PS1CTL    836
                          54204                   SA2    B4+A0                                                   PS1CTL    837
                               54101              SA1    B1+A0                                                   PS1CTL    838
           567  10722                             BX7    X2                                                      PS1CTL    839
                     54710                        SA7    A1                                                      PS1CTL    840
                          7160000040              SX6    40B                                                     PS1CTL    841
                                                                                                                 PS1CTL    842
           570  56442                    ALLAE1   SA4    B4+B2             ROOMS(I)                              PS1CTL    843
                     56312                        SA3    B1+B2             SIZES(I)                              PS1CTL    844
                          37004                   IX0    X0-X4                                                   PS1CTL    845
                               30536              FX5    X3+X6             S(I)+40B                              PS1CTL    846
           571  37454                             IX4    X5-X4                                                   PS1CTL    847
                     37254                        IX2    X5-X4                                                   PS1CTL    848
                          37002                   IX0    X0-X2                                                   PS1CTL    849
           572  66225                    ALLAE2   SB2    B2+B5                                                   PS1CTL    850
                     0723000570 +                 LT     B2,B3,ALLAE1                                            PS1CTL    851
                                                                                                                 PS1CTL    852
                               10611              BX6    X1                                                      PS1CTL    853
           573  54610                             SA6    A1                RESTORE SIZES(N)                      PS1CTL    854
                                                                                                                 PS1CTL    855
                     77575                        SX5    B7-B5             (LWAWORK-FWAWORK) - 1                 PS1CTL    856
                          7270777377              SX7    X0-400B                                                 PS1CTL    857
           574  0337000575 +                      NG     X7,ALLAE3         IF WE CANT BUY AT LEAST 400B WORDS    PS1CTL    858
                                        *                                  DONT FORCE A REPACKING                PS1CTL    859
                          36550                   IX5    X5+X0                                                   PS1CTL    860
           575  0100000456 +             ALLAE3   RJ     ATA               ADJUST ALLOCATION                     PS1CTL    861
           576  0400000561 +                      EQ     ALLAE                                                   PS1CTL    862
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    24
         INITBL - INITIALIZE TABLES 
  
                                        ***                                                                      PS1CTL    864
                                        *         INITBL - INITIALIZE TABLES FOR A PHASE                         PS1CTL    865
                                        *         SETS LOWCORE,PHASE NUMBER AND INITIALIZES TABLE VECTORS        PS1CTL    866
                                        *                                                                        PS1CTL    867
                                        *         ON ENTRY:                                                      PS1CTL    868
                                        *                X6 = NEW LOW CORE LIMIT                                 PS1CTL    869
                                        *                                                                        PS1CTL    870
                                                                                                                 PS1CTL    871
           577  00000000000000000000     INITBL   ENTRY.                                                         PS1CTL    872
           600  5110000000 X                      SA1    LOWCORE                                                 PS1CTL    873
                          5120000000 X            SA2    PHASE                                                   PS1CTL    874
           601  54610                             SA6    A1                SET NEW LOWCORE LIMIT                 PS1CTL    875
                     0301000605 +                 ZR     X1,INIT0          IF START OF PHASE 1                   PS1CTL    876
                               73725              SX7    X2+B5                                                   PS1CTL    877
           602  54720                             SA7    A2                PHASE = PHASE+1                       PS1CTL    878
                     0302000607 +                 ZR     X2,INIT1          IF START OF DPCLOSE                   PS1CTL    879
           603  0100000632 +                      RJ     PTD               PHASE 2 - PACK TABLES TO LOW CORE     PS1CTL    880
           604  5160000000 X                      SA6    LOWCORE           SET FWA OF ACTIVE TABLES ***          PS1CTL    881
                          0400000607 +            EQ     INIT1                                                   PS1CTL    882
                                                                                                                 PS1CTL    883
           605  5160000000 X             INIT0    SA6    FWAWORK                                                 PS1CTL    884
                          5140000000 X            SA4    N.FP                                                    PS1CTL    885
           606  10744                             BX7    X4                                                      PS1CTL    886
                     20722                        LX7    18                                                      PS1CTL    887
                          5170000000 X            SA7    T.FPBL                                                  PS1CTL    888
                                                                                                                 PS1CTL    889
                                        *         INITIALIZE THE NEW TABLES                                      PS1CTL    890
                                                                                                                 PS1CTL    891
           607  5140000000 X             INIT1    SA4    PHASE                                                   PS1CTL    892
                          5254000000 X            SA5    NAFVEC+X4                                               PS1CTL    893
           610  10755                             BX7    X5                                                      PS1CTL    894
                     5170000000 X                 SA7    NAF               NAF = NAFVEC(PHASE)                   PS1CTL    895
                               63250              SLL    X5                SET LOOP LIMITS                       PS1CTL    896
                          5140000000 X            SA4    FWAWORK                                                 PS1CTL    897
           612  10644                             BX6    X4                                                      PS1CTL    898
                     77735                        SX7    B3-B5                                                   PS1CTL    899
                          5170000000 X            SA7    LTN               SAVE NUMBER OF LAST ACTIVE TABLE      PS1CTL    900
                                                                                                                 PS1CTL    901
           613  5112000000 X             INTB1    SA1    ORIGINS+B2                                              PS1CTL    902
                          5122000000 X            SA2    TINFO+B2                                                PS1CTL    903
           614  66225                             SB2    B2+B5                                                   PS1CTL    904
                     0311000613 +                 NZ     X1,INTB1          IF INITIALIZED                        PS1CTL    905
                               54610              SA6    A1                SET FWA                               PS1CTL    906
           615  21222                             AX2    18                                                      PS1CTL    907
                     73720                        SX7    X2                INITIAL ALLOC                         PS1CTL    908
                          5172777776 X            SA7    ROOMS-1+B2                                              PS1CTL    909
           616  36667                             IX6    X6+X7             UPDATE FWAWORK                        PS1CTL    910
                     43700                        MX7    0                                                       PS1CTL    911
                          5172777776 X            SA7    SIZES-1+B2        SIZES(I) = 0                          PS1CTL    912
           617  0723000613 +                      LT     B2,B3,INTB1                                             PS1CTL    913
                                                                                                                 PS1CTL    914
                          5160000000 X            SA6    FWAWORK           UPDATE FWAWORK                        PS1CTL    915
           620  0400000577 +                      EQ     INITBL                                                  PS1CTL    916
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    25
         PTU, PTD - PACK TABLES TO HIGH OR LOW CORE 
  
                                        ***                                                                      PS1CTL    918
                                        *         PTU - PACK TABLES UP TO HIGH CORE                              PS1CTL    919
                                        *                                                                        PS1CTL    920
                                        *         ON ENTRY:                                                      PS1CTL    921
                                        *                X1 = NUMBERS OF TABLES TO BE SAVED                      PS1CTL    922
                                        *                IN FORMAT: 60-6*N/0,6/TBLN+1,...,6/TBL1+1               PS1CTL    923
                                        *                                                                        PS1CTL    924
           621  00000000000000000000     PTU      ENTRY.                                                         PS1CTL    925
           622  5120000013                        SA2    SYMEND                                                  PS1CTL    926
                          10011                   BX0    X1                                                      PS1CTL    927
                               63620              SB6    X2                B6 = LWAWORK                          PS1CTL    928
                                                                                                                 PS1CTL    929
           623  43766                    PTU1     MX7    60-6                                                    PS1CTL    930
                     15607                        BX6    -X7*X0            TABLE NUMBER + 1                      PS1CTL    931
                          21006                   AX0    6                                                       PS1CTL    932
                               76560              SX5    B6                                                      PS1CTL    933
           624  5216777776 X                      SA1    SIZES-1+X6                                              PS1CTL    934
                          5226777776 X            SA2    ORIGINS-1+X6                                            PS1CTL    935
           625  37651                             IX6    X5-X1             NEW ORIGIN                            PS1CTL    936
                     54620                        SA6    A2                                                      PS1CTL    937
                          10366                   BX3    X6                                                      PS1CTL    938
                               63660              SB6    X6                                                      PS1CTL    939
           626  0301000630 +                      ZR     X1,PTU2           SKIP EMPTY TABLE                      PS1CTL    940
                          6110000001              MOVE   X1,X2,X3                                                PS1CTL    941
           630  0310000623 +             PTU2     NZ     X0,PTU1           IF MORE TO GO                         PS1CTL    942
                          77665                   SX6    B6-B5                                                   PS1CTL    943
           631  5160000000 X                      SA6    LWAWORK                                                 PS1CTL    944
                          0400000621 +            EQ     PTU                                                     PS1CTL    945
                                                                                                                 PS1CTL    946
                                        ***                                                                      PS1CTL    947
                                        *         PTD - PACK TABLES TO LOW CORE                                  PS1CTL    948
                                        *                                                                        PS1CTL    949
                                        *         ON ENTRY:                                                      PS1CTL    950
                                        *                X6 = LOW CORE LIMIT                                     PS1CTL    951
                                        *                                                                        PS1CTL    952
           632  00000000000000000000     PTD                                                                     PS1CTL    953
           633  5150000000 X                      SLL    NAF                                                     PS1CTL    954
                     63660                        SB6    X6                B6 = LOW                              PS1CTL    955
           635  5112000000 X             PTD1     SA1    SIZES+B2                                                PS1CTL    956
                          5122000000 X            SA2    ORIGINS+B2                                              PS1CTL    957
           636  76660                             SX6    B6                                                      PS1CTL    958
                     10711                        BX7    X1                                                      PS1CTL    959
                          54620                   SA6    A2                NEW FWA                               PS1CTL    960
                               63616              SB6    B6+X1             UPDATE LOW                            PS1CTL    961
           637  5172000000 X                      SA7    ROOMS+B2          ROOMS(I) = SIZES(I)                   PS1CTL    962
                          0301000642 +            ZR     X1,PTD2           IF NOTHING TO MOVE                    PS1CTL    963
           640  37026                             IX0    X2-X6                                                   PS1CTL    964
                     10366                        BX3    X6                                                      PS1CTL    965
                          0300000642 +            ZR     X0,PTD2           IF OLD ORG = NEW ORG                  PS1CTL    966
           641  6110000001                        MOVE   X1,X2,X3                                                PS1CTL    967
           642  66225                    PTD2     SB2    B2+B5                                                   PS1CTL    968
                     0723000635 +                 LT     B2,B3,PTD1                                              PS1CTL    969
                               76660              SX6    B6                                                      PS1CTL    970
           643  5160000000 X                      SA6    FWAWORK           UPDATE FWAWORK                        PS1CTL    971
                          0400000632 +            EQ     PTD                                                     PS1CTL    972
                                                                                                                 PS1CTL    973
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    26
         PTU, PTD - PACK TABLES TO HIGH OR LOW CORE                   WRM 
  
                                        **        WRM - WRITE R-MACRO CALL TO *RLIST* FILE.                      PS1CTL    975
                                        *                                                                        PS1CTL    976
                                        *         INSERTS CURRENT VALUE OF *NRLN* IN HEADER WORD.                PS1CTL    977
                                        *                                                                        PS1CTL    978
                                        *         ENTRY  (B7) = FWA OF R-MACRO CALL                              PS1CTL    979
                                        *                                                                        PS1CTL    980
                                        *         EXIT   R-MACRO WRITTEN TO RLIST FILE.                          PS1CTL    981
                                        *                                                                        PS1CTL    982
                                        *         USES   X - 0, 3, 4, 5, 6                                       PS1CTL    983
                                        *                                                                        PS1CTL    984
                                        *         CALLS  WRITEW                                                  PS1CTL    985
                                                                                                                 PS1CTL    986
           644  0400400644 +             WRM      ENTRY. **                                                      PS1CTL    987
           645  56470                             SA4    B7                                                      PS1CTL    988
                     43054                        MX0    -R1.RIL                                                 PS1CTL    989
                          5130000064              SA3    NRLN                                                    PS1CTL    990
           646  11504                             BX5    X0*X4                                                   PS1CTL    991
                     21436                        AX4    R1.INP                                                  PS1CTL    992
                          36635                   IX6    X3+X5       ADD CURRENT VALUE OF NRLN TO HEADER WORD    PS1CTL    993
                               56670              SA6    B7                                                      PS1CTL    994
           647  6110000001                        SB1    1                                                       PS1CTL    995
                          64640                   WRITEW =XF.RLST,A4,X4+B1                                       PS1CTL    996
           651  6150000001                        SB5    1                                                       PS1CTL    997
                          0400000644 +            EQ     WRM                                                     PS1CTL    998
           653                                    END                                                            PS1CTL    999
  
                             65700B CM  STORAGE USED             1677 STATEMENTS      793 SYMBOLS      000007 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.413 SECONDS         615 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDREF        322   PROGRAM*        8/33     15/36 E   16/05     16/23     16/42
                                           13/37     15/36 L   16/17     16/38     16/55
        ADDWD         547   PROGRAM*       22/17 E   22/17 L   22/37
        ADDWDT        560   PROGRAM*       22/28 S   22/32     22/39 L
        ADDWD1        546   PROGRAM*       22/13 L   22/23     22/36
        ADD2          330   PROGRAM*       15/44     15/55 L
        ADD3          335   PROGRAM*       16/10     16/21 L
        ADD4          337   PROGRAM*       16/33 L   16/56
        ADD5          345   PROGRAM*       15/43     16/42 L
        ALLAE         561   PROGRAM*       23/07 E   23/07 L   23/42
        ALLAE1        570   PROGRAM*       23/23 L   23/31
        ALLAE2        572   PROGRAM*       23/30 L
        ALLAE3        575   PROGRAM*       23/38     23/41 L
        ALLARR          0   DBGBLK1         4/11 L
        ALLCALL         1   DBGBLK1         4/12 L
        ALLFUNC         2   DBGBLK1         4/13 L
        ALLOC         456   PROGRAM*        7/29     18/33 E   18/33 L   18/34
        ALLROU          6   DBGBLK1         4/17 L
        AREAFLG        61   DBGBLK2         3/57 L
        ARITH           0   EXTERNAL*      11/43
        ARLSZ        3200   FTNTEXT         7/25
        ASSIGN          0   EXTERNAL*      11/48
        ATA           456   PROGRAM*       18/34 D   19/01     19/52     20/17     23/41
                                           18/41     19/04     20/10     22/30
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    27
        SYMBOLIC REFERENCE TABLE. 
  
        ATAX          514   PROGRAM*       19/34     20/14 L
        ATA0          454   PROGRAM*       18/30 L   18/36
        ATA1          465   PROGRAM*       18/53 L   19/49
        ATA2          471   PROGRAM*       18/49     19/10 L
        ATA3          475   PROGRAM*       19/20 L   19/29
        ATA4          500   PROGRAM*       19/26     19/29 L
        ATYPE          51                   6/29 D
        BDTYPE        153   PROGRAM*        9/37     11/27 L
        BKSP            0   EXTERNAL*      12/29
        BT.EXEC       151   PROGRAM*       10/48     11/20 L
        BUFIN           0   EXTERNAL*      12/19
        BUFOUT          0   EXTERNAL*      12/21
        BUGACT          0   EXTERNAL*       8/16
        BUGPRO          0   EXTERNAL*       7/55
        BUGSOUT         0   EXTERNAL*      13/18
        CALL            0   EXTERNAL*      12/03
        CIO=            0   EXTERNAL*      13/21     13/22     13/46     13/47
        CLABEL         23                   6/24 D    8/25      9/33
        CONT            0   EXTERNAL*      12/07
        COUNTUP       111   DBGBLK2         4/05 L
        CTBLOVL       516   PROGRAM*        7/24     20/19 E   20/20 L
        CVDB            0   EXTERNAL*       8/17
        C$STMT          1   NONFTNX         4/23 D    9/54     10/04
        C.PACK         64   DBGBLK2         4/03 L
        DATA            0   EXTERNAL*      11/37
        DBGEXTP        62                   5/01 D
        DBGFSTT        47                   4/57 D
        DBGINTX         0   EXTERNAL*       9/57     10/07
        DBGPHCT         7   NONFTNX         4/29 L
        DBGPROG        41   DBGBLK2         3/40 L
        DBGRFMP         6   NONFTNX         4/28 L
        DBG1          140   PROGRAM*       10/45 L
        DEBUG           0   //              3/04 L    7/56
        DEC             0   EXTERNAL*      12/25
        DFLAG           0   EXTERNAL*       2/09 X    7/52      8/35     13/04
        DIM1           17                   6/22 D
        DISPOW         44   DBGBLK2         3/43 L
        DOFLAG          0   DOLVL           6/37 E    6/37 L
        DOLAB           0   EXTERNAL*       2/09 X    8/28
        DOLABCN         0   EXTERNAL*       2/09 X   10/30
        DOP             0   EXTERNAL*       8/37
        DOPROC          0   EXTERNAL*      12/13
        DTYPE           1   NONFTNX         4/22 L    4/23
        DUKE           37                   6/28 D    7/12      9/21     15/48
        D.BDA         121   PROGRAM*        9/39     10/10 L
        D.COL           0   NONFTNX         4/21 L
        D.CONL         22   DBGBLK2         3/25 L
        D.CON1         21   DBGBLK2         3/24 L
        D.CURT         10   NONFTNX         4/30 L
        D.CURUD        51   DBGBLK2         3/50 L
        D.DEC         113   PROGRAM*        9/43      9/51     10/03 L
        D.DOLAST       27   DBGBLK2         3/30 L
        D.DUKE1        53   DBGBLK2         3/51 L
        D.EAREA         5   DBGBLK2         3/12 L
        D.EDRL          1   DBGBLK2         3/08 L
        D.EDVL          3   DBGBLK2         3/10 L
        D.EFDIT        20   DBGBLK2         3/23 L   13/10
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    28
        SYMBOLIC REFERENCE TABLE. 
  
        D.ELAST        15   DBGBLK2         3/20 L    8/06
        D.ELIST        13   DBGBLK2         3/18 L    8/09
        D.ESMTB        10   DBGBLK2         3/15 L    8/03
        D.LABEL        54   DBGBLK2         3/52 L
        D.LELST        14   DBGBLK2         3/19 L
        D.NAASI        23   DBGBLK2         3/26 L
        D.NCURU         2   NONFTNX         4/25 L
        D.NDUKE         4   NONFTNX         4/26 L
        D.NEST         56   DBGBLK2         3/54 L
        D.NESTW        16   DBGBLK2         3/21 L
        D.NLBEL         5   NONFTNX         4/27 L
        D.NOERR        35   DBGBLK2         3/36 L   13/16 S
        D.NOGO         30   DBGBLK2         3/31 L
        D.ON           34   DBGBLK2         3/35 L    8/15 S
        D.OPEN         40   DBGBLK2         3/39 L
        D.OPFLG        33   DBGBLK2         3/34 L
        D.OPL           6   DBGBLK2         3/13 L
        D.PACK         31   DBGBLK2         3/32 L
        D.PADD         36   DBGBLK2         3/37 L
        D.POW          32   DBGBLK2         3/33 L
        D.PSAA         65   PROGRAM*        9/15      9/21 L
        D.PS4          57   PROGRAM*        7/05      8/39      9/06 L
        D.PS4A         73   PROGRAM*        9/08      9/32 L
        D.PS5         105   PROGRAM*        9/41      9/53 L
        D.RFMAP        12   DBGBLK2         3/17 L
        D.SAASI        11   DBGBLK2         3/16 L
        D.SAREA         4   DBGBLK2         3/11 L
        D.SCON1        26   DBGBLK2         3/29 L
        D.SDRL          0   DBGBLK2         3/07 L
        D.SDVL          2   DBGBLK2         3/09 L
        D.SFDIT        17   DBGBLK2         3/22 L   13/09
        D.SSMTB         7   DBGBLK2         3/14 L    7/57
        D.STOR         25   DBGBLK2         3/28 L
        D.TYPE         55   DBGBLK2         3/53 L
        ENC             0   EXTERNAL*      12/23
        END             0   EXTERNAL*      11/45     12/41
        ENDFILE         0   EXTERNAL*      12/32
        ENTRY           0   EXTERNAL*      12/38
        EOSM          146   PROGRAM*        9/17     11/05 L
        ERPRO           0   EXTERNAL*       2/09 X    9/53     10/03     10/10
        ERPROI          0   EXTERNAL*       2/09 X   10/27
        ERVEC         523   PROGRAM*       20/21     20/31 L
        E.BDA          51                   2/17 D   10/10
        E.CTO          44                  18/05 D   20/23
        E.CUL          22                   2/16 D
        E.DECS        155                   2/19 D   10/03
        E.HCNF         67                   2/18 D    9/53
        E.URS         262                   2/20 D   10/27
        FATALER         0   EXTERNAL*      18/03 X   20/25     20/29
        FEFLAG         37   DBGBLK2         3/38 L
        FERRMAC         1   PROGRAM*        6/51 L
        FORMAT          0   EXTERNAL*       2/09 X   10/12
        FSTEX           0   EXTERNAL*       2/10 X    7/19 S   10/45
        FTNEND          0   EXTERNAL*      13/56
        FWAWORK         0   EXTERNAL*       7/21     18/42     23/09     24/34     25/54 S
                                           18/01 X   19/46     24/21 S   24/52 S
        F.RLST          0   EXTERNAL*       9/29     13/21     13/22     26/22
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    29
        SYMBOLIC REFERENCE TABLE. 
  
        F.RMAP          0   EXTERNAL*      13/38     13/45     13/46     13/47     16/33
        GOTO            0   EXTERNAL*      11/50
        GOTOSFL         3   DBGBLK1         4/14 L
        IFE             0   EXTERNAL*      11/52
        IFL             0   EXTERNAL*      11/54
        IFTLU.P         0   EXTERNAL*       7/15
        IMFLG           0   EXTERNAL*      14/14
        INDEXNO       113   DBGBLK2         4/07 L
        INITBL        577   PROGRAM*       24/09 E   24/09 L   24/53
        INIT0         605   PROGRAM*       24/13     24/21 L
        INIT1         607   PROGRAM*       24/16     24/19     24/29 L
        INTB1         613   PROGRAM*       24/39 L   24/42     24/50
        IPH2            6   PROGRAM*        7/11 E    7/11 L    7/53      8/18     10/52
        IPH2.0         12   PROGRAM*        7/14      7/18 L
        IPH2.1         45   PROGRAM*        8/13      8/17 L
        IPH2.2         17   PROGRAM*        7/27      7/29 L
        JMPBIT        147   PROGRAM*       10/21     11/11 L
        LDEBUG         42   DBGBLK2         3/41 L
        LDPS2         244   PROGRAM*        2/06 E   11/46     12/42     13/04 L
        LDPS2A        271   PROGRAM*       13/35     13/51 L
        LDPS2AA       274   PROGRAM*       14/02 L   14/09
        LDPS2B        301   PROGRAM*       13/54     14/05 L   14/25
        LDPS2C        307   PROGRAM*       13/52     14/14 L
        LDPS2D        313   PROGRAM*       14/15     14/19     14/22 L
        LDPS21        252   PROGRAM*       13/05     13/13     13/20 L
        LELIST         34                   6/27 D
        LFLAG          47   DBGBLK2         3/46 L
        LNGDRL         62   DBGBLK2         4/01 L
        LNGDVL         63   DBGBLK2         4/02 L
        LNGIND         57   DBGBLK2         3/55 L
        LOOP           24   PROGRAM*        7/39 L    7/51
        LOVER           0   EXTERNAL*      14/02     14/12     14/27
        LOWCORE         0   EXTERNAL*      18/01 X   19/10     19/40     23/08     24/10     24/18 S
        LSFLG           0   PROGRAM*        6/33 E    6/33 L   10/17     11/03     11/57 S
        LTFLAG         46   DBGBLK2         3/45 L
        LTN             0   EXTERNAL*      18/01 X   18/53     24/37 S
        LTYPE          21                   6/23 D
        LWAWORK         0   EXTERNAL*       7/20     14/02     14/27     18/43     25/27 S
                                            8/08 S   14/12     18/01 X   23/10
        LWA2.0          0   EXTERNAL*      14/02     14/12     14/27
        L.ARLST         0   EXTERNAL*       2/11 X    7/35 S
        L.COM           0   EXTERNAL*      14/20 S   20/27 S
        L.EQV           0   EXTERNAL*      14/21 S   20/28 S
        MACBUF          0   MACBUF          6/43 L    9/27 S
        MOVE            0   EXTERNAL*      18/03 X
        MTD           536   PROGRAM*       19/45     20/07     21/34 L   21/48
        MTD1          537   PROGRAM*       21/35 L   21/47
        MTD2          544   PROGRAM*       21/42     21/43     21/45 L
        MTU           526   PROGRAM*       19/02     20/02     21/08 L   21/23
        MTU1          527   PROGRAM*       21/09 L   21/22
        MTU2          534   PROGRAM*       21/18     21/19     21/21 L
        MVE=            0   EXTERNAL*      21/20     21/44     25/24     25/50
        NAF             0   EXTERNAL*      18/01 X   19/11     19/41     23/11     24/32 S   25/37
        NAFVEC          0   EXTERNAL*      18/02 X   24/30
        NAMELST         0   EXTERNAL*      11/40
        NOACT          60   DBGBLK2         3/56 L    8/12
        NOGOFLG         4   DBGBLK1         4/15 L
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    30
        SYMBOLIC REFERENCE TABLE. 
  
        NOLIST          0   EXTERNAL*      14/23
        NOPROG         50   DBGBLK2         3/47 L
        NRLN           64                   6/31 D    7/04 S    9/10      9/19 S    9/22     26/16
        N.ERROR         0   EXTERNAL*      13/51
        N.EXST          0   EXTERNAL*       9/11
        N.FERR          0   EXTERNAL*       2/08 X   14/22
        N.FP            0   EXTERNAL*      18/01 X   24/22
        N.ST            0   EXTERNAL*      10/35
        OC.BOS          1   FTNTEXT         9/24
        OC.EOS          2   FTNTEXT        11/05
        OPSTAK          0   EXTERNAL*       2/10 X    7/34
        OPTLVL          0   EXTERNAL*       2/08 X
        ORIGINS         0   EXTERNAL*      18/02 X   21/10     22/22     24/39     25/40
                                           20/03     21/36     22/33     25/18
        OVLA            0   EXTERNAL*      14/02     14/12     14/27
        OVLB            0   EXTERNAL*      14/02     14/12     14/27
        OVL22           0   EXTERNAL*      14/12
        OVL23           0   EXTERNAL*      14/27
        OVL25           0   EXTERNAL*      14/02
        O.ARLST         0   EXTERNAL*       2/11 X    7/31
        O.CBT           0   EXTERNAL*       2/08 X   13/40
        O.DIM           0   EXTERNAL*       2/08 X   13/39
        PAUSEP          0   EXTERNAL*      12/11
        PHASE           0   EXTERNAL*      18/01 X   20/20     24/11     24/29
        PHSFLAG       114   DBGBLK2         4/08 L
        PH2CTL          4   PROGRAM*        2/06 E    7/03 L
        PH2DB          53   PROGRAM*        8/32      8/35 L
        PH2EL          51   PROGRAM*        8/27      8/31 L   10/13     11/38     11/41
        PH2RETN        47   PROGRAM*        2/06 E   11/50     12/03     12/11     12/19     12/27     12/36
                                            8/25 L   11/52     12/05     12/13     12/21     12/29     12/39
                                           11/43     11/54     12/07     12/15     12/23     12/32
                                           11/48     12/01     12/09     12/17     12/25     12/34
        PH2SCAN        56   PROGRAM*        8/36      9/04 L    9/55     10/01     10/05     10/08     10/10
        POINTRS         0   EXTERNAL*       7/54
        PRINT           0   EXTERNAL*      12/34
        PROGRAM        56                   6/30 D    9/34     14/08
        PS2SC3        125   PROGRAM*        9/47     10/17 L
        PS2SC4        133   PROGRAM*       10/18     10/20     10/23     10/29 L
        PS2SC6        102   PROGRAM*        9/36      9/46 L
        PS2SC.F       123   PROGRAM*        9/50     10/12 L
        PS2SC.S       134   PROGRAM*        9/44      9/49     10/27     10/29     10/34 L
        PS2SC.S1      144   PROGRAM*       10/46     10/50     10/57 L
        PTD           632   PROGRAM*       24/17     25/36 L   25/55
        PTD1          635   PROGRAM*       25/39 L   25/52
        PTD2          642   PROGRAM*       25/46     25/49     25/51 L
        PTU           621   PROGRAM*       25/08 E   25/08 L   25/28
        PTU1          623   PROGRAM*       25/13 L   25/25
        PTU2          630   PROGRAM*       25/23     25/25 L
        PUNCH           0   EXTERNAL*      12/36
        QFLAG           0   EXTERNAL*       2/12 X   13/53
        RBUF          352   PROGRAM*       13/38     15/41     16/33     16/34 S   17/03 L
        RBUFL         100                  13/38     16/33     16/34     17/02 D   17/03
        RBUFN         452   PROGRAM*       15/39     17/04 L
        RBUFP         453   PROGRAM*       15/40     16/37 S   17/05 L
        READ            0   EXTERNAL*      12/15
        RECORD         43   DBGBLK2         3/42 L
        RETURN          0   EXTERNAL*      12/05
1       P S 1 C T L  -  SUBROUTINES                                   COMPASS 3.7-871.     24/05/02. 15.53.36.      PAGE    31
        SYMBOLIC REFERENCE TABLE. 
  
        REW             0   EXTERNAL*      12/27
        RJ60          122                   6/50 D    6/51
        ROOMS           0   EXTERNAL*      18/02 X   18/38     20/04     21/35     23/15     25/45 S
                                           18/32 S   19/13     21/09     22/19     24/46 S
        RSELECT         0   EXTERNAL*       2/08 X    8/31     13/34
        R1.INP         36   FTNTEXT         9/23     26/18
        R1.RIL         20   FTNTEXT        26/15
        R=FLAG          0   EXTERNAL*       2/12 X   13/55     14/17
        SCANNER         0   EXTERNAL*       9/04      9/56     10/06
        SCNUPDT       112   DBGBLK2         4/06 L
        SDBGIND        24   DBGBLK2         3/27 L
        SELIST         32                   6/26 D    8/11 S
        SETCORE         0   EXTERNAL*      16/34
        SIZES           0   EXTERNAL*      18/02 X   18/37     21/11     22/18     23/16     25/17
                                           18/31 S   19/14     21/37     22/34     24/49 S   25/39
        SPIDER          7   DBGBLK1         4/18 L
        SPPFLAG         0   EXTERNAL*       7/13
        STOPP           0   EXTERNAL*      12/09
        STSORD          0   STSORD          6/39 L   10/34
        SUCCESS        45   DBGBLK2         3/44 L
        SYMEND         13                   6/21 D    8/05 S   25/09
        SYM1           12                   6/20 D    8/02 S
        S.ARLST         0   EXTERNAL*       2/11 X    7/30
        TINFO           0   EXTERNAL*      18/02 X   20/14     22/27     24/40
        TRACEL          5   DBGBLK1         4/16 L
        TYPE           24                   6/25 D    9/06      9/32     10/43     10/54
        T.FPBL          0   EXTERNAL*      18/01 X   24/25 S
        UPDTTBL        65   DBGBLK2         4/04 L
        VTABL         154   PROGRAM*       11/04     11/37 L
        WLABM           0   EXTERNAL*      10/25
        WRITE           0   EXTERNAL*      12/17
        WRM           644   PROGRAM*        9/17     26/13 E   26/13 L   26/24
        WTW=            0   EXTERNAL*       9/29     13/38     13/45     16/33     26/22
        Z.ARLST         0   EXTERNAL*       7/29
        .OVL            1   FTNTEXT        14/01 F   14/07 F
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      575              IDENT  STMTP
                        575                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       550 
                                        LITERALS* LOCAL         550        25 
                                        MACBUF    COMMON          0        15 
  
  
                                        ENTRY POINTS. 
  
                                        B=STMTP          0+           ENTRY          226+           F1AMAC         410+ 
                                        CONT             0+           STOPP          341+           FMAC           422+ 
                                        IAF             12+           PAUSEP         346+ 
                                        NAMELST         13+           SVARG          404+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        PSYM      WB.NOP    FSTEX     O.NML     Z.ENTR    WRM       ADDWD     DBGCUN
                                        WB.NML    SCHBET    DOFLAG    L.NML     CVDB      LSFLG     Z.NML     SYMBOL
                                        VALUE.    O.CEP     FTNNOP.   O.SCA     UENTRY.   DIRECT    OPT2      OUTUSE
                                        DATA.     ENTRY.    NOPS.     O.DIM     TEMPA0.   CFO       WTC=      ERPROI
                                        EPOINT.   ENTRY.D   UDATA.    DOCALL    WLABM     ERPRO     F.CMPS
                                        WB.FTN    RSELECT   C.BLOCK   CONVERT   N.GL      ASAER     ADDREF
  
  
  
  
                                                  IDENT  STMTP                                                   STMTP       2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  LIST   F,X                                                     STMTP       5
                                                                                                                 STMTP       6
             0                           B=STMTP  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     STMTP       7
                                  12     SYM1     EQU    12B                                                     STMTP       8
                                  17     DIM1     EQU    17B                                                     STMTP       9
                                  32     SELIST   EQU    32B                                                     STMTP      10
                                  37     DUKE     EQU    RA.SSW+37B                                              STMTP      11
                                                                                                                 STMTP      12
                                  23     CLABEL   EQU    23B                                                     STMTP      13
                                  56     PROGRAM  EQU    56B                                                     STMTP      14
                                                                                                                 STMTP      15
                                                  EXT    PSYM,WB.NML,VALUE.                                      STMTP      16
                                                  EXT    DATA.,EPOINT.,WB.FTN,WB.NOP                             STMTP      17
                                                  EXT    SCHBET,O.CEP,ENTRY.,ENTRY.D                             STMTP      18
                                                  EXT    RSELECT                                                 STMTP      19
                                                  EXT    FSTEX,DOFLAG,FTNNOP.,NOPS.                              STMTP      20
                                                  EXT    UDATA.,C.BLOCK                                          STMTP      21
                                                                                                                 STMTP      22
                                                  TABLES NML                                                     STMTP      23
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     2
  
  
                                        ***                                                                      STMTP      25
                                        *         STMTP - PROCESSORS FOR MISSCELLANEOUS STATEMENT TYPES          STMTP      26
                                        *                                                                        STMTP      27
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     3
        PARSEM - ELIST MANIPULATION MACROS                            PARSEM
  
             0                           PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                      PARSEM      3
                                        ***                                                                      PARSEM      4
                                        *         THE MACROS USE THE FOLLOWING REGISTERS:                        PARSEM      5
                                        *                X1,B2 LOWER 48 BITS AND E-LIST CODE                     PARSEM      6
                                        *                B3 IS USED TO HOLD E-LIST CODE FOR TESTS                PARSEM      7
                                        *                A4,X4 = E-LIST ADDRESS AND CURRENT ELEMENT              PARSEM      8
                                        *                A5,X5 = SELIST,(SELIST)                                 PARSEM      9
                                        *                                                                        PARSEM     10
                                         GETE     MACRO                    GET CURRENT E-LIST ELEMENT            PARSEM     11
                                                  SA5    SELIST                                                  PARSEM     12
                                                  SA4    X5                                                      PARSEM     13
                                                  UX1    B2,X4                                                   PARSEM     14
                                                  ENDM                                                           PARSEM     15
                                                                                                                 PARSEM     16
                                         UPDATE   MACRO  R                 UPDATE E-LIST POINTER IN CORE         PARSEM     17
                                         Z        SET    R 4                                                     PARSEM     18
                                                  SX6    A.Z-B5                                                  PARSEM     19
                                                  SA6    A5                                                      PARSEM     20
                                                  ENDM                                                           PARSEM     21
                                                                                                                 PARSEM     22
                                         ADVIN    MACRO                    GETE AND UPDATE                       PARSEM     23
                                                  GETE                                                           PARSEM     24
                                                  UPDATE                                                         PARSEM     25
                                                  ENDM                                                           PARSEM     26
                                                                                                                 PARSEM     27
                                         NEXTE    MACRO  R                 GETE NEXT E-LIST ITEM                 PARSEM     28
                                         Z        SET    R 4                                                     PARSEM     29
                                                  SA.Z   A.Z-B5                                                  PARSEM     30
                                                  UX1    B2,X.Z                                                  PARSEM     31
                                                  ENDM                                                           PARSEM     32
                                                                                                                 PARSEM     33
                                         BACKE    MACRO                    BACK OFF E-LIST POINTER               PARSEM     34
                                                  SA5    SELIST                                                  PARSEM     35
                                                  SX6    X5+B5                                                   PARSEM     36
                                                  SA6    A5                                                      PARSEM     37
                                                  ENDM                                                           PARSEM     38
                                                                                                                 PARSEM     39
                                         CON      MICRO  1,,/B0/           E LIST CODE FOR A CON                 PARSEM     40
                                         NAME     MICRO  1,,/B5/           E-LIST CODE FOR A NAME ( = 1 )        PARSEM     41
                                                                                                                 PARSEM     42
                                         IF.EQ    MACRO  ECODE,LABEL       IF( B2 .EQ. ECODE ) GO TO LABEL       PARSEM     43
                                                  IF     DEF,ECODE                                               PARSEM     44
                                                  SB3    ECODE                                                   PARSEM     45
                                                  EQ     B2,B3,LABEL                                             PARSEM     46
                                                  ELSE                                                           PARSEM     47
                                                  EQ     B2,"ECODE",LABEL                                        PARSEM     48
                                                  ENDIF                                                          PARSEM     49
                                                  ENDM                                                           PARSEM     50
                                                                                                                 PARSEM     51
                                         IF.NE    MACRO  ECODE,LABEL       IF( B2 .NE. ECODE ) GO TO LABEL       PARSEM     52
                                                  IF     DEF,ECODE                                               PARSEM     53
                                                  SB3    ECODE                                                   PARSEM     54
                                                  NE     B2,B3,LABEL                                             PARSEM     55
                                                  ELSE                                                           PARSEM     56
                                                  NE     B2,"ECODE",LABEL                                        PARSEM     57
                                                  ENDIF                                                          PARSEM     58
                                                  ENDM                                                           PARSEM     59
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     4
        PARSEM - ELIST MANIPULATION MACROS                            PARSEM
  
                                                                                                                 PARSEM     60
                                         IF.GE    MACRO  ECODE,LABEL       IF(B2 .GE. ECODE) GO TO LABEL         PARSEM     61
                                                  IF     DEF,ECODE                                               PARSEM     62
                                                  SB3    ECODE                                                   PARSEM     63
                                                  GE     B2,B3,LABEL                                             PARSEM     64
                                                  ELSE                                                           PARSEM     65
                                                  GE     B2,"ECODE",LABEL                                        PARSEM     66
                                                  ENDIF                                                          PARSEM     67
                                                  ENDM                                                           PARSEM     68
                                                                                                                 PARSEM     69
                                         IF.LE    MACRO  ECODE,LABEL       IF(B2 .LE. ECODE) GO TO LABEL         PARSEM     70
                                                  IF     DEF,ECODE                                               PARSEM     71
                                                  SB3    ECODE                                                   PARSEM     72
                                                  LE     B2,B3,LABEL                                             PARSEM     73
                                                  ELSE                                                           PARSEM     74
                                                  LE     B2,"ECODE",LABEL                                        PARSEM     75
                                                  ENDIF                                                          PARSEM     76
                                                  ENDM                                                           PARSEM     77
                                                                                                                 PARSEM     78
                                         IF.GT    MACRO  ECODE,LABEL       IF(B2 .GT. ECODE) GO TO LABEL         PARSEM     79
                                                  IF     DEF,ECODE                                               PARSEM     80
                                                  SB3    ECODE                                                   PARSEM     81
                                                  GT     B2,B3,LABEL                                             PARSEM     82
                                                  ELSE                                                           PARSEM     83
                                                  GT     B2,"ECODE",LABEL                                        PARSEM     84
                                                  ENDIF                                                          PARSEM     85
                                                  ENDM                                                           PARSEM     86
                                                                                                                 PARSEM     87
                                         IF.LT    MACRO  ECODE,LABEL       IF(B2 .LT. ECODE) GO TO LABEL         PARSEM     88
                                                  IF     DEF,ECODE                                               PARSEM     89
                                                  SB3    ECODE                                                   PARSEM     90
                                                  LT     B2,B3,LABEL                                             PARSEM     91
                                                  ELSE                                                           PARSEM     92
                                                  LT     B2,"ECODE",LABEL                                        PARSEM     93
                                                  ENDIF                                                          PARSEM     94
                                                  ENDM                                                           PARSEM     95
                                                                                                                 PARSEM     96
                                                  ENDX                                                           PARSEM     97
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     5
        FMACDEF - MACRO FORMATION MACROS                              FMACDEF 
  
             0                           FMACDEF  CTEXT  FMACDEF - MACRO FORMATION MACROS                        FMACDEF     2
                                        **        FMACDEF - MACRO DEFINITIONS TO CALL THE COMPS MACOUT ROUTINES. FMACDEF     3
                                        *         THE FOLLOWING MACROS ARE USED TO OUTPUT MACRO CALLS TO THE     FMACDEF     4
                                        *         COMPS FILE.                                                    FMACDEF     5
                                        *         FOR FURTHER INFORMATION ONE SHOULD CONSULT THE SUBROUTINES     FMACDEF     6
                                        *         "SVARG" , "FMAC" AND F1AMAC" .                                 FMACDEF     7
                                        *                                                                        FMACDEF     8
                                                                                                                 FMACDEF     9
                                         INTARG   MACRO                    INITIALIZE NUMBER OF ARGS             FMACDEF    10
                                                  SB7    B0                                                      FMACDEF    11
                                                  ENDM                                                           FMACDEF    12
                                                                                                                 FMACDEF    13
                                         SVARG    MACRO  TYPE,ARGNUM       SAVE A MACRO ARGUMENT ( IN X6 )       FMACDEF    14
                                        *                                  USES X6,X7,B6,B7 AND A6               FMACDEF    15
                                                  SB6    "F_TYPE"                                                FMACDEF    16
                                                  PX6    B6,X6                                                   FMACDEF    17
                                                  SB6    ARGNUM                                                  FMACDEF    18
                                                  RJ     =XSVARG                                                 FMACDEF    19
                                                  ENDM                                                           FMACDEF    20
                                                                                                                 FMACDEF    21
                                         FNAME    MICRO  1,,/B0/           TABLE OF POSSIBLE TYPE CODES          FMACDEF    22
                                         FOCT     MICRO  1,,/B5/           OCTAL CONVERSION                      FMACDEF    23
                                         FINT     MICRO  1,,/B5+B5/        INTEGER CONVERSION - 1 DIGIT ONLY     FMACDEF    24
                                         FCHAR    MICRO  1,,/3/            CHARACTER STRING                      FMACDEF    25
                                         FNAMEL   MICRO  1,,/4/      ACTUAL NAME, I.E., OVERIDE IAF FLAG WHICH   FMACDEF    26
                                        *                            WOULD FORCE FORMATION OF ?SYMBOL            FMACDEF    27
                                                                                                                 FMACDEF    28
                                         NARGS=   MACRO  SUM               SAVE TOTAL NUMBER OF ARGS FOR FMAC    FMACDEF    29
                                                  SX7    -SUM                                                    FMACDEF    30
                                                  SA7    NARGS                                                   FMACDEF    31
                                                  ENDM                                                           FMACDEF    32
                                                                                                                 FMACDEF    33
                                         FMAC     MACRO  MACNAME                                                 FMACDEF    34
                                                  IFC    NE,//MACNAME/,1                                         FMACDEF    35
                                                  SA1    =10H  MACNAME                                           FMACDEF    36
                                                  RJ     =XFMAC                                                  FMACDEF    37
                                                  ENDM                                                           FMACDEF    38
                                                                                                                 FMACDEF    39
                                         F1AMAC   MACRO  MACNAME           FORM AND OUTPUT A 1 ARG MACRO CALL    FMACDEF    40
                                        *                                  ARGUMENT IS ASSUMED TO BE A NAME      FMACDEF    41
                                        *                                  FROM SYMTAB                           FMACDEF    42
                                                  SA1    =10H  MACNAME                                           FMACDEF    43
                                                  RJ     =XF1AMAC                                                FMACDEF    44
                                                  ENDM                                                           FMACDEF    45
  
  
  
                                        *         LOCATIONS USED BY "SVARG" TO SAVE THE MACRO CALLS              FMACDEF    47
                                        *         AND "FMAC" TO FORMAT THEM                                      FMACDEF    48
                                                                                                                 FMACDEF    49
                                                  USE    /MACBUF/                                                FMACDEF    50
             0  00000000000000000000     NARGS                             NUMBER OF ARGS                        FMACDEF    51
             1                     1     MBUF     BSSZ   1                 MACRO OUTPUT BUFFER                   FMACDEF    52
                                                                                                                 FMACDEF    53
             2                    12     ABUF     BSSZ   10                ARGUMENT BUFFER                       FMACDEF    54
                                                  USE    *                                                       FMACDEF    55
                                                  ENDX                                                           FMACDEF    56
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     6
        CONT - PROCESS CONTINUE STATEMENT.                            CONT
  
                                        **        CONT - PROCESS *CONTINUE* STATEMENT.                           STMTP      31
                                        *                                                                        STMTP      32
                                        *                                                                        STMTP      33
                                        *         ENTRY  NONE                                                    STMTP      34
                                        *                                                                        STMTP      35
                                        *         EXIT   NONE                                                    STMTP      36
                                        *                                                                        STMTP      37
                                        *         USES   NONE                                                    STMTP      38
                                        *                                                                        STMTP      39
                                        *         CALLS  GETE, IF., POSTER                                       STMTP      40
                                                                                                                 STMTP      41
                                                                                                                 STMTP      42
                                 472     E314     =      314         SPURIOUS CHARACTERS AFTER CONTINUE IGNORED  STMTP      43
                                                                                                                 STMTP      44
             0  0400400000 +             CONT     SUBR   =           ** ENTRY/EXIT **                            STMTP      45
             1  5150000032                        GETE                                                           STMTP      46
             2  6130000004                        IF.EQ  EL.EOS,EXIT.  IF EOS                                    STMTP      47
                                                                                                                 STMTP      48
                                        *         POST INFORMATIVE ERROR FOR SPURIOUS CHARS AFTER *CONTINUE*.    STMTP      49
                                                                                                                 STMTP      50
             3  6160000472                        POSTER SEV=INF,NR=E314,FMT=ELIST,TXT=X4,RETURN=EXIT.           STMTP      51
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     7
         NAMELST - NAMELIST STATEMENT PROCESSOR 
  
                                        ***                                                                      STMTP      53
                                        *         NAMLIST - PROCESS NAMELIST STATEMENT                           STMTP      54
                                        *                                                                        STMTP      55
                                                                                                                 STMTP      56
                                        *         ERROR NUMBERS                                                  STMTP      57
                                                                                                                 STMTP      58
                                 122     E.NSE    EQU    82                NAMELIST STMT SYNTAX ERROR            STMTP      59
                                 123     E.BGN    EQU    83                BAD GROUP NAME                        STMTP      60
                                 124     E.GNE    EQU    84                GROUP NAME NOT IN SLASHS              STMTP      61
                                 125     E.ONV    EQU    85                CURRENT E-LIST WAS NOT A VARIABLE     STMTP      62
                                 126     E.CUN    EQU    86                PRESENT USE CONFLICTS WITH PREVIOUS   STMTP      63
                                 127     E.VDIM   EQU    87                VARIABLE DIMENSIONS NOT ALLOWED       STMTP      64
                                 264     E.NASA   EQU    180               NAMELIST STMT IS NON USAS             STMTP      65
                                                                                                                 STMTP      66
             5                     1     NMLGN    BSS    1           GROUP NAME INFO, 42/INDEX TO NML TABLE      STMTP      67
                                        *                            18/ADDR OF WORD B                           STMTP      68
             6                     1     SYMORD   BSS    1           SYMTAB ORD OF NAMELIST VARIABLE             STMTP      69
             7                     1     PNITYPE  BSS    1           TYPE OF NAMELIST VARIABLE                   STMTP      70
            10                     1     DEB      BSS    1           DIM/EQU FLAG                                STMTP      71
            11                     1     PNIEQU   BSS    1           24/0,18/BASE,18/BIAS OF EQU VAR.            STMTP      72
                                                                                                                 STMTP      73
                                 550 +   DATA.CD  LIT    11C  DATA 0B                                            STMTP      74
  
  
                                                                                                                 STMTP      76
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP      77
            12  00000000000000000000     IAF      ENTRY. 0                                                       STMTP      78
                                         #DAL     ENDIF                                                          STMTP      79
                                                                                                                 STMTP      80
            13  00000000000000000000     NAMELST  ENTRY.                                                         STMTP      81
            14  7160000000 X                      OUTUSE DATA.             GET IN THE RIGHT RB                   STMTP      82
                                                                                                                 STMTP      83
                                        *         PROCESS GROUP NAME                                             STMTP      84
                                                                                                                 STMTP      85
            15  5150000032                        GETE                     FIRST E-LIST ELEMENT                  STMTP      86
            16  6130000023                        IF.NE  EL.SLASH,NML.E1   IF NOT A /                            STMTP      87
                                                                                                                 STMTP      88
            17  55445                    NML1     NEXTE                                                          STMTP      89
                          0525000070 +            IF.NE  NAME,NML.E4       IF NOT A NAME                         STMTP      90
            20  75645                             UPDATE                                                         STMTP      91
                          6170000022 +            SYMBOL                   GET SYMTAB ORDINAL                    STMTP      92
            22  0400000024 +                      EQ     NML2                                                    STMTP      93
                                                                                                                 STMTP      94
            23  6160000123                        SB6    E.BGN                                                   STMTP      95
                          0400000073 +            EQ     NML.E6A           PREVIOUS USEAGE IN ANOTHER CONTEXT    STMTP      96
                                                                                                                 STMTP      97
            24  0307000025 +             NML2     ZR     X7,*+1            IF NO PREVIOUS USE  IN DEBUG STMTS    STMTP      98
                          0100000000 X            CALL   DBGCUN            ISSUE AN INFORMATIVE ERROR            STMTP      99
            25  5130000000 X                      SA3    WB.NML            WORD B BITS                           STMTP     100
                          5140000000 X            SA4    DATA.                                                   STMTP     101
            26  73645                             SX6    X4+B5             DATA. = DATA.+1                       STMTP     102
                     54640                        SA6    A4                                                      STMTP     103
                          20423                   LX4    P.RA                                                    STMTP     104
                               36034              IX0    X3+X4                                                   STMTP     105
            27  12702                             BX7    X0+X2             SET TYPE, RL,RA AND RB IN WORD B      STMTP     106
                     54720                        SA7    A2                                                      STMTP     107
                          76610                   SX6    B1                                                      STMTP     108
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     8
         NAMELST - NAMELIST STATEMENT PROCESSOR 
  
                               74720              SX7    A2                                                      STMTP     109
            30  5160000063 +                      SA6    GNORD             SAVE SYMTAB ORDINAL                   STMTP     110
                          5150000000 X            SA5    L.NML                                                   STMTP     111
            31  20522                             LX5    18                                                      STMTP     112
                     12657                        BX6    X5+X7       42/INDEX TO NML,18/ADDR OF WORD B           STMTP     113
                          5160000005 +            SA6    NMLGN                                                   STMTP     114
                                                                                                                 STMTP     115
            32  5150000000 X                      SA5    RSELECT                                                 STMTP     116
                          0305000034 +            ZR     X5,NML3           IF R = 0                              STMTP     117
            33  43201                             ADDREF B1,DEF            DEFINITION OF THE NAME                STMTP     118
                                                                                                                 STMTP     119
            34  5110000063 +             NML3     SA1    GNORD                                                   STMTP     120
                          10611                   BX6    X1                                                      STMTP     121
            35  5110000552 +                      F1AMAC GNAME             OUTPUT GROUP NAME DEFINITION          STMTP     122
                                                                                                                 STMTP     123
            36  5150000032                        GETE                     NEXT AFTER THE NAME                   STMTP     124
            37  6130000023                        IF.NE  EL.SLASH,NML.E3   IF NO SECOND /                        STMTP     125
                                                                                                                 STMTP     126
                                        *         PROCESS THE LIST OF NAMES                                      STMTP     127
                                                                                                                 STMTP     128
            40  55445                    NML.L    NEXTE                                                          STMTP     129
                          0525000070 +            IF.NE  NAME,NML.E4       IF NOT A NAME                         STMTP     130
            41  75645                             UPDATE                                                         STMTP     131
                          0100000101 +            RJ     PNV               PROCESS NAMELIST VARIABLE             STMTP     132
            42  5130000000 X                      SA3    DATA.                                                   STMTP     133
                          7263000002              SX6    X3+2                                                    STMTP     134
            43  54630                             SA6    A3                DATA. = DATA. + 2                     STMTP     135
                     5150000032                   GETE                     NEXT ELEMENT                          STMTP     136
                     6130000003                   IF.EQ  EL.COMMA,NML.L    LOOP IF A COMMA                       STMTP     137
                          6110000001              SB1    1                                                       STMTP     138
            46  6160000550 +                      WRITEC =XF.CMPS,DATA.CD,2                                      STMTP     139
            50  5150000000 X                      SA5    DATA.                                                   STMTP     140
                          6151000000              SB5    B1+                                                     STMTP     141
            51  73655                             SX6    X5+B5             DATA. = DATA. + 1                     STMTP     142
                     54650                        SA6    A5                                                      STMTP     143
                                                                                                                 STMTP     144
                          5120000000 X            SA2    =XOPT2                                                  STMTP     145
            52  0302000056 +                      ZR     X2,NML4     IF NOT OPT=2                                STMTP     146
                          5130000000 X            SA3    L.NML       NML ORD                                     STMTP     147
            53  5140000005 +                      SA4    NMLGN       42/INDEX TO NML,18/ADDR OF WORD B           STMTP     148
                          53240                   SA2    X4          WORD B                                      STMTP     149
                               21422              AX4    18                                                      STMTP     150
            54  37134                             IX1    X3-X4       NO. OF NAMELIST VARIABLES                   STMTP     151
                     20351                        LX3    P.DIMP                                                  STMTP     152
                          12723                   BX7    X2+X3       INSERT NML ORD INTO WORD B                  STMTP     153
                               54720              SA7    A2                                                      STMTP     154
                                                                                                                 STMTP     155
            55  5100000000 X                      ADDWD  NML,X1      ADD NO. OF VARIABLES TO TABLE               STMTP     156
                                                                                                                 STMTP     157
            56  5150000032               NML4     GETE               ELEMENT AFTER LAST NAME                     STMTP     158
            57  6130000023                        IF.EQ  EL.SLASH,NML1     LOOP FOR NEXT GROUP IF A /            STMTP     159
                                                                                                                 STMTP     160
            60  6130000004                        IF.NE  EL.EOS,NML.E1     IF NOT END OF STMT                    STMTP     161
                                                                                                                 STMTP     162
            61  6160777513                        POSTER SEV=ANSI,NR=E.NASA,RETURN=NAMELST   *NON-ANSI STMT*     STMTP     163
                                                                                                                 STMTP     164
            63                     1     GNORD    BSS    1                 ORDINAL OF GROUP NMAE                 STMTP     165
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE     9
         NAMELST - NAMELIST STATEMENT PROCESSOR 
  
                                        *         ERROR EXITS                                                    STMTP     167
                                                                                                                 STMTP     168
            64  6160000122               NML.E1   SB6    E.NSE             SYNTAX ERROR                          STMTP     169
                          0400000074 +            EQ     NML.EX                                                  STMTP     170
                                                                                                                 STMTP     171
            65  6160000123               NML.E2   SB6    E.BGN             BAD GROUP NAME                        STMTP     172
                          0400000074 +            EQ     NML.EX                                                  STMTP     173
                                                                                                                 STMTP     174
            66  5120000063 +             NML.E3   SA2    GNORD                                                   STMTP     175
                          0100000000 X            RJ     PSYM                                                    STMTP     176
            67  6160000124                        SB6    E.GNE             GROUP NAME NOT IN // S                STMTP     177
                          0400000074 +            EQ     NML.EX                                                  STMTP     178
                                                                                                                 STMTP     179
            70  6160000125               NML.E4   SB6    E.ONV             CURRENT OBJECT NOT A VARIABLE         STMTP     180
                          0400000074 +            EQ     NML.EX                                                  STMTP     181
                                                                                                                 STMTP     182
            71  6160000126               NML.E5   SB6    E.CUN             BAD VARIABLE NAME ( SEMANTICS )       STMTP     183
                          0400000073 +            EQ     NML.E6A                                                 STMTP     184
                                                                                                                 STMTP     185
            72  6160000127               NML.E6   SB6    E.VDIM            VARIABLE DIMS NO ALLOWED              STMTP     186
                                                                                                                 STMTP     187
            73  76210                    NML.E6A  SX2    B1                SYMTAB ORDINAL                        STMTP     188
                     0100000000 X                 RJ     PSYM              FORMAT NAME FOR ERPRO                 STMTP     189
                                                                                                                 STMTP     190
            74  6170000013 +             NML.EX   POSTER SEV=FE,NR=**,RETURN=NAMELST                             STMTP     191
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    10
         PNV - PROCESS NAMELIST VARIABLE NAME 
  
                                         TBITN    MACRO  BIT,LABEL         IF( ^ BIT ) GO TO LABEL               STMTP     193
                                                  BX3    X1                                                      STMTP     194
                                                  LX3    59-P.BIT                                                STMTP     195
                                                  PL     X3,LABEL                                                STMTP     196
                                                  ENDM                                                           STMTP     197
                                                                                                                 STMTP     198
                                        ***                                                                      STMTP     199
                                        *         PNV - PROCESS NAMELIST VARIABLE                                STMTP     200
                                        *                                                                        STMTP     201
                                        *         ON ENTRY:                                                      STMTP     202
                                        *                X1 = 8R_VARNAME                                         STMTP     203
                                        *                                                                        STMTP     204
                                                                                                                 STMTP     205
                                        *         FIRST OCCURANCE - SET TYPE AND VN BIT                          STMTP     206
                                                                                                                 STMTP     207
            75  0307000077 +             PNV.F    ZR     X7,PNV.F1         IF NO PREVIOUS USE IN A DEBUG STMT    STMTP     208
                          43000                   CFO    VAR               CHECK SETTING OF DEBUG BITS           STMTP     209
                                                                                                                 STMTP     210
            77  36262                    PNV.F1   IX2    X6+X2             SET TYPE                              STMTP     211
                     76050                        SX0    B5                                                      STMTP     212
                          20050                   LX0    P.VAR             AND VAR BIT                           STMTP     213
                               12702              BX7    X0+X2                                                   STMTP     214
           100  54720                             SA7    A2                                                      STMTP     215
                     22207                        LX2    X7                                                      STMTP     216
                          0400000107 +            EQ     PNV1                                                    STMTP     217
                                                                                                                 STMTP     218
           101  00000000000000000000     PNV                                                                     STMTP     219
           102  6170000103 +                      SYMBOL                   GET SYMTAB ORDINAL                    STMTP     220
           103  0400000075 +                      EQ     PNV.F                                                   STMTP     221
                                                                                                                 STMTP     222
                                        *         PREVIOUS OCCURANCES                                            STMTP     223
                                                                                                                 STMTP     224
           104  0515000107 +                      NE     B1,B5,PNV1        IF NOT ORDINAL 1                      STMTP     225
                          5130000000 X            SA3    VALUE.                                                  STMTP     226
           105  0303000071 +                      ZR     X3,NML.E5         IF NOT A FUNCTION SUBPROGRAM          STMTP     227
                          63130                   SB1    X3                                                      STMTP     228
                               66211              SB2    B1+B1                                                   STMTP     229
           106  55102                             SA1    A0-B2             WORD A OF VALUE.                      STMTP     230
                     55215                        SA2    A1-B5             WORD B                                STMTP     231
                                                                                                                 STMTP     232
           107  43004                    PNV1     MX0    L.TYP                                                   STMTP     233
                     11302                        BX3    X0*X2                                                   STMTP     234
                          20304                   LX3    L.TYP                                                   STMTP     235
           110  7243777772                        SX4    X3-T.OCT                                                STMTP     236
                          0324000071 +            PL     X4,NML.E5         ERROR IF TYPE ECS, RETURNS OF SUCH    STMTP     237
                                                                                                                 STMTP     238
           111  10511                             BX5    X1                                                      STMTP     239
                     20554                        LX5    59-P.FUN                                                STMTP     240
                          10322                   BX3    X2                                                      STMTP     241
                               20305              LX3    59-P.EXT                                                STMTP     242
           112  12435                             BX4    X3+X5                                                   STMTP     243
                     0334000071 +                 NG     X4,NML.E5         IF FUNCTION OR EXTERNAL               STMTP     244
                                                                                                                 STMTP     245
           113  7100200000                        SX0    V.DEF                                                   STMTP     246
                          12601                   BX6    X0+X1                                                   STMTP     247
                               43301              MX3    1                                                       FCC0389     4
           114  20351                             LX3    1+P.VAR                                                 FCC0389     5
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    11
         PNV - PROCESS NAMELIST VARIABLE NAME 
  
                     12723                        BX7    X2+X3       SET VAR BIT                                 FCC0389     6
                          22207                   LX2    X7                                                      FCC0389     7
                               54720              SA7    A2                                                      FCC0389     8
           115  54610                             SA6    A1                SET DEFINED BIT                       STMTP     248
                                                                                                                 STMTP     249
                     10322                        BX3    X2                                                      STMTP     250
                          43060                   MX0    60-L.DIMP                                               STMTP     251
                               21351              AX3    P.DIMP                                                  STMTP     252
           116  15430                             BX4    -X0*X3                                                  STMTP     253
                     7130030000                   SX3    V.DIM+V.EQU                                             STMTP     254
                               66200              SB2    B0                                                      STMTP     255
           117  11631                             BX6    X3*X1                                                   STMTP     256
                     5160000010 +                 SA6    DEB         SAVE DIM/EQU INFO                           STMTP     257
           120  0306000122 +                      ZR     X6,PNV2     IF NOT DIMENSIONED OR EQUIV/ED              STMTP     258
                          63240                   SB2    X4                                                      STMTP     259
                               66222              SB2    B2+B2             INDEX TO DIM TABLE                    STMTP     260
           121  5130000017                        SA3    DIM1                                                    STMTP     261
                          63232                   SB2    B2+X3             B2 = ADDRESS OF DIM ENTRY             STMTP     262
                                                                                                                 STMTP     263
                                        *         THE REGISTERS NOW HOLD:                                        STMTP     264
                                        *         A1,X1,A2,X2 - WORD A AND WORD B OF SYMTAB ENTRY                STMTP     265
                                        *         B1 = SYMTAB ORDINAL , B2 = ADDRESS OF DIM ENTRY OR 0           STMTP     266
                                        *         DO NOT DESTROY THEM UNTIL AFTER THE ADDREF CALL                STMTP     267
                                                                                                                 STMTP     268
           122  76610                    PNV2     SX6    B1                                                      STMTP     269
                     5160000006 +                 SA6    SYMORD            SAVE SYMTAB ORD FOR PNI SUBROUTINE    STMTP     270
                               66700              SB7    B0                NUMBER OF ARGS                        STMTP     271
           123  6160000004                        SVARG  NAMEL,1     ARG 1 = VARIABLE NAME                       STMTP     272
                                                                                                                 STMTP     273
           125  10622                             BX6    X2                                                      STMTP     274
                     21670                        AX6    P.TYP                                                   STMTP     275
                          5160000007 +            SA6    PNITYPE           SAVE TYPE FOR PNI SUBROUTINE          STMTP     276
           126  73665                             SX6    X6+B5                                                   STMTP     277
                                                                                                                 STMTP     278
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     279
                     43072                        MX0    -L.LVL                                                  STMTP     280
                          10322                   BX3    X2                                                      STMTP     281
                               20372              LX3    -P.LVL                                                  STMTP     282
           127  15430                             BX4    -X0*X3            EXTRACT THE LEVEL OF THE VARIABLE     STMTP     283
                     7244777774                   SX4    X4-3                                                    STMTP     284
           130  0304000071 +                      ZR     X4,NML.E5   IF LEVEL 3 ERROR                            STMTP     285
                                                  LX3    P.LVL+59-P.LCM                                          STMTP     286
                          0323000134 +            PL     X3,PNV3     IF NOT LCM RESIDENT                         STMTP     287
           131  5130000000 X                      SA3    =XDIRECT                                                STMTP     288
                          10733                   BX7    X3                                                      STMTP     289
           132  5170000012 +                      SA7    IAF                                                     STMTP     290
                          7140000010              SX4    1S3                                                     STMTP     291
           133  12646                             BX6    X4+X6                                                   STMTP     292
                                         #DAL     ENDIF                                                          STMTP     293
                                                                                                                 STMTP     294
           134  66650                    PNV3     SVARG  OCT,2             ARG 2 = TYPE                          STMTP     295
                                                                                                                 STMTP     296
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     297
           136  43001                             MX0    1                                                       STMTP     298
                                         #DAL     ENDIF                                                          STMTP     299
                                                                                                                 STMTP     300
                                                                                                                 STMTP     301
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    12
         PNV - PROCESS NAMELIST VARIABLE NAME 
  
                     10311                        TBITN  EQU,PNV4          IF NOT EQUIVALENCED                   STMTP     302
                          56320                   SA3    B2                WORD 1 OF DIM ENTRY                   STMTP     303
                               21322              AX3    18                                                      STMTP     304
           140  10633                             BX6    X3                                                      STMTP     305
                     63430                        SB4    X3                SAVE BIAS                             STMTP     306
                          5160000011 +            SA6    PNIEQU      SAVE FOR PNI IF OPT=2                       STMTP     307
           141  21322                             AX3    18                                                      STMTP     308
                     73630                        SX6    X3                                                      STMTP     309
                          66600                   SVARG  NAME,3            ARG 3 = BASE                          STMTP     310
           143  76640                             SX6    B4                                                      STMTP     311
                     66650                        SVARG  OCT,4             ARG 4 = BIAS                          STMTP     312
                                                                                                                 STMTP     313
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     314
           145  43000                             MX0    0                                                       STMTP     315
                                         #DAL     ENDIF                                                          STMTP     316
                                                                                                                 STMTP     317
                                                                                                                 STMTP     318
           146  10311                    PNV4     TBITN  FP,PNV5           IF NOT AN F.P.                        STMTP     319
           147  7161777775                        SX6    B1-2              FP ORDINAL                            STMTP     320
                          66650                   SVARG  OCT,5             ARG 5 = FP ORDINAL                    STMTP     321
                                                                                                                 STMTP     322
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     323
           151  43000                             MX0    0                                                       STMTP     324
                     43700                        MX7    0                                                       STMTP     325
                          5170000012 +            SA7    IAF                                                     STMTP     326
                                         #DAL     ENDIF                                                          STMTP     327
                                                                                                                 STMTP     328
                                                                                                                 STMTP     329
           152                           PNV5     BSS    0                                                       STMTP     330
                                                                                                                 STMTP     331
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     332
           152  5130000000 X                      SA3    =XDIRECT                                                STMTP     333
                          0304000160 +            ZR     X4,PNV5.A   IF NOT LEVEL 2                              STMTP     334
           153  0303000160 +                      ZR     X3,PNV5.A   IF NOT INDIRECT MODE                        STMTP     335
                          0300000160 +            ZR     X0,PNV5.A   IF F.P. OR EQUIVALENCED                     STMTP     336
           154  76610                             SX6    B1           SYMTAB ORDINAL                             STMTP     337
                     66600                        SVARG  NAME,3      BASE                                        STMTP     338
           156  43600                             MX6    0           KLUDGE ZERO BIAS FOR FMAC TO ADD TO         STMTP     339
                     66650                        SVARG  OCT,4        BIAS                                       STMTP     340
                                         #DAL     ENDIF                                                          STMTP     341
                                                                                                                 STMTP     342
           160  10311                    PNV5.A   TBITN  DIM,PNV6    IF NOT DIMENSIONED                          STMTP     343
           161  56325                             SA3    B2+B5             WORD 2 OF DIM ENTRY                   STMTP     344
                     43003                        MX0    3                                                       STMTP     345
                          11403                   BX4    X0*X3                                                   STMTP     346
                               20403              LX4    3                                                       STMTP     347
           162  63440                             SB4    X4                B4 = NUMBER OF DIMS                   STMTP     348
                     10644                        BX6    X4                                                      STMTP     349
                          66655                   SVARG  INT,6             ARG 6 = NUMBER OF DIMENSIONS          STMTP     350
           164  20071                             LX0    3+54                                                    STMTP     351
                     11403                        BX4    X0*X3                                                   STMTP     352
                          0314000072 +            NZ     X4,NML.E6         ERROR IF VARIABLE DIMENSIONS          STMTP     353
                                                                                                                 STMTP     354
           165  73630                             SX6    X3                                                      STMTP     355
                     66650                        SVARG  OCT,7             ARG 7 = DIM1                          STMTP     356
           167  67445                             SB4    B4-B5                                                   STMTP     357
                     0440000203 +                 ZR     B4,PNV6           IF ONLY 1 DIM                         STMTP     358
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    13
         PNV - PROCESS NAMELIST VARIABLE NAME 
  
           170  5140000000 X                      SA4    DATA.                                                   STMTP     359
                          73645                   SX6    X4+B5                                                   STMTP     360
                               54640              SA6    A4                                                      STMTP     361
           171  73030                             SX0    X3                D1                                    STMTP     362
                     21322                        AX3    18                                                      STMTP     363
                          73630                   SX6    X3                                                      STMTP     364
                               42006              IX0    X0*X6             D1*D2                                 STMTP     365
           172  66650                             SVARG  OCT,8             ARG 8 = DIM2                          STMTP     366
           174  67445                             SB4    B4-B5                                                   STMTP     367
                     0440000203 +                 ZR     B4,PNV6           IF ONLY 2 DIMS                        STMTP     368
                               21322              AX3    18                                                      STMTP     369
           175  73330                             SX3    X3                PRODUCT(DIMS) * (SDPF+1)              STMTP     370
                     21270                        AX2    P.TYP             LAST ARG, DESTROY X2                  STMTP     371
                          7252777774              SX5    X2-T.DBL                                                STMTP     372
           176  0335000177 +                      NG     X5,PNV5A          IF SINGLE PRECISION                   STMTP     373
                          21301                   AX3    1                 /2                                    STMTP     374
           177  66670                    PNV5A    SB6    B7                SAVE B7                               STMTP     375
                     27303                        IX6    X3/X0             COMPUTE D3                            STMTP     376
           201  66760                             SB7    B6                RESTORE ARG COUNT TO B7               STMTP     377
                     66650                        SVARG  OCT,9             ARG 9 = D3                            STMTP     378
                                                                                                                 STMTP     379
           203  77707                    PNV6     NARGS= B7                SAVE NUMBER OF ARGS                   STMTP     380
                                                                                                                 STMTP     381
           204  5150000000 X                      SA5    RSELECT                                                 STMTP     382
                          0305000206 +            ZR     X5,PNV7           IF R = 0                              STMTP     383
           205  43200                             ADDREF B1,REF            A REFERENCE FOR THE VARIABLE          STMTP     384
                                                                                                                 STMTP     385
           206  5110000553 +             PNV7     FMAC   NAME              OUTPUT NAME MACRO CALL                STMTP     386
                                                                                                                 STMTP     387
                                        *         WHEN IN OPT=2, THE OPTIMIZATION INFORMATION ABOUT THE NAMELIST STMTP     388
                                        *         VARIABLES WILL BE ENTERED IN THE NML TABLE .  FOR A NAMELIST   STMTP     389
                                        *         I/O, LISTIO WILL PUT THESE VARIABLES OUT IN THE PIO MACROS.    STMTP     390
                                                                                                                 STMTP     391
           207  5120000000 X                      SA2    =XOPT2                                                  STMTP     392
                          0302000101 +            ZR     X2,PNV      IF NOT IN OPT=2                             STMTP     393
           210  5110000006 +                      SA1    SYMORD                                                  STMTP     394
                          5140000010 +            SA4    DEB         DIM/EQU INFO                                STMTP     395
                                                  LX1    AP.IHP      CA=0, IH                                    STMTP     396
           211  43701                             MX7    1           BIT USED FOR SETTING FLAGS                  STMTP     397
                     20457                        LX4    59-P.EQU                                                STMTP     398
                          0324000214 +            PL     X4,PNV8     IF NOT EQUIVED                              STMTP     399
           212  5130000011 +                      SA3    PNIEQU      EQU INFO                                    STMTP     400
                          73630                   SX6    X3          BIAS                                        STMTP     401
                               21322              AX3    18                                                      STMTP     402
           213  73230                             SX2    X3          BASE                                        STMTP     403
                     20622                        LX6    AP.CAP                                                  STMTP     404
                          12162                   BX1    X6+X2       CA,IH                                       STMTP     405
                                                                                                                 STMTP     406
           214  20473                    PNV8     LX4    P.EQU-P.DIM                                             STMTP     407
                     0324000216 +                 PL     X4,PNV9     IF NOT DIMENSIONED                          STMTP     408
                               20767              LX7    1+AP.CRP                                                STMTP     409
           215  12171                             BX1    X7+X1       CR,CA,IH                                    STMTP     410
                     0400000220 +                 EQ     PNV10                                                   STMTP     411
                                                                                                                 STMTP     412
           216  5140000007 +             PNV9     SA4    PNITYPE                                                 STMTP     413
                          7254777774              SX5    X4-T.DBL                                                STMTP     414
           217  0335000220 +                      MI     X5,PNV10    IF SINGLE PRECISION                         STMTP     415
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    14
         PNV - PROCESS NAMELIST VARIABLE NAME 
  
                          20772                   LX7    1+AP.P1P                                                STMTP     416
                               12171              BX1    X7+X1       SET DOUBLE WORD BIT                         STMTP     417
                                                                                                                 STMTP     418
           220  5100000000 X             PNV10    ADDWD  NML,X1      ADD ENTRY TO TABLE                          STMTP     419
           221  0400000101 +                      EQ     PNV                                                     STMTP     420
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    15
         ENTRY STATEMENT PROCESSOR
  
                                        ***                                                                      STMTP     422
                                        *         ENTRY STATEMENT PROCESSOR                                      STMTP     423
                                        *                                                                        STMTP     424
                                        *         SYNTAX:   ENTRY <NAME> <EOS>                                   STMTP     425
                                        *         ELIST:          ------------                                   STMTP     426
                                        *                                                                        STMTP     427
                                                                                                                 STMTP     428
                                        *         ERROR NUMBERS                                                  STMTP     429
                                                                                                                 STMTP     430
                                  16     E.ENTD   EQU    14                ENTRY STMT IN A DO LOOP               STMTP     431
                                 265     E.ENTA   EQU    181               ENTRY STMT IS NOT USASI               STMTP     432
                                 116     E.ENT1   EQU    78                PREVIOUS USE OF NAME IN ANOTHER CONTE STMTP     433
                                 117     E.ENT2   EQU    79                SYNTAX ERROR                          STMTP     434
                                 121     E.ENTM   EQU    81                ENTRY STMT IN MAIN PROGRAM            STMTP     435
                                 130     E.ENT4   EQU    88                LABELED ENTRY STMT                    STMTP     436
                                                                                                                 STMTP     437
                                 105     M.UCJ    EQU    105B                                                    STMTP     438
                                         M.ENT    RMEQU  103B        ENTRY STMT MACRO ORDINAL                    STMTP     439
  
  
  
           222  16740000010000000000     ENTM     RMHDR  M.ENT,1           RLIST MACRO HEADER WORD               STMTP     441
           223                     1              BSS    1                                                       STMTP     442
           224  16720000010000000000     UCJM     RMHDR  M.UCJ,1                                                 STMTP     443
           225                     1              BSS    1                                                       STMTP     444
                                 554 +   NOPA.CD  LIT    34CFTNNOP. DATA 46000460004600046000B                   STMTP     445
                                 560 +   NOPB.CD  LIT    32CNOPS. DATA 46000460004600046000B                     STMTP     446
  
  
  
           226  00000000000000000000     ENTRY    ENTRY.                                                         STMTP     448
           227  5110000056                        SA1    PROGRAM                                                 STMTP     449
                          5120000023              SA2    CLABEL                                                  STMTP     450
           230  6160777656                        SB6    -E.ENTM                                                 STMTP     451
                          26311                   UX3    B1,X1                                                   STMTP     452
           231  0510000233 +                      NZ     B1,ENTRY1         IF NOT A MAIN PROGRAM                 STMTP     453
                                                                                                                 STMTP     454
           232  6170000321 +             ENTRYX   POSTER SEV=FE,NR=**,RETURN=ENTRYXX                             STMTP     455
                                                                                                                 STMTP     456
           233  6160777647               ENTRY1   SB6    -E.ENT4                                                 STMTP     457
                          0312000232 +            NZ     X2,ENTRYX         IF STMT HAS A LABEL                   STMTP     458
                                                                                                                 STMTP     459
                                        *         PERFORM SYNTAX CHECK                                           STMTP     460
                                                                                                                 STMTP     461
           234  5150000032                        SA5    SELIST                                                  STMTP     462
                          53450                   SA4    X5                NAME                                  STMTP     463
                               55245              SA2    A4-B5             EOS                                   STMTP     464
           235  26114                             UX1    B1,X4             NAME                                  STMTP     465
                     26222                        UX2    B2,X2                                                   STMTP     466
                          6160777660              SB6    -E.ENT2           SYNTAX ERROR                          STMTP     467
           236  0515000232 +                      NE     B1,B5,ENTRYX      IF NOT A NAME                         STMTP     468
                          6122777773              SB2    B2-EL.EOS                                               STMTP     469
           237  0520000232 +                      NZ     B2,ENTRYX         IF NOT EOS                            STMTP     470
                                                                                                                 STMTP     471
                                        *         ENTER NAME IN SYMTAB                                           STMTP     472
                                                                                                                 STMTP     473
                          6170000241 +            SYMBOL                   ENTER NAME IN THE SYMBOL TABLE        STMTP     474
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    16
         ENTRY STATEMENT PROCESSOR
  
           241  0400000243 +                      EQ     ENTRYN                                                  STMTP     475
                                                                                                                 STMTP     476
           242  6160777661                        SB6    -E.ENT1           DUPLICATE USE OF THE NAME             STMTP     477
                          0400000232 +            EQ     ENTRYX                                                  STMTP     478
                                                                                                                 STMTP     479
                                        *         NAME NOT IN THE TABLE                                          STMTP     480
                                                                                                                 STMTP     481
           243  0307000244 +             ENTRYN   ZR     X7,*+1            IF NO PREVIOUS USE IN DEBUG STMTS     STMTP     482
                          0100000000 X            CALL   DBGCUN            ISSUE ERROR MESSAGE                   STMTP     483
           244  7100000012                        SX0    T.ENT                                                   STMTP     484
                          20070                   LX0    P.TYP                                                   STMTP     485
                               12602              BX6    X0+X2             SET TYPE                              STMTP     486
           245  54620                             SA6    A2                                                      STMTP     487
                     22206                        LX2    X6                                                      STMTP     488
                                                                                                                 STMTP     489
                          6170000222 +            SB7    ENTM                                                    STMTP     490
           246  76710                             SX7    B1                                                      STMTP     491
                     56775                        SA7    B7+B5             STORE IN RLIST MACRO                  STMTP     492
                          5170000000 X            SA7    O.CEP             UPDATE CURRENT ENTRY PT ORD FOR RTNPR STMTP     493
                                                                                                                 STMTP     494
           247  5130000000 X                      SA3    FSTEX                                                   STMTP     495
                          0303000323 +            ZR     X3,ENTRY5         IF NO EXECUTABLES YET                 STMTP     496
           250  5120000000 X                      SA2    =XLSFLG                                                 STMTP     497
                          0302000253 +            ZR     X2,ENTRYN0  IF NO UCJP BEFORE                           STMTP     498
           251  43700                             MX7    0                                                       STMTP     499
                     54720                        SA7    A2                                                      STMTP     500
                          0100000000 X            WRM    B7          OUTPUT ENTR. MACRO HEADER                   STMTP     501
           252  0400000260 +                      EQ     ENTRYN1                                                 STMTP     502
                                                                                                                 STMTP     503
           253  5140000000 X             ENTRYN0  SA4    =XN.GL                                                  STMTP     504
                          7264100000              SX6    I.GL+X4                                                 STMTP     505
           254  73745                             SX7    X4+B5                                                   STMTP     506
                     5160000225 +                 SA6    UCJM+1      UJP #GL                                     STMTP     507
                               54740              SA7    A4                                                      STMTP     508
           255  65765                             WRM    A6-B5       OUTPUT JUMP AROUND                          STMTP     509
           256  6170000222 +                      WRM    ENTM        ENTRY. DEF                                  STMTP     510
           257  5150000225 +                      SA5    UCJM+1                                                  STMTP     511
                          0100000000 X            CALL   WLABM       LABEL DEF                                   STMTP     512
                                                                                                                 STMTP     513
           260  5140000000 X             ENTRYN1  SA4    =XTEMPA0.                                               STMTP     514
                          0304000310 +            ZR     X4,ENTRY2         IF NO F.P. S                          STMTP     515
                                                                                                                 STMTP     516
           261  7160000310 +             ENTRYN2  PLUG   AT=ENTRYN2,TO=ENTRY2    SEND DATA STMTS ONLY ONCE       STMTP     517
           265  5110000564 +                      SYMBOL =8RFTNNOP.        FTNNOP. TO SYMTAB                     STMTP     518
           267  5130000000 X                      SA3    EPOINT.           ENTRY. BLOCK                          STMTP     519
                          73635                   SX6    X3+B5             ENTRY. = ENTRY.+1                     STMTP     520
                               54630              SA6    A3                                                      STMTP     521
           270  5140000000 X                      SA4    WB.FTN            TYPE , RL AND RB                      STMTP     522
                          20323                   LX3    P.RA                                                    STMTP     523
                               36534              IX5    X3+X4                                                   STMTP     524
           271  12652                             BX6    X5+X2             DEFINE THE ADDRESS                    STMTP     525
                     54620                        SA6    A2                                                      STMTP     526
                          76710                   SX7    B1                SAVE THE SYMTAB ORDINAL               STMTP     527
           272  5170000000 X                      SA7    FTNNOP.                                                 STMTP     528
                          5110000565 +            SYMBOL =8RNOPS.          NOPS. TO SYMTAB                       STMTP     529
           274  5130000000 X                      SA3    DATA.                                                   STMTP     530
                          73635                   SX6    X3+B5             DATA. = DATA.+1                       STMTP     531
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    17
         ENTRY STATEMENT PROCESSOR
  
                               54630              SA6    A3                                                      STMTP     532
           275  5140000000 X                      SA4    WB.NOP                                                  STMTP     533
                          20323                   LX3    P.RA                                                    STMTP     534
                               36534              IX5    X3+X4                                                   STMTP     535
           276  12652                             BX6    X5+X2             DEFINE THE ADDRESS                    STMTP     536
                     54620                        SA6    A2                                                      STMTP     537
                          76710                   SX7    B1                SAVE THE SYMTAB ORDINAL               STMTP     538
           277  5170000000 X                      SA7    NOPS.                                                   STMTP     539
                          7160000000 X            OUTUSE ENTRY.                                                  STMTP     540
           301  6160000554 +                      WRITEC =XF.CMPS,NOPA.CD,4                                      STMTP     541
           303  7160000000 X                      OUTUSE DATA.                                                   STMTP     542
           304  6160000560 +                      WRITEC =XF.CMPS,NOPB.CD,4                                      STMTP     543
           306  6151000000                        SB5    B1+                                                     STMTP     544
                          7160000000 X            SX6    UDATA.                                                  STMTP     545
           307  5160000000 X                      SA6    C.BLOCK           SET CURRENT BLOCK TO DATA.            STMTP     546
                                                                                                                 STMTP     547
           310  5110000000 X             ENTRY2   SA1    DOFLAG                                                  STMTP     548
                          0301000313 +            ZR     X1,ENTRY3         IF NOT INSIDE A LOOP                  STMTP     549
           311  6160777761                        POSTERR   NR=E.ENTD,SEV=FE,RETURN=ENTRY3   *ENTRY IN DO LOOP*  STMTP     550
                                                                                                                 STMTP     551
           313  0100000000 X             ENTRY3   CALL   CVDB        ISSUE *COMPUTE VARDIM BOUNDS* R-MACRO       STMTP     552
           314  5150000000 X                      SA5    RSELECT                                                 STMTP     553
                          0305000317 +            ZR     X5,ENTRY4         IF R = 0                              STMTP     554
           315  5110000223 +                      ADDREF ENTM+1,DEF        DEFINITION OF THE NAME                STMTP     555
                                                                                                                 STMTP     556
           317  5110000223 +             ENTRY4   ADDWD  ENTR,ENTM+1       SAVE SYMTAB ORDINAL IN ENTR TABLE     STMTP     557
           321  6160777512               ENTRYXX  POSTERR   NR=E.ENTA,SEV=ANSI,RETURN=ENTRY  *ENTRY IS NON-ANSI* STMTP     558
  
  
  
                                        ***                                                                      STMTP     560
                                        *         EXECUTABLE STMTS HAVE NOT YET APPEARED                         STMTP     561
                                        *         MAKE THIS ENTRY POINT THE SAME AS THE MAIN ENTRY POINT         STMTP     562
                                        *                                                                        STMTP     563
                                                                                                                 STMTP     564
           323  5130000000 X             ENTRY5   SA3    ENTRY.D           WORD B OF ENTRY.                      STMTP     565
                          12732                   BX7    X3+X2             DEFINE THE ADDRESS                    STMTP     566
                               54720              SA7    A2                                                      STMTP     567
                                                                                                                 STMTP     568
                                        *         OUTPUT "FEQU" MACRO CALL                                       STMTP     569
                                                                                                                 STMTP     570
           324  66700                             INTARG                                                         STMTP     571
                     76610                        SX6    B1                                                      STMTP     572
                          66600                   SVARG  NAME,1            ARG 1 = ORD OF ENTRY POINT NAME       STMTP     573
           326  5110000000 X                      SA1    ENTRY.                                                  STMTP     574
                          10611                   BX6    X1                                                      STMTP     575
                               66600              SVARG  NAME,2            ARG 2 = ORD(ENTRY.)                   STMTP     576
           331  77707                             NARGS= B7                                                      STMTP     577
           332  5110000566 +                      FMAC   FEQU                                                    STMTP     578
           333  0400000313 +                      EQ     ENTRY3                                                  STMTP     579
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    18
         STOP AND PAUSE STATEMENT PROCESSORS                                    MACBUF
  
                                                  USE    /MACBUF/                                                STMTP     581
            14  00000000000000000000     TEMP                                                                    STMTP     582
                                                  USE    *                                                       STMTP     583
                                                                                                                 STMTP     584
                                 334     E.STOP   EQU    220               BAD SYNTAX IN STOP OR PAUSE STMT      STMTP     585
                                                                                                                 STMTP     586
                                         M.STOP   RMEQU  102B        EQ END. MACRO ORDINAL                       STMTP     587
                                         M.PAUSE  RMEQU  124B        GENERAL EXT FUNC CALL MACRO ORDINAL         STMTP     588
                                                                                                                 STMTP     589
           334  16530000020000000000     PAUSEMC  RMHDR  M.PAUSE,2                                               STMTP     590
           335  16750000020000000000     STOPMC   RMHDR  M.STOP,2                                                STMTP     591
                                                                                                                 STMTP     592
           336                     3     RLBUF    BSS    3                                                       STMTP     593
  
  
  
  
                                        **        STOPP - PROCESS "STOP" STATEMENT                               STMTP     595
                                        *                                                                        STMTP     596
                                        *         SYNTAX:   STOP <EOS> OR  STOP <NNNNN> <EOS>                    STMTP     597
                                        *         ELIST:         -----          -------------                    STMTP     598
                                        *                                                                        STMTP     599
                                        *         <NNNNN>  MUST BE A STRING OF 1 TO 5 OCTAL DIGITS               STMTP     600
                                        *                                                                        STMTP     601
           341  00000000000000000000     STOPP    ENTRY.                                                         STMTP     602
           342  5110000335 +                      SA1    STOPMC                                                  STMTP     603
                          10711                   BX7    X1                                                      STMTP     604
           343  5170000336 +                      SA7    RLBUF             MACRO HEADER TO BUFFER                STMTP     605
                          5110000567 +            SA1    =8RSTOP.                                                STMTP     606
           344  0100000402 +                      RJ     PSP               PROCESS STOP STMT                     STMTP     607
           345  0400000341 +                      EQ     STOPP                                                   STMTP     608
  
  
  
                                        ***                                                                      STMTP     610
                                        *         PAUSEP - PROCESS "PAUSE" STATEMENT                             STMTP     611
                                        *                                                                        STMTP     612
                                        *         SYNTAX:   SAME AS THAT OF A STOP STATEMENT                     STMTP     613
                                        *                                                                        STMTP     614
           346  00000000000000000000     PAUSEP   ENTRY.                                                         STMTP     615
           347  5110000334 +                      SA1    PAUSEMC                                                 STMTP     616
                          10711                   BX7    X1                                                      STMTP     617
           350  5170000336 +                      SA7    RLBUF             MACRO HEADER TO BUFFER                STMTP     618
                          5110000570 +            SA1    =8RPAUSE.                                               STMTP     619
           351  0100000402 +                      RJ     PSP               PROCESS PAUSE STATEMENT               STMTP     620
           352  0400000346 +                      EQ     PAUSEP                                                  STMTP     621
                                                                                                                 STMTP     622
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    19
         STOP AND PAUSE STATEMENT PROCESSORS
  
                                        ***                                                                      STMTP     624
                                        *         PSP - PROCESS "STOP" AND "PAUSE" STATEMENTS                    STMTP     625
                                        *                                                                        STMTP     626
                                        *         ON ENTRY:                                                      STMTP     627
                                        *                X1 = NAME OF SYMBOL TO BE ADDED TO SYMTAB               STMTP     628
                                        *                                                                        STMTP     629
           353  43001                    PSP1     MX0    1                                                       STMTP     630
                     20067                        LX0    1+P.EXT                                                 STMTP     631
                          12602                   BX6    X0+X2             SET EXT BIT                           STMTP     632
                               54620              SA6    A2                                                      STMTP     633
                                                                                                                 STMTP     634
           354  76710                             SX7    B1                                                      STMTP     635
                     5170000337 +                 SA7    RLBUF+1           SAVE IH IN BUF                        STMTP     636
                               74620              SX6    A2                                                      STMTP     637
           355  5160000014 C                      SA6    TEMP              SAVE ADDR OF WORD B                   STMTP     638
                                                                                                                 STMTP     639
                                        *         CHECK FOR EOS OR CONSTANT                                      STMTP     640
                                                                                                                 STMTP     641
                          5120000032              SA2    SELIST                                                  STMTP     642
           356  53320                             SA3    X2                                                      STMTP     643
                     26623                        UX6    B2,X3                                                   STMTP     644
                          6130000004              SB3    EL.EOS                                                  STMTP     645
           357  43000                             MX0    0                                                       STMTP     646
                     27100                        PX1    X0                FORM ELIST ENTRY                      STMTP     647
                          0423000374 +            EQ     B2,B3,PSP3        IF EOS                                STMTP     648
                                                                                                                 STMTP     649
           360  0520000372 +                      NZ     B2,PSPERR         IF NOT A CONSTANT                     STMTP     650
                          10133                   BX1    X3                E LIST TO X1                          STMTP     651
                               55335              SA3    A3-B5             NEXT ENTRY                            STMTP     652
           361  26423                             UX4    B2,X3                                                   STMTP     653
                     22701                        LX7    X1                                                      STMTP     654
                          0523000372 +            NE     B2,B3,PSPERR      IF NOT EOS                            STMTP     655
                                                                                                                 STMTP     656
                                        *         CHECK FOR AN INTEGER CONSTANT OF < 6 DIGITS                    STMTP     657
                                                                                                                 STMTP     658
           362  43071                             MX0    57                                                      STMTP     659
                     20717                        LX7    15                                                      STMTP     660
                          15270                   BX2    -X0*X7            EXTRACT TYPE OF CONSTANT              STMTP     661
                               63220              SB2    X2                                                      STMTP     662
           363  0525000374 +                      NE     B2,B5,PSP3        IF NOT TYPE INTEGER                   STMTP     663
                          7140000005              SX4    5                                                       STMTP     664
           364  36747                             IX7    X4+X7             CHANGE TO H FORM HOLLERITH TYPE       STMTP     665
                     20733                        LX7    45-18             POSITION DIGIT COUNT                  STMTP     666
                          7227777771              SX2    X7-6                                                    STMTP     667
           365  0322000372 +                      PL     X2,PSPERR         IF MORE THAN 5 DIGITS                 STMTP     668
                          20722                   LX7    18                REPOSITION                            STMTP     669
                               53270              SA2    X7                FETCH CONSTANT                        STMTP     670
           366  10177                             BX1    X7                PLACE IN X1 FOR CONVERT               STMTP     671
                                                                                                                 STMTP     672
                     43006                        MX0    6                                                       STMTP     673
                          6120000055              SB2    1R                                                      STMTP     674
           367  6130000043                        SB3    1R8                                                     STMTP     675
                                                                                                                 STMTP     676
                                        *         CHECK FOR OCTAL DIGITS                                         STMTP     677
                                                                                                                 STMTP     678
           370  11302                    PSPL     BX3    X0*X2             EXTRACT CHARACTER                     STMTP     679
                     20306                        LX3    6                                                       STMTP     680
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    20
         STOP AND PAUSE STATEMENT PROCESSORS
  
                          63430                   SB4    X3                                                      STMTP     681
                               20206              LX2    6                 POSITION FOR NEXT CHARACTER           STMTP     682
           371  0442000374 +                      EQ     B4,B2,PSP3        IF BLANK                              STMTP     683
                          0743000370 +            LT     B4,B3,PSPL        LOOP IF OCTAL                         STMTP     684
                                                                                                                 STMTP     685
                                        ***                                                                      STMTP     686
                                        *         ERROR EXIT - BAD "STOP" OR "PAUSE" STMT SYNTAX                 STMTP     687
                                        *                                                                        STMTP     688
           372  6160777443               PSPERR   POSTER SEV=FE,NR=E.STOP,RETURN=PSP   *BAD SYNTAX*              STMTP     689
  
  
  
           374  66100                    PSP3     SB1    B0                                                      STMTP     691
                     0100000000 X                 CALL   CONVERT     CONVERT CONSTANT AND GET IH                 STMTP     692
                                                                                                                 STMTP     693
                                        *         FORM MACRO CALL                                                STMTP     694
                                                                                                                 STMTP     695
           375  6170000336 +                      SB7    RLBUF             FWA OF BUFFER                         STMTP     696
                          20136                   LX1    30                12/I,18/H,30/CA                       STMTP     697
                               56275              SA2    B7+B5                                                   STMTP     698
           376  73710                             SX7    X1                                                      STMTP     699
                     43036                        MX0    30                                                      STMTP     700
                          5140000037              SA4    DUKE        CURRENT LINE NUMBER                         STMTP     701
           377  11101                             BX1    X0*X1                                                   STMTP     702
                     36612                        IX6    X1+X2                                                   STMTP     703
                          20722                   LX7    18                                                      STMTP     704
                               54620              SA6    A2                                                      STMTP     705
           400  12747                             BX7    X4+X7                                                   STMTP     706
                     54765                        SA7    A6+B5                                                   STMTP     707
                          0100000000 X            WRM    B7          STOP / PAUSE MACRO TO RLIST                 STMTP     708
           401  0100000000 X                      CALL   DOCALL            MARK AN EXTERNAL REF                  STMTP     709
                                                                                                                 STMTP     710
           402  0400400402 +             PSP      ENTRY. *                 ** ENTRY/EXIT **                      STMTP     711
           403  6170000353 +                      SYMBOL ,PSP1             ENTER NAME IN SYMBOL TABLE            STMTP     712
                                                                                                                 STMTP     713
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    21
         FMAC - FORMAT MACRO CALL 
  
                                        ***                                                                      STMTP     715
                                        *         SVARG - SAVE MACRO ARGUMENT                                    STMTP     716
                                        *                                                                        STMTP     717
                                        *         ON ENTRY:                                                      STMTP     718
                                        *                B7 = NUMBER OF WORDS IN ARG BUFFER                      STMTP     719
                                        *                X6 = 12/2000B+CONVERSION CODE,6/0,42/ARG                STMTP     720
                                        *                B6 = ARGUMENT NUMBER                                    STMTP     721
                                        *                SUCCESSIVE CALLS TO SVARG MUST HAVE ASCENDING ARG NUMS  STMTP     722
                                        *                                                                        STMTP     723
                                        *         USES:  X6,X7,B7,A7                                             STMTP     724
                                        *                                                                        STMTP     725
           404  00000000000000000000     SVARG    ENTRY.                                                         STMTP     726
           405  43766                             MX7    42+12                                                   STMTP     727
                     20752                        LX7    42                                                      STMTP     728
                          11676                   BX6    X7*X6             REMOVE BITS DUE TO NEGATIVE OCTAL NUM STMTP     729
                               76760              SX7    B6                ARGNUM                                STMTP     730
           406  20752                             LX7    42                                                      STMTP     731
                     12667                        BX6    X6+X7             12/P(CONVERT),6/ARG.N,42/ARG          STMTP     732
                          5167000002 C            SA6    ABUF+B7                                                 STMTP     733
           407  66775                             SB7    B7+B5             WC = WC+1                             STMTP     734
                     0400000404 +                 EQ     SVARG                                                   STMTP     735
  
  
  
                                        ***                                                                      STMTP     737
                                        *         F1AMAC - FORM AND OUTPUT A 1 ARGUMENT MACRO CALL               STMTP     738
                                        *         WHOSE ARGUMENT IS A NAME IN SYMTAB                             STMTP     739
                                        *                                                                        STMTP     740
                                        *         ON ENTRY:                                                      STMTP     741
                                        *                X1 = MACRO NAME                                         STMTP     742
                                        *                X6 = SYMTAB ORDINAL                                     STMTP     743
                                        *                                                                        STMTP     744
           410  00000000000000000000     F1AMAC   ENTRY.                                                         STMTP     745
           411  66700                             INTARG                                                         STMTP     746
                     77705                        NARGS= B5                SET FOR 1 ARG                         STMTP     747
           412  66600                             SVARG  NAME,B5           ARG 1 = NAME                          STMTP     748
           414  0100000422 +                      FMAC                     FORM AND OUTPUT THE CALL              STMTP     749
           415  0400000410 +                      EQ     F1AMAC                                                  STMTP     750
  
  
  
                                        ***                                                                      STMTP     752
                                        *         FMAC - FORMAT MACRO STORED IN ABUF INTO BCD IMAGE AND OUTPUT   STMTP     753
                                        *         TO "COMPS" FILE                                                STMTP     754
                                        *                                                                        STMTP     755
                                        *         ON ENTRY:                                                      STMTP     756
                                        *                X1 = 10H MACRO NAME CALL                                STMTP     757
                                        *                NARGS = - NUMBER OF ARGUMENTS                           STMTP     758
                                        *                ABUF(1) - ABUF(-NARGS) HOLD THE ARGUMENTS               STMTP     759
                                        *                                                                        STMTP     760
                                                                                                                 STMTP     761
                                        *         REGISTER ASSIGNMENTS                                           STMTP     762
                                                                                                                 STMTP     763
                                        *         A0 = ADDRESS OF MACRO BUFFER ( "MBUF" )                        STMTP     764
                                        *         A1,X1 - CURRENT ARGUMENT                                       STMTP     765
                                        *         X7 = CURRENT WORD BEING ACCUMULATED                            STMTP     766
                                                                                                                 STMTP     767
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    22
         FMAC - FORMAT MACRO CALL 
  
                                         WC       MICRO  1,,/B1/           WORD COUNT                            STMTP     768
                                         BC       MICRO  1,,/B3/           BIT COUNT ( 6*N.CHARS )               STMTP     769
                                         AN       MICRO  1,,/B4/           CURRENT ARG NUMBER                    STMTP     770
                                         60       MICRO  1,,/B6/           CONSTANT 60                           STMTP     771
                                         BL       MICRO  1,,/B7/           BITS LEFT                             STMTP     772
                                         S1       MICRO  1,,/B2/           SCRATCH                               STMTP     773
                                         S2       MICRO  1,,/B3/           SCRATCH ( ** BE CAREFUL ** )          STMTP     774
                                                                                                                 STMTP     775
           416  43060                    FMACX    MX0    60-12                                                   STMTP     776
                     11606                        BX6    X0*X6             MACRO NAME RESTRICTED TO 6 CHARS      STMTP     777
                          54660                   SA6    A6                                                      STMTP     778
           417  6110000001                        SB1    1                                                       STMTP     779
                          64600                   WRITEC =XF.CMPS,A0,1                                           STMTP     780
           421  6151000000                        SB5    B1+                                                     STMTP     781
                                                                                                                 STMTP     782
           422  00000000000000000000     FMAC     ENTRY.                                                         STMTP     783
           423  10611                             BX6    X1                                                      STMTP     784
                     5100000001 C                 SA0    MBUF              A0 = BASE OF EXPANSION BUFFER         STMTP     785
                               54600              SA6    A0                STORE MACRO NAME CALL WORD            STMTP     786
           424  66150                             S"WC"  B5                WC = 1                                STMTP     787
                     6160000074                   S"60"  60                                                      STMTP     788
                               66760              S"BL"  "60"              BITS LEFT                             STMTP     789
           425  66450                             S"AN"  B5                CURRENT ARG NUMBER                    STMTP     790
                     5110000002 C                 SA1    ABUF              A1,X1 - CURRENT ARG                   STMTP     791
                               43700              MX7    0                 CLEAR ACCUMULATOR                     STMTP     792
                                                                                                                 STMTP     793
           426  5120000000 C                      SA2    NARGS                                                   STMTP     794
                          0302000416 +            ZR     X2,FMACX          IF NO ARGS                            STMTP     795
                                                                                                                 STMTP     796
           427  43066                    FMAC.L   MX0    60-6                                                    STMTP     797
                     10211                        BX2    X1                                                      STMTP     798
                          21252                   AX2    42                                                      STMTP     799
                               15320              BX3    -X0*X2                                                  STMTP     800
           430  63230                             S"S1"  X3                                                      STMTP     801
                     67324                        S"S2"  "S1"-"AN"         THIS ARG - LAST ARG                   STMTP     802
                          66420                   S"AN"  "S1"              LAST ARG = THIS ARG                   STMTP     803
           431  0430000435 +                      ZR     "S2",FMAC1        IF EQUAL                              STMTP     804
                                                                                                                 STMTP     805
                                        *         ADD N COMMA"S TO THE STRING                                    STMTP     806
                                                                                                                 STMTP     807
                          76330                   SX3    "S2"                                                    STMTP     808
                               36433              IX4    X3+X3                                                   STMTP     809
           432  20302                             LX3    2                                                       STMTP     810
                     36534                        IX5    X3+X4             6*DIFF                                STMTP     811
                          63350                   S"BC"  X5                                                      STMTP     812
                               43001              MX0    1                                                       STMTP     813
           433  67235                             S"S1"  "BC"-B5                                                 STMTP     814
                     5140000571 +                 SA4    =10L,,,,,,,,,,                                          STMTP     815
                               23020              AX0    "S1",X0           MASK(BC)                              STMTP     816
           434  11504                             BX5    X0*X4                                                   STMTP     817
                     0100000543 +                 RJ     ADDCH             ADD CHARACTERS                        STMTP     818
                                                                                                                 STMTP     819
           435  26221                    FMAC1    UX2    "S1",X1                                                 STMTP     820
                     0222000436 +                 JP     FMAC2+"S1"        JUMP TO PROCESSOR                     STMTP     821
                                                                                                                 STMTP     822
           436  43074                    FMAC2    MX0    60          0 - NAME FROM SYMTAB                        STMTP     823
                     0400000461 +                 EQ     FMAC.N                                                  STMTP     824
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    23
         FMAC - FORMAT MACRO CALL 
  
                                                                                                                 STMTP     825
           437  5150000572 +                      SA5    =7L000000B        1 - OCTAL CONVERSION                  STMTP     826
                          0400000523 +            EQ     FMAC.O                                                  STMTP     827
                                                                                                                 STMTP     828
           440  7251000033                        SX5    X1+1R0                                                  STMTP     829
                          0400000534 +            EQ     FMAC.I            2 - INTEGER CONVERSION ( 1 DIGIT )    STMTP     830
                                                                                                                 STMTP     831
           441  6130000060                        S"BC"  48                                                      FCC1587X    7
                          0400000536 +            EQ     FMAC.C            3 - CHARACTER CONVERSION              STMTP     833
                                                                                                                 STMTP     834
           442  43000                             MX0    0           4 - NAME FROM SYMTAB, OVERIDE IAF           STMTP     835
                     0400000461 +                 EQ     FMAC.N                                                  STMTP     836
                                                                                                                 STMTP     837
           443  0100000543 +             FMAC.A   RJ     ADDCH             ADD CHARS                             STMTP     838
           444  5120000000 C                      SA2    NARGS                                                   STMTP     839
                          54115                   SA1    A1+B5             NEXT                                  STMTP     840
                               73625              SX6    X2+B5                                                   STMTP     841
           445  54620                             SA6    A2                                                      STMTP     842
                     0316000427 +                 NZ     X6,FMAC.L         IF NOT FINISHED                       STMTP     843
                                                                                                                 STMTP     844
                                        *         TERMINATE THE LINE AND DUMP THE BUFFER                         STMTP     845
                                                                                                                 STMTP     846
           446  6120000014                        S"S1"  12                                                      STMTP     847
                          0427000455 +            EQ     "S1","BL",FMAC4   IF EXACTLY 12 BITS                    STMTP     848
                                                                                                                 STMTP     849
           447  77272                             SX2    "BL"-"S1"                                               STMTP     850
                     77372                        SX3    "BL"-"S1"                                               STMTP     851
                          21273                   AX2    59                                                      STMTP     852
                               13423              BX4    X2-X3             ABS(12-BL)                            STMTP     853
           450  5110000573 +                      SA1    =10L                                                    STMTP     854
                          63340                   S"BC"  X4                BIT COUNT                             STMTP     855
                               43001              MX0    1                                                       STMTP     856
           451  67235                             S"S1"  "BC"-B5                                                 STMTP     857
                     23020                        AX0    "S1",X0           MASK( ABS(12-BL) )                    STMTP     858
                          11501                   BX5    X0*X1                                                   STMTP     859
           452  0100000543 +                      RJ     ADDCH                                                   STMTP     860
           453  5150000574 +                      SA5    =8L                                                     STMTP     861
                          0317000455 +            NZ     X7,FMAC4          IF MORE THAN 12 BITS WERE LEFT        STMTP     862
           454  10755                             BX7    X5                                                      STMTP     863
                                                                                                                 STMTP     864
           455  54701                    FMAC4    SA7    A0+"WC"                                                 STMTP     865
                     6171000001                   SB7    B1+1        (B7) = WD CNT + 1 = LINE LENGTH             STMTP     866
           456  6110000001                        SB1    1                                                       STMTP     867
                          64600                   WRITEC =XF.CMPS,A0,B7                                          STMTP     868
           460  6151000000                        SB5    B1+                                                     STMTP     869
                          0400000422 +            EQ     FMAC                                                    STMTP     870
                                                                                                                 STMTP     871
                                        *         NAME FROM SYMTAB                                               STMTP     872
                                                                                                                 STMTP     873
           461  5120000012               FMAC.N   SA2    SYM1                                                    STMTP     874
                                                                                                                 STMTP     875
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     876
                          5150000012 +            SA5    IAF                                                     STMTP     877
                                         #DAL     ENDIF                                                          STMTP     878
                                                                                                                 STMTP     879
           462  73110                             SX1    X1                                                      STMTP     880
                     20101                        LX1    1                  2*ORD                                STMTP     881
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    24
         FMAC - FORMAT MACRO CALL 
  
                          37321                   IX3    X2-X1                                                   STMTP     882
           463  6130000060                        SB3    48                                                      STMTP     883
                                                                                                                 STMTP     884
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     885
                          11550                   BX5    X5*X0        OVERRIDE IAF IF /NAMEL/ ARG                STMTP     886
                                         #DAL     ENDIF                                                          STMTP     887
                                                                                                                 STMTP     888
                               53430              SA4    X3                WORD A OF NAME                        STMTP     889
                                                                                                                 STMTP     890
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     891
           464  0315000472 +                      NZ     X5,FMAC.N1        IF LCM INDIRECT ADDRESS MODE          STMTP     892
                                         #DAL     ENDIF                                                          STMTP     893
                                                                                                                 STMTP     894
                          43552                   MX5    L.NAME                                                  STMTP     895
                               43066              MX0    60-6                                                    STMTP     896
           465  11154                             BX1    X5*X4                                                   STMTP     897
                                                                                                                 STMTP     898
           466  6133777771               FMAC.NL  S"BC"  "BC"-6                                                  STMTP     899
                          22231                   LX2    "BC",X1                                                 STMTP     900
                               15320              BX3    -X0*X2                                                  STMTP     901
           467  7243777722                        SX4    X3-1R                                                   STMTP     902
                          0304000466 +            ZR     X4,FMAC.NL        LOOP IF A BLANK                       STMTP     903
           470  0303000466 +                      ZR     X3,FMAC.NL        OR A 0 CHAR ( STMT LABELS )           STMTP     904
                          43001                   MX0    1                                                       STMTP     905
                               67235              S"S1"  "BC"-B5                                                 STMTP     906
           471  23020                             AX0    "S1",X0           MASK(BC)                              STMTP     907
                     11501                        BX5    X0*X1                                                   STMTP     908
                          0400000443 +            EQ     FMAC.A                                                  STMTP     909
                                                                                                                 STMTP     910
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           STMTP     911
                                        *         INDIRECT LCM ADDRESS FOR NAME.                                 STMTP     912
                                                                                                                 STMTP     913
           472  55445                    FMAC.N1  SA4    A4-B5       WORD B                                      STMTP     914
                     43107                        MX1    L.RB                                                    STMTP     915
                          7150000071              SX5    1R?                                                     STMTP     916
           473  20451                             LX4    -P.RB-L.RB  LEFT JUSTIFY RB FIELD                       STMTP     917
                     11141                        BX1    X4*X1       (X1) = RB                                   STMTP     918
                          66300                   SB3    B0                                                      STMTP     919
                               20172              LX1    58          MAKE RB FIELD 9 BITS                        STMTP     920
           474  6120000003                        SB2    3           LOOP COUNT                                  STMTP     921
           475  43271                    FMAC.N2  MX2    -3                                                      STMTP     922
                     20103                        LX1    3                                                       STMTP     923
                          15212                   BX2    -X2*X1      EXTRACT CHARACTER                           STMTP     924
                               73023              SX0    X2+B3                                                   STMTP     925
           476  0300000501 +                      ZR     X0,FMAC.NA  IF A LEADING ZERO                           STMTP     926
                          20506                   LX5    6           POSITION FOR NEXT CHARACTER                 STMTP     927
           477  6133000006                        SB3    B3+6        BIT COUNT OF SYMBOLIC ORDINAL               STMTP     928
                          7222000033              SX2    X2+1R0                                                  STMTP     929
           500  12552                             BX5    X5+X2                                                   STMTP     930
           501  67225                    FMAC.NA  SB2    B2-B5                                                   STMTP     931
                     0520000475 +                 NZ     B2,FMAC.N2  IF NOT FINISHED                             STMTP     932
                               67203              SB2    -B3                                                     STMTP     933
           502  6122000066                        SB2    B2+60-6                                                 STMTP     934
                          22525                   LX5    B2          LCM BLOCK NAME                              STMTP     935
                               43600              MX6    0                                                       STMTP     936
           503  6133000006                        SB3    B3+6        BIT COUNT OF NAME                           STMTP     937
                          5160000012 +            SA6    IAF         ZERO INDIRECT ADDRESSEING MODE FLAG         STMTP     938
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    25
         FMAC - FORMAT MACRO CALL 
  
           504  43252                             MX2    60-L.RA                                                 STMTP     939
                     15142                        BX1    -X2*X4      (X1) = RA                                   STMTP     940
                          7100030000              SX0    V.DIM+V.EQU                                             STMTP     942
           505  7100004000                        SX0    V.SCA                                                   STMTP     944
                          20423                   LX4    P.RA        RESTORE WORD B                              STMTP     945
                               11004              BX0    X0*X4       DIMP=SCAP BIT                               STMTP     946
           506  20423                             LX4    -P.DIMP                                                 STMTP     947
                     43260                        MX2    60-L.DIMP                                               STMTP     948
                          15442                   BX4    -X2*X4      (X4) = DIMP                                 STMTP     949
           507  0310000513 +                      NZ    X0,FMAC.N3   IF DIMP=SCAP                                FCC2228    14
                          0304000515 +            ZR    X4,FMAC.NB   IF NO DIMP FIELD                            FCC2228    15
           510  5120000000 X                      SA2    =XO.DIM                                                 STMTP     953
                          20401                   LX4    1                                                       STMTP     954
           511  6222777775                        SB2    X2-2                                                    STMTP     955
                          53242                   SA2    X4+B2       WORD 1 OF DIMTAB ENTRY                      STMTP     956
                               73120              SX1    X2          (X1) = RA FROM DIM ENTRY                    STMTP     957
           512  0400000515 +                      EQ     FMAC.NB                                                 STMTP     958
                                                                                                                 STMTP     959
           513  5130000000 X             FMAC.N3  SA3    =XO.SCA     SAVED COMMON ADDRESSES                      STMTP     960
                          36234                   IX2    X3+X4                                                   STMTP     961
                               53320              SA3    X2          FETCH SCA ENTRY                             STMTP     962
           514  73130                             SX1    X3          RA FROM SCA TABLE                           STMTP     963
           515  0301000443 +             FMAC.NB  ZR     X1,FMAC.A   IF RA = 0                                   STMTP     964
                          5140000000 C            SA4    NARGS                                                   STMTP     965
           516  73645                             SX6    X4+B5                                                   STMTP     966
                     0306000520 +                 ZR     X6,FMAC.N4  IF ONE ARG IN ABUF                          STMTP     967
                                                                                                                 STMTP     968
                                        *         ADD COMMON BLOCK BIAS TO ARG2 IN ABUF.                         STMTP     969
                                                                                                                 STMTP     970
                               54415              SA4    A1+B5             GET ARG2                              STMTP     971
           517  36641                             IX6    X4+X1             ADD COMMON BLOCK BIAS                 STMTP     972
                     54640                        SA6    A4                STORE ARG2 IN ABUF                    STMTP     973
                          0400000443 +            EQ     FMAC.A                                                  STMTP     974
                                                                                                                 STMTP     975
                                        *         STORE SECOND ARGUMENT IN ABUF.                                 STMTP     976
                                                                                                                 STMTP     977
           520  7160777775               FMAC.N4  SX6    -2                                                      STMTP     978
                          43401                   MX4    1                                                       STMTP     979
                               20454              LX4    44          ARG COUNT = 2                               STMTP     980
           521  5160000000 C                      SA6    NARGS                                                   STMTP     981
                          12141                   BX1    X4+X1                                                   STMTP     982
                               27651              PX6    B5,X1                                                   STMTP     983
           522  54615                             SA6    A1+B5       ARG2 TO ABUF                                STMTP     984
                     0400000443 +                 EQ     FMAC.A                                                  STMTP     985
                                         #DAL     ENDIF                                                          STMTP     986
                                                                                                                 STMTP     987
                                                                                                                 STMTP     988
                                                                                                                 STMTP     989
                                        *         OCTAL CONVERSION - NUMBER BETWEEN -377777B AND 377777B         STMTP     990
                                                                                                                 STMTP     991
           523  6120000030               FMAC.O   S"S1"  24                SHIFT COUNT                           STMTP     992
                          43071                   MX0    60-3                                                    STMTP     993
                               20152              LX1    42                                                      STMTP     994
           524  43400                             MX4    0                                                       STMTP     995
                     21152                        AX1    42                                                      STMTP     996
                          0321000526 +            PL     X1,FMAC.O1        IF POSITIVE                           STMTP     997
           525  14111                             BX1    -X1                                                     STMTP     998
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    26
         FMAC - FORMAT MACRO CALL 
  
                     7140000046                   SX4    1R-                                                     STMTP     999
                                                                                                                 STMTP    1000
           526  15210                    FMAC.O1  BX2    -X0*X1                                                  STMTP    1001
                     22322                        LX3    "S1",X2                                                 STMTP    1002
                          36535                   IX5    X3+X5             ADD DIGIT TO STRING                   STMTP    1003
                               21103              AX1    3                                                       STMTP    1004
           527  6122000006                        S"S1"  "S1"+6                                                  STMTP    1005
                          0311000526 +            NZ     X1,*-1            IF MORE TO GO                         STMTP    1006
                                                                                                                 STMTP    1007
           530  6132777755                        S"BC"  "S1"-18           BIT COUNT                             STMTP    1008
                          67262                   S"S1"  "60"-"S1"                                               STMTP    1009
                               22525              LX5    "S1",X5           LEFT JUSTIFY                          STMTP    1010
           531  43001                             MX0    1                                                       STMTP    1011
                     23030                        AX0    "BC",X0           MASK(BC+1)                            STMTP    1012
                          11505                   BX5    X0*X5                                                   STMTP    1013
           532  0304000443 +                      ZR     X4,FMAC.A         IF POSITIVE                           STMTP    1014
                          12545                   BX5    X4+X5                                                   STMTP    1015
                               20566              LX5    54                 -NNNNB                               STMTP    1016
           533  6133000006                        S"BC"  "BC"+6                                                  STMTP    1017
                          0400000443 +            EQ     FMAC.A                                                  STMTP    1018
                                                                                                                 STMTP    1019
           534  20566                    FMAC.I   LX5    60-6              1 DIGIT INTEGER CONVERSION            STMTP    1020
                     6130000006                   S"BC"  6                                                       STMTP    1021
           535  0400000443 +                      EQ     FMAC.A                                                  STMTP    1022
                                                                                                                 STMTP    1023
           536  43066                    FMAC.C   MX0    60-6              CHARACTER CONVERSION                  STMTP    1024
                     20222                        LX2    18                MOVE STRING TO TOP OF WORD            STMTP    1025
                          10122                   BX1    X2                                                      STMTP    1026
           537  0400000466 +                      EQ     FMAC.NL           APPEND THE STRING                     STMTP    1027
  
  
  
                                        ***                                                                      STMTP    1029
                                        *         ADDCH - ADD CHARACTERS TO ACCUMULATED STRING IN X7             STMTP    1030
                                        *                                                                        STMTP    1031
                                        *         ON ENTRY:                                                      STMTP    1032
                                        *                "BC" SET TO BIT COUNT                                   STMTP    1033
                                        *                X5 = CHARACTERS TO BE ADDED                             STMTP    1034
                                        *                                                                        STMTP    1035
                                                                                                                 STMTP    1036
           540  22575                    ADDCH1   LX5    "BL",X5           JUSTIFY STRING                        STMTP    1037
                     12757                        BX7    X5+X7                                                   STMTP    1038
                          67773                   S"BL"  "BL"-"BC"         UPDATE BIT COUNT                      STMTP    1039
           541  0570000543 +                      NZ     "BL",ADDCH        IF WORD IS NOT FILLED UP              STMTP    1040
                          54701                   SA7    A0+"WC"           STORE WORD                            STMTP    1041
                               66115              S"WC"  "WC"+B5           WC = WC+1                             STMTP    1042
           542  43700                             MX7    0                                                       STMTP    1043
                     66760                        S"BL"  "60"              RESET BITS LEFT                       STMTP    1044
           543  00000000000000000000     ADDCH                                                                   STMTP    1045
           544  0673000540 +                      LE     "BC","BL",ADDCH1  IF BC @ BL                            STMTP    1046
                          43201                   MX2    1                                                       STMTP    1047
                               67275              S"S1"  "BL"-B5                                                 STMTP    1048
           545  23322                             AX3    "S1",X2           MASK(BL)                              STMTP    1049
                     11435                        BX4    X3*X5                                                   STMTP    1050
                          22674                   LX6    "BL",X4                                                 STMTP    1051
                               36767              IX7    X6+X7             ACCUMULATE WORD                       STMTP    1052
           546  54701                             SA7    A0+"WC"           AND STORE                             STMTP    1053
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    27
         FMAC - FORMAT MACRO CALL 
  
                     15553                        BX5    -X3*X5                                                  STMTP    1054
                          67337                   S"BC"  "BC"-"BL"                                               STMTP    1055
                               22775              LX7    "BL",X5           POSITION REMAINING CHARS              STMTP    1056
           547  66115                             S"WC"  "WC"+B5                                                 STMTP    1057
                     67763                        S"BL"  "60"-"BC"         UPDATE BITS LEFT                      STMTP    1058
                          0400000543 +            EQ     ADDCH                                                   STMTP    1059
                                                                                                                 STMTP    1060
           575                                    END                                                            STMTP    1061
  
                             65600B CM  STORAGE USED             1860 STATEMENTS      690 SYMBOLS      000009 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.396 SECONDS         518 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABUF            2   MACBUF          5/55 L   21/19 S   22/24
        ADDCH         543   PROGRAM*       22/51     23/14     23/36     26/44     26/49 L   27/06
        ADDCH1        540   PROGRAM*       26/41 L   26/50
        ADDREF          0   EXTERNAL*       8/10     13/26     17/24
        ADDWD           0   EXTERNAL*       8/48     14/04     17/26
        AP.CAP         22   FTNTEXT        13/46
        AP.CRP         66   FTNTEXT        13/51
        AP.P1P         71   FTNTEXT        14/01
        ASAER           0   EXTERNAL*       8/55     17/27
        CFO             0   EXTERNAL*      10/17
        CLABEL         23                   1/47 D   15/33
        CONT            0   PROGRAM*        6/15 L    6/15 E
        CONVERT         0   EXTERNAL*      20/14
        CVDB            0   EXTERNAL*      17/21
        C.BLOCK         0   EXTERNAL*       1/55 X   17/15 S
        DATA.           0   EXTERNAL*       1/51 X    7/50      8/25      8/32     13/01     16/56
        DATA.CD       550   PROGRAM*        7/22 L    8/31
        DBGCUN          0   EXTERNAL*       7/48     16/09
        DEB            10   PROGRAM*        7/19 L   11/13 S   13/37
        DIM1           17                   1/43 D   11/17
        DIRECT          0   EXTERNAL*      11/44     12/32
        DOCALL          0   EXTERNAL*      20/31
        DOFLAG          0   EXTERNAL*       1/54 X   17/17
        DUKE           37                   1/45 D   20/23
        EL.COMMA        3   FTNTEXT         8/29
        EL.EOS          4   FTNTEXT         6/17      8/53     15/52     19/22
        EL.SLASH       23   FTNTEXT         7/36      8/17      8/51
        ENTM          222   PROGRAM*       15/22 L   16/16     16/36     17/24     17/26
        ENTRY         226   PROGRAM*       15/31 E   15/31 L   17/27
        ENTRYN        243   PROGRAM*       16/01     16/08 L
        ENTRYN0       253   PROGRAM*       16/24     16/30 L
        ENTRYN1       260   PROGRAM*       16/28     16/40 L
        ENTRYN2       261   PROGRAM*       16/43 L   16/43 S
        ENTRYX        232   PROGRAM*       15/38 L   15/41     15/51     15/53     16/04
        ENTRYXX       321   PROGRAM*       15/38     17/27 L
        ENTRY1        233   PROGRAM*       15/36     15/40 L
        ENTRY2        310   PROGRAM*       16/41     16/43     17/17 L
        ENTRY3        313   PROGRAM*       17/18     17/19     17/21 L   17/50
        ENTRY4        317   PROGRAM*       17/23     17/26 L
        ENTRY5        323   PROGRAM*       16/22     17/36 L
        ENTRY.          0   EXTERNAL*       1/52 X   17/45
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    28
        SYMBOLIC REFERENCE TABLE. 
  
        ENTRY.D         0   EXTERNAL*       1/52 X   17/36
        EPOINT.         0   EXTERNAL*       1/51 X   16/45
        ERPRO           0   EXTERNAL*       9/25     15/38     17/19     20/09
        ERPROI          0   EXTERNAL*       6/21
        E314          472                   6/13 D    6/21
        E.BGN         123                   7/08 D    7/44      9/06
        E.CUN         126                   7/11 D    9/17
        E.ENTA        265                  15/11 D   17/27
        E.ENTD         16                  15/10 D   17/19
        E.ENTM        121                  15/14 D   15/34
        E.ENT1        116                  15/12 D   16/03
        E.ENT2        117                  15/13 D   15/50
        E.ENT4        130                  15/15 D   15/40
        E.GNE         124                   7/09 D    9/11
        E.NASA        264                   7/13 D    8/55
        E.NSE         122                   7/07 D    9/03
        E.ONV         125                   7/10 D    9/14
        E.STOP        334                  18/05 D   20/09
        E.VDIM        127                   7/12 D    9/20
        FMAC          422   PROGRAM*       13/28     17/49     21/37     22/16 E   22/16 L   23/46
        FMACX         416   PROGRAM*       22/09 L   22/28
        FMAC1         435   PROGRAM*       22/37     22/53 L
        FMAC2         436   PROGRAM*       22/54     22/56 L
        FMAC4         455   PROGRAM*       23/24     23/38     23/41 L
        FMAC.A        443   PROGRAM*       23/14 L   24/28     25/23     25/33     25/44     26/16     26/20     26/24
        FMAC.C        536   PROGRAM*       23/09     26/26 L
        FMAC.I        534   PROGRAM*       23/06     26/22 L
        FMAC.L        427   PROGRAM*       22/30 L   23/19
        FMAC.N        461   PROGRAM*       22/57     23/12     23/50 L
        FMAC.NA       501   PROGRAM*       24/45     24/50 L
        FMAC.NB       515   PROGRAM*       25/11     25/17     25/23 L
        FMAC.NL       466   PROGRAM*       24/18 L   24/22     24/23     26/29
        FMAC.N1       472   PROGRAM*       24/11     24/33 L
        FMAC.N2       475   PROGRAM*       24/41 L   24/51
        FMAC.N3       513   PROGRAM*       25/10     25/19 L
        FMAC.N4       520   PROGRAM*       25/26     25/37 L
        FMAC.O        523   PROGRAM*       23/03     25/51 L
        FMAC.O1       526   PROGRAM*       25/56     26/03 L
        FSTEX           0   EXTERNAL*       1/54 X   16/21
        FTNNOP.         0   EXTERNAL*       1/54 X   16/54 S
        F1AMAC        410   PROGRAM*        8/14     21/33 E   21/33 L   21/38
        F.CMPS          0   EXTERNAL*       8/31     17/10     17/12     22/13     23/44
        GNORD          63   PROGRAM*        8/02 S    8/12      8/57 L    9/09
        IAF            12   PROGRAM*        7/27 E    7/27 L   11/46 S   12/25 S   23/53     24/57 S
        I.GL       100000   FTNTEXT        16/31
        LSFLG           0   EXTERNAL*      16/23
        L.DIMP         14   FTNTEXT        11/07     25/08
        L.LVL           2   FTNTEXT        11/36
        L.NAME         52   FTNTEXT        24/14
        L.NML           0   EXTERNAL*       8/03      8/39
        L.RA           22   FTNTEXT        25/01
        L.RB            7   FTNTEXT        24/34     24/36
        L.TYP           4   FTNTEXT        10/41     10/43
        MACNUM        125                  15/18 D   18/07 D   18/08 D
        MBUF            1   MACBUF          5/53 L   22/18
        M.ENT         103                  15/18 D   15/18     15/22
        M.PAUSE       124                  18/08 D   18/08     18/10
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    29
        SYMBOLIC REFERENCE TABLE. 
  
        M.STOP        102                  18/07 D   18/07     18/11
        M.UCJ         105                  15/17 D   15/24
        NAMELST        13   PROGRAM*        7/30 E    7/30 L    8/55      9/25
        NARGS           0   MACBUF          5/52 L   13/22 S   17/48 S   21/35 S   22/27     23/15     25/24     25/40 S
        NMLGN           5   PROGRAM*        7/15 L    8/06 S    8/40
        NML1           17   PROGRAM*        7/38 L    8/51
        NML2           24   PROGRAM*        7/42      7/47 L
        NML3           34   PROGRAM*        8/09      8/12 L
        NML4           56   PROGRAM*        8/38      8/50 L
        NML.EX         74   PROGRAM*        9/04      9/07      9/12      9/15      9/25 L
        NML.E1         64   PROGRAM*        7/36      8/53      9/03 L
        NML.E2         65   PROGRAM*        9/06 L
        NML.E3         66   PROGRAM*        8/17      9/09 L
        NML.E4         70   PROGRAM*        7/39      8/22      9/14 L
        NML.E5         71   PROGRAM*        9/17 L   10/35     10/45     10/52     11/41
        NML.E6         72   PROGRAM*        9/20 L   12/52
        NML.E6A        73   PROGRAM*        7/45      9/18      9/22 L
        NML.L          40   PROGRAM*        8/21 L    8/29
        NOPA.CD       554   PROGRAM*       15/26 L   17/10
        NOPB.CD       560   PROGRAM*       15/27 L   17/12
        NOPS.           0   EXTERNAL*       1/54 X   17/08 S
        N.GL            0   EXTERNAL*      16/30
        OPT2            0   EXTERNAL*       8/37     13/34
        OUTUSE          0   EXTERNAL*       7/31     17/09     17/11
        O.CEP           0   EXTERNAL*       1/52 X   16/19 S
        O.DIM           0   EXTERNAL*      25/12
        O.NML           0   EXTERNAL* 
        O.SCA           0   EXTERNAL*      25/19
        PAUSEMC       334   PROGRAM*       18/10 L   18/41
        PAUSEP        346   PROGRAM*       18/40 E   18/40 L   18/46
        PNIEQU         11   PROGRAM*        7/20 L   12/06 S   13/42
        PNITYPE         7   PROGRAM*        7/18 L   11/32 S   13/55
        PNV           101   PROGRAM*        8/24     10/27 L   13/35     14/05
        PNV1          107   PROGRAM*       10/25     10/33     10/41 L
        PNV10         220   PROGRAM*       13/53     13/57     14/04 L
        PNV2          122   PROGRAM*       11/14     11/25 L
        PNV3          134   PROGRAM*       11/43     11/51 L
        PNV4          146   PROGRAM*       12/01     12/18 L
        PNV5          152   PROGRAM*       12/18     12/29 L
        PNV5A         177   PROGRAM*       13/15     13/17 L
        PNV5.A        160   PROGRAM*       12/33     12/34     12/35     12/42 L
        PNV6          203   PROGRAM*       12/42     12/57     13/10     13/22 L
        PNV7          206   PROGRAM*       13/25     13/28 L
        PNV8          214   PROGRAM*       13/41     13/49 L
        PNV9          216   PROGRAM*       13/50     13/55 L
        PNV.F          75   PROGRAM*       10/16 L   10/29
        PNV.F1         77   PROGRAM*       10/16     10/19 L
        PROGRAM        56                   1/48 D   15/32
        PSP           402   PROGRAM*       18/30     18/45     20/09     20/33 L
        PSPERR        372   PROGRAM*       19/27     19/32     19/45     20/09 L
        PSPL          370   PROGRAM*       19/56 L   20/04
        PSP1          353   PROGRAM*       19/07 L   20/34
        PSP3          374   PROGRAM*       19/25     19/40     20/03     20/13 L
        PSYM            0   EXTERNAL*       1/50 X    9/10      9/23
        P.DIM          15   FTNTEXT        12/42     13/49
        P.DIMP         51   FTNTEXT         8/44     11/08     25/07
        P.EQU          14   FTNTEXT        12/01     13/40     13/49
1       STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                 COMPASS 3.7-871.     24/05/02. 15.53.37.      PAGE    30
        SYMBOLIC REFERENCE TABLE. 
  
        P.EXT          66   FTNTEXT        10/50     19/08
        P.FP           21   FTNTEXT        12/18
        P.FUN          17   FTNTEXT        10/48
        P.LVL           2   FTNTEXT        11/38
        P.RA           23   FTNTEXT         7/53     16/49     17/03     25/05
        P.RB           14   FTNTEXT        24/36
        P.TYP          70   FTNTEXT        11/31     13/13     16/11
        P.VAR          50   FTNTEXT        10/21     10/57
        RA.SSW          0   CPUTEXT         1/45
        RLBUF         336   PROGRAM*       18/13 L   18/28 S   18/43 S   19/13 S   20/18
        RSELECT         0   EXTERNAL*       1/53 X    8/08     13/24     17/22
        SCHBET          0   EXTERNAL*       1/52 X
        SELIST         32                   1/44 D    6/16      7/35      8/16      8/28      8/50     15/45     19/19
        STOPMC        335   PROGRAM*       18/11 L   18/26
        STOPP         341   PROGRAM*       18/25 E   18/25 L   18/31
        SVARG         404   PROGRAM*       11/28     12/11     12/39     13/08     17/47     21/21
                                           11/51     12/20     12/49     13/20     21/12 E   21/36
                                           12/09     12/37     12/55     17/44     21/12 L
        SYMBOL          0   EXTERNAL*       7/41     10/28     15/57     16/44     16/55     20/34
        SYMORD          6   PROGRAM*        7/17 L   11/26 S   13/36
        SYM1           12                   1/42 D   23/50
        TEMP           14   MACBUF         18/02 L   19/15 S
        TEMPA0.         0   EXTERNAL*      16/40
        T.DBL           3   FTNTEXT        13/14     13/56
        T.ENT          12   FTNTEXT        16/10
        T.OCT           5   FTNTEXT        10/44
        UCJM          224   PROGRAM*       15/24 L   16/33 S   16/37
        UDATA.          0   EXTERNAL*       1/55 X    7/31     17/11     17/14
        UENTRY.         0   EXTERNAL*      17/09
        VALUE.          0   EXTERNAL*       1/50 X   10/34
        V.DEF      200000   FTNTEXT        10/54
        V.DIM       20000   FTNTEXT        11/10     25/03
        V.EQU       10000   FTNTEXT        11/10     25/03
        V.SCA        4000   FTNTEXT        25/04
        WB.FTN          0   EXTERNAL*       1/51 X   16/48
        WB.NML          0   EXTERNAL*       1/50 X    7/49
        WB.NOP          0   EXTERNAL*       1/51 X   17/02
        WLABM           0   EXTERNAL*      16/38
        WRM             0   EXTERNAL*      16/27     16/35     16/36     20/30
        WTC=            0   EXTERNAL*       8/31     17/10     17/12     22/13     23/44
        Z               4                   7/38 D    7/38      7/40 D    7/40      8/21 D    8/21      8/23 D    8/23
        Z.ENTR          0   EXTERNAL*      17/26
        Z.NML           0   EXTERNAL*       8/48     14/04
        .DAL            1   FTNTEXT         7/26 F   11/53 F   12/22 F   23/52 F   24/10 F
                                           11/35 F   12/13 F   12/31 F   24/04 F   24/30 F
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      750              IDENT  ENDPRO 
                        750              F.UDV    END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0         1 
                                        LITERALS* LOCAL           1        14 
                                        DEBUG     LOCAL          15         0 
                                        CODE      LOCAL          15       733 
                                        MACBUF    COMMON          0         4 
  
  
                                        ENTRY POINTS. 
  
                                        B=ENDPR          0+           OSC            317+           L.BEFTB        702+ 
                                        END             15+           WST            341+           RETURN         707+ 
                                        ECGS            52+           BTOCT          442+ 
                                        ENTRY.D         57+           BEFTB          507+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        DOEND=    MACFLAG   WB.FMT    O.SCA     L.EXT     DOLABR    UDATA.    N.FERR
                                        SYMORD    RSELECT   LSFLG     L.SCA     O.UDV     WTC=      F1AMAC    OUTUSE
                                        ST.       ERPRO     SAVTBL    O.FPBL    L.UDV     F.CMPS    UOFLAG    UCODE.
                                        CON.      ERPROI    PTU       L.FPBL    TEMPA0.   STLTAB    CTBLOVL   VD. 
                                        DATA.     ASAER     N.TLAB    O.CON     ENTRY.    CO.STA    TRACE.    IT. 
                                        DATA..    LWAWORK   O.SCR     L.CON     VALUE.    ALLOC     CO.ER     OT. 
                                        O.CBT     WB.ECGS   LABEL.    O.DATA    O.CEP     Z.SCR     SYMBOL    WRM 
                                        N.FP      WB.PROG   O.DIM     L.DATA    EXIT.     O.EQV     NOGOFLG   PUTTAB
                                        DFLAG     WB.FP     L.DIM     O.EXT     ADDREF    L.EQV     P2NOGO
  
  
  
  
                                                  IDENT  ENDPRO                                                  ENDPRO      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
  
  
  
  
             0                           B=ENDPR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     ENDPRO      6
                                                                                                                 ENDPRO      7
                                  12     SYM1     EQU    12B                                                     ENDPRO      8
                                  13     SYMEND   EQU    13B                                                     ENDPRO      9
                                  37     DUKE     EQU    37B               BINARY LINE COUNT                     ENDPRO     10
                                  56     PROGRAM  EQU    56B                                                     ENDPRO     11
                                  64     NRLN     EQU    64B                                                     ENDPRO     12
                                  23     CLABEL   EQU    RA.SSW+23B        NZ FOR LABELED END                    ENDPRO     13
                                                                                                                 ENDPRO     14
                                                  EXT    DOEND=,SYMORD,ST.,CON.,DATA.,DATA..,O.CBT,N.FP          ENDPRO     15
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     2
  
  
                                                  EXT    DFLAG,MACFLAG,RSELECT,ERPRO,ERPROI,ASAER                ENDPRO     16
                                                  EXT    LWAWORK,WB.ECGS,WB.PROG,WB.FP,WB.FMT                    ENDPRO     17
                                                  EXT    LSFLG,SAVTBL,PTU                                        ENDPRO     18
                                                  EXT    N.TLAB,O.SCR,LABEL.                                     ENDPRO     19
                                                                                                                 ENDPRO     20
                                                  TABLES DIM,SCA,FPBL,CON,DATA,EXT,UDV                           ENDPRO     21
                                                                                                                 ENDPRO     22
                                         PEND     RMEQU  102B        EQ  END. MACRO                              ENDPRO     23
             0  16750000020000000000     ENDMC    RMHDR  PEND,2                                                  ENDPRO     24
  
  
  
  
                                        **        ERROR MESSAGE NUMBER DEFINITIONS.                              FCC0220    19
                                                                                                                 FCC0220    20
                                  17     E15      =      15                DEBUG EXECUTION SUPPRESSED            FCC0220    21
                                 343     E.NRS    EQU    227               END STMT ACTS AS RETURN ( USAS )      ENDPRO     26
                                 350     E.FND    EQU    232               FUNCTION NOT DEFINED                  ENDPRO     27
                                 463     E307     EQU    307         ANSI - CONTROL FLOW INTO END LINE NOT       FCC1638X  103
                                        *                            PERMITTED                                   FCC1638X  104
                                                                                                                 FCC0711     6
                                                                                                                 FCC0711     7
                                                  USE DEBUG                                                      FCC0711     8
                                                                                                                 FCC0711     9
                                                   USE    CODE              FORCE LITERALS TO COME FIRST         ENDPRO     29
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     3
         MAIN LOOP                                                              CODE
  
                                         ENTR     MACRO  NAME              ENTER A COMPILER GENERATED SYMBOL     ENDPRO     31
                                                  SA1    =8R_NAME.                                               ENDPRO     32
                                                  RJ     ECGS                                                    ENDPRO     33
                                                  SX6    B1                                                      ENDPRO     34
                                                  SA6    =X_NAME.                                                ENDPRO     35
                                                  ENDM                                                           ENDPRO     36
                                                                                                                 ENDPRO     37
            15  0400400015 +             END      ENTRY. **                ** ENTRY/EXIT **                      ENDPRO     38
                                                                                                                 FCC0220    22
                                                  IFNE   TEST,0,1                                                ENDPRO     39
                                                  RJ     =XSYMDMP          *** DEBUG ***                         ENDPRO     40
  
  
                                        **        WRITE OUT THE DIMENSION TABLE                                  FEAT1070C 168
                                        *                                                                        FEAT1070C 169
            16  5120000000 X                      SA2    =XO.DIM                                                 FEAT1070C 170
                          5130000000 X            SA3    =XL.DIM                                                 FEAT1070C 171
            17  7160000003                        OUTSYM ZZ.DIM,X2,X3                                            FEAT1070C 172
                                                                                                                 ENDPRO     41
            21  6110000001                        SB1    1                                                       F162FTNA  838
                          0100000465 +            RJ     OSL         OUTPUT STATIC LOAD *LDSET USE* DIRECTIVES   F162FTNA  839
            22  66510                             SB5    B1                                                      F162FTNA  840
                     0100000453 +                 RJ     IAC               INSERT ADDRESS S INTO COMMON VARIABLE ENDPRO     42
            23  0100000060 +                      RJ     PSS               PROCESS SPECIAL SYMBOLS               ENDPRO     44
            24  0100000000 X                      RJ     DOEND=                                                  ENDPRO     45
                                                                                                                 ENDPRO     46
            25  6170000001 +                      WRM    =2000BS48         TERMINATE RLIST FILE WITH AN *EOQ*    ENDPRO     47
                                                                                                                 ENDPRO     48
            26  0100000360 +                      RJ     DCT               DUMP CON TABLE                        ENDPRO     49
            27  0100000144 +                      RJ     PST               PROCESS SYMBOL TABLE                  ENDPRO     51
                                                                                                                 ENDPRO     52
                                        *         INITIALIZE FOR PASS 2                                          ENDPRO     53
                                                                                                                 ENDPRO     54
            30  5110000002 +                      ENTR   OT          ENTER SPECIAL SYMBOLS FOR PASS 2            ENDPRO     55
            32  5110000003 +                      ENTR   IT                                                      ENDPRO     56
            34  5110000004 +                      ENTR   VD                                                      ENDPRO     57
                                                                                                                 ENDPRO     58
            36  7160000000 X                      OUTUSE CODE.             SET RELOCATION BASE FOR PASS 2        ENDPRO     59
                                                                                                                 ENDPRO     60
            37  5150000000 X                      SA5    RSELECT                                                 ENDPRO     61
                          0315000041 +            NZ     X5,END1           IF R .NE. 0                           ENDPRO     62
            40  43600                             MX6    0                                                       ENDPRO     63
                     5160000000 X                 SA6    L.UDV             DONT SAVE UDV TAB                     ENDPRO     64
                                                                                                                 ENDPRO     65
            41  5110000000 X             END1     SA1    SAVTBL            PACK TABLES NEEDED FOR PASS 2         ENDPRO     66
                          0100000000 X            RJ     PTU               UP TO HIGH CORE                       ENDPRO     67
                                                                                                                 FCC0220    23
                                        *         DETERMINE IF OBJECT CODE IS TO BE GENERATED.                   FCC0220    24
                                                                                                                 FCC0220    25
            42  5110000000 X                      SA1    =XN.FERR                                                FCC0220    26
                          0301000015 +            ZR     X1,END      IF NO FATAL ERRORS, EXIT...                 FCC0220    27
            43  5110000000 X                      SA1    =XDFLAG                                                 FCC0220    28
                          5120000000 X            SA2    =XP2NOGO                                                FCC0220    29
            44  43601                             MX6    1                                                       FCC0220    30
                     54620                        SA6    A2          PRESET *SUPPRESS OBJECT CODE*               FCC0220    31
                          0301000015 +            ZR     X1,END      IF DEBUG NOT SELECTED, EXIT...              FCC0220    32
            45  0302000047 +                      ZR     X2,END2     IF NO FATAL-TO-DEBUG-EXECUTION ERRORS       FCC0220    33
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     4
         MAIN LOOP                                                              CODE
  
                          6160777760              POSTER SEV=INF,NR=E15,RETURN=END     *DBG EXEC SUPPRESSED*     FCC0220    34
                                                                                                                 FCC0220    35
            47  5110000000 X             END2     SA1    =XNOGOFLG                                               FCC0220    36
                          0311000015 +            NZ     X1,END      IF C$-NOGO STMT FOUND, EXIT...              FCC0220    37
            50  43600                             MX6    0                                                       FCC0220    38
                     54660                        SA6    A6          SET *GENERATE OBJECT CODE*                  FCC0220    39
                          0400000015 +            EQ     END         EXIT...                                     FCC0220    40
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     5
         MAIN LOOP                                                              CODE
  
                                        ***                                                                      ENDPRO     70
                                        *         ECGS - ENTER COMPILER GENERATED SYMBOL                         ENDPRO     71
                                        *         ENTERS SYMBOL IN SYMTAB, SETS TYPE TO T.CGS, RL = 1 AND RB TO  ENDPRO     72
                                        *         CODE.                                                          ENDPRO     73
                                        *                                                                        ENDPRO     74
                                        *         ON ENTRY:                                                      ENDPRO     75
                                        *                X1 = 8R_NAME                                            ENDPRO     76
                                        *                                                                        ENDPRO     77
                                                                                                                 ENDPRO     78
            51  5130000000 X             ECGS1    SA3    WB.ECGS           TYPE RL AND RB                        ENDPRO     79
                          12732                   BX7    X3+X2             RL+RB                                 ENDPRO     80
                               54720              SA7    A2                                                      ENDPRO     81
            52  0400400052 +             ECGS     ENTRY. **                ** ENTRY/EXIT **                      ENDPRO     82
            53  6170000051 +                      SYMBOL ,ECGS1            ENTER NAME IN SYMTAB                  ENDPRO     83
  
  
  
                                        ***                                                                      ENDPRO     85
                                        *         DSS - DEFINE SPECIAL SYMBOL                                    ENDPRO     86
                                        *                                                                        ENDPRO     87
                                        *         ON ENTRY:                                                      ENDPRO     88
                                        *                X3 = WORD B BITS TO B SET                               ENDPRO     89
                                        *                A2,X2 = LOCF(WORD B),WORD B                             ENDPRO     90
                                        *                                                                        ENDPRO     91
            54  0400400054 +             DSS      ENTRY. *                 ** ENTRY/EXIT **                      ENDPRO     92
            55  43033                             MX0    L.ADF                                                   ENDPRO     93
                     20047                        LX0    L.ADF+P.ADF                                             ENDPRO     94
                          15220                   BX2    -X0*X2            CLEAR ADDRESS DEF FIELD               ENDPRO     95
                               12632              BX6    X3+X2                                                   ENDPRO     96
            56  54620                             SA6    A2                 UPDATE WORD B                        ENDPRO     97
                     0400000054 +                 EQ     DSS                                                     ENDPRO     98
                                                                                                                 ENDPRO     99
            57  00000000000000000000     ENTRY.D  ENTRY.                   RL,RA AND RB OF ENTRY. , SET BY PH1CT ENDPRO    100
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     6
         PSS - PROCESS SPECIAL SYMBOLS                                          CODE
  
                                        ***                                                                      ENDPRO    102
                                        *         PSS - PROCESS SPECIAL SYMBOLS                                  ENDPRO    103
                                        *                                                                        ENDPRO    104
            60  0400400060 +             PSS      ENTRY. *                 ** ENTRY/EXIT **                      ENDPRO    105
            61  5110000056                        SA1    PROGRAM                                                 ENDPRO    106
                          0301000060 +            ZR     X1,PSS            EXIT IF A BLOCK DATA SUBPROGRAM       ENDPRO    107
            62  26211                             UX2    B1,X1                                                   ENDPRO    108
                     0510000105 +                 NZ     B1,PSS1           IF NOT A PROGRAM                      ENDPRO    109
                                                                                                                 ENDPRO    112
                                        *         MAIN PROGRAM                                                   ENDPRO    113
                                                                                                                 ENDPRO    114
            63  5110000012                        SA1    SYM1                                                    ENDPRO    116
                          5221777774              SA2    X1-3                                                    ENDPRO    117
            64  5130000000 X                      SA3    WB.PROG           RL AND RB                             ENDPRO    118
                          5150000000 X            SA5    =XCO.ER                                                 FEAT155A   10
            65  20524                             LX5    1+P.RA                                                  FEAT155A   11
                     36335                        IX3    X3+X5                                                   FEAT155A   12
                          0100000054 +            RJ     DSS               DEFINE PROGRAM NAME AS 0 IN CODE.     ENDPRO    119
            66  5120000000 X                      SA2    =XLSFLG                                                 ENDPRO    120
                          5130000023              SA3    CLABEL                                                  FCC1425     6
            67  0313000070 +            +         NZ     X3,*+1      IF END STMT IS LABELED                      FCC1425     7
                          0312000060 +            NZ     X2,PSS      IF LAST STMT WAS AN UNCONDITIONAL JUMP      FCC0624     5
            70  0100000073 +                      RJ     ISE         ISSUE MACRO FOR RETURN IN MAIN PROG         FCC0624     6
            71  6160777314                        POSTER SEV=ANSI,NR=E307,RETURN=PSS                             FCC1638X  105
                                                                                                                 FCC0624     8
            73  0400400073 +             ISE      ENTRY. *                                                       FCC0624     9
            74  5110000005 +                      ADEXTS =8REND.                                                 ENDPRO    123
            77  5110000000 +                      SA1    ENDMC             MACRO HEADER                          ENDPRO    124
                          5120000064              SA2    NRLN              NEXT R NUMBER                         ENDPRO    125
           100  76510                             SX5    B1                IH OF END.                            ENDPRO    126
                     12612                        BX6    X1+X2                                                   ENDPRO    127
                          5130000000 X            SA3    =XTRACE.          IH OF TRACE.                          ENDPRO    128
           101  20336                             LX3    30                                                      ENDPRO    129
                     12753                        BX7    X5+X3                                                   ENDPRO    130
                          5160000000 C            SA6    MACBUF                                                  ENDPRO    131
           102  54765                             SA7    A6+B5                                                   ENDPRO    132
                     43700                        MX7    0                                                       ENDPRO    133
                          54775                   SA7    A7+B5       K1,K2 = 0                                   ENDPRO    134
           103  6170000000 C                      WRM    MACBUF                                                  ENDPRO    135
           104  0400000073 +                      EQ     ISE                                                     ENDPRO    136
                                                                                                                 ENDPRO    137
                                        *         SUBPROGRAM                                                     ENDPRO    138
                                                                                                                 ENDPRO    139
           105  5110000012               PSS1     SA1    SYM1                                                    ENDPRO    140
                          53010                   SA0    X1                                                      ENDPRO    141
           106  5020777774                        SA2    A0-3              WORD B OF SUBPROGRAM NAME             ENDPRO    142
                          5130000057 +            SA3    ENTRY.D                                                 ENDPRO    143
           107  0100000054 +                      RJ     DSS               SET ADDRESS DEFINITION FIELDS         ENDPRO    144
           110  5130000000 X                      SA3    VALUE.                                                  ENDPRO    145
                          0313000114 +            NZ     X3,PSS.F          IF A FUNCTION                         ENDPRO    146
                                                                                                                 ENDPRO    147
                                        *         SUBROUTINE SUBPROGRAM                                          ENDPRO    148
                                                                                                                 ENDPRO    149
           111  5120000023                        SA2    CLABEL                                                  ENDPRO    150
                          5140000000 X            SA4    LSFLG                                                   ENDPRO    151
           112  0312000122 +                      NZ     X2,FTSUB2         IF LABELED END,                       ENDPRO    152
                                        *                                  FORCE ISSUE OF RLIST *END* MACRO      ENDPRO    153
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     7
         PSS - PROCESS SPECIAL SYMBOLS                                          CODE
  
                          0314000125 +            NZ     X4,PSS3           IF LAST STMT WAS RETURN,GOTO, ETC     ENDPRO    154
           113  0400000122 +                      EQ     FTSUB2                                                  ENDPRO    155
                                                                                                                 ENDPRO    156
                                        *         FUNCTION SUBPROGRAM                                            ENDPRO    157
                                                                                                                 ENDPRO    158
           114  20301                    PSS.F    LX3    1                                                       ENDPRO    159
                     63230                        SB2    X3                                                      ENDPRO    160
                          55102                   SA1    A0-B2              WORD A OF VALUE.                     ENDPRO    161
           115  7170200000                        SX7    V.DEF                                                   ENDPRO    162
                          12771                   BX7    X7+X1             SET DEFINED BIT                       ENDPRO    163
                               54710              SA7    A1                                                      ENDPRO    164
                                                                                                                 ENDPRO    165
           116  20153                             LX1    59-P.DEF                                                ENDPRO    166
                     0331000121 +                 NG     X1,FTSUB1         IF DEFINED                            ENDPRO    167
                                                                                                                 ENDPRO    168
           117  6160777427                        SB6    -E.FND                                                  ENDPRO    169
                          6170000121 +            SB7    FTSUB1                                                  ENDPRO    170
           120  0400000000 X                      EQ     ERPRO             FLAG NO DEFINATION OF FUNCTION        ENDPRO    171
                                                                                                                 ENDPRO    172
           121  5140000000 X             FTSUB1   SA4    LSFLG                                                   ENDPRO    173
                          0314000125 +            NZ     X4,PSS3           IF LAST STMT WAS AN UNCONDITIONAL JUM ENDPRO    174
                                                                                                                 ENDPRO    175
           122  0100000707 +             FTSUB2   RJ     RETURN            OUTPUT RLIST FOR A RETURN STMT        ENDPRO    176
           123  6160777434                        SB6    -E.NRS                                                  ENDPRO    177
                          6170000125 +            SB7    PSS3                                                    ENDPRO    178
           124  0400000000 X                      EQ     ASAER             INFO DIAGNOSTIC OF NO RETURN STMT     ENDPRO    179
                                                                                                                 ENDPRO    180
                                        *         MOVE F.P. BLOCK LENGTH ACCUMULATED DURING NAMELIST             ENDPRO    181
                                        *         PROCESSING TO WORD B OF THE FORMAL PARAMETERS                  ENDPRO    182
                                        *         SET UP THE ADDRESS DEFINITION FIELDS FOR PASS 2                ENDPRO    183
                                                                                                                 ENDPRO    184
           125  5110000000 X             PSS3     SA1    O.FPBL                                                  ENDPRO    185
                          5120000000 X            SA2    L.FPBL                                                  ENDPRO    186
           126  0302000060 +                      ZR     X2,PSS            IF NO F.P. S                          ENDPRO    187
                          63110                   SB1    X1                                                      ENDPRO    188
                               63221              SB2    B1+X2             LWA+1                                 ENDPRO    189
           127  43033                             MX0    L.ADF                                                   ENDPRO    190
                     20047                        LX0    L.ADF+P.ADF                                             ENDPRO    191
                          5140000012              SA4    SYM1                                                    ENDPRO    192
           130  5224777772                        SA2    X4-5              WORD B OF FIRST F.P.                  ENDPRO    193
                          7170010000              SX7    1S"P.RB"                                                ENDPRO    194
           131  5150000000 X                      SA5    WB.FP             RL = 1 AND RB = 7                     ENDPRO    195
                          5110000000 X            SA1    O.DIM                                                   ENDPRO    196
           132  6241777776                        SB4    X1-1              B4 = O.DIM-1                          ENDPRO    197
                          6160000142 +            SB6    FAKE              ADDRESS OF FAKE SYMTAB ENTRY          ENDPRO    198
           133  43414                             MX4    L.DIMP                                                  ENDPRO    199
                     20465                        LX4    L.DIMP+P.DIMP                                           ENDPRO    200
                          66355                   SB3    B5+B5             B3 = 2                                ENDPRO    201
                                                                                                                 ENDPRO    202
           134  56110                    PSS4     SA1    B1                F.P. BLOCK LENGTH                     ENDPRO    203
                     15320                        BX3    -X0*X2            CLEAR DEFINITION AREA                 ENDPRO    204
                          20123                   LX1    P.RA                                                    ENDPRO    205
                               12653              BX6    X5+X3             RL AND RB                             ENDPRO    206
           135  55223                             SA2    A2-B3                                                   ENDPRO    207
                     12616                        BX6    X1+X6             RA                                    ENDPRO    208
                          66115                   SB1    B1+B5                                                   ENDPRO    209
                               54623              SA6    A2+B3                                                   ENDPRO    210
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     8
         PSS - PROCESS SPECIAL SYMBOLS                                          CODE
  
           136  36575                             IX5    X7+X5             ADVANCE RB                            ENDPRO    211
                     11146                        BX1    X4*X6                                                   ENDPRO    212
                          0301000141 +            ZR     X1,PSS5           IF NO DIM TBL ENTRY                   ENDPRO    213
           137  20605                             LX6    59-P.EXT                                                ENDPRO    214
                     21150                        AX1    P.DIMP-1                                                ENDPRO    215
                          0336000141 +            MI     X6,PSS5           IF AN EXTERNAL                        ENDPRO    216
           140  76660                             SX6    B6                                                      ENDPRO    217
                     53614                        SA6    X1+B4             STORE FAKE SYMTAB ADDR FOR PST6       ENDPRO    218
           141  0712000134 +             PSS5     LT     B1,B2,PSS4                                              ENDPRO    219
                          0400000060 +            EQ     PSS                                                     ENDPRO    220
                                                                                                                 ENDPRO    221
           142                     2     FAKE     BSSZ   2                 FAKE SYMTAB ENTRY FOR F.P. S          ENDPRO    222
                                        *                                  WITH DIMENSIONS                       ENDPRO    223
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE     9
         PST - PROCESS SYMBOL TABLE                                             CODE
  
                                        ***                                                                      ENDPRO    225
                                        *         PST - PROCESS SYMBOL TABLE                                     ENDPRO    226
                                        *         SCAN SYMBOL TABLE FOR:                                         ENDPRO    227
                                        *                EXTERNAL SYMBOLS                                        ENDPRO    228
                                        *                SYMBOLS WITH DIMTAB ENTRIES                             ENDPRO    229
                                        *                USEAGE DEFINED VARIABLES                                ENDPRO    230
                                        *                                                                        ENDPRO    231
                                        *         FORM TEMPORARY TABLES FOR EXTERNAL SYMBOLS AND                 ENDPRO    232
                                        *         USEAGE DEFINED VARIABLES                                       ENDPRO    233
                                        *         LINK DIMTAB TO SYMTAB BY STORING ADDRESS OF SYMTAB ENTRY       ENDPRO    234
                                        *         IN APPROPIATE DIMTAB ENTRY                                     ENDPRO    235
                                        *                                                                        ENDPRO    236
                                        *         PROCESS THE TEMPORARY TABLES:                                  ENDPRO    237
                                        *         APPEND SPECIAL CHARACTERS TO EXTERNALS                         ENDPRO    238
                                        *         DEFINE THE ADDRESS"S OF THE USEAGE DEFINED VARIABLES           ENDPRO    239
                                        *         AND ISSUE STORAGE FOR THEM                                     ENDPRO    240
                                        *         DEFINE ALL SYMBOLS WITH DIMTAB ENTRIES                         ENDPRO    241
                                        *         PROCESS USEAGE DEFINED VARIABLES IN DATA STMTS                 ENDPRO    242
                                        *                                                                        ENDPRO    243
                                                                                                                 ENDPRO    244
           144  0400400144 +             PST      ENTRY. *                 ** ENTRY/EXIT **                      ENDPRO    245
           145  5110000012                        SA1    SYM1                                                    ENDPRO    246
                          5120000000 X            SA2    ST.                                                     ENDPRO    247
           146  5130000000 X                      SA3    SYMORD                                                  ENDPRO    248
                          5140000000 X            SA4    O.DIM                                                   ENDPRO    249
           147  5150000000 X                      SA5    L.DIM                                                   ENDPRO    250
                                                                                                                 ENDPRO    251
                                        *         SPACE NEEDED = SYMORD - ST. - L.DIM/2                          ENDPRO    252
                                                                                                                 ENDPRO    253
                          21501                   AX5    1                 NOTE THAT BECAUSE OF THE SIZE OF      ENDPRO    254
                               37632              IX6    X3-X2             PHASE 2 OF THE COMPILER AND THE       ENDPRO    255
           150  37765                             IX7    X6-X5             CONSTRAINT THAT SYMORD < 10000B       ENDPRO    256
                     5170000747 +                 SA7    F.UDV-1           THIS SPACE WILL ALWAYS BE AVAILABLE   ENDPRO    257
           151  6160000000 X                      SB6    O.CBT             LWA+1 OF EXT TBL                      ENDPRO    258
                                                                                                                 ENDPRO    259
                          64775                   SB7    A7+B5                                                   ENDPRO    260
                               67176              SB1    B7-B6             -(SPACE AVAIL)                        ENDPRO    261
           152  73071                             SX0    X7+B1             SPACE NEEDED - SPACE AVAIL            ENDPRO    262
                     0320000000 X                 PL     X0,=XCTBLOVL                                            ENDPRO    263
                                                                                                                 ENDPRO    264
                                        *         SET UP THE REGISTERS                                           ENDPRO    265
                                                                                                                 ENDPRO    266
                               53010              SA0    X1                A0 = SYM1                             ENDPRO    267
           153  20201                             LX2    1                                                       ENDPRO    268
                     63120                        SB1    X2                B1 = INDEX = 2*ORD(ST.)               ENDPRO    269
                          20301                   LX3    1                                                       ENDPRO    270
                               63230              SB2    X3                B2 = LIMIT = 2*(N.SYMBOLS+1)          ENDPRO    271
           154  66355                             SB3    B5+B5                                                   ENDPRO    272
                     6244777776                   SB4    X4-1              B4 = O.DIM-1                          ENDPRO    273
           155  6170000005                        SB7    59-P.EXT                                                ENDPRO    274
                          7140000006              SX4    T.LAB                                                   ENDPRO    275
           156  20470                             LX4    P.TYP                                                   ENDPRO    276
                     43314                        MX3    L.DIMP                                                  ENDPRO    277
                          20365                   LX3    L.DIMP+P.DIMP                                           ENDPRO    278
                               43004              MX0    L.TYP                                                   ENDPRO    279
           157  0400000162 +                      EQ     PST.I                                                   ENDPRO    280
                                                                                                                 ENDPRO    281
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    10
         PST - PROCESS SYMBOL TABLE                                             CODE
  
           160  0306000162 +             PST.E    ZR     X6,PST.I          IGNORE LABELS                         ENDPRO    282
                          77613                   SX6    B1-B3             2*ORD                                 ENDPRO    283
                               57665              SA6    B6-B5                                                   ENDPRO    284
           161  67665                             SB6    B6-B5                                                   ENDPRO    285
                                                                                                                 ENDPRO    286
           162  55101                    PST.I    SA1    A0-B1             WORD A                                ENDPRO    287
                     55215                        SA2    A1-B5             WORD B                                ENDPRO    288
                          0612000174 +            GE     B1,B2,PST.2       IF FINISHED                           ENDPRO    289
           163  11502                             BX5    X0*X2                                                   ENDPRO    290
                     20154                        LX1    59-P.FUN                                                ENDPRO    291
                          37654                   IX6    X5-X4             TYPE - T.LAB                          ENDPRO    292
                               66113              SB1    B1+B3                                                   ENDPRO    293
           164  22572                             LX5    B7,X2             SHIFT( WORD B , 59-P.EXT )            ENDPRO    294
                     16716                        BX7    -X6+X1                                                  ENDPRO    295
                          0335000160 +            NG     X5,PST.E          IF EXT OR LABEL WITH BIT SET          ENDPRO    296
           165  0337000162 +                      NG     X7,PST.I          IGNORE TYPES 6-15B AND LOCAL FUNCTION ENDPRO    297
                                                                                                                 ENDPRO    298
                                        *         MUST BE A VARIABLE OR ARRAY                                    ENDPRO    299
                                                                                                                 ENDPRO    300
                          11532                   BX5    X3*X2             EXTRACT DIMP FIELD                    ENDPRO    301
                               20101              LX1    P.FUN-P.COM                                             ENDPRO    302
           166  0305000170 +                      ZR     X5,PST.V          IF NOT DIMENSIONED                    ENDPRO    303
                          21550                   AX5    P.DIMP-1                                                ENDPRO    304
                               74610              SX6    A1                                                      ENDPRO    305
           167  53654                             SA6    X5+B4             SYMTAB ADDRESS TO WORD 2 OF DIM ENTRY ENDPRO    306
                     0400000162 +                 EQ     PST.I                                                   ENDPRO    307
                                                                                                                 ENDPRO    308
                                        *         USEAGE DEFINED VARIABLE - SAVE WC AND SYMORD IN UDV TBL        ENDPRO    309
                                                                                                                 ENDPRO    310
           170  0331000162 +             PST.V    NG     X1,PST.I          IGNORE COMMON VARIABLES               ENDPRO    311
                          21270                   AX2    P.TYP                                                   ENDPRO    312
                               76550              SX5    B5                                                      ENDPRO    313
           171  7212777774                        SX1    X2-T.DBL                                                ENDPRO    314
                          21104                   AX1    L.TYP             -0 IF SINGLE PRECISION, ELSE 0        ENDPRO    315
                               15651              BX6    -X1*X5            0 OR 1                                ENDPRO    316
           172  73165                             SX1    X6+B5             WC = 1 OR 2                           ENDPRO    317
                     77713                        SX7    B1-B3             2*ORD                                 ENDPRO    318
                          20144                   LX1    36                                                      ENDPRO    319
                               20721              LX7    18-1                                                    ENDPRO    320
           173  12717                             BX7    X1+X7                                                   ENDPRO    321
                     54775                        SA7    A7+B5             STORE ENTRY                           ENDPRO    322
                          0400000162 +            EQ     PST.I                                                   ENDPRO    323
                                                                                                                 ENDPRO    324
                                        *         SAVE POINTERS TO THE TABLES                                    ENDPRO    325
                                                                                                                 ENDPRO    326
           174  7170000750 +             PST.2    SX7    F.UDV                                                   ENDPRO    327
                          74575                   SX5    A7+B5             LWA+1                                 ENDPRO    328
                               37657              IX6    X5-X7             LENGTH                                ENDPRO    329
           175  5170000000 X                      SA7    O.UDV                                                   ENDPRO    330
                          5160000000 X            SA6    L.UDV                                                   ENDPRO    331
           176  6170000000 X                      SB7    O.CBT                                                   ENDPRO    332
                          77776                   SX7    B7-B6                                                   ENDPRO    333
           177  5170000000 X                      SA7    L.EXT                                                   ENDPRO    334
                          76660                   SX6    B6                                                      ENDPRO    335
           200  5160000000 X                      SA6    O.EXT                                                   ENDPRO    336
                          5160000333 +            SA6    LI                                                      ENDPRO    337
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    11
         PST - PROCESS SYMBOL TABLE                                             CODE
  
                                        *         APPEND SPECIAL CHARACTERS TO THE EXTERNAL SYMBOLS THAT         ENDPRO    339
                                        *         ARE THE SAME AS THOSE IN THE LIBRARY                           ENDPRO    340
                                                                                                                 ENDPRO    341
           201  0307000232 +                      ZR     X7,PST5           IF NONE                               ENDPRO    342
                          66160                   SB1    B6                FWA                                   ENDPRO    343
                               66270              SB2    B7                LWA+1                                 ENDPRO    344
           202  7150000003                        SX5    3                                                       ENDPRO    345
                          43052                   MX0    L.NAME                                                  ENDPRO    346
                               20545              LX5    P.RL              RL = 3 FOR EXTERNALS                  ENDPRO    347
                                                                                                                 ENDPRO    348
           203  56410                    PST1     SA4    B1                                                      ENDPRO    349
                     63340                        SB3    X4                                                      ENDPRO    350
                          43333                   MX3    L.ADF                                                   ENDPRO    351
                               55103              SA1    A0-B3             WORD A                                ENDPRO    352
           204  20347                             LX3    L.ADF+P.ADF                                             ENDPRO    353
                     55215                        SA2    A1-B5             WORD B                                ENDPRO    354
                          15623                   BX6    -X3*X2            CLEAR DEFINITION AREA                 ENDPRO    355
                               36756              IX7    X5+X6             SET RL = 3                            ENDPRO    356
           205  54720                             SA7    A2                                                      ENDPRO    357
                     11601                        BX6    X0*X1                                                   ENDPRO    358
                          66115                   SB1    B1+B5             ADVANCE INDEX                         ENDPRO    359
                               20154              LX1    59-P.FUN                                                ENDPRO    360
           206  0331000207 +                      NG     X1,PST1A          IF A FUNCTION                         ENDPRO    361
                          0332000223 +            NG     X2,PST3           IF A FILE NAME                        ENDPRO    362
                                                                                                                 ENDPRO    363
           207  20221                    PST1A    LX2    59-P.BEF                                                ENDPRO    364
                     0322000222 +                 PL     X2,PST2           IF NOT BASIC EXTERNAL                 ENDPRO    365
                                         #LIB     IFNE   .CDCLIB,0                                               FEAT121A   40
           210  5110000000 X                      SA1    =XUOFLAG                                                FEAT121A   41
                          0301000213 +            ZR     X1,PST1AA   IF *UO* NOT SELECTED                        FEAT121A   42
           211  10122                             BX1    X2                                                      FEAT121A   43
                     20130                        LX1    1+P.BEF-P.RA                                            FEAT121A   44
                          73110                   SX1    X1                                                      FEAT121A   45
                               20123              LX1    P.RA                                                    FEAT121A   46
           212  12717                             BX7    X1+X7       B-REGS PRESERVED IN CASE OPT=2              FEAT121A   47
                     54770                        SA7    A7                                                      FEAT121A   48
           213                           PST1AA   BSS    0                                                       FEAT121A   49
                                         #LIB     ENDIF                                                          FEAT121A   50
           213  43170                             MX1    60-L.TYP                                                ENDPRO    366
                     20257                        LX2    1+P.BEF-P.TYP                                           ENDPRO    367
                          15721                   BX7    -X1*X2            TYPE FIELD                            ENDPRO    368
           214  7247777763                        SX4    X7-T.CGS          CHECK FOR COMPILER GENERATED SYMBOL   ENDPRO    369
                          0304000222 +            ZR     X4,PST2                                                 ENDPRO    370
                                                                                                                 ENDPRO    371
           215  7110000055                        SX1    1R                                                      ENDPRO    372
                          43301                   MX3    1                                                       ENDPRO    373
                               20130              LX1    24                                                      ENDPRO    374
           216  20324                             LX3    2+18                                                    ENDPRO    375
                                                                                                                 ENDPRO    376
           217  11761                    PST1B    BX7    X6*X1                                                   ENDPRO    377
                     13471                        BX4    X7-X1                                                   ENDPRO    378
                          0314000221 +            NZ     X4,PST1C          SENSE NON BLANK CHARACTER             ENDPRO    379
           220  20106                             LX1    6                                                       ENDPRO    380
                     20306                        LX3    6                                                       ENDPRO    381
                          0400000217 +            EQ     PST1B                                                   ENDPRO    382
                                                                                                                 ENDPRO    383
           221  13663                    PST1C    BX6    X6-X3             APPEND A . TO THE NAME                ENDPRO    384
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    12
         PST - PROCESS SYMBOL TABLE                                             CODE
  
                                                                                                                 ENDPRO    385
           222  54125                    PST2     SA1    A2+B5             WORD A                                ENDPRO    386
                     15210                        BX2    -X0*X1            SYMTAB BITS                           ENDPRO    387
                          36662                   IX6    X6+X2             NAME + SPECIAL CHAR                   ENDPRO    388
                               54610              SA6    A1                UPDATE SYMTAB ENTRY                   ENDPRO    389
           223  0712000203 +             PST3     LT     B1,B2,PST1                                              ENDPRO    390
                                                                                                                 ENDPRO    391
                          5150000000 X            SA5    MACFLAG                                                 ENDPRO    392
           224  0305000232 +                      ZR     X5,PST5           IF COMPS IMAGES NOT NECESSARY         ENDPRO    393
                                                                                                                 ENDPRO    394
                          5110000333 +            SA1    LI                O.EXT                                 ENDPRO    395
           225  53510                    PST4     SA5    X1                                                      ENDPRO    396
                     23655                        AX6    B5,X5             SYMTAB ORD                            ENDPRO    397
                          5110000006 +            SA1    =10H  EXT                                               ENDPRO    398
           226  0100000000 X                      RJ     =XF1AMAC          OUTPUT EXT STMT                       ENDPRO    399
           227  5110000333 +                      SA1    LI                                                      ENDPRO    400
                          7120000000 X            SX2    O.CBT                                                   ENDPRO    401
           230  73615                             SX6    X1+B5                                                   ENDPRO    402
                     37062                        IX0    X6-X2             I - L                                 ENDPRO    403
                          54610                   SA6    A1                                                      ENDPRO    404
                               10166              BX1    X6                                                      ENDPRO    405
           231  0330000225 +                      NG     X0,PST4           IF NOT FINISHED                       ENDPRO    406
  
  
  
                                        *         MOVE THE ADDRESS ASSIGNMENTS THAT WHERE MADE IN "DPCLOSE"      ENDPRO    408
                                        *         FROM THE DIM TABLE TO SYMTAB                                   ENDPRO    409
                                                                                                                 ENDPRO    410
           232  5110000000 X             PST5     SA1    O.DIM                                                   ENDPRO    411
                          5120000000 X            SA2    L.DIM                                                   ENDPRO    412
           233  0302000244 +                      ZR     X2,PST7           IF NONE                               ENDPRO    413
                          63110                   SB1    X1                FWA                                   ENDPRO    414
                               63221              SB2    B1+X2             LWA+1                                 ENDPRO    415
           234  56410                             SA4    B1                WORD 1                                ENDPRO    416
                     56515                        SA5    B1+B5             WORD 2                                ENDPRO    417
                          66355                   SB3    B5+B5             B3 = 2                                ENDPRO    418
                               43024              MX0    L.RL+L.RA                                               ENDPRO    419
           235  7170040000                        SX7    V.COM                                                   ENDPRO    420
                          20047                   LX0    L.RL+L.RA+P.RA      MASK TO CLEAR RL AND RA FIELDS      ENDPRO    421
                                                                                                                 ENDPRO    422
           236  53150                    PST6     SA1    X5                WORD A                                ENDPRO    423
                     55215                        SA2    A1-B5             WORD B                                ENDPRO    424
                          11571                   BX5    X7*X1             COMMON BIT                            ENDPRO    425
                               73640              SX6    X4                RA                                    ENDPRO    426
           237  36357                             IX3    X5+X7             RL = 1 OR 2                           ENDPRO    427
                     20623                        LX6    P.RA                                                    ENDPRO    428
                          0315000241 +            NZ     X5,PST6A          IF IN COMMON                          ENDPRO    429
           240  7140050000                        SX4    5S"P.RB"          RB FOR DATA..                         ENDPRO    430
                          36664                   IX6    X6+X4             RA + RB                               ENDPRO    431
           241  66113                    PST6A    SB1    B1+B3                                                   ENDPRO    432
                     15220                        BX2    -X0*X2            CLEAR RL,RA                           ENDPRO    433
                          56410                   SA4    B1                NEXT DIM WORD                         ENDPRO    434
                               20327              LX3    P.RL-P.COM                                              ENDPRO    435
           242  36162                             IX1    X6+X2             + RA                                  ENDPRO    436
                     56515                        SA5    B1+B5                                                   ENDPRO    437
                          12631                   BX6    X3+X1             + RL                                  ENDPRO    438
                               54620              SA6    A2                UPDATE WORD B                         ENDPRO    439
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    13
         PST - PROCESS SYMBOL TABLE                                             CODE
  
           243  0712000236 +                      LT     B1,B2,PST6                                              ENDPRO    440
  
  
  
                                        *         ASSIGN ADDRESS"S TO THE USEAGE DEFINED VARIABLES               ENDPRO    442
                                                                                                                 ENDPRO    443
           244  5120000000 X             PST7     SA2    L.UDV                                                   ENDPRO    444
                          0302000266 +            ZR     X2,PST9           IF NO USEAGE DEFINED VARIABLES        ENDPRO    445
           245  7160000000 X                      OUTUSE DATA.                                                   FCC0451     6
           246  5120000000 X                      SA2    L.UDV                                                   FCC0451     7
                          6110000750 +            SB1    F.UDV             FWA                                   ENDPRO    446
           247  63221                             SB2    B1+X2             LWA+1                                 ENDPRO    447
                     43033                        MX0    L.ADF                                                   ENDPRO    448
                          5150000012              SA5    SYM1                                                    ENDPRO    449
           250  53050                             SA0    X5                A0 = SYM1                             ENDPRO    450
                     20047                        LX0    L.ADF+P.ADF                                             ENDPRO    451
                          5140000000 X            SA4    DATA.             BLOCK LENGTH                          ENDPRO    452
           251  10744                             BX7    X4                                                      ENDPRO    453
                     56110                        SA1    B1                                                      ENDPRO    454
                          5150000000 X            SA5    WB.FMT                                                  ENDPRO    455
           252  6170000023                        SB7    P.RA                                                    ENDPRO    456
                                                                                                                 ENDPRO    457
           253  21121                    PST8     AX1    18-1                                                    ENDPRO    458
                     63415                        SB4    X1+B5             2*ORD+1                               ENDPRO    459
                          21123                   AX1    36-17             WC                                    ENDPRO    460
                               55204              SA2    A0-B4             WORD B                                ENDPRO    461
           254  66115                             SB1    B1+B5             I = I+1                               ENDPRO    462
                     15320                        BX3    -X0*X2            CLEAR DEFINITION AREA                 ENDPRO    463
                          22477                   LX4    B7,X7                                                   ENDPRO    464
                               12635              BX6    X3+X5             + RL+RB                               ENDPRO    465
           255  36771                             IX7    X7+X1             INCREMENT BLOCK LENGTH                ENDPRO    466
                     56110                        SA1    B1                NEXT WORD                             ENDPRO    467
                          12646                   BX6    X4+X6             + RA                                  ENDPRO    468
                               54620              SA6    A2                                                      ENDPRO    469
           256  0712000253 +                      LT     B1,B2,PST8        IF NOT FINISHED                       ENDPRO    470
                          5140000000 X            SA4    DATA.                                                   ENDPRO    471
           257  37174                             IX1    X7-X4             NUMBER OF NEW ADDITIONS TO DATA.      ENDPRO    472
                     54740                        SA7    A4                                                      ENDPRO    473
                                                                                                                 ENDPRO    474
                          5120000000 X            SA2    MACFLAG                                                 ENDPRO    475
           260  0302000264 +                      ZR     X2,PST8A                                                ENDPRO    476
                          5120000000 X            SA2    L.UDV                                                   ENDPRO    478
           261  7160000750 +                      SX6    F.UDV             FWA                                   ENDPRO    479
                          5150000332 +            SA5    BSS.OP                                                  ENDPRO    480
           262  10722                             BX7    X2                                                      ENDPRO    481
                     0100000317 +                 RJ     OSC               ISSUE STORAGE TO COMPS                ENDPRO    482
           263  0400000266 +                      EQ     PST9                                                    ENDPRO    483
                                                                                                                 ENDPRO    484
           264  5150000332 +            PST8A     SA5    BSS.OP                                                  ENDPRO    485
                          5120000007 +            SA2    =7L                                                     ENDPRO    486
           265  43052                             MX0    L.NAME                                                  ENDPRO    487
                     10622                        BX6    X2                BLANK LABEL FOR THIS LINE             ENDPRO    488
                          0100000341 +            RJ     WST                                                     ENDPRO    489
                                                                                                                 ENDPRO    490
  
  
  
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    14
         PST - PROCESS SYMBOL TABLE                                             CODE
  
                                        *         DEFINE THE ADDRESS"S OF USEAGE DEFINED VARIABLES THAT FIRST    ENDPRO    492
                                        *         APPEARED IN DATA STMTS                                         ENDPRO    493
                                        *         ALSO ADD NAMES TO UDV TABLE FOR STRAY NAME SEARCH IN "REFMAP"  ENDPRO    494
                                                                                                                 ENDPRO    495
           266  5110000000 X             PST9     SA1    O.DATA                                                  ENDPRO    496
                          5120000000 X            SA2    L.DATA                                                  ENDPRO    497
           267  0302000301 +                      ZR     X2,PST11    IF NO USAGE DEFINED DEFINED                 FCC0711    10
                          5150000012              SA5    SYM1              VARIABLES IN DATA STMTS               ENDPRO    499
           270  53050                             SA0    X5                                                      ENDPRO    500
                     43033                        MX0    L.ADF                                                   ENDPRO    501
                          63120                   SB1    X2                LENGTH                                ENDPRO    502
                               20047              LX0    L.ADF+P.ADF                                             ENDPRO    503
           271  53110                             SA1    X1                FIRST MEMBER                          ENDPRO    504
                     5130000000 X                 SA3    L.UDV                                                   ENDPRO    505
                               73631              SX6    X3+B1             INCREMENT UDV LENGTH                  ENDPRO    506
           272  6263000750 +                      SB6    F.UDV+X3          B6 = UDV STORE ADDRESS                ENDPRO    507
                          54630                   SA6    A3                                                      ENDPRO    508
           273  7140040000                        SX4    V.COM                                                   ENDPRO    509
                          5150000000 X            SA5    WB.FMT            RL = 1 , RB = DATA.                   ENDPRO    510
                                                                                                                 ENDPRO    511
           274  10611                    PST10    BX6    X1                                                      ENDPRO    512
                     73710                        SX7    X1                RA                                    ENDPRO    513
                          21121                   AX1    18-1                                                    ENDPRO    514
                               56660              SA6    B6                                                      ENDPRO    515
           275  63210                             SB2    X1                2*ORD                                 ENDPRO    516
                     20723                        LX7    P.RA                                                    ENDPRO    517
                          55302                   SA3    A0-B2             WORD A                                ENDPRO    518
                               55235              SA2    A3-B5             WORD B                                ENDPRO    519
           276  15634                             BX6    -X4*X3            TURN OFF COMMON BIT                   ENDPRO    520
                     54630                        SA6    A3                                                      ENDPRO    521
                          67115                   SB1    B1-B5                                                   ENDPRO    522
                               15220              BX2    -X0*X2                                                  ENDPRO    523
           277  36757                             IX7    X5+X7             RL,RA,RB                              ENDPRO    524
                     54115                        SA1    A1+B5             NEXT                                  ENDPRO    525
                          12672                   BX6    X7+X2                                                   ENDPRO    526
                               66665              SB6    B6+B5             ADVANCE UDV STORE ADDRESS             ENDPRO    527
           300  54620                             SA6    A2                                                      ENDPRO    528
                     0510000274 +                 NZ     B1,PST10          IF NOT FINISHED                       ENDPRO    529
  
  
  
                                        *         PROPAGATE DEFINED BIT IN SYMTAB THROUGH NON-COMMON EQUIVALENCE FCC0711    12
                                        *         CLASSES.                                                       FCC0711    13
                                                                                                                 FCC0711    14
           301  5110000012              PST11     SA1    SYM1                                                    FCC1924     7
                          53010                   SA0    X1          A0 = BASE ADDRESS OF SYMBOL TABLE           FCC1924     8
           302  5110000000 X                      SA1    =XL.EQV                                                 FCC1924     9
                          0301000144 +            ZR     X1,PST      IF NO EQUIVALENCE CLASSES                   FCC0711    16
           303  5120000000 X                      SA2    =XO.EQV                                                 FCC0711    17
                          43022                   MX0    18                                                      FCC0711    18
                               36312              IX3    X1+X2                                                   FCC0711    19
           304  53120                             SA1    X2          PRELOAD EQUIV ENTRY                         FCC0711    20
                     20044                        LX0    18+18                                                   FCC0711    21
                          63115                   SB1    X1+B5                                                   FCC0711    22
           305  7170200000                        SX7    V.DEF                                                   FCC0711    23
           306  0410000315 +             PST12    EQ     B1,PST14    IF SCAN OF CLASS COMPLETE                   FCC0711    24
                          11501                   BX5    X0*X1                                                   FCC0711    25
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    15
         PST - PROCESS SYMBOL TABLE                                             CODE
  
                               67115              SB1    B1-B5                                                   FCC0711    26
           307  21521                             AX5    18-1                                                    FCC0711    27
                     63250                        SB2    X5                                                      FCC0711    28
                          55502                   SA5    A0-B2       WORD A                                      FCC0711    29
                               54115              SA1    A1+B5                                                   FCC0711    30
           310  11475                             BX4    X7*X5                                                   FCC0711    31
                     0304000306 +                 ZR     X4,PST12    IF NOT DEFINED                              FCC0711    32
                               53120              SA1    X2                                                      FCC0711    33
           311  63115                             SB1    X1+B5                                                   FCC0711    34
           312  0410000315 +             PST13    EQ     B1,PST14    IF UPDATE OF CLASS COMPLETE                 FCC0711    35
                          11501                   BX5    X0*X1                                                   FCC0711    36
                               67115              SB1    B1-B5                                                   FCC0711    37
           313  21521                             AX5    18-1                                                    FCC0711    38
                     63250                        SB2    X5                                                      FCC0711    39
                          55502                   SA5    A0-B2       WORD A                                      FCC0711    40
                               54115              SA1    A1+B5                                                   FCC0711    41
           314  12675                             BX6    X7+X5       SET DEF BIT                                 FCC0711    42
                     54650                        SA6    A5          UPDATE WORD A                               FCC0711    43
                          0400000312 +            EQ     PST13                                                   FCC0711    44
                                                                                                                 FCC0711    45
           315  74210                    PST14    SX2    A1                                                      FCC0711    46
                     63115                        SB1    X1+B5                                                   FCC0711    47
                          37423                   IX4    X2-X3                                                   FCC0711    48
           316  0334000306 +                      MI     X4,PST12    IF NOT ALL CLASSES SCANNED                  FCC1313     6
                          0400000144 +            EQ     PST                                                     FCC0711    50
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    16
         PST - PROCESS SYMBOL TABLE                                             CODE
  
                                        ***                                                                      ENDPRO    532
                                        *         OSC - OUTPUT STORAGE FOR SYMBOLS IN A TABLE                    ENDPRO    533
                                        *         ON ENTRY:                                                      ENDPRO    534
                                        *                X5 = PSEUDO OP WORD                                     ENDPRO    535
                                        *                X6 = FWA OF THE TBL, X7 = LENGTH                        ENDPRO    536
                                        *                ENTRIES IN THE TABLE FORMATTED AS:                      ENDPRO    537
                                        *                  6/J,18/WC,18/SYMORD,18/J                              ENDPRO    538
                                        *                                                                        ENDPRO    539
           317  0400400317 +             OSC      ENTRY. **                ** ENTRY/EXIT **                      ENDPRO    540
           320  5160000333 +                      SA6    LI                                                      ENDPRO    541
                          36767                   IX7    X6+X7                                                   ENDPRO    542
                               54765              SA7    A6+B5             LIMIT                                 ENDPRO    543
           321  10755                             BX7    X5                                                      ENDPRO    544
                     5170000335 +                 SA7    PSEUDO                                                  ENDPRO    545
                                                                                                                 ENDPRO    546
           322  53160                    OSC1     SA1    X6                6/J,18/WC,18/SYMORD,18/J              ENDPRO    547
                     5120000012                   SA2    SYM1                                                    ENDPRO    548
                               21121              AX1    18-1                                                    ENDPRO    549
           323  73310                             SX3    X1                                                      ENDPRO    550
                     37423                        IX4    X2-X3                                                   ENDPRO    551
                          53240                   SA2    X4                WORD A                                ENDPRO    552
                               21123              AX1    36-17                                                   ENDPRO    553
           324  73110                             SX1    X1                X1 = WC                               ENDPRO    554
                     43052                        MX0    L.NAME                                                  ENDPRO    555
                          11602                   BX6    X0*X2             X6 = 7L_NAME                          ENDPRO    556
           325  5150000335 +                      SA5    PSEUDO                                                  ENDPRO    557
                          0100000341 +            RJ     WST                                                     ENDPRO    558
                                                                                                                 ENDPRO    559
           326  5110000333 +                      SA1    LI                                                      ENDPRO    560
                          54215                   SA2    A1+B5             LIMIT                                 ENDPRO    561
                               73615              SX6    X1+B5             LI = LI+1                             ENDPRO    562
           327  37062                             IX0    X6-X2             I - L                                 ENDPRO    563
                     54610                        SA6    A1                                                      ENDPRO    564
                          0330000322 +            NG     X0,OSC1           IF MORE MEMBERS                       ENDPRO    565
           330  0400000317 +                      EQ     OSC                                                     ENDPRO    566
                                                                                                                 ENDPRO    567
           331  00000055555555555502     OSC.WD   DATA   7R      B                                               ENDPRO    568
           332  23550000000060550223     BSS.OP   VFD    12/2LS ,30/48,18/3L BS                                  ENDPRO    569
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    17
         PST - PROCESS SYMBOL TABLE                                             CODE
  
           333                     2     LI       BSS    2                 LOOP INDEX AND LIMIT                  ENDPRO    571
           335                     1     PSEUDO   BSS    1                 PSEUDO OP                             ENDPRO    572
           336                     3     CBUF     BSS    3                 3 WORD BUFFER FOR COMPS IMAGES        ENDPRO    573
                                                                                                                 ENDPRO    574
                                        ***                                                                      ENDPRO    575
                                        *         WST - WRITE STORAGE TO COMPS                                   ENDPRO    576
                                        *                                                                        ENDPRO    577
                                        *         ON ENTRY:                                                      ENDPRO    578
                                        *                X0 = MASK(42) , X1 = WORD COUNT IN BINARY               ENDPRO    579
                                        *                X5 = PSEUDO OP WORD , X6 = 7L_NAME                      ENDPRO    580
                                        *                                                                        ENDPRO    581
           341  0400400341 +             WST      ENTRY. **                ** ENTRY/EXIT **                      ENDPRO    582
           342  15750                             BX7    -X0*X5                                                  ENDPRO    583
                     43022                        MX0    18                                                      ENDPRO    584
                          36667                   IX6    X6+X7             FIRST 3 CHARS OF OP TO NAME           ENDPRO    585
                               11750              BX7    X5*X0             REMAINER OF THE OP                    ENDPRO    586
           343  21522                             AX5    18                                                      ENDPRO    587
                     63650                        SB6    X5                SHIFT COUNT                           ENDPRO    588
                          5160000336 +            SA6    CBUF                                                    ENDPRO    589
           344  6110000001                        SB1    1                                                       ENDPRO    590
                          5150000331 +            SA5    OSC.WD            7R      B                             ENDPRO    591
           345  6120000006                        SB2    6                                                       ENDPRO    592
                          43071                   MX0    57                                                      ENDPRO    593
                               10655              BX6    X5                INITIALIZE RESULT                     ENDPRO    594
           346  15210                    WST1     BX2    -X0*X1                                                  ENDPRO    595
                     21103                        AX1    3                                                       ENDPRO    596
                          7232777755              SX3    X2+1R0-1R                                               ENDPRO    597
           347  22423                             LX4    B2,X3                                                   ENDPRO    598
                     6122000006                   SB2    B2+6                                                    ENDPRO    599
                               36646              IX6    X4+X6             ADD DIGIT TO STRING                   ENDPRO    600
           350  0311000346 +                      NZ     X1,WST1                                                 ENDPRO    601
                          6130000073              SB3    59                                                      ENDPRO    602
           351  43001                             MX0    1                                                       ENDPRO    603
                     67332                        SB3    B3-B2                                                   ENDPRO    604
                          23030                   AX0    B3,X0             MASK(60-6*NCHAR)                      ENDPRO    605
                               15660              BX6    -X0*X6            REMOVE LEADING BLANKS                 ENDPRO    606
           352  67662                             SB6    B6-B2                                                   ENDPRO    607
                     22666                        LX6    B6,X6             LEFT ADJUST                           ENDPRO    608
                          12776                   BX7    X7+X6                                                   ENDPRO    609
                               54761              SA7    A6+B1                                                   ENDPRO    610
           353  43060                             MX0    48                                                      ENDPRO    611
                     66711                        SB7    B1+B1             (B7) = 2 = WORD COUNT                 ENDPRO    612
                          15570                   BX5    -X0*X7                                                  ENDPRO    613
                               76600              SX6    B0                                                      ENDPRO    614
           354  0305000355 +                      ZR     X5,WST2           IF WE HAVE A ZERO BYTE                ENDPRO    615
                          54671                   SA6    A7+B1                                                   ENDPRO    616
                               66771              SB7    B7+B1             WORD COUNT = 3                        ENDPRO    617
           355  6160000336 +             WST2     WRITEC =XF.CMPS,CBUF,B7  PSEUDO-OP TO -COMPS-                  ENDPRO    618
           357  6151000000                        SB5    B1+                                                     ENDPRO    619
                          0400000341 +            EQ     WST         EXIT                                        ENDPRO    620
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    18
         DCT - DUMP THE CON TABLE                                               CODE
  
                                        ***                                                                      ENDPRO    622
                                        *         DCT - DUMP CON TABLE                                           ENDPRO    623
                                        *                                                                        ENDPRO    624
           360  0400400360 +             DCT      ENTRY. *                 ** ENTRY/EXIT **                      ENDPRO    625
           361  5150000000 X                      SA5    DATA.                                                   ENDPRO    626
                          5140000000 X            SA4    CON.              ORD(CON.)                             ENDPRO    627
           362  5130000012                        SA3    SYM1                                                    ENDPRO    628
                          20401                   LX4    1                                                       ENDPRO    629
                               37034              IX0    X3-X4                                                   ENDPRO    630
           363  5220777776                        SA2    X0-1              WORD B                                ENDPRO    631
                          20523                   LX5    P.RA                                                    ENDPRO    632
                               12652              BX6    X5+X2             INSTALL BLOCK RELATIVE ADDRESS        ENDPRO    633
           364  21523                             AX5    P.RA                                                    ENDPRO    634
                     54620                        SA6    A2                UPDATE WORD B                         ENDPRO    635
                                                                                                                 ENDPRO    636
                          5120000000 X            SA2    L.CON                                                   ENDPRO    637
           365  0302000370 +                      ZR     X2,DCT1           IF NO CONSTANTS                       ENDPRO    638
                          36625                   IX6    X2+X5             UPDATE LENGTH OF DATA. BLOCK          ENDPRO    639
                               54650              SA6    A5                                                      ENDPRO    640
           366  5110000000 X                      SA1    O.CON                                                   ENDPRO    641
                          5130000010 +            SA3    =18LCON. BSS 0B                                         ENDPRO    642
           367  0100000417 +                      RJ     ODW               DUMP THE CON TABLE                    ENDPRO    643
                                                                                                                 ENDPRO    644
           370  5150000000 X             DCT1     SA5    N.TLAB                                                  ENDPRO    645
                          0305000360 +            ZR     X5,DCT            IF NOT TRACING LABELS                 ENDPRO    646
           371  5100000000 X                      ALLOC  SCR,X5            GET SPACE                             ENDPRO    647
                                                                                                                 ENDPRO    648
           372  5130000012                        SA3    SYM1                                                    ENDPRO    649
                          5140000000 X            SA4    LABEL.                                                  ENDPRO    650
           373  20401                             LX4    1                                                       ENDPRO    651
                     37034                        IX0    X3-X4                                                   ENDPRO    652
                          5220777776              SA2    X0-1              WORD B                                ENDPRO    653
           374  5140000000 X                      SA4    DATA.                                                   ENDPRO    654
                          5150000000 X            SA5    N.TLAB                                                  ENDPRO    655
           375  36745                             IX7    X4+X5             INCREMENT DATA. LENGTH                ENDPRO    656
                     54740                        SA7    A4                                                      ENDPRO    657
                          20423                   LX4    P.RA                                                    ENDPRO    658
                               12642              BX6    X4+X2             INSTALL BLOCK RELATIVE ADDRESS        ENDPRO    659
           376  54620                             SA6    A2                                                      ENDPRO    660
                                                                                                                 ENDPRO    661
                                        *         SCAN THE SYMBOL TABLE FOR STATEMENT NUMBERS WITH               ENDPRO    662
                                        *         TRACE ORDINALS AND FORM A TABLE OF VFD STMT OF THE FORM:       ENDPRO    663
                                        *         30/_NNNNN,30/BINARY LINE NUMBER THAT LABEL IS DEFINED ON       ENDPRO    664
                                                                                                                 ENDPRO    665
                     63750                        SB7    X5                                                      ENDPRO    666
                          63650                   SB6    X5                                                      ENDPRO    667
           377  5150000000 X                      SA5    O.SCR                                                   ENDPRO    668
                          6245777776              SB4    X5-1              B4 = FWA-1 OF TABLE OF VFD STMTS      ENDPRO    669
           400  5110000012                        SA1    SYM1                                                    ENDPRO    670
                          5120000013              SA2    SYMEND                                                  ENDPRO    671
           401  5130000000 X                      SA3    CON.                                                    ENDPRO    672
                          20301                   LX3    1                                                       ENDPRO    673
                               37113              IX1    X1-X3                                                   ENDPRO    674
           402  63110                             SB1    X1                B1 = INDEX                            ENDPRO    675
                     63220                        SB2    X2                LWA+1                                 ENDPRO    676
                                                                                                                 ENDPRO    677
                          43005                   MX0    L.TYP+1           MASK FOR TYPE AND GEN BIT             ENDPRO    678
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    19
         DCT - DUMP THE CON TABLE                                               CODE
  
           403  7130000006                        SX3    T.LAB                                                   ENDPRO    679
                          66355                   SB3    B5+B5                                                   ENDPRO    680
                               43536              MX5    30                                                      ENDPRO    681
           404  20370                             LX3    P.TYP             X3 = T.LAB S P.TYP                    ENDPRO    682
                     43760                        MX7    60-L.TRO                                                ENDPRO    683
                                                                                                                 ENDPRO    684
           405  57215                    DCT2     SA2    B1-B5             WORD B                                ENDPRO    685
                     67113                        SB1    B1-B3                                                   ENDPRO    686
                          0712000414 +            LT     B1,B2,DCT3        IF FINISHED                           ENDPRO    687
           406  11102                             BX1    X0*X2             TYPE AND GEN LABEL BITS               ENDPRO    688
                     37413                        IX4    X1-X3                                                   ENDPRO    689
                          0314000405 +            NZ     X4,DCT2           IF NOT A STMT LABEL                   ENDPRO    690
           407  20207                             LX2    59-P.DSN                                                ENDPRO    691
                     0322000405 +                 PL     X2,DCT2           IF A FORMAT LABEL                     ENDPRO    692
                               21237              AX2    59-P.DSN+P.TRO                                          ENDPRO    693
           410  54125                             SA1    A2+B5             WORD A                                ENDPRO    694
                     15427                        BX4    -X7*X2            LABEL TABLE ORDINAL                   ENDPRO    695
                          0304000405 +            ZR     X4,DCT2           IF NONE                               ENDPRO    696
           411  20106                             LX1    6                                                       ENDPRO    697
                     11151                        BX1    X5*X1             5L_NNNNN                              ENDPRO    698
                          21214                   AX2    P.DLN-P.TRO                                             ENDPRO    699
                               15227              BX2    -X7*X2            LINE NUMBER OF DEF                    ENDPRO    700
           412  36612                             IX6    X1+X2                                                   ENDPRO    701
                     53644                        SA6    X4+B4             STORE ENTRY                           ENDPRO    702
                          67775                   SB7    B7-B5                                                   ENDPRO    703
           413  0570000405 +                      NZ     B7,DCT2           IF MORE TO GO                         ENDPRO    704
                                                                                                                 ENDPRO    705
           414  76145                    DCT3     SX1    B4+B5             FWA                                   ENDPRO    706
                     76260                        SX2    B6                LENGTH                                ENDPRO    707
                          5130000012 +            SA3    =18LLABEL. BSS 0B                                       ENDPRO    708
           415  0100000417 +                      RJ     ODW                                                     ENDPRO    709
           416  0400000360 +                      EQ     DCT                                                     ENDPRO    710
  
  
  
                                        ***                                                                      ENDPRO    712
                                        *         ODW - OUTPUT DATA WORDS                                        ENDPRO    713
                                        *         OUTPUTS LINE IMAGES OF THE FORM  "  DATA  WORDN" FOR           ENDPRO    714
                                        *         EACH WORD IN THE TABLE DEFINED BY X1 AND X2                    ENDPRO    715
                                        *         ON ENTRY:                                                      ENDPRO    716
                                        *                X1,X2 = FWA AND LENGTH OF DATA TABLE                    ENDPRO    717
                                        *                A3 = FWA OF BCD FOR LABEL DEFINING TABLE                ENDPRO    718
                                        *                                                                        ENDPRO    719
           417  0400400417 +             ODW      ENTRY. *                 ** ENTRY/EXIT **                      ENDPRO    720
           420  74730                             SX7    A3                                                      ENDPRO    721
                     10611                        BX6    X1                                                      ENDPRO    722
                          5170000336 +            SA7    CBUF              TEMP SAVE ADDR OF LABEL DEFINITION    ENDPRO    723
           421  6110000001                        SB1    1                                                       ENDPRO    724
                          36712                   IX7    X1+X2             LWA+1                                 ENDPRO    725
           422  5160000333 +                      SA6    LI                                                      ENDPRO    726
                          54761                   SA7    A6+B1                                                   ENDPRO    727
           423  7160000000 X                      OUTUSE DATA.             GET IN THE RIGHT RB                   ENDPRO    728
           424  5110000336 +                      SA1    CBUF                                                    ENDPRO    729
                          63610                   WRITEC =XF.CMPS,X1,2     LABEL DEFINITION TO -COMPS-           ENDPRO    730
           426  5110000333 +                      SA1    LI                                                      ENDPRO    731
                          46000                   NO                                                             ENDPRO    732
                               10611              BX6    X1                                                      ENDPRO    733
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    20
         DCT - DUMP THE CON TABLE                                               CODE
  
           427  53160                    ODW1     SA1    X6                TABLE ENTRY                           ENDPRO    734
                     0100000442 +                 RJ     BTOCT             CONVERT IT                            ENDPRO    735
           430  43022                             MX0    18                                                      ENDPRO    736
                     5120000014 +                 SA2    =7L  DATA                                               ENDPRO    737
                               15360              BX3    -X0*X6            SAVE LOWEST 7                         ENDPRO    738
           431  11606                             BX6    X0*X6                                                   ENDPRO    739
                     20622                        LX6    3*6               RIGHT JUSTIFL HIGHEST 3               ENDPRO    740
                          12626                   BX6    X2+X6             FORM 1ST WORD                         ENDPRO    741
                               20322              LX3    3*6               SHIFT LOWEST 7 TO HIGHEST 7           ENDPRO    742
           432  15470                             BX4    -X0*X7            SAVE NEXT LOWEST 7                    ENDPRO    743
                     11707                        BX7    X0*X7                                                   ENDPRO    744
                          20722                   LX7    3*6               RIGHT JUSTIFY NEXT HIGHEST 3          ENDPRO    745
                               12737              BX7    X3+X7             FORM 2ND WORD                         ENDPRO    746
           433  5160000336 +                      SA6    CBUF              1ST WORD  *  DATA NNN*                ENDPRO    747
                          20422                   LX4    3*6                                                     ENDPRO    748
                               54761              SA7    A6+B1             2ND WORD                              ENDPRO    749
           434  7160020000                        SX6    2S12              DIS B                                 ENDPRO    750
                          12646                   BX6    X4+X6                                                   ENDPRO    751
                               54671              SA6    A7+B1             3RD WORD  *7123456B00*                ENDPRO    752
           435  6160000336 +                      WRITEC =XF.CMPS,CBUF,3   *  DATA N...NB00* TO -COMPS-          ENDPRO    753
           437  5140000333 +                      SA4    LI                                                      ENDPRO    754
                          54541                   SA5    A4+B1             LWA+1                                 ENDPRO    755
                               73641              SX6    X4+B1                                                   ENDPRO    756
           440  37065                             IX0    X6-X5             I - L                                 ENDPRO    757
                     54640                        SA6    A4                                                      ENDPRO    758
                          0330000427 +            NG     X0,ODW1           IF NOT FINISHED                       ENDPRO    759
           441  6151000000                        SB5    B1+                                                     ENDPRO    760
                          0400000417 +            EQ     ODW                                                     ENDPRO    761
  
  
  
                                        ***                                                                      ENDPRO    763
                                        *         BTOCT - CONVERT BINARY NUMBER TO OCTAL                         ENDPRO    764
                                        *                                                                        ENDPRO    765
                                        *         ON ENTRY: X1 = NUMBER                                          ENDPRO    766
                                        *         ON EXIT: X6,X7 OCTAL CONSTANT                                  ENDPRO    767
                                        *                                                                        ENDPRO    768
           442  0400400442 +             BTOCT    ENTRY. **                ** ENTRY/EXIT **                      ENDPRO    769
           443  6140000006                        SB4    6                                                       ENDPRO    770
                          7150000033              SX5    1R0                                                     ENDPRO    771
           444  43303                             MX3    3                                                       ENDPRO    772
                     6120000074                   SB2    60                                                      ENDPRO    773
                               43700              MX7    0                                                       ENDPRO    774
           445  66622                             SB6    B2+B2             B6 = 120                              ENDPRO    775
                                                                                                                 ENDPRO    776
           446  11413                    BTOCTL   BX4    X1*X3             EXTRACT A DIGIT                       ENDPRO    777
                     67224                        SB2    B2-B4             B2 = B2-6                             ENDPRO    778
                          20403                   LX4    3                                                       ENDPRO    779
                               36445              IX4    X4+X5                                                   ENDPRO    780
           447  67664                             SB6    B6-B4             B6 = B6-6                             ENDPRO    781
                     22424                        LX4    B2,X4             POSITION                              ENDPRO    782
                          12747                   BX7    X4+X7             OR IN                                 ENDPRO    783
                               20103              LX1    3                 NEXT DIGIT                            ENDPRO    784
           450  0520000446 +                      NZ     B2,BTOCTL                                               ENDPRO    785
                                                                                                                 ENDPRO    786
                          0460000442 +            ZR     B6,BTOCT          IF FINISHED                           ENDPRO    787
           451  10677                             BX6    X7                SAVE FIRST 10 DIGITS                  ENDPRO    788
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    21
         DCT - DUMP THE CON TABLE                                               CODE
  
                     66260                        SB2    B6                B2 = 60                               ENDPRO    789
                          43700                   MX7    0                                                       ENDPRO    790
           452  0400000446 +                      EQ     BTOCTL                                                  ENDPRO    791
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    22
         IAC - INSERT ADDRESS S INTO COMMON VARIABLES                           CODE
  
                                        ***                                                                      ENDPRO    794
                                        *         IAC - INSERT ADDRESS"S INTO COMMON VARIABLES                   ENDPRO    795
                                        *                                                                        ENDPRO    796
                                        *         WHEN THE D OPTION IS SELECTED, THE ADDRESS"S OF COMMON VARIABL ENDPRO    797
                                        *         WITHOUT A DIM ENTRY MUST BE SAVED IN A TEMPORARY TABLE UNTIL   ENDPRO    798
                                        *         THE END OF PASS 1 WHEN THE DEBUG PROCESSOR NO LONGER           ENDPRO    799
                                        *         ACTIVE. AT THIS TIME THE ADDRESS"S CAN BE INSERTED INTO        ENDPRO    800
                                        *         THE SYMBOL TABLE ENTRIES.                                      ENDPRO    801
                                        *                                                                        ENDPRO    802
           453  0400400453 +             IAC      ENTRY. *                 ** ENTRY/EXIT **                      ENDPRO    803
           454  5110000000 X                      SA1    O.SCA                                                   ENDPRO    804
                          5120000000 X            SA2    L.SCA                                                   ENDPRO    805
           455  0302000453 +                      ZR     X2,IAC            IF NO COMMON VARIABLES                ENDPRO    806
                                                                                                                 ENDPRO    807
                          5150000012              SA5    SYM1                                                    ENDPRO    808
           456  63110                             SB1    X1                FWA                                   ENDPRO    809
                     63221                        SB2    B1+X2             LWA+1                                 ENDPRO    810
                          53050                   SA0    X5                A0 = SYM1                             ENDPRO    811
                               43024              MX0    L.RL+L.RA                                               ENDPRO    812
           457  76555                             SX5    B5+B5                                                   ENDPRO    813
                     20047                        LX0    L.RL+L.RA+P.RA    POSITION MASK                         ENDPRO    814
                          56110                   SA1    B1                                                      ENDPRO    815
                               20545              LX5    P.RL              RL = 2                                ENDPRO    816
                                                                                                                 ENDPRO    817
           460  73710                    IAC1     SX7    X1                RA                                    ENDPRO    818
                     21121                        AX1    18-1                                                    ENDPRO    819
                          63315                   SB3    X1+B5             2*ORD+1                               ENDPRO    820
                               20723              LX7    P.RA                                                    ENDPRO    821
           461  55203                             SA2    A0-B3             WORD B                                ENDPRO    822
                     66115                        SB1    B1+B5                                                   ENDPRO    823
                          15320                   BX3    -X0*X2            CLEAR DEFINITION AREA                 ENDPRO    824
                               43214              MX2    L.DIMP                                                  ENDPRO    825
           462  20265                             LX2    L.DIMP+P.DIMP                                           ENDPRO    826
                     36457                        IX4    X5+X7             RL + RA                               ENDPRO    827
                          56110                   SA1    B1                NEXT                                  ENDPRO    828
                               12643              BX6    X4+X3                                                   ENDPRO    829
           463  15662                             BX6    -X2*X6      CLEAR DIMP                                  ENDPRO    830
                                                                                                                 ENDPRO    831
                     54620                        SA6    A2                                                      ENDPRO    832
                          0712000460 +            LT     B1,B2,IAC1                                              ENDPRO    833
           464  0400000453 +                      EQ     IAC                                                     ENDPRO    834
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    23
        OSL - OUTPUT STATIC LOAD DIRECTIVES                           OSL       CODE
  
                                        **        OSL - OUTPUT STATIC LOAD DIRECTIVES.                           F162FTNA  842
                                        *                                                                        F162FTNA  843
                                        *         SCANS STATIC LOAD TABLE (LSTPRO/STLTAB).  FORMATS EACH         F162FTNA  844
                                        *         SELECTED DECK NAME AS A  *  LDSET USE=STLXYZ.* DIRECTIVE,      F162FTNA  845
                                        *         AND WRITES IT TO THE *COMPS* FILE.                             F162FTNA  846
                                        *                                                                        F162FTNA  847
                                        *                                                                        F162FTNA  848
                                        *         ENTRY  (B1) = 1.                                               F162FTNA  849
                                        *                STLTAB/LSTPRO - DECK NAME TABLE, FORMAT--               F162FTNA  850
                                        *                            1/SELECT BIT, 17/0, 42/0L DECK NAME         F162FTNA  851
                                        *                   WITH *SELECT*=1 FOR EACH DECK NAME TO BE OUTPUT.     F162FTNA  852
                                        *                   A ZERO WORD TERMINATES THE TABLE.                    F162FTNA  853
                                        *                                                                        F162FTNA  854
                                        *         EXIT   (B1) = 1.                                               F162FTNA  855
                                        *                LDSET DIRECTIVES WRITTEN TO *COMPS* FILE.               F162FTNA  856
                                        *                                                                        F162FTNA  857
                                        *         USES   ALL.                                                    F162FTNA  858
                                        *                                                                        F162FTNA  859
                                        *         CALLS  WRITEC.                                                 F162FTNA  860
                                                                                                                 F162FTNA  861
                                                  QUAL   OSL                                                     F162FTNA  862
                                                                                                                 F162FTNA  863
                                                                                                                 F162FTNA  864
           465  0400400465 +             OSL      SUBR               ** ENTRY/EXIT **                            F162FTNA  865
           466  5120000000 X                      SA2    =XCO.STA                                                F162FTNA  866
                          5130000056              SA3    PROGRAM                                                 F162FTNA  867
           467  5110777776 X                      SA1    =XSTLTAB-1                                              F162FTNA  868
                          0302000465 +            ZR     X2,EXIT.    IF STATIC LOAD OPTION NOT SELECTED          F162FTNA  869
           470  0303000465 +                      ZR     X3,EXIT.    IF BLOCK DATA SUBPROGRAM                    F162FTNA  870
                          20313                   LX3    11                                                      FCCA535    17
                               43001              MX0    1        SELECTION BIT MASK                             FCCA535    18
           471  0333000473 +                      MI     X3,OSL2  IF NOT MAIN PROGRAM                            FCCA535    19
                          5021000014              SA2    A1+12    PICK UP LAST STLTAB ENTRY                      FCCA535    20
           472  36602                             IX6    X0+X2    SET SELECT BIT FOR CMM INTERFACE               FCCA535    21
                     54620                        SA6    A2                                                      FCCA535    22
           473  54111                    OSL2     SA1    A1+B1                                                   F162FTNA  871
                     74610                        SX6    A1                                                      F162FTNA  872
                          0301000465 +            ZR     X1,EXIT.    IF END OF TABLE                             F162FTNA  873
           474  0321000473 +                      PL     X1,OSL2     IF ENTRY NOT SELECTED                       F162FTNA  874
                          5160000503 +            SA6    OSLA        SAVE CURRENT TABLE ADDR FOR RESTART         F162FTNA  875
           475  5120000505 +                      SA2    OSLB+1                                                  F162FTNA  876
                          20166                   LX1    -1*6                                                    F162FTNA  877
                               43030              MX0    4*6                                                     F162FTNA  878
           476  11202                             BX2    X0*X2       EXTRACT *USE=*                              F162FTNA  879
                     15010                        BX0    -X0*X1      EXTRACT *STLXYZ*                            F162FTNA  880
                          36620                   IX6    X2+X0                                                   F162FTNA  881
                               54620              SA6    A2                                                      F162FTNA  882
           477  6160000504 +                      WRITEC =XF.CMPS,OSLB,3   *LDSET USE=STLXXX.* TO *COMPS* FILE   F162FTNA  883
           501  5120000503 +                      SA2    OSLA                                                    F162FTNA  884
                          53120                   SA1    X2                                                      F162FTNA  885
           502  0400000473 +                      EQ     OSL2                                                    F162FTNA  886
                                                                                                                 F162FTNA  887
                                                                                                                 F162FTNA  888
           503                     1     OSLA     BSS    1           SAVED CURRENT *STLTAB* WORKING ADDRESS      F162FTNA  889
           504  55551404230524555555     OSLB     DATA   10H  LDSET                                              F162FTNA  890
           505  25230554232414303132              DATA   10HUSE=STLXYZ                                           F162FTNA  891
           506  57000000000000000000              DATA   1C.                                                     F162FTNA  892
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    24
        OSL - OUTPUT STATIC LOAD DIRECTIVES                           OSL       CODE
  
                                                  QUAL   *                                                       F162FTNA  894
                                 465 +   OSL      =      /OSL/OSL                                                F162FTNA  895
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    25
             BEFTB: BASIC EXTERNAL FUNCTION TABLE                               CODE
  
                                        ***                                                                      COUNTMC     2
                                        *         COUNT - COUNT NUMBER OF PARAMETERS                             COUNTMC     3
                                        *          SPECIAL MACRO USED BY "BASIC" AND "INTRIN" MACROS IN          COUNTMC     4
                                        *          FORMING BEFTB AND INTRINSIC FUNCTION TABLES.                  COUNTMC     5
                                        *                                                                        COUNTMC     6
                                                                                                                 COUNTMC     7
                                         COUNT    MACRO  NPARAMS,NRS,TYPE,P1,P2                                  COUNTMC     8
                                                  IFC    NE,//TYPE/                                              COUNTMC     9
                                         .A       OCTMIC TYPE+1,2                                                COUNTMC    10
                                         TYMIC    MICRO  1,,/"TYMIC"_".A"/                                       COUNTMC    11
                                         NPARAMS  SET    NPARAMS+1                                               COUNTMC    12
                                         NRS      SET    NRS+1                                                   COUNTMC    13
                                                  IFC    EQ,/TYPE/DOUBLE/,1                                      COUNTMC    14
                                         NRS      SET    NRS+1                                                   COUNTMC    15
                                                  IFC    EQ,/TYPE/COMPLEX/,1                                     COUNTMC    16
                                         NRS      SET    NRS+1                                                   COUNTMC    17
                                                  IFC    EQ,/TYPE/ANYDBL/,1                                      COUNTMC    18
                                         NRS      SET    NRS+1                                                   COUNTMC    19
                                                  IFC    NE,/P1//                                                COUNTMC    20
                                                  COUNT  NPARAMS,NRS,P1,P2                                       COUNTMC    21
                                                  ENDIF                                                          COUNTMC    22
                                                                                                                 COUNTMC    23
                                         NPARAMS  DECMIC NPARAMS                                                 COUNTMC    24
                                         NRS      DECMIC NRS                                                     COUNTMC    25
                                                  ENDM                                                           COUNTMC    26
  
  
  
                                        **        BASIC - BASIC EXTERNAL FUNCTION ( *BEF* ) SPECIFICATION MACRO  FEAT121A   52
                                        *                                                                        FEAT121A   53
                                        * FNAME   BASIC  FTYP,(ARGTYPS),METHOD                                   FEAT121A   54
                                        *                                                                        FEAT121A   55
                                        *         ARGTYPS - ARGUMENT TYPES                                       FEAT121A   56
                                                  NOREF  .1                                                      FEAT121A   57
                                                                                                                 FEAT121A   58
                                                  MACRO  BASIC,FNAMEXX,FTYP,ARGS                                 FEAT121A   59
                                         .ACNT    SET    0                                                       FEAT121A   60
                                         .DUM     SET    0                                                       FEAT121A   61
                                         TYMIC    MICRO  1,,                                                     FEAT121A   62
                                                  COUNT  .ACNT,.DUM,ARGS                                         FEAT121A   63
                                        +         VFD    42/0H_FNAMEXX,18/V.FUN                                  FEAT121A   64
                                                  VFD    L.TYP/FTYP                                              FEAT121A   65
                                                  POS    P.EXT+1                                                 FEAT121A   66
                                                  VFD    1/1                                                     FEAT121A   67
                                                  POS    P.FARG+6                                                FEAT121A   68
                                                  VFD    6/.ACNT                                                 FEAT121A   69
                                                  POS    P.LIB+1                                                 FEAT121A   70
                                                  VFD    1/1                                                     FEAT121A   71
                                                  POS    P.BEF+1                                                 FEAT121A   72
                                                  VFD    1/1                                                     FEAT121A   73
                                        *                                                                        FEAT121A   74
                                                  IF     -DEF,.FNAMEXX,1                                         FEAT121A   75
                                         .FNAMEXX EQU    0                                                       FEAT121A   76
                                        *                                                                        FEAT121A   77
                                                  POS    P.RA+18                                                 FEAT121A   78
                                                  VFD    18/.FNAMEXX,*P/0                                        FEAT121A   79
                                         .1       SET    6*.ACNT                                                 FEAT121A   80
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    26
             BEFTB: BASIC EXTERNAL FUNCTION TABLE                     BASIC     CODE
  
                                                  VFD    .1/"TYMIC"B,*P/0                                        FEAT121A   81
                                                  ENDM                                                           FEAT121A   82
                                                                                                                 ENDPRO    862
                                   0     LOGICAL  EQU    T.LOG                                                   ENDPRO    863
                                   1     INTEGER  EQU    T.INT                                                   ENDPRO    864
                                   2     REAL     EQU    T.REAL                                                  ENDPRO    865
                                   3     DOUBLE   EQU    T.DBL                                                   ENDPRO    866
                                   4     COMPLEX  EQU    T.CPLX                                                  ENDPRO    867
                                   5     OCTAL    EQU    T.OCT                                                   ENDPRO    868
                                   7     ANYSNGL  EQU    7                                                       ENDPRO    869
                                  10     ANYDBL   EQU    10B                                                     ENDPRO    870
  
  
  
                                        **        BRP - SPECIFY LIST OF B-REGISTERS PRESERVED BY A *BEF*         FEAT121A   84
                                        *                                                                        FEAT121A   85
                                        *         BRP    FNAME,(LIST)                                            FEAT121A   86
                                        *                                                                        FEAT121A   87
                                        *         LIST - A LIST OF REGISTER NUMBERS, I.E. - (5,6,7) .            FEAT121A   88
                                         BRP      MACRO  FNAME,LIST                                              FEAT121A   89
                                         .1       SET    0                                                       FEAT121A   90
                                                  IRP    LIST                                                    FEAT121A   91
                                         .1       SET    .1+1S_LIST                                              FEAT121A   92
                                                  IRP                                                            FEAT121A   93
                                         .FNAME   EQU    .1                                                      FEAT121A   94
                                                  ENDM                                                           FEAT121A   95
  
  
                                                  BRP    ASIN,(6,7)                                              FEAT121A   97
                                                  BRP    ACOS,(6,7)                                              FEAT121A   98
                                                  BRP    ALOG,(5,6,7)                                            FEAT121A   99
                                                  BRP    ALOG10,(5,6,7)                                          FEAT121A  100
                                                  BRP    ATAN,(5,6,7)                                            FEAT121A  101
                                                  BRP    ATAN2,(5,6,7)                                           FEAT121A  102
                                                  BRP    COS,(5,6,7)                                             FEAT121A  103
                                                  BRP    SIN,(5,6,7)                                             FEAT121A  104
                                                  BRP    EXP,(5,6,7)                                             FEAT121A  105
                                                  BRP    SQRT,(5,6,7)                                            FEAT121A  106
                                                  BRP    COSH,(5,6,7)                                            FEAT121A  107
                                                  BRP    SINH,(5,6,7)                                            FEAT121A  108
                                                  BRP    DEXP,(5,6,7)                                            FEAT79CZ    7
                                                  BRP    DTANH,(6,7)                                             FEAT79CZ    8
                                                  BRP    DCOSH,(6,7)                                             FEAT79CZ    9
                                                  BRP    DSINH,(6,7)                                             FEAT79CZ   10
                                                  BRP    DASIN,(6,7)                                             F191FCC    16
                                                  BRP    DACOS,(6,7)                                             F191FCC    17
                                                  BRP    ERF,(5,6,7)                                             F191FCC    18
                                                  BRP    ERFC,(5,6,7)                                            F191FCC    19
                                                  BRP    ATANH,(5,6,7)                                           F191FCC    20
                                                  BRP    SIND,(5,6,7)                                            F191FCC    21
                                                  BRP    COSD,(5,6,7)                                            F191FCC    22
                                                  BRP    TAND,(5,6,7)                                            F191FCC    23
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    27
        BEFTB - BASIC EXTERNAL FUNCTION TABLE                         DEFTB     CODE
  
                                        **        BEFTB - BASIC EXTERNAL FUNCTION TABLE                          FEAT121A  110
                                        *         EACH ENTRY CONSISTS OF 3 WORDS, THE FIRST 2 ARE WORDS A AND B  FEAT121A  111
                                        *         OF A PROTOTYPE SYMBOL TABLE ENTRY. THE THIRD WORD CONTAINS A   FEAT121A  112
                                        *         LIST OF THE FUNCTION ARGUMENT TYPES.                           FEAT121A  113
  
                                                  ENTRY  BEFTB,L.BEFTB     FWA AND LWA+1 OF BEFTB                ENDPRO    884
           507                          BEFTB     BSS    0               BASIC EXTERNAL FUNCTION TABLE           ENDPRO    885
                                                  LIST   -R                                                      FEAT121A  114
           507  05302055555555100000    EXP       BASIC  REAL,(REAL)                                             ENDPRO    886
           512  04053020555555100000    DEXP      BASIC  DOUBLE,(DOUBLE)                                         ENDPRO    887
           515  03053020555555100000    CEXP      BASIC  COMPLEX,(COMPLEX)                                       ENDPRO    888
           520  01141707555555100000    ALOG      BASIC  REAL,(REAL)                                             ENDPRO    889
           523  04141707555555100000    DLOG      BASIC  DOUBLE,(DOUBLE)                                         ENDPRO    890
           526  03141707555555100000    CLOG      BASIC  COMPLEX,(COMPLEX)                                       ENDPRO    891
           531  01141707343355100000    ALOG10    BASIC  REAL,(REAL)                                             ENDPRO    892
           534  04141707343355100000    DLOG10    BASIC  DOUBLE,(DOUBLE)                                         ENDPRO    893
           537  23111655555555100000    SIN       BASIC  REAL,(REAL)                                             ENDPRO    894
           542  04231116555555100000    DSIN      BASIC  DOUBLE,(DOUBLE)                                         ENDPRO    895
           545  04012311165555100000     DASIN    BASIC  DOUBLE,(DOUBLE)                                         F191FCC    24
           550  23111604555555100000     SIND     BASIC  REAL,(REAL)                                             F191FCC    25
           553  03231116555555100000    CSIN      BASIC  COMPLEX,(COMPLEX)                                       ENDPRO    896
           556  03172355555555100000    COS       BASIC  REAL,(REAL)                                             ENDPRO    897
           561  04031723555555100000    DCOS      BASIC  DOUBLE,(DOUBLE)                                         ENDPRO    898
           564  04010317235555100000     DACOS    BASIC  DOUBLE,(DOUBLE)                                         F191FCC    26
           567  03172304555555100000     COSD     BASIC  REAL,(REAL)                                             F191FCC    27
           572  03031723555555100000    CCOS      BASIC  COMPLEX,(COMPLEX)                                       ENDPRO    899
           575  24011610555555100000    TANH      BASIC  REAL,(REAL)                                             ENDPRO    900
           600  01240116105555100000     ATANH    BASIC  REAL,(REAL)                                             F191FCC    28
           603  04240116105555100000     DTANH    BASIC  DOUBLE,(DOUBLE)                                         FEAT79CZ   11
           606  23212224555555100000    SQRT      BASIC  REAL,(REAL)                                             ENDPRO    901
           611  04232122245555100000    DSQRT     BASIC  DOUBLE,(DOUBLE)                                         ENDPRO    902
           614  03232122245555100000    CSQRT     BASIC  COMPLEX,(COMPLEX)                                       ENDPRO    903
           617  01240116555555100000    ATAN      BASIC  REAL,(REAL)                                             ENDPRO    904
           622  04012401165555100000    DATAN     BASIC  DOUBLE,(DOUBLE)                                         ENDPRO    905
           625  01240116355555100000    ATAN2     BASIC  REAL,(REAL,REAL)                                        ENDPRO    906
           630  04012401163555100000    DATAN2    BASIC  DOUBLE,(DOUBLE,DOUBLE)                                  ENDPRO    907
           633  04151704555555100000    DMOD      BASIC  DOUBLE,(DOUBLE,DOUBLE)                                  ENDPRO    908
           636  03010223555555100000    CABS      BASIC  REAL,(COMPLEX)                                          ENDPRO    909
           641  01031723555555100000    ACOS      BASIC  REAL,(REAL)                                             ENDPRO    910
           644  01231116555555100000    ASIN      BASIC  REAL,(REAL)                                             ENDPRO    911
           647  24011655555555100000    TAN       BASIC  REAL,(REAL)                                             ENDPRO    912
           652  24011604555555100000     TAND     BASIC  REAL,(REAL)                                             F191FCC    29
           655  04240116555555100000     DTAN     BASIC  DOUBLE,(DOUBLE)                                         F191FCC    30
           660  23111610555555100000     SINH     BASIC  REAL,(REAL)                                             FEAT79BZ    6
           663  04231116105555100000     DSINH    BASIC  DOUBLE,(DOUBLE)                                         FEAT79CZ   12
           666  03172310555555100000     COSH     BASIC  REAL,(REAL)                                             FEAT79BZ    7
           671  04031723105555100000     DCOSH    BASIC  DOUBLE,(DOUBLE)                                         FEAT79CZ   13
           674  05220655555555100000     ERF      BASIC  REAL,(REAL)                                             F191FCC    31
           677  05220603555555100000     ERFC     BASIC  REAL,(REAL)                                             F191FCC    32
           702  00000000000000000000     L.BEFTB  DATA   0                 END OF THE TABLE                      ENDPRO    913
                                                  LIST   R                                                       FEAT121A  115
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    28
         EXTERNAL NAME CHANGE TABLE                                             CODE
  
                                        ***                                                                      ENDPRO    915
                                        *                                                                        ENDPRO    916
                                        *         RETURN - "RETURN" STATEMENT PROCESSOR                          ENDPRO    917
                                        *                                                                        ENDPRO    918
                                  32     SELIST   EQU    32B                                                     ENDPRO    919
                                                                                                                 ENDPRO    920
                                                  EXT    TEMPA0.,ENTRY.,VALUE.                                   ENDPRO    921
                                                                                                                 ENDPRO    922
                                         M.RET    RMEQU  100B        SUBPROGRAM RETURN                           ENDPRO    923
                                         M.NSR    RMEQU              NON-STANDARD RETURN                         ENDPRO    924
                                                                                                                 ENDPRO    925
                                 103     E.RIM    EQU    67                RETURN STMT IN MAIN PROGRAM           ENDPRO    926
                                 104     E.RSS    EQU    68                RETURNS STMT MUST BE IN A SUBROUTINE  ENDPRO    927
                                 105     E.RSNE   EQU    69                ILLEGAL NAME IN RETURNS STMT          ENDPRO    928
                                 110     E.RSA    EQU    72                RETURNS STMT IS NOT USAS              ENDPRO    929
  
  
  
           703  16770000010000000000     RETM     RMHDR  M.RET,1                                                 ENDPRO    931
           704                     1              BSS    1                                                       ENDPRO    932
           705  16760000030000000000     RSMAC    RMHDR  M.NSR,3                                                 ENDPRO    933
                                                                                                                 ENDPRO    934
                                                  USE    /MACBUF/                                                ENDPRO    935
             0                     4     MACBUF   BSS    4                                                       ENDPRO    936
                                                  USE    *                                                       ENDPRO    937
                                                  EXT    O.CEP             ORDINAL OF CURRENT ENTRY POINT        ENDPRO    938
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    29
         EXTERNAL NAME CHANGE TABLE                                             CODE
  
           706  6170000707 +             ERTN     SB7    RETURN            B6 = ERROR NUMBER                     ENDPRO    940
                          0400000000 X            EQ     ERPRO                                                   ENDPRO    941
                                                                                                                 ENDPRO    942
           707  0400400707 +             RETURN   ENTRY. **                ** ENTRY/EXIT **                      ENDPRO    943
           710  43200                             MX2    0                                                       FCC1402X    6
                     0100000000 X                 RJ     =XDOLABR    INHIBIT OPTIMIZATION IF IN DO LOOP          FCC1402X    7
           711  5110000056                        SA1    PROGRAM                                                 ENDPRO    947
                          26041                   UX0    B4,X1                                                   ENDPRO    948
           712  0440000734 +                      ZR     B4,RTNS2          IF NOT A SUBPROGRAM                   ENDPRO    949
                                                                                                                 ENDPRO    950
                          5130000032              SA3    SELIST                                                  ENDPRO    951
           713  53230                             SA2    X3                FETCH FIRST ELEMENT                   ENDPRO    952
                     26132                        UX1    B3,X2                                                   ENDPRO    953
                          0301000741 +            ZR     X1,RETRN          IF NOT A RETURNS STMT                 ENDPRO    954
                                                                                                                 ENDPRO    955
                                        *         PROCESS "RETURNS" STATEMENT                                    ENDPRO    956
                                                                                                                 ENDPRO    957
           714  6160777673                        SB6    -E.RSS            RETURNS STMT MUST BE IN A SUBROUTINE  ENDPRO    958
                          0545000706 +            NE     B4,B5,ERTN        IF NOT A SUBROUTINE                   ENDPRO    959
                                                                                                                 ENDPRO    960
           715  0535000717 +                      NE     B3,B5,ERTN1       IF NOT A NAME                         ENDPRO    961
                          6170000717 +            SYMBOL                   FIND NAME OF THE PARAMETER IN SYMTAB  ENDPRO    962
                                                                                                                 ENDPRO    963
           717  6160777672               ERTN1    SB6    -E.RSNE           RETURNS NAME ERROR                    ENDPRO    964
                          0400000706 +            EQ     ERTN                                                    ENDPRO    965
                                                                                                                 ENDPRO    966
           720  21270                             AX2    P.TYP                                                   ENDPRO    967
                     43070                        MX0    60-L.TYP                                                ENDPRO    968
                          15320                   BX3    -X0*X2                                                  ENDPRO    969
           721  7243777770                        SX4    X3-T.RTN                                                ENDPRO    970
                          0314000717 +            NZ     X4,ERTN1          IF TYPE .NE. RETURNS                  ENDPRO    971
                                                                                                                 ENDPRO    972
           722  7171777776                        SX7    B1-1                                                    ENDPRO    973
                                                                                                                 ENDPRO    974
                                        *         FORM RLIST MACRO REFERENCE                                     ENDPRO    975
                                                                                                                 ENDPRO    976
                          5130000705 +            SA3    RSMAC                                                   ENDPRO    977
           723  5140000000 X                      SA4    TEMPA0.                                                 ENDPRO    978
                          5150000064              SA5    NRLN                                                    ENDPRO    979
           724  10633                             BX6    X3                                                      ENDPRO    980
                     5160000000 C                 SA6    MACBUF            RLIST MACRO HEADER WORD               ENDPRO    981
                               10644              BX6    X4                WORD 1 = ORD OF TEMPA0.               ENDPRO    982
           725  54665                             SA6    A6+B5                                                   ENDPRO    983
                     10655                        BX6    X5                                                      ENDPRO    984
                          54665                   SA6    A6+B5             WORD 2 = AN R NUMBER FOR THE REGISTER ENDPRO    985
                                                                           STORE                                 ENDPRO    986
                               54765              SA7    A6+B5             WORD 3 = FP ORD                       ENDPRO    987
           726  73665                             SX6    X6+B5                                                   ENDPRO    988
                     54650                        SA6    A5                NRLN = NRLN+1                         ENDPRO    989
                                                                                                                 ENDPRO    990
                          5140000000 X            SA4    RSELECT                                                 ENDPRO    991
           727  0304000731 +                      ZR     X4,RTNS1          IF R = 0                              ENDPRO    992
                          43200                   ADDREF B1,REF            ADD A REFERENCE FOR THE PARAMETER     ENDPRO    993
           731  6170000000 C             RTNS1    WRM    MACBUF      RETURNS MACRO TO RLIST                      ENDPRO    994
           732  6170000707 +                      SB7    RETURN            (B7) = -ERPRO- RETURN ADDRESS         ENDPRO    995
                          6160777667              POSTERR   NR=E.RSA,SEV=ANSI,RETURN=B7    *RETURN IS NON-ANSI*  ENDPRO    996
                                                                                                                 ENDPRO    997
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    30
         EXTERNAL NAME CHANGE TABLE                                             CODE
  
           734  5130000032               RTNS2    SA3    SELIST                                                  ENDPRO    998
                          53230                   SA2    X3                                                      ENDPRO    999
                               26132              UX1    B3,X2                                                   ENDPRO   1000
           735  6160777673                        SB6    -E.RSS            RETURNS STMT MUST BE IN A SUBPROGRAM  ENDPRO   1001
                          0311000706 +            NZ     X1,ERTN           IF A RETURNS STATEMENT                ENDPRO   1002
           736  0100000073 +                      RJ     ISE         ISSUE MACRO FOR RETURN IN MAIN PROG         FCC0624    10
           737  6160777674                        SB6    -E.RIM            RETURN STATEMENT IN A MAIN PROGRAM    ENDPRO   1008
                          6170000707 +            SB7    RETURN                                                  ENDPRO   1009
           740  0400000000 X                      EQ     ERPROI                                                  ENDPRO   1010
  
  
  
                                        *         PROCESS STANDARD RETURN STATEMENT                              ENDPRO   1012
                                                                                                                 ENDPRO   1013
           741  5110000000 X             RETRN    SA1    =XEXIT.                                                 ENDPRO   1014
                          10611                   BX6    X1                                                      ENDPRO   1015
           742  5160000704 +                      SA6    RETM+1                                                  ENDPRO   1016
                          6170000703 +            WRM    RETM        RETURN MACRO TO RLIST                       ENDPRO   1017
           744  5150000000 X                      SA5    RSELECT                                                 ENDPRO   1018
                          0305000707 +            ZR     X5,RETURN         IF R = 0                              ENDPRO   1019
           745  5110000000 X                      ADDREF O.CEP,REF         A REFERENCE TO THE CURRENT ENTRY PT   ENDPRO   1020
           747  0400000707 +                      EQ     RETURN                                                  ENDPRO   1021
                                                                                                                 ENDPRO   1022
           750                           F.UDV    END                                                            ENDPRO   1023
  
                             65700B CM  STORAGE USED             2831 STATEMENTS      746 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.218 SECONDS         575 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDREF          0   EXTERNAL*      29/53     30/21
        ALLOC           0   EXTERNAL*      18/26
        ANYDBL         10                  26/11 D
        ANYSNGL         7                  26/10 D
        ASAER           0   EXTERNAL*       2/01 X    6/24      7/26     29/56
        BEFTB         507   PROGRAM*       27/06 E   27/07 L
        BSS.OP        332   PROGRAM*       13/44     13/49     16/38 L
        BTOCT         442   PROGRAM*       20/02     20/38 E   20/38 L   20/56
        BTOCTL        446   PROGRAM*       20/46 L   20/54     21/03
        CBUF          336   PROGRAM*       17/03 L   17/19 S   17/48     19/47 S   19/53     20/14 S   20/20
        CLABEL         23                   1/55 D    6/20      6/54
        COMPLEX         4                  26/08 D
        CON.            0   EXTERNAL*       1/57 X   18/06     18/51
        CO.ER           0   EXTERNAL*       6/15
        CO.STA          0   EXTERNAL*      23/25
        CTBLOVL         0   EXTERNAL*       9/39
        DATA.           0   EXTERNAL*       1/57 X   13/17     13/36     18/05     18/33
        DATA..          0   EXTERNAL*       1/57 X
        DCT           360   PROGRAM*        3/29     18/04 L   18/25     19/32
        DCT1          370   PROGRAM*       18/17     18/24 L
        DCT2          405   PROGRAM*       19/07 L   19/12     19/14     19/18     19/26
        DCT3          414   PROGRAM*       19/09     19/28 L
        DFLAG           0   EXTERNAL*       2/01 X    3/52
        DOEND=          0   EXTERNAL*       1/57 X    3/25
        DOLABR          0   EXTERNAL*      29/06
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    31
        SYMBOLIC REFERENCE TABLE. 
  
        DOUBLE          3                  26/07 D
        DSS            54   PROGRAM*        5/25 L    5/31      6/18      6/48
        DUKE           37                   1/52 D
        ECGS           52   PROGRAM*        3/34      3/35      3/36      5/13 E    5/13 L
        ECGS1          51   PROGRAM*        5/10 L    5/14
        END            15   PROGRAM*        3/08 E    3/08 L    3/51      3/56      4/01      4/04      4/07
        ENDMC           0   PROGRAM*        2/09 L    6/28
        END1           41   PROGRAM*        3/41      3/45 L
        END2           47   PROGRAM*        3/57      4/03 L
        ENTRY.          0   EXTERNAL*      28/07 X
        ENTRY.D        57   PROGRAM*        5/33 E    5/33 L    6/47
        ERPRO           0   EXTERNAL*       2/01 X    7/18     29/02
        ERPROI          0   EXTERNAL*       2/01 X    4/01     30/09
        ERTN          706   PROGRAM*       29/01 L   29/19     29/25     30/05
        ERTN1         717   PROGRAM*       29/21     29/24 L   29/31
        EXIT.           0   EXTERNAL*      30/15
        E15            17                   2/16 D    4/01
        E307          463                   2/19 D    6/24
        E.FND         350                   2/18 D    7/16
        E.NRS         343                   2/17 D    7/24
        E.RIM         103                  28/12 D   30/07
        E.RSA         110                  28/15 D   29/56
        E.RSNE        105                  28/14 D   29/24
        E.RSS         104                  28/13 D   29/18     30/04
        FAKE          142   PROGRAM*        7/45      8/12 L
        FTSUB1        121   PROGRAM*        7/14      7/17      7/20 L
        FTSUB2        122   PROGRAM*        6/56      7/02      7/23 L
        F1AMAC          0   EXTERNAL*      12/15
        F.CMPS          0   EXTERNAL*      17/48     19/54     20/20     23/48
        F.UDV         750   PROGRAM*        9/33 S   10/46     13/11     13/43     14/16     30/24 L
        IAC           453   PROGRAM*        3/23     22/10 L   22/13     22/41
        IAC1          460   PROGRAM*       22/25 L   22/40
        INTEGER         1                  26/05 D
        ISE            73   PROGRAM*        6/23      6/26 L    6/40     30/06
        IT.             0   EXTERNAL*       3/35 S
        LABEL.          0   EXTERNAL*       2/04 X   18/29
        LI            333   PROGRAM*       10/56 S   12/16     16/29     19/50 S   20/21
                                           12/11     16/10 S   17/01 L   19/55
        LOGICAL         0                  26/04 D
        LSFLG           0   EXTERNAL*       2/03 X    6/19      6/55      7/20
        LWAWORK         0   EXTERNAL*       2/02 X
        L.ADF          33   FTNTEXT         5/26      7/37     11/13     13/13     14/10
                                            5/27      7/38     11/15     13/16     14/12
        L.BEFTB       702   PROGRAM*       27/06 E
        L.CON           0   EXTERNAL*      18/16
        L.DATA          0   EXTERNAL*      14/06
        L.DIM           0   EXTERNAL*       3/17      9/26     12/30
        L.DIMP         14   FTNTEXT         7/46      7/47      9/53      9/54     22/32     22/33
        L.EQV           0   EXTERNAL*      14/47
        L.EXT           0   EXTERNAL*      10/53 S
        L.FPBL          0   EXTERNAL*       7/33
        L.NAME         52   FTNTEXT        11/08     13/51     16/24
        L.RA           22   FTNTEXT        12/37     12/39     22/19     22/21
        L.RL            2   FTNTEXT        12/37     12/39     22/19     22/21
        L.SCA           0   EXTERNAL*      22/12
        L.TRO          14   FTNTEXT        19/05
        L.TYP           4   FTNTEXT         9/55     10/34     11/39     18/57     29/28
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    32
        SYMBOLIC REFERENCE TABLE. 
  
        L.UDV           0   EXTERNAL*       3/43 S   10/50 S   13/07     13/10     13/42     14/14
        MACBUF          0   MACBUF          6/35 S    6/39     28/24 L   29/41 S   29/54
        MACFLAG         0   EXTERNAL*       2/01 X   12/08     13/40
        MACNUM        102                   2/08 D   28/09 D   28/10     28/10 D
        M.NSR         101                  28/10 D   28/10     28/21
        M.RET         100                  28/09 D   28/09     28/19
        NOGOFLG         0   EXTERNAL*       4/03
        NRLN           64                   1/54 D    6/29     29/39
        N.FERR          0   EXTERNAL*       3/50
        N.FP            0   EXTERNAL*       1/57 X
        N.TLAB          0   EXTERNAL*       2/04 X   18/24     18/34
        OCTAL           5                  26/09 D
        ODW           417   PROGRAM*       18/22     19/31     19/44 L   20/28
        ODW1          427   PROGRAM*       20/01 L   20/26
        OSC           317   PROGRAM*       13/46     16/09 E   16/09 L   16/35
        OSC1          322   PROGRAM*       16/16 L   16/34
        OSC.WD        331   PROGRAM*       16/37 L   17/21
        OSL           465   PROGRAM*        3/21     24/02 D
        OT.             0   EXTERNAL*       3/34 S
        OUTUSE          0   EXTERNAL*       3/38     13/09     19/52
        O.CBT           0   EXTERNAL*       1/57 X    9/34     10/51     12/17
        O.CEP           0   EXTERNAL*      28/26 X   30/21
        O.CON           0   EXTERNAL*      18/20
        O.DATA          0   EXTERNAL*      14/05
        O.DIM           0   EXTERNAL*       3/16      7/43      9/25     12/29
        O.EQV           0   EXTERNAL*      14/49
        O.EXT           0   EXTERNAL*      10/55 S
        O.FPBL          0   EXTERNAL*       7/32
        O.SCA           0   EXTERNAL*      22/11
        O.SCR           0   EXTERNAL*       2/04 X   18/47
        O.UDV           0   EXTERNAL*      10/49 S
        PEND          102                   2/08 D    2/08      2/09
        PROGRAM        56                   1/53 D    6/05     23/26     29/07
        PSEUDO        335   PROGRAM*       16/14 S   16/26     17/02 L
        PSS            60   PROGRAM*        3/24      6/04 L    6/06      6/22      6/24      7/34      8/10
        PSS1          105   PROGRAM*        6/08      6/44 L
        PSS3          125   PROGRAM*        7/01      7/21      7/25      7/32 L
        PSS4          134   PROGRAM*        7/50 L    8/09
        PSS5          141   PROGRAM*        8/03      8/06      8/09 L
        PSS.F         114   PROGRAM*        6/50      7/06 L
        PST           144   PROGRAM*        3/30      9/21 L   14/48     15/25
        PST1          203   PROGRAM*       11/11 L   12/06
        PST1A         207   PROGRAM*       11/23     11/26 L
        PST1AA        213   PROGRAM*       11/30     11/37 L
        PST1B         217   PROGRAM*       11/50 L   11/55
        PST1C         221   PROGRAM*       11/52     11/57 L
        PST10         274   PROGRAM*       14/21 L   14/38
        PST11         301   PROGRAM*       14/07     14/45 L
        PST12         306   PROGRAM*       14/56 L   15/07     15/24
        PST13         312   PROGRAM*       15/10 L   15/19
        PST14         315   PROGRAM*       14/56     15/10     15/21 L
        PST2          222   PROGRAM*       11/27     11/43     12/02 L
        PST3          223   PROGRAM*       11/24     12/06 L
        PST4          225   PROGRAM*       12/12 L   12/22
        PST5          232   PROGRAM*       11/04     12/09     12/29 L
        PST6          236   PROGRAM*       12/41 L   13/01
        PST6A         241   PROGRAM*       12/47     12/50 L
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    33
        SYMBOLIC REFERENCE TABLE. 
  
        PST7          244   PROGRAM*       12/31     13/07 L
        PST8          253   PROGRAM*       13/23 L   13/35
        PST8A         264   PROGRAM*       13/41     13/49 L
        PST9          266   PROGRAM*       13/08     13/47     14/05 L
        PST.E         160   PROGRAM*       10/01 L   10/15
        PST.I         162   PROGRAM*        9/56     10/01     10/06 L   10/16     10/26     10/30     10/42
        PST.V         170   PROGRAM*       10/22     10/30 L
        PST.2         174   PROGRAM*       10/08     10/46 L
        PTU             0   EXTERNAL*       2/03 X    3/46
        PUTTAB          0   EXTERNAL*       3/18
        P2NOGO          0   EXTERNAL*       3/53
        P.ADF          14   FTNTEXT         5/27      7/38     11/15     13/16     14/12
        P.BEF          52   FTNTEXT        11/26     11/32     11/40
        P.COM          16   FTNTEXT        10/21     12/53
        P.DEF          20   FTNTEXT         7/13
        P.DIMP         51   FTNTEXT         7/47      8/05      9/54     10/23     22/33
        P.DLN          44   FTNTEXT        19/21
        P.DSN          64   FTNTEXT        19/13     19/15
        P.EXT          66   FTNTEXT         6/27      8/04      9/50
        P.FUN          17   FTNTEXT        10/10     10/21     11/22
        P.RA           23   FTNTEXT         6/16     11/32     12/39     13/21     18/11     18/37     22/28
                                            7/52     11/34     12/46     14/26     18/13     22/21
        P.RL           45   FTNTEXT        11/09     12/53     22/23
        P.TRO          30   FTNTEXT        19/15     19/21
        P.TYP          70   FTNTEXT         9/52     10/31     11/40     19/04     29/27
        RA.SSW          0   CPUTEXT         1/55
        REAL            2                  26/06 D
        RETM          703   PROGRAM*       28/19 L   30/17 S   30/18
        RETRN         741   PROGRAM*       29/14     30/15 L
        RETURN        707   PROGRAM*        7/23     29/01     29/04 E   29/04 L   29/55     30/08     30/20     30/22
        RSELECT         0   EXTERNAL*       2/01 X    3/40     29/51     30/19
        RSMAC         705   PROGRAM*       28/21 L   29/37
        RTNS1         731   PROGRAM*       29/52     29/54 L
        RTNS2         734   PROGRAM*       29/09     30/01 L
        SAVTBL          0   EXTERNAL*       2/03 X    3/45
        SELIST         32                  28/05 D   29/11     30/01
        STLTAB          0   EXTERNAL*      23/27
        ST.             0   EXTERNAL*       1/57 X    9/23
        SYMBOL          0   EXTERNAL*       5/14      6/27     29/22
        SYMEND         13                   1/51 D   18/50
        SYMORD          0   EXTERNAL*       1/57 X    9/24
        SYM1           12                   1/50 D    6/44      9/22     14/08     16/17     18/28     22/15
                                            6/12      7/39     13/14     14/45     18/07     18/49
        TEMPA0.         0   EXTERNAL*      28/07 X   29/38
        TEST            0   FTNTEXT         3/10 F
        TRACE.          0   EXTERNAL*       6/32
        T.CGS          14   FTNTEXT        11/42
        T.CPLX          4   FTNTEXT        26/08
        T.DBL           3   FTNTEXT        10/33     26/07
        T.INT           1   FTNTEXT        26/05
        T.LAB           6   FTNTEXT         9/51     19/01
        T.LOG           0   FTNTEXT        26/04
        T.OCT           5   FTNTEXT        26/09
        T.REAL          2   FTNTEXT        26/06
        T.RTN           7   FTNTEXT        29/30
        UCODE.          0   EXTERNAL*       3/38
        UDATA.          0   EXTERNAL*      13/09     19/52
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    34
        SYMBOLIC REFERENCE TABLE. 
  
        UOFLAG          0   EXTERNAL*      11/29
        VALUE.          0   EXTERNAL*       6/49     28/07 X
        VD.             0   EXTERNAL*       3/36 S
        V.COM       40000   FTNTEXT        12/38     14/18
        V.DEF      200000   FTNTEXT         7/09     14/55
        WB.ECGS         0   EXTERNAL*       2/02 X    5/10
        WB.FMT          0   EXTERNAL*       2/02 X   13/20     14/19
        WB.FP           0   EXTERNAL*       2/02 X    7/42
        WB.PROG         0   EXTERNAL*       2/02 X    6/14
        WRM             0   EXTERNAL*       3/27      6/39     29/54     30/18
        WST           341   PROGRAM*       13/53     16/27     17/12 E   17/12 L   17/50
        WST1          346   PROGRAM*       17/25 L   17/31
        WST2          355   PROGRAM*       17/45     17/48 L
        WTC=            0   EXTERNAL*      17/48     19/54     20/20     23/48
        ZZ.DIM          3   FTNTEXT         3/18
        Z.SCR           0   EXTERNAL*      18/26
        .ACNT           1 
        .ACOS         300                  26/30 D
        .ALOG         340                  26/31 D
        .ALOG10       340                  26/32 D
        .ASIN         300                  26/29 D
        .ATAN         340                  26/33 D
        .ATANH        340                  26/49 D
        .ATAN2        340                  26/34 D
        .CABS           0 
        .CCOS           0 
        .CDCLIB         1   FTNTEXT        11/28 F
        .CEXP           0 
        .CLOG           0 
        .COS          340                  26/35 D
        .COSD         340                  26/51 D
        .COSH         340                  26/39 D
        .CSIN           0 
        .CSQRT          0 
        .DACOS        300                  26/46 D
        .DASIN        300                  26/45 D
        .DATAN          0 
        .DATAN2         0 
        .DCOS           0 
        .DCOSH        300                  26/43 D
        .DEXP         340                  26/41 D
        .DLOG           0 
        .DLOG10         0 
        .DMOD           0 
        .DSIN           0 
        .DSINH        300                  26/44 D
        .DSQRT          0 
        .DTAN           0 
        .DTANH        300                  26/42 D
        .DUM            1 
        .ERF          340                  26/47 D
        .ERFC         340                  26/48 D
        .EXP          340                  26/37 D
        .SIN          340                  26/36 D
        .SIND         340                  26/50 D
        .SINH         340                  26/40 D
        .SQRT         340                  26/38 D
1       ENDPRO -    PASS 1 END PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.53.39.      PAGE    35
        SYMBOLIC REFERENCE TABLE. 
  
        .TAN            0 
        .TAND         340                  26/52 D
        .TANH           0 
  
  
  
  
                                                  SYMBOL QUALIFIER =  OSL 
  
  
        OSL           465   PROGRAM*       23/24 L   24/02
        OSLA          503   PROGRAM*       23/40 S   23/49     23/54 L
        OSLB          504   PROGRAM*       23/41     23/48     23/55 L
        OSL2          473   PROGRAM*       23/32     23/36 L   23/39     23/51
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4016              IDENT     SCANNER 
                       4016                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      3612 
                                        LITERALS* LOCAL        3612       122 
                                        NANSI     LOCAL        3734         1 
                                        SRCHA     LOCAL        3735        32 
                                        ZERO      LOCAL        3767        13 
                                        //        COMMON          0         1 
                                        DBGBLK2   COMMON          0       115 
                                        DBGBLK1   COMMON          0        10 
                                        NONFTNX   COMMON          0        11 
                                        CLR22     LOCAL        4002         1 
                                        CLR23     LOCAL        4003         1 
                                        CLR25     LOCAL        4004         1 
                                        CLR27     LOCAL        4005         1 
                                        CLR42     LOCAL        4006         1 
                                        CLR44     LOCAL        4007         1 
                                        CLR45     LOCAL        4010         1 
                                        CLR46     LOCAL        4011         1 
                                        CLR47     LOCAL        4012         1 
                                        CLR49     LOCAL        4013         1 
                                        CLR410    LOCAL        4014         1 
                                        CLR63     LOCAL        4015         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=SCANR          0+           IDENTOK         75+           SCANNER       1313+ 
                                        FEFLAG          37+/DBGBLK2/  NOLIST         115+           DSL           2117+ 
                                        CD              64+           N.EQUAL       3776+           LSL           2753+ 
                                        COL             65+           CONSTOR        127+           PACK7         3174+ 
                                        DUKE1           73+           SBUFF         1210+           PLO           3234+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        FWAWORK   LOP=R     L.MAXCD   CP.IFMT   ISITDBG   RESREG    CDD       ERPRO 
                                        LWAWORK   LOP=O     RDC=      MVE=      FATALER   DBGERR    ASAER     SFN 
                                        DFLAG     IEFLG     F.IN      D.IDSP    ERPROI    SAVREG    TDI 
                                        R=FLAG    ANSI      CP.CARD   FA=LOL    SLIST     CP.FLIN   CCS 
  
  
  
  
                                                  IDENT     SCANNER                                              SCANNER     2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  LIST   F,X                                                     FCC1328X  555
             0                           B=SCANR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     SCANNER     5
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     2
                                                                      AUXT
  
                                        **        AUXT - GENERATE AUXILIARY KEYWORD TABLE.                       SCANNER     7
                                        *                                                                        SCANNER     8
                                        *                GENERATES THE FIRST LETTER INDEX TABLE. THIS MACRO      SCANNER     9
                                        *         IS CALLED ONLY FROM *KEYW* MACRO.                              SCANNER    10
                                        *                                                                        SCANNER    11
                                        *         AUXT   STRING                                                  SCANNER    12
                                        *                                                                        SCANNER    13
                                        *         ENTRY  *STRING*  = THE FORTRAN KEYWORD.                        SCANNER    14
                                        *                                                                        SCANNER    15
                                        *         USES   NONE                                                    SCANNER    16
                                        *                                                                        SCANNER    17
                                        *         CALLS  NONE                                                    SCANNER    18
                                                                                                                 SCANNER    19
                                         AUXT     MACRO  STRING                                                  SCANNER    20
                                         .F       MICRO  1,1,/STRING/                                            SCANNER    21
                                                  IFC    GT,/".F"/".L"/,7                                        SCANNER    22
                                         KW.".F"  BSS    0                                                       SCANNER    23
                                                  IF     DEF,KW.".L",4                                           SCANNER    24
                                                  USE    SRCHA                                                   SCANNER    25
                                                  VFD    30/KW.".L",30/KW.".F"                                   SCANNER    26
                                                  BSSZ   1R".F"-1R".L"-1                                         SCANNER    27
                                                  USE    *                                                       SCANNER    28
                                         .L       MICRO  1,,/".F"/                                               SCANNER    29
                                         AUXT     ENDM                                                           SCANNER    30
  
  
  
  
                                        **        ELPUT - ENTER WORD IN E-LIST.                                  SCANNER    32
                                        *                                                                        SCANNER    33
                                        *         ELPUT  WORD                                                    SCANNER    34
                                        *                                                                        SCANNER    35
                                        *                                                                        SCANNER    36
                                        *         ENTRY  *WORD* = X-REGISTER CONTAINING WORD FOR E-LIST, OR      SCANNER    37
                                        *                         ADDRESS EXPRESSION FOR LOCATION OF WORD.       SCANNER    38
                                        *                         SEE *XR=* MACRO IN *FTNTEXT* FOR VALID FORMS.  SCANNER    39
                                        *                                                                        SCANNER    40
                                        *         USES   X1, A1                                                  SCANNER    41
                                        *                                                                        SCANNER    42
                                        *         CALLS  AWE                                                     SCANNER    43
                                                                                                                 SCANNER    44
                                                                                                                 SCANNER    45
                                                  PURGMAC  ELPUT                                                 SCANNER    46
                                                                                                                 SCANNER    47
                                         ELPUT    MACRO  W                                                       SCANNER    48
                                                  XR=    X1,W                                                    SCANNER    49
                                                  RJ     AWE                                                     SCANNER    50
                                         ELPUT    ENDM                                                           SCANNER    51
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     3
                                                                      JPC 
  
                                        **        JPC - JUMP ON CHARACTER.                                       SCANNER    53
                                        *                                                                        SCANNER    54
                                        *                MAKE AN ENTRY IN THE *LEX-N-* CHARACTER JUMP TABLE.     SCANNER    55
                                        *                                                                        SCANNER    56
                                        *         JPC    ADDR,ELIST                                              SCANNER    57
                                        *                                                                        SCANNER    58
                                        *         ENTRY  *ADDR*   =  THE ADDRESS TO WHICH CONTROL IS TO BE       SCANNER    59
                                        *                            TRANSFERRED FOR THIS CHARACTER UPON ENTRY   SCANNER    60
                                        *                            INTO THIS *LEX-N-* ROUTINE.                 SCANNER    61
                                        *                                                                        SCANNER    62
                                        *                *ELIST*  =  IF PRESENT, THE ADDRESS OF AN *ELIST*       SCANNER    63
                                        *                            ELEMENT SKELETON FOR THIS CHARACTER.        SCANNER    64
                                        *                                                                        SCANNER    65
                                        *         EXIT   NO CONDITIONS                                           SCANNER    66
                                        *                                                                        SCANNER    67
                                        *         USES   NONE                                                    SCANNER    68
                                        *                                                                        SCANNER    69
                                        *         CALLS  NONE                                                    SCANNER    70
                                                                                                                 SCANNER    71
                                         JPC      MACRO  ADDR,ELIST                                              SCANNER    72
                                                  VFD    12/0,18/ELIST,12/0,18/ADDR                              SCANNER    73
                                         JPC      ENDM                                                           SCANNER    74
  
  
  
  
                                        **        KEYW - GENERATE KEYWORD TABLES.                                SCANNER    76
                                        *                                                                        SCANNER    77
                                        *                GENERATES THE VARIOUS TABLES ASSOCIATED WITH KEYWORD    SCANNER    78
                                        *         PROCESSING.                                                    SCANNER    79
                                        *                                                                        SCANNER    80
                                        *  SUCC   KEYW   STRING,TYPE,ATYPE,CALLERS,ANSI                          SCANNER    81
                                        *                                                                        SCANNER    82
                                        *         ENTRY  *SUCC*    = SUCCESS EXIT JUMP ADDRESS. IF A FIND IS     SCANNER    83
                                        *                            MADE ON THIS KEYWORD STRING, CONTROL        SCANNER    84
                                        *                            IS TRANSFERRED TO THE LABEL *SRCH_SUCC*.    SCANNER    85
                                        *                            DEFAULT IS *SRCH*.                          SCANNER    86
                                        *                *STRING*  = THE FORTRAN KEYWORD.                        SCANNER    87
                                        *                *TYPE*    = STATEMENT TYPE CODE FOR THIS KEYWORD.       SCANNER    88
                                        *                *ATYPE*   = AUXILIARY STATEMENT TYPE CODE FOR THIS      SCANNER    89
                                        *                            KEYWORD. DEFAULT IS -0.                     SCANNER    90
                                        *                *CALLERS* = WHERE *CALLERS* IS A LIST OF LEGAL *SRCH*   SCANNER    91
                                        *                            CALLERS, (CLR1,CLR2,...,CLRN). THIS LIST    SCANNER    92
                                        *                            SPECIFIES THAT IT IS ONLY SYNTACTICALLY     SCANNER    93
                                        *                            CORRECT TO FIND THIS KEYWORD FROM THE       SCANNER    94
                                        *                            *SRCH* CALLER AT THE LABELS *LEX_CLR1,      SCANNER    95
                                        *                            LEX_CLR2,...,LEX_CLRN*.                     SCANNER    96
                                        *                *ANSI*    = IF NON-BLANK, SPECIFIES THAT THIS IS A      SCANNER    97
                                        *                            NON-ANSI KEYWORD.                           SCANNER    98
                                        *                                                                        SCANNER    99
                                        *         USES   NONE                                                    SCANNER   100
                                        *                                                                        SCANNER   101
                                        *         CALLS  NONE                                                    SCANNER   102
                                        *                                                                        SCANNER   103
                                                  NOREF  .1,.2                                                   SCANNER   104
                                         .L       MICRO                                                          SCANNER   105
                                                                                                                 SCANNER   106
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     4
                                                                      KEYW
  
                                                                                                                 SCANNER   107
                                                  MACRO  KEYW,SUCC,STRING,TYPE,ATYPE,CALLERS,ANSI                SCANNER   108
                                        *                                                                        SCANNER   109
                                        *         GENERATE 1ST LETTER INDEX TABLE.                               SCANNER   110
                                        *                                                                        SCANNER   111
                                                  AUXT   STRING                                                  SCANNER   112
                                        *                                                                        SCANNER   113
                                        *         GENERATE KEYWORD TABLE.                                        SCANNER   114
                                        *                                                                        SCANNER   115
                                         .1       MICRO  1,,/STRING/                                             SCANNER   116
                                         .1       MICCNT .1                                                      SCANNER   117
                                         .2       SET    ATYPE 17B                                               SCANNER   118
                                                  VFD    12/1777B+6*.1,18/SRCH_SUCC,4/.2,8/TYPE,18/=0L_STRING    SCANNER   119
                                        *                                                                        SCANNER   120
                                        *         SET BITS IN LEGAL CALLER TYPE SHIFT TABLE.                     SCANNER   121
                                        *                                                                        SCANNER   122
                                         #CL      IRP    CALLERS                                                 SCANNER   123
                                                  USE    CLR_CALLERS                                             SCANNER   124
                                                  POS    1                                                       SCANNER   125
                                                  POS    60-TYPE                                                 SCANNER   126
                                                  VFD    1/1                                                     SCANNER   127
                                                  USE    *                                                       SCANNER   128
                                         #CL      IRP                                                            SCANNER   129
                                        *                                                                        SCANNER   130
                                        *         GENERATE NON-ANSI KEYWORD SHIFT WORD.                          SCANNER   131
                                        *                                                                        SCANNER   132
                                                  IFC    NE,/ANSI//,5                                            SCANNER   133
                                                  USE    NANSI                                                   SCANNER   134
                                                  POS    1                                                       SCANNER   135
                                                  POS    60-TYPE                                                 SCANNER   136
                                                  VFD    1/1                                                     SCANNER   137
                                                  USE    *                                                       SCANNER   138
                                        *                                                                        SCANNER   139
                                         KEYW     ENDM                                                           SCANNER   140
  
  
  
  
                                        **        SRCH - TRY TO TYPE THE STATEMENT.                              SCANNER   142
                                        *                                                                        SCANNER   143
                                        *                TASKS PERFORMED --                                      SCANNER   144
                                        *         1.     CALLS *SRCH* TO SEARCH THE INITIAL STRING FOR A         SCANNER   145
                                        *                MATCH OF THE LEADING KEYWORD.                           SCANNER   146
                                        *         2.     SETS UP THE CORRECT *USE* BLOCKS AND DEFINES THE        SCANNER   147
                                        *                LEGAL TYPE SHIFT WORD ASSOCIATED WITH DETERMINING       SCANNER   148
                                        *                WHETHER A KEYWORD IS SYNTACTICALLY LEGAL FROM THIS      SCANNER   149
                                        *                *SRCH* CALLER.                                          SCANNER   150
                                        *                                                                        SCANNER   151
                                        * LAB     SRCH   ERTN                                                    SCANNER   152
                                        *                                                                        SCANNER   153
                                        *         ENTRY  *LAB*   =   A *LEX* LABEL ASSOCIATED WITH THIS *SRCH*   SCANNER   154
                                        *                            CALL. FOR EVERY KEYWORD THAT IS             SCANNER   155
                                        *                            SYNTACTICALLY LEGAL FROM THIS CALLER,       SCANNER   156
                                        *                            A *LAB* ENTRY SHOULD BE MADE IN THE         SCANNER   157
                                        *                            *CALLERS* FIELD FOR THAT KEYWORD-S *KEYW*   SCANNER   158
                                        *                            ENTRY.                                      SCANNER   159
                                        *                *ERTN*  =   ERROR RETURN OR THE NEXT *LEX-N-* ROUTINE   SCANNER   160
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     5
                                                                      SRCH
  
                                        *                            IN THE LEXICAL SCANNING PROCESS.            SCANNER   161
                                        *                                                                        SCANNER   162
                                        *         EXIT   (B1)    =   NEXT *LEX-N-* ROUTINE.                      SCANNER   163
                                        *                (X1)    =   LEGAL TYPE SHIFT WORD FOR THIS *SRCH*       SCANNER   164
                                        *                            CALLER.                                     SCANNER   165
                                        *                                                                        SCANNER   166
                                        *         USES   X - 1                                                   SCANNER   167
                                        *                A - 1                                                   SCANNER   168
                                        *                B - 1                                                   SCANNER   169
                                        *                                                                        SCANNER   170
                                        *         CALLS  SRCH                                                    SCANNER   171
                                                                                                                 SCANNER   172
                                                  MACRO  SRCH,LAB,ERTN                                           SCANNER   173
                                                  IFC    EQ,/LAB//,1                                             SCANNER   174
                                         P        ERR    *SRCH* REQUIRES A LABEL.                                SCANNER   175
                                         A        MICRO  4,,/LAB/                                                SCANNER   176
                                                  USE    CLR_"A"                                                 SCANNER   177
                                         LETS_"A" BSS    0                                                       SCANNER   178
                                                  USE    *                                                       SCANNER   179
                                         LAB      SB1    ERTN        ERROR EXIT RETURN                           SCANNER   180
                                                  RJ     SRCH        TRY TO TYPE STMT                            SCANNER   181
                                                  SA1    LETS_"A"    LEGAL TYPE SHIFT FOR THIS CALLER            SCANNER   182
                                                  NO                                                             SCANNER   183
                                         SRCH     ENDM                                                           SCANNER   184
  
  
  
  
                                        **        TYPER - DEFINE STATEMENT TYPER.                                SCANNER   186
                                        *                                                                        SCANNER   187
                                        *  LAB    TYPER  ADDR                                                    SCANNER   188
                                        *                                                                        SCANNER   189
                                        *         ENTRY  *LAB*  =  IF PRESENT, THE *LEX-N-* ROUTINE FOR WHICH    SCANNER   190
                                        *                          WE ARE DEFINING A STATEMENT TYPER.            SCANNER   191
                                        *                          *LAB*=*+1                                     SCANNER   192
                                        *                                                                        SCANNER   193
                                        *                                                                        SCANNER   194
                                        *                *ADDR* =  THE ADDRESS OF THE STATEMENT TYPE DETERMINER  SCANNER   195
                                        *                          FOR THE *LEX-N-* ROUTINE AT *+1, NORMALLY     SCANNER   196
                                        *                          *LAB*. IF A NEW STATEMENT IS FOUND BEFORE THE SCANNER   197
                                        *                          CURRENT STATEMENT HAS BEEN TYPED, *NEWS* WILL SCANNER   198
                                        *                          PICK UP *ADDR* FROM (B1)-1 AND THEN TRANSFER  SCANNER   199
                                        *                          CONTROL TO *ADDR* TO TRY AND TYPE THE         SCANNER   200
                                        *                          STATEMENT.                                    SCANNER   201
                                        *                                                                        SCANNER   202
                                        *         EXIT   NO CONDITIONS                                           SCANNER   203
                                        *                                                                        SCANNER   204
                                        *         USES   NONE                                                    SCANNER   205
                                        *                                                                        SCANNER   206
                                        *         CALLS  NONE                                                    SCANNER   207
                                                                                                                 SCANNER   208
                                                  MACRO  TYPER,LAB,ADDR                                          SCANNER   209
                                                  VFD    42/0,18/ADDR                                            SCANNER   210
                                         LAB      BSS    0                                                       SCANNER   211
                                         TYPER    ENDM                                                           SCANNER   212
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     6
                                                                      ZERO
  
                                        **        ZERO - DEFINE A CELL TO BE IN *ZERO* BLOCK.                    SCANNER   214
                                        *                                                                        SCANNER   215
                                        *                ALL CELLS THAT ARE DEFINED TO EXIST IN *ZERO* BLOCK     SCANNER   216
                                        *         WILL BE SET TO ZERO EVERY TIME *SCANNER* IS ENTERED.           SCANNER   217
                                        *                                                                        SCANNER   218
                                        * CELL    ZERO   NR,EPT                                                  SCANNER   219
                                        *                                                                        SCANNER   220
                                        *         ENTRY  *CELL*  =   NAME OF CELL TO BE PLACED IN *ZERO* BLOCK.  SCANNER   221
                                        *                                                                        SCANNER   222
                                        *                *NR*    =   NR OF LOCATIONS TO BE RESERVED FOR *CELL*.  SCANNER   223
                                        *                                                                        SCANNER   224
                                        *                *EPT*   =   IF NON-BLANK, SPECIFIES THAT THIS CELL IS   SCANNER   225
                                        *                              TO BE DECLARED AS AN ENTRY POINT.         SCANNER   226
                                        *                                                                        SCANNER   227
                                        *         EXIT   NONE                                                    SCANNER   228
                                        *                                                                        SCANNER   229
                                        *         USES   NONE                                                    SCANNER   230
                                        *                                                                        SCANNER   231
                                        *         CALLS  NONE                                                    SCANNER   232
                                                                                                                 SCANNER   233
                                                                                                                 SCANNER   234
                                                  PURGMAC ZERO                                                   SCANNER   235
                                                                                                                 SCANNER   236
                                                  MACRO  ZERO,CELL,NR,EPT                                        SCANNER   237
                                                  USE    ZERO                                                    SCANNER   238
                                         CELL     BSS    NR                                                      SCANNER   239
                                                  USE    *                                                       SCANNER   240
                                                  IFC    NE,/EPT//,1                                             SCANNER   241
                                                  ENTRY  CELL                                                    SCANNER   242
                                         ZERO     ENDM                                                           SCANNER   243
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     7
        EQU S AND LOWCORE CELLS 
  
                                   6     CHAR     =      6           NR OF BITS IN CYBER CHARACTER               FCC1328X  556
                                  13     SYMEND   EQU    13B               END OF SYMTAB                         SCANNER   246
                                  50     L.STBZ   EQU    40D         LENGTH OF SAFETY BUFFER ZONE BETWEEN        SCANNER   247
                                        *                              FWA E-LIST AND LWA SYMTAB.                SCANNER   248
                                  32     SELIST   EQU    32B                                                     SCANNER   249
                                  24     TYPE     EQU    24B               STMT TYPE                             SCANNER   250
                                  23     CLABEL   EQU    23B         CURRENT STATEMENT LABEL.  CONTENTS ARE      SCANNER   251
                                                                     (1) IF EMPTY OR ILLEGAL LABEL, .EQ. 0       SCANNER   252
                                                                     (2) IF LEGAL NON-EMPTY LABEL, CONTAINS IT   SCANNER   253
                                                                          IN DISPLAY CODE, LEFT ADJ W/ BLNK FILL SCANNER   254
                                  60     NLABEL   EQU    60B         NEXT STATEMENT LABEL. SEE 'CLABEL' DESCRIP  SCANNER   255
                                  51     ATYPE    EQU    51B               ARITHMETIC STMT TYPE FOR TYPES 3 AND  SCANNER   256
                                  34     LELIST   EQU    34B                                                     SCANNER   257
                                  21     LTYPE    EQU    21B                                                     SCANNER   258
                                  37     DUKE     EQU    37B               BINARY LINE COUNT                     SCANNER   259
                                  46     SCNT     EQU    46B               LINE NUMBER FOR ERPRO                 SCANNER   260
  
  
  
  
                                        **        STATEMENT TYPE CODES.                                          SCANNER   262
                                                                                                                 SCANNER   263
                                  14     ST.V=E   =      12          V=E (ASSIGNMENT)                            FCC1328X  557
                                  15     ST.END   =      13          END (NORMAL)                                SCANNER   264
                                  16     ST.ASG   =      14          ASSIGN                                      SCANNER   265
                                  21     ST.LIF   =      17          LOGICAL IF                                  SCANNER   266
                                  22     ST.BAD   =      18          BAD STATEMENT                               SCANNER   267
                                  45     ST.INV   =      37          END (INVENTED)                              SCANNER   268
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     8
  
  
                                        **        ERROR MESSAGE NUMBER DEFINITIONS.                              SCANNER   270
                                                                                                                 SCANNER   271
                                  34     E28      =      28          TABLES OVERLAP, INCREASE FIELD LENGTH       SCANNER   272
                                  35     E29      =      29          UNRECOGNIZED STATEMENT                      SCANNER   273
                                  36     E30      =      30          ILLEGAL LABEL                               SCANNER   274
                                  37     E31      =      31          STATEMENT TOO LONG                          SCANNER   275
                                  40     E32      =      32          NAME TOO LONG                               SCANNER   276
                                  41     E33      =      33          UNBALANCED PARENTHESES                      SCANNER   277
                                  42     E34      =      34          NON-ANSI 7-CHARACTER NAME                   SCANNER   278
                                  43     E35      =      35          *END* MISSING, ASSUMED                      SCANNER   279
                                  45     E37      =      37          ILLEGAL CHARACTER                           SCANNER   280
                                  46     E38      =      38          NON-ANSI *END* LINE FORMAT                  SCANNER   281
                                 120     E80      =      80          LABEL REFERENCE HAS MORE THAN 5 DIGITS      SCANNER   282
                                 150     E104     =      104         INCOMPLETE HOLLERITH CONSTANT               SCANNER   283
                                 157     E111     =      111         ILLEGAL SYNTAX IN ASSIGN STATEMENT          SCANNER   284
                                 257     E175     =      175         ILLEGAL STMT TYPE AFTER LOGICAL *IF*        SCANNER   285
                                 304     E196     =      196         NON-ANSI LOGICAL OPERATOR                   SCANNER   286
                                 305     E197     =      197         NON-ANSI OCTAL, R OR L CONSTANT             SCANNER   287
                                 317     E207     =      207         COMMENT LINE IN MIDDLE OF CONTIN LINES      SCANNER   288
                                 320     E208     =      208         NON-ANSI BLANK LINE                         SCANNER   289
                                 321     E209     =      209         LAST CHARACTER SEEN AFTER TROUBLE           SCANNER   290
                                 322     E210     =      210         NON-ANSI $ STATEMENT SEPARATOR              SCANNER   291
                                 505     E325     =      325         SPURIOUS CHAR AFTER END IGNORED             FCCA435     6
                                 335     E221     =      221         NON-ANSI TYPE DECLARATION                   SCANNER   292
                                 344     E228     =      228         NON-ANSI COMMENT LINE (COL 1 = $ OR *)      SCANNER   293
                                 403     E259     =      259         NON-ANSI QUOTE-DELIMITED HOLLERITH STRING   SCANNER   294
                                 441     E289     =      289         *CONSTOR* OVERFLOW                          SCANNER   295
                                 451     E297     =      297         INVALID USE OF CHARACTER STRING             SCANNER   296
                                 453     E299     =      299         THIS STATEMENT IS A NON-ANSI STATEMENT      SCANNER   297
                                 471     E313     =      313         ILLEGAL SYNTAX IN KEYWORD                   SCANNER   298
                                 477     E319     =      319         C/-LIST DIRECTIVE MAY NOT BREAK CONT STRING FEAT121L   94
                                 503     E323     =      323         DEBUG CARD INSIDE CONTINUATION LINES IN DEB FCC1872     6
                                 504     E324     =      324         UNRECOGNISED OPERATOR                       FCC1936     7
  
  
  
  
                                                                                                                 SCANNER   300
                                                  USE    NANSI                                                   SCANNER   301
          3734                           NANSI    BSS    0                                                       SCANNER   302
                                                  USE    *                                                       SCANNER   303
                                                                                                                 SCANNER   304
                                                  USE    SRCHA                                                   SCANNER   305
          3735                           SRCHA    BSS    0           FIRST LETTER INDEX TABLE                    SCANNER   306
                                                  USE    *                                                       SCANNER   307
          3767                           O.VAR    ZERO   0           ORIGIN OF *ZERO* BLOCK                      SCANNER   308
  
  
  
                                                  EXT    FWAWORK,LWAWORK                                         SCANNER   310
                                   0 X   ELAST    EQU    LWAWORK                                                 SCANNER   311
                                                  EXT    DFLAG                                                   SCANNER   312
                                                  ENTRY  FEFLAG                                                  SCANNER   313
                                                                                                                 SCANNER   314
                                        *         BLANKS FOR BLANK FILL.                                         SCANNER   315
                                                                                                                 SCANNER   316
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE     9
  
  
                                3612 +   FILLTEN  LIT    10R          ,9R         ,8R        ,7R       ,6R       SCANNER   317
                                        ,,5R     ,4R    ,3R   ,2R  ,1R ,0                                        SCANNER   318
                                3614 +   FILL8R   =      FILLTEN+2                                               SCANNER   319
  
  
  
  
             0  55555555555505160455     ENDL     DATA   10H      END      CHARACTERS FOR INVENTED END LINE      SCANNER   321
             1  64010223051624645555              VFD    6/64B,54/9HABSENT"                                      FCC1328X  558
  
  
  
                                        *  SHIFT TEST MASKS FOR DISPLAY-CODED CHARACTER TESTS.                   SCANNER   324
                                                                                                                 SCANNER   325
             2                           COL1MASK BSS    0           ? SHIFT TEST MASK FOR <C>, <*> OR <$> IN    SCANNER   326
                                  70              POS    60-1-1RC    ? COLUMN 1.  MASK IS RIGHT SHIFTED 1 BIT    SCANNER   327
                 2                                VFD    1/1         ? AND 1 WILL BE ADDED TO THE DISPLAY CODED  SCANNER   328
                                  24              POS    60-1-1R*    ? CHARACTER VALUE DURING THE ACTUAL TEST.   SCANNER   329
                             2                    VFD    1/1         ? THIS PREVENTS A <;>=63D FROM ALIASING AS  SCANNER   330
                                  20              POS    60-1-1R$    ? <C>=03D DURING THE TEST, WHICH WOULD      SCANNER   331
                              1                   VFD    1/1         ? OTHERWISE HAPPEN DUE TO THE MODULO 60     SCANNER   332
                                  00              POS    0           .... (NOT 64) NATURE OF A SHIFT MASK TEST.  SCANNER   333
  
             3                           ZRBLMASK BSS    0           ? SHIFT TEST MASK FOR <0> OR < >            SCANNER   335
                                  41              POS    60-1R0      ?                                           SCANNER   336
                         4                        VFD    1/1         ?                                           SCANNER   337
                                  17              POS    60-1R       ?                                           SCANNER   338
                               4                  VFD    1/1         ?                                           SCANNER   339
                                  00              POS    0           ....                                        SCANNER   340
  
             4                           HLRMASK  BSS    0           ?  SHIFT TEST MASK FOR <H> <L> <R>          SCANNER   342
                                  64              POS    60-1RH      ?                                           SCANNER   343
                  1                               VFD    1/1         ?                                           SCANNER   344
                                  60              POS    60-1RL      ?                                           SCANNER   345
                    4                             VFD    1/1         ?                                           SCANNER   346
                                  52              POS    60-1RR      ?                                           SCANNER   347
                      4                           VFD    1/1         ?                                           SCANNER   348
                                  00              POS    0           ....                                        SCANNER   349
  
  
  
  
                                        *  POINT TABLE 1 - CONTROLS 'PTBL2' SEARCH START/STOP ADDRESSES, BASED   SCANNER   351
                                        *  ON NUMBER OF CHARACTERS IN OPERATOR STRING.  TABLE ENTRY FORMAT IS--  SCANNER   352
                                        *                                                                        SCANNER   353
                                        *         VFD    30/STOP ADDRESS,30/START ADDRESS                        SCANNER   354
                                        *                                                                        SCANNER   355
             5  0000000026 +             PTBL1    VFD    30/PTBL2.5A,30/PTBL2.2A   *SPECIAL FOR 1-CHAR OPERATORS SCANNER   356
                          0000000021 +
             6  0000000022 +                      VFD    30/PTBL2.3,30/PTBL2.2                                   SCANNER   357
                          0000000013 +
             7  0000000024 +                      VFD    30/PTBL2.4,30/PTBL2.3                                   SCANNER   358
                          0000000022 +
            10  0000000025 +                      VFD    30/PTBL2.5,30/PTBL2.4                                   SCANNER   359
                          0000000024 +
            11  0000000026 +                      VFD    30/PTBL2.5A,30/PTBL2.5                                  SCANNER   360
                          0000000025 +
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    10
                                                                      POINT 
  
            12  0000000031 +                      VFD    30/PTBLEND,30/PTBL2.5A                                  SCANNER   361
                          0000000026 +
                                                                                                                 SCANNER   362
                                        *  POINT TABLE 2 - CONTAINS PICTURES OF ALL LEGAL OPERATORS, AND CORRES- SCANNER   363
                                        *  PONDING E-LIST ENTRY ELEMENT POINTER.  TABLE ENTRY FORMAT IS--        SCANNER   364
                                        *                                                                        SCANNER   365
                                        *         VFD    36/H*PICTURE*,6/0,18/ADDR OF E-LIST ENTRY ELEMENT       SCANNER   366
                                        *                                                                        SCANNER   367
            13  05215555555500000046 +   PTBL2.2  VFD    36/2HEQ,6/0,18/EQ                                       SCANNER   368
            14  07055555555500000043 +            VFD    36/2HGE,6/0,18/GE                                       SCANNER   369
            15  07245555555500000044 +            VFD    36/2HGT,6/0,18/GT                                       SCANNER   370
            16  14055555555500000041 +            VFD    36/2HLE,6/0,18/LE                                       SCANNER   371
            17  14245555555500000042 +            VFD    36/2HLT,6/0,18/LT                                       SCANNER   372
            20  16055555555500000045 +            VFD    36/2HNE,6/0,18/NE                                       SCANNER   373
            21  17225555555500000036 +   PTBL2.2A VFD    36/2HOR,6/0,18/OR                                       SCANNER   374
            22  01160455555500000037 +   PTBL2.3  VFD    36/3HAND,6/0,18/AND                                     SCANNER   375
            23  16172455555500000040 +            VFD    36/3HNOT,6/0,18/NOT                                     SCANNER   376
            24  24222505555500000057 +   PTBL2.4  VFD    36/4HTRUE,6/0,18/TRUE                                   SCANNER   377
            25  06011423055500000060 +   PTBL2.5  VFD    36/5HFALSE,6/0,18/FALSE                                 SCANNER   378
            26  11160405065500000055 +   PTBL2.5A VFD    36/5HINDEF,6/0,18/INDEF                                 SCANNER   379
            27  22011607055500000054 +            VFD    36/5HRANGE,6/0,18/RANGE                                 SCANNER   380
            30  26011411045500000056 +            VFD    36/5HVALID,6/0,18/VALID                                 SCANNER   381
            31                           PTBLEND  BSS    0                                                       SCANNER   382
  
  
  
  
                                        *         *ELIST* ENTRY ELEMENTS.                                        SCANNER   384
                                        *                                                                        SCANNER   385
                                                                                                                 SCANNER   386
            31  20020000000000000000     RP       VFD    12/2002B,48/0     )                                     SCANNER   387
            32  20030000000000000000     COMMA    VFD    12/2003B,48/0     ,                                     SCANNER   388
            33  20040000000000000000     EOS      VFD    12/2004B,48/0     END-OF-STMT                           SCANNER   389
            34  20050000000000000000     EQU      VFD    12/2005B,48/0     =                                     SCANNER   390
            35  20060000000000000000     LP       VFD    12/2006B,48/0     (                                     SCANNER   391
            36  20070000000000000002     OR       VFD    12/2007B,48/2     .OR.                                  SCANNER   392
            37  20100000000000000003     AND      VFD    12/2010B,48/3     .AND.                                 SCANNER   393
            40  20110000000000000004     NOT      VFD    12/2011B,48/4     .NOT.                                 SCANNER   394
            41  20120000000000000005     LE       VFD    12/2012B,48/5     .LE.                                  SCANNER   395
            42  20130000000000000005     LT       VFD    12/2013B,48/5     .LT.                                  SCANNER   396
            43  20140000000000000005     GE       VFD    12/2014B,48/5     .GE.                                  SCANNER   397
            44  20150000000000000005     GT       VFD    12/2015B,48/5     .GT.                                  SCANNER   398
            45  20160000000000000005     NE       VFD    12/2016B,48/5     .NE.                                  SCANNER   399
            46  20170000000000000005     EQ       VFD    12/2017B,48/5     .EQ.                                  SCANNER   400
            47  20200000000000000006     MINUS    VFD    12/2020B,48/6     -                                     SCANNER   401
            50  20210000000000000006     PLUS     VFD    12/2021B,48/6     +                                     SCANNER   402
            51  20220000000000000007     STAR     VFD    12/2022B,48/7     *                                     SCANNER   403
            52  20230000000000000010     SLASH    VFD    12/2023B,48/8     /                                     SCANNER   404
            53  20240000000000000012     DSTAR    VFD    12/2024B,48/10    **                                    SCANNER   405
            54  20200000000000000005     RANGE    VFD    12/2020B,48/5                                           SCANNER   406
            55  20210000000000000005     INDEF    VFD    12/2021B,48/5                                           SCANNER   407
            56  20220000000000000005     VALID    VFD    12/2022B,48/5                                           SCANNER   408
            57  20000000000000777776     TRUE     VFD    12/2000B,30/0,18/-1                                     SCANNER   409
            60  20000000000000000000     FALSE    VFD    12/2000B,48/0                                           SCANNER   410
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    11
  
  
            61                     1     BADLABL  BSSZ   1           =1 IF BAD LABEL IN NEW STMT, ELSE =0        SCANNER   412
          3767                     1     BLNKSTMT ZERO   1           .NZ. WHEN BLANK SOURCE STATEMENT (INITIAL   SCANNER   413
                                        *                              LINE AND CONTINUATION LINES) ENCOUNTERED  SCANNER   414
                                        *                            .ZR. WHEN NON-NULL LINE FOUND               SCANNER   415
          3770                     1     CAD      ZERO   1           CONSTANT PACK-IN-PROGRESS FLAG.  VALUES --  SCANNER   416
                                        *                              .ZR. = NO CONSTANT PACK IN PROGRESS.      SCANNER   417
                                        *                              .PL. = PACKING NUMERIC CONSTANT.          SCANNER   418
                                        *                              .MI. = PACKING HOLLERITH CONSTANT.        SCANNER   419
            62                     1     CARDS    BSSZ   1           NR OF CARDS THAT HAVE BEEN READ IN THIS     FCC1328X  559
                                        *                              PROGRAM UNIT (SET BY /COMFRNC/).  THIS    FCC1328X  560
                                        *                              CARD COUNT IS NOT USED BY THE OPTIMIZING  FCC1328X  561
                                        *                              COMPILER, AND IS HERE ONLY FOR /COMFRNC/  FCC1328X  562
                                        *                              COMPATIBILITY (SEE *DUKE/DUKE1*).         FCC1328X  563
            63                     1     CCSTO    BSSZ   1           POINTER TO CURRENT 'CONSTOR' ENTRY          SCANNER   420
            64  00000000000000000000     CD       ENTRY. 0                                                       SCANNER   421
            65  00000000000000000000     COL      ENTRY. 0                                                       SCANNER   422
            66                     1     COLS     BSSZ   1           COLUMN POINTER, BIASED -7, SO 0 = COL 7     SCANNER   423
            67                     1     COMMON   BSSZ   1           HOLDS E-LIST ENTRY                          SCANNER   424
            70                     1     CONTCNT  BSSZ   1           CONTINUATION CARD COUNT                     SCANNER   425
            71                     1     CSSTMT   BSSZ   1           1S59 IF C/-LIST,ALL                         FEAT121L   95
                                        *                             +1  IF C/-LIST,NONE                        FEAT121L   96
                                        *                             +0  IF NOT A C/-LIST LINE                  FEAT121L   97
            72                     1     CTYPE    BSSZ   1           TYPE OF CONSTANT                            SCANNER   426
            73  00000000000000000000     DUKE1    ENTRY. 0           SOURCE LINE COUNT (BINARY)                  SCANNER   427
          3771                     1     EXPEXP   ZERO   1           .NZ. WHEN EXPONENT EXPECTED, ELSE .ZR.      SCANNER   428
            74                     1     FTNCNT   BSSZ   1           SOURCE CARD LINE NUMBER IN DISPLAY CODE     SCANNER   431
          3772                     1     HANG.    ZERO   1           .NZ. UNTIL CHARACTER FOUND AFTER PERIOD     SCANNER   432
            75  00000000000000000000     IDENTOK  ENTRY. 0           =0 WHEN *IDENT* OK (NO FORTRAN YET),        SCANNER   433
                                        *                              = .NZ. WHEN ILLEGAL.                      SCANNER   434
            76  40000000000000000000     IEF      CON    1S59        INIT ENTRY FLAG = 1S59 WHEN DEFERRING       SCANNER   435
                                        *                              SOURCE LISTING BEFORE HEADER LINE FOUND   SCANNER   436
                                        *                              (OR 1. BEFORE 20 SOURCE LINES HAVE BEEN   FEAT121L   98
                                        *                              FOUND, OR 2. BEFORE A C/-LIST,NONE STMT   FEAT121L   99
                                        *                              IS FOUND, WHICHEVER OCCURS FIRST).        FEAT121L  100
                                        *                              ELSE = 0                                  FEAT121L  101
          3773                     1     IMPFLG   ZERO   1           .NZ. WHEN PACKING *IMPLICIT* TYPE KEYWORD   SCANNER   439
                                                                                                                 SCANNER   440
            77                     6     KEYL     BSSZ   6           KEYWORD LEN, 12/2000B+NR CHARS, 48/NR WORDS SCANNER   441
                                 100 +   KEYW     =      KEYL+1      KEYWORD BUFFER                              SCANNER   442
                                                                                                                 SCANNER   443
           105                     1     LCON     BSSZ   1           WORD FOR PACKING LABEL IN *ADJ*             SCANNER   444
           106                     1     LOCC     BSSZ   1           STARTING ADDR OF CONSTANT IN 'CONSTOR'      SCANNER   445
           107                     1     L.CARD   BSSZ   1           NR OF WORDS IN SOURCE LINE IMAGE AT         FCC1328X  564
                                        *                              (CP.CARD) ET EQ  (INCLUDES FULL ZERO      FCC1328X  565
                                        *                              WORD EOL MARK)                            FCC1328X  566
           110                     1     L.PLINE  BSSZ   1           NR OF WORDS IN PRINT LINE IMAGE AT          FCC1328X  567
                                        *                              (CP.FLIN) ET SEQ.                         FCC1328X  568
                                        *                              (L.PLINE) = 0 IF LINE ALREADY LISTED      FCC1328X  569
           111                     1     N        BSSZ   1           LENGTH OF CONSTANT STRING                   SCANNER   449
           112                     1     NABC     BSSZ   1           NUMBER OF NON-ANSI BLANK LINES              SCANNER   450
           113                     1     NACOM    BSSZ   1           NUMBER OF NON-ANSI COMMENT LINES            SCANNER   451
          3774                     1     NAFLG    ZERO   1           1S59 IF NON-ANSI TYPE DECLARATION OCCURRED  SCANNER   452
           114                     1     NOEND    BSSZ   1           =24D IF END CARD MISSING, ELSE =0           SCANNER   453
           115  40000000000000000000     NOLIST   ENTRY. 1S59        =1S59 IF C/-LIST, =0 IF C/-NOLIST ACTIVE    SCANNER   454
          3775                     1     NULLSTMT ZERO   1           .ZR. UNTIL 1ST CHARACTER FOUND IN STATEMENT SCANNER   455
           116                     1     NXCOMENT BSSZ   1           .EQ. 1 FOR COMMENT CARD; ELSE .EQ. 0        SCANNER   456
          3776                     1     N.EQUAL  ZERO   1,EPT       NUMBER OF EQUAL SIGNS IN STATEMENT          SCANNER   457
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    12
                                                                                ZERO
  
          3777                     1     PAD      ZERO   1           .NZ. WHEN PACKING NAME (*PACK7* ACTIVE)     SCANNER   458
          4000                     1     PARENS   ZERO   1           PARENTHESIS COUNT                           SCANNER   459
           117                     7     REGS     BSSZ   7                                                       FEAT121L  102
                                 117 +   REG=B1   =      REGS                                                    FEAT121L  103
                                 120 +   REG=B2   =      REGS+1                                                  FEAT121L  104
                                 121 +   REG=B3   =      REGS+2                                                  FEAT121L  105
                                 122 +   REG=B6   =      REGS+3                                                  FEAT121L  106
                                 123 +   REG=X3   =      REGS+4                                                  FEAT121L  107
                                 124 +   REG=X5   =      REGS+5                                                  FEAT121L  108
                                 125 +   REG=X6   =      REGS+6                                                  FEAT121L  109
          4001                     1     RELFLAG  ZERO   1           .NZ. IF RELATIONAL OR BOOLEAN OPR EXPECTED  SCANNER   460
           126                     1     SBUFLG   BSSZ   1           *SBUFF* STATUS FLAG.  VALUES --             SCANNER   461
                                        *                              +0 = NEXT STMT NOT ALREADY IN *SBUFF*     SCANNER   462
                                        *                              -1 = LAST STMT TERMINATED BY $            SCANNER   463
                                        *                              +1 = LAST STMT TERMINATED BY BY NEXT STMT SCANNER   464
  
  
  
  
                                                  USE    ZERO                                                    SCANNER   473
                                  13     L.VAR    EQU    *-O.VAR     LENGTH OF VARIABLE BLOCK TO BE ZEROED       SCANNER   474
                                                  USE    *                                                       SCANNER   475
  
  
  
  
                                                  ENTRY  CONSTOR                                                 SCANNER   477
           127                   454     CONSTOR  BSSZ   CONSTORS                                                SCANNER   478
  
  
  
  
                                        **        DLBUF - DEFERRED LISTING BUFFER.                               SCANNER   480
                                        *                                                                        SCANNER   481
                                        *         SOURCE LINES, PREFIXED WITH DPC LINE NUMBERS, ARE SAVED HERE   SCANNER   482
                                        *         FOR DEFERRED LISTING.  BUFFER SIZE IS ADEQUATE FOR A COMPLETE  SCANNER   483
                                        *         SOURCE STATEMENT OF 20 LINES, WITH 108 CHARACTERS PER LINE.    SCANNER   484
                                                                                                                 SCANNER   485
                                 404     DLBUFL   =      20*13       DEFERRED LISTING BUFFER LENGTH              SCANNER   486
           603                   404     DLBUF    BSSZ   DLBUFL      DEFERRED LISTING BUFFER                     SCANNER   487
  
  
  
  
          1207                     1              BSSZ   1           NEED THIS CELL TO INIT A6 IN 'READCARD'     SCANNER   489
          1210                   103     SBUFF    BSS    73-7+1      STRING BUFFER FOR CARD COLS 7_72 + E-O-L    SCANNER   490
                                                  ENTRY  SBUFF                                                   SCANNER   491
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    13
  
  
                                        *         LOCATIONS USED BY THE "DEBUG" PROCESSOR                        DBGCOM      3
                                                                                                                 DBGCOM      4
                                                  USE    //                                                      DBGCOM      5
             0                     1     DEBUG    BSS    1                                                       DBGCOM      6
                                                  USE    *                                                       DBGCOM      7
                                                  USE    /DBGBLK2/                                               DBGCOM      8
             0                     1     D.SDRL   BSS    1            BEGINNING ADDRESS OF DRL RELATIVE TO //    DBGCOM      9
             1                     1     D.EDRL   BSS    1            NEXT AVAILABLE ORDINAL OF DRL              DBGCOM     10
             2                     1     D.SDVL   BSS    1            BEGINNING ADDRESS OF DVL RELATIVE TO //    DBGCOM     11
             3                     1     D.EDVL   BSS    1            NEXT AVAILABLE ORDINAL OF DVL              DBGCOM     12
             4                     1     D.SAREA  BSS    1            BEGINNING ADDRESS OF AREA LIST // RELATIVE DBGCOM     13
             5                     1     D.EAREA  BSS    1            NEXT AVAILABLE ORDINAL OF AREA LIST        DBGCOM     14
             6                     1     D.OPL    BSS    1            BEG. ADDRESS OF OPTIONS LIST // RELATIVE   DBGCOM     15
             7                     1     D.SSMTB  BSS    1            BEG. ADDRESS OF SYMTAB RELATIVE TO //      DBGCOM     16
            10                     1     D.ESMTB  BSS    1            NEXT AVAILABLE ORDINAL OF SYMTAB           DBGCOM     17
            11                     1     D.SAASI  BSS    1            BEGINNING ADDRESS OF AASI RELATIVE TO //   DBGCOM     18
            12                     1     D.RFMAP  BSS    1            FWA REFMAP OR ITS EQU REL TO //            DBGCOM     19
            13                     1     D.ELIST  BSS    1            CURRENT ELIST POINTER RELATIVE TO //       DBGCOM     20
            14                     1     D.LELST  BSSZ   1                 LELIST FOR BUGPRO                     DBGCOM     21
            15                     1     D.ELAST  BSS    1            ENDING ADDRESS OF ELIST RELATIVE TO //     DBGCOM     22
            16                     1     D.NESTW  BSS    1            CURRENT ADDRESS OF OPRIONS LIST            DBGCOM     23
            17                     1     D.SFDIT  BSS    1            BEG. ADD. OF FIXED AREA LIST // RELATIVE   DBGCOM     24
            20                     1     D.EFDIT  BSS    1            LAST ORDINAL + 1 OF FIXED AREA LIST        DBGCOM     25
            21                     1     D.CON1   BSS    1            BEG. ADD. OF CONLIST RELATIVE TO //        DBGCOM     26
            22                     1     D.CONL   BSS    1            LAST USED WORD ORDINAL OF CONLIST          DBGCOM     27
            23                     1     D.NAASI  BSS    1            NEXT AVAILABLE ORDINAL OF AASI             DBGCOM     28
            24                     1     SDBGIND  BSS    1            BEG. ADD. OF RANDOM DEBUG INDEX REL. TO // DBGCOM     29
            25                     1     D.STOR   BSSZ   1            SCANNERS CONSTOR FOR BUGCON                DBGCOM     30
            26                     1     D.SCON1  BSSZ   1            SCANNERS CONSTOR RELATIVE TO //            DBGCOM     31
            27                     1     D.DOLAST BSS    1            DOLAST FOR FTN DEBUG ROUTINES              DBGCOM     32
            30                     1     D.NOGO   BSSZ   1            .NE. 0 IF DEBUG STMTS NOT TO BE EXECUTED   DBGCOM     33
            31                     1     D.PACK   BSSZ   1                                                       DBGCOM     34
            32                     1     D.POW    BSS    1            PREVIOUS OPTION WORD                       DBGCOM     35
            33                     1     D.OPFLG  BSSZ   1            .NE. 0 IF OPTIONS HAVE TO BE WRITTEN OUT   DBGCOM     36
            34                     1     D.ON     BSS    1            0 IF TURNING ON OPTIONS. .NE.0 IF OFF      DBGCOM     37
            35                     1     D.NOERR  BSS    1            NO. OF ERRORS IN AREA LIST                 DBGCOM     38
            36                     1     D.PADD   BSS    1           = 0 IF INTERSPERSED  (FOR TURNON)           DBGCOM     39
            37                     1     FEFLAG   BSSZ   1            IF .NE. 0 CAUSES LIST OF FE STMT IN NOLIST DBGCOM     40
            40                     1     D.OPEN   BSSZ   1            .EQ.1 IF DUNIT OPEN, 0 IF CLOSED           DBGCOM     41
            41                     1     DBGPROG  BSSZ   1            LOCATION 56 FOR FTN DEBUG ROUTINES         DBGCOM     42
            42                     1     LDEBUG   BSSZ   1                 LOCATION OF DEBUG FOR FTN DEBUG RTNS  DBGCOM     43
            43                     1     RECORD   BSSZ   1                 NEXT AVAILABLE RECORD NUMBER          DBGCOM     44
            44                     1     DISPOW   BSSZ   1                 DISPLAY FOR OPTIONS HEADER            DBGCOM     45
            45                     1     SUCCESS  BSSZ   1                 FLG FOR EXTERNAL PACKET ON DISK       DBGCOM     46
            46                     1     LTFLAG   BSS    1            .TRUE. IF PROCESSING AN OFF STMT           DBGCOM     47
            47                     1     LFLAG    BSS    1            .TRUE. IF PROCESSING AN INTERSPERSED OFF   DBGCOM     48
            50                     1     NOPROG   BSSZ   1            NON ZERO IF NO PROGRAM CARD AND            DBGCOM     49
                                                                      CALLING DBGIPKT ONLY TO SET UP             DBGCOM     50
                                                                      FOR FURTHER PROCESSING                     DBGCOM     51
            51                     2     D.CURUD  BSS    2            UPDATE ID OF CURRENT STATEMENT             DBGCOM     52
            53                     1     D.DUKE1  BSS    1            BIN. LINE NO. OF START OF CURRENT STMT.    DBGCOM     53
            54                     1     D.LABEL  BSS    1            LABEL OF CURRENT STATEMENT                 DBGCOM     54
            55                     1     D.TYPE   BSS    1            STATEMENT TYPE                             DBGCOM     55
            56                     1     D.NEST   BSS    1            CURRENT POSITION IN D.NESTW                DBGCOM     56
            57                     1     LNGIND   BSS    1            LENGTH OF THE INDEX OF DEBUG RANDOM FILE   DBGCOM     57
            60  00000000000000000000     NOACT    DATA   0           .ZR. IF PACKET INFO AVAILABLE, .MI. IF NOT  DBGCOM     58
            61                     1     AREAFLG  BSSZ   1                 AREA LIST FLAG                        DBGCOM     59
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    14
                                                                                DBGBLK2 
  
            62                     1     LNGDRL   BSSZ   1                 LENGTH ALLOTTED TO THE DRL            DBGCOM     60
            63                     1     LNGDVL   BSSZ   1                 LENGTH ALLOTTED TO THE DVL            DBGCOM     61
            64                     1     C.PACK   BSS    1                 E IF EXTERNAL PACKET, I IF INTERNAL   DBGCOM     62
            65                    24     UPDTTBL  BSS    20                TABLE FOR UPDATE IDS ON COMMENT CDS   DBGCOM     63
           111                     1     COUNTUP  BSSZ   1                 NUMBER OF ENTRIES IN UPDTTBL          DBGCOM     64
           112                     1     SCNUPDT  BSSZ   1                 .NE. 0 IF PUTUPDT ENTERED FM SCANNER  DBGCOM     65
           113                     1     INDEXNO  BSSZ   1                 1 IF NO INTERNAL PACKET INFO, 3 ELSE  DBGCOM     66
           114                     1     PHSFLAG  BSSZ   1            .LT. 0 IF BETWEEN PHASES                   DBGCOM     67
                                                  USE    *                                                       DBGCOM     68
                                                  USE    /DBGBLK1/                                               DBGCOM     69
             0                     1     ALLARR   BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL ARRAYS     DBGCOM     70
             1                     1     ALLCALL  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL CALLS      DBGCOM     71
             2                     1     ALLFUNC  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL FUNCTIONS  DBGCOM     72
             3                     1     GOTOSFL  BSSZ   1            .NE. 0 IF GO TOS OPTION IS ON              DBGCOM     73
             4                     1     NOGOFLG  BSSZ   1            .NE. 0 IF NO EXECUTION DESPITE FATAL ERROR DBGCOM     74
             5  77777777777777777776     TRACEL   DATA   -1           CURRENT TRACE LEVEL                        DBGCOM     75
             6                     1     ALLROU   BSS    1            .NE. 0 IF OPLIST APPLIES TO ALL ROUTINES   DBGCOM     76
             7  23201104052257000000     SPIDER   VFD    42/7LSPIDER.,18/0                                       DBGCOM     77
                                                  USE    *                                                       DBGCOM     78
                                                  USE    /NONFTNX/                                               DBGCOM     79
             0                     1     D.COL    BSSZ   1            .NE. 0 IF EXT DEBUG PACKET ALREADY DONE    DBGCOM     80
             1                     1     DTYPE    BSSZ   1            = 0 IF NEXT STMT NOT DEBUG STMT            DBGCOM     81
                                   1 C   C$STMT   =      DTYPE                                                   DBGCOM     82
                                        *C$STMT   BSSZ   1           .NZ. IF NEXT STMT IS C$-DEBUG, .ZR. IF NOT  DBGCOM     83
             2                     2     D.NCURU  BSSZ   2            UPDATE ID OF NEXT STATEMENT                DBGCOM     84
             4                     1     D.NDUKE  BSSZ   1            BIN. LINE NO. OF START OF NEXT STMT        DBGCOM     85
             5                     1     D.NLBEL  BSSZ   1            LABEL OF NEXT STATEMENT                    DBGCOM     86
             6                     1     DBGRFMP  BSSZ   1            LAST USED WD OF REFMAP OR EQUIVALENT       DBGCOM     87
             7                     1     DBGPHCT  BSSZ   1            " 0 WHILE DBGPHCT HAS CONTROL              FCC1852    10
            10                     1     D.CURT   BSSZ   1           .LT. 0 IF CURRENT STATEMENT IS C$ DEBUG     FCC2119     6
                                                  USE    *                                                       DBGCOM     88
                                                  PURGMAC CALLF                                                  DBGCOM     89
                                         CALLF    MACRO  NAME,RESET                                              DBGCOM     90
                                                  SA1    =0                                                      DBGCOM     91
                                                  RJ     =X_NAME                                                 DBGCOM     92
                                                  IFC    NE, RESET  ,4                                           DBGCOM     93
                                                  IFC    EQ, RESET B1 ,2                                         DBGCOM     94
                                                  SB1    1                                                       DBGCOM     95
                                                  SKIP   1                                                       DBGCOM     96
                                                  SB5    1                                                       DBGCOM     97
                                         CALLF    ENDM                                                           DBGCOM     98
  
  
  
                                        ***                                                                      DBGCOM    100
                                        *         DBGERR - CALL ROUTINE TO PRINT AN ERROR MESSAGE WHEN IN DEBUG  DBGCOM    101
                                        *                MODE                                                    DBGCOM    102
                                        *                ARGUMENT IS TEXT OF THE MESSAGE                         DBGCOM    103
                                        *                                                                        DBGCOM    104
                                                  PURGMAC DBGERR                                                 DBGCOM    105
                                         DBGERR   MACRO  TEXT                                                    DBGCOM    106
                                                  RJ     =XSAVREG                                                DBGCOM    107
                                                  SA5    =C/TEXT/                                                DBGCOM    108
                                                  RJ     =XDBGERR                                                DBGCOM    109
                                                  RJ     =XRESREG                                                DBGCOM    110
                                                  ENDM                                                           DBGCOM    111
                                  47     DBGFSTT  EQU    39                                                      DBGCOM    112
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    15
  
  
                                  62     DBGEXTP  EQU    50                                                      DBGCOM    113
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    16
        MAIN LOOP                                                     SCANNER 
  
                                        ***                                                                      SCANNER   494
                                        *         SCANNER - TYPES AND TRANSFORMS STATEMENTS INTO E LIST          SCANNER   495
                                        *         ON EXIT                                                        SCANNER   496
                                        *         TYPE AND B7 = STATEMENT TYPE                                   SCANNER   497
                                        *         CLABEL = LABEL IN DISPLAY CODE, LEFT JUSTIFIED                 SCANNER   498
                                        *         SELIST - FWA OF THE E LIST                                     SCANNER   499
                                        *         ELAST - LWA OF E LIST    (  ELAST < SELIST )                   SCANNER   500
                                        *         LTYPE - TYPE OF STMT AFTER A LOGICAL IF                        SCANNER   501
                                        *         LELIST - LOCATION OF STMT AFTER LOGICAL IF                     SCANNER   502
                                        *         DUKE - LINE COUNT IN BINARY                                    SCANNER   503
                                                                                                                 SCANNER   504
                                                                                                                 SCANNER   505
          1313  0400401313 +             SCANNER  ENTRY. **          ** ENTRY/EXIT **                            SCANNER   506
                                                                                                                 SCANNER   507
          1314  7160000127 +             SCANNER1 SX6    CONSTOR     _ FWA *CONSTOR*                             SCANNER   508
                          5110000013              SA1    SYMEND      _ LAST SYMBOL TABLE ENTRY                   SCANNER   509
          1315  7271777727                        SX7    X1-L.STBZ                                               SCANNER   510
                          5160000063 +            SA6    CCSTO       INITIALIZE 'CONSTOR' POINTER                SCANNER   511
          1316  6110000001                        SB1    1                                                       SCANNER   512
                          5170000032              SA7    SELIST      _ FWA E-LIST WORKING STORAGE                SCANNER   513
          1317  73671                             SX6    X7+B1                                                   SCANNER   514
                     43774                        MX7    60                                                      SCANNER   515
                          5160000000 X            SA6    ELAST                                                   SCANNER   516
          1320  5170000024                        SA7    TYPE        INITIALIZE *TYPE* TO UNTYPED (-0)           SCANNER   517
                          13666                   SETZERO   O.VAR,L.VAR                                          SCANNER   518
          1324  13666                             BX6    X6-X6                                                   SCANNER   519
                     43700                        MX7    0                                                       SCANNER   520
                          5160000021              SA6    LTYPE                                                   SCANNER   521
          1325  5170000034                        SA7    LELIST                                                  SCANNER   522
                                                                                                                 SCANNER   523
          1326                           SCAN2    BSS    0           IN NON-DEBUG MODE, *EQ SCAN13* PLUGGED HERE SCANNER   524
          1326  5110000000 X                      SA1    =XDFLAG                                                 SCANNER   525
                          6120001326 +            SB2    SCAN2                                                   SCANNER   526
          1327                                    BSS    0           TERMINATE PLUG SITE                         SCANNER   527
                                                                                                                 SCANNER   528
          1327  0301001332 +                      ZR     X1,SCAN3    IF DEBUG OPTION NOT SELECTED                SCANNER   529
                          5110000000 C            SA1    D.COL                                                   SCANNER   530
          1330  43600                             MX6    0                                                       SCANNER   531
                     54610                        SA6    A1                                                      SCANNER   532
                          0311001335 +            NZ     X1,SCAN4    IF DEBUG EXT PACKET JUST ENDED              SCANNER   533
          1331  6120001332 +                      SB2    SCAN3                                                   SCANNER   534
                                                                                                                 SCANNER   535
          1332                           SCAN3    BSS    0           IF DEBUG MODE, *EQ SCAN13* PLUGGED HERE     SCANNER   536
          1332  7160001407 +                      PLUG   AT=B2,TO=SCAN10                                         F2950F4   110
          1335                                    BSS    0           TERMINATE PLUG SITE                         SCANNER   538
                                                                                                                 SCANNER   539
          1335  76600                    SCAN4    SX6    B0                                                      SCANNER   540
                     43701                        MX7    1                                                       SCANNER   541
                          5160000073 +            SA6    DUKE1                                                   SCANNER   542
          1336  5170000076 +                      SA7    IEF         SET *DEFER LISTING* STATUS                  SCANNER   543
                          5160000060              SA6    NLABEL                                                  SCANNER   544
          1337  5110003625 +                      SA1    =A.0.                                                   SCANNER   545
                          5160000062 +            SA6    CARDS                                                   FCC1328X  570
          1340  10611                             BX6    X1                                                      SCANNER   546
                     5160000074 +                 SA6    FTNCNT                                                  SCANNER   547
          1341  5160000046                        SA6    SCNT                                                    SCANNER   548
                                                                                                                 SCANNER   549
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    17
        MAIN LOOP                                                     SCANNER 
  
                                        *  CHECK FOR AVAILABILITY OF FIRST SOURCE LINE IMAGE.                    SCANNER   550
                                                                                                                 SCANNER   551
                          5110000000 X            SA1    CP.CARD                                                 SCANNER   552
          1342  0311001343 +                      NZ     X1,SCAN5    IF NEW SOURCE LINE IN BUFFER                SCANNER   553
                          0321001355 +            PL     X1,SCAN8    IF NO LINE                                  SCANNER   554
          1343                           SCAN5    BSS    0                                                       SCANNER   555
                                                                                                                 SCANNER   556
                                         #RM      IFEQ   CP#RM,0                                                 SCANNER   557
                                                                                                                 SCANNER   558
          1343  5110000000 X                      SA1    =XCP.CARD                                               SCANNER   559
                          43660                   MX6    -12                                                     SCANNER   560
                               64610              SB6    A1          (B6) = LINE FWA                             SCANNER   561
          1344  15716                    SCAN6    BX7    -X6*X1                                                  SCANNER   562
                     54111                        SA1    A1+B1                                                   SCANNER   563
                          0317001344 +            NZ     X7,SCAN6    IF NO 12-BIT ZERO BYTE EOL TERMINATOR       SCANNER   564
          1345  65616                             SB6    A1-B6       (B6) = LINE LENGTH (WORDS)                  SCANNER   565
                                                                                                                 SCANNER   566
                                         #RM      ELSE                                                           SCANNER   567
                                                                                                                 SCANNER   568
                                        *         TERMINATE SOURCE INPUT LINE WITH AT LEAST 12-BIT ZERO BYTE.    SCANNER   569
                                                                                                                 SCANNER   570
                                                  SA2    =XF.IN      (X2) = ADDRESS OF INPUT FILE FIT            SCANNER   571
                                                  FETCH  X2,RL,X1    RETURNS (X1) = RECORD LENGTH (CHARACTERS)   SCANNER   572
                                                  IX2    X1+X1                                                   SCANNER   573
                                                  CW     X3,X1                                                   SCANNER   574
                                                  LX1    X2,B1                                                   SCANNER   575
                                                  SB6    X3          (B6) = RECORD LENGTH (WORDS)                SCANNER   576
                                                  IX2    X2+X1       RECORD LENGTH (BITS)                        SCANNER   577
                                                  BX4    X3                                                      SCANNER   578
                                                  LX3    6                                                       SCANNER   579
                                                  NZ     B6,SCAN6A   IF RECORD LENGTH NOT ZERO                   FCC2030     7
                                                  SB6    B1                                                      FCC2030     8
                                         SCAN6A   SA1    =XCP.CARD-1+B6 (X1) = LAST WORD OF LINE                 FCC2030     9
                                                  LX4    2                                                       SCANNER   581
                                                  IX3    X3-X4       60 * WORD COUNT = LINE LENGTH (BITS)        SCANNER   582
                                                  MX4    1                                                       SCANNER   583
                                                  IX3    X3-X2       UNUSED BIT COUNT                            SCANNER   584
                                                  SB2    X3-59D                                                  SCANNER   585
                                                  AX4    -B2                                                     SCANNER   586
                                                  BX6    X4*X1       DISCARD UNUSED BITS                         SCANNER   587
                                                  AX4    6                                                       SCANNER   588
                                                  SA6    A1                                                      SCANNER   589
                                                  NZ     X4,SCAN7    IF LINE TERMINATOR AT LEAST 12 BITS LONG    SCANNER   590
                                                  MX7    0                                                       SCANNER   591
                                                  SB6    B6+B1       INCREMENT RECORD LENGTH                     SCANNER   592
                                                  SA7    A6+B1       TERMINATE LINE WITH 60 ZERO BITS            SCANNER   593
                                         SCAN7    BSS    0                                                       SCANNER   594
                                                                                                                 SCANNER   595
                                         #RM      ENDIF                                                          SCANNER   596
                                                                                                                 SCANNER   597
                                        *         SIMULATE THE WAY /COMFRNC/ HANDLES END-OF-LINE BY GUARANTEEING FCC1328X  571
                                        *           THAT THE EOL MARK IS ON A WORD BOUNDARY BY APPROPRIATELY     FCC1328X  572
                                        *           BLANK FILLING THE LAST WORD OF THE LINE IMAGE AND STORING    FCC1328X  573
                                        *           A FULL WORD EOL MARK AFTER IT.                               FCC1328X  574
                                                                                                                 FCC1328X  575
                     5116777776 X                 SA1    =XCP.CARD+B6-1 (A1,X1) = A+C OF LAST WORD OF LINE IMAGE FCC1328X  576
          1346  0311001350 +                      NZ     X1,SCAN7A   IF NOT FULL WORD EOL MARK                   FCC1328X  577
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    18
        MAIN LOOP                                                     SCANNER 
  
                          55111                   SA1    A1-B1                                                   FCC1328X  578
                               43066              MX0    -6                                                      FCC1328X  579
          1347  15210                             BX2    -X0*X1                                                  FCC1328X  580
                     0312001352 +                 NZ     X2,SCAN7B   IF NOT 11 CHAR (66 BIT) EOL MARK, NO BLANK  FCC1328X  581
                                        *                              FILL NEEDED...                            FCC1328X  582
                               67661              SB6    B6-B1                                                   FCC1328X  583
                                                                                                                 FCC1328X  584
          1350  66661                    SCAN7A   SB6    B6+B1                                                   FCC1328X  585
                     0100000000 X                 RJ     =XSFN       SPACE FILL NAME                             FCC1328X  586
          1351  13777                             BX7    X7-X7                                                   FCC1328X  587
                     54610                        SA6    A1                                                      FCC1328X  588
                          54761                   SA7    A6+B1       MARK FULL WORD EOL                          FCC1328X  589
                                                                                                                 FCC1328X  590
          1352  76660                    SCAN7B   SX6    B6                                                      FCC1328X  591
                     7176000002                   SX7    B6+2                                                    SCANNER   599
          1353  5160000107 +                      SA6    L.CARD      SOURCE LINE LENGTH                          SCANNER   600
                          5170000110 +            SA7    L.PLINE     LISTING LINE LENGTH                         SCANNER   601
          1354  0400001363 +                      EQ     SCAN9                                                   SCANNER   602
                                                                                                                 SCANNER   603
          1355  0100003401 +             SCAN8    RJ     RNC         READ NEXT CARD                              FCC1328X  592
          1356  7267000002                        SX6    X7+2                                                    FCC1328X  593
                          5160000110 +            SA6    L.PLINE                                                 FCC1328X  594
          1357  0301001363 +                      ZR     X1,SCAN9    IF NEW LINE FOUND                           SCANNER   605
                          0100002117 +            RJ     DSL         DUMP SAVED LINES                            SCANNER   606
          1360  7160000045                        SX6    ST.INV      (X6) = *INVENTED END* STATEMENT TYPE CODE   SCANNER   607
                          43700                   MX7    0                                                       SCANNER   608
                               63760              SB7    X6          (B7) = STATEMENT TYPE CODE RETURN           SCANNER   609
          1361  5160000024                        SA6    TYPE                                                    SCANNER   610
                          5170000001 C            SA7    C$STMT      MARK NEXT LINE *NOT DEBUG*                  SCANNER   611
          1362  0400001313 +                      EQ     SCANNER     EXIT ...                                    SCANNER   612
                                                                                                                 SCANNER   613
                                        *         CHECK FOR BLANK, DEBUG OR C/-LIST,NONE LINES.                  FEAT121L  110
                                                                                                                 SCANNER   615
          1363  0100001560 +             SCAN9    RJ     CBL         CLASSIFY AND BURST LINE                     SCANNER   616
          1364  0315001404 +                      NZ     X5,AFC3     IF COMMENT LINE                             SCANNER   617
                          0331001376 +            MI     X1,AFC1     IF COLUMNS 7-72 BLANK                       SCANNER   618
          1365  5110000071 +                      SA1    CSSTMT                                                  FEAT121L  111
                          13666                   BX6    X6-X6                                                   FEAT121L  112
                               43001              MX0    1                                                       FEAT121L  113
          1366  5160003767 +                      SA6    BLNKSTMT    CLEAR *BLANK STATEMENT* FLAG                FEAT121L  114
                          0333001374 +            MI     X3,SCAN9B   IF A C$-DEBUG STATEMENT.AND.DEBUG MODE ON   FEAT121L  115
          1367  0301001407 +                      ZR     X1,SCAN10   IF NOT A C/-LIST DIRECTIVE                  FEAT121L  116
                          5120000073 +            SA2    DUKE1                                                   FEAT121L  117
          1370  11610                             BX6    X1*X0       (X6) = 1S59 IF *LIST,ALL* OCCURRED          FEAT121L  118
                                        *                                 =   0  IF *LIST,NONE* OCCURRED         FEAT121L  119
                     63220                        SB2    X2                                                      FEAT121L  120
                          0521001372 +            NE     B2,B1,SCAN9A      IF C/-LIST DIRECTIVE WAS NOT LINE 1   FEAT121L  121
          1371  5160000115 +                      SA6    =XNOLIST    PRESET SO THAT IF THIS WAS A C/-LIST,NONE   FEAT121L  122
                                        *                              DIRECTIVE OCCURRING AS LINE 1, IT WILL    FEAT121L  123
                                        *                              NOT BE LISTED                             FEAT121L  124
                          5160000076 +            SA6    IEF         SET SO THAT IF THIS WAS A C/-LIST,NONE      FEAT121L  125
                                        *                              DIRECTIVE OCCURRING AS LINE 1, SOURCE     FEAT121L  126
                                        *                              LINES WILL NOT BE SAVED IN                FEAT121L  127
                                        *                              *BEFORE HEADER* MODE                      FEAT121L  128
          1372  0100003234 +             SCAN9A   RJ     PLO         PROCESS C/-LIST OPTIONS                     FEAT121L  129
          1373  0400001407 +                      EQ     SCAN10      REJOIN NORMAL FLOW...                       FEAT121L  130
                                                                                                                 FEAT121L  131
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    19
        MAIN LOOP                                                     SCANNER 
  
          1374  43401                    SCAN9B   MX4    1                                                       FEAT121L  132
                     11634                        BX6    X3*X4                                                   FEAT121L  133
                          20601                   LX6    1           (C$STMT) = +0 IF NEXT STMT IS NOT C$ DEBUG  FEAT121L  134
                                        *                                     =  1 IF NEXT STMT IS C$ DEBUG      FEAT121L  135
                               54630              SA6    A3                                                      FEAT121L  136
          1375  0312001377 +                      NZ     X2,AFC2     IF A DEBUG CONTINUATION CARD -- ILLEGAL     FEAT121L  137
                          0400001417 +            EQ     SCAN13                                                  FEAT121L  138
  
  
  
  
                                        *         ABNORMAL FIRST CARD(S).                                        SCANNER   623
                                                                                                                 SCANNER   624
          1376  12442                    AFC1     BX4    X4+X2                                                   SCANNER   625
                     0304001404 +                 ZR     X4,AFC3     IF LABEL + CONTIN FIELDS EMPTY, BLANK LINE  SCANNER   626
          1377  5130000074 +             AFC2     SA3    FTNCNT                                                  SCANNER   627
                          13666                   BX6    X6-X6                                                   SCANNER   628
                               22703              LX7    X3                                                      SCANNER   629
          1400  5160000061 +                      SA6    BADLABL     CLEAR BAD LABEL FLAG                        SCANNER   630
                          5170000046              SA7    SCNT        UPDATE ERROR MSG LINE NUMBER                SCANNER   631
          1401  6160777742                        POSTER SEV=FE,NR=E29                                           FCC2111     5
          1403  6110000001                        SB1    1                                                       SCANNER   633
          1404  0100003214 +             AFC3     RJ     PBC         PROCESS BLANK OR COMMENT LINE               SCANNER   634
          1405  0100003265 +                      RJ     PLR         PROCESS LISTING REQUEST                     SCANNER   635
          1406  0400001355 +                      EQ     SCAN8       LOOP FOR NEXT LINE                          SCANNER   636
  
  
  
  
                                        **        CHECK FOR COMPASS SUBPROGRAM.                                  SCANNER   638
                                                                                                                 SCANNER   639
          1407  5110000075 +             SCAN10   SA1    IDENTOK                                                 SCANNER   640
                          0311001412 +            NZ     X1,SCAN11   IF PROGRAM UNIT HEADER FOUND OR INVENTED    SCANNER   641
          1410  0100000000 X                      CALL   CCS         CHECK FOR AND COPY COMPASS SOURCE INPUT     SCANNER   642
          1411  0470001417 +                      ZR     B7,SCAN13   IF NO *IDENT* LINE FOUND                    SCANNER   643
                          0400001335 +            EQ     SCAN4       RE-INITIALIZE FOR NEW PROGRAM UNIT          SCANNER   644
                                                                                                                 SCANNER   645
          1412  5110000000 X             SCAN11   SA1    =XDFLAG                                                 SCANNER   646
                          6120001326 +            SB2    SCAN2                                                   SCANNER   647
          1413  0301001414 +                      ZR     X1,SCAN12   IF DEBUG OPTION NOT SELECTED                SCANNER   648
                          6120001332 +            SB2    SCAN3                                                   SCANNER   649
          1414  7160001417 +             SCAN12   PLUG   AT=B2,TO=SCAN13                                         F2950F4   111
  
  
  
  
                                        **        BEGIN FORTRAN STATEMENT PROCESSING.                            SCANNER   652
                                                                                                                 SCANNER   653
          1417  5110000037 C             SCAN13   SA1    FEFLAG                                                  SCANNER   654
                          43600                   MX6    0                                                       SCANNER   655
                               54610              SA6    A1                                                      SCANNER   656
          1420  0301001421 +                      ZR     X1,SCAN14   IF NO FATAL ERROR IN LAST STATEMENT         SCANNER   657
                          0100002753 +            RJ     LSL         LIST SAVED STATEMENT                        SCANNER   658
          1421  0100003234 +             SCAN14   RJ     PLO         PROCESS C/-LIST OPTIONS                     FEAT121L  139
          1422  0100003265 +                      RJ     PLR         PROCESS LISTING REQUEST (NEW STATEMENT)     FEAT121L  140
          1423  5110000126 +                      SA1    SBUFLG                                                  SCANNER   660
                          5130000061 +            SA3    BADLABL                                                 SCANNER   661
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    20
        MAIN LOOP                                                     SCAN13
  
          1424  43600                             MX6    0                                                       SCANNER   662
                     54610                        SA6    A1                                                      SCANNER   663
                          0321001426 +            PL     X1,SCAN15   IF LAST STMT NOT TERMINATED BY $            SCANNER   664
          1425  5160000070 +                      SA6    CONTCNT     CLEAR CONTINUATION CARD COUNT               SCANNER   665
                          0400001431 +            EQ     SCAN16      BYPASS SOURCE LINE COUNT UPDATE             SCANNER   666
                                                                                                                 SCANNER   667
          1426  5120000073 +             SCAN15   SA2    DUKE1       LINE COUNT (BINARY)                         SCANNER   668
                          5140000074 +            SA4    FTNCNT                                                  SCANNER   669
          1427  10622                             BX6    X2                                                      SCANNER   670
                     22704                        LX7    X4                                                      SCANNER   671
                          5160000037              SA6    DUKE        UPDATE BINARY LINE COUNT                    SCANNER   672
          1430  5170000046                        SA7    SCNT        UPDATE START-OF-STMT LINE COUNT FOR 'ERPRO' SCANNER   673
          1431  0303001434 +             SCAN16   ZR     X3,SCAN17   IF NO BAD LABEL                             SCANNER   674
                          13777                   BX7    X7-X7                                                   SCANNER   675
                               54730              SA7    A3                                                      SCANNER   676
          1432  6160777741                        POSTER SEV=FE,NR=E30                                           FCC1388     6
  
  
  
  
                                        **        LEXICALLY SCAN STATEMENT.                                      SCANNER   679
                                                                                                                 SCANNER   680
          1434  0100002366 +             SCAN17   RJ     LEX                                                     SCANNER   681
  
  
  
  
                                        **        TERMINATE STATEMENT SCAN.                                      SCANNER   683
                                                                                                                 SCANNER   684
          1435  5110000033 +                      ELPUT  EOS                                                     SCANNER   685
          1436  5120004000 +                      SA2    PARENS                                                  SCANNER   686
                          5130000001 C            SA3    C$STMT                                                  SCANNER   687
          1437  43401                             MX4    1                                                       FEAT121L  141
                     11634                        BX6    X3*X4                                                   FEAT121L  142
                          20601                   LX6    1           (C$STMT) = +0 IF NEXT STMT IS NOT C$ DEBUG  FEAT121L  143
                                        *                                     =  1 IF NEXT STMT IS C$ DEBUG      FEAT121L  144
                               54630              SA6    A3                                                      FEAT121L  145
          1440  0302001445 +                      ZR     X2,SCAN18   IF PARENS ARE BALANCED                      SCANNER   688
                          0313001445 +            NZ     X3,SCAN18   IF C$ DEBUG STATEMENT                       SCANNER   689
          1441  7130000051                        SX3    1R(                                                     SCANNER   690
                          21273                   AX2    59-0                                                    SCANNER   691
                               43673              MX6    -1                                                      SCANNER   692
          1442  11726                             BX7    X2*X6       (X7) = -1 IF (PARENS) .MI.                  SCANNER   693
                                        *                                 = +0 IF (PARENS) .PL.                  SCANNER   694
                     37337                        IX3    X3-X7                                                   SCANNER   695
                          20352                   LX3    48-6                                                    SCANNER   696
                               43700              MX7    0                                                       SCANNER   697
          1443  54720                             SA7    A2                                                      SCANNER   698
                     13444                        POSTER SEV=FE,NR=E33,FMT=DPC,TXT=X3  *UNMATCHED PARENTHESIS*   SCANNER   699
          1445  5140000024               SCAN18   SA4    TYPE                                                    SCANNER   700
                          5110000034              SA1    LELIST                                                  SCANNER   701
          1446  0324001450 +                      PL     X4,SCAN19   IF TYPE WAS DETERMINED                      SCANNER   702
                                                                                                                 SCANNER   703
                                        *         SET TYPE *BAD* FOR ERRONEOUS STATEMENT SO THAT THE PHASE       SCANNER   704
                                        *         CONTROLLER CAN PROCESS THE LABEL DEFINITION, IF ANY, AND       SCANNER   705
                                        *         CAN TURN C$ DEBUG OPTIONS ON OR OFF.                           SCANNER   706
                                                                                                                 SCANNER   707
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    21
        MAIN LOOP                                                     SCAN17
  
                          7170000022              SX7    ST.BAD      *BAD* STATEMENT TYPE CODE                   SCANNER   708
          1447  10477                             BX4    X7                                                      SCANNER   709
                     54740                        SA7    A4                                                      SCANNER   710
          1450  0301001461 +             SCAN19   ZR     X1,SCAN21   IF NOT ONE-BRANCH *IF*                      SCANNER   711
                          0321001456 +            PL     X1,SCAN20   IF OBJECT OF *IF* ALREADY TYPED             SCANNER   712
          1451  5130000000 X                      SA3    ELAST                                                   SCANNER   713
                          5150000032              SA5    SELIST                                                  SCANNER   714
          1452  10744                             BX7    X4                                                      SCANNER   715
                     43073                        MX0    -1                                                      SCANNER   716
                          7263777775              SX6    X3-2                                                    SCANNER   717
          1453  5170000021                        SA7    LTYPE                                                   SCANNER   718
                          54630                   SA6    A3                                                      SCANNER   719
                               10755              BX7    X5                                                      SCANNER   720
          1454  36660                             IX6    X6+X0                                                   SCANNER   721
                     54710                        SA7    A1                                                      SCANNER   722
                          54650                   SA6    A5                                                      SCANNER   723
                               43774              MX7    -0                                                      SCANNER   724
          1455  54740                             SA7    A4                                                      SCANNER   725
                     0400001434 +                 EQ     SCAN17      LEXICALLY SCAN OBJECT OF ONE-BRANCH *IF*    SCANNER   726
                                                                                                                 SCANNER   727
                                        *         UNSWITCH ONE BRANCH *IF* TYPE CODES AND POINTERS.              SCANNER   728
                                        *                                                                        SCANNER   729
                                        *         (LELIST)=ADDR OF BEGINNING OF *ELIST* FOR ENTIRE STMT.         SCANNER   730
                                        *         (SELIST)=ADDR OF BEGINNING OF *ELIST* FOR OBJECT OF *IF*.      SCANNER   731
                                        *         (LTYPE)=STMT TYPE CODE FOR 1ST *IF*.                           SCANNER   732
                                        *         (TYPE)=STMT TYPE CODE FOR OBJECT OF ONE BRANCH *IF*.           SCANNER   733
                                        *                                                                        SCANNER   734
                                        *         E.G. - IF (A.EQ.B) GOTO  100                                   SCANNER   735
                                        *                '  '         '    '                                     SCANNER   736
                                        *           (LTYPE)(LELIST) (TYPE)(SELIST)                               SCANNER   737
                                        *                                                                        SCANNER   738
          1456  5120000032               SCAN20   SA2    SELIST                                                  SCANNER   739
                          10611                   BX6    X1                                                      SCANNER   740
                               22702              LX7    X2                                                      SCANNER   741
          1457  5130000021                        SA3    LTYPE                                                   SCANNER   742
                          54620                   SA6    A2                                                      SCANNER   743
                               10633              BX6    X3                                                      SCANNER   744
          1460  54710                             SA7    A1                                                      SCANNER   745
                     22704                        LX7    X4                                                      SCANNER   746
                          54640                   SA6    A4                                                      SCANNER   747
                               54730              SA7    A3                                                      SCANNER   748
                                                                                                                 SCANNER   749
          1461  6110000001               SCAN21   SB1    1                                                       SCANNER   750
                          0100000000 X            CALL   TDI         TRANSFER DEBUG INFORMATION                  SCANNER   751
                                                                                                                 SCANNER   752
                                         .T       IFNE   TEST,0                                                  SCANNER   753
                                                  SA1    =XCO.SNAP                                               SCANNER   754
                                                  SX7    B1          (X7) = *EOS* CHECK FLAG ON                  SCANNER   755
                                                  LX1    1RE                                                     SCANNER   756
                                                  PL     X1,SCAN22   IF SNAP=E NOT SELECTED                      SCANNER   757
                                                  AX1    59                                                      SCANNER   758
                                                  BX6    X1*X7       (X6) = LIST CONTROL FLAG                    SCANNER   759
                                                  RJ     DEL         DUMP E-LIST                                 SCANNER   760
                                         SCAN22   BSS    0                                                       SCANNER   761
                                         .T       ENDIF                                                          SCANNER   762
                                                                                                                 SCANNER   763
          1462  5140000024                        SA4    TYPE                                                    SCANNER   764
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    22
        MAIN LOOP                                                     SCAN17
  
                          5150003734 +            SA5    NANSI       NON-ANSI TYPE SHIFT WORD                    SCANNER   765
          1463  5130003774 +                      SA3    NAFLG                                                   SCANNER   766
                          6274000000              SB7    X4+         (B7)=STMT TYPE CODE                         SCANNER   767
          1464  22075                             LX0    B7,X5                                                   SCANNER   768
                     12630                        BX6    X3+X0                                                   SCANNER   769
                          0326001313 +            PL     X6,SCANNER  IF NOT NON-ANSI KEYWORD, EXIT...            SCANNER   770
          1465  6160777324                        POSTER SEV=ANSI,NR=E299   *THIS STMT IS A NON-ANSI STMT*       SCANNER   771
          1467  5140000024                        SA4    TYPE                                                    SCANNER   772
                          6110000001              SB1    1                                                       SCANNER   773
          1470  63740                             SB7    X4                                                      SCANNER   774
                     0400001313 +                 EQ     SCANNER     EXIT...                                     SCANNER   775
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    23
        SUBROUTINES                                                   ADD1
  
                                        ***                                                                      SCANNER   778
                                        *         ADD1 - ADD WORD TO ELIST, GET NEXT CHARACTER, EXIT ON B1       SCANNER   779
                                        *                                                                        SCANNER   780
          1471  5120000000 X             ADD1     SA2    LWAWORK     ADDRESS OF LAST E-LIST ENTRY                SCANNER   781
                          53410                   SA4    X1          FETCH WORD TO BE STORED IN E-LIST           SCANNER   782
                               43515              MX5    -1R.        SHIFT TEST MASK FOR ILLEG CHARS 00B, 60_77B SCANNER   783
          1472  5110000066 +                      SA1    COLS        NEXT COLUMN COUNTER                         SCANNER   784
                          7262777776              SX6    X2-1        CURRENT E-LIST ENTRY ADDRESS                SCANNER   785
          1473  5130000000 X                      SA3    FWAWORK     END ADDRESS (LOWEST) OF E-LIST              SCANNER   786
                          10744                   BX7    X4                                                      SCANNER   787
                               54620              SA6    A2          UPDATE ENTRY ADDRESS                        SCANNER   788
          1474  5241001210 +                      SA4    X1+SBUFF    GET NEXT COLUMN                             SCANNER   789
                          37036                   IX0    X3-X6                                                   SCANNER   790
                               53760              SA7    X6          STORE THE NEW ENTRY IN E-LIST               SCANNER   791
          1475  0330001476 +                      MI     X0,ADD1.2   IF E-LIST SPACE NOT FULL                    SCANNER   792
                          0400002160 +            EQ     ERP1                                                    SCANNER   793
                                                                                                                 SCANNER   794
          1476  6274007777               ADD1.2   SB7    X4+7777B    BIAS ILLEGAL CHAR TO 7777B OR 10057_10076B  SCANNER   795
                          23075                   AX0    B7,X5       B7 IS TRANSFERRED TO SHIFT UNIT MODULO 64   SCANNER   796
                               63240              SB2    X4          SAVE CHARACTER FOR NEXT USER                SCANNER   797
          1477  0300001501 +                      ZR     X0,ADD1.4   IF ILLEGAL CHARACTER OR E-O-L               SCANNER   798
                          7074776570 -            SX7    A4-SBUFF+1                                              SCANNER   799
          1500  5170000066 +             ADD1.3   SA7    COLS        UPDATE COLUMN POINTER                       SCANNER   800
                          0211000000              JP     B1          EXIT TO NEXT STATE                          SCANNER   801
                                                                                                                 SCANNER   802
          1501  0100003230 +             ADD1.4   RJ     PGCOM                                                   SCANNER   803
          1502  0540001476 +                      NZ     B4,ADD1.2   IF NOT STARTING DELIMITED HOLLERITH STRING  SCANNER   804
                          7074776570 -            SX7    A4-SBUFF+1                                              SCANNER   805
          1503  0400001500 +                      EQ     ADD1.3                                                  SCANNER   806
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    24
        ADJ - REMOVE LEADING LABEL AND/OR VARIABLE FROM STRING.       ADJ 
  
                                        **        ADJ - REMOVE LEADING LABEL AND/OR VARIABLE FROM STRING         SCANNER   808
                                        *                                                                        SCANNER   809
                                        *                REMOVES A LABEL AND/OR A VARIABLE NAME FROM THE         SCANNER   810
                                        *         KEYWORD STRING AND MAKES THE APPROPRIATE *ELIST* ENTRIES FOR   SCANNER   811
                                        *         THEM. CONSIDER THE STATEMENT --                                SCANNER   812
                                        *                                                                        SCANNER   813
                                        *                DO100IV=1,10                                            SCANNER   814
                                        *                                                                        SCANNER   815
                                        *                UPON ENTRY TO *ADJ*, *SRCH* WILL ALREADY HAVE STRIPPED  SCANNER   816
                                        *         OFF THE KEYWORD *DO*. *ADJ* SPLITS *100IV* INTO *100* AND *IV* SCANNER   817
                                        *         AND MAKES THE *ELIST* ENTRIES FOR THEM.                        SCANNER   818
                                        *                                                                        SCANNER   819
                                        *         ENTRY  (KEYL) = 12/2000B+NR CHRS IN STRING,48/NR WDS IN STRING SCANNER   820
                                        *                (KEYW) = KEYWORD STRING, WITHOUT THE KEYWORD, LEFT      SCANNER   821
                                        *                         JUSTIFIED, ZERO FILL.                          SCANNER   822
                                        *                (B1)  =  NEXT *LEX-N-* JUMP ADDRESS.                    SCANNER   823
                                        *                (B2)  =  NEXT CHARACTER IN STATEMENT.                   SCANNER   824
                                        *         EXIT   (B1)  =  UNCHANGED                                      SCANNER   825
                                        *                (B2)  =  UNCHANGED                                      SCANNER   826
                                        *         USES   ALL REGISTERS EXCEPT B1,B2.                             SCANNER   827
                                        *                                                                        SCANNER   828
                                        *         CALLS  PVN                                                     SCANNER   829
                                        *                MCE                                                     SCANNER   830
                                                                                                                 SCANNER   831
          1504  0400401504 +             ADJ      SUBR               ** ENTRY/EXIT **                            SCANNER   832
          1505  5120000077 +                      SA2    KEYL                                                    SCANNER   833
                          46000                   NO                                                             SCANNER   834
                               26232              UX2    B3,X2       (B3)=NR CHAR LEFT IN *KEYW*                 SCANNER   835
          1506  0430001504 +                      ZR     B3,EXIT.    IF NOTHING LEFT                             SCANNER   836
                          5110000100 +            SA1    KEYW                                                    SCANNER   837
          1507  5120003626 +                      SA2    =05050505050505050505B                                  SCANNER   838
                          5140003627 +            SA4    =40404040404040404040B                                  SCANNER   839
          1510  36312                             IX3    X1+X2       (X3)=SIGN BIT FOR EACH CHAR THAT WAS DIGIT  SCANNER   840
                                        *                              WILL BE ON.                               SCANNER   841
                     7170000000                   SX7    0                                                       SCANNER   842
                               15643              BX6    -X3*X4      EXTRACT *SIGN* BITS FOR LETTERS             SCANNER   843
          1511  5170000105 +                      SA7    LCON                                                    SCANNER   844
                          0323001533 +            PL     X3,ADJ3     IF A NAME                                   SCANNER   845
                                                                                                                 SCANNER   846
                                        *         EXTRACT LABEL FROM   LABEL ALPHANUMERIC.                       SCANNER   847
                                                                                                                 SCANNER   848
          1512  21614                             AX6    12                                                      SCANNER   849
                     27706                        PX7    X6                                                      SCANNER   850
                          46000                   NO                                                             SCANNER   851
                               24047              NX0    B4,X7       (B4)=6*NR DIGITS IN LABEL                   SCANNER   852
          1513  0300002206 +                      ZR     X0,ERP9     IF MORE THAN 7 DIGITS IN LABEL              SCANNER   853
                          67645                   SB6    B4-B5                                                   SCANNER   854
                               43701              MX7    1                                                       SCANNER   855
          1514  23067                             AX0    B6,X7       (X0)=MASK(6*NR CHRS IN LABEL)               SCANNER   856
                     11404                        BX4    X0*X4                                                   SCANNER   857
                          47544                   CX5    X4                                                      SCANNER   858
                               63750              SB7    X5          (B7)=NR OF DIGITS IN LABEL                  SCANNER   859
          1515  11201                             BX2    X0*X1       EXTRACT LABEL                               SCANNER   860
                     5130003612 +                 SA3    =10H                                                    SCANNER   861
                               15430              BX4    -X0*X3      AND SPACE FILL IT                           SCANNER   862
          1516  12624                             BX6    X2+X4                                                   SCANNER   863
                     5160000105 +                 SA6    LCON                                                    SCANNER   864
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    25
        ADJ - REMOVE LEADING LABEL AND/OR VARIABLE FROM STRING.       ADJ 
  
                                                                                                                 SCANNER   865
                                        *         LEFT JUSTIFY REST OF STRING.                                   SCANNER   866
                                                                                                                 SCANNER   867
                               15110              BX1    -X0*X1      MASK OFF LABEL FROM REST OF STRING          SCANNER   868
          1517  54215                             SA2    A1+B5                                                   SCANNER   869
                     11302                        BX3    X0*X2                                                   SCANNER   870
                          36031                   IX0    X3+X1                                                   SCANNER   871
                               22140              LX1    B4,X0                                                   SCANNER   872
          1520  67337                             SB3    B3-B7       ADJUST CHAR COUNT                           SCANNER   873
                                                                                                                 SCANNER   874
                                        *         FORM *ELIST* ENTRY FOR AN INTEGER LABEL.                       SCANNER   875
                                                                                                                 SCANNER   876
                     76370                        SX3    B7                                                      SCANNER   877
                          5120001544 +            SA2    ADJA                                                    SCANNER   878
          1521  5150000063 +                      SA5    CCSTO       (X5)=*CONSTOR* ADDR FOR LABEL               SCANNER   879
                          20322                   LX3    18                                                      SCANNER   880
                               12623              BX6    X2+X3                                                   SCANNER   881
          1522  5140000032                        SA4    SELIST                                                  SCANNER   882
                          36665                   IX6    X6+X5       12/2000,3/1,9/0,18/NR DGTS,18/(CCSTO)       SCANNER   883
          1523  0430001524 +                      ZR     B3,ADJ2     IF NO VARIABLE                              SCANNER   884
                          7244000001              SX4    X4+1                                                    SCANNER   885
                                                                                                                 SCANNER   886
                                        *         ADJUST (SELIST).                                               SCANNER   887
                                                                                                                 SCANNER   888
          1524  53645                    ADJ2     SA6    X4+B5                                                   SCANNER   889
                     74760                        SX7    A6          ADJUST ELIST START ADDRESS                  SCANNER   890
                          5074000000              SA7    A4+                                                     SCANNER   891
          1525  0430001537 +                      ZR     B3,ADJ4     IF NOTHING LEFT                             SCANNER   892
                          5120000024              SA2    TYPE                                                    SCANNER   893
          1526  7232777761                        SX3    X2-ST.ASG                                               SCANNER   894
                          0313001533 +            NZ     X3,ADJ3     IF NOT AN *ASSIGN* STMT                     SCANNER   895
                                                                                                                 SCANNER   896
                                        *         PROCESS *ASSIGN* STATEMENT.                                    SCANNER   897
                                                                                                                 SCANNER   898
          1527  43014                             MX0    12                                                      SCANNER   899
                     11201                        BX2    X0*X1                                                   SCANNER   900
                          46000                   NO                                                             SCANNER   901
                               20214              LX2    12                                                      SCANNER   902
          1530  7232775360                        SX3    X2-2RTO                                                 SCANNER   903
                          0313002205 +            NZ     X3,ERP8     IF *TO* MISSING                             SCANNER   904
          1531  6133777775                        SB3    B3-2        ADJUST CHAR COUNT                           SCANNER   905
                          15110                   BX1    -X0*X1                                                  SCANNER   906
                               20114              LX1    12                                                      SCANNER   907
          1532  0430002205 +                      ZR     B3,ERP8     IF NAME MISSING                             SCANNER   908
                                                                                                                 SCANNER   909
                                        *         PROCESS VARIABLE NAME.                                         SCANNER   910
                                                                                                                 SCANNER   911
          1533  20160                    ADJ3     LX1    -12                                                     SCANNER   912
                     6163000000                   SB6    B3+         NR CHRS IN NAME                             SCANNER   913
                               10611              BX6    X1          12/0,48/NAME,DPC LEFT JUST, ZERO FILL       SCANNER   914
          1534  0100003344 +                      RJ     PVN         PROCESS VARIABLE NAME                       SCANNER   915
          1535  5130000105 +                      SA3    LCON                                                    SCANNER   916
                          5140000032              SA4    SELIST                                                  SCANNER   917
          1536  0303001542 +                      ZR     X3,ADJ5     IF NO PRECEDING LABEL                       SCANNER   918
                          5264777776              SA6    X4-1        NAME TO ELIST                               SCANNER   919
                                                                                                                 SCANNER   920
                                        *         PROCESS LABEL.                                                 SCANNER   921
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    26
        ADJ - REMOVE LEADING LABEL AND/OR VARIABLE FROM STRING.       ADJ 
  
                                                                                                                 SCANNER   922
          1537  5130000105 +             ADJ4     SA3    LCON                                                    SCANNER   923
                          10633                   BX6    X3                                                      SCANNER   924
          1540  0100002770 +                      RJ     MCE         MAKE *CONSTOR* ENTRY                        SCANNER   925
          1541  0400001504 +                      EQ     EXIT.                                                   SCANNER   926
                                                                                                                 SCANNER   927
          1542  53645                    ADJ5     SA6    X4+B5       STORE NAME IN ELIST                         SCANNER   928
                     7274000001                   SX7    X4+1        UPDATE *SELIST*                             SCANNER   929
                               54740              SA7    A4                                                      SCANNER   930
          1543  0400001504 +                      EQ     EXIT.                                                   SCANNER   931
                                                                                                                 SCANNER   932
                                        *         INTEGER LABEL *ELIST* ENTRY SKELETON.                          SCANNER   933
                                                                                                                 SCANNER   934
          1544  20001000000000000000     ADJA     VFD    12/2000B,3/1,27/0,18/0                                  SCANNER   935
  
  
  
  
                                        ***                                                                      SCANNER   937
                                        *         ANSIERP - NON-ANSI DIAGNOSTIC REPORTING INTERFACE              SCANNER   938
                                        *                                                                        SCANNER   939
                                        *         ON ENTRY - X0 = ERROR NUMBER                                   SCANNER   940
                                        *                                                                        SCANNER   941
                                        *         REGISTERS SAVED AND RESTORED -       X3,   X5,X6               SCANNER   942
                                        *                                        B1,B2,B3,      B6               SCANNER   943
                                                                                                                 SCANNER   944
                                                                                                                 SCANNER   945
          1545  0400401545 +             ANSIERP  SUBR               ** ENTRY/EXIT **                            SCANNER   946
          1546  0100003425 +                      RJ     SAV         SAVE PACKING REGISTERS                      FEAT121L  146
          1547  63600                             SB6    X0          (B6) = ERROR MESSAGE NUMBER                 SCANNER   948
                     6170001551 +                 POSTER SEV=ANSI,NR=**                                          SCANNER   949
          1551  0100003372 +                      RJ     RES         RESTORE PACKING REGISTERS                   FEAT121L  147
          1552  0400001545 +                      EQ     EXIT.                                                   SCANNER   951
  
  
  
  
                                        **        AWE - ADD WORD TO E-LIST.                                      SCANNER   953
                                        *                                                                        SCANNER   954
                                        *                                                                        SCANNER   955
                                        *         ENTRY  (X1) = WORD TO BE ADDED TO E-LIST                       SCANNER   956
                                        *                                                                        SCANNER   957
                                        *         USES   X - 2, 3, 6, 7                                          SCANNER   958
                                        *                A - 2, 3, 6, 7                                          SCANNER   959
                                        *                B - 3, 4                                                SCANNER   960
                                        *                                                                        SCANNER   961
                                        *         CALLS  NONE                                                    SCANNER   962
                                                                                                                 SCANNER   963
                                                                                                                 SCANNER   964
          1553  0400401553 +             AWE      SUBR               ** ENTRY/EXIT **                            SCANNER   965
          1554  5120000000 X                      SA2    =XLWAWORK                                               SCANNER   966
                          5130000000 X            SA3    =XFWAWORK                                               SCANNER   967
          1555  10611                             BX6    X1                                                      SCANNER   968
                     6232777776                   SB3    X2-1                                                    SCANNER   969
                               63430              SB4    X3                                                      SCANNER   970
          1556  56630                             SA6    B3          WORD TO E-LIST                              SCANNER   971
                     7173000000                   SX7    B3+                                                     SCANNER   972
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    27
        ADJ - REMOVE LEADING LABEL AND/OR VARIABLE FROM STRING.       AWE 
  
                               54720              SA7    A2          ADVANCE E-LIST POINTER                      SCANNER   973
          1557  0743001553 +                      GT     B3,B4,EXIT. IF E-LIST OVERFLOW NOT IMPENDING            SCANNER   974
                          0400002160 +            EQ     ERP1                                                    SCANNER   975
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    28
        CLASSIFY AND BURST LINE                                       CBL 
  
                                        **        CBL - CLASSIFY AND BURST LINE.                                 SCANNER   977
                                        *                                                                        SCANNER   978
                                        *                *CBL* DOES THE FOLLOWING FOR EACH SOURCE LINE ...       SCANNER   979
                                        *         1.  UPDATES SOURCE LINE COUNT.                                 SCANNER   980
                                        *         2.  CLASSIFIES THE LINE INTO ONE OF THESE CATEGORIES --        SCANNER   981
                                        *             A.  COMMENT LINE.                                          SCANNER   982
                                        *             B.  INITIAL STATEMENT LINE.                                SCANNER   983
                                        *             C.  CONTINUATION LINE.                                     SCANNER   984
                                        *             D.  C$ DEBUG LINE.                                         SCANNER   985
                                        *             E.  C/ LIST LINE.                                          FEAT126BB   4
                                        *         3.  UPDATES OR RESETS CONTINUATION LINE COUNT.                 SCANNER   986
                                        *         4.  EXTRACTS LABEL.                                            SCANNER   987
                                        *         5.  BURSTS LINE TO *SBUFF*, ONE CHARACTER PER WORD, WITH       SCANNER   988
                                        *             BLANKS SQUEEZED OUT.                                       SCANNER   989
                                        *                                                                        SCANNER   990
                                        *                                                                        SCANNER   991
                                        *         ENTRY  (CP.CARD) ET SEQ = PACKED SOURCE LINE.                  SCANNER   992
                                        *                (L.CARD) = SOURCE LINE LENGTH (INCLUDES FULL WORD EOL)  FCC1328X  595
                                        *                (NLABEL) = LABEL OF LAST LINE.                          SCANNER   994
                                        *                                                                        SCANNER   995
                                        *         EXIT   LINE COLUMNS 7-72 BURST TO STRING BUFFER *SBUFF*.       SCANNER   996
                                        *                  BLANKS ARE SQUEEZED OUT.  LEADING BLANK COUNT (LBC)   SCANNER   997
                                        *                  IS PACKED WITH NON-BLANK CHARACTER AS FOLLOWS --      SCANNER   998
                                        *                            12/LBC+2001B, 42/0, 6/CHARACTER             SCANNER   999
                                        *                  *SBUFF* TERMINATOR FORMAT --                          SCANNER  1000
                                        *                            12/-(LBC+2001B),48/-1                       FCC1328X  596
                                        *                                                                        SCANNER  1002
                                        *                LABEL PROCESSING FOR NON-CONTINUATION LINE --           SCANNER  1003
                                        *                  (CLABEL)  = LABEL OF LAST LINE FROM (NLABEL).         SCANNER  1004
                                        *                  (NLABEL)  = NEW LABEL, DPC, LEFT JUSTIFIED, BLANK     SCANNER  1005
                                        *                              FILLED, LEADING ZEROS SQUEEZED OUT.       SCANNER  1006
                                        *                            = .ZR. IF LABEL ABSENT OR NON-NUMERIC (BAD) SCANNER  1007
                                        *                  (BADLABL) = .MI. IF LABEL BAD, ELSE UNCHANGED.        SCANNER  1008
                                        *                  IF CONTINUATION LINE, THE LABEL FIELD IS IGNORED.     SCANNER  1009
                                        *                                                                        SCANNER  1010
                                        *                REGISTER AND CELL CONTENTS --                           SCANNER  1011
                                        *                (A1,X1) = SBUFF,   1ST NON-BLANK CHAR IN STRING BUFFER. SCANNER  1012
                                        *                (A2,X2) = CONTCNT, UPDATED CONTINUATION LINE COUNT.     SCANNER  1013
                                        *                (A3,X3) = DTYPE,   +1 IF C$ DEBUG LINE AND DEBUG ON.    SCANNER  1014
                                        *                        =          +0 IF ELSE.                          SCANNER  1015
                                        *                (A4)    = NLABEL,  NEW LINE LABEL.                      SCANNER  1016
                                        *                   (X4) =          (NLABEL) IF GOOD LABEL PRESENT.      SCANNER  1017
                                        *                        =          .ZR. IF LABEL ABSENT.                SCANNER  1018
                                        *                        =          .NZ. IF LABEL BAD (NON-NUMERIC).     SCANNER  1019
                                        *                (X5)    =          +1 IF COMMENT LINE, +0 IF NOT.       SCANNER  1020
                                        *                (B1)    =          1                                    SCANNER  1021
                                        *                (B5)    =          1                                    SCANNER  1022
                                        *                (COLS)  =          0                                    SCANNER  1023
                                        *                                                                        SCANNER  1024
                                        *         USES   ALL BUT A0.                                             SCANNER  1025
                                        *                                                                        SCANNER  1026
                                        *         CALLS  CDD,CLO,POSTERR                                         FCC1328X  597
                                                                                                                 SCANNER  1028
                                                                                                                 SCANNER  1029
          1560  0400401560 +             CBL      SUBR               ** ENTRY/EXIT **                            SCANNER  1030
                                                                                                                 SCANNER  1031
                                        *         UPDATE SOURCE LINE NUMBERS.                                    SCANNER  1032
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    29
        CLASSIFY AND BURST LINE                                       CBL 
  
                                                                                                                 SCANNER  1033
          1561  5150000073 +                      SA5    DUKE1       INCREMENT BINARY LINE NUMBER                SCANNER  1034
                          5120000074 +            SA2    FTNCNT      INCREMENT DISPLAY-CODED LINE NUMBER         SCANNER  1035
          1562  43673                             MX6    -1                                                      SCANNER  1036
                     6110000001                   SB1    1                                                       SCANNER  1037
                               37756              IX7    X5-X6                                                   SCANNER  1038
          1563  5130003612 +                      SA3    =1H                                                     SCANNER  1039
                          37626                   IX6    X2-X6       (X6) = DPC + 1                              SCANNER  1040
                               43466              MX4    -6                                                      SCANNER  1041
          1564  10177                             BX1    X7          (X1) = BIN + 1                              SCANNER  1042
                     7100000041                   SX0    41B         (X0) = SHIFT TEST MASK FOR CHARS 5 AND +    SCANNER  1043
                               54750              SA7    A5          UPDATE BINARY                               SCANNER  1044
                                                                                                                 SCANNER  1045
                                         .T       IFNE   TEST,0                                                  SCANNER  1046
                                                  SA2    =XCO.SNAP                                               SCANNER  1047
                                                  ZR     X2,CBL1           IF SNAP = 0                           FEAT155E  364
                                                  CALL   CDD                                                     SCANNER  1053
                                                  BX7    X6                                                      SCANNER  1054
                                                  EQ     CBL3        NUMBER EACH SOURCE LINE UNCONDITIONALLY     SCANNER  1055
                                                                                                                 SCANNER  1056
                                         CBL1     BSS    0                                                       SCANNER  1057
                                         .T       ENDIF                                                          SCANNER  1058
                                                                                                                 SCANNER  1059
          1565  15264                             BX2    -X4*X6                                                  SCANNER  1060
                     20026                        LX0    59-1R+                                                  SCANNER  1061
                          63220                   SB2    X2          (B2) = DPC UNITS POSITION CHARACTER         SCANNER  1062
                               10733              BX7    X3          (X7) = 10 BLANKS                            SCANNER  1063
          1566  0305001571 +                      ZR     X5,CBL2     IF LINE 1, NUMBER IT UNCONDITIONALLY        SCANNER  1064
                          22020                   LX0    B2                                                      SCANNER  1065
          1567  0320001572 +                      PL     X0,CBL3     IF LINE NUMBER NOT MULTIPLE OF 5            SCANNER  1066
                          20005                   LX0    1R+-1R5     CHECK 9-0 OVERFLOW (DPC ADD FAILS)          SCANNER  1067
          1570  0330001571 +                      MI     X0,CBL2     IF UNITS CHARACTER = 5 (DPC ADD OK)         SCANNER  1068
                          0100000000 X            CALL   CDD         CONVERT (X1) BINARY TO (X6) DECIMAL DPC     SCANNER  1069
          1571  10766                    CBL2     BX7    X6          (X7) = DPC                                  SCANNER  1070
          1572  5160000074 +             CBL3     SA6    FTNCNT      UPDATE DPC                                  SCANNER  1071
                          5170000000 X            SA7    =XCP.FLIN   DPC OR 10 BLANKS TO SOURCE LISTING BUFFER   SCANNER  1072
                                                                                                                 SCANNER  1073
                                        *         INITIALIZE FOR CLASSIFYING LINE.                               SCANNER  1074
                                                                                                                 SCANNER  1075
          1573  5110000000 X                      SA1    =XCP.CARD   (X1) = SOURCE LINE COLS 1-10                SCANNER  1076
                          5120000107 +            SA2    L.CARD                                                  SCANNER  1077
          1574  5150003612 +                      SA5    =1H         (X5) = TEN BLANKS (THRU *BURST6*)           SCANNER  1079
                          43600                   MX6    0           (X6) = 0 (THRU *CAT6*)                      SCANNER  1080
                               76710              SX7    B1          (X7) = 1 (THRU *LABL3*)                     SCANNER  1081
          1575  6262777776                        SB6    X2-1        (B6) = NR OF USEABLE WORDS IN SOURCE LINE   FCC1328X  598
                                        *                              I.E. DOES NOT INCLUDE FULL WORD EOL MARK  FCC1328X  599
                          43266                   MX2    -6          (X2) = 1-COL EXTRACT MASK (THRU *BURST6*)   SCANNER  1083
          1576  5160000066 +                      SA6    COLS        INITIALIZE COLUMN POINTER                   SCANNER  1085
                                                                                                                 SCANNER  1100
                                        *         CHECK FOR COLUMNS 1-6 BLANK.                                   FEAT121L  150
                                                                                                                 SCANNER  1102
                          43044                   MX0    6*6                                                     FCC1328X  600
                               13315              BX3    X1-X5                                                   SCANNER  1104
          1577  20144                             LX1    6*6         RIGHT ADJ COL 6 FOR FALL-THRU TO 'BURST'    SCANNER  1105
                     11303                        BX3    X0*X3                                                   SCANNER  1106
                          0313001601 +            NZ     X3,CAT2     IF COLUMNS 1_6 NOT ALL BLANK                SCANNER  1107
          1600  5160000070 +                      SA6    CONTCNT     CLEAR CONTINUATION COUNT                    SCANNER  1108
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    30
        CLASSIFY AND BURST LINE                                       CBL 
  
                          0400001652 +            EQ     LABL3       BYPASS FURTHER ANALYSIS; GO UPDATE LABEL    SCANNER  1109
                                         #NL      IFNE   #NL,0                                                   FEAT126B  931
                                                                                                                 FEAT121L  152
                                        *         CHECK FOR C/ LINE.                                             FEAT121L  153
                                                                                                                 FEAT121L  154
          1601  5130003630 +             CAT2     SA3    =6RC/                                                   FEAT121L  155
                          43030                   MX0    -6*6                                                    FEAT121L  156
                               13313              BX3    X1-X3                                                   FEAT121L  157
          1602  46000                             NO                                                             FEAT121L  158
                     15330                        BX3    -X0*X3                                                  FEAT121L  159
                          0313001605 +            NZ     X3,CAT2A    IF NOT *C/    * LINE                        FEAT121L  160
          1603  5160000070 +                      SA6    CONTCNT     CLEAR CONTINUATION COUNT                    FEAT121L  161
                          5170000071 +            SA7    CSSTMT      SET TO *C/ LINE OCCURRED*                   FEAT121L  162
          1604  0400001654 +                      EQ     BURST1      IGNORE LABEL...                             FEAT126BB   5
                                         #NL      ELSE                                                           FEAT121L  164
                                         CAT2     BSS    0                                                       FEAT121L  165
                                         #NL      ENDIF                                                          FEAT121L  166
                                                                                                                 FEAT121L  167
                                        *         CHECK FOR COMMENT (C $ * IN COL 1) LINE.                       FEAT121L  168
                                                                                                                 FEAT121L  169
          1605  20136                    CAT2A    LX1    1*6-6*6     RIGHT JUSTIFY COLUMN 1                      FEAT121L  170
                     5130000002 +                 SA3    COL1MASK    SHIFT TEST MASK FOR C $ *                   SCANNER  1114
                               15012              BX0    -X2*X1      COLUMN 1 ONLY                               SCANNER  1115
          1606  63501                             SB5    X0+B1       PREVENT MODULO 60 PROBLEM, SEE *COL1MASK*   SCANNER  1116
                     6220777774                   SB2    X0-1RC                                                  SCANNER  1117
                               22353              LX3    B5                                                      SCANNER  1118
          1607  0323001617 +                      PL     X3,CAT5     IF NOT ( C $ * ) IN COLUMN 1                SCANNER  1119
                          0420001611 +            ZR     B2,CAT2B    IF -C- IN COL 1                             FEAT121L  171
                                                                                                                 FEAT121L  172
                                        *         HERE IF NON-ANSI COMMENT LINE.                                 FEAT121L  173
                                                                                                                 FEAT121L  174
          1610  5130000113 +                      SA3    NACOM       INCREMENT NON-ANSI COMMENT LINE COUNT       SCANNER  1121
                          73631                   SX6    X3+B1                                                   SCANNER  1122
                               54630              SA6    A3                                                      SCANNER  1123
                                                                                                                 FEAT121L  175
                                        *         CHECK FOR C$ DEBUG LINE.                                       FEAT121L  176
                                                                                                                 FEAT121L  177
          1611  5130000000 X             CAT2B    SA3    DFLAG                                                   FEAT121L  178
                          0303001614 +            ZR     X3,CAT3     IF DEBUG MODE OFF, IT IS A COMMENT CARD     SCANNER  1125
          1612  5130003631 +                      SA3    =5RC$                                                   SCANNER  1126
                          20130                   LX1    -1*6+5*6    RIGHT ADJUST COLUMN 5                       SCANNER  1127
                               13313              BX3    X1-X3                                                   SCANNER  1128
          1613  43036                             MX0    5*6                                                     SCANNER  1129
                     15330                        BX3    -X0*X3                                                  SCANNER  1130
                          0303001615 +            ZR     X3,CAT4     IF DEBUG CARD (AND DEBUG MODE ON)           SCANNER  1131
                                                                                                                 SCANNER  1132
                                        *         HERE IF COMMENT LINE.                                          FEAT121L  179
                                                                                                                 SCANNER  1134
          1614  5170000116 +             CAT3     SA7    NXCOMENT    COMMENT LINE FLAG ON                        SCANNER  1135
                          0400001673 +            EQ     CBL90       BYPASS FURTHER CLASSIFICATION AND BURSTING  SCANNER  1136
                                                                                                                 SCANNER  1137
                                        *         HERE IF C$ DEBUG LINE.                                         FEAT121L  180
                                                                                                                 FEAT121L  181
          1615  5130000001 C             CAT4     SA3    C$STMT                                                  FEAT121L  182
                          20144                   LX1    -5*6+1*6    RIGHT JUSTIFY COLUMN 1                      FEAT121L  183
                               14733              BX7    -X3                                                     FEAT121L  184
          1616  5073000000                        SA7    A3+         SET TO *NEXT STATEMENT IS C$ DEBUG*         FEAT121L  185
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    31
        CLASSIFY AND BURST LINE                                       CBL 
  
                          43700                   MX7    0           SET *THIS STMT IS C$-DEBUG* FLAG FOR *CAT6* FEAT121L  186
                                                                                                                 FEAT121L  187
                                        *         CHECK FOR CONTINUATION LINE.                                   FEAT121L  188
                                                                                                                 SCANNER  1145
          1617  5130000003 +             CAT5     SA3    ZRBLMASK    SHIFT TEST MASK FOR /0/ OR / /              SCANNER  1146
                          20136                   LX1    -1*6+6*6    RIGHT ADJUST COLUMN 6                       SCANNER  1147
                               15012              BX0    -X2*X1                                                  SCANNER  1148
          1620  63500                             SB5    X0                                                      SCANNER  1149
                     22053                        LX0    X3,B5                                                   SCANNER  1150
                          0330001632 +            MI     X0,CAT6     IF NOT A CONTINUATION CARD                  SCANNER  1151
                                                                                                                 SCANNER  1152
                                        *         HERE IF CONTINUATION LINE.                                     FEAT121L  189
                                                                                                                 FEAT121L  190
          1621  5130000070 +                      SA3    CONTCNT                                                 FEAT121L  191
                          73631                   SX6    X3+B1       CONTINUATION COUNT + 1                      FEAT121L  192
                               54630              SA6    A3                                                      FEAT121L  193
          1622  5130000001 C                      SA3    C$STMT                                                  FEAT121L  194
                          0303001627 +            ZR     X3,CAT5.5   IF NOT PROCESSING C$-DEBUG                  FCC1872     7
          1623  0307001627 +                      ZR     X7,CAT5.5   IF C$-DEBUG WITH A C$ IN COLS 1-2           FCC1872     8
                                                                                                                 FCC1872     9
                          0100000000 X            DBGERR (NON-DEBUG CONTINUATION STATEMENT)                      FCC1872    10
          1626  0400001673 +                      EQ     CBL90                                                   FCC1872    11
                                                                                                                 FCC1872    12
          1627  0323001654 +             CAT5.5   PL     X3,BURST1   IF CONTINUATION LINE WITHOUT C$             FCC2119     7
                          5130000010 C            SA3    D.CURT                                                  FCC2119     8
          1630  0333001654 +                      MI     X3,BURST1   IF CURRENT STMT IS C$                       FCC2119     9
                          76710                   SX7    B1          SET COMMENT LINE FLAG                       FCC2119    10
          1631  0400001614 +                      EQ     CAT3        IT IS A COMMENT LINE                        FCC2119    11
                                                                                                                 FEAT121L  200
                                        *         HERE IF NON-CONTINUATION LINE.                                 FEAT121L  201
                                                                                                                 SCANNER  1161
          1632  5160000070 +             CAT6     SA6    CONTCNT     SET CONTINUATION COUNT TO ZERO              SCANNER  1162
                          0307001652 +            ZR     X7,LABL3    IF DEBUG CARD, NO LABEL - BYPASS PACKING    SCANNER  1163
          1633  10033                             BX0    X3          SAVE (X3)                                   FCC1469X   13
                     5130000000 X                 SA3    =XDFLAG                                                 FCC1469X   14
                               21301              AX3    1                                                       FCC1469X   15
          1634  0313001654 +                      NZ     X3,BURST1   IF INPUT FILE= EXTERNAL DEBUG FILE ,IGNORE  FCC1469X   16
                          10300                   BX3    X0          RESTORE (X3)                                FCC1469X   17
                                                                                                                 SCANNER  1164
                                        *         PACK LABEL IN COLS 1 THRU 5 TO (X6).  BLANKS AND LEADING       FCC1328X  601
                                        *           ZEROES ARE IGNORED.                                          FCC1328X  602
                                                                                                                 SCANNER  1166
                               43712              MX7    1R9-1R0+1   DIGIT SHIFT TEST MASK                       SCANNER  1167
          1635  6150000005                        SB5    5           (B5) = COLUMN COUNTER                       SCANNER  1168
                          20741                   LX7    -1R0        POSITION TEST MASK CORRECTLY                SCANNER  1169
          1636  6120000074                        SB2    60          PACKING SHIFT COUNTER                       SCANNER  1170
                          20136                   LX1    -6*6+1*6    RIGHT ADJUST COLUMN 1                       SCANNER  1171
                                                                                                                 SCANNER  1172
                                        *  ????   BEGIN 6600 IN-STACK LOOP                                       SCANNER  1173
                                                                                                                 SCANNER  1174
          1637  0450001646 +             LABL1    ZR     B5,LABL2    IF COLUMNS 1-5 PROCESSED                    SCANNER  1175
                          15012                   BX0    -X2*X1      NEXT COLUMN                                 SCANNER  1176
                               20106              LX1    1*6                                                     SCANNER  1177
          1640  63400                             SB4    X0                                                      SCANNER  1178
                     6155777776                   SB5    B5-1        COLUMN COUNT - 1                            SCANNER  1179
                               22043              LX0    X3,B4       ZERO/BLANK TEST MASK                        SCANNER  1180
          1641  0330001637 +                      MI     X0,LABL1    IF BLANK OR LEADING ZERO                    SCANNER  1181
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    32
        CLASSIFY AND BURST LINE                                       CBL 
  
                          22047                   LX0    X7,B4       DIGIT TEST MASK                             SCANNER  1182
                               76340              SX3    B4                                                      SCANNER  1183
          1642  6122777771                        SB2    B2-6        PACKING SHIFT COUNT - 6                     SCANNER  1184
                          22323                   LX3    B2,X3                                                   SCANNER  1185
                               12663              BX6    X6+X3                                                   SCANNER  1186
          1643  7130040000                        SX3    1BS14       TURN OFF LEADING ZERO SUPPRESS BIT IN MASK  SCANNER  1187
                          0330001637 +            MI     X0,LABL1    IF A LEGAL DIGIT                            SCANNER  1188
                                                                                                                 SCANNER  1189
                                        *  ILLEGAL CHARACTER IN LABEL FIELD                                      SCANNER  1190
                                                                                                                 SCANNER  1191
          1644  43374                             MX3    60          PREVENT FURTHER PACKING                     SCANNER  1192
                     13666                        BX6    X6-X6       CLEAR PACKING REGISTER                      SCANNER  1193
                          5170000061 +            SA7    BADLABL     BAD LABEL FLAG ON                           SCANNER  1194
          1645  0400001637 +                      EQ     LABL1       CONTINUE SCAN SO X1 POSITIONED CORRECTLY    SCANNER  1195
                                                                                                                 SCANNER  1196
                                        *  ''''   END IN-STACK LOOP                                              SCANNER  1197
                                                                                                                 SCANNER  1198
                                        *  FINAL LABEL PROCESSING                                                SCANNER  1199
                                                                                                                 SCANNER  1200
          1646  5140003627 +             LABL2    SA4    =40404040404040404040B                                  FCC1328X  603
                          6170000067              SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS          FCC1328X  604
          1647  0306001652 +                      ZR     X6,LABL3    IF BAD LABEL, BYPASS BLANK FILL...          FCC1328X  605
                          76710                   SX7    B1          REPLACE ZERO FILL WITH BLANK FILL           SCANNER  1202
                               37367              IX3    X6-X7       ?                                           SCANNER  1203
          1650  15036                             BX0    -X6*X3      ?                                           SCANNER  1204
                     46000                        NO                 ?                                           SCANNER  1205
                          11340                   BX3    X4*X0       ?                                           SCANNER  1206
                               22073              LX0    X3,B7       ?                                           SCANNER  1207
          1651  37730                             IX7    X3-X0       ?                                           SCANNER  1208
                     12337                        BX3    X3+X7       ?                                           SCANNER  1209
                          11035                   BX0    X3*X5       ?                                           SCANNER  1210
                               36660              IX6    X6+X0       .... DONE                                   SCANNER  1211
                                                                                                                 SCANNER  1212
          1652  5130000060               LABL3    SA3    NLABEL                                                  SCANNER  1213
                          6100000000              SB0    B0+                                                     SCANNER  1214
          1653  10733                             BX7    X3                                                      SCANNER  1215
                     54630                        SA6    A3          NEW LABEL (NEXT CARD)                       SCANNER  1216
                          5170000023              SA7    CLABEL      PREVIOUS LABEL                              SCANNER  1217
                                                                                                                 SCANNER  1218
                                        *  BURST CARD COLUMNS 7-72 INTO STRING BUFFER; SQUEEZE OUT BLANKS        SCANNER  1219
                                                                                                                 SCANNER  1220
          1654  43301                    BURST1   MX3    1           10-CHARACTER BURST SHIFT COUNTER            SCANNER  1221
                     6140000007                   SB4    7                                                       SCANNER  1222
                               66200              SB2    B0          BLANK COUNTER                               SCANNER  1223
          1655  20344                             LX3    -4*6        INIT 10-CHR COUNTER FOR 4 COLUMNS (7_10)    SCANNER  1224
                     0646001656 +                 LE     B6,B4,BURST1A     IF LINE HAD 80 OR FEWER COLUMNS       SCANNER  1225
                               66640              SB6    B4          LIMIT BURST TO 7 MORE WORDS                 SCANNER  1226
          1656  6150777722               BURST1A  SB5    -1R         (B5) = COMPLEMENTED BLANK                   SCANNER  1227
                          5160001207 +            SA6    SBUFF-1     INITIALIZE BUFFER STORE POINTER             SCANNER  1228
          1657  6130000102                        SB3    72-7+1      (B3) = NR OF COLS REMAINING ON CARD/LINE    FCC1328X  606
                          7170000001              SX7    1                                                       SCANNER  1230
                                                                                                                 SCANNER  1231
                                        *  ????   BEGIN 6600 IN-STACK LOOP                                       SCANNER  1232
                                                                                                                 SCANNER  1233
          1660  20106                    BURST2   LX1    1*6         RIGHT JUSTIFY NEXT COLUMN                   SCANNER  1234
                     66221                        SB2    B2+B1       BLANK COUNT + 1                             SCANNER  1235
                          15612                   BX6    -X2*X1                                                  SCANNER  1236
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    33
        CLASSIFY AND BURST LINE                                       CBL 
  
                               63465              SB4    X6+B5                                                   SCANNER  1237
          1661  20306                             LX3    6           BURST COUNT MASK                            SCANNER  1238
                     67331                        SB3    B3-B1       COLUMN COUNT - 1                            SCANNER  1239
                          0440001663 +            ZR     B4,BURST3   IF BLANK COLUMN, BYPASS STORING IN 'SBUFF'  SCANNER  1240
          1662  27626                             PX6    X6,B2       PACK COLUMN AND (LEADING BLANK COUNT + 1)   SCANNER  1241
                     6120000000                   SB2    B0+         LEADING BLANK COUNT = 0                     SCANNER  1242
                               54661              SA6    A6+B1       NON-BLANK COLUMN TO STRING BUFFER           SCANNER  1243
          1663  0323001660 +             BURST3   PL     X3,BURST2   IF WORD NOT FULLY BURST                     SCANNER  1244
                          6140000012              SB4    10          CONSTANT FOR 'BURST5'                       SCANNER  1245
                                                                                                                 SCANNER  1246
          1664  67661                    BURST4   SB6    B6-B1       WORD COUNT - 1                              SCANNER  1247
                     54111                        SA1    A1+B1       (X1) = NEXT 10 SOURCE COLUMNS               SCANNER  1248
                          0606001667 +            LE     B6,BURST6   IF LAST SOURCE WORD OR ONE BEYOND (FINIS)   SCANNER  1249
                                                                                                                 SCANNER  1250
          1665  37015                    BURST5   IX0    X1-X5       SUBTRACT FULL WORD OF BLANKS                SCANNER  1251
                     0310001660 +                 NZ     X0,BURST2   IF WORD NOT ALL BLANK                       SCANNER  1252
                               66224              SB2    B2+B4       BLANK COUNT + 10                            SCANNER  1253
          1666  67334                             SB3    B3-B4       COLUMN COUNT - 10                           SCANNER  1254
                     0400001664 +                 EQ     BURST4      GET NEXT WORD                               SCANNER  1255
                                                                                                                 SCANNER  1256
                                        *  ''''   END IN-STACK LOOP                                              SCANNER  1257
                                                                                                                 SCANNER  1258
                                        *         HERE IF NO MORE SOURCE WORDS TO BURST --                       FCC1328X  607
                                        *           1. IF COLS 71-72 ARE AVAILABLE, GO BACK AND BURST THEM .OR.  FCC1328X  608
                                        *           2. IF COLS 71-72 ARE NOT AVAILABLE (LINE ENDED BEFORE        FCC1328X  609
                                        *                COL 71) OR HAVE ALREADY BEEN BURST, THEN DONE...        FCC1328X  610
                                                                                                                 FCC1328X  611
          1667  0301001671 +             BURST6   ZR     X1,CRDEND   IF EOL ENCOUNTERED, SOURCE LINE EXHAUSTED   FCC1328X  612
                          0760001671 +            MI     B6,CRDEND   IF JUST FINISHED BURSTING COLS 71 AND 72    FCC1328X  613
          1670  20360                             LX3    -2*CHAR     LIMIT BURST TO 2 CHARS                      FCC1328X  614
                     0400001660 +                 EQ     BURST2      GO BACK FOR COLS 71-72                      FCC1328X  615
                                                                                                                 FCC1328X  616
                                        *         HERE TO MARK END-OF-STRING BUFFER.                             FCC1328X  617
                                                                                                                 FCC1328X  618
          1671  66331                    CRDEND   SB3    B3+B1       (B3) = NR OF COLS REMAINING ON LINE + 1     FCC1328X  619
                     43073                        MX0    -1                                                      FCC1328X  620
                          66223                   SB2    B2+B3       (B2) = NR OF BLANKS (55B) BETWEEN LAST NON- FCC1328X  621
                                        *                                     BLANK CHAR ON LINE AND COL 72  + 1 FCC1328X  622
                               27620              PX6    B2,X0       (X6) = 12/-(LBC+2001B),48/-1                FCC1328X  623
          1672  54661                             SA6    A6+B1                                                   FCC1328X  624
                                                                                                                 SCANNER  1294
                                        *         CHECK C/ LINE FOR LIST DIRECTIVE.                              FEAT121L  202
                                                                                                                 FEAT121L  203
                     0100001711 +                 RJ     CLO         CHECK FOR C/-LIST OPTION                    FEAT121L  204
                                                                                                                 SCANNER  1296
                                        *         PREPARE FOR RETURN TO CALLER.                                  SCANNER  1297
                                                                                                                 SCANNER  1298
          1673  5130000001 C             CBL90    SA3    C$STMT                                                  FCC2119    12
                          10633                   BX6    X3                                                      FCC2119    13
          1674  5160000010 C                      SA6    D.CURT                                                  FCC2119    14
                          5120000070 +            SA2    CONTCNT                                                 FCC2119    15
          1675  0302001677 +                      ZR     X2,CBL91    IF NOT CONTINUATION LINE                    FCC2119    16
                          10033                   BX0    X3                                                      FCC2119    17
                               21073              AX0    59                                                      FCC2119    18
          1676  13630                             BX6    X3-X0       (X6) = ABSOULTE VALUE OF (DTYPE)            FCC2119    19
                     54630                        SA6    A3                                                      FCC2119    20
          1677  5150000116 +             CBL91    SA5    NXCOMENT                                                FCC2119    21
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    34
        CLASSIFY AND BURST LINE                                       CBL 
  
                          43674                   MX6    60D                                                     SCANNER  1300
                               54650              SA6    A5          TENTATIVELY SET *PRIOR COMMENT* STATUS      SCANNER  1301
          1700  0315001560 +                      NZ     X5,EXIT.    IF COMMENT LINE                             SCANNER  1302
                          5110000070 +            SA1    CONTCNT                                                 SCANNER  1303
          1701  43600                             MX6    0                                                       SCANNER  1304
                     54650                        SA6    A5          SET *NO PRIOR COMMENT* STATUS               SCANNER  1305
                          0301001705 +            ZR     X1,CBL95    IF NOT CONTINUATION LINE                    SCANNER  1306
          1702  0325001705 +                      PL     X5,CBL95    IF CONTINUATION NOT PRECEDED BY COMMENT     SCANNER  1307
                          6160777460              POSTERR   SEV=ANSI,NR=E207                                     SCANNER  1308
          1704  6110000001                        SB1    1                                                       SCANNER  1309
          1705  5140000060               CBL95    SA4    NLABEL                                                  SCANNER  1310
                          5150000061 +            SA5    BADLABL                                                 SCANNER  1311
          1706  5110001210 +                      SA1    SBUFF                                                   SCANNER  1312
                          5120000070 +            SA2    CONTCNT                                                 SCANNER  1313
          1707  5130000001 C                      SA3    DTYPE                                                   SCANNER  1314
                          12445                   BX4    X4+X5                                                   SCANNER  1315
                               43500              MX5    0                                                       SCANNER  1316
          1710  6150000001                        SB5    1                                                       SCANNER  1317
                          0400001560 +            EQ     EXIT.                                                   SCANNER  1318
  
  
  
  
                                         #NL      IFNE   #NL,0                                                   FEAT126B  932
                                        **        CLO - CHECK FOR C/-LIST OPTION.                                FEAT121L  207
                                        *                                                                        FEAT121L  208
                                        *                IF THIS LINE HAD A *C/    * IN COLUMNS 1-6,             FEAT121L  209
                                        *         PACK UP TO 10 CHARACTERS FROM THE STRING BUFFER (SBUFF) AND    FEAT121L  210
                                        *         CHECK FOR THE OCCURRENCE OF --                                 FEAT121L  211
                                        *         1) LIST,ALL                                                    FEAT121L  212
                                        *         2) LIST,NONE                                                   FEAT121L  213
                                        *         FOLLOWED BY AN END-OF-LINE MARK.                               FEAT121L  214
                                        *                                                                        FEAT121L  215
                                        *                                                                        FEAT121L  216
                                        *         ENTRY  (CSSTMT)   = .NZ. IF C/ LINE OCCURRED, ELSE .ZR.        FEAT121L  217
                                        *                (B1)       =  1                                         FEAT121L  218
                                        *                                                                        FEAT121L  219
                                        *         EXIT   (CSSTMT)   = 1S59 IF C/-LIST,ALL OCCURRED               FEAT121L  220
                                        *                           =  1   IF C/-LIST,NONE OCCURRED              FEAT121L  221
                                        *                           = +0   IF C/ LINE DID NOT OCCUR OR IF LEGAL  FEAT121L  222
                                        *                                    C/-LIST DIRECTIVE DID NOT OCCUR     FEAT121L  223
                                        *                (NXCOMENT) =  1   IF LEGAL C/-LIST DIRECTIVE DID NOT    FEAT121L  224
                                        *                                    OCCUR, THEN LINE BECOMES A LEGAL    FEAT121L  225
                                        *                                    COMMENT.                            FEAT121L  226
                                        *                                                                        FEAT121L  227
                                        *         USES   X - 0,1,2,3,4,6,7                                       FEAT121L  228
                                        *                A - 1,2,3,4,6,7                                         FEAT121L  229
                                        *                B - 6                                                   FEAT121L  230
                                        *                                                                        FEAT121L  231
                                        *         CALLS  NONE                                                    FEAT121L  232
                                                                                                                 FEAT121L  233
                                                                                                                 FEAT121L  234
          1711  0400401711 +             CLO      SUBR               ** ENTRY/EXIT **                            FEAT121L  235
          1712  5110000071 +                      SA1    CSSTMT                                                  FEAT121L  236
                          5120001210 +            SA2    SBUFF                                                   FEAT121L  237
          1713  0301001711 +                      ZR     X1,EXIT.    IF NOT A C/ LINE                            FEAT121L  238
                          6160000011              SB6    9                                                       FEAT121L  239
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    35
        CLASSIFY AND BURST LINE                                       CLO 
  
          1714  13666                             BX6    X6-X6       (X6) = PACKING REGISTER                     FEAT121L  240
                     7170000001                   SX7    1                                                       FEAT121L  241
                                                                                                                 FEAT121L  242
                                        *         PACK UP TO 10 CHARACTERS FROM *SBUFF* TO X6.                   FEAT121L  243
                                                                                                                 FEAT121L  244
          1715  0332001720 +             CLO2     MI     X2,CLO3     IF EOL SENTINEL                             FEAT121L  245
                          7222000000              SX2    X2+                                                     FEAT121L  246
          1716  20606                             LX6    6                                                       FEAT121L  247
                     6166777776                   SB6    B6-1                                                    FEAT121L  248
                               12662              BX6    X6+X2                                                   FEAT121L  249
          1717  5022000001                        SA2    A2+1                                                    FEAT121L  250
                          0660001715 +            PL     B6,CLO2     IF STILL ROOM IN PACKING REGISTER           FEAT121L  251
                                                                                                                 FEAT121L  252
                                        *         CHECK FOR LEGAL LIST DIRECTIVE.                                FEAT121L  253
                                                                                                                 FEAT121L  254
          1720  5130003636 +             CLO3     SA3    =R.LIST,ALL.                                            FEAT121L  255
                          5140003637 +            SA4    =R.LIST,NONE.                                           FEAT121L  256
          1721  13063                             BX0    X6-X3                                                   FEAT121L  257
                     0300001724 +                 ZR     X0,CLO4     IF *LIST,ALL*                               FEAT121L  258
                               13064              BX0    X6-X4                                                   FEAT121L  259
          1722  0300001725 +                      ZR     X0,CLO5     IF *LIST,NONE*                              FEAT121L  260
                                                                                                                 FEAT121L  261
                                        *         HERE IF COMMENT LINE.                                          FEAT121L  262
                                                                                                                 FEAT121L  263
                          5170000116 +            SA7    NXCOMENT    SET TO *COMMENT LINE* STATUS                FEAT121L  264
          1723  43600                             MX6    0                                                       FEAT121L  265
                     54610                        SA6    A1          SET TO *NOT A C/-LIST DIRECTIVE*            FEAT121L  266
                          0400001711 +            EQ     EXIT.                                                   FEAT121L  267
                                                                                                                 FEAT121L  268
                                        *         HERE IF *LIST,ALL* OCCURRED.                                   FEAT121L  269
                                                                                                                 FEAT121L  270
          1724  43701                    CLO4     MX7    1                                                       FEAT121L  271
                     54710                        SA7    A1          SET TO *LIST,ALL OCCURRED*                  FEAT121L  272
                          0400001726 +            EQ     CLO6                                                    FEAT126BB   6
                                                                                                                 FEAT121L  274
                                        *         HERE IF *LIST,NONE* OCCURRED.                                  FEAT121L  275
                                                                                                                 FEAT121L  276
          1725  7170000001               CLO5     SX7    1                                                       FEAT126BB   7
                          5071000000              SA7    A1+         SET TO *LIST,NONE OCCURRED*                 FEAT126BB   8
                                                                                                                 FEAT126BB   9
                                        *         HERE TO MAKE *NLABEL/CLABEL* TRANSFER.                         FEAT126BB  10
                                                                                                                 FEAT126BB  11
          1726  5110000060               CLO6     SA1    NLABEL                                                  FEAT126BB  12
                          43600                   MX6    0                                                       FEAT126BB  13
                               10711              BX7    X1                                                      FEAT126BB  14
          1727  5061000000                        SA6    A1+                                                     FEAT126BB  15
                          5170000023              SA7    CLABEL                                                  FEAT126BB  16
          1730  0400001711 +                      EQ     EXIT.                                                   FEAT126BB  17
                                         #NL      ELSE                                                           FEAT121L  279
                                         CLO      SUBR                                                           FEAT121L  280
                                                  EQ     EXIT.                                                   FEAT121L  281
                                         #NL      ENDIF                                                          FEAT121L  282
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    36
        CLASSIFY AND BURST LINE                                       DEL 
  
                                        **        DEL - DUMP E-LIST.                                             SCANNER  1320
                                        *                                                                        SCANNER  1321
                                        *                SETS UP PARAMETER LIST AND CALLS FORTRAN SUBROUTINE     SCANNER  1322
                                        *         TO PRODUCE FORMATTED DUMP OF E-LIST.                           SCANNER  1323
                                        *                                                                        SCANNER  1324
                                        *                                                                        SCANNER  1325
                                        *         ENTRY  (X6) = 1 FOR FULL DUMP, = 0 FOR ERRORS DUMP ONLY        SCANNER  1326
                                        *                (X7) = 1 TO REQUEST *EOS* PRESENCE TEST, ELSE = 0       SCANNER  1327
                                        *                                                                        SCANNER  1328
                                        *         EXIT   E-LIST DUMPED.                                          SCANNER  1329
                                        *                (B1) = 1                                                SCANNER  1330
                                        *                                                                        SCANNER  1331
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    SCANNER  1332
                                        *                A - 1, 2, 3, 6, 7                                       SCANNER  1333
                                        *                B - 1                                                   SCANNER  1334
                                        *                                                                        SCANNER  1335
                                        *         CALLS  DMPELST                                                 SCANNER  1336
                                                                                                                 SCANNER  1337
                                                                                                                 SCANNER  1338
                                         .T       IFNE   TEST,0                                                  SCANNER  1339
                                                  QUAL   DEL                                                     SCANNER  1340
                                                                                                                 SCANNER  1341
                                         DEL      SUBR               ** ENTRY/EXIT **                            SCANNER  1342
                                                  SA6    LISTCMD                                                 SCANNER  1343
                                                  SA7    EOSCHK                                                  SCANNER  1344
                                                  SA1    ELAST       (X1) = INVERTED LWA OF E-LIST               SCANNER  1345
                                                  SA2    SELIST      (X2) = INVERTED FWA OF E-LIST               SCANNER  1346
                                                  SA3    LELIST      (X3) = INVERTED FWA OF  LOG *IF* E-LIST     SCANNER  1347
                                                  BX6    X1                                                      SCANNER  1348
                                                  MX4    -1                                                      SCANNER  1349
                                                  SA6    FWAEL                                                   SCANNER  1350
                                                  IX1    X1+X4                                                   SCANNER  1351
                                                  IX7    X2-X1       (X7) = LENGTH OF ALL E-LIST                 SCANNER  1352
                                                  SA7    LENEL                                                   SCANNER  1353
                                                  IX6    X3-X1       (X6) = LENGTH OF E-LIST FOR LOG *IF* TARGET SCANNER  1354
                                                  SA6    LENLEL                                                  SCANNER  1355
                                                  SA1    DELA        (A1,X1) = PARAMETER LIST                    SCANNER  1356
                                                  CALL   DMPELST     DUMP E-LIST                                 SCANNER  1357
                                                  SB1    1                                                       SCANNER  1358
                                                  EQ     EXIT.                                                   SCANNER  1359
                                                                                                                 SCANNER  1360
                                                                                                                 SCANNER  1361
                                                                                                                 SCANNER  1362
                                        *         PARAMETER LIST FOR FORTRAN SUBROUTINE *DMPELST*.               SCANNER  1363
                                                                                                                 SCANNER  1364
                                         DELA     BSS    0                                                       SCANNER  1365
                                                  CON    TYPE                                                    SCANNER  1366
                                                  CON    ATYPE                                                   SCANNER  1367
                                                  CON    LTYPE                                                   SCANNER  1368
                                                  CON    CLABEL                                                  SCANNER  1369
                                                  CON    NLABEL                                                  SCANNER  1370
                                         FWAEL    BSSZ   1           = (ELAST)                                   SCANNER  1371
                                                  CON    1           ADDR OF RA+1                                SCANNER  1372
                                                  BSSZ   1                                                       FEAT121L  283
                                                                                                                 SCANNER  1373
                                                  USE    /DMPEL/                                                 SCANNER  1374
                                         EOSCHK   BSSZ   1                                                       SCANNER  1375
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    37
        CLASSIFY AND BURST LINE                                       DEL 
  
                                         LENEL    BSSZ   1                                                       SCANNER  1376
                                         LENLEL   BSSZ   1                                                       SCANNER  1377
                                         LISTCMD  BSSZ   1                                                       SCANNER  1378
                                                  USE    *                                                       SCANNER  1379
                                         SEL      SPACE  4,8                                                     SCANNER  1380
                                        **        SEL - SNAP E-LIST.                                             SCANNER  1381
                                        *                                                                        SCANNER  1382
                                        *                EXTENSION OF *DEL* FOR SNAPPING E-LIST WITH THE *ELIST* SCANNER  1383
                                        *         MACRO DEFINED IN *FTNTEXT*.  PROVIDES TRACEBACK TO THE ORIGIN  SCANNER  1384
                                        *         OF THE SNAP CALL.  SAVES AND RESTORES ALL REGISTERS.           SCANNER  1385
                                        *                                                                        SCANNER  1386
                                        *         ENTRY  NONE                                                    SCANNER  1387
                                        *                                                                        SCANNER  1388
                                        *         EXIT   NONE                                                    SCANNER  1389
                                        *                                                                        SCANNER  1390
                                        *         USES   NONE.  ALL REGISTERS ARE SAVED AND RESTORED.            SCANNER  1391
                                        *                                                                        SCANNER  1392
                                        *         CALLS  DEL, RESET=, SNAP=                                      SCANNER  1393
                                                                                                                 SCANNER  1394
                                                                                                                 SCANNER  1395
                                         SEL      SUBR               ** ENTRY/EXIT **                            SCANNER  1396
                                                  CALL   SAVE=       SAVE ALL REGISTERS                          SCANNER  1397
                                                  SA1    EXIT.                                                   SCANNER  1398
                                                  SX6    1                                                       SCANNER  1399
                                                  SB1    X6                                                      SCANNER  1400
                                                  LX6    30                                                      SCANNER  1401
                                                  IX7    X1+X6       ADVANCE EXIT ADDRESS PAST BCD PARAMETER     SCANNER  1402
                                                  AX1    30                                                      SCANNER  1403
                                                  SA7    A1                                                      SCANNER  1404
                                                  SA2    X1          FETCH BCD                                   SCANNER  1405
                                                  SX1    X1-1        ADDRESS OF ORIGIN OF DUMP REQUEST           SCANNER  1406
                                                  BX6    X2                                                      SCANNER  1407
                                                  NO                                                             SCANNER  1408
                                                  SA6    SELB        BCD TO DUMP HEADER                          SCANNER  1409
                                                  SB7    SEL2        (B7) = *FRA* RETURN ADDRESS                 SCANNER  1410
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       SCANNER  1411
                                                                                                                 SCANNER  1412
                                         SEL2     SA6    SELC                                                    SCANNER  1413
                                                  NO                                                             SCANNER  1414
                                                  SA7    A6+B1                                                   SCANNER  1415
                                                  LISTL  SELA,L.SELA LIST ORIGIN OF CALL                         SCANNER  1416
                                                  SX6    B1          REQUEST FULL DUMP                           SCANNER  1417
                                                  MX7    0           REQUEST NO TEST FOR *EOS* PRESENCE          SCANNER  1418
                                                  RJ     DEL         DUMP E-LIST                                 SCANNER  1419
                                                  CALL   RESET=      RESTORE REGISTERS                           SCANNER  1420
                                                  EQ     EXIT.                                                   SCANNER  1421
                                                                                                                 SCANNER  1422
                                                                                                                 SCANNER  1423
                                                                                                                 SCANNER  1424
                                         SELA     DATA   H. .                                                    SCANNER  1425
                                         SELB     DATA   H.CALLER BCD.                                           SCANNER  1426
                                                  DATA   H. *** E-LIST DUMP AT.                                  SCANNER  1427
                                         SELC     DATA   C.000000 IN XXXXXXX.                                    SCANNER  1428
                                         L.SELA   =      *-SELA                                                  SCANNER  1429
                                                  SPACE  4,6                                                     SCANNER  1430
                                                  QUAL   *                                                       SCANNER  1431
                                         DEL      =      /DEL/DEL                                                SCANNER  1432
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    38
        CLASSIFY AND BURST LINE                                       DEL 
  
                                                  ENTRY  DEL                                                     SCANNER  1433
                                         SEL      =      /DEL/SEL                                                SCANNER  1434
                                                  ENTRY  SEL                                                     SCANNER  1435
                                         .T       ENDIF                                                          SCANNER  1436
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    39
        PROCESS NUMERIC CONSTANT                                      DIGIT 
  
                                        * DIGIT WHEN A CONSTANT STARTS WITH A DIGIT                              SCANNER  1438
                                                                                                                 SCANNER  1439
          1731  7170000001               DIGIT    SX7       1                                                    SCANNER  1440
                          5170003770 +            SA7       CAD                                                  SCANNER  1441
          1732  5170000072 +                      SA7       CTYPE     SET TYPE TO INTEGER                        SCANNER  1442
                          76700                   SX7    B0           CONSTANT STRING COUNT STARTS AT 0          SCANNER  1443
          1733  5170000111 +                      SA7       N                                                    SCANNER  1444
          1734  0100003107 +             PK       RJ        PACKC     DIGIT TO STRING                            SCANNER  1445
          1735  0100002273 +                      RJ        GET       NEXT NONBLANK CHARACTER                    SCANNER  1446
          1736  6140000045                        SB4       45B       +                                          SCANNER  1447
                          0724001754 +            LT  B2,B4,CFD       JUMP IF NOT SPECIAL                        SCANNER  1448
          1737  5112001674 +                      SA1    B2+CTAB-45B  LOAD ACTION ADDRESS                        SCANNER  1449
                          63410                   SB4    X1                                                      SCANNER  1450
          1740  0244000000                        JP     B4           JUMP TO ACTION                             SCANNER  1451
  
  
  
  
          1741  00000000000000001772 +   CTAB     VFD    60/TC,60/TC,60/TC,60/TC,60/TC,60/TC,60/TCS,60/TC        SCANNER  1453
          1742  00000000000000001772 +
          1743  00000000000000001772 +
          1744  00000000000000001772 +
          1745  00000000000000001772 +
          1746  00000000000000001772 +
          1747  00000000000000001774 +
          1750  00000000000000001772 +
          1751  00000000000000002216 +            CON    CERP                  SPECIAL HOLLERITH STRING DELIMITR SCANNER  1454
          1752  00000000000000001772 +            CON    TC                    ,                                 SCANNER  1455
          1753  00000000000000001777 +            CON    KD                    .                                 SCANNER  1456
  
  
  
  
          1754  6140000033               CFD      SB4       33B       0                                          SCANNER  1458
                          0624001734 +            GE  B2,B4,PK        DIGIT                                      SCANNER  1459
          1755  6140000005                        SB4       5         E                                          SCANNER  1460
                          0424001762 +            EQ  B2,B4,REXPPP    REAL                                       SCANNER  1461
          1756  6140000004                        SB4       4         D                                          SCANNER  1462
                          0424001764 +            EQ  B2,B4,DEXPPP    DOUBLE                                     SCANNER  1463
          1757  6140000002                        SB4       2         B                                          SCANNER  1464
                          0424002104 +            EQ  B2,B4,OEXP      OCTAL CONSTANT                             SCANNER  1465
          1760  5110000004 +                      SA1    HLRMASK     SHIFT TEST MASK FOR <H> <L> <R>             SCANNER  1466
                          22021                   LX0    B2,X1                                                   SCANNER  1467
          1761  0330002301 +                      MI     X0,HOLLRTH  IF H(OLLERITH), L OR R                      SCANNER  1468
                          0400002216 +            EQ        CERP      GARBAGE                                    SCANNER  1469
          1762  6120000057               REXPPP   SB2       57B       PUT A DECIMAL POINT IN THE STRING          SCANNER  1470
                          0100003107 +            RJ        PACKC          WHEN AN E APPEARS AFTER DIGITS AND    SCANNER  1471
          1763  6120000005                        SB2       05B       NO DECIMAL POINT                           SCANNER  1472
                          0400001766 +            EQ        REXP                                                 SCANNER  1473
          1764  6120000057               DEXPPP   SB2       57B       SAME FOR DOUBLE CONSTANTS                  SCANNER  1474
                          0100003107 +            RJ        PACKC                                                SCANNER  1475
          1765  6120000004                        SB2       04B                                                  SCANNER  1476
                          0400001770 +            EQ        DEXP                                                 SCANNER  1477
          1766  7170000002               REXP     SX7       2                                                    SCANNER  1478
                          5170000072 +            SA7       CTYPE     REAL                                       SCANNER  1479
          1767  5170003771 +                      SA7       EXPEXP    SET EXPECTING EXPONENT FLAG                SCANNER  1480
                          0400002064 +            EQ        IIIIC     PUT E IN STRING AND LOOK AT EXPONENT       SCANNER  1481
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    40
        PROCESS NUMERIC CONSTANT                                      DIGIT 
  
          1770  7170000003               DEXP     SX7       3                                                    SCANNER  1482
                          5170000072 +            SA7       CTYPE     DOUBLE                                     SCANNER  1483
          1771  5170003771 +                      SA7       EXPEXP    SET EXPECTING EXPONENT FLAG                SCANNER  1484
                          0400002064 +            EQ        IIIIC     PUT D IN STRING AND LOOK AT EXPONENT       SCANNER  1485
          1772  0100003120 +             TC       RJ        PACKT     CONSTANT TERMINATED BY THE CHARACTER       SCANNER  1486
          1773  0211000000                        JP        B1             CHARACTER IN B2                       SCANNER  1487
          1774  0100003425 +             TCS      RJ     SAV         SAVE PACKING REGISTERS                      FEAT121L  284
          1775  0100003365 +                      RJ     P$T         PROCESS $ TERMINATOR                        SCANNER  1489
          1776  0400002775 +                      EQ     NEWS                                                    SCANNER  1490
                                                                                                                 SCANNER  1491
          1777  5170003772 +             KD       SA7       HANG.     TURN ON HANGING . BY SAVING COLUMN COUNTER SCANNER  1492
                          0100002273 +            RJ        GET       NEXT CHARACTER                             SCANNER  1493
          2000  76700                             SX7    B0           TURN OFF HANGING .                         SCANNER  1494
                     5170003772 +                 SA7       HANG.                                                SCANNER  1495
                               76520              SX5    B2                                                      SCANNER  1496
          2001  6140000045                        SB4       45B       +                                          SCANNER  1497
                          0724002005 +            LT  B2,B4,KDE       NOT SPECIAL                                SCANNER  1498
          2002  6120000057                        SB2       57B       .                                          SCANNER  1499
                          0100003107 +            RJ        PACKC     . TO STRING                                SCANNER  1500
          2003  63250                             SB2    X5                                                      SCANNER  1501
                     7170000002                   SX7       2         CONSTANT                                   SCANNER  1502
          2004  5170000072 +                      SA7       CTYPE     TYPE IS REAL                               SCANNER  1503
                          0400002042 +            EQ        IIICP                                                SCANNER  1504
          2005  6140000033               KDE      SB4       33B       0                                          SCANNER  1505
                          0724002011 +            LT  B2,B4,KDEQ      NOT DIGIT                                  SCANNER  1506
          2006  6120000057                        SB2       57B       .                                          SCANNER  1507
                          0100003107 +            RJ        PACKC     . TO STRING                                SCANNER  1508
          2007  7170000002                        SX7       2                                                    SCANNER  1509
                          5170000072 +            SA7       CTYPE     CONSTANT TYPE IS REAL                      SCANNER  1510
          2010  63250                             SB2    X5                                                      SCANNER  1511
                     0400002037 +                 EQ        IIIC                                                 SCANNER  1512
          2011  6140000005               KDEQ     SB4       5         E                                          SCANNER  1513
                          0424002017 +            EQ  B2,B4,KDEQE     NOW CHECK FOR EXPONENT                     SCANNER  1514
          2012  6140000004                        SB4       4         D                                          SCANNER  1515
                          0524002015 +            NE  B2,B4,KDEQD     NOT D                                      SCANNER  1516
          2013  6120000057                        SB2       57B       .                                          SCANNER  1517
                          0100003107 +            RJ        PACKC     . TO STRING                                SCANNER  1518
          2014  63250                             SB2    X5                                                      SCANNER  1519
                     0400001770 +                 EQ        DEXP                                                 SCANNER  1520
          2015  0100003120 +             KDEQD    RJ        PACKT     TERMINATE CONSTANT                         SCANNER  1521
          2016  63250                             SB2    X5                                                      SCANNER  1522
                     0400003317 +                 EQ        POINTT    CHECK FOR RELATIONAL                       SCANNER  1523
          2017  43773                    KDEQE    MX7       59                                                   SCANNER  1524
                     5170003771 +                 SA7       EXPEXP    EXPECTING SOMETHING                        SCANNER  1525
          2020  0100002273 +                      RJ        GET       AFTER DIGIT.E                              SCANNER  1526
          2021  43700                             MX7       0                                                    SCANNER  1527
                     5170003771 +                 SA7       EXPEXP    GOT SOMETHING                              SCANNER  1528
          2022  6140000045                        SB4       45B       +                                          SCANNER  1529
                          0624002031 +            GE  B2,B4,POM       SPECIAL                                    SCANNER  1530
          2023  6140000033                        SB4       33B       0                                          SCANNER  1531
                          0724002033 +            LT  B2,B4,KDEQQ                                                SCANNER  1532
          2024  76520                    POMM     SX5    B2           DIGIT                                      SCANNER  1533
                     6120000057                   SB2       57B       .                                          SCANNER  1534
          2025  0100003107 +                      RJ        PACKC     . TO STRING                                SCANNER  1535
          2026  6120000005                        SB2       5                                                    SCANNER  1536
                          0100003107 +            RJ        PACKC     E TO STRING                                SCANNER  1537
          2027  63250                             SB2    X5                                                      SCANNER  1538
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    41
        PROCESS NUMERIC CONSTANT                                      DIGIT 
  
                     7170000002                   SX7       2         CONSTANT                                   SCANNER  1539
          2030  5170000072 +                      SA7       CTYPE     TYPE IS REAL                               SCANNER  1540
                          0400002073 +            EQ        VC        CONTINUE PACKING EXPONENT                  SCANNER  1541
          2031  0424002024 +             POM      EQ  B2,B4,POMM      JUMP FOR +                                 SCANNER  1542
                          6140000046              SB4       46B       -                                          SCANNER  1543
          2032  0424002024 +                      EQ  B2,B4,POMM      JUMP FOR -                                 SCANNER  1544
                          0400002216 +            EQ        CERP      NOT AN EXPONENT OR LOGICAL                 SCANNER  1545
          2033  5150000066 +             KDEQQ    SA5       COLS      RESET                                      SCANNER  1546
                          7275777776              SX7    X5-1        COLUMN COUNTER (COLS = COLS-1).             FCC0566     6
          2034  6120000005                        SB2    1RE         START PROCESSING AT THE *E*.                FCC0566     7
                          54750                   SA7    A5                                                      FCC0566     8
          2035  0100003120 +                      RJ     PACKT       TERMINATE THE INTEGER CONSTANT.             FCC0566     9
          2036  0400003317 +                      EQ     POINTT                                                  FCC0566    10
                                        * IIIC WHEN EITHER .DIGIT OR DIGITS.                                     SCANNER  1552
          2037  0100003107 +             IIIC     RJ     PACKC        DIGIT OR . TO STRING                       SCANNER  1553
          2040  0100002273 +                      RJ        GET       NEXT NONBLANK CHARACTER                    SCANNER  1554
          2041  6140000045                        SB4       45B       +                                          SCANNER  1555
                          0724002060 +            LT  B2,B4,IIICT     NOT SPECIAL                                SCANNER  1556
          2042  6140000060               IIICP    SB4       60B                                                  SCANNER  1557
                          0624002216 +            GE  B2,B4,CERP      BAD CHARACTER                              SCANNER  1558
          2043  5112002000 +                      SA1    B2+RTAB-45B                                             SCANNER  1559
                          63410                   SB4    X1                                                      SCANNER  1560
          2044  0244000000                        JP     B4           JUMP TO ACTION                             SCANNER  1561
  
  
  
  
          2045  00000000000000001772 +   RTAB     VFD    60/TC,60/TC,60/TC,60/TC,60/TC,60/TC,60/TCS,60/TC        SCANNER  1563
          2046  00000000000000001772 +
          2047  00000000000000001772 +
          2050  00000000000000001772 +
          2051  00000000000000001772 +
          2052  00000000000000001772 +
          2053  00000000000000001774 +
          2054  00000000000000001772 +
          2055  00000000000000002216 +            CON    CERP                  SPECIAL HOLLERITH STRING DELIMITR SCANNER  1564
          2056  00000000000000001772 +            CON    TC                    ,                                 SCANNER  1565
          2057  00000000000000001772 +            CON    TC                    .                                 SCANNER  1566
  
  
  
  
          2060  6140000033               IIICT    SB4       33B       0                                          SCANNER  1568
                          0624002037 +            GE  B2,B4,IIIC      DIGIT TO STRING                            SCANNER  1569
          2061  6140000005                        SB4       5         E                                          SCANNER  1570
                          0424001766 +            EQ  B2,B4,REXP                                                 SCANNER  1571
          2062  6140000004                        SB4       4         D                                          SCANNER  1572
                          0424001770 +            EQ  B2,B4,DEXP                                                 SCANNER  1573
          2063  0400002216 +                      EQ        CERP      GARBAGE                                    SCANNER  1574
                                        * IIIIC WHEN EXPECTING AN EXPONENT                                       SCANNER  1575
          2064  0100003107 +             IIIIC    RJ        PACKC     E OR D TO STRING                           SCANNER  1576
          2065  0100002273 +                      RJ        GET       NEXT NON BLANK CHARACTER                   SCANNER  1577
          2066  6140000046                        SB4       46B       -                                          SCANNER  1578
                          0424002073 +            EQ  B2,B4,VC                                                   SCANNER  1579
          2067  6140000045                        SB4       45B       +                                          SCANNER  1580
                          0424002073 +            EQ  B2,B4,VC                                                   SCANNER  1581
          2070  0624002216 +                      GE  B2,B4,CERP      GARBAGE                                    SCANNER  1582
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    42
        PROCESS NUMERIC CONSTANT                                      DIGIT 
  
                          6140000033              SB4       33B       0                                          SCANNER  1583
          2071  0724002216 +                      LT  B2,B4,CERP      GARBAGE                                    SCANNER  1584
                          76700                   SX7    B0                                                      SCANNER  1585
          2072  5170003771 +                      SA7       EXPEXP    TURN OFF EXPECTING EXPONENT FLAG           SCANNER  1586
                                        * VC WHEN PACKING AN EXPONENT                                            SCANNER  1587
          2073  0100003107 +             VC       RJ        PACKC     + - OR DIGIT IN EXPONENT TO CONSTANT STRIN SCANNER  1588
          2074  0100002273 +                      RJ        GET       NEXT NONBLANK CHARACTER                    SCANNER  1589
          2075  6140000045                        SB4       45B       +                                          SCANNER  1590
                          0724002101 +            LT  B2,B4,VCC       NOT SPECIAL                                SCANNER  1591
          2076  6140000060                        SB4       60B                                                  SCANNER  1592
                          0624002216 +            GE  B2,B4,CERP      ILLEGAL CHARACTER                          SCANNER  1593
          2077  5112002000 +                      SA1    B2+RTAB-45B                                             SCANNER  1594
                          63410                   SB4    X1                                                      SCANNER  1595
          2100  0244000000                        JP     B4           JUMP TO ACTION                             SCANNER  1596
          2101  6140000033               VCC      SB4       33B       0                                          SCANNER  1597
                          0724002216 +            LT  B2,B4,CERP      GARBAGE FOR EXPONENT                       SCANNER  1598
          2102  76700                             SX7    B0                                                      SCANNER  1599
                     5170003771 +                 SA7       EXPEXP    TURN OFF EXPECTING EXPONENT FLAG           SCANNER  1600
          2103  0400002073 +                      EQ        VC        PACK THE DIGIT                             SCANNER  1601
          2104  7170000005               OEXP     SX7       5         CODE FOR OCTAL                             SCANNER  1602
                          5170000072 +            SA7       CTYPE                                                SCANNER  1603
          2105  0100003107 +                      RJ        PACKC     B TO STRING                                SCANNER  1604
          2106  0100003120 +                      RJ        PACKT     E-LIST AND CONSTOR ENTRIES                 SCANNER  1605
          2107  7100777472                        SX0    -E197       ERR MSG NR - *NON-ANSI CONSTANT TYPE*       SCANNER  1606
                          0100001545 +            RJ     ANSIERP                                                 SCANNER  1607
          2110  6150000001                        SB5    1                                                       SCANNER  1608
                          0100002273 +            RJ     GET         GET NEXT CHARACTER                          SCANNER  1609
          2111  0211000000                        JP     B1          CONTINUE LEXICAL SCAN...                    SCANNER  1610
  
  
  
  
                                        * PCON WHEN . THEN DIGIT                                                 SCANNER  1612
          2112  43700                    PCON     MX7    0                                                       FCC1086X    6
                     5170000111 +                 SA7    N           INITIALIZE LENGTH OF CONSTANT STRING        FCC1086X    7
          2113  7170000002                        SX7    2                                                       FCC1086X    8
                          5170000072 +            SA7       CTYPE     TYPE TO REAL                               SCANNER  1614
          2114  5170003770 +                      SA7       CAD       STARTING A CONSTANT                        SCANNER  1615
                          76520                   SX5    B2           SAVE DIGIT                                 SCANNER  1616
          2115  6120000057                        SB2       57B       .                                          SCANNER  1617
                          0100003107 +            RJ        PACKC     START STRING WITH .                        SCANNER  1618
          2116  63250                             SB2    X5           DIGIT TO B2                                SCANNER  1619
                     0400002037 +                 EQ        IIIC      .DIGIT                                     SCANNER  1620
  
  
  
  
                                        **        DSL - DUMP SAVED LINES.                                        SCANNER  1622
                                        *                                                                        SCANNER  1623
                                        *                IF THE SOURCE LISTING OPTION IS ON (L .NZ.) AND         SCANNER  1624
                                        *         NO C/-NOLIST IS ACTIVE, CALLS *LSL* TO LIST SAVED LINES.       SCANNER  1625
                                                                                                                 SCANNER  1626
                                                                                                                 SCANNER  1627
          2117  0400402117 +             DSL      SUBR   =           ** ENTRY/EXIT **                            SCANNER  1628
          2120  5110000000 X                      SA1    =XSLIST                                                 SCANNER  1629
                          5120000115 +            SA2    =XNOLIST                                                SCANNER  1630
          2121  43600                             MX6    0                                                       FEAT121L  285
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    43
        PROCESS NUMERIC CONSTANT                                      DSL 
  
                     11712                        BX7    X1*X2                                                   FEAT121L  286
                          5160000076 +            SA6    IEF         *BEFORE HEADER* FLAG OFF                    FEAT121L  287
          2122  0307002117 +                      ZR     X7,EXIT.    IF (L=0) OR C/-LIST,NONE ACTIVE             FEAT121L  288
                          0100002753 +            RJ     LSL         LIST SAVED LINES                            SCANNER  1633
          2123  0400002117 +                      EQ     EXIT.                                                   SCANNER  1634
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    44
        END LINE PROCESSING                                           ENDP
  
                                        **        ENDP - END LINE PROCESSING.                                    SCANNER  1636
                                        *                                                                        SCANNER  1637
                                        *                PERFORMS MISCELLANEOUS HOUSEKEEPING TASKS ASSOCIATED    SCANNER  1638
                                        *         WITH *END* LINE PROCESSING.                                    SCANNER  1639
                                        *                                                                        SCANNER  1640
                                        *         ENTRY  KEYWORD VERIFIED TO BE *END*.                           SCANNER  1641
                                        *                                                                        SCANNER  1642
                                        *         USES   X - 1, 2, 3, 6, 7                                       SCANNER  1643
                                        *                A - 1, 2, 3, 6, 7                                       SCANNER  1644
                                        *                B - 1                                                   SCANNER  1645
                                        *                                                                        SCANNER  1646
                                        *         CALLS  CDD,POSTER,RNC,SLO                                      FCC1328X  625
                                                                                                                 SCANNER  1648
                                                                                                                 SCANNER  1649
          2124  5110000021               ENDP     SA1    LTYPE                                                   SCANNER  1650
                          5120000060              SA2    NLABEL      LABEL ON *END* LINE, IF ONE                 SCANNER  1651
          2125  0311002172 +                      NZ     X1,ERP3     IF *END* IS OBJECT OF LOGICAL *IF*          SCANNER  1652
                          43600                   MX6    0                                                       SCANNER  1653
                               10722              BX7    X2                                                      SCANNER  1654
          2126  5160000060                        SA6    NLABEL                                                  SCANNER  1655
                          5170000023              SA7    CLABEL                                                  SCANNER  1656
          2127  0100003434 +                      RJ     SLO         SET LIST OPTION FLAGS                       FEAT121L  290
          2130  5110000114 +                      SA1    NOEND                                                   SCANNER  1657
                          5120000126 +            SA2    SBUFLG                                                  SCANNER  1658
          2131  0301002133 +                      ZR     X1,END1     IF *END* NOT INVENTED                       SCANNER  1659
                          5160000000 X            SA6    =XCP.CARD   ERASE INVENTED *END*                        SCANNER  1660
          2132  5160000107 +                      SA6    L.CARD                                                  SCANNER  1661
          2133  7170000015               END1     SX7    ST.END      *NORMAL END* STATEMENT TYPE CODE            SCANNER  1662
                          5170000024              SA7    TYPE                                                    SCANNER  1663
          2134  0332002140 +                      MI     X2,END2     IF $ TERMINATED *END*                       SCANNER  1664
                          0312002144 +            NZ     X2,END3     IF NEXT LINE AVAILABLE (*END* CONTINUATION) SCANNER  1665
          2135  0301002140 +                      ZR     X1,END2     IF *END* NOT INVENTED                       SCANNER  1666
                          7170000045              SX7    ST.INV      *INVENTED END* STATEMENT TYPE CODE          SCANNER  1667
          2136  5170000024                        SA7    TYPE                                                    SCANNER  1668
                          6160777734              POSTERR   SEV=INF,NR=E35,RETURN=END4                           SCANNER  1669
                                                                                                                 SCANNER  1670
          2140  6110000001               END2     SB1    1                                                       FCC1328X  626
                          0100003401 +            RJ     RNC         READ NEXT CARD                              FCC1328X  627
          2141  7267000002                        SX6    X7+2                                                    FCC1328X  628
                          5160000110 +            SA6    L.PLINE                                                 FCC1328X  629
          2142  5110000070 +                      SA1    CONTCNT                                                 SCANNER  1672
                          5120000023              SA2    CLABEL                                                  SCANNER  1673
          2143  12612                             BX6    X1+X2                                                   SCANNER  1674
                     0306002146 +                 ZR     X6,END4     IF ANSI *END* LINE                          SCANNER  1675
          2144  6160777731               END3     POSTERR   SEV=ANSI,NR=E38                                      SCANNER  1676
                                                                                                                 SCANNER  1677
                                        *         POST NON-ANSI DIAGNOSTIC SUMMARIES.                            SCANNER  1678
                                                                                                                 SCANNER  1679
          2146  5110000113 +             END4     SA1    NACOM                                                   SCANNER  1680
                          6110000001              SB1    1                                                       SCANNER  1681
          2147  0301002153 +                      ZR     X1,END5     IF NO NON-ANSI COMMENT LINES                SCANNER  1682
                          0100000000 X            CALL   CDD                                                     SCANNER  1683
          2150  20606                             LX6    6                                                       SCANNER  1684
                     10366                        POSTERR   SEV=ANSI,NR=E228,FMT=DPC,TXT=X6                      SCANNER  1685
          2153  5110000112 +             END5     SA1    NABC                                                    SCANNER  1686
                          6110000001              SB1    1                                                       SCANNER  1687
          2154  0301002366 +                      ZR     X1,LEX      IF NO NON-ANSI BLANK LINES, EXIT...         SCANNER  1688
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    45
        END LINE PROCESSING                                           ENDP
  
                          0100000000 X            CALL   CDD                                                     SCANNER  1689
          2155  20606                             LX6    6                                                       SCANNER  1690
                     10366                        POSTERR   SEV=ANSI,NR=E208,FMT=DPC,TXT=X6,RETURN=LEX           SCANNER  1691
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    46
        ERP - COMMON ERROR PROCESSING.                                ERP 
  
                                        **        ERP - COMMON ERROR PROCESSING.                                 FEAT121L  291
                                                                                                                 FEAT121L  292
                                                                                                                 FEAT121L  293
          2160  5110000126 +             ERP1     SA1    SBUFLG                                                  FEAT121L  294
                          0311002163 +            NZ     X1,ERP1B    IF NEXT LINE ALREADY IN *SBUFF*             FEAT121L  295
          2161  0100003040 +             ERP1A    RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE        FEAT121L  296
          2162  0301002161 +                      ZR     X1,ERP1A    IF LINE IS CONTINUED, STRIP...              FEAT121L  297
          2163  6160777743               ERP1B    POSTER SEV=FC,NR=28  *TABLES OVERLAP, INCREASE FL*             FEAT121L  298
                                                                                                                 SCANNER  1701
          2164  5110000001 C             ERP2     SA1    DTYPE                                                   SCANNER  1702
                          0301002171 +            ZR     X1,D.SCN52  IF NOT A DEBUG STATEMENT                    SCANNER  1703
          2165  0100000000 X                      DBGERR   (ILLEGAL FORM)                                        SCANNER  1704
          2170  0400002224 +                      EQ     D.BADC                                                  SCANNER  1705
                                                                                                                 SCANNER  1706
          2171  6160777742               D.SCN52  SB6    -E29        ERR MSG NR - *UNRECOGNIZED STATEMENT*       SCANNER  1707
                          0400002235 +            EQ        PROE                                                 SCANNER  1708
                                                                                                                 SCANNER  1709
          2172  13666                    ERP3     BX6    X6-X6                                                   SCANNER  1710
                     6160777520                   SB6    -E175       ERR MSG NR - *BAD LOGICAL IF*               SCANNER  1711
          2173  5160000034                        SA6    LELIST                                                  SCANNER  1712
                          0400002235 +            EQ     PROE                                                    SCANNER  1713
                                                                                                                 SCANNER  1714
          2174  6160000504               ERP4     SB6    E324        ERROR MSG NO. - UNRECOGNISED OPERATOR       FCC1936     8
                          0400002176 +            EQ     ERP5B                                                   FCC1936     9
                                                                                                                 FCC1936    10
          2175  6160000451               ERP5     SB6    E297        ERROR MSG NO.-*INVALID USE OF CHAR STRING*  FCC1936    11
          2176  5160003777 +             ERP5B    SA6    PAD         TEMP SAVE CHARACTER STRING                  FCC1936    12
                          5140003777 +            SA4    PAD                                                     SCANNER  1726
          2177  43600                             MX6    0                                                       SCANNER  1727
                     27454                        PX4    X4,B5       PACK UP CHARACTER STRING IN ELIST FORMAT    SCANNER  1728
                          54640                   SA6    A4          TURN OFF PACK IN PROGRESS FLAG              SCANNER  1729
          2200  5110003771 +                      SA1    EXPEXP                                                  SCANNER  1730
                          0311002202 +            NZ     X1,ERP5A    IF RELATIONAL PACK IN PROGRESS              SCANNER  1732
          2201  6160000040                        SB6    E32         ERR MSG NR - *NAME TOO LONG*                SCANNER  1733
          2202  54610                    ERP5A    SA6    A1          TURN OFF RELATIONAL FLAG                    SCANNER  1734
                     0400002235 +                 EQ     PROE                                                    SCANNER  1735
                                                                                                                 SCANNER  1736
          2203  6160000045               ERP6     SB6    E37         ERR MSG NR - *ILLEGAL CHARACTER*            FEAT121L  299
                          0400002227 +            EQ     ERP20                                                   SCANNER  1738
                                                                                                                 SCANNER  1739
          2204  6160000471               ERP7     SB6    E313        ERR MSG NR - *ILL SYNTAX AFTER KEYWORD*     SCANNER  1740
                          0400002227 +            EQ     ERP20                                                   SCANNER  1741
                                                                                                                 SCANNER  1742
          2205  6160777620               ERP8     SB6    -E111       ERR MSG NR - *ILL SYNTAX IN ASSIGN STMT*    SCANNER  1743
                          0400002235 +            EQ     PROE                                                    SCANNER  1744
                                                                                                                 SCANNER  1745
          2206  6160777657               ERP9     SB6    -E80        ERR MSG NR - *LAB REF HAS MORE THAN 5 DGTS* SCANNER  1746
                          0400002235 +            EQ     PROE                                                    SCANNER  1747
                                                                                                                 SCANNER  1748
          2207  0100003441 +             ERP10    RJ     SRCH        TRY TO TYPE STMT (RETURNS ONLY IF TYPED)    FEAT121L  300
          2210  0400002204 +                      EQ     ERP7                                                    SCANNER  1753
                                                                                                                 SCANNER  1754
          2211  0100003365 +             ERP11    RJ     P$T         PROCESS $ TERMINATOR                        SCANNER  1755
          2212  0400002204 +                      EQ     ERP7                                                    SCANNER  1756
                                                                                                                 SCANNER  1757
          2213  5110003771 +             ERP12    SA1    EXPEXP                                                  FEAT121L  301
                          6160777742              SB6    -E29        ERR MSG NR - *UNRECOGNIZED STATEMENT*       SCANNER  1760
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    47
        ERP - COMMON ERROR PROCESSING.                                ERP 
  
          2214  0301002235 +                      ZR     X1,PROE     IF NOT PROCESSING RELATIONAL PACK           SCANNER  1762
                          43400                   MX4    0                                                       FEAT121L  302
                               10366              BX3    X6                                                      FEAT121L  303
          2215  6160000451                        SB6    E297        ERR MSG NR - *INVALID USE OF CHAR STRING*   SCANNER  1763
                          0400002235 +            EQ     PROE                                                    SCANNER  1764
                                                                                                                 SCANNER  1765
          2216  6160000321               CERP     SB6    E209        ERR MSG NR - *LAST CHAR SEEN AFTER TROUBLE* SCANNER  1766
                          0400002220 +            EQ     CERPCOM                                                 SCANNER  1767
                                                                                                                 SCANNER  1768
          2217  6160777627               CERP1    SB6    -E104       ERR MSG NR - *INCOMPLETE HOLL CONSTANT*     SCANNER  1769
          2220  5110000001 C             CERPCOM  SA1    DTYPE       DEBUG STATEMENT TYPE                        SCANNER  1770
                          0301002227 +            ZR     X1,ERP20    IF NOT A DEBUG STATEMENT                    SCANNER  1771
          2221  0100000000 X                      DBGERR   (BAD CONSTANT)                                        SCANNER  1772
          2224  76600                    D.BADC   SX6    B0                                                      SCANNER  1773
                     5160003770 +                 SA6    CAD               SET CONSTANT FINISHED FLAG            SCANNER  1774
          2225  5160003771 +                      SA6    EXPEXP            TURN OFF EXPECTING EXPONENT           SCANNER  1775
                          5160003772 +            SA6    HANG.             TURN OFF HANG.                        SCANNER  1776
          2226  5160000024                        SA6    TYPE        STMT TYPE = *BAD DEBUG*                     SCANNER  1777
                          0400002241 +            EQ     NEXTS       STRIP CONTINUATION LINES                    SCANNER  1778
                                                                                                                 SCANNER  1779
          2227  6170000055               ERP20    SB7    1R                                                      SCANNER  1780
                          43600                   MX6    0                                                       SCANNER  1781
                               13777              BX7    X7-X7                                                   SCANNER  1782
          2230  0527002231 +                      NE     B2,B7,ERP20A IF CHAR IS NOT *BLANK*                     SCANNER  1783
                          6120000064              SB2    1R"         REPLACE TRUE CHARACTER                      SCANNER  1784
          2231  5160003770 +             ERP20A   SA6    CAD         CLEAR *CONSTANT PACK-IN-PROGRESS* FLAG      SCANNER  1785
                          5170003771 +            SA7    EXPEXP      CLEAR *HANGING EXPONENT* FLAG               SCANNER  1786
          2232  13444                             BX4    X4-X4                                                   SCANNER  1787
                     76320                        SX3    B2                                                      SCANNER  1788
                          5160003772 +            SA6    HANG.       CLEAR *HANGING PERIOD* FLAG                 SCANNER  1789
          2233  20352                             LX3    48-6                                                    SCANNER  1790
                     5170003777 +                 SA7    PAD         CLEAR *PACK7 PACK-IN-PROGRESS* FLAG         SCANNER  1791
          2234  0620002235 +                      PL     B2,PROE     IF CHAR IS NOT *EOS*                        SCANNER  1792
                          5130003644 +            SA3    =R.STMT-END.                                            SCANNER  1793
          2235  5110000007 C             PROE     SA1    DBGPHCT                                                 FCC1852    11
                          0311002237 +            NZ     X1,PROE2    IF IN DEBUG *EXT. PACKET* PROCESSING        FCC1852    12
          2236  6170002237 +                      POSTER SEV=FE,NR=**                                            FCC1852    13
          2237  5110000126 +             PROE2    SA1    SBUFLG                                                  SCANNER  1795
                          7160000022              SX6    ST.BAD      SET STMT TYPE TO *BAD*                      SCANNER  1796
          2240  5160000024                        SA6    TYPE                                                    SCANNER  1798
                          0311002366 +            NZ     X1,LEX      IF NEXT LINE ALREADY IN *SBUFF*             SCANNER  1800
          2241  0100003040 +             NEXTS    RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE        FEAT121L  304
          2242  0311002775 +                      NZ     X1,NEWS     IF NEW STATEMENT FOUND                      FEAT121L  305
                          0400002241 +            EQ     NEXTS       CONTINUE STRIPPING CONTINUATION CARDS       SCANNER  1802
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    48
        PROCESS FORMAT STATEMENT                                      FORMAT
  
                                        * FORMAT PACKS 10 CHARACTERS/WORD                                        SCANNER  1804
                                                                                                                 SCANNER  1805
          2243  7160000000               FORMAT   SX6    B0+                                                     SCANNER  1806
                          5160004000 +            SA6    PARENS      TO AVOID UNBALANCED PARENS DIAGNOSTIC       SCANNER  1807
          2244  5110000070 +                      SA1    CONTCNT                                                 SCANNER  1808
                          5120000037              SA2    DUKE                                                    SCANNER  1809
          2245  6110000001                        SB1    1                                                       SCANNER  1810
                          6120001210 +            SB2    SBUFF                                                   SCANNER  1811
          2246  36612                             IX6    X1+X2       NR OF CARD WHERE FORMAT BEGINS, FOR ERR MSG SCANNER  1812
                     57121                        SA1    B2-B1       DUMMY READ TO INIT A1                       SCANNER  1813
                          5140000066 +            SA4    COLS                                                    SCANNER  1814
          2247  63242                             SB2    B2+X4       ADDR OF FIRST CHAR AFTER LEFT PAREN         SCANNER  1815
                     5130000032                   SA3    SELIST                                                  SCANNER  1816
                               77701              SX7    -B1         'ERPRO' REQUIRES COL CNT INIT 1 LOW         SCANNER  1817
          2250  5160000064 +                      SA6    CD          STORE CARD NR FOR 'ERPRO'                   SCANNER  1818
                          67221                   SB2    B2-B1       BACK ADDR UP TO LEFT PAREN                  SCANNER  1819
                                                                                                                 SCANNER  1820
                                        *  DETERMINE COLUMN OF FORMAT LEFT PAREN FOR ERROR MSG COMPUTATION       SCANNER  1821
                                                                                                                 SCANNER  1822
          2251  54111                    FORLOOP  SA1    A1+B1       GET NEXT CHARACTER                          SCANNER  1823
                     64310                        SB3    A1                                                      SCANNER  1824
                          26641                   UX6,B4 X1          UNPACK LEADING BLANK AND CHARACTER COUNT    SCANNER  1825
                               73774              SX7    X7+B4       SUM BLANK AND CHARACTER COUNT               SCANNER  1826
          2252  0732002251 +                      LT     B3,B2,FORLOOP IF NOT ADVAN TO COLUMN WITH LEFT PAREN    SCANNER  1827
                          5170000065 +            SA7    COL         STORE AS COLUMN COUNT FOR 'ERPRO'           SCANNER  1828
          2253  6120000060                        SB2    8*6         INITIALIZE PACKING SHIFT COUNT              SCANNER  1829
                          6130000006              SB3    6                                                       SCANNER  1830
          2254  7170000011                        SX7    9                                                       SCANNER  1831
                          7150000055              SX5    1R          DPC BLANK                                   SCANNER  1832
          2255  20666                             LX6    9*6         LEFT JUSTIFY THE LEFT PAREN IN PACKING REG  SCANNER  1833
                     5170000024                   SA7    TYPE        FORMAT STATEMENT TYPE IS 9                  SCANNER  1834
                                                                                                                 SCANNER  1835
                                        *  ????   BEGIN 6600 IN-STACK LOOP                                       SCANNER  1836
                                                                                                                 SCANNER  1837
          2256  54111                    FORMAT1  SA1    A1+B1       GET NEXT CHARACTER TO PACK                  SCANNER  1838
                     10055                        BX0    X5          BLANK FOR PACKING                           SCANNER  1839
                          73441                   SX4    X4+B1       COLUMN COUNT + 1                            SCANNER  1840
                               26241              UX2,B4 X1                                                      SCANNER  1841
                                                                                                                 SCANNER  1842
          2257  0714002261 +             FORMAT2  GT     B4,B1,FORMAT3  IF LEADING BLANK(S) TO INSERT            SCANNER  1843
                          10022                   BX0    X2             CHARACTER FOR PACKING                    SCANNER  1844
          2260  0332002265 +                      MI     X2,FORMAT4     IF E-O-L SENTINEL                        SCANNER  1845
                          0440002256 +            ZR     B4,FORMAT1     IF CHARACTER PACKED                      SCANNER  1846
                                                                                                                 SCANNER  1847
          2261  22120                    FORMAT3  LX1    X0,B2       SHIFT CHAR/BLANK FOR PACKING                SCANNER  1848
                     67441                        SB4    B4-B1       BLANK COUNT - 1                             SCANNER  1849
                          67223                   SB2    B2-B3       PACKING SHIFT COUNT - 6                     SCANNER  1850
                               12661              BX6    X6+X1       PACK CHAR/BLANK                             SCANNER  1851
          2262  0620002257 +                      PL     B2,FORMAT2  IF PACKING REGISTER NOT FULL                SCANNER  1852
                          53630                   SA6    X3          STORE PACKING REGISTER                      SCANNER  1853
          2263  6120000066                        SB2    54          RESET PACKING SHIFT COUNT                   SCANNER  1854
                          7233777776              SX3    X3-1        DECR E-LIST STORE POINTER                   SCANNER  1855
          2264  13666                             BX6    X6-X6       CLEAR PACK REGISTER                         SCANNER  1856
                     0400002257 +                 EQ     FORMAT2                                                 SCANNER  1857
                                                                                                                 SCANNER  1858
                                        *  ''''   END IN-STACK LOOP                                              SCANNER  1859
                                                                                                                 SCANNER  1860
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    49
        PROCESS FORMAT STATEMENT                                      FORMAT
  
          2265  13777                    FORMAT4  BX7    X7-X7                                                   SCANNER  1861
                     53630                        SA6    X3          LAST PACKED WORD TO E-LIST                  SCANNER  1862
                          55761                   SA7    A6-B1       STORE FORMAT LIST TERMINATOR                SCANNER  1863
                               74770              SX7    A7                                                      SCANNER  1864
          2266  5170000000 X                      SA7    ELAST       STORE LAST E-LIST ADDR USED                 SCANNER  1865
                          0100003425 +            RJ     SAV         SAVE PACKING REGISTERS                      FEAT121L  306
          2267  0100003040 +                      RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE        FEAT121L  307
          2270  0311002775 +                      NZ     X1,NEWS     IF NEW STATEMENT FOUND                      FEAT121L  308
                          0100003372 +            RJ     RES         RESTORE PACKING REGISTERS                   FEAT121L  309
          2271  5110001207 +                      SA1    SBUFF-1     DUMMY TO INITIALIZE A1                      SCANNER  1872
                          0400002256 +            EQ     FORMAT1                                                 SCANNER  1873
  
  
  
  
          2272  7074776570 -             GET2     SX7    A4-SBUFF+1                                              SCANNER  1875
                          5170000066 +            SA7    COLS        UPDATE COLUMN POINTER                       SCANNER  1876
                                                                                                                 SCANNER  1877
          2273  0400402273 +             GET      SUBR               ** ENTRY/EXIT **                            SCANNER  1878
          2274  5130000066 +             GET1     SA3    COLS        NEXT COLUMN COUNTER                         SCANNER  1879
                          5243001210 +            SA4    X3+SBUFF    NEXT CHARACTER                              SCANNER  1880
          2275  43515                             MX5    -1R.        SHIFT TEST MASK FOR ILLEG CHARS 00B,60B_77B SCANNER  1881
                     6274007777                   SB7    X4+7777B    BIAS ILLEGAL CHAR TO 7777B OR 10057B_10076B SCANNER  1882
                               23075              AX0    B7,X5       B7 IS TRANSFERRED TO SHIFT UNIT MODULO 64   SCANNER  1883
          2276  63240                             SB2    X4          PUT CHARACTER IN B2 FOR RETURN              SCANNER  1884
                     0310002272 +                 NZ     X0,GET2     IF LEGAL CHARACTER                          SCANNER  1885
          2277  0100003230 +                      RJ     PGCOM       GO CHECK CHAR AND LOOK FOR CONTINUATION     SCANNER  1886
          2300  0540002274 +                      NZ     B4,GET1     IF NOT STARTING DELIMITED HOLLERITH STRING  SCANNER  1887
                          0400002272 +            EQ     GET2                                                    SCANNER  1888
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    50
        PROCESS HOLLERITH CONSTANT                                    HOLLRTH 
  
                                        ***                                                                      SCANNER  1933
                                        *         HOLLRTH - ENTER HOLLERITH CONSTANT IN 'ELIST' AND 'CONSTOR'.   SCANNER  1934
                                        *                                                                        SCANNER  1935
                                        *         ON ENTRY - X6 = STRING LENGTH COUNT, LEFT-ADJ DPC, ZERO FILL.  SCANNER  1936
                                        *                    B1 _ NEXT STATE.                                    SCANNER  1937
                                        *                    B2 = <H>, <L> OR <R> IN DPC, RIGHT-ADJUSTED.        SCANNER  1938
                                        *                                                                        SCANNER  1939
                                        *         ON EXIT -  B1 _ NEXT STATE.                                    SCANNER  1940
                                        *                    B5 = 1                                              SCANNER  1941
                                        *                    ALL OTHER REGISTERS DESTROYED.                      SCANNER  1942
                                        *                                                                        SCANNER  1943
                                        *         NORMAL EXIT - EQ BOSS                                          SCANNER  1944
                                        *         ERROR EXITS - CERP1, ERP2                                      SCANNER  1945
                                        *                                                                        SCANNER  1946
                                        *         SUBROUTINES CALLED - PACKC,PACKT,SCNSAVE,RESTO,NEXT,ANSIERP    SCANNER  1947
                                        *                                                                        SCANNER  1948
          2301  6150000001               HOLLRTH  SB5    1                                                       SCANNER  1949
                          5150000111 +            SA5    N           NR CHARAC IN COUNT STRING                   SCANNER  1950
          2302  13777                             BX7    X7-X7       CLEAR BINARY ACCUMULATOR                    SCANNER  1951
                     20606                        LX6    6                                                       SCANNER  1952
                          7255777765              SX5    X5-10                                                   SCANNER  1953
          2303  0325002164 +                      PL     X5,ERP2     IF TOO MANY CHARACTERS IN COUNT STRING      SCANNER  1954
                          43066                   MX0    -6          1-CHARACTER MASK                            SCANNER  1955
                               13444              BX4    X4-X4       CLEAR INTERMEDIATE HOLDING REGISTER         SCANNER  1956
                                                                                                                 SCANNER  1957
                                        *  CONVERT DISPLAY CODED CHARACTER COUNT TO BINARY                       SCANNER  1958
                                                                                                                 SCANNER  1959
          2304  36277                    HOLL1    IX2    X7+X7       * 2                                         SCANNER  1960
                     20703                        LX7    3           * 8                                         SCANNER  1961
                          15360                   BX3    -X0*X6      NEW DIGIT                                   SCANNER  1962
                               36227              IX2    X2+X7       * 10                                        SCANNER  1963
          2305  20606                             LX6    6                                                       SCANNER  1964
                     36724                        IX7    X2+X4       MERGE NEW DIGIT                             SCANNER  1965
                          7243777744              SX4    X3-1R0      DPC TO BINARY                               SCANNER  1966
          2306  0324002304 +                      PL     X4,HOLL1    IF NOT END OF DPC COUNT STRING              SCANNER  1967
                          63670                   SB6    X7                                                      SCANNER  1968
                                                                                                                 SCANNER  1969
                                        *  PARTIALLY ASSEMBLE E-LIST ENTRY WORD FOR THE CONSTANT                 SCANNER  1970
                                                                                                                 SCANNER  1971
                               77125              SX1    B2-B5       TRANSFORMS H=07, L=13, R=21                 SCANNER  1972
          2307  0460002217 +                      ZR     B6,CERP1    IF ZERO-LENGTH HOLLERITH STRING             SCANNER  1973
                          21103                   AX1    3           FINAL HOLL CONSTANT TYPE CODE H=0,L=1,R=2   SCANNER  1974
          2310  7100777472                        SX0    -E197       ERR MSG NR - *NON-ANSI CONSTANT TYPE*       SCANNER  1975
                                                                                                                 SCANNER  1976
          2311  7120000006               HOLL2    SX2    6           E-LIST TYPE CODE FOR HOLLERITH CONSTANT     SCANNER  1977
                          20163                   LX1    51                                                      SCANNER  1978
                               12712              BX7    X1+X2                                                   SCANNER  1979
          2312  5170000072 +                      SA7    CTYPE       TEMP SAVE E-LIST ENTRY                      SCANNER  1980
                          0301002314 +            ZR     X1,HOLL3    IF H(OLLERITH) TYPE STRING                  SCANNER  1981
          2313  0100001545 +                      RJ     ANSIERP     GO FILE NON-ANSI DIAGNOSTIC                 SCANNER  1982
                                                                                                                 SCANNER  1983
                                        *         INITIALIZE FOR PACKING LOOP.                                   SCANNER  1984
                                                                                                                 SCANNER  1985
          2314  6150000001               HOLL3    SB5    1                                                       SCANNER  1986
                          5130000066 +            SA3    COLS                                                    SCANNER  1987
          2315  6140000064                        SB4    1R"         (B4) = STRING DELIMITER                     SCANNER  1988
                          43600                   MX6    0           (X6) = CONSTANT STRING PACKING REGISTER     SCANNER  1989
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    51
        PROCESS HOLLERITH CONSTANT                                    HOLLRTH 
  
                               66700              SB7    B0          (B7) = LEADING BLANK COUNT                  SCANNER  1990
          2316  5243001207 +                      SA4    X3+SBUFF-1  INITIALIZE CHARACTER FETCH POINTER          SCANNER  1991
                          7150000055              SX5    1R                                                      SCANNER  1992
          2317  5160000111 +                      SA6    N           CLEAR ACTUAL STRING LENGTH COUNTER          SCANNER  1993
                                                                                                                 SCANNER  1994
                                        *  GET NEXT STRING CHARACTER                                             SCANNER  1995
                                                                                                                 SCANNER  1996
          2320  0570002321 +             HOLL4    NZ     B7,HOLL5    IF CURRENT NON-BLANK CHARACTER NOT PACKED   SCANNER  1997
                          54445                   SA4    A4+B5       FETCH NEXT NON-BLANK CHARACTER              SCANNER  1998
                               26374              UX3,B7 X4          LEADING BLANK COUNT TO B7, NON-BLANK TO X3  SCANNER  1999
                                                                                                                 SCANNER  2000
          2321  63250                    HOLL5    SB2    X5          BLANK FOR PACK (IF NEEDED)                  SCANNER  2001
                     0575002322 +                 NE     B7,B5,HOLL6 IF LEADING BLANK(S) TO RESTORE              SCANNER  2002
                               63230              SB2    X3          NON-BLANK CHARACTER FOR PACK                SCANNER  2003
                                                                                                                 SCANNER  2004
          2322  0720002333 +             HOLL6    MI     B2,HOLL9    IF E-O-L SENTINEL                           SCANNER  2005
                          67665                   SB6    B6-B5       HOLLERITH STRING COUNT - 1                  SCANNER  2006
                               67775              SB7    B7-B5       LEADING BLANK COUNT - 1                     SCANNER  2007
          2323  0660002325 +                      PL     B6,HOLL7    IF NOT DELIMITED STRING                     SCANNER  2008
                          7106000001              SX0    B6+1                                                    SCANNER  2009
          2324  0424002345 +                      EQ     B2,B4,DELIM1   IF STRING DELIMITER < " >                SCANNER  2010
                          0300002347 +            ZR     X0,DELIM2   IF PREVIOUS CHAR WAS DELIM, END OF STRING   SCANNER  2011
                                                                                                                 SCANNER  2012
                                        *  PACK CURRENT CHARACTER AND TEST FOR END-OF-STRING                     SCANNER  2013
                                                                                                                 SCANNER  2014
          2325  0100003107 +             HOLL7    RJ     PACKC       GO PACK CURRENT CHARACTER                   SCANNER  2015
          2326  0560002320 +                      NZ     B6,HOLL4    IF HOLL COUNT NOT EXHAUSTED                 SCANNER  2016
                                                                                                                 SCANNER  2017
                                        *  TERMINAL PROCESSING FOR NON-DELIMITED STRING                          SCANNER  2018
                                                                                                                 SCANNER  2019
                          7074776567 -            SX7    A4-SBUFF    RECONSTRUCT 'SBUFF' ORDINAL                 SCANNER  2020
          2327  0570002330 +                      NZ     B7,HOLL8    IF CURRENT CHAR NOT PART OF HOLL STRING     SCANNER  2021
                          7277000001              SX7    X7+1        ADV POINTER TO NEXT CHAR FOR 'COLS' UPDATE  SCANNER  2022
                                                                                                                 SCANNER  2023
          2330  5170000066 +             HOLL8    SA7    COLS        UPDATE ORDINAL                              SCANNER  2024
                          0100003120 +            RJ     PACKT       GO TERMINATE CONSTANT, MAKE E-LIST ENTRIES  SCANNER  2025
          2331  6150000001                        SB5    1                                                       SCANNER  2026
                          0100002273 +            RJ     GET         GET NEXT CHARACTER                          SCANNER  2027
          2332  0211000000                        JP     B1          CONTINUE LEXICAL SCAN...                    SCANNER  2028
                                                                                                                 SCANNER  2029
                                        *  END OF CARD ENCOUNTERED                                               SCANNER  2030
                                                                                                                 SCANNER  2031
          2333  7170777776               HOLL9    SX7    -1                                                      SCANNER  2032
                          76060                   SX0    B6                                                      SCANNER  2033
          2334  0310002335 +             +        NZ     X0,*+1      IF NOT LOOKING FOR 2ND DELIMITER            SCANNER  2034
                          7170002334 +            SX7    *           SET P-I-P FLAG TO NON-HOLL (>0) TO AVOID    SCANNER  2035
                                        *                              INCOMPLETE PACK ERR IF E-O-S ENCOUNTERED  SCANNER  2036
          2335  5170003770 +                      SA7    CAD         SET PACK-IN-PROGRESS FLAG                   SCANNER  2037
                          0100003425 +            RJ     SAV         SAVE PACKING REGISTERS                      FEAT121L  310
          2336  0100003040 +                      RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE        FEAT121L  311
          2337  0311002775 +                      NZ     X1,NEWS     IF NEW STATEMENT FOUND                      FEAT121L  312
                          6140000064              SB4    1R"                                                     SCANNER  2040
          2340  0100003372 +                      RJ     RES         RESTORE PACKING REGISTERS                   FEAT121L  313
          2341  5140001210 +                      SA4    SBUFF       INITIALIZE CHARACTER FETCH POINTER          SCANNER  2042
                          6150000001              SB5    1                                                       SCANNER  2043
          2342  26374                             UX3,B7 X4                                                      SCANNER  2044
                     0400002321 +                 EQ     HOLL5                                                   SCANNER  2045
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    52
        PROCESS HOLLERITH CONSTANT                                    DELIMH
  
                                        *  PROCESS DELIMITED HOLLERITH CONSTANT STRING                           SCANNER  2047
                                                                                                                 SCANNER  2048
          2343  7100777374               DELIMH   SX0    -E259       ERR MSG NR                                  SCANNER  2049
                          7110000004              SX1    4           (X1) = AUX TYPE CODE FOR DELIM CONSTANT     SCANNER  2050
          2344  6160777776                        SB6    -1          SET *DELIM STRING* STATUS                   SCANNER  2051
                          0400002311 +            EQ     HOLL2                                                   SCANNER  2052
                                                                                                                 SCANNER  2053
                                        *  INTERMEDIATE PROCESSING FOR DELIMITED STRING                          SCANNER  2054
                                                                                                                 SCANNER  2055
          2345  0300002325 +             DELIM1   ZR     X0,HOLL7    IF 2ND CONSEC DELIMITER FOUND, GO PACK ONE  SCANNER  2056
                          6160000000              SB6    0           FLAG TO INDICATE ONE DELIMITER FOUND        SCANNER  2057
          2346  0400002320 +                      EQ     HOLL4       GO LOOK FOR 2ND CONSEC DELIMITER            SCANNER  2058
                                                                                                                 SCANNER  2059
                                        *  TERMINAL PROCESSING FOR DELIMITED STRING                              SCANNER  2060
                                                                                                                 SCANNER  2061
          2347  5110000111 +             DELIM2   SA1    N           STRING LENGTH                               SCANNER  2062
                          7074776567 -            SX7    A4-SBUFF    RECONSTRUCT COLUMN POINTER 'COLS'           SCANNER  2063
          2350  0311002330 +                      NZ     X1,HOLL8    IF NOT ZERO-LENGTH STRING                   SCANNER  2064
                          0400002217 +            EQ     CERP1                                                   SCANNER  2065
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    53
        IMP - IMPLICIT STATEMENT TYPE PROCESSOR                       IMP 
  
                                        **        IMP - IMPLICIT STATEMENT TYPE PROCESSOR.                       SCANNER  2067
                                        *                                                                        SCANNER  2068
                                        *                THE *IMPLICIT* STATEMENT IS IRREGULAR IN ALLOWING THE   SCANNER  2069
                                        *         15-CHARACTER STRING *DOUBLEPRECISION* TO APPEAR IN NON-KEYWORD SCANNER  2070
                                        *         POSITIONS.  SINCE *PACK7* CAN-T HANDLE A STRING THIS LONG,     SCANNER  2071
                                        *         *LEX8* TRAPPED IT AND CALLED *PACK30* INSTEAD.  *IMP* ERROR    SCANNER  2072
                                        *         CHECKS THE STRING, TRUNCATES IT TO *DOUBLE*, FORMATS AND       SCANNER  2073
                                        *         STORES IT IN E-LIST.  OTHER, SHORTER STRINGS ARE JUST          SCANNER  2074
                                        *         FORMATTED AND STORED.  *DECPRO/DPIMP* WILL CHECK THEM LATER.   SCANNER  2075
                                        *                                                                        SCANNER  2076
                                        *                                                                        SCANNER  2077
                                        *         ENTRY  (B5) = 1                                                SCANNER  2078
                                        *                (B6) = TYPE KEYWORD STRING LENGTH (CHARACTERS)          SCANNER  2079
                                        *                                                                        SCANNER  2080
                                        *         EXIT   (B5) = 1                                                SCANNER  2081
                                        *                (B6) = ADJUSTED LENGTH OF TYPE KEYWORD (CHARACTERS)     SCANNER  2082
                                        *                8 OR FEWER CHARACTERS ARE STORED IN E-LIST AT (ELAST),  SCANNER  2083
                                        *                IN STANDARD VARIABLE NAME FORMAT.                       SCANNER  2084
                                        *                                                                        SCANNER  2085
                                        *         USES   X - 1, 2, 3, 6                                          SCANNER  2086
                                        *                A - 1, 2, 3, 6                                          SCANNER  2087
                                        *                B - 3, 6                                                SCANNER  2088
                                        *                                                                        SCANNER  2089
                                        *         CALLS  ELPUT.                                                  SCANNER  2090
                                                                                                                 SCANNER  2091
                                                                                                                 SCANNER  2092
          2351  0400402351 +             IMP      SUBR               ** ENTRY/EXIT **                            SCANNER  2093
          2352  5110000077 +                      SA1    KEYL                                                    SCANNER  2094
                          54215                   SA2    A1+B5       (X2) = KEYWORD CHARACTERS 1-10              SCANNER  2095
                               26161              UX1,B6 X1          (B6) = KEYWORD LENGTH (CHARACTERS)          SCANNER  2096
                                                                                                                 SCANNER  2097
                                        *         CHECK FOR *DOUBLEPRECISION* LENGTH AND CHARACTER MATCH.        SCANNER  2098
                                                                                                                 SCANNER  2099
          2353  5130003645 +                      SA3    =L*DOUBLEPRECISION*                                     SCANNER  2100
                          54125                   SA1    A2+B5       (X1) = KEYWORD CHARACTERS 11-20             SCANNER  2101
                               37623              IX6    X2-X3                                                   SCANNER  2102
          2354  0316002357 +                      NZ     X6,IMP2     IF MISMATCH                                 SCANNER  2103
                          54335                   SA3    A3+B5       (X3) = *ISION*, -L- FORMAT                  SCANNER  2104
                               37613              IX6    X1-X3                                                   SCANNER  2105
          2355  0316002357 +                      NZ     X6,IMP2     IF MISMATCH                                 SCANNER  2106
                          43144                   MX1    6*6                                                     SCANNER  2107
                               11212              BX2    X1*X2       TRUNCATE 1-10 TO *DOUBLE*                   SCANNER  2108
          2356  6160000006                        SB6    6           NR CHARACTERS IN *DOUBLE*                   SCANNER  2109
                                                                                                                 SCANNER  2110
                                        *         CONVERT STRING TO E-LIST FORMAT (MAX 8 CHARS) AND STORE.       SCANNER  2111
                                                                                                                 SCANNER  2112
          2357  6130000010               IMP2     SB3    8                                                       SCANNER  2113
                          0636002361 +            LE     B6,B3,IMP3  IF LENGTH .LE. 8                            SCANNER  2114
          2360  6160000010                        SB6    8                                                       SCANNER  2115
          2361  5116003614 +             IMP3     SA1    FILL8R+B6   BLANK FILL                                  SCANNER  2116
                          21214                   AX2    12                                                      SCANNER  2117
                               76600              SX6    B0                                                      SCANNER  2118
          2362  27352                             PX3    X2,B5                                                   SCANNER  2119
                     12131                        BX1    X3+X1       BLANK FILL                                  SCANNER  2120
                          5160003773 +            SA6    IMPFLG      CLEAR *IMPLICIT-IN-PROGRESS* FLAG           SCANNER  2121
          2363  0100001553 +                      ELPUT  X1                                                      SCANNER  2122
          2364  0400002351 +                      EQ     EXIT.                                                   SCANNER  2123
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    54
        LEX - BEGIN LEXICAL SCAN OF STATEMENT.                        LEX 
  
                                        **        LEX - BEGIN LEXICAL SCAN OF STATEMENT.                         SCANNER  2125
                                        *                                                                        SCANNER  2126
                                        *                LEXICALLY SCANS AND GENERATES *ELIST* FOR A STATEMENT   SCANNER  2127
                                        *         BY CHAINING THROUGH THE *LEX-N-* ROUTINES. IF POSSIBLE, THE    SCANNER  2128
                                        *         STATEMENT IS ALSO TYPED.                                       SCANNER  2129
                                        *                                                                        SCANNER  2130
                                        *         ENTRY  INITIAL LINE OF STATEMENT IS BURST IN STRING BUFFER.    SCANNER  2131
                                        *                                                                        SCANNER  2132
                                        *         EXIT   (TYPE) = STATEMENT TYPE CODE.                           SCANNER  2133
                                        *                (SELIST) = ADDR OF 1ST *ELIST* ELEMENT OF STATEMENT.    SCANNER  2134
                                        *                (ELAST) = ADDR OF LAST *ELIST* ELEMENT OF STATEMENT.    SCANNER  2135
                                        *                *ELIST* IS AN INVERTED TABLE GROWING FROM A HIGH CORE   SCANNER  2136
                                        *                ADDRESS TO A LOWER CORE ADDRESS.                        SCANNER  2137
                                        *                THEREFORE, (SELIST).GE.(ELAST).                         SCANNER  2138
                                        *                                                                        SCANNER  2139
                                                                                                                 SCANNER  2140
                                        *         LEX TYPE DETERMINER.                                           SCANNER  2141
                                        *                                                                        SCANNER  2142
          2365  00000000000000001314 +            CON    SCANNER1                                                SCANNER  2143
                                                                                                                 SCANNER  2144
                                                                                                                 SCANNER  2145
          2366  0400402366 +             LEX      ENTRY. *           ** ENTRY/EXIT **                            SCANNER  2146
          2367  5110000034                        SA1    LELIST                                                  SCANNER  2147
                          6150000001              SB5    1                                                       SCANNER  2148
          2370  0311002376 +                      NZ     X1,LEX12    IF RESTARTING FOR OBJECT OF ONE-BRANCH *IF* SCANNER  2149
                          0100002273 +            RJ     GET         GET FIRST CHARACTER OF STMT                 SCANNER  2150
          2371  7170000001                        SX7    1                                                       SCANNER  2151
                          5170003775 +            SA7    NULLSTMT    *NULL STATEMENT* FLAG OFF                   SCANNER  2152
          2372  6160000033                        SB6    1R0                                                     SCANNER  2153
                          6170000053              SB7    1R$                                                     SCANNER  2154
          2373  0726002376 +                      LT     B2,B6,LEX12 IF STMT BEGINS WITH ALPHABETIC              SCANNER  2155
                          0527002164 +            NE     B2,B7,ERP2  IF STMT DOES NOT BEGIN WITH $               SCANNER  2156
          2374  0100003365 +                      RJ     P$T         PROCESS $ TERMINATOR                        SCANNER  2157
          2375  0400001314 +                      EQ     SCANNER1    IGNORE NULL STMT                            SCANNER  2158
                                                                                                                 SCANNER  2159
          2376  5110000001 C             LEX12    SA1    DTYPE                                                   SCANNER  2160
                          0311002406 +            NZ     X1,LEX13    IF DEBUG STATEMENT                          SCANNER  2161
                                                                                                                 FCC1469X   18
          2377  5110000000 X                      SA1    =XDFLAG                                                 FCC1469X   19
                          21101                   AX1    1                                                       FCC1469X   20
          2400  0301002404 +                      ZR     X1,LEX12B   IF INPUT FILE IS NOT EXTERNAL DEBUG FILE    FCC1469X   21
                          5110000126 +            SA1    SBUFLG                                                  FCC1469X   22
          2401  0311002366 +                      NZ     X1,LEX      IF NEXT LINE ALREADY IN *SBUFF*             FCC1469X   23
                                                                                                                 FCC1469X   24
          2402  0100003040 +             LEX12A   RJ     NXT         REQUEST AND PROCESS NEXT LINE               FCC1469X   25
          2403  0301002402 +                      ZR     X1,LEX12A   IF LINE CONTINUED, STRIP                    FCC1469X   26
                          0400002366 +            EQ     LEX                                                     FCC1469X   27
                                                                                                                 FCC1469X   28
          2404  6110002430 +             LEX12B   SB1    LEX2                                                    FCC1469X   29
                          0100003134 +            RJ     PACK30      PACK 1ST 30 CHARS OF STMT                   SCANNER  2163
          2405  0400002430 +                      EQ     LEX2        CONTINUE SCAN...                            SCANNER  2164
                                                                                                                 SCANNER  2165
          2406  0100000000 X             LEX13    CALL   ISITDBG     TRY TO TYPE DEBUG KEYWORD                   SCANNER  2166
          2407  5110000024                        SA1    TYPE                                                    SCANNER  2167
                          6110002716 +            SB1    LEX8        NEXT LEXICAL SCANNING ROUTINE               SCANNER  2168
          2410  0311002716 +                      NZ     X1,LEX8     IF TYPED, THEN CONTINUE SCAN...             SCANNER  2169
                          0100003040 +            RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE        FEAT121L  314
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    55
        LEX - BEGIN LEXICAL SCAN OF STATEMENT.                        LEX 
  
          2411  0311002775 +                      NZ     X1,NEWS     IF NEW STATEMENT FOUND                      FEAT121L  315
          2412  0100003040 +             LEX.1    RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE        FCC1173X    8
          2413  0301002412 +                      ZR     X1,LEX.1    IF NO NEW STATEMENT, STRIP CONTINUATION     FCC1173X    9
                          0400002775 +            EQ     NEWS                                                    FCC1173X   10
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    56
        LEX2 - ALPHANUMERIC FOLLOWED BY NON-ALPHANUMERIC.             LEX2
  
                                        *         LEX2 JUMP TABLE.                                               SCANNER  2173
                                        *                                                                        SCANNER  2174
          2414  00000000000000002207 +   LJT2     JPC    ERP10       +                                           SCANNER  2175
          2415  00000000000000002207 +            JPC    ERP10       -                                           SCANNER  2176
          2416  00000000000000002432 +            JPC    LEX22       *                                           SCANNER  2177
          2417  00000000000000002436 +            JPC    LEX23       /                                           SCANNER  2178
          2420  0000000035 +                      JPC    LEX24,LP    (                                           SCANNER  2179
          2421  00000000000000002207 +            JPC    ERP10       )                                           SCANNER  2180
          2422  00000000000000002447 +            JPC    LEX24A      $                                           SCANNER  2181
          2423  0000000034 +                      JPC    LEX26,EQU   =                                           SCANNER  2182
          2424  00000000000000002462 +            JPC    LEX28       SPECIAL HOLLERITH STRING DELIMITER          SCANNER  2183
          2425  00000000000000002456 +            JPC    LEX27       ,                                           SCANNER  2184
          2426  00000000000000002207 +            JPC    ERP10       .                                           SCANNER  2185
                                                                                                                 SCANNER  2186
                                        *         LEX2 - ALPHANUMERIC FOLLOWED BY NON-ALPHANUMERIC.              SCANNER  2187
                                        *                                                                        SCANNER  2188
          2427  00000000000000002450 +   LEX2     TYPER  LEX25                                                   SCANNER  2189
          2430  5112002347 +                      SA1    B2+LJT2-1R+                                             SCANNER  2190
                          63310                   SB3    X1                                                      SCANNER  2191
                               20136              LX1    30                                                      SCANNER  2192
          2431  0233000000                        JP     B3                                                      SCANNER  2193
                                                                                                                 SCANNER  2194
                                        *         LEX22 - ALPHANUMERIC FOLLOWED BY *                             SCANNER  2195
                                        *                                                                        SCANNER  2196
          4002                           LEX22    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2197
                               22041              LX0    B4,X1                                                   SCANNER  2198
          2434  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2199
                          0100001504 +            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE FROM STRING    SCANNER  2200
          2435  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2201
                                                                                                                 SCANNER  2202
                                        *         LEX23 - ALPHANUMERIC FOLLOWED BY /                             SCANNER  2203
                                        *                                                                        SCANNER  2204
          4003                           LEX23    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2205
                               22041              LX0    B4,X1                                                   SCANNER  2206
          2440  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2207
                          0100001504 +            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE                SCANNER  2208
          2441  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2209
                                                                                                                 SCANNER  2210
                                        *         LEX24 - ALPHANUMERIC FOLLOWED BY (                             SCANNER  2211
                                        *                                                                        SCANNER  2212
          2442  5120000060               LEX24    SA2    NLABEL                                                  SCANNER  2213
                          7160000001              SX6    1                                                       SCANNER  2214
          2443  6110002502 +                      SB1    LEX3        RETURN ADDR                                 SCANNER  2215
                          5160004000 +            SA6    PARENS      INITIALIZE PAREN COUNT                      SCANNER  2216
          2444  0302001471 +                      ZR     X2,ADD1     IF NOT LABELLED, THEN NOT *FORMAT*          SCANNER  2217
                          5120003647 +            SA2    =6LFORMAT                                               SCANNER  2218
          2445  5130000100 +                      SA3    KEYW                                                    SCANNER  2219
                          46000                   NO                                                             SCANNER  2220
                               13723              BX7    X2-X3                                                   SCANNER  2221
          2446  0307002243 +                      ZR     X7,FORMAT   IF *FORMAT* STMT                            SCANNER  2222
                          0400001471 +            EQ     ADD1                                                    SCANNER  2223
                                                                                                                 SCANNER  2224
                                        *         LEX25 - ALPHANUMERIC FOLLOWED BY $ OR TERMINATED               SCANNER  2225
                                        *                 BY NEXT CARD.                                          SCANNER  2226
                                        *                                                                        SCANNER  2227
          2447  0100003365 +             LEX24A   RJ     P$T         PROCESS $ TERMINATOR                        SCANNER  2228
                                                                                                                 SCANNER  2229
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    57
        LEX2 - ALPHANUMERIC FOLLOWED BY NON-ALPHANUMERIC.             LEX2      CLR25 
  
          4004                           LEX25    SRCH   LEX         TRY TO TYPE STMT                            SCANNER  2230
                               22041              LX0    B4,X1                                                   SCANNER  2231
          2452  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2232
                          0100001504 +            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE                SCANNER  2233
          2453  0400002366 +                      EQ     LEX         DONE, SO EXIT...                            SCANNER  2234
                                                                                                                 SCANNER  2235
                                        *         LEX26 - ALPHANUMERIC FOLLOWED BY =                             SCANNER  2236
                                        *                                                                        SCANNER  2237
          2454  7160000001               LEX26    SX6    1                                                       SCANNER  2238
                          6110002616 +            SB1    LEX5        NEXT STATE                                  SCANNER  2239
          2455  5160003776 +                      SA6    N.EQUAL     NR OF =                                     SCANNER  2240
                          0400001471 +            EQ     ADD1                                                    SCANNER  2241
                                                                                                                 SCANNER  2242
                                        *         LEX27 - ALPHANUMERIC FOLLOWED BY ,                             SCANNER  2243
                                        *                                                                        SCANNER  2244
          4005                           LEX27    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2245
                               22041              LX0    B4,X1                                                   SCANNER  2246
          2460  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2247
                          0100001504 +            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE FROM STRING    SCANNER  2248
          2461  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2249
                                                                                                                 SCANNER  2250
                                        *         LEX28 - ALPHANUMERIC FOLLOWED BY DELIMITED HOLLERITH STRING.   SCANNER  2251
                                        *                                                                        SCANNER  2252
          2462  6110002464 +             LEX28    SB1    LEX29       RETURN ADDR                                 SCANNER  2253
                          0400002343 +            EQ     DELIMH                                                  SCANNER  2254
                                                                                                                 SCANNER  2255
          2463  00000000000000002450 +            CON    LEX25       AUXILIARY TYPE DETERMINER FOR               SCANNER  2256
                                        *                            *STOP*,*PAUSE* STMTS                        SCANNER  2257
                                                                                                                 SCANNER  2258
          2464  6140000053               LEX29    SB4    1R$                                                     SCANNER  2259
                          0424002447 +            EQ     B2,B4,LEX24A  IF STMT TERMINATED BY $                   SCANNER  2260
          2465  0400002207 +                      EQ     ERP10                                                   SCANNER  2261
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    58
        LEX3 - SCANNING CONTINUES AFTER FIRST LEFT PARENTHESIS.       LEX3
  
                                        *         LEX3 JUMP TABLE.                                               SCANNER  2263
                                        *                                                                        SCANNER  2264
          2466  0000000050 +             LJT3     JPC    ADD1,PLUS   +                                           SCANNER  2265
          2467  0000000047 +                      JPC    ADD1,MINUS  -                                           SCANNER  2266
          2470  00000000000000002724 +            JPC    LEX83       *                                           SCANNER  2267
          2471  0000000052 +                      JPC    ADD1,SLASH  /                                           SCANNER  2268
          2472  0000000035 +                      JPC    LEX33,LP    (                                           SCANNER  2269
          2473  0000000031 +                      JPC    LEX34,RP    )                                           SCANNER  2270
          2474  00000000000000002211 +            JPC    ERP11       $                                           SCANNER  2271
          2475  0000000034 +                      JPC    LEX35,EQU   =                                           SCANNER  2272
          2476  00000000000000002343 +            JPC    DELIMH      SPECIAL HOLLERITH STRING DELIMITER          SCANNER  2273
          2477  0000000032 +                      JPC    ADD1,COMMA  ,                                           SCANNER  2274
          2500  00000000000000003314 +            JPC    POINT       .                                           SCANNER  2275
                                                                                                                 SCANNER  2276
                                        *         LEX3 - SCANNING CONTINUES AFTER FIRST LEFT PAREN.              SCANNER  2277
                                        *                                                                        SCANNER  2278
          2501  00000000000000002207 +   LEX3     TYPER  ERP10                                                   SCANNER  2279
          2502  6130000033                        SB3    1R0                                                     SCANNER  2280
                          0723002506 +            LT     B2,B3,LEX32 IF ALPHABETIC                               SCANNER  2281
          2503  6130000045                        SB3    1R+                                                     SCANNER  2282
                          0723001731 +            LT     B2,B3,DIGIT  IF NUMERIC, PACK CONSTANT                  SCANNER  2283
          2504  5112002421 +                      SA1    B2+LJT3-1R+                                             SCANNER  2284
                          63310                   SB3    X1                                                      SCANNER  2285
                               20136              LX1    30                                                      SCANNER  2286
          2505  0233000000                        JP     B3                                                      SCANNER  2287
                                                                                                                 SCANNER  2288
                                        *         LEX32 - ALHANUMERIC(...   FOLLOWED BY ALPHABETIC.              SCANNER  2289
                                        *                                                                        SCANNER  2290
          2506  0100003174 +             LEX32    RJ     PACK7       PACK SYMBOLIC NAME AND STORE IN *ELIST*     SCANNER  2291
          2507  0400002502 +                      EQ     LEX3        CONTINUE SCAN...                            SCANNER  2292
                                                                                                                 SCANNER  2293
                                        *         LEX33 - ALPHANUMERIC(...   FOLLOWED BY (                       SCANNER  2294
                                        *                                                                        SCANNER  2295
          2510  5120004000 +             LEX33    SA2    PARENS                                                  SCANNER  2296
                          7262000001              SX6    X2+1        PAREN COUNT+1                               SCANNER  2297
          2511  54620                             SA6    A2                                                      SCANNER  2298
                     0400001471 +                 EQ     ADD1        MAKE ELIST ENTRY                            SCANNER  2299
                                                                                                                 SCANNER  2300
                                        *         LEX34 - ALPHANUMERIC(...   FOLLOWED BY )                       SCANNER  2301
                                        *                                                                        SCANNER  2302
          2512  5120004000 +             LEX34    SA2    PARENS                                                  SCANNER  2303
                          7262777776              SX6    X2-1        PAREN COUNT-1                               SCANNER  2304
          2513  5160004000 +                      SA6    PARENS                                                  SCANNER  2305
                          0316001471 +            NZ     X6,ADD1     IF PAREN COUNT NOT ZERO                     SCANNER  2306
                                                                                                                 SCANNER  2307
                                        *         WHEN PAREN COUNT HAS GONE TO ZERO.                             SCANNER  2308
                                                                                                                 SCANNER  2309
          2514  6110002533 +                      SB1    LEX4        RETURN ADDR                                 SCANNER  2310
                          0400001471 +            EQ     ADD1        MAKE *ELIST* ENTRY...                       SCANNER  2311
                                                                                                                 SCANNER  2312
                                        *         LEX35 - ALPHANUMERIC(...   FOLLOWED BY =                       SCANNER  2313
                                        *                                                                        SCANNER  2314
          2515  5150003776 +             LEX35    SA5    N.EQUAL                                                 SCANNER  2315
                          7265000001              SX6    X5+1        NR EQUAL SIGNS+1                            SCANNER  2316
          2516  54650                             SA6    A5                                                      SCANNER  2317
                     0400001471 +                 EQ     ADD1        MAKE *ELIST* ENTRY...                       SCANNER  2318
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    59
        LEX4 - ALPHANUMERIC(...)     WHEN PAREN COUNT GOES TO ZERO.   LEX4
  
                                        *         LEX4 JUMP TABLE.                                               SCANNER  2321
                                        *                                                                        SCANNER  2322
          2517  00000000000000002550 +   LJT4     JPC    LEX44       +                                           SCANNER  2323
          2520  00000000000000002550 +            JPC    LEX44       -                                           SCANNER  2324
          2521  00000000000000002207 +            JPC    ERP10       *                                           SCANNER  2325
          2522  00000000000000002553 +            JPC    LEX45       /                                           SCANNER  2326
          2523  00000000000000002557 +            JPC    LEX46       (                                           SCANNER  2327
          2524  00000000000000002207 +            JPC    ERP10       )                                           SCANNER  2328
          2525  00000000000000002563 +            JPC    LEX46A      $                                           SCANNER  2329
          2526  00000000000000002570 +            JPC    LEX48       =                                           SCANNER  2330
          2527  00000000000000002577 +            JPC    LEX410      SPECIAL HOLLERITH STRING DELIMITER          SCANNER  2331
          2530  00000000000000002573 +            JPC    LEX49       ,                                           SCANNER  2332
          2531  00000000000000002550 +            JPC    LEX44       .                                           SCANNER  2333
                                                                                                                 SCANNER  2334
                                        *         LEX4 - ALPHANUMERIC(...)     WHEN PAREN COUNT GOES TO ZERO.    SCANNER  2335
                                        *                                                                        SCANNER  2336
          2532  00000000000000002564 +   LEX4     TYPER  LEX47                                                   SCANNER  2337
          2533  6130000045                        SB3    1R+                                                     SCANNER  2338
                          0723002536 +            LT     B2,B3,LEX42 IF ALPHANUMERIC                             SCANNER  2339
          2534  5112002452 +                      SA1    B2+LJT4-1R+                                             SCANNER  2340
                          63310                   SB3    X1                                                      SCANNER  2341
                               20136              LX1    30                                                      SCANNER  2342
          2535  0233000000                        JP     B3                                                      SCANNER  2343
                                                                                                                 SCANNER  2344
                                        *         LEX42 - ALPHANUMERIC(...)   FOLLOWED BY ALPHANUMERIC.          SCANNER  2345
                                        *                                                                        SCANNER  2346
          4006                           LEX42    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2347
                               22041              LX0    B4,X1                                                   SCANNER  2348
          2540  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2349
                          0100001504 +            RJ     ADJ         REMOVE LEADING LABEL AND/OR VARIABLE        SCANNER  2350
          2541  5110000024                        SA1    TYPE                                                    SCANNER  2351
                          5120000034              SA2    LELIST                                                  SCANNER  2352
          2542  6130000033                        SB3    1R0                                                     SCANNER  2353
                          7271777756              SX7    X1-ST.LIF                                               SCANNER  2354
          2543  0317002716 +                      NZ     X7,LEX8     IF NOT *IF*, CONTINUE LEXICAL SCAN...       SCANNER  2355
                          0623002546 +            GE     B2,B3,LEX43 IF STMT IS *IF(...)NUMERIC*                 SCANNER  2356
                                                                                                                 SCANNER  2357
                                        *         STMT IS *IF(...)ALPHABETIC*.                                   SCANNER  2358
                                                                                                                 SCANNER  2359
          2544  0312002172 +                      NZ     X2,ERP3     IF STMT IS *IF(...)IF(...)NON-NUMERIC*      SCANNER  2360
                          43673                   MX6    -1                                                      SCANNER  2361
                               46000              NO                                                             SCANNER  2362
          2545  5160000034                        SA6    LELIST      SET TO *NEED TO TYPE OBJECT OF LOGICAL IF*  SCANNER  2363
                          0400002366 +            EQ     LEX         EXIT...                                     SCANNER  2364
                                                                                                                 SCANNER  2365
                                        *         STMT IS *IF(...)NUMERIC*.                                      SCANNER  2366
                                                                                                                 SCANNER  2367
          2546  7160000020               LEX43    SX6    16                                                      SCANNER  2368
                          5160000024              SA6    TYPE                                                    SCANNER  2369
          2547  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2370
                                                                                                                 SCANNER  2371
                                        *         LEX44 - ALPHANUMERIC(...)   FOLLOWED BY . + -                  SCANNER  2372
                                        *                                                                        SCANNER  2373
          4007                           LEX44    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2374
                               22041              LX0    B4,X1                                                   SCANNER  2375
          2552  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2376
                          0400002716 +            EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2377
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    60
        LEX4 - ALPHANUMERIC(...)     WHEN PAREN COUNT GOES TO ZERO.   LEX4
  
                                                                                                                 SCANNER  2378
                                        *         LEX45 - ALPHANUMERIC(...)   FOLLOWED BY /                      SCANNER  2379
                                        *                                                                        SCANNER  2380
          4010                           LEX45    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2381
                               22041              LX0    B4,X1                                                   SCANNER  2382
          2555  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2383
                          0100001504 +            RJ     ADJ         REMOVE VARIABLE AND STORE IN *ELIST*        SCANNER  2384
          2556  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2385
                                                                                                                 SCANNER  2386
                                        *         LEX46 - ALPHANUMERIC(...)   FOLLOWED BY (                      SCANNER  2387
                                        *                                                                        SCANNER  2388
          4011                           LEX46    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2389
                               22041              LX0    B4,X1                                                   SCANNER  2390
          2561  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2391
                          0100001504 +            RJ     ADJ         REMOVE VARIABLE AND STORE IN *ELIST*        FCC1984    10
          2562  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2392
                                                                                                                 SCANNER  2393
                                        *         LEX47 - ALPHANUMERIC(...)   FOLLOWED BY $ OR TERMINATED        SCANNER  2394
                                        *                 BY NEXT CARD.                                          SCANNER  2395
                                        *                                                                        SCANNER  2396
          2563  0100003365 +             LEX46A   RJ     P$T         PROCESS $ TERMINATOR                        SCANNER  2397
                                                                                                                 SCANNER  2398
          4012                           LEX47    SRCH   LEX         TRY TO TYPE STMT                            SCANNER  2399
                               22041              LX0    B4,X1                                                   SCANNER  2400
          2566  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2401
                          0100001504 +            RJ     ADJ         REMOVE VARIABLE AND STORE IN *ELIST*        SCANNER  2402
          2567  0400002366 +                      EQ     LEX         DONE, SO EXIT...                            SCANNER  2403
                                                                                                                 SCANNER  2404
                                        *         LEX48 - ALPHANUMERIC(...)   FOLLOWED BY =                      SCANNER  2405
                                        *               - TYPE IS   F(...)=   OR   V=C                           SCANNER  2406
                                        *                                                                        SCANNER  2407
          2570  7160000014               LEX48    SX6    12          ASF OR REPLACEMENT                          SCANNER  2408
                          6110002716 +            SB1    LEX8        ERROR RETURN ADDR                           SCANNER  2409
          2571  5160000024                        SA6    TYPE                                                    SCANNER  2410
                          0100001504 +            RJ     ADJ         MAKE *ELIST* ENTRY FOR *F* OR *V*           SCANNER  2411
          2572  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2412
                                                                                                                 SCANNER  2413
                                        *         LEX49 - ALPHANUMERIC(...)   FOLLOWED BY ,                      SCANNER  2414
                                        *                                                                        SCANNER  2415
          4013                           LEX49    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2416
                               22041              LX0    B4,X1                                                   SCANNER  2417
          2575  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN STMT                       SCANNER  2418
                          0100001504 +            RJ     ADJ         REMOVE LEADING LABEL AND/OR VARIABLE        SCANNER  2419
          2576  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2420
                                                                                                                 SCANNER  2421
                                        *         LEX410 - ALPHANUMERIC(...)   FOLLOWED BY SPECIAL HOLLERITH     SCANNER  2422
                                        *                 STRING DELIMITER.                                      SCANNER  2423
                                        *                                                                        SCANNER  2424
          4014                           LEX410   SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2425
                               22041              LX0    B4,X1                                                   SCANNER  2426
          2601  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2427
                          0400002716 +            EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2428
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    61
        LEX5 - SCANNING CONTINUES AFTER =                             LEX5
  
                                        *         LEX5 JUMP TABLE.                                               SCANNER  2430
                                        *                                                                        SCANNER  2431
          2602  00000000000000002625 +   LJT5     JPC    LEX54       +                                           SCANNER  2432
          2603  00000000000000002625 +            JPC    LEX54       -                                           SCANNER  2433
          2604  00000000000000002207 +            JPC    ERP10       *                                           SCANNER  2434
          2605  00000000000000002207 +            JPC    ERP10       /                                           SCANNER  2435
          2606  00000000000000002625 +            JPC    LEX54       (                                           SCANNER  2436
          2607  00000000000000002207 +            JPC    ERP10       )                                           SCANNER  2437
          2610  00000000000000002211 +            JPC    ERP11       $                                           SCANNER  2438
          2611  00000000000000002207 +            JPC    ERP10       =                                           SCANNER  2439
          2612  00000000000000002630 +            JPC    LEX55       SPECIAL HOLLERITH STRING DELIMITER          SCANNER  2440
          2613  00000000000000002207 +            JPC    ERP10       ,                                           SCANNER  2441
          2614  00000000000000002625 +            JPC    LEX54       .                                           SCANNER  2442
                                                                                                                 SCANNER  2443
                                        *         LEX5 - SCANNING CONTINUES AFTER =                              SCANNER  2444
                                        *                                                                        SCANNER  2445
          2615  00000000000000002207 +   LEX5     TYPER  ERP10                                                   SCANNER  2446
          2616  6130000033                        SB3    1R0                                                     SCANNER  2447
                          0723002622 +            LT     B2,B3,LEX52  IF ALPHABETIC                              SCANNER  2448
          2617  6130000045                        SB3    1R+                                                     SCANNER  2449
                          0723002624 +            LT     B2,B3,LEX53  IF NUMERIC                                 SCANNER  2450
          2620  5112002535 +                      SA1    B2+LJT5-1R+                                             SCANNER  2451
                          63310                   SB3    X1                                                      SCANNER  2452
          2621  0233000000                        JP     B3                                                      SCANNER  2453
                                                                                                                 SCANNER  2454
                                        *         LEX52 -  =  FOLLOWED BY ALPHABETIC.                            SCANNER  2455
                                        *                                                                        SCANNER  2456
          2622  6110002645 +             LEX52    SB1    LEX6        ERROR RETURN                                SCANNER  2457
                          0100003174 +            RJ     PACK7       PACK SYMBOLIC NAME AND STORE IN ELIST       SCANNER  2458
          2623  0400002645 +                      EQ     LEX6        CONTINUE LEXICAL SCAN...                    SCANNER  2459
                                                                                                                 SCANNER  2460
                                        *         LEX53 -  =  FOLLOWED BY NUMERIC.                               SCANNER  2461
                                        *                                                                        SCANNER  2462
          2624  6110002675 +             LEX53    SB1    LEX7        RETURN ADDR                                 SCANNER  2463
                          0400001731 +            EQ     DIGIT       PACK CONSTANT AND MAKE *CONSTOR* ENTRY      SCANNER  2464
                                                                                                                 SCANNER  2465
                                        *         LEX54 - TYPE IS *V=E*.                                         SCANNER  2466
                                        *                                                                        SCANNER  2467
          2625  7170000014               LEX54    SX7    ST.V=E                                                  FCC1328X  630
                          6110002716 +            SB1    LEX8        ERROR RETURN                                SCANNER  2469
          2626  5170000024                        SA7    TYPE                                                    SCANNER  2470
                          0100001504 +            RJ     ADJ         MAKE *ELIST* ENTRY FOR *V*                  SCANNER  2471
          2627  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2472
                                                                                                                 SCANNER  2473
                                        *         LEX55 -  =  FOLLOWED BY DELIMITED HOLLERITH CONSTANT.          SCANNER  2474
                                        *                                                                        SCANNER  2475
          2630  6110002675 +             LEX55    SB1    LEX7        RETURN ADDR                                 SCANNER  2476
                          0400002343 +            EQ     DELIMH                                                  SCANNER  2477
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    62
        LEX6 - ...=ALPHANUMERIC   FOLLOWED BY NON-ALPHANUMERIC.       LEX6
  
                                        *         LEX6 JUMP TABLE.                                               SCANNER  2479
                                        *                                                                        SCANNER  2480
          2631  00000000000000002625 +   LJT6     JPC    LEX54       +                                           SCANNER  2481
          2632  00000000000000002625 +            JPC    LEX54       -                                           SCANNER  2482
          2633  00000000000000002625 +            JPC    LEX54       *                                           SCANNER  2483
          2634  00000000000000002625 +            JPC    LEX54       /                                           SCANNER  2484
          2635  00000000000000002625 +            JPC    LEX54       (                                           SCANNER  2485
          2636  00000000000000002207 +            JPC    ERP10       )                                           SCANNER  2486
          2637  00000000000000002647 +            JPC    LEX61       $                                           SCANNER  2487
          2640  00000000000000002625 +            JPC    LEX54       =                                           SCANNER  2488
          2641  00000000000000002207 +            JPC    ERP10       SPECIAL HOLLERITH STRING DELIMITER          SCANNER  2489
          2642  00000000000000002655 +            JPC    LEX63       ,                                           SCANNER  2490
          2643  00000000000000002625 +            JPC    LEX54       .                                           SCANNER  2491
                                                                                                                 SCANNER  2492
                                        *         LEX6 -  ...=ALPHANUMERIC   FOLLOWED BY NON-ALPHANUMERIC        SCANNER  2493
                                        *                                                                        SCANNER  2494
          2644  00000000000000002650 +   LEX6     TYPER  LEX62                                                   SCANNER  2495
          2645  5112002564 +                      SA1    B2+LJT6-1R+                                             SCANNER  2496
                          63310                   SB3    X1                                                      SCANNER  2497
                               20136              LX1    30                                                      SCANNER  2498
          2646  0233000000                        JP     B3                                                      SCANNER  2499
                                                                                                                 SCANNER  2500
                                        *         LEX62 - *V=E* FOLLOWED BY $ OR TERMINATED BY NEXT CARD.        SCANNER  2501
                                        *                                                                        SCANNER  2502
          2647  0100003365 +             LEX61    RJ     P$T         PROCESS $ TERMINATOR                        SCANNER  2503
          2650  7170000014               LEX62    SX7    12          *V=E*                                       SCANNER  2504
                          6100046000              SB0    46000B                                                  SCANNER  2505
          2651  5170000024                        SA7    TYPE                                                    SCANNER  2506
                          0100001504 +            RJ     ADJ         MAKE *ELIST* ENTRY FOR *V*                  SCANNER  2507
          2652  6130000053                        SB3    1R$                                                     SCANNER  2508
                          0523002366 +            NE     B2,B3,LEX   IF NEW STMT ON NEXT CARD, EXIT...           SCANNER  2509
          2653  7170000053                        SX7    1R$                                                     SCANNER  2510
                          5170000120 +            SA7    REG=B2                                                  FEAT121L  316
          2654  0400002775 +                      EQ     NEWS                                                    SCANNER  2512
                                                                                                                 SCANNER  2513
                                        *         LEX63 - ALPHANUMERIC=ALPHANUMERIC  FOLLOWED BY ,               SCANNER  2514
                                        *                                                                        SCANNER  2515
          4015                           LEX63    SRCH   LEX8        TRY TO TYPE STMT                            SCANNER  2516
                               22041              LX0    B4,X1                                                   SCANNER  2517
          2657  0320002204 +                      PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                    SCANNER  2518
                          0100001504 +            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE FROM STRING    SCANNER  2519
          2660  0400002716 +                      EQ     LEX8        CONTINUE LEXICAL SCAN...                    SCANNER  2520
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    63
        LEX7 - ...=CONSTANT   FOLLOWED BY NON-ALPHANUMERIC.           LEX7
  
                                        *         LEX7  JUMP TABLE.                                              SCANNER  2522
                                        *                                                                        SCANNER  2523
          2661  00000000000000002625 +   LJT7     JPC    LEX54       +                                           SCANNER  2524
          2662  00000000000000002625 +            JPC    LEX54       -                                           SCANNER  2525
          2663  00000000000000002625 +            JPC    LEX54       *                                           SCANNER  2526
          2664  00000000000000002625 +            JPC    LEX54       /                                           SCANNER  2527
          2665  00000000000000002625 +            JPC    LEX54       (                                           SCANNER  2528
          2666  00000000000000002207 +            JPC    ERP10       )                                           SCANNER  2529
          2667  00000000000000002647 +            JPC    LEX61       $                                           SCANNER  2530
          2670  00000000000000002207 +            JPC    ERP10       =                                           SCANNER  2531
          2671  00000000000000002207 +            JPC    ERP10       SPECIAL HOLLERITH STRING DELIMITER          SCANNER  2532
          2672  00000000000000002655 +            JPC    LEX63       ,                                           SCANNER  2533
          2673  00000000000000002625 +            JPC    LEX54       .                                           SCANNER  2534
                                                                                                                 SCANNER  2535
                                        *         LEX7  -  ...=CONSTANT   FOLLOWED BY NON-ALPHANUMERIC           SCANNER  2536
                                        *              OR  ...=DELIMITED HOLLERITH STRING  FOLLOWED BY ANYTHING. SCANNER  2537
                                        *                                                                        SCANNER  2538
          2674  00000000000000002650 +   LEX7     TYPER  LEX62                                                   SCANNER  2539
          2675  5110004001 +                      SA1    RELFLAG                                                 SCANNER  2540
                          0301002677 +            ZR     X1,LEX72    IF NOT *CONSTANT* FOLLOWED BY *RELATIONAL*  SCANNER  2541
          2676  13777                             BX7    X7-X7                                                   SCANNER  2542
                     54710                        SA7    A1          TURN OFF *RELFLAG*                          SCANNER  2543
                          0400002625 +            EQ     LEX54       TYPE IS *V=E*                               SCANNER  2544
                                                                                                                 SCANNER  2545
          2677  6170000045               LEX72    SB7    1R+                                                     SCANNER  2546
                          0727002164 +            LT     B2,B7,ERP2  IF ALPHANUMERIC AFTER DELIMITED HOLL STR    SCANNER  2547
          2700  5112002614 +                      SA1    B2+LJT7-1R+                                             SCANNER  2548
                          6110002716 +            SB1    LEX8        NEXT *LEX-N-* ROUTINE                       SCANNER  2549
          2701  63310                             SB3    X1                                                      SCANNER  2550
                     20136                        LX1    30                                                      SCANNER  2551
                          0233000000              JP     B3                                                      SCANNER  2552
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    64
        LEX8 - STRAIGHT TRANSFORMATION.                               LEX8
  
                                        *         LEX8 JUMP TABLE.                                               SCANNER  2554
                                        *                                                                        SCANNER  2555
          2702  0000000050 +             LJT8     JPC    ADD1,PLUS   +                                           SCANNER  2556
          2703  0000000047 +                      JPC    ADD1,MINUS  -                                           SCANNER  2557
          2704  00000000000000002724 +            JPC    LEX83       *                                           SCANNER  2558
          2705  0000000052 +                      JPC    ADD1,SLASH  /                                           SCANNER  2559
          2706  0000000035 +                      JPC    LEX33,LP    (                                           SCANNER  2560
          2707  0000000031 +                      JPC    LEX82,RP    )                                           SCANNER  2561
          2710  00000000000000002750 +            JPC    LEX89       $                                           SCANNER  2562
          2711  0000000034 +                      JPC    LEX35,EQU   =                                           SCANNER  2563
          2712  00000000000000002343 +            JPC    DELIMH      SPECIAL HOLLERITH STRING DELIMITER          SCANNER  2564
          2713  0000000032 +                      JPC    ADD1,COMMA  ,                                           SCANNER  2565
          2714  00000000000000003314 +            JPC    POINT       .                                           SCANNER  2566
                                                                                                                 SCANNER  2567
                                        *         LEX8 - STRAIGHT TRANSFORMATION.                                SCANNER  2568
                                        *                                                                        SCANNER  2569
          2715  00000000000000002366 +   LEX8     TYPER  LEX                                                     SCANNER  2570
          2716  6130000033                        SB3    1R0                                                     SCANNER  2571
                          0723002732 +            LT     B2,B3,LEX85 IF ALPHABETIC                               SCANNER  2572
          2717  6130000045                        SB3    1R+                                                     SCANNER  2573
                          0723001731 +            LT     B2,B3,DIGIT IF NUMERIC                                  SCANNER  2574
          2720  5112002635 +                      SA1    B2+LJT8-1R+                                             SCANNER  2575
                          63310                   SB3    X1                                                      SCANNER  2576
                               20136              LX1    30          (X1)=30/(B3),30/*ELIST* ELEMENT ADDR        SCANNER  2577
          2721  0233000000                        JP     B3                                                      SCANNER  2578
                                                                                                                 SCANNER  2579
                                        *         LEX82 - )                                                      SCANNER  2580
                                        *                                                                        SCANNER  2581
          2722  5120004000 +             LEX82    SA2    PARENS                                                  SCANNER  2582
                          7262777776              SX6    X2-1        PAREN COUNT - 1                             SCANNER  2583
          2723  5062000000                        SA6    A2+                                                     SCANNER  2584
                          0400001471 +            EQ     ADD1        MAKE ELIST ENTRY                            SCANNER  2585
                                                                                                                 SCANNER  2586
                                        *         LEX83 - *                                                      SCANNER  2587
                                        *                                                                        SCANNER  2588
          2724  5110000051 +             LEX83    ELPUT  STAR        MAKE *ELIST* ENTRY                          SCANNER  2589
          2725  0100002273 +                      RJ     GET         GET NEXT CHARACTER                          SCANNER  2590
          2726  5110000000 X                      SA1    ELAST                                                   SCANNER  2591
                          6130000047              SB3    1R*                                                     SCANNER  2592
          2727  0423002730 +                      EQ     B2,B3,LEX84 IF EXPONENTIAL  **  OPERATOR                SCANNER  2593
                          0211000000              JP     B1          CONTINUE LEXICAL SCAN...                    SCANNER  2594
                                                                                                                 SCANNER  2595
                                        *         LEX84 - **                                                     SCANNER  2596
                                        *                                                                        SCANNER  2597
          2730  7261000001               LEX84    SX6    X1+1        LOGICALLY ERASE 1ST  *                      SCANNER  2598
                          7110000053 +            SX1    DSTAR                                                   SCANNER  2599
          2731  54610                             SA6    A1                                                      SCANNER  2600
                     0400001471 +                 EQ     ADD1        MAKE ELIST ENTRY                            SCANNER  2601
                                                                                                                 SCANNER  2602
                                        *         LEX85 - ALPHABETIC                                             SCANNER  2603
                                        *                                                                        SCANNER  2604
          2732  5110000024               LEX85    SA1    TYPE                                                    SCANNER  2605
                          6241777774              SB4    X1-3                                                    SCANNER  2606
          2733  0440002743 +                      ZR     B4,LEX88    IF *IMPLICIT* STMT                          SCANNER  2607
          2734  0100003174 +             LEX86    RJ     PACK7       PACK NAME AND STORE IN *ELIST*              SCANNER  2608
          2735  5110000001 C             LEX87    SA1    DTYPE                                                   SCANNER  2609
                          5120000024              SA2    TYPE                                                    SCANNER  2610
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    65
        LEX8 - STRAIGHT TRANSFORMATION.                               LEX8
  
          2736  0301002716 +                      ZR     X1,LEX8     IF NOT A *DEBUG* STMT                       SCANNER  2611
                          0312002716 +            NZ     X2,LEX8     IF A LEGAL NAME                             SCANNER  2612
          2737  0100000000 X                      DBGERR  (VARIABLE TOO LONG)                                    SCANNER  2613
          2742  0400002224 +                      EQ     D.BADC      EXIT TO ERROR PROCESSOR                     SCANNER  2614
                                                                                                                 SCANNER  2615
                                        *         SPECIAL-CASE *IMPLICIT* STATEMENT. WE CAN-T USE *PACK7*,       SCANNER  2616
                                        *         BECAUSE THE STMT MAY CONTAIN *DOUBLEPRECISION*, WHICH IS 15    SCANNER  2617
                                        *         CHARACTERS LONG.  USE *PACK30* INSTEAD.                        SCANNER  2618
                                                                                                                 SCANNER  2619
          2743  5110004000 +             LEX88    SA1    PARENS                                                  SCANNER  2620
                          43601                   MX6    1                                                       SCANNER  2621
          2744  0311002734 +                      NZ     X1,LEX86    IF INSIDE PAREN NEST (D.P. IMPOSSIBLE)      SCANNER  2622
                          5160003773 +            SA6    IMPFLG      *IMPLICIT PACK* FLAG ON                     SCANNER  2623
          2745  0100003134 +                      RJ     PACK30      PACK LONG TYPE KEYWORD                      SCANNER  2624
          2746  0100002351 +                      RJ     IMP         FORMAT AND (RE)STORE TYPE IN *ELIST*        SCANNER  2625
          2747  0400002735 +                      EQ     LEX87       REJOIN NORMAL PROCESSING FLOW               SCANNER  2626
                                        *         LEX89 - $                                                      SCANNER  2627
                                        *                                                                        SCANNER  2628
          2750  0100003365 +             LEX89    RJ     P$T         PROCESS $ TERMINATOR                        SCANNER  2629
          2751  7170000053                        SX7    1R$                                                     SCANNER  2630
                          5170000120 +            SA7    REG=B2                                                  FEAT121L  317
          2752  0400002775 +                      EQ     NEWS                                                    SCANNER  2632
  
  
  
  
                                        **        LSL - LIST SAVED LINES.                                        SCANNER  2634
                                        *                                                                        SCANNER  2635
                                        *                LISTS SOURCE LINES PREVIOUSLY SAVED IN A DEFERRED       SCANNER  2636
                                        *         LISTING BUFFER.                                                SCANNER  2637
                                        *                                                                        SCANNER  2638
                                        *         ENTRY  (DLBUF) = SAVED LINES, FORMATTED FOR LISTING.           SCANNER  2639
                                        *                (L.SL) = TOTAL LENGTH IN WORDS OF SAVED LINES.          SCANNER  2640
                                        *                                                                        SCANNER  2641
                                        *         EXIT   LINES LISTED.                                           SCANNER  2642
                                        *                (IEF) = 0                                               SCANNER  2643
                                        *                (L.SL) = 0                                              SCANNER  2644
                                        *                (B1) = 1                                                SCANNER  2645
                                        *                (B5) = 1                                                SCANNER  2646
                                        *                                                                        SCANNER  2647
                                        *         USES   X - 1, 6, 7                                             SCANNER  2648
                                        *                A - 1, 6                                                SCANNER  2649
                                        *                B - 1, 2, 5, 6, 7                                       SCANNER  2650
                                        *                                                                        SCANNER  2651
                                        *         CALLS  LISTL                                                   SCANNER  2652
                                                                                                                 SCANNER  2653
                                                                                                                 SCANNER  2654
          2753  0400402753 +             LSL      SUBR   =           ** ENTRY/EXIT **                            SCANNER  2655
          2754  5110002767 +                      SA1    L.SL                                                    SCANNER  2656
                          6110000001              SB1    1                                                       SCANNER  2657
          2755  43600                             MX6    0                                                       SCANNER  2658
                     6160000603 +                 SB6    DLBUF       (B6) = FWA OF NEXT LINE TO BE LISTED        SCANNER  2659
                               66510              SB5    B1                                                      SCANNER  2660
          2756  6221000000                        SB2    X1+         (B2) = TOTAL LENGTH OF REMAINING LINES      SCANNER  2661
                          5160000076 +            SA6    IEF         *BEFORE HEADER* FLAG OFF                    SCANNER  2662
          2757  0420002753 +             LSL2     ZR     B2,EXIT.    IF NO MORE TO LIST                          SCANNER  2663
                          56160                   SA1    B6          (X1) = FIRST WORD OF LINE                   SCANNER  2664
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    66
        LEX8 - STRAIGHT TRANSFORMATION.                               LSL 
  
                               43660              MX6    -12                                                     SCANNER  2665
          2760  15716                    LSL3     BX7    -X6*X1                                                  SCANNER  2666
                     54111                        SA1    A1+B1                                                   SCANNER  2667
                          0317002760 +            NZ     X7,LSL3     IF NOT ZERO BYTE LINE TERMINATOR            SCANNER  2668
          2761  65716                             SB7    A1-B6       (B7) = LINE LENGTH (WORDS)                  SCANNER  2669
                     74710                        SX7    A1          (X7) = FWA NEXT LINE                        SCANNER  2670
                          77627                   SX6    B2-B7       (X6) = TOTAL LENGTH OF REMAINING LINES      SCANNER  2671
                               20722              LX7    18D                                                     SCANNER  2672
          2762  12676                             BX6    X7+X6                                                   SCANNER  2673
                     46000                        NO                                                             SCANNER  2674
                          5160002767 +            SA6    L.SL        TEMP SAVE NEXT FWA, LENGTH                  SCANNER  2675
          2763  0100000000 X                      LISTL  B6,B7       ONE LINE TO -OUTPUT-                        SCANNER  2676
          2764  5110002767 +                      SA1    L.SL        RESTORE REGISTERS                           SCANNER  2677
                          43600                   MX6    0                                                       SCANNER  2678
                               66510              SB5    B1                                                      SCANNER  2679
          2765  63210                             SB2    X1                                                      SCANNER  2680
                     21122                        AX1    18D                                                     SCANNER  2681
                          63610                   SB6    X1                                                      SCANNER  2682
                               54610              SA6    A1                                                      SCANNER  2683
          2766  0400002757 +                      EQ     LSL2        LOOP FOR NEXT LINE                          SCANNER  2684
                                                                                                                 SCANNER  2685
                                                                                                                 SCANNER  2686
                                                                                                                 SCANNER  2687
          2767                     1     L.SL     BSSZ   1           ON ENTRY TO *LSL*, TOTAL STMT LEN (WORDS).  SCANNER  2688
                                        *                            *LSL* USES *L.SL* TO SAVE NEW FWA AND LEN.  SCANNER  2689
  
  
  
  
                                        **        MCE - MAKE *CONSTOR* ENTRY.                                    SCANNER  2691
                                        *                                                                        SCANNER  2692
                                        *         ENTRY  (X6) = DPC *CONSTOR* ENTRY, LEFT JUSTIFIED, BLANK FILL  SCANNER  2693
                                        *                                                                        SCANNER  2694
                                        *         USES   X - 1,6,7                                               SCANNER  2695
                                        *                A - 1,6,7                                               SCANNER  2696
                                        *                B - 3                                                   SCANNER  2697
                                        *         CALLS  PROE                                                    SCANNER  2698
                                        *                                                                        SCANNER  2699
                                                                                                                 SCANNER  2700
          2770  0400402770 +             MCE      SUBR               ** ENTRY/EXIT **                            SCANNER  2701
          2771  5110000063 +                      SA1    CCSTO       (X1)=ADDR OF NEXT AVAIL *CONSTOR* LOC       SCANNER  2702
                          7271000001              SX7    X1+1                                                    SCANNER  2703
          2772  53610                             SA6    X1          MAKE *CONSTOR* ENTRY                        SCANNER  2704
                     6231777175 -                 SB3    X1-CONSTOR-CONSTORS+1                                   SCANNER  2705
                               54710              SA7    A1                                                      SCANNER  2706
          2773  0730002770 +                      MI     B3,EXIT.    IF TABLE OVERFLOW NOT IMPENDING             SCANNER  2707
                          6160777336              POSTER SEV=FE,NR=E289,RETURN=PROE2   *CONSTOR OVERFLOW*        SCANNER  2708
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    67
        NEWS - NEW STATEMENT FOUND.                                   NEWS
  
                                        **        NEWS - NEW STATEMENT FOUND.                                    FEAT121L  319
                                        *                                                                        FEAT121L  320
                                                                                                                 FEAT121L  321
                                                                                                                 FEAT121L  322
          2775                           NEWS     BSS    0           ** ENTRY **                                 FEAT121L  323
          2775  5110000126 +                      SA1    SBUFLG                                                  FEAT121L  324
                          7100000001              SX0    1                                                       FEAT121L  325
          2776  13777                             BX7    X7-X7                                                   FEAT121L  326
                     21173                        AX1    59          (X1) = -0 IF STMT TERMINATED BY $           FEAT121L  327
                                        *                                 = +0 IF STMT TERMINATED BY NEXT STMT   FEAT121L  328
                          13601                   BX6    X0-X1       (X6) = -1 IF STMT TERMINATED BY $           FEAT121L  329
                                        *                                 = +1 IF STMT TERMINATED BY NEXT STMT   FEAT121L  330
                               54610              SA6    A1                                                      FEAT121L  331
          2777  0100003372 +                      RJ     RES         RESTORE INTERUPTED PACK REGISTERS           FEAT121L  332
                                                                                                                 FEAT121L  333
          3000  5120003777 +                      SA2    PAD                                                     FEAT121L  334
                          5130003770 +            SA3    CAD                                                     FEAT121L  335
          3001  5140003773 +                      SA4    IMPFLG                                                  FEAT121L  336
                          5150003772 +            SA5    HANG.                                                   FEAT121L  337
                                                                                                                 FEAT121L  338
          3002  0312003013 +                      NZ     X2,NEWS3    IF AN INTERUPTED *PACK7* PACK               FEAT121L  339
                          0333002217 +            MI     X3,CERP1    IF INCOMPLETE HOLLERITH CONSTANT PACK       FEAT121L  340
          3003  0313003020 +                      NZ     X3,NEWS4    IF AN INTERUPTED CONSTANT PACK              FEAT121L  341
                          0314003027 +            NZ     X4,NEWS6    IF PROCESSING *IMPLICIT* TYPE KEYWORD       FEAT121L  342
          3004  0315002213 +                      NZ     X5,ERP12    IF A HANGING PERIOD                         FEAT121L  343
                                                                                                                 FEAT121L  344
          3005  0100003372 +             NEWS2    RJ     RES         (RE) RESTORE INTERUPTED PACKING REGISTERS   FEAT121L  345
          3006  5110000037 C                      SA1    =XFEFLAG                                                FEAT121L  346
                          5120003775 +            SA2    NULLSTMT                                                FEAT121L  347
          3007  5130000023                        SA3    CLABEL                                                  FEAT121L  348
                          5140000024              SA4    TYPE                                                    FEAT121L  349
          3010  0311002366 +                      NZ     X1,LEX      IF FATAL TO EXECUTION ERROR FOUND, EXIT...  FEAT121L  350
                          0302003031 +            ZR     X2,NEWS7    IF EMPTY STATEMENT                          FEAT121L  351
          3011  0324002366 +                      PL     X4,LEX      IF STATEMENT HAS ALREADY BEEN TYPED,EXIT... FEAT121L  352
                          5151777776              SA5    B1-1                                                    FEAT121L  353
          3012  63450                             SB4    X5          (B4)=ADDR OF *LEX-N-* TYPER FOR THIS KEYWRD FEAT121L  354
                     0244000000                   JP     B4                                                      FEAT121L  355
                                                                                                                 FEAT121L  356
                                        *         HERE IF INTERUPTED *PACK7* PACK.                               FEAT121L  357
                                                                                                                 FEAT121L  358
          3013  5110003771 +             NEWS3    SA1    EXPEXP                                                  FEAT121L  359
                          0306003005 +            ZR     X6,NEWS2    IF PACKING REGISTER EMPTY, NOTHING TO STORE FEAT121L  360
          3014  0311002213 +                      NZ     X1,ERP12    IF INCOMPLETE RELATIONAL PACK               FEAT121L  361
                          0100003344 +            RJ     PVN         PROCESS VARIABLE NAME                       FEAT121L  362
          3015  0306003034 +                      ZR     X6,NEWS8    IF NAME TOO LONG IN C$ DEBUG STATEMENT      FEAT121L  363
                          10166                   ELPUT  X6          MAKE *ELIST* ENTRY                          FEAT121L  364
          3017  0400003005 +                      EQ     NEWS2       REJOIN NORMAL FLOW...                       FEAT121L  365
                                                                                                                 FEAT121L  366
                                        *         HERE IF INTERUPTED CONSTANT PACK.                              FEAT121L  367
                                                                                                                 FEAT121L  368
          3020  5110003771 +             NEWS4    SA1    EXPEXP                                                  FEAT121L  369
                          5120003772 +            SA2    HANG.                                                   FEAT121L  370
          3021  0311002213 +                      NZ     X1,ERP12    IF HANGING EXPONENT                         FEAT121L  371
                          0302003025 +            ZR     X2,NEWS5    IF NO HANGING PERIOD                        FEAT121L  372
          3022  5071000000                        SA7    A1+         CLEAR *HANGING PERIOD* FLAG                 FEAT121L  373
                          6120000057              SB2    1R.                                                     FEAT121L  374
          3023  0100003107 +                      RJ     PACKC       ADD . TO CONSTANT                           FEAT121L  375
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    68
        NEWS - NEW STATEMENT FOUND.                                   NEWS
  
          3024  7170000002                        SX7    2                                                       FEAT121L  376
                          5170000072 +            SA7    CTYPE       CONSTANT TYPE = REAL                        FEAT121L  377
          3025  0100003120 +             NEWS5    RJ     PACKT       TERMINATE THE CONSTANT PACK                 FEAT121L  378
          3026  0400003005 +                      EQ     NEWS2       REJOIN NORMAL FLOW...                       FEAT121L  379
                                                                                                                 FEAT121L  380
                                        *         HERE IF PROCESSING *IMPLICIT* TYPE KEYWORD.                    FEAT121L  381
                                                                                                                 FEAT121L  382
          3027  0100002351 +             NEWS6    RJ     IMP         FORMAT AND (RE)STORE TYPE IN ELIST          FEAT121L  383
          3030  0400003005 +                      EQ     NEWS2       REJOIN NORMAL FLOW...                       FEAT121L  384
                                                                                                                 FEAT121L  385
                                        *         HERE IF EMPTY STATEMENT.                                       FEAT121L  386
                                                                                                                 FEAT121L  387
          3031  0313002164 +             NEWS7    NZ     X3,ERP2     IF EMPTY STMT CONTAINS A VALID LABEL        FEAT121L  388
                          5110000000 X            SA1    =XDFLAG                                                 FEAT121L  389
          3032  21101                             AX1    1                                                       FEAT121L  390
                     0301001314 +                 ZR     X1,SCANNER1  IF NOT PROCESSING DBG EXT PACKET FILE      FEAT121L  391
          3033  0400002366 +                      EQ     LEX                                                     FEAT121L  392
                                                                                                                 FEAT121L  393
                                        *         HERE IF NAME TOO LONG (.GT. 7 CHARS) IN C$ DEBUG STATEMENT.    FEAT121L  394
                                                                                                                 FEAT121L  395
          3034  5160000024               NEWS8    SA6    TYPE        SET TO *BAD DEBUG STATEMENT*                FEAT121L  396
                          0100000000 X            DBGERR (KEYWORD OR VARIABLE TOO LONG.)                         FEAT121L  397
          3037  0400002366 +                      EQ     LEX         EXIT...                                     FEAT121L  398
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    69
        NXT - REQUEST AND PROCESS NEXT SOURCE LINE.                   NXT 
  
                                        **        NXT - REQUEST AND PROCESS NEXT SOURCE LINE.                    FEAT121L  400
                                        *                                                                        FEAT121L  401
                                        *                TASKS PERFORMED --                                      FEAT121L  402
                                        *         1) CALLS *RNC* TO READ NEXT LINE FROM INPUT INTO (CP.CARD)     FCC1328X  631
                                        *              ET SEQ.                                                   FEAT121L  404
                                        *         2) CALLS *CBL* TO CLASSIFY AND BURST LINE AT (CP.CARD) ET SEQ. FEAT121L  405
                                        *         3A) IF A BLANK OR COMMENT LINE, CALLS *PBC* TO PROCESS IT AND  FEAT121L  406
                                        *               *PLR* TO LIST IT.                                        FEAT121L  407
                                        *          B) IF A CONTINUATION LINE, CALLS *PLR* TO LIST IT.            FEAT121L  408
                                        *          C) IF AN EOR/EOF IS ENCOUNTERED ON INPUT FILE, PLACES THE     FEAT121L  409
                                        *               CHARACTERS *END ABSENT* INTO (CP.CARD) AND CALLS *CBL*   FEAT121L  410
                                        *               TO CLASSIFY AND BURST IT.                                FEAT121L  411
                                        *                                                                        FEAT121L  412
                                        *         ENTRY  NONE                                                    FEAT121L  413
                                        *                                                                        FEAT121L  414
                                        *         EXIT   NEW LINE CLASSIFIED AND BURST.                          FEAT121L  415
                                        *                (X1) = .NZ. IF A NEW STATEMENT WAS FOUND                FEAT121L  416
                                        *                     = .ZR. IF A CONTINUATION OF CURRENT STATEMENT      FEAT121L  417
                                        *                              WAS FOUND                                 FEAT121L  418
                                        *                                                                        FEAT121L  419
                                        *         USES   ALL                                                     FEAT121L  420
                                        *                                                                        FEAT121L  421
                                        *         CALLS  CBL,D.IDSP,PBC,PLR,POSTER,RNC                           FCC1328X  632
                                        *                                                                        FEAT121L  423
                                        *                                                                        FEAT121L  424
                                                                                                                 SCANNER  2712
                                                                                                                 SCANNER  2713
          3040  0400403040 +             NXT      SUBR               ** ENTRY/EXIT **                            FEAT121L  425
          3041  6110000001               NXT2     SB1    1                                                       FCC1328X  633
                          0100003401 +            RJ     RNC         READ NEXT CARD                              FCC1328X  634
          3042  7267000002                        SX6    X7+2                                                    FCC1328X  635
                          5160000110 +            SA6    L.PLINE                                                 FCC1328X  636
          3043  0311003063 +                      NZ     X1,NXT6     IF INPUT FILE EMPTY                         SCANNER  2716
          3044  0100001560 +             NXT3     RJ     CBL         CLASSIFY AND BURST LINE                     SCANNER  2717
          3045  0315003047 +                      NZ     X5,NXT4     IF COMMENT                                  SCANNER  2718
                          0312003052 +            NZ     X2,NXT5     IF CONTINUATION                             SCANNER  2719
                                                                                                                 SCANNER  2720
                                        *         HERE IF INITIAL LINE.                                          SCANNER  2721
                                                                                                                 SCANNER  2722
          3046  0321003075 +                      PL     X1,NXT8     IF COLUMNS 7-72 NOT BLANK                   FEAT121L  426
                          0314003075 +            NZ     X4,NXT8     IF LABELLED                                 FEAT121L  427
                                                                                                                 SCANNER  2725
                                        *         HERE IF BLANK OR COMMENT.                                      SCANNER  2726
                                                                                                                 SCANNER  2727
          3047  0100003214 +             NXT4     RJ     PBC         PROCESS BLANK OR COMMENT                    SCANNER  2728
          3050  0100003265 +                      RJ     PLR         PROCESS LISTING REQUEST                     SCANNER  2729
          3051  0400003041 +                      EQ     NXT2        LOOP FOR NEXT LINE                          SCANNER  2730
                                                                                                                 SCANNER  2731
                                        *         HERE IF CONTINUATION.                                          SCANNER  2732
                                                                                                                 SCANNER  2733
          3052  0100003265 +             NXT5     RJ     PLR         PROCESS LISTING REQUEST                     SCANNER  2734
          3053  5110000070 +                      SA1    CONTCNT                                                 SCANNER  2735
                          6271777753              SB7    X1-20                                                   SCANNER  2736
          3054  0670003076 +                      PL     B7,NXT9     IF MORE THAN 19 CONTINUATION LINES          FEAT121L  428
                          5110000000 X            SA1    DFLAG                                                   SCANNER  2738
          3055  0301003056 +                      ZR     X1,NXT5A    IF DEBUG OPTION NOT SELECTED                SCANNER  2739
                          0100000000 X            CALL   D.IDSP      SAVE UPDATE IDENT                           SCANNER  2740
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    70
        NXT - REQUEST AND PROCESS NEXT SOURCE LINE.                   NXT 
  
          3056  5110003767 +             NXT5A    SA1    BLNKSTMT                                                SCANNER  2741
                          5120000037 C            SA2    =XFEFLAG                                                FEAT121L  429
          3057  0312003041 +                      NZ     X2,NXT2     IF FATAL ERROR OCCURRED, STRIP CONTINUATION FEAT121L  430
                          0301003040 +            ZR     X1,EXIT.    IF PRIOR LINE(S) OF THIS STMT NON-BLANK     SCANNER  2742
                                        *                            (MAY BE PACKING A HOLLERITH STRING).        SCANNER  2743
          3060  5110001210 +                      SA1    SBUFF                                                   SCANNER  2744
                          0331003041 +            MI     X1,NXT2     IF COLUMNS 7-72 BLANK                       SCANNER  2745
                                                                                                                 FCC1059X   11
                                        *         HERE IF NON-BLANK CONTINUATION LINE FOLLOWS BLANK INITIAL      FCC1059X   12
                                        *         LINE.  UNDO *PBC*-S REVERSE CLABEL-TO-NLABEL TRANSFER.         FCC1059X   13
                                                                                                                 FCC1059X   14
          3061  43600                             MX6    0                                                       FCC1059X   15
                     5160000060                   SA6    NLABEL                                                  FCC1059X   16
          3062  0400003075 +                      EQ     NXT8        PROCESS AS INITIAL LINE                     FEAT121L  431
                                                                                                                 SCANNER  2747
                                        *         HERE IF INPUT FILE EMPTY.                                      SCANNER  2748
                                                                                                                 SCANNER  2749
          3063  5110000000 X             NXT6     SA1    =XDFLAG                                                 SCANNER  2750
                          21101                   AX1    1                                                       SCANNER  2751
          3064  0311003073 +                      NZ     X1,NXT7     IF INPUT FILE = EXTERNAL DEBUG FILE         SCANNER  2752
                          5110000000 +            SA1    ENDL        INVENT *END* LINE                           SCANNER  2753
          3065  54211                             SA2    A1+B1                                                   SCANNER  2754
                     10611                        BX6    X1                                                      SCANNER  2755
                          22702                   LX7    X2                                                      SCANNER  2756
          3066  5160000000 X                      SA6    =XCP.CARD                                               SCANNER  2757
                          54761                   SA7    A6+B1                                                   SCANNER  2758
                               13666              BX6    X6-X6                                                   FCC1328X  637
          3067  54671                             SA6    A7+B1       MARK FULL WORD EOL                          FCC1328X  638
                     66211                        SB2    B1+B1                                                   FCC1328X  639
                          76621                   SX6    B2+B1       (X6) = NR OF WORDS IN LINE = 3              FCC1328X  640
                               73762              SX7    X6+B2       (X7) = NR OF WORDS IN PRINT LINE = 5        FCC1328X  641
          3070  5160000107 +                      SA6    L.CARD                                                  SCANNER  2761
                          5170000110 +            SA7    L.PLINE                                                 SCANNER  2762
          3071  7160000030                        SX6    ST.INV-ST.END                                           SCANNER  2763
                          5160000114 +            SA6    NOEND       SET *END MISSING*                           SCANNER  2764
          3072  0400003044 +                      EQ     NXT3        GO PROCESS INVENTED *END*                   SCANNER  2765
                                                                                                                 SCANNER  2766
          3073  43601                    NXT7     MX6    1                                                       SCANNER  2767
                     76700                        SX7    B0                                                      SCANNER  2768
                          5160000076 +            SA6    IEF         RESET *INITIAL ENTRY* STATUS FOR MAIN PROG  SCANNER  2769
          3074  5170000001 C                      SA7    C$STMT                                                  SCANNER  2770
                                                                                                                 FEAT121L  432
                                        *         HERE IF NEW STATEMENT FOUND.                                   FEAT121L  433
                                                                                                                 FEAT121L  434
          3075  76110                    NXT8     SX1    B1          SET TO *NEW STATEMENT FOUND*                FEAT121L  435
                     0400003040 +                 EQ     EXIT.                                                   FEAT121L  436
                                                                                                                 FEAT121L  437
                                        *         HERE IF MORE THAN 19 CONTINUATION LINES -- ERROR.              FEAT121L  438
                                                                                                                 FEAT121L  439
          3076  67771                    NXT9     SB7    B7-B1                                                   FEAT121L  440
                     5110000001 C                 SA1    C$STMT                                                  FEAT121L  441
                               43600              MX6    0                                                       FEAT121L  442
          3077  0670003041 +                      PL     B7,NXT2     IF ERROR MSG ALREADY ISSUED                 FEAT121L  443
                          0311003103 +            NZ     X1,NXT10    IF ERROR WAS IN C$-DEBUG STATEMENT          FEAT121L  444
          3100  7160000022                        SX6    ST.BAD                                                  FEAT121L  445
                          5160000024              SA6    TYPE        SET TO *BAD STATEMENT*                      FEAT121L  446
          3101  6160777740                        POSTER SEV=FE,NR=E31,RETURN=NXT2  *STATEMENT TOO LONG*         FEAT121L  447
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    71
        NXT - REQUEST AND PROCESS NEXT SOURCE LINE.                   NXT 
  
                                                                                                                 FEAT121L  448
          3103  5160000024               NXT10    SA6    TYPE        SET TO *BAD C$-DEBUG STATEMENT*             FEAT121L  449
                          0100000000 X            DBGERR (TOO MANY CONTINUATION LINES.)                          FEAT121L  450
          3106  0400003041 +                      EQ     NXT2                                                    FEAT121L  451
  
  
  
  
                                        ***                                                                      SCANNER  2867
                                        *         PACKC - PACKS TEN DPC CHARACTERS PER WORD AND STORES IT        SCANNER  2868
                                        *                 IN 'CONSTOR'.                                          SCANNER  2869
                                        *                                                                        SCANNER  2870
                                        *                ONE CHARACTER IS PASSED IN B2 TO 'PACKC' PER RJ CALL.   SCANNER  2871
                                        *                SUCCESSIVE CHARACTERS ARE PACKED IN X6, LEFT TO RIGHT.  SCANNER  2872
                                        *                WHEN A FULL WORD OF TEN CHARACTERS HAS ACCUMULATED IN   SCANNER  2873
                                        *                X6, 'PACKC' CALLS 'CKCSTOR' TO ENTER THE WORD IN        SCANNER  2874
                                        *                'CONSTOR'.                                              SCANNER  2875
                                        *                                                                        SCANNER  2876
                                        *  ON ENTRY - B2 = NEW CHARACTER TO PACK                                 SCANNER  2877
                                        *             B3 = PACKING SHIFT COUNT                                   SCANNER  2878
                                        *             X6 = PACKING REGISTER                                      SCANNER  2879
                                        *                                                                        SCANNER  2880
                                        *  ON EXIT  - B3 AND X6 ARE UPDATED                                      SCANNER  2881
                                        *                                                                        SCANNER  2882
                                        *         REGISTERS ALTERED (INCLUDING CALLS TO 'CKCSTOR') -             SCANNER  2883
                                        *                X0,X1,X2,   X5,X6,X7                                    SCANNER  2884
                                        *                   A1,A2,   A5,A6,A7                                    SCANNER  2885
                                        *                         B3                                             SCANNER  2886
                                        *                                                                        SCANNER  2887
          3107  0400403107 +             PACKC    EQ     *+1S17      ENTRY/EXIT                                  SCANNER  2888
          3110  5110000111 +                      SA1       N         STRING LENGTH                              SCANNER  2889
                          5120000063 +            SA2    CCSTO       NEXT VACANT LOCATION IN 'CONSTOR'           SCANNER  2890
          3111  0311003113 +                      NZ     X1,NOTF      JUMP IF STRING ALREADY STARTED             SCANNER  2891
                          6130000066              SB3       54        INITIALIZE FOR NEW STRING, SHIFT COUNT     SCANNER  2892
          3112  10722                             BX7    X2                                                      SCANNER  2893
                     43600                        MX6    0           CLEAR PACKING REGISTER                      SCANNER  2894
                          5170000106 +            SA7       LOCC      POINTER FOR E-LIST ENTRY                   SCANNER  2895
                                                                                                                 SCANNER  2896
          3113  76020                    NOTF     SX0    B2           CHARACTER TO X0                            SCANNER  2897
                     7271000001                   SX7    X1+1         NEW CHARACTER COUNT                        SCANNER  2898
                               22030              LX0    X0,B3                                                   SCANNER  2899
          3114  12660                             BX6    X6+X0        OR INTO STRING                             SCANNER  2900
                     6133777771                   SB3    B3-6         NEXT SHIFT COUNT                           SCANNER  2901
                               54710              SA7    A1           STORE IN N                                 SCANNER  2902
          3115  0630003107 +                      PL     B3,PACKC     RETURN                                     SCANNER  2903
                          0100002770 +            RJ     MCE         MAKE *CONSTOR* ENTRY                        SCANNER  2904
          3116  7160000000                        SX6    0           CLEAR PACKING REGISTER                      SCANNER  2905
                          6130000066              SB3       54                                                   SCANNER  2906
          3117  0400003107 +                      EQ        PACKC     READY FOR NEXT CHARACTER                   SCANNER  2907
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    72
        BLANK FILL LAST WORD AND STORE IN E-LIST                      PACKT 
  
                                        * PACKT FILLS LAST WORD WITH BLANKS, MAKES E-LIST ENTRY                  SCANNER  2909
                                                                                                                 SCANNER  2910
          3120  0400403120 +             PACKT    EQ     *+1S17      ENTRY/EXIT                                  SCANNER  2911
          3121  5110000106 +                      SA1       LOCC      POINTER FOR E-LIST ENTRY                   SCANNER  2912
                          5120000072 +            SA2       CTYPE     CONSTANT TYPE                              SCANNER  2913
          3122  5130000111 +                      SA3    N                                                       SCANNER  2914
                          13777                   BX7    X7-X7                                                   SCANNER  2915
                               20255              LX2    45                                                      SCANNER  2916
          3123  54730                             SA7    A3                                                      SCANNER  2917
                     12112                        BX1    X1+X2                                                   SCANNER  2918
                          20322                   LX3    18                                                      SCANNER  2919
                               36213              IX2    X1+X3                                                   SCANNER  2920
          3124  5170003770 +                      SA7    CAD         PACK-IN-PROGRESS FLAG -OFF-                 SCANNER  2921
                          6170000066              SB7    54                                                      SCANNER  2922
          3125  27702                             PX7    X2,B0       12/2000B,3/TYPE,9/0,18/LEN,18/*CONSTOR* LOC SCANNER  2923
                     43001                        MX0    1                                                       SCANNER  2924
                          5110003612 +            SA1    =10H              10 BLANKS FOR FILL                    SCANNER  2925
          3126  5170000067 +                      SA7    COMMON                                                  SCANNER  2926
                          0437003131 +            EQ     B3,B7,PKT2  IF PACKING REGISTER IS EMPTY                SCANNER  2927
                                                                                                                 SCANNER  2928
                                        *         BLANK FILL AND STORE THE FINAL WORD OF THE STRING.             SCANNER  2929
                                                                                                                 SCANNER  2930
          3127  6133777712                        SB3    B3-54+1     - (LENGTH OF FILL MASK COMPLEMENT) + 1      SCANNER  2931
                          22030                   LX0    X0,B3       BECOMES RIGHT SHIFT SINCE B3 IS NEGATIVE    SCANNER  2932
                               15110              BX1    -X0*X1                                                  SCANNER  2933
          3130  36661                             IX6    X6+X1       MERGE STRING AND BLANK FILL                 SCANNER  2934
                     0100002770 +                 RJ     MCE         MAKE *CONSTOR* ENTRY                        SCANNER  2935
                                                                                                                 SCANNER  2936
          3131  5110000067 +             PKT2     ELPUT  COMMON                                                  SCANNER  2937
          3132  0400003120 +                      EQ        PACKT                                                SCANNER  2938
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    73
        PACK SYMBOLIC IDENT (30 CHARAC) AND STORE IN E-LIST           PACK30
  
          3133  7064776567 -             PACK30.1 SX6    A4-SBUFF                                                SCANNER  2940
                          5160000066 +            SA6    COLS        UPDATE POINTER TO NEXT COLUMN               SCANNER  2941
                                                                                                                 SCANNER  2942
          3134  0400403134 +             PACK30   SUBR               ** ENTRY/EXIT **                            SCANNER  2943
          3135  5130000066 +                      SA3    COLS        GET NEXT COLUMN NUMBER                      SCANNER  2944
                          6150000001              SB5    1                                                       SCANNER  2945
          3136  5243001210 +                      SA4    X3+SBUFF    GET NEXT COLUMN                             SCANNER  2946
                          13666                   BX6    X6-X6       CLEAR PACKING REGISTER                      SCANNER  2947
                               76120              SX1    B2                                                      SCANNER  2948
          3137  43315                             MX3    -1R.        SHIFT TEST MASK FOR ILLEG CHARS 00B,60B_77B SCANNER  2949
                     66600                        SB6    B0          (B6) = KEYWORD STRING LENGTH                SCANNER  2950
                          5160000077 +            SA6    KEYL        INITIALIZE KEYWORD LENGTH = 0               SCANNER  2951
          3140  6130000066                        SB3    54          INITIALIZE PACKING SHIFT COUNTER            SCANNER  2952
                          6140010044              SB4    7777B+1R+                                               SCANNER  2953
          3141  5100777771                        SA0    -6                                                      SCANNER  2954
                                                                                                                 SCANNER  2955
                                        *  ????   BEGIN 6600 IN-STACK LOOP                                       SCANNER  2956
                                                                                                                 SCANNER  2957
          3142  22231                    PACK30.2 LX2    B3,X1       SHIFT CHARACTER FOR PACKING                 SCANNER  2958
                     66665                        SB6    B6+B5       STRING LENGTH + 1                           SCANNER  2959
                          64303                   SB3    A0+B3       PACKING SHIFT COUNT - 6                     SCANNER  2960
                               12662              BX6    X6+X2       PACK THE CHARACTER                          SCANNER  2961
          3143  0730003146 +             PACK30.3 MI     B3,PACK30.4 IF PACKING REGISTER FULL                    SCANNER  2962
                          6274007777              SB7    X4+7777B    BIAS ILLEGAL CHAR TO 7777B OR 10057B_10076B SCANNER  2963
          3144  23073                             AX0    B7,X3       B7 IS TRANSFERRED TO SHIFT UNIT MODULO 64   SCANNER  2964
                     73140                        SX1    X4          STRIP EXPONENT FOR PACKING                  SCANNER  2965
                          0300003146 +            ZR     X0,PACK30.4 IF ILLEGAL CHARACTER OR END-OF-LINE         SCANNER  2966
          3145  5044000001                        SA4    A4+1        GET NEXT CHARACTER                          SCANNER  2967
                          0774003142 +            LT     B7,B4,PACK30.2 IF NOT STRING TERMINATING CHARACTER      SCANNER  2968
                                                                                                                 SCANNER  2969
                                        *  ''''   END IN-STACK LOOP                                              SCANNER  2970
                                                                                                                 SCANNER  2971
          3146  6120000036               PACK30.4 SB2    30                                                      SCANNER  2972
                          5120000077 +            SA2    KEYL                                                    SCANNER  2973
          3147  0726002164 +                      GT     B6,B2,ERP2  IF KEYWORD LONGER THAN 30 CHARACTERS        SCANNER  2974
                          73225                   SX2    X2+B5                                                   SCANNER  2975
                               27762              PX7    X2,B6       12/2000B + NR CHARACTERS, 48/NR WORDS       SCANNER  2976
          3150  5262000077 +                      SA6    KEYW-1+X2   PACKING REGISTER TO KEYWORD BUFFER          SCANNER  2977
                          63210                   SB2    X1          (B2) = KEYWORD TERMINATOR                   SCANNER  2978
                               54720              SA7    A2          UPDATE LENGTHS                              SCANNER  2979
          3151  43700                             MX7    0                                                       SCANNER  2980
                     54765                        SA7    A6+B5                                                   SCANNER  2981
                          0300003154 +            ZR     X0,PACK30.5 IF ILLEGAL CHARACTER OR END-OF-LINE         SCANNER  2982
          3152  0674003133 +                      GE     B7,B4,PACK30.1  IF STRING TERMINATING CHARACTER FOUND   SCANNER  2983
                          6130000066              SB3    54          RESET PACKING SHIFT COUNTER                 SCANNER  2984
          3153  7160000000                        SX6    0           CLEAR PACKING REGISTER                      SCANNER  2985
                          0400003143 +            EQ     PACK30.3                                                SCANNER  2986
                                                                                                                 SCANNER  2987
          3154  6170000003               PACK30.5 SB7    3                                                       SCANNER  2988
                          0567003163 +            NE     B6,B7,PACK30.6    IF KEYWORD NOT 3 CHARACTERS LONG      SCANNER  2989
          3155  5110003661 +                      SA1    =3LEND                                                  SCANNER  2990
                          5150000070 +            SA5    CONTCNT                                                 SCANNER  2991
          3156  6140002716 +                      SB4    LEX8                                                    SCANNER  2992
                          13261                   BX2    X6-X1                                                   SCANNER  2993
          3157  0312003163 +                      NZ     X2,PACK30.6 IF KEYWORD NOT *END*                        SCANNER  2994
                          5110000021              SA1    LTYPE                                                   SCANNER  2995
          3160  0315003163 +                      NZ     X5,PACK30.6 IF CONTINUATION LINE                        SCANNER  2996
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    74
        PACK SYMBOLIC IDENT (30 CHARAC) AND STORE IN E-LIST           PACK30
  
                          0414003163 +            EQ     B1,B4,PACK30.6    IF CALLED FROM *LEX8*                 SCANNER  2997
          3161  0311003163 +                      NZ     X1,PACK30.6 IF *END* IS OBJECT OF A LOGICAL *IF*        SCANNER  2998
                          0720002124 +            MI     B2,ENDP     IF KEYWORD TERMINATED BY E-O-L SENTINEL     SCANNER  2999
          3162  5110000114 +                      SA1    NOEND                                                   SCANNER  3000
                          0311002124 +            NZ     X1,ENDP     IF *END* WAS INVENTED                       SCANNER  3001
          3163  0100003230 +             PACK30.6 RJ     PGCOM                                                   SCANNER  3002
          3164  5150000077 +                      SA5    KEYL                                                    SCANNER  3003
                          5100777771              SA0    -6                                                      SCANNER  3004
          3165  43273                             MX2    -1                                                      SCANNER  3005
                     36752                        IX7    X5+X2                                                   SCANNER  3006
                          54750                   SA7    A5          BACK UP KEYWORD BUFFER POINTER              SCANNER  3007
          3166  0540003143 +                      NZ     B4,PACK30.3 IF NOT STARTING DELIMITED HOLLERITH STRING  SCANNER  3008
                          5044000001              SA4    A4+1        ADVANCE COLUMN POINTER                      SCANNER  3009
          3167  0400003133 +                      EQ     PACK30.1                                                SCANNER  3010
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    75
        PACK SYMBOLIC NAME (7 CHARAC) AND STORE IN E-LIST             PACK7 
  
          3170  5120000000 X             PACK7.1  SA2    ELAST                                                   SCANNER  3012
                          5130000000 X            SA3    FWAWORK                                                 SCANNER  3013
          3171  7272777776                        SX7    X2-1        INCREMENT INVERTED E-LIST POINTER           SCANNER  3014
                          37237                   IX2    X3-X7                                                   SCANNER  3015
                               54720              SA7    A2          UPDATE E-LIST POINTER                       SCANNER  3016
          3172  0322002160 +                      PL     X2,ERP1     IF E-LIST SPACE FULL                        SCANNER  3017
                          53670                   SA6    X7          PACKED NAME TO E-LIST                       SCANNER  3018
          3173  7160000000               PACK7.2  SX6    B0+                                                     SCANNER  3019
                          5160003777 +            SA6    PAD         TURN PACK IN PROGRESS FLAG OFF              SCANNER  3020
                                                                                                                 SCANNER  3021
          3174  0400403174 +             PACK7    SUBR   =           ** ENTRY/EXIT **                            SCANNER  3022
          3175  5130000066 +                      SA3    COLS        GET NEXT COLUMN NUMBER                      SCANNER  3023
                          6150000001              SB5    1                                                       SCANNER  3024
          3176  5243001210 +                      SA4    X3+SBUFF    GET NEXT COLUMN                             SCANNER  3025
                          76750                   SX7    B5                                                      SCANNER  3026
                               13666              BX6    X6-X6       CLEAR PACKING REGISTER                      SCANNER  3027
          3177  5170003777 +                      SA7    PAD         SET FLAG TO *PACK7-IN-PROGRESS*             SCANNER  3028
                          76120                   SX1    B2                                                      SCANNER  3029
                               43315              MX3    -1R.        SHIFT TEST MASK FOR ILLEG CHARS 00B,60B_77B SCANNER  3030
          3200  6130000052                        SB3    42          INITIALIZE PACKING SHIFT COUNTER            SCANNER  3031
                          6140010044              SB4    7777B+1R+                                               SCANNER  3032
          3201  6160000000                        SB6    0           INITIALIZE STRING LENGTH COUNTER            SCANNER  3033
                          5100777771              SA0    -6                                                      SCANNER  3034
                                                                                                                 SCANNER  3035
                                        *  ????   BEGIN 6600 IN-STACK LOOP                                       SCANNER  3036
                                                                                                                 SCANNER  3037
          3202  22131                    PACK7.3  LX1    X1,B3       SHIFT CHARACTER FOR PACKING                 SCANNER  3038
                     66665                        SB6    B6+B5       STRING LENGTH + 1                           SCANNER  3039
                          64303                   SB3    A0+B3       PACKING SHIFT COUNT - 6                     SCANNER  3040
                               12661              BX6    X6+X1       PACK THE CHARACTER                          SCANNER  3041
          3203  6274007777               PACK7.4  SB7    X4+7777B    BIAS ILLEGAL CHAR TO 7777B OR 10057B_10076B SCANNER  3042
                          23073                   AX0    B7,X3       B7 IS TRANSFERRED TO SHIFT UNIT MODULO 64   SCANNER  3043
                               73140              SX1    X4          STRIP EXPONENT FOR PACKING                  SCANNER  3044
          3204  0300003211 +                      ZR     X0,PACK7.5  IF ILLEGAL CHAR OR END-OF-LINE SENTINEL     SCANNER  3045
                          5044000001              SA4    A4+1        GET NEXT CHARACTER                          SCANNER  3046
          3205  0774003202 +             PACK7.H  LT     B7,B4,PACK7.3  IF NOT STRING TERMINATING CHARACTER      SCANNER  3047
                                                                                                                 SCANNER  3048
                                        *  ''''   END IN-STACK LOOP                                              SCANNER  3049
                                                                                                                 SCANNER  3050
                          7074776567 -            SX7    A4-SBUFF                                                SCANNER  3051
          3206  6221000000                        SB2    X1+         (B2) = STRING TERMINATING CHARACTER         SCANNER  3052
                          5170000066 +            SA7    COLS        UPDATE POINTER TO NEXT COLUMN               SCANNER  3053
          3207  0100003344 +                      RJ     PVN         PROCESS VARIABLE NAME                       SCANNER  3054
          3210  0316003170 +                      NZ     X6,PACK7.1  IF NAME LENGTH LEGAL                        SCANNER  3055
                          0400003173 +            EQ     PACK7.2     (HERE ONLY IF C$ DEBUG STATEMENT ERROR)     SCANNER  3056
                                                                                                                 SCANNER  3057
          3211  63210                    PACK7.5  SB2    X1          SAVE SPECIAL CHAR THAT TERMINATED STRING    SCANNER  3058
                     0100003230 +                 RJ     PGCOM       GO CHECK CHAR AND LOOK FOR CONTINUATION     SCANNER  3059
          3212  5100777771                        SA0    -6                                                      SCANNER  3060
                          0540003203 +            NZ     B4,PACK7.4  IF NOT STARTING DELIMITED HOLLERITH STRING  SCANNER  3061
          3213  5044000001                        SA4    A4+1        ADVANCE COLUMN POINTER                      SCANNER  3062
                          0400003205 +            EQ     PACK7.H                                                 SCANNER  3063
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    76
        PACK SYMBOLIC NAME (7 CHARAC) AND STORE IN E-LIST             PBC 
  
                                        **        PBC - PROCESS BLANK AND COMMENT LINES.                         SCANNER  3065
                                        *                                                                        SCANNER  3066
                                        *         ENTRY  (X5) = .NZ. IF COMMENT LINE.                            SCANNER  3067
                                        *                                                                        SCANNER  3068
                                        *         USES   X - 1, 2, 6, 7                                          SCANNER  3069
                                        *                A - 1, 2, 6, 7                                          SCANNER  3070
                                        *                B - NONE.                                               SCANNER  3071
                                        *                                                                        SCANNER  3072
                                        *         CALLS  D.IDSP                                                  SCANNER  3073
                                                                                                                 SCANNER  3074
                                                                                                                 SCANNER  3075
          3214  0400403214 +             PBC      SUBR               ** ENTRY/EXIT **                            SCANNER  3076
          3215  0315003221 +                      NZ     X5,PBC2     IF COMMENT LINE                             SCANNER  3077
                          5110000112 +            SA1    NABC                                                    SCANNER  3078
          3216  5120000023                        SA2    CLABEL                                                  SCANNER  3079
                          7160000001              SX6    1                                                       SCANNER  3080
          3217  36716                             IX7    X1+X6                                                   SCANNER  3081
                     54710                        SA7    A1          INCREMENT NON-ANSI BLANK LINE COUNT         SCANNER  3082
                          5160003767 +            SA6    BLNKSTMT    BLANK STATEMENT (SO FAR) FLAG ON            SCANNER  3083
          3220  10722                             BX7    X2                                                      SCANNER  3084
                     5170000060                   SA7    NLABEL      RETAIN LABEL OF LAST NON-BLANK STATEMENT    SCANNER  3085
          3221  5110000000 X             PBC2     SA1    DFLAG                                                   SCANNER  3086
                          0301003214 +            ZR     X1,EXIT.    IF DEBUG OFF                                SCANNER  3087
          3222  0100000000 X                      CALL   D.IDSP      SAVE UPDATE IDENT                           SCANNER  3088
          3223  6110000001                        SB1    1                                                       SCANNER  3089
                          0400003214 +            EQ     EXIT.                                                   SCANNER  3090
  
  
  
  
                                        **        PGCOM - COMMON ILLEGAL CHARACTER PROCESSOR.                    FEAT121L  452
                                        *                                                                        FEAT121L  453
                                        *                                                                        FEAT121L  454
                                        *                ENTERED IF AN ILLEGAL CHARACTER IS ENCOUNTERED          FEAT121L  455
                                        *         IN *SBUFF*.                                                    FEAT121L  456
                                                                                                                 FEAT121L  457
                                                                                                                 FEAT121L  458
          3224  0100003425 +             PGCOM1   RJ     SAV         SAVE PACKING REGISTERS                      FEAT121L  459
          3225  0100003040 +                      RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE        FEAT121L  460
          3226  0311002775 +                      NZ     X1,NEWS     IF NEW STATEMENT FOUND                      FEAT121L  461
                          0100003372 +            RJ     RES         RESTORE PACKING REGISTERS                   FEAT121L  462
          3227  5140001210 +                      SA4    SBUFF       GET FIRST CHARAC FROM NEW LINE              SCANNER  3095
                          6140010044              SB4    7777B+1R+   RESTORE TEST CONSTANT                       SCANNER  3096
                                                                                                                 SCANNER  3097
          3230  0400403230 +             PGCOM    SUBR               ** ENTRY/EXIT **                            SCANNER  3098
          3231  0334003224 +                      MI     X4,PGCOM1   IF E-O-L SENTINEL                           SCANNER  3099
                          6142777713              SB4    B2-1R"                                                  SCANNER  3100
          3232  0540002203 +                      NZ     B4,ERP6     IF NOT HOLLERITH STRING DELIM, ILLEGAL CHAR SCANNER  3101
                          6120000055              SB2    1R          CHANGE DELIM CHAR <"> (64B) TO < > (55B) TO SCANNER  3102
                                        *                             CONSERVE SPACE IN THE 'STATE' JUMP TABLES. SCANNER  3103
                                        *                             THIS AVOIDS ADDING 5 WORDS PER TABLE.      SCANNER  3104
          3233  76120                             SX1    B2          FOR 'PACK7' AND 'PACK30', WHO SET B2=X1     SCANNER  3105
                     0400003230 +                 EQ     EXIT.       RETURN WITH B4=0 TO SIGNAL DELIM HOLL STRNG SCANNER  3106
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    77
        PACK SYMBOLIC NAME (7 CHARAC) AND STORE IN E-LIST             PLO 
  
                                         #NL      IFNE   #NL,0                                                   FEAT126B  933
                                        **        PLO - PROCESS C/-LIST OPTIONS.                                 FEAT121L  465
                                        *                                                                        FEAT121L  466
                                        *                                                                        FEAT121L  467
                                        *         ENTRY  (CSSTMT) = 1S59 IF *LIST,ALL* OCCURRED                  FEAT121L  468
                                        *                         =  +1  IF *LIST,NONE* OCCURRED                 FEAT121L  469
                                        *                         =  +0  IF C/-LIST DIRECTIVE DID NOT OCCUR      FEAT121L  470
                                        *                (FTNCNT) = DPC LINE NUMBER FOR THIS STATEMENT           FEAT121L  471
                                        *                (NOLIST) = 1S59 IF IN *LIST,ALL* MODE                   FEAT121L  472
                                        *                         =  +0  IF IN *LIST,NONE* MODE                  FEAT121L  473
                                        *                                                                        FEAT121L  474
                                        *         EXIT                                                           FEAT121L  475
                                        *                IF C/-LIST DIRECTIVE OCCURRED --                        FEAT121L  476
                                        *                (CSSTMT)  = +0                                          FEAT121L  477
                                        *                (C$STMT)  = .ZR. IF NEXT STATEMENT IS NOT C$-DEBUG      FEAT121L  478
                                        *                          = .NZ. IF NEXT STATEMENT IS C$-DEBUG          FEAT121L  479
                                        *                (SCNT)    = DPC LINE NUMBER FOR THIS STATEMENT          FEAT121L  480
                                        *                                                                        FEAT121L  481
                                        *                IF NEW C/-LIST DIRECTIVE .NE. CURRENT LISTING MODE --   FEAT121L  482
                                        *                (CP.FLIN) = DPC LINE NUMBER FOR THIS STATEMENT          FEAT121L  483
                                        *                (NOLIST)  = SET TO NEW LISTING MODE                     FEAT121L  484
                                        *                                                                        FEAT121L  485
                                        *         USES   ALL                                                     FEAT121L  486
                                        *                                                                        FEAT121L  487
                                        *         CALLS  LSL,NXT,PLR,POSTER                                      FEAT121L  488
                                                                                                                 FEAT121L  489
                                                                                                                 FEAT121L  490
          3234  0400403234 +             PLO      SUBR   =           ** ENTRY/EXIT **                            FEAT121L  491
          3235  5110000071 +             PLO2     SA1    CSSTMT                                                  FEAT121L  492
                          5120000115 +            SA2    NOLIST                                                  FEAT121L  493
          3236  5130000074 +                      SA3    FTNCNT                                                  FEAT121L  494
                          0301003234 +            ZR     X1,EXIT.    IF C/-LIST DIRECTIVE DID NOT OCCUR          FEAT121L  495
          3237  10633                             BX6    X3                                                      FEAT121L  496
                     21173                        AX1    59          (X1) = +0 IF C/-LIST,NONE IS NEW MODE       FEAT121L  497
                                        *                                 = -0 IF C/-LIST,ALL IS NEW MODE        FEAT121L  498
                          13777                   BX7    X7-X7                                                   FEAT121L  499
                               21273              AX2    59          (X2) = +0 IF C/-LIST,NONE IS CURRENT MODE   FEAT121L  500
                                        *                                 = -0 IF C/-LIST,ALL IS CURRENT MODE    FEAT121L  501
          3240  13012                             BX0    X1-X2       (X0) = +0 IF NEW MODE.EQ.CURRENT MODE       FEAT121L  502
                                        *                                 = -0 IF NEW MODE.NE.CURRENT MODE       FEAT121L  503
                     5160000046                   SA6    SCNT                                                    FEAT121L  504
                               54710              SA7    A1          (CSSTMT) = +0                               FEAT121L  505
                                                                                                                 FEAT126BC  12
                                        .T        IFNE   TEST,0                                                  FEAT126BC  13
                                                  SA4    =XCO.SNAP                                               FEAT126BC  14
                                                  LX4    1RU                                                     FEAT126BC  15
                                                  MI     X4,PLO4     IF (SNAP=U), IGNORE C/-LIST LINES           FEAT126BC  16
                                        .T        ENDIF                                                          FEAT126BC  17
                                                                                                                 FEAT126BC  18
          3241  0330003243 +                      MI     X0,PLO3     IF NEW MODE .NE. CURRENT MODE               FEAT121L  506
                                                                                                                 FEAT121L  507
                                        *         HERE IF NEW MODE .EQ. CURRENT MODE.                            FEAT121L  508
                                                                                                                 FEAT121L  509
                          0100003265 +            RJ     PLR         PROCESS LISTING REQUEST (C/ LINE)           FEAT121L  510
          3242  0400003251 +                      EQ     PLO5                                                    FEAT121L  511
                                                                                                                 FEAT121L  512
          3243  5160000000 X             PLO3     SA6    =XCP.FLIN                                               FEAT121L  513
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    78
        PACK SYMBOLIC NAME (7 CHARAC) AND STORE IN E-LIST             PLO 
  
                          0331003250 +            MI     X1,PLO4     IF NEW MODE IS *LIST,ALL*                   FEAT121L  514
                                                                                                                 FEAT121L  515
                                        *         HERE IF C/ LIST,NONE OCCURRED.                                 FEAT121L  516
                                                                                                                 FEAT121L  517
          3244  0100002117 +                      RJ     DSL         DMP SAVED LINES (ONLY LISTS IF BEFORE HDR)  FEAT121L  518
          3245  0100003265 +                      RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,NONE LINE) FEAT121L  519
          3246  43600                             MX6    0                                                       FEAT121L  520
                     46000                        NO                                                             FEAT121L  521
                          5160000115 +            SA6    NOLIST      SET TO *LIST,NONE* STATUS                   FEAT121L  522
          3247  0400003251 +                      EQ     PLO5                                                    FEAT121L  523
                                                                                                                 FEAT121L  524
                                        *         HERE IF C/ LIST,ALL OCCURRED.                                  FEAT121L  525
                                                                                                                 FEAT121L  526
          3250  43601                    PLO4     MX6    1                                                       FEAT121L  527
                     54620                        SA6    A2          SET TO *LIST,ALL* STATUS                    FEAT121L  528
                          0100003265 +            RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,ALL LINE)  FEAT121L  529
                                                                                                                 FEAT121L  530
          3251  0100003040 +             PLO5     RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE        FEAT121L  531
          3252  5130000001 C                      SA3    C$STMT                                                  FEAT121L  532
                          5120000071 +            SA2    CSSTMT                                                  FEAT121L  533
          3253  43401                             MX4    1                                                       FEAT121L  534
                     11634                        BX6    X3*X4                                                   FEAT121L  535
                          20601                   LX6    1           (X6) = +0 IF NEXT STATEMENT IS NOT C$-DEBUG FEAT121L  536
                                        *                                 =  1 IF NEXT STATEMENT IS C$-DEBUG     FEAT121L  537
                               13777              BX7    X7-X7                                                   FCC1013     9
          3254  54630                             SA6    A3                                                      FEAT121L  538
                     5170003767 +                 SA7    BLNKSTMT    CLEAR *BLANK STMT SO FAR* FLAG              FCC1013    10
          3255  0312003235 +                      NZ     X2,PLO2     IF C/ LINE FOLLOWED BY ANOTHER C/ LINE      FEAT121L  539
                          0311003234 +            NZ     X1,EXIT.    IF C/ LINE NOT FOLLOWED BY CONTINUATION     FEAT121L  540
                                                                                                                 FEAT121L  541
                                        *         HERE IF C/-LIST DIRECTIVE FOLLOWED BY CONTINUATION LINE --     FEAT121L  542
                                        *           POST ERROR AND STRIP CONTINUATION LINES.                     FEAT121L  543
                                                                                                                 FEAT121L  544
          3256  6160777300               PLO6     POSTER SEV=FE,NR=E319                                          FEAT121L  545
          3260  0100003040 +                      RJ     NXT         STRIP CONTINUATION LINES                    FEAT121L  546
          3261  0100002753 +                      RJ     LSL         LIST SAVED LINES (C/ STMT IN ERR IF NOLIST) FEAT121L  547
          3262  13666                             BX6    X6-X6                                                   FEAT121L  548
                     43774                        MX7    60                                                      FEAT121L  549
                          5160000037 C            SA6    =XFEFLAG    CLEAR *FATAL ERROR OCCURRED* FLAG           FEAT121L  550
          3263  5170000024                        SA7    TYPE        SET TO *UNTYPED*                            FEAT121L  551
                          5160003767 +            SA6    BLNKSTMT    CLEAR *BLANK STMT SO FAR* FLAG              FCC1328X  642
          3264  0400003235 +                      EQ     PLO2        CHECK NEW STATEMENT...                      FEAT121L  552
                                         #NL      ELSE                                                           FEAT121L  553
                                         PLO      SUBR   =                                                       FEAT121L  554
                                                  EQ     EXIT.                                                   FEAT121L  555
                                         #NL      ENDIF                                                          FEAT121L  556
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    79
        PACK SYMBOLIC NAME (7 CHARAC) AND STORE IN E-LIST             PLR 
  
                                        **        PLR - PROCESS LISTING REQUEST.                                 SCANNER  3108
                                        *                                                                        SCANNER  3109
                                        *                PROCESSES A REQUEST TO LIST A SOURCE LINE.              SCANNER  3110
                                        *         OPERATES IN ONE OF THREE MODES, AS FOLLOWS --                  SCANNER  3111
                                        *         (1)  IF THE SOURCE LISTING OPTION IS OFF (L=0) OR A C/-NOLIST  SCANNER  3112
                                        *         IS ACTIVE, SAVES EACH FULL STATEMENT (INITIAL LINE PLUS        SCANNER  3113
                                        *         CONTINUATION LINES) IN A BUFFER FOR POSSIBLE ERROR LISTING.    SCANNER  3114
                                        *         IN THIS MODE, COMMENT LINES ARE DISCARDED.                     SCANNER  3115
                                        *         (2)  IF NOT IN MODE (1), BUT A VALID HEADER LINE HAS NOT BEEN  SCANNER  3116
                                        *         FOUND, SAVES ALL LINES IN AN ATTEMPT TO LIST THE PROGRAM UNIT  SCANNER  3117
                                        *         NAME AND TYPE IN THE HEADER OF THE FIRST PAGE.  IF THE BUFFER  SCANNER  3118
                                        *         FILLS UP, LISTS ITS CONTENTS AND REVERTS TO NORMAL MODE (3).   SCANNER  3119
                                        *         (3)  IF NOT IN MODE (1) OR (2), LISTS EACH LINE IMMEDIATELY.   SCANNER  3120
                                        *                                                                        SCANNER  3121
                                        *                                                                        SCANNER  3122
                                        *         ENTRY  (CP.FLIN) ET SEQ = FORMATTED PRINT LINE IMAGE.          SCANNER  3123
                                        *                (L.PLINE) = LINE LENGTH IN WORDS.                       SCANNER  3124
                                        *                (IEF) = BEFORE/AFTER HEADER STATUS FLAG.                SCANNER  3125
                                        *                (NOLIST) = C/-LIST-NOLIST FLAG.                         SCANNER  3126
                                        *                (NXCOMENT) = .MI. IF COMMENT LINE, ELSE .PL.            SCANNER  3127
                                        *                (SLIST) = SOURCE LISTING OPTION FLAG.                   SCANNER  3128
                                        *                                                                        SCANNER  3129
                                        *         EXIT   LINE LISTED OR SAVED.                                   SCANNER  3130
                                        *                (L.PLINE) = 0                                           SCANNER  3131
                                        *                (B1) = 1                                                SCANNER  3132
                                        *                (B5) = 1                                                SCANNER  3133
                                        *                                                                        SCANNER  3134
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    SCANNER  3135
                                        *                A - 1, 2, 3, 4, 6, 7                                    SCANNER  3136
                                        *                B - 1, 5, 7                                             SCANNER  3137
                                        *                                                                        SCANNER  3138
                                        *         CALLS  LISTL, LSL, MOVE                                        SCANNER  3139
                                                                                                                 SCANNER  3140
                                                                                                                 SCANNER  3141
          3265  0400403265 +             PLR      SUBR               ** ENTRY/EXIT **                            SCANNER  3142
          3266  5110000110 +             PLR2     SA1    L.PLINE                                                 SCANNER  3143
                          5120000000 X            SA2    =XSLIST                                                 SCANNER  3144
          3267  5130000115 +                      SA3    =XNOLIST                                                SCANNER  3145
                          5140000076 +            SA4    IEF                                                     SCANNER  3146
          3270  6110000001                        SB1    1                                                       SCANNER  3147
                          11623                   BX6    X2*X3                                                   SCANNER  3148
                               66510              SB5    B1                                                      SCANNER  3149
          3271  0301003265 +                      ZR     X1,EXIT.    IF LINE ALREADY PROCESSED                   SCANNER  3150
                          0306003276 +            ZR     X6,PLR3     IF (L=0) OR C/-NOLIST ACTIVE                SCANNER  3151
          3272  0314003303 +                      NZ     X4,PLR4     IF BEFORE HEADER LINE                       SCANNER  3152
                                                                                                                 SCANNER  3153
                                        *         LIST LINE IMMEDIATELY.                                         SCANNER  3154
                                                                                                                 SCANNER  3155
                          6160000000 X            LISTL  =XCP.FLIN,X1                                            SCANNER  3156
          3274  43600                             MX6    0                                                       FEAT121L  557
                     5160002767 +                 SA6    L.SL                                                    FEAT121L  558
          3275  0400003312 +                      EQ     PLR6                                                    SCANNER  3157
                                                                                                                 SCANNER  3158
                                        *         PROCESS SOURCE LISTING OFF (L=0) OR C/-NOLIST ON.              SCANNER  3159
                                                                                                                 SCANNER  3160
          3276  5110000116 +             PLR3     SA1    NXCOMENT                                                SCANNER  3161
                          5120003767 +            SA2    BLNKSTMT                                                SCANNER  3162
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    80
        PACK SYMBOLIC NAME (7 CHARAC) AND STORE IN E-LIST             PLR 
  
          3277  5130000070 +                      SA3    CONTCNT                                                 SCANNER  3163
                          5140000074 +            SA4    FTNCNT                                                  SCANNER  3164
          3300  0331003312 +                      MI     X1,PLR6     IF COMMENT, IGNORE                          SCANNER  3165
                          0312003312 +            NZ     X2,PLR6     IF BLANK, IGNORE                            SCANNER  3166
          3301  0313003303 +                      NZ     X3,PLR4     IF CONTINUATION LINE                        SCANNER  3167
                          43600                   MX6    0                                                       SCANNER  3168
                               10744              BX7    X4                                                      SCANNER  3169
          3302  5160002767 +                      SA6    L.SL        ERASE OLD SAVED LINES BY CLEARING LENGTH    SCANNER  3170
                          5170000000 X            SA7    =XCP.FLIN   SAVE INITIAL LINE NUMBER (MAY NOT BE *5)    SCANNER  3171
                                                                                                                 SCANNER  3172
                                        *         SAVE NEW LINE FOR (POSSIBLE) DEFERRED LISTING.                 SCANNER  3173
                                                                                                                 SCANNER  3174
          3303  5110000110 +             PLR4     SA1    L.PLINE     (X1) = NEW LINE LENGTH                      SCANNER  3175
                          5130002767 +            SA3    L.SL        (X3) = TOTAL LENGTH OF OLD SAVED LINES      SCANNER  3176
          3304  36631                             IX6    X3+X1                                                   SCANNER  3177
                     6276777373                   SB7    X6-DLBUFL                                               SCANNER  3178
          3305  0607003307 +                      LE     B7,B0,PLR5  IF BUFFER HAS ROOM FOR NEW LINE             SCANNER  3179
                          0100002753 +            RJ     LSL         LIST SAVED LINES (DUMP FULL BUFFER)         SCANNER  3180
          3306  0400003266 +                      EQ     PLR2        LOOP TO RECHECK *IEF*                       SCANNER  3181
                                                                                                                 SCANNER  3182
          3307  54630                    PLR5     SA6    A3          UPDATE SAVED LINE(S) LENGTH                 SCANNER  3183
                     7120000000 X                 MOVE   X1,=XCP.FLIN,DLBUF+X3                                   SCANNER  3184
          3312  43600                    PLR6     MX6    0                                                       SCANNER  3185
                     66510                        SB5    B1                                                      SCANNER  3186
                          5160000110 +            SA6    L.PLINE     MARK NEW LINE *PROCESSED*                   SCANNER  3187
          3313  0400003265 +                      EQ     EXIT.                                                   SCANNER  3188
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    81
        PROCESS STRING AFTER A PERIOD <.>                             POINT 
  
                                        * CHECKS FOR CONSTANT OR A RELATIONAL OR LOGICAL OPERATOR AND MAKES      SCANNER  3190
                                        *  APPROPRIATE E-LIST AND CONSTOR ENTRIES.                               SCANNER  3191
                                                                                                                 SCANNER  3192
          3314  7170003314 +             POINT    SX7    *           TURN ON HANGING . FLAG                      SCANNER  3193
                          5170003772 +            SA7    HANG.                                                   SCANNER  3194
          3315  0100002273 +                      RJ     GET         RETURNS (B2) = NEXT CHARACTER               SCANNER  3195
          3316  7170000000                        SX7    0                                                       SCANNER  3196
                          5170003772 +            SA7    HANG.       HANGING . FLAG OFF                          SCANNER  3197
          3317  6130000045               POINTT   SB3    1R+                                                     SCANNER  3198
                          0623002216 +            GE     B2,B3,CERP  IF NEXT CHARACTER NOT ALPHA OR DIGIT        SCANNER  3199
          3320  6130000033                        SB3    1R0                                                     SCANNER  3200
                          0623002112 +            GE     B2,B3,PCON  IF BEGINNING A CONSTANT STRING              SCANNER  3201
          3321  7170220514                        SX7    3RREL                                                   SCANNER  3202
                          5170003771 +            SA7    EXPEXP      HANGING EXPONENT FLAG ON                    SCANNER  3203
          3322  5170004001 +                      SA7    RELFLAG     RELATIONAL OPR PACK FLAG ON                 SCANNER  3204
                          0100003174 +            RJ     PACK7                                                   SCANNER  3205
          3323  5110000000 X                      SA1    ELAST                                                   SCANNER  3206
                          6130000057              SB3    1R.                                                     SCANNER  3207
          3324  7271000001                        SX7    X1+1                                                    SCANNER  3208
                          53210                   SA2    X1          (X2) = CHAR STRING AFTER POINT              SCANNER  3209
                               54710              SA7    A1          BACK UP ELIST POINTER                       SCANNER  3210
          3325  10622                             BX6    X2          SAVE STRING FOR POSSIBLE *ERPRO* CALL       SCANNER  3211
                     0523002175 +                 NE     B2,B3,ERP5  IF NO POINT AFTER STRING                    SCANNER  3212
          3326  6130000005                        SB3    5                                                       SCANNER  3213
                          20214                   LX2    12          LEFT JUSTIFY STRING                         SCANNER  3214
          3327  0736002175 +                      GT     B6,B3,ERP5  IF STRING TOO LONG FOR RELATIONAL OPERATOR  SCANNER  3215
                          0563003332 +            NE     B6,B3,POINT1      IF NOT 5-CHARACTER STRING             SCANNER  3216
          3330  5130000024                        SA3    TYPE                                                    SCANNER  3217
                          7203777730              SX0    X3-DBGFSTT                                              SCANNER  3218
          3331  0330003332 +                      MI     X0,POINT1   IF NOT A DEBUG STATEMENT                    SCANNER  3219
                          6166000001              SB6    B6+1        CHAR COUNT + 1 FOR SPECIAL DEBUG SEARCH     SCANNER  3220
          3332  5136000004 +             POINT1   SA3    PTBL1-1+B6  (X3) = TABLE 2 CONTROL WORD                 SCANNER  3221
                          43444                   MX4    6*6         LIMITS PICTURE MATCHING TO 6 CHARACTERS     SCANNER  3222
                               53130              SA1    X3          GET FIRST PICTURE                           SCANNER  3223
          3333  63330                             SB3    X3          B3 = PICTURE POINTER                        SCANNER  3224
                     20336                        LX3    30                                                      SCANNER  3225
                          63730                   SB7    X3          SEARCH STOP ADDRESS                         SCANNER  3226
          3334  0565003335 +                      NE     B6,B5,POINT2      IF NOT 1-CHARACTER OPERATOR           SCANNER  3227
                          43406                   MX4    1*6         LIMIT PICTURE MATCHING TO 1 CHARACTER       SCANNER  3228
          3335  13321                    POINT2   BX3    X2-X1       STRING - PICTURE                            SCANNER  3229
                     11043                        BX0    X4*X3                                                   SCANNER  3230
                          0300003340 +            ZR     X0,POINT3   IF STRING MATCHED PICTURE                   SCANNER  3231
          3336  66335                             SB3    B3+B5       PICTURE POINTER + 1                         SCANNER  3232
                     56130                        SA1    B3                                                      SCANNER  3233
                          0737003335 +            LT     B3,B7,POINT2  IF SEARCH TABLE NOT EXHAUSTED             SCANNER  3234
          3337  0400002174 +                      EQ     ERP4        NOT A RELATIONAL OPERATOR                   FCC1936    13
                                                                                                                 SCANNER  3236
          3340  7160000000               POINT3   SX6    0                                                       SCANNER  3237
                          5160003771 +            SA6    EXPEXP      TURN OFF RELATIONAL FLAG                    SCANNER  3238
          3341  0565001471 +                      NE     B6,B5,ADD1  IF NOT 1-CHARACTER STRING                   SCANNER  3239
                          10311                   BX3    X1          'SCNSAVE' WILL PRESERVE X3                  SCANNER  3240
          3342  7100777473                        SX0    -E196       ERR MSG NR - *NON-ANSI LOGICAL OPR*         SCANNER  3241
                          0100001545 +            RJ     ANSIERP                                                 SCANNER  3242
          3343  10133                             BX1    X3          RESTORE X1                                  SCANNER  3243
                     0400001471 +                 EQ     ADD1        GO MAKE E-LIST ENTRY                        SCANNER  3244
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    82
        PROCESS STRING AFTER A PERIOD <.>                             PVN 
  
                                        **        PVN - PROCESS VARIABLE NAME.                                   SCANNER  3246
                                        *                                                                        SCANNER  3247
                                        *                TASKS PERFORMED --                                      SCANNER  3248
                                        *         1.  SUFFIXES NAMES THAT DUPLICATE HARDWARE REGISTERS (A0-A7,   SCANNER  3249
                                        *             B0-B7, X0-X7) WITH A $ FOR UNIQUENESS.  THIS IS NECESSARY  SCANNER  3250
                                        *             FOR POSSIBLE *COMPASS* OBJECT CODE ASSEMBLY.               SCANNER  3251
                                        *         2.  BLANK FILLS NAME.                                          SCANNER  3252
                                        *         3.  PREFIXES NAME WITH E-LIST TYPE CODE FOR *VARIABLE*(2001B). SCANNER  3253
                                        *         4.  IF 7-CHARACTER NAME, POSTS NON-ANSI DIAGNOSTIC.            SCANNER  3254
                                        *         5.  IF .GT. 7-CHAR NAME, PROCESSES ERROR CONDITION.            SCANNER  3255
                                        *                                                                        SCANNER  3256
                                        *                                                                        SCANNER  3257
                                        *         ENTRY  (X6) = NAME, LEFT ADJUSTED TO BIT 47.                   SCANNER  3258
                                        *                (B6) = NAME LENGTH (CHARACTERS).                        SCANNER  3259
                                        *                                                                        SCANNER  3260
                                        *         EXITS  NORMAL --                                               SCANNER  3261
                                        *                (X6) = 12/2001B, 48/NAME FORMATTED AS ABOVE.            SCANNER  3262
                                        *                (B5) = 1                                                SCANNER  3263
                                        *                (B6) = NAME LENGTH (CHARACTERS), ADJUSTED FOR $ IF ANY. SCANNER  3264
                                        *                ABNORMAL (NAME LONGER THAN 7 CHARACTERS) --             SCANNER  3265
                                        *                IF C$ DEBUG LINE, RETURNS TO CALLER WITH (X6) = 0.      SCANNER  3266
                                        *                IF OTHER LINE, EXITS TO *ERP5*.                         SCANNER  3267
                                        *                                                                        SCANNER  3268
                                        *         USES   X - 2, 3, 4, 6, 7                                       SCANNER  3269
                                        *                A - 2                                                   SCANNER  3270
                                        *                B - 5, 6, 7                                             SCANNER  3271
                                        *                                                                        SCANNER  3272
                                        *         CALLS  ANSIERP                                                 SCANNER  3273
                                                                                                                 SCANNER  3274
                                                                                                                 SCANNER  3275
          3344  0400403344 +             PVN      SUBR               ** ENTRY/EXIT **                            SCANNER  3276
          3345  6150000001                        SB5    1                                                       SCANNER  3277
                          10766                   BX7    X6                                                      SCANNER  3278
                               66755              SB7    B5+B5                                                   SCANNER  3279
                                                                                                                 SCANNER  3280
                                        *         SUFFIX WITH $ IF HARDWARE REGISTER NAME.                       SCANNER  3281
                                                                                                                 SCANNER  3282
          3346  0567003354 +                      NE     B6,B7,PVN2  IF NOT 2-CHARACTER NAME                     SCANNER  3283
                          5120003364 +            SA2    PVNA        SHIFT TEST MASK FOR *ABX*                   SCANNER  3284
          3347  43466                             MX4    -1*6                                                    SCANNER  3285
                     20722                        LX7    -7*6                                                    SCANNER  3286
                          15374                   BX3    -X4*X7      EXTRACT 1ST CHARACTER                       SCANNER  3287
                               63730              SB7    X3                                                      SCANNER  3288
          3350  22272                             LX2    B7                                                      SCANNER  3289
                     0322003354 +                 PL     X2,PVN2     IF 1ST CHARACTER NOT A, B OR X              SCANNER  3290
                               20706              LX7    1*6                                                     SCANNER  3291
          3351  43210                             MX2    1R7-1R0+1   FORM SHIFT TEST MASK FOR *01234567*         SCANNER  3292
                     15374                        BX3    -X4*X7      EXTRACT 2ND CHARACTER                       SCANNER  3293
                          7140000053              SX4    1R$                                                     SCANNER  3294
          3352  20241                             LX2    -1R0                                                    SCANNER  3295
                     63730                        SB7    X3                                                      SCANNER  3296
                          20436                   LX4    5*6                                                     SCANNER  3297
                               22272              LX2    B7                                                      SCANNER  3298
          3353  0322003354 +                      PL     X2,PVN2     IF 2ND CHARACTER NOT 0-7                    SCANNER  3299
                          12664                   BX6    X6+X4       APPEND $                                    SCANNER  3300
                               66665              SB6    B6+B5       (B6) = STRING LENGTH + 1                    SCANNER  3301
                                                                                                                 SCANNER  3302
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    83
        PROCESS STRING AFTER A PERIOD <.>                             PVN 
  
                                        *         PREFIX WITH E-LIST TYPE CODE AND BLANK FILL.                   SCANNER  3303
                                                                                                                 SCANNER  3304
          3354  6170000007               PVN2     SB7    7                                                       SCANNER  3305
                          5126003614 +            SA2    FILL8R+B6                                               SCANNER  3306
          3355  0776003361 +                      GT     B6,B7,PVN3  IF NAME TOO LONG                            SCANNER  3307
                          27756                   PX7    X6,B5       PREFIX E-LIST TYPE CODE (2001B)             SCANNER  3308
                               12672              BX6    X7+X2       BLANK FILL                                  SCANNER  3309
          3356  0567003344 +                      NE     B6,B7,EXIT. IF NOT 7-CHARACTER NAME                     SCANNER  3310
                          10466                   BX4    X6                                                      SCANNER  3311
          3357  7100000042                        SX0    E34         ERR MSG NR - *7-CHAR NAME IS NON-ANSI*      SCANNER  3312
                          0100001545 +            RJ     ANSIERP     POST NON-ANSI ERROR MESSAGE                 SCANNER  3313
          3360  6150000001                        SB5    1                                                       SCANNER  3314
                          0400003344 +            EQ     EXIT.                                                   SCANNER  3315
                                                                                                                 SCANNER  3316
                                        *         ERROR PROCESSING - NAME LONGER THAN 7 CHARACTERS.              SCANNER  3317
                                                                                                                 SCANNER  3318
          3361  5120000001 C             PVN3     SA2    DTYPE                                                   SCANNER  3319
                          0302002175 +            ZR     X2,ERP5     IF NOT DEBUG STATEMENT                      SCANNER  3320
          3362  7160000000                        SX6    0                                                       SCANNER  3321
                          5160000024              SA6    TYPE        SET *BAD DEBUG* STATEMENT                   SCANNER  3322
          3363  0400003344 +                      EQ     EXIT.                                                   SCANNER  3323
                                                                                                                 SCANNER  3324
                                                                                                                 SCANNER  3325
                                                                                                                 SCANNER  3326
          3364                           PVNA     BSS    0           SHIFT TEST MASK FOR *ABX*                   SCANNER  3327
                                                  ECHO   2,BIT=(A,B,X)                                           SCANNER  3328
                                                  POS    60-1R_BIT                                               SCANNER  3329
                                                  VFD    1/1                                                     SCANNER  3330
                                  00              POS    0                                                       SCANNER  3331
  
  
  
  
                                        **        P$T - PROCESS $ TERMINATOR.                                    SCANNER  3333
                                        *                                                                        SCANNER  3334
                                        *                TASKS PERFORMED --                                      SCANNER  3335
                                        *         1.  MAKE THE (CLABEL) = (NLABEL) TRANSFER.                     SCANNER  3336
                                        *         2.  POST NON-ANSI ERROR MESSAGE FOR $ TERMINATOR.              SCANNER  3337
                                        *                                                                        SCANNER  3338
                                        *         ENTRY  (NLABEL) = IF THIS STATEMENT CONTAINS A LEGAL,          SCANNER  3339
                                        *                           NON-EMPTY LABEL, CONTAINS IT IN DPC,         SCANNER  3340
                                        *                           LEFT JUSTIFIED WITH BLANK FILL.              SCANNER  3341
                                        *                           OTHERWISE, .EQ. 0.                           SCANNER  3342
                                        *                                                                        SCANNER  3343
                                        *         EXIT   (CLABEL) = OLD (NLABEL)                                 SCANNER  3344
                                        *                (NLABEL) = 0                                            SCANNER  3345
                                        *                (SBUFLG) = -1, $ TERMINATOR FLAG ON.                    SCANNER  3346
                                        *                                                                        SCANNER  3347
                                        *         USES   A - 2,6,7                                               SCANNER  3348
                                        *                X - 2,6,7                                               SCANNER  3349
                                        *                B - 6,7                                                 SCANNER  3350
                                        *                                                                        SCANNER  3351
                                        *         CALLS  ANSIERP     SAVES AND RESTORES X - 3,5,6                SCANNER  3352
                                        *                                               B - 1,2,3,6              SCANNER  3353
                                                                                                                 SCANNER  3354
          3365  0400403365 +             P$T      SUBR               ** ENTRY/EXIT **                            SCANNER  3355
          3366  5120000060                        SA2    NLABEL                                                  SCANNER  3356
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    84
        PROCESS STRING AFTER A PERIOD <.>                             P$T 
  
                          13666                   BX6    X6-X6                                                   SCANNER  3357
                               43773              MX7    -1                                                      SCANNER  3358
          3367  54620                             SA6    A2                                                      SCANNER  3359
                     5170000126 +                 SA7    SBUFLG                                                  SCANNER  3360
                               10622              BX6    X2                                                      SCANNER  3361
          3370  5160000023                        SA6    CLABEL                                                  SCANNER  3362
                          6160777455              POSTERR  SEV=ANSI,NR=E210,RETURN=EXIT.                         SCANNER  3363
  
  
  
  
                                        **        RES - RESTORE CRITICAL PACKING REGISTERS.                      FEAT121L  560
                                        *                                                                        FEAT121L  561
                                        *                                                                        FEAT121L  562
                                        *         RESTORES  X - 3,5,6                                            FEAT121L  563
                                        *                   A - NONE                                             FEAT121L  564
                                        *                   B - 1,2,3,6                                          FEAT121L  565
                                        *                                                                        FEAT121L  566
                                        *         USES   X - 3,5,6                                               FEAT121L  567
                                        *                A - 3,5                                                 FEAT121L  568
                                        *                B - 1,2,3,6                                             FEAT121L  569
                                        *                                                                        FEAT121L  570
                                        *         CALLS  NONE                                                    FEAT121L  571
                                                                                                                 FEAT121L  572
                                                                                                                 FEAT121L  573
          3372  0400403372 +             RES      SUBR               ** ENTRY/EXIT **                            FEAT121L  574
          3373  5130000117 +                      SA3    REG=B1                                                  FEAT121L  575
                          5150000120 +            SA5    REG=B2                                                  FEAT121L  576
          3374  63130                             SB1    X3                                                      FEAT121L  577
                     63250                        SB2    X5                                                      FEAT121L  578
                          5130000121 +            SA3    REG=B3                                                  FEAT121L  579
          3375  5150000122 +                      SA5    REG=B6                                                  FEAT121L  580
                          63330                   SB3    X3                                                      FEAT121L  581
                               63650              SB6    X5                                                      FEAT121L  582
          3376  5130000125 +                      SA3    REG=X6                                                  FEAT121L  583
                          5150000124 +            SA5    REG=X5                                                  FEAT121L  584
          3377  10633                             BX6    X3                                                      FEAT121L  585
                     5130000123 +                 SA3    REG=X3                                                  FEAT121L  586
          3400  0400003372 +                      EQ     EXIT.                                                   FEAT121L  587
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    85
        COMFRNC - READ NEXT CARD.                                     COMFRNC 
  
          3400                           COMFRNC  CTEXT  COMFRNC - READ NEXT CARD.                               COMFRNC     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFRNC     4
                                                  QUAL   COMFRNC                                                 COMFRNC     5
  
  
  
  
                                        **        RNC - READ NEXT CARD.                                          COMFRNC     7
                                        *                                                                        COMFRNC     8
                                        *                                                                        COMFRNC     9
                                        *                READS A SINGLE SOURCE LINE FROM THE INPUT BUFFER *F.IN* COMFRNC    10
                                        *         TO THE SOURCE LINE IMAGE AREA *CP.CARD*.  ALSO GUARANTEES      COMFRNC    11
                                        *         THAT, ON EXIT, THE EOL MARK IS ON A WORD BOUNDARY BY           COMFRNC    12
                                        *         APPROPRIATELY BLANK FILLING THE LAST WORD OF THE LINE IMAGE    COMFRNC    13
                                        *         AND STORING A FULL ZERO WORD EOL MARK AFTER IT.                COMFRNC    14
                                        *                                                                        COMFRNC    15
                                        *         ENTRY  (B1)     =  1                                           COMFRNC    16
                                        *                CIO ONLY - INITIAL *READ* ISSUED                        COMFRNC    17
                                        *                RM  ONLY - FILE TABLES INITIALIZED                      COMFRNC    18
                                        *                (CP.IFMT)=  +0 IF NORMAL UNCOMPRESSED INPUT             COMFRNC    19
                                        *                         =   1 IF MODIFY COMPRESSED INPUT (UNSUPPORTED) COMFRNC    20
                                        *                         =   2 IF UPDATE COMPRESSED INPUT (UNSUPPORTED) COMFRNC    21
                                        *                                                                        COMFRNC    22
                                        *         EXIT   (B1)     =  1                                           COMFRNC    23
                                        *                (B4)     =  FWA OF SOURCE LINE IMAGE, *CP.CARD*         COMFRNC    24
                                        *                (B5)     =  1                                           COMFRNC    25
                                        *                (B6)     =  LWA OF SOURCE LINE IMAGE,                   COMFRNC    26
                                        *                              I.E. (B6) POINTS TO FULL WORD EOL MARK    COMFRNC    27
                                        *                (B7)     =  NR OF USEABLE WORDS IN LINE IMAGE,          COMFRNC    28
                                        *                              I.E. DOES NOT INCLUDE FULL WORD EOL MARK  COMFRNC    29
                                        *                (X1)     =  .NZ. IF EOR/EOF/EOI ENCOUNTERED, ELSE .ZR.  COMFRNC    30
                                        *                (CP.CARD) = .ZR. IF EOR/EOF/EOI ENCOUNTERED, ELSE 1ST   COMFRNC    31
                                        *                              WORD OF SOURCE LINE IMAGE                 COMFRNC    32
                                        *                (L.CARD) =  NR OF WORDS IN SOURCE LINE IMAGE            COMFRNC    33
                                        *                              I.E. INCLUDES FULL ZERO WORD EOL MARK     COMFRNC    34
                                        *                (X7)     =  (L.CARD) = (B7)+1                           COMFRNC    35
                                        *                                                                        COMFRNC    36
                                        *         USES   ALL BUT A0,X0,A5,X5  (INCLUDES ALL CALLS)               COMFRNC    37
                                        *                                                                        COMFRNC    38
                                        *         CALLS  READC                                                   COMFRNC    39
                                                                                                                 COMFRNC    40
                                                                                                                 COMFRNC    41
          3401  0400403401 +             RNC      SUBR               ** ENTRY/EXIT **                            COMFRNC    42
          3402  5110000062 +                      SA1    =XCARDS                                                 COMFRNC    43
                          5120000000 X            SA2    =XCP.IFMT                                               COMFRNC    44
          3403  73611                             SX6    X1+B1                                                   COMFRNC    45
                     54610                        SA6    A1          UPDATE LINE COUNT                           COMFRNC    46
                          0312403403 +            NZ     X2,*+4S15   IF COMPRESSED INPUT (UPDATE OR MODIFY)      COMFRNC    47
          3404  6160000000 X                      READC  =XF.IN,=XCP.CARD,16                                     COMFRNC    48
          3406  6140000000 X                      SB4    CP.CARD                                                 COMFRNC    49
                          57261                   SA2    B6-B1       (A2,X2) = A+C OF LAST WORD OF LINE IMAGE    COMFRNC    50
                               66700              SB7    B0                                                      COMFRNC    51
          3407  0311003423 +                      NZ     X1,RNC5     IF EOR/EOF/EOI ENCOUNTERED                  COMFRNC    52
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    86
        COMFRNC - READ NEXT CARD.                                     RNC                 COMFRNC 
  
                                                                                                                 COMFRNC    53
                                        *         CHECK FOR AND PROCESS FULL WORD OR 11 CHARACTER EOL MARK.      COMFRNC    54
                                                                                                                 COMFRNC    55
                          0312003413 +            NZ     X2,RNC2     IF NOT A FULL WORD EOL MARK                 COMFRNC    56
          3410  55221                             SA2    A2-B1                                                   COMFRNC    57
                     43366                        MX3    -CHAR                                                   COMFRNC    58
                          67661                   SB6    B6-B1                                                   COMFRNC    59
                               15423              BX4    -X3*X2      EXTRACT LAST CHARACTER                      COMFRNC    60
          3411  0314003417 +                      NZ     X4,RNC3     IF NOT 11 CHAR EOL MARK                     COMFRNC    61
                          7160000055              SX6    1R                                                      COMFRNC    62
          3412  36726                             IX7    X2+X6                                                   COMFRNC    63
                     54720                        SA7    A2                                                      COMFRNC    64
                          0400003417 +            EQ     RNC3                                                    COMFRNC    65
                                                                                                                 COMFRNC    66
                                        *         PROCESS 2 THRU 8 CHARACTER (12 THRU 48 BIT) EOL MARK,          COMFRNC    67
                                        *           BLANK FILL LAST WORD OF SOURCE LINE IMAGE.                   COMFRNC    68
                                                                                                                 COMFRNC    69
          3413  43773                    RNC2     MX7    -1                                                      COMFRNC    70
                     36427                        IX4    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT     COMFRNC    71
                          5130003627 +            SA3    =40404040404040404040B                                  COMFRNC    72
          3414  15442                             BX4    -X2*X4      (X4) = ALL TRAILING 0 BITS IN (X2) = 1 BITS COMFRNC    73
                     6150000067                   SB5    60-5        (B5) = RIGHT CIRCULAR SHIFT 5 BITS          COMFRNC    74
                               11434              BX4    X3*X4       (X4) = 40B WHERE TRAILING 00B WERE          COMFRNC    75
          3415  22654                             LX6    X4,B5       (X6) = 01B WHERE TRAILING 00B WERE          COMFRNC    76
                     37746                        IX7    X4-X6       (X7) = 37B WHERE TRAILING 00B WERE          COMFRNC    77
                          5130003612 +            SA3    =10H                                                    COMFRNC    78
          3416  12447                             BX4    X4+X7       (X4) = 77B WHERE TRAILING 00B WERE          COMFRNC    79
                     11643                        BX6    X4*X3       (X6) = 55B WHERE TRAILING 00B WERE          COMFRNC    80
                          36726                   IX7    X2+X6       TRAILING 00B BECOMES TRAILING 55B           COMFRNC    81
                               54720              SA7    A2                                                      COMFRNC    82
                                                                                                                 COMFRNC    83
                                        *         CHECK FOR (AND TRUNCATE) LONG LINE (.GT. *L.MAXCD* WORDS).     COMFRNC    84
                                                                                                                 COMFRNC    85
          3417  56240                    RNC3     SA2    B4          (A2,X2) = A+C OF 1ST WORD OF SOURCE LINE    COMFRNC    86
                     67764                        SB7    B6-B4       (B7) = NR OF USEABLE WORDS IN SOURCE LINE   COMFRNC    87
                          6150777776 X            SB5    =XL.MAXCD-1                                             COMFRNC    88
          3420  0657003421 +                      LE     B7,B5,RNC4  IF LINE LENGTH OK                           COMFRNC    89
                          66750                   SB7    B5          SET TO *MAX NR OF WDS IN LINE IS /L.MAXCD/* COMFRNC    90
                               66645              SB6    B4+B5                                                   COMFRNC    91
                                                                                                                 COMFRNC    92
                                        *         CHECK FOR AND PROCESS FALSE EOR/EOF (TELEX BLANK LINE ONLY).   COMFRNC    93
                                                                                                                 COMFRNC    94
          3421  0312003423 +             RNC4     NZ     X2,RNC5     IF NO FALSE EOR/EOF                         COMFRNC    95
                          5130003612 +            SA3    =10H                                                    COMFRNC    96
          3422  66641                             SB6    B4+B1                                                   COMFRNC    97
                     66710                        SB7    B1          (B7) = NR OF USEABLE WORDS = 1              COMFRNC    98
                          10633                   BX6    X3                                                      COMFRNC    99
                               56640              SA6    B4                                                      COMFRNC   100
                                                                                                                 COMFRNC   101
                                        *         FINAL PROCESSING AND EXIT.                                     COMFRNC   102
                                                                                                                 COMFRNC   103
          3423  13666                    RNC5     BX6    X6-X6                                                   COMFRNC   104
                     76771                        SX7    B7+B1       (X7) = NR OF WORDS IN SOURCE LINE IMAGE     COMFRNC   105
                          56660                   SA6    B6          MARK FULL WORD EOL                          COMFRNC   106
                               66510              SB5    B1                                                      COMFRNC   107
          3424  5170000107 +                      SA7    =XL.CARD                                                COMFRNC   108
                          0400003401 +            EQ     EXIT.                                                   COMFRNC   109
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    87
        COMFRNC - READ NEXT CARD.                                     RNC                 COMFRNC 
  
                                                  IF     -DEF,QUAL$,2                                            COMFRNC   111
                                                  QUAL   *                                                       COMFRNC   112
                                3401 +   RNC      =      /COMFRNC/RNC                                            COMFRNC   113
                                                  ENDX                                                           COMFRNC   114
  
  
  
  
                                        **        SAV - SAVE CRITICAL PACKING REGISTERS.                         FEAT121L  589
                                        *                                                                        FEAT121L  590
                                        *                                                                        FEAT121L  591
                                        *         SAVES     X - 3,5,6                                            FEAT121L  592
                                        *                   A - NONE                                             FEAT121L  593
                                        *                   B - 1,2,3,6                                          FEAT121L  594
                                        *                                                                        FEAT121L  595
                                        *         USES   X - 6,7                                                 FEAT121L  596
                                        *                A - 6,7                                                 FEAT121L  597
                                        *                B - NONE                                                FEAT121L  598
                                        *                                                                        FEAT121L  599
                                        *         CALLS  NONE                                                    FEAT121L  600
                                                                                                                 FEAT121L  601
                                                                                                                 FEAT121L  602
          3425  0400403425 +             SAV      SUBR               ** ENTRY/EXIT **                            FEAT121L  603
          3426  5160000125 +                      SA6    REG=X6                                                  FEAT121L  604
                          10733                   BX7    X3                                                      FEAT121L  605
                               22605              LX6    X5                                                      FEAT121L  606
          3427  5170000123 +                      SA7    REG=X3                                                  FEAT121L  607
                          5160000124 +            SA6    REG=X5                                                  FEAT121L  608
          3430  76710                             SX7    B1                                                      FEAT121L  609
                     76620                        SX6    B2                                                      FEAT121L  610
                          5170000117 +            SA7    REG=B1                                                  FEAT121L  611
          3431  5160000120 +                      SA6    REG=B2                                                  FEAT121L  612
                          76730                   SX7    B3                                                      FEAT121L  613
                               76660              SX6    B6                                                      FEAT121L  614
          3432  5170000121 +                      SA7    REG=B3                                                  FEAT121L  615
                          5160000122 +            SA6    REG=B6                                                  FEAT121L  616
          3433  0400003425 +                      EQ     EXIT.                                                   FEAT121L  617
  
  
  
  
                                         #NL      IFNE   #NL,0                                                   FEAT126B  934
                                        **        SLO - SET LIST OPTION FLAGS.                                   FEAT121L  620
                                        *                                                                        FEAT121L  621
                                        *                                                                        FEAT121L  622
                                        *         ENTRY  (NOLIST) = 1S59 IF IN *LIST,ALL* MODE                   FEAT121L  623
                                        *                         =  +0  IF IN *LIST,NONE* MODE                  FEAT121L  624
                                        *                (X6)     =  +0                                          FEAT121L  625
                                        *                                                                        FEAT121L  626
                                        *         EXIT   (ANSI)   =  +0                                          FEAT121L  627
                                        *                (IEFLG)  =  +0                                          FEAT121L  628
                                        *                (LOP=O)  =  +0                                          FEAT121L  629
                                        *                (LOP=R)  =  +0                                          FEAT121L  630
                                        *                (R=FLAG) =  +0                                          FEAT121L  631
                                        *                                                                        FEAT121L  632
                                        *         USES   X - 1,7                                                 FEAT121L  633
                                        *                A - 1,6,7                                               FEAT121L  634
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    88
        COMFRNC - READ NEXT CARD.                                     SLO 
  
                                        *                B - NONE                                                FEAT121L  635
                                        *                                                                        FEAT121L  636
                                        *         CALLS  NONE                                                    FEAT121L  637
                                                                                                                 FEAT121L  638
                                                                                                                 FEAT121L  639
          3434  0400403434 +             SLO      SUBR               ** ENTRY/EXIT **                            FEAT121L  640
          3435  5110000115 +                      SA1    NOLIST                                                  FEAT121L  641
                          0331003434 +            MI     X1,EXIT.    IF IN *LIST,ALL* MODE AT END LINE TIME      FEAT121L  642
                                                                                                                 FEAT121L  643
                                        *         HERE IF IN *LIST,NONE* MODE AT END LINE TIME.                  FEAT121L  644
                                                                                                                 FEAT121L  645
          3436  5160000000 X                      SA6    =XANSI      SET TO *DO NOT LIST ANSI ERRORS*            FEAT121L  646
                          5160000000 X            SA6    =XIEFLG     SET TO *DO NOT LIST INFORMATIVE ERRORS*     FEAT121L  647
          3437  5160000000 X                      SA6    =XLOP=O     SET TO *DO NOT GENERATE OBJECT LIST*        FEAT121L  648
                          5160000000 X            SA6    =XLOP=R     SET TO *DO NOT LIST REFMAP*                 FEAT121L  649
          3440  5160000000 X                      SA6    =XR=FLAG    SET TO *R=0*                                FEAT121L  650
                          0400003434 +            EQ     EXIT.                                                   FEAT121L  651
                                         #NL      ELSE                                                           FEAT121L  652
                                         SLO      SUBR                                                           FEAT121L  653
                                                  EQ     EXIT.                                                   FEAT121L  654
                                         #NL      ENDIF                                                          FEAT121L  655
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    89
        SRCH - SEARCH FOR MATCH OF LEADING KEYWORD.                   SRCH
  
                                        **        SRCH - SEARCH INITIAL STRING FOR MATCH OF LEADING KEYWORD.     SCANNER  3401
                                        *                                                                        SCANNER  3402
                                        *         ENTRY  (KEYL) = 12/2000B+CHARCNT,48/WORD COUNT                 SCANNER  3403
                                        *                (KEYW) = KEYWORD, LEFT JUSTIFIED, ZERO FILL.            SCANNER  3404
                                        *         EXIT   (B1) = NEXT *STATE* JUMP ADDRESS.                       SCANNER  3405
                                        *                (B2) = CHARACTER THAT TERMINATED ALPHANUMERIC STRING.   SCANNER  3406
                                        *                (B3) = NR OF CHARS REMAINING IN FIXED KEYWORD BUFFER.   SCANNER  3407
                                        *                (B4) = STATEMENT TYPE CODE.                             SCANNER  3408
                                        *                (B5) = 1                                                SCANNER  3409
                                        *                (A7),(X7) = ADDR AND CONTENTS OF *KEYL* AFTER REMOVING  SCANNER  3410
                                        *                            KEYWORD FROM STRING.                        SCANNER  3411
                                        *                                                                        SCANNER  3412
                                        *         USES - ALL REGISTERS                                           SCANNER  3413
                                                                                                                 SCANNER  3414
                                                                                                                 SCANNER  3415
          3441  0400403441 +             SRCH     SUBR               ** ENTRY/EXIT **                            SCANNER  3416
                                                                                                                 SCANNER  3417
                                        *         INITIALIZATION.                                                SCANNER  3418
                                                                                                                 SCANNER  3419
          3442  5110000100 +                      SA1    KEYW        GET FIRST CHAR OF SET SEARCH LIMITS         SCANNER  3420
                          43006                   MX0    6                                                       SCANNER  3421
                               11201              BX2    X0*X1                                                   SCANNER  3422
          3443  20206                             LX2    6                                                       SCANNER  3423
                     5232003734 +                 SA3    SRCHA-1+X2                                              SCANNER  3424
                               63730              SB7    X3          (B7) = LIMIT                                SCANNER  3425
          3444  21336                             AX3    30                                                      SCANNER  3426
                     63630                        SB6    X3          (B6) = INDEX                                SCANNER  3427
                          6150000001              SB5    1                                                       SCANNER  3428
          3445  43774                             MX7    60                                                      SCANNER  3429
                     56020                        SA0    B2          SAVE B2                                     SCANNER  3430
                          5170000051              SA7    ATYPE                                                   SCANNER  3431
          3446  0460002164 +                      ZR     B6,ERP2     IF NO KEYWORD BEGINS WITH FIRST LETTER      SCANNER  3432
                                                                                                                 SCANNER  3433
                                        *         MAIN SEARCH LOOP.                                              SCANNER  3434
                                                                                                                 SCANNER  3435
                                                                                                                 SCANNER  3436
          3447  5110000077 +             SRCH1    SA1    KEYL                                                    SCANNER  3437
                          43701                   MX7    1                                                       SCANNER  3438
                               54215              SA2    A1+B5       (X2) = FIRST WORD OF INITIAL CHAR STRING    SCANNER  3439
          3450  26131                             UX1    B3,X1       (B3) = CHARS IN INITIAL STRING              SCANNER  3440
                                                                                                                 SCANNER  3441
                                        *         SEARCH FOR MATCH OF KEYWORD                                    SCANNER  3442
                                                                                                                 SCANNER  3443
          3451  56360                    SRCH2    SA3    B6          KEYWORD DESCRIPTOR                          SCANNER  3444
                     26043                        UX0    B4,X3                                                   SCANNER  3445
                          53430                   SA4    X3          KEYWORD CHAR STRING                         SCANNER  3446
                               23547              AX5    B4,X7       (X5)=MASK(LEN OF KEYWORD)                   SCANNER  3447
          3452  6120000074                        SB2    60                                                      SCANNER  3448
                          0742003454 +            LT     B4,B2,SRCH3 IF LEN OF KEYWORD .LT. 10                   SCANNER  3449
          3453  43574                             MX5    60                                                      SCANNER  3450
          3454  66665                    SRCH3    SB6    B6+B5                                                   SCANNER  3451
                     11652                        BX6    X5*X2       EXTRACT KEYWORD FROM (KEYW)                 SCANNER  3452
                          0776002164 +            GT     B6,B7,ERP2  IF END OF THE TABLE                         SCANNER  3453
          3455  13446                             BX4    X4-X6       PICTURE-STRING                              SCANNER  3454
                     0314003451 +                 NZ     X4,SRCH2    IF NO MATCH                                 SCANNER  3455
                               67205              SB2    -B5                                                     SCANNER  3456
          3456  7164777711                        SX6    B4-54                                                   SCANNER  3457
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    90
        SRCH - SEARCH FOR MATCH OF LEADING KEYWORD.                   SRCH
  
                          0336003463 +            MI     X6,SRCH4    IF LEN(KEYWD) @ 9 CHARS                     SCANNER  3458
          3457  6144777703                        SB4    B4-60                                                   SCANNER  3459
                          0740003463 +            MI     B4,SRCH4    IF LEN(KEYWD) = 10 CHARS                    SCANNER  3460
                                                                                                                 SCANNER  3461
                                        *         HERE IF KEYWORD .GT. 10 CHARACTERS                             SCANNER  3462
                                                                                                                 SCANNER  3463
          3460  6120777775                        SB2    -2          WORD INDEX = 2                              SCANNER  3464
                          54325                   SA3    A2+B5                                                   SCANNER  3465
                               23547              AX5    B4,X7                                                   SCANNER  3466
          3461  5044000001                        SA4    A4+1                                                    SCANNER  3467
                          11353                   BX3    X5*X3                                                   SCANNER  3468
                               37643              IX6    X4-X3                                                   SCANNER  3469
          3462  0316003451 +                      NZ     X6,SRCH2    IF NO MATCH OF REST OF KEYWORD              SCANNER  3470
                          6133777765              SB3    B3-10       REDUCE CHAR COUNT                           SCANNER  3471
                                                                                                                 SCANNER  3472
                                        *         EXTRACT *TYPE* AND *ATYPE* FROM *KEYW* TABLE.                  SCANNER  3473
                                                                                                                 SCANNER  3474
          3463  5130003627 +             SRCH4    SA3    =40404040404040404040B                                  SCANNER  3475
                          21022                   AX0    18                                                      SCANNER  3476
                               43464              MX4    -8                                                      SCANNER  3477
          3464  15604                             BX6    -X4*X0      EXTRACT STMT TYPE CODE                      SCANNER  3478
                     21010                        AX0    8                                                       SCANNER  3479
                          43470                   MX4    -4                                                      SCANNER  3480
                               12740              BX7    X4+X0                                                   SCANNER  3481
          3465  0307003467 +                      ZR     X7,SRCH5    IF *ATYPE* NOT TO BE SET                    SCANNER  3482
                          15704                   BX7    -X4*X0                                                  SCANNER  3483
          3466  5170000051                        SA7    ATYPE                                                   SCANNER  3484
                                                                                                                 SCANNER  3485
                                        *         REMOVE KEYWORD FROM LEADING STRING.                            SCANNER  3486
                                                                                                                 SCANNER  3487
          3467  5160000024               SRCH5    SA6    TYPE                                                    SCANNER  3488
                          11335                   BX3    X3*X5                                                   SCANNER  3489
                               55212              SA2    A1-B2       (X2)=1ST WORD TO BE MOVED                   SCANNER  3490
          3470  21004                             AX0    4                                                       SCANNER  3491
                     63700                        SB7    X0          (B7) = SUCCESS EXIT                         SCANNER  3492
                          47333                   CX3    X3                                                      SCANNER  3493
                               63630              SB6    X3                                                      SCANNER  3494
          3471  67336                             SB3    B3-B6       (B3)=(KEYW) CHAR CNT WITHOUT KEYWORD        SCANNER  3495
                     54710                        SA7    A1          PRESTORE                                    SCANNER  3496
                          66445                   SB4    B4+B5                                                   SCANNER  3497
                               63212              SB2    X1+B2                                                   SCANNER  3498
                                                                                                                 SCANNER  3499
                                        *         LEFT JUSTIFY REST OF CHARACTER STRING IN (KEYW).               SCANNER  3500
                                                                                                                 SCANNER  3501
          3472  15325                    SRCH6    BX3    -X5*X2                                                  SCANNER  3502
                     54225                        SA2    A2+B5                                                   SCANNER  3503
                          11452                   BX4    X5*X2                                                   SCANNER  3504
                               67225              SB2    B2-B5                                                   SCANNER  3505
          3473  36043                             IX0    X4+X3                                                   SCANNER  3506
                     22740                        LX7    B4,X0                                                   SCANNER  3507
                          5077000001              SA7    A7+1                                                    SCANNER  3508
          3474  0620003472 +                      PL     B2,SRCH6    IF NOT DONE                                 SCANNER  3509
                                                                                                                 SCANNER  3510
                                        *         SET UP EXIT CONDITIONS AND JUMP...                             SCANNER  3511
                                                                                                                 SCANNER  3512
                          64410                   SB4    A1          ADJUST *KEYL*                               SCANNER  3513
                               75274              SX2    A7-B4                                                   SCANNER  3514
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    91
        SRCH - SEARCH FOR MATCH OF LEADING KEYWORD.                   SRCH
  
          3475  64200                             SB2    A0          (B2)=CHAR THAT TERMINATED ALPHANUMERIC STR  SCANNER  3515
                     27732                        PX7    B3,X2                                                   SCANNER  3516
                          63460                   SB4    X6          (B4)=STMT TYPE CODE                         SCANNER  3517
                               54710              SA7    A1                                                      SCANNER  3518
          3476  0277000000                        JP     B7          SUCCESS EXIT...                             SCANNER  3519
                                                                                                                 SCANNER  3520
                                        *         *TYPE*  - CONTINUE SEARCH                                      SCANNER  3521
                                                                                                                 SCANNER  3522
          3477  6160003573 +             SRCH7    SB6    KW.TY                                                   SCANNER  3523
                          6170003602 +            SB7    KW.TYI                                                  SCANNER  3524
          3500  43601                             MX6    1                                                       SCANNER  3525
                     46000                        NO                                                             SCANNER  3526
                          5160003774 +            SA6    NAFLG       SET *NON-ANSI TYPE DECL OCCURRED* FLAG      SCANNER  3527
          3501  0400003447 +                      EQ     SRCH1                                                   SCANNER  3528
                                                                                                                 SCANNER  3529
                                        *         MODE DECLARATION - *LOGICAL*, *INTEGER*,...                    SCANNER  3530
                                                                                                                 SCANNER  3531
          3502  6160000007               SRCH8    SB6    7                                                       SCANNER  3532
                          0663003441 +            LE     B3,B6,EXIT. IF CHAR COUNT .LE. 7, SUCCESS               SCANNER  3533
          3503  6160003546 +                      SB6    KW.FN       CHECK FOR *FUNCTION* ONLY                   SCANNER  3534
                          6176000001              SB7    B6+1                                                    SCANNER  3535
          3504  0400003447 +                      EQ     SRCH1                                                   SCANNER  3536
                                                                                                                 SCANNER  3537
                                        *         IMPLICIT - GO BACK FOR FIRST TYPE                              SCANNER  3538
                                                                                                                 SCANNER  3539
          3505  6160003602 +             SRCH9    SB6    KW.TYI                                                  SCANNER  3540
                          6170003611 +            SB7    KW.TYIL                                                 SCANNER  3541
          3506  0400003447 +                      EQ     SRCH1                                                   SCANNER  3542
                                                                                                                 SCANNER  3543
                                        *         PROCESS KEYWORD *DOUBLE* SO THAT *SCAN22* CAN DIAGNOSE AS      SCANNER  3544
                                        *         NON-ANSI.                                                      SCANNER  3545
                                                                                                                 SCANNER  3546
          3507  43601                    SRCH11   MX6    1                                                       SCANNER  3547
                     46000                        NO                                                             SCANNER  3548
                          5160003774 +            SA6    NAFLG       SET *NON-ANSI TYPE DECL OCCURRED* FLAG      SCANNER  3549
          3510  0400003502 +                      EQ     SRCH8       REJOIN NORMAL FLOW...                       SCANNER  3550
                                                                                                                 SCANNER  3551
                                        *         PROCESS KEYWORD *END*.                                         SCANNER  3552
                                                                                                                 SCANNER  3553
          3511  0620003513 +             SRCH12   PL     B2,SRCH13   IF NOT NORMAL EOS                           FCCA435     7
                          0430002124 +            ZR     B3,ENDP     IF NO EXTRANEOUS CHARACTERS                 FCCA435     8
          3512  0400002164 +                      EQ     ERP2                                                    FCCA435     9
                                                                                                                 FCCA435    10
          3513  5140001213 +             SRCH13   SA4    SBUFF+3                                                 FCCA435    11
                          5120003615 +            SA2    =7R                                                     FCCA435    12
          3514  73440                             SX4    X4                                                      FCCA435    13
                     20206                        LX2    CHAR                                                    FCCA435    14
                          12442                   BX4    X4+X2                                                   FCCA435    15
                               10344              POSTER SEV=INF,NR=E325,FMT=DPC,TXT=X4,RETURN=ENDP              FCCA435    16
          3517  0400002164 +                      EQ     ERP2                                                    SCANNER  3555
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    92
        FORTRAN STATEMENT KEYWORD TABLE.                              KEYW
  
                                        **        FORTRAN STATEMENT KEYWORD TABLE                                SCANNER  3557
                                        *                                                                        SCANNER  3558
                                        *         KEYWORDS ARE ORDERED IN THE TABLE BY THEIR FIRST LETTERS.      SCANNER  3559
                                        *         WITHIN A FIRST LETTER GROUP, KEYWORDS SUCH AS *DOUBLE*,        SCANNER  3560
                                        *         WHICH ARE SUBSTRINGS OF OTHER KEYWORDS, MUST COME AFTER THE    SCANNER  3561
                                        *         STRINGS INCLUDING THEM.                                        SCANNER  3562
                                                                                                                 SCANNER  3563
          3520                                    KEYW   ASSIGN,14,,(25)                                         SCANNER  3564
          3521                                    KEYW   BUFFERIN,27,,(46)                                       SCANNER  3565
          3522  2065003441 +                      KEYW   BUFFEROUT,28,,(46)                                      SCANNER  3566
          3523  2065003441 +                      KEYW   BACKSPACE,32,,(25)                                      SCANNER  3567
          3524  2065003441 +                      KEYW   BLOCKDATA,0,0,(25)                                      SCANNER  3568
          3525                                    KEYW   CALL,19,,(25,27,47,49)                                  SCANNER  3569
          3526  2057003441 +                      KEYW   CONTINUE,21,,(25)                                       SCANNER  3570
          3527  2043003441 +                      KEYW   COMMON,4,,(23,25,27,45,47,49)                           SCANNER  3571
          3530  2051003502 +             8        KEYW   COMPLEX,8,4,(25,27,47,49)                               SCANNER  3572
          3531                                    KEYW   DATA,10,,(23,27,45,47,49)                               SCANNER  3573
          3532  2065003441 +                      KEYW   DIMENSION,5,,(47,49)                                    SCANNER  3574
          3533  2043003441 +                      KEYW   DECODE,30,,(42,46,47)                                   SCANNER  3575
          3534  2131003502 +             8        KEYW   DOUBLEPRECISION,8,3,(25,27,47,49)                       SCANNER  3576
          3535  2043003507 +             11       KEYW   DOUBLE,8,3,(25,27,47,49)                                SCANNER  3577
          3536  2013003441 +                      KEYW   DO,24,,(63)                                             SCANNER  3578
          3537                                    KEYW   ENCODE,29,,(42,44,46,47,410)                            FCC0569     5
          3540  2051003441 +                      KEYW   ENDFILE,33,,(25)                                        SCANNER  3580
          3541  2057003441 +                      KEYW   EXTERNAL,6,,(25,27)                                     SCANNER  3581
          3542  2101003441 +                      KEYW   EQUIVALENCE,7,,(47,49)                                  SCANNER  3582
          3543  2035003441 +                      KEYW   ENTRY,36,,(25)                                          SCANNER  3583
          3544  2021003511 +             12       KEYW   END,13,,(25)                                            SCANNER  3584
          3545  2021003502 +             8        KEYW   ECS,8,5,(25,27,47,49)                                   SCANNER  3585
          3546                           KW.FN    BSS    0                                                       SCANNER  3586
          3546                                    KEYW   FUNCTION,1,,(47)                                        SCANNER  3587
          3547                                    KEYW   GOTO,15,,(25,27,42,44,46,47,49)                         SCANNER  3588
          3550                                    KEYW   IF,17,,(42)                                             SCANNER  3589
          3551  2051003502 +             8        KEYW   INTEGER,8,1,(25,27,47,49)                               SCANNER  3590
          3552  2057003505 +             9        KEYW   IMPLICIT,3,,(47,49),NA                                  SCANNER  3591
          3553                           8        KEYW   LOGICAL,8,0,(25,27,47,49)                               SCANNER  3592
          3554  2035003441 +                      KEYW   LEVEL,2,,(27)                                           SCANNER  3593
          3555                                    KEYW   NAMELIST,11,,(23)                                       SCANNER  3594
          3556                                    KEYW   OVERLAY,0,3,(47)                                        SCANNER  3595
          3557                                    KEYW   PRINT,34,,(22,25,27,42,44,410,46,47,49)                 FCC0787   130
          3560  2035003441 +                      KEYW   PUNCH,35,,(22,25,27,42,44,410,46,47,49)                 FCC0787   131
          3561  2035003441 +                      KEYW   PAUSE,23,,(25)                                          SCANNER  3598
          3562  2051003441 +                      KEYW   PROGRAM,0,2,(25,47)                                     SCANNER  3599
          3563                                    KEYW   READ,25,,(22,25,27,42,410,46,47,49)                     SCANNER  3600
          3564  2043003441 +                      KEYW   REWIND,31,,(25)                                         SCANNER  3601
          3565  2043003441 +                      KEYW   RETURN,20,,(25)                                         SCANNER  3602
          3566  2027003502 +             8        KEYW   REAL,8,2,(25,27,49)                                     SCANNER  3603
          3567                                    KEYW   STOP,22,,(25)                                           SCANNER  3604
          3570  2073003441 +                      KEYW   SUBROUTINE,0,1,(25,27,47,49)                            SCANNER  3605
          3571                           7        KEYW   TYPE,8,,(25,27,47,49)                                   SCANNER  3606
          3572                                    KEYW   WRITE,26,,(22,25,27,42,44,410,46,47,49)                 FCC0787   132
          3573                                    AUXT   0           TERMINATE AUX SEARCH TABLE                  SCANNER  3608
                                         AUXT     OPSYN  NIL                                                     SCANNER  3609
                                                  LIST   -G                                                      SCANNER  3610
                                                                                                                 SCANNER  3611
          3573                           KW.TY    BSS    0                                                       SCANNER  3612
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    93
        FORTRAN STATEMENT KEYWORD TABLE.                              KEYW
  
                                                  ECHO   1,T=(LOGICAL,INTEGER,REAL,DOUBLEPRECISION,DOUBLE,COMPLE SCANNER  3613
                                        ,X,ECS),V=(0,1,2,3,3,4,5)                                                SCANNER  3614
                                                  KEYW   T,8,V                                                   SCANNER  3615
                                                                                                                 SCANNER  3616
          3602                           KW.TYI   BSS    0                                                       SCANNER  3617
                                                  ECHO   1,T=(LOGICAL,INTEGER,REAL,DOUBLEPRECISION),V=(0,1,2,3)  SCANNER  3618
                                                  KEYW   T,3,V                                                   SCANNER  3619
          3606  2043003441 +                      KEYW   DOUBLE,3,3                                              SCANNER  3620
          3607  2051003441 +                      KEYW   COMPLEX,3,4                                             SCANNER  3621
          3610  2021003441 +                      KEYW   ECS,3,5                                                 SCANNER  3622
          3611  00000000000000000000     KW.TYIL  CON    0           SEARCH TERMINATOR                           SCANNER  3623
                                                                                                                 SCANNER  3624
                                                                                                                 SCANNER  3625
                                                  ECHO   3,NR=(22,23,25,27,42,44,410,45,46,47,49,63)             SCANNER  3626
                                                  USE    CLR_NR                                                  SCANNER  3627
                                                  POS    0                                                       SCANNER  3628
                                                  USE    *                                                       SCANNER  3629
                                                                                                                 SCANNER  3630
                                                  USE    NANSI                                                   SCANNER  3631
                                  00              POS    0                                                       SCANNER  3632
                                                  USE    *                                                       SCANNER  3633
  
  
  
  
                                                  LIST   D                                                       SCANNER  3635
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        SFN 
             0 X                        ERPRO 
             0 X                        CCS 
             0 X                        TDI 
             0 X                        ASAER 
             0 X                        CDD 
             0 X                        CP.FLIN 
             0 X                        SAVREG
             0 X                        DBGERR
             0 X                        RESREG
             0 X                        SLIST 
             0 X                        ERPROI
             0 X                        FATALER 
             0 X                        ISITDBG 
             0 X                        FA=LOL
             0 X                        D.IDSP
             0 X                        MVE=
             0 X                        CP.IFMT 
             0 X                        CP.CARD 
             0 X                        F.IN
             0 X                        RDC=
             0 X                        L.MAXCD 
             0 X                        ANSI
             0 X                        IEFLG 
             0 X                        LOP=O 
             0 X                        LOP=R 
             0 X                        R=FLAG
  
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    94
        FORTRAN STATEMENT KEYWORD TABLE.                              LITERALS
  
                                        CONTENT OF LITERALS BLOCK.
  
          3612  55555555555555555555
          3613  00555555555555555555
          3614  00005555555555555555
          3615  00000055555555555555
          3616  00000000555555555555
          3617  00000000005555555555
          3620  00000000000055555555
          3621  00000000000000555555
          3622  00000000000000005555
          3623  00000000000000000055
          3624  00000000000000000000
          3625  55555555555555555533             0
          3626  05050505050505050505    EEEEEEEEEE
          3627  40404040404040404040    5555555555
          3630  00000000035055555555        C/
          3631  00000000000353555555         C$ 
          3632  16171646040502250755    NON-DEBUG 
          3633  03171624111625012411    CONTINUATI
          3634  17165523240124051505    ON STATEME
          3635  16240000000000000000    NT
          3636  00001411232456011414      LIST,ALL
          3637  00141123245616171605     LIST,NONE
          3640  11141405070114550617    ILLEGAL FO
          3641  22150000000000000000    RM
          3642  02010455031716232401    BAD CONSTA
          3643  16240000000000000000    NT
          3644  00002324152446051604      STMT-END
          3645  04172502140520220503    DOUBLEPREC
          3646  11231117160000000000    ISION 
          3647  06172215012400000000    FORMAT
          3650  26012211010214055524    VARIABLE T
          3651  17175514171607000000    OO LONG 
          3652  13053127172204551722    KEYWORD OR
          3653  55260122110102140555     VARIABLE 
          3654  24171755141716075700    TOO LONG. 
          3655  00000000000000000000
          3656  24171755150116315503    TOO MANY C
          3657  17162411162501241117    ONTINUATIO
          3660  16551411160523570000    N LINES.
          3661  05160400000000000000    END 
          3662  01232311071600000000    ASSIGN
          3663  02250606052211160000    BUFFERIN
          3664  02250606052217252400    BUFFEROUT 
          3665  02010313232001030500    BACKSPACE 
          3666  02141703130401240100    BLOCKDATA 
          3667  03011414000000000000    CALL
          3670  03171624111625050000    CONTINUE
          3671  03171515171600000000    COMMON
          3672  03171520140530000000    COMPLEX 
          3673  04012401000000000000    DATA
          3674  04111505162311171600    DIMENSION 
          3675  04050317040500000000    DECODE
          3676  04172502140500000000    DOUBLE
          3677  04170000000000000000    DO
          3700  05160317040500000000    ENCODE
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    95
        FORTRAN STATEMENT KEYWORD TABLE.                              LITERALS
  
          3701  05160406111405000000    ENDFILE 
          3702  05302405221601140000    EXTERNAL
          3703  05212511260114051603    EQUIVALENC
          3704  05000000000000000000    E 
          3705  05162422310000000000    ENTRY 
          3706  05032300000000000000    ECS 
          3707  06251603241117160000    FUNCTION
          3710  07172417000000000000    GOTO
          3711  11060000000000000000    IF
          3712  11162405070522000000    INTEGER 
          3713  11152014110311240000    IMPLICIT
          3714  14170711030114000000    LOGICAL 
          3715  14052605140000000000    LEVEL 
          3716  16011505141123240000    NAMELIST
          3717  17260522140131000000    OVERLAY 
          3720  20221116240000000000    PRINT 
          3721  20251603100000000000    PUNCH 
          3722  20012523050000000000    PAUSE 
          3723  20221707220115000000    PROGRAM 
          3724  22050104000000000000    READ
          3725  22052711160400000000    REWIND
          3726  22052425221600000000    RETURN
          3727  22050114000000000000    REAL
          3730  23241720000000000000    STOP
          3731  23250222172524111605    SUBROUTINE
          3732  24312005000000000000    TYPE
          3733  27221124050000000000    WRITE 
  
          4016                                    END                                                            SCANNER  3636
  
                             67500B CM  STORAGE USED             7033 STATEMENTS     1149 SYMBOLS      000013 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.938 SECONDS        1938 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADD1         1471   PROGRAM*       23/04 L   57/12     58/06     58/44     64/03     64/12     81/50
                                           56/45     58/03     58/12     58/49     64/04     64/32     81/55
                                           56/51     58/04     58/37     58/56     64/06     64/48
        ADD1.2       1476   PROGRAM*       23/15     23/18 L   23/27
        ADD1.3       1500   PROGRAM*       23/23 L   23/29
        ADD1.4       1501   PROGRAM*       23/21     23/26 L
        ADJ          1504   PROGRAM*       24/25 L   56/36     57/19     60/07     60/26     60/43     62/29
                                           56/28     57/04     59/30     60/15     60/35     61/42     62/41
        ADJA         1544   PROGRAM*       25/14     26/14 L
        ADJ2         1524   PROGRAM*       25/20     25/25 L
        ADJ3         1533   PROGRAM*       24/38     25/31     25/48 L
        ADJ4         1537   PROGRAM*       25/28     26/02 L
        ADJ5         1542   PROGRAM*       25/54     26/07 L
        AFC1         1376   PROGRAM*       18/36     19/14 L
        AFC2         1377   PROGRAM*       19/06     19/16 L
        AFC3         1404   PROGRAM*       18/35     19/15     19/23 L
        ALLARR          0   DBGBLK1        14/11 L
        ALLCALL         1   DBGBLK1        14/12 L
        ALLFUNC         2   DBGBLK1        14/13 L
        ALLROU          6   DBGBLK1        14/17 L
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        AND            37   PROGRAM*       10/16     10/37 L
        ANSI            0   EXTERNAL*      88/12 S
        ANSIERP      1545   PROGRAM*       26/28 L   42/25     50/50     81/53     83/11
        AREAFLG        61   DBGBLK2        13/57 L
        ASAER           0   EXTERNAL*      22/07     26/31     34/09     44/45     44/54     45/03     84/07
        ATYPE          51                   7/12 D   89/31 S   90/27 S
        AWE          1553   PROGRAM*       20/30     26/50 L   53/56     64/36     67/46     72/29
        BADLABL        61   PROGRAM*       11/01 L   19/19 S   19/57     32/13 S   34/12
        BLNKSTMT     3767   PROGRAM*       11/02 L   18/40 S   70/01     76/19 S   78/27 S   78/41 S   79/57
        BURST1       1654   PROGRAM*       30/14     31/24     31/26     31/37     32/42 L
        BURST1A      1656   PROGRAM*       32/46     32/48 L
        BURST2       1660   PROGRAM*       32/55 L   33/08     33/16     33/31
        BURST3       1663   PROGRAM*       33/04     33/08 L
        BURST4       1664   PROGRAM*       33/11 L   33/19
        BURST5       1665   PROGRAM*       33/15 L
        BURST6       1667   PROGRAM*       33/13     33/28 L
        CAD          3770   PROGRAM*       11/05 L   39/04 S   42/38 S   47/15 S   47/26 S   51/48 S   67/17     72/13 S
        CARDS          62   PROGRAM*       11/09 L   16/53 S   85/48
        CAT2         1601   PROGRAM*       29/56     30/06 L
        CAT2A        1605   PROGRAM*       30/11     30/21 L
        CAT2B        1611   PROGRAM*       30/28     30/38 L
        CAT3         1614   PROGRAM*       30/39     30/49 L   31/28
        CAT4         1615   PROGRAM*       30/45     30/54 L
        CAT5         1617   PROGRAM*       30/27     31/05 L
        CAT5.5       1627   PROGRAM*       31/18     31/19     31/24 L
        CAT6         1632   PROGRAM*       31/10     31/32 L
        CBL          1560   PROGRAM*       18/34     28/55 L   69/34
        CBL2         1571   PROGRAM*       29/28     29/32     29/34 L
        CBL3         1572   PROGRAM*       29/30     29/35 L
        CBL90        1673   PROGRAM*       30/50     31/22     33/48 L
        CBL91        1677   PROGRAM*       33/52     33/57 L
        CBL95        1705   PROGRAM*       34/07     34/08     34/11 L
        CCS             0   EXTERNAL*      19/34
        CCSTO          63   PROGRAM*       11/14 L   16/18 S   25/15     66/41     71/32
        CD             64   PROGRAM*       11/15 E   11/15 L   48/15 S
        CDD             0   EXTERNAL*      29/33     44/52     45/01
        CERP         2216   PROGRAM*       39/27     41/07     41/36     41/57     42/11     47/07 L
                                           39/45     41/20     41/49     42/02     42/16     81/10
        CERPCOM      2220   PROGRAM*       47/08     47/11 L
        CERP1        2217   PROGRAM*       47/10 L   50/41     52/19     67/22
        CFD          1754   PROGRAM*       39/11     39/34 L
        CHAR            6                   7/01 D   33/30     86/06     91/47
        CLABEL         23                   7/07 D   32/38 S   35/47 S   44/21 S   44/42     67/30     76/15     84/06 S
        CLO          1711   PROGRAM*       33/44     34/53 L
        CLO2         1715   PROGRAM*       35/06 L   35/12
        CLO3         1720   PROGRAM*       35/06     35/16 L
        CLO4         1724   PROGRAM*       35/19     35/32 L
        CLO5         1725   PROGRAM*       35/21     35/38 L
        CLO6         1726   PROGRAM*       35/34     35/43 L
        COL            65   PROGRAM*       11/16 E   11/16 L   48/25 S
        COLS           66   PROGRAM*       11/17 L   23/23 S   41/08     49/17 S   50/55     73/02 S   75/12
                                           23/07     29/48 S   48/11     49/20     51/35 S   73/05     75/42 S
        COL1MASK        2   PROGRAM*        9/15 L   30/22
        COMMA          32   PROGRAM*       10/32 L   58/12     64/12
        COMMON         67   PROGRAM*       11/18 L   72/18 S   72/29
        CONSTOR       127   PROGRAM*       12/27 E   12/28 L   16/15     66/44
        CONSTORS      454   FTNTEXT        12/28     66/44
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        CONTCNT        70   PROGRAM*       11/19 L   29/57 S   31/14     33/51     34/14     48/05     73/52
                                           20/04 S   30/12 S   31/32 S   34/04     44/41     69/52     80/01
        COUNTUP       111   DBGBLK2        14/05 L
        CP.CARD         0   EXTERNAL*      17/03     17/10     17/56     29/40     44/26 S   70/25 S   85/53     85/54
        CP.FLIN         0   EXTERNAL*      29/36 S   77/57 S   79/49     80/09 S   80/22
        CP.IFMT         0   EXTERNAL*      85/49
        CP#RM           0   FTNTEXT        17/08 F
        CRDEND       1671   PROGRAM*       33/28     33/29     33/35 L
        CSSTMT         71   PROGRAM*       11/20 L   18/37     30/13 S   34/54     77/29     78/20
        CTAB         1741   PROGRAM*       39/12     39/19 L
        CTYPE          72   PROGRAM*       11/23 L   39/55 S   40/22 S   41/02 S   42/37 S   68/02 S
                                           39/05 S   40/02 S   40/29 S   42/21 S   50/48 S   72/05
        C$STMT          1   NONFTNX        14/23 D   20/32     31/17     70/41 S   78/19
                                           18/29 S   30/54     33/48     70/51
        C.PACK         64   DBGBLK2        14/03 L
        DBGERR          0   EXTERNAL*      31/21     46/12     47/13     65/03     68/22     71/03
        DBGEXTP        62                  15/01 D
        DBGFSTT        47                  14/57 D   81/29
        DBGPHCT         7   NONFTNX        14/29 L   47/35
        DBGPROG        41   DBGBLK2        13/40 L
        DBGRFMP         6   NONFTNX        14/28 L
        DEBUG           0   //             13/04 L
        DELIMH       2343   PROGRAM*       52/03 L   57/25     58/11     61/48     64/11
        DELIM1       2345   PROGRAM*       51/21     52/10 L
        DELIM2       2347   PROGRAM*       51/22     52/16 L
        DEXP         1770   PROGRAM*       39/53     40/01 L   40/39     41/48
        DEXPPP       1764   PROGRAM*       39/39     39/50 L
        DFLAG           0   EXTERNAL*       8/52 X   19/38     31/35     68/14     70/18
                                           16/32     30/38     54/39     69/55     76/22
        DIGIT        1731   PROGRAM*       39/03 L   58/21     61/35     64/21
        DISPOW         44   DBGBLK2        13/43 L
        DLBUF         603   PROGRAM*       12/40 L   65/52     80/22
        DLBUFL        404                  12/39 D   12/40     80/16
        DSL          2117   PROGRAM*       18/24     42/54 L   42/54 E   78/05
        DSTAR          53   PROGRAM*       10/49 L   64/46
        DTYPE           1   NONFTNX        14/22 L   14/23     34/15     46/10     47/11     54/36     64/56     83/17
        DUKE           37                   7/15 D   20/11 S   48/06
        DUKE1          73   PROGRAM*       11/24 E   11/24 L   16/49 S   18/43     20/07     29/02
        D.BADC       2224   PROGRAM*       46/13     47/14 L   65/04
        D.COL           0   NONFTNX        14/21 L   16/37
        D.CONL         22   DBGBLK2        13/25 L
        D.CON1         21   DBGBLK2        13/24 L
        D.CURT         10   NONFTNX        14/30 L   31/25     33/50 S
        D.CURUD        51   DBGBLK2        13/50 L
        D.DOLAST       27   DBGBLK2        13/30 L
        D.DUKE1        53   DBGBLK2        13/51 L
        D.EAREA         5   DBGBLK2        13/12 L
        D.EDRL          1   DBGBLK2        13/08 L
        D.EDVL          3   DBGBLK2        13/10 L
        D.EFDIT        20   DBGBLK2        13/23 L
        D.ELAST        15   DBGBLK2        13/20 L
        D.ELIST        13   DBGBLK2        13/18 L
        D.ESMTB        10   DBGBLK2        13/15 L
        D.IDSP          0   EXTERNAL*      69/57     76/24
        D.LABEL        54   DBGBLK2        13/52 L
        D.LELST        14   DBGBLK2        13/19 L
        D.NAASI        23   DBGBLK2        13/26 L
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        D.NCURU         2   NONFTNX        14/25 L
        D.NDUKE         4   NONFTNX        14/26 L
        D.NEST         56   DBGBLK2        13/54 L
        D.NESTW        16   DBGBLK2        13/21 L
        D.NLBEL         5   NONFTNX        14/27 L
        D.NOERR        35   DBGBLK2        13/36 L
        D.NOGO         30   DBGBLK2        13/31 L
        D.ON           34   DBGBLK2        13/35 L
        D.OPEN         40   DBGBLK2        13/39 L
        D.OPFLG        33   DBGBLK2        13/34 L
        D.OPL           6   DBGBLK2        13/13 L
        D.PACK         31   DBGBLK2        13/32 L
        D.PADD         36   DBGBLK2        13/37 L
        D.POW          32   DBGBLK2        13/33 L
        D.RFMAP        12   DBGBLK2        13/17 L
        D.SAASI        11   DBGBLK2        13/16 L
        D.SAREA         4   DBGBLK2        13/11 L
        D.SCN52      2171   PROGRAM*       46/11     46/15 L
        D.SCON1        26   DBGBLK2        13/29 L
        D.SDRL          0   DBGBLK2        13/07 L
        D.SDVL          2   DBGBLK2        13/09 L
        D.SFDIT        17   DBGBLK2        13/22 L
        D.SSMTB         7   DBGBLK2        13/14 L
        D.STOR         25   DBGBLK2        13/28 L
        D.TYPE         55   DBGBLK2        13/53 L
        ELAST           0   EXTERNAL*       8/51 D   16/23 S   21/06     49/05 S   64/38     75/01     81/17
        ENDL            0   PROGRAM*        9/08 L   70/21
        ENDP         2124   PROGRAM*       44/15 L   74/03     74/05     91/41     91/49
        END1         2133   PROGRAM*       44/25     44/28 L
        END2         2140   PROGRAM*       44/30     44/32     44/37 L
        END3         2144   PROGRAM*       44/31     44/45 L
        END4         2146   PROGRAM*       44/35     44/44     44/49 L
        END5         2153   PROGRAM*       44/51     44/55 L
        EOS            33   PROGRAM*       10/33 L   20/30
        EQ             46   PROGRAM*       10/09     10/44 L
        EQU            34   PROGRAM*       10/34 L   56/10     58/10     64/10
        ERPRO           0   EXTERNAL*      19/21     20/16     20/49     47/37     66/47     70/57     78/34
        ERPROI          0   EXTERNAL*      44/35     91/49
        ERP1         2160   PROGRAM*       23/16     27/03     46/04 L   75/06
        ERP1A        2161   PROGRAM*       46/06 L   46/07
        ERP1B        2163   PROGRAM*       46/05     46/08 L
        ERP10        2207   PROGRAM*       46/50 L   56/08     58/17     61/05     61/10     62/08     63/10
                                           56/03     56/13     59/05     61/06     61/12     62/11     63/11
                                           56/04     57/32     59/08     61/08     61/17     63/08
        ERP11        2211   PROGRAM*       46/53 L   58/09     61/09
        ERP12        2213   PROGRAM*       46/56 L   67/25     67/43     67/53
        ERP2         2164   PROGRAM*       46/10 L   54/32     68/13     89/32     91/42
                                           50/22     63/26     73/35     89/53     91/50
        ERP20        2227   PROGRAM*       46/39     46/42     47/12     47/21 L
        ERP20A       2231   PROGRAM*       47/24     47/26 L
        ERP3         2172   PROGRAM*       44/17     46/18 L   59/40
        ERP4         2174   PROGRAM*       46/23 L   81/46
        ERP5         2175   PROGRAM*       46/26 L   81/23     81/26     83/18
        ERP5A        2202   PROGRAM*       46/33     46/35 L
        ERP5B        2176   PROGRAM*       46/24     46/27 L
        ERP6         2203   PROGRAM*       46/38 L   76/48
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        ERP7         2204   PROGRAM*       46/41 L   46/54     56/35     57/18     59/56     60/14     60/42     62/40
                                           46/51     56/27     57/03     59/29     60/06     60/25     60/51
        ERP8         2205   PROGRAM*       25/40     25/44     46/44 L
        ERP9         2206   PROGRAM*       24/46     46/47 L
        EXPEXP       3771   PROGRAM*       11/25 L   40/03 S   40/47 S   42/18 S   46/56     47/27 S   67/51     81/49 S
                                           39/56 S   40/44 S   42/04 S   46/32     47/16 S   67/41     81/14 S
        E104          150                   8/14 D   47/10
        E111          157                   8/15 D   46/44
        E175          257                   8/16 D   46/19
        E196          304                   8/17 D   81/52
        E197          305                   8/18 D   42/24     50/43
        E207          317                   8/19 D   34/09
        E208          320                   8/20 D   45/03
        E209          321                   8/21 D   47/07
        E210          322                   8/22 D   84/07
        E221          335                   8/24 D
        E228          344                   8/25 D   44/54
        E259          403                   8/26 D   52/03
        E28            34                   8/03 D
        E289          441                   8/27 D   66/47
        E29            35                   8/04 D   19/21     46/15     46/57
        E297          451                   8/28 D   46/26     47/04
        E299          453                   8/29 D   22/07
        E30            36                   8/05 D   20/16
        E31            37                   8/06 D   70/57
        E313          471                   8/30 D   46/41
        E319          477                   8/31 D   78/34
        E32            40                   8/07 D   46/34
        E323          503                   8/32 D
        E324          504                   8/33 D   46/23
        E325          505                   8/23 D   91/49
        E33            41                   8/08 D   20/49
        E34            42                   8/09 D   83/10
        E35            43                   8/10 D   44/35
        E37            45                   8/11 D   46/38
        E38            46                   8/12 D   44/45
        E80           120                   8/13 D   46/47
        FALSE          60   PROGRAM*       10/19     10/54 L
        FATALER         0   EXTERNAL*      46/08
        FA=LOL          0   EXTERNAL*      66/12     79/49
        FEFLAG         37   DBGBLK2         8/53 E   13/38 L   19/49     67/28     70/02     78/39 S
        FILLTEN      3612   PROGRAM*        8/57 L    9/03
        FILL8R       3614   PROGRAM*        9/03 D   53/50     83/04
        FORLOOP      2251   PROGRAM*       48/20 L   48/24
        FORMAT       2243   PROGRAM*       48/03 L   56/50
        FORMAT1      2256   PROGRAM*       48/35 L   48/43     49/11
        FORMAT2      2257   PROGRAM*       48/40 L   48/49     48/54
        FORMAT3      2261   PROGRAM*       48/40     48/45 L
        FORMAT4      2265   PROGRAM*       48/42     49/01 L
        FTNCNT         74   PROGRAM*       11/26 L   16/55 S   19/16     20/08     29/03     29/35 S   77/31     80/02
        FWAWORK         0   EXTERNAL*       8/50 X   23/09     26/52     75/02
        F.IN            0   EXTERNAL*      85/53
        GE             43   PROGRAM*       10/10     10/41 L
        GET          2273   PROGRAM*       39/09     40/45     41/52     42/27     51/38     64/37
                                           40/12     41/16     42/07     49/19 L   54/26     81/06
        GET1         2274   PROGRAM*       49/20 L   49/28
        GET2         2272   PROGRAM*       49/16 L   49/26     49/29
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        GOTOSFL         3   DBGBLK1        14/14 L
        GT             44   PROGRAM*       10/11     10/42 L
        HANG.        3772   PROGRAM*       11/27 L   40/14 S   47/30 S   67/52     81/08 S
                                           40/11 S   47/17 S   67/19     81/05 S
        HLRMASK         4   PROGRAM*        9/31 L   39/42
        HOLLRTH      2301   PROGRAM*       39/44     50/17 L
        HOLL1        2304   PROGRAM*       50/28 L   50/35
        HOLL2        2311   PROGRAM*       50/45 L   52/06
        HOLL3        2314   PROGRAM*       50/49     50/54 L
        HOLL4        2320   PROGRAM*       51/08 L   51/27     52/12
        HOLL5        2321   PROGRAM*       51/08     51/12 L   51/57
        HOLL6        2322   PROGRAM*       51/13     51/16 L
        HOLL7        2325   PROGRAM*       51/19     51/26 L   52/10
        HOLL8        2330   PROGRAM*       51/32     51/35 L   52/18
        HOLL9        2333   PROGRAM*       51/16     51/43 L
        IDENTOK        75   PROGRAM*       11/28 E   11/28 L   19/32
        IEF            76   PROGRAM*       11/30 L   16/50 S   18/51 S   43/02 S   65/55 S   70/40 S   79/39
        IEFLG           0   EXTERNAL*      88/13 S
        IIIC         2037   PROGRAM*       40/31     41/15 L   41/44     42/43
        IIICP        2042   PROGRAM*       40/23     41/19 L
        IIICT        2060   PROGRAM*       41/18     41/43 L
        IIIIC        2064   PROGRAM*       39/57     40/04     41/51 L
        IMP          2351   PROGRAM*       53/27 L   65/15     68/08
        IMPFLG       3773   PROGRAM*       11/36 L   53/55 S   65/13 S   67/18
        IMP2         2357   PROGRAM*       53/37     53/40     53/47 L
        IMP3         2361   PROGRAM*       53/48     53/50 L
        INDEF          55   PROGRAM*       10/20     10/51 L
        INDEXNO       113   DBGBLK2        14/07 L
        ISITDBG         0   EXTERNAL*      54/53
        KD           1777   PROGRAM*       39/29     40/11 L
        KDE          2005   PROGRAM*       40/17     40/24 L
        KDEQ         2011   PROGRAM*       40/25     40/32 L
        KDEQD        2015   PROGRAM*       40/35     40/40 L
        KDEQE        2017   PROGRAM*       40/33     40/43 L
        KDEQQ        2033   PROGRAM*       40/51     41/08 L
        KEYL           77   PROGRAM*       11/38 L   11/39     24/26     53/28     73/12 S   73/34     74/07     89/37
        KEYW          100   PROGRAM*       11/39 D   24/30     56/47     73/38 S   89/20
        KW.A         3520   PROGRAM*       92/08 L   92/09
        KW.B         3521   PROGRAM*       92/09 L   92/09     92/13
        KW.C         3525   PROGRAM*       92/13 L   92/13     92/17
        KW.D         3531   PROGRAM*       92/17 L   92/17     92/23
        KW.E         3537   PROGRAM*       92/23 L   92/23     92/31
        KW.F         3546   PROGRAM*       92/31 L   92/31     92/32
        KW.FN        3546   PROGRAM*       91/20     92/30 L
        KW.G         3547   PROGRAM*       92/32 L   92/32     92/33
        KW.I         3550   PROGRAM*       92/33 L   92/33     92/36
        KW.L         3553   PROGRAM*       92/36 L   92/36     92/38
        KW.N         3555   PROGRAM*       92/38 L   92/38     92/39
        KW.O         3556   PROGRAM*       92/39 L   92/39     92/40
        KW.P         3557   PROGRAM*       92/40 L   92/40     92/44
        KW.R         3563   PROGRAM*       92/44 L   92/44     92/48
        KW.S         3567   PROGRAM*       92/48 L   92/48     92/50
        KW.T         3571   PROGRAM*       92/50 L   92/50     92/51
        KW.TY        3573   PROGRAM*       91/09     92/56 L
        KW.TYI       3602   PROGRAM*       91/10     91/26     93/05 L
        KW.TYIL      3611   PROGRAM*       91/27     93/11 L
        KW.W         3572   PROGRAM*       92/51 L   92/51     92/52
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        KW.0         3573   PROGRAM*       92/52 L   92/52
        LABL1        1637   PROGRAM*       31/51 L   31/57     32/07     32/14
        LABL2        1646   PROGRAM*       31/51     32/20 L
        LABL3        1652   PROGRAM*       30/01     31/33     32/22     32/34 L
        LCON          105   PROGRAM*       11/41 L   24/37 S   24/57 S   25/52     26/02
        LDEBUG         42   DBGBLK2        13/41 L
        LE             41   PROGRAM*       10/12     10/39 L
        LELIST         34                   7/13 D   16/29 S   20/51     46/20 S   54/23     59/32     59/43 S
        LETS22       4002   PROGRAM*       56/25 L   56/25
        LETS23       4003   PROGRAM*       56/33 L   56/33
        LETS25       4004   PROGRAM*       57/01 L   57/01
        LETS27       4005   PROGRAM*       57/16 L   57/16
        LETS410      4014   PROGRAM*       60/49 L   60/49
        LETS42       4006   PROGRAM*       59/27 L   59/27
        LETS44       4007   PROGRAM*       59/54 L   59/54
        LETS45       4010   PROGRAM*       60/04 L   60/04
        LETS46       4011   PROGRAM*       60/12 L   60/12
        LETS47       4012   PROGRAM*       60/23 L   60/23
        LETS49       4013   PROGRAM*       60/40 L   60/40
        LETS63       4015   PROGRAM*       62/38 L   62/38
        LEX          2366   PROGRAM*       20/23     47/41     54/47     59/44     62/31     67/34
                                           44/57     54/22 L   57/01     60/23     64/17     68/17
                                           45/03     54/43     57/05     60/27     67/32     68/23
        LEX12        2376   PROGRAM*       54/25     54/31     54/36 L
        LEX12A       2402   PROGRAM*       54/45 L   54/46
        LEX12B       2404   PROGRAM*       54/41     54/49 L
        LEX13        2406   PROGRAM*       54/37     54/53 L
        LEX2         2430   PROGRAM*       54/49     54/51     56/17 L
        LEX22        2432   PROGRAM*       56/05     56/25 L
        LEX23        2436   PROGRAM*       56/06     56/33 L
        LEX24        2442   PROGRAM*       56/07     56/41 L
        LEX24A       2447   PROGRAM*       56/09     56/56 L   57/31
        LEX25        2450   PROGRAM*       56/17     57/01 L   57/27
        LEX26        2454   PROGRAM*       56/10     57/09 L
        LEX27        2456   PROGRAM*       56/12     57/16 L
        LEX28        2462   PROGRAM*       56/11     57/24 L
        LEX29        2464   PROGRAM*       57/24     57/30 L
        LEX3         2502   PROGRAM*       56/43     58/17 L   58/30
        LEX32        2506   PROGRAM*       58/19     58/29 L
        LEX33        2510   PROGRAM*       58/07     58/34 L   64/07
        LEX34        2512   PROGRAM*       58/08     58/41 L
        LEX35        2515   PROGRAM*       58/10     58/53 L   64/10
        LEX4         2533   PROGRAM*       58/48     59/17 L
        LEX410       2577   PROGRAM*       59/11     60/49 L
        LEX42        2536   PROGRAM*       59/19     59/27 L
        LEX43        2546   PROGRAM*       59/36     59/48 L
        LEX44        2550   PROGRAM*       59/03     59/04     59/13     59/54 L
        LEX45        2553   PROGRAM*       59/06     60/04 L
        LEX46        2557   PROGRAM*       59/07     60/12 L
        LEX46A       2563   PROGRAM*       59/09     60/21 L
        LEX47        2564   PROGRAM*       59/17     60/23 L
        LEX48        2570   PROGRAM*       59/10     60/32 L
        LEX49        2573   PROGRAM*       59/12     60/40 L
        LEX5         2616   PROGRAM*       57/10     61/17 L
        LEX52        2622   PROGRAM*       61/19     61/28 L
        LEX53        2624   PROGRAM*       61/21     61/34 L
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        LEX54        2625   PROGRAM*       61/03     61/13     62/04     62/07     63/03     63/06     63/23
                                           61/04     61/39 L   62/05     62/10     63/04     63/07
                                           61/07     62/03     62/06     62/13     63/05     63/13
        LEX55        2630   PROGRAM*       61/11     61/47 L
        LEX6         2645   PROGRAM*       61/28     61/30     62/17 L
        LEX61        2647   PROGRAM*       62/09     62/25 L   63/09
        LEX62        2650   PROGRAM*       62/17     62/26 L   63/18
        LEX63        2655   PROGRAM*       62/12     62/38 L   63/12
        LEX7         2675   PROGRAM*       61/34     61/47     63/18 L
        LEX72        2677   PROGRAM*       63/20     63/25 L
        LEX8         2716   PROGRAM*       54/55     56/33     59/27     59/57     60/16     60/44     61/43     64/17 L
                                           54/56     56/37     59/35     60/04     60/33     60/49     62/38     65/01
                                           56/25     57/16     59/50     60/08     60/36     60/52     62/42     65/02
                                           56/29     57/20     59/54     60/12     60/40     61/40     63/28     73/53
        LEX82        2722   PROGRAM*       64/08     64/29 L
        LEX83        2724   PROGRAM*       58/05     64/05     64/36 L
        LEX84        2730   PROGRAM*       64/40     64/45 L
        LEX85        2732   PROGRAM*       64/19     64/52 L
        LEX86        2734   PROGRAM*       64/55 L   65/12
        LEX87        2735   PROGRAM*       64/56 L   65/16
        LEX88        2743   PROGRAM*       64/54     65/10 L
        LEX89        2750   PROGRAM*       64/09     65/19 L
        LEX.1        2412   PROGRAM*       55/02 L   55/03
        LFLAG          47   DBGBLK2        13/46 L
        LJT2         2414   PROGRAM*       56/03 L   56/18
        LJT3         2466   PROGRAM*       58/03 L   58/22
        LJT4         2517   PROGRAM*       59/03 L   59/20
        LJT5         2602   PROGRAM*       61/03 L   61/22
        LJT6         2631   PROGRAM*       62/03 L   62/18
        LJT7         2661   PROGRAM*       63/03 L   63/27
        LJT8         2702   PROGRAM*       64/03 L   64/22
        LNGDRL         62   DBGBLK2        14/01 L
        LNGDVL         63   DBGBLK2        14/02 L
        LNGIND         57   DBGBLK2        13/55 L
        LOCC          106   PROGRAM*       11/42 L   71/37 S   72/04
        LOP=O           0   EXTERNAL*      88/14 S
        LOP=R           0   EXTERNAL*      88/15 S
        LP             35   PROGRAM*       10/35 L   56/07     58/07     64/07
        LSL          2753   PROGRAM*       19/53     43/04     65/48 L   65/48 E   78/36     80/18
        LSL2         2757   PROGRAM*       65/56 L   66/20
        LSL3         2760   PROGRAM*       66/02 L   66/04
        LT             42   PROGRAM*       10/13     10/40 L
        LTFLAG         46   DBGBLK2        13/45 L
        LTYPE          21                   7/14 D   16/28 S   21/11 S   21/35     44/15     73/56
        LWAWORK         0   EXTERNAL*       8/50 X    8/51     23/04     26/51
        L.CARD        107   PROGRAM*       11/43 L   18/16 S   29/41     44/27 S   70/32 S   86/56 S
        L.MAXCD         0   EXTERNAL*      86/36
        L.PLINE       110   PROGRAM*       11/46 L   18/22 S   69/32 S   79/36     80/25 S
                                           18/17 S   44/40 S   70/33 S   80/13
        L.SL         2767   PROGRAM*       65/49     66/11 S   66/13     66/24 L   79/51 S   80/08 S   80/14
        L.STBZ         50                   7/03 D   16/17
        L.VAR          13                  12/21 D   16/25
        MCE          2770   PROGRAM*       26/04     66/40 L   71/46     72/27
        MINUS          47   PROGRAM*       10/45 L   58/04     64/04
        MVE=            0   EXTERNAL*      80/22
        N             111   PROGRAM*       11/49 L   39/07 S   42/35 S   50/18     51/04 S   52/16     71/31     72/06
        NABC          112   PROGRAM*       11/50 L   44/55     76/14
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        NACOM         113   PROGRAM*       11/51 L   30/32     44/49
        NAFLG        3774   PROGRAM*       11/52 L   22/02     91/13 S   91/35 S
        NANSI        3734   PROGRAM*        8/40 L   22/01
        NE             45   PROGRAM*       10/14     10/43 L
        NEWS         2775   PROGRAM*       40/09     49/08     55/01     62/34     67/05 L
                                           47/43     51/51     55/04     65/22     76/40
        NEWS2        3005   PROGRAM*       67/27 L   67/42     67/47     68/04     68/09
        NEWS3        3013   PROGRAM*       67/21     67/41 L
        NEWS4        3020   PROGRAM*       67/23     67/51 L
        NEWS5        3025   PROGRAM*       67/54     68/03 L
        NEWS6        3027   PROGRAM*       67/24     68/08 L
        NEWS7        3031   PROGRAM*       67/33     68/13 L
        NEWS8        3034   PROGRAM*       67/45     68/21 L
        NEXTS        2241   PROGRAM*       47/19     47/42 L   47/44
        NLABEL         60                   7/11 D   32/34     35/43     44/20 S   70/13 S   83/57
                                           16/51 S   34/11     44/16     56/41     76/21 S
        NOACT          60   DBGBLK2        13/56 L
        NOEND         114   PROGRAM*       11/53 L   44/23     70/35 S   74/04
        NOGOFLG         4   DBGBLK1        14/15 L
        NOLIST        115   PROGRAM*       11/54 E   11/54 L   18/48 S   42/56     77/30     78/09 S   79/38     88/07
        NOPROG         50   DBGBLK2        13/47 L
        NOT            40   PROGRAM*       10/17     10/38 L
        NOTF         3113   PROGRAM*       71/33     71/39 L
        NULLSTMT     3775   PROGRAM*       11/55 L   54/28 S   67/29
        NXCOMENT      116   PROGRAM*       11/56 L   30/49 S   33/57     35/25 S   79/56
        NXT          3040   PROGRAM*       46/06     49/07     54/45     55/02     76/39     78/35
                                           47/42     51/50     54/57     69/28 L   78/18
        NXT10        3103   PROGRAM*       70/54     71/02 L
        NXT2         3041   PROGRAM*       69/29 L   69/47     70/03     70/07     70/53     70/57     71/04
        NXT3         3044   PROGRAM*       69/34 L   70/36
        NXT4         3047   PROGRAM*       69/35     69/45 L
        NXT5         3052   PROGRAM*       69/36     69/51 L
        NXT5A        3056   PROGRAM*       69/56     70/01 L
        NXT6         3063   PROGRAM*       69/33     70/18 L
        NXT7         3073   PROGRAM*       70/20     70/38 L
        NXT8         3075   PROGRAM*       69/40     69/41     70/14     70/45 L
        NXT9         3076   PROGRAM*       69/54     70/50 L
        N.EQUAL      3776   PROGRAM*       11/57 L   11/57 E   57/11 S   58/53
        OEXP         2104   PROGRAM*       39/41     42/20 L
        OR             36   PROGRAM*       10/15     10/36 L
        O.VAR        3767   PROGRAM*        8/46 L   12/21     16/25 S
        PACKC        3107   PROGRAM*       39/08     40/19     40/54     41/51     42/41     71/30 L
                                           39/47     40/27     40/56     42/06     51/26     71/45
                                           39/51     40/37     41/15     42/22     67/57     71/49
        PACKT        3120   PROGRAM*       40/05     40/40     41/12     42/23     51/36     68/03     72/03 L   72/30
        PACK30       3134   PROGRAM*       54/50     65/14     73/04 L
        PACK30.1     3133   PROGRAM*       73/01 L   73/44     74/14
        PACK30.2     3142   PROGRAM*       73/19 L   73/29
        PACK30.3     3143   PROGRAM*       73/23 L   73/47     74/12
        PACK30.4     3146   PROGRAM*       73/23     73/27     73/33 L
        PACK30.5     3154   PROGRAM*       73/43     73/49 L
        PACK30.6     3163   PROGRAM*       73/50     73/55     73/57     74/01     74/02     74/06 L
        PACK7        3174   PROGRAM*       58/29     61/29     64/55     75/11 L   75/11 E   81/16
        PACK7.H      3205   PROGRAM*       75/36 L   75/52
        PACK7.1      3170   PROGRAM*       75/01 L   75/44
        PACK7.2      3173   PROGRAM*       75/08 L   75/45
        PACK7.3      3202   PROGRAM*       75/27 L   75/36
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        PACK7.4      3203   PROGRAM*       75/31 L   75/50
        PACK7.5      3211   PROGRAM*       75/34     75/47 L
        PAD          3777   PROGRAM*       12/01 L   46/27 S   46/28     47/32 S   67/16     75/09 S   75/17 S
        PARENS       4000   PROGRAM*       12/02 L   48/04 S   58/34     58/43 S   65/10
                                           20/31     56/44 S   58/41     64/29
        PBC          3214   PROGRAM*       19/23     69/45     76/12 L
        PBC2         3221   PROGRAM*       76/13     76/22 L
        PCON         2112   PROGRAM*       42/34 L   81/12
        PGCOM        3230   PROGRAM*       23/26     49/27     74/06     75/48     76/45 L
        PGCOM1       3224   PROGRAM*       76/38 L   76/46
        PHSFLAG       114   DBGBLK2        14/08 L
        PK           1734   PROGRAM*       39/08 L   39/35
        PKT2         3131   PROGRAM*       72/19     72/29 L
        PLO          3234   PROGRAM*       18/55     19/54     77/28 L   77/28 E
        PLO2         3235   PROGRAM*       77/29 L   78/28     78/42
        PLO3         3243   PROGRAM*       77/50     77/57 L
        PLO4         3250   PROGRAM*       78/01     78/14 L
        PLO5         3251   PROGRAM*       77/55     78/10     78/18 L
        PLO6         3256   PROGRAM*       78/34 L
        PLR          3265   PROGRAM*       19/24     19/55     69/46     69/51     77/54     78/06     78/16     79/35 L
        PLR2         3266   PROGRAM*       79/36 L   80/19
        PLR3         3276   PROGRAM*       79/44     79/56 L
        PLR4         3303   PROGRAM*       79/45     80/05     80/13 L
        PLR5         3307   PROGRAM*       80/17     80/21 L
        PLR6         3312   PROGRAM*       79/52     80/03     80/04     80/23 L
        PLUS           50   PROGRAM*       10/46 L   58/03     64/03
        POINT        3314   PROGRAM*       58/13     64/13     81/04 L
        POINTT       3317   PROGRAM*       40/42     41/13     81/09 L
        POINT1       3332   PROGRAM*       81/27     81/30     81/32 L
        POINT2       3335   PROGRAM*       81/38     81/40 L   81/45
        POINT3       3340   PROGRAM*       81/42     81/48 L
        POM          2031   PROGRAM*       40/49     41/04 L
        POMM         2024   PROGRAM*       40/52 L   41/04     41/06
        PROE         2235   PROGRAM*       46/16     46/36     46/48     47/05     47/35 L
                                           46/21     46/45     47/01     47/33
        PROE2        2237   PROGRAM*       47/36     47/38 L   66/47
        PTBLEND        31   PROGRAM*       10/01     10/23 L
        PTBL1           5   PROGRAM*        9/48 L   81/32
        PTBL2.2        13   PROGRAM*        9/50     10/09 L
        PTBL2.2A       21   PROGRAM*        9/48     10/15 L
        PTBL2.3        22   PROGRAM*        9/50      9/52     10/16 L
        PTBL2.4        24   PROGRAM*        9/52      9/54     10/18 L
        PTBL2.5        25   PROGRAM*        9/54      9/56     10/19 L
        PTBL2.5A       26   PROGRAM*        9/48      9/56     10/01     10/20 L
        PVN          3344   PROGRAM*       25/51     67/44     75/43     82/31 L
        PVNA         3364   PROGRAM*       82/39     83/25 L
        PVN2         3354   PROGRAM*       82/38     82/45     82/54     83/03 L
        PVN3         3361   PROGRAM*       83/05     83/17 L
        P$T          3365   PROGRAM*       40/08     46/53     54/33     56/56     60/21     62/25     65/19     83/56 L
  U     QUAL$                              85/06 F   87/01 F
        RANGE          54   PROGRAM*       10/21     10/50 L
        RDC=            0   EXTERNAL*      85/53
        RECORD         43   DBGBLK2        13/42 L
        REGS          117   PROGRAM*       12/03 L   12/04     12/05     12/06     12/07     12/08     12/09     12/10
        REG=B1        117   PROGRAM*       12/04 D   84/27     87/31 S
        REG=B2        120   PROGRAM*       12/05 D   62/33 S   65/21 S   84/28     87/32 S
        REG=B3        121   PROGRAM*       12/06 D   84/31     87/35 S
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        REG=B6        122   PROGRAM*       12/07 D   84/32     87/36 S
        REG=X3        123   PROGRAM*       12/08 D   84/38     87/27 S
        REG=X5        124   PROGRAM*       12/09 D   84/36     87/28 S
        REG=X6        125   PROGRAM*       12/10 D   84/35     87/24 S
        RELFLAG      4001   PROGRAM*       12/11 L   63/19     81/15 S
        RES          3372   PROGRAM*       26/32     49/09     51/53     67/14     67/27     76/41     84/26 L
        RESREG          0   EXTERNAL*      31/21     46/12     47/13     65/03     68/22     71/03
        REXP         1766   PROGRAM*       39/49     39/54 L   41/46
        REXPPP       1762   PROGRAM*       39/37     39/46 L
        RNC          3401   PROGRAM*       18/20     44/38     69/30     87/03 D
        RP             31   PROGRAM*       10/31 L   58/08     64/08
        RTAB         2045   PROGRAM*       41/21     41/28 L   42/12
        R=FLAG          0   EXTERNAL*      88/16 S
        SAV          3425   PROGRAM*       26/29     40/07     49/06     51/49     76/38     87/23 L
        SAVREG          0   EXTERNAL*      31/21     46/12     47/13     65/03     68/22     71/03
        SBUFF        1210   PROGRAM*       12/46 L   23/22     34/13     49/10     51/02     52/17     73/07     76/42
                                           12/47 E   23/28     34/55     49/16     51/31     70/06     75/14     91/44
                                           23/12     32/49 S   48/08     49/21     51/54     73/01     75/40
        SBUFLG        126   PROGRAM*       12/12 L   19/56     44/24     46/04     47/38     54/42     67/06     84/04 S
        SCANNER      1313   PROGRAM*       16/13 E   16/13 L   18/30     22/06     22/11
        SCANNER1     1314   PROGRAM*       16/15 L   54/19     54/34     68/16
        SCAN10       1407   PROGRAM*       16/44     18/42     18/56     19/32 L
        SCAN11       1412   PROGRAM*       19/33     19/38 L
        SCAN12       1414   PROGRAM*       19/40     19/42 L
        SCAN13       1417   PROGRAM*       19/07     19/35     19/42     19/49 L
        SCAN14       1421   PROGRAM*       19/52     19/54 L
        SCAN15       1426   PROGRAM*       20/03     20/07 L
        SCAN16       1431   PROGRAM*       20/05     20/13 L
        SCAN17       1434   PROGRAM*       20/13     20/23 L   21/19
        SCAN18       1445   PROGRAM*       20/38     20/39     20/50 L
        SCAN19       1450   PROGRAM*       20/52     21/04 L
        SCAN2        1326   PROGRAM*       16/31 L   16/33     19/39
        SCAN20       1456   PROGRAM*       21/05     21/32 L
        SCAN21       1461   PROGRAM*       21/04     21/43 L
        SCAN3        1332   PROGRAM*       16/36     16/41     16/43 L   19/41
        SCAN4        1335   PROGRAM*       16/40     16/47 L   19/36
        SCAN5        1343   PROGRAM*       17/04     17/06 L
        SCAN6        1344   PROGRAM*       17/13 L   17/15
        SCAN7A       1350   PROGRAM*       17/57     18/08 L
        SCAN7B       1352   PROGRAM*       18/04     18/14 L
        SCAN8        1355   PROGRAM*       17/05     18/20 L   19/25
        SCAN9        1363   PROGRAM*       18/18     18/23     18/34 L
        SCAN9A       1372   PROGRAM*       18/47     18/55 L
        SCAN9B       1374   PROGRAM*       18/41     19/01 L
        SCNT           46                   7/16 D   16/56 S   19/20 S   20/12 S   77/41 S
        SCNUPDT       112   DBGBLK2        14/06 L
        SDBGIND        24   DBGBLK2        13/27 L
        SELIST         32                   7/05 D   16/20 S   21/07     21/32     25/18     25/53     48/13
        SFN             0   EXTERNAL*      18/09
        SLASH          52   PROGRAM*       10/48 L   58/06     64/06
        SLIST           0   EXTERNAL*      42/55     79/37
        SLO          3434   PROGRAM*       44/22     88/06 L
        SPIDER          7   DBGBLK1        14/18 L
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE   106
        SYMBOLIC REFERENCE TABLE. 
  
        SRCH         3441   PROGRAM*       46/50     60/12     92/10     92/19     92/32     92/43     93/03     93/07
                                           56/25     60/23     92/11     92/22     92/33     92/44     93/03     93/07
                                           56/33     60/40     92/12     92/23     92/37     92/45     93/03     93/08
                                           57/01     60/49     92/13     92/24     92/38     92/46     93/03     93/09
                                           57/16     62/38     92/14     92/25     92/39     92/48     93/03     93/10
                                           59/27     89/16 L   92/15     92/26     92/40     92/49     93/03
                                           59/54     92/08     92/17     92/27     92/41     92/51     93/07
                                           60/04     92/09     92/18     92/31     92/42     93/03     93/07
        SRCHA        3735   PROGRAM*        8/44 L   89/24
        SRCH1        3447   PROGRAM*       89/37 L   91/14     91/22     91/28
        SRCH11       3507   PROGRAM*       91/33 L   92/21
        SRCH12       3511   PROGRAM*       91/40 L   92/28
        SRCH13       3513   PROGRAM*       91/40     91/44 L
        SRCH2        3451   PROGRAM*       89/44 L   89/55     90/13
        SRCH3        3454   PROGRAM*       89/49     89/51 L
        SRCH4        3463   PROGRAM*       90/01     90/03     90/18 L
        SRCH5        3467   PROGRAM*       90/25     90/31 L
        SRCH6        3472   PROGRAM*       90/45 L   90/52
        SRCH7        3477   PROGRAM*       91/09 L   92/50
        SRCH8        3502   PROGRAM*       91/18 L   91/36     92/16     92/20     92/29     92/34     92/36     92/47
        SRCH9        3505   PROGRAM*       91/26 L   92/35
        STAR           51   PROGRAM*       10/47 L   64/36
        ST.ASG         16                   7/25 D   25/30
        ST.BAD         22                   7/27 D   21/01     47/39     70/55
        ST.END         15                   7/24 D   44/28     70/34
        ST.INV         45                   7/28 D   18/25     44/33     70/34
        ST.LIF         21                   7/26 D   59/34
        ST.V=E         14                   7/23 D   61/39
        SUCCESS        45   DBGBLK2        13/44 L
        SYMEND         13                   7/02 D   16/16
        TC           1772   PROGRAM*       39/19     39/19     39/19     41/28     41/28     41/28
                                           39/19     39/19     39/28     41/28     41/28     41/37
                                           39/19     39/19     40/05 L   41/28     41/28     41/38
        TCS          1774   PROGRAM*       39/19     40/07 L   41/28
        TDI             0   EXTERNAL*      21/44
        TEST            0   FTNTEXT        21/46 F   29/14 F   36/20 F   77/44 F
        TRACEL          5   DBGBLK1        14/16 L
        TRUE           57   PROGRAM*       10/18     10/53 L
        TYPE           24                   7/06 D   21/57     44/34 S   54/54     61/41 S   67/31     78/40 S
                                           16/24 S   22/08     47/18 S   59/31     62/28 S   68/21 S   81/28
                                           18/28 S   25/29     47/40 S   59/49 S   64/52     70/56 S   83/20 S
                                           20/50     44/29 S   48/31 S   60/34 S   64/57     71/02 S   90/31 S
        UPDTTBL        65   DBGBLK2        14/04 L
        VALID          56   PROGRAM*       10/22     10/52 L
        VC           2073   PROGRAM*       41/03     41/54     41/56     42/06 L   42/19
        VCC          2101   PROGRAM*       42/09     42/15 L
        ZRBLMASK        3   PROGRAM*        9/24 L   31/05
        #NL             1   FTNTEXT        30/02 F   34/24 F   77/01 F   87/42 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFRNC 
  
  
        RNC          3401   PROGRAM*       85/47 L   87/03
        RNC2         3413   PROGRAM*       86/04     86/18 L
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.53.41.      PAGE   107
        SYMBOLIC REFERENCE TABLE.                                     COMFRNC 
  
        RNC3         3417   PROGRAM*       86/09     86/13     86/34 L
        RNC4         3421   PROGRAM*       86/37     86/43 L
        RNC5         3423   PROGRAM*       85/57     86/43     86/52 L
1       DMPELST                                                       COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT DMPELST 
                          0                       END 
  
  
                                        ENTRY POINTS. 
  
                                        DMPELST          0+ 
  
  
  
  
                                                  IDENT DMPELST                                                  DMPELST     3
                                                                                                                 DMPELST     4
                                        *                THIS DUMMY DECK GENERATES A 77-TABLE FOR *DMPELST*      DMPELST     5
                                        *         IN A SYSTEM-MODE COMPILER.  ITS PURPOSE IS TO KEEP THE         DMPELST     6
                                        *         RELOCATABLE BINARY STRUCTURE IDENTICAL IN SYSTEM- OR           DMPELST     7
                                        *         TEST-MODE COMPILER CONFIGURATION.                              DMPELST     8
                                                                                                                 DMPELST     9
                                                                                                                 DMPELST    10
                                                                                                                 DMPELST    11
             0                           DMPELST  BSS    0                                                       DMPELST    12
                                                  ENTRY  DMPELST                                                 DMPELST    13
                                                                                                                 DMPELST    14
                                                                                                                 DMPELST    15
                                                                                                                 DMPELST    16
             0                                    END                                                            DMPELST    17
  
                             65600B CM  STORAGE USED               15 STATEMENTS        1 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.030 SECONDS           2 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        DMPELST         0   PROGRAM*        1/23 L    1/24 E
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      467              IDENT     CONVERT 
                        467                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       460 
                                        LITERALS* LOCAL         460         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=CNVRT          0+           CONVERT         11+           OHC            235+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.CON     HOL.      F.CMPS    SYMBOL    UHOL.     Z.CON     ERPROI
                                        L.CON     WTC=      WB.HOL    OUTUSE    ADDWD     CON.      ERPRO 
  
  
  
  
                                                  IDENT     CONVERT                                              CONVERT     2
                                                  SST                                                            CONVERT     4
             0                           B=CNVRT  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     CONVERT     5
             0                                    TABLES CON                                                     CONVERT     6
                                                                                                                 CONVERT     7
                                                                                                                 CONVERT     8
                                        ***       CONVERT  -  CONVERT CONSTANT TO BINARY.                        CONVERT     9
                                        *                                                                        CONVERT    10
                                        *                                                                        CONVERT    11
                                        *         L.D.HARE - CDC/SUNNYVALE - DECEMBER 1974.                      CONVERT    12
                                        *                                                                        CONVERT    13
                                        *                UPDATE FLOATING CONVERSION FOR                          CONVERT    14
                                        *                COMPATIBILITY WITH FCL.                                 CONVERT    15
                                        *                                                                        CONVERT    16
                                        *         ENTRY  (B1) = 0, CONVERT CONSTANT AND STORE.                   CONVERT    17
                                        *                (X1) = ELIST ENTRY.                                     CONVERT    18
                                        *                                                                        CONVERT    19
                                        *         EXIT   (X1) = 30/CA,30/IH.                                     CONVERT    20
                                        *                                                                        CONVERT    21
                                        *         ENTRY  (B1) .LT. 0, CONVERT CONSTANT ONLY.                     CONVERT    22
                                        *                (X1) = ELIST ENTRY.                                     CONVERT    23
                                        *                                                                        CONVERT    24
                                        *         EXIT   (X1) = HIGH ORDER BITS CONVERTED CONSTANT.              CONVERT    25
                                        *                (X2) = LOW ORDER BITS CONVERTED CONSTANT                CONVERT    26
                                        *                       FOR DOUBLE PRECISION.                            CONVERT    27
                                        *                                                                        CONVERT    28
                                        *         ENTRY  (B1) = 1 OR 2, STORE ONLY USER CONVERTED CONSTANT.      CONVERT    29
                                        *                (X1) = HIGH ORDER BITS CONVERTED CONSTANT.              CONVERT    30
                                        *                (X2) = LOW ORDER BITS CONVERTED CONSTANT                CONVERT    31
                                        *                       IF (B1) = 2.                                     CONVERT    32
                                        *                                                                        CONVERT    33
                                        *         EXIT   (X1) = 30/CA,30/IH.                                     CONVERT    34
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     2
  
  
                                        *                                                                        CONVERT    35
                                        *         USES REGISTER CONVENTION B1=1.                                 CONVERT    36
                                        *         RETURNS B5=1 FOR COMPATIBILITY WITH EARLIER VERSIONS.          CONVERT    37
                                        *                                                                        CONVERT    38
                                        *         USES   ALL.                                                    CONVERT    39
                                        *                                                                        CONVERT    40
                                        *         CALLS  ERPROI,ERPRO,ADDWD.                                     CONVERT    41
                                                                                                                 CONVERT    42
                                                                                                                 CONVERT    43
                                        ****      ERROR MESSAGES.                                                CONVERT    44
                                                                                                                 CONVERT    45
                                 102     E.CCE    EQU    66          CONVERSION ERROR                            CONVERT    46
                                 332     E.TMD    EQU    218         TOO MANY DIGITS (INFORMATIVE)               CONVERT    47
                                 460     E.ICO    EQU    304         INTEGER OVERFLOW                            CONVERT    48
                                                                                                                 CONVERT    49
                                        ****                                                                     CONVERT    50
                                                                                                                 CONVERT    51
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     3
        WORKING CONSTANTS AND STORAGE.
  
                                        *         WORKING STORAGE.                                               CONVERT    53
                                                                                                                 CONVERT    54
             0                     1     CCBA     BSS    1           TYPE OF CALL, (B1) AT ENTRY                 CONVERT    55
             1                     1     CCBB     BSS    1           NUMBER OF CHARACTERS IN CONSTANT            CONVERT    56
             2                     1     CCBC     BSS    1           ELIST VALUE IN CASE OF ERROR                CONVERT    57
             3                     1     CCBD     BSS    1           SIGN OF REAL NUMBER                         CONVERT    58
             4                     1     CCBE     BSS    1           ORIGINAL CONSTOR ADDRESS                    CONVERT    59
             5                     1     CCBF     BSS    1           CONSTANT TYPE                               CONVERT    60
             6                     1     CCBG     BSS    1           SCRATCH                                     CONVERT    61
             7                     1     CCBH     BSS    1           2*NT WORD DP STORAGE                        CONVERT    62
            10                     1     CCBI     BSSZ   1           INFORMATIVE ERROR FLAG                      CONVERT    63
  
  
  
  
                                                                                                                 CONVERT    65
                                        *         CRACK CALLING PARAMETERS AND SET UP REGISTERS.                 CONVERT    66
                                                                                                                 CONVERT    67
            11  0400400011 +             CONVERT  ENTRY. **          ENTRY/EXIT                                  CONVERT    68
            12  10611                             BX6    X1                                                      CONVERT    69
                     7171000000                   SX7    B1+                                                     CONVERT    70
                               66310              SB3    B1                                                      CONVERT    71
            13  5160000006 +                      SA6    CCBG        X1 FOR DISPLAY                              CONVERT    72
                          6110000001              SB1    1                                                       CONVERT    73
            14  5170000000 +                      SA7    CCBA        (CCBA) = CLM = CALLING MODE                 CONVERT    74
                          0703000126 +            GT     B3,B0,SBC   IF CLM .EQ. 1 OR 2 STORE ONLY               CONVERT    75
                                                                                                                 CONVERT    76
            15  10711                             BX7    X1                                                      CONVERT    77
                     26101                        UX1    X1                                                      CONVERT    78
                          5170000002 +            SA7    CCBC        (CCBC) = ELT = ELIST AT ENTRY               CONVERT    79
            16  63510                             SB5    X1          (B5) = CAD = ORIGINAL CONSTOR ADDRESS       CONVERT    80
                     21122                        AX1    18                                                      CONVERT    81
                          76650                   SX6    B5                                                      CONVERT    82
                               63710              SB7    X1          (B7) = NCH = NUMBER OF CHARACTERS           CONVERT    83
            17  5160000004 +                      SA6    CCBE                                                    CONVERT    84
                          21133                   AX1    45-18                                                   CONVERT    85
                               76770              SX7    B7                                                      CONVERT    86
            20  10611                             BX6    X1                                                      CONVERT    87
                     5170000001 +                 SA7    CCBB        (CCBB) = NCH                                CONVERT    88
                               63210              SB2    X1          (B2) = CTP = CONSTANT TYPE                  CONVERT    89
            21  5160000005 +                      SA6    CCBF        (CCBF) = CTP                                CONVERT    90
                          0222000022 +            JP     B2+CCB.JT   JP CCB.JT(TYPE)                             CONVERT    91
                                                                                                                 CONVERT    92
                                        *         CONVERT JUMP TABLE.                                            CONVERT    93
                                                                                                                 CONVERT    94
            22                           CCB.JT   BSS    0                                                       CONVERT    95
      L      0                                    LOC    0                                                       CONVERT    96
      L      0  76150                             SX1    B5                                                      CONVERT    97
                     0400000043 +                 EQ     CCB4        T.LOG                                       CONVERT    98
      L      1  0400000045 +                      EQ     CDC         T.INT                                       CONVERT    99
      L      2  0400000045 +                      EQ     CDC         T.REAL                                      CONVERT   100
      L      3  0400000045 +                      EQ     CDC         T.DBL                                       CONVERT   101
      L      4  0400400004                        EQ     *+4S15      T.CPLX  (COMPILER ERROR)                    CONVERT   102
      L      5  0400000157 +                      EQ     COC         T.OCT                                       CONVERT   103
      L      6  0400000174 +                      EQ     DISPLAY     T.HOL                                       CONVERT   104
            31                                    LOC    *O                                                      CONVERT   105
                                                                                                                 CONVERT   106
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     4
        WORKING CONSTANTS AND STORAGE.
  
                                        *         ERROR MESSAGE POSTER MACROS.                                   CONVERT   107
                                                                                                                 CONVERT   108
            31  5140000002 +             CCB1     POSTER NR=E.CCE,SEV=FE,FMT=ELIST,TXT=CCBC,RETURN=CONVERT       CONVERT   109
                                                                                                                 CONVERT   110
            33  5140000002 +             CCB2     POSTER NR=E.ICO,SEV=FE,FMT=ELIST,TXT=CCBC,RETURN=CONVERT       CONVERT   111
                                                                                                                 CONVERT   112
            35  5130000010 +             CCB3     SA3    CCBI                                                    CONVERT   113
                          0303000043 +            ZR     X3,CCB4                                                 CONVERT   114
            36  10622                             BX6    X2          SAVE RESULTS                                CONVERT   115
                     10711                        BX7    X1                                                      CONVERT   116
                          55631                   SA6    A3-B1                                                   CONVERT   117
                               55761              SA7    A6-B1                                                   CONVERT   118
            37  6160777445                        POSTER NR=E.TMD,SEV=INF                                        CONVERT   119
            41  5110000006 +                      SA1    CCBG        RETURN CONVERTED VALUES AFTER POSTER        CONVERT   120
                          5120000007 +            SA2    CCBH                                                    CONVERT   121
            42  7160000000                        SX6    0                                                       CONVERT   122
                          5160000010 +            SA6    CCBI        ZERO INFORMATIVE ERROR FLAG                 CONVERT   123
                                                                                                                 CONVERT   124
            43  5140000000 +             CCB4     SA4    CCBA                                                    CONVERT   125
                          6150000001              SB5    1                                                       CONVERT   126
            44  0334000011 +                      MI     X4,CONVERT  IF CONVERT AND NO STORE                     CONVERT   127
                          0400000126 +            EQ     SBC         STORE                                       CONVERT   128
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     5
        CDC - CONVERT DECIMAL CONSTANT
  
                                        **        CDC  -  CONVERT DECIMAL CONSTANT.                              CONVERT   130
                                        *                                                                        CONVERT   131
                                        *         ENTRY  (B5) = CAD, ORIGINAL CONSTOR ADDRESS.                   CONVERT   132
                                        *                (B2) = CONSTANT TYPE.                                   CONVERT   133
                                        *                                                                        CONVERT   134
                                        *         EXIT   IF CONSTANT TYPE = T.INT                                CONVERT   135
                                        *                (X1) = BINARY INTEGER.                                  CONVERT   136
                                        *                                                                        CONVERT   137
                                        *                IF CONSTANT TYPE = T.REAL OR T.DBL                      CONVERT   138
                                        *                (X1) = HIGH ORDER BITS DP BINARY CONSTANT.              CONVERT   139
                                        *                (X2) = LOW ORDER BITS DP BINARY CONSTANT.               CONVERT   140
                                        *                (B5) = 1                                                CONVERT   141
                                        *                                                                        CONVERT   142
                                        *         ACTION 1.  CONVERT DISPLAY TO BINARY INTEGER CREATING          CONVERT   143
                                        *                    EXPONENT TO THE BASE 10 AS NECESSARY AND            CONVERT   144
                                        *                    PROCESS OVERFLOW CONDITION IF IT OCCURS.            CONVERT   145
                                        *                2.  CONVERT POST RADIX EXPONENT IF ENCOUNTERED.         CONVERT   146
                                        *                3.  CHECK CONVERTED CONSTANT TYPE FOR LEGALITY          CONVERT   147
                                        *                    AND ISSUE FATAL ERROR/RETURN OR SET INFORMATIVE     CONVERT   148
                                        *                    ERROR FLAG IF REQUIRED.                             CONVERT   149
                                        *                4.  CALL FSCALE IF TYPE IS T.DBL OR T.REAL, RETURN      CONVERT   150
                                        *                    IF T.INT.                                           CONVERT   151
                                        *                                                                        CONVERT   152
                                        *         USES   ALL.                                                    CONVERT   153
                                                                                                                 CONVERT   154
            45  7170000045               CDC      SX7    1R+                                                     CONVERT   155
                          5120000001 +            SA2    CCBB                                                    CONVERT   156
            46  5170000003 +                      SA7    CCBD        (CCBD) = 1R+      SIGN OF RESULT            CONVERT   157
                          43405                   MX4    5           CRM = MASK(5)     CARRY MASK                CONVERT   158
                               56000              SA0    B0          ECT = 0           EXPONENT COUNT            CONVERT   159
            47  6130000033                        SB3    1R0                                                     CONVERT   160
                          6140000012              SB4    10          WCT = 10          CHARACTER PER WORD COUNT  CONVERT   161
            50  66600                             SB6    B0          EXT = 0           EXPONENT FLAG             CONVERT   162
                     63720                        SB7    X2          NDG = CCBB        NUMBER OF CHARACTERS      CONVERT   163
                          43312                   MX3    10                                                      CONVERT   164
                               20341              LX3    60-1R0      DLS               DIGIT LEFT SHIFT MASK     CONVERT   165
            51  56250                             SA2    B5          CDI = CAD(I)      I = 1                     CONVERT   166
                     43100                        MX1    0           LO = 0            LO BITS INT. CONVERSION   CONVERT   167
                          7100000000              SX0    B0+         HI = 0            HI BITS INT. CONVERSION   CONVERT   168
                                                                                                                 CONVERT   169
                                        *         DIGIT CONVERSION LOOP.                                         CONVERT   170
                                                                                                                 CONVERT   171
            52  20206                    CDC1     LX2    6           CON = SHIFT(CDI,6)                          CONVERT   172
                     43566                        MX5    -6          MSK = 77B                                   CONVERT   173
                          15725                   BX7    -X5*X2      CHAR = CON .A. MSK                          CONVERT   174
                               63270              SB2    X7                                                      CONVERT   175
            53  22523                             LX5    B2,X3                                                   CONVERT   176
                     0325000063 +                 PL     X5,CDC3     IF SHIFT(DLS,CHAR) .GE. 0  NOT A DIGIT      CONVERT   177
                               11540              BX5    X4*X0       OVER = CRM .A. HI                           CONVERT   178
            54  0315000071 +                      NZ     X5,CDC5     IF OVER .NE. 0  T.DBL OVERFLOW              CONVERT   179
                          54006                   SA0    A0+B6       ECT = ECT+EXT                               CONVERT   180
                               77723              SX7    B2-B3       DIG = CHAR-1R0                              CONVERT   181
            55  36511                             IX5    X1+X1       LO1 = LO*2                                  CONVERT   182
                     20103                        LX1    3           LO = LO*8                                   CONVERT   183
                          36557                   IX5    X5+X7       LO2 = LO1+DIG                               CONVERT   184
                               22610              LX6    B1,X0       HI1 = HI*2                                  CONVERT   185
            56  36551                             IX5    X5+X1       LO2 = LO2+LO                                CONVERT   186
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     6
        CDC - CONVERT DECIMAL CONSTANT
  
                     20003                        LX0    3           HI = HI*8                                   CONVERT   187
                          15154                   BX1    -X4*X5      LO = LO2*COMP(CRM)                          CONVERT   188
                               21567              AX5    55          CARRY = SHIFT(LO2,-55)                      CONVERT   189
                                                                                                                 CONVERT   190
            57  36656                    CDC2     IX6    X5+X6       HI = HI1+CARRY  (NB AT ENTRY CDC2 X5=X6=0)  CONVERT   191
                     67771                        SB7    B7-B1       NDG = NDG-1                                 CONVERT   192
                          36060                   IX0    X6+X0       HI = HI+HI1                                 CONVERT   193
                               67441              SB4    B4-B1       WCT = WCT-1                                 CONVERT   194
            60  0470000100 +                      ZR     B7,CDC8     IF NDG .EQ. 0  INTEGER FINISHED             CONVERT   195
                          0540000052 +            NZ     B4,CDC1     IF MORE DIGITS                              CONVERT   196
            61  66551                             SB5    B5+B1       I = I+1                                     CONVERT   197
                     56250                        SA2    B5          CDI = CAD(2)                                CONVERT   198
                          6140000012              SB4    10          WCT = 10                                    CONVERT   199
            62  0400000052 +                      EQ     CDC1                                                    CONVERT   200
                                                                                                                 CONVERT   201
                                        *         CHECK CHARACTER FOR DECIMAL POINT, E OR D.                     CONVERT   202
                                                                                                                 CONVERT   203
            63  43600                    CDC3     MX6    0           FOR POSSIBLE  EQ CDC2                       CONVERT   204
                     6122777771                   SB2    B2-1RF                                                  CONVERT   205
                               43700              MX7    0           CLEAR X7                                    CONVERT   206
            64  0720000106 +                      MI     B2,CDC9     IF CHAR-1RF .LT. 0  MUST BE EXPONENT        CONVERT   207
                          6122777726              SB2    B2+1RF-1R.                                              CONVERT   208
            65  0420000067 +                      ZR     B2,CDC4     IF CHAR-1R. .EQ. 0  MUST BE 1R.             CONVERT   209
                          5170000003 +            SA7    CCBD        MUST BE + OR -  STORE SIGN AND IGNORE       CONVERT   210
            66  0400000057 +                      EQ     CDC2        LOOP                                        CONVERT   211
                                                                                                                 CONVERT   212
            67  66260                    CDC4     SB2    B6                                                      CONVERT   213
                     66600                        SB6    B0                                                      CONVERT   214
                          0520000074 +            NZ     B2,CDC7     IF PREVIOUS T.DBL OVERFLOW                  CONVERT   215
            70  67601                             SB6    -B1                                                     CONVERT   216
                     37555                        IX5    X5-X5       FOR POSSIBLE  EQ CDC2                       CONVERT   217
                          0400000057 +            EQ     CDC2                                                    CONVERT   218
                                                                                                                 CONVERT   219
                                        *         PROCESS T.DBL OVERFLOW.                                        CONVERT   220
                                                                                                                 CONVERT   221
            71  66260                    CDC5     SB2    B6          EXH = EXT                                   CONVERT   222
                     66661                        SB6    B6+B1       EXT = EXT+1                                 CONVERT   223
                          0400000074 +            EQ     CDC7                                                    FCC1142     8
                                                                                                                 CONVERT   225
            72  43566                    CDC6     MX5    -6                                                      CONVERT   226
                     20206                        LX2    6           CON = SHIFT(CON,6)                          CONVERT   227
                          15725                   BX7    -X5*X2      CHAR = CON .A. 77B                          CONVERT   228
                               63270              SB2    X7                                                      CONVERT   229
            73  22623                             LX6    B2,X3                                                   CONVERT   230
                     0326000063 +                 PL     X6,CDC3     IF SHIFT(DLS,CHAR) .GE. 0  NOT A DIGIT      CONVERT   231
                                                                                                                 CONVERT   232
                                        *         SKIP REMAINING DIGITS LOOKING FOR E OR D.                      CONVERT   233
                                                                                                                 CONVERT   234
            74  67771                    CDC7     SB7    B7-B1       NDG = NDG-1                                 CONVERT   235
                     54006                        SA0    A0+B6       ECT = ECT+EXT                               CONVERT   236
                          0470000100 +            ZR     B7,CDC8     IF NDG .EQ. 0  FINISHED                     CONVERT   237
            75  67441                             SB4    B4-B1       WCT = WCT-1                                 CONVERT   238
                     0540000072 +                 NZ     B4,CDC6     IF WCT .EQ. 0  MORE DIGITS                  CONVERT   239
                               66551              SB5    B5+B1       I = I+1                                     CONVERT   240
            76  6140000012                        SB4    10          WCT = 10                                    CONVERT   241
                          5125000000              SA2    B5+         CON = CAD(I)                                CONVERT   242
            77  0400000072 +                      EQ     CDC6        LOOP                                        CONVERT   243
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     7
        CDC - CONVERT DECIMAL CONSTANT
  
                                                                                                                 CONVERT   244
                                        *         CHECK IF INTEGER CONSTANT OR REAL CONSTANT WITHOUT P-RADIX.    CONVERT   245
                                                                                                                 CONVERT   246
           100  5120000005 +             CDC8     SA2    CCBF                                                    CONVERT   247
                          76600                   SX6    B0          CLEAR X6                                    CONVERT   248
                               43700              MX7    0           CLEAR X7                                    CONVERT   249
           101  7252777776                        SX5    X2-T.INT                                                CONVERT   250
                          0315000116 +            NZ     X5,CDC12    IF .NOT. T.INT                              CONVERT   251
                                                                                                                 CONVERT   252
                                        *         CHECK IF LEGAL INTEGER CONSTANT AND SET SIGN.                  CONVERT   253
                                                                                                                 CONVERT   254
           102  43470                             MX4    -4          MSK = 17B                                   CONVERT   255
                     15504                        BX5    -X4*X0      HI6 = HI .A. MSK                            CONVERT   256
                          20567                   LX5    55          HI6 = SHIFT(HI6,55)                         CONVERT   257
                               12115              BX1    X1+X5       INT = HI6+LO                                CONVERT   258
           103  66510                             SB5    B1                                                      CONVERT   259
                     21005                        AX0    5                                                       CONVERT   260
                          0310000033 +            NZ     X0,CCB2     INTEGER OVERFLOW - FATAL ERROR              CONVERT   261
           104  5150000003 +                      SA5    CCBD        SIGN = 1R+ OR 1R-                           CONVERT   262
                          20572                   LX5    -2          SIGN = SHIFT(SIGN,58)                       CONVERT   263
                               21574              AX5    60          SIGN = SHIFT(SIGN,-60)                      CONVERT   264
           105  13115                             BX1    X1-X5       INT = INT .XOR. SIGN                        CONVERT   265
                     0400000035 +                 EQ     CCB3        EXIT...                                     CONVERT   266
                                                                                                                 CONVERT   267
                                        *         EXPONENT PROCESSOR.                                            CONVERT   268
                                                                                                                 CONVERT   269
           106  67771                    CDC9     SB7    B7-B1       NDG = NDG-1                                 CONVERT   270
                     43366                        MX3    -6          MSK = 77B                                   CONVERT   271
                          0470000116 +            ZR     B7,CDC12    IF NDG .EQ. 0  FINISHED                     CONVERT   272
           107  6144777776                        SB4    B4-1        WCT = WCT-1                                 CONVERT   273
                          0540000111 +            NZ     B4,CDC10    IF WCT .NE. 0                               CONVERT   274
           110  66551                             SB5    B5+B1       I = I+1                                     CONVERT   275
                     56250                        SA2    B5          CON = CAD(I)                                CONVERT   276
                          6140000012              SB4    10          WCT = 10                                    CONVERT   277
                                                                                                                 CONVERT   278
           111  20206                    CDC10    LX2    6           CON = SHIFT(CON,6)                          CONVERT   279
                     15523                        BX5    -X3*X2      CHAR = CON .A. MSK                          CONVERT   280
                          6225777732              SB2    X5-1R+      DIG1 = CHAR-1R+                             CONVERT   281
           112  0720000114 +                      MI     B2,CDC11    IF DIG1 .LT. 0  IT IS A DIGIT               CONVERT   282
                          77702                   SX7    -B2         MUST BE + OR -                              CONVERT   283
                               23717              AX7    B1,X7       SET X7 .T. FOR +, .F. FOR -                 CONVERT   284
           113  0400000106 +                      EQ     CDC9        LOOP                                        CONVERT   285
                                                                                                                 CONVERT   286
           114  63250                    CDC11    SB2    X5                                                      CONVERT   287
                     22516                        LX5    B1,X6       EXP1 = EXP*2                                CONVERT   288
                          20603                   LX6    3           EXP = EXP*8                                 CONVERT   289
                               36656              IX6    X5+X6       EXP = EXP+EXP1  (= EXP*10)                  CONVERT   290
           115  77523                             SX5    B2-B3       DIG = CHAR-1R0                              CONVERT   291
                     36656                        IX6    X5+X6       EXP = EXP+DIG                               CONVERT   292
                          0400000106 +            EQ     CDC9        LOOP                                        CONVERT   293
                                                                                                                 CONVERT   294
                                        *         SET FLAG FOR T.REAL OR T.OCT OVERFLOW, CALL FSCALE.            CONVERT   295
                                                                                                                 CONVERT   296
           116  13767                    CDC12    BX7    X6-X7       FLG = FLG .XOR. EXP                         CONVERT   297
                     64300                        SB3    A0          EXPC = EXT                                  CONVERT   298
                          63373                   SB3    B3+X7       EXPC = EXPC+FLG                             CONVERT   299
                               11640              BX6    X4*X0       DCK = HI .A. CRM                            CONVERT   300
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     8
        CDC - CONVERT DECIMAL CONSTANT
  
           117  6120000060                        SB2    48          SCT = 48                                    CONVERT   301
                          46000                   NO                                                             CONVERT   302
                               23421              AX4    B2,X1       RCK = SHIFT(LO,SCT)                         CONVERT   303
           120  5120000005 +                      SA2    CCBF                                                    CONVERT   304
                          5150000003 +            SA5    CCBD                                                    CONVERT   305
           121  7232777774                        SX3    X2-T.DBL    TPE = TYP-T.DBL                             CONVERT   306
                          0316000123 +            NZ     X6,CDC13    IF DCK .NE. 0  T.DBL OVERFLOW               CONVERT   307
           122  0304000124 +                      ZR     X4,CDC14    IF RCK .EQ. 0  NO T.REAL OVERFLOW           CONVERT   308
                          0303000124 +            ZR     X3,CDC14    IF TPE .EQ. 0  T.REAL OVERFLOW BUT T.DBL    CONVERT   309
                                                                                                                 CONVERT   310
           123  7170777776               CDC13    SX7    -1          SET INFORMATIVE ERROR FLAG                  CONVERT   311
                          5170000010 +            SA7    CCBI                                                    CONVERT   312
                                                                                                                 CONVERT   313
           124  6242777775               CDC14    SB4    X2-2                                                    CONVERT   314
                          0100000303 +   -        RJ     FSCALE      GO AND CONVERT                              CONVERT   315
           125  0440000035 +                      ZR     B4,CCB3     IF NO ERROR ENCOUNTERED IN FSCALE           CONVERT   316
                          0400000031 +            EQ     CCB1                                                    CONVERT   317
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE     9
        SBC - STORE BINARY CONSTANT 
  
                                        **        SBC  -  STORE BINARY CONSTANT.                                 CONVERT   319
                                        *                                                                        CONVERT   320
                                        *         ENTRY  (X1) = INTEGER CONSTANT OR                              CONVERT   321
                                        *                       HIGH ORDER BITS DP CONSTANT.                     CONVERT   322
                                        *                (X2) = UNDEFINED OR                                     CONVERT   323
                                        *                       LOW ORDER BITS DP CONSTANT.                      CONVERT   324
                                        *                (B1) = 1                                                CONVERT   325
                                        *                                                                        CONVERT   326
                                        *         EXIT   (X1) = 30/CA,30/IH.                                     CONVERT   327
                                        *                (B5) = 1                                                CONVERT   328
                                        *                                                                        CONVERT   329
                                        *         ACTION 1.  LOOK FOR MATCH OF (X1) IN CONTAB, IF FOUND          CONVERT   330
                                        *                    CHECK FOR TWO STORE AND MATCH (X2) WITH             CONVERT   331
                                        *                    FOLLOWING CONTAB ENTRY.                             CONVERT   332
                                        *                2.  REPEAT 1. UNTIL MATCH OR CONTAB END.                CONVERT   333
                                        *                3.  ON SUCCESSFUL MATCH SET (X1) AND RETURN.            CONVERT   334
                                        *                4.  ON LAST WORD CONTAB MATCH (X1) AND IT IS A          CONVERT   335
                                        *                    TWO WORD STORE, STORE ONLY (X2) AND GO TO 3.        CONVERT   336
                                        *                5.  ON CONTAB END AND NO MATCH, STORE ONLY THEN 3.      CONVERT   337
                                        *                                                                        CONVERT   338
                                        *         USES   A. -,-,-,3,4,5,6,7                                      CONVERT   339
                                        *                B. -,1,2,3,4,5,6,-                                      CONVERT   340
                                        *                X. 0,1,-,3,4,5,6,7                                      CONVERT   341
                                        *                                                                        CONVERT   342
                                        *         CALLS  ADDWD.                                                  CONVERT   343
                                                                                                                 CONVERT   344
           126  5130000005 +             SBC      SA3    CCBF        ENTRY.                                      CONVERT   345
                          5140000000 X            SA4    O.CON                                                   CONVERT   346
           127  5150000000 X                      SA5    L.CON                                                   CONVERT   347
                          6263777774              SB6    X3-T.DBL    IF T.DBL  WD2 = 0                           CONVERT   348
           130  6225000000                        SB2    X5+                                                     CONVERT   349
                          5130000000 +            SA3    CCBA                                                    CONVERT   350
           131  6243777775                        SB4    X3-2        IF 2 WORD STORE  WW2=0                      CONVERT   351
                          67501                   SB5    -B1         CA = -1                                     CONVERT   352
                               53340              SA3    X4          I = 1,  CLE = O.CON(I)                      CONVERT   353
                                                                                                                 CONVERT   354
                                        *         SEARCH *CON* FOR MATCH, DETERMINE 2 WORD STORE.                CONVERT   355
                                                                                                                 CONVERT   356
           132  6155000001               SBC1     SB5    B5+1        CA = CA+1                                   CONVERT   357
                          0652000150 +            GE     B5,B2,SBC6  IF CA .GE. L.CON  END OF CONLIST            CONVERT   358
           133  13013                             BX0    X1-X3                                                   CONVERT   359
                     54331                        SA3    A3+B1       I = I+1, CLE = O.CON(I)                     CONVERT   360
                          0310000132 +            NZ     X0,SBC1     IF CLE-CON .NE. 0  LOOP                     CONVERT   361
           134  0330000132 +                      MI     X0,SBC1     IF CLE-CON .EQ. -0  LOOP                    CONVERT   362
                          7145000000              SX4    B5+                                                     CONVERT   363
           135  0460000140 +                      ZR     B6,SBC3     IF WD2 .EQ. 0  THEN TYPE .EQ. T.DBL         CONVERT   364
                          0440000140 +            ZR     B4,SBC3     IF WW2 .EQ. 0  THEN CCBA .EQ. 2             CONVERT   365
                                                                                                                 CONVERT   366
                                        *         SET UP CA,I AND H FIELDS - RETURN.                             CONVERT   367
                                                                                                                 CONVERT   368
           136  5150000000 X             SBC2     SA5    =XCON.                                                  CONVERT   369
                          20436                   LX4    30                                                      CONVERT   370
                               12145              BX1    X4+X5       (X1) = 30/CA,30/IH                          CONVERT   371
           137  66510                             SB5    B1                                                      CONVERT   372
                     0400000011 +                 EQ     CONVERT     EXIT.                                       CONVERT   373
                                                                                                                 CONVERT   374
                                        *         2 WORD STORE - DETERMINE MATCH OR NO MATCH NEXT WORD.          CONVERT   375
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    10
        SBC - STORE BINARY CONSTANT 
  
                                                                                                                 CONVERT   376
           140  66351                    SBC3     SB3    B5+B1                                                   CONVERT   377
                     0632000143 +                 GE     B3,B2,SBC4  IF CONLIST FINISHED                         CONVERT   378
                               13023              BX0    X2-X3                                                   CONVERT   379
           141  0310000132 +                      NZ     X0,SBC1     IF NO MATCH 2*ND WORD                       CONVERT   380
                          0330000132 +            MI     X0,SBC1     IF NO MATCH 2*ND WORD                       CONVERT   381
           142  0400000136 +                      EQ     SBC2        2*ND WORD MATCH                             CONVERT   382
                                                                                                                 CONVERT   383
                                        *         FIRST WORD OF TWO WORD CONSTANT AT END OF TABLE,               CONVERT   384
                                        *         ADD SECOND WORD.                                               CONVERT   385
                                                                                                                 CONVERT   386
           143  10622                    SBC4     BX6    X2          SAVE 2*ND WORD AND CA                       CONVERT   387
                     76750                        SX7    B5                                                      CONVERT   388
                          5160000007 +            SA6    CCBH                                                    CONVERT   389
           144  5170000006 +                      SA7    CCBG                                                    CONVERT   390
                          6150000001              SB5    1                                                       CONVERT   391
                                                                                                                 CONVERT   392
                                        *         STORE SECOND WORD.                                             CONVERT   393
                                                                                                                 CONVERT   394
           145  5110000007 +             SBC5     ADDWD  CON,CCBH                                                CONVERT   395
           147  5140000006 +                      SA4    CCBG                                                    CONVERT   396
                          0400000136 +            EQ     SBC2                                                    CONVERT   397
                                                                                                                 CONVERT   398
                                        *         ADD WORD TO *CON*.                                             CONVERT   399
                                                                                                                 CONVERT   400
           150  76620                    SBC6     SX6    B2          CA = L.CON                                  CONVERT   401
                     66510                        SB5    B1          B5 = 1                                      CONVERT   402
                          5160000006 +            SA6    CCBG        STORE PNT                                   CONVERT   403
           151  10722                             BX7    X2                                                      CONVERT   404
                     54761                        SA7    A6+B1       STORE 2*NT WORD                             CONVERT   405
                          5100000000 X            ADDWD  CON,X1      ADD 1*ST WORD TO CONTAB                     CONVERT   406
           153  5140000000 +                      SA4    CCBA        T1 = TYPE OF CALL                           CONVERT   407
                          5150000005 +            SA5    CCBF        T2 = TYPE OF CONSTANT                       CONVERT   408
           154  7264777775                        SX6    X4-2        T1F = T1-2                                  CONVERT   409
                          7275777774              SX7    X5-T.DBL    T2F = T2-T.DBL                              CONVERT   410
           155  0306000145 +                      ZR     X6,SBC5     IF CTP .EQ. 2  ADD 2*NT WORD                CONVERT   411
                          0307000145 +            ZR     X7,SBC5     IF TYPE .EQ. T.DBL  ADD 2*NT WORD           CONVERT   412
           156  5140000006 +                      SA4    CCBG                                                    CONVERT   413
                          0400000136 +            EQ     SBC2                                                    CONVERT   414
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    11
        COC - CONVERT OCTAL CONSTANT
  
                                        **        COC  -  CONVERT OCTAL CONSTANT.                                CONVERT   416
                                        *                                                                        CONVERT   417
                                        *         ENTRY  (B5) = CAD, ORIGINAL CONSTOR ADDRESS.                   CONVERT   418
                                        *                                                                        CONVERT   419
                                        *         EXIT   (X1) = OCTAL CONSTANT.                                  CONVERT   420
                                        *                                                                        CONVERT   421
                                        *         ACTION 1.  SET MAX NUMBER OF DIGITS TO 20.                     CONVERT   422
                                        *                2.  CONVERT CHECKING FOR CHARACTER LEGALITY.            CONVERT   423
                                        *                3.  IF FROM 2. ILLEGAL CHARACTER = 1RB, RETURN.         CONVERT   424
                                        *                4.  CHECK LENGTH GIVEN WITHIN LEGAL BOUNDS.             CONVERT   425
                                        *                5.  SET INFORMATIVE FLAG IF 4. IS FALSE.                CONVERT   426
                                        *                                                                        CONVERT   427
                                        *         USES   A. -,1,2,-,4,-,6,-                                      CONVERT   428
                                        *                B. -,1,2,3,4,5,-,7                                      CONVERT   429
                                        *                X. 0,1,2,3,4,-,6,-                                      CONVERT   430
                                                                                                                 CONVERT   431
           157  43600                    COC      MX6    0           OCT = 0                                     CONVERT   432
                     6120000012                   SB2    10          WCT = 10                                    CONVERT   433
                               43066              MX0    -6          MSK = 77B                                   CONVERT   434
           160  56150                             SA1    B5          CON = CAD(I)                                CONVERT   435
                     66722                        SB7    B2+B2       NCH = 20, NUMBER OF CHARACTERS PERMITTED    CONVERT   436
                          43410                   MX4    8                                                       CONVERT   437
                               20441              LX4    60-1R0      ODL = OCTAL DIGIT LEFT SHIFT MASK           CONVERT   438
                                                                                                                 CONVERT   439
                                        *         MAIN OCTAL CONVERSION PROCESSING LOOP  (IN STACK).             CONVERT   440
                                                                                                                 CONVERT   441
           161  20106                    COC1     LX1    6           CON = SHIFT(CON,6)                          CONVERT   442
                     15210                        BX2    -X0*X1      EXTRACT CHARACTER                           CONVERT   443
                          63320                   SB3    X2                                                      CONVERT   444
                               22334              LX3    B3,X4                                                   CONVERT   445
           162  0323000167 +                      PL     X3,COC2     IF CHAR IS NOT AN OCTAL DIGIT               CONVERT   446
                          7123777744              SX2    B3-1R0      DIG = CHAR-1R0                              CONVERT   447
           163  20603                             LX6    3           OCT = SHIFT(OCT,3)                          CONVERT   448
                     12626                        BX6    X2+X6       OCT = OCT+DIG                               CONVERT   449
                          67771                   SB7    B7-B1       NDG = NDG-1                                 CONVERT   450
                               67221              SB2    B2-B1       WCT = WCT-1                                 CONVERT   451
           164  0470000167 +                      ZR     B7,COC2     IF NDG .EQ. 0  FINISHED                     CONVERT   452
                          0520000161 +            NZ     B2,COC1     IF WCT .NE. 0  LOOP                         CONVERT   453
           165  54111                             SA1    A1+B1       I = I+1, CON = CAD(I)                       CONVERT   454
                     6120000012                   SB2    10          WCT = 10                                    CONVERT   455
           166  0400000161 +                      EQ     COC1        LOOP                                        CONVERT   456
                                                                                                                 CONVERT   457
                                        *         CHECK IF LEGAL CONSTANT.                                       CONVERT   458
                                                                                                                 CONVERT   459
           167  10166                    COC2     BX1    X6                                                      CONVERT   460
                     5120000001 +                 SA2    CCBB                                                    CONVERT   461
                               10711              BX7    X1                                                      CONVERT   462
           170  6143777775                        SB4    B3-1RB                                                  CONVERT   463
                          0440000035 +            ZR     B4,CCB3     IF CHAR .EQ. 1RB  FINISHED                  CONVERT   464
           171  22334                             LX3    B3,X4                                                   CONVERT   465
                     0323000031 +                 PL     X3,CCB1     IF CHAR .NE. 1RB  FATAL ERROR               CONVERT   466
                               66510              SB5    B1                                                      CONVERT   467
           172  7232777751                        SX3    X2-22                                                   CONVERT   468
                          0333000035 +            MI     X3,CCB3     IF NDG .LE. 20  LEGAL CONSTANT              CONVERT   469
           173  5170000010 +                      SA7    CCBI                                                    CONVERT   470
                          0400000035 +            EQ     CCB3        POST INFORMATIVE ERROR                      CONVERT   471
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    12
         DISPLAY
  
                                        **        CHC  -  CONVERT HOLLERITH CONSTANT.                            CONVERT   473
                                        *                                                                        CONVERT   474
                                        *         ENTRY  (B1) = 1                                                CONVERT   475
                                        *                                                                        CONVERT   476
                                        *         EXIT   (B1) = 1                                                CONVERT   477
                                        *                (B5) = 1                                                CONVERT   478
                                        *                                                                        CONVERT   479
                                        *         ACTION 1.  TEST FOR CONVERT ONLY OR CONVERT AND STORE.         CONVERT   480
                                        *                2.  IF CONVERT ONLY, CONVERT AND RETURN WITH            CONVERT   481
                                        *                    CONSTANT IN X1.                                     CONVERT   482
                                        *                3.  IF CONVERT AND STORE, CONVERT AND CALL OHC          CONVERT   483
                                        *                    FOR OUTPUT OF CONSTANT TO  COMPS FILE.              CONVERT   484
                                        *                                                                        CONVERT   485
                                        *         USES   A. -,1,2,3,-,-,6,7                                      CONVERT   486
                                        *                B. 0,1,2,3,-,5,6,7                                      CONVERT   487
                                        *                X. 0,1,2,3,4,5,6,7                                      CONVERT   488
                                        *                                                                        CONVERT   489
                                        *         CALLS  OUTUSE,SYMBOL,FA=WTC.                                   CONVERT   490
                                                                                                                 CONVERT   491
           174  5120000000 +             DISPLAY  SA2    CCBA                                                    CONVERT   492
                          5110000006 +            SA1    CCBG                                                    CONVERT   493
           175  63520                             SB5    X2                                                      CONVERT   494
                     0302000205 +                 ZR     X2,DSP1     IF CONVERT AND STORE                        CONVERT   495
                                                                                                                 CONVERT   496
                                        *         CONVERT ONLY, RETURN CONSTANT IN X1.                           CONVERT   497
                                                                                                                 CONVERT   498
                               10011              BX0    X1                                                      CONVERT   499
           176  53110                             SA1    X1          FIRST WORD = 10HXXXXXXX                     CONVERT   500
                     21022                        AX0    18                                                      CONVERT   501
                          73200                   SX2    X0          N CHARACTERS                                CONVERT   502
                               21022              AX0    18                                                      CONVERT   503
           177  43772                             MX7    60-2        MASK FOR ONLY PART OF TYPE FIELD            CONVERT   504
                     6222777765                   SB2    X2-10                                                   CONVERT   505
                               15307              BX3    -X7*X0      TYPE = 0 FOR H, 1 FOR L, 2 FOR R            CONVERT   506
           200  0620000011 +                      PL     B2,CONVERT  EXIT IF MORE THAN 9 CHARACTERS              CONVERT   507
                          0303000011 +            ZR     X3,CONVERT  EXIT  IF  H FORM                            CONVERT   508
                                                                                                                 CONVERT   509
           201  36422                             IX4    X2+X2                                                   CONVERT   510
                     20202                        LX2    2                                                       CONVERT   511
                          63330                   SB3    X3          TYPE                                        CONVERT   512
                               36542              IX5    X4+X2       N*6                                         CONVERT   513
           202  63650                             SB6    X5                                                      CONVERT   514
                     43701                        MX7    1                                                       CONVERT   515
                          67761                   SB7    B6-B1                                                   CONVERT   516
                               23777              AX7    B7,X7       MASK(6*N)                                   CONVERT   517
           203  11171                             BX1    X7*X1       REMOVE TRAILING BLANKS                      CONVERT   518
                     0431000011 +                 EQ     B3,B1,CONVERT  IF L FORM                                CONVERT   519
                               22161              LX1    B6,X1       RIGHT JUSTIFY                               CONVERT   520
           204  0400000011 +                      EQ     CONVERT                                                 CONVERT   521
                                                                                                                 CONVERT   522
                                        *         CONVERT AND STORE HOLLERITH CONSTANT.                          CONVERT   523
                                                                                                                 CONVERT   524
           205  7160000000 X             DSP1     OUTUSE HOL.                                                    CONVERT   525
           206  5110000234 +                      SA1    DSPB                                                    CONVERT   526
                          0311000215 +            NZ     X1,DSP2     IF  HOL. ALREADY IN SYMBOL TABLE            CONVERT   527
           207  5110000460 +                      SYMBOL =8RHOL.                                                 CONVERT   528
           211  5130000000 X                      SA3    =XWB.HOL    TYPE, RL AND RB                             CONVERT   529
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    13
         DISPLAY
  
                          12732                   BX7    X3+X2       TYPE = T.CGS, RL = 1, RA = 0, RB =  6       CONVERT   530
                               54720              SA7    A2                                                      CONVERT   531
           212  76610                             SX6    B1                                                      CONVERT   532
                     5160000234 +                 SA6    DSPB                                                    CONVERT   533
           213  6110000001                        SB1    1                                                       CONVERT   534
                          6160000461 +            WRITEC =XF.CMPS,DSPC,2                                         CONVERT   535
                                                                                                                 CONVERT   536
                                        *         CALCULATE WORD COUNT AND NUMBER  OF REMAINING CHARACTERS.      CONVERT   537
                                                                                                                 CONVERT   538
           215  5110000006 +             DSP2     SA1    CCBG        ELIST FOR THE CON                           CONVERT   539
                          10411                   BX4    X1                                                      CONVERT   540
                               21122              AX1    18                                                      CONVERT   541
           216  73210                             SX2    X1          CHARACTER COUNT (CC)                        CONVERT   542
                     7100000012                   SX0    10D                                                     CONVERT   543
                               27202              IX5    X2/X0       WORD COUNT (CC/10)                          CONVERT   544
                          7100000012              SX0    10D                                                     CONVERT   545
           221  63250                             SB2    X5          NUMBER OF FULL WORDS                        CONVERT   546
                     42605                        IX6    X0*X5       10*(CC/10)                                  CONVERT   547
                          73210                   SX2    X1                                                      CONVERT   548
                               37526              IX5    X2-X6       CHARACTERS REMAINING                        CONVERT   549
           222  5110000234 +                      SA1    DSPB                                                    CONVERT   550
                          0305000224 +            ZR     X5,DSP3     NO CHARACTERS REMAINING                     CONVERT   551
           223  66221                             SB2    B2+B1                                                   CONVERT   552
                                                                                                                 CONVERT   553
           224  5130000000 X             DSP3     SA3    =XHOL.                                                  CONVERT   554
                          66321                   SB3    B2+B1                                                   CONVERT   555
                               73733              SX7    X3+B3       INCREASE HOL. BLOCK LENGTH                  CONVERT   556
           225  20336                             LX3    30                                                      CONVERT   557
                     12631                        BX6    X3+X1                                                   CONVERT   558
                          54730                   SA7    A3                                                      CONVERT   559
           226  5160000233 +                      SA6    DSPA        SAVE EXIT CONDITION                         CONVERT   560
                          0100000235 +            CALL   OHC         OUTPUT CONSTANT                             CONVERT   561
           227  6160000463 +                      WRITEC =XF.CMPS,DSPD,2   TERMINAL ZERO TO COMPS                CONVERT   562
           231  6150000001                        SB5    1                                                       CONVERT   563
                          5110000233 +            SA1    DSPA                                                    CONVERT   564
           232  0400000011 +                      EQ     CONVERT                                                 CONVERT   565
                                                                                                                 CONVERT   566
           233                     1     DSPA     BSSZ   1           30/CA,30/ORD(HOL.)                          CONVERT   567
           234                     1     DSPB     BSSZ   1           ORDINAL OF HOL.                             CONVERT   568
                                 461 +   DSPC     LIT    11CHOL. BSS 0B                                          CONVERT   569
                                 463 +   DSPD     LIT    11C  DATA 0B                                            CONVERT   570
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    14
        OHC - OUTPUT HOLLERITH CONSTANT                               OHC 
  
                                        **        OHC  -  OUTPUT HOLLERITH CONSTANT TO COMPS FILE.               CONVERT   572
                                        *                                                                        CONVERT   573
                                        *         ENTRY  (B2) = NUMBER OF WHOLE WORDS TO BE OUTPUT.              CONVERT   574
                                        *                (X4) = ELIST ENTRY FOR CONSTANT.                        CONVERT   575
                                        *                (X5) = NUMBER OF CHARACTERS IN LAST WORD .LT. 10.       CONVERT   576
                                        *                                                                        CONVERT   577
                                        *         EXIT   (B1) = 1                                                CONVERT   578
                                        *                (B5) = 1                                                CONVERT   579
                                        *                                                                        CONVERT   580
                                        *         ACTION 1.  TRANSFER WORDS TO INTERMEDIATE BUFFER.              CONVERT   581
                                        *                2.  OUTPUT FULL WORDS, IF ANY, TO COMPS FILE.           CONVERT   582
                                        *                3.  OUTPUT PARTIAL WORD, IF ANY, TO COMPS FILE.         CONVERT   583
                                        *                                                                        CONVERT   584
                                        *         USES   A. -,1,2,-,-,-,6,7                                      CONVERT   585
                                        *                B. -,1,2,3,4,5,-,-                                      CONVERT   586
                                        *                X. 0,1,2,3,4,5,6,7                                      CONVERT   587
                                        *                                                                        CONVERT   588
                                        *         CALLS  FA=WTC                                                  CONVERT   589
                                                                                                                 CONVERT   590
           235  00000000000000000000     OHC      ENTRY.                                                         CONVERT   591
           236  6110000001                        SB1    1                                                       CONVERT   592
                          10655                   BX6    X5                                                      CONVERT   593
                               63540              SB5    X4          B5 = FWA OF  CON                            CONVERT   594
           237  5160000275 +                      SA6    OHCC                                                    CONVERT   595
                          0305000243 +            ZR     X5,OHC1     IF NO PARTIAL WORD                          CONVERT   596
                                                                                                                 CONVERT   597
           240  21444                             AX4    36                                                      CONVERT   598
                     43072                        MX0    60-2        MASK FOR ONLY PART OF TYPE FIELD            CONVERT   599
                          20506                   LX5    6                                                       CONVERT   600
                               15440              BX4    -X0*X4      HOLLERITH TYPE CODE                         CONVERT   601
           241  5214000300 +                      SA1    OHCD+X4     *  HOL  0X*  WHERE X = H, L OR R            CONVERT   602
                          67221                   SB2    B2-B1                                                   CONVERT   603
                               56252              SA2    B5+B2       FETCH PARTIAL WORD                          CONVERT   604
           242  36615                             IX6    X1+X5                                                   CONVERT   605
                     10722                        BX7    X2          SAVE PARTIAL WORD IN BUFFER                 CONVERT   606
                          54660                   SA6    A6                                                      CONVERT   607
                               54761              SA7    A6+B1                                                   CONVERT   608
                                                                                                                 CONVERT   609
           243  0420000260 +             OHC1     ZR     B2,OHC5     IF NO FULL WORDS                            CONVERT   610
                          66252                   SB2    B5+B2       B2 = LWA+1 OF FULL WORDS                    CONVERT   611
                                                                                                                 CONVERT   612
                                        *         OUTPUT "  DIS   N,XXXX" STATEMENTS FOR THE FULL WORDS          CONVERT   613
                                                                                                                 CONVERT   614
           244  6130000267 +             OHC2     SB3    OHCB+1      FWA OF WORD BUFFER                          CONVERT   615
                          6140000274 +            SB4    OHCB+6      LWA+1 OF WORD BUFFER                        CONVERT   616
                                                                                                                 CONVERT   617
           245  56150                    OHC3     SA1    B5          MOVE WORDS TO DIS BUFFER                    CONVERT   618
                     66551                        SB5    B5+B1                                                   CONVERT   619
                          10611                   BX6    X1                                                      CONVERT   620
                               56630              SA6    B3                                                      CONVERT   621
           246  66331                             SB3    B3+B1                                                   CONVERT   622
                     0652000250 +                 GE     B5,B2,OHC4  IF END OF CONSTANT                          CONVERT   623
           247  0734000245 +                      LT     B3,B4,OHC3  IF .LT. 5 WORDS TRANSFERED                  CONVERT   624
                                                                                                                 CONVERT   625
           250  5110000465 +             OHC4     SA1    =18L  DIS   0,                                          CONVERT   626
                          54211                   SA2    A1+B1                                                   CONVERT   627
                               10622              BX6    X2                                                      CONVERT   628
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    15
        OHC - OUTPUT HOLLERITH CONSTANT                               OHC 
  
           251  54661                             SA6    A6+B1                                                   CONVERT   629
                     7133777510 -                 SX3    B3-OHCB-1   NUMBER OF WORDS TRANSFERED                  CONVERT   630
                               20306              LX3    6                                                       CONVERT   631
           252  36713                             IX7    X1+X3                                                   CONVERT   632
                     5170000266 +                 SA7    OHCB        STORE HEADER WORD                           CONVERT   633
                               76650              SX6    B5                                                      CONVERT   634
           253  76720                             SX7    B2                                                      CONVERT   635
                     5160000264 +                 SA6    OHCA        SAVE CONSTANT LIMITS                        CONVERT   636
                               54761              SA7    A6+B1                                                   CONVERT   637
           254  6160000266 +                      WRITEC =XF.CMPS,OHCB,B3-OHCB+1                                 CONVERT   638
           256  5110000264 +                      SA1    OHCA                                                    CONVERT   639
                          5120000265 +            SA2    OHCA+1                                                  CONVERT   640
           257  63510                             SB5    X1                                                      CONVERT   641
                     63220                        SB2    X2          RESTORE CONSTANT LIMITS                     CONVERT   642
                          0752000244 +            LT     B5,B2,OHC2  IF MORE TO GO                               CONVERT   643
                                                                                                                 CONVERT   644
                                        *         OUTPUT PARTIAL WORD                                            CONVERT   645
                                                                                                                 CONVERT   646
           260  5110000275 +             OHC5     SA1    OHCC                                                    CONVERT   647
                          6150000001              SB5    1                                                       CONVERT   648
           261  0301000235 +                      ZR     X1,OHC      IF NO PARTIAL WORD EXISTS                   CONVERT   649
                          64610                   WRITEC =XF.CMPS,A1,3  PARTIAL WORD OUTPUT                      CONVERT   650
           263  6150000001                        SB5    1                                                       CONVERT   651
                          0400000235 +            EQ     OHC                                                     CONVERT   652
                                                                                                                 CONVERT   653
           264                     2     OHCA     BSS    2           TO SAVE THE CONSTANT LIMITS                 CONVERT   654
           266                     6     OHCB     BSS    6           7 WORD BUFFER FOR DIS N,XXX STATEMENTS      CONVERT   655
           274  55555555555555550000              DATA   8L                                                      CONVERT   656
           275  55551017145555551630     OHCC     DATA   28L  HOL   NX123456789                                  CONVERT   657
           300  55551017145555553310     OHCD     DATA   10L  HOL   0H                                           CONVERT   658
           301  55551017145555553314              DATA   10L  HOL   0L                                           CONVERT   659
           302  55551017145555553322              DATA   10L  HOL   0R                                           CONVERT   660
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    16
        FSCALE - FLOATING DP CONVERSION 
  
                                        **        FSCALE  -  CONVERT INTEGER CONSTANT WITH OR WITHOUT            FSCALE      3
                                        *                    FLOATING CONSTANT.                                  FSCALE      4
                                        *                    EXPONENT TO SINGLE OR DOUBLE PRECISION              FSCALE      5
                                        *                                                                        FSCALE      6
                                        *         RICK JAMES.   (AUTHOR).                                        FSCALE      7
                                        *                                                                        FSCALE      8
                                        *         ENTRY  (X0) = HIGH ORDER PART OF INTEGER CONSTANT              FSCALE      9
                                        *                       IN BITS 58-00.                                   FSCALE     10
                                        *                (X1) = LOW ORDER PART OF INTEGER CONSTANT               FSCALE     11
                                        *                       IN BITS 54-00.                                   FSCALE     12
                                        *                (X5) = 1RX WHERE X = + OR - (SIGN OF RESULT).           FSCALE     13
                                        *                (B1) = 1.                                               FSCALE     14
                                        *                (B3) = POWER OF 10.                                     FSCALE     15
                                        *                (B4) = 0, SINGLE PRECISION.                             FSCALE     16
                                        *                (B4) = 1, DOUBLE PRECISION.                             FSCALE     17
                                        *                                                                        FSCALE     18
                                        *         EXIT   (X1) = HIGH ORDER BITS DP CONSTANT.                     FSCALE     19
                                        *                (X2) = LOW ORDER BITS DP CONSTANT.                      FSCALE     20
                                        *                (B1) = 1.                                               FSCALE     21
                                        *                (B4) = 0, CONVERSION OK.                                FSCALE     22
                                        *                (B4) = -1, ERROR OVERFLOW.                              FSCALE     23
                                        *                                                                        FSCALE     24
                                        *         ACTION 1.  CONVERT INTEGER TO TRIPLE PRECISION                 FSCALE     25
                                        *                    FLOATING POINT.                                     FSCALE     26
                                        *                2.  SCALE BY BIG POWER OF 5 OR 10 (TRIPLE               FSCALE     27
                                        *                    MULTIPLY, X432 * X017).                             FSCALE     28
                                        *                3.  MULTIPLY BY 1E20 AS NEEDED.                         FSCALE     29
                                        *                4.  FINISH CONVERSION BY MULTIPLYING BY N               FSCALE     30
                                        *                    WHERE 1E20 .GE. N .LE. 1.                           FSCALE     31
                                        *                5.  ROUND RESULT.                                       FSCALE     32
                                        *                6.  SET SIGN.                                           FSCALE     33
                                        *                7.  ADJUST BY POWER OF 2 AND CHECK.                     FSCALE     34
                                        *                                                                        FSCALE     35
                                        *         USES   A. -,-,-,3,4,-,-,-                                      FSCALE     36
                                        *                B. -,-,2,3,4,5,-,7                                      FSCALE     37
                                        *                X. 0,1,2,3,4,5,6,7                                      FSCALE     38
                                                                                                                 FSCALE     39
           303  0400400303 +             FSCALE   SUBR               ENTRY/EXIT                                  FSCALE     40
           304  43752                             MX7    -18                                                     FSCALE     41
                     15417                        BX4    -X7*X1      BOT                                         FSCALE     42
                          6120000022              SB2    18                                                      FSCALE     43
           305  27404                             PX4    B0,X4                                                   FSCALE     44
                     66740                        SB7    B4                                                      FSCALE     45
                          66400                   SB4    B0          CLEAR ERROR FLAG                            FSCALE     46
                               21122              AX1    18          LOW MID                                     FSCALE     47
           306  0300000313 +                      ZR     X0,CIF      IF NO HIGH ORDER BITS                       FSCALE     48
                          43761                   MX7    -11                                                     FSCALE     49
                               15207              BX2    -X7*X0      HI MID                                      FSCALE     50
           307  24404                             NX4    B0,X4                                                   FSCALE     51
                     6150000102                   SB5    66                                                      FSCALE     52
                               20245              LX2    37                                                      FSCALE     53
           310  21013                             AX0    11          TOP                                         FSCALE     54
                     12112                        BX1    X1+X2       MID                                         FSCALE     55
                          27050                   PX0    X0,B5                                                   FSCALE     56
                               27121              PX1    B2                                                      FSCALE     57
           311  24000                             NX0    B0,X0       TOP                                         FSCALE     58
                     24101                        NX1    B0,X1                                                   FSCALE     59
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    17
        FSCALE - FLOATING DP CONVERSION 
  
                          32201                   DX2    X0+X1                                                   FSCALE     60
                               30001              FX0    X0+X1       UPPER                                       FSCALE     61
           312  32724                             DX7    X2+X4       LOWER                                       FSCALE     62
                     30124                        FX1    X2+X4       MIDDLE                                      FSCALE     63
                          0400000315 +            EQ     CIF1                                                    FSCALE     64
                                                                                                                 FSCALE     65
           313  27121                    CIF      PX1    B2,X1                                                   FSCALE     66
                     46000                        NO                                                             FSCALE     67
                          24404                   NX4    B0,X4                                                   FSCALE     68
                               24101              NX1    B0,X1                                                   FSCALE     69
           314  30014                             FX0    X1+X4       UPPER                                       FSCALE     70
                     32114                        DX1    X1+X4       MIDDLE                                      FSCALE     71
                          46000                   NO                                                             FSCALE     72
                               32711              DX7    X1+X1       LOWER (PACKED ZERO)                         FSCALE     73
                                                                                                                 FSCALE     74
           315  67271                    CIF1     SB2    B7-B1                                                   FSCALE     75
                     0420000316 +                 ZR     B2,CIF2     IF DOUBLE PRECISION                         FSCALE     76
                               43700              MX7    0           TO INDICATE ONLY SINGLE NEEDED              FSCALE     77
                                                                                                                 FSCALE     78
           316  76430                    CIF2     SX4    B3                                                      FSCALE     79
                     7133000500                   SX3    B3+320                                                  FSCALE     80
                               21410              AX4    8                                                       FSCALE     81
           317  0314000367 +                      NZ     X4,CIF16    IF NOT WITHIN 1E-256 TO 1E+256              FSCALE     82
                          21306                   AX3    6           EXP/64+4                                    FSCALE     83
                               66700              SB7    B0                                                      FSCALE     84
           320  5243000422 +                      SA4    CIFB+X3                                                 FSCALE     85
                          0304000332 +            ZR     X4,CIF5     IF EXP IS 0 TO 64                           FSCALE     86
           321  14333                             BX3    -X3                                                     FSCALE     87
                     6133000500                   SB3    B3+320                                                  FSCALE     88
                               20306              LX3    6                                                       FSCALE     89
           322  63333                             SB3    B3+X3                                                   FSCALE     90
                                                                                                                 FSCALE     91
                                        *         TRIPLE OR DOUBLE MULTIPLY.                                     FSCALE     92
                                                                                                                 FSCALE     93
           323  6150000012               CIF3     SB5    10                                                      FSCALE     94
                          5034000012              SA3    A4+10       M                                           FSCALE     95
           324  0307000327 +                      ZR     X7,CIF4     IF ONLY SINGLE PRECISION                    FSCALE     96
                          54235                   SA2    A3+B5       L                                           FSCALE     97
                               40747              FX7    X4*X7       L=U*L                                       FSCALE     98
           325  40220                             FX2    X2*X0       L=L*U                                       FSCALE     99
                     30772                        FX7    X7+X2       L                                           FSCALE    100
                          42230                   DX2    X3*X0       L=M*U                                       FSCALE    101
                               42641              DX6    X4*X1       L=U*M                                       FSCALE    102
           326  30727                             FX7    X2+X7       L                                           FSCALE    103
                     40231                        FX2    X3*X1       L=M*M                                       FSCALE    104
                          30776                   FX7    X7+X6       L                                           FSCALE    105
                               30727              FX7    X2+X7       LOWER                                       FSCALE    106
                                                                                                                 FSCALE    107
           327  40330                    CIF4     FX3    X3*X0       M=M*U                                       FSCALE    108
                     40241                        FX2    X4*X1       M=U*M                                       FSCALE    109
                          42640                   DX6    X4*X0       M=U*U                                       FSCALE    110
                               40040              FX0    X4*X0       UPPER                                       FSCALE    111
           330  30432                             FX4    X3+X2       M                                           FSCALE    112
                     30164                        FX1    X6+X4       MIDDLE                                      FSCALE    113
                          0307000332 +            ZR     X7,CIF5     IF ONLY SINGLE PRECISION                    FSCALE    114
           331  32332                             DX3    X3+X2       L                                           FSCALE    115
                     32664                        DX6    X6+X4       L                                           FSCALE    116
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    18
        FSCALE - FLOATING DP CONVERSION 
  
                          30773                   FX7    X7+X3       L                                           FSCALE    117
                               30776              FX7    X7+X6       LOWER                                       FSCALE    118
                                                                                                                 FSCALE    119
                                        *         MULTIPLY BY 1E20 AS NEEDED.                                    FSCALE    120
                                                                                                                 FSCALE    121
           332  5140000421 +             CIF5     SA4    CIFA+20                                                 FSCALE    122
                          6120000024              SB2    20                                                      FSCALE    123
           333  0732000341 +                      LT     B3,B2,CIF8  IF NO NEED TO MULTIPLY BY 1E20              FSCALE    124
                                                                                                                 FSCALE    125
                                        *         1 * 3 OR 1 * 2 MULTIPLY.                                       FSCALE    126
                                                                                                                 FSCALE    127
           334  40341                    CIF6     FX3    X4*X1       M=U*M                                       FSCALE    128
                     42240                        DX2    X4*X0       M=U*U                                       FSCALE    129
                          0307000337 +            ZR     X7,CIF7     IF ONLY SINGLE NEEDED                       FSCALE    130
           335  40747                             FX7    X4*X7       L=U*L                                       FSCALE    131
                     32632                        DX6    X3+X2       L                                           FSCALE    132
                          42141                   DX1    X4*X1       L=U*M                                       FSCALE    133
                               46000              NO                                                             FSCALE    134
           336  30776                             FX7    X7+X6       L                                           FSCALE    135
                     6100000000                   SB0    0                                                       FSCALE    136
                               30771              FX7    X7+X1       LOWER                                       FSCALE    137
                                                                                                                 FSCALE    138
           337  30132                    CIF7     FX1    X3+X2       MIDDLE                                      FSCALE    139
                     40040                        FX0    X4*X0       UPPER                                       FSCALE    140
                          67332                   SB3    B3-B2                                                   FSCALE    141
                               46000              NO                                                             FSCALE    142
           340  0632000334 +                      GE     B3,B2,CIF6  IF NEED TO MULTIPLY BY 1E20 AGAIN           FSCALE    143
                                                                                                                 FSCALE    144
                                        *         MULTIPLY BY LESS THAN 1E20 IF NECESSARY.                       FSCALE    145
                                                                                                                 FSCALE    146
           341  5143000375 +             CIF8     SA4    CIFA+B3                                                 FSCALE    147
                          0703000334 +            GT     B3,CIF6     IF NECESSARY MULTIPLY BY .LT. 1E20          FSCALE    148
           342  20572                             LX5    -2                                                      FSCALE    149
                     21574                        AX5    60                                                      FSCALE    150
                                                                                                                 FSCALE    151
                                        *         DOUBLE COMBINE.                                                FSCALE    152
                                                                                                                 FSCALE    153
                          0307000350 +            ZR     X7,CIF10    IF ONLY SINGLE NEEDED                       FSCALE    154
           343  32417                             DX4    X1+X7                                                   FSCALE    155
                     30117                        FX1    X1+X7                                                   FSCALE    156
                          46000                   NO                                                             FSCALE    157
                               32301              DX3    X0+X1                                                   FSCALE    158
           344  30001                             FX0    X0+X1                                                   FSCALE    159
                     34134                        RX1    X3+X4                                                   FSCALE    160
                          46000                   NO                                                             FSCALE    161
                               30301              FX3    X0+X1                                                   FSCALE    162
           345  46000                             NO                                                             FSCALE    163
                     13753                        BX7    X5-X3       UPPER SIGN FOR T.DBL                        FSCALE    164
                          32001                   DX0    X0+X1                                                   FSCALE    165
                               13111              BX1    X1-X1                                                   FSCALE    166
           346  26300                             UX3    B0,X0                                                   FSCALE    167
                     0303000347 +                 ZR     X3,CIF9     IF LOW ORDER DP MANTISSA .EQ. 0             FSCALE    168
                               13150              BX1    X5-X0       LOWER SIGN FOR T.DBL                        FSCALE    169
                                                                                                                 FSCALE    170
           347  0470000374 +             CIF9     ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY        FSCALE    171
                          0400000352 +            EQ     CIF11                                                   FSCALE    172
                                                                                                                 FSCALE    173
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    19
        FSCALE - FLOATING DP CONVERSION 
  
                                        *         SINGLE COMBINE.                                                FSCALE    174
                                                                                                                 FSCALE    175
           350  32401                    CIF10    DX4    X0+X1                                                   FSCALE    176
                     30001                        FX0    X0+X1                                                   FSCALE    177
                          34304                   RX3    X0+X4                                                   FSCALE    178
                               13753              BX7    X5-X3       SIGN FOR T.REL                              FSCALE    179
           351  0470000374 +                      ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY        FSCALE    180
                                                                                                                 FSCALE    181
                                                                                                                 FSCALE    182
                                        *         CHECK FOR UNDER FLOW.                                          FSCALE    183
                                                                                                                 FSCALE    184
           352  0670000360 +             CIF11    PL     B7,CIF13                                                FSCALE    185
                          6150776000              SB5    -1777B                                                  FSCALE    186
           353  26121                             UX1    B2,X1                                                   FSCALE    187
                     66227                        SB2    B2+B7                                                   FSCALE    188
                          46000                   NO                                                             FSCALE    189
                               27121              PX1    B2,X1                                                   FSCALE    190
           354  0625000355 +                      GE     B2,B5,CIF12 IF NOT UNDERFLOW                            FSCALE    191
                          43100                   MX1    0           CLEAR LOW ORDER REGISTER                    FSCALE    192
                                                                                                                 FSCALE    193
           355  26727                    CIF12    UX7    B2,X7                                                   FSCALE    194
                     66227                        SB2    B2+B7                                                   FSCALE    195
                          46000                   NO                                                             FSCALE    196
                               27727              PX7    B2,X7                                                   FSCALE    197
           356  0625000374 +                      GE     B2,B5,CIF18 IF NO UNDERFLOW                             FSCALE    198
                          7170000000              SX7    0                                                       FSCALE    199
           357  0400000374 +                      EQ     CIF18                                                   FSCALE    200
                                                                                                                 FSCALE    201
                                        *         CHECK FOR OVERFLOW.                                            FSCALE    202
                                                                                                                 FSCALE    203
           360  26727                    CIF13    UX7    B2,X7                                                   FSCALE    204
                     6150001777                   SB5    1777B                                                   FSCALE    205
                               66227              SB2    B2+B7                                                   FSCALE    206
           361  0625000366 +                      GE     B2,B5,CIF15 IF OVERFLOW                                 FCCA577     5
                          27727                   PX7    B2,X7                                                   FSCALE    208
                               26121              UX1    B2,X1                                                   FSCALE    209
           362  66227                             SB2    B2+B7                                                   FSCALE    210
                     27121                        PX1    B2,X1                                                   FSCALE    211
                          0400000374 +            EQ     CIF18                                                   FSCALE    212
                                                                                                                 FSCALE    213
           363  6123777273               CIF14    SB2    B3-324                                                  FSCALE    214
                          5140000433 +            SA4    CIFB+9      MULTIPLY BY 5**256                          FSCALE    215
           364  6170000400                        SB7    +256                                                    FSCALE    216
                          46000                   NO                                                             FSCALE    217
                               67337              SB3    B3-B7                                                   FSCALE    218
           365  0720000323 +                      MI     B2,CIF3                                                 FSCALE    219
                                                                                                                 FSCALE    220
           366  6140777776               CIF15    SB4    -1          ERROR RETURN ON OVERFLOW                    FSCALE    221
                          0400000303 +            EQ     EXIT.                                                   FSCALE    222
                                                                                                                 FSCALE    223
           367  0630000363 +             CIF16    PL     B3,CIF14                                                FSCALE    224
                          6123000505              SB2    B3+325                                                  FSCALE    225
           370  0720000373 +                      MI     B2,CIF17                                                FSCALE    226
                          5140000422 +            SA4    CIFB                                                    FSCALE    227
           371  6170777272                        SB7    -325                                                    FSCALE    228
                          46000                   NO                                                             FSCALE    229
                               67337              SB3    B3-B7                                                   FSCALE    230
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    20
        FSCALE - FLOATING DP CONVERSION 
  
           372  0400000323 +                      EQ     CIF3                                                    FSCALE    231
                                                                                                                 FSCALE    232
           373  7170000000               CIF17    SX7    0                                                       FSCALE    233
                          7110000000              SX1    0                                                       FSCALE    234
                                                                                                                 FSCALE    235
           374  10211                    CIF18    BX2    X1                                                      FSCALE    236
                     10177                        BX1    X7                                                      FSCALE    237
                          0400000303 +            EQ     EXIT.                                                   FSCALE    238
                                                                                                                 FSCALE    239
                                        *         WORKING CONSTANTS.                                             FSCALE    240
                                                                                                                 FSCALE    241
           375                           CIFA     BSS    0           1.0EN  WHERE N = 0 TO 20 INCLUSIVE          FSCALE    242
                                   0     CIFA1    SET    0                                                       FSCALE    243
                                  25              DUP    21,3                                                    FSCALE    244
                                         CIFA2    DECMIC CIFA1                                                   FSCALE    245
                                                  DATA   1.0E"CIFA2"                                             FSCALE    246
                                         CIFA1    SET    CIFA1+1                                                 FSCALE    247
                                                                                                                 FSCALE    248
           422                           CIFB     BSS    0                                                       FSCALE    249
           422  03355134732416677076              CON    03355134732416677076B   5**-325          UPPER          FSCALE    250
           423  01756003050311261572              CON    01756003050311261572B  10**-256          UPPER          FSCALE    251
           424  05224437760335652043              CON    05224437760335652043B  10**-192          UPPER          FSCALE    252
           425  10466735010637062274              CON    10466735010637062274B  10**-128          UPPER          FSCALE    253
           426  13735207775211722471              CON    13735207775211722471B  10** -64          UPPER          FSCALE    254
           427  00000000000000000000              CON    0                                                       FSCALE    255
           430  22456047403722377717              CON    22456047403722377717B  10**  64          UPPER          FSCALE    256
           431  25724473510762300351              CON    25724473510762300351B  10** 128          UPPER          FSCALE    257
           432  31167007036743234447              CON    31167007036743234447B  10** 192          UPPER          FSCALE    258
           433  30435247735376716771              CON    30435247735376716771B   5** 256          UPPER          FSCALE    259
                                                                                                                 FSCALE    260
           434  02554430410147521675              CON    02554430410147521675B   5**-325         MIDDLE          FSCALE    261
           435  01150623477244210525              CON    01150623477244210525B  10**-256         MIDDLE          FSCALE    262
           436  04426300317330603243              CON    04426300317330603243B  10**-192         MIDDLE          FSCALE    263
           437  07667112025437131766              CON    07667112025437131766B  10**-128         MIDDLE          FSCALE    264
           440  13137232247710714327              CON    13137232247710714327B  10** -64         MIDDLE          FSCALE    265
           441  00000000000000000000              CON    0                                                       FSCALE    266
           442  21655155247457665561              CON    21655155247457665561B  10**  64         MIDDLE          FSCALE    267
           443  25124315770633631554              CON    25124315770633631554B  10** 128         MIDDLE          FSCALE    268
           444  30362526520556761123              CON    30362526520556761123B  10** 192         MIDDLE          FSCALE    269
           445  27636750673556710033              CON    27636750673556710033B   5** 256         MIDDLE          FSCALE    270
                                                                                                                 FSCALE    271
           446  01751523413613350414              CON    01751523413613350414B   5**-325          LOWER          FSCALE    272
           447  00357757552302120270              CON    00357757552302120270B  10**-256          LOWER          FSCALE    273
           450  03622142373563615574              CON    03622142373563615574B  10**-192          LOWER          FSCALE    274
           451  07066405673367560600              CON    07066405673367560600B  10**-128          LOWER          FSCALE    275
           452  12332173154211024710              CON    12332173154211024710B  10** -64          LOWER          FSCALE    276
           453  00000000000000000000              CON    0                                                       FSCALE    277
           454  21056166544576650371              CON    21056166544576650371B  10**  64          LOWER          FSCALE    278
           455  24321553040115601066              CON    24321553040115601066B  10** 128          LOWER          FSCALE    279
           456  27567507542405607432              CON    27567507542405607432B  10** 192          LOWER          FSCALE    280
           457  27034617735255702442              CON    27034617735255702442B   5** 256          LOWER          FSCALE    281
           467                                    END                                                            CONVERT   662
  
                             65200B CM  STORAGE USED             1159 STATEMENTS      624 SYMBOLS      000005 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.987 SECONDS         323 REFERENCES
  
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        ADDWD           0   EXTERNAL*      10/20     10/31
        CCBA            0   PROGRAM*        3/03 L    3/25 S    4/19      9/32     10/32     12/20
        CCBB            1   PROGRAM*        3/04 L    3/39 S    5/27     11/46
        CCBC            2   PROGRAM*        3/05 L    3/30 S    4/03      4/05
        CCBD            3   PROGRAM*        3/06 L    5/28 S    6/24 S    7/19      8/05
        CCBE            4   PROGRAM*        3/07 L    3/35 S
        CCBF            5   PROGRAM*        3/08 L    3/41 S    7/04      8/04      9/27     10/33
        CCBG            6   PROGRAM*        3/09 L    4/14     10/21     10/38     13/10
                                            3/23 S   10/15 S   10/28 S   12/21
        CCBH            7   PROGRAM*        3/10 L    4/15     10/14 S   10/20
        CCBI           10   PROGRAM*        3/11 L    4/07      4/17 S    8/12 S   11/55 S
        CCB1           31   PROGRAM*        4/03 L    8/17     11/51
        CCB2           33   PROGRAM*        4/05 L    7/18
        CCB3           35   PROGRAM*        4/07 L    7/23      8/16     11/49     11/54     11/56
        CCB4           43   PROGRAM*        3/49      4/08      4/19 L
        CCB.JT         22   PROGRAM*        3/42      3/46 L
        CDC            45   PROGRAM*        3/50      3/51      3/52      5/26 L
        CDC1           52   PROGRAM*        5/43 L    6/10      6/14
        CDC10         111   PROGRAM*        7/31      7/36 L
        CDC11         114   PROGRAM*        7/39      7/44 L
        CDC12         116   PROGRAM*        7/08      7/29      7/54 L
        CDC13         123   PROGRAM*        8/07      8/11 L
        CDC14         124   PROGRAM*        8/08      8/09      8/14 L
        CDC2           57   PROGRAM*        6/05 L    6/25      6/32
        CDC3           63   PROGRAM*        5/48      6/18 L    6/45
        CDC4           67   PROGRAM*        6/23      6/27 L
        CDC5           71   PROGRAM*        5/50      6/36 L
        CDC6           72   PROGRAM*        6/40 L    6/53      6/57
        CDC7           74   PROGRAM*        6/29      6/38      6/49 L
        CDC8          100   PROGRAM*        6/09      6/51      7/04 L
        CDC9          106   PROGRAM*        6/21      7/27 L    7/42      7/50
        CIF           313   PROGRAM*       16/46     17/07 L
        CIFA          375   PROGRAM*       18/06     18/31     20/12 L
        CIFA1          25                  20/13 D   20/17 D   20/17 D   20/17 D   20/17 D   20/17 D   20/17 D   20/17 D
                                           20/17     20/17     20/17     20/17     20/17     20/17     20/17
                                           20/17 D   20/17 D   20/17 D   20/17 D   20/17 D   20/17 D   20/17 D
                                           20/17     20/17     20/17     20/17     20/17     20/17     20/17
                                           20/17 D   20/17 D   20/17 D   20/17 D   20/17 D   20/17 D   20/17 D
                                           20/17     20/17     20/17     20/17     20/17     20/17     20/17
        CIFB          422   PROGRAM*       17/26     19/42     19/54     20/19 L
        CIF1          315   PROGRAM*       17/05     17/16 L
        CIF10         350   PROGRAM*       18/38     19/03 L
        CIF11         352   PROGRAM*       18/56     19/12 L
        CIF12         355   PROGRAM*       19/18     19/21 L
        CIF13         360   PROGRAM*       19/12     19/31 L
        CIF14         363   PROGRAM*       19/41 L   19/51
        CIF15         366   PROGRAM*       19/34     19/48 L
        CIF16         367   PROGRAM*       17/23     19/51 L
        CIF17         373   PROGRAM*       19/53     20/03 L
        CIF18         374   PROGRAM*       18/55     19/07     19/25     19/27     19/39     20/06 L
        CIF2          316   PROGRAM*       17/17     17/20 L
        CIF3          323   PROGRAM*       17/35 L   19/46     20/01
        CIF4          327   PROGRAM*       17/37     17/49 L
        CIF5          332   PROGRAM*       17/27     17/55     18/06 L
        CIF6          334   PROGRAM*       18/12 L   18/27     18/32
        CIF7          337   PROGRAM*       18/14     18/23 L
        CIF8          341   PROGRAM*       18/08     18/31 L
1        CONVERT - CONVERT CONSTANT TO BINARY                         COMPASS 3.7-871.     24/05/02. 15.53.47.      PAGE    22
        SYMBOLIC REFERENCE TABLE. 
  
        CIF9          347   PROGRAM*       18/52     18/55 L
        COC           157   PROGRAM*        3/54     11/17 L
        COC1          161   PROGRAM*       11/27 L   11/38     11/41
        COC2          167   PROGRAM*       11/31     11/37     11/45 L
        CONVERT        11   PROGRAM*        3/19 E    4/03      4/21     12/35     12/47     13/36
                                            3/19 L    4/05      9/55     12/36     12/49
        CON.            0   EXTERNAL*       9/51
        DISPLAY       174   PROGRAM*        3/55     12/20 L
        DSPA          233   PROGRAM*       13/31 S   13/35     13/38 L
        DSPB          234   PROGRAM*       12/54     13/04 S   13/21     13/39 L
        DSPC          461   PROGRAM*       13/06     13/40 L
        DSPD          463   PROGRAM*       13/33     13/41 L
        DSP1          205   PROGRAM*       12/23     12/53 L
        DSP2          215   PROGRAM*       12/55     13/10 L
        DSP3          224   PROGRAM*       13/22     13/25 L
        ERPRO           0   EXTERNAL*       4/03      4/05
        ERPROI          0   EXTERNAL*       4/13
        E.CCE         102                   2/12 D    4/03
        E.ICO         460                   2/14 D    4/05
        E.TMD         332                   2/13 D    4/13
        FSCALE        303   PROGRAM*        8/15     16/38 L
        F.CMPS          0   EXTERNAL*      13/06     13/33     15/10     15/22
        HOL.            0   EXTERNAL*      13/25
        L.CON           0   EXTERNAL*       9/29
        OHC           235   PROGRAM*       13/32     14/20 E   14/20 L   15/21     15/24
        OHCA          264   PROGRAM*       15/08 S   15/11     15/12     15/26 L
        OHCB          266   PROGRAM*       14/44     14/45     15/02     15/05 S   15/10     15/27 L
        OHCC          275   PROGRAM*       14/24 S   15/19     15/29 L
        OHCD          300   PROGRAM*       14/31     15/30 L
        OHC1          243   PROGRAM*       14/25     14/39 L
        OHC2          244   PROGRAM*       14/44 L   15/15
        OHC3          245   PROGRAM*       14/47 L   14/53
        OHC4          250   PROGRAM*       14/52     14/55 L
        OHC5          260   PROGRAM*       14/39     15/19 L
        OUTUSE          0   EXTERNAL*      12/53
        O.CON           0   EXTERNAL*       9/28
        SBC           126   PROGRAM*        3/26      4/22      9/27 L
        SBC1          132   PROGRAM*        9/39 L    9/43      9/44     10/05     10/06
        SBC2          136   PROGRAM*        9/51 L   10/07     10/22     10/39
        SBC3          140   PROGRAM*        9/46      9/47     10/02 L
        SBC4          143   PROGRAM*       10/03     10/12 L
        SBC5          145   PROGRAM*       10/20 L   10/36     10/37
        SBC6          150   PROGRAM*        9/40     10/26 L
        SYMBOL          0   EXTERNAL*      12/56
        T.DBL           3   FTNTEXT         8/06      9/30     10/35
        T.INT           1   FTNTEXT         7/07
        UHOL.           0   EXTERNAL*      12/53
        WB.HOL          0   EXTERNAL*      12/57
        WTC=            0   EXTERNAL*      13/06     13/33     15/10     15/22
        Z.CON           0   EXTERNAL*      10/20     10/31
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1432              IDENT  DATA 
                       1432                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1415 
                                        LITERALS* LOCAL        1415         6 
                                        MACBUF    COMMON          0        17 
                                        DAT.FMT   COMMON          0        63 
                                        MASKS     LOCAL        1423         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=DATA           0+           DATA            20+           CFCD           252+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ORGTAB    DATA.     C.BLOCK   L.DIL     DIRECT    OHC       F.CMPS    CONVERT 
                                        ERPROI    FWAWORK   UDATA.    L.DIT     SYMBOL    SVARG     PSYM      ADDWD 
                                        ERPRO     LWAWORK   O.DIL     ADDREF    CFO       IAF       FMAC      Z.DIL 
                                        ASAER     RSELECT   O.DIT     Z.DATA    BTOCT     WTC=      Z.DIT 
  
  
  
  
                                                  IDENT  DATA                                                    DATA        2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                                                                                 DATA        5
                                        *         AUTHOR - S.I. JASIK - CDC/SUNNYVALE - JUNE/70                  DATA        6
                                                                                                                 DATA        7
                                        ***                                                                      DATA        8
                                        *         DATA - DATA STATEMENT PROCESSOR                                DATA        9
                                        *                                                                        DATA       10
                                        *         SYNTAX:                                                        DATA       11
                                        *                DATA <DIL>,...,<DIL>                                    DATA       12
                                        *                 WHERE DIL IS A DATA INITIALIZATION LIST                DATA       13
                                        *                <DIL> := <DVL> / <DIL> / OR ( <DVL> = <DIL> )           DATA       14
                                        *                 WHERE <DVL> IS A DATA VARIABLE LIST                    DATA       15
                                        *                 AND   <DIL> IS A DATA ITEM LIST ( CONSTANTS )          DATA       16
                                        *                 THE SECOND SYNTAX WHICH IS NOT ANSI STANDARD IS        DATA       17
                                        *                 REFERED TO AS THE ALTERNATE SYNTAX .                   DATA       18
                                        *                                                                        DATA       19
                                        *         THE SYNTAX OF THE DATA ITEM LIST ( CONSTANTS ) IS:             DATA       20
                                        *                                                                        DATA       21
                                        *                <DIL> := <DIG>,...,<DIG>                                DATA       22
                                        *                <DIG> := <CONL> OR <RF>*(<CONL>) OR <RF>(<CONL>)        DATA       23
                                        *                OR (<CONL>) OR <RF>*<CON>                               DATA       24
                                        *                <CONL> := <CON>,,,<CON>                                 DATA       25
                                        *                <CON> := <CONSTANT> OR (<REAL CON>,<REAL CON>)          DATA       26
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     2
  
  
                                        *                NOTES:                                                  DATA       27
                                        *                 (1.,2.) IS A COMPLEX CONSTANT                          DATA       28
                                        *                 2*(1.,2.) # 1.,2.,1.,2.                                DATA       29
                                        *                 2*((1.,2.)) IS 2 COMPLEX CONSTANTS                     DATA       30
                                        *                                                                        DATA       31
                                        *         THE SYNTAX OF A DATA VARIABLE LIST IS:                         DATA       32
                                        *                <DVL> := <DVG>,...,<DVG>                                DATA       33
                                        *                <DVG> := <VARNAME> OR <ARRAY>(<CON SUBSC>)              DATA       34
                                        *                OR <ARRAY> OR <DOLIST>                                  DATA       35
                                        *                WHERE:                                                  DATA       36
                                        *                 <VARNAME> IS THE NAME OF A SIMPLE VARIABLE             DATA       37
                                        *                 <ARRAY> IS THE NAME OF AN ARRAY                        DATA       38
                                        *                 <CON SUBSC> IS A CONSTANT SUBSCRIPT EXPRESSION         DATA       39
                                        *                 OF THE FORM C1,C2,C3                                   DATA       40
                                        *                 <DOLIST> IS A NEST OF DO LOOPS HAVING THE              DATA       41
                                        *                 SAME SYNTAX AS THOSE APPEARING IN AN I/O LIST, EXCEPT  DATA       42
                                        *                 THAT SUBSCRIPTS ARE LIMITED TO THE FORM C1*IVAR+C2     DATA       43
                                        *                 AND ONLY 1 NAME MAY APPEAR IN THE GROUP.               DATA       44
                                        *                                                                        DATA       45
                                                                                                                 DATA       46
             0                           B=DATA   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     DATA       47
                                                  EXT    ORGTAB,ERPROI,ERPRO,ASAER,DATA.                         DATA       48
                                                  EXT    FWAWORK,LWAWORK,RSELECT                                 DATA       49
                                                  EXT    C.BLOCK,UDATA.                                          DATA       50
                                                  EXT    O.DIL,O.DIT,L.DIL,L.DIT                                 DATA       51
                                                                                                                 DATA       52
                                  17     DIM1     EQU    17B                                                     DATA       53
                                  32     SELIST   EQU    32B                                                     DATA       54
                                  56     PROGRAM  EQU    56B         PROGRAM UNIT TYPE                           DATA       55
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     3
  
  
                                        ***                                                                      DATA       57
                                        *         ERROR MESSAGE ORDINALS                                         DATA       58
                                        *                                                                        DATA       59
                                                                                                                 DATA       60
                                  44     E.CTO    EQU    36                TABLE OVERFLOW - AN FE ERROR ( ADIT ) DATA       61
                                 152     E.PL     EQU    106               DBL VAR MATCH W/ SNGL CON, PREC LOST  FCC0418     6
                                                                                                                 FCC0418     7
                                 160     BEN      EQU    112               BASE ERROR NUMBER                     DATA       62
                                                                                                                 DATA       63
                                 160     E.V>C    EQU    BEN         I     VAR LIST LONGER THAN CON LIST         DATA       64
                                 161     E.C>V    EQU    BEN+1       I     CON LIST LONGER THAN VAR LIST         DATA       65
                                 162     E.DNA    EQU    BEN+2             NON ANSI FORM OF DATA STMT            DATA       66
                                 163     E.DSE    EQU    BEN+3             SYNTAX ERROR ( IN RAS OR STD )        DATA       67
                                 164     E.DIL    EQU    BEN+4             SYNTAX ERROR IN ITEM LIST ( BIT )     DATA       68
                                 165     E.DIL1   EQU    BEN+5             ILLEGAL ITEM FOLLOWING + OR -         DATA       69
                                 166     E.DIL2   EQU    BEN+6             REP LISTS NESTED 2 DEEP               DATA       70
                                 167     E.DIL3   EQU    BEN+7             ILLEGAL SEP FOLLOWING DATA ITEM       DATA       71
                                 170     E.DCE    EQU    BEN+8             ERROR IN SMALL CONSTANT ( CHKSC )     DATA       72
                                 171     E.DVL1   EQU    BEN+9             ILLEGAL SEP AFTER A NAME  ( BVT )     DATA       73
                                 172     E.DVL2   EQU    BEN+10            SYNTAX ERROR IN IMPLIED DO NEST       DATA       74
                                 173     E.DVL3   EQU    BEN+11            DATA VAR LIST SYNTAX ERROR            DATA       75
                                 174     E.DVL4   EQU    BEN+12            NO MATCH OF LOOP INDEX AND SUBSC VAR  DATA       76
                                 175     E.DVL5   EQU    BEN+13            VAR SUBS APPEARED WITHOUT LOOPS       DATA       77
                                 176     E.DVL6   EQU    BEN+14            C1*IVAR+C2 .LT. 1 OR .GT. DIM(I)      DATA       78
                                 177     E.DVL7   EQU    BEN+15            VAR( , VAR NOT DIMENSIONED  ( PSS )   DATA       79
                                 200     E.DVL8   EQU    BEN+16            SUBSCRIPT LIST SYNTAX ERROR           DATA       80
                                 201     E.DVL9   EQU    BEN+17            A(C1,C2,C3) EXCEEDS STORAGE LIMS      DATA       81
                                 203     E.TRC    EQU    BEN+19      I     CON TO LONG, TRUNCATED      ( ODI )   DATA       82
                                 204     E.DVN1   EQU    BEN+20            VAR IS F.P., EXT, FUN, OR // COM      DATA       83
                                 205     E.DVN2   EQU    BEN+21            ILLEGAL NAME APPEARS IN DATA STMT     DATA       84
                                 506     E.DNC    EQU    326         DATA VARIABLE NOT DECLARED IN LABEL COMMON  FCC2292     9
                                 500     E.IHI    EQU    320         I     HOLLERITH CONSTANT .GT. 10 CHARACTERS FCC0537    12
                                 501     E.DTC    EQU    321         A     VARIABLE/CONSTANT TYPE CONFLICT       FCC1563X   38
  
  
                                        ***                                                                      DATA       86
                                        *         DATA.E - FE ERROR EXIT                                         DATA       87
                                        *                                                                        DATA       88
                                        *         ON ENTRY:                                                      DATA       89
                                        *                B6 = ERROR NUMBER                                       DATA       90
                                        *                X4 = ELIST ITEM                                         DATA       91
                                        *                                                                        DATA       92
                                                                                                                 DATA       93
             0                           DTO.E    EREXIT E.CTO             NOT ENOUGH SPACE                      DATA       94
                          5140001415 +            SA4    =10LPA   DATA                                           DATA       95
                                                                                                                 DATA       96
             1  6170000046 +             DATA.E   SB7    DATA3             SET RETURN ADDRESS                    DATA       97
                          0400000000 X            EQ     ERPRO                                                   DATA       98
                                                                                                                 DATA       99
             2  5140000004 +             DATA.N   SA4    SNAME             X4 = NAME OF LAST VARIABLE PROCESSED  DATA      100
                          0400000001 +            EQ     DATA.E                                                  DATA      101
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     4
         MACROS AND LOCAL VARIABLES 
  
                                        ***                                                                      DATA      103
                                        *                NON ANSI EXTENSION TO THE DATA STATEMENT:               DATA      104
                                        *                                                                        DATA      105
                                        *         DO LOOPS AND SUBSCRIPTS OF THE FORM C1*I+C2                    DATA      106
                                        *                                                                        DATA      107
                                        *         A, WHERE "A" IS AN ARRAY IS EQUIVALENT TO (A(I),I=1,PI DIMS)   DATA      108
                                        *                                                                        DATA      109
                                        *         HOLLERITH CONSTANTS MAY BE LONGER THAN ITEM LENGTH ( 1 OR 2    DATA      110
                                        *         WORDS ).                                                       DATA      111
                                        *                                                                        DATA      112
                                        *         ( VARLIST = DATALIST )  SYNTAX                                 DATA      113
                                        *                                                                        DATA      114
                                        *         RF*(C1,...,CN) FOR REPETITION OF A LIST OF ITEMS               DATA      115
                                        *                                                                        DATA      116
                                        *         VARIABLES IN LABELED COMMON MAY BE INITIALIZED OUTSIDE A       DATA      117
                                        *         BLOCK DATA SUBPROGRAM.                                         DATA      118
                                        *                                                                        DATA      119
                                        *         THE RANGE OF AN ARRAY MAY BE EXTENDED BY EQUIVALENCING         DATA      120
                                        *         TO THE LENGTH OF THE EQUIVALENCE CLASS - THE ARRAY BIAS .      DATA      121
                                        *                                                                        DATA      122
             3  00000000000000000000     NONANSI                           NON ANSI USEAGES FLAG                 DATA      123
  
  
  
                                         TBITN    MACRO  BIT,LABEL         IF( ^ BIT ) GO TO LABEL               DATA      125
                                                  BX0    X1                                                      DATA      126
                                                  LX0    59-P.BIT                                                DATA      127
                                                  PL     X0,LABEL                                                DATA      128
                                                  ENDM                                                           DATA      129
                                                                                                                 DATA      130
                                        ***                                                                      DATA      131
                                        *         BMASK - FORM A BIT MASK OF ELEMENTS IN A SET FOR A LEFT SHIFT  DATA      132
                                        *         TEST.                                                          DATA      133
                                        *         EXAMPLE:                                                       DATA      134
                                        *BITMASK  BMASK  (1RC,1R$,1R*)     BIT MASK FOR C $ AND *                DATA      135
                                        *         SA1    BITMASK           BIT MASK FOR ELEMENTS                 DATA      136
                                        *         SB1    ELEMENT                                                 DATA      137
                                        *         LX1    B1,X1                                                   DATA      138
                                        *         NG     X1,IN.SET         IF ELEMENT IS IN THE SET              DATA      139
                                        *                                                                        DATA      140
                                                                                                                 DATA      141
                                                  MACRO  BMASK,LOC,P                                             DATA      142
                                                  USE    MASKS                                                   DATA      143
                                         LOC      BSS    0                                                       DATA      144
                                                  IRP    P                                                       DATA      145
                                                  POS    60-P                                                    DATA      146
                                                  VFD    1/1                                                     DATA      147
                                                  IRP                                                            DATA      148
                                                  POS    0                                                       DATA      149
                                                  BSS    0                                                       DATA      150
                                                  USE    *                                                       DATA      151
                                                  ENDM                                                           DATA      152
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     5
         MACROS TO SCAN THE E-LIST
  
             4                           PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                      PARSEM      3
             4                           FMACDEF  CTEXT  FMACDEF - MACRO FORMATION MACROS                        FMACDEF     2
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     6
         STORAGE AND FLAGS                                                      DAT.FMT 
  
                                                  USE    /DAT.FMT/                                               DATA      157
                                        ***                                                                      DATA      158
                                        *         TABLE FORMATS                                                  DATA      159
                                        *                                                                        DATA      160
                                        *                                                                        DATA      161
                                        *         DIL - DATA INITIALIZATION LIST POINTERS                        DATA      162
                                        *          FORMAT:  24/0,18/FWA OF DVL,18/FWA OF DIL                     DATA      163
                                        *         BUILT BY A BACKWARDS SCAN OF THE DATA STATEMENT                DATA      164
                                        *                                                                        DATA      165
                                                                                                                 DATA      166
             0                           O.CELLS  BSS    0                 FWA OF CONTROL CELLS FOR A LIST       DATA      167
             0  00000000000000000000     REPFLAG                           REP FLAG                              DATA      168
             1  00000000000000000000     CLOSREP                           CLOSE REP FLAG                        DATA      169
             2  00000000000000000000     N.ITEM                            NUMBER OF DATA ITEMS                  DATA      170
             3  00000000000000000000     PL                                PAREN LEVEL                           DATA      171
                                                                                                                 DATA      172
                                        *         GNI                                                            DATA      173
                                                                                                                 DATA      174
             4                     3     I.DIT    BSS    3                 1 - ORDINAL OF NEXT I]EM IN DIT       DATA      175
                                        *                            2 - NUMBER OF ITEMS REMAINING IN REP LIST   DATA      176
                                        *                            3 - ORDINAL OF FIRST DATA I]EM IN REP LIST  DATA      177
                                                                                                                 FCC0537    13
             7                     1     WC.HOL   BSS    1                 HOL. CONSTANT .GT. 1 FLAG             FCC0537    14
            10                     1     TC.HOL   BSS    1                 TRUNCATE HOL. FLAG                    FCC0537    15
            11                     1     EL.HOL   BSS    1                 ELIST ADDRESS FOR CONSTANT            FCC0537    16
            12                     1     EL.CNS   BSS    1                 ELIST ENTRY FOR CONSTANT              FCC0537    17
            13                     1     LI.HOL   BSS    1                 LAST ISSUE HOLLERITH FLAG             FCC0537    18
                                  14     N.CELLS  EQU    *-O.CELLS                                               DATA      178
                                                                                                                 DATA      179
            14                     3     TEMP     BSS    3                 SOME TEMPORARIES                      FCC0537    19
                                                                                                                 DATA      181
                                        *         BVT                                                            DATA      182
                                                                                                                 DATA      183
            17                     2     DVT      BSS    2                 DVT WORDS - SET BY PDV                DATA      184
            21                     3     LPINF    BSS    3                 DO LOOP INDEX INFO                    DATA      185
            24  00000000000000000000     BIAS                              ACCUMULATED BIAS DUE TO SUBSC CALC    DATA      186
            25  00000000000000000000     LL                                LOWER LIMIT                           DATA      187
            26  00000000000000000000     UL                                UPPER LIMIT                           DATA      188
            27  00000000000000000000     INC                               INCREMENT                             DATA      189
            30  00000000000000000000     SUBN                              NUMBER OF SUBSCRIPT IN ARRAY          DATA      190
                                                                                                                 DATA      191
                                        *         PSS                                                            DATA      192
                                                                                                                 DATA      193
            31                           SST      BSS    0                                                       DATA      194
            31                     3     CON1     BSS    3                 CON1(I) - CONSTANT MULTIPLIERS        DATA      195
            34                     3     INDX     BSS    3                 IVAR(I)                               DATA      196
            37                     3     CON2     BSS    3                 CON2(I) - CONSTANT ADDENDS            DATA      197
            42                     3     SIGN     BSS    3                 SIGN(I)                               DATA      198
                                  14     LSST     EQU    *-SST                                                   DATA      199
            45  00000000000000000000     N.SUBS                            NUMBER OF SUBSCRIPTS                  DATA      200
            46  00000000000000000000     N.VSUB                            NUMBER OF VARIABLE SUBS               DATA      201
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     7
         STORAGE AND FLAGS                                                      DAT.FMT 
  
                                        *         MDL                                                            DATA      203
                                                                                                                 DATA      204
            47  00000000000000000000     ORGI                              ORG COUNTER INCREMENT                 DATA      205
                                        *                                  = NUMBER OF DATA WORDS PUT OUT BY ODI DATA      206
                                                                                                                 DATA      207
                                        *         OIC                                                            DATA      208
                                                                                                                 DATA      209
            50  00000000000000000000     B                                 LOCAL COPY OF BIAS                    DATA      210
            51  00000000000000000000     DA                                ADDRESS DIFFERENCE                    DATA      211
            52  00000000000000000000     T                                 TRIP COUNT                            DATA      212
            53  00000000000000000000     MP                                MULTIPLIER ( DA*RL )                  DATA      213
            54  00000000000000000000     RL                                NUMBER OF ITEMS IN A REP LIST         DATA      214
            55  00000000000000000000     N                                 NUMBER OF TIMES WE CAN TRAVERSE A     DATA      215
                                        *                                  REP LIST                              DATA      216
            56                     3     LI       BSSZ   3                 TEMPORARIES USED AS LOOP INDICES      DATA      217
            61                     2     TMP      BSS    2                 2 TEMPORARIES                         DATA      218
                                  62 C   DLEN     EQU    TMP+1                                                   DATA      219
                                                  USE    *                                                       DATA      220
  
  
  
                                        *         PDV                                                            DATA      222
                                                                                                                 DATA      223
             4  00000000000000000000     SNAME                             ELIST OF LAST VARIABLE PROCESSED      DATA      224
             5  00000000000000000000     ORD                               VALUE OF SYMTAB ORDINAL               DATA      225
             6  00000000000000000000     SDPF                              0 IF SINGLE PRECISION , 1 IF DOUBLE   DATA      226
             7  00000000000000000000     EEL                               EQUIVALENCE EXTENDED LENGTH           DATA      227
                                        *                                  = CLASS LENGTH - ARRAY BIAS           DATA      228
            10  00000000000000000000     N.DIMS                            NUMBER OF DIMENSIONS                  DATA      229
            11                     3     DIM      BSS    3                 DIM1,DIM2,DIM3                        DATA      230
                                                                                                                 DATA      231
            14  00000000000000000001     DIM.MUL  DATA   1,0               1 , DIM1 , DIM1*DIM2                  DATA      232
            16  00000000000000000000     D1D2                              DIM1*DIM2 ( SET IF N.DIMS = 3 )       DATA      233
                                                                                                                 DATA      234
                                        *         NOTE:  ELEMENTS OF THE ARRAY DIM.MUL ARE FREQUENTLY            DATA      235
                                        *         REFERED TO AS "DM(J)" . THE DM(J) ARE THE DIMENSIONAL          DATA      236
                                        *         MULTIPLIERS FOR SUBSCRIPT CALCULATIONS.                        DATA      237
            17                     1     INFDIAG  BSS    1           FLAG FOR POSTPONED INF DIAG                 FCCA549     6
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     8
         MAIN LOOP
  
            20  00000000000000000000     DATA     ENTRY.                                                         DATA      239
            21  0100000060 +                      RJ     RAS               REMOVE ALTERNATE SYNTAX  (V=C)        DATA      240
                                        *                                  AND INITIALIZE                        DATA      241
                                                                                                                 DATA      242
            22  5110000000 X             DATA1    SA1    O.DIL                                                   DATA      243
                          7170777763              SX7    -N.CELLS                                                DATA      244
            23  43600                             MX6    0                                                       DATA      245
                     5160000000 C                 SA6    O.CELLS           CLEAR OUT CONTROL CELLS               DATA      246
            24  54665                   +         SA6    A6+B5                                                   DATA      247
                     73775                        SX7    X7+B5                                                   DATA      248
                          0337000024 +            NG     X7,*                                                    DATA      249
            25  5160000000 X                      SA6    L.DIT                                                   DATA      250
                                                                                                                 DATA      251
                                        *         CONVERT THE ITEM LIST TO INTERNAL FORM                         DATA      252
                                                                                                                 DATA      253
                          5120000000 X            SA2    L.DIL                                                   DATA      254
            26  36312                             IX3    X1+X2             TOP OF STACK + 1                      DATA      255
                     5253777776                   SA5    X3-1              VAR AND CON LIST POINTERS             DATA      256
                               53450              SA4    X5                INITIALIZE FOR CON LIST PROCESSING    DATA      257
            27  21522                             AX5    18                                                      DATA      258
                     73650                        SX6    X5                                                      DATA      259
                          5160000061 C            SA6    TMP               SAVE VAR LIST POINTER                 DATA      260
            30  5150000032                        SA5    SELIST                                                  DATA      261
                          0100000144 +            RJ     BIT               BUILD DATA ITEM ( CON ) TABLE         DATA      262
                                                                                                                 DATA      263
                                        *         PROCESS THE VARIABLE LIST AND MATCH IT UP WITH THE ITEM LIST   DATA      264
                                                                                                                 DATA      265
            31  5130000061 C                      SA3    TMP                                                     DATA      266
                          5150000032              SA5    SELIST                                                  DATA      267
            32  13666                             BX6    X6-X6                                                   DATA      268
                     53430                        SA4    X3                INITIALIZE POINTERS                   DATA      269
                          5160000004 C            SA6    I.DIT                                                   DATA      270
            33  0100000373 +                      RJ     BVT               PROCESS VARIABLE LIST                 DATA      271
                                                                                                                 DATA      272
                                        *         ISSUE INFORMATIVE DIAGNOSTICS IF LISTS NOT THE SAME LENGTH     DATA      273
                                                                                                                 DATA      274
            34  5110000013 C                      SA1    LI.HOL                                                  FCC0537    20
                          5120000007 C            SA2    WC.HOL                                                  FCC0537    21
            35  5130000010 C                      SA3    TC.HOL                                                  FCC0537    22
                          0321000037 +            PL     X1,DATA1A         IF HOLLERITH NOT LAST ISSUE           FCC0537    23
            36  0302000037 +                      ZR     X2,DATA1A         IF NO ILLEGAL HOLL. INITIALIZATION    FCC0537    24
                          0323000052 +            PL     X3,DATA4          IF NO TRUNCATE MESSAGE ISSUED         FCC0537    25
                                                                                                                 FCC0537    26
            37  5130000002 C             DATA1A   SA3    N.ITEM                                                  FCC0537    27
                          5140000007 C            SA4    WC.HOL                                                  FCC0537    28
            40  36534                             IX5    X3+X4                                                   FCC0537    29
                     0303000044 +                 ZR     X3,DATA2          IF LISTS MATCH                        FCC0537    30
            41  0305000044 +                      ZR     X5,DATA2          IF INITIALIZED BY DEFAULT             FCC0537    31
                          0333000054 +            MI     X3,DATA5          IF MORE VARIABLES THAN CONSTANTS      FCC0537    32
            42  5110000011 C                      SA1    EL.HOL            GET FIRST UNINITIALIZED CONSTANT      FCC0537    33
                          53210                   SA2    X1                                                      FCC0732     5
                               10722              BX7    X2                                                      FCC0537    35
            43  5170000012 C                      SA7    EL.CNS                                                  FCC0537    36
                          0400000056 +            EQ     DATA6             MORE CONSTANTS THAN VARIABLES         FCC0537    37
                                                                                                                 DATA      282
            44  5110000000 X             DATA2    SA1    L.DIL                                                   DATA      283
                          7261777776              SX6    X1-1              L.DIL = L.DIL - 1                     DATA      284
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE     9
         MAIN LOOP
  
            45  54610                             SA6    A1                                                      DATA      285
                     0316000022 +                 NZ     X6,DATA1          IF MORE DIL"S TO GO                   DATA      286
                                                                                                                 DATA      287
            46  5110000003 +             DATA3    SA1    NONANSI                                                 DATA      288
                          13666                   BX6    X6-X6                                                   DATA      289
            47  5160000000 X                      SA6    L.DIL             FREE ANY TABLE SPACE LEFT             DATA      290
                          0301000020 +            ZR     X1,DATA           IF NO NON ANSI USEAGES                DATA      291
            50  6160777615                        SB6    -E.DNA                                                  DATA      292
                          6170000020 +            SB7    DATA              FLAG NON ANSI USEAGES                 DATA      293
            51  0400000000 X                      EQ     ASAER                                                   DATA      294
                                                                                                                 FCC0537    38
            52  5140000012 C             DATA4    POSTER NR=E.IHI,SEV=INF,FMT=ELIST,TXT=EL.CNS,RETURN=DATA1A     FCC0537    39
                                                                                                                 FCC0537    40
            54  5140000004 +             DATA5    POSTER NR=E.V>C,SEV=INF,FMT=ELIST,TXT=SNAME,RETURN=DATA2       FCC0537    41
                                                                                                                 FCC0537    42
            56  5140000012 C             DATA6    POSTER NR=E.C>V,SEV=INF,FMT=ELIST,TXT=EL.CNS,RETURN=DATA2      FCC0537    43
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    10
         RAS - REMOVE ALTERNATE SYNTAX
  
                                   6     EL.LP    EQU    EL.(              LEFT PAREN                            DATA      296
                                   2     EL.RP    EQU    EL.)                                                    DATA      297
                                   4     EL.BOS   EQU    EL.EOS            BEGINNING OF STMT MARKER              DATA      298
                                  21     EL.PLUS  EQU    EL.MINUS+1        USED BY BIT TO MAP SIGN INTO -0 OR 0  DATA      299
                                                                                                                 DATA      300
                                         SCANTO   MACRO  DELIM                                                   DATA      301
                                                  LOCAL  X                                                       DATA      302
                                         X        BMASK  (DELIM)                                                 DATA      303
                                                  SA5    X                                                       DATA      304
                                                  RJ     STD                                                     DATA      305
                                                  ENDM                                                           DATA      306
                                                                                                                 DATA      307
                                                  PURGMAC   REPLACE                                              DATA      308
                                         REPLACE  MACRO  OP                                                      DATA      309
                                                  SX6    OP+2000B                                                DATA      310
                                                  LX6    48                                                      DATA      311
                                                  SA6    A4                                                      DATA      312
                                                  ENDM                                                           DATA      313
                                                                                                                 DATA      314
                                        ***                                                                      DATA      315
                                        *         RAS - REMOVE ALTERNATE SYNTAX                                  DATA      316
                                        *                SCAN DATA STMT BACKWARD AND FORM TABLE OF FWA OF DIL    DATA      317
                                        *                AND DVL"S. CHANGE DATA INITIALIZATION LISTS OF THE      DATA      318
                                        *                FORM "( DVL = DIL )" TO "DVL / DIL /" .                 DATA      319
                                        *                INITIALIZE TABLE POINTERS, ETC FOR FURTHER PROCESSING.  DATA      320
                                        *                                                                        DATA      321
                                        *         NOTE:  THIS SUBROUTINE IS A MISTAKE. I ORIGINALLY THOUGHT      DATA      322
                                        *         THAT ONE COULD FIND THE BEGINNING OF THE CON AND VAR LISTS BY  DATA      323
                                        *         A SIMPLE BACKWARDS SCAN OF THE STMT. TO SEE THAT THIS IS NOT   DATA      324
                                        *         TRUE CONSIDER:  DATA (A=1),B/2/ .                              DATA      325
                                        *         HENCE THE PRESENT VERSION DISALLOWS INTERMIXING SYNTAXS.       DATA      326
                                        *                                                                        DATA      327
                                                                                                                 DATA      328
            60  0400400060 +             RAS      ENTRY. *                                                       DATA      329
            61  13666                             BX6    X6-X6                                                   DATA      330
                     5160000000 X                 SA6    L.DIT                                                   DATA      331
            62  5160000000 X                      SA6    L.DIL             RESET TABLE LENGTHS                   DATA      332
                          5120000000 X            SA2    LWAWORK                                                 DATA      333
            63  5130000032                        SA3    SELIST                                                  DATA      334
                          7170002004              SX7    2000B+EL.BOS                                            DATA      335
            64  20760                             LX7    48                                                      DATA      336
                     53735                        SA7    X3+B5             (SELIST+1) = BEGIN OF STMT OPERATOR   DATA      337
                          53420                   SA4    X2                A4,X4 = NEXT ITEM PTR AND NEXT ITEM   DATA      338
                               43600              MX6    0                                                       DATA      339
            65  5160000003 +                      SA6    NONANSI           CLEAR NON ANSI USEAGE FLAG            DATA      340
                                                                                                                 DATA      341
            66  54445                    RAS1     SA4    A4+B5                                                   DATA      342
                     26124                        UX1    B2,X4             NEXTE                                 DATA      343
                          6130000023              IF.NE  EL.SLASH,RAS3     IF NOT A /                            DATA      344
                                                                                                                 DATA      345
                                        *         STANDARD SYNTAX                                                DATA      346
                                                                                                                 DATA      347
                          5150001425 +            SA5    M.SLASH                                                 DATA      348
            70  0100000130 +                      RJ     STD         SCAN TO SLASH                               DATA      349
            71  74740                             SX7    A4                                                      DATA      350
                     5170000014 C                 SA7    SW1               SAVE A4                               DATA      351
                               10177              ADDWD  DIL,X7            ADD THE ADDRESS TO THE DIL            DATA      352
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    11
         RAS - REMOVE ALTERNATE SYNTAX
  
            73  5150000014 C                      SA5    SW1                                                     DATA      353
                          53450                   SA4    X5                RESTORE A4                            DATA      354
            74  5150001426 +                      SA5    M.BOVL                                                  DATA      355
                          0100000130 +            RJ     STD         SCAN TO BOS OR SLASH                        DATA      356
            75  66650                             SB6    B5                                                      DATA      357
                     6130000004                   IF.NE  EL.BOS,RAS2       IF NOT BOS                            DATA      358
                          66600                   SB6    B0                                                      DATA      359
            77  75746                    RAS2     SX7    A4-B6             POINTER TO BEGIN OF VAR LIST          DATA      360
                     20722                        LX7    18                                                      DATA      361
                          12676                   BX6    X7+X6             DVL, CON LIST TO DIT                  DATA      362
                               54660              SA6    A6                REPLACE THE DIT ENTRY                 DATA      363
           100  55445                             SA4    A4-B5             BACKE  1                              DATA      364
                     26124                        UX1    B2,X4                                                   DATA      365
                          0460000066 +            ZR     B6,RAS1           IF BOS                                DATA      366
           101  6130000003                        IF.EQ  EL.COMMA,RAS1     LOOP IF A ,                           DATA      367
           102  10244                             BX2    X4          SAVE OFFENDING ITEM                         DATA      368
                     54445                        SA4    A4+B5       BACK TO SLASH                               DATA      369
                          0400000121 +            EQ     RAS.E2                                                  DATA      370
                                                                                                                 DATA      371
           103  6130000002               RAS3     IF.NE  EL.),RAS4         IF NO )                               DATA      372
                                                                                                                 DATA      373
                                        *         ALTERNATE SYNTAX - CONVERT TO STANDARD SYNTAX                  DATA      374
                                                                                                                 DATA      375
           104  7160002023                        REPLACE  EL.SLASH        REPLACE ) WITH /                      DATA      376
          1423                                    SCANTO EL.=              FIND BEGINNING OF CON LIST            DATA      377
           106  74740                             SX7    A4                                                      DATA      378
                     5170000014 C                 SA7    SW1               SAVE A4                               DATA      379
           107  5170000003 +                      SA7    NONANSI           SET NON ANSI USEAGE FLAG              DATA      380
                          7160002023              REPLACE  EL.SLASH        REPLACE = "S WITH /                   DATA      381
                          10177                   ADDWD  DIL,X7            ADD TO THE DIL                        DATA      382
           112  5150000014 C                      SA5    SW1                                                     DATA      383
                          53450                   SA4    X5                RESTORE A4                            DATA      384
          1424                                    SCANTO EL.LP             FIND BEGINNING OF VAR LIST            DATA      385
           114  74740                             SX7    A4                                                      DATA      386
                     20722                        LX7    18                                                      DATA      387
                          12676                   BX6    X7+X6                                                   DATA      388
                               54660              SA6    A6                REPLACE DIT ENTRY                     DATA      389
           115  54445                             SA4    A4+B5                                                   DATA      390
                     26124                        UX1    B2,X4             NEXTE                                 DATA      391
                          6130000003              IF.EQ  EL.COMMA,RAS1     LOOP IF A COMMA                       DATA      392
                          6130000004              IF.EQ  EL.BOS,RAS        EXIT IF BOS                           DATA      393
                                                                                                                 DATA      394
           120                           RAS.E    EREXIT E.DSE             DATA STMT SYNTAX ERROR                DATA      395
                          0400000001 +            EQ     DATA.E                                                  DATA      396
                                                                                                                 DATA      397
           121  5150001425 +             RAS.E2   SA5    M.SLASH                                                 DATA      398
                          0100000130 +            RJ     STD         SCAN TO SLASH                               DATA      399
           122  5150001426 +                      SA5    M.BOVL                                                  DATA      400
                          0100000130 +            RJ     STD         SCAN TO BOS OR SLASH                        DATA      401
           123  6130000004                        IF.NE  EL.BOS,RAS.E2     IF MORE LISTS TO PROCESS              DATA      402
           124  10422                             BX4    X2          ERROR IS MISSING COMMA                      DATA      403
                     0400000611 +                 EQ     BVT.E3      SYNTAX ERROR IN VARIABLE LIST               DATA      404
                                                                                                                 DATA      405
           125  6130000004               RAS4     IF.NE  EL.BOS,RAS.E      ERROR IF NOT BOS                      DATA      406
           126  5130000000 X                      SA3    L.DIL                                                   DATA      407
                          0313000060 +            NZ     X3,RAS            IF NOT AN EMPTY DATA STMT             DATA      408
                                                                                                                 DATA      409
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    12
         RAS - REMOVE ALTERNATE SYNTAX
  
           127                           RAS5     EREXIT -E.DSE                                                  DATA      410
                          0400000001 +            EQ     DATA.E                                                  DATA      411
                                                                                                                 DATA      412
          1425                           M.SLASH  BMASK  (EL.SLASH)                                              DATA      413
          1426                           M.BOVL   BMASK  (EL.BOS,EL.SLASH)     BEGINNING OF VARIABLE LIST        DATA      414
  
  
  
                                        ***                                                                      DATA      416
                                        *         STD - SCAN TO DELIMETER, PERFORM A PARENTHESIS CHECK           DATA      417
                                        *                                                                        DATA      418
                                        *         ENTRY:                                                         DATA      419
                                        *                X5 = DELIMETER BIT MASK                                 DATA      420
                                        *                A4 = FWA-1 OF LIST                                      DATA      421
                                        *                                                                        DATA      422
                                        *         EXIT:                                                          DATA      423
                                        *                A4 = POINTER TO DELIMETER                               DATA      424
                                        *                B2 = ELIST OPCODE OF DELIMETER                          DATA      425
                                        *                                                                        DATA      426
           130  0400400130 +             STD      ENTRY. *                                                       DATA      427
                                                                                                                 DATA      428
           131  6130000006                        SB3    EL.(                                                    DATA      429
                          6140000002              SB4    EL.)                                                    DATA      430
           132  6160000004                        SB6    EL.BOS                                                  DATA      431
                          66100                   SB1    B0                B1 = PAREN COUNT                      DATA      432
                                                                                                                 DATA      433
           133  54445                    STD1     SA4    A4+B5                                                   DATA      434
                     26124                        UX1    B2,X4             NEXTE                                 DATA      435
                          0652000133 +            LE     B2,B5,STD1        SKIP CONS AND VARS                    DATA      436
           134  0524000136 +                      NE     B2,B4,STD2        IF NOT A )                            DATA      437
                          66115                   SB1    B1+B5             PC = PC+1                             DATA      438
           135  0400000133 +                      EQ     STD1                                                    DATA      439
                                                                                                                 DATA      440
           136  22325                    STD2     LX3    B2,X5             POSITION DELIMETER MASK               DATA      441
                     0523000141 +                 NE     B2,B3,STD3        IF NOT A (                            DATA      442
                               67115              SB1    B1-B5             PC = PC-1                             DATA      443
           137  0610000133 +                      PL     B1,STD1           LOOP IF PC \ 0                        DATA      444
                          0333000130 +            NG     X3,STD            EXIT IF ( IS A DELIMETER              DATA      445
           140  0400000120 +                      EQ     RAS.E             SYNTAX ERROR ( NEGATIVE PAREN COUNT ) DATA      446
                                                                                                                 DATA      447
           141  0323000143 +             STD3     PL     X3,STD4           IF NOT THE DELIM WE WANT              DATA      448
                          0410000130 +            ZR     B1,STD            EXIT IF PAREN COUNT = 0               DATA      449
           142  0400000120 +                      EQ     RAS.E             GO FLAG ERROR                         DATA      450
                                                                                                                 DATA      451
           143  0526000133 +             STD4     NE     B2,B6,STD1        LOOP IF NOT BOS                       DATA      452
                          0400000127 +            EQ     RAS5              GO FLAG THE ERROR                     DATA      453
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    13
         BIT - BUILD DATA ITEM TABLE
  
                                        ***                                                                      DATA      455
                                        *         BIT - BUILD DATA ITEM TABLE                                    DATA      456
                                        *                SCAN THE ITEM LIST AND CONVERT IT INTO INTERNAL FORMAT: DATA      457
                                        *                                                                        DATA      458
                                        *                CONSTANTS ARE REPRESENTATED AS:                         DATA      459
                                        *                 1/0,1/HF,18/EA,4/NC,18/IX,18/WC                        FCC0537    45
                                        *                 WHERE:-    HF - HOLLERITH FLAG.                        FCC0537    46
                                        *                            EA - ELIST ADDRESS OF ITEM.                 FCC0537    47
                                        *                            NC - HF = 1, NUMBER OF CHARS IN LAST WORD.  FCC1563X   39
                                        *                                 HF = 0, CONSTANT TYPE.                 FCC1563X   40
                                        *                            IX - INDEX.                                 FCC0537    49
                                        *                            WC - WORD COUNT.                            FCC0537    50
                                        *                 FOLLOWED BY WC WORDS OF DATA FOR NON HOLLERITH CONSTAN DATA      461
                                        *                 FOR HOL CONSTANTS THE NEXT WORD CONTAINS THE ELIST     DATA      462
                                        *                                                                        DATA      463
                                        *                REPETITION COUNTS ARE REPRESENTED AS:                   DATA      464
                                        *                 1/1,5/CIF,18/RL,18/INDEX TO NEXT GROUP,18/REP COUNT    DATA      465
                                        *                 CIF = 1 OR 2 IF ALL ITEMS ARE THE SAME LENGTH, AND     DATA      466
                                        *                 LENGTH IS 1 OR 2 WORDS , ELSE 0                        DATA      467
                                        *                 RL = NUMBER OF ITEMS IN THE REP LIST                   DATA      468
                                        *                                                                        DATA      469
                                                                                                                 DATA      470
           144  0400400144 +             BIT      ENTRY. *                                                       DATA      471
                                                                                                                 DATA      472
           145  55445                    BIT.L    NEXTE                    NEXT ELIST ITEM                       DATA      473
                          5130001430 +            SA3    M.CON                                                   DATA      474
           146  43600                             MX6    0                                                       FCC0537    51
                     22723                        LX7    B2,X3                                                   DATA      475
                          5160000007 C            SA6    WC.HOL            CLEAR HOLLERITH WORD COUNT            FCC0537    52
           147  0327000230 +                      PL     X7,BIT.E          IF NOT CON + - OR (                   DATA      476
                          66120                   SB1    B2                                                      DATA      477
           150  0410000157 +                      ZR     B1,BIT2           IF A CONSTANT                         DATA      478
                          6130000006              SB3    EL.(                                                    DATA      479
           151  0413000201 +                      EQ     B1,B3,BIT6        IF A (                                DATA      480
                                                                                                                 DATA      481
                                        *         + OR - SIGN                                                    DATA      482
                                                                                                                 DATA      483
                          55445                   NEXTE                    NEXT ELIST ITEM                       DATA      484
           152  0520000231 +                      IF.NE  CON,BIT.E1        IF NO CONSTANT FOLLOWING              DATA      485
                          7171777756              SX7    B1-EL.PLUS        0 IF + , -1 IF -                      DATA      486
           153  21701                             AX7    1                 0 IF + , -0 IF - SIGN                 DATA      487
                                                                                                                 DATA      488
           154  0100000327 +             BIT1     RJ     ADDCON            ADD CONSTANT TO DIT                   DATA      489
           155  5130000002 C                      SA3    N.ITEM                                                  DATA      490
                          73635                   SX6    X3+B5             N.ITEM = N.ITEM+1                     DATA      491
                               54630              SA6    A3                                                      DATA      492
           156  0400000215 +                      EQ     BIT.S                                                   DATA      493
                                                                                                                 DATA      494
                                        *         CONSTANT                                                       DATA      495
                                                                                                                 DATA      496
           157  55245                    BIT2     SA2    A4-B5             LOOK AHEAD                            DATA      497
                     5130001427 +                 SA3    M.SEP                                                   DATA      498
                               26022              UX0    B2,X2                                                   DATA      499
           160  43700                             MX7    0                                                       DATA      500
                     22623                        LX6    B2,X3                                                   DATA      501
                          0336000154 +            NG     X6,BIT1           IF NEXT IS , ) OR /                   DATA      502
           161  5130000000 C                      SA3    REPFLAG                                                 DATA      503
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    14
         BIT - BUILD DATA ITEM TABLE
  
                          0313000230 +            NZ     X3,BIT.E          IF WE ARE WITHIN A REP LOOP           DATA      504
                                                                                                                 DATA      505
           162  76750                             SX7    B5                SET TO CLOSE ON )                     DATA      506
                     6130000022                   IF.NE  EL.STAR,BIT3      IF NOT CON*                           DATA      507
                                                                                                                 DATA      508
                          55225                   NEXTE  2                 LOOK PAST *                           DATA      509
           164  6130000006                        IF.EQ  EL.(,BIT4         IF A (                                DATA      510
           165  77705                             SX7    -B5               SET FOR SINGLE ELEMENT REP            DATA      511
                     0400000170 +                 EQ     BIT5                                                    DATA      512
                                                                                                                 DATA      513
           166  6130000006               BIT3     IF.NE  EL.(,BIT.E        SYNTAX ERROR IF NOT A (               DATA      514
           167  5170000003 +             BIT4     SA7    NONANSI           SET NON ANSI USEAGE FLAG              DATA      515
                                                                                                                 DATA      516
           170  74625                    BIT5     SX6    A2+B5             BACKOFF AND SAVE ELIST POINTER        DATA      517
                     54650                        SA6    A5                                                      DATA      518
                          5170000001 C            SA7    CLOSREP                                                 DATA      519
           171  0100000303 +                      RJ     CHKSC             CHECK CONSTANT AND CONVERT            DATA      520
                                                                                                                 DATA      521
           172  43001                             MX0    1                                                       DATA      522
                     12606                        BX6    X0+X6             CONSTRUCT ENTRY FOR ADIT              DATA      523
                          66100                   SB1    B0                                                      DATA      524
           173  0100000357 +                      RJ     ADIT                                                    DATA      525
                                                                                                                 DATA      526
           174  5110000002 C                      SA1    N.ITEM                                                  DATA      527
                          5120000000 X            SA2    L.DIT                                                   DATA      528
           175  73620                             SX6    X2                                                      DATA      529
                     20122                        LX1    18                                                      DATA      530
                          12616                   BX6    X1+X6                                                   DATA      531
           176  5160000000 C                      SA6    REPFLAG           SAVE ITEM COUNT AND POINTER           DATA      532
                          43700                   MX7    0                                                       DATA      533
                               54710              SA7    A1                CLEAR ITEM FLAG                       DATA      534
           177  5150000032                        GETE                     RESTORE REGISTERS                     DATA      535
           200  0400000145 +                      EQ     BIT.L             AND LOOP TO PROCESS REP LIST          DATA      536
                                                                                                                 DATA      537
                                        *         ( - START OF A REPEATED DATA LIST OR A COMPLEX CONSTANT        DATA      538
                                                                                                                 DATA      539
           201  5110000003 C             BIT6     SA1    PL                PARENTHESIS LEVEL                     DATA      540
                          5120000001 C            SA2    CLOSREP                                                 DATA      541
           202  73715                             SX7    X1+B5             PL = PL+1                             DATA      542
                     54710                        SA7    A1                                                      DATA      543
                          37327                   IX3    X2-X7                                                   DATA      544
           203  0303000145 +                      ZR     X3,BIT.L          IF ( IS A REP BRACKET                 DATA      545
                                                                                                                 DATA      546
                                        *         CHECK FOR A COMPLEX CONSTANT                                   DATA      547
                                                                                                                 DATA      548
                          0100000252 +            RJ     CFCD              CHECK FOR A COMPLEX CONSTANT          DATA      549
           204  0300000207 +                      ZR     X0,BIT7           IF IT IS                              DATA      550
                          5110000003 C            SA1    PL                                                      DATA      551
           205  23251                             AX2    B5,X1                                                   DATA      552
                     0302000145 +                 ZR     X2,BIT.L          IF A MEANINGLESS PAREN                DATA      553
           206  0400000232 +                      EQ     BIT.E2            ERROR - 2 NESTED PAREN GROUPS         DATA      554
                                                                                                                 DATA      555
           207  5130000226 +             BIT7     SA3    DIT.CMPX          DIT HEADER WORD                       DATA      556
                          5140000032              SA4    SELIST                                                  FCC0732     6
           210  7274000004                        SX7    X4+4                                                    FCC0732     7
                          5140000003 C            SA4    PL                                                      DATA      557
           211  20750                             LX7    40                                                      FCC0732     8
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    15
         BIT - BUILD DATA ITEM TABLE
  
                     12637                        BX6    X3+X7                                                   FCC0732     9
                          7274777776              SX7    X4-1              DECREMENT PAREN COUNT                 DATA      559
           212  54740                             SA7    A4                                                      DATA      560
                     66155                        SB1    B5+B5                                                   DATA      561
                          0100000357 +            RJ     ADIT              ADD CONSTANT TO DIT                   DATA      562
           213  5110000002 C                      SA1    N.ITEM                                                  DATA      563
                          73615                   SX6    X1+B5             N.ITEM = N.ITEM+1                     DATA      564
                               54610              SA6    A1                                                      DATA      565
           214  5150000032                        GETE                     POINT PAST )                          DATA      566
                                        *         EQ     BIT.S             PROCESS SEPERATOR                     DATA      567
                                                                                                                 DATA      568
                                        *         PROCESS SEPERATOR AFTER CONSTANT                               DATA      569
                                                                                                                 DATA      570
                                                                                                                 DATA      571
           215  5110000001 C             BIT.S    SA1    CLOSREP                                                 DATA      572
                          0321000217 +            PL     X1,BIT.S1         IF NO SINGLE ELEMENT REP OUTSTANDING  DATA      573
           216  0100000235 +                      RJ     CRL                                                     DATA      574
                                                                                                                 DATA      575
           217  6130000003               BIT.S1   IF.EQ  EL.COMMA,BIT.L    LOOP IF A ,                           DATA      576
           220  6130000023                        IF.EQ  EL.SLASH,BIT      EXIT IF A /                           DATA      577
           221  6130000002                        IF.NE  EL.),BIT.E3       ERROR IF NOT A )                      DATA      578
           222  43700                             MX7    0                                                       DATA      579
                     5170000003 C                 SA7    PL                CLEAR PAREN LEVEL                     DATA      580
           223  5110000001 C                      SA1    CLOSREP                                                 FCC0522     9
                          0301000225 +            ZR     X1,BIT.S2         IF NO REP LIST TO CLOSE               DATA      581
           224  0100000235 +                      RJ     CRL               CLOSE IT                              DATA      582
                                                                                                                 DATA      583
           225  55445                    BIT.S2   NEXTE                    NEXT ELEMENT                          DATA      584
                          0400000215 +            EQ     BIT.S                                                   DATA      585
  
  
  
           226  00000000000003000002     DIT.CMPX VFD    24/0,18/3,18/2                                          DATA      587
           227  20000000000002000000     HOL.DIT  VFD    2/1,22/0,18/2,18/0                                      DATA      588
          1427                           M.SEP    BMASK  (EL.COMMA,EL.RP,EL.SLASH)   , ) AND /                   DATA      589
          1430                           M.CON    BMASK  (0,EL.LP,EL.MINUS,EL.PLUS)  CON ( + AND -               DATA      590
  
  
  
                                        *         BIT ERROR EXITS                                                DATA      592
                                                                                                                 DATA      593
           230                           BIT.E    EREXIT E.DIL             SYNTAX ERROR                          DATA      594
                          0400000001 +            EQ     DATA.E                                                  DATA      595
                                                                                                                 DATA      596
           231                           BIT.E1   EREXIT E.DIL1            ILLEGAL ITEM FOLLOWING + OR -         DATA      597
                          0400000001 +            EQ     DATA.E                                                  DATA      598
                                                                                                                 DATA      599
           232                           BIT.E2   EREXIT E.DIL2            2 NESTED REP LISTS                    DATA      600
                          0400000001 +            EQ     DATA.E                                                  DATA      601
                                                                                                                 DATA      602
           233                           BIT.E3   EREXIT E.DIL3            ILLEGAL ITEM FOLLOWING CON            DATA      603
                          0400000001 +            EQ     DATA.E                                                  DATA      604
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    16
         BIT - BUILD DATA ITEM TABLE                                  CRL 
  
                                        ***                                                                      DATA      606
                                        *         CRL - CLOSE OUT REP LIST                                       DATA      607
                                        *                                                                        DATA      608
                                        *         ON ENTRY:                                                      DATA      609
                                        *                A1,X1 = CLOSREP                                         DATA      610
                                        *                                                                        DATA      611
           234  76040                    CRL2     SX0    B4                                                      DATA      612
                     20066                        LX0    54                POSITION ITEM LENGTH                  DATA      613
                          12606                   BX6    X0+X6                                                   DATA      614
                               54660              SA6    A6                STORE UPDATED REP WORD IN DIT         DATA      615
                                                                                                                 DATA      616
           235  0400400235 +             CRL      ENTRY. *                                                       DATA      617
           236  5120000000 C                      SA2    REPFLAG                                                 DATA      618
                          43700                   MX7    0                                                       DATA      619
                               54710              SA7    A1                CLEAR FLAGS                           DATA      620
           237  54720                             SA7    A2                                                      DATA      621
                                                                                                                 DATA      622
                     5130000000 X                 SA3    O.DIT                                                   DATA      623
                               36223              IX2    X2+X3             ADD DIT BASE TO ORDINAL               DATA      624
           240  5212777776                        SA1    X2-1              WORD 1 OF REP ENTRY IN DIT            DATA      625
                          5130000002 C            SA3    N.ITEM            NUMBER OF ITEMS IN REP LIST           DATA      626
           241  21222                             AX2    18                SAVED TOTAL OF ITEMS                  DATA      627
                     63630                        SB6    X3                B6 = NUMBER OF ITEMS IN LIST          DATA      628
                          73010                   SX0    X1                REMOVE REP FLAG BIT                   FCC0522    10
                               42603              IX6    X0*X3             RF * N.ITEMS                          FCC0522    11
           242  36762                             IX7    X6+X2                                                   DATA      634
                     54730                        SA7    A3                                                      DATA      635
                                                                                                                 DATA      636
                          20344                   LX3    36                                                      DATA      637
                               12631              BX6    X3+X1             ADD NUMBER OF ITEMS TO WORD 1         DATA      638
                                                                                                                 DATA      639
           243  5120000000 X                      SA2    O.DIT                                                   DATA      640
                          5130000000 X            SA3    L.DIT                                                   DATA      641
           244  36223                             IX2    X2+X3                                                   DATA      642
                     74010                        SX0    A1                                                      DATA      643
                          37720                   IX7    X2-X0                                                   DATA      644
                               20722              LX7    18                SHIFT INDEX TO NEXT GROUP             DATA      645
           245  12676                             BX6    X7+X6                                                   DATA      646
                     54610                        SA6    A1                UPDATE WORD 1                         DATA      647
                                                                                                                 DATA      648
                                        *         SEARCH FOR AND MARK REP LISTS WHERE ALL ITEMS ARE THE SAME     DATA      649
                                        *         LENGTH AND LENGTH = 1 OR 2 .                                   DATA      650
                                                                                                                 DATA      651
                          54215                   SA2    A1+B5                                                   DATA      652
                               63420              SB4    X2                NUMBER OF WORDS IN FIRST ITEM         DATA      653
           246  67345                             SB3    B4-B5                                                   DATA      654
                     0753000235 +                 GT     B3,B5,CRL         IF WC > 2                             DATA      655
                                                                                                                 DATA      656
           247  21222                    CRL1     AX2    18                                                      DATA      657
                     67665                        SB6    B6-B5                                                   DATA      658
                          0460000234 +            ZR     B6,CRL2           IF END OF REP LIST                    DATA      659
           250  63320                             SB3    X2                                                      FCC0522    12
                     54223                        SA2    A2+B3                                                   FCC0522    13
                          63320                   SB3    X2                                                      DATA      662
           251  0434000247 +                      EQ     B3,B4,CRL1        LOOP IF ITEMS HAVE THE SAME LENGTH    DATA      663
                          0400000235 +            EQ     CRL                                                     DATA      664
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    17
         BIT - BUILD DATA ITEM TABLE                                  CFCD
  
                                        ***                                                                      DATA      666
                                        *         CFCD - CHECK FOR COMPLEX DATA ITEM                             DATA      667
                                        *                                                                        DATA      668
                                        *         ON ENTRY:                                                      DATA      669
                                        *                A4 - POINTS TO (                                        DATA      670
                                        *                                                                        DATA      671
                                        *         ON EXIT:                                                       DATA      672
                                        *                X0 = 0 IF A COMPLEX CON IS DETECTED AND                 DATA      673
                                        *                X1,X2 = REAL AND IMAGINARY PARTS OF CONVERTED CONSTANT  DATA      674
                                        *                SELIST POINTER UPDATED TO POINT PAST )                  DATA      675
                                        *                X0 " 0 IF NOT AND A4,X4 UNTOUCHED                       DATA      676
                                        *                                                                        DATA      677
                                                                                                                 DATA      678
           252  0400400252 +             CFCD     ENTRY. **                                                      FCC0787   133
           253  55345                             SA3    A4-B5                                                   DATA      680
                     43001                        MX0    1                 SET FOR FAILURE                       DATA      681
                          26123                   UX1    B2,X3                                                   DATA      682
                               43700              MX7    0                 SET FOR + SIGN                        DATA      683
           254  6142777757                        SB4    B2-EL.MINUS                                             DATA      684
                          0445000256 +            EQ     B4,B5,CFCD1       IF +                                  DATA      685
           255  0540000257 +                      NZ     B4,CFCD2          IF NOT -                              DATA      686
                          43774                   MX7    60                                                      DATA      687
           256  55335                    CFCD1    NEXTE  3                 NEXT ITEM                             DATA      688
           257  0520000252 +             CFCD2    IF.NE  CON,CFCD          EXIT IF NOT A CON                     DATA      689
                          21155                   AX1    45                                                      DATA      690
                               10633              BX6    X3                                                      DATA      691
           260  7221777775                        SX2    X1-T.REAL                                               DATA      692
                          0312000252 +            NZ     X2,CFCD           IF NOT A REAL CONSTANT                DATA      693
           261  55335                             NEXTE  3                                                       DATA      694
                          6130000003              IF.NE  EL.COMMA,CFCD     IF NOT A ,                            DATA      695
                          5160000014 C            SA6    TEMP              SAVE ELIST FOR REAL PART              DATA      696
           263  54765                             SA7    A6+B5             AND SIGN                              DATA      697
                     55335                        NEXTE  3                                                       DATA      698
                               43700              MX7    0                                                       DATA      699
           264  6130000021                        IF.EQ  EL.PLUS,CFCD3     IF A +                                DATA      700
           265  6130000020                        IF.NE  EL.MINUS,CFCD4    IF NOT -                              DATA      701
           266  43774                             MX7    60                                                      DATA      702
           267  55335                    CFCD3    NEXTE  3                                                       DATA      703
           270  0520000252 +             CFCD4    IF.NE  CON,CFCD          IF NOT A CONSTANT                     DATA      704
                          21155                   AX1    45                                                      DATA      705
           271  7221777775                        SX2    X1-T.REAL                                               DATA      706
                          0312000252 +            NZ     X2,CFCD           IF NOT A REAL CONSTANT                DATA      707
           272  55335                             NEXTE  3                                                       DATA      708
                          6130000002              IF.NE  EL.),CFCD         IF NO )                               DATA      709
                                                                                                                 DATA      710
                          75635                   SX6    A3-B5                                                   FCC0787   134
           274  5160000032                        SA6    SELIST      SUCCESS, UPDATE ELIST POINTER               FCC0787   135
                          5110000014 C            SA1    TEMP              CON                                   DATA      712
           275  54710                             SA7    A1                SAVE SIGN OF SECOND                   DATA      713
                     67105                        SB1    -B5                                                     DATA      714
                          0100000000 X            CALL   CONVERT           CONVERT REAL PART TO BINARY           DATA      715
           276  5120000015 C                      SA2    TEMP+1            SIGN OF FIRST                         DATA      716
                          13612                   BX6    X1-X2                                                   DATA      717
                               54620              SA6    A2                SAVE REAL PART                        DATA      718
           277  5130000032                        SA3    SELIST                                                  DATA      719
                          5213000002              SA1    X3+2              IMAGINARY PART                        DATA      720
           300  67105                             SB1    -B5                                                     DATA      721
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    18
         BIT - BUILD DATA ITEM TABLE                                  CFCD
  
                     0100000000 X                 CALL   CONVERT                                                 DATA      722
           301  5130000014 C                      SA3    TEMP                                                    DATA      723
                          13213                   BX2    X1-X3             ADD SIGN                              DATA      724
                               54135              SA1    A3+B5             REAL PART                             DATA      725
           302  43000                             MX0    0                 SET FLAG                              DATA      726
                     0400000252 +                 EQ     CFCD                                                    DATA      727
  
  
  
                                        ***                                                                      DATA      729
                                        *         CHKSC - CHECK SMALL CONSTANT                                   DATA      730
                                        *                CHECKS CONSTANT FOR PROPER TYPE (INTEGER OR OCTAL )     DATA      731
                                        *                AND MAGNITUDE ( 0 < CON < 2**17 )                       DATA      732
                                        *                                                                        DATA      733
                                        *         ON ENTRY:                                                      DATA      734
                                        *                X4 = ELIST FOR CONSTANT                                 DATA      735
                                        *                                                                        DATA      736
                                        *         ON EXIT:                                                       DATA      737
                                        *                X6 = CONVERTED CONSTANT                                 DATA      738
                                        *                                                                        DATA      739
                                                                                                                 DATA      740
           303  0400400303 +             CHKSC    ENTRY. *                                                       DATA      741
           304  26604                             UX6    X4                                                      DATA      742
                     5160000014 C                 SA6    TEMP                                                    DATA      743
                               21655              AX6    45                POSITION TYPE FIELD                   DATA      744
           305  63260                             SB2    X6                                                      DATA      745
                     0425000307 +                 EQ     B2,B5,CHKSC1      IF TYPE INTEGER                       DATA      746
           306  6132777772                        SB3    B2-T.OCT                                                DATA      747
                          0530000312 +            NZ     B3,CHKSC.E        IF NOT OCTAL                          DATA      748
                                                                                                                 DATA      749
           307  67105                    CHKSC1   SB1    -B5                                                     DATA      750
                     10144                        BX1    X4                                                      DATA      751
                          0100000000 X            CALL   CONVERT                                                 DATA      752
           310  10611                             BX6    X1                                                      DATA      753
                     21121                        AX1    17                                                      DATA      754
                          0306000312 +            ZR     X6,CHKSC.E        IF 0                                  DATA      755
           311  0301000303 +                      ZR     X1,CHKSC          EXIT IF .LT. 2**17-1                  DATA      756
                                                                                                                 DATA      757
           312                           CHKSC.E  EREXIT E.DCE             CON NOT TYPE INTEGER OR OCT OR        DATA      758
                          5130000014 C            SA3    TEMP              CON = 0 OR .GT. 2**17-1               DATA      759
           313  27403                             PX4    X3                                                      DATA      760
                     0400000001 +                 EQ     DATA.E                                                  DATA      761
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    19
         BIT - BUILD DATA ITEM TABLE                                  ADDCON
  
                                        ***                                                                      DATA      763
                                        *         ADDCON - ADD CONSTANT TO "DIT"                                 DATA      764
                                        *                                                                        DATA      765
                                        *         ON ENTRY:                                                      DATA      766
                                        *                X1,X4,A4,A5 SET UP TO CONSTANT BY MACRO "NEXTE"         DATA      767
                                        *                X7 = -0 IF CON PRECEEDED BY - SIGN , ELSE 0             DATA      768
                                        *                                                                        DATA      769
                                        *         ON EXIT:                                                       DATA      770
                                        *                X1,X4,A4,A5 RESTORED BY A CALL TO MACRO "GETE"          DATA      771
                                        *                                                                        DATA      772
                                                                                                                 DATA      773
           314  73610                    ADDCON1  SX6    X1                                                      FCC1563X   41
                     5160000014 C                 SA6    TEMP              SAVE CONSTANT TYPE                    DATA      775
                               54765              SA7    A6+B5             AND SIGN                              DATA      776
           315  10144                             BX1    X4                                                      DATA      777
                     0100000000 X                 CALL   CONVERT           CONVERT TO BINARY                     DATA      778
           316  5130000014 C                      SA3    TEMP                                                    DATA      779
                          54435                   SA4    A3+B5             SIGN                                  DATA      780
                               13114              BX1    X1-X4                                                   DATA      781
           317  7273777774                        SX7    X3-T.DBL                                                FCC1563X   42
                          76650                   SX6    B5                WORD COUNT                            DATA      782
                               20344              LX3    36          POSITION CONSTANT TYPE                      FCC1563X   43
           320  54730                             SA7    A3          RESET TEMP                                  FCC1563X   44
                     0317000322 +                 NZ     X7,ADDCON2  IF NOT DOUBLE                               FCC1563X   45
                               76655              SX6    B5+B5             WC = 2                                DATA      784
           321  13224                             BX2    X2-X4                                                   DATA      785
           322  73065                    ADDCON2  SX0    X6+B5             INDEX = WC+1                          DATA      786
                     12663                        BX6    X6+X3       ADD IN CONSTANT TYPE                        FCC1563X   46
                          20022                   LX0    18                                                      DATA      787
           323  5130000011 C                      SA3    EL.HOL            SET ELIST POINTER IN BIT FIELD        FCC0537    53
                          12606                   BX6    X0+X6                                                   DATA      788
                               20350              LX3    40                                                      FCC0537    54
           324  63160                             SB1    X6                WORD COUNT FOR ADIT                   DATA      789
                     12663                        BX6    X6+X3                                                   FCC0537    55
                                                                                                                 DATA      790
           325  0100000357 +             ADDCON3  RJ     ADIT              ADD X6,X1 AND X2 TO CON TABLE         DATA      791
           326  5150000032                        GETE                     RESTORE REGISTERS                     DATA      792
           327  0400400327 +             ADDCON   ENTRY. *                                                       DATA      793
           330  75645                             UPDATE                                                         DATA      794
                          21155                   AX1    45                POSITION CON TYPE                     DATA      795
                               67105              SB1    -B5                                                     DATA      796
           331  7221777771                        SX2    X1-T.HOL                                                DATA      797
                          74640                   SX6    A4                STORE ELIST ADDRESS TEMPORARILY       FCC0537    56
           332  5160000011 C                      SA6    EL.HOL                                                  FCC0537    57
                          0312000314 +            NZ     X2,ADDCON1        IF NOT HOLLERITH                      DATA      798
                                                                                                                 DATA      799
           333  10144                             BX1    X4                PROCESS HOLLERITH CONSTANT            DATA      800
                     21422                        AX4    18                                                      DATA      801
                          6110000011              SB1    9                                                       DATA      802
           334  73241                             SX2    X4+B1                                                   DATA      803
                     76015                        SX0    B1+B5                                                   DATA      804
                          5130000227 +            SA3    HOL.DIT           DIT HEADER WORD                       DATA      805
           335  27202                             IX2    X2/X0             WC = (CC+9)/10                        DATA      806
           337  6277777777                        SB7    X7-0                                                    FCC1512X    7
                          74740                   SX7    A4                                                      FCC0537    59
                               12632              BX6    X3+X2                                                   DATA      807
           340  20750                             LX7    40                                                      FCC0537    60
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    20
         BIT - BUILD DATA ITEM TABLE                                  ADDCON
  
                     12667                        BX6    X6+X7                                                   FCC0537    61
                          7272777776              SX7    X2-1                                                    FCC0537    62
           341  73440                             SX4    X4                CHAR COUNT                            DATA      808
                     76015                        SX0    B1+B5                                                   DATA      809
                          5170000007 C            SA7    WC.HOL            SET WC.HOL FLAG                       FCC0537    63
           342  42202                             IX2    X0*X2                                                   DATA      810
                     37542                        IX5    X4-X2             CC-10*WC                              DATA      811
                          66150                   SB1    B5                                                      DATA      812
           343  0770000346 +                      MI     B7,ADDCONH        IF CON IS PRECEDED BY A - SIGN        FCC0537    64
                          0305000325 +            ZR     X5,ADDCON3        IF CC IS A MULTIPLE OF 10             DATA      814
           344  7255000012                        SX5    X5+10D                                                  DATA      815
                          20544                   LX5    36                                                      DATA      816
                               12656              BX6    X5+X6             SAVE NUMBER OF CHARS IN LAST WORD     DATA      817
           345  0400000325 +                      EQ     ADDCON3                                                 DATA      818
                                                                                                                 DATA      819
                                        *         -CON - COMPLEMENT CONSTOR ENTRY AND ADJUST LAST WORD           DATA      820
                                                                                                                 DATA      821
           346  63210                    ADDCONH  SB2    X1                FWA OF CON                            DATA      822
                     10411                        BX4    X1                                                      DATA      823
                          63362                   SB3    B2+X6             LWA+1                                 DATA      824
                               43072              MX0    60-2        MASK FOR ONLY PART OF TYPE FIELD            DATA      825
           347  56220                   +         SA2    B2                                                      DATA      826
                     14722                        BX7    -X2                                                     DATA      827
                          66225                   SB2    B2+B5             I = I+1                               DATA      828
                               54720              SA7    A2                                                      DATA      829
           350  0723000347 +                      LT     B2,B3,*-1                                               DATA      830
                          0305000325 +            ZR     X5,ADDCON3        IF NO PARTIAL WORD                    DATA      831
                                                                                                                 DATA      832
           351  21444                             AX4    36                                                      DATA      833
                     15340                        BX3    -X0*X4            HOL TYPE                              DATA      834
                          0303000325 +            ZR     X3,ADDCON3        IF H FORMAT                           DATA      835
           352  7255000012                        SX5    X5+10D                                                  DATA      836
                          20501                   LX5    1                                                       DATA      837
                               63430              SB4    X3                                                      DATA      838
           353  22755                             LX7    B5,X5                                                   DATA      839
                     43001                        MX0    1                                                       DATA      840
                          36457                   IX4    X5+X7             6*CHAR IN LAST WORD                   DATA      841
           354  6234777776                        SB3    X4-1                                                    DATA      842
                          23030                   AX0    B3,X0                                                   DATA      843
                               11202              BX2    X0*X2             REMOVE TRAILING BLANKS                DATA      844
           355  0445000356 +                      EQ     B4,B5,ADDCONH1    IF L FORMAT                           DATA      845
                          66335                   SB3    B3+B5                                                   DATA      846
                               22232              LX2    B3,X2             R FORMAT - RIGHT JUSTIFY LAST WORD    DATA      847
           356  14722                    ADDCONH1 BX7    -X2                                                     DATA      848
                     54770                        SA7    A7                                                      DATA      849
                          0400000325 +            EQ     ADDCON3                                                 DATA      850
  
  
  
                                        ***                                                                      DATA      852
                                        *         ADIT - ADD WORDS TO DIT TABLE                                  DATA      853
                                        *                                                                        DATA      854
                                        *         ON ENTRY:                                                      DATA      855
                                        *                X6,X1,X2 = WORDS TO BE ADDED                            DATA      856
                                        *                B1 = NUMBER OF WORDS - 1 TO BE ADDED                    DATA      857
                                        *                X6 IS ALWAYS ADDED                                      DATA      858
                                        *                                                                        DATA      859
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    21
         BIT - BUILD DATA ITEM TABLE
  
                                                                                                                 DATA      860
           357  0400400357 +             ADIT     ENTRY. *                                                       DATA      861
           360  10711                             BX7    X1                                                      DATA      862
                     5170000014 C                 SA7    SW1               SAVE WORD 2                           DATA      863
                               10166              BX1    X6                SETUP FOR ADDWD CALL                  DATA      864
           361  22602                             LX6    X2                                                      DATA      865
                     5160000015 C                 SA6    SW2               SAVE WORD 3                           DATA      866
                               76710              SX7    B1                                                      DATA      867
           362  5170000016 C                      SA7    SW3               SAVE WORD COUNT                       DATA      868
                          5100000000 X            ADDWD  DIT               ADD THE FIRST WORD TO THE DIT         DATA      869
           364  5120000016 C                      SA2    SW3                                                     DATA      870
                          0302000357 +            ZR     X2,ADIT           IF ONE WORD TO ADD                    DATA      871
           365  5110000014 C                      SA1    SW1                                                     DATA      872
                          5100000000 X            ADDWD  DIT               ADD 2ND WORD TO DIT                   DATA      873
           367  5120000016 C                      SA2    SW3                                                     DATA      874
                          21201                   AX2    1                                                       DATA      875
           370  0302000357 +                      ZR     X2,ADIT           IF 2 WORDS REQUESTED                  DATA      876
                          5110000015 C            SA1    SW2                                                     DATA      877
           371  5100000000 X                      ADDWD  DIT               ADD WORD 3 TO DIT                     DATA      878
           372  0400000357 +                      EQ     ADIT                                                    DATA      879
                                                                                                                 DATA      880
                                                  USE    /MACBUF/                                                DATA      881
            14                     1     SW1      BSS    1                 SAVED WORDS FOR ADIT                  DATA      882
            15                     1     SW2      BSS    1                                                       DATA      883
            16                     1     SW3      BSS    1                                                       DATA      884
                                                  USE    *                                                       DATA      885
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    22
        BVT - PROCESS DATA VARIABLE LIST
  
                                        ***                                                                      DATA      887
                                        *         BVT - PROCESS DATA VARIABLE LIST                               DATA      888
                                        *                SCANS DATA VARIABLE LIST AND BUILDS A "DVT" ENTRY FOR   DATA      889
                                        *                ITEM, FORMAT:                                           DATA      890
                                        *                                                                        FCC1563X   47
                                        *         1/0,1/SDPF,1/ORGF,1/DDD,14/0,6/CTYP,18/SYMORD,18/EQUIV BIAS    FCC1563X   48
                                        *         24/0,18/LENGTH,18/ITEM COUNT                                   FCC1563X   49
                                        *                                                                        DATA      893
                                        *                WHERE:                                                  DATA      894
                                        *                 SDPF = 0 IF SINGLE PRECISION , ELSE 1                  DATA      895
                                        *                 ORGF = 1 IF WE ISSUED STORAGE IN DPCLOSE FOR THE VAR   DATA      896
                                        *                 DDD = 1 IF PREVIOUS APPEARENCES IN A DATA STMT         DATA      897
                                        *                 LENGTH = AMOUNT OF STORAGE ASSIGNED TO THE VAR         DATA      898
                                        *                 ITEM COUNT = NUMBER OF ITEMS                           DATA      899
                                        *                                                                        DATA      900
                                        *                IN THE CASE THAT EXPLICIT DO LOOPS APPEAR, THEY ARE     DATA      901
                                        *                REDUCED TO THE FORM:                                    DATA      902
                                        *                 6/P,18/M(P),18/T(I),18/DIM(P)                          DATA      903
                                        *                (((A(M1*I1,M2*I2,M3*I3),I = 1,T1),J = 1,T2),K = 1,T3)   DATA      904
                                        *                WHERE I1 I2 I3 IS SOME PERMUTATION OF I,J AND K .       DATA      905
                                        *                THE ADDITIONAL BIAS IS STORED IN THE BIAS FIELD         DATA      906
                                        *                AND SUBSCRIPT WORDS OF THE FORM:                        DATA      907
                                        *                ARE APPENDED, WHERE:                                    DATA      908
                                        *                 P = ORDER OF APPEARENCE IN SUBSCRIPT EXPR              DATA      909
                                        *                 M(P) = MULTIPLIER                                      DATA      910
                                        *                 T(I) = UPPER LIMIT = TRIP COUNT FOR LOOP               DATA      911
                                        *                 DIM(P) = P"TH DIMENSION OF THE ARRAY                   DATA      912
                                        *                                                                        DATA      913
                                        *                                                                        DATA      914
                                        *         IF THE DATA VARIABLE LIST IS LONGER THAN THE DATA ITEM LIST,   DATA      915
                                        *         -BVT- RETURNS TO THE CALLER AFTER ISSUING AN INFORMATIVE       DATA      916
                                        *         DIAGNOSTIC.  N.ITEM IS ZEROED TO PREVENT ISSUING THE MESSAGE   DATA      917
                                        *         -VAR LIST .GT. CON LIST- TWICE.  THE -DATA.- BLOCK LENGTH IS   DATA      918
                                        *         NOT INCREMENTED, NOR IS STORAGE ISSUED TO -COMPS-, FOR THOSE   DATA      919
                                        *         VARIABLES WITHOUT MATCHING DATA ITEMS.  ON EXIT, -SELIST- HAS  DATA      920
                                        *         NOT BEEN UPDATED TO SKIP OVER THE UNMATCHED VARIABLES IN       DATA      921
                                        *         E-LIST.  STATEMENT PROCESSING MAY BE RESUMED AT THE NEXT       DATA      922
                                        *         VARIABLE/CONSTANT SUBLIST PAIR BY FETCHING THE NEXT -DIL-      DATA      923
                                        *         TABLE ENTRY, WHICH WILL CONTAIN THE FWA OF THE NEXT VARIABLE   DATA      924
                                        *         LIST STRING IN E-LIST.                                         DATA      925
                                                                                                                 DATA      926
                                  72     P.SDPF   EQU    58                SINGLE/DOUBLE PRECISION FLAG          DATA      927
                                  71     P.ORGF   EQU    57                ORG/NO ORG FLAG                       DATA      928
                                  70     P.DDD    EQU    56                SECOND DEFINITION IN A DATA STMT      DATA      929
                                  67     P.LCMI   EQU    55          LCM INDIRECT ADD. FLAG                      DATA      930
                                  22     P.SYMORD EQU    18                SYMTAB ORD IN BITS 18-35              DATA      931
                                  44     P.CTYP   EQU    36          CONSTANT TYPE FIELD POSITION                FCC1563X   50
                                                                                                                 DATA      932
           373  0400400373 +             BVT      ENTRY. *                                                       DATA      933
                                                                                                                 DATA      934
           374  55445                    BVT1     NEXTE                    NEXT ELEMENT                          DATA      935
                          5130000002 C            SA3    N.ITEM                                                  DATA      936
           375  43600                             MX6    0                                                       DATA      937
                     63730                        SB7    X3                                                      DATA      938
                          5160000024 C            SA6    BIAS                                                    DATA      939
           376  5160000046 C                      SA6    N.VSUB                                                  DATA      940
                          0525000431 +            IF.NE  NAME,BVT3         IF NOT A NAME                         DATA      941
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    23
        BVT - PROCESS DATA VARIABLE LIST
  
           377  0607000620 +                      LE     B7,B0,BVT.E10     IF MORE DATA VARS THAN CON LIST ITEMS DATA      942
                          0100001274 +            RJ     PDV               PROCESS NAME                          DATA      943
           400  5130001431 +                      SA3    M.SEP1            , / OR (                              DATA      944
                          22723                   LX7    B2,X3                                                   DATA      945
           401  0327000607 +                      PL     X7,BVT.E1         IF ILLEGAL ITEM FOLLOWING NAME        DATA      946
                          6130000006              IF.EQ  EL.(,BVT1A        IF NAME(                              DATA      947
                          5130000010 +            SA3    N.DIMS                                                  DATA      948
           403  0303000425 +                      ZR     X3,BVT2           IF A SIMPLE VARIABLE                  DATA      949
                          5170000003 +            SA7    NONANSI           SET NON ANSI USEAGE FLAG              DATA      950
           404  0400000425 +                      EQ     BVT2                                                    DATA      951
                                                                                                                 DATA      952
                                        *         PROCESS A(C1,C2,C3)                                            DATA      953
                                                                                                                 DATA      954
           405  0100000622 +             BVT1A    RJ     PSS               PROCESS SUBSCRIPT LIST                DATA      955
           406  0570000613 +                      NZ     B7,BVT.E5         IF VARIABLE SUBS APPEARED             DATA      956
                                                                                                                 DATA      957
                                        *         COMPUTE BIAS OF A(C1,C2,C3)                                    DATA      958
                                                                                                                 DATA      959
                          5120000045 C            SA2    N.SUBS                                                  DATA      960
           407  5110000037 C                      SA1    CON2                                                    DATA      961
                          63120                   SB1    X2                                                      DATA      962
                               67305              SB3    -B5               B3 = -1                               DATA      963
           410  73613                             SX6    X1+B3             C1-1                                  DATA      964
                     0415000415 +                 EQ     B1,B5,BVT1B       IF ONLY 1 SUBSCRIPT                   DATA      965
                               54115              SA1    A1+B5             C2                                    DATA      966
           411  5120000015 +                      SA2    DIM.MUL+1         DIM1                                  DATA      967
                          67115                   SB1    B1-B5                                                   DATA      968
                               73113              SX1    X1+B3             C2-1                                  DATA      969
           412  42321                             IX3    X2*X1             DIM1*(C2-1)                           DATA      970
                     36636                        IX6    X3+X6                                                   DATA      971
                          0415000415 +            EQ     B1,B5,BVT1B       IF 2 SUBS                             DATA      972
           413  54115                             SA1    A1+B5             C3                                    DATA      973
                     54225                        SA2    A2+B5             DIM1*DIM2                             DATA      974
                          73113                   SX1    X1+B3                                                   DATA      975
                               42321              IX3    X2*X1             DIM1*DIM2*(C3-1)                      DATA      976
           414  36636                             IX6    X3+X6                                                   DATA      977
           415  5130000006 +             BVT1B    SA3    SDPF                                                    DATA      978
                          63330                   SB3    X3                                                      DATA      979
                               22636              LX6    B3,X6             *2 IF 2 WORDS /ENTRY                  DATA      980
           416  5160000024 C                      SA6    BIAS                                                    DATA      981
                                                                                                                 DATA      982
           417  5120000020 C             BVT1C    SA2    DVT+1             ADJUST SECOND WORD OF DVT ENTRY       DATA      983
                          21222                   AX2    18                WORD LENGTH OF ARRAY                  DATA      984
                               37226              IX2    X2-X6             REDUCE BY BIAS                        DATA      985
           420  0332000617 +                      NG     X2,BVT.E9         IF LOCF(A(C1,C2,C3)) IS OUT OF RANGE  DATA      986
                          0302000617 +            ZR     X2,BVT.E9   IF OUT OF RANGE                             FCCA476    11
           421  20222                             LX2    18                (FOR PROPER HANDLING OF HOLLERITH CON DATA      987
                     76050                        SX0    B5                SET ITEM COUNT = 1                    DATA      988
                          12602                   BX6    X0+X2                                                   DATA      989
                               54620              SA6    A2                                                      DATA      990
           422  5150000032                        GETE                     GET SEPERATOR                         DATA      991
           423  6130000003                        IF.EQ  EL.COMMA,BVT2     IF A ,                                DATA      992
           424  6130000023                        IF.NE  EL.SLASH,BVT.E1   IF NO /                               DATA      993
                                                                                                                 DATA      994
           425  76500                    BVT2     SX5    B0                                                      DATA      995
                     0100000720 +                 RJ     MDL               MATCH UP LISTS                        DATA      996
           426  5150000032                        GETE                     RESTORE SEPERATOR                     DATA      997
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    24
        BVT - PROCESS DATA VARIABLE LIST
  
           427  6130000023                        IF.NE  EL.SLASH,BVT1     LOOP IF NOT END OF VAR LIST           DATA      998
           430  0400000373 +                      EQ     BVT                                                     DATA      999
                                                                                                                 DATA     1000
                                        *         PROCESS EXPLICIT DO LOOPS                                      DATA     1001
                                                                                                                 DATA     1002
           431  6130000006               BVT3     IF.NE  EL.(,BVT.E3       IF NO (                               DATA     1003
           432  76700                             SX7    B0                                                      DATA     1004
           433  55445                    BVT4     NEXTE                    NEXT ELIST ELEMENT                    DATA     1005
                          73775                   SX7    X7+B5             INCREMENT PAREN COUNT                 DATA     1006
           434  0423000433 +                      EQ     B2,B3,BVT4        LOOP IF A (                           DATA     1007
                          0525000611 +            IF.NE  NAME,BVT.E3       ERROR IF NEXT IS NOT A NAME           DATA     1008
           435  0607000620 +                      LE     B7,B0,BVT.E10     IF MORE DATA VARS THAN CON LIST ITEMS DATA     1009
                          5170000003 C            SA7    PL                SAVE PAREN LEVEL                      DATA     1010
           436  5170000003 +                      SA7    NONANSI           SET NON ASNI USEAGE FLAG              DATA     1011
                          0100001274 +            RJ     PDV               PROCESS ARRAY NAME                    DATA     1012
           437  6130000006                        IF.NE  EL.(,BVT.E2       ERROR IF NOT NAME(                    DATA     1013
           440  0100000622 +                      RJ     PSS               PROCESS SUBSCRIPT LIST                DATA     1014
           441  5110000003 C                      SA1    PL                                                      DATA     1015
                          63610                   SB6    X1                                                      DATA     1016
           442  0767000610 +                      GT     B7,B6,BVT.E2      ERR IF MORE VARIABLE SUBS THEN LOOPS  DATA     1017
                                                                                                                 DATA     1018
                                        *         SYNTAX CHECK DO INDICES AND CONVERT LOOP TO CANONICAL FORM     DATA     1019
                                                                                                                 DATA     1020
                          66100                   SB1    B0                LOOP INDEX                            DATA     1021
                               43600              MX6    0                                                       DATA     1022
           443  5160000046 C                      SA6    N.VSUB            CLEAR LOOP COUNTER                    DATA     1023
                                                                                                                 DATA     1024
           444  5150000032               BVT5     GETE                                                           DATA     1025
           445  6130000003                        IF.NE  EL.COMMA,BVT.E2   IF NO ,                               DATA     1026
           446  55445                             NEXTE                                                          DATA     1027
                          0525000610 +            IF.NE  NAME,BVT.E2       IF NO INDEX VARIABLE                  DATA     1028
                                                                                                                 DATA     1029
                                        *         SEARCH SUBSCRIPT TABLE FOR MATCH OF INDEX VARIABLE             DATA     1030
                                                                                                                 DATA     1031
           447  5120000045 C                      SA2    N.SUBS                                                  DATA     1032
                          66200                   SB2    B0                INDEX                                 DATA     1033
                               63320              SB3    X2                LIMIT                                 DATA     1034
           450  5132000034 C             BVT6     SA3    INDX+B2           SUBSCRIPT VARIABLE                    DATA     1035
                          66225                   SB2    B2+B5             P = P+1                               DATA     1036
                               37543              IX5    X4-X3                                                   DATA     1037
           451  0305000453 +                      ZR     X5,BVT7           IF A MATCH                            DATA     1038
                          0723000450 +            LT     B2,B3,BVT6        IF MORE SUBS TO GO                    DATA     1039
           452  0400000612 +                      EQ     BVT.E4            IF LOOP INDEX DOESN"T MATCH SUBSC VAR DATA     1040
                                                                                                                 DATA     1041
           453  76615                    BVT7     SX6    B1+B5                                                   DATA     1042
                     54630                        SA6    A3                INDX(P) = I                           DATA     1043
                          77725                   SX7    B2-B5                                                   DATA     1044
           454  5170000030 C                      SA7    SUBN              SUBN = P                              DATA     1045
                                                                                                                 DATA     1046
                          55445                   NEXTE                                                          DATA     1047
           455  6130000005                        IF.NE  EL.=,BVT.E2       IF NO = SIGN                          DATA     1048
           456  55445                             NEXTE                                                          DATA     1049
                          0520000610 +            IF.NE  CON,BVT.E2        IF NO LOWER LIMIT                     DATA     1050
           457  10644                             BX6    X4                                                      DATA     1051
                     5160000025 C                 SA6    LL                                                      DATA     1052
                               55445              NEXTE                                                          DATA     1053
                     6130000003                   IF.NE  EL.COMMA,BVT.E2   IF NO ,                               DATA     1054
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    25
        BVT - PROCESS DATA VARIABLE LIST
  
                          55445                   NEXTE                                                          DATA     1055
           462  0520000610 +                      IF.NE  CON,BVT.E2        IF NO UPPER LIMIT                     DATA     1056
                          10644                   BX6    X4                                                      DATA     1057
           463  5160000026 C                      SA6    UL                                                      DATA     1058
                          55445                   NEXTE                                                          DATA     1059
           464  43600                             MX6    0                                                       DATA     1060
                     5160000027 C                 SA6    INC                                                     DATA     1061
           465  6130000003                        IF.NE  EL.COMMA,BVT8                                           DATA     1062
           466  55445                             NEXTE                                                          DATA     1063
                          0520000610 +            IF.NE  CON,BVT.E2        IF NO INCREMENT                       DATA     1064
           467  10644                             BX6    X4                                                      DATA     1065
                     54660                        SA6    A6                SAVE INCREMENT                        DATA     1066
                          55445                   NEXTE                                                          DATA     1067
           470  6130000002               BVT8     IF.NE  EL.),BVT.E2       IF NO )                               DATA     1068
           471  75645                             UPDATE                   SAVE ELIST POINTER                    DATA     1069
                                                                                                                 DATA     1070
                          5140000025 C            SA4    LL                                                      DATA     1071
           472  0100000303 +                      RJ     CHKSC             CONVERT LOWER LIMIT                   DATA     1072
           473  5160000025 C                      SA6    LL                                                      DATA     1073
                          5140000026 C            SA4    UL                                                      DATA     1074
           474  0100000303 +                      RJ     CHKSC             CONVERT UPPER LIMIT                   DATA     1075
           475  5160000026 C                      SA6    UL                                                      DATA     1076
                          5140000027 C            SA4    INC                                                     DATA     1077
           476  76650                             SX6    B5                                                      DATA     1078
                     0304000500 +                 ZR     X4,BVT9           IF NO INCREMENT                       DATA     1079
           477  0100000303 +                      RJ     CHKSC             CONVERT                               DATA     1080
           500  5160000027 C             BVT9     SA6    INC                                                     DATA     1081
                                                                                                                 DATA     1082
                                        *         TEST FOR LOWER LIMIT OF SUBSCRIPT OUTSIDE OF DIM RANGE         DATA     1083
                                                                                                                 DATA     1084
                          5150000030 C            SA5    SUBN                                                    DATA     1085
           501  63250                             SB2    X5                B2 = J                                DATA     1086
                     5112000031 C                 SA1    CON1+B2           CON1(J)                               DATA     1087
           502  5120000025 C                      SA2    LL                                                      DATA     1088
                          5132000037 C            SA3    CON2+B2           CON2(J)                               DATA     1089
           503  42012                             IX0    X1*X2                                                   DATA     1090
                     36703                        IX7    X0+X3             X7 = V = C1*LL+C2                     DATA     1091
                          7267777776              SX6    X7-1                                                    DATA     1092
           504  0336000614 +                      NG     X6,BVT.E6         IF SUBSC VALUE < 1                    DATA     1093
                                                                                                                 DATA     1094
                                        *         TEST FOR DEGENERATE LOOP ( A 1 TRIP LOOP )                     DATA     1095
                                                                                                                 DATA     1096
                          5150000046 C            SA5    N.VSUB                                                  DATA     1097
           505  5110000026 C                      SA1    UL                                                      DATA     1098
                          63150                   SB1    X5                B1 = LOOP NUMBER                      DATA     1099
                               73220              SX2    X2                LL                                    DATA     1100
           506  37021                             IX0    X2-X1             LL-UL                                 DATA     1101
                     0320000513 +                 PL     X0,BVT10          IF DEGENERATE ( LL \ UL )             DATA     1102
                                                                                                                 DATA     1103
           507  5130000027 C                      SA3    INC                                                     DATA     1104
                          37030                   IX0    X3-X0             UL-LL+INC                             DATA     1105
                               27000              IX6    X0/X3             TRIP COUNT = X0/INC                   DATA     1106
                          63660                   SB6    X6                                                      DATA     1107
           512  0565000515 +                      NE     B6,B5,BVT11       IF NOT DEGENREATE                     DATA     1108
                                                                                                                 DATA     1109
                                        *         1 TRIP LOOP - CHANGE TO CONSTANT SUBSCRIPT                     DATA     1110
                                                                                                                 DATA     1111
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    26
        BVT - PROCESS DATA VARIABLE LIST
  
           513  43600                    BVT10    MX6    0                                                       DATA     1112
                     5162000034 C                 SA6    INDX+B2           INDX(J) = 0                           DATA     1113
           514  5172000037 C                      SA7    CON2+B2           CON2(J) = V                           DATA     1114
                          0400000531 +            EQ     BVT12                                                   DATA     1115
                                                                                                                 DATA     1116
                                        *         NORMAL CASE - ADJUST C1 AND C2  SO LOOP TAKES THE FORM         DATA     1117
                                        *                ( A( ,C1*I+C2, ) , I = 1,TC )                           DATA     1118
                                                                                                                 DATA     1119
           515  5110000027 C             BVT11    SA1    INC                                                     DATA     1120
                          5122000031 C            SA2    CON1+B2                                                 DATA     1121
           516  5132000037 C                      SA3    CON2+B2                                                 DATA     1122
                          5140000025 C            SA4    LL                                                      DATA     1123
           517  37541                             IX5    X4-X1                                                   DATA     1124
                     42612                        IX6    X1*X2                                                   DATA     1125
                          54620                   SA6    A2                C1 = C1*INC                           DATA     1126
                               42425              IX4    X2*X5                                                   DATA     1127
           520  36734                             IX7    X3+X4                                                   DATA     1128
                     54730                        SA7    A3                C2 = C2+C1*(LL-INC)                   DATA     1129
                                                                                                                 DATA     1130
                                        *         COMBINE AND STORE P, C1(P) , TC AND DIM(P) IN LPINF(I)         DATA     1131
                                                                                                                 DATA     1132
                          20644                   LX6    36                C1                                    DATA     1133
           521  5142000011 +                      SA4    DIM+B2                                                  DATA     1134
                          12646                   BX6    X4+X6                                                   DATA     1135
                               76020              SX0    B2                P                                     DATA     1136
           522  20066                             LX0    54                                                      DATA     1137
                     12606                        BX6    X0+X6                                                   DATA     1138
                          76760                   SX7    B6                TC                                    DATA     1139
                               20722              LX7    18                                                      DATA     1140
           523  12676                             BX6    X7+X6                                                   DATA     1141
                     5161000021 C                 SA6    LPINF+B1          SAVE SUBSCRIPT INFO                   DATA     1142
                               76715              SX7    B1+B5                                                   DATA     1143
           524  66115                             SB1    B1+B5                                                   DATA     1144
                     5170000046 C                 SA7    N.VSUB            ADVANCE INDEX AND SAVE                DATA     1145
                                                                                                                 DATA     1146
                                        *         ADJUST BIAS TO ELIMINATE CONSTANT ADDEND ( C2(J) )             DATA     1147
                                                                                                                 DATA     1148
           525  5110000024 C                      SA1    BIAS                                                    DATA     1149
                          5122000014 +            SA2    DIM.MUL+B2        DIM.MUL(J)                            DATA     1150
           526  5132000037 C                      SA3    CON2+B2                                                 DATA     1151
                          5150000006 +            SA5    SDPF                                                    DATA     1152
           527  63450                             SB4    X5                                                      DATA     1153
                     42423                        IX4    X2*X3                                                   DATA     1154
                          22544                   LX5    B4,X4             *2**SDPF                              DATA     1155
                               36651              IX6    X5+X1             BIAS = BIAS+DIM.MUL(J)*C2(J)*2**SDPF  DATA     1156
           530  54610                             SA6    A1                                                      DATA     1157
                                                                                                                 DATA     1158
           531  5150000003 C             BVT12    SA5    PL                                                      DATA     1159
                          7265777776              SX6    X5-1                                                    DATA     1160
           532  54650                             SA6    A5                PL = PL-1                             DATA     1161
                     0316000444 +                 NZ     X6,BVT5           LOOP IF MORE TO GO                    DATA     1162
                                                                                                                 DATA     1163
                                        *         ADD TO THE BIAS THE CONTRIBUTION DUE TO CONSTANT SUBSCRIPTS    DATA     1164
                                        *         I.E. - A( ,C2, )                                               DATA     1165
                                                                                                                 DATA     1166
           533  5120000045 C                      SA2    N.SUBS                                                  DATA     1167
                          5130000006 +            SA3    SDPF                                                    DATA     1168
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    27
        BVT - PROCESS DATA VARIABLE LIST
  
           534  5150000024 C                      SA5    BIAS                                                    DATA     1169
                          66100                   SB1    B0                INDEX                                 DATA     1170
                               63220              SB2    X2                LIMIT                                 DATA     1171
           535  63430                             SB4    X3                SDPF                                  DATA     1172
                     67305                        SB3    -B5               -1                                    DATA     1173
                          10655                   BX6    X5                                                      DATA     1174
                                                                                                                 DATA     1175
           536  5111000034 C             BVT13    SA1    INDX+B1                                                 DATA     1176
                          0311000541 +            NZ     X1,BVT14          IF A DO INDEXED SUBSCRIPT             DATA     1177
           537  5121000037 C                      SA2    CON2+B1                                                 DATA     1178
                          5131000014 +            SA3    DIM.MUL+B1                                              DATA     1179
           540  73223                             SX2    X2+B3                                                   DATA     1180
                     42432                        IX4    X3*X2                                                   DATA     1181
                          22544                   LX5    B4,X4                                                   DATA     1182
                               36656              IX6    X5+X6             BIAS = BIAS+DM(I)*(C2(I)-1)*2**SDPF   DATA     1183
           541  66115                    BVT14    SB1    B1+B5                                                   DATA     1184
                     0712000536 +                 LT     B1,B2,BVT13       IF MORE TO GO                         DATA     1185
                               54650              SA6    A5                UPDATE BIAS                           DATA     1186
                                                                                                                 DATA     1187
                                        *         COLLAPSE INNERMOST LOOPS IF THE SUBSCRIPTS ARE IN STANDARD     DATA     1188
                                        *         ORDER ( IJK )                                                  DATA     1189
                                                                                                                 DATA     1190
           542  5120000046 C                      SA2    N.VSUB            NUMBER OF LOOPS                       DATA     1191
                          0302000417 +            ZR     X2,BVT1C          IF ALL LOOPS ARE DEGENERATE           DATA     1192
           543  66100                             SB1    B0                INDEX                                 DATA     1193
                     63220                        SB2    X2                LIMIT                                 DATA     1194
                          0425000566 +            EQ     B2,B5,BVT18       IF ONLY 1 LOOP                        DATA     1195
                                                                                                                 DATA     1196
           544  5111000021 C             BVT15    SA1    LPINF+B1          LOOP INFORMATION WORD                 DATA     1197
                          73410                   SX4    X1                DIM(P)                                DATA     1198
                               21122              AX1    18                                                      DATA     1199
           545  73310                             SX3    X1                TC                                    DATA     1200
                     21122                        AX1    18                                                      DATA     1201
                          63310                   SB3    X1                M                                     DATA     1202
                               21122              AX1    18                                                      DATA     1203
           546  63410                             SB4    X1                P                                     DATA     1204
                     0541000566 +                 NE     B4,B1,BVT18       IF NOT IJK ORDER                      DATA     1205
           547  0535000557 +                      NE     B3,B5,BVT17       IF M " 1                              DATA     1206
                          37534                   IX5    X3-X4                                                   DATA     1207
                               66115              SB1    B1+B5                                                   DATA     1208
           550  0335000557 +                      NG     X5,BVT17          IF TC < DIM                           DATA     1209
                          0712000544 +            LT     B1,B2,BVT15                                             DATA     1210
                                                                                                                 DATA     1211
                                        *         SUCCESS - REDUCE TO A SINGLE LOOP                              DATA     1212
                                                                                                                 DATA     1213
           551  5112000020 C             BVT16    SA1    LPINF-1+B2        LAST LOOP INFO WORD                   DATA     1214
                          5122000013 +            SA2    DIM.MUL-1+B2                                            DATA     1215
           552  21122                             AX1    18                                                      DATA     1216
                     73110                        SX1    X1                TC FOR LAST LOOP                      DATA     1217
                          42312                   IX3    X1*X2                                                   DATA     1218
           553  5140000020 C                      SA4    DVT+1                                                   DATA     1219
                          73440                   SX4    X4                PI DIMS                               DATA     1220
                               76750              SX7    B5                                                      DATA     1221
           554  5170000046 C                      SA7    N.VSUB            NUMBER OF LOOPS                       DATA     1222
                          20322                   LX3    18                                                      DATA     1223
                               12634              BX6    X3+X4                                                   DATA     1224
           555  20744                             LX7    36                M = 1                                 DATA     1225
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    28
        BVT - PROCESS DATA VARIABLE LIST
  
                     36776                        IX7    X7+X6                                                   DATA     1226
                          5170000021 C            SA7    LPINF             UPDATE LOOP INFO WORD                 DATA     1227
           556  0400000566 +                      EQ     BVT18                                                   DATA     1228
                                                                                                                 DATA     1229
                                        *         PARTIAL SUCCESS - COLLAPSE INNERMOST LOOPS                     DATA     1230
                                                                                                                 DATA     1231
           557  0651000566 +             BVT17    LE     B1,B5,BVT18       IF WE CAN"T COLLAPSE AT LEAST 2 LOOPS DATA     1232
                          0412000551 +            EQ     B1,B2,BVT16       IF COMPLETE REDUCTION                 DATA     1233
                                                                                                                 DATA     1234
           560  5110000021 C                      SA1    LPINF             MERGE FIRST AND SECOND LOOPS          DATA     1235
                          54215                   SA2    A1+B5                                                   DATA     1236
                               21122              AX1    18                                                      DATA     1237
           561  73110                             SX1    X1                                                      DATA     1238
                     21222                        AX2    18                                                      DATA     1239
                          73220                   SX2    X2                                                      DATA     1240
                               42312              IX3    X1*X2             TC1*TC2                               DATA     1241
           562  76750                             SX7    B5                                                      DATA     1242
                     20744                        LX7    36                M = 1                                 DATA     1243
                          5140000016 +            SA4    DIM.MUL+2         DIM1*DIM2                             DATA     1244
           563  20322                             LX3    18                                                      DATA     1245
                     12634                        BX6    X3+X4                                                   DATA     1246
                          36776                   IX7    X7+X6                                                   DATA     1247
                               54710              SA7    A1                UPDATE FIRST LOOP INFO WORD           DATA     1248
           564  77625                             SX6    B2-B5                                                   DATA     1249
                     5160000046 C                 SA6    N.VSUB            UPDATE N.VSUB                         DATA     1250
                               54525              SA5    A2+B5                                                   DATA     1251
           565  10755                             BX7    X5                MOVE LAST LOOP INFO WORD DOWN         DATA     1252
                     54720                        SA7    A2                                                      DATA     1253
                                                                                                                 DATA     1254
                                        *         COMPUTE A(M1*T1,M2*T2,M3,T3) AND SEE IF IT IS WITHIN           DATA     1255
                                        *         THE ARRAY BOUNDS                                               DATA     1256
                                                                                                                 DATA     1257
           566  5150000046 C             BVT18    SA5    N.VSUB            NUMBER OF LOOPS                       DATA     1258
                          66100                   SB1    B0                INDEX                                 DATA     1259
                               63250              SB2    X5                LIMIT                                 DATA     1260
           567  5140000006 +                      SA4    SDPF                                                    DATA     1261
                          67305                   SB3    -B5               B3 = -1                               DATA     1262
                               63440              SB4    X4                B4 = SDPF                             DATA     1263
           570  5130000024 C                      SA3    BIAS                                                    DATA     1264
                          23643                   AX6    B4,X3                                                   DATA     1265
                                                                                                                 DATA     1266
           571  5141000021 C             BVT19    SA4    LPINF+B1                                                DATA     1267
                          21422                   AX4    18                                                      DATA     1268
                               73140              SX1    X4                T(I)                                  DATA     1269
           572  21422                             AX4    18                                                      DATA     1270
                     73240                        SX2    X4                M(I)                                  DATA     1271
                          21422                   AX4    18                P                                     DATA     1272
           573  5234000014 +                      SA3    DIM.MUL+X4        DM(P)                                 DATA     1273
                          42012                   IX0    X1*X2                                                   DATA     1274
                               73103              SX1    X0+B3             M*T-1                                 DATA     1275
           574  42231                             IX2    X3*X1             DM*( M*T-1 )                          DATA     1276
                     36626                        IX6    X2+X6                                                   DATA     1277
                          66115                   SB1    B1+B5                                                   DATA     1278
           575  0712000571 +                      LT     B1,B2,BVT19       IF MORE TO GO                         DATA     1279
                          22646                   LX6    B4,X6             *2**SDPF                              DATA     1280
           576  5120000020 C                      SA2    DVT+1                                                   DATA     1281
                          21222                   AX2    18                ARRAY LENGTH                          DATA     1282
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    29
        BVT - PROCESS DATA VARIABLE LIST
  
                               37362              IX3    X6-X2             BIAS - LEN                            DATA     1283
           577  0333000602 +                      NG     X3,BVT20          IF IN RANGE                           DATA     1284
                          5140000007 +            SA4    EEL               EQUIV EXTENDED LENGTH                 DATA     1285
           600  37764                             IX7    X6-X4                                                   DATA     1286
                     0327000614 +                 PL     X7,BVT.E6         IF OUT OF RANGE                       DATA     1287
                               76750              SX7    B5                                                      DATA     1288
           601  5170000003 +                      SA7    NONANSI           SET NON ANSI USEAGE FLAG              DATA     1289
                                                                                                                 DATA     1290
           602  0100000720 +             BVT20    RJ     MDL               MATCH UP LISTS                        DATA     1291
           603  5150000032                        GETE                     SEPERATOR                             DATA     1292
           604  6130000003                        IF.EQ  EL.COMMA,BVT1     LOOP FOR NEXT IF A ,                  DATA     1293
           605  6130000023                        IF.EQ  EL.SLASH,BVT                                            DATA     1294
           606  0400000607 +                      EQ     BVT.E1                                                  DATA     1295
  
  
          1431                           M.SEP1   BMASK  (EL.COMMA,EL.LP,EL.SLASH)                               DATA     1297
  
  
  
                                        *         ERROR EXITS FOR BVT AND PSS                                    DATA     1299
                                                                                                                 DATA     1300
           607                           BVT.E1   EREXIT E.DVL1            ILLEGAL ITEM FOLLOWING NAME           DATA     1301
                          0400000002 +            EQ     DATA.N                                                  DATA     1302
                                                                                                                 DATA     1303
           610                           BVT.E2   EREXIT E.DVL2            SYNTAX ERROR IN DO NEST               DATA     1304
                          0400000002 +            EQ     DATA.N                                                  DATA     1305
                                                                                                                 DATA     1306
           611                           BVT.E3   EREXIT E.DVL3            VAR LIST SYNTAX ERROR                 DATA     1307
                          0400000001 +            EQ     DATA.E                                                  DATA     1308
                                                                                                                 DATA     1309
           612                           BVT.E4   EREXIT E.DVL4            NO MATCH OF LOOP INDEX                DATA     1310
                          0400000001 +            EQ     DATA.E                                                  DATA     1311
                                                                                                                 DATA     1312
           613                           BVT.E5   EREXIT E.DVL5            A(IVAR) AND NO LOOPS                  DATA     1313
                          0400000002 +            EQ     DATA.N                                                  DATA     1314
                                                                                                                 DATA     1315
           614                           BVT.E6   EREXIT E.DVL6            ARRAY SUBSC OUTSIDE OF DIM RANGE      DATA     1316
                          0400000002 +            EQ     DATA.N                                                  DATA     1317
                                                                                                                 DATA     1318
           615                           PSS.E1   EREXIT E.DVL7            VAR(                                  DATA     1319
                          0400000002 +            EQ     DATA.N                                                  DATA     1320
                                                                                                                 DATA     1321
           616                           PSS.E2   EREXIT E.DVL8            SUB LIST SYNTAX ERROR                 DATA     1322
                          0400000002 +            EQ     DATA.N                                                  DATA     1323
                                                                                                                 DATA     1324
           617                           BVT.E9   EREXIT E.DVL9            LOCF(A(C1,C2,C3)) OUT OF BOUNDS       DATA     1325
                          0400000002 +            EQ     DATA.N                                                  DATA     1326
                                        *                                                                        DATA     1327
           620  13777                    BVT.E10  BX7    X7-X7                                                   DATA     1328
                     6160000160                   SB6    E.V>C       -VAR LIST LONGER THAN CON LIST-             DATA     1329
                               54730              SA7    A3          N.ITEM = 0 TO INHIBIT DUPL V>C ERR MSG      DATA     1330
           621  6170000373 +                      SB7    BVT         RETURN ADDR                                 DATA     1331
                          0400000000 X            EQ     ERPROI                                                  DATA     1332
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    30
        BVT - PROCESS DATA VARIABLE LIST                              PSS 
  
                                        ***                                                                      DATA     1336
                                        *         PSS - PROCESS SUBSCRIPTS                                       DATA     1337
                                        *                ALLOWED FORM IS C1*IVAR+C2                              DATA     1338
                                        *                                                                        DATA     1339
                                        *         ON ENTRY:                                                      DATA     1340
                                        *                A4 POINTS TO (                                          DATA     1341
                                        *                                                                        DATA     1342
                                        *         ON EXIT:                                                       DATA     1343
                                        *                B7 = NUMBER OF VARIABLE SUBSCRIPTS                      DATA     1344
                                        *                ELIST POINTER ADVANCED PAST ) AND SAVED IN "SELIST"     DATA     1345
                                        *                SUBSCRIPT INFO IN BLOCK STARTING AT "SST"               DATA     1346
                                        *                                                                        DATA     1347
                                                                                                                 DATA     1348
                                         SAVE     MACRO  X,OP              SAVE AN ELIST WORD IN PROPER ARRAY    DATA     1349
                                        *                                  AND GET NEXT ELIST ITEM               DATA     1350
                                                  IFC    NE,//OP/                                                DATA     1351
                                                  SX7    B2-OP                                                   DATA     1352
                                                  ELSE   1                                                       DATA     1353
                                                  BX7    X4                                                      DATA     1354
                                                  SA4    A4-B5             NEXT ITEM                             DATA     1355
                                                  UX1    B2,X4                                                   DATA     1356
                                                  SA7    X+B4                                                    DATA     1357
                                                  ENDM                                                           DATA     1358
                                                                                                                 DATA     1359
           622  0400400622 +             PSS      ENTRY. *                                                       DATA     1360
           623  5110000010 +                      SA1    N.DIMS                                                  DATA     1361
                          0301000615 +            ZR     X1,PSS.E1         IF NAME IS NOT DIMENSIONED            DATA     1362
                                                                                                                 DATA     1363
           624  63110                             SB1    X1                B1 = N.DIMS                           DATA     1364
                     66400                        SB4    B0                B4 = NUMBER OF SUBSCRIPTS             DATA     1365
                          66600                   SB6    B0                B6 = VARIABLE SUBSCRIPT FLAG          DATA     1366
                               43700              MX7    0                                                       DATA     1367
           625  5170000031 C                      SA7    SST                                                     DATA     1368
                          7160777763              SX6    -LSST                                                   DATA     1369
                                                                                                                 DATA     1370
           626  54775                   +         SA7    A7+B5             CLEAR OUT CONTROL CELLS               DATA     1371
                     73665                        SX6    X6+B5                                                   DATA     1372
                          0336000626 +            NG     X6,*                                                    DATA     1373
                                                                                                                 DATA     1374
                                        *         SYNTAX CHECK AND SAVE SUBSCRIPT LIST                           DATA     1375
                                                                                                                 DATA     1376
           627  55445                    PSS1     NEXTE                    NEXT ITEM                             DATA     1377
                          0520000635 +            IF.NE  CON,PSS2          IF NOT A CONSTANT                     DATA     1378
           630  10744                             SAVE   CON2                                                    DATA     1379
                          6130000022              IF.NE  EL.STAR,PSS4      IF NO *                               DATA     1380
                          55445                   NEXTE                                                          DATA     1381
           633  5174000031 C                      SA7    CON1+B4           SAVE AS MULTIPLIER                    DATA     1382
                          43600                   MX6    0                                                       DATA     1383
           634  5164000037 C                      SA6    CON2+B4           CLEAR ADDEND                          DATA     1384
                                                                                                                 DATA     1385
           635  0525000616 +             PSS2     IF.NE  NAME,PSS.E2       IF NO VARIABLE                        DATA     1386
                          66665                   SB6    B6+B5             INCREMENT NUMBER OF VARS              DATA     1387
                               10744              SAVE   INDX                                                    DATA     1388
           637  6130000021                        IF.EQ  EL.PLUS,PSS3      IF A +                                DATA     1389
           640  6130000020                        IF.NE  EL.MINUS,PSS4     IF NOT A -                            DATA     1390
           641  7172777756               PSS3     SAVE   SIGN,EL.PLUS      SAVE ELIST CODE AND GET NEXT ITEM     DATA     1391
                          0520000616 +            IF.NE  CON,PSS.E2        IF NOT A CONSTANT                     DATA     1392
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    31
        BVT - PROCESS DATA VARIABLE LIST                              PSS 
  
           643  10744                             SAVE   CON2                                                    DATA     1393
                                                                                                                 DATA     1394
           645  66445                    PSS4     SB4    B4+B5             INCREMENT NUMBER OF SUBS              DATA     1395
                     0414000647 +                 EQ     B1,B4,PSS5        IF IT MUST BE A )                     DATA     1396
           646  6130000003                        IF.EQ  EL.COMMA,PSS1     LOOP IF A ,                           DATA     1397
                                                                                                                 DATA     1398
           647  6130000002               PSS5     IF.NE  EL.),PSS.E2       ERROR IF NO )                         DATA     1399
           650  75645                             UPDATE                   SAVE ELIST POINTER                    DATA     1400
                          76740                   SX7    B4                                                      DATA     1401
                               76660              SX6    B6                                                      DATA     1402
           651  5170000045 C                      SA7    N.SUBS                                                  DATA     1403
                          5160000046 C            SA6    N.VSUB            SAVE NUMBER OF VARIABLE SUBS          DATA     1404
                                                                                                                 DATA     1405
                                        *         PROCESS C1"S - CONSTANT MULTIPLIERS                            DATA     1406
                                                                                                                 DATA     1407
           652  43700                             MX7    0                                                       DATA     1408
                     5170000056 C                 SA7    LI                LI = 0                                DATA     1409
           653  5247000031 C             PSS6     SA4    CON1+X7           CON1(I)                               DATA     1410
                          76650                   SX6    B5                                                      DATA     1411
           654  0304000655 +                      ZR     X4,PSS7           IF NO CONSTANT                        DATA     1412
                          0100000303 +            RJ     CHKSC             CHECK AND CONVERT                     DATA     1413
           655  5110000056 C             PSS7     SA1    LI                                                      DATA     1414
                          5120000045 C            SA2    N.SUBS                                                  DATA     1415
           656  73715                             SX7    X1+B5                                                   DATA     1416
                     5261000031 C                 SA6    CON1+X1           SAVE CONVERTED CON                    DATA     1417
                               37572              IX5    X7-X2             I - L                                 DATA     1418
           657  54710                             SA7    A1                                                      DATA     1419
                     0335000653 +                 NG     X5,PSS6           IF MORE TO GO                         DATA     1420
                                                                                                                 DATA     1421
                                        *         PROCESS C2"S - CONSTANT ADDENDS                                DATA     1422
                                                                                                                 DATA     1423
                               43700              MX7    0                                                       DATA     1424
           660  54710                             SA7    A1                LI = 0                                DATA     1425
           661  5247000037 C             PSS8     SA4    CON2+X7           CON2(I)                               DATA     1426
                          43600                   MX6    0                                                       DATA     1427
           662  0304000663 +                      ZR     X4,PSS9           IF NO ADDEND                          DATA     1428
                          0100000303 +            RJ     CHKSC             CONVERT AND CHECK                     DATA     1429
           663  5110000056 C             PSS9     SA1    LI                                                      DATA     1430
                          5120000045 C            SA2    N.SUBS                                                  DATA     1431
           664  0306000666 +                      ZR     X6,PSS10          IF NO CONSTANT                        DATA     1432
                          5231000042 C            SA3    SIGN+X1           SIGN(I)                               DATA     1433
           665  23453                             AX4    B5,X3             MAP SIGN ONTO 0 OR -0                 DATA     1434
                     13646                        BX6    X4-X6                                                   DATA     1435
                          5261000037 C            SA6    CON2+X1                                                 DATA     1436
           666  73715                    PSS10    SX7    X1+B5             I = I+1                               DATA     1437
                     37572                        IX5    X7-X2             I - L                                 DATA     1438
                          54710                   SA7    A1                                                      DATA     1439
           667  0335000661 +                      NG     X5,PSS8                                                 DATA     1440
                                                                                                                 DATA     1441
                                        *         ELIMINATE MULTIPLE APPEARENCES OF AN INDEX VARIABLE            DATA     1442
                                                                                                                 DATA     1443
                          5140000045 C            SA4    N.SUBS                                                  DATA     1444
           670  5150000046 C                      SA5    N.VSUB                                                  DATA     1445
                          63640                   SB6    X4                B6 = N.SUBS                           DATA     1446
                               63750              SB7    X5                B7 = N.VSUB                           DATA     1447
           671  0657000622 +                      LE     B7,B5,PSS         EXIT IF < 2 VARIABLE SUBS             DATA     1448
                          43071                   MX0    60-3                                                    DATA     1449
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    32
        BVT - PROCESS DATA VARIABLE LIST                              PSS 
  
           672  7150213231                        SX5    213231B           A(IIJ) , A(JII) , A(IJI)              DATA     1450
                                                                                                                 DATA     1451
           673  15350                    PSS11    BX3    -X0*X5            J       ( SMALLER )                   DATA     1452
                     21503                        AX5    3                                                       DATA     1453
                          15450                   BX4    -X0*X5            I       ( I > J )                     DATA     1454
                               21503              AX5    3                                                       DATA     1455
           674  5213000033 C                      SA1    INDX-1+X3                                               DATA     1456
                          5224000033 C            SA2    INDX-1+X4                                               DATA     1457
           675  37612                             IX6    X1-X2                                                   DATA     1458
                     63440                        SB4    X4                                                      DATA     1459
                          0316000705 +            NZ     X6,PSS13          IF NO MATCH                           DATA     1460
                                                                                                                 DATA     1461
           676  54620                             SA6    A2                INDX(I) = 0                           DATA     1462
                     0546000677 +                 NE     B4,B6,PSS12       IF( I = N.SUB ) N.SUB = N.SUB-1       DATA     1463
                               67665              SB6    B6-B5                                                   DATA     1464
           677  67775                    PSS12    SB7    B7-B5             N.VSUB = N.VSUB-1                     DATA     1465
                     63330                        SB3    X3                                                      DATA     1466
                          5113000030 C            SA1    CON1-1+B3                                               DATA     1467
           700  5124000030 C                      SA2    CON1-1+B4                                               DATA     1468
                          5134000013 +            SA3    DIM.MUL-1+B4                                            DATA     1469
           701  42423                             IX4    X2*X3                                                   DATA     1470
                     36614                        IX6    X1+X4             C1(J) = C1(J)+DIM.MUL(I)*C1(I)        DATA     1471
                          54610                   SA6    A1                                                      DATA     1472
                                                                                                                 DATA     1473
           702  5124000036 C                      SA2    CON2-1+B4                                               DATA     1474
                          5113000036 C            SA1    CON2-1+B3                                               DATA     1475
           703  7222777776                        SX2    X2-1                                                    DATA     1476
                          42432                   IX4    X3*X2                                                   DATA     1477
                               36641              IX6    X4+X1             C2(J) = C2(J)+DIM.MUL(I)*(C2(I)-1)    DATA     1478
           704  54610                             SA6    A1                                                      DATA     1479
                     76750                        SX7    B5                                                      DATA     1480
                          54720                   SA7    A2                C2(I) = 1                             DATA     1481
                                                                                                                 DATA     1482
           705  0475000706 +             PSS13    EQ     B7,B5,PSS14       IF ONLY 1 VARIABLE SUB LEFT           DATA     1483
                          0315000673 +            NZ     X5,PSS11          IF MORE COMBINATIONS TO TEST          DATA     1484
                                                                                                                 DATA     1485
           706  76660                    PSS14    SX6    B6                                                      DATA     1486
                     76770                        SX7    B7                                                      DATA     1487
                          54640                   SA6    A4                UPDATE N.SUB AND N.VSUB               DATA     1488
                               54750              SA7    A5                                                      DATA     1489
           707  0400000622 +                      EQ     PSS                                                     DATA     1490
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    33
        MDL - MATCH DATA LISTS                                        MDL 
  
                                        ***                                                                      DATA     1492
                                        *         MDL - MATCH DATA LISTS                                         DATA     1493
                                        *                MATCHS A VARIABLE TO DATA ITEM LIST                     DATA     1494
                                        *                                                                        DATA     1495
                                        *         ON ENTRY:                                                      DATA     1496
                                        *                X5 = NUMBER OF EXPLICIT LOOPS                           DATA     1497
                                        *                "DVT" AND SUBSCRIPT INFO BLOCK SET UP BY "BVT"          DATA     1498
                                        *                                                                        DATA     1499
                                                                                                                 DATA     1500
                                        *         ADJUST "C.BLOCK" SO THAT WE ARE IN THE RIGHT RELOCATION BASE   DATA     1501
                                                                                                                 DATA     1502
           710  5110000017 C             MDLX     SA1    DVT                                                     DATA     1503
                          10011                   TBITN  DDD,MDLX1         IF NOT SECOND DEF OF A UDV IN A DATA  DATA     1504
                          66700                   INTARG                                                         DATA     1505
                               77707              NARGS= B7                                                      DATA     1506
                          5110001416 +            FMAC   ORG               OUTPUT ORG MACRO WITHOUT ARGS TO      DATA     1507
           714  7160000000 X                      SX6    UDATA.            RESTORE SAVED DATA. ADDRESS           DATA     1508
                          5160000000 X            SA6    C.BLOCK                                                 DATA     1509
           715  0400000720 +                      EQ     MDL                                                     DATA     1510
                                                                                                                 DATA     1511
           716  20102                    MDLX1    LX1    59-P.ORGF                                               DATA     1512
                     7150000000 X                 SX5    UDATA.            CLEAR C.BLOCK IF WE ISSUED STORAGE    DATA     1513
                               21173              AX1    59                FOR THIS SYMBOL IN DPCLOSE            DATA     1514
           717  15651                             BX6    -X1*X5                                                  DATA     1515
                     5160000000 X                 SA6    C.BLOCK                                                 DATA     1516
                                                                                                                 DATA     1517
           720  0400400720 +             MDL      ENTRY. *                                                       DATA     1518
           721  5140000002 C                      SA4    N.ITEM            NUMBER OF ITEMS LEFT IN DATA LIST     DATA     1519
                          7264777776              SX6    X4-1                                                    DATA     1520
           722  0326000724 +                      PL     X6,MDL1           IF > 0                                DATA     1521
                          54640                   SA6    A4                                                      DATA     1522
           723  0400000720 +                      EQ     MDL                                                     DATA     1523
                                                                                                                 DATA     1524
           724  5120000020 C             MDL1     SA2    DVT+1                                                   DATA     1525
                          5110000006 +            SA1    SDPF              X1 = SDPF                             DATA     1526
           725  43700                             MX7    0                                                       DATA     1527
                     63220                        SB2    X2                NUMBER OF VARS TO BE INITIALIZED      DATA     1528
                          5170000047 C            SA7    ORGI              ORGI = 0                              DATA     1529
           726  0315000750 +                      NZ     X5,MDL4           IF EXPLICIT LOOPS                     DATA     1530
                          0752000745 +            GT     B2,B5,MDL2        IF NOT A SINGLE ITEM                  DATA     1531
                                                                                                                 DATA     1532
                                        *         PROCESS A SINGLE ELEMENT                                       DATA     1533
                                                                                                                 DATA     1534
           727  5130000024 C                      SA3    BIAS                                                    DATA     1535
                          54640                   SA6    A4                UPDATE N.ITEM                         DATA     1536
           730  0100001120 +                      RJ     ODV               OUTPUT ORG FOR FWA                    DATA     1537
           731  0100001250 +                      RJ     GNI               GET NEXT DATA ITEM                    DATA     1538
           732  5110000020 C                      SA1    DVT+1                                                   DATA     1539
                          21122                   AX1    18                                                      DATA     1540
                               63110              SB1    X1                WORD LIMIT                            DATA     1541
           733  0100001154 +                      RJ     ODI               OUTPUT IT                             DATA     1542
           734  5110000017 C                      SA1    DVT                                                     DATA     1543
                          10011                   BX0    X1                                                      DATA     1544
                               20002              LX0    59-P.ORGF                                               DATA     1545
           735  0330000710 +                      NG     X0,MDLX           IF NOT FIRST DEF OF USEAGE DEFINED VA DATA     1546
                                                                                                                 DATA     1547
                          21122                   AX1    P.SYMORD                                                DATA     1548
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    34
        MDL - MATCH DATA LISTS                                        MDL 
  
                               73210              SX2    X1              SYMORD                                  DATA     1549
           736  21150                             AX1    P.SDPF-P.SYMORD                                         DATA     1550
                     63215                        SB2    X1+B5                                                   DATA     1551
                          0412000710 +            EQ     B1,B2,MDLX        IF DATA ITEM LEN = VARIABLE LEN       DATA     1552
                                                                                                                 DATA     1553
                                        *         WHEN REAL MATCHED WITH DOUBLE, SEND *  DATA 0B* TO -COMPS-,    DATA     1554
                                        *         TO MAINTAIN THE CORRECT -ORG- COUNTER VALUE.                   DATA     1555
                                                                                                                 DATA     1556
           737  0100000000 X                      CALL   PSYM              RETURNS (X3) = VAR NAME               FCC0418     8
           740  13444                             POSTERR   NR=E.PL,SEV=INF,FMT=DPC,TXT=X3                       DATA     1557
           742  6110000001                        SB1    1                                                       DATA     1558
                          6160001417 +            WRITEC =XF.CMPS,DATA.CD,2                                      DATA     1559
           744  6150000001                        SB5    1                                                       DATA     1560
                          0400000710 +            EQ     MDLX              MAINTAIN THE ORG COUNTER              DATA     1561
                                                                                                                 DATA     1562
                                        *         PROCESS REFERENCE TO WHOLE ARRAY - A # (A(I),I = 1,PI DIMS)    DATA     1563
                                                                                                                 DATA     1564
           745  73615                    MDL2     SX6    X1+B5             ADDRESS DIFFERENCE                    DATA     1565
                     73720                        SX7    X2                TRIP COUNT                            DATA     1566
                          5150000024 C            SA5    BIAS                                                    DATA     1567
           746  0100001010 +             MDL3     RJ     OIC               OUTPUT INITIALIZATION CODE            DATA     1568
           747  0400000710 +                      EQ     MDLX                                                    DATA     1569
                                                                                                                 DATA     1570
                                        *         PROCESS EXPLICIT DO INDEXING                                   DATA     1571
                                                                                                                 DATA     1572
           750  63450                    MDL4     SB4    X5                B4 = NUMBER OF LOOPS                  DATA     1573
                     0754000756 +                 GT     B4,B5,MDL5        IF MORE THAN 1 LOOP                   DATA     1574
                               63110              SB1    X1                SDPF                                  DATA     1575
           751  5120000021 C                      SA2    LPINF             LOOP INFO WORD                        DATA     1576
                          21222                   AX2    18                                                      DATA     1577
                               73720              SX7    X2                TRIP COUNT                            DATA     1578
           752  21222                             AX2    18                                                      DATA     1579
                     73320                        SX3    X2                M                                     DATA     1580
                          21222                   AX2    18                P                                     DATA     1581
           753  5242000014 +                      SA4    DIM.MUL+X2                                              DATA     1582
                          5150000024 C            SA5    BIAS                                                    DATA     1583
           754  22414                             LX4    B1,X4                                                   DATA     1584
                     42634                        IX6    X3*X4             ADDRESS DIFF = DM(P)*M(P)*2**SDPF     DATA     1585
                          73440                   SX4    X4                                                      DATA     1586
                               37064              IX0    X6-X4             DM(P)*( M(P)-1 )*2**SDPF              DATA     1587
           755  36505                             IX5    X0+X5                                                   DATA     1588
                     0400000746 +                 EQ     MDL3                                                    DATA     1589
                                                                                                                 DATA     1590
           756                           MDL5     BSS    0                                                       DATA     1591
                                                                                                                 DATA     1592
                                        *         IRREDUCEABLE NEST OF LOOPS                                     DATA     1593
                                                                                                                 DATA     1594
           756  5120000021 C             MDL10    SA2    LPINF                                                   DATA     1595
                          5110000006 +            SA1    SDPF                                                    DATA     1596
           757  63110                             SB1    X1                                                      DATA     1597
                     21244                        AX2    36                                                      DATA     1598
                          73320                   SX3    X2                M(P)                                  DATA     1599
                               21222              AX2    18                P                                     DATA     1600
           760  5242000014 +                      SA4    DIM.MUL+X2                                              DATA     1601
                          22414                   LX4    B1,X4             DM(P)*2**SDPF                         DATA     1602
                               42734              IX7    X3*X4                                                   DATA     1603
           761  5170000051 C                      SA7    DA                SAVE ADDRESS DIFFERENCE               DATA     1604
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    35
        MDL - MATCH DATA LISTS                                        MDL 
  
                          26404                   UX4    X4                                                      DATA     1605
           762  5150000024 C                      SA5    BIAS                                                    DATA     1606
                          37074                   IX0    X7-X4                                                   DATA     1607
                               36705              IX7    X0+X5             BIAS = BIAS+DA-DM(P)*2**SDPF          DATA     1608
           763  54750                             SA7    A5                                                      DATA     1609
                     76650                        SX6    B5                                                      DATA     1610
                          5160000057 C            SA6    LI+1              LI(2) = 1                             DATA     1611
           764  54665                             SA6    A6+B5             LI(3) = 1                             DATA     1612
                                                                                                                 DATA     1613
                                        *         CALCULATE BIAS                                                 DATA     1614
                                                                                                                 DATA     1615
           765  5140000046 C             MDL11    SA4    N.VSUB                                                  DATA     1616
                          5150000024 C            SA5    BIAS                                                    DATA     1617
           766  5130000006 +                      SA3    SDPF                                                    DATA     1618
                          66150                   SB1    B5                INDEX                                 DATA     1619
                               63240              SB2    X4                LIMIT                                 DATA     1620
           767  63330                             SB3    X3                SDPF                                  DATA     1621
                     43700                        MX7    0                                                       DATA     1622
                          5170000047 C            SA7    ORGI              ORGI = 0                              DATA     1623
                                                                                                                 DATA     1624
           770  5111000021 C             MDL12    SA1    LPINF+B1          LPINF(J)                              DATA     1625
                          21144                   AX1    36                                                      DATA     1626
                               73210              SX2    X1                M(P)                                  DATA     1627
           771  21122                             AX1    18                P                                     DATA     1628
                     5131000056 C                 SA3    LI+B1             LI(J)                                 DATA     1629
           772  5211000014 +                      SA1    DIM.MUL+X1        DM(P)                                 DATA     1630
                          42423                   IX4    X2*X3                                                   DATA     1631
           773  7264777776                        SX6    X4-1                                                    DATA     1632
                          42016                   IX0    X1*X6             DM(P)*(M(P)*LI(J)-1)                  DATA     1633
                               22730              LX7    B3,X0                                                   DATA     1634
           774  36557                             IX5    X5+X7                                                   DATA     1635
                     66115                        SB1    B1+B5                                                   DATA     1636
                          0712000770 +            LT     B1,B2,MDL12                                             DATA     1637
                                                                                                                 DATA     1638
           775  5110000051 C                      SA1    DA                                                      DATA     1639
                          5120000021 C            SA2    LPINF                                                   DATA     1640
           776  10611                             BX6    X1                ADDRESS DIFFERENCE                    DATA     1641
                     21222                        AX2    18                                                      DATA     1642
                          73720                   SX7    X2                TC(1)                                 DATA     1643
           777  0100001010 +                      RJ     OIC               MATCH UP LISTS                        DATA     1644
                                                                                                                 DATA     1645
                                        *         INCREMENT INDICES                                              DATA     1646
                                                                                                                 DATA     1647
          1000  5140000046 C                      SA4    N.VSUB                                                  DATA     1648
                          66150                   SB1    B5                                                      DATA     1649
                               63240              SB2    X4                                                      DATA     1650
                                                                                                                 DATA     1651
          1001  5111000056 C             MDL13    SA1    LI+B1             LI(J)                                 DATA     1652
                          5121000021 C            SA2    LPINF+B1                                                DATA     1653
          1002  73615                             SX6    X1+B5             LI(J) = LI(J)+1                       DATA     1654
                     21222                        AX2    18                                                      DATA     1655
                          73320                   SX3    X2                TC(J)                                 DATA     1656
                               54610              SA6    A1                                                      DATA     1657
          1003  37013                             IX0    X1-X3             I - L                                 DATA     1658
                     0330001006 +                 NG     X0,MDL14          IF LI(J) @ TC(J)                      DATA     1659
                               76650              SX6    B5                LI(J) = 1                             DATA     1660
          1004  54660                             SA6    A6                                                      DATA     1661
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    36
        MDL - MATCH DATA LISTS                                        MDL 
  
                     66115                        SB1    B1+B5                                                   DATA     1662
                          0712001001 +            LT     B1,B2,MDL13       LOOP IF J @ N.VSUB                    DATA     1663
          1005  0400000710 +                      EQ     MDLX                                                    DATA     1664
                                                                                                                 DATA     1665
          1006  5110000002 C             MDL14    SA1    N.ITEM                                                  DATA     1666
                          7221777776              SX2    X1-1                                                    DATA     1667
          1007  0322000765 +                      PL     X2,MDL11          IF MORE ITEMS TO GO                   DATA     1668
                          0400000710 +            EQ     MDLX                                                    DATA     1669
                                                                                                                 DATA     1670
                                                                                                                 DATA     1671
                                                                                                                 DATA     1672
                                1417 +   DATA.CD  LIT    11C  DATA 0B                                            DATA     1673
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    37
        OIC - OUTPUT INITIALIZATION CODE                              OIC 
  
                                        ***                                                                      DATA     1676
                                        *         OIC - OUTPUT INITIALIZATION CODE FOR A SEQUENCE OF ELEMENTS    DATA     1677
                                        *         OF AN ARRAY WITH A CONSTANT ADDRESS DIFFERENCE BETWEEN THEM.   DATA     1678
                                        *         THAT IS, THIS SUBROUTINE OUTPUTS THE INITIALIZATION CODE FOR   DATA     1679
                                        *         THE STATEMENT:                                                 DATA     1680
                                        *                ( A(M*I),I = 1,T) / DATA ITEM LIST /                    DATA     1681
                                        *         THE ADDRESS DIFFERENCE BETWEEN THE ELEMENTS IS:                DATA     1682
                                        *         A(M*(I+1))-A(M*I) = DM(J)*M*2**SDPF                            DATA     1683
                                        *                                                                        DATA     1684
                                        *         ON ENTRY:                                                      DATA     1685
                                        *                X5 = ANY ADDITIONAL BIAS                                DATA     1686
                                        *                X6 = DA - THE ADDRESS DIFFERENCE                        DATA     1687
                                        *                X7 = T - TRIP COUNT                                     DATA     1688
                                        *                                                                        DATA     1689
                                                                                                                 DATA     1690
          1010  0400401010 +             OIC      ENTRY. *                                                       DATA     1691
          1011  5160000051 C                      SA6    DA                SAVE PARAMETERS                       DATA     1692
                          5170000052 C            SA7    T                                                       DATA     1693
          1012  10655                             BX6    X5                                                      DATA     1694
                     5160000050 C                 SA6    B                                                       DATA     1695
                                                                                                                 DATA     1696
          1013  5130000000 C             OIC1     SA3    REPFLAG                                                 DATA     1697
                          5150000004 C            SA5    I.DIT                                                   DATA     1698
          1014  5120000000 X                      SA2    O.DIT                                                   DATA     1699
                          36125                   IX1    X2+X5             NEXT DIT ADDRESS                      DATA     1700
          1015  0303001021 +                      ZR     X3,OIC2           IF NOT IN THE MIDDLE OF A REP         DATA     1701
                                                                                                                 DATA     1702
                                        *         IN THE MIDDLE OF A REP , ADJUST REP COUNT DECREMENT ( DEC )    DATA     1703
                                                                                                                 DATA     1704
                          10233                   BX2    X3                                                      DATA     1705
                               21244              AX2    36                                                      DATA     1706
          1016  63420                             SB4    X2                RL                                    DATA     1707
                     43700                        MX7    0                 DEC = 0                               DATA     1708
                          0445001022 +            EQ     B4,B5,OIC3        IF RL = 1                             DATA     1709
          1017  5140000006 C                      SA4    I.DIT+2           ORDINAL OF START OF DATA IN REP LIST  DATA     1710
                          37545                   IX5    X4-X5             NEG IF NOT AT THE BEGINNING           DATA     1711
                               43073              MX0    59                                                      DATA     1712
          1020  21573                             AX5    59                                                      DATA     1713
                     11750                        BX7    X5*X0             DEC = 0 IF AT THE START               DATA     1714
                          0400001022 +            EQ     OIC3                                                    DATA     1715
                                                                                                                 DATA     1716
          1021  53310                    OIC2     SA3    X1                DIT WORD                              DATA     1717
                     0323001100 +                 PL     X3,OIC12          IF NOT THE START OF A REP             DATA     1718
                               43700              MX7    0                 DEC = 0                               DATA     1719
                                                                                                                 DATA     1720
                                        *         REP LIST ENCOUNTERED - SEE IF WE CAN OUTPUT "REPI" MACROS      DATA     1721
                                        *         A3,X3 - REP LIST INFO WORD - DO NOT DESTROY UNTIL UPDATED      DATA     1722
                                                                                                                 DATA     1723
          1022  22453                    OIC3     LX4    B5,X3                                                   DATA     1724
                     21467                        AX4    54+1              POSITION CONSTANT ITEM LENGTH FLAG    DATA     1725
                          0304001100 +            ZR     X4,OIC12          IF ALL ITEMS ARE NOT THE SAME LENGTH  DATA     1726
                                                                                                                 DATA     1727
                                        *         N = MIN(RF+DEC,T/RL) = NUMBER OF TIMES WE CAN REP THE DATA     DATA     1728
                                                                                                                 DATA     1729
          1023  5150000052 C                      SA5    T                                                       DATA     1730
                          63440                   SB4    X4                B4 = CIL FLAG                         DATA     1731
                               73030              SX0    X3                X0 = RF                               DATA     1732
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    38
        OIC - OUTPUT INITIALIZATION CODE                              OIC 
  
          1024  10233                             BX2    X3                                                      DATA     1733
                     21244                        AX2    36                                                      DATA     1734
                          73620                   SX6    X2                RL                                    DATA     1735
                               63220              SB2    X2                B2 = RL                               DATA     1736
          1025  5160000054 C                      SA6    RL                                                      DATA     1737
                          36007                   IX0    X0+X7             RF+DEC                                DATA     1738
                               27505              IX5    X5/X6             T/RL                                  DATA     1739
                          37650                   MX6    X5-X0       MIN OF THE TWO                              FEAT155D  137
                               63660              SB6    X6                                                      DATA     1741
          1031  0656001100 +                      LE     B6,B5,OIC12       IF WE CAN"T REP IT AT LEAST 2 TIMES   DATA     1742
                          5150000006 +            SA5    SDPF                                                    DATA     1743
          1032  63355                             SB3    X5+B5             WORDS/ELEMENT                         DATA     1744
                     0734001100 +                 GT     B4,B3,OIC12       IF DATA ITEMS LONGER THAN VAR ELEMENT DATA     1745
                                                                                                                 DATA     1746
          1033  5160000055 C                      SA6    N                 SAVE REP COUNT                        DATA     1747
                          7256777776              SX5    X6-1              DECREMENT REP LIST COUNT BY N-1 FOR   DATA     1748
          1034  37635                             IX6    X3-X5             GNI SINCE WE WILL CALL IT ONLY ONCE   DATA     1749
                     54630                        SA6    A3                TO OUTPUT THE DATA ITEMS N TIMES      DATA     1750
                                                                                                                 DATA     1751
                          5110000051 C            SA1    DA                                                      DATA     1752
          1035  76220                             SX2    B2                RL                                    DATA     1753
                     67645                        SB6    B4-B5             CIL FLAG - 1                          DATA     1754
                          22762                   LX7    B6,X2             RL*CIF                                DATA     1755
                               37571              IX5    X7-X1                                                   DATA     1756
          1036  42612                             IX6    X1*X2                                                   DATA     1757
                     5160000053 C                 SA6    MP                MP = DA*RL                            DATA     1758
          1037  0534001054 +                      NE     B3,B4,OIC7        IF 1 WORD ITEMS AND 2 WD/ELE VARS     DATA     1759
                          0425001041 +            EQ     B2,B5,OIC5        IF RL = 1                             DATA     1760
          1040  63710                             SB7    X1                DA                                    DATA     1761
                     0574001054 +                 NE     B7,B4,OIC7        IF DA " CIL                           DATA     1762
                                                                                                                 DATA     1763
                                        *         RL = 1 OR DA = CIL - OUTPUT THE DATA AND A SINGLE REPI         DATA     1764
                                                                                                                 DATA     1765
          1041  5170000062 C             OIC5     SA7    DLEN              SAVE LENGTH OF DATA LIST ( *CIL )     DATA     1766
                          5130000050 C            SA3    B                                                       DATA     1767
          1042  0100001120 +                      RJ     ODV               OUTPUT ORG TO SET DATA PLACEMENT ADDR DATA     1768
          1043  5110000054 C                      SA1    RL                                                      DATA     1769
                          14611                   BX6    -X1                                                     DATA     1770
                                                                                                                 DATA     1771
          1044  5160000056 C             OIC6     SA6    LI                                                      DATA     1772
                          0100001250 +            RJ     GNI               GET NEXT ITEM                         DATA     1773
          1045  5110000006 +                      SA1    SDPF                                                    DATA     1774
                          63115                   SB1    X1+B5             WORD LIMIT                            DATA     1775
          1046  0100001154 +                      RJ     ODI               OUTPUT DATA ITEM                      DATA     1776
          1047  5110000056 C                      SA1    LI                                                      DATA     1777
                          73615                   SX6    X1+B5             DECREMENT INDEX                       DATA     1778
          1050  0316001044 +                      NZ     X6,OIC6                                                 DATA     1779
                                                                                                                 DATA     1780
                          5110000055 C            SA1    N                 REP COUNT                             DATA     1781
          1051  5120000053 C                      SA2    MP                FWA INCR                              DATA     1782
                          5140000062 C            SA4    DLEN              NUMBER OF DATA WORDS                  DATA     1783
          1052  22302                             LX3    X2                DESTIN OFFSET                         DATA     1784
                     10644                        BX6    X4                                                      DATA     1785
                          0100001137 +            RJ     ORP               OUTPUT REPI MACRO CALL                DATA     1786
          1053  0400001067 +                      EQ     OIC9                                                    DATA     1787
                                                                                                                 DATA     1788
                                        *         RL > 1 AND DA " CIL - PUT OUT A REP FOR EACH DATA ITEM         DATA     1789
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    39
        OIC - OUTPUT INITIALIZATION CODE                              OIC 
  
                                                                                                                 DATA     1790
          1054  5130000050 C             OIC7     SA3    B                                                       DATA     1791
                          77702                   SX7    -B2                                                     DATA     1792
                               10633              BX6    X3                                                      DATA     1793
          1055  5170000061 C                      SA7    TMP                                                     DATA     1794
                          54675                   SA6    A7+B5             AND COPY OF BIAS                      DATA     1795
                                                                                                                 DATA     1796
          1056  0100001120 +             OIC8     RJ     ODV               OUTPUT ORG TO SET DATA PLACEMENT ADDR DATA     1797
          1057  0100001250 +                      RJ     GNI               GET DATA LIST POINTER                 DATA     1798
          1060  5110000006 +                      SA1    SDPF                                                    DATA     1799
                          63115                   SB1    X1+B5             SET WORD LIMIT                        DATA     1800
          1061  0100001154 +                      RJ     ODI               OUTPUT DATA STMT                      DATA     1801
          1062  5110000055 C                      SA1    N                 REP COUNT + 1                         DATA     1802
                          5120000053 C            SA2    MP                I                                     DATA     1803
          1063  10322                             BX3    X2                D                                     DATA     1804
                     76610                        SX6    B1                B                                     DATA     1805
                          0100001137 +            RJ     ORP               OUTPUT REPI MACRO                     DATA     1806
          1064  5110000061 C                      SA1    TMP               LOOP INDEX                            DATA     1807
                          5120000051 C            SA2    DA                                                      DATA     1808
          1065  54315                             SA3    A1+B5             BIAS                                  DATA     1809
                     36623                        IX6    X2+X3             B = B+DA ( ADVANCE BIAS )             DATA     1810
                          54630                   SA6    A3                                                      DATA     1811
                               10366              BX3    X6                                                      DATA     1812
          1066  73715                             SX7    X1+B5             DECREMENT LOOP INDEX                  DATA     1813
                     54710                        SA7    A1                                                      DATA     1814
                          0337001056 +            NG     X7,OIC8                                                 DATA     1815
                                                                                                                 DATA     1816
                                        *         END OF REP OUTPUT - UPDATE COUNTERS ( N.ITEM,T AND B )         DATA     1817
                                                                                                                 DATA     1818
          1067  5110000055 C             OIC9     SA1    N                                                       DATA     1819
                          5120000054 C            SA2    RL                                                      DATA     1820
          1070  5130000050 C                      SA3    B                                                       DATA     1821
                          5140000002 C            SA4    N.ITEM                                                  DATA     1822
          1071  42012                             IX0    X1*X2             N*RL = NUMBER OF ELEMENTS PROCESSED   DATA     1823
                     5120000051 C                 SA2    DA                                                      DATA     1824
          1072  5150000052 C                      SA5    T                                                       DATA     1825
                          43700                   MX7    0                                                       DATA     1826
          1073  5170000047 C                      SA7    ORGI              ORGI = 0                              DATA     1827
                          42102                   IX1    X0*X2                                                   DATA     1828
                               36731              IX7    X3+X1             B = B+DA*(N*RL)                       DATA     1829
          1074  54730                             SA7    A3                                                      DATA     1830
                     26000                        UX0    X0                                                      DATA     1831
                          37640                   IX6    X4-X0             DECREMENT NUMBER OF ITEMS LEFT        DATA     1832
                               54640              SA6    A4                                                      DATA     1833
          1075  37750                             IX7    X5-X0             AND NUMBER OF VARS LEFT               DATA     1834
                     54750                        SA7    A5                                                      DATA     1835
                          0306001077 +            ZR     X6,OIC10          IF DATA LIST IS EXHAUSTED             DATA     1836
          1076  0317001013 +                      NZ     X7,OIC1           IF MORE VARIABLES TO GO               DATA     1837
                                                                                                                 DATA     1838
          1077  37667                    OIC10    IX6    X6-X7             N.ITEM = N.ITEM-T                     DATA     1839
                     54660                        SA6    A6                FORCE AN INFORMATIVE ERROR IF T " 0   DATA     1840
                          0400001010 +            EQ     OIC                                                     DATA     1841
                                                                                                                 DATA     1842
                                        *         NOT AT THE START OF A REP OR CANNOT REP WITH THIS ITEM LIST    DATA     1843
                                        *         OUTPUT ITEMS UNTIL WE HIT THE START OF THE NEXT REP OR         DATA     1844
                                        *         T = 0 OR N.ITEM = 0                                            DATA     1845
                                                                                                                 DATA     1846
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    40
        OIC - OUTPUT INITIALIZATION CODE                              OIC 
  
          1100  5120000020 C             OIC12    SA2    DVT+1                                                   DATA     1847
                          21222                   AX2    18                                                      DATA     1848
                               73720              SX7    X2                SAVE WORD LIMIT                       DATA     1849
          1101  5170000061 C                      SA7    TMP                                                     DATA     1850
                                                                                                                 DATA     1851
          1102  5110000051 C             OIC14    SA1    DA                                                      DATA     1852
                          5120000047 C            SA2    ORGI                                                    DATA     1853
          1103  37012                             IX0    X1-X2                                                   DATA     1854
                     0300001105 +                 ZR     X0,OIC15          IF WE DON"T NEED AN ORG               DATA     1855
          1104  5130000050 C                      SA3    B                                                       DATA     1856
                          0100001120 +            RJ     ODV               SET DATA PLACEMENT ADDRESS            DATA     1857
          1105  0100001250 +             OIC15    RJ     GNI               GET NEXT DATA ITEM                    DATA     1858
          1106  5110000061 C                      SA1    TMP                                                     DATA     1859
                          5120000050 C            SA2    B                                                       DATA     1860
          1107  5140000051 C                      SA4    DA                                                      DATA     1861
                          37312                   IX3    X1-X2                                                   DATA     1862
                               63130              SB1    X3                WORD LIMIT FOR THIS ELEMENT           DATA     1863
          1110  36742                             IX7    X4+X2             B = B+DA ( ADVANCE BIAS  )            DATA     1864
                     54720                        SA7    A2                                                      DATA     1865
                          0100001154 +            RJ     ODI               OUTPUT A DATA ITEM                    DATA     1866
          1111  76610                             SX6    B1                                                      DATA     1867
                     5160000047 C                 SA6    ORGI              SAVE ORG COUNTER INCREMENT            DATA     1868
                                                                                                                 DATA     1869
                               43073              MX0    59                                                      DATA     1870
          1112  5140000002 C                      SA4    N.ITEM                                                  DATA     1871
                          5150000052 C            SA5    T                                                       DATA     1872
          1113  36640                             IX6    X4+X0             DECREMENT NUMBER OF ITEMS LEFT        DATA     1873
                     54640                        SA6    A4                                                      DATA     1874
                          36750                   IX7    X5+X0             AND NUMBER OF VARIABLES LEFT          DATA     1875
                               54750              SA7    A5                                                      DATA     1876
          1114  0306001077 +                      ZR     X6,OIC10          IF NO MORE DATA ITEMS LEFT            DATA     1877
                          0307001010 +            ZR     X7,OIC            IF FINISHED WITH THE VARS             DATA     1878
                                                                                                                 DATA     1879
          1115  5110000004 C                      SA1    I.DIT                                                   DATA     1880
                          5120000000 X            SA2    O.DIT                                                   DATA     1881
          1116  36112                             IX1    X1+X2              BASE ADDRESS + ORDINAL               DATA     1882
                     53310                        SA3    X1                NEXT DIT WORD                         DATA     1883
                          43700                   MX7    0                                                       DATA     1884
          1117  0323001102 +                      PL     X3,OIC14          IF NOT THE START OF A REP             DATA     1885
                          0400001022 +            EQ     OIC3                                                    DATA     1886
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    41
        OUTPUT ROUTINES                                               ODV 
  
                                        ***                                                                      DATA     1888
                                        *         ODV - OUTPUT DATA VARIABLE ADDRESS                             DATA     1889
                                        *         OUTPUTS AN "ORG" MACRO CALL TO SET THE FWA FOR DATA PLACEMENT  DATA     1890
                                        *                                                                        DATA     1891
                                        *         ON ENTRY:                                                      DATA     1892
                                        *                X3 = ANY ADDITIONAL BIAS DUE TO SUBSCRIPT CALCULATIONS, DATA     1893
                                        *                                                                        DATA     1894
                                                                                                                 DATA     1895
          1120  0400401120 +             ODV      ENTRY. *                                                       DATA     1896
          1121  5110000017 C                      SA1    DVT                                                     DATA     1897
                                                                                                                 DATA     1898
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           DATA     1899
                          10211                   BX2    X1                                                      DATA     1900
                               20204              LX2    59-P.LCMI                                               DATA     1901
          1122  0322001124 +                      PL     X2,ODV.1    IF NOT LCM INDIRECT ADDRESS MODE            DATA     1902
                          76650                   SX6    B5                                                      DATA     1903
          1123  5160000000 X                      SA6    =XIAF       FOR FMAC                                    DATA     1904
          1124                           ODV.1    BSS    0                                                       DATA     1905
                                         #DAL     ENDIF                                                          DATA     1906
                                                                                                                 DATA     1907
          1124  66700                             INTARG                   INITIALIZE FOR FMAC CALL              DATA     1908
                     73210                        SX2    X1                SAVE BIAS DUE TO EQUIVALENCING        DATA     1909
                          21122                   AX1    18                                                      DATA     1910
                               73610              SX6    X1                                                      DATA     1911
          1125  66600                             SVARG  NAME,B5           ARG1 = VARIABLE NAME                  DATA     1912
          1127  36623                             IX6    X2+X3                                                   DATA     1913
                     0306001131 +                 ZR     X6,ODV1           IF NO BIAS                            DATA     1914
                               66650              SVARG  OCT,B5+B5         ARG2 = BIAS                           DATA     1915
                                                                                                                 DATA     1916
          1131  20125                    ODV1     LX1    59-P.DDD+18                                             DATA     1917
                     0321001134 +                 PL     X1,ODV2           IF NOT SECOND APPEARENCE OF UDV IN    DATA     1918
                               76650              SX6    B5                DATA STMT                             DATA     1919
          1132  66655                             SVARG  INT,3             ARG3 = FLAG                           DATA     1920
          1134  77707                    ODV2     NARGS= B7                SAVE ARGS                             DATA     1921
          1135  5110001416 +                      FMAC   ORG               FORM MACRO CALL                       DATA     1922
          1136  0400001120 +                      EQ     ODV                                                     DATA     1923
  
  
  
                                        ***                                                                      DATA     1925
                                        *         ORP - OUTPUT "REPI" MACRO CALL                                 DATA     1926
                                        *                                                                        DATA     1927
                                        *         ON ENTRY:                                                      DATA     1928
                                        *                X6 = DATA BLOCK LENGTH ( NUMBER OF WORDS TO BE REPPED ) DATA     1929
                                        *                X1 = REP COUNT + 1                                      DATA     1930
                                        *                X2 = FWA INCREMENT BETWEEN REPS                         DATA     1931
                                        *                X3 = DESTINATION ADDRESS OFFSET                         DATA     1932
                                        *                                                                        DATA     1933
                                                                                                                 DATA     1934
          1137  0400401137 +             ORP      ENTRY. *                                                       DATA     1935
          1140  66700                             INTARG                   INITIALIZE FOR FMAC CALL              DATA     1936
                     37062                        IX0    X6-X2                                                   DATA     1937
                          37436                   IX4    X3-X6                                                   DATA     1938
                               66650              SVARG  OCT,B5            ARG1 = DLEN                           DATA     1939
          1142  7261777776                        SX6    X1-1                                                    DATA     1940
                          66650                   SVARG  OCT,B5+B5         ARG2 = REPLICATION COUNT              DATA     1941
          1144  0300001146 +                      ZR     X0,ORP1           IF THIRD ARG IS NOT NECESSARY         DATA     1942
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    42
        OUTPUT ROUTINES                                               ORP 
  
                          10622                   BX6    X2                                                      DATA     1943
                               66650              SVARG  OCT,B7+B5         ARG3 = FWA INCREMENT                  DATA     1944
          1146  0304001151 +             ORP1     ZR     X4,ORP2           IF FOURTH ARG NOT NECESSARY           DATA     1945
                          10633                   BX6    X3                                                      DATA     1946
                               66650              SVARG  OCT,4             ARG4 = DESTIN ADDRESS - LOCF(S.)      DATA     1947
                                                                                                                 DATA     1948
          1151  77707                    ORP2     NARGS= B7                SAVE ARGUMENT COUNT                   DATA     1949
          1152  5110001421 +                      FMAC   REPI              OUTPUT REPI MACRO CALL                DATA     1950
          1153  0400001137 +                      EQ     ORP                                                     DATA     1951
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    43
        OUTPUT ROUTINES                                               ODI 
  
                                        ***                                                                      DATA     1953
                                        *         ODI - OUTPUT DATA ITEM                                         DATA     1954
                                        *                                                                        DATA     1955
                                        *         ON ENTRY:                                                      DATA     1956
                                        *                B1 = MAX NUMBER OF DATA WORDS THAT MAY BE ISSUED        DATA     1957
                                        *                A5,X5 = FWA OF DIT ENTRY                                DATA     1958
                                        *                                                                        DATA     1959
                                        *         ON EXIT:                                                       DATA     1960
                                        *                B1 = NUMBER OF DATA WORDS THAT WE ISSUED                DATA     1961
                                        *                     ( ORG COUNTER INCREMENT )                          DATA     1962
                                        *                                                                        DATA     1963
                                                                                                                 DATA     1964
          1154  0400401154 +             ODI      ENTRY. *                                                       DATA     1965
          1155  10655                             BX6    X5                STORE THIS CONSTANTS*S ELIST ENTRY    FCC0537    65
                     21650                        AX6    40                                                      FCC0537    66
                          53260                   SA2    X6                                                      FCC0537    67
                               10722              BX7    X2                                                      FCC0537    68
          1156  5160000011 C                      SA6    EL.HOL                                                  FCC0537    69
                          5170000012 C            SA7    EL.CNS                                                  FCC0537    70
          1157  43600                             MX6    0                                                       FCC0537    71
                     63250                        SB2    X5                NUMBER OF WORDS IN DATA ITEM          DATA     1966
                          5160000010 C            SA6    TC.HOL            CLEAR TRUNCATE FLAG                   FCC0537    72
          1160  22055                             LX0    B5,X5                                                   DATA     1967
                     5160000013 C                 SA6    LI.HOL            CLEAR LAST ISSUE FLAG                 FCC0537    73
                               77612              SX6    B1-B2             < 0 IF WC(D) > WORD LIMIT             DATA     1968
          1161  74755                             SX7    A5+B5                                                   DATA     1969
                     20722                        LX7    18                                                      DATA     1970
                          76420                   SX4    B2                                                      DATA     1971
          1162  5160000014 C                      SA6    TEMP                                                    DATA     1972
                          12747                   BX7    X4+X7             SAVE DATA WORD ADDR AND WC(D)         DATA     1973
                               54765              SA7    A6+B5                                                   DATA     1974
          1163  0330001207 +                      NG     X0,ODI1           IF A HOLLERITH CONSTANT               DATA     1975
                                                                                                                 DATA     1976
                                        *         PROCESS 1 OR 2 WORD CONSTANT                                   DATA     1977
                                                                                                                 DATA     1978
                          5110000017 C            SA1    DVT         CHECK CONSTANT TYPE                         FCC1563X   51
          1164  43004                             MX0    4                                                       FCC1563X   52
                     13615                        BX6    X1-X5                                                   FCC1563X   53
                          20050                   LX0    P.CTYP+L.TYP      POSITION MASK                         FCC1563X   54
                               11606              BX6    X0*X6                                                   FCC1563X   55
          1165  0306001170 +                      ZR     X6,ODI0     IF NO TYPE CONFLICT                         FCC1563X   56
                                                                                                                 FCC1563X   57
                          5140000004 +            POSTER NR=E.DTC,SEV=ANSI,FMT=ELIST,TXT=SNAME                   FCC1563X   58
                                                                                                                 FCC1563X   59
          1170  54555                    ODI0     SA5    A5+B5       FIRST WORD OF CON                           FCC1563X   60
                     0100001234 +                 RJ     IDW               ISSUE TO COMPS FILE                   DATA     1980
          1171  5120000015 C                      SA2    TEMP+1                                                  DATA     1981
                          55125                   SA1    A2-B5                                                   DATA     1982
                               63120              SB1    X2                                                      DATA     1983
          1172  5110000017 C                      SA1   DVT                                                      FCC2229    26
                          20102                   LX1   2                                                        FCC2229    27
          1173  0321001203 +                      PL    X1,ODI00    IF NOT DIM COMPLEX VAR WITH DELAY STORE      FCC2229    28
                          5110000006 +            SA1   SDPF                                                     FCC2229    29
          1174  0301001203 +                      ZR    X1,ODI00    IF NOT COMPLEX VAR                           FCC2229    30
                          5110000045 C            SA1   N.SUBS                                                   FCC2229    31
          1175  0301001203 +                      ZR    X1,ODI00    IF NOT DIM VAR                               FCC2229    32
                          0515001203 +            NE     B1,B5,ODI00 IF OUTPUT MORE THAN ONE WORD                FCC2229    33
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    44
        OUTPUT ROUTINES                                               ODI 
  
          1176  66111                             SB1   B1+B1                                                    FCC2229    34
                     7150000000                   SX5   0                                                        FCC2229    35
          1177  0100001234 +                      RJ    IDW         OUTPUT SECOND DATA WORD                      FCC2229    36
          1200  5120000015 C                      SA2   TEMP+1                                                   FCC2229    37
                          55125                   SA1   A2-B5                                                    FCC2229    38
          1201  7170000000                        SX7   0                                                        FCC2229    39
                          5170000006 +            SA7   SDPF                                                     FCC2229    40
          1202  5170000045 C                      SA7   N.SUBS                                                   FCC2229    41
                          0400001154 +            EQ    ODI                                                      FCC2229    42
          1203  5120000015 C             ODI00    SA2   TEMP+1                                                   FCC2229    43
                          55125                   SA1   A2-B5                                                    FCC2229    44
          1204  0415001154 +                      EQ    B1,B5,ODI                                                FCC2229    45
                          0331001225 +            MI     X1,ODI4           IF 2 WORDS OF DATA FOR 1 WORD ITEM    FCC0537    74
                                                                                                                 DATA     1986
          1205  21222                             AX2    18                                                      DATA     1987
                     53525                        SA5    X2+B5                                                   DATA     1988
                          0100001234 +            RJ     IDW               OUTPUT SECOND DATA WORD               DATA     1989
          1206  66155                             SB1    B5+B5                                                   DATA     1990
                     0400001154 +                 EQ     ODI                                                     DATA     1991
                                                                                                                 DATA     1992
                                        *         OUTPUT HOLLERITH CONSTANT                                      DATA     1993
                                                                                                                 DATA     1994
          1207  5110000006 +             ODI1     SA1    SDPF                                                    DATA     1995
                          63315                   SB3    X1+B5                                                   DATA     1996
          1210  0632001211 +                      LE     B2,B3,ODI2        IF HOL CONST < ELEMENT LENGTH         DATA     1997
                          5170000003 +            SA7    NONANSI           SET NON ANSI USEAGE FLAG              DATA     1998
                                                                                                                 DATA     1999
          1211  21544                    ODI2     AX5    36                CHARS IN LAST WORD                    DATA     2000
                     10655                        BX6    X5                                                      FCC0537    75
                          21604                   AX6    4                                                       FCC0537    76
                               73660              SX6    X6                                                      FCC0537    77
          1212  5160000016 C                      SA6    TEMP+2                                                  FCC0537    78
                          0612001214 +            LE     B2,B1,ODI3        IF CON LEN @ WORD LIMIT               DATA     2001
          1213  76710                             SX7    B1                ORGC INC = WORD LIMIT                 DATA     2002
                     55765                        SA7    A6-B5                                                   FCC0537    79
                          43500                   MX5    0                 NO CHARS IN LAST WORD                 DATA     2004
                               66210              SB2    B1                                                      DATA     2005
                                                                                                                 DATA     2006
          1214  54455                    ODI3     SA4    A5+B5             ELIST FOR THE CON                     DATA     2007
                     43770                        MX7    -4                                                      FCC0537    80
                          15557                   BX5    -X7*X5                                                  FCC0537    81
          1215  0100000000 X                      CALL   OHC               OUTPUT IT                             DATA     2009
          1216  5140000016 C                      SA4    TEMP+2                                                  FCC0537    82
                          43601                   MX6    1                                                       FCC0537    83
          1217  5234777776                        SA3    X4-1              LOOK AHEAD                            FCC0537    84
                          5160000013 C            SA6    LI.HOL            SET LAST ISSUE FLAG                   FCC0537    85
          1220  26733                             UX7    B3,X3                                                   FCC0537    86
                     53440                        SA4    X4                                                      FCC0537    87
                          5120000015 C            SA2    TEMP+1                                                  FCC0537    88
          1221  21422                             AX4    18                                                      FCC0537    89
                     55125                        SA1    A2-B5                                                   FCC0537    90
                          6244777764              SB4    X4-11                                                   FCC0537    91
          1222  63120                             SB1    X2                ORG COUNT INCREMENT                   FCC0537    92
                     6133777774                   SB3    B3-EL.COMMA                                             FCC0537    93
                               10711              BX7    X1                                                      FCC0537    94
          1223  43100                             MX1    0                                                       FCC0537    95
                     0740001154 +                 MI     B4,ODI            IF .LE. 10 HOLL. CHARACTERS           FCC0537    96
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    45
        OUTPUT ROUTINES                                               ODI 
  
          1224  0430001225 +                      ZR     B3,ODI4           IF OTHER CONSTANTS                    FCC0537    97
                          0327001154 +            PL     X7,ODI            IF CON. LENGTH .LE. WORD LIMIT        FCC0537    98
                                                                                                                 FCC0537    99
                                        *         ISSUE INF. DIAGNOSTIC - CON. LEN. .GT. ITEM LEN., TRUNCATED.   FCC0537   100
                                                                                                                 FCC0537   101
          1225  63111                    ODI4     SB1    B1+X1             ORG COUNT INC.=WC(D)+(LIM-WC(D))=LIM  FCC0537   102
                     43701                        MX7    1                                                       FCC0537   103
                          5170000010 C            SA7    TC.HOL            SET TRUNCATE FLAG                     FCC0537   104
          1226  5140000012 C                      POSTER NR=E.TRC,SEV=INF,FMT=ELIST,TXT=EL.CNS,RETURN=ODI        FCC0537   105
  
  
  
                                        ***       IDW - ISSUE A DATA WORD TO THE COMPS FILE                      DATA     2024
                                        *                                                                        DATA     2025
                                        *         ON ENTRY:                                                      DATA     2026
                                        *                X5 = DATA WORD                                          DATA     2027
                                        *                                                                        DATA     2028
                                                                                                                 DATA     2029
          1230  66700                    IDW1     INTARG                   INITIALIZE FOR FMAC CALL              DATA     2030
                     66650                        SVARG  OCT,B5                                                  DATA     2031
          1232  77707                             NARGS= B7                                                      DATA     2032
          1233  5110001422 +                      FMAC   DATA              OUTPUT DATA WORD                      DATA     2033
                                                                                                                 DATA     2034
          1234  0400401234 +             IDW      ENTRY. *                                                       DATA     2035
          1235  43053                             MX0    43                                                      DATA     2036
                     11105                        BX1    X0*X5                                                   DATA     2037
                          21121                   AX1    17                                                      DATA     2038
                               10655              BX6    X5                                                      DATA     2039
          1236  0301001230 +                      ZR     X1,IDW1           IF A SMALL CONSTANT                   DATA     2040
                          10155                   BX1    X5                                                      DATA     2041
          1237  0100000000 X                      CALL   BTOCT             CONVERT ALL 20 DIGITS TO OCTAL        DATA     2042
          1240  5160001245 +                      SA6    IDW.D+1                                                 DATA     2043
                          54765                   SA7    A6+B5                                                   DATA     2044
          1241  6110000001                        SB1    1                                                       DATA     2045
                          6160001244 +            WRITEC =XF.CMPS,IDW.D,4  DATA LINE TO -COMPS-                  DATA     2046
          1243  6150000001                        SB5    1                                                       DATA     2047
                          0400001234 +            EQ     IDW         EXIT                                        DATA     2048
                                                                                                                 DATA     2049
                                                                                                                 DATA     2050
                                                                                                                 DATA     2051
          1244  55550401240155555555     IDW.D    DATA   31C  DATA    12345678901234567890B                      DATA     2052
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    46
        OUTPUT ROUTINES                                               GNI 
  
                                        **        GNI  -  GET ADDRESS OF NEXT DATA ITEM.                         FCC0537   106
                                        *                                                                        FCC0537   107
                                        *         EXIT   A5,X5 = ADDRESS AND CONTENTS OF FIRST WORD OF NEXT      FCC0537   108
                                        *                        DATA ITEM FROM *DIT*.                           FCC0537   109
                                                                                                                 DATA     2061
          1250  0400401250 +             GNI      ENTRY. *                                                       DATA     2062
          1251  5110000004 C                      SA1    I.DIT                                                   DATA     2063
                          5120000000 X            SA2    O.DIT                                                   DATA     2064
          1252  36612                             IX6    X1+X2                                                   DATA     2065
                     53560                        SA5    X6                NEXT WORD FROM DIT                    DATA     2066
                          54215                   SA2    A1+B5             REP COUNT REMAINDER                   DATA     2067
          1253  0325001257 +                      PL     X5,GNI1           IF NOT THE START OF A REP LIST        DATA     2068
                                                                                                                 DATA     2069
                                        *         INITIALIZE REP LIST PROCESSING                                 DATA     2070
                                                                                                                 DATA     2071
                          10655                   BX6    X5                                                      DATA     2072
                               73715              SX7    X1+B5                                                   DATA     2073
          1254  5160000000 C                      SA6    REPFLAG                                                 DATA     2074
                          54725                   SA7    A2+B5             SAVE ORDINAL OF REP LIST START        DATA     2075
                               21644              AX6    36                                                      DATA     2076
          1255  14766                             BX7    -X6                                                     DATA     2077
                     54720                        SA7    A2                SET REMAINDER = -N.ITEMS IN REP LIST  DATA     2078
                          10277                   BX2    X7                                                      DATA     2079
                               54555              SA5    A5+B5             GET FIRST DATA WORD                   DATA     2080
          1256  73115                             SX1    X1+B5             ADVANCE INDEX PAST REP WORD           DATA     2081
                                                                                                                 DATA     2082
                                        *         ADVANCE I.DIT TO POINT TO NEXT ITEM AND SEE IF WE ARE IN A     DATA     2083
                                        *         REP LIST                                                       DATA     2084
                                                                                                                 DATA     2085
          1257  10055                    GNI1     BX0    X5                                                      DATA     2086
                     21022                        AX0    18                                                      DATA     2087
                          36701                   IX7    X0+X1             UPDATE INDEX                          DATA     2088
                               54710              SA7    A1                                                      DATA     2089
          1260  0302001250 +                      ZR     X2,GNI            IF NO REPETITION                      DATA     2090
                          73725                   SX7    X2+B5                                                   DATA     2091
                               54720              SA7    A2                UPDATE REMAINDER                      DATA     2092
          1261  0317001250 +                      NZ     X7,GNI            EXIT IF MORE TO GO                    DATA     2093
                                                                                                                 DATA     2094
                                        *         DECREMENT REP COUNT AND START BACK AT START OF REP LIST IF RC  DATA     2095
                                                                                                                 DATA     2096
                          5130000000 C            SA3    REPFLAG                                                 DATA     2097
          1262  76050                             SX0    B5                                                      DATA     2098
                     37730                        IX7    X3-X0             DECREMENT REP COUNT                   DATA     2099
                          54730                   SA7    A3                                                      DATA     2100
                               63770              SB7    X7                                                      DATA     2101
          1263  0470001266 +                      ZR     B7,GNI2           IF FINISHED                           DATA     2102
                          21344                   AX3    36                                                      DATA     2103
                               14733              BX7    -X3               RESET REMAINDER                       DATA     2104
          1264  54720                             SA7    A2                                                      DATA     2105
                     54425                        SA4    A2+B5             ADDRESS OF FIRST DATA ITEM IN REP LIS DATA     2106
                          10744                   BX7    X4                                                      DATA     2107
                               54710              SA7    A1                RESET I.DIT FOR NEXT ENTRY            DATA     2108
          1265  0400001250 +                      EQ     GNI                                                     DATA     2109
                                                                                                                 FCC0537   110
          1266  43700                    GNI2     MX7    0                                                       DATA     2110
                     54770                        SA7    A7                REPFLAG = 0                           DATA     2111
                          0400001250 +            EQ     GNI                                                     DATA     2112
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    47
         PDV- PROCESS DATA VARIABLE 
  
          1267                           PDV.E1   EREXIT E.DVN1            NAME IS F.P. FUN , EXT OR IN // COM   DATA     2114
                          0400000002 +            EQ     DATA.N                                                  DATA     2115
                                                                                                                 DATA     2116
          1270                           PDV.E2   EREXIT E.DVN2            AN ILLEGAL TYPE ( ECS VAR , ETC )     DATA     2117
                          0400000002 +            EQ     DATA.N                                                  DATA     2118
                                                                                                                 DATA     2119
                                        ***                                                                      DATA     2120
                                        *         PDV - PROCESS DATA VARIABLE                                    DATA     2121
                                        *         PROCESS"S VARIABLE NAME MENTIONED IN A DATA STMT               DATA     2122
                                        *                                                                        DATA     2123
                                        *         ON ENTRY:                                                      DATA     2124
                                        *                X1 = 8R_NAME                                            DATA     2125
                                        *                                                                        DATA     2126
                                        *         ON EXIT:                                                       DATA     2127
                                        *                SEMANTICS CHECK FOR LEGAL NAME PERFORMED                DATA     2128
                                        *                ENTRY MADE IN DATA TBL IF FIRST APPEARENCE OF NAME      DATA     2129
                                        *                IN SUBPROGRAM                                           DATA     2130
                                        *                REGISTERS RESTORED BY A CALL TO MACRO "GETE"            DATA     2131
                                        *                                                                        DATA     2132
                                                                                                                 DATA     2133
                                        *         FIRST OCCURANCE OF THE NAME - SET TYPE                         DATA     2134
                                                                                                                 DATA     2135
          1271  0307001273 +             PDV.F    ZR     X7,PDV.F1         IF NO PREVIOUS OCCURANCES IN DEBUG ST DATA     2136
                          43000                   CFO    VAR               CHECK SETTING OF DEBUG BITS           DATA     2137
          1273  36262                    PDV.F1   IX2    X6+X2             SET TYPE                              DATA     2138
                     0400001304 +                 EQ     PDV1                                                    DATA     2139
                                                                                                                 DATA     2140
          1274  0400401274 +             PDV      ENTRY. *                                                       DATA     2141
          1275  75645                             UPDATE                   SAVE ELIST POINTER                    DATA     2142
                          10744                   BX7    X4                                                      DATA     2143
          1276  5170000004 +                      SA7    SNAME             SAVE NAME IN CASE OF ERRORS           DATA     2144
                          6170001300 +            SYMBOL                   GET SYMTAB ORDINAL                    DATA     2145
          1300  0400001271 +                      EQ     PDV.F             FIST OCCURANCE                        DATA     2146
                                                                                                                 DATA     2147
                                        *         PREVIOUS OCCURANCES - CHECK FOR A LEGAL VARIABLE               DATA     2148
                                                                                                                 DATA     2149
          1301  0415001270 +                      EQ     B1,B5,PDV.E2      IF THE SUBPROGRAM NAME                DATA     2150
                          10422                   BX4    X2                                                      DATA     2151
                               20405              LX4    59-P.EXT                                                DATA     2152
          1302  10311                             BX3    X1                                                      DATA     2153
                     20352                        LX3    59-P.FP                                                 DATA     2154
                          12434                   BX4    X3+X4                                                   DATA     2155
                               20302              LX3    P.FP-P.FUN                                              DATA     2156
          1303  12434                             BX4    X3+X4                                                   DATA     2157
                     0334001267 +                 NG     X4,PDV.E1         IF FP , FUN OR EXT                    DATA     2158
                                                                                                                 DATA     2159
          1304  43004                    PDV1     MX0    L.TYP                                                   DATA     2160
                     76710                        SX7    B1                                                      DATA     2161
                          10422                   BX4    X2                                                      DATA     2162
          1305  5170000005 +                      SA7    ORD                                                     DATA     2163
                          20472                   LX4    59-P.LCM                                                DATA     2164
                               20722              LX7    P.SYMORD                                                DATA     2165
          1306  0324001311 +                      PL     X4,PDV1.A   IF NOT LCM                                  DATA     2166
                          5150000000 X            SA5    =XDIRECT                                                DATA     2167
          1307  0305001311 +                      ZR     X5,PDV1.A   IF NOT INDIRECT MODE                        DATA     2168
                          76550                   SX5    B5                                                      DATA     2169
                               20567              LX5    P.LCMI                                                  DATA     2170
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    48
         PDV- PROCESS DATA VARIABLE 
  
          1310  12775                             BX7    X7+X5                                                   DATA     2171
          1311                           PDV1.A   BSS    0                                                       DATA     2172
          1311  11402                             BX4    X0*X2                                                   DATA     2173
                     20404                        LX4    L.TYP             POSITION TYPE FIELD                   DATA     2174
                          7254777772              SX5    X4-T.OCT                                                DATA     2175
          1312  10644                             BX6    X4                                                      FCC1563X   61
                     20644                        LX6    P.CTYP      POSITION CONSTANT TYPE                      FCC1563X   62
                          12776                   BX7    X7+X6                                                   FCC1563X   63
          1313  0325001270 +                      PL     X5,PDV.E2         IF AN ILLEGAL TYPE                    DATA     2176
                                                                                                                 DATA     2177
                          66200                   SB2    B0                B2 " 0 IF VARIABLE IS IN COMMON       DATA     2178
          1314  7254777774                        SX5    X4-T.DBL                                                DATA     2179
                          76050                   SX0    B5                                                      DATA     2180
                               21504              AX5    L.TYP                                                   DATA     2181
          1315  15605                             BX6    -X5*X0            0 IF SINGLE , 1 IF 2 WORDS/ELEMENT    DATA     2182
                     5160000006 +                 SA6    SDPF                                                    DATA     2183
                               63760              SB7    X6                B7 = SDPF                             DATA     2184
          1316  20672                             LX6    P.SDPF                                                  DATA     2185
                     12767                        BX7    X6+X7                                                   DATA     2186
                                                                                                                 DATA     2187
                                        *         CHECK FOR VARIABLE IN BLANK COMMON OR SECOND DEF IN DATA STMT  DATA     2188
                                                                                                                 DATA     2189
                          43600                   MX6    0                                                       FCC2419     7
          1317  5160000017 +                      SA6    INFDIAG                                                 FCCA549     8
                          10311                   BX3    X1                                                      FCCA549     9
                               20355              LX3    59-P.COM                                                FCCA549    10
          1320  0333001323 +                      NG     X3,PDV1A    IF VAR IS IN COMMON                         FCCA549    11
                          5140000056              SA4    PROGRAM                                                 FCCA549    12
          1321  0314001333 +                      NZ     X4,PDV3     IF NOT IN BLOCK DATA                        FCCA549    13
                          43601                   MX6    1                                                       FCCA549    14
          1322  5160000017 +                      SA6    INFDIAG                                                 FCCA549    15
          1323  10422                    PDV1A    BX4    X2                                                      FCCA549    16
                     43065                        MX0    60-L.RB                                                 DATA     2192
                          21414                   AX4    P.RB                                                    DATA     2193
                               15540              BX5    -X0*X4                                                  DATA     2194
          1324  0315001326 +                      NZ     X5,PDV2           IF REALLY IN COMMON                   DATA     2195
                          76650                   SX6    B5                                                      DATA     2196
                               20670              LX6    P.DDD                                                   DATA     2197
          1325  12767                             BX7    X6+X7             FLAG VAR DOUBLY DEFINED IN DATA STMT  DATA     2198
                     0400001333 +                 EQ     PDV3                                                    DATA     2199
                                                                                                                 DATA     2200
          1326  5235777776 X             PDV2     SA3    ORGTAB-1+X5       BLOCK NAME                            DATA     2201
                          43053                   MX0    60-17                                                   DATA     2202
                               15430              BX4    -X0*X3                                                  DATA     2203
          1327  63240                             SB2    X4                                                      DATA     2204
                     21366                        AX3    54                                                      DATA     2205
                          7243000022              SX4    X3+77B-1R                                               DATA     2206
          1330  0304001267 +                      ZR     X4,PDV.E1         IF IN BLANK COMMON                    DATA     2207
                          5130000056              SA3    PROGRAM                                                 DATA     2208
          1331  10633                             BX6    X3                                                      DATA     2209
                     0303001333 +                 ZR     X3,PDV3                                                 DATA     2210
          1332  5160000003 +                      SA6    NONANSI     NON ANSI IF NOT IN BLOCK DATA               DATA     2211
                                                                                                                 DATA     2212
                                        *         SET ORGF BIT IN DVT IF "DPCLOSE" ISSUED STORAGE FOR THIS VAR   DATA     2213
                                                                                                                 DATA     2214
          1333  10322                    PDV3     BX3    X2                                                      DATA     2215
                     43060                        MX0    60-L.DIMP                                               DATA     2216
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    49
         PDV- PROCESS DATA VARIABLE 
  
                          21351                   AX3    P.DIMP                                                  DATA     2217
                               15430              BX4    -X0*X3                                                  DATA     2218
          1334  7130004000                        SX3    V.SCA                                                   DATA     2219
                          22554                   LX5    X4,B5                                                   DATA     2220
                               11032              BX0    X3*X2       SCA BIT                                     DATA     2221
          1335  20060                             LX0    59-P.SCA                                                DATA     2222
                     21073                        AX0    59          EXTEND SCA BIT                              DATA     2223
                          15550                   BX5    -X0*X5      ZERO X5 IF DIMP POINTS TO SCA TABLE         DATA     2224
                               63650              SB6    X5          B6 = INDEX TO DIM TABLE                     DATA     2225
          1336  7100040000                        SX0    V.COM                                                   DATA     2226
                          11301                   BX3    X0*X1             COMMON BIT                            DATA     2227
                               36435              IX4    X3+X5             X4 " 0 IF WE ISSUED STORAGE FOR THIS  DATA     2228
          1337  0314001340 +                      NZ     X4,PDV4           VARIABLE IN DPCLOSE                   DATA     2229
                          12101                   BX1    X0+X1             SET COMMON BIT                        DATA     2230
                               76000              SX0    B0                CLEAR ORG FLAG                        DATA     2231
                                                                                                                 DATA     2232
          1340  20053                    PDV4     LX0    P.ORGF-P.COM                                            DATA     2233
                     12707                        BX7    X0+X7             SAVE ORG/NO ORG FLAG                  DATA     2234
                          5170000017 C            SA7    DVT               SAVE WORD 1 OF DVT ENTRY              DATA     2235
                                                                                                                 DATA     2236
                                        *         SET DEFINED AND VAR BITS IN SYMTAB ENTRY                       DATA     2237
                                                                                                                 DATA     2238
          1341  7100200000                        SX0    V.DEF                                                   DATA     2239
                          12601                   BX6    X0+X1             SET DEFINED BIT                       DATA     2240
                               54610              SA6    A1                                                      DATA     2241
          1342  20030                             LX0    P.VAR-P.DEF                                             DATA     2242
                     12602                        BX6    X0+X2             SET VAR BIT                           DATA     2243
                          54620                   SA6    A2                UPDATE SYMTAB ENTRY                   DATA     2244
                                                                                                                 DATA     2245
                               66457              SB4    B5+B7             B4 = WORD COUNT ( STORAGE ASSIGNED )  DATA     2246
          1343  43600                             MX6    0                                                       DATA     2247
                     5160000007 +                 SA6    EEL                                                     DATA     2248
                               54665              SA6    A6+B5             N.DIMS = 0                            DATA     2249
          1344  0460001364 +                      ZR     B6,PDV6           IF NO DIM ENTRY                       DATA     2250
                          5130000017              SA3    DIM1                                                    DATA     2251
          1345  63636                             SB6    X3+B6             ADDRESS OF IT                         DATA     2252
                                                                                                                 DATA     2253
                                        *         SAVE DIMENSION INFO                                            DATA     2254
                                                                                                                 DATA     2255
                     10011                        TBITN  DIM,PDV5          IF NO DIMENSIONS                      DATA     2256
                          56365                   SA3    B6+B5             WORD 2 OF DIM ENTRY                   DATA     2257
                               43003              MX0    3                                                       DATA     2258
          1347  11603                             BX6    X0*X3                                                   DATA     2259
                     20603                        LX6    3                                                       DATA     2260
                          5160000010 +            SA6    N.DIMS            SAVE NUMBER OF DIMENSIONS             DATA     2261
          1350  7206777774                        SX0    X6-3                                                    DATA     2262
                          73630                   SX6    X3                                                      DATA     2263
          1351  5160000015 +                      SA6    DIM.MUL+1                                               DATA     2264
                          5160000011 +            SA6    DIM                                                     DATA     2265
          1352  21322                             AX3    18                                                      DATA     2266
                     73730                        SX7    X3                DIM2                                  DATA     2267
                          54765                   SA7    A6+B5                                                   DATA     2268
                               21322              AX3    18                                                      DATA     2269
          1353  63430                             SB4    X3                WORDS OF STORAGE                      DATA     2270
                     73330                        SX3    X3                                                      DATA     2271
                          23473                   AX4    B7,X3             NUMBER OF ITEMS                       DATA     2272
          1354  0330001360 +                      NG     X0,PDV5           IF < 3 DIMS                           DATA     2273
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    50
         PDV- PROCESS DATA VARIABLE 
  
                          42667                   IX6    X6*X7             DIM1*DIM2                             DATA     2274
          1355  5160000016 +                      SA6    D1D2                                                    DATA     2275
                          27404                   IX7    X4/X6             (PI DIMS)/(DIM1*DIM2)                 DATA     2276
                     54775                        SA7    A7+B5             STORE DIM3                            DATA     2277
                                                                                                                 DATA     2278
                                        *         EQUIVALENCED - SUBSTITUTE ORD OF BASE AND A BIAS               DATA     2279
                                                                                                                 DATA     2280
          1360  10011                    PDV5     TBITN  EQU,PDV6          IF NOT EQUIVALENCED                   DATA     2281
          1361  56360                             SA3    B6                WORD 1 OF DIM ENTRY                   DATA     2282
                     5150000017 C                 SA5    DVT                                                     DATA     2283
                               21322              AX3    18                                                      DATA     2284
          1362  43030                             MX0    60-36                                                   FCC1967     7
                     11705                        BX7    X0*X5             REMOVE SYMORD FROM DVT ENTRY          DATA     2286
                          15330                   BX3    -X0*X3            SAVE BASE AND BIAS                    DATA     2288
                               12737              BX7    X3+X7                                                   DATA     2289
          1363  54750                             SA7    A5                                                      DATA     2290
                                                                                                                 DATA     2291
          1364  5120000003 C             PDV6     SA2    PL                                                      DATA     2292
                          0302001376 +            ZR     X2,PDV7           IF NOT IN A DO NEST                   DATA     2293
          1365  10011                             TBITN  DIM,PDV7          IF NOT DIMENSIONED                    DATA     2294
                                                                                                                 DATA     2295
                                        *         IF NAME IS IN AN EQUIVALENCE CLASS, THEN                       DATA     2296
                                        *                EEL = CLASS LENGTH - ARRAY BIAS                         DATA     2297
                                                                                                                 DATA     2298
          1366  10011                             BX0    X1                                                      DATA     2299
                     20057                        LX0    59-P.EQU                                                DATA     2300
                          0330001371 +            NG     X0,PDV6A          IF A NON BASE MEMBER                  DATA     2301
          1367  56360                             SA3    B6                WORD 1 OF DIM ENTRY                   DATA     2302
                     0323001376 +                 PL     X3,PDV7           IF NOT THE BASE MEMBER OF THE CLASS   DATA     2303
                               66300              SB3    B0                BIAS = 0                              DATA     2304
          1370  21344                             AX3    36                CLASS LEN OR 0 IF IN COMMON           DATA     2305
                     63232                        SB2    B2+X3                                                   DATA     2306
                          0400001375 +            EQ     PDV6B                                                   DATA     2307
                                                                                                                 DATA     2308
          1371  63330                    PDV6A    SB3    X3                BIAS                                  DATA     2309
                     0520001375 +                 NZ     B2,PDV6B          IF IN COMMON                          DATA     2310
                               21321              AX3    18-1                                                    DATA     2311
          1372  63235                             SB2    X3+B5             2*ORD(BASE)+1                         DATA     2312
                     55202                        SA2    A0-B2             WORD B OF BASE                        DATA     2313
                          43060                   MX0    60-L.DIMP                                               DATA     2314
                               21251              AX2    P.DIMP                                                  DATA     2315
          1373  15120                             BX1    -X0*X2                                                  DATA     2316
                     5140000017                   SA4    DIM1                                                    DATA     2317
                               22351              LX3    B5,X1             DIMP INDEX                            DATA     2318
          1374  36534                             IX5    X3+X4                                                   DATA     2319
                     53150                        SA1    X5                WORD 1 OF DIM ENTRY OF CLASS BASE     DATA     2320
                          21122                   AX1    18                                                      DATA     2321
                               63210              SB2    X1                CLASS LENGTH                          DATA     2322
          1375  77623                    PDV6B    SX6    B2-B3             CLASS LEN - ARRAY BIAS                DATA     2323
                     5160000007 +                 SA6    EEL               SAVE EXTENDED ARRAY LENGTH            DATA     2324
                                                                                                                 DATA     2325
          1376  5110000017 C             PDV7     SA1    DVT                                                     DATA     2326
                          10011                   BX0    X1                                                      DATA     2327
                               21072              AX0    P.SDPF                                                  DATA     2328
          1377  63700                             SB7    X0                                                      DATA     2329
                     76640                        SX6    B4                NUMBER OF WORDS                       DATA     2330
                          23576                   AX5    B7,X6             NUMBER OF ITEMS                       DATA     2331
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    51
         PDV- PROCESS DATA VARIABLE 
  
                               20622              LX6    18                                                      DATA     2332
          1400  12656                             BX6    X5+X6                                                   DATA     2333
                     54615                        SA6    A1+B5             SAVE SECOND WORD OF DVT               DATA     2334
                          20102                   LX1    59-P.ORGF                                               DATA     2335
          1401  0331001406 +                      NG     X1,PDV8           IF NO DATA TABLE ENTRY NECESSARY      DATA     2336
                                                                                                                 DATA     2337
                                        *         FIRST OCCURANCE OR USEAGE DEFINED VAR - SAVE ADDR AND SYMORD   DATA     2338
                                        *         IN DATA TABLE SO "ENDPRO" CAN DEFINE ITS ADDRESS               DATA     2339
                                                                                                                 DATA     2340
                          5120000000 X            SA2    DATA.                                                   DATA     2341
          1402  73724                             SX7    X2+B4             INCREMENT DATA. LENGTH                DATA     2342
                     54720                        SA7    A2                                                      DATA     2343
                          76610                   SX6    B1                                                      DATA     2344
                               20622              LX6    18                                                      DATA     2345
          1403  12162                             BX1    X6+X2             24/0,18/SYMORD,18/RA                  DATA     2346
                     5100000000 X                 ADDWD  DATA,X1           SAVE ORDINAL AND ADDR IN DATA TABLE   DATA     2347
          1405  5110000005 +                      SA1    ORD                                                     DATA     2348
                          63110                   SB1    X1                RESTORE B1                            DATA     2349
                                                                                                                 DATA     2350
          1406  5150000000 X             PDV8     SA5    RSELECT                                                 DATA     2351
                          0305001410 +            ZR     X5,PDV9           IF NO LONG MAP                        DATA     2352
          1407  43201                             ADDREF B1,DEF            A DEFINITION FOR THE NAME             DATA     2353
                                                                                                                 DATA     2354
          1410  5110000017 +             PDV9     SA1    INFDIAG                                                 FCCA549    17
                          0301001413 +            ZR     X1,PDV10                                                FCCA549    18
          1411  5140000004 +                      POSTER NR=E.DNC,SEV=INF,TXT=SNAME,FMT=ELIST                    FCCA549    19
          1413  5150000032               PDV10    GETE               RESTORE REGISTERS                           FCCA549    20
          1414  0400001274 +                      EQ     PDV                                                     DATA     2356
                                                                                                                 DATA     2357
          1432                                    END                                                            DATA     2358
  
                             66200B CM  STORAGE USED             3517 STATEMENTS      855 SYMBOLS      000015 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.985 SECONDS        1292 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDCON        327   PROGRAM*       13/43     19/38 L
        ADDCONH       346   PROGRAM*       20/09     20/18 L
        ADDCONH1      356   PROGRAM*       20/41     20/44 L
        ADDCON1       314   PROGRAM*       19/12 L   19/45
        ADDCON2       322   PROGRAM*       19/24     19/27 L
        ADDCON3       325   PROGRAM*       19/36 L   20/10     20/14     20/27     20/31     20/46
        ADDREF          0   EXTERNAL*      51/22
        ADDWD           0   EXTERNAL*      10/57     11/30     21/10     21/14     21/19     51/16
        ADIT          357   PROGRAM*       14/22     15/05     19/36     21/02 L   21/12     21/17     21/20
        ASAER           0   EXTERNAL*       2/22 X    9/10     43/43
        B              50   DAT.FMT         7/08 L   37/20 S   38/35     39/02     39/32     40/10     40/14
        BEN           160                   3/08 D    3/12      3/15      3/18      3/21      3/24      3/27      3/30
                                            3/10      3/13      3/16      3/19      3/22      3/25      3/28
                                            3/11      3/14      3/17      3/20      3/23      3/26      3/29
        BIAS           24   DAT.FMT         6/36 L   23/40 S   27/01     33/44     34/36     35/13
                                           22/55 S   26/38     28/39     34/20     35/02
        BIT           144   PROGRAM*        8/24     13/23 L   15/20
        BIT1          154   PROGRAM*       13/43 L   13/56
        BIT2          157   PROGRAM*       13/32     13/51 L
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        BIT3          166   PROGRAM*       14/04     14/11 L
        BIT4          167   PROGRAM*       14/07     14/12 L
        BIT5          170   PROGRAM*       14/09     14/14 L
        BIT6          201   PROGRAM*       13/34     14/37 L
        BIT7          207   PROGRAM*       14/47     14/53 L
        BIT.E         230   PROGRAM*       13/30     14/01     14/11     15/42 L
        BIT.E1        231   PROGRAM*       13/39     15/45 L
        BIT.E2        232   PROGRAM*       14/51     15/48 L
        BIT.E3        233   PROGRAM*       15/21     15/51 L
        BIT.L         145   PROGRAM*       13/25 L   14/33     14/42     14/50     15/19
        BIT.S         215   PROGRAM*       13/47     15/15 L   15/29
        BIT.S1        217   PROGRAM*       15/16     15/19 L
        BIT.S2        225   PROGRAM*       15/25     15/28 L
        BTOCT           0   EXTERNAL*      45/31
        BVT           373   PROGRAM*        8/33     22/49 L   24/02     29/12     29/52
        BVT1          374   PROGRAM*       22/51 L   24/01     29/11
        BVT1A         405   PROGRAM*       23/06     23/14 L
        BVT1B         415   PROGRAM*       23/24     23/31     23/37 L
        BVT1C         417   PROGRAM*       23/42 L   27/24
        BVT10         513   PROGRAM*       25/48     26/01 L
        BVT11         515   PROGRAM*       25/54     26/09 L
        BVT12         531   PROGRAM*       26/04     26/48 L
        BVT13         536   PROGRAM*       27/08 L   27/17
        BVT14         541   PROGRAM*       27/09     27/16 L
        BVT15         544   PROGRAM*       27/29 L   27/42
        BVT16         551   PROGRAM*       27/46 L   28/08
        BVT17         557   PROGRAM*       27/38     27/41     28/07 L
        BVT18         566   PROGRAM*       27/27     27/37     28/03     28/07     28/33 L
        BVT19         571   PROGRAM*       28/42 L   28/54
        BVT2          425   PROGRAM*       23/08     23/10     23/52     23/55 L
        BVT20         602   PROGRAM*       29/02     29/09 L
        BVT3          431   PROGRAM*       22/57     24/06 L
        BVT4          433   PROGRAM*       24/08 L   24/10
        BVT5          444   PROGRAM*       24/28 L   26/51
        BVT6          450   PROGRAM*       24/38 L   24/42
        BVT7          453   PROGRAM*       24/41     24/45 L
        BVT8          470   PROGRAM*       25/08     25/14 L
        BVT9          500   PROGRAM*       25/25     25/27 L
        BVT.E1        607   PROGRAM*       23/05     23/53     29/13     29/22 L
        BVT.E10       620   PROGRAM*       23/01     24/12     29/49 L
        BVT.E2        610   PROGRAM*       24/16     24/29     24/51     24/57     25/10     29/25 L
                                           24/20     24/31     24/53     25/02     25/14
        BVT.E3        611   PROGRAM*       11/52     24/06     24/11     29/28 L
        BVT.E4        612   PROGRAM*       24/43     29/31 L
        BVT.E5        613   PROGRAM*       23/15     29/34 L
        BVT.E6        614   PROGRAM*       25/39     29/05     29/37 L
        BVT.E9        617   PROGRAM*       23/45     23/46     29/46 L
        CFCD          252   PROGRAM*       14/46     17/14 L   17/28     17/39     17/44
                                           17/14 E   17/24     17/30     17/42     18/06
        CFCD1         256   PROGRAM*       17/20     17/23 L
        CFCD2         257   PROGRAM*       17/21     17/24 L
        CFCD3         267   PROGRAM*       17/35     17/38 L
        CFCD4         270   PROGRAM*       17/36     17/39 L
        CFO             0   EXTERNAL*      47/24
        CHKSC         303   PROGRAM*       14/17     18/22 L   18/37     25/18     25/21     25/26     31/21     31/37
        CHKSC1        307   PROGRAM*       18/27     18/31 L
        CHKSC.E       312   PROGRAM*       18/29     18/36     18/39 L
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        CLOSREP         1   DAT.FMT         6/13 L   14/16 S   14/38     15/15     15/24
        CONVERT         0   EXTERNAL*      17/51     18/01     18/33     19/16
        CON1           31   DAT.FMT         6/45 L   25/33     26/10     30/47 S   31/18     31/25 S   32/18     32/19
        CON2           37   DAT.FMT         6/47 L   25/35     26/11     27/10     30/49 S   31/34     32/25
                                           23/20     26/03 S   26/40     30/44 S   31/01 S   31/44 S   32/26
        CRL           235   PROGRAM*       15/17     15/26     16/12 L   16/47     16/56
        CRL1          247   PROGRAM*       16/49 L   16/55
        CRL2          234   PROGRAM*       16/07 L   16/51
        C.BLOCK         0   EXTERNAL*       2/24 X   33/18 S   33/25 S
        DA             51   DAT.FMT         7/09 L   35/35     38/20     39/35     40/15
                                           34/57 S   37/17 S   39/19     40/06
        DATA           20   PROGRAM*        8/01 E    8/01 L    9/07      9/09
        DATA1          22   PROGRAM*        8/05 L    9/02
        DATA1A         37   PROGRAM*        8/40      8/41      8/44 L    9/12
        DATA2          44   PROGRAM*        8/47      8/48      8/56 L    9/14      9/16
        DATA3          46   PROGRAM*        3/47      9/04 L
        DATA4          52   PROGRAM*        8/42      9/12 L
        DATA5          54   PROGRAM*        8/49      9/14 L
        DATA6          56   PROGRAM*        8/54      9/16 L
        DATA.           0   EXTERNAL*       2/22 X   51/10
        DATA.CD      1417   PROGRAM*       34/12     36/12 L
        DATA.E          1   PROGRAM*        3/47 L   11/44     15/43     15/49     18/42     29/32
                                            3/51     12/02     15/46     15/52     29/29
        DATA.N          2   PROGRAM*        3/50 L   29/26     29/38     29/44     47/02
                                           29/23     29/35     29/41     29/47     47/05
        DIM            11   PROGRAM*        7/30 L   26/23     49/49 S
        DIM1           17                   2/27 D   49/35     50/43
        DIM.MUL        14   PROGRAM*        7/32 L   26/39     27/47     28/48     34/35     35/26
                                           23/26     27/11     28/19     32/20     34/54     49/48 S
        DIRECT          0   EXTERNAL*      47/54
        DIT.CMPX      226   PROGRAM*       14/53     15/33 L
        DLEN           62   DAT.FMT         7/17 D   38/34 S   38/51
        DTO.E           0   PROGRAM*        3/44 L
        DVT            17   DAT.FMT         6/34 L   27/51     33/12     33/48     40/01     43/36     49/19 S   50/52
                                           23/42     28/56     33/34     33/52     41/10     43/50     50/10
        D1D2           16   PROGRAM*        7/33 L   50/02 S
        EEL             7   PROGRAM*        7/27 L   29/03     49/32 S   50/50 S
        EL.BOS          4                  10/03 D   10/40     11/06     11/41     11/50     11/54     12/05     12/24
        EL.CNS         12   DAT.FMT         6/26 L    8/53 S    9/12      9/16     43/19 S   45/09
        EL.COMMA        3   FTNTEXT        11/15     15/19     17/30     24/29     25/08     29/16     44/54
                                           11/40     15/35     23/52     24/57     29/11     31/05
        EL.EOS          4   FTNTEXT        10/03
        EL.HOL         11   DAT.FMT         6/25 L    8/50     19/30     19/44 S   43/18 S
        EL.LP           6                  10/01 D   11/33     15/36     29/16
        EL.MINUS       20   FTNTEXT        10/04     15/36     17/19     17/36     30/55
        EL.PLUS        21   FTNTEXT        10/04 D   13/40     15/36     17/35     30/54     30/56
        EL.RP           2                  10/02 D   15/35
        EL.SLASH       23   FTNTEXT        10/49     11/29     12/05     15/35     24/01     29/16
                                           11/24     12/04     15/20     23/53     29/12
        EL.STAR        22   FTNTEXT        14/04     30/45
        EL.(            6   FTNTEXT        10/01     12/22     13/33     14/07     14/11     23/06     24/06     24/16
        EL.)            2   FTNTEXT        10/02     11/20     12/23     15/21     17/44     25/14     31/07
        EL.=            5   FTNTEXT        11/25     24/51
        ERPRO           0   EXTERNAL*       2/22 X    3/48
        ERPROI          0   EXTERNAL*       2/22 X    9/12      9/14      9/16     29/53     34/10     45/09     51/26
        E.CTO          44                   3/05 D    3/44
        E.C>V         161                   3/11 D    9/16
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        E.DCE         170                   3/18 D   18/39
        E.DIL         164                   3/14 D   15/42
        E.DIL1        165                   3/15 D   15/45
        E.DIL2        166                   3/16 D   15/48
        E.DIL3        167                   3/17 D   15/51
        E.DNA         162                   3/12 D    9/08
        E.DNC         506                   3/31 D   51/26
        E.DSE         163                   3/13 D   11/43     12/01
        E.DTC         501                   3/33 D   43/43
        E.DVL1        171                   3/19 D   29/22
        E.DVL2        172                   3/20 D   29/25
        E.DVL3        173                   3/21 D   29/28
        E.DVL4        174                   3/22 D   29/31
        E.DVL5        175                   3/23 D   29/34
        E.DVL6        176                   3/24 D   29/37
        E.DVL7        177                   3/25 D   29/40
        E.DVL8        200                   3/26 D   29/43
        E.DVL9        201                   3/27 D   29/46
        E.DVN1        204                   3/29 D   47/01
        E.DVN2        205                   3/30 D   47/04
        E.IHI         500                   3/32 D    9/12
        E.PL          152                   3/06 D   34/10
        E.TRC         203                   3/28 D   45/09
        E.V>C         160                   3/10 D    9/14     29/50
        FMAC            0   EXTERNAL*      33/16     41/35     42/08     45/22
        FWAWORK         0   EXTERNAL*       2/23 X
        F.CMPS          0   EXTERNAL*      34/12     45/35
        GNI          1250   PROGRAM*       33/47     39/09     46/06 L   46/37     46/57
                                           38/41     40/12     46/34     46/53
        GNI1         1257   PROGRAM*       46/12     46/30 L
        GNI2         1266   PROGRAM*       46/46     46/55 L
        HOL.DIT       227   PROGRAM*       15/34 L   19/52
        IAF             0   EXTERNAL*      41/17 S
        IDW          1234   PROGRAM*       43/46     44/03     44/17     45/24 L   45/37
        IDW1         1230   PROGRAM*       45/19 L   45/29
        IDW.D        1244   PROGRAM*       45/32 S   45/35     45/41 L
        INC            27   DAT.FMT         6/39 L   25/07 S   25/23     25/27 S   25/50     26/09
        INDX           34   DAT.FMT         6/46 L   24/38     26/02 S   27/08     30/53 S   32/07     32/08
        INFDIAG        17   PROGRAM*        7/38 L   48/24 S   48/31 S   51/24
        I.DIT           4   DAT.FMT         6/19 L    8/32 S   37/23     37/35     40/34     46/07
        LI             56   DAT.FMT         7/15 L   31/22     35/07 S   35/48     38/45
                                           31/17 S   31/38     35/25     38/40 S
        LI.HOL         13   DAT.FMT         6/27 L    8/37     43/24 S   44/46 S
        LL             25   DAT.FMT         6/37 L   24/55 S   25/17     25/19 S   25/34     26/12
        LPINF          21   DAT.FMT         6/35 L   27/29     28/02 S   28/42     34/48     35/36
                                           26/31 S   27/46     28/10     34/29     35/21     35/49
        LSST           14                   6/49 D   30/34
        LWAWORK         0   EXTERNAL*       2/23 X   10/38
        L.DIL           0   EXTERNAL*       2/25 X    8/16      8/56      9/06 S   10/37 S   11/55
        L.DIMP         14   FTNTEXT        48/57     50/40
        L.DIT           0   EXTERNAL*       2/25 X    8/12 S   10/36 S   14/25     16/33
        L.RB            7   FTNTEXT        48/33
        L.TYP           4   FTNTEXT        43/39     47/47     48/04     48/14
        MDL           720   PROGRAM*       23/56     29/09     33/19     33/27 L   33/32
        MDLX          710   PROGRAM*       33/12 L   33/55     34/04     34/14     34/22     36/03     36/08
        MDLX1         716   PROGRAM*       33/13     33/21 L
        MDL1          724   PROGRAM*       33/30     33/34 L
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        MDL10         756   PROGRAM*       34/48 L
        MDL11         765   PROGRAM*       35/12 L   36/07
        MDL12         770   PROGRAM*       35/21 L   35/33
        MDL13        1001   PROGRAM*       35/48 L   36/02
        MDL14        1006   PROGRAM*       35/55     36/05 L
        MDL2          745   PROGRAM*       33/40     34/18 L
        MDL3          746   PROGRAM*       34/21 L   34/42
        MDL4          750   PROGRAM*       33/39     34/26 L
        MDL5          756   PROGRAM*       34/27     34/44 L
        MP             53   DAT.FMT         7/11 L   38/26 S   38/50     39/14
        M.BOVL       1426   PROGRAM*       11/03     11/48     12/05 L
        M.CON        1430   PROGRAM*       13/26     15/36 L
        M.SEP        1427   PROGRAM*       13/52     15/35 L
        M.SEP1       1431   PROGRAM*       23/03     29/16 L
        M.SLASH      1425   PROGRAM*       10/53     11/46     12/04 L
        N              55   DAT.FMT         7/13 L   38/15 S   38/49     39/13     39/30
        NARGS           0   MACBUF         33/15 S   41/34 S   42/07 S   45/21 S
        NONANSI         3   PROGRAM*        4/21 L   10/45 S   14/12 S   24/14 S   44/26 S
                                            9/04     11/28 S   23/09 S   29/07 S   48/52 S
        N.CELLS        14                   6/28 D    8/06
        N.DIMS         10   PROGRAM*        7/29 L   23/07     30/26     49/45 S
        N.ITEM          2   DAT.FMT         6/14 L   13/44     15/06     22/52     36/05     40/25
                                            8/44     14/24     16/21     33/28     39/33
        N.SUBS         45   DAT.FMT         6/50 L   24/35     31/11 S   31/39     43/55
                                           23/19     26/56     31/23     31/52     44/08 S
        N.VSUB         46   DAT.FMT         6/51 L   24/26 S   26/34 S   27/54 S   28/33     31/53     35/44
                                           22/56 S   25/43     27/23     28/25 S   31/12 S   35/12
        ODI          1154   PROGRAM*       33/51     39/12     43/13 L   44/12     44/57     45/09
                                           38/44     40/20     44/09     44/19     45/02
        ODI0         1170   PROGRAM*       43/41     43/45 L
        ODI00        1203   PROGRAM*       43/52     43/54     43/56     43/57     44/10 L
        ODI1         1207   PROGRAM*       43/32     44/23 L
        ODI2         1211   PROGRAM*       44/25     44/28 L
        ODI3         1214   PROGRAM*       44/33     44/39 L
        ODI4         1225   PROGRAM*       44/13     45/01     45/06 L
        ODV          1120   PROGRAM*       33/46     38/36     39/08     40/11     41/09 L   41/36
        ODV1         1131   PROGRAM*       41/27     41/30 L
        ODV2         1134   PROGRAM*       41/31     41/34 L
        ODV.1        1124   PROGRAM*       41/15     41/18 L
        OHC             0   EXTERNAL*      44/42
        OIC          1010   PROGRAM*       34/21     35/40     37/16 L   39/52     40/32
        OIC1         1013   PROGRAM*       37/22 L   39/48
        OIC10        1077   PROGRAM*       39/47     39/50 L   40/31
        OIC12        1100   PROGRAM*       37/43     37/51     38/10     38/13     40/01 L
        OIC14        1102   PROGRAM*       40/06 L   40/39
        OIC15        1105   PROGRAM*       40/09     40/12 L
        OIC2         1021   PROGRAM*       37/26     37/42 L
        OIC3         1022   PROGRAM*       37/34     37/40     37/49 L   40/40
        OIC5         1041   PROGRAM*       38/28     38/34 L
        OIC6         1044   PROGRAM*       38/40 L   38/47
        OIC7         1054   PROGRAM*       38/27     38/30     39/02 L
        OIC8         1056   PROGRAM*       39/08 L   39/26
        OIC9         1067   PROGRAM*       38/55     39/30 L
        ORD             5   PROGRAM*        7/25 L   47/50 S   51/17
        ORGI           47   DAT.FMT         7/03 L   33/38 S   35/19 S   39/38 S   40/07     40/22 S
        ORGTAB          0   EXTERNAL*       2/22 X   48/42
        ORP          1137   PROGRAM*       38/54     39/17     41/50 L   42/09
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        ORP1         1146   PROGRAM*       41/57     42/03 L
        ORP2         1151   PROGRAM*       42/03     42/07 L
        O.CELLS         0   DAT.FMT         6/11 L    6/28      8/08 S
        O.DIL           0   EXTERNAL*       2/25 X    8/05
        O.DIT           0   EXTERNAL*       2/25 X   16/18     16/32     37/24     40/35     46/08
        PDV          1274   PROGRAM*       23/02     24/15     47/28 L   51/28
        PDV1         1304   PROGRAM*       47/26     47/47 L
        PDV1A        1323   PROGRAM*       48/27     48/32 L
        PDV10        1413   PROGRAM*       51/25     51/27 L
        PDV1.A       1311   PROGRAM*       47/53     47/55     48/02 L
        PDV2         1326   PROGRAM*       48/36     48/42 L
        PDV3         1333   PROGRAM*       48/29     48/40     48/51     48/56 L
        PDV4         1340   PROGRAM*       49/13     49/17 L
        PDV5         1360   PROGRAM*       49/40     49/57     50/08 L
        PDV6         1364   PROGRAM*       49/34     50/08     50/18 L
        PDV6A        1371   PROGRAM*       50/27     50/35 L
        PDV6B        1375   PROGRAM*       50/33     50/36     50/49 L
        PDV7         1376   PROGRAM*       50/19     50/20     50/29     50/52 L
        PDV8         1406   PROGRAM*       51/05     51/20 L
        PDV9         1410   PROGRAM*       51/21     51/24 L
        PDV.E1       1267   PROGRAM*       47/01 L   47/45     48/48
        PDV.E2       1270   PROGRAM*       47/04 L   47/37     48/09
        PDV.F        1271   PROGRAM*       47/23 L   47/33
        PDV.F1       1273   PROGRAM*       47/23     47/25 L
        PL              3   DAT.FMT         6/15 L   14/48     15/23 S   24/18     50/18
                                           14/37     14/56     24/13 S   26/48
        PROGRAM        56                   2/29 D   48/28     48/49
        PSS           622   PROGRAM*       23/14     24/17     30/25 L   31/56     32/41
        PSS1          627   PROGRAM*       30/42 L   31/05
        PSS10         666   PROGRAM*       31/40     31/45 L
        PSS11         673   PROGRAM*       32/03 L   32/35
        PSS12         677   PROGRAM*       32/14     32/16 L
        PSS13         705   PROGRAM*       32/11     32/34 L
        PSS14         706   PROGRAM*       32/34     32/37 L
        PSS2          635   PROGRAM*       30/43     30/51 L
        PSS3          641   PROGRAM*       30/54     30/56 L
        PSS4          645   PROGRAM*       30/45     30/55     31/03 L
        PSS5          647   PROGRAM*       31/04     31/07 L
        PSS6          653   PROGRAM*       31/18 L   31/28
        PSS7          655   PROGRAM*       31/20     31/22 L
        PSS8          661   PROGRAM*       31/34 L   31/48
        PSS9          663   PROGRAM*       31/36     31/38 L
        PSS.E1        615   PROGRAM*       29/40 L   30/27
        PSS.E2        616   PROGRAM*       29/43 L   30/51     30/57     31/07
        PSYM            0   EXTERNAL*      34/09
        P.COM          16   FTNTEXT        48/26     49/17
        P.CTYP         44                  22/47 D   43/39     48/07
        P.DDD          70                  22/44 D   33/13     41/30     48/38
        P.DEF          20   FTNTEXT        49/26
        P.DIM          15   FTNTEXT        49/40     50/20
        P.DIMP         51   FTNTEXT        49/01     50/41
        P.EQU          14   FTNTEXT        50/08     50/26
        P.EXT          66   FTNTEXT        47/39
        P.FP           21   FTNTEXT        47/41     47/43
        P.FUN          17   FTNTEXT        47/43
        P.LCM           1   FTNTEXT        47/51
        P.LCMI         67                  22/45 D   41/14     47/57
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        P.ORGF         71                  22/43 D   33/21     33/54     49/17     51/04
        P.RB           14   FTNTEXT        48/34
        P.SCA          13   FTNTEXT        49/06
        P.SDPF         72                  22/42 D   34/02     48/18     50/54
        P.SYMORD       22                  22/46 D   33/57     34/02     47/52
        P.VAR          50   FTNTEXT        49/26
        RAS            60   PROGRAM*        8/02     10/34 L   11/41     11/56
        RAS1           66   PROGRAM*       10/47 L   11/14     11/15     11/40
        RAS2           77   PROGRAM*       11/06     11/08 L
        RAS3          103   PROGRAM*       10/49     11/20 L
        RAS4          125   PROGRAM*       11/20     11/54 L
        RAS5          127   PROGRAM*       12/01 L   12/46
        RAS.E         120   PROGRAM*       11/43 L   11/54     12/39     12/43
        RAS.E2        121   PROGRAM*       11/18     11/46 L   11/50
        REPFLAG         0   DAT.FMT         6/12 L   13/57     14/29 S   16/13     37/22     46/18 S   46/41
        RL             54   DAT.FMT         7/12 L   38/05 S   38/37     39/31
        RSELECT         0   EXTERNAL*       2/23 X   51/20
        SDPF            6   PROGRAM*        7/26 L   26/41     28/36     34/49     38/11     39/10     44/07 S   48/16 S
                                           23/37     26/57     33/35     35/14     38/42     43/53     44/23
        SELIST         32                   2/28 D    8/29     14/32     15/09     17/55     23/51     24/28     51/27
                                            8/23     10/39     14/54     17/47 S   19/37     23/57     29/10
        SIGN           42   DAT.FMT         6/48 L   30/56 S   31/41
        SNAME           4   PROGRAM*        3/50      7/24 L    9/14     43/43     47/31 S   51/26
        SST            31   DAT.FMT         6/44 L    6/49     30/33 S
        STD           130   PROGRAM*       10/54     11/25     11/47     12/20 L   12/42
                                           11/04     11/33     11/49     12/38
        STD1          133   PROGRAM*       12/27 L   12/29     12/32     12/37     12/45
        STD2          136   PROGRAM*       12/30     12/34 L
        STD3          141   PROGRAM*       12/35     12/41 L
        STD4          143   PROGRAM*       12/41     12/45 L
        SUBN           30   DAT.FMT         6/40 L   24/48 S   25/31
        SVARG           0   EXTERNAL*      41/25     41/28     41/33     41/54     41/56     42/02     42/05     45/20
        SW1            14   MACBUF         10/56 S   11/01     11/27 S   11/31     21/04 S   21/13     21/23 L
        SW2            15   MACBUF         21/07 S   21/18     21/24 L
        SW3            16   MACBUF         21/09 S   21/11     21/15     21/25 L
        SYMBOL          0   EXTERNAL*      47/32
        T              52   DAT.FMT         7/10 L   37/18 S   37/55     39/36     40/26
        TC.HOL         10   DAT.FMT         6/24 L    8/39     43/22 S   45/08 S
        TEMP           14   DAT.FMT         6/30 L   17/48     18/02     18/40     19/17     43/47     44/10     44/43
                                           17/31 S   17/52     18/24 S   19/13 S   43/29 S   44/04     44/32 S   44/49
        TMP            61   DAT.FMT         7/16 L    7/17      8/22 S    8/28     39/05 S   39/18     40/04 S   40/13
        T.DBL           3   FTNTEXT        19/20     48/12
        T.HOL           6   FTNTEXT        19/42
        T.OCT           5   FTNTEXT        18/28     48/05
        T.REAL          2   FTNTEXT        17/27     17/41
        UDATA.          0   EXTERNAL*       2/24 X   33/17     33/22
        UL             26   DAT.FMT         6/38 L   25/04 S   25/20     25/22 S   25/44
        V.COM       40000   FTNTEXT        49/10
        V.DEF      200000   FTNTEXT        49/23
        V.SCA        4000   FTNTEXT        49/03
        WC.HOL          7   DAT.FMT         6/23 L    8/38      8/45     13/29 S   20/05 S
        WTC=            0   EXTERNAL*      34/12     45/35
1        DATA - PROCESS DATA STATEMENTS                               COMPASS 3.7-871.     24/05/02. 15.53.48.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        Z               4                  13/25 D   15/28     17/38 D   22/51     24/52 D   25/05 D   25/15     47/29 D
                                           13/25     17/23 D   17/38     24/08 D   24/52     25/05     30/42 D   47/29
                                           13/38 D   17/23     17/43 D   24/08     24/56 D   25/09 D   30/42
                                           13/38     17/29 D   17/43     24/30 D   24/56     25/09     30/46 D
                                           14/06 D   17/29     19/39 D   24/30     24/56     25/13 D   30/46
                                           14/06     17/33 D   19/39     24/50 D   25/01 D   25/13     31/08 D
                                           15/28 D   17/33     22/51 D   24/50     25/01     25/15 D   31/08
        Z.DATA          0   EXTERNAL*      51/16
        Z.DIL           0   EXTERNAL*      10/57     11/30
        Z.DIT           0   EXTERNAL*      21/10     21/14     21/19
        (BIT.E        230   PROGRAM*       15/42 D
        (BIT.E1       231   PROGRAM*       15/45 D
        (BIT.E2       232   PROGRAM*       15/48 D
        (BIT.E3       233   PROGRAM*       15/51 D
        (BVT.E1       607   PROGRAM*       29/22 D
        (BVT.E2       610   PROGRAM*       29/25 D
        (BVT.E3       611   PROGRAM*       29/28 D
        (BVT.E4       612   PROGRAM*       29/31 D
        (BVT.E5       613   PROGRAM*       29/34 D
        (BVT.E6       614   PROGRAM*       29/37 D
        (BVT.E9       617   PROGRAM*       29/46 D
        (CHKSC.E      312   PROGRAM*       18/39 D
        (DTO.E          0   PROGRAM*        3/44 D
        (PDV.E1      1267   PROGRAM*       47/01 D
        (PDV.E2      1270   PROGRAM*       47/04 D
        (PSS.E1       615   PROGRAM*       29/40 D
        (PSS.E2       616   PROGRAM*       29/43 D
        (RAS5         127   PROGRAM*       12/01 D
        (RAS.E        120   PROGRAM*       11/43 D
        .DAL            1   FTNTEXT        41/12 F
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1127              IDENT  ERPRO
                       1127                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1124 
                                        LITERALS* LOCAL        1124         3 
                                        TABLES    COMMON          0         1 
                                        DAT.FMT   COMMON          0        51 
  
  
                                        ENTRY POINTS. 
  
                                        B=ERPRO          0+           FLDCHEK        246+           HCOUNTR        450+ 
                                        ASAER            2+           WIDTH          272+           HSTRNGR        502+ 
                                        ERPROI           3+           DECIM          315+           SLASH          650+ 
                                        FATALER         11+           SPESSET        332+           RECCHEK        662+ 
                                        ERPRO           14+           ONECNT         341+           LEFTPAR        706+ 
                                        INFORM           4+           XPROC          345+           RITEPAR        715+ 
                                        IMFLG            0+           NEGSET         361+           UERROR         752+ 
                                        CED             55+           TSASI          363+           IERROR         754+ 
                                        FORMAT         116+           TCODE          371+           FERROR         757+ 
                                        SAVECHR         20+/DAT.FMT/  SPES           403+           FINISH        1047+ 
                                        NUMBER         163+           NULLP          435+ 
                                        RANGE          222+           DELCOM         445+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        DIGMASK   CD        N.ERROR   RSELECT   F.CMPS    F1AMAC    PROGC     FWAWORK 
                                        TRANSIT   COL       N.FERR    NASAFLG   ANSI      LABCON    PROGNAM   O.SCR 
                                        NODE2     WB.FMT    LDPS2     LWAWORK   CDD       OUTUSE    P2NOGO    S.SCR 
                                        MASKS     DATA.     SCANNER   WTC=      ADDREF    UDATA.    L.UDV     FEFLAG
  
  
  
  
                                                  IDENT  ERPRO                                                   ERPRO       2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=ERPRO  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     ERPRO       5
                                                                                                                 ERPRO       6
                                                  EXT    DIGMASK,TRANSIT,NODE2,MASKS,CD,COL                      ERPRO       7
                                                  EXT    WB.FMT,DATA.                                            ERPRO       8
                                                  EXT    N.ERROR,N.FERR                                          ERPRO       9
                                                  EXT    LDPS2,SCANNER,RSELECT,NASAFLG                           ERPRO      10
                                                  EXT    LWAWORK                                                 ERPRO      11
                                                                                                                 ERPRO      12
                                  24     TYPE     EQU    24B               CURRENT STMT TYPE                     ERPRO      13
                                  32     SELIST   EQU    32B                                                     ERPRO      14
                                  23     CLABEL   EQU    23B                                                     ERPRO      15
                                  46     SCNT     EQU    46B                                                     ERPRO      16
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     2
  
  
                                                                                                                 ERPRO      17
                                 156     E.ETOF   EQU    110               ERROR TABLE OVERFLOW                  ERPRO      18
                                 316     E.TMIE   EQU    206               TOO MANY INFORMATIVE ERRORS           ERPRO      19
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     3
  
  
                                        ***                                                                      ERPRO      21
                                        *         PASS 1 ERROR PROCESSOR                                         ERPRO      22
                                        *                                                                        ERPRO      23
                                        *         ACCUMULATES INFORMATION IN THE ERROR TABLE FOR PRINTING DURING ERPRO      24
                                        *         PASS 2                                                         ERPRO      25
                                        *                                                                        ERPRO      26
                                        *         ENTRY CONDITIONS:                                              ERPRO      27
                                        *                B7 = RETURN ADDRESS                                     ERPRO      28
                                        *                B6 = ERROR NUMBER                                       ERPRO      29
                                        *                                                                        ERPRO      30
                                        *         IF B6 > 0 , THEN X4 OR X3 HOLD AN 8 CHARACTER MESSAGE          ERPRO      31
                                        *                                                                        ERPRO      32
                                        *         IF X4 = 0 THEN X3 HOLDS A BCD MESSAGE                          ERPRO      33
                                        *          ELSE X4 HOLDS AN E LIST ITEM TO BE ADDED TO THE ERROR MESSAGE ERPRO      34
                                        *                                                                        ERPRO      35
  
  
  
                                        ***                                                                      ERPRO      37
                                        *         THE FORMAT OF AN ERROR TABLE ENTRY IS:                         ERPRO      38
                                        *                                                                        ERPRO      39
                                        *         2/SEVERITY CODE,10/ERROR ORDINAL,48/MESSAGE                    ERPRO      40
                                        *         60/10H LINE NUMBER                                             ERPRO      41
                                        *                                                                        ERPRO      42
                                        *         THE ERROR CODES ARE:                                           ERPRO      43
                                        *                0 - FATAL TO EXECUTION                                  ERPRO      44
                                        *                1 - FATAL TO COMPILATION                                ERPRO      45
                                        *                2 - ASA                                                 ERPRO      46
                                        *                3 - INFORMATIVE                                         ERPRO      47
  
  
  
                                                  ENTRY  ASAER,ERPROI,FATALER,ERPRO,INFORM                       ERPRO      49
                                                  ENTRY  IMFLG       EXAMINED IN PS1CTL FOR FC TYPE ERRORS       FCC2126    17
                                                                                                                 ERPRO      50
                                                  USE    /TABLES/                                                ERPRO      51
             0                     1     O.ERTAB  BSS    1                 FWA OF ERROR TABLE                    ERPRO      52
                                                  USE    *                                                       ERPRO      53
                                                                                                                 ERPRO      54
             0                     1     IMFLG    BSSZ   1                                                       ERPRO      55
             1                     1     FCFLAG   BSSZ   1                 .NZ. IF FC ERROR HAS OCCURED          ERPRO      56
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     4
         ERROR EXITS
  
                                        ***                                                                      ERPRO      58
                                        *         ASAER  ACCUMULATE NON ASA USAGE DIAGNOSTICS                    ERPRO      59
                                        *                                                                        ERPRO      60
             2  7100000002               ASAER    SX0    2                                                       ERPRO      61
                          0400000004 +            EQ     INFORM                                                  ERPRO      62
  
  
  
                                        ***                                                                      ERPRO      64
                                        *         ERPROI - ACCUMULATE INFORMATIVE ERRORS                         ERPRO      65
                                        *                                                                        ERPRO      66
             3  7100000003               ERPROI   SX0    3                                                       ERPRO      67
                                                                                                                 ERPRO      68
             4  5110000000 X             INFORM   SA1    N.ERROR                                                 ERPRO      69
                          7221777647              SX2    X1-ERRMAX+12                                            ERPRO      70
             5  0332000017 +                      NG     X2,ERPRO.1        IF ROOM FOR 12 ERRORS                 ERPRO      71
                                                                                                                 ERPRO      72
                          6160777461              SB6    -E.TMIE                                                 ERPRO      73
             6  7100000003                        SX0    3                                                       FCC2111     6
                          7170000027              SX7    027B                                                    ERPRO      74
             7  20763                             LX7    51                JP  B7 INSTRUCTION                    ERPRO      75
                     5170000004 +                 SA7    INFORM                                                  ERPRO      76
            10  0400000017 +                      EQ     ERPRO.1                                                 ERPRO      77
  
  
  
                                        ***                                                                      ERPRO      79
                                        *         FATALER - PROCESS FATAL ERROR ( TO COMPILATION )               ERPRO      80
                                        *                                                                        ERPRO      81
            11  43673                    FATALER  MX6    59                                                      ERPRO      82
                     5110000001 +                 SA1    FCFLAG                                                  ERPRO      83
                               14066              BX0    -X6               X0 = 1                                ERPRO      84
            12  5160000000 +                      SA6    IMFLG                                                   ERPRO      85
                          0311000037 +            NZ    X1,ERPROL          IF PREVIOUS FC ERROR, DO NOT ISSUE    ERPRO      86
                                                                           REDUNDANT DIAGNOSTIC                  ERPRO      87
            13  54610                             SA6    A1                SET TO FC ERROR HAS OCCURED           ERPRO      88
                     0400000015 +                 EQ     ERPRO1                                                  ERPRO      89
  
  
  
                                        ***                                                                      ERPRO      91
                                        *         ERPRO - ACCUMULATE ERRORS FOR PASS 2                           ERPRO      92
                                        *                                                                        ERPRO      93
            14  43673                    ERPRO    MX6    59                                                      ERPRO      94
                     5160000000 X                 SA6    =XFEFLAG     SET FATAL ERROR FLAG FOR SCANNER           ERPRO      95
                               76000              SX0    B0           X0 = SEVERITY CODE                         ERPRO      96
                                                                                                                 ERPRO      97
            15  5110000000 X             ERPRO1   SA1    N.FERR                                                  ERPRO      98
                          7261000001              SX6    X1+1                                                    ERPRO      99
            16  54610                             SA6    A1                INCREMENT COUNT OF FATAL ERRORS       ERPRO     100
                                                                                                                 ERPRO     101
            17  6150000001               ERPRO.1  SB5    1                                                       ERPRO     102
                          5110000000 X            SA1    N.ERROR           ERROR COUNT                           ERPRO     103
            20  7221777633                        SX2    X1-ERRMAX                                               ERPRO     104
                          0322000047 +            PL     X2,ERTOV          IF THE TABLE IS FULL                  ERPRO     105
                                                                                                                 ERPRO     106
            21  73615                    LASTER   SX6    X1+B5             INCREMENT ERROR COUNT                 ERPRO     107
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     5
         ERROR EXITS
  
                     54610                        SA6    A1                                                      ERPRO     108
                                                                                                                 ERPRO     109
                          0660000023 +            PL     B6,ERPRO2         IF X4 OR X3 HAS A MESSAGE             ERPRO     110
            22  43500                             MX5    0                                                       ERPRO     111
                     67606                        SB6    -B6                                                     ERPRO     112
                          0400000026 +            EQ     ERPRO4                                                  ERPRO     113
                                                                                                                 ERPRO     114
            23  10533                    ERPRO2   BX5    X3                                                      ERPRO     115
                     0304000026 +                 ZR     X4,ERPRO4   IF X3 CONTAINS *DETAILS* ENTRY              ERPRO     116
                               10511              BX5    X1          (X5) = SAVED (X1)                           ERPRO     117
            24  22104                             LX1    X4                                                      ERPRO     118
                     0100000055 +                 RJ     CED         CONVERT E-LIST TO DISPLAY CODE              ERPRO     119
            25  20660                             LX6    -12                                                     ERPRO     120
                     10155                        BX1    X5          RESTORE (X1)                                ERPRO     121
                          22506                   LX5    X6                                                      ERPRO     122
                                                                                                                 ERPRO     123
                                        *         FORM THE ERROR TABLE ENTRY                                     ERPRO     124
                                                                                                                 ERPRO     125
            26  20012                    ERPRO4   LX0    10                                                      ERPRO     126
                     73006                        SX0    X0+B6             SEVERITY CODE AND ORDINAL             ERPRO     127
                          5120000046              SA2    SCNT        LINE NUMBER IN DPC                          ERPRO     128
            27  43314                             MX3    12                                                      ERPRO     129
                     15553                        BX5    -X3*X5      REMOVE POSSIBLE GARBAGE FROM BITS 59_48     ERPRO     130
                          20060                   LX0    48                                                      ERPRO     131
                               12605              BX6    X0+X5             FIRST WORD                            ERPRO     132
            30  20101                             LX1    1                 2*N.ERRORS                            ERPRO     133
                     10722                        BX7    X2                                                      ERPRO     134
                          5261000000 C            SA6    O.ERTAB+X1                                              ERPRO     135
            31  5110000000 +                      SA1    IMFLG                                                   ERPRO     136
                          5076000001              SA7    A6+1                                                    ERPRO     137
            32  0311000034 +                      NZ     X1,ERPROK   IF FATAL-TO-COMPILATION ERROR               ERPRO     138
            33  0277000000               ERPROE   JP     B7          EXIT                                        ERPRO     139
                                                                                                                 ERPRO     140
                                        *         FC ERROR - IGNORE THE REST OF THE PROGRAM                      ERPRO     141
                                                                                                                 ERPRO     142
            34  43700                    ERPROK   MX7    0                                                       ERPRO     143
                     54710                        SA7    A1          CLEAR CURRENT-FC-ERROR FLAG                 ERPRO     144
                          5170000000 X            SA7    =XS.SCR     RESET MANAGED SCRATCH TABLE SIZE TO ZERO    ERPRO     145
            35  5150000000 X                      SA5    =XO.SCR                                                 ERPRO     146
                          0305000037 +            ZR     X5,ERPROL   IF SCRATCH TABLE NOT INITIALIZED (PHASE 1)  ERPRO     147
            36  10655                             BX6    X5                                                      ERPRO     148
                     5160000000 X                 SA6    =XFWAWORK   EXPAND AVAILABLE WORKING STORAGE            ERPRO     149
            37  5130000024               ERPROL   SA3    TYPE                                                    ERPRO     150
                          63730                   SB7    X3                TYPE TO B7                            ERPRO     151
                                                                                                                 ERPRO     152
            40  6147777762                        SB4    B7-13                                                   ERPRO     153
                          6137777732              SB3    B7-37                                                   ERPRO     154
            41  0440000044 +                      ZR     B4,ERPROF         IF END CARD                           ERPRO     155
                          0430000044 +            ZR     B3,ERPROF         IF ASSUMED EOF                        ERPRO     156
            42  0100000000 X                      RJ     SCANNER           SCAN NEXT STMT                        ERPRO     157
                                                                                                                 ERPRO     158
            43  0400000037 +             ERPROP   EQ     ERPROL            LOOP ( USED AS A PLUG )               ERPRO     159
                                                                                                                 ERPRO     160
            44  76600                    ERPROF   SX6    B0                                                      FCC0220    41
                     43701                        MX7    1                                                       FCC0220    42
                          5160000000 X            SA6    =XL.UDV       CLEAR UDV TABLE                           ERPRO     162
            45  5170000000 X                      SA7    =XP2NOGO    SET *SUPPRESS OBJECT CODE GENERATION*       FCC0220    43
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     6
         ERROR EXITS
  
                          5110000000 X            SA1    =XPROGNAM                                               ERPRO     163
            46  0311000000 X                      NZ     X1,=XLDPS2  IF PROGRAM NAME FOUND, LOAD PASS 2          ERPRO     164
                          0400000000 X            EQ     =XPROGC     GENERATE *PROGRAM START.*                   ERPRO     165
  
  
  
  
                                        *         ERROR TABLE OVERFLOW                                           ERPRO     167
                                                                                                                 ERPRO     168
            47  5120000033 +             ERTOV    SA2    ERPROE            PLUG FOR THE ENTRY POINT              ERPRO     169
                          5130000000 +            SA3    IMFLG                                                   ERPRO     170
            50  0303000051 +            +         ZR     X3,*+1            IF NOT AN FC ERROR                    ERPRO     171
                          5120000043 +            SA2    ERPROP                                                  ERPRO     172
                                                                                                                 ERPRO     173
            51  10722                             BX7    X2                                                      ERPRO     174
                     5170000017 +                 SA7    ERPRO.1           PLUG THE ENTRY POINT                  ERPRO     175
            52  5170000000 +                      SA7    IMFLG             SET FLAG                              ERPRO     176
                          6160777621              SB6    -E.ETOF                                                 ERPRO     177
            53  6170000037 +                      SB7    ERPROL            RETURN ADDRESS                        ERPRO     178
                          7100000001              SX0    1                                                       FCC2111     7
            54  0400000021 +                      EQ     LASTER                                                  ERPRO     179
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     7
        CONVERT E-LIST TO DISPLAY CODE                                CED 
  
                                        **        CED - CONVERT E-LIST TO DISPLAY CODE.                          ERPRO     181
                                        *                                                                        ERPRO     182
                                        *                                                                        ERPRO     183
                                        *         ENTRY  (X1) = E-LIST ENTRY                                     ERPRO     184
                                        *                                                                        ERPRO     185
                                        *         EXIT   (X6) = CONVERTED ENTRY, 10L FORMAT.  (IF A CONSTANT,    ERPRO     186
                                        *                       FIRST OR LEFTMOST TEN DIGITS ONLY.)              ERPRO     187
                                        *                                                                        ERPRO     188
                                        *         USES   X - 2, 6, 7                                             ERPRO     189
                                        *                A - 2                                                   ERPRO     190
                                        *                B - 2                                                   ERPRO     191
                                        *                                                                        ERPRO     192
                                        *         CALLS  NONE                                                    ERPRO     193
                                                                                                                 ERPRO     194
                                                                                                                 ERPRO     195
                                                  QUAL   CED                                                     ERPRO     196
                                                                                                                 ERPRO     197
            55  0400400055 +             CED      SUBR               ** ENTRY/EXIT **                            ERPRO     198
            56  26621                             UX6,B2 X1          (B2) = E-LIST TYPE CODE                     ERPRO     199
                     7172777776                   SX7    B2-1                                                    ERPRO     200
            57  0307000064 +                      ZR     X7,CED3     IF A NAME                                   ERPRO     201
                          5122000071 +            SA2    ELOPTBL-2+B2      (X2) = PREFETCH DPC FOR E-LIST OPR    ERPRO     202
            60  0520000067 +                      NZ     B2,CED4     IF NOT A CONSTANT                           ERPRO     203
                                                                                                                 ERPRO     204
                                        *         PROCESS CONSTANT.                                              ERPRO     205
                                                                                                                 ERPRO     206
                          6221777776              SB2    X1-1                                                    ERPRO     207
            61  0720000063 +                      MI     B2,CED2     IF A LOGICAL CONSTANT                       ERPRO     208
                          53210                   SA2    X1                                                      ERPRO     209
                               10622              BX6    X2          RETURN (X6) = FIRST TEN CHARS OF CONSTANT   ERPRO     210
            62  0400000055 +                      EQ     EXIT.                                                   ERPRO     211
                                                                                                                 ERPRO     212
            63  5221000072 +             CED2     SA2    LCONTBL+1+X1      (X2) = DPC FOR LOGICAL CONSTANT       ERPRO     213
                          0400000067 +            EQ     CED4                                                    ERPRO     214
                                                                                                                 ERPRO     215
                                        *         PROCESS NAME.                                                  ERPRO     216
                                                                                                                 ERPRO     217
            64  43766                    CED3     MX7    -6                                                      ERPRO     218
                     10266                        BX2    X6                                                      ERPRO     219
                          21636                   AX6    30                                                      ERPRO     220
                               15767              BX7    -X7*X6      (X7) = 3RD CHAR OF NAME                     ERPRO     221
            65  7267777724                        SX6    X7-1R$                                                  ERPRO     222
                          7170000006              SX7    1R &1R$                                                 ERPRO     223
            66  0316000067 +                      NZ     X6,CED4     IF NO TRAILING $ (NOT REGISTER NAME)        ERPRO     224
                          20736                   LX7    30                                                      ERPRO     225
                               13227              BX2    X2-X7       CHANGE $ TO BLANK                           ERPRO     226
                                                                                                                 ERPRO     227
                                        *         EXTRACT 8R CHARACTERS, LEFT JUSTIFY, BLANK FILL AND EXIT.      ERPRO     228
                                                                                                                 ERPRO     229
            67  20214                    CED4     LX2    12                                                      ERPRO     230
                     7160005555                   SX6    2R                                                      ERPRO     231
                               43760              MX7    8*6                                                     ERPRO     232
            70  11272                             BX2    X7*X2                                                   ERPRO     233
                     36626                        IX6    X2+X6                                                   ERPRO     234
                          0400000055 +            EQ     EXIT.                                                   ERPRO     235
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     8
        CONVERT E-LIST TO DISPLAY CODE                                EDT                 CED 
  
                                        **        EDT - E-LIST TO DISPLAY CODE CONVERSION TABLE.                 ERPRO     237
                                        *                                                                        ERPRO     238
                                        *  TAG    EDT    DPC                                                     ERPRO     239
                                        *                                                                        ERPRO     240
                                        *                                                                        ERPRO     241
                                        *         ENTRY  *DPC* = DISPLAY CODE, MAX 8 CHARACTERS                  ERPRO     242
                                                                                                                 ERPRO     243
                                                                                                                 ERPRO     244
                                                  PURGMAC   EDT                                                  ERPRO     245
                                                                                                                 ERPRO     246
                                                  MACRO  EDT,T,D                                                 ERPRO     247
                                         T        VFD    12/0,48/8H_D                                            ERPRO     248
                                         EDT      ENDM                                                           ERPRO     249
                                                                                                                 ERPRO     250
                                                                                                                 ERPRO     251
                                                                                                                 ERPRO     252
                                        **        E-LIST LOGICAL CONSTANT CONVERSION TABLE.                      ERPRO     253
                                                                                                                 ERPRO     254
            71                           LCONTBL  BSS    0                                                       ERPRO     255
            71  00005724222505575555     TRUE     EDT    .TRUE.                                                  ERPRO     256
            72  00005706011423055755     FALSE    EDT    .FALSE.                                                 ERPRO     257
                                                                                                                 ERPRO     258
                                                                                                                 ERPRO     259
                                                                                                                 ERPRO     260
                                        **        E-LIST OPERATOR CONVERSION TABLE.                              ERPRO     261
                                                                                                                 ERPRO     262
            73                           ELOPTBL  BSS    0                                                       ERPRO     263
      L      2                                    LOC    2                                                       ERPRO     264
                                                                                                                 ERPRO     265
      L      2  00005255555555555555     RP       EDT    )                                                       ERPRO     266
      L      3  00005655555555555555     COMMA    EDT    (,)                                                     ERPRO     267
      L      4  00000516044623241524     EOS      EDT    END-STMT                                                ERPRO     268
      L      5  00005455555555555555     EQU      EDT    =                                                       ERPRO     269
      L      6  00005155555555555555     LP       EDT    ()(                                                     ERPRO     270
      L      7  00005717225555555555     OR       EDT    .OR                                                     ERPRO     271
      L     10  00005701160457555555     AND      EDT    .AND.                                                   ERPRO     272
      L     11  00005716172457555555     NOT      EDT    .NOT.                                                   ERPRO     273
      L     12  00005714055755555555     LE       EDT    .LE.                                                    ERPRO     274
      L     13  00005714245755555555     LT       EDT    .LT.                                                    ERPRO     275
      L     14  00005707055755555555     GE       EDT    .GE.                                                    ERPRO     276
      L     15  00005707245755555555     GT       EDT    .GT.                                                    ERPRO     277
      L     16  00005716055755555555     NE       EDT    .NE.                                                    ERPRO     278
      L     17  00005705215755555555     EQ       EDT    .EQ.                                                    ERPRO     279
      L     20  00004655555555555555     MINUS    EDT    -                                                       ERPRO     280
      L     21  00004555555555555555     PLUS     EDT    +                                                       ERPRO     281
      L     22  00004755555555555555     STAR     EDT    *                                                       ERPRO     282
      L     23  00005055555555555555     SLASH    EDT    /                                                       ERPRO     283
      L     24  00004747555555555555     DSTAR    EDT    **                                                      ERPRO     284
      L                                                                                                          ERPRO     285
           116                                    LOC    *O                                                      ERPRO     286
                                                                                                                 ERPRO     287
                                                                                                                 ERPRO     288
                                                                                                                 ERPRO     289
                                                  QUAL   *                                                       ERPRO     290
                                  55 +   CED      =      /CED/CED                                                ERPRO     291
                                                  ENTRY  CED                                                     ERPRO     292
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE     9
        TRACE ERROR MESSAGE ORIGINATOR                                TEM 
  
                                        **        TEM - TRACE ERROR MESSAGE ORIGINATOR.                          ERPRO     294
                                        *                                                                        ERPRO     295
                                        *                INTERCEPTS *ERPRO* CALL AND LISTS THE ERROR MESSAGE     ERPRO     296
                                        *         NUMBER, WITH ORIGINATOR-S DECK NAME AND DECK-RELATIVE ADDRESS, ERPRO     297
                                        *         INTERSPERSED WITH SOURCE PROGRAM LISTING.  ACTIVATED ONLY IN   ERPRO     298
                                        *         A TEST MODE COMPILER, WHEN SNAP=M SELECTED.                    ERPRO     299
                                        *                                                                        ERPRO     300
                                        *                                                                        ERPRO     301
                                        *         ENTRY  (B4) = *ERPRO* ENTRY ADDRESS.                           ERPRO     302
                                        *                (B6) = ERROR MESSAGE NUMBER, OR ITS COMPLEMENT.         ERPRO     303
                                        *                                                                        ERPRO     304
                                        *         EXIT   TO (B4) - DESIRED *ERPRO* SUBROUTINE.                   ERPRO     305
                                        *                                                                        ERPRO     306
                                        *         USES   X - 1, 6    (OTHER REGISTERS ARE SAVED AND RESTORED)    ERPRO     307
                                        *                A - 1, 6                                                ERPRO     308
                                        *                B - NONE                                                ERPRO     309
                                        *                                                                        ERPRO     310
                                        *         CALLS  CDD, FRA, LISTL                                         ERPRO     311
                                                                                                                 ERPRO     312
                                                                                                                 ERPRO     313
                                         .T       IFNE   TEST,0                                                  ERPRO     314
                                                  QUAL   TEM                                                     ERPRO     315
                                                                                                                 ERPRO     316
                                         TEM      SUBR               ** ENTRY/EXIT **                            ERPRO     317
                                                  SA1    =XCO.SNAP   CHECK CONTROL CARD SNAP= OPTION             ERPRO     318
                                                  LX1    1RM                                                     ERPRO     319
                                                  MI     X1,TEM2     IF SNAP=M SELECTED                          ERPRO     320
                                                  JP     B4          CONTINUE WITHOUT TRACEBACK ...              ERPRO     321
                                                                                                                 ERPRO     322
                                        *         BEGIN TRACEBACK PROCESSING.                                    ERPRO     323
                                                                                                                 ERPRO     324
                                         TEM2     SX6    B6          (X6) = ERROR MESSAGE NUMBER                 ERPRO     325
                                                  SX1    B6                                                      ERPRO     326
                                                  AX6    59-0                                                    ERPRO     327
                                                  BX6    X1-X6       (X6) = ABS (ERROR MESSAGE NUMBER)           ERPRO     328
                                                  SA6    TEMA                                                    ERPRO     329
                                                  CALL   SAVE=       SAVE ALL REGISTERS                          ERPRO     330
                                                  SA2    EXIT.                                                   ERPRO     331
                                                  SB1    1                                                       ERPRO     332
                                                  AX2    30                                                      ERPRO     333
                                                  SX1    X2-1        (X1) = ADDRESS OF ORIGIN OF CALL            ERPRO     334
                                                  SB7    TEM3        (B7) = RETURN ADDRESS                       ERPRO     335
                                                  EQ     =XFRA=      FIND RELATIVE ADDRESS                       ERPRO     336
                                                                                                                 ERPRO     337
                                         TEM3     SA6    TEMB                                                    ERPRO     338
                                                  SA7    A6+1                                                    ERPRO     339
                                                  SA1    TEMA        (X1) = ABS (ERROR MESSAGE NUMBER)           ERPRO     340
                                                  CALL   CDD         CONVERT BINARY TO DECIMAL DISPLAY CODE      ERPRO     341
                                                  BX6    X4                                                      ERPRO     342
                                                  SA6    TEMA                                                    ERPRO     343
                                                  LISTL  TEMSG,TEMSGL                                            ERPRO     344
                                                  CALL   RESET=      RESTORE ALL REGISTERS                       ERPRO     345
                                                  JP     B4          CONTINUE ...                                ERPRO     346
                                                                                                                 ERPRO     347
                                                                                                                 ERPRO     348
                                                                                                                 ERPRO     349
                                         TEMSG    DATA   H.          .                                           ERPRO     350
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    10
        TRACE ERROR MESSAGE ORIGINATOR                                TEM 
  
                                                  DATA   H.     *** ERR MSG NR.                                  ERPRO     351
                                         TEMA     DATA   H.NNN.                  ABS (ERROR MESSAGE NUMBER )     ERPRO     352
                                                  DATA   H.POSTED BY.                                            ERPRO     353
                                         TEMB     DATA   C.000000 IN XXXXXXX.                                    ERPRO     354
                                         TEMSGL   =      *-TEMSG                                                 ERPRO     355
                                                  SPACE  4                                                       ERPRO     356
                                                  QUAL   *                                                       ERPRO     357
                                         TEM      =      /TEM/TEM                                                ERPRO     358
                                                  ENTRY  TEM                                                     ERPRO     359
                                                  SPACE  4                                                       ERPRO     360
                                         .T       ENDIF                                                          ERPRO     361
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    11
        MACRO DEFINITIONS 
  
                                        LOOK     MACRO     XN                   TO LOOK AT NEXT CHAR IN STRING   ERPRO     364
                                                 A_XN      X1,B2                WITHOUT UPDATING POINTERS        ERPRO     365
                                                 B_XN      -X0*XN               MASK RTMOST CHAR INTO XN         ERPRO     366
                                                 ENDM                                                            ERPRO     367
                                        STEPIN   MACRO                          TO MOVE POINTERS TO NEXT CHARACT ERPRO     368
                                                 LOCAL     NEXT                 ER IN STRING -PACKED 10 CHAR PER ERPRO     369
                                                 SB2       B2-6                 WORD.  DECREMENT SHIFT COUNT     ERPRO     370
                                                 PL        B2,NEXT              COUNT LEGAL-JUMP OUT             ERPRO     371
                                                 SA1       A1-1                 NO. POINT TO NEXT WORD           ERPRO     372
                                                 SB2       54                   RESET TO MAX SHIFT COUNT         ERPRO     373
                                        NEXT     BSS       0                    AND RETURN.                      ERPRO     374
                                                 ENDM                                                            ERPRO     375
                                        STEPBK   MACRO                          TO MOVE POINTERS BACK            FCCA402     7
                                                 LOCAL  BACK                    ONE CHARACTER                    FCCA402     8
                                                 SB2    B2-54                   CHECK SHIFT COUNT                FCCA402     9
                                                 MI     B2,BACK                 IF SHIFT COUNT NOT OUT OF RANGE  FCCA402    10
                                                 SA1    A1+1                    POINT TO PREVIOUS WORD           FCCA402    11
                                                 SB2    -60                     SET TO ZERO SHIFT COUNT          FCCA402    12
                                        BACK     SB2    B2+60                   SET TO ZERO OR INCREMENT         FCCA402    13
                                        *                                       SHIFT COUNT                      FCCA402    14
                                                 ENDM                                                            FCCA402    15
                                        GETCH    MACRO     XN                   TO FETCH NEXT CHARACTER IN       ERPRO     376
                                                 LOCAL     LBL                  STRING   CHARACTERS PACKED       ERPRO     377
                                                 A_XN      X1,B2                10 PER WORD.  SHIFT TO RT JSTFY  ERPRO     378
                                                 B_XN      -X0*XN               MASK OUT ALL BUT RTMOST CHAR     ERPRO     379
                                                 GT        B2,B0,LBL            MORE CHARS IN WORD  GO TO LBL    ERPRO     380
                                                 SA1       A1-1                 WORD EMPTY. POINT TO NEXT WORD   ERPRO     381
                                                 SB2       60                   RESET SHIFT COUNT                ERPRO     382
                                        LBL      SB2       B2-6                 DECREMENT SHIFT CT FOR NEXT CHAR ERPRO     383
                                                 ENDM                                                            ERPRO     384
                                        PUTCH    MACRO     XN,XM                TO STORE AWAY CHARACTER STRING   ERPRO     385
                                                 LOCAL     LBL,M                PACKED 10 CHARACTERS PER WORD.   ERPRO     386
                                        M        MICRO     2,1, XM                                               ERPRO     387
                                                 BX6       XN                   OUTPUT STORAGE IS ONE CHARACTER  ERPRO     388
                                                 SA"M"     SAVECHAR             BEHIND, HOLDING MOST RECENT CHAR ERPRO     389
                                                 L_XM      XM,B7                IN LOC SAVECHAR.                 ERPRO     390
                                                 BX7       X7+XM                SHIFT OUTPUT WORD TO APPEND CHAR ERPRO     391
                                                 SB7       B7-6                 UPDATE SHIFT COUNT               ERPRO     392
                                                 SA6       A"M"                 STORE NEW SAVECHAR               ERPRO     393
                                                 PL        B7,LBL               WORD NOT FULL. GO TO LBL         ERPRO     394
                                                 SA7       A7-1                 STORE FULL WORD + UPDATE POINTER ERPRO     395
                                                  SA"M"  =XFWAWORK                                               ERPRO     396
                                                  SB7    XM                                                      ERPRO     397
                                                  S_XM   A7-B7                                                   ERPRO     398
                                                  SB7    54                                                      ERPRO     399
                                                  MX7    0                                                       ERPRO     400
                                                  PL     XM,LBL                                                  ERPRO     401
                                                  SX3    45                                                      ERPRO     402
                                                  EQ     FERROR                                                  ERPRO     403
                                        LBL      BSS       0                    AND RETURN.                      ERPRO     404
                                                 ENDM                                                            ERPRO     405
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    12
        FORMAT SCANNING PROCESSOR 
  
                                  10     E.DDSN   EQU    8                 DOUBLY DEFINED STMT LABEL             ERPRO     407
                                  22     E.CLU    EQU    18                LABEL PREVIOUSLY USED AS STMT NUMBER  ERPRO     408
                                                                                                                 ERPRO     409
                                 211     MINMAX   EQU    137                                                     ERPRO     410
                                1147     PMAX     EQU    615                                                     ERPRO     411
                                  11     LEVMAX   EQU    9           MAX LEVEL OF PARENS                         ERPRO     412
                                 352     LASTERR  EQU    234                                                     ERPRO     413
                                                                                                                 ERPRO     414
                                        ***                                                                      ERPRO     415
                                        *         FORMAT PROCESSOR                                               ERPRO     416
                                        *                                                                        ERPRO     417
                                        *         SYNTAX:  LABEL FORMAT(......)                                  ERPRO     418
                                        *                                                                        ERPRO     419
           116  00000000000000000000     FORMAT   ENTRY.                                                         ERPRO     420
           117  7160000000 X                      OUTUSE DATA.             GET IN THE RIGHT RB                   ERPRO     421
           120  5110000023                        SA1    CLABEL                                                  ERPRO     422
                          6110000001              SB1    1                 NO LEADING ZEROS                      ERPRO     423
           121  6170000122 +            +         SB7    *+1                                                     ERPRO     424
                          0400000000 X            EQ     =XLABCON          GO ENTER NAME IN SYMTAB               ERPRO     425
                                                                                                                 ERPRO     426
                                        *         HERE IF FORMAT LABEL WAS NOT ALREADY IN *SYMTAB*.              FCC0628    23
                                                                                                                 FCC0628    24
           122  0400000134 +                      EQ     FMT1A                                                   FCC0628    25
                                                                                                                 FCC0628    26
                                        *         HERE IF FORMAT LABEL ALREADY IN *SYMTAB*.                      FCC0628    27
                                                                                                                 FCC0628    28
           123  5130000023                        SA3    CLABEL                                                  FCC0628    29
                          6071777776              SB7    A1-1        SAVE THE SYM TAB ENTRY                      FCC2202    26
           124  76670                             SX6    B7          FORMAT ADDR INTO A TMP                      FCC2202    27
                     5160000161 +                 SA6    SAVADR      STORAGE (WORD-B)                            FCC2202    28
           125  7100000023                        SX0    M.FNCHK                                                 FCC0628    30
                          20352                   LX3    -18                                                     FCC0628    31
                               20060              LX0    P.FNCHK                                                 FCC0628    32
           126  11602                             BX6    X0*X2       EXTRACT *DSN,RAS, AND DLT* BITS FROM WORD B FCC0628    33
                     6170000116 +                 SB7    FORMAT      (B7) = *ERPRO* RETURN ADDRESS               FCC0628    34
           127  0306000131 +                      ZR     X6,FMT1     IF FMT LAB NOT PREVIOUSLY REFD AS STMT LAB  FCC0628    35
                          13444                   POSTER SEV=FE,NR=E.CLU,FMT=DPC,TXT=X3,RETURN=B7 *LAB USE CONF* FCC0628    36
                                                                                                                 FCC0628    37
           131  43002                    FMT1     MX0    2                                                       FCC0628    38
                     20065                        LX0    2+P.DFN                                                 FCC0628    39
                          11602                   BX6    X0*X2                                                   FCC0628    40
           132  0306000134 +                      ZR     X6,FMT1A    IF FMT LAB NOT PREVIOUSLY DEFD AS FMT LAB   FCC0628    41
                          13444                   POSTER SEV=FE,NR=E.DDSN,FMT=DPC,TXT=X3,RETURN=B7 *DBLY DEF LB* FCC0628    42
                                                                                                                 FCC0628    43
                                        *         HERE TO PROCESS *FORMAT* STATEMENT.                            FCC0628    44
                                                                                                                 FCC0628    45
                                         DFN      BIT    P.TYP-P.DFN                                             FCC0628    46
                                                                                                                 FCC0628    47
           134  7100000301               FMT1A    SX0    T.LAB*DFN+1                                             FCC0628    48
                          20063                   LX0    P.DFN                                                   ERPRO     448
                               12602              BX6    X0+X2                                                   ERPRO     449
           135  5130000000 X                      SA3    DATA.                                                   ERPRO     450
                          5140000000 X            SA4    WB.FMT            RL AND RB FOR FORMAT LABEL            ERPRO     451
           136  20323                             LX3    P.RA                                                    ERPRO     452
                     36534                        IX5    X3+X4             +RA                                   ERPRO     453
                          12665                   BX6    X6+X5             DEFINE THE ADDRESS                    ERPRO     454
                               54620              SA6    A2                UPDATE WORD 2 OF SYMTAB               ERPRO     455
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    13
        FORMAT SCANNING PROCESSOR 
  
                                                                                                                 ERPRO     456
           137  76610                             SX6    B1                                                      ERPRO     457
                     5160000036 C                 SA6    TA1               SAVE B1                               ERPRO     458
           140  5110001124 +                      SA1    =10H  FMT                                               ERPRO     459
                          0100000000 X            CALL   F1AMAC            OUTPUT FORMAT MACRO CALL              ERPRO     460
                                                                                                                 ERPRO     461
           141  5150000000 X                      SA5    RSELECT                                                 ERPRO     462
                          0305000144 +            ZR     X5,FMT2           IF R = 0                              ERPRO     463
           142  5110000036 C                      ADDREF TA1,DEF           DEFINTION OF THE FORMAT LABEL         ERPRO     464
                                                                                                                 ERPRO     465
           144                           FMT2     BSS    0                                                       ERPRO     466
  
  
  
                                        *         INITIALIZE THE FORMAT PROCESSOR                                ERPRO     468
                                                                                                                 ERPRO     469
           144  7150777741                        SX5    -N.CELLS                                                ERPRO     470
                          43600                   MX6    0                                                       ERPRO     471
                               76750              SX7    B5                                                      ERPRO     472
           145  5160000000 C                      SA6    O.CELLS           CLEAR FIRST CELL                      ERPRO     473
           146  54665                   +         SA6    A6+B5             CLEAR CONTROL CELLS                   ERPRO     474
                     73555                        SX5    X5+B5                                                   ERPRO     475
                          0335000146 +            NG     X5,*                                                    ERPRO     476
           147  5170000013 C                      SA7    NUMN              NUMN = 1                              ERPRO     477
                                                                                                                 ERPRO     478
                          6110000001              SB1    1                 B1 = 1                                ERPRO     479
           150  6120000066                       SB2       54                   INITIALIZE INPUT SHIFT COUNT     ERPRO     480
                          5140000032             SA4       SELIST               FETCH ADDR OF FIRST PACKED WORD  ERPRO     481
           151  53140                            SA1       X4                   SET INPUT ADDR AND WORD          ERPRO     482
                     5130000000 X                 SA3    LWAWORK                                                 ERPRO     483
                               53230              SA2    X3                                                      ERPRO     484
           152  10722                            BX7       X2                   TRANSFER                         ERPRO     485
                     54720                        SA7    A2                                                      ERPRO     486
                          6170000066             SB7       54                   INITIALIZE OUTPUT SHIFT COUNT    ERPRO     487
           153  6130000000 X                     SB3       NODE2                                                 ERPRO     488
                          5100000000 X           SA0       MASKS                                                 ERPRO     489
           154  13777                            BX7       X7-X7                                                 ERPRO     490
                     43066                       MX0       60-6                                                  ERPRO     491
                          23221                  GETCH     X2                                                    ERPRO     492
                          10622                  BX6       X2                                                    ERPRO     493
           160  5160000020 C                     SA6       SAVECHAR                                              ERPRO     494
                          0400000000 X            EQ     TRANSIT                                                 ERPRO     495
  
  
  
                                                  USE    /DAT.FMT/                                               ERPRO     497
             0                           O.CELLS  BSS    0                                                       ERPRO     498
             0                    12    PUSHDOWN BSSZ      LEVMAX+1                                              ERPRO     499
            12  00000000000000000000    NUMD     DATA      0                                                     ERPRO     500
            13  00000000000000000001    NUMN     DATA      1                                                     ERPRO     501
            14  00000000000000000000    NUMW     DATA      0                                                     ERPRO     502
            15  00000000000000000000     SPESFLG  DATA   0           =3,-1,1,-3 FOR V,E,(I,O),(D,G) SPECIFICATIO ERPRO     503
            16  00000000000000000000    COLCNT   DATA      0                                                     ERPRO     504
            17  00000000000000000000    LEVEL    DATA      0                                                     ERPRO     505
            20  00000000000000000000    SAVECHAR DATA      0                                                     ERPRO     506
                                                 ENTRY     SAVECHR                                               ERPRO     507
                                  20 C  SAVECHR  EQU       SAVECHAR                                              ERPRO     508
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    14
        FORMAT SCANNING PROCESSOR                                               DAT.FMT 
  
            21  00000000000000000000    RANB4    DATA      0                                                     ERPRO     509
            22  00000000000000000000    FLDX3    DATA      0                                                     ERPRO     510
            23  00000000000000000000    FLDB4    DATA      0                                                     ERPRO     511
            24  00000000000000000000    TEMPNW   DATA      0                                                     ERPRO     512
            25  00000000000000000000    WIDB4    DATA      0                                                     ERPRO     513
            26  00000000000000000000    WIDX3    DATA      0                                                     ERPRO     514
                                  23 C   DECB4    EQU    FLDB4                                                   ERPRO     515
                                  25 C   XB4      EQU    WIDB4                                                   ERPRO     516
                                  25 C   TSAB4    EQU    WIDB4                                                   ERPRO     517
                                  25 C   TCOB4    EQU    WIDB4                                                   ERPRO     518
                                  25 C   SPESB4   EQU    WIDB4                                                   ERPRO     519
                                  21 C   NULB4    EQU    RANB4                                                   ERPRO     520
                                  25 C   HCOB4    EQU    WIDB4                                                   ERPRO     521
                                  25 C   HSTB4    EQU    WIDB4                                                   ERPRO     522
                                  25 C   SLAB4    EQU    WIDB4                                                   ERPRO     523
                                  23 C   RECB4    EQU    FLDB4                                                   ERPRO     524
                                  22 C   RECX3    EQU    FLDX3                                                   ERPRO     525
                                  25 C   RITEB4   EQU    WIDB4                                                   ERPRO     526
            27  00000000000000000000     FLAGPON  DATA   0           FLAG FOR SCALE FACTOR                       ERPRO     527
            30  00000000000000000000     HDELIM   DATA   0           CONTAINS HOLL STRING DELIMITER              ERPRO     528
            31  00000000000000000000     COLTEMP  DATA   0           TEMPORARY FOR COLUMN COUNT                  ERPRO     529
            32  00000000000000000000     XWORD    DATA   0           NONZERO IF MINUS SIGN                       ERPRO     530
            33  00000000000000000000     MORECH   DATA   0                                                       ERPRO     531
            34  00000000000000000000     STRING   DATA   0                                                       ERPRO     532
            35  00000000000000000000    FE       DATA      0                                                     ERPRO     533
                                  36     N.CELLS  EQU    *-O.CELLS         END OF CELLS THAT ARE INITIALIZED     ERPRO     534
            36  00000000000000000000    TA1      DATA      0                                                     ERPRO     535
            37  00000000000000000000    TB2      DATA      0                                                     ERPRO     536
            40  00000000000000000000    TX2      DATA      0                                                     ERPRO     537
                                  40 C   TTA7     EQU    TX2                                                     ERPRO     538
            41  00000000000000000000    TB3      DATA      0                                                     ERPRO     539
            42  00000000000000000000    TB4      DATA      0                                                     ERPRO     540
            43  00000000000000000000    TX4      DATA      0                                                     ERPRO     541
            44  00000000000000000000    TB7      DATA      0                                                     ERPRO     542
            45  00000000000000000000    TA7      DATA      0                                                     ERPRO     543
            46  00000000000000000000    TX7      DATA      0                                                     ERPRO     544
            47  00000000000000000000     MYFIRST  DATA   0                                                       ERPRO     545
            50  00000000000000000000     MYLAST   DATA   0                                                       ERPRO     546
                                                  USE    *                                                       ERPRO     547
           161  00000000000000000000     SAVADR   DATA   0           CONTAINS SYM TAB ENT OF FORMAT ADDR         FCC2202    29
  
  
  
           162  17170631463146314632    TENMU    DATA      17170631463146314632B     BINARY_DISPLAY CONSTANT     ERPRO     549
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    15
        NUMBER
  
                                                 ENTRY     NUMBER                                                ERPRO     552
           163  63630                   NUMBER   SB6       X3                   SAVE INPUT PARAMETER             ERPRO     553
                     13333                       BX3       X3-X3                CLEAR OUT TEMP SAVE AREA         ERPRO     554
                          5140000000 X           SA4       DIGMASK                                               ERPRO     555
           164  7252777723                        SX5    X2-1R=                                                  ERPRO     556
                          0305000211 +            ZR     X5,NUMB1    IF =, SPECIAL SYMBOL FOR A NUMBER           ERPRO     557
           165  0400000177 +                     EQ        ACCUM                                                 ERPRO     558
           166  6122777771              MOVEIN   STEPIN                         POINT TO NEXT CHAR TO STORE      ERPRO     559
           170  10622                            PUTCH     X2,X5                STORE CHAR IN OUTPUT STRING      ERPRO     560
           177  22513                   ACCUM    LX5       X3,B1                2*ACCUM                          ERPRO     561
                     7222777744                  SX2       X2-1R0               REMOVE DISPLAY CODE FROM DIGIT   ERPRO     562
                               20303             LX3       3                    8*ACCUM                          ERPRO     563
           200  36353                            IX3       X5+X3                10*ACCUM                         ERPRO     564
                     36332                       IX3       X3+X2                ADD CURRENT DIGIT TO ACCUM       ERPRO     565
           201  23221                   ADVCHAR  LOOK      X2                   FETCH NEXT CHAR                  ERPRO     566
                          63520                  SB5       X2                   SET UP CONDITIONS                ERPRO     567
                               22554             LX5       X4,B5                FOR DIGIT RECOGNITION            ERPRO     568
           202  0335000166 +                     MI        X5,MOVEIN            YES,DIGIT. STORE AND CONTINUE    ERPRO     569
                          7222777722             SX2       X2-1R                SUBTRACT DISPLAY CODE BLANK      ERPRO     570
           203  0312000207 +                     NZ        X2,NONDIG            NOT BLANK. EXIT.                 ERPRO     571
                          6122777771             STEPIN                         BLANK. MOVE UP INPUT POINTER.    ERPRO     572
           206  0400000201 +                     EQ        ADVCHAR              GO,GET NEXT CHARACTER.           ERPRO     573
           207  10633                   NONDIG   BX6       X3                   RETREIVE BINARY NUMBER           ERPRO     574
                     76360                       SX3       B6                   RESTORE INPUT PARAMETER          ERPRO     575
                          5166000013 C           SA6       B6+NUMN              STORE CONVERTED BINARY NUMBER.   ERPRO     576
           210  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     577
           211  5130000161 +             NUMB1    SA3    SAVADR      PICK UP WORD-B OF SYM TAB ENT OF FMT        FCC2202    30
                          53330                   SA3    X3                                                      FCC2202    31
                               43673              MX6    73B         SET UP MASK TO SET THE V OR = FLAG          FCC2202    32
           212  16336                             BX3    -X6+X3      SET THE V OR = FLAG                         FCC2202    33
                     10633                        BX6    X3                                                      FCC2202    34
                          54630                   SA6    A3          UPDATE WORD-B OF SYM TAB ENT OF FMT         FCC2202    35
                               43674              MX6    60                                                      FCC2202    36
           213  5166000013 C                      SA6    B6+NUMN     -0 FOR = SIGN ENCOUNTERED                   ERPRO     579
                          7130000026              SX3    22          NON-ANSI SYMBOL                             ERPRO     580
           214  23221                    NUMB2    LOOK   X2                                                      ERPRO     581
                          7222777722              SX2    X2-1R                                                   ERPRO     582
           215  0312000752 +                      NZ     X2,UERROR   IF ALL TRAILING BLANKS ARE REMOVED          ERPRO     583
                          6122777771              STEPIN                                                         ERPRO     584
           220  0400000214 +                      EQ     NUMB2                                                   ERPRO     585
           221  0400000752 +                      EQ     UERROR                                                  ERPRO     586
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    16
        RANGE 
  
                                                 ENTRY     RANGE                                                 ERPRO     588
           222  63630                   RANGE    SB6       X3                   SAVE INPUT PARAMETER             ERPRO     589
                     76640                       SX6       B4                   FETCH RETURN ADDRESS             ERPRO     590
                          5160000021 C           SA6       RANB4                STORE RETURN ADDRESS IN RANB4    ERPRO     591
           223  6140000230 +                     SB4       RANREST              SET RETURN-IN-RANGE ADDRESS      ERPRO     592
                          0561000232 +           NE        B6,B1,ZERTEST        WIDTH RANGE TEST, IF NO J ZERTES ERPRO     593
           224  5150000014 C                     SA5       NUMW                 GET WIDTH VALUE                  ERPRO     594
                          7130000011             SX3       9                                                     ERPRO     595
           225  7265777565                       SX6       X5-MINMAX-1          SUBTRACT INSIDE MAX              ERPRO     596
                          0336000230 +            MI     X6,RANREST  IF WIDTH IS INSIDE MAX                      ERPRO     597
           226  21521                             AX5    17                                                      ERPRO     598
                     0305000754 +                 ZR     X5,IERROR   IF WIDTH IS NOT MORE THAN 17 BITS           ERPRO     599
           227  7130000056                        SX3    46                                                      ERPRO     600
                          0400000757 +            EQ     FERROR                                                  ERPRO     601
           230  5150000021 C            RANREST  SA5       RANB4                RESTORE RETURN PARAMETER         ERPRO     602
                          63450                  SB4       X5                                                    ERPRO     603
                               76360             SX3       B6                                                    ERPRO     604
           231  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     605
           232  0560000235 +            ZERTEST  NE        B6,B0,PTEST          NONZERO TEST, IF NO,J PTEST      ERPRO     606
                          5150000013 C           SA5       NUMN                 GET NUMBER VALUE                 ERPRO     607
           233  0315000230 +                     NZ        X5,RANREST           IF NONZERO J TO RETURN CODE      ERPRO     608
                          0335000230 +            MI     X5,RANREST  IF REPEAT COUNT INDICATED BY =              ERPRO     609
           234  7130000053                        SX3    43                                                      ERPRO     610
                          0400000757 +            EQ     FERROR                                                  ERPRO     611
                                                                                                                 ERPRO     612
           235  5140000027 C            PTEST    SA4       FLAGPON              FETCH SCALE-ON FLAG              ERPRO     613
                          43601                  MX6       1                    TURN ON                          ERPRO     614
                               54640             SA6       A4                   NEW SCALE-ON FLAG                ERPRO     615
           236  0314000242 +                     NZ        X4,PONERR            P-FLAG ALREADY ON  ERROR         ERPRO     616
           237  5150000013 C            RPTRTN   SA5       NUMN                 GET SCALE VALUE                  ERPRO     617
                          76610                  SX6       B1                   RESTORE                          ERPRO     618
           240  5160000013 C                     SA6       NUMN                 NUMN TO ONE                      ERPRO     619
                          7265776627             SX6       X5-PMAX-1            SUBTRACT MAX FROM SCALE VALUE    ERPRO     620
           241  0326000244 +                     PL        X6,PNUMERR           IF OUT OF RANGE, CALL ERROR      ERPRO     621
                          0400000230 +           ZR        RANREST              J TO RETURN CODE                 ERPRO     622
           242  7130000013              PONERR   SX3       11                   IF FLAG WAS                      ERPRO     623
                          6140000237 +           SB4       RPTRTN               ALREADY ON                       ERPRO     624
           243  0400000754 +                     ZR        IERROR               PRODUCE AN INFORMATIVE ERROR     ERPRO     625
           244  7130000012              PNUMERR  SX3       10                   P-SCALE                          ERPRO     626
                          6140000230 +           SB4       RANREST              OUT OF RANGE                     ERPRO     627
           245  0400000754 +                     ZR        IERROR                                                ERPRO     628
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    17
        FLDCHEK 
  
                                                 ENTRY     FLDCHEK                                               ERPRO     630
           246  76640                   FLDCHEK  SX6       B4                   FETCH RETURN ADDRESS             ERPRO     631
                     5160000023 C                SA6       FLDB4                STORE RETURN ADDRESS IN FLDB4    ERPRO     632
                               10633             BX6       X3                   FETCH INPUT PARAMETER            ERPRO     633
           247  5140000013 C                     SA4       NUMN                 FETCH NUMN                       ERPRO     634
                          5160000022 C           SA6       FLDX3                STORE INPUT PARAMETER IN FLDX3   ERPRO     635
           250  0303000252 +                     ZR        X3,FLDCALL           NUMN FIELD ALL TO CHECK FLDCALL  ERPRO     636
                          5150000014 C           SA5       NUMW                 MULTIPLY                         ERPRO     637
           251  27604                            PX6       X4                   NO                               ERPRO     638
                     27505                       PX5       X5                   INTEGERS                         ERPRO     639
                          42465                  DX4       X6*X5                NUMN*NUMW                        ERPRO     640
           252  76310                   FLDCALL  SX3       B1                   SET PARAMETER TO 1               ERPRO     641
                     73640                       SX6       X4                   GET VALUE TO BE CHECKED          ERPRO     642
                          5160000014 C           SA6       NUMW                 STORE VALUE IN NUMW              ERPRO     643
           253  6140000254 +                     SB4       FLDRTN               SET RETURN ADDRESS               ERPRO     644
                          0400000222 +           ZR        RANGE                GO TO RANGE-CHECKING ROUTINE     ERPRO     645
           254                           FLDRTN   BSS    0                                                       ERPRO     646
           254  5130000016 C                     SA3       COLCNT               FETCH CURRENT RECORD COUNT ADDR  ERPRO     647
                          5150000014 C           SA5       NUMW                 AND NUMW ADDRESS                 ERPRO     648
           255  36635                            IX6       X3+X5                ADD NUMW TO CURRENT RECORD COUNT ERPRO     649
                     5140000017 C                SA4       LEVEL                GET CURRENT PARENTHESES LEVEL    ERPRO     650
           256  5244000000 C                     SA4       X4+PUSHDOWN          GET ADDR OF PUSHDOWN WORD,LEVEL  ERPRO     651
                          0335000264 +            MI     X5,FLDMI    IF BACKSPACING                              ERPRO     652
           257  54630                    FLDPL    SA6    A3          CURRENT RECORD COUNT                        ERPRO     653
                     0324000260 +                PL        X4,PDSET             NO SLASH LEAVE IN N1 POSN        ERPRO     654
                               20522             LX5       18                   SHIFT P.D. WORD INTO PROP POS-N  ERPRO     655
           260  36645                   PDSET    IX6       X4+X5                ADD NEW CT TO PUSHDOWN(LEVEL)    ERPRO     656
                     54640                       SA6       A4                   STORE MODIFIED PUSH-WORD         ERPRO     657
           261  5150000023 C            WSET     SA5       FLDB4                RESTORE B4                       ERPRO     658
                          63450                  SB4       X5                                                    ERPRO     659
                               76600             SX6       B0                   ZERO OUT                         ERPRO     660
           262  5160000014 C                     SA6       NUMW                 NUMW                             ERPRO     661
                          5130000022 C           SA3       FLDX3                RESTORE X3                       ERPRO     662
           263  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     663
           264  10244                    FLDMI    BX2    X4                                                      ERPRO     664
                     0324000265 +                 PL     X4,FLDMI1   IF NO SLASH                                 ERPRO     665
                               20252              LX2    -18                                                     ERPRO     666
           265  43352                    FLDMI1   MX3    42                                                      ERPRO     667
                     15223                        BX2    -X3*X2                                                  ERPRO     668
                          36225                   IX2    X2+X5                                                   ERPRO     669
                               20322              LX3    18                                                      ERPRO     670
           266  0322000257 +                      PL     X2,FLDPL    IF BACKSPACING + CNT IN PUSHDOWN            ERPRO     671
                          6140000261 +            SB4    WSET        RETURN POINT                                ERPRO     672
           267  11443                             BX4    X4*X3       CNT IN PUSHDOWN CLEARED                     ERPRO     673
                     0326000270 +                 PL     X6,FLDMI2   IF BACKSPACING + RECORD CNT                 ERPRO     674
                               13666              BX6    X6-X6                                                   ERPRO     675
           270  54630                    FLDMI2   SA6    A3          CURRENT RECORD COUNT                        ERPRO     676
                     43301                        MX3    1                                                       ERPRO     677
                          12634                   BX6    X3+X4       SLASH FLAG SET                              ERPRO     678
                               54640              SA6    A4          COUNT IN PUSHDOWN                           ERPRO     679
           271  7130000034                        SX3    28          BACKSPACING TOO LARGE                       ERPRO     680
                          0400000752 +            ZR     UERROR                                                  ERPRO     681
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    18
        WIDTH 
  
                                                 ENTRY     WIDTH                                                 ERPRO     683
           272  76640                   WIDTH    SX6       B4                   FETCH RETURN PARAMETER           ERPRO     684
                     5160000025 C                SA6       WIDB4                STORE R P IN WIDB4               ERPRO     685
                               10633             BX6       X3                   FETCH INPUT PARAMETER            ERPRO     686
           273  5160000026 C                     SA6       WIDX3                STORE I P IN WIDX3               ERPRO     687
                          6140000275 +           SB4       WNRTN                SET RETURN ADDRESS               ERPRO     688
           274  76310                            SX3       B1                   SET NUM PARAM EQ 1               ERPRO     689
                     0400000163 +                ZR        NUMBER               AND GO TO  NUMBER(1)             ERPRO     690
           275  5130000014 C            WNRTN    SA3       NUMW                 FETCH CONVERTED NUMW             ERPRO     691
                          10633                   BX6    X3                                                      ERPRO     692
           276  5160000024 C                      SA6    TEMPNW                                                  ERPRO     693
                          0333000311 +            MI     X3,WIDREST  IF WIDTH WAS INDICATED BY A =               ERPRO     694
           277  0313000301 +                      NZ     X3,NWOK     IF WIDTH WAS > 0                            ERPRO     695
                          7130000004             SX3       4                    SET ERROR NO                     ERPRO     696
           300  6140000311 +                     SB4       WIDREST              SET RETURN PT                    ERPRO     697
                          0400000754 +           ZR        IERROR               GO TO ERROR PROCESSOR            ERPRO     698
           301  6140000303 +            NWOK     SB4       WRRTN                SET RETURN ADDRESS               ERPRO     699
                          76310                  SX3       B1                   SET RANGE PARAM                  ERPRO     700
           302  0400000222 +                     ZR        RANGE                GO TO RANGE(1)                   ERPRO     701
           303                           WRRTN    BSS    0                                                       ERPRO     702
           303  6140000305 +                     SB4       WFRTN                SET RETURN POINT                 ERPRO     703
                          76310                  SX3       B1                   SET FLDCHEK PARAM                ERPRO     704
           304  0400000246 +                     ZR        FLDCHEK              GO TO FLDCHEK ROUTINE            ERPRO     705
           305  5140000015 C             WFRTN    SA4    SPESFLG                                                 ERPRO     706
                          0324000311 +            PL     X4,WIDREST  IF NOT (D,E,G) SPECIFICATION                ERPRO     707
           306  5150000024 C                     SA5       TEMPNW               FETCH NUMW FOR CHECH ON WIDTH    ERPRO     708
                          7255777771             SX5       X5-6                                                  ERPRO     709
           307  0325000311 +                     PL        X5,WIDREST           IF RANGE OK  GO TO EXIT CODE     ERPRO     710
                          7130000005             SX3       5                    SET ERROR PARAMETER              ERPRO     711
           310  6140000311 +                     SB4       WIDREST              SET RETURN POINT                 ERPRO     712
                          0400000754 +           ZR        IERROR               GO TO ERROR ROUTINE              ERPRO     713
           311  5140000025 C            WIDREST  SA4       WIDB4                                                 ERPRO     714
                          5130000026 C           SA3       WIDX3                                                 ERPRO     715
           312  63440                            SB4       X4                                                    ERPRO     716
                     0313000314 +                NZ        X3,WRTN              IS THIS DECIMAL-WIDTH CALL       ERPRO     717
                               13666             BX6       X6-X6                IF SO                            ERPRO     718
           313  5160000027 C                     SA6       FLAGPON              TURN ON SCALE-ON FLAG            ERPRO     719
           314  0244000000              WRTN     JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     720
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    19
        DECIM-FLAGW7D-ONECNT
  
                                                 ENTRY     DECIM                                                 ERPRO     722
           315  76640                   DECIM    SX6       B4                   FETCH RETURN PARAMETER           ERPRO     723
                     5160000023 C                SA6       DECB4                STORE IN DECB4                   ERPRO     724
                               73630              SX6    X3                                                      ERPRO     725
           316  5160000026 C                      SA6    WIDX3       SAVE INPUT PARAMETER                        ERPRO     726
                          77301                  SX3       -B1                  SET NUMD  PARAM                  ERPRO     727
           317  6140000320 +                     SB4       DNRET                SET DECIM RETURN PT              ERPRO     728
                          0400000163 +           ZR        NUMBER               GO TO NUMBER ROUTINE             ERPRO     729
           320  5130000026 C             DNRET    SA3    WIDX3                                                   ERPRO     730
                          5140000024 C            SA4    TEMPNW                                                  ERPRO     731
           321  5150000012 C                      SA5    NUMD                                                    ERPRO     732
                          0334000330 +            MI     X4,DECREST  IF = SPECIFIED AS WIDTH, NO CHECKS MADE     FCC0511     4
           322  37645                             IX6    X4-X5       WIDTH - DECIMAL DIGITS                      ERPRO     733
                     54640                        SA6    A4                                                      ERPRO     734
                          0303000326 +            ZR     X3,DECIM2   IF I,O,V SPEC.                              ERPRO     735
           323  0323000325 +                      PL     X3,DECIM1   IF E SPEC.                                  ERPRO     736
                          7266777775              SX6    X6-2                                                    ERPRO     737
           324  5130000015 C                      SA3    SPESFLG                                                 ERPRO     738
                          0303000326 +            ZR     X3,DECIM2   IF F SPEC.                                  ERPRO     739
           325  7266777773               DECIM1   SX6    X6-4                                                    ERPRO     740
           326  0326000330 +             DECIM2   PL     X6,DECREST  IF WIDTH IS LARGE ENOUGH                    ERPRO     741
                          7130000015             SX3       13                   SET ERROR PARAM                  ERPRO     742
           327  6140000330 +                     SB4       DECREST              SET DECIM RETURN POINT           ERPRO     743
                          0400000754 +           ZR        IERROR               GO TO ERROR ROUTINE              ERPRO     744
           330  5140000023 C            DECREST  SA4       DECB4                FETCH RETURN POINT               ERPRO     745
                          5130000012 C           SA3       NUMD                                                  ERPRO     746
           331  63440                            SB4       X4                   STORE R P IN B4                  ERPRO     747
                     0244000000                  JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     748
                                                  ENTRY  SPESSET                                                 ERPRO     749
           332  10633                    SPESSET  BX6    X3                                                      ERPRO     750
                     5160000015 C                 SA6    SPESFLG     SPECIFICATION FLAG SET                      ERPRO     751
           333  7242777760                        SX4    X2-1RO                                                  ERPRO     752
                          0304000340 +            ZR     X4,SPESS2   IF O SPEC                                   FCCA556     7
           334  7252777751                        SX5    X2-1RV                                                  ERPRO     754
                          0305000336 +            ZR     X5,SPESS1   IF V SPEC.                                  ERPRO     755
           335  0244000000                        JP     B4                                                      ERPRO     756
           336  5130000161 +             SPESS1   SA3    SAVADR      PICK UP WORD-B OF SYM TAB ENT OF FMT        FCC2202    37
                          53330                   SA3    X3                                                      FCC2202    38
                               43673              MX6    73B         SET UP MASK TO SET THE V OR = FLAG          FCC2202    39
           337  16336                             BX3    -X6+X3      SET THE V OR = FLAG                         FCC2202    40
                     10633                        BX6    X3                                                      FCC2202    41
                          54630                   SA6    A3          UPDATE WORD-B OF SYM TAB ENT OF FMT         FCC2202    42
           340  7130000026               SPESS2   SX3    22          NON-ANSI SYMBOL                             FCCA556     8
                          0400000752 +            EQ     UERROR                                                  ERPRO     758
                                                 ENTRY     ONECNT                                                ERPRO     759
           341  76610                   ONECNT   SX6       B1                   ROUTINE INITIALIZES              ERPRO     760
                     5160000013 C                SA6       NUMN                 NUMN=1                           ERPRO     761
                               13666             BX6       X6-X6                                                 ERPRO     762
           342  5160000014 C                     SA6       NUMW                 NUMW=0                           ERPRO     763
                          5160000012 C           SA6       NUMD                 NUMD=0                           ERPRO     764
           343  5160000015 C                      SA6    SPESFLG     CLEAR SPEC. FLAG                            ERPRO     765
                          5160000032 C            SA6    XWORD       CLEAR MINUS SIGN FLAG                       ERPRO     766
           344  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     767
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    20
        XPROC-TSASI-TCODE 
  
                                                  ENTRY XPROC                                                    ERPRO     769
           345  76640                    XPROC    SX6    B4                                                      ERPRO     770
                     5160000025 C                 SA6    XB4         SAVE RETURN POINT                           ERPRO     771
           346  0313000350 +                      NZ     X3,XPROC1   IF THERE WAS A NUMBER IN X-FIELD            ERPRO     772
                          76311                   SX3    B1+B1       A BLANK IN X-FIELD                          ERPRO     773
           347  6140000350 +                      SB4    XPROC1                                                  ERPRO     774
                          0400000754 +            ZR     IERROR                                                  ERPRO     775
           350  5150000032 C             XPROC1   SA5    XWORD                                                   ERPRO     776
                          5140000013 C            SA4    NUMN                                                    ERPRO     777
           351  0325000354 +                      PL     X5,XPROC2   IF FORWARD SPACING                          ERPRO     778
                          7130000033              SX3    27                                                      ERPRO     779
           352  14644                             BX6    -X4                                                     ERPRO     780
                     6140000354 +                 SB4    XPROC2                                                  ERPRO     781
                               10466              BX4    X6                                                      ERPRO     782
           353  54640                             SA6    A4                                                      ERPRO     783
                     0400000752 +                 ZR     UERROR                                                  ERPRO     784
           354  13333                    XPROC2   BX3    X3-X3                                                   ERPRO     785
                     6140000357 +                 SB4    XPROC3                                                  ERPRO     786
           355  0314000246 +                      NZ     X4,FLDCHEK  IF NUMBER TO SPACE WAS NOT 0 OR =           ERPRO     787
                          0334000357 +            MI     X4,XPROC3   IF = WAS SPACING INDICATOR                  ERPRO     788
           356  7130000003                        SX3    3                                                       ERPRO     789
                          0400000754 +            ZR     IERROR                                                  ERPRO     790
           357  5140000025 C             XPROC3   SA4    XB4                                                     ERPRO     791
                          63440                   SB4    X4                                                      ERPRO     792
           360  0244000000                        JP     B4                                                      ERPRO     793
                                                  ENTRY  NEGSET                                                  ERPRO     794
           361  43601                    NEGSET   MX6    1                                                       ERPRO     795
                     5160000032 C                 SA6    XWORD       SETS FLAG FOR MINUS SIGN                    ERPRO     796
           362  0244000000                        JP     B4                                                      ERPRO     797
                                                 ENTRY     TSASI                                                 ERPRO     798
           363  76640                   TSASI    SX6       B4                   ROUTINE SAVES RETURN POINT       ERPRO     799
                     5160000025 C                SA6       TSAB4                + CALLS DELCOM                   ERPRO     800
           364  6140000365 +                     SB4       TSDRTN               TO SQUEEZE OUT                   ERPRO     801
                          0400000445 +           ZR        DELCOM               REDUNDANT COMMAS                 ERPRO     802
           365  7130000030              TSDRTN   SX3       24                   TSASI THEN CALLS                 ERPRO     803
                          6140000367 +           SB4       TSURTN               UERROR - TO NOTE                 ERPRO     804
           366  0400000752 +                     ZR        UERROR               TAB SETTING AS NON-USASI         ERPRO     805
           367  5140000025 C            TSURTN   SA4       TSAB4                RETURN PARAMETER                 ERPRO     806
                          63440                  SB4       X4                   IS RESTORED                      ERPRO     807
           370  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     808
                                                 ENTRY     TCODE                                                 ERPRO     809
           371  76640                   TCODE    SX6       B4                   ROUTINE SAVES RETURN POINT       ERPRO     810
                     13333                       BX3       X3-X3                TO BINARY                        ERPRO     811
                          5160000025 C           SA6       TCOB4                THEN CONVERTS                    ERPRO     812
           372  6140000373 +                     SB4       TNRTN                DISPLAY CODE TAB SETTING         ERPRO     813
                          0400000163 +           ZR        NUMBER               VIA NUMBER ROUTINE               ERPRO     814
           373  5140000013 C            TNRTN    SA4       NUMN                 IF COLUMN SETTING                ERPRO     815
                          0314000377 +            NZ     X4,TCODE1   IF TAB SET WAS NOT AT COLUMN 0              ERPRO     816
           374  76610                             SX6    B1          DEFAULT TAB SET                             ERPRO     817
                     54640                        SA6    A4                                                      ERPRO     818
                          0334000377 +            MI     X4,TCODE1   IF = WAS TAB SET                            ERPRO     819
           375  6140000377 +                      SB4    TCODE1                                                  ERPRO     820
                          7130000016             SX3       14                   ERROR CODE                       ERPRO     821
           376  0400000754 +                      EQ     IERROR                                                  ERPRO     822
           377                           TCODE1   BSS    0                                                       ERPRO     823
           377  76310                            SX3       B1                   OTHERWISE RECORD SIZE IS CHECKED ERPRO     824
                     6140000401 +                 SB4    TCIRTN                                                  ERPRO     825
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    21
        XPROC-TSASI-TCODE 
  
           400  0400000662 +                     ZR        RECCHEK              FOR MAX + TAB RESET IN RECCHEK   ERPRO     826
           401  5140000025 C            TCIRTN   SA4       TCOB4                RETURN POINT                     ERPRO     827
                          63440                  SB4       X4                   IS RESTORED                      ERPRO     828
           402  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     829
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    22
        SPES-NULLP-DELCOM 
  
                                                  ENTRY  SPES                                                    ERPRO     831
           403  76640                    SPES     SX6    B4                                                      ERPRO     832
                     5160000025 C                 SA6    SPESB4                                                  ERPRO     833
                               43572              MX5    60-2                                                    ERPRO     834
           404  5140000015 C                      SA4    SPESFLG                                                 ERPRO     835
                          15645                   BX6    -X5*X4                                                  ERPRO     836
           405  0316000407 +                      NZ     X6,SPES1    IF V,E,I,O SPEC.                            ERPRO     837
                          7130000037              SX3    31                                                      ERPRO     838
           406  0400000757 +                      EQ     FERROR                                                  ERPRO     839
           407  73430                    SPES1    SX4    X3          SAVE INPUT PARAMETER                        ERPRO     840
                     7130000032                   SX3    26                                                      ERPRO     841
           410  6140000411 +                      SB4    SPES2                                                   ERPRO     842
                          0400000752 +            ZR     UERROR                                                  ERPRO     843
           411  73340                    SPES2    SX3    X4          INPUT PARAMETER                             ERPRO     844
                     5140000025 C                 SA4    SPESB4                                                  ERPRO     845
                               63440              SB4    X4                                                      ERPRO     846
           412  5140000000 X                      SA4    DIGMASK     DIGIT MASK                                  ERPRO     847
           413  23221                    SPES3    LOOK   X2                                                      FCC1300X   39
                          63520                   SB5    X2                                                      ERPRO     849
                               22554              LX5    X4,B5                                                   ERPRO     850
           414  0335000423 +                      MI     X5,SPES4    IF A DIGIT                                  ERPRO     851
                          7262777723              SX6    X2-1R=                                                  FCC1300X   40
           415  0306000423 +                      ZR     X6,SPES4    IF A = SIGN                                 FCC1300X   41
                          7222777722              SX2    X2-1R                                                   ERPRO     854
           416  0312000422 +                      NZ     X2,SPES35   IF NOT A BLANK                              FCC1300X   42
                          6122777771              STEPIN                                                         FCC1300X   43
           421  0400000413 +                      EQ     SPES3       STRIP BLANK                                 FCC1300X   44
                                                                                                                 FCC1300X   45
           422  7130000006               SPES35   SX3    6                                                       FCC1300X   46
                          0400000754 +            EQ     IERROR                                                  ERPRO     857
           423  6122777771               SPES4    STEPIN                                                         FCC1300X   47
           425  10622                             PUTCH  X2,X5                                                   FCC1300X   48
           434  0400000315 +                      EQ     DECIM                                                   ERPRO     859
                                                 ENTRY     NULLP                                                 ERPRO     860
           435  76640                   NULLP    SX6       B4                   ROUTINE HANDLES NULL SCALE FACTO ERPRO     861
                     5160000021 C                SA6       NULB4                SAVES RETURN POINT               ERPRO     862
           436  7130000017                        SX3    15                                                      ERPRO     863
                          6140000440 +           SB4       NPIRTN               TO INFORM PROGRAMMER             ERPRO     864
           437  0400000754 +                     ZR        IERROR               OF OMISSION                      ERPRO     865
           440  5140000027 C            NPIRTN   SA4       FLAGPON              UPON RETURN,SCALE FLAG IS SET ON ERPRO     866
                          43601                  MX6       1                    AND FORMER SCALE                 ERPRO     867
                               54640             SA6       A4                   IS CHECKED FOR STATUS            ERPRO     868
           441  7130000013                        SX3    11                                                      ERPRO     869
                          6140000443 +           SB4       N2IRTN                                                ERPRO     870
           442  0314000754 +                     NZ        X4,IERROR            AN INFORMATIVE ERROR IS PROD-D   ERPRO     871
           443  5140000021 C            N2IRTN   SA4       NULB4                RETURN POINT                     ERPRO     872
                          63440                  SB4       X4                   IS RESTORED                      ERPRO     873
           444  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     874
                                                 ENTRY     DELCOM                                                ERPRO     875
           445  5140000020 C            DELCOM   SA4       SAVECHAR             FETCH LAST CHARACTER IN OUTPUT   ERPRO     876
                          7244777721             SX4       X4-1R,               STRING. IF IT WAS A COMMA,       ERPRO     877
           446  0314000447 +                     NZ        X4,DELEXIT           DELETE IT . IF NOT GO TO DELEXIT ERPRO     878
                          10622                  BX6       X2                   WAS COMMA. FETCH CURRENT CHAR    ERPRO     879
                               54640             SA6       A4                   AND STORE OVER REDUNDANT COMMA.  ERPRO     880
           447  0244000000              DELEXIT  JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     881
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    23
        HCOUNTR-HSTRNGR 
  
                                                 ENTRY     HCOUNTR                                               ERPRO     883
           450  76640                   HCOUNTR  SX6       B4                   ROUTINE SAVES RETURN POINT       ERPRO     884
                     13333                       BX3       X3-X3                SET PARAMETERS                   ERPRO     885
                          5160000025 C           SA6       HCOB4                THEN FETCHES                     ERPRO     886
           451  5140000013 C                     SA4       NUMN                 HOLLERITH COUNT                  ERPRO     887
                          0304000467 +           ZR        X4,HCOFAT            ZERO COUNT CAUSES FATAL ERROR    ERPRO     888
           452  23221                   FETCH    GETCH     X2                   COUNT OK  GETCH 1ST H-CHAR       ERPRO     889
                          0312000456 +            NZ     X2,FETCH1                                               ERPRO     890
           455  54310                             SA3    A1                                                      ERPRO     891
                     0303000470 +                 ZR     X3,HCEFAT                                               ERPRO     892
                               13333              BX3    X3-X3                                                   ERPRO     893
           456                           FETCH1   BSS    0                                                       ERPRO     894
           456  10622                            PUTCH     X2,X5                CHAR OK  STORE IN OUTPUT STRING  ERPRO     895
           465  7244777776                       SX4       X4-1                 SUBTRACT 1 FROM H-COUNT          ERPRO     896
                          0314000452 +           NZ        X4,FETCH             COUNT EMPTY-IF NO FETCH NEXTCHAR ERPRO     897
           466  6140000472 +                     SB4       HCFCOM                                                ERPRO     898
                          0400000246 +           ZR        FLDCHEK              FOR VALID FLD LENGTH +INCR COLCT ERPRO     899
           467  7130000045              HCOFAT   SX3       37                   0H COUNT INVALID                 ERPRO     900
                          0400000757 +           ZR        FERROR               SCANNING CANNOT CONTINUE         ERPRO     901
           470  7130000046              HCEFAT   SX3       38                   END OF STATEMENT CHAR W NH INCOM ERPRO     902
                          76610                  SX6       B1                                                    ERPRO     903
           471  5160000034 C                     SA6       STRING                                                ERPRO     904
                          0400000757 +           EQ        FERROR                                                ERPRO     905
           472  23421                    HCFCOM  LOOK      X4                                                    ERPRO     906
                          7254777721             SX5       X4-1R,                                                ERPRO     907
           473  0305000500 +                     ZR        X5,HCFRTN           IF NEXT CHARACTER NOT A COMMA     ERPRO     908
                          7264777725             SX6       X4-1R)              OR RIGHT PARENTHESIS              ERPRO     909
           474  0306000500 +                     ZR        X6,HCFRTN                                             ERPRO     910
                          7254777727              SX5    X4-1R/                                                  ERPRO     911
           475  7264777722                        SX6    X4-1R                                                   FCC0525     5
                          0305000500 +            ZR     X5,HCFRTN   IF SEPARATOR IS A SLASH                     FCC0525     6
           476  0306000500 +                      ZR     X6,HCFRTN   IF SEPARATOR IS A BLANK                     FCC0525     7
                          7130000035             SX3       29                  LIST AS NON-ANSI                  ERPRO     913
           477  6140000500 +                     SB4       HCFRTN                                                ERPRO     914
                          0400000752 +           EQ        UERROR                                                ERPRO     915
           500  5140000025 C            HCFRTN   SA4       HCOB4                RESTORE                          ERPRO     916
                          63440                  SB4       X4                   RETURN POINT                     ERPRO     917
           501  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO     918
                                                 ENTRY     HSTRNGR                                               ERPRO     919
           502  76640                   HSTRNGR  SX6       B4                   ROUTINE SAVES RETURN POINT       ERPRO     920
                     5160000025 C                SA6       HSTB4                AND CHECKS ENTRY-TYPE            ERPRO     921
                               10622             BX6       X2                   SAVE HOLLERITH STRING DELIMITER  ERPRO     922
           503  5160000030 C                     SA6       HDELIM                                                ERPRO     923
                          0313000505 +           NZ        X3,NONUH             IF HSTRNGR(0)-CALL               ERPRO     924
           504  6140000505 +                     SB4       NONUH                CALL DELCOM                      ERPRO     925
                          0400000445 +           ZR        DELCOM               TO DELETE REDUNDANT COMMAS       ERPRO     926
           505  6140000507 +            NONUH    SB4       BHSCAN               THEN PRODUCE                     ERPRO     927
                          7130000031             SX3       25                   NON-USASI DIAGNOSTIC             ERPRO     928
           506  0400000752 +                     ZR        UERROR               IN UERROR                        ERPRO     929
           507  66500                   BHSCAN   SB5       B0                   CLEAR OUT HOLLERITH COUNTER      ERPRO     930
                     43600                        MX6    0                                                       FCCA402    16
                          5140000030 C           SA4       HDELIM               FETHC HOLLERITH DELIMITER        ERPRO     931
           510  5160000033 C                      SA6    MORECH                                                  FCCA402    17
                          63440                  SB4       X4                   AND SAVE IN B4                   ERPRO     932
           511  7160000056                        SX6    1R,                                                     ERPRO     933
                          7120000010              SX2    1RH                                                     ERPRO     934
           512  5160000020 C                      SA6    SAVECHAR    REPLACE HOLL DELIMITER                      ERPRO     935
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    24
        HCOUNTR-HSTRNGR 
  
                          10622                   PUTCH  X2,X5                                                   ERPRO     936
           522  76670                             SX6    B7                                                      ERPRO     937
                     5160000044 C                 SA6    TB7         B7, BYTE IN OUTPUT WORD SAVED               ERPRO     938
                               75671              SX6    A7-B1                                                   ERPRO     939
           523  5160000045 C                      SA6    TA7         A7, ADDRESS OF OUTPUT STRING SAVED          ERPRO     940
                          6177777763              SB7    B7-12                                                   ERPRO     941
           524  0670000566 +                      PL     B7,CHSCAN   IF 4 BYTES ARE FREE IN OUTPUT WORD          ERPRO     942
                          53760                   SA7    X6          UPDATE OUTPUT WORD                          ERPRO     943
                               43700              MX7    0                                                       ERPRO     944
           525  6177000074                        SB7    B7+60       UPDATE OUTPUT BYTE                          ERPRO     945
                          0400000566 +            EQ     CHSCAN                                                  ERPRO     946
           526  5140000033 C             CHSC0    SA4    MORECH                                                  FCCA402    18
                          0304000556 +            ZR     X4,CHSC05   IF NO PREVIOUS 99                           FCCA402    19
           527  63620                             SB6    X2                                                      FCCA402    20
                     0464000542 +                 EQ     B6,B4,CHSC01 IF LAST CHARACTER LOOKED AT IS A DELIM     FCCA402    21
                               10622              PUTCH  X2,X5                                                   FCCA402    22
           537  6122777711                        STEPBK                                                         FCCA402    23
                          0400000555 +            EQ     CHSC04                                                  FCCA402    24
                                                                                                                 FCCA402    25
           542  6122777711               CHSC01   STEPBK                                                         FCCA402    26
                          0605000546 +            LE     B5,B0,CHSC03 IF POINTERS MOVED BACK TO END OF           FCCA402    27
                                        *                            PREVIOUS 99                                 FCCA402    28
           545  67551                             SB5    B5-B1                                                   FCCA402    29
                     0400000542 +                 EQ     CHSC01                                                  FCCA402    30
                                                                                                                 FCCA402    31
           546  10622                    CHSC03   PUTCH  X2,X5                                                   FCCA402    32
           555  7160004444               CHSC04   SX6    2R99                                                    FCCA402    33
                          0400000630 +            EQ     CHSC2A      PROCESS 99                                  FCCA402    34
                                                                                                                 FCCA402    35
           556  10622                    CHSC05   PUTCH  X2,X5                                                   FCCA402    36
           565  7145777634                        SX4    B5-99                                                   ERPRO     948
                          0304000610 +            ZR     X4,CHSC1B                                               ERPRO     949
           566  23221                   CHSCAN   GETCH     X2                   HOLLERITH-CHAR-SCAN LOOP/GET CH  ERPRO     950
                          0312000572 +            NZ     X2,CHSC1                                                ERPRO     951
           571  54310                             SA3    A1                                                      ERPRO     952
                     0303000645 +                 ZR     X3,HSTFAT   IF E-O-S                                    ERPRO     953
           572                           CHSC1    BSS    0                                                       ERPRO     954
           572  66551                            SB5       B5+B1                NOT E-O-S,INCR H-COUNT           ERPRO     955
                     63620                       SB6       X2                   MOVE H-CHAR FOR E-O-STRING TEST  ERPRO     956
                          0564000526 +            NE     B6,B4,CHSC0 IF NOT YET HOLL DELIMITER                   ERPRO     957
           573  6166777730                        SB6    B6-1R*                                                  FCCA402    37
                          0560000577 +            NZ     B6,CHSC1D   IF DELIMITER NOT AN *                       FCCA402    38
           574  6165777776                        SB6    B5-1                                                    FCCA402    39
                          0560000577 +            NZ     B6,CHSC1D   IF COUNT GREATER THEN ONE                   FCCA402    40
           575  5140000033 C                      SA4    MORECH                                                  FCCA402    41
                          0314000577 +            NZ     X4,CHSC1D   IF PREVIOUS 99                              FCCA402    42
           576  7130000045                        SX3    37          ERROR NUMBER                                FCCA402    43
                          0400000646 +            EQ     HSTFA       FATAL ERROR - NO CHARACTERS IN ASTERISK     FCCA402    44
                                        *                            DELIMITED HOLLERITH STRING.                 FCCA402    45
                                                                                                                 FCCA402    46
           577  7144777713               CHSC1D   SX4    B4-1R"                                                  FCCA402    47
                          0314000613 +            NZ     X4,CHSC1A   IF HOLL DELIMITER NOT "                     ERPRO     959
           600  23221                             LOOK   X2                                                      ERPRO     960
                          63620                   SB6    X2                                                      ERPRO     961
           601  0464000605 +                      EQ     B6,B4,CHSC1E IF "" IN HOLLERITH STRING                  FCCA402    48
                          6165777776              SB6    B5-1                                                    FCCA402    49
           602  0560000613 +                      NZ     B6,CHSC1A   IF COUNT GREATER THEN ONE                   FCCA402    50
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    25
        HCOUNTR-HSTRNGR 
  
                          5140000033 C            SA4    MORECH                                                  FCCA402    51
           603  0314000613 +                      NZ     X4,CHSC1A   IF PREVIOUS 99                              FCCA402    52
                          7130000045              SX3    37          ERROR NUMBER                                FCCA402    53
           604  0400000646 +                      EQ     HSTFA       FATAL ERROR - NO CHARACTERS IN " DELIMITED  FCCA402    54
                                        *                            HOLLERITH STRING.                           FCCA402    55
                                                                                                                 FCCA402    56
           605  6122777771               CHSC1E   STEPIN                                                         FCCA402    57
           607  0400000526 +                      EQ     CHSC0                                                   ERPRO     964
           610  43612                    CHSC1B   MX6    10                                                      FCC0490     6
                     5160000033 C                 SA6    MORECH                                                  FCC0490     7
                               76650              SX6    B5                                                      ERPRO     966
           611  5160000013 C                      SA6    NUMN                                                    ERPRO     967
                          66500                   SB5    B0                                                      FCCA402    58
           612  0400000566 +                      EQ     CHSCAN      CONTINUE UNTIL ANOTHER CHARACTER IS TO      FCCA402    59
                                        *                            STORED - THEN PROCESS PREVIOUS 99           FCCA402    60
           613  5140000033 C             CHSC1A   SA4    MORECH                                                  FCCA402    61
                          43600                   MX6    0                                                       FCCA402    62
                               54640              SA6    A4                                                      FCCA402    63
           614  0304000615 +                      ZR     X4,CHSC1C   IF NO PREVIOUS 99 CHARACTERS TO PROCESS     FCCA402    64
                          0400000555 +            EQ     CHSC04                                                  FCCA402    65
                                                                                                                 FCCA402    66
           615  77651                    CHSC1C   SX6    B5-B1                                                   FCCA402    67
                     5160000013 C                 SA6    NUMN                                                    ERPRO     972
                               74670              SX6    A7                                                      ERPRO     973
           616  5160000040 C                      SA6    TTA7                                                    ERPRO     974
                          5170000046 C            SA7    TX7                                                     ERPRO     975
           617  74610                             SX6    A1                                                      ERPRO     976
                     5160000036 C                 SA6    TA1                                                     ERPRO     977
                               76720              SX7    B2                                                      ERPRO     978
           620  5170000037 C                      SA7    TB2                                                     ERPRO     979
                          76630                   SX6    B3                                                      ERPRO     980
                               76740              SX7    B4                                                      ERPRO     981
           621  5160000041 C                      SA6    TB3                                                     ERPRO     982
                          5170000042 C            SA7    TB4                                                     ERPRO     983
           622  77151                             SX1    B5-B1                                                   ERPRO     984
                     0100000000 X                 RJ     =XCDD                                                   ERPRO     985
           623  5120000036 C                      SA2    TA1                                                     ERPRO     986
                          5130000037 C            SA3    TB2                                                     ERPRO     987
           624  53120                             SA1    X2                                                      ERPRO     988
                     63230                        SB2    X3                                                      ERPRO     989
                          5140000040 C            SA4    TTA7                                                    ERPRO     990
           625  53540                             SA5    X4                                                      ERPRO     991
                     10755                        BX7    X5                                                      ERPRO     992
                          5120000041 C            SA2    TB3                                                     ERPRO     993
           626  53740                             SA7    X4                                                      ERPRO     994
                     63320                        SB3    X2                                                      ERPRO     995
                          5130000042 C            SA3    TB4                                                     ERPRO     996
           627  63430                             SB4    X3                                                      ERPRO     997
                     5150000046 C                 SA5    TX7                                                     ERPRO     998
                               10755              BX7    X5                                                      ERPRO     999
           630  5130000044 C             CHSC2A   SA3    TB7                                                     ERPRO    1000
                          5120000045 C            SA2    TA7                                                     ERPRO    1001
           631  63530                             SB5    X3          SAVED B7 IN B5                              ERPRO    1002
                     6155777771                   SB5    B5-6                                                    ERPRO    1003
                               43560              MX5    60-12                                                   ERPRO    1004
           632  15465                             BX4    -X5*X6                                                  ERPRO    1005
                     53220                        SA2    X2          SAVED A7 IN A2                              ERPRO    1006
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    26
        HCOUNTR-HSTRNGR 
  
                          22354                   LX3    B5,X4                                                   ERPRO    1007
                               12623              BX6    X2+X3       END OF SAVED OUTPUT WORD FILLED             ERPRO    1008
           633  54620                             SA6    A2                                                      ERPRO    1009
                     65471                        SB4    A7-B1                                                   ERPRO    1010
                          75624                   SX6    A2-B4                                                   ERPRO    1011
           634  0316000635 +                      NZ     X6,CHSC2B                                               ERPRO    1012
                          12773                   BX7    X7+X3                                                   ERPRO    1013
           635  0650000640 +             CHSC2B   PL     B5,CHSC3    IF 4 BYTES WERE FREE IN OUTPUT WORD         ERPRO    1014
                          20466                   LX4    54                                                      ERPRO    1015
                               11354              BX3    X5*X4                                                   ERPRO    1016
           636  55221                             SA2    A2-B1                                                   ERPRO    1017
                     12623                        BX6    X2+X3                                                   ERPRO    1018
                          54620                   SA6    A2          DIGITS SAVED ON NEXT OUTPUT WORD            ERPRO    1019
                               75524              SX5    A2-B4                                                   ERPRO    1020
           637  0315000640 +                      NZ     X5,CHSC3                                                ERPRO    1021
                          12773                   BX7    X7+X3                                                   ERPRO    1022
           640  13333                    CHSC3    BX3    X3-X3                                                   ERPRO    1023
                     6140000642 +                SB4       HSREST               FLDCHEK(0) TO CHECK FOR VALID    ERPRO    1024
           641  0400000246 +                     ZR        FLDCHEK              FIELD LENGTH + INCR RECORD COUNT ERPRO    1025
           642  5130000033 C             HSREST   SA3    MORECH                                                  ERPRO    1026
                          43600                   MX6    0                                                       ERPRO    1027
                               54630              SA6    A3                                                      ERPRO    1028
           643  0313000507 +                      NZ     X3,BHSCAN                                               ERPRO    1029
                          5140000025 C            SA4    HSTB4                                                   ERPRO    1030
           644  63440                            SB4       X4                   RETURN POINT                     ERPRO    1031
                     0244000000                  JP        B4        RETURN TO CALLING PROGRAM                   ERPRO    1032
           645  7130000047              HSTFAT   SX3       39                                                    ERPRO    1033
           646  76610                    HSTFA    SX6    B1                                                      FCCA402    68
                     5160000034 C                SA6       STRING                                                ERPRO    1035
           647  0400000757 +                     ZR        FERROR                                                ERPRO    1036
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    27
        SLASH 
  
                                                  ENTRY     SLASH                                                ERPRO    1038
           650  76640                   SLASH     SX6       B4                  ROUTINE SAVES RETURN POINT       ERPRO    1039
                     5160000025 C                 SA6       SLAB4               IN LOC SLASH                     ERPRO    1040
           651  0313000653 +                      NZ        X3,SLDRTN           IF ENTRY IS SLASH(0)             ERPRO    1041
                          6140000653 +            SB4       SLDRTN              CALL DELCOM                      ERPRO    1042
           652  0400000445 +                      ZR        DELCOM              AND DELETE REDUNDANT COMMA       ERPRO    1043
           653  6140000655 +            SLDRTN    SB4       SLFRTN              FOR ALL ENTRIES                  ERPRO    1044
                          76300                   SX3       B0                  CALL RECCHEK(0) FOR CHECK OF     ERPRO    1045
           654  0400000662 +                      ZR        RECCHEK             VALID RECORD LENGTH              ERPRO    1046
           655  5140000017 C            SLFRTN    SA4       LEVEL               RETRIEVE PUSHDOWN WORD ENTRY     ERPRO    1047
                          5244000000 C            SA4       X4+PUSHDOWN         FOR LEVEL                        ERPRO    1048
           656  43352                             MX3       60-18               CREATE MASK                      ERPRO    1049
                     5150000025 C                 SA5       SLAB4               FETCH RETURN POINT               ERPRO    1050
                               63450              SB4       X5                  TO RETURN REGISTER               ERPRO    1051
           657  20322                             LX3       18                  POSITION MASK W NO NL            ERPRO    1052
                     11634                        BX6       X3*X4               MASK OUT NL                      ERPRO    1053
                          43301                   MX3       1                   CREATE SLASH BIT                 ERPRO    1054
                               12636              BX6       X3+X6               TURN ON SLASH BIT                ERPRO    1055
           660  54640                             SA6       A4                  STORE MODIFIED PUSH-WORD         ERPRO    1056
                     37666                        IX6       X6-X6               ZERO OUT                         ERPRO    1057
                          5160000016 C            SA6       COLCNT              COLCNT                           ERPRO    1058
           661  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO    1059
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    28
        RECCHEK 
  
                                                  ENTRY     RECCHEK                                              ERPRO    1061
           662  76640                   RECCHEK   SX6       B4                  ROUTINE SAVES RETURN POINT       ERPRO    1062
                     5160000023 C                 SA6       RECB4               IN LOC RECB4                     ERPRO    1063
                               10633              BX6       X3                                                   ERPRO    1064
           663  5160000022 C                      SA6       RECX3               IN LOC RECX3                     ERPRO    1065
                          5140000016 C            SA4       COLCNT              FETCH CURRENT COLUMN COUNT       ERPRO    1066
           664  7254777565                        SX5       X4-MINMAX-1         IF LESS THAN INSIDE MAX          ERPRO    1067
                          0335000670 +            MI        X5,RERRTN           GO TO RERRTN                     ERPRO    1068
           665  6140000670 +                      SB4       RERRTN              ELSE, SET RETURN FLAG            ERPRO    1069
                          7130000014              SX3       12                                                   ERPRO    1070
           666  21521                             AX5    17                                                      ERPRO    1071
                     0305000754 +                 ZR     X5,IERROR   IF REC LENGTH IS NOT MORE THAN 17 BITS      ERPRO    1072
           667  7130000057                        SX3       47                                                   ERPRO    1073
                          0400000757 +            ZR        FERROR              ELSE, PRODUCE A FATAL ERROR      ERPRO    1074
           670  5140000022 C            RERRTN    SA4       RECX3               FETCH INPUT PARAMETER            ERPRO    1075
                          0304000704 +            ZR        X4,REREST           IF (0) ENTRY -GO TO RESTORE CODE ERPRO    1076
           671  0334001047 +                      MI        X4,FINISH           (-1) ENTRY -GO TO EXIT CODE      ERPRO    1077
                          5140000013 C            SA4       NUMN                (1)-T-ENTRY                      ERPRO    1078
           672  7264777776                       SX6       X4-1                                                  ERPRO    1079
                          54640                  SA6       A4                                                    ERPRO    1080
           673  7254777565                        SX5       X4-MINMAX-1         IF TAB SETTING LT INSIDE MAX     ERPRO    1081
                          0335000700 +            MI        X5,RTENTN           GO TO RTENTN                     ERPRO    1082
           674  6140000677 +                      SB4       RTERTN              ELSE SET RETURN POINT            ERPRO    1083
                          7130000021              SX3       17                                                   ERPRO    1084
           675  21521                             AX5    17                                                      ERPRO    1085
                     0305000754 +                 ZR     X5,IERROR   IF TAB SET IS NOT MORE THAN 17 BITS         ERPRO    1086
           676  7130000060                        SX3       48                                                   ERPRO    1087
                          0400000757 +           ZR        FERROR               ELSE PRODUCE FATAL ERROR         ERPRO    1088
           677  76610                   RTERTN    SX6       B1                  ERROR RETURN POINT.COLCNT=1      ERPRO    1089
                     0400000701 +                 ZR        RSTCCT              GO STORE PT                      ERPRO    1090
           700  5140000013 C            RTENTN    SA4       NUMN                FETCH NUMN FOR COLCNT            ERPRO    1091
                          10644                   BX6       X4                                                   ERPRO    1092
           701  5160000016 C            RSTCCT    SA6       COLCNT              RESET COLCNT                     ERPRO    1093
                          5140000017 C            SA4       LEVEL               FETCH PUSHDOWN(LEVEL)-WORD       ERPRO    1094
           702  5254000000 C                      SA5       X4+PUSHDOWN         FOR INDICATOR TEST               ERPRO    1095
                          43452                   MX4       60-18               FORM MASK                        ERPRO    1096
                               20422              LX4    18                POSITION MASK                         ERPRO    1097
           703  11645                             BX6    X4*X5             CLEAR NL FIELD                        ERPRO    1098
                     43501                        MX5    1                                                       ERPRO    1099
                          12656                   BX6    X5+X6             OR IN COLCNT                          ERPRO    1100
                               54650              SA6       A5                  STORE IN ADDR PUSHDOWN(LEVEL)    ERPRO    1101
           704  5140000023 C            REREST    SA4       RECB4               RESTORE                          ERPRO    1102
                          63440                   SB4       X4                  RETURN POINT                     ERPRO    1103
           705  5130000022 C                      SA3       RECX3               AND INPUT PARAMETER              ERPRO    1104
                          0244000000              JP        B4       RETURN TO CALLING PROGRAM                   ERPRO    1105
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    29
        LEFTPAR 
  
                                                 ENTRY     LEFTPAR                                               ERPRO    1107
           706  5140000017 C            LEFTPAR  SA4       LEVEL                PUSHDOWN WORD FOR LAST LEVEL     ERPRO    1108
                          7254777766             SX5       X4-LEVMAX            SUBTRACT MAXLEVEL                ERPRO    1109
           707  0325000714 +                     PL        X5,LEVERR            IF INVALID LEVEL PROCESS ERROR   ERPRO    1110
                          73641                  SX6       X4+B1                INCREMENT TO CURRENT LEVEL       ERPRO    1111
                               54640             SA6       A4                   VALID LEVEL,STORE IN COUNTER     ERPRO    1112
           710  5256000000 C                     SA5       X6+PUSHDOWN          FETCH PUSHDOWN WORD              ERPRO    1113
                          5140000013 C           SA4       NUMN                 FETCH NUMN,TO SET=GP(LEVEL)      ERPRO    1114
           711  0324000712 +                      PL     X4,LEFT1    IF = WAS NOT REPT COUNT                     ERPRO    1115
                          7140000001              SX4    1                                                       ERPRO    1116
           712                           LEFT1    BSS    0                                                       ERPRO    1117
           712  20444                            LX4       60-6-18              SHIFT NUMN INTO POSITION         ERPRO    1118
                     36654                       IX6       X5+X4                ADD NUMN TO P(WORD)              ERPRO    1119
                          54650                  SA6       A5                   STORE IN PUSHDOWN(LEVEL)         ERPRO    1120
           713  0244000000                       JP        B4        RETURN TO CALLING PROGRAM                   ERPRO    1121
           714  7130000052              LEVERR    SX3    42                ERROR-MAX PAREN LEVEL EXCEEDED        ERPRO    1122
                          0400000757 +           ZR        FERROR               FATAL ERROR                      ERPRO    1123
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    30
        RITEPAR 
  
                                                 ENTRY     RITEPAR                                               ERPRO    1125
           715  76640                   RITEPAR  SX6       B4                   ROUTINE SAVES RETURN POINT       ERPRO    1126
                     5160000025 C                SA6       RITEB4               IN RITEB4                        ERPRO    1127
                               63530             SB5       X3                   MOVES INPUT PARAM TO TEST REG    ERPRO    1128
           716  0550000720 +                     NE        B5,B0,LEVTEST        IF INPUT PARAM =0,               ERPRO    1129
                          6140000720 +           SB4       LEVTEST              DELETE PREV COMMA                ERPRO    1130
           717  0400000445 +                     ZR        DELCOM               BY CALL TO DELCOM                ERPRO    1131
           720  5140000017 C            LEVTEST  SA4       LEVEL                FETCH LEVEL                      ERPRO    1132
                          77301                  SX3       -B1                  IF LEVEL=0, GO TO END PROCESSING ERPRO    1133
           721  0304000662 +                     ZR        X4,RECCHEK           IN RECCHEK                       ERPRO    1134
                          5254000000 C           SA5       X4+PUSHDOWN          LEVEL NE 0  FETCH PUSHDOWN WORD  ERPRO    1135
           722  20530                            LX5       24                   SHIFT WORD SO GP IS RTMOST 18-BI ERPRO    1136
                     73450                       SX4       X5                   SAVE GP(LEVEL) FOR TESTS         ERPRO    1137
                          7130000053              SX3    43                                                      ERPRO    1138
           723  0304000757 +                      ZR     X4,FERROR   IF REPEAT COUNT IS ZERO                     ERPRO    1139
                          20544                  LX5       60-24                SHIFT P-WORD BACK TO NORMAL POSN ERPRO    1140
                               63440             SB4       X4                   MOVE GP(LEVEL) TO TEST REGISTER  ERPRO    1141
           724  0325000741 +                     PL        X5,SLOFF             SL(LEVEL) OFF,GO TO SLOFF CODE   ERPRO    1142
                          0441000733 +           EQ        B4,B1,LEVDECR        GP=1, GO TO LEVDECR CODE         ERPRO    1143
           725  5130000016 C                     SA3       COLCNT               FETCH CURRENT COLCNT             ERPRO    1144
                          10633                  BX6       X3                   MOVE COLCNT TO OUTPUT REG        ERPRO    1145
                               73450             SX4       X5                   MOVE N1 FOR ADD TO COLCNT        ERPRO    1146
           726  5160000031 C                     SA6       COLTEMP              FOR STORAGE IN TEMP-SAVE         ERPRO    1147
                          36634                  IX6       X3+X4                ADD N1 +COLCNT                   ERPRO    1148
                               13333             BX3       X3-X3                SET CALLING PARAM + RETURN POINT ERPRO    1149
           727  5160000016 C                     SA6       COLCNT               STORE IN COLCNT                  ERPRO    1150
                          6140000731 +           SB4       RIRERTN              FOR CALL TO RECCHEK(0) TO CHECK  ERPRO    1151
           730  0400000662 +                     ZR        RECCHEK              FOR VALID RECORD LENGTH          ERPRO    1152
           731  5140000031 C            RIRERTN  SA4       COLTEMP              FETCH OLD COLCNT                 ERPRO    1153
                          10644                  BX6       X4                   AND RESTORE VALUE                ERPRO    1154
           732  5160000016 C                     SA6       COLCNT               IN COLCNT WORD                   ERPRO    1155
                                                                                                                 ERPRO    1156
           733  5130000017 C             LEVDECR  SA3       LEVEL                                                ERPRO    1157
                          7263777776              SX6       X3-1                                                 ERPRO    1158
           734  5243000000 C                      SA4       X3+PUSHDOWN          PD(LEVEL)                       ERPRO    1159
                          55541                   SA5       A4-B1                PD(LEVEL-1)                     ERPRO    1160
                               54630              SA6       A3                   DECREMENT LEVEL                 ERPRO    1161
           735  43352                             MX3       42                                                   ERPRO    1162
                     13666                        BX6       X6-X6                                                ERPRO    1163
                          20322                   LX3       18                                                   ERPRO    1164
                               54640              SA6       A4                   CLEAR PD(LEVEL)                 ERPRO    1165
           736  11635                             BX6       X3*X5                                                ERPRO    1166
                     21574                        AX5       60                   EXTEND SLASH(LEVEL-1) BIT       ERPRO    1167
                          46000                   NO                                                             ERPRO    1168
                               15343              BX3       -X3*X4                                               ERPRO    1169
           737  15445                             BX4       -X5*X4               PD(LEVEL) IF SLASH(LEVEL-1) OFF ERPRO    1170
                     36563                        IX5       X6+X3                NL(LEVEL) REPLACES NL(LEVEL-1)  ERPRO    1171
                          43323                   MX3       1+18                                                 ERPRO    1172
                               46000              NO                                                             ERPRO    1173
           740  20322                             LX3       18                                                   ERPRO    1174
                     11434                        BX4       X3*X4                KEEP SLASH(LEVEL) AND N1(LEVEL) ERPRO    1175
                          0400000746 +            EQ        RPEND                                                ERPRO    1176
                                                                                                                 ERPRO    1177
           741  27404                   SLOFF    PX4       X4                   PACK GP FOR INTEGER MULTIPLY     ERPRO    1178
                     73350                       SX3       X5                   ISOLATE N1(LEVEL)                ERPRO    1179
                          27303                  PX3       X3                   PACK N1 FOR INTEGER MULTIPLY     ERPRO    1180
                               42443             DX4       X4*X3                INT MPY GP(LEVEL)*N1(LEVEL)      ERPRO    1181
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    31
        RITEPAR 
  
           742  73440                            SX4       X4                   STRIP OFF EXPONENT               ERPRO    1182
                     5130000017 C                SA3       LEVEL                FETCH LEVEL                      ERPRO    1183
                               13666             BX6       X6-X6                CREATE ZERO WORD                 ERPRO    1184
           743  5263000000 C                     SA6       X3+PUSHDOWN          ZERO OUT OLD LEVEL               ERPRO    1185
                          7263777776             SX6       X3-1                 DECREASE LEVEL BY 1              ERPRO    1186
           744  5160000017 C                     SA6       LEVEL                AND STORE BACK IN LEVEL-WORD     ERPRO    1187
                          5256000000 C           SA5       X6+PUSHDOWN          FETCH P-WORD FOR NEW LEVEL       ERPRO    1188
           745  0325000746 +                      PL        X5,RPEND             IF SLASH(LEVEL-1) BIT OFF       ERPRO    1189
                          20422                   LX4       18                   MOVE TOTAL WIDTH TO NL FIELD    ERPRO    1190
                                                                                                                 ERPRO    1191
           746  36645                    RPEND    IX6       X4+X5                UPDATE PD(LEVEL-1)              ERPRO    1192
                     54650                        SA6       A5                                                   ERPRO    1193
                          5140000025 C            SA4       RITEB4               CALLER-S RETURN ADDRESS         ERPRO    1194
           747  0326000750 +                      PL        X6,RPEND2            IF SLASH(LEVEL-1) BIT OFF       ERPRO    1195
                          20652                   LX6       60-18                NL(LEVEL-1) TO BITS 17-0        ERPRO    1196
                                                                                                                 ERPRO    1197
           750  73660                    RPEND2   SX6       X6                   ISOLATE N1/NL FIELD             ERPRO    1198
                     63440                        SB4       X4                                                   ERPRO    1199
                          5160000016 C            SA6       COLCNT               UPDATE CURRENT RECORD LENGTH    ERPRO    1200
           751  0244000000                        JP        B4                   RETURN TO CALLER                ERPRO    1201
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    32
        ERROR 
  
                                                 ENTRY     UERROR                                                ERPRO    1203
           752  5150000000 X             UERROR   SA5    =XANSI                                                  ERPRO    1204
                          6150000002 +            SB5    ASAER                                                   ERPRO    1205
           753  0315000765 +                      NZ     X5,ERROR    IF FLAG IS ON                               ERPRO    1206
                          0244000000             JP        B4                   FLAG OFF  RETURN TO CONT PROCESS ERPRO    1207
                                                 ENTRY     IERROR                                                ERPRO    1208
           754  6150000003 +            IERROR   SB5       ERPROI               INFORMATIVE ERROR ENTRY          ERPRO    1209
                          0302000757 +           ZR        X2,FERROR                                             ERPRO    1210
           755  0400000765 +                     ZR        ERROR                                                 ERPRO    1211
                                                 ENTRY     FERROR                                                ERPRO    1212
           756  7130000051               NORPAR   SX3    41                                                      ERPRO    1213
                          0400000765 +            ZR     ERROR                                                   ERPRO    1214
           757  6150000014 +            FERROR   SB5       ERPRO                FATAL ERROR ENTRY                ERPRO    1215
                          76610                  SX6       B1                                                    ERPRO    1216
                               13444              BX4    X4-X4                                                   ERPRO    1217
           760  5160000035 C                     SA6       FE                                                    ERPRO    1218
                          6140001047 +            SB4    FINISH      SCANNING STOPS FOR THIS FORMAT              ERPRO    1219
           761  0312000765 +                      NZ     X2,ERROR    NOT AT END OF STMT                          ERPRO    1220
                          5120000000 X            SA2    COL                                                     ERPRO    1221
           762  7262777776                       SX6       X2-1                                                  ERPRO    1222
                          54620                  SA6       A2                                                    ERPRO    1223
           763  5150000034 C                      SA5    STRING                                                  ERPRO    1224
                          0305000756 +            ZR     X5,NORPAR   IF NO RIGHT PARENS                          ERPRO    1225
           764  13666                            BX6       X6-X6                                                 ERPRO    1226
                     54650                        SA6    A5                                                      ERPRO    1227
           765  74670                   ERROR    SX6       A7                   TEMP SAVE AREA:                  ERPRO    1228
                     5160000045 C                SA6       TA7                                 X7  OUT WORD      ERPRO    1229
                               76670             SX6       B7                                                    ERPRO    1230
           766  5170000046 C                     SA7       TX7                                                   ERPRO    1231
                          5160000044 C           SA6       TB7                                 B7  SHIFT OUT     ERPRO    1232
           767  76740                            SX7       B4                                                    ERPRO    1233
                     5170000042 C                SA7       TB4                                 B4  RETURN POINT  ERPRO    1234
                               76630             SX6       B3                                                    ERPRO    1235
           770  5160000041 C                     SA6       TB3                                 B3  NODE ADDRESS  ERPRO    1236
                          10722                  BX7       X2                                                    ERPRO    1237
                               76620             SX6       B2                                                    ERPRO    1238
           771  5170000040 C                     SA7       TX2                                 X2  CHARACTER     ERPRO    1239
                          5160000037 C           SA6       TB2                                 B2                ERPRO    1240
           772  10744                            BX7       X4                                                    ERPRO    1241
                     5170000043 C                SA7       TX4                                                   ERPRO    1242
                               74710             SX7       A1                                                    ERPRO    1243
           773  5170000036 C                     SA7       TA1                                 X1  IN WORD       ERPRO    1244
                          6263000352             SB6       X3+LASTERR           CALCULATE ERROR NUMBER           ERPRO    1245
           774  74210                            SX2       A1                   COMPUTE CURRENT COLUMN POINTER N ERPRO    1246
                     5130000032                  SA3       SELIST                                                ERPRO    1247
                               37532             IX5       X3-X2                FWAFORMAT-(A1)                   ERPRO    1248
           775  22315                            LX3       X5,B1                X5*2                             ERPRO    1249
                     20503                       LX5       3                    X5*8                             ERPRO    1250
                          7140000006             SX4       6                                                     ERPRO    1251
           776  36553                            IX5       X5+X3                X5*10                            ERPRO    1252
                     6130000074                  SB3       60                                                    ERPRO    1253
                               77332             SX3       B3-B2                60-(B2)                          ERPRO    1254
           777  27303                            PX3       X3                                                    ERPRO    1255
                     27404                       PX4       X4                                                    ERPRO    1256
                          24404                  NX4       X4                                                    ERPRO    1257
                               44434             FX4       X3/X4                                                 ERPRO    1258
          1000  26474                            UX4       X4,B7                                                 ERPRO    1259
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    33
        ERROR 
  
                     22474                       LX4       X4,B7                60-(B2)/6                        ERPRO    1260
                          36554                  IX5       X5+X4                N=(FWA-(A1))*10+(60-(B2))/6=(X5) ERPRO    1261
          1001  5140000000 X                     SA4       COL                  FETCH COL                        ERPRO    1262
                          7214777775             SX1       X4-2                 COL - 2                          ERPRO    1263
          1002  36115                            IX1       X1+X5                COL-1+N                          ERPRO    1264
                     7120000102                  SX2       66                   COMPUTE WORD ERROR IS IN         ERPRO    1265
                               27101             PX1       X1                                                    ERPRO    1266
          1003  27202                            PX2       X2                                                    ERPRO    1267
                     24202                       NX2       X2                                                    ERPRO    1268
                          44212                  FX2       X1/X2                                                 ERPRO    1269
                               26272             UX2       X2,B7                                                 ERPRO    1270
          1004  22272                            LX2       X2,B7                WD=(COL-1+N)/66 = (X2)           ERPRO    1271
                     5130000000 X                SA3       CD                   FETCH CD                         ERPRO    1272
                               36332             IX3       X3+X2                CDNO=(CD)+WD = (X3)              ERPRO    1273
          1005  36145                            IX1       X4+X5                COL+N                            ERPRO    1274
                     7100000102                  SX0       66                                                    ERPRO    1275
                               27000             PX0       X0                                                    ERPRO    1276
          1006  27202                            PX2       X2                   P(WD)                            ERPRO    1277
                     42502                       DX5       X0*X2                66*WD                            ERPRO    1278
                          73550                  SX5       X5                                                    ERPRO    1279
          1007  7211000005                       SX1       X1+5                 COLNO=COL+N+5                    ERPRO    1280
                          37115                  IX1       X1-X5                COLNO=COL+N+5-(66*WD)            ERPRO    1281
                               27101             PX1       X1                                                    ERPRO    1282
          1010  7100000012                       SX0       10                                                    ERPRO    1283
                          5120000162 +           SA2       TENMU                                                 ERPRO    1284
          1011  27000                            PX0       X0                                                    ERPRO    1285
                     10533                       BX5       X3                                                    ERPRO    1286
                          66411                  SB4       B1+B1                                                 ERPRO    1287
                               37666             IX6       X6-X6                                                 ERPRO    1288
          1012  6120001016 +                     SB2       COLSTOR                                               ERPRO    1289
          1013  42312                   CDLOOP   DX3       X1*X2                T1 IN X3 = N * TENMU (L)         ERPRO    1290
                     40112                       FX1       X1*X2                T2 IN X1 = N * TENMU (U)         ERPRO    1291
                          40303                  FX3       X0*X3                DIGIT = T1 * P(10)               ERPRO    1292
                               73330             SX3       X3                   ELIMINATE EXPONENT               ERPRO    1293
          1014  12663                            BX6       X6+X3                APPEND DIGIT TO STRING           ERPRO    1294
                     20666                       LX6       54                   LEFT JUSTIFY DIGIT STRING        ERPRO    1295
                          67441                  SB4       B4-B1                REDUCE  DIGIT COUNT              ERPRO    1296
          1015  0540001013 +                     NZ        B4,CDLOOP                                             ERPRO    1297
                          0222000000             JP        B2                   RETURN TO PROCESSING             ERPRO    1298
          1016  7170003333              COLSTOR  SX7       2R00                 SAVE L-JUSTIFIED COLUMN COUNT    ERPRO    1299
                          20760                  LX7       60-12                                                 ERPRO    1300
                               36776             IX7       X7+X6                                                 ERPRO    1301
          1017  20760                            LX7       48                                                    ERPRO    1302
                     6140000004                  SB4       4                    SET B4 FOR CARD COUNT            ERPRO    1303
                               37666             IX6       X6-X6                CLEAR TEMP COUNT-SAVE AREA       ERPRO    1304
          1020  27105                            PX1       X5                   FETCH BINARY CARD COUNT          ERPRO    1305
                     6120001022 +                SB2       CDSTOR               SET RETURN POINT                 ERPRO    1306
          1021  0400001013 +                     ZR        CDLOOP               GO TO DC CONVERT LOOP            ERPRO    1307
          1022  5130001125 +            CDSTOR   SA3       =6RCD0000            CREATE DISPLAY CODE FOR CD       ERPRO    1308
                          66200                  SB2       B0                   INITIAL SHIFT COUNT              ERPRO    1309
          1023  10166                   LZLOOP   BX1       X6                   SHIFT DIGITS INTO TEMP LOC       ERPRO    1310
                     22121                       LX1       X1,B2                LEFT JUSTIFY CURRENT DIGIT       ERPRO    1311
                          21166                  AX1       54                   RIGHT JUSTIFY AND ISOLATE        ERPRO    1312
          1024  0311001026 +                     NZ        X1,OKNZ              NONZERO DIGIT. JUMP OUT OF LOOP. ERPRO    1313
                          6122000006             SB2       B2+6                 INCREMENT SHIFT COUNT            ERPRO    1314
          1025  0400001023 +                     ZR        LZLOOP               CONTINUE LOOPING                 ERPRO    1315
          1026  22626                   OKNZ     LX6       X6,B2                REMOVE ZERO DIGITS FROM STRING   ERPRO    1316
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    34
        ERROR 
  
                     6142000044                  SB4       B2+36                CALCULATE SHIFT COUNT            ERPRO    1317
                               23646             AX6       X6,B4                RIGHT JUSTIFY NON-ZERO DIGITS    ERPRO    1318
          1027  0420001034 +                     ZR        B2,MERGE             FOUR DIGITS. GO TO MERGE CODE.   ERPRO    1319
                          7140000022             SX4       1R -1R0              CREATE BLANK FILL CHARACTER      ERPRO    1320
          1030  20422                            LX4       18                   SHIFT INTO MERGE POSITION        ERPRO    1321
          1031  36334                   BLOOP    IX3       X3+X4                MERGE BLANK INTO NUMBER          ERPRO    1322
                     6122777771                  SB2       B2-6                 DECREMENT SHIFT COUNT            ERPRO    1323
          1032  0420001034 +                     ZR        B2,MERGE             ALL DIGITS TREATED- MERGE        ERPRO    1324
                          7140000055             SX4       1R                                                    ERPRO    1325
          1033  21306                            AX3       6                    SHIFT FILL CHARS FOR NEXT ADDN   ERPRO    1326
                     20436                       LX4       5*6                                                   ERPRO    1327
                          0400001031 +           ZR        BLOOP                CONTINUE BLANK FILL LOOP         ERPRO    1328
          1034  36663                   MERGE    IX6       X6+X3                MERGE CD+FILL+ CDNO              ERPRO    1329
                     12367                       BX3       X6+X7                MERGE COLNO+CD+FILL+CDNO         ERPRO    1330
                          37444                  IX4       X4-X4                SET X4 FOR DISPLAY CODE MESSAGE  ERPRO    1331
          1035  6170001036 +                     SB7       ERESTOR              SET RETURN POINT                 ERPRO    1332
                          0255000000             JP        B5                   GO TO APPROPRIATE ERROR ENTRY    ERPRO    1333
          1036  5100000000 X            ERESTOR  SA0       MASKS                                                 ERPRO    1334
                          6110000001             SB1       1                                     B1=1            ERPRO    1335
          1037  43066                            MX0       60-6                                  X0              ERPRO    1336
                     5120000036 C                SA2       TA1                                   A1              ERPRO    1337
                               53120             SA1       X2                                    X1              ERPRO    1338
          1040  5120000040 C                     SA2       TX2                                   X2              ERPRO    1339
                          5130000037 C           SA3       TB2                                   B2              ERPRO    1340
          1041  63230                            SB2       X3                                                    ERPRO    1341
                     5130000041 C                SA3       TB3                                   B3              ERPRO    1342
                               63330             SB3       X3                                                    ERPRO    1343
          1042  5140000042 C                     SA4       TB4                                   B4              ERPRO    1344
                          5150000044 C           SA5       TB7                                   B7              ERPRO    1345
          1043  63440                            SB4       X4                                                    ERPRO    1346
                     63750                       SB7       X5                                                    ERPRO    1347
                          5140000045 C           SA4       TA7                                                   ERPRO    1348
          1044  53540                            SA5       X4                                                    ERPRO    1349
                     10755                       BX7       X5                                    X7              ERPRO    1350
                          53740                  SA7       X4                                    A7              ERPRO    1351
          1045  5140000043 C                     SA4       TX4                                                   ERPRO    1352
                          5150000046 C           SA5       TX7                                                   ERPRO    1353
          1046  10755                            BX7       X5                                                    ERPRO    1354
                     76360                       SX3       B6                                                    ERPRO    1355
                          0244000000             JP        B4        RETURN TO CALLING PROGRAM                   ERPRO    1356
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    35
        FORMAT PACKING PROCESSOR
  
                                                 ENTRY     FINISH                                                ERPRO    1358
          1047  0324001112 +            FINISH   PL        X4,FORMOUT           IF ABNORMAL EXIT, DONT PROCESS   ERPRO    1359
                          43006                  MX0       6                    CREATE 1 CHARACTER MASK          ERPRO    1360
                               23020             AX0       X0,B2                EXTEND MASK TO NO.CHARS REMAIN.  ERPRO    1361
          1050  20006                            LX0       6                    EXTEND SHIFT CT TO POSN MASK     ERPRO    1362
                     22020                       LX0       X0,B2                POSITION MASK OVER REMAIN CHARS. ERPRO    1363
                          0301001056 +           ZR        X1,PACKPAR                                            ERPRO    1364
          1051  11101                            BX1       X0*X1                IN X1 CREATE ZEROES+REMAIN CHARS ERPRO    1365
                     5120001113 +                SA2       BLANK                FETCH BLANKS FOR MASKING CHARS   ERPRO    1366
                               15320             BX3       -X0*X2               MASK BLANKS IN GOOD CHARS        ERPRO    1367
          1052  36113                            IX1       X1+X3                ADD LEADING BLANKS TO LAST WORD  ERPRO    1368
          1053  13412                   LOOPZ    BX4       X1-X2                SUBTRACT WORD OF BLANKS          ERPRO    1369
                     0314001103 +                NZ        X4,GARBAG            EXTRANEOUS CHARS AT END OF FORMT ERPRO    1370
          1054  6120000066                       SB2       54                                                    ERPRO    1371
                          55111                  SA1       A1-B1                NO, FETCH NEXT WORD              ERPRO    1372
          1055  0311001053 +                     NZ        X1,LOOPZ             NOT ZERO-WORD. CONTINUE SEARCH   ERPRO    1373
          1056  5150000035 C            PACKPAR  SA5       FE                   FETCH FATAL-TO-EXECUTION FLAG    ERPRO    1374
                          0315001112 +           NZ        X5,FORMOUT           IF E FE DONT OUTPUT COMPASS IMAG ERPRO    1375
          1057  5120001113 +                     SA2       BLANK                                                 ERPRO    1376
                          5130000020 C           SA3       SAVECHAR             FETCH LAST GOOD CHARACTER.       ERPRO    1377
          1060  22373                            LX3       X3,B7                POSN CHARACTER FOR OUTPUT WORD   ERPRO    1378
                     12773                       BX7       X7+X3                OR CHARACTER INTO OUTPUT WORD.   ERPRO    1379
                          0470001063 +           ZR        B7,LASTOK            OUT-WORD FULL. GO,INSERT ZERO WD ERPRO    1380
          1061  6177777771                       SB7       B7-6                 MODIFY OUT-WORD SHIFT FOR NXT CH ERPRO    1381
                          43006                  MX0       6                    CREATE ONE CHARACTER MASK        ERPRO    1382
                               23070             AX0       X0,B7                EXTEND MASK TO NO.CHARS TO FILL  ERPRO    1383
          1062  20006                            LX0       6                    EXTEND SHIFT TO POSN MASK        ERPRO    1384
                     22070                       LX0       X0,B7                                                 ERPRO    1385
                          11302                  BX3       X0*X2                CREATE BLANK FILL CHARACTERS     ERPRO    1386
                               12773             BX7       X7+X3                OR FILL-CHARS INTO OUTPUT WORD.  ERPRO    1387
          1063  55771                   LASTOK   SA7       A7-B1                STORE LAST WORD OF FORMAT STRING ERPRO    1388
                     5140000000 X                 SA4    LWAWORK                                                 ERPRO    1389
                               74670             SX6       A7                   SAVE LAST ADDRESS                ERPRO    1390
          1064  54640                             SA6    A4                                                      ERPRO    1391
                     5150000000 X                SA5       DATA.                                                 ERPRO    1392
                               75771             SX7       A7-B1                                                 ERPRO    1393
          1065  7264777776                        SX6    X4-1                                                    ERPRO    1394
                          73551                  SX5       X5+B1                INCR -DATA.- LEN FOR FMT LABEL   ERPRO    1395
                               37067              IX0    X6-X7                                                   ERPRO    1396
          1066  5170000050 C                     SA7       MYLAST               OUTPUT FORMAT INVERTED LWA+1     ERPRO    1397
                          5160000047 C           SA6       MYFIRST              OUTPUT FORMAT INVERTED FWA       ERPRO    1398
          1067  36750                            IX7       X5+X0                                                 ERPRO    1399
                     6100000000                  SB0       0                                                     ERPRO    1400
                               54750             SA7       A5                   UPDATE LENGTH OF -DATA.- BLOCK   ERPRO    1401
                                                                                                                 ERPRO    1402
                                        *         WRITE COMPRESSED FORMAT TO *COMPS* FILE AS ONE OR MORE *DIS*   ERPRO    1403
                                        *         PSEUDO-OP LINES.  EACH LINE CONTAINS, AT MOST, 6 WORDS OF THE  ERPRO    1404
                                        *         FORMAT, AND IS PREFACED WITH THE *DIS* PSEUDO AND WORD COUNT.  ERPRO    1405
                                                                                                                 ERPRO    1406
          1070  5130000050 C             FIN2     SA3    MYLAST      (X3) = OUTPUT FORMAT INVERTED LWA+1         ERPRO    1407
                          5120000047 C            SA2    MYFIRST     (X2) = OUTPUT FORMAT INVERTED FWA           ERPRO    1408
          1071  5150001126 +                      SA5    =H*  DIS   0,*                                          ERPRO    1409
                          7100000006              SX0    6           MAX LINE LENGTH, EXCLUDING *DIS* PSEUDO     ERPRO    1410
          1072  37323                             IX3    X2-X3       (X3) = TOTAL REMAINING FORMAT LENGTH        ERPRO    1411
                     0303001112 +                 ZR     X3,FORMOUT  IF NO MORE FORMAT TO WRITE                  ERPRO    1412
                               37430              MX4    X3-X0       (X4) = (REMAINING FMT LEN,MAX LEN)          FEAT155D  138
          1074  6160001114 +                      SB6    FBUF        (B6) = OUTPUT LINE FWA                      ERPRO    1414
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    36
        FORMAT PACKING PROCESSOR
  
                          53120                   SA1    X2          (X1) = FIRST WORD OF REMAINING FORMAT       ERPRO    1415
                               63240              SB2    X4          (B2) = OUTPUT LINE LENGTH, EXCL *DIS* WORD  ERPRO    1416
          1075  20406                             LX4    6                                                       ERPRO    1417
                     36754                        IX7    X5+X4       ADD LENGTH TO *DIS* PSEUDO (DPC)            ERPRO    1418
                          46000                   NO                                                             ERPRO    1419
                               56760              SA7    B6          *DIS* PSEUDO TO OUTPUT BUFFER               ERPRO    1420
          1076  10711                    FIN3     BX7    X1                                                      ERPRO    1421
                     55111                        SA1    A1-B1       (X1) = NEXT FORMAT WORD                     ERPRO    1422
                          67221                   SB2    B2-B1                                                   ERPRO    1423
                               54771              SA7    A7+B1                                                   ERPRO    1424
          1077  0702001076 +                      GT     B2,B0,FIN3  IF *DIS* LINE NOT COMPLETE                  ERPRO    1425
                          13666                   BX6    X6-X6                                                   ERPRO    1426
                               74710              SX7    A1                                                      ERPRO    1427
          1100  54671                             SA6    A7+B1       ZERO WORD LINE TERMINATOR TO BUFFER         ERPRO    1428
                     64761                        SB7    A6+B1       OUTPUT LINE LWA+1                           ERPRO    1429
                          54720                   SA7    A2          UPDATE FWA                                  ERPRO    1430
                               67776              SB7    B7-B6       OUTPUT LINE LENGTH                          ERPRO    1431
          1101  7120000000 X                      WRITEC =XF.CMPS,B6,B7    *DIS* LINE TO *COMPS* FILE            ERPRO    1432
          1102  0400001070 +                      EQ     FIN2        LOOP FOR MORE OUTPUT                        ERPRO    1433
                                                                                                                 ERPRO    1434
                                        *         HERE IF EXTRANEOUS CHARACTERS AFTER CLOSING RIGHT PARENTHESIS. ERPRO    1435
                                                                                                                 ERPRO    1436
          1103  7130000054               GARBAG   SX3    44          EXTRANEOUS INFO FOLLS 0-LEV-).              FCC1385    16
                          7150000055             SX5       1R                                                    ERPRO    1438
          1104  43066                            MX0       54                                                    ERPRO    1439
          1105  23221                   GETIT    GETCH     X2                                                    ERPRO    1440
                          13452                  BX4       X5-X2                                                 ERPRO    1441
          1110  0304001105 +                     ZR        X4,GETIT                                              ERPRO    1442
                          0302001056 +           ZR        X2,PACKPAR                                            ERPRO    1443
          1111  6140001056 +                     SB4       PACKPAR              SET RETURN POINT TO PACK SAVECH. ERPRO    1444
                          0400000757 +            ZR     FERROR      ANNOUNCE FATAL ERROR                        FCC1385    17
          1112  6150000001              FORMOUT  SB5       1                    RESTORE UNIT-REGISTER            ERPRO    1446
                          0400000116 +           ZR        FORMAT               RETURN COMPLETED FORMAT TO CALLR ERPRO    1447
  
  
  
          1113  55555555555555555555     BLANK    DATA   10H                                                     ERPRO    1449
          1114                    10     FBUF     BSSZ   8           FORMAT STATEMENT OUTPUT BUFFER              ERPRO    1450
          1127                                    END                                                            ERPRO    1451
  
                             66100B CM  STORAGE USED             1905 STATEMENTS      824 SYMBOLS      000029 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.638 SECONDS         821 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACCUM         177   PROGRAM*       15/07     15/10 L
        ADDREF          0   EXTERNAL*      13/09
        ADVCHAR       201   PROGRAM*       15/15 L   15/22
        ANSI            0   EXTERNAL*      32/02
        ASAER           2   PROGRAM*        3/33 E    4/04 L   32/03
        BHSCAN        507   PROGRAM*       23/47     23/50 L   26/23
        BLANK        1113   PROGRAM*       35/09     35/19     36/37 L
        BLOOP        1031   PROGRAM*       34/06 L   34/12
        CD              0   EXTERNAL*       1/48 X   33/13
        CDD             0   EXTERNAL*      25/36
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    37
        SYMBOLIC REFERENCE TABLE. 
  
        CDLOOP       1013   PROGRAM*       33/31 L   33/38     33/48
        CDSTOR       1022   PROGRAM*       33/47     33/49 L
        CED            55   PROGRAM*        5/12      8/55 D    8/56 E
        CHSCAN        566   PROGRAM*       24/07     24/11     24/33 L   25/14
        CHSC0         526   PROGRAM*       24/12 L   24/40     25/08
        CHSC01        542   PROGRAM*       24/15     24/20 L   24/24
        CHSC03        546   PROGRAM*       24/21     24/26 L
        CHSC04        555   PROGRAM*       24/18     24/27 L   25/20
        CHSC05        556   PROGRAM*       24/13     24/30 L
        CHSC1         572   PROGRAM*       24/34     24/37 L
        CHSC1A        613   PROGRAM*       24/52     24/57     25/02     25/16 L
        CHSC1B        610   PROGRAM*       24/32     25/09 L
        CHSC1C        615   PROGRAM*       25/19     25/22 L
        CHSC1D        577   PROGRAM*       24/42     24/44     24/46     24/51 L
        CHSC1E        605   PROGRAM*       24/55     25/07 L
        CHSC2A        630   PROGRAM*       24/28     25/51 L
        CHSC2B        635   PROGRAM*       26/06     26/08 L
        CHSC3         640   PROGRAM*       26/08     26/15     26/17 L
        CLABEL         23                   1/56 D   12/16     12/27
        COL             0   EXTERNAL*       1/48 X   32/19     33/03
        COLCNT         16   DAT.FMT        13/53 L   27/21 S   28/33 S   30/26 S   31/19 S
                                           17/18     28/06     30/20     30/31 S
        COLSTOR      1016   PROGRAM*       33/30     33/40 L
        COLTEMP        31   DAT.FMT        14/21 L   30/23 S   30/29
        DATA.           0   EXTERNAL*       1/49 X   12/52     35/35
        DECB4          23   DAT.FMT        14/07 D   19/03 S   19/25
        DECIM         315   PROGRAM*       19/01 E   19/02 L   22/33
        DECIM1        325   PROGRAM*       19/16     19/20 L
        DECIM2        326   PROGRAM*       19/15     19/19     19/21 L
        DECREST       330   PROGRAM*       19/12     19/21     19/23     19/25 L
        DELCOM        445   PROGRAM*       20/34     22/49 E   22/50 L   23/46     27/06     30/07
        DELEXIT       447   PROGRAM*       22/52     22/55 L
        DFN            40                  12/47 D   12/49
        DIGMASK         0   EXTERNAL*       1/48 X   15/04     22/17
        DNRET         320   PROGRAM*       19/07     19/09 L
        ERESTOR      1036   PROGRAM*       34/16     34/18 L
        ERPRO          14   PROGRAM*        3/33 E    4/44 L   12/37     12/43     32/13
        ERPROE         33   PROGRAM*        5/32 L    6/10
        ERPROF         44   PROGRAM*        5/48      5/49      5/54 L
        ERPROI          3   PROGRAM*        3/33 E    4/12 L   32/07
        ERPROK         34   PROGRAM*        5/31      5/36 L
        ERPROL         37   PROGRAM*        4/34      5/40      5/43 L    5/52      6/19
        ERPROP         43   PROGRAM*        5/52 L    6/13
        ERPRO1         15   PROGRAM*        4/37      4/48 L
        ERPRO2         23   PROGRAM*        5/03      5/08 L
        ERPRO4         26   PROGRAM*        5/06      5/09      5/19 L
        ERPRO.1        17   PROGRAM*        4/16      4/23      4/52 L    6/16 S
        ERRMAX        144   FTNTEXT         4/15      4/54
        ERROR         765   PROGRAM*       32/04     32/09     32/12     32/18     32/26 L
        ERTOV          47   PROGRAM*        4/55      6/10 L
        E.CLU          22                  12/02 D   12/37
        E.DDSN         10                  12/01 D   12/43
        E.ETOF        156                   2/02 D    6/18
        E.TMIE        316                   2/03 D    4/18
        FATALER        11   PROGRAM*        3/33 E    4/30 L
        FBUF         1114   PROGRAM*       35/57     36/38 L
        FCFLAG          1   PROGRAM*        3/41 L    4/31
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    38
        SYMBOLIC REFERENCE TABLE. 
  
        FE             35   DAT.FMT        14/25 L   32/16 S   35/17
        FEFLAG          0   EXTERNAL*       4/45 S
        FERROR        757   PROGRAM*       15/09     22/09     23/19     24/16     26/30     29/17     32/10 E
                                           16/14     22/32     23/23     24/26     28/14     30/15     32/13 L
                                           16/24     23/13     24/01     24/30     28/28     32/08     36/31
        FETCH         452   PROGRAM*       23/07 L   23/15
        FETCH1        456   PROGRAM*       23/08     23/12 L
        FINISH       1047   PROGRAM*       28/17     32/17     35/01 E   35/02 L
        FIN2         1070   PROGRAM*       35/50 L   36/19
        FIN3         1076   PROGRAM*       36/07 L   36/11
        FLAGPON        27   DAT.FMT        14/19 L   16/26     18/37 S   22/40
        FLDB4          23   DAT.FMT        14/03 L   14/07     14/16     17/03 S   17/29
        FLDCALL       252   PROGRAM*       17/07     17/12 L
        FLDCHEK       246   PROGRAM*       17/01 E   17/02 L   18/23     20/19     23/17     26/19
        FLDMI         264   PROGRAM*       17/23     17/35 L
        FLDMI1        265   PROGRAM*       17/36     17/38 L
        FLDMI2        270   PROGRAM*       17/45     17/47 L
        FLDPL         257   PROGRAM*       17/24 L   17/42
        FLDRTN        254   PROGRAM*       17/15     17/17 L
        FLDX3          22   DAT.FMT        14/02 L   14/17     17/06 S   17/33
        FMT1          131   PROGRAM*       12/36     12/39 L
        FMT1A         134   PROGRAM*       12/23     12/42     12/49 L
        FMT2          144   PROGRAM*       13/08     13/11 L
        FORMAT        116   PROGRAM*       12/14 E   12/14 L   12/35     36/33
        FORMOUT      1112   PROGRAM*       35/02     35/18     35/55     36/32 L
        FWAWORK         0   EXTERNAL*       5/42 S   15/09     22/32     23/13     24/01     24/16     24/26     24/30
        F1AMAC          0   EXTERNAL*      13/05
        F.CMPS          0   EXTERNAL*      36/18
        GARBAG       1103   PROGRAM*       35/13     36/23 L
        GETIT        1105   PROGRAM*       36/26 L   36/28
        HCEFAT        470   PROGRAM*       23/10     23/20 L
        HCFCOM        472   PROGRAM*       23/16     23/24 L
        HCFRTN        500   PROGRAM*       23/26     23/28     23/31     23/32     23/34     23/36 L
        HCOB4          25   DAT.FMT        14/13 D   23/04 S   23/36
        HCOFAT        467   PROGRAM*       23/06     23/18 L
        HCOUNTR       450   PROGRAM*       23/01 E   23/02 L
        HDELIM         30   DAT.FMT        14/20 L   23/43 S   23/52
        HSREST        642   PROGRAM*       26/18     26/20 L
        HSTB4          25   DAT.FMT        14/14 D   23/41 S   26/24
        HSTFA         646   PROGRAM*       24/48     25/04     26/28 L
        HSTFAT        645   PROGRAM*       24/36     26/27 L
        HSTRNGR       502   PROGRAM*       23/39 E   23/40 L
        IERROR        754   PROGRAM*       16/12     16/41     18/31     20/07     20/54     22/39     28/12     32/06 E
                                           16/38     18/16     19/24     20/22     22/30     22/45     28/26     32/07 L
        IMFLG           0   PROGRAM*        3/34 E    3/40 L    4/33 S    5/29      6/11      6/17 S
        INFORM          4   PROGRAM*        3/33 E    4/05      4/14 L    4/22 S
        LABCON          0   EXTERNAL*      12/19
        LASTER         21   PROGRAM*        4/57 L    6/21
        LASTERR       352                  12/07 D   32/43
        LASTOK       1063   PROGRAM*       35/23     35/31 L
        LDPS2           0   EXTERNAL*       1/51 X    6/02
        LEFTPAR       706   PROGRAM*       29/01 E   29/02 L
        LEFT1         712   PROGRAM*       29/09     29/11 L
        LEVDECR       733   PROGRAM*       30/19     30/33 L
        LEVEL          17   DAT.FMT        13/54 L   27/10     29/02     30/33     31/06 S
                                           17/21     28/34     30/08     31/02
        LEVERR        714   PROGRAM*       29/04     29/16 L
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    39
        SYMBOLIC REFERENCE TABLE. 
  
        LEVMAX         11                  12/06 D   13/48     29/03
        LEVTEST       720   PROGRAM*       30/05     30/06     30/08 L
        LOOPZ        1053   PROGRAM*       35/12 L   35/16
        LWAWORK         0   EXTERNAL*       1/52 X   13/30     35/32
        LZLOOP       1023   PROGRAM*       33/51 L   33/56
        L.UDV           0   EXTERNAL*       5/56 S
        MASKS           0   EXTERNAL*       1/48 X   13/36     34/18
        MERGE        1034   PROGRAM*       34/03     34/08     34/13 L
        MINMAX        211                  12/04 D   16/09     28/07     28/21
        MORECH         33   DAT.FMT        14/23 L   23/53 S   24/12     24/45     25/01     25/10 S   25/16     26/20
        MOVEIN        166   PROGRAM*       15/08 L   15/18
        MYFIRST        47   DAT.FMT        14/37 L   35/41 S   35/51
        MYLAST         50   DAT.FMT        14/38 L   35/40 S   35/50
        M.FNCHK        23   FTNTEXT        12/31
        NASAFLG         0   EXTERNAL*       1/51 X
        NEGSET        361   PROGRAM*       20/26 E   20/27 L
        NODE2           0   EXTERNAL*       1/48 X   13/35
        NONDIG        207   PROGRAM*       15/20     15/23 L
        NONUH         505   PROGRAM*       23/44     23/45     23/47 L
        NORPAR        756   PROGRAM*       32/11 L   32/23
        NPIRTN        440   PROGRAM*       22/38     22/40 L
        NULB4          21   DAT.FMT        14/12 D   22/36 S   22/46
        NULLP         435   PROGRAM*       22/34 E   22/35 L
        NUMBER        163   PROGRAM*       15/47 E   15/02 L   18/08     19/08     20/46
        NUMB1         211   PROGRAM*       15/06     15/27 L
        NUMB2         214   PROGRAM*       15/36 L   15/40
        NUMD           12   DAT.FMT        13/49 L   19/11     19/26     19/50 S
        NUMN           13   DAT.FMT        13/24 S   15/34 S   16/32 S   20/09     25/12 S   28/31
                                           13/50 L   16/20     17/05     20/47     25/23 S   29/08
                                           15/25 S   16/30     19/47 S   23/05     28/18
        NUMW           14   DAT.FMT        13/51 L   16/07     17/08     17/14 S   17/19     17/32 S   18/09     19/49 S
        NWOK          301   PROGRAM*       18/13     18/17 L
        N2IRTN        443   PROGRAM*       22/44     22/46 L
        N.CELLS        36                  13/17     14/26 D
        N.ERROR         0   EXTERNAL*       1/50 X    4/14      4/53
        N.FERR          0   EXTERNAL*       1/50 X    4/48
        OKNZ         1026   PROGRAM*       33/54     33/57 L
        ONECNT        341   PROGRAM*       19/45 E   19/46 L
        OUTUSE          0   EXTERNAL*      12/15
        O.CELLS         0   DAT.FMT        13/20 S   13/47 L   14/26
        O.ERTAB         0   TABLES          3/37 L    5/28 S
        O.SCR           0   EXTERNAL*       5/39
        PACKPAR      1056   PROGRAM*       35/07     35/17 L   36/29     36/30
        PDSET         260   PROGRAM*       17/25     17/27 L
        PMAX         1147                  12/05 D   16/33
        PNUMERR       244   PROGRAM*       16/34     16/39 L
        PONERR        242   PROGRAM*       16/29     16/36 L
        PROGC           0   EXTERNAL*       6/03
        PROGNAM         0   EXTERNAL*       6/01
        PTEST         235   PROGRAM*       16/19     16/26 L
        PUSHDOWN        0   DAT.FMT        13/48 L   27/11     29/07     30/35     31/07
                                           17/22     28/35     30/11     31/04 S
        P2NOGO          0   EXTERNAL*       5/57 S
        P.DFN          63   FTNTEXT        12/40     12/50
        P.FNCHK        60   FTNTEXT        12/33
        P.RA           23   FTNTEXT        12/54
        RANB4          21   DAT.FMT        14/01 L   14/12     16/04 S   16/15
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    40
        SYMBOLIC REFERENCE TABLE. 
  
        RANGE         222   PROGRAM*       16/01 E   16/02 L   17/16     18/19
        RANREST       230   PROGRAM*       16/05     16/10     16/15 L   16/21     16/22     16/35     16/40
        RECB4          23   DAT.FMT        14/16 D   28/03 S   28/42
        RECCHEK       662   PROGRAM*       21/01     27/09     28/01 E   28/02 L   30/10     30/28
        RECX3          22   DAT.FMT        14/17 D   28/05 S   28/15     28/44
        REREST        704   PROGRAM*       28/16     28/42 L
        RERRTN        670   PROGRAM*       28/08     28/09     28/15 L
        RIRERTN       731   PROGRAM*       30/27     30/29 L
        RITEB4         25   DAT.FMT        14/18 D   30/03 S   31/13
        RITEPAR       715   PROGRAM*       30/01 E   30/02 L
        RPEND         746   PROGRAM*       30/52     31/08     31/11 L
        RPEND2        750   PROGRAM*       31/14     31/17 L
        RPTRTN        237   PROGRAM*       16/30 L   16/37
        RSELECT         0   EXTERNAL*       1/51 X   13/07
        RSTCCT        701   PROGRAM*       28/30     28/33 L
        RTENTN        700   PROGRAM*       28/22     28/31 L
        RTERTN        677   PROGRAM*       28/23     28/29 L
        SAVADR        161   PROGRAM*       12/30 S   14/40 L   15/27     19/37
        SAVECHAR       20   DAT.FMT        13/41 S   13/57     22/32     23/13     24/01     24/26     35/20
                                           13/55 L   15/09     22/50     23/57 S   24/16     24/30
        SAVECHR        20   DAT.FMT        13/56 E   13/57 D
        SCANNER         0   EXTERNAL*       1/51 X    5/50
        SCNT           46                   1/57 D    5/21
        SELIST         32                   1/55 D   13/28     32/45
        SLAB4          25   DAT.FMT        14/15 D   27/03 S   27/13
        SLASH         650   PROGRAM*       27/01 E   27/02 L
        SLDRTN        653   PROGRAM*       27/04     27/05     27/07 L
        SLFRTN        655   PROGRAM*       27/07     27/10 L
        SLOFF         741   PROGRAM*       30/18     30/54 L
        SPES          403   PROGRAM*       22/01 E   22/02 L
        SPESB4         25   DAT.FMT        14/11 D   22/03 S   22/15
        SPESFLG        15   DAT.FMT        13/52 L   18/24     19/18     19/31 S   19/51 S   22/05
        SPESSET       332   PROGRAM*       19/29 E   19/30 L
        SPESS1        336   PROGRAM*       19/35     19/37 L
        SPESS2        340   PROGRAM*       19/33     19/43 L
        SPES1         407   PROGRAM*       22/07     22/10 L
        SPES2         411   PROGRAM*       22/12     22/14 L
        SPES3         413   PROGRAM*       22/18 L   22/27
        SPES35        422   PROGRAM*       22/25     22/29 L
        SPES4         423   PROGRAM*       22/21     22/23     22/31 L
        STRING         34   DAT.FMT        14/24 L   23/22 S   26/29 S   32/22
        S.SCR           0   EXTERNAL*       5/38 S
        TA1            36   DAT.FMT        13/03 S   13/09     14/27 L   25/28 S   25/37     32/42 S   34/21
        TA7            45   DAT.FMT        14/35 L   24/05 S   25/52     32/27 S   34/32
        TB2            37   DAT.FMT        14/28 L   25/30 S   25/38     32/38 S   34/24
        TB3            41   DAT.FMT        14/31 L   25/33 S   25/44     32/34 S   34/26
        TB4            42   DAT.FMT        14/32 L   25/34 S   25/47     32/32 S   34/28
        TB7            44   DAT.FMT        14/34 L   24/03 S   25/51     32/30 S   34/29
        TCIRTN        401   PROGRAM*       20/57     21/02 L
        TCOB4          25   DAT.FMT        14/10 D   20/44 S   21/02
        TCODE         371   PROGRAM*       20/41 E   20/42 L
        TCODE1        377   PROGRAM*       20/48     20/51     20/52     20/55 L
        TEMPNW         24   DAT.FMT        14/04 L   18/11 S   18/26     19/10
        TENMU         162   PROGRAM*       14/44 L   33/25
        TEST            0   FTNTEXT         9/21 F
        TNRTN         373   PROGRAM*       20/45     20/47 L
        TRANSIT         0   EXTERNAL*       1/48 X   13/42
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    41
        SYMBOLIC REFERENCE TABLE. 
  
        TSAB4          25   DAT.FMT        14/09 D   20/32 S   20/38
        TSASI         363   PROGRAM*       20/30 E   20/31 L
        TSDRTN        365   PROGRAM*       20/33     20/35 L
        TSURTN        367   PROGRAM*       20/36     20/38 L
        TTA7           40   DAT.FMT        14/30 D   25/25 S   25/41
        TX2            40   DAT.FMT        14/29 L   14/30     32/37 S   34/23
        TX4            43   DAT.FMT        14/33 L   32/40 S   34/36
        TX7            46   DAT.FMT        14/36 L   25/26 S   25/49     32/29 S   34/37
        TYPE           24                   1/54 D    5/43
        T.LAB           6   FTNTEXT        12/49
        UDATA.          0   EXTERNAL*      12/15
        UERROR        752   PROGRAM*       15/38     17/52     20/16     22/13     23/49     32/02 L
                                           15/41     19/44     20/37     23/35     32/01 E
        WB.FMT          0   EXTERNAL*       1/49 X   12/53
        WFRTN         305   PROGRAM*       18/21     18/24 L
        WIDB4          25   DAT.FMT        14/05 L   14/09     14/11     14/14     14/18     18/32
                                           14/08     14/10     14/13     14/15     18/03 S
        WIDREST       311   PROGRAM*       18/12     18/15     18/25     18/28     18/30     18/32 L
        WIDTH         272   PROGRAM*       18/01 E   18/02 L
        WIDX3          26   DAT.FMT        14/06 L   18/05 S   18/33     19/05 S   19/09
        WNRTN         275   PROGRAM*       18/06     18/09 L
        WRRTN         303   PROGRAM*       18/17     18/20 L
        WRTN          314   PROGRAM*       18/35     18/38 L
        WSET          261   PROGRAM*       17/29 L   17/43
        WTC=            0   EXTERNAL*      36/18
        XB4            25   DAT.FMT        14/08 D   20/03 S   20/23
        XPROC         345   PROGRAM*       20/01 E   20/02 L
        XPROC1        350   PROGRAM*       20/04     20/06     20/08 L
        XPROC2        354   PROGRAM*       20/10     20/13     20/17 L
        XPROC3        357   PROGRAM*       20/18     20/20     20/23 L
        XWORD          32   DAT.FMT        14/22 L   19/52 S   20/08     20/28 S
        ZERTEST       232   PROGRAM*       16/06     16/19 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  CED 
  
  
        AND            10                   8/36 L
        CED            55   PROGRAM*        7/18 L    8/55
        CED2           63   PROGRAM*        7/28      7/33 L
        CED3           64   PROGRAM*        7/21      7/38 L
        CED4           67   PROGRAM*        7/23      7/34      7/44      7/50 L
        COMMA           3                   8/31 L
        DSTAR          24                   8/48 L
        ELOPTBL        73   PROGRAM*        7/22      8/27 L
        EOS             4                   8/32 L
        EQ             17                   8/43 L
        EQU             5                   8/33 L
        FALSE          72   PROGRAM*        8/21 L
        GE             14                   8/40 L
        GT             15                   8/41 L
        LCONTBL        71   PROGRAM*        7/33      8/19 L
        LE             12                   8/38 L
        LP              6                   8/34 L
        LT             13                   8/39 L
1        ERPRO - PASS 1 ERROR PROCESSOR                               COMPASS 3.7-871.     24/05/02. 15.53.52.      PAGE    42
        SYMBOLIC REFERENCE TABLE.                                     CED 
  
        MINUS          20                   8/44 L
        NE             16                   8/42 L
        NOT            11                   8/37 L
        OR              7                   8/35 L
        PLUS           21                   8/45 L
        RP              2                   8/30 L
        SLASH          23                   8/47 L
        STAR           22                   8/46 L
        TRUE           71   PROGRAM*        8/20 L
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      173              IDENT FLY ME TO THE MOON
                        173                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       162 
                                        MASKS     LOCAL         162        11 
  
  
                                        ENTRY POINTS. 
  
                                        B=FLY            0+           TRANSIT          0+           MASKS          162+ 
                                        DIGMASK        162+           NODE2           53+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        SAVECHR   SPES      LEFTPAR   RANGE     NEGSET    XPROC     TSASI     SLASH 
                                        FINISH    DECIM     HCOUNTR   FERROR    NULLP     ONECNT    HSTRNGR 
                                        TCODE     WIDTH     SPESSET   UERROR    NUMBER    IERROR    RITEPAR 
  
  
  
  
                                                  IDENT FLY ME TO THE MOON                                       FLY         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  NOREF  CALLBIT                                                 FLY         4
                                                  NOREF  I                                                       FLY         5
                                                  NOREF  MPT                                                     FLY         6
                                                  NOREF  MSKCHBIT                                                FLY         7
                                                  NOREF  OTHER                                                   FLY         8
                                                  NOREF  SKIPBIT                                                 FLY         9
                                                  NOREF  TESTBIT                                                 FLY        10
                                                  NOREF  TESTV                                                   FLY        11
                                                  NOREF  VALID                                                   FLY        12
             0                           B=FLY    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     FLY        14
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     2
        --MACRO NODEFN-- MACRO TO DEFINE TRANSITION NODE MACRO
  
                                        LIST      OPSYN  NIL                                                     FLY        16
                                                  LIST   G,M,D,A                                                 FLY        17
                                        NODEFN    MACRO  NODE,Y,CODETYPE                                         FLY        18
                                         ^        MICRO  1,0,/NODEMS 1/                                          FLY        19
                                         [        MICRO  1,0,/NODEMS 0/                                          FLY        20
                                         =        MICRO  1,0,/NODECH 0,0/                                        FLY        21
                                         @        MICRO  1,0,/NODECH 1,1/                                        FLY        22
                                         <        MICRO  1,0,/NODECH 1,0/                                        FLY        23
                                         /        MICRO  1,0,/NODEGO/                                            FLY        24
                                                  MACRO  NODE,LBL,MICR,ROUTINE,PAR                               FLY        25
                                                  IFC    EQ,Y_LBL_Y_Y,1                                          FLY        26
                                                   ERR    MISSING LABEL                                          FLY        27
                                         LBL      BSS    0                                                       FLY        28
                                                  IFC    NE,Y_ROUTINE_Y_Y,1                                      FLY        29
                                                   CODE1  ROUTINE,(PAR)                                          FLY        30
                                         MIC      MICRO  1,0,Y"MICR"Y                                            FLY        31
                                         MPT      SET 1                                                          FLY        32
                                         OTHER    SET    0                                                       FLY        33
                                        BLUFF     DUP    127                                                     FLY        34
                                         VALID     SET    0                                                      FLY        35
                                                   BLANKS MIC,MPT,C                                              FLY        36
                                        STOP       IFC    EQ,Y"C"Y_Y                                             FLY        37
                                         VALID      SET    1                                                     FLY        38
                                                    STOPDUP                                                      FLY        39
                                        STOP       ELSE                                                          FLY        40
                                         MPT        SET    MPT+1                                                 FLY        41
                                         D          MICRO  1,0,"C"^[=@</"C"                                      FLY        42
                                        STOP        IFC    NE,Y"D"Y_^[@</Y                                       FLY        43
                                         C           MICEQU "C"                                                  FLY        44
                                         SKIPBIT     SET    0                                                    FLY        45
                                                     "C"                                                         FLY        46
                                         C           MICRO  MPT,1,Y"MIC"Y                                        FLY        47
                                         MPT         SET    MPT+1                                                FLY        48
                                                     IFC    EQ,Y"C"Y,Y,2                                         FLY        49
                                                      SKIPTO (:),MIC,MPT,C                                       FLY        50
                                         SKIPBIT      SET    1                                                   FLY        51
                                         VALID       SET    0                                                    FLY        52
                                        STOP         IFC    EQ,Y"C"Y_:_Y                                         FLY        53
                                         VALID        SET    1                                                   FLY        54
                                         NODENM       NAME   MIC,MPT,C                                           FLY        55
                                                      IFEQ   OTHER,1,1                                           FLY        56
                                         NODENM        MICRO  1,0, -"NODENM"                                     FLY        57
                                         CALLBIT      SET    0                                                   FLY        58
                                                      IFC    EQ,Y"C"Y,Y,5                                        FLY        59
                                         CALLBIT       SET    1                                                  FLY        60
                                         CALLNM        NAME   MIC,MPT,C                                          FLY        61
                                         PARAM         MICRO  1,1, 0                                             FLY        62
                                                       IFC    EQ,Y"C"Y(Y,1                                       FLY        63
                                         PARAM          SCANTO ),MIC,MPT,C                                       FLY        64
                                                      CODE                                                       FLY        65
                                        STOP       ENDIF                                                         FLY        66
                                                   IFEQ   VALID,0,1                                              FLY        67
                                                    STOPDUP                                                      FLY        68
                                        BLUFF     ENDD                                                           FLY        69
                                                  IFEQ   VALID,0,5                                               FLY        70
                                         C         MICRO  1,MPT,Y"MICR"Y                                         FLY        71
                                                   LIST   A                                                      FLY        72
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     3
        --MACRO NODEFN-- MACRO TO DEFINE TRANSITION NODE MACRO
  
                                                   ERR    ILLEGAL MICRO DEFINITION FOR THIS CALL TO NODE         FLY        73
                                        ,                 THE PORTION OF THE MICRO SCANNED FOLLOWS--             FLY        74
                                                   ERR   Y"C"Y                                                   FLY        75
                                        NODE      ENDM                                                           FLY        76
                                        NODECH    MACRO  T,ADDEND                                                FLY        77
                                         MSKCHBIT SET    0                                                       FLY        78
                                         TESTBIT  SET    T                                                       FLY        79
                                         VALID    SET    1                                                       FLY        80
                                         I        SET    MPT                                                     FLY        81
                                         MPT      SET    MPT+1                                                   FLY        82
                                         CH       SCANBK (,:),MIC,MPT,C                                          FLY        83
                                                  IFC    EQ,Y"C"Y_Y                                              FLY        84
                                         VALID     SET    0                                                      FLY        85
                                                  ELSE                                                           FLY        86
                                         D         MICRO  I,1,Y"MIC"Y                                            FLY        87
                                         CH        MICRO 1,0,Y"D""CH"Y                                           FLY        88
                                                   IFEQ   I+2,MPT,1                                              FLY        89
                                         CH         MICRO  1,0,Y_1R"CH"Y                                         FLY        90
                                         TESTV     MICRO  1,0,Y"CH"+ADDEND_Y                                     FLY        91
                                                  ENDIF                                                          FLY        92
                                         MPT      SET    MPT-1                                                   FLY        93
                                        NODECH    ENDM                                                           FLY        94
                                        NODEMS    MACRO  T                                                       FLY        95
                                         VALID    SET    1                                                       FLY        96
                                         MSKCHBIT SET    1                                                       FLY        97
                                         TESTBIT  SET    T                                                       FLY        98
                                         MPT      SET    MPT+TESTBIT                                             FLY        99
                                                  MASKC  MIC,MPT,C,TESTV                                         FLY       100
                                         TESTV    DECMIC TESTV                                                   FLY       101
                                                  IFC    EQ,Y"C"Y_Y,1                                            FLY       102
                                         VALID     SET    0                                                      FLY       103
                                        NODEMS    ENDM                                                           FLY       104
                                        NODEGO    MACRO                                                          FLY       105
                                                  IFEQ   OTHER,0,2                                               FLY       106
                                         OTHER     SET    1                                                      FLY       107
                                         VALID     SET    1                                                      FLY       108
                                         TESTV    MICRO  1,4,/177B/                                              FLY       109
                                         MSKCHBIT SET    0                                                       FLY       110
                                         TESTBIT  SET    1                                                       FLY       111
                                         SKIPBIT  SET    1                                                       FLY       112
                                                  SKIPTO (:),MIC,MPT,C                                           FLY       113
                                         MPT      SET    MPT-1                                                   FLY       114
                                        NODEGO    ENDM                                                           FLY       115
                                                                                                                 FLY       116
                                                  PURGMAC  CODE                                                  FLY       117
                                                                                                                 FLY       118
                                        GENCODE   IFC    EQ,/CODETYPE/CODE/                                      FLY       119
                                        CODE       MACRO                                                         FLY       120
                                                   LOCAL  BACK,FAIL                                              FLY       121
                                        CHARTEST   IFEQ   MSKCHBIT,0                                             FLY       122
                                                    SB3    X2-"TESTV"                                            FLY       123
                                                    IFEQ   TESTBIT,0,1                                           FLY       124
                                                     NZ     B3,FAIL                                              FLY       125
                                                    IFEQ   TESTBIT,1,1                                           FLY       126
                                                     PL     B3,FAIL                                              FLY       127
                                        CHARTEST   ELSE                                                          FLY       128
                                                    SA3    A0+"TESTV"                                            FLY       129
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     4
        --MACRO NODEFN-- MACRO TO DEFINE TRANSITION NODE MACRO
  
                                                    SB3    X2                                                    FLY       130
                                                    LX3    X3,B3                                                 FLY       131
                                                    IFEQ   TESTBIT,0,1                                           FLY       132
                                                     PL     X3,FAIL                                              FLY       133
                                                    IFEQ   TESTBIT,1,1                                           FLY       134
                                                     MI     X3,FAIL                                              FLY       135
                                        CHARTEST   ENDIF                                                         FLY       136
                                                   IFNE   SKIPBIT,1,1                                            FLY       137
                                                    PUTCH  X2,X3                                                 FLY       138
                                                   IFEQ   CALLBIT,1,4                                            FLY       139
                                                    SX3    "PARAM"                                               FLY       140
                                                    SB4    BACK                                                  FLY       141
                                                    JP     =X"CALLNM"                                            FLY       142
                                         BACK       BSS    0                                                     FLY       143
                                         D         MICRO  1,1,Y"NODENM"Y                                         FLY       144
                                                   IFC    EQ,Y"D"Y_Y,1                                           FLY       145
                                         NODENM     MICRO  2,0,Y"NODENM"Y                                        FLY       146
                                                   IFC    NE,Y"D"Y_Y,1                                           FLY       147
                                                    GETCH  X2                                                    FLY       148
                                                   ZR    "NODENM"                                                FLY       149
                                         FAIL      BSS    0                                                      FLY       150
                                        CODE       ENDM                                                          FLY       151
                                        CODE1      MACRO  ROUTINE,PAR                                            FLY       152
                                                   LOCAL  BACK                                                   FLY       153
                                                   SX3    PAR                                                    FLY       154
                                                   SB4    BACK                                                   FLY       155
                                                   ZR     ROUTINE                                                FLY       156
                                         BACK      BSS    0                                                      FLY       157
                                        CODE1      ENDM                                                          FLY       158
                                        GENCODE   ELSE                                                           FLY       159
                                        CODE1      MACRO  ROUTINE,PAR                                            FLY       160
                                                   VFD    1/1,29/0,12/PAR,18/ROUTINE                             FLY       161
                                        CODE1      ENDM                                                          FLY       162
                                        CODE       MACRO                                                         FLY       163
                                                   VFD    2/CALLBIT,1/SKIPBIT,1/TESTBIT,1/MSKCHBIT,7/"TESTV"     FLY       164
                                                   VFD    18/"NODENM"                                            FLY       165
                                                   IFEQ   CALLBIT,1,1                                            FLY       166
                                                    VFD    12/"PARAM",18/=X"CALLNM"                              FLY       167
                                        CODE       ENDM                                                          FLY       168
                                        GENCODE   ENDIF                                                          FLY       169
                                        BLANKS    MACRO  MIC,MPT,C                                               FLY       170
                                         MPT      SET    MPT-10                                                  FLY       171
                                                  DUP    900                                                     FLY       172
                                         MPT       SET    MPT+10                                                 FLY       173
                                         C         MICRO  MPT,10,Y"MIC"Y                                         FLY       174
                                                   IFC    NE,Y"C"Y          Y,1                                  FLY       175
                                                    STOPDUP                                                      FLY       176
                                                  ENDD                                                           FLY       177
                                         C        MICRO  MPT,5,Y"MIC"Y                                           FLY       178
                                                  IFC    EQ,Y"C"Y     Y,1                                        FLY       179
                                         MPT       SET    MPT+5                                                  FLY       180
                                         MPT      SET    MPT-1                                                   FLY       181
                                                  DUP    5                                                       FLY       182
                                         MPT       SET    MPT+1                                                  FLY       183
                                         C         MICRO  MPT,1,Y"MIC"Y                                          FLY       184
                                                   IFC    NE,Y"C"Y Y,1                                           FLY       185
                                                    STOPDUP                                                      FLY       186
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     5
        --MACRO NODEFN-- MACRO TO DEFINE TRANSITION NODE MACRO
  
                                                  ENDD                                                           FLY       187
                                        BLANKS    ENDM                                                           FLY       188
                                                  MACRO  MICEQU,RESULT,MIC                                       FLY       189
                                         RESULT   MICRO  1,0,Y"MIC"Y                                             FLY       190
                                        MICEQU    ENDM                                                           FLY       191
                                        NODEFN    ENDM                                                           FLY       192
                                        MASKS     MACRO  MASKS,Y,LEFTRITE                                        FLY       193
                                                  LOCAL  BORDER,C,I,NMASKS,OLD,POWER,VSET,VORDER,V1,V2,V3        FLY       194
                                         NMASKS   SET    0                                                       FLY       195
                                                  USE    MASKS                                                   FLY       196
                                        MASKS     BSS    0                                                       FLY       197
                                                  USE    *                                                       FLY       198
                                                  IFC    EQ,/LEFTRITE/RIGHT/                                     FLY       199
                                         VORDER    MICRO  1,0,/V3_V2_V1_V3/                                      FLY       200
                                         BORDER    MACRO  1,0,/0 1 2 3 4 5 6 7 8 9 10111213141516171819/         FLY       201
                                                  ELSE                                                           FLY       202
                                         VORDER    MICRO  1,0,/V1_V2_V3_V1/                                      FLY       203
                                         BORDER    MICRO  1,0,/191817161514131211109 8 7 6 5 4 3 2 1 0 /         FLY       204
                                                  ENDIF                                                          FLY       205
                                                  MACRO  MASKC,LBL,MIC,MPT,C,ORD                                 FLY       206
                                         V1       SET    0                                                       FLY       207
                                         V2       SET    0                                                       FLY       208
                                         V3       SET    0                                                       FLY       209
                                         C        MICRO  MPT,1,Y"MIC"Y                                           FLY       210
                                                  DUP    64                                                      FLY       211
                                         MPT       SET    MPT+1                                                  FLY       212
                                         I         SET    1R"C"/20                                               FLY       213
                                         VSET      MICRO  8*I+1,8,Y"VORDER"Y                                     FLY       214
                                         I         SET    1R"C"-I*20                                             FLY       215
                                         POWER     MICRO  2*I+1,2,Y"BORDER"Y                                     FLY       216
                                         "VSET"    SET    "VSET"+1S"POWER"                                       FLY       217
                                         C         MICRO  MPT,1,Y"MIC"Y                                          FLY       218
                                                   IFC    NE,Y"C"Y_Y,1                                           FLY       219
                                                    IFC    EQ,Y"C"Y_]_Y,1                                        FLY       220
                                                     STOPDUP                                                     FLY       221
                                                  ENDD                                                           FLY       222
                                         MPT      SET    MPT+1                                                   FLY       223
                                         I        MICRO  1,0, -1                                                 FLY       224
                                         OLD      SET    0                                                       FLY       225
                                                  DUP    NMASKS                                                  FLY       226
                                         I         DECMIC "I"+1                                                  FLY       227
                                                   IFEQ   MV1"I".,V1,4                                           FLY       228
                                                    IFEQ   MV2"I".,V2,3                                          FLY       229
                                                     IFEQ   MV3"I".,V3,2                                         FLY       230
                                                      STOPDUP                                                    FLY       231
                                         OLD          SET    1                                                   FLY       232
                                                  ENDD                                                           FLY       233
                                                  IFEQ   OLD,0                                                   FLY       234
                                                   USE    MASKS                                                  FLY       235
                                                   VFD    20/V1,20/V2,20/V3                                      FLY       236
                                                   USE    *                                                      FLY       237
                                         NMASKS    SET    NMASKS+1                                               FLY       238
                                         I         DECMIC NMASKS-1                                               FLY       239
                                         MV1"I".   SET    V1                                                     FLY       240
                                         MV2"I".   SET    V2                                                     FLY       241
                                         MV3"I".   SET    V3                                                     FLY       242
                                                  ENDIF                                                          FLY       243
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     6
        --MACRO NODEFN-- MACRO TO DEFINE TRANSITION NODE MACRO
  
                                                  IFC    NE,//ORD/,1                                             FLY       244
                                         ORD       SET    "I"                                                    FLY       245
                                                  IFC    NE,//LBL/,1                                             FLY       246
                                         LBL       EQU    MASKS+"I"                                              FLY       247
                                        MASKC     ENDM                                                           FLY       248
                                                  MACRO  MASK,LBL,PARAM                                          FLY       249
                                                  LOCAL  MIC,MPT,C                                               FLY       250
                                         MIC      MICRO  1,0,Y_PARAM_Y                                           FLY       251
                                         MPT      SET    2                                                       FLY       252
                                         LBL      MASKC  MIC,MPT,C                                               FLY       253
                                         MASK     ENDM                                                           FLY       254
                                        MASKS     ENDM                                                           FLY       255
           162                                    MASKS  MASKS,#,LEFT                                            FLY       256
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     7
        --MACRO SKIPTO--SKIP TO DELIMITER IN MICRO
  
                                        SKIPTO    MACRO  DELIM,S,M,D                                             FLY       258
                                                  DUP    -1                                                      FLY       259
                                        D         MICRO  M,1,#"S"#                                               FLY       260
                                        M         SET    M+1                                                     FLY       261
                                                  IFC    EQ,#"D"#_DELIM_#,1                                      FLY       262
                                                  STOPDUP                                                        FLY       263
                                                  IFC    EQ,#"D"##,2                                             FLY       264
                                                  STOPDUP                                                        FLY       265
                                        M         SET    M-1                                                     FLY       266
                                                  ENDD                                                           FLY       267
                                        SKIPTO    ENDM                                                           FLY       268
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     8
        --MACRO SCANTO--SCAN UNTIL DELIMITER IN MICRO 
  
                                                  MACRO  SCANTO,RESULT,DELIM,S,M,D                               FLY       270
                                                  LOCAL  I                                                       FLY       271
                                        RESULT    MICRO  1,0,                                                    FLY       272
                                        I         SET    M                                                       FLY       273
                                                  SKIPTO DELIM,S,I,D                                             FLY       274
                                        I         SET    I-M                                                     FLY       275
                                                  IFNE   I,0,1                                                   FLY       276
                                                  IFC    EQ,#"D"#_DELIM_#,1                                      FLY       277
                                        RESULT    MICRO  M,I-1,#"S"#                                             FLY       278
                                                  IFC    NE,#"D"#_DELIM_#,1                                      FLY       279
                                        RESULT    MICRO  M,I,#"S"#                                               FLY       280
                                        M         SET    M+I                                                     FLY       281
                                        SCANTO    ENDM                                                           FLY       282
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE     9
        --MACRO NAME--SCAN OFF NAME IN MICRO
  
                                                  MACRO  NAME,RESULT,S,M,D                                       FLY       284
                                        RESULT    MICRO  1,0,                                                    FLY       285
                                        D         MICRO  M,1,#"S"#                                               FLY       286
                                        M         SET    M+1                                                     FLY       287
                                                  IFC    NE,#"D"##                                               FLY       288
                                                  IFGE   1R"D",1RA                                               FLY       289
                                                  IFLE   1R"D",1RZ                                               FLY       290
                                                  DUP    8                                                       FLY       291
                                        RESULT    MICRO  1,0,#"RESULT""D"#                                       FLY       292
                                        D         MICRO  M,1,#"S"#                                               FLY       293
                                        M         SET    M+1                                                     FLY       294
                                                  IFC    EQ,#"D"##,2                                             FLY       295
                                        M         SET    M-1                                                     FLY       296
                                                  STOPDUP                                                        FLY       297
                                                  IFLT   1R"D",1RA,1                                             FLY       298
                                                  STOPDUP                                                        FLY       299
                                                  IFGT   1R"D",1R9,3                                             FLY       300
                                                  IFC    NE,#"D"#.#,2                                            FLY       301
                                                  IFC    NE,#"D"#$#,1                                            FLY       302
                                                  STOPDUP                                                        FLY       303
                                                  ENDD                                                           FLY       304
                                                  ENDIF                                                          FLY       305
                                        NAME      ENDM                                                           FLY       306
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    10
        --MACRO NUMBX--SCAN OFF NUMERIC EXPRESSION IN MICRO 
  
                                                  MACRO  NUMBX,RESULT,S,M,D                                      FLY       308
                                        RESULT    MICRO                                                          FLY       309
                                        D         MICRO  M,1,#"S"#                                               FLY       310
                                                  IFC    NE,#"D"##                                               FLY       311
                                        M         SET    M+1                                                     FLY       312
                                                  IFGE   1R"D",1RA                                               FLY       313
                                                  IFLE   1R"D",1R9                                               FLY       314
                                                  DUP    -1                                                      FLY       315
                                        RESULT    MICRO  1,0,#"RESULT""D"#                                       FLY       316
                                        D         MICRO  M,1,#"S"#                                               FLY       317
                                        M         SET    M+1                                                     FLY       318
                                                  IFC    EQ,#"D"##,2                                             FLY       319
                                        M         SET    M-1                                                     FLY       320
                                                  STOPDUP                                                        FLY       321
                                                  IFC    EQ,#"D"#,#,1                                            FLY       322
                                                  STOPDUP                                                        FLY       323
                                                  ENDD                                                           FLY       324
                                                  ENDIF                                                          FLY       325
                                        NUMBX     ENDM                                                           FLY       326
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    11
        --MACRO SCANBK--SCAN TO ANY OF A SET OF BREAKS IN MICRO 
  
                                                  MACRO  SCANBK,RESULT,BREAKS,STRING,SPT,DELIM                   FLY       328
                                                  LOCAL  CHK,I                                                   FLY       329
                                        RESULT    MICRO                                                          FLY       330
                                        I         SET    SPT-1                                                   FLY       331
                                                  DUP    -1                                                      FLY       332
                                        I         SET    I+1                                                     FLY       333
                                        DELIM     MICRO  I,1,#"STRING"#                                          FLY       334
                                                  IFC    NE,##"DELIM"#,4                                         FLY       335
                                        CHK       MICRO  1,0,"DELIM"BREAKS"DELIM"                                FLY       336
                                                  IFC    NE,#_BREAKS_#"CHK"#,1                                   FLY       337
                                                  STOPDUP                                                        FLY       338
                                                  IFEQ   1,0,2                                                   FLY       339
                                        I         SET    I-1                                                     FLY       340
                                                  STOPDUP                                                        FLY       341
                                                  ENDD                                                           FLY       342
                                        I         SET    I+1                                                     FLY       343
                                                  IFNE   I-1,SPT,1                                               FLY       344
                                        RESULT    MICRO  SPT,I-SPT-1,#"STRING"#                                  FLY       345
                                        SPT       SET    I                                                       FLY       346
                                        SCANBK    ENDM                                                           FLY       347
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    12
        MACROS TO LOAD + STORE CHARACTERS 
  
                                                 EXT       SAVECHR                                               FLY       349
                                   0 X  SAVECHAR EQU       SAVECHR                                               FLY       350
                                                 EXT       FINISH                                                FLY       351
                                        GETCH    MACRO     XN                   TO FETCH NEXT CHARACTER IN       FLY       352
                                                 LOCAL     LBL                  STRING   CHARACTERS PACKED       FLY       353
                                                 A_XN      X1,B2                10 PER WORD.  SHIFT TO RT JSTFY  FLY       354
                                                 B_XN      -X0*XN               MASK OUT ALL BUT RTMOST CHAR     FLY       355
                                                 GT        B2,B0,LBL            MORE CHARS IN WORD  GO TO LBL    FLY       356
                                                 SA1       A1-1                 WORD EMPTY. POINT TO NEXT WORD   FLY       357
                                                 SB2       60                   RESET SHIFT COUNT                FLY       358
                                        LBL      SB2       B2-6                 DECREMENT SHIFT CT FOR NEXT CHAR FLY       359
                                                 ENDM                                                            FLY       360
                                        PUTCH    MACRO     XN,XM                TO STORE AWAY CHARACTER STRING   FLY       361
                                                 LOCAL     LBL,M                PACKED 10 CHARACTERS PER WORD.   FLY       362
                                        M        MICRO     2,1, XM                                               FLY       363
                                                 BX6       XN                   OUTPUT STORAGE IS ONE CHARACTER  FLY       364
                                                 SA"M"     SAVECHAR             BEHIND, HOLDING MOST RECENT CHAR FLY       365
                                                 L_XM      XM,B7                IN LOC SAVECHAR.                 FLY       366
                                                 BX7       X7+XM                SHIFT OUTPUT WORD TO APPEND CHAR FLY       367
                                                 SB7       B7-6                 UPDATE SHIFT COUNT               FLY       368
                                                 SA6       A"M"                 STORE NEW SAVECHAR               FLY       369
                                                 PL        B7,LBL               WORD NOT FULL. GO TO LBL         FLY       370
                                                 SA7       A7-1                 STORE FULL WORD + UPDATE POINTER FLY       371
                                                 SB7       54                   RESET TO MAX SHIFT COUNT         FLY       372
                                                 MX7       0                    CLEAR OUT OUTPUT WORD            FLY       373
                                        LBL      BSS       0                    AND RETURN.                      FLY       374
                                                 ENDM                                                            FLY       375
                                                  ENTRY DIGMASK,TRANSIT,NODE2,MASKS                              FLY       376
           162  00000000077740000000     DIGMASK  MASK   [0123456789]                                            FLY       377
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    13
        TRANSITION DIAGRAM TABLE PROCESSOR
  
                                        *                                                                        FLY       379
                                        *           BIT POSITION DEFINITIONS FOR TRANSITION DIAGRAM TABLE        FLY       380
                                        *                  (BIT N REPRESENTS THE 2**NTH BIT)                     FLY       381
                                        *                                                                        FLY       382
                                  34     CALLPO   SET    28                CALL ROUTINE BIT POSITION             FLY       383
                                  33     SKIPCHPO SET    27                SKIP CHARACTER BIT POSITION           FLY       384
                                  32     TESTPO   SET    26                TEST IDENTIFIER BIT POSITION          FLY       385
                                  31     MSKCHPO  SET    25                MASK OR CHARACTER TEST BIT POSITION   FLY       386
                                  22     TESTVPO  SET    18                LOW ORDER BIT POSITION OF TEST VALUE  FLY       387
  
  
             0  7160000007 +             TRANSIT  SX6    TRANTCH           INITIAL ENTRY--SET SWITCH TO GET THE  FLY       389
                          5160000044 +            SA6    TSWITCHT            NEXT CHARACTER.                     FLY       390
             1  5140000044 +             TRETURNT SA4    TSWITCHT          FETCH SWITCH VALUE.                   FLY       391
                          63440                   SB4    X4                                                      FLY       392
             2  56330                    TCYCLET  SA3    B3                BEGIN PROCESSING OF NODE.             FLY       393
                     0323000006 +                 PL     X3,TRANT01        BRANCH IF A ROUTINE IS NOT TO BE      FLY       394
                               63530              SB5    X3                  CALLED, ELSE EXTRACT THE ADDRESS OF FLY       395
             3  20336                             LX3    60-12-18            THE ROUTINE AND POSITION THE        FLY       396
                     6133000001                   SB3    B3+1                PARAMETER (RIGHT JUSTIFIED WITH     FLY       397
                               21360              AX3    60-12               SIGN-EXTENSION) IN  X3  AND JUMP TO FLY       398
             4  76640                             SX6    B4                                                      FLY       399
                     5160000044 +                 SA6    TSWITCHT                                                FLY       400
             5  0255000000                        JP     B5                  THE ROUTINE.                        FLY       401
             6  0244000000               TRANT01  JP     B4                *SWITCH* (EITHER TRANTCH OR TRANTGO)  FLY       402
             7  23221                    TRANTCH  GETCH  X2                PLACE THE NEXT INPUT CHAR INTO X2.    FLY       403
            12  63420                    TRANTGO  SB4    X2                PUT CHARACTER INTO B4 FOR LATER TEST. FLY       404
                     6150000036                   SB5    30                OBTAIN THE NEXT NODE HALF-WORD        FLY       405
                               76330              SX3    B3                  DESCRIPTOR, RIGHT-JUSTIFIED IN X3.  FLY       406
            13  67303                             SB3    -B3                 UPDATE THE POINTER IN  B3.  (IF  B3 FLY       407
                     0323000015 +                 PL     X3,TRANT02          IS NEGATIVE THEN USE RIGHT HALF OF  FLY       408
                               14333              BX3    -X3                 WORD AT ADDRESS  (-B3), ELSE USE    FLY       409
            14  66500                             SB5    B0                  THE LEFT HALF OF THE WORD AT        FLY       410
                     6133000001                   SB3    B3+1                ADDRESS (B3)).                      FLY       411
            15  53330                    TRANT02  SA3    X3                                                      FLY       412
                     22353                        LX3    X3,B5                                                   FLY       413
                          22403                   LX4    X3                REPLICATE THE DESCRIPTOR SEVERAL      FLY       414
                               10533              BX5    X3                  TIMES AND POSITION THE COPIES OF    FLY       415
            16  20552                             LX5    59-TESTVPO+1        THE DESCRIPTOR WITH THE SIGNIFICANT FLY       416
                     43665                        MX6    60-7                BITS AT BIT 59 FOR SIGN BIT TESTS.  FLY       417
                          15656                   BX6    -X6*X5              ALSO EXTRACT THE TEST VALUE AND     FLY       418
                               20442              LX4    59-MSKCHPO          PLACE IT IN  B5.                    FLY       419
            17  63560                             SB5    X6                                                      FLY       420
                     20561                        LX5    TESTVPO-1-CALLPO                                        FLY       421
                          10633                   BX6    X3                                                      FLY       422
                               20641              LX6    59-TESTPO                                               FLY       423
            20  0334000042 +                      NG     X4,TRANT07        BRANCH IF A MASK TEST, ELSE A CHAR    FLY       424
                          0336000025 +            NG     X6,TRANT03          TEST--BRANCH IF A LESS-THAN TEST.   FLY       425
            21  20673                             LX6    TESTPO-SKIPCHPO     NO, POSITION THE SKIP CHARACTER BIT FLY       426
                     0445000026 +                 EQ     B4,B5,TRANT.T       AND BRANCH IF  CHAR=TEST VALUE      FLY       427
            22  0325000012 +             TRANT.F  PL     X5,TRANTGO        BRANCH FAILED--BRANCH IF NO ROUTINE   FLY       428
                          67303                   SB3    -B3                 INFORMATION EXPECTED (IF SO SKIP    FLY       429
            23  0730000012 +                      NG     B3,TRANTGO          THE NEXT HALF-WORD WHICH CONTAINS   FLY       430
                          6133000001              SB3    B3+1                THE INFORMATION AND BRANCH TO       FLY       431
            24  0400000012 +                      ZR     TRANTGO           TRANTGO  TO CONTINUE PROCESSING).     FLY       432
            25  0645000022 +             TRANT03  GE     B4,B5,TRANT.F     IF  CHAR\TEST VALUE  GO TO TRANT.F    FLY       433
                          20673                   LX6    TESTPO-SKIPCHPO   POSITION SKIP-CHARACTER BIT.          FLY       434
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    14
        TRANSITION DIAGRAM TABLE PROCESSOR
  
            26  76430                    TRANT.T  SX4    B3                BRANCH SUCCEEDED--SAVE CURRENT NODE   FLY       435
                     63330                        SB3    X3                  POINTER AND SET NEW NODE POINTER.   FLY       436
                          0336000033 +            NG     X6,TRANT04          BRANCH IF CHARACTER TO BE SKIPPED,  FLY       437
            27  10622                             PUTCH X2,X3                ELSE PUT AWAY THE CHARACTER.        FLY       438
            33  6140000007 +             TRANT04  SB4    TRANTCH             SET THE SWITCH (SEE TRANT01) TO     FLY       439
                          0630000035 +            PL     B3,TRANT05          FETCH THE NEXT INPUT CHARACTER      FLY       440
            34  6140000012 +                      SB4    TRANTGO             UNLESS THIS IS AN -OTHER- BRANCH,   FLY       441
                          67303                   SB3    -B3                 (IE THE CURRENT CHAR IS TO BE USED) FLY       442
            35  0325000002 +             TRANT05  PL     X5,TCYCLET          RETURN TO PROCESS NEXT NODE UNLESS  FLY       443
                          6150000036              SB5    30                  A ROUTINE IS TO BE CALLED, IN WHICH FLY       444
            36  0324000037 +                      PL     X4,TRANT06          CASE FETCH THE NEXT HALFWORD AFTER  FLY       445
                          14444                   BX4    -X4                 THE SUCCESSFUL BRANCH AND EXTRACT   FLY       446
                               66500              SB5    B0                  THE ADDRESS OF THE ROUTINE TO BE    FLY       447
            37  53340                    TRANT06  SA3    X4                  CALLED AND PUT IT INTO  B5.         FLY       448
                     22353                        LX3    X3,B5               POSITION THE 12-BIT PARAMETER IN    FLY       449
                          63530                   SB5    X3                  X3  (RIGHT-JUSTIFIED WITH SIGN      FLY       450
                               20336              LX3    60-12-18            EXTENSION) AND JUMP TO THE ROUTINE  FLY       451
            40  21360                             AX3    60-12               AFTER SAVING THE SWITCH VALUE.      FLY       452
                     76640                        SX6    B4                                                      FLY       453
                          5160000044 +            SA6    TSWITCHT                                                FLY       454
            41  6140000001 +                      SB4    TRETURNT            SET RETURN ADDRESS.                 FLY       455
                          0255000000              JP     B5                                                      FLY       456
            42  54405                    TRANT07  SA4    A0+B5             MASK TEST--LOAD THE MASK AND SHIFT    FLY       457
                     22444                        LX4    X4,B4               THE BIT CORRESPONDING TO THE CHAR   FLY       458
                          13446                   BX4    X4-X6               INTO THE SIGN BIT (COMPLEMENT THE   FLY       459
                               20673              LX6    TESTPO-SKIPCHPO     BIT IF A NOT-PRESENT TEST.          FLY       460
            43  0334000026 +                      NG     X4,TRANT.T          BRANCH TO  TRANT.T  IF THE TEST IS  FLY       461
                          0400000022 +            ZR     TRANT.F             SUCCESSFUL, ELSO GO TO  TRANT.F     FLY       462
  
  
                                        *                                                                        FLY       464
                                        *                STORAGE DEFINITION LOCAL TO  TRANSIT                    FLY       465
                                        *                                                                        FLY       466
            44                     1     TSWITCHT BSS    1                 STORAGE FOR SWITCH USED AT  TRANT01   FLY       467
                                                                             (VALUE EITHER TRANTCH OR TRANTGO)   FLY       468
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    15
        MICRO DEFINITIONS FOR FORMAT TRANSITION DIAGRAM 
  
                                         N1      MICRO  1,0,#        = ,NOPACK:NODE1                             FLY       470
                                        ,                            =,:NODE2                                    FLY       471
                                        ,                            =/:NODE2,SLASH(1)                           FLY       472
                                        ,                            =):NODE2,RITEPAR(1)                         FLY       473
                                        ,                            [*"]:NODE2,HSTRNGR(1)                       FLY       474
                                        ,                            =T:NODE9,TSASI                              FLY       475
                                        ,                            /ELSE:NODE2,IERROR(1)                     # FLY       476
                                         N2      MICRO  1,0,#        /ELSE:NODE2P,ONECNT                       # FLY       477
                                         N2P     MICRO  1,0,#        [ ,],NOPACK:NODE2P                          FLY       478
                                        ,                            =/:NODE2,SLASH(0)                           FLY       479
                                        ,                            =X:NODE2,XPROC(0)  =):NODE2,RITEPAR(0)      FLY       480
                                        ,                            [0123456789=]:NODE3,NUMBER(0)               FLY       481
                                        ,                            =T:NODE9,TSASI                              FLY       482
                                        ,                            =P:NODE12,NULLP                             FLY       483
                                        ,                            =-:NODE10,NEGSET  =+:NODE10,UERROR(21)      FLY       484
                                        ,                            [*"]:NODE2,HSTRNGR(0)                       FLY       485
                                        ,                            =H:FATAL,FERROR(40) /ELSE:NODE3 #           FLY       486
                                         N3      MICRO  1,0,#        =P:NODE12,RANGE(-1)                         FLY       487
                                        ,                            =X:NODE2,XPROC(1)                           FLY       488
                                        ,                            /ELSE:NODE4,RANGE(0)                      # FLY       489
                                         N4       MICRO  1,0,#       [DG]:NODE5,SPESSET(-3)                      FLY       490
                                        ,                            =E:NODE5,SPESSET(-1)                        FLY       491
                                        ,                            =F:NODE5                                    FLY       492
                                        ,                            [AL]:NODE8  [IO]:NODE8,SPESSET(1)           FLY       493
                                        ,                            =V:NODE4A,SPESSET(3)  [RZ]:NODE8,UERROR(22) FLY       494
                                        ,                            =H:NODE2,HCOUNTR                            FLY       496
                                        ,                            =(:NODE2,LEFTPAR                            FLY       497
                                        ,                            /ELSE:FATAL,FERROR(31)                    # FLY       498
                                         N4A      MICRO  1,0,#       = ,NOPACK:NODE4A                            FLY       499
                                        ,                            [0123456789=]:NODE4B,WIDTH(1)               FCC1300X   49
                                        ,                            /ELSE:NODE2                               # FLY       501
                                         N4B      MICRO  1,0,#       = ,NOPACK:NODE4B                            FCC1300X   50
                                        ,                            =.:NODE4C                                   FCC1300X   51
                                        ,                            /ELSE:NODE1                               # FCC1300X   52
                                         N4C      MICRO  1,0,#       = ,NOPACK:NODE4C                            FCC1300X   53
                                        ,                            [0123456789=]:NODE7A,DECIM(0)               FCC1300X   54
                                        ,                            /ELSE:NODE1,IERROR(6)                     # FCC1300X   55
                                         N5      MICRO  1,0,#        = ,NOPACK:NODE5                             FLY       502
                                        ,                            [0123456789=]:NODE6,WIDTH(0)                FLY       503
                                        ,                            /ELSE:FATAL,FERROR(32)                    # FLY       504
                                         N6      MICRO  1,0,#        =.:NODE7                                    FLY       505
                                        ,                            /ELSE:NODE1,IERROR(6)                     # FLY       506
                                         N7      MICRO  1,0,#        = ,NOPACK:NODE7                             FLY       507
                                        ,                            [0123456789=]:NODE7A,DECIM(-1)              FLY       508
                                        ,                            /ELSE:NODE1,IERROR(6)                     # FCC1300X   56
                                         #T       IFNE   TEST,0                                                  FCC1300X   57
                                         N7A      MICRO  1,0,#       = ,NOPACK:NODE7A                            FCCT003     4
                                        ,                            [DET]:NODE1,SPES(1)                         FCCT003     5
                                        ,                            /ELSE:NODE1                               # FCCT003     6
                                         #T       ELSE                                                           FCCT003     7
                                         N7A      MICRO  1,0,#       = ,NOPACK:NODE7A                            FLY       510
                                        ,                            [DE]:NODE1,SPES(1)                          FLY       511
                                        ,                            /ELSE:NODE1                               # FLY       512
                                         #T       ENDIF                                                          FCCT003     8
                                         N8      MICRO  1,0,#        = ,NOPACK:NODE8                             FLY       513
                                        ,                            [0123456789=]:NODE8A,WIDTH(1)               FLY       514
                                        ,                            /ELSE:FATAL,FERROR(33)                    # FLY       515
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    16
        MICRO DEFINITIONS FOR FORMAT TRANSITION DIAGRAM 
  
                                         N8A      MICRO  1,0,#       =.:NODE1,SPES(0)                            FLY       516
                                        ,                            /ELSE:NODE1                               # FLY       517
                                         N9      MICRO  1,0,#        = ,NOPACK:NODE9                             FLY       518
                                        ,                            [0123456789=]:NODE1,TCODE                   FLY       519
                                        ,                            /ELSE:FATAL,FERROR(34)                    # FLY       520
                                         N10     MICRO  1,0,#        = ,NOPACK:NODE10                            FLY       521
                                        ,                            =P:NODE12,NULLP                             FLY       522
                                        ,                            =X:NODE2,XPROC(0)                           FLY       523
                                        ,                            =V:NODE2,UERROR(22)                         FLY       524
                                        ,                            [0123456789=]:NODE11,NUMBER(0)              FLY       525
                                        ,                            /ELSE:FATAL,FERROR(35)                    # FLY       526
                                         N11      MICRO  1,0,#       =P:NODE12,RANGE(-1)                         FLY       527
                                        ,                            =X:NODE2,XPROC(1)                           FLY       528
                                        ,                            =V:NODE2,UERROR(22)                         FLY       529
                                        ,                            /ELSE:FATAL,FERROR(36)                    # FLY       530
                                         N12     MICRO  1,0,#        = ,NOPACK:NODE12                            FLY       531
                                        ,                            [DG]:NODE5,SPESSET(-3)                      FLY       532
                                        ,                            =E:NODE5,SPESSET(-1)                        FLY       533
                                        ,                            =V:NODE5,SPESSET(3)                         FLY       534
                                        ,                            =F:NODE5                                    FLY       535
                                        ,                            [0123456789=]:NODE13,NUMBER(0)              FLY       536
                                        ,                            /ELSE:NODE2,UERROR(23)                    # FLY       537
                                         N13      MICRO  1,0,#       [DG]:NODE14,SPESSET(-3)                     FLY       538
                                        ,                            =E:NODE14,SPESSET(-1)                       FLY       539
                                        ,                            =F:NODE14                                   FLY       540
                                        ,                            =V:NODE5,SPESSET(3)                         FLY       541
                                        ,                            /ELSE:NODE3,UERROR(23)                    # FLY       542
                                         N14     MICRO  1,0,#        /ELSE:NODE5,RANGE(0)                      # FLY       543
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    17
        TABLE GENERATING MACRO CALLS FOR TRANSITION DIAGRAM 
  
                                                  NODEFN NODE,#                                                  FLY       545
            45                           NODE1    NODE   N1                                                      FLY       546
            53                           NODE2    NODE   N2                                                      FLY       547
            54                           NODE2P   NODE   N2P                                                     FLY       548
            67                           NODE3    NODE   N3                                                      FLY       549
            72                           NODE4    NODE   N4                                                      FLY       550
           103                           NODE4A   NODE   N4A                                                     FLY       551
           105                           NODE4B   NODE   N4B                                                     FCC1300X   58
           107                           NODE4C   NODE   N4C                                                     FCC1300X   59
           112                           NODE5    NODE   N5                                                      FLY       552
           115                           NODE6    NODE   N6                                                      FLY       553
           117                           NODE7    NODE   N7                                                      FLY       554
           122                           NODE7A   NODE   N7A                                                     FLY       555
           124                           NODE8    NODE   N8                                                      FLY       556
           127                           NODE8A   NODE   N8A                                                     FLY       557
           131                           NODE9    NODE   N9                                                      FLY       558
           134                           NODE10   NODE   N10                                                     FLY       559
           142                           NODE11   NODE   N11                                                     FLY       560
           146                           NODE12   NODE   N12                                                     FLY       561
           154                           NODE13   NODE   N13                                                     FLY       562
           161                           NODE14   NODE   N14                                                     FLY       563
           162                           FATAL    BSS    0                                                       FLY       564
  
  
  
  
  
           173                                    END                                                            FLY       566
  
                             67200B CM  STORAGE USED            18999 STATEMENTS      729 SYMBOLS      000158 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           13.967 SECONDS         259 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        CALLPO         34                  13/05 D   13/44
        DECIM           0   EXTERNAL*      17/09     17/12
        DIGMASK       162   PROGRAM*       12/28 E   12/29 D
        FATAL         162   PROGRAM*       17/04     17/06     17/10     17/14     17/16     17/17     17/18     17/22 L
        FERROR          0   EXTERNAL*      17/04     17/06     17/10     17/14     17/16     17/17     17/18
        FINISH          0   EXTERNAL*      12/03 X
        HCOUNTR         0   EXTERNAL*      17/06
        HSTRNGR         0   EXTERNAL*      17/02     17/04
        IERROR          0   EXTERNAL*      17/02     17/09     17/11     17/12
        LEFTPAR         0   EXTERNAL*      17/06
        MASKS         162   PROGRAM*        6/13 L   12/28 E   12/29
        MSKCHPO        31                  13/08 D   13/42
        MV10.           0                  12/29 D
        MV11.           0                  17/02 D
        MV12.           0                  17/04 D
        MV13.           0                  17/04 D
        MV14.      110000                  17/06 D
        MV15.     1000200                  17/06 D
        MV16.        2020                  17/06 D
        MV17.           2                  17/06 D
        MV18.      140000                  17/13 D
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        MV20.       17770                  12/29 D
        MV21.           1                  17/02 D
        MV22.           0                  17/04 D
        MV23.       17770                  17/04 D
        MV24.           0                  17/06 D
        MV25.           0                  17/06 D
        MV26.           0                  17/06 D
        MV27.       20000                  17/06 D
        MV28.           0                  17/13 D
        MV30.           0                  12/29 D
        MV31.         200                  17/02 D
        MV32.       60000                  17/04 D
        MV33.      100000                  17/04 D
        MV34.           0                  17/06 D
        MV35.           0                  17/06 D
        MV36.           0                  17/06 D
        MV37.           0                  17/06 D
        MV38.           0                  17/13 D
        NEGSET          0   EXTERNAL*      17/04
        NODE1          45   PROGRAM*       17/02 L   17/08     17/11     17/13     17/15     17/16
                                           17/02     17/09     17/12     17/13     17/15
        NODE10        134   PROGRAM*       17/04     17/04     17/17 L   17/17
        NODE11        142   PROGRAM*       17/17     17/18 L
        NODE12        146   PROGRAM*       17/04     17/05     17/17     17/18     17/19 L   17/19
        NODE13        154   PROGRAM*       17/19     17/20 L
        NODE14        161   PROGRAM*       17/20     17/20     17/20     17/21 L
        NODE2          53   PROGRAM*       12/28 E   17/02     17/03 L   17/04     17/06     17/17     17/18
                                           17/02     17/02     17/04     17/04     17/06     17/17     17/19
                                           17/02     17/02     17/04     17/05     17/07     17/18
        NODE2P         54   PROGRAM*       17/03     17/04 L   17/04
        NODE3          67   PROGRAM*       17/04     17/04     17/05 L   17/20
        NODE4          72   PROGRAM*       17/05     17/06 L
        NODE4A        103   PROGRAM*       17/06     17/07 L   17/07
        NODE4B        105   PROGRAM*       17/07     17/08 L   17/08
        NODE4C        107   PROGRAM*       17/08     17/09 L   17/09
        NODE5         112   PROGRAM*       17/06     17/06     17/10     17/19     17/19     17/21
                                           17/06     17/10 L   17/19     17/19     17/20
        NODE6         115   PROGRAM*       17/10     17/11 L
        NODE7         117   PROGRAM*       17/11     17/12 L   17/12
        NODE7A        122   PROGRAM*       17/09     17/12     17/13 L   17/13
        NODE8         124   PROGRAM*       17/06     17/06     17/06     17/14 L   17/14
        NODE8A        127   PROGRAM*       17/14     17/15 L
        NODE9         131   PROGRAM*       17/02     17/04     17/16 L   17/16
        NULLP           0   EXTERNAL*      17/04     17/17
        NUMBER          0   EXTERNAL*      17/04     17/17     17/19
        ONECNT          0   EXTERNAL*      17/03
        RANGE           0   EXTERNAL*      17/05     17/05     17/18     17/21
        RITEPAR         0   EXTERNAL*      17/02     17/04
        SAVECHAR        0   EXTERNAL*      12/02 D   14/04
        SAVECHR         0   EXTERNAL*      12/01 X   12/02
        SKIPCHPO       33                  13/06 D   13/49     13/57     14/26
        SLASH           0   EXTERNAL*      17/02     17/04
        SPES            0   EXTERNAL*      17/13     17/15
        SPESSET         0   EXTERNAL*      17/06     17/06     17/19     17/19     17/20
                                           17/06     17/06     17/19     17/20     17/20
        TCODE           0   EXTERNAL*      17/16
        TCYCLET         2   PROGRAM*       13/16 L   14/09
1       TRANSITION DIAGRAM ORIENTED PROCESSING                        COMPASS 3.7-871.     24/05/02. 15.53.54.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        TEST            0   FTNTEXT        15/46 F
        TESTPO         32                  13/07 D   13/46     13/49     13/57     14/26
        TESTVPO        22                  13/09 D   13/39     13/44
        TRANSIT         0   PROGRAM*       12/28 E   13/12 L
        TRANTCH         7   PROGRAM*       13/12     13/26 L   14/05
        TRANTGO        12   PROGRAM*       13/27 L   13/51     13/53     13/55     14/07
        TRANT01         6   PROGRAM*       13/17     13/25 L
        TRANT02        15   PROGRAM*       13/31     13/35 L
        TRANT03        25   PROGRAM*       13/48     13/56 L
        TRANT04        33   PROGRAM*       14/03     14/05 L
        TRANT05        35   PROGRAM*       14/06     14/09 L
        TRANT06        37   PROGRAM*       14/11     14/14 L
        TRANT07        42   PROGRAM*       13/47     14/23 L
        TRANT.F        22   PROGRAM*       13/51 L   13/56     14/28
        TRANT.T        26   PROGRAM*       13/50     14/01 L   14/27
        TRETURNT        1   PROGRAM*       13/14 L   14/21
        TSASI           0   EXTERNAL*      17/02     17/04
        TSWITCHT       44   PROGRAM*       13/13 S   13/14     13/23 S   14/20 S   14/34 L
        UERROR          0   EXTERNAL*      17/04     17/06     17/17     17/18     17/19     17/20
        WIDTH           0   EXTERNAL*      17/07     17/10     17/14
        XPROC           0   EXTERNAL*      17/04     17/05     17/17     17/18
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3043              IDENT  LISTIO 
                       3043                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      3026 
                                        LITERALS* LOCAL        3026        15 
                                        STSORD    COMMON          0         1 
                                        MACBUF    COMMON          0        14 
  
  
                                        ENTRY POINTS. 
  
                                        B=LSTIO          0+           PARCNT          10+           PRINT         1011+ 
                                        DOITX         1521+           TYPEFG          11+           READ          1054+ 
                                        DONEX         2626+           LDFLAG          12+           WRITE         1065+ 
                                        IXFNCL           0+           BIO             13+           BUFIN         1130+ 
                                        APLRST           1+           CPLXC           14+           BUFOUT        1134+ 
                                        BLEXP            2+           CRFLAG         101+           DEC           1340+ 
                                        HOLCON           3+           CNVT           223+           ENC           1344+ 
                                        INDFG            4+           ENDFILE        737+           WWC           2042+ 
                                        IOEXP            5+           REW            743+           IARC          2657+ 
                                        IONAME           6+           BKSP           747+ 
                                        ITEMCT           7+           PUNCH          776+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        DOCALL    IXFN      PSYM      NCA       O.NML     ADDWD     WRM       FMAC
                                        DOIT      CONVERT   CONDEC    SAVDAN    L.NML     Z.IOLST   STLTAB    SVARG 
                                        DONE      ERPRO     F.LFN     ST.       ALLOC     N.GL      CDD       WTC=
                                        DODEF     PH2RETN   DATA.     O.IOLST   RL2TS     OPT2      CFO       F.CMPS
                                        DOGOOF    RSELECT   DIRECT    KSSW      CONST     WTW=      SYMBOL    OUTUSE
                                        INTVAR    LABCON    IOAPLN    NTYPE     CFCD      F.RLST    IAF       UDATA.
                                        ERPROI    VTYPE     L.IOLST   RSSW      WLABM     ASAER     ADDREF
  
  
  
  
                                                  IDENT  LISTIO                                                  LISTIO      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
  
  
  
                                        **        LISTIO - LIST DIRECTED I/O STATEMENT PROCESSOR.                LISTIO      6
  
  
  
             0                           B=LSTIO  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     LISTIO      8
                                                  ENTRY  DOITX,DONEX                                             LISTIO      9
             0  00000000000000000000     IXFNCL   ENTRY.                                                         LISTIO     10
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     2
  
  
                                                                                                                 LISTIO     11
                                                  EXT    DOCALL,DOIT,DONE,DODEF,DOGOOF,INTVAR,ERPROI             LISTIO     12
                                                  EXT    IXFN,CONVERT,ERPRO,PH2RETN,RSELECT                      LISTIO     13
                                                  EXT    LABCON,VTYPE,PSYM,CONDEC,F.LFN                          LISTIO     14
                                                  EXT    DATA.,DIRECT,IOAPLN,L.IOLST,NCA,SAVDAN,ST.              LISTIO     15
                                                  EXT    O.IOLST                                                 LISTIO     16
                                                  EXT    KSSW,NTYPE,RSSW                                         LISTIO     17
                                                  TABLES NML                                                     LISTIO     18
                                                                                                                 LISTIO     19
                                  12     SYM1     EQU    12B                                                     LISTIO     20
                                  17     DIM1     EQU    17B                                                     LISTIO     21
                                  32     SELIST   EQU    32B                                                     LISTIO     22
                                  37     CDCNT    EQU    37B                                                     LISTIO     23
                                  56     PROGRAM  EQU    56B               PROGRAM/SUBPROGRAM FLAG               LISTIO     24
                                  64     NRLN     EQU    64B                                                     LISTIO     25
                                                                                                                 LISTIO     26
                                                  USE    /STSORD/          ST. STORE ORDINAL                     LISTIO     27
             0                     1     STSORD   BSS    1                                                       LISTIO     28
                                                  USE    *                                                       LISTIO     29
                                                                                                                 LISTIO     30
             1  00000000000000000000     APLRST   ENTRY.                                                         LISTIO     31
             2  00000000000000000000     BLEXP    ENTRY.                                                         LISTIO     32
             3  00000000000000000000     HOLCON   ENTRY.                                                         LISTIO     33
             4  00000000000000000000     INDFG    ENTRY.                                                         LISTIO     34
             5  00000000000000000000     IOEXP    ENTRY. 0           AP. FORMAT, 24/P1,18/CA,18/IH               LISTIO     35
             6  00000000000000000000     IONAME   ENTRY.                                                         LISTIO     36
             7  00000000000000000000     ITEMCT   ENTRY.                                                         LISTIO     37
            10  00000000000000000000     PARCNT   ENTRY.                                                         LISTIO     38
            11  00000000000000000000     TYPEFG   ENTRY.                                                         LISTIO     39
            12  00000000000000000000     LDFLAG   ENTRY.             LIST-DIRECTED-I/O FLAG                      LISTIO     40
            13  00000000000000000000     BIO      ENTRY.                   BUFFER I/O FLAG                       LISTIO     41
            14  00000000000000000000     CPLXC    ENTRY.             FLAGS CPLX CONST IN I/O LIST                FCC0787   136
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     3
  
  
                                  22     E.CUL    EQU    18                CONFLICTING USE OF A NAME             LISTIO     43
                                  15     E.DO13   EQU    13                                                      LISTIO     44
                                  32     E.BUN    EQU    26                BAD UNIT NUMBER                       LISTIO     45
                                 111     E.IOSE   EQU    73                I/O STMT SYNTAX ERROR                 LISTIO     46
                                 112     E.BFN    EQU    74                FORMAT NUMBER SYNTAX ERROR            LISTIO     47
                                 115     E.LC     EQU    77                BAD SPEC FOR LINE CONTROL             FEAT155B   34
                                 144     E.IONASA EQU    100               NON USAS I/O STMT                     LISTIO     49
                                 153     E.EDC    EQU    107               CHAR COUNT ERROR IN EN/DECODE STMT    LISTIO     50
                                 323     E.IOEXP  EQU    211               I/O EXPRESSIONS ARE NON ANSI          LISTIO     51
                                 324     E.BIO    EQU    212               BUFFER I/O BETWEEN SCM AND LCM        LISTIO     52
                                 464     E.BIO1   EQU    308               INFO FWA AND LWA ERROR IN BUFFER I/O  LISTIO     54
                                 325     E.PIE    EQU    213               PARITY NUMBER MUST BE 0 OR 1          LISTIO     56
                                 337     E.FNASA  EQU    223               FORMAT SPEC IS NON USAS               LISTIO     57
                                 465     E.IOND   EQU    309         I/O FILE NOT DEFINED                        FCC1670X    7
                                 347     E.UNNIR  EQU    231               UNIT NUMBER NOT BETWEEN 1 AND 99      LISTIO     58
                                   4     DO4      EQU    4                 DO CONTROL VARIABLE MUST B SIMP INTGR LISTIO     59
                                   7     DO7      EQU    7                 DO PARM MUST BE INT CONST OR VARIABLE LISTIO     60
                                 113     LISTIOC  EQU    75                ARRAY REFERENCE OUTSIDE DIM BIUNDS    LISTIO     61
                                 210     ARTH136  EQU    136               VARIABLE FOLLOWED BY  (               LISTIO     62
                                 235     ARTH157  EQU    157               ARRAY REFERENCED WITH FEWER SUBSCRPTS LISTIO     63
                                 303     ARTH195  EQU    195               TOO MANY SUBSCRIPTS IN ARRAY REFEREN  LISTIO     64
                                 221     ARTH145  EQU    145               NO MATCHING RIGHT PARENTHESIS         LISTIO     65
                                 507     E.PIL    EQU    327         ILLEGAL SYNTAX IN IMPLIED DO SPEC           FCC2285    10
                                                                                                                 LISTIO     66
            15  34555555555555555555     CONLOC   DIS    1,1                                                     LISTIO     67
            16  20001000000001000015 +   CON1     VFD    12/2000B,3/1,17/0,10/1,18/CONLOC                        LISTIO     68
            17  20210000000000000006     PLUS     VFD    12/2021B,48/6     + SIGN IN ELIST FOR MACRO IN COLAPR7  LISTIO     69
  
  
                                        *         EQU"S FOR THE RLIST MACROS TO CALL THE EXECUTION TIME I/O      LISTIO     71
                                        *         ROUTINES                                                       LISTIO     72
                                                                                                                 LISTIO     73
                                         PIO      RMEQU  12B         I/O USE/DEF MACRO                           LISTIO     74
                                         M.SXIT   RMEQU  6           IXFN SET                                    LISTIO     75
                                  35     PIOMAX   EQU    29D         MAX NO. OF PARAMS IN PIO MACRO              LISTIO     76
                                         BEFCALL  RMEQU  121B        BASIC EXT FUNC CALL MACRO ORDINAL           LISTIO     77
                                         GEFWOTR  RMEQU  123B        EXT CALL WITHOUT TRACEBACK MACRO ORDINAL    LISTIO     78
                                         GEFMC    RMEQU  124B        GENERAL EXT FUNC CALL MACRO ORDINAL         LISTIO     79
                                         STAPL    RMEQU  127B        STORE TO APLIST MACRO ORDINAL               LISTIO     80
                                         M.IOAPL  RMEQU  343B        I/O APLIST COMBINER                         LISTIO     81
                                         SSORI    RMEQU              SET, SHIFT OR                               LISTIO     82
                                         MSORI    RMEQU              MASK-SHIFT-OR MACRO ORDINAL                 LISTIO     83
                                         M.V1     RMEQU              BASE OF PRODUCT DIMENSIONS R-MACROS         LISTIO     84
                                         M.IOLWC  RMEQU  354B        BASE OF COLLAPSED I/O LIST WORD COUNT MACRO LISTIO     85
                                         M.INDLD  RMEQU  415B        INDIRECT MODE LOAD MACRO ORDINAL            LISTIO     86
                                                                                                                 LISTIO     87
            20  16530000020000000000     GEFCM    RMHDR  GEFMC,2                                                 LISTIO     88
            21  16560000010000000000     RJBEF    RMHDR  BEFCALL,1         MACRO HEADER FOR 30 BIT RJ            LISTIO     89
            22  16500000030000000000     STRAPL   RMHDR  STAPL,3                                                 LISTIO     90
            23  14330000020000000000     SETTYPE  RMHDR  SSORI,2                                                 LISTIO     91
            24  14320000020000000000     SETVAR   RMHDR  MSORI,2                                                 LISTIO     92
            25  16540000020000000000     GEFNT    RMHDR  GEFWOTR,2                                               LISTIO     93
                                                                                                                 LISTIO     94
  
  
  
  
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     4
                                                                      PARAMS
  
                                        *         FOLLOWING LOCATIONS ARE USED TO HOLD THE VALUES OF THE         LISTIO     96
                                        *         PARAMETERS THAT ARE PACKED BY "MACOUT" TO FORM THE RLIST MACRO LISTIO     97
                                                                                                                 LISTIO     98
            26  00000000000000000000     MACLS1                            ORDINAL OF EXECUTION TIME ROUTINE     LISTIO     99
            27  00000000000000000000     MACLS2                            ORDINAL OF LFN OR UNIT NUMBER         LISTIO    100
            30  00000000000000000000     MACLS3                            ORDINAL OF FORMAT NUMBER/NAMELIST GR  LISTIO    101
            31  00000000000000000000     MACLS4                                                                  LISTIO    102
                                                                                                                 LISTIO    103
            32  00000000000000000000     MACLP1                            VARIABLE PARITY                       LISTIO    104
            33  00000000000000000000     MACLP2                            VARIABLE UNIT NUMBER                  LISTIO    105
            34  00000000000000000000     MACLP3                            VARIABLE FORMAT NUMBER                LISTIO    106
            35  00000000000000000000     MACLP4                                                                  LISTIO    107
            36  00000000000000000000     MACLP5                                                                  LISTIO    108
            37  00000000000000000000     MACLP6                                                                  LISTIO    109
                                                                                                                 LISTIO    110
            40  00000000000000000000     MACLK1                            -1 FOR FINAL CALL OR PARITY FOR BUFFI LISTIO    111
            41  00000000000000000000     MACLK2                            WORD COUNT FOR INTERMEDIATE CALLS     LISTIO    112
            42  00000000000000000000     MACLK3                            BINARY LINE COUNT ( FIRST CALL )      LISTIO    113
            43  00000000000000000000     MACLK4                            TYPE OF THE SYMBOL                    LISTIO    114
  
  
  
                                        *         MP= - GENERATE AN R-NUMBER FOR A PARAMETER                     LISTIO    116
                                        *         OR SET THE VALUE OF A PARAMETER TO THE CONTENTS OF A           LISTIO    117
                                        *         REGISTER OR A MEMORY CELL                                      LISTIO    118
                                                                                                                 LISTIO    119
                                         MP=      MACRO  MP,EXP                                                  LISTIO    120
                                                  LOCAL  MIC                                                     LISTIO    121
                                                  IFC    EQ,//EXP/,1                                             LISTIO    122
                                                  ERR    MACRO MUST HAVE A SECOND PARAMETER                      LISTIO    123
                                         R        IFC    EQ,/EXP/NRLN/                                           LISTIO    124
                                                                                                                 LISTIO    125
                                        *         EXP = NRLN, GENERATE AN R NUMBER FOR THE PARAMETER             LISTIO    126
                                                                                                                 LISTIO    127
                                                  SA5    NRLN                                                    LISTIO    128
                                                  BX6    X5                                                      LISTIO    129
                                                  SX7    X5+B5                                                   LISTIO    130
                                                  SA6    MACL_MP           MP = NRLN                             LISTIO    131
                                                  SA7    A5                ADVANCE NRLN                          LISTIO    132
                                         R        ELSE                                                           LISTIO    133
                                         C        IF     REG,EXP                                                 LISTIO    134
                                                                                                                 LISTIO    135
                                        *         EXP IS A REGISTER NAME                                         LISTIO    136
                                                                                                                 LISTIO    137
                                         MIC      MICRO  1,1,/EXP/                                               LISTIO    138
                                         RT       IFC    NE,/"MIC"/X/                                            LISTIO    139
                                                  SX6    EXP                                                     LISTIO    140
                                         MIC      MICRO  1,,/6/                                                  LISTIO    141
                                         RT       ELSE                                                           LISTIO    142
                                         MIC      MICRO  2,1,/EXP/                                               LISTIO    143
                                                  IFLT   "MIC",6,2                                               LISTIO    144
                                                  BX6    EXP                                                     LISTIO    145
                                         MIC      MICRO  1,,/6/                                                  LISTIO    146
                                         RT       ENDIF                                                          LISTIO    147
                                                  SA"MIC"  MACL_MP         MP = EXP                              LISTIO    148
                                         C        ELSE                                                           LISTIO    149
                                                                                                                 LISTIO    150
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     5
                                                                      MACROS
  
                                        *         EXP IS A CONSTANT                                              LISTIO    151
                                                                                                                 LISTIO    152
                                                  SA5    EXP               LOAD IT                               LISTIO    153
                                                  BX6    X5                                                      LISTIO    154
                                                  SA6    MACL_MP           MP = EXP                              LISTIO    155
                                         C        ENDIF                                                          LISTIO    156
                                         R        ENDIF                                                          LISTIO    157
                                                  ENDM                                                           LISTIO    158
  
  
                                        *         MACRO TO FETCH AND STORE THE ARGUMENT COUNT BEFORE AND AFTER   LISTIO    160
                                        *         EACH SVARG CALL TO PROCESS AN ARGUMENT                         LISTIO    161
                                        *                                                                        LISTIO    162
                                         FORMARG  MACRO  TYPE,ARGNUM                                             LISTIO    163
                                                  SA3    ARGCNT                                                  LISTIO    164
                                                  SB7    X3                                                      LISTIO    165
                                                  SVARG  TYPE,ARGNUM                                             LISTIO    166
                                                  SX7    B7                                                      LISTIO    167
                                                  SA7    ARGCNT                                                  LISTIO    168
                                                  ENDM                                                           LISTIO    169
  
  
                                        *         MACRO TO PERFORM FMAC CALL, RESET THE ARGUMENT COUNT, AND      LISTIO    171
                                        *         UPDATE THE DATA. BLOCK COUNT                                   LISTIO    172
                                        *                                                                        LISTIO    173
                                         FORMMAC  MACRO  MACNAME                                                 LISTIO    174
                                                  OUTUSE DATA.                                                   LISTIO    175
                                                  SA2    ARGCNT                                                  LISTIO    176
                                                  SA3    DATA.                                                   LISTIO    177
                                                  BX7    -X2                                                     LISTIO    178
                                                  SX6    X3+B5                                                   LISTIO    179
                                                  SA7    NARGS                                                   LISTIO    180
                                                  SA6    A3                                                      LISTIO    181
                                                  MX7    0                                                       LISTIO    182
                                                  SA3    PARCNT                                                  LISTIO    183
                                                  SA7    A2                                                      LISTIO    184
                                                  SX6    X3+B5                                                   LISTIO    185
                                                  SA6    A3                                                      LISTIO    186
                                                  FMAC   MACNAME                                                 LISTIO    187
                                                  ENDM                                                           LISTIO    188
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     6
  
  
                                        *         SETS MACOP TO THE VALUE OF ARG                                 LISTIO    190
                                        *         OR INCREMENTS MACOP IF ARG IS OF THE FORM:                     LISTIO    191
                                        *         MACOP+XXX                                                      LISTIO    192
                                                                                                                 LISTIO    193
                                         MACOP=   MACRO  ARG                                                     LISTIO    194
                                                  LOCAL  MIC                                                     LISTIO    195
                                         MIC      MICRO  1,6,/ARG/                                               LISTIO    196
                                                                                                                 LISTIO    197
                                         M        IFC    EQ,/"MIC"/MACOP+/                                       LISTIO    198
                                                  SA3    MACOP                                                   LISTIO    199
                                         MIC      MICRO  7,,/ARG/                                                LISTIO    200
                                                  IFC    EQ,/"MIC"/1/,1                                          LISTIO    201
                                         MIC      MICRO  1,,/B5/                                                 LISTIO    202
                                                  SX7    X3+"MIC"                                                LISTIO    203
                                                  SA7    A3                UPDATE MACOP                          LISTIO    204
                                                                                                                 LISTIO    205
                                         M        ELSE                                                           LISTIO    206
                                                  SX7    ARG                                                     LISTIO    207
                                                  SA7    MACOP                                                   LISTIO    208
                                         M        ENDIF                                                          LISTIO    209
                                                  ENDM                                                           LISTIO    210
                                                                                                                 LISTIO    211
                                        *         IXFN - MACRO TO CALL "IXFN" IN "ARITH"                         LISTIO    212
                                        *                                                                        LISTIO    213
                                        *         "IXFN" IS CALLED THE THE I/O STATEMENT PROCESSOR TO LOAD THE   LISTIO    214
                                        *         ADDRESS OF A SYMBOL ( UNSUBSCRIPTED OR SUBSCRIPTED )           LISTIO    215
                                        *                                                                        LISTIO    216
                                         NOREF=   MICRO  1,,/MX2   60/     NO REFERENCE FLAG FOR IXFN            LISTIO    217
                                                                                                                 LISTIO    218
                                         IXFN     MACRO  FLAG              CALL IXFN                             LISTIO    219
                                         O        IFC    NE,//FLAG/                                              LISTIO    220
                                         I        IF     DEF,FLAG                                                LISTIO    221
                                                  SA2    FLAG                                                    LISTIO    222
                                         I        ELSE                                                           LISTIO    223
                                                  "FLAG="                                                        LISTIO    224
                                         I        ENDIF                                                          LISTIO    225
                                         O        ENDIF                                                          LISTIO    226
                                                  RJ     IXFNL                                                   LISTIO    227
                                                  ENDM                                                           LISTIO    228
                                                                                                                 LISTIO    229
                                         ASAERR   MACRO                    POST ASA ERROR FOR NON USAS I/O STMT  LISTIO    230
                                                  SB6    -E.IONASA                                               LISTIO    231
                                        +         SB7    *+1                                                     LISTIO    232
                                                  EQ     =XASAER                                                 LISTIO    233
                                                  ENDM                                                           LISTIO    234
                                                                                                                 LISTIO    235
                                         FMT      MICRO  1,,/B5/           1S0 - FORMATTED I/O                   LISTIO    236
                                         ^FMT     MICRO  1,,/B5+B5/        1S1                                   LISTIO    237
                                         BUF      MICRO  1,,/1S2/          BUFFER I/O                            LISTIO    238
                                         NAML     MICRO  1,,/1S3/          NAMELIST I/O                          LISTIO    239
                                         FREE     MICRO  1,,/1S4/          FREE FORM I/O                         LISTIO    240
                                                                                                                 LISTIO    241
                                         FMODE    MACRO  MODE              SET FILE MODE                         LISTIO    242
                                                  SX5    "MODE"                                                  LISTIO    243
                                                  RJ     SFMODE                                                  LISTIO    244
                                                  ENDM                                                           LISTIO    245
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     7
         MACROS TO SCAN THE E-LIST
  
            44                           PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                      PARSEM      3
            44                           FMACDEF  CTEXT  FMACDEF - MACRO FORMATION MACROS                        FMACDEF     2
  
  
  
                                                                                                                 F162FTNA  896
                                        **                                                                       F162FTNA  897
                                                  PURGMAC STLTAB                                                 FCCA408   208
                                         STLTAB   MACRO  DNAM                                                    F162FTNA  898
                                         DNAM     =      .STL                                                    F162FTNA  899
                                         .STL     SET    .STL+1                                                  F162FTNA  900
                                         STLTAB   ENDM                                                           F162FTNA  901
                                                                                                                 F162FTNA  902
                                   0     .STL     SET    0                                                       F162FTNA  903
                                                                                                                 F162FTNA  904
                                                  STLTAB STLCRM.,1                                               STLOAD      8
                                                  STLTAB STLRP2.                                                 STLOAD      9
                                                  STLTAB STLICO.                                                 STLOAD     10
                                                  STLTAB STLOCO.                                                 STLOAD     11
                                                  STLTAB STLIBI.                                                 STLOAD     12
                                                  STLTAB STLOBI.                                                 STLOAD     13
                                                  STLTAB STLIBU.                                                 STLOAD     14
                                                  STLTAB STLOBU.                                                 STLOAD     15
                                                  STLTAB STLBAK.                                                 STLOAD     16
                                                  STLTAB STLENF.                                                 STLOAD     17
                                                  STLTAB STLREW.                                                 STLOAD     18
                                                  STLTAB STLCMM.                                                 FCCA535     9
                                                                                                                 F162FTNA  906
                                                                                                                 F162FTNA  907
                                        **        TABLE OF NAMES OF THE EXECUTION TIME ROUTINES                  LISTIO    253
                                        *         ONE SHOULD NOTE THAT THIS TABLE IS INDEXED INTO BY USING       LISTIO    254
                                        *         THE VALUE OF THE INPUT/OUTPUT FLAG ( "IOFLAG" ) AND            LISTIO    255
                                        *         THE BINARY/CODED OP FLAG                                       LISTIO    256
                                                                                                                 LISTIO    257
                                         NAME     MACRO  EPT,DNAM                                                F162FTNA  908
                                                  LOCAL  D                                                       F162FTNA  909
                                         D        SET    DNAM  -2                                                F162FTNA  910
                                                  VFD    12/2000B+D,48/8R_EPT                                    F162FTNA  911
                                         NAME     ENDM                                                           F162FTNA  912
                                                                                                                 F162FTNA  913
                                                                                                                 F162FTNA  914
            44  20051725240211575555     IOTAB    NAME   OUTBI.,STLOBI.    BINARY OUTPUT                         F162FTNA  915
            45  17761725240222575555              NAME   OUTBR.                                                  LISTIO    259
                                                                                                                 LISTIO    260
            46  20031725240311575555              NAME   OUTCI.,STLOCO.    CODED OUTPUT                          F162FTNA  916
            47  17761725240322575555              NAME   OUTCR.                                                  LISTIO    262
                                                                                                                 LISTIO    263
            50  20031725240611575555              NAME   OUTFI.,STLOCO.    LIST-DIRECTED OUTPUT                  F162FTNA  917
            51  17761725240622575555              NAME   OUTFR.                                                  LISTIO    265
                                                                                                                 LISTIO    266
            52  20041116200211575555              NAME   INPBI.,STLIBI.    BINARY INPUT                          F162FTNA  918
            53  17761116200222575555              NAME   INPBR.                                                  LISTIO    268
                                                                                                                 LISTIO    269
            54  20021116200311575555              NAME   INPCI.,STLICO.    CODED INPUT                           F162FTNA  919
            55  17761116200322575555              NAME   INPCR.                                                  LISTIO    271
                                                                                                                 LISTIO    272
            56  20021116200611575555              NAME   INPFI.,STLICO.    LIST-DIRECTED INPUT                   F162FTNA  920
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     8
         MACROS TO SCAN THE E-LIST                                    STORAGE 
  
            57  17761116200622575555              NAME   INPFR.                                                  LISTIO    274
                                                                                                                 LISTIO    275
            60  17760516031704115755     EDTAB    NAME   ENCODI.           ENCODE                                LISTIO    276
            61  17760516031704225755              NAME   ENCODR.                                                 LISTIO    277
                                                                                                                 LISTIO    278
            62  17760405031704115755              NAME   DECODI.           DECODE                                LISTIO    279
            63  17760405031704225755              NAME   DECODR.                                                 LISTIO    280
                                                                                                                 LISTIO    281
            64  20031601151725245755     NAMLTAB  NAME   NAMOUT.,STLOCO.   NAMELIST OUTPUT                       F162FTNA  921
            65  20021601151116575555              NAME   NAMIN.,STLICO.    NAMELIST INPUT                        F162FTNA  922
                                                                                                                 F162FTNA  923
            66  20070225061725245755     BUFFTAB  NAME   BUFOUT.,STLOBU.   BUFFER OUT                            F162FTNA  924
            67  20060225061116575555              NAME   BUFIN.,STLIBU.    BUFFER IN                             F162FTNA  925
                                                                                                                 F162FTNA  926
            70  20110516040611145755     ENDFTAB  NAME   ENDFIL.,STLENF.   ENDFILE                               F162FTNA  927
            71  20122205271116045755     REWTAB   NAME   REWIND.,STLREW.   REWIND                                F162FTNA  928
            72  20100201031323205755     BKSPTAB  NAME   BACKSP.,STLBAK.   BACKSPACE                             F162FTNA  929
  
  
  
  
            73  00000000000000000000     IOFLAG                            0 FOR A WRITE                         LISTIO    288
                                        *                                  1S59 FOR A READ                       LISTIO    289
                                        *                                  1 FOR A POSITIONING ROUTINE           LISTIO    290
                                                                                                                 LISTIO    291
            74                     1     PIOFLAG  BSS    1           + IF ITEM DEFINED,- IF ITEM USED            LISTIO    292
                                        *                            ^0 IF ENTER NAME IN IOLST,0 OTHERWISE       LISTIO    293
            75                     1     PIOBUF   BSS    1           TEMP FOR INDEX TO IOLST TABLE               LISTIO    294
            76                     1     SYMORD   BSS    1           TEMP FOR SYMTAB ORD                         LISTIO    295
            77  00000000000000000000     FMTORD   DATA   0           TEMP FOR FORMAT SYMTAB ORD                  FCC2202    44
           100                     1     TINDX    BSS    1           INDEX TO IOLST (OR NML) TABLE               LISTIO    296
                                  75 +   TLEN     EQU    PIOBUF      COUNT FOR NO. OF PARAMS IN NML              LISTIO    297
           101  00000000000000000000     CRFLAG   ENTRY. 0           ^0 IF AN ARRAY REF S/B CLASS REF            LISTIO    298
           102  00000000000000000000     END=                              DEFAULT EOF LABEL CELL                LISTIO    299
           103  00000000000000000000     TEMP                              A GENERAL TEMPORARY                   LISTIO    300
           104  00000000000000000000     TEMPA                             SECOND GENERAL TEMPORARY              LISTIO    301
           105                     1     ARGCNT   BSS    1                 ARGUMENT COUNT FOR IOM MACRO          LISTIO    302
                                                                                                                 LISTIO    303
           106  00000000000000000000     MACOP                             VALUE OF CURRENT MACRO OP             LISTIO    304
           107                    22     MACBUF   BSS    18                MACRO BUFFER FOR RLIST                LISTIO    305
                                                                                                                 LISTIO    306
           131                     1     MACOPC   BSSZ   1                 COLLAPSE CODE MACRO NUMBER            LISTIO    307
           132                     2     LCMFG    BSSZ   2                 LEVEL FLAGS FOR BUFFER I/O            LISTIO    309
           134                     1     COLAPL   BSSZ   1                 COLLAPSE LOOP ITERATION NO.           LISTIO    310
           135                     1     ARYADD   BSSZ   1                 ARRAY ADDRESS                         LISTIO    311
           136                     3     NAMDEX   BSSZ   3                 STORES THE INDICES...I,J,K            LISTIO    312
           141                     1     TENCOL   BSSZ   1                 TENATIVE COLLAPSE LEVEL               LISTIO    313
           142                     1     NOCAL    BSSZ   1                 ADDRESS OF A NON COLLAPSIBLE ARRAY    LISTIO    314
           143                     1     COLLAPS  BSSZ   1                 ( COUNT = POSSIBLE COLLAPSE LEVEL     LISTIO    315
           144                     1     ARNAM    BSSZ   1                 ARRAY NAME                            LISTIO    316
           145                     1     DIMWRD   BSSZ   1                 WORD 2  OF THE DIM TABLE              LISTIO    317
           146                     1     DIMVAL   BSSZ   1                 DIMENSION SPECIFICATION VARIABLE      LISTIO    318
           147                    14     INDX     BSSZ   12                HOLDS I,I1,I2,I3,...ETC.              LISTIO    319
           163                     1     SAVELIS  BSSZ   1                 SAVE THE ELIS ADDRESS                 LISTIO    320
           164                     1     NODIMS   BSSZ   1                 NUMBER OF ARRAY DIMENSIONS AS DEFINED LISTIO    321
                                 107 +   TEMP1    EQU    MACBUF      SYMTAB ORD FOR REF MAP                      FCC0544     4
           165                     1     MACSYM   BSSZ   1           COUNT OF VARIABLE PARAMS IN I/O LOOP        FCC0544     5
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE     9
         MACROS TO SCAN THE E-LIST
  
           166                     4     COLAP    BSS    4           (EQUIVED) BASE OF ARRAY AND INDICES         FCC0544     6
           172                     1     TEMPB    BSSZ   1           TEMPORARY FOR SUBSCRIPTS W/O INDIC5S        LISTIO    322
           173                     1     VFFLAG   BSSZ   1           VARIABLE FORMAT FLAG                        FCC2202    45
                                 111 +   TEMPBI   EQU    MACBUF+2    TEMPORARY FOR SUBSCRIPT BIAS                LISTIO    323
                                 116 +   TEMPBA   EQU    MACBUF+7    TEMPORARY FOR SUBSCRIPT BASE                LISTIO    324
           174                     1     SNTI     BSS    1           NAME TABLE INDEX TEMP FOR PROFL             LISTIO    325
                                 144     UNITLIM  EQU    100         MAXIMUM UNIT NUMBER-1 ALLOWED               FCC1286     5
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    10
         SUBROUTINES
  
                                        ***                                                                      LISTIO    327
                                        *         IXFNL - LOCAL VERSION OF IXFN                                  LISTIO    328
                                        *                                                                        LISTIO    329
                                        *         ENTRY  X2 = REFMAP REFERENCE TYPE FLAG                         LISTIO    330
                                        *                X3 = EXPRESSION FLAG                                    LISTIO    331
                                        *                                                                        LISTIO    332
                                        *         EXIT                                                           LISTIO    333
                                        *                A0,A1,A2,X1,X2,B1,B2 SET AS IF EXITED FROM "SYMBOL"     LISTIO    334
                                        *                X0 = V.DEF BIT                                          LISTIO    335
                                        *                X6 = NRLN-1  ( RESULT NUMBER FOR THE LOAD )             LISTIO    336
                                        *                                                                        LISTIO    337
           175  0400400175 +             IXFNL    ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    338
           176  10622                             BX6    X2                                                      LISTIO    339
                     0100000000 X                 CALL   IXFN                                                    LISTIO    340
           177  0100002665 +                      RJ     PLI                                                     LISTIO    341
           200  5130000012                        SA3    SYM1                                                    LISTIO    342
                          6150000001              SB5    1                                                       LISTIO    343
           201  53030                             SA0    X3                                                      LISTIO    344
                     63120                        SB1    X2                B1 = SYMTAB ORDINAL                   LISTIO    345
                          66211                   SB2    B1+B1                                                   LISTIO    346
                               55102              SA1    A0-B2                                                   LISTIO    347
           202  55215                             SA2    A1-B5                                                   LISTIO    348
                     5140000064                   SA4    NRLN                                                    LISTIO    349
           203  7264777776                        SX6    X4-1                                                    LISTIO    350
                          7100200000              SX0    V.DEF                                                   LISTIO    351
           204  0400000175 +                      EQ     IXFNL                                                   LISTIO    352
  
  
                                        ***                                                                      LISTIO    354
                                        *         IOSETUP - SETUP ROUTINE FOR I/O PROCESSING                     LISTIO    355
                                        *                                                                        LISTIO    356
           205  0400400205 +             IOSETUP  ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    357
           206  7160000000 X                      OUTUSE DATA.                                                   LISTIO    358
           207  5110000000 X                      SA1    IOAPLN            I/O APLIST NUMBER                     LISTIO    359
                          73215                   SX2    X1+B5             INCREMENT TO X2 FOR NUMBER CALL       LISTIO    360
                               10622              BX6    X2                                                      LISTIO    361
           210  54610                             SA6    A1                                                      LISTIO    362
                                                                                                                 LISTIO    363
                     5140003026 +                 SA4    =3R]IO                                                  LISTIO    364
                               10744              BX7    X4                SET UP RESULT FIELD                   LISTIO    365
           211  6110000052                        SB1    42                SHIFT COUNT                           LISTIO    366
                          0100000223 +            RJ     CNVT                                                    LISTIO    367
           212  5140003027 +                      SA4    =6LBSS 0B                                               LISTIO    368
                          7160000055              SX6    1R                BLANK FILL CHARACTER                  LISTIO    369
           213  20706                    FILL     LX7    6                                                       LISTIO    370
                     6111777771                   SB1    B1-6              DECREMENT SHIFT COUNT                 LISTIO    371
                               36776              IX7    X7+X6             ADD FILL CHARACTER                    LISTIO    372
           214  0510000213 +                      NZ     B1,FILL           MORE FILL NEEDED                      LISTIO    373
                                                                                                                 LISTIO    374
                          6110000001              SB1    1                                                       LISTIO    375
           215  10644                             BX6    X4                                                      LISTIO    376
                     5170000107 +                 SA7    MACBUF                                                  LISTIO    377
                               54675              SA6    A7+B5                                                   LISTIO    378
           216  6160000107 +                      WRITEC =XF.CMPS,MACBUF,2                                       LISTIO    379
                                                                                                                 LISTIO    380
           220  76700                             SX7    B0                                                      LISTIO    381
                     66510                        SB5    B1                                                      LISTIO    382
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    11
         SUBROUTINES
  
                          5170000105 +            SA7    ARGCNT            RUNNING COUNT OF FORMARG CALLS        LISTIO    383
           221  5170000010 +                      SA7    PARCNT            RUNNING COUNT OF I/O PARAMETERS       LISTIO    384
                          5170001351 +            SA7    PEDT        ENCODE-FLAG FOR *IOL*                       FCC0413     6
           222  0400000205 +                      EQ     IOSETUP                                                 LISTIO    385
  
  
  
                                        ***                                                                      LISTIO    387
                                        *         CNVT - CONVERTS BINARY NUMBER IN X2 TO BCD,                    LISTIO    388
                                        *         LEAVING RESULT IN X7 UPON EXIT                                 LISTIO    389
                                        *         ON ENTRY B1 CONTAINS AN APPROPRIATE SHIFT COUNT                LISTIO    390
                                        *                                                                        LISTIO    391
           223  00000000000000000000     CNVT     ENTRY.                                                         LISTIO    392
           224  7140000033                        SX4    1R0                                                     LISTIO    393
                          6120000006              SB2    6                 MAX CHARACTERS                        LISTIO    394
           225  20252                             LX2    42                POSITION BINARY NUMBER                LISTIO    395
                     43571                        MX5    57                                                      LISTIO    396
                          76600                   SX6    B0                                                      LISTIO    397
           226  67225                    N1       SB2    B2-B5             CHARACTER COUNT                       LISTIO    398
                     0720000223 +                 NG     B2,CNVT           IF SIX CHARACTERS ALREADY PROCESSED   LISTIO    399
                               20203              LX2    3                 POSITION NEXT 3 BITS OF NUMBER        LISTIO    400
           227  15325                             BX3    -X5*X2            EXTRACT BITS                          LISTIO    401
                     0316000231 +                 NZ     X6,N2             IF NON ZERO CHARACTER                 LISTIO    402
           230  0303000226 +                      ZR     X3,N1             IF LEADING ZERO                       LISTIO    403
           231  36343                    N2       IX3    X4+X3             CONVERT TO DISPLAY CODE               LISTIO    404
                     20706                        LX7    6                 POSITION RESULT WORD                  LISTIO    405
                          6111777771              SB1    B1-6              DECREMENT SHIFT COUNT                 LISTIO    406
           232  36773                             IX7    X7+X3             ADD NEW CHARACTER                     LISTIO    407
                     76650                        SX6    B5                SET NON ZERO CHARACTER FOUND          LISTIO    408
                          0400000226 +            EQ     N1                                                      LISTIO    409
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    12
         SUBROUTINES
  
                                        ***                                                                      LISTIO    411
                                        *         CFSIV - CHECK FOR SIMPLE INTEGER VARIABLE                      LISTIO    412
                                        *                                                                        LISTIO    413
                                        *         ON ENTRY:                                                      LISTIO    414
                                        *                B6 = ERROR NUMBER                                       LISTIO    415
                                        *                X1,X2 = WORDS A AND B OF SYMTAB ENTRY                   LISTIO    416
                                        *                                                                        LISTIO    417
                                        *         EXITS WITH X3 = 0 IF SYMBOL IS A SIMPLE INTEGER VARIABLE       LISTIO    418
                                        *         ELSE IT EXITS TO ERPRO                                         LISTIO    419
                                        *                                                                        LISTIO    420
           233  0400400233 +             CFSIV    ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    421
           234  10011                             BX0    X1                                                      LISTIO    422
                     20056                        LX0    59-P.DIM                                                LISTIO    423
                          0330000237 +            NG     X0,CFSIV1         ERROR IF DIMENSIONED                  LISTIO    424
           235  10022                             BX0    X2                                                      LISTIO    425
                     21070                        AX0    P.TYP                                                   LISTIO    426
                          7230777776              SX3    X0-T.INT                                                LISTIO    427
           236  0303000233 +                      ZR     X3,CFSIV          EXIT IF INTEGER                       LISTIO    428
                                                                                                                 LISTIO    429
           237  76210                    CFSIV1   SX2    B1                                                      LISTIO    430
                     0100000000 X                 RJ     PSYM              SET UP X3 AND X4                      LISTIO    431
           240  6170000000 X             IOERRX   SB7    PH2RETN                                                 LISTIO    432
                          0400000000 X            EQ     ERPRO                                                   LISTIO    433
                                                                                                                 LISTIO    434
                                         CFSIV    MACRO  ERNUM             MACRO TO CALL CFSIV                   LISTIO    435
                                                  SB6    ERNUM                                                   LISTIO    436
                                                  RJ     CFSIV                                                   LISTIO    437
                                                  ENDM                                                           LISTIO    438
  
  
  
                                        ***                                                                      LISTIO    440
                                        *         NAMLIST - PROCESS NAMLIST I/O                                  LISTIO    441
                                        *                                                                        LISTIO    442
                                        *         ON ENTRY:                                                      LISTIO    443
                                        *                B1 = SYMTAB ORDINAL OF THE NAMELIST GROUP NAME          LISTIO    444
                                        *                X2 = WORD B OF GROUP NAME                               LISTIO    445
                                        *                                                                        LISTIO    446
           241  0400400241 +             NAMLIST  ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    447
           242  5150000032                        GETE                                                           LISTIO    448
           243  6130000004                        IF.NE  EL.EOS,IOERR  IF NOT *EOS*                              LISTIO    449
           244  0100002750 +                      RJ     ONI         OUTPUT NAMELIST ITEMS TO RLIST              LISTIO    450
           245  76610                             SX6    B1                                                      LISTIO    451
                     5160000103 +                 SA6    TEMP                                                    LISTIO    452
           246  5130000105 +                      FORMARG NAME,1                                                 LISTIO    453
           252  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO    454
                                                                                                                 LISTIO    455
           260  5150000000 X                      SA5    RSELECT                                                 LISTIO    456
                          0305000263 +            ZR     X5,NAMLIST1       IF R = 0                              LISTIO    457
           261  5110000103 +                      ADDREF TEMP,REF          ADD REFERENCE FOR THE GROUP NAME      LISTIO    458
                                                                                                                 LISTIO    459
           263  7150000010               NAMLIST1 FMODE  NAML              SET THE FILE MODE                     LISTIO    460
           264  5130000073 +                      SA3    IOFLAG                                                  LISTIO    461
                          20301                   LX3    1                                                       LISTIO    462
           265  5213000064 +                      SA1    NAMLTAB+X3        FETCH NAME OF EXECUTION TIME ROUTINE  LISTIO    463
                          0100001475 +            RJ     IOLIST                                                  LISTIO    464
           266  0400000241 +                      EQ     NAMLIST                                                 LISTIO    465
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    13
        PVARNAM - PROCESS VARIABLE NAMES
  
                                        ***                                                                      LISTIO    467
                                        *         PVARNAM - PROCESS VARIABLES USED AS FILE, PARITY               LISTIO    468
                                        *         INDICATOR, FORMAT, OR CHAR COUNT NAMES                         LISTIO    469
                                        *         ISSUE APPROPRIATE IOM MACRO FOR THE NAME                       LISTIO    470
                                        *                                                                        LISTIO    471
                                        *         ON ENTRY -  B4 - 0 IF FILE/PARITY NAME                         LISTIO    472
                                        *                          1 IF FMT, CHAR COUNT NAME                     LISTIO    473
                                        *                     X1 - WORD A OF SYMTAB ENTRY FOR NAME               LISTIO    474
                                        *                     X2 - WORD B                                        LISTIO    475
                                        *                                                                        LISTIO    476
           267  0400400267 +             PVARNAM  ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    477
           270  10722                             BX7    X2                                                      LISTIO    478
                     20273                        LX2    -P.LCM      LCM/ECS RESIDENT FLAG                       LISTIO    479
                          43673                   MX6    -1                                                      LISTIO    480
                               15626              BX6    -X6*X2                                                  LISTIO    481
           271  20201                             LX2    P.LCM       REPOSITION                                  LISTIO    482
                     63360                        SB3    X6          LCM INDICATOR                               LISTIO    483
                          5177000132 +            SA7    LCMFG+B7                                                LISTIO    484
           272  6120000052                        SB2    59-P.FP                                                 LISTIO    485
                          22021                   LX0    B2,X1                                                   LISTIO    486
           273  0430000274 +                      ZR     B3,PVN0     IF NOT LCM                                  LISTIO    487
                          0440000333 +            ZR     B4,PVN3     IF FILE NAME OR PARITY INDICATOR            LISTIO    488
           274  0320000333 +             PVN0     PL     X0,PVN3     IF NOT F.P.                                 LISTIO    489
                          7161777775              SX6    B1-2              F.P. OFFSET                           LISTIO    490
           275  5130000105 +                      FORMARG OCT,2                                                  LISTIO    491
           301  0540000314 +                      NZ     B4,PVN1           IF NOT A FILE/PARITY NAME             LISTIO    492
                          76650                   SX6    B5                                                      LISTIO    493
           302  5130000105 +                      FORMARG INT,5                                                  LISTIO    494
           306  5130000012 +                      SA3    LDFLAG                                                  LISTIO    495
                          73630                   SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE            LISTIO    496
           307  0306000267 +                      ZR     X6,PVARNAM  IF NOT WRITE OR PUNCH                       LISTIO    497
                          5130000105 +            FORMARG INT,6                                                  LISTIO    498
           313  0400000267 +                      EQ     PVARNAM                                                 LISTIO    499
           314  0430000321 +             PVN1     ZR     B3,PVN2           IF NOT AN LCM VARIABLE                LISTIO    500
                          76650                   SX6    B5                                                      LISTIO    501
           315  5130000105 +                      FORMARG INT,5                                                  LISTIO    502
           321  76650                    PVN2     SX6    B5                                                      LISTIO    503
                     5130000105 +                 FORMARG INT,6                                                  LISTIO    504
           325  5110000000 X                      SA1    NCA               CONSTANT ADDEND                       LISTIO    505
                          10611                   BX6    X1                                                      LISTIO    506
           326  5130000105 +                      FORMARG OCT,7                                                  LISTIO    507
           332  0400000267 +                      EQ     PVARNAM                                                 LISTIO    508
           333                           PVN3     BSS    0                                                       LISTIO    509
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           LISTIO    510
           333  0430000404 +                      ZR     B3,PVN5           IF NOT AN LCM VARIABLE                LISTIO    511
                          0540000371 +            NZ     B4,PVN4           IF NOT FILE/PARITY NAME               LISTIO    512
           334  43700                             MX7    0                                                       LISTIO    513
                     5170000165 +                 SA7    MACSYM            REQUIRED FOR EQUIVP CALL              LISTIO    514
           335  0100002555 +                      RJ     EQUIVP            SEE IF EQUIVALENCED                   LISTIO    515
           336  5160000026 +                      MP=    S1,X6             SYMTAB ORDINAL TO S1                  LISTIO    516
                          5170000040 +            MP=    K1,X7             CA TO K1                              LISTIO    517
           337  5150000064                        MP=    P1,NRLN           RESULT NUMBER TO P1                   LISTIO    518
           341  5110000000 X                      SA1    ST.               ORDINAL OF ST.                        LISTIO    519
                          10611                   BX6    X1                                                      LISTIO    520
           342  5160000027 +                      MP=    S2,X6             PLACE IN S2                           LISTIO    521
                          5130000105 +            FORMARG NAME,1                                                 LISTIO    522
           346  5110000000 C                      SA1    STSORD            CA FOR ST.                            LISTIO    523
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    14
        PVARNAM - PROCESS VARIABLE NAMES
  
                          10611                   BX6    X1                                                      LISTIO    524
                               73715              SX7    X1+B5                                                   LISTIO    525
           347  54710                             SA7    A1                RESTORE INCREMENTED VALUE             LISTIO    526
                     5160000041 +                 MP=    K2,X6             PLACE IN K2                           LISTIO    527
           350  5130000105 +                      FORMARG OCT,2                                                  LISTIO    528
                               76650              SX6    B5                                                      LISTIO    529
           354  5130000105 +                      FORMARG INT,5            SET VAR BIT                           LISTIO    530
           360  5130000012 +                      SA3    LDFLAG                                                  LISTIO    531
                          73630                   SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE            LISTIO    532
           361  0306000365 +                      ZR     X6,PVN3A    IF NOT WRITE OR PUNCH                       LISTIO    533
                          5130000105 +            FORMARG INT,6                                                  LISTIO    534
                                                                                                                 LISTIO    535
           365                           PVN3A    BSS    0                                                       LISTIO    536
           365  43600                             MX6    0                                                       LISTIO    537
                     5160000131 +                 SA6    MACOPC                                                  LISTIO    538
           366  7170000415                        MACOP= M.INDLD     INDIRECT MODE LOAD                          LISTIO    539
           367  0100003014 +                      RJ     MACOUT            ISSUE MACRO                           LISTIO    540
           370  0400000267 +                      EQ     PVARNAM                                                 LISTIO    541
           371  5130000000 X             PVN4     SA3    DIRECT                                                  LISTIO    542
                          0303000404 +            ZR     X3,PVN5           IF DIRECT MODE                        LISTIO    543
                                                                                                                 LISTIO    544
           372  0100000432 +                      RJ     FII         FORM INDIRECT-MODE IOM ITEM                 LISTIO    545
           373  76650                             SX6    B5                                                      LISTIO    546
                     5130000105 +                 FORMARG INT,5            SET LCM BIT                           LISTIO    547
                               76650              SX6    B5                                                      LISTIO    548
           377  5130000105 +                      FORMARG INT,6            SET VAR BIT                           LISTIO    549
           403  0400000267 +                      EQ     PVARNAM                                                 LISTIO    550
                                         #DAL     ENDIF                                                          LISTIO    551
                                                                                                                 LISTIO    552
           404  0100002555 +             PVN5     RJ     EQUIVP      FIND BASE AND BIAS OF NAME                  FCC0544     7
           405  63270                             SB2    X7                                                      LISTIO    556
                     5130000105 +                 FORMARG NAME,1                                                 LISTIO    557
           411  5110000000 X                      SA1    NCA               CONSTANT ADDEND                       LISTIO    558
                          73612                   SX6    X1+B2             CA + EQUIV BIAS                       LISTIO    559
           412  5130000105 +                      FORMARG OCT,2                                                  LISTIO    560
           416  0440000417 +             PVN6     ZR     B4,PVN7           IF A FILE/PARITY NAME                 LISTIO    561
                          0430000425 +            ZR     B3,PVN8           IF NOT AN LCM VARIABLE                LISTIO    562
           417  76650                    PVN7     SX6    B5                                                      LISTIO    563
                     5130000105 +                 FORMARG INT,5                                                  LISTIO    564
           423  0540000425 +                      NZ     B4,PVN8     IF NOT FILE/PARITY NAME                     LISTIO    565
                          5130000012 +            SA3    LDFLAG                                                  LISTIO    566
           424  73630                             SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE            LISTIO    567
                     0306000267 +                 ZR     X6,PVARNAM  IF NOT WRITE OR PUNCH                       LISTIO    568
           425  76650                    PVN8     SX6    B5                                                      LISTIO    569
                     5130000105 +                 FORMARG INT,6                                                  LISTIO    570
           431  0400000267 +                      EQ     PVARNAM                                                 LISTIO    571
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    15
        FORM INDIRECT MODE LCM IOM ITEM.                              FII 
  
                                        **        FII--FORM INDIRECT MODE IOM ITEM.                              LISTIO    573
                                        *                                                                        LISTIO    574
                                        *         FII FORMS FIRST TWO ARGUMENTS (BASE AND BIAS) OF AN IOM        LISTIO    575
                                        *         MACRO FOR AN LCM VARIABLE IN INDIRECT MODE.  THESE ARGUMENTS   LISTIO    576
                                        *         REPRESENT BASE AND BIAS RESPECTIVELY.                          LISTIO    577
                                        *                                                                        LISTIO    578
                                        *         ENTRY - (X1) = SYMTAB WORD A OF ITEM.                          LISTIO    579
                                        *                 (X2) =        WORD B OF ITEM.                          LISTIO    580
                                        *                                                                        LISTIO    581
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           LISTIO    582
           432  0400400432 +             FII      ENTRY. *                                                       LISTIO    583
           433  7160000001                        SX6    1                                                       LISTIO    584
                          5160000000 X            SA6    =XIAF       FOR FMAC                                    LISTIO    585
           434  76610                             SX6    B1          SYMTAB ORDINAL                              LISTIO    586
                     5130000105 +                 FORMARG  NAME,1                                                LISTIO    587
           440  5130000000 X                      SA3    NCA                                                     LISTIO    588
                          10633                   BX6    X3                                                      LISTIO    589
           441  5130000105 +                      FORMARG OCT,2                                                  LISTIO    590
           445  0400000432 +                      EQ     FII                                                     LISTIO    591
                                         #DAL     ENDIF                                                          LISTIO    592
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    16
         FMTNO - PROCESS FORMAT NUMBER
  
           446  00000000000000000000     ASAFLAG                                                                 LISTIO    594
                                        ***                                                                      LISTIO    595
                                        *         FMTNO - PROCESS FORMAT NUMBER                                  LISTIO    596
                                        *                                                                        LISTIO    597
                                        *         ON ENTRY:                                                      LISTIO    598
                                        *                SELIST POINTS TO FORMAT NUMBER                          LISTIO    599
                                        *                                                                        LISTIO    600
                                        *         ON EXIT:                                                       LISTIO    601
                                        *                B1 = SYMTAB ORDINAL OF FORMAT NUMBER OR GROUP NAME      LISTIO    602
                                        *                X3 = INDEX INTO I/O NAME TABLE                          LISTIO    603
                                        *                                                                        LISTIO    604
                                                                                                                 LISTIO    605
           447  5150000000 X             FMTNOX   SA5    RSELECT                                                 LISTIO    606
                          0305000452 +            ZR     X5,FMTNOX1        IF NO LONG MAP                        LISTIO    607
           450  5120000103 +                      SA2    TEMP                                                    LISTIO    608
                          63120                   ADDREF X2,REF            ADD A REFERENCE FOR THE NAME          LISTIO    609
                                                                                                                 LISTIO    610
           452  76550                    FMTNOX1  FMODE  FMT               SET FILE MODE                         LISTIO    611
           453  7130000002                        SX3    2                 INDEX TO I/O TABLE                    LISTIO    612
                                                                                                                 LISTIO    613
                          5110000103 +            SA1    TEMP              SYMTAB ORDINAL                        LISTIO    614
           454  63110                             SB1    X1                                                      LISTIO    615
                     43073                        MX0    59                                                      LISTIO    616
                                                                                                                 LISTIO    617
           455  0400400455 +             FMTNO    ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    618
           456  5150000032                        ADVIN                    GET CURRENT ELEMENT                   LISTIO    619
                          43600                   MX6    0                                                       LISTIO    620
           460  5160000012 +                      SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                    LISTIO    621
                          0525000524 +            IF.NE  NAME,FMTNO.C      IF NOT A NAME                         LISTIO    622
           461  6170000462 +                      SYMBOL                   SEARCH SYMTAB FOR THE NAME            LISTIO    623
           462  0400000520 +                      EQ     FMTNO.F           FIRST OCCURANCE                       LISTIO    624
                                                                                                                 LISTIO    625
           463  43004                    FMTNO1   MX0    L.TYP                                                   LISTIO    626
                     11302                        BX3    X0*X2                                                   LISTIO    627
                          20304                   LX3    L.TYP                                                   LISTIO    628
           464  7203777767                        SX0    X3-T.NML                                                LISTIO    629
                          0300000455 +            ZR     X0,FMTNO          EXIT IF NAMELIST                      LISTIO    630
                                                                                                                 LISTIO    631
           465  5150000032                        BACKE                    BACK UP E-LIST POINTER                LISTIO    632
                                                                                                                 LISTIO    633
           466  76750                             SX7    B5                                                      LISTIO    634
                     5170000101 +                 SA7    CRFLAG      SPECIAL CASE CLASS REF CHECK                LISTIO    635
                               76350              SX3    B5                NO EXPRESSION FLAG                    LISTIO    636
           467  43673                             MX6    59                                                      LISTIO    637
                     5160000000 +                 SA6    IXFNCL      SIGNAL VARIABLE FORMAT                      LISTIO    638
           470  5160000173 +                      SA6    VFFLAG      SET VARIABLE FORMAT FLAG                    FCC2202    46
                          43200                   IXFN   REF               PROCESS NAME                          LISTIO    639
           472  7100020000                        SX0    V.DIM                                                   FCC0529     4
                          76710                   SX7    B1                                                      LISTIO    640
                               11001              BX0    X0*X1                                                   FCC0529     5
           473  5170000103 +                      SA7    TEMP                                                    LISTIO    641
                          10700                   BX7    X0                                                      FCC0888     4
           474  5140000001 +                      SA4    APLRST                                                  LISTIO    642
                          5170000446 +            SA7    ASAFLAG           NON-ZERO IF DIM                       FCC0529     7
           475  0304000506 +                      ZR     X4,FMTNO1A        STORE TO APLIST NOT NEEDED            LISTIO    643
                          5110000024 +            SA1    SETVAR            MACRO TO SET VAR BIT FOR FORMAT WORD  LISTIO    644
           476  5130000064                        SA3    NRLN              NEXT AVAILABLE R NUMBER               LISTIO    645
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    17
         FMTNO - PROCESS FORMAT NUMBER
  
                          20620                   LX6    16                RF NUMBER FROM ARRAY LOAD             LISTIO    646
                               12713              BX7    X1+X3             MACRO HEADER                          LISTIO    647
           477  12663                             BX6    X6+X3             R NUMBERS                             LISTIO    648
                     76150                        SX1    B5                MASK VALUE                            LISTIO    649
                          5170000107 +            SA7    MACBUF                                                  LISTIO    650
           500  7140000072                        SX4    58                SHIFT COUNT                           LISTIO    651
                          54675                   SA6    A7+B5                                                   LISTIO    652
                               20422              LX4    18                                                      LISTIO    653
           501  12741                             BX7    X4+X1             CONSTANT NUMBERS                      LISTIO    654
                     73635                        SX6    X3+B5             INCREMENT R NUMBER                    LISTIO    655
                          54765                   SA7    A6+B5                                                   LISTIO    656
           502  6140000003                        SB4    3                 MACRO WORD COUNT                      LISTIO    657
                          54630                   SA6    A3                                                      LISTIO    658
                               10633              BX6    X3                RESULT NAME FOR STORE TO APLIST       LISTIO    659
           503  0100001320 +                      RJ     PSTAPL            GENERATE STORE TO APLIST MACROS       LISTIO    660
           504  0100001332 +                      RJ     STIOM             ISSUE -1 APLIST MACRO WORD            LISTIO    661
           505  0400000515 +                      EQ     FMTNO3                                                  LISTIO    662
                                                                                                                 LISTIO    663
           506  66450                    FMTNO1A  SB4    B5                SET FOR FMT NAME                      LISTIO    664
                     66750                        SB7    B5                                                      LISTIO    665
                          0100000267 +            RJ     PVARNAM           PROCESS FORMAT NAME                   LISTIO    666
           507  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO    667
                                                                                                                 LISTIO    668
           515  5130000446 +             FMTNO3   SA3    ASAFLAG                                                 LISTIO    669
                          0313000452 +            NZ     X3,FMTNOX1        IF DIM                                FCC0529     8
                                                                                                                 LISTIO    676
           516  6160777440                        SB6    -E.FNASA          NON-ANSI VARIABLE FORMAT              LISTIO    677
                          6170000452 +            SB7    FMTNOX1                                                 LISTIO    678
           517  0400000000 X                      EQ     ASAER                                                   LISTIO    679
                                                                                                                 LISTIO    680
           520  0307000522 +             FMTNO.F  ZR     X7,FMTNO.F1       IN NO PREVIOUS USE IN DEBUG STMTS     LISTIO    681
                          43000                   CFO    VAR               CHECK SETTING OF DEBUG BITS           LISTIO    682
                                                                                                                 LISTIO    683
           522  76050                    FMTNO.F1 SX0    B5                                                      LISTIO    684
                     36262                        IX2    X6+X2             SET TYPE                              LISTIO    685
                          20050                   LX0    P.VAR                                                   LISTIO    686
                               12702              BX7    X0+X2             SET VAR BIT                           LISTIO    687
           523  54720                             SA7    A2                                                      LISTIO    688
                     0400000463 +                 EQ     FMTNO1                                                  LISTIO    690
                                                                                                                 LISTIO    691
                                        *         PROCESS CONSTANT FORMAT NUMBER                                 LISTIO    692
                                                                                                                 LISTIO    693
           524  6160777665               FMTNO.C  SB6    -E.BFN            BAD FORMAT NUMBER                     LISTIO    694
                          0520000551 +            IF.NE  CON,FMTNO.FF      IF NOT A CONSTANT                     LISTIO    695
           525  21155                             AX1    45                                                      LISTIO    696
                     7221777776                   SX2    X1-T.INT                                                LISTIO    697
                               53140              SA1    X4                FETCH CONSTANT                        LISTIO    698
           526  21422                             AX4    18                                                      LISTIO    699
                     63140                        SB1    X4                CHARACTER COUNT                       LISTIO    700
                          6121777771              SB2    B1-6                                                    LISTIO    701
           527  0312000240 +                      NZ     X2,IOERRX         IF NOT AN INTEGER CONSTANT            LISTIO    702
                          0620000240 +            PL     B2,IOERRX         IF MORE THAN 5 DIGITS                 LISTIO    703
                                                                                                                 LISTIO    704
           530  6170000531 +            +         SB7    *+1                                                     LISTIO    705
                          0400000000 X            EQ     LABCON            GO CONVERT NUMBER AND ENTER IN SYMTAB LISTIO    706
           531  0400000534 +                      EQ     FMTNO2            FIRST OCCURANCE                       LISTIO    707
                                                                                                                 LISTIO    708
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    18
         FMTNO - PROCESS FORMAT NUMBER
  
           532  7100000023                        SX0    M.FNCHK                                                 LISTIO    709
                          20060                   LX0    P.FNCHK           DSN , RAS AND DLT                     LISTIO    710
                               11302              BX3    X0*X2                                                   LISTIO    711
           533  6160000022                        SB6    E.CUL                                                   LISTIO    712
                          0313000237 +            NZ     X3,CFSIV1         IF PREVIOUSLY USED AS A STMT LABEL    LISTIO    713
                                                                                                                 LISTIO    714
                                         SLAB     BIT    P.TYP-P.RFN                                             LISTIO    715
           534  7100000601               FMTNO2   SX0    T.LAB*SLAB+1                                            LISTIO    716
                          20062                   LX0    P.RFN                                                   LISTIO    717
                               12702              BX7    X0+X2             SET TYPE AND RFN BITS                 LISTIO    718
           535  54720                             SA7    A2                                                      LISTIO    719
                     76610                        SX6    B1                SYMTAB ORDINAL                        LISTIO    720
                          5130000105 +            FORMARG NAME,1                                                 LISTIO    721
                               76710              SX7    B1                                                      LISTIO    722
           541  5170000103 +                      SA7    TEMP                                                    LISTIO    723
                          5170000077 +            SA7    FMTORD      SAVE FORMAT SYM ORD FOR RLIST               FCC2202    47
           542  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO    724
           550  0400000447 +                      EQ     FMTNOX            GO ADD A REFERENCE FOR THIS LABEL     LISTIO    725
                                                                                                                 LISTIO    726
           551  6130000022               FMTNO.FF IF.NE  EL.STAR,IOERRX                                          LISTIO    727
           552  7150000020                        FMODE  FREE              SET FILE MODE                         LISTIO    728
           553  6160777440                        SB6    -E.FNASA                                                LISTIO    729
           554  6170000555 +            +         SB7    *+1         RETURN ADDRESS                              LISTIO    730
                          0400000000 X            EQ     ASAER       LIST-DIRECTED FORMAT NON-ANSI               LISTIO    731
           555  43601                             MX6    1                                                       LISTIO    732
                     5160000012 +                 SA6    LDFLAG      LIST-DIRECTED FORMAT                        LISTIO    733
                               43073              MX0    59                                                      LISTIO    734
           556  7130000004                        SX3    4                 INDEX TO I/O TABLE                    LISTIO    735
                          0400000455 +            EQ     FMTNO                                                   LISTIO    736
  
  
  
           557  00002401200500000000     TAPEN    VFD    12/0,48/4LTAPE                                          LISTIO    738
           560  00000000000000000000     UNITF                             UNIT/PARITY INDICATOR                 LISTIO    739
                                                                                                                 LISTIO    740
           561  6160777745               UNITN.E  SB6    -E.BUN            BAD UNIT NUMBER                       LISTIO    741
                          0400000240 +            EQ     IOERRX                                                  LISTIO    742
           562  6160777430               UNITN.B  SB6    -E.UNNIR          UNIT NUMBER OUT OF RANGE              LISTIO    743
                          0400000240 +            EQ     IOERRX                                                  LISTIO    744
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    19
         UNITN - PROCESS UNIT NUMBER
  
                                        ***                                                                      LISTIO    746
                                        *         UNITN - PROCESS UNIT NUMBER OR PARITY INDICATOR                LISTIO    747
                                        *         ON ENTRY:                                                      LISTIO    748
                                        *                X7 = 0 IF UNIT/ 1 IF PARITY                             LISTIO    749
                                        *                                                                        LISTIO    750
                                        *         ON EXIT:                                                       LISTIO    751
                                        *                X3 = 0 IF VARIABLE PARITY, ELSE X1 = BINARY NUMBER      LISTIO    752
                                        *                                                                        LISTIO    753
           563  0400400563 +             UNITN    ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    754
           564  5170000560 +                      SA7    UNITF             SAVE UNIT/PARITY FLAG                 LISTIO    755
                          5150000032              GETE                     GET E LIST ELEMENT                    LISTIO    756
                          0420000604 +            IF.EQ  CON,UNITN.C       IF A CONSTANT                         LISTIO    757
           566  0525000561 +                      IF.NE  NAME,UNITN.E      IF NOT A NAME                         LISTIO    758
                                                                                                                 LISTIO    759
                                        *         PROCESS VARIABLE UNIT/PARITY INDICATOR                         LISTIO    760
                                                                                                                 LISTIO    761
                          55445                   NEXTE                    GET NEXT E                            LISTIO    762
           567  6130000002                        IF.EQ  EL.),UNITN1                                             LISTIO    763
           570  6130000003                        IF.NE  EL.COMMA,UNITN.E  IF NOT A ) OR ,                       LISTIO    764
                                                                                                                 LISTIO    765
           571  76750                    UNITN1   SX7    B5                                                      LISTIO    766
                     76350                        SX3    B5                                                      LISTIO    767
                          5170000000 +            SA7    IXFNCL      PROCESSING UNIT NAME IN READ/WRITE          LISTIO    768
           572  7120000001                        IXFN   FREF              PROCESS NAME                          LISTIO    769
           573  6160000032                        CFSIV  E.BUN             CHECK FOR A SIMPLE INTEGER VARIABLE   LISTIO    770
           574  66400                             SB4    B0                SET FOR FILE/PARITY NAME              LISTIO    771
                     66750                        SB7    B5                                                      LISTIO    772
                          0100000267 +            RJ     PVARNAM           PROCESS FILE/PARITY NAME              LISTIO    773
           575  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO    774
           603  43300                             MX3    0                 RESULT OF CFSIV CALL                  LISTIO    775
                     0400000563 +                 EQ     UNITN             EXIT IF OK                            LISTIO    776
                                                                                                                 LISTIO    777
                                        *         PROCESS CONSTANT UNIT/PARITY INDICATOR                         LISTIO    778
                                        *         UNIT NUMBER - CONVERT FILE NAME TO TAPEN# AND CALL PLFN        LISTIO    779
                                                                                                                 LISTIO    780
           604  75645                    UNITN.C  UPDATE                   ADVANCE E-LIST POINTER                LISTIO    781
                          21155                   AX1    45                                                      LISTIO    782
           605  7221777776                        SX2    X1-T.INT                                                LISTIO    783
                          0312000561 +            NZ     X2,UNITN.E        IF NOT TYPE INTEGER                   LISTIO    784
           606  10144                             BX1    X4                                                      LISTIO    785
                     67105                        SB1    -B5                                                     LISTIO    786
                          0100000000 X            RJ     CONVERT           CONVERT TO BINARY                     LISTIO    787
           607  5130000560 +                      SA3    UNITF                                                   LISTIO    788
                          0313000563 +            NZ     X3,UNITN          EXIT IF PARITY                        LISTIO    789
           610  7120000144                        =X2    UNITLIM                                                 FCC1286     6
                          37212                   IX2    X1-X2                                                   FCC1286     7
           611  0322000562 +                      PL     X2,UNITN.B  IF UNIT NUMBER .GT. 99 (ERROR)              FCC1286     8
                          6110000001              SB1    1                                                       LISTIO    792
           612  0100000000 X                      CALL   CDD               RETURNS (X6) = DPC CONVERTED INTEGER  LISTIO    793
           613  5120000557 +                      SA2    TAPEN                                                   LISTIO    794
                          7170000003              SX7    1R"C"-1R                                                LISTIO    795
           614  66510                             SB5    B1                                                      LISTIO    796
                     20606                        LX6    6                                                       LISTIO    797
                          6130000022              SB3    18                                                      LISTIO    798
           615  36667                             IX6    X6+X7             NN"C"                                 LISTIO    799
                     67432                        SB4    B3-B2                                                   LISTIO    800
                          22546                   LX5    B4,X6             POSITION TO BIT 24                    LISTIO    801
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    20
         UNITN - PROCESS UNIT NUMBER
  
                               43044              MX0    36                                                      LISTIO    802
           616  15450                             BX4    -X0*X5            4R NN"C"                              LISTIO    803
                     12124                        BX1    X2+X4             8RTAPENN"C"                           LISTIO    804
                          0100000704 +            RJ     PLFN              PROCESS THE FILE NAME                 LISTIO    805
           617  0400000563 +                      EQ     UNITN                                                   LISTIO    806
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    21
         UNITN - PROCESS UNIT NUMBER
  
                                        ***                                                                      LISTIO    808
                                        *         PLFN - PROCESS FILE NAME                                       LISTIO    809
                                        *                                                                        LISTIO    810
                                        *         ON ENTRY:                                                      LISTIO    811
                                        *                X1 = 8R_FILE NAME                                       LISTIO    812
                                        *                                                                        LISTIO    813
                                                                                                                 LISTIO    814
           620  5130000000 X             PLFN1    SA3    F.LFN             FILE NAME BITS                        LISTIO    815
                          12732                   BX7    X3+X2                                                   LISTIO    816
                               54720              SA7    A2                UPDATE WORD B OF SYMTAB               LISTIO    817
                                                                                                                 LISTIO    818
           621  74720                             SX7    A2                                                      FCC1670X    8
                     5170000713 +                 SA7    LFNA        SAVE ADDRESS OF WORD B                      FCC1670X    9
           622  5160000714 +                      SA6    LFNB        SAVE I/O FILE NAME                          FCC1670X   10
                                                                                                                 LISTIO    821
                          5130000000 X            SA3    F.LFN                                                   LISTIO    822
           623  5140000056                        SA4    PROGRAM                                                 LISTIO    823
                          20305                   LX3    59-P.EXT                                                LISTIO    824
                               26074              UX0    B7,X4                                                   LISTIO    825
           624  0333000656 +                      NG     X3,PLFN2          IF FILES OPTION NOT SELECTED          LISTIO    826
                                                                                                                 LISTIO    827
                                        *         FILES OPTION - ENTER FILE NAME IN CON TABLE                    LISTIO    828
                                                                                                                 LISTIO    829
                          76610                   MP=    S2,B1             SAVE SYMTAB ORDINAL                   LISTIO    830
                                                                                                                 LISTIO    831
                          43001                   MX0    1                 DELETE TRAILING BLANKS FROM THE NAME  LISTIO    832
           626  6170000022                        SB7    18                                                      LISTIO    833
                          43766                   MX7    60-6                                                    LISTIO    834
           627  23271                   +         AX2    B7,X1                                                   LISTIO    835
                     15327                        BX3    -X7*X2                                                  LISTIO    836
                          7243777722              SX4    X3-1R                                                   LISTIO    837
           630  6177000006                        SB7    B7+6                                                    LISTIO    838
                          0304000627 +            ZR     X4,*-1            LOOP IF A BLANK                       LISTIO    839
           631  6177777704                        SB7    B7-59             DELETE TRAILING "C" CHARACTER         LISTIO    840
                          22070                   LX0    B7,X0             MASK(LNAME)                           LISTIO    841
                               11101              BX1    X0*X1             EXTRACT NAME                          LISTIO    842
           632  66150                             SB1    B5                                                      LISTIO    843
                     0100000000 X                 CALL   CONVERT           ENTER IN THE CONTABLE                 LISTIO    844
           633  73610                             SX6    X1                SYMTAB ORD                            LISTIO    845
                     5130000105 +                 FORMARG NAME,1                                                 LISTIO    846
                               21136              AX1    30                                                      LISTIO    847
           637  73610                             SX6    X1                CA                                    LISTIO    848
                     5130000105 +                 FORMARG OCT,2                                                  LISTIO    849
                               76650              SX6    B5                                                      LISTIO    850
           643  5130000105 +                      FORMARG INT,5                                                  LISTIO    851
           647  5130000012 +                      SA3    LDFLAG                                                  LISTIO    852
                          73630                   SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE            LISTIO    853
           650  0306000654 +                      ZR     X6,PLFN1A   IF NOT WRITE OR PUNCH                       LISTIO    854
                          5130000105 +            FORMARG INT,6                                                  LISTIO    855
                                                                                                                 LISTIO    856
           654                           PLFN1A   BSS    0                                                       LISTIO    857
           654  5110000027 +                      SA1    MACLS2                                                  LISTIO    858
                          63110                   SB1    X1                RESTORE B1                            LISTIO    859
           655  0400000667 +                      EQ     PLFN3                                                   LISTIO    860
                                                                                                                 LISTIO    861
           656  76610                    PLFN2    SX6    B1                SYMTAB ORDINAL                        LISTIO    862
                     5130000105 +                 FORMARG NAME,1                                                 LISTIO    863
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    22
         UNITN - PROCESS UNIT NUMBER
  
           662  5130000012 +                      SA3    LDFLAG                                                  LISTIO    864
                          73630                   SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE            LISTIO    865
           663  0306000667 +                      ZR     X6,PLFN3    IF NOT WRITE OR PUNCH                       LISTIO    866
                          5130000105 +            FORMARG INT,6                                                  LISTIO    867
                                                                                                                 LISTIO    868
           667  5150000000 X             PLFN3    SA5    RSELECT                                                 LISTIO    869
                          0305000671 +            ZR     X5,PLFN4          IF R = 0                              LISTIO    870
           670  5120000073 +                      SA2    IOFLAG            READ/WRITE/POS FLAG                   LISTIO    871
                          0100000000 X            RJ     ADDREF            ADD A REFERENCE TO THE FILE           LISTIO    872
                                                                                                                 LISTIO    873
           671  7160000000 X             PLFN4    FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO    874
           677  5130000056                        SA3    PROGRAM                                                 FCC1670X   11
                          26673                   UX6    B7,X3                                                   FCC1670X   12
           700  0570000704 +                      NZ     B7,PLFN     IF NOT A MAIN PROGRAM                       FCC1670X   13
                          5130000714 +            SA3    LFNB                                                    FCC1670X   14
           701  0303000704 +                      ZR     X3,PLFN     IF I/O FILE DEFINED                         FCC1670X   15
                          13444                   POSTER NR=E.IOND,SEV=INF,FMT=DPC,TXT=X3                        FCC1670X   16
                                                                                                                 LISTIO    875
           704  0400400704 +             PLFN     ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    876
           705  6170000706 +                      SYMBOL   ,PLFN5                                                FCC1670X   17
           706  0400000710 +             PLFN5    EQ     PLFN6                                                   FCC1670X   18
                                                                                                                 FCC1670X   19
           707  0400000712 +             +        EQ     PLFN7                                                   FCC1670X   20
                                                                                                                 FCC1670X   21
           710  10311                    PLFN6    BX3    X1                                                      FCC1670X   22
                     21322                        AX3    18                                                      FCC1670X   23
                          5140003031 +            SA4    =3L                                                     FCC1670X   24
           711  12643                             BX6    X4+X3       (X6) = TAPE NUMBER                          FCC1670X   25
                     0400000620 +                 EQ     PLFN1                                                   FCC1670X   26
                                                                                                                 FCC1670X   27
           712  43600                    PLFN7    MX6    0                                                       FCC1670X   28
                     0400000621 +                 EQ     PLFN1+1                                                 FCC1670X   29
                                                                                                                 FCC1670X   30
                                                                                                                 LISTIO    878
           713  00000000000000000000     LFNA     DATA   0           ADDRESS OF WORD B                           FCC1670X   31
           714  00000000000000000000     LFNB     DATA   0           I/O DEVICE NUMBER(H FORMAT)                 FCC1670X   32
                                        ***                                                                      LISTIO    880
                                        *         SFMODE - SET FILE MODE BITS                                    LISTIO    881
                                        *         ON ENTRY:   X5 = BIT TO BE SET RIGHT JUSTIFIED                 LISTIO    882
                                        *                                                                        LISTIO    883
           715  0400400715 +             SFMODE   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    884
           716  5140000713 +                      SA4    LFNA                                                    LISTIO    885
                          0304000715 +            ZR     X4,SFMODE         EXIT IF LAST OP USED A VARIABLE UNITN LISTIO    886
           717  53440                             SA4    X4                                                      LISTIO    887
                     20551                        LX5    P.FMODE                                                 LISTIO    888
                          12654                   BX6    X5+X4                                                   LISTIO    889
                               54640              SA6    A4                                                      LISTIO    890
           720  0400000715 +                      EQ     SFMODE                                                  LISTIO    891
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    23
         UNITN - PROCESS UNIT NUMBER                                  IOCM
  
                                        **        IOCM - OUTPUT CALL TO I/O ROUTINE                              LISTIO    893
                                        *                                                                        F162FTNA  931
                                        *         ENTRY  (X1) = 12/2000B+STLTAB ORD, 48/8R RUN-TIME I/O ROUTINE  F162FTNA  932
                                                                                                                 LISTIO    895
           721  60                       IOCMA    VFD    L.TYP/T.CGS                                             LISTIO    896
                                  67              POS    P.EXT+1                                                 LISTIO    897
                 1                                VFD    1/1                                                     LISTIO    898
                                  54              POS    P.IOF+1                                                 LISTIO    899
                     200000000000000              VFD    1/1,*P/0                                                LISTIO    900
                                                                                                                 LISTIO    901
           722  0400400722 +             IOCM     ENTRY. *                                                       LISTIO    902
           723  26121                             UX1,B2 X1                                                      F162FTNA  933
                     0720000725 +                 MI     B2,IOCM2    IF *LDSET USE=* NOT NEEDED                  F162FTNA  934
                               43601              MX6    1           SELECT DECK NAME FOR STATIC LOAD DIRECTIVE  F162FTNA  935
           724  5122000000 X                      SA2    =XSTLTAB+B2                                             F162FTNA  936
                          12662                   BX6    X6+X2                                                   F162FTNA  937
                               54620              SA6    A2                                                      F162FTNA  938
           725  6170000726 +             IOCM2    SYMBOL                                                         F162FTNA  939
           726  5130000721 +                      SA3    IOCMA                                                   LISTIO    904
                          12732                   BX7    X3+X2       SET EXT AND IOF BITS                        LISTIO    905
                               54720              SA7    A2                                                      LISTIO    906
           727  5130000006 +                      SA3    IONAME                                                  LISTIO    907
                          21322                   AX3    18                                                      LISTIO    908
                               53130              SA1    X3                MACRO HEADER                          LISTIO    909
           730  5140000000 X                      SA4    IOAPLN                                                  LISTIO    910
                          10611                   BX6    X1                                                      LISTIO    911
           731  5160000107 +                      SA6    MACBUF             BUFFER FOR MACRO                     LISTIO    912
                          76110                   SX1    B1                                                      LISTIO    913
           732  7234300000                        SX3    X4+I.IO                                                 LISTIO    914
                          5120000037              SA2    CDCNT             LINE NUMBER                           LISTIO    915
           733  20336                             LX3    30                                                      LISTIO    916
                     12731                        BX7    X3+X1                                                   LISTIO    917
                          54765                   SA7    A6+B5             WORD 1 OF MACRO                       LISTIO    918
                               10722              BX7    X2                                                      LISTIO    919
           734  54775                             SA7    A7+B5                                                   LISTIO    920
                     6170000107 +                 WRM    MACBUF      I/O CALL MACRO TO RLIST                     LISTIO    921
           736  0400000722 +                      EQ     IOCM                                                    LISTIO    922
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    24
         ENDFILE, BACKSPACE AND REWIND STMT PROCESSING
  
                                        *         ENDFILE - PROCESS "ENDFILE" STATEMENT                          LISTIO    925
                                                                                                                 LISTIO    926
           737  00000000000000000000     ENDFILE  ENTRY.                                                         LISTIO    927
           740  0100000205 +                      RJ     IOSETUP                                                 LISTIO    928
           741  5110000070 +                      SA1    ENDFTAB                                                 F162FTNA  940
                          0100000753 +            RJ     PERB                                                    LISTIO    930
           742  0400000737 +                      EQ     ENDFILE                                                 LISTIO    931
                                                                                                                 LISTIO    932
                                        *         REW - PROCESS "REWIND" STATEMENT                               LISTIO    933
                                                                                                                 LISTIO    934
           743  00000000000000000000     REW      ENTRY.                                                         LISTIO    935
           744  0100000205 +                      RJ     IOSETUP                                                 LISTIO    936
           745  5110000071 +                      SA1    REWTAB                                                  F162FTNA  941
                          0100000753 +            RJ     PERB                                                    LISTIO    938
           746  0400000743 +                      EQ     REW                                                     LISTIO    939
                                                                                                                 LISTIO    940
                                        *         BKSP - PROCESS "BACKSPACE" STATEMENT                           LISTIO    941
                                                                                                                 LISTIO    942
           747  00000000000000000000     BKSP     ENTRY.                                                         LISTIO    943
           750  0100000205 +                      RJ     IOSETUP                                                 LISTIO    944
           751  5110000072 +                      SA1    BKSPTAB                                                 F162FTNA  942
                          0100000753 +            RJ     PERB                                                    LISTIO    946
           752  0400000747 +                      EQ     BKSP                                                    LISTIO    947
  
  
  
                                        ***                                                                      LISTIO    949
                                        *         PERB - COMMON PROCESSOR FOR ENDFILE,REWIND AND BACKSPACE       LISTIO    950
                                        *         STATEMENTS                                                     LISTIO    951
                                        *                                                                        LISTIO    952
                                        *         ON ENTRY:                                                      LISTIO    953
                                        *                X1 = NAME OF EXECUTION TIME ROUTINE                     LISTIO    954
                                        *                                                                        LISTIO    955
           753  0400400753 +             PERB     ENTRY. *                 ** ENTRY/EXIT **                      LISTIO    956
           754  43600                             MX6    0                                                       LISTIO    957
                     5160000012 +                 SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                    LISTIO    958
                               10711              BX7    X1                                                      LISTIO    959
           755  5170000103 +                      SA7    TEMP              SAVE NAME OF ROUTINE                  LISTIO    960
                          76650                   SX6    B5                                                      LISTIO    961
           756  5160000073 +                      SA6    IOFLAG            SET FOR POSITIONING REF               LISTIO    962
                          0100000000 X            RJ     DOCALL            INFORM DO PROCESSOR OF EXT CALL       LISTIO    963
                                                                                                                 LISTIO    964
           757  5150000032                        SA5    SELIST                                                  LISTIO    965
                          5245777776              SA4    X5-1                                                    LISTIO    966
           760  26124                             UX1    B2,X4                                                   LISTIO    967
                     6130000004                   IF.NE  EL.EOS,IOERR      IF NOT AN EOS AFTER FILE NAME/NUMBER  LISTIO    968
                          7160002002              SX6    2000B+EL.)                                              LISTIO    969
           762  20660                             LX6    48                                                      LISTIO    970
                     54640                        SA6    A4                FUDGE IT FOR UNITN                    LISTIO    971
                          43700                   MX7    0                                                       LISTIO    972
                               43674              MX6    60                                                      LISTIO    973
           763  5160000074 +                      SA6    PIOFLAG                                                 LISTIO    974
                          0100000563 +            RJ     UNITN             PROCESS THE UNIT NUMBER               LISTIO    975
           764  0100002727 +                      RJ     IIR         SHOW USE OF VAR UNIT NUMBER                 FCC0728     9
           765  5110000103 +                      SA1    TEMP              ROUTINE NAME                          LISTIO    976
                          7160000020 +            SX6    GEFCM             MACRO HEADER ADDRESS                  LISTIO    977
           766  20622                             LX6    18                                                      LISTIO    978
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    25
         ENDFILE, BACKSPACE AND REWIND STMT PROCESSING
  
                     5160000006 +                 SA6    IONAME                                                  LISTIO    979
           767  0100000722 +                      RJ     IOCM              GO OUTPUT MACRO TO RLIST              LISTIO    980
           770  43600                             MX6    0                                                       LISTIO    981
                     5160000006 +                 SA6    IONAME            CLEAR FOR NEXT I/O STMT               LISTIO    982
           771  0400000753 +                      EQ     PERB                                                    LISTIO    983
                                                                                                                 LISTIO    984
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    26
        PRINT AND PUNCH STMT PROCESSING 
  
                                        *         THE FOLLOWING ARE CONSIDERED TO BE ALTERNATE FORMS.            LISTIO    985
                                        *           PRINT( )                                                     LISTIO    986
                                        *           PUNCH( )                                                     LISTIO    987
                                                                                                                 LISTIO    988
                                        *         PUNCH N,LIST                                                   LISTIO    990
                                                                                                                 LISTIO    991
           772  43702                    PUNCH.L  MX7    2                                                       LISTIO    992
                     20701                        LX7    1           PUNCH AND ALTERNATE FORM BITS ARE SET       LISTIO    993
                          5170000012 +            SA7    LDFLAG                                                  LISTIO    994
           773  6160777633                        ASAERR             PUNCH( ) NON-ANSI                           LISTIO    995
           775  43600                             MX6    0                                                       LISTIO    996
                     0100001077 +                 RJ     PRORW                                                   LISTIO    997
                                                                                                                 LISTIO    998
           776  00000000000000000000     PUNCH    ENTRY.                                                         LISTIO    999
           777  0100000205 +                      RJ     IOSETUP                                                 LISTIO   1000
          1000  5150000032                        GETE                                                           LISTIO   1001
          1001  6130000006                        IF.EQ  EL.(,PUNCH.L                                            LISTIO   1002
          1002  76750                             SX7    B5          PUNCH BIT SET                               LISTIO   1003
                     5170000012 +                 SA7    LDFLAG                                                  LISTIO   1004
          1003  5110003032 +                      SA1    =8RPUNCH"C"       FILE NAME                             LISTIO   1005
                          0100001021 +            RJ     PROFL                                                   LISTIO   1006
          1004  0400000776 +                      EQ     PUNCH                                                   LISTIO   1007
                                                                                                                 LISTIO   1008
                                        *         PRINT N,LIST                                                   LISTIO   1009
                                                                                                                 LISTIO   1010
          1005  6160777633               PRINT.L  ASAERR             PRINT( ) NON-ANSI                           LISTIO   1011
          1007  43701                             MX7    1                                                       LISTIO   1012
                     5170000012 +                 SA7    LDFLAG      ALTERNATE FORM BIT SET                      LISTIO   1013
                               43600              MX6    0                                                       LISTIO   1014
          1010  0100001077 +                      RJ     PRORW                                                   LISTIO   1015
                                                                                                                 LISTIO   1016
          1011  00000000000000000000     PRINT    ENTRY.                                                         LISTIO   1017
          1012  0100000205 +                      RJ     IOSETUP                                                 LISTIO   1018
          1013  5150000032                        GETE                                                           LISTIO   1019
          1014  6130000006                        IF.EQ  EL.(,PRINT.L                                            LISTIO   1020
          1015  43600                             MX6    0                                                       LISTIO   1021
                     5160000012 +                 SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                    LISTIO   1022
          1016  5110003033 +                      SA1    =8ROUTPUT"C"      FILE NAME                             LISTIO   1023
                          0100001021 +            RJ     PROFL                                                   LISTIO   1024
          1017  0400001011 +                      EQ     PRINT                                                   LISTIO   1025
  
  
  
                                        **        PROFL - PROCESS I/O STMTS OF THE FORM  "KEYWORD" N,LIST        LISTIO   1027
                                        *         ENTRY  (X1) = 12/IOFLAG,48/8R_NAME OF ASSOC FILE               LISTIO   1028
                                                                                                                 LISTIO   1029
          1020  0100000241 +             PROFL.N  RJ     NAMLIST                                                 LISTIO   1030
                                                                                                                 LISTIO   1031
          1021  0400401021 +             PROFL    ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   1032
          1022  43014                             MX0    12                                                      LISTIO   1033
                     11601                        BX6    X0*X1                                                   LISTIO   1034
                          5160000073 +            SA6    IOFLAG            SET I/O FLAG                          LISTIO   1035
          1023  5160000102 +                      SA6    END=                                                    LISTIO   1036
                          43774                   MX7    60                                                      LISTIO   1037
          1024  5170000074 +                      SA7    PIOFLAG                                                 LISTIO   1038
                          0100000704 +            RJ     PLFN              PROCESS THE FILE NAME                 LISTIO   1039
          1025  6160777633                        ASAERR                   FLAG NON USAS USEAGE                  LISTIO   1040
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    27
        PRINT AND PUNCH STMT PROCESSING 
  
          1027  0100000000 X                      RJ     DOCALL                                                  LISTIO   1041
          1030  5140001052 +                      SA4    COMMA                                                   LISTIO   1042
                          5150000032              SA5    SELIST            STORE COMMA IN SELIST-1 TO AVOID      LISTIO   1043
          1031  10644                             BX6    X4                GETTING UNWANTED INFORMATIVE          LISTIO   1044
                     53655                        SA6    X5+B5             DIAGNOSTIC FROM ARITH                 LISTIO   1045
                          0100000455 +            RJ     FMTNO             PROCESS THE FORMAT NUMBER             LISTIO   1046
          1032  0300001020 +                      ZR     X0,PROFL.N        IF NAMELIST                           LISTIO   1047
                          10633                   BX6    X3                                                      LISTIO   1048
          1033  5160000174 +                      SA6    SNTI        SAVE NAME-TABLE INDEX                       LISTIO   1049
                                                                                                                 LISTIO   1050
                          5150000032              GETE                     GET NEXT E-LIST ELEMENT               LISTIO   1051
                          6130000004              IF.NE  EL.EOS,PROFL1  IF NOT EOS                               FCC1068     6
                          5120000012 +            SA2    LDFLAG                                                  FCC1068     7
          1036  0302001045 +                      ZR     X2,PROFL2   IF NO IOLIST, AND NOT LIST DIRECTED IO      FCC1068     8
                          0400001471 +            EQ     IOERR       IF NO IOLIST, AND LIST DIR IO.              FCC1068     9
          1037  6130000003               PROFL1   IF.NE  EL.COMMA,IOERR  ERROR IF NOT A ,                        FCC1068    10
          1040  6130000003                        IF.NE  EL.COMMA,IOERR    ERROR IF NOT A ,                      LISTIO   1053
          1041  75645                             UPDATE                                                         LISTIO   1054
                          5150000032              GETE                                                           LISTIO   1055
                          6130000004              IF.EQ  EL.EOS,IOERR                                            FEAT155B   35
                          6130000003              IF.EQ  EL.COMMA,IOERR    IF A COMMA PRECEDING LIST             LISTIO   1057
                                                                                                                 LISTIO   1058
          1045  5120000073 +             PROFL2   SA2    IOFLAG                                                  FCC1068    11
                          5130000174 +            SA3    SNTI                                                    LISTIO   1060
          1046  20203                             LX2    3                 0 OR 4                                LISTIO   1061
                     23752                        AX7    B5,X2             0 OR 2                                LISTIO   1062
                          12227                   BX2    X2+X7             0 OR 6                                LISTIO   1063
                               36023              IX0    X2+X3                                                   LISTIO   1064
          1047  5210000044 +                      SA1    IOTAB+X0          ADDRESS OF ROUTINE NAMES              LISTIO   1065
                          0100001475 +            RJ     IOLIST            PROCESS THE I/O LIST                  LISTIO   1066
          1050  0400001021 +                      EQ     PROFL                                                   LISTIO   1067
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    28
         READ AND WRITE STMT PROCESSING 
  
          1051  40001116202524605555     INPUTF   VFD    12/1S11,48/8RINPUT"C"                                   LISTIO   1073
          1052  20030000000000000000     COMMA    VFD    12/2003B,48/0     ELIST REPRESENTATION FOR A COMMA      LISTIO   1074
                                                                                                                 LISTIO   1075
                                        ***                                                                      LISTIO   1076
                                        *         READ - PROCESS READ STATEMENTS                                 LISTIO   1077
                                        *                                                                        LISTIO   1078
                                        *         SYNTAX:                                                        LISTIO   1079
                                        *                READ N,LIST       CODED READ OF INPUT                   LISTIO   1080
                                        *                READ (U) LIST     BINARY                                LISTIO   1081
                                        *                READ (U,N) LIST   CODED                                 LISTIO   1082
                                        *                READ (U,X)        NAMELIST READ                         LISTIO   1083
                                        *                                                                        LISTIO   1084
                                                                                                                 LISTIO   1085
          1053  5110001051 +             READ.F   SA1    INPUTF            FILE NAME AND FLAG                    LISTIO   1086
                          0100001021 +            RJ     PROFL                                                   LISTIO   1087
          1054  00000000000000000000     READ     ENTRY.                                                         LISTIO   1088
          1055  0100000205 +                      RJ     IOSETUP                                                 LISTIO   1089
          1056  43600                             MX6    0                                                       LISTIO   1090
                     5160000012 +                 SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                    LISTIO   1091
          1057  5150000032                        GETE                     GET FIRST E-LIST ELEMENT              LISTIO   1092
          1060  6130000006                        IF.NE  EL.(,READ.F       IF FIRST IS NOT A (                   LISTIO   1093
          1061  43601                             MX6    1                                                       LISTIO   1094
                     0100001077 +                 RJ     PRORW                                                   LISTIO   1095
          1062  0400001054 +                      EQ     READ                                                    LISTIO   1096
  
  
  
                                        ***                                                                      LISTIO   1098
                                        *         WRITE - PROCESS WRITE STATEMENTS                               LISTIO   1099
                                        *                                                                        LISTIO   1100
                                        *         SYNTAX:                                                        LISTIO   1101
                                        *                WRITE (U) LIST    BINARY WRITE                          LISTIO   1102
                                        *                WRITE (U,F) LIST  CODED WRITE                           LISTIO   1103
                                        *                WRITE (U,X)       NAMELIST WRITE                        LISTIO   1104
                                                                                                                 LISTIO   1105
          1063  7170000001               WRITE.L  SX7    1           WRITE BIT SET                               LISTIO   1106
                          5110003033 +            SA1    =8ROUTPUT"C"                                            LISTIO   1107
          1064  5170000012 +                      SA7    LDFLAG                                                  LISTIO   1108
                          0100001021 +            RJ     PROFL                                                   LISTIO   1109
                                                                                                                 LISTIO   1110
          1065  00000000000000000000     WRITE    ENTRY.                                                         LISTIO   1111
          1066  0100000205 +                      RJ     IOSETUP                                                 LISTIO   1112
          1067  5150000032                        GETE                                                           LISTIO   1113
          1070  6130000006                        IF.NE  EL.(,WRITE.L                                            LISTIO   1114
          1071  76750                             SX7    B5          WRITE BIT SET                               LISTIO   1115
                     5170000012 +                 SA7    LDFLAG                                                  LISTIO   1116
                               43600              MX6    0                                                       LISTIO   1117
          1072  0100001077 +                      RJ     PRORW                                                   LISTIO   1118
          1073  0400001065 +                      EQ     WRITE                                                   LISTIO   1119
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    29
         READ AND WRITE STMT PROCESSING 
  
                                        ***                                                                      LISTIO   1121
                                        *         PRORW - PROCESS I/O STMTS OF THE FORM "KEYWORD" ( ), LIST      LISTIO   1122
                                        *                                                                        LISTIO   1123
                                        *         ON ENTRY:                                                      LISTIO   1124
                                        *                X6 = VALUE OF IOFLAG ( 0 OR 1S59 )                      LISTIO   1125
                                        *                                                                        LISTIO   1126
                                                                                                                 LISTIO   1127
          1074  0100000241 +             PRORW.N  RJ     NAMLIST           PROCESS NAMLIST I/O                   LISTIO   1128
          1075  6160777633                        ASAERR                                                         LISTIO   1129
                                                                                                                 LISTIO   1130
          1077  0400401077 +             PRORW    ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   1131
          1100  5160000073 +                      SA6    IOFLAG                                                  LISTIO   1132
                          5160000102 +            SA6    END=                                                    LISTIO   1133
          1101  43774                             MX7    60                                                      LISTIO   1134
                     5170000074 +                 SA7    PIOFLAG                                                 LISTIO   1135
          1102  0100000000 X                      RJ     DOCALL            INFORM DO PROCESSOR OF EXT CALL       LISTIO   1136
          1103  5150000032                        ADVIN                    ADVANCE E-LIST POINTER                LISTIO   1137
                          6130000006              IF.NE  EL.(,IOERR        ERROR IF NOT A (                      LISTIO   1138
                          43700                   MX7    0                                                       LISTIO   1139
          1106  5170000713 +                      SA7    LFNA                                                    LISTIO   1140
                          0100000563 +            RJ     UNITN             PROCESS UNIT NUMBER                   LISTIO   1141
                                                                                                                 LISTIO   1142
          1107  5150000032                        ADVIN                                                          LISTIO   1143
                          6130000002              IF.EQ  EL.),PRORW.B      IF A BINARY OPERATION                 LISTIO   1144
                          6130000003              IF.NE  EL.COMMA,IOERR    ERROR IF NOT A ,                      LISTIO   1145
                          0100000455 +            RJ     FMTNO             PROCESS FORMAT NUMBER                 LISTIO   1146
                                                                                                                 LISTIO   1147
          1113  5150000032                        ADVIN                    ADVANCE E-LIST POINTER                LISTIO   1148
                          6130000002              IF.NE  EL.),IOERR        ERROR IF NOT A )                      LISTIO   1149
                          0300001074 +            ZR     X0,PRORW.N        IF A NAMELIST OP                      LISTIO   1150
                                                                                                                 LISTIO   1151
          1116  5120000073 +                      SA2    IOFLAG                                                  LISTIO   1152
          1117  20203                    PRORW1   LX2    3                 0 OR 4                                LISTIO   1153
                     23752                        AX7    B5,X2             0 OR 2                                LISTIO   1154
                          12227                   BX2    X2+X7             0 OR 6                                LISTIO   1155
                               36023              IX0    X2+X3                                                   LISTIO   1156
          1120  5150000032                        GETE                                                           LISTIO   1157
          1121  6130000003                        IF.EQ  EL.COMMA,IOERR    IF A COMMA PRECEDING LIST             LISTIO   1158
          1122  5210000044 +                      SA1    IOTAB+X0          ADDRESS OF ROUTINE NAMES              LISTIO   1159
                          0100001475 +            RJ     IOLIST                                                  LISTIO   1160
          1123  0400001077 +                      EQ     PRORW                                                   LISTIO   1161
                                                                                                                 LISTIO   1162
          1124  5130000012 +             PRORW.B  SA3    LDFLAG                                                  LISTIO   1163
                          0333001471 +            MI     X3,IOERR    IF OF ALTERNATE FORM                        LISTIO   1164
          1125  76555                             FMODE  ^FMT        SET THE FILE MODE                           LISTIO   1165
          1126  5120000073 +                      SA2    IOFLAG                                                  LISTIO   1166
                          43300                   MX3    0                                                       LISTIO   1167
          1127  0400001117 +                      EQ     PRORW1                                                  LISTIO   1168
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    30
         BUFFER IN/OUT STMT PROCESSING
  
                                        *         BUFIN - PROCESS "BUFFER IN" STATEMENT                          LISTIO   1170
                                                                                                                 LISTIO   1171
          1130  00000000000000000000     BUFIN    ENTRY.                                                         LISTIO   1172
          1131  0100000205 +                      RJ     IOSETUP                                                 LISTIO   1173
          1132  43701                             MX7    1                                                       LISTIO   1174
                     0100001140 +                 RJ     PBUF                                                    LISTIO   1175
          1133  0400001130 +                      EQ     BUFIN                                                   LISTIO   1176
                                                                                                                 LISTIO   1177
                                        *         BUFOUT - PROCESS "BUFFER OUT" STATEMENT                        LISTIO   1178
                                                                                                                 LISTIO   1179
          1134  00000000000000000000     BUFOUT   ENTRY.                                                         LISTIO   1180
          1135  0100000205 +                      RJ     IOSETUP                                                 LISTIO   1181
          1136  43700                             MX7    0                                                       LISTIO   1182
                     0100001140 +                 RJ     PBUF                                                    LISTIO   1183
          1137  0400001134 +                      EQ     BUFOUT                                                  LISTIO   1184
  
  
  
                                        ***                                                                      LISTIO   1186
                                        *         PBUF - COMMON PROCESSOR FOR BUFFER IN/OUT STATEMENTS           LISTIO   1187
                                        *                                                                        LISTIO   1188
                                        *         SYNTAX:                                                        LISTIO   1189
                                        *                BUFFER XX (U,P) (FWA,LWA)                               LISTIO   1190
                                        *                                                                        LISTIO   1191
                                                                                                                 LISTIO   1192
          1140  0400401140 +             PBUF     ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   1193
          1141  43600                             MX6    0                                                       LISTIO   1194
                     5160000012 +                 SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                    LISTIO   1195
          1142  5170000073 +                      SA7    IOFLAG            SET I/O FLAG                          LISTIO   1196
                          43674                   MX6    60                                                      LISTIO   1197
          1143  5160000074 +                      SA6    PIOFLAG                                                 LISTIO   1198
                          0100000000 X            RJ     DOCALL            INFORM DO PROCESSOR                   LISTIO   1199
          1144  6160777633                        ASAERR                   FLAG NON USAS STMT                    LISTIO   1200
          1146  5150000032                        ADVIN                    SKIP LEADING (                        LISTIO   1201
                                                                                                                 LISTIO   1202
                          43700                   MX7    0                                                       LISTIO   1203
          1150  5170000713 +                      SA7    LFNA                                                    LISTIO   1204
                          0100000563 +            RJ     UNITN             PROCESS THE UNIT NUMBER               LISTIO   1205
          1151  7150000004                        FMODE  BUF               SET THE FILE MODE                     LISTIO   1206
                                                                                                                 LISTIO   1207
          1152  5150000032                        ADVIN                                                          LISTIO   1208
                          6130000003              IF.NE  EL.COMMA,IOERR    ERROR IF NOT A ,                      LISTIO   1209
                          7170000001              SX7    1                                                       LISTIO   1210
          1155  0100000563 +                      RJ     UNITN             PROCESS PARITY                        LISTIO   1211
          1156  0303001177 +                      ZR     X3,PBUF1          IF VARIABLE PARITY                    LISTIO   1212
                          7221777775              SX2    X1-2                                                    LISTIO   1213
          1157  6160777452                        SB6    -E.PIE                                                  LISTIO   1214
                          0322000240 +            PL     X2,IOERRX         IF PARITY \ 2                         LISTIO   1215
          1160  66150                             SB1    B5                                                      LISTIO   1216
                     0100000000 X                 RJ     CONVERT           PLACE PARITY INDICATOR IN CON TABLE   LISTIO   1217
          1161  73610                             SX6    X1                SYMTAB ORDIANL                        LISTIO   1218
                     5130000105 +                 FORMARG NAME,1                                                 LISTIO   1219
                               21136              AX1    30                                                      LISTIO   1220
          1165  73610                             SX6    X1                CA                                    LISTIO   1221
                     5130000105 +                 FORMARG OCT,2                                                  LISTIO   1222
          1171  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1223
                                                                                                                 LISTIO   1224
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    31
         BUFFER IN/OUT STMT PROCESSING
  
          1177  5150000032               PBUF1    GETE               GET NEXT E                                  FCC0614     6
          1200  6130000002                        IF.NE  EL.),IOERR        IF NOT A )                            LISTIO   1226
          1201  55445                             NEXTE                                                          FCC0614     7
                          75645                   UPDATE                                                         FCC0614     8
          1202  6130000006                        IF.NE  EL.(,IOERR        IF NOT A (                            LISTIO   1229
          1203  5120000073 +                      SA2    IOFLAG                                                  LISTIO   1230
                          43702                   MX7    2                                                       FCC0614     9
                               20701              LX7    1                                                       FCC0614    10
          1204  0302001206 +                      ZR     X2,PBUF1A   IF BUFFER OUT                               LISTIO   1231
                          43600                   MX6    0                                                       LISTIO   1232
          1205  5160000074 +                      SA6    PIOFLAG           FLAG WILL INDICATE DEF                LISTIO   1233
                                                                                                                 LISTIO   1234
          1206  76350                    PBUF1A   SX3    B5          NO EXPRESSION FLAG                          LISTIO   1235
                     76650                        SX6    B5                                                      LISTIO   1236
                          5170000013 +            SA7    BIO         FLAG BUFFER FWA                             FCC0614    11
          1207  5160000101 +                      SA6    CRFLAG      SPECIAL CASE CLASS REF CHECK                LISTIO   1238
                          5120000073 +            IXFN   IOFLAG            CALL IXFN TO OUTPUT A LOAD FOR FWA    LISTIO   1239
          1211  76710                             SX7    B1                SYMTAB ORD                            LISTIO   1240
                     5130000073 +                 SA3    IOFLAG                                                  LISTIO   1241
          1212  5170000103 +                      SA7    TEMP                                                    LISTIO   1242
                          0303001214 +            ZR     X3,PBUF2          IF NOT AN INPUT OP                    LISTIO   1243
          1213  12710                             BX7    X1+X0             SET DEFINED BIT                       LISTIO   1244
                     54710                        SA7    A1                                                      LISTIO   1245
                                                                                                                 LISTIO   1246
          1214  5140000001 +             PBUF2    SA4    APLRST                                                  LISTIO   1247
                          0304001221 +            ZR     X4,PBUF2A         STORE TO APLIST NOT NEEDED            LISTIO   1248
          1215  10722                             BX7    X2                                                      LISTIO   1249
                     5170000133 +                 SA7    LCMFG+1                                                 LISTIO   1250
                               66400              SB4    B0                WORD COUNT FOR WRITE CALL             LISTIO   1251
          1216  5170000106 +                      SA7    MACBUF-1          INITIALIZE A7 FOR STORES              LISTIO   1252
                          0100001320 +            RJ     PSTAPL            GENERATE STORE TO APLIST MACROS       LISTIO   1253
          1217  0100001332 +                      RJ     STIOM             ISSUE -1 APLIST MACRO WORD            LISTIO   1254
          1220  0400001230 +                      EQ     PBUF2B                                                  LISTIO   1255
                                                                                                                 LISTIO   1256
          1221  66450                    PBUF2A   SB4    B5                                                      LISTIO   1257
                     66750                        SB7    B5                                                      LISTIO   1258
                          0100000267 +            RJ     PVARNAM           PROCESS AS IF FORMAT NAME             LISTIO   1259
          1222  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1260
                                                                                                                 LISTIO   1261
          1230  5150000032               PBUF2B   ADVIN                                                          LISTIO   1262
                          6130000003              IF.NE  EL.COMMA,IOERR    IF NOT A ,                            LISTIO   1263
                          76350                   SX3    B5                NO EXPRESSION FLAG                    LISTIO   1264
                               43601              MX6    1                                                       LISTIO   1265
          1233  5160000013 +                      SA6    BIO               FLAG BUFFER LWA                       LISTIO   1266
                          5120000073 +            IXFN   IOFLAG            CALL IXFN TO LOAD LWA+1               LISTIO   1267
          1235  76710                             SX7    B1          SYMTAB ORD                                  LISTIO   1268
                     5130000073 +                 SA3    IOFLAG                                                  LISTIO   1269
          1236  5170000104 +                      SA7    TEMPA                                                   LISTIO   1270
                          0303001240 +            ZR     X3,PBUF3          IF NOT AN INPUT OP                    LISTIO   1271
          1237  12701                             BX7    X0+X1                                                   LISTIO   1272
                     54710                        SA7    A1                                                      LISTIO   1273
                                                                                                                 LISTIO   1274
          1240  5140000001 +             PBUF3    SA4    APLRST                                                  LISTIO   1275
                          0304001245 +            ZR     X4,PBUF3A         STORE TO APLIST NOT NEEDED            LISTIO   1276
          1241  10722                             BX7    X2                                                      LISTIO   1277
                     5170000132 +                 SA7    LCMFG                                                   LISTIO   1278
                               66400              SB4    B0                WORD COUNT FOR WRITE CALL             LISTIO   1279
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    32
         BUFFER IN/OUT STMT PROCESSING
  
          1242  5170000106 +                      SA7    MACBUF-1          INITIALIZE A7 FOR STORES              LISTIO   1280
                          0100001320 +            RJ     PSTAPL            GENERATE STORE TO APLIST MACROS       LISTIO   1281
          1243  0100001332 +                      RJ     STIOM             ISSUE -1 APLIST MACRO WORD            LISTIO   1282
          1244  0400001254 +                      EQ     PBUF3C                                                  LISTIO   1283
                                                                                                                 LISTIO   1284
          1245  66450                    PBUF3A   SB4    B5                                                      LISTIO   1285
                     66700                        SB7    B0                                                      LISTIO   1286
                          0100000267 +            RJ     PVARNAM           PROCESS AS IF FORMAT NAME             LISTIO   1287
          1246  7160000000 X                      FORMMAC  IOM       OUTPUT IOM TO COMPS                         LISTIO   1288
                                                                                                                 LISTIO   1289
          1254  5110000132 +             PBUF3C   SA1    LCMFG                                                   LISTIO   1290
                          54215                   SA2    A1+B5                                                   LISTIO   1291
                               13612              BX6    X1-X2                                                   LISTIO   1292
          1255  20672                             LX6    59-P.LCM                                                LISTIO   1293
                     0326001260 +                 PL     X6,PBUF4    IF LEVEL OF FWA AND LWA AGREE               LISTIO   1294
          1256  6160777453                        SB6    -E.BIO            ERROR IF FWA/LWA IN DIFFERENT LEVELS  LISTIO   1295
                          6170000000 X            SB7    PH2RETN                                                 LISTIO   1296
          1257  0400000000 X                      EQ     ERPRO                                                   LISTIO   1297
                                                                                                                 LISTIO   1298
          1260  5150000032               PBUF4    ADVIN                                                          LISTIO   1299
                          6130000002              IF.NE  EL.),IOERR        IF NOT A )                            LISTIO   1300
                          55445                   NEXTE                                                          LISTIO   1301
          1263  6130000004                        IF.NE  EL.EOS,IOERR      IF NOT EOS                            LISTIO   1302
                                                                                                                 LISTIO   1303
          1264  0100002727 +                      RJ     IIR         ISSUE IOLIST TABLE TO RLIST IF OPT=2        LISTIO   1304
          1265  5130000073 +                      SA3    IOFLAG                                                  LISTIO   1305
                          7160000020 +            SX6    GEFCM             MACRO HEADER ADDRESS                  LISTIO   1306
          1266  20301                             LX3    1                                                       LISTIO   1307
                     5213000066 +                 SA1    BUFFTAB+X3        NAME OF OBJECT ROUTINE                LISTIO   1308
                               20622              LX6    18                                                      LISTIO   1309
          1267  5160000006 +                      SA6    IONAME                                                  LISTIO   1310
                          0100000722 +            RJ     IOCM              OUTPUT MACRO                          LISTIO   1311
          1270  5150000103 +                      SA5    TEMP        SYMTAB ORD OF FWA                           LISTIO   1312
                          43600                   MX6    0                                                       LISTIO   1314
          1271  5160000006 +                      SA6    IONAME      CLEAR FOR NEXT I/O PROCESSOR                LISTIO   1316
                          5120000012              SA2    SYM1                                                    LISTIO   1318
          1272  22055                             LX0    X5,B5       2*SYMTAB ORD                                LISTIO   1319
                     63150                        SB1    X5                                                      LISTIO   1320
                          37620                   IX6    X2-X0                                                   LISTIO   1321
                               53160              SA1    X6          WORD A OF FWA                               LISTIO   1322
          1273  5160000103 +                      SA6    TEMP                                                    LISTIO   1323
                          55215                   SA2    A1-B5       WORD B                                      LISTIO   1325
          1274  0100002555 +                      RJ     EQUIVP      RETURN IH OF FWA                            LISTIO   1327
          1275  5130000073 +                      SA3    IOFLAG                                                  FCC1664X    7
                          5160000027 +            SA6    MACLS2      BASE OF FWA                                 FCC0544     9
          1276  5120000012                        SA2    SYM1                                                    FCC1664X    8
                          20601                   LX6    1                                                       FCC1664X    9
                               73665              SX6    X6+B5                                                   FCC1664X   10
          1277  20305                             LX3    1+P.LOCF                                                FCC1664X   11
                     37626                        IX6    X2-X6                                                   FCC1664X   12
                          53160                   SA1    X6          WORDB OF BASE OF FWA                        FCC1664X   13
                               12613              BX6    X1+X3       SET LOCF BIT TO INHIBIT OPTIMAZATION FOR    FCC1664X   14
          1300  54610                             SA6    A1          INPUT OPERATION                             FCC1664X   15
                     5130000104 +                 SA3    TEMPA       SYMTAB ORD OF LWA                           FCC1664X   16
                               37535              IX5    X3-X5                                                   FCC1664X   17
          1301  0305001140 +                      ZR     X5,PBUF     IF SYMTAB ORD(FWA)  EQ  SYMTAB ORD(LWA)     FCC1664X   18
                          5120000012              SA2    SYM1                                                    LISTIO   1329
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    33
         BUFFER IN/OUT STMT PROCESSING
  
          1302  22053                             LX0    X3,B5       2*SYMTAB ORD                                LISTIO   1330
                     63130                        SB1    X3                                                      LISTIO   1331
                          37620                   IX6    X2-X0                                                   LISTIO   1332
                               53160              SA1    X6          WORD A OF LWA                               LISTIO   1333
          1303  54630                             SA6    A3                                                      LISTIO   1334
                     55215                        SA2    A1-B5       WORD B                                      LISTIO   1335
                          0100002555 +            RJ     EQUIVP      RETURNS IH OF LWA                           LISTIO   1336
          1304  5150000027 +                      SA5    MACLS2      IH OF FWA, STORED BY EQUIVP                 LISTIO   1337
                          43001                   MX0    1                                                       LISTIO   1338
                               37656              IX6    X5-X6                                                   LISTIO   1339
          1305  0306001140 +                      ZR     X6,PBUF     IF IHS EQUAL                                LISTIO   1340
                          5130000110 +            SA3    MACBUF+1    SYMTAB ORD OF OBJECT ROUTINE NAME           LISTIO   1341
          1306  5120000012                        SA2    SYM1                                                    LISTIO   1342
                          73530                   SX5    X3                                                      LISTIO   1343
                               20501              LX5    1                                                       LISTIO   1344
          1307  37125                             IX1    X2-X5                                                   LISTIO   1345
                     5221777776                   SA2    X1-1        WORD B OF SYMTAB ENTRY                      LISTIO   1346
                               20054              LX0    P.IOF+1                                                 LISTIO   1347
          1310  15620                             BX6    -X0*X2      CLEAR IOF BIT IN WORD B                     LISTIO   1348
                     54620                        SA6    A2                                                      LISTIO   1349
                          5140000104 +            SA4    TEMPA                                                   LISTIO   1350
          1311  5120000103 +                      SA2    TEMP                                                    LISTIO   1351
                          53340                   SA3    X4          WORD A OF LWA                               LISTIO   1352
                               53120              SA1    X2          WORD A OF FWA                               LISTIO   1353
          1312  11613                             BX6    X1*X3                                                   FCC0593    29
                     20652                        LX6    59-P.FP                                                 LISTIO   1356
                          0336001140 +            MI     X6,PBUF     IF FWA AND LWA ARE F.P.                     FCC0593    30
          1313  20603                             LX6    P.FP-P.COM                                              FCC0593    31
                     0326001316 +                 PL     X6,BUFERR   IF EITHER NOT IN COMMON BLOCK               FCC0593    32
                               55215              SA2    A1-B5       WORD B OF FWA                               LISTIO   1362
          1314  55435                             SA4    A3-B5       WORD B OF LWA                               LISTIO   1363
                     43665                        MX6    -L.RB                                                   LISTIO   1364
                          13524                   BX5    X2-X4                                                   LISTIO   1365
                               20614              LX6    P.RB                                                    LISTIO   1366
          1315  15056                             BX0    -X6*X5                                                  LISTIO   1367
                     0300001140 +                 ZR     X0,PBUF     IF SAME COMMON BLOCK                        FCC0593    33
          1316  6160777313               BUFERR   POSTERR   NR=E.BIO1,SEV=INF,RETURN=PBUF                        FCC0593    34
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    34
        PROCESS STORE TO APLIST MACROS
  
                                        ***                                                                      LISTIO   1372
                                        *         PSTAPL - PROCESS STORE TO APLIST MACROS                        LISTIO   1373
                                        *                                                                        LISTIO   1374
                                        *         ON ENTRY - X2 - WORD B OF VARIABLE LOADED                      LISTIO   1375
                                        *                    B4 - MACRO BUFFER WORD COUNT.                       LISTIO   1376
                                        *                    X6 - RESULT NUMBER OF LOAD FROM IXFN                LISTIO   1377
                                        *                    A7 - NEXT RLIST STORE ADDRESS                       LISTIO   1378
                                        *                                                                        LISTIO   1379
          1320  0400401320 +             PSTAPL   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   1380
          1321  5110000022 +                      SA1    STRAPL      STORE TO APLIST MACRO HEADER                LISTIO   1381
                          5130000000 X            SA3    IOAPLN                                                  LISTIO   1382
          1322  12716                             BX7    X1+X6                                                   LISTIO   1383
                     54775                        SA7    A7+B5                                                   LISTIO   1384
                          7273300000              SX7    X3+I.IO                                                 LISTIO   1385
          1323  54775                             SA7    A7+B5             IH FOR I/O APLIST                     LISTIO   1386
                     54675                        SA6    A7+B5             RESULT NUMBER                         LISTIO   1387
                          5110000010 +            SA1    PARCNT            PARAMETER COUNT                       LISTIO   1388
          1324  73710                             SX7    X1                                                      LISTIO   1389
                     54765                        SA7    A6+B5             BIAS FOR STORE                        LISTIO   1390
                          6144000004              SB4    B4+4              ADJUST WORD COUNT                     LISTIO   1391
          1325  6110000001                        SB1    1                                                       LISTIO   1392
                          6160000107 +            WRITEW =XF.RLST,MACBUF,B4      MACRO TO -RLIST-                LISTIO   1393
          1330  7160000000                        SX6    0                                                       LISTIO   1394
                          6150000001              SB5    1                                                       LISTIO   1395
          1331  5160000001 +                      SA6    APLRST            CLEAR FLAG                            LISTIO   1396
                          0400001320 +            EQ     PSTAPL                                                  LISTIO   1397
  
  
  
  
                                        **        STIOM - FORM MACRO TO INDICATE A STORE TO AN APLIST WORD       LISTIO   1399
                                                                                                                 LISTIO   1400
          1332  0400401332 +             STIOM    ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   1401
          1333  6110000001                        SB1    1                                                       LISTIO   1402
                          6160003034 +            WRITEC =XF.CMPS,IOM.CD,2                                       LISTIO   1403
          1335  5120000000 X                      SA2    DATA.                                                   LISTIO   1404
                          5110000010 +            SA1    PARCNT                                                  LISTIO   1405
          1336  6150000001                        SB5    1                                                       LISTIO   1406
                          73725                   SX7    X2+B5                                                   LISTIO   1407
                               73615              SX6    X1+B5                                                   LISTIO   1408
          1337  54720                             SA7    A2                INCREMENT BLOCK SIZE                  LISTIO   1409
                     54610                        SA6    A1                INCREMENT PARAMETER COUNT             LISTIO   1410
                          0400001332 +            EQ     STIOM                                                   LISTIO   1411
                                3034 +   IOM.CD   LIT    13C  IOM     -1B                                        LISTIO   1412
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    35
         ENCODE/DECODE STMT PROCESSING
  
                                        *         DEC - PROCESS "DECODE" STATEMENT                               LISTIO   1414
                                                                                                                 LISTIO   1415
          1340  00000000000000000000     DEC      ENTRY.                                                         LISTIO   1416
          1341  0100000205 +                      RJ     IOSETUP                                                 LISTIO   1417
          1342  43701                             MX7    1                                                       LISTIO   1418
                     0100001352 +                 RJ     PED                                                     LISTIO   1419
          1343  0400001340 +                      EQ     DEC                                                     LISTIO   1420
                                                                                                                 LISTIO   1421
                                        *         ENC - PROCESS "ENCODE" STATEMENT                               LISTIO   1422
                                                                                                                 LISTIO   1423
          1344  00000000000000000000     ENC      ENTRY.                                                         LISTIO   1424
          1345  0100000205 +                      RJ     IOSETUP                                                 LISTIO   1425
          1346  43700                             MX7    0                                                       LISTIO   1426
                     0100001352 +                 RJ     PED                                                     LISTIO   1427
          1347  0400001344 +                      EQ     ENC                                                     LISTIO   1428
  
  
  
          1350  6160777624               PED.E    SB6    -E.EDC            BAD CHARACTER COUNT                   LISTIO   1430
                          0400000240 +            EQ     IOERRX                                                  LISTIO   1431
                                                                                                                 LISTIO   1432
                                        ***                                                                      LISTIO   1433
                                        *         PED - COMMON PROCESSOR FOR ENCODE AND DECODE STMTS             LISTIO   1434
                                        *                                                                        LISTIO   1435
                                        *         SYNTAX:                                                        LISTIO   1436
                                        *                XXCODE (C,N,V) LIST                                     LISTIO   1437
                                                                                                                 FCC0413     7
          1351                     1     PEDT     BSS    1           IOLST ENTRY FOR ENCODE *V*                  FCC0413     8
                                                                                                                 FCC0413     9
          1352  0400401352 +             PED      ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   1439
          1353  43600                             MX6    0                                                       LISTIO   1440
                     5160000012 +                 SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                    LISTIO   1441
          1354  5170000073 +                      SA7    IOFLAG                                                  LISTIO   1442
                          43674                   MX6    60                                                      LISTIO   1443
          1355  5160000074 +                      SA6    PIOFLAG                                                 LISTIO   1444
                          0100000000 X            RJ     DOCALL            INFORM DO PROCESSOR                   LISTIO   1445
          1356  6160777633                        ASAERR                   FLAG NON USAS STMT                    LISTIO   1446
          1360  5150000032                        ADVIN                    SKIP LEFT PAREN                       LISTIO   1447
                          5150000032              GETE                     GET NEXT                              LISTIO   1448
                          0520001407 +            IF.NE  CON,PED.VC        IF CHAR COUNT IS NOT A CONSTANT       LISTIO   1449
                                                                                                                 LISTIO   1450
                                        *         PROCESS CONSTANT CHAR COUNT                                    LISTIO   1451
                                                                                                                 LISTIO   1452
          1363  75645                             UPDATE                                                         LISTIO   1453
                          21155                   AX1    45                                                      LISTIO   1454
          1364  7221777776                        SX2    X1-T.INT                                                LISTIO   1455
                          0312001350 +            NZ     X2,PED.E          IF NOT TYPE INTEGER                   LISTIO   1456
          1365  67105                             SB1    -B5                                                     LISTIO   1457
                     10144                        BX1    X4                                                      LISTIO   1458
                          0100000000 X            RJ     CONVERT           CONVERT CHAR COUNT TO BINARY          LISTIO   1459
          1366  0301001350 +                      ZR     X1,PED.E          IF ZERO                               LISTIO   1460
                          66150                   SB1    B5                                                      LISTIO   1461
          1367  0100000000 X                      RJ     CONVERT           PLACE CHAR COUNT IN CON TABLE         LISTIO   1462
          1370  73610                             SX6    X1                SYMTAB ORDINAL                        LISTIO   1463
                     5130000105 +                 FORMARG NAME,1                                                 LISTIO   1464
                               21136              AX1    30                                                      LISTIO   1465
          1374  73610                             SX6    X1                CA                                    LISTIO   1466
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    36
         ENCODE/DECODE STMT PROCESSING
  
                     5130000105 +                 FORMARG OCT,2                                                  LISTIO   1467
          1400  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1468
          1406  0400001422 +                      EQ     PED1                                                    LISTIO   1469
                                                                                                                 LISTIO   1470
                                        *         VARIABLE CHAR COUNT                                            LISTIO   1471
                                                                                                                 LISTIO   1472
          1407  0525001350 +             PED.VC   IF.NE  NAME,PED.E        IF NOT A NAME                         LISTIO   1473
                          55445                   NEXTE                    GET NEXT E                            LISTIO   1474
          1410  6130000003                        IF.NE  EL.COMMA,PED.E    IF NOT A ,                            LISTIO   1475
                                                                                                                 LISTIO   1476
          1411  76350                             SX3    B5                NO EXPRESSION FLAG                    LISTIO   1477
                     43200                        IXFN   REF               PROCESS NAME                          LISTIO   1478
          1412  6160000153                        CFSIV  E.EDC             CHECK FOR A SIMPLE INTEGER VARIABLE   LISTIO   1479
          1413  66450                             SB4    B5                SET FOR CHAR COUNT NAME               LISTIO   1480
                     66750                        SB7    B5                                                      LISTIO   1481
                          0100000267 +            RJ     PVARNAM           PROCESS CHAR COUNT NAME               LISTIO   1482
          1414  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1483
                                                                                                                 LISTIO   1484
          1422  5150000032               PED1     ADVIN                    ADVANCE E-LIST POINTER                LISTIO   1485
                          6130000003              IF.NE  EL.COMMA,IOERR    IF NOT A ,                            LISTIO   1486
                          5150000032              GETE                                                           LISTIO   1487
                          6130000022              IF.EQ  EL.STAR,IOERR                                           LISTIO   1488
                          43700                   MX7    0                                                       LISTIO   1489
          1427  5170000713 +                      SA7    LFNA                                                    LISTIO   1490
                          0100000455 +            RJ     FMTNO             PROCESS FORMAT NUMBER                 LISTIO   1491
          1430  0300001471 +                      ZR     X0,IOERR          NAMELIST NOT ALLOWED                  LISTIO   1492
                                                                                                                 LISTIO   1493
                          5150000032              ADVIN                                                          LISTIO   1494
          1432  6130000003                        IF.NE  EL.COMMA,IOERR    IF NOT A ,                            LISTIO   1495
          1433  5110000073 +                      SA1    IOFLAG                                                  LISTIO   1496
                          0311001435 +            NZ     X1,PED1A          IF DECODE                             LISTIO   1497
          1434  43700                             MX7    0                                                       LISTIO   1498
                     5170000074 +                 SA7    PIOFLAG           +0 IF ENCODE                          LISTIO   1499
          1435  43001                    PED1A    MX0    1                                                       LISTIO   1500
                     15201                        BX2    -X1*X0            SET FLAG FOR IXFN                     LISTIO   1501
                          76350                   SX3    B5                NO EXPRESSION FLAG                    LISTIO   1502
                               43673              MX6    59                                                      LISTIO   1503
          1436  5160000000 +                      SA6    IXFNCL      SIGNAL VARIABLE FORMAT                      LISTIO   1504
                          76650                   SX6    B5                                                      LISTIO   1505
          1437  5160000013 +                      SA6    BIO         FLAG ENCODE/DECODE                          FCC0614    12
                          5160000101 +            SA6    CRFLAG      SPECIAL CASE CLASS REF CHECK                LISTIO   1506
          1440  0100000175 +                      IXFN                     GET ADDR OF V                         LISTIO   1507
          1441  5130000074 +                      SA3    PIOFLAG                                                 LISTIO   1508
                          0333001447 +            MI     X3,PED2           IF A DECODE STMT                      LISTIO   1509
          1442  14733                             BX7    -X3                                                     LISTIO   1510
                     54730                        SA7    A3                                                      LISTIO   1511
                          12701                   BX7    X0+X1                                                   LISTIO   1512
                               54710              SA7    A1                SET DEFINED BIT                       LISTIO   1513
                                                                                                                 FCC0413    10
                                        *         FILING OF *DEF* ENTRY IN *IOLST* FOR V IS DEFERRED UNTIL       FCC0413    11
                                        *         THE LIST IS PROCESSED SO THAT USES WILL NOT BE LOST.           FCC0413    12
                                                                                                                 FCC0413    13
          1443  5130000000 X                      SA3    =XOPT2                                                  FCC0784     4
                          0303001447 +            ZR     X3,PED2     IF OPT .NE. 2                               FCC0784     5
          1444  5130000000 X                      SA3    L.IOLST                                                 FCC0413    14
                          5140000000 X            SA4    O.IOLST                                                 FCC0413    15
          1445  6243777776                        SB4    X3-1                                                    FCC0413    16
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    37
         ENCODE/DECODE STMT PROCESSING
  
                          76740                   SX7    B4                                                      FCC0413    17
                               53444              SA4    X4+B4                                                   FCC0413    18
          1446  54730                             SA7    A3          L.IOLST = L.IOLST - 1                       FCC0413    19
                     10744                        BX7    X4                                                      FCC0413    20
                          5170001351 +            SA7    PEDT        HOLDS IOLST ENTRY FOR *V* UNTIL IOL         FCC0413    21
                                                                                                                 LISTIO   1514
          1447  5140000001 +             PED2     SA4    APLRST                                                  LISTIO   1515
                          0304001454 +            ZR     X4,PED2A          STORE TO APLIST NOT NEEDED            LISTIO   1516
          1450  66400                             SB4    B0                WORD COUNT FOR WRITE CALL             LISTIO   1517
                     5170000106 +                 SA7    MACBUF-1          INITIALIZE A7 FOR STORES              LISTIO   1518
          1451  0100001320 +                      RJ     PSTAPL            GENERATE STORE TO APLIST MACROS       LISTIO   1519
          1452  0100001332 +                      RJ     STIOM             ISSUE -1 APLIST MACRO WORD            LISTIO   1520
          1453  0400001463 +                      EQ     PED2B                                                   LISTIO   1521
                                                                                                                 LISTIO   1522
          1454  66450                    PED2A    SB4    B5                                                      LISTIO   1523
                     66750                        SB7    B5                                                      LISTIO   1524
                          0100000267 +            RJ     PVARNAM           PROCESS AS IF FORMAT NAME             LISTIO   1525
          1455  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1526
                                                                                                                 LISTIO   1527
          1463  5150000032               PED2B    ADVIN                                                          LISTIO   1528
                          6130000002              IF.NE  EL.),IOERR        IF NOT A )                            LISTIO   1529
                                                                                                                 LISTIO   1530
                          5130000073 +            SA3    IOFLAG                                                  LISTIO   1531
          1466  20302                             LX3    2                 0 OR 2                                LISTIO   1532
                     5213000060 +                 SA1    EDTAB+X3                                                LISTIO   1533
          1467  0100001475 +                      RJ     IOLIST            PROCESS THE I/O LIST                  LISTIO   1534
          1470  0400001352 +                      EQ     PED                                                     LISTIO   1535
  
  
          1471  6160000111               IOERR    SB6    E.IOSE            I/O STMT SYNTAX ERROR                 LISTIO   1537
                          6170000000 X            SB7    DOGOOF                                                  LISTIO   1538
          1472  43600                             MX6    0                                                       LISTIO   1539
                     5160000006 +                 SA6    IONAME            CLEAR FOR NEXT I/O STMT               LISTIO   1540
          1473  0400000000 X                      EQ     ERPRO                                                   LISTIO   1541
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    38
         IOLIST - I/O LIST PROCESSING 
  
          1474  00000000000000000000     SERF                              SINGLE ELE REF FLAG. 0 IF NEXT IS (   LISTIO   1543
                                                                                                                 LISTIO   1544
                                        ***                                                                      LISTIO   1545
                                        *         IOLIST - I/O LIST PROCESSOR                                    LISTIO   1546
                                        *           PROCESSES THE I/O LIST AND OUTPUTS MACROS TO RLIST TO CALL   LISTIO   1547
                                        *           THE EXECUTION TIME ROUTINES TO TRANSFER THE DATA TO/FROM     LISTIO   1548
                                        *           THE I/O DEVICES                                              LISTIO   1549
                                        *                                                                        LISTIO   1550
                                        *         ON ENTRY:                                                      LISTIO   1551
                                        *                A1 = ADDRESS OF 2 WORDS CONTAINING NAMES OF EXECUTION   LISTIO   1552
                                        *                TIME ROUTINES                                           LISTIO   1553
                                        *                SELIST POINTS TO FIRST ELEMENT OF LIST                  LISTIO   1554
                                        *                MACLS1 - MACLK3 SET FOR FIRST CALL                      LISTIO   1555
                                        *                                                                        LISTIO   1556
          1475  0400401475 +             IOLIST   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   1557
          1476  7170000020 +                      SX7    GEFCM             MACRO HEADER ADDRESS                  LISTIO   1558
                          74610                   SX6    A1                                                      LISTIO   1559
                               20722              LX7    18                                                      LISTIO   1560
          1477  12667                             BX6    X6+X7                                                   LISTIO   1561
                     43700                        MX7    0                                                       LISTIO   1562
                          5160000006 +            SA6    IONAME            ADDRESS OF OBJECT ROUTINE NAMES       LISTIO   1563
          1500  5170000003 +                      SA7    HOLCON      CLEAR FLAG IN CASE SET BY PREVIOUS I/O STMT LISTIO   1564
                          5130000073 +            SA3    IOFLAG                                                  LISTIO   1565
          1501  0303001503 +                      ZR     X3,IOLIST1        IF ^INPUT                             LISTIO   1566
                          7160000001              SX6    1                                                       LISTIO   1567
          1502  5160000074 +                      SA6    PIOFLAG           + FOR ITEMS DEFINED                   LISTIO   1568
                                                                                                                 LISTIO   1569
          1503  5110000102 +             IOLIST1  SA1    END=                                                    FCC1882     6
                          0301001521 +            ZR     X1,IOL.L          IF NOT A READ STATEMENT               LISTIO   1573
          1504  5120000000 X                      SA2    =XN.GL      NEXT #GL NUMBER                             LISTIO   1574
                          5140003036 +            SA4    =3R#GL                                                  LISTIO   1575
          1505  6110000030                        SB1    24                SHIFT COUNT                           LISTIO   1576
                          10744                   BX7    X4                                                      LISTIO   1577
          1506  0100000223 +                      RJ     CNVT              CONVERT TO BCD STRING                 LISTIO   1578
          1507  22617                             LX6    B1,X7                                                   LISTIO   1579
                     5130000105 +                 FORMARG CHAR,1                                                 LISTIO   1580
          1513  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1581
  
  
                                        *         MAIN LOOP                                                      LISTIO   1583
                                                                                                                 LISTIO   1584
          1521  5150000032               IOL.L    GETE                     GET E LIST ELEMENT                    LISTIO   1585
          1522  0425001567 +                      IF.EQ  NAME,IOL.N  IF A NAME                                   FEAT155B   36
                          6130000006              IF.EQ  EL.(,IOL.C                                              LISTIO   1587
                          6130000004              IF.NE  EL.EOS,IOL.N      IF NOT AN END OF STATEMENT            LISTIO   1588
  
  
  
                                        *         END OF STMT - ISSUE TERMINAL CALL                              LISTIO   1590
                                                                                                                 LISTIO   1591
          1525  54445                    IOL.E    SA4    A4+B5       PREVIOUS ELIST ELEMENT                      FEAT155B   37
                     43600                        MX6    0                                                       FCC2202    48
                          5160000173 +            SA6    VFFLAG      RESET VARIABLE FORMAT FLAG                  FCC2202    49
          1526  26124                             UX1    B2,X4                                                   FEAT155B   38
                     6130000003                   IF.NE  EL.COMMA,IOL.E0   IF NOT LINE CONTROL                   FEAT155B   39
                          5120000012 +            SA2    LDFLAG                                                  FEAT155B   40
          1530  6160777662                        SB6    -E.LC       LINE CONTROL SPEC                           FEAT155B   41
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    39
         IOLIST - I/O LIST PROCESSING 
  
                          5110000073 +            SA1    IOFLAG                                                  FEAT155B   42
          1531  0322000240 +                      PL     X2,IOERRX   LINE CONTROL ALLOWED ONLY FOR * FORMAT      FEAT155B   43
                          0311000240 +            NZ     X1,IOERRX   NOT ALLOWED FOR INPUT STMT                  FEAT155B   44
          1532  7160000001                        SX6    1           SIGNAL ENTRY WITH NO BASE                   FEAT155B   45
                          5130000105 +            FORMARG OCT,1                                                  FEAT155B   46
          1536  7160000007                        SX6    7           TYPE = 7 FOR LINE CONTROL                   FEAT155B   47
                          5130000105 +            FORMARG OCT,3                                                  FEAT155B   48
          1542  7160000000 X                      FORMMAC IOM                                                    FEAT155B   49
          1550  5110001351 +             IOL.E0   SA1    PEDT                                                    FEAT155B   50
                          0301001552 +            ZR     X1,IOL.E1   IF NOT ENCODE                               FCC0413    23
          1551  5100000000 X                      ADDWD  IOLST,X1    FILE *DEF* ENTRY FOR *V*                    FCC0413    24
                                                                                                                 FCC0413    25
          1552  0100002727 +             IOL.E1   RJ     IIR         ISSUE IOLST TABLE TO RLIST                  FCC0413    26
          1553  6110000001                        SB1    1                                                       LISTIO   1593
                          6160003037 +            WRITEC =XF.CMPS,EIOP.CD,2                                      LISTIO   1594
          1555  5120000000 X                      SA2    DATA.                                                   LISTIO   1595
                          6150000001              SB5    1                                                       LISTIO   1596
          1556  73625                             SX6    X2+B5             INCREMENT BLOCK SIZE                  LISTIO   1597
                     54620                        SA6    A2                                                      LISTIO   1598
                          5140000006 +            SA4    IONAME                                                  LISTIO   1599
          1557  43600                             MX6    0                                                       LISTIO   1600
                     53140                        SA1    X4                                                      LISTIO   1601
                          5160000000 X            SA6    L.IOLST           RESET TABLE LENGTH                    LISTIO   1602
          1560  0100000722 +                      RJ     IOCM                                                    LISTIO   1603
          1561  43600                             MX6    0                                                       LISTIO   1604
                     5160000006 +                 SA6    IONAME            CLEAR FOR NEXT I/O STMT               LISTIO   1605
                                                                                                                 LISTIO   1606
          1562  5120000102 +                      SA2    END=                                                    LISTIO   1607
                          0302001475 +            ZR     X2,IOLIST         IF NOT A READ STATEMENT               LISTIO   1608
          1563  54620                             SA6    A2                CLEAR                                 LISTIO   1609
                     5120000000 X                 SA2    N.GL                                                    LISTIO   1610
                               73725              SX7    X2+B5       N.GL = N.GL + 1                             LISTIO   1611
          1564  54720                             SA7    A2                                                      LISTIO   1612
                     7252100000                   SX5    X2+I.GL                                                 LISTIO   1613
          1565  0100000000 X                      CALL   WLABM       WRITE LABEL DEF TO RLIST                    LISTIO   1614
          1566  0400001475 +                      EQ     IOLIST                                                  LISTIO   1615
                                                                                                                 LISTIO   1616
                                                                                                                 LISTIO   1617
                                3037 +   EIOP.CD  LIT    12C  EIO     0B                                         LISTIO   1618
  
  
  
                                        *         PROCESS NAME                                                   LISTIO   1620
                                                                                                                 LISTIO   1621
          1567  55445                    IOL.N    NEXTE                    GET NEXT ELEMENT                      LISTIO   1622
                          6130000005              IF.EQ  EL.=,DOEND        IF =, THEN CLOSE OUT THE LOOP         LISTIO   1623
                          7172777771              SX7    B2-EL.(                                                 LISTIO   1624
          1571  5170001474 +                      SA7    SERF              SAVE SINGLE ELEMENT REF FLAG          LISTIO   1625
                                                                                                                 LISTIO   1626
                          5130000073 +            SA3    IOFLAG      ^0 IF INPUT, USED AS EXPRESSION FLAG        FCC0733     4
          1572  5120000073 +                      IXFN   IOFLAG            CALL IXFN TO LOAD THE ADDR            LISTIO   1628
          1573  5160000032 +                      MP=    P1,X6             P1 = R NUMBER OF RESULT OF LOAD       LISTIO   1629
                                                                                                                 LISTIO   1630
                          5130000073 +            SA3    IOFLAG                                                  LISTIO   1631
          1574  0303001602 +                      ZR     X3,IOL.N1         IF NOT AN INPUT OP                    LISTIO   1632
                          12601                   BX6    X0+X1             SET DEFINED BIT                       LISTIO   1633
                               54610              SA6    A1                                                      LISTIO   1634
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    40
         IOLIST - I/O LIST PROCESSING                                 IOL.N 
  
          1575  74710                             SX7    A1                                                      LISTIO   1635
                     76610                        SX6    B1                                                      LISTIO   1636
                          5170000103 +            SA7    TEMP              SAVE ADDRESS OF WORD A                LISTIO   1637
          1576  5160000104 +                      SA6    TEMPA             SAVE SYMTAB ORDINAL                   LISTIO   1638
                          0100000000 X            RJ     DODEF             INFORM DO OF VARIABLE REDEFINITION    LISTIO   1639
          1577  5130000103 +                      SA3    TEMP                                                    LISTIO   1640
                          53130                   SA1    X3                RESTORE SYMTAB ENTRY                  LISTIO   1641
                               55215              SA2    A1-B5                                                   LISTIO   1642
          1600  5140000104 +                      SA4    TEMPA                                                   LISTIO   1643
                          5130000032 +            SA3    MACLP1                                                  LISTIO   1644
          1601  10633                             BX6    X3                RESTORE RESULT NUMBER                 LISTIO   1645
                     63140                        SB1    X4                RESTORE SYMTAB ORDINAL                LISTIO   1646
                                                                                                                 LISTIO   1647
                                        *         EXTRACT TYPE AND SET SDPF ( SINGLE/DOUBLE PRECISION FLAG )     LISTIO   1648
                                                                                                                 LISTIO   1649
          1602  5140000001 +             IOL.N1   SA4    APLRST                                                  LISTIO   1650
                          0314001643 +            NZ     X4,LSTARR         IF ARRAY STORE TO APLIST              LISTIO   1651
          1603  5150000005 +                      SA5    IOEXP                                                   LISTIO   1652
                          0315001655 +            NZ     X5,LSTEXP         IF LIST EXPRESSION                    LISTIO   1653
          1604  5140000003 +                      SA4    HOLCON                                                  LISTIO   1654
                          0314001713 +            NZ     X4,LSTCON         IF HOLLERITH CONSTANT                 LISTIO   1655
          1605  5130000011 +                      SA3    TYPEFG            TYPE WORD                             LISTIO   1656
                          73635                   SX6    X3+B5             TYPE + 1                              LISTIO   1657
          1606  5160000043 +                      SA6    MACLK4            SAVE IN PARAMETER K4                  LISTIO   1658
                          43401                   MX4    1                                                       LISTIO   1659
                               11743              BX7    X4*X3             SINGLE/DOUBLE PRECISION BIT           LISTIO   1660
          1607  20701                             LX7    1                                                       LISTIO   1661
                     63370                        SB3    X7                SDPF                                  LISTIO   1662
                                                                                                                 LISTIO   1663
                                        *         COMPUTE THE WORD COUNT FOR THE TRANSFER                        LISTIO   1664
                                                                                                                 LISTIO   1665
                          5130001474 +            SA3    SERF                                                    LISTIO   1666
          1610  76650                             SX6    B5                ITEM COUNT = 1                        LISTIO   1667
                     0303001622 +                 ZR     X3,IOL.N2         IF NEXT WAS A (                       LISTIO   1668
                                                                                                                 LISTIO   1669
          1611  6120000056                        SB2    59-P.DIM                                                LISTIO   1670
                          22021                   LX0    B2,X1                                                   LISTIO   1671
          1612  0320001624 +                      PL     X0,IOL.N3         IF NOT DIMENSIONED                    LISTIO   1672
                                                                                                                 LISTIO   1673
                                        *         GET DIM ENTRY AND CHECK FOR VARIABLE DIMENSIONS                LISTIO   1674
                                                                                                                 LISTIO   1675
                          10722                   BX7    X2                                                      LISTIO   1676
          1613  5170000103 +                      SA7    TEMP              SAVE WORD B OF SYMTAB ENTRY           LISTIO   1677
                          43060                   MX0    60-L.DIMP                                               LISTIO   1678
                               20223              LX2    60-P.DIMP                                               LISTIO   1679
          1614  5140000017                        SA4    DIM1                                                    LISTIO   1680
                          15520                   BX5    -X0*X2            EXTRACT DIMP ORDINAL                  LISTIO   1681
                               20501              LX5    1                                                       LISTIO   1682
          1615  63455                             SB4    X5+B5                                                   LISTIO   1683
                     20251                        LX2    P.DIMP            REPOSITION                            LISTIO   1684
                          53544                   SA5    X4+B4             SECOND WORD OF DIM ENTRY              LISTIO   1685
                               43003              MX0    3                                                       LISTIO   1686
          1616  11305                             BX3    X0*X5                                                   LISTIO   1687
                     20071                        LX0    60-3                                                    LISTIO   1688
                          11405                   BX4    X0*X5             VAR DIM FLAG V(ABC)                   LISTIO   1689
                               20303              LX3    3                 X3 = NUMBER OF DIMENSIONS             LISTIO   1690
          1617  0314001635 +                      NZ     X4,IOL.VAX        IF VARIABLE DIMENSIONS                LISTIO   1691
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    41
         IOLIST - I/O LIST PROCESSING                                 IOL.N 
  
                          21544                   AX5    36                                                      LISTIO   1692
                               73650              SX6    X5                X6 = PRODUCT OF DIMENSIONS            LISTIO   1693
          1620  5130000011 +                      SA3    TYPEFG                                                  LISTIO   1694
                          0323001622 +            PL     X3,IOL.N2         IF SINGLE WORD ARRAY                  LISTIO   1695
          1621  21601                             AX6    1                 ITEM COUNT = WORD COUNT/2             LISTIO   1696
                                                                                                                 LISTIO   1697
          1622  5160000007 +             IOL.N2   SA6    ITEMCT            SAVE THE ITEM COUNT                   LISTIO   1698
                                                                                                                 LISTIO   1699
                          0100001743 +            RJ     LSTITM            PROCESS LIST ITEM                     LISTIO   1700
          1623  0400001630 +                      EQ     IOL.NE                                                  LISTIO   1701
                                                                                                                 LISTIO   1702
          1624  5140000073 +             IOL.N3   SA4    IOFLAG                                                  LISTIO   1703
                          0304001622 +            ZR     X4,IOL.N2         IF NOT AN INPUT STATEMENT             LISTIO   1704
          1625  5130000103 +                      SA3    TEMP              RESTORE SYMTAB ENTRY                  LISTIO   1705
                          5140000104 +            SA4    TEMPA             RESTORE SYMTAB ORDINAL                LISTIO   1706
          1626  53130                             SA1    X3                                                      LISTIO   1707
                     63140                        SB1    X4                                                      LISTIO   1708
                          55215                   SA2    A1-B5                                                   LISTIO   1709
                               76650              SX6    B5                ITEM COUNT = 1                        LISTIO   1710
          1627  0400001622 +                      EQ     IOL.N2                                                  LISTIO   1711
  
  
  
                                        *         GET NEXT ELEMENT                                               LISTIO   1713
                                                                                                                 LISTIO   1714
          1630  5150000032               IOL.NE   ADVIN                    GET NEXT AND ADVANCE E-LIST POINTER   LISTIO   1715
                          6130000003              IF.EQ  EL.COMMA,IOL.L    IF COMMA                              FEAT155B   51
                          6130000004              IF.EQ  EL.EOS,IOL.E      IF EOS                                LISTIO   1717
                          6130000025              IF.NE  EL.S),IOERR       IF NOT A SPECIAL PAREN                LISTIO   1718
                          0400001630 +            EQ     IOL.NE            LOOP                                  LISTIO   1719
  
  
  
                                                                                                                 LISTIO   1724
          1635  66300                    IOL.VAX  SB3    B0          FORCE SINGLE PRECISION FOR ITEM COUNT       LISTIO   1725
                     43701                        MX7    1                                                       LISTIO   1726
                          0100002042 +            RJ     WWC         GENERATE RMACRO TO COMPUTE WORD COUNT       LISTIO   1727
          1636  5120000103 +                      SA2    TEMP              RESTORE WORD B                        LISTIO   1728
                          5170000106 +            SA7    MACBUF-1          INITIALIZE A7 FOR STORES              LISTIO   1729
          1637  5130000064                        SA3    NRLN                                                    LISTIO   1730
                          66400                   SB4    B0                WORD COUNT FOR WRITE CALL             LISTIO   1731
          1640  7263777776                        SX6    X3-1              RESULT NUMBER OF LAST MACRO           LISTIO   1732
                          0100001320 +            RJ     PSTAPL            GENERATE STORE TO APLIST MACROS       LISTIO   1733
          1641  0100001332 +                      RJ     STIOM             ISSUE -1 APLIST MACRO WORD            LISTIO   1734
          1642  0400001630 +                      EQ     IOL.NE                                                  LISTIO   1735
  
  
  
                                1521 +   DOITX    EQU    IOL.L             RETURN POINT FOR DOPROC AFTER         LISTIO   1737
                                        *                                  PROCESSING THE BEGINNING OF AN        LISTIO   1738
                                        *                                  IMPLIED LOOP.                         LISTIO   1739
  
  
  
                                        *         SET UP STORE TO APLIST ENTRY WITH TYPE FIELD                   LISTIO   1741
                                                                                                                 LISTIO   1742
          1643  5170000106 +             LSTARR   SA7    MACBUF-1          INITIALIZE A7 FOR STORES              LISTIO   1743
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    42
         IOLIST - I/O LIST PROCESSING 
  
                          22006                   LX0    X6                                                      LISTIO   1744
                               43600              MX6    0                                                       LISTIO   1745
          1644  54640                             SA6    A4                CLEAR FLAG                            LISTIO   1746
                     66400                        SB4    B0                WORD COUNT FOR WRITE CALL             LISTIO   1747
                          5110000023 +            SA1    SETTYPE           MACRO HEADER                          LISTIO   1748
          1645  5130000064                        SA3    NRLN              NEXT AVAILABLE RESULT NUMBER          LISTIO   1749
                          20020                   LX0    16                                                      LISTIO   1750
                               12713              BX7    X1+X3                                                   LISTIO   1751
          1646  54775                             SA7    A7+B5                                                   LISTIO   1752
                     12603                        BX6    X0+X3                                                   LISTIO   1753
                          54675                   SA6    A7+B5             RESULT NUMBERS                        LISTIO   1754
          1647  7150000060                        SX5    48                SHIFT COUNT                           LISTIO   1755
                          5110000011 +            SA1    TYPEFG            TYPE WORD                             LISTIO   1756
          1650  20522                             LX5    18                                                      LISTIO   1757
                     73415                        SX4    X1+B5             ADJUST FOR APLIST ENTRY               LISTIO   1758
                          12754                   BX7    X5+X4                                                   LISTIO   1759
                               54765              SA7    A6+B5             CONSTANT NUMBERS                      LISTIO   1760
          1651  73635                             SX6    X3+B5             INCREMENT RESULT NUMBER               LISTIO   1761
                     6144000003                   SB4    B4+3              ADJUST WORD COUNT                     LISTIO   1762
                               54630              SA6    A3                                                      LISTIO   1763
          1652  10633                             BX6    X3                RESULT NAME FOR STORE TO APLIST       LISTIO   1764
                     0100001320 +                 RJ     PSTAPL            GENERATE STORE TO APLIST MACROS       LISTIO   1765
          1653  0100001332 +                      RJ     STIOM             ISSUE -1 APLIST MACRO WORD            LISTIO   1766
          1654  0400001630 +                      EQ     IOL.NE                                                  LISTIO   1767
  
  
  
                                        *         SET UP APLIST ENTRY FOR LIST EXPRESSION                        LISTIO   1769
                                                                                                                 LISTIO   1770
          1655  76610                    LSTEXP   SX6    B1                SYMTAB ORDINAL                        LISTIO   1771
                     43700                        MX7    0                                                       LISTIO   1772
                          54750                   SA7    A5                CLEAR FLAG                            LISTIO   1773
                               21522              AX5    18                                                      LISTIO   1774
          1656  5130000105 +                      FORMARG NAME,1                                                 LISTIO   1775
                               73650              SX6    X5                ST. BIAS                              LISTIO   1776
          1662  5130000105 +                      FORMARG OCT,2                                                  LISTIO   1777
          1666  5110000011 +                      SA1    TYPEFG                                                  LISTIO   1778
                          7221777772              SX2    X1-T.OCT                                                LISTIO   1779
          1667  0332001670 +                      NG     X2,LSTEXP1        NOT OCTAL OR HOLLERITH EXPRESSION     LISTIO   1780
                          76150                   SX1    B5                FORCE TYPE INTEGER                    LISTIO   1781
                                                                                                                 LISTIO   1782
          1670  73615                    LSTEXP1  SX6    X1+B5             ADJUST FOR APLIST                     LISTIO   1783
                     5130000105 +                 FORMARG OCT,3                                                  LISTIO   1784
                               76650              SX6    B5                ITEM COUNT                            LISTIO   1785
          1674  5130000105 +                      FORMARG OCT,4                                                  LISTIO   1786
          1700  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1787
                                                                                                                 LISTIO   1788
          1706  5110000011 +                      SA1    TYPEFG                                                  LISTIO   1789
                          5120000064              SA2    NRLN                                                    LISTIO   1790
          1707  0321001710 +                      PL     X1,LSTEXP2        IF TYPE OF RESULT IS NOT DBL OR CMPLX LISTIO   1791
                          73625                   SX6    X2+B5                                                   LISTIO   1792
                               54620              SA6    A2                                                      LISTIO   1793
          1710  5150000032               LSTEXP2  SA5    SELIST            GET NAME FOR MESSAGE                  LISTIO   1794
                          53455                   SA4    X5+B5                                                   LISTIO   1795
          1711  6160000323                        SB6    E.IOEXP           I/O EXPRESSIONS ARE NON ANSI          LISTIO   1796
                          6170001630 +            SB7    IOL.NE                                                  LISTIO   1797
          1712  0400000000 X                      EQ     ASAER                                                   LISTIO   1798
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    43
         IOLIST - I/O LIST PROCESSING 
  
                                        *         SET UP APLIST ENTRY FOR HOLLERITH CONSTANT                     LISTIO   1800
                                                                                                                 LISTIO   1801
          1713  73640                    LSTCON   SX6    X4                SYMTAB ORDINAL                        LISTIO   1802
                     43700                        MX7    0                                                       LISTIO   1803
                          54740                   SA7    A4                CLEAR FLAG                            LISTIO   1804
          1714  5130000105 +                      FORMARG NAME,1                                                 LISTIO   1805
                               21422              AX4    18                                                      LISTIO   1806
          1720  73640                             SX6    X4                BIAS FIELD                            LISTIO   1807
                     21422                        AX4    18                                                      LISTIO   1808
                          5130000105 +            FORMARG OCT,2                                                  LISTIO   1809
                               43071              MX0    57                                                      LISTIO   1810
          1724  15640                             BX6    -X0*X4      TYPE OF HOL STRING                          LISTIO   1811
                     5130000105 +                 FORMARG OCT,3                                                  LISTIO   1812
                               21406              AX4    6                                                       LISTIO   1813
          1730  73640                             SX6    X4          WORD COUNT OR CHAR. COUNT                   LISTIO   1814
                     5130000105 +                 FORMARG OCT,4                                                  LISTIO   1815
          1734  7160000000 X                      FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1816
          1742  0400001630 +                      EQ     IOL.NE                                                  LISTIO   1817
  
  
  
                                        *         SET UP APLIST ENTRY FOR I/O LIST ITEM                          LISTIO   1819
                                                                                                                 LISTIO   1820
          1743  0400401743 +             LSTITM   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   1821
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           LISTIO   1822
          1744  20273                             LX2    -P.LCM      LCM/ECS RESIDENT FLAG                       LISTIO   1823
                     43773                        MX7    -1                                                      LISTIO   1824
                          15627                   BX6    -X7*X2                                                  LISTIO   1825
                               20201              LX2    P.LCM       REPOSITION                                  LISTIO   1826
          1745  63360                             SB3    X6                LCM INDICATOR                         LISTIO   1827
                                         #DAL     ELSE                                                           LISTIO   1828
                                                  SB3    B0                *** SIMULATE NON LCM MDOE ***         LISTIO   1829
                                         #DAL     ENDIF                                                          LISTIO   1830
                     6170000052                   SB7    59-P.FP                                                 LISTIO   1831
                               22071              LX0    B7,X1                                                   LISTIO   1832
          1746  21073                             AX0    59                SIGN EXTEND                           LISTIO   1833
                     6240777777                   SB4    X0-0              FP INDICATOR                          LISTIO   1834
          1747  0320001755 +                      PL     X0,LSTITM1        IF NOT A FORMAL PARAMETER             LISTIO   1835
                          7161777775              SX6    B1-2              F.P. OFFSET                           LISTIO   1836
          1750  5130000105 +                      FORMARG OCT,2                                                  LISTIO   1837
          1754  0400001772 +                      EQ     LSTITM3                                                 LISTIO   1838
                                                                                                                 LISTIO   1839
          1755                           LSTITM1  BSS    0                                                       LISTIO   1840
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           LISTIO   1841
          1755  0430001760 +                      ZR     B3,LSTITM2        IF NOT AN LCM VARIABLE                LISTIO   1842
                          5130000000 X            SA3    DIRECT                                                  LISTIO   1843
          1756  0303001760 +                      ZR     X3,LSTITM2        IF DIRECT MODE                        LISTIO   1844
                          0100000432 +            RJ     FII         FORM INDIRECT-MODE IOM ITEM IH,CA           LISTIO   1845
          1757  0400001772 +                      EQ     LSTITM3                                                 LISTIO   1846
                                         #DAL     ENDIF                                                          LISTIO   1847
                                                                                                                 LISTIO   1848
          1760  0100002555 +             LSTITM2  RJ     EQUIVP      FIND BASE AND BIAS OF NAME                  FCC0544    10
          1761  63270                             SB2    X7                                                      LISTIO   1852
                     5130000105 +                 FORMARG NAME,1                                                 LISTIO   1853
          1765  5110000000 X                      SA1    NCA               CONSTANT ADDEND                       LISTIO   1854
                          73612                   SX6    X1+B2             CA + EQUIV BIAS                       LISTIO   1855
          1766  5130000105 +                      FORMARG OCT,2                                                  LISTIO   1856
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    44
         IOLIST - I/O LIST PROCESSING 
  
                                                                                                                 LISTIO   1857
          1772  5130000011 +             LSTITM3  SA3    TYPEFG            TYPE WORD                             LISTIO   1858
                          7243777772              SX4    X3-T.OCT                                                LISTIO   1859
          1773  0334001774 +                      NG     X4,LSTITM3A       IF NOT GREATER THAN TYPE DOUBLE       LISTIO   1860
                          76350                   SX3    B5                FORCE TYPE INTEGER                    LISTIO   1861
                                                                                                                 LISTIO   1862
          1774  73635                    LSTITM3A SX6    X3+B5             INCREMENT FOR APLIST                  LISTIO   1863
                     5130000105 +                 FORMARG OCT,3                                                  LISTIO   1864
          2000  5140000007 +                      SA4    ITEMCT            ITEM COUNT                            LISTIO   1865
                          43700                   MX7    0                                                       LISTIO   1866
                               10644              BX6    X4                                                      LISTIO   1867
          2001  54740                             SA7    A4                CLEAR                                 LISTIO   1868
                     5130000105 +                 FORMARG OCT,4                                                  LISTIO   1869
          2005  0430002012 +                      ZR     B3,LSTITM4        IF NOT AN LCM VARIABLE                LISTIO   1870
                          76650                   SX6    B5                LCM BIT                               LISTIO   1871
          2006  5130000105 +                      FORMARG INT,5                                                  LISTIO   1872
                                                                                                                 LISTIO   1873
          2012  5140000004 +             LSTITM4  SA4    INDFG             INDIRECT INDICATOR                    LISTIO   1874
                          0304002025 +            ZR     X4,LSTITM5                                              LISTIO   1875
          2013  43700                             MX7    0                                                       LISTIO   1876
                     76650                        SX6    B5                INDIRECT BIT                          LISTIO   1877
                          54740                   SA7    A4                CLEAR                                 LISTIO   1878
          2014  5130000105 +                      FORMARG INT,6                                                  LISTIO   1879
                               73640              SX6    X4                INDIRECT BASE FIELD                   LISTIO   1880
          2020  5130000105 +                      FORMARG NAME,7                                                 LISTIO   1881
          2024  0400002033 +                      EQ     LSTITM6                                                 LISTIO   1882
                                                                                                                 LISTIO   1883
          2025  0640002033 +             LSTITM5  PL     B4,LSTITM6        IF NOT A FORMAL PARAMETER             LISTIO   1884
                          5110000000 X            SA1    NCA               CONSTANT ADDEND                       LISTIO   1885
          2026  0301002033 +                      ZR     X1,LSTITM6        NO CA FIELD                           LISTIO   1886
                          10611                   BX6    X1                                                      LISTIO   1887
          2027  5130000105 +                      FORMARG OCT,7                                                  LISTIO   1888
                                                                                                                 LISTIO   1889
          2033  7160000000 X             LSTITM6  FORMMAC IOM              ISSUE MACRO TO COMPS FILE             LISTIO   1890
          2041  0400001743 +                      EQ     LSTITM                                                  LISTIO   1891
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    45
         IOLIST - I/O LIST PROCESSING                                 WWC 
  
                                        **        WWC - WRITE WORD COUNT.                                        LISTIO   1893
                                        *                                                                        LISTIO   1894
                                        *         ARRAY TRANSFER WITH VARIABLE DIMENSIONS.                       LISTIO   1895
                                        *         FORM RLIST MACROS TO COMPUTE THE SIZE, OR ITEM COUNT,          LISTIO   1896
                                        *         OF THE ARRAY.                                                  LISTIO   1897
                                        *                                                                        LISTIO   1898
                                        *         ENTRY  (X3) = NUMBER OF DIMENSIONS                             LISTIO   1899
                                        *                (X4) = VARIABLE DIMENSION FLAGS - P(ABC)                LISTIO   1900
                                        *                (X5) = SECOND WORD OF DIM ENTRY                         LISTIO   1901
                                        *                (X7) = IOF = 0 IF NO IOAPL MACRO TO BE OUTPUT           LISTIO   1902
                                        *                (B3) = SDPF,  =0 TO FORCE ITEM COUNT CALCULATION        LISTIO   1903
                                                                                                                 LISTIO   1904
          2042  0400402042 +             WWC      ENTRY. **                                                      LISTIO   1905
          2043  47644                             CX6    X4          (X6) = NUMBER OF VARIABLE DIMENSIONS        LISTIO   1906
                     5170002101 +                 SA7    WWCA                                                    LISTIO   1907
                               37263              IX2    X6-X3                                                   LISTIO   1908
          2044  6160000107 +                      SB6    MACBUF                                                  LISTIO   1909
                          21273                   AX2    59          (X2) = SIGN(N.VDIMS - N.DIMS)               LISTIO   1910
                               76050              SX0    B5                                                      LISTIO   1911
          2045  11720                             BX7    X2*X0                                                   LISTIO   1912
                     76130                        SX1    B3          SDPF                                        LISTIO   1913
                          12771                   BX7    X7+X1       CONF = 1 IF CONSTANT DIM OR DOUBLE WORD     LISTIO   1914
                                        *                            ARRAY; ELSE 0                               LISTIO   1915
                               36277              IX2    X7+X7                                                   LISTIO   1916
          2046  7100000004                        SX0    4                                                       LISTIO   1917
                          36272                   IX2    X7+X2       3*CONF                                      LISTIO   1918
                               36226              IX2    X2+X6                                                   LISTIO   1919
          2047  6222000345                        SB2    X2+M.V1-1   RMACRO NUMBER = BASE + N.VD + 3*CONF        LISTIO   1920
                                                                                                                 LISTIO   1921
                          20036                   LX0    30          IN FIELD = N.WORDS IN MACRO BODY            LISTIO   1922
                               67202              SB2    -B2                                                     LISTIO   1923
          2050  27720                             PX7    B2,X0                                                   LISTIO   1924
                     56760                        SA7    B6          RMACRO HEADER WORD                          LISTIO   1925
                                                                                                                 LISTIO   1926
                                        *         STORE SYMTAB ORDINALS IN THE MACRO CALL.                       LISTIO   1927
                                                                                                                 LISTIO   1928
                          7226777774              SX2    X6-3                                                    LISTIO   1929
          2051  0332002055 +                      MI     X2,WWC1     LESS THAN 3 VARIABLE DIMENSIONS             LISTIO   1930
                          73650                   SX6    X5                                                      LISTIO   1931
                               21522              AX5    18                                                      LISTIO   1932
          2052  73150                             SX1    X5                                                      LISTIO   1933
                     20136                        LX1    RM.IHL                                                  LISTIO   1934
                          12616                   BX6    X1+X6       30/IH(DIM2),30/IM(DIM1)                     LISTIO   1935
                               21522              AX5    18                                                      LISTIO   1936
          2053  73750                             SX7    X5          30/IH(DIM3)                                 LISTIO   1937
                     56665                        SA6    B6+B5       STORE SYMTAB ORDINALS                       LISTIO   1938
                          54765                   SA7    A6+B5                                                   LISTIO   1939
                               43700              MX7    0           NO CONTANTS NEEDED                          LISTIO   1940
          2054  0400002065 +                      EQ     WWC5                                                    LISTIO   1941
                                                                                                                 LISTIO   1942
          2055  76753                    WWC1     SX7    B5+B3                                                   LISTIO   1943
                     63430                        SB4    X3          NUMBER OF DIMENSIONS                        LISTIO   1944
                          43600                   MX6    0           INITIALIZE RESULT REGISTERS                 LISTIO   1945
                               27707              PX7    X7                                                      LISTIO   1946
          2056  20402                             LX4    2           POSITION VARIABLE DIM BITS                  LISTIO   1947
                     6120000000                   SB2    0           SHIFT COUNT                                 LISTIO   1948
                                                                                                                 LISTIO   1949
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    46
         IOLIST - I/O LIST PROCESSING                                 WWC 
  
                                        *         PACK ARGUMENTS FOR RLIST MACRO.                                LISTIO   1950
                                                                                                                 LISTIO   1951
          2057  73150                    WWC2     SX1    X5          EXTRACT DIM                                 LISTIO   1952
                     20401                        LX4    1                                                       LISTIO   1953
                          67445                   SB4    B4-B5       DECREMENT THE NUMBER OF DIMS                LISTIO   1954
                               21522              AX5    18                                                      LISTIO   1955
          2060  0334002062 +                      MI     X4,WWC3     IF VARIABLE DIM                             LISTIO   1956
                          27001                   PX0    X1                                                      LISTIO   1957
                               42770              DX7    X7*X0       ACCUMULATED PRODUCT OF CONSTANT DIMS        LISTIO   1958
          2061  0540002057 +                      NZ     B4,WWC2                                                 LISTIO   1959
                          0400002064 +            EQ     WWC4                                                    LISTIO   1960
                                                                                                                 LISTIO   1961
          2062  22121                    WWC3     LX1    B2,X1       POSITION SYMTAB ORDINAL                     LISTIO   1962
                     12616                        BX6    X1+X6                                                   LISTIO   1963
                          6122000036              SB2    B2+RM.IHL                                               LISTIO   1964
          2063  0540002057 +                      NZ     B4,WWC2     LOOP IF MORE DIMS                           LISTIO   1965
                                                                                                                 LISTIO   1966
          2064  56665                    WWC4     SA6    B6+B5       WORDS 1 AND 2 = SYMTAB ORDINALS             LISTIO   1967
                     43600                        MX6    0                                                       LISTIO   1968
                          54665                   SA6    A6+B5                                                   LISTIO   1969
                               73770              SX7    X7                                                      LISTIO   1970
          2065  5176000004               WWC5     SA7    B6+4        WORD 4 = PRODUCT OF CONSTANT DIMS           LISTIO   1971
                                                                                                                 LISTIO   1972
                          5150000064              SA5    NRLN                                                    LISTIO   1973
          2066  10755                             BX7    X5                                                      LISTIO   1974
                     55775                        SA7    A7-B5       WORD 3 = NRLN */ R-NUMBER OF RESULT         LISTIO   1975
                          73655                   SX6    X5+B5       NRLN = NRLN + 1                             LISTIO   1976
                               54650              SA6    A5                                                      LISTIO   1977
          2067  66150                             SB1    B5                                                      LISTIO   1978
                     66760                        WRM    B6          OUTPUT PI DIMS MACRO                        LISTIO   1979
          2070  5110002101 +                      SA1    WWCA                                                    LISTIO   1980
                          0301002042 +            ZR     X1,WWC      IF IOF = 0    */ ITEM COUNT COMPUTATION     LISTIO   1981
                                                                                                                 LISTIO   1982
          2071  5150000064                        SA5    NRLN                                                    LISTIO   1983
                          10655                   BX6    X5          RESULT R-NUMBER                             LISTIO   1984
          2072  7215777776                        SX1    X5-1        ITEM COUNT R-NUMBER = NRLN - 1              LISTIO   1985
                          73755                   SX7    X5+B5       NRLN = NRLN + 1                             LISTIO   1986
                               54750              SA7    A5                                                      LISTIO   1987
          2073  5120000032 +                      SA2    MACLP1      RESULT R-NUMBER FROM IXFN CALL              LISTIO   1988
                          20620                   LX6    RM.RIL                                                  LISTIO   1989
                               12762              BX7    X6+X2                                                   LISTIO   1990
          2074  20720                             LX7    RM.RIL                                                  LISTIO   1991
                     12771                        BX7    X7+X1                                                   LISTIO   1992
                          5170002101 +            SA7    WWCA                                                    LISTIO   1993
          2075  5110000043 +                      SA1    MACLK4      ARRAY TYPE                                  LISTIO   1994
                          10611                   BX6    X1                                                      LISTIO   1995
                               54675              SA6    A7+B5                                                   LISTIO   1996
          2076  6170002100 +                      WRM    IOAPL       OUTPUT IOAPL MACRO                          LISTIO   1997
          2077  0400002042 +                      EQ     WWC                                                     LISTIO   1998
                                                                                                                 LISTIO   1999
          2100  14340000020000000000     IOAPL    RMHDR  M.IOAPL,2                                               LISTIO   2000
          2101                     2     WWCA     BSS    2                                                       LISTIO   2001
  
  
  
  
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    47
         IMPLIED DO PROCESSING
  
                                         BI=      MACRO  BI,ECODE          SBI  ECODE                            LISTIO   2004
                                                  S_BI   ECODE                                                   LISTIO   2005
                                         ECODE    MICRO  1,,/BI/                                                 LISTIO   2006
                                                  ENDM                                                           LISTIO   2007
  
  
                                        ***                                                                      LISTIO   2009
                                        *         IMPLIED DO LOOP PROCESSING                                     LISTIO   2010
                                        *                                                                        LISTIO   2011
                                        *         THIS CODE ATTEMPTS TO COLLAPSE STATEMENTS OF THE FORM...       LISTIO   2012
                                        *         (((V(I,J,K),I=I1,I2,I3),J=J1,J2,J3),K=K1,K2,K3)                LISTIO   2013
                                        *         THIS CODE DOES NOT COLLAPSE STATEMENTS WHICH CONTAIN...        LISTIO   2014
                                        *         INDICES WHICH ARE EXPRESSIONS OR  CONSTANT INDEX  IN INDEX1    LISTIO   2015
                                        *                                                                        LISTIO   2016
                                        *         SUBSCRIPTS AND THEIR INDICES ARE STORED IN THE INDX TABLE      LISTIO   2017
                                        *                                                                        LISTIO   2018
                                        *                                             ?  ?  ?  =  SUBSCRIPTS     LISTIO   2019
                                        *                                  A(I,J,K),I=I1,I2,I3),J=...            LISTIO   2020
                                        *                                                                        LISTIO   2021
                                        *                                           ?           ?  = INDICES     LISTIO   2022
                                        *                                  A(I,J,K),I=I1,I2,I3),J=...            LISTIO   2023
                                        *                                                                        LISTIO   2024
                                        *         SPECIFIED DIMENSIONS ARE STORED IN THE NAMDEX TABLE            LISTIO   2025
                                        *                                                                        LISTIO   2026
                                        *                                    ? ? ?  =  SPECIFIED DIMENSIONS      LISTIO   2027
                                        *                                  A(I,J,K),I=I1,I2,I3),J=...            LISTIO   2028
                                        *                                                                        LISTIO   2029
                                         EL.(     MICRO  1,,/B3/           FROM TEST AT IOL.L                    LISTIO   2030
          2103  66600                    IOL.C    SB6    B0                                                      LISTIO   2031
                     6110000002                   SB1    2                                                       LISTIO   2032
                               66400              SB4    B0                B4 = 0                                LISTIO   2033
                                                                                                                 LISTIO   2034
                                        *                                  012                                   LISTIO   2035
                                        *                                  ???                                   LISTIO   2036
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2037
                                        *                                  DETERMINE THE POSSIBLE COLLAPSE LEVEL LISTIO   2038
          2104  55445                    IOL.CP   NEXTE                                                          LISTIO   2039
                          0523002107 +            NE     B2,"EL.(",IOL.CA                                        LISTIO   2040
          2105  66445                             SB4    B4+B5             B4  =  ( COUNT                        LISTIO   2041
                     0541002104 +                 NE     B4,B1,IOL.CP                                            LISTIO   2042
                               55445              NEXTE                                                          LISTIO   2043
                                                                                                                 LISTIO   2044
                                        *                                     ?                                  LISTIO   2045
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2046
          2107  0525002566 +             IOL.CA   NE     B2,B5,IOL.D       NOT A NAME                            LISTIO   2047
                          76740                   SX7    B4                ( COUNT TO COLLAPS                    LISTIO   2048
          2110  5170000143 +                      SA7    COLLAPS           SAVE THE PAREN CNT                    LISTIO   2049
                          5150000142 +            SA5    NOCAL             FETCH FORMER STATEMENT NO.            LISTIO   2050
          2111  5120000037                        SA2    CDCNT             CURRENT STMT NUMBER                   LISTIO   2051
                          74740                   SX7    A4                SAVE ARRAY ADDRESS                    LISTIO   2052
                               10377              BX3    X7                ARYADD IN X3                          LISTIO   2053
          2112  20322                             LX3    18                                                      LISTIO   2054
                     12223                        BX2    X2+X3             CARDCNT + ARYADD                      LISTIO   2055
                          43001                   MX0    1                                                       LISTIO   2056
                               15650              BX6    -X0*X5                                                  LISTIO   2057
          2113  13062                             BX0    X6-X2                                                   LISTIO   2058
                     0310002115 +                 NZ     X0,IOL.CAZ                                              LISTIO   2059
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    48
         IMPLIED DO PROCESSING
  
          2114  0335002566 +                      NG     X5,IOL.D                                                LISTIO   2060
                          0400002340 +            EQ     COLAPR8                                                 LISTIO   2061
                                        *         ZERO OUT STORAGE AND INITIALIZE VARIABLES                      LISTIO   2062
          2115                           IOL.CAZ  BSS    0                                                       LISTIO   2063
          2115  5120000143 +                      SA2    COLLAPS           PAREN COUNT                           LISTIO   2064
                          5170000135 +            SA7    ARYADD                                                  LISTIO   2065
          2116  43700                             MX7    0                                                       LISTIO   2066
                     10677                        BX6    X7                                                      LISTIO   2067
                          5170000136 +            SA7    NAMDEX            I = 0                                 LISTIO   2068
          2117  54675                             SA6    A7+B5             J = 0                                 LISTIO   2069
                     54765                        SA7    A6+B5             K= 0                                  LISTIO   2070
                          6110000003              SB1    3                 B1 = 3                                LISTIO   2071
          2120  5160000134 +                      SA6    COLAPL                                                  LISTIO   2072
                          5170000172 +            SA7    TEMPB       COUNT OF UN-INDEXED DIMENSIONS              FCC0544    11
          2121  5160000141 +                      SA6    TENCOL                                                  LISTIO   2073
                          5171000147 +            SA7    INDX+B1           I3 = 0                                LISTIO   2074
          2122  54675                             SA6    A7+B5             J  = 0                                LISTIO   2075
                     54761                        SA7    A6+B1             J3 = 0                                LISTIO   2076
                          54675                   SA6    A7+B5             K  = 0                                LISTIO   2077
                               54761              SA7    A6+B1             K3 = 0                                LISTIO   2078
          2123  5170000131 +                      SA7    MACOPC                                                  LISTIO   2079
                          10611                   BX6    X1                SAVE ARRAY NAME                       LISTIO   2080
          2124  5160000144 +                      SA6    ARNAM                                                   LISTIO   2081
                          55445                   NEXTE                                                          LISTIO   2082
          2125  6130000006                        IF.NE  EL.(,NOCOLAP      NOT AN ARRAY REFERENCE                LISTIO   2083
          2126  10166                             BX1    X6                RESTORE ARRAY NAME FOR SYMBOL CALL(X1 LISTIO   2084
                     0100000000 X                 RJ     RSSW              SHUT DOWN SYMBOL TABLE                LISTIO   2085
          2127  6170002130 +                      SYMBOL                                                         LISTIO   2086
          2130  0400002157 +                      EQ     IOL.NF            NOT FOUND EXIT                        LISTIO   2087
                                                                                                                 LISTIO   2088
                                        *                                  COLLECT ARRAY INFO...DIMENSION,TYPE   LISTIO   2089
          2131  0100000000 X                      RJ     KSSW              RESTORE SYMBOL TABLE CODE             LISTIO   2090
          2132  20156                             LX1    59-P.DIM                                                LISTIO   2091
                     6160000210                   SB6    ARTH136                                                 LISTIO   2093
          2133  0321002512 +                      PL     X1,NOCOLAP        IF A FUNCTION                         LISTIO   2094
                          20116                   LX1    P.DIM+1                                                 FCC0544    12
          2134  0100002555 +                      RJ     EQUIVP      FIND (EQUIVED) BASE OF ARRAY                FCC0544    13
          2135  5160000166 +                      SA6    COLAP                                                   FCC0544    14
                          54220                   SA2    A2                                                      FCC0544    15
                               43004              MX0    L.TYP                                                   FCC0544    16
          2136  11302                             BX3    X0*X2                                                   LISTIO   2095
                     20304                        LX3    L.TYP                                                   LISTIO   2096
                          73635                   SX6    X3+B5                                                   LISTIO   2097
          2137  5160000043 +                      SA6    MACLK4            K4 = TYPE + 1                         LISTIO   2098
                          43060                   MX0    -L.DIMP                                                 LISTIO   2099
                               21251              AX2    P.DIMP                                                  LISTIO   2100
          2140  5130000017                        SA3    DIM1                                                    LISTIO   2101
                          15520                   BX5    -X0*X2                                                  LISTIO   2102
                               20501              LX5    1                 INDEX TO DIM TBL                      LISTIO   2103
          2141  63755                             SB7    X5+B5                                                   LISTIO   2104
                     53537                        SA5    X3+B7             WORD TWO OF THE DIM ENTRY             LISTIO   2105
                          43071                   MX0    60-3                                                    LISTIO   2106
          2142  6110000003                        SB1    3                                                       LISTIO   2107
                          22615                   LX6    B1,X5                                                   LISTIO   2108
                               15260              BX2    -X0*X6                                                  LISTIO   2109
          2143  63420                             SB4    X2              B4 = NUMBER OF ARRAY DIMENSIONS         LISTIO   2110
                     10655                        BX6    X5                                                      LISTIO   2111
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    49
         IMPLIED DO PROCESSING
  
                          66700                   SB7    B0                                                      LISTIO   2112
          2144  5160000145 +                      SA6    DIMWRD                                                  LISTIO   2113
                          5160000146 +            SA6    DIMVAL                                                  LISTIO   2114
          2145  76740                             SX7    B4                SAVE NO. ARRAY DIMS FOR COLAPM2       LISTIO   2115
                     5170000164 +                 SA7    NODIMS                                                  LISTIO   2116
          2146  5130000135 +                      SA3    ARYADD            RESTORE A4                            LISTIO   2117
                          5243777776              SA4    X3-1                                                    LISTIO   2118
                                                                                                                 LISTIO   2119
                                        *         STORE THE INDICES + THEIR SUBSCRIPTS IN THE INDX TABLE         LISTIO   2120
                                        *         I,I1,I2,I3,J,J1,J2,J3,K,K1,K2,K3                               LISTIO   2121
                                        *                                  B7 = 0 1 2                            LISTIO   2122
                                        *                                       ? ? ?                            LISTIO   2123
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2124
          2147  55445                    IOL.CIN  NEXTE                                                          LISTIO   2125
                          10711                   BX7    X1                                                      LISTIO   2126
          2150  0420002152 +                      ZR     B2,IOL.CIW                                              LISTIO   2127
                          0525002161 +            NE     B2,B5,IOL.CS                                            LISTIO   2128
          2151  5177000136 +                      SA7    NAMDEX+B7                                               LISTIO   2129
          2152                           IOL.CIW  BSS    0                                                       LISTIO   2130
          2152  55445                             NEXTE                                                          LISTIO   2131
                          66775                   SB7    B7+B5                                                   LISTIO   2132
                                        *                                  B1  =  EL.COMMA...3                   LISTIO   2133
                                        *                                        ? ?                             LISTIO   2134
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2135
          2153  0521002161 +                      NE     B2,B1,IOL.CS                                            LISTIO   2136
                          0774002147 +            LT     B7,B4,IOL.CIN     LOOP INCREMENT < ARRAY DIMS           LISTIO   2137
          2154  6160000303                        SB6    ARTH195                                                 LISTIO   2138
                                                                                                                 LISTIO   2139
                                        *         ARRAY NAME ERROR EXIT - B6 = ERROR NUMBER                      LISTIO   2140
                                                                                                                 LISTIO   2141
          2155  5130000144 +             IOERR2   SA3    ARNAM             ARRAY NAME                            LISTIO   2142
                          27453                   PX4    B5,X3                                                   LISTIO   2143
          2156  6170000000 X                      SB7    PH2RETN                                                 LISTIO   2144
                          0400000000 X            EQ     ERPRO                                                   LISTIO   2145
                                                                                                                 LISTIO   2146
                                        *         NOT FOUND PATH FROM SYMBOL CALL                                LISTIO   2147
                                        *                                                                        LISTIO   2148
          2157  0100000000 X             IOL.NF   RJ     KSSW              RESTORE SYMBOL TABLE CODE             LISTIO   2149
          2160  0400002512 +                      EQ     NOCOLAP           BECAUSE A FUNCTION REFERENCE          LISTIO   2150
                                                                                                                 LISTIO   2151
                                        *                                            ?                           LISTIO   2152
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2153
          2161  6130000002              IOL.CS    IF.NE  EL.),NOCOLAP                                            LISTIO   2154
          2162  76650                             SX6    B5                INITIALIZE MULTIPLY FACTOR TO 1       LISTIO   2155
                     43000                        MX0    0                                                       FCC0544    17
                          0570002164 +            NZ     B7,IOL.CS1                                              LISTIO   2156
          2163  6160000235                        SB6    ARTH157           A( )                                  LISTIO   2157
                          0400002155 +            EQ     IOERR2                                                  LISTIO   2158
                                                                                                                 LISTIO   2159
          2164  76215                    IOL.CS1  SX2    B1+B5             X2 = 4                                LISTIO   2160
                     5160000040 +                 SA6    MACLK1            INITIALIZE  MULTIPLY FACTOR           LISTIO   2161
          2165  6170000147 +                      SB7    INDX                                                    FCC0544    18
                          5150000143 +            SA5    COLLAPS                                                 LISTIO   2175
                                                                                                                 LISTIO   2176
                                        *                                  STORE THE INDICES + THEIR SUBSCRPTS   LISTIO   2177
                                        *                                             ?                          LISTIO   2178
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2179
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    50
         IMPLIED DO PROCESSING
  
          2166  55445                    INDXST   NEXTE                                                          LISTIO   2180
                          6130000003              IF.NE  EL.COMMA,NOCOLAP                                        LISTIO   2181
                          55445                   NEXTE                                                          LISTIO   2182
                                                                                                                 LISTIO   2183
                                        *                                              ?                         LISTIO   2184
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2185
          2170  0525002512 +                      NE     B2,B5,NOCOLAP     NOT A NAME                            LISTIO   2186
                          10711                   BX7    X1                                                      LISTIO   2187
                               53707              SA7    X0+B7             SAVE NAME IN INDX + X0                LISTIO   2188
          2171  73005                             SX0    X0+B5                                                   LISTIO   2189
                     55445                        NEXTE                                                          LISTIO   2190
                                                                                                                 LISTIO   2191
                                        *                                               ?                        LISTIO   2192
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2193
          2172  6130000005                        IF.NE  EL.=,NOCOLAP                                            LISTIO   2194
                                                                                                                 LISTIO   2195
                                        *                                                ?  ?  ?                 LISTIO   2196
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2197
          2173  6160000007                        SB6    DO7                                                     LISTIO   2198
          2174  55445                    INDXST0  NEXTE                                                          LISTIO   2199
                          10744                   BX7    X4                PICK UP ENTIRE ELIST WORD             LISTIO   2200
          2175  0752000240 +                      GT     B2,B5,IOERRX      NOT A NAME OR A CONSTANT              LISTIO   2201
                          53707                   SA7    X0+B7                                                   LISTIO   2202
                               73005              SX0    X0+B5                                                   LISTIO   2203
                                                                                                                 LISTIO   2204
                                        *                                                  ?  ?                  LISTIO   2205
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2206
          2176  55445                             NEXTE                                                          LISTIO   2207
                          0521002201 +            NE     B2,B1,INDXST2     NOT A COMMA                           LISTIO   2208
          2177  37602                             IX6    X0-X2             CURRENT LOOP INCREMENT - 4...MAX DIM  LISTIO   2209
                     0336002174 +                 NG     X6,INDXST0                                              LISTIO   2210
          2200  6160000221                        SB6    ARTH145                                                 LISTIO   2211
                          0400002155 +            EQ     IOERR2                                                  LISTIO   2212
                                                                                                                 LISTIO   2213
                                        *                                                        ?               LISTIO   2214
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2215
          2201  7260777774               INDXST2  SX6    X0-3                                                    LISTIO   2216
                          0336000240 +            MI     X6,IOERRX         LIMIT OF DO INDEX MISSING             LISTIO   2217
          2202  6130000002                        IF.NE  EL.),IOERR                                              LISTIO   2218
          2203  7255777776                        SX5    X5-1              DECREMENT PAREN CNT.                  LISTIO   2219
                          43000                   MX0    0                                                       LISTIO   2220
                               63727              SB7    X2+B7             INCREMENT TABLE INDX BY 4             FCC0544    19
          2204  0325002166 +                      PL     X5,INDXST                                               LISTIO   2222
                          13333                   BX3    X3-X3                                                   FCC0544    20
          2205  5223000136 +             IOL.CS2  SA2    X3+NAMDEX                                               FCC0544    21
                          0302002221 +            ZR     X2,COLAPR   IF CONSTANT SUBSCRIPT                       FCC0544    22
          2206  73635                             SX6    X3+B5                                                   FCC0544    23
                     27252                        PX2    B5,X2                                                   FCC0544    24
                          5160000107 +            SA6    TEMP1       COUNT OF I-TH SUBSCRIPT PROCESSING          FCC0544    25
          2207  7170000007                        SX7    DO7                                                     FCC0544    26
                          5170002553 +            SA7    DOVART      SAVE ERROR NUMBER                           FCC1252X    7
          2210  10622                             BX6    X2          X2 = ELIST VARIABLE                         FCC1252X    8
                     54675                        SA6    A7+B5       SAVE ELIST VARIABLE                         FCC1252X    9
                          0100000000 X            CALL   INTVAR      CHECK OUT SUBSCRIPT                         FCC1252X   10
                                        *                                                                        FCC1252X   11
                                        *         RETURN HERE IF ERROR                                           FCC1252X   12
                                        *                                                                        FCC1252X   13
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    51
         IMPLIED DO PROCESSING
  
          2211  0620002547 +                      PL     B2,DOVAR15  IF ERROR(BUT NOT TYPE INTEGER ER) REPORT IT FCC1252X   14
                                        *                                                                        FCC1252X   15
                                        *         RETURN HERE IF NO ERROR                                        FCC1252X   16
                                        *                                                                        FCC1252X   17
          2212  0100002555 +             +        RJ     EQUIVP      FIND BASE AND BIAS OF INDEX                 FCC1252X   18
          2213  5130000166 +                      SA3    COLAP       TABLE OF ARRAY NAME AND PROCESSED INDICES   FCC0544    29
                          5150000107 +            SA5    TEMP1       COUNT OF ELEMENTS IN COLAP                  FCC0544    30
          2214  73330                    CAI1     SX3    X3                                                      FCC0544    31
                     13036                        BX0    X3-X6                                                   FCC0544    32
                          0300002512 +            ZR     X0,NOCOLAP  IF CURRENT INDEX IS SAME AS ENTRY IN TABLE  FCC0544    33
          2215  7255777776                        SX5    X5-1                                                    FCC0544    34
                          54335                   SA3    A3+B5                                                   FCC0544    35
          2216  0315002214 +                      NZ     X5,CAI1     IF MORE IN TABLE                            FCC0544    36
                          54350                   SA3    A5                                                      FCC0544    37
                               20722              LX7    18                                                      FCC0544    38
          2217  12676                             BX6    X7+X6                                                   FCC0544    39
                     7203777774                   SX0    X3-3                                                    FCC0544    40
          2220  5263000166 +                      SA6    X3+COLAP    ADD SUBSCRIPT TO COLAP                      FCC0544    41
                          0330002205 +            MI     X0,IOL.CS2  IF NOT ALL SUBSCRIPT PROCESSED              FCC0544    42
                                        *         BEGIN COLLAPSE PROCESSING...                                   LISTIO   2223
                                        *         A(I,J,K),  I=I1,I2,I3),...ETC.                                 LISTIO   2224
                                        *           '        '                                                   LISTIO   2225
                                        *         NAMDEX  -  INDX                                                LISTIO   2226
                                        *         CHECK SPECIFIED DIMENSION(NAMDEX) AGAINST INDICES(INDX)        LISTIO   2227
          2221                           COLAPR   BSS    0                                                       LISTIO   2228
          2221  43700                             MX7    0                                                       LISTIO   2229
                     5170000165 +                 SA7    MACSYM                                                  LISTIO   2230
          2222  5150000134 +                      SA5    COLAPL            MAKE SURE THAT THE CONTROL VARIABLE   LISTIO   2232
                          5225000136 +            SA2    NAMDEX+X5         IS PROPER.                            LISTIO   2233
          2223  0302002351 +                      ZR     X2,COLAPR9        END OF ROAD...SPECDIM A CONSTANT      LISTIO   2234
                          66655                   SB6    B5+B5       B6 = 2                                      FCC2150     6
                               22765              LX7    X5,B6                                                   FCC2150     7
          2224  5237000147 +                      SA3    INDX+X7     FETCH CORRESPND INDEX                       FCC2150     8
                          37623                   IX6    X2-X3       CAN NOT HANDLE DIM NOT EQUAL INDEX          FCC2150     9
          2225  0316002351 +                      NZ     X6,COLAPR9                                              FCC2150    10
                          27252                   PX2    B5,X2             ELIST FORM                            LISTIO   2235
          2226  7170000007                        SX7    DO7                                                     LISTIO   2236
                          0100002550 +            RJ     DOVAR             CHECK VARIABLE                        LISTIO   2237
          2227  76710                             SX7    B1                SAVE THE ORDINAL FOR A POSSIBLE LATER LISTIO   2238
                     5170000107 +                 SA7    TEMP1             REFERENCE                             LISTIO   2239
          2230  7170200000                        SX7    V.DEF                                                   LISTIO   2244
                          12617                   BX6    X1+X7       SET DEFINED BIT FOR INDEX                   FCC0544    43
                               54625              SA6    A2+B5                                                   FCC0544    44
          2231  6110000003                        SB1    3                                                       LISTIO   2248
                          5150000134 +            SA5    COLAPL      REFORM A3 AFTER IT BEING DESTORYED          FCC2150    11
          2232  66655                             SB6    B5+B5       A3 CONTAINS THE ADDRESS OF INDEX            FCC2150    12
                     22765                        LX7    X5,B6       OF IMPLIED DO LOOP                          FCC2150    13
                          5237000147 +            SA3    INDX+X7                                                 FCC2150    14
                                        *                                  PROCESS SUBSCRIPT INCREMENT...I3      LISTIO   2256
                                        *                                                      ?                 LISTIO   2257
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2258
                                        *                                  I3 HAS TO BE A 1 OR NOT SPECIFIED     LISTIO   2259
          2233  54131                             SA1    A3+B1             CHECK I3 FOR 1                        LISTIO   2260
                     0301002236 +                 ZR     X1,COLAPR1        I3 NOT SPECIFIED                      LISTIO   2261
                               26121              UX1    B2,X1                                                   LISTIO   2262
          2234  0520002351 +                      NZ     B2,COLAPR9        I3 VARIABLE...NO COLLAPSE             LISTIO   2263
                          0100002541 +            RJ     VALTYP                                                  LISTIO   2264
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    52
         IMPLIED DO PROCESSING
  
          2235  21101                             AX1    1                                                       LISTIO   2266
                     0311002351 +                 NZ     X1,COLAPR9        I3 NOT = 1                            LISTIO   2267
                                        *                                  PROCESS SUBSCRIPT START...I1          LISTIO   2268
                                        *                                                ?                       LISTIO   2269
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2270
                                        *                                  MACOPC = 0...I1 = CONSTANT            LISTIO   2271
          2236                           COLAPR1  BSS    0                                                       LISTIO   2272
          2236  5110000107 +                      SA1    TEMP1                                                   LISTIO   2273
                          63110                   SB1    X1                                                      LISTIO   2274
          2237  0100000000 X                      RJ     DODEF             NOTIFY DO OF THE VARIABLE DEF         LISTIO   2275
          2240  5120000000 X                      SA2    =XRSELECT        IF NOT ACCUMULATING REFERENCES THEN GO LISTIO   2276
                          0302002245 +            ZR     X2,NOREFSA        TO 'NOREFSA'.                         LISTIO   2277
          2241  5110000107 +                      SA1    TEMP1             OTHERWISE ADD A DEFINITION AND A      LISTIO   2278
                          63110                   ADDREF X1,DEF            REFERENCE (SINCE THE CONTROL VARIABLE LISTIO   2279
          2243  5110000107 +                      SA1    TEMP1             OCCURS TWO PLACES)                    LISTIO   2280
                          63110                   ADDREF X1,REF                                                  LISTIO   2281
          2245                           NOREFSA  BSS    0                                                       LISTIO   2282
          2245  5150000134 +                      SA5    COLAPL                                                  LISTIO   2283
                          20502                   LX5    2                                                       LISTIO   2284
                               73655              SX6    X5+B5                                                   LISTIO   2285
          2246  5226000147 +                      SA2    INDX+X6           FETCH I1                              LISTIO   2286
                          26122                   UX1    B2,X2                                                   LISTIO   2287
          2247  0520002253 +                      NZ     B2,COLAPRC        I1 NOT CONSTANT                       LISTIO   2289
                          0100002541 +            RJ     VALTYP            RETURNS CONSTANT IN X1                LISTIO   2290
          2250  10711                             BX7    X1                                                      LISTIO   2291
                     5170000042 +                 SA7    MACLK3            STORE I1 IN MACRO BUFFER              LISTIO   2292
                               21101              AX1    1                                                       LISTIO   2294
          2251  0301002262 +                      ZR     X1,COLAPR2        I1 = 1...FULL COLLAPSE POSSIBLE       LISTIO   2295
                          43773                   MX7    59                                                      LISTIO   2296
          2252  5170000141 +                      SA7    TENCOL            SET NO FURTHER COLLAPSE FLAG          LISTIO   2297
                          0400002262 +            EQ     COLAPR2                                                 LISTIO   2298
                                                                                                                 LISTIO   2299
          2253  43673                    COLAPRC  MX6    59                                                      LISTIO   2300
                     5160000141 +                 SA6    TENCOL                                                  LISTIO   2301
                               76755              SX7    B5+B5                                                   LISTIO   2302
          2254  5130000131 +                      SA3    MACOPC                                                  LISTIO   2303
                          7213777772              SX1    X3-5                                                    LISTIO   2304
          2255  0301002256 +                      ZR     X1,COLAPRC1       IF VARDIM                             LISTIO   2305
                          54730                   SA7    A3                MACOPC = 2 ... I1 = VARIABLE          LISTIO   2306
                                        *                                                                        LISTIO   2307
          2256  7170000007               COLAPRC1 SX7    DO7                                                     LISTIO   2308
                          0100002550 +            RJ     DOVAR                                                   LISTIO   2309
          2257  0100002555 +                      RJ     EQUIVP            STORE EQUIV BIAS(MACLK2),BASE(MACLS2) LISTIO   2310
          2260  5160000027 +                      SA6    MACLS2      BASE OF I1                                  FCC0544    45
                          5170000041 +            SA7    MACLK2      BIAS OF I1                                  FCC0544    46
          2261  76750                             SX7    B5                                                      FCC0544    47
                     5170000165 +                 SA7    MACSYM      COUNT OF VARIABLE PARAMS                    FCC0544    48
                                                                                                                 FCC0544    49
                                        *                                  PROCESS SUBSCRIPT LIMIT...I2          LISTIO   2311
                                        *                                                   ?                    LISTIO   2312
                                        *                                  (((A(I,J,K),I=I1,I2,I3),...)          LISTIO   2313
          2262                           COLAPR2  BSS    0                                                       LISTIO   2314
          2262  5120000145 +                      SA2    DIMWRD                                                  LISTIO   2315
                          5150000134 +            SA5    COLAPL                                                  LISTIO   2316
          2263  10622                             BX6    X2                                                      LISTIO   2317
                     5130000146 +                 SA3    DIMVAL                                                  LISTIO   2318
                               21622              AX6    18                SET  THE DIM WRD FOR NEXT TIME        LISTIO   2319
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    53
         IMPLIED DO PROCESSING
  
          2264  6265000003                        SB6    3+X5                                                    LISTIO   2320
                          54620                   SA6    A2                DIMWRD                                LISTIO   2321
                               22763              LX7    X3,B6                                                   LISTIO   2322
          2265  6110000002                        SB1    2                                                       LISTIO   2323
                          20502                   LX5    2                                                       LISTIO   2324
                               73451              SX4    X5+B1                                                   LISTIO   2325
          2266  5214000147 +                      SA1    X4+INDX           PICK UP I2                            LISTIO   2326
                          73620                   SX6    X2                SAVE DIM CONSTANT VALUE               LISTIO   2327
          2267  5160000103 +                      SA6    TEMP                                                    LISTIO   2328
                          0337002317 +            NG     X7,COLAPRV        ARRAY IS VARIABLY DIMENSIONED         LISTIO   2330
          2270  26121                             UX1    B2,X1                                                   LISTIO   2331
                     0520002310 +                 NZ     B2,COLAPR4        I2 IS VARIABLE                        LISTIO   2332
          2271                           COLAPR3  BSS    0                                                       LISTIO   2333
          2271  0100002541 +                      RJ     VALTYP            RETURNS CONSTANT IN X1                LISTIO   2334
          2272  5130000040 +                      SA3    MACLK1                                                  LISTIO   2335
                          5120000134 +            SA2    COLAPL                                                  LISTIO   2336
          2273  20202                             LX2    2                                                       LISTIO   2337
                     5222000150 +                 SA2    X2+INDX+1         FETCH I1                              LISTIO   2338
                               26722              UX7    X2,B2                                                   LISTIO   2339
          2274  0420002276 +                      ZR     B2,COLAPRS                                              LISTIO   2341
                          73715                   SX7    X1+B5                                                   LISTIO   2342
          2275  5170000042 +                      SA7    MACLK3                                                  LISTIO   2343
                          0400002340 +            EQ     COLAPR8                                                 LISTIO   2344
                                        *                                  PROCESS CONSTANT,CONSTANT CASE        LISTIO   2345
                                        *                                  I = 1,05)                             LISTIO   2346
          2276                           COLAPRS  BSS    0                                                       LISTIO   2347
          2276  5150000042 +                      SA5    MACLK3            I1                                    LISTIO   2348
                          37615                   IX6    X1-X5             I2 - I1                               LISTIO   2349
                               73765              SX7    X6+B5             (I2 - I1) + 1                         LISTIO   2350
          2277  27607                             PX6    X7,B0                                                   LISTIO   2351
                     27403                        PX4    X3,B0                                                   LISTIO   2352
                          42664                   DX6    X6*X4            ((I2 - I1)  + 1)  * PREVIOUS CALCULTN  LISTIO   2353
                               73760              SX7    X6                                                      LISTIO   2354
          2300  0307002301 +                      ZR     X7,COLAPRS1       IF WORD COUNT IS 0 OR - SET TO        LISTIO   2355
                          0327002302 +            PL     X7,COLAPRS2       A VALUE OF 1 FOR SINGLE ARRAYS AND    LISTIO   2356
          2301  76750                    COLAPRS1 SX7    B5                ITEM COUNT = 1                        LISTIO   2357
          2302                           COLAPRS2 BSS    0                                                       LISTIO   2359
          2302  54730                             SA7    A3                RESULT TO MACLK1 FOR NEXT TIME THRU   LISTIO   2360
                     43700                        MX7    0                                                       LISTIO   2362
                          5170000042 +            SA7    MACLK3                                                  LISTIO   2363
                                        *                                       ?                    ?           LISTIO   2364
                                        *                                  A(10,10,10) - A(...),J=J1,05,J3)...   LISTIO   2365
          2303  5120000103 +                      SA2    TEMP              RETRIEVE DIM VALUE                    LISTIO   2366
                          37621                   IX6    X2-X1             CORRESPND ARRY DIM  -  CURRENT LIMIT  LISTIO   2367
          2304  0306002340 +                      ZR     X6,COLAPR8        STILL COLLAPSABLE                     LISTIO   2369
                          43773                   MX7    59                                                      LISTIO   2370
          2305  5170000141 +                      SA7    TENCOL                                                  LISTIO   2371
                          0326002340 +            PL     X6,COLAPR8        CURRENT SPEC WITHIN DEFINED BOUNDS    LISTIO   2372
          2306  6160777664                        SB6    -LISTIOC          REQUESTED DIM GREATER THAN DEFINED    LISTIO   2373
                          6170002340 +            SB7    COLAPR8                                                 LISTIO   2374
          2307  0400000000 X                      EQ     ERPROI                                                  LISTIO   2375
                                                                                                                 LISTIO   2376
                                        *                                  PROCESS I2 VARIABLE, I1 CONSTANT      LISTIO   2377
                                        *                                  I = 1,LL)                             LISTIO   2378
          2310                           COLAPR4  BSS    0                                                       LISTIO   2379
          2310  5120000131 +                      SA2    MACOPC            UPDATE PROSPECTIVE MACRO NUMBER       LISTIO   2380
                          0312002314 +            NZ     X2,COLAPT                                               LISTIO   2381
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    54
         IMPLIED DO PROCESSING
  
          2311  5130000042 +                      SA3    MACLK3                                                  LISTIO   2382
                          7273777776              SX7    X3-1                                                    LISTIO   2383
          2312  54730                             SA7    A3                                                      LISTIO   2384
                     5130000141 +                 SA3    TENCOL                                                  LISTIO   2385
          2313  0313002314 +                      NZ     X3,COLAPT                                               LISTIO   2386
                          7222000003              SX2    X2+3              SET MACOPC FOR SPECIAL CASE...C*V     LISTIO   2388
          2314                           COLAPT   BSS    0                                                       LISTIO   2389
          2314  7262777772                        SX6    X2-5                                                    LISTIO   2390
                          73725                   SX7    X2+B5             MACOPC + 1 ...I1S VALUE + 1           LISTIO   2392
                               27251              PX2    B5,X1       ELIST OF I2                                 FCC0544    50
          2315  0306002327 +                      ZR     X6,COLAPRW  IF VARDIM                                   FCC0544    51
                          54720                   SA7    A2                                                      LISTIO   2393
          2316  0400002327 +                      EQ     COLAPRW                                                 FCC0544    52
  
  
          2317  7170000005               COLAPRV  SX7    5                                                       LISTIO   2408
                          5170000131 +            SA7    MACOPC                                                  LISTIO   2409
          2320  5120000103 +                      SA2    TEMP              FETCH DIM VALUE                       LISTIO   2410
                          20201                   LX2    1                                                       LISTIO   2411
          2321  5150000012                        SA5    SYM1              PROCESS VARIABLE DIM                  LISTIO   2412
                          37352                   IX3    X5-X2             SYM1 - ORDINAL                        LISTIO   2413
                               53530              SA5    X3                PICK UP SYMBOL NAME                   LISTIO   2414
          2322  21522                             AX5    P.NAME                                                  LISTIO   2415
                     26721                        UX7    B2,X1                                                   LISTIO   2416
                          0520002325 +            NZ     B2,COLAPR5        I2 IS A VARIABLE                      LISTIO   2417
          2323  10655                             BX6    X5                SIGN BIT CLEAR FOR SUBTRACTION AT     LISTIO   2418
                                        *                                  COLAPR3 WHEN TESTING FOR ARRAY BOUND  LISTIO   2419
                     54620                        SA6    A2                STORE NEW VALUE FOR COLAPR3           LISTIO   2420
                          43773                   MX7    59                                                      LISTIO   2421
          2324  5170000141 +                      SA7    TENCOL                                                  LISTIO   2422
                          0400002271 +            EQ     COLAPR3                                                 LISTIO   2424
          2325                           COLAPR5  BSS    0                                                       LISTIO   2425
          2325  10211                             BX2    X1                I2 TO X2 FOR INTVAR                   LISTIO   2426
                     26121                        UX1    B2,X1                                                   LISTIO   2427
                          21106                   AX1    6                 SET UP FOR COMPARISON                 LISTIO   2428
                               37051              IX0    X5-X1             DIM SYMBOL - SPECIFIED SYMBOL         LISTIO   2429
          2326  0300002330 +                      ZR     X0,COLAPRU                                              LISTIO   2431
          2327  43773                    COLAPRW  MX7    59                                                      FCC0544    53
                     5170000141 +                 SA7    TENCOL            NO FARTHER COLLAPSE POSSIBLE          LISTIO   2433
                                                                                                                 LISTIO   2434
          2330  7170000007               COLAPRU  SX7    DO7                                                     LISTIO   2435
                          0100002550 +            RJ     DOVAR                                                   LISTIO   2436
          2331  76710                             SX7    B1               SAVE ORDINAL FOR POSSIBLE LATER REF    LISTIO   2437
                     5170000107 +                 SA7    TEMP1                                                   LISTIO   2438
          2332  0100002555 +                      RJ     EQUIVP            STORE EQUIV BIAS(MACLK2),BASE(MACLS2) LISTIO   2439
          2333  5130000165 +                      SA3    MACSYM                                                  FCC0544    54
                          5263000027 +            SA6    X3+MACLS2   BASE OF I2                                  FCC0544    55
          2334  5273000041 +                      SA7    X3+MACLK2   BIAS OF I2                                  FCC0544    56
                          73635                   SX6    X3+B5       UPDATE COUNT OF VARIABLE PARAMS             FCC0544    57
                               54630              SA6    A3                                                      FCC0544    58
          2335  5110000000 X                      SA1    =XRSELECT         IF NOT COLLECTING REFERENCES GO TO    LISTIO   2440
                          0301002340 +            ZR     X1,COLAPR8        'COLAPR8'.                            LISTIO   2441
          2336  5110000107 +                      SA1    TEMP1            OTHERWISE ADD A REFERENCE.             LISTIO   2442
                          63110                   ADDREF X1,REF                                                  LISTIO   2443
                                                                                                                 LISTIO   2444
                                        *         TRY AND COLLAPSE REMAINING LEVELS...IF ANY                     LISTIO   2445
                                        *         CHECK CURRENT COLLAPSE EFFORT AGAINST MAX COLLAPSABLE EFFORT   LISTIO   2446
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    55
         IMPLIED DO PROCESSING
  
                                                                                                                 LISTIO   2447
          2340  5110000037               COLAPR8  SA1    CDCNT             CURRENT STMT NUMBER                   LISTIO   2448
                          5120000135 +            SA2    ARYADD                                                  LISTIO   2449
          2341  20222                             LX2    18                                                      LISTIO   2450
                     12712                        BX7    X1+X2                                                   LISTIO   2451
                          5170000142 +            SA7    NOCAL                                                   LISTIO   2452
          2342  5130000141 +                      SA3    TENCOL                                                  LISTIO   2453
                          5150000134 +            SA5    COLAPL                                                  LISTIO   2454
          2343  5120000143 +                      SA2    COLLAPS                                                 LISTIO   2455
                          37725                   IX7    X2-X5             TOTAL COLLAPSE LEVEL - CURRENT LEVEL  LISTIO   2456
          2344  0307002355 +                      ZR     X7,COLAPC         READY TO ISSUE THE MACROS             LISTIO   2458
                          0333002347 +            NG     X3,COLPD          IF NO FURTHER COLLAPSE                LISTIO   2459
                                                                                                                 LISTIO   2460
                                        *         CIRCULATE PARENTHESIS LEVELS UNTIL COLLAPSABLE LEVEL CURRENT   LISTIO   2461
          2345  7265000001                        SX6    X5+1              UPDATE THE CURRENT COLLAPSE LEVEL     LISTIO   2462
                          5160000134 +            SA6    COLAPL                                                  LISTIO   2463
          2346  0400002221 +                      EQ     COLAPR                                                  LISTIO   2464
          2347  43473                    COLPD    MX4    59                NON-FULL COLLAPSE FLAG                LISTIO   2465
                     0100002516 +                 RJ     CKINDX            CHECK FOR LEGAL DO INDICES            LISTIO   2466
          2350  0400002566 +                      EQ     IOL.D             PROCESS NON-COLLAPSIBLE DO            LISTIO   2467
                                                                                                                 LISTIO   2468
                                                                                                                 LISTIO   2469
          2351                           COLAPR9  BSS    0                 CANNOT COLLAPSE THIS LEVEL...         LISTIO   2470
          2351  5150000134 +                      SA5    COLAPL                                                  LISTIO   2471
                          0305002512 +            ZR     X5,NOCOLAP        THIS LEVEL = LEVEL 1                  LISTIO   2473
          2352  43773                             MX7    59                                                      LISTIO   2474
                     5170000141 +                 SA7    TENCOL            SET NO FARTHER COLLAPSE FLAG          LISTIO   2475
          2353  7265777776                        SX6    X5-1              DECREMENT COLLAPSE LEVEL...           LISTIO   2476
                          54650                   SA6    A5                                                      LISTIO   2477
          2354  0400002340 +                      EQ     COLAPR8           CHECK FOR TIME TO ISSUE MACROS        LISTIO   2478
                                                                                                                 LISTIO   2479
                                                                                                                 LISTIO   2480
                                        ***                                                                      LISTIO   2481
                                        *         CALL IXFN FOR THE ADDRESS REFERENCE AND CONSTRUCT THE CORRECT  LISTIO   2482
                                        *         MACRO.  TWO DISTINCT ARRAY REFERENCES EXIST IN THIS CODE...    LISTIO   2483
                                        *         THE FIRST IS THE ORIGINAL REFERENCE PASSED BY SCANNER.         LISTIO   2484
                                        *         THE SECOND IS CONSTRUCTED BY THE CODE USING STORAGE BEGINNING  LISTIO   2485
                                        *         AT I2 IN THE INDX TABLE AND PROCEEDING THROUGH THE NAMDEX TAB. LISTIO   2486
                                        *         THE CONSTRUCTED REFERENCE IS A HYBRID OF THE ORIGINAL INDICES  LISTIO   2487
                                        *         AND THEIR SUBSCRIPTS DEPENDING UPON THE COLLAPSABILITY.        LISTIO   2488
                                                                                                                 LISTIO   2489
                                        *         B6,B7 COUNTING SCHEMA... 123 4567 8 901                        LISTIO   2490
                                        *                                  ??? ???? ? ???                        LISTIO   2491
                                        *                                  A(I2+1,J2,K2),                        LISTIO   2492
                                                                                                                 LISTIO   2493
                                        *         FIRST CHECK TO DETERMINE WHETHER A RESTART CALL IS NEEDED      LISTIO   2494
                                        *         IN CASE ONE OF THE INDICES WAS ALSO DEFINED IN THE SAME        LISTIO   2495
                                        *         STATEMENT IF IT WERE AN INPUT STATEMENT.                       LISTIO   2496
                                                                                                                 LISTIO   2497
          2355  5130000073 +             COLAPC   SA3    IOFLAG                                                  LISTIO   2498
                          0303002407 +            ZR     X3,COLAPM         IF NOT AN INPUT STATEMENT             LISTIO   2499
          2356  5140000010 +                      SA4    PARCNT                                                  LISTIO   2500
                          0304002407 +            ZR     X4,COLAPM         IF NOTHING TO OUTPUT                  LISTIO   2501
          2357  5110000000 X                      SA1    L.IOLST                                                 LISTIO   2502
                          0301002407 +            ZR     X1,COLAPM         IF NOTHING IN ORDINAL TABLE           LISTIO   2503
          2360  5120000164 +             COLAPC4  SA2    NODIMS      NO. OF DIMS SPECIFIED                       LISTIO   2504
                          73555                   SX5    X5+B5       NO. OF DIMS PROCESSED                       LISTIO   2505
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    56
         IMPLIED DO PROCESSING
  
                               37325              IX3    X2-X5                                                   LISTIO   2506
          2361  0303002367 +                      ZR     X3,COLAPC5  IF ALL SUBSCRIPTS PROCESSED                 LISTIO   2507
                          5225000136 +            SA2    X5+NAMDEX   FIRST UNPROCESSED SUBSCRIPT LEFT            LISTIO   2508
          2362  0302002367 +                      ZR     X2,COLAPC5  IF A CONSTANT                               FCC0544    59
                          5130000172 +            SA3    TEMPB                                                   FCC0544    60
          2363  5225000167 +                      SA2    X5+COLAP+1                                              FCC0544    61
                          73620                   SX6    X2                                                      FCC0544    62
                               21222              AX2    18                                                      FCC0544    63
          2364  73720                             SX7    X2                                                      FCC0544    64
                     5263000116 +                 SA6    X3+TEMPBA   BASE OF UNPROCESSED SUBSCRIPT               FCC0544    65
          2365  5273000111 +                      SA7    X3+TEMPBI   BIAS OF UNPROCESSED SUBSCRIPT               FCC0544    66
                          73635                   SX6    X3+B5                                                   FCC0544    67
                               54630              SA6    A3                                                      FCC0544    68
          2366  0400002360 +                      EQ     COLAPC4                                                 LISTIO   2521
                                                                                                                 LISTIO   2522
          2367                           COLAPC5  BSS    0                                                       LISTIO   2523
          2367  5140000165 +                      SA4    MACSYM                                                  LISTIO   2524
                          63610                   SB6    X1                TABLE LENGTH                          LISTIO   2525
          2370  5130000000 X                      SA3    O.IOLST           TABLE ORIGIN                          LISTIO   2526
                          5150000172 +            SA5    TEMPB                                                   LISTIO   2527
          2371  63330                             SB3    X3          FWA OF TABLE                                LISTIO   2528
                     43352                        MX3    -AP.IHL                                                 LISTIO   2529
                          0315002403 +            NZ     X5,COLAPC7  IF THERE ARE SUBSCRIPTS W/O INDICES         LISTIO   2530
          2372  0304002407 +             COLAPC6  ZR     X4,COLAPM   IF NO INDICES TO CHECK FOR RESTART CALLS    LISTIO   2531
                          63440                   SB4    X4                                                      LISTIO   2532
                               43400              MX4    0           CLEAR FLAG FOR EXIT                         LISTIO   2533
          2373  5110000027 +                      SA1    MACLS2            FIRST INDEX BASE                      LISTIO   2534
                          5150000041 +            SA5    MACLK2            FIRST INDEX BIAS                      LISTIO   2535
                                                                                                                 LISTIO   2536
          2374  56230                    COLAPC1  SA2    B3          FIRST TABLE ENTRY                           LISTIO   2537
                     66260                        SB2    B6                INITIALIZE COUNTER                    LISTIO   2538
                                                                                                                 LISTIO   2539
          2375  15623                    COLAPC2  BX6    -X3*X2                                                  LISTIO   2540
                     37061                        IX0    X6-X1                                                   LISTIO   2541
                          0310002400 +            NZ     X0,COLAPC8  IF IH DO NOT MATCH                          LISTIO   2542
          2376  20205                             LX2    59-AP.CRP                                               LISTIO   2543
                     0332002405 +                 MI     X2,COLAPC3  CLASS REF, FORCE RESTART                    LISTIO   2544
                               20245              LX2    AP.CRP+1-AP.CAP                                         LISTIO   2545
          2377  15623                             BX6    -X3*X2                                                  LISTIO   2546
                     37065                        IX0    X6-X5                                                   LISTIO   2547
                          0300002405 +            ZR     X0,COLAPC3  IF IH,CA MATCH, FORCE RESTART               LISTIO   2548
                                                                                                                 LISTIO   2549
          2400  54225                    COLAPC8  SA2    A2+B5       NEXT TABLE ENTRY                            LISTIO   2550
                     67225                        SB2    B2-B5             DECREMENT ITEM COUNT                  LISTIO   2551
                          0520002375 +            NZ     B2,COLAPC2        IF LIST NOT EXHAUSTED                 LISTIO   2552
          2401  67445                             SB4    B4-B5             DECREMENT INDEX COUNT                 LISTIO   2553
                     0440002372 +                 ZR     B4,COLAPC6  IF ALL INDICES EXHAUSTED                    LISTIO   2554
                               54115              SA1    A1+B5             NEXT INDEX BASE                       LISTIO   2555
          2402  54555                             SA5    A5+B5             NEXT INDEX BIAS                       LISTIO   2556
                     0400002374 +                 EQ     COLAPC1                                                 LISTIO   2557
                                                                                                                 LISTIO   2558
          2403  5110000116 +             COLAPC7  SA1    TEMPBA      BASE OF SUBSCRIPT                           LISTIO   2559
                          63450                   SB4    X5          NUMBER OF SUBSCRIPTS W/O INDICES            LISTIO   2560
          2404  5150000111 +                      SA5    TEMPBI      BIAS OF SUBSCRIPT                           LISTIO   2562
                          0400002374 +            EQ     COLAPC1                                                 LISTIO   2563
                                                                                                                 LISTIO   2564
          2405  0100002657 +             COLAPC3  RJ     IARC              ISSUE RESTART CODE                    LISTIO   2565
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    57
         IMPLIED DO PROCESSING
  
          2406  43700                             MX7    0                                                       LISTIO   2566
                     5170000000 X                 SA7    L.IOLST           CLEAR LIST LENGTH                     LISTIO   2567
                                                                                                                 LISTIO   2568
          2407  13444                    COLAPM   BX4    X4-X4             FULL COLLAPSE FLAG                    LISTIO   2569
                     0100002516 +                 RJ     CKINDX                                                  LISTIO   2570
          2410  6130000003                        SB3    3                                                       LISTIO   2571
                          5120000164 +            SA2    NODIMS                                                  LISTIO   2572
          2411  63120                             SB1    X2                B1 = NUMBER OF DEFINED ARRAY DIMS     LISTIO   2573
                     5110000131 +                 SA1    MACOPC                                                  LISTIO   2574
                               66453              SB4    B5+B3             B4 = 4                                LISTIO   2575
          2412  66750                             SB7    B5                  B7 = 1                              LISTIO   2576
                     67635                        SB6    B3-B5             B6 = 2                                LISTIO   2577
                          7160000354              SX6    M.IOLWC                                                 LISTIO   2578
          2413  36761                             IX7    X6+X1             IOLP1C + MACOPC                       LISTIO   2579
                     5170000106 +                 SA7    MACOP                                                   LISTIO   2581
          2414  5120000134 +                      SA2    COLAPL                                                  LISTIO   2582
                          76045                   SX0    B4+B5             X0 = 5                                LISTIO   2583
                               37601              IX6    X0-X1             5 - MACRO NO.(0...5)                  LISTIO   2584
          2415  0306002421 +                      ZR     X6,COLAPM2                                              LISTIO   2585
                          5150000064              SA5    NRLN                                                    LISTIO   2586
          2416  10755                             BX7    X5                                                      LISTIO   2587
                     5170000032 +                 SA7    MACLP1            RESULT NUMBER                         LISTIO   2588
          2417  5170000104 +                      SA7    TEMPA                                                   LISTIO   2589
                          73655                   SX6    X5+B5             INCREMENT NRLN                        LISTIO   2590
                               54650              SA6    A5                                                      LISTIO   2591
          2420  0400002453 +                      EQ     COLAPM8           GO TO 'COLAPM8' TO FINISH UP.         LISTIO   2592
          2421                           COLAPM2  BSS    0                 PROCESS THE DOUBLE IXFN CALL (VARDIM) LISTIO   2593
          2421  5130000135 +                      SA3    ARYADD                                                  LISTIO   2594
                          5120000150 +            SA2    INDX+1            FETCH I1 TO PRESERVE FROM CLOBBERING  LISTIO   2595
          2422  10722                             BX7    X2                                                      LISTIO   2596
                     53330                        SA3    X3                FETCH THE ARRAY ELIST NAME            LISTIO   2597
                          5170000103 +            SA7    TEMP              SAVE I1                               LISTIO   2598
          2423  54525                             SA5    A2+B5             I2                                    LISTIO   2599
                     10733                        BX7    X3                                                      LISTIO   2600
                          54726                   SA7    A2+B6                                                   LISTIO   2601
                               74626              SX6    A2+B6                                                   LISTIO   2602
          2424  5160000032                        SA6    SELIST                                                  LISTIO   2603
                          55135                   SA1    A3-B5             FETCH (                               LISTIO   2604
                               10611              BX6    X1                                                      LISTIO   2605
          2425  55675                             SA6    A7-B5                                                   LISTIO   2606
                     10755                        BX7    X5                INDX + 2                              LISTIO   2607
                          55765                   SA7    A6-B5             A(I2                                  LISTIO   2608
          2426  5130000017 +                      SA3    PLUS                                                    LISTIO   2609
                          10633                   BX6    X3                                                      LISTIO   2610
                               55675              SA6    A7-B5             A(I2+                                 LISTIO   2611
          2427  5130000016 +                      SA3    CON1                                                    LISTIO   2612
                          10733                   BX7    X3                                                      LISTIO   2613
                               55765              SA7    A6-B5             A(I2+1                                LISTIO   2614
          2430  55116                             SA1    A1-B6             FETCH THE COMMA                       LISTIO   2615
                     10711                        BX7    X1                                                      LISTIO   2616
                          55775                   SA7    A7-B5             A(I2+1,                               LISTIO   2617
                                        *         CHECK NOW FOR THE CORRECT NO. OF SUBSCRIPTS TO REPLACE         LISTIO   2618
          2431  5120000134 +                      SA2    COLAPL                                                  LISTIO   2619
                          66113                   SB1    B1+B3                                                   LISTIO   2620
          2432  0302002436 +                      ZR     X2,COLAPM5                                              LISTIO   2621
          2433                           COLAPM4  BSS    0                                                       LISTIO   2622
          2433  21201                             AX2    1                                 ?                     LISTIO   2623
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    58
         IMPLIED DO PROCESSING
  
                     54454                        SA4    A5+B4             I,I1,I2,I3,J,J1,J2,J3,K,K1,K2,K3      LISTIO   2624
                          10644                   BX6    X4                                                      LISTIO   2625
                               66444              SB4    B4+B4             B4  =  8                              LISTIO   2626
          2434  55675                             SA6    A7-B5             J1  _  J PLACE OF THE ARRAY REF       LISTIO   2627
                     55116                        SA1    A1-B6             SKIP THE NEXT INDEX AND GET , OR )    LISTIO   2628
                          10711                   BX7    X1                                                      LISTIO   2629
                               55765              SA7    A6-B5             A(I2+1,J2,                            LISTIO   2630
          2435  66775                             SB7    B7+B5                                                   LISTIO   2631
                     0312002433 +                 NZ     X2,COLAPM4                                              LISTIO   2632
          2436                           COLAPM5  BSS    0                                                       LISTIO   2633
          2436  55115                             SA1    A1-B5                                                   LISTIO   2634
                     10711                        BX7    X1                                                      LISTIO   2635
                          55775                   SA7    A7-B5                                                   LISTIO   2636
                               66775              SB7    B7+B5                                                   LISTIO   2637
          2437  0571002436 +                      NE     B7,B1,COLAPM5     B7 NOT EQUAL TO DEFINED NO. ARRY DIMS LISTIO   2638
                                                                                                                 LISTIO   2639
                          5150000064              SA5    NRLN                                                    LISTIO   2640
          2440  10755                             BX7    X5                                                      LISTIO   2641
                     73655                        SX6    X5+B5                                                   LISTIO   2642
                          5170000032 +            SA7    MACLP1            RESULT NUMBER                         LISTIO   2643
          2441  54650                             SA6    A5                                                      LISTIO   2644
                     5170000104 +                 SA7    TEMPA                                                   LISTIO   2645
                               43601              MX6    1                                                       LISTIO   2646
          2442  76350                             SX3    B5                NO EXPRESSION FLAG                    LISTIO   2647
                     5160000000 X                 SA6    SAVDAN      FORCE CODE FLUSHING BY ARITH                LISTIO   2648
                               43274              IXFN   NOREF                                                   LISTIO   2649
          2444  5160000034 +                      MP=    P3,X6                                                   LISTIO   2650
                          5120000103 +            SA2    TEMP              PICK UP STORED I1 AND PUT             LISTIO   2651
          2445  10622                             BX6    X2                IT BACK WHERE IT BELONGS AT I1        LISTIO   2652
                     5130000043 +                 SA3    MACLK4            TYPE+1 OF ARRAY                       LISTIO   2653
                               76450              SX4    B5                                                      LISTIO   2654
          2446  7203777773                        SX0    X3-T.DBL-1  UNBIAS TYPE VALUE                           LISTIO   2655
                          21073                   AX0    59                                                      LISTIO   2656
                               11504              BX5    X0*X4             0 IF DBL OR CPLX, 1 IF SINGLE         LISTIO   2657
          2447  7275000027                        SX7    X5+23                                                   LISTIO   2658
                          5160000150 +            SA6    INDX+1                                                  LISTIO   2659
          2450  5170000040 +                      SA7    MACLK1            23 IF DBL OR CPLX, 24 IF SINGLE       LISTIO   2660
                          5120000134 +            SA2    COLAPL                                                  LISTIO   2661
          2451  66655                             SB6    B5+B5                                                   LISTIO   2662
                     66466                        SB4    B6+B6           B4 = 4                                  LISTIO   2663
                          76650                   SX6    B5                                                      FCC1479X    7
          2452  5160000013 +                      SA6    BIO         MARK NO RESTART CALL FOR THIS IXFN          FCC1479X    8
          2453  0100002472 +             COLAPM8  RJ     ARYCONS                                                 LISTIO   2664
          2454  43601                             MX6    1                                                       LISTIO   2665
                     76350                        SX3    B5                NO EXPRESSION FLAG                    LISTIO   2666
                          5160000000 X            SA6    SAVDAN            TO FORCE CODE FLUSHING BY ARITH       LISTIO   2667
          2455  5160000101 +                      SA6    CRFLAG      ARRAY REF IS A CLASS REF                    LISTIO   2668
                          5120000073 +            IXFN   IOFLAG                                                  LISTIO   2669
          2457  5150000106 +                      SA5    MACOP                                                   LISTIO   2670
                          7245777423              SX4    X5-M.IOLWC                                              LISTIO   2671
          2460  0304002505 +                      ZR     X4,COLAPAL        SEE IF ALL LEVELS COLLAPSABLE         LISTIO   2672
          2461  10722                    COLAPM9  BX7    X2                                                      LISTIO   2673
                     5170000103 +                 SA7    TEMP              SAVE WORD B OF ENTRY                  LISTIO   2674
          2462  5160000033 +                      MP=    P2,X6                                                   LISTIO   2675
                          0100003014 +            RJ     MACOUT            ISSUE COLLAPSE MACRO                  LISTIO   2676
                                                                                                                 LISTIO   2677
          2463  5170000106 +                      SA7    MACBUF-1          INITIALIZE A7 FOR STORES              LISTIO   2678
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    59
         IMPLIED DO PROCESSING
  
                          5120000103 +            SA2    TEMP              RESTORE WORD B                        LISTIO   2679
          2464  5130000104 +                      SA3    TEMPA                                                   LISTIO   2680
                          66400                   SB4    B0                WORD COUNT FOR WRITE CALL             LISTIO   2681
                               10633              BX6    X3                RESULT NUMBER OF LAST MACRO           LISTIO   2682
          2465  0100001320 +                      RJ     PSTAPL            GENERATE STORE TO APLIST MACROS       LISTIO   2683
          2466  0100001332 +                      RJ     STIOM             ISSUE -1 APLIST MACRO WORD            LISTIO   2684
                                                                                                                 LISTIO   2685
                                                                                                                 LISTIO   2686
          2467                           COLAPMW  BSS    0                 RESTORE THE CORRECT SELIST AND MOVE _ LISTIO   2687
          2467  5150000163 +                      SA5    SAVELIS                                                 LISTIO   2688
                          73650                   SX6    X5                                                      LISTIO   2689
          2470  5160000032                        SA6    SELIST            UPDATE ELIST POINTER                  LISTIO   2690
                          13777                   BX7    X7-X7                                                   LISTIO   2691
          2471  5170000142 +                      SA7    NOCAL           CLEAR REPROCESS FLAG                    LISTIO   2692
                          0400001630 +            EQ     IOL.NE            PROCESS THE NEXT ELIST ITEM           LISTIO   2694
  
  
  
  
                                        **        ARYCONS - CONSTRUCT AN ARRAY REFERENCE FOR THE IXFN, USING     LISTIO   2696
                                        *         THE E-LIST ARRAY REFERENCE GENERATED BY *SCANNER*.  THIS REF   LISTIO   2697
                                        *         WILL REPLACE THE ORIGINAL.                                     LISTIO   2698
                                                                                                                 LISTIO   2699
          2472  0400402472 +             ARYCONS  ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   2700
          2473  5130000135 +                      SA3    ARYADD                                                  LISTIO   2701
                          66300                   SB3    B0                                                      LISTIO   2702
                               63126              SB1    X2+B6             COLAPL + 2                            LISTIO   2703
          2474  6170000002                        SB7    EL.)                                                    LISTIO   2704
                          5243777775              SA4    X3-2                                                    LISTIO   2705
          2475  26124                    ARYCON1  UX1    B2,X4                                                   LISTIO   2706
                     55445                        SA4    A4-B5             UPDATE ELIST ADDRESS POINTER          LISTIO   2707
                          0527002475 +            NE     B2,B7,ARYCON1     CURRENT ELEMENT NOT EQ )              LISTIO   2708
          2476  66335                             SB3    B3+B5             INCREMENT RIGHT PAREN COUNT           LISTIO   2710
                     0531002475 +                 NE     B3,B1,ARYCON1     CURRENT PAREN NOT EQ COLLAPSE PAREN   LISTIO   2711
                               74640              SX6    A4                                                      LISTIO   2712
          2477  5160000163 +                      SA6    SAVELIS                                                 LISTIO   2714
                          5155000147 +            SA5    INDX+B5           I1                                    LISTIO   2715
          2500  10755                             BX7    X5                                                      LISTIO   2716
                     5273777775                   SA7    X3-2              A(I1                                  LISTIO   2717
                               10633              BX6    X3                SET UP SELIST FOR IXFN                LISTIO   2718
          2501  5160000032                        SA6    SELIST                                                  LISTIO   2719
                          0302002472 +            ZR     X2,ARYCONS        NO MORE COLLAPSABLE SUBSCRIPTS        LISTIO   2720
                                                                                                                 LISTIO   2721
                                        *         THIS ROUTINE REPLACES THE INDICES THAT ARE COLLAPSABLE WITH    LISTIO   2722
                                        *         THEIR RESPECTIVE STARTING SUBSCRIPTS...                        LISTIO   2723
                                                                                                                 LISTIO   2724
                                        *                                    ?<<<<<<<<?                          LISTIO   2725
                                        *                                  A(I,J,K),I=I1,I2,I3),J=J1,J2(J3),...  LISTIO   2726
                                                                                                                 LISTIO   2727
          2502                           ARYCON0  BSS    0                                                       LISTIO   2728
          2502  21201                             AX2    1                              ?                        LISTIO   2729
                     54454                        SA4    A5+B4             I,I1,I2,I3,J,J1,J2,J3,K,K1,K2,K3      LISTIO   2730
                          10644                   BX6    X4                                                      LISTIO   2731
                               66444              SB4    B4+B4             B4 = 8                                LISTIO   2732
          2503  55676                             SA6    A7-B6             J1 _  J                               LISTIO   2733
                     66666                        SB6    B6+B6                                                   LISTIO   2734
                          0312002502 +            NZ     X2,ARYCON0        ALL THE LEVELS ARE COLLAPSABLE        LISTIO   2735
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    60
         IMPLIED DO PROCESSING                                        ARYCONS 
  
          2504  0400002472 +                      EQ     ARYCONS                                                 LISTIO   2736
                                                                                                                 LISTIO   2737
                                                                                                                 LISTIO   2738
                                        *         GENERATE APLIST ITEM WORD WHEN ALL LOOP LEVELS ARE COLLAPSABLE LISTIO   2739
                                                                                                                 LISTIO   2740
          2505  5150000001 +             COLAPAL  SA5    APLRST                                                  LISTIO   2741
                          21501                   AX5    1                                                       LISTIO   2742
          2506  0305002461 +                      ZR     X5,COLAPM9        IF IXFN MACRO WAS OUTPUTTED LAST      LISTIO   2743
                          5140000040 +            SA4    MACLK1                                                  LISTIO   2744
          2507  10644                             BX6    X4                                                      LISTIO   2745
                     13700                        BX7    X0-X0                                                   LISTIO   2746
                          5160000007 +            SA6    ITEMCT            SET UP ITEM COUNT                     LISTIO   2747
          2510  54750                             SA7    A5                CLEAR FLAG                            LISTIO   2748
                     0100001743 +                 RJ     LSTITM            ISSUE APLIST WORD                     LISTIO   2749
          2511  0400002467 +                      EQ     COLAPMW                                                 LISTIO   2750
                                                                                                                 LISTIO   2751
                                                                                                                 LISTIO   2752
                                        *         NOCOLAP - FAIL EXIT                                            LISTIO   2753
                                                                                                                 LISTIO   2754
          2512  5150000037               NOCOLAP  SA5    CDCNT             CURRENT STATEMENT NUMBER              LISTIO   2755
                          43001                   MX0    1                                                       LISTIO   2756
          2513  5130000135 +                      SA3    ARYADD                                                  LISTIO   2757
                          20322                   LX3    18                                                      LISTIO   2758
                               12605              BX6    X0+X5             NO COLLAPSE = -                       LISTIO   2759
          2514  12763                             BX7    X6+X3             NOCAL = -...ARYADD,CARDCNT            LISTIO   2760
                     5170000142 +                 SA7    NOCAL             STORE ARRAY ADDRESS FOR FUTURE TEST   LISTIO   2761
          2515  0400002566 +                      EQ     IOL.D             EXIT TO STANDARD DO LOOP PROCESSING   LISTIO   2762
  
  
  
                                        **        CKINDX - CHECK THE INDICES OF A NEST OF I/O LOOPS FOR          LISTIO   2764
                                        *         REDEFINITION OF DO VARIABLES OF OUTER LOOPS.                   LISTIO   2765
                                        *         ENTRY  (X4) = - IF NON FULL COLLAPSE CALL                      LISTIO   2766
                                        *                       + IF FULL COLLAPSE ENTRY                         LISTIO   2767
                                                                                                                 LISTIO   2768
          2516  0400402516 +             CKINDX   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   2769
          2517  5130000143 +                      SA3    COLLAPS                                                 LISTIO   2770
                          0303002516 +            ZR     X3,CKINDX         IF ONLY ONE LEVEL                     LISTIO   2771
                                                                                                                 LISTIO   2772
          2520  20302                             LX3    2                 4 * NO. OF PAREN LEVELS               LISTIO   2773
                     6233000153 +                 SB3    X3+INDX+4         UPPER LIMIT FOR SCAN                  LISTIO   2774
          2521  5150000147 +                      SA5    INDX              CONTROL VARIABLE I                    LISTIO   2775
                          0100002526 +            RJ     DOINDX            CHECK FOR REDEFINITION                LISTIO   2776
                                                                                                                 LISTIO   2777
          2522  5120000134 +                      SA2    COLAPL                                                  LISTIO   2778
                          21201                   AX2    1                                                       LISTIO   2779
          2523  0302002516 +                      ZR     X2,CKINDX         IF ONLY ONE LEVEL COLLAPSED           LISTIO   2780
                          5150000153 +            SA5    INDX+4            CONTROL VARIABLE J                    LISTIO   2781
          2524  0100002526 +                      RJ     DOINDX            CHECK FOR REDEFINITION                LISTIO   2782
          2525  0400002516 +                      EQ     CKINDX                                                  LISTIO   2783
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    61
         IMPLIED DO PROCESSING                                        DOINDX
  
          2526  0400402526 +             DOINDX   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   2785
          2527  6065000004                        SB6    A5+4              STARTING INDEX ADDRESS                LISTIO   2786
                          43014                   MX0    12                                                      LISTIO   2787
          2530  0663002526 +             DOI1     GE     B6,B3,DOINDX      IF THE SCAN IS DONE                   LISTIO   2788
                          56360                   SA3    B6                INDX ENTRY                            LISTIO   2789
                               15630              BX6    -X0*X3                                                  LISTIO   2790
          2531  13765                             BX7    X6-X5                                                   LISTIO   2791
                     66665                        SB6    B6+B5                                                   LISTIO   2792
                          0317002530 +            NZ     X7,DOI1           IF INDEX ENTRY .NE. CONTROL VAR       LISTIO   2793
                                                                                                                 LISTIO   2794
          2532  64230                             SB2    A3                                                      LISTIO   2795
                     6160000015                   SB6    E.DO13            ERROR MESSAGE NO.                     LISTIO   2796
                               10355              BX3    X5                                                      LISTIO   2797
          2533  6110000157 +                      SB1    INDX+8            CONTROL VAR K                         LISTIO   2798
                          6170002526 +            SB7    DOINDX            RETURN ADDRESS                        LISTIO   2799
          2534  0334002526 +                      NG     X4,DOINDX         IF NOT FULL COLLAPSE, EXIT            LISTIO   2800
          2535  13444                    DOI2     BX4    X4-X4                                                   LISTIO   2801
                     0421000000 X                 EQ     B2,B1,ERPRO       IF A CONTROL VARIABLE                 LISTIO   2802
          2536  6110000153 +                      SB1    INDX+4                                                  LISTIO   2803
                          0421000000 X            EQ     B2,B1,ERPRO       IF A CONTROL VARIABLE REDEF           LISTIO   2804
          2537  0400000000 X                      EQ     ERPROI            ONLY A LOOP LIMIT REDEF               LISTIO   2805
                                                                                                                 LISTIO   2806
  
  
  
                                        ***                                                                      LISTIO   2808
                                        *         VALTYP - CHECK CONSTANT TYPE AND RETURN VALUE                  LISTIO   2809
                                        *                                                                        LISTIO   2810
                                        *         ON ENTRY:                                                      LISTIO   2811
                                        *                X1 = LOWER 48 BITS OF ELIST FOR CONSTANT                LISTIO   2812
                                        *                                                                        LISTIO   2813
                                        *         ON EXIT:                                                       LISTIO   2814
                                        *                X1 = VALUE                                              LISTIO   2815
                                        *                                                                        LISTIO   2816
          2540  67105                    VALTYP1  SB1    -B5               CONVERT ONLY                          LISTIO   2817
                     10144                        BX1    X4                                                      LISTIO   2818
                          0100000000 X            CALL   CONVERT                                                 LISTIO   2819
                                                                                                                 LISTIO   2820
          2541  0400402541 +             VALTYP   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   2821
          2542  27401                             PX4    X1                                                      LISTIO   2822
                     7100000134                   SX0    134B                                                    LISTIO   2823
                               21155              AX1    45                                                      LISTIO   2824
          2543  6271000065                        SB7    X1+59-6                                                 LISTIO   2825
                          22670                   LX6    B7,X0                                                   LISTIO   2826
          2544  0326002540 +                      PL     X6,VALTYP1        IF INTEGER,OCTAL OR HOLERITH          LISTIO   2827
                                                                                                                 LISTIO   2828
                          6160000007              SB6    DO7               BAD DO LIMIT                          LISTIO   2829
          2545  0400000240 +                      EQ     IOERRX                                                  LISTIO   2830
  
  
  
                                        ***                                                                      LISTIO   2832
                                        *         DOVAR - CALL INTVAR IN DOPROC TO CHECK FOR PROPER DO VARIABLE  LISTIO   2833
                                        *                                                                        LISTIO   2834
                                        *         ON ENTRY:                                                      LISTIO   2835
                                        *                X2 = ELIST FOR VARIABLE                                 LISTIO   2836
                                        *                X7 = ERROR NUMBER                                       LISTIO   2837
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    62
         IMPLIED DO PROCESSING
  
                                        *                                                                        LISTIO   2838
                                                                                                                 LISTIO   2839
          2546  10622                    DOVAR1   BX6    X2                                                      LISTIO   2840
                     54675                        SA6    A7+B5             AND VARIABLE                          LISTIO   2841
                          0100000000 X            CALL   INTVAR                                                  LISTIO   2842
          2547  5150002553 +             DOVAR15  SA5    DOVART                                                  FCC1252X   19
                          0400002552 +            EQ     DOVAR2                                                  LISTIO   2844
                                                                                                                 LISTIO   2845
          2550  0400402550 +             DOVAR    ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   2846
          2551  5170002553 +                      SA7    DOVART            SAVE ERROR NUMBER                     LISTIO   2847
                          0400002546 +            EQ     DOVAR1                                                  LISTIO   2848
                                                                                                                 LISTIO   2849
          2552  54455                    DOVAR2   SA4    A5+B5             VARIABLE                              LISTIO   2850
                     63650                        SB6    X5                                                      LISTIO   2851
                          0400000240 +            EQ     IOERRX                                                  LISTIO   2852
                                                                                                                 LISTIO   2853
          2553                     2     DOVART   BSS    2                 2 TEMPORARIES FOR DOVAR               LISTIO   2854
  
  
  
                                        **        EQUIVP - RETURN BASE/BIAS OF SYMBOL                            LISTIO   2856
                                        *         ENTRY  X1 = WORD A OF SYMBOL                                   FCC0544    69
                                        *                A2 _ WORD B OF SYMBOL                                   FCC0544    70
                                        *                B1 = SYMTAB ORDINAL                                     FCC0544    71
                                        *         EXIT   X6 = BASE                                               FCC0544    72
                                        *                X7 = BIAS                                               FCC0544    73
                                        *         SAVE   A2                                                      FCC0544    74
          2555  0400402555 +             EQUIVP   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   2865
          2556  20157                             LX1    59-P.EQU                                                LISTIO   2867
                     76610                        SX6    B1                SYMTAB ORDINAL                        LISTIO   2871
                          76700                   SX7    B0                                                      LISTIO   2872
          2557  0321002555 +                      PL     X1,EQUIVP   IF NOT EQUIVALENCED                         FCC0544    75
                          54220                   SA2    A2          WORD B                                      LISTIO   2874
                               43060              MX0    -L.DIMP                                                 LISTIO   2875
          2560  20223                             LX2    -P.DIMP                                                 LISTIO   2876
                     5110000017                   SA1    DIM1                                                    LISTIO   2877
                               15620              BX6    -X0*X2                                                  LISTIO   2878
          2561  63210                             SB2    X1                                                      LISTIO   2879
                     20601                        LX6    1           2*ORD(DIM)                                  LISTIO   2880
                          53362                   SA3    X6+B2       WORD 1 OF DIMTAB ENTRY                      LISTIO   2881
                               21322              AX3    18                                                      LISTIO   2882
          2562  73730                             SX7    X3                BIAS                                  LISTIO   2883
                     21322                        AX3    18                                                      LISTIO   2884
                          73630                   SX6    X3                BASE                                  LISTIO   2885
          2563  0400002555 +                      EQ     EQUIVP                                                  FCC0544    76
                                                                                                                 LISTIO   2888
                                                                                                                 LISTIO   2889
                                        *         FIRST OCCURANCE OF NAME AS ARRAY IN IMPLIED DO LOOP            LISTIO   2890
                                                                                                                 LISTIO   2891
          2564  12202                    IOERR1   BX2    X0+X2             SET VAR BIT                           LISTIO   2892
                     36762                        IX7    X6+X2             AND TYPE                              LISTIO   2893
                          54720                   SA7    A2                                                      LISTIO   2894
          2565  6160000210                        SB6    ARTH136                                                 LISTIO   2895
                          0400000237 +            EQ     CFSIV1            GO ISSUE ERROR MESSAGE                LISTIO   2896
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    63
         IMPLIED DO PROCESSING - NO COLLAPSE CASE 
  
                                        ***                                                                      LISTIO   2898
                                        *         IMPLIED DO PROCESSING - WHERE LIST IS NOT COLLAPSABLE          LISTIO   2899
                                        *                                                                        LISTIO   2900
                                                                                                                 LISTIO   2901
          2566  5150000032               IOL.D    ADVIN                                                          LISTIO   2902
                          6140000002              BI=    B4,EL.)                                                 LISTIO   2903
          2570  6130000006                        BI=    B3,EL.(                                                 LISTIO   2904
                          6160000005              BI=    B6,EL.=                                                 LISTIO   2905
          2571  6170000004                        BI=    B7,EL.EOS                                               LISTIO   2906
                          66100                   SB1    B0                B1 = ADDRESS OF = SIGN AT LEVEL 0     LISTIO   2907
                               43000              MX0    0                 PAREN COUNT                           LISTIO   2908
          2572  6120000025                        SB2    EL.S)                                                   LISTIO   2909
                          27720                   PX7    B2,X0             X7 = ELIST FOR SPECIAL PAREN          LISTIO   2910
                               76250              SX2    B5                                                      LISTIO   2911
                                                                                                                 LISTIO   2912
                                        *         SCAN FOR = SIGN AT LEVEL 0 AND ) AT LEVEL -1                   LISTIO   2913
                                                                                                                 LISTIO   2914
          2573  55445                    IMDS     NEXTE                                                          LISTIO   2915
                          0652002573 +            LE     B2,B5,IMDS        IGNORE CONSTANTS AND NAMES            LISTIO   2916
          2574  0523002576 +                      NE     B2,"EL.(",IMDS1                                         LISTIO   2917
                          36002                   IX0    X0+X2             INCREMENT PAREN COUNT                 LISTIO   2918
          2575  0400002573 +                      EQ     IMDS                                                    LISTIO   2919
                                                                                                                 LISTIO   2920
          2576  0526002604 +             IMDS1    NE     B2,"EL.=",IMDS2                                         LISTIO   2921
                          5044000002              SA4    A4+2        TRY TO LOCATE LEFT PARENTHESIS              FCC2285    11
          2577  26124                             UX1    B2,X4       IN ORDER TO DETECT IMPLIED DO SPEC          FCC2285    12
                     0523002601 +                 NE     B2,"EL.(",IMDS1A  ERROR, IF NOT LEFT PARENTHESIS        FCC2285    13
          2600  6160777270                        SB6    -E.PIL                                                  FCC2285    14
                          0400000240 +            EQ     IOERRX      IO SYNTAX ERROR OCCURS                      FCC2285    15
          2601  5044777775              IMDS1A    SA4    A4-2        BACKUP TOKE LIST                            FCC2285    16
                          0310002573 +            NZ     X0,IMDS     IGNOR INNER LOOP                            FCC2285    17
          2602  0510001471 +                      NZ     B1,IOERR          IF MORE THAN ONE OUTERMOST LOOP       LISTIO   2923
                          64140                   SB1    A4                SAVE ADDRESS                          LISTIO   2924
          2603  0400002573 +                      EQ     IMDS                                                    LISTIO   2925
                                                                                                                 LISTIO   2926
          2604  0424002606 +             IMDS2    EQ     B2,"EL.)",IMDS3                                         LISTIO   2927
                          0527002573 +            NE     B2,"EL.EOS",IMDS                                        LISTIO   2928
          2605  0400001471 +                      EQ     IOERR                                                   LISTIO   2929
                                                                                                                 LISTIO   2930
          2606  37002                    IMDS3    IX0    X0-X2             DECREMENT PAREN COUNT                 LISTIO   2931
                     0320002573 +                 PL     X0,IMDS           IF NOT OUTER MOST                     LISTIO   2932
          2607  0410002611 +                      ZR     B1,IMDS4          IF NO = SIGN FOUND                    LISTIO   2933
                          54740                   SA7    A4                STORE SPECIAL PAREN                   LISTIO   2934
          2610  0400002633 +                      EQ     DOBEGIN                                                 LISTIO   2935
                                                                                                                 LISTIO   2936
          2611  55445                    IMDS4    NEXTE                    ELEMENT AFTER ZERO LEVEL PAREN        LISTIO   2937
                          0632002615 +            LE     B2,"EL.(",IMDS5   NOT FOLLOWED BY AN OPERATOR           LISTIO   2938
          2612  6110000025                        SB1    EL.S)                                                   LISTIO   2939
                          0421002615 +            EQ     B2,B1,IMDS5       IF FOLLOWED BY SPECIAL PAREN          LISTIO   2940
          2613  5150000032                        BACKE                    BACK OVER THE OPENING PAREN           LISTIO   2941
          2614  0400001567 +                      EQ     IOL.N                                                   LISTIO   2942
                                                                                                                 LISTIO   2943
          2615  20622                    IMDS5    LX6    18                                                      FCC0787   137
                     74345                        SX3    A4+B5       ADDRESS OF ELIST FOR )                      FCC0787   138
                          12763                   BX7    X6+X3                                                   FCC0787   139
                               53450              SA4    X5          ELIST FOR (                                 FCC0787   140
          2616  5170000014 +                      SA7    CPLXC       24/0,18/SELIST,18/EPOINT FOR )              FCC0787   141
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    64
         IMPLIED DO PROCESSING - NO COLLAPSE CASE 
  
                          0100000000 X            CALL   CFCD        CHECK FOR COMPLEX DATA                      FCC0787   142
          2617  5150000014 +                      SA5    CPLXC                                                   FCC0787   143
                          0300002622 +            ZR     X0,IMDS5A   IF CPLX CONST                               FCC0787   144
          2620  43700                             MX7    0                                                       FCC0787   145
                     6120000025                   SB2    EL.S)                                                   FCC0787   146
                               27627              PX6    B2,X7                                                   FCC0787   147
          2621  54750                             SA7    A5                                                      FCC0787   148
                     53650                        SA6    X5          STORE SPECIAL PAREN                         FCC0787   149
                          0400001521 +            EQ     IOL.L                                                   FCC0787   150
                                                                                                                 FCC0787   151
          2622  10611                    IMDS5A   BX6    X1                                                      FCC0787   152
                     22702                        LX7    X2                                                      FCC0787   153
                          5160000000 X            SA6    =XCONST     REAL PART                                   FCC0787   154
          2623  5076000001                        SA7    A6+1        IMAGINARY PART                              FCC0787   155
                          5130000032              SA3    SELIST                                                  FCC0787   156
          2624  21522                             AX5    18                                                      FCC0787   157
                     10755                        BX7    X5                                                      FCC0787   158
                          22603                   LX6    X3                                                      FCC0787   159
                               54730              SA7    A3          RESTORE ELIST POINTER                       FCC0787   160
          2625  54650                             SA6    A5          FLAG CPLX CONST                             FCC0787   161
                     0400001521 +                 EQ     IOL.L                                                   LISTIO   2945
                                                                                                                 LISTIO   2946
                                        *         DONEX - RETURN FROM DOPROC AFTER PROCESSING END OF LOOP        LISTIO   2947
                                                                                                                 LISTIO   2948
          2626  5150000032               DONEX    GETE                     GET FIRST E-LIST ELEMENT              LISTIO   2949
          2627  6130000004                        BI=    B3,EL.EOS                                               LISTIO   2950
                          6140000025              SB4    EL.S)                                                   LISTIO   2951
                                                                                                                 LISTIO   2952
          2630  55445                    DONEX.L  NEXTE                    NEXT ELEMENT                          LISTIO   2953
                          0423001471 +            EQ     B2,"EL.EOS",IOERR     IF WE HIT END OF STMT             LISTIO   2954
          2631  0524002630 +                      NE     B2,B4,DONEX.L     LOOP IF NOT A SPECIAL PAREN           LISTIO   2955
                                                                                                                 LISTIO   2956
                          75645                   UPDATE                   UPDATE E-LIST POINTER                 LISTIO   2957
          2632  0400001630 +                      EQ     IOL.NE            GO GET NEXT ELEMENT                   LISTIO   2958
                                                                                                                 LISTIO   2959
                                                                                                                 LISTIO   2960
                                        *         ISSUE I/O CALL BEFORE GENERATION OF DO-BEGIN LOOP CODE         LISTIO   2961
                                                                                                                 LISTIO   2962
          2633  5140000010 +             DOBEGIN  SA4    PARCNT                                                  LISTIO   2963
                          0304000000 X            ZR     X4,DOIT           IF NOTHING TO OUTPUT                  LISTIO   2964
          2634  76610                             SX6    B1                                                      LISTIO   2965
                     5160000103 +                 SA6    TEMP              SAVE INFORMATION FOR DOPROC           LISTIO   2966
          2635  0100002646 +                      RJ     ARIOCM            ISSUE RESTART CODE                    LISTIO   2967
          2636  5110000103 +                      SA1    TEMP                                                    LISTIO   2968
                          63110                   SB1    X1                RESTORE ELIST POINTER FOR DOPROC      LISTIO   2969
          2637  5140000006 +                      SA4    IONAME                                                  LISTIO   2970
                          0334000000 X            NG     X4,DOIT           IF NO ADJUSTMENTS NECESSARY           LISTIO   2971
          2640  7150000025 +                      SX5    GEFNT             MACRO HEADER ADDRESS                  LISTIO   2972
                          73645                   SX6    X4+B5             ADJUST ADDRESS OF OBJECT NAME         LISTIO   2973
                               20522              LX5    18                                                      LISTIO   2974
          2641  43001                             MX0    1                                                       LISTIO   2975
                     36356                        IX3    X5+X6                                                   LISTIO   2976
                          12703                   BX7    X0+X3                                                   LISTIO   2977
                               54740              SA7    A4                                                      LISTIO   2978
          2642  0400000000 X                      EQ     DOIT              PROCESS LOOP                          LISTIO   2979
                                                                                                                 LISTIO   2980
                                                                                                                 LISTIO   2981
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    65
         IMPLIED DO PROCESSING - NO COLLAPSE CASE 
  
                                        *         ISSUE I/O CALL BEFORE GENERATION OF DO-END LOOP CODE           LISTIO   2982
                                                                                                                 LISTIO   2983
          2643  5140000010 +             DOEND    SA4    PARCNT                                                  LISTIO   2984
                          0304000000 X            ZR     X4,DONE           IF NOTHING TO OUTPUT                  LISTIO   2985
          2644  0100002646 +                      RJ     ARIOCM            ISSUE RESTART CODE                    LISTIO   2986
          2645  0400000000 X                      EQ     DONE              GENERATE DO-END LOOP CODE             LISTIO   2987
  
  
  
  
                                        **        ARIOCM - ISSUE I/O APLIST RESTART CALL MACRO.                  LISTIO   2989
                                                                                                                 LISTIO   2990
          2646  0400402646 +             ARIOCM   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   2991
          2647  0100002727 +                      RJ     IIR         ISSUE IOLST TABLE TO RLIST IF OPT=2         LISTIO   2992
          2650  6110000001                        SB1    1                                                       LISTIO   2993
                          6160003041 +            WRITEC =XF.CMPS,EIOM.CD,2                                      LISTIO   2994
          2652  5120000000 X                      SA2    DATA.                                                   LISTIO   2995
                          6150000001              SB5    1                                                       LISTIO   2996
          2653  73625                             SX6    X2+B5                                                   LISTIO   2997
                     54620                        SA6    A2                INCREMENT BLOCK SIZE                  LISTIO   2998
                          5140000006 +            SA4    IONAME                                                  LISTIO   2999
          2654  53140                             SA1    X4                OBJECT ROUTINE NAME                   LISTIO   3000
                     0100000722 +                 RJ     IOCM              ISSUE I/O CALL                        LISTIO   3001
          2655  0100000205 +                      RJ     IOSETUP           BEGIN NEW APLIST                      LISTIO   3002
          2656  0400002646 +                      EQ     ARIOCM                                                  LISTIO   3003
                                                                                                                 LISTIO   3004
                                                                                                                 LISTIO   3005
                                3041 +   EIOM.CD  LIT    13C  EIO     -0B                                        LISTIO   3006
                                                                                                                 LISTIO   3007
                                                                                                                 LISTIO   3008
                                        *         IARC - ISSUE INPUT APLIST RESTART CALL                         LISTIO   3009
                                                                                                                 LISTIO   3010
          2657  00000000000000000000     IARC     ENTRY.                                                         LISTIO   3011
          2660  0100002646 +                      RJ     ARIOCM            ISSUE RESTART CODE                    LISTIO   3012
          2661  5140000006 +                      SA4    IONAME                                                  LISTIO   3013
                          0334002657 +            NG     X4,IARC           IF NO ADJUSTMENT NECESSARY            LISTIO   3014
          2662  7150000025 +                      SX5    GEFNT             MACRO HEADER ADDRESS                  LISTIO   3015
                          73645                   SX6    X4+B5             ADJUST ADDRESS OF OBJECT NAME         LISTIO   3016
                               20522              LX5    18                                                      LISTIO   3017
          2663  43001                             MX0    1                                                       LISTIO   3018
                     36356                        IX3    X5+X6                                                   LISTIO   3019
                          12703                   BX7    X0+X3                                                   LISTIO   3020
                               54740              SA7    A4                                                      LISTIO   3021
          2664  0400002657 +                      EQ     IARC                                                    LISTIO   3022
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    66
        PLI - PROCESS LIST ITEMS                                      PLI 
  
                                        **        PLI - PROCESS LIST ITEMS                                       LISTIO   3024
                                        *                                                                        LISTIO   3025
                                        *         I/O LIST ITEMS IN INPUT STMTS ARE PUT IN THE IOLST TABLE TO    LISTIO   3026
                                        *         CHECK FOR NECESSARY RESTART CALLS OR, IF IN OPT=2, ALL ITEMS   LISTIO   3027
                                        *         ARE PUT IN THE IOLST TABLE AND THEN THE TABLE ISSUED AS A      LISTIO   3028
                                        *         RMACRO FOR OPTIMIZATION PURPOSES.                              LISTIO   3029
                                        *                                                                        LISTIO   3030
                                        *         ENTRY  (X2) = SYMTAB ORD OF ITEM TO BE ADDED TO THE TABLE      LISTIO   3031
                                        *                (B5) = 1                                                LISTIO   3032
                                        *                                                                        LISTIO   3033
                                        *         EXIT   (X2) = SYMTAB ORD OF ITEM                               LISTIO   3034
                                                                                                                 LISTIO   3035
          2665  0400402665 +             PLI      ENTRY. *           ENTRY/EXIT                                  LISTIO   3036
          2666  5130000000 X                      SA3    =XOPT2                                                  LISTIO   3037
                          0313002670 +            NZ     X3,PLI1     IF OPT=2                                    LISTIO   3038
          2667  5140000074 +                      SA4    PIOFLAG                                                 LISTIO   3039
                          0304002665 +            ZR     X4,PLI      IF NOT A LIST ITEM IN AN INPUT STMT         LISTIO   3040
                                                                                                                 LISTIO   3041
          2670  5110000012               PLI1     SA1    SYM1                                                    FCC1088    13
                          10622                   BX6    X2                                                      FCC1088    14
                               22352              LX3    B5,X2                                                   FCC1088    15
          2671  63335                             SB3    X3+B5                                                   FCC1088    16
                     53010                        SA0    X1                                                      FCC1088    17
                          55303                   SA3    A0-B3       WORDB                                       FCC1088    18
                               20362              LX3    59-P.LDO                                                FCC1088    19
          2672  0333002665 +                      MI     X3,PLI      IF LOAD ONLY    ( CON. , HOL. )             FCC1088    20
                          5110000005 +            SA1    IOEXP                                                   FCC1088    21
          2673  5160000076 +                      SA6    SYMORD      SAVE FOR RESTORE AT EXIT                    LISTIO   3047
                          0311002722 +            NZ     X1,PLI8     IF RESULT OF EXPRESSION                     LISTIO   3048
                                                                                                                 LISTIO   3049
          2674  5120000000 X                      SA2    =XRL2TS     FIRST WORD OF LAST ARLIST                   LISTIO   3050
                          5212000002              SA1    X2+2        RMACRO HDR WORD                             LISTIO   3051
          2675  43052                             MX0    -AP.IHL     SAME MASK IS USED FOR CA                    LISTIO   3052
                     5150000101 +                 SA5    CRFLAG      ENSURE A CLEARED CRFLAG                     LISTIO   3053
                               43700              MX7    0                                                       LISTIO   3054
          2676  26121                             UX1    B2,X1                                                   LISTIO   3055
                     54315                        SA3    A1+B5       IH IN HDR WORD + 1                          LISTIO   3056
                          7142000006              SX4    B2+M.SXIT                                               LISTIO   3057
          2677  15130                             BX1    -X0*X3      IH IS EXTRACTED                             LISTIO   3058
                     54750                        SA7    A5                                                      LISTIO   3059
                                                  LX1    AP.IHP                                                  LISTIO   3060
                          0304002712 +            ZR     X4,PLI5     IF INDEX FUN RMACRO                         LISTIO   3061
                                                                                                                 LISTIO   3062
                                        *         IH IN HDR + 1, CA IN HDR + 3 GENERALLY                         LISTIO   3063
                                                                                                                 LISTIO   3064
          2700  5041000003                        SA4    A1+3        CA IN HDR WORD + 3                          LISTIO   3065
                          15240                   BX2    -X0*X4      CA IS EXTRACTED                             LISTIO   3066
                               20222              LX2    AP.CAP                                                  LISTIO   3067
          2701  12121                             BX1    X2+X1       CA,IH                                       LISTIO   3068
                     0305002705 +                 ZR     X5,PLI3     IF NOT SPECIAL CASE CLASS REF CHECK         LISTIO   3069
          2702  0335002713 +                      MI     X5,PLI6     IF ARRAY REF IS A CLASS REF                 LISTIO   3070
                                                                                                                 LISTIO   3071
                                        *         FOR VAR FORMAT, VAR NAME OF ENC/DEC, OR FWA OF BUFIO, NAME IS  LISTIO   3072
                                        *         A CLASS REF IF AN ARRAY OR EQUIVED.                            LISTIO   3073
                                                                                                                 LISTIO   3074
                          67235                   SB2    B3-B5                                                   FCC1088    22
                               55202              SA2    A0-B2       WORD A                                      LISTIO   3078
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    67
        PLI - PROCESS LIST ITEMS                                      PLI 
  
          2703  20256                             LX2    59-P.DIM                                                LISTIO   3079
                     0332002713 +                 MI     X2,PLI6     IF DIMENSIONED, IS A CLASS REF              LISTIO   3080
                               20201              LX2    P.DIM-P.EQU                                             LISTIO   3081
          2704  0332002713 +                      MI     X2,PLI6     IF EQUIVED, IS A CLASS REF                  LISTIO   3082
                                                                                                                 LISTIO   3083
                                        *         IF RF > 0, SET CLASS REF BIT                                   LISTIO   3084
                                                                                                                 LISTIO   3085
          2705  5021000002               PLI3     SA2    A1+2        RF IN HDR WORD + 2                          LISTIO   3086
                          43554                   MX5    -RM.RIL                                                 LISTIO   3087
                               20254              LX2    -RM.RIL                                                 LISTIO   3088
          2706  15325                             BX3    -X5*X2      RF IS EXTRACTED                             LISTIO   3089
                     63230                        SB2    X3                                                      LISTIO   3090
                          0625002713 +            GE     B2,B5,PLI6  RF ON, SET CR BIT                           LISTIO   3091
                                                                                                                 LISTIO   3092
                                        *         SET P1 BIT IF DOUBLE WORD RESULT                               LISTIO   3093
                                                                                                                 LISTIO   3094
          2707  5150000011 +             PLI4     SA5    TYPEFG                                                  LISTIO   3095
                          0325002714 +            PL     X5,PLI7     IF NOT  DOUBLE WORD                         LISTIO   3096
          2710  43201                             MX2    1                                                       LISTIO   3097
                     20272                        LX2    1+AP.P1P                                                LISTIO   3098
                          12121                   BX1    X2+X1       P1,CA,IH                                    LISTIO   3099
          2711  0400002714 +                      EQ     PLI7                                                    LISTIO   3100
                                                                                                                 LISTIO   3101
                                        *         IH, CA IN HDR + 1 FOR INDEX FUN RMACRO                         LISTIO   3102
                                                                                                                 LISTIO   3103
          2712  20352                    PLI5     LX3    -AP.IHL                                                 LISTIO   3104
                     15530                        BX5    -X0*X3      CA IS EXTRACTED                             LISTIO   3105
                          20522                   LX5    AP.CAP                                                  LISTIO   3106
                               12151              BX1    X5+X1       CA,IH                                       LISTIO   3107
                                                                                                                 LISTIO   3108
                                        *         SET CLASS REF BIT                                              LISTIO   3109
                                                                                                                 LISTIO   3110
          2713  43201                    PLI6     MX2    1                                                       LISTIO   3111
                     20267                        LX2    1+AP.CRP                                                LISTIO   3112
                          12121                   BX1    X2+X1       CR,CA,IH                                    LISTIO   3113
                                                                                                                 LISTIO   3114
                                        *         SET IO BIT IF INPUT                                            LISTIO   3115
                                                                                                                 LISTIO   3116
          2714  5120000074 +             PLI7     SA2    PIOFLAG                                                 LISTIO   3117
                          0332002722 +            MI     X2,PLI8     IF ITEM USED                                LISTIO   3118
          2715  5130000012 +                      SA3    LDFLAG                                                  FCC0789     9
                          43501                   MX5    1                                                       LISTIO   3119
          2716  0333002721 +                      MI     X3,PLI7A    IF LIST-DIRECTED I/O                        FCC0789    10
                                                  LX5    1+AP.IOP                                                LISTIO   3120
                          5130000173 +            SA3    VFFLAG                                                  FCC2202    50
          2717  0313002721 +                      NZ     X3,PLI7A    SET USE/DEF BITS IF VAR FMT IO              FCC2450     6
                          12151                   BX1    X5+X1       IO,P1,CR,CA,IH                              LISTIO   3121
          2720  0400002722 +                      EQ     PLI8                                                    FCC0789    11
                                                                                                                 FCC0789    12
                                        *         SET USE/DEF BITS IF LIST-DIRECTED INPUT                        FCC0789    13
                                                                                                                 FCC0789    14
          2721  43502                    PLI7A    MX5    2                                                       FCC0789    15
                                                  LX5    2+AP.USEP                                               FCC0789    16
                     12151                        BX1    X5+X1                                                   FCC0789    17
                                                                                                                 LISTIO   3122
          2722  5100000000 X             PLI8     ADDWD  IOLST,X1    ADD ENTRY TO TABLE                          LISTIO   3123
                                                                                                                 LISTIO   3124
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    68
        PLI - PROCESS LIST ITEMS                                      PLI 
  
          2723  5120000076 +                      SA2    SYMORD      RESTORE SYMTAB ORD                          LISTIO   3125
                          0400002665 +            EQ     PLI         EXIT                                        LISTIO   3126
                                                                                                                 LISTIO   3127
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    69
        ISSUE IOLST TO RLIST                                          IIR 
  
                                        *         IIR - ISSUE IOLST TO RLIST                                     LISTIO   3129
                                        *                                                                        LISTIO   3130
                                        *         WHEN IN OPT=2, ISSUE USE/DEF INFORMATION IN IOLST TO RLIST.    LISTIO   3131
                                        *                                                                        LISTIO   3132
                                                                                                                 LISTIO   3133
          2724  5130000075 +             IIRA     SA3    PIOBUF                                                  LISTIO   3134
                          5140000000 X            SA4    O.IOLST                                                 LISTIO   3135
          2725  10633                             BX6    X3                                                      LISTIO   3136
                     43700                        MX7    0                                                       LISTIO   3137
                          5264777776              SA6    X4-1        RESTORE WORD AT (O.IOLST) -1                LISTIO   3138
          2726  5170000000 X                      SA7    L.IOLST     CLEAR LENGTH OF PARAMS FLAG                 LISTIO   3139
                                                                                                                 LISTIO   3140
          2727  0400402727 +             IIR      ENTRY. *           ENTRY/EXIT                                  LISTIO   3141
          2730  5120000000 X                      SA2    =XOPT2                                                  LISTIO   3142
                          0302002727 +            ZR     X2,IIR      EXIT IF NOT OPT=2                           LISTIO   3143
          2731  5110000000 X                      SA1    O.IOLST                                                 LISTIO   3144
                          5231777776              SA3    X1-1                                                    LISTIO   3145
          2732  10633                             BX6    X3                                                      LISTIO   3146
                     43700                        MX7    0                                                       LISTIO   3147
                          5160000075 +            SA6    PIOBUF      SAVE WORD AT (O.IOLST) -1                   LISTIO   3148
          2733  5170000100 +                      SA7    TINDX       INITIALIZE INDEX TO TABLE                   LISTIO   3149
                          5140000000 X            SA4    L.IOLST                                                 LISTIO   3150
                                                                                                                 LISTIO   3151
          2734  5150000100 +             IIR1     SA5    TINDX                                                   LISTIO   3152
                          37045                   IX0    X4-X5       NO. OF  WORDS  IN IOLST                     LISTIO   3153
          2735  0300002724 +                      ZR     X0,IIRA     IF TABLE EMPTY                              LISTIO   3154
                          7120000035              SX2    PIOMAX                                                  LISTIO   3155
          2736  37402                             IX4    X0-X2       LEN = MIN(DIFF,MAX)                         LISTIO   3156
                     0324002737 +                 PL     X4,IIR2     IF MORE WORDS IN TABLE THAN MAX             LISTIO   3157
                               10200              BX2    X0                                                      LISTIO   3158
                                                                                                                 LISTIO   3159
          2737  36652                    IIR2     IX6    X5+X2       INCREASE INDEX BY LEN                       LISTIO   3160
                     5130000000 X                 SA3    O.IOLST                                                 LISTIO   3161
                               54650              SA6    A5                                                      LISTIO   3162
          2740  36035                             IX0    X3+X5       ADDR OF CURRENT FIRST ITEM                  LISTIO   3163
                     6130777765                   SB3    -PIO                                                    LISTIO   3164
                               20236              LX2    R1.INP                                                  LISTIO   3165
          2741  27732                             PX7    B3,X2                                                   LISTIO   3166
                     5110000077 +                 SA1    FMTORD      SYMTAB ORDINAL FOR FORMAT LABEL             FCC2202    52
                               20120              LX1    R1.SOP                                                  FCC2202    53
          2742  12771                             BX7    X7+X1       INSERT FORMAT OR ZERO                       FCC2202    54
                     6270777776                   SB7    X0-1        ADDR OF HDR WORD                            LISTIO   3167
                               56770              SA7    B7                                                      LISTIO   3168
          2743  43600                             MX6    0                                                       FCC2202    55
                     5160000077 +                 SA6    FMTORD      CLEAR FMTORD                                FCC2202    56
                                                                                                                 LISTIO   3169
          2744  0100000000 X                      WRM    B7          OUTPUT IO USE/DEF TABLE TO RLIST            LISTIO   3170
                                                                                                                 LISTIO   3171
          2745  5140000000 X                      SA4    L.IOLST                                                 LISTIO   3172
                          0400002734 +            EQ     IIR1        CHECK FOR MORE ITEMS                        LISTIO   3173
                                                                                                                 LISTIO   3174
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    70
        ONI - OUTPUT NAMELIST ITEMS                                   ONI 
  
                                        **        ONI - OUTPUT NAMELIST ITEMS                                    LISTIO   3176
                                        *         IF OPT=2 WHEN A NAMELIST GROUP NAME IS SPECIFIED AS THE FORMAT LISTIO   3177
                                        *         THE NAMELIST VARIABLES ASSOCIATED WITH THAT GROUP NAME IS      LISTIO   3178
                                        *         TRANSFERRED TO THE IOLST TABLE.  A CALL TO SUBROUTINE IIR      LISTIO   3179
                                        *         WILL RESULT IN OUTPUT OF THE VARIABLES TO RLIST.               LISTIO   3180
                                        *         THE NAMELIST VARIABLES WILL HAVE BEEN SET UP IN THE NML TABLE  LISTIO   3181
                                        *         BY THE NAMELIST PROCESSOR.                                     LISTIO   3182
                                        *                                                                        LISTIO   3183
                                        *         ENTRY  (X2) = SYMTAB WORD B OF GROUP NAME                      LISTIO   3184
                                        *                (B1) = SYMTAB ORD OF GROUP NAME                         LISTIO   3185
                                        *                (B5) = 1                                                LISTIO   3186
                                        *                                                                        LISTIO   3187
                                        *         EXIT   (B1) = SYMTAB ORD OF GROUP NAME                         LISTIO   3188
                                                                                                                 LISTIO   3189
          2746  0100002727 +             ONIA     RJ     IIR         ISSUE IOLST TO RLIST                        LISTIO   3190
          2747  5130000076 +                      SA3    SYMORD      SYMTAB ORD                                  LISTIO   3191
                          63130                   SB1    X3          RESTORE B1                                  LISTIO   3192
                                                                                                                 LISTIO   3193
          2750  0400402750 +             ONI      ENTRY. *           ENTRY/EXIT                                  LISTIO   3194
          2751  5130000000 X                      SA3    =XOPT2                                                  LISTIO   3195
                          0303002750 +            ZR     X3,ONI      EXIT IF NOT IN OPT=2                        LISTIO   3196
          2752  43060                             MX0    -L.DIMP                                                 LISTIO   3197
                     20223                        LX2    -P.DIMP                                                 LISTIO   3198
                          5110000000 X            SA1    O.NML                                                   LISTIO   3199
          2753  15420                             BX4    -X0*X2      ORDINAL TO NML TABLE                        LISTIO   3200
                     0304002750 +                 ZR     X4,ONI      EXIT, ERROR IN NAMELIST STMT                LISTIO   3201
                               36314              IX3    X1+X4                                                   LISTIO   3202
          2754  53530                             SA5    X3          HDR WORD                                    LISTIO   3203
                     0305002750 +                 ZR     X5,ONI      EXIT, NO NAMELIST VARIABLES                 LISTIO   3204
                               76610              SX6    B1                                                      LISTIO   3205
          2755  5160000076 +                      SA6    SYMORD      SAVE TO BE RESTORED AT EXIT                 LISTIO   3206
                          37745                   IX7    X4-X5       INDEX TO FIRST VARIABLE                     LISTIO   3207
                               73650              SX6    X5          LENGTH OF VARIABLES                         LISTIO   3208
          2756  5170000100 +                      SA7    TINDX                                                   LISTIO   3209
                          5160000075 +            SA6    TLEN                                                    LISTIO   3210
                                                                                                                 LISTIO   3211
          2757  5100000000 X                      ALLOC  IOLST,X5    ALLOC FOR TRANSFER FROM NML                 LISTIO   3212
                                                                                                                 LISTIO   3213
          2760  5120000100 +                      SA2    TINDX       INDEX TO NML TABLE                          LISTIO   3214
                          5110000073 +            SA1    IOFLAG                                                  LISTIO   3215
          2761  43700                             MX7    0                                                       LISTIO   3216
                     5150000075 +                 SA5    TLEN        NO. OF NAMELIST VARIABLES                   FCC0789    18
          2762  0301002763 +                      ZR     X1,ONI1     IF NOT INPUT STMT                           LISTIO   3217
                          43702                   MX7    2                                                       FCC0789    19
                                                  LX7    2+AP.USEP   SHOW USE/DEF                                FCC0789    20
                                                                                                                 LISTIO   3219
          2763  5110000000 X             ONI1     SA1    L.IOLST                                                 LISTIO   3220
                          36615                   IX6    X1+X5       UPDATE LENGTH FOR NAMELIST VARIABLES        LISTIO   3222
          2764  5140000000 X                      SA4    O.NML                                                   LISTIO   3223
                          54610                   SA6    A1                                                      LISTIO   3224
                               36224              IX2    X2+X4       ADDR OF FIRST ENTRY IN NML                  LISTIO   3225
          2765  5130000000 X                      SA3    O.IOLST                                                 LISTIO   3226
                          36113                   IX1    X1+X3       ADDR OF FIRST SPACE IN IOLST                LISTIO   3227
          2766  6265777776                        SB6    X5-1        COUNTER FOR TRANSFER                        LISTIO   3228
                                                                                                                 LISTIO   3229
          2767  53326                    ONI2     SA3    X2+B6       FETCH NML ENTRY                             LISTIO   3230
                     12673                        BX6    X7+X3       OR IN IO BIT                                LISTIO   3231
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    71
        ONI - OUTPUT NAMELIST ITEMS                                   ONI 
  
                          53616                   SA6    X1+B6       STORE IN IOLST                              LISTIO   3232
                               67665              SB6    B6-B5                                                   LISTIO   3233
          2770  0660002767 +                      PL     B6,ONI2     IF MORE ITEMS TO TRANSFER                   LISTIO   3234
                          0400002746 +            EQ     ONIA                                                    LISTIO   3235
                                                                                                                 LISTIO   3236
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    72
         MACOUT - OUTPUT RLIST MACRO
  
                                        **        MACOUT - OUTPUT I/O MACRO TO RLIST                             LISTIO   3238
                                        *         PACKS PARAMETERS STORED IN MACLS1 TO MACLK3 INTO               LISTIO   3239
                                        *         RLIST MACRO FORMAT , OUTPUTS MACRO TO RLIST  AND               LISTIO   3240
                                        *         AND CLEAR OUT THE AREA FROM MACLS2 - MACLK3                    LISTIO   3241
                                                                                                                 LISTIO   3242
          2771  54135                    MACOUT1  SA1    A3+B5             PACK THE RNUMBERS AND CONS            LISTIO   3243
                     54215                        SA2    A1+B5                                                   LISTIO   3244
                          63250                   SB2    X5                                                      LISTIO   3245
                               22222              LX2    B2,X2                                                   LISTIO   3246
          2772  54325                             SA3    A2+B5                                                   LISTIO   3247
                     66322                        SB3    B2+B2                                                   LISTIO   3248
                          12421                   BX4    X2+X1                                                   LISTIO   3249
                               22333              LX3    B3,X3                                                   LISTIO   3250
          2773  12734                             BX7    X3+X4                                                   LISTIO   3251
                     21522                        AX5    18                                                      LISTIO   3252
                          54775                   SA7    A7+B5                                                   LISTIO   3253
          2774  0315002771 +                      NZ     X5,MACOUT1        LOOP FOR 3 WORDS                      LISTIO   3254
                          54335                   SA3    A3+B5             COPY MACLK4                           LISTIO   3255
                               10733              BX7    X3                                                      LISTIO   3256
          2775  54775                             SA7    A7+B5                                                   LISTIO   3257
                                                                                                                 LISTIO   3258
                     66710                        SB7    B1                                                      LISTIO   3259
                          6110000001              SB1    1                                                       LISTIO   3260
          2776  6160000107 +                      WRITEW =XF.RLST,MACBUF,B7                                      LISTIO   3261
          3000  6150000001                        SB5    1                                                       LISTIO   3262
                          5150000131 +            SA5    MACOPC                                                  LISTIO   3263
          3001  0305003011 +                      ZR     X5,COLAPXX  SKIP IF FIRST                               LISTIO   3264
                          7265777772              SX6    X5-5                                                    LISTIO   3265
          3002  0306003011 +                      ZR     X6,COLAPXX  SKIP IF LAST                                LISTIO   3266
                                                                                                                 LISTIO   3267
                          5150000064              SA5    NRLN                                                    LISTIO   3268
          3003  10655                             BX6    X5          RESULT R NUMBER                             LISTIO   3269
                     5160000104 +                 SA6    TEMPA                                                   LISTIO   3270
                               73755              SX7    X5+B5       NRLN=NRLN+1                                 LISTIO   3271
          3004  54750                             SA7    A5                                                      LISTIO   3272
                     5120000033 +                 SA2    MACLP2      FWA                                         LISTIO   3273
          3005  5110000032 +                      SA1    MACLP1      ITEM COUNT                                  LISTIO   3274
                          20620                   LX6    RM.RIL                                                  LISTIO   3275
                               12762              BX7    X6+X2                                                   LISTIO   3276
          3006  20720                             LX7    RM.RIL                                                  LISTIO   3277
                     12771                        BX7    X7+X1                                                   LISTIO   3278
                          5170002101 +            SA7    WWCA                                                    LISTIO   3279
          3007  5110000043 +                      SA1    MACLK4      TYPE                                        LISTIO   3280
                          10611                   BX6    X1                                                      LISTIO   3281
                               54675              SA6    A7+B5                                                   LISTIO   3282
          3010  6170002100 +                      WRM    IOAPL       OUTPUT IOAPL MACRO                          LISTIO   3283
                                                                                                                 LISTIO   3284
          3011  6130000027 +             COLAPXX  SB3    MACLS2                                                  LISTIO   3285
                          64435                   SB4    A3+B5             LWA+1                                 LISTIO   3286
                               43600              MX6    0                                                       LISTIO   3287
          3012  56630                   +         SA6    B3                CLEAR OUT MACRO PARAMETER BUFFER      LISTIO   3288
                     66335                        SB3    B3+B5                                                   LISTIO   3289
                          0734003012 +            LT     B3,B4,*                                                 LISTIO   3290
          3013  6150000001                        SB5    1                                                       LISTIO   3291
                                                                                                                 LISTIO   3292
          3014  0400403014 +             MACOUT   ENTRY. *                 ** ENTRY/EXIT **                      LISTIO   3293
          3015  5150000106 +                      SA5    MACOP                                                   LISTIO   3294
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    73
         MACOUT - OUTPUT RLIST MACRO
  
                          6170000107 +            SB7    MACBUF            FWA OF BUFFER                         LISTIO   3295
          3016  7100000006                        SX0    6                 (4+1)/2 + (6+2)/3 + (4+2)/3           LISTIO   3296
                          63105                   SB1    X0+B5                                                   LISTIO   3297
                               63250              SB2    X5                                                      LISTIO   3298
          3017  20036                             LX0    30                                                      LISTIO   3299
                     5140000064                   SA4    NRLN                                                    LISTIO   3300
                               12004              BX0    X0+X4                                                   LISTIO   3301
          3020  67302                             SB3    -B2                                                     LISTIO   3302
                     27630                        PX6    B3,X0                                                   LISTIO   3303
                          56670                   SA6    B7                RMACRO HEADER WORD                    LISTIO   3304
                                                                                                                 LISTIO   3305
          3021  5150003025 +                      SA5    SHIFTWD           SHIFT COUNT FOR RNUMBERS AND CONS     LISTIO   3306
                          5110000026 +            SA1    MACLS1                                                  LISTIO   3307
          3022  54215                             SA2    A1+B5                                                   LISTIO   3308
                     54425                        SA4    A2+B5             SYM3                                  LISTIO   3309
                          20236                   LX2    30                                                      LISTIO   3310
                               54345              SA3    A4+B5                                                   LISTIO   3311
          3023  12621                             BX6    X2+X1                                                   LISTIO   3312
                     20336                        LX3    30                                                      LISTIO   3313
                          12734                   BX7    X3+X4                                                   LISTIO   3314
                               54665              SA6    A6+B5             STORE SYM S                           LISTIO   3315
          3024  54765                             SA7    A6+B5                                                   LISTIO   3316
                     0400002771 +                 EQ     MACOUT1                                                 LISTIO   3317
                                                                                                                 LISTIO   3318
          3025  00000022000020000020     SHIFTWD  VFD    6/0,18/18,18/16,18/16                                   LISTIO   3319
                                                                                                                 LISTIO   3320
          3043                                    END                                                            LISTIO   3321
  
                             67000B CM  STORAGE USED             5557 STATEMENTS      991 SYMBOLS      000054 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.195 SECONDS        2179 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDREF          0   EXTERNAL*      12/50     16/16     22/09     52/14     52/16     54/54
        ADDWD           0   EXTERNAL*      39/11     67/56
        ALLOC           0   EXTERNAL*      70/37
        APLRST          1   PROGRAM*        2/21 E   16/53     31/53     37/07     60/06
                                            2/21 L   31/25     34/25 S   40/16
        AP.CAP         22   FTNTEXT        56/38     66/48     67/28
        AP.CRP         66   FTNTEXT        56/36     56/38     67/34
        AP.IHL         22   FTNTEXT        56/22     66/33     67/26
        AP.P1P         71   FTNTEXT        67/20
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    74
        SYMBOLIC REFERENCE TABLE. 
  
        ARGCNT        105   PROGRAM*        8/37 L   13/41     14/32 S   19/29     30/52 S   38/37     43/06     44/08
                                           11/01 S   13/41 S   14/35     21/40     30/55     39/05     43/06 S   44/08 S
                                           12/45     13/56     14/35 S   21/40 S   30/55 S   39/05 S   43/10     44/13
                                           12/45 S   13/56 S   14/39     21/43     30/56     39/07     43/10 S   44/13 S
                                           12/46     14/05     14/39 S   21/43 S   31/38     39/07 S   43/13     44/16
                                           13/25     14/05 S   14/45     21/45     32/09     39/08     43/13 S   44/16 S
                                           13/25 S   14/07     14/45 S   21/45 S   35/55     42/34     43/16     44/23
                                           13/28     14/07 S   15/15     21/49     35/55 S   42/34 S   43/16 S   44/23 S
                                           13/28 S   14/11     15/15 S   21/49 S   36/01     42/36     43/17     44/25
                                           13/32     14/11 S   15/18     21/57     36/01 S   42/36 S   43/40     44/25 S
                                           13/32 S   14/24     15/18 S   21/57 S   36/02     42/43     43/40 S   44/32
                                           13/36     14/24 S   17/22     22/04     36/17     42/43 S   43/54     44/32 S
                                           13/36 S   14/26     18/13     22/04 S   37/18     42/45     43/54 S   44/34
                                           13/38     14/26 S   18/13 S   22/11     38/36     42/45 S   43/57
                                           13/38 S   14/32     18/17     30/52     38/36 S   42/46     43/57 S
        ARIOCM       2646   PROGRAM*       64/43     65/05     65/13 L   65/25     65/34
        ARNAM         144   PROGRAM*        8/50 L   48/23 S   49/31
        ARTH136       210                   3/19 D   48/34     62/53
        ARTH145       221                   3/22 D   50/32
        ARTH157       235                   3/20 D   49/47
        ARTH195       303                   3/21 D   49/27
        ARYADD        135   PROGRAM*        8/45 L   48/06 S   49/06     55/03     57/28     59/25     60/22
        ARYCONS      2472   PROGRAM*       58/43     59/24 L   59/42     60/01
        ARYCON0      2502   PROGRAM*       59/50 L   59/57
        ARYCON1      2475   PROGRAM*       59/30 L   59/32     59/34
        ASAER           0   EXTERNAL*      17/29     26/10     26/57     30/33     42/57
                                           18/24     26/26     29/09     35/37
        ASAFLAG       446   PROGRAM*       16/01 L   16/54 S   17/24
        BEFCALL       121                   3/36 D    3/36      3/48
        BIO            13   PROGRAM*        2/31 E    2/31 L   31/15 S   31/44 S   36/40 S   58/42 S
        BKSP          747   PROGRAM*       24/19 E   24/19 L   24/23
        BKSPTAB        72   PROGRAM*        8/17 L   24/21
        BLEXP           2   PROGRAM*        2/22 E    2/22 L
        BUFERR       1316   PROGRAM*       33/29     33/37 L
        BUFFTAB        66   PROGRAM*        8/12 L   32/29
        BUFIN        1130   PROGRAM*       30/03 E   30/03 L   30/07
        BUFOUT       1134   PROGRAM*       30/11 E   30/11 L   30/15
        CAI1         2214   PROGRAM*       51/08 L   51/13
        CDCNT          37                   2/13 D   23/30     47/49     55/02     60/20
        CDD             0   EXTERNAL*      19/49
        CFCD            0   EXTERNAL*      64/01
        CFO             0   EXTERNAL*      17/32
        CFSIV         233   PROGRAM*       12/11 L   12/18     19/25     36/13
        CFSIV1        237   PROGRAM*       12/14     12/20 L   18/05     62/54
        CKINDX       2516   PROGRAM*       55/19     57/05     60/36 L   60/38     60/47     60/50
        CNVT          223   PROGRAM*       10/42     11/13 E   11/13 L   11/20     38/34
        COLAP         166   PROGRAM*        9/01 L   48/38 S   51/06     51/18 S   56/06
        COLAPAL      2505   PROGRAM*       58/51     60/06 L
        COLAPC       2355   PROGRAM*       55/11     55/50 L
        COLAPC1      2374   PROGRAM*       56/30 L   56/50     56/55
        COLAPC2      2375   PROGRAM*       56/33 L   56/45
        COLAPC3      2405   PROGRAM*       56/37     56/41     56/57 L
        COLAPC4      2360   PROGRAM*       55/56 L   56/14
        COLAPC5      2367   PROGRAM*       56/02     56/04     56/16 L
        COLAPC6      2372   PROGRAM*       56/24 L   56/47
        COLAPC7      2403   PROGRAM*       56/23     56/52 L
        COLAPC8      2400   PROGRAM*       56/35     56/43 L
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    75
        SYMBOLIC REFERENCE TABLE. 
  
        COLAPL        134   PROGRAM*        8/44 L   51/28     52/18     53/16     55/16 S   57/16     58/38
                                           48/13 S   51/45     52/54     55/08     55/24     57/53     60/45
        COLAPM       2407   PROGRAM*       55/51     55/53     55/55     56/24     57/04 L
        COLAPMW      2467   PROGRAM*       59/09 L   60/15
        COLAPM2      2421   PROGRAM*       57/19     57/27 L
        COLAPM4      2433   PROGRAM*       57/56 L   58/09
        COLAPM5      2436   PROGRAM*       57/55     58/10 L   58/15
        COLAPM8      2453   PROGRAM*       57/26     58/43 L
        COLAPM9      2461   PROGRAM*       58/52 L   60/08
        COLAPR       2221   PROGRAM*       50/46     51/25 L   55/17
        COLAPRC      2253   PROGRAM*       52/23     52/33 L
        COLAPRC1     2256   PROGRAM*       52/38     52/41 L
        COLAPRS      2276   PROGRAM*       53/20     53/26 L
        COLAPRS1     2301   PROGRAM*       53/34     53/36 L
        COLAPRS2     2302   PROGRAM*       53/35     53/37 L
        COLAPRU      2330   PROGRAM*       54/37     54/41 L
        COLAPRV      2317   PROGRAM*       53/10     54/16 L
        COLAPRW      2327   PROGRAM*       54/11     54/13     54/38 L
        COLAPR1      2236   PROGRAM*       51/54     52/07 L
        COLAPR2      2262   PROGRAM*       52/28     52/31     52/52 L
        COLAPR3      2271   PROGRAM*       53/13 L   54/31
        COLAPR4      2310   PROGRAM*       53/12     53/55 L
        COLAPR5      2325   PROGRAM*       54/25     54/32 L
        COLAPR8      2340   PROGRAM*       48/02     53/23     53/45     53/48     53/50     54/52     55/02 L   55/30
        COLAPR9      2351   PROGRAM*       51/30     51/35     51/56     52/02     55/23 L
        COLAPT       2314   PROGRAM*       53/57     54/05     54/07 L
        COLAPXX      3011   PROGRAM*       72/27     72/29     72/48 L
        COLLAPS       143   PROGRAM*        8/49 L   47/47 S   48/05     49/53     55/09     60/37
        COLPD        2347   PROGRAM*       55/12     55/18 L
        COMMA        1052   PROGRAM*       27/02     28/02 L
        CONDEC          0   EXTERNAL*       2/04 X
        CONLOC         15   PROGRAM*        3/25 L    3/26
        CONST           0   EXTERNAL*      64/13 S
        CONVERT         0   EXTERNAL*       2/03 X   19/42     21/38     30/50     35/50     35/53     61/37
        CON1           16   PROGRAM*        3/26 L   57/46
        CPLXC          14   PROGRAM*        2/32 E    2/32 L   63/57 S   64/02
        CRFLAG        101   PROGRAM*        8/33 E    8/33 L   16/42 S   31/16 S   36/41 S   58/47 S   66/34
        DATA.           0   EXTERNAL*       2/05 X   18/17     30/56     34/36     37/18     39/16     44/34
                                           12/46     19/29     31/38     36/02     38/37     42/46     65/17
                                           17/22     22/11     32/09     36/17     39/08     43/17
        DEC          1340   PROGRAM*       35/03 E   35/03 L   35/07
        DIMVAL        146   PROGRAM*        8/52 L   49/03 S   52/56
        DIMWRD        145   PROGRAM*        8/51 L   49/02 S   52/53
        DIM1           17                   2/11 D   40/46     48/47     62/36
        DIRECT          0   EXTERNAL*       2/05 X   14/19     43/46
        DOBEGIN      2633   PROGRAM*       63/44     64/39 L
        DOCALL          0   EXTERNAL*       2/02 X   24/41     27/01     29/16     30/32     35/36
        DODEF           0   EXTERNAL*       2/02 X   40/05     52/10
        DOEND        2643   PROGRAM*       39/46     65/03 L
        DOGOOF          0   EXTERNAL*       2/02 X   37/31
        DOINDX       2526   PROGRAM*       60/43     60/49     61/01 L   61/04     61/15     61/16
        DOIT            0   EXTERNAL*       2/02 X   64/40     64/47     64/55
        DOITX        1521   PROGRAM*        1/56 E   41/49 D
        DOI1         2530   PROGRAM*       61/04 L   61/09
        DOI2         2535   PROGRAM*       61/17 L
        DONE            0   EXTERNAL*       2/02 X   65/04     65/06
        DONEX        2626   PROGRAM*        1/56 E   64/25 L
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    76
        SYMBOLIC REFERENCE TABLE. 
  
        DONEX.L      2630   PROGRAM*       64/29 L   64/31
        DOVAR        2550   PROGRAM*       51/38     52/42     54/42     62/09 L
        DOVART       2553   PROGRAM*       50/51 S   62/06     62/10 S   62/17 L
        DOVAR1       2546   PROGRAM*       62/03 L   62/11
        DOVAR15      2547   PROGRAM*       51/01     62/06 L
        DOVAR2       2552   PROGRAM*       62/07     62/13 L
        DO4             4                   3/16 D
        DO7             7                   3/17 D   50/19     50/50     51/37     52/41     54/41     61/47
        EDTAB          60   PROGRAM*        8/03 L   37/25
        EIOM.CD      3041   PROGRAM*       65/16     65/28 L
        EIOP.CD      3037   PROGRAM*       39/15     39/39 L
        EL.COMMA        3   FTNTEXT        19/19     27/17     29/25     30/42     36/09     36/29     41/27
                                           27/16     27/21     29/38     31/41     36/20     38/55     50/02
        EL.EOS          4   FTNTEXT        12/41     27/12     32/23     41/28     64/26
                                           24/46     27/20     38/45     63/09
        EL.STAR        22   FTNTEXT        18/20     36/22
        EL.S)          25   FTNTEXT        41/29     63/12     63/48     64/05     64/27
        EL.(            6   FTNTEXT        26/17     28/21     29/18     38/44     48/25
                                           26/35     28/44     31/05     39/47     63/07
        EL.)            2   FTNTEXT        19/18     29/24     31/02     37/21     50/39     63/06
                                           24/47     29/29     32/21     49/43     59/28
        EL.=            5   FTNTEXT        39/46     50/15     63/08
        ENC          1344   PROGRAM*       35/11 E   35/11 L   35/15
        ENDFILE       737   PROGRAM*       24/03 E   24/03 L   24/07
        ENDFTAB        70   PROGRAM*        8/15 L   24/05
        END=          102   PROGRAM*        8/34 L   26/53 S   29/13 S   38/28     39/28
        EQUIVP       2555   PROGRAM*       13/49     32/43     43/52     51/05     54/45     62/32
                                           14/30     33/07     48/37     52/43     62/28 L   62/45
        ERPRO           0   EXTERNAL*       2/03 X   12/23     32/18     37/34     49/34     61/18     61/20
        ERPROI          0   EXTERNAL*       2/02 X   22/17     33/37     53/51     61/21
        E.BFN         112                   3/05 D   17/43
        E.BIO         324                   3/10 D   32/16
        E.BIO1        464                   3/11 D   33/37
        E.BUN          32                   3/03 D   18/36     19/25
        E.CUL          22                   3/01 D   18/04
        E.DO13         15                   3/02 D   61/12
        E.EDC         153                   3/08 D   35/19     36/13
        E.FNASA       337                   3/13 D   17/27     18/22
        E.IOEXP       323                   3/09 D   42/55
        E.IONASA      144                   3/07 D   26/10     26/26     26/57     29/09     30/33     35/37
        E.IOND        465                   3/14 D   22/17
        E.IOSE        111                   3/04 D   37/30
        E.LC          115                   3/06 D   38/57
        E.PIE         325                   3/12 D   30/47
        E.PIL         507                   3/23 D   63/28
        E.UNNIR       347                   3/15 D   18/38
        FII           432   PROGRAM*       14/22     15/11 L   15/19     43/48
        FILL          213   PROGRAM*       10/45 L   10/48
        FMAC            0   EXTERNAL*      12/46     18/17     22/11     31/38     36/02     37/18     39/08     43/17
                                           17/22     19/29     30/56     32/09     36/17     38/37     42/46     44/34
        FMTNO         455   PROGRAM*       16/25 L   16/37     18/29     27/06     29/26     36/25
        FMTNOX        447   PROGRAM*       16/13 L   18/18
        FMTNOX1       452   PROGRAM*       16/14     16/18 L   17/25     17/28
        FMTNO1        463   PROGRAM*       16/33 L   17/39
        FMTNO1A       506   PROGRAM*       16/55     17/19 L
        FMTNO2        534   PROGRAM*       17/56     18/08 L
        FMTNO3        515   PROGRAM*       17/17     17/24 L
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    77
        SYMBOLIC REFERENCE TABLE. 
  
        FMTNO.C       524   PROGRAM*       16/29     17/43 L
        FMTNO.F       520   PROGRAM*       16/31     17/31 L
        FMTNO.FF      551   PROGRAM*       17/44     18/20 L
        FMTNO.F1      522   PROGRAM*       17/31     17/34 L
        FMTORD         77   PROGRAM*        8/30 L   18/16 S   69/39     69/45 S
        F.CMPS          0   EXTERNAL*      10/54     34/35     39/15     65/16
        F.LFN           0   EXTERNAL*       2/04 X   21/08     21/16
        F.RLST          0   EXTERNAL*      34/22     72/24
        GEFCM          20   PROGRAM*        3/47 L   24/56     32/27     38/16
        GEFMC         124                   3/38 D    3/38      3/47
        GEFNT          25   PROGRAM*        3/52 L   64/48     65/37
        GEFWOTR       123                   3/37 D    3/37      3/52
        HOLCON          3   PROGRAM*        2/23 E    2/23 L   38/22 S   40/20
        IAF             0   EXTERNAL*      15/13 S
        IARC         2657   PROGRAM*       56/57     65/33 E   65/33 L   65/36     65/44
        IIR          2727   PROGRAM*       24/54     32/25     39/13     65/14     69/13 L   69/15     70/15
        IIRA         2724   PROGRAM*       69/06 L   69/26
        IIR1         2734   PROGRAM*       69/24 L   69/50
        IIR2         2737   PROGRAM*       69/29     69/32 L
        IMDS         2573   PROGRAM*       63/18 L   63/19     63/22     63/31     63/34     63/37     63/41
        IMDS1        2576   PROGRAM*       63/20     63/24 L
        IMDS1A       2601   PROGRAM*       63/27     63/30 L
        IMDS2        2604   PROGRAM*       63/24     63/36 L
        IMDS3        2606   PROGRAM*       63/36     63/40 L
        IMDS4        2611   PROGRAM*       63/42     63/46 L
        IMDS5        2615   PROGRAM*       63/47     63/49     63/53 L
        IMDS5A       2622   PROGRAM*       64/03     64/11 L
        INDFG           4   PROGRAM*        2/24 E    2/24 L   44/18
        INDX          147   PROGRAM*        8/53 L   49/52     51/48     53/07     57/29     59/37     60/42     61/14
                                           48/16 S   51/33     52/21     53/18     58/36 S   60/41     60/48     61/19
        INDXST       2166   PROGRAM*       50/01 L   50/43
        INDXST0      2174   PROGRAM*       50/20 L   50/31
        INDXST2      2201   PROGRAM*       50/29     50/37 L
        INPUTF       1051   PROGRAM*       28/01 L   28/14
        INTVAR          0   EXTERNAL*       2/02 X   50/54     62/05
        IOAPL        2100   PROGRAM*       46/48     46/51 L   72/46
        IOAPLN          0   EXTERNAL*       2/05 X   10/34     23/25     34/11
        IOCM          722   PROGRAM*       23/11 L   23/37     25/02     32/32     39/24     65/23
        IOCMA         721   PROGRAM*       23/05 L   23/19
        IOCM2         725   PROGRAM*       23/13     23/18 L
        IOERR        1471   PROGRAM*       12/41     27/17     29/25     30/42     32/21     36/26     41/29     64/30
                                           24/46     27/20     29/29     31/02     32/23     36/29     50/39
                                           27/15     27/21     29/38     31/05     36/20     37/21     63/32
                                           27/16     29/18     29/44     31/41     36/22     37/30 L   63/38
        IOERRX        240   PROGRAM*       12/22 L   17/52     18/37     30/48     39/02     50/22     61/48     63/29
                                           17/51     18/20     18/39     35/20     39/03     50/38     62/15
        IOERR1       2564   PROGRAM*       62/50 L
        IOERR2       2155   PROGRAM*       49/31 L   49/48     50/33
        IOEXP           5   PROGRAM*        2/25 E    2/25 L   40/18     66/27
        IOFLAG         73   PROGRAM*        8/22 L   26/52 S   29/46     31/19     32/44     38/23     39/54     70/40
                                           12/53     27/23     30/29 S   31/45     35/33 S   39/01     41/12
                                           22/08     29/12 S   31/06     31/47     36/30     39/50     55/50
                                           24/40 S   29/32     31/17     32/26     37/23     39/51     58/48
        IOLIST       1475   PROGRAM*       12/56     27/30     29/40     37/26     38/15 L   39/29     39/36
        IOLIST1      1503   PROGRAM*       38/24     38/28 L
        IOL.C        2103   PROGRAM*       38/44     47/29 L
        IOL.CA       2107   PROGRAM*       47/38     47/45 L
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    78
        SYMBOLIC REFERENCE TABLE. 
  
        IOL.CAZ      2115   PROGRAM*       47/57     48/04 L
        IOL.CIN      2147   PROGRAM*       49/14 L   49/26
        IOL.CIW      2152   PROGRAM*       49/16     49/19 L
        IOL.CP       2104   PROGRAM*       47/37 L   47/40
        IOL.CS       2161   PROGRAM*       49/17     49/25     49/43 L
        IOL.CS1      2164   PROGRAM*       49/46     49/50 L
        IOL.CS2      2205   PROGRAM*       50/45 L   51/19
        IOL.D        2566   PROGRAM*       47/45     48/01     55/20     60/27     63/05 L
        IOL.E        1525   PROGRAM*       38/51 L   41/28
        IOL.E0       1550   PROGRAM*       38/55     39/09 L
        IOL.E1       1552   PROGRAM*       39/10     39/13 L
        IOL.L        1521   PROGRAM*       38/29     38/42 L   41/27     41/49     64/09     64/21
        IOL.N        1567   PROGRAM*       38/43     38/45     39/45 L   63/51
        IOL.NE       1630   PROGRAM*       41/10     41/30     42/24     43/18     64/34
                                           41/26 L   41/45     42/56     59/15
        IOL.NF       2157   PROGRAM*       48/29     49/38 L
        IOL.N1       1602   PROGRAM*       39/55     40/16 L
        IOL.N2       1622   PROGRAM*       40/34     41/04     41/07 L   41/13     41/20
        IOL.N3       1624   PROGRAM*       40/38     41/12 L
        IOL.VAX      1635   PROGRAM*       40/57     41/35 L
        IOM.CD       3034   PROGRAM*       34/35     34/44 L
        IONAME          6   PROGRAM*        2/26 E   23/22     25/04 S   32/35 S   38/21 S   39/26 S   65/21
                                            2/26 L   25/01 S   32/31 S   37/33 S   39/20     64/46     65/35
        IOSETUP       205   PROGRAM*       10/32 L   24/04     24/20     26/33     28/42     30/12     35/12
                                           11/04     24/12     26/15     28/17     30/04     35/04     65/24
        IOTAB          44   PROGRAM*        7/42 L   27/29     29/39
        ITEMCT          7   PROGRAM*        2/27 E    2/27 L   41/07 S   44/09     60/12 S
        IXFN            0   EXTERNAL*       2/03 X   10/14
        IXFNCL          0   PROGRAM*        1/57 E    1/57 L   16/45 S   19/23 S   36/38 S
        IXFNL         175   PROGRAM*       10/12 L   16/47     31/17     36/12     39/51     58/48
                                           10/26     19/24     31/45     36/42     58/26
        I.GL       100000   FTNTEXT        39/34
        I.IO       300000   FTNTEXT        23/29     34/14
        KSSW            0   EXTERNAL*       2/07 X   48/32     49/38
        LABCON          0   EXTERNAL*       2/04 X   17/55
        LCMFG         132   PROGRAM*        8/43 L   13/18 S   31/28 S   31/56 S   32/11
        LDFLAG         12   PROGRAM*        2/30 E   14/08     18/26 S   24/36 S   26/28 S   28/19 S   29/43     38/56
                                            2/30 L   14/41     21/46     26/09 S   26/37 S   28/38 S   30/28 S   67/41
                                           13/29     16/28 S   22/01     26/19 S   27/13     28/46 S   35/32 S
        LFNA          713   PROGRAM*       21/13 S   22/35 L   22/42     29/20 S   30/37 S   36/24 S
        LFNB          714   PROGRAM*       21/14 S   22/15     22/36 L
        LISTIOC       113                   3/18 D   53/49
        LSTARR       1643   PROGRAM*       40/17     41/57 L
        LSTCON       1713   PROGRAM*       40/21     43/03 L
        LSTEXP       1655   PROGRAM*       40/19     42/30 L
        LSTEXP1      1670   PROGRAM*       42/39     42/42 L
        LSTEXP2      1710   PROGRAM*       42/50     42/53 L
        LSTITM       1743   PROGRAM*       41/09     43/24 L   44/35     60/14
        LSTITM1      1755   PROGRAM*       43/38     43/43 L
        LSTITM2      1760   PROGRAM*       43/45     43/47     43/52 L
        LSTITM3      1772   PROGRAM*       43/41     43/49     44/02 L
        LSTITM3A     1774   PROGRAM*       44/04     44/07 L
        LSTITM4      2012   PROGRAM*       44/14     44/18 L
        LSTITM5      2025   PROGRAM*       44/19     44/28 L
        LSTITM6      2033   PROGRAM*       44/26     44/28     44/30     44/34 L
        L.DIMP         14   FTNTEXT        40/44     48/45     62/34     70/22
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    79
        SYMBOLIC REFERENCE TABLE. 
  
        L.IOLST         0   EXTERNAL*       2/05 X   39/23 S   57/02 S   69/22     70/47
                                           36/55     55/54     69/11 S   69/49
        L.NML           0   EXTERNAL* 
        L.RB            7   FTNTEXT        33/32
        L.TYP           4   FTNTEXT        16/33     16/35     23/05     48/40     48/42
        MACBUF        107   PROGRAM*        8/40 L    9/05     17/05 S   31/30 S   34/22     41/57 S   72/24
                                            8/56     10/52 S   23/27 S   32/01 S   37/10 S   45/17     73/01
                                            9/04     10/54     23/36     33/12     41/39 S   58/57 S
        MACLK1         40   PROGRAM*        4/16 L   13/51 S   49/51 S   53/15     58/37 S   60/09
        MACLK2         41   PROGRAM*        4/17 L   14/04 S   52/45 S   54/48 S   56/28
        MACLK3         42   PROGRAM*        4/18 L   52/26 S   53/22 S   53/27     53/40 S   54/01
        MACLK4         43   PROGRAM*        4/19 L   40/24 S   46/45     48/44 S   58/30     72/43
        MACLP1         32   PROGRAM*        4/09 L   13/52 S   39/52 S   40/10     46/39     57/22 S   58/20 S   72/37
        MACLP2         33   PROGRAM*        4/10 L   58/54 S   72/36
        MACLP3         34   PROGRAM*        4/11 L   58/27 S
        MACLP4         35   PROGRAM*        4/12 L
        MACLP5         36   PROGRAM*        4/13 L
        MACLP6         37   PROGRAM*        4/14 L
        MACLS1         26   PROGRAM*        4/04 L   13/50 S   73/13
        MACLS2         27   PROGRAM*        4/05 L   21/24 S   32/45 S   52/44 S   56/27
                                           13/55 S   21/52     33/08     54/47 S   72/48
        MACLS3         30   PROGRAM*        4/06 L
        MACLS4         31   PROGRAM*        4/07 L
        MACNUM        416                   3/33 D    3/36 D    3/38 D    3/40 D    3/41 D    3/42 D    3/43 D    3/45 D
                                            3/34 D    3/37 D    3/39 D    3/41      3/42      3/43      3/44 D
        MACOP         106   PROGRAM*        8/39 L   14/16 S   57/15 S   58/49     72/57
        MACOPC        131   PROGRAM*        8/42 L   14/15 S   48/21 S   52/36     53/56     54/17 S   57/09     72/26
        MACOUT       3014   PROGRAM*       14/17     58/55     72/56 L
        MACOUT1      2771   PROGRAM*       72/06 L   72/17     73/23
        MACSYM        165   PROGRAM*        8/57 L   13/48 S   51/27 S   52/47 S   54/46     56/17
        MSORI         345                   3/42 D    3/42      3/51
        M.FNCHK        23   FTNTEXT        18/01
        M.INDLD       415                   3/45 D    3/45     14/16
        M.IOAPL       343                   3/40 D    3/40     46/51
        M.IOLWC       354                   3/44 D    3/44     57/13     58/50
        M.SXIT          6                   3/34 D    3/34     66/38
        M.V1          346                   3/43 D    3/43     45/28
        NAMDEX        136   PROGRAM*        8/46 L   48/09 S   49/18 S   50/45     51/29     56/03
        NAMLIST       241   PROGRAM*       12/39 L   12/57     26/47     29/08
        NAMLIST1      263   PROGRAM*       12/49     12/52 L
        NAMLTAB        64   PROGRAM*        8/09 L   12/55
        NARGS           0   MACBUF         12/46 S   18/17 S   22/11 S   31/38 S   36/02 S   37/18 S   39/08 S   43/17 S
                                           17/22 S   19/29 S   30/56 S   32/09 S   36/17 S   38/37 S   42/46 S   44/34 S
        NCA             0   EXTERNAL*       2/05 X   13/39     14/33     15/16     43/55     44/29
        NOCAL         142   PROGRAM*        8/48 L   47/48     55/06 S   59/14 S   60/26 S
        NOCOLAP      2512   PROGRAM*       48/25     49/39     50/02     50/15     55/25
                                           48/35     49/43     50/07     51/10     60/20 L
        NODIMS        164   PROGRAM*        8/55 L   49/05 S   55/56     57/07
        NOREFSA      2245   PROGRAM*       52/12     52/17 L
        NRLN           64                   2/15 D   13/52     41/40     42/49     46/34     58/17     73/06
                                           10/23     16/57     42/06     46/24     57/20     72/31
        NTYPE           0   EXTERNAL*       2/07 X
        N1            226   PROGRAM*       11/19 L   11/24     11/30
        N2            231   PROGRAM*       11/23     11/25 L
        N.GL            0   EXTERNAL*      38/30     39/31
        ONI          2750   PROGRAM*       12/42     70/19 L   70/21     70/26     70/29
        ONIA         2746   PROGRAM*       70/15 L   71/04
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    80
        SYMBOLIC REFERENCE TABLE. 
  
        ONI1         2763   PROGRAM*       70/43     70/47 L
        ONI2         2767   PROGRAM*       70/56 L   71/03
        OPT2            0   EXTERNAL*      36/53     66/14     69/14     70/20
        OUTUSE          0   EXTERNAL*      10/33     18/17     30/56     36/02     38/37     43/17
                                           12/46     19/29     31/38     36/17     39/08     44/34
                                           17/22     22/11     32/09     37/18     42/46
        O.IOLST         0   EXTERNAL*       2/06 X   36/56     56/19     69/07     69/16     69/33     70/52
        O.NML           0   EXTERNAL*      70/24     70/49
        PARCNT         10   PROGRAM*        2/28 E   12/46     19/29     31/38     34/37     37/18     42/46     55/52
                                            2/28 L   17/22     22/11     32/09     36/02     38/37     43/17     64/39
                                           11/02 S   18/17     30/56     34/17     36/17     39/08     44/34     65/03
        PBUF         1140   PROGRAM*       30/06     30/14     30/26 L   32/56     33/11     33/27     33/36     33/37
        PBUF1        1177   PROGRAM*       30/45     31/01 L
        PBUF1A       1206   PROGRAM*       31/09     31/13 L
        PBUF2        1214   PROGRAM*       31/21     31/25 L
        PBUF2A       1221   PROGRAM*       31/26     31/35 L
        PBUF2B       1230   PROGRAM*       31/33     31/40 L
        PBUF3        1240   PROGRAM*       31/49     31/53 L
        PBUF3A       1245   PROGRAM*       31/54     32/06 L
        PBUF3C       1254   PROGRAM*       32/04     32/11 L
        PBUF4        1260   PROGRAM*       32/15     32/20 L
        PED          1352   PROGRAM*       35/06     35/14     35/30 L   37/27
        PEDT         1351   PROGRAM*       11/03 S   35/28 L   37/05 S   39/09
        PED1         1422   PROGRAM*       36/03     36/19 L
        PED1A        1435   PROGRAM*       36/31     36/34 L
        PED2         1447   PROGRAM*       36/44     36/54     37/07 L
        PED2A        1454   PROGRAM*       37/08     37/15 L
        PED2B        1463   PROGRAM*       37/13     37/20 L
        PED.E        1350   PROGRAM*       35/19 L   35/47     35/51     36/07     36/09
        PED.VC       1407   PROGRAM*       35/40     36/07 L
        PERB          753   PROGRAM*       24/06     24/14     24/22     24/34 L   25/05
        PH2RETN         0   EXTERNAL*       2/03 X   12/22     32/17     49/33
        PIO            12                   3/33 D    3/33     69/36
        PIOBUF         75   PROGRAM*        8/28 L    8/32     69/06     69/20 S
        PIOFLAG        74   PROGRAM*        8/26 L   26/55 S   30/31 S   35/35 S   36/43     66/16
                                           24/52 S   29/15 S   31/11 S   36/33 S   38/26 S   67/39
        PIOMAX         35                   3/35 D   69/27
        PLFN          704   PROGRAM*       20/04     22/14     22/16     22/19 L   26/56
        PLFN1         620   PROGRAM*       21/08 L   22/29     22/32
        PLFN1A        654   PROGRAM*       21/48     21/51 L
        PLFN2         656   PROGRAM*       21/20     21/56 L
        PLFN3         667   PROGRAM*       21/54     22/03     22/06 L
        PLFN4         671   PROGRAM*       22/07     22/11 L
        PLFN5         706   PROGRAM*       22/20     22/21 L
        PLFN6         710   PROGRAM*       22/21     22/25 L
        PLFN7         712   PROGRAM*       22/23     22/31 L
        PLI          2665   PROGRAM*       10/15     66/13 L   66/17     66/26     68/02
        PLI1         2670   PROGRAM*       66/15     66/19 L
        PLI3         2705   PROGRAM*       66/50     67/08 L
        PLI4         2707   PROGRAM*       67/17 L
        PLI5         2712   PROGRAM*       66/42     67/26 L
        PLI6         2713   PROGRAM*       66/51     67/02     67/04     67/13     67/33 L
        PLI7         2714   PROGRAM*       67/18     67/22     67/39 L
        PLI7A        2721   PROGRAM*       67/43     67/46     67/52 L
        PLI8         2722   PROGRAM*       66/29     67/40     67/48     67/56 L
        PLUS           17   PROGRAM*        3/27 L   57/43
        PRINT        1011   PROGRAM*       26/32 E   26/32 L   26/40
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    81
        SYMBOLIC REFERENCE TABLE. 
  
        PRINT.L      1005   PROGRAM*       26/26 L   26/35
        PROFL        1021   PROGRAM*       26/21     26/39     26/49 L   27/31     28/15     28/39
        PROFL1       1037   PROGRAM*       27/12     27/16 L
        PROFL2       1045   PROGRAM*       27/14     27/23 L
        PROFL.N      1020   PROGRAM*       26/47 L   27/07
        PROGRAM        56                   2/14 D   21/17     22/12
        PRORW        1077   PROGRAM*       26/12     26/30     28/23     28/48     29/11 L   29/41
        PRORW1       1117   PROGRAM*       29/33 L   29/48
        PRORW.B      1124   PROGRAM*       29/24     29/43 L
        PRORW.N      1074   PROGRAM*       29/08 L   29/30
        PSTAPL       1320   PROGRAM*       17/15     32/02     34/26     41/43     59/05
                                           31/31     34/09 L   37/11     42/22
        PSYM            0   EXTERNAL*       2/04 X   12/21
        PUNCH         776   PROGRAM*       26/14 E   26/14 L   26/22
        PUNCH.L       772   PROGRAM*       26/07 L   26/17
        PVARNAM       267   PROGRAM*       13/11 L   13/33     14/18     14/43     17/21     31/37     36/16
                                           13/31     13/42     14/27     14/46     19/28     32/08     37/17
        PVN0          274   PROGRAM*       13/21     13/23 L
        PVN1          314   PROGRAM*       13/26     13/34 L
        PVN2          321   PROGRAM*       13/34     13/37 L
        PVN3          333   PROGRAM*       13/22     13/23     13/43 L
        PVN3A         365   PROGRAM*       14/10     14/13 L
        PVN4          371   PROGRAM*       13/46     14/19 L
        PVN5          404   PROGRAM*       13/45     14/20     14/30 L
        PVN6          416   PROGRAM*       14/36 L
        PVN7          417   PROGRAM*       14/36     14/38 L
        PVN8          425   PROGRAM*       14/37     14/40     14/44 L
        P.COM          16   FTNTEXT        33/28
        P.DIM          15   FTNTEXT        12/13     40/36     48/33     48/36     67/01     67/03
        P.DIMP         51   FTNTEXT        40/45     40/50     48/46     62/35     70/23
        P.EQU          14   FTNTEXT        62/29     67/03
        P.EXT          66   FTNTEXT        21/18     23/06
        P.FMODE        51   FTNTEXT        22/45
        P.FNCHK        60   FTNTEXT        18/02
        P.FP           21   FTNTEXT        13/19     33/26     33/28     43/34
        P.IOF          53   FTNTEXT        23/08     33/18
        P.LCM           1   FTNTEXT        13/13     13/16     32/14     43/26     43/29
        P.LDO          11   FTNTEXT        66/25
        P.LOCF          4   FTNTEXT        32/49
        P.NAME         22   FTNTEXT        54/23
        P.RB           14   FTNTEXT        33/34
        P.RFN          62   FTNTEXT        18/09
        P.TYP          70   FTNTEXT        12/16
        P.VAR          50   FTNTEXT        17/36
        READ         1054   PROGRAM*       28/16 E   28/16 L   28/24
        READ.F       1053   PROGRAM*       28/14 L   28/21
        REW           743   PROGRAM*       24/11 E   24/11 L   24/15
        REWTAB         71   PROGRAM*        8/16 L   24/13
        RJBEF          21   PROGRAM*        3/48 L
        RL2TS           0   EXTERNAL*      66/31
        RM.IHL         36   FTNTEXT        45/42     46/15
        RM.RIL         20   FTNTEXT        46/40     46/42     67/09     67/10     72/38     72/40
        RSELECT         0   EXTERNAL*       2/03 X   12/48     16/13     22/06     52/11     54/51
        RSSW            0   EXTERNAL*       2/07 X   48/27
        R1.INP         36   FTNTEXT        69/37
        R1.SOP         20   FTNTEXT        69/40
        SAVDAN          0   EXTERNAL*       2/05 X   58/25 S   58/46 S
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    82
        SYMBOLIC REFERENCE TABLE. 
  
        SAVELIS       163   PROGRAM*        8/54 L   59/10     59/36 S
        SELIST         32                   2/12 D   24/43     27/19     29/28     31/40     36/21     42/53     63/50
                                           12/40     26/16     28/20     29/37     32/20     36/28     57/37 S   64/15
                                           16/26     26/34     28/43     30/34     35/38     37/20     59/12 S   64/25
                                           16/39     27/03     29/17     30/41     35/39     38/42     59/41 S
                                           19/11     27/11     29/23     31/01     36/19     41/26     63/05
        SERF         1474   PROGRAM*       38/01 L   39/48 S   40/32
        SETTYPE        23   PROGRAM*        3/50 L   42/05
        SETVAR         24   PROGRAM*        3/51 L   16/56
        SFMODE        715   PROGRAM*       12/52     16/18     18/21     22/41 L   22/43     22/48     29/45     30/39
        SHIFTWD      3025   PROGRAM*       73/12     73/25 L
        SLAB          100                  18/07 D   18/08
        SNTI          174   PROGRAM*        9/06 L   27/09 S   27/24
        SSORI         344                   3/41 D    3/41      3/50
        STAPL         127                   3/39 D    3/39      3/49
        STIOM        1332   PROGRAM*       17/16     32/03     34/43     41/44     59/06
                                           31/32     34/33 L   37/12     42/23
        STLBAK.        10                   7/24 D    8/17
        STLCMM.        13                   7/27 D
        STLCRM.         0                   7/16 D
        STLENF.        11                   7/25 D    8/15
        STLIBI.         4                   7/20 D    7/51
        STLIBU.         6                   7/22 D    8/13
        STLICO.         2                   7/18 D    7/54      7/57      8/10
        STLOBI.         5                   7/21 D    7/42
        STLOBU.         7                   7/23 D    8/12
        STLOCO.         3                   7/19 D    7/45      7/48      8/09
        STLREW.        12                   7/26 D    8/16
        STLRP2.         1                   7/17 D
        STLTAB          0   EXTERNAL*      23/15
        STRAPL         22   PROGRAM*        3/49 L   34/10
        STSORD          0   STSORD          2/18 L   13/57
        ST.             0   EXTERNAL*       2/05 X   13/53
        SVARG           0   EXTERNAL*      12/45     13/56     14/35     21/43     35/55     42/43     43/54     44/32
                                           13/25     14/05     14/39     21/45     36/01     42/45     43/57
                                           13/28     14/07     14/45     21/49     38/36     43/06     44/08
                                           13/32     14/11     15/15     21/57     39/05     43/10     44/13
                                           13/36     14/24     15/18     22/04     39/07     43/13     44/16
                                           13/38     14/26     18/13     30/52     42/34     43/16     44/23
                                           13/41     14/32     21/40     30/55     42/36     43/40     44/25
        SYMBOL          0   EXTERNAL*      16/30     22/20     23/18     48/28
        SYMORD         76   PROGRAM*        8/29 L   66/28 S   68/01     70/16     70/31 S
        SYM1           12                   2/10 D   10/16     32/36     32/46     32/57     33/13     54/20     66/19
        TAPEN         557   PROGRAM*       18/33 L   19/50
        TEMP          103   PROGRAM*        8/35 L   16/21     24/55     33/22     41/14     54/18     59/01
                                           12/44 S   16/51 S   31/20 S   40/03 S   41/38     57/32 S   64/42 S
                                           12/50     18/15 S   32/33     40/06     53/09 S   58/28     64/44
                                           16/15     24/38 S   32/41 S   40/43 S   53/43     58/53 S
        TEMPA         104   PROGRAM*        8/36 L   32/54     40/04 S   41/15     58/22 S   72/33 S
                                           31/48 S   33/21     40/09     57/23 S   59/02
        TEMPB         172   PROGRAM*        9/02 L   48/14 S   56/05     56/20
        TEMPBA        116   PROGRAM*        9/05 D   56/10 S   56/52
        TEMPBI        111   PROGRAM*        9/04 D   56/11 S   56/54
        TEMP1         107   PROGRAM*        8/56 D   51/07     52/08     52/15     54/53
                                           50/49 S   51/40 S   52/13     54/44 S
        TENCOL        141   PROGRAM*        8/47 L   52/30 S   53/47 S   54/30 S   55/07
                                           48/15 S   52/34 S   54/04     54/39 S   55/27 S
1       LISTIO -    I/O STATEMENT PROCESSOR                           COMPASS 3.7-871.     24/05/02. 15.54.08.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        TINDX         100   PROGRAM*        8/31 L   69/21 S   69/24     70/34 S   70/39
        TLEN           75   PROGRAM*        8/32 D   70/35 S   70/42
        TYPEFG         11   PROGRAM*        2/29 E   40/22     42/13     42/48     67/17
                                            2/29 L   41/03     42/37     44/02
        T.CGS          14   FTNTEXT        23/05
        T.DBL           3   FTNTEXT        58/32
        T.INT           1   FTNTEXT        12/17     17/46     19/38     35/46
        T.LAB           6   FTNTEXT        18/08
        T.NML          10   FTNTEXT        16/36
        T.OCT           5   FTNTEXT        42/38     44/03
        UDATA.          0   EXTERNAL*      10/33     18/17     30/56     36/02     38/37     43/17
                                           12/46     19/29     31/38     36/17     39/08     44/34
                                           17/22     22/11     32/09     37/18     42/46
        UNITF         560   PROGRAM*       18/34 L   19/10 S   19/43
        UNITLIM       144                   9/07 D   19/45
        UNITN         563   PROGRAM*       19/09 L   19/31     19/44     20/05     24/53     29/21     30/38     30/44
        UNITN1        571   PROGRAM*       19/18     19/21 L
        UNITN.B       562   PROGRAM*       18/38 L   19/47
        UNITN.C       604   PROGRAM*       19/12     19/36 L
        UNITN.E       561   PROGRAM*       18/36 L   19/13     19/19     19/39
        VALTYP       2541   PROGRAM*       51/57     52/24     53/14     61/39 L
        VALTYP1      2540   PROGRAM*       61/35 L   61/45
        VFFLAG        173   PROGRAM*        9/03 L   16/46 S   38/53 S   67/45
        VTYPE           0   EXTERNAL*       2/04 X
        V.DEF      200000   FTNTEXT        10/25     51/41
        V.DIM       20000   FTNTEXT        16/48
        WLABM           0   EXTERNAL*      39/35
        WRITE        1065   PROGRAM*       28/41 E   28/41 L   28/49
        WRITE.L      1063   PROGRAM*       28/36 L   28/44
        WRM             0   EXTERNAL*      23/36     46/30     46/48     69/47     72/46
        WTC=            0   EXTERNAL*      10/54     34/35     39/15     65/16
        WTW=            0   EXTERNAL*      34/22     72/24
        WWC          2042   PROGRAM*       41/37     45/13 E   45/13 L   46/32     46/49
        WWCA         2101   PROGRAM*       45/15 S   46/31     46/44 S   46/52 L   72/42 S
        WWC1         2055   PROGRAM*       45/38     45/51 L
        WWC2         2057   PROGRAM*       46/03 L   46/10     46/16
        WWC3         2062   PROGRAM*       46/07     46/13 L
        WWC4         2064   PROGRAM*       46/11     46/18 L
        WWC5         2065   PROGRAM*       45/49     46/22 L
        Z               4                  16/26 D   29/23 D   31/04 D   35/44 D   39/45 D   48/24     50/11     63/46
                                           16/26     29/23     31/04     35/44     39/45     49/14 D   50/20 D   64/29 D
                                           19/17 D   29/28 D   31/40 D   36/08 D   41/26 D   49/14     50/20     64/29
                                           19/17     29/28     31/40     36/08     41/26     49/20 D   50/28 D   64/33 D
                                           19/36 D   30/34 D   32/20 D   36/19 D   47/37 D   49/20     50/28     64/33
                                           19/36     30/34     32/20     36/19     47/37     50/01 D   63/05 D
                                           27/18 D   30/41 D   32/22 D   36/28 D   47/41 D   50/01     63/05
                                           27/18     30/41     32/22     36/28     47/41     50/03 D   63/18 D
                                           29/17 D   31/03 D   35/38 D   37/20 D   47/41     50/03     63/18
                                           29/17     31/03     35/38     37/20     48/24 D   50/11 D   63/46 D
        Z.IOLST         0   EXTERNAL*      39/11     67/56     70/37
        .DAL            1   FTNTEXT        13/44 F   15/10 F   43/25 F   43/44 F
        .STL           14                   7/14 D    7/17 D    7/19 D    7/21 D    7/23 D    7/25 D    7/27 D
                                            7/16      7/18      7/20      7/22      7/24      7/26
                                            7/16 D    7/18 D    7/20 D    7/22 D    7/24 D    7/26 D
                                            7/17      7/19      7/21      7/23      7/25      7/27
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0    10061              IDENT  ARITH
                      10061                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      7607 
                                        LITERALS* LOCAL        7607        12 
                                        OPSTAK    LOCAL        7621       240 
                                        STSORD    COMMON          0         1 
                                        CLNFO     COMMON          0         6 
                                        //        COMMON          0         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=ARITH          0+           STAPLC          43+           CVDB          6460+ 
                                        OPSTAK        7621+           ARLPT            5+/CLNFO/    STRIP         6514+ 
                                        SAVDAN           0+           DBGEXT        1063+           FSTRIP        6526+ 
                                        CONST            1+           DBGAPL        1121+           IXFN          6537+ 
                                        IDORDL           3+           RL2TS         1127+           ACALL         6662+ 
                                        NAMFWA           4+           APLRT         5775+           ARITH         6764+ 
                                        EQCOUNT          5+           GEFCM         6102+           INITR         7034+ 
                                        NCA              6+           DARLIST       6137+           APLST         7103+ 
                                        NCAD             7+           IFTLU         6236+           IFE           7172+ 
                                        NRFD            10+           BEFTLU        6241+           IFL           7424+ 
                                        OP              11+           IFTLU.P       6246+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.GCON    DOCALL    LABEL.    APLRST    DEC       ASSIGN    UDATA.    N.AP
                                        FSTEX     DODEF     DFLAG     HOLCON    ENC       EXIT.     CPLXC     CRFLAG
                                        VALUE.    ERPROI    D.SAASI   IARC      BUFOUT    O.CEP     BIO       IONAME
                                        DOFLAG    DOGOOF    BEFTB     IOEXP     BUFIN     DOLABR    RSELECT   ADDREF
                                        ERPRO     IGCALL    L.BEFTB   PARCNT    WRITE     LORD      WRM       CFO 
                                        CBNFLG    ST.       L.IOLST   TYPEFG    READ      N.GL      WWC 
                                        PH2RETN   FP.       O.IOLST   LDFLAG    PAUSEP    WLABM     VARDIM
                                        SYMBOL    ALLARR    O.CON     PUNCH     STOPP     IPH2      OPT2
                                        ASAER     ALLCALL   L.CON     PRINT     CONT      N.EQUAL   CFCD
                                        CONVERT   ALLFUNC   O.ARLST   ENDFILE   RETURN    FARGLST   ROPFLAG 
                                        ASFDEF    CON.      L.ARLST   BKSP      CALL      TYPECLL   WTW=
                                        ASFREF    TRACEL    IXFNCL    REW       GOTO      OUTUSE    F.RLST
  
  
  
  
                                                  IDENT  ARITH                                                   ARITH       2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=ARITH  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     ARITH       5
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     2
  
  
                                        **        LISTING CONTROLS.                                              ARITH       7
                                        *                                                                        ARITH       8
                                        *         ALSO SEE AUTOMATIC NOREFS GENERATED FOR NAMES OF *IF* MACROS   ARITH       9
                                        *         WITHIN THE DEFINITION OF THE MACRO *RMACRO*.  THIS DEFINITION  ARITH      10
                                        *         IS LOCATED AT THE BEGINNING OF THREE- AND TWO-BRANCH *IF*      ARITH      11
                                        *         PROCESSING.  SEE CODE AFTER DEFINITION OF THE SYMBOL *IFERR1*. ARITH      12
                                                                                                                 ARITH      13
                                                  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     ARITH      14
                                                  NOREF  .A                                                      ARITH      15
                                                  NOREF  .B                                                      ARITH      16
  
  
  
  
                                                  MACRO  ARLIST,LBL,LIM                                          FEAT155F  224
                                         .SLIM    SET    LIM 100                                                 FEAT155F  225
                                         LBL.ARL  SNAP   *O.ARLST,,*ARLPT,,1,.SLIM,1                             FEAT155F  226
                                         ARLIST   ENDM                                                           FEAT155F  227
  
  
  
  
                                                  MACRO  OPSTACK,LBL,LIM                                         FEAT155F  229
                                         .SLIM    SET    LIM 100                                                 FEAT155F  230
                                         LBL.OPS  SNAP   OPSTAK+1,,*OSPTR,,1,.SLIM,1                             FEAT155F  231
                                         OPSTACK  ENDM                                                           FEAT155F  232
  
  
  
  
  
                                        ************************************************************************ ARITH      31
                                        *                                                                      * ARITH      32
                                        *                DIAGNOSTIC ISSUANCE MACROS                            * ARITH      33
                                        *                                                                      * ARITH      34
                                        *         'IDM'        ISSUE INFORMATIVE DIAGNOSTIC                    * ARITH      35
                                        *                                                                      * ARITH      36
                                        *         'USASDM'     ISSUE 'USAS' SPECIFICATION VIOLATION DIAGNOSTIC * ARITH      37
                                        *                                                                      * ARITH      38
                                        *         'EERR'       ISSUE FATAL TO EXECUTION DIAGNOSTIC             * ARITH      39
                                        *                                                                      * ARITH      40
                                        *         'FCERR'      ISSUE FATAL TO COMPILATION DIAGNOSTIC           * ARITH      41
                                        *                                                                      * ARITH      42
                                        ************************************************************************ ARITH      43
  
                                        IDM       MACRO  MSGNUM                                                  ARITH      45
                                                  IF     -DEF,IDCOUNT                                            ARITH      46
                                        IDCOUNT   SET    0                                                       ARITH      47
                                                  RMT                                                            ARITH      48
                                        IDMX      SA1    EPOINT                                                  ARITH      49
                                                  SB1    X1+1                                                    ARITH      50
                                        IDM       BSS    1                                                       ARITH      51
                                                  SB7    IDMX                                                    ARITH      52
                                                  SA1    EPOINT                                                  ARITH      53
                                                  SA4    X1+1                                                    ARITH      54
                                                  ZR     ERPROI                                                  ARITH      55
                                                  RMT                                                            ARITH      56
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     3
  
  
                                                  ENDIF                                                          ARITH      57
                                        IDCOUNT   SET    IDCOUNT+1                                               ARITH      58
                                                  SB6    MSGNUM                                                  ARITH      59
                                         .T       IFNE   TEST,0                                                  FCC0418     9
                                                  SB4    *+2-*P/60D                                              FCC0418    10
                                                  CALL   TEM                                                     FCC0418    11
                                         .T       ENDIF                                                          FCC0418    12
                                                  RJ     IDM                                                     ARITH      60
                                        IDM       ENDM                                                           ARITH      61
  
  
                                        USASDM    MACRO  MSGNUM                                                  ARITH      63
                                                  IF     -DEF,USASCT                                             ARITH      64
                                        USASCT    SET    0                                                       ARITH      65
                                        USASER    EQU    ASAER                                                   ARITH      66
                                                  RMT                                                            ARITH      67
                                        USASDMX   SA1    EPOINT                                                  ARITH      68
                                                  SB1    X1+1                                                    ARITH      69
                                        USASDM    BSS    1                                                       ARITH      70
                                                  SB7    USASDMX                                                 ARITH      71
                                                  SA1    EPOINT                                                  ARITH      72
                                                  SA4    X1+1                                                    ARITH      73
                                                  ZR     USASER                                                  ARITH      74
                                                  RMT                                                            ARITH      75
                                                  ENDIF                                                          ARITH      76
                                        USASCT    SET    USASCT+1                                                ARITH      77
                                                  SB6    MSGNUM                                                  ARITH      78
                                         .T       IFNE   TEST,0                                                  FCC0418    13
                                                  SB4    *+2-*P/60D                                              FCC0418    14
                                                  CALL   TEM                                                     FCC0418    15
                                         .T       ENDIF                                                          FCC0418    16
                                                  RJ     USASDM                                                  ARITH      79
                                        USASDM    ENDM                                                           ARITH      80
  
  
                                        EERR      MACRO  MSGNUM                                                  ARITH      82
                                                  SB6    MSGNUM                                                  ARITH      83
                                        *                                                                        ARITH      84
                                         .T       IFNE   TEST,0                                                  ARITH      85
                                                  SB4    ERROUT                                                  ARITH      86
                                                  CALL   TEM         TRACE ERROR MESSAGE                         ARITH      87
                                         .T       ELSE                                                           ARITH      88
                                                  EQ     ERROUT                                                  ARITH      89
                                         .T       ENDIF                                                          ARITH      90
                                        *                                                                        ARITH      91
                                        EERR      ENDM                                                           ARITH      92
  
  
                                        FCERR     MACRO  MSGNUM                                                  ARITH      94
                                                  POSTER SEV=FC,NR=MSGNUM,FMT=ELIST,TXT=X1+1                     ARITH      95
                                        FCERR     ENDM                                                           ARITH      96
  
  
  
  
  
                                        ***                                                                      ARITH      98
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     4
  
  
                                        *        E X P O N  -  MACRO                                             ARITH      99
                                        *                                                                        ARITH     100
                                        *      THIS MACRO IS USED TO MAKE ENTRIES IN THE EXPONENT TABLE.         ARITH     101
                                        *      THIS TABLE CONSISTS OF ALL POSSIBLE CONFIGURATIONS OF             ARITH     102
                                        *      EXPONENTIATION.                                                   ARITH     103
                                        *                                                                        ARITH     104
                                         EXPON    MACRO  TYPE,ANS,EXPR                                           ARITH     105
                                         P1       MICRO  1,1,/EXPR/                                              ARITH     106
                                         P2       MICRO  4,1,/EXPR/                                              ARITH     107
                                                  IFC    EQ,/ILLEGAL/ANS/,2                                      ARITH     108
                                                  VFD    60/0              ILLEGAL ENTRY                         ARITH     109
                                         A1       DUP    0                                                       ARITH     110
                                         A        SET    0                                                       ARITH     111
                                                  IFC    NE,/ANSI/ANS/,1                                         ARITH     112
                                         A        SET    1                                                       ARITH     113
                                                  VFD    4/TYPE,8/A,48/8H"P1"TO"P2".                             ARITH     114
                                         A1       ENDD                                                           ARITH     115
                                         EXPON    ENDM                                                           ARITH     116
  
  
  
  
  
                                        ***                                                                      ARITH     118
                                        *                R O U N D -- MACRO                                      ARITH     119
                                        *                                                                        ARITH     120
                                        *         THIS MACRO IS USED TO MAKE ENTRIES IN THE ROUNDED OPERATION    ARITH     121
                                        *         TABLE.  THE TABLE WILL CONSIST OF ALL MACROS WHICH MAY BE      ARITH     122
                                        *         SELECTED TO BE ROUNDED AND THE OPERATOR WHICH SELECTS THE      ARITH     123
                                        *         ROUNDED OPTION.                                                ARITH     124
                                        *                                                                        ARITH     125
                                         ROUNDMAC MACRO                                                          ARITH     126
                                         A        SET    0                                                       ARITH     127
                                         ROUND    MACRO  OP,MAC,ROUNDMAC                                         ARITH     128
                                                  VFD    2/1,10/1R_OP,18/ROUNDMAC,30/MAC                         ARITH     129
                                                  IFLE   MAC,A,1                                                 ARITH     130
                                                   ERR   ROUND TABLE MUST BE IN ASCENDING NORMAL MACRO ORDER     ARITH     131
                                                  ENDM                                                           ARITH     132
                                                  ROUNDMAC                                                       ARITH     133
  
  
  
  
  
                                        ************************************************************************ ARITH     135
                                        *                                                                      * ARITH     136
                                        *                I N T R I N :   INTRINSIC FUNCTION TABLE ENTRY        * ARITH     137
                                        *                                                                      * ARITH     138
                                        ************************************************************************ ARITH     139
  
                                                  MACRO  INTRIN,NAMEXXX,TYPE,PARAMS,MACROOP,MODECHAN,RNM,MXTYP   ARITH     141
                                                  LOCAL  NPARAMS,NRS                                             ARITH     142
                                                  LOCAL  SP1,SP2,SP3                                             ARITH     143
                                        NPARAMS   SET    0                                                       ARITH     144
                                        NRS       SET    0                                                       ARITH     145
                                         TYMIC    MICRO  1,,                                                     ARITH     146
                                                  COUNT  NPARAMS,NRS,PARAMS                                      ARITH     147
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     5
  
  
                                        NRS       SET    NRS+1                                                   ARITH     148
                                                  IFC    EQ, TYPE DOUBLE ,1                                      ARITH     149
                                        NRS       SET    NRS+1                                                   ARITH     150
                                                  IFC    EQ, TYPE COMPLEX ,1                                     ARITH     151
                                        NRS       SET    NRS+1                                                   ARITH     152
                                                  IFC    EQ, TYPE ANYDBL ,1                                      ARITH     153
                                        NRS       SET    NRS+1                                                   ARITH     154
                                        NRS       DECMIC NRS                                                     ARITH     155
                                         SP1      SET    P.NAME-P.FUN                                            ARITH     156
                                         SP2      SET    P.TYP-P.FARG                                            ARITH     157
                                         SP3      SET    P.FARG-P.INF                                            ARITH     158
                                                  VFD    L.NAME/0H_NAMEXXX,SP1/1,P.FUN/0,L.TYP/TYPE,SP2/"NPARAMS ARITH     159
                                        ,",SP3/1,P.INF/RNM                                                       ARITH     160
                                         NPAR     IFNE   NPARAMS,0                                               ARITH     161
                                         .A       SET    6*NPARAMS+6                                             ARITH     162
                                         .B       SET    60-.A                                                   ARITH     163
                                                  VFD    .A/"TYMIC"_00B,.B/0                                     ARITH     164
                                         MACRO    IFC    EQ,/MACROOP//,3                                         ARITH     165
                                         .N       MICRO  1,8, MD.NAMEXXX                                         ARITH     166
                                                  VFD    1/1,29/".N",30/A_NAMEXXX                                ARITH     167
                                         MACRO    ELSE   1                                                       ARITH     168
                                                  ARMAC  MACROOP,0,"NRS",0                                       ARITH     169
                                         NPAR     ELSE                                                           ARITH     170
                                         .A       OCTMIC MXTYP+1,2                                               ARITH     171
                                                  DUP    10,1                                                    ARITH     172
                                                  VFD    6/".A"_B                                                ARITH     173
                                                  VFD    30/MODECHAN,30/MACROOP                                  ARITH     174
                                                  ENDIF                                                          ARITH     175
                                        INTRIN    ENDM                                                           ARITH     176
  
  
  
  
  
                                        ************************************************************************ ARITH     178
                                        *                                                                      * ARITH     179
                                        *                A R M A C :  GENERATE 'ARITH'S MACRO DESCRIPTOR       * ARITH     180
                                        *                                                                      * ARITH     181
                                        ************************************************************************ ARITH     182
  
                                                  MACRO  ARMAC,LABEL,OPCODE,NCONS,NRS,NSYMS                      ARITH     184
                                        A         SET    NSYMS+1                                                 ARITH     185
                                         B        SET    A/2                                                     ARITH     186
                                        A         SET    NRS+2                                                   ARITH     187
                                        A         SET    A/3                                                     ARITH     188
                                         B        SET    B+A                                                     ARITH     189
                                        A         SET    NCONS+2                                                 ARITH     190
                                        A         SET    A/3                                                     ARITH     191
                                         NWDS     DECMIC B+A                                                     ARITH     192
                                                  IFC    NE, LABEL                                               ARITH     193
                                        LABEL     VFD    2/1,10/OPCODE,12/"NWDS",12/NCONS,12/NRS,12/NSYMS        ARITH     194
                                                  ELSE                                                           ARITH     195
                                                  VFD    2/1,10/OPCODE,12/"NWDS",12/NCONS,12/NRS,12/NSYMS        ARITH     196
                                                  ENDIF                                                          ARITH     197
                                        ARMAC     ENDM                                                           ARITH     198
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     6
  
  
                                        ***                                                                      COUNTMC     2
                                        *         COUNT - COUNT NUMBER OF PARAMETERS                             COUNTMC     3
                                        *          SPECIAL MACRO USED BY "BASIC" AND "INTRIN" MACROS IN          COUNTMC     4
                                        *          FORMING BEFTB AND INTRINSIC FUNCTION TABLES.                  COUNTMC     5
                                        *                                                                        COUNTMC     6
                                                                                                                 COUNTMC     7
                                         COUNT    MACRO  NPARAMS,NRS,TYPE,P1,P2                                  COUNTMC     8
                                                  IFC    NE,//TYPE/                                              COUNTMC     9
                                         .A       OCTMIC TYPE+1,2                                                COUNTMC    10
                                         TYMIC    MICRO  1,,/"TYMIC"_".A"/                                       COUNTMC    11
                                         NPARAMS  SET    NPARAMS+1                                               COUNTMC    12
                                         NRS      SET    NRS+1                                                   COUNTMC    13
                                                  IFC    EQ,/TYPE/DOUBLE/,1                                      COUNTMC    14
                                         NRS      SET    NRS+1                                                   COUNTMC    15
                                                  IFC    EQ,/TYPE/COMPLEX/,1                                     COUNTMC    16
                                         NRS      SET    NRS+1                                                   COUNTMC    17
                                                  IFC    EQ,/TYPE/ANYDBL/,1                                      COUNTMC    18
                                         NRS      SET    NRS+1                                                   COUNTMC    19
                                                  IFC    NE,/P1//                                                COUNTMC    20
                                                  COUNT  NPARAMS,NRS,P1,P2                                       COUNTMC    21
                                                  ENDIF                                                          COUNTMC    22
                                                                                                                 COUNTMC    23
                                         NPARAMS  DECMIC NPARAMS                                                 COUNTMC    24
                                         NRS      DECMIC NRS                                                     COUNTMC    25
                                                  ENDM                                                           COUNTMC    26
  
  
  
  
  
                                        ***                                                                      ARITH     202
                                        *         SUB -  ADDRESS SUBSTITUTION MACRO                              ARITH     203
                                        *                COLLECTS ARLIST REFERENCES SO THAT ADDRESS SUBSTITUTION ARITH     204
                                        *                CAN BE PERFORMED FOR THE BASE OF THE ARLIST BUFFER      ARITH     205
                                                                                                                 ARITH     206
                                         SUB      MACRO                                                          ARITH     207
                                         A        SET    $+1                                                     ARITH     208
                                         B        SET    *-$/59D                                                 ARITH     209
                                                  USE    OPSTAK                                                  ARITH     210
                                                  VFD    12/2000B+A,30/,18/B                                     ARITH     211
                                                  USE    *                                                       ARITH     212
                                                  ENDM                                                           ARITH     213
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     7
         MACROS TO SCAN THE E-LIST
  
             0                           PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                      PARSEM      3
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     8
         SYSTEM EQU"S 
  
                                        *     SYSTEM EQU"S                                                       ARITH     219
                                   0     RA       EQU       0                                                    ARITH     220
                                  12     SYM1     EQU       RA+12B    START.ADR.OF SYMTAB                        ARITH     221
                                  17     DIM1     EQU       RA+17B    ADR.OF DIMEN.INFO.TABLE                    ARITH     222
                                  24     TYPE     EQU       RA+24B    TYPE CODE OF CURRENT STATEM..              ARITH     223
                                  32     SELIST   EQU       RA+32B    ADR.OF NEXT E-LIST ELEMENT TO PROCESS.     ARITH     224
                                  37     CDCNT    EQU       RA+37B    THE CARD NO.OF THE 1ST CARD OF THIS STATE. ARITH     225
                                  56     PROGRAM  EQU    56B                                                     ARITH     226
                                  64     NRLN     EQU       RA+64B                                               ARITH     227
                                        *                                                                        ARITH     228
                                        *                                                                        ARITH     229
                                        *                                                                        ARITH     230
                                  32     EPOINT   EQU       SELIST                                               ARITH     231
                                  64     NARN     EQU       NRLN                                                 ARITH     232
                                                                                                                 ARITH     233
                                                  NOREF     MACNUM                                               ARITH     234
  
  
  
                                        *     CONSTANT EQU"S                                                     ARITH     236
                                   0     LOGICAL  EQU    T.LOG                                                   ARITH     237
                                   1     INTEGER  EQU    T.INT                                                   ARITH     238
                                   2     REAL     EQU    T.REAL                                                  ARITH     239
                                   3     DOUBLE   EQU    T.DBL                                                   ARITH     240
                                   4     COMPLEX  EQU    T.CPLX                                                  ARITH     241
                                   5     OCTAL    EQU    T.OCT                                                   ARITH     242
                                   7     ANYSNGL  EQU    7                                                       ARITH     243
                                        *ANYDBL   EQU    10B                                                     ARITH     244
                                  11     ANY      EQU    11B                                                     ARITH     245
                                        *      SOME OF THE OP CODES AS USED IN OPSTACK WORKS.                    ARITH     246
                                  33     RMINOC   EQU       27                                                   ARITH     247
                                  34     RDVDOC   EQU       28                                                   ARITH     248
                                  22     MLTOP    EQU    18           *                                          ARITH     249
                                  35     MLTSOP   EQU    29           */  MULT-SLASH OP                          ARITH     250
                                  32     UMOP     EQU    26           U-                                         ARITH     251
                                   2     RPOSO    EQU    2            )                                          ARITH     252
                                  23     DVDORD   EQU    19           /                                          ARITH     253
                                  36     SFLPOC   EQU       30        STATE.FUN.LEFT PARENS OP CODE              ARITH     254
                                  37     XFLP     EQU       31        IXFN LP                                    ARITH     255
                                        *      MISC.EQU"S                                                        ARITH     256
                                  77     MXARGS   EQU       63        MAX.NO.OF ARGS.IN FUNCTION ARG.LIST.       ARITH     257
                                        * - ALLOWED, AND MAX.NO.OF NESTED FUNCTION CALLS.                        ARITH     258
                                  14     RPLST    EQU    12           CODE SCANNER GIVES TO REPLACEMENT STATES.  ARITH     259
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE     9
        RLIST MACRO OPCODES                                           R-OPC 
  
                                        *         R-LIST MACRO OP CODES                                          ARITH     261
                                                                                                                 ARITH     262
                                         APLMC    RMEQU  1           APLIST ENTRY                                ARITH     263
                                         STLMAC   RMEQU  4           IXFN LD                                     ARITH     264
                                         SSSXA    RMEQU  6           IXFN SETX                                   ARITH     265
                                         M.EXM    RMEQU  8           INLINE EXPONENTIAL MACRO                    ARITH     266
                                         M.SFR    RMEQU  9           SAVE FUNCTION RESULT                        ARITH     267
                                                                                                                 ARITH     268
                                         DEFMC    RMEQU  111B        ORDINAL OF 1ST OF 8 REG STORE MACROS FOR    ARITH     269
                                        *                            BASIC EXT CALLS.  LAST 4 ARE USED IF ARG IS ARITH     270
                                        *                            NOT RESULT OF FUNC (XMIT NOT NECESSARY)     ARITH     271
                                         BEFMC    RMEQU  121B        BASIC EXT FUNC CALL MACRO ORDINAL           ARITH     272
                                         RJ60MC   RMEQU  122B        60-BIT RJ, NO APLIST                        ARITH     273
                                         GEFMC    RMEQU  124B        GENERAL EXT FUNC CALL MACRO ORDINAL         ARITH     274
                                         DFRMC    RMEQU  125B        ORDINAL OF 1ST OF 2 REG DEFINITION MACROS   ARITH     275
                                         TSMACC   RMEQU  127B        STORE TO TEMP                               ARITH     276
                                                                                                                 ARITH     277
                                         DLMACO   RMEQU  131B        DBL LOAD MACRO ORDINAL                      ARITH     278
                                         SLMACO   RMEQU  133B        SINGLE LOAD MACRO ORDINAL                   ARITH     279
                                         XMITOP   RMEQU  135B        TRANSMIT MACRO ORDINAL                      ARITH     280
                                                                                                                 ARITH     281
                                         SETMC    RMEQU  142B        SET R TO CONSTANT                           ARITH     282
                                         SXTAMC   RMEQU  143B        SET RI = IH + CA + RF                       ARITH     283
                                         P2TON    RMEQU  144B        P2 = (2**K1)*P1  ( P1 INTEGER )             ARITH     284
                                         MZMC     RMEQU  145B        MXI 0 (ZERO MASK)                           ARITH     285
                                         MZZMC    RMEQU  146B        DBL ZERO MASK                               ARITH     286
                                         SDLMC    RMEQU  147B        SINGLE TO DBL LOAD (2ND WD=0)               ARITH     287
                                         MIZMC    RMEQU  150B        MXI 60                                      ARITH     288
                                         DLTSMC   RMEQU  151B        DBL TO SINGLE LOAD                          ARITH     289
                                         MCHMCB   RMEQU  152B        ORDINAL BASE OF MODE CHANGE MACROS          ARITH     290
                                                                                                                 ARITH     291
                                         MAC      RMEQU  157B        BASE ORDINAL OF OPSWTB MACROS               ARITH     292
                                         NOTMC    RMEQU  161B        .NOT.                                       ARITH     293
                                         LORELM   RMEQU  162B        .LS. (LESS THAN)                            ARITH     294
                                         HIRELM   RMEQU  211B        .GT. (GREATER THAN)                         ARITH     295
                                         M.SUB    RMEQU  212B        BASE ORDINAL OF SUBTRACT MACROS             ARITH     296
                                         MPY.INT  RMEQU  223B        INTEGER MULT. MACRO ORDINAL                 ARITH     297
                                         DIV.INT  RMEQU  227B        INTEGER DIVIDE                              ARITH     298
                                         DIVCR    RMEQU  241B        COMPLEX / REAL                              ARITH     299
                                                                                                                 ARITH     300
                                         RSUB     RMEQU  244B        BASE ORDINAL OF ROUND OPERATIONS MACROS     ARITH     301
                                         CRSUB    RMEQU                                                          ARITH     302
                                         RADD     RMEQU                                                          ARITH     303
                                         CRADD    RMEQU                                                          ARITH     304
                                         RMLT     RMEQU                                                          ARITH     305
                                         CRMLT    RMEQU                                                          ARITH     306
                                         RDIV     RMEQU                                                          ARITH     307
                                         CRDIV    RMEQU                                                          ARITH     308
                                         RRSUB    RMEQU                                                          ARITH     309
                                         CRRSUB   RMEQU                                                          ARITH     310
                                         RRDIV    RMEQU                                                          ARITH     311
                                         CRRDIV   RMEQU                                                          ARITH     312
                                                                                                                 ARITH     313
                                        *         MARCOX MACRO CODES FOR INLINE FUNCTIONS                        ARITH     314
                                                                                                                 ARITH     315
                                         IFMCB    RMEQU  260B        BASE ORDINAL OF INTRINSIC FUNC MACROS       ARITH     316
                                         M.AND    RMEQU  IFMCB+26B         BOOLEAN AND                           ARITH     317
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    10
        RLIST MACRO OPCODES                                           R-OPC 
  
                                         M.OR     RMEQU  IFMCB+27B         BOOLEAN OR                            ARITH     318
                                         M.COMPL  RMEQU  IFMCB+30B         BOOLEAN COMPLEMENT                    ARITH     319
                                         MXMNMC   RMEQU  335B        BASE ORDINAL OF MIN/MAX MACROS              ARITH     320
                                         M.MOD    RMEQU  267B        MOD(I,J)                                    ARITH     321
                                         M.MODP2  RMEQU  273B        MOD(I,2**K)                                 ARITH     322
                                         M.SHIFT  RMEQU  305B        VARIABLE SHIFT MACRO ORDINAL                ARITH     323
                                         M.MASK   RMEQU  311B        VARIABLE MASK MACRO ORDINAL                 ARITH     324
                                         M.MASKC  RMEQU  312B        CONSTANT MASK MACRO ORDINAL                 ARITH     325
                                         M.CSHFT  RMEQU  313B        CONSTANT LEFT SHIFT MACRO ORDINAL           ARITH     326
                                                                                                                 ARITH     327
                                         M.XOR    RMEQU  316B        EXCLUSIVE OR                                ARITH     328
                                         M.COUNT  RMEQU              COUNT NUMBER OF BITS                        ARITH     329
                                         M.UPE    RMEQU              UNPACK EXPONENT                             ARITH     330
                                         M.UPC    RMEQU              UNPACK COEFFICIENT                          ARITH     331
                                         M.PACK   RMEQU              Y=PACK(EXP,COE)                             ARITH     332
                                         M.RANF   RMEQU              RANF(0)                                     ARITH     333
                                         M.SXKXJ  RMEQU              18-BIT EXTRACT (SXI XK)                     ARITH     334
                                         M.DMULT  RMEQU              DBL MULT                                    ARITH     335
                                         M.NORM   RMEQU              NORMALIZE ARGUMENT                          ARITH     336
                                         M.NORMC  RMEQU              RETURN VALUE OF NORMALIZATION COUNT         ARITH     337
                                         M.IFTHEN RMEQU              Y=IF L THEN A ELSE B                        ARITH     338
                                         M.FADD   RMEQU              FLOATING ADD                                ARITH     339
                                         M.RADD   RMEQU              ROUNDED FLOATING ADD                        ARITH     340
                                         M.FSUB   RMEQU              FLOATING SUBTRACT                           ARITH     341
                                         M.RSUB   RMEQU              ROUNDED FLOATING SUBTRACT                   ARITH     342
                                         #T       IFNE   TEST,0                                                  FCCT003     9
                                         M.FMULT  RMEQU  417B        FLOATING MULTIPLY                           FCCT003    10
                                         M.RMULT  RMEQU              ROUNDED FLOATING MULTIPLY                   FCCT003    11
                                         M.FDIV   RMEQU              FLOATING DIVIDE                             FCCT003    12
                                         M.DADD   RMEQU              FLOATING DOUBLE ADD                         FCCT003    13
                                         M.DSUB   RMEQU              FLOATING DOUBLE SUBTRACT                    FCCT003    14
                                         M.RNORM  RMEQU              ROUNDED NORMALIZE                           FCCT003    15
                                         M.DSUMH  RMEQU              QUICK DOUBLE PREC. ADD                      FCCT003    16
                                         M.DDIFH  RMEQU              QUICK DOUBLE PREC. SUBTRACT                 FCCT003    17
                                         M.DDIVH  RMEQU              QUICK DOUBLE PREC. DIVIDE                   FCCT003    18
                                         M.DMULH  RMEQU              QUICK DOUBLE PREC. MULTIPLY                 FCCT003    19
                                         M.BOOL   RMEQU              BOOLEAN (TYPELESS) TRANSMIT                 FCCT003    20
                                         #T       ENDIF                                                          FCCT003    21
  
  
  
  
  
  
  
                                        *      ERROR MESSAGE ASSIGNMENTS:                                        ARITH     345
                                 114     ERMSG52  EQU    76                ECS REF MUST APPEAR AS A STAND ALONE  ARITH     346
                                        *                                  ARGUMENT IN A PARAM LIST              ARITH     347
                                 206     ERMSG    EQU       134                                                  ARITH     348
                                 206     ERMSG0   EQU    ERMSG+0      MORE THAN ONE =SIGN                        ARITH     349
                                 207     ERMSG1   EQU    ERMSG+1      ILLEGAL USE OF =SIGN                       ARITH     350
                                 210     ERMSG2   EQU    ERMSG+2      VARIABLE FOLLOWED BY (                     ARITH     351
                                 211     ERMSG3   EQU    ERMSG+3      NO MATCHING RIGHT PARENS                   ARITH     352
                                 212     ERMSG4   EQU    ERMSG+4      NO MATCHING LEFT PARENS                    ARITH     353
                                 213     ERMSG5   EQU       ERMSG4+1  FE: THE OPERATOR INDICATED(-,+,*,1, OR **) ARITH     354
                                        *            MUST BE FOLLOWED BY A CON, ID, OR (.                        ARITH     355
                                 214     ERMSG6   EQU       ERMSG5+1  A NAME MAY NOT BE FOLLOWED BY A CONSTANT.  ARITH     356
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    11
        RLIST MACRO OPCODES 
  
                                 215     ERMSG7   EQU    ERMSG+7      MORE THAN 63 ARGUMENTS IN ARG.LIST.        ARITH     357
                                 216     ERMSG8   EQU       ERMSG7+1  A CONST MAYNT BE FOLOWD BY =, NAME, OR CON ARITH     358
                                 217     ERMSG9   EQU    ERMSG+9      OPSTACK FILLED: TOO MANY UNRESOLVED OPERA- ARITH     359
                                 220     ERMSG10  EQU    ERMSG+10     LOGICAL OPERAND USED WITH NON-        TORS ARITH     360
                                        *                                        LOGICAL OPERATORS.              ARITH     361
                                 221     ERMSG11  EQU       ERMSG+11  NO MATCHING RT PARENS IN SUBSCRIPT         ARITH     362
                                 223     ERMSG13  EQU    ERMSG+13     INFORMATIVE: ARRAY NAME NOT SUBSCRIPTED,   ARITH     363
                                                                           FIRST WORD USED.                      ARITH     364
                                 224     ERMSG14  EQU       ERMSG+14  NON-EXT FUN.MAY NOT USE FUN.NAME AS AC.ARG ARITH     365
                                 225     ERMSG15  EQU       ERMSG+15  ARG.NOT FOLLOWED BY , OR )                 ARITH     366
                                 226     ERMSG16  EQU       ERMSG+16  THIS FUNC.REF REQUIRES ARG.LIST            ARITH     367
                                 227     ERMSG60  EQU    151D        CONSTANT EXCEEDS 2**48-1 FOR * OR /         FCC0539   152
                                 253     ERMSG17  EQU       171D      ILLEGAL CALL FORMAT                        ARITH     368
                                 230     ERMSG18  EQU       ERMSG+18  ARITHS FUN-RES-SAVE TB HAS OVERFLOWED      ARITH     369
                                 231     ERMSG19  EQU       ERMSG18+1 FE: THE OPERATOR INDICATED (A .NOT. OR A   ARITH     370
                                        *            RELATIONAL) MUST BE FOLLOWED BY A CONSTANT, ID, (, -, OR +. ARITH     371
                                 233    ERMSG21  EQU        ERMSG+21  BASIC OR INT FUN WITH INCORRECT ARG CNT    ARITH     372
                                 234     ERMSG22  EQU       ERMSG+22  ARITH ARLIST BLOK OVERFLOWED. EXPR TOO LNG ARITH     373
                                 235     ERMSG23  EQU       ERMSG+23  ASA: FEWER SUBSCRIPTS THAN DIMESIONALITY   ARITH     374
                                 236     ERMSG24  EQU       ERMSG+24  ILLEGAL I/O ADDRESS                        ARITH     375
                                 237     ERMSG25  EQU       ERMSG+25  RIGHT PARENS FOLLOWED BY ID, CONST, OR (   ARITH     376
                                 240     ERMSG26  EQU       ERMSG+26  MORE THAN 1 REL OP IN THIS REL EXPR        ARITH     377
                                 241     ERMSG27  EQU    ERMSG+27    INCORRECT SYNTAX FOLLOWS INDICATED ELEMENT  FCC0787   162
                                 242     ERMSG28  EQU       ERMSG+28  TOO MANY SUBSCRIPT EXPRESSIONS             ARITH     381
                                 243     ERMSG29  EQU       ERMSG+29  NO MATCHING RT PARENS IN ARG LIST          ARITH     382
                                 244     ERMSG30  EQU       ERMSG+30  ILLEGAL FORM INVOLVING THE USE OF A COMMA  ARITH     383
                                 245     ERMSG31  EQU       ERMSG+31  LOGCL AND NON-LOGCL OPDS MAY NOT BE MIXED  ARITH     384
                                 246     ERMSG32  EQU       ERMSG+32  DIVISION BY CONSTANT 0                     ARITH     385
                                 247     ERMSG33  EQU       ERMSG+33  CMPX BASE MAY ONLY BE EPONENTIATED BY INTG ARITH     386
                                 250     ERMSG34  EQU       ERMSG+34  USE OF THIS PROGRAM,SUBROUTINE,OR BLOCK-   ARITH     387
                                        *            DATA NAME IN AN EXPRESSION.                                 ARITH     388
                                 251     ERMSG35  EQU       ERMSG34+1 SUBR.NAME REF.BY CALL IS USE OTHERWISE     ARITH     389
                                 252     ERMSG36  EQU       ERMSG35+1 SUBR REF USES DIFFERENT NO.OF ARGS.        ARITH     390
                                        *  ERMSG37 EQU 306B=198                                                  ARITH     391
                                 267     ERMSG38  EQU       183       ASA: HOL CON                               ARITH     392
                                 270     ERMSG39  EQU       ERMSG38+1 I  :HOL CON AND ARITH OR REL OP            ARITH     393
                                 271     ERMSG40  EQU       ERMSG39+1 ASA:NON STD SUB                            ARITH     394
                                 272     ERMSG41  EQU       ERMSG40+1 ASA:MASKING EXPR                           ARITH     395
                                 273     ERMSG42  EQU       ERMSG41+1 ASA:EXPONENT OPD COMBINATION               ARITH     396
                                 274     ERMSG43  EQU       ERMSG42+1 ASA:RELATIONAL AND CPX OPD                 ARITH     397
                                 275     ERMSG44  EQU       ERMSG43+1 ASA:ARITH OR REL OPD COMBINATION           ARITH     398
                                 276     ERMSG45  EQU       ERMSG44+1 ASA:EQUAL SIGN OPD COMBINATION             ARITH     399
                                 277     ERMSG46  EQU       ERMSG45+1 ASA:TWO BRANCH IF                          ARITH     400
                                 300     ERMSG47  EQU       ERMSG46+1 ASA:COMPLEX EXPR IN IF STATE.              ARITH     401
                                 306     ERMSG37  EQU       198       LEFT SIDE OF REPLACEMENT STATE. IS ILLEGAL ARITH     402
                                 313     ERMSG49  EQU       203       FE: NAME NOT LEGAL TYPE FOR ANY EXPRESSION ARITH     403
                                 314     ERMSG50  EQU       ERMSG49+1 CONST OPD FOR REAL OP O.R. OR INDEF.       ARITH     404
                                 106     ERMSG51  EQU       70        THIS STATEMENT CONTAINS A CONSTANT ARITHME ARITH     405
                                        * TIC OPERATION WHICH WILL GIVE AN INDEFINITE OR OUT-OF-RANGE RESULT.    ARITH     406
                                        *ERMSG52  SEE 1ST ENTRY ABOVE                                            ARITH     407
                                 333     ERMSG53  EQU       219       .NOT. MUSNT BE PRECDD BY ID, CON, OR ).    ARITH     408
                                 327     ERMSG54  EQU    215               MASK OUT OF RANGE                     ARITH     409
                                 456     ERMSG56  EQU    302         SHIFT ARG OUT OF BOUNDS                     ARITH     410
                                 222     ERMSG55  EQU    146         INF OR BEF CALLED WITH WRONG TYPE           ARITH     411
                                 454     ERMSG57  EQU    300               THIS PROGRAM UNIT CALLS ITSELF        ARITH     412
                                 457     ERMSG58  EQU    303         ASF REDEFINITION                            ARITH     413
                                 476     ERMSG59  EQU    318         A**B**C IS NON ANSI                         ARITH     414
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    12
        RLIST MACRO OPCODES 
  
                                 502     ERMSG61  EQU    322         EXTERNAL IN ARGLIST MUST BE IN EXT STMT     FCC1716X   21
                                 450     ERMSG.LF EQU    296               BAD ARG TO LOCF                       ARITH     415
                                 232     ERMSG62  EQU    154         REDEFINITION OF FPS IS NON-ANSI             FCC1901    35
                                 510     E328     EQU    328         SAME NAME USED AS FUNCTION AND SUBROUTINE   FCC2307    17
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    13
  
  
                                        *     BSS"S  (NON-COMMON)                                                ARITH     418
                                        *     SEE DECISIONS FILE RE SIZE OF ARLIST                               ARITH     419
                                   0     ARLIST   EQU    0                 SET TO ZERO FOR ADDSUB PURPOSES       ARITH     420
                                                  ENTRY  OPSTAK            NEEDED FOR ADDSUB CODE                ARITH     421
             0  00000000000000000000     SAVDAN   ENTRY.                   VARIABLE DIMENSION ARRAY NAME FLAG    ARITH     422
             1  00000000000000000000     CONST    ENTRY.             ENTRIES FOR CONVERTED CONSTANTS             FCC0787   163
             2                     1              BSS    1                                                       FCC0787   164
             3  00000000000000000000     IDORDL   ENTRY.                   SYMTAB ORD OF ID NAME                 ARITH     423
             4  00000000000000000000     NAMFWA   ENTRY.                   ADDRESS OF WORD A OF SYMTAB ENTRY     ARITH     424
             5  00000000000000000000    EQCOUNT   ENTRY.                   EQUAL SIGN COUNTER CELL               ARITH     425
                                        *                               NAME IN SYMTAB.                          ARITH     426
             6  00000000000000000000     NCA      ENTRY.                   NEW CONSTANT ADDEND                   ARITH     427
             7  00000000000000000000     NCAD     ENTRY.             CA FOR DODEF                                ARITH     428
            10  00000000000000000000     NRFD     ENTRY.             RF FOR DODEF                                ARITH     429
            11  00000000000000000000     OP       ENTRY.                   HOLDS CURRENT ELIST OP                ARITH     430
            12                     1     ARLST    BSS    1            FWA FOR BUFFER FLUSHING                    ARITH     431
                                        *     PARAMS HOLDS PARAMS FOR CURRENTLY FORMINE MACRO.  MAX NO PARAME-   ARITH     432
                                        *  TERS NOW BEING USED IS 6 + 4 SAFETY BUFFER.                           ARITH     433
            13                    16    PARAMS    BSS    10+4                                                    ARITH     434
            31                     1     RL1      BSSZ   1                                                       ARITH     435
            32                     1     RL2      BSS    1  ARLIST). (  11   11 LAST           11     11  11     ARITH     436
            33                     1     SMACD    BSS    1    11  ).  SAVES MACRO CODE DURING MOP.               ARITH     437
            34                     1     SVRL2    BSS       1         SAVE RL2                                   ARITH     438
            35                     2     IDORDLTS BSS    2                 HOLDS ORDINAL FOR EQUIV VARIABLE      ARITH     439
            37                     1     CRNTOP   BSS    1                 CURRENT OPERATOR                      ARITH     440
            40                   105     FRLW     BSSZ      MXARGS+6  PTS TO 1ST ARLIST WD OF FUNC SEQ           ARITH     441
                                  41 +   FNAD     EQU       FRLW+1    FUN.ADR.IN SYMTAB                          ARITH     442
                                  42 +   ACNT     EQU       FNAD+1    ARG.CNT=NO.OF ARGS SCANNED                 ARITH     443
                                                  ENTRY  STAPLC                                                  ARITH     444
                                  43 +   STAPLC   EQU    ACNT+1            STAPL CHAIN POINTER                   ARITH     445
                                  44 +   SSFRSTB  EQU    STAPLC+1          SAVED SFRSTB                          ARITH     446
                                  45 +   RNTBC    EQU       SSFRSTB+1                                            ARITH     447
                                  46 +   RNTB     EQU       RNTBC+1   R-NAME TBL.HOLDS NAMES OF RESULT REGS.HOL- ARITH     448
                                        *     -DING THE ARGUMENTS FOR INTRINSIC FUNCS.                           ARITH     449
                                        *     TWO WORDS FOR DBL, CPX ARGS                                        ARITH     450
                                        *     FORMAT OF FRSTB ENTRIES: B58=1 IF DBL LENGTH SAVE                  ARITH     451
                                        *                              B33-16=TEMP STO ORD (STORD)               ARITH     452
                                        *                              B15-0 =NAME OF RESULT SAVED               ARITH     453
           145                   132     FRSTB    BSS       MXFRSTB   FUNC RESULTS SAVED TBL (EXTERNALS)         ARITH     454
           277                     1     SSSFRSTB BSS    1           SAVE SSFRSTB                                FCC0623     8
           300                     1     FRN      BSS       1                                                    ARITH     456
           301                     1     FNTYP    BSS       1         FUN.TYPE                                   ARITH     457
           302                    10     TS1      BSS       3+5       LEVEL A TEMP STO. USED BY NON-SUBROUTINES  ARITH     458
           312                    10     LBTS     BSS       3+5       LEVEL B. USED BY 1ST LEVEL SUBROUTINES.    ARITH     459
           322                     1     OPDTYP   BSS       1         OPERAND TYPE. NEEDED FOR RELATIONAL OPS.   ARITH     460
           323                     1     TYPEWD   BSS    1            HOLDS TYPE OF RESULT CODE                  ARITH     461
           324                     1     CA       BSS    1            CONSTANT ADDEND FOR A SUBSCRIPT            ARITH     462
           325                     2     NAME     BSS    2            THE SYMTAB ENTRY FOR THIS NAME             ARITH     463
           327                     1     DIMINF   BSSZ   1                 DIMENSION INFO FOR ARRAY              ARITH     464
           330                     1     ARORD    BSSZ   1                 ORDINAL OF ARRAY                      ARITH     465
           331                     1     SDIMIN   BSS    1                                                       ARITH     466
           332  00000000000000000000     TYADR    DATA   0                 POINTER TO ARGUMENT TYPES WORD        ARITH     467
           333                     1     SARORD   BSS    1                                                       ARITH     468
           334                     1     SPARLEV  BSS    1           SUBSCRIPT-PAREN LEVEL                       FCC0394     5
           335                     1    SAVELEFT  BSS    1               SYMBOL TABLE ORDINAL OF VARIABLE ON     ARITH     469
                                                                           THE LEFT-HAND SIDE OF A REPLACEMENT   ARITH     470
                                                                           STATEMENT.                            ARITH     471
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    14
  
  
           336                     1     EXPFNE   BSS       1         HOLDS THE NAME OF THE CURRENT EXPONENT FUN ARITH     472
           337                     1     EXRL1    BSS       1         HOLDS RL1 AFTER ** POPPED                  ARITH     473
           340                     1     EXRL2    BSS       1               RL2                                  ARITH     474
           341                     1     VCA      BSS       1                                                    ARITH     475
           342                     1     MCOPDA   BSS       1         MODE-CHANGE-OPERAND ADDRESS (MODCH)        ARITH     476
           343                     1     MCTYP    BSS       1         MODE-CHANGE TYPE                           ARITH     477
           344                     2     MCHTS    BSS       2         MODCH TEMP.STO.                            ARITH     478
           346                     2     FMADR    BSS       2         FINAL-MACRO ADR                            ARITH     479
           350                     1     RNCNT    BSS       1                                                    ARITH     480
           351                     1     EXPRIA   BSS       1         EXPRESSION RESULT INSTRUCTION ADDRESS.     ARITH     481
           352                     1     ARN      BSS       1                                                    ARITH     482
           353                     1     EXPCON   BSS    1           TEMP CELL USED IN EXPON PROCESSING          ARITH     483
           354                     1     FFRTSTS  BSS       1         FFRTS T.S.(SAVES NARN)                     ARITH     484
           355                    10     ARGP1TS  BSS       6+2       ARP1RT TEMP STO                            ARITH     485
           365                     1     STAPL    BSS    1                 TEMPORARY FOR SAVING STAPLC           ARITH     486
           366                     1     EXPSTB   BSS       1                                                    ARITH     487
           367                     1     EXPNSF   BSS       1         HOLDS SFRSTB AT START OF ** ARG LIST       ARITH     488
           370                     1     NSFR     BSS       1         <0 IF DOESNT HOLD SFRSTB AT START OF BASE- ARITH     489
           371                     1     RNFIB    BSS       1         R NAME OF 1ST INSTR IN START OF BASE OF  - ARITH     490
           372                     1     MACDES   BSS    1           HOLDS SHIFT/MASK MACRO DESCRIPTOR           ARITH     491
                                        *                                   EXTERNAL **.                         ARITH     492
                                        *                                                            OF **.      ARITH     493
                                                  USE    OPSTAK       ENSURE THAT VFD PRECEDES BLOCK             ARITH     494
          7621  20040000000000000000     OPSTAK   VFD    12/2004B,48/0          EOS OPERATOR                     ARITH     495
                                                  USE    *                                                       ARITH     496
                                                  RMT                                                            ARITH     497
                                                  USE    OPSTAK                                                  ARITH     498
                                                  BSSZ   OPSTAK+MXOSE-*    ALLOCATE REMAINDER OF OPSTAK SPACE    ARITH     499
                                                  USE    *                                                       ARITH     500
                                                  RMT                                                            ARITH     501
                                        *     BSSZ"S                                                             ARITH     502
           373                     1     EQFLG    BSSZ   1            =0 IF NO =SIGN YET                         ARITH     504
           374                     1     ROFG     BSSZ      1         REVERSE OPD.FLG.IS NEGATIVE IF RL,S RVRSD  ARITH     505
           375                     1     LEFRN    BSSZ      1         =LAST EXTERNAL FUNC RESULT NAME, OK ZERO - ARITH     506
                                        *     - IF NONE.  B58=1 IF DBL LENGTH RESULT.                            ARITH     507
           376                     1     SFRSTB   BSSZ      1         SIZE OF FRSTB                              ARITH     508
           377                     1     OSPTR    BSSZ      1         OPSTAK POINTER=NO.OF WDS IN OPSTAK         ARITH     509
           400                     1     CC       BSSZ   1            COMMA COUNT                                ARITH     510
           401                     1     IXFNFG   BSSZ      1         IXFN-ROUTINE FLAG=0 IF NOT IN IXFN MODE    ARITH     511
           402                     1     ITFFG    BSSZ      1                                                    ARITH     512
           403                     1     RNMFG    BSSZ      1         =0 IF THIS INTR FUN MACRO ISNT RNM-OP TYPE ARITH     513
           404                     1     EQPO5F   BSSZ      1         FLAG TO AVOID MORE  THAN 1 XMIT FOR =,S    ARITH     514
           405                     1     OCTHO    BSSZ   1           =0 IF A REPLACED ELEMENT IS NOT OF O OR H M ARITH     515
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    15
        MACRO DESCRIPTOR WORDS
  
           406  21420002000100010000    SETMAC    ARMAC  SETMC,1,1,0       SET RI=IN                             ARITH     517
           407  21310003000200030001    DLMAC     ARMAC  DLMACO,2,3,1      DOUBLE LOAD MACRO                     ARITH     518
           410  21460001000000020000    DZRMD     ARMAC  MZZMC,0,2,0                                             ARITH     519
           411  21450001000000010000    ZRMD      ARMAC  MZMC,0,1,0        FMA P1,0      (FORM MASK OF 0)        ARITH     520
           412  21470003000100020001    SDLMD     ARMAC  SDLMC,1,2,1                                             ARITH     521
           413  21500001000000010000    MZMD      ARMAC  MIZMC,0,1,0       FMA P1,60  (FORM MASK OF 60, -0)      ARITH     522
           414  21330003000100020001    SLDMAC    ARMAC  SLMACO,1,2,1      SINGLE LOAD MACRO                     ARITH     523
           415  21220002000100000001     RJ60MD   ARMAC  RJ60MC,1,0,1      60-BIT RJ MACRO, NO APLIST            ARITH     524
  
                                        *              DEFINITION/REGISTER STORE MACROS                        * ARITH     526
  
           416  21110001000000010000    DEFMD     ARMAC  DEFMC+0,0,1,0     DEFINE X1=RI                          ARITH     528
           417  21120001000000010000              ARMAC  DEFMC+1,0,1,0     DEFINE X3=RI                          ARITH     529
           420  21130001000000010000              ARMAC  DEFMC+2,0,1,0     DEFINE X2=RI                          ARITH     530
           421  21140001000000010000              ARMAC  DEFMC+3,0,1,0     DEFINE X4=RI                          ARITH     531
           422  21150001000000010000              ARMAC  DEFMC+4,0,1,0     REGISTER STORE X1=P1 (NO TRANSMIT)    ARITH     532
           423  21160001000000010000              ARMAC  DEFMC+5,0,1,0     REGISTER STORE X3=P1 (NO TRANSMIT)    ARITH     533
           424  21170001000000010000              ARMAC  DEFMC+6,0,1,0     REGISTER STORE X2=P1 (NO TRANSMIT)    ARITH     534
           425  21200001000000010000              ARMAC  DEFMC+7,0,1,0     REGISTER STORE X4=P1 (NO TRANSMIT)    ARITH     535
           426  21250001000000010000    DFRMD     ARMAC  DFRMC+0,0,1,0     DEFINE X6=RI                          ARITH     536
           427  21260001000000010000              ARMAC  DFRMC+1,0,1,0     DEFINE X7=RI                          ARITH     537
  
           430  21350001000000020000    XMIT      ARMAC  XMITOP+0,0,2,0  SINGLE PRECISION TRANSMIT               ARITH     539
           431  21360002000000040000              ARMAC  XMITOP+1,0,4,0  DOUBLE PRECISION TRANSMIT               ARITH     540
  
           432  21240002000200000002     GEFMD    ARMAC  GEFMC,2,0,2       GENERAL EXTERNAL FUNCTION MACRO       ARITH     542
                                                                           DESCRIPTOR ('GEFMD' PARAMETERS:       ARITH     543
                                                                           'IH' OF FUNCTION, 'IH' OF APLIST)     ARITH     544
  
           433  21210001000000000001    BEFMD     ARMAC  BEFMC,0,0,1       BASIC EXTERNAL FUNCTION MACRO         ARITH     546
                                                                                                                 ARITH     547
           434  20010001000100000000     APLMD    ARMAC  APLMC,1,0,0 APLIST MACRO DESCRIPTOR                     ARITH     548
  
           435  21270003000100010001    TSMAC     ARMAC  TSMACC,1,1,1    TEMPORARY STORE MACRO                   ARITH     550
                                                                                                                 ARITH     551
           436  20100002000200020000     EXPIN    ARMAC  M.EXM,2,2,0       INLINE EXPONENTIAL EVALUATION MACRO   ARITH     552
                                                                                                                 ARITH     553
                                        *                                                                        ARITH     554
                                        *         OTHER CONSTANT DATA                                            ARITH     555
           437  0400001066 +             JNEXTE   EQ        NEXTE                                                ARITH     556
                                        *                                                                        ARITH     557
                                        *     OPSTACK CODES:                                                     ARITH     558
                                        *                                                                        ARITH     559
           440  20220000000000000007     MLTEOP   VFD       2/1,10/MLTOP,48/7   *                                ARITH     560
           441  20320000000000000006     UMIOP    VFD    2/1,10/UMOP,48/6       U-                               ARITH     561
           442  20230000000000000007     INTEDVD  VFD       2/1,10/DVDORD,48/7  INT DVD FOR =* HEIRARCHY         ARITH     562
           443  20350000000000000011     MLTDOP   VFD    2/1,10/MLTSOP,48/9     */                               ARITH     563
           444  20260000000000000000     LPSUB    VFD    2/1,10/22,48/0         (S                               ARITH     564
           445  20250000000000000000     ARGLP    VFD       2/1,10/21,48/0      (A                               ARITH     565
           446  20270000000000000001     CMASUB   VFD    2/1,10/23,48/1,2/1,10/24,48/1    ,S1 AND ,S2            ARITH     566
           447  20300000000000000001
           450  20310000000000000001     ARGCMA   VFD    2/1,10/25,48/1         ,A                               ARITH     567
           451  20330000000000000006     RMIOP    VFD       2/1,10/RMINOC,48/6                                   ARITH     568
           452  20400000000000000000     SUBRLP   VFD       2/1,10/32,48/0  (SUBR ARG LIST                       ARITH     569
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    16
        MACRO DESCRIPTOR WORDS
  
                                        ***                                                                      ARITH     571
                                        *         XPNMT:HOLDS THE NAMES OF THE EXPONENT FUNCTIONS FOR CALL BY    ARITH     572
                                        *     NAME IN ORDER OF LOW BASE FIRST, THEN LOW POWER FIRST.             ARITH     573
                                        *         CALL BY VALUE NAME IS OBTAINED BY ADDING -.- TO END OF NAME.   ARITH     574
                                        *     THIS IS DONE BY THE END PROC FOR ALL NAMES IN SYMTAB WITH BASIC    ARITH     575
                                        *     EXTERNAL FLAG.                                                     ARITH     576
                                        *     AN ENTRY WITH B48 NON-ZERO IS A NON-ASA COMBINATION.               ARITH     577
                                        *                                                                        ARITH     578
                                                                                                                 ARITH     579
                                   2     TYPEXT   EQU    P.TYP-P.EXT                                             ARITH     580
                                  10     EXTARG   EQU    P.EXT-P.FARG      WORD B BITS SET FOR EXP FUN           ARITH     581
           453  61004000000000000000     WB.EXP   VFD    L.TYP/T.CGS,TYPEXT/1,EXTARG/2,P.FARG/0                  ARITH     582
                                                                                                                 ARITH     583
           454  04001124171257555555     XPNMT    EXPON  INTEGER,ANSI,I**J                                       ARITH     584
           455  10011124173057555555              EXPON  REAL,NONANSI,I**X                                       ARITH     585
           456  14011124170457555555              EXPON  DOUBLE,NONANSI,I**D                                     ARITH     586
           457  20011124173257555555              EXPON  COMPLEX,NONANSI,I**Z                                    ARITH     587
           460  10003024171157555555              EXPON  REAL,ANSI,X**I                                          ARITH     588
           461  10003024173157555555              EXPON  REAL,ANSI,X**Y                                          ARITH     589
           462  14003024170457555555              EXPON  DOUBLE,ANSI,X**D                                        ARITH     590
           463  20013024173257555555              EXPON  COMPLEX,NONANSI,X**Z                                    ARITH     591
           464  14000424171157555555              EXPON  DOUBLE,ANSI,D**I                                        ARITH     592
           465  14000424173057555555              EXPON  DOUBLE,ANSI,D**X                                        ARITH     593
           466  14000424170457555555              EXPON  DOUBLE,ANSI,D**D                                        ARITH     594
           467  20010424173257555555              EXPON  COMPLEX,NONANSI,D**Z                                    ARITH     595
           470  20003224171157555555              EXPON  COMPLEX,ANSI,Z**I                                       ARITH     596
           471  00000000000000000000              EXPON  COMPLEX,ILLEGAL,C**R                                    ARITH     597
           472  00000000000000000000              EXPON  COMPLEX,ILLEGAL,C**D                                    ARITH     598
           473  00000000000000000000              EXPON  COMPLEX,ILLEGAL,C**C                                    ARITH     599
                                        *     END OF XPNMT (ALWAYS 16 WDS LONG)                                  ARITH     600
                                        *                                                                        ARITH     601
           474  20460002440000000212     ROUNDTBL ROUND  -,MAC+27,RSUB     REAL SUBTRACT                         ARITH     602
           475  20460002450000000215              ROUND  -,MAC+30,CRSUB    COMPLEX SUBTRACT                      ARITH     603
           476  20450002460000000216              ROUND  +,MAC+31,RADD     REALL ADD                             ARITH     604
           477  20450002470000000221              ROUND  +,MAC+34,CRADD    COMPLEX ADD                           ARITH     605
           500  20470002500000000222              ROUND  *,MAC+35,RMLT     REAL MULTIPLY                         ARITH     606
           501  20470002510000000225              ROUND  *,MAC+38,CRMLT    COMPLEX MULTIPLY                      ARITH     607
           502  20500002520000000226              ROUND  /,MAC+39,RDIV     REAL DIVIDE                           ARITH     608
           503  20500002530000000231              ROUND  /,MAC+42,CRDIV    COMPLEX DIVIDE                        ARITH     609
           504  20460002540000000234              ROUND  -,MAC+45,RRSUB    REAL REVERSE SUBTRACT                 ARITH     610
           505  20460002550000000237              ROUND  -,MAC+48,CRRSUB   COMPLEX REVERSE SUBTRACT              ARITH     611
           506  20500002560000000240              ROUND  /,MAC+49,RRDIV    REAL REVERSE DIVIDE                   ARITH     612
           507  20500002570000000243              ROUND  /,MAC+52,CRRDIV   COMPLEX REVERSE DIVIDE                ARITH     613
           510  77777777777777777776              DATA   -1                END OF TABLE                          ARITH     614
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    17
        INTRINSIC FUNCTION TABLE AND MACROS 
  
                                        **        MAX/MIN INTRINSIC FUNCTION MACRO DESCRIPTORS                   ARITH     616
                                                                                                                 ARITH     617
           511  23350001000000030000    MXINT     ARMAC  MXMNMC+0,0,3,0                                          ARITH     618
           512  23360001000000030000    MXREL     ARMAC  MXMNMC+1,0,3,0                                          ARITH     619
           513  23370002000000060000    MXDBL     ARMAC  MXMNMC+2,0,6,0                                          ARITH     620
           514  23400001000000030000    MNINT     ARMAC  MXMNMC+3,0,3,0                                          ARITH     621
           515  23410001000000030000    MNREL     ARMAC  MXMNMC+4,0,3,0                                          ARITH     622
           516  23420002000000060000    MNDBL     ARMAC  MXMNMC+5,0,6,0                                          ARITH     623
  
           517  21520001000000020000    INTREL    ARMAC  MCHMCB+0,0,2,0                                          ARITH     625
           520  21540001000000020000    RELINT    ARMAC  MCHMCB+2,0,2,0                                          ARITH     626
           521  77777777777777777776    NCHSGL    DATA   -1                                                      ARITH     627
                                 521 +  NCHDBL    EQU    NCHSGL                                                  ARITH     628
                                                                                                                 ARITH     629
                                        *         ARLIST DESCRIPTORS FOR SOME SPECIAL INLINE FUNCTIONS           ARITH     630
                                                                                                                 ARITH     631
                                   0     MD.LOCF  EQU    0                 NO MACRO DESCRIPTOR                   ARITH     632
           522  22670001000000030000     MD.MOD   ARMAC  M.MOD,0,3,0                                             ARITH     633
           523  22730002000100020000     MD.MODP2 ARMAC  M.MODP2,1,2,0                                           ARITH     634
           524  23050001000000030000     MD.SHIFT ARMAC  M.SHIFT,0,3,0     VARIABLE SHIFT                        ARITH     635
           525  23100001000000020000     MD.COMPL ARMAC  M.COMPL,0,2,0     BOOLEAN COMPLEMENT                    ARITH     636
           526  23110001000000020000     MD.MASK  ARMAC  M.MASK,0,2,0      VARIABLE MASK                         ARITH     637
           527  23120002000100010000     MD.MASKC ARMAC  M.MASKC,1,1,0     CONSTANT MASK                         ARITH     638
                                                                                                                 ARITH     639
           530  23130002000100020000     MD.CSFT  ARMAC  M.CSHFT,1,2,0     CONSTANT LEFT SHIFT                   ARITH     640
           531  23140002000100020000              ARMAC  M.CSHFT+1,1,2,0     CONSTANT RIGHT SHIFT                ARITH     641
           532  23230002000000010001     MD.RANF  ARMAC  M.RANF,0,1,1      RANF MACRO DESCRIPTOR                 ARITH     642
                                                                                                                 ARITH     643
                                        *         VARIABLE ARG INTRINSIC FUNCTION MACRO DESCRIPTORS              ARITH     644
                                                                                                                 ARITH     645
           533  23060001000000030000     MD.AND   ARMAC  M.AND,0,3,0       BOOLEAN AND                           ARITH     646
           534  23070001000000030000     MD.OR    ARMAC  M.OR,0,3,0        BOOLEAN OR                            ARITH     647
           535  23160001000000030000     MD.XOR   ARMAC  M.XOR,0,3,0       EXCLUSIVE OR                          ARITH     648
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    18
        INTRINSIC FUNCTION TABLE AND MACROS 
  
                                        ***                                                                      ARITH     650
                                        *         INTFTB - INTRINSIC FUNCTION TABLE                              ARITH     651
                                        *                                                                        ARITH     652
                                        *         FORMAT:                                                        ARITH     653
                                        *                WORDS 1 AND 2 - WORDS A AND B OF SYMBOL TABLE ENTRY     ARITH     654
                                        *                WORD 3 -- ARGUMENT TYPE WORD (TYP N = ACTUAL TYPE+1 ) * ARITH     655
                                        *                   VFD    6/TYP1,6/TYP2,...,6/TYP10                   * ARITH     656
                                        *                WORD 4 - "ARLIST" MACOUT DESCRIPTOR OR FLAG AND         ARITH     657
                                        *                POINTER TO SUCH IF FUNCTION IS SPECIAL CASED IN ARGP1RT ARITH     658
                                        *                                                                        ARITH     659
  
           536                          INTFTB    BSS    0               BEGINNING OF INTRINSIC TABLE            ARITH     661
           536  01022355555555100000    ABS       INTRIN REAL,(REAL),IFMCB+00                                    ARITH     662
           542  11010223555555100000    IABS      INTRIN INTEGER,(INTEGER),IFMCB+00                              ARITH     663
           546  04010223555555100000    DABS      INTRIN DOUBLE,(DOUBLE),IFMCB+02                                ARITH     664
           552  01111624555555100000    AINT      INTRIN REAL,(REAL),IFMCB+03                                    ARITH     665
           556  11162455555555100000    INT       INTRIN INTEGER,(REAL),IFMCB+04                                 ARITH     666
           562  11041116245555100000    IDINT     INTRIN INTEGER,(DOUBLE),IFMCB+05                               ARITH     667
           566  01151704555555100000    AMOD      INTRIN REAL,(REAL,REAL),IFMCB+06                               ARITH     668
           572  15170455555555100000    MOD       INTRIN INTEGER,(INTEGER,INTEGER)                               ARITH     669
           576  06141701245555100000    FLOAT     INTRIN REAL,(INTEGER),IFMCB+08                                 ARITH     670
           602  11061130555555100000    IFIX      INTRIN INTEGER,(REAL),IFMCB+09                                 ARITH     671
           606  23110716555555100000    SIGN      INTRIN REAL,(REAL,REAL),IFMCB+10                               ARITH     672
           612  11231107165555100000    ISIGN     INTRIN INTEGER,(INTEGER,INTEGER),IFMCB+10                      ARITH     673
           616  04231107165555100000    DSIGN     INTRIN DOUBLE,(DOUBLE,DOUBLE),IFMCB+12                         ARITH     674
           622  04111555555555100000    DIM       INTRIN REAL,(REAL,REAL),IFMCB+13                               ARITH     675
           626  11041115555555100000    IDIM      INTRIN INTEGER,(INTEGER,INTEGER),IFMCB+14                      ARITH     676
           632  23160714555555100000    SNGL      INTRIN REAL,(DOUBLE),IFMCB+15,RENAME                           ARITH     677
           636  22050114555555100000    REAL      INTRIN REAL,(COMPLEX),IFMCB+16,RENAME                          ARITH     678
           642  01111501075555100000    AIMAG     INTRIN REAL,(COMPLEX),IFMCB+17,RENAME                          ARITH     679
           646  04021405555555100000    DBLE      INTRIN DOUBLE,(REAL),IFMCB+18,RENAME                           ARITH     680
           652  03152014305555100000    CMPLX     INTRIN COMPLEX,(REAL,REAL),IFMCB+19,RENAME                     ARITH     681
           656  03171612075555100000    CONJG     INTRIN COMPLEX,(COMPLEX),IFMCB+20,RENAME                       ARITH     682
           662  01160455555555100000    AND       INTRIN OCTAL,(),MD.AND,NCHSGL,,ANY                             ARITH     683
           666  17225555555555100000    OR        INTRIN OCTAL,(),MD.OR,NCHSGL,,ANY                              ARITH     684
           672  30172255555555100000    XOR       INTRIN OCTAL,(),MD.XOR,NCHSGL,,ANY                             ARITH     685
           676  03171520145555100000    COMPL     INTRIN OCTAL,(ANY)                                             ARITH     686
           702  01150130335555100000    AMAX0     INTRIN REAL,(),MXINT,INTREL,,INTEGER                           ARITH     687
           706  01150130345555100000    AMAX1     INTRIN REAL,(),MXREL,NCHSGL,,REAL                              ARITH     688
           712  15013033555555100000    MAX0      INTRIN INTEGER,(),MXINT,NCHSGL,,INTEGER                        ARITH     689
           716  15013034555555100000    MAX1      INTRIN INTEGER,(),MXREL,RELINT,,REAL                           ARITH     690
           722  04150130345555100000    DMAX1     INTRIN DOUBLE,(),MXDBL,NCHDBL,,DOUBLE                          ARITH     691
           726  01151116335555100000    AMIN0     INTRIN REAL,(),MNINT,INTREL,,INTEGER                           ARITH     692
           732  01151116345555100000    AMIN1     INTRIN REAL,(),MNREL,NCHSGL,,REAL                              ARITH     693
           736  15111633555555100000    MIN0      INTRIN INTEGER,(),MNINT,NCHSGL,,INTEGER                        ARITH     694
           742  15111634555555100000    MIN1      INTRIN INTEGER,(),MNREL,RELINT,,REAL                           ARITH     695
           746  04151116345555100000    DMIN1     INTRIN DOUBLE,(),MNDBL,NCHDBL,,DOUBLE                          ARITH     696
           752  23101106245555100000    SHIFT     INTRIN OCTAL,(ANY,INTEGER)                                     ARITH     697
           756  15012313555555100000    MASK      INTRIN OCTAL,(INTEGER)                                         ARITH     698
           762  14170306555555100000    LOCF      INTRIN INTEGER,(ANY)                                           ARITH     699
           766  22011606555555100000    RANF      INTRIN REAL,(ANY)                                              ARITH     700
                                 772 +   L.INFT   EQU    *                 LWA+1 OF BASIC INTRINSIC FUNCTION TB  ARITH     701
                                                                                                                 ARITH     702
                                        *         START OF EXTENDED INTRINSIC FUNCTION TABLE                     ARITH     703
                                        *         THE BELOW FUNCTIONS ARE COMPILED INLINE ONLY WHEN              ARITH     704
                                        *         THE "SPP" OPTION IS SELECTED ON THE CONTROL CARD               ARITH     705
                                                                                                                 ARITH     706
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    19
        INTRINSIC FUNCTION TABLE AND MACROS 
  
           772  11062410051655100000    IFTHEN    INTRIN OCTAL,(LOGICAL,ANYSNGL,ANYSNGL),M.IFTHEN                ARITH     707
           776  03172516245555100000    COUNT     INTRIN INTEGER,(ANYSNGL),M.COUNT                               ARITH     708
          1002  23052430555555100000     SETX     INTRIN INTEGER,(ANYSNGL),M.SXKXJ                               ARITH     709
          1006  25162005302055100000    UNPEXP    INTRIN INTEGER,(ANYSNGL),M.UPE                                 ARITH     710
          1012  25162003170555100000    UNPCOE    INTRIN OCTAL,(ANYSNGL),M.UPC                                   ARITH     711
          1016  20010313555555100000    PACK      INTRIN OCTAL,(ANYSNGL,ANYSNGL),M.PACK                          ARITH     712
          1022  04152514245555100000    DMULT     INTRIN OCTAL,(ANYSNGL,ANYSNGL),M.DMULT                         ARITH     713
          1026  16172215555555100000    NORM      INTRIN REAL,(ANYSNGL),M.NORM                                   ARITH     714
          1032  16172215035555100000    NORMC     INTRIN OCTAL,(ANYSNGL),M.NORMC                                 ARITH     715
          1036  06010404555555100000    FADD      INTRIN REAL,(REAL,REAL),M.FADD                                 ARITH     716
          1042  22010404555555100000    RADD      INTRIN REAL,(REAL,REAL),M.RADD                                 ARITH     717
          1046  06232502555555100000    FSUB      INTRIN REAL,(REAL,REAL),M.FSUB                                 ARITH     718
          1052  22232502555555100000    RSUB      INTRIN REAL,(REAL,REAL),M.RSUB                                 ARITH     719
                                         #T       IFNE   TEST,0                                                  FCCT003    22
                                         SHSNGL   INTRIN REAL,(DOUBLE),IFMCB+17                                  FCCT003    23
                                         DBLEE    INTRIN DOUBLE,(REAL,REAL),IFMCB+19                             FCCT003    24
                                         FMULT    INTRIN REAL,(REAL,REAL),M.FMULT                                FCCT003    25
                                         RMULT    INTRIN REAL,(REAL,REAL),M.RMULT                                FCCT003    26
                                         FDIV     INTRIN REAL,(REAL,REAL),M.FDIV                                 FCCT003    27
                                         DADD     INTRIN REAL,(REAL,REAL),M.DADD                                 FCCT003    28
                                         DSUB     INTRIN REAL,(REAL,REAL),M.DSUB                                 FCCT003    29
                                         RNORM    INTRIN REAL,(REAL),M.RNORM                                     FCCT003    30
                                         DSUMH    INTRIN DOUBLE,(DOUBLE,DOUBLE),M.DSUMH                          FCCT003    31
                                         DDIFH    INTRIN DOUBLE,(DOUBLE,DOUBLE),M.DDIFH                          FCCT003    32
                                         DDIVH    INTRIN DOUBLE,(DOUBLE,DOUBLE),M.DDIVH                          FCCT003    33
                                         DMULH    INTRIN DOUBLE,(DOUBLE,DOUBLE),M.DMULH                          FCCT003    34
                                         BOOL     INTRIN OCTAL,(ANYSNGL),M.BOOL                                  FCCT003    35
                                         #T       ENDIF                                                          FCCT003    36
          1056                     1     L.INFTE  BSSZ   1                 LWA+1 OF EXTENDED INTRINSIC FUNCTION  ARITH     720
                                        *                                  TABLE                                 ARITH     721
  
  
  
          1057  77777777777777777776     STBASE   DATA     -1         <0 OR HOLDS ORDL OF START OF EXPONENT      ARITH     723
                                        *   BASE EVALUATION IN ARLIST.  SEE FILE DESCRIBING STBASE USE.          ARITH     724
          1060  77777777777777777776     FF       DATA   -1           FLIP-FLOF FLG FOR *-OP=-1 IF NOT TO POP    ARITH     725
          1061  00000000000000000000     LASTR    DATA   0            HOLDS ADR OF LAST ARLIST ENTRY             ARITH     726
          1062  00000000000000000001     EMODE    DATA   1            EXPRESSION (TRANSLATION) MODE. INDICATES   ARITH     727
                                        *         THE TYPE OF PART NOW BEING TRANSLATED. =4,2,1 IF IN SUBSCRIPT, ARITH     728
                                        *         ARGUMENT, OR NORMAL MODE.  NEEDED FOR CORRECT TREATMENT OF     ARITH     729
                                        *         COMMAS, AND ARRAY REFERENCES.                                  ARITH     730
  
  
  
                                                  USE       /STSORD/  STATE.TEMP.STO.ORD  (I=1)                  ARITH     732
             0                     1     STSORD   BSS       1        INITIALIZED BY PS1CTL FOR EACH STATEM.      ARITH     733
                                                  USE       /CLNFO/   CALL INFO                                  ARITH     734
             0                     1     SUBFWA   BSS       1         ADDRESS OF SUBR NAME ENTRY IN SYMTAB       ARITH     735
             1                     1     SUBH     BSS       1         H ORDL OF SUBR NAME                        ARITH     736
             2                     1     ARGCNT   BSS       1         NO.OF ARGS IN LIST                         ARITH     737
             3                     1     NARGSF   BSSZ      1         NON ZERO IF NO ARG LIST                    ARITH     738
             4                     1     SUBNAME  BSS       1         NAME OF SUBR IN ELIST FORM. SET BY CALL.   ARITH     739
             5  00000000000000000000     ARLPT    ENTRY. 0                 ARLIST POINTER ( NUMBER OF WORDS )    ARITH     740
                                                  USE       0                                                    ARITH     741
                                                  USE    //                                                      ARITH     742
             0                     1     DEBUG    BSS    1            USED AS DEBUG BASE ADDRESS                 ARITH     743
                                                  USE    *                                                       ARITH     744
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    20
        INTRINSIC FUNCTION TABLE AND MACROS 
  
                                                                                                                 ARITH     745
                                                  ENTRY   DBGEXT                                                 ARITH     746
          1063                           DBGEXT   BSS    0           SET DEBUG EXTERNAL BITS                     ARITH     747
          1063  60                                VFD     4/T.CGS                                                ARITH     748
                                  67              POS     P.EXT+1                                                ARITH     749
                 1000000000000000000              VFD     1/1,*P/0                                               ARITH     750
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    21
         EXTERNALS
  
                                        *     EXTERNAL ROUTINES                                                  ARITH     753
                                                  EXT    O.GCON,FSTEX,VALUE.                                     ARITH     754
                                                  EXT    DOFLAG                                                  ARITH     755
                                                  EXT       ERPRO                                                ARITH     756
                                                  EXT       CBNFLG                                               ARITH     757
                                                  EXT       PH2RETN                                              ARITH     758
                                                  EXT       SYMBOL                                               ARITH     759
                                                  EXT       ASAER                                                ARITH     760
                                                  EXT       CONVERT                                              ARITH     761
                                                  EXT       ASFDEF                                               ARITH     762
                                                  EXT       ASFREF                                               ARITH     763
                                                  EXT       DOCALL                                               ARITH     764
                                                  EXT       DODEF                                                ARITH     765
                                                  EXT       ERPROI                                               ARITH     766
                                                  EXT       DOGOOF                                               ARITH     767
                                                  EXT       IGCALL                                               ARITH     768
                                                  EXT       ST.                                                  ARITH     769
                                                  EXT       FP.                                                  ARITH     770
                                                  EXT       ALLARR                                               ARITH     771
                                                  EXT    ALLCALL                                                 ARITH     772
                                                  EXT       ALLFUNC                                              ARITH     773
                                                  EXT       CON.                                                 ARITH     774
                                                  EXT       TRACEL                                               ARITH     775
                                                  EXT       LABEL.                                               ARITH     776
                                                  EXT       DFLAG                                                ARITH     777
                                                  EXT       D.SAASI                                              ARITH     778
                                                  EXT    BEFTB,L.BEFTB                                           ARITH     779
                                                  EXT       L.IOLST,O.IOLST                                      ARITH     780
                                                                                                                 ARITH     781
                                                  TABLES CON,ARLST                                               ARITH     782
  
  
  
          1064  20000001000000030000    SLBMD     ARMAC  0,0,3,0         SINGLE LOAD TEMPLATE                    ARITH     784
                                                                           'SLBMD' IS USED FOR VARIOUS MACROS    ARITH     785
                                                                           THAT USE UP TO THREE R-PARAMETERS     ARITH     786
                                                                           ONLY.                                 ARITH     787
  
          1065  20000002000000060000    DLBMD     ARMAC  0,0,6,0         DOUBLE LOAD                             ARITH     789
                                                                           'DLBMD' IS THE DOUBLE WORD ANALOGY    ARITH     790
                                                                           OF 'SLBMD'.                           ARITH     791
  
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    22
             N E X T E :  NEXT ELEMENT CONTROL
  
                                        ************************************************************************ ARITH     794
                                        *                                                                      * ARITH     795
                                        *                N E X T E :  NEXT ELEMENT CONTROL                     * ARITH     796
                                        *                                                                      * ARITH     797
                                        *              'NEXTE' BEGINS THE CYCLE OF PROCESSING THE NEXT E-LIST  * ARITH     798
                                        *         ELEMENT.  THE APPROPRIATE PROCESSOR FOR THE NEXT E-LIST      * ARITH     799
                                        *         ELEMENT IS JUMPED TO AFTER THE FOLLOWING INFORMATION HAS     * ARITH     800
                                        *         BEEN SET:                                                    * ARITH     801
                                        *                                                                      * ARITH     802
                                        *                REGISTERS --    B1 = ADDRESS OF THIS E-LIST ELEMENT   * ARITH     803
                                        *                                B2 = OP CODE OF THIS E-LIST ELEMENT   * ARITH     804
                                        *                                B4 = OP CODE OF NEXT E-LIST ELEMENT   * ARITH     805
                                        *                                X1 = THIS E-LIST ELEMENT              * ARITH     806
                                        *                                X2 = NEXT E-LIST ELEMENT              * ARITH     807
                                        *                MEMORY --       'OP'     = THIS E-LIST ELEMENT        * ARITH     808
                                        *                                'EPOINT' = ADDRESS OF NEXT E-LIST     * ARITH     809
                                        *                                           ELEMENT                    * ARITH     810
                                        *                                                                      * ARITH     811
                                        ************************************************************************ ARITH     812
  
          1066  5130000032              NEXTE     SA3    EPOINT                                                  ARITH     814
                          53130                   SA1    X3                                                      ARITH     815
                               10711              BX7    X1                                                      ARITH     816
          1067  26021                             UX0    X1,B2                                                   ARITH     817
                     7263777776                   SX6    X3-1                                                    ARITH     818
                               53260              SA2    X6                                                      ARITH     819
          1070  54630                             SA6    A3                                                      ARITH     820
                     5170000011 +                 SA7    OP                                                      ARITH     821
                               63130              SB1    X3                                                      ARITH     822
          1071  26342                             UX3    X2,B4                                                   ARITH     823
                     76640                        SX6    B4                                                      ARITH     824
                          5160001321 +            SA6    BSAV              SAVE B-FOUR                           ARITH     825
          1072  0222001073 +                      JP     B2+EJTB                                                 ARITH     826
                                                                                                                 FCC1590X    6
          1073                           EJTB     BSS    0                                                       FCC1590X    7
      L      0                                    LOC    0                                                       FCC1590X    8
      L      0  0400001134 +                      EQ        CON       CON                                        FCC1590X    9
      L      1  0400001324 +                      EQ        ID        ID                                         ARITH     828
      L      2  0400004052 +                      EQ        RTPRN     )                                          ARITH     829
      L      3  0400003522 +                      EQ        COMMA     ,                                          ARITH     830
      L      4  0400004214 +                      ZR        CMPARE    EOS (COMPARE OP WITH OS)                   ARITH     831
      L      5  0400004121 +                      EQ        EQSIGN    =                                          ARITH     832
      L      6  0400004104 +                      EQ        LTPRN     (                                          ARITH     833
      L      7  0400002377 +                      EQ        SSERR4    .OR.  (FIRST EXPLICIT OPERATOR)            ARITH     834
      L     10  0400002377 +                      EQ        SSERR4    .AND.                                      ARITH     835
      L     11  0400002365 +                      EQ        SSERR2    .NOT.                                      ARITH     836
      L     12  0400002401 +                      EQ        SSERR5    .LE.                                       ARITH     837
      L     13  0400002401 +                      ZR        SSERR5    .LT.                                       ARITH     838
      L     14  0400002401 +                      ZR        SSERR5    .GE.                                       ARITH     839
      L     15  0400002401 +                      ZR        SSERR5    .GT.                                       ARITH     840
      L     16  0400002401 +                      ZR        SSERR5    .NE.                                       ARITH     841
      L     17  0400002401 +                      ZR        SSERR5    .EQ.                                       ARITH     842
      L     20  0400004154 +                      EQ        MINUS     -                                          ARITH     843
      L     21  0400004210 +                      EQ        PLUS      +                                          ARITH     844
      L     22  0400004047 +                      ZR        MULTOP   *                                           ARITH     845
      L     23  0400004161 +                      ZR        DIVIOP   /                                           ARITH     846
      L     24  0400002412 +                      ZR        SSERR7    **                                         ARITH     847
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    23
             N E X T E :  NEXT ELEMENT CONTROL
  
      L     25  0400004102 +                      ZR        RJWRP     21  ROGER WANGER,S RIGHT PARENS            ARITH     848
          1121                                    LOC    *O                                                      FCC1590X   10
                                        *                                                                        ARITH     849
                                   7     LOWOP    EQU    EL.OR                                                   ARITH     850
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    24
        DEBUG INFORMATION CELLS 
  
                                        ***                                                                      ARITH     853
                                        *         DEBUG INFORMATION WORDS AND TEMPORARIES                        ARITH     854
                                        *                                                                        ARITH     855
                                                  ENTRY  DBGAPL                                                  ARITH     856
          1121                     5     DBGAPL   BSSZ   5                 TABLE TO HOLD ARG LIST INFORMATION    ARITH     857
                                                                                                                 ARITH     858
          1126                     1     RL1TS    BSS    1                 TEMP STORAGE FOR RL1                  ARITH     859
          1127  00000000000000000000     RL2TS    ENTRY. 0                                                       ARITH     860
          1130                     1     LASTRTS  BSS    1                 TEMP STORAGE FOR LASTR                ARITH     861
                                                                                                                 ARITH     862
          1131                     1     FTRFLG   BSS    1                 FUNCTION TRACE FLAG                   ARITH     863
          1132                     1     TRCFLG   BSS    1                 TRACE FLAG FOR IF PROCESSOR           ARITH     864
          1133                     1     WLSTR    BSS    1                 WAS LAST STORE TRACED FLAG            ARITH     865
                                                                                                                 ARITH     866
                                  36     P.FCS    EQU    30                FREQUENCY COUNT                       ARITH     867
                                  11     L.FCS    EQU    9                                                       ARITH     868
                                  33     P.RO     EQU    27                RELATIONAL OPCODE                     ARITH     869
                                   3     L.RO     EQU    3                                                       ARITH     870
                                  36     P.CONST  EQU    30                CONSTANT TYPE, FLAG, ORDINAL          ARITH     871
                                  22     L.CONST  EQU    18                                                      ARITH     872
                                  14     P.LINKI  EQU    12                ORDINAL FIELD FOR LINKED LIST         ARITH     873
                                  15     P.COV    EQU    13                CONSTANT/VARIABLE FLAG BIT            ARITH     874
                                  16     P.GCF    EQU    14                GLOBAL CONSTANT FLAG BIT              ARITH     875
                                  16     L.CORD   EQU    14                CONSTANT TABLE ORDINAL FIELD          ARITH     876
                                  52     P.LINK   EQU    42                ADDRESS FIELD FOR LINKED LIST         ARITH     877
                                  55     P.USED   EQU    45                USED BIT FOR RLIST MACROS             ARITH     878
                                                                                                                 ARITH     879
                                   5     DV.STO   EQU    5B                DEBUG VALUE FOR STORE CHECKING        ARITH     880
                                   7     DV.FUN   EQU    7B                DEBUG VALUE FOR FUNC TRACING          ARITH     881
                                  13     DV.CLL   EQU    13B               DEBUG VALUE FOR CALL TRACING          ARITH     882
                                  11     DV.ARR   EQU    11B               DEBUG VALUE FOR SUBSCRIPT CHECKING    ARITH     883
                                  15     DV.AAS   EQU    15B               DEBUG VALUE FOR SUBSCRIPT AND STORE   ARITH     884
                                                                             CHECKING                            ARITH     885
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    25
        CON - CONSTANT PROCESSING 
  
                                        *     CON IF CONST IN E-LIST                                             ARITH     888
          1134  6120000005               CON      SB2    EL.=                                                    ARITH     889
                          6130000001              SB3    EL.ID                                                   ARITH     890
          1135  0442002364 +                      EQ  B4,B2,SSERR1    IF CON FOLLOWED BY =                       ARITH     891
                          0634002364 +            LE  B4,B3,SSERR1    IF CON FOLOWD BY CON OR NAME               ARITH     892
          1136  6130000006                        SB3    EL.(                                                    ARITH     893
                          0443001376 +            EQ     B4,B3,IDER2       ERROR, CONSTANT FOLLOWED BY (         ARITH     894
          1137  56110                             SA1    B1                                                      ARITH     895
                     6110777776                   SB1      -1                                                    ARITH     896
          1140  0100000000 X                      RJ        CONVERT                                              ARITH     897
          1141  10611                             BX6    X1                                                      ARITH     898
                     10722                        BX7    X2                                                      ARITH     899
                          5160000001 +            SA6       CONST                                                ARITH     900
          1142  5170000002 +                      SA7       CONST+1                                              ARITH     901
                          5110000032              SA1       EPOINT                                               ARITH     902
          1143  6211000001                        SB1    X1+1                                                    ARITH     903
                          56110                   SA1    B1           IS CONST TINT -                            ARITH     904
                               43071              MX0       60-3                                                 ARITH     905
          1144  20117                             LX1       15                                                   ARITH     906
                     15610                        BX6   -X0*X1                                                   ARITH     907
          1145  7236777771               CON4     SX3    X6-T.HOL                                                ARITH     908
                          0313001160 +            NZ     X3,CON4A     IF CONST NOT TYPE HOL                      ARITH     909
          1146  5111777776                        SA1    B1-1                                                    ARITH     910
                          5121000001              SA2    B1+1                                                    ARITH     911
          1147  26022                             UX0    B2,X2             E - 1                                 ARITH     912
                     6130000020                   SB3    EL.MINUS                                                ARITH     913
                               26041              UX0    B4,X1             E + 1                                 ARITH     914
          1150  6150000025                        SB5    EL.S)                                                   ARITH     915
                          0623001156 +            GE  B2,B3,CON4B     IF HOL CONST OPD                           ARITH     916
          1151  0445001153 +                      EQ     B4,B5,CON4D       IF SPECIAL RIGHT PAREN                ARITH     917
                          0643001156 +            GE  B4,B3,CON4B     11 11                                      ARITH     918
          1152  5110000024                        SA1       TYPE                                                 ARITH     919
          1153                           CON4D    BSS    0                                                       ARITH     920
          1153  7221777754                        SX2    X1-19                                                   ARITH     921
                          0302001160 +            ZR     X2,CON4A     IF HOL CON IN CALL STATE                   ARITH     922
          1154  6160000267                        USASDM ERMSG38         HOLERITH CONSTANT OTHER THAN CALL ARG   ARITH     923
          1155  0400001157 +                      ZR        CON4C                                                ARITH     924
          1156  6160000270               CON4B    IDM       ERMSG39   HOL CON OPD                                ARITH     925
          1157  7160000006               CON4C    SX6    T.HOL                                                   ARITH     926
          1160                           CON4A    BSS       0                                                    ARITH     927
          1160  5110000377 +                      SA1    OSPTR                                                   ARITH     928
                          6120000023              SB2    EL.SLASH                                                ARITH     929
          1161  5221007621 +                      SA2    X1+OPSTAK                                               ARITH     930
                          26032                   UX0    B3,X2                                                   ARITH     931
          1162  0523001203 +                      NE     B2,B3,CON2  IF OP BEFORE CONST NOT /                    ARITH     932
                          5110000001 +            SA1    CONST                                                   ARITH     933
          1163  5121777776                        SA2    B1-1                                                    ARITH     934
                          6226777777              SB2    X6-T.LOG                                                ARITH     935
          1164  0420004775 +                      ZR     B2,MOP1     IF LOGICAL CONST, ERROR                     ARITH     936
                          6226777773              SB2    X6-T.CPLX                                               ARITH     937
          1165  0420001167 +                      ZR     B2,CON4E    IF COMPLEX CONST, CANT USE SIMPLE /0 TEST   ARITH     938
                          0301001322 +            ZR     X1,CON7     IF DIVIDE BY CONST ZERO, ERROR              ARITH     939
          1166  0400001203 +                      EQ     CON2                                                    FCC0570     5
          1167                           CON4E    BSS    0                                                       ARITH     940
                                                                                                                 ARITH     941
                                         XYZ      IFEQ   NOINVERT,0                                              ARITH     942
                                                                                                                 ARITH     943
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    26
        CON - CONSTANT PROCESSING 
  
                                        *         ONLY COMPLEX CONSTANT DIVISORS CAN BE INVERTED AT THIS POINT.  FCC0570     6
                                        *         / CHANGED TO *. OTHER TYPES DEPENDS ON MODE OF OPERATION.      FCC0570     7
          1167  26042                             UX0    B4,X2                                                   ARITH     946
                     6150000024                   SB5    EL.DSTR                                                 ARITH     948
          1170  0445001203 +                      EQ     B4,B5,CON2  IF ** AFTER CONST                           ARITH     949
                                                                                                                 ARITH     956
                                        *     CON4F IF /COMPLEX CONST                                            ARITH     957
                                        *     (C+DI)**-1=(C/(C**2+D**2)+(-D/C**2+D**2)I)                         ARITH     958
                                                                                                                 ARITH     959
                                        *CON4F    BSS    0                                                       ARITH     960
                          5120000002 +            SA2    CONST+1                                                 ARITH     961
          1171  40311                             FX3    X1*X1               C**2                                ARITH     962
                     40422                        FX4    X2*X2               D**2                                ARITH     963
                          30534                   FX5    X3+X4                                                   ARITH     964
                               24605              NX6 B0,X5                  C**2+D**2                           ARITH     965
          1172  0306001322 +                      ZR     X6,CON7      IF DIVISION BY ZERO                        ARITH     966
                          44116                   FX1    X1/X6               C/(C**2+D**2)                       ARITH     967
                               43000              MX0       0                                                    ARITH     968
          1173  31302                             FX3    X0-X2              -D                                   ARITH     969
                     44236                        FX2    X3/X6              -D/(C**2+D**2)                       ARITH     970
                          6110000002              SB1       2                                                    ARITH     971
          1174  0100000000 X                      RJ        CONVERT   B1 NEED NOT BE RESET TO EPOINT+1           ARITH     972
          1175  7160000004                        SX6    T.CPLX                                                  ARITH     973
                          0100006165 +            RJ     CFETCH                                                  FCC0570     8
          1176  5110000440 +                      SA1       MLTEOP    CHANGE OM TO *                             ARITH     995
                          5120000377 +            SA2       OSPTR                                                ARITH     996
          1177  5232007621 +                      SA3    X2+OPSTAK                                               ARITH     997
                          43636                   MX6       30                                                   ARITH     998
                               20660              LX6       18+30                                                ARITH     999
          1200  11363                             BX3    X6*X3        SAVE ALL OF OM EXCEPT OP CODE AND HEIRCHY  ARITH    1000
                     12631                        BX6    X3+X1                                                   ARITH    1001
                          5130001060 +            SA3       FF        INVERT FF                                  ARITH    1002
          1201  5262007621 +                      SA6    X2+OPSTAK                                               ARITH    1003
                          14733                   BX7    -X3                                                     ARITH    1004
          1202  5170001060 +                      SA7       FF                                                   ARITH    1005
                          0400001066 +            ZR        NEXTE                                                ARITH    1006
                                        *                                                                        ARITH    1007
                                        *     CON2 IF CONST IN E NOT PRECEDED BY /.  ENTER WITH TYPE IN X6.      ARITH    1008
                                         XYZ      ENDIF                                                          ARITH    1009
          1203  5160000323 +             CON2     SA6       TYPEWD                                               ARITH    1010
                          5110001062 +            SA1       EMODE     SEE IF CONST IS STAND ALONE ARG            ARITH    1011
          1204  7221777775                        SX2    X1-2                                                    ARITH    1012
                          0312001223 +            NZ     X2,CON2F     IF NOT IN ARG MODE                         ARITH    1013
          1205  5110000032                        SA1       EPOINT                                               ARITH    1014
                          53210                   SA2    X1           E+1                                        ARITH    1015
          1206  5231000002                        SA3    X1+2         E-1                                        ARITH    1016
                          26022                   UX0 B2,X2                                                      ARITH    1017
          1207  6140000007                        SB4       LOWOP                                                ARITH    1018
                          0624001223 +            GE  B2,B4,CON2F     IF NOT STD ALONE ARG                       ARITH    1019
          1210  26023                             UX0 B2,X3                                                      ARITH    1020
                     0624001223 +                 GE  B2,B4,CON2F     '                                          ARITH    1021
                                        *     HERE IF STAND ALONE CONST ARG.  FORCE LOAD FROM CONLIST.           ARITH    1022
                                        *     -UNLESS AN INTR FUNC ARG                                           ARITH    1023
          1211  5110000041 +                      SA1       FNAD                                                 ARITH    1024
                          5221777776              SA2    X1-1                                                    ARITH    1025
          1212  20222                             LX2    59-P.INF                                                ARITH    1026
                     0322001215 +                 PL     X2,CON2AA   IF NOT IN AN INTRINSIC FUNCTION ARGLIST     ARITH    1027
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    27
        CON - CONSTANT PROCESSING 
  
          1213  5110007607 +                      SA1    =7LLOCF                                                 ARITH    1028
                          5022000001              SA2    A2+1                                                    ARITH    1029
          1214  13112                             BX1    X1-X2                                                   ARITH    1030
                     21122                        AX1    18                                                      ARITH    1031
                          0311001223 +            NZ     X1,CON2F    IF NOT LOCF                                 ARITH    1032
          1215  6110000002               CON2AA   SB1    2                                                       ARITH    1033
                          5110000001 +            SA1       CONST                                                ARITH    1034
          1216  5120000002 +                      SA2       CONST+1                                              ARITH    1035
                          7236777774              SX3    X6-T.DBL                                                ARITH    1036
          1217  0303001232 +                      ZR     X3,CON2D     IF DBL                                     ARITH    1037
                          7236777773              SX3    X6-T.CPLX                                               ARITH    1038
          1220  0303001232 +                      ZR     X3,CON2D     IF CPX                                     ARITH    1039
                          7236777771              SX3    X6-T.HOL                                                ARITH    1040
          1221  0303001245 +                      ZR     X3,CON2G     IF HOL                                     ARITH    1041
                          6110000001              SB1       1                                                    ARITH    1042
          1222  0400001232 +                      ZR        CON2D     IF REAL,INT OR OCT                         ARITH    1043
          1223  7256777771               CON2F    SX5    X6-T.HOL                                                ARITH    1044
                          0305001247 +            ZR     X5,CON2H          IF HOL                                ARITH    1045
          1224  7216777774               CON2F1   SX1    X6-T.DBL                                                FCC0564    15
                          0301001273 +            ZR     X1,CON2A     CON2A IF DBL WD CONST TO LOAD              ARITH    1047
          1225  7216777773                        SX1    X6-T.CPLX                                               ARITH    1048
                          0301001273 +            ZR     X1,CON2A                                                ARITH    1049
          1226  5110000001 +                      SA1       CONST                                                ARITH    1050
                          0301001302 +            ZR     X1,CON2B     IF CONST=0 OR -0                           ARITH    1051
          1227  0331001236 +                      MI     X1,CON2D1   IF CONSTANT .LT. 0                          ARITH    1052
                          43053                   MX0       60-17     B17 WOULD BE EXTENDED ON AN SXI            ARITH    1053
                               11501              BX5    X0*X1                                                   ARITH    1054
          1230  0305001312 +                      ZR     X5,CON2C     IF CON < 400000B                           ARITH    1055
          1231  6110000001               CON2E    SB1       1                                                    ARITH    1056
          1232  0100000000 X             CON2D    RJ        CONVERT                                              ARITH    1057
          1233  5120000323 +                      SA2       TYPEWD                                               ARITH    1058
                          10622                   BX6    X2                                                      ARITH    1059
          1234  0100006165 +                      RJ        CFETCH                                               ARITH    1060
          1235  0400001066 +                      ZR        NEXTE                                                ARITH    1061
                                                                                                                 ARITH    1062
                                        *         SPECIAL-CASE CONSTANT VALUE OF -1, AS WILL BE PRODUCED BY      ARITH    1063
                                        *         LOGICAL CONSTANT .TRUE. .                                      ARITH    1064
                                                                                                                 ARITH    1065
          1236  0316001231 +             CON2D1   NZ     X6,CON2E    IF TYPE .NE. T.LOG                          ARITH    1066
                          5130000527 +            SA3    MD.MASKC                                                ARITH    1067
          1237  7160000073                        SX6    59                                                      ARITH    1068
                          5160000014 +            SA6    PARAMS+1                                                ARITH    1069
          1240  5120000064                        SA2    NARN                                                    ARITH    1070
                          43500                   MX5    0           TYPE = T.LOG                                ARITH    1071
                               10722              BX7    X2                                                      ARITH    1072
          1241  5170000013 +                      SA7    PARAMS                                                  ARITH    1073
                          7272000001              SX7    X2+1                                                    ARITH    1074
          1242  54720                             SA7    A2                                                      ARITH    1075
                     0100005576 +                 RJ     MACOUT      ISSUE MASK 59 MACRO                         ARITH    1076
          1243  43001                             MX0    1                                                       ARITH    1077
                     20060                        LX0    1+47                                                    ARITH    1078
                          53270                   SA2    X7                                                      ARITH    1079
                               12602              BX6    X0+X2                                                   ARITH    1080
          1244  54620                             SA6    A2          SET CONSTANT BIT                            ARITH    1081
                     0400001066 +                 EQ     NEXTE                                                   ARITH    1082
                                                                                                                 ARITH    1083
          1245  5120000032               CON2G    SA2       EPOINT    GET E FOR CONST IN X1.                     ARITH    1084
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    28
        CON - CONSTANT PROCESSING 
  
                          5212000001              SA1    X2+1                                                    ARITH    1085
          1246  66100                             SB1    B0                                                      ARITH    1086
                     0400001232 +                 ZR        CON2D                                                ARITH    1087
                                                                                                                 ARITH    1088
                                        *         HERE IF HOLLERITH CONSTANT                                     ARITH    1089
          1247  5130000401 +             CON2H    SA3    IXFNFG                                                  ARITH    1090
                          0303001224 +            ZR     X3,CON2F+1        IF NOT IN I/O LIST                    ARITH    1091
          1250  5140001062 +                      SA4    EMODE                                                   ARITH    1092
                          7234777775              SX3    X4-2                                                    ARITH    1093
          1251  0303001224 +                      ZR     X3,CON2F1         IF IN ARGUMENT MODE                   FCC0564    16
                          5110000377 +            SA1    OSPTR                                                   FCC0564    17
          1252  6140000037                        SB4    XFLP                                                    FCC0564    18
                          5221007621 +            SA2    OPSTAK+X1                                               FCC0564    19
          1253  26322                             UX3    B2,X2                                                   FCC0564    20
                     0524001224 +                 NE     B2,B4,CON2F1      IF TOP OF STACK NOT A IXFN (          FCC0564    21
          1254  5120000032                        SA2    EPOINT                                                  ARITH    1095
                          53120                   SA1    X2                E+1                                   ARITH    1096
          1255  6140000007                        SB4    LOWOP                                                   ARITH    1097
                          26021                   UX0    B2,X1                                                   ARITH    1098
          1256  5232000002                        SA3    X2+2              E-1                                   ARITH    1099
                          0624001224 +            GE     B2,B4,CON2F+1     NOT STAND ALONE                       ARITH    1100
          1257  26033                             UX0    B3,X3                                                   ARITH    1101
                     0634001224 +                 GE     B3,B4,CON2F+1                                           ARITH    1102
          1260  5212000001                        SA1    X2+1              ELIST ITEM FOR CONSTANT               ARITH    1103
                          10011                   BX0    X1                                                      ARITH    1104
                               66100              SB1    B0                                                      ARITH    1105
          1261  5130000000 X                      SA3    LDFLAG      LIST-DIRECTED-I/O FLAG                      ARITH    1106
                          20025                   LX0    21          CHAR. STRING INDICATOR IN B59               ARITH    1107
                               11430              BX4    X3*X0                                                   ARITH    1108
          1262  7130000006                        SX3    6           TYPE IF CHAR. STRING                        ARITH    1109
                          20025                   LX0    21                                                      ARITH    1110
                               73500              SX5    X0          CHAR. COUNT OF HOL STRING                   ARITH    1111
          1263  0334001266 +                      MI     X4,CON2H1   IF CHAR. STRING IN LIST-DIRECTED IOLIST     ARITH    1112
                          7140000011              SX4    9           ROUNDING FACTOR                             ARITH    1113
          1264  5120007610 +                      SA2    =0.1000000001P48                                        ARITH    1114
                          36654                   IX6    X5+X4                                                   ARITH    1115
                               27006              PX0    X6                                                      ARITH    1116
          1265  7130000002                        SX3    2           TYPE FOR HOL CONSTANT                       ARITH    1117
                          40402                   FX4    X0*X2       CONVERT TO WORD COUNT                       ARITH    1118
                               73540              SX5    X4                                                      ARITH    1119
          1266  20506                    CON2H1   LX5    6                                                       ARITH    1120
                     36635                        IX6    X3+X5                                                   ARITH    1121
                          20644                   LX6    36          18/COUNT,6/TYPE,36/0                        ARITH    1122
          1267  5160000000 X                      SA6    HOLCON                                                  ARITH    1123
                          0100000000 X            RJ     CONVERT           CONVERT AND ENTER IN TABLE            ARITH    1124
          1270  5120000000 X                      SA2    HOLCON                                                  ARITH    1125
                          73010                   SX0    X1          (X1)=12/0,18/CA,18/0,12/IH OF HOL. ENTRY    ARITH    1126
                               21114              AX1    12                                                      ARITH    1127
          1271  36310                             IX3    X1+X0       24/0,18/CA,18/IH                            ARITH    1128
                     12723                        BX7    X2+X3                                                   ARITH    1129
                          54720                   SA7    A2                PACKED DATA WORD                      ARITH    1130
          1272  0400001066 +                      EQ     NEXTE                                                   ARITH    1131
                                        *                                                                        ARITH    1132
                                        *     CON2A IF DBL WD CONST TO LOAD                                      ARITH    1133
          1273  5110000001 +             CON2A    SA1       CONST                                                ARITH    1134
                          6110000002              SB1       2                                                    ARITH    1135
          1274  5120000002 +                      SA2       CONST+1                                              ARITH    1136
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    29
        CON - CONSTANT PROCESSING 
  
                          0312001232 +            NZ     X2,CON2D    IF LOWER HALF " 0                           ARITH    1137
                                                                                                                 ARITH    1138
          1275  0100005737 +                      RJ     DLDSU       SETUP MXI 0/MXI 0 OR  LD CON.+CA/MXI 0      ARITH    1139
          1276  5150000323 +                      SA5    TYPEWD                                                  ARITH    1140
                          0100005576 +            RJ     MACOUT                                                  ARITH    1141
          1277  5110000032 +                      SA1    RL2                                                     ARITH    1142
                          53310                   SA3    X1                                                      ARITH    1143
                               43001              MX0    1                                                       ARITH    1144
          1300  20060                             LX0    1+47        SET CON BIT FOR MACRO                       ARITH    1145
                     12703                        BX7    X0+X3                                                   ARITH    1146
                          54730                   SA7    A3                                                      ARITH    1147
          1301  0400001066 +                      EQ     NEXTE                                                   ARITH    1148
                                                                                                                 ARITH    1149
                                        *         CON2B - CON = 0 OR -0                                          ARITH    1150
                                                                                                                 ARITH    1151
          1302  5120000064               CON2B    SA2       NARN      SET UP FOR CALL TO MACOUT                  ARITH    1152
                          10622                   BX6    X2                                                      ARITH    1153
          1303  7272000001                        SX7    X2+1                                                    ARITH    1154
                          5160000013 +            SA6       PARAMS                                               ARITH    1155
          1304  5170000064                        SA7       NARN                                                 ARITH    1156
                          5150000323 +            SA5    TYPEWD                                                  ARITH    1157
          1305  5130000413 +                      SA3    MZMD                                                    ARITH    1158
                          0331001307 +            MI     X1,CON2B1   IF -0                                       ARITH    1159
          1306  5130000411 +                      SA3    ZRMD                                                    ARITH    1160
          1307  0100005576 +             CON2B1   RJ        MACOUT                                               ARITH    1161
          1310  53170                             SA1    X7           TURN ON CONST BIT                          ARITH    1162
                     43001                        MX0       1                                                    ARITH    1163
                          20060                   LX0       48                                                   ARITH    1164
                               12610              BX6    X1+X0                                                   ARITH    1165
          1311  53670                             SA6    X7                                                      ARITH    1166
                     0400001066 +                 ZR        NEXTE                                                ARITH    1167
                                        *                                                                        ARITH    1168
                                        *     CON2C IF CON< 400000B                                              ARITH    1169
          1312  7226777776               CON2C    SX2    X6-T.INT          WOULD NEED EXTRA COMPILER CODE FOR    ARITH    1170
                                        *                  OTHER THAN INT, OCT, OR HOL.                          ARITH    1171
                          0302001315 +            ZR     X2,CON2C1                                               ARITH    1172
                                        *                NOW BSAV IS USED AS A FLAG TO STCON                     ARITH    1173
                                        *                 BSAV = 773B IMPLIES  TREAT THIS CONST AS NORMAL        ARITH    1174
          1313  7226777772                        SX2    X6-T.OCT                                                ARITH    1175
                          0302001315 +            ZR     X2,CON2C1                                               ARITH    1176
          1314  7226777771                        SX2    X6-T.HOL                                                ARITH    1177
                          0312001231 +            NZ     X2,CON2E                                                ARITH    1178
          1315  10511                    CON2C1   BX5    X1                                                      ARITH    1179
                     7160000773                   SX6    773B                                                    ARITH    1180
          1316  5160001321 +                      SA6    BSAV                                                    ARITH    1181
                          0100005752 +            RJ        STCON                                                ARITH    1182
          1317  5110000323 +                      SA1       TYPEWD    SET TYPE OF CONST                          ARITH    1183
                          63210                   SB2    X1                                                      ARITH    1184
                               27626              PX6    B2,X6                                                   ARITH    1185
          1320  54660                             SA6    A6                                                      ARITH    1186
                     0400001066 +                 ZR        NEXTE                                                ARITH    1187
                                                                                                                 ARITH    1188
          1321                     1     BSAV     BSSZ   1                                                       ARITH    1189
                                                                                                                 ARITH    1190
          1322  6160000246               CON7     EERR   ERMSG32     ILLEGAL DIVIDE BY CONSTANT ZERO             ARITH    1191
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    30
         ID - IDENTIFIER PROCESSING 
  
          1323  6160000250               ID.E34   EERR   ERMSG34           ILLEGAL USE OF SUBPROGRAM NAME        ARITH    1193
                                                                                                                 ARITH    1194
                                        *     ID IF E IS IDENTIFIER. FROM EJTB.  X1 HOLDS E.                     ARITH    1195
          1324  6120000001               ID       SB2    EL.ID                                                   ARITH    1196
                          6130000024              SB3    EL.DSTR                                                 ARITH    1197
          1325  0543001327 +                      NE     B4,B3,ID0                                               ARITH    1198
                          5130000005 C            SA3    ARLPT                                                   ARITH    1199
          1326  10633                             BX6    X3                                                      ARITH    1200
                     5160001057 +                 SA6    STBASE            SAVE ADDRESS OF ** BASE               ARITH    1201
          1327                           ID0      BSS    0                                                       ARITH    1202
  
          1327  6170001331 +                      SB7       ID1       SET RETURN-FROM-SYMBOL ADR                 ARITH    1204
                          0724000000 X            GT     B4,B2,SYMBOL      IF NAME NOT FOLLOWED BY NAME OR CONS  ARITH    1205
          1330  6160000214                        EERR      ERMSG6                                               ARITH    1206
          1331  0400001333 +             ID1      EQ     ID.F        FIRST OCCURANCE                             ARITH    1207
          1332  0400001341 +                      EQ     ID2               PREVIOUS OCCURANCES                   ARITH    1208
                                                                                                                 ARITH    1209
                                        *         FIRST OCCURANCE - CHECK SETTING OF DEBUG BITS AND ADD TYPE     ARITH    1210
                                                                                                                 ARITH    1211
          1333  0307001337 +             ID.F     ZR     X7,ID.F2          IF NO PREVIOUS MENTION IN DEBUG STMTS ARITH    1212
                          5150000032              SA5    EPOINT                                                  ARITH    1213
          1334  53450                             SA4    X5                                                      ARITH    1214
                     6140000006                   SB4    EL.(                                                    ARITH    1215
                               26334              UX3    B3,X4                                                   ARITH    1216
          1335  43000                             MX0    0                                                       ARITH    1217
                     0534001336 +                 NE     B3,B4,ID.F1       IF NEXT IS NOT A (                    ARITH    1218
                               76050              SX0    B5                ASSUME A FUNCTION REFERENCE           ARITH    1219
          1336  0100000000 X             ID.F1    CALL   CFO               CHECK SETTING OF DEBUG BITS           ARITH    1220
          1337  36272                    ID.F2    IX2    X7+X2             ADD DEBUG BITS                        ARITH    1221
                     12662                        BX6    X6+X2             AND TYPE                              ARITH    1222
                          54620                   SA6    A2                                                      ARITH    1223
                               66700              SB7    B0                SET B7 TO 0 TO FLAG THE FIRST OCCURAN ARITH    1224
          1340  22206                             LX2    X6                                                      ARITH    1225
                     0400001344 +                 EQ     ID3                                                     ARITH    1226
                                                                                                                 ARITH    1227
          1341  0515001344 +             ID2      NE     B1,B5,ID3         IF NOT ORDINAL 1                      ARITH    1228
                          5130000000 X            SA3    VALUE.                                                  ARITH    1229
          1342  0303001323 +                      ZR     X3,ID.E34         IF NOT A FUNCTION SUBPROGRAM          ARITH    1230
                          63130                   SB1    X3                                                      ARITH    1231
                               66211              SB2    B1+B1                                                   ARITH    1232
          1343  55102                             SA1    A0-B2             WORD A OF VALUE.                      ARITH    1233
                     55215                        SA2    A1-B5             WORD B                                ARITH    1234
                                                                                                                 ARITH    1235
          1344  5150007604 +             ID3      SA5    REFSELCT        (REFERENCE MAP SELECTION--LOCAL COPY SO ARITH    1236
                                                                           THAT FOR AN 'IXFN' CALL FOR LWA+1     ARITH    1237
                                                                           'ARITH' WILL NOT ACCUMULATE ANY REFS) ARITH    1238
                          76610                   SX6    B1                                                      ARITH    1239
                               74710              SX7    A1                                                      ARITH    1240
          1345  5160000003 +                      SA6    IDORDL            SAVE SYMTAB ORDINAL                   ARITH    1241
                          5170000004 +            SA7    NAMFWA            ADDRESS OF WORD A OF SYMTAB ENTRY     ARITH    1242
          1346  5160000035 +                      SA6    IDORDLTS                                                ARITH    1243
                          0305001363 +            ZR     X5,IDREF3   IF NO LONG REFERENCE MAP                    ARITH    1244
          1347  76670                             SX6    B7                (ALSO SAVE THE 'FIRST TIME SYMBOL     ARITH    1245
                     5140000005 +                 SA4    EQCOUNT                                                 ARITH    1246
          1350  5160007606 +                      SA6    =SFIRSTFLG                                              ARITH    1247
                          0324001354 +            PL     X4,IDREF        IF NOT FIRST IXFN ID GO TO !IDREF!      ARITH    1248
          1351  13666                             BX6    X6-X6                                                   ARITH    1249
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    31
         ID - IDENTIFIER PROCESSING 
  
                     54640                        SA6    A4                                                      ARITH    1250
                          5120006533 +            ADDREF B1,REFTYPE      ADD A REFERENCE OF THE TYPE PREVIOUSLY  ARITH    1251
          1353  0400001361 +                      ZR     IDREF2            DETERMINED BY THE CALLER.             ARITH    1252
          1354  5150007603 +             IDREF    SA5    PARLEVEL        IF THE PARENTHESIS LEVEL IS NON-ZERO OR ARITH    1253
                          13000                   BX0    X0-X0             IF ALL THE EQUAL SIGNS HAVE BEEN      ARITH    1254
                               37105              IX1    X0-X5             PASSED, THEN THIS IS A REFERENCE      ARITH    1255
          1355  37204                             IX2    X0-X4             ENCOUNTERED FLAG')                    ARITH    1256
                     16312                        BX3    -X2+X1                                                  ARITH    1257
                          0333001360 +            MI     X3,IDREF1         GO TO 'IDREF1' TO FLAG REFERENCE.     ARITH    1258
  
          1356  43201                             ADDREF B1,DEF          NOTE THE DEFINITION                     ARITH    1260
          1357  0400001361 +                      ZR     IDREF2                                                  ARITH    1261
  
          1360  43200                   IDREF1    ADDREF B1,REF          NOTE THE REFERENCE                      ARITH    1263
          1361  5140007606 +             IDREF2   SA4    FIRSTFLG                                                ARITH    1264
                          5130000004 +            SA3    NAMFWA                                                  ARITH    1265
          1362  53130                             SA1    X3                WORD A                                ARITH    1266
                     55215                        SA2    A1-B5             WORD B                                ARITH    1267
                          63740                   SB7    X4                                                      ARITH    1268
          1363  5150000032               IDREF3   SA5    EPOINT          SET REGISTER B1 TO E+1                  ARITH    1269
                          6215000001              SB1    X5+1        RESTORE REGISTER B1 (POINSE TO NEXT E)      ARITH    1270
          1364  10611                             BX6    X1                                                      ARITH    1271
                     22702                        LX7    X2                                                      ARITH    1272
                          5160000325 +            SA6    NAME              SAVE SYMTAB ENTRY                     ARITH    1273
          1365  54765                             SA7    A6+B5                                                   ARITH    1274
                     0470001422 +                 ZR     B7,NIT          IF FIRST TIME SYMBOL ENCOUNTERED        ARITH    1275
                                        **        X1,X6 -- WORD 1 OF SYMBOL TABLE ENTRY FOR NAME                 ARITH    1276
                                        **        X2,X7 -- WORD 2 OF SYMBOL TABLE ENTRY FOR NAME                 ARITH    1277
                                                                                                                 ARITH    1278
                                        *         PREVIOUS OCCURANCES                                            ARITH    1279
                                                                                                                 ARITH    1280
                               43004              MX0    L.TYP                                                   ARITH    1281
          1366  11302                             BX3    X0*X2                                                   ARITH    1282
                     20304                        LX3    L.TYP                                                   ARITH    1283
                          7243777771              SX4    X3-T.OCT-1                                              ARITH    1284
          1367  0324001455 +                      PL     X4,ID12           IF AN ILLEGAL TYPE                    ARITH    1285
                                                                                                                 ARITH    1286
                          20654                   LX6    59-P.FUN                                                ARITH    1287
          1370  0336001414 +                      NG     X6,ID8A           IF A FUNCTION                         ARITH    1288
                          43072                   MX0    -L.LVL                                                  ARITH    1289
                               20272              LX2    -P.LVL                                                  ARITH    1290
          1371  15320                             BX3    -X0*X2            OBTAIN LEVEL NUMBER OF VARIABLE       ARITH    1291
                     20202                        LX2    P.LVL                                                   ARITH    1292
                          7243777774              SX4    X3-3                                                    ARITH    1293
          1372  0304002171 +                      ZR     X4,LEVEL          IF LEVEL 3 VARIABLE                   ARITH    1294
          1373  20602                    IDREF.3  LX6    P.FUN-P.DIM                                             ARITH    1295
                     0336001504 +                 NG     X6,ARRAY          IF AN ARRAY                           ARITH    1296
                                                                                                                 ARITH    1297
                               57315              SA3    B1-B5             E+1                                   ARITH    1298
          1374  26423                             UX4    B2,X3                                                   ARITH    1299
                     6130000006                   SB3    EL.(                                                    ARITH    1300
                               20723              LX7    59-P.VAR                                                ARITH    1301
          1375  0327001377 +                      PL     X7,ID4            IF NO PREVIOUS USEAGE AS A VARIABLE   ARITH    1302
                                                                                                                 ARITH    1303
                          0523001446 +            NE     B2,B3,VR3         IF NOT A (                            ARITH    1304
          1376  6160000210               IDER2    EERR   ERMSG2            SIMPLE VAR FOLLOWED BY (              ARITH    1305
                                                                                                                 ARITH    1306
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    32
         ID - IDENTIFIER PROCESSING 
  
          1377  0523001425 +             ID4      NE     B2,B3,VR4         IF NEXT IS NOT A (                    ARITH    1307
                          20152                   LX1    59-P.FP                                                 ARITH    1308
                               20205              LX2    59-P.EXT                                                ARITH    1309
          1400  12312                             BX3    X1+X2                                                   ARITH    1310
                     0333001435 +                 NG     X3,ID6            IF F.P. OR EXT                        ARITH    1311
          1401  6170001403 +                      SB7    ID5               NOT FOUND ADDR                        ARITH    1312
                          0100006241 +            RJ     BEFTLU            CHECK BASIC EXT FUN TBL               ARITH    1313
          1402  0400001404 +                      EQ     ID10              IF FOUND                              ARITH    1314
                                                                                                                 ARITH    1315
                                        *     ID5 IF NOT IN BASIC EXT. SEE IF IN INTRINSIC TBL                   ARITH    1316
          1403  6170001435 +             ID5      SB7       ID6                                                  ARITH    1317
                          0100006236 +            RJ        IFTLU                                                ARITH    1318
          1404  5110000326 +             ID10     SA1       NAME+1    SEE IF SAME TYPE                           ARITH    1319
                          13215                   BX2    X1-X5                                                   ARITH    1320
                               21270              AX2    60-L.TYP                                                ARITH    1321
          1405  0312001435 +                      NZ     X2,ID6       IF NOT SAME TYPE                           ARITH    1322
          1406  5110000325 +             ID8      SA1       NAME      HERE IF FUN INT OR BASIC.  ENTER INTO SYMT ARITH    1323
                          5120000326 +            SA2       NAME+1    SAVE POINTERS                              ARITH    1324
          1407  43004                             MX0    L.DIF                                                   ARITH    1325
                     20043                        LX0    1+P.AC                                                  ARITH    1326
                          11702                   BX7    X0*X2             GET DEBUG BITS                        ARITH    1327
                               43060              MX0       60-12                                                ARITH    1328
          1410  15110                             BX1   -X0*X1                                                   ARITH    1329
                     15220                        BX2   -X0*X2                                                   ARITH    1330
                          11505                   BX5    X0*X5        IN CASE RNM FLAG ON (SOME INTR FUNCS)      ARITH    1331
                               12614              BX6    X1+X4                                                   ARITH    1332
          1411  12557                             BX5    X5+X7             FUNC + DEBUG BITS                     ARITH    1333
                     12725                        BX7    X2+X5                                                   ARITH    1334
                          5110000004 +            SA1       NAMFWA                                               ARITH    1335
          1412  53610                             SA6    X1                                                      ARITH    1336
                     5271777776                   SA7    X1-1                                                    ARITH    1337
                               74640              SX6    A4                                                      ARITH    1338
          1413  5160000332 +                      SA6    TYADR             ADDRESS OF FUNCTION TABLE ENTRY       ARITH    1339
                          0400002205 +            EQ     FUNC                                                    ARITH    1340
          1414  20216                    ID8A     LX2    59-P.LIB                                                ARITH    1341
                     0332001420 +                 MI     X2,ID8C           IF A BASIC EXTERNAL                   ARITH    1342
                               20204              LX2    P.LIB-P.INF                                             ARITH    1343
          1415  0322002205 +                      PL     X2,FUNC           IF NOT AN INTRINSIC FUNCTION          ARITH    1344
                          0100006236 +            RJ     IFTLU                                                   ARITH    1345
          1416  74640                    ID8B     SX6    A4                                                      ARITH    1346
                     5160000332 +                 SA6    TYADR             SAVE FUNCTION TABLE ADDRESS           ARITH    1347
          1417  0400002205 +                      EQ     FUNC                                                    ARITH    1348
                                                                                                                 ARITH    1349
          1420  0100006241 +             ID8C     RJ     BEFTLU                                                  ARITH    1350
          1421  0400001416 +                      EQ     ID8B                                                    ARITH    1351
                                                                                                                 ARITH    1352
                                        *         FIRST OCCURANCE                                                ARITH    1353
                                                                                                                 ARITH    1354
          1422  57315                    NIT      SA3    B1-B5             E+1                                   ARITH    1355
                     26023                        UX0    B2,X3                                                   ARITH    1356
                          6130000006              SB3    EL.(                                                    ARITH    1357
          1423  0423001431 +                      EQ     B2,B3,ID7         IF USED AS A FUNCTION                 ARITH    1358
                          76050                   SX0    B5                                                      ARITH    1359
                               20050              LX0    P.VAR                                                   ARITH    1360
          1424  12702                             BX7    X0+X2             SET VAR BIT                           ARITH    1361
                     54720                        SA7    A2                                                      ARITH    1362
                          0400001446 +            EQ     VR3                                                     ARITH    1363
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    33
         ID - IDENTIFIER PROCESSING 
  
                                        *     VR4 IF ID HAS ONLY APPEARED IN TYPE STATE. AND/OR DMY ARG LIST AND ARITH    1364
                                        *  NOT FOLLOWED BY L.P.                                                  ARITH    1365
                                        *  OR IF 1ST APPEARANCE OF VARIABLE IS AS 1ST ELEMENT IN A REPLACEMENT   ARITH    1366
                                        *  STATEMENT. (TYPE SET AT ARITH4)                                       ARITH    1367
          1425  5130000004 +             VR4      SA3       NAMFWA    ENTER VAR FG BIT IF NOT EXT PROC.NAME.     ARITH    1368
                          43001                   MX0       1                                                    ARITH    1369
          1426  5120000326 +                      SA2       NAME+1                                               ARITH    1370
                          20051                   LX0    1+P.VAR                                                 ARITH    1371
                               12620              BX6    X2+X0                                                   ARITH    1372
          1427  20205                             LX2    59-P.EXT          CHECK EXTERNAL BIT                    ARITH    1373
                     0332002205 +                 NG     X2,FUNC      IF EXT PROCD NAME (MUST BE DMY ARG)        ARITH    1374
                               20267              LX2    P.EXT-59                                                ARITH    1375
          1430  5263777776                        SA6    X3-1                                                    ARITH    1376
                          0400001446 +            ZR        VR3                                                  ARITH    1377
                                        *                                                                        ARITH    1378
                                        *     ID7 IF 1ST APPEARANCE OF FUN NAME                                  ARITH    1379
          1431  6170001433 +             ID7      SB7       ID9       SET NOT-FOUND ADR                          ARITH    1380
                          0100006241 +            RJ        BEFTLU                                               ARITH    1381
          1432  0400001406 +                      ZR        ID8                                                  ARITH    1382
          1433  6170001435 +             ID9      SB7       ID6                                                  ARITH    1383
                          0100006236 +            RJ        IFTLU                                                ARITH    1384
          1434  0400001406 +                      ZR        ID8                                                  ARITH    1385
                                        *                                                                        ARITH    1386
                                        *     ID6 IF ID IS GEN.EXT.FUN                                           ARITH    1387
          1435  43001                    ID6      MX0       1         TURN ON EXT BIT IN SYMTAB ENTRY            ARITH    1388
                     20067                        LX0    1+P.EXT                                                 ARITH    1389
                          5120000326 +            SA2       NAME+1                                               ARITH    1390
          1436  5130000004 +                      SA3       NAMFWA                                               ARITH    1391
                          12620                   BX6    X2+X0                                                   ARITH    1392
          1437  5160000326 +                      SA6       NAME+1                                               ARITH    1393
                          5263777776              SA6    X3-1                                                    ARITH    1394
          1440  5110000325 +                      SA1       NAME      TURN ON FUN BIT                            ARITH    1395
                          20025                   LX0    P.FUN-P.EXT                                             ARITH    1396
                               12710              BX7    X1+X0                                                   ARITH    1397
          1441  5076000001                        SA7    A6+1                                                    ARITH    1398
                          20624                   LX6    59-P.FCALL                                              FCC2307    18
          1442  0326002245 +                      PL     X6,FUNC1    IF NOT ALSO USED AS SUBROUTINE              FCC2307    19
                          6160000510              USASDM  E328       SAME NAME USED AS FUNCTION AND SUBROUTINE   FCC2307    20
          1444  0400002245 +                      EQ     FUNC1                                                   FCC2307    21
          1445  0400002245 +                      EQ     FUNC1                                                   ARITH    1399
                                                                                                                 ARITH    1400
                                        **        LDVRB - OUTPUT LOAD FOR A VARIABLE                             ARITH    1401
                                                                                                                 ARITH    1402
          1446  43700                    VR3      MX7    0                                                       ARITH    1403
                     6170001452 +                 SB7       LDVRB1    LDVRB1 IF NOT EQUIVED                      ARITH    1404
          1447  5170000341 +                      SA7       VCA       CLEAR                                      ARITH    1405
                          5170000036 +            SA7    IDORDLTS+1                                              ARITH    1406
          1450  0100006266 +                      RJ        EQUIVR                                               ARITH    1407
          1451  5160000341 +                      SA6       VCA       HERE IF EQUIVALECED                        ARITH    1408
                          5170000003 +            SA7       IDORDL                                               ARITH    1409
          1452  5110000341 +             LDVRB1   SA1       VCA                                                  ARITH    1410
                          63710                   SB7    X1           CA                                         ARITH    1411
                               66600              SB6    B0           RF                                         ARITH    1412
          1453  5150000003 +                      SA5    IDORDL       H                                          ARITH    1413
                          0100005650 +            RJ        FETCH     OUTPUT NORMAL VARIABLE LOAD MACRO          ARITH    1414
          1454  0400001066 +                      EQ     NEXTE                                                   ARITH    1415
                                                                                                                 ARITH    1416
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    34
         ID - IDENTIFIER PROCESSING 
  
          1455  6160000313               ID12     EERR      ERMSG49   FE: ILLEGAL OPD TYPE                       ARITH    1417
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    35
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           SSP 
  
                                 113     ERMSG75  EQU    75          CONSTANT ARRAY REFERENCE OUT-OF-BOUNDS      ARITH    1419
                                   2     LEV      OCTMIC P.LVL                                                   FCC0385     4
                                  14     V.LEV3   EQU    3S"LEV"                                                 FCC0385     5
                                                                                                                 ARITH    1420
                                   2     MVARS    EQU    2           VARIABLES ALLOWED IN TERM OF IXFN           ARITH    1421
          1456                     1     DCF      BSS    1           DOUBLE/COMPLEX FLAG                         ARITH    1422
          1457                     1     TARLPT   BSS    1           TEMPORARY ARLIST POINTER                    ARITH    1423
          1460                     1     REFTEMP  BSS    1           TEMP CELL FOR ADDREF LOOP                   ARITH    1424
          1461  00000000000000000001     INC      CON    1           INCREMENT FOR ADDRESSING IXFN TERMS         ARITH    1425
          1462                     1     TEP      BSS    1           TEMP E-LIST POINTER                         ARITH    1426
          1463                     1     NDIMS    BSS    1           ARRAY DIMENSIONALITY                        ARITH    1427
          1464                     1     OBR      BSS    1           OUT-OF-BOUNDS REF FLAG                      ARITH    1428
                                                                                                                 ARITH    1429
                                        *         STORAGE BETWEEN O.TTS AND L.TTS IS INITIALIZED AT THE          ARITH    1430
                                        *         START OF EACH TERM OF A STANDARD SUBSCRIPT.                    ARITH    1431
                                                                                                                 ARITH    1432
          1465                           O.TTS    BSS    0                                                       ARITH    1433
          1465                     1     ACT      BSS    1           ADDITIVE CONSTANT                           ARITH    1434
          1466                     1     COMP     BSS    1           COMPLEMENT FLAG                             ARITH    1435
          1467                     1     CONSTT   BSS    1           CONSTANT TEMP                               ARITH    1436
          1470                     1     IDF      BSS    1           ID ENCOUNTERED FLAG                         ARITH    1437
          1471                     1     PMF      BSS    1           PLUS-OR-MINUS-ENCOUNTERED FLAG              ARITH    1438
          1472                     2     VAR      BSS    MVARS       VARIABLE IH,CA ARRAY                        ARITH    1439
          1474                     1     VARS     BSS    1           VARIABLE-IN-TERM ORDINAL                    ARITH    1440
                                  10     L.TTS    EQU    *-O.TTS                                                 ARITH    1441
                                                                                                                 ARITH    1442
          1475                     3     MC       BSS    MVARS+1     MULTIPLICATIVE CONSTANTS                    ARITH    1443
                                                                                                                 ARITH    1444
                                        *         FOLLOWING CELLS ARE INITIALIZED (TO ZERO) AT THE START         ARITH    1445
                                        *         OF IXFN PROCESSING ONLY.                                       ARITH    1446
                                                                                                                 ARITH    1447
          1500                     1     TERM     BSS    1           CURRENT TERM WITHIN IXFN                    ARITH    1448
          1501                     1     NANSI    BSS    1           NON-ANSI IXFN FLAG                          ARITH    1449
          1502                     1     DAF      BSS    1           DEBUG ARRAYS CHECK FLAG                     ARITH    1450
                                                                                                                 ARITH    1451
                                        *         FORM BIT MASK OF E-LIST OP-CODES THAT ARE ELEMENTS OF          ARITH    1452
                                        *         STANDARD SUBSCRIPTS.                                           ARITH    1453
                                                                                                                 ARITH    1454
                                   2     EL.RP    EQU    EL.)                                                    ARITH    1455
          1503                           IMASK    BSS    0                                                       ARITH    1456
                                                  ECHO   2,P=(CON,ID,RP,COMMA,PLUS,MINUS,STAR)                   ARITH    1457
                                                  POS    60-EL.P                                                 ARITH    1458
                                                  VFD    1/1                                                     ARITH    1459
                      00000000000000              VFD    *P/0                                                    ARITH    1460
                                                                                                                 ARITH    1461
          1504  6150000001               ARRAY    SB5    1                                                       ARITH    1462
                          5120000003 +            SA2    IDORDL                                                  ARITH    1463
          1505  10622                             BX6    X2                                                      ARITH    1464
                     5160000333 +                 SA6    SARORD      FOR SSP.NS                                  ARITH    1465
          1506  5110000326 +                      SA1    NAME+1      WORD B OF SYMTAB ENTRY FOR ARRAY            ARITH    1466
                          43060                   MX0    -L.DIMP                                                 ARITH    1467
                               20123              LX1    -P.DIMP                                                 ARITH    1468
          1507  15210                             BX2    -X0*X1                                                  ARITH    1469
                     5130000017                   SA3    DIM1                                                    ARITH    1470
                               20201              LX2    1                                                       ARITH    1471
          1510  63235                             SB2    X3+B5                                                   ARITH    1472
                     53122                        SA1    X2+B2       WORD 2 OF DIM ENTRY                         ARITH    1473
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    36
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           SSP 
  
                          10611                   BX6    X1                                                      ARITH    1474
          1511  5160000331 +                      SA6    SDIMIN      SAVE DIMENSION INFO                         ARITH    1475
                          5110000032              SA1    EPOINT                                                  ARITH    1476
          1512  20603                             LX6    3                                                       ARITH    1477
                     43071                        MX0    -3                                                      ARITH    1478
                          15760                   BX7    -X0*X6                                                  ARITH    1479
                               53210              SA2    X1                                                      ARITH    1480
          1513  5170001463 +                      SA7    NDIMS       NUMBER OF DIMENSIONS FOR THIS ARRAY         ARITH    1481
                          26022                   UX0    B2,X2                                                   ARITH    1482
          1514  6132777771                        SB3    B2-EL.(                                                 ARITH    1483
                          0530002143 +            NZ     B3,NSAN     IF NEXTE .NE. (                             ARITH    1484
          1515  10611                             BX6    X1                                                      ARITH    1485
                     5160001462 +                 SA6    TEP         TEMP ELIST POINTER AT LEFT PAREN            ARITH    1486
          1516  5211777776                        SA1    X1-1                                                    ARITH    1487
                          26041                   UX0    B4,X1       B4 = OC(NEXTE)                              ARITH    1488
          1517  0100002370 +                      CALL   SSERR3      CHECK NEXTE SYNTAX FOR (                    ARITH    1489
          1520  13666                             SETZERO  O.TTS,L.TTS   INITIALIZE TERM-TEMP CELLS              ARITH    1490
          1523  43700                             MX7    0                                                       ARITH    1491
                     5170001500 +                 SA7    TERM        TERM = 0                                    ARITH    1492
          1524  5170001501 +                      SA7    NANSI       NANSI = 0                                   ARITH    1493
                          5170001502 +            SA7    DAF         DAF = 0                                     ARITH    1494
          1525  76650                             SX6    B5                                                      ARITH    1495
                     5160001475 +                 SA6    MC          MC(1) = 1                                   ARITH    1496
                               54665              SA6    A6+B5       MC(2) = 1                                   ARITH    1497
          1526  54665                             SA6    A6+B5       MC(3) = 1                                   ARITH    1498
                                                                                                                 ARITH    1499
                     5110000000 X                 SA1    =XDFLAG                                                 ARITH    1500
          1527  5120000326 +                      SA2    NAME+1      WORD B                                      ARITH    1501
                          0301001533 +            ZR     X1,ARRAY1   IF NOT DEBUG MODE                           ARITH    1502
          1530  5140000000 X                      SA4    =XALLARR                                                ARITH    1503
                          43070                   MX0    -L.DIF                                                  ARITH    1504
                               20235              LX2    -P.DIF                                                  ARITH    1505
          1531  15320                             BX3    -X0*X2                                                  ARITH    1506
                     12634                        BX6    X3+X4                                                   ARITH    1507
                          5160001502 +            SA6    DAF         .NE. 0 IF ANY DEBUGGING ON FOR THIS ARRAY   ARITH    1508
          1532  20237                             LX2    P.DIF       RESTORE WORD B                              ARITH    1509
                                                                                                                 ARITH    1510
          1533  5110000005 C             ARRAY1   SA1    ARLPT       NEXT ARLIST ENTRY LOCATION                  ARITH    1511
                          43070                   MX0    -L.TYP                                                  ARITH    1512
                               20204              LX2    -P.TYP                                                  ARITH    1513
          1534  15620                             BX6    -X0*X2      ARRAY TYPE                                  ARITH    1514
                     6276777774                   SB7    X6-T.DBL                                                ARITH    1515
                               43600              MX6    0                                                       ARITH    1516
          1535  0770001537 +                      MI     B7,ARRAY2   IF ARRAY TYPE .LT. T.DBLE                   ARITH    1517
                          0757001537 +            GT     B7,B5,ARRAY2  IF ARRAY TYPE .GT. T.CPLX                 ARITH    1518
          1536  76650                             SX6    B5                                                      ARITH    1519
                                                                                                                 ARITH    1520
          1537  5160001456 +             ARRAY2   SA6    DCF         STORE DOUBLE/COMPLEX FLAG                   ARITH    1521
                          5120001463 +            SA2    NDIMS                                                   ARITH    1522
          1540  22352                             LX3    X2,B5                                                   ARITH    1523
                     7271000005                   SX7    X1+5                                                    ARITH    1524
                               36523              IX5    X2+X3                                                   ARITH    1525
          1541  5170001457 +                      SA7    TARLPT      POINTS TO START OF TERM INFO                ARITH    1526
                          7265774605              SX6    X5+6-ARLSZ  WORDS POSSIBLY REQUIRED = 3*NDIMS + 6       ARITH    1527
          1542  36216                             IX2    X1+X6                                                   ARITH    1528
                     0322005647 +                 PL     X2,ARLOVER  IF INSUFFICIENT ROOM IN ARLIST              ARITH    1529
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    37
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           SSP0
  
                                        *         MAIN LOOP FOR STANDARD SUBSCRIPT E-LIST CRACKING.              ARITH    1531
                                                                                                                 ARITH    1532
          1543  5150001462 +             SSP0     SA5    TEP         E-LIST POINTER WITHIN SSP                   ARITH    1533
                          5245777776              SA4    X5-1        TEP = TEP + 1                               ARITH    1534
          1544  26124                             UX1    B2,X4       B2 = OC(TEP) , X1 = ELIST(TEP)              ARITH    1535
                     55345                        SA3    A4-B5                                                   ARITH    1536
                          26243                   UX2    B4,X3       B4 = OC(TEP+1) , X2 = ELIST(TEP+1)          ARITH    1537
                               74640              SX6    A4                                                      ARITH    1538
          1545  5130001503 +                      SA3    IMASK                                                   ARITH    1539
                          54650                   SA6    A5          UPDATE TEP                                  ARITH    1540
                               22423              LX4    B2,X3                                                   ARITH    1541
          1546  0324002072 +                      PL     X4,SSP.NS   IF ELIST(TEP) NOT STAND. SUB. ELEMENT       ARITH    1542
                          6132777757              SB3    B2-EL.MINUS                                             ARITH    1543
          1547  0730001550 +                      MI     B3,SSP01    IF OC(TEP) .LT. EL.MINUS                    ARITH    1544
                          6122777763              SB2    B2-EL.MINUS+EL.COMMA+1                                  ARITH    1545
                                                                                                                 ARITH    1546
          1550  0222001551 +             SSP01    JP     SSP.JT+B2                                               ARITH    1547
          1551                           SSP.JT   BSS    0                                                       ARITH    1548
      L      0                                    LOC    EL.CON                                                  ARITH    1549
      L      0  0400001560 +                      EQ     PSC         OC(TEP) = EL.CON                            ARITH    1550
      L      1  0400001574 +                      EQ     PSI                   EL.ID                             ARITH    1551
      L      2  0400001615 +                      EQ     PSR                   EL.)                              ARITH    1552
      L      3  0400001622 +                      EQ     PCO                   EL.COMMA                          ARITH    1553
      L     20                                    LOC    EL.MINUS                                                ARITH    1554
      L     20  0400001633 +                      EQ     PSM                   EL.MINUS                          ARITH    1555
      L     21  0400001640 +                      EQ     PSP                   EL.PLUS                           ARITH    1556
      L     22  0400001657 +                      EQ     PSS                   EL.STAR                           ARITH    1557
          1560                                    LOC    *O                                                      ARITH    1558
  
  
  
  
                                        **        PSC - PROCESS SUBSCRIPT CONSTANTS.                             ARITH    1560
                                                                                                                 ARITH    1561
          1560  0100001562 +             PSC      CALL   ECON                                                    ARITH    1562
          1561  5160001467 +                      SA6    CONSTT                                                  ARITH    1563
                          0400001543 +            EQ     SSP0                                                    ARITH    1564
  
  
  
                                        **        ECON- PROCESS E-LIST CONSTANTS FOR STANDARD SUBSCRIPT          ARITH    1566
                                        *         PROCESSING.                                                    ARITH    1567
                                        *                                                                        ARITH    1568
                                        *         ENTRY  (X1) = ELIST FOR CONSTANT                               ARITH    1569
                                        *                                                                        ARITH    1570
                                        *         EXITS TO SSP.NS IF CONSTANT .GE. 1S17 OR IF IT IS NOT          ARITH    1571
                                        *         TYPE INTEGER OR OCTAL.                                         ARITH    1572
                                        *         OTHERWISE, RETURNS THROUGH ENTRY POINT WITH (X6) = CONVERTED   ARITH    1573
                                        *         CONSTANT.                                                      ARITH    1574
                                                                                                                 ARITH    1575
          1562  0400401562 +             ECON     ENTRY. *                                                       ARITH    1576
          1563  10211                             BX2    X1          X2 = X1 = ELIST                             ARITH    1577
                     20217                        LX2    15                                                      ARITH    1578
                          43071                   MX0    -3                                                      ARITH    1579
                               15320              BX3    -X0*X2                                                  ARITH    1580
          1564  7273777776                        SX7    X3-T.INT                                                ARITH    1581
                          7243777772              SX4    X3-T.OCT                                                ARITH    1582
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    38
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           ECON
  
          1565  0307001567 +                      ZR     X7,ECON1    IF TYPE(CON) = T.INT                        ARITH    1583
                          0314002072 +            NZ     X4,SSP.NS   IF TYPE(CON) .NE. T.OCT                     ARITH    1584
          1566  5170001501 +                      SA7    NANSI                                                   ARITH    1585
                                                                                                                 ARITH    1586
          1567  67105                    ECON1    SB1    -B5                                                     ARITH    1587
                     0100000000 X                 CALL   CONVERT                                                 ARITH    1588
          1570  10611                             BX6    X1                                                      ARITH    1589
                     21121                        AX1    17          CONSTANT IS POSITIVE                        ARITH    1590
                          0311002072 +            NZ     X1,SSP.NS   IF CON .GE. 1S17                            ARITH    1591
          1571  5150001466 +                      SA5    COMP                                                    ARITH    1592
                          0305001562 +            ZR     X5,ECON     IF COMPLEMENT FLAG OFF                      ARITH    1593
          1572  43700                             MX7    0                                                       ARITH    1594
                     14666                        BX6    -X6                                                     ARITH    1595
                          54750                   SA7    A5          TURN OFF COMPLEMENT FLAG                    ARITH    1596
          1573  0400001562 +                      EQ     ECON                                                    ARITH    1597
  
  
  
  
                                        **        PSI - PROCESS SUBSCRIPT ID/S.                                  ARITH    1599
                                                                                                                 ARITH    1600
          1574  5130001474 +             PSI      SA3    VARS        NUMBER OF VARIABLES IN CURRENT TERM         ARITH    1601
                          6110000006              SB1    EL.(                                                    ARITH    1602
          1575  0441002072 +                      EQ     B4,B1,SSP.NS  IF NEXTE IS LEFT PAREN.                   ARITH    1603
                                                                                                                 ARITH    1604
                                        *         FOLLOWING TEST IS NECESSARY TO PREVENT FILING A FUNCTION       ARITH    1605
                                        *         AS VARIABLE IF FIRST OCCURANCE.                                ARITH    1606
                                                                                                                 ARITH    1607
                          7253777775              SX5    X3-MVARS                                                ARITH    1608
          1576  73635                             SX6    X3+B5                                                   ARITH    1609
                     0325002072 +                 PL     X5,SSP.NS   IF MORE VARIABLES IN TERM THAN ALLOWED      ARITH    1610
                               54630              SA6    A3          VARS = VARS + 1                             ARITH    1611
          1577  5160001470 +                      SA6    IDF         FLAG ID ENCOUNTERED IN TERM                 ARITH    1612
                          6170001601 +            SYMBOL                                                         ARITH    1613
          1601  36572                             IX5    X7+X2                                                   ARITH    1614
                     12656                        BX6    X5+X6                                                   ARITH    1615
                          54620                   SA6    A2          UPDATE WORD B                               ARITH    1616
                               22206              LX2    X6                                                      ARITH    1617
          1602  0515001605 +                      NE     B1,B5,PSI1  IF ORD .NE. 1                               ARITH    1618
                          5130000000 X            SA3    =XVALUE.                                                ARITH    1619
          1603  0303002072 +                      ZR     X3,SSP.NS   IF NOT FUNCTION SUBPROGRAM                  ARITH    1620
                          63130                   SB1    X3                                                      ARITH    1621
                               66211              SB2    B1+B1                                                   ARITH    1622
          1604  55102                             SA1    A0-B2                                                   ARITH    1623
                     55215                        SA2    A1-B5                                                   ARITH    1624
                                                                                                                 ARITH    1625
          1605  7160120000               PSI1     SX6    V.FUN+V.DIM                                             ARITH    1626
                          7100000014              SX0    V.LEV3                                                  FCC0385     6
          1606  11461                             BX4    X6*X1                                                   ARITH    1627
                     15302                        BX3    -X2*X0                                                  FCC0385     7
                          76050                   SX0    B5                                                      ARITH    1628
          1607  0314002072 +                      NZ     X4,SSP.NS   IF TYPE FUNCTION OR DIMENSIONED             ARITH    1629
                          0303002072 +            ZR     X3,SSP.NS   IF LEVEL = 3                                FCC0385     8
          1610  20050                             LX0    P.VAR                                                   ARITH    1630
                     12602                        BX6    X0+X2                                                   ARITH    1631
                          20205                   LX2    59-P.EXT                                                ARITH    1632
          1611  0332002072 +                      MI     X2,SSP.NS   IF EXTERNAL                                 ARITH    1633
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    39
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           PSI 
  
                          54620                   SA6    A2          SET VAR BIT                                 ARITH    1634
                               21670              AX6    P.TYP                                                   ARITH    1635
          1612  7236777776                        SX3    X6-T.INT                                                ARITH    1636
                          76610                   SX6    B1                                                      ARITH    1637
          1613  0313002072 +                      NZ     X3,SSP.NS   IF NOT INTEGER                              ARITH    1638
                          5130001474 +            SA3    VARS        NUMBER OF VARIABLES IN TERM                 ARITH    1639
          1614  5263001471 +                      SA6    X3+VAR-1    VAR(VARS) = IH                              ARITH    1640
                          0400001543 +            EQ     SSP0                                                    ARITH    1641
  
  
  
  
                                        **        PSR - PROCESS SUBSCRIPT RIGHT PARENTHESIS.                     ARITH    1643
                                                                                                                 ARITH    1644
          1615  5130001500 +             PSR      SA3    TERM                                                    ARITH    1645
                          73635                   SX6    X3+B5                                                   ARITH    1646
                               54630              SA6    A3          TERM = TERM + 1                             ARITH    1647
          1616  6130000006                        SB3    EL.(                                                    ARITH    1648
                          0654002072 +            LE     B4,B5,SSP.NS  IF OC(NEXTE) .LE. OC.ID                   ARITH    1649
          1617  0443002072 +                      EQ     B4,B3,SSP.NS  IF OC(NEXTE) .EQ. EL.(                    ARITH    1650
                          0100001703 +            CALL   DIT         DUMP IXFN TERM TO ARLIST                    ARITH    1651
          1620  5110001457 +                      SA1    TARLPT                                                  ARITH    1652
                          43774                   MX7    60                                                      ARITH    1653
          1621  5271000000                        SA7    X1+ARLIST   ARLIST(TERM + 1) = -0                       ARITH    1654
          7622  20360000000000001621 +            SUB                                                            ARITH    1655
                          0400001720 +            EQ     PIM         PROCESS IXFN MACRO                          ARITH    1656
  
  
  
                                        **        PCO - PROCESS SUBSCRIPT COMMA.                                 ARITH    1658
                                                                                                                 ARITH    1659
          1622  0100002370 +             PCO      RJ     SSERR3                                                  FCC1226     4
          1623  5130001500 +                      SA3    TERM                                                    FCC1226     5
                          5140001463 +            SA4    NDIMS                                                   ARITH    1661
          1624  73635                             SX6    X3+B5       T = TERM + 1                                ARITH    1662
                     37546                        IX5    X4-X6                                                   ARITH    1663
                          0305002072 +            ZR     X5,SSP.NS   IF T .EQ. NDIMS                             ARITH    1664
          1625  54630                             SA6    A3          TERM = T                                    ARITH    1665
                     0100001703 +                 CALL   DIT         DUMP IXFN TERM TO ARLIST                    ARITH    1666
          1626  13666                             SETZERO  O.TTS,L.TTS   INITIALIZE TERM-TEMP CELLS              ARITH    1667
          1631  76650                             SX6    B5                                                      ARITH    1668
                     5160001475 +                 SA6    MC          MC(1) = 1                                   ARITH    1669
                               54665              SA6    A6+B5       MC(2) = 1                                   ARITH    1670
          1632  54665                             SA6    A6+B5       MC(3) = 1                                   ARITH    1671
                     0400001543 +                 EQ     SSP0                                                    ARITH    1672
  
  
  
  
                                        **        PSM - PROCESS SUBSCRIPT MINUS SIGN.                            ARITH    1674
                                                                                                                 ARITH    1675
          1633  0100001642 +             PSM      CALL   PPM         COMMON PLUS-MINUS PROCESSING                ARITH    1676
          1634  43773                             MX7    59                                                      ARITH    1677
                     0440001637 +                 ZR     B4,PSM1     IF NEXTE IS CONSTANT                        ARITH    1678
          1635  0545002072 +                      NE     B4,B5,SSP.NS      IF NEXTE IS NOT ID                    ARITH    1679
                          5130001474 +            SA3    VARS        VARIABLES IN THIS TERM SO FAR               ARITH    1680
          1636  5273001475 +                      SA7    X3+MC       MC(VARS+1) = -1                             ARITH    1681
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    40
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           PSM 
  
                          0400001543 +            EQ     SSP0                                                    ARITH    1682
                                                                                                                 ARITH    1683
          1637  5170001466 +             PSM1     SA7    COMP        COMPLEMENT FLAG .NE. 0                      ARITH    1684
                          0400001543 +            EQ     SSP0                                                    ARITH    1685
  
  
  
                                        **        PSP - PROCESS SUBSCRIPT PLUS SIGN.                             ARITH    1687
                                                                                                                 ARITH    1688
          1640  0100001642 +             PSP      CALL   PPM         COMMON PLUS-MINUS PROCESSING                ARITH    1689
          1641  0400001543 +                      EQ     SSP0                                                    ARITH    1690
  
  
  
                                        **        PPM - PROCESS PLUS OR MINUS.                                   ARITH    1692
                                        *         PPM CHECKS FOR VALID SYNTAX AND ANSI COMPATABILITY.            ARITH    1693
                                        *         IT ALSO ADDS THE CURRENT CONTENTS OF THE TEMP CONSTANT         ARITH    1694
                                        *         BUFFER, CONST, TO THE ACCUMULATED ADDITIVE CONSTANT IN         ARITH    1695
                                        *         ACT.  THE ID-ENCOUNTERED FLAG, IDF, AND THE CONST BUFFER       ARITH    1696
                                        *         ARE THEN BOTH ZEROED.                                          ARITH    1697
                                                                                                                 ARITH    1698
          1642  0400401642 +             PPM      ENTRY. *                                                       ARITH    1699
          1643  0100002406 +                      CALL   SSERR6      CHECK THIS-NEXT SYNTAX                      ARITH    1700
          1644  43701                             MX7    1                                                       ARITH    1701
                     0440001646 +                 ZR     B4,PPM1     IF NEXTE IS CONSTANT                        ARITH    1702
          1645  5170001501 +                      SA7    NANSI       NON-ANSI USE                                ARITH    1703
                          0400001653 +            EQ     PPM3                                                    ARITH    1704
                                                                                                                 ARITH    1705
          1646  5130001462 +             PPM1     SA3    TEP                                                     ARITH    1706
                          53435                   SA4    X3+B5                                                   ARITH    1707
                               26074              UX0    B7,X4                                                   ARITH    1708
          1647  0475001651 +                      EQ     B7,B5,PPM2  IF PREVIOUS ELIST IS ID                     ARITH    1709
                          5170001501 +            SA7    NANSI       NON-ANSI USAGE                              ARITH    1710
          1650  0400001653 +                      EQ     PPM3                                                    ARITH    1711
                                                                                                                 ARITH    1712
          1651  5130001471 +             PPM2     SA3    PMF                                                     ARITH    1713
                          0303001653 +            ZR     X3,PPM3     IF NO + OR - PRECEDING IN THIS TERM         ARITH    1714
          1652  5170001501 +                      SA7    NANSI       NON-ANSI USAGE                              ARITH    1715
                                                                                                                 ARITH    1716
          1653  5170001471 +             PPM3     SA7    PMF         PLUS OR MINUS FLAG                          ARITH    1717
                          5130001465 +            SA3    ACT         ADDITIVE CONSTANT SUM                       ARITH    1718
          1654  5140001467 +                      SA4    CONSTT                                                  ARITH    1719
                          43600                   MX6    0                                                       ARITH    1720
                               36734              IX7    X3+X4                                                   ARITH    1721
          1655  5160001470 +                      SA6    IDF         IDFLAG = 0                                  ARITH    1722
                          54730                   SA7    A3          ACT = ACT + CONST                           ARITH    1723
                               54640              SA6    A4          CONST = 0                                   ARITH    1724
          1656  0400001642 +                      EQ     PPM                                                     ARITH    1725
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    41
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           PSS 
  
                                        **        PSS - PROCESS SUBSCRIPT STAR.                                  ARITH    1727
                                                                                                                 ARITH    1728
          1657  0440001672 +             PSS      ZR     B4,PSS2     IF NEXTE IS CONSTANT                        ARITH    1729
                          0545002072 +            NE     B4,B5,SSP.NS  IF NEXTE IS NOT ID                        ARITH    1730
          1660  5130001470 +                      SA3    IDF         ID-IN-TERM-ENCOUNTERED FLAG                 ARITH    1731
                          0313002072 +            NZ     X3,SSP.NS   IF ID1*ID2  OR  ID1*CON*ID2, ETC.           ARITH    1732
          1661  5150001462 +                      SA5    TEP         TEMP ELIST POINTER                          ARITH    1733
                          6130000006              SB3    EL.(                                                    ARITH    1734
          1662  5245000002                        SA4    X5+2                                                    FCC0578     5
                          26074                   UX0    B7,X4                                                   ARITH    1736
                               43701              MX7    1                                                       ARITH    1737
          1663  0473001665 +                      EQ     B7,B3,PSS1  IF CON PRECEDED BY (                        ARITH    1738
                          6130000003              SB3    EL.COMMA                                                ARITH    1739
          1664  0473001665 +                      EQ     B7,B3,PSS1  IF CON PRECEDED BY COMMA                    ARITH    1740
                          5170001501 +            SA7    NANSI       NON-ANSI USAGE                              ARITH    1741
                                                                                                                 ARITH    1742
          1665  5130001474 +             PSS1     SA3    VARS        (X3) = NO OF VARIABLES IN TERM SO FAR       ARITH    1743
                          5120001467 +            SA2    CONSTT      C = CONSTT                                  ARITH    1744
          1666  43700                             MX7    0                                                       ARITH    1745
                     54720                        SA7    A2          CONST = 0                                   ARITH    1746
                          5213001475 +            SA1    X3+MC       X1 = MC(VARS+1)                             ARITH    1747
          1667  42612                             IX6    X1*X2                                                   ARITH    1748
                     73460                        SX4    X6                                                      ARITH    1749
                          13364                   BX3    X6-X4                                                   ARITH    1750
          1670  0313002072 +                      NZ     X3,SSP.NS   IF PRODUCT .GE. 1S17                        ARITH    1751
                          54610                   SA6    A1          MC(VARS+1) = MC(VARS+1) * C                 ARITH    1752
          1671  0400001543 +                      EQ     SSP0                                                    ARITH    1753
                                                                                                                 ARITH    1754
          1672  43701                    PSS2     MX7    1                                                       ARITH    1755
                     5170001501 +                 SA7    NANSI       *CON NON-ANSI IN SUBSCRIPT                  ARITH    1756
                               10122              BX1    X2          (X1) = ELIST(CON)                           ARITH    1757
          1673  0100001562 +                      CALL   ECON        GET CONSTANT AND CHECK FOR ANSI USAGE       ARITH    1758
          1674  5150001470 +                      SA5    IDF                                                     ARITH    1759
                          5120001467 +            SA2    CONSTT      (X2) = PREVIOUS CONST BUFFER                ARITH    1760
          1675  22106                             LX1    X6          (X1) = CON                                  ARITH    1761
                     0305001677 +                 ZR     X5,PSS3     IF NO ID IN TERM YET                        ARITH    1762
          1676  5130001474 +                      SA3    VARS                                                    ARITH    1763
                          5223001474 +            SA2    X3+MC-1     (X2) = MC(VARS)                             ARITH    1764
                                                                                                                 ARITH    1765
          1677  42612                    PSS3     IX6    X1*X2                                                   ARITH    1766
                     73460                        SX4    X6                                                      ARITH    1767
                          13364                   BX3    X6-X4                                                   ARITH    1768
          1700  0313002072 +                      NZ     X3,SSP.NS   IF PRODUCT .GE. 1S17                        ARITH    1769
                          5110001462 +            SA1    TEP                                                     ARITH    1770
          1701  7271777776                        SX7    X1-1                                                    ARITH    1771
                          54620                   SA6    A2          MC(VARS) = MC(VARS) * CON  OR               ARITH    1772
                                        *                            CONST = CONST * CON                         ARITH    1773
                               54710              SA7    A1          ADVANCE EPOINT OVER CONSTANT                ARITH    1774
          1702  0400001543 +                      EQ     SSP0                                                    ARITH    1775
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    42
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           DIT 
  
                                        **        DUMP INFORMATION PERTAINING TO ONE TERM OF SUBSCRIPT TO        ARITH    1777
                                        *         ARLIST BUFFER.                                                 ARITH    1778
                                                                                                                 ARITH    1779
          1703  0400401703 +             DIT      ENTRY. *                                                       ARITH    1780
          1704  5130001465 +                      SA3    ACT                                                     ARITH    1781
                          5140001467 +            SA4    CONSTT                                                  ARITH    1782
          1705  36634                             IX6    X3+X4                                                   ARITH    1783
                     7276777776                   SX7    X6-1                                                    ARITH    1784
                               43052              MX0    -IX.MCL                                                 ARITH    1785
          1706  54730                             SA7    A3          ACT = ACT + CONST - 1                       ARITH    1786
                     5120001500 +                 SA2    TERM                                                    ARITH    1787
          1707  5150001456 +                      SA5    DCF                                                     ARITH    1788
                          5110001457 +            SA1    TARLPT      POINTER WITHIN ARLIST BLOCK                 ARITH    1789
          1710  20266                             LX2    IX.SUBP                                                 ARITH    1790
                     5130001475 +                 SA3    MC                                                      ARITH    1791
                               63650              SB6    X5          (B6) = DOUBLE/COMPLEX FLAG                  ARITH    1792
          1711  22363                             LX3    B6          MULTIPLY MC * 2 FOR 2 WORD ARRAYS           ARITH    1793
                     5140001472 +                 SA4    VAR                                                     ARITH    1794
                               15330              BX3    -X0*X3                                                  ARITH    1795
          1712  20344                             LX3    IX.MCP                                                  ARITH    1796
                     12623                        BX6    X2+X3                                                   ARITH    1797
                                                  LX4    IX.IHP                                                  ARITH    1798
                          12764                   BX7    X6+X4                                                   ARITH    1799
          1713  5271000000                        SA7    ARLIST+X1                                               ARITH    1800
          7623  20360000000000001713 +            SUB                                                            ARITH    1801
                                                                                                                 ARITH    1802
                          54335                   SA3    A3+B5       MC(2)                                       ARITH    1803
                               22363              LX3    B6                                                      ARITH    1804
          1714  15330                             BX3    -X0*X3                                                  ARITH    1805
                     20344                        LX3    IX.MCP                                                  ARITH    1806
                          54445                   SA4    A4+B5       VAR(2)                                      ARITH    1807
                               12623              BX6    X2+X3                                                   ARITH    1808
                                                  LX4    IX.IHP                                                  ARITH    1809
          1715  12764                             BX7    X6+X4                                                   ARITH    1810
                     54775                        SA7    A7+B5       STORE SECOND VARIABLE INFORMATION           ARITH    1811
                                                                                                                 ARITH    1812
                          5130001465 +            SA3    ACT                                                     ARITH    1813
          1716  22663                             LX6    X3,B6       ADDITIVE CONSTANT = ACT S DCF               ARITH    1814
                     54675                        SA6    A7+B5       ADDITIVE CONSTANT WORD                      ARITH    1815
                          7271000003              SX7    X1+3                                                    ARITH    1816
          1717  54710                             SA7    A1          UPDATE ARLPT                                ARITH    1817
                     0400001703 +                 EQ     DIT         RETURN                                      ARITH    1818
  
  
  
  
                                        **        PIM - PROCESS IXFN MACRO.                                      ARITH    1820
                                        *                                                                        ARITH    1821
                                        *         OUTPUT STANDARD SUBSCRIPT MACRO TO ARLIST.                     ARITH    1822
                                                                                                                 ARITH    1823
          1720  5110001501 +             PIM      SA1    NANSI                                                   ARITH    1824
                          5120000000 +            SA2    SAVDAN                                                  FCC0218     6
          1721  0312001723 +                      NZ     X2,PIM0A    IF CALLED FROM LISTIO COLLAPSE              FCC0218     7
                          0301001723 +            ZR     X1,PIM0A    IF NO NON-ANSI ASPECTS TO IXFN              ARITH    1825
          1722  6160000271                        USASDM ERMSG40     NON-STANDARD SUBSCRIPT                      ARITH    1826
                                                                                                                 ARITH    1827
          1723  5110001500 +             PIM0A    SA1    TERM                                                    ARITH    1828
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    43
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           PIM 
  
                          5120001463 +            SA2    NDIMS                                                   ARITH    1829
          1724  37621                             IX6    X2-X1                                                   ARITH    1830
                     0306001726 +                 ZR     X6,PIM0B    IF TERM = NDIMS                             ARITH    1831
          1725  6160000235                        USASDM ERMSG23     FEWER SUBSCRIPTS THAN DIMENSIONS            ARITH    1832
                                                                                                                 ARITH    1833
          1726  5130001456 +             PIM0B    SA3    DCF                                                     ARITH    1834
                          63630                   SB6    X3          (B6) = DOUBLE/ COMPLEX FLAG                 ARITH    1835
          1727  0100002035 +                      CALL   DIL         OUTPUT SIMPLE LOAD IF SUBSCRIPT IS CONSTANT ARITH    1836
          1730  5110001462 +                      SA1    TEP                                                     ARITH    1837
                          7271777776              SX7    X1-1                                                    ARITH    1838
          1731  5120001502 +                      SA2    DAF                                                     ARITH    1839
                          0312002073 +            NZ     X2,SSP.NS1  IF DEBUGGING ON FOR THIS ARRAY              ARITH    1840
          1732  5170000032                        SA7    EPOINT      SET EPOINT BEYOND )                         ARITH    1841
                          5110000005 C            SA1    ARLPT       INDEX TO FIRST AVAILABLE ARLIST WORD        ARITH    1842
          1733  43400                             MX4    0                                                       ARITH    1843
                     0301001736 +                 ZR     X1,PIM1     IF NO ENTRIES IN ARLIST YET                 ARITH    1844
          1734  5120001061 +                      SA2    LASTR       HEADER OF LAST ENTRY                        ARITH    1845
                          53320                   SA3    X2                                                      ARITH    1846
                               10033              BX0    X3                                                      ARITH    1847
          1735  21073                             AX0    59                                                      ARITH    1848
                     13303                        BX3    X0-X3                                                   ARITH    1849
                          20352                   LX3    -18                                                     ARITH    1850
                               73430              SX4    X3          NUMBER OF WORDS IN PREVIOUS ENTRY           ARITH    1851
                                                                                                                 ARITH    1852
          1736  5150001500 +             PIM1     SA5    TERM        (X5) = NUMBER OF TERMS IN PROCESSED IXFN    ARITH    1853
                          22255                   LX2    X5,B5                                                   ARITH    1854
                               36325              IX3    X2+X5       (X3) = 3 * TERMS                            ARITH    1855
          1737  7253000005                        SX5    X3+5        (X5) = NUMBER OF WORDS IN ARLIST ENTRY      ARITH    1856
                          7223000002              SX2    X3+2        (X2) = NUMBER WORDS FOLLOWING FOR HEADER    ARITH    1857
          1740  20522                             LX5    18                                                      ARITH    1858
                     12445                        BX4    X4+X5                                                   ARITH    1859
                          5130000326 +            SA3    NAME+1      WORD B OF ARRAY                             ARITH    1860
          1741  20236                             LX2    30                                                      ARITH    1861
                     43070                        MX0    -L.TYP                                                  ARITH    1862
                          20304                   LX3    -P.TYP                                                  ARITH    1863
                               15030              BX0    -X0*X3      TYPE OF ARRAY                               ARITH    1864
          1742  63100                             SB1    X0                                                      ARITH    1865
                     27614                        PX6    B1,X4                                                   ARITH    1866
                          5150000005 +            SA5    EQCOUNT     EQUAL SIGN COUNT                            ARITH    1867
          1743  73450                             SX4    X5                                                      ARITH    1868
                     20445                        LX4    37                                                      ARITH    1869
                          12764                   BX7    X6+X4                                                   ARITH    1870
          1744  5271000000                        SA7    X1+ARLIST   ARLIST HEADER WORD                          ARITH    1871
          7624  20360000000000001744 +            SUB                                                            ARITH    1872
                                                                                                                 ARITH    1873
                          5140000003 +            SA4    IDORDL                                                  ARITH    1874
          1745  10744                             BX7    X4                                                      ARITH    1875
                     54775                        SA7    A7+B5       IH OF ARRAY TO SECOND WORD OF ENTRY         ARITH    1876
                                                                                                                 ARITH    1877
                          5130000064              SA3    NARN                                                    ARITH    1878
          1746  6120777773                        SB2    -STLMAC     IXFN MACRO OP CODE                          ARITH    1879
                          12232                   BX2    X3+X2       (X2) = 30/NWF,30/RI                         ARITH    1880
                               76060              SX0    B6          (X0) = DOUBLE WORD ARRAY FLAG               ARITH    1881
          1747  20020                             LX0    RM.RIL      POSITION ARRAY TYPE                         ARITH    1882
                     12720                        BX7    X2+X0       (X6) = 30/NWF,14/TYPE,16/RI                 ARITH    1883
                          27727                   PX7    B2,X7                                                   ARITH    1884
                               54775              SA7    A7+B5     WORD 1 OF IXFN = 12/P(OC),18/NWF,14/TYP,16/RI ARITH    1885
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    44
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           PIM 
  
                                                                                                                 ARITH    1886
          1750  73635                             SX6    X3+B5                                                   ARITH    1887
                     73666                        SX6    X6+B6       NARNT = NARN + 1 + DOUBLE WORD BIT          ARITH    1888
                          54630                   SA6    A3          NARN = NARNT                                ARITH    1889
                               10744              BX7    X4          (X7) = ORDINAL OF ARRAY                     ARITH    1890
          1751  6170001754 +                      SB7    PIM2                                                    ARITH    1891
                          5160007605 +            SA6    SAVENARN                                                ARITH    1892
          1752  0100006266 +                      CALL   EQUIVR                                                  ARITH    1893
          1753  20622                             LX6    IX.CAP                                                  ARITH    1894
                     12767                        BX7    X6+X7       IH,CA OF EQUIVALENCED ARRAY                 ARITH    1895
          1754  54775                    PIM2     SA7    A7+B5       WORD 2 OF IXFN = IH,CA OF ARRAY             ARITH    1896
                                                                                                                 ARITH    1897
                     5120000331 +                 SA2    SDIMIN                                                  ARITH    1898
                               10722              BX7    X2                                                      ARITH    1899
          1755  54775                             SA7    A7+B5       WORD 3 OF IXFN = DIMENSION INFO             ARITH    1900
                                                                                                                 ARITH    1901
                     5120007604 +                 SA2    REFSELCT    LOCAL COPY OF LONG MAP FLAG                 ARITH    1902
          1756  0302001766 +                      ZR     X2,PIM4     IF NO LONG MAP                              ARITH    1903
                          5110000005 C            SA1    ARLPT                                                   ARITH    1904
          1757  7261000003                        SX6    X1+ARLIST+3                                             ARITH    1905
          7625  20360000000000001757 +            SUB                                                            ARITH    1906
                          5160001460 +            SA6    REFTEMP                                                 ARITH    1907
                                                                                                                 ARITH    1908
          1760  5110001461 +             PIM3     SA1    INC         INCREMENT FOR MACRO TERM ACCESS             ARITH    1909
                          7100000003              SX0    3                                                       ARITH    1910
                                                                                                                 ARITH    1911
                                        *         TOGGLE INDEX INCREMENT BETWEEN 1 AND 2.  THIS CAUSES EVERY     ARITH    1912
                                        *         THIRD WORD OF MACRO (WHICH CONTAINS ADDITIVE CONSTANT          ARITH    1913
                                        *         INFORMATION) TO BE SKIPPED.                                    ARITH    1914
                                                                                                                 ARITH    1915
          1761  37601                             IX6    X0-X1                                                   ARITH    1916
                     5120001460 +                 SA2    REFTEMP                                                 ARITH    1917
                               36726              IX7    X2+X6       NEXT VARIABLE INFO WORD                     ARITH    1918
          1762  53370                             SA3    X7                                                      ARITH    1919
                     0333001766 +                 MI     X3,PIM4     IF VARIABLE WORD .LT. 0                     ARITH    1920
                               54610              SA6    A1          STORE TOGGLED INCREMENT                     ARITH    1921
          1763  54720                             SA7    A2          REFTEMP = ADDRESS OF CURRENT VARIABLE WORD  ARITH    1922
                                                  LX3    -IX.IHP                                                 ARITH    1923
                     63130                        SB1    X3                                                      ARITH    1924
                          0410001760 +            ZR     B1,PIM3     IF THIS VARIABLE DID NOT APPEAR             ARITH    1925
          1764  43200                             ADDREF B1,REF      NOTE REFERENCE                              ARITH    1926
          1765  0400001760 +                      EQ     PIM3                                                    ARITH    1927
                                                                                                                 ARITH    1928
          1766  6170001777 +             PIM4     SB7    PIM6                                                    ARITH    1929
                          5120000005 C            SA2    ARLPT                                                   ARITH    1930
          1767  43030                             MX0    -IX.CAIHL                                               ARITH    1931
                     66655                        SB6    B5+B5       (B6) = IXFN ACCESS INCREMENT = 2            ARITH    1932
                          5110000012              SA1    SYM1                                                    ARITH    1933
          1770  66365                             SB3    B6+B5       (B3) = 3                                    ARITH    1934
                     53010                        SA0    X1                                                      ARITH    1935
                          5232000003              SA3    X2+ARLIST+3                                             ARITH    1936
          7626  20740000000000001770 +            SUB                                                            ARITH    1937
                                                                                                                 ARITH    1938
          1771  54336                    PIM5     SA3    A3+B6       NEXT VARIABLE TERM FROM MACRO               ARITH    1939
                     0333002001 +                 MI     X3,PIM7     IF VARIABLE WORD .LT. 0                     ARITH    1940
                                                  LX3    -IX.IHP                                                 ARITH    1941
                               15630              BX6    -X0*X3      SYMTAB ORDINAL                              ARITH    1942
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    45
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           PIM 
  
          1772  0306002000 +                      ZR     X6,PIM6A    IF THIS VARIABLE DID NOT APPEAR             ARITH    1943
                          36166                   IX1    X6+X6                                                   ARITH    1944
                               63410              SB4    X1                                                      ARITH    1945
          1773  55104                             SA1    A0-B4       WORD A OF VARIABLE/S SYMTAB ENTRY           ARITH    1946
                     55215                        SA2    A1-B5       WORD B                                      ARITH    1947
                          10611                   BX6    X1                                                      ARITH    1948
                               22702              LX7    X2                                                      ARITH    1949
          1774  5160000325 +                      SA6    NAME                                                    ARITH    1950
                          54765                   SA7    A6+B5                                                   ARITH    1951
                               15630              BX6    -X0*X3                                                  ARITH    1952
          1775  0100006266 +                      CALL   EQUIVR                                                  ARITH    1953
          1776  20622                             LX6    IX.CAP                                                  ARITH    1954
                     12667                        BX6    X6+X7                                                   ARITH    1955
                                                                                                                 ARITH    1956
                                         PIM6     LX3    IX.IHP                                                  ARITH    1957
          1777  43030                             MX0    -IX.CAIHL                                               ARITH    1958
                     11103                        BX1    X0*X3       CLEAR IH,CA                                 ARITH    1959
                                                  LX6    -IX.IHP                                                 ARITH    1960
                          12761                   BX7    X6+X1                                                   ARITH    1961
                               54730              SA7    A3          RESET EQUIVALENCED IH,CA                    ARITH    1962
                                                                                                                 ARITH    1963
          2000  67636                    PIM6A    SB6    B3-B6       TOGGLE INCREMENT                            ARITH    1964
                     0400001771 +                 EQ     PIM5                                                    ARITH    1965
                                                                                                                 ARITH    1966
          2001  5130000005 C             PIM7     SA3    ARLPT                                                   ARITH    1967
                          5110001457 +            SA1    TARLPT                                                  ARITH    1968
          2002  5120000032 +                      SA2    RL2                                                     ARITH    1969
                          10611                   BX6    X1                                                      ARITH    1970
                               22702              LX7    X2                                                      ARITH    1971
          2003  54630                             SA6    A3          ARLPT = TARLPT                              ARITH    1972
                     5170000031 +                 SA7    RL1         RL1 = RL2                                   ARITH    1973
          2004  7263000000                        SX6    ARLIST+X3                                               ARITH    1974
          7627  20360000000000002004 +            SUB                                                            ARITH    1975
                          54620                   SA6    A2          RL2 = HEAD OF IXFN JUST OUTPUT              ARITH    1976
          2005  5160001061 +                      SA6    LASTR       LASTR = RL2                                 ARITH    1977
                                                                                                                 ARITH    1978
                                        *         OUTPUT IO RESTART CALL IF IN AN INPUT STATEMENT WHICH          ARITH    1979
                                        *         PREVIOUSLY CONTAINED A VARIABLE THAT IS IN A TERM OF THIS      ARITH    1980
                                        *         IXFN.                                                          ARITH    1981
                                                                                                                 ARITH    1982
                          5120000401 +            SA2    IXFNFG                                                  ARITH    1983
          2006  0302001066 +                      ZR     X2,NEXTE    IF NOT IN AN I/O LIST                       ARITH    1984
                          5130006533 +            SA3    REFTYPE                                                 ARITH    1985
          2007  0323001066 +                      PL     X3,NEXTE    IF NOT INPUT                                ARITH    1986
                          5140000000 X            SA4    PARCNT                                                  ARITH    1987
          2010  0304001066 +                      ZR     X4,NEXTE    IF NOTHING TO OUTPUT                        ARITH    1988
                          5150000000 X            SA5    =XIONAME                                                FCC1479X    9
          2011  0305001066 +                      ZR     X5,NEXTE    IF LIST NOT BEING PROCESSED YET             FCC1479X   10
                          5110000000 X            SA1    L.IOLST                                                 ARITH    1991
          2012  0301001066 +                      ZR     X1,NEXTE    IF NO PRECEDING INTEGER VARIABLES           ARITH    1992
                          5130006536 +            SA3    ABIO                                                    FCC0614    13
          2013  0313001066 +                      NZ     X3,NEXTE    IF BUFFER I/O OR ENCODE/DECODE VARIABLE     FCC0614    14
                          5120001061 +            SA2    LASTR       POINTS TO HEADER OF IXFN JUST OUTPUT        ARITH    1993
          2014  5130000000 X                      SA3    O.IOLST     TABLE ORIGIN                                ARITH    1994
                          63610                   SB6    X1          TABLE LENGTH                                ARITH    1995
          2015  5212000003                        SA1    X2+5-2      FIRST VARIABLE IH,CA WORD IN IXFN           ARITH    1996
                          43052                   MX0    -IX.IHL                                                 ARITH    1997
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    46
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           PIM 
  
                               43752              MX7    -IX.CAL                                                 ARITH    1998
          2016  66755                             SB7    B5+B5       B7 = IXFN INDEX INCREMENT = 2               ARITH    1999
                     56075                        SA0    B7+B5       A0 = 3                                      ARITH    2000
                                                                                                                 ARITH    2001
          2017  54117                    PIM8     SA1    A1+B7       NEXT IXFN VARIABLE                          ARITH    2002
                     0331001066 +                 MI     X1,NEXTE    IF END OF IXFN                              ARITH    2003
                               66260              SB2    B6          L.IOLST                                     ARITH    2004
          2020  5223777776                        SA2    X3-1        FWA OF IOLST - 1                            ARITH    2005
                          65707                   SB7    A0-B7       TOGGLE INCREMENT                            ARITH    2006
                                                                                                                 ARITH    2007
          2021  0420002017 +             PIM9     ZR     B2,PIM8     IF END OF IOLST                             ARITH    2008
                          54225                   SA2    A2+B5       NEXT IOLST ENTRY                            ARITH    2009
                                                  LX1    -IX.IHP                                                 ARITH    2010
                               15410              BX4    -X0*X1                                                  ARITH    2011
                                                  LX2    -AP.IHP                                                 ARITH    2012
          2022  15520                             BX5    -X0*X2                                                  ARITH    2013
                     37645                        IX6    X4-X5                                                   ARITH    2014
                          67225                   SB2    B2-B5                                                   ARITH    2015
                               20205              LX2    AP.IHP+59-AP.CRP                                        ARITH    2016
          2023  0316002021 +                      NZ     X6,PIM9     IF NO MATCH ON IH                           ARITH    2017
                          0332002026 +            MI     X2,PIM10    IF PREVIOUS USE WAS CLASS REFERENCE         ARITH    2018
          2024  20152                             LX1    IX.IHP-IX.CAP                                           ARITH    2019
                     15417                        BX4    -X7*X1      EXTRACT CA FROM IXFN TERM                   ARITH    2020
                          20245                   LX2    AP.CRP-59-AP.CAP                                        ARITH    2021
                               15527              BX5    -X7*X2      EXTRACT CA FROM IOLST ENTRY                 ARITH    2022
          2025  37645                             IX6    X4-X5                                                   ARITH    2023
                     0316002021 +                 NZ     X6,PIM9     IF NO MATCH ON CA                           ARITH    2024
                                                                                                                 ARITH    2025
          2026  43054                    PIM10    MX0    -RM.RIL                                                 ARITH    2026
                     5120001061 +                 SA2    LASTR                                                   ARITH    2027
          2027  5252000002                        SA5    X2+2        MACRO HEADER                                ARITH    2028
                          76350                   SX3    B5                                                      ARITH    2029
                               15650              BX6    -X0*X5      RESULT NUMBER                               ARITH    2030
          2030  36735                             IX7    X3+X5       INCREMENT RESULT NUMBER                     ARITH    2031
                     5160000064                   SA6    NARN        FOR RESTART CALL                            ARITH    2032
                               54750              SA7    A5                                                      ARITH    2033
          2031  0100000000 X                      CALL   IARC        OUTPUT RESTART CALL                         ARITH    2034
          2032  5120007605 +                      SA2    SAVENARN                                                ARITH    2035
                          43700                   MX7    0                                                       ARITH    2036
                               73625              SX6    X2+B5                                                   ARITH    2037
          2033  5170000000 X                      SA7    L.IOLST                                                 ARITH    2038
                          5160000064              SA6    NARN                                                    ARITH    2039
          2034  0400001066 +                      EQ     NEXTE                                                   ARITH    2040
  
  
  
  
                                        **        DIL - DEGENERATE IXFN TO LOAD.                                 ARITH    2042
                                        *         OUTPUT SIMPLE LOAD (IH,CA) IF SUBSCRIPT VALUE IS A CONSTANT    ARITH    2043
                                        *         AT COMPILE TIME.                                               ARITH    2044
                                                                                                                 ARITH    2045
          2035  0400402035 +             DIL      ENTRY. *                                                       ARITH    2046
          2036  5130000331 +                      SA3    SDIMIN      DIMENSION INFO                              ARITH    2047
                          43003                   MX0    3                                                       ARITH    2048
                               20071              LX0    -3                                                      ARITH    2049
          2037  11603                             BX6    X0*X3       EXTRACT P(ABC) (VARIABLE DIMENSION BITS)    ARITH    2050
                     20602                        LX6    2                                                       ARITH    2051
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    47
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           DIL 
  
                          5110000005 C            SA1    ARLPT                                                   ARITH    2052
          2040  43700                             MX7    0           CA = 0                                      ARITH    2053
                     76550                        SX5    B5          MULT = 1                                    ARITH    2054
                          43052                   MX0    -IH.IHL                                                 ARITH    2055
          2041  6271000005                        SB7    ARLIST+X1+5   FIRST TERM WORD                           ARITH    2056
          7630  20360000000000002041 +            SUB                                                            ARITH    2057
                                                                                                                 ARITH    2058
          2042  56170                    DIL1     SA1    B7                                                      ARITH    2059
                     0301002050 +                 ZR     X1,DIL2     IF TERM IS EMPTY                            ARITH    2060
          2043  0336002035 +                      MI     X6,DIL      IF DIM(TERM-1) IS VARIABLE                  ARITH    2061
                                                  LX1    -IH.IHP                                                 ARITH    2062
                          15210                   BX2    -X0*X1                                                  ARITH    2063
          2044  0312002035 +                      NZ     X2,DIL      IF TERM CONTAINS VARIABLE                   ARITH    2064
                          5127000002              SA2    B7+2        ADDITIVE CONSTANT                           ARITH    2065
          2045  20601                             LX6    1           POSITION NEXT VARIABLE DIMENSION BIT        ARITH    2066
                     42452                        IX4    X5*X2                                                   ARITH    2067
                          64725                   SB7    A2+B5       INCREMENT TERM COUNTER                      ARITH    2068
                               73130              SX1    X3                                                      ARITH    2069
          2046  36747                             IX7    X4+X7       CA = CA + MULT * (AC - 1)                   ARITH    2070
                     42551                        IX5    X5*X1       MULT = MULT * DIM(I - 1)                    ARITH    2071
                          21322                   AX3    18          I = I + 1                                   ARITH    2072
          2047  0400002042 +                      EQ     DIL1                                                    ARITH    2073
                                                                                                                 ARITH    2074
          2050  5110000003 +             DIL2     SA1    IDORDL                                                  ARITH    2075
                          5170000006 +            SA7    NCA                                                     ARITH    2076
          2051  54330                             SA3    A3          RELOAD DIM INFO                             ARITH    2078
                     10066                        BX0    X6                                                      ARITH    2079
                          21344                   AX3    36                                                      ARITH    2080
          2052  7223777776                        SX2    X3-1        PRODUCT OF DIMENSIONS -  1                  ARITH    2081
                          37627                   IX6    X2-X7                                                   ARITH    2082
                               12676              BX6    X7+X6       .LT. 0 IFF REF OUT OF BOUNDS                ARITH    2083
          2053  5120001502 +                      SA2    DAF                                                     ARITH    2084
                          0300002055 +            ZR     X0,DIL2A    IF NO DIMENSIONS VARIABLE                   ARITH    2085
          2054  10677                             BX6    X7          DIAGNOSE SUBSCRIPTS .LT. 1 ONLY             ARITH    2086
                                                                                                                 ARITH    2087
          2055  0302002061 +             DIL2A    ZR     X2,DIL3     IF NO DEBUGGING ON FOR THIS ARRAY           ARITH    2088
                          0336002057 +            MI     X6,DIL2B    IF OUT OF BOUNDS                            FCC0654     5
          2056  0300002061 +                      ZR     X0,DIL3     IF NO VARIABLE DIMENSIONS                   FCC0654     6
                          0400002073 +            EQ     SSP.NS1     GO COMPILE EXECUTION CHECK CODE             FCC0654     7
                                                                                                                 FCC0654     8
          2057  6160000113               DIL2B    IDM    ERMSG75     CONSTANT SUBSCRIPT OUT OF RANGE             FCC0654     9
          2060  0400002073 +                      EQ     SSP.NS1                                                 ARITH    2091
                                                                                                                 ARITH    2092
          2061  5160001464 +             DIL3     SA6    OBR                                                     ARITH    2093
                          5170000036 +            SA7    IDORDLTS+1  RAW CA FOR FETCH                            ARITH    2094
          2062  43600                             MX6    0                                                       ARITH    2095
                     10711                        BX7    X1                                                      ARITH    2096
                          5170000035 +            SA7    IDORDLTS    RAW IH FOR FETCH                            ARITH    2097
          2063  6170002064 +                      SB7    DIL4        RETURN IF NON-EQ1IVALENCED                  ARITH    2098
                          0100006266 +            CALL   EQUIVR                                                  ARITH    2099
                                                                                                                 ARITH    2100
          2064  5110000006 +             DIL4     SA1    NCA         CA FROM SUBSCRIPT                           ARITH    2101
                          73570                   SX5    X7          EQIVALENCED IH                              ARITH    2102
                               36361              IX3    X6+X1                                                   ARITH    2103
          2065  66600                             SB6    B0          RF FOR FETCH                                ARITH    2104
                     63730                        SB7    X3          CA INCLUDING EQUIV. INFO                    ARITH    2105
                          0100005650 +            CALL   FETCH                                                   ARITH    2106
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    48
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           DIL 
  
          2066  5110001464 +                      SA1    OBR                                                     ARITH    2107
                          0321002070 +            PL     X1,DIL5     IF REF WITHIN DIMENSION BOUNDS              ARITH    2108
          2067  6160000113                        IDM    ERMSG75                                                 ARITH    2109
                                                                                                                 ARITH    2110
          2070  5110001462 +             DIL5     SA1    TEP                                                     ARITH    2111
                          7271777776              SX7    X1-1                                                    ARITH    2112
          2071  5170000032                        SA7    EPOINT      SET EPOINT BEYOND )                         ARITH    2113
                          0400001066 +            EQ     NEXTE       EXIT TO MAIN LOOP                           ARITH    2114
  
  
  
  
                                        *         NON-STANDARD SUBSCRIPT ENCOUNTERED.                            ARITH    2116
                                                                                                                 ARITH    2117
          2072  6160000271               SSP.NS   USASDM ERMSG40     NON-ANSI SUBSCRIPT                          ARITH    2118
          2073  5110007603 +             SSP.NS1  SA1    PARLEVEL                                                ARITH    2119
                          5120000032              SA2    EPOINT                                                  ARITH    2120
          2074  7272777776                        SX7    X2-1                                                    ARITH    2121
                          54720                   SA7    A2                                                      ARITH    2122
          2075  7261000001                        SX6    X1+1                                                    ARITH    2123
                          54610                   SA6    A1          INCREMENT PAREN COUNT                       ARITH    2124
          2076  5120000401 +                      SA2    IXFNFG                                                  ARITH    2125
                          0302002106 +            ZR     X2,NSSETUP0       IF NOT IN AN I/O LIST                 ARITH    2126
          2077  5130006533 +                      SA3    REFTYPE                                                 ARITH    2127
                          0323002106 +            PL     X3,NSSETUP0       IF NOT AN INPUT STATEMENT             ARITH    2128
          2100  5140000000 X                      SA4    PARCNT                                                  ARITH    2129
                          0304002106 +            ZR     X4,NSSETUP0       IF NOTHING TO OUTPUT                  ARITH    2130
          2101  5120000000 X                      SA2    =XIONAME                                                ARITH    2131
                          0302002106 +            ZR     X2,NSSETUP0       IF LIST NOT BEING PROCESSED YET       ARITH    2132
          2102  5130000000 X                      SA3    L.IOLST                                                 ARITH    2133
                          0303002106 +            ZR     X3,NSSETUP0       IF THIS IS THE FIRST LIST ITEM        ARITH    2134
          2103  5140006536 +                      SA4    ABIO                                                    FCC0614    15
                          0314002106 +            NZ     X4,NSSETUP0 IF BUFFER I/O OR ENCODE/DECODE VAR          FCC0614    16
          2104  0100000000 X                      RJ     IARC              ISSUE RESTART CALL                    ARITH    2135
          2105  43700                             MX7    0                                                       FCC0994     7
                     5170000000 X                 SA7    L.IOLST                                                 FCC0994     8
          2106  5110000377 +             NSSETUP0 SA1    OSPTR       SAVE PREVIOUS (IF ANY) ARRAY REFERENCES     ARITH    2136
                          6221777543              SB2    X1-MXOSE+4   +4 FOR ADDING 4 WDS TO STAK                ARITH    2137
          2107  0620004275 +                      PL     B2,ERR03     IF OPSTAK FULL                             ARITH    2138
                          5120000330 +            SA2    ARORD                                                   ARITH    2139
          2110  5130000327 +                      SA3    DIMINF                                                  ARITH    2140
                          10622                   BX6    X2                                                      ARITH    2141
                               10733              BX7    X3                                                      ARITH    2142
          2111  5261007623 +                      SA6    X1+OPSTAK+2  ARORD                                      ARITH    2143
                          5271007624 +            SA7    X1+OPSTAK+3  DIMINF                                     ARITH    2144
          2112  5130000376 +                      SA3    SFRSTB      COUNT OF FUNCTION RESULT SAVED              ARITH    2145
                          5120000005 C            SA2       ARLPT     SAVE START OF SUBS EXP INCASE ** FOLLOWS.  ARITH    2146
          2113  20322                             LX3    18                                                      ARITH    2147
                     12732                        BX7    X3+X2                                                   ARITH    2148
                          5271007622 +            SA7    X1+OPSTAK+1                                             ARITH    2149
          2114  5120000400 +                      SA2       CC                                                   ARITH    2150
                          10622                   BX6    X2                                                      ARITH    2151
          2115  5261007625 +                      SA6    X1+OPSTAK+4                                             ARITH    2152
                          7261000004              SX6    X1+4                                                    ARITH    2153
          2116  5160000377 +                      SA6       OSPTR                                                ARITH    2154
                          5110000333 +            SA1    SARORD       INITIALIZE ARORD AND DIMINF FOR THIS ARRAY ARITH    2155
          2117  5120000331 +                      SA2    SDIMIN                                                  ARITH    2156
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    49
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           SSP.NS
  
                          10611                   BX6    X1                                                      ARITH    2157
                               10722              BX7    X2                                                      ARITH    2158
          2120  5160000330 +                      SA6    ARORD                                                   ARITH    2159
                          5170000327 +            SA7    DIMINF                                                  ARITH    2160
          2121  43600                             MX6       0                                                    ARITH    2161
                     5160000400 +                 SA6       CC                                                   ARITH    2162
                                        *     SET UP LEFT-PARENS-PREDEDING-SUBSCRIPT OP FOR ADDITION TO THE OP-  ARITH    2163
                                        ** STACK.  INCLUDE THE CURRENT MODE OF EXPRESSION WE,RE IN (ARG.LIST,    ARITH    2164
                                        ** SUB, OR NORMAL) IN THE OP AND SET EMODE TO SUBSCRIPT MODE.            ARITH    2165
          2122  5120001062 +                      SA2    EMODE        GET CURRENT MODE (4,2,1 IF SUB,ARG,EXP)    ARITH    2166
                          5110000334 +            SA1    SPARLEV                                                 FCC0394     6
          2123  7261000001                        SX6    X1+1                                                    FCC0394     7
                          54610                   SA6    A1          SPARLEV = SPARLEV + 1                       FCC0394     8
          2124  5110000444 +                      SA1    LPSUB        GET LP-SUBSCRIPT OP.                       ARITH    2167
                          20223                   LX2    19           POSITION FOR ORING INTO B21-19             ARITH    2168
                               12612              BX6    X1+X2                                                   ARITH    2169
          2125  5110000376 +                      SA1    SFRSTB                                                  ARITH    2170
                          20136                   LX1    30                                                      ARITH    2171
                               12616              BX6    X1+X6             SAVE SFRSTB IN (S OPSTAK WORD         ARITH    2172
          2126  7170000004                        SX7    4            SET EMODE TO SUBSCRIPT MODE.               ARITH    2173
                          5160000011 +            SA6    OP                                                      ARITH    2174
          2127  5170001062 +                      SA7    EMODE                                                   ARITH    2175
                          5110000375 +            SA1    LEFRN                                                   ARITH    2176
          2130  0301004271 +                      ZR     X1,ADDOP    IF NO SAVED FUNCTION RESULTS                ARITH    2177
                          5120000000 X            SA2    DFLAG                                                   ARITH    2178
          2131  0302004271 +                      ZR     X2,ADDOP    IF NOT DEBUG MODE                           ARITH    2179
                          5110000000 X            SA1    ALLARR                                                  ARITH    2180
          2132  0311002140 +                      NZ     X1,NSSETUP1       BRANCH IF UNCONDITIONAL TRACING       ARITH    2181
                          5130000330 +            SA3    ARORD             ARRAY ORDINAL                         ARITH    2182
          2133  5140000012                        SA4    SYM1              START OF SYMBOL TABLE                 ARITH    2183
                          20301                   LX3    1                                                       ARITH    2184
                               37543              IX5    X4-X3             COMPUTE ADDRESS OF ARRAY ENTRY        ARITH    2185
          2134  5225777776                        SA2    X5-1              WORD B OF ENTRY                       ARITH    2186
                          43070                   MX0    60-L.DIF                                                ARITH    2187
                               20235              LX2    60-P.DIF                                                ARITH    2188
          2135  15720                             BX7    -X0*X2            MASK OUT DEBUG INFORMATION BITS       ARITH    2189
                     7267777766                   SX6    X7-DV.ARR         IS ARRAY CHECKING TO BE DONE          ARITH    2190
          2136  7277777762                        SX7    X7-DV.AAS         ARE ARRAYS AND STORES ON              ARITH    2191
                          0306002140 +            ZR     X6,NSSETUP1       IF YES                                ARITH    2192
          2137  0317004271 +                      NZ     X7,ADDOP    IF ARRAYS AND STORES ARE OFF                ARITH    2193
                                                                                                                 FCC0623     9
          2140  0100002334 +             NSSETUP1 RJ     FUNC8       PROCESS ANY SAVED FUNCTION RESULT           FCC0623    10
          2141  43001                             MX0    1                                                       FCC0623    11
                     5130000011 +                 SA3    OP                (S WORD TO BE PLACED IN THE OPSTAK    ARITH    2208
                               20037              LX0    1+30                                                    ARITH    2209
          2142  36730                             IX7    X3+X0             INCREMENT SAVED SFRSTB VALUE          ARITH    2210
                     54730                        SA7    A3                RETURN TO OP WORD                     ARITH    2212
                          0400004271 +            EQ     ADDOP       ADD (S TO OPSTAK AND PROCESS NEXTE          ARITH    2213
                                        *                                                                        ARITH    2214
                                        *     NSAN IF ID IS NON-SUBSCRIPTED ARRAY NAME                           ARITH    2215
          2143  5110001062 +             NSAN     SA1       EMODE                                                ARITH    2216
                          7221777775              SX2    X1-2                                                    ARITH    2217
          2144  0302002150 +                      ZR     X2,NSAN1     IF IN AN ARG LIST                          ARITH    2218
                          5110000401 +            SA1       IXFNFG                                               ARITH    2219
          2145  0311002150 +                      NZ     X1,NSAN1     IF IN IXFN MODE                            ARITH    2220
          2146  6160000223               NSAN2    IDM       ERMSG13   INF: ARRAY NAME NOT SUBSCRIPTED,1ST EL USD ARITH    2221
          2147  0400001446 +                      ZR        VR3                                                  ARITH    2222
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    50
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           SSP.NS
  
          2150  5111000001               NSAN1    SA1    B1+1         WAS E-1 AN OP-                             ARITH    2223
                          6130000007              SB3       LOWOP                                                ARITH    2224
          2151  26021                             UX0 B2,X1                                                      ARITH    2225
                     0623002146 +                 GE  B2,B3,NSAN2     IF YES                                     ARITH    2226
          2152  5111777776                        SA1    B1-1         IS E+1 AN OP-                              ARITH    2227
                          26021                   UX0 B2,X1                                                      ARITH    2228
          2153  0310002146 +                      NZ     X0,NSAN2     IF YES                                     ARITH    2229
                          5110006536 +            SA1    ABIO                                                    ARITH    2230
          2154  0331002146 +                      MI     X1,NSAN2    IF BUFFER FWA OR LWA                        FCC0614    17
                          5120000401 +            SA2       IXFNFG                                               ARITH    2232
          2155  5110000041 +                      SA1       FNAD      FUN ADR IN SYMTAB                          ARITH    2233
                          0312002163 +            NZ     X2,NSAN3          IF IN IXFN MODE                       ARITH    2234
          2156  5221777776                        SA2    X1-1         IS IT AN EXT FUN-                          ARITH    2235
                          20205                   LX2    59-P.EXT                                                ARITH    2236
          2157  0332001446 +                      NG     X2,VR3       IF YES                                     ARITH    2237
                          20215                   LX2    P.EXT-P.INF                                             FCC0768     5
          2160  0322002146 +                      PL     X2,NSAN2    IF NOT INTRINSIC                            FCC0768     6
                          6160000223              USASDM ERMSG13                                                 FCC0768     7
          2162  0400001446 +                      EQ     VR3                                                     FCC0768     8
          2163  43003                    NSAN3    MX0    3                                                       ARITH    2239
                     5110000331 +                 SA1    SDIMIN            DIM INFORMATION WORD                  ARITH    2240
                               20071              LX0    -3                                                      ARITH    2241
          2164  11601                             BX6    X0*X1             P(ABC) FIELD                          ARITH    2242
                     5160000000 +                 SA6    SAVDAN            NON ZERO IF VARIABLE DIMENSIONS       ARITH    2243
                               43712              MX7    10                                                      ARITH    2244
          2165  5170000000 X                      SA7    =XCRFLAG    USED BY I/O PROCESSOR                       ARITH    2245
                          0400001446 +            EQ     VR3                                                     ARITH    2246
                                                                                                                 ARITH    2247
                                        *     GTOUT: IF EOS POPPED OUT.  SHOULD BE A GO TO STATEMENT.  IF NOT,   ARITH    2248
                                        * IDAG.  IF TYPE OF EXPR IS NOT INT, OUTPUT ARLIST TO CONVERT TO TINT.   ARITH    2249
                                        * THEN J  OUT.                                                           ARITH    2250
          2166  5150000032 +             GTOUT    SA5       RL2                                                  ARITH    2251
                          6150000001              SB5    T.INT                                                   ARITH    2252
          2167  0100006271 +                      RJ        MODCH     CONVERT, IF NECESSARY, RL2 TO INT          ARITH    2253
          2170  0400005470 +                      ZR        OUT                                                  ARITH    2254
                                        ***                                                                      ARITH    2255
                                        *         HERE IF VARIABLE NAMED IN LEVEL OR ECS STATEMENT               ARITH    2256
                                        *         ECS VARIABLE TREATED AS LEVEL 3 TYPE                           ARITH    2257
                                        *         REFERENCE MUST BE STAND-ALONG, AND IN ARGUMENT MODE            ARITH    2258
          2171  5120001062 +             LEVEL    SA2    EMODE                                                   ARITH    2259
                          7232777775              SX3    X2-2              TEST FOR ARGUMENT MODE                ARITH    2260
          2172  0313002204 +                      NZ     X3,LVLERR1        NOT AN ARGUMENT                       ARITH    2261
                          5111777776              SA1    B1-1              NEXT E-LIST ITEM                      ARITH    2262
          2173  26021                             UX0    B2,X1                                                   ARITH    2263
                     6130000007                   SB3    LOWOP                                                   ARITH    2264
          2174  0623002204 +                      GE     B2,B3,LVLERR1     NOT A STAND-ALONG ARGUMENT            ARITH    2265
                          6140000006              SB4    EL.(                                                    ARITH    2266
          2175  5110000041 +                      SA1    FNAD                                                    ARITH    2267
                          5120007607 +            SA2    =7LLOCF                                                 FCC0385     9
          2176  53310                             SA3    X1                                                      FCC0385    10
                     13223                        BX2    X2-X3                                                   FCC0385    11
                          21222                   AX2    18                                                      FCC0385    12
          2177  0302002201 +                      ZR     X2,LEVEL1   IF LOCF(LEVEL3)                             FCC0385    13
                          5221777776              SA2    X1-1                                                    ARITH    2268
          2200  20205                             LX2    59-P.EXT                                                ARITH    2269
                     0322002204 +                 PL     X2,LVLERR1        NOT IN EXT ARG LIST                   ARITH    2270
                                                                                                                 FCC0385    14
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    51
        SSP - STANDARD SUBSCRIPT PROCESSOR.                           SSP.NS
  
          2201  0524001373 +             LEVEL1   NE     B2,B4,IDREF.3   IF VARIABLE                             FCC0385    15
                          5110000325 +            SA1    NAME                                                    ARITH    2274
          2202  20156                             LX1    59-P.DIM                                                ARITH    2275
                     0331001504 +                 NG     X1,ARRAY          LCM ARRAY ITEM                        ARITH    2276
          2203  6160000210                        EERR   ERMSG2            SIMPLE VARIABLE FOLLOWED BY A (       ARITH    2277
                                                                                                                 ARITH    2278
          2204  6160000114               LVLERR1  EERR   ERMSG52           NOT STAND-ALONG ARGUMENT              ARITH    2279
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    52
         FUNCTION PROCESSING
  
                                        *     FUNC IF ID IS NAME OF FUN                                          ARITH    2281
          2205  5111777776               FUNC     SA1    B1-1         IS E+1 (                                   ARITH    2282
                          26021                   UX0 B2,X1                                                      ARITH    2283
          2206  6130000006                        SB3    EL.(                                                    ARITH    2284
                          0423002245 +            EQ  B2,B3,FUNC1     IF YES                                     ARITH    2285
          2207  5120000004 +                      SA2       NAMFWA    IS IT A STATE.OR INTR.FUN-                 ARITH    2286
                          5212777776              SA1       X2-1      GET 2ND WD OF SYMTAB ENTRY                 ARITH    2287
          2210  10311                             BX3    X1                                                      FCC1716X   22
                     20104                        LX1    59-P.ASF                                                ARITH    2288
                          0331002244 +            NG     X1,FUNC3     IF STATE FUN                               ARITH    2289
          2211  20101                             LX1    P.ASF-P.EXT                                             ARITH    2290
                     0321002244 +                 PL     X1,FUNC3     IF NOT EXT (THEN INTR)                     ARITH    2291
                               20114              LX1    P.EXT-P.BEF                                             FCC0718    16
          2212  0331002244 +                      MI     X1,FUNC3    IF A BASIC EXTERNAL                         FCC0718    17
                          5110001062 +            SA1       EMODE     ARE WE IN ARG LIST MODE-                   ARITH    2292
          2213  7221777775                        SX2    X1-2                                                    ARITH    2293
                          0312002244 +            NZ     X2,FUNC3     IF NO                                      ARITH    2294
          2214  5111000001                        SA1    B1+1         IS E-1 AN EXPLICIT OP-                     ARITH    2295
                          26021                   UX0 B2,X1                                                      ARITH    2296
          2215  6130000007                        SB3       LOWOP                                                ARITH    2297
                          0623002244 +            GE  B2,B3,FUNC3     IF YES                                     ARITH    2298
          2216  5111777776                        SA1    B1-1         IS E+1 AN OP-                              ARITH    2299
                          26021                   UX0 B2,X1                                                      ARITH    2300
          2217  6130000007                        SB3       LOWOP                                                ARITH    2301
                          0623002244 +            GE  B2,B3,FUNC3     IF YES                                     ARITH    2302
          2220  5110000041 +                      SA1       FNAD      ARE WE IN AN EXT FUN ARG LIST-             ARITH    2303
                          5221777776              SA2    X1-1         GET 2ND WD SYMTAB ENTRY                    ARITH    2304
          2221  20205                             LX2    59-P.EXT                                                ARITH    2305
                     0322002224 +                 PL     X2,ASAL7    IF NOT IN AN EXT FUN                        FCC1716X   23
                               20306              LX3    59-P.EST    ARG LIST                                    FCC1716X   24
          2222  0333002232 +                      MI     X3,ASAL     IF ARGUMENT SPECIFIED IN EXTERNAL           FCC1716X   25
                          6160000502              EERR   ERMSG61     EXTERNAL IN ARGLIST MUST BE IN EXT STMT     FCC1716X   26
                                                                                                                 FCC1716X   27
          2224  53310                    ASAL7    SA3    X1                                                      FCC1716X   28
                     5140007607 +                 SA4    =7LLOCF                                                 ARITH    2308
                               13534              BX5    X3-X4                                                   ARITH    2309
          2225  21522                             AX5    18                                                      ARITH    2310
                     0315002231 +                 NZ     X5,ASAL0    IF NOT LOCF(EXT)                            ARITH    2311
          2226  5150000003 +                      SA5    IDORDL                                                  ARITH    2312
                          66600                   SB6    B0                                                      ARITH    2313
                               66700              SB7    B0                                                      ARITH    2314
          2227  0100005650 +                      RJ     FETCH             OUTPUT A LOAD                         ARITH    2315
          2230  0400001066 +                      EQ     NEXTE                                                   ARITH    2316
                                                                                                                 ARITH    2317
          2231  6160000224               ASAL0    EERR   ERMSG14           INTRIN(EXT) NOT ALLOWED               ARITH    2318
                                        *                                                                        ARITH    2319
          2232  43100                    ASAL     MX1    0           ST = 0                                      ARITH    2320
                     5120000003 +                 SA2    IDORDL                                                  ARITH    2321
                               43300              MX3    0           CA = 0                                      ARITH    2322
          2233  43400                             MX4    0           NO DIM CHECK                                ARITH    2323
                     0100005775 +                 RJ        APLRT                                                ARITH    2324
          2234  5110000042 +                      SA1       ACNT                                                 ARITH    2325
                          7261000001              SX6    X1+1                                                    ARITH    2326
          2235  5160000042 +                      SA6       ACNT                                                 ARITH    2327
                          5111777776              SA1    B1-1         IS E+1 A , :                               ARITH    2328
          2236  6130000003                        SB3    EL.COMMA                                                ARITH    2329
                          26021                   UX0 B2,X1                                                      ARITH    2330
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    53
         FUNCTION PROCESSING
  
          2237  0423002242 +                      EQ  B2,B3,ASAL2     IF YES                                     ARITH    2331
                          6130000002              SB3    EL.)                                                    ARITH    2332
          2240  0423002242 +                      EQ  B2,B3,ASAL2     IF E+1 IS A )                              ARITH    2333
                          6160000225              EERR      ERMSG15   ARG NOT FOLLOWED BY ) OR ,                 ARITH    2334
          2242  5110000377 +             ASAL2    SA1       OSPTR     TAKE ,P OUT OF STAK                        ARITH    2335
                          7261777776              SX6    X1-1                                                    ARITH    2336
          2243  5160000377 +                      SA6       OSPTR                                                ARITH    2337
                          0400001066 +            EQ     NEXTE                                                   ARITH    2338
                                        *                                                                        ARITH    2339
          2244  6160000226               FUNC3    EERR      ERMSG16   THIS FUN REF REQUIRES ARG LIST             ARITH    2340
  
  
  
  
                                        *     FUNC1 IF FUNC( IN ELIST                                            ARITH    2342
          2245  5120000032               FUNC1    SA2       EPOINT    MOVE EPOINT BEYOND (                       ARITH    2343
                          5212777776              SA1    X2-1                                                    ARITH    2344
          2246  26741                             UX7 B4,X1                                                      ARITH    2345
                     0100002370 +                 RJ        SSERR3    CHECK SYNTAX AFTER LEFT PAR                ARITH    2346
          2247  5110007603 +                      SA1    PARLEVEL                                                ARITH    2347
                          7261000001              SX6    X1+1                                                    ARITH    2348
          2250  54610                             SA6    A1                                                      ARITH    2349
                     5110000326 +                 SA1       NAME+1    IS FUN A STATE FUN -                       ARITH    2350
          2251  7272777776                        SX7    X2-1                                                    ARITH    2351
                          20104                   LX1    59-P.ASF                                                ARITH    2352
          2252  5170000032                        SA7       EPOINT                                               ARITH    2353
                          0321002350 +            PL     X1,FUNC5     IF NO                                      ARITH    2354
          2253  43070                             MX0    60-L.TYP                                                ARITH    2355
                     6120000036                   SB2       SFLPOC    S.F.LP OPCODE EQU 30                       ARITH    2356
                               15210              BX2   -X0*X1                                                   ARITH    2357
          2254  5130001062 +                      SA3       EMODE     SAVE CURRENT MODE                          ARITH    2358
                          20254                   LX2       44        POSITION SF TYPE                           ARITH    2359
                               20323              LX3       19        POSITION MODE                              ARITH    2360
          2255  12023                             BX0    X2+X3                                                   ARITH    2361
                     27620                        PX6    B2,X0                                                   ARITH    2362
                          7170000001              SX7       1         SET EMODE TO EXPR                          ARITH    2363
          2256  5140000377 +                      SA4       OSPTR                                                ARITH    2364
                          6224777541              SB2    X4-MXOSE+2                                              ARITH    2365
          2257  5170001062 +                      SA7       EMODE                                                ARITH    2366
                          0620004275 +            PL     B2,ERR03     IFOPSTAK FULL                              ARITH    2367
          2260  7274000002                        SX7    X4+2         UP OSPTR                                   ARITH    2368
                          5264007623 +            SA6    X4+OPSTAK+2  STORE SF LP- (SF                           ARITH    2369
          2261  5110000005 C                      SA1       ARLPT                                                ARITH    2370
                          5170000377 +            SA7       OSPTR                                                ARITH    2371
          2262  5120000376 +                      SA2       SFRSTB                                               ARITH    2372
                          20222                   LX2       18                                                   ARITH    2373
                               12621              BX6    X2+X1                                                   ARITH    2374
          2263  5110000032                        SA1       EPOINT    FIX EPOINT TO POINT TO ASF NAME            ARITH    2375
                          5264007622 +            SA6    X4+OPSTAK+1  STORE ARLPT FOR POSSIBLE USE BY EXPOP.     ARITH    2376
          2264  7261000002                        SX6    X1+2                                                    ARITH    2377
                          5160000032              SA6       EPOINT                                               ARITH    2378
          2265  0100000000 X                      RJ        ASFREF                                               ARITH    2379
          2266  0400001066 +                      EQ     NEXTE                                                   ARITH    2380
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    54
         FUNCTION PROCESSING                                          FUNC5RT 
  
          2267  00000000000000000000     FUNC5RT  DATA      0                                                    ARITH    2382
          2270  5110000045 +                      SA1       RNTBC     ENTER (A IN OPSTAK PRECEDED BY ARGLIST   - ARITH    2383
                          5120000377 +            SA2       OSPTR        INFO OF A POSSIBLY PRECEDING AND IN-  - ARITH    2384
          2271  36312                             IX3    X1+X2           COMPLETE FUNC REF.                      ARITH    2385
                     6223777550                   SB2    X3-MXOSE+9   SEE IF ROOM FOR RNTBL + 9 OTHER WDS OF INF ARITH    2386
          2272  0620004275 +                      PL     B2,ERR03                                                ARITH    2387
                          5140001131 +            SA4    FTRFLG                                                  ARITH    2388
          2273  5130000040 +                      SA3    FRLW                                                    ARITH    2389
                          20473                   LX4    -1                                                      ARITH    2390
                               12634              BX6    X3+X4                                                   ARITH    2391
          2274  54630                             SA6    A3                SAVE FUNCTION TRACE FLAG              ARITH    2392
                     6221000006                   SB2    X1+6         B2=NO.WORDS TO MOVE                        ARITH    2393
                               66300              SB3    B0           B3 WILL COUNT                              ARITH    2394
          2275  6242007621 +                      SB4    X2+OPSTAK    B4=FWA-1 TO STORE TO                       ARITH    2395
          2276  5113000040 +             FUNC6    SA1    B3+FRLW      FRLW IS 1ST WD IN BLOK                     ARITH    2396
                          10611                   BX6    X1                                                      ARITH    2397
          2277  6133000001                        SB3    B3+1                                                    ARITH    2398
                          56634                   SA6    B3+B4        1ST WD GOES INTO X2+OPSTAK+1               ARITH    2399
          2300  0532002276 +                      NE  B3,B2,FUNC6     IF MORE TO MOVE                            ARITH    2400
                                        *                                                                        ARITH    2401
                          6122000001              SB2    B2+1                                                    ARITH    2402
          2301  76720                             SX7    B2                                                      ARITH    2403
                     56724                        SA7    B2+B4        STORE CNT OF WORDS PRECEDING (A            ARITH    2404
                          73622                   SX6    X2+B2        UPDATE OSPTR                               ARITH    2405
          2302  5160000377 +                      SA6       OSPTR                                                ARITH    2406
                                        *     SET UP FRLW BLOK FOR THIS FUN                                      ARITH    2407
                          5120000005 C            SA2       ARLPT                                          FUNC. ARITH    2408
          2303  43600                             MX6    0                                                       ARITH    2409
                     5110000332 +                 SA1    TYADR       ADDRESS OF ARGUMENT TYPES WORD              ARITH    2410
                               20122              LX1    18                                                      ARITH    2411
          2304  12712                             BX7    X1+X2                                                   ARITH    2412
                     5160000043 +                 SA6    STAPLC                                                  ARITH    2413
          2305  5170000040 +                      SA7       FRLW                                                 ARITH    2414
                          5110000004 +            SA1       NAMFWA                                               ARITH    2415
          2306  43700                             MX7       0                                                    ARITH    2416
                     10611                        BX6    X1                                                      ARITH    2417
                          5170000045 +            SA7       RNTBC                                                ARITH    2418
          2307  5160000041 +                      SA6       FNAD                                                 ARITH    2419
                          5170000042 +            SA7       ACNT                                                 ARITH    2420
          2310  5110000376 +                      SA1       SFRSTB                                               ARITH    2421
                          10611                   BX6    X1                                                      ARITH    2422
          2311  5160000044 +                      SA6       SSFRSTB                                              ARITH    2423
                          5110001062 +            SA1       EMODE                                                ARITH    2424
          2312  5120000445 +                      SA2       ARGLP                                                ARITH    2425
                          20123                   LX1       19                                                   ARITH    2426
          2313  5130000377 +                      SA3       OSPTR                                                ARITH    2427
                          12612                   BX6    X1+X2                                                   ARITH    2428
          2314  5263007622 +                      SA6    X3+OPSTAK+1  (A                                         ARITH    2429
                          5110000450 +            SA1       ARGCMA                                               ARITH    2430
          2315  10711                             BX7    X1                                                      ARITH    2431
                     7263000002                   SX6    X3+2                                                    ARITH    2432
          2316  5273007623 +                      SA7    X3+OPSTAK+2  ,A                                         ARITH    2433
                          5160000377 +            SA6       OSPTR                                                ARITH    2434
          2317  7170000002                        SX7       2         SET CURRENT MODE TO ARG.LIST MODE          ARITH    2435
                          5170001062 +            SA7       EMODE                                                ARITH    2436
          2320  5110000041 +                      SA1       FNAD      IS THIS FUNC INTR OR BASIC EXT-            ARITH    2437
                          5221777776              SA2    X1-1                                                    ARITH    2438
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    55
         FUNCTION PROCESSING                                          FUNC5RT 
  
          2321  20222                             LX2    59-P.INF                                                ARITH    2439
                     0332002267 +                 MI     X2,FUNC5RT  IF AN INTRINSIC FUNCTION                    ARITH    2440
                                                                                                                 ARITH    2441
          2322  0100000000 X                      CALL   DOCALL      INFORM *DOPROC* OF EXTERNAL REFERENCE       ARITH    2442
                                        *         (WILL ALSO REACH THIS POINT FOR ** FUNCTION CALLS)             ARITH    2443
          2323  5110000375 +                      SA1       LEFRN     IS THERE AN UNSAVED RESULT NAME IN LEFRN - ARITH    2444
                          0301002267 +            ZR     X1,FUNC5RT   IF NOT                                     ARITH    2445
          2324  5120000337 +                      SA2       EXRL1                                                ARITH    2446
                          5130000340 +            SA3       EXRL2                                                ARITH    2447
          2325  0302002332 +                      ZR     X2,FUNC7    IF NOT PROCESSING **                        FCC0623    12
                          5120000366 +            SA2    EXPSTB       GET R NAME OF FIRST ISSTR OF BASE          ARITH    2449
          2326  5232000002                        SA3    X2+ARLIST+2                                             ARITH    2450
          7631  20360000000000002326 +            SUB                                                            ARITH    2451
                          43054                   MX0       60-16                                                ARITH    2452
                               15410              BX4    -X0*X1                                                  ARITH    2453
          2327  15630                             BX6  -X0*X3                                                    ARITH    2454
                     37246                        IX2    X4-X6                                                   ARITH    2455
                          5160000371 +            SA6       RNFIB     SAVE RNAME OF FIRST INSTR IN BASE          ARITH    2456
          2330  0322002267 +                      PL     X2,FUNC5RT   IF THE LAST FUNC RESULT IS PART OF THE     ARITH    2457
                                        *                  BASE OR POWER OF THIS **.                             ARITH    2458
                          5130000367 +            SA3       EXPNSF                                               ARITH    2459
          2331  7263000001                        SX6    X3+1                                                    ARITH    2460
                          5160000367 +            SA6       EXPNSF                                               ARITH    2461
                                                                                                                 FCC0623    13
          2332  0100002334 +             FUNC7    RJ     FUNC8       OUTPUT ANY SAVED FUNCTION RESULT            FCC0623    14
          2333  5170000044 +                      SA7    SSFRSTB     RESET BASE FOR NEXT EXTERNAL                FCC0623    15
                          0400002267 +            EQ     FUNC5RT                                                 FCC0623    16
  
  
  
  
                                        **        FUNC8 - OUTPUT ANY SAVED FUNCTION RESULT.                      FCC0623    18
                                        *                                                                        FCC0623    19
                                        *         EXIT   (X7) = (SFRSTB), UPDATED IF A *SFR* WAS PROCESSED.      FCC0623    20
                                        *                                                                        FCC0623    21
          2334  0400402334 +             FUNC8    ENTRY. *                                                       FCC0623    22
          2335  5110000375 +                      SA1    LEFRN                                                   FCC0623    23
                          0301002334 +            ZR     X1,FUNC8    IF NO SAVED RESULTS                         FCC0623    24
          2336  0100006113 +                      RJ     FRTS        OUTPUT TEMP-STORE AS *SFR* MACRO            FCC0623    25
          2337  5130000000 C                      SA3    STSORD      CA = (STSORD)                               FCC0623    26
                          5120000375 +            SA2    LEFRN                                                   FCC0623    27
          2340  7233777776                        SX3    X3-1                                                    FCC0623    28
                          43073                   MX0    59                                                      FCC0623    29
                               20202              LX2    -58         *DOUBLE* BIT TO BIT 0                       FCC0623    30
          2341  15020                             BX0    -X0*X2                                                  FCC0623    31
                     20272                        LX2    58                                                      FCC0623    32
                          37330                   IX3    X3-X0       CA = CA-1 (CA-2 IF DOUBLE)                  FCC0623    33
                               20320              LX3    16                                                      FCC0623    34
          2342  43600                             MX6    0                                                       FCC0623    35
                     5110000376 +                 SA1    SFRSTB                                                  FCC0623    36
                               54620              SA6    A2          LEFRN = 0                                   FCC0623    37
          2343  7241777645                        SX4    X1-MXFRSTB                                              FCC0623    38
                          0334002345 +            MI     X4,FUNC8A   IF NO OVERFLOW                              FCC0623    39
          2344  6160000230                        EERR   ERMSG18                                                 FCC0623    40
                                                                                                                 FCC0623    41
          2345  12623                    FUNC8A   BX6    X2+X3                                                   FCC0623    42
                     7271000001                   SX7    X1+1                                                    FCC0623    43
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    56
         FUNCTION PROCESSING
  
          2346  5261000145 +                      SA6    X1+FRSTB    FRSTB(SFRSTB) = LEFRN                       FCC0623    44
                          54710                   SA7    A1          SFRSTB = SFRSTB + 1                         FCC0623    45
          2347  0400002334 +                      EQ     FUNC8                                                   FCC0623    46
  
  
  
  
          2350  0100002267 +             FUNC5    RJ        FUNC5RT                                              ARITH    2490
                                        *         GEN EXT FUN REF. OUTPUT GEN  EXT MACRO WITH NAME (IH) OF       ARITH    2491
                                        *         FUN AND NAME (IH) OF APLIST AS PARAMS.                         ARITH    2492
                                                                                                                 ARITH    2493
          2351  5120000000 X                      SA2    DFLAG                                                   ARITH    2494
                          0302002363 +            ZR     X2,FUNC5B         BRANCH IF NOT IN DEBUG MODE           ARITH    2495
          2352  5110000401 +                      SA1    IXFNFG                                                  ARITH    2496
                          0311002363 +            NZ     X1,FUNC5B         IF IN AN I/O LIST                     ARITH    2497
          2353  5130000337 +                      SA3    EXRL1                                                   ARITH    2498
                          0313002363 +            NZ     X3,FUNC5B         IF PROCESSING ** CALL                 ARITH    2499
          2354  5110000041 +                      SA1    FNAD                                                    ARITH    2500
                          5221777776              SA2    X1-1              WORD 2 OF SYMTAB ENTRY                ARITH    2501
          2355  53110                             SA1    X1                WORD 1 OF SYMTAB ENTRY                ARITH    2502
                     10722                        BX7    X2                                                      ARITH    2503
                          20722                   LX7    59-P.INF                                                ARITH    2504
                               43600              MX6    0                                                       ARITH    2505
          2356  5160001131 +            REQUEST   SA6    FTRFLG      INITIALIZE FLAG                             ARITH    2506
                          0337002363 +            MI     X7,FUNC5B   IF INTRINSIC FUNCTION                       ARITH    2507
          2357  5130000000 X                      SA3    ALLFUNC                                                 ARITH    2508
                          0313002362 +            NZ     X3,FUNC5A         IF ALL FUNCTIONS TO BE TRACED         ARITH    2509
          2360  10322                             BX3    X2                                                      ARITH    2510
                     20335                        LX3    60-P.DIF          SHIFT DEBUG BITS                      ARITH    2511
                          43070                   MX0    60-L.DIF                                                ARITH    2512
                               15730              BX7    -X0*X3            MASK OUT DEBUG BITS                   ARITH    2513
          2361  7267777770                        SX6    X7-DV.FUN         IS FUNCTION TRACING TO BE DONE        ARITH    2514
                          0316002363 +            NZ     X6,FUNC5B         IF NOT                                ARITH    2515
          2362  7170000001               FUNC5A   SX7    1                                                       FCC0822     5
                          5170001131 +            SA7    FTRFLG      SIGNAL TRACING ON FOR THIS FUNCTION         FCC0822     6
          2363                           FUNC5B   BSS    0                                                       ARITH    2517
          2363  0400001066 +                      ZR        NEXTE                                                ARITH    2518
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    57
         FUNCTION PROCESSING
  
                                        *     SIMPLE SYNTAX (THIS E : NEXT E) CHECKING.                          ARITH    2520
          2364  6160000216               SSERR1   EERR      ERMSG8                                               ARITH    2521
          2365  5111000001               SSERR2   SA1    B1+1         GET PRECEDING E-ITEM                       ARITH    2522
                          26021                   UX0 B2,X1                                                      ARITH    2523
          2366  6130000002                        SB3    EL.)                                                    ARITH    2524
                          0732002401 +            GT  B2,B3,SSERR5                                               ARITH    2525
          2367  6160000333                        EERR      ERMSG53   .NOT. MUSNT BE PRECEDED BY ID, CON, OR ).  ARITH    2526
                                        *                                                                        ARITH    2527
          2370  00000000000000000000     SSERR3   DATA      0         HERE IF E IS A COMMA, =, (, .OR., OR .AND. ARITH    2528
                                        *     DONT DESTROY X2                                                    ARITH    2529
          2371  6120000001                        SB2    EL.ID                                                   ARITH    2530
                          6130000006              SB3    EL.(                                                    ARITH    2531
          2372  0624002370 +                      LE  B4,B2,SSERR3    IF FOLLOWED BY ID OR CONST                 ARITH    2532
                          0443002370 +            EQ  B4,B3,SSERR3    BY (                                       ARITH    2533
          2373  6120000020                        SB2    EL.MINUS                                                ARITH    2534
                          6130000011              SB3    EL.NOT                                                  ARITH    2535
          2374  0442002370 +                      EQ  B4,B2,SSERR3    -                                          ARITH    2536
                          0443002370 +            EQ  B4,B3,SSERR3    .NOT.                                      ARITH    2537
          2375  6120000021                        SB2    EL.PLUS                                                 ARITH    2538
                          0442002370 +            EQ  B4,B2,SSERR3    +                                          ARITH    2539
                                        *     HERE IF E NOT FOLLOWED BY CON,ID,(,NOT,-,+                         ARITH    2540
          2376  6160000241                        EERR      ERMSG27                                              ARITH    2541
                                        *                                                                        ARITH    2542
                                        *     SSERR4 IF .OR. OR .AND. IN ELIST                                   ARITH    2543
          2377  0100002370 +             SSERR4   RJ        SSERR3                                               ARITH    2544
          2400  0400004214 +                      ZR        CMPARE                                               ARITH    2545
                                        *                                                                        ARITH    2546
          2401  6120000001               SSERR5   SB2    EL.ID                                                   ARITH    2547
                          6130000006              SB3    EL.(                                                    ARITH    2548
          2402  0624004214 +                      LE  B4,B2,CMPARE    IF FOLLOWED BY CON OR ID                   ARITH    2549
                          0443004214 +            EQ  B4,B3,CMPARE    BY (                                       ARITH    2550
          2403  6120000020                        SB2    EL.MINUS                                                ARITH    2551
                          6130000021              SB3    EL.PLUS                                                 ARITH    2552
          2404  0442004214 +                      EQ  B4,B2,CMPARE    -                                          ARITH    2553
                          0443004214 +            EQ  B4,B3,CMPARE    +                                          ARITH    2554
          2405  6160000231                        EERR      ERMSG19                                              ARITH    2555
                                        *                                                                        ARITH    2556
                                        *     SSERR6 IF A -,+,*,/, OR ** IN E-LIST                               ARITH    2557
          2406  00000000000000000000     SSERR6   DATA      0                                                    ARITH    2558
          2407  6120000001                        SB2    EL.ID                                                   ARITH    2559
                          6130000006              SB3    EL.(                                                    ARITH    2560
          2410  0624002406 +                      LE  B4,B2,SSERR6    IF FOLLOWED BY CON OR ID                   ARITH    2561
                          0443002406 +            EQ  B4,B3,SSERR6    BY (                                       ARITH    2562
          2411  6160000213                        EERR      ERMSG5                                               ARITH    2563
                                        *                                                                        ARITH    2564
          2412  0100002406 +             SSERR7   RJ        SSERR6                                               ARITH    2565
                                        *     HERE (*-1) IF **                                                   ARITH    2566
          2413  0400004214 +                      ZR        CMPARE                                               ARITH    2567
                                        *                                                                        ARITH    2568
                                        *     END OF SSERR CODING                                                ARITH    2569
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    58
         FUNCTION PROCESSING
  
                                        *     CARPO IF A ,A POPPED OUT                                           ARITH    2571
          2414                           CARGPO   BSS       0                                                    ARITH    2572
          2414  0100002416 +                      RJ        CARGPORT                                             ARITH    2573
          2415  0400004214 +                      ZR        CMPARE                                               ARITH    2574
                                        *                                                                        ARITH    2575
                                        *                                                                        ARITH    2576
                                        *                                                                        ARITH    2577
                                        *                                                                        ARITH    2578
          2416  00000000000000000000     CARGPORT DATA      0                                                    ARITH    2579
          2417  5110000042 +                      SA1       ACNT      UP ARG CNT                                 ARITH    2580
                          5120000041 +            SA2       FNAD      ARE WE IN BASIC EXT ARG LIST-              ARITH    2581
          2420  6221777700                        SB2    X1-MXARGS                                               ARITH    2582
                          7261000001              SX6    X1+1                                                    ARITH    2583
          2421  0720002423 +                      NG     B2,CARGP6    IF NOT TOO MANY ARGS IN ARG LIST           ARITH    2584
                          6160000215              EERR      ERMSG7    TOO MANY ARGS IN ARG LIST                  ARITH    2585
          2423  5232777776               CARGP6   SA3    X2-1                                                    ARITH    2586
                          5160000042 +            SA6       ACNT                                                 ARITH    2587
          2424  20321                             LX3    59-P.BEF                                                ARITH    2588
                     0333002475 +                 NG     X3,CRGP10    IF WE ARE IN BASIC EXT ARG LIST            ARITH    2589
                               20301              LX3    P.BEF-P.INF                                             ARITH    2590
          2425  0333002530 +                      NG     X3,CRGP20    IF YES                                     ARITH    2591
                                        *     HERE IF A ,A POPPED DURING SCAN OF GEN EXT FUN ARG LST             ARITH    2592
                          20370                   LX3    P.INF-P.LIB                                             ARITH    2593
          2426  0323002430 +                      PL     X3,CRGP0          IF NOT BEF CALL BY NAME               ARITH    2594
                          5110000032 +            SA1    RL2                                                     ARITH    2595
          2427  53210                             SA2    X1                SET UP FOR CALL TO CHKARG             ARITH    2596
                     26122                        UX1    B2,X2             (B2) = TYPE OF ACTUAL ARGUMENT        ARITH    2597
                          0100005701 +            RJ     CHKARG                                                  ARITH    2598
          2430  5110000032 +             CRGP0    SA1    RL2               IF LAST UNUSED R-LINE A FETCH-        ARITH    2599
                          5221000002              SA2    X1+2         (1ST WD OF MACRO)                          ARITH    2600
          2431  26022                             UX0 B2,X2                                                      ARITH    2601
                     6130777644                   SB3    -SLMACO                                                 ARITH    2602
          2432  0423002442 +                      EQ  B2,B3,CRGP1     IF YES                                     ARITH    2603
                          6130777773              SB3      -STLMAC                                               ARITH    2604
          2433  0423002472 +                      EQ     B2,B3,CRGP6  IF YES                                     ARITH    2605
                          6130777646              SB3      -DLMACO                                               ARITH    2606
          2434  0423002442 +                      EQ  B2,B3,CRGP1     IF YES                                     ARITH    2607
                          43212                   MX2    10          FLAG FOR POSITIONING RL2,RL1 BACK 1 ARLIST  ARITH    2608
          2435  0100006041 +                      RJ     OTS         OUTPUT TEMP STORES                          ARITH    2609
          2436  10144                             BX1    X4                                                      ARITH    2610
                     20171                        LX1    AP.P1P                                                  ARITH    2611
                          43400                   MX4    0                                                       ARITH    2612
          2437  0100005775 +             CRGP5    RJ     APLRT       OUTPUT APLIST                               ARITH    2613
          2440  5110000032                        SA1       EPOINT    SET B1 UP TO POINT TO CURRENT E            ARITH    2614
                          6211000001              SB1    X1+1                                                    ARITH    2615
          2441  0400002416 +                      ZR        CARGPORT                                             ARITH    2616
          2442  0100006452 +             CRGP1    RJ     SDFINE      SET DEFINE BIT, (X6) = WORD A               ARITH    2617
          2443  5130000337 +                      SA3    EXRL1                                                   ARITH    2618
                          0303002445 +            ZR     X3,CRGP1B   IF NOT PROCESSING ** ARGS                   ARITH    2619
          2444  10644                             BX6    X4                                                      ARITH    2620
                     54660                        SA6    A6                                                      ARITH    2621
          2445  20652                    CRGP1B   LX6    59-P.FP                                                 ARITH    2622
                     0336002457 +                 MI     X6,CRGP4                                                ARITH    2623
          2446  5231000004                        SA3    X1+4                                                    ARITH    2624
                          43054                   MX0    -RM.RIL                                                 ARITH    2625
                               21320              AX3    RM.RIL                                                  ARITH    2626
          2447  15330                             BX3    -X0*X3                                                  ARITH    2627
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    59
         FUNCTION PROCESSING
  
                     0313002457 +                 NZ     X3,CRGP4     IF AN INDEXED FETCH                        ARITH    2628
                               53110              SA1    X1           NO-OP THE FETCH                            ARITH    2629
          2450  14611                             BX6   -X1                                                      ARITH    2630
                     54610                        SA6    A1                                                      ARITH    2631
                          5031000005              SA3    A1+5         GET CA                                     ARITH    2632
          2451  5021000003                        SA2    A1+3         GET IH                                     ARITH    2633
                          5110000031 +            SA1       RL1       RESET RL2                                  ARITH    2634
          2452  5042777775                        SA4    A2-2        IDORD FOR DIM CHECK                         ARITH    2635
                          10611                   BX6    X1                                                      ARITH    2636
                               43100              MX1    0                                                       ARITH    2637
          2453  5150000337 +                      SA5    EXRL1                                                   ARITH    2638
                          5160000032 +            SA6    RL2                                                     ARITH    2639
          2454  0315002437 +                      NZ     X5,CRGP5    IF PROCESSING ** ARGS                       ARITH    2640
                          5150000064              SA5    NARN                                                    ARITH    2641
          2455  7275777776                        SX7    X5-1        DECREMENT NARN TO CONSERVE R-NUMBERS        ARITH    2642
                          54750                   SA7    A5                                                      ARITH    2643
          2456  0400002437 +                      EQ     CRGP5                                                   ARITH    2644
                                                                                                                 ARITH    2645
          2457  5221000002               CRGP4    SA2    X1+2         GET 1ST WD OF FETCH MACRO TO SET MACRO     ARITH    2646
                                        *                                CODE TO A SET XI BA+CA+RF  MACRO.       ARITH    2647
                          6120777634              SB2      -SXTAMC                                               ARITH    2648
          2460  27622                    CRGP7    PX6    B2,X2                                                   ARITH    2649
                     5261000002                   SA6    X1+2                                                    ARITH    2650
          2461  5110000032 +                      SA1    RL2                                                     ARITH    2651
                          53210                   SA2    X1                                                      ARITH    2652
                               26022              UX0 B2,X2                                                      ARITH    2653
          2462  6130000003                        SB3    T.DBL                                                   ARITH    2654
                          6140000004              SB4    T.CPLX                                                  ARITH    2655
          2463  0423002464 +                      EQ  B2,B3,CRGP7A    IF DBL LENGTH LOAD                         ARITH    2656
                          0524002466 +            NE  B2,B4,CRGP7B    IF SNGL LENGTH LOAD                        ARITH    2657
          2464  5150000064               CRGP7A   SA5    NARN                                                    ARITH    2658
                          7265777776              SX6    X5-1        ADJUST NARN FOR STALR                       ARITH    2659
          2465  5065000000                        SA6    A5+                                                     ARITH    2660
          2466  10711                    CRGP7B   BX7    X1          SAVE RL2 FOR STALR                          ARITH    2661
                     5170002474 +                 SA7    CRGPA                                                   ARITH    2662
          2467  0100005536 +                      RJ     CHKOFF                                                  ARITH    2663
          2470  5110002474 +                      SA1    CRGPA                                                   ARITH    2664
                          0100006017 +            RJ        STALR     GO OUTPUT STORE-TO-APLIST INSTR            ARITH    2665
          2471  0400002416 +                      ZR        CARGPORT                                             ARITH    2666
                                        *                                                                        ARITH    2667
          2472  0100006452 +             CRGP6    RJ        SDFINE    WONT DESTROY X1 OR X2                      ARITH    2668
          2473  6120777771                        SB2      -SSSXA                                                ARITH    2669
                          0400002460 +            EQ        CRGP7                                                ARITH    2670
                                                                                                                 ARITH    2671
          2474                     1     CRGPA    BSS    1                                                       ARITH    2672
                                        *                                                                        ARITH    2673
                                        *                                                                        ARITH    2674
                                        *     CRGP10 IF ,P POPPED OUT OF BASIC EXT ARG LIST.  OUTPUT PSUEDO-OP   ARITH    2675
                                        *  TO DEFINE REGISTER TO PLACE ARG IN.                                   ARITH    2676
          2475  5110000042 +             CRGP10   SA1       ACNT                                                 ARITH    2677
                          7160000001              SX6       1                                                    ARITH    2678
          2476  37216                             IX2    X1-X6                                                   ARITH    2679
                     0302002500 +                 ZR     X2,CRGP11    IF 1ST ARG                                 ARITH    2680
          2477  7160000002                        SX6       2                                                    ARITH    2681
          2500  5160000302 +             CRGP11   SA6       TS1                                                  ARITH    2682
                          43054                   MX0       60-16                                                ARITH    2683
          2501  5110000032 +                      SA1       RL2       IS IT DBL WD ARG-                          ARITH    2684
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    60
         FUNCTION PROCESSING
  
                          5221000002              SA2    X1+2         GET R NAME                                 ARITH    2685
          2502  15620                             BX6   -X0*X2                                                   ARITH    2686
                     5160000304 +                 SA6       TS1+2     SAVE                                       ARITH    2687
                               11702              BX7    X0*X2                                                   ARITH    2688
          2503  43214                             MX2       12                                                   ARITH    2689
                     13072                        BX0    X7-X2                                                   ARITH    2690
                          0300002507 +            ZR     X0,CRGP11A   IF ARG IS A FUNC RESULT                    ARITH    2691
          2504  53310                             SA3    X1                                                      ARITH    2692
                     20317                        LX3    59-44                                                   ARITH    2693
                          0333002507 +            MI     X3,CRGP11A        IF *XMT* BIT SET                      ARITH    2694
          2505  5120000302 +                      SA2       TS1       USE NON-XMIT REG DEFS                      ARITH    2695
                          7272000004              SX7    X2+4                                                    ARITH    2696
          2506  5170000302 +                      SA7       TS1                                                  ARITH    2697
          2507                           CRGP11A  BSS       0                                                    ARITH    2698
          2507  7170000002                        SX7       2                                                    ARITH    2699
                          53210                   SA2    X1                                                      ARITH    2700
                               26022              UX0 B2,X2                                                      ARITH    2701
          2510  6130000003                        SB3    T.DBL                                                   ARITH    2702
                          0423002513 +            EQ  B2,B3,CRGP12    IF DBL WD                                  ARITH    2703
          2511  6130000004                        SB3    T.CPLX                                                  ARITH    2704
                          0423002513 +            EQ    B2,B3,CRGP12                                             ARITH    2705
          2512  7170000001                        SX7       1                                                    ARITH    2706
          2513  5170000303 +             CRGP12   SA7       TS1+1                                                ARITH    2707
                          0100005701 +            RJ     CHKARG      CHECK ARGUMENT TYPE                         ARITH    2708
          2514  0100005536 +                      RJ        CHKOFF    CHKOFF RL2 ENTRY                           ARITH    2709
          2515  5120000304 +                      SA2       TS1+2     GET NAME OF ARG                            ARITH    2710
                          10622                   BX6    X2                                                      ARITH    2711
          2516  5160000013 +                      SA6       PARAMS                                               ARITH    2712
                          5110000302 +            SA1       TS1                                                  ARITH    2713
          2517  5231000415 +                      SA3    X1+DEFMD-1   GET CORRECT DEFINE MAC DESC                ARITH    2714
                          0100005576 +            RJ        MACOUT                                               ARITH    2715
          2520  0100005536 +                      RJ        CHKOFF                                               ARITH    2716
          2521  5110000303 +                      SA1       TS1+1     DBL WD ARG-                                ARITH    2717
                          6221777776              SB2    X1-1                                                    ARITH    2718
          2522  0420002416 +                      ZR     B2,CARGPORT                                             ARITH    2719
                          5120000304 +            SA2       TS1+2                                                ARITH    2720
          2523  7262000001                        SX6    X2+1                                                    ARITH    2721
                          5160000013 +            SA6       PARAMS                                               ARITH    2722
          2524  5110000302 +                      SA1       TS1                                                  ARITH    2723
                          5231000417 +            SA3    X1+DEFMD+1                                              ARITH    2724
          2525  0100005576 +                      RJ        MACOUT                                               ARITH    2725
          2526  0100005536 +                      RJ        CHKOFF                                               ARITH    2726
          2527  0400002416 +                      ZR        CARGPORT                                             ARITH    2727
                                        *                                                                        ARITH    2728
                                        *                                                                        ARITH    2729
                                        *     CRGP20 IF ,A POPPED OUT OF INTRINSIC FUN ARG LIST                  ARITH    2730
          2530  5110000032 +             CRGP20   SA1       RL2       SAVE LAST UNCHECKED R-LIST RESULT NAME IN  ARITH    2731
                          5120000045 +            SA2       RNTBC                                    THE RNTB.   ARITH    2732
          2531  5231000002                        SA3    X1+2         GET RN LINE                                ARITH    2733
                          53410                   SA4    X1           GET TYPE                                   ARITH    2734
          2532  7272000001                        SX7    X2+1         UP RNTBC (ARG MAX ALREADY CHECKED - CRGP7) ARITH    2735
                          43054                   MX0       60-16                                                ARITH    2736
                               15630              BX6   -X0*X3                                                   ARITH    2737
          2533  5262000046 +                      SA6    X2+RNTB                                                 ARITH    2738
                          26024                   UX0 B2,X4                                                      ARITH    2739
          2534  6130000003                        SB3    T.DBL                                                   ARITH    2740
                          6140000004              SB4    T.CPLX                                                  ARITH    2741
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    61
         FUNCTION PROCESSING
  
          2535  0423002536 +                      EQ  B2,B3,CRGP20A   IF DBL                                     ARITH    2742
                          0524002537 +            NE  B2,B4,CRGP20B   IF NOT CPX                                 ARITH    2743
          2536  43001                    CRGP20A  MX0    1                                                       ARITH    2744
                     12606                        BX6    X0+X6       SET FLAG THAT ARG IS DOUBLE WORD            ARITH    2745
                          54660                   SA6    A6                                                      ARITH    2746
          2537  5170000045 +             CRGP20B  SA7       RNTBC                                                ARITH    2747
                          0100005701 +            RJ     CHKARG      CHECK ARGUMENT TYPE                         ARITH    2748
          2540  0100005536 +                      RJ        CHKOFF                                               ARITH    2749
          2541  0400002416 +                      EQ     CARGPORT                                                ARITH    2750
  
                                        *     ARGPO IF (A POPPED                                                 ARITH    2752
          2542  5110000011 +             ARGPO    SA1       OP        IS OP=) -                                  ARITH    2753
                          6120000002              SB2    EL.)                                                    ARITH    2754
          2543  26031                             UX0 B3,X1                                                      ARITH    2755
                     0423002545 +                 EQ  B2,B3,ARGP1     IF YES                                     ARITH    2756
          2544  6160000243                        EERR      ERMSG29   NO MATCHING RP FOR ARG LIST                ARITH    2757
          2545  0100002662 +             ARGP1    RJ        ARGP1RT                                              ARITH    2758
          2546  5120000401 +                      SA2    IXFNFG                                                  ARITH    2759
                          5110000032              SA1    EPOINT                                                  ARITH    2760
          2547  0302001066 +                      ZR     X2,NEXTE    IF NOT IN AN I/O LIST                       ARITH    2761
                          6120000002              SB2    EL.)                                                    ARITH    2762
          2550  53310                             SA3    X1          E + 1                                       ARITH    2763
                     26033                        UX0    X3,B3                                                   ARITH    2764
                          6140000006              SB4    EL.(                                                    ARITH    2765
          2551  0732004077 +                      LT     B3,B2,RTPRN4      IF E + 1 IS ID OR CON                 ARITH    2766
                          0434004077 +            EQ     B3,B4,RTPRN4      IF E + 1  =  LEFT PAREN               ARITH    2767
          2552  0400001066 +                      EQ     NEXTE                                                   ARITH    2768
                                                                                                                 ARITH    2769
                                        *         DEBUG PROCESSOR FOR FUNCTION TRACING                           ARITH    2770
                                        *                                                                        ARITH    2771
          2553  5110001125 +             FN0.     SA1    DBGAPL+4    ADDR OF FUNC NAME IN SYMTAB                 ARITH    2772
                          53110                   SA1    X1                                                      ARITH    2773
          2554  5120000005 C                      SA2    ARLPT                                                   ARITH    2774
                          10622                   BX6    X2                                                      ARITH    2775
          2555  5160001125 +                      SA6    DBGAPL+4          SAVE BUFFER POINTER                   ARITH    2776
                          5120000031 +            SA2    RL1                                                     ARITH    2777
          2556  5130000032 +                      SA3    RL2                                                     ARITH    2778
                          10622                   BX6    X2                                                      ARITH    2779
                               22703              LX7    X3                                                      ARITH    2780
          2557  5160001126 +                      SA6    RL1TS                                                   ARITH    2781
                          5170001127 +            SA7    RL2TS                                                   ARITH    2782
          2560  5120001061 +                      SA2    LASTR                                                   ARITH    2783
                          10622                   BX6    X2                                                      ARITH    2784
          2561  5160001130 +                      SA6    LASTRTS                                                 ARITH    2785
                          43052                   MX0    60-18                                                   ARITH    2786
                               11601              BX6    X0*X1             GET FUNCTION NAME                     ARITH    2787
          2562  5120000301 +                      SA2    FNTYP             GET FUNCTION TYPE                     ARITH    2788
                          43700                   MX7    0                                                       ARITH    2789
                               63220              SB2    X2                                                      ARITH    2790
          2563  6130000003                        SB3    T.DBL                                                   ARITH    2791
                          6110000004              SB1    T.CPLX                                                  ARITH    2792
          2564  0423002566 +                      EQ     B2,B3,FN1.        DBL WORD FUNCTION RESULT              ARITH    2793
                          0421002566 +            EQ     B2,B1,FN1.        DBL WORD FUNCTION RESULT              ARITH    2794
          2565  43712                             MX7    10                                                      ARITH    2795
          2566  5170000302 +             FN1.     SA7    TS1                                                     ARITH    2796
                          12126                   BX1    X2+X6                                                   ARITH    2797
          2567  0100006514 +                      RJ     STRIP             CHECK FOR TRAILING $ IN NAME          ARITH    2798
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    62
         FUNCTION PROCESSING
  
          2570  6110000001                        SB1    1                                                       ARITH    2799
                          0100000000 X            RJ     CONVERT           PLACE IN CONS TABLE                   ARITH    2800
          2571  10611                             BX6    X1                                                      ARITH    2801
                     5160001121 +                 SA6    DBGAPL            BEGIN BUILDING ARGLIST TABLE          ARITH    2802
                               43700              MX7    0                                                       ARITH    2803
          2572  5170001123 +                      SA7    DBGAPL+2                                                ARITH    2804
                          7160007611 +            SX6    =8RBUGFUN                                               ARITH    2805
          2573  5160001124 +                      SA6    DBGAPL+3                                                ARITH    2806
                          5110001127 +            SA1    RL2TS                                                   ARITH    2807
          2574  43200                             MX2    0                                                       ARITH    2808
                     0100006041 +                 RJ     OTS         OUTPUT TEMP STORE                           ARITH    2809
          2575  20336                             LX3    30                                                      ARITH    2810
                     12632                        BX6    X3+X2       30/CA(ST.), 30/ORD(ST.)                     ARITH    2811
                          5110001121 +            SA1    DBGAPL      START OF ARGLIST TABLE                      ARITH    2812
          2576  5160001122 +                      SA6    DBGAPL+1    SET UP FOR APLIST PROCESSOR                 ARITH    2813
                          5120000000 X            SA2    =XN.AP                                                  ARITH    2814
          2577  10622                             BX6    X2                                                      ARITH    2815
                     7272000001                   SX7    X2+1                                                    ARITH    2816
                               54720              SA7    A2                UPDATED APLIST NUMBER                 ARITH    2817
          2600  0100000000 X                      RJ     IGCALL            GENERATE CALL MACROS                  ARITH    2818
          2601  5110007611 +                      SA1    =8RBUGFUN                                               ARITH    2819
                          6170002602 +            SB7    *+1                                                     ARITH    2820
          2602  0400000000 X                      EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS   ARITH    2821
          2603  7160000014                        SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD         ARITH    2822
                          20670                   LX6    P.TYP                SO REFERENCE WONT APPEAR IN        ARITH    2823
                               12762              BX7    X6+X2                THE REFERENCE MAP                  ARITH    2824
          2604  54720                             SA7    A2                                                      ARITH    2825
                     66600                        SB6    B0                                                      ARITH    2826
                          5120000000 C            SA2    STSORD                                                  ARITH    2827
          2605  76600                             SX6    B0                                                      ARITH    2828
                     5160000035 +                 SA6    IDORDLTS                                                ARITH    2829
          2606  5066000001                        SA6    A6+1                                                    ARITH    2830
                          6272777776              SB7    X2-1              FOR SINGLE LOAD                       ARITH    2831
          2607  5150000000 X                      SA5    ST.               IH OF ST.                             ARITH    2832
                          5110000302 +            SA1    TS1               GET TYPE FLAG,  0 IF DBL              ARITH    2833
          2610  0311002611 +                      NZ     X1,FN3.                                                 ARITH    2834
                          6177777776              SB7    B7-1              FOR DBL LOAD                          ARITH    2835
          2611  5110000301 +             FN3.     SA1    FNTYP             GET TYPE                              ARITH    2836
                          20170                   LX1    60-4                                                    ARITH    2837
                               10611              BX6    X1                                                      ARITH    2838
          2612  5160000326 +                      SA6    NAME+1            SET WORD FOR CALL                     ARITH    2839
                          0100005650 +            RJ     FETCH             GENERATE LOAD(S)                      ARITH    2840
          2613  5110000032 +                      SA1    RL2                                                     ARITH    2841
                          5251000002              SA5    X1+2              LAST MACRO WORD                       ARITH    2842
          2614  43054                             MX0    60-16                                                   ARITH    2843
                     15450                        BX4    -X0*X5            RESULT NUMBER                         ARITH    2844
                          5120000064              SA2    NARN              NEXT R NUMBER                         ARITH    2845
          2615  10622                             BX6    X2                                                      ARITH    2846
                     22704                        LX7    X4                                                      ARITH    2847
                          5160000013 +            SA6    PARAMS            NARN                                  ARITH    2848
          2616  5150000005 +                      SA5    EQCOUNT                                                 ARITH    2849
                          73550                   SX5    X5                                                      ARITH    2850
                               20542              LX5    34                                                      ARITH    2851
          2617  12656                             BX6    X5+X6             INSERT EQUAL SIGN COUNT               ARITH    2852
                     5160000375 +                 SA6    LEFRN                                                   ARITH    2853
          2620  5170000014 +                      SA7    PARAMS+1          RESULT                                ARITH    2854
                          5130000430 +            SA3    XMIT                                                    ARITH    2855
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    63
         FUNCTION PROCESSING
  
          2621  7272000001                        SX7    X2+1              INCREMENT R NUMBER                    ARITH    2856
                          66300                   SB3    B0                                                      ARITH    2857
          2622  5110000302 +                      SA1    TS1                                                     ARITH    2858
                          0311002627 +            NZ     X1,FN4.           0 IF DBL                              ARITH    2859
          2623  5130000375 +                      SA3    LEFRN                                                   ARITH    2860
                          43001                   MX0    1                                                       ARITH    2861
                               20073              LX0    59                                                      ARITH    2862
          2624  12603                             BX6    X0+X3                                                   ARITH    2863
                     54630                        SA6    A3                                                      ARITH    2864
                          5130000431 +            SA3    XMIT+1                                                  ARITH    2865
          2625  5170000015 +                      SA7    PARAMS+2          NARN+1                                ARITH    2866
                          7264000001              SX6    X4+1                                                    ARITH    2867
          2626  5160000016 +                      SA6    PARAMS+3          RESULT+1                              ARITH    2868
                          7277000001              SX7    X7+1              INCREMENT R NUMBER                    ARITH    2869
          2627  76530                    FN4.     SX5    B3                                                      ARITH    2870
                     54720                        SA7    A2                                                      ARITH    2871
                          0100005576 +            RJ     MACOUT            OUTPUT XMIT                           ARITH    2872
          2630  0100005536 +                      RJ     CHKOFF                                                  ARITH    2873
          2631  5140001125 +                      SA4    DBGAPL+4                                                ARITH    2874
                          5150000005 C            SA5    ARLPT             END OF FUNC BLOCK                     ARITH    2875
          2632  10644                             BX6    X4                                                      ARITH    2876
                     54650                        SA6    A5                START=END                             ARITH    2877
                          0100006137 +            RJ     DARLIST           FLUSH BUFFER                          ARITH    2878
          2633  5110001061 +                      SA1    LASTR                                                   ARITH    2879
                          5221000002              SA2    X1+2                                                    ARITH    2880
          2634  43054                             MX0    60-16                                                   ARITH    2881
                     15520                        BX5    -X0*X2            R RESULT                              ARITH    2882
                          5130001127 +            SA3    RL2TS             FORMER RESULT MACRO                   ARITH    2883
          2635  5243000002                        SA4    X3+2                                                    ARITH    2884
                          11604                   BX6    X0*X4                                                   ARITH    2885
                               12665              BX6    X6+X5             INSERT NEW R NUMBER                   ARITH    2886
          2636  54640                             SA6    A4                                                      ARITH    2887
                     10633                        BX6    X3                                                      ARITH    2888
                          5160000032 +            SA6    RL2               RESTORE NEW VALUE                     ARITH    2889
          2637  5110001126 +                      SA1    RL1TS                                                   ARITH    2890
                          5120001130 +            SA2    LASTRTS                                                 ARITH    2891
          2640  10611                             BX6    X1                                                      ARITH    2892
                     22702                        LX7    X2                                                      ARITH    2893
                          5160000031 +            SA6    RL1               RESTORE VALUE                         ARITH    2894
          2641  5170001061 +                      SA7    LASTR             RESTORE VALUE                         ARITH    2895
                          0400002662 +            EQ     ARGP1RT                                                 ARITH    2896
                                                                                                                 ARITH    2897
                                                                                                                 ARITH    2898
                                        *         DEBUG FUNCTION PREPROCESSOR                                    ARITH    2899
                                        *                                                                        ARITH    2900
          2642  0400402642 +             SARGLST  ENTRY. *                                                       FCC0822     7
          2643  5110000041 +                      SA1    FNAD                                                    FCC0822     8
                          5221777776              SA2    X1-1                                                    FCC0822     9
          2644  53110                             SA1    X1                                                      FCC0822    10
                     43052                        MX0    60-18                                                   ARITH    2902
                          11601                   BX6    X0*X1             GET FUNCTION NAME                     ARITH    2903
                               43070              MX0    60-L.TYP                                                ARITH    2904
          2645  20204                             LX2    60-P.TYP                                                ARITH    2905
                     15220                        BX2    -X0*X2            GET FUNCTION TYPE                     ARITH    2906
                          12162                   BX1    X6+X2                                                   ARITH    2907
          2646  0100006514 +                      RJ     STRIP             CHECK FOR TRAILING $ IN NAME          ARITH    2908
          2647  6110000001                        SB1    1                                                       ARITH    2909
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    64
         FUNCTION PROCESSING
  
                          0100000000 X            RJ     CONVERT           PLACE IN CONS TABLE                   ARITH    2910
          2650  10611                             BX6    X1                                                      ARITH    2911
                     5160001121 +                 SA6    DBGAPL            START BUILDING ARGLIST TABLE          ARITH    2912
                               43700              MX7    0                                                       ARITH    2913
          2651  5170001122 +                      SA7    DBGAPL+1                                                ARITH    2914
                          7160007612 +            SX6    =8RBUGFNN                                               ARITH    2915
          2652  5160001123 +                      SA6    DBGAPL+2                                                ARITH    2916
                          5110001121 +            SA1    DBGAPL            START OF ARGLIST TABLE                ARITH    2917
          2653  5120000000 X                      SA2    N.AP                                                    ARITH    2918
                          10622                   BX6    X2                                                      ARITH    2919
          2654  7272000001                        SX7    X2+1              INCREMENT APLIST NUMBER               ARITH    2920
                          54720                   SA7    A2                                                      ARITH    2921
          2655  0100000000 X                      RJ     IGCALL            OUTPUT CALL MACRO                     ARITH    2922
          2656  5110007612 +                      SA1    =8RBUGFNN                                               ARITH    2923
                          6170002657 +            SB7    *+1                                                     ARITH    2924
          2657  0400000000 X                      EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS   ARITH    2925
          2660  7160000014                        SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD         ARITH    2926
                          20670                   LX6    P.TYP                SO REFERENCE WONT APPEAR IN        ARITH    2927
                               12762              BX7    X6+X2                THE REFERENCE MAP                  ARITH    2928
          2661  54720                             SA7    A2                                                      ARITH    2929
                     0400002642 +                 EQ     SARGLST                                                 FCC0822    11
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    65
         FUNCTION PROCESSING
  
          2662  00000000000000000000     ARGP1RT  DATA      0                                                    ARITH    2934
          2663  5110000041 +                      SA1       FNAD      CHECK NO.OF ARGS                           ARITH    2935
                          5130000042 +            SA3       ACNT                                                 ARITH    2936
          2664  5221777776                        SA2    X1-1                                                    ARITH    2937
                          43066                   MX0    60-L.FARG                                               ARITH    2938
                               20216              LX2    60-P.FARG                                               ARITH    2939
          2665  15420                             BX4    -X0*X2                                                  ARITH    2940
                     37534                        IX5    X3-X4                                                   ARITH    2941
                          0314002671 +            NZ     X4,ARGP2     IF NO.OF ARGS.IS OR HAS BEEN ESTABLISHED.  ARITH    2942
          2666  20204                             LX2    P.FARG-P.INF-1    IS INTRIN BIT SET                     ARITH    2943
                     0332003055 +                 NG     X2,ARGP10    IF YES (INTR FUN WITH NO ARG CNT SPECIFYD) ARITH    2944
                               20252              LX2    P.INF-59                                                ARITH    2945
          2667  20356                             LX3    P.FARG                                                  ARITH    2946
                     12623                        BX6    X2+X3                                                   ARITH    2947
                          54620                   SA6    A2           STORE 2ND WD OF SYMTAB ENTRY WITH NO.OF    ARITH    2948
          2670  0400002675 +                      ZR        ARGP3                                     ARGS SET   ARITH    2949
                                        *                                                                        ARITH    2950
          2671  0305002675 +             ARGP2    ZR     X5,ARGP3     IF NO. OF ARGS USED SAME AS ESTABLISHED NO ARITH    2951
                                                  LX2    P.FARG-P.LIB-1                                          ARITH    2952
                          0332002673 +            NG     X2,ARGP5          IF BASIC EXTERNAL                     ARITH    2953
          2672  20204                             LX2    P.LIB-P.INF                                             ARITH    2954
                     0322002674 +                 PL     X2,ARGP5A   IF NOT INTRINSIC                            ARITH    2955
          2673  6160777544               ARGP5    EERR   -ERMSG21    WRONG NO. OF ARGS FOR INT OR BEF FUNC       ARITH    2956
                                                                                                                 ARITH    2957
          2674  6160000252               ARGP5A   IDM    ERMSG36     INCONSISTENT ARGUMENT COUNT                 ARITH    2958
                                                                                                                 ARITH    2959
          2675  5110000041 +             ARGP3    SA1    FNAD                                                    ARITH    2960
                          5221777776              SA2    X1-1                                                    ARITH    2961
          2676  20221                             LX2    59-P.BEF                                                ARITH    2962
                     0332003046 +                 NG     X2,ARGP4     IF BASIC EXT                               ARITH    2963
                               20201              LX2    P.BEF-P.INF                                             ARITH    2964
          2677  0332003055 +                      NG     X2,ARGP10    IF INTR.                                   ARITH    2965
                          5110001131 +            SA1    FTRFLG                                                  FCC0822    12
          2700  0301002706 +                      ZR     X1,ARGP3A   IF NOT DEBUG-TRACING THIS FUNCTION          FCC0822    13
                          0100002334 +            RJ     FUNC8       STORE ANY FUNCTION RESULT ACROSS *BUGFNN*   FCC0822    14
          2701  5150000005 C                      SA5    ARLPT                                                   FCC0822    15
                          10655                   BX6    X5                                                      FCC0822    16
          2702  5160000302 +                      SA6    TS1         SAVE ARLIST POINTER                         FCC0822    17
                          0100002642 +            RJ     SARGLST     GENERATE *RJ BUGFNN*                        FCC0822    18
          2703  5140000302 +                      SA4    TS1                                                     FCC0822    19
                          10644                   BX6    X4                                                      FCC0822    20
          2704  5150000005 C                      SA5    ARLPT                                                   FCC0822    21
                          54650                   SA6    A5          RESTORE ARLIST POINTER                      FCC0822    22
          2705  0100006137 +                      RJ     DARLIST     FLUSH *RJ BUGFNN*                           FCC0822    23
                                                                                                                 FCC0822    24
          2706  5120000041 +             ARGP3A   SA2    FNAD                                                    FCC0822    25
                          5130000012              SA3    SYM1              START OF SYMTAB                       ARITH    2967
          2707  37232                             IX2    X3-X2                                                   ARITH    2968
                     21201                        AX2    1                 IH OF FUNCTION                        ARITH    2969
                          5140000043 +            SA4    STAPLC                                                  ARITH    2970
          2710  5110000000 X                      SA1    N.AP                                                    ARITH    2971
                          7261000001              SX6    X1+1                                                    ARITH    2972
          2711  54610                             SA6    A1                                                      ARITH    2973
                     5130000037                   SA3    CDCNT             LINE COUNT                            ARITH    2974
          2712  0100006102 +                      RJ     GEFCM                                                   ARITH    2975
          2713  0100002715 +                      RJ        ARGP8CR                                              ARITH    2976
          2714  0400002761 +                      ZR        ARGP8A                                               ARITH    2977
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    66
         FUNCTION PROCESSING
  
                                                                                                                 ARITH    2978
          2715  00000000000000000000     ARGP8CR  DATA      0                                                    ARITH    2979
          2716  5110000044 +             ARGP8C   SA1       SSFRSTB   SIZE OF FRSTB AT START OF THIS FUNC        ARITH    2980
                          5120000376 +            SA2       SFRSTB    SIZE AT END OF FUNC                        ARITH    2981
          2717  37321                             IX3    X2-X1                                                   ARITH    2982
                     0303002715 +                 ZR    X3,ARGP8CR    IF NO (MORE) FUNCS SAVED IN THIS ARG LIST. ARITH    2983
          2720  5212000144 +                      SA1    X2+FRSTB-1   GET LAST ENTRY                             ARITH    2984
                          7262777776              SX6    X2-1                                                    ARITH    2985
          2721  5160000376 +                      SA6       SFRSTB    REDUCE SIZE                                ARITH    2986
                          5140000064              SA4       NARN      X4=I1 (INTERMEDIATE RESULT 1)              ARITH    2987
          2722  43054                             MX0       60-16                                                ARITH    2988
                     15710                        BX7   -X0*X1        X7,P1(FINAL RESULT 1)                      ARITH    2989
                          5130000337 +            SA3       EXRL1                                                ARITH    2990
          2723  5120000371 +                      SA2       RNFIB     R NAME OF 1ST INSTR IN BASE                ARITH    2991
                          0303002727 +            ZR     X3,ARGP8C1   IF NOT PROCESSING ** CALL                  ARITH    2992
          2724  37372                             IX3    X7-X2                                                   ARITH    2993
                     0323002727 +                 PL     X3,ARGP8C1   IF THIS FUNC IS PART OF THIS **            ARITH    2994
          2725  5130000376 +                      SA3       SFRSTB                                               ARITH    2995
                          7263000001              SX6    X3+1                                                    ARITH    2996
          2726  5160000376 +                      SA6       SFRSTB                                               ARITH    2997
                          0400002715 +            ZR        ARGP8CR                                              ARITH    2998
          2727                           ARGP8C1  BSS       0                                                    ARITH    2999
          2727  10644                             BX6    X4                                                      ARITH    3000
                     20620                        LX6    16                                                      ARITH    3001
                          12667                   BX6    X6+X7                                                   ARITH    3002
                               43052              MX0    60-18                                                   ARITH    3003
          2730  5160000362 +                      SA6    ARGP1TS+5         NARN AND RESULT                       ARITH    3004
                          6120777644              SB2    -SLMACO                                                 ARITH    3005
          2731  43301                             MX3    1                                                       ARITH    3006
                     20337                        LX3    31                                                      ARITH    3007
                          6130777642              SB3    -XMITOP                                                 ARITH    3008
          2732  12637                             BX6    X3+X7                                                   ARITH    3009
                     27636                        PX6    B3,X6             FORM MACRO WORD                       ARITH    3010
                          5160000361 +            SA6    ARGP1TS+4         MACRO WORD                            ARITH    3011
          2733  7130000003                        SX3    3                                                       ARITH    3012
                          20336                   LX3    30                                                      ARITH    3013
                               12634              BX6    X3+X4                                                   ARITH    3014
          2734  27626                             PX6    B2,X6             FORM MACRO WORD                       ARITH    3015
                     5130000000 X                 SA3    ST.                                                     ARITH    3016
                               10733              BX7    X3                                                      ARITH    3017
          2735  5160000355 +                      SA6    ARGP1TS           MACRO WORD                            ARITH    3018
                          20154                   LX1    60-16                                                   ARITH    3019
                               15610              BX6    -X0*X1            TS ORD                                ARITH    3020
          2736  5170000356 +                      SA7    ARGP1TS+1         IH OF ST.                             ARITH    3021
                          5160000360 +            SA6    ARGP1TS+3         TS ORD                                ARITH    3022
          2737  10744                             BX7    X4                                                      ARITH    3023
                     5170000357 +                 SA7    ARGP1TS+2         NARN                                  ARITH    3024
                               20121              LX1    59-58+16                                                ARITH    3025
          2740  7264000001                        SX6    X4+1                                                    ARITH    3026
                          0321002742 +            PL     X1,ARGP8B         IF NOT DBL                            ARITH    3027
          2741  43700                             MX7    0                                                       ARITH    3028
                     7266000001                   SX6    X6+1                                                    ARITH    3029
          2742  5170000364 +             ARGP8B   SA7    ARGP1TS+7                                               ARITH    3030
                          5160000064              SA6    NARN                                                    ARITH    3031
          2743  6110000001                        SB1    1                                                       ARITH    3032
                          6160000355 +            WRITEW =XF.RLST,ARGP1TS,6      MACROS TO -RLIST-               ARITH    3033
          2746  5110000364 +                      SA1    ARGP1TS+7                                               ARITH    3034
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    67
         FUNCTION PROCESSING
  
                          6150000001              SB5    1                                                       ARITH    3035
          2747  0311002716 +                      NZ     X1,ARGP8C                                               ARITH    3036
                          7110000001              SX1    1                                                       ARITH    3037
          2750  5120000355 +                      SA2    ARGP1TS                                                 ARITH    3038
                          5130000357 +            SA3    ARGP1TS+2                                               ARITH    3039
          2751  36621                             IX6    X2+X1             UP NARN IN MACRO WORD                 ARITH    3040
                     36731                        IX7    X3+X1             UP NARN IN MACRO                      ARITH    3041
                          54620                   SA6    A2                                                      ARITH    3042
                               54730              SA7    A3                                                      ARITH    3043
          2752  5120000360 +                      SA2    ARGP1TS+3                                               ARITH    3044
                          5130000361 +            SA3    ARGP1TS+4                                               ARITH    3045
          2753  36621                             IX6    X2+X1             UP ST ORD                             ARITH    3046
                     36731                        IX7    X3+X1             UP NARN IN MACRO WORD                 ARITH    3047
                          54620                   SA6    A2                                                      ARITH    3048
                               54730              SA7    A3                                                      ARITH    3049
          2754  5120000362 +                      SA2    ARGP1TS+5                                               ARITH    3050
                          36221                   IX2    X2+X1             UP RESULT IN MACRO                    ARITH    3051
                               20254              LX2    60-16                                                   ARITH    3052
          2755  36621                             IX6    X2+X1             UP NARN IN MACRO                      ARITH    3053
                     20620                        LX6    16                                                      ARITH    3054
                          54620                   SA6    A2                                                      ARITH    3055
          2756  6160000355 +                      WRITEW =XF.RLST,ARGP1TS,6      MACROS TO -RLIST-               ARITH    3056
          2760  6150000001                        SB5    1                                                       ARITH    3057
                          0400002716 +            EQ     ARGP8C                                                  ARITH    3058
                                                                                                                 ARITH    3059
          2761                           ARGP8A   BSS       0                                                    ARITH    3060
          2761  5110000041 +                      SA1       FNAD      GET FNTYP                                  ARITH    3061
                          10611                   BX6    X1                                                      ARITH    3062
          2762  5160001125 +                      SA6    DBGAPL+4          SAVE ADDR OF FUNC NAME                ARITH    3063
                          43070                   MX0    60-L.TYP                                                ARITH    3064
          2763  5221777776                        SA2    X1-1                                                    ARITH    3065
                          20204                   LX2    60-P.TYP                                                ARITH    3066
                               15720              BX7   -X0*X2                                                   ARITH    3067
          2764  7267777763                        SX6    X7-T.CGS                                                ARITH    3068
                          0306003113 +            ZR     X6,ARGP15         BRANCH IF EXPONENTIAL FUNCTION        ARITH    3069
          2765  5170000301 +             ARGP8D   SA7    FNTYP             SAVE FUNCTION TYPE                    ARITH    3070
                          10577                   BX5    X7           X5=TYPE FOR MACOUT                         ARITH    3071
          2766  5120000064                        SA2       NARN                                                 ARITH    3072
                          10622                   BX6    X2                                                      ARITH    3073
          2767  5160000013 +                      SA6       PARAMS    NAME OF RESULT OF FUN                      ARITH    3074
                          5160000300 +            SA6       FRN                                                  ARITH    3075
          2770  7262000001                        SX6    X2+1                                                    ARITH    3076
                          5160000064              SA6       NARN                                                 ARITH    3077
          2771  5130000426 +                      SA3       DFRMD                                                ARITH    3078
                          0100005576 +            RJ        MACOUT    OUTPUT REG DEFINE OP RN=X6                 ARITH    3079
          2772  0100005536 +                      RJ        CHKOFF                                               ARITH    3080
          2773  5130000301 +                      SA3    FNTYP                                                   ARITH    3081
                          7243777774              SX4    X3-T.DBL                                                ARITH    3082
          2774  0304002776 +                      ZR     X4,ARGP6     IF DBL WD FUN                              ARITH    3083
                          7243777773              SX4    X3-T.CPLX                                               ARITH    3084
          2775  0314003005 +                      NZ     X4,ARGP7     IF SNGL WD FUN                             ARITH    3085
          2776  5120000064               ARGP6    SA2       NARN                                                 ARITH    3086
                          10622                   BX6    X2                                                      ARITH    3087
          2777  5160000013 +                      SA6       PARAMS                                               ARITH    3088
                          7272000001              SX7    X2+1                                                    ARITH    3089
          3000  5170000064                        SA7       NARN                                                 ARITH    3090
                          5130000427 +            SA3       DFRMD+1                                              ARITH    3091
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    68
         FUNCTION PROCESSING
  
          3001  0100005576 +                      RJ        MACOUT                                               ARITH    3092
          3002  0100005536 +                      RJ        CHKOFF                                               ARITH    3093
          3003  5110000300 +                      SA1       FRN                                                  ARITH    3094
                          43001                   MX0       1                                                    ARITH    3095
                               20073              LX0       59                                                   ARITH    3096
          3004  12610                             BX6    X1+X0                                                   ARITH    3097
                     5160000300 +                 SA6       FRN                                                  ARITH    3098
          3005  5110000300 +             ARGP7    SA1       FRN                                                  ARITH    3099
                          10611                   BX6    X1                                                      ARITH    3100
          3006  5150000005 +                      SA5    EQCOUNT                                                 ARITH    3101
                          73550                   SX5    X5                                                      ARITH    3102
                               20542              LX5    34                                                      ARITH    3103
          3007  12656                             BX6    X5+X6             INSERT EQUAL SIGN COUNT               ARITH    3104
                     5160000375 +                 SA6       LEFRN                                                ARITH    3105
          3010  5150000005 C                      SA5       ARLPT     CALL DARLIST. FRLW AND ARLPT ARE BOUNDS OF ARITH    3106
                          5140000040 +            SA4       FRLW        ARLIST OT SEND TO RLIST.                 ARITH    3107
          3011  73740                             SX7    X4                                                      ARITH    3108
                     5170000005 C                 SA7       ARLPT                                                ARITH    3109
          3012  0100006137 +                      RJ        DARLIST                                              ARITH    3110
                                        *     RESET LASTR                                                        ARITH    3111
          3013  5110000005 C                      SA1       ARLPT                                                ARITH    3112
                          5221000000              SA2    X1+ARLIST    A2=ADR OF 1ST ENTRY OUTPUT BY DARLIST      ARITH    3113
          7632  20740000000000003013 +            SUB                                                            ARITH    3114
          3014  0322003015 +                      PL     X2,ARGP7A    IF NOT NO-OPED                             ARITH    3115
                          14222                   BX2   -X2                                                      ARITH    3116
          3015  63220                    ARGP7A   SB2    X2           B2=NO.WDS IN PRECEDING ENTRY               ARITH    3117
                     75622                        SX6    A2-B2                                                   ARITH    3118
                          5160001061 +            SA6       LASTR                                                ARITH    3119
          3016  5120000300 +                      SA2       FRN       FUNCTION RESULTNAME                        ARITH    3120
                          5150000301 +            SA5       FNTYP     FUN TYPE                                   ARITH    3121
          3017  43300                             MX3       0         OUTPUT PSUEDO-OP TO ARLIST NAMING FRN AS - ARITH    3122
                     0100005576 +                 RJ        MACOUT                               AN OPERAND.     ARITH    3123
          3020  5110000032 +                      SA1       RL2       TURN ON NO-OP BIT IN MACRO                 ARITH    3124
                          5221000002              SA2    X1+2                                                    ARITH    3125
          3021  43001                             MX0       1                                                    ARITH    3126
                     12602                        BX6    X0+X2                                                   ARITH    3127
                          5261000002              SA6    X1+2                                                    ARITH    3128
          3022  5110000032               ARGP21   SA1       EPOINT    IS NEXT E A ** -                           ARITH    3129
                          6130000024              SB3    EL.DSTR                                                 ARITH    3130
          3023  53210                             SA2    X1                                                      ARITH    3131
                     26022                        UX0 B2,X2                                                      ARITH    3132
                          0523003030 +            NE B2,B3,ARGP22     IF NOT                                     ARITH    3133
          3024  5110000402 +                      SA1       ITFFG     IS THIS INTR FUN-                          ARITH    3134
                          0301003030 +            ZR     X1,ARGP22    IF NOT                                     ARITH    3135
          3025  5110000040 +                      SA1       FRLW      SET UP START OF BASE IN ARLIST FOR ** OP   ARITH    3136
                          5130000044 +            SA3    SSFRSTB     COUNT OF FUNCTION RESULT SAVED              ARITH    3137
          3026  73710                             SX7    X1                                                      ARITH    3138
                     10633                        BX6    X3                                                      ARITH    3139
                          5170001057 +            SA7       STBASE                                               ARITH    3140
          3027  5160000370 +                      SA6    NSFR                                                    ARITH    3141
          3030  43600                    ARGP22   MX6       0                                                    ARITH    3142
                     5160000402 +                 SA6       ITFFG                                                ARITH    3143
          3031  5110000377 +                      SA1       OSPTR                                                ARITH    3144
                          43071                   MX0       60-3      RESET EMODE                                ARITH    3145
          3032  5221007622 +                      SA2    X1+OPSTAK+1                                             ARITH    3146
                          21223                   AX2       19                                                   ARITH    3147
                               15620              BX6   -X0*X2                                                   ARITH    3148
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    69
         FUNCTION PROCESSING
  
          3033  5160001062 +                      SA6       EMODE                                                ARITH    3149
                          5221007621 +            SA2    X1+OPSTAK    GET NO.OF WORDS TO MOVE TO FRLWBLOK        ARITH    3150
          3034  37612                             IX6    X1-X2        REDUCE OSPTR ACCORDINGLY                   ARITH    3151
                     5160000377 +                 SA6       OSPTR                                                ARITH    3152
          3035  6222777776                        SB2    X2-1         B2=NO.OF WORDS TO MOVE TO FRLW BLOK        ARITH    3153
                          66300                   SB3    B0                                                      ARITH    3154
          3036  6140000001                        SB4       1                                                    ARITH    3155
          3037  55322                    ARGP20   SA3    A2-B2        MOVE FROM OPSTAK TO FRLW                   ARITH    3156
                     10633                        BX6    X3                                                      ARITH    3157
                          5163000040 +            SA6    B3+FRLW                                                 ARITH    3158
          3040  67224                             SB2    B2-B4                                                   ARITH    3159
                     66334                        SB3    B3+B4                                                   ARITH    3160
                          0520003037 +            NZ     B2,ARGP20    IF MORE TO MOVE                            ARITH    3161
          3041  5130000040 +                      SA3    FRLW                                                    ARITH    3162
                          43601                   MX6    1                                                       ARITH    3163
                               11763              BX7    X6*X3       RECOVER FUNCTION TRACE FLAG                 ARITH    3164
          3042  5120001131 +                      SA2    FTRFLG                                                  ARITH    3165
                          20701                   LX7    1                                                       ARITH    3166
                               54720              SA7    A2                                                      ARITH    3167
          3043  15636                             BX6    -X6*X3            IGNORE FUNCTION TRACE FLAG            ARITH    3168
                     54630                        SA6    A3                                                      ARITH    3169
                          21622                   AX6    18                                                      ARITH    3170
          3044  5160000332 +                      SA6    TYADR                                                   ARITH    3171
                          0312002553 +            NZ     X2,FN0.     IF TO PROCESS DEBUG FUNCTION TRACING        ARITH    3172
          3045  0400002662 +                      ZR        ARGP1RT                                              ARITH    3173
                                        *                                                                        ARITH    3174
                                        *     ARGP4 IF BASIC EXT FUN (A POPPED                                   ARITH    3175
          3046  5110000041 +             ARGP4    SA1       FNAD      SET UP IH OF FUN                           ARITH    3176
                          5120000012              SA2       SYM1                                                 ARITH    3177
          3047  37621                             IX6    X2-X1                                                   ARITH    3178
                     21601                        AX6       1                                                    ARITH    3179
                          5160000013 +            SA6       PARAMS    IH OF FUN                                  ARITH    3180
          3050  5130000433 +                      SA3       BEFMD                                                ARITH    3181
                          5120000064              SA2    NARN                                                    ARITH    3182
          3051  43500                             MX5    0                                                       ARITH    3183
                     0100005576 +                 RJ     MACOUT                                                  ARITH    3184
          3052  0100005536 +                      RJ     CHKOFF                                                  ARITH    3185
          3053  0100002715 +                      RJ     ARGP8CR                                                 ARITH    3186
          3054  0400002761 +                      EQ     ARGP8A                                                  ARITH    3187
                                                                                                                 ARITH    3188
                                        *     ARGP10 IF INTRINSIC FUN (A POPPED                                  ARITH    3189
          3055  20273                   ARGP10    LX2    -1              IF THE ARG COUNT IS 0 ITS A MAX OR MIN  ARITH    3190
                     7170000012                   SX7       10        SET INTR FUN FLG FOR ARGP21                ARITH    3191
                               43066              MX0    60-L.FARG                                               ARITH    3192
          3056  5170000402 +                      SA7       ITFFG                                                ARITH    3193
                          15520                   BX5   -X0*X2                                                   ARITH    3194
          3057  5110000041 +                      SA1       FNAD      GET MAC DESC WD                            ARITH    3195
                          10611                   BX6    X1                                                      ARITH    3196
          3060  5160001125 +                      SA6    DBGAPL+4          SAVE SYMTAB ADDRESS                   ARITH    3197
                          53210                   SA2    X1           GET NAME OF FUN IN E LIST FORMAT           ARITH    3198
                               43052              MX0    L.NAME                                                  ARITH    3199
          3061  11602                             BX6    X0*X2                                                   ARITH    3200
                     21614                        AX6    P.NAME-6                                                ARITH    3201
                          7120000055              SX2       1R        SET X2=BLANK                               ARITH    3202
          3062  12662                             BX6    X6+X2                                                   ARITH    3203
                     5160000011 +                 SA6       OP                                                   ARITH    3204
                               76700              SX7    B0          INITIALIZE BIAS OF PARAMS                   ARITH    3205
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    70
         FUNCTION PROCESSING
  
          3063  0305003216 +                      ZR     X5,MXMNF                                                ARITH    3206
                          6150000001              SB5    1                                                       ARITH    3207
          3064  5120000045 +                      SA2    RNTB-1      MOVE RNTB TO PARAMS                         ARITH    3208
                          5110000045 +            SA1    RNTBC                                                   ARITH    3209
          3065  54225                    ARGP10A  SA2    A2+B5                                                   ARITH    3210
                     7211777776                   SX1    X1-1                                                    ARITH    3211
                               73620              SX6    X2                                                      ARITH    3212
          3066  5267000013 +                      SA6    X7+PARAMS                                               ARITH    3213
                          73775                   SX7    X7+B5                                                   ARITH    3214
                               73665              SX6    X6+B5                                                   ARITH    3215
          3067  0322003070 +                      PL     X2,ARGP10B  IF NOT DBL WORD                             ARITH    3216
                          54665                   SA6    A6+B5                                                   ARITH    3217
                               73775              SX7    X7+B5                                                   ARITH    3218
          3070  0311003065 +             ARGP10B  NZ     X1,ARGP10A  IF MORE TO MOVE                             ARITH    3219
                          5170000045 +            SA7    RNTBC                                                   ARITH    3220
          3071  5120000332 +                      SA2    TYADR                                                   ARITH    3221
                          53420                   SA4    X2                WORD 1 OF FUNCTION TABLE ENTRY        ARITH    3222
          3072  5252000001                        SA5    X2+1              2ND WORD OF ENTRY                     ARITH    3223
                          5232000003              SA3    X2+3              4TH WORD OF ENTRY                     ARITH    3224
          3073  7225777776                        SX2    X5-1         SEE IF RNM TYPE FUNC                       ARITH    3225
                          0312003115 +            NZ     X2,ARGP11A   IF NOT RNM TYPE                            ARITH    3226
          3074  43612                             MX6       10                                                   ARITH    3227
                     5160000403 +                 SA6       RNMFG                                                ARITH    3228
                                                                                                                 ARITH    3229
                                        *         RNTBC = PARAMS INDEX TO STORE R NUMBER OF RESULT               ARITH    3230
                                        *         X3 = MACRO DESCRIPTOR WORD FOR "MACOUT"                        ARITH    3231
                                                                                                                 ARITH    3232
          3075  43004                   ARGP11B   MX0    L.TYP                                                   ARITH    3233
                     5120000041 +                 SA2       FNAD                                                 ARITH    3234
                               10622              BX6    X2                                                      ARITH    3235
          3076  5160001125 +                      SA6    DBGAPL+4          SAVE ADDRESS OF FUNC NAME             ARITH    3236
                          5252777776              SA5    X2-1                                                    ARITH    3237
          3077  11505                             BX5    X0*X5                                                   ARITH    3238
                     20504                        LX5    L.TYP                                                   ARITH    3239
                          5140000045 +            SA4       RNTBC                                                ARITH    3240
          3100  5120000064                        SA2       NARN                                                 ARITH    3241
                          6225777774              SB2    X5-T.DBL                                                ARITH    3242
          3101  10622                             BX6    X2                                                      ARITH    3243
                     5264000013 +                 SA6    X4+PARAMS                                               ARITH    3244
          3102  0420003104 +                      ZR     B2,ARGP12                                               ARITH    3245
                          6225777773              SB2    X5-T.CPLX                                               ARITH    3246
          3103  0520003105 +                      NZ     B2,ARGP14   IF SINGLE WD RESULT                         ARITH    3247
          3104  7266000001               ARGP12   SX6    X6+1                                                    ARITH    3248
                          5264000014 +            SA6    X4+PARAMS+1                                             ARITH    3249
          3105  7266000001               ARGP14   SX6    X6+1                                                    ARITH    3250
                          5160000064              SA6       NARN                                                 ARITH    3251
          3106  0100005576 +                      RJ        MACOUT    X2,X3,X5 ALL SET                           ARITH    3252
          3107  5110000403 +                      SA1       RNMFG     SEE IF RNM TYPE FUNC                       ARITH    3253
                          0301003022 +            ZR     X1,ARGP21    IF NOT                                     ARITH    3254
          3110  5110001061 +                      SA1       LASTR     SET XMT BIT IN ARLIST                      ARITH    3255
                          43600                   MX6       0                                                    ARITH    3256
                               53210              SA2    X1                                                      ARITH    3257
          3111  5160000403 +                      SA6       RNMFG                                                ARITH    3258
                          43001                   MX0       1                                                    ARITH    3259
                               20055              LX0       45                                                   ARITH    3260
          3112  12702                             BX7    X0+X2                                                   ARITH    3261
                     54720                        SA7    A2                                                      ARITH    3262
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    71
         FUNCTION PROCESSING
  
                          0400003022 +            ZR        ARGP21    GO RESTORE FRLW,EMODE,ETC., TO PREVIOUS FN ARITH    3263
                                                                                                                 ARITH    3264
                                        *         GET TYPE OF EXPONENTIAL FUNCTION                               ARITH    3265
                                                                                                                 ARITH    3266
          3113  5110000336 +             ARGP15   SA1    EXPFNE            FUNCTION NAME AND TYPE                ARITH    3267
                          20104                   LX1    60-P.TYP                                                ARITH    3268
                               15710              BX7    -X0*X1            EXP FUNC TYPE                         ARITH    3269
          3114  0400002765 +                      EQ     ARGP8D                                                  ARITH    3270
                                                                                                                 ARITH    3271
          3115  0323003075 +             ARGP11A  PL     X3,ARGP11B        IF THIS INTRIN DOESNT NEED SPECIAL    ARITH    3272
                                        *                                  PROCESSING                            ARITH    3273
                          5120001061 +            SA2    LASTR                                                   ARITH    3274
          3116  63330                             SB3    X3                JUMP ADDRESS OF PROCESSOR             ARITH    3275
                     21336                        AX3    30                                                      ARITH    3276
                          53120                   SA1    X2                ARLIST HEADER WORD                    ARITH    3277
                               10411              BX4    X1                                                      ARITH    3278
          3117  53330                             SA3    X3                FETCH DEFAULT MACRO DESCRIPTOR        ARITH    3279
                     20414                        LX4    59-47             POSITION CONSTANT/VAR BIT             ARITH    3280
                          0233000000              JP     B3                                                      ARITH    3281
                                                                                                                 ARITH    3282
                                        *         COMPL(WORD) - PASS ONLY ONE ARG IN RLIST                       ARITH    3283
                                                                                                                 ARITH    3284
          3120  76750                    ACOMPL   SX7    B5                                                      ARITH    3285
                     54770                        SA7    A7          FORCE RNTBC TO BE 1                         ARITH    3286
                          0400003075 +            EQ     ARGP11B                                                 ARITH    3287
                                                                                                                 ARITH    3288
                                        *         SHIFT(WORD,SC) - SPECIAL CASE CONSTANT SHIFT COUNT             ARITH    3289
                                                                                                                 ARITH    3290
          3121  5150000047 +             ASHIFT   SA5    RNTB+1            CORRECT PARAMS IF SHIFT WORD IS DBL   ARITH    3291
                          76755                   SX7    B5+B5                                                   ARITH    3292
                               10655              BX6    X5                                                      ARITH    3293
          3122  5170000045 +                      SA7    RNTBC                                                   ARITH    3294
                          5160000014 +            SA6    PARAMS+1                                                ARITH    3295
          3123  0324003075 +                      PL     X4,ARGP11B        IF 2ND ARG NOT CONSTANT               ARITH    3296
                          0100006211 +            RJ     NEWCON            GET THE CONSTANT                      ARITH    3297
          3124  76750                             SX7    B5                                                      ARITH    3298
                     73660                        SX6    X6                TRUNCATE CONSTANT                     ARITH    3299
                          5170000045 +            SA7    RNTBC             SET INDEX FOR NRLN  STORE             ARITH    3300
          3125  0306003137 +                      ZR     X6,ASHIFT1        IF SC = 0                             ARITH    3301
                          0336003130 +            NG     X6,ASHIFT0        IF NEG COUNT                          ARITH    3302
          3126  23356                             AX3    B5,X6                                                   ARITH    3303
                     0303003141 +                 ZR     X3,ASHIFT2        IF CONSTANT SHIFT OF + 1              ARITH    3304
          3127  6246777703                        SB4    X6-60                                                   ARITH    3305
                          0440003137 +            ZR     B4,ASHIFT1  IF SC = 60                                  ARITH    3306
          3130  43001                    ASHIFT0  MX0    1                                                       ARITH    3307
                     11506                        BX5    X0*X6             GET SIGN OF CONSTANT                  ARITH    3308
                          22755                   LX7    B5,X5                                                   ARITH    3309
                               21573              AX5    59                                                      ARITH    3310
          3131  13665                             BX6    X6-X5             ABS(SC)                               ARITH    3311
                     5237000530 +                 SA3    MD.CSFT+X7        CONSTANT SHIFT MACRO DESCRIPTOR       ARITH    3312
          3132  5160000015 +                      SA6    PARAMS+2                                                ARITH    3313
                          5160000403 +            SA6    RNMFG             INDICATE XMT NEEDED BEFORE STORE      ARITH    3314
          3133  7206777702                        SX0    X6-61                                                   ARITH    3315
                          0330003075 +            MI     X0,ARGP11B  IF S.C. IN RANGE, ABS(S.C.) .LE. 60         ARITH    3316
          3134  22703                             LX7    X3                                                      ARITH    3317
                     5170000372 +                 SA7    MACDES                                                  ARITH    3318
          3135  6160777321                        IDM    -ERMSG56    SHIFT ARG OUT OF RANGE                      ARITH    3319
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    72
         FUNCTION PROCESSING
  
          3136  5130000372 +                      SA3    MACDES                                                  ARITH    3320
                          0400003075 +            EQ     ARGP11B                                                 ARITH    3321
                                                                                                                 ARITH    3322
                                        *         SHIFT(WORD,0) - RENAME THE RESULT                              ARITH    3323
                                                                                                                 ARITH    3324
          3137  6170000156               ASHIFT1  SB7    MCHMCB+4          RENAME OPCODE                         ARITH    3325
                          5140001064 +            SA4    SLBMD             DESCRIPTOR WORD                       ARITH    3326
          3140  27374                             PX3    B7,X4                                                   ARITH    3327
                     0400003075 +                 EQ     ARGP11B                                                 ARITH    3328
                                                                                                                 ARITH    3329
                                        *         SHIFT(WORD,1) - GENERATE INTEGER ADD                           ARITH    3330
                                                                                                                 ARITH    3331
          3141  5110000013 +             ASHIFT2  SA1    PARAMS                                                  ARITH    3332
                          10611                   BX6    X1                                                      ARITH    3333
          3142  5061000001                        SA6    A1+1                                                    ARITH    3334
                          5061000002              SA6    A1+2                                                    ARITH    3335
          3143  43700                             MX7    0                                                       ARITH    3336
                     5170000045 +                 SA7    RNTBC                                                   ARITH    3337
          3144  6170000217                        SB7    MAC+32                                                  ARITH    3338
                          5140001064 +            SA4    SLBMD                                                   ARITH    3339
          3145  27374                             PX3    B7,X4                                                   ARITH    3340
                     0400003075 +                 EQ     ARGP11B                                                 ARITH    3341
                                                                                                                 ARITH    3342
                                        *         MASK(N) - SPECIAL CASE CONSTANT MASK COUNT                     ARITH    3343
                                                                                                                 ARITH    3344
          3146  0324003075 +             AMASK    PL     X4,ARGP11B        IF NOT A CONSTANT MASK                ARITH    3345
                          0100006211 +            RJ     NEWCON            GET THE CONSTANT                      ARITH    3346
          3147  76700                             SX7    B0                                                      ARITH    3347
                     5170000045 +                 SA7    RNTBC             SET PARAM STORE INDEX                 ARITH    3348
                               73660              SX6    X6          TRUNCATE N                                  ARITH    3349
          3150  5130000527 +                      SA3    MD.MASKC    MACRO DESCRIPTOR                            ARITH    3350
                          5160000014 +            SA6    PARAMS+1    STORE N                                     ARITH    3351
          3151  0336003153 +                      MI     X6,AMASK2   IF N .LT. 0                                 ARITH    3352
                          7206777702              SX0    X6-61                                                   ARITH    3353
          3152  0330003075 +                      MI     X0,ARGP11B  IF N IN RANGE,N .GE. 0 .AND. N .LE. 60      ARITH    3354
          3153  22703                    AMASK2   LX7    X3                                                      ARITH    3355
                     5170000372 +                 SA7    MACDES                                                  ARITH    3356
          3154  6160777450                        IDM    -ERMSG54    MASK ARG OUT OF RANGE                       ARITH    3357
          3155  5130000372 +                      SA3    MACDES                                                  ARITH    3358
                          0400003075 +            EQ     ARGP11B                                                 ARITH    3359
                                                                                                                 ARITH    3360
                                        *         MOD(I,J) - SEE IF J IS A POWER OF 2                            ARITH    3361
                                                                                                                 ARITH    3362
          3156  0324003075 +             AMOD     PL     X4,ARGP11B  IF SECOND ARG NOT CONSTANT                  ARITH    3363
                          5110001061 +            SA1    LASTR                                                   ARITH    3364
          3157  0100006177 +                      RJ     CHKP2                                                   ARITH    3365
          3160  5130000522 +                      SA3    MD.MOD                                                  ARITH    3366
                          0317003075 +            NZ     X7,ARGP11B  IF CON NOT A POWER OF 2                     ARITH    3367
          3161  5130000523 +                      SA3    MD.MODP2                                                ARITH    3368
                          7150000074              SX5    60                                                      ARITH    3369
          3162  37656                             IX6    X5-X6       MASK COUNT = 60-K                           ARITH    3370
                     76750                        SX7    B5                                                      ARITH    3371
                          5160000015 +            SA6    PARAMS+2                                                ARITH    3372
          3163  5170000045 +                      SA7    RNTBC       RESULT R-NUM = P2                           ARITH    3373
                          0400003075 +            EQ     ARGP11B                                                 ARITH    3374
                                                                                                                 ARITH    3375
                                        *         RANF(0) - GET SYMTAB ORDINAL OF SEED                           ARITH    3376
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    73
         FUNCTION PROCESSING
  
                                                                                                                 ARITH    3377
          3164  5110007613 +             ARANF    SYMBOL =8RRANDOM.        GET SYMTAB ORDINAL OF RANDOM. / RANN  ARITH    3378
          3166  7100040000                        SX0    V.COM                                                   ARITH    3379
                          12601                   BX6    X0+X1       SET COMMON BIT FOR OPT=2 USE/DEF INFO       ARITH    3380
                               54610              SA6    A1                                                      ARITH    3381
          3167  5130000453 +                      SA3    WB.EXP                                                  ARITH    3382
                          12732                   BX7    X3+X2             SET TYPE = CGD AND EXT BIT            ARITH    3383
                               54720              SA7    A2                                                      ARITH    3384
          3170  5130000532 +                      SA3    MD.RANF           MACRO DESCRIPTOR                      ARITH    3385
                          76610                   SX6    B1                                                      ARITH    3386
                               76750              SX7    B5                                                      ARITH    3387
          3171  5160000013 +                      SA6    PARAMS                                                  ARITH    3388
                          5170000045 +            SA7    RNTBC             SET INDEX FOR NRLN STORE              ARITH    3389
          3172  0400003075 +                      EQ     ARGP11B                                                 ARITH    3390
                                                                                                                 ARITH    3391
                                        *         LOCF(A) - CHANGE LAST LOAD TO A SET                            ARITH    3392
                                                                                                                 ARITH    3393
          3173  5021000002               ALOCF    SA2    A1+2        RLIST MACRO HEADER WORD                     ARITH    3394
                          5130006653 +            SA3    IXFN.TAB                                                ARITH    3395
          3174  26022                             UX0    B2,X2                                                   ARITH    3396
                                                                                                                 ARITH    3397
                                        *         CHECK TO SEE IF LAST OP WAS A LOAD                             ARITH    3398
                                                                                                                 ARITH    3399
          3175  73432                    ALOCF1   SX4    B2+X3                                                   ARITH    3400
                     0304003200 +                 ZR     X4,ALOCF3         IF A MATCH                            ARITH    3401
                               54335              SA3    A3+B5                                                   ARITH    3402
          3176  0313003175 +                      NZ     X3,ALOCF1         IF MORE TO GO                         ARITH    3403
                          6160000450              EERR   ERMSG.LF    BAD ARGUMENT TO LOCF                        ARITH    3404
                                                                                                                 ARITH    3405
                                        *         LOCF(LOCAL OR COMMON SYMBOL OR ARRAY) - CHANGE TO SX MACRO     ARITH    3406
                                                                                                                 ARITH    3407
          3200  26333                    ALOCF3   UX3    B3,X3                                                   ARITH    3408
                     27630                        PX6    B3,X0       CHANGE LOAD TO SET X MACRO                  ARITH    3409
                          26121                   UX1    B2,X1       (B2) = TYPE OF RESULT                       ARITH    3410
                               27751              PX7    B5,X1       RESET TYPE TO INTEGER                       ARITH    3411
          3201  54710                             SA7    A1                                                      ARITH    3412
                     54620                        SA6    A2                                                      ARITH    3413
                          43600                   MX6    0                                                       FCC0412     5
          3202  5061000001                        SA6    A1+1        CLEAR IH WORD                               FCC0412     6
                          5032000001              SA3    A2+1        IH OF SYM , BASE IF EQUIVED                 FCC0807     6
          3203  5150000012                        SA5    SYM1                                                    FCC0807     7
                          73330                   SX3    X3                                                      FCC0807     8
                               20301              LX3    1                                                       FCC0807     9
          3204  37653                             IX6    X5-X3                                                   FCC0807    10
                     43001                        MX0    1                                                       FCC0807    11
                          5246777776              SA4    X6-1        WORDB                                       FCC0807    12
          3205  20005                             LX0    1+P.LOCF                                                FCC0807    13
                     12640                        BX6    X4+X0       SET LOCF REF BIT IN WORDB                   FCC0807    14
                          54640                   SA6    A4                                                      FCC0807    15
          3206  6140000004                        SB4    T.CPLX                                                  ARITH    3414
                          6130000003              SB3    T.DBL                                                   ARITH    3415
          3207  0723003212 +                      LT     B2,B3,ALOCF4      IF SINGLE PRECISION                   ARITH    3416
                          0742003212 +            GT     B2,B4,ALOCF4      IF NOT DOUBLE OR COMPLEX              ARITH    3417
          3210  5150000064                        SA5    NRLN                                                    ARITH    3418
                          7265777776              SX6    X5-1              BACK OFF NRLN                         ARITH    3419
          3211  54650                             SA6    A5                                                      ARITH    3420
          3212  5120001061 +             ALOCF4   SA2    LASTR                                                   ARITH    3421
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    74
         FUNCTION PROCESSING
  
                          43001                   MX0    1                                                       ARITH    3422
                               53120              SA1    X2                                                      ARITH    3423
          3213  20056                             LX0    1+P.USED                                                ARITH    3424
                     10622                        BX6    X2          RL2 = LASTR                                 ARITH    3425
                          5160000032 +            SA6    RL2                                                     ARITH    3426
          3214  15710                             BX7    -X0*X1      CLEAR USED BIT                              ARITH    3427
                     54710                        SA7    A1                                                      ARITH    3428
                          0100005517 +            RJ     FNDOP       FIND A NEW RL1                              ARITH    3429
          3215  5160000031 +                      SA6    RL1                                                     ARITH    3430
                          0400003022 +            EQ     ARGP21                                                  ARITH    3431
  
  
                                        *         MXMNF -- PROCESSES MAX/MIN AND OTHER INTRINSIC FUNCTIONS WITH  ARITH    3434
                                        *         VARIABLE NUMBER OF ARGUMENTS.  SUCCESSIVE FUNCTION RMACROS ARE ARITH    3435
                                        *         PROCESSED, EACH WITH 2 ARGS, UNTIL ALL THE ARGS ARE PROCESSED. ARITH    3436
                                        *         THE FIRST RMACRO USES THE FIRST 2 ARGS FROM RNTB.  THE NEXT    ARITH    3437
                                        *         RMACRO USES AS ARGS THE RESULT FROM THE PRECEDING RMACRO AND   ARITH    3438
                                        *         THE NEXT ARG FROM RNTB.  THIS CONTINUES UNTIL RNTB IS          ARITH    3439
                                        *         EXHAUSTED.                                                     ARITH    3440
                                                                                                                 ARITH    3441
          3216  0100006236 +             MXMNF    RJ        IFTLU     GET INFO FOR THIS FUNC                     ARITH    3442
          3217  21570                             AX5    60-L.TYP                                                ARITH    3443
                     10655                        BX6    X5                                                      ARITH    3444
                          5160000323 +            SA6       TYPEWD                                               ARITH    3445
          3220  5110000045 +                      SA1    RNTBC                                                   ARITH    3446
                          7265777774              SX6    X5-T.DBL                                                ARITH    3447
          3221  21101                             AX1    1                                                       ARITH    3448
                     10733                        BX7    X3                                                      ARITH    3449
                          5170000346 +            SA7       FMADR     FINAL-MACRO ADR                            ARITH    3450
          3222  5160000347 +                      SA6    FMADR+1                                                 ARITH    3451
                          0311003224 +            NZ     X1,MXMN1    IF AT LEAST 2 ARGS                          ARITH    3452
          3223  6160777544                        EERR   -ERMSG21    WRONG NO. OF ARGS FOR INT OR BEF FUNC       ARITH    3453
                                                                                                                 ARITH    3454
          3224  5110000046 +             MXMN1    SA1    RNTB                                                    ARITH    3455
                          6150000001              SB5    1                                                       ARITH    3456
          3225  76750                             SX7    B5                                                      ARITH    3457
                     73110                        SX1    X1          1ST ARG                                     ARITH    3458
                          5170000350 +            SA7    RNCNT       INITIALIZE TO 1                             ARITH    3459
                                                                                                                 ARITH    3460
                                        *         MXMN2 - MXMN5 CONSIST OF LOOP TO OUTPUT RMACRO                 ARITH    3461
                                                                                                                 ARITH    3462
          3226  5130000347 +             MXMN2    SA3    FMADR+1                                                 ARITH    3463
                          5140000350 +            SA4    RNCNT                                                   ARITH    3464
          3227  6150000001                        SB5    1                                                       ARITH    3465
                          5150000323 +            SA5    TYPEWD                                                  ARITH    3466
          3230  10611                             BX6    X1          1ST ARG                                     ARITH    3467
                     73745                        SX7    X4+B5       INCREMENT RNCNT                             ARITH    3468
                          5160000013 +            SA6    PARAMS                                                  ARITH    3469
          3231  0313003232 +                      NZ     X3,MXMN3    IF NOT DBL WORD                             ARITH    3470
                          73665                   SX6    X6+B5       UPDATE 1ST ARG                              ARITH    3471
                               54665              SA6    A6+B5                                                   ARITH    3472
          3232  5214000046 +             MXMN3    SA1    X4+RNTB     2ND ARG                                     ARITH    3473
                          73610                   SX6    X1                                                      ARITH    3474
                               54665              SA6    A6+B5                                                   ARITH    3475
          3233  0313003234 +                      NZ     X3,MXMN4    IF NOT DBL WORD                             ARITH    3476
                          73665                   SX6    X6+B5       UPDATE 2ND ARG                              ARITH    3477
                               54665              SA6    A6+B5                                                   ARITH    3478
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    75
         FUNCTION PROCESSING
  
          3234  5120000064               MXMN4    SA2    NARN                                                    ARITH    3479
                          54740                   SA7    A4          UPDATE RNCNT                                ARITH    3480
                               10622              BX6    X2                                                      ARITH    3481
          3235  22702                             LX7    X2                                                      ARITH    3482
                     54665                        SA6    A6+B5                                                   ARITH    3483
                          5170000352 +            SA7    ARN         1ST ARG FOR NEXT MACRO                      ARITH    3484
          3236  0313003237 +                      NZ     X3,MXMN5    IF NOT DBL WORD                             ARITH    3485
                          73665                   SX6    X6+B5       UPDATE RESULT                               ARITH    3486
                               54665              SA6    A6+B5                                                   ARITH    3487
          3237  73665                    MXMN5    SX6    X6+B5       UPDATE NARN                                 ARITH    3488
                     5110000346 +                 SA1    FMADR                                                   ARITH    3489
                               54620              SA6    A2                                                      ARITH    3490
          3240  53310                             SA3    X1                                                      ARITH    3491
                     0100005576 +                 RJ        MACOUT    (X5 CAN CONTAIN GARBAGE)                   ARITH    3492
          3241  5110000045 +                      SA1       RNTBC     GET NO.OF WDS IN RNTBC                     ARITH    3493
                          5120000350 +            SA2       RNCNT     GET NO.OF WDS MOVED FROM RNTB              ARITH    3494
          3242  37321                             IX3    X2-X1                                                   ARITH    3495
                     0323003245 +                 PL     X3,MXMN8     IF NO MORE ARGS                            ARITH    3496
          3243  0100005536 +                      RJ        CHKOFF    CHKOFF LAST MX/MN MAC                      ARITH    3497
          3244  5110000352 +                      SA1    ARN         1ST ARG                                     ARITH    3498
                          0400003226 +            EQ     MXMN2                                                   ARITH    3499
                                                                                                                 ARITH    3500
                                        *         IF THE RESULT OF THE FUNCTION IS OF A DIFFERENT TYPE THAN THE  ARITH    3501
                                        *         ARGS, A TYPE CONVERSION RMACRO MUST BE OUTPUT SINCE THE        ARITH    3502
                                        *         FUNCTION RMACRO OUTPUT HAVE BEEN ASSUMED TO BE OF THE SAME     ARITH    3503
                                        *         TYPE AS THE ARGS.  PRESENTLY THESE CONVERSIONS ARE ONLY OF THE ARITH    3504
                                        *         SINGLE TYPE; E.G. INTEGER TO REAL, REAL TO INTEGER.            ARITH    3505
                                                                                                                 ARITH    3506
          3245  5120000346 +             MXMN8    SA2       FMADR                                                ARITH    3507
                          20236                   LX2    30                                                      ARITH    3508
                               53320              SA3    X2                                                      ARITH    3509
          3246  0333003255 +                      NG     X3,MXMN10    IF NO MODE CHANGE NEEDED.                  ARITH    3510
                          0100005536 +            RJ        CHKOFF    CHK LAST MX MN MAC                         ARITH    3511
          3247  5110000352 +                      SA1    ARN                                                     ARITH    3512
                          5120000064              SA2    NARN                                                    ARITH    3513
          3250  6150000001                        SB5    1                                                       ARITH    3514
                          10611                   BX6    X1                                                      ARITH    3515
                               73725              SX7    X2+B5                                                   ARITH    3516
          3251  5160000013 +                      SA6    PARAMS                                                  ARITH    3517
                          5150000323 +            SA5    TYPEWD                                                  ARITH    3518
          3252  10622                             BX6    X2                                                      ARITH    3519
                     54720                        SA7    A2          UPDATE NARN                                 ARITH    3520
                          5110000346 +            SA1    FMADR                                                   ARITH    3521
          3253  54665                             SA6    A6+B5                                                   ARITH    3522
                     20136                        LX1    30                                                      ARITH    3523
                          53310                   SA3    X1          MACRO DESCRIPTOR                            ARITH    3524
          3254  0100005576 +                      RJ     MACOUT      X2,3,5 INITIALIZED                          ARITH    3525
          3255  5110000437 +             MXMN10   SA1       JNEXTE                                               ARITH    3526
                          10611                   BX6    X1                                                      ARITH    3527
          3256  5160002662 +                      SA6       ARGP1RT                                              ARITH    3528
                          0400003022 +            ZR        ARGP21                                               ARITH    3529
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    76
         EXPONENTIAL PROCESSING 
  
                                        *     EXPOP                                                              ARITH    3533
                                        *         HERE IF ** POPPED FROM OPSTAK                                  ARITH    3534
          3257  5120000011 +             EXPOP    SA2    OP          GET OP BEING SCANNED                        ARITH    3535
                          6110000024              SB1    EL.DSTR                                                 ARITH    3536
          3260  26222                             UX2    B2,X2                                                   ARITH    3537
                     0512003263 +                 NE     B1,B2,EXP0  IF OP .NE. **                               ARITH    3538
          3261  6160000476                        USASDM ERMSG59     A**B**C IS NON ANSI                         ARITH    3539
          3262  5120000377 +                      SA2    OSPTR                                                   ARITH    3540
                          10622                   BX6    X2          RESTORE X6 TO CONTENTS BEFORE USASDM CLLL   ARITH    3541
                                                                                                                 ARITH    3542
          3263  5226007621 +             EXP0     SA2    X6+OPSTAK   GET STBASE                                  ARITH    3543
                          7266777776              SX6    X6-1         REDUCE OSPTR 1 MORE                        ARITH    3544
          3264  5160000377 +                      SA6       OSPTR                                                ARITH    3545
                          73720                   SX7    X2                                                      ARITH    3546
                               21222              AX2       18        SAVE SFRSTB AT START OF **                 ARITH    3547
          3265  10622                             BX6    X2                                                      ARITH    3548
                     5160000367 +                 SA6       EXPNSF                                               ARITH    3549
          3266  5170000366 +                      SA7       EXPSTB                                               ARITH    3550
                          5140000031 +            SA4    RL1                                                     ARITH    3551
          3267  5130000032 +                      SA3    RL2                                                     ARITH    3552
                          53140                   SA1    X4                                                      ARITH    3553
                               53230              SA2    X3                                                      ARITH    3554
          3270  26011                             UX0    B1,X1                                                   ARITH    3555
                     6170000005                   SB7    T.OCT                                                   ARITH    3556
                               26722              UX7    B2,X2                                                   ARITH    3557
          3271  0410004775 +                      ZR     B1,MOP1     ERROR IF BASE LOGICAL                       ARITH    3558
                          0420004775 +            ZR     B2,MOP1     ERROR IF EXPON LOGICAL                      ARITH    3559
          3272  6130000001                        SB3    T.INT                                                   ARITH    3560
                          0717003274 +            LT     B1,B7,EXP1  IF BASE NOT OCT OR HOLL                     ARITH    3561
          3273  27631                             PX6    B3,X1       BASE CONVERTED TO INT TYPE                  ARITH    3562
                     54610                        SA6    A1                                                      ARITH    3563
                          66130                   SB1    B3                                                      ARITH    3564
                                                                                                                 ARITH    3565
          3274  0727003276 +             EXP1     LT     B2,B7,EXP2  IF EXPON NOT OCT OR HOLL                    ARITH    3566
                          27632                   PX6    B3,X2       EXPON CONVERTED TO INT TYPE                 ARITH    3567
                               54620              SA6    A2                                                      ARITH    3568
          3275  66230                             SB2    B3                                                      ARITH    3569
                                                                                                                 ARITH    3570
                                        *         FIRST CHECK SPECIAL-CASE-EXPONENTIATION                        ARITH    3571
                                                                                                                 ARITH    3572
          3276  43600                    EXP2     MX6    0           CLEAR FLAG FOR ADJUSTING TYPE OF RESULT     ARITH    3573
                     7171777776                   SX7    B1-1                                                    ARITH    3574
                               20214              LX2    59-47                                                   ARITH    3575
          3277  5160000353 +                      SA6    EXPCON                                                  ARITH    3576
                          5170000302 +            SA7    TS1         TYPE-1 OF RL1                               ARITH    3577
          3300  0322003402 +                      PL     X2,EXP3B    IF EXPON IS NOT A CONST                     ARITH    3578
                          6160000002              SB6    T.REAL                                                  ARITH    3579
          3301  0762003402 +                      GT     B2,B6,EXP3B IF EXPON NOT INT OR REAL                    ARITH    3580
                          0726003322 +            LT     B2,B6,EXP2B IF EXPON IS INT                             ARITH    3581
                                                                                                                 ARITH    3582
                                        *         CHECK IF EXPONENT IS FLOAT(N), N AN INTEGER                    ARITH    3583
                                                                                                                 ARITH    3584
          3302  54120                             SA1    A2          FWA OF ARLIST FOR EXPON                     ARITH    3585
                     0100006211 +                 RJ     NEWCON                                                  ARITH    3586
          3303  0336003401 +                      MI     X6,EXP3BA   IF NEG CONST                                ARITH    3587
                          0306003401 +            ZR     X6,EXP3BA   IF CONST 0                                  ARITH    3588
          3304  26416                             UX4    B1,X6                                                   ARITH    3589
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    77
         EXPONENTIAL PROCESSING 
  
                     22514                        LX5    B1,X4       INT VALUE IF EXPON IS FLOAT(N)              ARITH    3590
                          27305                   PX3    X5                                                      ARITH    3591
                               24403              NX4    X3                                                      ARITH    3592
          3305  13064                             BX0    X6-X4                                                   ARITH    3593
                     0310003401 +                 NZ     X0,EXP3BA   IF EXPON NOT FLOAT(N)                       ARITH    3594
                               10655              BX6    X5                                                      ARITH    3595
          3306  21521                             AX5    17                                                      ARITH    3596
                     5160000353 +                 SA6    EXPCON      TEMP STORE FOR CONST EXPON                  ARITH    3597
          3307  0315003401 +                      NZ     X5,EXP3BA   IF N\400000B                                ARITH    3598
                          5130000031 +            SA3    RL1                                                     ARITH    3599
          3310  6160000002                        SB6    T.REAL                                                  ARITH    3600
                          53230                   SA2    X3                                                      ARITH    3601
                               26022              UX0    B2,X2                                                   ARITH    3602
          3311  0626003313 +                      GE     B2,B6,EXP2A IF BASE IS NOT INT                          ARITH    3603
                          43001                   MX0    1                                                       ARITH    3604
                               12606              BX6    X0+X6       SET FLAG FOR RESULT IS INT, S/B REAL        ARITH    3605
          3312  5160000353 +                      SA6    EXPCON                                                  ARITH    3606
                                                                                                                 ARITH    3607
          3313  73560                    EXP2A    SX5    X6          PARAMETER FOR STCON                         ARITH    3608
                     7160000773                   SX6    773B                                                    ARITH    3609
                               10733              BX7    X3          SWITCH (RL1) INTO (RL2) FOR STCON CALL      ARITH    3610
          3314  5160001321 +                      SA6    BSAV        TREAT THIS CONST AS NORMAL                  ARITH    3611
                          5170000032 +            SA7    RL2                                                     ARITH    3612
          3315  0100005752 +                      RJ     STCON       CREAT ARLIST FOR CONST N                    ARITH    3613
          3316  5130000031 +                      SA3    RL1                                                     ARITH    3614
                          5140000032 +            SA4    RL2                                                     ARITH    3615
          3317  6160000002                        SB6    T.REAL                                                  ARITH    3616
                          53130                   SA1    X3                                                      ARITH    3617
                               53240              SA2    X4                                                      ARITH    3618
          3320  26011                             UX0    B1,X1                                                   ARITH    3619
                     5150000353 +                 SA5    EXPCON                                                  ARITH    3620
          3321  0400003325 +                      EQ     EXP2C                                                   ARITH    3621
                                                                                                                 ARITH    3622
                                        *         EXPON IS CONST INTEGER                                         ARITH    3623
                                                                                                                 ARITH    3624
          3322  5032000002               EXP2B    SA3    A2+2                                                    ARITH    3625
                          6170777635              SB7    -SETMC                                                  ARITH    3626
          3323  20260                             LX2    47+1        RESTORE ARLIST HDR WORD FOR EXPON           ARITH    3627
                     26033                        UX0    B3,X3                                                   ARITH    3628
                          0537003402 +            NE     B3,B7,EXP3B IF CONST\400000B                            ARITH    3629
          3324  5052000004                        SA5    A2+4                                                    ARITH    3630
                                                                                                                 ARITH    3631
                                        *         CHECK FOR  C**2 OR D**2                                        ARITH    3632
                                                                                                                 ARITH    3633
          3325  0661003344 +             EXP2C    LE     B1,B6,EXP2F IF BASE IS INT OR REAL                      ARITH    3634
                          7161777773              SX6    B1-T.CPLX                                               ARITH    3635
          3326  5140000353 +                      SA4    EXPCON                                                  ARITH    3636
                          0316003331 +            NZ     X6,EXP2D    IF BASE IS NOT COMPLEX TYPE                 ARITH    3637
          3327  0304003331 +                      ZR     X4,EXP2D    IF EXPON NOT FLOAT(N)                       ARITH    3638
                          6160000247              EERR   ERMSG33     FATAL WHEN EXPON OF C NOT INTEGER           ARITH    3639
          3331  7205777775               EXP2D    SX0    X5-2                                                    ARITH    3640
                          0310003402 +            NZ     X0,EXP3B    IF EXPON IS NOT 2                           ARITH    3641
          3332  5130000011 +                      SA3    OP                                                      ARITH    3642
                          6140000024              SB4    EL.DSTR                                                 ARITH    3643
          3333  26033                             UX0    B3,X3                                                   ARITH    3644
                     0534003337 +                 NE     B3,B4,EXP2E IF THIS ** NOT POPPED BY **                 ARITH    3645
          3334  5140000367 +                      SA4    EXPNSF                                                  ARITH    3646
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    78
         EXPONENTIAL PROCESSING 
  
                          5130000366 +            SA3    EXPSTB                                                  ARITH    3647
          3335  10644                             BX6    X4                                                      ARITH    3648
                     22703                        LX7    X3                                                      ARITH    3649
                          5160000370 +            SA6    NSFR                                                    ARITH    3650
          3336  5170001057 +                      SA7    STBASE                                                  ARITH    3651
                                                                                                                 ARITH    3652
                                        *         CHANGE C**2 TO C*C OR D**2 TO D*D                              ARITH    3653
                                                                                                                 ARITH    3654
          3337  74710                    EXP2E    SX7    A1          CHANGE EXPON  TO LOAD OF C OR D             ARITH    3655
                     14622                        BX6    -X2                                                     ARITH    3656
                          5170000032 +            SA7    RL2                                                     ARITH    3657
          3340  54620                             SA6    A2          NOOP ORIGINAL RL2 (EXPON)                   ARITH    3658
                     5130000377 +                 SA3    OSPTR                                                   ARITH    3659
          3341  5150000440 +                      SA5    MLTEOP      INSERT * IN  OPSTAK                         ARITH    3660
                          7273000001              SX7    X3+1                                                    ARITH    3661
          3342  10655                             BX6    X5                                                      ARITH    3662
                     54730                        SA7    A3                                                      ARITH    3663
                          5263007622 +            SA6    X3+OPSTAK+1                                             ARITH    3664
          3343  0400004227 +                      EQ     POP1                                                    ARITH    3665
                                                                                                                 ARITH    3666
                                        *         OUTPUT INLINE EXPONENTIATION FOR I**K, X**K, K .LT. 17         ARITH    3667
                                                                                                                 ARITH    3668
          3344  6120000021               EXP2F    SB2    17          MAX INLINE EXP+1                            ARITH    3669
                          63350                   SB3    X5          VALUE OF CONST POWER                        ARITH    3670
          3345  6140000001                        SB4    1                                                       ARITH    3671
                          0632003402 +            GE     B3,B2,EXP3B IF EXPON\ 17                                ARITH    3672
          3346  0643003402 +                      LE  B3,B4,EXP3B     IF @1                                      ARITH    3673
                                                                                                                 ARITH    3674
                                        *         OUTPUT SPECIAL MACRO FOR INLINE EVALUATION OF EXPONENTIAL      ARITH    3675
                                                                                                                 ARITH    3676
                          76510                   SX5    B1          TYPE OF RESULT                              ARITH    3677
                               14622              BX6    -X2         NO-OP CONSTANT                              ARITH    3678
          3347  54620                             SA6    A2                                                      ARITH    3679
                     76730                        SX7    B3                                                      ARITH    3680
                          5170000015 +            SA7    PARAMS+2    K1 = EXPONENT                               ARITH    3681
          3350  7205777776                        SX0    X5-T.INT                                                ARITH    3682
                          7160000101              SX6    OC.IM                                                   ARITH    3683
          3351  0300003354 +                      ZR     X0,EXP3A1   IF TYPE = INTEGER                           ARITH    3684
                          5120000000 X            SA2    =XROPFLAG                                               ARITH    3685
          3352  7160000040                        SX6    OC.FM                                                   ARITH    3686
                          20247                   LX2    1R*                                                     ARITH    3687
          3353  0322003354 +                      PL     X2,EXP3A1   IF MULTIPLICATION NOT ROUNDED               ARITH    3688
                          7160000041              SX6    OC.RFM                                                  ARITH    3689
          3354  5110000031 +             EXP3A1   SA1    RL1                                                     ARITH    3690
                          5120000064              SA2    NARN                                                    ARITH    3691
          3355  5160000016 +                      SA6    PARAMS+3    K2 = OPCODE                                 ARITH    3692
                          7272000001              SX7    X2+1                                                    ARITH    3693
          3356  54720                             SA7    A2          NRLN = NRLN + 1                             ARITH    3694
                     10622                        BX6    X2                                                      ARITH    3695
                          5160000013 +            SA6    PARAMS      R1 = NRLN - 1                               ARITH    3696
          3357  43001                             MX0    1                                                       ARITH    3697
                     53410                        SA4    X1                                                      ARITH    3698
                          20056                   LX0    1+45                                                    ARITH    3699
                               12704              BX7    X0+X4       SET USED BIT FOR RL1                        ARITH    3700
          3360  54740                             SA7    A4                                                      ARITH    3701
                     5241000002                   SA4    X1+2                                                    ARITH    3702
                               43054              MX0    -R1.RIL                                                 ARITH    3703
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    79
         EXPONENTIAL PROCESSING 
  
          3361  15740                             BX7    -X0*X4      R2 = RI OF OPERAND                          ARITH    3704
                     5170000014 +                 SA7    PARAMS+1                                                ARITH    3705
          3362  5130000436 +                      SA3    EXPIN                                                   ARITH    3706
                          0100005576 +            RJ     MACOUT      OUTPUT INLINE ** MACRO                      ARITH    3707
          3363  0100005517 +                      RJ     FNDOP                                                   ARITH    3708
          3364  5160000031 +                      SA6    RL1                                                     ARITH    3709
                          5140000353 +            SA4    EXPCON                                                  ARITH    3710
          3365  0324003372 +                      PL     X4,EXP3A2   IF TYPE OF RESULT NEED NOT BE ADJUSTED      ARITH    3711
                          6160000273              USASDM ERMSG42     NON-ANSI IF I**FLOAT(N)                     ARITH    3712
          3367  5150000032 +                      SA5    RL2         RESULT INT, S/B REAL                        ARITH    3713
                          6150000002              SB5    T.REAL                                                  ARITH    3714
          3370  0100006271 +                      RJ     MODCH                                                   ARITH    3715
          3371  5160000032 +                      SA6    RL2                                                     ARITH    3716
          3372  5110000011 +             EXP3A2   SA1    OP          HERE TO EXP3B TO ATKE SPECIAL ACTION IF     ARITH    3717
                          26021                   UX0 B2,X1               THISS ** POPPED BY **                  ARITH    3718
          3373  7122777754                        SX2    B2-EL.SLASH TEST WHETHER OP=/                           ARITH    3719
                          6130000024              SB3    EL.DSTR                                                 ARITH    3720
          3374  0523003377 +                      NE  B2,B3,EXP3AB    IF THIS INLINE ** NOT POPPED BY **         ARITH    3721
                          5110000367 +            SA1       EXPNSF                                               ARITH    3722
          3375  5120000366 +                      SA2       EXPSTB                                               ARITH    3723
                          10611                   BX6    X1                                                      ARITH    3724
                               22702              LX7    X2                                                      ARITH    3725
          3376  5160000370 +                      SA6       NSFR                                                 ARITH    3726
                          5170001057 +            SA7       STBASE                                               ARITH    3727
          3377                           EXP3AB   BSS       0                                                    ARITH    3728
          3377  5110000032                        SA1    EPOINT                                                  ARITH    3729
                          6211000001              SB1    X1+1                                                    ARITH    3730
          3400  0312004214 +                      NZ     X2,CMPARE   IF OP IS NOT /                              ARITH    3731
                          0400004170 +            ZR     DIVX                                                    ARITH    3732
                                        *                                                                        ARITH    3733
          3401  10611                    EXP3BA   BX6    X1          RESTORE ARLIST HDR WORD NOPED BY NEWCON     ARITH    3734
                     54610                        SA6    A1                                                      ARITH    3735
                                        *                                                                        ARITH    3736
                                        *                                                                        ARITH    3737
          3402  5110000031 +             EXP3B    SA1       RL1       SAVE RL1 AND RL2 FOR THIS ** OP            ARITH    3738
                          5120000032 +            SA2       RL2                                                  ARITH    3739
          3403  23601                             AX6    B0,X1                                                   ARITH    3740
                     10722                        BX7    X2                                                      ARITH    3741
                          5160000337 +            SA6       EXRL1                                                ARITH    3742
                                        *  (EXRL1 ALSO NOW ACTS AS FLAG FOR FUNC5RT. IF REACH THIS POINT, MUST   ARITH    3743
                                        *   ALWAYS GET TO EXP10 IF FINISH EXPRESSION.)                           ARITH    3744
          3404  5170000340 +                      SA7       EXRL2                                                ARITH    3745
                          5110000376 +            SA1       SFRSTB    SEE IF OPDS ADDRESS A SAVED FUNCTION RSLT  ARITH    3746
                                        *                              (IT COULD ONLY BE THE LAST FUNCT SAVED.)  ARITH    3747
          3405  0301003424 +                      ZR     X1,EXP3E     IF NO PREVIOUS FUNCS SAVED                 ARITH    3748
                          5236000002              SA3    X6+2         GET RL1 NAME                               ARITH    3749
          3406  5241000144 +                      SA4    X1+FRSTB-1   GET LAST FUNC RESULT SAVED                 ARITH    3750
                          43054                   MX0       60-16                                                ARITH    3751
                               13334              BX3    X3-X4                                                   ARITH    3752
          3407  5120000032 +                      SA2       RL2                                                  ARITH    3753
                          15530                   BX5   -X0*X3                                                   ARITH    3754
          3410  5232000002                        SA3    X2+2                                                    ARITH    3755
                          0315003417 +            NZ     X5,EXP3C     IF RL1 NOT NAME OF SAVED FUNC              ARITH    3756
                                        *     HERE: OUTPUT LOAD OF TS VALUE SAVED FOR RL1 OPD                    ARITH    3757
          3411  5110000031 +                      SA1       RL1                                                  ARITH    3758
                          53210                   SA2    X1                                                      ARITH    3759
                               14622              BX6   -X2                                                      ARITH    3760
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    80
         EXPONENTIAL PROCESSING 
  
          3412  26022                             UX0 B2,X2                                                      ARITH    3761
                     53610                        SA6    X1           NO-OP THE RL1 ENTRY                        ARITH    3762
                          0100006415 +            RJ        FFRTS     OUTPUT FETCH OF SAVED FUNC.  GO WITH B2=   ARITH    3763
                                        *          TYPE AND X4=FRSTB ENTRY.  RETURN AFTER OUTPUT THE INSTR       ARITH    3764
          3413  5110000032 +                      SA1       RL2                                                  ARITH    3765
                          5120000340 +            SA2       EXRL2                                                ARITH    3766
          3414  10611                             BX6    X1                                                      ARITH    3767
                     23702                        AX7    B0,X2                                                   ARITH    3768
                          5160000337 +            SA6       EXRL1                                                ARITH    3769
          3415  5160000031 +                      SA6       RL1                                                  ARITH    3770
                          5170000032 +            SA7       RL2                                                  ARITH    3771
          3416  0400003424 +                      ZR     EXP3E                                                   ARITH    3772
                                        *                                                                        ARITH    3773
                                        *                                                                        ARITH    3774
          3417  13334                    EXP3C    BX3    X3-X4                                                   ARITH    3775
                     15530                        BX5   -X0*X3                                                   ARITH    3776
                          0315003424 +            NZ     X5,EXP3E    IF RL2 NOT A SAVED FUNC                     ARITH    3777
          3420  5110000032 +                      SA1       RL2       OUTPUT FETCH(SEE SEQUENCE ABOVE)           ARITH    3778
                          53210                   SA2    X1                                                      ARITH    3779
                               14622              BX6   -X2                                                      ARITH    3780
          3421  26022                             UX0 B2,X2                                                      ARITH    3781
                     53610                        SA6    X1                                                      ARITH    3782
                          0100006415 +            RJ        FFRTS                                                ARITH    3783
          3422  5110000032 +                      SA1       RL2                                                  ARITH    3784
                          10611                   BX6    X1                                                      ARITH    3785
          3423  5160000340 +                      SA6       EXRL2                                                ARITH    3786
          3424                           EXP3E    BSS       0                                                    ARITH    3787
          3424  5110000031 +                      SA1       RL1       SET UP FOR POINT TO ** FUNC NAME           ARITH    3788
                          5120000032 +            SA2       RL2                                                  ARITH    3789
          3425  53310                             SA3    X1                                                      ARITH    3790
                     53420                        SA4    X2                                                      ARITH    3791
                          26133                   UX1 B3,X3                                                      ARITH    3792
                               26224              UX2 B2,X4           B2=TYPE OF POWER                           ARITH    3793
          3426  7113777776                        SX1    B3-1         X1=TYPE-1 OF BASE                          ARITH    3794
                          7122777776              SX2    B2-1                                                    ARITH    3795
          3427  20102                             LX1       2                                                    ARITH    3796
                     12312                        BX3    X1+X2     X3:B3,2=BASE TYPE-1, B1,0=POWER TYPE-1        ARITH    3797
                          5213000454 +            SA1    X3+XPNMT                                                ARITH    3798
          3430  10611                             BX6    X1                                                      ARITH    3799
                     5160000336 +                 SA6       EXPFNE                                               ARITH    3800
          3431  0311003433 +                      NZ     X1,EXP5                                                 ARITH    3801
                          6160000247              EERR      ERMSG33   CMPX BASE ** NON-INT                       ARITH    3802
          3433  20613                    EXP5     LX6       59-48                                                ARITH    3803
                     0326003436 +                 PL     X6,EXP5A     IF AN ASA COMB                             ARITH    3804
          3434  6160000273                        USASDM ERMSG42         NON-USAS EXPONENTIATION COMBINATION.    ARITH    3805
          3435  5110000336 +                      SA1    EXPFNE            REFETCH NAME                          ARITH    3806
                                                                                                                 ARITH    3807
          3436  5140000000 X             EXP5A    SA4    CBNFLG                                                  ARITH    3808
                          0304003440 +            ZR     X4,EXP5B          IF CALL BY VALUE                      ARITH    3809
          3437  7120777773                        SX2    1R$-1R.                                                 ARITH    3810
                          20222                   LX2    18                                                      ARITH    3811
                               36112              IX1    X1+X2             CHANGE . TO A $                       ARITH    3812
                                                                                                                 ARITH    3813
          3440  6170003441 +             EXP5B    SYMBOL                                                         ARITH    3814
          3441  5130000453 +                      SA3    WB.EXP            WORD B BITS                           ARITH    3815
                          6170000000              SB7    0                                                       ARITH    3816
          3442  0570003447 +                      NZ     B7,EXP7           IF NOT THE FIRST TIME                 ARITH    3817
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    81
         EXPONENTIAL PROCESSING 
  
                          5140000000 X            SA4    CBNFLG                                                  ARITH    3818
          3443  76750                             SX7    B5                                                      ARITH    3819
                     20755                        LX7    P.LIB             SET LIB FLAG                          ARITH    3820
                          36337                   IX3    X3+X7                                                   ARITH    3821
                               76550              SX5    B5                                                      ARITH    3822
          3444  0304003445 +                      ZR     X4,EXP6           IF CALL BY VALUE                      ARITH    3823
                          43500                   MX5    0                                                       ARITH    3824
          3445  20552                    EXP6     LX5    P.BEF                                                   ARITH    3825
                     36335                        IX3    X3+X5                                                   ARITH    3826
                          12732                   BX7    X3+X2             SET WORD B BITS                       ARITH    3827
                               54720              SA7    A2                                                      ARITH    3828
          3446  7100100000                        SX0    V.FUN                                                   ARITH    3829
                          12601                   BX6    X0+X1                                                   ARITH    3830
                               54610              SA6    A1                UPDATE SYMTAB ENTRY                   ARITH    3831
                                                                                                                 ARITH    3832
          3447  74710                    EXP7     SX7    A1                                                      ARITH    3833
                     5170000004 +                 SA7    NAMFWA            SAVE ADDR OF SYMTAB ENTRY             ARITH    3834
          3450  0100002267 +                      RJ     FUNC5RT                                                 ARITH    3835
          3451  5110000337 +                      SA1       EXRL1     SET UP BASE AS NEXT ARG.  PUT ITS ADR IN - ARITH    3836
                          10611                   BX6    X1           -RL2                                       ARITH    3837
          3452  5160000032 +                      SA6       RL2                                                  ARITH    3838
                          0100005517 +            RJ        FNDOP                                                ARITH    3839
          3453  5160000031 +                      SA6       RL1                                                  ARITH    3840
                          5110000000 X            SA1      CBNFLG                                                ARITH    3841
          3454  0301003464 +                      ZR       X1,NOTINTM  JUMP IF NORMAL MODE                       ARITH    3842
                          5110000064              SA1    NARN            DECREMENT NARN IN CASE THIS IS A        ARITH    3843
          3455  5120000337 +                      SA2    EXRL1             POINTER TO BASE OF **                 ARITH    3844
                          10611                   BX6    X1                                                      ARITH    3845
                               53320              SA3    X2                HEADER WORD OF MACRO                  ARITH    3846
          3456  5242000002                        SA4    X2+2              FIRST WORD OF MACRO                   ARITH    3847
                          5160007605 +            SA6    =SSAVENARN                                              ARITH    3848
          3457  43054                             MX0    60-16                                                   ARITH    3849
                     6120000003                   SB2    T.DBL                                                   ARITH    3850
                               15140              BX1    -X0*X4            GET R NUMBER OF BASE MACRO            ARITH    3851
          3460  6130000004                        SB3    T.CPLX                                                  ARITH    3852
                          26013                   UX0    B1,X3             TYPE OF BASE TO B1                    ARITH    3853
          3461  7261000002                        SX6    X1+2              ASSUME DOUBLE WORD BASE               ARITH    3854
                          0412003463 +            EQ     B1,B2,EXP11                                             ARITH    3855
          3462  0413003463 +                      EQ     B1,B3,EXP11                                             ARITH    3856
                          7266777776              SX6    X6-1              ADJUST FOR SINGLE WORD BASE           ARITH    3857
          3463  5160000064               EXP11    SA6    NARN                                                    ARITH    3858
          3464                          NOTINTM   BSS      0                                                     ARITH    3859
          3464  0100002416 +                      RJ        CARGPORT                                             ARITH    3860
          3465  5110000000 X                      SA1      CBNFLG                                                ARITH    3861
                          0301003470 +            ZR       X1,NOTINAG                                            ARITH    3862
          3466  5110007605 +                      SA1    SAVENARN                                                ARITH    3863
                          10611                   BX6    X1                                                      ARITH    3864
          3467  5160000064                        SA6    NARN              RESTORE SAVED R VALUE                 ARITH    3865
          3470                          NOTINAG  BSS       0                                                     ARITH    3866
          3470  5120001131 +                      SA2    FTRFLG                                                  FCC2240     9
                          10722                   BX7    X2                                                      FCC2240    10
          3471  5170003521 +                      SA7    EXPA        SAVE CURRENT FUNCTION TRACE FLAG            FCC2240    11
                          43700                   MX7    0                                                       FCC2240    12
                               54720              SA7    A2          TURN OFF FUNCTION TRACING FOR **            FCC2240    13
          3472  5120000340 +                      SA2       EXRL2                                                ARITH    3867
                          23702                   AX7    B0,X2                                                   ARITH    3868
          3473  5170000032 +                      SA7       RL2                                                  ARITH    3869
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    82
         EXPONENTIAL PROCESSING 
  
                          0100005517 +            RJ        FNDOP                                                ARITH    3870
          3474  5160000031 +                      SA6       RL1                                                  ARITH    3871
                          0100002416 +            RJ        CARGPORT                                             ARITH    3872
          3475  5110000366 +                      SA1       EXPSTB                                               ARITH    3873
                          10611                   BX6    X1                                                      ARITH    3874
          3476  5160000040 +                      SA6       FRLW      FIRST RLIST WORD (ORDL OF-)                ARITH    3875
                          5120000377 +            SA2       OSPTR     CHANGE OSPTR TO POINT BEFORE THE (A ,A OPS ARITH    3876
          3477  7262777775                        SX6    X2-2                                                    ARITH    3877
                          5160000377 +            SA6       OSPTR                                                ARITH    3878
          3500  5110000367 +                      SA1       EXPNSF                                               ARITH    3879
                          10711                   BX7    X1                                                      ARITH    3880
          3501  5170000044 +                      SA7       SSFRSTB                                              ARITH    3881
                          0100002662 +            RJ        ARGP1RT                                              ARITH    3882
          3502  5140000353 +                      SA4    EXPCON                                                  ARITH    3883
                          0324003507 +            PL     X4,EXP12    IF TYPE OF RESULT NEED NOT BE ADJUSTED      ARITH    3884
          3503  6160000273                        USASDM ERMSG42     NON-ANSI IF I**FLOAT(N)                     ARITH    3885
          3504  5150000032 +                      SA5    RL2         RESULT INT, S/B REAL                        ARITH    3886
                          6150000002              SB5    T.REAL                                                  ARITH    3887
          3505  0100006271 +                      RJ     MODCH                                                   ARITH    3888
          3506  5160000032 +                      SA6    RL2                                                     ARITH    3889
          3507                           EXP12    BSS    0                                                       ARITH    3890
          3507  43600                             MX6       0                                                    ARITH    3891
                     5160000337 +                 SA6       EXRL1     CLEAR FUNC5RT FLAG                         ARITH    3892
          3510  5110000011 +                      SA1       OP        HERE TO EXP10A TO TAKE SPECIAL ACTION IF   ARITH    3893
                          26021                   UX0 B2,X1               THISS ** POPPED BY **                  ARITH    3894
          3511  5110000032                        SA1    EPOINT                                                  ARITH    3895
                          6211000001              SB1    X1+1                                                    ARITH    3896
          3512  7122777754                        SX2    B2-EL.SLASH                                             ARITH    3897
                          0302004170 +            ZR     X2,DIVX     IF OP=/                                     ARITH    3898
          3513  6130000024                        SB3    EL.DSTR                                                 ARITH    3899
                          5110003521 +            SA1    EXPA                                                    FCC2240    14
          3514  10611                             BX6    X1                                                      FCC2240    15
                     5160001131 +                 SA6    FTRFLG      RESET FUNCTION TRACE FLAG                   FCC2240    16
          3515  0523004214 +                      NE  B2,B3,CMPARE    IF THIS ** NOT POPPED BY **                ARITH    3900
                          5110000367 +            SA1       EXPNSF                                               ARITH    3901
          3516  5120000366 +                      SA2       EXPSTB                                               ARITH    3902
                          10611                   BX6    X1                                                      ARITH    3903
                               22702              LX7    X2                                                      ARITH    3904
          3517  5160000370 +                      SA6       NSFR                                                 ARITH    3905
                          5170001057 +            SA7       STBASE                                               ARITH    3906
          3520  0400004214 +                      ZR        CMPARE    NORMAL EXIT FROM EXPOP CODING              ARITH    3907
                                                                                                                 FCC2240    17
          3521                     1     EXPA     BSS    1           HOLD FTRFLG ACROSS CARGPORT/ARG1PRT         FCC2240    18
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    83
  
  
                                        *     COMMA FROM EJTB                                                    ARITH    3909
          3522  5130000401 +             COMMA    SA3    IXFNFG                                                  ARITH    3910
                          0313003524 +            NZ     X3,CMMA2    IF IN IXFN MODE                             FCC0787   165
                                                                                                                 ARITH    3914
          3523  0100002370 +             CMMAB    RJ     SSERR3                                                  ARITH    3915
                                                                                                                 ARITH    3916
          3524                           CMMA2    BSS    0                                                       ARITH    3917
          3524  5110001062 +                      SA1       EMODE     ARE WE IN EXPRESSION MODE:                 ARITH    3918
                          6221777776              SB2    X1-1                                                    ARITH    3919
          3525  0420003540 +                      ZR     B2,CMMA1     IF YES (MUST BE COMPLEX CONST.)            ARITH    3920
                          6221777773              SB2   X1-4          ARE WE IN SUBS MODE-                       ARITH    3921
          3526  0520003535 +                      NZ     B2,CMMA3     IF NO                                      ARITH    3922
                          5110000400 +            SA1    CC           GET COMMA CNT                              ARITH    3923
          3527  5120000327 +                      SA2    DIMINF       GET DIMENSIONALITY                         ARITH    3924
                          7261000001              SX6    X1+1                                                    ARITH    3925
          3530  21271                             AX2    57                                                      ARITH    3926
                     5160000400 +                 SA6    CC           CC NOW=NO.OF SUBS.EXPS.SCANNED             ARITH    3927
                               37162              IX1    X6-X2        IS CC< DIMENSIONALITY:                     ARITH    3928
          3531  0331003533 +                      NG     X1,CMMA4     IF YES                                     ARITH    3929
                          6160000242              EERR      ERMSG28   TOO MANY SUBSCRIPT EXPRS.                  ARITH    3930
          3533  5216000445 +             CMMA4    SA1    X6+CMASUB-1  X6=1 OR 2.  LOAD ,S1 OR ,S2 OP.            ARITH    3931
                          10611                   BX6    X1                                                      ARITH    3932
          3534  5160000011 +                      SA6    OP                                                      ARITH    3933
                          0400004214 +            ZR        CMPARE                                               ARITH    3934
                                        *     CMMA3 IF , IN ARG.MODE                                             ARITH    3935
          3535  0100002370 +             CMMA3    RJ     SSERR3      SIMPLE SYNTAX CHECKING                      FCC2338     6
          3536  5110000450 +                      SA1    ARGCMA                                                  FCC2338     7
                          10611                   BX6    X1                                                      ARITH    3937
          3537  5160000011 +                      SA6    OP                                                      ARITH    3938
                          0400004214 +            ZR        CMPARE                                               ARITH    3939
                                        *     CMMA1 IF COMMA IN NORMAL EXPR MODE.  MUST BE IN COMPLEX CONST      ARITH    3940
          3540                           CMMA1    BSS       0                                                    ARITH    3941
          3540  5120000330 +                      SA2    ARORD                                                   ARITH    3942
                          5110000041 +            SA1    FNAD                                                    ARITH    3943
          3541  6130000006                        SB3    EL.(                                                    FCC0787   166
                          5141000002              SA4    B1+2        SKIP OVER CONST                             FCC0787   167
          3542  26044                             UX0    B4,X4                                                   FCC0787   168
                     0443003552 +                 EQ     B4,B3,CMMA6 IF FOUND LEFT PAREN                         FCC0787   169
          3543  5044000001                        SA4    A4+1        ALLOW FOR SIGN PRECEDING CONST              FCC0787   170
                          12012                   BX0    X1+X2                                                   FCC0787   171
                               26414              UX4    B1,X4                                                   FCC0787   172
          3544  0413003547 +                      EQ     B1,B3,CMMA5 IF LEFT PAREN FOUND                         FCC0787   173
                          5120000401 +            SA2    IXFNFG                                                  FCC0787   174
          3545  0310003572 +                      NZ     X0,CMMA1A   IF IN FUNC OR ARRAY                         FCC0787   175
                          0312004214 +            NZ     X2,CMPARE   IF IN IXFN MODE                             FCC0787   176
          3546  0400003572 +                      EQ     CMMA1A                                                  FCC0787   177
                                                                                                                 FCC0787   178
          3547  6120000020               CMMA5    SB2    EL.MINUS                                                FCC0787   179
                          0542003552 +            NE     B4,B2,CMMA6 IF NOT U-                                   FCC0787   180
          3550  5120000377 +                      SA2    OSPTR                                                   FCC0787   181
                          7272777776              SX7    X2-1        REMOVE U-                                   FCC0787   182
          3551  5170000377 +                      SA7    OSPTR                                                   FCC0787   183
          3552  6150000001               CMMA6    SB5    1                                                       FCC0787   184
                          0100000000 X            CALL   CFCD        CHECK FOR COMPLEX DATA                      FCC0787   185
          3553  5130000401 +                      SA3    IXFNFG                                                  FCC0787   186
                          0300003555 +            ZR     X0,CMMA7    IF CPLX CONST                               FCC0787   187
          3554  0313004214 +                      NZ     X3,CMPARE   IF IN IXFN MODE                             FCC0787   188
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    84
  
  
                          0400003572 +            EQ     CMMA1A      ERROR IF NOT CPLX CONST                     FCC0787   189
                                                                                                                 FCC0787   190
          3555  10611                    CMMA7    BX6    X1                                                      FCC0787   191
                     22702                        LX7    X2                                                      FCC0787   192
                          5160000001 +            SA6    CONST                                                   FCC0787   193
          3556  5170000002 +                      SA7    CONST+1                                                 FCC0787   194
                          5130000032              SA3    EPOINT      POINTS PAST )                               FCC0787   195
          3557  6120000001                        SB2    EL.ID                                                   FCC0787   196
                          53130                   SA1    X3                                                      FCC0787   197
                               26011              UX0    B1,X1                                                   FCC0787   198
          3560  0621003573 +                      GE     B2,B1,CMMA1B IF NEXT E IS ID OR CONST                   ARITH    4031
                          6120000006              SB2    EL.(                                                    ARITH    4032
          3561  0421003573 +                      EQ     B2,B1,CMMA1B IF NEXT E IS (                             ARITH    4033
                          5110000032 +            SA1       RL2       NO-OP LOAD OF 1ST REAL CONST               ARITH    4036
          3562  53210                             SA2    X1                                                      ARITH    4037
                     14622                        BX6   -X2                                                      ARITH    4038
                          53610                   SA6    X1                                                      ARITH    4039
          3563  5110000031 +                      SA1       RL1       RESET RL2                                  ARITH    4040
                          10611                   BX6    X1                                                      ARITH    4041
          3564  5160000032 +                      SA6       RL2                                                  ARITH    4042
                          0100005517 +            RJ        FNDOP                                                ARITH    4043
          3565  5160000031 +                      SA6       RL1                                                  ARITH    4044
                          5110000377 +            SA1       OSPTR     REMOVE (E AND SAVED ARLPT FROM OPSTAK      ARITH    4045
          3566  7271777775                        SX7    X1-2                                                    ARITH    4046
                          5211007621 +            SA1    X1+OPSTAK    RESTORE PREVIOUS MODE                      ARITH    4047
          3567  43071                             MX0       60-3                                                 ARITH    4048
                     21123                        AX1       19                                                   ARITH    4049
                          15610                   BX6   -X0*X1                                                   ARITH    4050
          3570  5160001062 +                      SA6       EMODE                                                ARITH    4051
                          5170000377 +            SA7       OSPTR                                                ARITH    4052
          3571  7160000004                        SX6    T.CPLX                                                  ARITH    4053
                          0400001145 +            ZR        CON4                                                 ARITH    4054
                                        *                                                                        ARITH    4055
          3572  6160000244               CMMA1A   EERR      ERMSG30                                              ARITH    4056
                                                                                                                 ARITH    4057
          3573  7263777776               CMMA1B   SX6    X3-1        MOVE EPOINT SO ID, CON, OR ( WILL BE LISTED FCC2004     5
                          5160000032              SA6    EPOINT                                                  ARITH    4059
          3574  6160000237                        EERR   ERMSG25     ) FOLLOWED BY ID, CON, OR (                 ARITH    4060
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    85
         SUBSCRIPT PROCESSING 
  
                                        *                                                                        ARITH    4062
                                        *     CS1PO IF COMMA-AFTER SUBSC.-NO. 1 POPPED OUT                       ARITH    4063
          3575  5150000032 +             CS1PO    SA5    RL2          IS LAST SUBS.RESULT TYPE INT:              ARITH    4064
                          53250                   SA2    X5                                                      ARITH    4065
          3576  6150000001                        SB5    T.INT                                                   ARITH    4066
                          26022                   UX0 B2,X2                                                      ARITH    4067
          3577  0425003601 +                      EQ  B2,B5,CS1P1     IF YES                                     ARITH    4068
                          0100006271 +            RJ        MODCH     CONVERT TO TYPE INT.                       ARITH    4069
          3600  5160000032 +                      SA6    RL2          STORE NEW START ADR.                       ARITH    4070
          3601  5150000031 +             CS1P1    SA5    RL1          IS R(*-2) INT:                             ARITH    4071
                          53250                   SA2    X5                                                      ARITH    4072
          3602  6150000001                        SB5    T.INT                                                   ARITH    4073
                          26022                   UX0 B2,X2                                                      ARITH    4074
          3603  0425003605 +                      EQ  B2,B5,CS1P2     IF YES                                     ARITH    4075
                          0100006271 +            RJ        MODCH                                                ARITH    4076
          3604  5160000031 +                      SA6    RL1          STORE NEW RL1                              ARITH    4077
          3605  7150000001               CS1P2    SX5    1            RN+1=1 TO ARLIST                           ARITH    4078
                          43700                   MX7    0                                                       ARITH    4079
          3606  5170001321 +                      SA7    BSAV                                                    ARITH    4080
                          0100005752 +            RJ     STCON             (A MXI 59 INSTRUCTION WILL BE FORMED) ARITH    4081
          3607  7160000217                        SX6    MAC+32            ADD A NEGATIVE ONE                    ARITH    4082
                          7150000001              SX5    T.INT                                                   ARITH    4083
          3610  5160000033 +                      SA6    SMACD                                                   ARITH    4084
                          0100004621 +            RJ        INGEN                                                ARITH    4085
          3611  5150000327 +                      SA5    DIMINF                                                  ARITH    4086
                          20503                   LX5    3            IS 1ST DIMEN CONSTANT:                     ARITH    4087
          3612  0335003622 +                      NG     X5,CS1P3     IF NOT                                     ARITH    4088
          3613  21503                    CS1P5    AX5       3                                                    ARITH    4089
                     7170000773                   SX7    773B                                                    ARITH    4090
          3614  5170001321 +                      SA7    BSAV              MAKE SURE NO SPECIAL CONSTANT FORMED  ARITH    4091
                          0100005752 +            RJ     STCON                                                   ARITH    4092
          3615  7160000223               CS1P4    SX6    MPY.INT                                                 ARITH    4093
                          7150000001              SX5    T.INT                                                   ARITH    4094
          3616  5160000033 +                      SA6    SMACD                                                   ARITH    4095
                          0100004621 +            RJ     INGEN                                                   ARITH    4096
          3617  7160000217                        SX6       MAC+32    INT +.                                     ARITH    4097
                          7150000001              SX5    T.INT                                                   ARITH    4098
          3620  5160000033 +                      SA6    SMACD                                                   ARITH    4099
                          0100004621 +            RJ     INGEN                                                   ARITH    4100
          3621  0400004214 +                      ZR        CMPARE                                               ARITH    4101
                                        *                                                                        ARITH    4102
                                        *     CS1P3 IF 1ST DIMEN VARIABLE                                        ARITH    4103
          3622  43052                    CS1P3    MX0    60-18        GET SYMTAB ENTRY FOR 1ST DIMEN.TO GET ORD  ARITH    4104
                     21503                        AX5    3                           OF DIMEN.IN ARG.LIST.       ARITH    4105
                          15150                   BX1    -X0*X5       X5=DIMIN=                                  ARITH    4106
          3623  0100006157 +                      RJ        DALV                                                 ARITH    4107
          3624  0400003615 +                      ZR        CS1P4                                                ARITH    4108
                                        *                                                                        ARITH    4109
                                        *                                                                        ARITH    4110
                                        *     CS2PO IF COMMA-AFTER SUBSC.-NO. 2 POPPED OUT                       ARITH    4111
          3625  5150000032 +             CS2PO    SA5    RL2          IS LAST SUBS RESULT TYPE INT:              ARITH    4112
                          53250                   SA2    X5                                                      ARITH    4113
          3626  6150000001                        SB5    T.INT                                                   ARITH    4114
                          26022                   UX0 B2,X2                                                      ARITH    4115
          3627  0425003631 +                      EQ  B2,B5,CS2P1     IF YES                                     ARITH    4116
                          0100006271 +            RJ        MODCH     CONVERT TO TYPE INT                        ARITH    4117
          3630  5160000032 +                      SA6    RL2          STORE NEW RL2                              ARITH    4118
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    86
         SUBSCRIPT PROCESSING 
  
          3631  7150000001               CS2P1    SX5    1                                                       ARITH    4119
                          43700                   MX7    0                                                       ARITH    4120
          3632  5170001321 +                      SA7    BSAV              ALLOW SPECIAL CONSTANT                ARITH    4121
                          0100005752 +            RJ     STCON             (A MXI 59 WILL BE FORMED)             ARITH    4122
          3633  7160000217                        SX6    MAC+32            ADD A NEGATIVE ONE                    ARITH    4123
                          7150000001              SX5    T.INT                                                   ARITH    4124
          3634  5160000033 +                      SA6    SMACD                                                   ARITH    4125
                          0100004621 +            RJ        INGEN                                                ARITH    4126
          3635  5150000327 +                      SA5    DIMINF                                                  ARITH    4127
                          20503                   LX5    3                                                       ARITH    4128
          3636  0335003646 +                      NG     X5,CS2P2     IF I IS VARIABLE                           ARITH    4129
                          21503                   AX5    3                                                       ARITH    4130
          3637  7170000773                        SX7    773B              INHIBIT SPECIAL CONSTANTS             ARITH    4131
                          5170001321 +            SA7    BSAV                                                    ARITH    4132
          3640  0100005752 +                      RJ     STCON                                                   ARITH    4133
          3641  7160000223               CS2P4    SX6    MPY.INT                                                 ARITH    4134
                          7150000001              SX5    T.INT                                                   ARITH    4135
          3642  5160000033 +                      SA6    SMACD                                                   ARITH    4136
                          0100004621 +            RJ        INGEN                                                ARITH    4137
          3643  5150000327 +                      SA5    DIMINF                                                  ARITH    4138
                          6120000004              SB2       4                                                    ARITH    4139
          3644  22425                             LX4    B2,X5                                                   ARITH    4140
                     21517                        AX5       18-3                                                 ARITH    4141
                          0324003613 +            PL     X4,CS1P5     IF 2ND DIM IS CONST.                       ARITH    4142
          3645  0400003622 +                      ZR        CS1P3                                                ARITH    4143
          3646  43052                    CS2P2    MX0    60-18                                                   ARITH    4144
                     21503                        AX5    3                                                       ARITH    4145
                          15150                   BX1    -X0*X5                                                  ARITH    4146
          3647  0100006157 +                      RJ        DALV                                                 ARITH    4147
          3650  0400003641 +                      ZR        CS2P4                                                ARITH    4148
                                        *                                                                        ARITH    4149
                                        *                                                                        ARITH    4150
                                        *                                                                        ARITH    4151
                                        *     SUBPO IF SUBSCRIPT LEFT PARENS (S POPPED OUT                       ARITH    4152
          3651  5110000011 +             SUBPO    SA1       OP                                                   ARITH    4153
                          5150000032 +            SA5    RL2                                                     ARITH    4154
          3652  26021                             UX0 B2,X1                                                      ARITH    4155
                     6130000002                   SB3    2            2=CODE FOR )                               ARITH    4156
          3653  0423003655 +                      EQ  B2,B3,SUBP3     IF (S WAS POPPED BY R.P.                   ARITH    4157
                          6160000221              EERR   ERMSG11      ILLEGAL SUBS.                              ARITH    4158
          3655  53150                    SUBP3    SA1    X5                                                      ARITH    4159
                     6150000001                   SB5    T.INT                                                   ARITH    4160
                               26021              UX0 B2,X1                                                      ARITH    4161
          3656  0425003660 +                      EQ B2,B5,SUBP4      IF TYPE OF SUBS.VALUE IS INT.              ARITH    4162
                          0100006271 +            RJ        MODCH     CONVERT TO INT                             ARITH    4163
          3657  5160000032 +                      SA6    RL2                                                     ARITH    4164
          3660  5110000330 +             SUBP4    SA1    ARORD        IS ARRAY TYPE DBL OR CMPX:                 ARITH    4165
                          43070                   MX0    60-L.TYP                                                ARITH    4166
                               10611              BX6    X1                                                      ARITH    4167
          3661  5160000035 +                      SA6    IDORDLTS                                                ARITH    4168
                          20101                   LX1    1                                                       ARITH    4169
                               43700              MX7    0                                                       ARITH    4170
          3662  5170000302 +                      SA7    TS1               SET TYPE FLAG                         ARITH    4171
                          5170000036 +            SA7    IDORDLTS+1                                              ARITH    4172
          3663  5120000012                        SA2    SYM1                                                    ARITH    4173
                          6221000001              SB2    X1+1         GET 2ND WD OF ENTRY                        ARITH    4174
          3664  67202                             SB2    -B2                                                     ARITH    4175
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    87
         SUBSCRIPT PROCESSING 
  
                     53322                        SA3    X2+B2        LOAD 2ND WD OF SYMTAB ENTRY                ARITH    4176
                          5043000001              SA4    A3+1         LOAD 1ST WD                                ARITH    4177
          3665  10744                             BX7    X4                                                      ARITH    4178
                     5170000325 +                 SA7       NAME                                                 ARITH    4179
                               10733              BX7    X3                                                      ARITH    4180
          3666  20304                             LX3    60-P.TYP                                                ARITH    4181
                     5170000326 +                 SA7       NAME+1    USED BY FETCH                              ARITH    4182
                               15430              BX4    -X0*X3                                                  ARITH    4183
          3667  6140000003                        SB4    T.DBL                                                   ARITH    4184
                          63340                   SB3    X4                                                      ARITH    4185
                               43072              MX0    60-L.LVL                                                ARITH    4186
          3670  20772                             LX7    60-P.LVL                                                ARITH    4187
                     15470                        BX4    -X0*X7            OBTAIN LEVEL NUMBER OF VARIABLE       ARITH    4188
                          6264777774              SB6    X4-3                                                    ARITH    4189
          3671  0560003674 +                      NZ     B6,SUBP4A         NOT A LEVEL 3 ARRAY                   ARITH    4190
                          5130000032              SA3    EPOINT                                                  ARITH    4191
          3672  53430                             SA4    X3                                                      ARITH    4192
                     26024                        UX0    X4,B2                                                   ARITH    4193
                          6122777770              SB2    B2-LOWOP                                                ARITH    4194
          3673  0620002204 +                      PL     B2,LVLERR1        NOT A STAND-ALONG ARGUMRNT            ARITH    4195
          3674                          SUBP4A    BSS    0                                                       ARITH    4196
          3674  43673                             MX6      59                                                    ARITH    4197
                     5160000324 +                 SA6      CA        CA=-1                                       ARITH    4198
          3675  6120000004                        SB2    T.CPLX                                                  ARITH    4199
                          0443003677 +            EQ  B4,B3,SUBP5     IF TYPE DBL                                ARITH    4200
          3676  0523003704 +                      NE  B2,B3,SUBP6     IF NOT TYPE CMPX                           ARITH    4201
          3677  7160777775               SUBP5    SX6    -2           SET CA=-2                                  ARITH    4202
                          5160000324 +            SA6    CA                                                      ARITH    4203
          3700  5160000302 +                      SA6    TS1               SET NONZERO FOR DBL WRD TYPE          ARITH    4204
                          5110000032 +            SA1    RL2          DBL RESULT OF IX.FN.CALC.                  ARITH    4205
          3701  10711                             BX7    X1                                                      ARITH    4206
                     7160000217                   SX6       MAC+31+1  INT +                                      ARITH    4207
          3702  5170000031 +                      SA7    RL1                                                     ARITH    4208
                          7150000001              SX5    T.INT                                                   ARITH    4209
          3703  5160000033 +                      SA6    SMACD                                                   ARITH    4210
                          0100004621 +            RJ        INGEN                                                ARITH    4211
          3704  5130000032 +             SUBP6    SA3    RL2                                                     ARITH    4212
                          5253000002              SA5    X3+2                                                    ARITH    4213
          3705  22605                             LX6    X5                                                      ARITH    4214
                     5160000034 +                 SA6    SVRL2       RESULT OF SUBSCRIPT CALCULATION             ARITH    4215
          3706  0100005536 +                      RJ     CHKOFF                                                  ARITH    4216
          3707  6170003712 +                      SB7       SUBP7     RETURN ADR.FROM EQUIVR IF NOT EQUIVED      ARITH    4217
                          0100006266 +            RJ        EQUIVR                                               ARITH    4218
          3710  5110000324 +                      SA1       CA        HERE IF EQUIVALENCED ARRAY                 ARITH    4219
                          36661                   IX6    X6+X1        ADD BIAS TO CA                             ARITH    4220
          3711  5170000330 +                      SA7       ARORD     STORE BASE ORDINAL                         ARITH    4221
                          5160000324 +            SA6       CA                                                   ARITH    4222
          3712                           SUBP7    BSS       0                                                    ARITH    4223
          3712  5120000000 X                      SA2    DFLAG                                                   ARITH    4224
                          0302003722 +            ZR     X2,SUBP7.         BRANCH IF NOT IN DEBUG MODE           ARITH    4225
          3713  5130000401 +                      SA3    IXFNFG                                                  ARITH    4226
                          0313003722 +            NZ     X3,SUBP7.         IF IN AN I/O LIST                     ARITH    4227
          3714  5110000000 X                      SA1    ALLARR                                                  ARITH    4228
                          0311003721 +            NZ     X1,TALARR         BRANCH IF UNCONDITIONAL TRACING       ARITH    4229
          3715  5120000326 +                      SA2    NAME+1            WORD 2 OF SYMTAB ENTRY                ARITH    4230
                          20235                   LX2    60-P.DIF          SHIFT DEBUG BITS                      ARITH    4231
                               43070              MX0    60-L.DIF                                                ARITH    4232
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    88
         SUBSCRIPT PROCESSING 
  
          3716  15720                             BX7    -X0*X2            MASK OUT DEBUG BITS                   ARITH    4233
                     7267777766                   SX6    X7-DV.ARR         IS ARRAY CHECKING TO BE DONE          ARITH    4234
          3717  7257777762                        SX5    X7-DV.AAS         IS ARRAY/STORE CHECKING TO BE DONE    ARITH    4235
                          0305003721 +            ZR     X5,TALARR         IF YES                                ARITH    4236
          3720  0316003722 +                      NZ     X6,SUBP7.         IF NOT                                ARITH    4237
          3721  0100003746 +             TALARR   RJ     ARR               SUBSCRIPT CHECK PROCESSOR             ARITH    4238
          3722  5110000034 +             SUBP7.   SA1    SVRL2                                                   ARITH    4239
                          5120000324 +            SA2    CA                                                      ARITH    4240
          3723  63610                             SB6    X1          RF NAME                                     ARITH    4241
                     63720                        SB7    X2                                                      ARITH    4242
                          5150000330 +            SA5    ARORD                                                   ARITH    4243
          3724  0100005650 +                      RJ     FETCH                                                   ARITH    4244
          3725  5110000377 +                      SA1    OSPTR        GET PREVIOUS MODE SETTING FROM (S          ARITH    4245
                          5221007622 +            SA2       X1+OPSTAK+1   GET  (S WORD FROM STAK                 ARITH    4246
          3726  43071                             MX0    60-3                                                    ARITH    4247
                     21223                        AX2    19                                                      ARITH    4248
                          7271777773              SX7    X1-4         UPDATE FOR 4 MORE WDS                      ARITH    4249
          3727  5170000377 +                      SA7       OSPTR                                                ARITH    4250
                          15620                   BX6    -X0*X2                                                  ARITH    4251
          3730  5160001062 +                      SA6    EMODE                                                   ARITH    4252
                          5032777775              SA3    A2-2         GET PREVIOUS DIMINF                        ARITH    4253
          3731  5042777774                        SA4    A2-3                      ARORD                         ARITH    4254
                          10633                   BX6    X3                                                      ARITH    4255
                               10744              BX7    X4                                                      ARITH    4256
          3732  5160000327 +                      SA6    DIMINF                                                  ARITH    4257
                          5170000330 +            SA7    ARORD                                                   ARITH    4258
          3733  5032777776                        SA3    A2-1                                                    ARITH    4259
                          10633                   BX6    X3                                                      ARITH    4260
          3734  5160000400 +                      SA6       CC                                                   ARITH    4261
                          5140000334 +            SA4    SPARLEV                                                 FCC0394     9
          3735  7264777776                        SX6    X4-1                                                    FCC0394    10
                          54640                   SA6    A4          SPARLEV = SPARLEV - 1                       FCC0394    11
          3736  0316003741 +                      NZ     X6,SUBP8    IF SPARLEV .NE. 0  NOT OUTERMOST REF        FCC0394    12
                          7100000001              SX0    1                                                       ARITH    4264
          3737  5110001061 +                      SA1    LASTR             POINTER TO MACRO                      ARITH    4265
                          20044                   LX0    36                POSITION THE NSL BIT                  ARITH    4266
                               53310              SA3    X1                MACRO HEADER WORD                     ARITH    4267
          3740  12630                             BX6    X3+X0             INSERT MARKING BIT                    ARITH    4268
                     53610                        SA6    X1                RESTORE TO BUFFER                     ARITH    4269
          3741                           SUBP8    BSS    0                                                       ARITH    4270
                                        *         SEE IF STBASE SHOULD BE SET                                    ARITH    4271
          3741  5032777773                        SA3    A2-4         SAVED ARLPT                                ARITH    4272
                          5110000032              SA1       EPOINT    IS NEXT E A ** -                           ARITH    4273
          3742  6130000024                        SB3    EL.DSTR                                                 ARITH    4274
                          53210                   SA2    X1                                                      ARITH    4275
                               26022              UX0 B2,X2                                                      ARITH    4276
          3743  0523001066 +                      NE  B2,B3,NEXTE     IF NEXTE NOT A **                          ARITH    4277
                          73730                   SX7    X3                                                      ARITH    4278
                               21322              AX3    18                                                      ARITH    4279
          3744  10633                             BX6    X3                                                      ARITH    4280
                     5170001057 +                 SA7       STBASE                                               ARITH    4281
          3745  5160000370 +                      SA6    NSFR                                                    ARITH    4282
                          0400001066 +            ZR        NEXTE                                                ARITH    4283
                                        *     END OF NSSP                                                        ARITH    4284
                                        * ****             ****                 ****                             ARITH    4285
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    89
         SUBSCRIPT PROCESSING 
  
                                        *         DEBUG PROCESSOR FOR SUBSCRIPT CHECKING                         ARITH    4287
                                        *                                                                        ARITH    4288
          3746  00000000000000000000     ARR      DATA   0                                                       ARITH    4289
          3747  5110000031 +                      SA1    RL1                                                     ARITH    4290
                          5120000032 +            SA2    RL2                                                     ARITH    4291
          3750  10611                             BX6    X1                                                      ARITH    4292
                     22702                        LX7    X2                                                      ARITH    4293
                          5160001126 +            SA6    RL1TS             SAVE VALUE                            ARITH    4294
          3751  5170001127 +                      SA7    RL2TS             SAVE VALUE                            ARITH    4295
                          5110000325 +            SA1    NAME                                                    ARITH    4296
          3752  43052                             MX0    L.NAME                                                  ARITH    4297
                     11101                        BX1    X0*X1             GET ARRAY NAME                        ARITH    4298
                          0100006514 +            RJ     STRIP             CHECK FOR TRAILING $ IN NAME          ARITH    4299
          3753  6110000001                        SB1    1                                                       ARITH    4300
                          0100000000 X            RJ     CONVERT           PLACE IN CONS TABLE                   ARITH    4301
          3754  10611                             BX6    X1                                                      ARITH    4302
                     5160001121 +                 SA6    DBGAPL            BEGIN BUILDING ARGLIST TABLE          ARITH    4303
          3755  5120000326 +                      SA2    NAME+1                                                  ARITH    4304
                          20223                   LX2    60-P.DIMP         POSITION DIMP FIELD                   ARITH    4305
                               43060              MX0    60-L.DIMP                                               ARITH    4306
          3756  15320                             BX3    -X0*X2            GET DIMP FIELD                        ARITH    4307
                     43071                        MX0    60-3                                                    ARITH    4308
                          5110000017              SA1    DIM1                                                    ARITH    4309
          3757  20301                             LX3    1                                                       ARITH    4310
                     6241000001                   SB4    X1+1              FWA+1 OF DIMTAB                       ARITH    4311
                               53134              SA1    B4+X3             WORD 2 OF DIMTAB ENTRY FOR ARRAY      ARITH    4312
          3760  20106                             LX1    6                                                       ARITH    4313
                     15210                        BX2    -X0*X1            GET P-ABC FIELD                       ARITH    4314
                          0312003765 +            NZ     X2,AR1.           IF VARIABLE DIMENSION                 ARITH    4315
          3761  20122                             LX1    18                                                      ARITH    4316
                     43052                        MX0    60-18                                                   ARITH    4317
                          15110                   BX1    -X0*X1            GET ARRAY BOUND                       ARITH    4318
          3762  6110000001                        SB1    1                                                       ARITH    4319
                          0100000000 X            RJ     CONVERT           PLACE IN CONS TABLE                   ARITH    4320
          3763  10611                             BX6    X1                                                      ARITH    4321
                     5160001122 +                 SA6    DBGAPL+1          BOUND TO ARGLIST TABLE                ARITH    4322
          3764  0400003770 +                      EQ     AR2.                                                    ARITH    4323
          3765  5110000330 +             AR1.     SA1    ARORD             ORDINAL OF ARRAY                      ARITH    4324
                          7221777775              SX2    X1-2              COMPUTE CA FIELD                      ARITH    4325
          3766  5130000000 X                      SA3    FP.               SYMTAB ORDINAL FOR FP.                ARITH    4326
                          20236                   LX2    30                POSITION CA                           ARITH    4327
                               12623              BX6    X2+X3                                                   ARITH    4328
          3767  5160001122 +                      SA6    DBGAPL+1          FP. ORD TO ARGLIST TABLE              ARITH    4329
          3770  43700                    AR2.     MX7    0                                                       ARITH    4330
                     5170001124 +                 SA7    DBGAPL+3          ZERO TO ARGLIST TABLE                 ARITH    4331
          3771  7160007614 +                      SX6    =8RBUGARR                                               ARITH    4332
                          5160001125 +            SA6    DBGAPL+4          ADDRESS TO ARGLIST TABLE              ARITH    4333
          3772  5110001061 +                      SA1    LASTR             LAST MACRO                            ARITH    4334
                          5221000002              SA2    X1+2              1ST WORD OF MACRO                     ARITH    4335
          3773  26022                             UX0    B2,X2                                                   ARITH    4336
                     6130777644                   SB3    -SLMACO           IS LAST MACRO A LOAD                  ARITH    4337
          3774  0523003776 +                      NE     B2,B3,AR3.        BRANCH IF NOT                         ARITH    4338
                          53310                   SA3    X1                                                      ARITH    4339
                               43001              MX0    1                                                       ARITH    4340
          3775  20055                             LX0    44+1                                                    ARITH    4341
                     12730                        BX7    X3+X0       SET XMIT BIT IN HDR WORD                    ARITH    4342
                          53710                   SA7    X1                                                      ARITH    4343
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    90
         SUBSCRIPT PROCESSING 
  
          3776  43200                    AR3.     MX2    0                                                       ARITH    4344
                     0100006041 +                 RJ     OTS         OUTPUT TEMP STORE                           ARITH    4345
          3777  20336                             LX3    30                                                      ARITH    4346
                     12632                        BX6    X3+X2       30/CA(ST.), 30/ORD(ST.)                     ARITH    4347
                          5110000377 +            SA1    OSPTR                                                   ARITH    4348
          4000  5160001123 +                      SA6    DBGAPL+2    SET UP FOR APLIST PROCESSOR                 ARITH    4349
                          5221007622 +            SA2    X1+OPSTAK+1       (S WORD FROM OPSTAK                   ARITH    4350
          4001  5130000044 +                      SA3    SSFRSTB                                                 ARITH    4351
                          20236                   LX2    30                                                      ARITH    4352
                               10633              BX6    X3                                                      ARITH    4353
          4002  73720                             SX7    X2                EXTRACT SAVED SFRSTB                  ARITH    4354
                     5160000277 +                 SA6    SSSFRSTB          SAVE CURRENT SSFRSTB                  ARITH    4355
                               54730              SA7    A3                RESET SSFRSTB                         ARITH    4356
          4003  0100002715 +                      RJ     ARGP8CR           PROCESS ANY SAVED FUNCTION RESULTS    ARITH    4357
          4004  5110000277 +                      SA1    SSSFRSTB                                                ARITH    4358
                          10611                   BX6    X1                                                      ARITH    4359
          4005  5160000044 +                      SA6    SSFRSTB           RESTORE SAVED VALUE                   ARITH    4360
                          5110001121 +            SA1    DBGAPL                                                  ARITH    4361
          4006  5120000000 X                      SA2    N.AP                                                    ARITH    4362
                          5130000043 +            SA3    STAPLC                                                  ARITH    4363
          4007  43700                             MX7    0                 ZERO CHAIN WORD FOR THIS FUNCTION     ARITH    4364
                     10633                        BX6    X3                                                      ARITH    4365
                          54730                   SA7    A3                                                      ARITH    4366
          4010  5160000365 +                      SA6    STAPL                                                   ARITH    4367
                          7272000001              SX7    X2+1                                                    ARITH    4368
          4011  10622                             BX6    X2                                                      ARITH    4369
                     54720                        SA7    A2                UPDATED APLIST NUMBER                 ARITH    4370
                          0100000000 X            RJ     IGCALL            GENERATE CALL MACRO                   ARITH    4371
          4012  5110007614 +                      SA1    =8RBUGARR                                               ARITH    4372
                          6170004013 +            SB7    *+1                                                     ARITH    4373
          4013  0400000000 X                      EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS   ARITH    4374
          4014  7160000014                        SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD         ARITH    4375
                          20670                   LX6    P.TYP                SO REFERENCE WONT APPEAR IN        ARITH    4376
                               12762              BX7    X6+X2                THE REFERENCE MAP                  ARITH    4377
          4015  5130000365 +                      SA3    STAPL                                                   ARITH    4378
                          54720                   SA7    A2                                                      ARITH    4379
                               10633              BX6    X3                                                      ARITH    4380
          4016  5160000043 +                      SA6    STAPLC            RESTORE STORE-TO-APLIST CHAIN         ARITH    4381
                          5120000064              SA2    NARN              NEXT AVAILABLE R NUMBER               ARITH    4382
          4017  10622                             BX6    X2                                                      ARITH    4383
                     7272000001                   SX7    X2+1              INCREMENT R NUMBER                    ARITH    4384
                               54720              SA7    A2                                                      ARITH    4385
          4020  43500                             MX5    0                                                       ARITH    4386
                     5160000013 +                 SA6    PARAMS                                                  ARITH    4387
          4021  5130000426 +                      SA3    DFRMD                                                   ARITH    4388
                          5140000005 +            SA4    EQCOUNT                                                 ARITH    4389
          4022  73440                             SX4    X4                                                      ARITH    4390
                     20442                        LX4    34                                                      ARITH    4391
                          12646                   BX6    X4+X6             INSERT EQUAL SIGN COUNT               ARITH    4392
          4023  5160000375 +                      SA6    LEFRN             INDICATE AN UNSAVED FUNCTION RESULT   ARITH    4393
                          0100005576 +            RJ     MACOUT            OUTPUT REG DEFINE RN=X6               ARITH    4394
          4024  5130000032 +                      SA3    RL2                                                     ARITH    4395
                          5253000002              SA5    X3+2                                                    ARITH    4396
          4025  10655                             BX6    X5                                                      ARITH    4397
                     5160000034 +                 SA6    SVRL2       FOR ISSUANCE OF INDEXED FETCH               ARITH    4398
          4026  0100005536 +                      RJ     CHKOFF                                                  ARITH    4399
          4027  5110000377 +                      SA1    OSPTR             OPSTACK POINTER                       ARITH    4400
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    91
         SUBSCRIPT PROCESSING 
  
                          5241007616 +            SA4    X1+OPSTAK-3       FWA OF SUBSCRIPT CODE                 ARITH    4401
          4030  5150000005 C                      SA5    ARLPT             LWA OF SUBSCRIPT CODE                 ARITH    4402
                          73640                   SX6    X4                                                      ARITH    4403
                               54650              SA6    A5                START = END                           ARITH    4404
          4031  0100006137 +                      RJ     DARLIST           FLUSH SUBSCRIPT CODE                  ARITH    4405
          4032  5110000005 C                      SA1    ARLPT                                                   ARITH    4406
                          5221000000              SA2    X1+ARLIST                                               ARITH    4407
          7633  20740000000000004032 +            SUB                                                            ARITH    4408
          4033  10322                             BX3    X2                                                      ARITH    4409
                     21273                        AX2    59                                                      ARITH    4410
                          13223                   BX2    X2-X3                                                   ARITH    4411
                               10322              BX3    X2                                                      ARITH    4412
          4034  21273                             AX2    59                                                      ARITH    4413
                     13223                        BX2    X2-X3                                                   ARITH    4414
                          63220                   SB2    X2                                                      ARITH    4415
                               75622              SX6    A2-B2                                                   ARITH    4416
          4035  5160001061 +                      SA6    LASTR                                                   ARITH    4417
                          5110001126 +            SA1    RL1TS                                                   ARITH    4418
          4036  5120001127 +                      SA2    RL2TS                                                   ARITH    4419
                          10611                   BX6    X1                                                      ARITH    4420
                               22702              LX7    X2                                                      ARITH    4421
          4037  5160000031 +                      SA6    RL1                                                     ARITH    4422
                          5170000032 +            SA7    RL2                                                     ARITH    4423
          4040  5120000064                        SA2   NARN                                                     ARITH    4424
                          7222777776              SX2    X2-1              RN OF FUNCTION RESULT                 ARITH    4425
          4041  7150000001                        SX5   1                                                        ARITH    4426
                          43300                   MX3   0                  OUTPUT PSUEDO-OP TO ARLST             ARITH    4427
          4042  0100005576 +                      RJ     MACOUT            WITH FUNCTION RESULT AS OPERAND       ARITH    4428
          4043  5120000032 +                      SA2   RL2                                                      ARITH    4429
                          5232000002              SA3   X2+2                                                     ARITH    4430
          4044  43001                             MX0   1                                                        ARITH    4431
                     12703                        BX7   X0+X3              TURN ON NO-OP BIT                     ARITH    4432
                          54730                   SA7    A3                                                      ARITH    4433
          4045  0100005536 +                      RJ     CHKOFF                                                  ARITH    4434
          4046  0400003746 +                      EQ     ARR                                                     ARITH    4435
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    92
                                                                      MULTOP
  
          4047  0100002406 +             MULTOP   RJ     SSERR6                                                  ARITH    4438
          4050  5110001060 +                      SA1    FF          TOGGLE FLIP FLOP                            ARITH    4439
                          14611                   BX6    -X1                                                     ARITH    4440
          4051  5160001060 +                      SA6    FF                                                      ARITH    4441
                          0400004214 +            ZR        CMPARE                                               ARITH    4442
                                        *                                                                        ARITH    4443
                                        *     FROM EJTB                                                          ARITH    4444
          4052  5150007603 +            RTPRN     SA5    PARLEVEL        DECREMENT THE PARENTHESIS LEVEL         ARITH    4445
                          7265777776              SX6    X5-1                                                    ARITH    4446
          4053  54650                             SA6    A5                                                      ARITH    4447
                     6124777755                   SB2    B4-EL.STAR                                              ARITH    4448
          4054  6170000001                        SB7    EL.ID                                                   ARITH    4449
                          0420004214 +            ZR     B2,CMPARE    IF E+1 IS *                                ARITH    4450
          4055  6120000024                        SB2    EL.DSTR                                                 ARITH    4451
                          0424004214 +            EQ  B2,B4,CMPARE    IF E+1 IS **                               ARITH    4452
          4056  0674004066 +                      GE  B7,B4,RTPRN1    IF NEXT E IS ID OR CONST                   ARITH    4453
                          6170000006              SB7    EL.(                                                    ARITH    4454
          4057  0474004075 +                      EQ  B7,B4,RTPRN2    IF NEXT E IS (                             ARITH    4455
                          5110001062 +            SA1       EMODE                                                ARITH    4456
          4060  7221777776                        SX2    X1-1                                                    ARITH    4457
                          0312004214 +            NZ     X2,CMPARE    IF NOT EXP. MODE.                          ARITH    4458
          4061  5150000032 +                      SA5       RL2       IS LAST OPD TYPE INT -                     ARITH    4459
                          53450                   SA4       X5                                                   ARITH    4460
          4062  6170000001                        SB7    T.INT                                                   ARITH    4461
                          26064                   UX0 B6,X4                                                      ARITH    4462
          4063  0467004214 +                      EQ  B6,B7,CMPARE    IF YES                                     ARITH    4463
                          5121777776              SA2    B1-1         GET E+1                                    ARITH    4464
          4064  43001                             MX0    1            SET GP FLG IN E+1 (B46)                    ARITH    4465
                     20023                        LX0    19                                                      ARITH    4466
                          12602                   BX6    X0+X2                                                   ARITH    4467
          4065  5161777776                        SA6    B1-1                                                    ARITH    4468
                          0400004214 +            ZR        CMPARE                                               ARITH    4469
          4066  5110000024               RTPRN1   SA1       TYPE                                                 ARITH    4470
                          7221777757              SX2    X1-16                                                   ARITH    4471
          4067  0302004072 +                      ZR     X2,RTPRN3    IF 2 OR 3 BRAN IF                          ARITH    4472
                          7221777756              SX2    X1-17                                                   ARITH    4473
          4070  0312004075 +                      NZ     X2,RTPRN2    IF NOT IN IF STATE.                        ARITH    4474
                          5150007603 +            SA5    PARLEVEL                                                FCC1124     4
          4071  0315004077 +                      NZ     X5,RTPRN4   NOT AT FINAL ) FOR IF                       FCC1124     5
          4072  5110007071 +             RTPRN3   SA1       IFRPF                                                ARITH    4475
                          43612                   MX6       10                                                   ARITH    4476
          4073  0311004075 +                      NZ     X1,RTPRN2    IF )CONST HAS ALREADY APPEARED FOR THIS IF ARITH    4477
                          5160007071 +            SA6       IFRPF     SET )CONST FLAG (INITIALIZED IN IF)        ARITH    4478
          4074  0400004214 +                      ZR        CMPARE                                               ARITH    4479
                                        *                                                                        ARITH    4480
          4075  5120000401 +             RTPRN2   SA2    IXFNFG                                                  ARITH    4481
                          5110007603 +            SA1    PARLEVEL                                                FCC1925    10
          4076  0321004077 +                      PL     X1,RTPRN4   IF I/O UNIT OR VAR FORMAT AND 0-LVL PARN    FCC1925    11
                          0332004214 +            MI     X2,CMPARE   IF I/O UNIT OR VAR FORMAT                   ARITH    4482
          4077                           RTPRN4   BSS    0                                                       ARITH    4483
          4077  5110000032                        SA1       EPOINT    MOVE EPOINT SO ID,CON, OR ( WILL BE LISTED ARITH    4484
                          7261777776              SX6    X1-1                                                    ARITH    4485
          4100  5160000032                        SA6       EPOINT                                               ARITH    4486
                          6160000237              EERR      ERMSG25   ) FOLLOWED BY ID, CON, OR (                ARITH    4487
                                        *                                                                        ARITH    4488
                                        *                                                                        ARITH    4489
                                        *     HERE FROM EJTB FOR WANGERS RIGHT PARENS                            ARITH    4490
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    93
                                                                      MULTOP
  
          4102  6120000002               RJWRP    SB2    EL.)                                                    ARITH    4491
                          43000                   MX0       0                                                    ARITH    4492
                               27620              PX6    B2,X0                                                   ARITH    4493
          4103  5160000011 +                      SA6       OP                                                   ARITH    4494
                          0400004214 +            ZR        CMPARE                                               ARITH    4495
                                        *                                                                        ARITH    4496
                                        *                                                                        ARITH    4497
                                        *                                                                        ARITH    4498
                                        *     HERE IF ( IN E-LIST                                                ARITH    4499
                                        *         X2=E+1                                                         ARITH    4500
          4104  0100002370 +             LTPRN    RJ        SSERR3                                               ARITH    4501
          4105  6140000002                        SB4    EL.)                                                    ARITH    4502
                          0534004107 +            NE  B3,B4,LTPRN1    IF NOT )                                   ARITH    4503
          4106  6160000216                        EERR   ERMSG8       EMPTY PAREN.EXP.                           ARITH    4504
                                        *                                                                        ARITH    4505
          4107  5110000377 +             LTPRN1   SA1       OSPTR     SAVE ARLPT. (SEE STBASE)                   ARITH    4506
                          6221777540              SB2    X1-MXOSE+1                                              ARITH    4507
          4110  0620004275 +                      PL     B2,ERR03     IF OPSTAK FULL                             ARITH    4508
                          5120000005 C            SA2       ARLPT                                                ARITH    4509
          4111  5130000376 +                      SA3       SFRSTB    IN CASE SAVED FUNC RESULTS IN BASE OR PWR  ARITH    4510
                          20322                   LX3       18                                                   ARITH    4511
                               12623              BX6    X2+X3                                                   ARITH    4512
          4112  5261007622 +                      SA6    X1+OPSTAK+1                                             ARITH    4513
                          7271000001              SX7    X1+1                                                    ARITH    4514
          4113  5170000377 +                      SA7       OSPTR                                                ARITH    4515
                          5110001062 +            SA1       EMODE     SAVE CURRENT MODE IN B21-19                ARITH    4516
          4114  6120000006                        SB2    EL.(                                                    ARITH    4517
                          20123                   LX1    19                                                      ARITH    4518
                               27621              PX6    B2,X1                                                   ARITH    4519
          4115  7170000001                        SX7    1            SET MODE TO NORM.EXP.MODE                  ARITH    4520
                          5160000011 +            SA6    OP                                                      ARITH    4521
          4116  5170001062 +                      SA7    EMODE                                                   ARITH    4522
                          5110007603 +            SA1    PARLEVEL        INCREMENT THE PARENTHESIS LEVEL         ARITH    4523
          4117  7261000001                        SX6    X1+1                                                    ARITH    4524
                          54610                   SA6    A1                                                      ARITH    4525
          4120  0400004271 +                      ZR        ADDOP                                                ARITH    4526
                                        *                                                                        ARITH    4527
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    94
  
  
                                        *     EQSIGN IF = IN E-LIST (FROM EJTB)                                  ARITH    4529
          4121  0100002370 +             EQSIGN   RJ        SSERR3    SYNTAX CHK                                 ARITH    4530
          4122  5150000005 +                      SA5    EQCOUNT         DECREMENT THE COUNT OF EQUAL SIGNS      ARITH    4531
                          7265777776              SX6    X5-1                                                    ARITH    4532
          4123  54650                             SA6    A5                                                      ARITH    4533
                     5140000064                   SA4    NARN                                                    ARITH    4534
          4124  7264777776                        SX6    X4-1        MAKE R-NUMBER IN LAST LOAD AVAIL FOR REUSE  ARITH    4535
                          54640                   SA6    A4                                                      ARITH    4536
          4125  5110000024                        SA1       TYPE                                                 ARITH    4537
                          5120000373 +            SA2    EQFLG                                                   ARITH    4538
          4126  6221777763                        SB2    X1-RPLST                                                ARITH    4539
                          0312004131 +            NZ     X2,EQS1      IF AN =SIGN HAS ALREADY APPEARED.          ARITH    4540
          4127  0520004141 +                      NZ     B2,EQS2      IF NOT A REPLACEMENT STATEMENT             ARITH    4541
                          43612                   MX6    10           SET EQFLG                                  ARITH    4542
          4130  5160000373 +                      SA6    EQFLG                                                   ARITH    4543
                          0400004271 +            ZR        ADDOP                                                ARITH    4544
          4131  6160000206              EQS1      USASDM ERMSG0          MORE THAN ONE = SIGN (NON-USAS)         ARITH    4545
          4132  5110000377 +                      SA1       OSPTR     SEE IF EXPRESSION IN BETWEEN = SIGNS.      ARITH    4546
                          6130000005              SB3    EL.=                                                    ARITH    4547
          4133  5221007621 +                      SA2    X1+OPSTAK                                               ARITH    4548
                          26022                   UX0    B2,X2                                                   ARITH    4549
          4134  0523004141 +                      NE  B2,B3,EQS2      IF LAST OP IN OPSTAK NOT = SIGN            ARITH    4550
                          5110000032 +            SA1       RL2       LAST OPD MUST BE A LOAD                    ARITH    4551
          4135  5221000002                        SA2    X1+2                                                    ARITH    4552
                          5130006653 +            SA3    IXFN.TAB                                                ARITH    4553
          4136  26022                             UX0    B2,X2                                                   ARITH    4554
          4137  63332                    EQS1A    SB3    X3+B2                                                   ARITH    4555
                     5033000001                   SA3    A3+1                                                    ARITH    4556
          4140  0430004271 +                      ZR     B3,ADDOP          IF A LOAD MACRO                       ARITH    4557
                          0313004137 +            NZ     X3,EQS1A          IF MORE TO CHECK                      ARITH    4558
                                                                                                                 ARITH    4559
          4141  6160000207               EQS2     EERR   ERMSG1            ILLEGAL USE OF = SIGN                 ARITH    4560
          4142  5110000024              ERROUT    SA1    TYPE            IF THIS WAS A REPLACEMENT STATEMENT     ARITH    4561
                          43700                   MX7    0                                                       FCC0611     6
          4143  5170000000 X                      SA7    IXFNCL                                                  FCC0611     7
                          7221777763              SX2    X1-RPLST          THEN CALL 'DODEF' IN CASE A CURRENT   ARITH    4562
          4144  0312004150 +                      NZ     X2,ERROUT.1       DO-LOOP PARAMETER WAS ALSO REDEFINED. ARITH    4563
                          5110000335 +            SA1    SAVELEFT                                                ARITH    4564
          4145  63110                             SB1    X1                                                      ARITH    4565
                     76660                        SX6    B6              SAVE THE ERROR NUMBER.                  ARITH    4566
                          54610                   SA6    A1                                                      ARITH    4567
          4146  0100000000 X                      RJ     DODEF                                                   ARITH    4568
          4147  5110000335 +                      SA1    SAVELEFT                                                ARITH    4569
                          63610                   SB6    X1              RESTORE THE ERROR NUMBER.               ARITH    4570
          4150  6170000000 X             ERROUT.1 SB7    PH2RETN                                                 ARITH    4571
                          5110000032              SA1    EPOINT                                                  ARITH    4572
          4151  5241000001                        SA4    X1+1         LOAD LAST E PROCESSED                      ARITH    4573
                          5120000401 +            SA2    IXFNFG                                                  ARITH    4574
          4152  0302000000 X                      ZR     X2,ERPRO          IF NOT IN IXFN MODE                   ARITH    4575
                          6170000000 X            SB7    =XDOGOOF          IN CASE WE ARE IN THE MIDDLE OF       ARITH    4576
          4153  0400000000 X                      EQ     ERPRO             AN I/O LOOP                           ARITH    4577
                                        *                                                                        ARITH    4578
                                        *     FROM EJTB. IF -                                                    ARITH    4579
          4154  0100002406 +             MINUS    RJ        SSERR6                                               ARITH    4580
          4155  5111000001                        SA1    B1+1                                                    ARITH    4581
                          26021                   UX0 B2,X1                                                      ARITH    4582
          4156  6130000002                        SB3    EL.)                                                    ARITH    4583
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    95
  
  
                          0632004213 +            LE  B2,B3,RSFF      IF E-1 IS A ), ID, OR CON.                 ARITH    4584
          4157  5110000441 +                      SA1    UMIOP        HERE IF U-                                 ARITH    4585
                          10611                   BX6    X1                                                      ARITH    4586
          4160  5160000011 +                      SA6    OP                                                      ARITH    4587
                          0400004213 +            ZR        RSFF                                                 ARITH    4588
                                                                                                                 ARITH    4589
                                        *         DIVIDE OPERATOR                                                ARITH    4590
                                                                                                                 ARITH    4591
          4161  5130000032 +             DIVIOP   SA3    RL2                                                     ARITH    4592
                          53430                   SA4    X3                                                      ARITH    4593
                               26034              UX0 B3,X4                                                      ARITH    4594
          4162  6150000001                        SB5    T.INT                                                   ARITH    4595
                          6160000005              SB6    T.OCT                                                   ARITH    4596
          4163  0435004164 +                      EQ  B3,B5,DIVIDE1   IF INT /                                   ARITH    4597
                          0736004166 +            LT  B3,B6,DIVD      IF NOT A POSSIBLE INT /                    ARITH    4598
          4164  5130000442 +             DIVIDE1  SA3       INTEDVD                                              ARITH    4599
                          10633                   BX6    X3                                                      ARITH    4600
          4165  5160000011 +                      SA6       OP                                                   ARITH    4601
          4166  0100002406 +             DIVD     RJ        SSERR6                                               ARITH    4602
          4167  5120001060 +                      SA2       FF        SO IF A=B/C*D*E WILL GET (B/C)*(D*E)       ARITH    4603
                          14622                   BX6   -X2                                                      ARITH    4604
                               54620              SA6    A2                                                      ARITH    4605
          4170  5110000032 +             DIVX     SA1    RL2                                                     ARITH    4606
                          53210                   SA2    X1                                                      ARITH    4607
          4171  6120000001                        SB2    T.INT                                                   ARITH    4608
                          26032                   UX0 B3,X2                                                      ARITH    4609
                               76430              SX4    B3                                                      ARITH    4610
          4172  0423004214 +                      EQ  B2,B3,CMPARE    IF TYPE OF LAST OPD WAS INT                ARITH    4611
                          6120000005              SB2    T.OCT                                                   FCC1731X    5
          4173  0423004214 +                      EQ     B2,B3,CMPARE      IF TYPE OF LAST OPND WAS OCTAL        FCC1731X    6
                          5120000377 +            SA2    OSPTR                                                   ARITH    4612
          4174  5110000011 +                      SA1    OP                                                      ARITH    4613
                          5232007621 +            SA3    X2+OPSTAK                                               ARITH    4614
          4175  21103                             AX1    3           ASSURES THAT THE HIERARCHY IS NOT THAT OF I ARITH    4615
                     26033                        UX0    B3,X3                                                   ARITH    4616
                          20173                   LX1    60-1                                                    ARITH    4617
                               43271              MX2    57                                                      ARITH    4618
          4176  0321004206 +                      PL     X1,DIVX1    IF HIERARCHY IS OF INT/                     ARITH    4619
                          20155                   LX1    60-15                                                   ARITH    4620
          4177  0321004202 +                      PL     X1,DIVD1     IF GP FLG NOT ON IN OP                     ARITH    4621
                          20170                   LX1    60-4                                                    ARITH    4622
                                                                                                                 ARITH    4623
          4200  11121                    DIVX2    BX1    X2*X1                                                   ARITH    4624
                     12641                        BX6    X4+X1       ADD TYPE OF LAST OPD                        ARITH    4625
                          20627                   LX6    23                                                      ARITH    4626
                               54610              SA6    A1          RESTORE INTO OP                             ARITH    4627
          4201  6123777755                        SB2    B3-EL.STAR                                              ARITH    4628
                          0420005023 +            ZR     B2,TM3B                                                 ARITH    4629
          4202  6123777754               DIVD1    SB2    B3-EL.SLASH                                             ARITH    4630
                          6140000035              SB4    MLTSOP                                                  ARITH    4631
          4203  0420004204 +                      ZR     B2,DIVD2                                                ARITH    4632
                          0534004214 +            NE     B3,B4,CMPARE                                            ARITH    4633
          4204  5110000443 +             DIVD2    SA1    MLTDOP                                                  ARITH    4634
                          10611                   BX6    X1                                                      ARITH    4635
          4205  5160000011 +                      SA6    OP                                                      ARITH    4636
                          0400004214 +            ZR        CMPARE                                               ARITH    4637
                                                                                                                 ARITH    4638
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    96
  
  
          4206  43001                    DIVX1    MX0    1                                                       ARITH    4639
                     12310                        BX3    X1+X0       HIERARCHY CHANGED TO 10B                    ARITH    4640
                          20355                   LX3    60-15                                                   ARITH    4641
                               12130              BX1    X3+X0       GP BIT TURNED ON                            ARITH    4642
          4207  20170                             LX1    60-4                                                    ARITH    4643
                     0400004200 +                 EQ     DIVX2                                                   ARITH    4644
                                        *                                                                        ARITH    4645
                                        *     PLUS IF + SIGN IN E-LIST                                           ARITH    4646
          4210  0100002406 +             PLUS     RJ        SSERR6                                               ARITH    4647
          4211  5111000001                        SA1    B1+1                                                    ARITH    4648
                          26031                   UX0 B3,X1                                                      ARITH    4649
          4212  6120000002                        SB2    EL.)                                                    ARITH    4650
                          0723001066 +            GT  B3,B2,NEXTE     IF NOT PRECEDED BY CON, ID, OR ) (U+)      ARITH    4651
                                        *     RSFF IF + OR -                                                     ARITH    4652
          4213  43612                    RSFF     MX6    10           RESET FF TO <0                             ARITH    4653
                     5160001060 +                 SA6    FF                                                      ARITH    4654
          4214  5110000377 +             CMPARE   SA1    OSPTR        OPSTACK PTR                                ARITH    4655
                          63210                   SB2    X1                                                      ARITH    4656
          4215  5122007621 +                      SA2    OPSTAK+B2    LAST ENTRY                                 ARITH    4657
                          5130000011 +            SA3    OP           GET OP                                     ARITH    4658
          4216  63620                             SB6    X2           COMPARE HEIRARCHIES                        ARITH    4659
                     26032                        UX0 B3,X2                                                      ARITH    4660
                          63730                   SB7    X3                                                      ARITH    4661
                               26043              UX0 B4,X3                                                      ARITH    4662
          4217  0767004273 +                      GT  B7,B6,ADDOP1    IF H(OP)>H(OM)                             ARITH    4663
                          0476005013 +            EQ  B7,B6,TM3       IF H(OP)=H(OM)                             ARITH    4664
          4220  5150000032 +                      SA5       RL2       IS LAST OPD TYPE INT -                     ARITH    4665
                          53450                   SA4       X5                                                   ARITH    4666
          4221  6170000001                        SB7    T.INT                                                   ARITH    4667
                          26064                   UX0 B6,X4                                                      ARITH    4668
          4222  0467004225 +                      EQ B6,B7,POPOP      IF YES                                     ARITH    4669
                          43001                   MX0    1            SET GP FLG IN OP                           ARITH    4670
                               76160              SX1    B6                TYPE                                  ARITH    4671
          4223  20023                             LX0    19           IN B18                                     ARITH    4672
                     12603                        BX6    X0+X3                                                   ARITH    4673
                          20127                   LX1    23                                                      ARITH    4674
                               12661              BX6    X6+X1             ADD TYPE                              ARITH    4675
          4224  5160000011 +                      SA6    OP                                                      ARITH    4676
                                        *     POPOP IF AN OPERATOR IS TO BE POPPED OUT OF OPSTAK                 ARITH    4677
          4225  20245                    POPOP    LX2       59-22                                                ARITH    4678
                     0322004227 +                 PL     X2,POP1      IF CGP BIT OFF IN OM                       ARITH    4679
          4226  0100005533 +                      RJ     CLGP        CLEAR GPTU BIT IN LAST GPTU ENTRY           FCC0418    17
                                                                                                                 ARITH    4683
          4227  5150000377 +             POP1     SA5    OSPTR                                                   ARITH    4684
                          5245007621 +            SA4    X5+OPSTAK                                               ARITH    4685
          4230  5110000031 +                      SA1    RL1                                                     ARITH    4686
                          26034                   UX0    B3,X4                                                   ARITH    4687
          4231  5120000032 +                      SA2    RL2                                                     ARITH    4688
                          7265777776              SX6    X5-1              DECREMENT OPSTACK PTR                 ARITH    4689
          4232  10744                             BX7    X4                                                      ARITH    4690
                     53310                        SA3    X1                (RL1)                                 ARITH    4691
                          5170000037 +            SA7    CRNTOP            CURRENT OPERATOR                      ARITH    4692
          4233  53420                             SA4    X2                (RL2)                                 ARITH    4693
                     54650                        SA6    A5                                                      ARITH    4694
                          0233004230 +            JP     B3+OPSWTB-4  LOWEST OP=4                                ARITH    4695
                                                                                                                 FCC1590X   11
          4234                           OPSWTB   BSS    0                                                       FCC1590X   12
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    97
  
  
      L      4                                    LOC    4                                                       FCC1590X   13
      L      4  0400005137 +                      EQ        EOSPO     END-OF-STMT PSEUDO OP                      FCC1590X   14
      L      5  0400005144 +                      ZR        EQPO      =                                          ARITH    4697
      L      6  0400005120 +                      ZR        LPAR      (                                          ARITH    4698
      L      7  7160000157                        SX6       MAC+0     .OR.                                       ARITH    4699
                          0400004317 +            ZR        AOOP      .AND.  .OR. OP PROCESSOR                   ARITH    4700
      L     10  7160000160                        SX6       MAC+1     .AND.                                      ARITH    4701
                          0400004317 +            ZR        AOOP                                                 ARITH    4702
      L     11  7160000161                        SX6       MAC+2     .NOT.                                      ARITH    4703
                          0400004332 +            ZR        NOTOPR                                               ARITH    4704
      L     12  7160000162                        SX6    MAC+3        LE    MAC+3 IF REAL                        ARITH    4705
                                        *                                      +4 IF INT                         ARITH    4706
                                        *                                      +5 IF DBL                         ARITH    4707
                                        *                                      +6 IF CMPX (ONLY REALS USED)      ARITH    4708
                          0400005052 +            ZR        ROP                                                  ARITH    4709
      L     13  7160000166                        SX6       MAC+7     LT                                         ARITH    4710
                          0400005052 +            ZR        ROP                                                  ARITH    4711
      L     14  7160000172                        SX6       MAC+11    GE                                         ARITH    4712
                          0400005052 +            ZR        ROP                                                  ARITH    4713
      L     15  7160000176                        SX6       MAC+15    GT                                         ARITH    4714
                          0400005052 +            ZR        ROP                                                  ARITH    4715
      L     16  7160000202                        SX6       MAC+19    NE                                         ARITH    4716
                          0400005052 +            ZR        ROP                                                  ARITH    4717
      L     17  7160000206                        SX6       MAC+23    EQ                                         ARITH    4718
                          0400005052 +            ZR        ROP                                                  ARITH    4719
                                        *     ANY CHANGE TO -,+,*,/ OP NO,S WILL REQUIRE CHANGE TO BOPSTB        ARITH    4720
      L     20  7160000212                        SX6       MAC+27    -                                          ARITH    4721
                          0400004462 +            ZR        MOP                                                  ARITH    4722
      L     21  7160000216                        SX6       MAC+31    +                                          ARITH    4723
                          0400004462 +            ZR        MOP                                                  ARITH    4724
      L     22  7160000222                        SX6       MAC+35    *                                          ARITH    4725
                          0400004342 +            ZR     MOPA                                                    ARITH    4726
      L     23  7160000226                        SX6       MAC+39    /     MAC+39 IF REAL                       ARITH    4727
                                        *                                       40    INT                        ARITH    4728
                                        *                                       41    DBL                        ARITH    4729
                                        *                                       42    CMPX                       ARITH    4730
                          0400004375 +            ZR     MOPB                                                    ARITH    4731
      L     24  0400003257 +                      ZR        EXPOP     **                                         ARITH    4732
      L     25  0400002542 +                      ZR        ARGPO     (A  LEFT PAREN PRECEDING ARG LIST          ARITH    4733
      L     26  0400003651 +                      ZR        SUBPO     (S  LEFT PAREN PRECEDING NSSP              ARITH    4734
      L     27  0400003575 +                      ZR        CS1PO     ,S1  COMMA AFTER SUBSCRIPT ONE             ARITH    4735
      L     30  0400003625 +                      ZR        CS2PO     ,S2  COMMA AFTER SUBSCRIPT TWO             ARITH    4736
      L     31  0400002414 +                      ZR        CARGPO    ,A  COMMA FOLLOWING ARGUMENT               ARITH    4737
                                        *     ANY CHANGE TO U- WILL REQUIRE CHANGE IN UINGEN.                    ARITH    4738
      L     32  7160000232                        SX6       MAC+43    U-                                         ARITH    4739
                          0400004615 +            ZR        MOP15                                                ARITH    4740
      L     33  7160000234                        SX6       MAC+45    R-    INT CASE ONLY WHEN U- FOLLOWED BY +  ARITH    4741
                          0400004462 +            ZR        MOP                                                  ARITH    4742
      L     34  7160000240                        SX6       MAC+49    R/    NO INT CASE                          ARITH    4743
                          0400004462 +            ZR        MOP                                                  ARITH    4744
      L     35  7160000222                        SX6       MAC+35    */    NO INT CASE                          ARITH    4745
                          0400004462 +            ZR        MOP                                                  ARITH    4746
      L     36  0400005106 +                      ZR        SFLPR     (SF  STATE FUN.LP ROUTINE                  ARITH    4747
      L     37  0400006566 +                      ZR        IXFN2     (X   IXFN LP ROUTINE                       ARITH    4748
      L     40  0400006721 +                      ZR        ACAL7     (SUBR.LP                                   ARITH    4749
                                        *     END OF OPSWTB                                                      ARITH    4750
          4271                                    LOC    *O                                                      FCC1590X   15
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    98
  
  
                                        *     ADDOP TO PUT OP IN OPSTAK                                          ARITH    4751
          4271  5110000377 +             ADDOP    SA1    OSPTR        OSPTR=NO.OF OPS IN STAK-1 (LAST=EOS OP)    ARITH    4752
                          63210                   SB2    X1                                                      ARITH    4753
          4272  5130000011 +                      SA3    OP                                                      ARITH    4754
          4273  0420004302 +             ADDOP1   ZR     B2,ADDOP2    IF NO OPS IN STACK                         ARITH    4755
                          6132777540              SB3    B2-MXOSE+1   TEST SIZE OF STAK                          ARITH    4756
          4274  0730004276 +                      NG     B3,ADDOP3    IF OPSTAK NOT FULL                         ARITH    4757
          4275  6160000217               ERR03    EERR      ERMSG9                                               ARITH    4758
                                        *                                                                        ARITH    4759
          4276  10633                    ADDOP3   BX6    X3                                                      ARITH    4760
                     26033                        UX0 B3,X3           SEE IF ** OP                               ARITH    4761
                          6140000024              SB4    EL.DSTR                                                 ARITH    4762
          4277  0434004305 +                      EQ  B3,B4,ADDOP4    IF **                                      ARITH    4763
          4300  5162007622 +             ADDOP6   SA6    B2+OPSTAK+1  STORE OP IN OPSTAK                         ARITH    4764
                          7172000001              SX7    B2+1         UP OSPTR                                   ARITH    4765
          4301  5170000377 +                      SA7    OSPTR                                                   ARITH    4766
                          0400001066 +            ZR        NEXTE                                                ARITH    4767
          4302  26033                    ADDOP2   UX0 B3,X3           SEE IF OP IS )                             ARITH    4768
                     7113777775                   SX1    B3-EL.)                                                 ARITH    4769
          4303  0311004276 +                      NZ     X1,ADDOP3    IF NOT )                                   ARITH    4770
                          6160000212              EERR   ERMSG4                                                  ARITH    4771
                                        *         (DONT DESTROY X6 OR B2                                         ARITH    4772
          4305  5110001057 +             ADDOP4   SA1       STBASE                                               ARITH    4773
                          0321004310 +            PL     X1,ADDOP5    IF X1=POINT TO START OF BASE               ARITH    4774
          4306  5110000032 +                      SA1       RL2       COMPUTE POINT TO START OF BASE             ARITH    4775
                          7120000000              SX2    ARLIST                                                  ARITH    4776
          7634  20740000000000004306 +            SUB                                                            ARITH    4777
          4307  37112                             IX1    X1-X2                                                   ARITH    4778
          4310  10711                    ADDOP5   BX7    X1                                                      ARITH    4779
                     5120000370 +                 SA2       NSFR                                                 ARITH    4780
          4311  0322004312 +                      PL     X2,ADDOP5A                                              ARITH    4781
                          5120000376 +            SA2       SFRSTB                                               ARITH    4782
          4312  20222                    ADDOP5A  LX2       18                                                   ARITH    4783
                     12727                        BX7    X2+X7                                                   ARITH    4784
                          5172007622 +            SA7    B2+OPSTAK+1  STORE STBASE                               ARITH    4785
          4313  6122000001                        SB2    B2+1                                                    ARITH    4786
                          6132777540              SB3    B2-MXOSE+1                                              ARITH    4787
          4314  43712                             MX7    10                                                      ARITH    4788
                     5170000370 +                 SA7    NSFR                                                    ARITH    4789
          4315  5170001057 +                      SA7    STBASE                                                  ARITH    4790
                          0730004300 +            NG     B3,ADDOP6    IF OPSTAK NOT FULL                         ARITH    4791
          4316  0400004275 +                      ZR        ERR03                                                ARITH    4792
  
  
  
  
                                        *         AOOP - AND , OR OP POPPED FROM STACK                           ARITH    4794
                                                                                                                 ARITH    4795
          4317  26023                    AOOP     UX0    B2,X3                                                   ARITH    4796
                     5160000033 +                 SA6    SMACD             SAVE MACRO NUMBER                     ARITH    4797
                               26734              UX7    B3,X4                                                   ARITH    4798
          4320  6140000000                        SB4    T.LOG                                                   ARITH    4799
                          76523                   SX5    B2+B3                                                   ARITH    4800
          4321  0305004330 +                      ZR     X5,AOOP3          IF BOTH OPERANDS ARE TYPE LOGICAL     ARITH    4801
                          0420004323 +            ZR     B2,AOOP1          IF RL1 IS LOGICAL                     ARITH    4802
          4322  0530004324 +                      NZ     B3,AOOP2          IF RL2 IS NOT TYPE LOGICAL            ARITH    4803
          4323  6160000245               AOOP1    EERR   ERMSG31           LOG AND NON LOG OPNDS MAY NOT BE MIXE ARITH    4804
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE    99
                                                                      AOOP
  
                                                                                                                 ARITH    4805
          4324  0100006225 +             AOOP2    RJ     SNGLR             CHANGE RL1 TO SINGLE LOAD             ARITH    4806
          4325  5110000032 +                      SA1    RL2                                                     ARITH    4807
                          0100006225 +            RJ     SNGLR             CHANGE RL2 TO SINGLE LOAD             ARITH    4808
          4326  6160000272                        USASDM ERMSG41           MASKING EXPR                          ARITH    4809
          4327  6140000005                        SB4    T.OCT                                                   ARITH    4810
                                                                                                                 ARITH    4811
          4330  76540                    AOOP3    SX5    B4                                                      ARITH    4812
                     0100004621 +                 RJ     INGEN             OUTPUT MACRO                          ARITH    4813
          4331  0400004214 +                      EQ     CMPARE                                                  ARITH    4814
  
  
  
  
                                        *         NOTOPR - .NOT. OP POPPED                                       ARITH    4816
                                                                                                                 ARITH    4817
          4332  26024                    NOTOPR   UX0    B2,X4             MODE OF RL2                           ARITH    4818
                     10122                        BX1    X2                X1 = RL2                              ARITH    4819
                          6130000000              SB3    T.LOG                                                   ARITH    4820
          4333  0423004340 +                      EQ     B2,B3,NOTOPR1     IF TYPE LOGICAL                       ARITH    4821
                          0100006225 +            RJ     SNGLR             CHANGE TO SINGLE LOAD                 ARITH    4822
          4334  6160000272                        USASDM ERMSG41           *MASKING EXPR IS NON-ANSI*            ARITH    4823
          4335  5110000032 +                      SA1    RL2                                                     ARITH    4824
                          6120000005              SB2    T.OCT                                                   ARITH    4825
          4336  53210                             SA2    X1                                                      ARITH    4826
                     7160000161                   SX6    NOTMC                                                   ARITH    4827
                               27722              PX7    B2,X2             CHANGE TYPE TO OCT                    ARITH    4828
          4337  54720                             SA7    A2                                                      ARITH    4829
          4340  0100005544 +             NOTOPR1  RJ     UINGEN            OUTPUT MACRO                          ARITH    4830
          4341  43600                             MX6    0                                                       ARITH    4831
                     0400004214 +                 EQ     CMPARE                                                  ARITH    4832
  
  
  
  
                                        *         * OPERATOR, SPECIAL CASE 2*X TO X+X                            ARITH    4834
                                                                                                                 ARITH    4835
          4342  12734                    MOPA     BX7    X3+X4                                                   FCC0539   153
                     20714                        LX7    59-47                                                   FCC0539   154
                          0327004344 +            PL     X7,MOPA0    IF NEITHER OPERAND IS A CONST               FCC0539   155
          4343  0100004430 +                      RJ     CLC         CHECK FOR LARGE CONSTANTS                   FCC0539   156
          4344  26033                    MOPA0    UX0    B3,X3                                                   FCC0539   157
                     6160000003                   SB6    T.DBL                                                   ARITH    4837
                               20314              LX3    59-47                                                   ARITH    4838
          4345  26044                             UX0    B4,X4       RL2                                         ARITH    4839
                     6170000004                   SB7    T.CPLX                                                  ARITH    4840
                               20414              LX4    59-47                                                   ARITH    4841
          4346  0430004775 +                      ZR     B3,MOP1     IF RL1 TYPE LOGICAL, ERROR                  FCC0708     4
                          0440004775 +            ZR     B4,MOP1     IF RL2 TYPE LOGICAL, ERROR                  FCC0708     5
          4347  0323004350 +                      PL     X3,MOPA1    IF RL1 NOT A CONST                          ARITH    4842
                          0736004355 +            LT     B3,B6,MOPA2 IF RL1 IS INT OR REAL                       ARITH    4843
                                                                                                                 ARITH    4844
          4350  0324004462 +             MOPA1    PL     X4,MOP      IF RL2 NOT A CONST                          ARITH    4845
                          0646004462 +            GE     B4,B6,MOP   IF RL2 IS NOT INT OR REAL                   ARITH    4846
          4351  0773004462 +                      GT     B3,B7,MOP   IF RL1 IS OCT OR HOLL                       ARITH    4847
                          5110000031 +            SA1    RL1                                                     FCC0539   158
          4352  5120000032 +                      SA2    RL2                                                     FCC0539   159
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   100
                                                                      MOPA
  
                          10611                   BX6    X1          SWITCH (RL1) AND (RL2) IF RL2 IS CONST      ARITH    4848
                               22702              LX7    X2          RL2                                         ARITH    4849
          4353  5160000032 +                      SA6    RL2                                                     ARITH    4850
                          5170000031 +            SA7    RL1                                                     ARITH    4851
          4354  54340                             SA3    A4                                                      ARITH    4852
                     26033                        UX0    B3,X3                                                   ARITH    4853
                          0400004357 +            EQ     MOPA3                                                   ARITH    4854
                                                                                                                 ARITH    4855
          4355  0774004462 +             MOPA2    GT     B4,B7,MOP   IF RL2 OCT OR HOLL                          ARITH    4856
                          0324004357 +            PL     X4,MOPA3    IF RL1 CONST AND RL2 NOT                    ARITH    4857
          4356  0446004357 +                      EQ     B4,B6,MOPA3 IF NOT POSSIBLE COMPILE-TIME EVAL.          ARITH    4858
                          0547004462 +            NE     B4,B7,MOP   IF POSSIBLE COMPILE-TIME EVAL.              ARITH    4859
                                                                                                                 ARITH    4860
                                        *         RL1 CAN BE INT OR REAL, RL2 CAN BE INT,REAL,DBL,OR CMPLX       FCC0708     6
          4357  54130                    MOPA3    SA1    A3          RL1                                         ARITH    4861
                     0100006211 +                 RJ     NEWCON      GET VALUE OF CONST                          ARITH    4862
          4360  5120000032 +                      SA2    RL2                                                     ARITH    4863
                          6120000002              SB2    T.REAL                                                  ARITH    4864
          4361  7170000002                        SX7    2                                                       FCC0708     7
                          53420                   SA4    X2                                                      FCC0708     8
                               37076              IX0    X7-X6                                                   FCC0708     9
          4362  26544                             UX5    B4,X4                                                   FCC0708    10
                     0532004365 +                 NE     B3,B2,MOPA4 IF TYPE INTEGER CONSTANT                    FCC0708    11
          4363  0742004373 +                      LT     B4,B2,MOPA5 NO REDUCTION IF INT VAR AND REAL CONST      FCC0708    12
                          7100017214              SX0    2./1S45                                                 ARITH    4870
          4364  20617                             LX6    15                                                      ARITH    4871
                     37006                        IX0    X0-X6       TEST IF FLOATING POINT 2                    ARITH    4872
                                                                                                                 ARITH    4873
          4365  0310004373 +             MOPA4    NZ     X0,MOPA5    IF NOT CONST 2                              ARITH    4874
                                                                                                                 ARITH    4878
                                        *         CHANGE 2*X TO X+X                                              ARITH    4879
                                                                                                                 ARITH    4880
                          10722                   BX7    X2          RL1 CHANGED TO SAME AS RL2                  ARITH    4881
          4366  5110000031 +                      SA1    RL1                                                     ARITH    4882
                          53310                   SA3    X1                                                      ARITH    4883
                               26033              UX0    B3,X3                                                   ARITH    4884
          4367  54710                             SA7    A1                                                      ARITH    4885
                     0432004372 +                 EQ     B3,B2,MOPA4B IF CONST IS TYPE REAL, ANSI COMBINATION    ARITH    4886
                               67634              SB6    B3-B4                                                   ARITH    4887
          4370  0560004371 +                      NZ     B6,MOPA4A   IF NON-ANSI COMBINATION                     ARITH    4888
                          0732004372 +            LT     B3,B2,MOPA4B IF INT * INT                               ARITH    4889
          4371  6160000273               MOPA4A   USASDM ERMSG42     ISSUE NON-ANSI COMBINATION MSG              ARITH    4890
          4372  7160000216               MOPA4B   SX6    MAC+31      MACRO CODE CHANGED TO +                     ARITH    4891
                          0400004462 +            EQ     MOP                                                     ARITH    4892
                                                                                                                 ARITH    4893
          4373  7160000222               MOPA5    SX6    MAC+35      RESTORE * MACRO CODE                        ARITH    4894
                          10711                   BX7    X1          RESTORE ARLIST HDR WORD NOOPED BY NEWCON    ARITH    4895
                               54710              SA7    A1                                                      ARITH    4896
          4374  0400004462 +                      EQ     MOP                                                     ARITH    4897
                                                                                                                 ARITH    4898
                                        *         / OPERATOR, SPECIAL CASE C/R                                   ARITH    4899
                                        *         CONSTANT DIVISORS MAY BE INVERTED AND OPERATION CHANGED TO *.  FCC0570     9
                                                                                                                 ARITH    4900
          4375  12734                    MOPB     BX7    X3+X4                                                   FCC0539   160
                     20714                        LX7    59-47                                                   FCC0539   161
                          0327004377 +            PL     X7,MOPB1    IF NEITHER OPERAND IS A CONST               FCC0539   162
          4376  0100004430 +                      RJ     CLC         CHECK FOR LARGE CONSTANTS                   FCC0539   163
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   101
                                                                      MOPA
  
          4377  5120000000 X             MOPB1    SA2    =XROPFLAG                                               FCC0539   164
                          26044                   UX0    B4,X4       DIVISOR                                     FCC0570    10
                               20414              LX4    59-47                                                   FCC0570    11
          4400  6124777775                        SB2    B4-T.REAL                                               FCC0570    12
                          26033                   UX0    B3,X3       DIVIDEND                                    FCC0570    13
                               20250              LX2    1R/                                                     FCC0570    14
          4401  0520004462 +                      NZ     B2,MOP      IF DIVISOR NOT REAL                         FCC0570    15
                          0334004406 +            MI     X4,MOPB2    IF DIVISOR IS CONST                         FCC0570    16
          4402  6163777773                        SB6    B3-T.CPLX                                               FCC0570    17
                          0332004462 +            MI     X2,MOP      IF ROUNDED /                                FCC0570    18
          4403  0560004462 +                      NZ     B6,MOP      IF DIVIDEND NOT COMPLEX                     FCC0570    19
                          76730                   SX7    B3                                                      FCC0570    20
          4404  7160000241                        SX6    DIVCR       C/R MACRO CODE                              ARITH    4911
                          5170000323 +            SA7    TYPEWD      RESULT IS TYPE COMPLEX                      ARITH    4912
          4405  5160000033 +                      SA6    SMACD                                                   ARITH    4913
                          0400004610 +            EQ     MOP18       OUTPUT MACRO                                ARITH    4914
                                                                                                                 FCC0570    21
          4406                           MOPB2    BSS    0                                                       FCC0570    22
                                                                                                                 FCC0570    23
                                                  IFEQ   NOINVERT,0                                              FCC0570    24
                                                                                                                 FCC0570    25
                                        *         REAL CONSTANT DIVISORS CAN BE INVERTED IF DIVIDEND IS NOT      FCC0570    26
                                        *         TYPE DOUBLE. / CHANGED TO *.                                   FCC0570    27
          4406  6163777774                        SB6    B3-T.DBL                                                FCC0570    28
                          0460004462 +            ZR     B6,MOP      IF DIVIDEND IS DBL, NO INVERT               FCC0570    29
          4407  5110000031 +                      SA1    RL1                                                     FCC0570    30
                          5120000032 +            SA2    RL2                                                     FCC0570    31
          4410  54520                             SA5    A2          A5,X5 MUST BE PRESERVED IN CASE ARLIST      FCC1972     5
                                        *                            POINTER IS  RESTORED.                       FCC1972     6
                     10611                        BX6    X1                                                      FCC0570    32
                          53120                   SA1    X2                                                      FCC0570    33
                               54620              SA6    A2          REPLACE (RL2) WITH (RL1) FOR CFETCH         FCC0570    34
          4411  0100006211 +                      RJ     NEWCON      FETCH VALUE OF CONST                        FCC0570    35
          4412  0306001322 +                      ZR     X6,CON7     IF DIVIDE BY 0, ERROR                       FCC0570    36
                          5120007615 +            SA2    =1.0                                                    FCC0570    37
          4413  5140000000 X                      SA4    =XROPFLAG                                               FCC1972     7
                          10044                   BX0    X4                                                      FCC1972     8
                               44326              FX3    X2/X6                                                   FCC1972     9
          4414  20450                             LX4    1R/                                                     FCC1972    10
                     0324004415 +                 PL     X4,MOPB3    IF ROUNDED DIVIDE NOT SELECTED              FCC1972    11
                               45326              RX3    X2/X6                                                   FCC1972    12
          4415  0353004422 +             MOPB3    OR     X3,MOPB5    IF CONSTANT INFINITE                        FCC1972    13
                          0373004422 +            ID     X3,MOPB5    IF CONSTANT INDEFINITE                      FCC1972    14
          4416  40436                             FX4    X3*X6                                                   FCC1972    15
                     20047                        LX0    1R*                                                     FCC1972    16
                          0320004420 +            PL     X0,MOPB4    IF ROUNDED MULTIPLY NOT SELECTED            FCC1972    17
          4417  41436                             RX4    X3*X6                                                   FCC1972    18
          4420  0354004422 +             MOPB4    OR     X4,MOPB5    IF CONSTANT INFINITE                        FCC1972    19
                          0374004422 +            ID     X4,MOPB5    IF CONSTANT INDEFINITE                      FCC1972    20
          4421  37342                             IX3    X4-X2                                                   FCC1972    21
                     0303004424 +                 ZR     X3,MOPB6    IF(1/CON)*CON.EQ.1) -    INVERT             FCC1972    22
          4422  10655                    MOPB5    BX6    X5                                                      FCC1972    23
                     10711                        BX7    X1                                                      FCC1972    24
                          54650                   SA6    A5          RESTORE RLIST POINTER                       FCC1972    25
                               54710              SA7    A1          RESTORE ARLIST HDR WORD NOOPED BY NEWCON    FCC1972    26
          4423  7160000226                        SX6    MAC+39      / MACRO CODE                                FCC1972    27
                          0400004462 +            EQ     MOP                                                     FCC1972    28
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   102
                                                                      MOPA
  
                                                                                                                 FCC1972    29
          4424  6110000001               MOPB6    SB1    1                                                       FCC1972    30
                          45126                   RX1    X2/X6                                                   FCC0570    39
          4425  0100000000 X                      RJ     CONVERT                                                 FCC0570    40
          4426  7160000002                        SX6    T.REAL                                                  FCC0570    41
                          0100006165 +            RJ     CFETCH                                                  FCC0570    42
          4427  7160000222                        SX6    MAC+35      * MACRO CODE                                FCC0570    43
                                                                                                                 FCC0570    44
                                                  ENDIF                                                          FCC0570    45
                                                                                                                 FCC0570    46
                          0400004462 +            EQ     MOP                                                     FCC0570    47
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   103
        CLC - CHECK FOR LARGE INTEGER CONSTANTS                       CLC 
  
                                        **        CLC - CHECK FOR LARGE INTEGER CONSTANTS                        FCC0539   166
                                        *         INTEGER CONSTANTS USED AS OPERANDS OF MULTIPLICATION OR        FCC0539   167
                                        *         DIVISION ARE CHECKED FOR VALUES EXCEEDING 2**48-1.             FCC0539   168
                                        *         A FATAL ERROR IS GIVEN FOR SUCH USAGES.                        FCC0539   169
                                        *         ENTRY  A3 _ (RL1)                                              FCC0539   170
                                        *                A4 _ (RL2)                                              FCC0539   171
                                        *         EXIT   A3 AND A4 SAME AS ON ENTRY                              FCC0539   172
                                        *         SAVES  X6                                                      FCC0539   173
                                                                                                                 FCC0539   174
          4430  0400404430 +             CLC      ENTRY. *                                                       FCC0539   175
          4431  5110000031 +                      SA1    RL1         SET UP FOR CHKP2 CALL                       FCC0539   176
                          26033                   UX0    B3,X3                                                   FCC0539   177
                               10744              BX7    X4          OTHER OPERAND                               FCC0539   178
          4432  5160000345 +                      SA6    MCHTS+1                                                 FCC0539   179
                          20014                   LX0    59-47                                                   FCC0539   180
          4433  5170000344 +                      SA7    MCHTS       TEMP FOR RL2 INFO                           FCC0539   181
                          0330004437 +            MI     X0,CLC2     IF RL1 IS A CONST                           FCC0539   182
          4434  20714                    CLC1     LX7    59-47                                                   FCC0539   183
                     0327004430 +                 PL     X7,CLC      IF RL2 ALSO IS NOT A CONST, EXIT            FCC0539   184
                               26034              UX0    B3,X4                                                   FCC0539   185
          4435  43700                             MX7    0                                                       FCC0539   186
                     5170000344 +                 SA7    MCHTS                                                   FCC0539   187
          4436  5110000032 +                      SA1    RL2         SET UP FOR CHKP2 CALL                       FCC0539   188
                          22703                   LX7    X3          OTHER OPERAND                               FCC0539   189
          4437  6120000001               CLC2     SB2    T.INT                                                   FCC0539   190
                          6160000005              SB6    T.OCT                                                   FCC0539   191
          4440  6170000006                        SB7    T.HOL                                                   FCC0887     6
                          0432004446 +            EQ     B3,B2,CLC4  IF OPERAND IS INTEGER, CHECK VALUE          FCC0539   192
          4441  0436004444 +                      EQ     B3,B6,CLC3  IF OPERAND IS OCTAL,CHECK TYPE OF OPERATION FCC0539   193
                          0437004444 +            EQ     B3,B7,CLC3  IF OPERAND IS HOLL, CHECK TYPE OF OPERATION FCC0887     7
          4442  5150000344 +                      SA5    MCHTS                                                   FCC0539   194
                          0305004430 +            ZR     X5,CLC      IF BOTH OPERANDS CHECKED                    FCC0539   195
          4443  0400004434 +                      EQ     CLC1                                                    FCC0539   196
          4444  26047                    CLC3     UX0    B4,X7                                                   FCC0539   197
                     0442004446 +                 EQ     B4,B2,CLC4  IF INTEGER                                  FCC0539   198
          4445  0446004446 +                      EQ     B4,B6,CLC4  IF OCTAL                                    FCC0539   200
                          0547004430 +            NE     B4,B7,CLC   IF NOT HOLL                                 FCC0539   201
          4446  53110                    CLC4     SA1    X1                                                      FCC0539   202
                     14111                        BX1    -X1                                                     FCC0539   203
                          0100006211 +            RJ     NEWCON                                                  FCC0539   204
          4447  21660                             AX6    48                                                      FCC0539   205
                     0316004461 +                 NZ     X6,CLCE     IF LARGE CONST.                             FCC0539   206
          4450  5140000344 +                      SA4    MCHTS                                                   FCC0539   207
                          0304004456 +            ZR     X4,CLC5     IF BOTH OPERANDS PROCESSED                  FCC0539   208
          4451  26044                             UX0    B4,X4                                                   FCC0539   209
                     20414                        LX4    59-47                                                   FCC0539   210
                          0324004456 +            PL     X4,CLC5     IF NOT A CONST                              FCC0539   211
          4452  43600                             MX6    0                                                       FCC0539   212
                     6120000001                   SB2    T.INT                                                   FCC0539   213
                               54640              SA6    A4                                                      FCC0539   214
          4453  6160000005                        SB6    T.OCT                                                   FCC0539   215
                          5110000032 +            SA1    RL2                                                     FCC0539   216
          4454  0442004446 +                      EQ     B4,B2,CLC4  IF INTEGER                                  FCC0539   217
                          0446004446 +            EQ     B4,B6,CLC4  IF OCTAL                                    FCC0539   218
          4455  6170000006                        SB7    T.HOL                                                   FCC0887     8
                          0447004446 +            EQ     B4,B7,CLC4  IF HOLL                                     FCC0887     9
          4456  5110000031 +             CLC5     SA1    RL1         SET EXIT REGISTERS                          FCC0539   219
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   104
        CLC - CHECK FOR LARGE INTEGER CONSTANTS                       CLC 
  
                          5120000032 +            SA2    RL2                                                     FCC0539   220
          4457  53310                             SA3    X1                                                      FCC0539   221
                     5150000345 +                 SA5    MCHTS+1                                                 FCC0539   222
                               53420              SA4    X2                                                      FCC0539   223
          4460  10655                             BX6    X5                                                      FCC0539   224
                     0400004430 +                 EQ     CLC                                                     FCC0539   225
          4461  6160777550               CLCE     EERR   -ERMSG60    INT CONST .GE. 2**48                        FCC0539   226
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   105
        MOP 
  
                                        *         ARITHMETIC OPERATION IS POPPED FROM STACK. R-LIST IS TO BE     FCC0887    11
                                        *         OUTPUT.                                                        FCC0887    12
                                        *         ENTRY  (X6) = MACRO CODE                                       FCC0887    13
                                        *     MOP OUTPUTS R-LIST FOR THE POPPED OP                               ARITH    4918
          4462  5160000033 +             MOP      SA6    SMACD        SAVE MACRO CODE                            ARITH    4919
                          5110000031 +            SA1    RL1          GET LOC OF NEXT TO LAST UNUSED R-ENTRY     ARITH    4920
          4463  5120000032 +                      SA2    RL2                     LAST                            ARITH    4921
                          53310                   SA3    X1           GET 1ST WORD OF PENULT.ENTRY               ARITH    4922
                               53420              SA4    X2                            LAST                      ARITH    4923
          4464  26043                             UX0 B4,X3           IS EITHER TYPE LOGICAL                     ARITH    4924
                     26054                        UX0 B5,X4                                                      ARITH    4925
                          6164777777              SB6    B4-T.LOG                                                ARITH    4926
          4465  6175777777                        SB7    B5-T.LOG                                                ARITH    4927
                          0460004775 +            ZR     B6,MOP1      IF TYPE LOG.(ERR.)                         ARITH    4928
          4466  0470004775 +                      ZR     B7,MOP1      11      11                                 ARITH    4929
                          63660                   SB6    X6           SEE IF REL WITH CPX OPD                    ARITH    4930
          4467  6170000211                        SB7       HIRELM    HIGHEST REL MAC                            ARITH    4931
                          0776004476 +            GT  B6,B7,MOP2      IF NOT REL                                 ARITH    4932
          4470  6170000162                        SB7       LORELM    LOWEST REL MAC                             ARITH    4933
                          0767004476 +            LT  B6,B7,MOP2      IF NOT REL                                 ARITH    4934
          4471  6160000004                        SB6    T.CPLX                                                  ARITH    4935
                          0464004473 +            EQ  B6,B4,MOP2A     IF CPX                                     ARITH    4936
          4472  0565004476 +                      NE  B6,B5,MOP2      IF NOT CPX                                 ARITH    4937
          4473  6160000274              MOP2A     USASDM ERMSG43         A RELATIONAL OP HAS A COMPLEX OPERAND   ARITH    4938
          4474  5110000031 +                      SA1       RL1                                                  ARITH    4939
                          5120000032 +            SA2       RL2                                                  ARITH    4940
          4475  53310                             SA3    X1                                                      ARITH    4941
                     53420                        SA4    X2                                                      ARITH    4942
                          26043                   UX0 B4,X3                                                      ARITH    4943
                               26054              UX0 B5,X4                                                      ARITH    4944
          4476  67645                    MOP2     SB6    B4-B5        ARE OPD TYPES DIFFERENTY                   ARITH    4945
                     76740                        SX7    B4                                                      ARITH    4946
                          5170000323 +            SA7    TYPEWD       (SAVE TYPE IN CASE THE SAME)               ARITH    4947
          4477  0460004552 +                      ZR     B6,MOP5A          IF NO                                 ARITH    4948
                          6170000005              SB7    T.OCT                                                   ARITH    4949
          4500  0647004525 +                      GE  B4,B7,MOP28     IF RL1 IS OCT OR HOL                       ARITH    4950
                          0657004533 +            GE  B5,B7,MOP29     IF RL2 IS OCT OR HOL                       ARITH    4951
          4501  0760004504 +                      NG     B6,MOP6      YES.  IF RL1 POINTS TO LOWER TYPE.         ARITH    4952
                          43601                   MX6       1         SET REVERSE-OPDS FG                        ARITH    4953
          4502  5160000374 +                      SA6       ROFG                                                 ARITH    4954
                          73710                   SX7    X1           REVERSE RL1 AND RL2                        ARITH    4955
                               73620              SX6    X2                                                      ARITH    4956
          4503  5170000032 +                      SA7    RL2                                                     ARITH    4957
                          5160000031 +            SA6    RL1                                                     ARITH    4958
          4504  5130000031 +             MOP6     SA3       RL1                                                  ARITH    4959
                          5140000032 +            SA4       RL2                                                  ARITH    4960
          4505  53130                             SA1    X3                                                      ARITH    4961
                     53240                        SA2    X4                                                      ARITH    4962
                          26021                   UX0 B2,X1                                                      ARITH    4963
          4506  6130000002                        SB3    T.REAL                                                  ARITH    4964
                          26742                   UX7 B4,X2                                                      ARITH    4965
          4507  0423004511 +                      EQ  B2,B3,MOP6A     IF LOW TYPE REAL (IN WHICH CASE HIGH TYPE  ARITH    4966
                                        *      WOULD HAVE TO BE DBL OR CPX AT THIS POINT.)                       ARITH    4967
                          6160000275              USASDM ERMSG44         TYPE COMBINATION NOT USAS               ARITH    4968
          4511  5110000031 +             MOP6A    SA1       RL1       IS LOWER TYPE A CONST--                    ARITH    4969
                          5120000032 +            SA2       RL2                                                  ARITH    4970
          4512  10722                             BX7    X2                                                      ARITH    4971
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   106
        MOP 
  
                     53220                        SA2    X2                                                      ARITH    4972
                          5170000034 +            SA7       SVRL2     SAVE RL2                                   ARITH    4973
          4513  26032                             UX0 B3,X2                                                      ARITH    4974
                     76630                        SX6    B3                                                      ARITH    4975
                          5160000323 +            SA6       TYPEWD                                               ARITH    4976
          4514  53110                    MOP6B    SA1    X1                                                      ARITH    4977
                     26031                        UX0 B3,X1           GET TYPE IN B3                             ARITH    4978
                          20114                   LX1    12           CONSTANT FLG BIT                           ARITH    4979
          4515  0321005006 +                      PL     X1,MOP7      IF NO                                      ARITH    4980
                                        *     HERE IF MIXED MODE, RL1 (LOW TYPE) IS CONST, AND NEITHER RL1 NOR - ARITH    4981
                                        *       - RL2 IS OCT OR HOL.                                             ARITH    4982
                          20160                   LX1    -12             NO-OP RL1 ENTRY (LOW CONST)             ARITH    4983
          4516  0100006211 +                      RJ     NEWCON       ENTER WITH X1=1ST WD OF ARLIST ENTRY, A1=  ARITH    4984
                                        *                               ADR OF THAT ENTRY.  LEAVE WITH CONST     ARITH    4985
                                        *                               SET UP WITH VALUE OF CONST, OLD ENTRY    ARITH    4986
                                        *                               NO-OPED. LEAVE B3 AS BEFORE RJ NEWCON    ARITH    4987
          4517  6140000001                        SB4    T.INT                                                   ARITH    4988
                          0434004537 +            EQ  B3,B4,MOP10                                                ARITH    4989
          4520  0100005737 +             MOP14    RJ        DLDSU     CALL DOUBLE LOAD SET-UP ROUTINE (TP CMPX)  ARITH    4990
          4521  5150000323 +                      SA5       TYPEWD                                               ARITH    4991
                          0100005576 +            RJ        MACOUT    MACOUT OUTPUTS RLIST ENTRY MACRO           ARITH    4992
          4522  5110000032 +                      SA1       RL2       SET CONST BIT IN LOAD INSTR                ARITH    4993
                          43001                   MX0       1                                                    ARITH    4994
                               20060              LX0       48                                                   ARITH    4995
          4523  53210                             SA2    X1                                                      ARITH    4996
                     12602                        BX6    X0+X2                                                   ARITH    4997
                          54620                   SA6    A2                                                      ARITH    4998
          4524  0400005011 +                      ZR        MOP8                                                 ARITH    4999
                                        *                                                                        ARITH    5000
                                        *     MOP28 IF RL1 IS OCT OR HOL                                         ARITH    5001
          4525  0657004531 +             MOP28    GE  B5,B7,MOP30     IF RL2 IS ALSO OCT OR HOL                  ARITH    5002
          4526  6170000003               MOP31    SB7    T.DBL                                                   ARITH    5003
                          76650                   SX6    B5                                                      ARITH    5004
          4527  5160000323 +                      SA6       TYPEWD                                               ARITH    5005
                          0757004571 +            LT  B5,B7,MOP5      IF RL2 IS NOT DBL OR CMPX                  ARITH    5006
          4530  5110000031 +                      SA1    RL1                                                     ARITH    5007
                          0400004514 +            EQ     MOP6B                                                   ARITH    5008
                                        *                                                                        ARITH    5009
                                        *     MOP30 IF RL1 AND RL2 ARE OCT OR HOL CONSTS                         ARITH    5010
          4531  7160000001               MOP30    SX6    T.INT                                                   ARITH    5011
                          5160000323 +            SA6       TYPEWD                                               ARITH    5012
          4532  0400004571 +                      ZR        MOP5                                                 ARITH    5013
                                        *                                                                        ARITH    5014
                                        *     MOP29 IF RL2 IS OCT OR HOL BUT RL1 IS NOT.                         ARITH    5015
          4533  43601                    MOP29    MX6       1         SET REVERSE-OPDS FG                        ARITH    5016
                     5160000374 +                 SA6       ROFG                                                 ARITH    5017
                               10711              BX7    X1                                                      ARITH    5018
          4534  23602                             AX6    B0,X2                                                   ARITH    5019
                     5170000032 +                 SA7       RL2                                                  ARITH    5020
          4535  5160000031 +                      SA6       RL1                                                  ARITH    5021
                          66740                   SB7    B4           REVERSE B4 AND B5                          ARITH    5022
                               66450              SB4    B5                                                      ARITH    5023
          4536  66570                             SB5    B7                                                      ARITH    5024
                     0400004526 +                 ZR        MOP31                                                ARITH    5025
                                        *                                                                        ARITH    5026
                                        *                                                                        ARITH    5027
                                        *     MOP10 IF LOW TYPE IS INT CONST (HIGH ISNT OCT OR HOL)              ARITH    5028
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   107
        MOP 
  
          4537  5110000001 +             MOP10    SA1       CONST     CONVERT TO REAL                            ARITH    5029
                          5130000323 +            SA3       TYPEWD                                               ARITH    5030
          4540  27201                             PX2    X1                                                      ARITH    5031
                     24602                        NX6 B0,X2                                                      ARITH    5032
                          7203777775              SX0    X3-T.REAL                                               ARITH    5033
          4541  0300004543 +                      ZR     X0,MOP11     IF HIGH TYPE IS REAL                       ARITH    5034
                          5160000001 +            SA6       CONST     MUST BE DBL WD                             ARITH    5035
          4542  0400004520 +                      ZR        MOP14                                                ARITH    5036
                                        *                                                                        ARITH    5037
          4543  10166                    MOP11    BX1    X6                                                      ARITH    5038
                     6110000001                   SB1       1                                                    ARITH    5039
          4544  0306004550 +                      ZR     X6,MOP11A   IF CONST ZERO                               ARITH    5040
                          0100000000 X            RJ        CONVERT                                              ARITH    5041
          4545  5150000032                        SA5       EPOINT                                               ARITH    5042
                          6215000001              SB1    X5+1                                                    ARITH    5043
          4546  7160000002                        SX6    T.REAL            FOR CALL TO FETCH                     ARITH    5044
                          0100006165 +            RJ        CFETCH    CALL CON. FETCH ROUTINE                    ARITH    5045
          4547  0400005011 +                      ZR        MOP8                                                 ARITH    5046
          4550  5130000031 +             MOP11A   SA3    RL1         RESTORE OLD ENTRY OF MASK ZERO              ARITH    5047
                          53130                   SA1    X3                                                      ARITH    5048
                               14711              BX7    -X1                                                     ARITH    5049
          4551  53730                             SA7    X3                                                      ARITH    5050
                     0400004571 +                 EQ     MOP5                                                    ARITH    5051
                                                                                                                 ARITH    5052
                                        *         MOP5A IF OPERANDS SAME TYPE WHEN MOP ENTERED                   ARITH    5053
          4552  5110000037 +             MOP5A    SA1    CRNTOP            CURRENT OPERATOR                      ARITH    5054
                          26051                   UX0    B5,X1             UNPACK OPERATOR                       ARITH    5055
          4553  7125777754                        SX2    B5-EL.SLASH                                             ARITH    5056
                          0312004571 +            NZ     X2,MOP5           IF NOT A / OPERATOR                   ARITH    5057
          4554  20151                             LX1    59-18                                                   ARITH    5058
                     0321004571 +                 PL     X1,MOP5           GP BIT NOT SET                        ARITH    5059
          4555  5120000323 +                      SA2    TYPEWD            OPERAND TYPE                          ARITH    5060
                          21104                   AX1    4                                                       ARITH    5061
                               43070              MX0    60-L.TYP                                                ARITH    5062
          4556  15610                             BX6    -X0*X1            FETCH TYPE                            ARITH    5063
                     37026                        IX0    X2-X6                                                   ARITH    5064
                          0300004571 +            ZR     X0,MOP5           IF SAME TYPE                          ARITH    5065
          4557  0320004567 +                      PL     X0,MOP5B    IF OPERAND TYPE .GT. TYPE                   ARITH    5066
                          7256777772              SX5    X6-T.OCT                                                ARITH    5067
          4560  0325004571 +                      PL     X5,MOP5     IF TYPE IS OCTAL OR HOLL                    ARITH    5068
                          5160000323 +            SA6    TYPEWD            RESET                                 ARITH    5069
          4561  5150000031 +                      SA5    RL1                                                     ARITH    5070
                          63560                   SB5    X6                                                      ARITH    5071
          4562  0100006271 +                      RJ     MODCH             CONVERT TO HIGHER TYPE                ARITH    5072
          4563  5160000031 +                      SA6    RL1                                                     ARITH    5073
                          5110000323 +            SA1    TYPEWD                                                  ARITH    5074
          4564  5150000032 +                      SA5    RL2                                                     ARITH    5075
                          63510                   SB5    X1                                                      ARITH    5076
          4565  0100006271 +                      RJ     MODCH             CONVERT TO HIGHER TYPE                ARITH    5077
          4566  5160000032 +                      SA6    RL2                                                     ARITH    5078
                          0400004571 +            EQ     MOP5                                                    ARITH    5079
                                                                                                                 ARITH    5080
          4567  7252777772               MOP5B    SX5    X2-T.OCT                                                ARITH    5081
                          0335004571 +            MI     X5,MOP5     IF OPERAND NOT TYPE OCTAL OR HOLL           ARITH    5082
          4570  5160000323 +                      SA6    TYPEWD                                                  ARITH    5083
                                                                                                                 ARITH    5084
                                        *     MOP5 WHEN READY TO OUTPUT RLIST FOR POPPED OP                      ARITH    5085
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   108
        MOP 
  
          4571  5110000323 +             MOP5     SA1    TYPEWD       IS TYPE REALY                              ARITH    5086
                          7221777775              SX2    X1-T.REAL                                               ARITH    5087
          4572  0312004776 +                      NZ     X2,MOP17     IF NO                                      ARITH    5088
          4573  5120000000 X             MOPROUND SA2    ROPFLAG           IF NO ROUNDED ARITHMETIC IS TO BE     ARITH    5089
                          0302004604 +            ZR     X2,MOP12            PERFORMED GO TO 'MOP12'.            ARITH    5090
          4574  5130000474 +                      SA3    ROUNDTBL          SEE IF THE MACRO INVOLVED IS AMONG    ARITH    5091
                          73530                   SX5    X3                  THE POSSIBLE ROUNDED MACROS         ARITH    5092
                               26073              UX0    X3,B7                                                   ARITH    5093
          4575  5110000033 +                      SA1    SMACD                                                   ARITH    5094
  
          4576  37615                    MOPR1    IX6    X1-X5                                                   ARITH    5096
                     20336                        LX3    30                                                      ARITH    5097
                          0306004602 +            ZR     X6,MOPR2                                                ARITH    5098
          4577  5033000001                        SA3    A3+1                                                    ARITH    5099
                          0336004604 +            MI     X6,MOP12                                                ARITH    5100
          4600  73530                             SX5    X3                                                      ARITH    5101
                     26073                        UX0    X3,B7                                                   ARITH    5102
                          0313004576 +            NZ     X3,MOPR1                                                ARITH    5103
          4601  0400004604 +                      ZR     MOP12             IF NOT GO TO 'MOP12'                  ARITH    5104
                                        ***                                                                      ARITH    5105
                                        *         IF A POSSIBLY ROUNDED MACRO SEE IF THE OPERATOR WHICH CAUSED   ARITH    5106
                                        *         THE MACRO TO BE GENERATED IS SELECTED FOR ROUNDED OPERATIONS   ARITH    5107
                                        *                                                                        ARITH    5108
          4602  22672                    MOPR2    LX6    X2,B7                                                   ARITH    5109
                     0326004604 +                 PL     X6,MOP12                                                ARITH    5110
                               73630              SX6    X3                IF SO CHANGE THE MACRO CODE.          ARITH    5111
          4603  5160000033 +                      SA6    SMACD                                                   ARITH    5112
  
          4604  5110000033 +             MOP12    SA1    SMACD                                                   ARITH    5114
                          7221777565              SX2    X1-HIRELM-1  IS OP A RELATIONAL -                       ARITH    5115
          4605  0322004610 +                      PL     X2,MOP18     IF NO                                      ARITH    5116
                          7221777615              SX2    X1-LORELM    MAYBE                                      ARITH    5117
          4606  0332004610 +                      NG     X2,MOP18     IF NO                                      ARITH    5118
                          7160000000              SX6    T.LOG                                                   ARITH    5119
          4607  5160000323 +                      SA6    TYPEWD                                                  ARITH    5120
          4610  5150000323 +             MOP18   SA5        TYPEWD    OUTPUT MAC FOR BIN OP                      ARITH    5121
                          0100004621 +            RJ        INGEN                                                ARITH    5122
          4611  5110000011 +                      SA1    OP           IS OP=/:                                   ARITH    5123
                          26071                   UX0 B7,X1                                                      ARITH    5124
          4612  7127777754                        SX2    B7-EL.SLASH                                             ARITH    5125
                          0312004214 +            NZ     X2,CMPARE    IF NO                                      ARITH    5126
          4613  5130000032                        SA3       EPOINT                                               ARITH    5127
                          53230                   SA2    X3                                                      ARITH    5128
                               26342              UX3 B4,X2                                                      ARITH    5129
          4614  0400004166 +                      ZR        DIVD                                                 ARITH    5130
                                        *                                                                        ARITH    5131
                                        *                                                                        ARITH    5132
                                        *     MOP15 IF U- POPPED OUT                                             ARITH    5133
          4615  5110000032 +             MOP15    SA1       RL2       IS TYPE LOG-                               ARITH    5134
                          53210                   SA2    X1                                                      ARITH    5135
                               26022              UX0 B2,X2                                                      ARITH    5136
          4616  6132777777                        SB3    B2-T.LOG                                                ARITH    5137
                          0430004775 +            ZR     B3,MOP1      IF YES                                     ARITH    5138
          4617  0100005544 +                      RJ        UINGEN                                               ARITH    5139
          4620  0400004214 +                      ZR        CMPARE                                               ARITH    5140
                                        *                                                                        ARITH    5141
                                        *                                                                        ARITH    5142
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   109
        MOP 
  
                                        *     INGEN: COME WITH RL1,RL2,SMACD SET TO INDICATE TWO OPERANDS      - ARITH    5143
                                        ** OF SAME TYPE AND MACRO CODE.  OUTPUT MACRO INTR. AND UPDATE RL,S ETC  ARITH    5144
                                        *         X5=TYPE OF RESULT                                              ARITH    5145
          4621  00000000000000000000     INGEN    DATA   0                                                       ARITH    5146
          4622  5110000031 +                      SA1    RL1          GET RN NOS                                 ARITH    5147
                          5120000032 +            SA2    RL2                                                     ARITH    5148
          4623  53310                             SA3    X1                                                      ARITH    5149
                     26023                        UX0 B2,X3                                                      ARITH    5150
                          76620                   SX6    B2                                                      ARITH    5151
          4624  5160000322 +                      SA6       OPDTYP                                               ARITH    5152
                                        *  COMPILE TIME EVALUATION CODING RUNS FROM HERE TO INGEN2.              ARITH    5153
                          10655                   BX6    X5           SEE IF CONSTANT OPERATION                  ARITH    5154
          4625  5160000323 +                      SA6       TYPEWD    SAVE TYPE OF RESULT                        ARITH    5155
                          20014                   LX0       59-47                                                ARITH    5156
                               53420              SA4    X2                                                      ARITH    5157
          4626  0320004705 +                      PL     X0,INGEN2    IF RL1 NOT CONST                           ARITH    5158
                          20414                   LX4       59-47                                                ARITH    5159
          4627  0324004705 +                      PL     X4,INGEN2    IF RL2 NOT CONST                           ARITH    5160
                          5140000033 +            SA4       SMACD     IS MACRO CODE AMONG THOSE ACCEPTABLE-      ARITH    5161
          4630  6120000014                        SB2       BOPSTS    (BINARY OPS TBL SIZE)                      ARITH    5162
                          66300                   SB3    B0                                                      ARITH    5163
                               43060              MX0       60-12                                                ARITH    5164
          4631  5153004654 +             INGEN4   SA5    B3+BOPSTB                                               ARITH    5165
                          13645                   BX6    X4-X5                                                   ARITH    5166
          4632  6133000001                        SB3    B3+1                                                    ARITH    5167
                          15660                   BX6   -X0*X6                                                   ARITH    5168
          4633  0306004635 +                      ZR     X6,INGEN1    IF HAVE FOUND THE MACRO CODE IN BOPSTB     ARITH    5169
                          0732004631 +            LT  B3,B2,INGEN4    IF MORE BOPSTB ENTRIES TO LOOK AT          ARITH    5170
          4634  0400004705 +                      ZR        INGEN2    IF NOT ACCEPTABLE OP                       ARITH    5171
          4635  10755                    INGEN1   BX7    X5           SAVE BRANCH POINT                          ARITH    5172
                     5170004653 +                 SA7       BRPNT                                                ARITH    5173
          4636  5120000032 +                      SA2       RL2                                                  ARITH    5174
                          53120                   SA1    X2                                                      ARITH    5175
          4637  0100006211 +                      RJ        NEWCON    NO-OP RL2 AND RETURN WITH -                ARITH    5176
          4640  5160000002 +                      SA6       CONST+1   VALUE OF 2ND CONST.                        ARITH    5177
                          5120000031 +            SA2       RL1                                                  ARITH    5178
          4641  53120                             SA1    X2                                                      ARITH    5179
                     0321004642 +                 PL    X1,INGEN3     IF NOT NO-OPED (INCASE RL1=RL2 - SUBP5)    ARITH    5180
                               14111              BX1   -X1                                                      ARITH    5181
          4642  0100006211 +             INGEN3   RJ        NEWCON    RETURN WITH VALUE OF 1ST CONST IN CONST    ARITH    5182
          4643  5120000002 +                      SA2       CONST+1                                              ARITH    5183
                          10166                   BX1    X6                                                      ARITH    5184
          4644  5140000323 +                      SA4       TYPEWD                                               ARITH    5185
                          6224777775              SB2    X4-T.REAL                                               ARITH    5186
          4645  0520004650 +                      NZ     B2,INGEN6    IF OPERATION NOT REAL                      ARITH    5187
                          0351004670 +            OR     X1,INGEN7    IF OPD OUT OF RANGE                        ARITH    5188
          4646  0352004670 +                      OR     X2,INGEN7                                               ARITH    5189
                          0371004670 +            ID     X1,INGEN7                                               ARITH    5190
          4647  0372004670 +                      ID     X2,INGEN7                                               ARITH    5191
          4650  5130000374 +             INGEN6   SA3       ROFG                                                 ARITH    5192
                          0323004653 +            PL     X3,BRPNT     IF OPDS WERENT REVERSED                    ARITH    5193
          4651  10122                             BX1    X2                                                      ARITH    5194
                     5120000001 +                 SA2       CONST                                                ARITH    5195
                               43600              MX6       0                                                    ARITH    5196
          4652  5160000374 +                      SA6       ROFG      CLEAR FLAG                                 ARITH    5197
                          0400004653 +            ZR        BRPNT                                                ARITH    5198
                                        *                                                                        ARITH    5199
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   110
        MOP 
  
                                        *                                                                        ARITH    5200
          4653                     1     BRPNT    BSS       1         HOLDS ENTRY SELECTED FROM BOPSTB           ARITH    5201
                                        *                                                                        ARITH    5202
                                        *                                                                        ARITH    5203
                                        ***                                                                      ARITH    5204
                                        *         B O P S T B -- BINARY OPERATIONS WHICH MAY BE PERFORMED AT     ARITH    5205
                                        *         COMPILE TIME.                                                  ARITH    5206
                                        *                                                                        ARITH    5207
                                        *                                                                        ARITH    5208
          4654  14222                    BOPSTB   BX2    -X2         - REAL                                      ARITH    5209
                     0400004671 +                 EQ     INGN01                                                  ARITH    5210
                               00212     -        VFD    15/MAC+27                                               ARITH    5211
  
          4655  37612                             IX6    X1-X2       - INTEGER                                   ARITH    5213
                     0400004677 +                 EQ     INGEN5                                                  ARITH    5214
                               00213     -        VFD    15/MAC+28                                               ARITH    5215
  
          4656  0400004671 +                      EQ     INGN01      + REAL                                      ARITH    5217
                          0000000216     -        VFD    30/MAC+31                                               ARITH    5218
  
          4657  36612                             IX6    X1+X2       + INTEGER                                   ARITH    5220
                     0400004677 +                 EQ     INGEN5                                                  ARITH    5221
                               00217     -        VFD    15/MAC+32                                               ARITH    5222
  
          4660  40612                             FX6    X1*X2       * REAL                                      ARITH    5224
                     0400004677 +                 EQ     INGEN5                                                  ARITH    5225
                               00222     -        VFD    15/MAC+35                                               ARITH    5226
  
          4661  0400004672 +                      EQ     INGN02      * INTEGER                                   ARITH    5228
                          0000000223     -        VFD    30/MAC+36                                               ARITH    5229
  
          4662  44612                             FX6    X1/X2       / REAL                                      ARITH    5231
                     0400004677 +                 EQ     INGEN5                                                  ARITH    5232
                               00226     -        VFD    15/MAC+39                                               ARITH    5233
  
          4663  0400004674 +                      EQ     INGN03      / INTEGER                                   ARITH    5235
                          0000000227     -        VFD    30/MAC+40                                               ARITH    5236
  
          4664  14222                             BX2    -X2         ROUNDED- REAL                               ARITH    5238
                     0400004676 +                 EQ     INGN04                                                  ARITH    5239
                               00244     -        VFD    15/RSUB                                                 ARITH    5240
  
          4665  0400004676 +                      EQ     INGN04      ROUNDED+ REAL                               ARITH    5242
                          0000000246     -        VFD    30/RADD                                                 ARITH    5243
  
          4666  41612                             RX6    X1*X2       ROUNDED* REAL                               ARITH    5245
                     0400004677 +                 EQ     INGEN5                                                  ARITH    5246
                               00250     -        VFD    15/RMLT                                                 ARITH    5247
  
          4667  45612                             RX6    X1/X2       ROUNDED/ REAL                               ARITH    5249
                     0400004677 +                 EQ     INGEN5                                                  ARITH    5250
                               00252     -        VFD    15/RDIV                                                 ARITH    5251
  
                                  14     BOPSTS   EQU    *-BOPSTB                                                ARITH    5253
  
  
          4670  6160000314               INGEN7   EERR   ERMSG50     CONSTANT OUT-OF-RANGE OR INDEFINITE         ARITH    5255
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   111
        MOP 
  
          4671  30312                    INGN01   FX3    X1+X2       + OR - REAL                                 ARITH    5257
                     24603                        NX6    X3                                                      ARITH    5258
                          0400004677 +            ZR     INGEN5                                                  ARITH    5259
  
          4672  27202                    INGN02   PX2    X2          * INTEGER                                   ARITH    5261
                     27101                        PX1    X1                                                      ARITH    5262
                          42312                   DX3    X1*X2                                                   ARITH    5263
                               26603              UX6    X3                                                      ARITH    5264
          4673  0400004677 +                      ZR     INGEN5                                                  ARITH    5265
  
          4674  27202                    INGN03   PX2    X2          / INTEGER                                   ARITH    5267
                     27101                        PX1    X1                                                      ARITH    5268
                          24202                   NX2    X2                                                      ARITH    5269
                               44112              FX1    X1/X2                                                   ARITH    5270
          4675  26221                             UX2    X1,B2                                                   ARITH    5271
                     22622                        LX6    X2,B2                                                   ARITH    5272
                          0400004677 +            ZR     INGEN5                                                  ARITH    5273
  
          4676  34312                    INGN04   RX3    X1+X2       ROUNDED + OR - REAL                         ARITH    5275
                     24603                        NX6    X3                                                      ARITH    5276
  
                                        *                                                                        ARITH    5278
                                        *                                                                        ARITH    5279
                                        *    (ALSO FALLS THRU FROM INGN04)                                       ARITH    5280
          4677  5110000323 +             INGEN5   SA1    TYPEWD                                                  ARITH    5281
                          6221777775              SB2    X1-T.REAL                                               ARITH    5282
          4700  0520004702 +                      NZ     B2,INGEN5A        IF NOT TYPE REAL GO TO 'INGEN5A'      ARITH    5283
                          0356004704 +            OR     X6,INGEN5B        OTHERWISE CHECK FOR OUT-OF-RANGE OR   ARITH    5284
          4701  0376004704 +                      ID     X6,INGEN5B        INDEFINITE VALUES.                    ARITH    5285
          4702  0100006432 +             INGEN5A  RJ     OPNCON            GO OTUPUT A NEW CONSTANT (RL-S WILL   ARITH    5286
                                        *                                  BE RESET)                             ARITH    5287
          4703  0400004621 +                      ZR        INGEN                                                ARITH    5288
          4704  6160000106               INGEN5B  EERR      ERMSG51                                              ARITH    5289
                                        *    END OF COMPILE TIME EVALUATION CODING.                              ARITH    5290
                                        *                                                                        ARITH    5291
                                        *                                                                        ARITH    5292
          4705  5150000033 +             INGEN2   SA5    SMACD                                                   ARITH    5293
                          6275777550              SB7    X5-DIV.INT                                              ARITH    5294
          4706  0570004713 +                      NZ     B7,INGEN2B        IF NOT AN INTEGER DIVIDE              ARITH    5295
                          5110000374 +            SA1    ROFG              *** TEMPORARY ***                     ARITH    5296
          4707  0311004713 +                      NZ     X1,INGEN2B        IF OPERANDS REVERSED                  ARITH    5297
                          5110000032 +            SA1    RL2                                                     ARITH    5298
          4710  0100006177 +                      RJ     CHKP2             SEE IF RL2 = 2**N                     ARITH    5299
          4711  0317004746 +                      NZ     X7,INGEN2Z        IF NOT                                ARITH    5300
                          5110000031 +            SA1    RL1                                                     ARITH    5301
          4712  5130000531 +                      SA3    MD.CSFT+1         CHANGE TO CONSTANT RIGHT SHIFT        ARITH    5302
                          0400004721 +            EQ     INGEN2D           GO OUTPUT SHIFT MACRO                 ARITH    5303
                                                                                                                 ARITH    5304
          4713  6275777554               INGEN2B  SB7    X5-MPY.INT                                              ARITH    5305
                          0570004746 +            NZ     B7,INGEN2Z        IF NOT AN INTEGER MULTIPLY            ARITH    5306
          4714  5110000032 +                      SA1    RL2                                                     ARITH    5307
                          0100006177 +            RJ     CHKP2             SEE IF RL2 A POWER OF2                ARITH    5308
          4715  5110000031 +                      SA1    RL1                                                     ARITH    5309
                          0307004720 +            ZR     X7,INGEN2C        IF YES                                ARITH    5310
          4716  0100006177 +                      RJ     CHKP2             TRY RL1                               ARITH    5311
          4717  0317004746 +                      NZ     X7,INGEN2Z        IF NOT                                ARITH    5312
                          5110000032 +            SA1    RL2                                                     ARITH    5313
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   112
        MOP 
  
          4720  5130000530 +             INGEN2C  SA3    MD.CSFT           CONSTANT LEFT SHIFT                   ARITH    5314
                                                                                                                 ARITH    5315
                                        *         OUTPUT SHIFT MACRO                                             ARITH    5316
                                                                                                                 ARITH    5317
          4721  53210                    INGEN2D  SA2    X1                                                      ARITH    5318
                     0316004732 +                 NZ     X6,INGEN2D1       IF SHIFT COUNT " 0                    ARITH    5319
                                                                                                                 FCC0412     7
                                        *         OUTPUT XMIT FOR MULTIPLY BY 1 SO THAT ST. WILL BE GENER-       FCC1091     4
                                        *         ATED FOR ARGUMENT.                                             FCC1091     5
                                                                                                                 FCC0412    20
                               43001              MX0    1                                                       FCC0412    21
          4722  5241000002                        SA4    X1+2                                                    FCC0412    22
                          20056                   LX0    1+45                                                    FCC0412    23
                               12702              BX7    X0+X2                                                   FCC0412    24
          4723  5130000430 +                      SA3    XMIT                                                    FCC0412    25
                          54720                   SA7    A2          SET USED BIT                                FCC0412    26
                               43054              MX0    -16                                                     FCC0412    27
          4724  15640                             BX6    -X0*X4                                                  FCC0412    28
                     5120000064                   SA2    NRLN                                                    FCC0412    29
          4725  5160000014 +                      SA6    PARAMS+1                                                FCC0412    30
                          10722                   BX7    X2                                                      FCC0412    31
          4726  7262000001                        SX6    X2+1                                                    FCC0412    32
                          5170000013 +            SA7    PARAMS                                                  FCC0412    33
          4727  54620                             SA6    A2          NRLN = NRLN + 1                             FCC0412    34
                     7150000001                   SX5    T.INT                                                   FCC0412    35
          4730  0100005576 +                      RJ     MACOUT                                                  FCC0412    36
          4731  0400004743 +                      EQ     INGEN2D2                                                ARITH    5325
                                                                                                                 ARITH    5326
          4732  43001                    INGEN2D1 MX0    1                                                       ARITH    5327
                     5241000002                   SA4    X1+2              GET RI OF RLI                         ARITH    5328
                               20056              LX0    1+45                                                    ARITH    5329
          4733  12702                             BX7    X0+X2             SET USED BIT                          ARITH    5330
                     54720                        SA7    A2                                                      ARITH    5331
                          43054                   MX0    60-16                                                   ARITH    5332
          4734  5160000015 +                      SA6    PARAMS+2          STORE SHIFT COUNT                     ARITH    5333
                          15640                   BX6    -X0*X4                                                  ARITH    5334
          4735  5120000064                        SA2    NRLN                                                    ARITH    5335
                          5160000013 +            SA6    PARAMS                                                  ARITH    5336
          4736  10722                             BX7    X2                                                      ARITH    5337
                     7262000001                   SX6    X2+1              NRLN = NRLN+1                         ARITH    5338
          4737  5170000014 +                      SA7    PARAMS+1          STORE R NUMBER OF RESULT              ARITH    5339
                          54620                   SA6    A2                                                      ARITH    5340
          4740  7150000001                        SX5    T.INT                                                   ARITH    5341
                          0100005576 +            RJ     MACOUT            OUTPUT MACRO                          ARITH    5342
          4741  5110001061 +                      SA1    LASTR                                                   ARITH    5343
                          43001                   MX0    1                                                       ARITH    5344
                               53210              SA2    X1                                                      ARITH    5345
          4742  20055                             LX0    1+44        SET XMT BIT IN HEADER WORD                  ARITH    5346
                     12602                        BX6    X0+X2                                                   ARITH    5347
                          54620                   SA6    A2                                                      ARITH    5348
                                                                                                                 FCC1091     6
          4743  13777                    INGEN2D2 BX7    X7-X7                                                   FCC1091     7
                     5170000374 +                 SA7    ROFG              CLEAR REVERSE OPERAND FLAG            ARITH    5350
          4744  0100005517 +                      RJ     FNDOP                                                   FCC1091     8
          4745  5160000031 +                      SA6    RL1                                                     ARITH    5352
                          0400004621 +            EQ     INGEN                                                   ARITH    5353
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   113
        MOP 
  
          4746  5110000031 +             INGEN2Z  SA1    RL1                                                     ARITH    5355
                          5120000032 +            SA2       RL2                                                  ARITH    5356
          4747  53310                             SA3    X1                                                      ARITH    5357
                     43001                        MX0       1                                                    ARITH    5358
                          53420                   SA4    X2                                                      ARITH    5359
                               20056              LX0       46        TURN ON USED BIT IN OPD                    ARITH    5360
          4750  12630                             BX6    X3+X0                                                   ARITH    5361
                     12740                        BX7      X4+X0           SET USED BIT FOR RL2                  ARITH    5362
                          54630                   SA6    A3                                                      ARITH    5363
                               54740              SA7    A4                                                      ARITH    5364
          4751  5231000002                        SA3    X1+2         GET RN,S OF OPDS                           ARITH    5365
                          43054                   MX0    60-16                                                   ARITH    5366
          4752  5242000002                        SA4    X2+2                                                    ARITH    5367
                          15630                   BX6    -X0*X3                                                  ARITH    5368
                               15740              BX7    -X0*X4                                                  ARITH    5369
          4753  5110000374 +                      SA1    ROFG                                                    ARITH    5370
                          0321004756 +            PL     X1,MOP22     IF OPDS WERENT REVERSED                    ARITH    5371
          4754  43700                             MX7    0                                                       ARITH    5372
                     15640                        BX6   -X0*X4                                                   ARITH    5373
                          5170000374 +            SA7    ROFG         RESET ROFG                                 ARITH    5374
          4755  15730                             BX7   -X0*X3                                                   ARITH    5375
          4756  5160000014 +             MOP22    SA6    PARAMS+1     RJ                                         ARITH    5376
                          5170000015 +            SA7    PARAMS+2     RK                                         ARITH    5377
          4757  7266000001                        SX6    X6+1         IN CASE DBL LNGTH                          ARITH    5378
                          5160000017 +            SA6       PARAMS+4                                             ARITH    5379
          4760  7277000001                        SX7    X7+1                                                    ARITH    5380
                          5170000020 +            SA7       PARAMS+5                                             ARITH    5381
          4761  5120000064                        SA2       NARN                                                 ARITH    5382
                          10622                   BX6    X2                                                      ARITH    5383
          4762  5160000013 +                      SA6       PARAMS                                               ARITH    5384
                          7272000001              SX7    X2+1                                                    ARITH    5385
          4763  5170000016 +                      SA7       PARAMS+3                                             ARITH    5386
                          5110000322 +            SA1       OPDTYP                                               ARITH    5387
          4764  5130001064 +                      SA3       SLBMD                                                ARITH    5388
                          6221777774              SB2    X1-T.DBL                                                ARITH    5389
          4765  0420004767 +                      ZR     B2,MOP25     IF DBL                                     ARITH    5390
                          6221777773              SB2    X1-T.CPLX                                               ARITH    5391
          4766  0520004770 +                      NZ     B2,MOP26     IF SNGL                                    ARITH    5392
          4767  7277000001               MOP25    SX7    X7+1                                                    ARITH    5393
                          5130001065 +            SA3       DLBMD                                                ARITH    5394
          4770  5170000064               MOP26    SA7       NARN                                                 ARITH    5395
                          5110000033 +            SA1    SMACD                                                   ARITH    5396
          4771  63210                             SB2    X1                                                      ARITH    5397
                     27323                        PX3    B2,X3        X3 NOW=ARITH,S MACRO DESCRIPTOR WORD       ARITH    5398
                          5150000323 +            SA5       TYPEWD                                               ARITH    5399
          4772  0100005576 +                      RJ        MACOUT                                               ARITH    5400
          4773  0100005517 +                      RJ        FNDOP     FIND UNUSED OP PRECEDING RL2. RETURN WITH  ARITH    5401
          4774  5160000031 +                      SA6    RL1            ADR IN X6                                ARITH    5402
                          0400004621 +            ZR        INGEN                                                ARITH    5403
                                        *     END OF INGEN                                                       ARITH    5404
                                        *                                                                        ARITH    5405
                                        *                                                                        ARITH    5406
                                        *     MOP1 IF LOGICAL OPERANDS AND NON-LOG.OPERATOR                      ARITH    5407
          4775  6160000220               MOP1     EERR      ERMSG10                                              ARITH    5408
                                        *                                                                        ARITH    5409
                                        *     MOP17 IF OPDS NOT TYPE REAL                                        ARITH    5410
          4776  7221777776               MOP17    SX2    X1-T.INT                                                ARITH    5411
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   114
        MOP 
  
                          5130000033 +            SA3       SMACD                                                ARITH    5412
          4777  7263000001                        SX6    X3+1                                                    ARITH    5413
                          0302005005 +            ZR    X2,MOP24      IF TINT                                    ARITH    5414
          5000  7221777772                        SX2    X1-T.OCT                                                ARITH    5415
                          0322004531 +            PL     X2,MOP30     IF BOTH OPDS ARE OCT OR HOL                ARITH    5416
          5001  7221777774                        SX2    X1-T.DBL                                                ARITH    5417
                          7266000001              SX6    X6+1                                                    ARITH    5418
          5002  0302005005 +                      ZR     X2,MOP24     IF TDBL                                    ARITH    5419
                          7266000001              SX6    X6+1         HERE IF TYPE CMPX                          ARITH    5420
          5003  5160000033 +                      SA6    SMACD                                                   ARITH    5421
                          10166                   BX1    X6                                                      ARITH    5422
          5004  0400004573 +                      ZR     MOPROUND          CHECK FOR POSSIBLE COMPLEX ROUND      ARITH    5423
          5005  5160000033 +             MOP24    SA6       SMACD     SAVE NEW MACRO CODE                        ARITH    5424
                          0400004604 +            ZR        MOP12                                                ARITH    5425
                                        *                                                                        ARITH    5426
                                        *     MOP7 IF MIXED MODE OPERANDS, LOWER TYPE NOT CONST.                 ARITH    5427
          5006  5110000323 +             MOP7     SA1       TYPEWD                                               ARITH    5428
                          5150000031 +            SA5       RL1       X5=ADR OF R-ENTRY TO BE CONVERTED          ARITH    5429
          5007  63510                             SB5    X1           B5=TYPE TO CONVERT TO                      ARITH    5430
                     0100006271 +                 RJ        MODCH                                                ARITH    5431
          5010  5160000031 +                      SA6       RL1                                                  ARITH    5432
                          0400004571 +            ZR        MOP5                                                 ARITH    5433
                                        *                                                                        ARITH    5434
                                        *                                                                        ARITH    5435
          5011  5110000374 +             MOP8     SA1       ROFG      RL1 AND RL2 HAVE IN EFFECT BEEN REVERSED   ARITH    5436
                          14611                   BX6   -X1           MIGHT HAVE PREVIOUSLY BEEN REVERSED        ARITH    5437
          5012  5160000374 +                      SA6       ROFG                                                 ARITH    5438
                          0400004571 +            ZR        MOP5                                                 ARITH    5439
                                        *                                                                        ARITH    5440
                                        *                                                                        ARITH    5441
                                        *     TM3 FROM CMPARE IF H(OP)=H(OM).                                    ARITH    5442
          5013  6153777745               TM3      SB5    B3-UMOP      IS OM U-Y                                  ARITH    5443
                          6176777775              SB7    B6-2                                                    ARITH    5444
          5014  0450005043 +                      ZR     B5,TM3A      IF YES                                     ARITH    5445
                          0770004225 +            NG     B7,POPOP     IF HIERARCHY IS L2                         ARITH    5446
          5015  20351                             LX3    59-18        PUT B18 OF OP IN B0                        ARITH    5447
                     0333005023 +                 NG     X3,TM3B      IF GP FLG BIT ON                           ARITH    5448
          5016  6154777755                        SB5    B4-EL.STAR                                              ARITH    5449
                          0450005020 +            ZR     B5,TM3C      IF *                                       ARITH    5450
          5017  6154777742                        SB5    B4-MLTSOP                                               ARITH    5451
                          0550004225 +            NZ     B5,POPOP     IF NO                                      ARITH    5452
          5020  6153777754               TM3C     SB5    B3-EL.SLASH                                             ARITH    5453
                          0450004225 +            ZR       B5,POPOP  IF INTEGER DIVIDE                           ARITH    5454
          5021  5110001060 +                      SA1      FF                                                    ARITH    5455
                          0331004225 +            NG     X1,POPOP     IF YES                                     ARITH    5456
          5022  0400004271 +                      ZR        ADDOP     NO                                         ARITH    5457
                                        *     TM3B ENTERED WITH B3=OM OP CODE                                    ARITH    5458
          5023  6153777744               TM3B     SB5    B3-RMINOC                                               ARITH    5459
                          0450004225 +            ZR     B5,POPOP      POP OPERATOR IF OP IS REVERSE MINUS OR    ARITH    5460
          5024  6153777743                        SB5    B3-RDVDOC         REVERSE DIVIDE.                       ARITH    5461
                          0450004225 +            ZR     B5,POPOP                                                ARITH    5462
          5025  5110000032 +                      SA1    RL2           TURN ON GPTU BIT IN LAST RL.              ARITH    5463
                          76630                   SX6    B3                                                      ARITH    5464
                               53210              SA2    X1                                                      ARITH    5465
          5026  43301                             MX3    1                                                       ARITH    5466
                     5160000302 +                 SA6       TS1                                                  ARITH    5467
                               20357              LX3    47                                                      ARITH    5468
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   115
        MOP 
  
          5027  12623                             BX6    X2+X3                                                   ARITH    5469
                     54620                        SA6    A2                                                      ARITH    5470
                          5110000031 +            SA1       RL1       RESET RLS                                  ARITH    5471
          5030  10711                             BX7    X1                                                      ARITH    5472
                     5170000032 +                 SA7       RL2                                                  ARITH    5473
          5031  5110000011 +                      SA1       OP        SET CGP BIT IN OP (CONFIRMED GP BIT)       ARITH    5474
                          43001                   MX0       1                                                    ARITH    5475
                               20027              LX0       23                                                   ARITH    5476
          5032  12601                             BX6    X0+X1                                                   ARITH    5477
                     5160000011 +                 SA6       OP                                                   ARITH    5478
          5033  0100005517 +                      RJ        FNDOP                                                ARITH    5479
          5034  5110000302 +                      SA1       TS1                                                  ARITH    5480
                          5160000031 +            SA6       RL1                                                  ARITH    5481
          5035  63310                             SB3    X1                                                      ARITH    5482
                     6153777757                   SB5    B3-EL.MINUS       IS OM = -Y                            ARITH    5483
          5036  0550005041 +                      NZ     B5,TM3D      IF NO                                      ARITH    5484
                          6120000033              SB2       RMINOC                                               ARITH    5485
          5037  5110000377 +             TM3E     SA1    OSPTR                                                   ARITH    5486
                          5221007621 +            SA2    X1+OPSTAK                                               ARITH    5487
          5040  27622                             PX6    B2,X2                                                   ARITH    5488
                     54620                        SA6    A2                                                      ARITH    5489
                          0400004271 +            ZR        ADDOP                                                ARITH    5490
          5041  6153777754               TM3D     SB5    B3-EL.SLASH       IS ON = /Y                            ARITH    5491
                          0550004271 +            NZ     B5,ADDOP     IF NO                                      ARITH    5492
          5042  6120000034                        SB2       RDVDOC                                               ARITH    5493
                          0400005037 +            ZR        TM3E                                                 ARITH    5494
                                        *                                                                        ARITH    5495
                                        *     TM3A IF OM=U- AND H(OP) =H(OM)                                     ARITH    5496
          5043  6174777756               TM3A     SB7    B4-EL.PLUS                                              ARITH    5497
                          0470005046 +            EQ     B7,B0,TM3A2       PLUS                                  ARITH    5498
          5044  5110000377 +                      SA1    OSPTR                                                   ARITH    5499
                          63210                   SB2    X1                                                      ARITH    5500
          5045  5122007621 +                      SA2    B2+OPSTAK                                               ARITH    5501
                          0400004225 +            EQ    POPOP                                                    ARITH    5502
          5046                          TM3A2     BSS    0                                                       ARITH    5503
          5046  5110000377 +                      SA1    OSPTR             REMOVE U- FROM  OS                    ARITH    5504
                          5120000451 +            SA2    RMIOP        PUT R- IN OP                               ARITH    5505
          5047  7261777776                        SX6    X1-1                                                    ARITH    5506
                          10722                   BX7    X2                                                      ARITH    5507
          5050  5160000377 +                      SA6    OSPTR                                                   ARITH    5508
                          5170000011 +            SA7    OP                                                      ARITH    5509
          5051  0400004271 +                      EQ     ADDOP                                                   ARITH    5510
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   116
        ROP - RELATIONAL OP POPPED FROM STACK 
  
                                        *         ROP - RELATIONAL OP POPPED                                     ARITH    5512
                                                                                                                 ARITH    5513
          5052  5150000011 +             ROP      SA5    OP                OP THAT POPPED THE RELATIONAL         ARITH    5514
                          6170000012              SB7    EL.LE                                                   ARITH    5515
          5053  67337                             SB3    B3-B7             CHANGE ELIST CODE TO ORDINAL          ARITH    5516
                     26065                        UX0    B6,X5       B6 = ELIST CODE(OP)                         ARITH    5517
                          7275777772              SX7    X5-5                                                    ARITH    5518
          5054  0317005056 +                      NZ     X7,ROP1           IF NOT AN RELATIONAL OP               ARITH    5519
                          6160000240              EERR   ERMSG26           SYNTAX ERROR                          ARITH    5520
                                                                                                                 ARITH    5521
                                        *         ISSUE A DIAGNOSTIC IF EITHER OPERAND IS TYPE LOGICAL.          ARITH    5522
                                                                                                                 ARITH    5523
          5056  26343                    ROP1     UX3    B4,X3             B4 = MODE(RL1)                        ARITH    5524
                     6120000000                   SB2    T.LOG                                                   ARITH    5525
                               26474              UX4    B7,X4             B7 = MODE(RL2)                        ARITH    5526
          5057  0424004775 +                      EQ     B2,B4,MOP1  IF MODE(RL1) = LOGICAL                      ARITH    5527
                          0427004775 +            EQ     B2,B7,MOP1  IF MODE(RL2) = LOGICAL                      ARITH    5528
                                                                                                                 ARITH    5529
                                        *         ISSUE AN ANSI DIAGNOSTIC IF EITHER OPERAND IS COMPLEX.         ARITH    5530
                                                                                                                 ARITH    5531
          5060  6120000004                        SB2    T.CPLX                                                  ARITH    5532
                          0442005062 +            EQ     B4,B2,ROP2        IF TYPE COMPLEX                       ARITH    5533
          5061  0572005066 +                      NE     B7,B2,ROP3        IF NOT                                ARITH    5534
                                                                                                                 ARITH    5535
          5062  27636                    ROP2     PX6    B3,X6             SAVE OP CODE AND MACRO NUMBER         ARITH    5536
                     5160000033 +                 SA6    SMACD                                                   ARITH    5537
          5063  6160000274                        USASDM ERMSG43           ISSUE DIAGNOSTIC                      ARITH    5538
          5064  5110000033 +                      SA1    SMACD                                                   ARITH    5539
                          26631                   UX6    B3,X1             RESTORE REGISTERS                     ARITH    5540
          5065  5150000011 +                      SA5    OP                                                      ARITH    5541
                          26065                   UX0    B6,X5                                                   ARITH    5542
                                                                                                                 ARITH    5543
                                        *         SEE IF THIS IS THE ONLY RELATIONAL EXPR IN A IF STMT           ARITH    5544
                                        *         AND IF SO, OPTIMIZE IT BY CHANGING THE RELATIONAL INTO         ARITH    5545
                                        *         A SUBTRACT.                                                    ARITH    5546
                                                                                                                 ARITH    5547
          5066  6170000002               ROP3     SB7    EL.)                                                    ARITH    5548
                          0567004462 +            NE     B6,B7,MOP         IF RELATIONAL OP NOT POPPED BY A )    ARITH    5549
          5067  5150000377 +                      SA5    OSPTR                                                   ARITH    5550
                          7275777775              SX7    X5-2                                                    ARITH    5551
          5070  0317004462 +                      NZ     X7,MOP            IF OPSTACK CONATINS MORE THAN A )     ARITH    5552
                          5150001132 +            SA5    TRCFLG                                                  ARITH    5553
          5071  0325004462 +                      PL     X5,MOP      IF DEBUG TRACING ON BYPASS OPTIMIZATION     ARITH    5554
                          5150000024              SA5    TYPE                                                    ARITH    5555
          5072  7275777757                        SX7    X5-16                                                   ARITH    5556
                          7255777756              SX5    X5-17                                                   ARITH    5557
          5073  0307005074 +                      ZR     X7,ROP4           IF AN IF STMT                         ARITH    5558
                          0315004462 +            NZ     X5,MOP            IF NOT AN IF STMT                     ARITH    5559
                                                                                                                 ARITH    5560
                                        *         SET IFRELOP TO  1   2   3   4   5   6                          ARITH    5561
                                        *                         GT  EQ  GE  LT  NE  LE                         ARITH    5562
                                                                                                                 ARITH    5563
          5074  66433                    ROP4     SB4    B3+B3                                                   ARITH    5564
                     7150251346                   SX5    251346B           CONVERSION TABLE                      ARITH    5565
                               43071              MX0    60-3                                                    ARITH    5566
          5075  66434                             SB4    B3+B4             3*ORD                                 ARITH    5567
                     23545                        AX5    B4,X5                                                   ARITH    5568
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   117
        ROP - RELATIONAL OP POPPED FROM STACK 
  
                          15750                   BX7    -X0*X5                                                  ARITH    5569
          5076  5170007072 +                      SA7    IFRELOP                                                 ARITH    5570
                                                                                                                 ARITH    5571
                                        *         CHANGE GT TO LT AND LE TO GE BY SWAPPING OPERANDS              ARITH    5572
                                        *         THIS IS DONE BECAUSE LT AND GE ARE MACHINE INSTRUCTIONS        ARITH    5573
                                                                                                                 ARITH    5574
                          7257777776              SX5    X7-1                                                    ARITH    5575
          5077  6170000004                        SB7    4                                                       ARITH    5576
                          0305005102 +            ZR     X5,ROP5           CHANGE GT TO LT                       ARITH    5577
          5100  7257777771                        SX5    X7-6                                                    ARITH    5578
                          0315005105 +            NZ     X5,ROP6           CHANGE LE TO GE                       ARITH    5579
          5101  6170000003                        SB7    3                                                       ARITH    5580
          5102  5110000031 +             ROP5     SA1    RL1                                                     ARITH    5581
                          5120000032 +            SA2    RL2                                                     ARITH    5582
          5103  76770                             SX7    B7                                                      ARITH    5583
                     54770                        SA7    A7                UPDATE IFRELOP                        ARITH    5584
                          10622                   BX6    X2                                                      ARITH    5585
                               22701              LX7    X1                SWAP( RL1 , RL2 )                     ARITH    5586
          5104  54610                             SA6    A1                                                      ARITH    5587
                     54720                        SA7    A2                                                      ARITH    5588
                                                                                                                 ARITH    5589
          5105  7160000212               ROP6     SX6    M.SUB                                                   FCC0514     6
                          0400004462 +            EQ     MOP                                                     FCC0514     7
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   118
  
  
                                        *         SFLPR - STATEMENT FUNCTION ( POPPED                            ARITH    5673
          5106  26724                    SFLPR    UX7    B2,X4             B2 = MODE OF RESULT                   ARITH    5674
                     10522                        BX5    X2                                                      ARITH    5675
                          21054                   AX0    44                                                      ARITH    5676
                               63500              SB5    X0                B5 = TYPE OF ASF                      ARITH    5677
          5107  0425005120 +                      EQ     B2,B5,LPAR        IF TYPES THE SAME                     ARITH    5678
                          43701                   MX7    1                                                       FCC1983     9
          5110  5170006414 +                      SA7    ASFMF       STATEMENT FUNCTION FLAG                     FCC1983    10
                          0100006271 +            RJ     MODCH       CHANGE TYPE TO THAT OF ASF                  FCC1983    11
          5111  43700                             MX7    0                                                       FCC1983    12
                     5170006414 +                 SA7    ASFMF       RESET STATEMENT FUNCTION FLAG               FCC1983    13
          5112  5110000342 +                      SA1    MCOPDA      MODE CHANGE - OPERAND ADDRESS               FCC1983    14
                          53210                   SA2    X1                                                      FCC1983    15
                               26722              UX7    B2,X2                                                   FCC1983    16
          5113  6160000005                        SB6    T.OCT                                                   FCC1983    17
                          0526005116 +            NE     B2,B6,SFLPR1 IF MODE OF RESULT ISNT OCTAL               FCC1983    18
          5114  5110000343 +                      SA1    MCTYP       MODE CHANGE TYPE                            FCC1983    19
                          63510                   SB5    X1                                                      FCC1983    20
                               27757              PX7    B5,X7       UPDATE                                      FCC1983    21
          5115  54720                             SA7    A2          SAVE                                        FCC1983    22
          5116  5110000377 +             SFLPR1   SA1    OSPTR                                                   FCC1983    23
                          5221007622 +            SA2    OPSTAK+1+X1       LOAD SF( AND FALL THROUGH             ARITH    5685
          5117  5160000032 +                      SA6    RL2                                                     ARITH    5686
          5120  5130000011 +             LPAR     SA3       OP        RESTORE PREVIOUS MODE                      ARITH    5687
                          5110000377 +            SA1    OSPTR                                                   ARITH    5688
          5121  5221007622 +                      SA2    OPSTAK+1+X1                                             ARITH    5689
                          6120000002              SB2    EL.)                                                    ARITH    5690
          5122  43071                             MX0    60-3                                                    ARITH    5691
                     21223                        AX2    19                                                      ARITH    5692
                          15620                   BX6   -X0*X2                                                   ARITH    5693
                               26033              UX0 B3,X3                                                      ARITH    5694
          5123  5160001062 +                      SA6    EMODE                                                   ARITH    5695
                          0523005136 +            NE  B2,B3,LPAR1     IF -(- NOT POPPED BY -)-                   ARITH    5696
          5124  5110000377 +                      SA1       OSPTR     TAKE CARE OF SAVED ARLPT                   ARITH    5697
                          5120000024              SA2       TYPE      SEE IF END OF IF EXPRESSION                ARITH    5698
          5125  7261777776                        SX6    X1-1         REDUCE OSPTR FOR SAVED ARLPT               ARITH    5699
                          0316005130 +            NZ     X6,LPAR2     IF OPSTAK NOT EMPTY                        ARITH    5700
          5126  6222777757                        SB2    X2-16                                                   ARITH    5701
                          6232777756              SB3    X2-17                                                   ARITH    5702
          5127  0420005466 +                      ZR     B2,OUT3      IF END OF IF EXPR                          ARITH    5703
                          0430005466 +            ZR     B3,OUT3      '                                          ARITH    5704
          5130  5120000032               LPAR2    SA2       EPOINT                                               ARITH    5705
                          53320                   SA3    X2                                                      ARITH    5706
          5131  5160000377 +                      SA6       OSPTR                                                ARITH    5707
                          26023                   UX0 B2,X3                                                      ARITH    5708
          5132  6130000024                        SB3    EL.DSTR                                                 ARITH    5709
                          0523001066 +            NE  B2,B3,NEXTE     IF STATE FUN OR PAREN EXPR NOT FLWD BY **  ARITH    5710
          5133  5216007622 +                      SA1    X6+OPSTAK+1  GET SAVED ARLPT                            ARITH    5711
                          73710                   SX7    X1                                                      ARITH    5712
                               21122              AX1       18                                                   ARITH    5713
          5134  5170001057 +                      SA7       STBASE                                               ARITH    5714
                          10611                   BX6    X1                                                      ARITH    5715
          5135  5160000370 +                      SA6       NSFR                                                 ARITH    5716
                          0400001066 +            ZR        NEXTE                                                ARITH    5717
                                        *                                                                        ARITH    5718
          5136  6160000211               LPAR1    EERR      ERMSG3    NO MATCHING RT PARENS                      ARITH    5719
                                        *                                                                        ARITH    5720
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   119
  
  
                                        *     EOSPO IF (OPERATOR BUFFER CLOSED OUT) END OF STATEMENT OP POPPED   ARITH    5721
          5137  5110000011 +             EOSPO    SA1    OP           IS OP=)   (FROM OPSWTB)                    ARITH    5722
                          26031                   UX0 B3,X1                                                      ARITH    5723
          5140  6113777775                        SB1    B3-EL.)                                                 ARITH    5724
                          0410005143 +            ZR     B1,EQPO1     IF YES                                     ARITH    5725
          5141  5110000024                        SA1       TYPE      GET STATE TYPE                             ARITH    5726
                          6221777763              SB2    X1-RPLST                                                ARITH    5727
          5142  0420005470 +                      ZR     B2,OUT       IF REPL STATE                              ARITH    5728
                          0400002166 +            ZR        GTOUT                                                ARITH    5729
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   120
         STORES PROCESSING
  
          5143  6160000212               EQPO1    EERR   ERMSG4       NO MATCHING LEFT PAREN.                    ARITH    5731
                                        *                                                                        ARITH    5732
                                        *     EQPO IF =SIGN POPPED.                                              ARITH    5733
          5144  5110000011 +             EQPO     SA1    OP           IS OP THE EOS OP Y                         ARITH    5734
                          6120000004              SB2    EL.EOS                                                  ARITH    5735
          5145  26031                             UX0 B3,X1                                                      ARITH    5736
                     0523005143 +                 NE  B2,B3,EQPO1     IF NO                                      ARITH    5737
          5146  5150000005 +                      SA5    EQCOUNT                                                 ARITH    5738
                          7275000001              SX7    X5+1                                                    ARITH    5739
          5147  54750                             SA7    A5                INCREMENT EQUAL SIGN COUNTER          ARITH    5740
                     5110000376 +                 SA1    SFRSTB                                                  ARITH    5741
          5150  0301005170 +                      ZR     X1,EQPO4.         IF NO SAVED FUNCTION RESULTS          ARITH    5742
                          5130000064              SA3    NARN                                                    ARITH    5743
          5151  10633                             BX6    X3                                                      ARITH    5744
                     5160007605 +                 SA6    SAVENARN          SAVE CURRENT R NUMBER                 ARITH    5745
          5152  5221000144 +             EQPO1.   SA2    X1+FRSTB-1        FUNCTION RESULT INFORMATION WORD      ARITH    5746
                          7261777776              SX6    X1-1                                                    ARITH    5747
          5153  10322                             BX3    X2                                                      ARITH    5748
                     5160000304 +                 SA6    TS1+2             SAVE DECREMENTED COUNT                ARITH    5749
                               21342              AX3    34                                                      ARITH    5750
          5154  5150000005 +                      SA5    EQCOUNT                                                 ARITH    5751
                          73430                   SX4    X3                IF THE EQUAL SIGN COUNTER AND THE     ARITH    5752
                               37654              IX6    X5-X4                 INFORMATION FIELD MATCH, WE NEED  ARITH    5753
          5155  0336005166 +                      NG     X6,EQPO3.             TO OUTPUT A LOAD OF THE SAVED     ARITH    5754
                          0316005165 +            NZ     X6,EQPO2.             FUNCTION RESULT                   ARITH    5755
          5156  10322                             BX3    X2                                                      ARITH    5756
                     43054                        MX0    60-16                                                   ARITH    5757
                          21272                   AX2    58                POSITION SINGLE/DOUBLE BIT            ARITH    5758
                               15730              BX7    -X0*X3            R NAME                                ARITH    5759
          5157  7262000002                        SX6    X2+T.REAL         REAL IF SINGLE, DBL IF DOUBLE         ARITH    5760
                          66600                   SB6    B0                                                      ARITH    5761
                               20670              LX6    P.TYP             POSITION IN TYPE FIELD                ARITH    5762
          5160  5170000064                        SA7    NARN              RESET                                 ARITH    5763
                          5160000326 +            SA6    NAME+1            NEEDED FOR FETCH CALL                 ARITH    5764
          5161  21320                             AX3    16                                                      ARITH    5765
                     5150000000 X                 SA5    ST.               ST. ORDINAL                           ARITH    5766
                               63730              SB7    X3                STATEMENT TEMPORARY ORDINAL           ARITH    5767
          5162  76600                             SX6    B0                                                      ARITH    5768
                     5160000035 +                 SA6    IDORDLTS                                                ARITH    5769
          5163  5066000001                        SA6    A6+1                                                    ARITH    5770
                          0100005650 +            RJ     FETCH             OUTPUT LOAD OF FUNCTION RESULT        ARITH    5771
          5164  0100005536 +                      RJ     CHKOFF                                                  ARITH    5772
          5165  5110000304 +             EQPO2.   SA1    TS1+2                                                   ARITH    5773
                          0311005152 +            NZ     X1,EQPO1.         IF MORE FUNCTION RESULTS              ARITH    5774
          5166  5130007605 +             EQPO3.   SA3    SAVENARN                                                ARITH    5775
                          10633                   BX6    X3                                                      ARITH    5776
          5167  5160000064                        SA6    NARN              RESTORE NARN VALUE                    ARITH    5777
          5170                           EQPO4.   BSS    0                                                       ARITH    5778
          5170  5110000031 +                      SA1       RL1       SET DEFINED BIT IN SYMTAB FOR VARIABLE     ARITH    5779
                          5231000001              SA3    X1+1                                                    ARITH    5780
          5171  63130                             SB1    X3                                                      ARITH    5781
                     21322                        AX3    18                                                      ARITH    5782
                          73630                   SX6    X3                                                      ARITH    5783
          5172  5160000007 +                      SA6    NCAD        STORE CA FOR DODEF                          ARITH    5784
                          5033000003              SA3    A3+3                                                    ARITH    5785
          5173  43054                             MX0    -R1.RIL                                                 ARITH    5786
                     20354                        LX3    -R1.RIL                                                 ARITH    5787
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   121
         STORES PROCESSING
  
                          15630                   BX6    -X0*X3                                                  ARITH    5788
          5174  5160000010 +                      SA6    NRFD        RF OF LOAD                                  ARITH    5789
                          5231000002              SA3    X1+2        RMACRO HEADER                               ARITH    5790
          5175  26163                             UX1    B6,X3                                                   ARITH    5791
                     6166000004                   SB6    B6+STLMAC                                               ARITH    5792
          5176  0560005200 +                      NZ     B6,EQPO4.1  IF NOT AN IXFN                              ARITH    5793
                          43601                   MX6    1                                                       ARITH    5794
          5177  5160000010 +                      SA6    NRFD        SET RF .NE. 0                               ARITH    5795
          5200                           EQPO4.1  BSS    0                                                       ARITH    5796
          5200  76311                             SX3    B1+B1                                                   ARITH    5797
                     5140000012                   SA4       SYM1      GET ADR OF SYMTAB                          ARITH    5798
                               37543              IX5    X4-X3        COMPUTE ADR.                               ARITH    5799
          5201  43001                             MX0       1                                                    ARITH    5800
                     53350                        SA3    X5           GET 1ST WD                                 ARITH    5801
                          20021                   LX0       17        POSITION DEFINED BIT (B16)                 ARITH    5802
                               12630              BX6    X3+X0                                                   ARITH    5803
          5202  53650                             SA6    X5           STORE BACK IN SYMTAB                       ARITH    5804
                     5245777776                   SA4    X5-1        GET WORD B FOR THIS SYMBOL                  FCC1901    36
                               20473              LX4    59-P.FPB                                                FCC1901    37
          5203  0324005212 +                      PL     X4,EQPO4.2  IF NOT FP                                   FCC1901    38
                          20427                   LX4    P.FPB-P.RL                                              FCC1901    39
          5204  0324005212 +                      PL     X4,EQPO4.2  IF NOT RL                                   FCC1901    40
                          53550                   SA5    X5                                                      FCC1901    41
                               43352              MX3    L.NAME                                                  FCC1901    42
          5205  11335                             BX3    X3*X5      EXTRACT SYMBOL                               FCC1901    43
                     20360                        LX3    60-12                                                   FCC1901    44
                          7120000055              SX2    1R                                                      FCC1901    45
          5206  12332                             BX3    X3+X2      ADD BLANK FILL                               FCC1901    46
                     13444                        POSTER SEV=ANSI,NR=ERMSG62,FMT=DPC,TXT=X3                      FCC1901    47
          5210  5110000031 +                      SA1    RL1                                                     FCC1901    48
                          5231000001              SA3    X1+1                                                    FCC1901    49
          5211  63130                             SB1    X3          RESTORE B1                                  FCC1901    50
          5212                           EQPO4.2  BSS    0                                                       FCC1901    51
          5212  0100000000 X                      RJ        DODEF                                                ARITH    5805
          5213  5110000032                        SA1       EPOINT    RESTORE B1                                 ARITH    5806
                          6211000001              SB1    X1+1                                                    ARITH    5807
                                        *     ARE TYPES THE SAME-                                                ARITH    5808
          5214  5110001133 +                      SA1    WLSTR                                                   ARITH    5809
                          43700                   MX7    0                                                       ARITH    5810
          5215  5170000007 +                      SA7    NCAD                                                    ARITH    5811
                          5170000010 +            SA7    NRFD                                                    ARITH    5812
          5216  0301005231 +                      ZR     X1,EQPO7C         LAST STORE NOT TRACED                 ARITH    5813
                          54710                   SA7    A1                CLEAR FLAG                            ARITH    5814
          5217  5170000404 +                      SA7    EQPO5F            CLEAR XMIT FLAG                       ARITH    5815
                          5120000303 +            SA2    TS1+1             NAME AND TYPE                         ARITH    5816
          5220  5110001122 +                      SA1    DBGAPL+1          IH, CA INFORMATION                    ARITH    5817
                          73620                   SX6    X2                GET TYPE                              ARITH    5818
                               73510              SX5    X1                IH FIELD                              ARITH    5819
          5221  20670                             LX6    P.TYP                                                   ARITH    5820
                     20136                        LX1    30                                                      ARITH    5821
                          63710                   SB7    X1                CA FIELD                              ARITH    5822
          5222  5160000326 +                      SA6    NAME+1            NEEDED FOR FETCH                      ARITH    5823
                          66600                   SB6    B0                                                      ARITH    5824
          5223  5110000031 +                      SA1    RL1               POINTS TO REPLACEMENT MACRO           ARITH    5825
                          43001                   MX0    1                                                       ARITH    5826
                               20056              LX0    1+P.USED                                                ARITH    5827
          5224  5120000032 +                      SA2    RL2               POINTS TO RESULT MACRO                ARITH    5828
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   122
         STORES PROCESSING
  
                          53320                   SA3    X2                HEADER WORD                           ARITH    5829
                               12703              BX7    X0+X3             SET USED BIT IN RESULT MACRO          ARITH    5830
          5225  10611                             BX6    X1                                                      ARITH    5831
                     54730                        SA7    A3                                                      ARITH    5832
                          5160001126 +            SA6    RL1TS             SAVE POINTER                          ARITH    5833
          5226  0100005650 +                      RJ     FETCH             OUTPUT LOAD MACRO                     ARITH    5834
          5227  5120001126 +                      SA2    RL1TS                                                   ARITH    5835
                          10622                   BX6    X2                                                      ARITH    5836
          5230  5160000031 +                      SA6    RL1               RESTORE POINTER                       ARITH    5837
          5231  5110000031 +             EQPO7C   SA1    RL1                                                     ARITH    5838
                          5150000032 +            SA5       RL2       X5=ADR OF RESULT OF EXPR.                  ARITH    5839
          5232  53310                             SA3    X1                                                      ARITH    5840
                     53450                        SA4    X5                                                      ARITH    5841
                          26053                   UX0 B5,X3           (B5=TYPE OF REPLACEMENT ELEMENT)           ARITH    5842
                               26624              UX6 B2,X4                                                      ARITH    5843
          5233  0425005243 +                      EQ  B2,B5,EQPO2     IF TYPES ARE THE SAME                      ARITH    5844
                          6130000004              SB3    T.CPLX                                                  ARITH    5845
          5234  0432005235 +                      EQ  B3,B2,EQPO7A    IF CPX OPD                                 ARITH    5846
                          0535005240 +            NE  B3,B5,EQPO7B    IF NEITHER OPD CMPX                        ARITH    5847
          5235  6160000276              EQPO7A    USASDM ERMSG45         NON-USAS COMBINATION                    ARITH    5848
          5236  5110000031 +                      SA1       RL1                                                  ARITH    5849
                          5150000032 +            SA5       RL2                                                  ARITH    5850
          5237  53310                             SA3    X1                                                      ARITH    5851
                     26053                        UX0 B5,X3                                                      ARITH    5852
          5240                           EQPO7B   BSS       0                                                    ARITH    5853
          5240  0100006271 +                      RJ        MODCH     CONVERT RESULT TO TYPE OF REPLACEMENT-     ARITH    5854
          5241  5160000032 +                      SA6    RL2                                        -ELEMENT.    ARITH    5855
                          13265                   BX2    X6-X5                                                   ARITH    5856
          5242  0312005243 +                      NZ     X2,EQPO2          IF CONVERSION TOOK PLACE              ARITH    5857
                          5160000405 +            SA6    OCTHO             TURN ON OCTAL-HOLLERITH FLAG          ARITH    5858
          5243  5110000032 +             EQPO2    SA1       RL2       SEE IF LAST OP WAS LOAD.  (A=B TYPE STATE) ARITH    5859
                          53310                   SA3    X1                                                      ARITH    5860
          5244  5221000002                        SA2    X1+2         IF SO, OUTPUT BX6=XI                       ARITH    5861
                          20317                   LX3       59-44                                                ARITH    5862
                               26032              UX0 B3,X2                                                      ARITH    5863
          5245  0333005251 +                      NG     X3,EQPO5     IF XMT FLAG ON                             ARITH    5864
                                        *             XMT SET BY MODCH, LDVRPRT                                  ARITH    5865
                                        *         AND FOR RNM TYPE INTRINSICS                                    ARITH    5866
                          6123000133              SB2    B3+SLMACO                                               ARITH    5867
          5246  0420005251 +                      ZR     B2,EQPO5     IF LOAD                                    ARITH    5868
                          6123000131              SB2    B3+DLMACO                                               ARITH    5869
          5247  0420005251 +                      ZR     B2,EQPO5     IF LOAD                                    ARITH    5870
                          6123000004              SB2    B3+STLMAC     STD SUBSLD)                               ARITH    5871
          5250  0520005254 +                      NZ     B2,EQPO6     IF NOT A LOAD                              ARITH    5872
                                        *     REPLACE XMITOP WITH NEW MACRO IF A NEW RLIST OP IS DEFINED TO      ARITH    5873
                                        *  TRANSMIT ONLY IF PREVIOUS OP A LOAD.                                  ARITH    5874
          5251  7160000135               EQPO5    SX6       XMITOP    OUTPUT TRANSMIT MACRO                      ARITH    5875
                          5110000404 +            SA1       EQPO5F                                               ARITH    5876
          5252  0311005254 +                      NZ     X1,EQPO6     IF HAVE ALREADY OUTPUT A XMIT              ARITH    5877
                          5160000404 +            SA6       EQPO5F                                               ARITH    5878
                                        *     IF DBL LENGTH, UINGEN WILL SX6=X6+1                                ARITH    5879
          5253  0100005544 +                      RJ        UINGEN                                               ARITH    5880
          5254                           EQPO6    BSS    0                 SUPPOSE A=B IS STMT                   ARITH    5881
          5254  5140000405 +                      SA4    OCTHO             OCTAL-HOLL FLAG                       ARITH    5882
                          5110000031 +            SA1    RL1               REPLACEMENT ELEMENT,/A/               ARITH    5883
          5255  5150000032 +                      SA5    RL2               REPLACED ELEMENT,/B/                  ARITH    5884
                          0304005260 +            ZR     X4,EQPO6A         IF /B/ NOT OCTAL OR HOLL              ARITH    5885
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   123
         STORES PROCESSING
  
          5256  53250                             SA2    X5                HEADER WORD OF /B/                    ARITH    5886
                     53310                        SA3    X1                HEADER WORD OF /A/                    ARITH    5887
                          43600                   MX6    0                                                       ARITH    5888
                               26402              UX4    X2                                                      ARITH    5889
          5257  54640                             SA6    A4                CLEAR OCTAL-HOLLERITH FLAG            ARITH    5890
                     26043                        UX0,B4 X3                                                      ARITH    5891
                          27744                   PX7    B4,X4             NEW HEADER WORD OF /B/   -            ARITH    5892
                               53750              SA7    X5                                                      ARITH    5893
                                                                                                                 ARITH    5894
          5260  5225000002               EQPO6A   SA2    X5+2              1ST WORD OF RLIST INSTR OF /B/        ARITH    5895
                          43354                   MX3    60-16                                                   ARITH    5896
                               15423              BX4    -X3*X2       X4=RN                                      ARITH    5897
          5261  5221000002                        SA2    X1+2         CHANGE MACRO CODE AND RI                   ARITH    5898
                          26022                   UX0 B2,X2                                                      ARITH    5899
          5262  6122777776                        SB2    B2-1         CHANGE CODE TO A STORE                     ARITH    5900
                          11232                   BX2    X3*X2        INSERT NAME OF RESULT                      ARITH    5901
                               12224              BX2    X2+X4                                                   ARITH    5902
          5263  27622                             PX6    B2,X2                                                   ARITH    5903
                     54620                        SA6    A2                                                      ARITH    5904
                          6130777772              SB3      -STLMAC-1                                             ARITH    5905
          5264  0423005270 +                      EQ  B2,B3,EQPO4     IF STD SUBS STORE                          ARITH    5906
                          5052000002              SA5    A2+2         CHANGE R-PARAMETERWORD                     ARITH    5907
          5265  11235                             BX2    X3*X5                                                   ARITH    5908
                     12642                        BX6    X4+X2                                                   ARITH    5909
                          7244000001              SX4    X4+1         JUST IN CASE A DOUBLE STORE                ARITH    5910
          5266  20634                             LX6    -32                                                     ARITH    5911
                     11636                        BX6    X3*X6                                                   ARITH    5912
                          12646                   BX6    X4+X6                                                   ARITH    5913
                               20640              LX6       32                                                   ARITH    5914
          5267  54650                             SA6    A5                                                      ARITH    5915
          5270  53410                    EQPO4    SA4    X1                                                      ARITH    5916
                     20427                        LX4    59-36                                                   ARITH    5917
                          0334005325 +            NG     X4,EQPO10         IF NON STD SUB ARRAY LOAD             ARITH    5918
          5271  53210                             SA2    X1                HEADER WORD                           ARITH    5919
                     56000                        SA0    B0                NEEDED FOR LASTR ADJUSTMENT           ARITH    5920
          5272                           EQPO4A   BSS    0                                                       ARITH    5921
          5272  21222                             AX2       18                                                   ARITH    5922
                     63220                        SB2    X2                                                      ARITH    5923
                          5120000005 C            SA2    ARLPT        MOVE STORE INSTR TO ARLIST. NOP OLD RLIST  ARITH    5924
          5273  63322                             SB3    X2+B2                                                   ARITH    5925
                     6143774577                   SB4    B3-ARLSZ                                                ARITH    5926
          5274  0640005647 +                      PL     B4,MAC1D     IF ARLIST BLOK FULL                        ARITH    5927
                          53310                   SA3    X1           VOID THE LOAD ENTRY                        ARITH    5928
                               43001              MX0       1         SET USED BIT OF STORE INSTR IN CASE A=B=C= ARITH    5929
          5275  14633                             BX6   -X3                                                      ARITH    5930
                     20056                        LX0       46                                                   ARITH    5931
                          53610                   SA6    X1                                                      ARITH    5932
                               12303              BX3    X0+X3                                                   ARITH    5933
          5276  5140001061 +                      SA4       LASTR     GET CORRECT PREVIOUS ENTRY SIZE AND INSERT ARITH    5934
                          43052                   MX0       60-18     -IN NEW ENTRY                              ARITH    5935
                               53540              SA5    X4                                                      ARITH    5936
          5277  6272000000                        SB7    X2+ARLIST                                               ARITH    5937
          7635  20360000000000005277 +            SUB                                                            ARITH    5938
                          0325005301 +            PL     X5,EQPO9     IF LAST ENTRY NOT NO-OPED                  ARITH    5939
          5300  14555                             BX5   -X5                                                      ARITH    5940
          5301                           EQPO9    BSS       0                                                    ARITH    5941
          5301  11303                             BX3    X0*X3                                                   ARITH    5942
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   124
         STORES PROCESSING
  
                     21522                        AX5       18                                                   ARITH    5943
                          10433                   BX4    X3                                                      ARITH    5944
                               21473              AX4    59                                                      ARITH    5945
          5302  13445                             BX4    X4-X5       SIGN OF LENGTH MATCHES HEADER               ARITH    5946
                     15440                        BX4    -X0*X4      EXTRACT SIGNED LENGTH                       ARITH    5947
                          12334                   BX3    X3+X4                                                   ARITH    5948
                               74707              SX7    B7+A0             POINT TO LAST MACRO MOVED             ARITH    5949
          5303  5170001061 +                      SA7       LASTR                                                ARITH    5950
          5304  10633                    EQPO3    BX6    X3                                                      ARITH    5951
                     5262000000                   SA6    X2+ARLIST    STORE IN NEW LOC.                          ARITH    5952
          7636  20170000000000005304 +            SUB                                                            ARITH    5953
          5305  7211000001                        SX1    X1+1                                                    ARITH    5954
                          7222000001              SX2    X2+1                                                    ARITH    5955
          5306  6122777776                        SB2    B2-1                                                    ARITH    5956
                          53310                   SA3    X1                                                      ARITH    5957
          5307  0520005304 +                      NZ     B2,EQPO3                                                ARITH    5958
                          10622                   BX6    X2                                                      ARITH    5959
          5310  5160000005 C                      SA6       ARLPT                                                ARITH    5960
                          5120000000 X            SA2    DFLAG                                                   ARITH    5961
          5311  0302005323 +                      ZR     X2,EQPO3A         BRANCH IF NOT IN DEBUG MODE           ARITH    5962
                          5110001061 +            SA1    LASTR                                                   ARITH    5963
          5312  5221000001                        SA2    X1+1              ORDINAL OF NAME                       ARITH    5964
                          10722                   BX7    X2                                                      ARITH    5965
                               73220              SX2    X2          REMOVE ALL BUT LOWER 18 BITS                ARITH    5966
          5313  5231000003                        SA3    X1+3              ORDINAL OF VARIABLE                   ARITH    5967
                          5241000005              SA4    X1+5              BIAS FOR VARIABLE                     ARITH    5968
          5314  20436                             LX4    30                                                      ARITH    5969
                     20201                        LX2    1                                                       ARITH    5970
                          12643                   BX6    X4+X3                                                   ARITH    5971
          5315  5160001122 +                      SA6    DBGAPL+1          USED IN DEBUG CODE                    ARITH    5972
                          5130000012              SA3    SYM1              START OF SYMTAB                       ARITH    5973
          5316  37432                             IX4    X3-X2                                                   ARITH    5974
                     53140                        SA1    X4                WORD A                                ARITH    5975
                          20152                   LX1    59-P.FP           IS THIS A FORMAL PARAMETER STORE      ARITH    5976
          5317  0321005320 +                      PL     X1,EQPO3B         IF NOT                                ARITH    5977
                          54760                   SA7    A6                RESET TABLE WORD                      ARITH    5978
          5320                           EQPO3B   BSS    0                                                       ARITH    5979
          5320  5224777776                        SA2    X4-1              WORD B OF ENTRY                       ARITH    5980
                          43071                   MX0    60-L.DIF+1        ONLY NEED BOTTOM BITS                 ARITH    5981
                               20235              LX2    60-P.DIF          SHIFT DEBUG BITS                      ARITH    5982
          5321  15720                             BX7    -X0*X2            MASK OUT DEBUG BITS                   ARITH    5983
                     7267777772                   SX6    X7-DV.STO         IS STORES CHECKING TO BE DONE         ARITH    5984
          5322  0316005323 +                      NZ      X6,EQPO3A        IF NOT                                ARITH    5985
                          0100005346 +            RJ     STRCK             PROCESS DEBUG STORES                  ARITH    5986
          5323  0100005517 +             EQPO3A   RJ     FNDOP                                                   ARITH    5987
          5324  5160000031 +                      SA6       RL1       ADR OF NEXT REP.VAR.                       ARITH    5988
                          0400004214 +            EQ     CMPARE                                                  ARITH    5989
                                                                                                                 ARITH    5990
                                        *         THIS CODE ALLOWS FOR NON STANDARD SUBSCRIPT CALCULATION MACROS ARITH    5991
                                        *         TO BE MOVED ALONG WITH THE LOAD MACRO AS ONE LARGE MACRO BLOCK ARITH    5992
          5325  20445                    EQPO10   LX4    1+36              REPOSITION WORD                       ARITH    5993
                     76000                        SX0    B0                INITIALIZE                            ARITH    5994
                          73640                   SX6    X4                WORD COUNT OF PREVIOUS MACRO, IF ANY  ARITH    5995
                               21422              AX4    18                                                      ARITH    5996
          5326  37316                             IX3    X1-X6             ADDRESS OF PREVIOUS MACRO             ARITH    5997
                     63740                        SB7    X4                WORD SIZE OF LOAD MACRO               ARITH    5998
                          0306005336 +            ZR     X6,EQPO14         IF AT BEGINNING OF BUFFER             ARITH    5999
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   125
         STORES PROCESSING
  
          5327  53430                    EQPO11   SA4    X3                MACRO HEADER                          ARITH    6000
                     0324005330 +                 PL     X4,EQPO12         IF NOT NO OPED                        ARITH    6001
                               14444              BX4    -X4                                                     ARITH    6002
          5330  20427                    EQPO12   LX4    59-36             IS THIS A NON STD SUB ARRAY LOAD      ARITH    6003
                     0334005335 +                 NG     X4,EQPO13         IF YES                                ARITH    6004
                               43765              MX7    60-7                                                    ARITH    6005
          5331  5150000005 +                      SA5    EQCOUNT           EQUAL SIGN COUNTER                    ARITH    6006
                          15747                   BX7    -X7*X4            EQUAL SIGN COUNT FOR MACRO            ARITH    6007
                               37257              IX2    X5-X7                                                   ARITH    6008
          5332  0312005335 +                      NZ     X2,EQPO13         IF PREVIOUS GROUP REACHED             ARITH    6009
                          20445                   LX4    1+36                                                    ARITH    6010
                               73540              SX5    X4                WORD COUNT OF PREVIOUS MACRO, IF ANY  ARITH    6011
          5333  0305005336 +                      ZR     X5,EQPO14         IF AT BEGINNING OF BUFFER             ARITH    6012
                          37335                   IX3    X3-X5             ADDRESS OF PREVIOUS MACRO             ARITH    6013
                               36006              IX0    X0+X6             ADD WORD COUNT TO BLOCK LENGTH        ARITH    6014
          5334  10655                             BX6    X5                SAVE CURRENT MACRO SIZE               ARITH    6015
                     0400005327 +                 EQ     EQPO11                                                  ARITH    6016
          5335  36336                    EQPO13   IX3    X3+X6             CORRECT MACRO POINTER                 ARITH    6017
                     76600                        SX6    B0                CLEAR                                 ARITH    6018
          5336  36006                    EQPO14   IX0    X0+X6             ADD WORD COUNT TO BLOCK LENGTH        ARITH    6019
                     53210                        SA2    X1                ORIGINAL LOAD MACRO                   ARITH    6020
                          73407                   SX4    X0+B7             TOTAL BLOCK LENGTH                    ARITH    6021
                               20252              LX2    42                                                      ARITH    6022
          5337  43501                             MX5    1                                                       ARITH    6023
                     63620                        SB6    X2                SIZE OF LOAD MACRO                    ARITH    6024
                          63217                   SB2    X1+B7             POINT BEYOND LOAD MACRO               ARITH    6025
                               20222              LX2    18                REPOSITION                            ARITH    6026
          5340  53040                             SA0    X4                                                      ARITH    6027
                     20556                        LX5    1+45              POSITION USED BIT                     ARITH    6028
                          12652                   BX6    X5+X2             SET USED BIT IN CASE OF MULTIPLE =    ARITH    6029
                               20422              LX4    18                                                      ARITH    6030
          5341  55006                             SA0    A0-B6             NEEDED FOR LASTR ADJUSTMENT           ARITH    6031
                     5120000000                   SA2    ARLIST            START OF ARLIST BUFFER                ARITH    6032
          7637  20170000000000005341 +            SUB                                                            ARITH    6033
                               53610              SA6    X1                RESTORE TO BUFFER                     ARITH    6034
          5342  64320                             SB3    A2                                                      ARITH    6035
                     10133                        BX1    X3                ADJUST POINTER FOR AFTER RETURN       ARITH    6036
                          5120000012 +            SA2    ARLST             RELATIVE POINTER AFTER ENTIRE BLOCK   ARITH    6037
          5343  77623                             SX6    B2-B3             RELATIVE POSITION OF MACRO AFTER LOAD ARITH    6038
                     37562                        IX5    X6-X2                                                   ARITH    6039
                          10244                   BX2    X4                                                      ARITH    6040
          5344  0335005272 +                      NG     X5,EQPO4A         EFFECTIVELY EXIT IF ALREADY SET       ARITH    6041
                          54620                   SA6    A2                REALLY ONLY SET ONCE FOR MULTIPLE =   ARITH    6042
          5345  0400005272 +                      EQ     EQPO4A            ARLST SET SO OLD BLOCK NOT FLUSHED    ARITH    6043
  
  
  
  
                                        *         DEBUG PROCESSOR FOR STORES CHECKING                            ARITH    6045
                                        *                                                                        ARITH    6046
          5346  00000000000000000000     STRCK    DATA   0                                                       ARITH    6047
          5347  5110000031 +                      SA1    RL1                                                     ARITH    6048
                          5130000032 +            SA3    RL2                                                     ARITH    6049
          5350  10611                             BX6    X1                                                      ARITH    6050
                     22703                        LX7    X3                                                      ARITH    6051
                          5160001126 +            SA6    RL1TS             SAVE CURRENT VALUES                   ARITH    6052
          5351  5170001127 +                      SA7    RL2TS                                                   ARITH    6053
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   126
         STORES PROCESSING                                            STRCK 
  
                          5012000001              SA1    A2+1              WORD A OF ENTRY                       ARITH    6054
          5352  43052                             MX0    L.NAME                                                  ARITH    6055
                     11501                        BX5    X0*X1             VARIABLE NAME                         ARITH    6056
                          20243                   LX2    P.DIF-P.TYP                                             ARITH    6057
                               43070              MX0    60-L.TYP                                                ARITH    6058
          5353  15720                             BX7    -X0*X2            VARIABLE TYPE                         ARITH    6059
                     5170000305 +                 SA7    TS1+3             TYPE WORD                             ARITH    6060
                               12657              BX6    X5+X7                                                   ARITH    6061
          5354  5160000303 +                      SA6    TS1+1             NAME AND TYPE                         ARITH    6062
                          10722                   BX7    X2                                                      ARITH    6063
          5355  5170000326 +                      SA7    NAME+1            SAVE WORD B                           ARITH    6064
                          20156                   LX1    59-P.DIM          ID VARIABLE DIMENSIONED               ARITH    6065
          5356  0321005361 +                      PL     X1,STRCK0.        IF NOT                                ARITH    6066
                          5110001061 +            SA1    LASTR             ADDRESS OF LAST STORE MACRO           ARITH    6067
          5357  43200                             MX2    0                                                       ARITH    6068
                     0100006041 +                 RJ     OTS         OUTPUT TEMP STORE                           ARITH    6069
          5360  20336                             LX3    30                                                      ARITH    6070
                     12632                        BX6    X3+X2       30/CA(ST.), 30/ORD(ST.)                     ARITH    6071
                          5160001122 +            SA6    DBGAPL+1    SET UP FOR APLIST PROCESSOR                 ARITH    6072
          5361  5120000326 +             STRCK0.  SA2    NAME+1            RESTORE WORD B                        ARITH    6073
                          43600                   MX6    0                                                       ARITH    6074
          5362  5160001124 +                      SA6    DBGAPL+3          ZERO TO ARGLIST TABLE                 ARITH    6075
                          7170007616 +            SX7    =8RBUGSTO                                               ARITH    6076
          5363  5076000001                        SA7    A6+1              ADDRESS TO ARGLIST TABLE              ARITH    6077
                          5130000000 X            SA3    D.SAASI           BASE OF AS TABLE                      ARITH    6078
          5364  20245                             LX2    P.TYP-P.DTO                                             ARITH    6079
                     43060                        MX0    60-L.DTO                                                ARITH    6080
                          15420                   BX4    -X0*X2            GET DEBUG TABLE ORDINAL               ARITH    6081
                               36434              IX4    X3+X4             BASE + ORDINAL                        ARITH    6082
          5365  5110777776 C                      SA1    DEBUG-1                                                 ARITH    6083
                          63240                   SB2    X4                                                      ARITH    6084
                               54312              SA3    A1+B2             DEBUG TABLE WORD                      ARITH    6085
          5366  43063                             MX0    60-L.FCS                                                ARITH    6086
                     20336                        LX3    60-P.FCS                                                ARITH    6087
                          15630                   BX6    -X0*X3            FREQUENCY COUNT                       ARITH    6088
          5367  0306005416 +                      ZR     X6,STRCK3.                                              ARITH    6089
                          7150000011              SX5    9                 HERE IF NO STORES TEST                ARITH    6090
          5370  5160000304 +                      SA6    TS1+2             MORE TO LINK FLAG                     ARITH    6091
                          43700                   MX7    0                                                       ARITH    6092
          5371  5170000307 +                      SA7    TS1+5             NEEDED TO EXIT LOOP                   ARITH    6093
          5372  20503                    STRCK1.  LX5    3                                                       ARITH    6094
                     5140000303 +                 SA4    TS1+1             NAME AND TYPE                         ARITH    6095
                               12145              BX1    X4+X5             INSERT RELOP                          ARITH    6096
          5373  0100006514 +                      RJ     STRIP             CHECK FOR TRAILING $ IN NAME          ARITH    6097
          5374  6110000001                        SB1    1                                                       ARITH    6098
                          0100000000 X            RJ     CONVERT           PLACE IN CONS TABLE                   ARITH    6099
          5375  10611                             BX6    X1                                                      ARITH    6100
                     5160001121 +                 SA6    DBGAPL            FORM ARGLIST TABLE                    ARITH    6101
          5376  5110001124 +                      SA1    DBGAPL+3                                                ARITH    6102
                          54215                   SA2    A1+B5                                                   ARITH    6103
                               10611              BX6    X1                                                      ARITH    6104
          5377  22702                             LX7    X2                                                      ARITH    6105
                     55615                        SA6    A1-B5             COLLAPSE ARGLIST TABLE TO AVOID       ARITH    6106
                          54710                   SA7    A1                UNNECESSARY APLIST PARAMETER          ARITH    6107
          5400  5110001121 +             STRCK2.  SA1    DBGAPL                                                  ARITH    6108
                          5130000043 +            SA3    STAPLC                                                  ARITH    6109
          5401  43700                             MX7    0                 ZERO CHAIN WORD FOR THIS FUNCTION     ARITH    6110
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   127
         STORES PROCESSING                                            STRCK 
  
                     10633                        BX6    X3                                                      ARITH    6111
                          54730                   SA7    A3                                                      ARITH    6112
          5402  5160000365 +                      SA6    STAPL                                                   ARITH    6113
                          5120000000 X            SA2    N.AP                                                    ARITH    6114
          5403  10622                             BX6    X2                                                      ARITH    6115
                     7272000001                   SX7    X2+1              INCREMENT APLIST NUMBER               ARITH    6116
                               54720              SA7    A2                                                      ARITH    6117
          5404  0100000000 X                      RJ     IGCALL            GENERATE CALL MACRO                   ARITH    6118
          5405  5110007616 +                      SA1    =8RBUGSTO                                               ARITH    6119
                          6170005406 +            SB7    *+1                                                     ARITH    6120
          5406  0400000000 X                      EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS   ARITH    6121
          5407  7160000014                        SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD         ARITH    6122
                          20670                   LX6    P.TYP                SO REFERENCE WONT APPEAR IN        ARITH    6123
                               12762              BX7    X6+X2                THE REFERENCE MAP                  ARITH    6124
          5410  5130000365 +                      SA3    STAPL                                                   ARITH    6125
                          5110000304 +            SA1    TS1+2             IS THERE MORE TO LINK                 ARITH    6126
          5411  10633                             BX6    X3                                                      ARITH    6127
                     54720                        SA7    A2                                                      ARITH    6128
                          5160000043 +            SA6    STAPLC            RESTORE STORE-TO-APLIST CHAIN         ARITH    6129
          5412  0311005457 +                      NZ     X1,STRCK7.        EXIT IF NOT                           ARITH    6130
                          5120000305 +            SA2    TS1+3             CURRENT LINK WORD                     ARITH    6131
          5413  73720                             SX7    X2                GET LINK                              ARITH    6132
                     0307005457 +                 ZR     X7,STRCK7.        EXIT IF AT LAST LINK                  ARITH    6133
          5414  5150000306 +                      SA5    TS1+4             RELOCATION ADDRESS                    ARITH    6134
                          43600                   MX6    0                                                       ARITH    6135
                               36757              IX7    X5+X7             NEXT LINK ADDRESS                     ARITH    6136
          5415  5160001124 +                      SA6    DBGAPL+3                                                ARITH    6137
                          0400005431 +            EQ     STRCK4.                                                 ARITH    6138
          5416  20360                    STRCK3.  LX3    P.FCS-P.LINK                                            ARITH    6139
                     43600                        MX6    0                                                       ARITH    6140
                          73730                   SX7    X3                TABLE ADDRESS                         ARITH    6141
          5417  5160000304 +                      SA6    TS1+2             LINK FLAG                             ARITH    6142
                          0307005423 +            ZR     X7,STRCK8.                                              ARITH    6143
          5420  5120777776 C                      SA2    DEBUG-1                                                 ARITH    6144
                          74620                   SX6    A2                RELOCATION ADDRESS                    ARITH    6145
                               63370              SB3    X7                TABLE ADDRESS                         ARITH    6146
          5421  5160000306 +                      SA6    TS1+4                                                   ARITH    6147
                          74723                   SX7    A2+B3             NEXT LINK ADDRESS                     ARITH    6148
                               10633              BX6    X3                                                      ARITH    6149
          5422  5160000307 +                      SA6    TS1+5             SAVE LINK WORD                        ARITH    6150
                          0400005431 +            EQ     STRCK4.                                                 ARITH    6151
          5423  20336                    STRCK8.  LX3    P.LINK-P.LINKI                                          ARITH    6152
                     43700                        MX7    0                                                       ARITH    6153
                          73630                   SX6    X3                TABLE ORDINAL                         ARITH    6154
          5424  5170000307 +                      SA7    TS1+5             WILL TERMINATE LOOP                   ARITH    6155
                          0306005457 +            ZR     X6,STRCK7.        IF DONE                               ARITH    6156
          5425  5120777776 C                      SA2    DEBUG-1                                                 ARITH    6157
                          5130000000 X            SA3    D.SAASI           BASE OF AS TABLE                      ARITH    6158
          5426  36436                             IX4    X3+X6             ORDINAL + BASE                        ARITH    6159
                     63230                        SB2    X3                                                      ARITH    6160
                          74622                   SX6    A2+B2             RELOCATION ADDRESS                    ARITH    6161
                               63340              SB3    X4                                                      ARITH    6162
          5427  5160000306 +                      SA6    TS1+4                                                   ARITH    6163
                          74723                   SX7    A2+B3             NEXT LINK ADDRESS                     ARITH    6164
                               43600              MX6    0                                                       ARITH    6165
          5430  5160000307 +                      SA6    TS1+5             WILL TERMINATE LOOP                   ARITH    6166
          5431  53270                    STRCK4.  SA2    X7                GET NEXT LINK ENTRY                   ARITH    6167
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   128
         STORES PROCESSING                                            STRCK 
  
                     43071                        MX0    60-L.RO                                                 ARITH    6168
                          10622                   BX6    X2                                                      ARITH    6169
          5432  5160000305 +                      SA6    TS1+3             SAVE LINK WORD                        ARITH    6170
                          20241                   LX2    60-P.RO                                                 ARITH    6171
                               15520              BX5    -X0*X2            GET RELOP                             ARITH    6172
          5433  63250                             SB2    X5                                                      ARITH    6173
                     0402005372 +                 EQ     B0,B2,STRCK1.     INDEF RELOP                           ARITH    6174
          5434  6130000007                        SB3    7                                                       ARITH    6175
                          0432005372 +            EQ     B3,B2,STRCK1.     RANGE RELOP                           ARITH    6176
          5435  20503                             LX5    3                                                       ARITH    6177
                     5140000303 +                 SA4    TS1+1             NAME AND TYPE                         ARITH    6178
                               12145              BX1    X4+X5                                                   ARITH    6179
          5436  0100006514 +                      RJ     STRIP             CHECK FOR TRAILING $ IN NAME          ARITH    6180
          5437  6110000001                        SB1    1                                                       ARITH    6181
                          0100000000 X            RJ     CONVERT           PLACE IN CONS TABLE                   ARITH    6182
          5440  10611                             BX6    X1                                                      ARITH    6183
                     5160001121 +                 SA6    DBGAPL            FORM ARGLIST TABLE                    ARITH    6184
          5441  5130000305 +                      SA3    TS1+3             LINK WORD                             ARITH    6185
                          43052                   MX0    60-L.CONST                                              ARITH    6186
                               20336              LX3    60-P.CONST                                              ARITH    6187
          5442  15430                             BX4    -X0*X3            GET CONSTANT FIELD                    ARITH    6188
                     43056                        MX0    60-L.CORD                                               ARITH    6189
                          15340                   BX3    -X0*X4            GET CONSTANT ORDINAL                  ARITH    6190
                               20456              LX4    59-P.COV                                                ARITH    6191
          5443  0334005464 +                      NG     X4,STRCK9.        BRANCH IF VARIABLE AFTER RELATIONAL   ARITH    6192
                          20473                   LX4    P.COV-P.GCF                                             ARITH    6193
          5444  0324005454 +                      PL     X4,STRCK6.        BRANCH IF CONS IN REAL TABLE          ARITH    6194
                          43070                   MX0    60-L.TYP                                                ARITH    6195
                               15740              BX7    -X0*X4            GET CONSTANT TYPE                     ARITH    6196
          5445  66150                             SB1    B5                                                      ARITH    6197
                     5120000000 X                 SA2    O.GCON            START OF GLOBAL CONS TABLE            ARITH    6198
                               63330              SB3    X3                                                      ARITH    6199
          5446  53123                             SA1    X2+B3             LOAD CONSTANT                         ARITH    6200
                     6247777774                   SB4    X7-T.DBL                                                ARITH    6201
          5447  6237777773                        SB3    X7-T.CPLX                                               ARITH    6202
                          0540005451 +            NZ     B4,STRCK5.        IF NOT DOUBLE WORD                    ARITH    6203
          5450  0530005451 +                      NZ     B3,STRCK5.        IF NOT DOUBLE WORD                    ARITH    6204
                          66155                   SB1    B5+B5             IF DOUBLE WORD CONSTANT               ARITH    6205
                               54215              SA2    A1+B5             SECOND HALF OF CONSTANT               ARITH    6206
          5451  0100000000 X             STRCK5.  RJ     CONVERT           PLACE IN CONS TABLE                   ARITH    6207
          5452  10611                             BX6    X1                                                      ARITH    6208
                     5160001123 +                 SA6    DBGAPL+2          FORM ARGLIST TABLE                    ARITH    6209
                               43700              MX7    0                                                       ARITH    6210
          5453  54765                             SA7    A6+B5                                                   ARITH    6211
                     0400005400 +                 EQ     STRCK2.                                                 ARITH    6212
          5454  5110000000 X             STRCK6.  SA1    CON.              CONSTANT TABLE ORDINAL                ARITH    6213
                          20336                   LX3    30                                                      ARITH    6214
                               12631              BX6    X3+X1             IH OF CONSTANT                        ARITH    6215
          5455  5160001123 +                      SA6    DBGAPL+2          FORM ARGLIST TABLE                    ARITH    6216
                          43700                   MX7    0                                                       ARITH    6217
                               54765              SA7    A6+B5                                                   ARITH    6218
          5456  0400005400 +                      EQ     STRCK2.                                                 ARITH    6219
          5457  5130000307 +             STRCK7.  SA3    TS1+5                                                   ARITH    6220
                          0313005423 +            NZ     X3,STRCK8.        IF MORE TO LINK                       ARITH    6221
          5460  5110001126 +                      SA1    RL1TS                                                   ARITH    6222
                          5120001127 +            SA2    RL2TS                                                   ARITH    6223
          5461  10611                             BX6    X1                                                      ARITH    6224
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   129
         STORES PROCESSING                                            STRCK 
  
                     22702                        LX7    X2                                                      ARITH    6225
                          5160000031 +            SA6    RL1               RESTORE SAVED VALUES                  ARITH    6226
          5462  5170000032 +                      SA7    RL2                                                     ARITH    6227
                          5160001133 +            SA6    WLSTR             SET FLAG NON ZERO                     ARITH    6228
          5463  0400005346 +                      EQ     STRCK                                                   ARITH    6229
          5464  43060                    STRCK9.  MX0    60-12                                                   ARITH    6230
                     15630                        BX6    -X0*X3            VARIABLE ORDINAL                      ARITH    6231
                          5160001123 +            SA6    DBGAPL+2          FORM ARGLIST TABLE                    ARITH    6232
          5465  43700                             MX7    0                                                       ARITH    6233
                     54765                        SA7    A6+B5                                                   ARITH    6234
                          0400005400 +            EQ     STRCK2.                                                 ARITH    6235
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   130
  
  
          5466  5110000032 +             OUT3     SA1       RL2                                                  ARITH    6238
                          10611                   BX6    X1                                                      ARITH    6239
          5467  5160000351 +                      SA6       EXPRIA    SAVE ADR OF EXPR RESULT INSTR              ARITH    6240
                                        *     OUT IF NORMAL ARITH EXIT                                           ARITH    6241
          5470  5110000376 +             OUT      SA1       SFRSTB                                               ARITH    6242
                          0301005513 +            ZR     X1,OUT6     IF NO FUNCTION RESULTS SAVED                FCC1590X   16
          5471  5130000064                        SA3       NARN                                                 ARITH    6244
                          5120000005 C            SA2       ARLPT                                                ARITH    6245
          5472  10633                             BX6    X3                                                      ARITH    6246
                     23702                        AX7    B0,X2                                                   ARITH    6247
                          5160000302 +            SA6       TS1       SAVED NARN                                 ARITH    6248
          5473  5170000303 +                      SA7       TS1+1       11  ARLPT                                ARITH    6249
          5474  5221000144 +             OUT2     SA2    X1+FRSTB-1                                              ARITH    6250
                          7261777776              SX6    X1-1                                                    ARITH    6251
          5475  10322                             BX3    X2           PREPARE FOR CALL OF FETCH                  ARITH    6252
                     5160000304 +                 SA6       TS1+2     FUNC RESULT CNT                            ARITH    6253
                               21242              AX2    34                                                      ARITH    6254
          5476  73720                             SX7    X2                EQUAL SIGN COUNT                      ARITH    6255
                     0317005506 +                 NZ     X7,OUT4           FUNCTION RESULT NOT FROM MAIN EXPSSON ARITH    6256
                               10233              BX2    X3                                                      ARITH    6257
          5477  21272                             AX2       58        RIGHT ADJ.DBL WD EL FLAG BIT               ARITH    6258
                     7262000002                   SX6    X2+T.REAL         REAL IF SINGLE, DBL IF DOUBLE         ARITH    6259
                               20670              LX6    P.TYP             PLACE IN TYPE FIELD                   ARITH    6260
          5500  5160000326 +                      SA6       NAME+1                                               ARITH    6261
                          43054                   MX0       60-16     SET UP NAME OF RESULT SAVED                ARITH    6262
                               15730              BX7   -X0*X3                                                   ARITH    6263
          5501  5170000064                        SA7       NARN                                                 ARITH    6264
                          66600                   SB6    B0                                                      ARITH    6265
                               21320              AX3    16                                                      ARITH    6266
          5502  63730                             SB7    X3                CA OF ST.                             ARITH    6267
                     5150000000 X                 SA5    ST.               IH OF ST.                             ARITH    6268
                               76600              SX6    B0                                                      ARITH    6269
          5503  5160000035 +                      SA6    IDORDLTS                                                ARITH    6270
                          5066000001              SA6    A6+1                                                    ARITH    6271
          5504  0100005650 +                      RJ        FETCH                                                ARITH    6272
          5505  5110000304 +                      SA1       TS1+2                                                ARITH    6273
                          0311005474 +            NZ     X1,OUT2      IF MORE FRSTB ENTRIES                      ARITH    6274
          5506                           OUT4     BSS    0                                                       ARITH    6275
          5506  5140000303 +                      SA4       TS1+1     OUTPUT THE LOADS TO RLIST                  ARITH    6276
                          5150000005 C            SA5       ARLPT                                                ARITH    6277
          5507  10644                             BX6    X4                                                      ARITH    6278
                     5160000005 C                 SA6       ARLPT                                                ARITH    6279
          5510  0100006137 +                      RJ        DARLIST                                              ARITH    6280
          5511  5110000302 +                      SA1       TS1                                                  ARITH    6281
                          10611                   BX6    X1                                                      ARITH    6282
          5512  5160000064                        SA6       NARN                                                 ARITH    6283
          5513  5140000012 +             OUT6     SA4    ARLST             RESET APL POINTER FOR SUBROUTINE APL  ARITH    6322
                          5150000005 C            SA5       ARLPT                                                ARITH    6323
          5514  0100006137 +                      RJ        DARLIST                                              ARITH    6324
          5515  5120000401 +                      SA2    IXFNFG                                                  ARITH    6325
                          0312006643 +            NZ     X2,IXFN7          RETURN TO IXFN PROCESSOR              ARITH    6326
          5516  0400006764 +                      ZR        ARITH                                                ARITH    6327
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   131
        SUBROUTINES                                                   FNDOP 
  
                                        **        FNDOP - FIND FIRST UNUSED OPERAND PRECEDING RL2.               FCC0418    18
                                        *         OPERANDS WITH GPTU BIT SET, AS WELL AS THOSE WHICH HAVE BEEN   FCC0418    19
                                        *         NO-OPED, ARE PASSED OVER.                                      FCC0418    20
                                        *                                                                        FCC0418    21
                                        *         EXIT   X6 - ADDRESS OF FOUND OPERAND, OR 0 IF NONE EXISTS.     FCC0418    22
                                        *                                                                        FCC0418    23
                                        *         PRESERVES  B1.                                                 FCC0418    24
                                                                                                                 FCC0418    25
          5517  0400405517 +             FNDOP    ENTRY. *           ** ENTRY/EXIT **                            FCC0418    26
          5520  5110000032 +                      SA1    RL2                                                     FCC0418    27
                          5130005526 +            SA3    FNDOPA                                                  FCC0418    28
          5521  43600                             MX6    0                                                       FCC0418    29
                     53210                        SA2    X1                                                      FCC0418    30
                          63210                   SB2    X1                                                      FCC0418    31
                               14222              BX2    -X2         SIMULATE NO-OP FOR RL2                      FCC0418    32
                                                                                                                 FCC0418    33
          5522  0420005517 +             FNDOP1   ZR     B2,FNDOP    IF NO PRECEDING ENTRY                       FCC0418    34
                          10022                   BX0    X2                                                      FCC0418    35
                               21273              AX2    59                                                      FCC0418    36
          5523  13120                             BX1    X2-X0                                                   FCC0418    37
                     6221000000                   SB2    X1+         LENGTH OF PRECEDING ENTRY                   FCC0418    38
                               11030              BX0    X3*X0                                                   FCC0418    39
          5524  55222                             SA2    A2-B2       LOAD HEADER OF PRECEDING ENTRY              FCC0418    40
                     0310005522 +                 NZ     X0,FNDOP1   IF ENTRY NO-OPED, USED OR GPTU              FCC0418    41
                               74622              SX6    A2+B2       RESTORE ADDRESS OF NEXT ENTRY               FCC0418    42
          5525  0400005517 +                      EQ     FNDOP                                                   FCC0418    43
                                                                                                                 FCC0418    44
          5526  40003000000000000000     FNDOPA   CON    1S59+1S46+1S45    NO-OP .OR. USED .OR. GPTU BITS        FCC0418    45
  
  
  
  
                                        **        CLGP - CLEAR GPTU BIT.                                         FCC0418    47
                                        *         CLEAR GPTU BIT OF FIRST ENTRY IN ARLIST PRECEDING RL2 WITH     FCC0418    48
                                        *         THAT BIT SET.                                                  FCC0418    49
                                                                                                                 FCC0418    50
          5527  0430005533 +             CLGP1    ZR     B3,CLGP     IF NO PRECEDING ENTRY                       FCC0418    51
                          10022                   BX0    X2                                                      FCC0418    52
                               21273              AX2    59                                                      FCC0418    53
          5530  17602                             BX6    -X2-X0                                                  FCC0418    54
                     63360                        SB3    X6          LENGTH OF PRECEDING ENTRY                   FCC0418    55
                          20615                   LX6    59-46                                                   FCC0418    56
                               12360              BX3    X6+X0                                                   FCC0418    57
          5531  54223                             SA2    A2+B3       HEADER OF PRECEDING ENTRY                   FCC0418    58
                     0333005527 +                 MI     X3,CLGP1    IF ENTRY NO-OPED OR NOT GPTU                FCC0418    59
                                                                                                                 FCC0418    60
                                        *         CLEAR GPTU BIT.                                                FCC0418    61
                                                                                                                 FCC0418    62
                               43401              MX4    1                                                       FCC0418    63
          5532  20457                             LX4    1+46                                                    FCC0418    64
                     15704                        BX7    -X4*X0                                                  FCC0418    65
                          55723                   SA7    A2-B3                                                   FCC0418    66
                                                                                                                 FCC0418    67
          5533  0400405533 +             CLGP     ENTRY. *           ** ENTRY/EXIT **                            FCC0418    68
          5534  5110000032 +                      SA1    RL2                                                     FCC0418    69
                          5221000000              SA2    X1+                                                     FCC0418    70
          5535  14222                             BX2    -X2         SIMULATE NO-OP FOR RL2                      FCC0418    71
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   132
        SUBROUTINES 
  
                     63310                        SB3    X1                                                      FCC0418    72
                          0400005527 +            EQ     CLGP1                                                   FCC0418    73
  
  
  
          5536  0400405536 +             CHKOFF   ENTRY. *                 ** ENTRY/EXIT **                      ARITH    6368
          5537  5110000032 +                      SA1       RL2       TURN ON USED BIT OF ENTRY AT RL2           ARITH    6369
                          43001                   MX0       1                                                    ARITH    6370
                               53210              SA2    X1                                                      ARITH    6371
          5540  20056                             LX0       46                                                   ARITH    6372
                     12702                        BX7    X0+X2                                                   ARITH    6373
                          53710                   SA7    X1                                                      ARITH    6374
          5541  5120000031 +                      SA2       RL1       ADJUST RLS                                 ARITH    6375
                          10622                   BX6    X2                                                      ARITH    6376
          5542  5160000032 +                      SA6       RL2                                                  ARITH    6377
                          0100005517 +            RJ        FNDOP                                                ARITH    6378
          5543  5160000031 +                      SA6       RL1                                                  ARITH    6379
                          0400005536 +            ZR        CHKOFF                                               ARITH    6380
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   133
        SUBROUTINES 
  
                                        *     UINGEN: OUTPUTS UNARY OPERATORS WITH RL2 INDICATING OPERAND.  TYPE ARITH    6382
                                        ** OF RESULT WILL BE SAME AS OPD,S.   COME WITH X6=MACRO CODE            ARITH    6383
                                        ** IF OPD TYPE IS DBL/CMPX, UINGEN ADDS 1 TO MAC CODE IN S6.             ARITH    6384
                                        *  IF .NOT. HAS A DBL OPD, IT WILL BE CHANGED TO SNGL BEFORE CALL UINGEN ARITH    6385
          5544  0400405544 +             UINGEN   ENTRY. *                 ** ENTRY/EXIT **                      ARITH    6386
          5545  5110000032 +                      SA1       RL2                                                  ARITH    6387
                          53210                   SA2    X1                                                      ARITH    6388
                               26022              UX0 B2,X2                                                      ARITH    6389
          5546  20214                             LX2       59-47                                                ARITH    6390
                     0322005556 +                 PL     X2,UINGN3    IF NOT CONST OPD                           ARITH    6391
                               76720              SX7    B2                                                      ARITH    6392
          5547  6236777545                        SB3    X6-MAC-43                                               ARITH    6393
                          0530005556 +            NZ     B3,UINGN3         NOT U-                                ARITH    6394
          5550  6130000003                        SB3    T.DBL                                                   ARITH    6395
                          6140000004              SB4    T.CPLX                                                  ARITH    6396
          5551  0423005556 +                      EQ  B2,B3,UINGN3    IF DBL U-                                  ARITH    6397
                          0424005556 +            EQ  B2,B4,UINGN3    IF CPX U-                                  ARITH    6398
          5552  5170000323 +                      SA7       TYPEWD    HERE FOR COMPILE TIME U-                   ARITH    6399
                          53110                   SA1    X1                                                      ARITH    6400
          5553  0100006211 +                      RJ        NEWCON    NO-OP OLD CONST AND GET VALUE              ARITH    6401
          5554  14666                             BX6   -X6                                                      ARITH    6402
                     0100006432 +                 RJ     OPNCON       OUTPUT NEW CONSTANT                        ARITH    6403
          5555  0400005544 +                      ZR        UINGEN                                               ARITH    6404
          5556  5110000032 +             UINGN3   SA1       RL2                                                  ARITH    6405
                          43001                   MX0       1                                                    ARITH    6406
                               53210              SA2    X1           TURN ON USED BIT                           ARITH    6407
          5557  20056                             LX0       46                                                   ARITH    6408
                     12720                        BX7    X2+X0                                                   ARITH    6409
                          26022                   UX0 B2,X2           GET TYPE IN X5                             ARITH    6410
                               53710              SA7    X1                                                      ARITH    6411
          5560  76520                             SX5    B2                                                      ARITH    6412
                     5221000002                   SA2    X1+2         GET RN OF OPD                              ARITH    6413
                               43054              MX0    60-16                                                   ARITH    6414
          5561  15720                             BX7   -X0*X2                                                   ARITH    6415
                     5170000014 +                 SA7    PARAMS+1                                                ARITH    6416
          5562  7277000001                        SX7    X7+1         IN CASE DBL LENGTH                         ARITH    6417
                          5170000016 +            SA7       PARAMS+3                                             ARITH    6418
          5563  5120000064                        SA2    NARN         GET RESULT NO.                             ARITH    6419
                          10722                   BX7    X2                                                      ARITH    6420
          5564  5170000013 +                      SA7    PARAMS       RI                                         ARITH    6421
                          7272000001              SX7    X2+1         UPDATE RN                                  ARITH    6422
          5565  5130001064 +                      SA3       SLBMD                                                ARITH    6423
                          5170000015 +            SA7       PARAMS+2                                             ARITH    6424
          5566  6130000003                        SB3    T.DBL                                                   ARITH    6425
                          6140000004              SB4    T.CPLX                                                  ARITH    6426
          5567  0423005570 +                      EQ  B2,B3,UINGN2                                               ARITH    6427
                          0524005572 +            NE  B2,B4,UINGN1                                               ARITH    6428
          5570  7277000001               UINGN2   SX7    X7+1                                                    ARITH    6429
                          5130001065 +            SA3       DLBMD                                                ARITH    6430
          5571  7266000001                        SX6    X6+1                                                    ARITH    6431
          5572  5170000064               UINGN1   SA7       NARN                                                 ARITH    6432
                          63260                   SB2    X6                                                      ARITH    6433
                               27323              PX3    B2,X3                                                   ARITH    6434
          5573  0100005576 +                      RJ        MACOUT                                               ARITH    6435
          5574  0100005517 +                      RJ        FNDOP                                                ARITH    6436
          5575  5160000031 +                      SA6    RL1                                                     ARITH    6437
                          0400005544 +            ZR        UINGEN    END OF UINGEN                              ARITH    6438
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   134
             MACOUT--OUTPUT R-LIST MACROS TO 'ARLIST' BUFFER
  
                                        ************************************************************************ ARITH    6441
                                        *                                                                      * ARITH    6442
                                        *                M  A  C  O  U  T                                      * ARITH    6443
                                        *                                                                      * ARITH    6444
                                        *              THIS ROUTINE WILL OUTPUT A DESIGNATED R-LIST MACRO TO   * ARITH    6445
                                        *         THE 'ARLIST' BUFFER AREA, PACKING THE PARAMETERS SUPPLIED IN * ARITH    6446
                                        *         THE 'PARAM' AREA (ONE PER WORD, RIGHT-JUSTIFIED).  UPON      * ARITH    6447
                                        *         ENTRY TO  'MACOUT' THE FOLLOWING REGISTERS MUST HAVE BEEN    * ARITH    6448
                                        *         SETUP:                                                       * ARITH    6449
                                        *                                                                      * ARITH    6450
                                        *                X2      -- RI                                         * ARITH    6451
                                        *                X3      -- 'ARITH'S MACRO DESCRIPTOR WORD             * ARITH    6452
                                        *                X5      -- TYPE OF RESULT                             * ARITH    6453
                                        *                PARAMS -- MACRO PARAMETERS (ONE PER WORD)             * ARITH    6454
                                        *                                A)  SYMBOLS   (IF ANY)                * ARITH    6455
                                        *                                B)  R-S       (IF ANY)                * ARITH    6456
                                        *                                C)  CONSTANTS (IF ANY)                * ARITH    6457
                                        *                                                                      * ARITH    6458
                                        *              UPON EXIT FROM 'MACOUT' THE FOLLOWING INFORMATION WILL  * ARITH    6459
                                        *         BE AVAILABLE:                                                * ARITH    6460
                                        *                                                                      * ARITH    6461
                                        *                X7      -- ADDRESS OF R-LIST MACRO ENTRY IN 'ARLIST'  * ARITH    6462
                                        *                B1      -- CONTENTS UNDISTURBED                       * ARITH    6463
                                        *                RL1     -- UPDATED                                    * ARITH    6464
                                        *                RL2     -- UPDATED                                    * ARITH    6465
                                        *                ARLPT   -- UPDATED                                    * ARITH    6466
                                        *                LASTR   -- UPDATED                                    * ARITH    6467
                                        *                                                                      * ARITH    6468
                                        ************************************************************************ ARITH    6469
  
          5576                     1    MACOUT    BSS    1                                                       ARITH    6471
          5577  26423                             UX4    X3,B2           EXTRACT THE R-LIST MACRO OPCODE AND THE ARITH    6472
                     43060                        MX0    60-12             NUMBER OF PARAMETER WORDS WHICH WILL  ARITH    6473
                          20430                   LX4    24                FOLLOW (IN PACKED FORM).              ARITH    6474
                               15640              BX6    -X0*X4                                                  ARITH    6475
          5600  6246774577                        SB4    X6-ARLSZ                                                ARITH    6476
                          5110000005 C            SA1    ARLPT           LOAD THE CURRENT 'ARLIST' POINTER.      ARITH    6477
          5601  67202                             SB2    -B2             (COMPLEMENT THE MACRO OPCODE)           ARITH    6478
                     20636                        LX6    30                                                      ARITH    6479
                          36462                   IX4    X6+X2                                                   ARITH    6480
                               27724              PX7    X4,B2                                                   ARITH    6481
          5602  6271000003                        SB7    X1+3                                                    ARITH    6482
                          66447                   SB4    B4+B7                                                   ARITH    6483
                               15130              BX1    -X0*X3          (EXTRACT THE NUMBER OF SYMBOLIC         ARITH    6484
          5603  63610                             SB6    X1                PARAMETERS FOR THIS MACRO.)           ARITH    6485
                     0640005647 +                 PL     B4,ARLOVER      IF THE 'ARLIST' BUFFER WILL OVERFLOW    ARITH    6486
          5604  5177777776                        SA7    B7+ARLIST-1     STORE THE MACRO HEADER WORD INTO THE    ARITH    6487
                                                                           'ARLIST' AREA.                        ARITH    6488
          7640  20360000000000005604 +            SUB                                                            ARITH    6489
                          6150000001              SB5    1               (SET A CONSTANT ONE FOR THE  REMAINDER  ARITH    6490
                                                                           OF THIS ROUTINE ONLY.)                ARITH    6491
          5605  6120000013 +                      SB2    PARAMS                                                  ARITH    6492
                          6140000060              SB4    48                                                      ARITH    6493
          5606  0301005615 +                      ZR     X1,MACOUT.4     IF THERE ARE NO SYMBOLIC PARAMETERS     ARITH    6494
          5607  43136                   MACOUT.1  MX1    60-30           FORM A MASK TO EXTRACT SYMBOLIC FIELDS. ARITH    6495
                     13666                        BX6    X6-X6           CLEAR THE PACKED PARAMETER ACCUMULATOR. ARITH    6496
                          66300                   SB3    B0              INITIALIZE THE SHIFT COUNT.             ARITH    6497
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   135
             MACOUT--OUTPUT R-LIST MACROS TO 'ARLIST' BUFFER
  
          5610  56220                   MACOUT.2  SA2    B2              FETCH THE NEXT PARAMETER.               ARITH    6498
                     67665                        SB6    B6-B5           DECREMENT THE NUMBER OF SYMBOLS.        ARITH    6499
                          15721                   BX7    -X1*X2          EXTRACT THE SYMBOL FIELD.               ARITH    6500
                               22237              LX2    X7,B3           POSITION THE SYMBOL FOR PACKING.        ARITH    6501
          5611  66225                             SB2    B2+B5           INCREMENT THE 'PARAM' ADDRESS.          ARITH    6502
                     12626                        BX6    X2+X6           PACK IN THESYMBOL.                      ARITH    6503
                          6133000036              SB3    B3+30           INCREMENT THE SHIFT COUNT.              ARITH    6504
          5612  0460005613 +                      ZR     B6,MACOUT.3     IF NO MORE SYMBOLS                      ARITH    6505
                          0734005610 +            LT     B3,B4,MACOUT.2  IF ROOM FOR MORE IN CURRENT PARAM WORD  ARITH    6506
          5613  5167000000              MACOUT.3  SA6    B7+ARLIST       STORE THE PACKED PARAMETER WORD.        ARITH    6507
          7641  20360000000000005613 +            SUB                                                            ARITH    6508
                          66775                   SB7    B7+B5           INCREMENT THE 'ARLIST' POINTER ADDRESS. ARITH    6509
          5614  0560005607 +                      NZ     B6,MACOUT.1     IF MORE SYMBOLS                         ARITH    6510
          5615  21314                   MACOUT.4  AX3    12              EXTRACT THE NUMBER OF R-S.              ARITH    6511
                     15130                        BX1    -X0*X3                                                  ARITH    6512
                          63610                   SB6    X1                                                      ARITH    6513
                               21314              AX3    12                                                      ARITH    6514
          5616  15330                             BX3    -X0*X3                                                  ARITH    6515
                     0301005625 +                 ZR     X1,MACOUT.8     IF NO R-PARAMETERS                      ARITH    6516
                               43154              MX1    60-16                                                   ARITH    6517
          5617  13666                   MACOUT.5  BX6    X6-X6           CLEAR THE PARAMETER ACCUMULATOR.        ARITH    6518
                     66300                        SB3    B0              INITIALIZE THE SHIFT COUNT.             ARITH    6519
          5620  56220                   MACOUT.6  SA2    B2              FETCH THE NEXT R-PARAMETER.             ARITH    6520
                     67665                        SB6    B6-B5           DECREMENT THE COUNT OF R-PARAMETERS     ARITH    6521
                          15721                   BX7    -X1*X2          EXTRACT THE R-PARMAETER.                ARITH    6522
                               22237              LX2    X7,B3                                                   ARITH    6523
          5621  36662                             IX6    X6+X2                                                   ARITH    6524
                     66225                        SB2    B2+B5           INCREMENT THE 'PARAM' ADDRESS.          ARITH    6525
                          6133000020              SB3    B3+16           INCREMENT THE SHIFT COUNT.              ARITH    6526
          5622  0460005623 +                      ZR     B6,MACOUT.7     IF NO MORE R-PARAMETERS                 ARITH    6527
                          0734005620 +            LT     B3,B4,MACOUT.6  IF ROOM FOR MORE R-PARAMETERS           ARITH    6528
          5623  5167000000              MACOUT.7  SA6    B7+ARLIST       STORE THE PACKED PARAMETER WORD.        ARITH    6529
          7642  20360000000000005623 +            SUB                                                            ARITH    6530
                          66775                   SB7    B7+B5           INCREMENT THE 'ARLIST' POINTER.         ARITH    6531
          5624  0560005617 +                      NZ     B6,MACOUT.5     IF MORE R-PARAMETERS                    ARITH    6532
          5625  0303005634 +             MACOUT.8 ZR     X3,MACOUT.C     IF NO CONSTANT PARAMETERS               ARITH    6533
                          63630                   SB6    X3                                                      ARITH    6534
                               43152              MX1    60-18           SET UP MASK TO EXTRACT CONSTANTS.       ARITH    6535
          5626  13666                   MACOUT.9  BX6    X6-X6           CLEAR THEPACKED PARAMETER ACCUMULATOR.  ARITH    6536
                     66300                        SB3    B0              INITIALIZE THE SHIFT COUNT.             ARITH    6537
          5627  56220                   MACOUT.A  SA2    B2              FETCH THE NEXT CONSTANT PARAMETER.      ARITH    6538
                     67665                        SB6    B6-B5           DECREMENT THE COUNT OF CONSTANT         ARITH    6539
                                                                           PARAMETRS.                            ARITH    6540
                          15721                   BX7    -X1*X2          EXTRACT THE CONSTANT                    ARITH    6541
                               22237              LX2    X7,B3           POSITION THE CONSTANT FOR PACKING.      ARITH    6542
          5630  36662                             IX6    X6+X2             (AND PACK IT)                         ARITH    6543
                     66225                        SB2    B2+B5           INCREMENT THE 'PARAM' ADDRESS.          ARITH    6544
                          6133000022              SB3    B3+18           INCREMENT THE SHIFT COUNT.              ARITH    6545
          5631  0460005632 +                      ZR     B6,MACOUT.B     IF NO CONSTANTS PARAMETERS REMAIN       ARITH    6546
                          0734005627 +            LT     B3,B4,MACOUT.A  IF MORE ROOM REMAINS FOR CONSTANTS THEN ARITH    6547
          5632  5167000000              MACOUT.B  SA6    B7+ARLIST       STORE THE  PACKED CONSTANT PARAMETERS.  ARITH    6548
          7643  20360000000000005632 +            SUB                                                            ARITH    6549
                          66775                   SB7    B7+B5           INCREMENT THE 'ARLIST' POINTER ADDRESS. ARITH    6550
          5633  0560005626 +                      NZ     B6,MACOUT.9     IF MORE CONSTANTS THEN GO TO 'MACOUT.9' ARITH    6551
          5634  5110000005 C            MACOUT.C  SA1    ARLPT                                                   ARITH    6552
                          76770                   SX7    B7              (CURRENT 'ARLIST' POINTER)              ARITH    6553
                               37671              IX6    X7-X1           (NUMBER OF WORDS IN 'ARLIST' ENTRY.)    ARITH    6554
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   136
             MACOUT--OUTPUT R-LIST MACROS TO 'ARLIST' BUFFER
  
          5635  5120001061 +                      SA2    LASTR           PICKUP THE FIRST WORD OF THE LAST ENTRY ARITH    6555
                          53420                   SA4    X2                                                      ARITH    6556
                               54710              SA7    A1              UPDATE THE VALUE OF 'ARLPT'.            ARITH    6557
          5636  0311005637 +                      NZ     X1,MACOUT.D     IF THIS IS NOT THE FIRST 'ARLIST' ENTRY ARITH    6558
                          13444                   BX4    X4-X4           (OTHERWISE SET THE WORD COUNT TO ZERO.) ARITH    6559
          5637  10244                   MACOUT.D  BX2    X4                                                      ARITH    6560
                     21273                        AX2    59                                                      ARITH    6561
                          13424                   BX4    X2-X4           MAKE SURE THE WORD IS POSITIVE (INCASE  ARITH    6562
                                                                           THE LAST ENTRY WAS NO-OPED)           ARITH    6563
                               21422              AX4    18              EXTRACT THE NUMBER OF WORDS IN THE      ARITH    6564
          5640  15440                             BX4    -X0*X4            PRECEEDING ENTRY.                     ARITH    6565
                     20622                        LX6    18                                                      ARITH    6566
                          12446                   BX4    X4+X6                                                   ARITH    6567
                               63650              SB6    X5                                                      ARITH    6568
          5641  5120000005 +                      SA2    EQCOUNT           EQUAL SIGN COUNTER                    ARITH    6569
                          73320                   SX3    X2                                                      ARITH    6570
                               20345              LX3    37                                                      ARITH    6571
          5642  12443                             BX4    X4+X3             INSERT IN HEADER WORD                 ARITH    6572
                     27664                        PX6    X4,B6           PACK THE TYPE OF RESULT INTO THE        ARITH    6573
                          5261000000              SA6    X1+ARLIST         'ARLIST' HEADER WORD AND STORE IT.    ARITH    6574
          7644  20740000000000005642 +            SUB                                                            ARITH    6575
          5643  13777                             BX7    X7-X7                                                   ARITH    6576
                     5271000001                   SA7    X1+ARLIST+1     (STORE ZERO INTO THE SECOND WORD OF THE ARITH    6577
                                                                           'ARLIST' ENTRY.)                      ARITH    6578
          7645  20170000000000005643 +            SUB                                                            ARITH    6579
                               74760              SX7    A6              UPDATE THE RL-S (REGISTER X6 WILL       ARITH    6580
          5644  5120000032 +                      SA2    RL2               CONTAIN THE ADDRESS OF THE NEW        ARITH    6581
                          5170000032 +            SA7    RL2               'ARLIST' ENTRY.)                      ARITH    6582
          5645  10622                             BX6    X2                                                      ARITH    6583
                     5160000031 +                 SA6    RL1                                                     ARITH    6584
          5646  5170001061 +                      SA7    LASTR           UPDATE 'LASTR'.                         ARITH    6585
                          0400005576 +            EQ     MACOUT      EXIT                                        ARITH    6586
                                                                                                                 ARITH    6587
          5647                          ARLOVER   BSS    0                                                       ARITH    6588
                                5647 +  MAC1D     EQU    ARLOVER                                                 ARITH    6589
          5647  6160000234                        EERR   ERMSG22         'ARITH'S 'ARLIST' BLOCK FULL            ARITH    6590
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   137
             MACOUT--OUTPUT R-LIST MACROS TO 'ARLIST' BUFFER          FETCH 
  
                                        **        FETCH - OUTPUT A LOAD MACRO FOR A VARIABLE                     ARITH    6592
                                        *         ENTRY  (B6) = RF                                               ARITH    6593
                                        *                (B7) = CA                                               ARITH    6594
                                        *                (X5) = IH ( SYMTAB ORD )                                ARITH    6595
                                        *                IDLORTS = 60/IH,60/CA                                   ARITH    6596
                                        *                UPDATES NARN                                            ARITH    6597
                                                                                                                 ARITH    6598
          5650  0400405650 +             FETCH    ENTRY. *                 ** ENTRY/EXIT **                      ARITH    6599
          5651  10655                             BX6    X5                                                      ARITH    6600
                     5160000013 +                 SA6       PARAMS    (I,H)                                      ARITH    6601
                               76760              SX7    B6                                                      ARITH    6602
          5652  5170000015 +                      SA7    PARAMS+2     RF                                         ARITH    6603
                          76670                   SX6    B7                                                      ARITH    6604
          5653  5120000064                        SA2    NARN         NEXT AVAILABLE RN                          ARITH    6605
                          10722                   BX7    X2                                                      ARITH    6606
                               43070              MX0    60-L.TYP                                                ARITH    6607
          5654  5170000014 +                      SA7    PARAMS+1     RI                                         ARITH    6608
                          5110000326 +            SA1    NAME+1       GET 2ND WD OF ID TO SEE IF DBL WD ELEMENT  ARITH    6609
          5655  20104                             LX1    60-P.TYP                                                ARITH    6610
                     15510                        BX5    -X0*X1       X5 NOW HOLDS TYPE OF OPD                   ARITH    6611
                          7215777774              SX1    X5-T.DBL                                                ARITH    6612
          5656  7205777773                        SX0    X5-T.CPLX                                               ARITH    6613
                          0301005667 +            ZR     X1,FECH2     IF DOUBLE                                  ARITH    6614
          5657  0300005667 +                      ZR     X0,FECH2     IF CMPX                                    ARITH    6615
                          5160000016 +            SA6    PARAMS+3    CA                                          ARITH    6616
          5660  5130000414 +                      SA3    SLDMAC       SINGLE LOAD MACRO DESCRIPTOR.              ARITH    6617
          5661  7277000001               FECH3    SX7    X7+1         UPDATE NARN                                ARITH    6618
                          5170000064              SA7    NARN                                                    ARITH    6619
          5662  0100005576 +                      RJ        MACOUT                                               ARITH    6620
          5663  5120000036 +                      SA2    IDORDLTS+1                                              ARITH    6621
                          43152                   MX1    -18                                                     ARITH    6622
                               15221              BX2    -X1*X2                                                  ARITH    6623
          5664  5110001061 +                      SA1    LASTR                                                   ARITH    6624
                          20222                   LX2    18                                                      ARITH    6625
          5665  5032777776                        SA3    A2-1                                                    ARITH    6626
                          12623                   BX6    X2+X3                                                   ARITH    6627
          5666  5261000001                        SA6    X1+1              SAVE ORIGINAL IH,CA IN MACRO HEADER   ARITH    6628
                          0400005650 +            ZR        FETCH                                                ARITH    6629
                                        *     FECH2 IF DOUBLE WORD ELEMENT                                       ARITH    6630
          5667  5160000017 +             FECH2    SA6    PARAMS+4     CA                                         ARITH    6631
                          7277000001              SX7    X7+1                                                    ARITH    6632
          5670  5170000016 +                      SA7    PARAMS+3     RII                                        ARITH    6633
                          7266000001              SX6    X6+1                                                    ARITH    6634
          5671  5160000020 +                      SA6    PARAMS+5     CA+1                                       ARITH    6635
                          5130000407 +            SA3    DLMAC                                                   ARITH    6636
          5672  0400005661 +                      ZR        FECH3                                                ARITH    6637
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   138
             MACOUT--OUTPUT R-LIST MACROS TO 'ARLIST' BUFFER
  
                                        *                                                                        ARITH    6639
                                        *         ROUTINE TO SEE IF CONST CAN BE EXPRESSED                       ARITH    6640
                                        *         IS OF THE FORM -(2**N - 1)                                     ARITH    6641
                                        *                COME WITH CONST IN X5                                   ARITH    6642
                                        *                LEAVE WITH B3 = 0 IF SPECIAL CON                        ARITH    6643
                                        *                                                                        ARITH    6644
          5673  00000000000000000000    SPCON     DATA   0                                                       ARITH    6645
          5674  47655                             CX6    X5           COUNT ONES                                 ARITH    6646
                     7100000073                   SX0    59                                                      ARITH    6647
                               37206              IX2    X0-X6                                                   ARITH    6648
          5675  63320                             SB3    X2                                                      ARITH    6649
                     43001                        MX0    1                                                       ARITH    6650
                          14000                   BX0    -X0                                                     ARITH    6651
                               23030              AX0    B3,X0                                                   ARITH    6652
          5676  37250                             IX2    X5-X0        IS THIS A SPECIAL CONST                    ARITH    6653
                     7100000074                   SX0    60                                                      ARITH    6654
                               63300              SB3    X0                                                      ARITH    6655
          5677  0312005673 +                      NZ     X2,SPCON          NO SPECIAL CONSTANT                   ARITH    6656
                          37606                   IX6    X0-X6             NUMBER OF BITS IN MASK                ARITH    6657
          5700  6130000000                        SB3    0                                                       ARITH    6658
                          0400005673 +            ZR     SPCON                                                   ARITH    6659
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   139
        CHKARG - CHECK ARGUMENT TYPE                                  CHKARG
  
                                        ***                                                                      ARITH    6661
                                        *         CHKARG - CHECK ARGUMENT TYPE.                                  ARITH    6662
                                        *                                                                        ARITH    6663
                                        *         CHECKS TO ENSURE THAT THE ARGUMENT TYPE IN THE CALL TO A       ARITH    6664
                                        *         BASIC EXTERNAL FUNCTION OR AN INTRINSIC FUNCTION MATCHES THE   ARITH    6665
                                        *         REQUIRED ARGUMENT TYPE.                                        ARITH    6666
                                        *                                                                        ARITH    6667
                                        *         ENTRY - B2 = TYPE OF ACTUAL ARGUMENT.                          ARITH    6668
                                        *                 X2 = WORD 1 OF ARLIST ENTRY OF ACTUAL ARGUMENT.        ARITH    6669
                                        *                ACNT = ARGUMENT NUMBER.                                 ARITH    6670
                                        *                TYADR = HOLDS POINTER TO INF OR BEF TABLE ENTRY         ARITH    6671
                                        *                                                                        ARITH    6672
                                        *         EXIT - A FATAL ERROR IS ISSUED IF TYPES FAIL TO MATCH.         ARITH    6673
                                        *                                                                        ARITH    6674
                                        *         USES - X0,A1,X1,B3,B4.                                         ARITH    6675
                                                                                                                 ARITH    6676
                                                                                                                 ARITH    6677
          5701  0200405701 +             CHKARG   JP     *+1S17                                                  ARITH    6678
          5702  5110000042 +                      SA1    ACNT                                                    ARITH    6679
                          63310                   SB3    X1                SAVE ACTUAL NUMBER OF ARGUMENTS       ARITH    6680
          5703  5110000041 +                      SA1    FNAD              RETRIEVE NUMBER OF ARGS FOR THIS BEF  ARITH    6681
                          5211777776              SA1    X1-1                                                    ARITH    6682
          5704  43066                             MX0    -L.FARG                                                 ARITH    6683
                     20116                        LX1    -P.FARG                                                 ARITH    6684
                          15010                   BX0    -X0*X1            EXTRACT EXPECTED NUMBER OF ARGUMENTS  ARITH    6685
                               63400              SB4    X0                SAVE NUMBER OF ARGUMENTS EXPECTED     ARITH    6686
          5705  0643005707 +                      GE     B4,B3,CHKA0       IF NOT TOO MANY ARGUMENTS             ARITH    6687
                          0540005732 +            NZ     B4,CHKA7          IF NUMBER OF ARGS EXPECTED .NE. 0     ARITH    6688
          5706  20104                             LX1    P.FARG-P.INF-1                                          ARITH    6689
                     0321005732 +                 PL     X1,CHKA7          IF NOT INTRINSIC FUNCTION             ARITH    6690
          5707  43071                    CHKA0    MX0    -3                                                      ARITH    6691
                                        *                                  FOR INTRINSIC FUNCTIONS WITH MORE     ARITH    6692
                                        *                                  THAN 4 ARGUMENTS, ALL ARGUMENTS MUST  ARITH    6693
                                        *                                  BE THE SAME TYPE.  THEREFORE, THE     ARITH    6694
                                        *                                  ARGUMENT NUMBER MAY BE TREATED MOD 4  ARITH    6695
                                        *                                  FOR PURPOSES OF TYPE CHECKING.        ARITH    6696
                     76133                        SX1    B3+B3                                                   ARITH    6697
                          15110                   BX1    -X0*X1                                                  ARITH    6698
                               36011              IX0    X1+X1                                                   ARITH    6699
          5710  36001                             IX0    X0+X1                                                   ARITH    6700
                     63300                        SB3    X0          (B3) = 6*ACNT                               ARITH    6701
                          43066                   MX0    60-6                                                    ARITH    6702
          5711  5110000337 +                      SA1    EXRL1                                                   ARITH    6703
                          0311005701 +            NZ     X1,CHKARG   IF AN EXPONENTIAL DUMMY FUNCTION            ARITH    6704
          5712  5110000332 +                      SA1    TYADR                                                   ARITH    6705
                          5211000002              SA1    X1+2              TYPE WORD OF FUNCTION ENTRY           ARITH    6706
          5713  22131                             LX1    B3,X1                                                   ARITH    6707
                     15010                        BX0    -X0*X1      EXTRACT EXPECTED TYPE                       ARITH    6708
                          6240777776              SB4    X0-1        UNBIAS TYPE                                 ARITH    6709
          5714  0424005701 +                      EQ     B2,B4,CHKARG      IF CORRECT TYPE                       ARITH    6710
                          7104777770              SX0    B4-ANYSNGL                                              ARITH    6711
          5715  0330005725 +                      NG     X0,CHKA3    IF A SPECIFIC TYPE NEEDED                   ARITH    6712
                          6134777766              SB3    B4-ANY                                                  ARITH    6713
          5716  0430005701 +                      ZR     B3,CHKARG   IF TYPE ANY, NO NEED TO CHECK               ARITH    6714
                          6142777774              SB4    B2-DOUBLE                                               ARITH    6715
          5717  0440005722 +                      ZR     B4,CHKA1    IF DOUBLE                                   ARITH    6716
                          6142777773              SB4    B2-COMPLEX                                              ARITH    6717
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   140
        CHKARG - CHECK ARGUMENT TYPE                                  CHKARG
  
          5720  0440005722 +                      ZR     B4,CHKA1    IF COMPLEX                                  ARITH    6718
                          0300005701 +            ZR     X0,CHKARG   IF ANYSNGL AND NOT DBL/CMPLX                ARITH    6719
          5721  0400005723 +                      EQ     CHKA2                                                   ARITH    6720
          5722  0310005701 +             CHKA1    NZ     X0,CHKARG   IF DBL/CMPLX AND ANYDBL                     ARITH    6721
          5723  6160777555               CHKA2    EERR   -ERMSG55                                                FCC0418    74
          5724  0400005701 +                      EQ     CHKARG                                                  FCC0418    75
                                                                                                                 FCC0418    76
          5725  6134777774               CHKA3    SB3    B4-DOUBLE                                               ARITH    6725
                          0430005723 +            ZR     B3,CHKA2    IF DOUBLE EXPECTED                          FCC0418    77
          5726  6134777773                        SB3    B4-COMPLEX                                              ARITH    6727
                          0430005723 +            ZR     B3,CHKA2    IF COMPLEX EXPECTED                         FCC0418    78
          5727  6132777772                        SB3    B2-T.OCT                                                FCC0418    79
                          0430005701 +            ZR     B3,CHKARG   IF TYPE OCTAL                               FCC0418    80
          5730  6132777771                        SB3    B2-T.HOL                                                FCC0418    81
                          0430005701 +            ZR     B3,CHKARG   IF TYPE HOLLERITH                           FCC0418    82
          5731  0400005723 +                      EQ     CHKA2                                                   FCC0418    83
                                                                                                                 ARITH    6745
          5732  6160777544               CHKA7    EERR   -ERMSG21          TOO MANY ARGS FOR BEF OR INTRINSIC    ARITH    6746
  
  
  
  
                                        ***                                                                      ARITH    6748
                                        *         DLDSU -- TO SET UP A DOUBLE LOAD R-LIST MACRO FOR              ARITH    6749
                                        *         'MACOUT'.  THE VALUE TO LOAD IS IN 'CONST'.  BEFORE CALLING    ARITH    6750
                                        *         'MACOUT', SET TYPE PARAM.                                      ARITH    6751
                                        *                                                                        ARITH    6752
          5733  5120000064               DLSU1    SA2    NARN              FORM A DOUBLE-ZERO MACRO REFERENCE    ARITH    6753
                          10622                   BX6    X2                                                      ARITH    6754
          5734  5160000013 +                      SA6    PARAMS                                                  ARITH    6755
                          7272000001              SX7    X2+1                                                    ARITH    6756
          5735  5170000014 +                      SA7    PARAMS+1                                                ARITH    6757
  
          5736  7262000002              DLSU2     SX6    X2+2              UPDATE R-NUMBER                       ARITH    6759
                          5160000064              SA6    NARN                                                    ARITH    6760
          5737  0200005737 +             DLDSU    JP     *                                                       ARITH    6761
          5740  5110000001 +                      SA1    CONST                                                   ARITH    6762
                          5130000410 +            SA3    DZRMD                                                   ARITH    6763
          5741  0301005733 +                      ZR     X1,DLSU1          IF THE CONSTANT IS ZERO GO TO 'DLSU1' ARITH    6764
  
                          6110000001              SB1    1                 GO ENTER THE CONSTANT INTO THE CON    ARITH    6766
          5742  0100000000 X                      RJ     CONVERT           TABLE.                                ARITH    6767
          5743  5150000032                        SA5    EPOINT            (RESTORE E-LIST POINTER)              ARITH    6768
                          6215000001              SB1    X5+1                                                    ARITH    6769
          5744  73710                             SX7    X1                                                      ARITH    6770
                     5170000013 +                 SA7    PARAMS            CONLIST ORDINAL                       ARITH    6771
                               21136              AX1    30                                                      ARITH    6772
          5745  10611                             BX6    X1                                                      ARITH    6773
                     5160000016 +                 SA6    PARAMS+3          CONSTANT 'CA'                         ARITH    6774
          5746  5130000412 +                      SA3    SDLMD             (SINGLE-TO-DOUBLE LOAD)               ARITH    6775
                          5120000064              SA2    NARN              GET THE NEXT R-NUMBER                 ARITH    6776
          5747  10622                             BX6    X2                                                      ARITH    6777
                     5160000014 +                 SA6    PARAMS+1                                                ARITH    6778
          5750  7272000001                        SX7    X2+1                                                    ARITH    6779
                          5170000015 +            SA7    PARAMS+2                                                ARITH    6780
          5751  0400005736 +                      ZR     DLSU2             GO TO 'DLSU2' TO FINISH UP            ARITH    6781
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   141
  
  
                                        *     STCON: CAUSES AN R-LIST INSTR TO BE OUTPUT TO SET A REG.TO AN 18-  ARITH    6784
                                        ** BIT CONST.  COME WITH CONST.IN B17-B0 OF X5                           ARITH    6785
                                        *      THE TYPE ARLIST INSTR OUTPUT IS SET TO TINT.                      ARITH    6786
                                        *     LEAVE WITH X6,A6=1ST WD OF MACOUT ENTRY, FWA ---. (THIS INFO USED  ARITH    6787
                                        *     BY CON2C1.)                                                        ARITH    6788
          5752  00000000000000000000     STCON    DATA   0                                                       ARITH    6789
          5753  5130000406 +                      SA3    SETMAC            GUESS SET MAC                         ARITH    6790
                          5120001321 +            SA2    BSAV                                                    ARITH    6791
          5754  0315005762 +                      NZ       X5,ACT2         NOT A ZERO CONST                      ARITH    6792
                          5130000411 +            SA3      ZRMD            PLUS ZERO                             ARITH    6793
          5755  0325005767 +                      PL     X5,ACT3                                                 ARITH    6794
                          5130000413 +            SA3    MZMD                                                    ARITH    6795
          5756  0400005767 +                      EQ     ACT3                                                    ARITH    6796
          5757  14555                    PRENORM  BX5    -X5                                                     ARITH    6797
                     0100005673 +                 RJ     SPCON                                                   ARITH    6798
          5760  14555                             BX5    -X5               (IN CASE CON IS NOT 2**N-1)           ARITH    6799
                     5130000406 +                 SA3    SETMAC                                                  ARITH    6800
          5761  0530005766 +                      NZ     B3,ACT5                                                 ARITH    6801
                          0400005765 +            ZR     ACT4                                                    ARITH    6802
          5762  7222777004               ACT2     SX2    X2-773B                                                 ARITH    6803
                          0302005757 +            ZR     X2,PRENORM        IF INHIBIT FORMATION OF -CON          ARITH    6804
          5763  0100005673 +                      RJ     SPCON                                                   ARITH    6805
          5764  0530005766 +                      NZ     B3,ACT5     IF -CON CANT BE FORMED BY A MASK            ARITH    6806
          5765  5130000527 +             ACT4     SA3    MD.MASKC          MACOUT DESCRIPTOR WORD                ARITH    6807
                          73560                   SX5    X6                PLACE MASK COUNT                      ARITH    6808
          5766  43052                    ACT5     MX0    -18                                                     ARITH    6809
                     15650                        BX6    -X0*X5                                                  ARITH    6810
                          5160000014 +            SA6      PARAMS+1        AND STORE IT                          ARITH    6811
          5767  7150000001               ACT3     SX5    T.INT                                                   ARITH    6812
                          5120000064              SA2    NARN                                                    ARITH    6813
          5770  10722                             BX7    X2                                                      ARITH    6814
                     5170000013 +                 SA7       PARAMS                                               ARITH    6815
          5771  7272000001                        SX7    X2+1              INCR NARN                             ARITH    6816
                          5170000064              SA7    NARN                                                    ARITH    6817
          5772  0100005576 +                      RJ       MACOUT                                                ARITH    6818
                                        *     TURN ON CONST FLAG BIT                                             ARITH    6819
          5773  43001                             MX0       1                                                    ARITH    6820
                     20060                        LX0       48                                                   ARITH    6821
                          53270                   SA2    X7                                                      ARITH    6822
                               12602              BX6    X0+X2                                                   ARITH    6823
          5774  54620                             SA6    A2                                                      ARITH    6824
                     0400005752 +                 ZR        STCON     END OF STCON                               ARITH    6825
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   142
                                                                      APLRT 
  
                                        **        APLRT - OUTPUT APLIST R-MACRO                                  ARITH    6827
                                        *         ENTRY  (X1) = ST APL FLAG  ( 1S59 OR 0 )                       ARITH    6828
                                        *                (X2) = IH                                               ARITH    6829
                                        *                (X3) = CA                                               ARITH    6830
                                        *                (X4) = IDORD OF SYM OR 0                                ARITH    6831
                                                                                                                 ARITH    6832
          5775  0400405775 +             APLRT    ENTRY. **                                                      ARITH    6833
          5776  5150000000 X                      SA5    =XOPT2                                                  ARITH    6834
                          43052                   MX0    -RM.CAL                                                 ARITH    6835
                               15330              BX3    -X0*X3                                                  ARITH    6836
                                                  LX2    AP.IHP                                                  ARITH    6837
          5777  20322                             LX3    AP.CAP                                                  ARITH    6838
                     12612                        BX6    X1+X2                                                   ARITH    6839
                          63440                   SB4    X4                                                      ARITH    6840
                               36736              IX7    X3+X6                                                   ARITH    6841
          6000  0305006011 +                      ZR     X5,APLRT2   IF NOT OPT=2                                ARITH    6842
                          0304006011 +            ZR     X4,APLRT2   IF NO ORD                                   ARITH    6843
          6001  5150000012                        SA5    SYM1                                                    ARITH    6844
                          66444                   SB4    B4+B4                                                   ARITH    6845
                               53050              SA0    X5                                                      ARITH    6846
          6002  55104                             SA1    A0-B4       WORD A                                      ARITH    6847
                     43001                        MX0    1                                                       ARITH    6848
                          20156                   LX1    59-P.DIM                                                ARITH    6849
          6003  0321006005 +                      PL     X1,APLRT1   IF ^DIM                                     ARITH    6850
                          20067                   LX0    1+AP.CRP    SET CLASS REFERENCE BIT                     ARITH    6851
                               12707              BX7    X0+X7                                                   ARITH    6852
          6004  0400006011 +                      EQ     APLRT2                                                  ARITH    6853
                                                                                                                 ARITH    6854
          6005  5021777776               APLRT1   SA2    A1-1        WORDB                                       ARITH    6855
                          7140000030              SX4    30B                                                     ARITH    6856
          6006  43570                             MX5    -L.TYP                                                  ARITH    6857
                     20204                        LX2    -P.TYP                                                  ARITH    6858
                          15325                   BX3    -X5*X2                                                  ARITH    6859
                               63430              SB4    X3                                                      ARITH    6860
          6007  23444                             AX4    B4,X4                                                   ARITH    6861
                     20473                        LX4    59                                                      ARITH    6862
                          0324006011 +            PL     X4,APLRT2   IF NOT DOUBLE OR COMPLEX                    ARITH    6863
          6010  20072                             LX0    1+AP.P1P    SET DOUBLE INDICATOR                        ARITH    6864
                     12707                        BX7    X0+X7                                                   ARITH    6865
                                                                                                                 ARITH    6866
          6011  5120000064               APLRT2   SA2    NARN                                                    ARITH    6867
                          5130000434 +            SA3    APLMD                                                   ARITH    6868
          6012  7222777776                        SX2    X2-1                                                    ARITH    6869
                          5170000013 +            SA7    PARAMS                                                  ARITH    6870
          6013  43500                             MX5    0                                                       ARITH    6871
                     0100005576 +                 RJ     MACOUT      OUTPUT MACRO                                ARITH    6872
          6014  5150000013 +                      SA5    PARAMS                                                  ARITH    6873
                          10655                   BX6    X5                                                      ARITH    6874
          6015  5267000003                        SA6    X7+3        STORE INFO IN ARLIST BUFFER                 ARITH    6875
                          0100005536 +            RJ     CHKOFF                                                  ARITH    6876
          6016  0400005775 +                      EQ     APLRT                                                   ARITH    6877
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   143
                                                                      STALR 
  
                                        **        STALR - OUTPUT STORE TO APLIST                                 ARITH    6879
                                        *         ENTRY  (X1) = ADDR OF LOAD R-MACRO                             ARITH    6880
                                                                                                                 ARITH    6881
          6017  0400406017 +             STALR    ENTRY. *                                                       ARITH    6882
          6020  5251000002                        SA5    X1+2                                                    ARITH    6883
                          5221000003              SA2    X1+3        IH                                          ARITH    6884
          6021  43300                             MX3    0           CA = 0                                      ARITH    6885
                     5241000001                   SA4    X1+1        IDORD                                       ARITH    6886
                               20536              LX5    -R1.INP                                                 ARITH    6887
          6022  7265777774                        SX6    X5-3                                                    ARITH    6888
                          0316006024 +            NZ     X6,STALR1   IF AN IXFN MACRO                            ARITH    6889
          6023  5231000005                        SA3    X1+5                                                    ARITH    6890
          6024  43101                    STALR1   MX1    1                                                       ARITH    6891
                                                  LX1    1+AP.STP                                                ARITH    6892
                     0100005775 +                 RJ     APLRT       OUTPUT APLIST WORD FOR -0                   ARITH    6893
          6025  5130000064                        SA3    NARN                                                    ARITH    6894
                          7263777776              SX6    X3-1                                                    ARITH    6895
          6026  5140000042 +                      SA4    ACNT                                                    ARITH    6896
                          5160000014 +            SA6    PARAMS+1          RI OF REG WITH ADDRESS                ARITH    6897
          6027  7274777776                        SX7    X4-1        ORD OF ARG IN LIST                          ARITH    6898
                          5170000015 +            SA7    PARAMS+2                                                ARITH    6899
          6030  43600                             MX6    0                                                       ARITH    6900
                     5160000013 +                 SA6    PARAMS      IH OF APLIST                                ARITH    6901
          6031  7223777776                        SX2    X3-1                                                    ARITH    6902
                          5130000435 +            SA3    TSMAC                                                   ARITH    6903
                                                                                                                 ARITH    6904
          6032  0100005576 +                      RJ     MACOUT                                                  ARITH    6905
          6033  5110000043 +                      SA1    STAPLC                                                  ARITH    6906
                          10611                   BX6    X1                                                      ARITH    6907
          6034  7277000001                        SX7    X7+1                                                    ARITH    6908
                          53670                   SA6    X7                [LASTR + 1] = APLS                    ARITH    6909
                               54710              SA7    A1                APLS = LASTR + 1                      ARITH    6910
          6035  0100005536 +                      RJ     CHKOFF                                                  ARITH    6911
          6036  0400006017 +                      EQ     STALR                                                   ARITH    6912
  
  
  
                                        **        OTS - OUTPUT TEMPORARY STORES                                  ARITH    6914
                                        *         ENTRY  (X1) = ADDRESS OF ARLIST MACRO TO BE STORED             ARITH    6915
                                        *                (X2) = NON-ZERO IF RL2, RL1 NEED TO BE POSITIONED       ARITH    6916
                                        *         EXIT   (X2) = ORD(ST.)                                         ARITH    6917
                                        *                (X3) = CA OF TEMP STORE                                 ARITH    6918
                                        *                (X4) = N.STORES - 1 ( 0 OR 1 )                          ARITH    6919
                                                                                                                 ARITH    6920
          6037  5120000000 X             OTS0     SA2    ST.                                                     ARITH    6921
                          5130000000 C            SA3    STSORD                                                  ARITH    6922
          6040  37334                             IX3    X3-X4                                                   ARITH    6923
                     7244777776                   SX4    X4-1                                                    ARITH    6924
          6041  0400406041 +             OTS      ENTRY. *           ** ENTRY/EXIT **                            ARITH    6925
          6042  0302006045 +                      ZR     X2,OTS1A    IF NO NEED TO POSITION RL2, RL1             ARITH    6926
                          10711                   BX7    X1                                                      ARITH    6927
          6043  5170006066 +                      SA7    OTSB        TEMP FOR RL2                                ARITH    6928
                          0100005536 +            RJ     CHKOFF      REPOSITION RL2, RL1                         ARITH    6929
          6044  5110006066 +                      SA1    OTSB                                                    ARITH    6930
          6045  53310                    OTS1A    SA3    X1          ARLIST HDR WORD                             ARITH    6931
                     7100000006                   SX0    06B         BIT MASK FOR DBL/CMPLX TYPES                ARITH    6932
                               26723              UX7    B2,X3                                                   ARITH    6933
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   144
                                                                      OTS 
  
          6046  20066                             LX0    54                                                      ARITH    6934
                     5221000002                   SA2    X1+2        MACRO HEADER WORD                           ARITH    6935
                               22720              LX7    B2,X0                                                   ARITH    6936
          6047  43054                             MX0    -R1.RIL                                                 ARITH    6937
                     15220                        BX2    -X0*X2                                                  ARITH    6938
                          0327006054 +            PL     X7,OTS1     IF A SINGLE WORD RESULT                     ARITH    6939
                                                                                                                 ARITH    6940
          6050  7272000001                        SX7    X2+1                                                    ARITH    6941
                          5170006065 +            SA7    OTSA                                                    ARITH    6942
          6051  0100006067 +                      RJ     AVTS        OUTPUT TEMP STORE                           ARITH    6943
          6052  5120006065 +                      SA2    OTSA                                                    ARITH    6944
                          0100006067 +            RJ     AVTS                                                    ARITH    6945
          6053  7140000002                        SX4    2                                                       ARITH    6946
                          0400006037 +            EQ     OTS0                                                    ARITH    6947
          6054  20317                    OTS1     LX3    59-44                                                   ARITH    6948
                     0323006063 +                 PL     X3,OTS2     IF XMT BIT NOT SET                          ARITH    6949
                               10622              BX6    X2                                                      ARITH    6950
          6055  5120000064                        SA2    NARN                                                    ARITH    6951
                          10722                   BX7    X2                                                      ARITH    6952
          6056  5170000013 +                      SA7    PARAMS                                                  ARITH    6953
                          5160000014 +            SA6    PARAMS+1                                                ARITH    6954
          6057  7262000001                        SX6    X2+1                                                    ARITH    6955
                          54620                   SA6    A2                                                      ARITH    6956
                               43500              MX5    0                                                       ARITH    6957
          6060  5130000430 +                      SA3    XMIT                                                    ARITH    6958
                          0100005576 +            RJ     MACOUT                                                  ARITH    6959
          6061  0100005536 +                      RJ     CHKOFF                                                  ARITH    6960
          6062  5130000064                        SA3    NARN                                                    ARITH    6961
                          7223777776              SX2    X3-1                                                    ARITH    6962
          6063  0100006067 +             OTS2     RJ     AVTS                                                    ARITH    6963
          6064  7140000001                        SX4    1                                                       ARITH    6964
                          0400006037 +            EQ     OTS0                                                    ARITH    6965
                                                                                                                 ARITH    6966
          6065                     1     OTSA     BSS    1                                                       ARITH    6967
          6066                     1     OTSB     BSS    1           TEMPORARY ADDRESS OF RL2                    ARITH    6968
  
  
  
                                        *     AVTS TO OUTPUT INSTR TO DO TEMP STO OF RESULT NAMED IN X2.         ARITH    6970
                                        *         OUTPUT TO ARLIST                                               ARITH    6971
                                                                                                                 ARITH    6972
          6067  0400406067 +             AVTS     ENTRY. *                 ** ENTRY/EXIT **                      ARITH    6973
          6070  5110000000 C                      SA1    STSORD            H1                                    ARITH    6974
                          5130000000 X            SA3    ST.               SYMTAB ORDINAL                        ARITH    6975
          6071  7261000001                        SX6    X1+1              INCREMENT H1                          ARITH    6976
                          54610                   SA6    A1                                                      ARITH    6977
                               10733              BX7    X3                                                      ARITH    6978
          6072  10611                             BX6    X1                                                      ARITH    6979
                     5160000015 +                 SA6    PARAMS+2          CA OF ST.                             ARITH    6980
                               10622              BX6    X2                                                      ARITH    6981
          6073  5160000014 +                      SA6    PARAMS+1          RI                                    ARITH    6982
                          5170000013 +            SA7    PARAMS            IH OF ST.                             ARITH    6983
          6074  5130000435 +                      SA3    TSMAC                                                   ARITH    6984
                          0100005576 +            RJ     MACOUT                                                  ARITH    6985
          6075  0100005536 +                      RJ     CHKOFF                                                  ARITH    6986
          6076  0400006067 +                      EQ     AVTS                                                    ARITH    6987
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   145
                                                                      GEFCM 
  
                                        **        GEFCM - OUTPUT GENERAL EXTERNAL FUNCTION CALL                  ARITH    6989
                                        *          ENTRY (X1) = N.AP OR 0                                        ARITH    6990
                                        *                (X2) = IH OF FUNCTION                                   ARITH    6991
                                        *                (X3) = LINE COUNT                                       ARITH    6992
                                        *                (X4) = STAPL CHAIN POINTER                              ARITH    6993
                                        *                (X5) = CA (IF N.ARG .EQ. 0 AND ZFLAG .NE. 0)            ARITH    6994
                                                                                                                 ARITH    6995
          6077  5160000014 +             GEFCM1   SA6    PARAMS+1          LINE COUNT                            ARITH    6996
                          5130000415 +            SA3    RJ60MD            RJ CALL WITHOUT APLIST                ARITH    6997
          6100  43500                    GEFCM2   MX5    0                                                       ARITH    6998
                     0100005576 +                 RJ     MACOUT                                                  ARITH    6999
          6101  0100005536 +                      RJ     CHKOFF                                                  ARITH    7000
                                                                                                                 ARITH    7001
          6102  0400406102 +             GEFCM    ENTRY. **                ENTRY/EXIT                            ARITH    7002
          6103  10722                             BX7    X2                                                      ARITH    7003
                     10633                        BX6    X3                                                      ARITH    7004
                          5170000013 +            SA7    PARAMS            STORE IH OF FUNCTION                  ARITH    7005
          6104  0301006077 +                      ZR     X1,GEFCM1         NO APLIST REQUIRED                    ARITH    7006
                          7271200000              SX7    I.AP+X1                                                 ARITH    7007
          6105  5067000002                        SA6    A7+2              STORE LINE COUNT                      ARITH    7008
                          5077000001              SA7    A7+1              STORE AP NUMBER                       ARITH    7009
          6106  43600                             MX6    0                                                       ARITH    7010
                     0321006107 +                 PL     X1,GEFCM3A  IF N.ARG.NE.0 .OR. ZFLAG.EQ.0               ARITH    7011
                               10655              BX6    X5                                                      ARITH    7012
          6107  5066000001               GEFCM3A  SA6    A6+1                                                    ARITH    7013
                          0304006112 +            ZR     X4,GEFCM4         IF STAPLC = 0                         ARITH    7014
          6110  5274000002               GEFCM3   SA7    X4+2                                                    ARITH    7015
                          53440                   SA4    X4                                                      ARITH    7016
          6111  0314006110 +                      NZ     X4,GEFCM3                                               ARITH    7017
                                                                                                                 ARITH    7018
          6112  5130000432 +             GEFCM4   SA3    GEFMD                                                   ARITH    7019
                          0400006100 +            EQ     GEFCM2                                                  ARITH    7020
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   146
  
  
                                        *     FRTS: FUNCTION RESULT TEMP-STO-INSTR OUTPUT                        ARITH    7022
                                        *     COME WITH X1=RNAME OF RESULT TO BE SAVED.                          ARITH    7023
                                        *     AND B58=1 IF DBL LENGTH                                            ARITH    7024
                                                                                                                 ARITH    7025
          6113  0400406113 +             FRTS     ENTRY. *                 ** ENTRY/EXIT **                      ARITH    7026
          6114  43022                             MX0    18                                                      ARITH    7027
                     20064                        LX0    18+34                                                   ARITH    7028
                          15110                   BX1    -X0*X1            MASK OUT EQUAL SIGN COUNT             ARITH    7029
          6115  6120777766                        SB2    -M.SFR            SAVED FUNCTION RESULT MACRO           ARITH    7030
                          6170000004              SB7    4           (B7) = *RLIST* WORD COUNT                   ARITH    7031
          6116  5120000000 C                      SA2    STSORD            CA OF ST.                             ARITH    7032
                          10722                   BX7    X2                                                      ARITH    7033
                               73610              SX6    X1                                                      ARITH    7034
          6117  5170000315 +                      SA7    LBTS+3            SAVE CA                               ARITH    7035
                          5160000314 +            SA6    LBTS+2            SAVE RNAME                            ARITH    7036
          6120  5140000000 X                      SA4    ST.               IH OF ST.                             ARITH    7037
                          7130000003              SX3    3                                                       ARITH    7038
          6121  20336                             LX3    30                                                      ARITH    7039
                     12331                        BX3    X3+X1             FORM PART OF MACRO WORD               ARITH    7040
                          10644                   BX6    X4                                                      ARITH    7041
                               27723              PX7    B2,X3             FORM MACRO WORD                       ARITH    7042
          6122  5160000313 +                      SA6    LBTS+1            SAVE IH                               ARITH    7043
                          5170000312 +            SA7    LBTS              SAVE MACRO WORD                       ARITH    7044
          6123  7262000001                        SX6    X2+1              INCREMENT STSORD                      ARITH    7045
                          20101                   LX1    59-58                                                   ARITH    7046
          6124  0321006133 +                      PL     X1,FRTS1          IF NOT DBL                            ARITH    7047
                          5160000321 +            SA6    LBTS+7            SAVE CA+1                             ARITH    7048
          6125  7266000001                        SX6    X6+1              INCREMENT STSORD                      ARITH    7049
                          7120000001              SX2    1                                                       ARITH    7050
          6126  5130000312 +                      SA3    LBTS                                                    ARITH    7051
                          36732                   IX7    X3+X2             ADD 1 TO MACRO NAME                   ARITH    7052
          6127  5170000316 +                      SA7    LBTS+4            SAVE 2ND MACRO WORD                   ARITH    7053
                          5130000313 +            SA3    LBTS+1                                                  ARITH    7054
          6130  5140000314 +                      SA4    LBTS+2                                                  ARITH    7055
                          10733                   BX7    X3                                                      ARITH    7056
                               36542              IX5    X4+X2                                                   ARITH    7057
          6131  5170000317 +                      SA7    LBTS+5            SAVE IH                               ARITH    7058
                          10755                   BX7    X5                                                      ARITH    7059
          6132  5170000320 +                      SA7    LBTS+6            SAVE RNAME+1                          ARITH    7060
                          6170000010              SB7    8           (B7) = *RLIST* WORD COUNT                   ARITH    7061
          6133                           FRTS1    BSS       0                                                    ARITH    7062
          6133  5160000000 C                      SA6       STSORD                                               ARITH    7063
                          6110000001              SB1    1                                                       ARITH    7064
          6134  6160000312 +                      WRITEW =XF.RLST,LBTS,B7                                        ARITH    7065
          6136  6150000001                        SB5    1                                                       ARITH    7066
                          0400006113 +            EQ     FRTS              EXIT                                  ARITH    7067
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   147
  
  
                                        *     DARLIST: DUMP ARLIST: SENDS CLEAN R-LIST TO RLIST FROM ARLIST.     ARITH    7069
                                        *  ENTER WITH X4= POINT(+ARLIST) TO 1ST WD OF AREA IN ARLIST AND         ARITH    7070
                                        *             X5= POINT(+ARLIST) TO LAST WD+1 IN ARLIST TO SEND TO RLST  ARITH    7071
                                        *                                                                        ARITH    7072
                                        *     ONE OF THE 1ST IMPROVEMENTS (ONE OF MANY THAT SHOULD BE MADE) OF   ARITH    7073
                                        *  ARITH SHOULD BE IN RE-WRITING DARLIST SO THAT WRLST NEED NOT BE       ARITH    7074
                                        *  CALLED FOR EACH R-LIST MACRO OR INSTRUCTION.                          ARITH    7075
                                                                                                                 ARITH    7076
          6137  0400406137 +             DARLIST  ENTRY. **          ** ENTRY/EXIT **                            ARITH    7077
          6140  6224000000                        SB2    X4+ARLIST    FWA                                        ARITH    7078
          7646  20360000000000006140 +            SUB                                                            ARITH    7079
                          6235000000              SB3    X5+ARLIST    LWA+1                                      ARITH    7080
          7647  20740000000000006140 +            SUB                                                            ARITH    7081
          6141  0423006137 +                      EQ     B2,B3,DARLIST     EXIT IF NOTHING TO DUMP OUT           ARITH    7082
          6142  56120                    DRLST2   SA1    B2           GET NXT WD                                 ARITH    7083
                     5122000002                   SA2    B2+2                                                    ARITH    7084
                               12712              BX7    X1+X2                                                   ARITH    7085
          6143  6140000022                        SB4    18                                                      ARITH    7086
                          0337006155 +            MI     X7,DRLST1         IF NOOPED OR GARBAGE                  ARITH    7087
          6144  23641                             AX6    B4,X1        GET SIZE OF ENTRY                          ARITH    7088
                     5160000312 +                 SA6       LBTS      SAVE                                       ARITH    7089
          6145  6276777775                        SB7    X6-2              (B7) = MACRO LENGTH = SIZE - 2        ARITH    7090
                          76620                   SX6    B2                                                      ARITH    7091
                               76730              SX7    B3                                                      ARITH    7092
          6146  5160000313 +                      SA6       LBTS+1                                               ARITH    7093
                          5170000314 +            SA7       LBTS+2                                               ARITH    7094
          6147  6110000001                        SB1    1                                                       ARITH    7095
                          6162000002              WRITEW =XF.RLST,B2+2,B7                                        ARITH    7096
          6151  5120000313 +                      SA2    LBTS+1                                                  ARITH    7097
                          6150000001              SB5    1                                                       ARITH    7098
          6152  54325                             SA3    A2+B5                                                   ARITH    7099
                     55125                        SA1    A2-B5                                                   ARITH    7100
                          63220                   SB2    X2                                                      ARITH    7101
                               63330              SB3    X3                                                      ARITH    7102
          6153  63212                    DRLST3   SB2    X1+B2        SET NEW FWA                                ARITH    7103
                     0523006142 +                 NE  B2,B3,DRLST2    IF MORE TO OUTPUT                          ARITH    7104
          6154  0400006137 +                      EQ     DARLIST                                                 ARITH    7105
                                                                                                                 ARITH    7106
          6155  14611                    DRLST1   BX6    -X1                                                     ARITH    7107
                     23146                        AX1    B4,X6                                                   ARITH    7108
                          0326006153 +            PL     X6,DRLST3         IF NOOPED                             ARITH    7109
          6156  14111                             BX1    -X1                                                     ARITH    7110
                     0400006153 +                 EQ     DRLST3                                                  ARITH    7111
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   148
                                                                      DALV
  
                                        **        DALV - OUTPUT F.P. LOAD                                        ARITH    7113
                                        *         ENTRY  (X1) = SYMTAB ORD                                       ARITH    7114
                                                                                                                 ARITH    7115
          6157  0400406157 +             DALV     ENTRY. *           ** ENTRY/EXIT **                            ARITH    7116
          6160  5120000012                        SA2    SYM1                                                    ARITH    7117
                          10511                   BX5    X1                                                      ARITH    7118
                               20101              LX1    1                                                       ARITH    7119
          6161  6221000001                        SB2    X1+1                                                    ARITH    7120
                          67302                   SB3    -B2                                                     ARITH    7121
                               53223              SA2    X2+B3       WORD B OF SYMTAB ENTRY                      ARITH    7122
          6162  10622                             BX6    X2                                                      ARITH    7123
                     66600                        SB6    B0          RF = 0                                      ARITH    7124
                          66700                   SB7    B0          CA = 0                                      ARITH    7125
          6163  5160000326 +                      SA6    NAME+1                                                  ARITH    7126
                          0100005650 +            RJ     FETCH                                                   ARITH    7127
          6164  0400006157 +                      EQ     DALV                                                    ARITH    7128
  
  
  
                                        **        CFETCH - OUTPUT LOAD OF A CONSTANT                             ARITH    7130
                                        *         ENTRY  (X1) = 30/CA,30/SYMTAB ORD                              ARITH    7131
                                        *                (X6) = TYPE                                             ARITH    7132
                                                                                                                 ARITH    7133
          6165  0400406165 +             CFETCH   ENTRY. *           ** ENTRY/EXIT **                            ARITH    7134
          6166  66600                             SB6    B0           RF NAME                                    ARITH    7135
                     73510                        SX5    X1           IH                                         ARITH    7136
                          21136                   AX1       30                                                   ARITH    7137
                               63710              SB7    X1           CA                                         ARITH    7138
          6167  10711                             BX7    X1                                                      ARITH    7139
                     20670                        LX6    P.TYP                                                   ARITH    7140
                          5170000006 +            SA7    NCA               SAVE FOR POSSIBLE USE BY LISTIO       ARITH    7141
          6170  5160000326 +                      SA6       NAME+1                                               ARITH    7142
                          10755                   BX7    X5                                                      ARITH    7143
          6171  5170000035 +                      SA7    IDORDLTS                                                ARITH    7144
                          76670                   SX6    B7                                                      ARITH    7145
          6172  5067000001                        SA6    A7+1                                                    ARITH    7146
                          0100005650 +            RJ        FETCH                                                ARITH    7147
          6173  5110000032 +                      SA1       RL2                                                  ARITH    7148
                          53310                   SA3    X1                                                      ARITH    7149
                               43001              MX0       1                                                    ARITH    7150
          6174  20060                             LX0       48                                                   ARITH    7151
                     12703                        BX7    X0+X3        SET CONST BIT IN FETCH OP                  ARITH    7152
                          54730                   SA7    A3                                                      ARITH    7153
          6175  0400006165 +                      EQ     CFETCH                                                  ARITH    7154
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   149
        CHKP2 
  
                                        ***                                                                      ARITH    7156
                                        *         CHKP2 - CHECK ARLIST MACRO TO SEE IF IT IS A CONSTANT          ARITH    7157
                                        *                THAT IS A POWER OF 2                                    ARITH    7158
                                        *                                                                        ARITH    7159
                                        *         ON ENTRY:                                                      ARITH    7160
                                        *                X1 = ADDRESS OF ARLIST ENTRY                            ARITH    7161
                                        *                                                                        ARITH    7162
                                        *         ON EXIT:                                                       ARITH    7163
                                        *                X7 = 0 IF A POWER OF 2                                  ARITH    7164
                                        *                X6 = SHIFT COUNT  ( CON = 2**X6 )                       ARITH    7165
                                        *                                                                        ARITH    7166
                                                                                                                 ARITH    7167
          6176  54210                    CHKP2X   SA2    A1                RESTORE ARLIST ENTRY                  ARITH    7168
                     14622                        BX6    -X2                                                     ARITH    7169
                          54620                   SA6    A2                                                      ARITH    7170
                                                                                                                 ARITH    7171
          6177  0400406177 +             CHKP2    ENTRY. *                 ** ENTRY/EXIT **                      ARITH    7172
          6200  53110                             SA1    X1                                                      ARITH    7173
                     43701                        MX7    1                                                       ARITH    7174
                          10211                   BX2    X1                                                      ARITH    7175
                               20214              LX2    59-47                                                   ARITH    7176
          6201  0322006177 +                      PL     X2,CHKP2          IF NOT A CONSTANT                     ARITH    7177
                          0100006211 +            RJ     NEWCON            GET VALUE                             ARITH    7178
          6202  10766                             BX7    X6                                                      FCC0539   227
                     47566                        CX5    X6                                                      FCC0539   228
                          21760                   AX7    48                                                      FCC0539   229
                               27606              PX6    X6                                                      FCC0539   230
          6203  0317006176 +                      NZ     X7,CHKP2X   IF CONST TOO LARGE                          FCC0539   231
                          7275777776              SX7    X5-1                                                    FCC0539   232
          6204  0317006176 +                      NZ     X7,CHKP2X         IF NOT A POWER OF 2                   ARITH    7182
                          6160000057              SB6    47                                                      ARITH    7183
          6205  24576                             NX5    B7,X6                                                   ARITH    7184
                     77667                        SX6    B6-B7             SC = LOG2(CON)                        ARITH    7185
                          0400006177 +            EQ     CHKP2                                                   ARITH    7186
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   150
        NEWCON
  
                                         CHKOP    MACRO  CODE,LABEL                                              ARITH    7188
                                                  SX4    B2+CODE                                                 ARITH    7189
                                                  ZR     X4,LABEL                                                ARITH    7190
                                                  ENDM                                                           ARITH    7191
                                                                                                                 ARITH    7192
                                        ***                                                                      ARITH    7193
                                        *         NEWCON - RETURN VALUE OF CONSTANT                              ARITH    7194
                                        *                                                                        ARITH    7195
                                        *         ON ENTRY:                                                      ARITH    7196
                                        *                A1,X1 - ADDR AND ARLIST WORD TO SET UP CONSTANT         ARITH    7197
                                        *                                                                        ARITH    7198
                                        *         ON EXIT:                                                       ARITH    7199
                                        *                (CONST) = X6 = VALUE OF CONSTANT                        ARITH    7200
                                        *                CONSTANT LOAD OR SET MACRO NOOPED IN ARLIST BUFFER      ARITH    7201
                                        *                B3 AND A1 SAME AS ON ENTRY                              ARITH    7202
                                        *                X1 IS ARLIST HDR WORD                                   ARITH    7203
                                        *                                                                        ARITH    7204
                                                                                                                 ARITH    7205
                                        *         GET VALUE OF CONSTANT FROM CON TABLE                           ARITH    7206
                                                                                                                 ARITH    7207
          6206  5041000005               NEWCON1  SA4    A1+5              CON TAB ORDINAL                       ARITH    7208
                          36724                   IX7    X2+X4                                                   ARITH    7209
                               53370              SA3    X7                FETCH CONSTANT                        ARITH    7210
          6207  10633                             BX6    X3                                                      ARITH    7211
          6210  5160000001 +             NEWCONX  SA6    CONST                                                   ARITH    7212
                                                                                                                 ARITH    7213
          6211  0400406211 +             NEWCON   ENTRY. *                 ** ENTRY/EXIT **                      ARITH    7214
          6212  5021000002                        SA2    A1+2              RLIST MACRO HEADER WORD               ARITH    7215
                          5031000004              SA3    A1+4              POSSIBLE CONSTANT                     ARITH    7216
          6213  43601                             MX6    1                                                       ARITH    7217
                     20656                        LX6    1+45              POSITION USED BIT                     ARITH    7218
                          12116                   BX1    X1+X6             INSERT BIT IN HEADER                  ARITH    7219
                               14711              BX7    -X1                                                     ARITH    7220
          6214  26222                             UX2    B2,X2                                                   ARITH    7221
                     54710                        SA7    A1                NO OP RLIST CONSTANT LOAD OR SET      ARITH    7222
                          73630                   SX6    X3                SIGN EXTEND                           ARITH    7223
                                                                                                                 ARITH    7224
          6215  7142000142                        CHKOP  SETMC,NEWCONX     IF A SXI CON                          ARITH    7225
          6216  43600                             MX6    0                                                       ARITH    7226
                     7142000145                   CHKOP  MZMC,NEWCONX      IF A MXI 0                            ARITH    7227
                          7142000146              CHKOP  MZZMC,NEWCONX     IF A DOUBLE MASK 0                    ARITH    7228
                          43674                   MX6    60                                                      ARITH    7229
          6221  7142000150                        CHKOP  MIZMC,NEWCONX     IF A MXI 60                           ARITH    7230
          6222  7142000312                        SX4    B2+M.MASKC                                              ARITH    7231
                          5120000000 X            SA2    O.CON                                                   ARITH    7232
          6223  0314006206 +                      NZ     X4,NEWCON1        IF NOT A CONSTANT MASK MACRO          ARITH    7233
                                                                                                                 ARITH    7234
                          6223777776              SB2    X3-1              FORM MASK AS THE CONSTANT             ARITH    7235
          6224  43401                             MX4    1                                                       ARITH    7236
                     23624                        AX6    B2,X4                                                   ARITH    7237
                          0400006210 +            EQ     NEWCONX                                                 ARITH    7238
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   151
        SNGLR 
  
                                        ***                                                                      ARITH    7240
                                        *     SNGLR: SINGLE ROUTINE.  IF ARLIST INSTR ADDRESSED BY X1 IS A       ARITH    7241
                                        *  DLMACO, CHANGE OP CODE TO DLTSMC (DBL LD TO SNGL) AND SET TYPE TO OCT ARITH    7242
                                                                                                                 ARITH    7243
          6225  0400406225 +             SNGLR    ENTRY. *           ** ENTRY/EXIT **                            ARITH    7244
          6226  53210                             SA2    X1                                                      ARITH    7245
                     26332                        UX3    B3,X2                                                   ARITH    7246
                          6140000003              SB4    T.DBL                                                   ARITH    7247
          6227  6160000004                        SB6    T.CPLX                                                  ARITH    7248
                          0434006231 +            EQ  B3,B4,SNGLR1    IF OPD TDBL                                ARITH    7249
          6230  0536006225 +                      NE  B3,B6,SNGLR     IF OPD NOT CPX OR DBL                      ARITH    7250
          6231  53210                    SNGLR1   SA2    X1           CHANGE OPD TYPE TO OCT                     ARITH    7251
                     6140000005                   SB4    T.OCT                                                   ARITH    7252
                               27642              PX6    B4,X2                                                   ARITH    7253
          6232  53610                             SA6    X1                                                      ARITH    7254
                     5221000002                   SA2    X1+2                                                    ARITH    7255
          6233  6120777646                        SB2      -DLMACO                                               ARITH    7256
                          26032                   UX0 B3,X2                                                      ARITH    7257
          6234  0523006225 +                      NE  B2,B3,SNGLR     IF INSTR NOT DLMACO                        ARITH    7258
                          6120777626              SB2      -DLTSMC    DBL LOAD TO SNGL LOAD INSTR                ARITH    7259
          6235  27622                             PX6    B2,X2                                                   ARITH    7260
                     54620                        SA6    A2                                                      ARITH    7261
                          0400006225 +            ZR        SNGLR                                                ARITH    7262
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   152
        INFTLU AND BEFTLU - FUNCTION TABLE LOOKUP ROUTINES
  
                                        **        IFTLU AND BEFTLU - INTRINSIC AND BASIC EXTERNAL FUNCTION       ARITH    7264
                                        *                            TABLE LOOKUP SUBROUTINES.                   ARITH    7265
                                        *                                                                        ARITH    7266
                                        *         ENTRY  (B7) = *NOT FOUND* RETURN ADDRESS.                      ARITH    7267
                                        *                (OP) = FUNCTION NAME, E-LIST FORMAT.                    ARITH    7268
                                        *                                                                        ARITH    7269
                                        *         EXIT   IF LOOKUP SUCCESSFUL --                                 ARITH    7270
                                        *                (X4,X5) = TABLE ENTRY WORDS 1 AND 2.  MAY BE ENTERED    ARITH    7271
                                        *                          IN SYMBOL TABLE WORDS A AND B.                ARITH    7272
                                        *                (X3) = WORD 4 OF INTRINSIC FUNCTION TABLE ENTRY.        ARITH    7273
                                                                                                                 ARITH    7274
          6236  0400406236 +             IFTLU    ENTRY. **                ** ENTRY/EXIT **                      ARITH    7275
          6237  5150006246 +                      SA5    IFTLU.P                                                 ARITH    7276
                          0100006252 +            RJ     FTLU              LOOK FOR FUNCTION NAME                ARITH    7277
          6240  5034000003                        SA3    A4+3              4TH WORD                              ARITH    7278
                          0400006236 +            EQ     IFTLU                                                   ARITH    7279
                                                                                                                 ARITH    7280
          6241  0400406241 +             BEFTLU   ENTRY. **                ** ENTRY/EXIT **                      ARITH    7281
          6242  5150006250 +                      SA5    BEFTLU.P                                                ARITH    7282
                          0100006252 +            RJ     FTLU              GO LOOK FOR NAME                      ARITH    7283
          6243  0301006241 +                      ZR     X1,BEFTLU         IF NOT T MODE                         ARITH    7284
                          5110006245 +            SA1    BEFTLUA                                                 FEAT121A  116
          6244  15551                             BX5    -X1*X5      CLEAR BEF AND *BRP* FIELDS                  FEAT121A  117
                     0400006241 +                 EQ     BEFTLU                                                  FEAT121A  118
                                                                                                                 FEAT121A  119
          6245                           BEFTLUA  BSS    0                                                       FEAT121A  120
                                  53              POS    P.BEF+1                                                 FEAT121A  121
                     1                            VFD    1/1                                                     FEAT121A  122
                                  45              POS    P.RA+L.RA                                               FEAT121A  123
                       1777776000000              VFD    L.RA/-0,*P/0                                            FEAT121A  124
                                                                                                                 ARITH    7289
                                                  ENTRY  IFTLU.P                                                 ARITH    7290
          6246  0004000536 +             IFTLU.P  VFD    12/4,18/INTFTB,30/L.INFT                                ARITH    7291
                          0000000772 +
          6247  0004000536 +                      VFD    12/4,18/INTFTB,30/L.INFTE                               ARITH    7292
                          0000001056 +
          6250  0003000000 X             BEFTLU.P VFD    12/3,18/BEFTB,30/L.BEFTB                                ARITH    7293
                          0000000000 X
          6251  55444                    FTLUX    SA4    A4-B4             WORD 1                                ARITH    7294
                     5110000000 X                 SA1    CBNFLG            X1 = CBNFLG                           ARITH    7295
                               54545              SA5    A4+B5             X5 = WORD 2 OF TABLE ENTRY            ARITH    7296
          6252  0400406252 +             FTLU     ENTRY. *                 ** ENTRY/EXIT **                      ARITH    7297
          6253  63350                             SB3    X5                LWA+1 OF TABLE                        ARITH    7298
                     21536                        AX5    30                                                      ARITH    7299
                          53450                   SA4    X5                FETCH FIRST NAME                      ARITH    7300
                               21522              AX5    18                                                      ARITH    7301
          6254  63450                             SB4    X5                INCREMENT                             ARITH    7302
                     5120000011 +                 SA2    OP                FUNCTION NAME                         ARITH    7303
                               26702              UX7    X2                                                      ARITH    7304
          6255  6160000022                        SB6    60-L.NAME                                               ARITH    7305
                          20714                   LX7    12                POSITION NAME                         ARITH    7306
                               56730              SA7    B3                STORE SEARCH TERMINATOR               ARITH    7307
          6256  6150000001                        SB5    1                                                       ARITH    7308
          6257  13547                    FTLU1    BX5    X4-X7                                                   ARITH    7309
                     23665                        AX6    B6,X5             REMOVE GARBAGE IN LOWER BITS          ARITH    7310
                          54444                   SA4    A4+B4             NEXT                                  ARITH    7311
          6260  0316006257 +                      NZ     X6,FTLU1          IF NO MATCH                           ARITH    7312
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   153
        INFTLU AND BEFTLU - FUNCTION TABLE LOOKUP ROUTINES
  
                          65244                   SB2    A4-B4                                                   ARITH    7313
                               56630              SA6    B3                CLEAR TABLE TERMINATOR                ARITH    7314
          6261  0723006251 +                      LT     B2,B3,FTLUX       IF A MATCH IN THE TABLE               ARITH    7315
                          0277000000              JP     B7                GO TO NOT FOUND EXIT                  ARITH    7316
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   154
                                                                      EQUIVR
  
                                        ***                                                                      ARITH    7319
                                        *         EQUIVR - RETURN BASE AND BIAS OF EQUIVALENCED VARIABLE         ARITH    7320
                                        *                                                                        ARITH    7321
                                        *         ON ENTRY:                                                      ARITH    7322
                                        *                NAME,NAME+1 = WORD A AND B OF SYMTAB ENTRY              ARITH    7323
                                        *                B7 = RETURN EXIT IF VAR IS NOT EQUIVALENCED             ARITH    7324
                                        *                                                                        ARITH    7325
                                        *         EXIT:  EQUIVALENCED CASE                                       ARITH    7326
                                        *                X6 = BIAS                                               ARITH    7327
                                        *                X7 = SYMTAB ORDINAL OF BASE                             ARITH    7328
                                        *                                                                        ARITH    7329
                                                                                                                 ARITH    7330
          6262  5140000326 +             EQUIVR1  SA4    NAME+1            WORD B                                ARITH    7331
                          5150000017              SA5    DIM1                                                    ARITH    7332
          6263  21451                             AX4    P.DIMP                                                  ARITH    7333
                     15640                        BX6    -X0*X4            DIMP ORD                              ARITH    7334
                          20601                   LX6    1                                                       ARITH    7335
                               63250              SB2    X5                                                      ARITH    7336
          6264  53262                             SA2    X6+B2             WORD 1 OF DIM ENTRY                   ARITH    7337
                     21222                        AX2    18                                                      ARITH    7338
                          73620                   SX6    X2                X6 = BIAS                             ARITH    7339
                               21222              AX2    18                                                      ARITH    7340
          6265  73720                             SX7    X2                X7 = SYMORD OF BASE                   ARITH    7341
                                                                                                                 ARITH    7342
          6266  0400406266 +             EQUIVR   ENTRY. *                 ** ENTRY/EXIT **                      ARITH    7343
          6267  5110000325 +                      SA1    NAME              WORD A                                ARITH    7344
                          20157                   LX1    59-P.EQU                                                ARITH    7345
                               43060              MX0    60-L.DIMP                                               ARITH    7346
          6270  0331006262 +                      NG     X1,EQUIVR1        IF EQUIVALENCED                       ARITH    7347
                          0277000000              JP     B7                                                      ARITH    7348
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   155
  
  
                                        *     MODCH: USED TO GENERATE RLIST TO CONVERT FROM ONE DATA MODE TO     ARITH    7350
                                        *           ANOTHER.  CONVERTS FROM HIGH TO LOW (E.G. INT=REAL), OR LOW  ARITH    7351
                                        *           TO HIGH.  ENTER WITH X5=ADR OF ARLIST ENTRY TO BE CONVERTED, ARITH    7352
                                        *                                B5=TYPE TO CONVERT TO.                  ARITH    7353
                                        *         IF DONT CONVERT, EXIT WITH X6=X5.  IF CONVERT, EXIT WITH X6=   ARITH    7354
                                        *     ADDRESS OF CONVERT MACRO, (X5) USED BIT TURNED ON, RL1,RL2 SAME AS ARITH    7355
                                        *     ON ENTRY.                                                          ARITH    7356
                                        * (LATER IMPROVEMENT: CONVERT CONSTANTS AT COMPILE TIME.)                ARITH    7357
                                                                                                                 ARITH    7358
          6271  0400406271 +             MODCH    ENTRY. *           ** ENTRY/EXIT **                            ARITH    7359
          6272  10655                             BX6    X5           SAVE                                       ARITH    7360
                     5160000342 +                 SA6       MCOPDA     MODE-CHANGE-OPERAND ADDRESS               ARITH    7361
                               76750              SX7    B5           SAVE                                       ARITH    7362
          6273  5170000343 +                      SA7       MCTYP      MODE CHANGE TYPE                          ARITH    7363
                          53150                   SA1    X5           GET TYPE OF (X5)                           ARITH    7364
                               26021              UX0 B2,X1                                                      ARITH    7365
          6274  6130000000                        SB3    T.LOG                                                   ARITH    7366
                          0453006353 +            EQ  B5,B3,MCH1      IF TLOG                                    ARITH    7367
          6275  0423006356 +                      EQ  B2,B3,MCH2      IF TLOG                                    ARITH    7368
                          20114                   LX1    59-47                                                   ARITH    7369
                               73650              SX6    X5                                                      ARITH    7370
          6276  0321006304 +                      PL     X1,NOTCON         BRANCH IF OPERAND IS NOT A CONSTANT   ARITH    7371
                          5215000002              SA1    X5+2              DO NOT CONVERT A ZERO CONSTANT IF     ARITH    7372
          6277  26031                             UX0    X1,B3             A SINGLE WORD ITEM                    ARITH    7373
                     7123000145                   SX2    B3+MZMC                                                 ARITH    7374
          6300  0302006302 +                      ZR     X2,MDISCON                                              ARITH    7375
                          6133000150              SB3    B3+MIZMC                                                ARITH    7376
          6301  0530006304 +                      NZ     B3,NOTCON                                               ARITH    7377
          6302  6130000002               MDISCON  SB3    T.REAL                                                  ARITH    7378
                          0635006271 +            LE     B5,B3,MODCH                                             ARITH    7379
          6303  0255006314 +                      JP     B5+MDCHTB+5 CONVERT 0 CONST TO DBL WORD                 ARITH    7380
          6304                           NOTCON   BSS    0                                                       ARITH    7381
          6304  6122777776                        SB2    B2-1         (X5) TYPE   COMPUTE POINT TO MDCHTB        ARITH    7382
                          6155777776              SB5    B5-1                                                    ARITH    7383
          6305  66222                             SB2    B2+B2        MULTIPLY B2 BY 6                           ARITH    7384
                     66422                        SB4    B2+B2        4*B2                                       ARITH    7385
                          66224                   SB2    B2+B4        6*B2                                       ARITH    7386
                               66425              SB4    B2+B5                                                   ARITH    7387
          6306  0244006307 +                      JP        B4+MDCHTB                                            ARITH    7388
                                        *                             (X5) TYPE TO B5 TYPE                       ARITH    7389
          6307  73650                    MDCHTB   SX6    X5           INT         INT                            ARITH    7390
                     0400006271 +                 EQ        MODCH                                                ARITH    7391
          6310  6170000152                        SB7       MCHMCB    INT         REAL                           ARITH    7392
                          0400006360 +            EQ        MCH3                                                 ARITH    7393
          6311  6170000153                        SB7       MCHMCB+1  INT         DBL                            ARITH    7394
                          0400006405 +            EQ        MCH4                                                 ARITH    7395
          6312  6170000153                        SB7       MCHMCB+1  INT         CMPX                           ARITH    7396
                          0400006405 +            EQ        MCH4                                                 ARITH    7397
          6313  73650                             SX6    X5           INT         OCT                            ARITH    7398
                     0400006271 +                 EQ        MODCH                                                ARITH    7399
          6314  73650                             SX6    X5           INT         HOL                            ARITH    7400
                     0400006271 +                 EQ        MODCH                                                ARITH    7401
          6315  6170000154                        SB7       MCHMCB+2  REAL        INT                            ARITH    7402
                          0400006360 +            EQ        MCH3                                                 ARITH    7403
          6316  73650                             SX6    X5           REAL        REAL                           ARITH    7404
                     0400006271 +                 EQ        MODCH                                                ARITH    7405
          6317  6170000155                        SB7       MCHMCB+3  REAL        DBL                            ARITH    7406
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   156
  
  
                          0400006405 +            EQ        MCH4                                                 ARITH    7407
          6320  6170000155                        SB7       MCHMCB+3  REAL        CMPX                           ARITH    7408
                          0400006405 +            EQ        MCH4                                                 ARITH    7409
          6321  73650                             SX6    X5           REAL        OCT                            ARITH    7410
                     0400006271 +                 EQ        MODCH                                                ARITH    7411
          6322  73650                             SX6    X5           REAL        HOL                            ARITH    7412
                     0400006271 +                 EQ        MODCH                                                ARITH    7413
          6323  6170000154                        SB7       MCHMCB+2  DBL         INT                            ARITH    7414
                          0400006360 +            EQ        MCH3                                                 ARITH    7415
          6324  6170000156                        SB7       MCHMCB+4  DBL         REAL                           ARITH    7416
                          0400006360 +            EQ        MCH3                                                 ARITH    7417
          6325  73650                             SX6    X5           DBL         DBL                            ARITH    7418
                     0400006271 +                 EQ        MODCH                                                ARITH    7419
          6326  6170000155                        SB7       MCHMCB+3  DBL         CMPX                           ARITH    7420
                          0400006405 +            EQ     MCH4                                                    ARITH    7421
          6327  6170000156                        SB7       MCHMCB+4  DBL         OCT                            ARITH    7422
                          0400006360 +            EQ        MCH3                                                 ARITH    7423
          6330  6170000156                        SB7       MCHMCB+4  DBL         HOL                            ARITH    7424
                          0400006360 +            EQ        MCH3                                                 ARITH    7425
          6331  6170000154                        SB7       MCHMCB+2  CMPX        INT                            ARITH    7426
                          0400006360 +            EQ        MCH3                                                 ARITH    7427
          6332  6170000156                        SB7       MCHMCB+4  CMPX        REAL                           ARITH    7428
                          0400006360 +            EQ        MCH3                                                 ARITH    7429
          6333  6170000155                        SB7       MCHMCB+3  CMPX        DBL                            ARITH    7430
                          0400006405 +            EQ     MCH4                                                    ARITH    7431
          6334  73650                             SX6    X5           CMPX        CMPX                           ARITH    7432
                     0400006271 +                 EQ        MODCH                                                ARITH    7433
          6335  6170000156                        SB7       MCHMCB+4  CMPX        OCT                            ARITH    7434
                          0400006360 +            EQ        MCH3                                                 ARITH    7435
          6336  6170000156                        SB7       MCHMCB+4  CMPX        HOL                            ARITH    7436
                          0400006360 +            EQ        MCH3                                                 ARITH    7437
          6337  73650                             SX6    X5           OCT         INT                            ARITH    7438
                     0400006271 +                 EQ        MODCH                                                ARITH    7439
          6340  73650                             SX6    X5           OCT         REAL                           ARITH    7440
                     0400006271 +                 EQ        MODCH                                                ARITH    7441
          6341  6170000155                        SB7       MCHMCB+3  OCT         DBL                            ARITH    7442
                          0400006405 +            EQ        MCH4                                                 ARITH    7443
          6342  6170000155                        SB7       MCHMCB+3  OCT         CMPX                           ARITH    7444
                          0400006405 +            EQ        MCH4                                                 ARITH    7445
          6343  73650                             SX6    X5           OCT         OCT                            ARITH    7446
                     0400006271 +                 EQ        MODCH                                                ARITH    7447
          6344  73650                             SX6    X5           OCT         HOL                            ARITH    7448
                     0400006271 +                 EQ        MODCH                                                ARITH    7449
          6345  73650                             SX6    X5           HOL         INT                            ARITH    7450
                     0400006271 +                 EQ        MODCH                                                ARITH    7451
          6346  73650                             SX6    X5           HOL         REAL                           ARITH    7452
                     0400006271 +                 EQ        MODCH                                                ARITH    7453
          6347  6170000155                        SB7       MCHMCB+3  HOL         DBL                            ARITH    7454
                          0400006405 +            EQ        MCH4                                                 ARITH    7455
          6350  6170000155                        SB7       MCHMCB+3  HOL         CMPX                           ARITH    7456
                          0400006405 +            EQ        MCH4                                                 ARITH    7457
          6351  73650                             SX6    X5           HOL         OCT                            ARITH    7458
                     0400006271 +                 EQ        MODCH                                                ARITH    7459
          6352  73650                             SX6    X5           HOL         HOL                            ARITH    7460
                     0400006271 +                 EQ        MODCH                                                ARITH    7461
                                                                                                                 ARITH    7462
                                        *     MCH1 IF B5 IS TLOG                                                 ARITH    7463
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   157
  
  
          6353  73650                    MCH1     SX6    X5                                                      ARITH    7464
                     5110006414 +                 SA1    ASFMF                                                   FCC1983    24
          6354  0311006410 +                      NZ     X1,MCH6     IF HERE FROM SFLPR - STATEMENT FUNCTION     FCC1983    25
                                        *                            PROCESSING                                  FCC1983    26
                          0523006356 +            NE  B2,B3,MCH2      IF LOG MIXED WITH NON-LOG                  ARITH    7465
          6355  0400006271 +                      EQ        MODCH     RETURN                                     ARITH    7466
          6356  43700                    MCH2     MX7    0                                                       FCC1983    27
                     5170006414 +                 SA7    ASFMF       RESET STATEMENT FUNCTION FLAG               FCC1983    28
          6357  6160000245                        EERR   ERMSG31     FE - LOG MIXED WITH NON-LOG                 FCC1983    29
                                                                                                                 ARITH    7468
          6360  5120000064               MCH3     SA2    NARN         HERE FOR TWO PARAMETER MACROS              ARITH    7469
          6361  5110000342 +             MCH5     SA1       MCOPDA    GET RI OF OPD:                             ARITH    7470
                          5231000002              SA3    X1+2         LOAD 1ST WD OF RLIST MACRO                 ARITH    7471
          6362  43054                             MX0       60-16                                                ARITH    7472
                     15730                        BX7   -X0*X3                                                   ARITH    7473
                          23602                   AX6    B0,X2                                                   ARITH    7474
          6363  5170000013 +                      SA7       PARAMS    STORE RI OF OPD                            ARITH    7475
                          5160000014 +            SA6       PARAMS+1  NARN TO PARAMS+1                           ARITH    7476
          6364  5013777775                        SA1    A3-2         TURN ON USED-BIT IN (X5)                   ARITH    7477
                          43001                   MX0       1                                                    ARITH    7478
                               20056              LX0       46                                                   ARITH    7479
          6365  12701                             BX7    X0+X1                                                   ARITH    7480
                     54710                        SA7    A1                                                      ARITH    7481
                          5140000064              SA4       NARN      UPDATE NARN                                ARITH    7482
          6366  7274000001                        SX7    X4+1                                                    ARITH    7483
                          5170000064              SA7       NARN                                                 ARITH    7484
          6367  5110001064 +                      SA1       SLBMD     FOR MACRO DESCRIPTOR WORD                  ARITH    7485
                          27371                   PX3    B7,X1        (ONLY 2 OF THE THREE R,S PACKED FOR SLBMD  ARITH    7486
          6370  5150000343 +                      SA5       MCTYP       WILL BE USED BY MCH3 TYPE MACROS. MCH4   ARITH    7487
                          5110000031 +            SA1       RL1         HAS ALREADY PLACED A 3RD)                ARITH    7488
          6371  5140000032 +                      SA4       RL2       SAVE RL1,2                                 ARITH    7489
                          10611                   BX6    X1                                                      ARITH    7490
                               23704              AX7    B0,X4                                                   ARITH    7491
          6372  5160000344 +                      SA6       MCHTS                                                ARITH    7492
                          5170000345 +            SA7       MCHTS+1                                              ARITH    7493
          6373  0100005576 +                      RJ        MACOUT    OUTPUT MODE CHANGE MACRO                   ARITH    7494
          6374  5217000002                        SA1    X7+2         SEE IF RNM TYPE MAC                        ARITH    7495
                          6120777622              SB2      -MCHMCB-3                                             ARITH    7496
          6375  26031                             UX0 B3,X1                                                      ARITH    7497
                     0423006377 +                 EQ  B2,B3,MCH5A     IF SO                                      ARITH    7498
          6376  6120777621                        SB2      -MCHMCB-4                                             ARITH    7499
                          0523006401 +            NE  B2,B3,MCH5B     IF NOT                                     ARITH    7500
          6377  43001                    MCH5A    MX0       1         TURN ON XMT BIT IN FIRST WD OF ARLIST ENTY ARITH    7501
                     53170                        SA1    X7                                                      ARITH    7502
                          20055                   LX0       45                                                   ARITH    7503
                               12601              BX6    X0+X1                                                   ARITH    7504
          6400  53670                             SA6    X7                                                      ARITH    7505
          6401  5110000344 +             MCH5B    SA1    MCHTS                                                   ARITH    7506
                          5120000345 +            SA2       MCHTS+1                                              ARITH    7507
          6402  10611                             BX6    X1                                                      ARITH    7508
                     23702                        AX7    B0,X2                                                   ARITH    7509
                          5130000032 +            SA3       RL2                                                  ARITH    7510
          6403  5160000031 +                      SA6       RL1                                                  ARITH    7511
                          5170000032 +            SA7       RL2                                                  ARITH    7512
          6404  10633                             BX6    X3           SET X6 TO ADR OF CONVERT MACRO             ARITH    7513
                     0400006271 +                 EQ     MODCH                                                   ARITH    7514
                                                                                                                 ARITH    7515
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   158
  
  
          6405  5120000064               MCH4     SA2    NARN         HERE FOR THREE PARAMETER MACROS            ARITH    7516
                          7272000001              SX7    X2+1                                                    ARITH    7517
          6406  5170000015 +                      SA7       PARAMS+2                                             ARITH    7518
                          5170000064              SA7       NARN                                                 ARITH    7519
          6407  0400006361 +                      EQ        MCH5                                                 ARITH    7520
                                                                                                                 FCC1983    30
          6410  5160006414 +             MCH6     SA6    ASFMF       SAVE CURRENT ARLIST ADDRESS                 FCC1983    31
                          6160000245              IDM    ERMSG31     WARNING - LOG MIXED WITH NON LOG            FCC1983    32
          6412  5150006414 +                      SA5    ASFMF                                                   FCC1983    33
                          10655                   BX6    X5          RESTORE CURRENT ARLIST ADDRESS              FCC1983    34
          6413  0400006271 +                      EQ     MODCH       RETURN                                      FCC1983    35
                                                                                                                 FCC1983    36
          6414  00000000000000000000     ASFMF    CON    0                                                       FCC1983    37
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   159
  
  
                                        *     FFRTS: OUTPUTS FETCH OF SAVED FUNCTION RESULT.  ENTER WITH B2=TYPE ARITH    7522
                                        *           OF FUNC, AND X4=FRSTB ENTRY.                                 ARITH    7523
                                                                                                                 ARITH    7524
          6415  0400406415 +             FFRTS    ENTRY. *           ** ENTRY/EXIT **                            ARITH    7525
          6416  5110000376 +                      SA1       SFRSTB                                               ARITH    7526
                          7261777776              SX6    X1-1                                                    ARITH    7527
          6417  5160000376 +                      SA6       SFRSTB                                               ARITH    7528
                          5110000064              SA1       NARN      SAVE NARN                                  ARITH    7529
          6420  10611                             BX6    X1                                                      ARITH    7530
                     5160000354 +                 SA6       FFRTSTS                                              ARITH    7531
                               76720              SX7    B2           PREPARE FOR CALL TO FETCH                  ARITH    7532
          6421  20770                             LX7    P.TYP                                                   ARITH    7533
                     5170000326 +                 SA7       NAME+1    SET UP TYPE                                ARITH    7534
                               43054              MX0       60-16                                                ARITH    7535
          6422  15640                             BX6   -X0*X4                                                   ARITH    7536
                     5160000064                   SA6       NARN      SET NAME OF RESULT                         ARITH    7537
                               66600              SB6    B0           RF                                         ARITH    7538
          6423  21420                             AX4    16                POSITION ST NUMBER                    ARITH    7539
                     63740                        SB7    X4                CA                                    ARITH    7540
                          5150000000 X            SA5    ST.               IH OF ST.                             ARITH    7541
          6424  76600                             SX6    B0                                                      ARITH    7542
                     5160000035 +                 SA6    IDORDLTS                                                ARITH    7543
          6425  5066000001                        SA6    A6+1                                                    ARITH    7544
                          0100005650 +            RJ        FETCH     B6,7,X5 SET                                ARITH    7545
          6426  5110000354 +                      SA1       FFRTSTS                                              ARITH    7546
                          10611                   BX6    X1                                                      ARITH    7547
          6427  5160000064                        SA6       NARN                                                 ARITH    7548
                          0400006415 +            ZR        FFRTS                                                ARITH    7549
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   160
  
  
                                        *     OPNCON: ENTER WITH CONST IN X6, AND TYPEWD SET.  OUTPUT NEW CONST  ARITH    7551
                                        *            FETCH OR SET, AND RESET RL,S.                               ARITH    7552
          6430  0100005517 +             OPNCN3   RJ        FNDOP                                                ARITH    7553
          6431  5160000031 +                      SA6       RL1                                                  ARITH    7554
                                                                                                                 ARITH    7555
          6432  0400406432 +             OPNCON   ENTRY. *           ** ENTRY/EXIT **                            ARITH    7556
          6433  43053                             MX0       60-17                                                ARITH    7557
                     11106                        BX1    X0*X6                                                   ARITH    7558
                          0301006444 +            ZR     X1,OPNCN1    IF CON< 400000B                            ARITH    7559
          6434  0306006444 +                      ZR     X6,OPNCN1                                               ARITH    7560
                          15106                   BX1    -X6*X0                                                  ARITH    7561
          6435  0301006444 +                      ZR     X1,OPNCN1    IF -CON< 400000B                           ARITH    7562
          6436  10166                    OPNCN2   BX1    X6                                                      ARITH    7563
                     6110000001                   SB1       1                                                    ARITH    7564
          6437  0100000000 X                      RJ        CONVERT   ENTER CONST IN CONLIST                     ARITH    7565
          6440  5120000032                        SA2    EPOINT                                                  ARITH    7566
                          6212000001              SB1    X2+1                                                    ARITH    7567
          6441  5120000323 +                      SA2       TYPEWD                                               ARITH    7568
                          10622                   BX6    X2                                                      ARITH    7569
          6442  0100006165 +                      RJ        CFETCH    OUTPUT CONST LOAD.                         ARITH    7570
          6443  0400006430 +                      ZR        OPNCN3                                               ARITH    7571
                                        *                                                                        ARITH    7572
          6444  5110000323 +             OPNCN1   SA1       TYPEWD                                               ARITH    7573
                          6221777775              SB2    X1-T.REAL                                               ARITH    7574
          6445  0306006446 +                      ZR     X6,OPNCN4                                               ARITH    7575
                          0420006436 +            ZR     B2,OPNCN2    IF REAL CONST, FORCE FETCH                 ARITH    7576
          6446  10566                    OPNCN4   BX5    X6                                                      ARITH    7577
                     7170000773                   SX7    773B              INHIBIT FORMATION OF -CON             ARITH    7578
          6447  5170001321 +                      SA7    BSAV              IF CON IS OF FORM -(2**N - 1)         ARITH    7579
                          0100005752 +            RJ     STCON                                                   ARITH    7580
          6450  5110000323 +                      SA1       TYPEWD                                               ARITH    7581
                          63210                   SB2    X1                                                      ARITH    7582
                               27626              PX6    B2,X6                                                   ARITH    7583
          6451  54660                             SA6    A6                                                      ARITH    7584
                     0400006430 +                 ZR        OPNCN3                                               ARITH    7585
  
  
  
                                        **        SDFINE - SET DEFINE BIT IN SYMTAB                              ARITH    7587
                                        *         ENTRY  (X1) = ADDRESS OF ARLIST ENTRY                          ARITH    7588
                                        *         EXIT   (X6) = WORD A OF SYMTAB ENTRY                           ARITH    7589
                                        *                (A6) = ADDRESS OF WORD A                                ARITH    7590
                                        *                (X4) = WORD A BEFORE DEFINE BIT WAS SET                 ARITH    7591
                                        *         PRESERVES X1,X2                                                ARITH    7592
                                                                                                                 ARITH    7593
          6452  0400406452 +             SDFINE   ENTRY. *           ** ENTRY/EXIT **                            ARITH    7594
          6453  5241000003                        SA4    X1+3                                                    ARITH    7595
                          7264677777              SX6    X4-I.GL                                                 ARITH    7596
          6454  0326006452 +                      PL     X6,SDFINE   IF NOT IN SYMTAB                            ARITH    7597
                          5130000012              SA3    SYM1                                                    ARITH    7598
          6455  73440                             SX4    X4                                                      ARITH    7599
                     20401                        LX4    1                                                       ARITH    7600
                          37634                   IX6    X3-X4                                                   ARITH    7601
                               53460              SA4    X6                WORD A                                ARITH    7602
          6456  7100200000                        SX0    V.DEF                                                   ARITH    7603
                          12604                   BX6    X0+X4       SET DEF BIT FOR THIS SYMBOL                 ARITH    7604
                               54640              SA6    A4                                                      ARITH    7605
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   161
                                                                      SDFINE
  
          6457  0400006452 +                      EQ     SDFINE                                                  ARITH    7606
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   162
                                                                      CVDB
  
                                        **        CVDB - ISSUE R-MACRO TO COMPUTE VARIABLE DIM ARRAY BOUNDS.     ARITH    7608
                                                                                                                 ARITH    7609
          6460  0400406460 +             CVDB     ENTRY. **          ** ENTRY/EXIT **                            ARITH    7610
          6461  5110000000 X                      SA1    =XDFLAG                                                 ARITH    7611
                          5120000000 X            SA2    =XVARDIM                                                ARITH    7612
          6462  0301006460 +                      ZR     X1,CVDB     IF DEBUG OFF, EXIT ...                      ARITH    7613
                          0302006460 +            ZR     X2,CVDB     IF NO VARDIM FORMAL PARAMS, EXIT ...        ARITH    7614
          6463  5140000012                        SA4    SYM1                                                    ARITH    7615
                          7150000002              SX5    2           SYMBOL TABLE ORDINAL OF FIRST F.P.          ARITH    7616
          6464  5120000000 X                      SA2    =XFP.                                                   ARITH    7617
                          6150000001              SB5    1                                                       ARITH    7618
          6465  53040                             SA0    X4                                                      ARITH    7619
                     10722                        BX7    X2                                                      ARITH    7620
                          5170006511 +            SA7    CVDBB+1                                                 ARITH    7621
          6466  22655                    CVD1     LX6    B5,X5                                                   ARITH    7622
                     63260                        SB2    X6                                                      ARITH    7623
                          55102                   SA1    A0-B2       WORDA                                       ARITH    7624
                               20152              LX1    59-P.FP                                                 ARITH    7625
          6467  0321006460 +                      PL     X1,CVDB     IF NOT AN F.P.                              ARITH    7626
                          20104                   LX1    P.FP-P.DIM                                              ARITH    7627
                               73555              SX5    X5+B5                                                   ARITH    7628
          6470  0321006466 +                      PL     X1,CVD1     IF NOT DIMENSIONED                          ARITH    7629
                          55215                   SA2    A1-B5       WORDB                                       ARITH    7630
                               10655              BX6    X5                                                      ARITH    7631
          6471  43070                             MX0    -L.TYP                                                  ARITH    7632
                     5160006507 +                 SA6    CVDA        SAVE SYMBOL TABLE ORDINAL                   ARITH    7633
                               20204              LX2    -P.TYP                                                  ARITH    7634
          6472  15320                             BX3    -X0*X2                                                  ARITH    7635
                     6263777774                   SB6    X3-T.DBL                                                ARITH    7636
                               20217              LX2    P.TYP-P.DIMP                                            ARITH    7637
          6473  43060                             MX0    -L.DIMP                                                 ARITH    7638
                     15220                        BX2    -X0*X2                                                  ARITH    7639
                          5110000017              SA1    DIM1                                                    ARITH    7640
          6474  20201                             LX2    1                                                       ARITH    7641
                     63215                        SB2    X1+B5                                                   ARITH    7642
                          43003                   MX0    3                                                       ARITH    7643
                               53522              SA5    B2+X2       DIM INFO WORD                               ARITH    7644
          6475  20071                             LX0    -3                                                      ARITH    7645
                     11405                        BX4    X0*X5                                                   ARITH    7646
                          0304006505 +            ZR     X4,CVD3     IF P(ABC) = 0 */ NOT VARDIM                 ARITH    7647
          6476  7266777774                        SX6    X6-3                                                    ARITH    7648
                          5160006513 +            SA6    CVDBB+3     CA OF STORE                                 ARITH    7649
          6477  10355                             BX3    X5                                                      ARITH    7650
                     21371                        AX3    57                                                      ARITH    7651
                          66300                   SB3    B0                                                      ARITH    7652
          6500  0760006501 +                      MI     B6,CVD2     IF SINGLE PRECISION                         ARITH    7653
                          66350                   SB3    B5                                                      ARITH    7654
          6501  43700                    CVD2     MX7    0                                                       ARITH    7655
                     0100000000 X                 CALL   WWC         OUTPUT BOUNDS COMPUTATION MACRO             ARITH    7656
          6502  5110000064                        SA1    NRLN                                                    ARITH    7657
                          7261777776              SX6    X1-1                                                    ARITH    7658
          6503  5160006512 +                      SA6    CVDBB+2                                                 ARITH    7659
                          6170006510 +            WRM    CVDBB       OUTPUT STORE MACRO                          ARITH    7660
          6505  5150006507 +             CVD3     SA5    CVDA                                                    ARITH    7661
                          5140000012              SA4    SYM1                                                    ARITH    7662
          6506  53040                             SA0    X4                                                      ARITH    7663
                     0400006466 +                 EQ     CVD1                                                    ARITH    7664
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   163
                                                                      CVDB
  
                                                                                                                 ARITH    7665
          6507  00000000000000000002     CVDA     CON    2           ORD OF FIRST F.P.                           ARITH    7666
          6510  16500000030000000000     CVDBB    RMHDR  TSMACC,3                                                ARITH    7667
          6511                     3              BSS    3                                                       ARITH    7668
  
  
  
  
                                        ***                                                                      ARITH    7670
                                        *         ROUTINE TO STRIP OFF A TRAILING $ FROM A NAME                  ARITH    7671
                                        *           ENTRY: NAME IN UPPER 42 BITS OF X1                           ARITH    7672
                                        *           EXIT: SAME AS ENTRY, BUT WITHOUT $ IF ONE FOUND              ARITH    7673
                                        *                                                                        ARITH    7674
          6514  0400406514 +             STRIP    ENTRY. **                ** ENTRY/EXIT **                      ARITH    7675
          6515  6110000022                        SB1    18                INITIAL SHIFT COUNT                   ARITH    7676
                          6120000006              SB2    6                 SHIFT INCREMENT                       ARITH    7677
          6516  7120000055                        SX2    1R                BLANK CHARACTER                       ARITH    7678
                          10611                   BX6    X1                SAVE ORIGINAL COPY                    ARITH    7679
                               43066              MX0    60-6              CHARACTER MASK                        ARITH    7680
          6517  21122                             AX1    18                POSITION LAST CHARACTER FIELD OF NAME ARITH    7681
          6520  15310                    STRIP0   BX3    -X0*X1            GET CHARACTER                         ARITH    7682
                     37732                        IX7    X3-X2       IS CHARACTER A BLANK                        FCC1289X   15
                          0307006523 +            ZR     X7,STRIP1   YES                                         FCC1289X   16
          6521  7253777724                        SX5    X3-1R$            IS CHARACTER A $                      ARITH    7685
                          0305006524 +            ZR     X5,STRIP2         YES                                   ARITH    7686
          6522  10166                             BX1    X6                SET UP EXIT CONDITION                 ARITH    7687
                     0400006514 +                 EQ     STRIP             EXIT                                  ARITH    7688
          6523  66112                    STRIP1   SB1    B1+B2             INCREMENT SHIFT COUNT                 ARITH    7689
                     20166                        LX1    60-6              POSITION NEXT CHARACTER               ARITH    7690
                          0400006520 +            EQ     STRIP0                                                  ARITH    7691
          6524  22717                    STRIP2   LX7    B1                                                      FCC1289X   17
                     37667                        IX6    X6-X7             CONVERT THE $ TO A BLANK              ARITH    7693
                          10166                   BX1    X6                SET UP EXIT CONDITION                 ARITH    7694
          6525  0400006514 +                      EQ     STRIP             EXIT                                  ARITH    7695
                                                                                                                 ARITH    7696
                                                                                                                 ARITH    7697
                                        *         ENTRY POINT FOR FORTRAN CALLS                                  ARITH    7698
          6526  0400406526 +             FSTRIP   ENTRY. **                ** ENTRY/EXIT **                      ARITH    7699
          6527  53110                             SA1    X1                GET FUNCTION PARAMETER                ARITH    7700
                     5120006526 +                 PLUG   AT=STRIP,FROM=FSTRIP,FREG=2                             ARITH    7701
          6532  0400006515 +                      EQ     STRIP+1           BEGIN EXECUTION                       ARITH    7702
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   164
         IXFN -GENERATE LOADS FOR I/O PROCESSOR 
  
                                        ***                                                                      ARITH    7704
                                        *         IXFN - SET UP ADDRESS OF SYMBOL SBI  LOCF(EXPR) FOR            ARITH    7705
                                        *         I/O LIST PROCESSOR                                             ARITH    7706
                                        *                                                                        ARITH    7707
                                        *         ON ENTRY:                                                      ARITH    7708
                                        *                SELIST POINTS TO FIRST ITEM IN LIST                     ARITH    7709
                                        *                X3 = EXPRESSION FLAG                                    ARITH    7710
                                        *                X6 = REFMAP REFERENCE TYPE FLAG                         ARITH    7711
                                        *                                                                        ARITH    7712
                                        *         ON EXIT:                                                       ARITH    7713
                                        *                SELIST POINTS PAST EXPRESSION ( TO A , OR EOS )         ARITH    7714
                                        *                X2 = SYMTAB ORDINAL OF NAME                             ARITH    7715
                                        *                                                                        ARITH    7716
                                                                                                                 ARITH    7717
          6533                     1     REFTYPE  BSS    1                 REFERENCE TYPE FOR FIRST REFERENCE    ARITH    7718
          6534                     1     EXPFLAG  BSS    1           ZERO IF EXPRESSIONS ALLOWED, NON-ZERO OTHER ARITH    7719
          6535                     1     IXFN.SN  BSSZ   1                 SAVED VALUE OF NAME                   ARITH    7720
                                        *         ALLOCATE LOCAL *BIO* FLAG WITH FOLLOWING MEANINGS..            FCC1092     5
                                        *         ABIO .NZ. MEANS NO RESTART CALLS FOR THAT ITEM.                FCC1092     6
                                        *         ABIO .MI. MEANS UNQUALIFIED ARRAY NAME SYNTACTICALLY ACCEP-    FCC1092     7
                                        *         TABLE.                                                         FCC1092     8
                                        *         ABIO .MI. AND SET(ABIO) .NZ. FURTHER MEANS THAT THIS IS A      FCC1092     9
                                        *         BUFFER I/O LWA ITEM, AND ADDRESS MUST BE INCREMENTED IF DOUBLE FCC1092    10
                                        *         WORD.                                                          FCC1092    11
                                                                                                                 FCC1092    12
          6536                     1     ABIO     BSS    1                                                       FCC1092    13
                                                                                                                 ARITH    7723
                                                  EXT    IXFNCL                                                  ARITH    7724
                                                  EXT    APLRST,HOLCON,IARC,IOEXP,PARCNT,TYPEFG                  ARITH    7725
                                                  EXT    LDFLAG                                                  ARITH    7726
                                                                                                                 ARITH    7727
          6537  0400406537 +             IXFN     ENTRY. **                ** ENTRY/EXIT **                      ARITH    7728
          6540  10733                             BX7    X3                                                      FCC0787   199
                     5170006534 +                 SA7    EXPFLAG     EXPRESSION FLAG                             FCC0787   200
          6541  5160006533 +                      SA6    REFTYPE           SAVE REFERENCE MAP REFERENCE TYPE     ARITH    7741
                          5150000000 X            SA5    =XRSELECT         FOR AN 'IXFN' CALL SET THE LOCAL      ARITH    7742
          6542  0316006544 +                      NZ     X6,IXFN1           COPY OF THE REFERENCE-SELECTION-FLAG ARITH    7743
                          0326006544 +            PL     X6,IXFN1          EQUAL TO THE EXTERNAL VALUE UNLESS    ARITH    7744
          6543  13555                             BX5    X5-X5             THIS IS A SPECIAL CALL (I.E. 'IXFN'   ARITH    7745
                                                                           FLAG IS -0), IN WHICH CASE SET THE    ARITH    7746
                                                                           FLAG SO THAT NO REFERENCES WILL BE    ARITH    7747
                                                                           COLLECTED.                            ARITH    7748
          6544  10655                    IXFN1    BX6    X5                                                      ARITH    7749
                     43701                        MX7    1                                                       ARITH    7750
                          5160007604 +            SA6    REFSELCT                                                ARITH    7751
          6545  5170000005 +                      SA7    EQCOUNT           SET IXFN FLAG FOR ID/REFMAP PROC      ARITH    7752
                          0100007034 +            RJ     INITR             INITIALIZE ARITH                      ARITH    7753
          6546  5120000000 X                      SA2    IXFNCL                                                  ARITH    7754
                          43700                   MX7    0                                                       ARITH    7755
                               54720              SA7    A2                                                      ARITH    7756
          6547  0302006550 +                      ZR     X2,IXFN1A   IF NOT I/O UNIT OR VAR FORMAT               ARITH    7757
                          14666                   BX6    -X6                                                     FCC0787   201
                                                                                                                 ARITH    7761
          6550  5160000401 +             IXFN1A   SA6    IXFNFG      NON-ZERO VALUES ARE USED IF FROM IXFN       ARITH    7762
                          5120000000 X            SA2    =XBIO                                                   ARITH    7763
          6551  10622                             BX6    X2                                                      ARITH    7764
                     5160006536 +                 SA6    ABIO                                                    ARITH    7765
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   165
         IXFN -GENERATE LOADS FOR I/O PROCESSOR 
  
                               43600              MX6    0                                                       FCC0599     5
          6552  5130006534 +                      SA3    EXPFLAG                                                 FCC0787   202
                          5150000032              SA5    SELIST                                                  FCC0787   203
          6553  54620                             SA6    A2                                                      FCC0787   204
                     53450                        SA4    X5                                                      FCC0787   205
                          26544                   UX5    B4,X4                                                   FCC0787   206
                               10744              BX7    X4                                                      FCC0787   207
          6554  0303006555 +                      ZR     X3,IXFN1B   IF EXPRESSIONS ALLOWED                      FCC0787   208
                          0545006610 +            NE     B4,B5,IXFN5 IF NOT A NAME, ERROR                        FCC0787   209
          6555  5170006535 +             IXFN1B   SA7    IXFN.SN     SAVE NAME FOR POSSIBLE ERROR                FCC0787   210
                          0100002370 +            RJ     SSERR3      CHECK SYNTAX OF ITEM, B4_ITEM               FCC0787   211
          6556  5150000032                        SA5    SELIST                                                  FCC0787   212
                          6130000003              SB3    EL.COMMA                                                FCC0787   213
          6557  27633                             PX6    B3,X3                                                   FCC0787   214
                     53655                        SA6    X5+B5       FOR CORRECT UNARY MINUS PROCESSING          FCC0787   215
                          7170002037              SX7    2000B+XFLP                                              ARITH    7766
          6560  20760                             LX7    48                                                      ARITH    7767
                     76650                        SX6    B5                                                      ARITH    7768
                          5170007622 +            SA7    OPSTAK+1          SET A IXFN ( IN THE OPSTACK           ARITH    7769
          6561  5160000377 +                      SA6    OSPTR       OSPTR = 1                                   ARITH    7770
                          5130000000 X            SA3    =XCPLXC                                                 FCC0787   216
          6562  43700                             MX7    0                                                       FCC0787   217
                     54730                        SA7    A3                                                      FCC0787   218
                          0303001066 +            ZR     X3,NEXTE    IF NOT PROCESSED CPLX CONST                 FCC0787   219
          6563  7170000004                        SX7    T.CPLX                                                  FCC0787   220
                          10633                   BX6    X3                                                      FCC0787   221
          6564  5170000323 +                      SA7    TYPEWD                                                  FCC0787   222
                          54650                   SA6    A5          POINT PAST )                                FCC0787   223
          6565  0400001273 +                      EQ     CON2A                                                   FCC0787   224
                                                                                                                 ARITH    7772
                                        *         IXFN ( POPPED FROM THE STACK                                   ARITH    7773
                                                                                                                 ARITH    7774
          6566  7160000000 X             IXFN2    OUTUSE DATA.       IN CASE HOL. CON WAS OUTPUT                 FCC1082     4
          6567  5120000000 X                      SA2    HOLCON                                                  FCC1082     5
                          7160000000              SX6    0                                                       ARITH    7776
          6570  5160000000 X                      SA6    IXFNCL                                                  ARITH    7777
                          6150000001              SB5    1                                                       ARITH    7778
          6571  0302006574 +                      ZR     X2,IXFN2A         IF NOT STAND ALONE HOLLERITH CONSTANT ARITH    7779
                          5150006533 +            SA5    REFTYPE                                                 ARITH    7780
          6572  5140006535 +                      SA4    IXFN.SN           IN CASE OF AN ERROR                   ARITH    7781
                          0335006610 +            NG     X5,IXFN5          IF CONSTANT IN A READ STMT            ARITH    7782
          6573  0400006646 +                      EQ     IXFN9                                                   ARITH    7783
                                                                                                                 ARITH    7784
          6574  5110000032 +             IXFN2A   SA1    RL2                                                     ARITH    7785
                          53210                   SA2    X1                LAST RLIST OP                         ARITH    7786
                               26022              UX0    B2,X2                                                   ARITH    7787
          6575  10611                             BX6    X1                                                      ARITH    7788
                     5160001127 +                 SA6    RL2TS             SAVE ADDRESS OF LAST MACRO            ARITH    7789
                               76720              SX7    B2                                                      ARITH    7790
          6576  5170000000 X                      SA7    TYPEFG            SAVE LAST MACRO TYPE                  ARITH    7791
                          6130000003              SB3    T.DBL                                                   ARITH    7792
          6577  0723006603 +                      LT     B2,B3,IXFN3       IF SINGLE PRECISION                   ARITH    7793
                          6140000004              SB4    T.CPLX                                                  ARITH    7794
          6600  0742006603 +                      GT     B2,B4,IXFN3       IF NOT DOUBLE OR COMPLEX              ARITH    7795
                          5130000064              SA3    NRLN                                                    ARITH    7796
          6601  7263777776                        SX6    X3-1              DOUBLE PRECISION, BACK OFF NRLN       ARITH    7797
                          54630                   SA6    A3                                                      ARITH    7798
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   166
         IXFN -GENERATE LOADS FOR I/O PROCESSOR 
  
                               43001              MX0    1                                                       ARITH    7799
          6602  12707                             BX7    X0+X7             SET TOP BIT IF DOUBLE WORD            ARITH    7800
                     54770                        SA7    A7                                                      ARITH    7801
          6603  5221000002               IXFN3    SA2    X1+2              GET FIRST RLIST WORD                  ARITH    7802
                          26022                   UX0    B2,X2                                                   ARITH    7803
                               43600              MX6    0                                                       ARITH    7804
                                                                                                                 ARITH    7805
                                        *         SEE IF THE LAST MACRO IS A LOAD, AND IF SO REPLACE IT WITH     ARITH    7806
                                        *         THE CORRESPONDING SET MACRO                                    ARITH    7807
                                                                                                                 ARITH    7808
          6604  5130006652 +                      SA3    IXFN.TAB-1                                              ARITH    7809
                          6150000001              SB5    1                                                       ARITH    7810
          6605  54335                    IXFN4    SA3    A3+B5             TABLE ENTRY                           ARITH    7811
                     73432                        SX4    X3+B2                                                   ARITH    7812
                          0304006615 +            ZR     X4,IXFN6          IF A MATCH                            ARITH    7813
          6606  0313006605 +                      NZ     X3,IXFN4          IF NOT END OF THE TABLE               ARITH    7814
                          5150006534 +            SA5    EXPFLAG                                                 ARITH    7815
          6607  0305006612 +                      ZR     X5,IXFN5A   IF EXPRESSIONS ARE ALLOWED                  ARITH    7816
                          5140006535 +            SA4    IXFN.SN                                                 ARITH    7817
          6610  6160000236               IXFN5    SB6    ERMSG24           ILLEGAL I/O ADDRESS                   ARITH    7818
                          6170000000 X            SB7    DOGOOF                                                  ARITH    7819
          6611  0400000000 X                      EQ     ERPRO                                                   ARITH    7822
          6612  43212                    IXFN5A   MX2    10                                                      ARITH    7823
                     0100006041 +                 RJ     OTS         OUTPUT TEMP STORES                          ARITH    7824
                                                  LX2    AP.IHP                                                  ARITH    7825
          6613  20322                             LX3    AP.CAP                                                  ARITH    7826
                     12223                        BX2    X2+X3                                                   ARITH    7827
                          20471                   LX4    AP.P1P                                                  ARITH    7828
                               36724              IX7    X2+X4       IOEXP = AP(P1,CA,IH)                        ARITH    7829
          6614  5170000000 X                      SA7    IOEXP             SET NONZERO                           ARITH    7830
                          0400005470 +            EQ     OUT               OUTPUT EXPRESSION                     ARITH    7831
                                                                                                                 ARITH    7832
          6615  5140000000 +             IXFN6    SA4    SAVDAN                                                  ARITH    7833
                          0304006620 +            ZR     X4,IXFN6D         IF NOT EXPLICIT CODE FLUSHING         ARITH    7834
          6616  43700                             MX7    0                                                       ARITH    7835
                     54740                        SA7    A4                CLEAR FLAG                            ARITH    7836
                          5170000000 X            SA7    APLRST            ENSURE A ZERO FLAG                    ARITH    7837
          6617  0324006641 +                      PL     X4,IXFN6C                                               ARITH    7838
                          76655                   SX6    B5+B5                                                   ARITH    7839
          6620  53410                    IXFN6D   SA4    X1                MACRO HEADER                          ARITH    7840
                     20427                        LX4    59-36             SHIFT NON STANDARD LOAD BIT           ARITH    7841
                          5150006536 +            SA5    ABIO                                                    ARITH    7842
          6621  43700                             MX7    0                                                       FCC1092    14
                     0324006622 +                 PL     X4,IXFN6D1  IF NOT NON-STANDARD LOAD                    FCC1092    15
                               77605              SX6    B0-B5                                                   ARITH    7844
          6622  0325006630 +             IXFN6D1  PL     X5,IXFN6D2  IF NOT BUFFER I/O                           FCC1092    16
                          73550                   SX5    X5                                                      FCC1092    17
          6623  0315006630 +                      NZ     X5,IXFN6D2  IF NOT LWA                                  FCC1092    18
                          5150000000 X            SA5    TYPEFG                                                  FCC1092    19
          6624  0325006630 +                      PL     X5,IXFN6D2  IF NOT DOUBLE WORD ITEM                     FCC1092    20
                          43701                   MX7    1                                                       FCC1092    21
          6625  0324006631 +                      PL     X4,IXFN6A   IF NOT NON-STANDARD LOAD                    FCC1092    22
                          5251000005              SA5    X1+2+3                                                  ARITH    7848
          6626  43452                             MX4    -18                                                     ARITH    7849
                     73755                        SX7    X5+B5                                                   ARITH    7850
                          11545                   BX5    X4*X5                                                   ARITH    7851
                               15774              BX7    -X4*X7                                                  ARITH    7852
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   167
         IXFN -GENERATE LOADS FOR I/O PROCESSOR 
  
          6627  12775                             BX7    X7+X5                                                   ARITH    7853
                     54750                        SA7    A5          CA = CA + 1                                 ARITH    7854
                          0400006640 +            EQ     IXFN6B                                                  ARITH    7855
                                                                                                                 ARITH    7856
          6630  0324006631 +             IXFN6D2  PL     X4,IXFN6A   IF NOT NON-STD LOAD                         FCC1092    23
                          0400006640 +            EQ     IXFN6B                                                  FCC1092    24
                                                                                                                 FCC1092    25
          6631  7142000004               IXFN6A   SX4    B2+STLMAC                                               FCC1092    26
                          0314006636 +            NZ     X4,IXFN6B1  IF NOT IXFN MACRO                           FCC1092    27
          6632  76650                             SX6    B5                                                      FCC1092    28
                     0327006640 +                 PL     X7,IXFN6B   IF NOT DOUBLE WORD BUFFER LWA               FCC1092    29
          6633  5251000003                        SA5    X1+2+1            IH,CA OF ARRAY                        ARITH    7863
                          43452                   MX4    -IX.CAL                                                 ARITH    7864
                               20552              LX5    -IX.CAP                                                 ARITH    7865
          6634  73755                             SX7    X5+B5                                                   ARITH    7866
                     15774                        BX7    -X4*X7                                                  ARITH    7867
                          11545                   BX5    X4*X5                                                   ARITH    7868
                               12775              BX7    X7+X5                                                   ARITH    7869
          6635  20722                             LX7    IX.CAP                                                  ARITH    7870
                     54750                        SA7    A5                CA = CA + 1                           ARITH    7871
                          0400006640 +            EQ     IXFN6B                                                  ARITH    7872
                                                                                                                 ARITH    7873
          6636  0327006640 +             IXFN6B1  PL     X7,IXFN6B   IF NOT DOUBLE WORD BUFFER LWA               FCC1092    30
                          5150000006 +            SA5    NCA                                                     ARITH    7876
          6637  73755                             SX7    X5+B5                                                   ARITH    7877
                     54750                        SA7    A5                NCA = NCA + 1                         ARITH    7878
          6640  5160000000 X             IXFN6B   SA6    APLRST      APLIST RESTART FLAG                         ARITH    7879
                          0306006643 +            ZR     X6,IXFN7          ONLY DUMP ARRAY REFERENCES            ARITH    7880
          6641  26423                    IXFN6C   UX4    B2,X3             GET SET X MACRO OP                    ARITH    7881
                     27720                        PX7    B2,X0             REPLACE SA WITH SX MACRO              ARITH    7882
                          54720                   SA7    A2                                                      ARITH    7883
          6642  0400005470 +                      EQ     OUT                                                     ARITH    7884
                                                                                                                 ARITH    7885
          6643  5130000000 X             IXFN7    SA3    IOEXP                                                   ARITH    7886
                          0303006645 +            ZR     X3,IXFN8          IF NOT AN I/O EXPRESSION              ARITH    7887
          6644  5120000000 X                      SA2    ST.               NEEDED FOR LISTIO PROCESSING          ARITH    7888
                          0400006646 +            EQ     IXFN9                                                   ARITH    7889
                                                                                                                 ARITH    7890
          6645  5110001127 +             IXFN8    SA1    RL2TS                                                   ARITH    7891
                          5221000001              SA2    X1+1              SYMTAB ORDINAL OF THE FIRST ITEM      ARITH    7892
          6646  5150000032               IXFN9    SA5    SELIST                                                  ARITH    7893
                          73655                   SX6    X5+B5             ADVANCE SELIST                        ARITH    7894
                               54650              SA6    A5                                                      ARITH    7895
          6647  5140006533 +                      SA4    REFTYPE           IF THIS WAS A READ TYPE I/O-LIST THEN ARITH    7896
                          0324006537 +            PL     X4,IXFN           SET THE DEFINED BIT, OTHERWISE EXIT.  ARITH    7897
          6650  5140000012                        SA4    SYM1                                                    ARITH    7898
                          22752                   LX7    X2,B5                                                   ARITH    7899
                               73370              SX3    X7                                                      ARITH    7900
          6651  37743                             IX7    X4-X3                                                   ARITH    7901
                     53470                        SA4    X7                                                      ARITH    7902
                          7130200000              SX3    V.DEF                                                   ARITH    7903
          6652  12743                             BX7    X4+X3                                                   ARITH    7904
                     54740                        SA7    A4                                                      ARITH    7905
                          0400006537 +            EQ     IXFN                                                    ARITH    7906
  
  
  
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   168
         IXFN -GENERATE LOADS FOR I/O PROCESSOR 
  
                                        ***                                                                      ARITH    7908
                                        *         IXFN MACRO EQUIVALENCE TABLE                                   ARITH    7909
                                        *         NOTE THAT THE TRANSFORMATIONS PERFORMED BY IXFN ARE            ARITH    7910
                                        *         DEPENDENT ON THE FACT THAT THE EQUIVALENT MACROS HAVE THE      ARITH    7911
                                        *         SAME PARAMETERS, AND HENCE ARE THE SAME LENGTH, ETC.           ARITH    7912
                                                                                                                 ARITH    7913
                                                  MACRO  IXME,LOADOP,SETOP   IXFN RLIST MACRO EQUIVALENCE        ARITH    7914
                                                  LOCAL  X                                                       ARITH    7915
                                         X        SET    SETOP                                                   ARITH    7916
                                                  VFD    12/1777B-X,48/LOADOP                                    ARITH    7917
                                                  ENDM                                                           ARITH    7918
                                                                                                                 ARITH    7919
          6653                           IXFN.TAB BSS    0                                                       ARITH    7920
          6653  16340000000000000133     SLMACO   IXME   SXTAMC                                                  ARITH    7921
          6654  16340000000000000131     DLMACO   IXME   SXTAMC                                                  ARITH    7922
          6655  17710000000000000004     STLMAC   IXME   SSSXA             STD SUBS                              ARITH    7923
          6656                     1              BSSZ   1                 TABLE TERMINATOR                      ARITH    7924
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   169
         ACALL - CALL PROCESSOR 
  
                                        ***                                                                      ARITH    7926
                                        *         ACALL - PROCESS SUBROUTINE NAME AND ARGUMENT LIST              ARITH    7927
                                        *                                                                        ARITH    7928
                                        *         ON ENTRY:                                                      ARITH    7929
                                        *                NARGSF " 0 IF NO ARGS, ELSE = 0                         ARITH    7930
                                        *                SELIST POINTS PAST NAME                                 ARITH    7931
                                        *                SUBNAME = NAME IN ELIST FORMAT                          ARITH    7932
                                                                                                                 ARITH    7933
                                        *         FORM MASK OF ATTRIBUTES THAT CONFLICT WITH SUBROUTINE REF.     FCC0407     5
                                                                                                                 FCC0407     6
                                  67     P.ASF    DECMIC P.ASF                                                   FCC0407     7
                                  52     P.BEF    DECMIC P.BEF                                                   FCC0407     8
                                  51     P.INF    DECMIC P.INF                                                   FCC0407     9
                                  50     P.VAR    DECMIC P.VAR                                                   FCC0407    10
          6657  02000160000000000000     CMASK    CON    1S"P.ASF"+1S"P.BEF"+1S"P.INF"+1S"P.VAR"                 FCC0407    11
          6660  7100000001               ACALLD   CFO    EXT               CHECK SETTING OF DEBUG BITS           ARITH    7934
          6661  36262                             IX2    X6+X2             SET TYPE                              ARITH    7935
                     0400006701 +                 EQ     ACALL2                                                  ARITH    7936
                                                                                                                 ARITH    7937
          6662  0400406662 +             ACALL    ENTRY. **                ** ENTRY/EXIT **                      ARITH    7938
          6663  5120000000 X                      SA2    =XRSELECT         REFERENCE COLLECTION FLAG             ARITH    7939
                          43700                   MX7    0                                                       ARITH    7940
                               10622              BX6    X2                                                      ARITH    7941
          6664  5170000005 +                      SA7    EQCOUNT           INITIALIZE                            ARITH    7942
                          5160007604 +            SA6    REFSELCT          SAVE IN LOCAL COPY                    ARITH    7943
          6665  5150000003 C                      SA5    NARGSF                                                  ARITH    7944
                          0315006670 +            NZ     X5,ACALL1         IF NO ARGS                            ARITH    7945
          6666  5120000032                        SA2    SELIST                                                  ARITH    7946
                          53120                   SA1    X2                FIRST AFTER NAME                      ARITH    7947
                               26041              UX0    B4,X1                                                   ARITH    7948
          6667  0100002370 +                      RJ     SSERR3            CHECK ( SYNTAX                        ARITH    7949
          6670  43700                    ACALL1   MX7    0                                                       ARITH    7950
                     5170000042 +                 SA7    ACNT                                                    ARITH    7951
          6671  5110000004 C                      SYMBOL SUBNAME           GET SYMTAB ORDINAL                    ARITH    7952
          6673  0317006660 +                      NZ     X7,ACALLD         IF PREVIOUS IN DEBUG STMTS            ARITH    7953
                          36262                   IX2    X6+X2             SET TYPE                              ARITH    7954
                                                                                                                 ARITH    7955
          6674  5130006657 +                      SA3    CMASK                                                   FCC0407    12
                          11032                   BX0    X3*X2                                                   FCC0407    13
          6675  0310006714 +                      NZ     X0,ACALL4   IF CONFLICTING PREVIOUS USE                 FCC0407    14
                          43004                   MX0    L.TYP                                                   ARITH    7959
                               11302              BX3    X0*X2                                                   ARITH    7960
          6676  20304                             LX3    L.TYP                                                   ARITH    7961
                     7243777772                   SX4    X3-T.ILL                                                ARITH    7962
          6677  0334006701 +                      MI     X4,ACALL2         IF LEGAL TYPE                         ARITH    7963
                          7243777765              SX4    X3-T.ENT                                                ARITH    7964
          6700  0304006720 +                      ZR     X4,ACALL6         IF THIS IS AN ENTRY POINT             ARITH    7965
                          0400006714 +            EQ     ACALL4            NAME USED OTHER THAN AS SUBR NAME     ARITH    7966
                                                                                                                 ARITH    7967
          6701  76050                    ACALL2   SX0    B5                                                      ARITH    7968
                     20066                        LX0    P.EXT             SET EXT BIT                           ARITH    7969
                          12702                   BX7    X0+X2                                                   ARITH    7970
                               54720              SA7    A2                                                      ARITH    7971
          6702  76610                             SX6    B1                                                      ARITH    7972
                     74710                        SX7    A1                                                      ARITH    7973
                          5160000001 C            SA6       SUBH                                                 ARITH    7974
          6703  5170000000 C                      SA7       SUBFWA                                               ARITH    7975
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   170
         ACALL - CALL PROCESSOR 
  
                          5170000041 +            SA7       FNAD                                                 ARITH    7976
          6704  43600                             MX6       0                                                    ARITH    7977
                     5160000044 +                 SA6       SSFRSTB                                              ARITH    7978
          6705  5110000003 C                      SA1       NARGSF                                               ARITH    7979
                          5160000043 +            SA6    STAPLC                                                  ARITH    7980
          6706  0311006721 +                      NZ     X1,ACAL7     IF NO ARG LIST                             ARITH    7981
                          5110000452 +            SA1       SUBRLP                                               ARITH    7982
          6707  7170000002                        SX7       2         SET EMODE TO ARG                           ARITH    7983
                          5120000450 +            SA2       ARGCMA                                               ARITH    7984
          6710  10611                             BX6    X1                                                      ARITH    7985
                     5170001062 +                 SA7       EMODE                                                ARITH    7986
          6711  5160007622 +                      SA6       OPSTAK+1  STORE (SUBR                                ARITH    7987
                          10722                   BX7    X2                                                      ARITH    7988
          6712  5170007623 +                      SA7       OPSTAK+2  ,A                                         ARITH    7989
                          7160000002              SX6       2         SET OSPTR UP                               ARITH    7990
          6713  5160000377 +                      SA6       OSPTR                                                ARITH    7991
                          0400001066 +            EQ     NEXTE                                                   ARITH    7992
                                                                                                                 ARITH    7993
          6714  6160000251               ACALL4   SB6    ERMSG35                                                 ARITH    7994
          6715  5120000003 C             ACALL5   SA2    NARGSF                                                  ARITH    7995
                          5110000032              SA1    EPOINT                                                  ARITH    7996
          6716  0312006717 +                      NZ     X2,ACALL5A        IF NO ARGUMENTS                       ARITH    7997
                          73615                   SX6    X1+B5                                                   ARITH    7998
                               54610              SA6    A1           RESET *EPOINT* TO ADDR OF SUBROUTINE NAME  ARITH    7999
          6717  0400004142 +             ACALL5A  EQ     ERROUT                                                  ARITH    8000
                                                                                                                 ARITH    8001
          6720  6160000454               ACALL6   SB6    ERMSG57                                                 ARITH    8002
                          0400006715 +            EQ     ACALL5                                                  ARITH    8003
                                                                                                                 ARITH    8004
                                        *     ACAL7 ALSO ENTERED DIRECTLY FROM OPSWTB WHEN (C POPPED.            ARITH    8005
                                                                                                                 FCC1590X   17
          6721  0100006755 +             ACAL7    RJ     ACALA       CHECK DEBUG STATUS                          FCC1590X   18
          6722  0306006723 +                      ZR     X6,ACAL8    IF CALL TO BE TRACED                        FCC1590X   19
                          0100002715 +            RJ     ARGP8CR                                                 FCC1590X   20
          6723  5110000000 C             ACAL8    SA1    SUBFWA                                                  FCC2307    22
                          53310                   SA3    X1                                                      FCC2307    23
                               20354              LX3    59-P.FUN                                                FCC2307    24
          6724  0323006726 +                      PL     X3,ACAL8A   IF NOT ALSO USED AS A FUNCTION              FCC2307    25
                          6160000510              USASDM  E328       SAME NAME USED AS A FUNCTION AND AS A SUB   FCC2307    26
          6726  5150000042 +             ACAL8A   SA5    ACNT                                                    FCC2307    27
                          43600                   MX6    0                                                       FCC1590X   22
                               10755              BX7    X5                                                      FCC1590X   23
          6727  5160000041 +                      SA6    FNAD                                                    FCC1590X   24
                          5170000002 C            SA7    ARGCNT                                                  FCC1590X   25
          6730  5110000000 C                      SA1    SUBFWA                                                  FCC1590X   26
                          5221777776              SA2    X1-1                                                    FCC1590X   27
          6731  43066                             MX0    -L.FARG                                                 FCC1590X   28
                     10322                        BX3    X2                                                      FCC1590X   29
                          20316                   LX3    -P.FARG                                                 FCC1590X   30
                               15630              BX6    -X0*X3                                                  FCC1590X   31
          6732  10422                             BX4    X2                                                      FCC2305    14
                     20424                        LX4    59-P.FCALL                                              FCC2305    15
                          0334006740 +            NG     X4,ACAL9    IF NOT THE FIRST CALL                       FCC2305    16
          6733  7140000001                        SX4    1                                                       FCC2305    17
                          20447                   LX4    P.FCALL     MARK FIRST CALL IN WORD B                   FCC2305    18
                               12224              BX2    X2+X4                                                   FCC2305    19
          6734  20556                             LX5    P.FARG                                                  FCC1590X   33
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   171
         ACALL - CALL PROCESSOR 
  
                     12625                        BX6    X2+X5                                                   FCC1590X   34
                          54620                   SA6    A2          ARG COUNT TO SYMTAB WORD B                  FCC1590X   35
          6735  0315006742 +                      NZ     X5,ACAL10   IF ARG COUNT .NZ.                           FCC1590X   36
                          5110000003 C            SA1    NARGSF                                                  FCC1590X   37
          6736  0311006742 +                      NZ     X1,ACAL10   IF NO ARGS EXPECTED                         FCC1590X   38
                          6160000253              EERR   ERMSG17     *ILLEGAL CALL FORMAT*                       FCC1590X   39
                                                                                                                 FCC1590X   40
          6740  13665                    ACAL9    BX6    X6-X5                                                   FCC1590X   41
                     0306006742 +                 ZR     X6,ACAL10   IF CURRENT AND PREVIOUS ARG COUNTS MATCH    FCC1590X   42
          6741  6160000252                        IDM    ERMSG36     *SUBR REF DOESN-T USE SAME NR ARGS*         FCC1590X   43
                                                                                                                 FCC1590X   44
          6742  0100006755 +             ACAL10   RJ     ACALA       CHECK DEBUG STATUS                          FCC1590X   45
          6743  5160001132 +                      SA6    TRCFLG                                                  FCC1590X   46
                          0316006662 +            NZ     X6,ACALL    IF CALL TRACE NOT REQUIRED, EXIT ...        FCC1590X   47
          6744  5110000005 C                      SA1    ARLPT                                                   FCC1590X   48
                          43600                   MX6    0                                                       FCC1590X   49
                               10711              BX7    X1                                                      FCC1590X   50
          6745  5160000000 X                      SA6    =XTYPECLL                                               FCC1590X   51
                          5170000302 +            SA7    TS1         TEMP SAVE SUBR APLIST POINTER               FCC1590X   52
          6746  0100002334 +                      RJ     FUNC8       ISSUE ANY SAVED FUNCTION RESULTS            FCC1590X   53
          6747  0100000000 X                      RJ     =XFARGLST   CREATE *BUGCLL* APL AND RJ R-MACROS         FCC1590X   54
          6750  5140000302 +                      SA4    TS1         (X4) = FWA SUBR APL                         FCC1590X   55
                          5150000005 C            SA5    ARLPT       (X5) = LWA+1                                FCC1590X   56
          6751  10644                             BX6    X4                                                      FCC1590X   57
                     54650                        SA6    A5                                                      FCC1590X   58
                          0100006137 +            RJ     DARLIST     APL AND RJ TO *RLIST* FILE                  FCC1590X   59
          6752  0100002715 +                      RJ     ARGP8CR                                                 FCC1590X   60
          6753  5110001132 +                      SA1    TRCFLG                                                  FCC1590X   61
                          10611                   BX6    X1          (X6) = EXIT WITH SAVED TRACE FLAG           FCC1590X   62
          6754  0400006662 +                      EQ     ACALL       EXIT ...                                    FCC1590X   63
  
  
  
  
                                        **        ACALA - OBTAIN *CALL* DEBUG STATUS.                            FCC1590X   65
                                        *                                                                        FCC1590X   66
                                        *         EXIT   (X6) = .ZR. IF DEBUG SELECTED FOR CURRENT *CALL*.       FCC1590X   67
                                        *                     = .NZ. IF NOT SELECTED.                            FCC1590X   68
                                        *                                                                        FCC1590X   69
                                        *         USES   X - 0,1,2,6.   A - 1,2.   B - NONE.                     FCC1590X   70
                                                                                                                 FCC1590X   71
                                                                                                                 FCC1590X   72
          6755  0200406755 +             ACALA    JP     *+4S15      ** ENTRY/EXIT **                            FCC1590X   73
          6756  5110000000 X                      SA1    =XDFLAG                                                 FCC1590X   74
                          7160006756 +            SX6    *           PRESET *NOT SELECTED* STATUS RETURN         FCC1590X   75
          6757  0301006755 +                      ZR     X1,ACALA    IF NOT DEBUG MODE                           FCC1590X   76
                          5110000000 X            SA1    =XALLCALL                                               FCC1590X   77
          6760  13666                             BX6    X6-X6       PRESET *DEBUG SELECTED* STATUS RETURN       FCC1590X   78
                     43070                        MX0    -L.DIF                                                  FCC1590X   79
                          0311006755 +            NZ     X1,ACALA    IF ALL CALLS TO BE TRACED                   FCC1590X   80
          6761  5110000000 C                      SA1    SUBFWA                                                  FCC1590X   81
                          5221777776              SA2    X1-1                                                    FCC1590X   82
          6762  20235                             LX2    -P.DIF                                                  FCC1590X   83
                     15120                        BX1    -X0*X2                                                  FCC1590X   84
                          7261777764              SX6    X1-DV.CLL   SET STATUS RETURN                           FCC1590X   85
          6763  0400006755 +                      EQ     ACALA       EXIT ...                                    FCC1590X   86
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   172
         ACALL - CALL PROCESSOR 
  
                                        ***                                                                      ARITH    8039
                                        *         ARITH - ARITHMETIC EXPRESSION TRANSLATOR                       ARITH    8040
                                        *                                                                        ARITH    8041
                                                                                                                 ARITH    8042
          6764  0400406764 +             ARITH    ENTRY. **                ** ENTRY/EXIT **                      ARITH    8043
          6765  5150000024                        SA5    TYPE                                                    ARITH    8044
                          7245777763              SX4    X5-RPLST                                                ARITH    8045
          6766  5130000000 X                      SA3    =XRSELECT        COPY THE EXTERNAL REFMAP FLAG TO THE   ARITH    8046
                          10733                   BX7    X3                LOCAL CELL.                           ARITH    8047
          6767  5170007604 +                      SA7    =SREFSELCT                                              ARITH    8048
                          13666                   BX6    X6-X6           ZERO THE COUNT OF EQUAL SIGNS WHICH     ARITH    8049
          6770  5160000005 +                      SA6    EQCOUNT           OCCUR IN THIS STATEMENT.              ARITH    8050
                          0314007030 +            NZ     X4,ARITH9         IF NOT A REPLCAEMENT STMT             ARITH    8051
          6771  5110000000 X                      SA1    =XN.EQUAL       PLACE THE NUMBER OF EQUAL SIGNS WHICH   ARITH    8052
                          10611                   BX6    X1                OCCUR IN THIS STATEMENT INTO A LOCAL  ARITH    8053
          6772  5160000005 +                      SA6    =SEQCOUNT         CELL.                                 ARITH    8054
                          5120000032              SA2    EPOINT                                                  ARITH    8055
          6773  53120                             SA1    X2                                                      ARITH    8056
                     6170006775 +                 SYMBOL                   GET SYMTAB ORDINAL OF FIRST ENTRY     ARITH    8057
          6775  0400007022 +                      EQ     ARITH.N           IF FIRST OCCURANCE                    ARITH    8058
                                                                                                                 ARITH    8059
          6776  0515007001 +                      NE     B1,B5,ARITH2      IF NOT ORDINAL 1                      ARITH    8060
                          5130000000 X            SA3    VALUE.                                                  ARITH    8061
          6777  0303007017 +                      ZR     X3,ARITH3         IF NOT A FUNCTION SUBPROGRAM          ARITH    8062
                          63130                   SB1    X3                                                      ARITH    8063
                               66211              SB2    B1+B1             2*ORD                                 ARITH    8064
          7000  55102                             SA1    A0-B2             WORD A OF VALUE.                      ARITH    8065
                     55215                        SA2    A1-B5                                                   ARITH    8066
                                                                                                                 ARITH    8067
          7001  10311                    ARITH2   BX3    X1                                                      ARITH    8068
                     20356                        LX3    59-P.DIM                                                ARITH    8069
                          0333007026 +            NG     X3,ARITH4         IF AN ARRAY                           ARITH    8070
          7002  5150000032                        SA5    EPOINT                                                  ARITH    8071
                          5245777776              SA4    X5-1                                                    ARITH    8072
          7003  26334                             UX3    B3,X4                                                   ARITH    8073
                     6140000006                   SB4    EL.(                                                    ARITH    8074
          7004  0534007026 +                      NE     B3,B4,ARITH4      IF NEXT IS NOT A (                    ARITH    8075
                                                                                                                 ARITH    8076
                          5130000000 X            SA3    FSTEX                                                   ARITH    8077
          7005  0313007017 +                      NZ     X3,ARITH3         IF IT CANT BE AN ASF                  ARITH    8078
                                                                                                                 ARITH    8079
                                        *         CHECK FOR ASF DEFINITION                                       ARITH    8080
                                                                                                                 ARITH    8081
                          10422                   BX4    X2                                                      ARITH    8082
                               43070              MX0    60-L.TYP                                                ARITH    8083
          7006  20404                             LX4    L.TYP                                                   ARITH    8084
                     15640                        BX6    -X0*X4            EXTRACT TYPE                          ARITH    8085
                          0324007011 +            PL     X4,ARITH2A        IF NO ASF REDEFINITION                ARITH    8086
          7007  53450                             SA4    X5                X5 = ADDR OF ASF NAME (ELIST)         ARITH    8087
                     6160000457                   POSTERR NR=ERMSG58,SEV=FE,FMT=ELIST,TXT=X4,RETURN=PH2RETN      ARITH    8088
          7011  10311                    ARITH2A  BX3    X1                                                      ARITH    8089
                     20401                        LX4    59-P.EXT-L.TYP                                          ARITH    8090
                          20352                   LX3    59-P.FP                                                 ARITH    8091
                               12343              BX3    X4+X3                                                   ARITH    8092
          7012  20416                             LX4    P.EXT-P.VAR                                             ARITH    8093
                     12343                        BX3    X4+X3                                                   ARITH    8094
                          0333007017 +            NG     X3,ARITH3         IF FP , EXT OR VAR                    ARITH    8095
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   173
         ACALL - CALL PROCESSOR 
  
          7013  7276777772                        SX7    X6-T.ILL                                                ARITH    8096
                          0327007017 +            PL     X7,ARITH3         IF AN ILLEGAL TYPE                    ARITH    8097
                                                                                                                 ARITH    8098
          7014  7100100000                        SX0    V.FUN                                                   ARITH    8099
                          12601                   BX6    X0+X1             SET FUNCTION BIT                      ARITH    8100
                               54610              SA6    A1                                                      ARITH    8101
          7015  43520                             MX5    L.DBGI                                                  ARITH    8102
                     20543                        LX5    L.DBGI+P.DBGI                                           ARITH    8103
                          15225                   BX2    -X5*X2            CLEAR DEBUG FIELD                     ARITH    8104
                               20050              LX0    P.ASF-P.FUN                                             ARITH    8105
          7016  12702                             BX7    X0+X2             SET FUNCTION TYPE                     ARITH    8106
                     54720                        SA7    A2                                                      ARITH    8107
                          0400000000 X            EQ     ASFDEF            GO PROCESS THE DEFINITION             ARITH    8108
                                                                                                                 ARITH    8109
          7017  5110000032               ARITH3   SA1    EPOINT                                                  ARITH    8110
                          7261777776              SX6    X1-1                                                    ARITH    8111
          7020  54610                             SA6    A1                MOVE EPOINT BACK FOR ERROUT           ARITH    8112
                     76710                        SX7    B1                                                      ARITH    8113
                          5170000335 +            SA7    SAVELEFT                                                ARITH    8114
          7021  6160000306                        EERR   ERMSG37           LEFT SIDE OF REPL STMT IS ILLEGAL     ARITH    8115
                                                                                                                 ARITH    8116
                                        *         FIRST OCCURANCE - SET TYPE                                     ARITH    8117
                                                                                                                 ARITH    8118
          7022  0307007024 +             ARITH.N  ZR     X7,ARITH.N1       IF NO PREVIOUS USE IN DEBUG STMTS     ARITH    8119
                          43000                   CFO    VAR               CHECK SETTING OF DEBUG BITS           ARITH    8120
          7024  36572                    ARITH.N1 IX5    X7+X2                                                   ARITH    8121
                     12665                        BX6    X6+X5             ADD TYPE                              ARITH    8122
                          54620                   SA6    A2                                                      ARITH    8123
                               22206              LX2    X6                                                      ARITH    8124
          7025  0400007001 +                      EQ     ARITH2                                                  ARITH    8125
                                                                                                                 ARITH    8126
                                        *         INITIALIZE FOR ASSIGNMENT STMT PROCESSING                      ARITH    8127
                                                                                                                 ARITH    8128
          7026  7100200000               ARITH4   SX0    V.DEF                                                   ARITH    8129
                          12601                   BX6    X0+X1                                                   ARITH    8130
                               54610              SA6    A1                SET DEFINED BIT                       ARITH    8131
          7027  76710                             SX7    B1                                                      ARITH    8132
                     5170000335 +                 SA7    SAVELEFT                                                ARITH    8133
                                                                                                                 ARITH    8134
          7030  5120000000 X             ARITH9   SA2    FSTEX                                                   ARITH    8135
                          0312007032 +            NZ     X2,ARITH10        IF NOT THE FIRST EXECUTABLE STMT      ARITH    8136
          7031  0100000000 X                      CALL   IPH2              INITIALIZE FOR PHASE 2                ARITH    8137
                                                                                                                 ARITH    8138
          7032  0100007034 +             ARITH10  RJ     INITR                                                   ARITH    8139
          7033  0400001066 +                      EQ     NEXTE                                                   ARITH    8140
  
  
  
                                        ***                                                                      ARITH    8142
                                        *     INITR INITIALIZES ARITH AND LEAVES WITH X6 NOT=0                   ARITH    8143
                                        *         SOME WORDS ARE INITIALIZED BECAUSE IF FATAL DIAG IS GIVEN, THE ARITH    8144
                                        *        WORD MIGHT NOT HAVE BEEN RESET, AND TROUBLES MIGHT RESULT IN    ARITH    8145
                                        *        NEXT ARITH CALL.                                                ARITH    8146
                                                                                                                 ARITH    8147
          7034  0400407034 +             INITR    ENTRY. **                ** ENTRY/EXIT **                      ARITH    8148
          7035  43600                             MX6       0                                                    ARITH    8149
                     5160001133 +                 SA6    WLSTR                                                   ARITH    8150
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   174
         ACALL - CALL PROCESSOR 
  
                               37700              IX7    X0-X0                                                   ARITH    8151
          7036  5170000012 +                      SA7    ARLST                                                   ARITH    8152
                          5160000006 +            SA6    NCA                                                     ARITH    8153
          7037  5170000007 +                      SA7    NCAD                                                    ARITH    8154
                          5160000010 +            SA6    NRFD                                                    ARITH    8155
          7040  5170006662 +                      SA7    ACALL       FOR TEST IN *OUT*                           FCC0611     8
                          5170001131 +            SA7       FTRFLG                                               ARITH    8156
          7041  5160000373 +                      SA6       EQFLG                                                ARITH    8157
                          5170000377 +            SA7       OSPTR                                                ARITH    8158
          7042  5160000005 C                      SA6       ARLPT                                                ARITH    8159
                          5170000376 +            SA7       SFRSTB                                               ARITH    8160
          7043  5160000045 +                      SA6       RNTBC                                                ARITH    8161
                          5170000401 +            SA7       IXFNFG    CLEARED HERE BECAUSE WOULD NOT RETURN TO   ARITH    8162
                                        *                              IXFN IF FATAL DIAGNOSIC GIVEN.            ARITH    8163
          7044  5160000000                        SA6       ARLIST                                               ARITH    8164
          7650  20360000000000007044 +            SUB                                                            ARITH    8165
                          5170000375 +            SA7       LEFRN                                                ARITH    8166
          7045  5160000043 +                      SA6    STAPLC                                                  FCC0435     5
                          5170000400 +            SA7       CC                                                   ARITH    8167
          7046  5170000402 +                      SA7       ITFFG                                                ARITH    8168
                          5160000404 +            SA6       EQPO5F                                               ARITH    8169
          7047  5170000337 +                      SA7       EXRL1     USED AS FLAG BY FUNC5RT                    ARITH    8170
                          5170007603 +            SA7    =SPARLEVEL      ZERO THE PARENTHESIS LEVEL              ARITH    8171
          7050  5170000334 +                      SA7    SPARLEV                                                 FCC0394    13
                          5160000374 +            SA6       ROFG                                                 ARITH    8172
          7051  5170000330 +                      SA7    ARORD                                                   ARITH    8173
                          5160000041 +            SA6    FNAD                                                    ARITH    8174
          7052  5170006536 +                      SA7    ABIO                                                    ARITH    8175
                          43673                   MX6       59        SET X6=-1                                  ARITH    8176
          7053  7170000000                        SX7       ARLIST                                               ARITH    8177
          7651  20360000000000007053 +            SUB                                                            ARITH    8178
                          5160001060 +            SA6       FF                                                   ARITH    8179
          7054  5160001057 +                      SA6       STBASE                                               ARITH    8180
                          5160000370 +            SA6       NSFR                                                 ARITH    8181
          7055  5170001061 +                      SA7       LASTR                                                ARITH    8182
                          14666                   BX6   -X6           SET X6=1                                   ARITH    8183
          7056  5170000032 +                      SA7       RL2                                                  ARITH    8184
                          5160001062 +            SA6       EMODE                                                ARITH    8185
                                        *     IXFN COUNTS ON X6 BEING NON-ZERO AT THIS POINT.                    ARITH    8186
          7057  0400007034 +                      ZR        INITR                                                ARITH    8187
          7060  0400001066 +                      ZR        NEXTE                                                ARITH    8188
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   175
        *IF* STATEMENT PROCESSING 
  
                                        *     THREE AND TWO BRANCH IF                                            ARITH    8190
                                        *                                                                        ARITH    8191
                                  21     LTYPE    EQU       RA+21B    TYPE OF S IN LOG IF                        ARITH    8192
                                  23     CLABEL   EQU       RA+23B    CURRENT STATE.LABEL                        ARITH    8193
                                  34     LELIST   EQU       RA+34B    START OF S IN LOG IF                       ARITH    8194
                                  60     NLABEL   EQU       RA+60B    NEXT STATE.LABEL                           ARITH    8195
                                                                                                                 ARITH    8196
                                        *         ERROR NUMBERS.                                                 ARITH    8197
                                                                                                                 ARITH    8198
                                 255     E173     =      173         ILLEGAL LABELS IN IF STATEMENT              ARITH    8199
                                 256     E174     =      174         LOGICAL EXPRESSION IN 3 BRANCH IF           ARITH    8200
                                 301     E193     =      193         THIS STATEMENT BRANCHES TO ITSELF           ARITH    8201
                                 302     E194     =      194         THIS IF DEGENERATES INTO A SIMPLE TRANSFER  ARITH    8202
                                 474     E316     =      316         ILLEGAL SYNTAX IN IF STATEMENT              ARITH    8203
                                                                                                                 ARITH    8204
          7061                     6     IFTS1    BSS    6                 TEMPORARY STORAGE                     ARITH    8205
          7067                     2     IFTS2    BSS    2                                                       ARITH    8206
          7071                     1     IFRPF    BSSZ   1           IF -)CONST- FLAG .NZ. FOR CONSTANT FOUND    ARITH    8207
          7072                     1     IFRELOP  BSSZ   1                 SET TO RELOP CODE IF A SIMPLE IF STMT ARITH    8208
          7073                     1     IFETYPE  BSS    1                 MODE OF EXPRESSION IN IF STMT         ARITH    8209
          7074                     1     IFRETURN BSS    1                 RETURN ADDR ( AFTER OUTPUTTING JUMPS  ARITH    8210
          7075                     1     LIFTS1   BSS    1                 ORDINAL OF FALSE BRANCH LABEL         ARITH    8211
          7076                     1     BRANCHNO BSS    1                 BRANCH NUMBER                         ARITH    8212
          7077                     1     K1       BSS    1                 BRANCH ORDINALS AS SET BY 'IFBRT'     ARITH    8213
          7100                     1     K2       BSS    1                                                       ARITH    8214
          7101                     1     K3       BSS    1                                                       ARITH    8215
          7102                     1     DOT      BSS    1           CURRENT STATEMENT DO TERMINATOR FLAG        FCC0960     5
                                                                                                                 ARITH    8216
                                         M.UJP    RMEQU   105B                                                   ARITH    8217
  
                                                  ENTRY  APLST                                                   ARITH    8219
          7103  17760000010000000000     APLST    RMHDR  APLMC,1     APLIST MACRO FOR DEBUG                      ARITH    8220
          7104                     1              BSS    1                                                       ARITH    8221
          7105  16530000020000000000     GEFM     RMHDR  GEFMC,2                                                 ARITH    8222
          7106  16720000010000000000     UJPM     RMHDR   M.UJP,1                                                ARITH    8223
          7107                     1              BSS     1                                                      ARITH    8224
          7110  20000003000000020003     IFMC     ARMAC  0,0,2,3           IF MACRO TEMPLATE                     ARITH    8225
                                                                                                                 ARITH    8226
                                                  MACRO  RMACRO,NAME,BASE                                        ARITH    8227
                                                  NOREF  NAME                                                    ARITH    8228
                                         NAME     =      BASE  MACNUM                                            ARITH    8229
                                         MACNUM   SET    NAME+1                                                  ARITH    8230
                                        RMACRO    ENDM                                                           ARITH    8231
                                                                                                                 ARITH    8232
                                         IFTABLE  MACRO  T1,A,B,C                                                ARITH    8233
                                                  IRP    T1                                                      ARITH    8234
                                        CHAR      MICRO  1,1, T1                                                 ARITH    8235
                                                  IFGE   IF("CHAR")A_B_C,0,2                                     ARITH    8236
                                                  VFD    12/2000B+IF("CHAR")A_B_C,12/T1,2/A,2/B,2/C              ARITH    8237
                                                  SKIP   1                                                       ARITH    8238
                                                  VFD    12/1777B+IF("CHAR")A_B_C,12/T1,2/A,2/B,2/C              ARITH    8239
                                                  IRP                                                            ARITH    8240
                                         IFTABLE  ENDM                                                           ARITH    8241
                                   0     N        EQU    0                 CODE FOR NEXT LABEL IN IFTAB MACROS   ARITH    8242
                                                                                                                 ARITH    8244
                                        *         RLIST MACRO NUMBERS OF THE IF MACROS                           ARITH    8245
                                                                                                                 ARITH    8246
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   176
        *IF* STATEMENT PROCESSING 
  
                                         IF(R)123 RMACRO 362B        BASE RMACRO NUMBER FOR IF MACROS            ARITH    8247
                                        IF(I)123  RMACRO IF(R)123                                                ARITH    8248
                                         IF(D)123 RMACRO IF(R)123                                                ARITH    8249
                                        IF(R)122  RMACRO                                                         ARITH    8250
                                         IF(D)122 RMACRO IF(R)122                                                ARITH    8251
                                        IF(I)122  RMACRO                                                         ARITH    8252
                                        IF(R)113  RMACRO                                                         ARITH    8253
                                         IF(D)113 RMACRO IF(R)113                                                ARITH    8254
                                        IF(I)113  RMACRO                                                         ARITH    8255
                                        IF(R)121  RMACRO                                                         ARITH    8257
                                         IF(D)121 RMACRO IF(R)121                                                ARITH    8258
                                        IF(I)121  RMACRO IF(R)121                                                ARITH    8259
                                        IF(R)N23  RMACRO                                                         ARITH    8260
                                         IF(D)N23 RMACRO IF(R)N23                                                ARITH    8261
                                        IF(I)N23  RMACRO IF(R)N23                                                ARITH    8262
                                        IF(R)1N3  RMACRO                                                         ARITH    8263
                                         IF(D)1N3 RMACRO IF(R)1N3                                                ARITH    8264
                                        IF(I)1N3  RMACRO                                                         ARITH    8265
                                        IF(R)12N  RMACRO                                                         ARITH    8266
                                         IF(D)12N RMACRO IF(R)12N                                                ARITH    8267
                                        IF(I)12N  RMACRO IF(R)12N                                                ARITH    8268
                                        IF(R)N22  RMACRO                                                         ARITH    8269
                                         IF(D)N22 RMACRO IF(R)N22                                                ARITH    8270
                                        IF(I)N22  RMACRO                                                         ARITH    8271
                                        IF(R)1NN  RMACRO                                                         ARITH    8272
                                         IF(D)1NN RMACRO IF(R)1NN                                                ARITH    8273
                                        IF(I)1NN  RMACRO                                                         ARITH    8274
                                        IF(R)NN3  RMACRO                                                         ARITH    8275
                                         IF(D)NN3 RMACRO IF(R)NN3                                                ARITH    8276
                                        IF(I)NN3  RMACRO                                                         ARITH    8277
                                        IF(R)11N  RMACRO                                                         ARITH    8279
                                         IF(D)11N RMACRO IF(R)11N                                                ARITH    8280
                                        IF(I)11N  RMACRO                                                         ARITH    8281
                                        IF(R)N2N  RMACRO                                                         ARITH    8283
                                         IF(D)N2N RMACRO IF(R)N2N                                                ARITH    8284
                                        IF(I)N2N  RMACRO IF(R)N2N                                                ARITH    8285
                                        IF(R)1N1  RMACRO                                                         ARITH    8286
                                         IF(D)1N1 RMACRO IF(R)1N1                                                ARITH    8287
                                        IF(I)1N1  RMACRO IF(R)1N1                                                ARITH    8288
                                        IF(L)12   RMACRO                                                         ARITH    8289
                                        IF(L)N2   RMACRO                                                         ARITH    8290
                                        IF(L)1N   RMACRO                                                         ARITH    8291
                                        IF(C)121  RMACRO                                                         ARITH    8292
                                        IF(C)N2N  RMACRO                                                         ARITH    8293
                                        IF(C)1N1  RMACRO                                                         ARITH    8294
                                         IFFLAG1  RMACRO                                                         ARITH    8295
                                        IFFLAGN   RMACRO                                                         ARITH    8296
                                -414    IF(R)111  EQU    -IFFLAG1                                                ARITH    8297
                                -415    IF(R)NNN  EQU    -IFFLAGN                                                ARITH    8298
                                        IF(I)111  RMACRO IF(R)111                                                ARITH    8299
                                        IF(D)111  RMACRO IF(R)111                                                ARITH    8300
                                        IF(C)111  RMACRO IF(R)111                                                ARITH    8301
                                        IF(L)11   RMACRO IF(R)111                                                ARITH    8302
                                        IF(I)NNN  RMACRO IF(R)NNN                                                ARITH    8303
                                        IF(D)NNN  RMACRO IF(R)NNN                                                ARITH    8304
                                        IF(C)NNN  RMACRO IF(R)NNN                                                ARITH    8305
                                        IF(L)NN   RMACRO IF(R)NNN                                                ARITH    8306
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   177
        *IF* STATEMENT PROCESSING 
  
                                        **        IFTABLE - FOR LOOKING UP *IF* R-MACRO NUMBER, GIVEN THE        ARITH    8313
                                        *                   EXPRESSION MODE AND BRANCH PATTERN.                  ARITH    8314
                                                                                                                 ARITH    8315
          7111                          IFTABLE   BSS    0                                                       ARITH    8316
          7111  2362000133                        IFTABLE  (INTEGER,REAL,DOUBLE),1,2,3                           ARITH    8317
                          2364000132              IFTABLE  (INTEGER,REAL,DOUBLE),1,2,2                           FCC0514     9
          7114  2367000131                        IFTABLE  (INTEGER,REAL,DOUBLE),1,2,1                           FCC0514    10
                          2366000127              IFTABLE  (INTEGER,REAL,DOUBLE),1,1,3                           FCC0514    11
          7117  2373000130                        IFTABLE  (INTEGER,REAL,DOUBLE),1,2,N                           ARITH    8321
                          2372000123              IFTABLE  (INTEGER,REAL,DOUBLE),1,N,3                           ARITH    8322
          7122  2370000113                        IFTABLE  (INTEGER,REAL,DOUBLE),N,2,3                           ARITH    8323
                          2377000120              IFTABLE  (INTEGER,REAL,DOUBLE),1,N,N                           FCC0514    12
          7125  2375000112                        IFTABLE  (INTEGER,REAL,DOUBLE),N,2,2                           FCC0514    13
                          2405000121              IFTABLE  (INTEGER,REAL,DOUBLE),1,N,1                           FCC0514    14
          7130  2404000110                        IFTABLE  (INTEGER,REAL,DOUBLE),N,2,N                           FCC0514    15
                          2403000124              IFTABLE  (INTEGER,REAL,DOUBLE),1,1,N                           FCC0514    16
          7133  2401000103                        IFTABLE  (INTEGER,REAL,DOUBLE),N,N,3                           FCC0514    17
                          1363000125              IFTABLE  (INTEGER,REAL,DOUBLE,COMPLEX),1,1,1                   ARITH    8330
                          1362000100              IFTABLE  (INTEGER,REAL,DOUBLE,COMPLEX),N,N,N                   ARITH    8331
                          2411000431              IFTABLE  (COMPLEX),1,2,1                                       ARITH    8332
          7141  2413000421                        IFTABLE  (COMPLEX),1,N,1                                       ARITH    8333
                          2412000410              IFTABLE  (COMPLEX),N,2,N                                       ARITH    8334
          7142  2406000030                        IFTABLE  (LOGICAL),1,2                                         ARITH    8335
                          2410000020              IFTABLE  (LOGICAL),1,N                                         ARITH    8336
          7143  2407000010                        IFTABLE  (LOGICAL),N,2                                         ARITH    8337
                          1363000024              IFTABLE  (LOGICAL),1,1                                         ARITH    8338
          7144  1362000000                        IFTABLE  (LOGICAL),N,N                                         ARITH    8339
  
  
                                        **        IF1.TBL AND IF2.TBL - SET BRANCH PATTERN FOR 1- AND 2-BRANCH   ARITH    8340
                                        *         IF STMT WHEN THEY CAN BE REDUCED TO AN ARITHMETIC IF           ARITH    8341
                                        *         BECAUSE THEY CONTAIN ONLY A SINGLE RELATIONAL EXPRESSION.      ARITH    8342
                                                                                                                 ARITH    8343
                                         IFBP     MACRO  B1,B2,B3          IF BRANCH PATTERN MACRO               ARITH    8344
                                                  VFD    2/B1,2/B2,2/B3                                          ARITH    8345
                                                  ENDM                                                           ARITH    8346
                                                                                                                 ARITH    8347
          7145  03                       IF1.TBL  IFBP   N,N,3             GT                                    ARITH    8348
                  10                              IFBP   N,2,N             EQ                                    ARITH    8349
                    12                            IFBP   N,2,2             GE                                    ARITH    8350
                      20                          IFBP   1,N,N             LT                                    ARITH    8351
                        21                        IFBP   1,N,1             NE                                    ARITH    8352
                          24                      IFBP   1,1,N             LE                                    ARITH    8353
          7146  27                       IF2.TBL  IFBP   1,1,3             GT  * MUST SWAP LABELS                ARITH    8354
                  31                              IFBP   1,2,1             EQ  *                                 ARITH    8355
                    32                            IFBP   1,2,2             GE  *                                 ARITH    8356
                      32                          IFBP   1,2,2             LT                                    ARITH    8357
                        31                        IFBP   1,2,1             NE                                    ARITH    8358
                          27                      IFBP   1,1,3             LE                                    ARITH    8359
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   178
        IFE - IF STATEMENT PROCESSING                                 IF
  
                                        **        PIE - PROCESS IF STATEMENT.                                    ARITH    8361
                                        *                IF STATEMENT INITIAL PROCESSING.                        ARITH    8362
                                                                                                                 ARITH    8363
                                                                                                                 ARITH    8364
          7147  0400407147 +             PIE      ENTRY. *                 ** ENTRY/EXIT **                      ARITH    8365
          7150  13666                             BX6    X6-X6                                                   ARITH    8366
                     43700                        MX7    0                                                       ARITH    8367
                          5160007071 +            SA6    IFRPF             CLEAR *CONSTANT AFTER RT PAREN* FLAG  ARITH    8368
          7151  5170007072 +                      SA7    IFRELOP     CLEAR *SINGLE RELTNL EXPR ONLY* FLAG        ARITH    8369
                          5160007100 +            SA6    K2                                                      ARITH    8370
          7152  5110000000 X                      SA1    TRACEL                                                  ARITH    8371
                          5120000000 X            SA2    DOFLAG                                                  ARITH    8372
          7153  37712                             IX7    X1-X2                                                   ARITH    8373
                     5170001132 +                 SA7    TRCFLG            NEG IF NO FLOW TRACING                ARITH    8374
          7154  5150000032                        GETE                                                           ARITH    8375
          7155  6130000006                        IF.NE  EL.(,IF.ERR3      IF NOT LEFT PAREN                     ARITH    8376
          7156  0100006764 +                      RJ     ARITH             PARSE IF EXPRESSION                   ARITH    8377
          7157  13666                             BX6    X6-X6                                                   ARITH    8378
                     5160000005 C                 SA6    ARLPT             RESET THE ARLIST BUFFER POINTER       ARITH    8379
          7160  5160000032 +                      SA6    RL2                 AND LAST OPERAND POINTER            ARITH    8380
                          5150000351 +            SA5    EXPRIA            EXAMINE THE EXPRESSION RESULT AND     ARITH    8381
          7161  5235000002                        SA3    X5+2              EXTRACT THE RESULT 'RI' NUMBER AND    ARITH    8382
                          53250                   SA2    X5                RESULT EXPRESSION TYPE                ARITH    8383
          7162  6150000001                        SB5    1                                                       ARITH    8384
                          26012                   UX0    X2,B1                                                   ARITH    8385
                               73730              SX7    X3                                                      ARITH    8386
          7163  5170000016 +                      SA7    PARAMS+3          PLACE THE 'RI' OF THE RESULT IN THE   ARITH    8387
                          76610                   SX6    B1                'PARAMS' BUFFER                       ARITH    8388
                               73775              SX7    X7+B5                                                   ARITH    8389
          7164  5160007073 +                      SA6    IFETYPE           SAVE THE EXPRESSION TYPE              ARITH    8390
                          54775                   SA7    A7+B5             ALSO PLACE 'RI'+1 INTO THE 'PARAMS'   ARITH    8391
                                        *                                  BUFFER IN CASE THE RESULT IS A        ARITH    8392
                                        *                                  DOUBLE WORD ITEM.                     ARITH    8393
          7165  0400007147 +                      EQ     PIE                                                     ARITH    8394
  
  
  
  
                                        **        IFE - IF STMT PROCESSING FOR IF(E) N1,N2 AND IF(E) N1,N2,N3    ARITH    8396
                                                                                                                 ARITH    8397
          7166  6160000255               IF.ERR1  EERR   E173              ERR MSG NR - *ILL LABELS IN IF STMT*  ARITH    8398
          7167  75645                    IF.ERR3  UPDATE                                                         ARITH    8399
                          6160000474              EERR   E316              ERR MSG NR - *ILL SYNTAX IN IF STMT*  ARITH    8400
          7171  6160000256               IF.ERR4  EERR   E174              ERR MSG NR - *LOG EXP IN 3 BRANCH IF* ARITH    8401
                                                                                                                 ARITH    8402
          7172  0400407172 +             IFE      ENTRY. **                ** ENTRY/EXIT **                      ARITH    8403
          7173  13666                             BX6    X6-X6                                                   ARITH    8404
                     5160007074 +                 SA6    IFRETURN          SET *RETURN THROUGH -IFE-* FLAG       ARITH    8405
          7174  0100007147 +                      RJ     PIE               PROCESS *IF* EXPR                     ARITH    8406
          7175  76650                             SX6    B5                                                      ARITH    8407
                     5160007076 +                 SA6    BRANCHNO          SET BRANCHNO TO 1                     ARITH    8408
          7176  0100007344 +                      RJ     IFBRT           CALL 'IFBRT' TO PROCESS BRANCH ONE.     ARITH    8409
          7177  0317007166 +                      NZ     X7,IF.ERR1      IF ONLY ONE BRANCH THEN GO TO 'IF.ERR1' ARITH    8410
                                                                           TO FLAG THE ERROR.                    ARITH    8411
                          5160007077 +            SA6    K1              SAVE THE BRANCH INDICATOR IN 'K1' AND   ARITH    8412
          7200  5160007101 +                      SA6    K3                'K3' IN CASE THIS IS A TWO-BRANCH     ARITH    8413
                          5110000013 +            SA1    PARAMS            ARITHMETIC 'IF' STATEMENT.  (ALSO     ARITH    8414
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   179
        IFE - IF STATEMENT PROCESSING 
  
          7201  10711                             BX7    X1                REPLICATE THE BRANCH 'IH' INFORMATION ARITH    8415
                     5170000015 +                 SA7    PARAMS+2          IN THE 'PARAMS' BUFFER.)              ARITH    8416
          7202  5150000032                        SA5    EPOINT          UPDATE 'EPOINT' TO POINT TO THE NEXT    ARITH    8417
                          7265777775              SX6    X5-2              WOULD BE LABEL                        ARITH    8418
          7203  54650                             SA6    A5                                                      ARITH    8419
                     0100007344 +                 RJ     IFBRT           CALL 'IFBRT' TO PROCESS BRANCH TWO.     ARITH    8420
          7204  5160007100 +                      SA6    K2              SAVE THE SECOND BRANCH INDICATOR IN     ARITH    8421
                          0317007307 +            NZ     X7,IFTWOBR        'K2' AND GO TO 'IFTWOBR' IF THERE ARE ARITH    8422
                                                                           ONLY TWO BRANCHES.                    ARITH    8423
          7205  5150000032                        SA5    EPOINT          UPDATE 'EPOINT' TO POINT TO THE NEXT    ARITH    8424
                          7265777775              SX6    X5-2              WOULD BE LABEL                        ARITH    8425
          7206  54650                             SA6    A5                                                      ARITH    8426
                     0100007344 +                 RJ     IFBRT           CALL 'IFBRT' TO PROCESS BRANCH THREE.   ARITH    8427
          7207  0307007166 +                      ZR     X7,IF.ERR1      IF THE THIRD BRANCH WAS NOT FOLLOWED BY ARITH    8428
                                                                           AN END-OF-STATEMENT GO TO 'IF.ERR1'   ARITH    8429
                                                                           TO FLAG THE ERROR.                    ARITH    8430
                          5160007101 +            SA6    K3              SAVE THE THIRD BRANCH INDICATOR IN 'K3' ARITH    8431
          7210  5110007072 +                      SA1    IFRELOP                                                 ARITH    8432
                          0311007171 +            NZ     X1,IF.ERR4        IF THREE BRANCH LOGICAL IF            ARITH    8433
          7211  5150007073 +            IF.1      SA5    IFETYPE                                                 ARITH    8434
                          7215777773              SX1    X5-T.CPLX                                               ARITH    8435
          7212  0311007215 +                      NZ     X1,IF.2         IF THE EXPRESSION WAS NOT TYPE COMPLEX  ARITH    8436
                          6160000300              USASDM ERMSG47           THEN GO TO 'IF.2', OTHERWISE ISSUE    ARITH    8437
                                                                           A 'USAS' DIAGNOSTIC.                  ARITH    8438
          7214  7160000002                        SX6    T.REAL          CHANGE THE EFFECTIVE EXPRESSION TYPE TO ARITH    8439
                          5160007073 +            SA6    IFETYPE           REAL.                                 ARITH    8440
          7215  5150007073 +            IF.2      SA5    IFETYPE                                                 ARITH    8441
                          7245777777              SX4    X5-T.LOG                                                ARITH    8442
          7216  0304007171 +                      ZR     X4,IF.ERR4        IF TYPE LOGICAL                       ARITH    8443
                                                                                                                 ARITH    8444
          7217  5140007077 +             IF.3     SA4    K1                                                      ARITH    8445
                          54345                   SA3    A4+B5             K2                                    ARITH    8446
                               20404              LX4    4                                                       ARITH    8447
          7220  54235                             SA2    A3+B5             K3                                    ARITH    8448
                     20302                        LX3    2                                                       ARITH    8449
                          36623                   IX6    X2+X3                                                   ARITH    8450
                               12446              BX4    X4+X6             FORM BRANCH PATTERN                   ARITH    8451
          7221  5150007073 +                      SA5    IFETYPE                                                 ARITH    8452
                                        *                                                                        FCC0558     6
                                        *         (X4) = BRANCH PATTERN                                          FCC0558     7
                                        *         (X5) = IFETYPE                                                 FCC0558     8
                                        *                                                                        FCC0558     9
          7222  7275777772               IF.4     SX7    X5-T.OCT                                                ARITH    8453
                          0337007224 +            MI     X7,IF.4A          IF EXPR TYPE NOT OCTAL OR HOLL        FCC0558    10
          7223  7150000001                        SX5    T.INT             CHANGE TO INTEGER                     ARITH    8455
          7224  20506                    IF.4A    LX5    6                                                       ARITH    8456
                     36045                        IX0    X4+X5             X0 = SEARCH PATTERN                   ARITH    8457
                                        *                                     = 4/EXPR MODE,2/K1,2/K2,2/K3       ARITH    8458
                          14100                   BX1    -X0                                                     ARITH    8459
                               63310              SB3    X1              (REGISTER B3 NOW CONTAINS THE           ARITH    8460
          7225  5110007111 +                      SA1    IFTABLE           COMPLEMENT OF THE SEARCH KEY.)        ARITH    8461
          7226  26021                   IF.5      UX0    X1,B2                                                   ARITH    8462
                     73313                        SX3    X1+B3                                                   ARITH    8463
                          20136                   LX1    30                                                      ARITH    8464
                               73213              SX2    X1+B3                                                   ARITH    8465
          7227  0302007231 +                      ZR     X2,IF.6         IF THE 'IFTABLE' ENTRY IN THE TOP HALF  ARITH    8466
                                                                           OF THE WORD MATCHES THEN GO TO 'IF.6' ARITH    8467
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   180
        IFE - IF STATEMENT PROCESSING 
  
                          26021                   UX0    X1,B2                                                   ARITH    8468
                               54115              SA1    A1+B5             (FETCH THE NEXT TABLE WORD.)          ARITH    8469
          7230  0313007226 +                      NZ     X3,IF.5         IF THE 'IFTABLE' ENTRY IN THE BOTTOM    ARITH    8470
                                                                           HALF OF THE WORD DOES NOT MATCH THEN  ARITH    8471
                                                                           CONTINUE WITH THE SEARCH.             ARITH    8472
          7231  0620007237 +             IF.6     PL     B2,IF.6A        IF THE STATEMENT DID NOT DEGENERATE TO  ARITH    8473
                                                                           A SIMPLE 'GO TO' THEN GO TO 'IF.6A'   ARITH    8474
                          77702                   SX7    -B2             OTHERWISE SAVE THE MACRO CODE AND ISSUE ARITH    8475
          7232  5170007067 +                      SA7    IFTS2             AN INFORMATIVE DIAGNOSTIC.            ARITH    8476
                          5110000032              SA1    EPOINT          SET EPOINT TO POINT AT THE LABEL        ARITH    8477
          7233  7261777776                        SX6    X1-1                                                    ARITH    8478
                          54610                   SA6    A1                                                      ARITH    8479
          7234  6160000302                        IDM    E194              ERR MSG NR - *DEGENERATES TO SMPL TR* ARITH    8480
          7235  5140007067 +                      SA4    IFTS2           RESTORE THE MACRO CODE AND CONTINUE.    ARITH    8481
                          63240                   SB2    X4                                                      ARITH    8482
          7236  7264777362                        SX6    X4-IFFLAGN                                              ARITH    8483
                          0306007252 +            ZR     X6,IF.6C    IF  IF(E)NNN CASE                           ARITH    8484
          7237  5110001132 +             IF.6A    SA1    TRCFLG                                                  ARITH    8485
                          0331007244 +            MI     X1,IF.6B        GO TO 'IF.6B' IF NO FLOW TRACING.       ARITH    8486
          7240  5110001121 +                      SA1    DBGAPL            TRANSFER GL NUMBERS FROM              ARITH    8487
                          5021000001              SA2    A1+1                THE TEMPORARY BUFFER TO             ARITH    8488
          7241  10611                             BX6    X1                  THE PARAMS BUFFER FOR               ARITH    8489
                     22702                        LX7    X2                  THE MACOUT CALL                     ARITH    8490
                          5160000013 +            SA6    PARAMS                                                  ARITH    8491
          7242  5012000001                        SA1    A2+1                                                    ARITH    8492
                          5076000001              SA7    A6+1                                                    ARITH    8493
          7243  10611                             BX6    X1                                                      ARITH    8494
                     5067000001                   SA6    A7+1                                                    ARITH    8495
          7244  5140007110 +             IF.6B    SA4    IFMC            PICKUP THE 'IF' MACRO TEMPLATE AND      ARITH    8496
                          27324                   PX3    X4,B2             INSERT THE APPROPRIATE R-LIST MACRO   ARITH    8497
          7245  5120000064                        SA2    NARN                                                    ARITH    8498
                          43500                   MX5    0                                                       ARITH    8499
          7246  0100005576 +                      RJ     MACOUT          CALL 'MACOUT' TO ISSUE THE R-LIST MACRO ARITH    8500
          7247  5150000005 C                      SA5    ARLPT                                                   ARITH    8501
                          13444                   BX4    X4-X4                                                   ARITH    8502
          7250  0100006137 +                      RJ     DARLIST         CALL 'DARLIST' TO DUMP THE ACCUMULATED  ARITH    8503
          7251  13666                             BX6    X6-X6                                                   ARITH    8504
                     5160000005 C                 SA6    ARLPT       RESET THE ARLIST POINTER                    ARITH    8505
          7252  5150007074 +             IF.6C    SA5    IFRETURN                                                ARITH    8506
                          0305007254 +            ZR     X5,IF.7           TO THE CALLER.                        ARITH    8507
          7253  63750                             SB7    X5                                                      ARITH    8508
                     0277000000                   JP     B7                                                      ARITH    8509
  
          7254  5110001132 +            IF.7      SA1    TRCFLG                                                  ARITH    8511
                          0331007172 +            NG     X1,IFE            EXIT IF NO FLOW TRACING               ARITH    8512
          7255  76750                             SX7    B5                INITIALIZE TO 1                       ARITH    8513
                     5110007066 +                 SA1    IFTS1+5           USED AS TABLE COUNTER                 ARITH    8514
          7256  5227007061 +            IF.8      SA2    IFTS1+X7          FETCH TABLE WORD                      ARITH    8515
                          0302007305 +            ZR     X2,IF.9           ZERO IF END OF TABLE                  ARITH    8516
          7257  54710                             SA7    A1                SAVE COUNTER                          ARITH    8517
                     5150007066 +                 SA5    IFTS1+5     TABLE COUNTER                               ARITH    8518
          7260  5110000000 X                      SA1    LABEL.                                                  ARITH    8519
                          5225007061 +            SA2    IFTS1+X5                                                ARITH    8520
          7261  7232777776                        SX3    X2-1        LABTAB ORD - 1                              ARITH    8521
                          20322                   LX3    AP.CAP                                                  ARITH    8522
                               21222              AX2    18                                                      ARITH    8523
          7262  10722                             BX7    X2                                                      ARITH    8524
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   181
        IFE - IF STATEMENT PROCESSING 
  
                     5170007107 +                 SA7    UJPM+1      USE AS TEMPORARY STORAGE                    ARITH    8525
                               12613              BX6    X1+X3                                                   ARITH    8526
          7263  5160007104 +                      SA6    APLST+1                                                 ARITH    8527
                          6170007103 +            WRM    APLST       APLIST FOR LABEL. + CA                      ARITH    8528
          7265  5140007107 +                      SA4    UJPM+1                                                  ARITH    8529
                          10644                   BX6    X4                                                      ARITH    8530
                               21622              AX6    18                ISOLATE LABEL IH                      ARITH    8531
          7266  54640                             SA6    A4                                                      ARITH    8532
                     7254100000                   SX5    X4+I.GL           SET GL IH                             ARITH    8533
          7267  0100000000 X                      CALL   WLABM                                                   ARITH    8534
          7270  5110007617 +                      SYMBOL =8RBUGTRU                                               ARITH    8535
          7272  5130001063 +                      SA3    =XDBGEXT                                                ARITH    8536
                          12723                   BX7    X2+X3             SET CGS AND EXT BITS                  ARITH    8537
                               54720              SA7    A2                                                      ARITH    8538
          7273  5110000000 X                      SA1    =XN.AP                                                  ARITH    8539
                          73715                   SX7    X1+B5             INCREMENT N.AP                        ARITH    8540
                               54710              SA7    A1                                                      ARITH    8541
          7274  7221200000                        SX2    I.AP+X1                                                 ARITH    8542
                          20236                   LX2    RM.IHL                                                  ARITH    8543
          7275  5150007105 +                      SA5    GEFM                                                    ARITH    8544
                          76310                   SX3    B1                                                      ARITH    8545
          7276  5140000037                        SA4    CDCNT                                                   ARITH    8546
                          10755                   BX7    X5                                                      ARITH    8547
                               12623              BX6    X2+X3             CREATE 1ST WORD OF GEF PARAMETERS     ARITH    8548
          7277  5170001121 +                      SA7    DBGAPL            STORE GEF MACRO HEADER                ARITH    8549
                          10744                   BX7    X4                                                      ARITH    8550
                               54675              SA6    A7+B5                                                   ARITH    8551
          7300  54765                             SA7    A6+B5                                                   ARITH    8552
                     6170001121 +                 WRM    DBGAPL                                                  ARITH    8553
          7302  6170007106 +                      WRM    UJPM                                                    ARITH    8554
          7303  5110007066 +                      SA1    IFTS1+5           TABLE COUNTER                         ARITH    8555
                          6150000001              SB5    1                                                       ARITH    8556
          7304  73715                             SX7    X1+B5             INCREMENT POINTER                     ARITH    8557
                     0400007256 +                 EQ     IF.8                                                    ARITH    8558
          7305  5130000000 X             IF.9     SA3    =XN.GL                                                  ARITH    8559
                          36631                   IX6    X3+X1             UPDATE GL NUMBER                      ARITH    8560
                               54630              SA6    A3                                                      ARITH    8561
          7306  0400007172 +                      EQ     IFE               EXIT IF PROCESSOR                     ARITH    8562
                                                                                                                 ARITH    8563
                                        *         2 BRANCH IF STMT PROCESSING - IF(EXPR) 1,2                     ARITH    8564
                                                                                                                 ARITH    8565
          7307  6160000277               IFTWOBR  USASDM ERMSG46     *TWO-BRANCH IF NON-ANSI*                    FCC0481     9
          7310  5130007072 +                      SA3    IFRELOP                                                 FCC0481    10
                          0313007314 +            NZ     X3,IFTWO1         IF EXPR IS A SIMPLE RELATIONAL        ARITH    8567
          7311  5150007073 +                      SA5    IFETYPE                                                 ARITH    8568
                          7265777777              SX6    X5-T.LOG          IF EXPR IS NOT LOGICAL, THEN          ARITH    8569
          7312  0316007211 +                      NZ     X6,IF.1           PROCESS AS IF IF(EXPR) 1,2,1          ARITH    8570
                          5160007101 +            SA6    K3                                                      ARITH    8571
          7313  0400007217 +                      EQ     IF.3              GO OUTPUT BRANCH CODE                 ARITH    8572
                                                                                                                 ARITH    8573
          7314  5110007077 +             IFTWO1   SA1    K1                                                      ARITH    8574
                          54215                   SA2    A1+B5             K2                                    ARITH    8575
                               37012              IX0    X1-X2                                                   ARITH    8576
          7315  10622                             BX6    X2                                                      ARITH    8577
                     54625                        SA6    A2+B5             K3 = K1                               ARITH    8578
                          0300007217 +            ZR     X0,IF.3           IF DEGENERATE                         ARITH    8579
          7316  36712                             IX7    X1+X2                                                   ARITH    8580
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   182
        IFE - IF STATEMENT PROCESSING 
  
                     63770                        SB7    X7                                                      ARITH    8581
                          0277007316 +            JP     B7+IFTWO.J-1      JUMP TO APPROPIATE PROCESSOR          ARITH    8582
                                                                                                                 ARITH    8583
          7317  0400007337 +             IFTWO.J  EQ     IFTWO7            IF(E) 1,N                             ARITH    8584
          7320  0400007335 +                      EQ     IFTWO6            IF(E) N,2                             ARITH    8585
                                                                                                                 ARITH    8586
          7321  7243777773              +         SX4    X3-4              IF(E) 1,2                             ARITH    8587
                          0324007324 +            PL     X4,IFTWO2         IF NOT NEC TO SWAP LABELS             ARITH    8588
          7322  5110000013 +                      SA1    PARAMS                                                  ARITH    8589
                          54215                   SA2    A1+B5             SWAP( LAB1 , LAB2 )                   ARITH    8590
                               10711              BX7    X1                                                      ARITH    8591
          7323  22602                             LX6    X2                                                      ARITH    8592
                     54610                        SA6    A1                                                      ARITH    8593
                          54720                   SA7    A2                                                      ARITH    8594
          7324  5110007146 +             IFTWO2   SA1    IF2.TBL           BRANCH PATTERN TABLE                  ARITH    8595
                          5150000014 +            SA5    PARAMS+1                                                FCC0558    11
          7325  10755                             BX7    X5                                                      FCC0558    12
                     54755                        SA7    A5+B5                                                   FCC0558    13
                                                                                                                 ARITH    8596
                                        *         X1 = IF BRANCH PATTERN TABLE                                   ARITH    8597
                                        *         X3 = IFRELOP                                                   ARITH    8598
                                                                                                                 ARITH    8599
          7326  73330                    IFTWO3   SX3    X3          REMOVE ANY FLAG BITS                        FCC0514    19
                     43066                        MX0    60-6              DETERMINE BRANCH PATTERN FROM TABLE A ARITH    8611
                          36633                   IX6    X3+X3                                                   ARITH    8612
                               20302              LX3    2                 AND IFRELOP                           ARITH    8613
          7327  36736                             IX7    X3+X6                                                   ARITH    8614
                     63270                        SB2    X7                6*IFRELOP                             ARITH    8615
                          22121                   LX1    B2,X1                                                   ARITH    8616
                               15410              BX4    -X0*X1            X4 = BRANCH PATTERN                   ARITH    8617
          7330  5150007073 +                      SA5    IFETYPE                                                 ARITH    8618
                          7265777773              SX6    X5-T.CPLX                                               ARITH    8619
          7331  0316007222 +                      NZ     X6,IF.4           IF EXPR MODE NOT COMPLEX              ARITH    8620
                          7203777767              SX0    X3-2S2            .EQ. OP                               ARITH    8621
          7332  7273777753                        SX7    X3-5S2            .NE. OP                               ARITH    8622
                          0300007222 +            ZR     X0,IF.4           IF EQ OP                              ARITH    8623
          7333  0307007222 +                      ZR     X7,IF.4           IF .NE. OP                            ARITH    8624
                          7150000002              SX5    T.REAL            CHANGE EXPR MODE TO REAL FOR          ARITH    8625
          7334  0400007222 +                      EQ     IF.4              COMPARISION OPS LT , LE , GT  AND GE  ARITH    8626
                                                                                                                 ARITH    8627
          7335  7100000007               IFTWO6   SX0    7                 IF(E) N,2 - COMPLEMENT IFRELOP        ARITH    8628
                          15430                   BX4    -X0*X3            SAVE SIGN BIT                         ARITH    8629
                               73330              SX3    X3                                                      ARITH    8630
          7336  37503                             IX5    X0-X3             IFRELOP = 7-IFRELOP                   ARITH    8631
                     12345                        BX3    X4+X5                                                   ARITH    8632
          7337  5127000012 +             IFTWO7   SA2    PARAMS-1+B7       ACTIVE LABEL                          ARITH    8633
                          5110007145 +            SA1    IF1.TBL                                                 ARITH    8634
          7340  10622                             BX6    X2                                                      ARITH    8635
                     5160000013 +                 SA6    PARAMS            REPLICATE LABEL IN PARAMS BUFFER      ARITH    8636
                               54665              SA6    A6+B5                                                   ARITH    8637
          7341  54665                             SA6    A6+B5                                                   ARITH    8638
                     5127001120 +                 SA2    DBGAPL-1+B7       ALSO REPEAT IN THE DBGAPL TABLE       ARITH    8639
                               10622              BX6    X2                                                      ARITH    8640
          7342  5160001121 +                      SA6    DBGAPL                                                  ARITH    8641
                          54665                   SA6    A6+B5                                                   ARITH    8642
                               54665              SA6    A6+B5                                                   ARITH    8643
          7343  0400007326 +                      EQ     IFTWO3            GET BRANCH PATTERN AND OUTPUT JUMPS   ARITH    8644
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   183
             IFBRT - 'IF' BRANCH PROCESSING                           ARITH 
  
                                        **        IFBRT - PROCESS REFERENCE TO A LABEL IN AN IF STMT             ARITH    8646
                                        *                EPOINT -- 'E-LIST' ADDRESS OF LABEL TO BE PROCESSED   * ARITH    8647
                                        *                BRANCHNO -- NUMBER OF 'IF' BRANCH (1 FOR FIRST, ETC.) * ARITH    8648
                                        *         RETURNS:                                                     * ARITH    8649
                                        *                PARAMS-1+[BRANCHNO] -- 'IH' OF LABEL                  * ARITH    8650
                                        *                BRANCHNO -- BRANCHNO + 1                              * ARITH    8651
                                        *                X6       -- 0 (LABEL IS THE SAME AS THE LABEL ON THE  * ARITH    8652
                                        *                               NEXT STATEMENT)                        * ARITH    8653
                                        *                            1 (LABEL IS THE SAME AS THE FIRST BRANCH) * ARITH    8654
                                        *                            2 (LABEL IS THE SAME AS THE SECOND BRANCH)* ARITH    8655
                                        *                            3 (LABEL IS THE SAME AS THE THIRD BRANCH) * ARITH    8656
                                        *                X7       -- .EQ. 0 (LABEL FOLLOWED BY A COMMA)        * ARITH    8657
                                        *                            .NE. 0 (LABEL FOLLOWED BY EOS)            * ARITH    8658
                                                                                                                 ARITH    8659
          7344  0400407344 +             IFBRT    ENTRY. *                 ** ENTRY/EXIT **                      ARITH    8660
          7345  5150000023                        SA5    CLABEL                                                  FCC0960     6
                          43600                   MX6    0                                                       FCC0960     7
          7346  0305007351 +                      ZR     X5,IFBRT1   IF CURRENT STATEMENT NOT LABELLED           FCC0960     8
                          5110000000 X            SA1    =XLORD                                                  FCC0960     9
          7347  5120000012                        SA2    SYM1                                                    FCC0960    10
                          36011                   IX0    X1+X1                                                   FCC0960    11
                               37320              IX3    X2-X0                                                   FCC0960    12
          7350  5243777776                        SA4    X3-1        WORD B OF CURRENT LABEL                     FCC0960    13
                          20413                   LX4    59-P.DLT                                                FCC0960    14
                               10644              BX6    X4                                                      FCC0960    15
                                                                                                                 FCC0960    16
          7351  5160007102 +             IFBRT1   SA6    DOT                                                     FCC0960    17
                          5110000032              SA1    EPOINT            IF NEXTE IS NOT AN                    ARITH    8661
          7352  53210                             SA2    X1                INTEGER CONSTANT THEN GO TO 'IF.ERR1' ARITH    8662
                     26022                        UX0    X2,B2             TO ISSUE A FATAL DIAGNOSTIC.          ARITH    8663
                          0520007166 +            NZ     B2,IF.ERR1                                              ARITH    8664
          7353  21055                             AX0    45                                                      ARITH    8665
                     55425                        SA4    A2-B5             (OBTAIN NEXT 'E-LIST' ELEMENT.)       ARITH    8666
                          53320                   SA3    X2                (OBTAIN THE LABEL IN HOLLERITH FORM.) ARITH    8667
                               43671              MX6    60-3                                                    ARITH    8668
          7354  15006                             BX0    -X6*X0                                                  ARITH    8670
                     7270777776                   SX7    X0-T.INT                                                ARITH    8671
                               26024              UX0    X4,B2                                                   ARITH    8672
          7355  0317007166 +                      NZ     X7,IF.ERR1                                              ARITH    8673
                          7172777774              SX7    B2-EL.COMMA                                             ARITH    8674
          7356  37135                             IX1    X3-X5                                                   ARITH    8675
                     10633                        BX6    X3                                                      ARITH    8676
                          0307007360 +            ZR     X7,IFBRT.1      IF THE LABEL IS NOT FOLLOWED BY A COMMA ARITH    8677
          7357  6122777773                        SB2    B2-EL.EOS         OR END-OF-STATEMENT, THEN GO TO       ARITH    8678
                          0520007166 +            NZ     B2,IF.ERR1        'IF.ERR1' TI ISSUE A FATAL DIAGNOSTIC ARITH    8679
          7360  5170007067 +            IFBRT.1   SA7    IFTS2           (SAVE THE TERMINATING ELEMENT INDICATOR ARITH    8680
                          0311007363 +            NZ     X1,IFBRT.2                                              ARITH    8682
          7361  6160777476                        IDM    -E193             ERR MSG- *STMT BRANCHES TO ITSELF*    FCC0418    84
          7362  5110000032                        SA1    EPOINT                                                  ARITH    8684
                          53210                   SA2    X1                                                      ARITH    8685
  
          7363  0100000000 X             IFBRT.2  CALL   DOLABR            INFORM DO OF THE LABEL REF            ARITH    8687
          7364  5170007070 +                      SA7    IFTS2+1     SAVE THE HOLLERITH FORM OF THE LABEL        FCC1668X    7
                          5110001132 +            SA1    TRCFLG                                                  ARITH    8688
          7365  0331007370 +                      NG     X1,IFBRT.2A       BRANCH IF NO FLOW TRACING             ARITH    8689
                          43060                   MX0    60-L.TRO                                                ARITH    8690
                               20244              LX2    60-P.TRO                                                ARITH    8691
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   184
             IFBRT - 'IF' BRANCH PROCESSING 
  
          7366  15720                             BX7    -X0*X2            LABEL TABLE ORDINAL                   ARITH    8692
                     5170007061 +                 SA7    IFTS1             SAVE IN TEMPORARY                     ARITH    8693
          7367  0400007374 +                      EQ     IFBRT.3                                                 ARITH    8694
  
          7370  5110007102 +             IFBRT.2A SA1    DOT                                                     FCC0960    18
                          0331007374 +            MI     X1,IFBRT.3  IF CURRENT STATEMENT DO TERM.               FCC0960    19
          7371  5150007070 +                      SA5    IFTS2+1     IF THE BRANCH LABEL IS THE SAME AS THE      FCC0960    20
                          5130000060              SA3    NLABEL            LABEL OF THE NEXT STATEMENT THEN      ARITH    8697
          7372  13653                             BX6    X5-X3             REMOVE THE 'RSN' BIT FROM THE         ARITH    8698
                     0316007374 +                 NZ     X6,IFBRT.3        LABEL ATTRIBUTES IF THIS WAS THE      ARITH    8699
                               76050              SX0    B5                FIRST REFERENCE TO THE LABEL.  (THIS  ARITH    8700
          7373  20065                             LX0    P.RSN             WILL KEEP THE LABEL FROM BEING ACTIVE ARITH    8701
                     15620                        BX6    -X0*X2            WHILE NOT CAUSING THE LABEL TO APPEAR ARITH    8702
                          12764                   BX7    X6+X4             TO BE REFERENCED SINCE 'DOLABR'       ARITH    8703
                               54720              SA7    A2                WILL ALSO TURN ON THE 'DIN' BIT.)     ARITH    8704
  
          7374  5110007076 +            IFBRT.3   SA1    BRANCHNO        INSERT THE 'IH' OF THE LABEL INTO THE   ARITH    8706
                          76710                   SX7    B1                'PARAMS' BUFFER IN THE APPROPRIATE    ARITH    8707
                               73615              SX6    X1+B5             POSITION.  INCREMENT THE BRANCH       ARITH    8708
          7375  5271000012 +                      SA7    PARAMS-1+X1       NUMBER.                               ARITH    8709
                          5160007076 +            SA6    BRANCHNO                                                ARITH    8710
          7376  5140007102 +                      SA4    DOT                                                     FCC0960    21
                          0334007402 +            MI     X4,IFBRT.3A IF CURRENT STATEMENT DO TERM.               FCC0960    22
          7377  5140001132 +                      SA4    TRCFLG                                                  ARITH    8711
                          0324007402 +            PL     X4,IFBRT.3A       BRANCH IF FLOW TRACING                ARITH    8712
          7400  5150000060                        SA5    NLABEL          RETURN WITH THE FOLLOWING INFORMATION:  ARITH    8713
                          5140007070 +            SA4    IFTS2+1           X6-- 0 (LABEL = NEXT STATEMENT LABEL) ARITH    8714
          7401  37645                             IX6    X4-X5                  1 (LABEL = FIRST BRANCH LABEL)   ARITH    8715
                     0306007420 +                 ZR     X6,IFBRT.5             2 (LABEL = SECOND BRANCH LABEL)  ARITH    8716
          7402  13666                   IFBRT.3A  BX6    X6-X6                  3 (LABEL = THIRD BRANCH LABEL)   ARITH    8717
          7403  5246000013 +            IFBRT.4   SA4    PARAMS+X6                                               ARITH    8718
                          13074                   BX0    X7-X4                                                   ARITH    8719
                               73665              SX6    X6+B5                                                   ARITH    8720
          7404  0310007403 +                      NZ     X0,IFBRT.4                                              ARITH    8721
                          5140001132 +            SA4    TRCFLG                                                  ARITH    8722
          7405  0334007420 +                      NG     X4,IFBRT.5        BRANCH IF NO FLOW TRACING             ARITH    8723
                          5130000000 X            SA3    N.GL                                                    ARITH    8724
          7406  7246777776                        SX4    X6-1              COMPENSATE FOR BIAS                   ARITH    8725
                          63660                   SB6    X6                WILL BE RESTORED LATER                ARITH    8726
                               36234              IX2    X3+X4             DEBUG GL FOR LABEL                    ARITH    8727
          7407  7202100000                        SX0    X2+I.GL                                                 ARITH    8728
                          5130007061 +            SA3    IFTS1             LABEL TABLE ORDINAL                   ARITH    8729
          7410  20222                             LX2    18                                                      ARITH    8730
                     76510                        SX5    B1                ORIGINAL LABEL ORDINAL                ARITH    8731
                          12423                   BX4    X2+X3             GL AND LABTAB ORD                     ARITH    8732
                               20544              LX5    36                                                      ARITH    8733
          7411  12754                             BX7    X5+X4             ADD ORD FOR LABEL                     ARITH    8734
                     37416                        IX4    X1-X6                                                   ARITH    8735
                          10600                   BX6    X0                                                      ARITH    8736
          7412  5261001120 +                      SA6    DBGAPL-1+X1       TEMPORARY BUFFER                      ARITH    8737
                          76660                   SX6    B6                                                      ARITH    8738
          7413  0314007420 +                      NZ     X4,IFBRT.5        BRANCH IF LABEL ALREADY IN LIST       ARITH    8739
                          5150007100 +            SA5    K2                                                      ARITH    8740
          7414  7235777776                        SX3    X5-1              IS SECOND LABEL SAME AS FIRST         ARITH    8741
                          0313007417 +            NZ     X3,IFBRT.4A       BRANCH IF NOT                         ARITH    8742
          7415  76450                             SX4    B5                                                      ARITH    8743
                     37604                        IX6    X0-X4             ADJUST GL NUMBER                      ARITH    8744
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   185
             IFBRT - 'IF' BRANCH PROCESSING 
  
                          20422                   LX4    18                                                      ARITH    8745
                               37774              IX7    X7-X4             ADJUST GL NUMBER                      ARITH    8746
          7416  54660                             SA6    A6                SAVE ADJUSTED INFORMATION             ARITH    8747
                     7211777776                   SX1    X1-1              ADJUST ARRAY POINTER                  ARITH    8748
                               76660              SX6    B6                                                      ARITH    8749
          7417  5271007061 +            IFBRT.4A  SA7    IFTS1+X1          ADD INFORMATION TO LIST               ARITH    8750
                          43700                   MX7    0                                                       ARITH    8751
                               54775              SA7    A7+B5             ZERO WORD TO TERMINATE LIST           ARITH    8752
          7420  5150007067 +            IFBRT.5   SA5    IFTS2             X7-- .EQ. 0 (LABEL FOLLOWED BY COMMA) ARITH    8753
                          10755                   BX7    X5                     .NE. 0 (LABEL FOLLOWED BY EOS)   ARITH    8754
          7421  0400007344 +                      ZR     IFBRT           RETURN.                                 ARITH    8755
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   186
        IFL - LOGICAL IF PROCESSING                                   IFL 
  
                                        **        IFL - PROCESS LOGICAL IF STMTS     IF(L) STMT                  ARITH    8757
                                                                                                                 ARITH    8758
                                 257     E175     =      175         STMT IN LOGICAL IF MAY BE ANY EXECUTABLE    ARITH    8759
                                        *                              OTHER THAN DO OR ANOTHER LOGICAL IF       ARITH    8760
                                 260     E176     =      176         EXPR IN LOGICAL IF IS NOT TYPE LOGICAL      ARITH    8761
                                                                                                                 ARITH    8762
          7422  6160777520               IFL.ERR1 EERR   -E175                                                   FCC0418    85
          7423  6160777517               IFL.ERR2 EERR   -E176                                                   FCC0418    86
                                                                                                                 ARITH    8765
          7424  0400407424 +             IFL      ENTRY. **                ** ENTRY/EXIT **                      ARITH    8766
          7425  0100007147 +                      RJ     PIE               PROCESS *IF* EXPRESSION               ARITH    8767
          7426  5150007072 +                      SA5    IFRELOP                                                 ARITH    8768
                          0315007430 +            NZ     X5,IFL.0          IF A SINGLE RELATIONAL OP             ARITH    8769
          7427  0316007423 +                      NZ     X6,IFL.ERR2       IF EXPR IN IF NOT LOGICAL             ARITH    8770
                                                                                                                 ARITH    8771
          7430  5110001132 +             IFL.0    SA1    TRCFLG                                                  ARITH    8772
                          0321007460 +            PL     X1,IFL.2    IF IN DEBUG MODE                            ARITH    8773
          7431  5110000021                        SA1    LTYPE                                                   ARITH    8774
                          5120000034              SA2    LELIST                                                  ARITH    8775
          7432  53320                             SA3    X2                                                      ARITH    8776
                     26713                        UX7    B1,X3                                                   ARITH    8777
                          7201777753              SX0    X1-20                                                   ARITH    8778
          7433  0310007443 +                      NZ     X0,IFL.1    IF NOT  IF(L) RETURN                        ARITH    8779
                          0317007460 +            NZ     X7,IFL.2    IF RETURNS                                  ARITH    8780
          7434  5130000056                        SA3    PROGRAM                                                 ARITH    8781
                          26233                   UX2    B3,X3                                                   ARITH    8782
          7435  0430007460 +                      ZR     B3,IFL.2    IF A MAIN PROGRAM                           ARITH    8783
                          43200                   MX2    0                                                       FCC1402X    8
          7436  0100000000 X                      RJ     =XDOLABR    INHIBIT OPTIMIZATION IF IN DO LOOP          FCC1402X    9
          7437  5110000000 X                      SA1    =XO.CEP                                                 ARITH    8787
                          63110                   ADDREF X1,REF                                                  ARITH    8788
          7441  5130000000 X                      SA3    =XEXIT.                                                 ARITH    8789
                          10733                   BX7    X3                                                      ARITH    8790
                               76650              SX6    B5                                                      ARITH    8791
          7442  5170000013 +                      SA7    PARAMS      ORD(N1) = ORD(EXIT.)                        ARITH    8792
                          0400007452 +            EQ     IFL.1B                                                  ARITH    8793
                                                                                                                 ARITH    8794
          7443  7201777760               IFL.1    SX0    X1-15                                                   ARITH    8795
                          0310007460 +            NZ     X0,IFL.2          IF NOT   IF(L) GOTO N                 ARITH    8796
          7444  0510007460 +                      NZ     B1,IFL.2          IF NOT A CONSTANT                     ARITH    8797
                          43571                   MX5    -3                                                      ARITH    8798
                               21755              AX7    45                                                      ARITH    8799
          7445  15575                             BX5    -X5*X7                                                  ARITH    8800
                     7205777776                   SX0    X5-T.INT                                                ARITH    8801
          7446  5232777776                        SA3    X2-1                                                    ARITH    8802
                          26713                   UX7    X3,B1                                                   ARITH    8803
                               10622              BX6    X2                                                      ARITH    8804
          7447  7151777773                        SX5    B1-EL.EOS                                               ARITH    8805
                          12005                   BX0    X0+X5                                                   ARITH    8806
                               76750              SX7    B5                                                      ARITH    8807
          7450  0310007460 +                      NZ     X0,IFL.2        (NOT A PROPER 'GO TO LABEL' OR LABEL    ARITH    8808
                                                                           NOT FOLLOWED BY AN END-OF-STATEMENT.) ARITH    8809
  
                          5160000032              SA6    EPOINT                                                  ARITH    8811
          7451  5170007076 +                      SA7    BRANCHNO                                                ARITH    8812
                          0100007344 +            RJ     IFBRT           CALL 'IFBRT' TO PROCESS THE LABEL       ARITH    8813
          7452  5130007072 +             IFL.1B   SA3    IFRELOP                                                 ARITH    8814
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   187
        IFL - LOGICAL IF PROCESSING 
  
                          7170007424 +            SX7    IFL               SET RETURN ADDR                       ARITH    8815
          7453  5170007074 +                      SA7    IFRETURN                                                ARITH    8816
                          66750                   SB7    B5                                                      ARITH    8817
          7454  0306007455 +                      ZR     X6,IFL.1A         IF DEGENERATE CASE                    ARITH    8818
                          0313007337 +            NZ     X3,IFTWO7         IF SPECIAL PROCESSING IS NECESSARY    ARITH    8819
          7455  5160007077 +             IFL.1A   SA6    K1                SAVE THE TRUE BRANCH INDICATOR.       ARITH    8820
                          13777                   BX7    X7-X7                                                   ARITH    8821
                               54765              SA7    A6+B5           SET THE FALSE BRANCH INDICATOR (AND THE ARITH    8822
          7456  54775                             SA7    A7+B5             UNUSED INDICATOR) TO SPECIFY THE NEXT ARITH    8823
                                                                           STATEMENT.                            ARITH    8824
  
                     5170000014 +                 SA7    PARAMS+1        CLEAR OUT THE UNUSED 'IH' ENTRIES IN    ARITH    8826
                               54775              SA7    A7+B5                                                   ARITH    8827
          7457  0400007217 +                      EQ     IF.3              GO OUTPUT BRANCHS                     ARITH    8828
  
  
          7460  5110000000 X             IFL.2    SA1    N.GL                                                    ARITH    8830
                          73715                   SX7    X1+B5             NGLN = NGLN + 1                       ARITH    8831
          7461  7261100000                        SX6    X1+I.GL           IH = GL(NLGN)                         ARITH    8832
                          54710                   SA7    A1                                                      ARITH    8833
          7462  5160000014 +                      SA6    PARAMS+1        STORE THE 'IH' FOR THE FALSE BRANCH     ARITH    8834
                          13777                   BX7    X7-X7             INTO THE 'PARAMS' BUFFER AND CLEAR    ARITH    8835
                               55765              SA7    A6-B5             THE OTHER BRANCH 'IH' INFORMATION.    ARITH    8836
          7463  54765                             SA7    A6+B5                                                   ARITH    8837
                     5160001122 +                 SA6    DBGAPL+1        SAVE IN TEMPORARY BUFFER FOR            ARITH    8838
                               55765              SA7    A6-B5             POSSIBLE LATER USE IF IN              ARITH    8839
          7464  54765                             SA7    A6+B5             DEBUG MODE                            ARITH    8840
                     5160007075 +                 SA6    LIFTS1          (SAVE THE FALSE BRANCH 'IH')            ARITH    8841
                               76655              SX6    B5+B5                                                   ARITH    8842
          7465  5160007100 +                      SA6    K2              SET THE FALSE BRANCH INDICATOR TO 2     ARITH    8843
                          55765                   SA7    A6-B5             (SECOND BRANCH) AND THE OTHER BRANCH  ARITH    8844
                               54765              SA7    A6+B5             INDICATORS TO 0 (NEXT STATEMENT).     ARITH    8845
          7466  5130007072 +                      SA3    IFRELOP                                                 ARITH    8846
                          7160007471 +            SX6    IFL.3             SET RETURN ADDR                       ARITH    8847
          7467  5160007074 +                      SA6    IFRETURN                                                ARITH    8848
                          0303007217 +            ZR     X3,IF.3           IF NO SPECIAL PROCESSING              ARITH    8849
          7470  66755                             SB7    B5+B5             SET BRANCH ORDINAL                    ARITH    8850
                     0400007335 +                 EQ     IFTWO6            AND GO SPECIAL CASE                   ARITH    8851
  
  
          7471  5110001132 +            IFL.3     SA1    TRCFLG                                                  ARITH    8853
                          0331007501 +            NG     X1,IFL.3A         BRANCH IF NO FLOW TRACING             ARITH    8854
          7472  43700                             MX7    0                                                       ARITH    8855
                     7160007620 +                 SX6    =8RBUGTRT                                               ARITH    8856
          7473  5170001121 +                      SA7    DBGAPL            FORM ARGLIST TABLE                    ARITH    8857
                          54675                   SA6    A7+B5                                                   ARITH    8858
                               54170              SA1    A7                                                      ARITH    8859
          7474  0100000000 X                      RJ     IGCALL            OUTPUT MACRO                          ARITH    8860
          7475  5110007620 +                      SA1    =8RBUGTRT                                               ARITH    8861
                          6170007476 +            SB7    *+1                                                     ARITH    8862
          7476  0400000000 X                      EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS   ARITH    8863
          7477  7160000014                        SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD         ARITH    8864
                          20670                   LX6    P.TYP               SO THE REFE RENCE WONT APPEAR       ARITH    8865
                               12762              BX7    X6+X2             IN THE REFERENCE MAP                  ARITH    8866
          7500  54720                             SA7    A2                                                      ARITH    8867
          7501  5150000005 C            IFL.3A    SA5    ARLPT                                                   ARITH    8868
                          13444                   BX4    X4-X4                                                   ARITH    8869
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   188
        IFL - LOGICAL IF PROCESSING 
  
          7502  0100006137 +                      RJ     DARLIST                                                 ARITH    8870
          7503  5110000034                        SA1    LELIST                                                  ARITH    8871
                          5120000021              SA2    LTYPE                                                   ARITH    8872
          7504  10611                             BX6    X1                                                      ARITH    8873
                     22702                        LX7    X2                                                      ARITH    8874
                          5160000032              SA6    SELIST                                                  ARITH    8875
          7505  5170000024                        SA7    TYPE                                                    ARITH    8876
                          7222777763              SX2    X2-12                                                   ARITH    8877
          7506  0332007422 +                      MI     X2,IFL.ERR1     IF THE STATEMENT IS NOT EXECUTABLE THEN ARITH    8878
                                                                           GO TO 'IFL.ERR1' TO FLAG THE ERROR.   ARITH    8879
                          36222                   IX2    X2+X2                                                   ARITH    8880
                               63120              SB1    X2                                                      ARITH    8881
          7507  0211007510 +                      JP     IFSTMTGO+B1     JUMP TO THE CORRECT STATEMENT PROCESSOR ARITH    8882
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   189
        IFL - LOGICAL IF PROCESSING 
  
                                        **        IFSTMTGO - IF STATEMENT JUMP TABLE                             ARITH    8884
                                        *         THIS JUMP TABLE PROVIDES THE DIRECTION FOR PROCESSING THE      ARITH    8885
                                        *         STATEMENT PROTION OF A LOGICAL IF.  UNLESS THE STATEMENT       ARITH    8886
                                        *         IS ILLEGAL A PROCESSING ROUTINE IS CALLED AND THEN THE         ARITH    8887
                                        *         PROCESSING OF THE LOGICAL IF RESUMES AT 'IFL.4'.               ARITH    8888
                                                                                                                 ARITH    8889
                                         STMT     MACRO  ROUTINE,KIND                                            ARITH    8890
                                                  LOCAL  BEGIN                                                   ARITH    8891
                                        EMPTY     IFC    EQ,  KIND                                               ARITH    8892
                                                   RJ     =X_ROUTINE                                             ARITH    8893
                                                   ZR     IFL.4                                                  ARITH    8894
                                        EMPTY     ELSE                                                           ARITH    8895
                                        ERROR      IFC    EQ, KIND ERROR                                         ARITH    8896
                                         BEGIN      EERR   ROUTINE                                               ARITH    8897
                                                   BSS     2+BEGIN-*                                             ARITH    8898
                                        ERROR     ELSE                                                           ARITH    8899
                                                   ZR      IFL.4                                                 ARITH    8900
                                                   BSS     1                                                     ARITH    8901
                                                  ENDIF                                                          ARITH    8902
                                         STMT     ENDM                                                           ARITH    8903
  
  
  
          7510  0100006764 +             IFSTMTGO STMT   ARITH             ARITHMETIC REPLACEMENT STATEMENT   12 ARITH    8906
          7512  6160777520                        STMT   -E175,ERROR       END                                13 FCC0418    87
          7514  0100000000 X                      STMT   ASSIGN            ASSIGN                             14 ARITH    8908
          7516  0100000000 X                      STMT   GOTO              GO TO                              15 ARITH    8909
          7520  0100007172 +                      STMT   IFE               ARITHMETIC IF                      16 ARITH    8910
          7522  6160777520                        STMT   -E175,ERROR       LOGICAL IF                         17 FCC0418    88
          7524  6160777520                        STMT   -E175,ERROR       BAD STATEMENT                      18 FCC0418    89
          7526  0100000000 X                      STMT   CALL              CALL                               19 ARITH    8913
          7530  0100000000 X                      STMT   RETURN            RETURN                             20 ARITH    8914
          7532  0100000000 X                      STMT   CONT        CONTINUE                                    FCC1636X   17
          7534  0100000000 X                      STMT   STOPP             STOP                               22 ARITH    8916
          7536  0100000000 X                      STMT   PAUSEP            PAUSE                              23 ARITH    8917
          7540  6160777520                        STMT   -E175,ERROR       DO                                 24 FCC0418    90
          7542  0100000000 X                      STMT   READ              READ                               25 ARITH    8919
          7544  0100000000 X                      STMT   WRITE             WRITE                              26 ARITH    8920
          7546  0100000000 X                      STMT   BUFIN             BUFFER IN                          27 ARITH    8921
          7550  0100000000 X                      STMT   BUFOUT            BUFFER OUT                         28 ARITH    8922
          7552  0100000000 X                      STMT   ENC               ENCODE                             29 ARITH    8923
          7554  0100000000 X                      STMT   DEC               DECODE                             30 ARITH    8924
          7556  0100000000 X                      STMT   REW               REWIND                             31 ARITH    8925
          7560  0100000000 X                      STMT   BKSP              BACKSPACE                          32 ARITH    8926
          7562  0100000000 X                      STMT   ENDFILE           ENDIFLE                            33 ARITH    8927
          7564  0100000000 X                      STMT   PRINT             PRINT                              34 ARITH    8928
          7566  0100000000 X                      STMT   PUNCH             PUNCH                              35 ARITH    8929
                                                                                                                 ARITH    8930
          7570  5150007075 +             IFL.4    SA5    LIFTS1                                                  ARITH    8931
                          0100000000 X            CALL   WLABM       #GL NNN LABEL DEF MACRO TO RLIST            ARITH    8932
          7571  7160000021                        SX6    17D                                                     ARITH    8933
                          5160000024              SA6    TYPE        RESTORE STATEMENT TYPE FOR DO PROCESSOR     ARITH    8934
          7572  0400007424 +                      EQ     IFL                                                     ARITH    8935
         10061                                    END                                                            ARITH    8936
  
                             73100B CM  STORAGE USED            14302 STATEMENTS     2044 SYMBOLS      000292 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           11.218 SECONDS        6234 REFERENCES
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   190
        SYMBOLIC REFERENCE TABLE. 
  
        ABIO         6536   PROGRAM*       45/51     48/32     50/08    164/26 L  164/57 S  166/42    174/28 S
        ACALA        6755   PROGRAM*      170/32    171/12    171/43 L  171/46    171/50    171/56
        ACALL        6662   PROGRAM*      169/20 E  169/20 L  171/14    171/30    174/06 S
        ACALLD       6660   PROGRAM*      169/16 L  169/35
        ACALL1       6670   PROGRAM*      169/27    169/32 L
        ACALL2       6701   PROGRAM*      169/18    169/45    169/50 L
        ACALL4       6714   PROGRAM*      169/40    169/48    170/19 L
        ACALL5       6715   PROGRAM*      170/20 L  170/28
        ACALL5A      6717   PROGRAM*      170/22    170/25 L
        ACALL6       6720   PROGRAM*      169/47    170/27 L
        ACAL10       6742   PROGRAM*      171/03    171/05    171/09    171/12 L
        ACAL7        6721   PROGRAM*       97/55    170/06    170/32 L
        ACAL8        6723   PROGRAM*      170/33    170/35 L
        ACAL8A       6726   PROGRAM*      170/38    170/40 L
        ACAL9        6740   PROGRAM*      170/53    171/08 L
        ACNT           42   PROGRAM*       13/28 D   52/52     54/39 S   58/17 S   65/03    143/18    170/40
                                           13/30     52/54 S   58/10     59/50    139/19    169/33 S
        ACOMPL       3120   PROGRAM*       18/37     71/23 L
        ACT          1465   PROGRAM*       35/18 L   40/41     42/05     42/37
        ACT2         5762   PROGRAM*      141/09    141/20 L
        ACT3         5767   PROGRAM*      141/11    141/13    141/29 L
        ACT4         5765   PROGRAM*      141/19    141/24 L
        ACT5         5766   PROGRAM*      141/18    141/23    141/26 L
        ADDOP        4271   PROGRAM*       49/24     49/40     93/36     94/29    114/46    115/24
                                           49/26     49/48     94/16     98/02 L  115/22    115/42
        ADDOP1       4273   PROGRAM*       96/25     98/05 L
        ADDOP2       4302   PROGRAM*       98/05     98/18 L
        ADDOP3       4276   PROGRAM*       98/07     98/10 L   98/20
        ADDOP4       4305   PROGRAM*       98/13     98/23 L
        ADDOP5       4310   PROGRAM*       98/24     98/29 L
        ADDOP5A      4312   PROGRAM*       98/31     98/33 L
        ADDOP6       4300   PROGRAM*       98/14 L   98/41
        ADDREF          0   EXTERNAL*      31/02     31/11     31/14     44/41    186/31
        ALLARR          0   EXTERNAL*      21/19 X   36/30     49/27     87/53
        ALLCALL         0   EXTERNAL*      21/20 X  171/47
        ALLFUNC         0   EXTERNAL*      21/21 X   56/26
        ALOCF        3173   PROGRAM*       18/50     73/18 L
        ALOCF1       3175   PROGRAM*       73/24 L   73/27
        ALOCF3       3200   PROGRAM*       73/25     73/32 L
        ALOCF4       3212   PROGRAM*       73/52     73/53     73/57 L
        AMASK        3146   PROGRAM*       18/49     72/26 L
        AMASK2       3153   PROGRAM*       72/33     72/36 L
        AMOD         3156   PROGRAM*       18/20     72/44 L
        ANY            11                   8/29 D  139/53
        ANYSNGL         7                   8/27 D  139/51
        AOOP         4317   PROGRAM*       97/06     97/08     98/49 L
        AOOP1        4323   PROGRAM*       98/55     98/57 L
        AOOP2        4324   PROGRAM*       98/56     99/02 L
        AOOP3        4330   PROGRAM*       98/54     99/08 L
        APLMC           1                   9/03 D    9/03     15/32    175/32
        APLMD         434   PROGRAM*       15/32 L  142/42
        APLRST          0   EXTERNAL*     164/29 X  166/37 S  167/27 S
        APLRT        5775   PROGRAM*       52/51     58/43    142/07 E  142/07 L  142/51    143/15
        APLRT1       6005   PROGRAM*      142/24    142/29 L
        APLRT2       6011   PROGRAM*      142/16    142/17    142/27    142/37    142/41 L
        APLST        7103   PROGRAM*      175/31 E  175/32 L  181/03 S  181/04
        AP.CAP         22   FTNTEXT        46/24    142/12    166/26    180/55
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   191
        SYMBOLIC REFERENCE TABLE. 
  
        AP.CRP         66   FTNTEXT        46/19     46/24    142/25
        AP.IHP          0   FTNTEXT        46/19
        AP.P1P         71   FTNTEXT        58/41    142/38    166/28
        ARANF        3164   PROGRAM*       18/51     73/02 L
        ARGCMA        450   PROGRAM*       15/52 L   54/49     83/27    170/09
        ARGCNT          2   CLNFO          19/50 L  170/44 S
        ARGLP         445   PROGRAM*       15/49 L   54/44
        ARGPO        2542   PROGRAM*       61/12 L   97/39
        ARGP1        2545   PROGRAM*       61/15     61/17 L
        ARGP1RT      2662   PROGRAM*       61/17     63/41     65/01 L   69/25     75/50 S   82/13
        ARGP1TS       355   PROGRAM*       14/14 L   66/34 S   66/44 S   66/47 S   66/56     67/04     67/10     67/16
                                           66/27 S   66/41 S   66/45 S   66/53 S   66/57     67/05     67/11     67/22
        ARGP10       3055   PROGRAM*       65/11     65/32     69/42 L
        ARGP10A      3065   PROGRAM*       70/05 L   70/14
        ARGP10B      3070   PROGRAM*       70/11     70/14 L
        ARGP11A      3115   PROGRAM*       70/21     71/10 L
        ARGP11B      3075   PROGRAM*       70/28 L   71/25     71/54     72/09     72/26     72/40     72/48     73/14
                                           71/10     71/34     72/02     72/22     72/35     72/44     72/55
        ARGP12       3104   PROGRAM*       70/40     70/43 L
        ARGP14       3105   PROGRAM*       70/42     70/45 L
        ARGP15       3113   PROGRAM*       67/35     71/05 L
        ARGP2        2671   PROGRAM*       65/09     65/18 L
        ARGP20       3037   PROGRAM*       69/08 L   69/13
        ARGP21       3022   PROGRAM*       68/38 L   70/49     71/01     74/10     75/51
        ARGP22       3030   PROGRAM*       68/42     68/44     68/51 L
        ARGP3        2675   PROGRAM*       65/16     65/18     65/27 L
        ARGP3A       2706   PROGRAM*       65/34     65/46 L
        ARGP4        3046   PROGRAM*       65/30     69/28 L
        ARGP5        2673   PROGRAM*       65/20     65/23 L
        ARGP5A       2674   PROGRAM*       65/22     65/25 L
        ARGP6        2776   PROGRAM*       67/49     67/52 L
        ARGP7        3005   PROGRAM*       67/51     68/08 L
        ARGP7A       3015   PROGRAM*       68/24     68/26 L
        ARGP8A       2761   PROGRAM*       65/57     67/26 L   69/39
        ARGP8B       2742   PROGRAM*       66/50     66/53 L
        ARGP8C       2716   PROGRAM*       66/03 L   67/02     67/24
        ARGP8CR      2715   PROGRAM*       65/56     66/02 L   66/06     66/21     69/38     90/14    170/34    171/27
        ARGP8C1      2727   PROGRAM*       66/15     66/17     66/22 L
        ARGP8D       2765   PROGRAM*       67/36 L   71/08
        ARITH        6764   PROGRAM*      130/52    172/05 E  172/05 L  178/17    189/24
        ARITH10      7032   PROGRAM*      173/41    173/44 L
        ARITH2       7001   PROGRAM*      172/22    172/30 L  173/30
        ARITH2A      7011   PROGRAM*      172/48    172/51 L
        ARITH3       7017   PROGRAM*      172/24    172/40    172/57    173/02    173/15 L
        ARITH4       7026   PROGRAM*      172/32    172/37    173/34 L
        ARITH9       7030   PROGRAM*      172/13    173/40 L
        ARITH.N      7022   PROGRAM*      172/20    173/24 L
        ARITH.N1     7024   PROGRAM*      173/24    173/26 L
        ARLIST          0                  13/03 D   44/20     55/12    123/52    135/10 S  136/23 S  174/30
                                           39/24 S   44/51     68/22    124/10 S  135/32 S  147/10
                                           42/24 S   45/32     91/07    125/33    135/51 S  147/12
                                           43/43 S   47/05     98/26    134/47 S  136/20 S  174/15 S
        ARLOVER      5647   PROGRAM*       36/56    134/46    136/34 L  136/35
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   192
        SYMBOLIC REFERENCE TABLE. 
  
        ARLPT           5   CLNFO          19/53 E   44/19     53/43     65/42     91/06    130/40    171/15    180/38 S
                                           19/53 L   44/45     54/27     68/15     93/19    130/42 S  171/23    187/56
                                           30/07     45/25     61/33     68/18 S  123/39    130/48    174/10 S
                                           36/38     47/01     63/20     68/21    124/18 S  134/37    178/19 S
                                           43/14     48/47     65/36     91/02    130/08    135/55    180/34
        ARLST          12   PROGRAM*       13/16 L  125/38    130/47    174/02 S
        ARLSZ        3200   FTNTEXT        36/54    123/41    134/36
        ARN           352   PROGRAM*       14/11 L   75/06 S   75/20     75/34
        ARORD         330   PROGRAM*       13/50 L   49/03 S   83/33     87/46 S   88/26 S  174/26 S
                                           48/40     49/29     86/47     88/11     89/38
        ARR          3746   PROGRAM*       88/06     89/03 L   91/35
        ARRAY        1504   PROGRAM*       31/47     35/46 L   51/04
        ARRAY1       1533   PROGRAM*       36/29     36/38 L
        ARRAY2       1537   PROGRAM*       36/44     36/45     36/48 L
        AR1.         3765   PROGRAM*       89/29     89/38 L
        AR2.         3770   PROGRAM*       89/37     89/44 L
        AR3.         3776   PROGRAM*       89/52     90/01 L
        ASAER           0   EXTERNAL*      21/08 X   25/36    121/29
        ASAL         2232   PROGRAM*       52/31     52/47 L
        ASAL0        2231   PROGRAM*       52/38     52/45 L
        ASAL2        2242   PROGRAM*       53/01     53/03     53/05 L
        ASAL7        2224   PROGRAM*       52/29     52/34 L
        ASFDEF          0   EXTERNAL*      21/10 X  173/13
        ASFMF        6414   PROGRAM*      118/08 S  118/11 S  157/02    157/08 S  158/07 S  158/09    158/13 L
        ASFREF          0   EXTERNAL*      21/11 X   53/52
        ASHIFT       3121   PROGRAM*       18/48     71/29 L
        ASHIFT0      3130   PROGRAM*       71/40     71/45 L
        ASHIFT1      3137   PROGRAM*       71/39     71/44     72/06 L
        ASHIFT2      3141   PROGRAM*       71/42     72/13 L
        ASSIGN          0   EXTERNAL*     189/26
        AVTS         6067   PROGRAM*      144/10    144/12    144/30    144/42 L  144/56
        BEFMC         121                   9/12 D    9/12     15/30
        BEFMD         433   PROGRAM*       15/30 L   69/33
        BEFTB           0   EXTERNAL*      21/27 X  152/37
        BEFTLU       6241   PROGRAM*       32/07     32/44     33/18    152/18 E  152/18 L  152/21    152/24
        BEFTLUA      6245   PROGRAM*      152/22    152/26 L
        BEFTLU.P     6250   PROGRAM*      152/19    152/37 L
        BIO             0   EXTERNAL*     164/55
        BKSP            0   EXTERNAL*     189/44
        BOPSTB       4654   PROGRAM*      109/23    110/10 L  110/54
        BOPSTS         14                 109/20    110/54 D
        BRANCHNO     7076   PROGRAM*      175/23 L  178/51 S  184/17    184/21 S  186/55 S
        BRPNT        4653   PROGRAM*      109/31 S  109/51    109/56    110/02 L
        BSAV         1321   PROGRAM*       22/32 S   29/53 L   85/19 S   86/03 S  141/08
                                           29/45 S   77/22 S   85/30 S   86/14 S  160/29 S
        BUFIN           0   EXTERNAL*     189/39
        BUFOUT          0   EXTERNAL*     189/40
        CA            324   PROGRAM*       13/47 L   87/23 S   87/28 S   87/44     87/47 S   88/08
        CALL            0   EXTERNAL*     189/31
        CARGPO       2414   PROGRAM*       58/02 L   97/43
        CARGPORT     2416   PROGRAM*       58/03     58/46     60/35     61/09     82/03
                                           58/09 L   59/39     60/43     81/43
        CARGP6       2423   PROGRAM*       58/14     58/16 L
        CBNFLG          0   EXTERNAL*      21/05 X   80/48     81/01     81/24     81/44    152/40
        CC            400   PROGRAM*       14/38 L   48/51     49/06 S   83/13     83/17 S   88/29 S  174/19 S
        CDCNT          37                   8/07 D   65/54    181/22
        CFCD            0   EXTERNAL*      83/54
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   193
        SYMBOLIC REFERENCE TABLE. 
  
        CFETCH       6165   PROGRAM*       26/24     27/33    102/06    107/17    148/24 L  148/44    160/20
        CFO             0   EXTERNAL*      30/28    169/16    173/25
        CHKARG       5701   PROGRAM*       58/28     61/07    139/44    139/54    140/04    140/13
                                           60/24    139/18 L  139/50    140/02    140/06    140/15
        CHKA0        5707   PROGRAM*      139/27    139/31 L
        CHKA1        5722   PROGRAM*      139/56    140/01    140/04 L
        CHKA2        5723   PROGRAM*      140/03    140/05 L  140/09    140/11    140/16
        CHKA3        5725   PROGRAM*      139/52    140/08 L
        CHKA7        5732   PROGRAM*      139/28    139/30    140/18 L
        CHKOFF       5536   PROGRAM*       59/36     60/42     67/46     75/19     90/56    132/06 L  143/33    144/55
                                           60/25     61/08     68/02     75/33     91/34    132/18    143/53    145/12
                                           60/32     63/18     69/37     87/41    120/42    142/50    144/27
        CHKP2        6177   PROGRAM*       72/46    111/43    111/52    111/55    149/17 L  149/22    149/34
        CHKP2X       6176   PROGRAM*      149/13 L  149/28    149/30
        CLABEL         23                 175/04 D  183/16
        CLC          4430   PROGRAM*       99/41    100/57    103/10 L  103/19    103/32    103/37    104/06
        CLCE         4461   PROGRAM*      103/42    104/07 L
        CLC1         4434   PROGRAM*      103/18 L  103/33
        CLC2         4437   PROGRAM*      103/17    103/25 L
        CLC3         4444   PROGRAM*      103/29    103/30    103/34 L
        CLC4         4446   PROGRAM*      103/28    103/35    103/36    103/38 L  103/53    103/54    103/56
        CLC5         4456   PROGRAM*      103/44    103/47    103/57 L
        CLGP         5533   PROGRAM*       96/42    131/37    131/54 L
        CLGP1        5527   PROGRAM*      131/37 L  131/45    132/02
        CMASK        6657   PROGRAM*      169/15 L  169/38
        CMASUB        446   PROGRAM*       15/50 L   83/21
        CMMAB        3523   PROGRAM*       83/05 L
        CMMA1        3540   PROGRAM*       83/10     83/32 L
        CMMA1A       3572   PROGRAM*       83/44     83/46     84/01     84/34 L
        CMMA1B       3573   PROGRAM*       84/11     84/13     84/36 L
        CMMA2        3524   PROGRAM*       83/03     83/07 L
        CMMA3        3535   PROGRAM*       83/12     83/26 L
        CMMA4        3533   PROGRAM*       83/19     83/21 L
        CMMA5        3547   PROGRAM*       83/42     83/48 L
        CMMA6        3552   PROGRAM*       83/38     83/49     83/53 L
        CMMA7        3555   PROGRAM*       83/56     84/03 L
        CMPARE       4214   PROGRAM*       22/41     57/35     82/41     85/40     92/26     95/28     99/10
                                           57/26     57/48     83/24     92/05     92/32     95/30     99/31
                                           57/30     58/04     83/30     92/13     92/44     95/52    108/41
                                           57/31     79/28     83/45     92/15     92/49     95/56    108/55
                                           57/34     82/34     83/57     92/21     93/05     96/17 L  124/47
        COMMA        3522   PROGRAM*       22/40     83/02 L
        COMP         1466   PROGRAM*       35/19 L   38/10     40/03 S
        COMPLEX         4                   8/25 D   16/21     16/26     18/33    140/10    177/19    177/21
                                           16/17     16/25     18/32    139/57    177/18    177/20    177/22
        CON          1134   PROGRAM*       22/37     25/02 L
        CONST           1   PROGRAM*       13/06 E   25/14 S   27/07     28/55     84/06 S  109/35 S  140/37
                                           13/06 L   25/46     27/08     28/57    107/01    109/41    150/25 S
                                           25/13 S   26/11     27/23     84/05 S  107/07 S  109/53
        CONSTT       1467   PROGRAM*       35/20 L   37/36 S   40/42     41/18     41/34     42/06
        CONT            0   EXTERNAL*     189/33
        CONVERT         0   EXTERNAL*      21/09 X   27/30     62/02     89/34    126/46    140/42
                                           25/10     28/45     64/01    102/04    128/15    160/15
                                           26/22     38/06     89/15    107/13    128/40
        CON2         1203   PROGRAM*       25/45     25/53     26/05     26/40 L
        CON2A        1273   PROGRAM*       27/20     27/22     28/55 L  165/29
        CON2AA       1215   PROGRAM*       26/57     27/06 L
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   194
        SYMBOLIC REFERENCE TABLE. 
  
        CON2B        1302   PROGRAM*       27/24     29/16 L
        CON2B1       1307   PROGRAM*       29/23     29/25 L
        CON2C        1312   PROGRAM*       27/28     29/34 L
        CON2C1       1315   PROGRAM*       29/36     29/40     29/43 L
        CON2D        1232   PROGRAM*       27/10     27/12     27/16     27/30 L   28/03     29/01
        CON2D1       1236   PROGRAM*       27/25     27/39 L
        CON2E        1231   PROGRAM*       27/29 L   27/39     29/42
        CON2F        1223   PROGRAM*       26/43     26/49     26/51     27/05     27/17 L   28/07     28/21     28/23
        CON2F1       1224   PROGRAM*       27/19 L   28/10     28/15
        CON2G        1245   PROGRAM*       27/14     27/57 L
        CON2H        1247   PROGRAM*       27/18     28/06 L
        CON2H1       1266   PROGRAM*       28/33     28/41 L
        CON4         1145   PROGRAM*       25/21 L   84/32
        CON4A        1160   PROGRAM*       25/22     25/35     25/40 L
        CON4B        1156   PROGRAM*       25/29     25/31     25/38 L
        CON4C        1157   PROGRAM*       25/37     25/39 L
        CON4D        1153   PROGRAM*       25/30     25/33 L
        CON4E        1167   PROGRAM*       25/51     25/54 L
        CON7         1322   PROGRAM*       25/52     26/16     29/55 L  101/34
        CON.            0   EXTERNAL*      21/22 X  128/46
        CPLXC           0   EXTERNAL*     165/21
        CRADD         247                   9/44 D    9/44     16/35
        CRDIV         253                   9/48 D    9/48     16/39
        CRFLAG          0   EXTERNAL*      50/26 S
        CRGPA        2474   PROGRAM*       59/35 S   59/37     59/45 L
        CRGP0        2430   PROGRAM*       58/24     58/29 L
        CRGP1        2442   PROGRAM*       58/33     58/37     58/47 L
        CRGP1B       2445   PROGRAM*       58/49     58/52 L
        CRGP10       2475   PROGRAM*       58/19     59/50 L
        CRGP11       2500   PROGRAM*       59/53     59/55 L
        CRGP11A      2507   PROGRAM*       60/07     60/10     60/14 L
        CRGP12       2513   PROGRAM*       60/19     60/21     60/23 L
        CRGP20       2530   PROGRAM*       58/21     60/47 L
        CRGP20A      2536   PROGRAM*       61/01     61/03 L
        CRGP20B      2537   PROGRAM*       61/02     61/06 L
        CRGP4        2457   PROGRAM*       58/53     59/01     59/19 L
        CRGP5        2437   PROGRAM*       58/43 L   59/13     59/17
        CRGP6        2472   PROGRAM*       58/35     59/41 L
        CRGP7        2460   PROGRAM*       59/22 L   59/43
        CRGP7A       2464   PROGRAM*       59/29     59/31 L
        CRGP7B       2466   PROGRAM*       59/30     59/34 L
        CRMLT         251                   9/46 D    9/46     16/37
        CRNTOP         37   PROGRAM*       13/25 L   96/52 S  107/26
        CRRDIV        257                   9/52 D    9/52     16/43
        CRRSUB        255                   9/50 D    9/50     16/41
        CRSUB         245                   9/42 D    9/42     16/33
        CS1PO        3575   PROGRAM*       85/03 L   97/41
        CS1P1        3601   PROGRAM*       85/07     85/10 L
        CS1P2        3605   PROGRAM*       85/14     85/17 L
        CS1P3        3622   PROGRAM*       85/27     85/43 L   86/25
        CS1P4        3615   PROGRAM*       85/32 L   85/47
        CS1P5        3613   PROGRAM*       85/28 L   86/24
        CS2PO        3625   PROGRAM*       85/51 L   97/42
        CS2P1        3631   PROGRAM*       85/55     86/01 L
        CS2P2        3646   PROGRAM*       86/11     86/26 L
        CS2P4        3641   PROGRAM*       86/16 L   86/30
        CVDA         6507   PROGRAM*      162/26 S  162/54    163/02 L
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   195
        SYMBOLIC REFERENCE TABLE. 
  
        CVDB         6460   PROGRAM*      162/03 E  162/03 L  162/06    162/07    162/19
        CVDBB        6510   PROGRAM*      162/14 S  162/42 S  162/52 S  162/53    163/03 L
        CVD1         6466   PROGRAM*      162/15 L  162/22    162/57
        CVD2         6501   PROGRAM*      162/46    162/48 L
        CVD3         6505   PROGRAM*      162/40    162/54 L
        DAF          1502   PROGRAM*       35/34 L   36/21 S   36/35 S   43/11     47/32
        DALV         6157   PROGRAM*       85/46     86/29    148/04 L  148/16
        DARLIST      6137   PROGRAM*       63/23     68/19    130/43    147/09 E  147/14    171/26    188/01
                                           65/44     91/05    130/49    147/09 L  147/37    180/36
        DBGAPL       1121   PROGRAM*       24/04 E   62/08 S   64/07 S   89/36 S  121/46    126/55    180/20    187/25 S
                                           24/05 L   62/14     64/08     89/43 S  124/30 S  127/27 S  181/25 S  187/45 S
                                           61/31     62/15 S   67/29 S   89/45 S  126/19 S  128/17 S  181/29
                                           61/35 S   63/19     69/49 S   89/47 S  126/22 S  128/42 S  182/52
                                           62/04 S   64/03 S   70/31 S   90/06 S  126/48 S  128/49 S  182/54 S
                                           62/06 S   64/05 S   89/17 S   90/18    126/49    129/08 S  184/50 S
        DBGEXT       1063   PROGRAM*       20/02 E   20/03 L  181/12
        DCF          1456   PROGRAM*       35/06 L   36/48 S   42/12     43/06
        DEBUG           0   //             19/56 L  126/30    127/34    127/47
        DEC             0   EXTERNAL*     189/42
        DEFMC         111                   9/09 D   15/12     15/14     15/16     15/18
                                            9/09     15/13     15/15     15/17     15/19
        DEFMD         416   PROGRAM*       15/12 L   60/30     60/40
        DFLAG           0   EXTERNAL*      21/25 X   36/27     49/25     56/12     87/49    124/19    162/04    171/44
        DFRMC         125                   9/15 D    9/15     15/20     15/21
        DFRMD         426   PROGRAM*       15/20 L   67/44     67/57     90/45
        DIL          2035   PROGRAM*       43/08     46/52 L   47/10     47/13
        DIL1         2042   PROGRAM*       47/08 L   47/22
        DIL2         2050   PROGRAM*       47/09     47/24 L
        DIL2A        2055   PROGRAM*       47/33     47/36 L
        DIL2B        2057   PROGRAM*       47/37     47/41 L
        DIL3         2061   PROGRAM*       47/36     47/38     47/44 L
        DIL4         2064   PROGRAM*       47/49     47/52 L
        DIL5         2070   PROGRAM*       48/02     48/05 L
        DIMINF        327   PROGRAM*       13/49 L   48/41     49/04 S   83/14     85/25     86/09     86/20     88/25 S
        DIM1           17                   8/04 D   35/54     89/23    154/14    162/33
        DIT          1703   PROGRAM*       39/21     39/39     42/04 L   42/42
        DIVCR         241                   9/39 D    9/39    101/13
        DIVD         4166   PROGRAM*       95/15     95/19 L  108/45
        DIVD1        4202   PROGRAM*       95/40     95/49 L
        DIVD2        4204   PROGRAM*       95/51     95/53 L
        DIVIDE1      4164   PROGRAM*       95/14     95/16 L
        DIVIOP       4161   PROGRAM*       22/56     95/09 L
        DIVX         4170   PROGRAM*       79/29     82/29     95/23 L
        DIVX1        4206   PROGRAM*       95/38     96/01 L
        DIVX2        4200   PROGRAM*       95/43 L   96/06
        DIV.INT       227                   9/38 D    9/38    111/38
        DLBMD        1065   PROGRAM*       21/39 L  113/40    133/49
        DLDSU        5737   PROGRAM*       29/03    106/19    140/36 L
        DLMAC         407   PROGRAM*       15/02 L  137/45
        DLMACO        131                   9/18 D    9/18     15/02     58/36    122/41    151/17    168/15
        DLSU1        5733   PROGRAM*      140/28 L  140/39
        DLSU2        5736   PROGRAM*      140/34 L  140/56
        DLTSMC        151                   9/29 D    9/29    151/20
        DOCALL          0   EXTERNAL*      21/12 X   55/04
        DODEF           0   EXTERNAL*      21/13 X   94/42    121/34
        DOFLAG          0   EXTERNAL*      21/03 X  178/12
        DOGOOF          0   EXTERNAL*      21/15 X   94/50    166/21
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   196
        SYMBOLIC REFERENCE TABLE. 
  
        DOLABR          0   EXTERNAL*     183/52    186/29
        DOT          7102   PROGRAM*      175/27 L  183/27 S  184/05    184/22
        DOUBLE          3                   8/24 D   16/23     18/31    140/08    177/08    177/12    177/16
                                           16/16     16/24     18/42    177/05    177/09    177/13    177/17
                                           16/20     18/15     18/47    177/06    177/10    177/14    177/18
                                           16/22     18/25    139/55    177/07    177/11    177/15    177/19
        DRLST1       6155   PROGRAM*      147/19    147/39 L
        DRLST2       6142   PROGRAM*      147/15 L  147/36
        DRLST3       6153   PROGRAM*      147/35 L  147/41    147/43
        DVDORD         23                   8/37 D   15/46
        DV.AAS         15                  24/32 D   49/38     88/03
        DV.ARR         11                  24/31 D   49/37     88/02
        DV.CLL         13                  24/30 D  171/55
        DV.FUN          7                  24/29 D   56/32
        DV.STO          5                  24/28 D  124/42
        DZRMD         410   PROGRAM*       15/03 L  140/38
        D.SAASI         0   EXTERNAL*      21/26 X  126/25    127/48
        ECON         1562   PROGRAM*       37/35     37/51 L   38/11     38/15     41/32
        ECON1        1567   PROGRAM*       38/01     38/05 L
        EJTB         1073   PROGRAM*       22/33     22/35 L
        EL.COMMA        3   FTNTEXT        35/43     37/15     41/13     52/56    165/13    183/40
        EL.CON          0   FTNTEXT        35/43     37/19
        EL.DSTR        24   FTNTEXT        26/04     68/39     77/54     82/30     92/14    118/46
                                           30/05     76/04     79/17     88/44     98/12
        EL.EOS          4   FTNTEXT       120/05    183/44    186/48
        EL.ID           1   FTNTEXT        25/03     30/04     35/43     57/11     57/28     57/40     84/08     92/12
        EL.LE          12   FTNTEXT       116/04
        EL.MINUS       20   FTNTEXT        25/26     37/13     37/24     57/32    115/15
                                           35/43     37/15     57/15     83/48
        EL.NOT         11   FTNTEXT        57/16
        EL.OR           7   FTNTEXT        23/04
        EL.PLUS        21   FTNTEXT        35/43     57/19     57/33    115/29
        EL.RP           2                  35/39 D   35/43
        EL.SLASH       23   FTNTEXT        25/42     79/16     82/28     95/49    107/28    108/40    114/42    115/23
        EL.STAR        22   FTNTEXT        35/43     92/11     95/47    114/38
        EL.S)          25   FTNTEXT        25/28
        EL.(            6   FTNTEXT        25/06     32/51     39/18     52/04     57/41     84/12    172/36
                                           30/23     36/10     41/08     57/12     61/24     92/17    178/16
                                           31/51     38/23     50/47     57/29     83/35     93/27
        EL.)            2   FTNTEXT        35/39     57/05     61/21     93/12     96/12    116/37    119/04
                                           53/02     61/13     93/01     94/57     98/19    118/27
        EL.=            5   FTNTEXT        25/02     94/19
        EMODE        1062   PROGRAM*       19/38 L   49/10     50/40     53/39 S   69/01 S   88/20 S   93/32 S  174/38 S
                                           26/41     49/22 S   52/15     54/43     83/08     92/19    118/32 S
                                           28/08     49/51     53/31     54/55 S   84/29 S   93/26    170/11 S
        ENC             0   EXTERNAL*     189/41
        ENDFILE         0   EXTERNAL*     189/45
        EOSPO        5137   PROGRAM*       97/02    119/02 L
        EPOINT         32                   8/13 D   30/21     53/16     68/38     88/43    118/42    172/33    183/49
                                           22/21     31/20     53/26 S   79/26     92/51    121/35    173/15    186/54 S
                                           25/15     36/03     53/48     82/26     92/53 S  140/43    179/03    189/53
                                           26/44     43/13 S   53/51 S   84/07     94/46    160/16    179/10    189/53
                                           27/57     48/07 S   58/44     84/37 S  107/14    170/21    180/10    189/53
                                           28/16     48/17     61/19     87/16    108/42    172/17    183/28    189/53
        EQCOUNT         5   PROGRAM*       13/10 E   30/54     62/51     90/46    120/08    125/07    164/46 S  172/12 S
                                           13/10 L   43/39     68/10     94/03    120/21    136/15    169/24 S  172/16 S
        EQFLG         373   PROGRAM*       14/32 L   94/10     94/15 S  174/08 S
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   197
        SYMBOLIC REFERENCE TABLE. 
  
        EQPO         5144   PROGRAM*       97/03    120/04 L
        EQPO1        5143   PROGRAM*      119/05    120/01 L  120/07
        EQPO10       5325   PROGRAM*      123/33    124/51 L
        EQPO11       5327   PROGRAM*      125/01 L  125/17
        EQPO12       5330   PROGRAM*      125/02    125/04 L
        EQPO13       5335   PROGRAM*      125/05    125/10    125/18 L
        EQPO14       5336   PROGRAM*      124/57    125/13    125/20 L
        EQPO1.       5152   PROGRAM*      120/16 L  120/44
        EQPO2        5243   PROGRAM*      122/16    122/29    122/31 L
        EQPO2.       5165   PROGRAM*      120/25    120/43 L
        EQPO3        5304   PROGRAM*      124/09 L  124/16
        EQPO3A       5323   PROGRAM*      124/20    124/43    124/45 L
        EQPO3B       5320   PROGRAM*      124/35    124/37 L
        EQPO3.       5166   PROGRAM*      120/24    120/45 L
        EQPO4        5270   PROGRAM*      123/21    123/31 L
        EQPO4A       5272   PROGRAM*      123/36 L  125/42    125/44
        EQPO4.       5170   PROGRAM*      120/12    120/48 L
        EQPO4.1      5200   PROGRAM*      121/06    121/09 L
        EQPO4.2      5212   PROGRAM*      121/20    121/22    121/33 L
        EQPO5        5251   PROGRAM*      122/36    122/40    122/42    122/47 L
        EQPO5F        404   PROGRAM*       14/42 L  121/44 S  122/48    122/50 S  174/21 S
        EQPO6        5254   PROGRAM*      122/44    122/49    122/53 L
        EQPO6A       5260   PROGRAM*      122/57    123/10 L
        EQPO7A       5235   PROGRAM*      122/18    122/20 L
        EQPO7B       5240   PROGRAM*      122/19    122/25 L
        EQPO7C       5231   PROGRAM*      121/42    122/10 L
        EQPO9        5301   PROGRAM*      123/54    123/56 L
        EQSIGN       4121   PROGRAM*       22/42     94/02 L
        EQS1         4131   PROGRAM*       94/12     94/17 L
        EQS1A        4137   PROGRAM*       94/27 L   94/30
        EQS2         4141   PROGRAM*       94/13     94/22     94/32 L
        EQUIVR       6266   PROGRAM*       33/48     44/08     45/11     47/50     87/43    154/25 L
        EQUIVR1      6262   PROGRAM*      154/13 L  154/29
        ERMSG         206                  10/49 D   10/53     11/04     11/10     11/18     11/22     11/26     11/30
                                           10/50     10/54     11/06     11/11     11/19     11/23     11/27
                                           10/51     11/01     11/07     11/14     11/20     11/24     11/28
                                           10/52     11/03     11/09     11/17     11/21     11/25     11/29
        ERMSG0        206                  10/50 D   94/17
        ERMSG1        207                  10/51 D   94/32
        ERMSG10       220                  11/04 D  113/54
        ERMSG11       221                  11/06 D   86/40
        ERMSG13       223                  11/07 D   49/56     50/18
        ERMSG14       224                  11/09 D   52/45
        ERMSG15       225                  11/10 D   53/04
        ERMSG16       226                  11/11 D   53/10
        ERMSG17       253                  11/13 D  171/06
        ERMSG18       230                  11/14 D   11/15     55/54
        ERMSG19       231                  11/15 D   57/36
        ERMSG2        210                  10/52 D   31/56     51/05
        ERMSG21       233                  11/17 D   65/23     74/32    140/18
        ERMSG22       234                  11/18 D  136/36
        ERMSG23       235                  11/19 D   43/04
        ERMSG24       236                  11/20 D  166/20
        ERMSG25       237                  11/21 D   84/38     92/54
        ERMSG26       240                  11/22 D  116/09
        ERMSG27       241                  11/23 D   57/22
        ERMSG28       242                  11/24 D   83/20
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   198
        SYMBOLIC REFERENCE TABLE. 
  
        ERMSG29       243                  11/25 D   61/16
        ERMSG3        211                  10/53 D  118/56
        ERMSG30       244                  11/26 D   84/34
        ERMSG31       245                  11/27 D   98/57    157/09    158/08
        ERMSG32       246                  11/28 D   29/55
        ERMSG33       247                  11/29 D   77/50     80/42
        ERMSG34       250                  11/30 D   11/32     30/01
        ERMSG35       251                  11/32 D   11/33    170/19
        ERMSG36       252                  11/33 D   65/25    171/10
        ERMSG37       306                  11/45 D  173/20
        ERMSG38       267                  11/35 D   11/36     25/36
        ERMSG39       270                  11/36 D   11/37     25/38
        ERMSG4        212                  10/54 D   10/55     98/21    120/01
        ERMSG40       271                  11/37 D   11/38     42/55     48/15
        ERMSG41       272                  11/38 D   11/39     99/05     99/22
        ERMSG42       273                  11/39 D   11/40     79/09     80/45     82/16    100/42
        ERMSG43       274                  11/40 D   11/41    105/24    116/27
        ERMSG44       275                  11/41 D   11/42    105/54
        ERMSG45       276                  11/42 D   11/43    122/20
        ERMSG46       277                  11/43 D   11/44    181/42
        ERMSG47       300                  11/44 D  179/23
        ERMSG49       313                  11/46 D   11/47     34/01
        ERMSG5        213                  10/55 D   10/57     57/44
        ERMSG50       314                  11/47 D  110/57
        ERMSG51       106                  11/48 D  111/33
        ERMSG52       114                  10/47 D   51/07
        ERMSG53       333                  11/51 D   57/07
        ERMSG54       327                  11/52 D   72/38
        ERMSG55       222                  11/54 D  140/05
        ERMSG56       456                  11/53 D   71/57
        ERMSG57       454                  11/55 D  170/27
        ERMSG58       457                  11/56 D  172/50
        ERMSG59       476                  11/57 D   76/07
        ERMSG6        214                  10/57 D   30/14
        ERMSG60       227                  11/12 D  104/07
        ERMSG61       502                  12/01 D   52/32
        ERMSG62       232                  12/03 D  121/29
        ERMSG7        215                  11/01 D   11/02     58/15
        ERMSG75       113                  35/01 D   47/41     48/03
        ERMSG8        216                  11/02 D   57/02     93/14
        ERMSG9        217                  11/03 D   98/08
        ERMSG.LF      450                  12/02 D   73/28
        ERPRO           0   EXTERNAL*      21/04 X   94/49     94/51    166/22    172/50
        ERPROI          0   EXTERNAL*      21/14 X  189/53
        ERROUT       4142   PROGRAM*       29/55     52/45     57/44     83/20     98/08    118/56    173/20    189/30
                                           30/01     53/04     58/15     84/34     98/21    120/01    178/41    189/36
                                           30/14     53/10     61/16     84/38     98/57    136/36    178/43
                                           31/56     55/54     65/23     86/40    104/07    140/05    178/44
                                           34/01     57/02     73/28     92/54    110/57    140/18    186/07
                                           51/05     57/07     74/32     93/14    111/33    157/09    186/08
                                           51/07     57/22     77/50     94/32    113/54    170/25    189/25
                                           52/32     57/36     80/42     94/33 L  116/09    171/06    189/29
        ERROUT.1     4150   PROGRAM*       94/37     94/45 L
        ERR03        4275   PROGRAM*       48/39     53/40     54/06     93/18     98/08 L   98/42
        EXIT.           0   EXTERNAL*     186/32
        EXPA         3521   PROGRAM*       81/52 S   82/31     82/43 L
        EXPCON        353   PROGRAM*       14/12 L   76/44 S   77/08 S   77/17 S   77/31     77/47     79/07     82/14
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   199
        SYMBOLIC REFERENCE TABLE. 
  
        EXPFLAG      6534   PROGRAM*      164/16 L  164/34 S  165/02    166/17
        EXPFNE        336   PROGRAM*       14/01 L   71/05     80/40 S   80/46
        EXPIN         436   PROGRAM*       15/36 L   79/03
        EXPNSF        367   PROGRAM*       14/17 L   55/21     55/23 S   76/17 S   77/57     79/19     82/10     82/35
        EXPOP        3257   PROGRAM*       76/03 L   97/38
        EXPRIA        351   PROGRAM*       14/10 L  130/03 S  178/21
        EXPSTB        366   PROGRAM*       14/16 L   55/11     76/18 S   78/01     79/20     82/04     82/36
        EXP0         3263   PROGRAM*       76/06     76/11 L
        EXP1         3274   PROGRAM*       76/29     76/34 L
        EXP11        3463   PROGRAM*       81/38     81/39     81/41 L
        EXP12        3507   PROGRAM*       82/15     82/21 L
        EXP2         3276   PROGRAM*       76/34     76/41 L
        EXP2A        3313   PROGRAM*       77/14     77/19 L
        EXP2B        3322   PROGRAM*       76/49     77/36 L
        EXP2C        3325   PROGRAM*       77/32     77/45 L
        EXP2D        3331   PROGRAM*       77/48     77/49     77/51 L
        EXP2E        3337   PROGRAM*       77/56     78/09 L
        EXP2F        3344   PROGRAM*       77/45     78/23 L
        EXP3AB       3377   PROGRAM*       79/18     79/25 L
        EXP3A1       3354   PROGRAM*       78/38     78/42     78/44 L
        EXP3A2       3372   PROGRAM*       79/08     79/14 L
        EXP3B        3402   PROGRAM*       76/46     76/48     77/40     77/52     78/26     78/27     79/35 L
        EXP3BA       3401   PROGRAM*       76/55     76/56     77/05     77/09     79/31 L
        EXP3C        3417   PROGRAM*       79/53     80/15 L
        EXP3E        3424   PROGRAM*       79/45     80/12     80/17     80/27 L
        EXP5         3433   PROGRAM*       80/41     80/43 L
        EXP5A        3436   PROGRAM*       80/44     80/48 L
        EXP5B        3440   PROGRAM*       80/49     80/54 L
        EXP6         3445   PROGRAM*       81/06     81/08 L
        EXP7         3447   PROGRAM*       80/57     81/16 L
        EXRL1         337   PROGRAM*       14/02 L   56/16     59/11     79/39 S   81/19     82/23 S  174/22 S
                                           55/08     58/48     66/13     80/09 S   81/27    139/43
        EXRL2         340   PROGRAM*       14/03 L   55/09     79/42 S   80/06     80/26 S   81/55
        EXTARG         10                  16/11 D   16/12
        E173          255                 175/10 D  178/41
        E174          256                 175/11 D  178/44
        E175          257                 186/03 D  186/07    189/25    189/29    189/30    189/36
        E176          260                 186/05 D  186/08
        E193          301                 175/12 D  183/48
        E194          302                 175/13 D  180/13
        E316          474                 175/14 D  178/43
        E328          510                  12/04 D   33/38    170/39
        FARGLST         0   EXTERNAL*     171/21
        FECH2        5667   PROGRAM*      137/23    137/24    137/40 L
        FECH3        5661   PROGRAM*      137/27 L  137/46
        FETCH        5650   PROGRAM*       33/55     52/42     88/12    122/06    137/08 L  148/15    159/24
                                           47/57     62/42    120/41    130/35    137/38    148/37
        FF           1060   PROGRAM*       19/36 L   26/35 S   92/04 S   96/16 S  174/32 S
                                           26/32     92/02     95/20    114/44
        FFRTS        6415   PROGRAM*       80/03     80/23    159/04 L  159/28
        FFRTSTS       354   PROGRAM*       14/13 L  159/10 S  159/25
        FIRSTFLG     7606   PROGRAM*       30/55 S   31/15
        FMADR         346   PROGRAM*       14/08 L   74/29 S   74/30 S   74/42     75/11     75/29     75/43
        FNAD           41   PROGRAM*       13/27 D   50/11     54/38 S   58/11     65/27     69/28     83/34    170/43 S
                                           13/28     50/48     54/56     63/47     65/46     69/47    139/21    174/27 S
                                           26/54     52/26     56/18     65/02     67/27     70/29    170/01 S
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   200
        SYMBOLIC REFERENCE TABLE. 
  
        FNDOP        5517   PROGRAM*       74/08     81/22     84/21    113/47    124/45    131/17    132/16    160/03
                                           79/05     82/01    112/54    115/11    131/09 L  131/26    133/55
        FNDOPA       5526   PROGRAM*      131/11    131/28 L
        FNDOP1       5522   PROGRAM*      131/17 L  131/24
        FNTYP         301   PROGRAM*       13/42 L   61/47     62/38     67/36 S   67/47     68/30
        FN0.         2553   PROGRAM*       61/31 L   69/24
        FN1.         2566   PROGRAM*       61/52     61/53     61/55 L
        FN3.         2611   PROGRAM*       62/36     62/38 L
        FN4.         2627   PROGRAM*       63/04     63/15 L
        FP.             0   EXTERNAL*      21/18 X   89/40    162/10
        FRLW           40   PROGRAM*       13/26 L   54/08     54/33 S   68/45     69/14
                                           13/27     54/15     68/16     69/10 S   82/06 S
        FRN           300   PROGRAM*       13/41 L   67/41 S   68/03     68/07 S   68/08     68/29
        FRSTB         145   PROGRAM*       13/39 L   56/01 S   66/07     79/47    120/16    130/13
        FRTS         6113   PROGRAM*       55/39    146/05 L  146/46
        FRTS1        6133   PROGRAM*      146/26    146/41 L
        FSTEX           0   EXTERNAL*      21/02 X  172/39    173/40
        FSTRIP       6526   PROGRAM*      163/38 E  163/38 L  163/40
        FTLU         6252   PROGRAM*      152/14    152/20    152/42 L
        FTLUX        6251   PROGRAM*      152/39 L  153/03
        FTLU1        6257   PROGRAM*      152/54 L  152/57
        FTRFLG       1131   PROGRAM*       24/11 L   56/24 S   65/33     81/50    174/07 S
                                           54/07     56/35 S   69/17     82/33 S
        FUNC         2205   PROGRAM*       32/34     32/38     32/42     33/11     52/02 L
        FUNC1        2245   PROGRAM*       33/37     33/39     33/40     52/05     53/16 L
        FUNC3        2244   PROGRAM*       52/10     52/12     52/14     52/17     52/21     52/25     53/10 L
        FUNC5        2350   PROGRAM*       53/27     56/08 L
        FUNC5A       2362   PROGRAM*       56/27     56/34 L
        FUNC5B       2363   PROGRAM*       56/13     56/15     56/17     56/25     56/33     56/36 L
        FUNC5RT      2267   PROGRAM*       54/01 L   55/02     55/07     55/19     55/27     56/08     81/18
        FUNC6        2276   PROGRAM*       54/15 L   54/19
        FUNC7        2332   PROGRAM*       55/10     55/25 L
        FUNC8        2334   PROGRAM*       49/42     55/25     55/36 L   55/38     56/03     65/35    171/20
        FUNC8A       2345   PROGRAM*       55/53     55/56 L
        F.RLST          0   EXTERNAL*      66/56     67/22    146/44    147/28
        GEFCM        6102   PROGRAM*       65/55    145/14 E  145/14 L
        GEFCM1       6077   PROGRAM*      145/08 L  145/18
        GEFCM2       6100   PROGRAM*      145/10 L  145/32
        GEFCM3       6110   PROGRAM*      145/27 L  145/29
        GEFCM3A      6107   PROGRAM*      145/23    145/25 L
        GEFCM4       6112   PROGRAM*      145/26    145/31 L
        GEFM         7105   PROGRAM*      175/34 L  181/20
        GEFMC         124                   9/14 D    9/14     15/26    175/34
        GEFMD         432   PROGRAM*       15/26 L  145/31
        GOTO            0   EXTERNAL*     189/27
        GTOUT        2166   PROGRAM*       50/32 L  119/09
        HIRELM        211                   9/35 D    9/35    105/17    108/30
        HOLCON          0   EXTERNAL*      28/44 S   28/46    164/29 X  165/34
        IARC            0   EXTERNAL*      46/37     48/34    164/29 X
        ID           1324   PROGRAM*       22/38     30/04 L
        IDCOUNT        13                  25/38 D   47/41     48/03 D   65/25     71/57 D  158/08    171/10 D  183/48
                                           25/38     47/41 D   49/56     65/25 D   72/38    158/08 D  180/13    183/48 D
                                           25/38 D   48/03     49/56 D   71/57     72/38 D  171/10    180/13 D
        IDER2        1376   PROGRAM*       25/07     31/56 L
        IDF          1470   PROGRAM*       35/21 L   38/33 S   40/45 S   41/05     41/33
        IDM          7600   PROGRAM*       25/38     48/03     65/25     72/38    171/10    183/48
                                           47/41     49/56     71/57    158/08    180/13    189/53 L
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   201
        SYMBOLIC REFERENCE TABLE. 
  
        IDMX         7577   PROGRAM*      189/53 L  189/53
        IDORDL          3   PROGRAM*       13/08 E   30/49 S   33/54     43/46     52/39
                                           13/08 L   33/50 S   35/47     47/24     52/48
        IDORDLTS       35   PROGRAM*       13/24 L   33/47 S   47/48 S   86/50 S  120/39 S  137/30    159/22 S
                                           30/51 S   47/45 S   62/31 S   86/54 S  130/33 S  148/34 S
        IDREF        1354   PROGRAM*       30/56     31/04 L
        IDREF1       1360   PROGRAM*       31/09     31/14 L
        IDREF2       1361   PROGRAM*       31/03     31/12     31/15 L
        IDREF3       1363   PROGRAM*       30/52     31/20 L
        IDREF.3      1373   PROGRAM*       31/46 L   51/01
        ID0          1327   PROGRAM*       30/06     30/10 L
        ID1          1331   PROGRAM*       30/12     30/15 L
        ID10         1404   PROGRAM*       32/08     32/13 L
        ID12         1455   PROGRAM*       31/36     34/01 L
        ID2          1341   PROGRAM*       30/16     30/36 L
        ID3          1344   PROGRAM*       30/34     30/36     30/44 L
        ID4          1377   PROGRAM*       31/53     32/01 L
        ID5          1403   PROGRAM*       32/06     32/11 L
        ID6          1435   PROGRAM*       32/05     32/11     32/16     33/20     33/25 L
        ID7          1431   PROGRAM*       32/52     33/17 L
        ID8          1406   PROGRAM*       32/17 L   33/19     33/22
        ID8A         1414   PROGRAM*       31/39     32/35 L
        ID8B         1416   PROGRAM*       32/40 L   32/45
        ID8C         1420   PROGRAM*       32/36     32/44 L
        ID9          1433   PROGRAM*       33/17     33/20 L
        ID.E34       1323   PROGRAM*       30/01 L   30/38
        ID.F         1333   PROGRAM*       30/15     30/20 L
        ID.F1        1336   PROGRAM*       30/26     30/28 L
        ID.F2        1337   PROGRAM*       30/20     30/29 L
        IFBRT        7344   PROGRAM*      178/52    179/06    179/13    183/15 L  185/11    186/56
        IFBRT1       7351   PROGRAM*      183/18    183/27 L
        IFBRT.1      7360   PROGRAM*      183/43    183/46 L
        IFBRT.2      7363   PROGRAM*      183/47    183/52 L
        IFBRT.2A     7370   PROGRAM*      183/55    184/05 L
        IFBRT.3      7374   PROGRAM*      184/03    184/06    184/10    184/17 L
        IFBRT.3A     7402   PROGRAM*      184/23    184/25    184/30 L
        IFBRT.4      7403   PROGRAM*      184/31 L  184/34
        IFBRT.4A     7417   PROGRAM*      184/55    185/06 L
        IFBRT.5      7420   PROGRAM*      184/29    184/36    184/52    185/09 L
        IFE          7172   PROGRAM*      178/46 E  178/46 L  180/45    181/38    189/28
        IFETYPE      7073   PROGRAM*      175/20 L  178/30 S  179/20    179/26 S  179/27    179/38    181/45    182/31
        IFL          7424   PROGRAM*      186/10 E  186/10 L  187/01    189/53
        IFL.ERR1     7422   PROGRAM*      186/07 L  188/09
        IFL.ERR2     7423   PROGRAM*      186/08 L  186/14
        IFL.0        7430   PROGRAM*      186/13    186/16 L
        IFL.1        7443   PROGRAM*      186/23    186/38 L
        IFL.1A       7455   PROGRAM*      187/04    187/06 L
        IFL.1B       7452   PROGRAM*      186/36    186/57 L
        IFL.2        7460   PROGRAM*      186/17    186/24    186/27    186/39    186/40    186/51    187/17 L
        IFL.3        7471   PROGRAM*      187/34    187/41 L
        IFL.3A       7501   PROGRAM*      187/42    187/56 L
        IFL.4        7570   PROGRAM*      189/24    189/28    189/33    189/37    189/40    189/43    189/46
                                          189/26    189/31    189/34    189/38    189/41    189/44    189/47
                                          189/27    189/32    189/35    189/39    189/42    189/45    189/49 L
        IFMC         7110   PROGRAM*      175/37 L  180/29
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   202
        SYMBOLIC REFERENCE TABLE. 
  
        IFMCB         260                   9/56 D   10/02     18/16     18/21     18/25     18/29     18/33
                                            9/56     18/13     18/17     18/22     18/26     18/30
                                            9/57     18/14     18/18     18/23     18/27     18/31
                                           10/01     18/15     18/19     18/24     18/28     18/32
        IFRELOP      7072   PROGRAM*      117/02 S  175/19 L  178/09 S  179/18    181/43    186/12    186/57    187/33
        IFRETURN     7074   PROGRAM*      175/21 L  178/48 S  180/39    187/02 S  187/35 S
        IFRPF        7071   PROGRAM*       92/40     92/43 S  175/18 L  178/08 S
        IFSTMTGO     7510   PROGRAM*      188/13    189/24 L
        IFTABLE      7111   PROGRAM*      177/04 L  179/51
        IFTLU        6236   PROGRAM*       32/12     32/39     33/21     74/21    152/12 E  152/12 L  152/16
        IFTLU.P      6246   PROGRAM*      152/13    152/32 E  152/33 L
        IFTS1        7061   PROGRAM*      175/16 L  180/48    180/53    184/02 S  185/06 S
                                          180/47    180/51    181/31    184/42
        IFTS2        7067   PROGRAM*      175/17 L  180/09 S  180/14    183/46 S  183/53 S  184/07    184/27    185/09
        IFTWOBR      7307   PROGRAM*      179/08    181/42 L
        IFTWO1       7314   PROGRAM*      181/44    181/51 L
        IFTWO2       7324   PROGRAM*      182/08    182/15 L
        IFTWO3       7326   PROGRAM*      182/23 L  182/57
        IFTWO6       7335   PROGRAM*      182/05    182/41 L  187/38
        IFTWO7       7337   PROGRAM*      182/04    182/46 L  187/05
        IFTWO.J      7317   PROGRAM*      182/02    182/04 L
        IF1.TBL      7145   PROGRAM*      177/38 L  182/47
        IF2.TBL      7146   PROGRAM*      177/44 L  182/15
        IF(R)NNN  7777362                 176/49 D  176/54    176/55    176/56    176/57    177/19
        IF(R)111  7777363                 176/48 D  176/50    176/51    176/52    176/53    177/18
        IF.ERR1      7166   PROGRAM*      178/41 L  178/53    179/14    183/31    183/39    183/45
        IF.ERR3      7167   PROGRAM*      178/16    178/42 L
        IF.ERR4      7171   PROGRAM*      178/44 L  179/19    179/29
        IF.1         7211   PROGRAM*      179/20 L  181/47
        IF.2         7215   PROGRAM*      179/22    179/27 L
        IF.3         7217   PROGRAM*      179/31 L  181/49    181/56    187/14    187/36
        IF.4         7222   PROGRAM*      179/43 L  182/33    182/36    182/37    182/39
        IF.4A        7224   PROGRAM*      179/44    179/46 L
        IF.5         7226   PROGRAM*      179/52 L  180/03
        IF.6         7231   PROGRAM*      179/56    180/06 L
        IF.6A        7237   PROGRAM*      180/06    180/18 L
        IF.6B        7244   PROGRAM*      180/19    180/29 L
        IF.6C        7252   PROGRAM*      180/17    180/39 L
        IF.7         7254   PROGRAM*      180/40    180/44 L
        IF.8         7256   PROGRAM*      180/48 L  181/34
        IF.9         7305   PROGRAM*      180/49    181/35 L
        IGCALL          0   EXTERNAL*      21/16 X   62/20     64/13     90/28    127/08    187/48
        IH.IHL         22   FTNTEXT        47/04
        IMASK        1503   PROGRAM*       35/40 L   37/09
        INC          1461   PROGRAM*       35/09 L   44/24
        INGEN        4621   PROGRAM*       85/24     85/39     86/19     99/09    109/04 L  112/56
                                           85/35     86/08     87/36    108/37    111/32    113/49
        INGEN1       4635   PROGRAM*      109/27    109/30 L
        INGEN2       4705   PROGRAM*      109/16    109/18    109/29    111/37 L
        INGEN2B      4713   PROGRAM*      111/39    111/41    111/49 L
        INGEN2C      4720   PROGRAM*      111/54    112/01 L
        INGEN2D      4721   PROGRAM*      111/47    112/05 L
        INGEN2D1     4732   PROGRAM*      112/06    112/29 L
        INGEN2D2     4743   PROGRAM*      112/27    112/52 L
        INGEN2Z      4746   PROGRAM*      111/44    111/50    111/56    113/01 L
        INGEN3       4642   PROGRAM*      109/38    109/40 L
        INGEN4       4631   PROGRAM*      109/23 L  109/28
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   203
        SYMBOLIC REFERENCE TABLE. 
  
        INGEN5       4677   PROGRAM*      110/15    110/26    110/47    111/03    111/17
                                          110/22    110/33    110/51    111/09    111/25 L
        INGEN5A      4702   PROGRAM*      111/27    111/30 L
        INGEN5B      4704   PROGRAM*      111/28    111/29    111/33 L
        INGEN6       4650   PROGRAM*      109/45    109/50 L
        INGEN7       4670   PROGRAM*      109/46    109/47    109/48    109/49    110/57 L
        INGN01       4671   PROGRAM*      110/11    110/18    111/01 L
        INGN02       4672   PROGRAM*      110/29    111/05 L
        INGN03       4674   PROGRAM*      110/36    111/11 L
        INGN04       4676   PROGRAM*      110/40    110/43    111/19 L
        INITR        7034   PROGRAM*      164/47    173/44    173/55 E  173/55 L  174/40
        INTEDVD       442   PROGRAM*       15/46 L   95/16
        INTEGER         1                   8/22 D   18/18     18/27     18/46     19/04    177/08    177/12    177/16
                                           16/14     18/20     18/40     18/50    177/05    177/09    177/13    177/17
                                           18/14     18/22     18/41     19/02    177/06    177/10    177/14    177/18
                                           18/17     18/24     18/45     19/03    177/07    177/11    177/15    177/19
        INTFTB        536   PROGRAM*       18/12 L  152/33    152/35
        INTREL        517   PROGRAM*       17/10 L   18/38     18/43
        IOEXP           0   EXTERNAL*     164/29 X  166/30 S  167/34
        IONAME          0   EXTERNAL*      45/47     48/28
        IPH2            0   EXTERNAL*     173/42
        ITFFG         402   PROGRAM*       14/40 L   68/43     68/52 S   69/45 S  174/20 S
        IXFN         6537   PROGRAM*      164/32 E  164/32 L  167/45    167/54
        IXFNCL          0   EXTERNAL*      94/35 S  164/28 X  164/48    165/36 S
        IXFNFG        401   PROGRAM*       14/39 L   48/22     56/14     83/43     92/46    164/54 S
                                           28/06     49/54     61/18     83/55     94/48    174/13 S
                                           45/41     50/10     83/02     87/51    130/50
        IXFN1        6544   PROGRAM*      164/37    164/38    164/43 L
        IXFN1A       6550   PROGRAM*      164/51    164/54 L
        IXFN1B       6555   PROGRAM*      165/08    165/10 L
        IXFN2        6566   PROGRAM*       97/54    165/33 L
        IXFN2A       6574   PROGRAM*      165/38    165/44 L
        IXFN3        6603   PROGRAM*      165/52    165/54    166/04 L
        IXFN4        6605   PROGRAM*      166/13 L  166/16
        IXFN5        6610   PROGRAM*      165/09    165/41    166/20 L
        IXFN5A       6612   PROGRAM*      166/18    166/23 L
        IXFN6        6615   PROGRAM*      166/15    166/33 L
        IXFN6A       6631   PROGRAM*      166/52    167/05    167/08 L
        IXFN6B       6640   PROGRAM*      167/03    167/06    167/11    167/21    167/23    167/27 L
        IXFN6B1      6636   PROGRAM*      167/09    167/23 L
        IXFN6C       6641   PROGRAM*      166/38    167/29 L
        IXFN6D       6620   PROGRAM*      166/34    166/40 L
        IXFN6D1      6622   PROGRAM*      166/44    166/46 L
        IXFN6D2      6630   PROGRAM*      166/46    166/48    166/50    167/05 L
        IXFN7        6643   PROGRAM*      130/51    167/28    167/34 L
        IXFN8        6645   PROGRAM*      167/35    167/39 L
        IXFN9        6646   PROGRAM*      165/42    167/37    167/41 L
        IXFN.SN      6535   PROGRAM*      164/17 L  165/10 S  165/40    166/19
        IXFN.TAB     6653   PROGRAM*       73/19     94/25    166/11    168/13 L
        IX.CAIHL       44   FTNTEXT        44/46     45/16
        IX.CAL         22   FTNTEXT        46/01    167/13
        IX.CAP         22   FTNTEXT        44/09     45/12     46/22    167/14    167/19
        IX.IHL         22   FTNTEXT        45/57
        IX.IHP          0   FTNTEXT        46/22
        IX.MCL         22   FTNTEXT        42/09
        IX.MCP         44   FTNTEXT        42/20     42/30
        IX.SUBP        66   FTNTEXT        42/14
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   204
        SYMBOLIC REFERENCE TABLE. 
  
        I.AP       200000   FTNTEXT       145/19    181/18
        I.GL       100000   FTNTEXT       160/48    181/09    184/41    187/19
        JNEXTE        437   PROGRAM*       15/40 L   75/48
        K1           7077   PROGRAM*      175/24 L  178/55 S  179/31    181/51    187/06 S
        K2           7100   PROGRAM*      175/25 L  178/10 S  179/07 S  184/53    187/30 S
        K3           7101   PROGRAM*      175/26 L  178/56 S  179/17 S  181/48 S
        LABEL.          0   EXTERNAL*      21/24 X  180/52
        LASTR        1061   PROGRAM*       19/37 L   46/30     68/28 S   73/57    112/45    126/14    174/35 S
                                           43/17     61/42     70/50     88/35    123/49    136/01
                                           45/35 S   63/24     71/12     89/48    124/08 S  136/31 S
                                           45/53     63/40 S   72/45     91/17 S  124/21    137/33
        LASTRTS      1130   PROGRAM*       24/09 L   61/44 S   63/36
        LBTS          312   PROGRAM*       13/44 L  146/22 S  146/30    146/34    146/44    147/26 S
                                          146/14 S  146/23 S  146/32 S  146/37 S  147/21 S  147/29
                                          146/15 S  146/27 S  146/33    146/39 S  147/25 S
        LDFLAG          0   EXTERNAL*      28/27    164/30 X
        LDVRB1       1452   PROGRAM*       33/45     33/51 L
        LEFRN         375   PROGRAM*       14/34 L   55/06     55/41     63/05     90/50 S
                                           49/23     55/37     62/55 S   68/14 S  174/17 S
        LELIST         34                 175/05 D  186/19    188/02
        LEVEL        2171   PROGRAM*       31/45     50/40 L
        LEVEL1       2201   PROGRAM*       50/53     51/01 L
        LIFTS1       7075   PROGRAM*      175/22 L  187/28 S  189/49
        LOGICAL         0                   8/21 D  177/23    177/24    177/25    177/26    177/27
        LORD            0   EXTERNAL*     183/19
        LORELM        162                   9/34 D    9/34    105/19    108/32
        LOWOP           7                  23/04 D   26/48     28/18     50/02     50/45     52/20     52/24     87/19
        LPAR         5120   PROGRAM*       97/04    118/06    118/24 L
        LPAR1        5136   PROGRAM*      118/33    118/56 L
        LPAR2        5130   PROGRAM*      118/37    118/42 L
        LPSUB         444   PROGRAM*       15/48 L   49/14
        LTPRN        4104   PROGRAM*       22/43     93/11 L
        LTPRN1       4107   PROGRAM*       93/13     93/16 L
        LTYPE          21                 175/03 D  186/18    188/03
        LVLERR1      2204   PROGRAM*       50/42     50/46     50/56     51/07 L   87/20
        L.ARLST         0   EXTERNAL* 
        L.BEFTB         0   EXTERNAL*      21/27 X  152/37
        L.CON           0   EXTERNAL* 
        L.CONST        22                  24/20 D  128/19
        L.CORD         16                  24/24 D  128/22
        L.DBGI         20   FTNTEXT       173/07    173/08
        L.DIF           4   FTNTEXT        32/19     36/31     49/34     56/30     87/57    124/39    171/49
        L.DIMP         14   FTNTEXT        35/51     89/20    154/28    162/31
        L.DTO          14   FTNTEXT       126/27
        L.FARG          6   FTNTEXT        65/05     69/44    139/23    170/47
        L.FCS          11                  24/16 D  126/33
        L.INFT        772   PROGRAM*       18/52 D  152/33
        L.INFTE      1056   PROGRAM*       19/29 L  152/35
        L.IOLST         0   EXTERNAL*      21/28 X   45/49     46/41 S   48/30     48/36 S
        L.LVL           2   FTNTEXT        31/40     87/11
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   205
        SYMBOLIC REFERENCE TABLE. 
  
        L.NAME         52   FTNTEXT        18/13     18/21     18/29     18/37     18/45     19/02     19/10    152/50
                                           18/14     18/22     18/30     18/38     18/46     19/03     19/11
                                           18/15     18/23     18/31     18/39     18/47     19/04     19/12
                                           18/16     18/24     18/32     18/40     18/48     19/05     19/13
                                           18/17     18/25     18/33     18/41     18/49     19/06     69/51
                                           18/18     18/26     18/34     18/42     18/50     19/07     89/11
                                           18/19     18/27     18/35     18/43     18/51     19/08    121/24
                                           18/20     18/28     18/36     18/44     19/01     19/09    126/02
        L.RA           22   FTNTEXT       152/29    152/30
        L.RO            3                  24/18 D  128/01
        L.TRO          14   FTNTEXT       183/56
        L.TTS          10                  35/25 D   36/17     39/40
        L.TYP           4   FTNTEXT        16/12     18/22     18/32     18/42     19/01     19/11     67/30    162/25
                                           18/13     18/23     18/33     18/43     19/02     19/12     70/28    169/41
                                           18/14     18/24     18/34     18/44     19/03     19/13     70/34    169/43
                                           18/15     18/25     18/35     18/45     19/04     31/32     74/22    172/45
                                           18/16     18/26     18/36     18/46     19/05     31/34     86/48    172/46
                                           18/17     18/27     18/37     18/47     19/06     32/15    107/34    172/52
                                           18/18     18/28     18/38     18/48     19/07     36/39    126/05
                                           18/19     18/29     18/39     18/49     19/08     43/34    128/28
                                           18/20     18/30     18/40     18/50     19/09     53/28    137/16
                                           18/21     18/31     18/41     18/51     19/10     63/52    142/31
        MAC           157                   9/32 D   16/37     72/19     97/09     97/27     97/51    110/19
                                            9/32     16/38     85/21     97/11     97/29    100/43    110/23
                                           16/32     16/39     85/36     97/16     97/31    100/46    110/27
                                           16/33     16/40     86/05     97/18     97/33    101/56    110/30
                                           16/34     16/41     87/32     97/20     97/45    102/07    110/34
                                           16/35     16/42     97/05     97/22     97/47    110/12    110/37
                                           16/36     16/43     97/07     97/24     97/49    110/16    133/12
        MACDES        372   PROGRAM*       14/20 L   71/56 S   72/01     72/37 S   72/39
        MACOUT       5576   PROGRAM*       27/49     60/41     68/32     75/47    106/21    133/54    141/35    144/54
                                           29/05     63/17     69/36     79/04    112/26    134/31 L  142/46    145/11
                                           29/25     67/45     70/47     90/51    112/44    136/32    143/27    157/36
                                           60/31     68/01     75/14     91/28    113/46    137/29    144/26    180/33
        MACOUT.A     5627   PROGRAM*      135/41 L  135/50
        MACOUT.B     5632   PROGRAM*      135/49    135/51 L
        MACOUT.C     5634   PROGRAM*      135/36    135/55 L
        MACOUT.D     5637   PROGRAM*      136/04    136/06 L
        MACOUT.1     5607   PROGRAM*      134/55 L  135/13
        MACOUT.2     5610   PROGRAM*      135/01 L  135/09
        MACOUT.3     5613   PROGRAM*      135/08    135/10 L
        MACOUT.4     5615   PROGRAM*      134/54    135/14 L
        MACOUT.5     5617   PROGRAM*      135/21 L  135/35
        MACOUT.6     5620   PROGRAM*      135/23 L  135/31
        MACOUT.7     5623   PROGRAM*      135/30    135/32 L
        MACOUT.8     5625   PROGRAM*      135/19    135/36 L
        MACOUT.9     5626   PROGRAM*      135/39 L  135/54
        MAC1D        5647   PROGRAM*      123/42    136/35 D
        MC           1475   PROGRAM*       35/27 L   36/23 S   39/42 S   39/57 S   41/21     41/38     42/15
        MCHMCB        152                   9/30 D   72/06    155/53    156/10    156/20    156/30    156/50
                                            9/30    155/43    155/57    156/14    156/22    156/36    157/38
                                           17/10    155/45    156/02    156/16    156/24    156/38    157/41
                                           17/11    155/47    156/08    156/18    156/28    156/48
        MCHTS         344   PROGRAM*       14/07 L  103/16 S  103/31    104/03    157/35 S  157/49
                                          103/14 S  103/22 S  103/43    157/34 S  157/48
        MCH1         6353   PROGRAM*      155/18    157/01 L
        MCH2         6356   PROGRAM*      155/19    157/05    157/07 L
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   206
        SYMBOLIC REFERENCE TABLE. 
  
        MCH3         6360   PROGRAM*      155/44    156/09    156/17    156/21    156/29    157/11 L
                                          155/54    156/11    156/19    156/23    156/31
        MCH4         6405   PROGRAM*      155/46    156/01    156/15    156/37    156/49    158/01 L
                                          155/48    156/03    156/25    156/39    156/51
        MCH5         6361   PROGRAM*      157/12 L  158/05
        MCH5A        6377   PROGRAM*      157/40    157/43 L
        MCH5B        6401   PROGRAM*      157/42    157/48 L
        MCH6         6410   PROGRAM*      157/03    158/07 L
        MCOPDA        342   PROGRAM*       14/05 L  118/12    155/12 S  157/12
        MCTYP         343   PROGRAM*       14/06 L  118/17    155/14 S  157/29
        MDCHTB       6307   PROGRAM*      155/31    155/39    155/41 L
        MDISCON      6302   PROGRAM*      155/26    155/29 L
        MD.AND        533   PROGRAM*       17/31 L   18/34
        MD.COMPL      525   PROGRAM*       17/21 L   18/37
        MD.CSFT       530   PROGRAM*       17/25 L   71/50    111/46    112/01
        MD.LOCF         0                  17/17 D   18/50
        MD.MASK       526   PROGRAM*       17/22 L   18/49
        MD.MASKC      527   PROGRAM*       17/23 L   27/40     72/31    141/24
        MD.MOD        522   PROGRAM*       17/18 L   18/20     72/47
        MD.MODP2      523   PROGRAM*       17/19 L   72/49
        MD.OR         534   PROGRAM*       17/32 L   18/35
        MD.RANF       532   PROGRAM*       17/27 L   18/51     73/09
        MD.SHIFT      524   PROGRAM*       17/20 L   18/48
        MD.XOR        535   PROGRAM*       17/33 L   18/36
        MINUS        4154   PROGRAM*       22/53     94/54 L
        MIZMC         150                   9/28 D    9/28     15/06    150/43    155/27
        MLTDOP        443   PROGRAM*       15/47 L   95/53
        MLTEOP        440   PROGRAM*       15/44 L   26/25     78/14
        MLTOP          22                   8/33 D   15/44
        MLTSOP         35                   8/34 D   15/47     95/50    114/40
        MNDBL         516   PROGRAM*       17/08 L   18/47
        MNINT         514   PROGRAM*       17/06 L   18/43     18/45
        MNREL         515   PROGRAM*       17/07 L   18/44     18/46
        MODCH        6271   PROGRAM*       50/34     85/56    118/09    155/50    156/13    156/43    157/06
                                           79/12     86/45    122/26    155/52    156/27    156/45    157/56
                                           82/19    107/44    155/10 L  155/56    156/33    156/47    158/11
                                           85/08    107/49    155/30    156/05    156/35    156/53
                                           85/15    114/20    155/42    156/07    156/41    156/55
        MOP          4462   PROGRAM*       97/28     97/50     99/54    100/12    101/07    101/25    105/05 L  116/43
                                           97/30     97/52     99/55    100/44    101/10    101/57    116/38    116/48
                                           97/48     99/53    100/09    100/49    101/11    102/11    116/41    117/23
        MOPA         4342   PROGRAM*       97/32     99/38 L
        MOPA0        4344   PROGRAM*       99/40     99/42 L
        MOPA1        4350   PROGRAM*       99/50     99/53 L
        MOPA2        4355   PROGRAM*       99/51    100/09 L
        MOPA3        4357   PROGRAM*      100/07    100/10    100/11    100/15 L
        MOPA4        4365   PROGRAM*      100/23    100/29 L
        MOPA4A       4371   PROGRAM*      100/40    100/42 L
        MOPA4B       4372   PROGRAM*      100/38    100/41    100/43 L
        MOPA5        4373   PROGRAM*      100/24    100/29    100/46 L
        MOPB         4375   PROGRAM*       97/37    100/54 L
        MOPB1        4377   PROGRAM*      100/56    101/01 L
        MOPB2        4406   PROGRAM*      101/08    101/18 L
        MOPB3        4415   PROGRAM*      101/40    101/42 L
        MOPB4        4420   PROGRAM*      101/46    101/48 L
        MOPB5        4422   PROGRAM*      101/42    101/43    101/48    101/49    101/52 L
        MOPB6        4424   PROGRAM*      101/51    102/02 L
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   207
        SYMBOLIC REFERENCE TABLE. 
  
        MOPROUND     4573   PROGRAM*      108/04 L  114/12
        MOPR1        4576   PROGRAM*      108/11 L  108/18
        MOPR2        4602   PROGRAM*      108/13    108/24 L
        MOP1         4775   PROGRAM*       25/49     76/27     99/49    105/15    113/54 L  116/17
                                           76/26     99/48    105/14    108/53    116/16
        MOP10        4537   PROGRAM*      106/18    107/01 L
        MOP11        4543   PROGRAM*      107/06    107/10 L
        MOP11A       4550   PROGRAM*      107/12    107/19 L
        MOP12        4604   PROGRAM*      108/05    108/15    108/19    108/25    108/29 L  114/14
        MOP14        4520   PROGRAM*      106/19 L  107/08
        MOP15        4615   PROGRAM*       97/46    108/49 L
        MOP17        4776   PROGRAM*      108/03    113/57 L
        MOP18        4610   PROGRAM*      101/16    108/31    108/33    108/36 L
        MOP2         4476   PROGRAM*      105/18    105/20    105/23    105/31 L
        MOP2A        4473   PROGRAM*      105/22    105/24 L
        MOP22        4756   PROGRAM*      113/17    113/22 L
        MOP24        5005   PROGRAM*      114/03    114/08    114/13 L
        MOP25        4767   PROGRAM*      113/36    113/39 L
        MOP26        4770   PROGRAM*      113/38    113/41 L
        MOP28        4525   PROGRAM*      105/36    106/31 L
        MOP29        4533   PROGRAM*      105/37    106/45 L
        MOP30        4531   PROGRAM*      106/31    106/40 L  114/05
        MOP31        4526   PROGRAM*      106/32 L  106/54
        MOP5         4571   PROGRAM*      106/35    107/23    107/31    107/40    107/54    114/22
                                          106/42    107/29    107/37    107/51    108/01 L  114/28
        MOP5A        4552   PROGRAM*      105/34    107/26 L
        MOP5B        4567   PROGRAM*      107/38    107/53 L
        MOP6         4504   PROGRAM*      105/38    105/45 L
        MOP6A        4511   PROGRAM*      105/52    105/55 L
        MOP6B        4514   PROGRAM*      106/06 L  106/37
        MOP7         5006   PROGRAM*      106/09    114/17 L
        MOP8         5011   PROGRAM*      106/28    107/18    114/25 L
        MPY.INT       223                   9/37 D    9/37     85/32     86/16    111/49
        MULTOP       4047   PROGRAM*       22/55     92/01 L
        MVARS           2                  35/05 D   35/23     35/27     38/29
        MXARGS         77                   8/41 D   13/26     58/12
        MXDBL         513   PROGRAM*       17/05 L   18/42
        MXFRSTB       132   FTNTEXT        13/39     55/52
        MXINT         511   PROGRAM*       17/03 L   18/38     18/40
        MXMNF        3216   PROGRAM*       70/01     74/21 L
        MXMNMC        335                  10/03 D   10/03     17/03     17/04     17/05     17/06     17/07     17/08
        MXMN1        3224   PROGRAM*       74/31     74/34 L
        MXMN10       3255   PROGRAM*       75/32     75/48 L
        MXMN2        3226   PROGRAM*       74/42 L   75/21
        MXMN3        3232   PROGRAM*       74/49     74/52 L
        MXMN4        3234   PROGRAM*       74/55     75/01 L
        MXMN5        3237   PROGRAM*       75/07     75/10 L
        MXMN8        3245   PROGRAM*       75/18     75/29 L
        MXOSE         240   FTNTEXT        48/38     53/38     54/05     93/17     98/06     98/37    189/53
        MXREL         512   PROGRAM*       17/04 L   18/39     18/41
        MZMC          145                   9/25 D    9/25     15/04    150/40    155/25
        MZMD          413   PROGRAM*       15/06 L   29/22    141/12
        MZZMC         146                   9/26 D    9/26     15/03    150/41
        M.AND         306                   9/57 D    9/57     17/31
        M.COMPL       310                  10/02 D   10/02     17/21
        M.COUNT       317                  10/12 D   10/12     19/02
        M.CSHFT       313                  10/09 D   10/09     17/25     17/26
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   208
        SYMBOLIC REFERENCE TABLE. 
  
        M.DMULT       325                  10/18 D   10/18     19/07
        M.EXM          10                   9/06 D    9/06     15/36
        M.FADD        331                  10/22 D   10/22     19/10
        M.FSUB        333                  10/24 D   10/24     19/12
        M.IFTHEN      330                  10/21 D   10/21     19/01
        M.MASK        311                  10/07 D   10/07     17/22
        M.MASKC       312                  10/08 D   10/08     17/23    150/44
        M.MOD         267                  10/04 D   10/04     17/18
        M.MODP2       273                  10/05 D   10/05     17/19
        M.NORM        326                  10/19 D   10/19     19/08
        M.NORMC       327                  10/20 D   10/20     19/09
        M.OR          307                  10/01 D   10/01     17/32
        M.PACK        322                  10/15 D   10/15     19/06
        M.RADD        332                  10/23 D   10/23     19/11
        M.RANF        323                  10/16 D   10/16     17/27
        M.RSUB        334                  10/25 D   10/25     19/13
        M.SFR          11                   9/07 D    9/07    146/09
        M.SHIFT       305                  10/06 D   10/06     17/20
        M.SUB         212                   9/36 D    9/36    117/22
        M.SXKXJ       324                  10/17 D   10/17     19/03
        M.UJP         105                 175/29 D  175/29    175/35
        M.UPC         321                  10/14 D   10/14     19/05
        M.UPE         320                  10/13 D   10/13     19/04
        M.XOR         316                  10/11 D   10/11     17/33
        NAME          325   PROGRAM*       13/48 L   32/18     33/32     45/08 S   87/04 S   89/18    126/20    148/32 S
                                           31/24 S   33/07     35/50     51/02     87/07 S  120/34 S  130/24 S  154/13
                                           32/13     33/27     36/28     53/23     87/55    121/52 S  137/18    154/26
                                           32/17     33/30 S   43/32     62/41 S   89/10    126/11 S  148/14 S  159/13 S
        NAMFWA          4   PROGRAM*       13/09 E   30/50 S   32/29     33/28     54/34
                                           13/09 L   31/16     33/05     52/06     81/17 S
        NANSI        1501   PROGRAM*       35/33 L   38/03 S   40/33 S   41/15 S   42/51
                                           36/20 S   40/26 S   40/38 S   41/30 S
        NARGSF          3   CLNFO          19/51 L  169/26    170/04    170/20    171/04
        NARN           64                   8/14 D   59/31     69/34     81/48 S  120/47 S  140/28    144/28    159/27 S
                                           27/43     62/47     70/36     90/39    130/07    140/35 S  157/11    180/31
                                           29/16     66/10     70/46 S   91/24    130/27 S  140/51    157/24
                                           29/20 S   66/54 S   75/01     94/06    130/46 S  141/30    157/26 S
                                           43/50     67/38     75/35    113/28    133/38    141/34 S  158/01
                                           46/35 S   67/43 S   78/45    113/41 S  133/51 S  142/41    158/04 S
                                           46/42 S   67/52     81/26    120/13    137/14    143/16    159/08
                                           59/14     67/56 S   81/41 S  120/33 S  137/28 S  144/18    159/16 S
        NCA             6   PROGRAM*       13/12 E   13/12 L   47/25 S   47/52    148/31 S  167/24    174/03 S
        NCAD            7   PROGRAM*       13/13 E   13/13 L  120/54 S  121/40 S  174/04 S
        NCHDBL        521   PROGRAM*       17/13 D   18/42     18/47
        NCHSGL        521   PROGRAM*       17/12 L   18/34     18/36     18/40     18/45
                                           17/13     18/35     18/39     18/44
        NDIMS        1463   PROGRAM*       35/11 L   36/08 S   36/49     39/34     43/01
        NEWCON       6211   PROGRAM*       71/35     76/54    101/33    106/13    109/40    149/23
                                           72/27    100/16    103/40    109/34    133/20    150/27 L
        NEWCONX      6210   PROGRAM*      150/25 L  150/38    150/40    150/41    150/43    150/51
        NEWCON1      6206   PROGRAM*      150/21 L  150/46
        NEXTE        1066   PROGRAM*       15/40     28/52     45/42     45/52     53/08     88/47    118/54
                                           22/21 L   29/12     45/44     46/06     53/53     88/53    165/24
                                           26/36     29/31     45/46     46/43     56/37     96/13    170/17
                                           27/34     29/51     45/48     48/08     61/20     98/17    173/45
                                           27/55     33/56     45/50     52/43     61/27    118/47    174/41
        NIT          1422   PROGRAM*       31/26     32/49 L
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   209
        SYMBOLIC REFERENCE TABLE. 
  
        NLABEL         60                 175/06 D  184/08    184/26
        NOINVERT        0   FTNTEXT        25/56 F  101/20 F
        NOTCON       6304   PROGRAM*      155/22    155/28    155/32 L
        NOTINAG      3470   PROGRAM*       81/45     81/49 L
        NOTINTM      3464   PROGRAM*       81/25     81/42 L
        NOTMC         161                   9/33 D    9/33     99/26
        NOTOPR       4332   PROGRAM*       97/10     99/17 L
        NOTOPR1      4340   PROGRAM*       99/20     99/29 L
        NRFD           10   PROGRAM*       13/14 E   13/14 L  121/02 S  121/08 S  121/41 S  174/05 S
        NRLN           64                   8/09 D    8/14     73/54    112/19    112/37    162/50    165/55
        NSAN         2143   PROGRAM*       36/11     49/51 L
        NSAN1        2150   PROGRAM*       49/53     49/55     50/01 L
        NSAN2        2146   PROGRAM*       49/56 L   50/04     50/07     50/09     50/17
        NSAN3        2163   PROGRAM*       50/12     50/20 L
        NSFR          370   PROGRAM*       14/18 L   78/04 S   82/39 S   98/30    118/53 S
                                           68/50 S   79/23 S   88/52 S   98/39 S  174/34 S
        NSSETUP0     2106   PROGRAM*       48/23     48/25     48/27     48/29     48/31     48/33     48/37 L
        NSSETUP1     2140   PROGRAM*       49/28     49/39     49/42 L
        N.AP            0   EXTERNAL*      62/16     64/09     65/51     90/19    127/04    181/15
        N.EQUAL         0   EXTERNAL*     172/14
        N.GL            0   EXTERNAL*     181/35    184/37    187/17
        OBR          1464   PROGRAM*       35/12 L   47/44 S   48/01
        OCTAL           5                   8/26 D   18/35     18/37     18/49     19/05     19/07
                                           18/34     18/36     18/48     19/01     19/06     19/09
        OCTHO         405   PROGRAM*       14/43 L  122/30 S  122/54
        OC.FM          40   FTNTEXT        78/40
        OC.IM         101   FTNTEXT        78/37
        OC.RFM         41   FTNTEXT        78/43
        OP             11   PROGRAM*       13/15 E   61/12     82/24     93/31 S   96/20    115/10 S  119/02
                                           13/15 L   69/56 S   83/23 S   95/04 S   96/38 S  115/41 S  120/04
                                           22/28 S   76/03     83/29 S   95/18 S   98/04    116/03    152/48
                                           49/21 S   77/53     86/35     95/32    108/38    116/30
                                           49/44     79/14     93/04 S   95/55 S  115/06    118/24
        OPDTYP        322   PROGRAM*       13/45 L  109/10 S  113/33
        OPNCN1       6444   PROGRAM*      160/09    160/10    160/12    160/23 L
        OPNCN2       6436   PROGRAM*      160/13 L  160/26
        OPNCN3       6430   PROGRAM*      160/03 L  160/21    160/35
        OPNCN4       6446   PROGRAM*      160/25    160/27 L
        OPNCON       6432   PROGRAM*      111/30    133/22    160/06 L
        OPSTAK       7621   PROGRAM*       13/04 E   28/13     53/42 S   68/55     88/14     95/33    115/19    165/19 S
                                           14/24 L   48/44 S   53/49 S   69/02     90/07     96/19    115/33    170/12 S
                                           25/43     48/45 S   54/14     76/11     91/01     96/45    118/22    170/14 S
                                           26/27     48/50 S   54/48 S   78/18 S   93/23 S   98/14 S  118/26    189/53
                                           26/33 S   48/53 S   54/52 S   84/25     94/20     98/35 S  118/48
        OPSWTB       4234   PROGRAM*       96/55     96/57 L
        OPT2            0   EXTERNAL*     142/08
        OSPTR         377   PROGRAM*       14/37 L   53/07 S   68/53     83/50     90/57     98/02    118/21
                                           25/41     53/37     69/04 S   83/52 S   93/16     98/16 S  118/25
                                           26/26     53/44 S   76/08     84/23     93/25 S  115/18    118/34
                                           28/11     54/03     76/13 S   84/30 S   94/18    115/31    118/44 S
                                           48/37     54/25 S   78/13     88/13     95/31    115/36    165/20 S
                                           48/55 S   54/46     82/07     88/18 S   96/17    115/40 S  170/16 S
                                           53/05     54/53 S   82/09 S   90/05     96/44    116/39    174/09 S
        OTS          6041   PROGRAM*       58/39     62/11     90/02    126/16    143/49 L  166/24
        OTSA         6065   PROGRAM*      144/09 S  144/11    144/34 L
        OTSB         6066   PROGRAM*      143/52 S  143/54    144/35 L
        OTS0         6037   PROGRAM*      143/45 L  144/14    144/32
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   210
        SYMBOLIC REFERENCE TABLE. 
  
        OTS1         6054   PROGRAM*      144/06    144/15 L
        OTS1A        6045   PROGRAM*      143/50    143/55 L
        OTS2         6063   PROGRAM*      144/16    144/30 L
        OUT          5470   PROGRAM*       50/35    119/08    130/05 L  166/31    167/32
        OUTUSE          0   EXTERNAL*     165/33
        OUT2         5474   PROGRAM*      130/13 L  130/37
        OUT3         5466   PROGRAM*      118/40    118/41    129/14 L
        OUT4         5506   PROGRAM*      130/19    130/38 L
        OUT6         5513   PROGRAM*      130/06    130/47 L
        O.ARLST         0   EXTERNAL* 
        O.CEP           0   EXTERNAL*     186/30
        O.CON           0   EXTERNAL*     150/45
        O.GCON          0   EXTERNAL*      21/02 X  128/31
        O.IOLST         0   EXTERNAL*      21/28 X   45/54
        O.TTS        1465   PROGRAM*       35/17 L   35/25     36/17 S   39/40 S
        PARAMS         13   PROGRAM*       13/19 L   67/54 S   74/48 S  112/41 S  134/52    140/49 S  144/21 S  179/02 S
                                           27/42 S   69/32 S   75/39 S  113/22 S  137/10 S  140/53 S  144/49 S  180/24 S
                                           27/46 S   70/08 S   78/35 S  113/23 S  137/12 S  140/55 S  144/51 S  182/09
                                           29/19 S   70/39 S   78/46 S  113/25 S  137/17 S  141/28 S  144/52 S  182/16
                                           60/28 S   70/44 S   78/50 S  113/27 S  137/25 S  141/32 S  145/08 S  182/46
                                           60/38 S   71/33 S   79/02 S  113/30 S  137/40 S  142/44 S  145/17 S  182/49 S
                                           62/50 S   71/51 S   90/44 S  113/32 S  137/42 S  142/47    157/17 S  184/20 S
                                           62/56 S   72/13    112/20 S  133/35 S  137/44 S  143/19 S  157/18 S  184/31
                                           63/11 S   72/32 S  112/23 S  133/37 S  140/30 S  143/21 S  158/03 S  186/35 S
                                           63/13 S   72/53 S  112/35 S  133/40 S  140/32 S  143/23 S  178/27 S  187/12 S
                                           67/40 S   73/12 S  112/38 S  133/43 S  140/46 S  144/20 S  178/57    187/21 S
        PARCNT          0   EXTERNAL*      45/45     48/26    164/29 X
        PARLEVEL     7603   PROGRAM*       31/04     48/16     53/20     92/08     92/38     92/47     93/33    174/23 S
        PAUSEP          0   EXTERNAL*     189/35
        PCO          1622   PROGRAM*       37/23     39/32 L
        PH2RETN         0   EXTERNAL*      21/06 X   94/45    172/50
        PIE          7147   PROGRAM*      178/05 L  178/34    178/49    186/11
        PIM          1720   PROGRAM*       39/26     42/51 L
        PIM0A        1723   PROGRAM*       42/53     42/54     42/57 L
        PIM0B        1726   PROGRAM*       43/03     43/06 L
        PIM1         1736   PROGRAM*       43/16     43/25 L
        PIM10        2026   PROGRAM*       46/21     46/29 L
        PIM2         1754   PROGRAM*       44/06     44/11 L
        PIM3         1760   PROGRAM*       44/24 L   44/40     44/42
        PIM4         1766   PROGRAM*       44/18     44/35     44/44 L
        PIM5         1771   PROGRAM*       44/54 L   45/23
        PIM6         1777   PROGRAM*       44/44     45/15 L
        PIM6A        2000   PROGRAM*       45/01     45/22 L
        PIM7         2001   PROGRAM*       44/55     45/25 L
        PIM8         2017   PROGRAM*       46/05 L   46/11
        PIM9         2021   PROGRAM*       46/11 L   46/20     46/27
        PLUS         4210   PROGRAM*       22/54     96/09 L
        PMF          1471   PROGRAM*       35/22 L   40/36     40/40 S
        POPOP        4225   PROGRAM*       96/31    114/35    114/43    114/49    115/34
                                           96/40 L  114/41    114/45    114/51
        POP1         4227   PROGRAM*       78/19     96/41     96/44 L
        PPM          1642   PROGRAM*       39/52     40/10     40/22 L   40/48
        PPM1         1646   PROGRAM*       40/25     40/29 L
        PPM2         1651   PROGRAM*       40/32     40/36 L
        PPM3         1653   PROGRAM*       40/27     40/34     40/37     40/40 L
        PRENORM      5757   PROGRAM*      141/14 L  141/21
        PRINT           0   EXTERNAL*     189/46
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   211
        SYMBOLIC REFERENCE TABLE. 
  
        PROGRAM        56                   8/08 D  186/25
        PSC          1560   PROGRAM*       37/20     37/35 L
        PSI          1574   PROGRAM*       37/21     38/22 L
        PSI1         1605   PROGRAM*       38/39     38/47 L
        PSM          1633   PROGRAM*       37/25     39/52 L
        PSM1         1637   PROGRAM*       39/54     40/03 L
        PSP          1640   PROGRAM*       37/26     40/10 L
        PSR          1615   PROGRAM*       37/22     39/15 L
        PSS          1657   PROGRAM*       37/27     41/03 L
        PSS1         1665   PROGRAM*       41/12     41/14     41/17 L
        PSS2         1672   PROGRAM*       41/03     41/29 L
        PSS3         1677   PROGRAM*       41/36     41/40 L
        PUNCH           0   EXTERNAL*     189/47
        P2TON         144                   9/24 D    9/24
        P.AC           42   FTNTEXT        32/20
        P.ASF          67   FTNTEXT        52/09     52/11     53/25    169/11    173/10
        P.BEF          52   FTNTEXT        52/13     58/18     58/20     65/29     65/31     81/08    152/27    169/12
        P.CONST        36                  24/19 D  128/20
        P.COV          15                  24/22 D  128/24    128/26
        P.DBGI         23   FTNTEXT       173/08
        P.DIF          37   FTNTEXT        36/32     36/36     49/35     56/29     87/56    124/40    126/04    171/53
        P.DIM          15   FTNTEXT        31/46     51/03    126/12    142/23    162/20    172/31
        P.DIMP         51   FTNTEXT        35/52     89/19    154/15    162/30
        P.DLT          60   FTNTEXT       183/24
        P.DTO          23   FTNTEXT       126/26
        P.EQU          14   FTNTEXT       154/27
        P.EST          65   FTNTEXT        52/30
        P.EXT          66   FTNTEXT        16/10     32/03     33/26     50/14     52/11    169/51
                                           16/11     33/10     33/33     50/16     52/13    172/52
                                           20/05     33/12     38/56     50/55     52/28    172/55
        P.FARG         56   FTNTEXT        16/11     18/19     18/27     18/35     18/43     18/51     19/08     65/13
                                           16/12     18/20     18/28     18/36     18/44     19/01     19/09    139/24
                                           18/13     18/21     18/29     18/37     18/45     19/02     19/10    139/29
                                           18/14     18/22     18/30     18/38     18/46     19/03     19/11    170/49
                                           18/15     18/23     18/31     18/39     18/47     19/04     19/12    170/57
                                           18/16     18/24     18/32     18/40     18/48     19/05     19/13
                                           18/17     18/25     18/33     18/41     18/49     19/06     65/06
                                           18/18     18/26     18/34     18/42     18/50     19/07     65/10
        P.FCALL        47   FTNTEXT        33/36    170/52    170/55
        P.FCS          36                  24/15 D  126/34    127/29
        P.FP           21   FTNTEXT        32/02     58/52    124/34    162/18    162/20    172/53
        P.FPB           0   FTNTEXT       121/19    121/21
        P.FUN          17   FTNTEXT        18/13     18/21     18/29     18/37     18/45     19/02     19/10    173/10
                                           18/14     18/22     18/30     18/38     18/46     19/03     19/11
                                           18/15     18/23     18/31     18/39     18/47     19/04     19/12
                                           18/16     18/24     18/32     18/40     18/48     19/05     19/13
                                           18/17     18/25     18/33     18/41     18/49     19/06     31/38
                                           18/18     18/26     18/34     18/42     18/50     19/07     31/46
                                           18/19     18/27     18/35     18/43     18/51     19/08     33/33
                                           18/20     18/28     18/36     18/44     19/01     19/09    170/37
        P.GCF          16                  24/23 D  128/26
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   212
        SYMBOLIC REFERENCE TABLE. 
  
        P.INF          51   FTNTEXT        18/13     18/20     18/28     18/35     18/43     18/50     19/07     32/37
                                           18/13     18/21     18/28     18/36     18/43     18/51     19/07     50/16
                                           18/14     18/21     18/29     18/36     18/44     18/51     19/08     55/01
                                           18/14     18/22     18/29     18/37     18/44     19/01     19/08     56/22
                                           18/15     18/22     18/30     18/37     18/45     19/01     19/09     58/20
                                           18/15     18/23     18/30     18/38     18/45     19/02     19/09     58/23
                                           18/16     18/23     18/31     18/38     18/46     19/02     19/10     65/10
                                           18/16     18/24     18/31     18/39     18/46     19/03     19/10     65/12
                                           18/17     18/24     18/32     18/39     18/47     19/03     19/11     65/21
                                           18/17     18/25     18/32     18/40     18/47     19/04     19/11     65/31
                                           18/18     18/25     18/33     18/40     18/48     19/04     19/12    139/29
                                           18/18     18/26     18/33     18/41     18/48     19/05     19/12    169/13
                                           18/19     18/26     18/34     18/41     18/49     19/05     19/13
                                           18/19     18/27     18/34     18/42     18/49     19/06     19/13
                                           18/20     18/27     18/35     18/42     18/50     19/06     26/56
        P.LIB          55   FTNTEXT        32/35     32/37     58/23     65/21     81/03
        P.LINK         52                  24/25 D  127/29    127/42
        P.LINKI        14                  24/21 D  127/42
        P.LOCF          4   FTNTEXT        73/47
        P.LVL           2   FTNTEXT        31/41     31/43     35/02     87/12
        P.NAME         22   FTNTEXT        18/13     18/20     18/27     18/34     18/41     18/48     19/04     19/11
                                           18/14     18/21     18/28     18/35     18/42     18/49     19/05     19/12
                                           18/15     18/22     18/29     18/36     18/43     18/50     19/06     19/13
                                           18/16     18/23     18/30     18/37     18/44     18/51     19/07     69/53
                                           18/17     18/24     18/31     18/38     18/45     19/01     19/08
                                           18/18     18/25     18/32     18/39     18/46     19/02     19/09
                                           18/19     18/26     18/33     18/40     18/47     19/03     19/10
        P.RA           23   FTNTEXT       152/29
        P.RL           45   FTNTEXT       121/21
        P.RO           33                  24/17 D  128/04
        P.RSN          65   FTNTEXT       184/12
        P.TRO          30   FTNTEXT       183/57
        P.TYP          70   FTNTEXT        16/10     18/22     18/32     18/42     19/01     19/11     71/06    142/32
                                           18/13     18/23     18/33     18/43     19/02     19/12     87/06    148/30
                                           18/14     18/24     18/34     18/44     19/03     19/13     90/33    159/12
                                           18/15     18/25     18/35     18/45     19/04     36/40    120/32    162/27
                                           18/16     18/26     18/36     18/46     19/05     39/02    121/49    162/30
                                           18/17     18/27     18/37     18/47     19/06     43/35    126/04    187/53
                                           18/18     18/28     18/38     18/48     19/07     62/25    126/26
                                           18/19     18/29     18/39     18/49     19/08     63/53    127/13
                                           18/20     18/30     18/40     18/50     19/09     64/18    130/23
                                           18/21     18/31     18/41     18/51     19/10     67/32    137/19
        P.USED         55                  24/26 D   74/03    121/56
        P.VAR          50   FTNTEXT        31/52     32/54     33/08     38/54    169/14    172/55
        RA              0                   8/02 D    8/04      8/06      8/09    175/04    175/06
                                            8/03      8/05      8/07    175/03    175/05
        RADD          246                   9/43 D    9/43     16/34    110/44
        RDIV          252                   9/47 D    9/47     16/38    110/52
        RDVDOC         34                   8/32 D  114/50    115/25
        READ            0   EXTERNAL*     189/37
        REAL            2                   8/23 D   18/16     18/28     18/43     19/11    177/07    177/12    177/17
                                           16/15     18/19     18/29     18/44     19/12    177/08    177/13    177/18
                                           16/18     18/21     18/30     18/51     19/13    177/09    177/14    177/19
                                           16/19     18/23     18/38     19/08    177/05    177/10    177/15
                                           18/13     18/26     18/39     19/10    177/06    177/11    177/16
        REFSELCT     7604   PROGRAM*       30/44     44/17    164/45 S  169/25 S  172/10 S
        REFTEMP      1460   PROGRAM*       35/08 L   44/22 S   44/32
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   213
        SYMBOLIC REFERENCE TABLE. 
  
        REFTYPE      6533   PROGRAM*       31/02     45/43     48/24    164/15 L  164/35 S  165/39    167/44
        RELINT        520   PROGRAM*       17/11 L   18/41     18/46
        REQUEST      2356   PROGRAM*       56/24 L
        RETURN          0   EXTERNAL*     189/32
        REW             0   EXTERNAL*     189/43
        RJWRP        4102   PROGRAM*       23/01     93/01 L
        RJ60MC        122                   9/13 D    9/13     15/08
        RJ60MD        415   PROGRAM*       15/08 L  145/09
        RL1            31   PROGRAM*       13/20 L   78/44     84/22 S  100/34    106/36    112/55 S  121/30    132/13
                                           45/31 S   79/06 S   85/10    101/26    106/50 S  113/01    121/54    132/17 S
                                           59/07     79/35     85/16 S  103/11    107/19    113/48 S  122/09 S  133/56 S
                                           61/36     79/55     87/33 S  103/57    107/42    114/18    122/10    136/30 S
                                           63/39 S   80/10 S   89/04    105/06    107/45 S  114/21 S  122/21    157/30
                                           74/09 S   80/28     91/22 S  105/25    109/05    115/03    122/55    157/53 S
                                           76/19     81/23 S   96/46    105/44 S  109/36    115/13 S  124/46 S  160/04 S
                                           77/10     82/02 S   99/56    105/45    111/45    117/13    125/52
                                           77/25     84/18    100/04 S  105/55    111/53    120/49    129/02 S
        RL1TS        1126   PROGRAM*       24/07 L   63/35     91/18    122/07    128/55
                                           61/40 S   89/08 S  122/05 S  125/56 S
        RL2            32   PROGRAM*       13/21 L   74/05 S   81/21 S   89/05    100/03 S  107/50 S  122/22    136/28 S
                                           29/06     76/20     81/57 S   90/52    100/17    108/49    122/27 S  148/38
                                           45/27     77/23 S   82/17     91/23 S  101/27    109/06    122/31    157/31
                                           50/32     77/26     82/20 S   91/29    103/23    109/32    122/56    157/52
                                           58/25     78/11 S   84/14     92/22    103/52    111/42    125/53    157/54 S
                                           58/29     79/10     84/20 S   94/23    104/01    111/51    129/03 S  165/44
                                           59/12 S   79/13 S   85/03     95/09    105/07    111/57    129/14    174/37 S
                                           59/24     79/36     85/09 S   95/23    105/26    113/02    131/10    178/20 S
                                           59/57     79/50     85/51     96/27    105/43 S  114/52    131/55
                                           60/47     80/05     85/57 S   96/48    105/46    115/05 S  132/07
                                           61/37     80/11 S   86/36     98/25    105/56    117/14    132/15 S
                                           62/43     80/18     86/46 S   99/03    106/22    118/23 S  133/06
                                           63/34 S   80/24     87/30     99/23    106/49 S  121/57    133/24
                                           68/33     80/29     87/37     99/57    107/47    122/11    136/27
        RL2TS        1127   PROGRAM*       24/08 E   61/41 S   63/28     91/19    128/56    167/39
                                           24/08 L   62/09     89/09 S  125/57 S  165/48 S
        RMINOC         33                   8/31 D   15/53    114/48    115/17
        RMIOP         451   PROGRAM*       15/53 L  115/37
        RMLT          250                   9/45 D    9/45     16/36    110/48
        RM.CAL         22   FTNTEXT       142/09
        RM.IHL         36   FTNTEXT       181/19
        RM.RIL         20   FTNTEXT        43/54     46/29     58/55     58/56
        RNCNT         350   PROGRAM*       14/09 L   74/38 S   74/43     75/16
        RNFIB         371   PROGRAM*       14/19 L   55/18 S   66/14
        RNMFG         403   PROGRAM*       14/41 L   70/23 S   70/48     70/53 S   71/52 S
        RNTB           46   PROGRAM*       13/33 D   60/54 S   70/03     71/29     74/34     74/52
        RNTBC          45   PROGRAM*       13/32 D   54/37 S   70/04     71/32 S   72/29 S   74/25
                                           13/33     60/48     70/15 S   71/38 S   72/54 S   75/15
                                           54/02     61/06 S   70/35     72/18 S   73/13 S  174/12 S
        ROFG          374   PROGRAM*       14/33 L  106/46 S  109/55 S  112/53 S  113/20 S  114/27 S
                                          105/40 S  109/50    111/40    113/16    114/25    174/25 S
        ROP          5052   PROGRAM*       97/15     97/17     97/19     97/21     97/23     97/25    116/03 L
        ROPFLAG         0   EXTERNAL*      78/39    101/01    101/36    108/04
        ROP1         5056   PROGRAM*      116/08    116/13 L
        ROP2         5062   PROGRAM*      116/22    116/25 L
        ROP3         5066   PROGRAM*      116/23    116/37 L
        ROP4         5074   PROGRAM*      116/47    116/53 L
        ROP5         5102   PROGRAM*      117/09    117/13 L
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   214
        SYMBOLIC REFERENCE TABLE. 
  
        ROP6         5105   PROGRAM*      117/11    117/22 L
        ROUNDTBL      474   PROGRAM*       16/32 L  108/06
        RPLST          14                   8/43 D   94/11     94/36    119/07    172/07
        RPOSO           2                   8/36 D
        RRDIV         256                   9/51 D    9/51     16/42
        RRSUB         254                   9/49 D    9/49     16/40
        RSELECT         0   EXTERNAL*     164/36    169/21    172/08
        RSFF         4213   PROGRAM*       95/01     95/05     96/15 L
        RSUB          244                   9/41 D    9/41     16/32    110/41
        RTPRN        4052   PROGRAM*       22/39     92/08 L
        RTPRN1       4066   PROGRAM*       92/16     92/33 L
        RTPRN2       4075   PROGRAM*       92/18     92/37     92/42     92/46 L
        RTPRN3       4072   PROGRAM*       92/35     92/40 L
        RTPRN4       4077   PROGRAM*       61/25     61/26     92/39     92/48     92/50 L
        R1.INP         36   FTNTEXT       143/09
        R1.RIL         20   FTNTEXT        78/57    120/56    120/57    144/04
        SARGLST      2642   PROGRAM*       63/46 L   64/21     65/39
        SARORD        333   PROGRAM*       13/53 L   35/49 S   48/56
        SAVDAN          0   PROGRAM*       13/05 E   13/05 L   42/52     50/24 S  166/33
        SAVELEFT      335   PROGRAM*       13/55 L   94/38     94/43    173/19 S  173/38 S
        SAVENARN     7605   PROGRAM*       44/07 S   46/38     81/31 S   81/46    120/15 S  120/45
        SDFINE       6452   PROGRAM*       58/47     59/41    160/46 L  160/49    161/01
        SDIMIN        331   PROGRAM*       13/51 L   36/02 S   44/13     46/53     48/57     50/21
        SDLMC         147                   9/27 D    9/27     15/05
        SDLMD         412   PROGRAM*       15/05 L  140/50
        SELIST         32                   8/06 D    8/13    165/03    165/12    167/41    169/28    178/15    188/06 S
        SETMAC        406   PROGRAM*       15/01 L  141/07    141/17
        SETMC         142                   9/22 D    9/22     15/01     77/37    150/38
        SFLPOC         36                   8/38 D   53/29
        SFLPR        5106   PROGRAM*       97/53    118/02 L
        SFLPR1       5116   PROGRAM*      118/16    118/21 L
        SFRSTB        376   PROGRAM*       14/36 L   53/45     66/04     66/20 S   98/32    159/05
                                           48/46     54/40     66/09 S   79/43    120/11    159/07 S
                                           49/17     55/50     66/18     93/20    130/05    174/11 S
        SLBMD        1064   PROGRAM*       21/34 L   72/07     72/20    113/34    133/42    157/27
        SLDMAC        414   PROGRAM*       15/07 L  137/26
        SLMACO        133                   9/19 D    9/19     15/07     58/32     66/28     89/51    122/39    168/14
        SMACD          33   PROGRAM*       13/22 L   85/38 S   87/35 S  105/05 S  108/29    113/42    114/13 S
                                           85/23 S   86/07 S   98/50 S  108/09    109/19    114/01    116/26 S
                                           85/34 S   86/18 S  101/15 S  108/27 S  111/37    114/10 S  116/28
        SNGLR        6225   PROGRAM*       99/02     99/04     99/21    151/05 L  151/11    151/19    151/23
        SNGLR1       6231   PROGRAM*      151/10    151/12 L
        SPARLEV       334   PROGRAM*       13/54 L   49/11     88/30    174/24 S
        SPCON        5673   PROGRAM*      138/07 L  138/18    138/21    141/15    141/22
        SSERR1       2364   PROGRAM*       25/04     25/05     57/02 L
        SSERR2       2365   PROGRAM*       22/46     57/03 L
        SSERR3       2370   PROGRAM*       36/16     53/19     57/13     57/17     57/20     83/05     93/11    165/11
                                           39/32     57/09 L   57/14     57/18     57/25     83/26     94/02    169/31
        SSERR4       2377   PROGRAM*       22/44     22/45     57/25 L
        SSERR5       2401   PROGRAM*       22/47     22/48     22/49     22/50     22/51     22/52     57/06     57/28 L
        SSERR6       2406   PROGRAM*       40/23     57/42     57/46     94/54     96/09
                                           57/39 L   57/43     92/01     95/19
        SSERR7       2412   PROGRAM*       22/57     57/46 L
        SSFRSTB        44   PROGRAM*       13/31 D   54/42 S   66/03     82/12 S   90/17 S
                                           13/32     55/26 S   68/46     90/08    170/03 S
        SSP0         1543   PROGRAM*       37/03 L   39/08     40/01     40/11     41/49
                                           37/37     39/45     40/04     41/27
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   215
        SYMBOLIC REFERENCE TABLE. 
  
        SSP01        1550   PROGRAM*       37/14     37/17 L
        SSP.JT       1551   PROGRAM*       37/17     37/18 L
        SSP.NS       2072   PROGRAM*       37/12     38/24     38/52     39/05     39/37     41/06     48/15 L
                                           38/02     38/31     38/53     39/19     39/55     41/25
                                           38/09     38/41     38/57     39/20     41/04     41/43
        SSP.NS1      2073   PROGRAM*       43/12     47/39     47/42     48/16 L
        SSSFRSTB      277   PROGRAM*       13/40 L   90/12 S   90/15
        SSSXA           6                   9/05 D    9/05     59/42    168/16
        STALR        6017   PROGRAM*       59/38    143/04 L  143/34
        STALR1       6024   PROGRAM*      143/11    143/13 L
        STAPL         365   PROGRAM*       14/15 L   90/24 S   90/35    127/03 S  127/15
        STAPLC         43   PROGRAM*       13/29 E   13/31     65/50     90/38 S  127/19 S  170/05 S
                                           13/30 D   54/32 S   90/20    126/56    143/28    174/18 S
        STBASE       1057   PROGRAM*       19/34 L   68/49 S   79/24 S   88/51 S   98/40 S  174/33 S
                                           30/09 S   78/05 S   82/40 S   98/23    118/51 S
        STCON        5752   PROGRAM*       29/46     85/20     86/04    141/06 L  160/30
                                           77/24     85/31     86/15    141/42
        STLMAC          4                   9/04 D   43/51    121/05    123/20    168/16
                                            9/04     58/34    122/43    167/08
        STOPP           0   EXTERNAL*     189/34
        STRCK        5346   PROGRAM*      124/44    125/51 L  129/05
        STRCK0.      5361   PROGRAM*      126/13    126/20 L
        STRCK1.      5372   PROGRAM*      126/41 L  128/07    128/09
        STRCK2.      5400   PROGRAM*      126/55 L  128/45    128/52    129/11
        STRCK3.      5416   PROGRAM*      126/36    127/29 L
        STRCK4.      5431   PROGRAM*      127/28    127/41    127/57 L
        STRCK5.      5451   PROGRAM*      128/36    128/37    128/40 L
        STRCK6.      5454   PROGRAM*      128/27    128/46 L
        STRCK7.      5457   PROGRAM*      127/20    127/23    127/46    128/53 L
        STRCK8.      5423   PROGRAM*      127/33    127/42 L  128/54
        STRCK9.      5464   PROGRAM*      128/25    129/06 L
        STRIP        6514   PROGRAM*       61/57     89/13    128/13    163/14 L  163/34    163/41
                                           63/56    126/44    163/14 E  163/27    163/40 S
        STRIP0       6520   PROGRAM*      163/21 L  163/30
        STRIP1       6523   PROGRAM*      163/23    163/28 L
        STRIP2       6524   PROGRAM*      163/25    163/31 L
        STSORD          0   STSORD         19/46 L   55/40     62/29    143/46    144/43    146/11    146/42 S
        ST.             0   EXTERNAL*      21/17 X   66/39    130/31    144/44    159/20
                                           62/34    120/36    143/45    146/16    167/36
        SUBFWA          0   CLNFO          19/48 L  169/57 S  170/35    170/45    171/51
        SUBH            1   CLNFO          19/49 L  169/56 S
        SUBNAME         4   CLNFO          19/52 L  169/34
        SUBPO        3651   PROGRAM*       86/35 L   97/40
        SUBP3        3655   PROGRAM*       86/39     86/41 L
        SUBP4        3660   PROGRAM*       86/44     86/47 L
        SUBP4A       3674   PROGRAM*       87/15     87/21 L
        SUBP5        3677   PROGRAM*       87/25     87/27 L
        SUBP6        3704   PROGRAM*       87/26     87/37 L
        SUBP7        3712   PROGRAM*       87/42     87/48 L
        SUBP7.       3722   PROGRAM*       87/50     87/52     88/05     88/07 L
        SUBP8        3741   PROGRAM*       88/33     88/40 L
        SUBRLP        452   PROGRAM*       15/54 L  170/07
        SVRL2          34   PROGRAM*       13/23 L   87/40 S   88/07     90/55 S  106/02 S
        SXTAMC        143                   9/23 D    9/23     59/21    168/14    168/15
        SYMBOL          0   EXTERNAL*      21/07 X   38/34     64/16     80/54    127/11    172/19    187/51
                                           30/13     62/23     73/02     90/31    169/34    181/11
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   216
        SYMBOLIC REFERENCE TABLE. 
  
        SYM1           12                   8/03 D   49/30     69/29     86/55    124/31    148/05    162/08    167/46
                                           44/48     65/47     73/41    121/11    142/18    160/50    162/55    183/20
        TALARR       3721   PROGRAM*       87/54     88/04     88/06 L
        TARLPT       1457   PROGRAM*       35/07 L   36/53 S   39/22     42/13     45/26
        TEP          1462   PROGRAM*       35/10 L   36/13 S   37/03     40/29     41/07     41/44     43/09     48/05
        TERM         1500   PROGRAM*       35/32 L   36/19 S   39/15     39/33     42/11     42/57     43/25
        TEST            0   FTNTEXT        10/26 F   19/14 F
        TM3          5013   PROGRAM*       96/26    114/32 L
        TM3A         5043   PROGRAM*      114/34    115/29 L
        TM3A2        5046   PROGRAM*      115/30    115/35 L
        TM3B         5023   PROGRAM*       95/48    114/37    114/48 L
        TM3C         5020   PROGRAM*      114/39    114/42 L
        TM3D         5041   PROGRAM*      115/16    115/23 L
        TM3E         5037   PROGRAM*      115/18 L  115/26
        TRACEL          0   EXTERNAL*      21/23 X  178/11
        TRCFLG       1132   PROGRAM*       24/12 L  171/13 S  178/14 S  180/44    184/24    186/16
                                          116/42    171/28    180/18    183/54    184/35    187/41
        TSMAC         435   PROGRAM*       15/34 L  143/25    144/53
        TSMACC        127                   9/16 D    9/16     15/34    163/03
        TS1           302   PROGRAM*       13/43 L   60/29     65/38 S  120/19 S  126/42    127/45 S  130/11 S  171/22
                                           59/55 S   60/33     65/40    120/43    127/16    127/53 S  130/12 S
                                           60/03 S   60/36     76/45 S  121/45    127/21    127/56 S  130/16 S
                                           60/11     60/39     86/53 S  126/07 S  127/24    128/03 S  130/36
                                           60/13 S   61/55 S   87/29 S  126/09 S  127/32 S  128/11    130/39
                                           60/23 S   62/35    114/56 S  126/38 S  127/37 S  128/18    130/44
                                           60/26     63/03    115/12    126/40 S  127/40 S  128/53    171/19 S
        TYADR         332   PROGRAM*       13/52 L   32/33 S   32/41 S   54/29     69/23 S   70/16    139/45
        TYPE           24                   8/05 D   92/33     94/33    118/35    172/06    189/52 S
                                           25/32     94/09    116/44    119/06    188/07 S
        TYPECLL         0   EXTERNAL*     171/18 S
        TYPEFG          0   EXTERNAL*     164/29 X  165/50 S  166/49
        TYPEWD        323   PROGRAM*       13/46 L   29/47    105/33 S  107/02    108/01    111/25    160/23
                                           26/40 S   74/24 S  106/05 S  107/32    108/35 S  113/45    160/31
                                           27/31     74/45    106/20    107/41 S  108/36    114/17    165/27 S
                                           29/04     75/40    106/34 S  107/46    109/13 S  133/18 S
                                           29/21    101/14 S  106/41 S  107/55 S  109/43    160/18
        TYPEXT          2                  16/10 D   16/12
        T.CGS          14   FTNTEXT        16/12     20/04     62/24     64/17     67/34     90/32    127/12    187/52
        T.CPLX          4   FTNTEXT         8/25     27/21     61/51     77/46     99/46    116/21    133/45    165/53
                                           25/50     59/28     67/50     81/35    101/09    122/17    137/22    179/21
                                           26/23     60/20     70/41     84/31    105/21    128/35    151/09    182/32
                                           27/11     60/57     73/50     87/24    113/37    133/15    165/25
        T.DBL           3   FTNTEXT         8/24     59/27     67/48     81/33    106/32    133/14    162/29
                                           27/09     60/18     70/37     87/09    113/35    133/44    165/51
                                           27/19     60/56     73/51     99/43    114/06    137/21
                                           36/42     61/50     74/26    101/24    128/34    151/08
        T.ENT          12   FTNTEXT       169/46
        T.HOL           6   FTNTEXT        25/21     25/39     27/13     27/17     29/41    103/27    103/55    140/14
        T.ILL           5   FTNTEXT       169/44    173/01
        T.INT           1   FTNTEXT         8/22     50/33     85/12     85/53     87/34     96/29    106/40    141/29
                                           29/34     76/28     85/22     86/06     92/24    103/25    112/25    179/45
                                           37/56     78/36     85/33     86/17     95/12    103/49    112/43    183/37
                                           39/03     85/05     85/37     86/42     95/25    106/17    113/57    186/44
        T.LOG           0   FTNTEXT         8/21     98/52    105/12    108/34    116/14    179/28
                                           25/48     99/19    105/13    108/52    155/17    181/46
1       ARITH -     ARITHMETIC STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.13.      PAGE   217
        SYMBOLIC REFERENCE TABLE. 
  
        T.OCT           5   FTNTEXT         8/26     37/57     95/29    103/26    107/39    118/15    179/43
                                           29/39     76/24     99/06    103/51    107/53    140/12
                                           31/35     95/13     99/24    105/35    114/04    151/13
        T.REAL          2   FTNTEXT         8/23     77/27    100/18    105/50    108/02    120/30    160/24
                                           76/47     79/11    101/04    107/05    109/44    130/22    179/25
                                           77/11     82/18    102/05    107/16    111/26    155/29    182/38
        UDATA.          0   EXTERNAL*     165/33
        UINGEN       5544   PROGRAM*       99/29    108/54    122/52    133/05 L  133/23    133/57
        UINGN1       5572   PROGRAM*      133/47    133/51 L
        UINGN2       5570   PROGRAM*      133/46    133/48 L
        UINGN3       5556   PROGRAM*      133/10    133/13    133/16    133/17    133/24 L
        UJPM         7106   PROGRAM*      175/35 L  181/01 S  181/05    181/30
        UMIOP         441   PROGRAM*       15/45 L   95/02
        UMOP           32                   8/35 D   15/45    114/32
        USASCT         25                  25/36 D   42/55 D   50/18 D   80/45 D   99/05 D  105/24 D  122/20 D  181/42 D
                                           25/36     43/04     76/07     82/16     99/22    105/54    170/39
                                           25/36 D   43/04 D   76/07 D   82/16 D   99/22 D  105/54 D  170/39 D
                                           33/38     48/15     79/09     94/17    100/42    116/27    179/23
                                           33/38 D   48/15 D   79/09 D   94/17 D  100/42 D  116/27 D  179/23 D
                                           42/55     50/18     80/45     99/05    105/24    122/20    181/42
        USASDM       7574   PROGRAM*       25/36     43/04     76/07     82/16     99/22    105/54    170/39    189/53 L
                                           33/38     48/15     79/09     94/17    100/42    116/27    179/23
                                           42/55     50/18     80/45     99/05    105/24    122/20    181/42
        USASDMX      7573   PROGRAM*      189/53 L  189/53
        USASER          0   EXTERNAL*      25/36 D  189/53
        VALUE.          0   EXTERNAL*      21/02 X   30/37     38/40    172/23
        VAR          1472   PROGRAM*       35/23 L   39/07 S   42/18
        VARDIM          0   EXTERNAL*     162/05
        VARS         1474   PROGRAM*       35/24 L   38/22     39/06     39/56     41/17     41/37
        VCA           341   PROGRAM*       14/04 L   33/46 S   33/49 S   33/51
        VR3          1446   PROGRAM*       31/55     32/57     33/14     33/44 L   49/57     50/15     50/19     50/27
        VR4          1425   PROGRAM*       32/01     33/05 L
        V.COM       40000   FTNTEXT        73/03
        V.DEF      200000   FTNTEXT       160/55    167/51    173/34
        V.DIM       20000   FTNTEXT        38/47
        V.FUN      100000   FTNTEXT        38/47     81/12    173/04
        V.LEV3         14                  35/03 D   38/48
        WB.EXP        453   PROGRAM*       16/12 L   73/06     80/55
        WLABM           0   EXTERNAL*     181/10    189/50
        WLSTR        1133   PROGRAM*       24/13 L  121/38    129/04 S  173/57 S
        WRITE           0   EXTERNAL*     189/38
        WRM             0   EXTERNAL*     162/53    181/04    181/29    181/30
        WTW=            0   EXTERNAL*      66/56     67/22    146/44    147/28
        WWC             0   EXTERNAL*     162/49
        XFLP           37                   8/39 D   28/12    165/16
        XMIT          430   PROGRAM*       15/23 L   62/57     63/10    112/15    144/25
        XMITOP        135                   9/20 D    9/20     15/23     15/24     66/31    122/47
        XPNMT         454   PROGRAM*       16/14 L   80/38
        ZRMD          411   PROGRAM*       15/04 L   29/24    141/10
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      226              IDENT  ASFPRO 
                        226                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=ASFPR          0+           ASFDEF           5+           ASFREF         131+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ERPRO     IDORDL    FWAWORK   O.ASF     L.SCR     FATALER   ALLOC 
                                        RSELECT   NAMFWA    LWAWORK   L.ASF     ALLAE     ADDREF    Z.ASF 
                                        PH2RETN   PSYM      S.SCR     O.SCR     Z.SCR     MVE=
  
  
  
  
                                                  IDENT  ASFPRO                                                  ASFPRO      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                        ***                                                                      ASFPRO      5
                                        *         ASFPRO - ASF DEFINITION AND REFERENCE PROCESSING               ASFPRO      6
                                        *                                                                        ASFPRO      7
                                                                                                                 ASFPRO      8
             0                           B=ASFPR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     ASFPRO      9
                                                  EXT    ERPRO,RSELECT,PH2RETN,IDORDL,NAMFWA,PSYM,RSELECT        ASFPRO     10
                                                  EXT    FWAWORK,LWAWORK,S.SCR                                   ASFPRO     11
                                                  TABLES ASF,SCR                                                 ASFPRO     12
                                                                                                                 ASFPRO     13
                                  32     SELIST   EQU    32B                                                     ASFPRO     14
                                  34     LELIST   EQU    34B               FWA OF STMT FOLLOWING LOGICAL IF      ASFPRO     15
                                                                                                                 ASFPRO     16
                                  77     EL.PC    EQU    77B               E-LIST PARAMETER CODE                 ASFPRO     17
                                  77     M.FP     EQU    63                MAX NUMBER OF ARGS IN AN ASF DEFINITI ASFPRO     18
                                                                                                                 ASFPRO     19
                                2006     LEFT(    EQU    2000B+EL.(                                              ASFPRO     20
                                2002     RIGHT(   EQU    2000B+EL.)                                              ASFPRO     21
                                                                                                                 ASFPRO     22
                                        *         ERROR NUMBERS                                                  ASFPRO     23
                                                                                                                 ASFPRO     24
                                  62     E.DDP    EQU    50                DOUBLY DEFINED PARAMETER              ASFPRO     25
                                  63     E.TMP    EQU    51                TOO MANY PARAMETERS                   ASFPRO     26
                                  64     E.PLE    EQU    52                ASF PARAMETER LIST ERROR              ASFPRO     27
                                  65     E.RSE    EQU    53                MEMORY OVERFLOW ON ASF EXPANSION      ASFPRO     28
                                 330     E.BADA   EQU    216               BAD STMT FUNCTION ARG                 ASFPRO     29
                                                                                                                 ASFPRO     30
                                  77     E.UBP    EQU    63                UNBALENCED PARENS                     ASFPRO     31
                                 100     E.UML    EQU    64                N.ACT PARAMS .NE. N.PARAMS IN DEF     ASFPRO     32
                                 307     E.EAP    EQU    199               EMPTY ACTUAL PARAMETER                ASFPRO     33
                                                                                                                 ASFPRO     34
                                        *         LOCAL STORAGE                                                  ASFPRO     35
                                                                                                                 ASFPRO     36
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     2
  
  
             0                     4     ASFT     BSS    4                 TEMPORARY STORAGE FOR ASFPRO          ASFPRO     37
                                                                                                                 ASFPRO     38
                                   0 +   WORDB    EQU    ASFT              SYMTAB ADDRESS OF WORD B OF ASF NAME  ASFPRO     39
                                   1 +   N.PAR    EQU    ASFT+1            NUMBER OF PARAMS                      ASFPRO     40
                                   2 +   FWA      EQU    ASFT+2            FWA AND LENGTH OF TEXT OF ASF DEF     ASFPRO     41
                                   2 +   CLEN     EQU    ASFT+2            LENGTH AND NUMBER OF CONSTANTS IN DEF ASFPRO     42
                                                                                                                 ASFPRO     43
                                   0 +   IASF     EQU    ASFT              INDEX TO ASF DEF IN ASFTAB            ASFPRO     44
                                   2 +   O.REM    EQU    ASFT+2            FWA OF REMAINDER OF STMT              ASFPRO     45
                                   3 +   L.REM    EQU    O.REM+1           LENGTH                                ASFPRO     46
                                                                                                                 ASFPRO     47
             4  14400000000000000000     DMASK    DATA   144BS51           MASK FOR ( ) , DELIMITERS             ASFPRO     48
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     3
         MACROS TO SCAN THE E-LIST
  
             5                           PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                      PARSEM      3
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     4
         ASFDEF - PROCESS ASF DEFINITION
  
                                        ***                                                                      ASFPRO     51
                                        *         ASFDEF- PROCESS ASF DEFINITION                                 ASFPRO     52
                                        *                                                                        ASFPRO     53
                                        *         SAVES RIGHT HAND SIDE OF ASF STMT IN ASFTAB                    ASFPRO     54
                                        *         IN E-LIST FORMAT WITH DUMMY PARAMETERS REPLACED BY             ASFPRO     55
                                        *         SUBSTITUTION FLAGS OF THE FORM:  12/2000B+EL.PC,48/PARAM NUM   ASFPRO     56
                                        *         AND ALL CONSTANTS APPEARING IN THE DEFINITION ARE MOVED        ASFPRO     57
                                        *         FROM CONSTOR AREA TO ASFTAB, ABOVE THE DEFINITION.             ASFPRO     58
                                        *                                                                        ASFPRO     59
                                        *         THE NUMBER OF PARAMETERS AND AN INDEX TO ASFTAB ARE            ASFPRO     60
                                        *         PLACED IN WORD B OF THE SYMTAB ENTRY FOR THE ASF NAME.         ASFPRO     61
                                        *                                                                        ASFPRO     62
                                                                                                                 ASFPRO     63
                                                  ENTRY  ASFDEF                                                  ASFPRO     64
             5  76610                    ASFDEF   SX6    B1                                                      ASFPRO     65
                     74720                        SX7    A2                                                      ASFPRO     66
                          5160000000 X            SA6    IDORDL            SYMORD                                ASFPRO     67
             6  5170000000 +                      SA7    WORDB             ADDRESS OF WORD B                     ASFPRO     68
                          6130000003              SB3    EL.COMMA                                                ASFPRO     69
             7  5150000032                        SA5    SELIST                                                  ASFPRO     70
                          5245777776              SA4    X5-1                                                    ASFPRO     71
            10  66400                             SB4    B0                N.PAR = 0                             ASFPRO     72
                     65645                        SB6    A4-B5             B6 = FWA OF PARAM LIST                ASFPRO     73
                                                                                                                 ASFPRO     74
                                        *         SYNTAX CHECK ARG LIST                                          ASFPRO     75
                                                                                                                 ASFPRO     76
            11  55445                    ASFD1    NEXTE                                                          ASFPRO     77
                          0525000111 +            IF.NE  NAME,ASF.E1       IF NOT A NAME                         ASFPRO     78
            12  66445                             SB4    B4+B5             N.PAR = N.PAR+1                       ASFPRO     79
                     55445                        NEXTE                                                          ASFPRO     80
            13  0423000011 +                      EQ     B2,B3,ASFD1       LOOP IF A ,                           ASFPRO     81
                                                                                                                 ASFPRO     82
                          6130000002              IF.NE  EL.),ASF.E1       IF NO )                               ASFPRO     83
                          55445                   NEXTE                                                          ASFPRO     84
            15  6130000005                        IF.NE  EL.=,ASF.E1       IF NO = S                             ASFPRO     85
            16  65745                             SB7    A4-B5             B7 = FWA OF TEXT                      ASFPRO     86
                                                                                                                 ASFPRO     87
                     76640                        SX6    B4                                                      ASFPRO     88
                          5160000001 +            SA6    N.PAR             SAVE NUMBER OF PARAMS                 ASFPRO     89
            17  7276777677                        SX7    X6-M.FP-1                                               ASFPRO     90
                          0327000112 +            PL     X7,ASF.E2         IF TOO MANY PARAMS                    ASFPRO     91
                                                                                                                 ASFPRO     92
                                        *         REPLACE ALL REFERENCES TO PARAMETERS WITH SUBSTITUTION FLAGS   ASFPRO     93
                                        *         CHECK FOR DOUBLY DEFINED PARAMETERS                            ASFPRO     94
                                                                                                                 ASFPRO     95
            20  76050                             SX0    B5                PARAMETER ORDINAL                     ASFPRO     96
                     6110000077                   SB1    EL.PC                                                   ASFPRO     97
                               67404              SB4    -B4               -N.PAR                                ASFPRO     98
            21  27710                             PX7    B1,X0             SUBSTITUTION FLAG                     ASFPRO     99
                     6130000004                   SB3    EL.EOS                                                  ASFPRO    100
                                                                                                                 ASFPRO    101
            22  56360                    ASFD2    SA3    B6                PARAMETER                             ASFPRO    102
                     6166777775                   SB6    B6-2                                                    ASFPRO    103
                               56460              SA4    B6                FIRST ITEM OF INTEREST                ASFPRO    104
            23  26124                             UX1    B2,X4                                                   ASFPRO    105
                     66445                        SB4    B4+B5             DECREMENT NUMBER OF ARGS TO GO        ASFPRO    106
                                                                                                                 ASFPRO    107
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     5
         ASFDEF - PROCESS ASF DEFINITION
  
            24  0423000031 +             ASFD3    EQ     B2,B3,ASFD4       IF EOS                                ASFPRO    108
                          37234                   IX2    X3-X4             PARAM - ELIST                         ASFPRO    109
                               55445              NEXTE                                                          ASFPRO    110
                     0312000024 +                 NZ     X2,ASFD3          IF NO MATCH                           ASFPRO    111
            26  0652000113 +                      LE     B2,B5,ASF.E3      IF DUMMY ARG FOLLOWED BY CON OR NAME  ASFPRO    112
                                                                                                                 ASFPRO    113
                          65147                   SB1    A4-B7                                                   ASFPRO    114
            27  0610000115 +                      PL     B1,ASF.E4         IF DOUBLY DEFINED PARAMETER           ASFPRO    115
                          54745                   SA7    A4+B5             REPLACE WITH PARAMETER MARKER         ASFPRO    116
            30  0400000024 +                      EQ     ASFD3                                                   ASFPRO    117
                                                                                                                 ASFPRO    118
            31  75647                    ASFD4    SX6    A4-B7                                                   FCC0396    21
                     0306000117 +                 ZR     X6,ASF.E5         IF FWA OF TEXT = EOS (I.E., NO TEXT). FCC0396    22
                               36770              IX7    X7+X0             ADVANCE SUBSTITUTION FLAG ORDINAL     FCC0396    23
            32  0740000022 +                      MI     B4,ASFD2          IF NOT FINISHED.                      FCC0396    24
                                                                                                                 ASFPRO    121
                                        *         SCAN TEXT AGAIN TO FIND FORMAL PARAMS THAT ARE SURROUNDED BY   ASFPRO    122
                                        *         PARENS OR COMMA AND MARK THEM SPECIALLY ( EL.PCS = EL.PC+1 )   ASFPRO    123
                                        *         SO WE DO NOT SURROUND THE ACTUAL ARGS WITH REDUNDANT PARENS    ASFPRO    124
                                        *         DURING EXPANSION                                               ASFPRO    125
                                                                                                                 ASFPRO    126
                          56460                   SA4    B6                INTIIALIZE SCAN                       ASFPRO    127
            33  5120000004 +                      SA2    DMASK             DELIMTER MASK FOR ( ) AND ,           ASFPRO    128
                          66725                   SB7    B2+B5             EL.PCS = EL.PC+1                      ASFPRO    129
            34  6110000077                        SB1    EL.PC                                                   ASFPRO    130
                          66715                   SB7    B1+B5             EL.PCS = EL.PC+1                      ASFPRO    131
            35  55445                    ASFD4A   NEXTE                                                          ASFPRO    132
                          0423000042 +            EQ     B2,B3,ASFD4B      IF EOS                                ASFPRO    133
            36  0521000035 +                      NE     B2,B1,ASFD4A      IF NOT A DUMMY ARG                    ASFPRO    134
                          54345                   SA3    A4+B5             LASTE                                 ASFPRO    135
                               26123              UX1    B2,X3                                                   ASFPRO    136
            37  22022                             LX0    B2,X2                                                   ASFPRO    137
                     0320000035 +                 PL     X0,ASFD4A         IF NOT ( ) OR ,                       ASFPRO    138
                               55345              SA3    A4-B5             NEXTE                                 ASFPRO    139
            40  26123                             UX1    B2,X3                                                   ASFPRO    140
                     22022                        LX0    B2,X2                                                   ASFPRO    141
                          0320000035 +            PL     X0,ASFD4A         IF NOT ( ) OR ,                       ASFPRO    142
            41  27674                             PX6    B7,X4                                                   ASFPRO    143
                     54640                        SA6    A4                UPDATE PARAM REFERENCE                ASFPRO    144
                          0400000035 +            EQ     ASFD4A                                                  ASFPRO    145
                                                                                                                 ASFPRO    146
                                        *         MOVE TEXT TO ASF AREA                                          ASFPRO    147
                                                                                                                 ASFPRO    148
            42  74640                    ASFD4B   SX6    A4                FWA OF TEXT ( EOS )                   ASFPRO    149
                     76060                        SX0    B6                LWA+1 ( = )                           ASFPRO    150
                          37706                   IX7    X0-X6                                                   ASFPRO    151
            43  5160000002 +                      SA6    FWA                                                     ASFPRO    152
                          54765                   SA7    A6+B5                                                   ASFPRO    153
                               10577              ALLOC  ASF,X7            GET SPACE                             ASFPRO    154
            45  5130000000 X                      SA3    O.ASF                                                   ASFPRO    155
                          5140000000 X            SA4    L.ASF                                                   ASFPRO    156
            46  5120000002 +                      SA2    FWA                                                     ASFPRO    157
                          54125                   SA1    A2+B5             LENGTH                                ASFPRO    158
                               36334              IX3    X3+X4             DESTINATION ADDRESS                   ASFPRO    159
            47  36714                             IX7    X1+X4                                                   ASFPRO    160
                     54740                        SA7    A4                UPDATE ASFTAB LENGTH                  ASFPRO    161
                          20723                   LX7    P.RA                                                    ASFPRO    162
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     6
         ASFDEF - PROCESS ASF DEFINITION
  
            50  5150000001 +                      SA5    N.PAR                                                   ASFPRO    163
                          20556                   LX5    P.FARG                                                  ASFPRO    164
                               12757              BX7    X5+X7                                                   ASFPRO    165
            51  5150000000 +                      SA5    WORDB                                                   ASFPRO    166
                          53450                   SA4    X5                WORD B OF ASF ENTRY                   ASFPRO    167
                               12774              BX7    X7+X4             SAVE NUMBER OF ARGS AND INDEX         ASFPRO    168
            52  54740                             SA7    A4                TO ASFTAB IN WORD B                   ASFPRO    169
                     6110000001                   MOVE   X1,X2,X3    TEXT TO ASF AREA                            ASFPRO    170
                                                                                                                 ASFPRO    171
                                        *         MOVE NON LOGICAL CONSTANTS IN ASF DEFINITION TO ASFTAB         ASFPRO    172
                                                                                                                 ASFPRO    173
                                        *         PHASE 1 - DETERMINE HOW MUCH SPACE WE NEED AND BUILD A         ASFPRO    174
                                        *         TEMPORARY TABLE WHICH OVERLAYS THE E-LIST.                     ASFPRO    175
                                        *         FORMAT:  12/2000B+WC,48/ASFTAB ORD OF CONSTOR ENTRY            ASFPRO    176
                                                                                                                 ASFPRO    177
            54  5110000000 X                      SA1    O.ASF                                                   ASFPRO    178
                          5120000000 X            SA2    L.ASF                                                   ASFPRO    179
            55  5150000032                        SA5    SELIST                                                  ASFPRO    180
                          6130000004              SB3    EL.EOS                                                  ASFPRO    181
            56  63750                             SB7    X5                B7 = FWA OF TEMP TBL                  ASFPRO    182
                     66600                        SB6    B0                B6 = LENGTH                           ASFPRO    183
                          53010                   SA0    X1                                                      ASFPRO    184
                               63420              SB4    X2                B4 = INDEX TO ASFTAB                  ASFPRO    185
            57  43700                             MX7    0                 WC = 0                                ASFPRO    186
                     7110000012                   SX1    10                                                      ASFPRO    187
                               27101              PX1    X1                                                      ASFPRO    188
            60  24101                             NX1    X1                X1 = 10.                              ASFPRO    189
                     43012                        MX0    10                                                      ASFPRO    190
                          20034                   LX0    10+18             X0 = MASK FOR CHAR COUNT              ASFPRO    191
                                                                                                                 ASFPRO    192
            61  67445                    ASFD5    SB4    B4-B5                                                   ASFPRO    193
                     54404                        SA4    A0+B4             ASFTAB ENTRY                          ASFPRO    194
                          26624                   UX6    B2,X4                                                   ASFPRO    195
                               11504              BX5    X0*X4                                                   ASFPRO    196
            62  0423000070 +                      EQ     B2,B3,ASFD6       IF EOS                                ASFPRO    197
                          0520000061 +            NZ     B2,ASFD5          IF NOT A CONSTANT                     ASFPRO    198
            63  0305000061 +                      ZR     X5,ASFD5          IF A LOGICAL CON ( N = 0 )            ASFPRO    199
                                                                                                                 ASFPRO    200
                          21522                   AX5    18                                                      ASFPRO    201
            64  7265000011                        SX6    X5+9                                                    ASFPRO    202
                          27406                   PX4    X6                                                      ASFPRO    203
                               44341              FX3    X4/X1             (N+9)/10                              ASFPRO    204
            65  26213                             UX2    X3,B1                                                   ASFPRO    205
                     22612                        LX6    B1,X2             WC                                    ASFPRO    206
                          63260                   SB2    X6                                                      ASFPRO    207
                               36767              IX7    X6+X7             ADVANCE SUM                           ASFPRO    208
            66  76240                             SX2    B4                                                      ASFPRO    209
                     27622                        PX6    B2,X2                                                   ASFPRO    210
                          57676                   SA6    B7-B6             STORE ENTRY IN TEMP TBL               ASFPRO    211
                               66665              SB6    B6+B5             LEN = LEN+1                           ASFPRO    212
            67  0400000061 +                      EQ     ASFD5                                                   ASFPRO    213
                                                                                                                 ASFPRO    214
            70  0460000105 +             ASFD6    ZR     B6,ASFD9          IF NO CONSTANTS                       ASFPRO    215
                          5170000002 +            SA7    CLEN                                                    ASFPRO    216
            71  76660                             SX6    B6                                                      ASFPRO    217
                     54675                        SA6    A7+B5             NUMBER OF CONS                        ASFPRO    218
                          10577                   ALLOC  ASF,X7            GET SPACE                             ASFPRO    219
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     7
         ASFDEF - PROCESS ASF DEFINITION
  
                                                                                                                 ASFPRO    220
                                        *         PHASE 2 - MOVE THE CONSTANTS TO ASFTAB                         ASFPRO    221
                                                                                                                 ASFPRO    222
            73  5110000000 X                      SA1    O.ASF                                                   ASFPRO    223
                          5120000000 X            SA2    L.ASF                                                   ASFPRO    224
            74  5150000032                        SA5    SELIST                                                  ASFPRO    225
                          5130000002 +            SA3    CLEN                                                    ASFPRO    226
            75  54435                             SA4    A3+B5             NUMBER OF CONS                        ASFPRO    227
                     43052                        MX0    60-18                                                   ASFPRO    228
                          63755                   SB7    X5+B5             LWA+1 OF TBL                          ASFPRO    229
                               63640              SB6    X4                                                      ASFPRO    230
            76  36732                             IX7    X3+X2                                                   ASFPRO    231
                     54720                        SA7    A2                UPDATE ASFTAB LENGTH                  ASFPRO    232
                          36612                   IX6    X1+X2                                                   ASFPRO    233
                               63460              SB4    X6                B4 = ASFTAB STORE ADDRESS             ASFPRO    234
                                                                                                                 ASFPRO    235
            77  57576                    ASFD7    SA5    B7-B6             ENTRY FROM TEMP TBL                   ASFPRO    236
                     67665                        SB6    B6-B5                                                   ASFPRO    237
                          26325                   UX3    B2,X5             B2 = WC , X3 = ASFTAB INDEX           ASFPRO    238
                               36413              IX4    X1+X3                                                   ASFPRO    239
           100  53540                             SA5    X4                E-LIST FOR CON                        ASFPRO    240
                     11605                        BX6    X0*X5                                                   ASFPRO    241
                          36762                   IX7    X6+X2             INSTALL LOCAL POINTER                 ASFPRO    242
                               36717              IX7    X1+X7             *** MAKE THE ADDRESS ABSOLUTE ***     ASFPRO    243
           101  54750                             SA7    A5                                                      ASFPRO    244
                     36312                        IX3    X1+X2             STORE ADDR                            ASFPRO    245
                          73222                   SX2    X2+B2             UPDATE LEN                            ASFPRO    246
                               53550              SA5    X5                                                      ASFPRO    247
           102  67225                    ASFD8    SB2    B2-B5             MOVE CONSTANT TO ASFTAB               ASFPRO    248
                     10655                        BX6    X5                                                      ASFPRO    249
                          56640                   SA6    B4                                                      ASFPRO    250
                               66445              SB4    B4+B5                                                   ASFPRO    251
           103  54555                             SA5    A5+B5                                                   ASFPRO    252
                     0520000102 +                 NZ     B2,ASFD8                                                ASFPRO    253
           104  0560000077 +                      NZ     B6,ASFD7          IF MORE CONSTANTS                     ASFPRO    254
                                                                                                                 ASFPRO    255
           105  5150000000 X             ASFD9    SA5    RSELECT                                                 ASFPRO    256
                          0305000000 X            ZR     X5,PH2RETN        IF R = 0                              ASFPRO    257
           106  5110000000 X                      ADDREF IDORDL,DEF        DEFINTION OF THE ASF                  ASFPRO    258
           110  0400000000 X                      EQ     PH2RETN                                                 ASFPRO    259
  
  
  
                                        *         ERROR EXITS                                                    ASFPRO    261
                                                                                                                 ASFPRO    262
           111  6160000064               ASF.E1   SB6    E.PLE             PARAMETER LIST SYNTAX ERROR           ASFPRO    263
                          0400000121 +            EQ     ASF.EX                                                  ASFPRO    264
                                                                                                                 ASFPRO    265
           112  6160000063               ASF.E2   SB6    E.TMP             TOO MANY PARAMETERS                   ASFPRO    266
                          0400000120 +            EQ     ASF.EX0                                                 ASFPRO    267
                                                                                                                 ASFPRO    268
           113  6160000330               ASF.E3   SB6    E.BADA            DUMMY ARG FOLLOWED BY CON OR NAME     ASFPRO    269
                          54445                   SA4    A4+B5                                                   ASFPRO    270
           114  0400000121 +                      EQ     ASF.EX                                                  ASFPRO    271
                                                                                                                 ASFPRO    272
           115  6160000062               ASF.E4   SB6    E.DDP             DOUBLY DEFINED PARAM                  ASFPRO    273
                          54445                   SA4    A4+B5                                                   ASFPRO    274
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     8
         ASFDEF - PROCESS ASF DEFINITION
  
           116  0400000121 +                      EQ     ASF.EX                                                  ASFPRO    275
                                                                                                                 ASFPRO    276
           117  6160000330               ASF.E5   SB6    E.BADA            SYNTAX ERROR IN ASF.                  FCC0396    25
                          0400000121 +            EQ     ASF.EX                                                  FCC0396    26
           120  5120000000 X             ASF.EX0  SA2    IDORDL                                                  ASFPRO    277
                          0100000000 X            RJ     PSYM              FORMAT NAME                           ASFPRO    278
                                                                                                                 ASFPRO    279
           121  5150000000 X             ASF.EX   SA5    O.SCR             RESET SCRATCH TABLE TO ZERO SPACE.    FCC0396    27
                          13777                   BX7    X7-X7                                                   ASFPRO    282
                               22605              LX6    X5                                                      ASFPRO    283
           122  5170000000 X                      SA7    S.SCR                                                   ASFPRO    284
                          5160000000 X            SA6    FWAWORK                                                 ASFPRO    285
           123  6170000000 X                      POSTER SEV=FE,NR=**,RETURN=PH2RETN                             FCC0396    28
  
  
  
           124  6160000077               ASFR.E1  SB6    E.UBP             UNBALANCED PARENS                     ASFPRO    288
                          0400000120 +            EQ     ASF.EX0                                                 ASFPRO    289
                                                                                                                 ASFPRO    290
           125  6160000307               ASFR.E2  SB6    E.EAP             EMPTY ACTUAL PARAMETER                ASFPRO    291
                          0400000120 +            EQ     ASF.EX0                                                 ASFPRO    292
                                                                                                                 ASFPRO    293
           126  5120000000 X             ASFR.E3  SA2    IDORDL            MEMORY OVERFLOW ON EXPANSION.         FCC0396    29
                          0100000000 X            RJ     PSYM                                                    ASFPRO    296
           127  6160777712                        POSTER SEV=FC,NR=E.RSE   * TABLE OVERFLOW *                    FCC0396    30
                                                                                                                 ASFPRO    298
           130  6160000100               ASFR.E4  SB6    E.UML             N.ACT PARAMS .NE. N.PARAMS IN DEF     ASFPRO    299
                          0400000120 +            EQ     ASF.EX0                                                 ASFPRO    300
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE     9
         ASFREF - EXPAND ASF REFERENCE
  
                                        ***                                                                      ASFPRO    302
                                        *         ASFREF- EXPAND ASF REFERENCE                                   ASFPRO    303
                                        *                                                                        ASFPRO    304
                                                                                                                 ASFPRO    305
           131  00000000000000000000     ASFREF   ENTRY.                                                         ASFPRO    306
           132  6150000001                        SB5    1                                                       ASFPRO    307
                          5130000000 X            SA3    NAMFWA                                                  ASFPRO    308
           133  5223777776                        SA2    X3-1              WORD B OF ASF                         ASFPRO    309
                          21223                   AX2    P.RA                                                    ASFPRO    310
                               43066              MX0    60-L.FARG                                               ASFPRO    311
           134  73720                             SX7    X2                INDEX TO ASFTAB                       ASFPRO    312
                     21233                        AX2    P.FARG-P.RA                                             ASFPRO    313
                          15620                   BX6    -X0*X2                                                  ASFPRO    314
           135  5160000001 +                      SA6    N.PAR             NUMBER OF PARAMS                      ASFPRO    315
                          5170000000 +            SA7    IASF              INDEX                                 ASFPRO    316
           136  5100000000 X                      ALLAE  SCR               GET SPACE FOR SCRATCH INFO            ASFPRO    317
                                                                                                                 ASFPRO    318
                                        *         SYNTAX CHECK THE ARG LIST AND FORM AN ARG SUBSTITUTION         ASFPRO    319
                                        *         TABLE IN THE SCRATCH AREA.                                     ASFPRO    320
                                        *         FORMAT:  24/0,18/FWA,18/LEN                                    ASFPRO    321
                                        *         SAVE THE ACTUAL PARAMETERS ABOVE THE TABLE IN THE SCRATCH AREA ASFPRO    322
                                                                                                                 ASFPRO    323
           137  5110000000 X                      SA1    O.SCR                                                   ASFPRO    324
                          5120000000 X            SA2    S.SCR             ALLOCATION                            ASFPRO    325
           140  5150000032                        SA5    SELIST                                                  ASFPRO    326
                          5140000001 +            SA4    N.PAR                                                   ASFPRO    327
           141  53010                             SA0    X1                A0 = O.SCR                            ASFPRO    328
                     63720                        SB7    X2                B7 = S.SCR                            ASFPRO    329
                          63640                   SB6    X4                B6 = INDEX TO ACTUAL PARAMS           ASFPRO    330
                               43000              MX0    0                 X0 = ARG NUMBER - 1                   ASFPRO    331
           142  66150                             SB1    B5                B1 = PAREN COUNT                      ASFPRO    332
                     5245777776                   SA4    X5-1              A4 = E-LIST POINTER                   ASFPRO    333
                               75545              SX5    A4-B5             X5 = FWA OF ARG                       ASFPRO    334
                                                                                                                 ASFPRO    335
           143  55445                    ASFR2    NEXTE                                                          ASFPRO    336
                          0311000143 +            NZ     X1,ASFR2          SKIP CONS , NAMES AND OPS WITH PRECED ASFPRO    337
           144  0420000143 +                      ZR     B2,ASFR2          IF LOGICAL CONSTANT .FALSE.           ASFPRO    338
                          6130000006              IF.NE  EL.(,ASFR3                                              ASFPRO    339
                          66115                   SB1    B1+B5             PC = PC+1                             ASFPRO    340
           146  0400000143 +                      EQ     ASFR2                                                   ASFPRO    341
           147  6130000004               ASFR3    IF.EQ  EL.EOS,ASFR.E1    ERROR IF EOS                          ASFPRO    342
           150  0415000153 +                      EQ     B1,B5,ASFR4       IF PC = 1                             ASFPRO    343
                          6130000002              IF.NE  EL.),ASFR2                                              ASFPRO    344
                          67115                   SB1    B1-B5             PC = PC-1                             ASFPRO    345
           152  0400000143 +                      EQ     ASFR2                                                   ASFPRO    346
                                                                                                                 ASFPRO    347
                                        *         OP MUST BE COMMA OR )                                          ASFPRO    348
                                                                                                                 ASFPRO    349
           153  74440                    ASFR4    SX4    A4                                                      ASFPRO    350
                     37354                        IX3    X5-X4             PARAMETER LEN                         ASFPRO    351
                          0303000125 +            ZR     X3,ASFR.E2        IF EMPTY PARAMETER                    ASFPRO    352
                                                                                                                 ASFPRO    353
           154  63636                             SB6    B6+X3             NEW INDEX                             ASFPRO    354
                     67465                        SB4    B6-B5             FWA OF TEXT                           ASFPRO    355
                          74204                   SX2    B4+A0                                                   ASFPRO    356
                               20222              LX2    18                                                      ASFPRO    357
           155  12623                             BX6    X2+X3             24/0,18/FWA,18/LEN                    ASFPRO    358
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE    10
         ASFREF - EXPAND ASF REFERENCE
  
                     63100                        SB1    X0                                                      ASFPRO    359
                          54601                   SA6    A0+B1             STORE ENTRY IN SCRATCH AREA           ASFPRO    360
                               73005              SX0    X0+B5             ADVANCE PARAMETER ORDINAL             ASFPRO    361
           156  0647000126 +                      GE     B4,B7,ASFR.E3     IF NOT ENOUGH SPACE                   ASFPRO    362
                                                                                                                 ASFPRO    363
                          53150                   SA1    X5                                                      ASFPRO    364
                               63130              SB1    X3                LEN                                   ASFPRO    365
           157  10611                    ASFR5    BX6    X1                MOVE TEXT TO SCR TBL AREA             ASFPRO    366
                     55115                        SA1    A1-B5             NEXT                                  ASFPRO    367
                          67115                   SB1    B1-B5                                                   ASFPRO    368
                               54604              SA6    A0+B4                                                   ASFPRO    369
           160  67445                             SB4    B4-B5                                                   ASFPRO    370
                     0510000157 +                 NZ     B1,ASFR5                                                ASFPRO    371
                                                                                                                 ASFPRO    372
                               66150              SB1    B5                RESTORE B1                            ASFPRO    373
           161  75545                             SX5    A4-B5                                                   ASFPRO    374
                     6130000003                   IF.EQ  EL.COMMA,ASFR2    LOOP FOR NEXT ARG                     ASFPRO    375
                                                                                                                 ASFPRO    376
                          5110000001 +            SA1    N.PAR                                                   ASFPRO    377
           163  37010                             IX0    X1-X0                                                   ASFPRO    378
                     0310000130 +                 NZ     X0,ASFR.E4        IF NUM OF PARAMS .NE. TO NUM IN DEF   ASFPRO    379
                                                                                                                 ASFPRO    380
           164  5120000000 X                      SA2    LWAWORK           FWA OF REMAINDER OF STMT              ASFPRO    381
                          74445                   SX4    A4+B5           LWA+1  ( INCLUDING CLOSING PAREN )      ASFPRO    382
                               37142              IX1    X4-X2             LENGTH                                ASFPRO    383
           165  10611                             BX6    X1                                                      ASFPRO    384
                     74706                        SX7    B6+A0                                                   ASFPRO    385
                          10377                   BX3    X7                                                      ASFPRO    386
                               63616              SB6    B6+X1             INCREMENT LENGTH OF SCRATCH AREA      ASFPRO    387
           166  5160000003 +                      SA6    L.REM                                                   ASFPRO    388
                          5170000002 +            SA7    O.REM                                                   ASFPRO    389
           167  0667000126 +                      GE     B6,B7,ASFR.E3     IF NOT ENOUGH SPACE                   ASFPRO    390
                                                                                                                 ASFPRO    391
                          74606                   SX6    B6+A0                                                   ASFPRO    392
           170  5160000000 X                      SA6    FWAWORK                                                 ASFPRO    393
                          6110000001              MOVE   X1,X2,X3    REST OF STMT TO SCRATCH AREA                ASFPRO    394
                                                                                                                 ASFPRO    395
                                        *         EXPAND THE ASF                                                 ASFPRO    396
                                                                                                                 ASFPRO    397
                                         STW      MACRO                    STORE TEXT WORD                       ASFPRO    398
                                                  SA7    A7-B5                                                   ASFPRO    399
                                                  ENDM                                                           ASFPRO    400
                                                                                                                 ASFPRO    401
           172  5110000000 X                      SA1    O.ASF                                                   ASFPRO    402
                          5120000000 +            SA2    IASF              INDEX TO TEXT IN ASFTAB               ASFPRO    403
           173  5140000000 X                      SA4    FWAWORK                                                 ASFPRO    404
                          5150000032              SA5    SELIST                                                  ASFPRO    405
           174  7170002006                        SX7    EL.(+2000B        SIMULATE FULLY PARENTHESIZED STMT     ASFPRO    406
                          20760                   LX7    48                (SELIST WILL POINT AHEAD SINCE        ASFPRO    407
                                                                           ARITH HAS ALREADY PROCESSED A (       ASFPRO    408
                               63640              SB6    X4                B6 = FWAWORK ( LOWER BOUND )          ASFPRO    409
           175  53750                             SA7    X5                PRESTORE                              ASFPRO    410
                     75675                        SX6    A7-B5             SELIST = SELIST-1                     ASFPRO    411
                          54650                   SA6    A5                DECREMENTING SELIST BY 1 INSURES      ASFPRO    412
                                        *                                  THAT A RECURSIVE ASF WILL GENERATE    ASFPRO    413
                                        *                                  AN FC ERROR.                          ASFPRO    414
                                                                                                                 ASFPRO    415
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE    11
         ASFREF - EXPAND ASF REFERENCE
  
           176  5130000000 X                      SA3    O.SCR                                                   ASFPRO    416
                          6213777776              SB1    X3-1              B1 = O.SCR-1 ( INDEX TO PARAM INFO )  ASFPRO    417
           177  36012                             IX0    X1+X2                                                   ASFPRO    418
                     53400                        SA4    X0                INITIALIZE A4 TO FWA OF ASF TEXT + 1  ASFPRO    419
                                                                                                                 ASFPRO    420
           200  55445                    ASFR6    NEXTE                                                          ASFPRO    421
                          6132777700              SB3    B2-EL.PC                                                ASFPRO    422
           201  0630000205 +                      PL     B3,ASFR8          IF A PARAMETER REF                    ASFPRO    423
                          10744                   BX7    X4                                                      ASFPRO    424
                               55775              STW                                                            ASFPRO    425
           202  6130000004                        IF.EQ  EL.EOS,ASFR11     IF END OF ASF TEXT                    ASFPRO    426
           203  64770                    ASFR6A   SB7    A7                                                      ASFPRO    427
                     0767000200 +                 GT     B7,B6,ASFR6       IF NO OVERFLOW                        ASFPRO    428
           204  0400000126 +                      EQ     ASFR.E3                                                 ASFPRO    429
                                                                                                                 ASFPRO    430
           205  53111                    ASFR8    SA1    B1+X1             PARAMETER INFO WORD                   ASFPRO    431
                     63210                        SB2    X1                LEN                                   ASFPRO    432
                          21122                   AX1    18                                                      ASFPRO    433
                               53210              SA2    X1                FIRST WORD                            ASFPRO    434
           206  0530000211 +                      NZ     B3,ASFR10         IF NO NEED TO ENCLOSE EXPR IN () S    ASFPRO    435
                          0525000210 +            NE     B2,B5,ASFR9       IF AN EXPRESSION                      ASFPRO    436
           207  10722                             BX7    X2                                                      ASFPRO    437
                     55775                        STW                                                            ASFPRO    438
                          0400000203 +            EQ     ASFR6A                                                  ASFPRO    439
                                                                                                                 ASFPRO    440
           210  7170002006               ASFR9    SX7    LEFT(                                                   ASFPRO    441
                          20760                   LX7    48                                                      ASFPRO    442
                               55775              STW                                                            ASFPRO    443
                                                                                                                 ASFPRO    444
           211  10722                    ASFR10   BX7    X2                STORE ARGUMENT                        ASFPRO    445
                     55225                        SA2    A2-B5                                                   ASFPRO    446
                          67225                   SB2    B2-B5                                                   ASFPRO    447
                               55775              STW                                                            ASFPRO    448
           212  0520000211 +                      NZ     B2,ASFR10                                               ASFPRO    449
                          0530000203 +            NZ     B3,ASFR6A         IF NO NEED FOR A CLOSING PAREN        ASFPRO    450
                                                                                                                 ASFPRO    451
           213  7170002002                        SX7    RIGHT(                                                  ASFPRO    452
                          20760                   LX7    48                                                      ASFPRO    453
                               55775              STW                                                            ASFPRO    454
           214  0400000203 +                      EQ     ASFR6A                                                  ASFPRO    455
                                                                                                                 ASFPRO    456
                                        *         END OF EXPANSION - MOVE THE REST OF THE STATEMENT UP           ASFPRO    457
                                                                                                                 ASFPRO    458
           215  5110000003 +             ASFR11   SA1    L.REM                                                   ASFPRO    459
                          5120000002 +            SA2    O.REM                                                   ASFPRO    460
           216  74475                             SX4    A7+B5                                                   ASFPRO    461
                     37341                        IX3    X4-X1             DESTIN ADD ( NEW LWAWORK )            ASFPRO    462
                                                                                                                 ASFPRO    463
                          5150000000 X            SA5    LWAWORK           OLD LWAWORK                           ASFPRO    464
           217  5140000034                        SA4    LELIST                                                  ASFPRO    465
                          37035                   IX0    X3-X5             NEW - OLD                             ASFPRO    466
                               36704              IX7    X0+X4                                                   ASFPRO    467
           220  54740                             SA7    A4                UPDATE LELIST                         ASFPRO    468
                     10633                        BX6    X3                                                      ASFPRO    469
                          54650                   SA6    A5                AND LWAWORK                           ASFPRO    470
                                                                                                                 ASFPRO    471
                               43700              MX7    0                                                       ASFPRO    472
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE    12
         ASFREF - EXPAND ASF REFERENCE
  
           221  63260                             SB2    X6                                                      ASFPRO    473
                     5170000000 X                 SA7    S.SCR             CLEAR SCRATCH TABLE ALLOC             ASFPRO    474
           222  0721000126 +                      LT     B2,B1,ASFR.E3     IF LWAWORK < O.SCR-1                  ASFPRO    475
                                                                                                                 ASFPRO    476
                          76715                   SX7    B1+B5                                                   ASFPRO    477
           223  5170000000 X                      SA7    FWAWORK                                                 ASFPRO    478
                          6110000001              MOVE   X1,X2,X3    REST OF STMT BACK                           ASFPRO    479
           225  0400000131 +                      EQ     ASFREF                                                  ASFPRO    480
                                                                                                                 ASFPRO    481
           226                                    END                                                            ASFPRO    482
  
                             65200B CM  STORAGE USED              663 STATEMENTS      600 SYMBOLS      000002 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.714 SECONDS         262 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDREF          0   EXTERNAL*       7/39
        ALLAE           0   EXTERNAL*       9/16
        ALLOC           0   EXTERNAL*       5/49      6/57
        ASFDEF          5   PROGRAM*        4/14 E    4/15 L
        ASFD1          11   PROGRAM*        4/27 L    4/31
        ASFD2          22   PROGRAM*        4/52 L    5/15
        ASFD3          24   PROGRAM*        5/01 L    5/04      5/10
        ASFD4          31   PROGRAM*        5/01      5/12 L
        ASFD4A         35   PROGRAM*        5/27 L    5/29      5/33      5/37      5/40
        ASFD4B         42   PROGRAM*        5/28      5/44 L
        ASFD5          61   PROGRAM*        6/31 L    6/36      6/37      6/51
        ASFD6          70   PROGRAM*        6/35      6/53 L
        ASFD7          77   PROGRAM*        7/17 L    7/35
        ASFD8         102   PROGRAM*        7/29 L    7/34
        ASFD9         105   PROGRAM*        6/53      7/37 L
        ASFREF        131   PROGRAM*        9/05 E    9/05 L   12/08
        ASFR10        211   PROGRAM*       11/20     11/30 L   11/34
        ASFR11        215   PROGRAM*       11/11     11/44 L
        ASFR2         143   PROGRAM*        9/35 L    9/36      9/37      9/40      9/43      9/45     10/17
        ASFR3         147   PROGRAM*        9/38      9/41 L
        ASFR4         153   PROGRAM*        9/42      9/49 L
        ASFR5         157   PROGRAM*       10/08 L   10/13
        ASFR6         200   PROGRAM*       11/06 L   11/13
        ASFR6A        203   PROGRAM*       11/12 L   11/24     11/35     11/40
        ASFR8         205   PROGRAM*       11/08     11/16 L
        ASFR9         210   PROGRAM*       11/21     11/26 L
        ASFR.E1       124   PROGRAM*        8/17 L    9/41
        ASFR.E2       125   PROGRAM*        8/20 L    9/51
        ASFR.E3       126   PROGRAM*        8/23 L   10/04     10/32     11/14     12/03
        ASFR.E4       130   PROGRAM*        8/27 L   10/21
        ASFT            0   PROGRAM*        2/01 L    2/03      2/04      2/05      2/06      2/08      2/09
        ASF.EX        121   PROGRAM*        7/47      7/54      8/01      8/04      8/08 L
        ASF.EX0       120   PROGRAM*        7/50      8/05 L    8/18      8/21      8/28
        ASF.E1        111   PROGRAM*        4/28      4/33      4/35      7/46 L
        ASF.E2        112   PROGRAM*        4/41      7/49 L
        ASF.E3        113   PROGRAM*        5/05      7/52 L
        ASF.E4        115   PROGRAM*        5/08      7/56 L
        ASF.E5        117   PROGRAM*        5/13      8/03 L
        CLEN            2   PROGRAM*        2/06 D    6/54 S    7/07
1        ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR                  COMPASS 3.7-871.     24/05/02. 15.54.26.      PAGE    13
        SYMBOLIC REFERENCE TABLE. 
  
        DMASK           4   PROGRAM*        2/12 L    5/23
        EL.COMMA        3   FTNTEXT         4/19     10/17
        EL.EOS          4   FTNTEXT         4/50      6/19      9/41     11/11
        EL.PC          77                   1/38 D    4/47      5/25     11/07
        EL.(            6   FTNTEXT         1/41      9/38     10/48
        EL.)            2   FTNTEXT         1/42      4/33      9/43
        EL.=            5   FTNTEXT         4/35
        ERPRO           0   EXTERNAL*       1/31 X    8/13
        E.BADA        330                   1/50 D    7/52      8/03
        E.DDP          62                   1/46 D    7/56
        E.EAP         307                   1/54 D    8/20
        E.PLE          64                   1/48 D    7/46
        E.RSE          65                   1/49 D    8/25
        E.TMP          63                   1/47 D    7/49
        E.UBP          77                   1/52 D    8/17
        E.UML         100                   1/53 D    8/27
        FATALER         0   EXTERNAL*       8/25
        FWA             2   PROGRAM*        2/05 D    5/47 S    5/52
        FWAWORK         0   EXTERNAL*       1/32 X    8/12 S   10/35 S   10/46     12/06 S
        IASF            0   PROGRAM*        2/08 D    9/15 S   10/45
        IDORDL          0   EXTERNAL*       1/31 X    4/17 S    7/39      8/05      8/23
        LEFT(        2006                   1/41 D   11/26
        LELIST         34                   1/36 D   11/50
        LWAWORK         0   EXTERNAL*       1/32 X   10/23     11/49
        L.ASF           0   EXTERNAL*       5/51      6/17      7/05
        L.FARG          6   FTNTEXT         9/10
        L.REM           3   PROGRAM*        2/10 D   10/30 S   11/44
        L.SCR           0   EXTERNAL* 
        MVE=            0   EXTERNAL*       6/08     10/36     12/07
        M.FP           77                   1/39 D    4/40
        NAMFWA          0   EXTERNAL*       1/31 X    9/07
        N.PAR           1   PROGRAM*        2/04 D    4/39 S    6/01      9/14 S    9/26     10/19
        O.ASF           0   EXTERNAL*       5/50      6/16      7/04     10/44
        O.REM           2   PROGRAM*        2/09 D    2/10     10/31 S   11/45
        O.SCR           0   EXTERNAL*       8/08      9/23     11/01
        PH2RETN         0   EXTERNAL*       1/31 X    7/38      7/40      8/13
        PSYM            0   EXTERNAL*       1/31 X    8/06      8/24
        P.FARG         56   FTNTEXT         6/02      9/12
        P.RA           23   FTNTEXT         5/57      9/09      9/12
        RIGHT(       2002                   1/42 D   11/37
        RSELECT         0   EXTERNAL*       1/31 X    7/37
        SELIST         32                   1/35 D    4/20      6/18      7/06      9/25     10/47
        S.SCR           0   EXTERNAL*       1/32 X    8/11 S    9/24     12/02 S
        WORDB           0   PROGRAM*        2/03 D    4/18 S    6/04
        Z               4                   4/27 D    4/30 D    4/34 D    5/03 D    5/03      5/27      9/35     11/06
                                            4/27      4/30      4/34      5/03      5/27 D    9/35 D   11/06 D
        Z.ASF           0   EXTERNAL*       5/49      6/57
        Z.SCR           0   EXTERNAL*       9/16
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      273              IDENT  CALL 
                        273                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       270 
                                        LITERALS* LOCAL         270         3 
                                        CLNFO     COMMON          0         6 
  
  
                                        ENTRY POINTS. 
  
                                        B=CALL           0+           CALL            14+           IGCALL         243+ 
                                        TYPECLL          6+           FARGLST        215+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        APLRT     INITR     DOLABR    STAPLC    WLABM     N.AP      TRACEL
                                        CONVERT   DARLIST   PH2RETN   STRIP     LABEL.    ADDREF    ERPRO 
                                        DBGAPL    ACALL     RSELECT   DBGEXT    APLST     ASAER     RETURNS 
                                        GEFCM     DOCALL    ZFLAG     SYMBOL    WRM       N.GL
  
  
  
  
                                                  IDENT  CALL                                                    CALL        2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
  
  
  
                                        ***                                                                      CALL        6
                                        *         CALL - CALL STATEMENT PROCESSOR                                CALL        7
                                        *                                                                        CALL        8
                                        *         SYNTAX:     CALL NAME                                          CALL        9
                                        *                     CALL NAME(ARG1,ARG2,...,ARGN)                      CALL       10
                                        *                     CALL NAME(ARG1,ARG2,...,ARGN),RETURNS(LABEL1,...)  CALL       11
                                        *                                                                        CALL       12
  
  
  
             0                           B=CALL   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     CALL       14
                                                                                                                 CALL       15
                                                  EXT       APLRT,CONVERT,DBGAPL,GEFCM,INITR,DARLIST             CALL       16
                                                  EXT    ACALL                                                   CALL       18
                                                  EXT    DOCALL                                                  CALL       19
                                                  EXT    DOLABR                                                  CALL       20
                                                  EXT    PH2RETN                                                 CALL       21
                                                  EXT    RSELECT                                                 CALL       22
                                                  EXT       ZFLAG                                                CALL       23
                                                                                                                 CALL       24
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     2
  
  
                                  32     SELIST   EQU    32B               POINTS TO NEXT ELIST ELEMENT          CALL       25
                                  37     CDCNT    EQU    37B         CARD NO. OF 2ST CARD OF PRESENT STATEMENT   CALL       26
                                  77     MXARGS   EQU    63          MAXIMUM NUMBER OF ARGUMENTS INCLUDING RETS  CALL       29
                                                                                                                 CALL       30
                                   1     IDOP     EQU    1                 ID                                    CALL       31
                                                                                                                 CALL       32
                                        *         DEFINE ERROR MESSAGE NUMBERS.                                  CALL       33
                                                                                                                 CALL       34
                                 475     E317     =      317         TOO MANY ARGUMENTS INCLUDING RETURNS        CALL       35
                                 253     E171     =      171         ILL SYNTAX IN CALL STMT                     CALL       36
                                 254     E172     =      172         ILL RETURNS PARAMETER                       CALL       37
                                 266     E182     =      182         RETURNS PARAM IN CALL STMT (NON-ANSI)       CALL       38
                                                                                                                 CALL       39
                                        *         RLIST MACRO NUMBER AND HEADER WORD                             CALL       40
                                                                                                                 CALL       41
                                         M.UCJ    RMEQU  105B        UNCONDITIONAL JUMP MACRO ORDINAL            CALL       42
                                         GEFMC    RMEQU  124B                                                    CALL       43
                                                                                                                 CALL       44
             0  16720000010000000000     UCJM     RMHDR  M.UCJ,1                                                 CALL       45
             1                     1              BSS    1                                                       CALL       46
             2  16530000020000000000     GEFM     RMHDR  GEFMC,2                                                 CALL       47
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     3
  
  
                                        *         LOCAL AND COMMON STORAGE                                       CALL       49
                                                                                                                 CALL       50
             3                     2     TS1      BSSZ   2                 MACRO BUFFER                          CALL       51
             5  00000000000000000000     LOCA                              ADDRESS OF CURRENT ARG                CALL       52
             6  00000000000000000001     TYPECLL  ENTRY. 1                                                       CALL       55
             7  00000000000000000001     TRCFLG   DATA   1                 TRACE FLAG                            CALL       56
            10  00000000000000000000     SRLIST   DATA   0                 START OF RETURNS LIST                 CALL       57
            11  00000000000000000000     TRCTS    DATA   0                 HOLDS TRACEL INFORMATION              CALL       58
                                                                                                                 CALL       59
                                                  USE    /CLNFO/           CALL INFO COMMON WITH ARITH,S ACALL.  CALL       60
             0                     1     SUBFWA   BSS    1                 ADR OF ENTRY IN SYMTAB OF SUBR CALLED CALL       61
             1                     1     SUBH     BSS    1                 H-ORDINAL OF SUBRNAME                 CALL       62
             2                     1     ARGCNT   BSS    1                 HOLDS THE NUMBER OF ARGUMENTS IN LIST CALL       63
             3                     1     NARGSF   BSSZ   1                 =0 IF THERE IS AN ARGUMENT LIST       CALL       64
             4                     1     SUBNAME  BSS    1                 NAME OF CALLED SUBR IN E FORM         CALL       65
             5                     1     ARLPT    BSSZ      1              ARLIST POINT = NO. OF WORDS IN ARLIST CALL       66
                                                  USE    *                                                       CALL       67
                                                                                                                 CALL       68
            12  20012205242522162355     RETS     VFD    12/2000B+IDOP,48/8HRETURNS                              CALL       69
            13                     1     ACNT     BSS    1                                                       CALL       70
                                                                                                                 CALL       71
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     4
  
  
            14  00000000000000000000     CALL     ENTRY.                                                         CALL       73
            15  0100000000 X                      RJ     INITR                                                   CALL       74
            16  0100000000 X                      RJ     DOCALL                                                  CALL       75
            17  43700                             MX7    0                                                       CALL       76
                     5170000003 C                 SA7    NARGSF            INITIALIZE                            CALL       77
            20  6150000001                        SB5    1                                                       CALL       78
                          5120000032              SA2    SELIST            FETCH ADDRESS OF ELIST                CALL       79
            21  53120                             SA1    X2                FETCH FIRST ELIST ELEMENT             CALL       80
                     26111                        UX1    B1,X1                                                   CALL       81
                          0515000203 +            NE     B1,B5,CALLE1 IF NOT A NAME                              CALL       82
            22  7262777776                        SX6    X2-1              ADVANCE POINTER                       CALL       83
                          5160000032              SA6    SELIST            POINT BEYOND NAME                     CALL       84
            23  10711                             BX7    X1                                                      CALL       85
                     5170000004 C                 SA7    SUBNAME           SAVE SUB NAME                         CALL       86
            24  5110000032                        SA1    SELIST            ITEM AFTER NAME                       CALL       87
                          53210                   SA2    X1                                                      CALL       88
                               26012              UX0    B1,X2                                                   CALL       89
            25  7261777776                        SX6    X1-1                                                    CALL       90
                          6120000006              SB2    EL.(                                                    CALL       91
            26  6130000004                        SB3    EL.EOS                                                  CALL       92
                          0412000032 +            EQ     B1,B2,CALL1       IF (                                  CALL       93
            27  0413000031 +                      EQ     B1,B3,CALL0       IF EOS                                CALL       94
                          6120000003              SB2    EL.COMMA                                                CALL       95
            30  0412000031 +                      EQ     B1,B2,CALL0       IF ,                                  CALL       96
                          0400000203 +            EQ     CALLE1                                                  CALL       97
                                                                                                                 CALL       98
            31  5160000003 C             CALL0    SA6    NARGSF            SET NO ARGS FLAG                      CALL       99
                          0400000033 +            EQ     CALL2                                                   CALL      100
            32  5160000032               CALL1    SA6    SELIST            POINT BEYOND (                        CALL      101
            33  0100000000 X             CALL2    RJ     ACALL                                                   CALL      102
            34  5160000007 +                      SA6    TRCFLG                                                  CALL      103
                          5110000032              SA1    SELIST            WHAT IS NEXT E -                      CALL      104
            35  6120000004                        SB2    EL.EOS                                                  CALL      105
                          53210                   SA2    X1                                                      CALL      106
            36  6130000003                        SB3    EL.COMMA                                                CALL      107
                          26012                   UX0    B1,X2                                                   CALL      108
            37  7261777776                        SX6    X1-1              UP SELIST                             CALL      109
                          5160000032              SA6    SELIST                                                  CALL      110
            40  0412000113 +                      EQ     B1,B2,CALL30      IF END OF STATE.                      CALL      111
                          0513000204 +            NE     B1,B3,CALLE2 IF NOT A COMMA                             CALL      112
                                                                                                                 CALL      113
                                        *         OUTPUT RLIST OP TO ASSEMBLE A FULL WORD OF ZERO IN APLIST      CALL      114
                                                                                                                 CALL      115
            41  43101                             MX1    1                                                       FCC0418    91
                                                  LX1    1+AP.STP                                                CALL      117
                     43200                        MX2    0                                                       CALL      118
                          37333                   IX3    X3-X3                                                   CALL      119
                               43400              MX4    0                                                       CALL      120
            42  0100000000 X                      CALL   APLRT       OUTPUT A -0 APLIST WORD                     CALL      121
                                                                                                                 CALL      122
            43  5110000032                        SA1    SELIST            IS NEXT E RETURN -                    CALL      123
                          53210                   SA2    X1                                                      CALL      124
            44  5130000012 +                      SA3    RETS                                                    CALL      125
                          37423                   IX4    X2-X3                                                   CALL      126
            45  0314000203 +                      NZ     X4,CALLE1   IF NOT *RETURNS*                            CALL      127
                          10633                   BX6    X3                                                      CALL      128
            46  5130000002 C                      SA3    ARGCNT                                                  CALL      129
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     5
  
  
                          10733                   BX7    X3                                                      CALL      130
                               54630              SA6    A3                                                      CALL      131
            47  5170000013 +                      SA7    ACNT                                                    CALL      132
                          5160000000 X            SA6    =XRETURNS         SET FLAG FOR PASS 2                   CALL      133
            50  5022777776                        SA2    A2-1              NEXT E ( -                            CALL      134
                          6120000006              SB2    EL.(                                                    CALL      135
            51  26012                             UX0    B1,X2                                                   CALL      136
                     0512000205 +                 NE     B1,B2,CALLE3 IF NOT A LEFT PAREN                        CALL      137
            52  7072777776                        SX7    A2-1                                                    CALL      138
                          5170000010 +            SA7    SRLIST            SAVE START OF LABELS ADDRESS          CALL      139
            53  5022777776               CALL44   SA2    A2-1              IS NEXTE A LABEL (CONST) -            CALL      140
                          26012                   UX0    B1,X2                                                   CALL      141
            54  0510000206 +                      NZ     B1,CALLE4   IF NOT A CONSTANT                           CALL      142
                          5130000013 +            SA3    ACNT                                                    CALL      143
            55  7273000001                        SX7    X3+1                                                    CALL      144
                          54730                   SA7    A3                                                      CALL      145
                               74620              SX6    A2                A2 POINTS TO LABEL                    CALL      146
            56  21055                             AX0    48-3              IS TYPE INT -                         CALL      147
                     43171                        MX1    60-3                                                    CALL      148
                          5160000032              SA6    SELIST                                                  CALL      149
            57  15301                             BX3    -X1*X0                                                  CALL      150
                     7203777776                   SX0    X3-T.INT                                                CALL      151
            60  0300000063 +                      ZR     X0,CALL43   IF TYPE INTEGER                             CALL      152
                                                                                                                 CALL      153
                          10422                   POSTERR  NR=E172,SEV=FE,FMT=ELIST,TXT=X2,RETURN=PH2RETN        CALL      154
                                                                                                                 CALL      155
                                        *         FORM RLIST INSTR TO MAKE APLIST ENTRY FOR THIS LABEL           CALL      156
                                                                                                                 CALL      157
            63  5110000007 +             CALL43   SA1    TRCFLG                                                  CALL      158
                          0311000076 +            NZ     X1,CALL42         BRANCH IF NO TRACING                  CALL      159
            64  5110000000 X                      SA1    =XTRACEL                                                FCC0418    92
                          43700                   MX7    0                                                       CALL      161
                               10611              BX6    X1                                                      CALL      162
            65  54710                             SA7    A1                TEMPORARY TRACEL VALUE                CALL      163
                     5160000011 +                 SA6    TRCTS             SAVE TRACEL INFORMATION               CALL      164
            66  0100000000 X                      RJ     DOLABR            GO PROCESS LABEL                      CALL      165
            67  43060                             MX0    60-L.TRO                                                CALL      166
                     20244                        LX2    60-P.TRO          POSITION LABEL TABLE ORDINAL          CALL      167
                          15720                   BX7    -X0*X2            USED FOR EQ VFD WORD                  CALL      168
                               76110              SX1    B1                ORDINAL FOR LABEL                     CALL      169
            70  20722                             LX7    18                                                      CALL      170
                     12771                        BX7    X7+X1             BUILD INFORMATION WORD FOR LATER      CALL      171
                          5110000000 X            SA1    =XN.GL                                                  CALL      172
            71  7221100000                        SX2    X1+I.GL     IH  = GL(NGLN)                              CALL      173
                          20722                   LX7    18                                                      CALL      174
                               73615              SX6    X1+B5             INCREMENT NGLN                        CALL      175
            72  12771                             BX7    X7+X1             BUILD INFORMATION WORD FOR LATER      CALL      176
                     54610                        SA6    A1                                                      CALL      177
                          5130000011 +            SA3    TRCTS                                                   CALL      178
            73  10633                             BX6    X3                                                      CALL      179
                     5160000000 X                 SA6    TRACEL            RESTORE OLD VALUE                     CALL      180
            74  5140000032                        SA4    SELIST                                                  CALL      181
                          53740                   SA7    X4                SAVE INFORMATION WORD                 CALL      182
                               63120              SB1    X2                                                      CALL      183
            75  0400000077 +                      EQ     CALL45                                                  CALL      184
                                                                                                                 CALL      185
            76  0100000000 X             CALL42   CALL   DOLABR                                                  CALL      186
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     6
  
  
                                                                                                                 CALL      187
            77  43100                    CALL45   MX1    0           ST = 0                                      CALL      188
                     76210                        SX2    B1          IH                                          CALL      189
                          43300                   MX3    0           CA = 0                                      CALL      190
                               37444              IX4    X4-X4       NO DIM CHECK                                CALL      191
           100  0100000000 X                      CALL   APLRT       APLIST FOR RETURNS LABEL                    CALL      192
                                                                                                                 CALL      193
           101  5110000032                        SA1    SELIST            IS NEXT EA , -                        CALL      194
                          5221777776              SA2    X1-1                                                    CALL      195
           102  26012                             UX0    B1,X2                                                   CALL      196
                     6120000003                   SB2    EL.COMMA                                                CALL      197
           103  6130000002                        SB3    EL.)                                                    CALL      198
                          0412000053 +            EQ     B1,B2,CALL44      IF YES (A2 USED BY CALL44)            CALL      199
           104  0513000205 +                      NE     B1,B3,CALLE3  IF NOT LEFT PARENTHESIS                   CALL      200
                          5012777776              SA1    A2-1              IS NEXT E EOS -                       CALL      201
           105  6110000004                        SB1    EL.EOS                                                  CALL      202
                          26021                   UX0    B2,X1                                                   CALL      203
           106  0512000206 +                      NE     B1,B2,CALLE4  IF NOT EOS                                CALL      204
                          5140000032              SA4    SELIST                                                  CALL      205
           107  5150000013 +                      SA5    ACNT                                                    CALL      206
                          7275777677              SX7    X5-MXARGS-1                                             CALL      207
           110  0327000212 +                      PL     X7,CALLE6   IF MORE THAN MXARGS ARGUMENTS               CALL      208
                          5244000001              POSTER SEV=ANSI,NR=E182,FMT=ELIST,TXT=X4+1                     CALL      209
                                                                                                                 CALL      210
           113  5150000000 X             CALL30   SA5    RSELECT                                                 CALL      211
                          0305000116 +            ZR     X5,CALL31                                               CALL      212
           114  5110000001 C                      ADDREF SUBH,REF          ADD A REFERENCE FOR THE NAME          CALL      213
                                                                                                                 CALL      214
           116  43600                    CALL31   MX6    0                                                       CALL      215
                     5160000000 X                 SA6    DBGAPL                                                  CALL      216
           117  7170000004 C                      SX7    SUBNAME                                                 CALL      217
                          5076000001              SA7    A6+1                                                    CALL      218
           120  54160                             SA1    A6                                                      CALL      219
                     7160000130 +                 PLUG   AT=IGCALL,TO=RTNS                                       F2950F4   112
           124  5120000002 C                      SA2    ARGCNT                                                  CALL      225
                          0302000257 +            ZR     X2,IGCALL3        IF NO ARGS, GO OUTPUT 60-BIT RJ       FCC0418    94
                                                                                                                 CALL      227
           125  5120000000 X                      SA2    =XN.AP                                                  CALL      228
                          7262000001              SX6    X2+1                                                    CALL      229
           126  10722                             BX7    X2                                                      CALL      230
                     54620                        SA6    A2                                                      CALL      231
                          5170000003 +            SA7    TS1                                                     CALL      232
           127  0400000254 +                      EQ     IGCALL4                                                 CALL      233
                                                                                                                 CALL      238
                                        *         RETURN TO PROCESS RETURN                                       CALL      239
                                                                                                                 CALL      240
           130  5110000006 +             RTNS     SA1    TYPECLL                                                 CALL      241
                          0311000136 +            NZ     X1,RTNS.                                                CALL      242
           131  7160000001                        SX6    1                                                       CALL      243
                          54610                   SA6    A1                                                      CALL      244
           132  5110000037                        SA1    CDCNT                                                   CALL      245
                          7271000001              SX7    X1+1              INCREMENT LINE NUMBER FOR RETURNS     CALL      246
           133  54710                             SA7    A1                                                      CALL      247
                     0100000215 +                 RJ     FARGLST           FORM DEBUG ARG LIST                   CALL      248
           134  5110000037                        SA1    CDCNT                                                   CALL      249
                          7271777776              SX7    X1-1              RESTORE FORMER LINE COUNT             CALL      250
           135  54710                             SA7    A1                                                      CALL      251
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     7
  
  
           136  43400                    RTNS.    MX4    0                                                       CALL      252
                     5150000005 C                 SA5    ARLPT                                                   CALL      253
           137  0100000000 X                      RJ     DARLIST           WRITE MACRO ONTO RLIST FILE           CALL      254
                                                                                                                 CALL      255
                                        *         PROCESS RETURNS LIST FOR DEBUG MODE                            CALL      256
                                                                                                                 CALL      257
           140  5110000010 +                      SA1    SRLIST                                                  CALL      258
                          0301000014 +            ZR     X1,CALL           EXIT IF NO RETURNS LIST               CALL      259
           141  5120000007 +                      SA2    TRCFLG                                                  CALL      260
                          0312000201 +            NZ     X2,RESET          EXIT IF NO TRACING                    CALL      261
           142  5130000000 X                      SA3    DBGAPL                                                  CALL      262
                          10633                   BX6    X3                                                      CALL      263
           143  5160000003 +                      SA6    TS1               SAVE SUBNAME ORDINAL                  CALL      264
                          5120000000 X            SA2    N.GL                                                    CALL      265
           144  7262100000                        SX6    X2+I.GL     IH = GL(NGLN)                               CALL      266
                          5160000001 +            SA6    UCJM+1                                                  CALL      267
           145  6170000000 +                      WRM    UCJM        OUTPUT UJP MACRO TO RLIST                   CALL      268
                                                                                                                 CALL      269
           146  5110000003 +             NXTLAB   SA1    TS1                                                     CALL      270
                          73210                   SX2    X1          IH(CON.)                                    CALL      271
                               21136              AX1    30                                                      CALL      272
           147  20122                             LX1    AP.CAP                                                  CALL      273
                     12612                        BX6    X1+X2                                                   CALL      274
                          5160000001 X            SA6    =XAPLST+1                                               CALL      275
           150  6170000000 X                      WRM    APLST                                                   CALL      276
           151  5110000010 +                      SA1    SRLIST                                                  CALL      277
                          5130000000 X            SA3    =XLABEL.                                                FCC0418    95
           152  53210                             SA2    X1                                                      CALL      279
                     20230                        LX2    -36                                                     CALL      280
                          7242777776              SX4    X2-1        CA                                          CALL      281
           153  20422                             LX4    AP.CAP                                                  CALL      282
                     12634                        BX6    X3+X4                                                   CALL      283
                          5160000001 X            SA6    =XAPLST+1                                               CALL      284
           154  6170000000 X                      WRM    APLST                                                   CALL      285
           155  5130000010 +                      SA3    SRLIST                                                  CALL      286
                          53430                   SA4    X3                                                      CALL      287
                               10644              BX6    X4                                                      CALL      288
           156  21622                             AX6    18          POSITION RN OF DESTINATION LABEL            CALL      289
                     7254100000                   SX5    X4+I.GL                                                 CALL      290
           157  5160000001 +                      SA6    UCJM+1                                                  CALL      291
                          0100000000 X            CALL   WLABM                                                   CALL      292
           160  5110000270 +                      SYMBOL =8RBUGCLR                                               CALL      293
           162  5130000000 X                      SA3    =XDBGEXT                                                CALL      294
                          12723                   BX7    X2+X3       SET CGS AND EXT BITS                        CALL      295
                               54720              SA7    A2                                                      CALL      296
           163  5110000000 X                      SA1    =XN.AP                                                  CALL      297
                          76310                   SX3    B1                                                      CALL      298
                               73715              SX7    X1+B5       INCREMENT N.AP                              CALL      299
           164  7221200000                        SX2    X1+I.AP                                                 CALL      300
                          5150000002 +            SA5    GEFM                                                    CALL      301
           165  20236                             LX2    RM.IHL                                                  CALL      302
                     54710                        SA7    A1                                                      CALL      303
                          10755                   BX7    X5                                                      CALL      304
           166  5140000037                        SA4    CDCNT                                                   CALL      305
                          5170000000 X            SA7    DBGAPL      STORE GEF MACRO HEADER                      CALL      306
           167  12623                             BX6    X2+X3       CREATE 1ST WORD OF GEF PARAMETERS           CALL      307
                     10744                        BX7    X4                                                      CALL      308
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     8
  
  
                          54675                   SA6    A7+B5                                                   CALL      309
                               54765              SA7    A6+B5                                                   CALL      310
           170  6170000000 X                      WRM    DBGAPL                                                  CALL      311
           171  6170000000 +                      WRM    UCJM                                                    CALL      312
           172  5110000010 +                      SA1    SRLIST                                                  CALL      313
                          5221777776              SA2    X1-1              GET NEXT ELEMENT                      CALL      314
           173  6150000001                        SB5    1                                                       CALL      315
                          26012                   UX0    B1,X2                                                   CALL      316
           174  6120000002                        SB2    EL.)                                                    CALL      317
                          0412000177 +            EQ     B1,B2,LABEL       ADD LABEL IF FINISHED                 CALL      318
           175  75625                             SX6    A2-B5                                                   CALL      319
                     5160000010 +                 SA6    SRLIST            UPDATE POINTER                        CALL      320
           176  0400000146 +                      EQ     NXTLAB            GO PROCESS NEXT LABEL                 CALL      321
                                                                                                                 CALL      322
           177  5120000000 X             LABEL    SA2    N.GL                                                    CALL      323
                          73725                   SX7    X2+B5       NGLN = NGLN + 1                             CALL      324
                               54720              SA7    A2                                                      CALL      325
           200  7252100000                        SX5    X2+I.GL                                                 CALL      326
                          0100000000 X            CALL   WLABM       #GLNNN LABEL DEF TO RLIST                   CALL      327
           201  43600                    RESET    MX6    0                                                       CALL      328
                     5160000010 +                 SA6    SRLIST            RESET POINTER                         CALL      329
           202  0400000014 +                      EQ     CALL              EXIT                                  CALL      330
                                                                                                                 CALL      331
                                        *         ERROR PROCESSING.                                              CALL      332
                                                                                                                 CALL      333
           203  6140000000               CALLE1   SB4    0           (SELIST) POINTS AT ERROR                    CALL      334
                          0400000207 +            EQ     CALLE5                                                  CALL      335
                                                                                                                 CALL      336
           204  6140000001               CALLE2   SB4    1           (SELIST) POINTS PAST ERROR                  CALL      337
                          0400000207 +            EQ     CALLE5                                                  CALL      338
                                                                                                                 CALL      339
           205  6140777776               CALLE3   SB4    -1          (SELIST) POINTS BEFORE ERROR                CALL      340
                          0400000207 +            EQ     CALLE5                                                  CALL      341
                                                                                                                 CALL      342
           206  6140777775               CALLE4   SB4    -2          (SELIST) POINTS 2 BEFORE ERROR              CALL      343
                                                                                                                 CALL      344
           207  5110000032               CALLE5   SA1    SELIST                                                  CALL      345
                          53414                   POSTER SEV=FE,NR=E171,FMT=ELIST,TXT=X1+B4,RETURN=PH2RETN       CALL      346
                                                                                                                 CALL      347
           212  5244000001               CALLE6   POSTER SEV=FE,NR=E317,FMT=ELIST,TXT=X4+1,RETURN=PH2RETN        FCCA537     6
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE     9
  
  
                                        ***                                                                      CALL      350
                                        *         FARGLST: FORM ARGLIST FOR DEBUG CALLS                          CALL      351
                                        *                  TYPECLL = 0 FOR CALL TRACING                          CALL      352
                                        *                            1 FOR NORMAL RETURNS TRACING                CALL      353
                                        *                                                                        CALL      354
                                                                                                                 FCC0623    50
           214                     1     FLA      BSS    1                                                       FCC0623    51
                                                                                                                 FCC0623    52
           215  0400400215 +             FARGLST  ENTRY. **                ENTRY/EXIT                            CALL      355
           216  5110000004 C                      SA1    SUBNAME           SUBNAME IN E-LIST FORM                CALL      356
                          20114                   LX1    12                POSITION AT TOP OF REGISTER           CALL      357
           217  0100000000 X                      CALL   STRIP             REMOVE POSSIBLE TRAILING $            FCC0418    96
           220  6110000001                        SB1    1                                                       CALL      359
                          0100000000 X            RJ     CONVERT           PLACE WORD IN CONS TABLE              CALL      360
           221  10611                             BX6    X1                                                      CALL      361
                     5160000000 X                 SA6    DBGAPL            BEGIN BUILDING ARG LIST TABLE         CALL      362
                               43700              MX7    0                                                       FCC1588X    9
           222  5110000006 +                      SA1    TYPECLL                                                 CALL      363
                          7160000271 +            SX6    =8RBUGCL1                                               FCC1588X   10
           223  0301000224 +                      ZR     X1,FAR2     IF TRACE PRECEDES ACTUAL CALL               FCC1588X   11
                          7160000272 +            SX6    =8RBUGCL2                                               FCC1588X   12
           224  54761                    FAR2     SA7    A6+B1                                                   FCC1588X   13
                     54671                        SA6    A7+B1                                                   FCC1588X   14
                          5110000000 X            SA1    =XSTAPLC                                                FCC0623    53
           225  10611                             BX6    X1                                                      FCC0623    55
                     54710                        SA7    A1          NO STORE TO APLIST CHAIN POINTER FOR DEBUG  FCC0623    56
                          5160000214 +            SA6    FLA                                                     FCC0623    57
           226  5110000000 X                      SA1    DBGAPL                                                  CALL      372
                          5120000000 X            SA2    N.AP                                                    CALL      373
           227  10622                             BX6    X2                                                      CALL      374
                     7272000001                   SX7    X2+1                                                    CALL      375
                               54720              SA7    A2                                                      CALL      376
           230  0100000243 +                      RJ     IGCALL            GENERATE CALL MACRO                   CALL      377
           231  5120000002 X                      SA2    DBGAPL+2    (X2) = ADDR OF DEBUG ROUTINE NAME           FCC1588X   15
                          53120                   SYMBOL X2,*+1-*P/60D     SYMBOL GUARANTEED TO BE IN SYMTAB     FCC1588X   16
           233  7160000014                        SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD         CALL      381
                          20670                   LX6    P.TYP                SO REFERENCE WONT APPEAR IN        CALL      382
                               12762              BX7    X6+X2                THE REFERENCE MAP                  CALL      383
           234  54720                             SA7    A2                                                      CALL      384
                     5110000214 +                 SA1    FLA                                                     FCC0623    58
                               10611              BX6    X1                                                      FCC0623    59
           235  5160000000 X                      SA6    STAPLC                                                  FCC0623    60
                          0400000215 +            EQ     FARGLST                                                 CALL      385
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE    10
         IGCALL - INTERNALLY GENERATED CALL 
  
                                        ***                                                                      CALL      387
                                        *         IGCALL - FORM AND WRITE RLIST FOR A SUBROUTINE CALL            CALL      388
                                        *                                                                        CALL      389
                                        *         ENTRY:                                                         CALL      390
                                        *                A1 = ADDRESS OF THE PARAMETER LIST                      CALL      391
                                        *                X6 = APLIST NUMBER FOR ARG LIST, IF ANY                 CALL      392
                                        *                FORMAT OF THE PARAMETER LIST IS:                        CALL      393
                                        *                12/0,18/CA,30/IH FOR ARG N , ...                        CALL      394
                                        *                A ZERO WORD                                             CALL      395
                                        *                VFD  60/=8R_SUBROUTINE NAME                             CALL      396
                                        *                                                                        CALL      397
           236  43001                    IGCALL2  MX0    1                 NOT IN TABLE                          CALL      398
                     20067                        LX0    1+P.EXT                                                 CALL      399
                          12702                   BX7    X0+X2             SET EXTERNAL BIT                      CALL      400
                               54720              SA7    A2                                                      CALL      401
                                                                                                                 CALL      402
           237  5110000003 +                      SA1    TS1               APLIST NUMBER/0                       CALL      403
                          76210                   SX2    B1                IH OF FUNCTION                        CALL      404
                               54515              SA5    A1+B5                                                   CALL      405
           240  5140000000 X                      SA4    =XSTAPLC                                                CALL      406
                          5130000037              SA3    CDCNT       LINE COUNT                                  CALL      407
           241  0100000000 X                      RJ     GEFCM                                                   CALL      408
           242  0100000000 X                      RJ     DOCALL            INFORM DOPROC OF EXTERNAL CALL        CALL      409
                                                                                                                 CALL      410
           243  00000000000000000000     IGCALL   ENTRY.                                                         CALL      411
           244  43700                             MX7    0                                                       CALL      412
                     0301000257 +                 ZR     X1,IGCALL3        IF NO ARGS                            CALL      413
                                                                                                                 CALL      414
           245  5160000003 +                      SA6    TS1                                                     CALL      415
           246  7061000001               IGCALL.L SX6    A1+1                                                    CALL      416
                          43036                   MX0    30                                                      CALL      417
           247  5160000005 +                      SA6    LOCA              SAVE NEXT WORD ADDRESS                CALL      418
                          11301                   BX3    X0*X1             EXTRACT CA                            CALL      419
                               20336              LX3    30                                                      CALL      420
           250  15210                             BX2    -X0*X1            EXTRACT IH                            CALL      421
                     43100                        MX1    0                                                       CALL      422
                          37444                   IX4    X4-X4                                                   CALL      423
           251  0100000000 X                      RJ     APLRT                                                   CALL      424
           252  5120000005 +                      SA2    LOCA                                                    CALL      425
                          53120                   SA1    X2                                                      CALL      426
           253  0311000246 +                      NZ     X1,IGCALL.L       LOOP IF MORE ARGS                     CALL      427
                                                                                                                 CALL      428
                                        *         FORM RLIST FOR  SA1  [APN                                      CALL      429
                                                                                                                 CALL      430
           254  43600                    IGCALL4  MX6    0                                                       CALL      431
                     5160000004 +                 SA6    TS1+1                                                   CALL      432
                                                                                                                 CALL      433
                                        *         FORM A RETURN JUMP TO THE SUBROUTINE                           CALL      434
                                                                                                                 CALL      435
           255  5021000001               IGCALL1  SA2    A1+1              ADDRESS OF SUB NAME                   CALL      436
                          53120                   SA1    X2                FETCH NAME                            CALL      437
           256  6170000236 +                      SYMBOL ,IGCALL2          ENTER NAME IN SYMTAB                  CALL      438
                                                                                                                 CALL      439
           257  74610                    IGCALL3  SX6    A1                                                      CALL      440
                     5160000005 +                 SA6    LOCA              SAVE ADDR OF DBGAPL                   CALL      441
                               43100              MX1    0                                                       CALL      442
           260  5120000000 X                      SA2    ZFLAG                                                   CALL      443
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE    11
         IGCALL - INTERNALLY GENERATED CALL 
  
                          0302000264 +            ZR     X2,IGCALL5        IF NO ZERO WORD LOAD REQUIRED         CALL      444
           261  6110000002                        SB1    2                                                       CALL      445
                          43200                   MX2    0                                                       CALL      446
           262  0100000000 X                      CALL   CONVERT     DOUBLE ZERO WORD IN CONTAB ( FOR ADDSUB LP  CALL      447
           263  7120200000                        SX2    I.AP                                                    CALL      448
           264  43036                    IGCALL5  MX0    30                                                      CALL      449
                     15610                        BX6    -X0*X1            IH OF CON.                            CALL      450
                          37662                   IX6    X6-X2                                                   CALL      451
           265  5160000003 +                      SA6    TS1                                                     CALL      452
                          11701                   BX7    X0*X1             CA                                    CALL      453
                               20736              LX7    30                                                      CALL      454
           266  5076000001                        SA7    A6+1                                                    CALL      455
                          5120000005 +            SA2    LOCA              RESTORE ADDR OF DBGAPL                CALL      456
           267  53120                             SA1    X2                                                      CALL      457
                     0400000255 +                 EQ     IGCALL1                                                 CALL      458
           273                                    END                                                            CALL      459
  
                             65200B CM  STORAGE USED              696 STATEMENTS      612 SYMBOLS      000006 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.827 SECONDS         271 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACALL           0   EXTERNAL*       1/51 X    4/30
        ACNT           13   PROGRAM*        3/20 L    5/03 S    5/14      6/20
        ADDREF          0   EXTERNAL*       6/27
        APLRT           0   EXTERNAL*       1/50 X    4/49      6/06     10/38
        APLST           0   EXTERNAL*       7/24 S    7/25      7/33 S    7/34
        AP.CAP         22   FTNTEXT         7/22      7/31
        ARGCNT          2   CLNFO           3/13 L    4/57      6/35
        ARLPT           5   CLNFO           3/16 L    7/02
        ASAER           0   EXTERNAL*       6/23
        CALL           14   PROGRAM*        4/01 E    4/01 L    7/08      8/22
        CALLE1        203   PROGRAM*        4/10      4/25      4/55      8/26 L
        CALLE2        204   PROGRAM*        4/40      8/29 L
        CALLE3        205   PROGRAM*        5/08      6/14      8/32 L
        CALLE4        206   PROGRAM*        5/13      6/18      8/35 L
        CALLE5        207   PROGRAM*        8/27      8/30      8/33      8/37 L
        CALLE6        212   PROGRAM*        6/22      8/40 L
        CALL0          31   PROGRAM*        4/22      4/24      4/27 L
        CALL1          32   PROGRAM*        4/21      4/29 L
        CALL2          33   PROGRAM*        4/28      4/30 L
        CALL30        113   PROGRAM*        4/39      6/25 L
        CALL31        116   PROGRAM*        6/26      6/29 L
        CALL42         76   PROGRAM*        5/30      5/57 L
        CALL43         63   PROGRAM*        5/23      5/29 L
        CALL44         53   PROGRAM*        5/11 L    6/13
        CALL45         77   PROGRAM*        5/55      6/02 L
        CDCNT          37                   2/02 D    6/51      6/55      7/54     10/21
        CONVERT         0   EXTERNAL*       1/50 X    9/14     11/04
        DARLIST         0   EXTERNAL*       1/50 X    7/03
        DBGAPL          0   EXTERNAL*       1/50 X    6/30 S    7/11      7/55 S    8/03      9/16 S    9/28      9/34
        DBGEXT          0   EXTERNAL*       7/43
        DOCALL          0   EXTERNAL*       1/52 X    4/03     10/23
        DOLABR          0   EXTERNAL*       1/53 X    5/36      5/57
        EL.COMMA        3   FTNTEXT         4/23      4/35      6/11
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE    12
        SYMBOLIC REFERENCE TABLE. 
  
        EL.EOS          4   FTNTEXT         4/20      4/33      6/16
        EL.(            6   FTNTEXT         4/19      5/06
        EL.)            2   FTNTEXT         6/12      8/09
        ERPRO           0   EXTERNAL*       5/25      8/38      8/40
        E171          253                   2/10 D    8/38
        E172          254                   2/11 D    5/25
        E182          266                   2/12 D    6/23
        E317          475                   2/09 D    8/40
        FARGLST       215   PROGRAM*        6/54      9/09 E    9/09 L    9/43
        FAR2          224   PROGRAM*        9/20      9/22 L
        FLA           214   PROGRAM*        9/07 L    9/27 S    9/40
        GEFCM           0   EXTERNAL*       1/50 X   10/22
        GEFM            2   PROGRAM*        2/21 L    7/50
        GEFMC         124                   2/17 D    2/17      2/21
        IDOP            1                   2/05 D    3/19
        IGCALL        243   PROGRAM*        6/34 S    9/33     10/25 E   10/25 L
        IGCALL1       255   PROGRAM*       10/50 L   11/15
        IGCALL2       236   PROGRAM*       10/12 L   10/52
        IGCALL3       257   PROGRAM*        6/36     10/27     10/54 L
        IGCALL4       254   PROGRAM*        6/43     10/45 L
        IGCALL5       264   PROGRAM*       11/01     11/06 L
        IGCALL.L      246   PROGRAM*       10/30 L   10/41
        INITR           0   EXTERNAL*       1/50 X    4/02
        I.AP       200000   FTNTEXT         7/49     11/05
        I.GL       100000   FTNTEXT         5/44      7/15      7/39      8/18
        LABEL         177   PROGRAM*        8/10      8/15 L
        LABEL.          0   EXTERNAL*       7/27
        LOCA            5   PROGRAM*        3/04 L   10/32 S   10/39     10/55 S   11/13
        L.TRO          14   FTNTEXT         5/37
        MACNUM        125                   2/16 D    2/17 D
        MXARGS         77                   2/03 D    6/21
        M.UCJ         105                   2/16 D    2/16      2/19
        NARGSF          3   CLNFO           3/14 L    4/05 S    4/27 S
        NXTLAB        146   PROGRAM*        7/19 L    8/13
        N.AP            0   EXTERNAL*       6/38      7/46      9/29
        N.GL            0   EXTERNAL*       5/43      7/14      8/15
        PH2RETN         0   EXTERNAL*       1/54 X    5/25      8/38      8/40
        P.EXT          66   FTNTEXT        10/13
        P.TRO          30   FTNTEXT         5/38
        P.TYP          70   FTNTEXT         9/37
        RESET         201   PROGRAM*        7/10      8/20 L
        RETS           12   PROGRAM*        3/19 L    4/53
        RETURNS         0   EXTERNAL*       5/04 S
        RM.IHL         36   FTNTEXT         7/51
        RSELECT         0   EXTERNAL*       1/55 X    6/25
        RTNS          130   PROGRAM*        6/34      6/47 L
        RTNS.         136   PROGRAM*        6/48      7/01 L
        SELIST         32                   2/01 D    4/12 S    4/29 S    4/38 S    5/20 S    6/08      8/37
                                            4/07      4/15      4/32      4/51      5/52      6/19
        SRLIST         10   PROGRAM*        3/07 L    5/10 S    7/07      7/26      7/35      8/05      8/12 S    8/21 S
        STAPLC          0   EXTERNAL*       9/24      9/42 S   10/20
        STRIP           0   EXTERNAL*       9/12
        SUBFWA          0   CLNFO           3/11 L
        SUBH            1   CLNFO           3/12 L    6/27
        SUBNAME         4   CLNFO           3/15 L    4/14 S    6/31      9/10
        SYMBOL          0   EXTERNAL*       7/42      9/35     10/52
        TRACEL          0   EXTERNAL*       5/31      5/51 S
1        CALL - CALL STATEMENT PROCESSOR                              COMPASS 3.7-871.     24/05/02. 15.54.27.      PAGE    13
        SYMBOLIC REFERENCE TABLE. 
  
        TRCFLG          7   PROGRAM*        3/06 L    4/31 S    5/29      7/09
        TRCTS          11   PROGRAM*        3/08 L    5/35 S    5/49
        TS1             3   PROGRAM*        3/03 L    6/42 S    7/13 S    7/19     10/17     10/29 S   10/46 S   11/09 S
        TYPECLL         6   PROGRAM*        3/05 E    3/05 L    6/47      9/18
        T.CGS          14   FTNTEXT         9/36
        T.INT           1   FTNTEXT         5/22
        UCJM            0   PROGRAM*        2/19 L    7/16 S    7/17      7/40 S    8/04
        WLABM           0   EXTERNAL*       7/41      8/19
        WRM             0   EXTERNAL*       7/17      7/25      7/34      8/03      8/04
        ZFLAG           0   EXTERNAL*       1/56 X   10/57
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      420              IDENT  GOTO 
                        420                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       413 
                                        LITERALS* LOCAL         413         5 
                                        MACBUF    COMMON          0        16 
                                        STSORD    COMMON          0         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=GOTO           0+           GOTO            63+ 
                                        PLAB             7+           ASSIGN         356+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ERPRO     IGCALL    ST.       LABCON    WTW=      N.AP      PH2RETN 
                                        ASAER     RSELECT   TRACEL    DARLIST   F.RLST    INITR     DOLABR
                                        ERPROI    DOFLAG    O.LTAB    ARLPT     N.GL      EQCOUNT   ALLOC 
                                        DFLAG     GOTOSFL   L.LTAB    CONVERT   ADDREF    CFO       Z.LTAB
                                        OPTLVL    LABEL.    PSYM      ARITH     WRM       SYMBOL
  
  
  
  
                                                  IDENT  GOTO                                                    GOTO        2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
  
  
  
                                        **        GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR.                    GOTO        6
                                        *                                                                        GOTO        7
                                        *         STATEMENTS PROCESSED -                                         GOTO        8
                                        *                                                                        GOTO        9
                                        *                GOTO <LABEL> <EOS>                                      GOTO       10
                                        *                GOTO <IVAR> , <LABEL LIST> <EOS>                        GOTO       11
                                        *                GOTO <LABEL LIST> , <EXPRESSION> <EOS>                  GOTO       12
                                        *                GOTO <LABEL LIST> <EXPRESSION> <EOS>                    GOTO       13
                                        *                <LABEL LIST> ::= (<LABEL>,<LABEL>,...)                  GOTO       14
                                        *                                                                        GOTO       15
                                                                                                                 GOTO       16
             0                           B=GOTO   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     GOTO       17
                                                  EXT    ERPRO,ASAER,ERPROI                                      GOTO       18
                                                  EXT    DFLAG,OPTLVL,IGCALL,RSELECT                             GOTO       19
                                                  EXT    DOFLAG,GOTOSFL,LABEL.,ST.,TRACEL                        GOTO       20
                                                  TABLES LTAB                                                    GOTO       21
                                                                                                                 GOTO       22
                                  12     SYM1     EQU    12B                                                     GOTO       23
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     2
                                                                      GOTO
  
                                  17     DIM1     EQU    17B                                                     GOTO       24
                                  32     SELIST   EQU    32B                                                     GOTO       25
                                  23     CLABEL   EQU    23B                                                     GOTO       26
                                  37     DUKE     EQU    37B               BINARY LINE COUNT                     GOTO       27
                                  60     NLABEL   EQU    60B                                                     GOTO       28
                                  64     NRLN     EQU    64B                                                     GOTO       29
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     3
  
  
                                        *         ERROR NUMBERS                                                  GOTO       31
                                                                                                                 GOTO       32
                                 145     E.GO1    EQU    101               GO TO STMT - SYNTAX ERROR             GOTO       33
                                 146     E.GO2    EQU    102               MISSING OR SYNTAX ERROR IN LABEL LIST GOTO       34
                                 147     E.GOASA  EQU    103               GO TO STMT - NON USASA USEAGES        GOTO       35
                                 301     E.GO193  EQU    193               STMT BRANCHS TO ITSELF                GOTO       36
                                 470     E.GOEFF  EQU    312         IF STATEMENT MORE EFFICIENT THAN GOTO       GOTO       37
                                                                                                                 GOTO       38
                                        *         RLIST MACRO NUMBERS                                            GOTO       39
                                                                                                                 GOTO       40
                                         M.UCJ    RMEQU  105B        UNCONDITIONAL JUMP MACRO ORDINAL            GOTO       41
                                         M.AGO    RMEQU  107B        ASSIGNED GO TO MACRO ORDINAL                GOTO       42
                                         M.CGO    RMEQU  110B        COMPUTED GO TO MACRO ORDINAL                GOTO       43
                                         M.LOAD   RMEQU  133B        LOAD                                        GOTO       44
                                         M.STOR   RMEQU  134B        STORE                                       GOTO       45
                                         M.XMIT   RMEQU  135B        XMIT                                        GOTO       46
                                         M.JPB0   RMEQU  416B        JP B0+0 MACRO ORDINAL                       GOTO       47
                                                                                                                 GOTO       48
                                        *         RLIST MACRO HEADER WORDS                                       GOTO       49
                                                                                                                 GOTO       50
             0  16720000010000000000     UCJM     RMHDR  M.UCJ,1                                                 GOTO       51
             1  16700000020000000000     AGOMAC   RMHDR  M.AGO,2                                                 GOTO       52
             2  16670000030000000000     CGOM     RMHDR  M.CGO,3                                                 GOTO       53
             3  13610000000000000000     JPB0M    RMHDR  M.JPB0,0                                                GOTO       54
             4  16440000030000000000     LOAD     RMHDR  M.LOAD,3                                                GOTO       55
             5  16420000010000000000     XMIT     RMHDR  M.XMIT,1                                                GOTO       56
             6  16430000030000000000     STOR     RMHDR  M.STOR,3                                                GOTO       57
  
  
  
                                                  USE    /MACBUF/                                                GOTO       59
             0  00000000000000000000     BRSELF                            BRANCH TO CURRENT LABEL FLAG          GOTO       60
             1  00000000000000000000     ASA                               ASA FLAG                              GOTO       61
             2                     7     MACBUF   BSSZ   7                 MACRO BUFFER                          GOTO       62
            11                     1     TEMP     BSSZ   1                 A GENERAL TEMPORARY                   GOTO       63
            12                     4              BSSZ   4                 PADDING                               GOTO       64
                                                  USE    *                                                       GOTO       65
                                                                                                                 GOTO       66
                                                  USE    /STSORD/                                                GOTO       67
             0                     1     STSORD   BSS    1                 HOLDS ORDINAL FOR ST. ARRAY           GOTO       68
                                                  USE    *                                                       GOTO       69
                                                                                                                 GOTO       70
                                  10 C   AGOCALL  EQU    MACBUF+6          4 WORD BUFFER FOR IGCALL PARAM LIST   GOTO       71
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     4
         PLAB - PROCESS A LIST OF TRANSFER LABELS 
  
                                        ***                                                                      GOTO       73
                                        *         PLAB - PROCESS A LIST OF TRANSFER LABELS                       GOTO       74
                                        *                                                                        GOTO       75
                                        *         ENTRY:                                                         GOTO       76
                                        *                SELIST POINTS TO THE FIRST TRANSFER LABEL               GOTO       77
                                        *                A0 = ADDRESS FOR RETURN IN CASE OF AN ERROR             GOTO       78
                                        *                B6 = ERROR NUMBER TO BE USED IN CASE OF A SYNTAX ERROR  GOTO       79
                                        *                B7 = E LIST CODE FOR LIST TERMINATOR                    GOTO       80
                                        *                                                                        GOTO       81
                                        *         EXIT:                                                          GOTO       82
                                        *                A1,X1 = SELIST,(SELIST) POINTS PAST THE TERMINATOR      GOTO       83
                                        *                O.LTAB = FWA OF THE LIST OF LABELS                      GOTO       84
                                        *                X6 = (L.LTAB) = NUMBER OF LABELS                        GOTO       85
                                        *                X7 = 10H_LABEL  FOR THE LAST LABEL                      GOTO       86
                                        *                A0 = (SYM1)                                             GOTO       87
                                        *                ENTRIES IN "LTAB" HAVE THE FORMAT:                      GOTO       88
                                        *                  12/2000B+OC.UCJ,48/SYMTAB ORDINAL                     GOTO       89
                                        *                                                                        GOTO       90
                                                                                                                 GOTO       91
             7  00000000000000000000     PLAB     ENTRY.                                                         GOTO       92
                                                                                                                 GOTO       93
                                        *         RUN A SYNTAX CHECK ON THE LIST AND COUNT THE NUMBER OF LABELS  GOTO       94
                                                                                                                 GOTO       95
            10  5110000032                        SA1    SELIST                                                  GOTO       96
                          6140000003              SB4    EL.COMMA                                                GOTO       97
            11  43700                             MX7    0                 NUMBER OF LABELS                      GOTO       98
                     63110                        SB1    X1                                                      GOTO       99
                          43073                   MX0    59                X0 = -1                               GOTO      100
                                                                                                                 GOTO      101
            12  56310                    PLABL    SA3    B1                LABEL                                 GOTO      102
                     57415                        SA4    B1-B5             SEPERATOR                             GOTO      103
                          26523                   UX5    B2,X3                                                   GOTO      104
                               65145              SB1    A4-B5             ADVANCE E LIST POINTER                GOTO      105
            13  26634                             UX6    B3,X4                                                   GOTO      106
                     0520000037 +                 NZ     B2,PLABE          IF NOT A CONSTANT                     GOTO      107
                               37770              IX7    X7-X0             NLAB = NLAB+1                         GOTO      108
            14  21555                             AX5    45                                                      GOTO      109
                     7265777776                   SX6    X5-T.INT                                                GOTO      110
            15  0316000037 +                      NZ     X6,PLABE          IF NOT TYPE INTEGER                   GOTO      111
                          0434000012 +            EQ     B3,B4,PLABL       LOOP IF A COMMA                       GOTO      112
            16  0537000037 +                      NE     B3,B7,PLABE       IF NO PROPER TERMINATOR               GOTO      113
                                                                                                                 GOTO      114
                          5170000011 C            SA7    TEMP              SAVE NUMBER OF LABELS                 GOTO      115
            17  10577                             ALLOC  LTAB,X7           GET SPACE                             GOTO      116
            21  5110000032                        SA1    SELIST                                                  GOTO      117
                          5120000011 C            SA2    TEMP                                                    GOTO      118
            22  10722                             BX7    X2                                                      GOTO      119
                     5170000000 X                 SA7    L.LTAB                                                  GOTO      120
                               43600              MX6    0                                                       GOTO      121
            23  54620                             SA6    A2                CLEAR INDEX TO LTAB                   GOTO      122
                                                                                                                 GOTO      123
                                        *         LOOP THROUGH THE LIST AGAIN AND FORM THE TABLE                 GOTO      124
                                                                                                                 GOTO      125
            24  53210                    PLAB2    SA2    X1                E LIST FOR THE LABEL                  GOTO      126
                     0100000000 X                 CALL   DOLABR            GET SYMTAB ORDINAL, ETC.              GOTO      127
            25  5130000023                        SA3    CLABEL                                                  GOTO      128
                          5140000000 X            SA4    O.LTAB                                                  GOTO      129
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     5
         PLAB - PROCESS A LIST OF TRANSFER LABELS 
  
            26  43060                             MX0    60-L.TRO                                                GOTO      130
                     20244                        LX2    60-P.TRO          POSITION LABEL TABLE ORDINAL          GOTO      131
                          15520                   BX5    -X0*X2            GET LABEL TABLE ORDINAL               GOTO      132
                               20536              LX5    R1.INP                                                  GOTO      133
            27  37673                             IX6    X7-X3                                                   GOTO      134
                     5130000011 C                 SA3    TEMP              TABLE INDEX                           GOTO      135
            30  0316000031 +                      NZ     X6,PLAB2A         IF NOT A BRANCH TO THE CURRENT LABEL  GOTO      136
                          5160000000 C            SA6    BRSELF            CLEAR FLAG                            GOTO      137
                                                                                                                 GOTO      138
            31  5110000032               PLAB2A   SA1    SELIST                                                  GOTO      139
                          6130000073              SB3    OC.UJP                                                  GOTO      140
            32  7211777775                        SX1    X1-2                                                    GOTO      141
                          36043                   IX0    X4+X3             TABLE ADDRESS                         GOTO      142
                               10611              BX6    X1                                                      GOTO      143
            33  54610                             SA6    A1                UPDATE SELIST                         GOTO      144
                     76410                        SX4    B1                                                      GOTO      145
                          12454                   BX4    X5+X4             FORM CA, I, H WORD                    GOTO      146
                               27634              PX6    B3,X4                                                   GOTO      147
            34  53600                             SA6    X0                STORE ENTRY IN LTAB                   GOTO      148
                                                                                                                 GOTO      149
                     5150000000 X                 SA5    L.LTAB                                                  GOTO      150
                               73635              SX6    X3+B5             INDEX = INDEX+1                       GOTO      151
            35  54630                             SA6    A3                UPDATE TEMP                           GOTO      152
                     37065                        IX0    X6-X5                                                   GOTO      153
                          0330000024 +            NG     X0,PLAB2          LOOP IF TEMP < L.LTAB                 GOTO      154
            36  0400000007 +                      EQ     PLAB                                                    GOTO      155
                                                                                                                 GOTO      156
                                        *         SYNTAX ERROR IN THE LIST OF LABELS                             GOTO      157
                                                                                                                 GOTO      158
            37  64700                    PLABE    SB7    A0                RETURN ADDRESS                        GOTO      159
                     0400000000 X                 EQ     ERPRO                                                   GOTO      160
  
  
  
                                         PLAB     MACRO  TERM,ERNUM,RETURN                                       GOTO      162
                                                  SA0    RETURN                                                  GOTO      163
                                                  SB6    -ERNUM                                                  GOTO      164
                                                  SB7    TERM                                                    GOTO      165
                                                  RJ     PLAB                                                    GOTO      166
                                                  ENDM                                                           GOTO      167
  
  
  
  
            40  76210                    AGVARX   SX2    B1                                                      GOTO      169
                     0100000000 X                 RJ     PSYM                                                    GOTO      170
            41  6160000263                        SB6    E.ASGN2                                                 GOTO      171
                          6170000000 X            SB7    =XPH2RETN                                               GOTO      172
            42  0400000000 X                      EQ     ERPRO                                                   GOTO      173
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     6
         AGVAR
  
                                        ***                                                                      GOTO      175
                                        *         AGVAR - PROCESS VARIABLE FOR ASSIGN AND ASSIGNED GOTO STMTS    GOTO      176
                                        *                                                                        GOTO      177
                                        *         ON ENTRY:                                                      GOTO      178
                                        *                X1 = NAME                                               GOTO      179
                                        *                                                                        GOTO      180
                                        *         ON EXIT:                                                       GOTO      181
                                        *                B1 = SYMTAB ORDINAL                                     GOTO      182
                                        *                X5 = ORDINAL OF VARIABLE OR IH OF EQUIVALENT            GOTO      183
                                        *                X7 = 0 OR CA OF EQUIVALENT                              GOTO      184
                                        *                                                                        GOTO      185
            43  00000000000000000000     AGVAR                                                                   GOTO      186
            44  6170000045 +                      SYMBOL                   ENTER NAME IN SYMBOL TABLE            GOTO      187
            45  0400000060 +                      EQ     AGVAR.T           FIRST OCCURANCE                       GOTO      188
                                                                                                                 GOTO      189
            46  0415000040 +                      EQ     B1,B5,AGVARX      ERROR IF ORDINAL 1                    GOTO      190
                          10311                   BX3    X1                                                      GOTO      191
                               20354              LX3    59-P.FUN                                                GOTO      192
            47  10422                             BX4    X2                                                      GOTO      193
                     20405                        LX4    59-P.EXT                                                GOTO      194
                          12534                   BX5    X3+X4                                                   GOTO      195
            50  0335000040 +                      NG     X5,AGVARX         ERROR IF A FUNCTION OR EXTERNAL       GOTO      196
                                                                                                                 GOTO      197
            51  76050                    AGVAR1   SX0    B5                                                      GOTO      198
                     20050                        LX0    P.VAR                                                   GOTO      199
                          12602                   BX6    X0+X2             SET VAR BIT                           GOTO      200
                               54620              SA6    A2                                                      GOTO      201
            52  21670                             AX6    P.TYP                                                   GOTO      202
                     7276777776                   SX7    X6-T.INT                                                GOTO      203
            53  0317000040 +                      NZ     X7,AGVARX         ERROR IF NOT TYPE INTEGER             GOTO      204
                          76510                   SX5    B1                ORD = ORD OF VARIABLE                 GOTO      205
                               20157              LX1    59-P.EQU                                                GOTO      206
            54  0321000043 +                      PL     X1,AGVAR          EXIT IF NOT EQUIVALENCED              GOTO      207
                                                                                                                 GOTO      208
                                        *         FETCH BASE AND BIAS OF EQUIVALENCED ENTRY                      GOTO      209
                                                                                                                 GOTO      210
                          5130000017              SA3    DIM1                                                    GOTO      211
            55  43060                             MX0    60-L.DIMP                                               GOTO      212
                     21251                        AX2    P.DIMP                                                  GOTO      213
                          15220                   BX2    -X0*X2            EXTRACT DIMP ORDINAL                  GOTO      214
                               20201              LX2    1                                                       GOTO      215
            56  36432                             IX4    X3+X2                                                   GOTO      216
                     53540                        SA5    X4                FETCH ENTRY                           GOTO      217
                          21522                   AX5    18                                                      GOTO      218
                               73750              SX7    X5                EXTRACT BIAS                          GOTO      219
            57  21522                             AX5    18                POSITION ORDINAL                      GOTO      220
                     73550                        SX5    X5                                                      GOTO      221
                          0400000043 +            EQ     AGVAR                                                   GOTO      222
                                                                                                                 GOTO      223
                                        *         FIRST OCCURANCE - SET TYPE                                     GOTO      224
                                                                                                                 GOTO      225
            60  36262                    AGVAR.T  IX2    X6+X2             ADD TYPE                              GOTO      226
                     0307000051 +                 ZR     X7,AGVAR1         IF NO PREVIOUS USE IN DEBUG STMTS     GOTO      227
                               43000              CFO    VAR               CHECK SETTING OF DEBUG BITS           GOTO      228
            62  0400000051 +                      EQ     AGVAR1                                                  GOTO      229
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     7
         UNCONDITIONAL AND ASSIGNED GOTO S
  
            63  00000000000000000000     GOTO     ENTRY.                                                         GOTO      231
            64  43600                             MX6    0                                                       GOTO      232
                     76750                        SX7    B5                                                      GOTO      233
                          5160000001 C            SA6    ASA                                                     GOTO      234
            65  5170000000 C                      SA7    BRSELF                                                  GOTO      235
                          5160000000 X            SA6    =XEQCOUNT                                               GOTO      236
                                                                                                                 GOTO      237
            66  5110000032                        SA1    SELIST                                                  GOTO      238
                          53210                   SA2    X1                                                      GOTO      239
                               55325              SA3    A2-B5             FETCH NEXT ENTRY                      GOTO      240
            67  26722                             UX7    X2,B2             B2 = CODE FOR FIRST ENTRY             GOTO      241
                     26633                        UX6    X3,B3             B3 = CODE FOR SECOND ENTRY            GOTO      242
                          6143777773              SB4    B3-EL.EOS         FOR EOS TEST                          GOTO      243
            70  0520000131 +                      NZ     B2,GOTOA          IF NOT A CONSTANT                     GOTO      244
                                                                                                                 GOTO      245
                          6160777632              SB6    -E.GO1                                                  GOTO      246
            71  0540000130 +                      NZ     B4,GOTOEX         IF NEXT IS NOT EOS                    GOTO      247
                                                                                                                 GOTO      248
                          53120                   SA1    X2                GET LABEL CONSTANT                    GOTO      249
            72  5130000060                        SA3    NLABEL            NEXT LINE LABEL                       GOTO      250
                          37631                   IX6    X3-X1             COMPARE                               GOTO      251
            73  0316000077 +                      NZ     X6,GOTO.                                                GOTO      252
                          5140000000 X            SA4    DFLAG             BRANCH TO NEXT STATEMENT NOT          GOTO      253
            74  0314000077 +                      NZ     X4,GOTO.             OPTIMIZED IN DEBUG MODE            GOTO      254
                          0100000000 X            RJ     DOLABR            PROCESS LABEL                         GOTO      255
            75  76050                             SX0    B5                                                      GOTO      256
                     20065                        LX0    P.RSN             POSITION BIT                          GOTO      257
                          15620                   BX6    -X0*X2            CLEAR RSN BIT FROM WORD B             GOTO      258
                               12764              BX7    X6+X4             RESTORE FORMER RSN BIT TO WORD B      GOTO      259
            76  54720                             SA7    A2                                                      GOTO      260
                     0400000063 +                 EQ     GOTO                                                    GOTO      261
            77                           GOTO.    BSS    0                                                       GOTO      262
                                                                                                                 GOTO      263
            77  5100000122 +                      PLAB   EL.EOS,E.GO2,GOTOX    PROCESS THE LABEL                 GOTO      264
                                                                                                                 GOTO      265
           101  5110000000 X                      SA1    TRACEL                                                  GOTO      266
                          5120000000 X            SA2    DOFLAG                                                  GOTO      267
           102  37612                             IX6    X1-X2                                                   GOTO      268
                     0336000116 +                 NG     X6,NOTRU          BRANCH IF NO FLOW TRACING             GOTO      269
           103  0100000000 X                      RJ     =XINITR           NEEDED TO SET UP ARLIST BUFFER        GOTO      270
           104  76211                             SX2    B1+B1             DOUBLE LABEL ORDINAL                  GOTO      271
                     5110000012                   SA1    SYM1              START OF SYMTAB                       GOTO      272
                               37312              IX3    X1-X2             ADDRESS OF SYMTAB ENTRY               GOTO      273
           105  5223777776                        SA2    X3-1              WORD B OF LABEL ENTRY                 GOTO      274
                          43060                   MX0    60-L.TRO                                                GOTO      275
                               20244              LX2    60-P.TRO          POSITION LABEL TABLE ORDINAL          GOTO      276
           106  15320                             BX3    -X0*X2            CA FIELD FOR APLIST                   GOTO      277
                     7233777776                   SX3    X3-1              ADJUST ORDINAL                        GOTO      278
                               20336              LX3    30                                                      GOTO      279
           107  5120000000 X                      SA2    LABEL.            ORDINAL FOR LABEL TABLE               GOTO      280
                          12632                   BX6    X3+X2             FORM ARGLIST ENTRY                    GOTO      281
           110  5160000010 C                      SA6    AGOCALL           WORD 1                                GOTO      282
                          43700                   MX7    0                                                       GOTO      283
                               54765              SA7    A6+B5             WORD 2                                GOTO      284
           111  7160000413 +                      SX6    =8RBUGTRU                                               GOTO      285
                          54675                   SA6    A7+B5             WORD 3                                GOTO      286
           112  5120000000 X                      SA2    =XN.AP                                                  GOTO      287
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     8
         UNCONDITIONAL AND ASSIGNED GOTO S
  
                          10622                   BX6    X2                                                      GOTO      288
                               73725              SX7    X2+B5             INCREMENT APLIST NUMBER               GOTO      289
           113  54720                             SA7    A2                                                      GOTO      290
                     5110000010 C                 SA1    AGOCALL                                                 GOTO      291
           114  0100000000 X                      RJ     IGCALL            GENERATE CALL                         GOTO      292
           115  5110000413 +                      SA1    =8RBUGTRU                                               GOTO      293
                          0100000345 +            CALL   ODCM        OUTPUT DEBUG CALL MACRO                     GOTO      294
           116                           NOTRU    BSS    0                                                       GOTO      295
                                                                                                                 GOTO      296
           116  5110000000 X                      SA1    O.LTAB                                                  GOTO      297
                          5130000000 +            SA3    UCJM                                                    GOTO      298
           117  53210                             SA2    X1                                                      GOTO      299
                     10633                        BX6    X3                                                      GOTO      300
                          73720                   SX7    X2                                                      GOTO      301
           120  5160000002 C                      SA6    MACBUF                                                  GOTO      302
                          54765                   SA7    A6+B5                                                   GOTO      303
                               64760              WRM    A6          UJP MACRO TO RLIST                          GOTO      304
                                                                                                                 GOTO      305
                                        *         GO TO EXIT - ISSUE INFORMATIVE DIAGNOSTICS                     GOTO      306
                                                                                                                 GOTO      307
           122  5110000000 C             GOTOX    SA1    BRSELF                                                  GOTO      308
                          0311000125 +            NZ     X1,GOTOXX         IF NO BRANCHS TO THE CURRENT LABEL    GOTO      309
           123  6160777476                        SB6    -E.GO193                                                GOTO      310
                          6170000125 +            SB7    GOTOXX                                                  GOTO      311
           124  0400000000 X                      EQ     ERPROI                                                  GOTO      312
                                                                                                                 GOTO      313
           125  5110000001 C             GOTOXX   SA1    ASA                                                     GOTO      314
                          0301000063 +            ZR     X1,GOTO           EXIT IF NO NON USASA USEAGES          GOTO      315
           126  6160777630                        SB6    -E.GOASA                                                GOTO      316
                          6170000063 +            SB7    GOTO                                                    GOTO      317
           127  0400000000 X                      EQ     ASAER                                                   GOTO      318
                                                                                                                 GOTO      319
                                        *         ERROR EXIT - B6 = ERROR NUMBER                                 GOTO      320
                                                                                                                 GOTO      321
           130  6170000122 +             GOTOEX   SB7    GOTOX             ERROR EXIT RETURN ADDRESS             GOTO      322
                          0400000000 X            EQ     ERPRO                                                   GOTO      323
  
  
  
           131  0525000235 +             GOTOA    NE     B2,B5,GOTOC       IF NOT A NAME                         GOTO      325
                                                                                                                 GOTO      326
                                        *         PROCESS ASSIGNED "GO TO" STATEMENT                             GOTO      327
                                                                                                                 GOTO      328
                          6160777631              SB6    -E.GO2                                                  GOTO      329
           132  0440000130 +                      ZR     B4,GOTOEX         IF NO LIST OF LABELS                  GOTO      330
                          7163777774              SX6    B3-EL.COMMA                                             GOTO      331
           133  5160000001 C                      SA6    ASA               SET ASA FLAG                          GOTO      332
                                                                                                                 GOTO      333
                          0316000135 +            NZ     X6,GOTOA1         IF NEXT IS NOT A COMMA                GOTO      334
           134  55335                             SA3    A3-B5             NEXT ELEMENT                          GOTO      335
                     26733                        UX7    B3,X3                                                   GOTO      336
                                                                                                                 GOTO      337
           135  6143777771               GOTOA1   SB4    B3-EL.(                                                 GOTO      338
                          0540000130 +            NZ     B4,GOTOEX         IF NOT A (                            GOTO      339
                                                                                                                 GOTO      340
           136  75635                             SX6    A3-B5                                                   GOTO      341
                     10122                        BX1    X2                VARIABLE NAME TO X1                   GOTO      342
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE     9
         UNCONDITIONAL AND ASSIGNED GOTO S
  
                          5160000032              SA6    SELIST            SAVE E LIST POINTER                   GOTO      343
           137  0100000043 +                      RJ     AGVAR             GO ENTER NAME IN SYMTAB AND CHECK  VA GOTO      344
                                                                                                                 GOTO      345
                                        *         FORM RLIST MACRO                                               GOTO      346
                                                                                                                 GOTO      347
           140  5120000001 +                      SA2    AGOMAC            MACRO HEADER WORD                     GOTO      348
                          5170000004 C            SA7    MACBUF+2    CA TO SECOND WORD                           GOTO      349
           141  20736                             LX7    30                                                      GOTO      350
                     36775                        IX7    X7+X5             30/CA,30/IH                           GOTO      351
                          5170000010 C            SA7    AGOCALL           IN CASE DEBUG IS SELECTED             GOTO      352
           142  73770                             SX7    X7                                                      GOTO      353
                     5170000003 C                 SA7    MACBUF+1    WORD 1 = ORDINAL OF VARIABLE                GOTO      354
                               10722              BX7    X2                                                      GOTO      355
           143  55775                             SA7    A7-B5                                                   GOTO      356
                                                                                                                 GOTO      357
                     5120000000 X                 SA2    RSELECT                                                 GOTO      358
           144  0302000146 +                      ZR     X2,GOTOA2         IF R = 0                              GOTO      359
                          43200                   ADDREF B1,REF            ADD A REFERENCE FOR THE VARIABLE      GOTO      360
                                                                                                                 GOTO      361
           146  5100000122 +             GOTOA2   PLAB   EL.),E.GO2,GOTOX  PROCESS THE LIST OF LABELS            GOTO      362
                                                                                                                 GOTO      363
           150  53210                             SA2    X1                CHECK FOR EOS                         GOTO      364
                     26332                        UX3    B3,X2                                                   GOTO      365
                          6143777773              SB4    B3-EL.EOS                                               GOTO      366
           151  6160777632                        SB6    -E.GO1                                                  GOTO      367
                          0540000130 +            NZ     B4,GOTOEX         IF NO END OF STMT                     GOTO      368
                                                                                                                 GOTO      369
           152  5150000000 X                      SA5    GOTOSFL                                                 GOTO      370
                          5120000000 X            SA2    OPTLVL                                                  GOTO      371
           153  0315000161 +                      NZ     X5,GOTOA3         IF DEBUG SELECTED                     GOTO      372
                          7232777775              SX3    X2-2                                                    GOTO      373
           154  0303000161 +                      ZR     X3,GOTOA3         IF OPT = 2                            GOTO      374
                          5110000000 X            SA1    TRACEL                                                  GOTO      375
           155  5120000000 X                      SA2    DOFLAG                                                  GOTO      376
                          37012                   IX0    X1-X2                                                   GOTO      377
           156  0320000161 +                      PL     X0,GOTOA3         BRANCH IF FLOW TRACING                GOTO      378
                                                                                                                 GOTO      379
                          6170000002 C            WRM    MACBUF      ASSIGNED GOTO MACRO TO RLIST                GOTO      380
           160  0400000122 +                      EQ     GOTOX                                                   GOTO      381
                                                                                                                 GOTO      382
                                        *         REMOVE REDUNDANT LABELS FROM LTAB                              GOTO      383
                                                                                                                 GOTO      384
           161  5110000000 X             GOTOA3   SA1    O.LTAB                                                  GOTO      385
                          76050                   SX0    B5                X0 = 1                                GOTO      386
           162  6226777776                        SB2    X6-1              L.LTAB - 1                            GOTO      387
                          43700                   MX7    0                                                       GOTO      388
           163  5170000005 C                      SA7    MACBUF+3    CLEAR LABEL FLAG                            GOTO      389
                                                                                                                 GOTO      390
           164  53212                    GOTOAL   SA2    X1+B2             LAST ELEMENT                          GOTO      391
                     67325                        SB3    B2-B5             J = I-1                               GOTO      392
                                                                                                                 GOTO      393
           165  53313                   +         SA3    X1+B3                                                   GOTO      394
                     0730000167 +                 NG     B3,GOTO.L1                                              GOTO      395
                               37432              IX4    X3-X2                                                   GOTO      396
           166  67335                             SB3    B3-B5                                                   GOTO      397
                     0314000165 +                 NZ     X4,*-1            IF NOT THE SAME                       GOTO      398
                               37760              IX7    X6-X0             ELIMINATE THE LAST ELEMENT            GOTO      399
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    10
         UNCONDITIONAL AND ASSIGNED GOTO S
  
                                                                                                                 GOTO      400
           167  67225                    GOTO.L1  SB2    B2-B5             DECREMENT LOOP INDEX                  GOTO      401
                     0752000164 +                 GT     B2,B5,GOTOAL                                            GOTO      402
                                                                                                                 GOTO      403
           170  0305000201 +                      ZR     X5,GOTOA3.        IF NO INDEX CHECKING                  GOTO      404
                                                                                                                 GOTO      405
                                        *         SET UP CALL "BUGGTA( IVAR , #GLN )"                            GOTO      406
                                                                                                                 GOTO      407
                          0100000000 X            RJ     =XINITR           NEEDED TO SET UP ARLIST BUFFER        GOTO      408
           171  5120000000 X                      SA2    =XN.GL                                                  GOTO      409
                          7262100000              SX6    X2+I.GL     IH   = GL(NGLN)                             GOTO      410
           172  5160000005 C                      SA6    MACBUF+3    FLAG = GL(NGLN)                             GOTO      411
                          73725                   SX7    X2+B5             INCREMENT NGLN                        GOTO      412
           173  5160000011 C                      SA6    AGOCALL+1         STORE IH FOR GL IN IGCALL LIST        GOTO      413
                          54720                   SA7    A2                                                      GOTO      414
                               43600              MX6    0                                                       GOTO      415
           174  54665                             SA6    A6+B5             WORD 3 = 0                            GOTO      416
                     7170000414 +                 SX7    =8RBUGGTA                                               GOTO      417
                               54765              SA7    A6+B5             WORD 4 = 60/ADDRESS OF NAME           GOTO      418
           175  5110000010 C                      SA1    AGOCALL                                                 GOTO      419
                          5120000000 X            SA2    N.AP                                                    GOTO      420
           176  10622                             BX6    X2                                                      GOTO      421
                     73725                        SX7    X2+B5             INCREMENT APLIST NUMBER               GOTO      422
                          54720                   SA7    A2                                                      GOTO      423
           177  0100000000 X                      RJ     IGCALL                                                  GOTO      424
           200  5110000414 +                      SA1    =8RBUGGTA                                               GOTO      425
                          0100000345 +            CALL   ODCM        OUTPUT DEBUG CALL MACRO                     GOTO      426
                                                                                                                 GOTO      427
           201  5110000000 X             GOTOA3.  SA1    TRACEL                                                  GOTO      428
                          5120000000 X            SA2    DOFLAG                                                  GOTO      429
           202  37612                             IX6    X1-X2                                                   GOTO      430
                     0336000217 +                 NG     X6,GOTOA4         BRANCH IF NO FLOW TRACING             GOTO      431
           203  0100000000 X                      RJ     =XINITR           NEEDED TO SET UP ARLIST BUFFER        GOTO      432
           204  5120000000 X                      SA2    N.GL                                                    GOTO      433
                          5130000005 C            SA3    MACBUF+3                                                GOTO      434
           205  0303000207 +                      ZR     X3,GLP0     IF GOTOS NOT USED                           GOTO      435
                          7222777776              SX2    X2-1              ADJUSTMENT IF GOTOS USED              GOTO      436
           206  0400000210 +                      EQ     GLP1                                                    GOTO      437
           207  7262100000               GLP0     SX6    X2+I.GL                                                 GOTO      438
                          5160000005 C            SA6    MACBUF+3                                                GOTO      439
           210  73725                    GLP1     SX7    X2+B5             INCREMENT NGLN                        GOTO      440
                     54720                        SA7    A2                                                      GOTO      441
                          7262100000              SX6    X2+I.GL                                                 GOTO      442
           211  5160000011 C                      SA6    AGOCALL+1         WORD 1 OF ARGLIST                     GOTO      443
                          43700                   MX7    0                                                       GOTO      444
                               54765              SA7    A6+B5             WORD 2                                GOTO      445
           212  7160000415 +                      SX6    =8RBUGTRA                                               GOTO      446
                          54675                   SA6    A7+B5             WORD 3                                GOTO      447
           213  5120000000 X                      SA2    N.AP                                                    GOTO      448
                          10622                   BX6    X2                                                      GOTO      449
                               73725              SX7    X2+B5             INCREMENT APLIST NUMBER               GOTO      450
           214  54720                             SA7    A2                                                      GOTO      451
                     5110000010 C                 SA1    AGOCALL                                                 GOTO      452
           215  0100000000 X                      RJ     IGCALL            GENERATE CALL                         GOTO      453
           216  5110000415 +                      SA1    =8RBUGTRA                                               GOTO      454
                          0100000345 +            CALL   ODCM        OUTPUT DEBUG CALL MACRO                     GOTO      455
                                                                                                                 GOTO      456
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    11
         UNCONDITIONAL AND ASSIGNED GOTO S
  
           217  5110000000 X             GOTOA4   SA1    =XL.LTAB                                                GOTO      457
                          5120000004 C            SA2    MACBUF+2                                                GOTO      458
           220  54325                   +         SA3    A2+B5                                                   GOTO      459
                     0303000221 +                 ZR     X3,*+1            IF NO LABEL                           GOTO      460
                               73115              SX1    X1+B5                                                   GOTO      461
           221  20122                             LX1    18          SAVE NUMBER OF LABELS AS SECOND CON         GOTO      462
                     12612                        BX6    X1+X2                                                   GOTO      463
                          54620                   SA6    A2                                                      GOTO      464
           222  6170000002 C                      WRM    MACBUF      ASSIGNED GOTO MACRO TO R-LIST               GOTO      465
           223  5150000005 C                      SA5    MACBUF+3                                                GOTO      466
                          0305000227 +            ZR     X5,GOTOA5   IF NO LABEL DEFINITION                      GOTO      467
           224  6120000006                        SB2    OC.LAB                                                  GOTO      468
                          27625                   PX6    B2,X5                                                   GOTO      469
                               54650              SA6    A5                                                      GOTO      470
           225  64660                             WRITEW =XF.RLST,A6,B1                                          GOTO      471
                                                                                                                 GOTO      472
                                                                                                                 GOTO      473
           227  5110000000 X             GOTOA5   SA1    =XO.LTAB                                                GOTO      474
                          5130000000 X            SA3    =XL.LTAB                                                GOTO      475
           230  63610                             WRITEW =XF.RLST,X1,X3    LABEL LIST TO -RLIST-                 GOTO      476
           232  5110000000 X                      SA1    OPTLVL                                                  GOTO      477
                          0311000122 +            NZ     X1,GOTOX    IF NOT DEBUG MODE ( OPTLVL " 0 )            GOTO      478
           233  6170000003 +                      WRM    JPB0M       JP  B0+0 MACRO TO RLIST                     GOTO      479
           234  0400000122 +                      EQ     GOTOX                                                   GOTO      480
                                                                                                                 GOTO      481
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    12
         COMPUTED GOTO
  
                                        *         PROCESS COMPUTED GOTO                                          GOTO      483
                                                                                                                 GOTO      484
           235  6142777771               GOTOC    SB4    B2-EL.(                                                 GOTO      485
                          6160777631              SB6    -E.GO2                                                  GOTO      486
           236  0540000130 +                      NZ     B4,GOTOEX         IF FIRST IS NOT A (                   GOTO      487
                          74630                   SX6    A3                                                      GOTO      488
           237  5160000032                        SA6    SELIST            UPDATE SELIST                         GOTO      489
                          5100000122 +            PLAB   EL.),E.GO2,GOTOX  PROCESS THE LIST OF LABELS            GOTO      490
           242  53210                             SA2    X1                FIRST AFTER )                         GOTO      491
                     26322                        UX3    B2,X2                                                   GOTO      492
                          7162777774              SX6    B2-EL.COMMA                                             GOTO      493
           243  5160000001 C                      SA6    ASA                                                     GOTO      494
                          0316000245 +            NZ     X6,GOTOC1         IF NOT A COMMA, FLAG AS NON-ANSI      GOTO      495
                                                                                                                 GOTO      496
           244  55225                             SA2    A2-B5             NEXT                                  GOTO      497
                     26322                        UX3    B2,X2                                                   GOTO      498
                          74720                   SX7    A2                                                      GOTO      499
                               54710              SA7    A1                UPDATE SELIST                         GOTO      500
                                                                                                                 GOTO      501
           245  6130000003               GOTOC1   SB3    EL.COMMA          PLACE A COMMA PRIOR TO THE EXPRESSION GOTO      502
                          27737                   PX7    X7,B3             FOR 'ARITH', SO THAT A MONADIC MINUS  GOTO      503
                               54725              SA7    A2+B5             WILL BE INTERPRETED PROPERLY.         GOTO      504
           246  55425                             SA4    A2-B5                                                   GOTO      505
                     6170000004                   SB7    EL.EOS                                                  GOTO      506
                               26544              UX5    B4,X4                                                   GOTO      507
           247  6160777632                        SB6    -E.GO1                                                  GOTO      508
                          0427000130 +            EQ     B2,B7,GOTOEX      IF NO VARIABLE                        GOTO      509
                                                                                                                 GOTO      510
           250  0525000251 +                      NE     B2,B5,GOTOC2      IF FIRST IS NOT A NAME                GOTO      511
                          0447000252 +            EQ     B4,B7,GOTOC3      IF NEXT IS A EOS                      GOTO      512
                                                                                                                 GOTO      513
           251  43773                    GOTOC2   MX7    59                                                      GOTO      514
                     5170000001 C                 SA7    ASA               SET ASA FLAG                          GOTO      515
                                                                                                                 GOTO      516
           252  0100000000 X             GOTOC3   CALL   ARITH             EVALUATE THE EXPRESSION               GOTO      517
           253  5110000416 +                      ADEXTS =8RGOTOER.                                              GOTO      518
                                                                                                                 GOTO      519
                                        *         FORM MACRO CALL                                                GOTO      520
                                                                                                                 GOTO      521
           256  5110000000 X             GOTOC5   SA1    TRACEL                                                  GOTO      522
                          5120000000 X            SA2    DOFLAG                                                  GOTO      523
           257  37612                             IX6    X1-X2                                                   GOTO      524
                     0336000322 +                 NG     X6,NOTRC          BRANCH IF NO FLOW TRACING             GOTO      525
           260  0100000000 X                      RJ     =XINITR           NEEDED TO SET UP ARLIST BUFFER        GOTO      526
           261  76610                             SX6    B1                                                      GOTO      527
                     5160000015 C                 SA6    TEMP+4            SAVE ACGOER. ORDINAL                  GOTO      528
           262  5130000005 +                      SA3    XMIT              MACRO HEADER WORD                     GOTO      529
                          5120000064              SA2    NRLN              NEXT R NUMBER                         GOTO      530
           263  12732                             BX7    X3+X2                                                   GOTO      531
                     5170000002 C                 SA7    MACBUF                                                  GOTO      532
           264  7232777776                        SX3    X2-1              FORMER R NUMBER                       GOTO      533
                          20320                   LX3    16                                                      GOTO      534
                               12632              BX6    X3+X2             MACRO WORD                            GOTO      535
           265  54675                             SA6    A7+B5                                                   GOTO      536
                     5130000006 +                 SA3    STOR              MACRO HEADER WORD                     GOTO      537
                               12632              BX6    X3+X2                                                   GOTO      538
           266  54665                             SA6    A6+B5                                                   GOTO      539
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    13
         COMPUTED GOTO
  
                     5110000000 X                 SA1    ST.               IH FIELD                              GOTO      540
                               10722              BX7    X2                                                      GOTO      541
           267  5130000000 C                      SA3    STSORD            CA FIELD                              GOTO      542
                          10611                   BX6    X1                                                      GOTO      543
                               54665              SA6    A6+B5             IH                                    GOTO      544
           270  54765                             SA7    A6+B5             NRLN                                  GOTO      545
                     73675                        SX6    X7+B5             INCREMENT R NUMBER                    GOTO      546
                          54620                   SA6    A2                                                      GOTO      547
                               10733              BX7    X3                                                      GOTO      548
           271  54775                             SA7    A7+B5             CA                                    GOTO      549
                     6110000001                   SB1    1                                                       GOTO      550
           272  6160000002 C                      WRITEW =XF.RLST,MACBUF,6 TRANSMIT AND STORE MACROS TO -RLIST-  GOTO      551
           274  5130000000 C                      SA3    STSORD            ST INDEX                              GOTO      552
                          5120000000 X            SA2    ST.               ST. SYMTAB ORDINAL                    GOTO      553
           275  6150000001                        SB5    1                                                       GOTO      554
                          20336                   LX3    30                                                      GOTO      555
                               12632              BX6    X3+X2             IH FOR ARGLIST                        GOTO      556
           276  5160000010 C                      SA6    AGOCALL           WORD 1 OF ARGLIST                     GOTO      557
                          5110000000 X            SA1    N.GL                                                    GOTO      558
           277  7271100000                        SX7    X1+I.GL                                                 GOTO      559
                          54765                   SA7    A6+B5             WORD 2                                GOTO      560
           300  5110000000 X                      SA1    L.LTAB            NUMBER OF LABELS                      GOTO      561
                          66150                   SB1    B5                                                      GOTO      562
           301  0100000000 X                      RJ     =XCONVERT         LABEL COUNT TO CONS TABLE             GOTO      563
           302  6150000001                        SB5    1                                                       GOTO      564
                          10611                   BX6    X1                                                      GOTO      565
                               43700              MX7    0                                                       GOTO      566
           303  5110000010 C                      SA1    AGOCALL                                                 GOTO      567
                          5160000012 C            SA6    AGOCALL+2         WORD 3                                GOTO      568
           304  54765                             SA7    A6+B5             WORD 4                                GOTO      569
                     7160000417 +                 SX6    =8RBUGTRC                                               GOTO      570
                               54675              SA6    A7+B5             WORD 5                                GOTO      571
           305  5120000000 X                      SA2    N.AP                                                    GOTO      572
                          10622                   BX6    X2                                                      GOTO      573
                               73725              SX7    X2+B5             INCREMENT APLIST NUMBER               GOTO      574
           306  54720                             SA7    A2                                                      GOTO      575
                     0100000000 X                 RJ     IGCALL            GENERATE CALL                         GOTO      576
           307  5110000417 +                      SA1    =8RBUGTRC                                               GOTO      577
                          0100000345 +            CALL   ODCM        OUTPUT DEBUG CALL MACRO                     GOTO      578
           310  5130000004 +                      SA3    LOAD              MACRO HEADER WORD                     GOTO      579
                          5120000064              SA2    NRLN                                                    GOTO      580
           311  12632                             BX6    X3+X2                                                   GOTO      581
                     73725                        SX7    X2+B5             INCREMENT R NUMBER                    GOTO      582
                          5160000002 C            SA6    MACBUF                                                  GOTO      583
           312  54720                             SA7    A2                                                      GOTO      584
                     5150000000 X                 SA5    ST.               IH FIELD                              GOTO      585
                               22705              LX7    X5                                                      GOTO      586
           313  10622                             BX6    X2                                                      GOTO      587
                     6110000001                   SB1    1                                                       GOTO      588
                               54765              SA7    A6+B5                                                   GOTO      589
           314  54675                             SA6    A7+B5                                                   GOTO      590
                     5130000000 C                 SA3    STSORD            CA FIELD                              GOTO      591
                               10733              BX7    X3                                                      GOTO      592
           315  54765                             SA7    A6+B5                                                   GOTO      593
                     73635                        SX6    X3+B5             INCREMENT STSORD                      GOTO      594
                          54630                   SA6    A3                                                      GOTO      595
           316  6160000002 C                      WRITEW =XF.RLST,MACBUF,4 LOAD MACRO TO -RLIST-                 GOTO      596
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    14
         COMPUTED GOTO
  
           320  5110000015 C                      SA1    TEMP+4            SAVED ACGOER. ORDINAL                 GOTO      597
                          6150000001              SB5    1                                                       GOTO      598
           321  63110                             SB1    X1                                                      GOTO      599
                                                                                                                 GOTO      600
           322  5130000002 +             NOTRC    SA3    CGOM              MACRO HEADER WORD                     GOTO      601
                          5140000000 X            SA4    N.GL                                                    GOTO      602
           323  5150000064                        SA5    NRLN                                                    GOTO      603
                          73655                   SX6    X5+B5             NRLN = NRLN+1                         GOTO      604
                               54650              SA6    A5                                                      GOTO      605
           324  6170000002 C                      SB7    MACBUF                                                  GOTO      606
                          22703                   LX7    X3                                                      GOTO      607
                               76610              SX6    B1                                                      GOTO      608
           325  20636                             LX6    30                                                      GOTO      609
                     7204100000                   SX0    X4+I.GL                                                 GOTO      610
                               12660              BX6    X6+X0             30/IH ACGOER,30/IH FOR GL             GOTO      611
           326  56770                             SA7    B7                                                      GOTO      612
                     54675                        SA6    A7+B5             WORD 1                                GOTO      613
                          73745                   SX7    X4+B5             NGLN = NGLN + 1                       GOTO      614
                               54740              SA7    A4                                                      GOTO      615
           327  7265777776                        SX6    X5-1                                                    GOTO      616
                          20520                   LX5    16                                                      GOTO      617
                               12656              BX6    X5+X6             16/R NO FOR RS,16/R NO OF LOAD        GOTO      618
           330  54665                             SA6    A6+B5             WORD 2                                GOTO      619
                                                                                                                 GOTO      620
                     5110000000 X                 SA1    L.LTAB            NUMBER OF BRANCHS                     GOTO      621
           331  5120000037                        SA2    DUKE                                                    GOTO      622
                          73115                   SX1    X1+B5                                                   GOTO      623
                               73725              SX7    X2+B5                                                   FCC1085     7
           332  21714                             AX7    12                                                      FCC1085     8
                     20222                        LX2    18                                                      GOTO      624
                          43052                   MX0    42                                                      GOTO      625
                               14111              BX1    -X1                                                     GOTO      626
           333  15410                             BX4    -X0*X1                                                  GOTO      627
                     36624                        IX6    X2+X4             18/LINE NUMBER,18/-(NOB+1)            GOTO      628
                          0307000335 +            ZR     X7,GOTOC6   IF LINENUM < 4096                           FCC1085     9
           334  7170000073                        SX7    59                                                      FCC1085    10
                          20744                   LX7    36                                                      FCC1085    11
                               12676              BX6    X7+X6       K3 = 59                                     FCC1085    12
           335  54665                    GOTOC6   SA6    A6+B5                                                   FCC1085    13
                     0100000000 X                 WRM    B7          COMPUTED GOTO MACRO TO RLIST                GOTO      630
           336  5110000000 X                      SA1    =XO.LTAB                                                GOTO      631
                          5130000000 X            SA3    =XL.LTAB                                                GOTO      632
           337  63610                             WRITEW =XF.RLST,X1,X3    LABEL LIST TO -RLIST-                 GOTO      633
           341  6150000001                        SB5    1                                                       GOTO      634
                          5130000000 X            SA3    =XL.LTAB                                                GOTO      635
           342  7233777773                        SX3    X3-4                                                    GOTO      636
                          0323000122 +            PL     X3,GOTOX    IF MORE THAN 3 BRANCHES                     GOTO      637
           343  6160777307                        SB6    -E.GOEFF                                                GOTO      638
                          6170000122 +            SB7    GOTOX                                                   GOTO      639
           344  0400000000 X                      EQ     ERPROI      IF STATMENT MORE EFFICENT THAN CGOTO        GOTO      640
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    15
         COMPUTED GOTO                                                ODCM
  
                                        **        ODCM - OUTPUT DEBUG CALL MACRO.                                GOTO      642
                                        *                                                                        GOTO      643
                                        *         ENTRY  (X1) = NAME OF EXECUTION TIME ROUTINE.                  GOTO      644
                                        *                                                                        GOTO      645
                                        *         CALLS  SYMBOL, DARLIST                                         GOTO      646
                                                                                                                 GOTO      647
           345  0400400345 +             ODCM     ENTRY. *                                                       GOTO      648
           346  6170000347 +                      SB7    ODCM1                                                   GOTO      649
           347  0400000000 X             ODCM1    EQ     =XSYMBOL                                                GOTO      650
           350  7160000014                        SX6    T.CGS                                                   GOTO      651
                          20670                   LX6    P.TYP                                                   GOTO      652
                               12762              BX7    X6+X2       SET TYPE = CGS                              GOTO      653
           351  54720                             SA7    A2                                                      GOTO      654
                     43400                        MX4    0                                                       GOTO      655
                          5150000000 X            SA5    =XARLPT                                                 GOTO      656
           352  0100000000 X                      CALL   DARLIST     FLUSH DEBUG MACRO CALL TO RLIST             GOTO      657
           353  0400000345 +                      EQ     ODCM                                                    GOTO      658
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    16
         ASSIGN STATEMENT PROCESSOR 
  
                                        ***                                                                      GOTO      660
                                        *         "ASSIGN" STATEMENT PROCESSOR                                   GOTO      661
                                        *                                                                        GOTO      662
                                        *         SYNTAX:   ASSIGN <LABEL> TO <VARIABLE> <EOS>                   GOTO      663
                                        *         ELIST:           -------    ----------------                   GOTO      664
                                        *                                                                        GOTO      665
                                        *         THE VARIABLE MUST BE AN INTEGER VARIABLE                       GOTO      666
                                        *                                                                        GOTO      667
  
  
  
                                  22     E.CUL    EQU    18                CONFLICTING USE OF A LABEL            GOTO      669
                                 157     E.ASGN   EQU    111               ASSIGN STMT SYNTAX ERROR              GOTO      670
                                 263     E.ASGN2  EQU    179               VARIABLE NOT INTEGER                  GOTO      671
  
  
  
                                         M.ASGM   RMEQU  106B        ASSIGN MACRO ORDINAL                        GOTO      673
                                                                                                                 GOTO      674
           354  16710000020000000000     ASGM     RMHDR  M.ASGM,2                                                GOTO      675
  
  
  
           355  6170000356 +             ASGNX    SB7    ASSIGN            RETURN ADDRESS                        GOTO      677
                          0400000000 X            EQ     ERPRO                                                   GOTO      678
                                                                                                                 GOTO      679
           356  00000000000000000000     ASSIGN   ENTRY.                                                         GOTO      680
           357  5110000032                        SA1    SELIST                                                  GOTO      681
                          53210                   SA2    X1                FIRST ENTRY                           GOTO      682
                               26322              UX3    B2,X2                                                   GOTO      683
           360  6160777620                        SB6    -E.ASGN           BAD SYNTAX                            GOTO      684
                          0520000355 +            NZ     B2,ASGNX          IF NOT A CONSTANT                     GOTO      685
           361  53120                             SA1    X2                FETCH CONSTANT                        GOTO      686
                     21222                        AX2    18                                                      GOTO      687
                          63120                   SB1    X2                B1 = CHAR COUNT                       GOTO      688
                               21355              AX3    48-3              POSITION TYPE                         GOTO      689
           362  63330                             SB3    X3                                                      GOTO      690
                     0535000355 +                 NE     B3,B5,ASGNX       IF NOT TYPE INTEGER                   GOTO      691
                                                                                                                 GOTO      692
           363  6170000364 +            +         SB7    *+1                                                     GOTO      693
                          0400000000 X            EQ     =XLABCON          GO CONVERT THE LABEL AND ENTER IN SYM GOTO      694
                                                                                                                 GOTO      695
           364  7100000006                        SX0    T.LAB                                                   GOTO      696
                          0400000371 +            EQ     ASGN1                                                   GOTO      697
                                                                                                                 GOTO      698
           365  43302                             MX3    2                 LABEL IN THE TABLE                    GOTO      699
                     20364                        LX3    2+P.RFN                                                 GOTO      700
                          11032                   BX0    X3*X2                                                   GOTO      701
           366  0300000371 +                      ZR     X0,ASGN1          IF NO PREVIOUS REF AS A FORMAT LABEL  GOTO      702
                          76210                   SX2    B1                                                      GOTO      703
           367  0100000000 X                      CALL   PSYM              FORMAT NAME FOR ERPRO                 GOTO      704
           370  6160000022                        SB6    E.CUL                                                   GOTO      705
                          0400000355 +            EQ     ASGNX                                                   GOTO      706
                                                                                                                 GOTO      707
           371  20070                    ASGN1    LX0    P.TYP                                                   GOTO      708
                     12202                        BX2    X0+X2             SET TYPE                              GOTO      709
                                         RSN      BIT    P.RSN-P.RAS                                             GOTO      710
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    17
         ASSIGN STATEMENT PROCESSOR 
  
                          7130000021              SX3    RSN+1                                                   GOTO      711
           372  20361                             LX3    P.RAS                                                   GOTO      712
                     12632                        BX6    X3+X2             SET RSN AND RAS BITS                  GOTO      713
                          54620                   SA6    A2                STORE IN SYMTAB                       GOTO      714
                                                                                                                 GOTO      715
           373  5140000354 +                      SA4    ASGM                                                    GOTO      716
                          76710                   SX7    B1                                                      GOTO      717
                               10644              BX6    X4                                                      GOTO      718
           374  5160000002 C                      SA6    MACBUF            STORE THE HEADER WORD                 GOTO      719
                          54765                   SA7    A6+B5             SAVE ORDINAL OF THE LABEL             GOTO      720
                                                                                                                 GOTO      721
                                        *         CHECK FOR "NAME" AND "EOS"                                     GOTO      722
                                                                                                                 GOTO      723
           375  5110000032                        SA1    SELIST                                                  GOTO      724
                          5251777775              SA5    X1-2              X5 = EOS                              GOTO      725
           376  6160777620                        SB6    -E.ASGN           BAD SYNTAX                            GOTO      726
                          54155                   SA1    A5+B5             X1 = VARIABLE                         GOTO      727
                               26415              UX4    B1,X5                                                   GOTO      728
           377  6121777773                        SB2    B1-EL.EOS                                               GOTO      729
                          0520000355 +            NZ     B2,ASGNX          IF NOT EOS                            GOTO      730
           400  26111                             UX1    B1,X1                                                   GOTO      731
                     0515000355 +                 NE     B1,B5,ASGNX       IF NOT A VARIABLE                     GOTO      732
           401  0100000043 +                      RJ     AGVAR             GO PROCESS VARIABLE                   GOTO      733
           402  54110                             SA1    A1                WORD A                                GOTO      734
                     7100200000                   SX0    V.DEF                                                   GOTO      735
                               12601              BX6    X0+X1             SET DEFINED BIT                       GOTO      736
           403  54610                             SA6    A1                                                      GOTO      737
                                                                                                                 GOTO      738
                                        *         FORM MACRO CALL                                                GOTO      739
                                                                                                                 GOTO      740
                     5110000003 C                 SA1    MACBUF+1          X1 = ORD OF THE LABEL                 GOTO      741
                               20536              LX5    30                                                      GOTO      742
           404  12651                             BX6    X5+X1             30/SYM ORD,30/LABEL ORD               GOTO      743
                     54610                        SA6    A1                                                      GOTO      744
                          54765                   SA7    A6+B5       STORE CA OF VARIABLE AS SECOND WORD         GOTO      745
                                                                                                                 GOTO      746
           405  5140000000 X                      SA4    RSELECT                                                 GOTO      747
                          0304000411 +            ZR     X4,ASGN5          IF R = 0                              GOTO      748
           406  43201                             ADDREF B1,DEF            A DEFINITION FOR THE VARIABLE         GOTO      749
           407  5110000003 C                      ADDREF MACBUF+1,REF      A REFERENCE FOR THE LABEL             GOTO      750
                                                                                                                 GOTO      751
           411  6170000002 C             ASGN5    WRM    MACBUF      ASSIGN MACRO TO R-LIST                      GOTO      752
           412  0400000356 +                      EQ     ASSIGN            EXIT                                  GOTO      753
                                                                                                                 GOTO      754
           420                                    END                                                            GOTO      755
  
                             65300B CM  STORAGE USED              959 STATEMENTS      634 SYMBOLS      000001 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.079 SECONDS         414 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDREF          0   EXTERNAL*       9/18     17/39     17/40
        AGOCALL        10   MACBUF          3/43 D    8/04     10/14 S   10/44 S   13/18 S   13/29 S
                                            7/52 S    9/10 S   10/20     10/53     13/28
        AGOMAC          1   PROGRAM*        3/22 L    9/06
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        AGVAR          43   PROGRAM*        6/12 L    6/33      6/48      9/02     17/23
        AGVARX         40   PROGRAM*        5/45 L    6/16      6/22      6/30
        AGVAR1         51   PROGRAM*        6/24 L    6/53      6/55
        AGVAR.T        60   PROGRAM*        6/14      6/52 L
        ALLOC           0   EXTERNAL*       4/44
        ARITH           0   EXTERNAL*      12/35
        ARLPT           0   EXTERNAL*      15/15
        ASA             1   MACBUF          3/33 L    7/04 S    8/27      8/47 S   12/12 S   12/33 S
        ASAER           0   EXTERNAL*       1/52 X    8/31
        ASGM          354   PROGRAM*       16/20 L   17/06
        ASGNX         355   PROGRAM*       16/24 L   16/32     16/38     16/53     17/20     17/22
        ASGN1         371   PROGRAM*       16/44     16/49     16/55 L
        ASGN5         411   PROGRAM*       17/38     17/42 L
        ASSIGN        356   PROGRAM*       16/24     16/27 E   16/27 L   17/43
        BRSELF          0   MACBUF          3/32 L    5/08 S    7/05 S    8/21
        CFO             0   EXTERNAL*       6/54
        CGOM            2   PROGRAM*        3/23 L   14/05
        CLABEL         23                   2/03 D    4/56
        CONVERT         0   EXTERNAL*      13/24
        DARLIST         0   EXTERNAL*      15/16
        DFLAG           0   EXTERNAL*       1/53 X    7/23
        DIM1           17                   2/01 D    6/37
        DOFLAG          0   EXTERNAL*       1/54 X    7/37      9/34     10/30     12/41
        DOLABR          0   EXTERNAL*       4/55      7/25
        DUKE           37                   2/04 D   14/26
        EL.COMMA        3   FTNTEXT         4/25      8/46     12/11     12/20
        EL.EOS          4   FTNTEXT         7/13      7/34      9/24     12/24     17/19
        EL.(            6   FTNTEXT         8/53     12/03
        EL.)            2   FTNTEXT         9/20     12/08
        EQCOUNT         0   EXTERNAL*       7/06 S
        ERPRO           0   EXTERNAL*       1/52 X    5/31      5/49      8/36     16/25
        ERPROI          0   EXTERNAL*       1/52 X    8/25     14/50
        E.ASGN        157                  16/13 D   16/31     17/16
        E.ASGN2       263                   5/47     16/14 D
        E.CUL          22                  16/12 D   16/52
        E.GOASA       147                   3/05 D    8/29
        E.GOEFF       470                   3/07 D   14/48
        E.GO1         145                   3/03 D    7/16      9/25     12/26
        E.GO193       301                   3/06 D    8/23
        E.GO2         146                   3/04 D    7/34      8/44      9/20     12/04     12/08
        F.RLST          0   EXTERNAL*      11/15     11/20     13/12     13/57     14/43
        GLP0          207   PROGRAM*       10/36     10/39 L
        GLP1          210   PROGRAM*       10/38     10/41 L
        GOTO           63   PROGRAM*        7/01 E    7/01 L    7/31      8/28      8/30
        GOTOA         131   PROGRAM*        7/14      8/40 L
        GOTOAL        164   PROGRAM*        9/49 L   10/03
        GOTOA1        135   PROGRAM*        8/49      8/53 L
        GOTOA2        146   PROGRAM*        9/17      9/20 L
        GOTOA3        161   PROGRAM*        9/30      9/32      9/36      9/43 L
        GOTOA3.       201   PROGRAM*       10/05     10/29 L
        GOTOA4        217   PROGRAM*       10/32     11/01 L
        GOTOA5        227   PROGRAM*       11/11     11/18 L
        GOTOC         235   PROGRAM*        8/40     12/03 L
        GOTOC1        245   PROGRAM*       12/13     12/20 L
        GOTOC2        251   PROGRAM*       12/29     12/32 L
        GOTOC3        252   PROGRAM*       12/30     12/35 L
        GOTOC5        256   PROGRAM*       12/40 L
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        GOTOC6        335   PROGRAM*       14/35     14/39 L
        GOTOEX        130   PROGRAM*        7/17      8/35 L    8/45      8/54      9/26     12/05     12/27
        GOTOSFL         0   EXTERNAL*       1/54 X    9/28
        GOTOX         122   PROGRAM*        7/34      8/35      9/39     11/24     14/47
                                            8/21 L    9/20     11/22     12/08     14/49
        GOTOXX        125   PROGRAM*        8/22      8/24      8/27 L
        GOTO.          77   PROGRAM*        7/22      7/24      7/32 L
        GOTO.L1       167   PROGRAM*        9/53     10/02 L
        IGCALL          0   EXTERNAL*       1/53 X    8/05     10/25     10/54     13/37
        INITR           0   EXTERNAL*       7/40     10/09     10/33     12/44
        I.GL       100000   FTNTEXT        10/11     10/39     10/43     13/20     14/14
        JPB0M           3   PROGRAM*        3/24 L   11/23
        LABCON          0   EXTERNAL*      16/41
        LABEL.          0   EXTERNAL*       1/54 X    7/50
        LOAD            4   PROGRAM*        3/25 L   13/40
        L.DIMP         14   FTNTEXT         6/38
        L.LTAB          0   EXTERNAL*       4/48 S    5/21     11/01     11/19     13/22     14/25     14/42     14/45
        L.TRO          14   FTNTEXT         5/01      7/45
        MACBUF          2   MACBUF          3/34 L    9/07 S    9/47 S   10/40 S   11/10     13/44 S   17/09 S   17/42
                                            3/43      9/12 S   10/12 S   11/02     12/50 S   13/57     17/31
                                            8/15 S    9/38     10/35     11/09     13/12     14/10     17/40
        MACNUM        107                   3/11 D    3/12 D    3/13 D    3/14 D    3/15 D    3/16 D    3/17 D   16/18 D
        M.AGO         107                   3/12 D    3/12      3/22
        M.ASGM        106                  16/18 D   16/18     16/20
        M.CGO         110                   3/13 D    3/13      3/23
        M.JPB0        416                   3/17 D    3/17      3/24
        M.LOAD        133                   3/14 D    3/14      3/25
        M.STOR        134                   3/15 D    3/15      3/27
        M.UCJ         105                   3/11 D    3/11      3/21
        M.XMIT        135                   3/16 D    3/16      3/26
        NLABEL         60                   2/05 D    7/20
        NOTRC         322   PROGRAM*       12/43     14/05 L
        NOTRU         116   PROGRAM*        7/39      8/08 L
        NRLN           64                   2/06 D   12/48     13/41     14/07
        N.AP            0   EXTERNAL*       7/57     10/21     10/49     13/33
        N.GL            0   EXTERNAL*      10/10     10/34     13/19     14/06
        OC.LAB          6   FTNTEXT        11/12
        OC.UJP         73   FTNTEXT         5/11
        ODCM          345   PROGRAM*        8/07     10/27     10/56     13/39     15/07 L   15/17
        ODCM1         347   PROGRAM*       15/08     15/09 L
        OPTLVL          0   EXTERNAL*       1/53 X    9/29     11/21
        O.LTAB          0   EXTERNAL*       4/57      8/10      9/43     11/18     14/41
        PH2RETN         0   EXTERNAL*       5/48
        PLAB            7   PROGRAM*        4/20 E    4/20 L    5/26      7/34      9/20     12/08
        PLABE          37   PROGRAM*        4/35      4/39      4/41      5/30 L
        PLABL          12   PROGRAM*        4/30 L    4/40
        PLAB2          24   PROGRAM*        4/54 L    5/25
        PLAB2A         31   PROGRAM*        5/07      5/10 L
        PSYM            0   EXTERNAL*       5/46     16/51
        P.DIMP         51   FTNTEXT         6/39
        P.EQU          14   FTNTEXT         6/32
        P.EXT          66   FTNTEXT         6/20     12/36
        P.FUN          17   FTNTEXT         6/18
        P.RAS          61   FTNTEXT        17/02
        P.RFN          62   FTNTEXT        16/47
        P.RSN          65   FTNTEXT         7/27
        P.TRO          30   FTNTEXT         5/02      7/46
1       GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                    COMPASS 3.7-871.     24/05/02. 15.54.28.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        P.TYP          70   FTNTEXT         6/28     15/11     16/55
        P.VAR          50   FTNTEXT         6/25
        RSELECT         0   EXTERNAL*       1/53 X    9/16     17/37
        RSN            20                  16/57 D   17/01
        R1.INP         36   FTNTEXT         5/04
        SELIST         32                   2/02 D    4/45      7/08     12/07 S   17/14
                                            4/24      5/10      9/01 S   16/28
        STOR            6   PROGRAM*        3/27 L   12/55
        STSORD          0   STSORD          3/40 L   13/03     13/13     13/52
        ST.             0   EXTERNAL*       1/54 X   13/01     13/14     13/46
        SYMBOL          0   EXTERNAL*       6/13     12/36     15/09
        SYM1           12                   1/57 D    7/42
        TEMP           11   MACBUF          3/35 L    4/43 S    4/46      5/06     12/46 S   14/01
        TRACEL          0   EXTERNAL*       1/54 X    7/36      9/33     10/29     12/40
        T.CGS          14   FTNTEXT        15/10
        T.INT           1   FTNTEXT         4/38      6/29
        T.LAB           6   FTNTEXT        16/43
        UCJM            0   PROGRAM*        3/21 L    8/11
        V.DEF      200000   FTNTEXT        17/25
        WRM             0   EXTERNAL*       8/17      9/38     11/09     11/23     14/40     17/42
        WTW=            0   EXTERNAL*      11/15     11/20     13/12     13/57     14/43
        XMIT            5   PROGRAM*        3/26 L   12/47
        Z.LTAB          0   EXTERNAL*       4/44
1       DBGLNK                                                        COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        5              IDENT  DBGLNK 
                          5                       END 
  
  
                                        ENTRY POINTS. 
  
                                        ALLARR           0+           BUGSOUT          3+           D.IDSP           3+ 
                                        ALLCALL          0+           CFO              3+           GETTYPE          3+ 
                                        ALLFUNC          0+           DBGCUN           3+           ISITDBG          3+ 
                                        D.SAASI          0+           DBGEPKT          3+           POINTRS          3+ 
                                        GOTOSFL          0+           DBGERR           3+           PUTUPDT          3+ 
                                        TYPFLAG          0+           DBGINT           3+           RESREG           3+ 
                                        NOGOFLG          1+           DBGINTX          3+           SAVREG           3+ 
                                        TRACEL           2+           DBGIPKT          3+           TDI              3+ 
                                        BUGACT           3+           DINPH2           3+           TURNON           3+ 
                                        BUGCON           3+           DOP              3+ 
                                        BUGPRO           3+           D.IDSAV          3+ 
  
  
  
  
                                                  IDENT  DBGLNK                                                  DBGLNK      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                        *                                                                        DBGLNK      4
                                        *         DUMMY ROUTINE TO SATISFY ALL DEBUG ENTRY POINTS IN PASS 1      DBGLNK      5
                                        *                                                                        DBGLNK      6
                                                                                                                 DBGLNK      7
                                                                                                                 DBGLNK      8
                                        **        DEFINE COMMUNICATIONS CELLS.                                   DBGLNK      9
                                                                                                                 DBGLNK     10
                                                  ENTRY  ALLARR                                                  DBGLNK     11
             0                           ALLARR   BSS    0                                                       DBGLNK     12
                                                  ENTRY  ALLCALL                                                 DBGLNK     13
             0                           ALLCALL  BSS    0                                                       DBGLNK     14
                                                  ENTRY  ALLFUNC                                                 DBGLNK     15
             0                           ALLFUNC  BSS    0                                                       DBGLNK     16
                                                  ENTRY  D.SAASI                                                 DBGLNK     17
             0                           D.SAASI  BSS    0                                                       DBGLNK     18
                                                  ENTRY  GOTOSFL                                                 DBGLNK     19
             0                           GOTOSFL  BSS    0                                                       DBGLNK     20
                                                  ENTRY  TYPFLAG                                                 DBGLNK     23
             0                           TYPFLAG  BSS    0                                                       DBGLNK     24
                                                                                                                 DBGLNK     25
             0  00000000000000000000              DATA   0                                                       DBGLNK     26
                                                                                                                 DBGLNK     27
                                                  ENTRY  NOGOFLG                                                 FCC0220    44
             1  77777777777777777776     NOGOFLG  DATA   -1          SIMULATE PRESENCE OF C$-NOGO STATEMENT      FCC0220    45
                                                  ENTRY  TRACEL                                                  DBGLNK     28
             2  77777777777777777776     TRACEL   DATA   -1                                                      DBGLNK     29
1       DBGLNK                                                        COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     2
                                                                      SUBR
  
                                        **        SUBR - DEFINE DUMMY SUBROUTINE ENTRY POINT.                    DBGLNK     31
                                        *                                                                        DBGLNK     32
                                        *                DECLARES *NAME* AN ENTRY POINT.  RESERVES NO SPACE.     DBGLNK     33
                                        *         INTENDED FOR USE BEFORE NON-DEBUG MODE COMMON ENTRY/EXIT LINE. DBGLNK     34
                                        *                                                                        DBGLNK     35
                                        *                                                                        DBGLNK     36
                                        *  NAME   SUBR                                                           DBGLNK     37
                                        *                                                                        DBGLNK     38
                                        *         ENTRY  *NAME* = DUMMY SUBROUTINE NAME                          DBGLNK     39
                                                                                                                 DBGLNK     40
                                                                                                                 DBGLNK     41
                                                  PURGMAC   SUBR                                                 DBGLNK     42
                                                                                                                 DBGLNK     43
                                                  MACRO  SUBR,NAME                                               DBGLNK     44
                                                  ENTRY  NAME                                                    DBGLNK     45
                                         NAME     BSS    0                                                       DBGLNK     46
                                         SUBR     ENDM                                                           DBGLNK     47
  
  
  
  
                                        **        DEFINE DUMMY SUBROUTINES.                                      DBGLNK     49
                                                                                                                 DBGLNK     50
                                                                                                                 DBGLNK     51
             3                           BUGACT   SUBR                                                           DBGLNK     52
             3                           BUGCON   SUBR                                                           DBGLNK     53
             3                           BUGPRO   SUBR                                                           DBGLNK     54
             3                           BUGSOUT  SUBR                                                           DBGLNK     55
             3                           CFO      SUBR                                                           DBGLNK     56
             3                           DBGCUN   SUBR                                                           DBGLNK     57
             3                           DBGEPKT  SUBR                                                           DBGLNK     58
             3                           DBGERR   SUBR                                                           DBGLNK     59
             3                           DBGINT   SUBR                                                           DBGLNK     60
             3                           DBGINTX  SUBR                                                           DBGLNK     61
             3                           DBGIPKT  SUBR                                                           DBGLNK     62
             3                           DINPH2   SUBR                                                           DBGLNK     63
             3                           DOP      SUBR               DEBUG OPTIONS PROCESSOR                     DBGLNK     64
             3                           D.IDSAV  SUBR                                                           DBGLNK     65
             3                           D.IDSP   SUBR                                                           DBGLNK     66
             3                           GETTYPE  SUBR                                                           DBGLNK     67
             3                           ISITDBG  SUBR                                                           DBGLNK     68
             3                           POINTRS  SUBR                                                           DBGLNK     69
             3                           PUTUPDT  SUBR                                                           DBGLNK     70
             3                           RESREG   SUBR                                                           DBGLNK     71
             3                           SAVREG   SUBR                                                           DBGLNK     72
             3                           TDI      SUBR               TRANSFER DEBUG INFORMATION                  DBGLNK     73
             3                           TURNON   SUBR                                                           DBGLNK     74
                                                                                                                 DBGLNK     75
             3  0400400003 +             EXIT.    EQ     *+4S15      COMMON ENTRY/EXIT                           DBGLNK     76
             4  0400000003 +                      EQ     EXIT.       RETURN WITHOUT ACTION                       DBGLNK     77
             5                                    END                                                            DBGLNK     78
  
                             65000B CM  STORAGE USED              126 STATEMENTS      553 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.210 SECONDS          64 REFERENCES
  
  
  
1       DBGLNK                                                        COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     3
        SYMBOLIC REFERENCE TABLE. 
  
        ALLARR          0   PROGRAM*        1/36 E    1/37 L
        ALLCALL         0   PROGRAM*        1/38 E    1/39 L
        ALLFUNC         0   PROGRAM*        1/40 E    1/41 L
        BUGACT          3   PROGRAM*        2/25 E    2/25 L
        BUGCON          3   PROGRAM*        2/26 E    2/26 L
        BUGPRO          3   PROGRAM*        2/27 E    2/27 L
        BUGSOUT         3   PROGRAM*        2/28 E    2/28 L
        CFO             3   PROGRAM*        2/29 E    2/29 L
        DBGCUN          3   PROGRAM*        2/30 E    2/30 L
        DBGEPKT         3   PROGRAM*        2/31 E    2/31 L
        DBGERR          3   PROGRAM*        2/32 E    2/32 L
        DBGINT          3   PROGRAM*        2/33 E    2/33 L
        DBGINTX         3   PROGRAM*        2/34 E    2/34 L
        DBGIPKT         3   PROGRAM*        2/35 E    2/35 L
        DINPH2          3   PROGRAM*        2/36 E    2/36 L
        DOP             3   PROGRAM*        2/37 E    2/37 L
        D.IDSAV         3   PROGRAM*        2/38 E    2/38 L
        D.IDSP          3   PROGRAM*        2/39 E    2/39 L
        D.SAASI         0   PROGRAM*        1/42 E    1/43 L
        EXIT.           3   PROGRAM*        2/49 L    2/50
        GETTYPE         3   PROGRAM*        2/40 E    2/40 L
        GOTOSFL         0   PROGRAM*        1/44 E    1/45 L
        ISITDBG         3   PROGRAM*        2/41 E    2/41 L
        NOGOFLG         1   PROGRAM*        1/51 E    1/52 L
        POINTRS         3   PROGRAM*        2/42 E    2/42 L
        PUTUPDT         3   PROGRAM*        2/43 E    2/43 L
        RESREG          3   PROGRAM*        2/44 E    2/44 L
        SAVREG          3   PROGRAM*        2/45 E    2/45 L
        TDI             3   PROGRAM*        2/46 E    2/46 L
        TRACEL          2   PROGRAM*        1/53 E    1/54 L
        TURNON          3   PROGRAM*        2/47 E    2/47 L
        TYPFLAG         0   PROGRAM*        1/46 E    1/47 L
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1107              IDENT  DOPROC 
                       1107                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1102 
                                        LITERALS* LOCAL        1102         2 
                                        DEBUG     LOCAL        1104         0 
                                        DOTAB     LOCAL        1104         3 
                                        MACBUF    COMMON          0        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=DOPRC          0+           DODEF          440+           DOLABR         674+ 
                                        DOTAB         1104+           DOCALL         523+           LORD           761+ 
                                        WLABM            3+           DONE           541+           DOLABCN        762+ 
                                        PSYM            12+           DOIT           553+           LABCON        1024+ 
                                        DOPROC          23+           DOGOOF         561+           DOEND=        1037+ 
                                        INTVAR         311+           DOLAB          571+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ERPRO     DONEX     CON.      CDD       Z.DOLST   SYMBOL    ADDREF
                                        ERPROI    DOFLAG    N.TLAB    P2NOGO    WRM       LABEL     RSELECT 
                                        PH2RETN   L.LOOP    TRACEL    DFLAG     LEVEL2    ASAER     STRIP 
                                        FATALER   E.UDEFL   O.DOLST   OPTLVL    CONVERT   NRFD      WTW=
                                        DOITX     VALUE.    L.DOLST   ADDWD     CFO       NCAD      F.RLST
  
  
  
  
                                                  IDENT  DOPROC                                                  DOPROC      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=DOPRC  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     DOPROC      5
                                                  EXT    ERPRO,ERPROI,PH2RETN,FATALER,DOITX,DONEX                DOPROC      6
                                                  EXT    DOFLAG,L.LOOP,E.UDEFL,VALUE.,CON.                       DOPROC      7
                                                  EXT    N.TLAB,TRACEL                                           DOPROC      8
                                                                                                                 DOPROC     10
                                                  TABLES DOLST                                                   DOPROC     11
                                                                                                                 DOPROC     12
                                  12     SYM1     EQU    12B                                                     DOPROC     13
                                  13     SYMEND   EQU    13B                                                     DOPROC     14
                                  17     DIM1     EQU    17B                                                     DOPROC     15
                                  23     CLABEL   EQU    23B                                                     DOPROC     16
                                  21     LTYPE    EQU    21B         STMT TYPE OF OBJECT OF LOGICAL IF           FCC0825     8
                                  24     TYPE     EQU    24B                                                     DOPROC     17
                                  32     SELIST   EQU    32B                                                     DOPROC     18
                                  37     DUKE     EQU    37B               BINARY LINE COUNT                     DOPROC     19
                                  64     NRLN     EQU    64B               NEXT R NUMBER                         DOPROC     20
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     2
  
  
                                                                                                                 DOPROC     21
                                 231     L.DOTAB  EQU    3*50+3            LENGTH OF THE DO TABLE                DOPROC     22
             0  00000000000000001104 +   O.DOTAB  VFD    60/DOTAB          ADDRESS OF CURRENT DO TABLE ENTRY     DOPROC     23
                                                                                                                 DOPROC     24
                                                  USE    DEBUG                                                   FCC0477     6
                                                  USE    *                                                       FCC0477     7
                                                  ENTRY  DOTAB                                                   DOPROC     25
                                                  USE    DOTAB                                                   DOPROC     26
          1104                     3     DOTAB    BSSZ   3                 DOPROC MUST BECOME RIGHT BEFORE DPCLO DOPROC     27
                                                  USE    *                 BECAUSE THE DO TABLE OVERLAPS IT      DOPROC     28
                                                                                                                 DOPROC     29
                                         M.LAB    RMEQU  104B        LABEL DEFINITION RMACRO                     FCC0220    46
                                         M.DOBGN  RMEQU  2           DO BEGIN MACRO                              DOPROC     31
                                         M.DOEND  RMEQU  3           DO END MACRO                                DOPROC     32
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     3
                                                                      WLABM 
  
             1  16730000010000000000     LABM     RMHDR  M.LAB,1           RLIST MACRO HEADER WORD               DOPROC     34
             2                     1              BSS    1                                                       DOPROC     35
  
  
  
  
                                        **        WLABM - WRITE LABEL DEFINITION MACRO TO R-LIST FILE.           DOPROC     37
                                        *                                                                        DOPROC     38
                                        *         ENTRY  (X5) = IH OF LABEL                                      FCC0220    47
                                        *                                                                        DOPROC     40
                                        *         CALLS  WRITEW                                                  DOPROC     41
                                        *                                                                        DOPROC     42
                                        *         USES   X - 0, 3, 4, 6, 7                                       DOPROC     43
                                                                                                                 DOPROC     44
                                                                                                                 FCC0220    48
             3  0400400003 +             WLABM    SUBR   =           ** ENTRY/EXIT **                            FCC0220    49
             4  5140000001 +                      SA4    LABM                                                    DOPROC     46
                          5130000064              SA3    NRLN                                                    DOPROC     47
             5  43054                             MX0    -R1.RIL                                                 DOPROC     48
                     22705                        LX7    X5                                                      DOPROC     49
                          11404                   BX4    X0*X4                                                   DOPROC     50
                               36634              IX6    X3+X4       ADD CURRENT VALUE OF NRLN                   DOPROC     51
             6  54640                             SA6    A4                                                      DOPROC     52
                     6110000001                   SB1    1                                                       DOPROC     54
                               54761              SA7    A6+B1                                                   FCC0220    50
             7  64640                             WRITEW =XF.RLST,A4,2                                           DOPROC     55
            11  6150000001                        SB5    1                                                       DOPROC     56
                          0400000003 +            EQ     EXIT.                                                   FCC0220    51
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     4
  
  
                                        *         ERROR MESSAGES                                                 DOPROC     59
                                                                                                                 DOPROC     60
                                   1     E.DO1    EQU    1                 LOOPS NESTED TOO DEEP                 DOPROC     61
                                   2     E.DO2    EQU    2                 BAD DO LABEL                          DOPROC     62
                                   3     E.DO3    EQU    3                 DO LABEL PREVIOUSLY DEFINED           FCC0220    52
                                   4     E.DO4    EQU    4                 CONTROL VARIABLE NOT INTEGER, ETC.    DOPROC     64
                                   5     E.DO5    EQU    5                 BAD DO STMT SYNTAX                    DOPROC     65
                                   6     E.DO6    EQU    6                 CONSTANT DO PARAM EXCEEDS LIMITS      DOPROC     66
                                   7     E.DO7    EQU    7                 BAD DO PARAMETER SYNTAX               DOPROC     67
                                  10     E.DO8    EQU    8                 DUPLICATE STMT NUMBER                 DOPROC     68
                                  11     E.DO9    EQU    9                 ILLEGAL STMT NUMBER REF               DOPROC     69
                                  12     E.DO10   EQU    10                SAME, BUT BACKWARD                    DOPROC     70
                                  13     E.DO11   EQU    11                ILLEGAL STMT TYPE FOR LOOP TERM       DOPROC     71
                                  14     E.DO12   EQU    12                ILLEGAL NESTING ( UNTERMINATED LOOPS  DOPROC     72
                                  15     E.DO13   EQU    13                REDEF OF LOOP CONTROL VARIABLE OR PAR DOPROC     73
                                 342     E.DO14   EQU    226               MAY REDEFINE CV OR INDEX              FCC0220    53
                                  20     E.DO16   EQU    16                ILLEGAL ENTRY TO A LOOP               DOPROC     76
                                  21     E.DO17   EQU    17                UNDEFINED STMT LABEL(S), SEE BELOW    FCC0220    54
                                  22     E.DOMUL  EQU    18                MISUSE OF A LABEL                     DOPROC     78
                                  23     E.DO19   EQU    19                NEED MORE STORAGE FOR OPTIMIZATION    DOPROC     79
                                  24     E.DO20   EQU    20                DO N  I = 1,I                         DOPROC     80
                                  25     E.DO21   EQU    21                COMPILER ERROR                        DOPROC     81
                                  26     E.DO22   EQU    22                LOWER LIM .GE. UPPER LIM, 1-TRIP LOOP FCC0220    55
                                 151     E.DO24   EQU    105               FMT IS AN ILLEGAL TERMINATOR          FCC0220    56
                                 120     E.DO80   EQU    80                LABEL MORE THAN 5 CHARACTERS          DOPROC     83
                                 202     E.DO130  EQU    130               0 STMT LABEL                          DOPROC     84
                                 461    E.DO305   EQU    305         OBJECT OF LOG IF IS DO TERMINAL--NON-ANSI   FCC0825     9
                                 462     E.DOEXT  EQU    306               NON-INNER LOOP ENTERED FROM OUTSIDE   DOPROC     86
                                 326     E214     EQU    214                                                     FCC2321     7
                                 232     E.DO154  EQU    154         REDEFINITION OF FPS IS NON-ANSI             FCC1901    52
  
  
  
                                        ***                                                                      DOPROC     88
                                        *         "DOPROC" MANIPULATES 2 TABLES, "DOTOP" AND "DOLIST" .          DOPROC     89
                                        *                                                                        DOPROC     90
                                        *         "DOTAB" IS THE DO LOOP INFORMATION TABLE WHICH IS 3            DOPROC     91
                                        *         WORDS/ENTRY AND HAS ROOM FOR 50 ENTRIES ( THE NESTING          DOPROC     92
                                        *         LEVEL OF THE COMPILER ).  THE FORMAT OF AN ENTRY FOR THE       DOPROC     93
                                        *         DO STATEMENT  "DO  S  IX  =  B,C,D"  IS:                       DOPROC     94
                                        *                                                                        DOPROC     95
                                        *         12/S,30/0,18/B                                                 DOPROC     96
                                        *         12/IX,12/0,18/P,18/C                                           DOPROC     97
                                        *         12/GL,20/0,3/CV(BCD),7/EXIMVJR,18/D                            DOPROC     98
                                        *                                                                        DOPROC     99
                                        *         GL IS THE ORDINAL FOR THE LABEL ( ")XX" ) GENERATED FOR THE    DOPROC    100
                                        *         TOP OF THE LOOP.  P IS AN ORDINAL INTO "DOLIST" .              DOPROC    101
                                        *         THE CV BITS ARE SET IF THE CORRESPONDING ENTRY IS A VARIABLE   DOPROC    102
                                        *         EXIMVJR ARE OPTIMIZATION FLAGS                                 DOPROC    103
                                        *                                                                        DOPROC    104
                                        *         "DOLIST" IS A VARIABLE LENGTH LIST STARTING AT "DO1" IN        DOPROC    105
                                        *         WORKING STORAGE. EACH ENTRY IN DOLIST IS A SINGLE WORD         DOPROC    106
                                        *         THE FOLLOWING ITEMS ARE KEPT TRACK OF:                         DOPROC    107
                                        *         VARIABLE DEFINITIONS, FORMAT- 1/1,29/0,12/BASE,18/BIAS         DOPROC    108
                                        *         REFERENCES TO LABELS, FORMAT:  60/SYMTAB ORDINAL               DOPROC    109
                                        *                                                                        DOPROC    110
                                                                                                                 DOPROC    111
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     5
  
  
                                        *         DEFINE WITH VALUE MACRO.                                       DOPROC    113
                                                                                                                 DOPROC    114
                                                  MACRO  DEFINV,N,LONG,RESET                                     DOPROC    115
                                         N        DEFINE LONG,RESET                                              DOPROC    116
                                                  IFLE   ".P"N_P,21,1                                            DOPROC    117
                                         ".P"N_V  BIT    ".P"N_P                                                 DOPROC    118
                                         DEFINV   ENDM                                                           DOPROC    119
  
  
                                        *         DOTAB DESCRIPTORS.                                             DOPROC    121
                                                                                                                 DOPROC    122
                                                  DESCRIBE D1.,60    WORD 1                                      DOPROC    123
                                         S        DEFINE 12          DO OBJECT-LABEL ORDINAL                     DOPROC    124
                                         LC       DEFINE 18          LOOP COUNTER  ( 2*L.LOOP )                  DOPROC    125
                                         OT       DEFINE 1           SET IF A ONE-TRIP LOOP                      DOPROC    126
                                                  DEFINE 11                                                      DOPROC    127
                                         B        DEFINE 18          DO UPPER LIMIT                              DOPROC    128
                                                                                                                 DOPROC    129
                                                  DESCRIBE D2.,60    WORD 2                                      DOPROC    130
                                         IX       DEFINE 12          CONTROL VARIABLE                            DOPROC    131
                                                  DEFINE 12                                                      DOPROC    132
                                         P        DEFINE 18          ORDINAL IN DOLIST                           DOPROC    133
                                         C        DEFINE 18          DO LOWER-LIMIT                              DOPROC    134
                                                                                                                 DOPROC    135
                                                  DESCRIBE D3.,60    WORD 3                                      DOPROC    136
                                         GL       DEFINE 12          )XX ORDINAL                                 DOPROC    137
                                                  DEFINE 20                                                      DOPROC    138
                                         CV       DEFINE 3           /B,C,D ARE VARIABLE/ FLAGS                  DOPROC    139
                                         OF       DEFINE 7           OPTIMIZATION FLAGS                          DOPROC    140
                                         D        DEFINE 18          INCREMENT ORDINAL                           DOPROC    141
                                                                                                                 DOPROC    142
                                                  DESCRIBE CV.,3     SET IF VARIABLE                             DOPROC    143
                                         B        DEFINV 1           LOWER LIMIT                                 DOPROC    144
                                         C        DEFINV 1           UPPER LIMIT                                 DOPROC    145
                                         D        DEFINV 1           INCREMENT                                   DOPROC    146
                                                                                                                 DOPROC    147
                                                  DESCRIBE OF.,7                                                 DOPROC    148
                                         E        DEFINV 1           LOOP CONTAINS POSSIBLE ENTRY                DOPROC    149
                                         X        DEFINV 1           LOOP CONTAINS POSSIBLE EXIT                 DOPROC    150
                                         I        DEFINV 1           NON-INNER LOOP                              DOPROC    151
                                         M        DEFINV 1           MATERIALIZE IX                              DOPROC    152
                                         V        DEFINV 1           DO S I=1,N,I                                DOPROC    153
                                         J        DEFINV 1           EXTERNAL REFERENCE                          DOPROC    154
                                         R        DEFINV 1           INHIBIT OPTIMIZATION                        DOPROC    155
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     6
         MACROS 
  
                                        ***                                                                      DOPROC    157
                                        *         PSYM - PREPARE NAME FOR ERROR ROUTINE                          DOPROC    158
                                        *                                                                        DOPROC    159
                                        *         ON ENTRY:                                                      DOPROC    160
                                        *                X2 = SYMTAB ORDINAL                                     DOPROC    161
                                        *                                                                        DOPROC    162
                                        *         ON EXIT:                                                       DOPROC    163
                                        *                X3 = FORMATTED SYMBOL                                   DOPROC    164
                                        *                X4 = 0                                                  DOPROC    165
                                        *                                                                        DOPROC    166
            12  00000000000000000000     PSYM     ENTRY.                                                         DOPROC    167
            13  5110000012                        SA1    SYM1                                                    DOPROC    168
                          20201                   LX2    1                 2*ORDINAL                             DOPROC    169
                               37512              IX5    X1-X2                                                   DOPROC    170
            14  53450                             SA4    X5                WORD A                                DOPROC    171
                     43052                        MX0    L.NAME                                                  DOPROC    172
                          11104                   BX1    X0*X4       EXTRACT SYMBOL                              FCC1289X   18
            15  0100000000 X                      RJ     =XSTRIP     STRIP OFF TRAILING $                        FCC1289X   19
            16  20160                             LX1    60-12                                                   FCC1289X   20
                     7120000055                   SX2    1R                                                      DOPROC    175
            17  0324000021 +                      PL     X4,PSYM1          IF A NAME                             DOPROC    176
                          7140000002              SX4    1R.-1R                                                  DOPROC    177
            20  20452                             LX4    42                                                      DOPROC    178
                     37314                        IX3    X1-X4       CHANGE . TO A BLANK                         FCC1289X   21
                          7120005555              SX2    2R                                                      DOPROC    180
                                                                                                                 DOPROC    181
            21  43400                    PSYM1    MX4    0                 CLEAR X4                              DOPROC    182
                     12312                        BX3    X1+X2       ADD BLANK FILL                              FCC1289X   22
                          0400000012 +            EQ     PSYM                                                    DOPROC    184
  
  
  
                                         ERNAME   MACRO  ORD                                                     DOPROC    186
                                                  IF     REG,ORD                                                 DOPROC    187
                                                  IFC    NE,/ORD/X2/,1                                           DOPROC    188
                                                  SX2    ORD                                                     DOPROC    189
                                                  ELSE                                                           DOPROC    190
                                                  SA2    ORD                                                     DOPROC    191
                                                  ENDIF                                                          DOPROC    192
                                                  RJ     PSYM              PREPARE SYMBOL FOR ERROR ROUTINE      DOPROC    193
                                                  ENDM                                                           DOPROC    194
                                                                                                                 DOPROC    195
                                         LABCON   MACRO                    CONVERT LABEL AND ENTER IN SYMTAB     DOPROC    196
                                                  SB7    *+2-*P/60D                                              DOPROC    197
                                                  EQ     LABCON                                                  DOPROC    198
                                                  ENDM                                                           DOPROC    199
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     7
         DOPROC - PROCESS DO STMT 
  
                                        ***                                                                      DOPROC    201
                                        *         DOPROC - DO STATMENT PROCESSOR                                 DOPROC    202
                                        *         CHECK STATEMENT FOR A VALID STMT NUMBER,                       DOPROC    203
                                        *         CALL "DOTOP" TO PROCESS THE REST OF THE STATEMENT              DOPROC    204
                                        *                                                                        DOPROC    205
                                                                                                                 FCC0579     5
            22                     1     DOPRA    BSSZ   1           *LABEL PREVIOUSLY DEFINED* FLAG             FCC0579     6
                                                                                                                 FCC0579     7
            23  0400400023 +             DOPROC   SUBR   =                 ** ENTRY/EXIT **                      DOPROC    206
            24  5130000032                        SA3    SELIST                                                  DOPROC    207
                          53430                   SA4    X3                (X4)=1ST ELIST ELEMENT                DOPROC    208
                               26224              UX2    B2,X4                                                   DOPROC    209
            25  0520000053 +                      NE     B2,B0,DOPR.E1     IF NOT A CONSTANT (LABEL)             DOPROC    210
                          53120                   SA1    X2                (X1)=1ST WORD OF *CONSTOR* ENTRY      DOPROC    211
                                        *                                  FOR LABEL                             DOPROC    212
                               21422              AX4    18                                                      DOPROC    213
            26  6214000000                        SB1    X4+               (B1)=NR OF CHARS IN LABEL             DOPROC    214
                          6170000030 +            LABCON                   CONVERT LABEL AND PUT IN SYMTAB       DOPROC    215
                                                                                                                 DOPROC    216
            30  7100000006                        SX0    T.LAB                                                   DOPROC    217
                          20070                   LX0    P.TYP             SET TYPE TO LABEL                     DOPROC    218
                               12202              BX2    X0+X2                                                   DOPROC    219
                                                                                                                 DOPROC    220
            31  10322                   +         BX3    X2                                                      DOPROC    221
                     20307                        LX3    59-P.DSN                                                DOPROC    222
                          76710                   SX7    B1                                                      DOPROC    223
                               20760              LX7    D1.SP                                                   DOPROC    224
            32  5170000001 C                      SA7    LWD             STORE FOR DO TOP                        DOPROC    225
                                                                                                                 DOPROC    226
                          43502                   MX5    2                                                       DOPROC    227
                               11753              BX7    X5*X3           EXTRACT DSN + DFN BITS                  DOPROC    228
            33  20301                             LX3    1                                                       DOPROC    229
                     11553                        BX5    X5*X3           EXTRACT DFN + RFN BITS                  DOPROC    230
                          12775                   BX7    X7+X5                                                   DOPROC    231
            34  5130000032                        SA3    SELIST                                                  DOPROC    232
                          5170000002 C            SA7    IH              SAVE IN CASE OF CALL TO ERPRO           DOPROC    233
            35  53430                             SA4    X3                                                      DOPROC    234
                     0327000040 +                 PL     X7,DOPROC2        IF LABEL NOT PREVIOUSLY DEFINED       DOPROC    235
            36  5170000022 +                      SA7    DOPRA       SET *LABEL PREVIOUSLY DEFINED* FLAG         FCC0579     8
                          6160000003              POSTER SEV=FE,NR=E.DO3,FMT=ELIST,TXT=X4,RETURN=DOPROC2         DOPROC    236
                                                                                                                 DOPROC    237
            40  5150000002 C            DOPROC2   SA5    IH                                                      DOPROC    238
                          5130000032              SA3    SELIST                                                  DOPROC    239
            41  36655                             IX6    X5+X5                                                   DOPROC    240
                     53430                        SA4    X3                                                      DOPROC    241
                          0326000044 +            PL     X6,DOPROC2A       IF DO NOT TERMINATED BY FORMAT STMT   DOPROC    242
            42  6160000151                        POSTER SEV=FE,NR=E.DO24,FMT=ELIST,TXT=X4,RETURN=DOPROC3        DOPROC    243
            44  0335000046 +             DOPROC2A MI     X5,DOPROC3        IF LABEL PREVIOUSLY DEFINED           DOPROC    244
                          76050                   SX0    B5                                                      DOPROC    245
                               20060              LX0    P.DLT             SET DO LOOP TERMINATOR BIT            DOPROC    246
            45  12602                             BX6    X0+X2                                                   DOPROC    247
                     54620                        SA6    A2                                                      DOPROC    248
            46  5150000000 X             DOPROC3  SA5    =XRSELECT                                               DOPROC    249
                          5140000001 C            SA4    LWD                                                     DOPROC    250
            47  0305000051 +                      ZR     X5,DOPROC1        IF R = 0                              DOPROC    251
                          20414                   LX4    -D1.SP                                                  DOPROC    252
                               63140              SB1    X4                                                      DOPROC    253
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     8
         DOPROC - PROCESS DO STMT 
  
            50  43200                             ADDREF B1,REF            A REFERENCE FOR THE LABEL             DOPROC    254
                                                                                                                 DOPROC    255
            51  0100000065 +             DOPROC1  RJ     DOTOP       SETUP THE TOP OF THE LOOP                   DOPROC    256
            52  0400000023 +                      EQ     DOPROC                                                  DOPROC    257
                                                                                                                 DOPROC    258
            53  6160000002               DOPR.E1  POSTER SEV=FE,NR=E.DO2,FMT=ELIST,TXT=X4,RETURN=DOPROC          DOPROC    259
  
  
                                        *         TEMPORARIES ASSOCIATED WITH DOTOP,DOPROC,GENMAC,LIMIT, ETC.    DOPROC    261
                                                                                                                 DOPROC    262
                                                  USE    /MACBUF/                                                DOPROC    263
             0  00000000000000000000     SVELIST                           HOLDS SELIST WHEN PROC AN IMPLIED DO  DOPROC    264
             1  00000000000000000000     LWD                               HOLDS THE FIRST WORD OF THE DOTAB     DOPROC    265
                                        *                                  ENTRY TO BE FORMED                    DOPROC    266
             2  00000000000000000000     IH                                                                      DOPROC    267
             3  00000000000000000000     CVAR                              USED TO SAVE THE ORDINALS OF THE      DOPROC    268
             4                     3              BSS    3                 LOOP CV AND LIMITS                    DOPROC    269
                                                                                                                 DOPROC    270
             7                     7     RLSST    BSSZ   7                 R LIST MACRO BUFFER                   DOPROC    271
                                                  USE    *                                                       DOPROC    272
                                                                                                                 DOPROC    273
            55                     1     OTF      BSS    1           ONE-TRIP LOOP FLAG                          DOPROC    274
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE     9
         DOTOP - SET UP TOP OF DO LOOP
  
                                        ***                                                                      DOPROC    276
                                        *                                                                        DOPROC    277
                                        *         DOTOP - PROCESS DO STMT AND FORM "DOTABLE" ENTRY FOR IT.       DOPROC    278
                                        *         CALLS GENMAC TO GENERATE AN RLIST MACRO FOR THE TOP OF THE LOO DOPROC    279
                                        *                                                                        DOPROC    280
            56  6170000057 +             DOTOPX   SB7    *+1               ** ERROR EXIT **                      DOPROC    281
                          0400000000 X            EQ     ERPRO                                                   DOPROC    282
                                                                                                                 DOPROC    283
            57  5110000001 C             DOTOPX1  SA1    LWD                                                     FCC0579     9
                          43600                   MX6    0                                                       FCC0579    10
            60  5160000022 +                      SA6    DOPRA       DOPRA = 0                                   FCC0579    11
                          73210                   SX2    X1                                                      DOPROC    285
            61  0302000065 +                      ZR     X2,DOTOP          IF WE DIDNT ADD AN ENTRY              DOPROC    286
                          5120000000 X            SA2    DOFLAG                                                  DOPROC    287
            62  7262777776                        SX6    X2-1              DECREMENT DO NEST LEVEL               DOPROC    288
                          54620                   SA6    A2                                                      DOPROC    289
            63  5130000000 +                      SA3    O.DOTAB                                                 DOPROC    290
                          7273777774              SX7    X3-3              DECREMENT DO STACK POINTER            DOPROC    291
            64  54730                             SA7    A3                                                      DOPROC    292
                                                                                                                 DOPROC    293
            65  00000000000000000000     DOTOP                                                                   DOPROC    294
            66  0100000275 +                      RJ     SYNCHEK           GO DO SYNTAX CHECK                    DOPROC    295
            67  76050                             SX0    B5                                                      DOPROC    296
                     20026                        LX0    D3.OFP+OF.IP      I-BIT                                 DOPROC    297
                          5120000000 +            SA2    O.DOTAB           DO TABLE ADDRESS                      DOPROC    298
            70  5232000002                        SA3    X2+2              WORD 3                                DOPROC    299
                          12603                   BX6    X0+X3             SET I BIT                             DOPROC    300
                               54630              SA6    A3                                                      DOPROC    301
            71  5150000032                        SA5    SELIST                                                  DOPROC    302
                          5225777776              SA2    X5-1              FETCH SECOND ELEMNT                   DOPROC    303
            72  0100000311 +                      RJ     INTVAR            GO CHECK FOR INTEGER VARIABLE         DOPROC    304
            73  6160777773                        SB6    -E.DO4            CV NOT AN INTEGER VARIABLE            DOPROC    305
                          0400000056 +            EQ     DOTOPX                                                  DOPROC    306
                                                                                                                 DOPROC    307
            74  7100200000                        SX0    V.DEF                                                   DOPROC    308
                          12601                   BX6    X0+X1                                                   DOPROC    309
                               54610              SA6    A1                SET DEFINED BIT                       DOPROC    310
            75  7100010000                        SX0    V.EQU                                                   FCC0949     5
                          11601                   BX6    X0*X1                                                   FCC0949     6
                               20155              LX1    59-P.COM                                                FCC0949     7
            76  0321000100 +                      PL     X1,DOTOP0   IF COM BIT NOT SET                          FCC0949     8
                          20760                   LX7    -P.RB                                                   FCC0949     9
                               43065              MX0    -L.RB                                                   FCC0949    10
            77  15770                             BX7    -X0*X7      NOT REALLY IN COMMON IF RB = 0              FCC0949    11
                     36667                        IX6    X6+X7                                                   FCC0949    12
           100  5160000007 C             DOTOP0   SA6    RLSST                                                   FCC0949    13
                                                                                                                 DOPROC    314
                          76610                   SX6    B1                                                      DOPROC    315
           101  5160000003 C                      SA6    CVAR              SAVE THE CONTROL VARIABLE             DOPROC    316
                          43700                   MX7    0                                                       DOPROC    317
                               54765              SA7    A6+B5             CLEAR OUT VARIABLE ORDINALS           DOPROC    318
           102  54775                             SA7    A7+B5                                                   DOPROC    319
                     54775                        SA7    A7+B5                                                   DOPROC    320
                                                                                                                 DOPROC    321
                                        *         FORM SECOND WORD OF ENTRY:  12/IX,12/0,18/P,18/C               DOPROC    322
                                                                                                                 DOPROC    323
                          5120000000 +            SA2    O.DOTAB                                                 DOPROC    324
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    10
         DOTOP - SET UP TOP OF DO LOOP
  
           103  76410                             SX4    B1                                                      DOPROC    325
                     20460                        LX4    D2.IXP      ORDINAL OF CV                               DOPROC    326
                          5130000000 X            SA3    L.DOLST                                                 DOPROC    327
           104  20322                             LX3    D2.PP       ORDINAL IN DOLIST                           DOPROC    328
                     43700                        MX7    0                                                       DOPROC    329
                          5170000000 X            SA7    =XNCAD                                                  DOPROC    330
           105  5170000000 X                      SA7    =XNRFD                                                  DOPROC    331
                          12734                   BX7    X3+X4                                                   DOPROC    332
           106  5272000004                        SA7    X2+4              STORE ORD OF CV ( IX ) AND P ORD      DOPROC    333
                          5021777776              SA2    A1-1        GET WORD B                                  FCC1901    53
           107  20273                             LX2    59-P.FPB                                                FCC1901    54
                     0322000114 +                 PL     X2,DOTOP0A  IF NOT FP                                   FCC1901    55
                               20227              LX2    P.FPB-P.RL                                              FCC1901    56
           110  0322000114 +                      PL     X2,DOTOP0A  IF NOT RL                                   FCC1901    57
                          54110                   SA1    A1          GET WORD A                                  FCC1901    58
                               43352              MX3    L.NAME                                                  FCC1901    59
           111  11331                             BX3    X3*X1       EXTRACT SYMBOL                              FCC1901    60
                     20360                        LX3    60-12                                                   FCC1901    61
                          7150000055              SX5    1R                                                      FCC1901    62
           112  12335                             BX3    X3+X5       ADD BLANK FILL                              FCC1901    63
                     13444                        POSTER SEV=ANSI,NR=E.DO154,FMT=DPC,TXT=X3                      FCC1901    64
           114                           DOTOP0A  BSS    0                                                       FCC1901    65
           114  0100000440 +                      RJ     DODEF             GO CHECK LOOP VARIABLE AND PUT IN DOL DOPROC    334
                                                                                                                 DOPROC    335
           115  5110000007 C                      SA1    RLSST                                                   DOPROC    336
                          0301000120 +            ZR     X1,DOTOP1   IF CV NOT COM OR EQV                        DOPROC    337
                                                                                                                 DOPROC    338
           116  6160777322                        POSTERR  SEV=INF,NR=301D  CV COM/EQV, OPTIMIZATION INHIBITED   DOPROC    339
                                                                                                                 DOPROC    340
           120  5140000000 +             DOTOP1   SA4    O.DOTAB                                                 DOPROC    341
                          7264000003              SX6    X4+3                                                    DOPROC    342
           121  7276776442 -                      SX7    X6-DOTAB-L.DOTAB                                        DOPROC    343
                          6160777776              SB6    -E.DO1            TOO MANY DO LOOPS                     DOPROC    344
           122  0327000056 +                      PL     X7,DOTOPX         IF NESTING LIMIT EXCEEDED             DOPROC    345
                                                                                                                 DOPROC    346
                          54640                   SA6    A4                UPDATE TABLE POINTER                  DOPROC    347
           123  5110000000 X                      SA1    DOFLAG                                                  DOPROC    348
                          73715                   SX7    X1+B5             INCREMENT LEVEL OF NESTING            DOPROC    349
                               54710              SA7    A1                                                      DOPROC    350
                                                                                                                 DOPROC    351
           124  5110000001 C                      SA1    LWD               DO LABEL ORDINAL                      DOPROC    352
                          10711                   BX7    X1                                                      DOPROC    353
                               53760              SA7    X6                STORE IN WORD 1                       DOPROC    354
           125  43700                             MX7    0                                                       DOPROC    355
                     5077000002                   SA7    A7+2              CLEAR WORD 3                          DOPROC    356
                               76750              SX7    B5                                                      DOPROC    357
           126  54710                             SA7    A1                SET ENTRY ADDED FLAG                  DOPROC    358
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           DOPROC    359
                                                                                                                 DOPROC    360
                                        *         INHIBIT OPTIMIZATION IF CV IS LEVEL 2.                         DOPROC    361
                                                                                                                 DOPROC    362
                     5110000003 C                 SA1    CVAR                                                    DOPROC    363
           127  0100000360 +                      RJ     IOL                                                     DOPROC    364
                                                                                                                 DOPROC    365
                                         #DAL     ENDIF                                                          DOPROC    366
                                                                                                                 DOPROC    367
                                        *         PROCESS DO LIMITS AND FORM A DO TABLE ENTRY                    DOPROC    368
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    11
         DOTOP - SET UP TOP OF DO LOOP
  
                                                                                                                 DOPROC    369
           130  5150000032                        SA5    SELIST                                                  DOPROC    370
                          5225777774              SA2    X5-3              E LIST FOR LOWER LIMIT                DOPROC    371
           131  0100000336 +                      RJ     LIMIT             CHECK LIMIT FOR CONSTANT OR VARIABLE  DOPROC    372
           132  0400000146 +                      EQ     FC2               CONSTANT                              DOPROC    373
                                                                                                                 DOPROC    374
           133  5130000000 +                      SA3    O.DOTAB                                                 DOPROC    375
                          76250                   SX2    B5                                                      DOPROC    376
                               20233              LX2    D3.CVP+CV.BP      LL IS VARIABLE                        DOPROC    377
           134  5243000002                        SA4    X3+2                                                    DOPROC    378
                          12724                   BX7    X2+X4                                                   DOPROC    379
                               54740              SA7    A4                                                      DOPROC    380
                                                                                                                 DOPROC    381
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           DOPROC    382
           135  5110000002 C                      SA1    IH                                                      DOPROC    383
                          0100000360 +            RJ     IOL         CHECK FOR LEVEL 2 LL                        DOPROC    384
                                         #DAL     ENDIF                                                          DOPROC    385
                                                                                                                 DOPROC    386
                                                                                                                 DOPROC    387
           136  5120000002 C                      SA2    IH                ORDINAL                               DOPROC    388
                          10622                   BX6    X2                                                      DOPROC    389
           137  5160000004 C                      SA6    CVAR+1            SAVE FOR THE REFERENCE MAP            DOPROC    390
                          0100000425 +            RJ     NAME                                                    DOPROC    391
           140  66610                             SB6    B1                                                      DOPROC    392
                     66720                        SB7  B2                                                        DOPROC    393
                          5120000003 C            SA2  CVAR                                                      DOPROC    394
           141  0100000425 +                      RJ   NAME                                                      DOPROC    395
           142  0516000146 +                      NE     B1,B6,FC2         IF THE INITIAL VALUE IS NOT THE SAME  DOPROC    396
                          0527000146 +            NE     B2,B7,FC2         THE INCREMENT                         DOPROC    397
                                        *                                                                        DOPROC    398
           143  6160000015                        SB6    E.DO13            * REDEFINES LOOP CONTROL VARIABLE*    DOPROC    399
                          6170000146 +            SB7  FC2                                                       DOPROC    400
           144  0100000012 +                      ERNAME X2                                                      DOPROC    401
           145  0400000000 X                      EQ   ERPROI                                                    DOPROC    402
                                                                                                                 DOPROC    403
           146  5120000002 C             FC2      SA2    IH                LOAD IH VALUE                         DOPROC    404
                          5130000000 +            SA3    O.DOTAB                                                 DOPROC    405
           147  53430                             SA4    X3                WORD 1                                DOPROC    406
                     12642                        BX6    X4+X2                                                   DOPROC    407
                          53630                   SA6    X3                ADD B FIELD                           DOPROC    408
                                                                                                                 DOPROC    409
                                        *         PROCESS SECOND DO PARAMETER ( UPPER LIMIT )                    DOPROC    410
                                                                                                                 DOPROC    411
           150  5150000032                        SA5    SELIST                                                  DOPROC    412
                          5225777772              SA2    X5-5              E LIST FOR THE UPPER LIMIT            DOPROC    413
           151  0100000336 +                      RJ     LIMIT             CHECK UPPER LIMIT                     DOPROC    414
           152  0400000170 +                      EQ     IHTC              GO PUT IH INTO C FIELD                DOPROC    415
                                                                                                                 DOPROC    416
           153  5130000000 +                      SA3    O.DOTAB                                                 DOPROC    417
                          5243000002              SA4    X3+2              THIRD WORD OF ENTRY                   DOPROC    418
           154  76050                             SX0    B5                                                      DOPROC    419
                     20032                        LX0    D3.CVP+CV.CP                                            DOPROC    420
                          12604                   BX6    X0+X4             SET CV(B) BIT                         DOPROC    421
                               54640              SA6    A4                                                      DOPROC    422
                                                                                                                 DOPROC    423
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           DOPROC    424
           155  5110000002 C                      SA1    IH                                                      DOPROC    425
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    12
         DOTOP - SET UP TOP OF DO LOOP
  
                          0100000360 +            RJ     IOL         CHECK FOR LEVEL 2 UL                        DOPROC    426
                                         #DAL     ENDIF                                                          DOPROC    427
                                                                                                                 DOPROC    428
                                                                                                                 DOPROC    429
                                        *         CHECK FOR UPPER LIMIT = CONTROL VARIABLE                       DOPROC    430
                                                                                                                 DOPROC    431
           156  5120000002 C                      SA2    IH                ORDINAL                               DOPROC    432
                          10622                   BX6    X2                                                      DOPROC    433
           157  5160000005 C                      SA6    CVAR+2            SAVE FOR THE REF MAP                  DOPROC    434
                          0100000425 +            RJ     NAME                                                    DOPROC    435
           160  66610                             SB6    B1                                                      DOPROC    436
                     66720                        SB7    B2                SAVE THE BASE AND BIAS                DOPROC    437
                          5120000003 C            SA2    CVAR                                                    DOPROC    438
           161  0100000425 +                      RJ     NAME                                                    DOPROC    439
           162  0516000170 +                      NE     B1,B6,IHTC        IF NOT THE SAME BASE                  DOPROC    440
                          0527000170 +            NE     B2,B7,IHTC        IF NOT THE SAME BIAS                  DOPROC    441
                                                                                                                 DOPROC    442
           163  5130000000 +                      SA3    O.DOTAB                                                 DOPROC    443
                          7100000014              SX0    OF.MV+OF.VV                                             DOPROC    444
           164  5243000002                        SA4    X3+2              WORD 3                                DOPROC    445
                          20022                   LX0    D3.OFP                                                  DOPROC    446
                               12604              BX6    X0+X4             SET M AND V BITS                      DOPROC    447
           165  54640                             SA6    A4                                                      DOPROC    448
                                                                                                                 DOPROC    449
                     6160000024                   SB6    E.DO20            DO N I = 1,I                          DOPROC    450
           166  6170000170 +                      SB7    IHTC                                                    DOPROC    451
                          0100000012 +            ERNAME X2                PREPARE SYMBOL                        DOPROC    452
           167  0400000000 X                      EQ     ERPROI                                                  DOPROC    453
                                                                                                                 DOPROC    454
           170  5140000002 C             IHTC     SA4    IH                                                      DOPROC    455
                          5150000000 +            SA5    O.DOTAB                                                 DOPROC    456
           171  53355                             SA3    X5+B5             WORD 2                                DOPROC    457
                     12634                        BX6    X3+X4             ADD IH IN LOWER 18 BITS               DOPROC    458
                          54630                   SA6    A3                                                      DOPROC    459
                                                                                                                 DOPROC    460
                                        *         CHECK FOR THIRD PARAMETER                                      DOPROC    461
                                                                                                                 DOPROC    462
           172  5110000032                        SA1    SELIST                                                  DOPROC    463
                          5221777771              SA2    X1-6              CHECK FOR THIRD PARAM                 DOPROC    464
           173  26312                             UX3    B1,X2                                                   DOPROC    465
                     6121777774                   SB2    B1-EL.COMMA                                             DOPROC    466
           174  0420000177 +                      ZR     B2,DOTOP3         IF A COMMA                            DOPROC    467
                                                                                                                 DOPROC    468
                          5245000002              SA4    X5+2              WORD 3                                DOPROC    469
           175  76050                             SX0    B5                SET 1 AS LOOP INCREMENT               DOPROC    470
                     12604                        BX6    X0+X4                                                   DOPROC    471
                          54640                   SA6    A4                                                      DOPROC    472
           176  0400000223 +                      EQ     DOTOP4            GO CHECK FOR LL @ UL                  DOPROC    473
                                                                                                                 DOPROC    474
                                        *         PROCESS THIRD PARAMETER                                        DOPROC    475
                                                                                                                 DOPROC    476
           177  55225                    DOTOP3   SA2    A2-B5             LOAD INCREMENT                        DOPROC    477
                     0100000336 +                 RJ     LIMIT             GO CHECK LIMIT                        DOPROC    478
           200  0400000221 +                      EQ     IHD               CONSTANT                              DOPROC    479
                                                                                                                 DOPROC    480
           201  5150000000 +                      SA5    O.DOTAB                                                 DOPROC    481
                          5245000002              SA4    X5+2              THIRD WORD                            DOPROC    482
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    13
         DOTOP - SET UP TOP OF DO LOOP
  
           202  76350                             SX3    B5                                                      DOPROC    483
                     20331                        LX3    D3.CVP+CV.DP                                            DOPROC    484
                          12634                   BX6    X3+X4                                                   DOPROC    485
                               54640              SA6    A4                                                      DOPROC    486
                                                                                                                 DOPROC    487
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           DOPROC    488
           203  5110000002 C                      SA1    IH                                                      DOPROC    489
                          0100000360 +            RJ     IOL         CHECK FOR LEVEL 2 INC                       DOPROC    490
                                         #DAL     ENDIF                                                          DOPROC    491
                                                                                                                 DOPROC    492
                                                                                                                 DOPROC    493
           204  5130000002 C                      SA3    IH                                                      DOPROC    494
                          5110000003 C            SA1    CVAR              ORD OF THE CONTROL VARIABLE           DOPROC    495
           205  10633                             BX6    X3                                                      DOPROC    496
                     5160000006 C                 SA6    CVAR+3            SAVE ORDINAL FOR THE REFERENCE MAP    DOPROC    497
                               37731              IX7    X3-X1                                                   DOPROC    498
           206  0317000221 +                      NZ     X7,IHD            IF CVAR .NE. INCREMENT                DOPROC    499
                                                                                                                 DOPROC    500
                          6160000015              SB6    E.DO13            * REDEFINES LOOP CONTROL VARIABLE*    DOPROC    501
           207  6170000212 +                      SB7  IHC                                                       DOPROC    502
                          73230                   ERNAME X3                                                      DOPROC    503
           211  0400000000 X                      EQ   ERPROI                                                    DOPROC    504
                                        *                                                                        DOPROC    505
           212  5150000000 +             IHC      SA5    O.DOTAB           RESTORE REGISTERS AFTER ERPRO         DOPROC    506
                          5215000002              SA1    X5+2                                                    DOPROC    507
           213  10611                             BX6  X1                                                        DOPROC    508
                     54610                        SA6  A1                                                        DOPROC    509
                          7100000006              SX0    CV.BV+CV.CV                                             DOPROC    510
           214  20031                             LX0    D3.CVP                                                  DOPROC    511
                     11706                        BX7    X0*X6                                                   DOPROC    512
                          0317000217 +            NZ     X7,SETFLAGS       IF B OR C IS A VARIABLE               DOPROC    513
                                                                                                                 DOPROC    514
           215  53150                             SA1    X5                WORD 1                                DOPROC    515
                     53255                        SA2    X5+B5             WORD 2                                DOPROC    516
                          73110                   SX1    X1                LOWER LIMIT                           DOPROC    517
                               73220              SX2    X2                UPPER LIMIT                           DOPROC    518
           216  20101                             LX1    1                 2*LL                                  DOPROC    519
                     37712                        IX7    X1-X2                                                   DOPROC    520
                          0307000221 +            ZR     X7,IHD            IF 2*LL = UL                          DOPROC    521
                                                                                                                 DOPROC    522
           217  7100000014               SETFLAGS SX0    OF.MV+OF.VV                                             DOPROC    523
                          20022                   LX0    D3.OFP                                                  DOPROC    524
                               12606              BX6    X0+X6             SET V AND M BITS                      DOPROC    525
           220  54660                             SA6    A6                                                      DOPROC    526
                                                                                                                 DOPROC    527
           221  5110000002 C             IHD      SA1    IH                ORDINAL OR CONSTANT                   DOPROC    528
                          5150000000 +            SA5    O.DOTAB                                                 DOPROC    529
           222  5245000002                        SA4    X5+2              WORD 3                                DOPROC    530
                          12641                   BX6    X4+X1             ADD INCREMENT                         DOPROC    531
                               54640              SA6    A4                                                      DOPROC    532
                                                                                                                 DOPROC    533
                                        *         (X5) = (O.DOTAB) , (X4) = WORD 3 OF CURRENT LOOP               DOPROC    534
                                                                                                                 DOPROC    535
           223  20441                    DOTOP4   LX4    59-D3.CVP-CV.CP                                         DOPROC    536
                     43700                        MX7    0                                                       DOPROC    537
                          5170000055 +            SA7    OTF         OTF = 0                                     DOPROC    538
           224  0334000230 +                      MI     X4,DOTOP4A  IF UL IS A VAR                              DOPROC    539
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    14
         DOTOP - SET UP TOP OF DO LOOP
  
                          53255                   SA2    X5+B5       WORD 2                                      DOPROC    540
                               63220              SB2    X2                                                      DOPROC    541
           225  0425000234 +                      EQ     B2,B5,DOTOP1T     IF UL = 1                             DOPROC    542
                          20473                   LX4    CV.CP-CV.BP                                             DOPROC    543
           226  0334000230 +                      MI     X4,DOTOP4A  IF LL IS A VAR                              DOPROC    544
                          53150                   SA1    X5          WORD 1                                      DOPROC    545
                               63310              SB3    X1                                                      DOPROC    546
           227  0732000240 +                      LT     B3,B2,FC4   IF LL < UL                                  DOPROC    547
                          0400000234 +            EQ     DOTOP1T                                                 DOPROC    548
                                                                                                                 DOPROC    549
                                        *         UL AND/OR LL VARIABLE - CHECK FOR LL=UL                        DOPROC    550
                                                                                                                 DOPROC    551
           230  5245000002               DOTOP4A  SA4    X5+2        WORD 3                                      DOPROC    552
                          43072                   MX0    -2                                                      DOPROC    553
                               20442              LX4    -D3.CVP-CV.CP                                           DOPROC    554
           231  12704                             BX7    X0+X4                                                   DOPROC    555
                     0317000240 +                 NZ     X7,FC4      IF LL AND UL NOT BOTH VARS                  DOPROC    556
                               53250              SA2    X5          WORD 1                                      DOPROC    557
           232  53155                             SA1    X5+B5       WORD 2                                      DOPROC    558
                     63320                        SB3    X2                                                      DOPROC    559
                          63410                   SB4    X1                                                      DOPROC    560
           233  0534000240 +                      NE     B3,B4,FC4   IF B"C                                      DOPROC    561
                                                                                                                 DOPROC    562
                                        *         ONE-TRIP DO LOOP                                               DOPROC    563
                                                                                                                 DOPROC    564
           234  7170000001               DOTOP1T  SX7    1                                                       DOPROC    565
                          5170000055 +            SA7    OTF         OTF = 1                                     DOPROC    566
           235  6160777751                        POSTERR NR=E.DO22,SEV=INF                                      DOPROC    567
           237  5150000000 +                      SA5    O.DOTAB                                                 DOPROC    568
                                                                                                                 DOPROC    569
                                        *         STORE LOOP TABLE INDEX IN DOTAB                                DOPROC    570
                                                                                                                 DOPROC    571
           240  5120000022 +             FC4      SA2    DOPRA                                                   FCC0579    12
                          0312000057 +            NZ     X2,DOTOPX1  IF LABEL PREVIOUSLY DEFINED                 FCC0579    13
           241  5130000055 +                      SA3    OTF                                                     FCC0579    14
                          5120000000 X            SA2    L.LOOP      NUMBER OF LOOPS                             DOPROC    573
           242  20335                             LX3    D1.OTP                                                  DOPROC    574
                     53150                        SA1    X5          WORD 1                                      DOPROC    575
                          20237                   LX2    D1.LCP+1                                                DOPROC    576
                               12023              BX0    X2+X3                                                   DOPROC    577
           243  36601                             IX6    X0+X1       SET LC AND OTF                              DOPROC    578
                     20235                        LX2    -D1.LCP-1                                               DOPROC    579
                          54610                   SA6    A1                                                      DOPROC    580
                                                                                                                 DOPROC    581
                                        *         GENERATE A LABEL FOR THE TOP OF THE LOOP                       DOPROC    582
                                                                                                                 DOPROC    583
           244  5110001102 +                      SA1    =8R)AA                                                  DOPROC    584
                          73625                   SX6    X2+B5             INCREMENT                             DOPROC    585
                               43067              MX0    60-5              -37B                                  DOPROC    586
           245  54620                             SA6    A2                                                      DOPROC    587
                     15320                        BX3    -X0*X2            CONVERT LOOP NUMBER TO DISPLAY CODE   DOPROC    588
                          11402                   BX4    X0*X2                                                   DOPROC    589
                               20401              LX4    1                                                       DOPROC    590
           246  12543                             BX5    X4+X3                                                   DOPROC    591
                     20536                        LX5    48-18                                                   DOPROC    592
                          36151                   IX1    X5+X1                                                   DOPROC    593
           247  6170000250 +                      SB7    LABRTN      RETURN  ADDRESS                             DOPROC    594
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    15
         DOTOP - SET UP TOP OF DO LOOP
  
                          0400000000 X            EQ     =XLABEL     ENTER LABEL INTO SYMBOL TABLE               DOPROC    595
                                                                                                                 DOPROC    596
                                         LGEN     BIT    P.TYP-P.GEN                                             DOPROC    597
           250  7130000015               LABRTN   SX3    T.LAB*LGEN+1                                            DOPROC    598
                          0400000252 +            EQ     SLI2                                                    DOPROC    599
                                                                                                                 DOPROC    600
           251  6160777752               ER21A    SB6    -E.DO21           COMPILER ERROR ( TOO MANY LOOPS )     DOPROC    601
                          0400000000 X            EQ     FATALER                                                 DOPROC    602
                                                                                                                 DOPROC    603
           252  20367                    SLI2     LX3    P.GEN                                                   DOPROC    604
                     5140000037                   SA4    DUKE                                                    DOPROC    605
                               20430              LX4    P.TTLN                                                  DOPROC    606
           253  12623                             BX6    X2+X3             ADD TYPE AND G BIT                    DOPROC    607
                     5150000055 +                 SA5    OTF                                                     DOPROC    608
                               36764              IX7    X6+X4       ADD LINE NUMBER                             DOPROC    609
           254  20560                             LX5    P.FLG+OF.RP       SET R BIT IF 1 TRIP LOOP              DOPROC    610
                     12657                        BX6    X5+X7                                                   DOPROC    611
                          54620                   SA6    A2                STORE IN SECOND WORD                  DOPROC    612
                               76610              SX6    B1                                                      DOPROC    613
           255  5160000002 +                      SA6    LABM+1            SAVE ORDINAL FOR RLIST MACRO          DOPROC    614
                                                                                                                 DOPROC    615
                          5130000000 +            SA3    O.DOTAB                                                 DOPROC    616
           256  5243000002                        SA4    X3+2              WORD 3                                DOPROC    617
                          20660                   LX6    D3.GLP                                                  DOPROC    618
                               12664              BX6    X6+X4             ADD ORDINAL TO DOTAB ENTRY            DOPROC    619
           257  54640                             SA6    A4                                                      DOPROC    620
                                                                                                                 DOPROC    621
                                        *         ADD REFERENCES TO THE VARIABLES TO RMAP                        DOPROC    622
                                                                                                                 DOPROC    623
                     5150000000 X                 SA5    RSELECT                                                 DOPROC    624
           260  0305000270 +                      ZR     X5,DOTOP6         IF R = 0                              DOPROC    625
                          5110000003 C            ADDREF CVAR,DEF          A DEFINITION FOR THE LOOP INDEX       DOPROC    626
                                   0     X        SET    0                                                       DOPROC    627
                                   3              DUP    3                                                       DOPROC    628
                                         X        SET    X+1                                                     DOPROC    629
                                        +         SA1    CVAR+X                                                  DOPROC    630
                                                  ZR     X1,*+2            REFERENCES FOR THE                    DOPROC    631
                                                  ADDREF X1,REF            LOOP LIMITS                           DOPROC    632
                                                  ENDD                                                           DOPROC    633
                                                                                                                 DOPROC    634
           270  6120777775               DOTOP6   SB2    -M.DOBGN                                                DOPROC    635
                          0100000370 +            RJ     GENMAC            GENERATE MACRO FOR TOP OF DO          DOPROC    636
           271  5140000055 +                      SA4    OTF                                                     DOPROC    637
                          5150000002 +            SA5    LABM+1                                                  DOPROC    638
           272  0304000273 +                      ZR     X4,DOTOP7   IF NOT A 1 TRIP LOOP                        DOPROC    639
                          43500                   MX5    0                                                       DOPROC    640
           273  0100000003 +             DOTOP7   CALL   WLABM       )XX LABEL DEF TO RLIST                      DOPROC    641
           274  0400000065 +                      EQ     DOTOP                                                   DOPROC    642
  
  
  
                                        ***                                                                      DOPROC    644
                                        *         SYNCHEK - SYNTAX CHECK A DO STATEMENT                          DOPROC    645
                                        *                                                                        DOPROC    646
           275  00000000000000000000     SYNCHEK                                                                 DOPROC    647
           276  5110000032                        SA1    SELIST                                                  DOPROC    648
                          6110777775              SB1    -2                                                      DOPROC    649
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    16
         DOTOP - SET UP TOP OF DO LOOP
  
           277  53211                             SA2    X1+B1             E(2) = EC(=)                          DOPROC    650
                     26322                        UX3    B2,X2                                                   DOPROC    651
                          6132777772              SB3    B2-EL.=                                                 DOPROC    652
           300  0530000310 +                      NZ     B3,ER5            IF NOT AN = S SIGN                    DOPROC    653
                                                                                                                 DOPROC    654
                          5150000001 C            SA5    LWD                                                     DOPROC    655
           301  6160000004                        SB6    EL.EOS                                                  DOPROC    656
                          6170000004              SB7    EL.EOS                                                  DOPROC    657
           302  0315000304 +                      NZ     X5,SYNCHEK1       IF A DO STMT                          DOPROC    658
                          6160000002              SB6    EL.)              FOR AN IMPLIED DO                     DOPROC    659
           303  6170000025                        SB7    EL.S)             SPECIAL PAREN                         DOPROC    660
                                                                                                                 DOPROC    661
           304  54221                    SYNCHEK1 SA2    A2+B1             FIRST COMMA                           DOPROC    662
                     6140000003                   SB4    EL.COMMA                                                DOPROC    663
                               26322              UX3    B2,X2                                                   DOPROC    664
           305  0524000310 +                      NE     B2,B4,ER5         IF NOT A COMMA                        DOPROC    665
                          54221                   SA2    A2+B1             E(6)                                  DOPROC    666
                               26322              UX3    B2,X2                                                   DOPROC    667
           306  0524000307 +                      NE     B2,B4,SYNCHEK2    IF NOT A COMMA                        DOPROC    668
                          54221                   SA2    A2+B1                                                   DOPROC    669
                               26322              UX3    B2,X2                                                   DOPROC    670
                                                                                                                 DOPROC    671
           307  0426000275 +             SYNCHEK2 EQ     B2,B6,SYNCHEK     EXIT IF EOS OR )                      DOPROC    672
                          0427000275 +            EQ     B2,B7,SYNCHEK                                           DOPROC    673
                                                                                                                 DOPROC    674
           310  6160777772               ER5      SB6    -E.DO5            DO STMT SYNTAX ERROR                  DOPROC    675
                          0400000056 +            EQ     DOTOPX                                                  DOPROC    676
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    17
         DOTOP - SET UP TOP OF DO LOOP
  
                                        ***                                                                      DOPROC    678
                                        *         INTVAR - CHECK FOR INTEGER VARIABLE, ENTER NAME IN SYMTAB      DOPROC    679
                                        *                                                                        DOPROC    680
                                        *         ON ENTRY:                                                      DOPROC    681
                                        *                X2 = ELIST ELEMENT                                      DOPROC    682
                                        *                                                                        DOPROC    683
                                        *         ON EXIT:  SYMTAB ORDINAL IN "IH"                               DOPROC    684
                                        *                                                                        DOPROC    685
           311  00000000000000000000     INTVAR   ENTRY.                                                         DOPROC    686
           312  26122                             UX1    B2,X2             UNPACK                                DOPROC    687
                     0525000311 +                 NE     B2,B5,INTVAR      EXIT IF NOT A VARIABLE                DOPROC    688
           313  6170000314 +                      SYMBOL                                                         DOPROC    689
           314  0400000333 +                      EQ     INTVAR2                                                 DOPROC    690
                                                                                                                 DOPROC    691
           315  0515000320 +                      NE     B1,B5,INTVAR0     IF NOT ORDINAL 1                      DOPROC    692
                          5110000000 X            SA1    VALUE.                                                  DOPROC    693
           316  0301000311 +                      ZR     X1,INTVAR         IF NOT A FUNCTION                     DOPROC    694
                          63110                   SB1    X1                                                      DOPROC    695
                               66211              SB2    B1+B1                                                   DOPROC    696
           317  55102                             SA1    A0-B2                                                   DOPROC    697
                     55215                        SA2    A1-B5                                                   DOPROC    698
                                                                                                                 DOPROC    699
           320  7100100000               INTVAR0  SX0    V.FUN                                                   FCC2321     8
                          11301                   BX3    X0*X1                                                   DOPROC    701
                               22402              LX4    X2                                                      DOPROC    702
           321  0313000311 +                      NZ     X3,INTVAR         ERROR IF FUNCTION OR DIMENSIONED      DOPROC    703
                          20405                   LX4    59-P.EXT                                                DOPROC    704
           322  0334000311 +                      NG     X4,INTVAR         OR IF AN EXTERNAL                     DOPROC    705
                                                                                                                 DOPROC    706
           323  76050                    INTVAR1  SX0    B5                                                      DOPROC    707
                     20050                        LX0    P.VAR                                                   DOPROC    708
                          12702                   BX7    X0+X2             SET VAR BIT                           DOPROC    709
                               54720              SA7    A2                                                      DOPROC    710
           324  21270                             AX2    P.TYP                                                   DOPROC    711
                     7232777776                   SX3    X2-T.INT                                                DOPROC    712
           325  6120777776                        SB2    -1          LISTIO FLAG SUBSCRIPT PROCESSING            FCC1252X   20
                          0313000311 +            NZ     X3,INTVAR         ERROR IF NOT TYPE INTEGER             DOPROC    713
           326  7100020000                        SX0    V.DIM                                                   FCC2321     9
                          11301                   BX3    X0*X1                                                   FCC2321    10
           327  0303000331 +                      ZR     X3,INTVAR3                                              FCC2321    11
                          6160777451              POSTER SEV=ANSI,NR=E214                                        FCC2321    12
           331                           INTVAR3  BSS    0                                                       FCC2321    13
                                                                                                                 DOPROC    714
           331  5130000311 +                      SA3    INTVAR                                                  DOPROC    715
                          21336                   AX3    30                                                      DOPROC    716
                               63735              SB7    X3+B5                                                   DOPROC    717
           332  0277000000                        JP     B7                SUCCESS EXIT                          DOPROC    718
                                                                                                                 DOPROC    719
                                        *         FIRST OCCURRENCE - SET TYPE.                                   DOPROC    720
                                                                                                                 DOPROC    721
           333  36262                    INTVAR2  IX2    X6+X2             SET TYPE                              DOPROC    722
                     0307000323 +                 ZR     X7,INTVAR1        IF NO PREVIOUS USE IN A DEBUG STMT    DOPROC    723
                               43000              CFO    VAR               CHECK SETTING OF DEBUG BITS           DOPROC    724
           335  0400000323 +                      EQ     INTVAR1                                                 DOPROC    725
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    18
         LIMIT
  
                                        ***                                                                      DOPROC    727
                                        *         LIMIT - CHECK LOOP LIMITS AND DETERMINE IF                     DOPROC    728
                                        *         CONSTANT OR VARIABLE                                           DOPROC    729
                                        *                                                                        DOPROC    730
           336  00000000000000000000     LIMIT                                                                   DOPROC    731
           337  26342                             UX3    B4,X2             SEPERATE EXPONENT FOR CHECKING        DOPROC    732
                     0440000347 +                 ZR     B4,CONEB          IF A CONSTANT                         DOPROC    733
                                                                                                                 DOPROC    734
           340  0100000311 +                      RJ     INTVAR            GO SEE IF INTEGER VARIABLE            DOPROC    735
           341  6160000007                        SB6    E.DO7                                                   DOPROC    736
                          0400000345 +            EQ     ER7               NOT AN INTEGER VARIABLE               DOPROC    737
                                                                                                                 DOPROC    738
           342  76710                             SX7    B1                                                      DOPROC    739
                     5170000002 C                 SA7    IH                PRESERVE ORDINAL OF VARIABLE          DOPROC    740
                                                                                                                 DOPROC    741
           343  5120000336 +                      SA2    LIMIT             PICK UP RETURN LINKAGE                DOPROC    742
                          21236                   AX2    30                                                      DOPROC    743
                               63725              SB7    X2+B5                                                   DOPROC    744
           344  0277000000                        JP     B7                                                      DOPROC    745
                                                                                                                 DOPROC    746
           345  76210                    ER7      ERNAME B1                NOT A CONSTANT OF VARIABLE            DOPROC    747
           346  0400000056 +                      EQ     DOTOPX                                                  DOPROC    748
                                                                                                                 DOPROC    749
                                        *         CHECK CONSTANT AND CONVERT TO BINARY                           DOPROC    750
                                                                                                                 DOPROC    751
           347  21355                    CONEB    AX3    45                POSITION TYPE FIELD                   DOPROC    752
                     10422                        BX4    X2                                                      DOPROC    753
                          7253777776              SX5    X3-T.INT                                                DOPROC    754
           350  0305000352 +                      ZR     X5,CONEB1         IF TYPE INTEGER                       DOPROC    755
                          7253777772              SX5    X3-T.OCT                                                DOPROC    756
           351  6160000007                        SB6    E.DO7             BAD DO LIMIT                          DOPROC    757
                          0335000056 +            MI     X5,DOTOPX         ERROR IF NOT TYPE OCTAL OR HOLLERITH  DOPROC    758
                                                                                                                 DOPROC    759
           352  67105                    CONEB1   SB1    -B5                                                     DOPROC    760
                     10122                        BX1    X2                                                      DOPROC    761
                          0100000000 X            CALL   CONVERT                                                 DOPROC    762
           353  10611                             BX6    X1                                                      DOPROC    763
                     7150377777                   SX5    377777B                                                 FCC2291    17
                               37115              IX1    X1-X5                                                   FCC2291    18
           354  5160000002 C                      SA6    IH                                                      DOPROC    765
                                                                                                                 DOPROC    766
                          0321000356 +            PL     X1,ER6      IF INDEX EXCEEDS 131,070                    FCC2291    19
           355  0316000336 +                      NZ     X6,LIMIT          EXIT IF NOT ZERO                      DOPROC    768
                                                                                                                 DOPROC    769
           356  76650                    ER6      SX6    B5                                                      DOPROC    770
                     54660                        SA6    A6                IH = 1                                DOPROC    771
                          6160777771              SB6    -E.DO6                                                  DOPROC    772
           357  6170000336 +                      SB7    LIMIT                                                   DOPROC    773
                          0400000000 X            EQ     ERPRO                                                   DOPROC    774
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    19
         LIMIT                                                        IOL 
  
                                        **        IOL - INHIBIT OPTIMIZATION IF CV, LL, UL OR INC IS LEVEL 2.    DOPROC    776
                                        *                                                                        DOPROC    777
                                        *         ENTRY  (X1) = ORD OF VAR BEGIN CHECKED                         DOPROC    778
                                        *                                                                        DOPROC    779
                                        *         SETS R-BIT IN DOTAB WORD 3.                                    DOPROC    780
                                                                                                                 DOPROC    781
                                                                                                                 DOPROC    782
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           DOPROC    783
           360  0400400360 +             IOL      ENTRY. *                                                       DOPROC    784
           361  5130000000 X                      SA3    =XLEVEL2                                                DOPROC    785
                          0303000360 +            ZR     X3,IOL      IF NO LEVEL 2 STATEMENTS                    DOPROC    786
           362  63110                             SB1    X1                                                      DOPROC    787
                     5110000012                   SA1    SYM1                                                    DOPROC    788
                               66211              SB2    B1+B1                                                   DOPROC    789
           363  5221777776                        SA2    X1-1                                                    DOPROC    790
                          55122                   SA1    A2-B2       (X1) = SYMTAB WORD 2                        DOPROC    791
                               43072              MX0    -L.LVL                                                  DOPROC    792
           364  20172                             LX1    -P.LVL                                                  DOPROC    793
                     15410                        BX4    -X0*X1      LEVEL                                       DOPROC    794
                          6274777775              SB7    X4-2                                                    DOPROC    795
           365  0570000360 +                      NZ     B7,IOL      IF LEVEL .NE. 2                             DOPROC    796
                          5130000000 +            SA3    O.DOTAB                                                 DOPROC    797
           366  76050                             SX0    B5                                                      DOPROC    798
                     5223000002                   SA2    X3+2        (X2) = DOTAB WORD 3                         DOPROC    799
                               20022              LX0    D3.OFP+OF.RP                                            DOPROC    800
           367  12602                             BX6    X0+X2                                                   DOPROC    801
                     54620                        SA6    A2          SET R BIT                                   DOPROC    802
                          0400000360 +            EQ     IOL                                                     DOPROC    803
                                         #DAL     ENDIF                                                          DOPROC    804
                                                                                                                 DOPROC    805
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    20
         GENMAC - GENERATE RLIST MACROS 
  
                                        **        GENMAC - GENERATE DO BEGIN/END MACROS FOR A LOOP               DOPROC    807
                                        *                                                                        DOPROC    808
                                        *         ENTRY  (B2) = -(MACRO OPCDOE)                                  DOPROC    809
                                                                                                                 DOPROC    810
           370  0200400370 +             GENMAC   ROUTINE                                                        DOPROC    811
           371  5150000000 +                      SA5    O.DOTAB           A5,X5 ADDRESS OF DOTAB ENTRY          DOPROC    812
                          5245000002              SA4    X5+2              WORD 3                                DOPROC    813
           372  43014                             MX0    D3.GLL                                                  DOPROC    814
                     11704                        BX7    X0*X4                                                   DOPROC    815
                          20714                   LX7    D3.GLL      ORDINAL OF )XX                              DOPROC    816
                               20440              LX4    59-D3.CVP-CV.BP                                         DOPROC    817
           373  10044                             BX0    X4                SAVE CV(BCD) IN X0                    DOPROC    818
                     43603                        MX6    D3.CVL                                                  DOPROC    819
                          11164                   BX1    X6*X4                                                   DOPROC    820
                               20125              LX1    D3.CVL+18                                               DOPROC    821
           374  7130000006                        SX3    6                                                       DOPROC    822
                          20336                   LX3    R1.INP                                                  DOPROC    823
                               12113              BX1    X1+X3                                                   DOPROC    824
           375  27621                             PX6    B2,X1       12/P(-OC),18/WDS,12/CV(BCD),18/0            DOPROC    825
                     5160000007 C                 SA6    RLSST             STORE HEADER WORD                     DOPROC    826
                                                                                                                 DOPROC    827
                               53150              SA1    X5                WORD 1                                DOPROC    828
           376  0100000420 +                      RJ     GET                                                     DOPROC    829
           377  20636                             LX6    30                POSITION IH                           DOPROC    830
                     12667                        BX6    X6+X7                                                   DOPROC    831
                          54665                   SA6    A6+B5             WORD 1 IH(B),30/IH(L)                 DOPROC    832
                               10722              BX7    X2                SAVE CA(B)                            DOPROC    833
                                                                                                                 DOPROC    834
           400  53155                             SA1    X5+B5             WORD 2 OF DOTAB ENTRY                 DOPROC    835
                     0100000420 +                 RJ     GET                                                     DOPROC    836
           401  54665                             SA6    A6+B5             STORE                                 DOPROC    837
                     0316000403 +                 NZ     X6,GENMAC1        IF C IS A VARIABLE                    DOPROC    838
                                                                                                                 DOPROC    839
                               73225              SX2    X2+B5             C+1                                   DOPROC    840
           402  43352                             MX3    42                                                      DOPROC    841
                     14422                        BX4    -X2                                                     DOPROC    842
                          15243                   BX2    -X3*X4            -(C+1)                                DOPROC    843
           403  20222                    GENMAC1  LX2    18                                                      DOPROC    844
                     12727                        BX7    X2+X7             CA(C),CA(B)                           DOPROC    845
                                                                                                                 DOPROC    846
                          5215000002              SA1    X5+2              WORD 3 OF DOTAB ENTRY ( INCREMENT )   DOPROC    847
           404  0100000420 +                      RJ     GET                                                     DOPROC    848
           405  54360                             SA3    A6                GET WORD 3 OF MACRO                   DOPROC    849
                     20636                        LX6    30                                                      DOPROC    850
                          12663                   BX6    X6+X3             IH(D),IH(C)                           DOPROC    851
                               54660              SA6    A6                                                      DOPROC    852
           406  20244                             LX2    36                                                      DOPROC    853
                     12727                        BX7    X2+X7             CA(D),CA(C),CA(B)                     DOPROC    854
                                                                                                                 DOPROC    855
                          53155                   SA1    X5+B5             WORD 2                                DOPROC    856
                               43014              MX0    D2.IXL                                                  DOPROC    857
           407  11201                             BX2    X0*X1             EXTRACT ORD OF CV                     DOPROC    858
                     20214                        LX2    D2.IXL                                                  DOPROC    859
                          0100000425 +            RJ     NAME              GET BASE BIAS OF CONTROL VARIABLE     DOPROC    860
           410  5110000064                        SA1    NRLN              NEXT R NUMBER                         DOPROC    861
                          76610                   SX6    B1                BASE                                  DOPROC    862
                               54665              SA6    A6+B5             WORD 3                                DOPROC    863
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    21
         GENMAC - GENERATE RLIST MACROS 
  
                                                                                                                 DOPROC    864
                                        *         STORE INFO IN WORD 4 OF RLIST MACRO FOR LOOP MAP               DOPROC    865
                                                                                                                 DOPROC    866
           411  54550                             SA5    A5                                                      DOPROC    867
                     43014                        MX0    D1.SL                                                   DOPROC    868
                          53350                   SA3    X5                WORD 1                                DOPROC    869
                               20260              LX2    48                                                      DOPROC    870
           412  11403                             BX4    X0*X3       ORD OF STMT LABEL                           DOPROC    871
                     20460                        LX4    D1.SL+36                                                DOPROC    872
                          12024                   BX0    X2+X4                                                   DOPROC    873
                               20336              LX3    -D1.LCP                                                 DOPROC    874
           413  36601                             IX6    X0+X1       12/ORD(CV),12/ORD(LABEL),18/LPCNT,18/NRLN   DOPROC    875
                     73330                        SX3    X3                                                      DOPROC    876
                          20322                   LX3    18                                                      DOPROC    877
                               12636              BX6    X3+X6                                                   DOPROC    878
           414  54665                             SA6    A6+B5       STORE WORD 4                                DOPROC    879
                     54765                        SA7    A6+B5             WORD 5 = CA(D) , CA(C) , CA(B)        DOPROC    880
                          76620                   SX6    B2                CA OF CVAR                            DOPROC    881
                               54675              SA6    A7+B5                                                   DOPROC    882
           415  73615                             SX6    X1+B5             NRLN+1                                DOPROC    883
                     54610                        SA6    A1                                                      DOPROC    884
                          6170000007 C            WRM    RLSST             DO BEGIN/END MACRO TO RLIST           DOPROC    885
           417  0400000370 +                      EQ     GENMAC                                                  DOPROC    886
  
  
  
                                        ***                                                                      DOPROC    888
                                        *         GET - GET IH AND CA FIELDS FOR GENMAC                          DOPROC    889
                                        *                                                                        DOPROC    890
                                        *         EXIT:  X2 = CA   ,  X6 = IH                                    DOPROC    891
                                        *                                                                        DOPROC    892
           420  00000000000000000000     GET                                                                     DOPROC    893
           421  73210                             SX2    X1                X2 = CA                               DOPROC    894
                     43600                        MX6    0                 X6 = IH                               DOPROC    895
                                                                                                                 DOPROC    896
                          0320000424 +            PL     X0,GET1           IF NOT A VARIABLE                     DOPROC    897
           422  0100000425 +                      RJ     NAME                                                    DOPROC    898
           423  76610                             SX6    B1                BASE                                  DOPROC    899
                     76220                        SX2    B2                BIAS                                  DOPROC    900
                          54550                   SA5    A5                RESTORE DO TABLE ADDRESS              DOPROC    901
                                                                                                                 DOPROC    902
           424  20001                    GET1     LX0    1                 POSITION NEXT BIT                     DOPROC    903
                     0400000420 +                 EQ     GET                                                     DOPROC    904
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    22
         NAME - GET BASE/BIAS FOR SYMTAB ENTRY
  
                                        ***                                                                      DOPROC    906
                                        *         NAME - CHECK FOR AN EQUIVALENCED VARIABLE                      DOPROC    907
                                        *         RETURNS THE BASE AND BIAS OF A VARIABLE                        DOPROC    908
                                        *                                                                        DOPROC    909
                                        *         ON ENTRY:                                                      DOPROC    910
                                        *                X2 = SYMTAB ORDINAL                                     DOPROC    911
                                        *                                                                        DOPROC    912
                                        *         ON EXIT:                                                       DOPROC    913
                                        *                X2 = ORDINAL OF ORIGINAL ( UNTOUCHED )                  DOPROC    914
                                        *                B1 = ORDINAL OF BASE MEMBER                             DOPROC    915
                                        *                B2 = BIAS                                               DOPROC    916
                                        *                                                                        DOPROC    917
                                        *         USES X1 - X5 , A1,A3,A4  ** DO NOT CHANGE, MANY SUBROUTINES    DOPROC    918
                                        *                                  DEPEND ON THIS FACT **                DOPROC    919
                                        *                                                                        DOPROC    920
           425  0400400425 +             NAME     ENTRY. *                                                       DOPROC    921
           426  5110000012                        SA1    SYM1                                                    DOPROC    922
                          63120                   SB1    X2                B1 = ORDINAL                          DOPROC    923
                               22552              LX5    B5,X2             2*ORD                                 DOPROC    924
           427  37415                             IX4    X1-X5                                                   DOPROC    925
                     53140                        SA1    X4          WORD A                                      DOPROC    926
                          66200                   SB2    B0                                                      DOPROC    927
                               20157              LX1    59-P.EQU                                                DOPROC    928
           430  0321000425 +                      PL     X1,NAME     IF NOT EQUIVALENCED                         DOPROC    929
                          55315                   SA3    A1-B5       WORD B                                      DOPROC    930
                               43560              MX5    -L.DIMP                                                 DOPROC    931
           431  20323                             LX3    -P.DIMP                                                 DOPROC    932
                     15535                        BX5    -X5*X3      DIMP                                        DOPROC    933
                          5110000017              SA1    DIM1                                                    DOPROC    934
           432  20501                             LX5    1                                                       DOPROC    935
                     36315                        IX3    X1+X5                                                   DOPROC    936
                          53430                   SA4    X3                FETCH DIM ENTRY                       DOPROC    937
                               21422              AX4    18                                                      DOPROC    938
           433  63240                             SB2    X4                B2 = CA                               DOPROC    939
                     21422                        AX4    18                                                      DOPROC    940
                          63140                   SB1    X4                                                      DOPROC    941
           434  0400000425 +                      EQ     NAME                                                    DOPROC    942
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    23
         DODEF - VARIABLE DEFINITION
  
                                        ***                                                                      DOPROC    944
                                        *         DODEF - VARIABLE DEFINITION IN AN ASSIGNMENT STMT              DOPROC    945
                                        *         CHECK FOR REDEFINITION OF A LOOP CONTROL VARIABLE.             DOPROC    946
                                        *         MAKE AN ENTRY IN *DOLIST*.                                     DOPROC    947
                                        *                                                                        DOPROC    948
                                        *         ON ENTRY:                                                      DOPROC    949
                                        *                B1 = ORDINAL OF VARIABLE, B1 < 0 IF IN BASE BIAS FORM   DOPROC    950
                                        *                                                                        DOPROC    951
           435                     3     TEMP     BSSZ   3                 3 TEMPORARIES FOR DOSYM               FCC1289X   23
                                                                                                                 DOPROC    953
                                         CHKBB    MACRO  ROUTINE           CHECK BASE/BIAS                       DOPROC    954
                                                  LOCAL  NEXT                                                    DOPROC    955
                                                  LOCAL CHBB                                                     DOPROC    956
                                                  RJ     NAME              GET BASE AND BIAS                     DOPROC    957
                                                  NE     B1,B6,NEXT                                              DOPROC    958
                                                  SA1    =XNRFD                                                  DOPROC    959
                                                  ZR     X1,CHBB     IF RF .EQ. 0                                DOPROC    960
                                                  SB1    ERPROI                                                  DOPROC    961
                                                  SB6    E.DO14                                                  DOPROC    962
                                                  RJ     DODEF.E                                                 DOPROC    963
                                                  EQ     NEXT                                                    DOPROC    964
                                         CHBB     BSS    0                                                       DOPROC    965
                                                  NE     B2,B7,NEXT                                              DOPROC    966
                                                  SB1    ROUTINE                                                 DOPROC    967
                                                  SB6    E.DO13                                                  DOPROC    968
                                                  RJ     DODEF.E                                                 DOPROC    969
                                         NEXT     BSS    0                                                       DOPROC    970
                                                  ENDM                                                           DOPROC    971
                                                                                                                 DOPROC    972
                                         CHKDO    MACRO  WORD              CHECK DO LIMIT                        DOPROC    973
                                                  LOCAL  NOCHK                                                   DOPROC    974
                                                  SA5    B4+B5             WORD 3                                DOPROC    975
                                                  LX5    59-D3.CVP-D3.CVL+WORD  POSITION CV BIT                  DOPROC    976
                                                  PL     X5,NOCHK          IF A CONSTANT                         DOPROC    977
                                         REG      MICRO  WORD*5-4,5,/B4-B5B4   B4+B5/                            DOPROC    978
                                                  SA3    "REG"                                                   DOPROC    979
                                                  SX2    X3                                                      DOPROC    980
                                                  CHKBB  ERPROI            CHECK BASE BIAS                       DOPROC    981
                                         NOCHK    BSS    0                                                       DOPROC    982
                                                  ENDM                                                           DOPROC    983
  
  
  
           440  00000000000000000000     DODEF    ENTRY.                                                         DOPROC    985
           441  5140000000 X                      SA4    DOFLAG                                                  DOPROC    986
                          0304000440 +            ZR     X4,DODEF          IF NO LOOPS                           DOPROC    987
                                                                                                                 DOPROC    988
           442  6150000001                        SB5    1                                                       DOPROC    989
                          0610000444 +            PL     B1,DODEF1                                               DOPROC    990
           443  67101                             SB1    -B1                                                     DOPROC    991
                     0400000445 +                 EQ     DODEF2                                                  DOPROC    992
                                                                                                                 DOPROC    993
           444  76210                    DODEF1   SX2    B1                GET BASE/BIAS FOR DEFINED SYMBOL      DOPROC    994
                     0100000425 +                 RJ     NAME                                                    DOPROC    995
                                                                                                                 DOPROC    996
           445  66610                    DODEF2   SB6    B1                                                      DOPROC    997
                     5140000000 X                 SA4    =XNCAD                                                  DOPROC    998
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    24
         DODEF - VARIABLE DEFINITION
  
                               63742              SB7    X4+B2       B6,B7 = BASE,BIAS OF REDEFINITION           DOPROC    999
           446  5140000000 +                      SA4    O.DOTAB                                                 DOPROC   1000
                          63445                   SB4    X4+B5             B4 = CURRENT LOOP ADDR + 1            DOPROC   1001
                               76770              SX7    B7                                                      DOPROC   1002
           447  20722                             LX7    18                                                      DOPROC   1003
                     76660                        SX6    B6                                                      DOPROC   1004
                          12776                   BX7    X7+X6                                                   DOPROC   1005
           450  5170000436 +                      SA7    TEMP+1            TEMP SAVE BASE/BIAS                   DOPROC   1006
                          6130001105 +            SB3    DOTAB+1           B3 = FWA+1 OF DOTAB                   DOPROC   1007
                                                                                                                 DOPROC   1008
                                        *         CHECK *DOTAB* FOR REDEFINITION OF LOOP CONTROL VARIABLES.      DOPROC   1009
                                                                                                                 DOPROC   1010
           451  56440                    DODEF.L  SA4    B4                WORD 2                                DOPROC   1011
                     43014                        MX0    D2.IXL                                                  DOPROC   1012
                          11204                   BX2    X0*X4                                                   DOPROC   1013
                               20214              LX2    D2.IXL                                                  DOPROC   1014
           452  0100000425 +                      CHKBB  ERPRO             CHECK FOR REDEF OF CONTROL VARIABLE   DOPROC   1015
                                                                                                                 DOPROC   1016
           461  56545                             CHKDO  1                 CHECK FOR                             DOPROC   1017
           471  56545                             CHKDO  2                 REDEFINITION OF                       DOPROC   1018
           501  56545                             CHKDO  3                 DO LIMITS                             DOPROC   1019
           511  6144777774                        SB4    B4-3                                                    DOPROC   1020
                          0734000451 +            GT     B4,B3,DODEF.L     LOOP IF MORE ENTRIES                  DOPROC   1021
           512  0400000440 +                      EQ     DODEF                                                   DOPROC   1022
  
  
  
                                        ***                                                                      DOPROC   1024
                                        *         DODEF.E - DO DEFINITION ERROR                                  DOPROC   1025
                                        *                                                                        DOPROC   1026
                                        *         ON ENTRY:                                                      DOPROC   1027
                                        *                X2 = ORDINAL OF SYMBOL                                  DOPROC   1028
                                        *                B6 = ERROR NUMBER                                       DOPROC   1029
                                        *         ON EXIT:                                                       DOPROC   1030
                                        *                B3,B4,B6,B7 RESTORED                                    DOPROC   1031
                                        *                                                                        DOPROC   1032
           513  5110000435 +             DODEF.EX SA1    TEMP                                                    DOPROC   1033
                          54215                   SA2    A1+B5                                                   DOPROC   1034
                               63410              SB4    X1                RESTORE DOTAB ADDRESS                 DOPROC   1035
           514  63620                             SB6    X2                                                      DOPROC   1036
                     21222                        AX2    18                                                      DOPROC   1037
                          63720                   SB7    X2                                                      DOPROC   1038
           515  6130001105 +                      SB3    DOTAB+1                                                 DOPROC   1039
           516  00000000000000000000     DODEF.E                                                                 DOPROC   1040
           517  76640                             SX6    B4                                                      DOPROC   1041
                     5160000435 +                 SA6    TEMP              SAVE B4                               DOPROC   1042
                               76710              SX7    B1                SAVE B1                               FCC1289X   24
           520  5076000002                        SA7    A6+2                                                    FCC1289X   25
                          0100000012 +            ERNAME X2                SYMBOL NAME TO X3                     DOPROC   1043
           521  5110000437 +                      SA1    TEMP+2                                                  FCC1289X   26
                          63110                   SB1    X1                                                      FCC1289X   27
           522  6170000513 +                      SB7    DODEF.EX                                                DOPROC   1044
                          0211000000              JP     B1                JUMP TO ERROR ROUTINE                 DOPROC   1045
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    25
         DOCALL - EXTERNAL REFERENCE IN A DO LOOP 
  
                                        ***                                                                      DOPROC   1047
                                        *                                                                        DOPROC   1048
                                        *         DOCALL - EXTERNAL REFERENCE ENCOUNTERED                        DOPROC   1049
                                        *         LOOP THROUGH DOTAB AND SET J BIT FOR ALL LOOPS                 DOPROC   1050
                                        *                                                                        DOPROC   1051
           523  00000000000000000000     DOCALL   ENTRY.                                                         DOPROC   1052
           524  5110000000 X                      SA1    DOFLAG                                                  DOPROC   1053
                          0301000523 +            ZR     X1,DOCALL         IF NO DO LOOPS                        DOPROC   1054
           525  43001                             MX0    1                                                       DOPROC   1055
                     7120001104 +                 SX2    DOTAB             FWA                                   DOPROC   1056
                               20024              LX0    1+D3.OFP+OF.JP                                          DOPROC   1057
           526  5110000000 +                      SA1    O.DOTAB                                                 DOPROC   1058
                                                                                                                 DOPROC   1059
           527  5241000002               DOCALL1  SA4    X1+2              WORD 3                                DOPROC   1060
                          12704                   BX7    X0+X4             SET J BIT                             DOPROC   1061
           530  7211777774                        SX1    X1-3                                                    DOPROC   1062
                          37512                   IX5    X1-X2                                                   DOPROC   1063
                               54740              SA7    A4                                                      DOPROC   1064
           531  0315000527 +                      NZ     X5,DOCALL1                                              DOPROC   1065
                                                                                                                 DOPROC   1066
                          0400000523 +            EQ     DOCALL                                                  DOPROC   1067
                                                                                                                 DOPROC   1068
                                        ***                                                                      DOPROC   1069
                                        *         XFERF - XFER FLAGS FROM DOTAB ENTRY TO SYMTAB ENTRY            DOPROC   1070
                                        *                                                                        DOPROC   1071
                                        *         ON ENTRY: X7 = NEW FLAGS TO BE SET                             DOPROC   1072
                                        *                                                                        DOPROC   1073
                                        *         ON EXIT:  A1,X1 = O.DOTAB,(O.DOTAB) , A2,X2 = WORD 3 OF ENTRY  DOPROC   1074
                                        *                                                                        DOPROC   1075
           532  00000000000000000000     XFERF                                                                   DOPROC   1076
           533  5110000000 +                      SA1    O.DOTAB                                                 DOPROC   1077
                          43007                   MX0    D3.OFL                                                  DOPROC   1078
           534  5221000002                        SA2    X1+2              WORD 3                                DOPROC   1079
                          20031                   LX0    D3.OFL+D3.OFP     POSITION MASK                         DOPROC   1080
                               43314              MX3    D3.GLL                                                  DOPROC   1081
           535  11432                             BX4    X3*X2                                                   DOPROC   1082
                     20415                        LX4    D3.GLL+1    SYMTAB ORDINAL OF )AA * 2                   DOPROC   1083
                          5150000012              SA5    SYM1                                                    DOPROC   1084
           536  11302                             BX3    X0*X2             EXTRACT FLAGS                         DOPROC   1085
                     12373                        BX3    X7+X3             SET NEW FLAGS                         DOPROC   1086
                          20336                   LX3    P.FLG-D3.OFP                                            DOPROC   1087
                               37654              IX6    X5-X4                                                   DOPROC   1088
           537  5246777776                        SA4    X6-1              WORD B                                DOPROC   1089
                          12634                   BX6    X3+X4             ADD FLAGS                             DOPROC   1090
                               54640              SA6    A4                                                      DOPROC   1091
           540  0400000532 +                      EQ     XFERF                                                   DOPROC   1092
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    26
         DONE - POST I/O LIST PROCESSOR 
  
                                                  ENTRY  DONE                                                    DOPROC   1094
                                        ***                                                                      DOPROC   1095
                                        *         DONE - POST I/O LIST PROCESSOR                                 DOPROC   1096
                                        *                                                                        DOPROC   1097
           541  5110000000 +             DONE     SA1    O.DOTAB                                                 DOPROC   1098
                          7221776673 -            SX2    X1-DOTAB                                                DOPROC   1099
           542  0302000000 X                      ZR     X2,DONEX          IF NO LOOPS                           DOPROC   1100
                          53310                   SA3    X1          WORD 1                                      DOPROC   1101
                               20336              LX3    59-D1.OTP                                               DOPROC   1102
           543  0333000546 +                      MI     X3,DONE1    IF A ONE TRIP LOOP                          DOPROC   1103
                          6120777774              SB2    -M.DOEND                                                DOPROC   1104
           544  0100000370 +                      RJ     GENMAC            GENERATE A DO END MACRO               DOPROC   1105
           545  0400000547 +                      EQ     DONE2                                                   DOPROC   1106
                                                                                                                 DOPROC   1107
           546  6170000662 +             DONE1    WRM    DOLABA                                                  DOPROC   1108
                                                                                                                 DOPROC   1109
           547  43701                    DONE2    MX7    1                                                       DOPROC   1110
                     20724                        LX7    1+19                                                    DOPROC   1111
                          0100000532 +            RJ     XFERF             SET J BIT AND XFER FLAGS              DOPROC   1112
                                                                                                                 DOPROC   1113
                                        *         COMPRESS DO TABLE                                              DOPROC   1114
                                                                                                                 DOPROC   1115
           550  7271777774                        SX7    X1-3                                                    DOPROC   1116
                          5170000000 +            SA7    O.DOTAB           O.DOTAB = O.DOTAB - 3                 DOPROC   1117
           551  5120000000 X                      SA2    DOFLAG                                                  DOPROC   1118
                          7262777776              SX6    X2-1              DECREMENT NESTING LEVEL               DOPROC   1119
           552  54620                             SA6    A2                                                      DOPROC   1120
                     0400000000 X                 EQ     DONEX                                                   DOPROC   1121
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    27
         DOIT - PRE I/O LIST PROCESSOR
  
                                                  ENTRY  DOIT                                                    DOPROC   1123
                                        ***                                                                      DOPROC   1124
                                        *         DOIT - IMPLIED DO LOOP PROCESSING                              DOPROC   1125
                                        *         ENTRY:   B1 = E LIST POINTER                                   DOPROC   1126
                                        *                                                                        DOPROC   1127
           553  7161000002               DOIT     SX6    B1+2              MOVE E LIST POINTER BACK              DOPROC   1128
                          5110000032              SA1    SELIST                                                  DOPROC   1129
           554  10711                             BX7    X1                                                      DOPROC   1130
                     5170000000 C                 SA7    SVELIST           SAVE POINTER FOR LISTIO               DOPROC   1131
                               54610              SA6    A1                POINT TO BEFORE THE = S               DOPROC   1132
           555  43700                             MX7    0                                                       DOPROC   1133
                     5170000001 C                 SA7    LWD               NO LABEL ASSOCIATED WITH AN I/O STMT  DOPROC   1134
           556  0100000065 +                      RJ     DOTOP             GENERATE THE TOP OF THE LOOP          DOPROC   1135
           557  5110000000 C                      SA1    SVELIST                                                 DOPROC   1136
                          10611                   BX6    X1                                                      DOPROC   1137
           560  5160000032                        SA6    SELIST            RESTORE E-LIST POINTER                DOPROC   1138
                          0400000000 X            EQ     DOITX                                                   DOPROC   1139
  
  
  
                                        *         DOGOOF - COMPRESS "DOTAB" AFTER AN I/O LIST ERROR              DOPROC   1141
                                                                                                                 DOPROC   1142
                                                  ENTRY  DOGOOF                                                  DOPROC   1143
           561  5110000000 X             DOGOOF   SA1    DOFLAG                                                  DOPROC   1144
                          0301000000 X            ZR     X1,PH2RETN        IF NO LOOPS                           DOPROC   1145
           562  6150000001                        SB5    1                                                       DOPROC   1146
                          5120000000 +            SA2    O.DOTAB           CURRENT ENTRY ADDRESS                 DOPROC   1147
                                                                                                                 DOPROC   1148
           563  53320                    DOGOOFL  SA3    X2                FIRST WORD                            DOPROC   1149
                     43014                        MX0    D1.SL                                                   DOPROC   1150
                          11403                   BX4    X0*X3                                                   DOPROC   1151
           564  0314000567 +                      NZ     X4,DOGOOF1        IF NOT AN I/O LOOP                    DOPROC   1152
                          7211777776              SX1    X1-1                                                    DOPROC   1153
           565  7222777774                        SX2    X2-3                                                    DOPROC   1154
                          7262776673 -            SX6    X2-DOTAB                                                DOPROC   1155
           566  0316000563 +                      NZ     X6,DOGOOFL        IF NOT FINISHED                       DOPROC   1156
                                                                                                                 DOPROC   1157
           567  10611                    DOGOOF1  BX6    X1                                                      DOPROC   1158
                     22702                        LX7    X2                                                      DOPROC   1159
                          54610                   SA6    A1                UPDATE NESTING LEVEL                  DOPROC   1160
                               54720              SA7    A2                AND DO STACK POINTER                  DOPROC   1161
           570  0400000000 X                      EQ     PH2RETN                                                 DOPROC   1162
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    28
         DOLAB - END OF LABELED STMT PROCESSING 
  
                                 436 +   PFIELD   EQU    TEMP+1            DO1 + P FIELD OF DO LOOP              DOPROC   1164
                                        ***                                                                      DOPROC   1165
                                        *                                                                        DOPROC   1166
                                        *         DOLAB - OUTPUT "DOEND" MACROS FOR LOOPS THAT TERMINATE         DOPROC   1167
                                        *         ON THIS STATEMENT                                              DOPROC   1168
                                        *                                                                        DOPROC   1169
           571  00000000000000000000     DOLAB    ENTRY.                                                         DOPROC   1170
           572  5110000000 X                      SA1    DOFLAG                                                  DOPROC   1171
                          0301000571 +            ZR     X1,DOLAB          EXIT IF NO LOOPS                      DOPROC   1172
                                                                                                                 DOPROC   1173
                                        *         SEARCH "DOTAB" FOR LOOPS THAT TERMINATE ON THIS STMT           DOPROC   1174
                                                                                                                 DOPROC   1175
           573  5110000761 +             DOLAB1   SA1    LORD                                                    DOPROC   1176
                          5120000000 +            SA2    O.DOTAB                                                 DOPROC   1177
           574  6160001104 +                      SB6    DOTAB                                                   DOPROC   1178
                          20160                   LX1    D1.SP                                                   DOPROC   1179
                               63420              SB4    X2                CURRENT ENTRY ADDR                    DOPROC   1180
           575  63720                             SB7    X2                LOOP INDEX                            DOPROC   1181
                                                                                                                 DOPROC   1182
           576  0476000571 +             DOLAB2   EQ     B7,B6,DOLAB       EXIT IF FINISHED                      DOPROC   1183
                                                                                                                 DOPROC   1184
                          56370                   SA3    B7                FIRST WORD                            DOPROC   1185
                               43014              MX0    D1.SL                                                   DOPROC   1186
           577  11403                             BX4    X0*X3             EXTRACT ORD OF STMT LABEL             DOPROC   1187
                     37514                        IX5    X1-X4                                                   DOPROC   1188
                          0305000601 +            ZR     X5,DOLAB3         IF THE SAME                           DOPROC   1189
           600  6177777774                        SB7    B7-3                                                    DOPROC   1190
                          0400000576 +            EQ     DOLAB2            LOOP FOR THE NEXT ENTRY               DOPROC   1191
                                                                                                                 DOPROC   1192
           601  0447000610 +             DOLAB3   EQ     B4,B7,DOLAB4      IF AT THE TOP OF THE STACK            DOPROC   1193
                                                                                                                 DOPROC   1194
                                        *         ISSUE A DIAGNOSTIC FOR "ILLEGAL NESTING"                       DOPROC   1195
                                                                                                                 DOPROC   1196
                          56440                   SA4    B4                                                      DOPROC   1197
                               11204              BX2    X0*X4             EXTRACT ORDINAL                       DOPROC   1198
           602  20214                             LX2    D1.SL                                                   DOPROC   1199
                     6170000605 +                 SB7    DOLAB.D                                                 DOPROC   1200
           603  6160000014                        SB6    E.DO12                                                  DOPROC   1201
                          0100000012 +            ERNAME X2                PREPARE SYMBOL                        DOPROC   1202
           604  0400000000 X                      EQ     ERPRO                                                   DOPROC   1203
                                                                                                                 DOPROC   1204
           605  5120000000 +             DOLAB.D  SA2    O.DOTAB                                                 DOPROC   1205
                          7272777774              SX7    X2-3                                                    DOPROC   1206
           606  5130000000 X                      SA3    DOFLAG                                                  DOPROC   1207
                          7263777776              SX6    X3-1              DECREMENT NESTING LEVEL               DOPROC   1208
           607  54720                             SA7    A2                REMOVE LAST ENTRY FROM THE STACK      DOPROC   1209
                     54630                        SA6    A3                                                      DOPROC   1210
                          0400000573 +            EQ     DOLAB1            LOOP                                  DOPROC   1211
                                                                                                                 DOPROC   1212
                                                                                                                 DOPROC   1213
                                        *         CHECK FOR ILLEGAL DO STMT TERMINATOR                           DOPROC   1214
                                                                                                                 DOPROC   1215
           610  5110000024               DOLAB4   SA1    TYPE              CURRENT STMT TYPE                     DOPROC   1216
                          7120000643              SX2    643B              TEST FOR GO TO, IF(E) N1,N2,N3        DOPROC   1217
           611  20217                             LX2    15                RETURN , STOP , PAUSE                 DOPROC   1218
                     20337                        LX3    -D1.OTP                                                 DOPROC   1219
                          43073                   MX0    -D1.OTL                                                 DOPROC   1220
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    29
         DOLAB - END OF LABELED STMT PROCESSING 
  
                               15630              BX6    -X0*X3                                                  DOPROC   1221
           612  5160000055 +                      SA6    OTF         ONE-TRIP LOOP FLAG                          DOPROC   1222
                          63210                   SB2    X1                                                      DOPROC   1223
                               23322              AX3    B2,X2                                                   DOPROC   1224
           613  20373                             LX3    59                                                      DOPROC   1225
                     6122777756                   SB2    B2-21B      TEST FOR LOGICAL IF                         FCC0825    10
           614  0420000621 +                      ZR     B2,DOLAB4A  IF LOGICAL IF                               FCC0825    11
                          0323000625 +            PL     X3,DOLAB5         IF NOT ONE OF THE ABOVE               DOPROC   1226
                                                                                                                 DOPROC   1227
           615  6160777764               ER11     SB6    -E.DO11           ILLEGAL DO STMT TERMINATOR            DOPROC   1228
                          6170000571 +            SB7    DOLAB                                                   DOPROC   1229
           616  7160001104 +                      SX6    DOTAB                                                   DOPROC   1230
                          5160000000 +            SA6    O.DOTAB           FORGET ABOUT THE                      DOPROC   1231
           617  43700                             MX7    0                 REST OF THE ENTRIES                   DOPROC   1232
                     5170000000 X                 SA7    DOFLAG                                                  DOPROC   1233
           620  5170000000 X                      SA7    L.DOLST                                                 DOPROC   1234
                          0400000000 X            EQ     ERPRO                                                   DOPROC   1235
                                                                                                                 DOPROC   1236
                                        *         IF OBJECT OF LOGICAL IF IS  GO TO, IF, RETURN, STOP, PAUSE,    FCC0825    12
                                        *         A NON-ANSI DIAGNOSTIC IS ISSUED.                               FCC0825    13
                                                                                                                 FCC0825    14
           621  5110000021               DOLAB4A  SA1    LTYPE       TEST TYPE CODE OF OBJECT                    FCC0825    15
                          63210                   SB2    X1          OF LOGICAL IF                               FCC0825    16
                               23322              AX3    B2,X2                                                   FCC0825    17
           622  20373                             LX3    59                                                      FCC0825    18
                     0323000625 +                 PL     X3,DOLAB5   IF OBJECT OF LOG IF IS OK                   FCC0825    19
           623  6160777316                        POSTER SEV=ANSI,NR=E.DO305                                     FCC0825    20
                                                                                                                 FCC0825    21
                                        *         REMOVE DEFINED LABELS FROM DOLIST                              DOPROC   1237
                                        *         SET X AND M BITS FOR REFERENCES TO UNDEFINED LABELS            DOPROC   1238
                                                                                                                 DOPROC   1239
           625  5110000000 X             DOLAB5   SA1    O.DOLST                                                 DOPROC   1240
                          5120000000 X            SA2    L.DOLST                                                 DOPROC   1241
           626  5130000000 +                      SA3    O.DOTAB                                                 DOPROC   1242
                          53435                   SA4    X3+B5             WORD 2                                DOPROC   1243
                               21422              AX4    D2.PL                                                   DOPROC   1244
           627  73540                             SX5    X4                P FIELD                               DOPROC   1245
                     36715                        IX7    X1+X5             FWA OF DOLST FOR THIS LOOP            DOPROC   1246
                          5170000436 +            SA7    PFIELD                                                  DOPROC   1247
           630  63610                             SB6    X1                B6 = FWA                              DOPROC   1248
                     36012                        IX0    X1+X2             LWA+1 OF DOLST                        DOPROC   1249
                          63300                   SB3    X0                                                      DOPROC   1250
                               13607              BX6    X0-X7                                                   DOPROC   1251
           631  0306000654 +                      ZR     X6,DOLAB9         IF NO DOLST FOR THIS LOOP             DOPROC   1252
                                                                                                                 DOPROC   1253
                          63170                   SB1    X7                B1 = LOOP INDEX                       DOPROC   1254
                               63270              SB2    X7                B2 = STORE ADDRESS                    DOPROC   1255
           632  5150000012                        SA5    SYM1                                                    DOPROC   1256
                          7100000050              SX0    OF.XV+OF.MV                                             DOPROC   1257
           633  20022                             LX0    D3.OFP                                                  DOPROC   1258
                     10655                        BX6    X5                X6 = SYM1                             DOPROC   1259
                          67405                   SB4    -B5               B4 = -1                               DOPROC   1260
                               66710              SB7    B1                SAVE DO1+P                            DOPROC   1261
                                                                                                                 DOPROC   1262
           634  56110                    DOLAB6   SA1    B1                FETCH DOLIST ENTRY                    DOPROC   1263
                     0331000640 +                 NG     X1,DOLAB6A        IF A VARIABLE                         DOPROC   1264
                                                                                                                 DOPROC   1265
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    30
         DOLAB - END OF LABELED STMT PROCESSING 
  
                               20101              LX1    1                                                       DOPROC   1266
           635  37761                             IX7    X6-X1             SYMTAB ADDRESS                        DOPROC   1267
                     53474                        SA4    X7+B4             WORD 2 OF SYMTAB                      DOPROC   1268
                          20407                   LX4    59-P.DSN                                                DOPROC   1269
           636  0334000641 +                      NG     X4,DOLAB6B        IF LABEL IS DEFINED                   DOPROC   1270
                                                                                                                 DOPROC   1271
                          5253000002              SA5    X3+2              WORD 3 OF DOTAB ENTRY                 DOPROC   1272
           637  20173                             LX1    59                ADJUST X1                             DOPROC   1273
                     12705                        BX7    X0+X5             SET X AND M BITS                      DOPROC   1274
                          54750                   SA7    A5                                                      DOPROC   1275
                                                                                                                 DOPROC   1276
           640  10711                    DOLAB6A  BX7    X1                                                      DOPROC   1277
                     56720                        SA7    B2                MOVE ELEMENT DOWN                     DOPROC   1278
                          66225                   SB2    B2+B5             ADVANCE STORE ADDRESS                 DOPROC   1279
                                                                                                                 DOPROC   1280
           641  66115                    DOLAB6B  SB1    B1+B5             ADVANCE LOOP INDEX                    DOPROC   1281
                     0713000634 +                 LT     B1,B3,DOLAB6      LOOP THROUGH LIST                     DOPROC   1282
                               77726              SX7    B2-B6                                                   DOPROC   1283
           642  5170000000 X                      SA7    L.DOLST           UPDATE LENGTH                         DOPROC   1284
                          7203776670 -            SX0    X3-DOTAB-3                                              DOPROC   1285
           643  0310000654 +                      NZ     X0,DOLAB9         IF NOT THE FIRST LOOP                 DOPROC   1286
                                                                                                                 DOPROC   1287
                                        *         ELIMINATE REFERENCES TO LABELS, SET RZ BIT FOR "LORD"          DOPROC   1288
                                        *         IF DOLST CONTAINS LABELS SO THAT ONE MAY REENTER THE LOOP.     DOPROC   1289
                                                                                                                 DOPROC   1290
                          66320                   SB3    B2                B3 = DOLAST                           DOPROC   1291
                               43000              MX0    0                 CLEAR RZ BIT                          DOPROC   1292
           644  66170                             SB1    B7                RUNNING INDEX                         DOPROC   1293
                     66270                        SB2    B7                STORE ADDRESS                         DOPROC   1294
                                                                                                                 DOPROC   1295
           645  56110                    DOLAB7   SA1    B1                FETCH ENTRY                           DOPROC   1296
                     0413000651 +                 EQ     B1,B3,DOLAB8                                            DOPROC   1297
           646  0321000650 +                      PL     X1,DOLAB7A        IF A LABEL                            DOPROC   1298
                                                                                                                 DOPROC   1299
                          10711                   BX7    X1                                                      DOPROC   1300
                               56720              SA7    B2                STORE VARIABLE DEF                    DOPROC   1301
           647  66225                             SB2    B2+B5             UPDATE STORE ADDR                     DOPROC   1302
                     66115                        SB1    B1+B5                                                   DOPROC   1303
                          0400000645 +            EQ     DOLAB7            LOOP                                  DOPROC   1304
                                                                                                                 DOPROC   1305
           650  43001                    DOLAB7A  MX0    1                 SET RZ FLAG                           DOPROC   1306
                     66115                        SB1    B1+B5                                                   DOPROC   1307
                          0400000645 +            EQ     DOLAB7                                                  DOPROC   1308
                                                                                                                 DOPROC   1309
           651  5120000761 +             DOLAB8   SA2    LORD                                                    DOPROC   1310
                          20201                   LX2    1                 *2                                    DOPROC   1311
                               37362              IX3    X6-X2                                                   DOPROC   1312
           652  53434                             SA4    X3+B4             WORD B OF SYMTAB ENTRY                DOPROC   1313
                     20067                        LX0    1+P.RZ                                                  DOPROC   1314
                          12604                   BX6    X0+X4             SET RZ BIT                            DOPROC   1315
                               54640              SA6    A4                                                      DOPROC   1316
           653  77726                             SX7    B2-B6                                                   DOPROC   1317
                     5170000000 X                 SA7    L.DOLST           UPDATE LENGTH                         DOPROC   1318
                                                                                                                 DOPROC   1319
           654  43700                    DOLAB9   MX7    0                                                       DOPROC   1320
                     0100000532 +                 RJ     XFERF             GO XFER FLAGS TO )XX IN SYMTAB        DOPROC   1321
           655  5150000055 +                      SA5    OTF                                                     DOPROC   1322
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    31
         DOLAB - END OF LABELED STMT PROCESSING 
  
                          0315000660 +            NZ     X5,DOLAB10        IF A ONE-TRIP LOOP                    DOPROC   1323
           656  6120777774                        SB2    -M.DOEND                                                DOPROC   1324
                          0100000370 +            RJ     GENMAC      WRITE DO-END MACRO                          DOPROC   1325
           657  0400000605 +                      EQ     DOLAB.D                                                 DOPROC   1326
                                                                                                                 DOPROC   1327
           660  6170000662 +             DOLAB10  WRM    DOLABA      WRITE DUMMY DO-END MACRO TO RLIST           DOPROC   1328
           661  0400000605 +                      EQ     DOLAB.D                                                 DOPROC   1329
                                                                                                                 DOPROC   1330
           662  17740000000000000000     DOLABA   RMHDR  M.DOEND,0                                               DOPROC   1331
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    32
         DOLABR 
  
                                        ***                                                                      DOPROC   1333
                                        *         DOLABR - PROCESS REFERENCE TO A LABEL                          DOPROC   1334
                                        *                                                                        DOPROC   1335
                                        *         ENTRY  X2 = ELIST FOR LABEL OR ZERO IF CALLED FROM RETURN.     FCC1402X   10
                                        *                                                                        DOPROC   1337
                                        *         ON EXIT:                                                       DOPROC   1338
                                        *         A0,A1,A2,X1,X2,B1,B2 SET AS IF CALLED "LABEL"                  DOPROC   1339
                                        *                X4 = PREVIOUS VALUE OF RSN BIT ( 0 OR 1S"P.RSN" )       DOPROC   1340
                                        *                X7 = LABEL IN FORMAT  10HLABEL ( NO LEADING . )         DOPROC   1341
                                        *                                                                        DOPROC   1342
           663  76210                    DOLABRV  ERNAME B1                ERROR EXIT                            DOPROC   1343
           664  6170000665 +            +         SB7    *+1                                                     DOPROC   1344
                          0400000000 X            EQ     ERPRO                                                   DOPROC   1345
                                                                                                                 DOPROC   1346
           665  5110000435 +             DOLABRW  SA1    TEMP                                                    DOPROC   1347
                          63110                   SB1    X1                RESTORE B1                            DOPROC   1348
                                                                                                                 DOPROC   1349
           666  5150000000 X             DOLABRX  SA5    RSELECT           ** NORMAL EXIT **                     DOPROC   1350
                          0305000670 +            ZR     X5,DOLABRY        IF R = 0                              DOPROC   1351
           667  43200                             ADDREF B1,REF            ADD A REFERENCE FOR THE LABEL         DOPROC   1352
                                                                                                                 DOPROC   1353
           670  5130000012               DOLABRY  SA3    SYM1                                                    DOPROC   1354
                          5140000435 +            SA4    TEMP              ORDINAL                               DOPROC   1355
           671  53030                             SA0    X3                                                      DOPROC   1356
                     5130001103 +                 SA3    =5R    B                                                DOPROC   1357
                               63140              SB1    X4                                                      DOPROC   1358
           672  66211                             SB2    B1+B1             2*ORD                                 DOPROC   1359
                     55102                        SA1    A0-B2             WORD A                                DOPROC   1360
                          55215                   SA2    A1-B5             WORD B                                DOPROC   1361
                               43044              MX0    36                                                      DOPROC   1362
           673  11501                             BX5    X0*X1                                                   DOPROC   1363
                     20506                        LX5    6                                                       DOPROC   1364
                          13753                   BX7    X5-X3             10H_LABEL                             DOPROC   1365
                               54445              SA4    A4+B5             TEMP+1 = PREVIOUS VALUE OF RSN        DOPROC   1366
                                                                                                                 DOPROC   1367
           674  00000000000000000000     DOLABR   ENTRY.                                                         DOPROC   1368
           675  0302000755 +                      ZR     X2,DOLABR8  IF SPECIAL CALL FROM RETURN                 FCC1402X   11
                          53120                   SA1    X2                FETCH CONSTANT                        DOPROC   1370
                               21222              AX2    18                                                      DOPROC   1371
           676  63120                             SB1    X2                DIGIT COUNT                           DOPROC   1372
                     6170000700 +                 LABCON                   GO CONVERT THE LABEL AND ENTER IN SYM DOPROC   1373
                                                                                                                 DOPROC   1374
           700  7100000006                        SX0    T.LAB                                                   DOPROC   1375
                          20070                   LX0    P.TYP                                                   DOPROC   1376
                               12202              BX2    X0+X2             SET TYPE TO LABEL                     DOPROC   1377
                                                                                                                 DOPROC   1378
           701  76710                   +         SX7    B1                                                      DOPROC   1379
                     5170000435 +                 SA7    TEMP              SAVE THE ORDINAL                      DOPROC   1380
                               43002              MX0    2                                                       DOPROC   1381
           702  20064                             LX0    2+P.RFN                                                 DOPROC   1382
                     11302                        BX3    X0*X2                                                   DOPROC   1383
                          6160000022              SB6    E.DOMUL           PRESENT REF CONFLICTS WITH PREVIOUS   DOPROC   1384
           703  0313000663 +                      NZ     X3,DOLABRV        USEAGE                                DOPROC   1385
                                                                                                                 DOPROC   1386
                                         RSNB     BIT    P.RSN-P.RAS       ACTIVE STMT NO AND REF IN CONTEXT AS  DOPROC   1387
                          7100000021              SX0    RSNB+1            A STMT NO                             DOPROC   1388
           704  20061                             LX0    P.RAS                                                   DOPROC   1389
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    33
         DOLABR 
  
                     12602                        BX6    X0+X2             SET ACTIVE AND REFED AS STMT NO BITS  DOPROC   1390
                          5130000000 X            SA3    TRACEL                                                  DOPROC   1391
           705  0333000711 +                      NG     X3,DOLABR1        IF NOT TRACING JUMPS                  DOPROC   1392
                          43014                   MX0    L.TRO                                                   DOPROC   1393
                               20044              LX0    L.TRO+P.TRO                                             DOPROC   1394
           706  11302                             BX3    X0*X2                                                   DOPROC   1395
                     0313000711 +                 NZ     X3,DOLABR1        IF THIS LABEL HAS A TRACE ORDINAL     DOPROC   1396
           707  5140000000 X                      SA4    N.TLAB                                                  DOPROC   1397
                          73745                   SX7    X4+B5             INCREMENT NO OF LABELS BEING TRACED   DOPROC   1398
                               54740              SA7    A4                                                      DOPROC   1399
           710  20730                             LX7    P.TRO                                                   DOPROC   1400
                     12676                        BX6    X7+X6             INSTALL TRACE ORDINAL                 DOPROC   1401
           711  54620                    DOLABR1  SA6    A2                UPDATE WORD B                         DOPROC   1402
                     76050                        SX0    B5                                                      DOPROC   1403
                          20065                   LX0    P.RSN                                                   DOPROC   1404
                               11702              BX7    X0*X2             SAVE PREVIOUS VALUE OF RSN FOR IFBRT, DOPROC   1405
           712  5170000436 +                      SA7    TEMP+1            ETC                                   DOPROC   1406
                          20207                   LX2    59-P.DSN                                                DOPROC   1407
                               43014              MX0    L.LOR                                                   DOPROC   1408
           713  20030                             LX0    L.LOR+P.LOR                                             DOPROC   1409
                     11306                        BX3    X0*X6             ORD OF )XX OF ASSOC LOOP              DOPROC   1410
           714                           DOLABR1A BSS    0                                                       DOPROC   1411
           714  5150000000 X                      SA5    DOFLAG                                                  DOPROC   1412
                          0315000723 +            NZ     X5,DOLABR.L       IF WE ARE INSIDE A NEST               DOPROC   1413
                                                                                                                 DOPROC   1415
                                        *         NO LOOPS                                                       DOPROC   1416
                                                                                                                 DOPROC   1417
           715  0322000721 +                      PL     X2,DOLABR3        IF LABEL NOT DEFINED                  DOPROC   1418
                          0303000666 +            ZR     X3,DOLABRX        IF NO REFS TO LABEL IN A PRIOR LOOP   DOPROC   1419
           716  21313                    DOLABR2  AX3    P.LOR-1           2 * ORDINAL                           DOPROC   1420
                     63335                        SB3    X3+B5                                                   DOPROC   1421
                          55403                   SA4    A0-B3             WORD B OF )XX OF ASSOCIATED LOOP      DOPROC   1422
                               43001              MX0    1                                                       DOPROC   1423
           717  20067                             LX0    1+54              SET E BIT ( LOOP MAY BE ENTER FROM    DOPROC   1424
                     12704                        BX7    X0+X4             POINTS OTHER THAN THE TOP )           DOPROC   1425
                          54740                   SA7    A4                                                      DOPROC   1426
           720  0400000666 +                      EQ     DOLABRX                                                 DOPROC   1427
                                                                                                                 DOPROC   1428
           721  76050                    DOLABR3  SX0    B5                LABEL NOT DEFINED,                    DOPROC   1429
                     20066                        LX0    P.RZ              SET RZ BIT                            DOPROC   1430
                          12660                   BX6    X6+X0             REFERENCE TO LABEL PRIOR TO NEXT DO N DOPROC   1431
                               54620              SA6    A2                                                      DOPROC   1432
           722  0400000666 +                      EQ     DOLABRX                                                 DOPROC   1433
                                                                                                                 DOPROC   1434
                                        *         LOOPS                                                          DOPROC   1435
                                                                                                                 DOPROC   1436
           723  5150000000 +             DOLABR.L SA5    O.DOTAB                                                 DOPROC   1437
                          0332000740 +            NG     X2,DOLABR6        IF LABEL IS DEFINED                   DOPROC   1438
                                                                                                                 DOPROC   1439
           724  0313000727 +                      NZ     X3,DOLABR4        IF NOT FIRST REF IN THIS LOOP         DOPROC   1440
                          5245000002              SA4    X5+2              WORD 3 OF THE CURRENT LOOP            DOPROC   1441
           725  43014                             MX0    D3.GLL                                                  DOPROC   1442
                     11304                        BX3    X0*X4             EXTRACT ORD FOR )XX OF LOOP           DOPROC   1443
                          20330                   LX3    D3.GLL+P.LOR                                            DOPROC   1444
                               12663              BX6    X6+X3             ADD LABEL OF CURRENT LOOP TO ENTRY    DOPROC   1445
           726  54620                             SA6    A2                                                      DOPROC   1446
                                                                                                                 DOPROC   1447
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    34
         DOLABR 
  
                                        *         ADD A WORD TO DOLIST FOR THE REFERENCE TO THIS LABEL           DOPROC   1448
                                                                                                                 DOPROC   1449
           727  76110                    DOLABR4  ADDWD  DOLST,B1                                                DOPROC   1450
           731  63160                             SB1    X6                                                      DOPROC   1451
                     0317000666 +                 NZ     X7,DOLABRX        IF ENOUGH STORAGE                     DOPROC   1452
                                                                                                                 DOPROC   1453
                                        *         INSUFFICIENT STORAGE, SET M AND X BITS FOR ALL LOOPS           DOPROC   1454
                                                                                                                 DOPROC   1455
           732  6130001104 +                      SB3    DOTAB             FWA                                   DOPROC   1456
                          5140000000 +            SA4    O.DOTAB                                                 DOPROC   1457
           733  63440                             SB4    X4                LWA+1                                 DOPROC   1458
                     7100000050                   SX0    OF.XV+OF.MV                                             DOPROC   1459
                               20022              LX0    D3.OFP      POSITION X AND M BITS                       DOPROC   1460
                                                                                                                 DOPROC   1461
           734  5154000002               DOLABR5  SA5    B4+2                                                    DOPROC   1462
                          6144777774              SB4    B4-3                                                    DOPROC   1463
           735  12605                             BX6    X0+X5                                                   DOPROC   1464
                     54650                        SA6    A5                                                      DOPROC   1465
                          0734000734 +            GT     B4,B3,DOLABR5                                           DOPROC   1466
                                                                                                                 DOPROC   1467
           736  6160777754                        SB6    -E.DO19           INSUFFICIENT STORAGE TO OPTIMIZE      DOPROC   1468
                          6170000665 +            SB7    DOLABRW                                                 DOPROC   1469
           737  0400000000 X                      EQ     ERPROI                                                  DOPROC   1470
                                                                                                                 DOPROC   1471
                                        *         LABEL IS DEFINED                                               DOPROC   1472
                                        *         CHECK ENTRIES IN DOTAB TO SEE IF IT IS DEFINED IN THIS NEST.   DOPROC   1473
                                        *         IF NOT IT IS A TRANSFER OUT OF THE LOOP.  SET M AND X BITS     DOPROC   1474
                                                                                                                 DOPROC   1475
           740  7100000050               DOLABR6  SX0    OF.XV+OF.MV                                             DOPROC   1476
                          20022                   LX0    D3.OFP      X AND M BITS                                DOPROC   1477
                               63450              SB4    X5                B4 = (O.DOTAB)                        DOPROC   1478
           741  6130001104 +                      SB3    DOTAB                                                   DOPROC   1479
                          43714                   MX7    D3.GLL                                                  DOPROC   1480
                               20344              LX3    -P.LOR-D3.GLL     POSITION ORD OF )XX FOR LABEL         DOPROC   1481
                                                                                                                 DOPROC   1482
           742  5144000002               DOLABRL1 SA4    B4+2                                                    DOPROC   1483
                          11674                   BX6    X7*X4             EXTRACT ORD OF LOOP )XX               DOPROC   1484
                               37536              IX5    X3-X6                                                   DOPROC   1485
           743  0305000751 +                      ZR     X5,DOLABR7  IF IN THE SAME LOOP                         DOPROC   1486
                          12604                   BX6    X0+X4             SET X AND M BITS                      DOPROC   1487
                               54640              SA6    A4                                                      DOPROC   1488
           744  6144777774                        SB4    B4-3                                                    DOPROC   1489
                          0734000742 +            GT     B4,B3,DOLABRL1                                          DOPROC   1490
           745  0303000666 +                      ZR     X3,DOLABRX                                              DOPROC   1492
                                                                                                                 DOPROC   1493
                          5140001111 +            SA4    DOTAB+5           WORD 3 OF FIRST LOOP                  DOPROC   1494
           746  11774                             BX7    X7*X4             EXTRACT ORD OF )XX FOR LOOP           DOPROC   1495
                     20330                        LX3    P.LOR+D3.GLL                                            DOPROC   1496
                          20730                   LX7    P.LOR+D3.GLL                                            DOPROC   1497
                               37137              IX1    X3-X7             ORD(LABEL) - ORD(OUTER LOOP)          DOPROC   1498
           747  0331000716 +                      NG     X1,DOLABR2        IF LABEL IS IN A PREVIOUS NEST        DOPROC   1499
                                        *         NEST OF THE FORM:  ( ( L1:  )  ( GOTO L1 ) )                   DOPROC   1500
                          6160000012              SB6    E.DO10            ILLEGAL REF TO A PREVIOUS STMT IN THI DOPROC   1501
           750  0400000663 +                      EQ     DOLABRV           NEST                                  DOPROC   1502
                                                                                                                 DOPROC   1503
                                        *         BACKWARDS REFERENCES TO LABEL DEFINED IN THE LOOP, MARK IT AS  DOPROC   1504
                                        *         NOT OPTIMIZABLE SINCE WE CANT OPTIMIZE LOOPS WITH LOOPS IN     DOPROC   1505
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    35
         DOLABR 
  
                                        *         OPT=1.                                                         DOPROC   1506
                                                                                                                 DOPROC   1507
           751  5120000000 X             DOLABR7  SA2    =XOPTLVL                                                DOPROC   1508
                          7262777776              SX6    X2-1                                                    DOPROC   1509
           752  0316000666 +                      NZ     X6,DOLABRX  IF OPTLVL " 1                               DOPROC   1510
                          7100000001              SX0    OF.RV                                                   DOPROC   1511
           753  20022                             LX0    D3.OFP                                                  DOPROC   1512
                     12604                        BX6    X0+X4       SET R BIT TO INHIBIT OPTIMIZATION           DOPROC   1513
                          54640                   SA6    A4                                                      DOPROC   1514
           754  0400000666 +                      EQ     DOLABRX                                                 DOPROC   1515
                                                                                                                 FCC1402X   12
                                        *         IF A RETURN STATEMENT IS WITHIN THE LOOP, INHIBIT OPTIMIZATION FCC1402X   13
                                                                                                                 FCC1402X   14
           755  5150000000 X             DOLABR8  SA5    DOFLAG                                                  FCC1402X   15
                          0305000674 +            ZR     X5,DOLABR   IF NOT INSIDE A NEST                        FCC1402X   16
           756  7100000001                        SX0    OF.RV                                                   FCC1402X   17
                          5150000000 +            SA5    O.DOTAB                                                 FCC1402X   18
           757  20022                             LX0    D3.OFP                                                  FCC1402X   19
                     63450                        SB4    X5                                                      FCC1402X   20
                          5144000002              SA4    B4+2                                                    FCC1402X   21
           760  12604                             BX6    X0+X4       SET R BIT TO INHIBIT OPTIMIZATION           FCC1402X   22
                     54640                        SA6    A4                                                      FCC1402X   23
                          0400000674 +            EQ     DOLABR                                                  FCC1402X   24
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    36
         DOLABCN
  
                                        ***                                                                      DOPROC   1517
                                        *         DOLABCN - CONVERT AND CHECK LABEL                              DOPROC   1518
                                        *         ENTERED BEFORE CONTROL IS PASSED TO THE STMT PROCESSORS        DOPROC   1519
                                        *         IN THE CASE OF EXECUTABLE STMTS                                DOPROC   1520
                                        *                                                                        DOPROC   1521
           761  00000000000000000000     LORD     ENTRY. 0                                                       FCC0960    23
                                 435 +   ILLXFER  EQU    TEMP              ILLEGAL TRANSFER INTO A DO LOOP       DOPROC   1523
                                                                                                                 DOPROC   1524
           762  00000000000000000000     DOLABCN  ENTRY.                                                         DOPROC   1525
           763  5110000023                        SA1    CLABEL                                                  DOPROC   1526
                          66150                   SB1    B5                                                      DOPROC   1527
                               43700              MX7    0                                                       DOPROC   1528
           764  5170000435 +                      SA7    ILLXFER           CLEAR ILLEGAL TRANSFER FLAG           DOPROC   1529
                          6170000766 +            LABCON                   CONVERT LABEL AND ENTER IN SYMTAB     DOPROC   1530
                                                                                                                 DOPROC   1531
                                         BDEF     BIT    P.TYP-P.DSN                                             DOPROC   1532
           766  7100000141                        SX0    T.LAB*BDEF+1      LABEL AND DEFINED BIT                 DOPROC   1533
                          0400001011 +            EQ     DOLABC3           NOT IN THE TABLE                      DOPROC   1534
                                                                                                                 DOPROC   1535
                                        *         PREVIOUS REFERENCES TO THIS LABEL                              DOPROC   1536
                                                                                                                 DOPROC   1537
                                         DSF      BIT    P.DSN-P.DFN                                             DOPROC   1538
           767  76710                             SX7    B1                                                      DOPROC   1539
                     5170000761 +                 SA7    LORD            SAVE ORDINAL FOR DOLAB                  DOPROC   1540
           770  7100000003                        SX0    DSF+1             DEFINED BITS                          DOPROC   1541
                          20063                   LX0    P.DFN                                                   DOPROC   1542
                               11302              BX3    X0*X2                                                   DOPROC   1543
           771  0303000775 +                      ZR     X3,DOLABC1        IF NO PREVIOUS DEFINATIONS            DOPROC   1544
                                                                                                                 DOPROC   1545
                          5130000023              SA3    CLABEL      GET THE DUPLICATE LABEL FOR ERR MSG LISTING DOPROC   1546
           772  6160000010                        SB6    E.DO8       ERR MSG NR - DUPLICATE STATEMENT LABEL      DOPROC   1547
                          13666                   BX6    X6-X6                                                   DOPROC   1548
                               20360              LX3    60-12                                                   DOPROC   1549
           773  7140000000                        SX4    0           *ERPRO* FLAG - MSG IN X3                    DOPROC   1550
                          5063000000              SA6    A3+               CLEAR DUPL LAB TO PREVENT MORE ERRS   DOPROC   1551
           774  6170000762 +             DOLABCX  SB7    DOLABCN                                                 DOPROC   1552
                          0400000000 X            EQ     ERPRO                                                   DOPROC   1553
                                                                                                                 DOPROC   1554
           775  10322                    DOLABC1  BX3    X2                                                      DOPROC   1555
                     76050                        SX0    B5                                                      DOPROC   1556
                          20311                   LX3    59-P.RFN                                                DOPROC   1557
           776  0323001001 +                      PL     X3,DOLABC1A       IF NOT REFERENCED AS A FORMAT NUMBER  DOPROC   1558
                          20063                   LX0    P.DFN             MAKE IT LOOK LIKE A FORMAT NUMBER     DOPROC   1559
                               12602              BX6    X0+X2                                                   DOPROC   1560
           777  54620                             SA6    A2                                                      DOPROC   1561
                     76210                        ERNAME B1                                                      DOPROC   1562
          1000  6160000022                        SB6    E.DOMUL           CONFLICTING USES OF THIS LABEL        DOPROC   1563
                          0400000774 +            EQ     DOLABCX                                                 DOPROC   1564
                                                                                                                 DOPROC   1565
                                        *         CHECK FOR REFS TO THE LABEL FROM OUTSIDE THE CURRENT LOOP      DOPROC   1566
                                                                                                                 DOPROC   1567
          1001  5140000000 X             DOLABC1A SA4    DOFLAG                                                  DOPROC   1568
                          0304001011 +            ZR     X4,DOLABC3        IF NO LOOPS                           DOPROC   1569
          1002  5130000000 +                      SA3    O.DOTAB           ADDRESS OF CURRENT DO LOOP            DOPROC   1570
                          5253000002              SA5    X3+2              WORD 3                                DOPROC   1571
          1003  43760                             MX7    -D3.GLL                                                 DOPROC   1572
                     10622                        BX6    X2                                                      DOPROC   1573
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    37
         DOLABCN
  
                          20514                   LX5    D3.GLL                                                  DOPROC   1574
                               15457              BX4    -X7*X5            X4 = ORD OF )XX OF CURRENT LOOP       DOPROC   1575
          1004  21614                             AX6    P.LOR                                                   DOPROC   1576
                     20560                        LX5    -D3.GLL                                                 DOPROC   1577
                          15667                   BX6    -X7*X6            X6 = ORD OF LOOP LAST REFERENCED IN   DOPROC   1578
                               37164              IX1    X6-X4                                                   DOPROC   1579
          1005  10722                             BX7    X2                                                      DOPROC   1580
                     20705                        LX7    59-P.RZ                                                 DOPROC   1581
                          0337001010 +            NG     X7,DOLABC2        IF REFS FROM OUTSIDE THE NEST         DOPROC   1582
          1006  0306001011 +                      ZR     X6,DOLABC3        IF NO PREVIOUS REFS IN A LOOP         DOPROC   1583
                          0321001011 +            PL     X1,DOLABC3        IF REFS ARE IN THE LOOP               DOPROC   1584
          1007  5160000435 +                      SA6    ILLXFER           ILLXFER " 0 IF REFS IN A PREVIOUS NES DOPROC   1585
                                        *                                  ( GOTO L )  ( L: ) IS ILLEGAL         DOPROC   1586
                                        *                                  ( GOTO L ( L: ) ) IS ILLEGAL          DOPROC   1587
                                                                                                                 DOPROC   1588
                                        *         LABEL IS REFERENCED PRIOR TO LOOP IN WHICH IT IS DEFINED       DOPROC   1589
                                        *         SET E BIT - LOOP MAY BE ENTERED FROM POINTS OTHER THAN THE TOP DOPROC   1590
                                                                                                                 DOPROC   1591
          1010  76750                    DOLABC2  SX7    B5                                                      DOPROC   1592
                     20730                        LX7    D3.OFP+OF.EP                                            DOPROC   1593
                          12775                   BX7    X7+X5             SET E BIT FOR INNERMOST LOOP          DOPROC   1594
                               54750              SA7    A5                                                      DOPROC   1595
                                                                                                                 DOPROC   1596
                                        *         PLACE ORDINAL OF GL FOR THE PRESENT LOOP IN WORD B OF SYMTAB   DOPROC   1597
                                                                                                                 DOPROC   1598
          1011  5130000000 +             DOLABC3  SA3    O.DOTAB                                                 DOPROC   1599
                          5243000002              SA4    X3+2              WORD 3                                DOPROC   1600
          1012  20064                             LX0    P.DSN                                                   DOPROC   1601
                     12202                        BX2    X0+X2             SET BITS IN SYMTAB ENTRY              DOPROC   1602
                          43014                   MX0    D3.GLL                                                  DOPROC   1603
                               11504              BX5    X0*X4             ORD OF )XX FOR CURRENT LOOP           DOPROC   1604
          1013  20030                             LX0    D3.GLL+P.LOR                                            DOPROC   1605
                     15220                        BX2    -X0*X2            REMOVE OLD ORDINAL                    DOPROC   1606
                          20530                   LX5    D3.GLL+P.LOR                                            DOPROC   1607
                               12652              BX6    X5+X2             OR IN LABEL OF CURRENT LOOP           DOPROC   1608
          1014  5130000037                        SA3    DUKE                                                    DOPROC   1609
                          20344                   LX3    P.DLN             SAVE LINE NO OF DEFINITION            DOPROC   1610
                               12636              BX6    X3+X6                                                   DOPROC   1611
          1015  54620                             SA6    A2                                                      DOPROC   1612
                                                                                                                 DOPROC   1613
                     76710                        SX7    B1                                                      DOPROC   1614
                          5170000761 +            SA7    LORD              SAVE ORDINAL FOR DOLAB                DOPROC   1615
                                                                                                                 DOPROC   1616
          1016  5150000000 X                      SA5    RSELECT                                                 DOPROC   1617
                          0305001020 +            ZR     X5,DOLABC4        IF R = 0                              DOPROC   1618
          1017  43201                             ADDREF B1,DEF            DEFINE THE STMT NUMBER                DOPROC   1619
                                                                                                                 DOPROC   1620
          1020  5150000761 +             DOLABC4  SA5    LORD                                                    DOPROC   1621
                          0100000003 +            CALL   WLABM       LABEL DEFINITION MACRO TO RLIST             DOPROC   1622
          1021  5110000435 +                      SA1    ILLXFER                                                 DOPROC   1623
                          0301000762 +            ZR     X1,DOLABCN                                              DOPROC   1624
          1022  5120000761 +                      ERNAME LORD                                                    DOPROC   1625
          1023  6160000011                        SB6    E.DO9             ILLEGAL XFER INTO A DO LOOP           DOPROC   1626
                          0400000774 +            EQ     DOLABCX                                                 DOPROC   1627
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    38
         DOLABCN
  
                                        ***                                                                      DOPROC   1629
                                        *         LABCON - CONVERT A LABEL TO INTERNAL FORM                      DOPROC   1630
                                        *         ON ENTRY:                                                      DOPROC   1631
                                        *                X1 = LABEL LEFT JUSTIFIED WITH BLANK FILL               DOPROC   1632
                                        *                B1 = CHARACTER COUNT                                    DOPROC   1633
                                        *                B7 = RETURN ADDRESS FROM "LABEL"                        DOPROC   1634
                                        *                                                                        DOPROC   1635
                                        *         ON EXIT:                                                       DOPROC   1636
                                        *                RETURN FROM "LABEL" WITH A0 - A2, X1,X2,B1,B2 SET       DOPROC   1637
                                        *                                                                        DOPROC   1638
                                                  ENTRY  LABCON                                                  DOPROC   1639
          1024  7120000033               LABCON   SX2    1R0                                                     DOPROC   1640
                          7130000002              SX3    1R.-1R                                                  DOPROC   1641
          1025  6121777771                        SB2    B1-6                                                    DOPROC   1642
                          0620001033 +            PL     B2,LAB.E1         IF MORE THAN 5 DIGITS                 DOPROC   1643
          1026  20266                             LX2    54                                                      DOPROC   1644
                     43406                        MX4    6                                                       DOPROC   1645
                          7100000022              SX0    1R -1R0                                                 DOPROC   1646
                                                                                                                 DOPROC   1647
          1027  11541                    LABCONL  BX5    X4*X1             EXTRACT A CHARACTER                   DOPROC   1648
                     37625                        IX6    X2-X5                                                   DOPROC   1649
                          0316001032 +            NZ     X6,LABCON1        IF NOT A ZERO                         DOPROC   1650
          1030  67115                             SB1    B1-B5             DECREMENT CHARACTER COUNT             DOPROC   1651
                     0410001035 +                 ZR     B1,LAB.E          IF 0 CHARACTERS                       DOPROC   1652
                               20106              LX1    6                                                       DOPROC   1653
          1031  36101                             IX1    X0+X1             CHANGE 0 TO A BLANK                   DOPROC   1654
                     0400001027 +                 EQ     LABCONL                                                 DOPROC   1655
                                                                                                                 DOPROC   1656
          1032  36113                    LABCON1  IX1    X1+X3                                                   DOPROC   1657
                     20152                        LX1    42                POSITION LABEL                        DOPROC   1658
                          0400000000 X            EQ     =XLABEL           GO ENTER NAME IN SYMTAB               DOPROC   1659
                                                                                                                 DOPROC   1660
          1033  6160000120               LAB.E1   SB6    E.DO80            LABEL MORE THAN 5 DIGITS              DOPROC   1661
                          20160                   LX1    60-12             LEFT ADJUST TO BIT 48                 DOPROC   1662
                               43014              MX0    12                                                      DOPROC   1663
          1034  15310                             BX3    -X0*X1            X3 = CONSTANT                         DOPROC   1664
                     76400                        SX4    B0                                                      DOPROC   1665
                          0400001036 +            EQ     LAB.E+1                                                 DOPROC   1666
                                                                                                                 DOPROC   1667
          1035  6160777575               LAB.E    SB6    -E.DO130          0 STMT LABEL                          DOPROC   1668
          1036  6170000000 X            +         SB7    PH2RETN                                                 DOPROC   1669
                          0400000000 X            EQ     ERPRO                                                   DOPROC   1670
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    39
         DOEND - END PROCESSING OF DO TABLES
  
                                        **        DOEND - END PROCESSING OF THE DO TABLES.                       FCC0220    57
                                        *                                                                        DOPROC   1674
                                        *         SCAN THE SYMBOL TABLE FOR MISSING STATEMENT LABEL DEFINITIONS  FCC0220    58
                                        *         AND FOR LOOPS ENTERED FROM OUTSIDE THEIR RANGE.                FCC0220    59
                                                                                                                 DOPROC   1696
                                                                                                                 DOPROC   1699
          1037  0400401037 +             DOEND=   SUBR   =                 ** ENTRY/EXIT **                      FCC0220    60
          1040  5110000012                        SA1    SYM1                                                    DOPROC   1703
                          5120000000 X            SA2    CON.                                                    DOPROC   1704
          1041  20201                             LX2    1                 2*ORD(CON.)                           DOPROC   1705
                     37112                        IX1    X1-X2                                                   DOPROC   1706
          1042  6211777775               DOEND2   SB1    X1-2              (B1) = SYMTAB ADDRESS                 FCC0220    61
                          5120000013              SA2    SYMEND                                                  DOPROC   1709
          1043  7170000006                        SX7    T.LAB                                                   DOPROC   1710
                          20770                   LX7    P.TYP                                                   DOPROC   1711
                               63220              SB2    X2                (B2) = LWA+1                          FCC0220    62
          1044  43004                             MX0    L.TYP                                                   DOPROC   1713
                     66355                        SB3    B5+B5             (B3) = 2                              FCC0220    63
                          43102                   MX1    2                                                       DOPROC   1715
                               20165              LX1    2+P.SLD           FOR CHECKING FOR UNDEFINED LABELS     DOPROC   1716
                                                                                                                 DOPROC   1717
                                        *         SYMBOL TABLE SCAN LOOP.                                        FCC0220    64
                                                                                                                 FCC0220    65
          1045  57515                    DOENDL   SA5    B1-B5             WORD B                                DOPROC   1718
                     0412001077 +                 EQ     B1,B2,DOEND10     IF TABLE SCAN FINISHED                FCC0220    66
                               11405              BX4    X0*X5                                                   DOPROC   1720
          1046  67113                             SB1    B1-B3             ADVANCE TABLE ADDRESS                 DOPROC   1721
                     37374                        IX3    X7-X4                                                   DOPROC   1722
                          0313001045 +            NZ     X3,DOENDL         IF NOT A LABEL                        DOPROC   1723
          1047  11215                             BX2    X1*X5             EXTRACT DEFINITION BITS               FCC0220    67
                     20504                        LX5    59-P.GEN                                                FCC0220    68
                          0335001061 +            MI     X5,DOEND3         IF A GENERATED LABEL                  FCC0220    69
          1050  0312001045 +                      NZ     X2,DOENDL         IF LABEL IS DEFINED                   FCC0220    70
                          5170000000 X            SA7    =XE.UDEFL         SET FLAG                              FCC0220    71
                                                                                                                 FCC0220    72
          1051  5140000000 X                      SA4    =XDFLAG                                                 FCC0220    73
                          0304001045 +            ZR     X4,DOENDL         IF NOT IN DEBUG MODE                  FCC0220    74
          1052  43601                             MX6    1                                                       FCC0220    75
                     20507                        LX5    P.GEN-P.DLT                                             FCC0220    76
                          0335001054 +            MI     X5,DOENDL2        IF DO TERMINATOR LABEL                FCC0220    77
          1053  20573                             LX5    P.DLT-P.RAS                                             FCC0220    78
                     0335001055 +                 MI     X5,DOENDL1        IF STATEMENT LABEL REFERENCE          FCC0220    79
          1054  5160000000 X             DOENDL2  SA6    =XP2NOGO          SET *SUPPRESS OBJ CODE GENERATION*    FCC0220    80
                          0400001045 +            EQ     DOENDL            LOOP                                  FCC0220    81
                                                                                                                 DOPROC   1724
          1055  76613                    DOENDL1  SX6    B1+B3                                                   DOPROC   1742
                     5160000435 +                 SA6    TEMP              SAVE ADDRESS                          DOPROC   1743
                               74455              SX4    A5+B5             ADDRESS OF WORD A                     DOPROC   1744
          1056  5120000012                        SA2    SYM1              START OF SYMTAB                       DOPROC   1745
                          37624                   IX6    X2-X4                                                   DOPROC   1746
                               23556              AX5    B5,X6                                                   DOPROC   1747
          1057  0100000003 +                      CALL   WLABM             LABEL MACRO DEFINITION TO *RLIST*     FCC0220    82
          1060  5110000435 +                      SA1    TEMP                                                    DOPROC   1749
                          0400001042 +            EQ     DOEND2                                                  DOPROC   1750
                                                                                                                 DOPROC   1751
                                        *         CHECK FOR A LOOP THAT IS ENTERED ILLEGALLY.                    FCC0220    83
                                                                                                                 DOPROC   1753
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    40
         DOEND - END PROCESSING OF DO TABLES
  
          1061  20501                    DOEND3   LX5    1                                                       DOPROC   1754
                     0325001045 +                 PL     X5,DOENDL         E = 0, NO ENTRIES TO THE LOOP         DOPROC   1755
                               20501              LX5    1                                                       DOPROC   1756
          1062  22655                             LX6    B5,X5                                                   FCC0477     8
                     66700                        SB7    B0          SET *FATAL ERROR* STATUS                    FCC0976     6
                          0325001064 +            PL     X5,DOEND4   IF LOOP HAS NO EXITS                        FCC0976     7
          1063  0326001045 +                      PL     X6,DOENDL   IF INNER LOOP                               FCC0976     8
                          66750                   SB7    B5          SET *INFORMATIVE ERROR* STATUS              FCC0976     9
          1064  76713                    DOEND4   SX7    B1+B3                                                   DOPROC   1765
                     43055                        MX0    -15                                                     FCC0220    87
                          5170000435 +            SA7    TEMP              SAVE SYMTAB ADDRESS                   DOPROC   1767
          1065  21536                             AX5    24+59-P.GEN+2     POSITION LINE COUNT                   DOPROC   1768
                     15150                        BX1    -X0*X5            EXTRACT                               DOPROC   1769
                          6110000001              SB1    1                                                       DOPROC   1770
          1066  0100000000 X                      CALL   CDD               RETURNS (X4) = INTEGER, DPC, -H- FMT  DOPROC   1771
          1067  43014                             MX0    12                                                      DOPROC   1773
                     66510                        SB5    B1                                                      DOPROC   1774
                          21414                   AX4    12                LEFT JUSTIFY TO BIT 48                DOPROC   1775
                               15340              BX3    -X0*X4                                                  DOPROC   1776
          1070  0470001073 +                      ZR     B7,DOEND5         IF FATAL ERROR (INNER LOOP)           FCC0220    88
                          13444                   POSTER SEV=INF,NR=E.DOEXT,FMT=DPC,TXT=X3,RETURN=DOEND6         FCC0220    89
                                                                                                                 DOPROC   1782
          1073  43601                    DOEND5   MX6    1                                                       FCC0220    90
                     5160000000 X                 SA6    =XP2NOGO          SET *SUPPRESS OBJ CODE GENERATION*    FCC0220    91
                               13444              POSTER SEV=FE,NR=E.DO16,FMT=DPC,TXT=X3                         FCC0220    92
          1076  5110000435 +             DOEND6   SA1    TEMP                                                    FCC0220    93
                          0400001042 +            EQ     DOEND2            CONTINUE SYMTAB SCAN                  FCC0220    94
                                                                                                                 FCC0220    95
                                        *         TERMINAL PROCESSING.                                           FCC0220    96
                                                                                                                 FCC0220    97
          1077  5110000000 X             DOEND10  SA1    =XE.UDEFL                                               FCC0220    98
                          0301001037 +            ZR     X1,EXIT.          IF NO UNDEFINED LABELS                FCC0220    99
          1100  6160777756                        POSTER SEV=FE,NR=E.DO17,RETURN=EXIT.                           FCC0220   100
                                                                                                                 FCC0220   101
                                                                                                                 FCC0220   102
          1107                                    END                                                            DOPROC   1785
  
                             66000B CM  STORAGE USED             2982 STATEMENTS      817 SYMBOLS      000018 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.715 SECONDS         974 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDREF          0   EXTERNAL*       8/01     15/32     15/39     15/39     15/39     32/20     37/46
        ADDWD           0   EXTERNAL*      34/03
        ASAER           0   EXTERNAL*      10/21     17/41     29/27
        BDEF           20                  36/16 D   36/17
        CDD             0   EXTERNAL*      40/15
        CFO             0   EXTERNAL*      17/53
        CLABEL         23                   1/52 D   36/10     36/30
        CONEB         347   PROGRAM*       18/07     18/26 L
        CONEB1        352   PROGRAM*       18/29     18/34 L
        CONVERT         0   EXTERNAL*      18/36
        CON.            0   EXTERNAL*       1/44 X   39/09
        CVAR            3   MACBUF          8/16 L   10/52     11/26     12/13     13/15 S   15/39     15/39
                                            9/49 S   11/22 S   12/09 S   13/13     15/32     15/39
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    41
        SYMBOLIC REFERENCE TABLE. 
  
        CV.BP           2                   5/33 D   11/09     14/04     20/11
        CV.BV           4                   5/33 D   13/28
        CV.CP           1                   5/34 D   11/52     13/54     14/04     14/15
        CV.CV           2                   5/34 D   13/28
        CV.DP           0                   5/35 D   13/02
        CV.DV           1                   5/35 D
        DFLAG           0   EXTERNAL*      39/36
        DIM1           17                   1/51 D   22/29
        DOCALL        523   PROGRAM*       25/06 E   25/06 L   25/08     25/21
        DOCALL1       527   PROGRAM*       25/14 L   25/19
        DODEF         440   PROGRAM*       10/23     23/44 E   23/44 L   23/46     24/24
        DODEF1        444   PROGRAM*       23/49     23/53 L
        DODEF2        445   PROGRAM*       23/51     23/56 L
        DODEF.E       516   PROGRAM*       24/17     24/19     24/20     24/21     24/44 L
                                           24/17     24/19     24/20     24/21
        DODEF.EX      513   PROGRAM*       24/37 L   24/52
        DODEF.L       451   PROGRAM*       24/13 L   24/23
        DOENDL       1045   PROGRAM*       39/24 L   39/29     39/33     39/37     39/44     40/02     40/07
        DOENDL1      1055   PROGRAM*       39/42     39/46 L
        DOENDL2      1054   PROGRAM*       39/40     39/43 L
        DOEND10      1077   PROGRAM*       39/25     40/31 L
        DOEND2       1042   PROGRAM*       39/12 L   39/54     40/27
        DOEND3       1061   PROGRAM*       39/32     40/01 L
        DOEND4       1064   PROGRAM*       40/06     40/09 L
        DOEND5       1073   PROGRAM*       40/20     40/23 L
        DOEND6       1076   PROGRAM*       40/21     40/26 L
        DOEND=       1037   PROGRAM*       39/07 L   39/07 E
        DOFLAG          0   EXTERNAL*       1/44 X   10/37     25/07     27/24     28/44     33/23     36/52
                                            9/14     23/45     26/25     28/08     29/15 S   35/14
        DOGOOF        561   PROGRAM*       27/23 E   27/24 L
        DOGOOFL       563   PROGRAM*       27/29 L   27/36
        DOGOOF1       567   PROGRAM*       27/32     27/38 L
        DOIT          553   PROGRAM*       27/01 E   27/06 L
        DOITX           0   EXTERNAL*       1/43 X   27/17
        DOLAB         571   PROGRAM*       28/07 E   28/07 L   28/09     28/20     29/11
        DOLABA        662   PROGRAM*       26/15     31/06     31/09 L
        DOLABCN       762   PROGRAM*       36/09 E   36/09 L   36/36     37/51
        DOLABCX       774   PROGRAM*       36/36 L   36/48     37/54
        DOLABC1       775   PROGRAM*       36/28     36/39 L
        DOLABC1A     1001   PROGRAM*       36/42     36/52 L
        DOLABC2      1010   PROGRAM*       37/09     37/19 L
        DOLABC3      1011   PROGRAM*       36/18     36/53     37/10     37/11     37/26 L
        DOLABC4      1020   PROGRAM*       37/45     37/48 L
        DOLABR        674   PROGRAM*       32/36 E   32/36 L   35/15     35/23
        DOLABRL1      742   PROGRAM*       34/36 L   34/43
        DOLABRV       663   PROGRAM*       32/11 L   32/53     34/54
        DOLABRW       665   PROGRAM*       32/15 L   34/22
        DOLABRX       666   PROGRAM*       32/18 L   33/29     33/37     33/43     34/05     34/44     35/05     35/10
        DOLABRY       670   PROGRAM*       32/19     32/22 L
        DOLABR1       711   PROGRAM*       33/03     33/07     33/13 L
        DOLABR1A      714   PROGRAM*       33/22 L
        DOLABR2       716   PROGRAM*       33/30 L   34/51
        DOLABR3       721   PROGRAM*       33/28     33/39 L
        DOLABR4       727   PROGRAM*       33/50     34/03 L
        DOLABR5       734   PROGRAM*       34/15 L   34/19
        DOLABR6       740   PROGRAM*       33/48     34/29 L
        DOLABR7       751   PROGRAM*       34/39     35/03 L
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    42
        SYMBOLIC REFERENCE TABLE. 
  
        DOLABR8       755   PROGRAM*       32/37     35/14 L
        DOLABR.L      723   PROGRAM*       33/24     33/47 L
        DOLAB1        573   PROGRAM*       28/13 L   28/48
        DOLAB10       660   PROGRAM*       31/01     31/06 L
        DOLAB2        576   PROGRAM*       28/20 L   28/28
        DOLAB3        601   PROGRAM*       28/26     28/30 L
        DOLAB4        610   PROGRAM*       28/30     28/53 L
        DOLAB4A       621   PROGRAM*       29/07     29/22 L
        DOLAB5        625   PROGRAM*       29/08     29/26     29/32 L
        DOLAB6        634   PROGRAM*       29/55 L   30/17
        DOLAB6A       640   PROGRAM*       29/56     30/12 L
        DOLAB6B       641   PROGRAM*       30/05     30/16 L
        DOLAB7        645   PROGRAM*       30/31 L   30/39     30/43
        DOLAB7A       650   PROGRAM*       30/33     30/41 L
        DOLAB8        651   PROGRAM*       30/32     30/45 L
        DOLAB9        654   PROGRAM*       29/44     30/21     30/55 L
        DOLAB.D       605   PROGRAM*       28/37     28/42 L   31/04     31/07
        DONE          541   PROGRAM*       26/01 E   26/05 L
        DONEX           0   EXTERNAL*       1/43 X   26/07     26/28
        DONE1         546   PROGRAM*       26/10     26/15 L
        DONE2         547   PROGRAM*       26/13     26/17 L
        DOPRA          22   PROGRAM*        7/07 L    7/39 S    9/11 S   14/33
        DOPROC         23   PROGRAM*        7/09 L    7/09 E    8/04      8/06
        DOPROC1        51   PROGRAM*        7/55      8/03 L
        DOPROC2        40   PROGRAM*        7/38      7/40      7/42 L
        DOPROC2A       44   PROGRAM*        7/46      7/48 L
        DOPROC3        46   PROGRAM*        7/47      7/48      7/53 L
        DOPR.E1        53   PROGRAM*        7/13      8/06 L
        DOTAB        1104   PROGRAM*        2/03      2/09 L   24/09     25/10     27/35     29/12     34/09     34/46
                                            2/07 E   10/32     24/43     26/06     28/15     30/20     34/32
        DOTOP          65   PROGRAM*        8/03      9/13      9/21 L   15/48     27/13
        DOTOPX         56   PROGRAM*        9/06 L    9/33     10/34     16/27     18/22     18/32
        DOTOPX1        57   PROGRAM*        9/09 L   14/34
        DOTOP0        100   PROGRAM*        9/41      9/46 L
        DOTOP0A       114   PROGRAM*       10/12     10/14     10/22 L
        DOTOP1        120   PROGRAM*       10/26     10/30 L
        DOTOP1T       234   PROGRAM*       14/03     14/09     14/26 L
        DOTOP3        177   PROGRAM*       12/42     12/52 L
        DOTOP4        223   PROGRAM*       12/48     13/54 L
        DOTOP4A       230   PROGRAM*       13/57     14/05     14/13 L
        DOTOP6        270   PROGRAM*       15/31     15/41 L
        DOTOP7        273   PROGRAM*       15/45     15/47 L
        DSF             2                  36/22 D   36/25
        DUKE           37                   1/56 D   15/11     37/36
        D1.BL          22                   5/17 D
        D1.BP           0                   5/17 D
        D1.LCL         22                   5/14 D
        D1.LCP         36                   5/14 D   14/39     14/42     21/11
        D1.OTP         35                   5/15 D   14/37     26/09     28/56
        D1.SL          14                   5/13 D   21/05     21/09     27/30     28/23     28/36
        D1.SP          60                   5/13 D    7/27      7/56     28/16
        D2.CL          22                   5/23 D
        D2.CP           0                   5/23 D
        D2.IXL         14                   5/20 D   20/51     20/53     24/14     24/16
        D2.IXP         60                   5/20 D   10/02
        D2.PL          22                   5/22 D   29/36
        D2.PP          22                   5/22 D   10/04
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        D3.CVL          3                   5/28 D   20/13     20/15     24/19     24/20     24/21
        D3.CVP         31                   5/28 D   11/52     13/29     14/15     24/19     24/21
                                           11/09     13/02     13/54     20/11     24/20
        D3.DL          22                   5/30 D
        D3.DP           0                   5/30 D
        D3.GLL         14                   5/26 D   25/35     33/54     34/48     37/01     37/32
                                           20/08     25/37     34/33     34/49     37/04     37/34
                                           20/10     33/52     34/34     36/56     37/30
        D3.GLP         60                   5/26 D   15/24
        D3.OFL          7                   5/29 D   25/32     25/34
        D3.OFP         22                   5/29 D   12/21     19/25     25/34     29/50     34/30     35/18
                                            9/24     13/42     25/11     25/41     34/13     35/07     37/20
        EL.COMMA        3   FTNTEXT        12/41     16/14
        EL.EOS          4   FTNTEXT        16/07     16/08
        EL.S)          25   FTNTEXT        16/11
        EL.)            2   FTNTEXT        16/10
        EL.=            5   FTNTEXT        16/03
        ERPRO           0   EXTERNAL*       1/43 X    7/47      9/07     24/17     29/17     36/37     40/25
                                            7/40      8/06     18/49     28/40     32/13     38/42     40/33
        ERPROI          0   EXTERNAL*       1/43 X   11/34     13/22     24/17     24/19     24/20     24/21     40/21
                                           10/28     12/28     14/28     24/19     24/20     24/21     34/23
        ER11          615   PROGRAM*       29/10 L
        ER21A         251   PROGRAM*       15/07 L
        ER5           310   PROGRAM*       16/04     16/16     16/26 L
        ER6           356   PROGRAM*       18/42     18/45 L
        ER7           345   PROGRAM*       18/11     18/21 L
        E214          326                   4/29 D   17/41
        E.DOEXT       462                   4/28 D   40/21
        E.DOMUL        22                   4/19 D   32/52     36/47
        E.DO1           1                   4/03 D   10/33
        E.DO10         12                   4/12 D   34/53
        E.DO11         13                   4/13 D   29/10
        E.DO12         14                   4/14 D   28/38
        E.DO13         15                   4/15 D   11/31     13/19     24/17     24/19     24/20     24/21
        E.DO130       202                   4/26 D   38/40
        E.DO14        342                   4/16 D   24/17     24/19     24/20     24/21
        E.DO154       232                   4/30 D   10/21
        E.DO16         20                   4/17 D   40/25
        E.DO17         21                   4/18 D   40/33
        E.DO19         23                   4/20 D   34/21
        E.DO2           2                   4/04 D    8/06
        E.DO20         24                   4/21 D   12/25
        E.DO21         25                   4/22 D   15/07
        E.DO22         26                   4/23 D   14/28
        E.DO24        151                   4/24 D    7/47
        E.DO3           3                   4/05 D    7/40
        E.DO305       461                   4/27 D   29/27
        E.DO4           4                   4/06 D    9/32
        E.DO5           5                   4/07 D   16/26
        E.DO6           6                   4/08 D   18/47
        E.DO7           7                   4/09 D   18/10     18/31
        E.DO8          10                   4/10 D   36/31
        E.DO80        120                   4/25 D   38/33
        E.DO9          11                   4/11 D   37/53
        E.UDEFL         0   EXTERNAL*       1/44 X   39/34 S   40/31
        FATALER         0   EXTERNAL*       1/43 X   15/08
        FC2           146   PROGRAM*       11/05     11/28     11/29     11/32     11/36 L
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        FC4           240   PROGRAM*       14/08     14/17     14/22     14/33 L
        F.RLST          0   EXTERNAL*       3/26
        GENMAC        370   PROGRAM*       15/42     20/05 L   21/23     26/12     31/03
        GENMAC1       403   PROGRAM*       20/32     20/38 L
        GET           420   PROGRAM*       20/23     20/30     20/42     21/32 L   21/43
        GET1          424   PROGRAM*       21/36     21/42 L
        IH              2   MACBUF          7/36 S    8/15 L   11/20     11/57     12/30     13/12     18/14 S
                                            7/42     11/15     11/36     12/07     13/07     13/46     18/40 S
        IHC           212   PROGRAM*       13/20     13/24 L
        IHD           221   PROGRAM*       12/54     13/17     13/39     13/46 L
        IHTC          170   PROGRAM*       11/47     12/15     12/16     12/26     12/30 L
        ILLXFER       435   PROGRAM*       36/07 D   36/13 S   37/12 S   37/50
        INTVAR        311   PROGRAM*        9/31     17/09 L   17/17     17/28     17/44
                                           17/09 E   17/11     17/26     17/37     18/09
        INTVAR0       320   PROGRAM*       17/15     17/23 L
        INTVAR1       323   PROGRAM*       17/30 L   17/52     17/54
        INTVAR2       333   PROGRAM*       17/13     17/51 L
        INTVAR3       331   PROGRAM*       17/40     17/42 L
        IOL           360   PROGRAM*       10/53     11/16     12/01     13/08     19/09 L   19/11     19/21     19/28
        LABCON       1024   PROGRAM*        7/18     32/41     36/14     38/11 E   38/12 L
        LABCONL      1027   PROGRAM*       38/20 L   38/27
        LABCON1      1032   PROGRAM*       38/22     38/29 L
        LABEL           0   EXTERNAL*      15/01     38/31
        LABM            1   PROGRAM*        3/01 L    3/17     15/20 S   15/44
        LABRTN        250   PROGRAM*       14/57     15/04 L
        LAB.E        1035   PROGRAM*       38/24     38/38     38/40 L
        LAB.E1       1033   PROGRAM*       38/15     38/33 L
        LEVEL2          0   EXTERNAL*      19/10
        LGEN            2                  15/03 D   15/04
        LIMIT         336   PROGRAM*       11/04     11/46     12/53     18/05 L   18/16     18/43     18/48
        LORD          761   PROGRAM*       28/13     30/45     36/06 E   36/06 L   36/24 S   37/42 S   37/48     37/52
        LTYPE          21                   1/53 D   29/22
        LWD             1   MACBUF          7/28 S    7/54      8/13 L    9/09     10/41     16/06     27/12 S
        L.DIMP         14   FTNTEXT        22/26
        L.DOLST         0   EXTERNAL*      10/03     29/16 S   29/33     30/19 S   30/53 S
        L.DOTAB       231                   2/02 D   10/32
        L.LOOP          0   EXTERNAL*       1/44 X   14/36
        L.LOR          14   FTNTEXT        33/19     33/20
        L.LVL           2   FTNTEXT        19/17
        L.NAME         52   FTNTEXT         6/16     10/16
        L.RB            7   FTNTEXT         9/43
        L.TRO          14   FTNTEXT        33/04     33/05
        L.TYP           4   FTNTEXT        39/17
        MACNUM          4                   2/12 D    2/13 D    2/14 D
        M.DOBGN         2                   2/13 D    2/13     15/41
        M.DOEND         3                   2/14 D    2/14     26/11     31/02     31/09
        M.LAB         104                   2/12 D    2/12      3/01
        NAME          425   PROGRAM*       11/23     12/10     20/54     22/16 L   22/37     24/17     24/20
                                           11/27     12/14     21/37     22/24     23/54     24/19     24/21
        NCAD            0   EXTERNAL*      10/06 S   23/57
        NRFD            0   EXTERNAL*      10/07 S   24/17     24/19     24/20     24/21
        NRLN           64                   1/57 D    3/18     20/55
        N.TLAB          0   EXTERNAL*       1/45 X   33/08
        OF.EP           6                   5/38 D   37/20
        OF.EV         100                   5/38 D
        OF.IP           4                   5/40 D    9/24
        OF.IV          20                   5/40 D
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        OF.JP           1                   5/43 D   25/11
        OF.JV           2                   5/43 D
        OF.MP           3                   5/41 D
        OF.MV          10                   5/41 D   12/19     13/41     29/49     34/12     34/29
        OF.RP           0                   5/44 D   15/16     19/25
        OF.RV           1                   5/44 D   35/06     35/16
        OF.VP           2                   5/42 D
        OF.VV           4                   5/42 D   12/19     13/41
        OF.XP           5                   5/39 D
        OF.XV          40                   5/39 D   29/49     34/12     34/29
        OPTLVL          0   EXTERNAL*      35/03
        OTF            55   PROGRAM*        8/22 L   13/56 S   14/27 S   14/35     15/14     15/43     29/02 S   30/57
        O.DOLST         0   EXTERNAL*      29/32
        O.DOTAB         0   PROGRAM*        2/03 L   10/30     12/18     13/47     20/06     26/05     28/42     34/10
                                            9/17     11/07     12/31     14/29     24/02     26/24 S   29/13 S   35/17
                                            9/25     11/37     12/56     15/22     25/12     27/27     29/34     36/54
                                            9/57     11/49     13/24     19/22     25/31     28/14     33/47     37/26
        PFIELD        436   PROGRAM*       28/01 D   29/39 S
        PH2RETN         0   EXTERNAL*       1/43 X   27/25     27/42     38/41
        PSYM           12   PROGRAM*        6/11 E    6/29     12/27     18/21     28/39     36/46
                                            6/11 L   11/33     13/21     24/49     32/11     37/52
        PSYM1          21   PROGRAM*        6/21      6/27 L
        P2NOGO          0   EXTERNAL*      39/43 S   40/24 S
        P.COM          16   FTNTEXT         9/40
        P.DFN          63   FTNTEXT        36/26     36/43
        P.DIMP         51   FTNTEXT        22/27
        P.DLN          44   FTNTEXT        37/37
        P.DLT          60   FTNTEXT         7/50     39/39     39/41
        P.DSN          64   FTNTEXT         7/25     30/04     33/18     37/28
        P.EQU          14   FTNTEXT        22/23
        P.EXT          66   FTNTEXT        17/27
        P.FLG          60   FTNTEXT        15/16     25/41
        P.FPB           0   FTNTEXT        10/11     10/13
        P.GEN          67   FTNTEXT        15/10     39/31     39/39     40/12
        P.LOR          14   FTNTEXT        33/20     33/54     34/48     37/03     37/34
                                           33/30     34/34     34/49     37/32
        P.LVL           2   FTNTEXT        19/18
        P.RAS          61   FTNTEXT        32/57     39/41
        P.RB           14   FTNTEXT         9/42
        P.RFN          62   FTNTEXT        32/50     36/41
        P.RL           45   FTNTEXT        10/13
        P.RSN          65   FTNTEXT        33/15
        P.RZ           66   FTNTEXT        30/49     33/40     37/08
        P.SLD          63   FTNTEXT        39/20
        P.TRO          30   FTNTEXT        33/05     33/11
        P.TTLN         30   FTNTEXT        15/12
        P.TYP          70   FTNTEXT         7/21     17/34     32/44     39/15
        P.VAR          50   FTNTEXT        17/31
        RLSST           7   MACBUF          8/19 L    9/46 S   10/25     20/20 S   21/22
        RSELECT         0   EXTERNAL*       7/53     15/30     32/18     37/44
        RSNB           20                  32/55 D   32/56
        R1.INP         36   FTNTEXT        20/17
        R1.RIL         20   FTNTEXT         3/19
        SELIST         32                   1/55 D    7/35      9/29     11/44     15/56     27/16 S
                                            7/10      7/43     11/02     12/38     27/07
        SETFLAGS      217   PROGRAM*       13/31     13/41 L
        SLI2          252   PROGRAM*       15/05     15/10 L
1        DOPROC - PASS 1 DO STATEMENT PROCESSOR                       COMPASS 3.7-871.     24/05/02. 15.54.29.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        STRIP           0   EXTERNAL*       6/18
        SVELIST         0   MACBUF          8/12 L   27/09 S   27/14
        SYMBOL          0   EXTERNAL*      17/12
        SYMEND         13                   1/50 D   39/13
        SYM1           12                   1/49 D   19/13     25/38     32/22     39/49
                                            6/12     22/17     29/48     39/08
        SYNCHEK       275   PROGRAM*        9/22     15/55 L   16/23     16/24
        SYNCHEK1      304   PROGRAM*       16/09     16/13 L
        SYNCHEK2      307   PROGRAM*       16/19     16/23 L
        TEMP          435   PROGRAM*       23/09 L   24/37     24/50     32/15     32/48 S   36/07     39/53     40/26
                                           24/08 S   24/46 S   28/01     32/23     33/17 S   39/47 S   40/11 S
        TRACEL          0   EXTERNAL*       1/45 X   33/02
        TYPE           24                   1/54 D   28/53
        T.INT           1   FTNTEXT        17/35     18/28
        T.LAB           6   FTNTEXT         7/20     15/04     32/43     36/17     39/14
        T.OCT           5   FTNTEXT        18/30
        VALUE.          0   EXTERNAL*       1/44 X   17/16
        V.DEF      200000   FTNTEXT         9/35
        V.DIM       20000   FTNTEXT        17/38
        V.EQU       10000   FTNTEXT         9/38
        V.FUN      100000   FTNTEXT        17/23
        WLABM           3   PROGRAM*        3/16 L    3/16 E   15/47     37/49     39/52
        WRM             0   EXTERNAL*      21/22     26/15     31/06
        WTW=            0   EXTERNAL*       3/26
        X               3                  15/33 D   15/39 D   15/39     15/39     15/39 D
                                           15/39     15/39     15/39 D   15/39     15/39
        XFERF         532   PROGRAM*       25/30 L   25/46     26/19     30/56
        Z.DOLST         0   EXTERNAL*      34/03
        .DAL            1   FTNTEXT        10/48 F   11/14 F   11/56 F   13/06 F   19/08 F
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1366              IDENT  DPCLOSE
                       1366              O.CET    END                      FWA OF COMMON EQUIVALENCE TBL
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        LITERALS* LOCAL           0        10 
                                        CODE      LOCAL          10      1356 
                                        MACBUF    COMMON          0        14 
  
  
                                        ENTRY POINTS. 
  
                                        B=DPCLS          0+           O.CBT          240+ 
                                        DPCLOSE         12+           DBLDECL         10+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        PH2CTL    SYMORD    N.FP      L.LAT     S.SCA     SVARG     Z.SCA     N.FERR
                                        R=FLAG    C.BLOCK   WB.CON    O.SCA     S.LAT     USTART.   UDATA..   DINPH2
                                        MACFLAG   DATA..    F.LFN     L.SCA     S.EQV     ESF       WST       SYMBOL
                                        DFLAG     ORGTAB    CTBLOVL   O.ECT     S.ECT     SETCORE   CNVT      ALLOC 
                                        ASAER     N.COM     O.DIM     L.ECT     F1AMAC    Z.DIM     DIRECT    ADDWD 
                                        ERPROI    OSC       L.DIM     O.FPBL    START.    MVE=      WTC=      Z.ENTR
                                        ERPRO     PSYM      O.EQV     L.FPBL    CO.ER     Z.ECT     F.CMPS
                                        ST.       CON.      L.EQV     O.ENTR    FUNTYPE   Z.EQV     LEVEL 
                                        VARDIM    INITBL    O.COM     L.ENTR    ENTRY.    Z.EOT     OUTUSE
                                        SCF       LOWCORE   L.COM     O.EOT     FMAC      Z.LAT     UDATA.
                                        SEF       N.FILES   O.LAT     L.EOT     TEMPA0.   ALLAE     P2NOGO
  
  
  
  
                                                  IDENT  DPCLOSE                                                 DPCLOSE     2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=DPCLS  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     DPCLOSE     5
                                                                                                                 DPCLOSE     6
                                  12     SYM1     EQU    12B                                                     DPCLOSE     7
                                  13     SYMEND   EQU    13B                                                     FEAT129     6
                                  17     DIM1     EQU    17B                                                     DPCLOSE     8
                                  56     PROGRAM  EQU    RA.SSW+56B        PROG    12/2000B,48/0                 DPCLOSE     9
                                        *                                  BLKDTA  60/0                          DPCLOSE    10
                                        *                                  SUBR    12/2001B,48/0                 DPCLOSE    11
                                        *                                  FUNC    12/2002B,48/0                 DPCLOSE    12
                                                                                                                 DPCLOSE    13
                                                  ENTRY  DPCLOSE,O.CBT                                           DPCLOSE    14
                                                                                                                 DPCLOSE    15
                                                  EXT    PH2CTL,R=FLAG,MACFLAG,DFLAG                             DPCLOSE    16
                                                  EXT    ASAER,ERPROI,ERPRO,ST.                                  DPCLOSE    17
                                                  EXT    VARDIM,SCF,SEF                                          DPCLOSE    18
                                                                                                                 FCC1289X   28
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     2
  
  
                                                  EXT    SYMORD,C.BLOCK,DATA..                                   DPCLOSE    19
                                                  EXT    ORGTAB,N.COM,OSC,PSYM,CON.                              DPCLOSE    20
                                                  EXT    INITBL                                                  DPCLOSE    21
                                                  EXT    LOWCORE                                                 DPCLOSE    22
                                                  EXT    N.FILES                                                 DPCLOSE    23
                                                  EXT    N.FP                                                    DPCLOSE    24
                                                  EXT    WB.CON                                                  DPCLOSE    25
                                                  EXT    F.LFN                                                   DPCLOSE    26
                                                  EXT    CTBLOVL           MEMORY OVERFLOW EXIT                  DPCLOSE    27
                                   0 X   PH1MO    EQU    CTBLOVL                                                 DPCLOSE    28
                                                                                                                 DPCLOSE    29
                                                  TABLES DIM,EQV,COM,LAT,SCA,ECT,FPBL,ENTR                       DPCLOSE    30
                                                  TABLES EOT                                                     FEAT129     7
                                                  EXT    S.SCA,S.LAT,S.EQV,S.ECT                                 DPCLOSE    31
  
  
  
                                                  USE    CODE              TO FORCE THE LITERALS TO COME FIRST   DPCLOSE    34
                                                                                                                 DPCLOSE    35
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     3
                                                                                CODE
  
                                        **        DPCLOSE IS CALLED BY PH1CTL TO PROCESS THE ACCUMULATED         FEAT129     8
                                        *         DECLARATIVE INFORMATION WHEN THE FIRST NON-SPECIFICATION       DPCLOSE    39
                                        *         STATEMENT IS ENCOUNTERED.                                      DPCLOSE    40
                                        *                                                                        DPCLOSE    41
                                        *         IT FUNCTIONS ARE TO:                                           DPCLOSE    42
                                        *           ASSIGN ADDRESS"S AND ALLOCATE STORAGE FOR ARRAYS,            DPCLOSE    43
                                        *           COMMON BLOCKS AND EQUIVALENCE CLASS"S.                       DPCLOSE    44
                                        *           IF R OPTION IS SELECTED, THEN FORMAT AND SAVE NECESSARY      DPCLOSE    45
                                        *           INFORMATION SO THAT THE COMMON BLOCK AND EQUIVALENCE         DPCLOSE    46
                                        *           CLASS MEMBERS MAY BE PRINTED OUT                             DPCLOSE    47
                                        *           ISSUE STORAGE TO "COMPS" IF  NECESSARY                       DPCLOSE    48
                                        *                                                                        DPCLOSE    49
                                        *           INITIALIZE FOR PHASE 2                                       DPCLOSE    50
                                        *                                                                        DPCLOSE    51
  
  
  
                                        *         ERROR MESSAGES                                                 DPCLOSE    53
                                                                                                                 DPCLOSE    54
                                 311     E.FPNI   EQU    201               PREVIOUS MENTIONED ADJUSTABLE SUBSC   DPCLOSE    55
                                        *                                  NOT TYPE INTEGER                      DPCLOSE    56
                                 312     E.LECS   EQU    202               ALL ECS VARIABLES MUST BE IN COMMON   DPCLOSE    57
                                 440     E.BLKL   EQU    288               COMMON BLOCK LENGTH TOO LONG          FCC1289X   29
                                 444     E.CLC    EQU    292               CONFLICTING LEVELS IN COMMON          DPCLOSE    59
                                 445     E.NAL    EQU    293               NOT ALL ITEMS IN BLOCK LEVELED        DPCLOSE    60
                                 446     E.LEE    EQU    294               LEVEL EQUIVALENCE ERROR               DPCLOSE    61
                                 452     E.EQVL   EQU    298               COMMON-EQUIVALENCE EXTENSION ERROR    DPCLOSE    62
                                                                                                                 DPCLOSE    63
                                        *         EQV ERRORS                                                     DPCLOSE    64
                                                                                                                 DPCLOSE    65
                                 137     E.RER    EQU    95                REDUNDANT EQUIVALENCE RELATIONSHIP    FCC1289X   30
                                 134     E.E1N    EQU    92                ONLY ONE NAME IN EQUIVALENCE CLASS    FCC1289X   31
                                 140     E.S>D    EQU    96                N.SUBS > N.DIMS                       DPCLOSE    68
                                 141     E.CBE    EQU    97                ILLEGAL COMMON BLOCK EXTENSION        DPCLOSE    69
                                 142     E.CER    EQU    98                CONTRADICTORY EQUIV RELATIONSHIP      DPCLOSE    70
                                 326     E.NOS    EQU    214               NO SUBS, FIRST ELEMENT USED           DPCLOSE    71
                                 345     E.DRE    EQU    229               DIM RANGE EXTENDED ( INFORMATIVE )    DPCLOSE    72
  
  
  
  
                                        *         GLOBAL COMMUNICATIONS CELLS.                                   DPCLOSE    74
                                                                                                                 DPCLOSE    75
            10  00000000000000000000     DBLDECL  ENTRY. 0                 .NZ. IF DBL OR CPLX DECL STMTS FOUND  DPCLOSE    76
                                                                                                                 FCC1879    11
                                        *         DEFINE MIN LCM RESIDENT LEVEL.                                 FCC1879    12
                                                                                                                 FCC1879    13
                                         #DAL     IFEQ   .DAL,1            IF DIRECT-ACCESS LCM AVAILABLE.       FCC1879    14
                                   2     MN.LCM   EQU    2                                                       FCC1879    15
                                         #DAL     ELSE                                                           FCC1879    16
                                         MN.LCM   EQU    3                                                       FCC1879    17
                                         #DAL     ENDIF                                                          FCC1879    18
                                  46     SCNT     EQU    46B               DIAGNOSTIC LINE NUMBER (LOW CORE)     FCC2381    16
            11                     1     SAVESCNT BSS    1                 TEMPORARY FOR SCNT DURING DPCLOSE     FCC2381    17
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     4
         TABLES                                                                 CODE
  
                                        **        TABLE DESCRIPTIONS                                             FCC1289X   32
                                                                                                                 FCC1289X   33
                                                                                                                 FCC1289X   34
                                        **        CBT -  COMMON BLOCK INDEX TABLE, A COPY OF ORGTAB DURING       FCC1289X   35
                                        *                PHASE 1 FOR REFMAP.                                     FCC1289X   36
                                        *                NEEDED ONLY WHEN R OPTION SELECTED.                     FCC1289X   37
  
  
  
  
                                        **        COM -  COMMON TABLE.                                           FCC1289X   39
                                        *                NEEDED ONLY WHEN R OPTION SELECTED.                     FCC1289X   40
                                                                                                                 FCC1289X   41
                                                                                                                 FCC1289X   42
                                                  DESCRIBE CH.,60    COMMON BLOCK HEADER WORD                    FCC1289X   43
                                         EQU      DEFINE 1           EQUIVALENCE BIT                             FCC1289X   44
                                         CLC      DEFINE 1           E.CLC BIT                                   FCC1289X   45
                                         NAL      DEFINE 1           E.NAL BIT                                   FCC1289X   46
                                         LEE      DEFINE 1           E.LEE BIT                                   FCC1289X   47
                                         EVL      DEFINE 1           E.EQVL BIT                                  FCC1289X   48
                                                  DEFINE 1                                                       FCC1289X   49
                                         LEN      DEFINE 18          BLOCK LENGTH                                FCC1289X   50
                                         NM       DEFINE 18          NO. MEMBERS                                 FCC1289X   51
                                         LNK      DEFINE 18          LINK TO NEXT BLOCK APPEARENCE               FCC1289X   52
                                                                                                                 FCC1289X   53
                                                  DESCRIBE CM.,60    COMMON BLOCK MEMBER WORD                    FCC1289X   54
                                         DM       DEFINE 1           DIMENSION BIT                               FCC1289X   55
                                                  DEFINE 5                                                       FCC1289X   56
                                         WC       DEFINE 18          NO. WORDS                                   FCC1289X   57
                                         SYM      DEFINE 18          SYMORD                                      FCC1289X   58
                                         RA       DEFINE 18                                                      FCC1289X   59
  
  
  
  
                                        **        DIM -  DIMENSION TABLE. ENTRIES FOR EQUIVALENCED VARIABLES     FCC1289X   61
                                        *                ADDED IN PDC. BIAS, RA ARE COMPUTED IN EQV.             FCC1289X   62
                                                                                                                 FCC1289X   63
                                                                                                                 FCC1289X   64
                                                  DESCRIBE D1.,60    DIM TABLE WORD 1                            FCC1289X   65
                                         LOC      DEFINE 1           LOCAL BIT                                   FCC1289X   66
                                                  DEFINE 5                                                       FCC1289X   67
                                         SYM      DEFINE 18          SYMORD                                      FCC1289X   68
                                         BIA      DEFINE 18          BIAS (FOR CLASS MEMBER)                     FCC1289X   69
                                         SPN      DEQU   BIA         SPAN (FOR CLASS BASE)                       FCC1289X   70
                                         RA       DEFINE 18                                                      FCC1289X   71
                                                                                                                 FCC1289X   72
                                                  DESCRIBE D2.,60    DIM TABLE WORD 2                            FCC1289X   73
                                         ND       DEFINE 3           NO. DIMENSIONS                              FCC1289X   74
                                         NVS      DEFINE 3           NO. VARIABLE SUBSCRIPT                      FCC1289X   75
                                         WC       DEFINE 18          NO. WORDS                                   FCC1289X   76
                                         SB       DEFINE 18          SUBSCRIPT A                                 FCC1289X   77
                                         SA       DEFINE 18          SUBSCRIPT B                                 FCC1289X   78
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     5
         TABLES                                                                 CODE
  
                                        **        ECT -  EQUIVLALENCE CLASS TABLE, CREATED IN SCAN5 OF EQV,      FCC1289X   80
                                        *                ONE ENTRY FOR EACH EQUIVALENCED VARIABLE.               FCC1289X   81
                                        *                TEMPORARY ENTRIES ARE FORMED FIRST TO SORT OUT THE      FCC1289X   82
                                        *                CLASSES AND TO FIND THEIR BASE MEMBERS.                 FCC1289X   83
                                        *                CONTENTS ARE COPIED TO EQV TABLE AT END OF EQV.         FCC1289X   84
                                        *                NEEDED WHEN R OPTION IS SELECTED.                       FCC1289X   85
                                                                                                                 FCC1289X   86
                                                                                                                 FCC1289X   87
                                                  DESCRIBE TE.,60    TEMPORARY EQUIVALENCE CLASS TABLE           FCC1289X   88
                                         EOI      DEFINE 16          INDEX TO EOT ENTRY                          FCC2548     8
                                                  DEFINE 7           0                                           FCC2548     9
                                         CBB      DEFINE 1           COMMON BASE BIAS (0 IF COMMON BASE)         FCC1289AX   8
                                         BIA      DEFINE 18          BIAS                                        FCC1289X   91
                                         GFA      DEFINE 18          G-F TABLE ENTRY ADDRESS                     FCC1289X   92
                                                                                                                 FCC1289X   93
                                                  DESCRIBE EC.,60    ECT                                         FCC1289X   94
                                         CB       DEFINE 1           COMMON BIT(BASE)                            FCC1289X   95
                                                  DEFINE 5                                                       FCC1289X   96
                                         WC       DEFINE 18          NO. WORDS(MEMBER)                           FCC1289X   97
                                         SPN      DEQU   WC          SPAN(BASE)                                  FCC1289X   98
                                         SYM      DEFINE 18                                                      FCC1289X   99
                                         BIA      DEFINE 18          BIAS(MEMBER)                                FCC1289X  100
                                         NM       DEQU   BIA         NO. MEMBERS(BASE)                           FCC1289X  101
  
  
  
  
                                        **        EOT -  EQUIVALENCE OVERLAP TABLE.                              FCC1289X  103
                                        *                ONE ENTRY PER EACH EQUIVALENCE CLASS.                   FCC1289X  104
                                        *                CREATED IN SCAN2 OF EQV FOR EQUIVALENCE OVERLAP         FCC1289X  105
                                        *                SEARCHES.                                               FCC1289X  106
                                        *                EXISTS ONLY DURING EQV.                                 FCC1289X  107
                                                                                                                 FCC1289X  108
                                                                                                                 FCC1289X  109
                                                  DESCRIBE EO.,60                                                FCC1289X  110
                                         RB       DEFINE L.RB+1                                                  FCC1923     8
                                         FWA      DEFINE 18          FWA OF CLASS                                FCC1289X  112
                                         LWA      DEFINE 18          LWA OF CLASS                                FCC1289X  113
                                         GFI      DEFINE 24-L.RB-1         G-F TABLE INDEX OF ROOT               FCC1923     9
  
  
  
  
                                        **        EQV -  EQUIVALENCE TABLE, CREATED FROM EQUIVALENCE SOURCE      FCC1289X  116
                                        *                IN DPEQU OF *DECPRO*.                                   FCC1289X  117
                                        *                CHANGED TO G-F TABLE IN SCAN1 OF EQV.                   FCC1289X  118
                                        *                CONTAINS FINAL EQUIV INFORMATION NEEDED FOR REFMAP.     FCC1289X  119
                                        *                NEEDED WHEN EDIT OPTION IS SELECTED. (LOCAL TO          FCC1289X  120
                                        *                *DPCLOSE*.                                              FCC1289X  121
                                                                                                                 FCC1289X  122
                                                                                                                 FCC1289X  123
                                                  DESCRIBE E1.,60    EQV TABLE WORD 1 (ENTRY TO EQV)             FCC1289X  124
                                         GOR      DEFINE 16          GROUP ORD                                   FCC2548    10
                                         SY2      DEFINE 44          2*SYMORD                                    FCC2548    11
                                                                                                                 FCC1289X  127
                                                  DESCRIBE E2.,60    EQV TABLE WORD 2 (ENTRY TO EQV)             FCC1289X  128
                                         NS       DEFINE 3           NO. SUBSCRIPT                               FCC1289X  129
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     6
         TABLES                                                                 CODE
  
                                                  DEFINE 3                                                       FCC1289X  130
                                         SC       DEFINE 18          SUBSCRIPT C                                 FCC1289X  131
                                         SB       DEFINE 18          SUBSCRIPT B                                 FCC1289X  132
                                         SA       DEFINE 18          SUBSCRIPT A                                 FCC1289X  133
                                                                                                                 FCC1289X  134
                                                  DESCRIBE Q2.,60    EQV TABLE WORD 2 (AFTER PRESCAN)            FCC1289X  135
                                         GOR      DEFINE 16          GROUP ORD                                   FCC2548    12
                                                  DEFINE 8                                                       FCC2548    13
                                         PD       DEFINE 18          PRODUCT OF DIMENSIONS (PI(DIMS))            FCC1289X  138
                                         SUB      DEFINE 18          SUBSCRIPT                                   FCC1289X  139
                                                                                                                 FCC1289X  140
                                                  DESCRIBE G1.,60    G-F TABLE WORD 1 (AFTER SCAN1)              FCC1289X  141
                                                  DEFINE 5           0                                           FCC1289AX   9
                                         COM      DEFINE 1           COMMON BIT                                  FCC1289AX  10
                                         SYM      DEFINE 18          SYMORD                                      FCC1289X  143
                                         RB       DEFINE 18                                                      FCC1289X  144
                                         RA       DEFINE 18                                                      FCC1289X  145
                                         ADR      DEQU   RA,36       RB/RA                                       FCC1289X  146
                                                                                                                 FCC1289X  147
                                                  DESCRIBE G2.,60    G-F TABLE WORD 2 (AFTER SCAN1)              FCC1289X  148
                                         P        DEFINE 16          P(I), WHERE P(I)= PARENT OF I               FCC2548    14
                                                  DEFINE 8                                                       FCC2548    15
                                         HI       DEFINE 18          LENGTH ABOVE THE MEMBER                     FCC1289X  151
                                         LO       DEFINE 18          LENGTH BELOW THE ROOT                       FCC1289X  152
                                                                                                                 FCC1289X  153
                                                  DESCRIBE F2.,60    G-F TABLE WORD 2 (AFTER SCAN4)              FCC1289X  154
                                                  DEFINE 8                                                       FCC2548    16
                                         EOI      DEFINE 16          EOT INDEX OF BASE                           FCC2548    17
                                         BIA      DEFINE 18          BIAS                                        FCC1289X  157
                                         FWA      DEFINE 18          FWA OF CLASS                                FCC1289X  158
                                                                                                                 FCC1289X  159
                                                                                                                 FCC1289X  160
            12                           FMACDEF  CTEXT  FMACDEF - MACRO FORMATION MACROS                        FMACDEF     2
                                                                                                                 DPCLOSE   118
                                                                                                                 DPCLOSE   119
                                        *         USE    /MACBUF/          DEFINITION FOR ALL *DPCLOSE* EXCEPT   DPCLOSE   120
                                        *                                  FOR *ETC* WHICH USES THE DEFINITION   DPCLOSE   121
                                        *                                  IN *FMACDEF* (LISTED IN *STMTP*).     DPCLOSE   122
                                                                                                                 DPCLOSE   123
      L      0                                    LOC    NARGS             FWA OF /MACBUF/ AS DEFINED IN         DPCLOSE   124
                                        *                                  *FMACDEF*.                            DPCLOSE   125
                                                                                                                 DPCLOSE   126
                                        *                           LEN                                          DPCLOSE   127
                                   0 C   TEMP     EQU    *           1     A TEMPORARY                           DPCLOSE   128
                                   1 C   ECSCOM   EQU    *+1         1     NE 0 IF ECS VARIABLE NOT IN COMMON    DPCLOSE   129
                                   2 C   LCMERR   EQU    *+2         1                                           DPCLOSE   130
                                   3 C   LCMORD   EQU    *+3         1                                           DPCLOSE   131
                                                                                                                 DPCLOSE   132
                                   4 C   PSEUDO   EQU    *+4         1     PSEUDO OP WORD                        DPCLOSE   133
                                   5 C   CLI      EQU    *+5         2     LOOP INDEX AND LIMIT FOR COMMON       DPCLOSE   134
                                   7 C   CLOC     EQU    *+7         2     CURRENT LOC AND LINK                  DPCLOSE   135
                                  11 C   CBUF     EQU    *+9         4     SPACE FOR *EQV*                       DPCLOSE   136
                                  15     NSCR     EQU    *+13-TEMP         LEN OF /MACBUF/                       DPCLOSE   137
            12                                    LOC    *O                                                      DPCLOSE   138
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     7
         MAIN LOOP                                                              CODE
  
            12  5110000000 +             DPCLOSE  SA1    =10R  EQV/COMM    REPLACES DIAG LINE NUMBER             FCC2381    18
                          5120000046              SA2    SCNT              FOR MESSAGES OUTPUT DURING DPCLOSE    FCC2381    19
            13  10611                             BX6    X1                                                      FCC2381    20
                     54620                        SA6    A2                                                      FCC2381    21
                          10622                   BX6    X2                                                      FCC2381    22
            14  5160000011 +                      SA6    SAVESCNT          SAVE DIAG LINE NUMBER                 FCC2381    23
                          0100000000 X            RJ     SCF                                                     FCC2381    24
            15  0100000000 X                      RJ     SEF               ADJUST EQVTAB LENGTH                  DPCLOSE   141
            16  7160001366 +                      SX6    O.CET                                                   FCC1289X  161
                          0100000000 X            RJ     INITBL            INITIALIZE TABLES FOR DPCLOSE         DPCLOSE   143
                                                                                                                 FEAT129    15
            17  0100001322 +                      RJ     ETC               ISSUE TRACEBACK, ENTRYPOINT, AND F.P. FEAT129    16
                                        *                                  INFO TO COMPS FOR SUBPROGRAMS         FEAT129    17
                                                                                                                 DPCLOSE   144
            20  43700                             MX7    0                                                       DPCLOSE   145
                     6110000015                   SB1    NSCR                                                    DPCLOSE   146
            21  5171777776 C            +         SA7    TEMP-1+B1         CLEAR OUT SCRATCH CELLS AND FLAGS     DPCLOSE   147
                          67115                   SB1    B1-B5                                                   DPCLOSE   148
            22  0510000021 +                      NZ     B1,*-1                                                  DPCLOSE   149
                                                                                                                 FEAT129    18
                          0100001225 +            RJ     PDC               PERFORM DEFERRED CHECKS               DPCLOSE   150
                                                                                                                 DPCLOSE   151
            23  0100001166 +                      RJ     ACA               ASSIGN COMMON ADDRESS S               DPCLOSE   152
                                                                                                                 DPCLOSE   153
            24  0100000330 +                      RJ     EQV               PROCESS EQUIVALENCE TABLES            DPCLOSE   154
                                                                                                                 DPCLOSE   155
            25  0100000265 +                      RJ     ALA               ASSIGN LOCAL ADDRESS S                DPCLOSE   156
                                                                                                                 DPCLOSE   157
            26  0100000236 +                      RJ     PCE         PROCESS COMMON ERRORS                       FCC0580     6
                                                                                                                 FCC0580     7
            27  0100000171 +                      RJ     SCA               SAVE COMMON ADDRESS S                 DPCLOSE   161
                                                                                                                 DPCLOSE   162
            30  0100000076 +                      RJ     ISC               ISSUE STORAGE TO COMPS                DPCLOSE   163
                                                                                                                 DPCLOSE   164
                                        *         INITIALIZE FOR PHASE 2                                         DPCLOSE   165
                                                                                                                 DPCLOSE   166
            31  5110000070 +                      SA1    O.TBLS                                                  DPCLOSE   167
                          10611                   BX6    X1                                                      DPCLOSE   168
                               43700              MX7    0                                                       DPCLOSE   169
            32  5140000000 X                      SA4    R=FLAG                                                  DPCLOSE   170
                          7254777774              SX5    X4-3                                                    DPCLOSE   171
            33  0305000034 +                      ZR     X5,DPC1           IF R = 3                              DPCLOSE   172
                          5170000000 X            SA7    L.COM                                                   DPCLOSE   173
            34  5170000000 X             DPC1     SA7    L.LAT                                                   DPCLOSE   175
                          0100000000 X            RJ     INITBL            INITIALIZE TABLES                     DPCLOSE   176
                                                                                                                 DPCLOSE   177
            35  5130000000 X                      SA3    O.DIM                                                   DPCLOSE   178
                          7263777775              SX6    X3-2                                                    DPCLOSE   179
            36  5160000017                        SA6    DIM1              DIM1 = O.DIM-2                        DPCLOSE   180
                          5110000000 X            SA1    O.FPBL                                                  DPCLOSE   181
            37  5120000000 X                      SA2    N.FP                                                    DPCLOSE   182
                          10722                   BX7    X2                                                      DPCLOSE   183
                               63110              SB1    X1                FWA                                   DPCLOSE   184
            40  63221                             SB2    B1+X2                                                   DPCLOSE   185
                     43600                        MX6    0                                                       DPCLOSE   186
                          5170000000 X            SA7    L.FPBL            L.FPBL = N.FP                         DPCLOSE   187
                                                                                                                 DPCLOSE   188
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     8
         MAIN LOOP                                                              CODE
  
            41  56610                   +         SA6    B1                CLEAR THE F.P. BLOCK LENGTH TABLE     DPCLOSE   189
                     66115                        SB1    B1+B5                                                   DPCLOSE   190
                          0712000041 +            LT     B1,B2,*                                                 DPCLOSE   191
                                                                                                                 DPCLOSE   192
                                        *         SET UP ENTRY POINT TABLE                                       DPCLOSE   193
                                                                                                                 DPCLOSE   194
            42  5110000056                        SA1    PROGRAM                                                 DPCLOSE   195
                          0301000055 +            ZR     X1,DPC2           IF A BLOCK DATA SUBPROGRAM            DPCLOSE   196
            43  7110000001                        SX1    1           SYMTAB ORD OF ENTRY POINT=PROG UNIT NAME    DPCLOSE   197
                          5100000000 X            ADDWD  ENTR,X1                                                 DPCLOSE   198
            45  5150000000 X                      SA5    N.FILES                                                 DPCLOSE   199
                          0305000055 +            ZR     X5,DPC2           IF NO FILES                           DPCLOSE   200
            46  5140000000 X                      SA4    F.LFN                                                   DPCLOSE   201
                          20405                   LX4    59-P.EXT                                                DPCLOSE   202
            47  0324000055 +                      PL     X4,DPC2           IF FILES IN A MAIN PROG ARE NOT       DPCLOSE   203
                                        *                                  ENTRY POINTS                          DPCLOSE   204
                          0100000000 X            ALLOC  ,X5               GET SPACE                             DPCLOSE   205
                                                                                                                 DPCLOSE   206
            50  5110000000 X                      SA1    O.ENTR                                                  DPCLOSE   207
                          5120000000 X            SA2    N.FILES                                                 DPCLOSE   208
            51  73725                             SX7    X2+B5                                                   DPCLOSE   209
                     5170000000 X                 SA7    L.ENTR            L.ENTR = N.FILES+1                    DPCLOSE   210
                               63110              SB1    X1                                                      DPCLOSE   211
            52  63271                             SB2    B1+X7             LWA+1                                 DPCLOSE   212
                     7160000002                   SX6    2                 ORDINAL OF FIRST FILE                 DPCLOSE   213
                                                                                                                 DPCLOSE   214
            53  66115                   +         SB1    B1+B5             ADD ORDINALS OF FILE NAMES TO ENTR TB DPCLOSE   215
                     56610                        SA6    B1                                                      DPCLOSE   216
                          73665                   SX6    X6+B5                                                   DPCLOSE   217
            54  0712000053 +                      LT     B1,B2,*-1                                               DPCLOSE   218
                                                                                                                 DPCLOSE   219
            55  5110000001 +             DPC2     SYMBOL =8RCON.           CON. TO SYMTAB                        DPCLOSE   220
            57  5130000000 X                      SA3    WB.CON            TYPE , RL AND RB                      DPCLOSE   221
                          12732                   BX7    X3+X2                                                   DPCLOSE   222
                               54720              SA7    A2                                                      DPCLOSE   223
            60  76610                             SX6    B1                SAVE SYMTAB ORDINAL                   DPCLOSE   224
                     5160000000 X                 SA6    CON.                                                    DPCLOSE   225
                                                                                                                 DPCLOSE   226
            61  5150000000 X                      SA5    DFLAG                                                   DPCLOSE   227
                          0305000065 +            ZR     X5,DPC3           IF NOT DEBUG MODE                     DPCLOSE   228
            62  0100000000 X                      CALL   DINPH2            INITIALIZE FOR DEBUG PROCESSOR        DPCLOSE   229
            63  5110000000 X                      SA1    =XN.FERR                                                FCC0220   103
                          0301000065 +            ZR     X1,DPC3           IF NO FATAL ERRORS IN PHASE 1         DPCLOSE   231
            64  43701                             MX7    1                                                       FCC0220   104
                     5170000000 X                 SA7    =XP2NOGO    SET *SUPPRESS OBJECT CODE GENERATION*       FCC0220   105
                                                                                                                 DPCLOSE   234
            65  7160000000 X             DPC3     OUTUSE DATA.             SET RELOCATION BASE                   DPCLOSE   235
            66  5110000011 +                      SA1    SAVESCNT          RESTORE DIAG LINE NUMBER              FCC2381    25
                          10611                   BX6    X1                                                      FCC2381    26
            67  5160000046                        SA6    SCNT                                                    FCC2381    27
                          0400000000 X            EQ     PH2CTL            EXIT TO PHASE 2                       DPCLOSE   236
                                                                                                                 FCC1289X  162
                                                                                                                 FCC1289X  163
                                 240 +   O.CBT    EQU    DPCLOSE+150       FWA OF SAVED COMMON BLOCK TABLE       DPCLOSE   238
            70  00000000000000000240 +   O.TBLS   VFD    60/O.CBT          FWA OF TABLES AFTER MOVE              DPCLOSE   240
            71  55552523055555555550     BLKNAM   DATA   17L  USE    /NAME/                                      DPCLOSE   242
            73  55552523051403155550     LCMBLK   DATA   17L  USELCM /NAME/                                      DPCLOSE   243
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE     9
         MAIN LOOP                                                              CODE
  
            75                     1     TEMPREG  BSS    1                                                       DPCLOSE   244
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    10
         ISC - ISSUE STORAGE TO COMPS                                           CODE
  
                                        **        ISC - ISSUE STORAGE TO COMPS                                   FEAT129    19
                                        *                                                                        DPCLOSE   248
                                        *         ON ENTRY:                                                      DPCLOSE   249
                                        *         COMTAB:                                                        DPCLOSE   250
                                        *                HEADER WORD: 1/EQVFLAG,5/0,18/BLK LEN,18/MEMS,18/LINK   DPCLOSE   251
                                        *                MEMBERS:  1/DIMFLAG,5/0,18/WC,18/SYMORD,18/RA           DPCLOSE   252
                                        *                ECS:      1/D,5/0,18/ECS RA,18/SYMORD,18/CM RA          DPCLOSE   253
                                        *                                                                        DPCLOSE   254
                                        *         LAT:                                                           DPCLOSE   255
                                        *                          6/0,18/WC,18/SYMORD,18/0                      DPCLOSE   256
                                        *                                                                        DPCLOSE   257
            76  00000000000000000000     ISC                                                                     DPCLOSE   258
            77  5110000000 X                      SA1    MACFLAG                                                 DPCLOSE   259
                          5120000000 X            SA2    =XLEVEL                                                 DPCLOSE   260
           100  0312000101 +            +         NZ     X2,*+1            IF WE HAVE AN ECS BLOCK               DPCLOSE   261
                          0301000076 +            ZR     X1,ISC            IF COMPS OPTION NOT ON                DPCLOSE   262
                                                                                                                 DPCLOSE   263
                                        *         OUTPUT "COMPS" IMAGES FOR THE COMMON DECLARATIONS              DPCLOSE   264
                                                                                                                 DPCLOSE   265
           101  5110000000 X                      SA1    N.COM                                                   DPCLOSE   266
                          0301000163 +            ZR     X1,ISC.L          IF NO COMMON                          DPCLOSE   267
           102  7160000240 +                      SX6    O.CBT                                                   DPCLOSE   268
                          5160000000 X            SA6    C.BLOCK           TO FORCE AN USE DATA. LATER           DPCLOSE   269
           103  36716                             IX7    X1+X6                                                   DPCLOSE   270
                     5160000005 C                 SA6    CLI               LOOP INDEX                            DPCLOSE   271
                               54765              SA7    A6+B5             LIMIT                                 DPCLOSE   272
                                                                                                                 DPCLOSE   273
           104  53460                    ISC1     SA4    X6                BLOCK NAME                            DPCLOSE   274
                     43052                        MX0    L.NAME                                                  DPCLOSE   275
                          6170000071 +            SB7    BLKNAM                                                  DPCLOSE   276
           105  11704                             BX7    X0*X4                                                   DPCLOSE   277
                                                                                                                 DPCLOSE   278
                                        *         DETERMINE IF THIS IS AN LCM/ECS BLOCK                          DPCLOSE   280
                                                                                                                 DPCLOSE   281
                     5130000000 X                 SA3    O.COM                                                   DPCLOSE   282
                               36434              IX4    X3+X4                                                   DPCLOSE   283
           106  53545                             SA5    X4+B5                                                   DPCLOSE   284
                     5130000012                   SA3    SYM1                                                    DPCLOSE   285
                               21521              AX5    18-1              2*SYMORD                              DPCLOSE   286
           107  73455                             SX4    X5+B5             2*SYMORD+1                            DPCLOSE   287
                     37334                        IX3    X3-X4                                                   DPCLOSE   288
                          53430                   SA4    X3                WORD B                                DPCLOSE   289
                               20472              LX4    59-P.LCM                                                DPCLOSE   290
           110  10644                             BX6    X4                                                      DPCLOSE   291
                     5160000003 C                 SA6    LCMORD                                                  DPCLOSE   292
           111  0326000112 +                      PL     X6,ISC1.A   IF NOT ECS/LCM                              DPCLOSE   293
                          6170000073 +            SB7    LCMBLK                                                  DPCLOSE   294
                                                                                                                 DPCLOSE   295
           112  5150000002 +             ISC1.A   SA5    =3R  /                                                  DPCLOSE   296
                          12757                   BX7    X5+X7                                                   DPCLOSE   297
                               20766              LX7    54                /NAME BB                              DPCLOSE   298
           113  6160000006                        SB6    6                                                       DPCLOSE   299
                          66260                   SB2    B6                                                      DPCLOSE   300
                               43666              MX6    54                                                      DPCLOSE   301
           114  66226                   +         SB2    B2+B6             FIND THE LAST NON BLANK CHAR          DPCLOSE   302
                     23527                        AX5    B2,X7                                                   DPCLOSE   303
                          15456                   BX4    -X6*X5                                                  DPCLOSE   304
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    11
         ISC - ISSUE STORAGE TO COMPS                                           CODE
  
           115  7234777722                        SX3    X4-1R                                                   DPCLOSE   305
                          0303000114 +            ZR     X3,*-1            LOOP IF A BLANK                       DPCLOSE   306
           116  20706                             LX7    6                                                       DPCLOSE   307
                     7150777772                   SX5    1R/-1R                                                  DPCLOSE   308
                               22525              LX5    B2,X5                                                   DPCLOSE   309
           117  36775                             IX7    X7+X5                                                   DPCLOSE   310
                     43660                        MX6    L.NAME+6                                                DPCLOSE   311
                          11767                   BX7    X6*X7                                                   DPCLOSE   312
                               56775              SA7    B7+B5                                                   DPCLOSE   314
           120  66670                             SB6    B7                (B6) = LINE FWA                       DPCLOSE   315
                     6110000001                   SB1    1                                                       DPCLOSE   316
           121  7120000000 X                      WRITEC =XF.CMPS,B6,2     * USE BLKNAM* TO -COMPS-              DPCLOSE   317
                                                                                                                 DPCLOSE   318
                                        *         CHECK FOR AN EQUIVALENCED BLOCK                                DPCLOSE   319
                                                                                                                 DPCLOSE   320
           122  5150000005 C                      SA5    CLI                                                     DPCLOSE   321
                          5140000000 X            SA4    O.COM                                                   DPCLOSE   322
           123  53350                             SA3    X5                INDEX TO COMTAB                       DPCLOSE   323
                     66510                        SB5    B1                                                      DPCLOSE   324
                          36634                   IX6    X3+X4                                                   DPCLOSE   325
                               53160              SA1    X6                COMTAB HEADER WORD                    DPCLOSE   326
           124  5160000007 C                      SA6    CLOC                                                    DPCLOSE   327
                          10411                   BX4    X1                                                      FEAT129    20
                               43300              MX3    0                                                       FEAT129    21
           125  43021                             MX0    17                                                      FEAT129    22
                     20065                        LX0    17+36                                                   FEAT129    23
                          54410                   SA4    A1          COMTAB HEADER                               FEAT129    24
                                                                                                                 FEAT129    25
           126  63440                    ISC1C    SB4    X4          INDEX TO NEXT HEADER                        FEAT129    26
                     21422                        AX4    18                                                      FEAT129    27
                          63140                   SB1    X4          NUMBER OF ENTRIES                           FEAT129    28
                                                                                                                 FCC1289X  164
           127  54241                    ISC1D    SA2    A4+B1                                                   FEAT129    29
                     11202                        BX2    X0*X2                                                   FEAT129    30
                          36332                   IX3    X3+X2                                                   FEAT129    31
                               67115              SB1    B1-B5                                                   FEAT129    32
           130  0701000127 +                      GT     B1,B0,ISC1D                                             FEAT129    33
                          54444                   SA4    A4+B4       NEXT COMTAB HEADER                          FEAT129    34
           131  0540000126 +                      NE     B4,ISC1C                                                FEAT129    35
                          11201                   BX2    X0*X1                                                   FEAT129    37
                               37723              IX7    X2-X3       ACTUAL LENGTH - DECLARED LENGTH             FEAT129    38
           132  21744                             AX7    36                                                      FEAT129    39
                     5170000000 C                 SA7    TEMP                                                    FEAT129    40
           133  5120000003 C                      SA2    LCMORD                                                  DPCLOSE   328
                          5130000000 X            SA3    =XDIRECT                                                DPCLOSE   329
           134  0303000135 +                      ZR     X3,ISC1.B   IF DIRECT MODE                              DPCLOSE   330
                          0332000136 +            MI     X2,ISC2     IF LCM/ECS                                  DPCLOSE   331
           135  73710                    ISC1.B   SX7    X1                                                      DPCLOSE   332
                     54765                        SA7    A6+B5             LINK                                  DPCLOSE   333
                          0400000146 +            EQ     ISC3                                                    FEAT129    41
                                                                                                                 DPCLOSE   351
                                        *         ISSUE STORAGE FOR A LEVEL 3 BLOCK                              DPCLOSE   352
                                                                                                                 DPCLOSE   353
           136  7225777540 -             ISC2     SX2    X5-O.CBT+1                                              DPCLOSE   354
                          6110000066              SB1    54                                                      DPCLOSE   355
           137  7170000071                        SX7    1R?                                                     DPCLOSE   356
                          0100000000 X            RJ     =XCNVT                                                  DPCLOSE   357
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    12
         ISC - ISSUE STORAGE TO COMPS                                           CODE
  
           140  43001                             MX0    1                                                       DPCLOSE   358
                     67215                        SB2    B1-B5                                                   DPCLOSE   359
                          5150000003 +            SA5    =10H                                                    DPCLOSE   360
           141  23020                             AX0    B2,X0                                                   DPCLOSE   361
                     11205                        BX2    X0*X5                                                   DPCLOSE   362
                          36727                   IX7    X2+X7       PAD WITH BLANKS                             DPCLOSE   363
                               22617              LX6    B1,X7             X6 = LABEL IN 7LNAME FORM             DPCLOSE   364
           142  43052                             MX0    42                                                      DPCLOSE   365
                     21144                        AX1    36                                                      DPCLOSE   366
                          5150000170 +            SA5    BSS.OP            BSS OPCODE                            DPCLOSE   367
           143  11606                             BX6    X0*X6       FORCE TO 7L FORM                            DPCLOSE   368
                     43753                        MX7    60-17                                                   DPCLOSE   369
                          15117                   BX1    -X7*X1            BLOCK LENGTH                          DPCLOSE   370
           144  0100000000 X                      RJ     =XWST             ISSUE ?NNN BSS MMMB TO COMPS          DPCLOSE   371
           145  0400000155 +                      EQ     ISC5                                                    DPCLOSE   372
                                                                                                                 DPCLOSE   373
           146  5150000170 +             ISC3     SA5    BSS.OP                                                  DPCLOSE   374
                          10755                   BX7    X5                                                      DPCLOSE   375
           147  5170000004 C                      SA7    PSEUDO                                                  DPCLOSE   376
                                                                                                                 DPCLOSE   377
                                        *         ISSUE *NAME BSS NNNB* FOR EACH OCCURRENCE OF EACH BLOCK NAME.  DPCLOSE   378
                                                                                                                 DPCLOSE   379
           150  74615                    ISC4     SX6    A1+B5             FWA                                   DPCLOSE   380
                     21122                        AX1    18                                                      DPCLOSE   381
                          73710                   SX7    X1                NUMBER OF MEMBERS                     DPCLOSE   382
           151  0100000000 X                      RJ     OSC               OUTPUT STORAGE                        DPCLOSE   383
           152  5150000004 C                      SA5    PSEUDO                                                  DPCLOSE   384
                          5120000007 C            SA2    CLOC                                                    DPCLOSE   385
           153  54325                             SA3    A2+B5             LINK                                  DPCLOSE   386
                     36623                        IX6    X2+X3                                                   DPCLOSE   387
                          54620                   SA6    A2                                                      DPCLOSE   388
                               53160              SA1    X6                BLOCK HEADER                          DPCLOSE   389
           154  73710                             SX7    X1                                                      DPCLOSE   390
                     54730                        SA7    A3                NEW LINK                              DPCLOSE   391
                          0313000150 +            NZ     X3,ISC4           IF MORE OCCURRENCES                   DPCLOSE   392
                                                                                                                 DPCLOSE   393
           155  5110000000 C             ISC5     SA1    TEMP                                                    FEAT129    42
                          0301000161 +            ZR     X1,ISC6     IF NO EXTRA BSS NECESSARY                   FEAT129    43
           156  0331000161 +                      MI     X1,ISC6                                                 FEAT129    44
                          43052                   MX0    42                                                      FEAT129    45
           157  5150000170 +                      SA5    BSS.OP                                                  FEAT129    46
                          5140000004 +            SA4    =7L                                                     FEAT129    47
           160  10644                             BX6    X4                                                      FEAT129    48
                     0100000000 X                 RJ     =XWST       GENERATE BSS                                FEAT129    49
                                                                                                                 FCC1289X  165
           161  5110000005 C             ISC6     SA1    CLI                                                     FEAT129    50
                          54215                   SA2    A1+B5             LIMIT                                 DPCLOSE   395
                               73615              SX6    X1+B5                                                   DPCLOSE   396
           162  37062                             IX0    X6-X2             I - L                                 DPCLOSE   397
                     54610                        SA6    A1                                                      DPCLOSE   398
                          0330000104 +            NG     X0,ISC1           IF MORE BLOCKS TO GO                  DPCLOSE   399
                                                                                                                 DPCLOSE   400
           163  7160000000 X             ISC.L    OUTUSE DATA..            SET RELOCATION BASE                   DPCLOSE   401
           164  5110000000 X                      SA1    O.LAT                                                   DPCLOSE   402
                          5120000000 X            SA2    L.LAT                                                   DPCLOSE   403
           165  0302000076 +                      ZR     X2,ISC            IF NO LOCAL ARRAYS                    DPCLOSE   404
                          5150000170 +            SA5    BSS.OP                                                  DPCLOSE   405
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    13
         ISC - ISSUE STORAGE TO COMPS                                           CODE
  
           166  10611                             BX6    X1                                                      DPCLOSE   406
                     22702                        LX7    X2                                                      DPCLOSE   407
                          0100000000 X            RJ     OSC               OUTPUT STORAGE FOR THE LOCAL ARRAYS   DPCLOSE   408
           167  0400000076 +                      EQ     ISC                                                     DPCLOSE   409
                                                                                                                 DPCLOSE   410
           170  23550000000060550223     BSS.OP   VFD    12/2LS ,30/48,18/3L BS                                  DPCLOSE   411
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    14
         SCA - SAVE COMMON ADDRESS S                                            CODE
  
                                                                                                                 DPCLOSE   413
                                        **        SCA - SET/SAVE COMMON ADDRESS"S                                FEAT129    51
                                        *                                                                        DPCLOSE   416
                                                                                                                 DPCLOSE   417
           171  00000000000000000000     SCA                                                                     DPCLOSE   418
           172  5110000000 X                      SA1    N.COM                                                   DPCLOSE   419
                          0301000171 +            ZR     X1,SCA            IF NO COMMON BLOCKS                   DPCLOSE   420
                                                                                                                 DPCLOSE   421
                                        *         INSTALL BLOCK LENGTH IN ORGTAB, SAVE INDEX TABLE FOR REFMAP    DPCLOSE   422
                                                                                                                 DPCLOSE   423
           173  6160000000 X                      SB6    ORGTAB                                                  DPCLOSE   424
                          63716                   SB7    B6+X1             LWA+1                                 DPCLOSE   425
                               43052              MX0    L.NAME                                                  DPCLOSE   426
           174  6110000240 +                      SB1    O.CBT             FWA OF SAVED INDEX TABLE              DPCLOSE   427
                          5150000000 X            SA5    O.COM                                                   DPCLOSE   428
                                                                                                                 DPCLOSE   429
           175  56160                    SCA1     SA1    B6                ORGTAB ENTRY                          DPCLOSE   430
                     36251                        IX2    X5+X1             O.COM+ORGTAB(I)                       DPCLOSE   431
                          53320                   SA3    X2                                                      DPCLOSE   432
                               11601              BX6    X0*X1             EXTRACT NAME                          DPCLOSE   433
           176  21344                             AX3    36                                                      DPCLOSE   434
                     15430                        BX4    -X0*X3            EXTRACT BLOCK LENGTH                  DPCLOSE   435
                          22701                   LX7    X1                                                      DPCLOSE   436
                               36664              IX6    X6+X4                                                   DPCLOSE   437
           177  54610                             SA6    A1                UPDATE ORGTAB ENTRY                   DPCLOSE   438
                     56710                        SA7    B1                SAVE INDEX                            DPCLOSE   439
                          66665                   SB6    B6+B5                                                   DPCLOSE   440
                               66115              SB1    B1+B5                                                   DPCLOSE   441
           200  0767000175 +                      LT     B6,B7,SCA1        IF NOT FINISHED                       DPCLOSE   442
                          5150000000 X            SA5    R=FLAG                                                  DPCLOSE   443
           201  7255777774                        SX5    X5-3                                                    DPCLOSE   444
                          0315000204 +            NZ     X5,SCA2           IF R " 3                              DPCLOSE   445
           202  76610                             SX6    B1                                                      DPCLOSE   446
                     5160000070 +                 SA6    O.TBLS            UPDATE FWA OF TABLES AFTER MOVE       DPCLOSE   447
           203  5160000000 X                      SA6    LOWCORE                                                 DPCLOSE   448
                                                                                                                 DPCLOSE   449
           204  5100000000 X             SCA2     ALLAE  SCA               ALLOCATE ALMOST EVERYTHING            DPCLOSE   450
           205  5110000000 X                      SA1    O.SCA                                                   DPCLOSE   451
                          63610                   SB6    X1                B6 = O.SCA                            DPCLOSE   452
                               66700              SB7    B0                L.SCA = 0                             DPCLOSE   453
           206  5140000000 X                      SA4    S.SCA                                                   DPCLOSE   454
                          63440                   SB4    X4          B4 = SCA TABLE SPACE LEFT                   DPCLOSE   455
                                                                                                                 FCC1289X  166
                                        *         LOOP THROUGH COMTAB AND INSTALL ADDRESS"S OF MEMBERS           DPCLOSE   456
                                        *         THAT DO NOT HAVE A DIM ENTRY IN SYMTAB                         DPCLOSE   457
                                                                                                                 DPCLOSE   458
           207  5110000000 X                      SA1    O.COM                                                   DPCLOSE   459
                          5120000000 X            SA2    L.COM                                                   DPCLOSE   460
           210  63110                             SB1    X1                FWA                                   DPCLOSE   461
                     63221                        SB2    B1+X2             LWA+1                                 DPCLOSE   462
                          5150000012              SA5    SYM1                                                    DPCLOSE   463
           211  76055                             SX0    B5+B5                                                   DPCLOSE   464
                     20045                        LX0    P.RL              X0 = RL FOR A COMMON BLOCK            DPCLOSE   465
                          5205777776              SA0    X5-1              A0 = SYM1-1                           DPCLOSE   466
                                                                                                                 DPCLOSE   468
           212  5140000000 X                      SA4    DFLAG                                                   DPCLOSE   469
                                                                                                                 DPCLOSE   470
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    15
         SCA - SAVE COMMON ADDRESS S                                            CODE
  
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           DPCLOSE   471
                          5150000000 X            SA5    =XDIRECT                                                DPCLOSE   472
           213  7170004000                        SX7    V.SCA                                                   DPCLOSE   473
                                         #DAL     ENDIF                                                          DPCLOSE   474
                                                                                                                 DPCLOSE   475
                          0314000223 +            NZ     X4,SCA7     IF DEBUG MODE                               DPCLOSE   476
                                                                                                                 DPCLOSE   477
           214  56110                    SCA4     SA1    B1                BLOCK PREFIX WORD                     DPCLOSE   478
                     21122                        AX1    18                                                      DPCLOSE   479
                          63310                   SB3    X1                NUMBER OF NAMES IN THE GROUP          DPCLOSE   480
                                                                                                                 DPCLOSE   481
           215  54115                    SCA5     SA1    A1+B5             MEMBER                                DPCLOSE   482
                     67335                        SB3    B3-B5                                                   DPCLOSE   483
                          0331000220 +            NG     X1,SCA6           IF THIS MEMBER HAS A DIM ENTRY        DPCLOSE   484
                                                                                                                 DPCLOSE   485
           216  73210                             SX2    X1          RELATIVE ADDRESS                            DPCLOSE   486
                     21121                        AX1    18-1                                                    DPCLOSE   487
                          63110                   SB1    X1                                                      DPCLOSE   488
                               20223              LX2    P.RA                                                    DPCLOSE   489
           217  55401                             SA4    A0-B1             WORD B                                DPCLOSE   490
                     36702                        IX7    X0+X2             RL+RA                                 DPCLOSE   491
                          12674                   BX6    X7+X4                                                   DPCLOSE   492
                               54640              SA6    A4                UPDATE SYMTAB ENTRY                   DPCLOSE   493
                                                                                                                 DPCLOSE   494
           220  0530000215 +             SCA6     NZ     B3,SCA5           IF MORE TO GO                         DPCLOSE   495
                          64115                   SB1    A1+B5                                                   DPCLOSE   496
           221  0712000214 +                      LT     B1,B2,SCA4                                              DPCLOSE   497
                                                                                                                 DPCLOSE   498
                          76770                   SX7    B7                                                      DPCLOSE   499
           222  5170000000 X                      SA7    L.SCA                                                   DPCLOSE   500
                          0400000171 +            EQ     SCA                                                     DPCLOSE   501
                                                                                                                 DPCLOSE   502
                                                                                                                 DPCLOSE   503
                                        *         DEBUG VERSION OF LOOP.                                         DPCLOSE   504
                                                                                                                 DPCLOSE   505
           223  56110                    SCA7     SA1    B1          BLOCK PREFIX WORD                           DPCLOSE   506
                     21122                        AX1    18                                                      DPCLOSE   507
                          63310                   SB3    X1          NUMBER OF NAMES IN GROUP                    DPCLOSE   508
           224  54115                    SCA8     SA1    A1+B5       MEMBER                                      DPCLOSE   509
                     67335                        SB3    B3-B5                                                   DPCLOSE   510
                          0331000233 +            MI     X1,SCA9     IF THIS MEMBER HAS A DIM ENTRY              DPCLOSE   511
           225  10611                             BX6    X1                                                      DPCLOSE   512
                     73210                        SX2    X1          RELATIVE ADDRESS                            DPCLOSE   513
                          21121                   AX1    18-1                                                    DPCLOSE   514
                               63110              SB1    X1                                                      DPCLOSE   515
           226  56667                             SA6    B6+B7       SAVE COMTAB ENTRY                           DPCLOSE   516
                                                                                                                 DPCLOSE   517
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           DPCLOSE   518
                                        *                                                                        DPCLOSE   519
                                        *         FORM LINK IN DIMP FIELD OF SYMTAB TO SCA ENTRY, FOR USE BY     DPCLOSE   520
                                        *         PASS 1 ROUTINES FORMING INDIRECT-MODE LCM ADDRESSES.           DPCLOSE   521
                                        *                                                                        DPCLOSE   522
                     0305000232 +                 ZR     X5,SCA8.A   IF DIRECT MODE                              DPCLOSE   523
                               55401              SA4    A0-B1       WORD B                                      DPCLOSE   524
           227  20472                             LX4    59-P.LCM                                                DPCLOSE   525
                     0324000232 +                 PL     X4,SCA8.A   IF NOT LCM RESIDENT                         DPCLOSE   526
                               20402              LX4    P.LCM-59    RESTORE WORD B                              DPCLOSE   527
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    16
         SCA - SAVE COMMON ADDRESS S                                            CODE
  
           230  12447                             BX4    X4+X7       MARK DIMP = SCAP                            DPCLOSE   528
                     76670                        SX6    B7                                                      DPCLOSE   529
                          20651                   LX6    P.DIMP                                                  DPCLOSE   530
                               12646              BX6    X4+X6       DIMP = L.SCA                                DPCLOSE   531
           231  54640                             SA6    A4          RESET WORD B                                DPCLOSE   532
           232                           SCA8.A   BSS    0                                                       DPCLOSE   533
                                         #DAL     ENDIF                                                          DPCLOSE   534
                                                                                                                 DPCLOSE   535
           232  66775                             SB7    B7+B5       L.SCA = L.SCA + 1                           DPCLOSE   536
                     67445                        SB4    B4-B5       DECREMENT TABLE SPACE REMAINING             DPCLOSE   537
                          0740000000 X            MI     B4,PH1MO    IF OVERFLOW                                 DPCLOSE   538
           233  0530000224 +             SCA9     NZ     B3,SCA8     IF MORE TO GO                               DPCLOSE   539
                          64115                   SB1    A1+B5                                                   DPCLOSE   540
           234  0712000223 +                      LT     B1,B2,SCA7                                              DPCLOSE   541
                          76770                   SX7    B7                                                      DPCLOSE   542
           235  5170000000 X                      SA7    L.SCA                                                   DPCLOSE   543
                          0400000171 +            EQ     SCA                                                     DPCLOSE   544
                                                                                                                 DPCLOSE   545
                                                                                                                 DPCLOSE   546
  
  
  
                                        **        CODE AFTER THIS POINT IS OVERLAID IN "SCA"                     FEAT129    52
                                        *                                                                        DPCLOSE   550
                                                  IFGT   *,O.CBT,1                                               DPCLOSE   551
                                                  ERR    CODE IS TO LONG, YOU ARE IN TROUBLE                     DPCLOSE   552
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    17
        PCE - PROCESS COMMON ERRORS                                             CODE
  
                                        **        PCE - PROCESS COMMON ERRORS                                    FCC0580     9
                                        *                                                                        FCC0580    10
                                                                                                                 FCC0580    11
           236  0400400236 +             PCE      ENTRY. *                                                       FCC0580    12
           237  5110000000 X                      SA1    N.COM                                                   FCC0580    13
                          0301000236 +            ZR     X1,PCE      IF NO COMMON BLOCKS                         FCC0580    14
           240  6160000000 X                      SB6    ORGTAB                                                  FCC0580    15
                          63716                   SB7    B6+X1       LWA + 1                                     FCC0580    16
                               43052              MX0    L.NAME                                                  FCC0580    17
           241  5150000000 X                      SA5    O.COM                                                   FCC0580    18
                                                                                                                 FCC1289X  167
           242  56160                    PCE1     SA1    B6          ORGTAB ENTRY                                FCC0580    19
                     36251                        IX2    X5+X1       O.COM+ORGTAB(I)                             FCC0580    20
                          53320                   SA3    X2                                                      FCC0580    21
                               11601              BX6    X0*X1                                                   FCC0580    22
           243  43401                             MX4    1                                                       FCC1289X  168
                     20470                        LX4    1+CH.EVLP                                               FCC1289X  169
                          6120000452              SB2    E.EQVL                                                  FCC1289X  170
           244  11743                             BX7    X4*X3                                                   FCC1129     8
                     0317000253 +                 NZ     X7,PCE.E    IF EQUIVALENCED COMMON BLOCK LENGTH ERROR   FCC1289X  171
                               20401              LX4    CH.LEEP-CH.EVLP                                         FCC1289X  172
           245  6120000446                        SB2    E.LEE                                                   FCC0580    26
                          11743                   BX7    X4*X3                                                   FCC0580    27
           246  0317000253 +                      NZ     X7,PCE.E    IF LEVEL CONFLICT IN EQUIVALENCING          FCC0580    28
                          20402                   LX4    CH.CLCP-CH.LEEP                                         FCC1289X  173
                               11743              BX7    X4*X3                                                   FCC0580    30
           247  6120000444                        SB2    E.CLC                                                   FCC0580    31
                          0317000253 +            NZ     X7,PCE.E    IF LEVEL CONFLICT IN COMMON BLOCK           FCC0580    32
           250  20473                             LX4    CH.NALP-CH.CLCP                                         FCC1289X  174
                     6120000445                   SB2    E.NAL                                                   FCC0580    34
                               11743              BX7    X4*X3                                                   FCC0580    35
           251  0317000253 +                      NZ     X7,PCE.E    IF NOT ALL MEMBERS LEVELED                  FCC0580    37
                          66665                   SB6    B6+B5                                                   FCC0580    38
           252  0767000242 +                      LT     B6,B7,PCE1  IF NOT FINISHED                             FCC0580    39
                          0400000236 +            EQ     PCE                                                     FCC0580    40
                                                                                                                 FCC0580    41
           253  7120000055               PCE.E    SX2    1R                                                      FCC0580    42
                          15734                   BX7    -X4*X3                                                  FCC0580    43
                               20660              LX6    60-12                                                   FCC0580    44
           254  54730                             SA7    A3                                                      FCC0580    45
                     12362                        BX3    X6+X2       FILL NAME TO EIGHT CHARACTERS               FCC0580    46
                          76760                   SX7    B6                                                      FCC0580    47
                               76670              SX6    B7                                                      FCC0580    48
           255  5170000011 C                      SA7    CBUF        SAVE NECESSARY REGISTERS                    FCC0580    49
                          66620                   SB6    B2                                                      FCC0580    50
                               54675              SA6    A7+B5                                                   FCC0580    51
           256  43400                             MX4    0                                                       FCC0580    53
                     6120000445                   SB2    E.NAL                                                   FCC1289X  175
           257  0526000261 +                      NE     B2,B6,PCE.E0                                            FCC1289X  176
                          6170000262 +            POSTER SEV=INF,NR=**,RETURN=PCE.E1                             FCC1289X  177
                                                                                                                 FCC1289X  178
           261  6170000262 +             PCE.E0   POSTER SEV=FE,NR=**                                            FCC1289X  179
                                                                                                                 FCC0580    55
           262  5120000011 C             PCE.E1   SA2    CBUF        RESTORE REGISTERS                           FCC0580    56
                          43052                   MX0    L.NAME                                                  FCC0580    57
                               54125              SA1    A2+B5                                                   FCC0580    58
           263  63620                             SB6    X2                                                      FCC0580    59
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    18
        PCE - PROCESS COMMON ERRORS                                             CODE
  
                     63710                        SB7    X1                                                      FCC0580    60
                          5150000000 X            SA5    O.COM                                                   FCC0580    61
           264  0400000242 +                      EQ     PCE1                                                    FCC0580    62
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    19
         ALA - ASSIGN LOCAL ADDRESS S                                           CODE
  
                                        **        ALA - ASSIGN LOCAL ADDRESS"S                                   FEAT129    53
                                        *                                                                        DPCLOSE   634
                                        *         SCAN SYMTAB FOR LOCAL SYMBOLS WITH NON-ZERO DIMP FIELDS        DPCLOSE   635
                                        *         AND ^ ( COM OR EQV )                                           DPCLOSE   636
                                        *         ASSIGN ADDRESS"S, INCREMENT BLOCK LENGTH                       DPCLOSE   637
                                        *         SAVE SYMTAB ADDRESS"S IN A TEMPORARY TABLE IN CASE WE HAVE TO  DPCLOSE   638
                                        *         ISSUE COMPS STORAGE                                            DPCLOSE   639
                                        *                                                                        DPCLOSE   640
           265  0400400265 +             ALA      ENTRY. *                 ** ENTRY/EXIT **                      DPCLOSE   641
           266  5140000000 X                      SA4    MACFLAG                                                 DPCLOSE   642
                          0314000273 +            NZ     X4,ALA0           IF WE HAVE TO ISSUE COMPS STORAGE     DPCLOSE   643
           267  7160000304 +                      PLUG   AT=ALA.P,TO=ALA1  PLUG SKIPS ISSUING STORAGE TO CMPS    DPCLOSE   644
                                                                                                                 DPCLOSE   645
           273  5100000000 X             ALA0     ALLAE  LAT               GET SPACE                             DPCLOSE   646
           274  5110000000 X                      SA1    O.LAT                                                   DPCLOSE   647
                          5120000000 X            SA2    L.LAT                                                   DPCLOSE   648
           275  5130000000 X                      SA3    S.LAT                                                   DPCLOSE   649
                          63610                   SB6    X1                B6 = FWA                              DPCLOSE   650
                               63720              SB7    X2                B7 = INDEX                            DPCLOSE   651
           276  63430                             SB4    X3                B4 = SPACE ALLOCATED                  DPCLOSE   652
                     5110000000 X                 SA1    DATA..                                                  DPCLOSE   653
           277  5130000000 X                      SA3    ST.                                                     DPCLOSE   654
                          5140000012              SA4    SYM1                                                    DPCLOSE   655
           300  5150000000 X                      SA5    SYMORD                                                  DPCLOSE   656
                          20301                   LX3    1                                                       DPCLOSE   657
                               53040              SA0    X4                A0 = SYM1                             DPCLOSE   658
           301  63130                             SB1    X3                B1 = INDEX = 2*ORD(ST.)               DPCLOSE   659
                     20501                        LX5    1                                                       DPCLOSE   660
                          63250                   SB2    X5                B2 = LIMIT = 2*(N.SYMBOLS+1)          DPCLOSE   661
                               10711              BX7    X1                X7 = BLOCK LENGTH                     DPCLOSE   662
                                                                                                                 DPCLOSE   663
           302  43014                             MX0    L.DIMP                                                  DPCLOSE   664
                     7150050000                   SX5    V.COM+V.EQU                                             DPCLOSE   665
                               20065              LX0    L.DIMP+P.DIMP     TO EXTRACT THE DIMP FIELD             DPCLOSE   666
           303  5130000000 X                      SA3    O.DIM                                                   DPCLOSE   667
                          6233777775              SB3    X3-2              B3 = INDEX TO DIMTAB                  DPCLOSE   668
  
  
  
           304  55101                    ALA1     SA1    A0-B1                                                   DPCLOSE   670
                     0612000322 +                 GE     B1,B2,ALAX        IF FINISHED                           DPCLOSE   671
                               55215              SA2    A1-B5             WORD B                                DPCLOSE   672
           305  11351                             BX3    X5*X1                                                   DPCLOSE   673
                     6111000002                   SB1    B1+2                                                    DPCLOSE   674
                               11602              BX6    X0*X2             EXTRACT DIMP ORD                      DPCLOSE   675
           306  0313000304 +                      NZ     X3,ALA1           IF COM OR EQV                         DPCLOSE   676
                          43172                   MX1    -L.LVL                                                  FCC0762     6
                               20272              LX2    -P.LVL                                                  FCC0762     7
           307  15121                             BX1    -X1*X2                                                  FCC0762     8
                     7241777775                   SX4    X1-2                                                    FCC0762     9
           310  0324000320 +                      PL     X4,ALA.E    IF LEVEL = 2 OR 3                           FCC0762    10
                          21266                   AX2    P.TYP-P.LVL                                             FCC0762    11
           311  7242777771                        SX4    X2-T.LAB                                                DPCLOSE   682
                          0306000304 +            ZR     X6,ALA1           IF NOT DIMENSIONED                    DPCLOSE   683
           312  0324000304 +                      PL     X4,ALA1           IF A FORMAT LABEL                     DPCLOSE   684
                          21650                   AX6    P.DIMP-1                                                DPCLOSE   685
                                                                                                                 DPCLOSE   686
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    20
         ALA - ASSIGN LOCAL ADDRESS S                                           CODE
  
                                        *         ASSIGN ADDRESS TO LOCAL ARRAY                                  DPCLOSE   687
                                                                                                                 DPCLOSE   688
                               53363              SA3    B3+X6             WORD 1 OF DIM ENTRY                   DPCLOSE   689
           313  0333000304 +                      NG     X3,ALA1           IF AN EQUIVALENCED ENTRY              DPCLOSE   690
                          54435                   SA4    A3+B5             WORD 2                                DPCLOSE   691
                               21444              AX4    36                                                      DPCLOSE   692
           314  73140                             SX1    X4                WORD COUNT                            DPCLOSE   693
                     12673                        BX6    X7+X3             ADD RELATIVE ADDRESS TO DIM ENTRY     DPCLOSE   694
                          36771                   IX7    X7+X1             INCREMENT BLOCK LENGTH                DPCLOSE   695
                               54630              SA6    A3                UPDATE WORD 1                         DPCLOSE   696
                                                                                                                 DPCLOSE   697
                                        *         SAVE WORD COUNT AND SYMORD IN LAT                              DPCLOSE   698
                                        *         ** NEXT WORD MAY BE PLUGGED BY -ALA-.                          DPCLOSE   699
                                                                                                                 DPCLOSE   700
           315  20144                    ALA.P    LX1    36                                                      DPCLOSE   701
                     7121777775                   SX2    B1-2                                                    DPCLOSE   702
                               20221              LX2    18-1                                                    DPCLOSE   703
           316  12612                             BX6    X1+X2             6/0,18/WC,18/SYMORD,18/0              DPCLOSE   704
                     56667                        SA6    B6+B7             SAVE ADDRESS IN LAT                   DPCLOSE   705
                          66775                   SB7    B7+B5             ADVANCE LENGTH                        DPCLOSE   706
           317  0647000304 +                      LE     B7,B4,ALA1        IF WE DIDN T RUN OUT OF SPACE         DPCLOSE   707
                          0400000000 X            EQ     PH1MO             PHASE 1 MEMORY OVERFLOW               DPCLOSE   708
                                                                                                                 DPCLOSE   709
           320  74610                    ALA.E    SX6    A1                                                      DPCLOSE   710
                     5160000001 C                 SA6    ECSCOM            SET FLAG FOR ERROR MESSAGE            DPCLOSE   711
           321  0400000304 +                      EQ     ALA1                                                    DPCLOSE   712
                                                                                                                 DPCLOSE   713
                                        *         UPDATE BLOCK AND TABLE LENGTH, CHECK FOR LOCAL ECS VARIABLES   DPCLOSE   714
                                                                                                                 DPCLOSE   715
           322  5170000000 X             ALAX     SA7    DATA..            UPDATE BLOCK LENGTH                   DPCLOSE   716
                          76670                   SX6    B7                                                      DPCLOSE   717
                               74300              SX3    A0                FWA OF SYMBOL TABLE                   DPCLOSE   718
           323  5160000000 X                      SA6    L.LAT             SAVE LAT LENGTH                       DPCLOSE   719
                          5160000000 X            SA6    S.LAT                                                   DPCLOSE   720
                                                                                                                 DPCLOSE   721
           324  5140000001 C                      SA4    ECSCOM                                                  DPCLOSE   722
                          0304000265 +            ZR     X4,ALA            IF ALL ECS VARIABLES IN COMMON        DPCLOSE   723
           325  37234                             IX2    X3-X4             2*ORD                                 DPCLOSE   724
                     21201                        AX2    1                                                       DPCLOSE   725
                          0100000000 X            RJ     PSYM              PREPARE THE SYMBOL                    DPCLOSE   726
           326  6160000312                        SB6    E.LECS            LEVEL 3 VARIABLES NOT IN COMMON       DPCLOSE   727
                          6170000265 +            SB7    ALA                                                     DPCLOSE   728
           327  0400000000 X                      EQ     ERPRO                                                   DPCLOSE   729
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    21
         EQV - PROCESS EQUIVALENCE TABLES                                       CODE
  
                                        **        EQV - PROCESS EQUIVALENCE TABLES                               FEAT129    54
                                        *                                                                        DPCLOSE   733
                                        *         ENTRY:                                                         DPCLOSE   734
                                        *                1) EQV TABLE FORMATED AS E1., E2.                       FCC1289X  180
                                        *                                                                        DPCLOSE   739
                                        *                2) EVERY ENTRY IN THE EQV TBL HAS A ENTRY IN DIMTAB     DPCLOSE   740
                                        *                AND IF IT IS IN COMMON THEN SO DO ALL OF THE            DPCLOSE   741
                                        *                OTHER MEMBERS OF THE BLOCK.                             DPCLOSE   742
                                        *                                                                        DPCLOSE   743
                                        *         THE ALGORITHM USED IS THAT OF GALLER AND FISHER                DPCLOSE   744
                                        *         IN THE MAY 1964 CACM ( PGS 301 - 303 )                         DPCLOSE   745
                                        *                                                                        DPCLOSE   746
                                        *                                                                        FCC1289X  181
                                        *         NOTATIONS:                                                     FCC1289X  182
                                        *                EQV1,EQV2   WORD 1,2 OF EQV TABLE                       FCC1289X  183
                                        *                GF1,GF2     WORD 1,2 OF GALLER-FISHER TABLE             FCC1289X  184
                                        *                SYMA,SYMB   WORD A,B OF SYMBOL TABLE                    FCC1289X  185
                                        *                DIM1,DIM2   WORD 1,2 OF DIMENSION TABLE                 FCC1289X  186
                                        *                HI(I)       LENGTH ABOVE THE MEMBER                     FCC1289X  187
                                        *                LO(I)       LENGTH BELOW THE ROOT                       FCC1289X  188
                                        *                DIST(I)     SIGNED DISTANCE FROM ROOT TO MEMBER         FCC1289X  189
                                        *                P(I)        PARENT OF I IN THE TREE                     FCC1289X  190
                                        *                FWA         FWA OF AN EQUIVALENCE GROUP                 FCC1289X  191
                                        *                LWA         LWA OF AN EQUIVALENCE GROUP                 FCC1289X  192
                                        *                SPAN        LENGTH OF AN EQUIVALENCE GROUP              FCC1289X  193
                                        *                                                                        DPCLOSE   771
                                        *         THE G-F TABLE IS BUILT IN THE AREA OCCUPIED BY THE EQV TBL     DPCLOSE   772
                                        *         SINCE AN INSPECTION OF THE ALGORITHM SHOWS THAT IT MUST        DPCLOSE   773
                                        *         BE SMALLER THAN THE NUMBER OF ELEMENTS PROCESSED FROM THE      DPCLOSE   774
                                        *         EQV TBL.                                                       DPCLOSE   775
                                        *                                                                        DPCLOSE   776
                                                                                                                 FCC1289X  194
                                                                                                                 FCC1289X  195
                                  11 C   TEMPR    EQU    CBUF        TEMPORARIES                                 FCC1289X  196
                                  14 C   TD       EQU    TEMPR+3     SAVED VALUE OF T0/D0 (SCAN1)                FCC1289X  197
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    22
         EQV - PROCESS EQUIVALENCE TABLES                                       CODE
  
                                        *                                                                        FCC1946   102
                                        *        UNPACK AND PACK MACROS PARIALLY SIMULATE THE PACK AND UNPACK    FCC1946   103
                                        *        OPERATION CODES.   EXCEPTIONS: NO SIGN EXTENSION WHEN USING     FCC1946   104
                                        *        THE UNPACK MACRO. THE ENTIRE  EXPONENT FIELD IS USED STORE      FCC1946   105
                                        *        VALUES.                                                         FCC1946   106
                                        *                                                                        FCC1946   107
                                        *        UNPK    XN,BN,WXR,MR                                            FCC1946   108
                                        *        PACK    XN,BN,WXR,MR                                            FCC1946   109
                                        *                                                                        FCC1946   110
                                        *        XN - THE DESTINATION REGISTER AND MUST CONTAIN THE PACKED       FCC1946   111
                                        *             FIELD OR THE COEFICIENT FIELD                              FCC1946   112
                                        *        BN - THE EXPONENT FIELD , SELECTING B0 RESULTS IN THE           FCC1946   113
                                        *             ELIMINATION OF ALL INSTUCTIONS ASSOCIATED WITH THE         FCC1946   114
                                        *             BN AND WXR REGISTERS.                                      FCC1946   115
                                        *       WXR - SCRATCH REGISTER , IF BO IS SELECTED FOR THE B REGISTER    FCC1946   116
                                        *             THEN THIS REGISTER CAN BE SET TO VALUE SELECTED FOR        FCC1946   117
                                        *             MR REGISTER.                                               FCC1946   118
                                        *        MR - MASK REGISTER                                              FCC1946   119
                                        *                                                                        FCC1946   120
                                        *                                                                        FCC1946   121
                                         UNPK     MACRO  XN,BN,WXR,MR                                            FCC1946   122
                                                  M_MR   E1.GORL                                                 FCC2548    18
                                                  IFNE   BN,B0,1                                                 FCC1946   124
                                                  B_WXR  MR*XN                                                   FCC1946   125
                                                  B_XN   -MR*XN                                                  FCC1946   126
                                                  IFNE   BN,B0,2                                                 FCC1946   127
                                                  L_WXR  E1.GORL                                                 FCC2548    19
                                                  S_BN   WXR                                                     FCC1946   129
                                                  ENDM                                                           FCC1946   130
                                         PACK     MACRO  XN,BN,WXR,MR                                            FCC1946   131
                                                  IFNE   BN,B0,4                                                 FCC1946   132
                                                  M_MR   E1.SY2L                                                 FCC2548    20
                                                  S_WXR  BN                                                      FCC1946   134
                                                  B_WXR  -MR*WXR                                                 FCC1946   135
                                                  L_WXR  E1.SY2L                                                 FCC2548    21
                                                  M_MR   E1.GORL                                                 FCC2548    22
                                                  B_XN   -MR*XN                                                  FCC1946   138
                                                  IFNE   BN,B0,1                                                 FCC1946   139
                                                  B_XN   WXR+XN                                                  FCC1946   140
                                                  ENDM                                                           FCC1946   141
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    23
        EQV - PRESCAN                                                           CODE
  
                                        **        PRESCAN - REFORMAT EQV1,EQV2 AS G1., G2. .                     FCC1289X  199
                                        *                RA= ADDRESS RELATIVE TO BLOCK (0 IF LOCAL)              FCC1289X  200
                                                                                                                 FCC1289X  201
                                                                                                                 FCC1289X  202
           330  0400400330 +             EQV      SUBR               ENTRY/EXIT                                  FCC1289X  203
           331  5110000000 X                      SA1    L.EQV                                                   FCC1289X  204
                          5120000000 X            SA2    O.EQV                                                   FCC1289X  205
           332  0301000330 +                      ZR     X1,EQV      IF NO EQUIVALENCE RELATIONS                 FCC1289X  206
                          5130000012              SA3    SYM1                                                    FCC1289X  207
           333  66355                             SB3    B5+B5                                                   FCC1289X  208
                     63120                        SB1    X2          EQA= FWA(EQVTAB)                            FCC1289X  209
                          5140000000 X            SA4    O.DIM                                                   FCC1289X  210
           334  5203000000                        SA0    X3+                                                     FCC1289X  211
                          6264777775              SB6    X4-2                                                    FCC1289X  212
                                                                                                                 FCC1289X  213
                                        *         FORMAT EQV TABLE WORD 1.                                       FCC1289X  214
                                        *                (B3)= 2                                                 FCC1289X  215
                                        *                (B6)= O.DIM-2                                           FCC1289X  216
                                        *                (B1)= EQA                                               FCC1289X  217
                                        *                (A0)= SYM1                                              FCC1289X  218
                                                                                                                 FCC1289X  219
           335  56210                    EQV020   SA2    B1          EQV1I= EQVTAB(EQA)                          FCC1289X  220
                     43014                        MX0    L.DIMP                                                  FCC1289X  221
                          0332000372 +            MI     X2,EQV100   IF END OF EQV TABLE                         FCC1289X  222
           336  20065                             LX0    L.DIMP+P.DIMP                                           FCC1289X  223
                     43414                        MX4    E1.GORL-4                                               FCC2548    23
                          11142                   BX1    X4*X2                                                   FCC2548    24
                               15224              BX2    -X4*X2                                                  FCC2548    25
           337  20114                             LX1    E1.GORL-4                                               FCC2548    26
                     63210                        SB2    X1                                                      FCC2548    27
                          66113                   SB1    B1+B3       EQA= EQA+2                                  FCC1289X  225
                                                  LX2    -E1.SY2P                                                FCC1289X  226
                               63420              SB4    X2          STINDB= SY2[EQV1I]                          FCC1289AX  11
           340  43701                             MX7    1                                                       FCC1289AX  12
                     20243                        LX2    G1.SYMP-1   SYMI= (STINDB-1) / 2                        FCC1289X  228
                          43565                   MX5    -L.RB                                                   FCC1289X  229
                               55104              SA1    A0-B4       SYMAI= SYMTAB(STINDB)                       FCC1289AX  13
           341  55415                             SA4    A1-B5       SYMBI= SYMAI-1                              FCC1289AX  14
                     20155                        LX1    -1-P.COM                                                FCC1289AX  15
                          11771                   BX7    X7*X1       COMI= COM[EQV1I]                            FCC1289AX  16
                               20767              LX7    1+G1.COMP                                               FCC1289AX  17
           342  11304                             BX3    X0*X4                                                   FCC1289X  231
                     21350                        AX3    P.DIMP-1    DTIND= 2* DIMP[SYMBI]                       FCC1289X  232
                          20460                   LX4    -P.RB                                                   FCC1289X  234
                               15645              BX6    -X5*X4      RBI= RB[SYMBI]                              FCC1289X  235
           343  43100                             MX1    0           ASSUME DTIND MIGHT BE ZERO                  FCC2323     9
                     0303000345 +                 ZR     X3,EQV021   IF ERROR CAUSES ZERO DTIND                  FCC2323    10
                               53136              SA1    B6+X3       DIM1I = DIMTAB [DTIND]                      FCC2323    11
                                                  LX1    -D1.RAP                                                 FCC1289X  236
           344  73110                             SX1    X1          RAI= RA[DIM1I]                              FCC1289X  237
           345  12112                    EQV021   BX1    X1+X2                                                   FCC2323    12
                     20622                        LX6    G1.RBP                                                  FCC1289X  239
                          12661                   BX6    X6+X1                                                   FCC1289X  240
                               36667              IX6    X6+X7                                                   FCC1289AX  18
           346  54620                             SA6    A2          EQV1I= (COMI,SYMI,RBI,RAI) [G1.]            FCC1289AX  19
                                                                                                                 FCC1289X  242
                                        *         FORMAT EQV TABLE WORD 2.                                       FCC1289X  243
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    24
        EQV - PRESCAN                                                           CODE
  
                                                                                                                 FCC1289X  244
                     43070                        MX0    -L.TYP                                                  FCC1289X  245
                          54115                   SA1    A1+B5       DIM2I= DIM1I+1                              FCC1289X  246
                               54225              SA2    A2+B5       EQV2I= EQV1I+1                              FCC1289X  247
           347  20420                             LX4    P.RB-P.TYP                                              FCC1289X  248
                     15440                        BX4    -X0*X4                                                  FCC1289X  249
                          7274777774              SX7    X4-T.DBL                                                FCC1289X  250
           350  76350                             SX3    B5                                                      FCC1289X  251
                     21704                        AX7    L.TYP                                                   FCC1289X  252
                          15437                   BX4    -X7*X3      SDPF (= 0 IF SINGLE,= 1 IF DOUBLE)          FCC1289X  253
                               43003              MX0    D2.NDL                                                  FCC1289X  254
           351  63740                             SB7    X4                                                      FCC1289X  255
                                                  LX0    D2.NDL+D2.NDP                                           FCC1289X  256
                     11301                        BX3    X0*X1       NDI= ND[DIM2I]                              FCC1289X  257
                                                  IFNE   D2.NDL,E2.NSL,2                                         FCC1289X  258
                                                  MX0    E2.NSL                                                  FCC1289X  259
                                                  LX0    E2.NSL+E2.NSP                                           FCC1289X  260
                          11402                   BX4    X0*X2       NSI= NS[EQV2I]                              FCC1289X  261
                               37534              IX5    X3-X4                                                   FCC1289X  262
                                   0              ERRNZ  D2.NDP-E2.NSP                                           FCC1289X  263
           352  43022                             MX0    D2.WCL                                                  FCC1289X  264
                     20066                        LX0    D2.WCL+D2.WCP                                           FCC1289X  265
                          0335000746 +            MI     X5,EQ.E10   IF NDI  LT  NSI                             FCC1289X  266
           353  0313000357 +                      NZ     X3,EQV030   IF NDI  NE  0                               FCC1289X  267
                          76775                   SX7    B7+B5       PI(DIMS)= 1+SDPF                            FCC1289X  268
                               20744              LX7    D2.WCP                                                  FCC1289X  269
           354  54710                             SA7    A1          WC[DIM2I]= PI(DIMS)                         FCC1289X  270
                     20752                        LX7    Q2.PDP-D2.WCP                                           FCC1289X  271
                          43054                   PACK   X7,B2,X2,X0                                             FCC1946   143
                     54720                        SA7    A2          EQV2I= [Q2.]                                FCC1289X  273
                          0400000335 +            EQ     EQV020                                                  FCC1289X  274
                                                                                                                 FCC1289X  275
                                        *         CALCULATE SUBSCRIPT.                                           FCC1289X  276
                                        *                (X1)= DIM2I                                             FCC1289X  277
                                        *                (X2)= EQV2I                                             FCC1289X  278
                                                                                                                 FCC1289X  279
           357  11701                    EQV030   BX7    X0*X1       PI(DIMS)= WC[DIM2I]                         FCC1289X  280
                     20403                        LX4    -E2.NSP                                                 FCC1289X  281
                                                  LX2    -E2.SAP     IND= SA[EQV2]                               FCC1289X  282
                          7252777776              SX5    X2-1                                                    FCC1289X  283
           360  0304000751 +                      ZR     X4,EQ.E20   IF NSI  EQ  0                               FCC1289X  284
                          63440                   SB4    X4                                                      FCC1289X  285
                               21744              AX7    D2.WCP                                                  FCC1289X  286
           361  67445                             SB4    B4-B5       NSI= NSI-1                                  FCC1289X  287
                     0440000366 +                 ZR     B4,EQV040   IF NSI  EQ  0                               FCC1289X  288
                                                  LX1    -D2.SAP                                                 FCC1289X  289
                               73010              SX0    X1          II= SA[DIM2]                                FCC1289X  290
           362  20252                             LX2    E2.SAP-E2.SBP J= SB[EQV2]                               FCC1289X  291
                     7232777776                   SX3    X2-1                                                    FCC1289X  292
                               42403              IX4    X0*X3                                                   FCC1289X  293
           363  67445                             SB4    B4-B5       NSI= NSI-1                                  FCC1289X  294
                     36545                        IX5    X4+X5       IND= IND+II*(J-1)                           FCC1289X  295
                          0440000366 +            ZR     B4,EQV040   IF NSI  EQ  0                               FCC1289X  296
           364  20152                             LX1    D2.SAP-D2.SBP                                           FCC1289X  297
                     73110                        SX1    X1          JJ= SB[DIM2]                                FCC1289X  298
                          42001                   IX0    X0*X1                                                   FCC1289X  299
                               20252              LX2    E2.SBP-E2.SCP  K=SC[EQV2]                               FCC1289X  300
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    25
        EQV - PRESCAN                                                           CODE
  
           365  7222777776                        SX2    X2-1                                                    FCC1289X  301
                          42402                   IX4    X0*X2                                                   FCC1289X  302
                               36545              IX5    X4+X5       IND= IND+II*JJ*(K-1)                        FCC1289X  303
           366  22575                    EQV040   LX5    B7,X5       ADJUST FOR DOUBLE PRECISION                 FCC1289X  304
                     37457                        IX4    X5-X7                                                   FCC1289X  305
                                                  LX5    Q2.SUBP                                                 FCC1289X  306
                          20722                   LX7    Q2.PDP                                                  FCC1289X  307
                               12775              BX7    X7+X5                                                   FCC1289X  308
           367  0324000753 +                      PL     X4,EQ.E30   IF IND  GT  PI(DIMS)                        FCC1289X  309
                          43054                   PACK   X7,B2,X2,X0                                             FCC1946   144
                     54720                        SA7    A2          EQV2I= (GORI,PI(DIMS),IND) [Q2.]            FCC1289X  311
                          0400000335 +            EQ     EQV020                                                  FCC1289X  312
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    26
        EQV - SCAN1 - BUILD THE G-F TABLE                                       CODE
  
                                        **        SCAN1 - BUILD THE G-F TABLE.                                   FCC1289X  314
                                        *         FORMAT G-F TABLE ENTRIES AS G1., G2. .                         FCC1289X  315
                                        *         PASS 1 OF GALLER/FISHER EQUIVALENCE ALGORITHM.                 FCC1289X  316
                                                                                                                 FCC1289X  317
                                                                                                                 FCC1289X  318
           372  5110000000 X             EQV100   SA1    O.EQV                                                   FCC1289X  319
                          6110000000              SB1    0           L.GF= 0                                     FCC1289X  320
           373  6120000000                        SB2    0           EQIND= 0                                    FCC1289X  321
                          53010                   SA0    X1                                                      FCC1289X  322
                               66355              SB3    B5+B5                                                   FCC1289X  323
                                                                                                                 FCC1289X  324
                                        *                (A0)= O.EQV                                             FCC1289X  325
                                        *                (B1)= L.GF                                              FCC1289X  326
                                        *                (B2)= EQIND                                             FCC1289X  327
                                                                                                                 FCC1289X  328
           374  54102                    EQV105   SA1    A0+B2       EQV1I= EQVTAB(EQIND)                        FCC1289X  329
                     13555                        BX5    X5-X5       ERFLAG= 0                                   FCC1289X  330
                          0331000454 +            MI     X1,EQV200   IF END OF EQV TABLE                         FCC1289X  331
           375  43022                             MX0    G1.SYML                                                 FCC1289X  332
                     67703                        SB7    -B3         T= -2 */INDEX TO G-F TABLE                  FCC1289X  333
                          54215                   SA2    A1+B5       EQV2I= EQV1I+1                              FCC1289X  334
                               20066              LX0    G1.SYML+G1.SYMP                                         FCC1289X  335
           376  43320                             UNPK   X2,B6,X7,X3                                             FCC1946   145
                     66223                        SB2    B2+B3       EQIND= EQIND+2                              FCC1289X  337
                          11701                   BX7    X0*X1       SYMI= SYM[EQV1I]                            FCC1289X  338
                                                  LX2    -Q2.SUBP                                                FCC1289X  339
                               73620              SX6    X2          D= SUB[EQV2I]                               FCC1289X  340
                                                                                                                 FCC1289X  341
                                        *         SEARCH FOR MATCH OF SYMORD IN G-F TABLE PARTIALLY BUILT.       FCC1289X  342
                                                                                                                 FCC1289X  343
           400  66773                    EQV110   SB7    B7+B3       T= T+2                                      FCC1289X  344
                     54307                        SA3    A0+B7       GF1T= G-FTAB(T)                             FCC1289X  345
                          11403                   BX4    X0*X3       SYMT= SYM[GF1T]                             FCC1289X  346
                               13447              BX4    X4-X7                                                   FCC1289X  347
           401  0671000406 +                      GE     B7,B1,EQV130      IF T  GE  L.GF                        FCC1289X  348
                          0314000400 +            NZ     X4,EQV110   IF SYMI  NE  SYMT                           FCC1289X  349
                                                                                                                 FCC1289X  350
                                        *         CURRENT ELEMENT IS IN THE G-F TABLE. CHAIN BACK UNTIL          FCC1289X  351
                                        *         ITS ROOT IS FOUND, ADJUSTING D AS WE GO.                       FCC1289X  352
                                                                                                                 FCC1289X  353
           402  54435                    EQV120   SA4    A3+B5       GF2T= GF1T+1                                FCC1289X  354
                                                  LX3    -G1.RAP                                                 FCC1289X  355
                     43020                        UNPK   X4,B4,X1,X0                                             FCC1946   146
                          0474000412 +            EQ     B7,B4,EQV140      IF P(T)  EQ  T                        FCC1289X  357
           404  73330                             SX3    X3          RAT= RA[GF1T]                               FCC1289X  358
                     36636                        IX6    X3+X6       D= RAT + D                                  FCC1289X  359
                          54304                   SA3    A0+B4       GF1T= G-FTAB(P(T))                          FCC1289X  360
                               66740              SB7    B4          T= P(T)                                     FCC1289X  361
           405  0400000402 +                      EQ     EQV120                                                  FCC1289X  362
                                                                                                                 FCC1289X  363
                                        *         CURRENT ELEMENT IS NOT YET IN THE G-F TABLE, CREATE AN         FCC1289X  364
                                        *         ENTRY FOR IT.                                                  FCC1289X  365
                                        *                (B7)= T                                                 FCC1289X  366
                                                                                                                 FCC1289X  367
           406  10711                    EQV130   BX7    X1                                                      FCC1289X  368
                     54707                        SA7    A0+B7       GF1T= [G1.]                                 FCC1289X  369
                          20252                   LX2    Q2.SUBP-Q2.PDP                                          FCC1289X  370
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    27
        EQV - SCAN1 - BUILD THE G-F TABLE                                       CODE
  
                               73220              SX2    X2          HIT= PD[EQV2I], LOT= 0                      FCC1289X  371
           407  66113                             SB1    B1+B3       L.GF=L.GF+2                                 FCC1289X  372
                     20222                        LX2    G2.HIP                                                  FCC1289X  373
                          10722                   BX7    X2                                                      FCC1946   147
                               43054              PACK   X7,B7,X1,X0                                             FCC1946   148
                          54775                   SA7    A7+B5       GF2T= (T,HIT,LOT) [G2.]                     FCC1289X  375
                                                                                                                 FCC1289X  376
                                        *         CURRENT ELEMENT IS NOW IN THE G-F TABLE.                       FCC1289X  377
                                        *         IF IT IS THE FIRST MEMBER OF A GROUP, REMEMBER IT AND RETURN   FCC1289X  378
                                        *         TO PROCESS THE NEXT ONE.                                       FCC1289X  379
                                                                                                                 FCC1289X  380
           412  43030                    EQV140   MX0    -G1.ADRL                                                FCC1289X  381
                     0565000416 +                 NE     B6,B5,EQV150      IF NOT A NEW GROUP                    FCC1289X  382
                               43254              PACK   X6,B7,X1,X2 TP= T; DO= D                                FCC1946   149
                          5160000014 C            SA6    TD          TD= (12/TO, 48/DO)                          FCC1946   150
           415  0400000374 +                      EQ     EQV105                                                  FCC1289X  385
                                                                                                                 FCC1289X  386
                                        *         WHEN IT DOES NOT BEGIN A GROUP, LINK IT TO THE G-F TABLE.      FCC1289X  387
                                        *                (B7)= T                                                 FCC1289X  388
                                        *                (X6)= D                                                 FCC1289X  389
                                                                                                                 FCC1289X  390
           416  5120000014 C             EQV150   SA2    TD                                                      FCC1289X  391
                          43420                   UNPK   X2,B4,X3,X4                                             FCC1946   151
                               73220              SX2    X2                                                      FCC1946   152
           420  37426                             IX4    X2-X6       DIST= D0-D                                  FCC1289X  393
                                                  LX0    G1.ADRP                                                 FCC1289X  394
                     0747000425 +                 GT     B7,B4,EQV160      IF T  GT  T0                          FCC1289X  395
           421  0474000771 +                      EQ     B7,B4,EQ.E40     IF CURRENT ALREADY LINKED TO THIS ROOT FCC1289X  396
                                                                                                                 FCC1289X  397
                                        *         IF CURRENT OCCURS BEFORE ITS ROOT, SWITCH THEM SO TABLE ALWAYS FCC1289X  398
                                        *         LINK UPWARD.                                                   FCC1289X  399
                                                                                                                 FCC1289X  400
                          63640                   SB6    X4                                                      FCC1289X  401
                               77406              SX4    -B6         DIST= -DIST                                 FCC1289X  402
           422  76740                             SX7    B4          TEMP= T0                                    FCC1289X  403
                     66470                        SB4    B7          T0= T                                       FCC1289X  404
                          63770                   SB7    X7          T= TEMP                                     FCC1289X  405
                               43254              PACK   X6,B4,X3,X2                                             FCC1946   153
                          5160000014 C            SA6    TD          TD= (12/TO, 48/DO)                          FCC1946   154
                                                                                                                 FCC1289X  408
                                        *         BEFORE ADDING TO THE TREE, CHECK FOR CONSISTENCY AND ILLEGAL   FCC1289X  409
                                        *         EXTENSION OF COMMON BLOCK ORGIN.                               FCC1289X  410
                                                                                                                 FCC1289X  411
           425  54307                    EQV160   SA3    A0+B7       GF1T= G-FTAB(T)                             FCC1289X  412
                     54204                        SA2    A0+B4       GF1T0= G-FTAB(T0)                           FCC1289X  413
                          15130                   BX1    -X0*X3      ADRT= ADR[GF1T]                             FCC1289X  414
                               43752              MX7    -G1.RBL                                                 FCC1289X  415
           426  20330                             LX3    -G1.SYMP                                                FCC1289X  416
                     15620                        BX6    -X0*X2      ADRT0= ADR[GF1T0]                           FCC1289X  417
                          0311000430 +            NZ     X1,EQV170   IF ADRT  NE  0                              FCC1289X  418
           427  0316001000 +                      NZ     X6,EQ.E60   IF ADRT0  NE  0                             FCC1289X  419
                          0400000435 +            EQ     EQV190                                                  FCC1289X  420
                                                                                                                 FCC1289X  421
                                        *         CURRENT ELEMENT HAS AN ADDRESS, CHECK ITS ROOT.                FCC1289X  422
                                        *         IF ITS ROOT DOES NOT HAVE AN ADDRESS, SET RB(T0)= RB(T),       FCC1289X  423
                                        *         RA(T0)= RA(T)-DIST.                                            FCC1289X  424
                                        *                (X4)= DIST                                              FCC1289X  425
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    28
        EQV - SCAN1 - BUILD THE G-F TABLE                                       CODE
  
                                                                                                                 FCC1289X  426
           430  0316000774 +             EQV170   NZ     X6,EQ.E50   IF ADRT0  NE  0                             FCC1289X  427
                          20722                   LX7    G1.RBP                                                  FCC1289X  428
                               15617              BX6    -X7*X1      RBT= RB[GF1T]                               FCC1289X  429
                                                  LX1    -G1.RAP                                                 FCC1289X  430
           431  73110                             SX1    X1          RAT= RA[GF1T]                               FCC1289X  431
                     37714                        IX7    X1-X4       RAT0= RAT-DIST                              FCC1289X  432
                          12662                   BX6    X6+X2                                                   FCC1289X  433
           432  0337001003 +                      MI     X7,EQ.E70   IF RAT0  LT  0                              FCC1289X  434
                          5012000001              SA1    A2+1        TO                                          FCCA475    13
           433  73110                             SX1    X1                                                      FCCA475    14
                     37171                        IX1    X7-X1                                                   FCCA475    15
                          0331001003 +            MI     X1,EQ.E70   IF RA(TO) < 0                               FCCA475    16
                                                  LX7    G1.RAP                                                  FCC1289X  435
           434  12676                             BX6    X7+X6                                                   FCC1289X  436
                     54620                        SA6    A2          GF1T0= (RBT,RAT0) [G1.]                     FCC1289X  437
                                                                                                                 FCC1289X  438
                                        *         ADD ELEMENT TO PROPER TREE.                                    FCC1289X  439
                                        *                (A2,A3)= GF1T, GF1T0                                    FCC1289X  440
                                        *                (X4)= DIST                                              FCC1289X  441
                                        *                (B4)= T0                                                FCC1289X  442
                                                                                                                 FCC1289X  443
           435  54135                    EQV190   SA1    A3+B5       GF2T= GF1T+1                                FCC1289X  444
                     43020                        UNPK   X1,B0,X0,X0                                             FCC1946   155
                               43052              MX0    -G1.RAL                                                 FCC1946   156
           436  15640                             BX6    -X0*X4                                                  FCC1289X  447
                                   0              ERRNZ  18-G1.SYML                                              FCC1289AX  22
                     10711                        BX7    X1                                                      FCC1946   157
                          43054                   PACK   X7,B4,X2,X0                                             FCC1946   158
                     43001                        MX0    1                                                       FCC1946   159
                          73230                   SX2    X3          SYMT= SYM[GF1T]                             FCC1946   160
                                                  LX6    G1.RAP                                                  FCC1289X  452
                               20351              LX3    G1.SYMP-1-G1.COMP                                       FCC1289AX  23
           441  11303                             BX3    X0*X3       COMI= COM[GF1T]                             FCC1289AX  24
                     20244                        LX2    G1.SYMP                                                 FCC1289AX  25
                          36662                   IX6    X6+X2                                                   FCC1289AX  26
                               20367              LX3    1+G1.COMP                                               FCC1289AX  27
           442  12636                             BX6    X3+X6                                                   FCC1289X  455
                     55615                        SA6    A1-B5       GF1T= (COMI,SYMT,0,DIST) [G1.]              FCC1289AX  28
                          54710                   SA7    A1          GF2T= (T0,HILOT) [G2.]                      FCC1289X  457
                                                                                                                 FCC1289X  458
                                        *         ADJUST HI(T0), LO(T0).                                         FCC1289X  459
                                        *                HI(T0)= MAX (HI(T0), HI(T)+DIST)                        FCC1289X  460
                                        *                LO(T0)= MAX (LO(T0), LO(T)-DIST)                        FCC1289X  461
                                                                                                                 FCC1289X  462
                               54225              SA2    A2+B5       GF2T0= GF1T0+1                              FCC1289X  463
           443  43020                             UNPK   X2,B0,X0,X0                                             FCC1946   161
                                                  LX1    -G2.LOP                                                 FCC1289X  465
                          73010                   SX0    X1          LOT= LO[GF2T]                               FCC1289X  466
                               37004              IX0    X0-X4       LOD= LOT-DIST                               FCC1289X  467
                                                  LX2    -G2.LOP                                                 FCC1289X  468
           444  73320                             SX3    X2          LOT0= LO[GF2T0]                             FCC1289X  469
                     20152                        LX1    G2.LOP-G2.HIP                                           FCC1289X  470
                          37603                   MX6    X0+X3       MAXLO= MAX( LOD,LOT0 )                      FCC1289X  471
                               73110              SX1    X1          HIT= HI[GF2T]                               FCC1289X  472
           446  20252                             LX2    G2.LOP-G2.HIP                                           FCC1289X  473
                     36314                        IX3    X1+X4       HID= HIT+DIST                               FCC1289X  474
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    29
        EQV - SCAN1 - BUILD THE G-F TABLE                                       CODE
  
                                                  LX6    G2.LOP                                                  FCC1289X  475
                          73220                   SX2    X2          HIT0= HI[GF2T0]                             FCC1289X  476
                               43154              PACK   X6,B4,X7,X1                                             FCC1946   162
                          37732                   MX7    X3+X2       MAXHI= MAX (HID,HIT0 )                      FCC1289X  478
                               20722              LX7    G2.HIP                                                  FCC1289X  479
           452  12776                             BX7    X7+X6                                                   FCC1289X  480
                     5072000000                   SA7    A2+         GF2T0= (T0,MAXHI,MAXLO) [G2.]               FCC1289X  481
           453  0305000374 +                      ZR     X5,EQV105   IF ERFLAG  EQ  0                            FCC1289X  482
                          0400001006 +            EQ     EQ.E75                                                  FCC1289X  483
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    30
        EQV - SCAN2 - COMMON-EQUIVALENCE OVERLAP SEARCH                         CODE
  
                                        **        SCAN2 - COMMON -EQUIVALENCE OVERLAP SEARCH.                    FCC1289X  485
                                        *                                                                        FCC1289X  486
                                        *         FOR EACH EQUIVALENCE CLASS IN COMMON, EXTEND ITS RANGE TO      FCC1289X  487
                                        *         INCLUDE MEMBERS OF COMMON BLOCK WHICH IT OVERLAPS.             FCC1289X  488
                                        *         ADD ADDITIONAL ENTRIES TO G-F TABLE FOR THESE MEMBERS AND      FCC1289X  489
                                        *         UPDATE FWA AND LWA OF CLASS.                                   FCC1289X  490
                                        *                (B1)= LENGTH OF G-F TABLE                               FCC1289X  491
                                                                                                                 FCC1289X  492
           454  76610                    EQV200   SX6    B1                                                      FCC1289X  493
                     5160000000 X                 SA6    L.EQV                                                   FCC1289X  494
                               21601              AX6    1                                                       FCC1289X  495
           455  10566                             ALLOC  EOT,X6      ALLOCATE SPACES FOR EOT                     FCC1289X  496
           457  5110000000 X                      SA1    L.EQV                                                   FCC1289X  497
                          23651                   AX6    B5,X1                                                   FCC1289X  498
                               66355              SB3    B5+B5                                                   FCC1289X  499
           460  5160000000 X                      SA6    L.EOT                                                   FCC1289X  500
                                                                                                                 FCC1289X  501
                                        *         CREATE AN EOT ENTRY FOR EACH EQUIVALENCE CLASS, FORMAT AS EO.  FCC1289X  502
                                        *                FWA= RA(ROOT)-LO(ROOT)                                  FCC1289X  503
                                        *                LWA= RA(ROOT)+HI(ROOT)-1                                FCC1289X  504
                                                                                                                 FCC1289X  505
                          5110000000 X            SA1    O.EQV                                                   FCC1289X  506
           461  5150000000 X                      SA5    O.EOT                                                   FCC1289X  507
                          63610                   SB6    X1                                                      FCC1289X  508
                               66700              SB7    B0          EOIND= 0                                    FCC1289X  509
           462  5120000000 X                      SA2    L.EQV                                                   FCC1289X  510
                          67403                   SB4    -B3         EQIND= -2                                   FCC1289X  511
                               63220              SB2    X2          L.GF= L.EQV                                 FCC1289X  512
                                                                                                                 FCC1289X  513
           463  66443                    EQV220   SB4    B4+B3       EQIND= EQIND+2                              FCC1289X  514
                     0642000475 +                 GE     B4,B2,EQV230      IF EQIND  GE  L.GF                    FCC1289X  515
                               56164              SA1    B6+B4       GF1I= G-FTAB(EQIND)                         FCC1289X  516
           464  54215                             SA2    A1+B5       GF2I= GF1I+1                                FCC1289X  517
                                                  LX1    -G1.RAP                                                 FCC1289X  518
                     43420                        UNPK   X2,B1,X3,X4                                             FCC1946   163
                                                  LX2    -G2.LOP                                                 FCC1289X  520
                          73310                   SX3    X1          RAI= RA[GF1I]                               FCC1289X  521
                               73420              SX4    X2          LOI= LO[GF2I]                               FCC1289X  522
           466  0541000463 +                      NE     B4,B1,EQV220      IF P[GF2I]  NE  EQIND  (NOT ROOT)     FCC1289X  523
                          20152                   LX1    G1.RAP-G1.RBP                                           FCC1289X  524
                               37434              IX4    X3-X4       FWAI= RAI-LOI                               FCC1289X  525
           467  43052                             MX0    -EO.FWAL                                                FCC1289X  526
                     15440                        BX4    -X0*X4                                                  FCC1289X  527
                          20252                   LX2    G2.LOP-G2.HIP                                           FCC1289X  528
                               15610              BX6    -X0*X1      RBI= RB[GF1I]                               FCC1289X  529
                                   0              ERRNZ  G1.RBL-EO.FWAL                                          FCC1289X  530
           470  20442                             LX4    EO.FWAP                                                 FCC1289X  531
                     73220                        SX2    X2          HII= HI[GF2I]                               FCC1289X  532
                          0332001017 +            MI     X2,EQ.E80   IF HII  GT  377777B                         FCC1289X  533
           471  36332                             IX3    X3+X2                                                   FCC1289X  534
                     73330                        SX3    X3          LWAI= RAI+HII                               FCC1289X  535
                          0333001017 +            MI     X3,EQ.E80   IF LWAI  GT  377777B                        FCC1289X  536
                                                                                                                 FCC1289X  537
           472  7233777776               EQV225   SX3    X3-1        LWAI= LWAI-1                                FCC1289X  538
                          20664                   LX6    EO.RBP                                                  FCC1289X  539
                               12664              BX6    X6+X4                                                   FCC1289X  540
           473  76210                             SX2    B1          GFII= P[GF2I]                               FCC1289X  541
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    31
        EQV - SCAN2 - COMMON-EQUIVALENCE OVERLAP SEARCH                         CODE
  
                     20320                        LX3    EO.LWAP                                                 FCC1289X  542
                                                  LX2    EO.GFIP                                                 FCC1289X  543
                          12223                   BX2    X2+X3                                                   FCC1289X  544
                               36662              IX6    X6+X2                                                   FCC1289X  545
           474  53657                             SA6    X5+B7       EOT(EOIND)= (RBI,FWAI,LWAI,GFI) [EO.]       FCC1289X  546
                     66775                        SB7    B7+B5       EOIND= EOIND+1                              FCC1289X  547
                          0400000463 +            EQ     EQV220                                                  FCC1289X  548
                                                                                                                 FCC1289X  549
                                        *         SORT EOT IN ASCENDING ORDER.                                   FCC1289X  550
                                        *                (B7)= EOIND                                             FCC1289X  551
                                        *                (X5)= O.EOT                                             FCC1289X  552
                                                                                                                 FCC1289X  553
           475  43673                    EQV230   MX6    -1                                                      FCC1289X  554
                     54665                        SA6    A6+B5       ADD TERMINATOR WORD TO EOT                  FCC1289X  555
                          76170                   SX1    B7          LEN =EOIND                                  FCC1289X  556
                               63750              SB7    X5          FWA= O.EOT                                  FCC1289X  557
           476  0100001045 +                      RJ     SST                                                     FCC1289X  558
           477  77737                             SX7    B3-B7                                                   FCC1289X  559
                     57175                        SA1    B7-B5       EOA= FWA-1 OF EOT                           FCC1289X  560
                          7277000001              SX7    X7+1                                                    FCC1289X  561
           500  5170000000 X                      SA7    L.EOT       NEW L.EOT= LWA+1(EOT)-FWA(EOT)+1            FCC1289X  562
                                                                                                                 FCC1289X  563
                                        **        BEGIN COMMON EQUIVALENCE OVERLAP SEARCH.                       FCC1289X  564
                                        *         FOR EACH EQUIVALENCE CLASS IN COMMON, SEARCH ITS COMMON        FCC1289X  565
                                        *         BLOCK, ADDING MEMBERS TO THE CLASS WHEN THEY OVERLAP WITH      FCC1289X  566
                                        *         THE SPAN OF THE CLASS.                                         FCC1289X  567
                                        *                (A1)= EOA                                               FCC1289X  568
                                                                                                                 FCC1289X  569
                                                                                                                 FCC1289X  570
           501  54115                    EQV240   SA1    A1+B5       EOA= EOA+1, EOI= EOT(EOA)                   FCC1289X  571
                     0331000562 +                 MI     X1,EQV300   IF END OF EOT                               FCC1289X  572
                               43064              MX0    -EO.RBL                                                 FCC1289X  573
           502  20110                             LX1    -EO.RBP                                                 FCC1289X  574
                     15710                        BX7    -X0*X1      RBI= RB[EOI]                                FCC1289X  575
                          5227777776 X            SA2    ORGTAB-1+X7 IND= PNT[ORGTAB(RBI)]                       FCC1289X  576
           503  0307000501 +                      ZR     X7,EQV240   IF RBI  EQ  0                               FCC1289X  577
                          5140000000 X            SA4    O.COM                                                   FCC1289X  578
           504  36324                             IX3    X2+X4                                                   FCC1289X  579
                     5223000000                   SA2    X3+         CHI= COMTAB(IND)                            FCC1289X  580
                               20252              LX2    -CH.NMP                                                 FCC1289X  581
                                                                                                                 FCC1289X  582
           505  63720                    EQV245   SB7    X2                                                      FCC1289X  583
                     0475000553 +                 EQ     B7,B5,EQV290      IF NM[CHI]  EQ  1                     FCC1289X  584
                               66450              SB4    B5          J= 1      */COMMON MEMBER COUNT             FCC1289X  585
                                                                                                                 FCC1289X  586
                                        *         COMMON MEMBER LOOP.                                            FCC1289X  587
                                        *                (B4)= J                                                 FCC1289X  588
                                        *                (B7)= NM[CHI]                                           FCC1289X  589
                                        *                (A1)= EOI                                               FCC1289X  590
                                        *                (A2)= CHI                                               FCC1289X  591
                                                                                                                 FCC1289X  592
           506  0774000553 +             EQV255   GT     B4,B7,EQV290      IF J  GT  NM[CHI]                     FCC1289X  593
                          54110                   SA1    A1          EOI                                         FCC1289X  594
                               54424              SA4    A2+B4       CMI= COMTAB(IND+J)                          FCC1289X  595
           507  43052                             MX0    -CM.WCL                                                 FCC1289X  596
                     20132                        LX1    -EO.FWAP                                                FCC1289X  597
                          66445                   SB4    B4+B5       J= J+1                                      FCC1289X  598
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    32
        EQV - SCAN2 - COMMON-EQUIVALENCE OVERLAP SEARCH                         CODE
  
                               63110              SB1    X1          FWAC= FWA[EOI]                              FCC1289X  599
           510  20430                             LX4    -CM.WCP                                                 FCC1289X  600
                     15340                        BX3    -X0*X4      LENM= WC[CMI]                               FCC1289X  601
                          20122                   LX1    EO.FWAP-EO.LWAP                                         FCC1289X  602
                               20422              LX4    CM.WCP-CM.SYMP                                          FCC1289X  603
           511  73510                             SX5    X1          LWAC= LWA[EOI]                              FCC1289X  604
                     73240                        SX2    X4          SYMJ= SYM[CMI]                              FCC1289X  605
                          20422                   LX4    CM.SYMP-CM.RAP                                          FCC1289X  606
                               73440              SX4    X4          FWAM= RA[CMI]                               FCC1289X  607
           512  36334                             IX3    X3+X4                                                   FCC1289X  608
                     67101                        SB1    -B1         FWAC= -FWAC                                 FCC1289X  609
                          7233777776              SX3    X3-1        LWAM= FWAM +LENM-1                          FCC1289X  610
           513  73731                             SX7    X3+B1                                                   FCC1289X  611
                     37654                        IX6    X5-X4                                                   FCC1289X  612
                          0337000506 +            MI     X7,EQV255   IF LWAM  LT  FWAC                           FCC1289X  613
           514  77701                             SX7    -B1                                                     FCC1289X  614
                     0336000506 +                 MI     X6,EQV255   IF LWAC  LT  FWAM                           FCC1289X  615
                               37647              MX6    X4-X7       FWAC= MIN(FWAM, FWAC)                       FCC1289X  616
           516  37735                             MX7    X3+X5       LWAC= MAX(LWAM, LWAC)                       FCC1289X  617
                                                                                                                 FCC1289X  618
                                        *         UPDATE FWA, LWA OF CLASS.                                      FCC1289X  619
                                        *                (X7)= LWAC                                              FCC1289X  620
                                        *                (X6)= FWAC                                              FCC1289X  621
                                                                                                                 FCC1289X  622
                     11101                        BX1    X0*X1                                                   FCC1289X  623
                                   0              ERRNZ  CM.WCL-EO.LWAL                                          FCC1289X  624
                          0326000521 +            PL     X6,EQV273   IF FWA OF CLASS NOT NEGATIVE                FCCA455     7
           520  15660                             BX6    -X0*X6                                                  FCCA475    17
           521  36117                    EQV273   IX1    X1+X7                                                   FCCA455     9
                     20152                        LX1    EO.LWAP-EO.FWAP                                         FCC1289X  626
                          11101                   BX1    X0*X1                                                   FCC1289X  627
                                   0              ERRNZ  CM.WCL-EO.FWAL                                          FCC1289X  628
                               36616              IX6    X1+X6                                                   FCC1289X  629
           522  20642                             LX6    EO.FWAP                                                 FCC1289X  630
                     54610                        SA6    A1          (FWA,LWA) [EOI]= (FWAC,LWAC) [EO.]          FCC1289X  631
                                                                                                                 FCC1289X  632
                                        *         CHECK IF THIS COMMON ELEMENT IS ALREADY IN THE G-F TABLE.      FCC1289X  633
                                        *                (X2)= SYMJ                                              FCC1289X  634
                                        *                (B6)= O.EQV                                             FCC1289X  635
                                                                                                                 FCC1289X  636
                          5150000000 X            SA5    L.EQV                                                   FCC1289X  637
           523  43354                             MX3    -EO.GFIL                                                FCC1289X  638
                     20244                        LX2    G1.SYMP                                                 FCC1289X  639
                          63250                   SB2    X5          LEQ= L.EQV                                  FCC1289X  640
                               43722              MX7    G1.SYML                                                 FCC1289X  641
           524  66355                             SB3    B5+B5                                                   FCC1289X  642
                     20766                        LX7    G1.SYML+G1.SYMP                                         FCC1289X  643
                                                                                                                 FCC1289X  644
           525  67223                    EQV275   SB2    B2-B3       LEQ= LEQ-2                                  FCC1289X  645
                     0720000530 +                 MI     B2,EQV280   IF END OF G-F TABLE                         FCC1289X  646
                               56562              SA5    B6+B2       GF1L= G-FTAB(LEQ]                           FCC1289X  647
           526  11575                             BX5    X7*X5                                                   FCC1289X  648
                     37552                        IX5    X5-X2                                                   FCC1289X  649
                          0305000506 +            ZR     X5,EQV255   IF SYMJ  EQ  SYML                           FCC1289X  650
           527  0400000525 +                      EQ     EQV275                                                  FCC1289X  651
                                                                                                                 FCC1289X  652
                                        *         NO MATCH IN G-F TABLE, CREATE AN ENTRY FOR IT.                 FCC1289X  653
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    33
        EQV - SCAN2 - COMMON-EQUIVALENCE OVERLAP SEARCH                         CODE
  
                                        *                (X6)= EOI                                               FCC1289X  654
                                        *                (A4)= CMI                                               FCC1289X  655
                                                                                                                 FCC1289X  656
           530  54440                    EQV280   SA4    A4          CMI                                         FCC1289X  657
                                                  LX6    -EO.GFIP                                                FCC1289X  658
                     15763                        BX7    -X3*X6      GFIR= GFI[EOI]                              FCC1289X  659
                          53576                   SA5    B6+X7       GF1R= G-FTAB(GFIR)                          FCC1289X  660
                                                  LX4    -G1.RAP                                                 FCC1289X  661
                                                  LX5    -G1.RAP                                                 FCC1289X  662
                               73440              SX4    X4          RAJ= RA[CMI]                                FCC1289X  663
           531  73550                             SX5    X5          RAROOT= RA[GF1R]                            FCC1289X  664
                     43301                        MX3    1                                                       FCC1289AX  29
                          20367                   LX3    1+G1.COMP                                               FCC1289AX  30
                               37445              IX4    X4-X5       RAJ= RAJ-RAROOT                             FCC1289X  665
           532  63270                             SB2    X7                                                      FCC1289X  666
                     15440                        BX4    -X0*X4                                                  FCC1289X  667
                                   0              ERRNZ  G1.RAL-CM.WCL                                           FCC1289X  668
                                                  LX4    G1.RAP                                                  FCC1289X  669
                          43700                   MX7    0                                                       FCC1289X  670
                               12624              BX6    X2+X4                                                   FCC1289X  671
           533  36663                             IX6    X6+X3                                                   FCC1289AX  31
                     43454                        PACK   X7,B2,X3,X4                                             FCC1946   164
           535  5160000011 C                      SA6    TEMPR       TEMPR(0)= (COM,SYMJ,0,RAJ) [G1.]            FCC1289AX  32
                          5076000001              SA7    A6+1        TEMPR(1)= (GFIR,0) [G2.]                    FCC1289X  674
                                                                                                                 FCC1289X  675
                                        *         BEFORE WE CALL ALLOC, STORE NECESSARY REGISTERS.               FCC1289X  676
                                                                                                                 FCC1289X  677
           536  5130000000 X                      SA3    O.EOT       SAVE (EOI-O.EOT, CHI-O.COM, J)              FCC1289X  678
                          5140000000 X            SA4    O.COM                                                   FCC1289X  679
           537  76740                             SX7    B4                                                      FCC1289X  680
                     63240                        SB2    X4                                                      FCC1289X  681
                          75622                   SX6    A2-B2                                                   FCC1289X  682
                               63130              SB1    X3                                                      FCC1289X  683
           540  5170000013 C                      SA7    TEMPR+2     TEMPR(2)= J                                 FCC1289X  684
                          54675                   SA6    A7+B5       TEMPR(3)= CHI-O.COM                         FCC1289X  685
                               75711              SX7    A1-B1                                                   FCC1289X  686
           541  5076000001                        SA7    A6+1        TEMPR(4)= EOI-O.EOT                         FCC1289X  687
                          7150000002              SX5    2                                                       FCC2186     8
           542  5100000000 X                      ALLOC  EQV,X5      ALLOCATE FOR GF1,GF2                        FCC2186     9
                                                                                                                 FCC1289X  689
                                        *         RESTORE REGISTERS AND SET NEW L.EQV.                           FCC1289X  690
                                                                                                                 FCC1289X  691
           543  5110000000 X                      SA1    L.EQV                                                   FCC1289X  692
                          5120000011 C            SA2    TEMPR       NEW GF1= TEMPR(0)                           FCC1289X  693
           544  54325                             SA3    A2+B5       NEW GF2= TMEPR(1)                           FCC1289X  694
                     5140000000 X                 SA4    O.EQV                                                   FCC1289X  695
                               10622              BX6    X2                                                      FCC1289X  696
           545  10733                             BX7    X3                                                      FCC1289X  697
                     36514                        IX5    X1+X4       NEWIND= O.EQV+L.EQV                         FCC1289X  698
                          63640                   SB6    X4                                                      FCC1289X  699
                               53650              SA6    X5          GF1(NEWIND)= TEMPR(0)                       FCC1289X  700
           546  53755                             SA7    X5+B5       GF2(NEWIND)= TEMPR(1)                       FCC1289X  701
                     54335                        SA3    A3+B5       RESTORE J,CHI,EOI                           FCC1289X  702
                          7261000002              SX6    X1+2                                                    FCC1289X  703
           547  54235                             SA2    A3+B5                                                   FCC1289X  704
                     54425                        SA4    A2+B5                                                   FCC1289X  705
                          63430                   SB4    X3          J= TEMPR(2)                                 FCC1289X  706
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    34
        EQV - SCAN2 - COMMON-EQUIVALENCE OVERLAP SEARCH                         CODE
  
                               54610              SA6    A1          NEW L.EQV= L.EQV+2                          FCC1289X  707
           550  5150000000 X                      SA5    O.EOT                                                   FCC1289X  708
                          5130000000 X            SA3    O.COM                                                   FCC1289X  709
           551  36145                             IX1    X4+X5       EOI= TEMPR(4)+ O.EOT                        FCC1289X  710
                     36223                        IX2    X2+X3       CHI= TMPER(3)+ O.COM                        FCC1289X  711
                          53110                   SA1    X1                                                      FCC1289X  712
                               53220              SA2    X2                                                      FCC1289X  713
           552  20252                             LX2    -CH.NMP                                                 FCC1289X  714
                     63720                        SB7    X2                                                      FCC1289X  715
                          0400000506 +            EQ     EQV255                                                  FCC1289X  716
                                                                                                                 FCC1289X  717
                                        *         FINISHED WITH THIS BLOCK APPEARENCE, UPDATE BLOCK LENGTH       FCC1289X  718
                                        *         IF LWAC+1 .GT. BLOCK LENGTH.                                   FCC1289X  719
                                        *                (A2)= CHI                                               FCC1289X  720
                                        *                (A1)= EOI                                               FCC1289X  721
                                                                                                                 FCC1289X  722
           553  54220                    EQV290   SA2    A2                                                      FCC1289X  723
                     54110                        SA1    A1                                                      FCC1289X  724
                                                  LX2    -CH.LNKP                                                FCC1289X  725
                          6222000000              SB2    X2+         LINK= LNK[CHI]                              FCC1289X  726
           554  20154                             LX1    -EO.LWAP                                                FCC1289X  727
                     20230                        LX2    CH.LNKP-CH.LENP                                         FCC1289X  728
                          7211000001              SX1    X1+1        LWAI= LWA[EOI]+1                            FCC1289X  729
           555  43653                             MX6    -17                                                     FCC2009     5
                     15326                        BX3    -X6*X2      BLKLEN=LEN[CHI]                             FCC2009     6
                          37713                   IX7    X1-X3                                                   FCC1289X  731
           556  0337000560 +                      MI     X7,EQV295   IF LWAI  LT  BLKLEN                         FCC1289X  732
                          36772                   IX7    X7+X2                                                   FCC1289X  733
                               20744              LX7    CH.LENP                                                 FCC1289X  734
           557  5072000000                        SA7    A2+         LEN[CHI]= LWAI                              FCC1289X  735
           560  0420000501 +             EQV295   ZR     B2,EQV240   IF LINK  EQ  0                              FCC1289X  736
                          54222                   SA2    A2+B2       CHI= COMTAB(IND+LINK)                       FCC1289X  737
                               20252              LX2    -CH.NMP                                                 FCC1289X  738
           561  0400000505 +                      EQ     EQV245                                                  FCC1289X  739
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    35
        EQV - SCAN3 - EQUIVALENCE CLASS OVERLAP SEARCH                          CODE
  
                                        **        SCAN3 - EQUIVALENCE CLASS OVERLAP SEARCH.                      FCC1289X  741
                                        *         ENTRY: EOT FORMATED AS EO.                                     FCC1289X  742
                                        *         IF CLASS(N) AND CLASS(N+1) OF THE SAME COMMON BLOCK OVERLAP    FCC1289X  743
                                        *         WITH EACH OTHER, MERGE THESE TWO CLASSES.                      FCC1289X  744
                                        *                (B6)= O.EQV                                             FCC1289X  745
                                                                                                                 FCC1289X  746
                                                                                                                 FCC1289X  747
           562  5110000000 X             EQV300   SA1    O.EOT                                                   FCC1289X  748
                          5120000000 X            SA2    L.EOT                                                   FCC1289X  749
           563  63710                             SB7    X1                                                      FCC1289X  750
                     63410                        SB4    X1          N= FWA OF EOT                               FCC1289X  751
                          7222777774              SX2    X2-3                                                    FCC1289X  752
           564  6120000000                        SB2    0           I= 0  */INDEX TO EOT                        FCC1289X  753
                          0332000614 +            MI     X2,EQV400   IF L.EOT  LT  3                             FCC1289X  754
                                                                                                                 FCC1289X  755
                                        *         OVERLAP SEARCH BEGINS.                                         FCC1289X  756
                                                                                                                 FCC1289X  757
           565  56140                    EQV310   SA1    B4          EOTN= EOT(N)                                FCC1289X  758
                     43054                        MX0    -EO.GFIL                                                FCC1289X  759
                          0331000610 +            MI     X1,EQV350   IF END OF EOT TABLE                         FCC1289X  760
           566  43610                             MX6    EO.RBL                                                  FCC1289X  761
                                                  LX6    EO.RBL+EO.RBP                                           FCC1289X  762
                     54215                        SA2    A1+B5       EOTN1= EOT(N+1)                             FCC1289X  763
                          11761                   BX7    X6*X1                                                   FCC1289X  764
                               11662              BX6    X6*X2                                                   FCC1289X  765
           567  66445                             SB4    B4+B5       N= N+1                                      FCC1289X  766
                     0307000565 +                 ZR     X7,EQV310   IF RB[EOTN]  EQ  0                          FCC1289X  767
                               37776              IX7    X7-X6                                                   FCC1289X  768
                                                  LX2    -EO.GFIP                                                FCC1289X  769
           570  0317000565 +                      NZ     X7,EQV310   IF RB[EOTN]  NE  RB[EOTN1]                  FCC1289X  770
                                                                                                                 FCC1289X  771
                                        *         SAME RB, CHECK FOR OVERLAP.                                    FCC1289X  772
                                                                                                                 FCC1289X  773
                          15420                   BX4    -X0*X2      GFINSR= GFI[EOTN1]                          FCC1289X  774
                               20254              LX2    EO.GFIP-EO.LWAP                                         FCC1289X  775
           571  20154                             LX1    -EO.LWAP                                                FCC1289X  776
                     73510                        SX5    X1          LWAN= LWA[EOTN]                             FCC1289X  777
                          73620                   SX6    X2          LWAN1= LWA[EOTN1]                           FCC1289X  778
                               20252              LX2    EO.LWAP-EO.FWAP                                         FCC1289X  779
           572  73220                             SX2    X2          FWAN1= FWA[EOTN1]                           FCC1289X  780
                     37752                        IX7    X5-X2                                                   FCC1289X  781
                          0337000565 +            MI     X7,EQV310   IF LWAN  LT  FWAN1                          FCC1289X  782
                                                                                                                 FCC1289X  783
                                        *         THERE IS OVERLAP. JOIN TWO CLASSES, UPDATING LWA AS NECESSARY. FCC1289X  784
                                        *         COMPARE G-F INDEX OF EACH ROOT, MAKE THE SMALLER ONE TO BE THE FCC1289X  785
                                        *         SURVIVING ROOT.                                                FCC1289X  786
                                        *                (X3)= GFINSR, GFI OF NON-SURVIVING ROOT                 FCC1289X  787
                                                                                                                 FCC1289X  788
           573  20120                             LX1    EO.LWAP-EO.GFIP                                         FCC1289X  789
                     37256                        MX2    X5+X6       LWAN= MAX(LWAN,LWAN1)                       FCC1289X  790
                          15310                   BX3    -X0*X1      GFISR= GFI[EOTN]                            FCC1289X  791
                               11601              BX6    X0*X1                                                   FCC1289X  792
           575  37734                             IX7    X3-X4                                                   FCC1289X  793
                     43052                        MX0    -EO.LWAL                                                FCC2138     6
                          0337000577 +            MI     X7,EQV330   IF GFISR  LT  GFINSR                        FCC1289X  794
           576  10733                             BX7    X3          TEMP= GFISR                                 FCC1289X  796
                     73340                        SX3    X4          GFISR= GFINSR                               FCC1289X  797
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    36
        EQV - SCAN3 - EQUIVALENCE CLASS OVERLAP SEARCH                          CODE
  
                          7247000000              SX4    X7+         GFINSR= TEMP                                FCC1289X  798
           577  12663                    EQV330   BX6    X6+X3                                                   FCC1289X  799
                     20654                        LX6    EO.GFIP-EO.LWAP                                         FCC1289X  800
                          11606                   BX6    X0*X6                                                   FCC1289X  801
                               63130              SB1    X3          PSR= GFISR                                  FCC1289X  802
           600  36662                             IX6    X6+X2                                                   FCC1289X  803
                     13777                        BX7    X7-X7                                                   FCC1289X  804
                          53336                   SA3    B6+X3       GF1(GFISR)                                  FCC1289X  805
                               20620              LX6    EO.LWAP                                                 FCC1289X  806
           601  54620                             SA6    A2          EOTN1= (RBN,FWAN,LWAN,GFISR) [EO.]          FCC1289X  807
                     54710                        SA7    A1          EOTN= 0                                     FCC1289X  808
                                                                                                                 FCC1289X  809
                                        *         UPDATE G-F ENTRY OF NON-SURVIVING ROOT.                        FCC1289X  810
                                        *         ADJUST ITS RA AND MAKE IT POINT TO THE SURVIVING ROOT.         FCC1289X  811
                                                                                                                 FCC1289X  812
                                                  LX3    -G1.RAP                                                 FCC1289X  813
                          53446                   SA4    B6+X4       GF1(GFINSR)                                 FCC1289X  814
                               73330              SX3    X3          RASR= RA[GF1(GFISR)]                        FCC1289X  815
                                                  LX4    -G1.RAP                                                 FCC1289X  816
           602  73540                             SX5    X4          RANSR= RA[GF1(GFINSR)]                      FCC1289X  817
                                   0              ERRNZ  EO.LWAL-G1.RAL                                          FCC1289X  818
                     37753                        IX7    X5-X3       RANSR= RANSR-RASR                           FCC1289X  819
                          15770                   BX7    -X0*X7                                                  FCC1289X  820
                               54545              SA5    A4+B5       GF2(GFINSR)                                 FCC1289X  821
           603  43120                             UNPK   X5,B0,X1,X1                                             FCC1946   165
                          11404                   BX4    X0*X4                                                   FCC1289X  823
                               10655              BX6    X5                                                      FCC1946   166
           604  43054                             PACK   X6,B1,X1,X0                                             FCC1946   167
                               12747              BX7    X4+X7                                                   FCC1289X  825
                                                  LX7    G1.RAP                                                  FCC1289X  826
           606  54650                             SA6    A5          P[GF2(GFINSR)]= PSR[G2.]                    FCC1289X  827
                     5074000000                   SA7    A4+         RA[GF1(GFINSR)]= RANSR[G1.]                 FCC1289X  828
           607  0400000565 +                      EQ     EQV310                                                  FCC1289X  829
                                                                                                                 FCC1289X  830
                                        **        PUT EOT INDEX INTO GF2 OF EACH CLASS ROOT.                     FCC1289X  831
                                        *         EOT INDEX UNIQUELY IDENTIFIES A CLASS.                         FCC1289X  832
                                        *                (B6)= O.EQV                                             FCC1289X  833
                                        *                (B7)= O.EOT                                             FCC1289X  834
                                        *                (B2)= I (INDEX TO EOT)                                  FCC1289X  835
                                                                                                                 FCC1289X  836
                                                                                                                 FCC1289X  837
           610  56172                    EQV350   SA1    B7+B2       EOTI= EOT(I)                                FCC1289X  838
                     66225                        SB2    B2+B5       I= I+1                                      FCC1289X  839
                          0331000614 +            MI     X1,EQV400   IF END OF EOT TABLE                         FCC1289X  840
           611  0301000610 +                      ZR     X1,EQV350   IF EOTI  EQ  0                              FCC1289X  841
                                                  LX1    -EO.GFIP                                                FCC1289X  842
                          77725                   SX7    B2-B5       EOTIND= I-1                                 FCC1289X  843
                               15410              BX4    -X0*X1      GFII= GFI[EOTI]                             FCC1289X  844
           612  20744                             LX7    F2.EOIP                                                 FCC1289X  845
                     73445                        SX4    X4+B5       GFII= GFII+1                                FCC1289X  846
                          53246                   SA2    B6+X4       GF2(GFII)                                   FCC1289X  847
                               12772              BX7    X7+X2                                                   FCC1289X  848
           613  5072000000                        SA7    A2+         EOI[GF2(GFII)]= EOTIND                      FCC1289X  849
                          0400000610 +            EQ     EQV350                                                  FCC1289X  850
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    37
        EQV - SCAN4 - G-F ADDRESS ASSIGNMENT                                    CODE
  
                                        **        SCAN4 - GALLER / FISHER ADDRESS ASSIGNMENT.                    FCC1289X  852
                                        *                                                                        FCC1289X  853
                                        *         ADDRESS ASSIGNMENT OF LOCAL VARIABLES IS DONE RELATIVE TO      FCC1289X  854
                                        *         THE CLASS ROOT.  IN SCAN5, THESE WILL BE RELOCATED TO THE      FCC1289X  855
                                        *         DATA.. BLOCK.                                                  FCC1289X  856
                                        *         VARIABLES IN COMMON ARE ASSIGNED ADDRESSES RELATIVE TO THEIR   FCC1289X  857
                                        *         RESPECTIVE BLOCKS.                                             FCC1289X  858
                                        *         RB AND EOT INDEX OF THE ROOT ARE INHERITED BY THE MEMBERS.     FCC1289X  859
                                        *         BIAS OF EACH VARIABLE IS COMPUTED AS ITS RA - FWA OF THE       FCC1289X  860
                                        *         CLASS.                                                         FCC1289X  861
                                        *                (B7)= O.EOT                                             FCC1289X  862
                                        *                (B6)= O.EQV                                             FCC1289X  863
                                                                                                                 FCC1289X  864
           614  5110000000 X             EQV400   SA1    L.EQV                                                   FCC1289X  865
                          66355                   SB3    B5+B5                                                   FCC1289X  866
                               56060              SA0    B6                                                      FCC1289X  867
           615  63110                             SB1    X1          L.GF= L.EQV                                 FCC1289X  868
                     67403                        SB4    -B3         I= -2     */INDEX TO  G-F TABLE             FCC1289X  869
                          6120000000              SB2    0           N.LR= 0   */NO. LOCAL ROOTS                 FCC1289X  870
                                                                                                                 FCC1289X  871
           616  66443                    EQV410   SB4    B4+B3       I= I+2                                      FCC1289X  872
                     0641000635 +                 GE     B4,B1,EQV500      IF I  GE  L.GF                        FCC1289X  873
                               54104              SA1    A0+B4       GF1I= G-FTAB(I)                             FCC1289X  874
           617  54215                             SA2    A1+B5       GF2I= G-FTAB(I+1)                           FCC1289X  875
                     43052                        MX0    -G1.RAL                                                 FCC1289X  876
                                                  LX1    -G1.RAP                                                 FCC1289X  877
                          43720                   UNPK   X2,B6,X3,X7   PI=P[GF2I]                                FCC1946   168
                               73310              SX3    X1          RAI= RA[GF1I]                               FCC1289X  879
           621  0546000627 +                      NE     B4,B6,EQV420      IF I  NE  PI                          FCC1289X  880
                                                                                                                 FCC1289X  881
                                        *         CLASS ROOT.                                                    FCC1289X  882
                                        *         COMPUTE BIAS = RA-FWA, FORMAT GF2 AS F2. .                     FCC1289X  883
                                        *         UPDATE N.LR IF IT IS LOCAL.                                    FCC1289X  884
                                                                                                                 FCC1289X  885
                          43754                   MX7    -F2.EOIL                                                FCC1289X  886
                               20230              LX2    -F2.EOIP                                                FCC1289X  887
           622  15627                             BX6    -X7*X2      EOTIND= EOI[GF2I]                           FCC1289X  888
                     20152                        LX1    G1.RAP-G1.RBP                                           FCC1289X  889
                          53567                   SA5    B7+X6       EOTI= EOT(EOTIND)                           FCC1289X  890
                               20532              LX5    -EO.FWAP                                                FCC1289X  891
                                   0              ERRNZ  EO.FWAL-G1.RAL                                          FCC1289X  892
           623  15550                             BX5    -X0*X5      FWAI= FWA[EOTI]                             FCC1289X  893
                     20644                        LX6    F2.EOIP                                                 FCC1289X  894
                          73450                   SX4    X5          SIGN EXTEND FWAI                            FCC1289X  895
                               37334              IX3    X3-X4       BIASI= RAI- FWAI                            FCC1289X  896
                                                  LX5    F2.FWAP                                                 FCC1289X  897
           624  12665                             BX6    X6+X5                                                   FCC1289X  898
                     15330                        BX3    -X0*X3       MASK TO 18 BITS IN CASE NEGATIVE BIAS      FCC2362     9
                                   0              ERRNZ  G1.RBL-G1.RAL                                           FCC1289X  899
                          15710                   BX7    -X0*X1      RBI= RB[GF1I]                               FCC1289X  900
                               20322              LX3    F2.BIAP                                                 FCC1289X  901
           625  12663                             BX6    X6+X3                                                   FCC1289X  902
                     54620                        SA6    A2          GF2I= (EOTIND,BIASI,FWAI) [F2.]             FCC1289X  903
                          0317000616 +            NZ     X7,EQV410   IF RBI  NE  0                               FCC1289X  904
           626  66225                             SB2    B2+B5       N.LR= N.LR+1                                FCC1289X  905
                     0400000616 +                 EQ     EQV410                                                  FCC1289X  906
                                                                                                                 FCC1289X  907
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    38
        EQV - SCAN4 - G-F ADDRESS ASSIGNMENT                                    CODE
  
                                        *         NON ROOT MEMBERS.                                              FCC1289X  908
                                        *         COMPUTE RA(I)= RA(I) - RA(P(I)), BIAS(I)= RA(I) - FWA(P(I)).   FCC1289X  909
                                        *         SET RB(I)= RB(P(I)), FWA(I)= FWA(P(I)).                        FCC1289X  910
                                        *                (B6)= PI                                                FCC1289X  911
                                        *                (X3)= RAI                                               FCC1289X  912
                                                                                                                 FCC1289X  913
           627  54406                    EQV420   SA4    A0+B6       GF1PI= G-FTAB(PI)                           FCC1289X  914
                     54245                        SA2    A4+B5       GF2PI= G-FTAB(PI+1)                         FCC1289X  915
                                                  LX1    -G1.RAP                                                 FCC1289X  916
                          11701                   BX7    X0*X1                                                   FCC1289X  917
                                                  LX4    -G1.RAP                                                 FCC1289X  918
                               73640              SX6    X4          RAP= RA[GF1PI]                              FCC1289X  919
           630  36336                             IX3    X3+X6       RAI= RAI+ RAP                               FCC1289X  920
                     20452                        LX4    G1.RAP-G1.RBP                                           FCC1289X  921
                          15630                   BX6    -X0*X3                                                  FCC1289X  922
                               36776              IX7    X7+X6                                                   FCC1289X  923
           631  20752                             LX7    G1.RAP-G1.RBP                                           FCC1289X  924
                                   0              ERRNZ  G1.RBL-G1.RAL                                           FCC1289X  925
                     15540                        BX5    -X0*X4      RBP= RB[GF1PI]                              FCC1289X  926
                          12775                   BX7    X7+X5                                                   FCC1289X  927
                               20722              LX7    G1.RBP                                                  FCC1289X  928
           632  54710                             SA7    A1          GF1I= (RBP,RAI) [G1.]                       FCC1289X  929
                                   0              ERRNZ  G1.RAL-F2.BIAL                                          FCC1289X  930
                     20022                        LX0    F2.BIAP-G1.RAP                                          FCC1289X  931
                          11602                   BX6    X0*X2       EOFWA= (EOI,FWA) [GF2PI]                    FCC1289X  932
                                                  LX2    -F2.FWAP                                                FCC1289X  933
                               73220              SX2    X2          FWAI= FWA[GF2PI]                            FCC1289X  934
           633  37332                             IX3    X3-X2       BIASI= RAI-FWAI                             FCC1289X  935
                     43052                        MX0    -F2.BIAL                                                FCC2362    10
                          15330                   BX3    -X0*X3       MASK TO 18 BITS IN CASE NEGATIVE BIAS      FCC2362    11
                               20322              LX3    F2.BIAP                                                 FCC1289X  936
           634  12663                             BX6    X6+X3                                                   FCC1289X  937
                     54615                        SA6    A1+B5       GF2I= (EOFWA,BIASI) [F2.]                   FCC1289X  938
                          0400000616 +            EQ     EQV410                                                  FCC1289X  939
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    39
        EQV - SCAN5 - FORMAT ECT , DIM2 ENTRIES                                 CODE
  
                                        **        SCAN5 - FORMAT ECT, DIM2 ENTRIES.                              FCC1289X  941
                                        *         CREATE AND SORT ECT, FIND ULTIMATE BASE FOR EACH CLASS.        FCC1289X  942
                                        *         FORMAT WORD 1 OF DIM TABLE, AND ADD BITS TO SYMBOL TABLE       FCC1289X  943
                                        *         WORDS. A LOCAL VARIABLE NOW WILL HAVE RA RELATIVE TO THE BLOCK FCC1289X  944
                                        *         DATA.. .                                                       FCC1289X  945
                                        *                (B2)= N.LR                                              FCC1289X  946
                                                                                                                 FCC1289X  947
                                                                                                                 FCC1289X  948
                                        *         ALLOCATE SPACES FOR ECT AND LAT.                               FCC1289X  949
                                                                                                                 FCC1289X  950
           635  76620                    EQV500   SX6    B2                                                      FCC1289X  951
                     5160000011 C                 SA6    TEMPR                                                   FCC1289X  952
                               10566              ALLOC  LAT,X6      ALLOCATE SPACES FOR LAT                     FCC1289X  953
           637  5110000000 X                      SA1    L.EQV                                                   FCC1289X  954
                          5120000011 C            SA2    TEMPR                                                   FCC1289X  955
           640  21101                             AX1    1                                                       FCC1289X  956
                     10722                        BX7    X2                                                      FCC1289X  957
                          73615                   SX6    X1+B5       EXTRA WORD FOR TERMINATOR                   FCC1289X  958
           641  5170000000 X                      SA7    L.LAT       L.LAT= N.LR                                 FCC1289X  959
                          10566                   ALLOC  ECT,X6      ALLOCATE SPACES FOR ECT                     FCC1289X  960
           643  66355                             SB3    B5+B5                                                   FCC1289X  961
                     43701                        MX7    1                                                       FCC1289AX  33
                                                                                                                 FCC1289X  962
                                        **        FORM TEMPORARY ECT ENTRIES.                                    FCC1289X  963
                                        *                                                                        FCC1289X  964
                                        *         THE ULTIMATE BASE OF A CLASS HAS BIAS OF 0, SINCE BIAS WAS     FCC1289X  965
                                        *         COMPUTED AS RA - FWA IN SCAN4.  SORTING OF THE G-F TABLE BY    FCC1289X  966
                                        *         EOI AND BIAS WILL PROVIDE US WITH SEPARATED CLASSES WITH       FCC1289X  967
                                        *         BASE MEMBER BEING THE FIRST MEMBER OF THE CLASS.               FCC1289X  968
                                        *         TEMPORARY ECT ENTRIES ARE FORMATED AS TE. .                    FCC1289X  969
                                                                                                                 FCC1289X  970
                                                                                                                 FCC1289X  971
                          5110000000 X            SA1    O.ECT                                                   FCC1289X  972
           644  5120000000 X                      SA2    O.EQV                                                   FCC1289X  973
                          5130000000 X            SA3    L.EQV                                                   FCC1289X  974
           645  5140000012                        SA4    SYM1                                                    FCC1289X  975
                          63710                   SB7    X1                                                      FCC1289X  976
                               63620              SB6    X2                                                      FCC1289X  977
           646  63130                             SB1    X3          L.GF= L.EQV                                 FCC1289X  978
                     67403                        SB4    -B3         GFIND= -2                                   FCC1289X  979
                          53040                   SA0    X4                                                      FCC1289X  980
                               43054              MX0    -F2.EOIL                                                FCC1289AX  34
           647  20745                             LX7    1+TE.CBBP   CBBI= 1                                     FCC1289AX  35
                                                                                                                 FCC1289X  983
           650  66443                    EQV510   SB4    B4+B3       GFIND= GFIND+2                              FCC1289X  984
                     0641000657 +                 GE     B4,B1,EQV520      IF GFIND  GE  L.GF                    FCC1289X  985
                               76364              SX3    B6+B4       GFADI= G-F TAB(GFIND)                       FCC1289X  986
           651  76240                             SX2    B4                                                      FCC1289X  987
                     53430                        SA4    X3          GF1I= G-F TAB(GFADI)                        FCC1289AX  36
                          54145                   SA1    A4+B5       GF2I= GF1I+1                                FCC1289AX  37
                               20130              LX1    -F2.EOIP                                                FCC1289AX  38
           652  15610                             BX6    -X0*X1      EOII= EOI[GF2I]                             FCC1289AX  39
                                                  LX3    TE.GFAP                                                 FCC1289AX  40
                     20654                        LX6    TE.EOIP                                                 FCC1289AX  41
                          12663                   BX6    X6+X3                                                   FCC1289AX  42
                               20122              LX1    F2.EOIP-F2.BIAP                                         FCC1289AX  43
           653  73110                             SX1    X1          BIAI= BIA[GF2I]                             FCC1289AX  44
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    40
        EQV - SCAN5 - FORMAT ECT , DIM2 ENTRIES                                 CODE
  
                                   0              ERRNZ  18-F2.BIAP                                              FCC1289AX  45
                     12667                        BX6    X6+X7                                                   FCC1289AX  46
                          20122                   LX1    TE.BIAP                                                 FCC1289AX  47
                               36661              IX6    X6+X1                                                   FCC1289AX  48
           654  20405                             LX4    -1-G1.COMP                                              FCC1289AX  49
                     0311000656 +                 NZ     X1,EQV515   IF BIAI  NE  0                              FCC1289AX  50
           655  0324000656 +                      PL     X4,EQV515   IF COM[GF1I]  NE  1                         FCC1289AX  51
                          15667                   BX6    -X7*X6      CBBI= 0                                     FCC1289AX  52
           656  21201                    EQV515   AX2    1           ECII= GFIND/2                               FCC1289AX  53
                     53627                        SA6    X2+B7       ECT[ECII]= (CBBI,EOII,BIAI,GFADI) [TE.]     FCC1289AX  54
                          0400000650 +            EQ     EQV510                                                  FCC1289X  994
                                                                                                                 FCC1289X  995
                                        *         SORT TEMPORARY ECT ENTRIES.                                    FCC1289X  996
                                        *                X2= L.ECT-1                                             FCC1289X  997
                                        *                B7= O.ECT                                               FCC1289X  998
                                                                                                                 FCC1289X  999
           657  7160000000               EQV520   SX6    0                                                       FCC1289X 1000
                          73125                   SX1    X2+B5                                                   FCC1289X 1001
                               54665              SA6    A6+B5       STORE TERMINATOR WORD IN ECT                FCC1289X 1002
           660  0100001045 +                      RJ     SST                                                     FCC1289X 1003
           661  77737                             SX7    B3-B7                                                   FCC1289X 1004
                     73775                        SX7    X7+B5                                                   FCC1289X 1005
                          5170000000 X            SA7    L.ECT       L.ECT= LWA+1(ECT)-FWA(ECT)+1                FCC1289X 1006
                                                                                                                 FCC1289X 1007
                                        **        FORM ECT ENTRIES AS EC., AND  DIM1 ENTRIES AS D1. .            FCC1289X 1008
                                        *         ADD EQU,COM,DEF BITS TO SYMA, RB TO SYMB.                      FCC1289X 1009
                                        *         THE FIRST MEMBER OF A CLASS IS THE BASE, SINCE ECT TABLE       FCC1289X 1010
                                        *         HAS BEEN SORTED ACCORDING TO BIAS.                             FCC1289X 1011
                                        *         A DIFFERENT EOT INDEX INDICATE THE BEGINNING OF NEXT CLASS.    FCC1289X 1012
                                        *                           (A0)= SYM1                                   FCC1289X 1013
                                                                                                                 FCC1289X 1014
                                                                                                                 FCC1289X 1015
           662  5130000000 X                      SA3    O.DIM                                                   FCC1289X 1016
                          57175                   SA1    B7-B5      ECA= FWA(ECT)-1                              FCC1289X 1017
                               66200              SB2    B0         MCNT= 0         */CLASS MEMBER COUNT         FCC1289X 1018
           663  67105                             SB1    -B5        EOIND= -1                                    FCC1289X 1019
                     6263777775                   SB6    X3-2                                                    FCC1289X 1020
                               66700              SB7    B0         LATIND= 0                                    FCC1289X 1021
                                                                                                                 FCC1289X 1022
                                        *         NEXT TEMPORARY ECT ENTRY.                                      FCC1289X 1023
                                        *                (B1)= EOIND                                             FCC1289X 1024
                                                                                                                 FCC1289X 1025
           664  54115                    EQV530   SA1    A1+B5       ECAD= ECAD+1, ECI= ECT(ECAD)                FCC1289X 1026
                     0301000727 +                 ZR     X1,EQV580   IF END OF ECT TABLE                         FCC1289X 1027
                               43054              MX0    -TE.EOIL                                                FCC1289X 1028
                                                  LX1    -TE.GFAP                                                FCC1289X 1029
           665  63410                             SB4    X1          GFAI= GFA[ECI]                              FCC1289X 1030
                     20120                        LX1    TE.GFAP-TE.EOIP                                         FCC1289X 1031
                          15310                   BX3    -X0*X1      EOII= EOI[ECI]                              FCC1289X 1032
                               76210              SX2    B1                                                      FCC1289X 1033
           666  20132                             LX1    TE.EOIP-TE.BIAP                                         FCC1289X 1034
                     37723                        IX7    X2-X3                                                   FCC1289BX   8
                          73410                   SX4    X1          BIASI= BIA[ECI]                             FCC1289X 1036
                               63130              SB1    X3          EOIND= EOII                                 FCC1289X 1037
           667  0307000713 +                      ZR     X7,EQV560   IF EOIND  EQ  EOII                          FCC1289X 1038
                                                                                                                 FCC1289X 1039
                                        *         CLASS BASE.                                                    FCC1289X 1040
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    41
        EQV - SCAN5 - FORMAT ECT , DIM2 ENTRIES                                 CODE
  
                                        *         UPDATE MCNT FOR THE PREVIOUS CLASS.                            FCC1289X 1041
                                        *                (B2)= MCNT                                              FCC1289X 1042
                                                                                                                 FCC1289X 1043
                          0332000672 +            MI     X2,EQV535   IF FIRST BASE MEMBER                        FCC1289X 1044
           670  76620                             SX6    B2                                                      FCC1289X 1045
                     66225                        SB2    B2+B5       ECBIND= MCNT+1                              FCC1289X 1046
                                                  LX6    EC.NMP                                                  FCC1289X 1047
                          55212                   SA2    A1-B2       ECB= ECT(ECAD-ECBIND)                       FCC1289X 1048
                               12626              BX6    X2+X6                                                   FCC1289X 1049
           671  54620                             SA6    A2          NM[ECB]= MCNT                               FCC1289X 1050
                     66200                        SB2    B0          MCNT= 0                                     FCC1289X 1051
                                                                                                                 FCC1289X 1052
                                        *         COMPUTE SPAN OF CLASS, UPDATE ECT, DIM1 ENTRIES.               FCC1289X 1053
                                                                                                                 FCC1289X 1054
           672  5120000000 X             EQV535   SA2    O.EOT                                                   FCC1289X 1055
                          43064                   MX0    -EO.RBL                                                 FCC1289X 1056
                               56340              SA3    B4          GF1I= G-FTAB(GFAI)                          FCC1289X 1057
           673  53221                             SA2    X2+B1       EOI= EOT(EOIND)                             FCC1289X 1058
                     20331                        LX3    -G1.SYMP+1                                              FCC1289X 1059
                          20210                   LX2    -EO.RBP                                                 FCC1289X 1060
                               73530              SX5    X3                                                      FCC1289X 1061
           674  63335                             SB3    X3+B5       STINDB= 2 * SYM[GF1I] +1                    FCC1289X 1062
                     15720                        BX7    -X0*X2      RBI= RB[EOI]                                FCC1289X 1063
                          20521                   LX5    EC.SYMP-1   SYMI= SYM[GF1I]                             FCC1289X 1064
                               20244              LX2    EO.RBP-EO.LWAP                                          FCC1289X 1065
           675  73425                             SX4    X2+B5       LWAI= LWA[EOI] + 1                          FCC1289X 1066
                     43314                        MX3    L.DIMP                                                  FCC1289X 1067
                          20252                   LX2    EO.LWAP-EO.FWAP                                         FCC1289X 1068
                               73220              SX2    X2          FWAI= FWA[EOI]                              FCC1289X 1069
           676  37442                             IX4    X4-X2       SPANI= LWAI-FWAI                            FCC1289X 1070
                     20444                        LX4    EC.SPNP                                                 FCC1289X 1071
                          12645                   BX6    X4+X5                                                   FCC1289X 1072
                               20365              LX3    L.DIMP+P.DIMP                                           FCC1289X 1073
           677  55203                             SA2    A0-B3       SYMBI= SYMTAB(STINDB)                       FCC1289X 1074
                     20430                        LX4    -EC.SPNP                                                FCC1289X 1075
                          43101                   MX1    1                                                       FCC1289X 1076
                               11232              BX2    X3*X2                                                   FCC1289X 1077
           700  21250                             AX2    P.DIMP-1    DIMPI= 2 * DIMP[SYMBI]                      FCC1289X 1078
                     20522                        LX5    D1.SYMP-EC.SYMP   D1SKEL= SYMI[D1.]                     FCC1289X 1079
                          0317000705 +            NZ     X7,EQV550   IF RBI  NE  0                               FCC1289X 1080
                                                                                                                 FCC1289X 1081
                                        *         LOCAL BASE.                                                    FCC1289X 1082
                                        *         UPDATE LOCAL BLOCK LENGTH DATA.. , FORMAT DIM1 SKELETON FOR    FCC1289X 1083
                                        *         NON-BASE MEMBERS.                                              FCC1289X 1084
                                        *                (X2)= DIMPI                                             FCC1289X 1085
                                                                                                                 FCC1289X 1086
           701  5130000000 X                      SA3    O.LAT                                                   FCC1289X 1087
                                                  LX1    1+D1.LOCP                                               FCC1289X 1088
                          54610                   SA6    A1          ECI= (SPANI,SYMI,0) [EC.]                   FCC1289X 1089
                               53637              SA6    X3+B7       LAT(LATIND)= ECI                            FCC1289X 1090
           702  12515                             BX5    X1+X5                                                   FCC1289X 1091
                     66775                        SB7    B7+B5       LATIND= LATIND+1                            FCC1289X 1092
                          5130000000 X            SA3    DATA..                                                  FCC1289X 1093
           703  36643                             IX6    X4+X3                                                   FCC1289X 1094
                                                  LX3    D1.RAP                                                  FCC1289X 1095
                     54630                        SA6    A3          NEW DATA..= DATA..+ SPANI                   FCC1289X 1096
                          36553                   IX5    X5+X3       D1SKEL= (1,SYMI,0,DATA..) [D1.]             FCC1289X 1097
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    42
        EQV - SCAN5 - FORMAT ECT , DIM2 ENTRIES                                 CODE
  
                               20422              LX4    D1.SPNP                                                 FCC1289X 1098
           704  12754                             BX7    X5+X4                                                   FCC1289X 1099
                     53726                        SA7    B6+X2       DIMTAB(DIMPI)= (1,SYMI,SPANI,DATA..) [D1.]  FCC1289X 1100
                          0400000664 +            EQ     EQV530                                                  FCC1289X 1101
                                                                                                                 FCC1289X 1102
                                        *         COMMON BASE.                                                   FCC1289X 1103
                                        *         FORM DIM1 SKELETON FOR COMMON CLASS MEMBERS, AND SET           FCC1289X 1104
                                        *         (DEF,COM) BITS IN SYMA . BASES THAT WERE NOT IN COMMON         FCC1289X 1105
                                        *         BEFORE NOW GET RB IN THEIR SYMB.                               FCC1289X 1106
                                        *                (X2)= DIMPI                                             FCC1289X 1107
                                        *                (X7)= RBI                                               FCC1289X 1108
                                                                                                                 FCC1289X 1109
           705  56440                    EQV550   SA4    B4          GF1I= G-FTAB(GFAI)                          FCC1289X 1110
                     54325                        SA3    A2+B5       SYMAI= SYMTAB(STINDB-1)                     FCC1289X 1111
                                                  LX1    1+EC.CBP                                                FCC1289X 1112
                          20714                   LX7    P.RB                                                    FCC1289X 1113
                               12661              BX6    X6+X1                                                   FCC1289X 1114
                                                  LX4    -G1.RAP                                                 FCC1289X 1115
           706  54610                             SA6    A1          ECI= (CB,SPANI,SYMI,0) [EC.]                FCC1289X 1116
                     7110240000                   SX1    V.COM+V.DEF                                             FCC1289X 1117
                               43065              MX0    -L.RB                                                   FCCA527    14
           707  20014                             LX0    P.RB                                                    FCC1289X 1118
                     12631                        BX6    X3+X1                                                   FCC1289X 1119
                          54630                   SA6    A3          SYMAI= (COM,DEF) [SYMA]                     FCC1289X 1120
                               73440              SX4    X4          RAI= RA[GF1I]                               FCC1289X 1121
                                                  LX4    D1.RAP                                                  FCC1289X 1122
           710  55335                             SA3    A3-B5       SYMBI= SYMTAB(STINDB)                       FCC1289X 1123
                     12654                        BX6    X5+X4                                                   FCC1289X 1124
                          11303                   BX3    X0*X3                                                   FCC1289X 1125
                               36737              IX7    X3+X7                                                   FCC1289X 1126
           711  53626                             SA6    B6+X2       DIMTAB(DIMPI)= (0,SYMI,0,RAI) [D1.]         FCC1289X 1127
                     5073000000                   SA7    A3+         RB[SYMBI]= RBI                              FCC1289X 1128
           712  0400000664 +                      EQ     EQV530                                                  FCC1289X 1129
                                                                                                                 FCC1289X 1130
                                        *         CLASS MEMBERS.                                                 FCC1289X 1131
                                        *                (X4)= BIASI                                             FCC1289X 1132
                                        *                (X5)= D1SKEL                                            FCC1289X 1133
                                        *                (B4)= GFAI                                              FCC1289X 1134
                                                                                                                 FCC1289X 1135
           713  56340                    EQV560   SA3    B4          GF1I= G-FTAB(GFA)                           FCC1289X 1136
                                                  LX4    D1.RAP                                                  FCC1776X    8
                     36645                        IX6    X4+X5       RAI= BIAI+RA[D1SKEL]                        FCC1776X    9
                          20352                   LX3    -G1.RBP                                                 FCC1776X   10
                               73230              SX2    X3          RBI= RB[GF1I]                               FCC1289X 1142
           714  20353                             LX3    G1.RBP-G1.SYMP+1                                        FCC1289X 1143
                     73030                        SX0    X3          STINDA= 2 * SYM[GF1I]                       FCC1289CX   5
                          7170010000              SX7    V.EQU       SYMABTS= EQU[SYMA]                          FCC1289X 1147
                                                  LX4    EC.BIAP-D1.RAP                                          FCC1776X   11
           715  43165                             MX1    -L.RB                                                   FCC1289X 1149
                     0302000720 +                 ZR     X2,EQV570   IF RBI  EQ  0                               FCC1289X 1150
           716  7277240000                        SX7    X7+V.COM+V.DEF     SYMABTS= (EQU,COM,DEF) [SYMA]        FCC1289X 1151
                          54335                   SA3    A3+B5       GF2I                                        FCC1289CX   6
                                                  LX3    -F2.FWAP                                                FCC1289CX   7
                               73330              SX3    X3          FWA1 = FWA[GF2I]                            FCC1289CX   8
                                                  LX3    D1.RAP                                                  FCC1289CX   9
           717  36663                             IX6    X6+X3       RAI = RAI + FWAI                            FCC1289CX  10
           720  63300                    EQV570   SB3    X0                                                      FCC1289CX  11
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    43
        EQV - SCAN5 - FORMAT ECT , DIM2 ENTRIES                                 CODE
  
                     20021                        LX0    EC.SYMP-1                                               FCC1289CX  12
                          12304                   BX3    X0+X4                                                   FCC1289CX  13
                               20422              LX4    D1.BIAP- EC.BIAP                                        FCC1289X 1155
           721  12664                             BX6    X6+X4                                                   FCC1289X 1156
                     43014                        MX0    L.DIMP                                                  FCC1289CX  14
                          20065                   LX0    L.DIMP+P.DIMP                                           FCC1289CX  15
                               55403              SA4    A0-B3       SYMAI= SYMTAB(STINDA)                       FCC1289X 1157
           722  20214                             LX2    P.RB                                                    FCC1289X 1158
                     12747                        BX7    X4+X7                                                   FCC1289X 1159
                          55445                   SA4    A4-B5       SYMBI= SYMTAB(STINDA+1)                     FCC1289X 1160
                               20114              LX1    P.RB                                                    FCC1289X 1161
           723  11004                             BX0    X0*X4       DIMPI= DIMP[SYMBI]                          FCC1289X 1162
                     11414                        BX4    X1*X4                                                   FCC1289X 1163
                          54745                   SA7    A4+B5       SYMAI= SYMABTS[SYMA]                        FCC1289X 1164
                               21050              AX0    P.DIMP-1    DIMPI= 2 * DIMPI                            FCC1289X 1165
           724  12742                             BX7    X4+X2                                                   FCC1289X 1166
                     53606                        SA6    X0+B6       DIMTAB(DIMPI)= [D1.]                        FCC1289X 1167
                          54740                   SA7    A4          RB[SYMBI]= RBI                              FCC1289X 1168
                               54265              SA2    A6+B5       DIM2I= DIMTAB(DIMPI+1)                      FCC1289X 1169
           725  20230                             LX2    -D2.WCP                                                 FCC1289X 1170
                     73620                        SX6    X2                                                      FCC1289X 1171
                          20644                   LX6    EC.WCP                                                  FCC1289X 1172
                               12663              BX6    X6+X3                                                   FCC1289X 1173
           726  54610                             SA6    A1          ECTI= (WCI,SYMI,BIASI) [EC.]                FCC1289X 1174
                     66225                        SB2    B2+B5       MCNT= MCNT+1                                FCC1289X 1175
                          0400000664 +            EQ     EQV530                                                  FCC1289X 1176
                                                                                                                 FCC1289X 1177
                                        *         UPDATE MCNT FOR THE LAST CLASS.                                FCC1289X 1178
                                        *                (B2)= MCNT                                              FCC1289X 1179
                                                                                                                 FCC1289X 1180
           727  76620                    EQV580   SX6    B2                                                      FCC1289X 1181
                     66225                        SB2    B2+B5                                                   FCC1289X 1182
                          55212                   SA2    A1-B2       ECB= ECT(ECA-MCNT+1)                        FCC1289X 1183
                               12626              BX6    X2+X6                                                   FCC1289X 1184
           730  54620                             SA6    A2          NM[ECB]= MCNT                               FCC1289X 1185
                                                                                                                 FCC1289X 1186
                                        **        PREPARE TO EXIT EQUIVALENCE PROCESSING.                        FCC1289X 1187
                                        *         MOVE ECT TO EQV TABLE AND CLEAR L.EOT AND L.ECT.               FCC1289X 1188
                                        *         A FINAL RETURN JUMP TO SUBROUTINE *CLE* IS MADE TO             FCC1289X 1189
                                        *         RESOLVE LEVEL-EQUIVALENCE CONFLICTS AND TO PROPAGATE           FCC1289X 1190
                                        *         LEVEL/LCM BITS THRU EQUIVALENCE CLASSES.                       FCC1289X 1191
                                                                                                                 FCC1289X 1192
                     13777                        BX7    X7-X7                                                   FCC1289X 1193
                          5150000000 X            SA5    O.ECT                                                   FCC1289X 1194
           731  5140000000 X                      SA4    O.EQV                                                   FCC1289X 1195
                          5170000000 X            SA7    L.EOT       NEW L.EOT= 0                                FCC1289X 1196
           732  73040                             SX0    X4          EQIND= FWA(EQVTAB)                          FCC1289X 1197
                     53550                        SA5    X5          ECA= FWA(ECT)                               FCC1289X 1198
                          6120000000              SB2    0           ECIND= 0                                    FCC1289X 1199
                                                                                                                 FCC1289X 1200
                                        *         MOVE ECT TO EQV TABLE.                                         FCC1289X 1201
                                                                                                                 FCC1289X 1202
           733  54552                    EQV585   SA5    A5+B2       ECA= ECA+ECIND   ECI= ECT(ECA)              FCC1289X 1203
                     0305000740 +                 ZR     X5,EQV590   IF END OF ECT                               FCC1289X 1204
                                                  LX5    -EC.NMP                                                 FCC1289X 1205
                               63255              SB2    X5+B5       ECIND= NM[ECI] + 1                          FCC1289X 1206
           734  0425001024 +                      EQ     B2,B5,EQ.E90      IF ECIND  EQ  1                       FCC1289X 1207
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    44
        EQV - SCAN5 - FORMAT ECT , DIM2 ENTRIES                                 CODE
  
                          76120                   MOVE   B2,A5,X0                                                FCC1289X 1208
           737  73002                             SX0    X0+B2       EQIND= EQIND+ ECIND                         FCC1289X 1209
                     0400000733 +                 EQ     EQV585                                                  FCC1289X 1210
                                                                                                                 FCC1289X 1211
           740  5110000000 X             EQV590   SA1    O.EQV                                                   FCC1289X 1212
                          5120000000 X            SA2    LEVEL                                                   FCC1289X 1213
           741  37601                             IX6    X0-X1                                                   FCC1289X 1214
                     5160000000 X                 SA6    L.EQV       NEW L.EQV= EQIND - FWA(EQV)                 FCC1289X 1215
           742  0302000744 +                      ZR     X2,EQV595   IF NO LEVEL STATEMENTS                      FCC1289X 1216
                          0100001050 +            RJ     CLE         COORDINATE LEVEL INFO                       FCC1289X 1217
           743  0100001127 +                      RJ     CCL               COORDINATE COMMON LEVEL INFO          FCC1879    19
                                                                                                                 FCC1289X 1218
           744  7170000000               EQV595   SX7    0                                                       FCC1289X 1219
                          5170000000 X            SA7    L.ECT       L.ECT= 0                                    FCC1289X 1220
           745  0400000330 +                      EQ     EXIT.                                                   FCC1289X 1221
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    45
        EQV - ERROR EXITS                                                       CODE
  
                                        **        CHECK/PROCESS EQUIVALENCE ERRORS.                              FCC1289X 1223
                                                                                                                 FCC1289X 1224
                                                                                                                 FCC1289X 1225
                                        **        PRESCAN ERRORS.                                                FCC1289X 1226
                                                                                                                 FCC1289X 1227
           746  6160000140               EQ.E10   SB6    E.S>D                                                   FCC1289X 1228
                          11701                   BX7    X0*X1       PI(DIMS)= WC[DIM2I]                         FCC1289X 1229
           747  0317000754 +                      NZ     X7,EQ.E32   IF PI(DIMS)  NE  0                          FCC1289X 1230
                          73765                   SX7    X6+B5       PI(DIMS)= 1+ SDPF, (IND= 0)                 FCC1289X 1231
                               20744              LX7    D2.WCP                                                  FCC1289X 1232
           750  54710                             SA7    A1          WC[DIM2I]= PI(DIMS)                         FCC1289X 1233
                     20752                        LX7    Q2.PDP-D2.WCP                                           FCC1289X 1234
                          0400000754 +            EQ     EQ.E32                                                  FCC1289X 1235
                                                                                                                 FCC1289X 1236
                                        *                (X7)= PI(DIMS)                                          FCC1289X 1237
                                                                                                                 FCC1289X 1238
           751  6160000326               EQ.E20   SB6    E.NOS                                                   FCC1289X 1239
                          20752                   LX7    Q2.PDP-D2.WCP     (IND= 0)                              FCC1289X 1240
           752  0400000754 +                      EQ     EQ.E32                                                  FCC1289X 1241
                                                                                                                 FCC1289X 1242
                                        *                (X7)= (PI(DIMS),IND) [Q2.]                              FCC1289X 1243
                                                                                                                 FCC1289X 1244
           753  6160000345               EQ.E30   SB6    E.DRE                                                   FCC1289X 1245
           754  55125                    EQ.E32   SA1    A2-B5                                                   FCC1289X 1246
                     5130000000 X                 SA3    O.EQV                                                   FCC1289X 1247
                               76610              SX6    B1                                                      FCC1289X 1248
           755  43454                             PACK   X7,B2,X2,X4                                             FCC1946   169
                               54720              SA7    A2          EQV2I= (GORI,PI(DIMS),IND) [Q2.]            FCC1289X 1250
           757  37663                             IX6    X6-X3                                                   FCC1289X 1251
                     20130                        LX1    -G1.SYMP                                                FCC1289X 1252
                          73210                   SX2    X1          SYMORD= SYM[EQV1I]                          FCC1289X 1253
           760  5160000011 C                      SA6    TEMPR       TEMPR= EQA-O.EQV                            FCC1289X 1254
                          0100000000 X            RJ     PSYM                                                    FCC1289X 1255
           761  6110000140                        SB1    E.S>D                                                   FCC1289X 1256
                          0516000763 +            NE     B1,B6,EQ.E34      IF  NOT  E.S>D                        FCC1289X 1257
           762  6170000766 +                      POSTER SEV=FE,NR=**,RETURN=EQ.E38                              FCC1289X 1258
                                                                                                                 FCC1289X 1259
           763  6110000326               EQ.E34   SB1    E.NOS                                                   FCC1289X 1260
                          0516000765 +            NE     B1,B6,EQ.E36      IF  NOT  E.NOS                        FCC1289X 1261
           764  6170000766 +                      POSTER SEV=ANSI,NR=**,RETURN=EQ.E38                            FCC1289X 1262
                                                                                                                 FCC1289X 1263
           765  6170000766 +             EQ.E36   POSTER SEV=INF,NR=**                                           FCC1289X 1264
           766  5110000011 C             EQ.E38   SA1    TEMPR                                                   FCC1289X 1265
                          5120000000 X            SA2    O.DIM                                                   FCC1289X 1266
           767  5130000000 X                      SA3    O.EQV                                                   FCC1289X 1267
                          6262777775              SB6    X2-2                                                    FCC1289X 1268
           770  36131                             IX1    X3+X1                                                   FCC1289X 1269
                     63110                        SB1    X1          EQA= O.EQV+TEMPR                            FCC1289X 1270
                          0400000335 +            EQ     EQV020                                                  FCC1289X 1271
                                                                                                                 FCC1289X 1272
                                        **        SCAN1 ERRORS.                                                  FCC1289X 1273
                                        *         CONTRADICTORY/ REDUNDANT EQUIVALENCE ERRORS.                   FCC1289X 1274
                                                                                                                 FCC1289X 1275
           771  54307                    EQ.E40   SA3    A0+B7                                                   FCC1289X 1276
                     6160000137                   SB6    E.RER                                                   FCC1289X 1277
                               20330              LX3    -G1.SYMP                                                FCC1289X 1278
           772  7223000000                        SX2    X3+         SYMORD= SYM[GF1T]                           FCC1289X 1279
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    46
        EQV - ERROR EXITS                                                       CODE
  
                          0304001007 +            ZR     X4,EQ.E76   IF DIST  NE  0 (REDUNDANCY)                 FCC1289X 1280
                                                                                                                 FCC1289X 1281
           773  6160000142                        SB6    E.CER       (CONTRADICTION)                             FCC1289X 1282
                          0400001007 +            EQ     EQ.E76                                                  FCC1289X 1283
                                                                                                                 FCC1289X 1284
           774  37016                    EQ.E50   IX0    X1-X6                                                   FCC1289X 1285
                     7170000137                   SX7    E.RER                                                   FCC1289X 1286
                                                  LX0    -G1.ADRP                                                FCC1289X 1287
                               73530              SX5    X3          ERFLAG= SYM[GF1T]                           FCC1289X 1288
           775  5170000011 C                      SA7    TEMPR                                                   FCC1289X 1289
                          37004                   IX0    X0-X4       DIF= (RA[GF1T] - RA[GF1T0]) - DIST          FCC1289X 1290
           776  7160000142                        SX6    E.CER                                                   FCC1289X 1291
                          0300000435 +            ZR     X0,EQV190   IF DIF  EQ  0 (REDUNDANT)                   FCC1289X 1292
           777  5160000011 C                      SA6    TEMPR       (REDUNDANCY)                                FCC1289X 1293
                          0400000435 +            EQ     EQV190                                                  FCC1289X 1294
                                                                                                                 FCC1289X 1295
                                        *         ILLEGAL EXTENSION OF COMMON BLOCK ORGIN                        FCC1289X 1296
                                        *                                                                        FCC1289X 1297
                                        *         EXTENSION BY MEMBER.                                           FCC1289X 1298
                                                                                                                 FCC1289X 1299
                                         EQ.E60   LX2    -G1.RAP                                                 FCC1289X 1300
          1000  73020                             SX0    X2                                                      FCC1289X 1301
                     36704                        IX7    X0+X4                                                   FCC1289X 1302
                          0327000435 +            PL     X7,EQV190   IF RAT0+ DIST  GT  0                        FCC1289X 1303
          1001  7160000141                        SX6    E.CBE                                                   FCC1289X 1304
                          14400                   BX4    -X0         DIST= -RAT0                                 FCC1289X 1305
                               73530              SX5    X3          ERFLAG= SYM[GF1T]                           FCC1289X 1306
          1002  5160000011 C                      SA6    TEMPR                                                   FCC1289X 1307
                          0400000435 +            EQ     EQV190                                                  FCC1289X 1308
                                                                                                                 FCC1289X 1309
                                        *         EXTENSION BY ROOT.                                             FCC1289X 1310
                                                                                                                 FCC1289X 1311
          1003  54620                    EQ.E70   SA6    A2          GF1T0= [G1.]                                FCC1289X 1312
                     73410                        SX4    X1          SET DIST= RAT                               FCC1289X 1313
                          7170000141              SX7    E.CBE                                                   FCC1289X 1314
          1004  20230                             LX2    -G1.SYMP                                                FCC1289X 1315
                     73520                        SX5    X2          ERFLAG= SYM[GF1T0]                          FCC1289X 1316
                          5170000011 C            SA7    TEMPR                                                   FCC1289X 1317
          1005  0400000435 +                      EQ     EQV190                                                  FCC1289X 1318
                                                                                                                 FCC1289X 1319
                                        *         POST ERRORS FOR SCAN1.                                         FCC1289X 1320
                                                                                                                 FCC1289X 1321
          1006  5110000011 C             EQ.E75   SA1    TEMPR       ERR NO.                                     FCC1289X 1322
                          73250                   SX2    X5          SYMORD= ERFLAG                              FCC1289X 1323
                               63610              SB6    X1                                                      FCC1289X 1324
          1007  76610                    EQ.E76   SX6    B1          SAVE L.GF, EQIND                            FCC1289X 1325
                     76720                        SX7    B2                                                      FCC1289X 1326
                          5160000012 C            SA6    TEMPR+1                                                 FCC1289X 1327
          1010  54765                             SA7    A6+B5                                                   FCC1289X 1328
                     0100000000 X                 RJ     PSYM                                                    FCC1289X 1329
          1011  6110000137                        SB1    E.RER                                                   FCC1289X 1330
                          0561001013 +            NE     B6,B1,EQ.E77      IF  NOT  E.RER                        FCC1289X 1331
          1012  6170001014 +                      POSTER SEV=INF,NR=**,RETURN=EQ.E79                             FCC1289X 1332
                                                                                                                 FCC1289X 1333
          1013  6170001014 +             EQ.E77   POSTER SEV=FE,NR=**                                            FCC1289X 1334
          1014  5110000012 C             EQ.E79   SA1    TEMPR+1     RESTORE L.GF,EQIND,O.EQV                    FCC1289X 1335
                          5130000000 X            SA3    O.EQV                                                   FCC1289X 1336
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    47
        EQV - ERROR EXITS                                                       CODE
  
          1015  54215                             SA2    A1+B5                                                   FCC1289X 1337
                     63110                        SB1    X1                                                      FCC1289X 1338
                          63220                   SB2    X2                                                      FCC1289X 1339
                               53030              SA0    X3                                                      FCC1289X 1340
          1016  0400000374 +                      EQ     EQV105                                                  FCC1289X 1341
                                                                                                                 FCC1289X 1342
                                        **        SCAN2 ERRORS.                                                  FCC1289X 1343
                                        *         EQUIVALENCED COMMON BLOCK LENGTH EXCEEDS 377777B               FCC1289X 1344
                                                                                                                 FCC1289X 1345
          1017  5120000000 X             EQ.E80   SA2    O.COM                                                   FCC1289X 1346
                          7130377777              SX3    377777B     LWAI= 377777B                               FCC1289X 1347
          1020  0306000472 +                      ZR     X6,EQV225   IF RBI  EQ  0                               FCC1289X 1348
                          5236777776 X            SA3    ORGTAB-1+X6 IND= PT[ORGTAB(RBI)]                        FCC1289X 1349
          1021  43701                             MX7    1                                                       FCC1289X 1350
                     20770                        LX7    1+CH.EVLP                                               FCC1289X 1351
                          36232                   IX2    X3+X2                                                   FCC1289X 1352
                               53220              SA2    X2          CH= COMTAB(IND)                             FCC1289X 1353
          1022  12727                             BX7    X2+X7                                                   FCC1289X 1354
                     54720                        SA7    A2          EVL[CH]= 1                                  FCC1289X 1355
                          7130377777              SX3    377777B     LWA= 377777B                                FCC1289X 1356
          1023  0400000472 +                      EQ     EQV225                                                  FCC1289X 1357
                                                                                                                 FCC1289X 1358
                                        **        SCAN5 ERRORS.                                                  FCC1289X 1359
                                        *         ONLY ONE NAME IN EQUIVALENCE GROUP.                            FCC1289X 1360
                                        *                (A5,X5)= ECI                                            FCC1289X 1361
                                        *                (X0)= EQIND                                             FCC1289X 1362
                                                                                                                 FCC1289X 1363
          1024  5110000000 X             EQ.E90   SA1    O.ECT                                                   FCC1289X 1364
                          5130000000 X            SA3    O.EQV                                                   FCC1289X 1365
          1025  63210                             SB2    X1                                                      FCC1289X 1366
                     20552                        LX5    EC.NMP-EC.SYMP                                          FCC1289X 1367
                          75652                   SX6    A5-B2                                                   FCC1289X 1368
                               37703              IX7    X0-X3                                                   FCC1289X 1369
          1026  73250                             SX2    X5          SYMORD= SYM[ECTI]                           FCC1289X 1370
                     5160000011 C                 SA6    TEMPR       TEMPR(0)= ECI-O.ECT                         FCC1289X 1371
                               54765              SA7    A6+B5       TEMPR(1)= EQIND-O.EQV                       FCC1289X 1372
          1027  0100000000 X                      RJ     PSYM                                                    FCC1289X 1373
          1030  13444                             POSTER NR=E.E1N,SEV=FE,FMT=DPC,TXT=X3                          FCC1289X 1374
          1032  5110000000 X                      SA1    O.ECT       RESTORE ECA,EQIND                           FCC1289X 1375
                          5120000011 C            SA2    TEMPR                                                   FCC1289X 1376
          1033  36512                             IX5    X1+X2       ECI= TEMPR(0) - O.ECT                       FCC1289X 1377
                     5130000000 X                 SA3    O.EQV                                                   FCC1289X 1378
                               54425              SA4    A2+B5                                                   FCC1289X 1379
          1034  36034                             IX0    X3+X4       EQIND= TEMPR(1) - O.EQV                     FCC1289X 1380
                     53550                        SA5    X5                                                      FCC1289X 1381
                          66250                   SB2    B5          ECA= 1                                      FCC1289X 1382
          1035  0400000733 +                      EQ     EQV585                                                  FCC1289X 1383
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    48
        EQV - SST - SHELL SORT                                                  CODE
  
                                        ***       SST - SHELL SORT TABLE.                                        FCC1289X 1385
                                        *         E. J. MUNDSTOCK.  70/10/07.                                    FCC1289X 1386
                                        *         UNIVERSITY OF MINNESOTA.                                       FCC1289X 1387
                                        *                                                                        FCC1289X 1388
                                        *         SST SORTS A TABLE USING A SHELL SORTING TECHNIQUE.             FCC1289X 1389
                                        *         THE TABLE IS SORTED IN PLACE INTO ASCENDING ORDER.             FCC1289X 1390
                                        *         ALL ELEMENTS SHOULD BE OF THE SAME SIGN.                       FCC1289X 1391
                                        *                                                                        FCC1289X 1392
                                        *         ORIGIN OF TECHNIQUE IS CACM VOL 6 NUMBER 5  MAY 1963, P209.    FCC1289X 1393
                                        *         FIRST CODED BY R. HOTCHKISS IN *SORT1*.                        FCC1289X 1394
                                        *         REVISED BY L. A. LIDDIARD.                                     FCC1289X 1395
                                        *                                                                        FCC1289X 1396
                                        *         ENTRY  (B5) = 1                                                FCC1289X 1397
                                        *                (B7) = FWA OF TABLE TO BE SORTED                        FCC1289X 1398
                                        *                (X1) = NUMBER OF ELEMENTS IN ARRAY                      FCC1289X 1399
                                        *                                                                        FCC1289X 1400
                                        *         EXIT   TABLE SORTED.                                           FCC1289X 1401
                                        *                (B3) = LWA+1 OF TABLE                                   FCC1289X 1402
                                        *                (B7) = FWA OF TABLE                                     FCC1289X 1403
                                        *                                                                        FCC1289X 1404
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   FCC1289X 1405
                                        *                B - 2, 3, 4, 5.                                         FCC1289X 1406
                                        *                A - 1, 2, 6, 7.                                         FCC1289X 1407
                                        *                                                                        FCC1289X 1408
                                        *         CALLS NONE.                                                    FCC1289X 1409
                                                                                                                 FCC1289X 1410
                                                                                                                 FCC1289X 1411
          1036  57714                    SST1     SA7    B1-B4       T(J+K) = S                                  FCC1289X 1412
                     66225                        SB2    B2+B5       I = I+1                                     FCC1289X 1413
                          0423001043 +            EQ     B2,B3,SST4  IF END OF TABLE                             FCC1289X 1414
          1037  56220                    SST2     SA2    B2          S = T(I)                                    FCC1289X 1415
                     46000                        NO                                                             FCC1289X 1416
                          66124                   SB1    B2+B4       J = I-K                                     FCC1289X 1417
                               10722              BX7    X2                                                      FCC1289X 1418
          1040  56110                    SST3     SA1    B1          T(J)                                        FCC1289X 1419
                     37321                        IX3    X2-X1       COMPARE S AND T(J)                          FCC1289X 1420
                          0323001036 +            PL     X3,SST1     IF ELEMENTS IN ORDER                        FCC1289X 1421
          1041  10611                             BX6    X1          T(J+K) = T(J)                               FCC1289X 1422
                     66114                        SB1    B1+B4       J = J-K                                     FCC1289X 1423
                          55614                   SA6    A1-B4                                                   FCC1289X 1424
          1042  0617001040 +                      GE     B1,B7,SST3  IF J " FIRST                                FCC1289X 1425
                          0400001036 +            EQ     SST1                                                    FCC1289X 1426
                                                                                                                 FCC1289X 1427
          1043  21401                    SST4     AX4    1           K = K/2                                     FCC1289X 1428
                     46000                        NO                                                             FCC1289X 1429
                          63440                   SB4    X4          (B4) = -K                                   FCC1289X 1430
                               67274              SB2    B7-B4       I = FIRST+K                                 FCC1289X 1431
          1044  0314001037 +                      NZ     X4,SST2     IF K " 0                                    FCC1289X 1432
                                                                                                                 FCC1289X 1433
          1045  0000000000               SST      PS                 ENTRY/EXIT                                  FCC1289X 1434
          1046  43414                             MX4    12          K = 2**(ENTIER(LOG2(COUNT)+1)               FCC1289X 1435
                     63317                        SB3    B7+X1       (B3) = LAST+1                               FCC1289X 1436
                          24621                   NX6,B2 X1                                                      FCC1289X 1437
                               23424              AX4    X4,B2                                                   FCC1289X 1438
          1047  0400001043 +                      EQ     SST4        ENTER SORT LOOP                             FCC1289X 1439
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    49
        EQV - CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION                    CODE
  
                                        **        CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION                 FCC1289X 1441
                                        *         ENTRY: ECT ENTRIES FORMATED AS EC. .                           FCC1289X 1442
                                        *                (A0)= SYM1                                              FCC1289X 1443
                                        *                                                                        FCC1289X 1444
                                        **        PHASE A - CHECK LEVEL SPECIFICATION WITHIN EACH EQUIVALENCE    FCC1289X 1445
                                        *                CLASS.  MAKE SURE THE BASE MEMBER IS GIVEN A LEVEL      FCC1289X 1446
                                        *                SPECIFICATION BELONGIN TO THE FIRST LEVELED MEMBER.     FCC1289X 1447
                                                                                                                 FCC1289X 1448
          1050  0400401050 +             CLE      SUBR               ENTRY/EXIT                                  FCC1289X 1449
          1051  5110000000 X                      SA1    O.ECT                                                   FCC1289X 1450
                          5150000000 X            SA5    O.COM                                                   FCC1289X 1451
          1052  5211777776                        SA1    X1-1        ECIND= FWA(ECT)-1                           FCC1289X 1452
                          43071                   MX0    -L.LVL-1                                                FCC1289X 1453
                               20001              LX0    P.LCM                                                   FCC1289X 1454
                                                                                                                 FCC1289X 1455
                                        *         CLASS BASE.                                                    FCC1289X 1456
                                                                                                                 FCC1289X 1457
          1053  54115                    CLE10    SA1    A1+B5       ECTB= ECT(ECIND)                            FCC1289X 1458
                     0301001075 +                 ZR     X1,CLE50    IF END OF ECT TABLE                         FCC1289X 1459
                               66600              SB6    B0          ERFLAG= 0  */LOCAL LEVEL ERROR FLAG         FCC1289X 1460
                                                  LX1    -EC.NMP                                                 FCC1289X 1461
          1054  63210                             SB2    X1          NMB= NM[ECTB]                               FCC1289X 1462
                     43465                        MX4    -L.RB                                                   FCC1289X 1463
                          20153                   LX1    EC.NMP-EC.SYMP+1                                        FCC1289X 1464
                               63115              SB1    X1+B5       STIND= SYM[ECTB]+1                          FCC1289X 1465
          1055  55201                             SA2    A0-B1       SYMBB= SYMTAB(STIND)                        FCC1289X 1466
                     15620                        BX6    -X0*X2      LEVB= (LVL,LCM) [SYMBB]                     FCC1289X 1467
                          21214                   AX2    P.RB                                                    FCC1289X 1468
                               66400              SB4    B0          MIND= 0    */MEMBER INDEX                   FCC1289X 1469
          1056  15224                             BX2    -X4*X2      RBB= RB[SYMBB]                              FCC1289X 1470
                     77305                        SX3    -B5         IND= -1                                     FCC1289X 1471
                          0302001060 +            ZR     X2,CLE20    IF RBB  EQ  0                               FCC1289X 1472
          1057  5232777776 X                      SA3    ORGTAB-1+X2       IND= PNT[ORGTAB(RBB)]                 FCC1289X 1473
                                                                                                                 FCC1289X 1474
                                        *         CLASS MEMBER.                                                  FCC1289X 1475
                                        *                (X3)= IND (= -1 IF LOCAL)                               FCC1289X 1476
                                        *                (A1)= ECTB                                              FCC1289X 1477
                                        *                (X6)= LEVB                                              FCC1289X 1478
                                        *                (X5)= O.COM                                             FCC1289X 1479
                                                                                                                 FCC1289X 1480
          1060  66445                    CLE20    SB4    B4+B5       MIND= MIND+1                                FCC1289X 1481
                     0724001074 +                 GT     B4,B2,CLE45       IF MIND  GT  NMB                      FCC1289X 1482
                               54115              SA1    A1+B5       ECTM= ECT(ECIND+1)                          FCC1289X 1483
          1061  20153                             LX1    -EC.SYMP+1                                              FCC1289X 1484
                     63315                        SB3    X1+B5       STINDM= 2* SYM[ECTM]+1                      FCC1289X 1485
                          55203                   SA2    A0-B3       SYMBM= SYMTAB(STINDM)                       FCC1289X 1486
                               15420              BX4    -X0*X2      LEVM= (LVL,LCM) [SYMBM]                     FCC1289X 1487
          1062  0304001060 +                      ZR     X4,CLE20    IF LEVM  EQ  0                              FCC1289X 1488
                          0306001070 +            ZR     X6,CLE30    IF LEVB  EQ  0                              FCC1289X 1489
                                                                                                                 FCC1289X 1490
                                        *         BASE LEVELED, CHECK LEVEL CONFLICT OF MEMBER.                  FCC1289X 1491
                                                                                                                 FCC1289X 1492
          1063  13764                             BX7    X6-X4                                                   FCC1289X 1493
                     0307001060 +                 ZR     X7,CLE20    IF LEVB  EQ  LEVM                           FCC1289X 1494
          1064  0333001067 +                      MI     X3,CLE25    IF IND  LT  0 (LOCAL)                       FCC1289X 1495
                          36253                   IX2    X5+X3                                                   FCC1289X 1496
                               53220              SA2    X2          CH= COMTAB(IND)                             FCC1289X 1497
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    50
        EQV - CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION                    CODE
  
          1065  43701                             MX7    1                                                       FCC1289X 1498
                     20771                        LX7    1+CH.LEEP                                               FCC1289X 1499
                          36727                   IX7    X2+X7                                                   FCC1289X 1500
                               54720              SA7    A2          LEE[CH]= 1                                  FCC1289X 1501
          1066  0400001060 +                      EQ     CLE20                                                   FCC1289X 1502
                                                                                                                 FCC1289X 1503
          1067  6163000000               CLE25    SB6    B3+         ERFLAG= STINDM                              FCC1289X 1504
                          0400001060 +            EQ     CLE20                                                   FCC1289X 1505
                                                                                                                 FCC1289X 1506
                                        *         BASE NOT LEVELD,  SET LEVB= LEVM                               FCC1289X 1507
                                                                                                                 FCC1289X 1508
          1070  55201                    CLE30    SA2    A0-B1       SYMBB= SYMTAB(STINDB)                       FCC1289X 1509
                     10644                        BX6    X4          LEVB= LEVM                                  FCC1289X 1510
                          36724                   IX7    X2+X4                                                   FCC1289X 1511
                               54720              SA7    A2          (LVL,LCM)[SYMBB]= LEVM                      FCC1289X 1512
          1071  0333001060 +                      MI     X3,CLE20    IF IND  LT  0                               FCC1289X 1513
                          43701                   MX7    1                                                       FCC1289X 1514
                               36253              IX2    X5+X3                                                   FCC1289X 1515
          1072  53220                             SA2    X2          CH= COMTAB(IND)                             FCC1289X 1516
                     20772                        LX7    1+CH.NALP                                               FCC1289X 1517
                          12727                   BX7    X2+X7                                                   FCC1289X 1518
                               54720              SA7    A2          NAL[CH]= 1                                  FCC1289X 1519
          1073  0400001060 +                      EQ     CLE20                                                   FCC1289X 1520
                                                                                                                 FCC1289X 1521
          1074  0460001053 +             CLE45    ZR     B6,CLE10    IF ERFLAG  EQ  0                            FCC1289X 1522
                          0400001117 +            EQ     CLE.E                                                   FCC1289X 1523
                                                                                                                 FCC1289X 1524
                                        **        PHASE B- CHECK LEVEL SPECIFICATION WITHIN EACH EQUIVALENCE     FCC1289X 1525
                                        *         CLASS.  MAKE SURE ALL NON-BASE MEMBER OF EACH CLASS HAVE THE   FCC1289X 1526
                                        *         LEVEL SPECIFICATION OF BASE.                                   FCC1289X 1527
                                        *                (X5)= O.COM                                             FCC1289X 1528
                                                                                                                 FCC1289X 1529
                                                                                                                 FCC1289X 1530
          1075  5110000000 X             CLE50    SA1    O.ECT                                                   FCC1289X 1531
                          5211777776              SA1    X1-1        ECIND= FWA(ECT)-1                           FCC1289X 1532
          1076  54115                    CLE60    SA1    A1+B5       ECTB= ECT(ECIND+1)                          FCC1289X 1533
                     0301001050 +                 ZR     X1,CLE      IF END OF ECT TABLE                         FCC1289X 1534
                                                  LX1    EC.NMP                                                  FCC1289X 1535
                               63210              SB2    X1          NMB= NM[ECTB]                               FCC1289X 1536
          1077  76400                             SX4    B0          LEVBLK= 0           */BLOCK LEVEL NUMBER    FCC1289X 1537
                     43765                        MX7    -L.RB                                                   FCC1289X 1538
                          20153                   LX1    EC.NMP-EC.SYMP+1                                        FCC1289X 1539
                               63115              SB1    X1+B5       STINDB= 2* SYM[ECTB]+1                      FCC1289X 1540
          1100  55301                             SA3    A0-B1       SYMBB= SYMTAB(STINDB)                       FCC1289X 1541
                     15630                        BX6    -X0*X3      LEVB= (LVL,LCM) [SYMBB]                     FCC1289X 1542
                          21314                   AX3    P.RB                                                    FCC1289X 1543
                               66400              SB4    B0          CMIND= 0                                    FCC1289X 1544
          1101  15237                             BX2    -X7*X3      RBB= RB[SYMBB]                              FCC1289X 1545
                     77305                        SX3    -B5         IND= -1                                     FCC1289X 1546
                          0302001103 +            ZR     X2,CLE70    IF RBB  EQ  0                               FCC1289X 1547
          1102  5232777776 X                      SA3    ORGTAB-1+X2       IND= PNT[ORGTAB(RBB)]                 FCC1289X 1548
                                                                                                                 FCC1289X 1549
          1103  0306001111 +             CLE70    ZR     X6,CLE80    IF LEVB  EQ  0                              FCC1289X 1550
                          0333001111 +            MI     X3,CLE80    IF IND  LT  0 (LOCAL)                       FCC1289X 1551
                                                                                                                 FCC1289X 1552
                                        *         BASE ALREADY HAS LEVEL SPECIFICATION, CHECK LEVEL CONFLICT     FCC1289X 1553
                                        *         WITH BLOCK LEVEL SPECIFICATION.                                FCC1289X 1554
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    51
        EQV - CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION                    CODE
  
                                                                                                                 FCC1289X 1555
          1104  0314001106 +                      NZ     X4,CLE75    IF LEVBLK  EQ  0                            FCC1289X 1556
                          10466                   BX4    X6          LEVBLK= LEVB                                FCC1289X 1557
          1105  0400001111 +                      EQ     CLE80                                                   FCC1289X 1558
                                                                                                                 FCC1289X 1559
          1106  13764                    CLE75    BX7    X6-X4                                                   FCC1289X 1560
                     0307001111 +                 ZR     X7,CLE80    IF LEVB  EQ  LEVBLK                         FCC1289X 1561
                               36253              IX2    X5+X3                                                   FCC1289X 1562
          1107  43701                             MX7    1                                                       FCC1289X 1563
                     53220                        SA2    X2          CH= COMTAB(IND)                             FCC1289X 1564
                          20771                   LX7    1+CH.LEEP                                               FCC1289X 1565
                               12727              BX7    X2+X7                                                   FCC1289X 1566
          1110  54720                             SA7    A2          LEE[CH]= 1                                  FCC1289X 1567
                                                                                                                 FCC1289X 1568
                                        *         CLASS MEMBER.                                                  FCC1289X 1569
                                        *                (X3)= IND (-1 IF LOCAL)                                 FCC1289X 1570
                                        *                (A1)= ECTB                                              FCC1289X 1571
                                        *                (X6)= LEVB                                              FCC1289X 1572
                                                                                                                 FCC1289X 1573
          1111  66445                    CLE80    SB4    B4+B5       CMCNT= CMCNT+1                              FCC1289X 1574
                     0724001076 +                 GT     B4,B2,CLE60       IF CMCNT  GT  NMB                     FCC1289X 1575
                               54115              SA1    A1+B5       ECTM= ECT(ECIND+1)                          FCC1289X 1576
          1112  20153                             LX1    -EC.SYMP+1                                              FCC1289X 1577
                     63315                        SB3    X1+B5       STINDM= 2* SYM[ECTM]+1                      FCC1289X 1578
                          55203                   SA2    A0-B3       SYMBM= SYMTAB(STINDM)                       FCC1289X 1579
                               15120              BX1    -X0*X2      LEVM= (LVL,LCM) [SYMBM]                     FCC1289X 1580
          1113  0311001111 +                      NZ     X1,CLE80    IF LEVM  NE  0                              FCC1289X 1581
                          0306001111 +            ZR     X6,CLE80    IF LEVB  EQ  0                              FCC1289X 1582
          1114  12726                             BX7    X2+X6                                                   FCC1289X 1583
                     54720                        SA7    A2          (LVL,LCM) [SYMBM]= LEVB                     FCC1289X 1584
                          0333001111 +            MI     X3,CLE80    IF IND  LT  0                               FCC1289X 1585
          1115  36235                             IX2    X3+X5                                                   FCC1289X 1586
                     53220                        SA2    X2          CH= COMTAB(IND)                             FCC1289X 1587
                          43701                   MX7    1                                                       FCC1289X 1588
                               20772              LX7    1+CH.NALP                                               FCC1289X 1589
          1116  12727                             BX7    X2+X7                                                   FCC1289X 1590
                     54720                        SA7    A2          NAL[CH]= 1                                  FCC1289X 1591
                          0400001111 +            EQ     CLE80                                                   FCC1289X 1592
                                                                                                                 FCC1289X 1593
                                        *         LOCAL LEVEL/EQUIVALENCE ERROR.                                 FCC1289X 1594
                                                                                                                 FCC1289X 1595
          1117  5150000000 X             CLE.E    SA5    O.ECT                                                   FCC1289X 1596
                          74610                   SX6    A1          SAVE A1                                     FCC1289X 1597
                               77265              SX2    B6-B5       STINDB= ERFLAG-1                            FCC1289X 1598
          1120  37665                             IX6    X6-X5                                                   FCC1289X 1599
                     5160000011 C                 SA6    TEMPR                                                   FCC1289X 1600
                               21201              AX2    1           SYMORD= STINDB/2                            FCC1289X 1601
          1121  0100000000 X                      RJ     PSYM                                                    FCC1289X 1602
          1122  13444                             POSTER NR=E.LEE,SEV=FE,FMT=DPC,TXT=X3                          FCC1289X 1603
          1124  5110000011 C                      SA1    TEMPR                                                   FCC1289X 1604
                          5120000000 X            SA2    O.ECT                                                   FCC1289X 1605
          1125  36121                             IX1    X2+X1                                                   FCC1289X 1606
                     53110                        SA1    X1                                                      FCC1289X 1607
                          43071                   MX0    -L.LVL-1                                                FCC1289X 1608
                               20001              LX0    P.LCM                                                   FCC1289X 1609
          1126  5150000000 X                      SA5    O.COM                                                   FCC1289X 1610
                          0400001053 +            EQ     CLE10                                                   FCC1289X 1611
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    52
        EQV - CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION          CCL       CODE
  
                                        **        CCL - COORDINATE COMMON LEVEL INFORMATION.                     FCC1879    21
                                        *                                                                        FCC1879    22
                                        *               SCAN THE COMMON TABLE TO ENSURE THAT NO TWO ITEMS HAVE   FCC1879    23
                                        *               HAVE CONFLICTING LEVELS.                                 FCC1879    24
                                        *               ISSUE AN INFORMAL MESSAGE IF NOT ALL MEMBERS OF THE      FCC1879    25
                                        *               COMMON BLOCK WERE MENTIONED IN LEVEL DECLARATIONS, THEN  FCC1879    26
                                        *               SET ALL MEMBERS TO THE SPECIFIED LEVEL.  FOR LCM RESIDEN FCC1879    27
                                        *               COMMON BLOCKS, SET LCM[CH.] FOR THE FIRST COMMON HEADER  FCC1879    28
                                        *               WORD OF THE BLOCK.                                       FCC1879    29
                                        *               CALLED ONCE BEFORE AND AFTER THE EQUIVALENCE PROCESSING. FCC1879    30
                                                                                                                 FCC1879    31
                                                                                                                 FCC1879    32
          1127  0400401127 +             CCL      SUBR                     ENTRY/EXIT.                           FCC1879    33
          1130  13777                             BX7    X7-X7             CBLEV=0                               FCC1879    34
                     5130000000 X                 SA3    LEVEL                                                   FCC1879    35
          1131  0303001127 +                      ZR     X3,EXIT.          IF NO LEVEL STATEMENTS                FCC1879    36
                          5150000000 X            SA5    N.COM                                                   FCC1879    37
          1132  0305001127 +                      ZR     X5,EXIT.          IF NO COMMON DECLARATIONS             FCC1879    38
                          5150000000 X            SA5    ORGTAB            I=0                                   FCC1879    39
          1133  5110000000 X                      SA1    O.COM                                                   FCC1879    40
                          5140000012              SA4    SYM1                                                    FCC1879    41
          1134  7244777776                        SX4    X4-1              (X4) = SYM1 -1                        FCC1879    42
                          53010                   SA0    X1                (A0) = FWA(T.COM)                     FCC1879    43
                               43072              MX0    -L.LVL                                                  FCC1879    44
                                                                                                                 FCC1879    45
                                        *         PROCESS NEXT COMMON BLOCK.                                     FCC1879    46
                                        *         (A5,X5) = ORGTAB (I)                                           FCC1879    47
                                        *         (X0)    =  M(-L.LVL)                                           FCC1879    48
                                        *         (A0)    =  FWA(T.COM)                                          FCC1879    49
                                                                                                                 FCC1879    50
          1135  63150                    CCL10    SB1    X5                CHIND=PNT[ORGTAB(I)]                  FCC1879    51
                     66700                        SB7    B0                ERROR FLAG = 0                        FCC1879    52
                          64101                   SB1    B1+A0             CHF = T.COM(CHIND)                    FCC1879    53
                               66210              SB2    B1                CHA = CHF                             FCC1879    54
                                                                                                                 FCC1879    55
                                        *         PROCESS NEXT COMMON BLOCK HEADER IN THE BLOCK.                 FCC1879    56
                                                                                                                 FCC1879    57
          1136  56120                    CCL20    SA1    B2                CHI = (CHA)                           FCC1879    58
                                                  LX1    -CH.LNKP                                                FCC1879    59
                     63610                        SB6    X1                CHLNK = LNK[CHI]                      FCC1879    60
                                   0              ERRNZ  18-CH.LNKL                                              FCC1879    61
                          20152                   LX1    CH.LNKP-CH.NMP                                          FCC1879    62
                               66350              SB3    B5                CMIND = 1                             FCC1879    63
          1137  63410                             SB4    X1                NMEM = NM[CHI]                        FCC1879    64
                                   0              ERRNZ  18-CH.NML                                               FCC1879    65
                                                                                                                 FCC1879    66
                                        *         PROCESS NEXT MEMBER OF THIS COMMON BLOCK APPEARANCE.           FCC1879    67
                                                                                                                 FCC1879    68
          1140  56223                    CCL30    SA2    B2+B3             CMI = (CHA + CMINK )                  FCC1879    69
                     20252                        LX2    -CM.SYMP                                                FCC1879    70
                          73220                   SX2    X2                                                      FCC1879    71
                                   0              ERRNZ  18-CM.SYML                                              FCC1879    72
                               20201              LX2    1                                                       FCC1879    73
          1141  37342                             IX3    X4-X2                                                   FCC1879    74
                     53130                        SA1    X3                WBI = TSYM(2*SYM[CMI])                FCC1879    75
                          20172                   LX1    -P.LVL                                                  FCC1879    76
                               15510              BX5    -X0*X1            MLEV = LVL[WBI]                       FCC1879    77
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    53
        EQV - CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION          CCL       CODE
  
          1142  13375                             BX3    X7-X5                                                   FCC1879    78
                     15330                        BX3    -X0*X3                                                  FCC1879    79
                          0303001161 +            ZR     X3,CCL80          IF CBLEN .EQ.MLEV                     FCC1879    80
          1143  0307001152 +                      ZR     X7,CCL60          IF CBLEV .EQ. 0                       FCC1879    81
                          0315001146 +            NZ     X5,CCL50          IF MLEV  .NE. 0                       FCC1879    82
          1144  12617                             BX6    X1+X7                                                   FCC1879    83
                     20602                        LX6    P.LVL                                                   FCC1879    84
                          54610                   SA6    A1                LVL[WBI] = 1                          FCC1879    85
          1145  0400001155 +                      EQ     CCL70             MARK NOT ALL MEMBER LEVELED           FCC1879    86
                                                                                                                 FCC1879    87
                                        *         CONFLICTING LEVELS DECLARED.                                   FCC1879    88
                                                                                                                 FCC1879    89
          1146  76270                    CCL50    SX2    B7                                                      FCC1879    90
                     20272                        LX2    58                                                      FCC1879    91
                          0332001152 +            MI     X2,CCL60          IF CONFLICT ALREADY FLAGGED           FCC1879    92
          1147  43201                             MX2    1                                                       FCC1879    93
                     56310                        SA3    B1                CHF =  FIRST BLOCK HEADER WORD        FCC1879    94
                          20273                   LX2    1+CH.CLCP                                               FCC1879    95
                               12623              BX6    X2+X3                                                   FCC1879    96
          1150  6177000002                        SB7    B7+2              INDICATE CONFLICT ALREADY FLAGGED     FCC1879    97
                          54630                   SA6    A3                CLC [CHF] = 1                         FCC1879    98
          1151  0400001161 +                      EQ     CCL80                                                   FCC1879    99
                                                                                                                 FCC1879   100
                                        *         SET BLOCK STANDARD LEVEL.                                      FCC1879   101
                                                                                                                 FCC1879   102
          1152  7275777775               CCL60    SX7    X5-MN.LCM                                               FCC1879   103
                          43601                   MX6    1                                                       FCC1879   104
                               15667              BX6    -X7*X6            SIGN BIT ON FOR LCM                   FCC1879   105
                                                  LX6    1+P.LCM-P.LVL                                           FCC1879   106
          1153  12756                             BX7    X5+X6             STANDARD LEVEL AND LCM BIT            FCC1879   107
                     0535001155 +                 NE     B3,B5,CCL70       IF NOT FIRST MEMBER                   FCC1879   108
          1154  0421001161 +                      EQ     B2,B1,CCL80       IF THIS IS THE FIRST BLOCK APPEARANCE FCC1879   109
                                                                                                                 FCC1879   110
                                        *         FLAG NOT ALL MEMBERS LEVELED AND GO OVER THE                   FCC1879   111
                                        *         ENTIRE BLOCK ONCE AGAIN TO SET LEVEL FOR EACH OF               FCC1879   112
                                        *         THE MEMBER.                                                    FCC1879   113
                                                                                                                 FCC1879   114
          1155  76270                    CCL70    SX2    B7                                                      FCC1879   115
                     20273                        LX2    59                                                      FCC1879   116
                          0332001161 +            MI     X2,CCL80          IF ERROR ALREADY FLAGGED              FCC1879   117
          1156  43201                             MX2    1                                                       FCC1879   118
                     56310                        SA3    B1                CMF = FIRST BLOCK HEADER WORD         FCC1879   119
                          20272                   LX2    1+CH.NALP                                               FCC1879   120
                               12623              BX6    X2+X3                                                   FCC1879   121
          1157  66757                             SB7    B5+B7             INDICATE NOTE ALREADY FLAGGED         FCC1879   122
                     54630                        SA6    A3                NAL[CHF] = 1                          FCC1879   123
                          66210                   SB2    B1                CHA = CHF                             FCC1879   124
          1160  0400001136 +                      EQ     CCL20             PASS OVER COMTAB AGAIN TO SET LEVEL   FCC1879   125
                                                                                                                 FCC1879   126
          1161  66335                    CCL80    SB3    B3+B5             CMIND = CMIND + 1                     FCC1879   127
                     0643001140 +                 LE     B3,B4,CCL30       IF MORE MEMBERS                       FCC1879   128
                               66226              SB2    B2+B6             CHA = CHA + CHLNK                     FCC1879   129
          1162  0560001136 +                      NZ     B6,CCL20          IF MORE BLOCK APPEARANCES REMAIN      FCC1879   130
                                                                                                                 FCC1879   131
                                        *         SET LCM[CHF] BIT IF LCM[WBI] = 1.                              FCC1879   132
                                        *                 (A1) = WBI  LAST PROCESSED                             FCC1879   133
                                                                                                                 FCC1879   134
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    54
        EQV - CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION          CCL       CODE
  
                          76550                   SX5    B5                                                      FCC1879   135
                               54110              SA1    A1                WBI                                   FCC1879   136
          1163  20173                             LX1    -P.LCM                                                  FCC1879   137
                     11751                        BX7    X5*X1             LCM[WBI]                              FCC1879   138
                          56310                   SA3    B1                CHF = FIRST BLOCK HEADER WORD         FCC1879   139
                               20765              LX7    CH.LENL+CH.LENP-1                                       FCC1879   140
          1164  12773                             BX7    X7+X3                                                   FCC1879   141
                     54730                        SA7    A3                LCM[CHF] = 1                          FCC1879   142
                                                                                                                 FCC1879   143
                          54555                   SA5    A5+B5             I=I+1                                 FCC1879   144
                               43700              MX7    0                 ERROR FLAG = 0                        FCC1879   145
          1165  0315001135 +                      NZ     X5,CCL10          IF MORE BLOCKS TO GO                  FCC1879   146
                          0400001127 +            EQ     EXIT.                                                   FCC1879   147
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    55
         ACA - ASSIGN COMMON ADDRESS S                                          CODE
  
                                        **        ACA - ASSIGN COMMON ADDRESS"S                                  FEAT129   503
                                        *                                                                        DPCLOSE  1768
                                        *         ASSIGNS RELATIVE ADDRESS"S TO COMTAB ENTRIES                   DPCLOSE  1769
                                        *         COMPUTES LENGTH OF EACH BLOCK, AND STORES RELATIVE ADDRESS     DPCLOSE  1770
                                        *         IN DIMTAB FOR ENTRIES HAVING THEM                              DPCLOSE  1771
                                        *                                                                        DPCLOSE  1772
                                        *         BLOCK MEMBER ENTRIES ARE REFORMATTED AS:                       DPCLOSE  1773
                                        *         6/0,18/BLOCK LEN,18/N.MEMBERS,18/LINK                          DPCLOSE  1774
                                        *         AND THE NAMES BECOME:                                          DPCLOSE  1775
                                        *         1/DIMFLAG,5/0,18/LENGTH,18/SYMORD,18/RA                        DPCLOSE  1776
                                        *                                                                        DPCLOSE  1777
                                                                                                                 DPCLOSE  1778
          1166  00000000000000000000     ACA                                                                     DPCLOSE  1779
          1167  5150000000 X                      SA5    N.COM                                                   DPCLOSE  1780
                          0305001166 +            ZR     X5,ACA            IF NO COMMON                          DPCLOSE  1781
          1170  5150000000 X                      SA5    ORGTAB      BLOCK NAME AND INDEX                        DPCLOSE  1782
                                                                                                                 DPCLOSE  1783
          1171  5140000012               ACA0     SA4    SYM1                                                    DPCLOSE  1784
                          7244777776              SX4    X4-1              X4 = SYM1-1                           DPCLOSE  1785
          1172  5130000000 X                      SA3    O.DIM                                                   DPCLOSE  1786
                          6273777776              SB7    X3-1              INDEX TO DIM TAB                      DPCLOSE  1787
          1173  76700                             SX7    B0                BLOCK LENGTH = 0                      DPCLOSE  1788
                                                                                                                 DPCLOSE  1789
          1174  5110000000 X             ACA1     SA1    O.COM                                                   DPCLOSE  1790
                          63150                   SB1    X5                                                      DPCLOSE  1791
                               63111              SB1    X1+B1       O.COM + ORGTAB(I)                           DPCLOSE  1792
          1175  56010                             SA0    B1          FWA OF THIS BLOCK                           DPCLOSE  1793
                     66200                        SB2    B0          INITIALIZE BLOCK-TOO-LONG FLAG              DPCLOSE  1794
                                                                                                                 DPCLOSE  1795
          1176  54100                    ACA2     SA1    A0          BLOCK NAME WORD                             DPCLOSE  1796
                     63610                        SB6    X1                LINK                                  DPCLOSE  1797
                          21122                   AX1    18                                                      DPCLOSE  1798
                               66350              SB3    B5                LOOP INDEX                            DPCLOSE  1799
          1177  63410                             SB4    X1                NUMBER OF MEMBERS IN THIS APPEARANCE  DPCLOSE  1800
                     43514                        MX5    L.DIMP                                                  DPCLOSE  1801
                          20565                   LX5    L.DIMP+P.DIMP                                           DPCLOSE  1802
                                                                                                                 DPCLOSE  1803
          1200  54203                    ACA3     SA2    A0+B3       MEMBER                                      DPCLOSE  1804
                     36672                        IX6    X7+X2             ADD ADDRESS                           DPCLOSE  1805
                          21221                   AX2    18-1                                                    DPCLOSE  1806
                               37342              IX3    X4-X2                                                   DPCLOSE  1807
          1201  53130                             SA1    X3                WORD B                                DPCLOSE  1808
                     11351                        BX3    X5*X1                                                   DPCLOSE  1809
                          21170                   AX1    P.TYP                                                   DPCLOSE  1810
                               21350              AX3    P.DIMP-1          DIMP INDEX                            DPCLOSE  1811
          1202  7221777774                        SX2    X1-T.DBL                                                DPCLOSE  1812
                          0303001205 +            ZR     X3,ACA4           IF NO DIM ENTRY                       DPCLOSE  1813
                                                                                                                 DPCLOSE  1814
                                        *         DIMENSIONED VARIABLE - SET DIM BIT IN COMTAB AND GET WC        DPCLOSE  1815
                                                                                                                 DPCLOSE  1816
          1203  43001                             MX0    1                                                       DPCLOSE  1817
                     53337                        SA3    X3+B7             WORD 2 OF DIM ENTRY                   DPCLOSE  1818
                          12606                   BX6    X0+X6             SET DIM ENTRY FLAG                    DPCLOSE  1819
                               21344              AX3    36                                                      DPCLOSE  1820
          1204  73030                             SX0    X3                X0 = WC                               DPCLOSE  1821
                     55735                        SA7    A3-B5             RA TO DIM ENTRY                       DPCLOSE  1822
                          0310001206 +            NZ     X0,ACA6           IF REALLY DIMENSIONED                 DPCLOSE  1823
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    56
         ACA - ASSIGN COMMON ADDRESS S                                          CODE
  
                                                                                                                 DPCLOSE  1824
          1205  76350                    ACA4     SX3    B5                                                      DPCLOSE  1825
                     21204                        AX2    L.TYP                                                   DPCLOSE  1826
                          15132                   BX1    -X2*X3            0 IF SINGLE , 1 IF DOUBLE             DPCLOSE  1827
                               73015              SX0    X1+B5                                                   DPCLOSE  1828
                                                                                                                 DPCLOSE  1829
                                        *         SUM BLOCK LENGTH, UPDATE COMTAB ENTRY                          DPCLOSE  1830
                                                                                                                 DPCLOSE  1831
          1206  36770                    ACA6     IX7    X7+X0             BL = BL+WC                            DPCLOSE  1832
                     43253                        MX2    -17                                                     FCC0527     4
                          11227                   BX2    X2*X7                                                   FCC0527     5
          1207  0302001211 +                      ZR     X2,ACA6.A   IF BLOCK LENGTH .LE. 1S17-1                 FCC0527     6
                          7170377777              SX7    377777B     BL = 1S17-1                                 DPCLOSE  1835
          1210  63270                             SB2    X7          ERROR FLAG .NE. 0                           DPCLOSE  1836
                                                                                                                 DPCLOSE  1837
          1211  20044                    ACA6.A   LX0    36                                                      DPCLOSE  1838
                     12606                        BX6    X0+X6             ADD WORD COUNT TO ENTRY               DPCLOSE  1839
                          54603                   SA6    A0+B3                                                   DPCLOSE  1840
                               66335              SB3    B3+B5             ADVANCE LOOP INDEX                    DPCLOSE  1841
          1212  0643001200 +                      LE     B3,B4,ACA3                                              DPCLOSE  1842
                                                                                                                 DPCLOSE  1843
                          54006                   SA0    A0+B6       BASE = BASE + LINK                          DPCLOSE  1844
          1213  0560001176 +                      NZ     B6,ACA2           IF MORE APPEARENCES TO GO             DPCLOSE  1845
                                                                                                                 DPCLOSE  1846
                          56110                   SA1    B1                FIRST BLOCK MEMBER APPEARENCE         DPCLOSE  1853
                               20744              LX7    36                                                      DPCLOSE  1854
          1214  36771                             IX7    X7+X1             INSTALL BLOCK LENGTH                  DPCLOSE  1855
                     54710                        SA7    A1                                                      DPCLOSE  1856
                                                                                                                 DPCLOSE  1857
                          54555                   SA5    A5+B5             NEXT BLOCK                            DPCLOSE  1858
                               76700              SX7    B0                BLOCK LENGTH = 0                      DPCLOSE  1859
                                                                                                                 DPCLOSE  1860
          1215  0420001224 +                      ZR     B2,ACA6.B   IF BLOCK NOT TOO LONG                       DPCLOSE  1861
                          55155                   SA1    A5-B5       ORGTAB HEADER FOR BLOCK                     DPCLOSE  1862
                               43052              MX0    42                                                      DPCLOSE  1863
          1216  7130000055                        SX3    1R                                                      DPCLOSE  1864
                          74750                   SX7    A5                                                      DPCLOSE  1865
                               11401              BX4    X0*X1       NAME                                        DPCLOSE  1866
          1217  5170000075 +                      SA7    TEMPREG                                                 DPCLOSE  1867
                          20460                   LX4    -12                                                     DPCLOSE  1868
                               12743              BX7    X4+X3                                                   DPCLOSE  1869
          1220  10377                             POSTERR  NR=E.BLKL,SEV=FE,FMT=DPC,TXT=X7                       DPCLOSE  1870
          1222  5110000075 +                      SA1    TEMPREG                                                 DPCLOSE  1871
                          53510                   SA5    X1                                                      DPCLOSE  1872
          1223  0315001171 +                      NZ     X5,ACA0     IF MORE BLOCKS TO PROCESS                   DPCLOSE  1873
                          0400001166 +            EQ     ACA                                                     DPCLOSE  1874
                                                                                                                 DPCLOSE  1875
          1224  0315001174 +             ACA6.B   NZ     X5,ACA1     IF MORE BLOCKS TO PROCESS                   DPCLOSE  1876
                          0400001166 +            EQ     ACA                                                     DPCLOSE  1877
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    57
        PDC - PERFORM DEFERRED CHECKS                                 PDC       CODE
  
                                        **        PDC - PERFORM DEFERRED CHECKS.                                 DPCLOSE  1879
                                                                                                                 DPCLOSE  1880
                                                                                                                 DPCLOSE  1881
          1225  0400401225 +             PDC      ENTRY. *                 ** ENTRY/EXIT **                      DPCLOSE  1882
          1226  5130000010 +                      SA3    DBLDECL                                                 DPCLOSE  1883
                          5150000012              SA5    SYM1                                                    DPCLOSE  1884
          1227  0303001241 +                      ZR     X3,PDC.L          IF NO TYPE DOUBLE OR COMPLEX DECLAR   DPCLOSE  1885
                                                                                                                 DPCLOSE  1886
                                        *         SCAN DIMTAB FOR DOUBLE PREC OR COMPLEX ARRAYS AND DOUBLE       DPCLOSE  1887
                                        *         THEIR LENGTHS.                                                 DPCLOSE  1888
                                                                                                                 DPCLOSE  1889
                          5110000000 X            SA1    O.DIM                                                   DPCLOSE  1890
          1230  5120000000 X                      SA2    L.DIM                                                   DPCLOSE  1891
                          63610                   SB6    X1                FWA OF DIMTAB                         DPCLOSE  1892
                               63726              SB7    B6+X2             LWA+1                                 DPCLOSE  1893
          1231  66255                             SB2    B5+B5             B2 = 2                                DPCLOSE  1894
                     43403                        MX4    3                                                       DPCLOSE  1895
                          20471                   LX4    3+54              TO EXTRACT VAR DIM FLAGS              DPCLOSE  1896
                               67305              SB3    -B5               B3 = -1                               DPCLOSE  1897
          1232  43021                             MX0    17                                                      DPCLOSE  1898
                     20065                        LX0    17+36             MASK TO EXTRACT TOTAL WC              DPCLOSE  1899
                                                                                                                 DPCLOSE  1900
          1233  56160                    PDC1     SA1    B6                WORD 1 OF DIM ENTRY                   DPCLOSE  1901
                     0667001241 +                 GE     B6,B7,PDC.L       IF FINISHED                           DPCLOSE  1902
                               21143              AX1    36-1                                                    DPCLOSE  1903
          1234  37251                             IX2    X5-X1                                                   DPCLOSE  1904
                     53323                        SA3    X2+B3             WORD B OF SYMTAB ENTRY                DPCLOSE  1905
                          66662                   SB6    B6+B2                                                   DPCLOSE  1906
                               21370              AX3    P.TYP                                                   DPCLOSE  1907
          1235  6243777774                        SB4    X3-T.DBL                                                DPCLOSE  1908
                          0740001233 +            NG     B4,PDC1           IF SINGLE PRECISION                   DPCLOSE  1909
          1236  0754001233 +                      GT     B4,B5,PDC1        IF NOT TYPE DOUBLE OR COMPLEX         DPCLOSE  1910
                          54115                   SA1    A1+B5             WORD 2 OF DIM ENTRY                   DPCLOSE  1911
                               11741              BX7    X4*X1                                                   DPCLOSE  1912
          1237  0317001233 +                      NZ     X7,PDC1           IF VARIABLE DIMS                      DPCLOSE  1913
                          11201                   BX2    X0*X1                                                   DPCLOSE  1914
                               36621              IX6    X2+X1             DOUBLE TOTAL WORD COUNT               DPCLOSE  1915
          1240  54610                             SA6    A1                                                      DPCLOSE  1916
                     0400001233 +                 EQ     PDC1                                                    DPCLOSE  1917
  
  
  
          1241  0100001127 +             PDC.L    RJ     CCL               COORDINATE COMMON LEVEL INFO          FCC1879   148
  
  
          1242  5130000000 X             PDC.V    SA3    VARDIM                                                  DPCLOSE  2050
                          0303001257 +            ZR     X3,PDC2           IF NO VARIABLE DIMENSIONED ARRAYS     DPCLOSE  2051
                                                                                                                 DPCLOSE  2052
                                        *         SCAN F.P. S IN SYMTAB AND CHECK TO SEE THAT ANY USED AS        DPCLOSE  2053
                                        *         SUBSCRIPTS TO ARRAYS ARE TYPE INTEGER                          DPCLOSE  2054
                                                                                                                 DPCLOSE  2055
          1243  5150000012                        SA5    SYM1                                                    DPCLOSE  2056
                                                                                                                 DPCLOSE  2057
          1244  5215777775               PDC.V1   SA1    X5-2                                                    DPCLOSE  2058
                          6110000052              SB1    59-P.FP                                                 DPCLOSE  2059
          1245  6120000026                        SB2    59-P.RL                                                 DPCLOSE  2060
                          7170000055              SX7    1R                                                      DPCLOSE  2061
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    58
        PDC - PERFORM DEFERRED CHECKS                                           CODE
  
                                                                                                                 DPCLOSE  2062
          1246  5011777775               PDC.VL   SA1    A1-2              WORD A                                DPCLOSE  2063
                          55215                   SA2    A1-B5             WORD B                                DPCLOSE  2064
                               22311              LX3    B1,X1                                                   DPCLOSE  2065
          1247  0323001257 +                      PL     X3,PDC2           IF NOT AN F.P.                        DPCLOSE  2066
                          22422                   LX4    B2,X2                                                   DPCLOSE  2067
          1250  0324001246 +                      PL     X4,PDC.VL         IF NOT USED AS AN ARRAY SUBSCRIPT     DPCLOSE  2068
                          21270                   AX2    P.TYP                                                   DPCLOSE  2069
                               63320              SB3    X2                                                      DPCLOSE  2070
          1251  0435001246 +                      EQ     B3,B5,PDC.VL      IF TYPE INTEGER                       DPCLOSE  2071
                                                                                                                 DPCLOSE  2072
                          7061000002              SX6    A1+2                                                    DPCLOSE  2073
          1252  5160000000 C                      SA6    TEMP              SAVE SYMTAB ADDRESS                   DPCLOSE  2074
                          43052                   MX0    L.NAME                                                  DPCLOSE  2075
                               11301              BX3    X0*X1                                                   DPCLOSE  2076
          1253  21314                             AX3    12                                                      DPCLOSE  2077
                     76400                        SX4    B0                                                      DPCLOSE  2078
                          12337                   BX3    X3+X7             X3 = 8R_NAME                          DPCLOSE  2079
          1254  6160000311                        SB6    E.FPNI                                                  DPCLOSE  2080
          1255  6170001256 +            +         SB7    *+1               RETURN ADDRESS                        DPCLOSE  2081
                          0400000000 X            EQ     ERPRO                                                   DPCLOSE  2082
                                                                                                                 DPCLOSE  2083
          1256  5150000000 C                      SA5    TEMP                                                    DPCLOSE  2084
                          0400001244 +            EQ     PDC.V1                                                  DPCLOSE  2085
                                                                                                                 DPCLOSE  2086
                                        *         INITIALIZE FOR EQUIVALENCE PROCESSING.                         FCC1289X 1612
                                        *         CREATE DIM ENTRIES FOR ALL MEMBERS OF NON-COMMON EQUIVALENCE   FCC1289X 1613
                                        *         GROUP WHICH DO NOT ALREADY HAVE ONE, AND MARK COMMON BLOCKS    FCC1289X 1614
                                        *         INVOLVED IN EQUIVALENCE.                                       FCC1289X 1615
                                                                                                                 FCC1289X 1616
          1257  5120000000 X             PDC2     SA2    L.EQV                                                   FCC1289X 1617
                          43673                   MX6    -1                                                      FCC1289X 1618
          1260  0302001225 +                      ZR     X2,PDC      IF NO EQUIVALENCE STATEMENTS                FCC1289X 1619
                          10166                   ADDWD  EQV,X6      ADD TERMINATOR WORD                         FCC1289X 1620
          1262  5110000000 X                      SA1    O.EQV                                                   FCC1289X 1621
                          5120000000 X            SA2    L.DIM                                                   FCC1289X 1622
          1263  63110                             SB1    X1          I= FWA OF EQV TABLE                         FCC1289X 1623
                     43014                        MX0    L.DIMP                                                  FCC1289X 1624
                          5130000000 X            SA3    O.COM                                                   FCC1289X 1625
          1264  5140000012                        SA4    SYM1                                                    FCC1289X 1626
                          20065                   LX0    L.DIMP+P.DIMP                                           FCC1289X 1627
                               66355              SB3    B5+B5                                                   FCC1289X 1628
          1265  43765                             MX7    -L.RB                                                   FCC1289X 1629
                     53040                        SA0    X4                                                      FCC1289X 1630
                          63720                   SB7    X2          DIMJ= (L.DIM)                               FCC1289X 1631
                               43501              MX5    1                                                       FCC1289X 1632
                                                  LX5    1+CH.EQUP                                               FCC1289X 1633
                                                                                                                 FCC1289X 1634
          1266  56110                    PDC4     SA1    B1          EQV1(I)                                     FCC1289X 1635
                     66113                        SB1    B1+B3       I= I+2                                      FCC1289X 1636
                          0331001276 +            MI     X1,PDC8     IF END OF EQV TABLE                         FCC1289X 1637
                                                  LX1    -E1.SY2P                                                FCC1289X 1638
          1267  63415                             SB4    X1+B5       STIND= SY2[EQV1(I)]+1                       FCC1289X 1639
                     55204                        SA2    A0-B4       SYMB= SYMTAB(STIND)                         FCC1289X 1640
                          11402                   BX4    X0*X2       DIMP= DIMP[SYMB]                            FCC1289X 1641
                               20260              LX2    -P.RB                                                   FCC1289X 1642
          1270  15627                             BX6    -X7*X2      RBI= RB[SYMB]                               FCC1289X 1643
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    59
        PDC - PERFORM DEFERRED CHECKS                                           CODE
  
                     0316001274 +                 NZ     X6,PDC6     IF RBI  NE  0                               FCC1289X 1644
          1271  0314001266 +                      NZ     X4,PDC4     IF DIMP  NE  0                              FCC1289X 1645
                          76673                   SX6    B7+B3       DIMP= DIMJ+2                                FCC1289X 1646
                               20650              LX6    P.DIMP-1                                                FCC1289X 1647
          1272  20214                             LX2    P.RB                                                    FCC1289X 1648
                     12662                        BX6    X6+X2                                                   FCC1289X 1649
                          54620                   SA6    A2          DIMP[SYMB]= DIMJ                            FCC1289X 1650
                               66773              SB7    B7+B3       DIMJ= DIMJ+2                                FCC1289X 1651
          1273  0400001266 +                      EQ     PDC4                                                    FCC1289X 1652
                                                                                                                 FCC1289X 1653
                                        *         FOR THOSE IN COMMON, MARK EQU BIT ON BLOCK HEADER.             FCC1289X 1654
                                                                                                                 FCC1289X 1655
          1274  5246777776 X             PDC6     SA4    ORGTAB-1+X6  IND= PNT[ORGTAB(RBI)]                      FCC1289X 1656
                          36434                   IX4    X3+X4                                                   FCC1289X 1657
                               53140              SA1    X4          CHI= COMTAB(IND)                            FCC1289X 1658
          1275  12651                             BX6    X5+X1                                                   FCC1289X 1659
                     54610                        SA6    A1          EQU[CHI]= 1                                 FCC1289X 1660
                          0400001266 +            EQ     PDC4                                                    FCC1289X 1661
                                                                                                                 FCC1289X 1662
                                        *         FOR EACH EQUIVALENCED COMMON BLOCK, CREATE DIM ENTRIES FOR     FCC1289X 1663
                                        *         THOSE MEMBERS THAT DO NOT ALREADY HAVE ONE.                    FCC1289X 1664
                                        *                (X3)= O.COM                                             FCC1289X 1665
                                                                                                                 FCC1289X 1666
          1276  5110000000 X             PDC8     SA1    N.COM                                                   FCC1289X 1667
                          5150777776 X            SA5    ORGTAB-1    ITAB= 0                                     FCC1289X 1668
          1277  0301001311 +                      ZR     X1,PDC16    IF NO COMMON BLOCKS                         FCC1289X 1669
                                                                                                                 FCC1289X 1670
          1300  54555                    PDC9     SA5    A5+B5       ITAB= ITAB+1                                FCC1289X 1671
                     36435                        IX4    X3+X5       IND= PNT[ORGTAB(ITAB)]                      FCC1289X 1672
                          0305001311 +            ZR     X5,PDC16    IF NO MORE BLOCKS TO GO                     FCC1289X 1673
          1301  53140                             SA1    X4          CHI= COMTAB(IND)                            FCC1289X 1674
                                                  LX1    -1-CH.EQUP                                              FCC1289X 1675
                     66200                        SB2    B0          LINK= 0                                     FCC1289X 1676
                          0321001300 +            PL     X1,PDC9     IF EQU[CHI]  NE  1                          FCC1289X 1677
                                                                                                                 FCC1289X 1678
          1302  54112                    PDC10    SA1    A1+B2       CHI= COMTAB(IND+LINK)                       FCC1289X 1679
                                                  LX1    -CH.LNKP                                                FCC1289X 1680
                     63210                        SB2    X1          LINK= LNK[CHI]                              FCC1289X 1681
                          20152                   LX1    CH.LNKP-CH.NMP                                          FCC1289X 1682
                               63610              SB6    X1          N.MEM= NM[CHI]                              FCC1289X 1683
          1303  0460001310 +             PDC12    ZR     B6,PDC14    IF NO MORE MEMBERS                          FCC1289X 1684
                          54216                   SA2    A1+B6       CMI= COMTAB(IND+N.MEM)                      FCC1289X 1685
                               20253              LX2    -CM.SYMP+1                                              FCC1289X 1686
          1304  63425                             SB4    X2+B5       STIND= SYM[CMI]+1                           FCC1289X 1687
                     55404                        SA4    A0-B4       SYMB = SYMTAB(STIND)                        FCC1289X 1688
                          11604                   BX6    X0*X4       DIMP= DIMP[SYMB]                            FCC1289X 1689
                               67665              SB6    B6-B5       N.MEM= N.MEM-1                              FCC1289X 1690
          1305  0316001303 +                      NZ     X6,PDC12    IF DIMP  NE  0                              FCC1289X 1691
                          76773                   SX7    B7+B3       DIMP= DIMJ+2                                FCC1289X 1692
                               66773              SB7    B7+B3       DIMJ= DIMJ+2                                FCC1289X 1693
          1306  20750                             LX7    P.DIMP-1                                                FCC1289X 1694
                     12674                        BX6    X7+X4                                                   FCC1289X 1695
                          54640                   SA6    A4          DIMP[SYMB]= DIMP                            FCC1289X 1696
          1307  0400001303 +                      EQ     PDC12                                                   FCC1289X 1697
                                                                                                                 FCC1289X 1698
          1310  0520001302 +             PDC14    NZ     B2,PDC10    IF LNK[CHI]  NE  0                          FCC1289X 1699
                          0400001300 +            EQ     PDC9                                                    FCC1289X 1700
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    60
        PDC - PERFORM DEFERRED CHECKS                                           CODE
  
                                                                                                                 FCC1289X 1701
                                        *         UPDATE DIMTAB LENGTH, CLEAR OUT NEW ENTRIES.                   FCC1289X 1702
                                                                                                                 FCC1289X 1703
          1311  5120000000 X             PDC16    SA2    L.DIM                                                   FCC1289X 1704
                          76770                   SX7    B7                                                      FCC1289X 1705
                               63620              SB6    X2                                                      FCC1289X 1706
          1312  0467001225 +                      EQ     B6,B7,PDC   IF NO CHANGE IN L.DIM                       FCC1289X 1707
                          5170000000 C            SA7    TEMP                                                    FCC1289X 1708
          1313  77576                             ALLOC  DIM,B7-B6   ALLOCATE FOR THE EXTRA DIM ENTRIES          FCC1289X 1709
          1315  5110000000 X                      SA1    O.DIM                                                   FCC1289X 1710
                          5120000000 X            SA2    L.DIM                                                   FCC1289X 1711
          1316  36112                             IX1    X1+X2       STARTING ENTRY TO BE CLEARED                FCC1289X 1712
                     5130000000 C                 SA3    TEMP        NEW L.DIM                                   FCC1289X 1713
                               10633              BX6    X3                                                      FCC1289X 1714
          1317  54620                             SA6    A2          L.DIM= NEW L.DIM                            FCC1289X 1715
                     37232                        IX2    X3-X2       NO. ENTRIES TO BE CLEARED                   FCC1289X 1716
                          13666                   SETZERO X1,X2                                                  FCC1289X 1717
          1321  0400001225 +                      EQ     PDC                                                     FCC1289X 1718
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    61
        ETC - ENTRY POINT, TRACEBACK, AND F.P. INFO TO COMPS          ETC       CODE
  
                                        **        ETC - ENTRY POINT, TRACEBACK, AND F.P. INFO TO COMPS.          FEAT129   505
                                        *                                                                        FEAT129   506
                                        *         ENTRY  (B5) = 1                                                FEAT129   507
                                        *                                                                        FEAT129   508
                                        *         CALLS  ESF     *PH1CTL*                                        FEAT129   509
                                        *                FMAC    *STMTP*                                         FEAT129   510
                                        *                F1AMAC  *STMTP*                                         FEAT129   511
                                        *                OUTUSE  *LSTPRO*                                        FEAT129   512
                                        *                SVARG   *STMTP*                                         FEAT129   513
                                                                                                                 FEAT129   514
                                                                                                                 FEAT129   515
                                  14 C   TNFP     EQU    NARGS+12          SCRATCH CELL IN /MACBUF/              FEAT129   516
                                        *                                  FOR *FORPAR* LOOP.                    FEAT129   517
                                                                                                                 FEAT129   518
                                                                                                                 FEAT129   519
          1322  0400401322 +             ETC      ENTRY. *                 ** ENTRY/EXIT **                      FEAT129   520
                                                                                                                 FEAT129   521
          1323  5110000056                        SA1    PROGRAM                                                 FEAT129   522
                          26121                   UX1    B2,X1                                                   FEAT129   523
          1324  0602001322 +                      LE     B2,B0,ETC         IF A PROGRAM OR BLOCK DATA SUBPROG    FEAT129   524
                                                                                                                 FEAT129   525
                          0100000000 X            RJ     =XESF             ENTER SPECIAL SYMBOLS IN SYMTAB       FEAT129   526
                                                                                                                 FEAT129   527
          1325  7160000000 X                      OUTUSE START.                                                  FEAT129   528
                                                                                                                 FEAT129   529
                                        *         ISSUE *TRACE* MACRO TO COMPS.                                  FEAT129   530
                                                                                                                 FEAT129   531
          1326  66700                             INTARG                                                         FEAT129   532
                     76650                        SX6    B5                                                      FEAT129   533
                          66600                   SVARG  NAME,B5           ARG 1 = PROGRAM NAME                  FEAT129   534
          1330  76650                             SX6    B5                                                      FEAT129   535
                     66600                        SVARG  NAME,2            ARG 2 = PROGRAM NAME                  FEAT129   536
          1332  5110000000 X                      SA1    =XTEMPA0.                                               FEAT129   537
                          5120000000 X            SA2    =XN.FP                                                  FEAT129   538
          1333  0301001336 +                      ZR     X1,ETC1           IF NO FP S OR RETURNS                 FEAT129   539
                          73620                   SX6    X2                                                      FEAT129   540
                               66650              SVARG  OCT,3             ARG 3 = NUMBER OF FP S                FEAT129   541
                                                                                                                 FEAT129   542
          1336  77707                    ETC1     NARGS= B7                                                      FEAT129   543
          1337  5110000005 +                      FMAC   TRACE             OUTPUT TRACE MACRO CALL               FEAT129   544
                                                                                                                 FEAT129   545
                                        *         ISSUE *PENTRY* MACRO TO COMPS.                                 FEAT129   546
                                                                                                                 FEAT129   547
          1340  66700                             INTARG                                                         FEAT129   548
                     76650                        SX6    B5                                                      FEAT129   549
                          66600                   SVARG  NAME,B5           ARG 1 = PROGRAM NAME                  FEAT129   550
          1342  5110000000 X                      SA1    =XENTRY.                                                FEAT129   551
                          10611                   BX6    X1                                                      FEAT129   552
                               66600              SVARG  NAME,2            ARG 2 = ENTRY.                        FEAT129   553
          1345  5110000000 X                      SA1    =XFUNTYPE                                               FEAT129   554
                          10611                   BX6    X1                                                      FEAT129   555
                               66655              SVARG  INT,3             ARG 3 = WDS IN FUNCTION RESULT        FEAT129   556
          1350  5110000000 X                      SA1    =XCO.ER                                                 FEAT155A   13
                          5120000000 X            SA2    =XSTART.                                                FEAT155A   14
          1351  22651                             LX6    B5,X1                                                   FEAT155A   15
                     36726                        IX7    X2+X6                                                   FEAT155A   16
                          54720                   SA7    A2          START. = START.+1  */IF ER"0                FEAT155A   17
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    62
        ETC - ENTRY POINT, TRACEBACK, AND F.P. INFO TO COMPS          ETC       CODE
  
                               66655              SVARG  INT,4       ARG4=ER                                     FEAT155A   18
          1354  77707                             NARGS= B7                                                      FEAT129   557
          1355  5110000006 +                      FMAC   PENTRY            OUTPUT PENTRY MACRO CALL              FEAT129   558
                                                                                                                 FEAT129   559
          1356  5110000000 X                      SA1    =XN.FP                                                  FEAT129   560
                          0301001322 +            ZR     X1,ETC            IF NO F.P. S                          FEAT129   561
                                                                                                                 FEAT129   562
          1357  5130000000 X                      SA3    =XMACFLAG                                               FEAT129   563
                          0303001322 +            ZR     X3,ETC            IF F.P.S DONT HAVE TO BE OUTPUT       FEAT129   564
                                                                                                                 FEAT129   565
                                        *         ISSUE *FORPAR* MACRO CALLS TO COMPS TO ESTABLISH THE ORDER     FEAT129   566
                                        *         OF THE F.P. BLOCKS.                                            FEAT129   567
                                                                                                                 FEAT129   568
          1360  7160000000                        SX6    0                                                       FEAT129   569
                          5160000014 C            SA6    TNFP                                                    FEAT129   570
                                                                                                                 FEAT129   571
          1361  7266000002               ETC2     SX6    X6+2              SYMTAB ORD OF F.P.                    FEAT129   572
                          5110000007 +            F1AMAC FORPAR            OUTPUT *FORPAR* MACRO CALL            FEAT129   573
          1363  5110000014 C                      SA1    TNFP                                                    FEAT129   574
                          5120000000 X            SA2    =XN.FP                                                  FEAT129   575
          1364  73615                             SX6    X1+B5             TNFP=TNFP+1                           FEAT129   576
                     46000                        NO                                                             FEAT129   577
                          37062                   IX0    X6-X2             TNFP-N.FP                             FEAT129   578
                               54610              SA6    A1                                                      FEAT129   579
          1365  0330001361 +                      MI     X0,ETC2           IF MORE F.P.S                         FEAT129   580
                          0400001322 +            EQ     ETC               EXIT                                  FEAT129   581
                                                                                                                 DPCLOSE  2208
          1366                           O.CET    END                      FWA OF COMMON EQUIVALENCE TBL         DPCLOSE  2209
  
                             66400B CM  STORAGE USED             4657 STATEMENTS      926 SYMBOLS      000016 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.640 SECONDS        1261 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACA          1166   PROGRAM*        7/23     55/13 L   55/15     56/46     56/49
        ACA0         1171   PROGRAM*       55/18 L   56/45
        ACA1         1174   PROGRAM*       55/24 L   56/48
        ACA2         1176   PROGRAM*       55/30 L   56/23
        ACA3         1200   PROGRAM*       55/38 L   56/20
        ACA4         1205   PROGRAM*       55/47     56/02 L
        ACA6         1206   PROGRAM*       55/57     56/09 L
        ACA6.A       1211   PROGRAM*       56/12     56/16 L
        ACA6.B       1224   PROGRAM*       56/33     56/48 L
        ADDWD           0   EXTERNAL*       8/10     58/34
        ALA           265   PROGRAM*        7/27     19/09 L   20/37     20/42
        ALAX          322   PROGRAM*       19/41     20/30 L
        ALA0          273   PROGRAM*       19/11     19/14 L
        ALA1          304   PROGRAM*       19/12     19/40 L   19/46     19/54     19/55     20/04     20/21     20/26
        ALA.E         320   PROGRAM*       19/51     20/24 L
        ALA.P         315   PROGRAM*       19/12 S   20/15 L
        ALLAE           0   EXTERNAL*      14/37     19/14
        ALLOC           0   EXTERNAL*       8/17     30/12     33/39     39/13     39/20     60/09
        ASAER           0   EXTERNAL*       1/55 X   45/40
        BLKNAM         71   PROGRAM*        8/56 L   10/30
        BSS.OP        170   PROGRAM*       12/10     12/17     12/41     12/57     13/06 L
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        CBUF           11   MACBUF          6/52 D   17/44 S   17/54     21/34
        CCL          1127   PROGRAM*       44/11     52/13 L   57/43
        CCL10        1135   PROGRAM*       52/31 L   54/12
        CCL20        1136   PROGRAM*       52/38 L   53/48     53/53
        CCL30        1140   PROGRAM*       52/49 L   53/51
        CCL50        1146   PROGRAM*       53/05     53/13 L
        CCL60        1152   PROGRAM*       53/04     53/15     53/26 L
        CCL70        1155   PROGRAM*       53/09     53/31     53/38 L
        CCL80        1161   PROGRAM*       53/03     53/22     53/32     53/40     53/50 L
        CH.CLCP        72                   4/17 D   17/25     17/29     53/18
        CH.EQUP        73                   4/16 D
        CH.EVLP        67                   4/20 D   17/17     17/21     47/15
        CH.LEEP        70                   4/19 D   17/21     17/25     50/02     51/11
        CH.LENL        22                   4/22 D   54/06
        CH.LENP        44                   4/22 D   34/22     34/29     54/06
        CH.LNKL        22                   4/24 D   52/41
        CH.LNKP         0                   4/24 D   34/22     52/42     59/39
        CH.NALP        71                   4/18 D   17/29     50/20     51/35     53/43
        CH.NML         22                   4/23 D   52/45
        CH.NMP         22                   4/23 D   31/40     34/08     34/33     52/42     59/39
        CLE          1050   PROGRAM*       44/10     49/09 L   50/37
        CLE10        1053   PROGRAM*       49/18 L   50/25     51/57
        CLE20        1060   PROGRAM*       49/32     49/41 L   49/48     49/54     50/05     50/08     50/16     50/23
        CLE25        1067   PROGRAM*       49/55     50/07 L
        CLE30        1070   PROGRAM*       49/49     50/12 L
        CLE45        1074   PROGRAM*       49/42     50/25 L
        CLE50        1075   PROGRAM*       49/19     50/34 L
        CLE60        1076   PROGRAM*       50/36 L   51/21
        CLE70        1103   PROGRAM*       50/50     50/53 L
        CLE75        1106   PROGRAM*       51/02     51/06 L
        CLE80        1111   PROGRAM*       50/53     51/04     51/20 L   51/28     51/38
                                           50/54     51/07     51/27     51/31
        CLE.E        1117   PROGRAM*       50/26     51/42 L
        CLI             5   MACBUF          6/50 D   10/25 S   11/16     12/46
        CLOC            7   MACBUF          6/51 D   11/22 S   12/28
        CM.DMP         73                   4/27 D
        CM.RAL         22                   4/31 D
        CM.RAP          0                   4/31 D   32/08
        CM.SYML        22                   4/30 D   52/52
        CM.SYMP        22                   4/30 D   32/05     32/08     52/50     59/43
        CM.WCL         22                   4/29 D   31/55     32/26     32/32     33/17
        CM.WCP         44                   4/29 D   32/02     32/05
        CNVT            0   EXTERNAL*      11/57
        CON.            0   EXTERNAL*       2/02 X    8/37 S
        CO.ER           0   EXTERNAL*      61/53
        CTBLOVL         0   EXTERNAL*       2/09 X    2/10
        C.BLOCK         0   EXTERNAL*       2/01 X   10/23 S
        DATA..          0   EXTERNAL*       2/01 X   19/21     20/30 S   41/53
        DBLDECL        10   PROGRAM*        3/44 E    3/44 L   57/05
        DFLAG           0   EXTERNAL*       1/54 X    8/39     14/56
        DIM1           17                   1/46 D    7/49 S
        DINPH2          0   EXTERNAL*       8/41
        DIRECT          0   EXTERNAL*      11/45     15/02
        DPCLOSE        12   PROGRAM*        1/52 E    7/01 L    8/54
        DPC1           34   PROGRAM*        7/42      7/44 L
        DPC2           55   PROGRAM*        8/08      8/12      8/15      8/32 L
        DPC3           65   PROGRAM*        8/40      8/43      8/47 L
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        D1.BIAL        22                   4/44 D    4/45
        D1.BIAP        22                   4/44 D    4/45     43/03
        D1.LOCP        73                   4/41 D
        D1.RAL         22                   4/46 D
        D1.RAP          0                   4/46 D
        D1.SPNL        22                   4/45 D
        D1.SPNP        22                   4/45 D   42/01
        D1.SYML        22                   4/43 D
        D1.SYMP        44                   4/43 D   41/39
        D2.NDL          3                   4/49 D   24/11     24/15 F
        D2.NDP         71                   4/49 D   24/20
        D2.NVSL         3                   4/50 D
        D2.NVSP        66                   4/50 D
        D2.SAL         22                   4/53 D
        D2.SAP          0                   4/53 D   24/54
        D2.SBL         22                   4/52 D
        D2.SBP         22                   4/52 D   24/54
        D2.WCL         22                   4/51 D   24/21     24/22
        D2.WCP         44                   4/51 D   24/26     24/43     45/10     45/18
                                           24/22     24/28     43/20     45/12
        ECSCOM          1   MACBUF          6/45 D   20/25 S   20/36
        EC.BIAL        22                   5/22 D    5/23
        EC.BIAP         0                   5/22 D    5/23
        EC.CBP         73                   5/17 D
        EC.NML         22                   5/23 D
        EC.NMP          0                   5/23 D   47/31     49/24     50/42
        EC.SPNL        22                   5/20 D
        EC.SPNP        44                   5/20 D   41/31     41/35
        EC.SYML        22                   5/21 D
        EC.SYMP        22                   5/21 D   41/39     47/31     49/44     51/23
                                           41/24     43/01     49/24     50/42
        EC.WCL         22                   5/19 D    5/20
        EC.WCP         44                   5/19 D    5/20     43/22
        ENTRY.          0   EXTERNAL*      61/47
        EO.FWAL        22                   5/37 D   30/42     30/46     32/32     37/41
        EO.FWAP        42                   5/37 D   31/56     32/30     35/39     41/28
                                           30/47     32/04     32/34     37/40
        EO.GFIL        20                   5/39 D   32/42     35/19
        EO.GFIP         0                   5/39 D   35/35     35/49     36/03
        EO.LWAL        22                   5/38 D   32/26     35/54     36/21
        EO.LWAP        20                   5/38 D   32/04     34/21     35/36     35/49     36/09     41/28
                                           31/01     32/30     35/35     35/39     36/03     41/25
        EO.RBL         10                   5/36 D   31/32     35/21     41/16
        EO.RBP         64                   5/36 D   30/55     31/33     41/20     41/25
        EQV           330   PROGRAM*        7/25     23/05 L   23/08
        EQV020        335   PROGRAM*       23/22 L   24/31     25/12     45/49
        EQV021        345   PROGRAM*       23/47     23/51 L
        EQV030        357   PROGRAM*       24/24     24/37 L
        EQV040        366   PROGRAM*       24/45     24/53     25/04 L
        EQV100        372   PROGRAM*       23/24     26/06 L
        EQV105        374   PROGRAM*       26/16 L   27/16     29/08     47/05
        EQV110        400   PROGRAM*       26/31 L   26/36
        EQV120        402   PROGRAM*       26/41 L   26/49
        EQV130        406   PROGRAM*       26/35     26/55 L
        EQV140        412   PROGRAM*       26/44     27/12 L
        EQV150        416   PROGRAM*       27/13     27/22 L
        EQV160        425   PROGRAM*       27/27     27/44 L
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        EQV170        430   PROGRAM*       27/50     28/02 L
        EQV190        435   PROGRAM*       27/52     28/23 L   46/13     46/15     46/24     46/29     46/39
        EQV200        454   PROGRAM*       26/18     30/09 L
        EQV220        463   PROGRAM*       30/30 L   30/39     31/07
        EQV225        472   PROGRAM*       30/54 L   47/12     47/21
        EQV230        475   PROGRAM*       30/31     31/13 L
        EQV240        501   PROGRAM*       31/30 L   31/36     34/31
        EQV245        505   PROGRAM*       31/42 L   34/34
        EQV255        506   PROGRAM*       31/52 L   32/15     32/17     32/54     34/10
        EQV273        521   PROGRAM*       32/27     32/29 L
        EQV275        525   PROGRAM*       32/49 L   32/55
        EQV280        530   PROGRAM*       32/50     33/04 L
        EQV290        553   PROGRAM*       31/43     31/52     34/17 L
        EQV295        560   PROGRAM*       34/27     34/31 L
        EQV300        562   PROGRAM*       31/31     35/08 L
        EQV310        565   PROGRAM*       35/18 L   35/27     35/30     35/42     36/33
        EQV330        577   PROGRAM*       35/55     36/02 L
        EQV350        610   PROGRAM*       35/20     36/42 L   36/45     36/54
        EQV400        614   PROGRAM*       35/14     36/44     37/14 L
        EQV410        616   PROGRAM*       37/21 L   37/54     37/56     38/34
        EQV420        627   PROGRAM*       37/29     38/07 L
        EQV500        635   PROGRAM*       37/22     39/11 L
        EQV510        650   PROGRAM*       39/45 L   40/11
        EQV515        656   PROGRAM*       40/06     40/07     40/09 L
        EQV520        657   PROGRAM*       39/46     40/17 L
        EQV530        664   PROGRAM*       40/43 L   42/04     42/33     43/26
        EQV535        672   PROGRAM*       41/04     41/15 L
        EQV550        705   PROGRAM*       41/40     42/13 L
        EQV560        713   PROGRAM*       40/55     42/40 L
        EQV570        720   PROGRAM*       42/50     42/57 L
        EQV580        727   PROGRAM*       40/44     43/31 L
        EQV585        733   PROGRAM*       43/53 L   44/03     47/47
        EQV590        740   PROGRAM*       43/54     44/05 L
        EQV595        744   PROGRAM*       44/09     44/13 L
        EQ.E10        746   PROGRAM*       24/23     45/06 L
        EQ.E20        751   PROGRAM*       24/41     45/17 L
        EQ.E30        753   PROGRAM*       25/09     45/23 L
        EQ.E32        754   PROGRAM*       45/08     45/13     45/19     45/24 L
        EQ.E34        763   PROGRAM*       45/35     45/38 L
        EQ.E36        765   PROGRAM*       45/39     45/42 L
        EQ.E38        766   PROGRAM*       45/36     45/40     45/43 L
        EQ.E40        771   PROGRAM*       27/28     45/54 L
        EQ.E50        774   PROGRAM*       28/02     46/06 L
        EQ.E60       1000   PROGRAM*       27/51     46/21 L
        EQ.E70       1003   PROGRAM*       28/09     28/13     46/33 L
        EQ.E75       1006   PROGRAM*       29/09     46/43 L
        EQ.E76       1007   PROGRAM*       46/01     46/04     46/46 L
        EQ.E77       1013   PROGRAM*       46/52     46/55 L
        EQ.E79       1014   PROGRAM*       46/53     46/56 L
        EQ.E80       1017   PROGRAM*       30/49     30/52     47/10 L
        EQ.E90       1024   PROGRAM*       43/57     47/28 L
        ERPRO           0   EXTERNAL*       1/55 X   20/43     46/55     51/49     58/21
                                           17/52     45/36     47/38     56/42
        ERPROI          0   EXTERNAL*       1/55 X   17/50     45/42     46/53
        ESF             0   EXTERNAL*      61/22
        ETC          1322   PROGRAM*        7/12     61/16 L   61/20     62/06     62/09     62/26
        ETC1         1336   PROGRAM*       61/35     61/39 L
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        ETC2         1361   PROGRAM*       62/17 L   62/25
        E1.GORL        20                   5/53 D   25/10     27/05     27/38     29/03     36/25     45/27
                                           23/26     26/23     27/14     28/24     30/35     36/28
                                           23/29     26/43     27/23     28/29     30/35     37/27
                                           24/29     26/43     27/23     28/47     33/22     37/27
        E1.GORP        54                   5/53 D
        E1.SY2L        54                   5/54 D   25/10     27/05     27/38     28/29     33/22     45/27
                                           24/29     25/10     27/14     27/38     29/03     33/22
                                           24/29     27/05     27/14     28/29     29/03     36/28
        E1.SY2P         0                   5/54 D
        E2.NSL          3                   5/57 D   24/15 F
        E2.NSP         71                   5/57 D   24/20     24/38
        E2.SAL         22                   6/04 D
        E2.SAP          0                   6/04 D   24/48
        E2.SBL         22                   6/03 D
        E2.SBP         22                   6/03 D   24/48     24/57
        E2.SCL         22                   6/02 D
        E2.SCP         44                   6/02 D   24/57
        E.BLKL        440                   3/23 D   56/42
        E.CBE         141                   3/34 D   46/25     46/35
        E.CER         142                   3/35 D   46/03     46/12
        E.CLC         444                   3/24 D   17/27
        E.DRE         345                   3/37 D   45/23
        E.EQVL        452                   3/27 D   17/18
        E.E1N         134                   3/32 D   47/38
        E.FPNI        311                   3/20 D   58/19
        E.LECS        312                   3/22 D   20/41
        E.LEE         446                   3/26 D   17/22     51/49
        E.NAL         445                   3/25 D   17/30     17/48
        E.NOS         326                   3/36 D   45/17     45/38
        E.RER         137                   3/31 D   45/55     46/07     46/51
        E.S>D         140                   3/33 D   45/06     45/34
        FMAC            0   EXTERNAL*      61/40     62/03
        FUNTYPE         0   EXTERNAL*      61/50
        F1AMAC          0   EXTERNAL*      62/18
        F2.BIAL        22                   6/29 D   38/23     38/29
        F2.BIAP        22                   6/29 D   37/51     38/24     38/31     39/56     40/01
        F2.EOIL        20                   6/28 D   37/35     39/42
        F2.EOIP        44                   6/28 D   36/49     37/36     37/43     39/51     39/56
        F2.FWAL        22                   6/30 D
        F2.FWAP         0                   6/30 D
        F.CMPS          0   EXTERNAL*      11/12
        F.LFN           0   EXTERNAL*       2/08 X    8/13
        G1.ADRL        44                   6/18 D   27/12
        G1.ADRP         0                   6/18 D
        G1.COMP        66                   6/14 D   23/41     28/33     28/37     33/13     40/05
        G1.RAL         22                   6/17 D   33/17     37/25     37/49     38/23
                                           28/25     36/21     37/41     38/18
        G1.RAP          0                   6/17 D    6/18     30/40     37/38     38/14     38/17     38/24
        G1.RBL         22                   6/16 D   27/47     30/46     37/49     38/18
        G1.RBP         22                   6/16 D   28/03     37/38     38/17     42/43
                                           23/52     30/40     38/14     38/21     42/45
        G1.SYML        22                   6/15 D   26/19     26/22     28/27     32/45     32/47
        G1.SYMP        44                   6/15 D   26/22     28/33     32/43     41/19     45/30     46/36
                                           23/35     27/48     28/35     32/47     42/45     45/56
        G2.HIL         22                   6/23 D
        G2.HIP         22                   6/23 D   27/03     28/53     28/56     29/05     30/44
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        G2.LOL         22                   6/24 D
        G2.LOP          0                   6/24 D   28/53     28/56     30/44
        G2.PL          20                   6/21 D
        G2.PP          54                   6/21 D
        INITBL          0   EXTERNAL*       2/03 X    7/10      7/45
        ISC            76   PROGRAM*        7/33     10/12 L   10/16     12/56     13/04
        ISC1          104   PROGRAM*       10/28 L   12/51
        ISC1C         126   PROGRAM*       11/29 L   11/39
        ISC1D         127   PROGRAM*       11/33 L   11/37
        ISC1.A        112   PROGRAM*       10/46     10/49 L
        ISC1.B        135   PROGRAM*       11/46     11/48 L
        ISC2          136   PROGRAM*       11/47     11/54 L
        ISC3          146   PROGRAM*       11/50     12/17 L
        ISC4          150   PROGRAM*       12/23 L   12/35
        ISC5          155   PROGRAM*       12/15     12/37 L
        ISC6          161   PROGRAM*       12/38     12/39     12/46 L
        ISC.L         163   PROGRAM*       10/21     12/53 L
        LCMBLK         73   PROGRAM*        8/57 L   10/47
        LCMERR          2   MACBUF          6/46 D
        LCMORD          3   MACBUF          6/47 D   10/45 S   11/44
        LEVEL           0   EXTERNAL*      10/14     44/06     52/15
        LOWCORE         0   EXTERNAL*       2/04 X   14/35 S
        L.COM           0   EXTERNAL*       7/43 S   14/48
        L.DIM           0   EXTERNAL*      57/13     58/36     60/04     60/11
        L.DIMP         14   FTNTEXT        19/32     23/23     41/27     43/05     55/35     58/38
                                           19/34     23/25     41/33     43/06     55/36     58/41
        L.ECT           0   EXTERNAL*      40/23 S   44/14 S
        L.ENTR          0   EXTERNAL*       8/22 S
        L.EOT           0   EXTERNAL*      30/16 S   31/21 S   35/09     43/46 S
        L.EQV           0   EXTERNAL*      23/06     30/13     32/41     37/14     39/35     58/31
                                           30/10 S   30/26     33/43     39/14     44/08 S
        L.FPBL          0   EXTERNAL*       7/56 S
        L.LAT           0   EXTERNAL*       7/44 S   12/55     19/16     20/33 S   39/19 S
        L.LVL           2   FTNTEXT        19/47     49/13     51/54     52/24
        L.NAME         52   FTNTEXT        10/29     11/07     14/13     17/09     17/55     58/14
        L.RB            7   FTNTEXT         5/36      5/39     23/36     42/21     42/49     49/23     50/41     58/43
        L.SCA           0   EXTERNAL*      15/30 S   16/16 S
        L.TYP           4   FTNTEXT        24/02     24/09     56/03
        MACFLAG         0   EXTERNAL*       1/54 X   10/13     19/10     62/08
        MN.LCM          2                   3/49 D   53/26
        MVE=            0   EXTERNAL*      44/01
        NARGS           0   MACBUF          6/40     61/12     61/39 S   62/02 S
        NSCR           15                   6/53 D    7/16
        N.COM           0   EXTERNAL*       2/02 X   10/20     14/06     17/05     52/17     55/14     59/24
        N.FERR          0   EXTERNAL*       8/42
        N.FILES         0   EXTERNAL*       2/05 X    8/11      8/20
        N.FP            0   EXTERNAL*       2/06 X    7/51     61/34     62/05     62/20
        ORGTAB          0   EXTERNAL*       2/02 X   17/07     47/13     50/51     55/16     59/25
                                           14/11     31/35     49/33     52/19     59/13
        OSC             0   EXTERNAL*       2/02 X   12/26     13/03
        OUTUSE          0   EXTERNAL*       8/47     12/53     61/24
        O.CBT         240   PROGRAM*        1/52 E    8/54 D    8/55     10/22     11/54     14/14     16/25 F
        O.CET        1366   PROGRAM*        7/09     62/28 L
        O.COM           0   EXTERNAL*      10/35     14/15     17/10     31/37     34/03     49/11     52/20     58/39
                                           11/17     14/47     18/02     33/29     47/10     51/56     55/24
        O.DIM           0   EXTERNAL*       7/47     19/35     23/12     40/33     45/44     55/20     57/12     60/10
        O.ECT           0   EXTERNAL*      39/33     43/44     47/28     47/39     49/10     50/34     51/42     51/51
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        O.ENTR          0   EXTERNAL*       8/19
        O.EOT           0   EXTERNAL*      30/23     33/28     34/02     35/08     41/15
        O.EQV           0   EXTERNAL*      23/07     30/22     39/34     44/05     45/45     47/29     58/35
                                           26/06     33/46     43/45     45/25     46/57     47/42
        O.FPBL          0   EXTERNAL*       7/50
        O.LAT           0   EXTERNAL*      12/54     19/15     41/47
        O.SCA           0   EXTERNAL*      14/38
        O.TBLS         70   PROGRAM*        7/37      8/55 L   14/34 S
        PCE           236   PROGRAM*        7/29     17/04 L   17/06     17/35
        PCE1          242   PROGRAM*       17/12 L   17/34     18/03
        PCE.E         253   PROGRAM*       17/20     17/24     17/28     17/32     17/37 L
        PCE.E0        261   PROGRAM*       17/49     17/52 L
        PCE.E1        262   PROGRAM*       17/50     17/54 L
        PDC          1225   PROGRAM*        7/21     57/04 L   58/33     60/07     60/18
        PDC1         1233   PROGRAM*       57/23 L   57/31     57/32     57/35     57/39
        PDC10        1302   PROGRAM*       59/36 L   59/56
        PDC12        1303   PROGRAM*       59/41 L   59/48     59/54
        PDC14        1310   PROGRAM*       59/41     59/56 L
        PDC16        1311   PROGRAM*       59/26     59/30     60/04 L
        PDC2         1257   PROGRAM*       57/47     58/05     58/31 L
        PDC4         1266   PROGRAM*       58/49 L   59/02     59/09     59/18
        PDC6         1274   PROGRAM*       59/01     59/13 L
        PDC8         1276   PROGRAM*       58/51     59/24 L
        PDC9         1300   PROGRAM*       59/28 L   59/34     59/57
        PDC.L        1241   PROGRAM*       57/07     57/24     57/43 L
        PDC.V        1242   PROGRAM*       57/46 L
        PDC.VL       1246   PROGRAM*       58/02 L   58/07     58/10
        PDC.V1       1244   PROGRAM*       57/54 L   58/24
        PH1MO           0   EXTERNAL*       2/10 D   16/11     20/22
        PH2CTL          0   EXTERNAL*       1/54 X    8/51
        PROGRAM        56                   1/47 D    8/07     61/18
        PSEUDO          4   MACBUF          6/49 D   12/19 S   12/27
        PSYM            0   EXTERNAL*       2/02 X   20/40     45/33     46/50     47/37     51/48
        P2NOGO          0   EXTERNAL*       8/45 S
        P.COM          16   FTNTEXT        23/39
        P.DIMP         51   FTNTEXT        16/03     19/56     23/43     41/38     43/15     55/45     59/04
                                           19/34     23/25     41/33     43/06     55/36     58/41     59/51
        P.EXT          66   FTNTEXT         8/14
        P.FP           21   FTNTEXT        57/55
        P.LCM           1   FTNTEXT        10/43     15/55     15/57     49/14     51/55     54/03
        P.LVL           2   FTNTEXT        19/48     19/52     52/56     53/07
        P.RA           23   FTNTEXT        15/19
        P.RB           14   FTNTEXT        23/44     42/16     43/08     49/28     58/56
                                           24/05     42/22     43/11     50/46     59/05
        P.RL           45   FTNTEXT        14/53     57/56
        P.TYP          70   FTNTEXT        19/52     24/05     55/44     57/29     58/08
        Q2.GORL        20                   6/07 D
        Q2.GORP        54                   6/07 D
        Q2.PDL         22                   6/09 D
        Q2.PDP         22                   6/09 D   24/28     25/07     26/57     45/12     45/18
        Q2.SUBL        22                   6/10 D
        Q2.SUBP         0                   6/10 D   26/57
        RA.SSW          0   CPUTEXT         1/47
        R=FLAG          0   EXTERNAL*       1/54 X    7/40     14/30
        SAVESCNT       11   PROGRAM*        3/54 L    7/06 S    8/48
        SCA           171   PROGRAM*        7/31     14/05 L   14/07     15/31     16/17
        SCA1          175   PROGRAM*       14/17 L   14/29
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        SCA2          204   PROGRAM*       14/32     14/37 L
        SCA4          214   PROGRAM*       15/08 L   15/27
        SCA5          215   PROGRAM*       15/12 L   15/25
        SCA6          220   PROGRAM*       15/14     15/25 L
        SCA7          223   PROGRAM*       15/06     15/36 L   16/14
        SCA8          224   PROGRAM*       15/39 L   16/12
        SCA8.A        232   PROGRAM*       15/53     15/56     16/06 L
        SCA9          233   PROGRAM*       15/41     16/12 L
        SCF             0   EXTERNAL*       1/56 X    7/07
        SCNT           46                   3/53 D    7/02      8/50 S
        SEF             0   EXTERNAL*       1/56 X    7/08
        SETCORE         0   EXTERNAL*      60/17
        SST          1045   PROGRAM*       31/17     40/20     48/50 L
        SST1         1036   PROGRAM*       48/28 L   48/37     48/42
        SST2         1037   PROGRAM*       48/31 L   48/48
        SST3         1040   PROGRAM*       48/35 L   48/41
        SST4         1043   PROGRAM*       48/30     48/44 L   48/55
        START.          0   EXTERNAL*      61/54
        ST.             0   EXTERNAL*       1/55 X   19/22
        SVARG           0   EXTERNAL*      61/30     61/32     61/37     61/46     61/49     61/52     62/01
        SYMBOL          0   EXTERNAL*       8/32
        SYMEND         13                   1/45 D
        SYMORD          0   EXTERNAL*       2/01 X   19/24
        SYM1           12                   1/44 D   14/51     23/09     52/21     57/06     58/40
                                           10/38     19/23     39/36     55/18     57/52
        S.ECT           0   EXTERNAL*       2/14 X
        S.EQV           0   EXTERNAL*       2/14 X
        S.LAT           0   EXTERNAL*       2/14 X   19/17     20/34 S
        S.SCA           0   EXTERNAL*       2/14 X   14/41
        TD             14   MACBUF         21/35 D   27/15 S   27/22     27/39 S
        TEMP            0   MACBUF          6/44 D    7/17 S   12/37     58/23     60/13
                                            6/53     11/43 S   58/13 S   60/08 S
        TEMPA0.         0   EXTERNAL*      61/33
        TEMPR          11   MACBUF         21/34 D   33/34 S   39/15     46/10 S   46/38 S   46/56     51/46 S
                                           21/35     33/44     45/32 S   46/14 S   46/43     47/35 S   51/50
                                           33/23 S   39/12 S   45/43     46/28 S   46/48 S   47/40
        TEMPREG        75   PROGRAM*        9/01 L   56/39 S   56/43
        TE.BIAL        22                   5/13 D
        TE.BIAP        22                   5/13 D   40/03     40/51
        TE.CBBP        44                   5/12 D   39/43
        TE.EOIL        20                   5/10 D   40/45
        TE.EOIP        54                   5/10 D   39/54     40/48     40/51
        TE.GFAL        22                   5/14 D
        TE.GFAP         0                   5/14 D   40/48
        TNFP           14   MACBUF         61/12 D   62/15 S   62/19
        T.DBL           3   FTNTEXT        24/07     55/46     57/30
        T.LAB           6   FTNTEXT        19/53
        UDATA.          0   EXTERNAL*       8/47
        UDATA..         0   EXTERNAL*      12/53
        USTART.         0   EXTERNAL*      61/24
        VARDIM          0   EXTERNAL*       1/56 X   57/46
        V.COM       40000   FTNTEXT        19/33     42/20     42/51
        V.DEF      200000   FTNTEXT        42/20     42/51
        V.EQU       10000   FTNTEXT        19/33     42/47
        V.SCA        4000   FTNTEXT        15/03
        WB.CON          0   EXTERNAL*       2/07 X    8/33
        WST             0   EXTERNAL*      12/14     12/44
1        DPCLOSE - TERMINATE DECLARATIVE PROCESSING                   COMPASS 3.7-871.     24/05/02. 15.54.34.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        WTC=            0   EXTERNAL*      11/12
        Z.DIM           0   EXTERNAL*      60/09
        Z.ECT           0   EXTERNAL*      39/20
        Z.ENTR          0   EXTERNAL*       8/10
        Z.EOT           0   EXTERNAL*      30/12
        Z.EQV           0   EXTERNAL*      33/39     58/34
        Z.LAT           0   EXTERNAL*      19/14     39/13
        Z.SCA           0   EXTERNAL*      14/37
        .DAL            1   FTNTEXT         3/48 F   15/01 F   15/48 F
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      714              IDENT  DECPRO 
                        714                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       710 
                                        LITERALS* LOCAL         710         4 
                                        MACBUF    COMMON          0        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=DECPR          0+           DPDIM          366+           SEF            275+ 
                                        DPCOM           42+           DPIMP          540+           DPLEV          402+ 
                                        DPEQU          212+           LASTTYP        706+ 
                                        DPTYP          301+           SCF            175+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CONVERT   IMPTYP    VARDIM    L.EQV     LEVEL     NTYPE     PSYM      ERPRO 
                                        RSELECT   NRB       O.COM     O.DIM     LEVEL2    DBLDECL   ADDWD     SYMBOL
                                        PH1SCAN   N.COM     L.COM     L.DIM     FUNTYPE   ERPROI    ASAER     CFO 
                                        ORGTAB    N.FP      O.EQV     Z.DIM     VALUE.    Z.EQV     ADDREF
  
  
  
  
                                                  IDENT  DECPRO                                                  DECPRO      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=DECPR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     DECPRO      5
                                                  ENTRY  DPCOM,DPEQU,DPTYP,DPDIM                                 DECPRO      6
                                                  ENTRY  DPIMP,LASTTYP                                           DECPRO      7
                                                  EXT    CONVERT,RSELECT,PH1SCAN,ORGTAB                          DECPRO      8
                                                  EXT    IMPTYP                                                  DECPRO      9
                                                  EXT    NRB                                                     DECPRO     10
                                                  EXT    N.COM                                                   DECPRO     11
                                                  EXT    N.FP                                                    DECPRO     12
                                                  EXT    VARDIM                                                  DECPRO     13
                                                                                                                 DECPRO     14
                                                  TABLES COM,EQV,DIM                                             DECPRO     15
                                   0     Z.COM    EQU    0                 *** LOADER BUG                        DECPRO     16
                                                                                                                 DECPRO     17
                                  56     PROGRAM  EQU    RA.SSW+56B        PROG    12/2000B,48/0                 DECPRO     18
                                        *                                  BLKDTA  60/0                          DECPRO     19
                                        *                                  SUBR    12/2001B,48/0                 DECPRO     20
                                        *                                  FUNC    12/2002B,48/0                 DECPRO     21
                                  12     SYM1     EQU    12B                                                     DECPRO     22
                                  24     TYPE     EQU    24B               STATEMENT TYPE                        DECPRO     23
                                  32     SELIST   EQU    32B                                                     DECPRO     24
                                  51     ATYPE    EQU    51B               HOLDS CODE FOR TYPE STMT              DECPRO     25
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     2
  
  
                                        ***       DECPRO - DECLARATIVE STATEMENT PROCESSORS (PHASE 1).           DECPRO     27
                                        *                                                                        DECPRO     28
                                        *         *DECPRO* IS A SERIES OF SUBROUTINES THAT PROCESS THE           DECPRO     29
                                        *         FOLLOWING DECLARATIVE STATEMENTS --                            DECPRO     30
                                        *                                                                        DECPRO     31
                                        *                COMMON                                                  DECPRO     32
                                        *                DIMENSION                                               DECPRO     33
                                        *                EQUIVALENCE                                             DECPRO     34
                                        *                IMPLICIT                                                DECPRO     35
                                        *                LEVEL                                                   DECPRO     36
                                        *                TYPE (EXPRESSED OR IMPLIED)                             DECPRO     37
                                        *                                                                        DECPRO     38
                                        *         EACH SUBROUTINE CHECKS STATEMENT SYNTAX AND ACCUMULATES        DECPRO     39
                                        *         DECLARATIVE INFORMATION IN THE SYMBOL TABLE AND OTHER          DECPRO     40
                                        *         PERTINENT TABLES.  *DECPRO* DOES VERY LITTLE SEMANTIC          DECPRO     41
                                        *         CHECKING, LEAVING THAT CHORE FOR *DPCLOSE* WHEN THE FIRST      DECPRO     42
                                        *         EXECUTABLE STATEMENT IS ENCOUNTERED.                           DECPRO     43
  
  
                                        *         ERROR MESSAGE ORDINALS                                         DECPRO     45
                                                                                                                 DECPRO     46
                                 136     E.IFP    EQU    94                F.P. IN COMMON OR EQUIV STMT          DECPRO     47
                                 466     E.IUF    EQU    310               ILLEGAL USE OF FUNCTION NAME          DECPRO     48
                                  51     E.TLT    EQU    41                BAD SYNTAX                            DECPRO     49
                                  57     E47      =      47          CHARACTER BOUNDS REVERSED IN IMPLICIT STMT  DECPRO     50
                                  61     E.TRT    EQU    49                NAME PREVIOUSLY TYPED                 DECPRO     51
                                 131     E89      =      89          ILLEGAL SYNTAX IN IMPLICIT STMT             DECPRO     52
                                 155     E109     =      109         DECLARATIVE STMT OUT OF SEQUENCE            DECPRO     53
                                 351     E.TSUB   EQU    233               SUBROUTINE OR PROGRAM NAME MAY NOT    DECPRO     54
                                        *                                  APPEAR IN A DECLARATIVE.              DECPRO     55
                                 435     E.NOCOM  EQU    285               NO COMMA                              DECPRO     56
                                 436     E.BADSEP EQU    286               BAD SEPARATOR                         DECPRO     57
                                 437     E.BADSYN EQU    287               BAD SYNTAX                            DECPRO     58
                                 443     E291     =      291         CONFLICTING LEVEL NUMBERS USED              DECPRO     59
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     3
         MACROS TO SCAN THE E-LIST
  
             0                           PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                      PARSEM      3
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     4
         CDN - CHECK NAME IN DECLARATIVE STMT 
  
                                         INITE    MACRO                    INITIALIZE E-LIST POINTER IN A4       DECPRO     62
                                                  SA5    SELIST                                                  DECPRO     63
                                                  SA4    X5+B5             START 1 BACK                          DECPRO     64
                                                  ENDM                                                           DECPRO     65
                                                                                                                 DECPRO     66
                                         CNAME    MACRO  ERNUM             CALL CDN TO PROCESS NAME              DECPRO     67
                                                  SB6    ERNUM                                                   DECPRO     68
                                                  RJ     CDN               PROCESS NAME                          DECPRO     69
                                                  ENDM                                                           DECPRO     70
                                                                                                                 DECPRO     71
                                        ***                                                                      DECPRO     72
                                        *         CDN - CHECK DECLARED NAME                                      DECPRO     73
                                        *                                                                        DECPRO     74
                                        *         ON ENTRY:                                                      DECPRO     75
                                        *                SELIST POINTS TO THE NAME                               DECPRO     76
                                        *                B6 = ERROR NUMBER IN CASE E-LIST IS NOT A NAME          DECPRO     77
                                        *                A4,A5 = E-LIST POINTERS AS SET BY GETE                  DECPRO     78
                                        *                FPFLAG SET BY THE STATEMENT PROCESSOR                   DECPRO     79
                                        *                                                                        DECPRO     80
                                        *         ON EXIT:                                                       DECPRO     81
                                        *                A0-A2,X1,X2,B1,B2 AS SET BY "SYMBOL" WITH               DECPRO     82
                                        *                X6 = 0 IF PREVIOUS OCCURRENCES, ELSE                    DECPRO     83
                                        *                X6 = NATURAL TYPE S"P.TYP"                              DECPRO     84
                                        *                SAVEB1 = SAVED VALUE OF B1                              DECPRO     85
                                        *                SNAME - E-LIST FOR THE NAME                             DECPRO     86
                                        *                                                                        DECPRO     87
                                                                                                                 DECPRO     88
                                                  USE    /MACBUF/                                                DECPRO     89
             0                     1     FPFLAG   BSSZ   1                 1S_P.FP IF F.P.S NOT ALLOWED FOR STM  FCC1179     7
                                        *                                  ELSE 0                                DECPRO     91
             1                     1     SAVEB1   BSSZ   1                 SAVED VALUE OF SYMTAB ORD             FCC1179     8
             2                     1     SNAME    BSSZ   1                 SAVED VALUE OF NAME (E-LIST FORMAT    FCC1179     9
                                                  USE    *                                                       DECPRO     94
  
  
  
             0  5170000001 C             CDN.F    SA7    SAVEB1                                                  DECPRO     96
                          66700                   SB7    B0                SET FLAG FOR DPTYP                    DECPRO     97
             1  0305000004 +                      ZR     X5,CDN            IF NO PREVIOUS REFS IN A DEBUG STMT   DECPRO     98
                          5130000024              SA3    TYPE              STMT TYPE CODE                        DECPRO     99
             2  7243777767                        SX4    X3-8                                                    DECPRO    100
                          0304000004 +            ZR     X4,CDN            IF A TYPE STMT                        DECPRO    101
             3  10755                             BX7    X5                                                      DECPRO    102
                     43000                        CFO    VAR               CHECK SETTING OF DEBUG BITS           DECPRO    103
                                                                                                                 FCC1179    10
             4  0400400004 +             CDN      ENTRY. *                                                       FCC1179    11
             5  43700                             MX7    0                 NOT PROCESSING COMMON                 FCC1179    12
                     7166777707                   SX6    B6-E56                                                  FCC1179    13
             6  0316000007 +                      NZ     X6,CDN.1                                                FCC1179    14
                          17777                   BX7    -X7-X7            PROCESSING COMMON                     FCC1179    15
                                                                                                                 FCC1179    16
             7  5170000171 +             CDN.1    SA7    COMFLAG                                                 FCC1179    17
                                                                                                                 FCC1179    18
                          55445                   NEXTE                                                          FCC1179    19
            10  0525000036 +                      IF.NE  NAME,CDN.EX2      IF NOT A NAME                         FCC1179    20
                                                                                                                 FCC1179    21
                          75645                   UPDATE                   ADVANCE PAST IT                       DECPRO    107
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     5
         CDN - CHECK NAME IN DECLARATIVE STMT 
  
            11  10744                             BX7    X4                                                      DECPRO    108
                     5170000002 C                 SA7    SNAME                                                   DECPRO    109
            12  6170000013 +                      SYMBOL                   GET SYMTAB ORDINAL                    DECPRO    110
            13  10577                             BX5    X7                SAVE F.O. EXIT CONDITION FROM SYMBOL  DECPRO    111
                     76710                        SX7    B1                                                      DECPRO    112
                          0400000000 +            EQ     CDN.F             FIRST OCCURRENCE                      DECPRO    113
                                                                                                                 DECPRO    114
            14  5130000000 C                      SA3    FPFLAG            PREVIOUS OCCURRENCES                  DECPRO    115
                          43600                   MX6    0                                                       DECPRO    116
                               76710              SX7    B1                                                      DECPRO    117
            15  5170000001 C                      SA7    SAVEB1                                                  DECPRO    118
                          0415000025 +            EQ     B1,B5,CDN.E1      IF ORDINAL 1                          FCC0476     4
                                                                                                                 FCC0476     5
            16  11031                             BX0    X3*X1                                                   FCC0476     6
                     0310000027 +                 NZ     X0,CDN.E2         ERROR IF A F.P.                       DECPRO    130
                                                                                                                 DECPRO    131
                               43404              MX4    L.TYP                                                   DECPRO    132
            17  11542                             BX5    X4*X2             EXTRACT TYPE FROM SYMTAB WORD B       DECPRO    133
                     20504                        LX5    L.TYP                                                   DECPRO    134
                          7275777771              SX7    X5-T.LAB                                                DECPRO    135
            20  0327000030 +                      PL     X7,CDN.E3         ERROR IF RETURNS OR SUCH              DECPRO    136
                                                                                                                 DECPRO    137
                          5140000024              SA4    TYPE                                                    DECPRO    138
            21  7254777767                        SX5    X4-8                                                    DECPRO    139
                          0305000004 +            ZR     X5,CDN            EXIT IF A TYPE STMT                   DECPRO    140
                                                                                                                 DECPRO    141
            22  10322                             BX3    X2                                                      DECPRO    142
                     20305                        LX3    59-P.EXT                                                DECPRO    143
                          0323000004 +            PL     X3,CDN            EXIT IF NOT EXTERNAL                  DECPRO    144
            23  0400000030 +                      EQ     CDN.E3                                                  DECPRO    145
  
  
  
                                        *         ERROR EXITS                                                    DECPRO    147
                                                                                                                 DECPRO    148
            24  6170000000 X             CDN.E0   POSTER SEV=FE,NR=**,RETURN=PH1SCAN                             DECPRO    149
                                                                                                                 DECPRO    150
            25  6160000351               CDN.E1   SB6    E.TSUB            SUBROUTINE OR PROGRAM NAME MAY NOT    DECPRO    151
                                        *                                  APPEAR IN A DECLARATIVE.              DECPRO    152
                          13666                   BX6    X6-X6                                                   FCC0493     6
            26  5160000170 +                      SA6    COMERR1     CLEAR DUPLICATE NAME FLAG                   FCC0493     7
                          0400000032 +            EQ     CDN.EX                                                  DECPRO    153
                                                                                                                 DECPRO    154
            27  6160000136               CDN.E2   SB6    E.IFP             F.P. IN COMMON OR EQV STMT            DECPRO    155
                          0400000032 +            EQ     CDN.EX                                                  DECPRO    156
                                                                                                                 DECPRO    157
            30  6160000060               CDN.E3   SB6    E.CUN             CONFLICTING USE OF A NAME             DECPRO    158
                          0400000032 +            EQ     CDN.EX                                                  DECPRO    159
                                                                                                                 DECPRO    160
            31  6160000466               CDN.E4   SB6    E.IUF             ILLEGAL USE OF FUNCTION NAME          DECPRO    161
                                                                                                                 DECPRO    162
            32  5150000000 X             CDN.EX   SA5    RSELECT                                                 FCC1179    22
                          0305000035 +            ZR     X5,CDN.EX1        IF R=0                                FCC1179    23
            33  5110000001 C                      ADDREF SAVEB1,REF        A REFERENCE FOR THE NAME              FCC1179    24
                                                                                                                 FCC1179    25
            35  5140000002 C             CDN.EX1  SA4    SNAME                                                   FCC1179    26
                                                                                                                 FCC1179    27
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     6
         CDN - CHECK NAME IN DECLARATIVE STMT 
  
            36  5130000171 +             CDN.EX2  SA3    COMFLAG                                                 FCC1179    28
                          0323000024 +            PL     X3,CDN.E0         IF NOT COMMON                         FCC1179    29
                                                                                                                 FCC1179    30
            37  7160000001                        SX6    1                                                       FCC1179    31
                          54630                   SA6    A3                SET COMMON ERROR FLAG                 FCC1179    32
            40  6170000004 +                      POSTER SEV=FE,NR=**,RETURN=CDN                                 FCC1179    33
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     7
         DPCOM - COMMON STATEMENT PROCESSOR 
  
                                        ***                                                                      DECPRO    171
                                        *         DPCOM - PROCESS COMMON STATEMENTS                              DECPRO    172
                                        *                                                                        DECPRO    173
                                        *         FORMAT OF A COMMON DECLARATION IS: <BLOCK DEC><LIST>           DECPRO    174
                                        *         WHERE <BLOCK DEC> MAY BE:                                      DECPRO    175
                                        *           NULL OR //             BLANK COMMON                          DECPRO    176
                                        *           /INTEGER/              NUMBERED COMMON                       DECPRO    177
                                        *           /NAME/                 LABELED COMMON                        DECPRO    178
                                        *                                                                        DECPRO    179
                                        *         THE LIST MAY CONTAIN NAMES OR ARRAY DECLARATIONS               DECPRO    180
                                        *                                                                        DECPRO    181
                                        *         FOR EACH NAME IN THE LIST THE COMMON AND DEFINED BITS ARE SET  DECPRO    182
                                        *                                                                        DECPRO    183
                                        *         DURING PHASE 1 THE COMMON INFORMATION IS KEPT IN 2 TABLES:     DECPRO    184
                                        *                                                                        DECPRO    185
                                        *         THE COMMON BLOCK NAME TABLE STARTING AT "ORGTAB"               DECPRO    186
                                        *         FORMAT:  42/7L_BLOCK NAME,18/COM TAB INDEX  ( FWA-O.COM )      DECPRO    187
                                        *                                                                        DECPRO    188
                                        *         AND "COM TAB" STARTING AT (O.COM)                              DECPRO    189
                                        *         FOR EACH BLOCK AND LIST OF NAMES THE FOLLOWING ENTRIES ARE     DECPRO    190
                                        *         MADE:                                                          DECPRO    191
                                        *         BLOCK NAME:    24/0,18/NUMBER OF NAMES,18/LINK ORD             DECPRO    192
                                        *                                  WHERE LINK ORD = NEXT-*               DECPRO    193
                                        *         VARIABLE NAME: 24/0,18/SYMTAB ORD,18/0                         DECPRO    194
                                        *                                                                        DECPRO    195
                                                                                                                 DECPRO    196
                                        *         ERROR MESSAGES                                                 DECPRO    197
                                                                                                                 DECPRO    198
                                  70     E56      =      56          ILL SYNTAX IN COMMON DECLARATION            DECPRO    199
                                  71     E.CIVN   EQU    57                ILLEGAL VARIABLE NAME OR ALREADY IN C DECPRO    200
                                  72     E.CIBN   EQU    58                ILLEGAL BLOCK NAME                    DECPRO    201
                                 346     E.CTMB   EQU    230               TOO MANY COMMON BLOCKS                DECPRO    202
                                 315     ENANC    EQU    205               NUMBERED COMMON IS NON-ANSI           DECPRO    203
                                                                                                                 DECPRO    204
            41                     1     SAVEA4   BSS    1                 SAVE A4 ACROSS ERPRO CALL             DECPRO    205
                                                                                                                 DECPRO    206
                                                  USE    /MACBUF/                                                DECPRO    207
                                        *GNC                               NUMBER OF NAMES IN THE BLOCK          DECPRO    208
             3  00000000000000000000     WORDBF                            WORD B SYMTAB FLAGS                   DECPRO    209
             4  00000000000000000000     LINKA                             LINK ADDRESS                          DECPRO    210
                                                  USE    *                                                       DECPRO    211
                                                                                                                 DECPRO    212
                                  24 +   DPCOM.E  EQU    CDN.E0            ERROR EXIT                            DECPRO    213
  
  
  
  
  
  
            42  76650                    DPCOM    SX6    B5                                                      DECPRO    215
                     20621                        LX6    P.FP                                                    DECPRO    216
                          5160000000 C            SA6    FPFLAG            F.P.S NOT ALLOWED IN COMMON STMTS     DECPRO    217
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     8
         DPCOM - COMMON STATEMENT PROCESSOR 
  
                                        *         PROCESS BLOCK NAME                                             DECPRO    219
                                                                                                                 DECPRO    220
            43  0100000175 +             DPCOML   RJ     SCF               SAVE LENGTH OF COMTAB                 DECPRO    221
            44  5150000032                        SA5    SELIST                                                  DECPRO    222
                          53450                   SA4    X5                                                      DECPRO    223
                               26014              UX0    B1,X4                                                   DECPRO    224
            45  6120000023                        SB2    EL.SLASH                                                DECPRO    225
                          0415000051 +            EQ     B1,B5,DPCOM.BC    IF A NAME                             DECPRO    226
            46  6160000070                        SB6    E56               ERR MSG NR - *ILL SNTX IN COMMON DEC* DECPRO    227
                          0512000024 +            NE     B1,B2,DPCOM.E     IF NOT A /                            DECPRO    228
            47  55445                             SA4    A4-B5             NEXT  ( NAME OR / )                   DECPRO    229
                     26514                        UX5    B1,X4                                                   DECPRO    230
                          0512000053 +            NE     B1,B2,DPCOM1      IF NOT A /                            DECPRO    231
            50  55445                             SA4    A4-B5             ADJUST E-LIST POINTER                 DECPRO    232
                                                                                                                 DECPRO    233
                                        *         SET UP BLANK COMMON                                            DECPRO    234
                                                                                                                 DECPRO    235
            51  74640                    DPCOM.BC SX6    A4                                                      DECPRO    236
                     5150000710 +                 SA5    =8R               NAME OF BLANK COMMON                  DECPRO    237
            52  0400000074 +                      EQ     DPCOM3                                                  DECPRO    238
                                                                                                                 DECPRO    239
            53  0415000072 +             DPCOM1   EQ     B1,B5,DPCOM2      IF A NAME                             DECPRO    240
                          6160000072              SB6    E.CIBN                                                  DECPRO    241
            54  0510000024 +                      NZ     B1,DPCOM.E        IF NOT A NUMBER                       DECPRO    242
                          21522                   AX5    18                                                      DECPRO    243
            55  7265777767                        SX6    X5-8                                                    DECPRO    244
                          0326000024 +            PL     X6,DPCOM.E        IF MORE THAN 7 DIGITS                 DECPRO    245
            56  21533                             AX5    45-18                                                   DECPRO    246
                     7275777776                   SX7    X5-T.INT                                                DECPRO    247
            57  0317000024 +                      NZ     X7,DPCOM.E        IF NOT AN INTEGER CONSTANT            DECPRO    248
                          74640                   SX6    A4                                                      DECPRO    249
            60  5160000041 +                      SA6    SAVEA4                                                  DECPRO    250
                          6160777462              POSTERR  NR=ENANC,SEV=ANSI                                     DECPRO    251
            62  5140000041 +                      SA4    SAVEA4                                                  DECPRO    252
                          53440                   SA4    X4                                                      DECPRO    253
                               53240              SA2    X4          FETCH NAME                                  DECPRO    254
                                                                                                                 DECPRO    255
                                        *         STRIP LEADING ZEROS FROM NAME.                                 DECPRO    256
                                                                                                                 DECPRO    257
            63  6110777703                        SB1    -59+6-1-6   DEFAULT SHIFT COUNT FOR BLANK MASK          DECPRO    258
                          5110000711 +            SA1    =10H                                                    DECPRO    259
            64  20266                             LX2    -6                                                      DECPRO    260
                     5130000712 +                 SA3    =1L0                                                    DECPRO    261
                               43006              MX0    6                                                       DECPRO    262
                                                                                                                 DECPRO    263
            65  20206                    DPCOM1A  LX2    6           ADVANCE NAME                                DECPRO    264
                     11602                        BX6    X0*X2                                                   DECPRO    265
                          6111000006              SB1    B1+6                                                    DECPRO    266
            66  37463                             IX4    X6-X3                                                   DECPRO    267
                     0304000065 +                 ZR     X4,DPCOM1A  IF CHARACTER .EQ. DPC(0)                    DECPRO    268
                               22010              LX0    B1          MASK FOR BLANK                              DECPRO    269
            67  11402                             BX4    X0*X2                                                   DECPRO    270
                     15310                        BX3    -X0*X1                                                  DECPRO    271
                          12543                   BX5    X4+X3       BLANK FILL                                  DECPRO    272
                               37351              IX3    X5-X1                                                   DECPRO    273
            70  0313000071 +                      NZ     X3,DPCOM1C  IF NAME DOES NOT REDUCE TO ALL BLANKS       DECPRO    274
                          5150000713 +            SA5    =10H0                                                   DECPRO    275
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE     9
         DPCOM - COMMON STATEMENT PROCESSOR 
  
                                                                                                                 DECPRO    276
            71  6120000023               DPCOM1C  SB2    EL.SLASH                                                DECPRO    277
                          20560                   LX5    60-12             ADJUST                                DECPRO    278
                                                                                                                 DECPRO    279
            72  55445                    DPCOM2   SA4    A4-B5                                                   DECPRO    280
                     26014                        UX0    B1,X4                                                   DECPRO    281
                          6160000070              SB6    E56               ERR MSG NR - *ILL SNTX IN COMMON DEC* DECPRO    282
            73  0512000024 +                      NE     B1,B2,DPCOM.E     IF NO SECOND /                        DECPRO    283
                          43700                   MX7    0                                                       DECPRO    284
                               75645              SX6    A4-B5             UPDATE E-LIST POINTER                 DECPRO    285
                                                                                                                 DECPRO    286
                                        *         ADD BLOCK NAME TO TABLES                                       DECPRO    287
                                        *         X5 = 8R_BLOCK NAME , X6 = E-LIST POINTER                       DECPRO    288
                                                                                                                 DECPRO    289
            74  5160000032               DPCOM3   SA6    SELIST                                                  DECPRO    290
                          43052                   MX0    L.NAME                                                  DECPRO    291
                               20514              LX5    12                                                      DECPRO    292
            75  11605                             BX6    X0*X5             EXTRACT BLOCK NAME                    DECPRO    293
                                                                                                                 DECPRO    294
                     21552                        AX5    42                                                      DECPRO    295
                          43466                   MX4    54                                                      DECPRO    296
                               15354              BX3    -X4*X5                                                  DECPRO    297
            76  7213777724                        SX1    X3-1R$                                                  DECPRO    298
                          0311000100 +            NZ     X1,NODOL          IF NOT A $                            DECPRO    299
            77  7130000002                        SX3    1R -1R$                                                 DECPRO    300
                          20352                   LX3    42                                                      DECPRO    301
                               36663              IX6    X6+X3             REMOVE $ FROM THE NAME                DECPRO    302
           100                           NODOL    BSS    0                                                       DECPRO    303
                                                                                                                 DECPRO    304
           100  76700                             SX7    B0                                                      DECPRO    305
                     66100                        SB1    B0                                                      FCC0493    10
                          5170000170 +            SA7    COMERR1     CLEAR DUPLICATE NAME FLAG                   FCC0493    11
           101  5170000014 C                      SA7    GNC               CLEAR NUMBER OF VARIABLES IN THE BLOC DECPRO    306
                                                                                                                 DECPRO    307
                          5110000000 X            SA1    N.COM             NUMBER OF BLOCKS                      DECPRO    308
           102  6170000000 X                      SB7    ORGTAB                                                  DECPRO    309
                          53617                   SA6    B7+X1             STORE NAME AS TABLE TERMINATOR        DECPRO    310
                               63210              SB2    X1                                                      DECPRO    311
                                                                                                                 DECPRO    313
           103  56271                   +         SA2    B7+B1             SEARCH ORGTAB FOR A MATCH OF BLOCK NA DECPRO    314
                     66115                        SB1    B1+B5             ADVANCE BLOCK ORDINAL                 DECPRO    315
                          11302                   BX3    X0*X2                                                   DECPRO    316
                               37436              IX4    X3-X6                                                   DECPRO    317
           104  0314000103 +                      NZ     X4,*-1            LOOP IF NO HIT                        DECPRO    318
                          54760                   SA7    A6                CLEAR THE LAST ENTRY                  DECPRO    319
           105  0621000115 +                      LE     B1,B2,DPCOM.P     IF NAME PREVIOUSLY ENCOUNTERED        DECPRO    320
                          6130000175              SB3    M.NCB-2                                                 DECPRO    321
           106  0631000112 +                      LE     B1,B3,DPCOM4      IF MAX NUMBER OF BLOCKS NOT EXCEEDED  DECPRO    322
                          7100000055              SX0    1R                                                      DECPRO    323
           107  20660                             LX6    60-12                                                   DECPRO    324
                     12360                        BX3    X6+X0                                                   DECPRO    325
                          13444                   POSTER SEV=FE,NR=E.CTMB,FMT=DPC,TXT=X3,RETURN=PH1SCAN          DECPRO    326
                                                                                                                 DECPRO    327
                                        *         FIRST OCCURRENCE.                                              DECPRO    328
                                                                                                                 DECPRO    329
           112  76610                    DPCOM4   SX6    B1                                                      DECPRO    330
                     54610                        SA6    A1                UPDATE N.COM                          DECPRO    331
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    10
         DPCOM - COMMON STATEMENT PROCESSOR 
  
                          5160000173 +            SA6    E.ORG             SET RECOVERY FLAG                     DECPRO    332
           113  5130000000 X                      SA3    L.COM                                                   DECPRO    333
                          12623                   BX6    X2+X3                                                   DECPRO    334
                               54620              SA6    A2                SET UP ORGTAB ENTRY 42/7L_NAME,18/FWA DECPRO    335
           114  0400000120 +                      EQ     DPCOM6                                                  DECPRO    336
                                                                                                                 DECPRO    337
                                        *         PREVIOUS OCCURRENCES.                                          DECPRO    338
                                                                                                                 DECPRO    339
           115  5110000000 X             DPCOM.P  SA1    O.COM                                                   DECPRO    340
                          36712                   IX7    X1+X2             O.COM+INDEX                           DECPRO    341
                               53270              SA2    X7                FIRST WORD                            DECPRO    342
                                                                                                                 DECPRO    343
           116  73320                   +         SX3    X2                EXTRACT LINK TO NEXT                  DECPRO    344
                     36773                        IX7    X7+X3                                                   DECPRO    345
                          53270                   SA2    X7                                                      DECPRO    346
           117  0313000116 +                      NZ     X3,*-1            IF NOT LAST OCCURRENCE OF THE BLOCK   DECPRO    347
                          73770                   SX7    X7                                                      DECPRO    348
                                                                                                                 DECPRO    349
                                        *         ENTER A WORD FOR THE BLOCK NAME IN COMTAB ( X7 = LINK ADD )    DECPRO    350
                                                                                                                 DECPRO    351
           120  5170000004 C             DPCOM6   SA7    LINKA                                                   DECPRO    352
                          76010                   SX0    B1                                                      DECPRO    353
                               20014              LX0    P.RB                                                    DECPRO    354
           121  76550                             SX5    B5                                                      DECPRO    355
                     20550                        LX5    P.VAR                                                   DECPRO    356
                          12705                   BX7    X0+X5             VAR BIT AND RB                        DECPRO    357
           122  5170000003 C                      SA7    WORDBF                                                  DECPRO    358
                                                                                                                 DECPRO    359
                          43100                   MX1    0                                                       DECPRO    360
           123  5100000000                        ADDWD  COM,X1            ADD A ZERO WORD FOR THE PRESENT       DECPRO    361
                                                                                                                 DECPRO    362
                                        *         PROCESS THE LIST OF NAMES                                      DECPRO    363
                                                                                                                 DECPRO    364
           124  5150000032                        INITE                                                          FCC0493    12
           125  6160000070               DPCOM7   CNAME  E56         PROCESS NAME                                FCC0493    13
                                                                                                                 FCC1179    34
           126  5130000171 +                      SA3    COMFLAG                                                 FCC1179    35
                          0313000146 +            NZ     X3,DPCOM12A       IF COMMON ERROR FLAG                  FCC1179    36
                                                                                                                 FCC0493    14
                                        *         SET FLAGS IN SYMTAB                                            FCC0493    15
                                        *         WORD A - COM AND DEF BITS                                      FCC0493    16
                                        *         WORD B - COM ORD IN RB FIELD AND BLK COM BIT                   FCC0493    17
                                                                                                                 FCC0493    18
           127  7100240000                        SX0    V.COM+V.DEF                                             FCC0493    19
                          12762                   BX7    X6+X2       SET TYPE (X6 .NZ. ONLY IF FIRST OCCURRENCE) FCC0493    20
                               12601              BX6    X0+X1                                                   FCC0493    21
           130  5130000003 C                      SA3    WORDBF      WORD B FLAGS                                FCC0493    22
                          12737                   BX7    X3+X7                                                   FCC0493    23
                               54610              SA6    A1          WORD A                                      FCC0493    24
           131  20155                             LX1    59-P.COM                                                FCC0493    25
                     0321000134 +                 PL     X1,DPCOM9   IF NAME NOT ALREADY IN COMMON               FCC0493    26
           132  5130000170 +                      SA3    COMERR1                                                 FCC0493    27
                          0313000142 +            NZ     X3,DPCOM11  IF ERROR FLAG ALREADY SET                   FCC0493    28
           133  76710                             SX7    B1                                                      FCC0493    29
                     54730                        SA7    A3          SET ERROR FLAG TO SYMTAB ORDINAL            FCC0493    30
                          0400000142 +            EQ     DPCOM11                                                 FCC0493    31
                                                                                                                 FCC0493    32
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    11
         DPCOM - COMMON STATEMENT PROCESSOR 
  
                                        *         ADD LEGAL NAME TO COMTAB                                       FCC0493    33
                                                                                                                 FCC0493    34
           134  76110                    DPCOM9   SX1    B1                                                      FCC0493    35
                     54720                        SA7    A2          WORD B                                      FCC0493    36
                          20122                   LX1    18                                                      FCC0493    37
           135  5100000000                        ADDWD  COM         ADD SYMTAB ORDINAL TO COMTAB                FCC0493    38
           136  5150000000 X                      SA5    RSELECT                                                 FCC0493    39
                          0305000141 +            ZR     X5,DPCOM10  IF NO REF MAP SELECTED                      FCC0493    40
           137  5110000001 C                      ADDREF SAVEB1,REF  ADD SYMTAB ORDINAL TO REF MAP               FCC1244     4
           141  5110000014 C             DPCOM10  SA1    GNC                                                     FCC0493    42
                          73615                   SX6    X1+B5                                                   FCC0493    43
                               54610              SA6    A1          INCREMENT NAME COUNT FOR THIS GROUP         FCC0493    44
                                                                                                                 FCC0493    45
           142  5150000032               DPCOM11  GETE               GET SEPARATOR                               FCC0493    46
           143  6130000006                        IF.NE  EL.(,DPCOM12      IF NAME NOT SUBSCRIPTED               FCC0493    47
           144  0100000450 +                      RJ     DIMEN                                                   FCC0493    48
                                                                                                                 FCC0493    49
           145  6130000003               DPCOM12  IF.EQ  EL.COMMA,DPCOM7   IF MORE NAMES,LOOP                    FCC0493    50
                                                                                                                 FCC1179    37
           146  5120000172 +             DPCOM12A SA2    E.COM                                                   FCC1179    38
                          5140000000 X            SA4    O.COM                                                   FCC0493    52
           147  7222777776                        SX2    X2-1                                                    FCC0493    53
                          36742                   IX7    X4+X2       BLOCK NAME ENTRY IN COMTAB                  FCC0493    54
           150  5110000014 C                      SA1    GNC         NUMBER OF VARS IN GROUP                     FCC0493    55
                          0301000157 +            ZR     X1,DPCOM13A IF NOTHING BUT DUPLICATE NAMES IN GROUP     FCC1822X    7
           151  53370                             SA3    X7                                                      FCC0493    56
                     20122                        LX1    18                                                      FCC0493    57
                          36613                   IX6    X1+X3                                                   FCC0493    58
           152  5140000004 C                      SA4    LINKA                                                   FCC0493    59
                          54630                   SA6    A3          ADD NUMBER OF VARS TO COMTAB ENTRY          FCC0493    60
           153  0304000155 +                      ZR     X4,DPCOM13  IF FIRST TIME                               FCC0493    61
                          53540                   SA5    X4                                                      FCC0493    62
                               37074              IX0    X7-X4       LINK=LOCF(THIS)-LOCF(LAST)                  FCC0493    63
           154  12750                             BX7    X5+X0       ADD LINK                                    FCC0493    64
                     54750                        SA7    A5                                                      FCC0493    65
           155  13666                    DPCOM13  BX6    X6-X6                                                   FCC1822X    8
                     5160000172 +                 SA6    E.COM                                                   FCC0493    69
           156  5160000173 +                      SA6    E.ORG                                                   FCC0493    70
                                                                                                                 FCC1179    39
           157  5120000171 +             DPCOM13A SA2    COMFLAG                                                 FCC1179    40
                          0312000000 X            NZ     X2,PH1SCAN        IF COMMON ERROR FLAG                  FCC1179    41
                                                                                                                 FCC1179    42
           160  5120000170 +                      SA2    COMERR1                                                 FCC1179    43
                          0302000164 +            ZR     X2,DPCOM14  IF NO DUPLICATE NAME                        FCC0493    72
           161  0100000000 X                      CALL   PSYM                                                    FCC0493    73
           162  13444                             POSTER SEV=FE,NR=E.CIVN,FMT=DPC,TXT=X3                         FCC1179    44
                                                                                                                 FCC0493    75
           164  5150000032               DPCOM14  GETE                                                           FCC0493    76
           165  6130000023                        IF.EQ  EL.SLASH,DPCOML   IF MORE GROUPS                        FCC0493    77
           166  6130000004                        IF.EQ  EL.EOS,PH1SCAN    IF NO MORE GROUPS                     FCC0493    78
           167  6160000070                        SB6    E56         NO SLASH - ERROR                            FCC0493    79
                          0400000024 +            EQ     DPCOM.E                                                 FCC0493    80
                                                                                                                 FCC0493    81
           170                     1     COMERR1  BSSZ   1                 DUPLICATE ERROR FLAG                  FCC1179    45
           171                     1     COMFLAG  BSSZ   1                 COMMON ERROR FLAG                     FCC1179    46
                                                                                                                 DECPRO    446
           172                     1     E.COM    BSSZ   1                 SAVED LENGTH OF COMTAB                FCC1179    47
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    12
         DPCOM - COMMON STATEMENT PROCESSOR 
  
           173                     1     E.ORG    BSSZ   1                 SAVED LENGTH OF ORGTAB                FCC1179    48
                                                                                                                 FCC1179    49
                                        ***                                                                      DECPRO    449
                                        *         SCF - SET COMMON FLAGS                                         DECPRO    450
                                        *                                                                        DECPRO    451
                                        *         SETS OR RESETS THE FLAGS:                                      DECPRO    452
                                        *                E.COM - SAVED COM TAB LENGTH                            DECPRO    453
                                        *                E.ORG - ORDINAL OF BLOCK BEING PROCESSED WHEN AN        DECPRO    454
                                        *                ERROR OCCURED                                           DECPRO    455
                                        *                                                                        DECPRO    456
           174  73625                    SCF1     SX6    X2+B5                                                   DECPRO    457
                     54610                        SA6    A1                SAVE COM TAB LENGTH                   DECPRO    458
           175  00000000000000000000     SCF      ENTRY.                                                         DECPRO    459
           176  5110000172 +                      SA1    E.COM                                                   DECPRO    460
                          5120000000 X            SA2    L.COM                                                   DECPRO    461
           177  0301000174 +                      ZR     X1,SCF1           IF NO PREVIOUS ERRORS                 DECPRO    462
                          5130000173 +            SA3    E.ORG                                                   DECPRO    463
           200  7261777776                        SX6    X1-1                                                    DECPRO    464
                          13777                   BX7    X7-X7                                                   DECPRO    465
                               54620              SA6    A2                RESET COM TAB LENGTH TO ERROR FREE    DECPRO    466
                                        *                                  VALUE                                 DECPRO    467
           201  0303000204 +                      ZR     X3,SCF2     IF IN AN OLD BLOCK                          DECPRO    468
                                                                                                                 DECPRO    469
                                        *         NEW BLOCK - CLEAR OUT ORGTAB ENTRY AND RESTORE N.COM           DECPRO    470
                                                                                                                 DECPRO    471
                          7263777776              SX6    X3-1                                                    DECPRO    472
           202  5160000000 X                      SA6    N.COM             RESTORE N.COM                         DECPRO    473
                          5273777776 X            SA7    ORGTAB-1+X3       CLEAR THE ENTRY                       DECPRO    474
           203  0400000175 +                      EQ     SCF                                                     DECPRO    475
                                        *                                                                        DECPRO    476
                                        *         OLD BLOCK - BREAK FORWARD LINK TO ERRONEOUS COMTAB ENTRY       DECPRO    477
                                        *                                                                        DECPRO    478
           204  5130000004 C             SCF2     SA3    LINKA       _ LAST LINK ENTRY                           DECPRO    479
                          43752                   MX7    42                                                      DECPRO    480
                               53430              SA4    X3                                                      DECPRO    481
           205  11674                             BX6    X7*X4                                                   DECPRO    482
                     54640                        SA6    A4          BREAK LINK TO BAD ENTRY                     DECPRO    483
                          0400000175 +            EQ     SCF         EXIT                                        DECPRO    484
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    13
         DPEQU - PROCESS EQUIVALENCE STATEMENTS 
  
                                                                                                                 DECPRO    486
                                        ***                                                                      DECPRO    487
                                        *         DPEQU - EQUIVALENCE STATEMENT PROCESSOR                        DECPRO    488
                                        *                                                                        DECPRO    489
                                        *         SYNTAX CHECK STATEMENT AND FORM EQ LIST FOR THE                DECPRO    490
                                        *         EQUIVALENCE GROUPS.                                            DECPRO    491
                                        *                                                                        DECPRO    492
                                        *         THE FORMAT OF AN EQ LIST ENTRY IS:                             DECPRO    493
                                        *          12/GORD,48/2*SYMORD                                           FCC1946   170
                                        *          3/N.SUBS,3/0,18/SUB C ,18/SUB B ,18/SUB A                     DECPRO    495
                                        *                                                                        DECPRO    496
                                        *          WHERE GORD IS THE ORDINAL OF THE NAME IN THE GROUP ( 1,2,..)  DECPRO    497
                                        *                                                                        DECPRO    498
                                                                                                                 DECPRO    499
                                 133     E.ESE    EQU    91                SUBSCRIPT ERROR                       DECPRO    501
                                 134     E.E1N    EQU    92                1 NAME IN THE GROUP                   DECPRO    502
                                 135     E.EBS    EQU    93                BAD SYNTAX                            DECPRO    503
  
  
  
                                        *         ERROR EXITS                                                    DECPRO    506
                                                                                                                 DECPRO    507
           206  6160000135               DPEQU.ES SB6    E.EBS             BAD SYNTAX                            DECPRO    508
                          0400000024 +            EQ     CDN.E0                                                  DECPRO    509
                                                                                                                 DECPRO    510
           207  6160000133               DPEQU.SE SB6    E.ESE             SUBSCRIPT ERROR                       DECPRO    511
                          0400000211 +            EQ     DPEQU.EX                                                DECPRO    512
                                                                                                                 DECPRO    513
           210  6160000134               DPEQU.E1 SB6    E.E1N             1 NAME IN THE GROUP                   DECPRO    514
                          0400000211 +            EQ     DPEQU.EX                                                DECPRO    515
                                                                                                                 DECPRO    516
           211  5140000002 C             DPEQU.EX SA4    SNAME                                                   DECPRO    519
                          0400000024 +            EQ     CDN.E0                                                  DECPRO    520
                                                                                                                 DECPRO    521
                                                  USE    /MACBUF/                                                DECPRO    522
             5                     1     EQVTEMP  BSS    1                 A WORD TO HOLD THE FIRST WORD OF EQV  DECPRO    523
                                                  USE    *                                                       DECPRO    524
  
  
  
  
                                        *         ENTRY POINT FROM PH1CTL                                        DECPRO    526
                                                                                                                 DECPRO    527
           212  76650                    DPEQU    SX6    B5                                                      DECPRO    528
                     20621                        LX6    P.FP                                                    DECPRO    529
                          5160000000 C            SA6    FPFLAG            F.P. S NOT ALLOWED                    DECPRO    530
                                                                                                                 DECPRO    531
           213  0100000275 +             DPEQUL   RJ     SEF               SAVE EQV TABLE LENGTH                 DECPRO    532
           214  5150000032                        GETE                     FIRST E-LIST ELEMENT                  DECPRO    533
           215  6130000006                        IF.NE  EL.(,DPEQU.ES     IF NOT A (                            DECPRO    534
           216  43700                             MX7    0                                                       DECPRO    535
                     5170000014 C                 SA7    GNC               CLEAR THE GROUP NAME COUNT            DECPRO    536
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    14
         DPEQU - PROCESS EQUIVALENCE STATEMENTS 
  
                                        *         PROCESS AN EQUIVALENCE GROUP                                   DECPRO    538
                                                                                                                 DECPRO    539
           217  6160000135               DPEQU.L  CNAME  E.EBS             PROCESS NAME                          DECPRO    540
           220  43001                             MX0    1                                                       DECPRO    541
                     36762                        IX7    X6+X2             ADD TYPE TO WORD B                    DECPRO    542
                          20051                   LX0    1+P.VAR                                                 DECPRO    543
                               12707              BX7    X0+X7             SET VAR BIT                           DECPRO    544
           221  54720                             SA7    A2                                                      DECPRO    545
                                                                                                                 DECPRO    551
                                        *         MAKE AN EQV LIST ENTRY FOR THE NAME                            DECPRO    552
                                                                                                                 DECPRO    553
                     5140000014 C                 SA4    GNC                                                     DECPRO    554
                               73745              SX7    X4+B5             GNC = GNC+1                           DECPRO    555
           222  54740                             SA7    A4                                                      DECPRO    556
                     76011                        SX0    B1+B1                                                   DECPRO    557
                          63770                   SB7    X7                                                      DECPRO    558
                                                                                                                 DECPRO    559
                               43460              MX4    48                 PX1   B7,X0                          FCC1946   171
           223  76570                             SX5    B7                                                      FCC1946   172
                     15254                        BX2    -X4*X5                                                  FCC1946   173
                          43314                   MX3    12                                                      FCC1946   174
                               20260              LX2    48                                                      FCC1946   175
           224  15603                             BX6    -X3*X0                                                  FCC1946   176
                     12126                        BX1    X2+X6              12/P(GORD), 48/2*SYMORD              FCC1946   177
                          5100000000 X            ADDWD  EQV,X1            ADD FIRST WORD OF EQV TABLE ENTRY     DECPRO    561
           226  43100                             MX1    0                                                       DECPRO    562
                     0100000000 X                 ADDWD                    AND CLEAR SECOND WORD                 DECPRO    563
           227  74660                             SX6    A6                                                      DECPRO    564
                     5160000005 C                 SA6    EQVTEMP           SAVE ADDRESS OF SECOND WORD           DECPRO    565
                                                                                                                 DECPRO    566
           230  5150000000 X                      SA5    RSELECT                                                 DECPRO    567
                          0305000233 +            ZR     X5,DPEQU2         IF R = 0                              DECPRO    568
           231  5110000001 C                      ADDREF SAVEB1,REF        ADD A REFERENCE FOR THE NAME          DECPRO    569
                                                                                                                 DECPRO    570
           233  5150000032               DPEQU2   GETE                     NEXT AFTER THE NAME                   DECPRO    571
           234  6130000006                        IF.NE  EL.(,DPEQU4       IF NOT A (                            DECPRO    572
           235  43600                             MX6    0                                                       DECPRO    573
                     5160000007 C                 SA6    N.SUBS            CLEAR SUBSCRIPT COUNT                 DECPRO    574
                                                                                                                 DECPRO    575
                                        *         PROCESS SUBSCRIPT LIST                                         DECPRO    576
                                                                                                                 DECPRO    577
           236  55445                    DPEQU.SL NEXTE                    SUBSCRIPT                             DECPRO    578
                          0520000207 +            IF.NE  CON,DPEQU.SE      IF NOT A CONSTANT                     DECPRO    579
           237  75645                             UPDATE                                                         DECPRO    580
                          21155                   AX1    45                                                      DECPRO    581
           240  7221777776                        SX2    X1-T.INT                                                DECPRO    582
                          7231777772              SX3    X1-T.OCT                                                DECPRO    583
           241  0302000242 +                      ZR     X2,DPEQU3         IF INTEGER                            DECPRO    584
                          0313000207 +            NZ     X3,DPEQU.SE       IF NOT OCTAL                          DECPRO    585
                                                                                                                 DECPRO    586
           242  67105                    DPEQU3   SB1    -B5                                                     DECPRO    587
                     10144                        BX1    X4                                                      DECPRO    588
                          0100000000 X            RJ     CONVERT           CONVERT THE CONSTANT TO BINARY        DECPRO    589
           243  0301000207 +                      ZR     X1,DPEQU.SE       ERROR IF ZERO                         DECPRO    590
                          10611                   BX6    X1                                                      DECPRO    591
                               21121              AX1    17                                                      DECPRO    592
           244  0311000207 +                      NZ     X1,DPEQU.SE       ERROR IF TOO BIG                      DECPRO    593
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    15
         DPEQU - PROCESS EQUIVALENCE STATEMENTS 
  
                          5120000007 C            SA2    N.SUBS                                                  DECPRO    594
           245  73725                             SX7    X2+B5             N.SUBS = N.SUBS+1                     DECPRO    595
                     54720                        SA7    A2                                                      DECPRO    596
                          7232777774              SX3    X2-3                                                    DECPRO    597
           246  0323000207 +                      PL     X3,DPEQU.SE       IF TOO MANY SUBSCRIPTS                DECPRO    598
                          5262000011 C            SA6    DIMTAB+X2         SAVE THE SUBSCRIPT                    DECPRO    599
           247  5150000032                        GETE                     NEXT AFTER THE SUBSCRIPT              DECPRO    600
           250  6130000003                        IF.EQ  EL.COMMA,DPEQU.SL   LOOP IF A COMMA                     DECPRO    601
                                                                                                                 DECPRO    602
           251  6130000002                        IF.NE  EL.),DPEQU.SE     IF NOT A )                            DECPRO    603
           252  75645                             UPDATE                                                         DECPRO    604
                                                                                                                 DECPRO    605
                                        *         ADD SECOND WORD TO EQV LIST                                    DECPRO    606
                                                                                                                 DECPRO    607
                          63270                   SB2    X7                NUMBER OF SUBSCRIPTS                  DECPRO    608
                               66100              SB1    B0                                                      DECPRO    609
           253  66300                             SB3    B0                CLEAR SHIFT COUNT                     DECPRO    610
                     20771                        LX7    57                POSITION NUMBER OF SUBS               DECPRO    611
                                                                                                                 DECPRO    612
           254  5131000011 C             DPEQUS   SA3    DIMTAB+B1         SUBSCRIPT                             DECPRO    613
                          66115                   SB1    B1+B5             ADVANCE INDEX                         DECPRO    614
                               22433              LX4    B3,X3                                                   DECPRO    615
           255  6133000022                        SB3    B3+18                                                   DECPRO    616
                          12774                   BX7    X7+X4                                                   DECPRO    617
           256  0712000254 +                      LT     B1,B2,DPEQUS                                            DECPRO    618
                          5120000005 C            SA2    EQVTEMP           ADDRESS OF WORD 2                     DECPRO    619
           257  53720                             SA7    X2                                                      DECPRO    620
                     5150000032                   GETE                     NEXT AFTER THE )                      DECPRO    621
                                                                                                                 DECPRO    622
           261  6130000003               DPEQU4   IF.EQ  EL.COMMA,DPEQU.L  LOOP IF A COMMA                       DECPRO    623
           262  6130000002                        IF.NE  EL.),DPEQU.ES     IF NO )                               DECPRO    624
           263  5120000014 C                      SA2    GNC                                                     DECPRO    625
                          7202777776              SX0    X2-1                                                    DECPRO    626
           264  0300000210 +                      ZR     X0,DPEQU.E1       IF ONLY ONE NAME IN THE GROUP         DECPRO    627
                                                                                                                 DECPRO    628
           265  5150000032               DPEQU7   GETE                                                           DECPRO    651
                                                                                                                 DECPRO    652
           266  43700                    DPEQU8   MX7    0                                                       DECPRO    653
                     5170000273 +                 SA7    E.EQV             CLEAR SAVED EQV TAB LENGTH            DECPRO    654
                               55445              NEXTE                                                          DECPRO    655
                     6130000004                   IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                           DECPRO    656
                          75645                   UPDATE                                                         DECPRO    657
           271  6130000003                        IF.EQ  EL.COMMA,DPEQUL   LOOP IF A COMMA                       DECPRO    658
                                                                                                                 DECPRO    659
           272  0400000206 +                      EQ     DPEQU.ES          SYNTAX ERROR                          DECPRO    660
  
  
  
           273  00000000000000000000     E.EQV                             SAVED EQV TBL LENGTH                  DECPRO    662
                                        ***                                                                      DECPRO    663
                                        *         SEF - SET EQUIVALENCE FLAG                                     DECPRO    664
                                        *         SAVE LENGTH OF EQV TAB IN CASE OF ERRORS                       DECPRO    665
                                        *                                                                        DECPRO    666
           274  73625                    SEF1     SX6    X2+B5                                                   DECPRO    667
                     54610                        SA6    A1                E.EQV = L.EQV+1                       DECPRO    668
           275  00000000000000000000     SEF      ENTRY.                                                         DECPRO    669
           276  5110000273 +                      SA1    E.EQV                                                   DECPRO    670
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    16
         DPEQU - PROCESS EQUIVALENCE STATEMENTS 
  
                          5120000000 X            SA2    L.EQV                                                   DECPRO    671
           277  0301000274 +                      ZR     X1,SEF1           IF NO PREVIOUS ERRORS                 DECPRO    672
                          7261777776              SX6    X1-1                                                    DECPRO    673
           300  54620                             SA6    A2                                                      DECPRO    674
                     0400000275 +                 EQ     SEF                                                     DECPRO    675
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    17
         DPTYP - PROCESS TYPE STATEMENTS
  
                                        ***                                                                      DECPRO    677
                                        *         DPTYP - TYPE STATEMENT PROCESSOR                               DECPRO    678
                                        *                                                                        DECPRO    679
                                        *         ENTER NAMES IN SYMTAB AND SET TYPE TO MODE SPECIFIED BY        DECPRO    680
                                        *         TYPE STATEMENT                                                 DECPRO    681
                                        *                                                                        DECPRO    682
                                   5     ST.ECS   EQU    5                 STATEMENT TYPE OF ECS STATEMENT       DECPRO    683
  
  
  
                                                                                                                 DECPRO    685
           301  43700                    DPTYP    MX7    0                                                       DECPRO    686
                     5150000051                   SA5    ATYPE                                                   DECPRO    687
           302  5170000000 C                      SA7    FPFLAG            F.P. S ALLOWED                        DECPRO    688
                          7245777772              SX4    X5-ST.ECS                                               DECPRO    689
           303  0314000305 +                      NZ     X4,DPERRO         IF NOT *TYPE ECS*                     DECPRO    690
                          6160777330              POSTER SEV=INF,NR=E.SFO  *STATEMENT FORM OBSOLETE*             DECPRO    691
           305  5150000051               DPERRO   SA5    ATYPE                                                   DECPRO    692
                          6275777774              SB7    X5-T.DBL                                                DECPRO    693
           306  0770000310 +                      NG     B7,DPTYP0         IF SINGLE PRECISION                   DECPRO    694
                          0757000310 +            GT     B7,B5,DPTYP0      IF NOT TYPE DOUBLE OR COMPLEX         DECPRO    695
           307  43601                             MX6    1                                                       DECPRO    696
                     5160000000 X                 SA6    =XDBLDECL         /DOUBLE OR COMPLEX DECLAR/ FLAG ON    DECPRO    697
                                                                                                                 DECPRO    698
                                        *         PROCESS THE LIST OF NAMES                                      DECPRO    699
                                                                                                                 DECPRO    700
           310  5150000032               DPTYP0   INITE                    INITIALIZE E-LIST POINTER             DECPRO    701
                                                                                                                 DECPRO    702
           311  6160000437               DPTYPL   CNAME  E.BADSYN          PROCESS NAME                          DECPRO    703
           312  0570000321 +                      NZ     B7,DPTYP.P        IF NOT FIRST OCCURRENCE               DECPRO    704
                          0305000327 +            ZR     X5,DPTYP.N        IF NO PRIOR OCCURRENCE IN DEBUG STMT  DECPRO    705
                                                                                                                 DECPRO    706
           313  54220                             SA2    A2                GET WORD B FROM SYMTAB                DECPRO    707
                     10766                        BX7    X6                SAVE CURRENT TYPE                     DECPRO    708
                          0100000000 X            CALL   NTYPE             GET NATURAL TYPE                      DECPRO    709
           314  13367                             BX3    X6-X7                                                   DECPRO    710
                     0313000364 +                 NZ     X3,DPTYP.I        IF PRESENT TYPE " NATURAL TYPE        DECPRO    711
                                                                                                                 DECPRO    712
                               43003              MX0    L.SNT                                                   DECPRO    713
           315  5130000051                        SA3    ATYPE             PLACE DECLARED TYPE IN SNT FIELD      DECPRO    714
                          7243777772              SX4    X3-ST.ECS                                               DECPRO    715
           316  0304000357 +                      ZR     X4,DPTYP5         IF STATEMENT TYPE ECS                 DECPRO    716
                          20046                   LX0    L.SNT+P.SNT                                             DECPRO    717
                               15220              BX2    -X0*X2            REMOVE OLD VALUE OF SNT               DECPRO    718
           317  20343                             LX3    P.SNT                                                   DECPRO    719
                     36732                        IX7    X3+X2                                                   DECPRO    720
                          54720                   SA7    A2                UPDATE WORD B                         DECPRO    721
           320  0400000334 +                      EQ     DPTYP1                                                  DECPRO    722
                                                                                                                 DECPRO    723
           321  0100000000 X             DPTYP.P  RJ     =XNTYPE           GET NATURAL TYPE                      DECPRO    724
           322  0515000325 +                      NE     B1,B5,DPTYP.P1    IF NOT A FUNCTION                     DECPRO    725
                          5130000000 X            SA3    =XVALUE.          ORDINAL OF *VALUE.* IN SYMTAB         DECPRO    726
           323  5150000012                        SA5    SYM1              FWA OF SYMTAB                         DECPRO    727
                          20301                   LX3    1                 2*ORD OF *VALUE.*                     DECPRO    728
                               37253              IX2    X5-X3             (SYM1)-(VALUE.)=ADDR OF VALUE. WORD A DECPRO    729
           324  5222777776                        SA2    X2-1              SYMTAB WORD B OF *VALUE.*             DECPRO    730
           325  43704                    DPTYP.P1 MX7    L.TYP                                                   DECPRO    731
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    18
         DPTYP - PROCESS TYPE STATEMENTS
  
                     11572                        BX5    X7*X2             EXTRACT PRESENT TYPE                  DECPRO    732
                          37465                   IX4    X6-X5                                                   DECPRO    733
                               15227              BX2    -X7*X2            REMOVE TYPE                           DECPRO    734
           326  0314000364 +                      NZ     X4,DPTYP.I        IF PRESENT TYPE " NATURAL TYPE        DECPRO    735
                                                                                                                 DECPRO    736
           327  5130000051               DPTYP.N  SA3    ATYPE             MODE OF TYPE STMT                     DECPRO    737
                          7243777772              SX4    X3-ST.ECS                                               DECPRO    738
           330  0304000357 +                      ZR     X4,DPTYP5         IF STATEMENT TYPE ECS                 DECPRO    739
                          20370                   LX3    P.TYP                                                   DECPRO    740
                               12632              BX6    X3+X2             ADD TYPE TO WORD B                    DECPRO    741
           331  54620                             SA6    A2                                                      DECPRO    742
                     0515000334 +                 NE     B1,B5,DPTYP1      IF NOT A FUNCTION                     DECPRO    743
                               43701              MX7    1                                                       DECPRO    744
           332  20304                             LX3    L.TYP                                                   DECPRO    745
                     7243777774                   SX4    X3-T.DBL                                                DECPRO    746
                               15674              BX6    -X4*X7                                                  DECPRO    747
           333  20601                             LX6    1                                                       DECPRO    748
                     73765                        SX7    X6+B5                                                   DECPRO    749
                          5170000000 X            SA7    =XFUNTYPE         NR WORDS IN FUNCTION RESULT           DECPRO    750
                                                                                                                 DECPRO    751
           334  5150000000 X             DPTYP1   SA5    RSELECT                                                 DECPRO    752
                          0305000336 +            ZR     X5,DPTYP2         IF R = 0                              DECPRO    753
           335  43200                             ADDREF B1,REF            A REFERENCE FOR THE NAME              DECPRO    754
                                                                                                                 DECPRO    755
           336  5150000032               DPTYP2   GETE                     SEPARATOR                             DECPRO    756
           337  6130000006                        IF.NE  EL.(,DPTYP4       IF NEXT IS NOT A (                    DECPRO    757
                                                                                                                 DECPRO    758
           340  5130000012                        SA3    SYM1                                                    DECPRO    759
                          5110000001 C            SA1    SAVEB1                                                  DECPRO    760
           341  63110                             SB1    X1                                                      DECPRO    761
                     53030                        SA0    X3                                                      DECPRO    762
                          20101                   LX1    1                                                       DECPRO    763
                               37531              IX5    X3-X1                                                   DECPRO    764
           342  5225777776                        SA2    X5-1              WORD B                                DECPRO    765
                          10322                   BX3    X2                                                      DECPRO    766
                               20305              LX3    59-P.EXT                                                DECPRO    767
           343  0333000030 +                      MI     X3,CDN.E3         IF PRIOR OCCURRENCE IN EXTERNAL STMT  DECPRO    768
                          0415000031 +            EQ     B1,B5,CDN.E4      IF ILLEGAL USE OF FUNCTION NAME       DECPRO    769
                                                                                                                 DECPRO    770
           344  43004                             MX0    L.TYP                                                   DECPRO    771
                     11302                        BX3    X0*X2                                                   DECPRO    772
                          20304                   LX3    L.TYP             TYPE FIELD                            DECPRO    773
           345  7243777760                        SX4    X3-T.DBG                                                DECPRO    774
                          0314000353 +            NZ     X4,DPTYP3         IF NOT AN UNUSED DEBUG VAR            DECPRO    775
                                                                                                                 DECPRO    776
                                        *         PREVIOUS OCCURANCE IN A DEBUG STMT, CALL CFO TO CHECK BIT SETT DECPRO    777
                                                                                                                 DECPRO    778
           346  10322                             BX3    X2                                                      DECPRO    779
                     20325                        LX3    P.TYP-P.SNT                                             DECPRO    780
                          11603                   BX6    X0*X3             X6 = NATURAL TYPE                     DECPRO    781
                               43520              MX5    L.DBGI                                                  DECPRO    782
           347  20543                             LX5    L.DBGI+P.DBGI                                           DECPRO    783
                     11752                        BX7    X5*X2             SET UP X7                             DECPRO    784
                          43060                   MX0    60-12                                                   DECPRO    785
                               11202              BX2    X0*X2             X2 = P- FIELD                         DECPRO    786
           350  43000                             CFO    VAR               CHECK SETTING OF DEBUG BITS           DECPRO    787
           351  43004                             MX0    L.TYP                                                   FCC0517     4
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    19
         DPTYP - PROCESS TYPE STATEMENTS
  
                                                  LX0    L.TYP+P.TYP                                             FCC0517     5
                     15220                        BX2    -X0*X2      REMOVE OLD TYPE                             FCC0517     6
                          36762                   IX7    X6+X2             ADD TYPE                              DECPRO    788
                               54720              SA7    A2                                                      DECPRO    789
           352  5150000032                        GETE                     RESTORE SEPARATOR                     DECPRO    790
                                                                                                                 DECPRO    791
           353  0100000450 +             DPTYP3   RJ     DIMEN             PROCESS DIMENSION SPECIFICATION       DECPRO    792
                                                                                                                 DECPRO    793
           354  6130000003               DPTYP4   IF.EQ  EL.COMMA,DPTYPL   LOOP IF A ,                           DECPRO    794
           355  6130000004                        IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                           DECPRO    795
                                                                                                                 DECPRO    796
           356  6160000436                        SB6    E.BADSEP                                                DECPRO    797
                          0400000024 +            EQ     CDN.E0                                                  DECPRO    798
                                                                                                                 DECPRO    799
           357  54220                    DPTYP5   SA2    A2                REFETCH SYMTAB WORD B                 DECPRO    800
                     0415000031 +                 EQ     B1,B5,CDN.E4      IF ILLEGAL USE OF FUNCTION NAME       DECPRO    801
           360  7170000003                        SX7    3                                                       FCC0504     7
                          5170000000 X            SA7    =XLEVEL2                                                FCC0504     8
           361  76650                             SX6    B5                                                      FCC0504     9
                     20601                        LX6    P.LCM                                                   FCC0504    10
                          12226                   BX2    X2+X6                                                   FCC0504    11
           362  5170000000 X                      SA7    =XLEVEL           /LEVEL STMT APPEARED/ FLAG TO -YES-   DECPRO    803
                          20702                   LX7    P.LVL                                                   DECPRO    804
                               12627              BX6    X2+X7       LEVEL = 3                                   FCC0504    12
           363  54620                             SA6    A2                                                      DECPRO    806
                     0400000334 +                 EQ     DPTYP1                                                  DECPRO    807
                                                                                                                 DECPRO    808
                                        *         INFORMATIVE ERROR FOR PREVIOUSLY TYPED NAME                    DECPRO    809
                                                                                                                 DECPRO    810
           364  5140000002 C             DPTYP.I  POSTER SEV=INF,NR=E.TRT,FMT=ELIST,TXT=SNAME,RETURN=DPTYP1      DECPRO    811
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    20
         DPDIM - PROCESS DIMENSION STATEMENTS 
  
                                 437     E.DNT    EQU    287               ILLEGAL SYNTAX                        DECPRO    813
                                  53     E.DTMS   EQU    43                TOO MANY SUBSCRIPTS                   DECPRO    814
                                  54     E.DBCON  EQU    44                ILLEGAL SUBSCRIPT                     DECPRO    815
                                  55     E.DDD    EQU    45                PREVIOUSLY DIMENSIONED                DECPRO    816
                                  56     E.DIVD   EQU    46                IMPROPER VARIABLE DIMENSIONS          DECPRO    817
                                  60     E.CUN    EQU    48                CONFLICTING USE OF A NAME             DECPRO    818
                                                                                                                 DECPRO    819
                                                  USE    /MACBUF/                                                DECPRO    820
             6  00000000000000000000     TEMP                              A GENERAL TEMPORARY                   DECPRO    821
             7  00000000000000000000     N.SUBS                            NUMBER OF SUBSCRIPTS                  DECPRO    822
            10  00000000000000000000     VARSUB                            VARIABLE SUBSCRIPTS FLAG              DECPRO    823
            11                     3     DIMTAB   BSS    3                 SUBSCRIPTS ( VALUE OR SYMTAB ORD )    DECPRO    824
            14  00000000000000000000     GNC                               GROUP NAME COUNT                      DECPRO    825
                                                  USE    *                                                       DECPRO    826
  
  
  
                                        ***                                                                      DECPRO    828
                                        *         DPDIM - DIMENSION STATEMENT PROCESSOR                          DECPRO    829
                                        *                                                                        DECPRO    830
  
  
  
           366  5150000032               DPDIM    INITE                    INITIALIZE E-LIST POINTER             DECPRO    832
                               43600              MX6    0                                                       DECPRO    833
           367  5160000000 C                      SA6    FPFLAG            ALLOW F.P. S                          DECPRO    834
                                                                                                                 DECPRO    835
           370  6160000437               DPDIML   CNAME  E.DNT             PROCESS NAME                          DECPRO    836
           371  12762                             BX7    X6+X2             SET TYPE (X6 .NZ. ONLY IF 1ST OCCUR)  DECPRO    837
                     54720                        SA7    A2                                                      DECPRO    838
                                                                                                                 DECPRO    839
                          5150000000 X            SA5    RSELECT                                                 DECPRO    840
           372  0305000374 +                      ZR     X5,DPDIM1         IF R = 0                              DECPRO    841
                          43200                   ADDREF B1,REF            ADD A REFERENCE FOR THE NAME          DECPRO    842
                                                                                                                 DECPRO    843
           374  5150000032               DPDIM1   GETE                     NEXT E-LIST ITEM, A (                 DECPRO    844
           375  6160000437                        SB6    E.DNT                                                   DECPRO    845
                          6130000006              IF.NE  EL.(,CDN.E0       IF NO (                               DECPRO    846
                          0100000450 +            RJ     DIMEN             PROCESS DIMENSION DECLARATION         DECPRO    847
                                                                                                                 DECPRO    848
           377  6130000003                        IF.EQ  EL.COMMA,DPDIML   LOOP IF A COMMA                       DECPRO    849
                                                                                                                 DECPRO    850
           400  6130000004                        IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                           DECPRO    851
                                                                                                                 DECPRO    852
           401  6160000436                        SB6    E.BADSEP          BAD SEPARATOR                         DECPRO    853
                          0400000024 +            EQ     CDN.E0                                                  DECPRO    854
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    21
        DPLEV - PROCESS LEVEL STATEMENTS
  
                                   3     M.LVL    EQU    3                 MAXIMUM ALLOWABLE LEVEL NUMBER        DECPRO    856
                                 442     E.BADLEV EQU    290               BAD LEVEL NUMBER SPECIFIED            DECPRO    857
                                 447     E.SFO    EQU    295               STATEMENT FORM OBSOLETE               DECPRO    858
                                 453     EASAST   EQU    299               NON-ANSI STATEMENT                    DECPRO    859
                                                                                                                 DECPRO    860
                                                  ENTRY  DPLEV                                                   DECPRO    861
           402  43700                    DPLEV    MX7    0                                                       DECPRO    862
                     5170000000 C                 SA7    FPFLAG            PROCESS FORMAL PARAMETERS             DECPRO    863
                               43601              MX6    1                                                       DECPRO    864
           403  5160000000 X                      SA6    =XLEVEL           /LEVEL STMT FOUND/ FLAG ON            DECPRO    865
                                                                                                                 DECPRO    866
                          6160777324              POSTERR  NR=EASAST,SEV=ANSI                                    DECPRO    867
           405  5150000032                        GETE                                                           DECPRO    868
           406  0520000437 +                      IF.NE  CON,DPLEV.B       IF NOT A CONSTANT                     DECPRO    869
                                                                                                                 DECPRO    870
                          21155                   AX1    45                                                      DECPRO    871
           407  7221777776                        SX2    X1-T.INT                                                DECPRO    872
                          0312000437 +            NZ     X2,DPLEV.B        IF NOT A SIMPLE INTEGER CONSTANT      DECPRO    873
           410  67105                             SB1    -B5                                                     DECPRO    874
                     10144                        BX1    X4                                                      DECPRO    875
                          0100000000 X            RJ     CONVERT           CONVERT THE INTEGER                   DECPRO    876
                                                                                                                 DECPRO    877
           411  0331000437 +                      NG     X1,DPLEV.B        IF VALUE < 0                          DECPRO    878
                          0301000437 +            ZR     X1,DPLEV.B        IF LEVEL NUMBER = 0                   DECPRO    879
           412  7221777773                        SX2    X1-M.LVL-1                                              DECPRO    880
                          0322000437 +            PL     X2,DPLEV.B        IF > MAXIMUM LEVEL                    DECPRO    881
           413  5120000032                        SA2    SELIST                                                  DECPRO    882
                          7262777776              SX6    X2-1                                                    DECPRO    883
           414  5062000000                        SA6    A2+                                                     DECPRO    884
                                                                                                                 DECPRO    885
                                         #DAL     IFEQ   .DAL,0      .ZR. IF LCM DIRECT ACCESS NOT ALLOWED       DECPRO    886
                                                  SX2    X1-3                                                    DECPRO    887
                                                  NZ     X2,DPLEV3   IF NOT LCM-RESIDENT                         DECPRO    888
                                                  SX2    B5                                                      DECPRO    889
                                                  LX2    P.LCM-P.LVL                                             DECPRO    890
                                                  BX1    X1+X2                                                   DECPRO    891
                                                                                                                 DECPRO    892
                                         #DAL     ELSE                                                           DECPRO    893
                          7221777775              SX2    X1-2                                                    DECPRO    894
           415  0332000417 +                      MI     X2,DPLEV3   IF NOT LCM RESIDENT                         DECPRO    895
                          76650                   SX6    B5                                                      DECPRO    898
                               20673              LX6    P.LCM-P.LVL                                             DECPRO    899
           416  12116                             BX1    X1+X6                                                   FCC0504    15
                                         #DAL     ENDIF                                                          FCC0504    16
                                                                                                                 FCC0504    17
                     76655                        SX6    B5+B5                                                   DECPRO    903
                          5160000000 X            SA6    =XLEVEL2                                                DECPRO    904
                                                                                                                 DECPRO    906
           417  20102                    DPLEV3   LX1    P.LVL                                                   DECPRO    907
                     10611                        BX6    X1                                                      DECPRO    908
           420  5160000015 C             DPLEV0   SA6    LVL               SET THE LEVEL VALUE                   DECPRO    909
                          5150000032              GETE                                                           DECPRO    910
                          6130000003              IF.NE  EL.COMMA,DPLEV.A  IF NOT FOLLOWED BY A COMMA            DECPRO    911
                                                                                                                 DECPRO    912
           423  6160000437               DPLEV1   CNAME  E.BADSYN          PROCESS NAME                          DECPRO    913
           424  43072                             MX0    60-L.LVL                                                DECPRO    914
                     12762                        BX7    X6+X2             SET TYPE IF FIRST TIME                DECPRO    915
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    22
        DPLEV - PROCESS LEVEL STATEMENTS
  
                          76550                   SX5    B5                                                      DECPRO    916
                               20002              LX0    P.LVL             POSITION MASK                         DECPRO    917
           425  15170                             BX1    -X0*X7             EXTRACT DECLARED LEVEL               DECPRO    918
                     5130000015 C                 SA3    LVL                                                     DECPRO    919
           426  0301000430 +                      ZR     X1,DPLEV1A        IF NO PREVIOUS LEVEL                  DECPRO    920
                          37131                   IX1    X3-X1             COMPARE PREVIOUS LEVEL WITH NEW ONE   DECPRO    921
           427  0311000441 +                      NZ     X1,DPLEV.C        IF DIFFERENT LEVELS                   DECPRO    922
                                                                                                                 DECPRO    923
           430  12137                    DPLEV1A  BX1    X3+X7       INSERT SPECIFIED LEVEL                      DECPRO    924
                     20550                        LX5    P.VAR                                                   DECPRO    925
                          12715                   BX7    X1+X5       SET -VAR- BIT                               DECPRO    926
                               54720              SA7    A2                                                      DECPRO    927
                                                                                                                 DECPRO    928
           431  5150000000 X             DPLEV1B  SA5    RSELECT                                                 DECPRO    929
                          0305000433 +            ZR     X5,DPLEV2         IF R = 0                              DECPRO    930
           432  43200                             ADDREF B1,REF            ADD A REFERENCE FOR THE NAME          DECPRO    931
                                                                                                                 DECPRO    932
           433  5150000032               DPLEV2   GETE                                                           DECPRO    933
           434  6130000003                        IF.EQ  EL.COMMA,DPLEV1   IF A COMMA                            DECPRO    934
                                                                                                                 DECPRO    935
           435  6130000004                        IF.EQ  EL.EOS,PH1SCAN    IF EOS                                DECPRO    936
                                                                                                                 DECPRO    937
           436  6160000436               DPLEV.A  SB6    E.BADSEP          BAD SEPARATOR                         DECPRO    938
                          0400000024 +            EQ     CDN.E0                                                  DECPRO    939
                                                                                                                 DECPRO    940
           437  6160000442               DPLEV.B  SB6    E.BADLEV          BAD LEVEL NUMBER                      DECPRO    941
                          5150000032              GETE                                                           DECPRO    942
                          0400000024 +            EQ     CDN.E0                                                  DECPRO    943
                                                                                                                 DECPRO    944
           441  5140000002 C             DPLEV.C  POSTER SEV=INF,NR=E291,FMT=ELIST,TXT=SNAME,RETURN=DPLEV1B      DECPRO    945
                                                                                                                 DECPRO    946
                                                  USE    /MACBUF/                                                DECPRO    947
            15  00000000000000000000     LVL                               LEVEL BITS FOR SETTING WORD B         DECPRO    948
                                                  USE    *                                                       DECPRO    949
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    23
         DIMEN - PROCESS A ARRAY DECLARATION
  
                                        ***                                                                      DECPRO    951
                                        *         DIMEN - PROCESS ARRAY DECLARATION                              DECPRO    952
                                        *                                                                        DECPRO    953
                                        *         ON ENTRY:                                                      DECPRO    954
                                        *                PREVIOUS CALL TO CDN                                    DECPRO    955
                                        *                A ( FOLLOWS THE NAME                                    DECPRO    956
                                        *                                                                        DECPRO    957
                                        *         ON EXIT:                                                       DECPRO    958
                                        *                MACRO "GETE" CALLED TO SET UP REGISTERS TO ITEM         DECPRO    959
                                        *                AFTER CLOSING PAREN                                     DECPRO    960
                                        *                                                                        DECPRO    961
                                        *         FORMS A DIM TAB ENTRY FOR THE NAME AND DIMENSIONS              DECPRO    962
                                        *         FORMAT:                                                        DECPRO    963
                                        *          6/0,18/SYMTAB ORD,36/0                                        DECPRO    964
                                        *          3/N.SUBS,3/V(ABC),18/NUMBER OF WORDS,18/SUB B,18/SUB A        DECPRO    965
                                        *          WHERE V(ABC) IS THE VARIABLE SUBSCRIPT FLAG FIELD             DECPRO    966
                                        *                                                                        DECPRO    967
                                                                                                                 DECPRO    968
           443  6160000054               DIMEN.B  SB6    E.DBCON           BAD CONSTANT SUBSCRIPT                DECPRO    969
                                                                                                                 DECPRO    970
           444  5140000002 C             DIMEN.E  SA4    SNAME                                                   DECPRO    971
                          6170000000 X            POSTER SEV=FE,NR=**,RETURN=PH1SCAN                             DECPRO    972
                                        *                                                                        DECPRO    973
           446  12726                   DIMEN.G   BX7    X2+X6                                                   DECPRO    974
                     54720                        SA7    A2              STORE WORD B                            DECPRO    975
                          0400000444 +            EQ     DIMEN.E                                                 DECPRO    976
  
  
  
           447  5150000032               DIMENX   GETE                      E-LIST ELEMENT AFTER )               DECPRO    978
                                                                                                                 DECPRO    979
           450  00000000000000000000     DIMEN                                                                   DECPRO    980
           451  43700                             MX7    0                                                       DECPRO    981
                     5170000007 C                 SA7    N.SUBS                                                  DECPRO    982
           452  5170000010 C                      SA7    VARSUB            CLEAR FLAGS                           DECPRO    983
                                                                                                                 DECPRO    984
                                        *         PROCESS DIMENSION DECLARATION LIST                             DECPRO    985
                                                                                                                 DECPRO    986
                                                                                                                 DECPRO    987
           453  55445                    DIMEN.L  NEXTE                    SUBSCRIPT ( CONSTANT OR NAME )        DECPRO    988
                          75645                   UPDATE                                                         DECPRO    989
           454  5120000007 C                      SA2    N.SUBS                                                  DECPRO    990
                          73725                   SX7    X2+B5             N.SUBS = N.SBUS+1                     DECPRO    991
                               54720              SA7    A2                                                      DECPRO    992
           455  7232777774                        SX3    X2-3                                                    DECPRO    993
                          6160000053              SB6    E.DTMS                                                  DECPRO    994
           456  0323000444 +                      PL     X3,DIMEN.E        IF TOO MANY DIMENSIONS                DECPRO    995
                                                                                                                 DECPRO    996
                          0425000466 +            IF.EQ  NAME,DIMEN.V      IF A NAME                             DECPRO    997
           457  0520000443 +                      IF.NE  CON,DIMEN.B       IF NOT A CONSTANT                     DECPRO    998
                                                                                                                 DECPRO    999
                                        *         PROCESS CONSTANT DIMENSION                                     DECPRO   1000
                                                                                                                 DECPRO   1001
                          21155                   AX1    45                                                      DECPRO   1002
           460  7221777776                        SX2    X1-T.INT                                                DECPRO   1003
                          7231777772              SX3    X1-T.OCT                                                DECPRO   1004
           461  0302000462 +                      ZR     X2,DIMEN.C        IF TYPE INTEGER                       DECPRO   1005
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    24
         DIMEN - PROCESS A ARRAY DECLARATION
  
                          0313000443 +            NZ     X3,DIMEN.B        IF NOT TYPE OCTAL                     DECPRO   1006
                                                                                                                 DECPRO   1007
           462  67105                    DIMEN.C  SB1    -B5                                                     DECPRO   1008
                     10144                        BX1    X4                                                      DECPRO   1009
                          0100000000 X            RJ     CONVERT           CONVERT THE CONSTANT                  DECPRO   1010
                                                                                                                 DECPRO   1011
           463  10611                             BX6    X1                                                      DECPRO   1012
                     43000                        MX0    0                                                       DECPRO   1013
                          21121                   AX1    17                                                      DECPRO   1014
           464  0306000443 +                      ZR     X6,DIMEN.B        IF ZERO                               DECPRO   1015
                          0311000443 +            NZ     X1,DIMEN.B        IF TOO BIG                            DECPRO   1016
           465  0400000473 +                      EQ     DIMEN.S           GO STORE THE SUBSCRIPT                DECPRO   1017
                                                                                                                 DECPRO   1018
                                        *         PROCESS VARIABLE DIMENSION                                     DECPRO   1019
                                                                                                                 DECPRO   1020
           466  6170000467 +             DIMEN.V  SYMBOL                   GET SYMTAB ORDINAL                    DECPRO   1021
           467  6160000056               DIMEN.V1 SB6    E.DIVD            FIRST OCCURRENCE, NOT AN F.P.         DECPRO   1022
                          0400000446 +            EQ     DIMEN.G                                                 DECPRO   1023
                                                                                                                 DECPRO   1024
           470  10311                             BX3    X1                                                      DECPRO   1025
                     20352                        LX3    59-P.FP                                                 DECPRO   1026
                          0323000467 +            PL     X3,DIMEN.V1       IF NOT A F.P.                         DECPRO   1027
                                                                                                                 DECPRO   1028
                                         VNRL     BIT    P.VAR-P.RL                                              DECPRO   1029
           471  7140000011                        SX4    VNRL+1            SET VAR BIT                           DECPRO   1030
                          20445                   LX4    P.RL              AND SET RL = 1 TO FLAG                DECPRO   1031
                               12742              BX7    X4+X2             USED AS SUBSCRIPT IN VARDIM ARRAY     DECPRO   1032
           472  54720                             SA7    A2                                                      DECPRO   1033
                                                                                                                 DECPRO   1034
                     7100000010                   SX0    1S3               VARIABLE SUBSCRIPT FLAG               DECPRO   1035
                               76610              SX6    B1                                                      DECPRO   1036
                                                                                                                 DECPRO   1037
                                        *         SAVE DIMENSION INFO                                            DECPRO   1038
                                                                                                                 DECPRO   1039
           473  5130000007 C             DIMEN.S  SA3    N.SUBS                                                  DECPRO   1040
                          5140000010 C            SA4    VARSUB                                                  DECPRO   1041
           474  63330                             SB3    X3                                                      DECPRO   1042
                     23030                        AX0    B3,X0             POSITION FLAG                         DECPRO   1043
                          12704                   BX7    X0+X4                                                   DECPRO   1044
           475  5263000010 C                      SA6    DIMTAB-1+X3                                             DECPRO   1045
                          54740                   SA7    A4                                                      DECPRO   1046
                                                                                                                 DECPRO   1047
           476  0300000501 +                      ZR     X0,DIMEN.N        IF NOT A VARIABLE SUBSCRIPT           DECPRO   1048
                          5170000000 X            SA7    VARDIM            SET FOR VARDIM CHECK IN DPCLOSE       DECPRO   1049
           477  5150000000 X                      SA5    RSELECT                                                 DECPRO   1050
                          0305000501 +            ZR     X5,DIMEN.N                                              DECPRO   1051
           500  43200                             ADDREF B1,REF            ADD A REFERENCE FOR THE NAME          DECPRO   1052
                                                                                                                 DECPRO   1053
           501  5150000032               DIMEN.N  GETE                     SEPARATOR                             DECPRO   1054
           502  6130000003                        IF.EQ  EL.COMMA,DIMEN.L  LOOP IF A ,                           DECPRO   1055
                                                                                                                 DECPRO   1056
           503  6160000437                        SB6    E.DNT                                                   DECPRO   1057
                          6130000002              IF.NE  EL.),DIMEN.E      IF NO )                               DECPRO   1058
                          75645                   UPDATE                   ADVANCE PAST )                        DECPRO   1059
                                                                                                                 DECPRO   1060
                                                                                                                 DECPRO   1061
                                        *         PROCESS ARRAY NAME                                             DECPRO   1062
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    25
         DIMEN - PROCESS A ARRAY DECLARATION
  
                                                                                                                 DECPRO   1063
           505  5130000001 C                      SA3    SAVEB1            SYMTAB ORDINAL                        DECPRO   1064
                          5140000012              SA4    SYM1                                                    DECPRO   1065
           506  63130                             SB1    X3                                                      DECPRO   1066
                     20301                        LX3    1                                                       DECPRO   1067
                          37643                   IX6    X4-X3                                                   DECPRO   1068
                               53160              SA1    X6                WORD A                                DECPRO   1069
           507  55215                             SA2    A1-B5             WORD B                                DECPRO   1070
                                                                                                                 DECPRO   1071
                     10311                        BX3    X1                                                      DECPRO   1072
                          20356                   LX3    59-P.DIM                                                DECPRO   1073
           510  0323000513 +                      PL     X3,DIMEN.F        IF NOT DOUBLY DIMENSIONED             DECPRO   1074
                          5140000002 C            POSTER SEV=INF,NR=E.DDD,FMT=ELIST,TXT=SNAME,RETURN=DIMENX      DECPRO   1075
                                                                                                                 DECPRO   1076
                                        *         CHECK FOR VARIABLE SUBSCRIPTS AND ARRY NAME NOT AN F.P.        DECPRO   1077
                                                                                                                 DECPRO   1078
           513  5150000010 C             DIMEN.F  SA5    VARSUB                                                  DECPRO   1079
                          0305000516 +            ZR     X5,DIMEN1         IF NO VARIABLE SUBSCRIPTS             DECPRO   1080
           514  10311                             BX3    X1                                                      DECPRO   1081
                     20352                        LX3    59-P.FP                                                 DECPRO   1082
                          0333000516 +            MI     X3,DIMEN1   IF F.P.                                     DECPRO   1083
           515  6160000056                        SB6    E.DIVD                                                  DECPRO   1084
                          0400000444 +            EQ     DIMEN.E                                                 DECPRO   1085
                                                                                                                 DECPRO   1086
                                        *         SET UP DIM BIT AND DIMP ORD TO BE STORED IN SYMTAB AFTER ALL   DECPRO   1087
                                        *         THE POSSIBLE ERROR CHECKING.                                   DECPRO   1088
                                                                                                                 DECPRO   1089
           516  5130000000 X             DIMEN1   SA3    L.DIM                                                   DECPRO   1090
                          7140020000              SX4    V.DIM                                                   DECPRO   1091
           517  43501                             MX5    1                                                       DECPRO   1092
                     7203000002                   SX0    X3+2              NEXT DIM ORD                          DECPRO   1093
                               20050              LX0    P.DIMP-1                                                DECPRO   1094
           520  12641                             BX6    X4+X1             SET DIM BIT                           DECPRO   1095
                     20551                        LX5    1+P.VAR                                                 DECPRO   1096
                          36702                   IX7    X0+X2             ADD DIMP ORDINAL                      DECPRO   1097
                               12157              BX1    X5+X7                                                   DECPRO   1098
                                                                                                                 DECPRO   1099
                                        *         FORM SECOND WORD OF THE ENTRY                                  DECPRO   1100
                                                                                                                 DECPRO   1101
           521  5140000007 C                      SA4    N.SUBS                                                  DECPRO   1102
                          5150000010 C            SA5    VARSUB                                                  DECPRO   1103
           522  63440                             SB4    X4                B4 = N.SUBS                           DECPRO   1104
                     63650                        SB6    X5                B6 = VAR SUBS  FLAG                   DECPRO   1105
                          20403                   LX4    3                                                       DECPRO   1106
                               12745              BX7    X4+X5                                                   DECPRO   1107
           523  20766                             LX7    54                3/N.SUBS,3/V(ABC),54/0                DECPRO   1108
                                                                                                                 DECPRO   1109
                     66200                        SB2    B0                CLEAR SUBSCRIPT INDEX                 DECPRO   1110
                          76050                   SX0    B5                                                      DECPRO   1111
                               66300              SB3    B0                CLEAR SHIFT COUNT                     DECPRO   1112
           524  27000                             PX0    X0                INITIALIZE PRODUCT                    DECPRO   1113
                                                                                                                 DECPRO   1114
           525  5132000011 C             DIMEN3   SA3    DIMTAB+B2         FETCH SUBSCRIPT                       DECPRO   1115
                          66225                   SB2    B2+B5                                                   DECPRO   1116
                               27503              PX5    X3                                                      DECPRO   1117
           526  22433                             LX4    B3,X3                                                   DECPRO   1118
                     42050                        DX0       X5*X0                                                DECPRO   1119
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    26
         DIMEN - PROCESS A ARRAY DECLARATION
  
                          12747                   BX7    X4+X7             ADD SUBSCRIPT TO SECOND WORD          DECPRO   1120
           527  6133000022                        SB3    B3+18                                                   DECPRO   1121
                          0724000525 +            LT     B2,B4,DIMEN3                                            DECPRO   1122
                                                                                                                 DECPRO   1123
           530  0560000533 +                      NZ     B6,DIMEN4         IF VARIABLE SUBSCRIPTS                DECPRO   1124
                          26200                   UX2    X0                INTEGER FORM OF RESULT                DECPRO   1125
                               21221              AX2    17                                                      DECPRO   1126
           531  0312000443 +                      NZ     X2,DIMEN.B        IF WORD COUNT EXCEEDS CORE SIZE       DECPRO   1127
                          26200                   UX2    X0                                                      DECPRO   1128
                               43321              MX3    17                                                      DECPRO   1129
           532  20365                             LX3    17+36                                                   DECPRO   1130
                     15773                        BX7    -X3*X7            REMOVE THIRD SUBSCRIPT                DECPRO   1131
                          20244                   LX2    36                                                      DECPRO   1132
                               36727              IX7    X2+X7             ADD IN TOTAL                          DECPRO   1133
                                                                                                                 DECPRO   1134
                                        *         ADD 2 WORD ENTRY FOR ARRAY TO DIMTAB                           DECPRO   1135
                                                                                                                 DECPRO   1136
           533  5170000011 C             DIMEN4   SA7    DIMTAB            SAVE SECOND WORD                      DECPRO   1137
                          54610                   SA6    A1                UPDATE SYMTAB ENTRY FOR WORD A        DECPRO   1138
                               10711              BX7    X1                                                      DECPRO   1139
           534  54720                             SA7    A2                FOR WORD B                            DECPRO   1140
                     76110                        SX1    B1                SYMTAB ORDINAL                        DECPRO   1141
                          20144                   LX1    36                                                      DECPRO   1142
           535  5100000000 X                      ADDWD  DIM,X1            FIRST WORD                            DECPRO   1143
           536  5110000011 C                      ADDWD  ,DIMTAB           AND SUBSCRIPTS                        DECPRO   1144
           537  0400000447 +                      EQ     DIMENX                                                  DECPRO   1145
                                                                                                                 DECPRO   1146
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    27
         DPIMP - PROCESS IMPLICIT STATEMENT 
  
                                        ***       DPIMP - PROCESS IMPLICIT STATEMENT                             DECPRO   1148
                                        *                                                                        DECPRO   1149
                                        *                                                                        DECPRO   1150
                                        *                                                                        DECPRO   1151
                                        *                                                                        DECPRO   1152
                                        *         THE PREVIOUS TYPE IS CHECKED TO SEE IF IT IS A HEADER CARD     DECPRO   1153
                                        *         AND IF THERE IS A SYNTAX ERROR.  IN EITHER CASE A FATAL ERROR  DECPRO   1154
                                        *         IS ISSUED.  THE NATURAL TYPE TABLE IS CLEARED, AND AS          DECPRO   1155
                                        *         CHARACTER BOUNDS ARE IMPLICITED, THEY ARE ENTERED IN THE       DECPRO   1156
                                        *         TABLE.  IN CASE OF FATAL ERRORS IN PROCESSING, THE ORIGINAL    DECPRO   1157
                                        *         NATURAL BITS ARE RESTORED.  AT THE END OF PROCESSING, THE      DECPRO   1158
                                        *         NATURAL BITS WHICH HAVE NOT BEEN IMPLICITED ARE ENTERED        DECPRO   1159
                                        *         IN THE TABLE, FORMAL PARAMETERS ARE IMPLICITED,                DECPRO   1160
                                        *         INFORMATIVE DIAGNOSTICS ARE ISSUED,IF ANY, AND THE             DECPRO   1161
                                        *         NON-ANSI DIAGNOSTIC IS ISSUED.                                 DECPRO   1162
                                        *                                                                        DECPRO   1163
                                        *         REGISTERS USED:                                                DECPRO   1164
                                        *                B1           TYPE CURRENTLY BEING IMPLICITED            DECPRO   1165
                                        *                             (SET TO ATYPE UPON ENTRY)                  DECPRO   1166
                                        *                X0           BITS 58 - 33 HOLD THE BITS WHICH HAVE      DECPRO   1167
                                        *                             BEEN IMPLICITED SO FAR.                    DECPRO   1168
                                        *                X7           IN BITS 58 - 33 THE BITS TO BE IMPLICITED  DECPRO   1169
                                        *                             A CERTAIN TYPE                             DECPRO   1170
                                        *                                                                        DECPRO   1171
                                        *                                                                        DECPRO   1172
                                        *                                                                        DECPRO   1173
           540  5110000706 +             DPIMP    SA1    LASTTYP      BITS 37-20 LAST ATYPE;17-0 LAST STMT TYPE  DECPRO   1174
                          21101                   AX1    1            IF LAST TYPE 0 OR 1  O.K.                  DECPRO   1175
                               63410              SB4    X1                                                      DECPRO   1176
           541  0440000543 +                      ZR     B4,IMP2     IF LAST STATEMENT WAS PROG UNIT HEADER      DECPRO   1177
                          6160777622              POSTER SEV=FE,NR=E109,RETURN=PH1SCAN *DECL OUT OF SEQUENCE*    DECPRO   1178
                                                                                                                 DECPRO   1179
           543  6150000001               IMP2     SB5    1                                                       DECPRO   1180
                          5150000032              GETE                                                           DECPRO   1181
                          6130000006              IF.EQ  EL.(,IMP3                                               DECPRO   1182
                          6160000131              POSTER SEV=FE,NR=E89,FMT=ELIST,TXT=X4,RETURN=PH1SCAN           DECPRO   1183
           547  5110000051               IMP3     SA1    ATYPE                                                   DECPRO   1184
                          43700                   MX7    0                                                       DECPRO   1185
                               13000              BX0    X0-X0       (X0) = INITIAL *ALREADY IMPLICITED* BITS    DECPRO   1186
           550  63110                             SB1    X1          (B1) = FIRST IMPLICIT TYPE CODE             DECPRO   1187
                     5170000000 X                 SA7    IMPTYP                                                  DECPRO   1188
                               54775              SA7    A7+B5                                                   DECPRO   1189
           551  54775                             SA7    A7+B5        ZERO OUT THE NATURAL TYPE TABLE            DECPRO   1190
                                                                                                                 DECPRO   1191
                                        *         MAIN LOOP.                                                     DECPRO   1192
                                                                                                                 DECPRO   1193
           552  6131777774               DPIMP.1  SB3    B1-T.DBL                                                DECPRO   1194
                          0730000555 +            MI     B3,DPIMP.10       IF ANY SINGLE PRECISION TYPE          DECPRO   1195
           553  0753000555 +                      GT     B3,B5,DPIMP.10    IF NOT TYPE DOUBLE OR COMPLEX         DECPRO   1196
                          43601                   MX6    1                                                       DECPRO   1197
           554  5160000000 X                      SA6    =XDBLDECL   /DOUBLE OR COMPLEX DECLAR/ FLAG ON          DECPRO   1198
                                                                                                                 DECPRO   1199
                                        *         FIRST LETTER SCAN.                                             DECPRO   1200
                                                                                                                 DECPRO   1201
           555  5150000032               DPIMP.10 ADVIN                                                          DECPRO   1202
                          6130000006              IF.NE  EL.(,ERR1    UNEXPECTED SEPARATOR                       DECPRO   1203
           560  5150000032               DPIMP.61 ADVIN                                                          DECPRO   1204
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    28
         DPIMP - PROCESS IMPLICIT STATEMENT 
  
           562  0525000676 +             DPIMP.6  IF.NE  NAME,ERR2    ILLEGAL CHARACTER BOUND                    DECPRO   1205
                          21130                   AX1    24                                                      DECPRO   1206
                               43566              MX5    60-6                                                    DECPRO   1207
           563  7221222222                        SX2    X1-3R                                                   DECPRO   1208
                          0312000676 +            NZ     X2,ERR2      IF NOT A SINGLE CHARACTER                  DECPRO   1209
           564  21122                             AX1    18                                                      DECPRO   1210
                     15215                        BX2    -X5*X1       MASK OFF CHARACTER BOUND                   DECPRO   1211
                          5150000032              ADVIN                                                          DECPRO   1212
           566  6130000020                        IF.EQ  EL.MINUS,SETRNGE                                        DECPRO   1213
                                                                                                                 DECPRO   1214
                                        *         SET UP MASK FOR A SINGLE LETTER                                DECPRO   1215
                                                                                                                 DECPRO   1216
           567  43301                             MX3    1                                                       DECPRO   1217
                     6272777703                   SB7    X2-59-1                                                 DECPRO   1218
                               23373              AX3    X3,B7        SHIFT BIT INTO POSITION                    DECPRO   1219
           570  12773                             BX7    X7+X3        MASK INTO CHARACTER MASK                   DECPRO   1220
                     6130000003                   IF.EQ  EL.COMMA,DPIMP.61                                       DECPRO   1221
           572  6130000002               DPIMP.4  IF.NE  EL.),ERR1    UNEXPECTED SEPARATOR                       DECPRO   1222
                                                                                                                 DECPRO   1223
                                        *         PUT THE MASK IN THE IMPTYP TABLE                               DECPRO   1224
                                                                                                                 DECPRO   1225
           573  76110                             SX1    B1           TYPE TO BE IMPLICITED                      DECPRO   1226
                     43573                        MX5    60-1                                                    DECPRO   1227
                          15215                   BX2    -X5*X1       INDICATE UPPER OR LOWER HALF OF TBL WORD   DECPRO   1228
                               21101              AX1    1                                                       DECPRO   1229
           574  63310                             SB3    X1           INDICATE WHICH TABLE WORD                  DECPRO   1230
                     10177                        BX1    X7                                                      DECPRO   1231
                          5143000000 X            SA4    IMPTYP+B3                                               DECPRO   1232
           575  0302000576 +                      ZR     X2,DPIMP.91                                             DECPRO   1233
                          21132                   AX1    58-32        SHIFT THE IMPLICIT MASK IF LOWER HALF      DECPRO   1234
           576  11314                    DPIMP.91 BX3    X1*X4        BITS ALREADY IMPLICITED THIS TYPE          DECPRO   1235
                     13113                        BX1    X1-X3        ELIMINATE FROM ALIGNED MASK                DECPRO   1236
                          0302000600 +            ZR     X2,DPIMP.92                                             DECPRO   1237
           577  6120000032                        SB2    58-32                                                   DECPRO   1238
                          22721                   LX7    X1,B2        ELIMINATE FROM UNALIGNED MASK              DECPRO   1239
           600  11370                    DPIMP.92 BX3    X7*X0        BITS ALREADY IMPLICITED ANOTHER TYPE       DECPRO   1240
                     0303000604 +                 ZR     X3,DPIMP.93                                             DECPRO   1241
                               13773              BX7    X7-X3        ELIMINATE FROM UNALIGNED MASK              DECPRO   1242
           601  0302000602 +                      ZR     X2,DPIMP.94                                             DECPRO   1243
                          21332                   AX3    58-32                                                   DECPRO   1244
           602  13113                    DPIMP.94 BX1    X1-X3        ELIMINATE FROM ALIGNED MASK                DECPRO   1245
                     5150000707 +                 SA5    ERRORWD                                                 DECPRO   1246
                               43601              MX6    1                                                       DECPRO   1247
           603  20673                             LX6    59                                                      DECPRO   1248
                     12665                        BX6    X6+X5                                                   DECPRO   1249
                          54650                   SA6    A5           ISSUE INFORMATIVE DIAGNOSTIC               DECPRO   1250
           604  12641                    DPIMP.93 BX6    X4+X1        MASK INTO TABLE                            DECPRO   1251
                     12007                        BX0    X0+X7        ADD TO TOTAL IMPLICITED BITS               DECPRO   1252
                          12003                   BX0    X0+X3        ADD TO TOTAL IMPLICITED BITS               DECPRO   1253
                               54640              SA6    A4                                                      DECPRO   1254
           605  5150000032                        ADVIN                                                          DECPRO   1255
                          6130000003              IF.EQ  EL.COMMA,DPIMP.2                                        DECPRO   1256
                          6130000004              IF.NE  EL.EOS,ERR1  UNEXPECTED SEPARATOR                       DECPRO   1257
                                                                                                                 DECPRO   1258
                                        *         RESTORE THE NATURAL BITS WHICH HAVE NOT BEEN IMPLICITED        DECPRO   1259
                                                                                                                 DECPRO   1260
                          5120000000 X            SA2    NRB          NATURAL REAL BITS                          DECPRO   1261
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    29
         DPIMP - PROCESS IMPLICIT STATEMENT 
  
           611  15620                             BX6    -X0*X2       N R B  NOT IMPLICITED                      DECPRO   1262
                     21032                        AX0    58-32                                                   DECPRO   1263
                          5130000001 X            SA3    IMPTYP+1     2ND WORD OF NAT. TYPE TABLE                DECPRO   1264
           612  43206                             MX2    6                                                       DECPRO   1265
                     12663                        BX6    X6+X3        MASK REMAINING NRB INTO TABLE WD           DECPRO   1266
                          20231                   LX2    24+1         NATURAL INTEGER BITS                       DECPRO   1267
                               55435              SA4    A3-B5        1ST WORD OF NATURAL TYPE TABLE             DECPRO   1268
           613  15720                             BX7    -X0*X2       N I B  NOT IMPLICITED                      DECPRO   1269
                     54630                        SA6    A3           STORE BACK INTO TABLE                      DECPRO   1270
                          12774                   BX7    X7+X4        MASK REMAINING NIB INTO TABLE WD           DECPRO   1271
                               54740              SA7    A4           STORE BACK INTO TABLE                      DECPRO   1272
           614  0400000642 +                      EQ     DPIMP.P                                                 DECPRO   1273
                                                                                                                 DECPRO   1274
                                        *         SET UP MASK FOR A RANGE OF LETTERS                             DECPRO   1275
                                                                                                                 DECPRO   1276
           615  5150000032               SETRNGE  ADVIN                                                          DECPRO   1277
                          0525000676 +            IF.NE  NAME,ERR2    ILLEGAL CHARACTER BOUND                    DECPRO   1278
           617  21130                             AX1    24                                                      DECPRO   1279
                     6271222222                   SB7    X1-3R                                                   DECPRO   1280
                               21122              AX1    18                                                      DECPRO   1281
           620  0570000676 +                      NZ     B7,ERR2      IF NOT A SINGLE CHARACTER                  DECPRO   1282
                          43566                   MX5    60-6                                                    DECPRO   1283
                               15115              BX1    -X5*X1       MASK OFF CHARACTER BOUND                   DECPRO   1284
           621  37312                             IX3    X1-X2        COMPUTE LENGTH OF RANGE - 1                DECPRO   1285
                     0323000624 +                 PL     X3,DPIMP.5   IF VALID RANGE                             DECPRO   1286
                               14333              BX3    -X3          COMPLEMENT THE LENGTH - 1                  DECPRO   1287
           622  10211                             BX2    X1                                                      DECPRO   1288
                     5150000707 +                 SA5    ERRORWD                                                 DECPRO   1289
                               43601              MX6    1                                                       DECPRO   1290
           623  12665                             BX6    X6+X5                                                   DECPRO   1291
                     54650                        SA6    A5           ISSUE INFORMATIVE DIAGNOSTIC               DECPRO   1292
           624  63730                    DPIMP.5  SB7    X3           LENGTH OF RANGE - 1                        DECPRO   1293
                     43501                        MX5    1                                                       DECPRO   1294
                          6262777703              SB6    X2-59-1                                                 DECPRO   1295
           625  23375                             AX3    X5,B7        SET A MASK THE LENGTH OF RANGE             DECPRO   1296
                     23363                        AX3    X3,B6        SHIFT TO ALIGN MASK WITH LETTER POSITIONS  DECPRO   1297
                          12773                   BX7       X7+X3     OR INTO MASK BEING BUILT                   DECPRO   1298
           626  5150000032                        ADVIN                                                          DECPRO   1299
                          6130000003              IF.NE  EL.COMMA,DPIMP.4                                        DECPRO   1300
                          0400000560 +            EQ     DPIMP.61                                                DECPRO   1301
                                                                                                                 DECPRO   1302
                                        *         DETERMINE THE NEXT TYPE TO BE IMPLICITED.                      DECPRO   1303
                                                                                                                 DECPRO   1304
           631  6140000004               DPIMP.2  SB4    4                                                       DECPRO   1305
                          5150000032              ADVIN                                                          DECPRO   1306
           633  67105                             SB1    B0-B5                                                   DECPRO   1307
                     0525000677 +                 IF.NE  NAME,ERR3    ILLEGAL TYPE SPECIFICATION                 DECPRO   1308
                               43700              MX7    0            CLEAR REGISTER TO HOLD IMPLICIT BITS       DECPRO   1309
           634  5121000702 +             DPIMP.3  SA2    B1+TYPETBL+1 LOAD COMPARE WORD FROM TABLE OF TYPES      DECPRO   1310
                          66115                   SB1    B1+B5                                                   DECPRO   1311
                               37321              IX3    X2-X1                                                   DECPRO   1312
           635  0303000552 +                      ZR     X3,DPIMP.1   IF A MATCH                                 DECPRO   1313
                          0741000677 +            GT     B1,B4,ERR3   AT THE END OF THE TABLE AND NO MATCH       DECPRO   1314
           636  0400000634 +                      EQ     DPIMP.3                                                 DECPRO   1315
                                                                                                                 DECPRO   1316
                                        *         IN CASE OF FATAL ERROR, RESTORE ALL NATURAL BITS               DECPRO   1317
                                                                                                                 DECPRO   1318
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    30
         DPIMP - PROCESS IMPLICIT STATEMENT 
  
           637  43606                    DPIMP.N  MX6    6                                                       DECPRO   1319
                     5130000000 X                 SA3    NRB          NATURAL REAL BITS                          DECPRO   1320
                               20631              LX6    24+1         NATURAL INTEGER BITS                       DECPRO   1321
           640  10733                             BX7    X3                                                      DECPRO   1322
                     5160000000 X                 SA6    IMPTYP                                                  DECPRO   1323
                               54765              SA7    A6+B5                                                   DECPRO   1324
           641  0400000667 +                      EQ     DPIMP.I                                                 DECPRO   1325
                                                                                                                 DECPRO   1326
                                        *         IMPLICITLY TYPE FORMAL PARAMETERS OF A SUBROUTINE OR           DECPRO   1327
                                        *         FUNCTION , AND THE FUNCTION NAME IF IT WAS NOT                 DECPRO   1328
                                        *         EXPLICITLY TYPE IN THE PROGRAM HEADER CARD.                    DECPRO   1329
                                                                                                                 DECPRO   1330
           642  5110000056               DPIMP.P  SA1    PROGRAM                                                 DECPRO   1331
                          26731                   UX7    B3,X1                                                   DECPRO   1332
           643  0301000667 +                      ZR     X1,DPIMP.I  IF A BLOCK DATA SUBPROGRAM                  DECPRO   1333
                          0430000667 +            ZR     B3,DPIMP.I  IF A MAIN PROGRAM                           DECPRO   1334
           644  5110000012                        SA1    SYM1         START OF THE SYMBOL TABLE                  DECPRO   1335
                          5221777775              SA2    X1-2                                                    DECPRO   1336
           645  66655                             SB6    B5+B5        SYMBOL TABLE INCREMENT                     DECPRO   1337
                     43504                        MX5    L.TYP                                                   DECPRO   1338
                          5110000000 X            SA1    N.FP         NUMBER OF FORMAL PARAMETERS                DECPRO   1339
           646  66460                             SB4    B6           START AT ORDINAL 2                         DECPRO   1340
                     20101                        LX1    1                                                       DECPRO   1341
                          5130000706 +            SA3    LASTTYP                                                 DECPRO   1342
           647  63716                             SB7    X1+B6        LIMIT TO BE NATURAL TYPED                  DECPRO   1343
                     10122                        BX1    X2                                                      DECPRO   1344
                          0435000662 +            EQ     B3,B5,DPIMP.P1                                          DECPRO   1345
                                                                                                                 DECPRO   1346
                                        *         PROCESS FUNCTION NAME                                          DECPRO   1347
                                                                                                                 DECPRO   1348
           650  0323000662 +                      PL     X3,DPIMP.P1  FUNCTION EXPLICITLY TYPED                  DECPRO   1349
                          0100000000 X            RJ     NTYPE        GET NATURAL TYPE OF FUNCTION NAME          DECPRO   1350
           651  5110000000 X                      SA1    =XVALUE.                                                DECPRO   1351
                          20101                   LX1    1            2 * ORD                                    DECPRO   1352
           652  6231777776                        SB3    X1-1                                                    DECPRO   1353
                          55423                   SA4    A2-B3                                                   DECPRO   1354
                               15245              BX2    -X5*X4                                                  DECPRO   1355
           653  11154                             BX1    X5*X4        GET TYPE FIELD                             DECPRO   1356
                     20104                        LX1    L.TYP                                                   DECPRO   1357
                          76750                   SX7    B5                                                      DECPRO   1358
                               20604              LX6    -P.TYP                                                  DECPRO   1359
           654  7206777774                        SX0    X6-T.DBL                                                DECPRO   1360
                          20670                   LX6    P.TYP                                                   DECPRO   1361
           655  0330000656 +                      MI     X0,DPIMP1   IF SINGLE PRECISION                         DECPRO   1362
                          76755                   SX7    B5+B5                                                   DECPRO   1363
           656  5170000000 X             DPIMP1   SA7    =XFUNTYPE   FUNTYPE = NUMBER OF WORDS IN FUNCTION RESUL DECPRO   1364
                          7201777760              SX0    X1-T.DBG                                                DECPRO   1365
           657  0310000666 +                      NZ     X0,DPIMP.P3  NOT UNUSED DEBUG VARIABLE                  DECPRO   1366
           660  20647                    DPIMP.P2 LX6    L.TYP+P.SNT SHIFT NAT TYPE TO SNT POSITION              DECPRO   1367
                     43003                        MX0    L.SNT                                                   DECPRO   1368
                          20046                   LX0    L.SNT+P.SNT                                             DECPRO   1369
                               15240              BX2    -X0*X4       CLEAR SAVE NAT TYPE FIELD                  DECPRO   1370
           661  12762                             BX7    X6+X2        MASK INTO SYMBOL TABLE WORD                DECPRO   1371
                     54740                        SA7    A4           STORE BACK INTO SYMBOL TABLE               DECPRO   1372
           662  0474000667 +             DPIMP.P1 EQ     B7,B4,DPIMP.I                                           DECPRO   1373
                          55124                   SA1    A2-B4                                                   DECPRO   1374
                               66446              SB4    B4+B6                                                   DECPRO   1375
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    31
         DPIMP - PROCESS IMPLICIT STATEMENT 
  
           663  0100000000 X                      RJ     NTYPE        GET NATURAL TYPE                           DECPRO   1376
           664  55415                             SA4    A1-B5        WORD B OF F.P. SYMBOL TABLE ENTRY          DECPRO   1377
                     15245                        BX2    -X5*X4       CLEAR TYPE FIELD                           DECPRO   1378
                          11354                   BX3    X5*X4        GET TYPE FIELD                             DECPRO   1379
                               20304              LX3    L.TYP                                                   DECPRO   1380
           665  7203777760                        SX0    X3-T.DBG                                                DECPRO   1381
                          0300000660 +            ZR     X0,DPIMP.P2  AN UNUSED DEBUG VARIABLE                   DECPRO   1382
           666  12762                    DPIMP.P3 BX7    X6+X2                                                   DECPRO   1383
                     54740                        SA7    A4           ENTER TYPE IN SYMBOL TABLE                 DECPRO   1384
                          0400000662 +            EQ     DPIMP.P1                                                DECPRO   1385
                                                                                                                 DECPRO   1386
                                        *         CHECK FOR INFORMATIVE DIAGNOSTICS TO BE ISSUED                 DECPRO   1387
                                                                                                                 DECPRO   1388
           667  5110000707 +             DPIMP.I  SA1    ERRORWD                                                 DECPRO   1389
                          0321000672 +            PL     X1,DPIMP.I1                                             DECPRO   1390
           670  6160777720                        POSTER SEV=INF,NR=E47                                          DECPRO   1391
           672  5110000707 +             DPIMP.I1 SA1    ERRORWD                                                 DECPRO   1392
                          20101                   LX1    1                                                       DECPRO   1393
           673  0321000000 X                      PL     X1,PH1SCAN  IF NO ERROR, EXIT...                        DECPRO   1394
                          6160777716              POSTER SEV=INF,NR=E.TRT,RETURN=PH1SCAN                         DECPRO   1395
           675  6160000436               ERR1     SB6    E.BADSEP                                                DECPRO   1396
                          0400000700 +            EQ     ERR.O                                                   DECPRO   1397
           676  6160000101               ERR2     SB6    E.BADBND     ILLEGAL CHARACTER BOUND                    DECPRO   1398
                          0400000700 +            EQ     ERR.O                                                   DECPRO   1399
           677  6160000107               ERR3     SB6    E.BADTYP     ILLEGAL TYPE                               DECPRO   1400
           700  6170000637 +             ERR.O    POSTER SEV=FE,NR=**,RETURN=DPIMP.N                             DECPRO   1401
                                                                                                                 DECPRO   1402
                                                                                                                 DECPRO   1403
                                                                                                                 DECPRO   1404
                                 101     E.BADBND EQU    65           ILLEGAL CHARACTER BOUND                    DECPRO   1405
                                 107     E.BADTYP EQU    71           ILLEGAL TYPE                               DECPRO   1406
                                  13     SYMEND   EQU    13B                                                     DECPRO   1407
           701  00001417071103011455     TYPETBL  VFD    12/0,48/8CLOGICAL                                       DECPRO   1408
           702  00001116240507052255              VFD    12/0,48/8CINTEGER                                       DECPRO   1409
           703  00002205011455555555              VFD    12/0,48/8CREAL                                          DECPRO   1410
           704  00000417250214055555              VFD    12/0,48/8CDOUBLE                                        DECPRO   1411
           705  00000317152014053055              VFD    12/0,48/8CCOMPLEX                                       DECPRO   1412
           706                     1     LASTTYP  BSSZ   1                                                       DECPRO   1413
           707                     1     ERRORWD  BSSZ   1                                                       DECPRO   1414
           714                                    END                                                            DECPRO   1415
  
                             65700B CM  STORAGE USED             2361 STATEMENTS      743 SYMBOLS      000012 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.094 SECONDS         790 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDREF          0   EXTERNAL*       5/54     11/09     14/33     18/23     20/34     22/16     24/47
        ADDWD           0   EXTERNAL*      10/30     11/06     14/25     14/27     26/24     26/25
        ASAER           0   EXTERNAL*       8/33     21/12
        ATYPE          51                   1/57 D   17/13     17/18     17/40     18/06     27/37
        CDN             4   PROGRAM*        4/39      4/46 L    5/29     10/35     17/29     21/55
                                            4/42      5/25      6/06     14/03     20/28
        CDN.EX         32   PROGRAM*        5/42      5/45      5/48      5/52 L
        CDN.EX1        35   PROGRAM*        5/53      5/56 L
        CDN.EX2        36   PROGRAM*        4/55      6/01 L
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    32
        SYMBOLIC REFERENCE TABLE. 
  
        CDN.E0         24   PROGRAM*        5/36 L    7/43     13/33     20/38     22/24
                                            6/02     13/24     19/13     20/46     22/28
        CDN.E1         25   PROGRAM*        5/12      5/38 L
        CDN.E2         27   PROGRAM*        5/15      5/44 L
        CDN.E3         30   PROGRAM*        5/21      5/30      5/47 L   18/37
        CDN.E4         31   PROGRAM*        5/50 L   18/38     19/16
        CDN.F           0   PROGRAM*        4/37 L    5/06
        CDN.1           7   PROGRAM*        4/49      4/52 L
        CFO             0   EXTERNAL*       4/44     18/56
        COMERR1       170   PROGRAM*        5/41 S    9/32 S   10/52     11/43     11/54 L
        COMFLAG       171   PROGRAM*        4/52 S    6/01     10/37     11/40     11/55 L
        CONVERT         0   EXTERNAL*       1/40 X   14/53     21/21     24/05
        DBLDECL         0   EXTERNAL*      17/23 S   27/51 S
        DIMEN         450   PROGRAM*       11/16     19/07     20/39     23/32 L
        DIMENX        447   PROGRAM*       23/30 L   25/13     26/26
        DIMEN1        516   PROGRAM*       25/18     25/21     25/28 L
        DIMEN3        525   PROGRAM*       25/53 L   26/03
        DIMEN4        533   PROGRAM*       26/05     26/18 L
        DIMEN.B       443   PROGRAM*       23/19 L   23/50     24/01     24/10     24/11     26/08
        DIMEN.C       462   PROGRAM*       23/57     24/03 L
        DIMEN.E       444   PROGRAM*       23/21 L   23/26     23/47     24/53     25/23
        DIMEN.F       513   PROGRAM*       25/12     25/17 L
        DIMEN.G       446   PROGRAM*       23/24 L   24/18
        DIMEN.L       453   PROGRAM*       23/40 L   24/50
        DIMEN.N       501   PROGRAM*       24/43     24/46     24/49 L
        DIMEN.S       473   PROGRAM*       24/12     24/35 L
        DIMEN.V       466   PROGRAM*       23/49     24/16 L
        DIMEN.V1      467   PROGRAM*       24/17 L   24/22
        DIMTAB         11   MACBUF         15/06 S   15/20     20/12 L   24/40 S   25/53     26/18 S   26/25
        DPCOM          42   PROGRAM*        1/38 E    7/50 L
        DPCOML         43   PROGRAM*        8/03 L   11/49
        DPCOM1         53   PROGRAM*        8/13      8/22 L
        DPCOM1A        65   PROGRAM*        8/46 L    8/50
        DPCOM1C        71   PROGRAM*        8/56      9/02 L
        DPCOM10       141   PROGRAM*       11/08     11/10 L
        DPCOM11       142   PROGRAM*       10/53     10/56     11/14 L
        DPCOM12       145   PROGRAM*       11/15     11/18 L
        DPCOM12A      146   PROGRAM*       10/38     11/20 L
        DPCOM13       155   PROGRAM*       11/31     11/36 L
        DPCOM13A      157   PROGRAM*       11/25     11/40 L
        DPCOM14       164   PROGRAM*       11/44     11/48 L
        DPCOM2         72   PROGRAM*        8/22      9/05 L
        DPCOM3         74   PROGRAM*        8/20      9/15 L
        DPCOM4        112   PROGRAM*        9/48      9/56 L
        DPCOM6        120   PROGRAM*       10/05     10/21 L
        DPCOM7        125   PROGRAM*       10/35 L   11/18
        DPCOM9        134   PROGRAM*       10/51     11/03 L
        DPCOM.BC       51   PROGRAM*        8/08      8/18 L
        DPCOM.E        24   PROGRAM*        7/43 D    8/10      8/24      8/27      8/30      9/08     11/52
        DPCOM.P       115   PROGRAM*        9/46     10/09 L
        DPDIM         366   PROGRAM*        1/38 E   20/24 L
        DPDIML        370   PROGRAM*       20/28 L   20/41
        DPDIM1        374   PROGRAM*       20/33     20/36 L
        DPEQU         212   PROGRAM*        1/38 E   13/44 L
        DPEQUL        213   PROGRAM*       13/48 L   15/43
        DPEQUS        254   PROGRAM*       15/20 L   15/25
        DPEQU2        233   PROGRAM*       14/32     14/35 L
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    33
        SYMBOLIC REFERENCE TABLE. 
  
        DPEQU3        242   PROGRAM*       14/48     14/51 L
        DPEQU4        261   PROGRAM*       14/36     15/30 L
        DPEQU7        265   PROGRAM*       15/36 L
        DPEQU8        266   PROGRAM*       15/38 L
        DPEQU.ES      206   PROGRAM*       13/23 L   13/50     15/31     15/45
        DPEQU.EX      211   PROGRAM*       13/27     13/30     13/32 L
        DPEQU.E1      210   PROGRAM*       13/29 L   15/34
        DPEQU.L       217   PROGRAM*       14/03 L   15/30
        DPEQU.SE      207   PROGRAM*       13/26 L   14/43     14/49     14/54     14/57     15/05     15/10
        DPEQU.SL      236   PROGRAM*       14/42 L   15/08
        DPERRO        305   PROGRAM*       17/16     17/18 L
        DPIMP         540   PROGRAM*        1/39 E   27/27 L
        DPIMP1        656   PROGRAM*       30/44     30/46 L
        DPIMP.I       667   PROGRAM*       30/07     30/15     30/16     30/55     31/14 L
        DPIMP.I1      672   PROGRAM*       31/15     31/17 L
        DPIMP.N       637   PROGRAM*       30/01 L   31/26
        DPIMP.P       642   PROGRAM*       29/12     30/13 L
        DPIMP.P1      662   PROGRAM*       30/27     30/31     30/55 L   31/10
        DPIMP.P2      660   PROGRAM*       30/49 L   31/07
        DPIMP.P3      666   PROGRAM*       30/48     31/08 L
        DPIMP.1       552   PROGRAM*       27/47 L   29/52
        DPIMP.10      555   PROGRAM*       27/48     27/49     27/55 L
        DPIMP.2       631   PROGRAM*       28/52     29/44 L
        DPIMP.3       634   PROGRAM*       29/49 L   29/54
        DPIMP.4       572   PROGRAM*       28/18 L   29/39
        DPIMP.5       624   PROGRAM*       29/25     29/32 L
        DPIMP.6       562   PROGRAM*       28/01 L
        DPIMP.61      560   PROGRAM*       27/57 L   28/17     29/40
        DPIMP.91      576   PROGRAM*       28/29     28/31 L
        DPIMP.92      600   PROGRAM*       28/33     28/36 L
        DPIMP.93      604   PROGRAM*       28/37     28/47 L
        DPIMP.94      602   PROGRAM*       28/39     28/41 L
        DPLEV         402   PROGRAM*       21/06 E   21/07 L
        DPLEV0        420   PROGRAM*       21/51 L
        DPLEV1        423   PROGRAM*       21/55 L   22/19
        DPLEV1A       430   PROGRAM*       22/05     22/09 L
        DPLEV1B       431   PROGRAM*       22/14 L   22/30
        DPLEV2        433   PROGRAM*       22/15     22/18 L
        DPLEV3        417   PROGRAM*       21/40     21/49 L
        DPLEV.A       436   PROGRAM*       21/53     22/23 L
        DPLEV.B       437   PROGRAM*       21/14     21/18     21/23     21/24     21/26     22/26 L
        DPLEV.C       441   PROGRAM*       22/07     22/30 L
        DPTYP         301   PROGRAM*        1/38 E   17/12 L
        DPTYPL        311   PROGRAM*       17/29 L   19/09
        DPTYP0        310   PROGRAM*       17/20     17/21     17/27 L
        DPTYP1        334   PROGRAM*       17/48     18/12     18/21 L   19/26     19/30
        DPTYP2        336   PROGRAM*       18/22     18/25 L
        DPTYP3        353   PROGRAM*       18/44     19/07 L
        DPTYP4        354   PROGRAM*       18/26     19/09 L
        DPTYP5        357   PROGRAM*       17/42     18/08     19/15 L
        DPTYP.I       364   PROGRAM*       17/37     18/04     19/30 L
        DPTYP.N       327   PROGRAM*       17/31     18/06 L
        DPTYP.P       321   PROGRAM*       17/30     17/50 L
        DPTYP.P1      325   PROGRAM*       17/51     17/57 L
        EASAST        453                  21/04 D   21/12
        EL.COMMA        3   FTNTEXT        11/18     15/30     19/09     21/53     24/50     28/52
                                           15/08     15/43     20/41     22/19     28/17     29/39
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    34
        SYMBOLIC REFERENCE TABLE. 
  
        EL.EOS          4   FTNTEXT        11/50     15/41     19/10     20/43     22/21     28/53
        EL.MINUS       20   FTNTEXT        28/09
        EL.SLASH       23   FTNTEXT         8/07      9/02     11/49
        EL.(            6   FTNTEXT        11/15     13/50     14/36     18/26     20/38     27/35     27/56
        EL.)            2   FTNTEXT        15/10     15/31     24/53     28/18
        ENANC         315                   7/33 D    8/33
        EQVTEMP         5   MACBUF         13/36 L   14/29 S   15/26
        ERPRO           0   EXTERNAL*       5/36      6/06      9/52     11/46     23/22     27/31     27/36     31/26
        ERPROI          0   EXTERNAL*      17/17     19/30     22/30     25/13     31/16     31/20
        ERRORWD       707   PROGRAM*       28/42     29/28     31/14     31/17     31/39 L
        ERR1          675   PROGRAM*       27/56     28/18     28/53     31/21 L
        ERR2          676   PROGRAM*       28/01     28/05     29/17     29/21     31/23 L
        ERR3          677   PROGRAM*       29/47     29/53     31/25 L
        ERR.O         700   PROGRAM*       31/22     31/24     31/26 L
        E109          155                   2/28 D   27/31
        E291          443                   2/34 D   22/30
        E47            57                   2/25 D   31/16
        E56            70                   4/48      7/29 D    8/09      9/07     10/35     11/51
        E89           131                   2/27 D   27/36
        E.BADBND      101                  31/23     31/30 D
        E.BADLEV      442                  21/02 D   22/26
        E.BADSEP      436                   2/32 D   19/12     20/45     22/23     31/21
        E.BADSYN      437                   2/33 D   17/29     21/55
        E.BADTYP      107                  31/25     31/31 D
        E.CIBN         72                   7/31 D    8/23
        E.CIVN         71                   7/30 D   11/46
        E.COM         172   PROGRAM*       11/20     11/37 S   11/57 L   12/14
        E.CTMB        346                   7/32 D    9/52
        E.CUN          60                   5/47     20/06 D
        E.DBCON        54                  20/03 D   23/19
        E.DDD          55                  20/04 D   25/13
        E.DIVD         56                  20/05 D   24/17     25/22
        E.DNT         437                  20/01 D   20/28     20/37     24/52
        E.DTMS         53                  20/02 D   23/46
        E.EBS         135                  13/17 D   13/23     14/03
        E.EQV         273   PROGRAM*       15/39 S   15/49 L   15/57
        E.ESE         133                  13/15 D   13/26
        E.E1N         134                  13/16 D   13/29
        E.IFP         136                   2/22 D    5/44
        E.IUF         466                   2/23 D    5/50
        E.NOCOM       435                   2/31 D
        E.ORG         173   PROGRAM*       10/01 S   11/38 S   12/01 L   12/17
        E.SFO         447                  17/17     21/03 D
        E.TLT          51                   2/24 D
        E.TRT          61                   2/26 D   19/30     31/20
        E.TSUB        351                   2/29 D    5/38
        FPFLAG          0   MACBUF          4/29 L    5/08      7/52 S   13/46 S   17/14 S   20/26 S   21/08 S
        FUNTYPE         0   EXTERNAL*      18/19 S   30/46 S
        GNC            14   MACBUF          9/33 S   11/10     11/24     13/52 S   14/12     15/32     20/13 L
        IMPTYP          0   EXTERNAL*       1/41 X   27/41 S   28/28     29/03     30/05 S
        IMP2          543   PROGRAM*       27/30     27/33 L
        IMP3          547   PROGRAM*       27/35     27/37 L
        LASTTYP       706   PROGRAM*        1/39 E   27/27     30/24     31/38 L
        LEVEL           0   EXTERNAL*      19/22 S   21/10 S
        LEVEL2          0   EXTERNAL*      19/18 S   21/47 S
        LINKA           4   MACBUF          7/40 L   10/21 S   11/29     12/33
        LVL            15   MACBUF         21/51 S   22/04     22/33 L
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    35
        SYMBOLIC REFERENCE TABLE. 
  
        L.COM           0   EXTERNAL*      10/02     12/15
        L.DBGI         20   FTNTEXT        18/51     18/52
        L.DIM           0   EXTERNAL*      25/28
        L.EQV           0   EXTERNAL*      16/01
        L.LVL           2   FTNTEXT        21/56
        L.NAME         52   FTNTEXT         9/16
        L.SNT           3   FTNTEXT        17/39     17/43     30/50     30/51
        L.TYP           4   FTNTEXT         5/17     17/57     18/40     18/57     30/39     31/05
                                            5/19     18/14     18/42     30/20     30/49
        M.LVL           3                  21/01 D   21/25
        M.NCB         177   FTNTEXT         9/47
        NODOL         100   PROGRAM*        9/24      9/28 L
        NRB             0   EXTERNAL*       1/42 X   28/57     30/02
        NTYPE           0   EXTERNAL*      17/35     17/50     30/32     31/01
        N.COM           0   EXTERNAL*       1/43 X    9/35     12/27 S
        N.FP            0   EXTERNAL*       1/44 X   30/21
        N.SUBS          7   MACBUF         14/38 S   15/01     20/10 L   23/34 S   23/42     24/35     25/40
        ORGTAB          0   EXTERNAL*       1/40 X    9/36     12/28 S
        O.COM           0   EXTERNAL*      10/09     11/21
        O.DIM           0   EXTERNAL* 
        O.EQV           0   EXTERNAL* 
        PH1SCAN         0   EXTERNAL*       1/40 X    9/52     11/50     19/10     22/21     27/31     31/19
                                            5/36     11/41     15/41     20/43     23/22     27/36     31/20
        PROGRAM        56                   1/50 D   30/13
        PSYM            0   EXTERNAL*      11/45
        P.COM          16   FTNTEXT        10/50
        P.DBGI         23   FTNTEXT        18/52
        P.DIM          15   FTNTEXT        25/11
        P.DIMP         51   FTNTEXT        25/32
        P.EXT          66   FTNTEXT         5/28     18/36
        P.FP           21   FTNTEXT         7/51     13/45     24/21     25/20
        P.LCM           1   FTNTEXT        19/20     21/42
        P.LVL           2   FTNTEXT        19/23     21/42     21/49     22/02
        P.RB           14   FTNTEXT        10/23
        P.RL           45   FTNTEXT        24/26
        P.SNT          43   FTNTEXT        17/43     17/45     18/49     30/49     30/51
        P.TYP          70   FTNTEXT        18/09     18/49     30/41     30/43
        P.VAR          50   FTNTEXT        10/25     14/06     22/10     25/34
        RA.SSW          0   CPUTEXT         1/50
        RSELECT         0   EXTERNAL*       1/40 X    5/52     11/07     14/31     18/21     20/32     22/14     24/45
        SAVEA4         41   PROGRAM*        7/35 L    8/32 S    8/34
        SAVEB1          1   MACBUF          4/31 L    4/37 S    5/11 S    5/54     11/09     14/33     18/29     25/02
        SCF           175   PROGRAM*        8/03     12/13 E   12/13 L   12/29     12/38
        SCF1          174   PROGRAM*       12/11 L   12/16
        SCF2          204   PROGRAM*       12/22     12/33 L
        SEF           275   PROGRAM*       13/48     15/56 E   15/56 L   16/05
        SEF1          274   PROGRAM*       15/54 L   16/02
        SELIST         32                   1/56 D   11/14     15/07     18/25     21/13     22/27     27/55     29/16
                                            8/04     11/48     15/28     19/05     21/27     23/30     27/57     29/38
                                            9/15 S   13/49     15/36     20/24     21/52     24/49     28/08     29/45
                                           10/34     14/35     17/27     20/36     22/18     27/34     28/51
        SETRNGE       615   PROGRAM*       28/09     29/16 L
        SNAME           2   MACBUF          4/32 L    5/02 S    5/56     13/32     19/30     22/30     23/21     25/13
        ST.ECS          5                  17/07 D   17/15     17/41     18/07
        SYMBOL          0   EXTERNAL*       5/03     24/16
        SYMEND         13                  31/32 D
        SYM1           12                   1/54 D   17/53     18/28     25/03     30/17
1        DECLARATIVE STATEMENT PROCESSORS                             COMPASS 3.7-871.     24/05/02. 15.54.40.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        TEMP            6   MACBUF         20/09 L
        TYPE           24                   1/55 D    4/40      5/23
        TYPETBL       701   PROGRAM*       29/49     31/33 L
        T.DBG          17   FTNTEXT        18/43     30/47     31/06
        T.DBL           3   FTNTEXT        17/19     18/15     27/47     30/42
        T.INT           1   FTNTEXT         8/29     14/46     21/17     23/55
        T.LAB           6   FTNTEXT         5/20
        T.OCT           5   FTNTEXT        14/47     23/56
        VALUE.          0   EXTERNAL*      17/52     30/33
        VARDIM          0   EXTERNAL*       1/45 X   24/44 S
        VARSUB         10   MACBUF         20/11 L   23/35 S   24/36     25/17     25/41
        VNRL           10                  24/24 D   24/25
        V.COM       40000   FTNTEXT        10/44
        V.DEF      200000   FTNTEXT        10/44
        V.DIM       20000   FTNTEXT        25/29
        WORDBF          3   MACBUF          7/39 L   10/27 S   10/47
        Z               4                   4/54 D   14/42     15/40 D   23/40 D   24/54     28/08 D   29/16
                                            4/54     14/44 D   15/40     23/40     27/55 D   28/08     29/38 D
                                            4/57 D   14/44     15/40     23/41 D   27/55     28/51 D   29/38
                                            4/57     15/11 D   15/42 D   23/41     27/57 D   28/51     29/45 D
                                           14/42 D   15/11     15/42     24/54 D   27/57     29/16 D   29/45
        Z.COM           0                   1/48 D   10/30     11/06
        Z.DIM           0   EXTERNAL*      26/24
        Z.EQV           0   EXTERNAL*      14/25
        .DAL            1   FTNTEXT        21/31 F
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1352              IDENT  PH1CTL 
                       1352              F.WORK1  END    FTN21
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        LITERALS* LOCAL           0        62 
                                        CODE      LOCAL          62      1270 
                                        //        COMMON          0         1 
                                        DBGBLK2   COMMON          0       115 
                                        DBGBLK1   COMMON          0        10 
                                        NONFTNX   COMMON          0        11 
                                        MACBUF    COMMON          0        14 
  
  
                                        ENTRY POINTS. 
  
                                        B=PH1CT          0+           PROGC          273+           CCS           1156+ 
                                        PH1CTL         215+           ESF            155+ 
                                        PH1SCAN        111+           FTN21          215+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        START.    WB.ESS    WTC=      N.LINES   FMAC      CO.ABT    LSTWRKG   DPCOM 
                                        CODE.     N.FP      FATALER   MPP       F.LFN     MSG=      LSTMSTR   DPIMP 
                                        VALUE.    XFRNAME   CIO=      DSL       CO.STA    CER.FL    L.MSTR    DPLEV 
                                        ST.       FWAWORK   WTW=      TL.PTYP   SVARG     DBGEPKT   CO.ER     DPCLOSE 
                                        FP.       FTNEND    F.LGO     CP.CARD   OT.RM     PROGNAM   FUNTYPE   DBGINTX 
                                        ENTRY.D   CAFLAG    FV.LGO    SYMORD    ERPRO     IEFLG     ENTRY.    TYPFLAG 
                                        MACFLAG   OLIST     CED       USTART.   GT1       ASAER     EXIT.     SCANNER 
                                        UFLAG     CONVERT   RDC=      IDENTOK   DBGIPKT   ANSI      TEMPA0.   DBGINT
                                        DFLAG     ECGS      F.IN      PMDFLAG   LDPS2     LFER      TRACE.    LASTTYP 
                                        COMPMSG   F.CMPS    L.MAXCD   UCODE.    OUTUSE    STLTAB    FORMAT    CFO 
                                        RSELECT   INFORM    SBUFF     BTOCT     UDATA.    TL.PNAM   DPTYP     ADDREF
                                        N.FILES   INITBL    LDCOM     F1AMAC    ERPROI    NOLIST    DPEQU     SYMBOL
                                        WB.LFN    N.EQUF    F.OUT     PLIMIT    N.FERR    MVE=      DPDIM 
  
  
  
  
                                                  IDENT  PH1CTL                                                  PH1CTL      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  LIST   F,X                                                     PH1CTL      5
  
  
  
  
             0                           B=PH1CT  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     PH1CTL      7
                                                  USE    CODE              FORCE LITERALS TO COME FIRST          PH1CTL      8
                                                                                                                 PH1CTL      9
                                                  ENTRY  PH1CTL,PH1SCAN                                          PH1CTL     10
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     2
                                                                                CODE
  
                                                  ENTRY  PROGC                                                   PH1CTL     11
                                                                                                                 PH1CTL     12
                                                  EXT    START.,CODE.,VALUE.,ST.,FP.,ENTRY.D                     PH1CTL     13
                                                  EXT    MACFLAG,UFLAG,DFLAG,COMPMSG,RSELECT                     PH1CTL     14
                                                  EXT    N.FILES,WB.LFN,WB.ESS                                   PH1CTL     15
                                                  EXT    N.FP                                                    PH1CTL     16
                                                  EXT    XFRNAME                                                 PH1CTL     17
                                                  EXT    FWAWORK,FTNEND                                          PH1CTL     18
                                                  EXT    CAFLAG,OLIST                                            PH1CTL     19
                                                  EXT    CONVERT                                                 PH1CTL     20
                                                  EXT    ECGS                                                    PH1CTL     21
                                                  EXT    F.CMPS                                                  PH1CTL     22
                                                  EXT    INFORM                                                  PH1CTL     23
                                                  EXT    INITBL                                                  PH1CTL     24
                                                  EXT    N.EQUF                                                  FCC2064     6
                                                                                                                 PH1CTL     25
                                  12     SYM1     EQU    12B                                                     PH1CTL     26
                                  13     SYMEND   EQU    13B                                                     PH1CTL     27
                                  24     TYPE     EQU    24B               STMT TYPE CODE                        PH1CTL     28
                                  32     SELIST   EQU    32B                                                     PH1CTL     29
                                  51     ATYPE    EQU    51B                                                     PH1CTL     30
                                                                                                                 PH1CTL     31
                                  56     PROGRAM  EQU    RA.SSW+56B        PROG    12/2000B,48/0                 PH1CTL     32
                                        *                                  BLKDTA  60/0                          PH1CTL     33
                                        *                                  SUBR    12/2001B,48/0                 PH1CTL     34
                                        *                                  FUNC    12/2002B,48/0                 PH1CTL     35
                                                                                                                 PH1CTL     36
                                   2     L.SVCD   EQU    2                 LENGTH OF CODE IN *START.* TO SAVE    PH1CTL     37
                                        *                                    AND RESTORE *TEMPA0.*               PH1CTL     38
                                                                                                                 PH1CTL     39
                                                                                                                 PH1CTL     40
                                  67     E.HCNF   EQU    55                HEADER CARD APPEARS AFTER FIRST CARD  PH1CTL     41
                                 331     E217     =      217         ERR MSG NR - *PROG START.* GENERATED        PH1CTL     42
                                 340     E224     =      224         ERR MSG NR - *LDR DIRECTIVE SYNTAX ERR*     PH1CTL     43
                                 341     E225     =      225         ERR MSG NR - *NOT ENOUGH MEM FOR LDR DIR*   PH1CTL     44
                                 453     E299     =      299         ERR MSG NR - *NON-ANSI STATEMENT*           PH1CTL     45
                                 473     E315     =      315         ERR MSG NR - *LDR DIRECTIVE NOT 1ST LINE*   PH1CTL     46
                                 503     E323     =      323                                                     FCC1998    15
                                                                                                                 PH1CTL     47
                                                                                                                 PH1CTL     48
                                        **        STATEMENT TYPE CODES.                                          PH1CTL     49
                                                                                                                 PH1CTL     50
                                  11     ST.FMT   =      9           FORMAT                                      PH1CTL     51
                                  15     ST.END   =      13          END (NORMAL)                                PH1CTL     52
                                  16     ST.ASG   =      14          ASSIGN                                      PH1CTL     53
                                  22     ST.BAD   =      18          BAD STATEMENT                               PH1CTL     54
                                  45     ST.INV   =      37          END (INVENTED)                              PH1CTL     55
  
  
  
  
                                         EQX      MACRO  LOC                                                     PH1CTL     57
                                                  EQ     =X_LOC                                                  PH1CTL     58
                                                  ENDM                                                           PH1CTL     59
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     3
                                                                                CODE
  
                                        *         LOCATIONS USED BY THE "DEBUG" PROCESSOR                        DBGCOM      3
                                                                                                                 DBGCOM      4
                                                  USE    //                                                      DBGCOM      5
             0                     1     DEBUG    BSS    1                                                       DBGCOM      6
                                                  USE    *                                                       DBGCOM      7
                                                  USE    /DBGBLK2/                                               DBGCOM      8
             0                     1     D.SDRL   BSS    1            BEGINNING ADDRESS OF DRL RELATIVE TO //    DBGCOM      9
             1                     1     D.EDRL   BSS    1            NEXT AVAILABLE ORDINAL OF DRL              DBGCOM     10
             2                     1     D.SDVL   BSS    1            BEGINNING ADDRESS OF DVL RELATIVE TO //    DBGCOM     11
             3                     1     D.EDVL   BSS    1            NEXT AVAILABLE ORDINAL OF DVL              DBGCOM     12
             4                     1     D.SAREA  BSS    1            BEGINNING ADDRESS OF AREA LIST // RELATIVE DBGCOM     13
             5                     1     D.EAREA  BSS    1            NEXT AVAILABLE ORDINAL OF AREA LIST        DBGCOM     14
             6                     1     D.OPL    BSS    1            BEG. ADDRESS OF OPTIONS LIST // RELATIVE   DBGCOM     15
             7                     1     D.SSMTB  BSS    1            BEG. ADDRESS OF SYMTAB RELATIVE TO //      DBGCOM     16
            10                     1     D.ESMTB  BSS    1            NEXT AVAILABLE ORDINAL OF SYMTAB           DBGCOM     17
            11                     1     D.SAASI  BSS    1            BEGINNING ADDRESS OF AASI RELATIVE TO //   DBGCOM     18
            12                     1     D.RFMAP  BSS    1            FWA REFMAP OR ITS EQU REL TO //            DBGCOM     19
            13                     1     D.ELIST  BSS    1            CURRENT ELIST POINTER RELATIVE TO //       DBGCOM     20
            14                     1     D.LELST  BSSZ   1                 LELIST FOR BUGPRO                     DBGCOM     21
            15                     1     D.ELAST  BSS    1            ENDING ADDRESS OF ELIST RELATIVE TO //     DBGCOM     22
            16                     1     D.NESTW  BSS    1            CURRENT ADDRESS OF OPRIONS LIST            DBGCOM     23
            17                     1     D.SFDIT  BSS    1            BEG. ADD. OF FIXED AREA LIST // RELATIVE   DBGCOM     24
            20                     1     D.EFDIT  BSS    1            LAST ORDINAL + 1 OF FIXED AREA LIST        DBGCOM     25
            21                     1     D.CON1   BSS    1            BEG. ADD. OF CONLIST RELATIVE TO //        DBGCOM     26
            22                     1     D.CONL   BSS    1            LAST USED WORD ORDINAL OF CONLIST          DBGCOM     27
            23                     1     D.NAASI  BSS    1            NEXT AVAILABLE ORDINAL OF AASI             DBGCOM     28
            24                     1     SDBGIND  BSS    1            BEG. ADD. OF RANDOM DEBUG INDEX REL. TO // DBGCOM     29
            25                     1     D.STOR   BSSZ   1            SCANNERS CONSTOR FOR BUGCON                DBGCOM     30
            26                     1     D.SCON1  BSSZ   1            SCANNERS CONSTOR RELATIVE TO //            DBGCOM     31
            27                     1     D.DOLAST BSS    1            DOLAST FOR FTN DEBUG ROUTINES              DBGCOM     32
            30                     1     D.NOGO   BSSZ   1            .NE. 0 IF DEBUG STMTS NOT TO BE EXECUTED   DBGCOM     33
            31                     1     D.PACK   BSSZ   1                                                       DBGCOM     34
            32                     1     D.POW    BSS    1            PREVIOUS OPTION WORD                       DBGCOM     35
            33                     1     D.OPFLG  BSSZ   1            .NE. 0 IF OPTIONS HAVE TO BE WRITTEN OUT   DBGCOM     36
            34                     1     D.ON     BSS    1            0 IF TURNING ON OPTIONS. .NE.0 IF OFF      DBGCOM     37
            35                     1     D.NOERR  BSS    1            NO. OF ERRORS IN AREA LIST                 DBGCOM     38
            36                     1     D.PADD   BSS    1           = 0 IF INTERSPERSED  (FOR TURNON)           DBGCOM     39
            37                     1     FEFLAG   BSSZ   1            IF .NE. 0 CAUSES LIST OF FE STMT IN NOLIST DBGCOM     40
            40                     1     D.OPEN   BSSZ   1            .EQ.1 IF DUNIT OPEN, 0 IF CLOSED           DBGCOM     41
            41                     1     DBGPROG  BSSZ   1            LOCATION 56 FOR FTN DEBUG ROUTINES         DBGCOM     42
            42                     1     LDEBUG   BSSZ   1                 LOCATION OF DEBUG FOR FTN DEBUG RTNS  DBGCOM     43
            43                     1     RECORD   BSSZ   1                 NEXT AVAILABLE RECORD NUMBER          DBGCOM     44
            44                     1     DISPOW   BSSZ   1                 DISPLAY FOR OPTIONS HEADER            DBGCOM     45
            45                     1     SUCCESS  BSSZ   1                 FLG FOR EXTERNAL PACKET ON DISK       DBGCOM     46
            46                     1     LTFLAG   BSS    1            .TRUE. IF PROCESSING AN OFF STMT           DBGCOM     47
            47                     1     LFLAG    BSS    1            .TRUE. IF PROCESSING AN INTERSPERSED OFF   DBGCOM     48
            50                     1     NOPROG   BSSZ   1            NON ZERO IF NO PROGRAM CARD AND            DBGCOM     49
                                                                      CALLING DBGIPKT ONLY TO SET UP             DBGCOM     50
                                                                      FOR FURTHER PROCESSING                     DBGCOM     51
            51                     2     D.CURUD  BSS    2            UPDATE ID OF CURRENT STATEMENT             DBGCOM     52
            53                     1     D.DUKE1  BSS    1            BIN. LINE NO. OF START OF CURRENT STMT.    DBGCOM     53
            54                     1     D.LABEL  BSS    1            LABEL OF CURRENT STATEMENT                 DBGCOM     54
            55                     1     D.TYPE   BSS    1            STATEMENT TYPE                             DBGCOM     55
            56                     1     D.NEST   BSS    1            CURRENT POSITION IN D.NESTW                DBGCOM     56
            57                     1     LNGIND   BSS    1            LENGTH OF THE INDEX OF DEBUG RANDOM FILE   DBGCOM     57
            60  00000000000000000000     NOACT    DATA   0           .ZR. IF PACKET INFO AVAILABLE, .MI. IF NOT  DBGCOM     58
            61                     1     AREAFLG  BSSZ   1                 AREA LIST FLAG                        DBGCOM     59
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     4
                                                                                DBGBLK2 
  
            62                     1     LNGDRL   BSSZ   1                 LENGTH ALLOTTED TO THE DRL            DBGCOM     60
            63                     1     LNGDVL   BSSZ   1                 LENGTH ALLOTTED TO THE DVL            DBGCOM     61
            64                     1     C.PACK   BSS    1                 E IF EXTERNAL PACKET, I IF INTERNAL   DBGCOM     62
            65                    24     UPDTTBL  BSS    20                TABLE FOR UPDATE IDS ON COMMENT CDS   DBGCOM     63
           111                     1     COUNTUP  BSSZ   1                 NUMBER OF ENTRIES IN UPDTTBL          DBGCOM     64
           112                     1     SCNUPDT  BSSZ   1                 .NE. 0 IF PUTUPDT ENTERED FM SCANNER  DBGCOM     65
           113                     1     INDEXNO  BSSZ   1                 1 IF NO INTERNAL PACKET INFO, 3 ELSE  DBGCOM     66
           114                     1     PHSFLAG  BSSZ   1            .LT. 0 IF BETWEEN PHASES                   DBGCOM     67
                                                  USE    *                                                       DBGCOM     68
                                                  USE    /DBGBLK1/                                               DBGCOM     69
             0                     1     ALLARR   BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL ARRAYS     DBGCOM     70
             1                     1     ALLCALL  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL CALLS      DBGCOM     71
             2                     1     ALLFUNC  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL FUNCTIONS  DBGCOM     72
             3                     1     GOTOSFL  BSSZ   1            .NE. 0 IF GO TOS OPTION IS ON              DBGCOM     73
             4                     1     NOGOFLG  BSSZ   1            .NE. 0 IF NO EXECUTION DESPITE FATAL ERROR DBGCOM     74
             5  77777777777777777776     TRACEL   DATA   -1           CURRENT TRACE LEVEL                        DBGCOM     75
             6                     1     ALLROU   BSS    1            .NE. 0 IF OPLIST APPLIES TO ALL ROUTINES   DBGCOM     76
             7  23201104052257000000     SPIDER   VFD    42/7LSPIDER.,18/0                                       DBGCOM     77
                                                  USE    *                                                       DBGCOM     78
                                                  USE    /NONFTNX/                                               DBGCOM     79
             0                     1     D.COL    BSSZ   1            .NE. 0 IF EXT DEBUG PACKET ALREADY DONE    DBGCOM     80
             1                     1     DTYPE    BSSZ   1            = 0 IF NEXT STMT NOT DEBUG STMT            DBGCOM     81
                                   1 C   C$STMT   =      DTYPE                                                   DBGCOM     82
                                        *C$STMT   BSSZ   1           .NZ. IF NEXT STMT IS C$-DEBUG, .ZR. IF NOT  DBGCOM     83
             2                     2     D.NCURU  BSSZ   2            UPDATE ID OF NEXT STATEMENT                DBGCOM     84
             4                     1     D.NDUKE  BSSZ   1            BIN. LINE NO. OF START OF NEXT STMT        DBGCOM     85
             5                     1     D.NLBEL  BSSZ   1            LABEL OF NEXT STATEMENT                    DBGCOM     86
             6                     1     DBGRFMP  BSSZ   1            LAST USED WD OF REFMAP OR EQUIVALENT       DBGCOM     87
             7                     1     DBGPHCT  BSSZ   1            " 0 WHILE DBGPHCT HAS CONTROL              FCC1852    10
            10                     1     D.CURT   BSSZ   1           .LT. 0 IF CURRENT STATEMENT IS C$ DEBUG     FCC2119     6
                                                  USE    *                                                       DBGCOM     88
                                                  PURGMAC CALLF                                                  DBGCOM     89
                                         CALLF    MACRO  NAME,RESET                                              DBGCOM     90
                                                  SA1    =0                                                      DBGCOM     91
                                                  RJ     =X_NAME                                                 DBGCOM     92
                                                  IFC    NE, RESET  ,4                                           DBGCOM     93
                                                  IFC    EQ, RESET B1 ,2                                         DBGCOM     94
                                                  SB1    1                                                       DBGCOM     95
                                                  SKIP   1                                                       DBGCOM     96
                                                  SB5    1                                                       DBGCOM     97
                                         CALLF    ENDM                                                           DBGCOM     98
  
  
  
                                        ***                                                                      DBGCOM    100
                                        *         DBGERR - CALL ROUTINE TO PRINT AN ERROR MESSAGE WHEN IN DEBUG  DBGCOM    101
                                        *                MODE                                                    DBGCOM    102
                                        *                ARGUMENT IS TEXT OF THE MESSAGE                         DBGCOM    103
                                        *                                                                        DBGCOM    104
                                                  PURGMAC DBGERR                                                 DBGCOM    105
                                         DBGERR   MACRO  TEXT                                                    DBGCOM    106
                                                  RJ     =XSAVREG                                                DBGCOM    107
                                                  SA5    =C/TEXT/                                                DBGCOM    108
                                                  RJ     =XDBGERR                                                DBGCOM    109
                                                  RJ     =XRESREG                                                DBGCOM    110
                                                  ENDM                                                           DBGCOM    111
                                  47     DBGFSTT  EQU    39                                                      DBGCOM    112
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     5
                                                                                CODE
  
                                  62     DBGEXTP  EQU    50                                                      DBGCOM    113
                                                                                                                 PH1CTL     61
                                         ESS      MACRO  NAME              ENTER NAME IN SYMTAB AND SAVE ORDINAL PH1CTL     62
                                                  SA1    =8R_NAME                                                PH1CTL     63
                                                  RJ     ESS                                                     PH1CTL     64
                                                  SX7    B1                                                      PH1CTL     65
                                                  SA7    =X_NAME                                                 PH1CTL     66
                                                  ENDM                                                           PH1CTL     67
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     6
        PARSEM - ELIST MANIPULATION MACROS                            PARSEM    CODE
  
            62                           PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                      PARSEM      3
                                        ***                                                                      PARSEM      4
                                        *         THE MACROS USE THE FOLLOWING REGISTERS:                        PARSEM      5
                                        *                X1,B2 LOWER 48 BITS AND E-LIST CODE                     PARSEM      6
                                        *                B3 IS USED TO HOLD E-LIST CODE FOR TESTS                PARSEM      7
                                        *                A4,X4 = E-LIST ADDRESS AND CURRENT ELEMENT              PARSEM      8
                                        *                A5,X5 = SELIST,(SELIST)                                 PARSEM      9
                                        *                                                                        PARSEM     10
                                         GETE     MACRO                    GET CURRENT E-LIST ELEMENT            PARSEM     11
                                                  SA5    SELIST                                                  PARSEM     12
                                                  SA4    X5                                                      PARSEM     13
                                                  UX1    B2,X4                                                   PARSEM     14
                                                  ENDM                                                           PARSEM     15
                                                                                                                 PARSEM     16
                                         UPDATE   MACRO  R                 UPDATE E-LIST POINTER IN CORE         PARSEM     17
                                         Z        SET    R 4                                                     PARSEM     18
                                                  SX6    A.Z-B5                                                  PARSEM     19
                                                  SA6    A5                                                      PARSEM     20
                                                  ENDM                                                           PARSEM     21
                                                                                                                 PARSEM     22
                                         ADVIN    MACRO                    GETE AND UPDATE                       PARSEM     23
                                                  GETE                                                           PARSEM     24
                                                  UPDATE                                                         PARSEM     25
                                                  ENDM                                                           PARSEM     26
                                                                                                                 PARSEM     27
                                         NEXTE    MACRO  R                 GETE NEXT E-LIST ITEM                 PARSEM     28
                                         Z        SET    R 4                                                     PARSEM     29
                                                  SA.Z   A.Z-B5                                                  PARSEM     30
                                                  UX1    B2,X.Z                                                  PARSEM     31
                                                  ENDM                                                           PARSEM     32
                                                                                                                 PARSEM     33
                                         BACKE    MACRO                    BACK OFF E-LIST POINTER               PARSEM     34
                                                  SA5    SELIST                                                  PARSEM     35
                                                  SX6    X5+B5                                                   PARSEM     36
                                                  SA6    A5                                                      PARSEM     37
                                                  ENDM                                                           PARSEM     38
                                                                                                                 PARSEM     39
                                         CON      MICRO  1,,/B0/           E LIST CODE FOR A CON                 PARSEM     40
                                         NAME     MICRO  1,,/B5/           E-LIST CODE FOR A NAME ( = 1 )        PARSEM     41
                                                                                                                 PARSEM     42
                                         IF.EQ    MACRO  ECODE,LABEL       IF( B2 .EQ. ECODE ) GO TO LABEL       PARSEM     43
                                                  IF     DEF,ECODE                                               PARSEM     44
                                                  SB3    ECODE                                                   PARSEM     45
                                                  EQ     B2,B3,LABEL                                             PARSEM     46
                                                  ELSE                                                           PARSEM     47
                                                  EQ     B2,"ECODE",LABEL                                        PARSEM     48
                                                  ENDIF                                                          PARSEM     49
                                                  ENDM                                                           PARSEM     50
                                                                                                                 PARSEM     51
                                         IF.NE    MACRO  ECODE,LABEL       IF( B2 .NE. ECODE ) GO TO LABEL       PARSEM     52
                                                  IF     DEF,ECODE                                               PARSEM     53
                                                  SB3    ECODE                                                   PARSEM     54
                                                  NE     B2,B3,LABEL                                             PARSEM     55
                                                  ELSE                                                           PARSEM     56
                                                  NE     B2,"ECODE",LABEL                                        PARSEM     57
                                                  ENDIF                                                          PARSEM     58
                                                  ENDM                                                           PARSEM     59
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     7
        PARSEM - ELIST MANIPULATION MACROS                            PARSEM    CODE
  
                                                                                                                 PARSEM     60
                                         IF.GE    MACRO  ECODE,LABEL       IF(B2 .GE. ECODE) GO TO LABEL         PARSEM     61
                                                  IF     DEF,ECODE                                               PARSEM     62
                                                  SB3    ECODE                                                   PARSEM     63
                                                  GE     B2,B3,LABEL                                             PARSEM     64
                                                  ELSE                                                           PARSEM     65
                                                  GE     B2,"ECODE",LABEL                                        PARSEM     66
                                                  ENDIF                                                          PARSEM     67
                                                  ENDM                                                           PARSEM     68
                                                                                                                 PARSEM     69
                                         IF.LE    MACRO  ECODE,LABEL       IF(B2 .LE. ECODE) GO TO LABEL         PARSEM     70
                                                  IF     DEF,ECODE                                               PARSEM     71
                                                  SB3    ECODE                                                   PARSEM     72
                                                  LE     B2,B3,LABEL                                             PARSEM     73
                                                  ELSE                                                           PARSEM     74
                                                  LE     B2,"ECODE",LABEL                                        PARSEM     75
                                                  ENDIF                                                          PARSEM     76
                                                  ENDM                                                           PARSEM     77
                                                                                                                 PARSEM     78
                                         IF.GT    MACRO  ECODE,LABEL       IF(B2 .GT. ECODE) GO TO LABEL         PARSEM     79
                                                  IF     DEF,ECODE                                               PARSEM     80
                                                  SB3    ECODE                                                   PARSEM     81
                                                  GT     B2,B3,LABEL                                             PARSEM     82
                                                  ELSE                                                           PARSEM     83
                                                  GT     B2,"ECODE",LABEL                                        PARSEM     84
                                                  ENDIF                                                          PARSEM     85
                                                  ENDM                                                           PARSEM     86
                                                                                                                 PARSEM     87
                                         IF.LT    MACRO  ECODE,LABEL       IF(B2 .LT. ECODE) GO TO LABEL         PARSEM     88
                                                  IF     DEF,ECODE                                               PARSEM     89
                                                  SB3    ECODE                                                   PARSEM     90
                                                  LT     B2,B3,LABEL                                             PARSEM     91
                                                  ELSE                                                           PARSEM     92
                                                  LT     B2,"ECODE",LABEL                                        PARSEM     93
                                                  ENDIF                                                          PARSEM     94
                                                  ENDM                                                           PARSEM     95
                                                                                                                 PARSEM     96
                                                  ENDX                                                           PARSEM     97
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     8
        FMACDEF - MACRO FORMATION MACROS                              FMACDEF   CODE
  
            62                           FMACDEF  CTEXT  FMACDEF - MACRO FORMATION MACROS                        FMACDEF     2
                                        **        FMACDEF - MACRO DEFINITIONS TO CALL THE COMPS MACOUT ROUTINES. FMACDEF     3
                                        *         THE FOLLOWING MACROS ARE USED TO OUTPUT MACRO CALLS TO THE     FMACDEF     4
                                        *         COMPS FILE.                                                    FMACDEF     5
                                        *         FOR FURTHER INFORMATION ONE SHOULD CONSULT THE SUBROUTINES     FMACDEF     6
                                        *         "SVARG" , "FMAC" AND F1AMAC" .                                 FMACDEF     7
                                        *                                                                        FMACDEF     8
                                                                                                                 FMACDEF     9
                                         INTARG   MACRO                    INITIALIZE NUMBER OF ARGS             FMACDEF    10
                                                  SB7    B0                                                      FMACDEF    11
                                                  ENDM                                                           FMACDEF    12
                                                                                                                 FMACDEF    13
                                         SVARG    MACRO  TYPE,ARGNUM       SAVE A MACRO ARGUMENT ( IN X6 )       FMACDEF    14
                                        *                                  USES X6,X7,B6,B7 AND A6               FMACDEF    15
                                                  SB6    "F_TYPE"                                                FMACDEF    16
                                                  PX6    B6,X6                                                   FMACDEF    17
                                                  SB6    ARGNUM                                                  FMACDEF    18
                                                  RJ     =XSVARG                                                 FMACDEF    19
                                                  ENDM                                                           FMACDEF    20
                                                                                                                 FMACDEF    21
                                         FNAME    MICRO  1,,/B0/           TABLE OF POSSIBLE TYPE CODES          FMACDEF    22
                                         FOCT     MICRO  1,,/B5/           OCTAL CONVERSION                      FMACDEF    23
                                         FINT     MICRO  1,,/B5+B5/        INTEGER CONVERSION - 1 DIGIT ONLY     FMACDEF    24
                                         FCHAR    MICRO  1,,/3/            CHARACTER STRING                      FMACDEF    25
                                         FNAMEL   MICRO  1,,/4/      ACTUAL NAME, I.E., OVERIDE IAF FLAG WHICH   FMACDEF    26
                                        *                            WOULD FORCE FORMATION OF ?SYMBOL            FMACDEF    27
                                                                                                                 FMACDEF    28
                                         NARGS=   MACRO  SUM               SAVE TOTAL NUMBER OF ARGS FOR FMAC    FMACDEF    29
                                                  SX7    -SUM                                                    FMACDEF    30
                                                  SA7    NARGS                                                   FMACDEF    31
                                                  ENDM                                                           FMACDEF    32
                                                                                                                 FMACDEF    33
                                         FMAC     MACRO  MACNAME                                                 FMACDEF    34
                                                  IFC    NE,//MACNAME/,1                                         FMACDEF    35
                                                  SA1    =10H  MACNAME                                           FMACDEF    36
                                                  RJ     =XFMAC                                                  FMACDEF    37
                                                  ENDM                                                           FMACDEF    38
                                                                                                                 FMACDEF    39
                                         F1AMAC   MACRO  MACNAME           FORM AND OUTPUT A 1 ARG MACRO CALL    FMACDEF    40
                                        *                                  ARGUMENT IS ASSUMED TO BE A NAME      FMACDEF    41
                                        *                                  FROM SYMTAB                           FMACDEF    42
                                                  SA1    =10H  MACNAME                                           FMACDEF    43
                                                  RJ     =XF1AMAC                                                FMACDEF    44
                                                  ENDM                                                           FMACDEF    45
  
  
  
                                        *         LOCATIONS USED BY "SVARG" TO SAVE THE MACRO CALLS              FMACDEF    47
                                        *         AND "FMAC" TO FORMAT THEM                                      FMACDEF    48
                                                                                                                 FMACDEF    49
                                                  USE    /MACBUF/                                                FMACDEF    50
             0  00000000000000000000     NARGS                             NUMBER OF ARGS                        FMACDEF    51
             1                     1     MBUF     BSSZ   1                 MACRO OUTPUT BUFFER                   FMACDEF    52
                                                                                                                 FMACDEF    53
             2                    12     ABUF     BSSZ   10                ARGUMENT BUFFER                       FMACDEF    54
                                                  USE    *                                                       FMACDEF    55
                                                  ENDX                                                           FMACDEF    56
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE     9
         DPEXT - PROCESS EXTERNAL STATEMENT                                     CODE
  
                                        ***                                                                      PH1CTL     71
                                        *         DPEXT - PROCESS "EXTERNAL" STMT                                PH1CTL     72
                                        *                                                                        PH1CTL     73
                                  73     E.EXTE   EQU    59                SYNTAX ERROR                          PH1CTL     74
                                 143     E.CUN    EQU    99                CONFLICTING USE OF NAME               PH1CTL     75
                                                                                                                 PH1CTL     76
            62  5150000032               DPEXT    GETE                                                           PH1CTL     77
                                                                                                                 PH1CTL     78
            63  0525000104 +             DPEXT.L  IF.NE  NAME,DPEXTE1      IF NOT A NAME                         PH1CTL     79
                          75645                   UPDATE                                                         PH1CTL     80
            64  6170000065 +                      SYMBOL                                                         PH1CTL     81
            65  36262                             IX2    X6+X2             FIRST OCCURANCE, ADD TYPE TO NAME     PH1CTL     82
                     0317000102 +                 NZ     X7,DPEXT.D        IF PREVIOUS REFS IN A DEBUG STMT      PH1CTL     83
                                                                                                                 PH1CTL     84
                                        *         SYMBOL PREVIOUSLY REFERENCED                                   PH1CTL     85
                                                                                                                 PH1CTL     86
            66  0415000106 +                      EQ     B1,B5,DPEXTE2     ERROR IF ORDINAL 1                    PH1CTL     87
                          43004                   MX0    L.TYP                                                   PH1CTL     88
                               11302              BX3    X0*X2                                                   PH1CTL     89
            67  20304                             LX3    L.TYP                                                   PH1CTL     90
                     7243777771                   SX4    X3-T.LAB                                                PH1CTL     91
            70  0324000106 +                      PL     X4,DPEXTE2        ERROR IF RETURNS, ETC                 PH1CTL     92
                          10322                   BX3    X2                                                      PH1CTL     93
                               20323              LX3    59-P.VAR                                                PH1CTL     94
            71  0333000106 +                      NG     X3,DPEXTE2        IF PREVIOUS REFS AS A LOCAL VAR       PH1CTL     95
                                                                                                                 PH1CTL     96
            72  76050                    DPEXT3   SX0    B5                                                      PH1CTL     97
                     20066                        LX0    P.EXT                                                   PH1CTL     98
                          12602                   BX6    X0+X2                                                   PH1CTL     99
                               20073              LX0    P.EST-P.EXT                                             FCC1716X   29
            73  5150000000 X                      SA5    RSELECT                                                 FCC1716X   30
                          12606                   BX6    X0+X6                                                   FCC1716X   31
                               54620              SA6    A2                SET EXT BIT IN WORD B                 PH1CTL    100
                                                                                                                 PH1CTL    101
            74  0305000076 +                      ZR     X5,DPEXT4         IF R = 0                              PH1CTL    103
                          43200                   ADDREF B1,REF            ADD A REFERENCE FOR THE NAME          PH1CTL    104
                                                                                                                 PH1CTL    105
            76  5150000032               DPEXT4   GETE                     SEPERATOR                             PH1CTL    106
            77  6130000004                        IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                           PH1CTL    107
           100  6130000003                        IF.NE  EL.COMMA,DPEXTE1  IF NOT A ,                            PH1CTL    108
           101  55445                             NEXTE                                                          PH1CTL    109
                          0400000063 +            EQ     DPEXT.L                                                 PH1CTL    110
                                                                                                                 PH1CTL    111
                                        *         FIRST OCCURANCE                                                PH1CTL    112
                                                                                                                 PH1CTL    113
           102  7100000001               DPEXT.D  CFO    EXT               CHECK SETTING OF DEBUG BITS           PH1CTL    114
           103  36262                             IX2    X6+X2             ADD TYPE TO WORD B                    PH1CTL    115
                     0400000072 +                 EQ     DPEXT3                                                  PH1CTL    116
                                                                                                                 PH1CTL    117
           104  6160000073               DPEXTE1  POSTER SEV=FE,NR=E.EXTE,FMT=ELIST,TXT=X4,RETURN=PH1SCAN        PH1CTL    118
                                                                                                                 PH1CTL    119
           106  5150000032               DPEXTE2  SA5    SELIST                                                  PH1CTL    120
                          5245000001              POSTER SEV=FE,NR=E.CUN,FMT=ELIST,TXT=X5+1,RETURN=DPEXT4        PH1CTL    121
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    10
         MAIN LOOP                                                              CODE
  
                                        ***                                                                      PH1CTL    123
                                        *         MAIN LOOP FOR DECLARATIVE STATEMENT PROCESSING                 PH1CTL    124
                                        *                                                                        PH1CTL    125
           111  5150000000 X             PH1SCAN  SA5    RSELECT                                                 PH1CTL    126
                          5120000150 +            SA2    TEMPB7                                                  PH1CTL    127
           112  10622                             BX6    X2                                                      PH1CTL    128
                     5160000000 X                 SA6    =XLASTTYP                                               PH1CTL    129
           113  0305000115 +                      ZR     X5,PH1S           IF R = 0                              PH1CTL    130
                          66100                   ADDREF B0                TERMINATE THE LINE OF REFERENCES      PH1CTL    131
                                                                                                                 PH1CTL    132
           115  5110000000 X             PH1S     SA1    DFLAG                                                   PH1CTL    133
                          0301000120 +            ZR     X1,PH1SA          IF NOT DEBUG MODE                     PH1CTL    134
                                                                                                                 PH1CTL    135
           116  5110000001 C             PH1SA1   SA1    DTYPE                                                   PH1CTL    136
                          0301000120 +            ZR     X1,PH1SA          IF NEXT STMT IS NOT A DEBUG STMT      PH1CTL    137
           117  0100000000 X                      CALL   DBGINT            PROCESS DEBUG STMT                    PH1CTL    138
                                                                                                                 PH1CTL    139
           120  0100000000 X             PH1SA    CALL   SCANNER           GET THE STATEMENT TYPE                PH1CTL    140
           121  5130000051                        SA3    ATYPE                                                   PH1CTL    141
                          76270                   SX2    B7                                                      PH1CTL    142
                               20324              LX3    20                                                      PH1CTL    143
           122  43650                             MX6    -20                                                     FCC0840     5
                     11363                        BX3    X6*X3                                                   FCC0840     6
                          12632                   BX6    X3+X2                                                   PH1CTL    144
           123  5160000150 +                      SA6    TEMPB7                                                  PH1CTL    145
                                                                                                                 PH1CTL    146
           124  0570000126 +             PH1S1    NE     B7,PH1SA2         NOT PROGRAM OR BAD DEBUG CARD         PH1CTL    147
                          5110000000 X            SA1    =XTYPFLAG                                               PH1CTL    148
           125  0301000151 +                      ZR     X1,PH1SE          PROGRAM CARD                          PH1CTL    149
                          0400000116 +            EQ     PH1SA1                                                  PH1CTL    150
                                                                                                                 PH1CTL    151
           126  6110000047               PH1SA2   SB1    DBGFSTT                                                 PH1CTL    152
                          0771000131 +            LT     B7,B1,PH1S2       NOT DEBUG CARD                        PH1CTL    153
           127  0100000000 X                      CALL   DBGINTX           PROCESS DEBUG CARD                    PH1CTL    154
           130  0400000120 +                      EQ     PH1SA                                                   PH1CTL    155
                                                                                                                 PH1CTL    156
           131  0657000151 +             PH1S2    LE     B7,B5,PH1SE IF SECOND (ILLEGAL) PROGRAM UNIT HEADER     PH1CTL    157
                          6120000011              SB2    ST.FMT      GREATEST TYPE CODE FOR DECLARATIVE STMTS    PH1CTL    158
           132  0627000134 +                      LE     B7,B2,VECJP       IF DECLARATIVE STATEMENT, PROCESS     PH1CTL    159
                          6120000022              SB2    ST.BAD                                                  PH1CTL    160
           133  0472000111 +                      EQ     B7,B2,PH1SCAN     IGNORE *BAD* STATEMENT                PH1CTL    161
                          0400000000 X            EQ     =XDPCLOSE         TERMINATE DECLARATIVE PROCESSING      PH1CTL    162
                                                                                                                 PH1CTL    163
           134  0277000135 +             VECJP    JP     VECTAB+B7                                               PH1CTL    164
                                                                                                                 PH1CTL    165
           135                           VECTAB   BSS    0                                                       PH1CTL    166
      L      0                                    LOC    0                                                       PH1CTL    167
      L      0  0400000400 +                      EQ     DPROG       PROGRAM, BLOCK DATA, SUBROUTINE             PH1CTL    168
      L      1  0400001060 +                      EQ     DPFUN       FUNCTION                                    PH1CTL    169
      L      2  0400000000 X                      EQX    DPLEV       LEVEL                                       PH1CTL    170
      L      3  0400000000 X                      EQX    DPIMP        PROCESS IMPLICIT STATEMENT                 PH1CTL    171
      L      4  0400000000 X                      EQX    DPCOM             COMMON                                PH1CTL    172
      L      5  0400000000 X                      EQX    DPDIM             DIMENSION                             PH1CTL    173
      L      6  0400000062 +                      EQ     DPEXT             EXTERNAL                              PH1CTL    174
      L      7  0400000000 X                      EQX    DPEQU             EQUIVALENCE                           PH1CTL    175
      L     10  0400000000 X                      EQX    DPTYP             TYPE ...                              PH1CTL    176
      L     11  0100000000 X                      RJ     =XFORMAT          FORMAT(                               PH1CTL    177
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    11
         MAIN LOOP                                                              CODE
  
      L     12  0400000111 +                      EQ     PH1SCAN                                                 PH1CTL    178
           150                                    LOC    *O                                                      PH1CTL    179
                                                                                                                 PH1CTL    180
           150                     1     TEMPB7   BSSZ   1                                                       PH1CTL    181
  
  
  
           151  6160777710               PH1SE    SB6    -E.HCNF           HEADER CARD AFTER THE FIRST CARD      PH1CTL    183
                          0570000154 +            NZ     B7,PH1SE2   IF NOT *OVERLAY*                            PH1CTL    184
           152  5110000051                        SA1    ATYPE                                                   PH1CTL    185
                          6221777774              SB2    X1-3                                                    PH1CTL    186
           153  0520000154 +                      NZ     B2,PH1SE2                                               PH1CTL    187
                          6160777304              SB6    -E315                                                   PH1CTL    188
           154  6170000115 +             PH1SE2   POSTER SEV=FE,NR=**,RETURN=PH1S                                PH1CTL    189
  
  
  
  
                                        **        ESF - ENTER SPECIAL SYMBOLS IN *SYMTAB* FOR SUBROUTINE         PH1CTL    191
                                        *                 OR FUNCTION SUBPROGRAMS.                               PH1CTL    192
                                        *                                                                        PH1CTL    193
                                        *         ENTRY  (FUNTYPE) = LENGTH (IN WORDS) OF SET FUNCTION RESULT    PH1CTL    194
                                        *                             TO X6 (AND X7 IF 2 WORD RESULT) CODE       PH1CTL    195
                                        *                          = 0 IF NOT A FUNCTION SUBPROGRAM              PH1CTL    196
                                        *                                                                        PH1CTL    197
                                        *                (TEMPA0.) = LENGTH (IN WORDS) OF SAVE AND RESTORE (A0)  PH1CTL    198
                                        *                             CODE                                       PH1CTL    199
                                        *                          = 0 IF NO FORMAL PARAMETERS OR RETURNS        PH1CTL    200
                                        *                                                                        PH1CTL    201
                                        *                (N.FP)    = NUMBER OF F.P. S OR ZERO IF NONE.           RSM3545C   34
                                        *                            USED AS A FLAG TO DETERMINE WHETHER         RSM3545C   35
                                        *                            *SPA.* IS NEEDED OR NOT. (NOTE - *ESS*      RSM3545C   36
                                        *                            SETS PROGRAM RELATIVE BIT.)                 RSM3545C   37
                                        *                                                                        RSM3545C   38
                                        *         EXIT   (START.)  = LENGTH OF *START.* BLOCK                    PH1CTL    202
                                        *                                                                        PH1CTL    203
                                        *                (TRACE.)  = *SYMTAB* ORDINAL OF CGS *TRACE.* - (ADDR OF PH1CTL    204
                                        *                             TRACEBACK INFORMATION FOR OBJECT PROGRAM)  PH1CTL    205
                                        *                                                                        PH1CTL    206
                                        *                (TEMPA0.) = *SYMTAB* ORDINAL OF CGS *TEMPA0.* - (ADDR   PH1CTL    207
                                        *                             OF WORD CONTAINING THE SAVED CONTENTS      PH1CTL    208
                                        *                             OF A0)                                     PH1CTL    209
                                        *                          = 0 IF NO FORMAL PARAMETERS OR RETURNS        PH1CTL    210
                                        *                                                                        PH1CTL    211
                                        *                (EXIT.)   = *SYMTAB* ORDINAL OF CGS *EXIT.* - (ADDR OF  PH1CTL    212
                                        *                             FOLDED EXIT CODE FOR OBJECT PROGRAM)       PH1CTL    213
                                        *                                                                        PH1CTL    214
                                        *                (ENTRY.)  = *SYMTAB* ORDINAL OF CGS *ENTRY.* - (ADDR OF PH1CTL    215
                                        *                             ENTRY POINT TO OBJECT PROGRAM)             PH1CTL    216
                                        *                                                                        PH1CTL    217
                                        *         USES   ALL                                                     PH1CTL    218
                                        *                                                                        PH1CTL    219
                                        *         CALLS  ESS                                                     PH1CTL    220
                                                                                                                 PH1CTL    221
                                                                                                                 PH1CTL    222
           155  0400400155 +             ESF      ENTRY. **          ** ENTRY/EXIT **                            PH1CTL    223
                                                                                                                 PH1CTL    224
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    12
         MAIN LOOP                                                    ESF       CODE
  
           156  5110000000 +                      ESS    TRACE.      *TRACE.* TO SYMTAB, RA = 0 IN *START.*      PH1CTL    225
                                                                                                                 PH1CTL    226
                               76650              SX6    B5                                                      PH1CTL    227
           160  5140000000 X                      SA4    =XTEMPA0.                                               PH1CTL    228
                          5160000000 X            SA6    =XSTART.    LENGTH OF *START.* = 1                      PH1CTL    229
           161  0304000166 +                      ZR     X4,ESF2     IF NO FPS OR RETURNS                        PH1CTL    230
                                                                                                                 PH1CTL    231
                          5110000001 +            ESS    TEMPA0.     *TEMPA0.* TO SYMTAB                         PH1CTL    232
                                                                                                                 PH1CTL    233
                               43073              MX0    -1                                                      PH1CTL    234
           164  5120000000 X                      SA2    =XSTART.                                                PH1CTL    235
                          73725                   SX7    X2+B5       LENGTH OF *START.* + 1                      PH1CTL    236
                               36370              IX3    X7+X0       RA = LENGTH OF *START.* - 1                 PH1CTL    237
           165  54720                             SA7    A2                                                      PH1CTL    238
                     20323                        LX3    P.RA                                                    PH1CTL    239
                          12663                   BX6    X6+X3                                                   PH1CTL    240
                               54660              SA6    A6                                                      PH1CTL    241
                                                                                                                 PH1CTL    242
           166  5110000002 +             ESF2     ESS    EXIT.       *EXIT.* TO SYMTAB                           PH1CTL    243
                                                                                                                 PH1CTL    244
                               43073              MX0    -1                                                      PH1CTL    245
           170  5120000000 X                      SA2    =XSTART.                                                PH1CTL    246
                          73725                   SX7    X2+B5                                                   PH1CTL    247
                               36370              IX3    X7+X0       RA = LENGTH OF *START.* - 1                 PH1CTL    248
           171  54720                             SA7    A2                                                      PH1CTL    249
                     20323                        LX3    P.RA                                                    PH1CTL    250
                          12663                   BX6    X6+X3                                                   PH1CTL    251
                               54660              SA6    A6                                                      PH1CTL    252
                                                                                                                 PH1CTL    253
           172  5110000003 +                      ESS    ENTRY.      *ENTRY.* TO SYMTAB                          PH1CTL    254
                                                                                                                 PH1CTL    255
                               67205              SB2    -B5         (B2) = -1                                   PH1CTL    256
           174  5110000000 X                      SA1    =XTEMPA0.                                               PH1CTL    257
                          5120000000 X            SA2    =XSTART.                                                PH1CTL    258
           175  0301000177 +                      ZR     X1,ESF3     IF NO FPS OR RETURNS                        PH1CTL    259
                          66222                   SB2    B2+B2       (B2) = -2                                   PH1CTL    260
           176  7222000002                        SX2    X2+L.SVCD   (X2) = LEN *START.* + LEN SAVE/REST A0 CODE PH1CTL    261
                                                                                                                 PH1CTL    262
           177  5130000000 X             ESF3     SA3    =XFUNTYPE                                               PH1CTL    263
                          5150000000 X            SA5    =XCO.ER                                                 FEAT155A   19
           200  36723                             IX7    X2+X3       (X7) = LENGTH OF *START.* BLOCK             PH1CTL    264
                     73472                        SX4    X7+B2       (X4) = RA OF *ENTRY.*                       PH1CTL    265
                          20501                   LX5    1                                                       FEAT155A   20
                               36445              IX4    X4+X5                                                   FEAT155A   21
           201  54720                             SA7    A2                                                      PH1CTL    266
                     20423                        LX4    P.RA                                                    PH1CTL    267
                          12664                   BX6    X6+X4                                                   PH1CTL    268
                               43033              MX0    L.ADF                                                   PH1CTL    269
           202  54660                             SA6    A6                                                      PH1CTL    270
                     20047                        LX0    L.ADF+P.ADF                                             PH1CTL    271
                          11660                   BX6    X6*X0                                                   PH1CTL    272
           203  5160000000 X                      SA6    ENTRY.D     SAVE ADDR DEF BITS FOR *ENDPRO*             PH1CTL    273
                                                                                                                 RSM3545C   39
                                        *         SET *SPA.* IN SYMTAB IF NEEDED.                                RSM3545C   40
                                                                                                                 RSM3545C   41
                          5110000000 X            SA1    N.FP                                                    RSM3545C   42
           204  0301000155 +                      ZR     X1,ESF      IF NO F.P. S, EXIT..                        RSM3545C   43
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    13
         MAIN LOOP                                                    ESF       CODE
  
                          5110000004 +            ADEXTS =8RSPA.                                                 RSM3545C   44
           207  20022                             LX0    T.CGS-P.EXT ADD IN *CGS* BIT                            RSM3545C   45
                     12707                        BX7    X0+X7                                                   RSM3545C   46
                          54770                   SA7    A7                                                      RSM3545C   47
           210  0400000155 +                      EQ     ESF         EXIT..                                      RSM3545C   48
           211  0400000155 +                      EQ     ESF         EXIT...                                     PH1CTL    274
  
  
  
  
                                        **        ESS - ENTER SPECIAL SYMBOL IN SYMTAB.                          PH1CTL    276
                                        *                                                                        PH1CTL    277
                                        *         SETS TYPE TO CGS AND RL = 1 ( PROGRAM RELOCATABLE ).           PH1CTL    278
                                        *                                                                        PH1CTL    279
                                        *         ENTRY  (X1) = SYMBOL, DISPLAY CODE.                            PH1CTL    280
                                                                                                                 PH1CTL    281
                                                                                                                 PH1CTL    282
           212  5130000000 X             ESS1     SA3    WB.ESS            TYPE , RL AND RB                      PH1CTL    283
                          12623                   BX6    X2+X3                                                   PH1CTL    284
                               54620              SA6    A2                                                      PH1CTL    285
                                                                                                                 PH1CTL    286
           213  0400400213 +             ESS      ENTRY. *                 ** ENTRY/EXIT **                      PH1CTL    287
           214  6170000212 +                      SYMBOL ,ESS1             ENTER NAME IN SYMTAB                  PH1CTL    288
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    14
         PHASE 1 INITIALIZATION                                                 CODE
  
                                        ************************************************************************ PH1CTL    290
                                        *                                                                        PH1CTL    291
                                        *         THIS CODE OVERLAID AFTER HEADER CARD PROCESSING                PH1CTL    292
                                        *                                                                        PH1CTL    293
                                                                                                                 FEAT155F  233
                                        *         IF (BREAK=21) WAS SELECTED, ENTRY TO OVERLAY(2,1) WILL BE TO   FEAT155F  234
                                        *         *FTN21-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.  FEAT155F  235
                                                                                                                 FEAT155F  236
                                         FTN21    BREAK                                                          FEAT155F  237
                                                                                                                 FEAT155F  238
                                                  ENTRY  FTN21                                                   PH1CTL    294
           215                           FTN21    BSS    0           ** LOADER ENTRY POINT **                    PH1CTL    295
           215                           PH1CTL   BSS    0                                                       PH1CTL    296
                                                                                                                 FEAT121L  656
                                        *         COPY MASTER LIST CONTROL FLAGS TO WORKING LIST CONTROL FLAGS.  FEAT121L  657
                                                                                                                 FEAT121L  658
           215  7110000000 X                      MOVE   =XL.MSTR,=XLSTMSTR,=XLSTWRKG                            FEAT121L  659
                                                                                                                 FEAT121L  660
           220  43601                             MX6    1                                                       FEAT121L  661
                     5160000000 X                 SA6    =XNOLIST    SET TO *LIST,ALL* MODE                      FEAT121L  662
                                                                                                                 PH1CTL    297
                                        *         INITIALIZE LISTING TITLE LINE.                                 PH1CTL    298
                                                                                                                 PH1CTL    299
           221  5110000005 +                      SA1    =1H                                                     PH1CTL    300
                          6110000001              SB1    1                                                       PH1CTL    301
           222  10611                             BX6    X1                                                      PH1CTL    302
                     43722                        MX7    18                                                      F162FTNA  943
                          5160000000 X            SA6    =XTL.PTYP                                               PH1CTL    304
           223  5160000000 X                      SA6    =XTL.PNAM                                               PH1CTL    305
                                                                                                                 F162FTNA  944
                                        *         CLEAR STATIC LOAD SELECTIONS.                                  F162FTNA  945
                                                                                                                 F162FTNA  946
                          5110000001 X            SA1    =XSTLTAB+1  *STLCRM.* MUST REMAIN PERMANENTLY SELECTED  F162FTNA  947
           224  15617                    CTL1     BX6    -X7*X1                                                  F162FTNA  948
                     54610                        SA6    A1                                                      F162FTNA  949
                          54111                   SA1    A1+B1                                                   F162FTNA  950
           225  0311000224 +                      NZ     X1,CTL1     IF NOT END OF STATIC LOAD TABLE             F162FTNA  951
                          5110000001 X            SA1    =XSTLTAB+1  SELECT *STLRP2.* IF *ER* OPTION ON          F162FTNA  952
           226  5120000000 X                      SA2    =XCO.ER                                                 F162FTNA  953
                          12612                   BX6    X1+X2                                                   F162FTNA  954
                               54610              SA6    A1                                                      F162FTNA  955
                                                                                                                 PH1CTL    306
                                        *         INITALIZE WORKING STORAGE ADDRESSES.                           PH1CTL    307
                                                                                                                 PH1CTL    308
           227  5110000012                        SA1    =XSYM1      (X1) = INVERTED FWA SYMBOL TABLE            PH1CTL    309
                          7170001352 +            SX7    F.WORK1     LWA PASS 1 CODE                             PH1CTL    310
           230  10611                             BX6    X1                                                      PH1CTL    311
                     46000                        NO                                                             PH1CTL    312
                          5170000000 X            SA7    =XFWAWORK                                               PH1CTL    313
           231  5160000013                        SA6    =XSYMEND    INITIALIZE SYMBOL TABLE LWA = FWA           PH1CTL    314
                          7160000000 X            PLUG   AT=(=XLFER),TO=(=XFATALER)                              PH1CTL    315
           235  5110000000 X                      SA1    =XANSI                                                  PH1CTL    316
                          7160000027              SX6    027B                                                    PH1CTL    317
           236  46000                             NO                                                             PH1CTL    318
                     20663                        LX6    51          (X6) = / JP B7 / INSTRUCTION                PH1CTL    319
                          0311000241 +            NZ     X1,CTL2     IF NON-ANSI DIAGNOSTIC LIST (X) OPTION ON   PH1CTL    320
           237  5160000000 X                      PLUG   AT=(=XASAER),FROM=X6                                    PH1CTL    321
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    15
         PHASE 1 INITIALIZATION                                                 CODE
  
           241  5110000000 X             CTL2     SA1    =XIEFLG                                                 PH1CTL    322
                          0311000244 +            NZ     X1,CTL3     IF INFORMATIVE DIAGNOSTICS DESIRED          PH1CTL    323
           242  5160000000 X                      PLUG   AT=(=XINFORM),FROM=X6                                   PH1CTL    324
           244  5110000000 X             CTL3     SA1    =XPROGNAM   NAME OF LAST PROGRAM UNIT COMPILED          PH1CTL    325
                          10611                   BX6    X1                                                      PH1CTL    326
                               43700              MX7    0                                                       PH1CTL    327
           245  0301000246 +                      ZR     X1,CTL4     IF FIRST COMPILATION                        PH1CTL    328
                          5160000320 +            SA6    NULL2       NAME TO *NULL PROG ...* MESSAGE TEXT        PH1CTL    329
           246  54710                    CTL4     SA7    A1          CLEAR PROGRAM UNIT NAME FOR -ERPRO-         PH1CTL    330
           247  5120000000 X             CTL5     SA2    DFLAG                                                   PH1CTL    331
                          0302000252 +            ZR     X2,CTL6     IF DEBUG NOT SELECTED                       PH1CTL    332
           250  0100000000 X                      CALL   DBGEPKT     PROCESS EXTERNAL PACKET                     PH1CTL    333
           251  0400000253 +                      EQ     CTL7                                                    PH1CTL    334
                                                                                                                 PH1CTL    335
           252  0100000000 X             CTL6     CALL   SCANNER     GET NEXT STATEMENT                          PH1CTL    336
           253  6160000015               CTL7     SB6    ST.END                                                  PH1CTL    337
                          0467000255 +            EQ     B6,B7,CTL8  IF NORMAL *END*                             PH1CTL    338
           254  6160000045                        SB6    ST.INV                                                  PH1CTL    339
                          0567000267 +            NE     B6,B7,CTL9  IF NOT INVENTED *END*                       PH1CTL    340
                                                                                                                 PH1CTL    341
                                        *         FALL THROUGH HERE MEANS -END- WAS ENCOUNTERED BEFORE           PH1CTL    342
                                        *         ANY VALID FORTRAN STATEMENTS.                                  PH1CTL    343
                                                                                                                 PH1CTL    344
           255  0100000000 X             CTL8     CALL   DSL         DUMP SAVED LINES (*SCANNER* MAY STILL BE    PH1CTL    345
                                        *                            IN DEFERRED LIST MODE IF A VALID HEADER     PH1CTL    346
                                        *                            LINE HAS NOT BEEN FOUND.)                   PH1CTL    347
           256  5110000000 X                      SA1    =XCER.FL                                                FCC2104    20
                          7160000001              SX6    1                                                       FCC2104    21
           257  54610                             SA6    A1                                                      FCC2104    22
                     7110000315 +                 MESSAGE   NULL1,,RCL     *NULL PROGRAM IGNORED AFTER ...*      PH1CTL    348
           262  5130000000 X                      SA3    =XCO.ABT                                                FCC2360     9
                          20336                   LX3    59-29                                                   FCC2360    10
           263  0323000266 +                      PL     X3,CTL8A    IF NO A PARAMETER                           FCC2360    11
                          7110000321 +            MESSAGE NULL3,,RCL                                             FCC2360    12
           266  5110000000 X             CTL8A    SA1    =XN.FERR                                                FCC2360    13
                          0301000000 X            ZR     X1,=XFTNEND  IF NO ERRORS DETECTED BEFORE *END* LINE    FCC1795X    4
                                                                                                                 PH1CTL    352
           267  6160000002               CTL9     SB6    2                                                       PH1CTL    353
                          5130000051              SA3    ATYPE                                                   PH1CTL    354
           270  76270                             SX2    B7                                                      PH1CTL    355
                     20324                        LX3    20                                                      PH1CTL    356
                          43650                   MX6    -20                                                     FCC0840     7
                               11363              BX3    X6*X3                                                   FCC0840     8
           271  12632                             BX6    X3+X2                                                   PH1CTL    357
                     5160000150 +                 SA6    TEMPB7                                                  PH1CTL    358
           272  0776000134 +                      LT     B7,B6,VECJP       IF PROGRAM,SUBROUTINE,FUNCTION, ETC.  PH1CTL    359
                                                                                                                 PH1CTL    360
                                        *         INSERT FAKE PROGRAM CARD "PROGRAM START.(INPUT,OUTPUT)"        PH1CTL    361
                                                                                                                 PH1CTL    362
           273  6160777446               PROGC    POSTER SEV=INF,NR=E217                                         PH1CTL    363
                                                                                                                 FCC2306    12
                                        *         RESET TYPE TO PREVENT PROPAGATED ERRORS                        FCC2306    13
                                        *         CAUSED BY FAULTY HEADER CARD                                   FCC2306    14
                                                                                                                 FCC2306    15
           275  5110000150 +                      SA1    TEMPB7                                                  FCC2306    16
                          43650                   MX6    -20                                                     FCC2306    17
                               11661              BX6    X6*X1                                                   FCC2306    18
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    16
         PHASE 1 INITIALIZATION                                                 CODE
  
           276  54610                             SA6    A1                                                      FCC2306    19
                                                                                                                 PH1CTL    364
           277  5110000000 X             PTR57    SA1    DFLAG                                                   PH1CTL    365
                          43673                   MX6    59                                                      PH1CTL    366
           300  0301000302 +                      ZR     X1,PTR57A    IF NOT IN DEBUG MODE                       PH1CTL    367
                          5160000050 C            SA6    NOPROG      SET TO NO PROGRAM CARD CONDITION            PH1CTL    368
           301  0100000000 X                      RJ     DBGIPKT                                                 PH1CTL    369
           302  5110000032               PTR57A   SA1    SELIST                                                  PH1CTL    370
                          7160000313 +            SX6    DUMMY                                                   PH1CTL    371
           303  10711                             BX7    X1                                                      PH1CTL    372
                     54610                        SA6    A1                SELIST = DUMMY ELIST ADDRESS          PH1CTL    373
                          5170000314 +            SA7    SVELIST           SAVE E LIST POINTER                   PH1CTL    374
           304  0400000410 +                      EQ     PROG.D       GO PROCESS DUMMY PROGRAM CARD              PH1CTL    375
  
  
  
                                                  PURGMAC   ELIST                                                PH1CTL    377
                                         ELIST    MACRO  T,NAME            ASSEMBLY TIME E - LIST                PH1CTL    378
                                        +         VFD    12/2000B+T                                              PH1CTL    379
                                                  IFC    NE,//NAME/                                              PH1CTL    380
                                                  VFD    48/8H_NAME                                              PH1CTL    381
                                                  ELSE                                                           PH1CTL    382
                                                  VFD    48/0                                                    PH1CTL    383
                                                  ENDIF                                                          PH1CTL    384
                                                  ENDM                                                           PH1CTL    385
                                                                                                                 PH1CTL    386
           305  2004                              ELIST  4                 EOS                                   PH1CTL    387
           306  2002                              ELIST  2                 )                                     PH1CTL    388
           307  2001                              ELIST  1,OUTPUT                                                PH1CTL    389
           310  2003                              ELIST  3                 ,                                     PH1CTL    390
           311  2001                              ELIST  1,INPUT                                                 PH1CTL    391
           312  2006                              ELIST  6                 (                                     PH1CTL    392
           313  2001                     DUMMY    ELIST  1,START.                                                PH1CTL    393
           314  00000000000000000000     SVELIST                           SAVED VALUE OF THE E LIST POINTER     PH1CTL    394
                                                                                                                 PH1CTL    395
                                                                                                                 PH1CTL    396
           315  55551625141455202217     NULL1    DIS    3,  NULL PROGRAM IGNORED AFTER                          PH1CTL    397
           320  47024617461147000000     NULL2    DIS    ,/*B-O-I*/                                              PH1CTL    398
           321  55162514145520221707     NULL3    DIS    ,/ NULL PROGRAM - HONOR THE A PARAMETER/                FCC2360    14
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    17
         EXITS FROM THE HEADER CARD PROCESSORS                                  CODE
  
           325  7160000000 X             PROGRTN  OUTUSE DATA.             SET RELOCATION BASE                   PH1CTL    400
                                                                                                                 PH1CTL    401
                                        *         ENTER SPECIAL SYMBOLS IN SYMTAB                                PH1CTL    402
                                                                                                                 PH1CTL    403
           326  5110000006 +                      SA1    =8RST.                                                  PH1CTL    404
                          0100000000 X            RJ     ECGS              ENTER ST. IN SYMTAB AND SET DEF BIT   PH1CTL    405
           327  76710                             SX7    B1                                                      PH1CTL    406
                     5170000000 X                 SA7    ST.               SAVE SYMTAB ORDINAL                   PH1CTL    407
           330  5150000056                        SA5    PROGRAM                                                 PH1CTL    408
                          66255                   SB2    B5+B5                                                   PH1CTL    409
                               26535              UX5    B3,X5                                                   PH1CTL    410
           331  0532000336 +                      NE     B3,B2,PROGR1      IF NOT A FUNCTION                     PH1CTL    411
                          5110000007 +            SYMBOL =8RVALUE.         VALUE. TO SYMTAB                      PH1CTL    412
           333  5140000000 X                      SA4    VALUE.            (VALUE.)=FUNCTION TYPE                PH1CTL    413
                          20470                   LX4    P.TYP                                                   PH1CTL    414
                               12742              BX7    X4+X2                                                   PH1CTL    415
           334  76050                             SX0    B5                                                      PH1CTL    416
                     20050                        LX0    P.VAR                                                   PH1CTL    417
                          12707                   BX7    X0+X7             SET VAR BIT                           PH1CTL    418
                               54720              SA7    A2                UPDATE WORD B                         PH1CTL    419
           335  76610                             SX6    B1                                                      PH1CTL    420
                     54640                        SA6    A4                (VALUE.)=SYMTAB ORD OF *VALUE.*       PH1CTL    421
           336  5110000360 +             PROGR1   SA1    PFLAG                                                   PH1CTL    422
                          0301000342 +            ZR     X1,PROGR2         IF NOT A PROGRAM                      PH1CTL    423
           337  53110                             ADEXTS X1                ADD Q8NTRY. TO SYMTAB                 PH1CTL    424
                                                                                                                 PH1CTL    425
                                        *         ALLOCATE TABLES FOR PHASE 1 , OVERLAY HEADER CARD CODE         PH1CTL    426
                                                                                                                 PH1CTL    427
           342  7160000215 +             PROGR2   SX6    PH1CTL                                                  PH1CTL    428
                          0100000000 X            RJ     INITBL            INITIALIZE TABLES FOR PHASE 1         PH1CTL    429
           343  5150000000 X                      SA5    DFLAG                                                   PH1CTL    430
                          0305000347 +            ZR     X5,PROGR3         IF NOT DEBUG MODE                     PH1CTL    431
           344  5140000000 X                      SA4    N.FP                                                    PH1CTL    432
                          0304000347 +            ZR     X4,PROGR3         IF NO FORMAL PARAMETERS               PH1CTL    433
           345  5110000010 +                      SA1    =8RFP.                                                  PH1CTL    434
                          0100000000 X            RJ     ECGS              FP. TO SYMTAB                         PH1CTL    435
           346  76710                             SX7    B1                                                      PH1CTL    436
                     5170000000 X                 SA7    FP.               SAVE SYMTAB ORDINAL                   PH1CTL    437
           347  5110000314 +             PROGR3   SA1    SVELIST                                                 PH1CTL    438
                          0301000355 +            ZR     X1,PROGR4         IF WE DIDNT SAVE ANYTHING             PH1CTL    439
           350  5120000024                        SA2    TYPE                                                    PH1CTL    440
                          10611                   BX6    X1                                                      PH1CTL    441
                               63720              SB7    X2                B7 = STATEMENT TYPE                   PH1CTL    442
           351  5160000032                        SA6    SELIST            RESTORE E LIST POINTER                PH1CTL    443
                          6137777762              SB3    B7-13                                                   PH1CTL    444
           352  0657000111 +                      LE     B7,B5,PH1SCAN     IF BAD HEADER LINE, DONT REPROCESS IT PH1CTL    445
                          6147777732              SB4    B7-37                                                   PH1CTL    446
           353  0430000000 X                      ZR     B3,=XLDPS2    IF END CARD FOUND                         PH1CTL    447
                          0440000000 X            ZR     B4,=XLDPS2    IF EOR ENCOUNTERED                        PH1CTL    448
           354  0400000124 +                      EQ     PH1S1             PROCESS THE STMT                      PH1CTL    449
                                                                                                                 PH1CTL    450
           355  5110000000 X             PROGR4   SA1    DFLAG                                                   PH1CTL    451
                          0301000111 +            ZR     X1,PH1SCAN        IF NOT DEBUG MODE                     PH1CTL    452
           356  0100000000 X                      CALL   DBGIPKT           PROCESS INTERNAL PACKET               PH1CTL    453
           357  0400000111 +                      EQ     PH1SCAN                                                 PH1CTL    454
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    18
         PROGRAM CARD PROCESSOR                                                 CODE
  
                              360000     M.BUF    EQU    360BS9            MAXIMUM BUFFER SIZE                   PH1CTL    456
                                  61     M.FILES  EQU    49D               MAXIMUM NUMBER OF FILES ALLOWED       FCC2246     8
                                                                                                                 PH1CTL    458
                                        *         ERROR NUMBERS                                                  PH1CTL    459
                                                                                                                 PH1CTL    460
                                  27     E.HCSE   EQU    23                HEADER CARD SYNTAX ERROR              PH1CTL    461
                                  30     E.TMC    EQU    24                FILE NAME MORE THAN 6 CHARACTERS      PH1CTL    462
                                  31     E.DFN    EQU    25                DUPLICATE FILE NAME                   PH1CTL    463
                                  33     E.FEE    EQU    27                FILE NAME EQUIVALENCE ERROR           PH1CTL    464
                                 154     E.TMF    EQU    108               TOO MANY FILES                        PH1CTL    465
                                 352     E.FSTB   EQU    234               FILE SIZE TOO BIG ( INFORMATIVE )     PH1CTL    466
                                 261     E.RLTB   =      177               RECORD LENGTH TOO BIG                 PH1CTL    467
                                                                                                                 PH1CTL    468
           360  00000000000000000000     PFLAG                                                                   PH1CTL    469
           361  00000000000000000000     LI                                LOOP INDEX ( A TEMPORARY )            PH1CTL    470
                                 361 +   RLFLAG   =      LI          FLAG TO INDICATE RECORD LENGTH PROCESSING   PH1CTL    471
                                                                                                                 PH1CTL    472
                                        ***                                                                      PH1CTL    473
                                        *         PLFN - PREPARE FILE NAME FOR SYMTAB                            PH1CTL    474
                                        *                                                                        PH1CTL    475
                                        *         ON ENTRY:                                                      PH1CTL    476
                                        *                X1 = 8R_NAME                                            PH1CTL    477
                                        *                                                                        PH1CTL    478
                                        *         ON EXIT:                                                       PH1CTL    479
                                        *                X1 = 8R_NAME"C" - NAME WITH SPECIAL CHARACTER APPENDED  PH1CTL    480
                                        *                                                                        PH1CTL    481
                                                                                                                 PH1CTL    482
                                                  QUAL   PLFN                                                    PH1CTL    483
                                                                                                                 PH1CTL    484
           362  0400400362 +             PLFN     SUBR               ** ENTRY/EXIT **                            PH1CTL    485
           363  0100001314 +                      RJ     RTB         REMOVE TRAILING BLANKS                      PH1CTL    486
           364  10166                             BX1    X6                                                      FCC0946     6
                     21136                        AX1    5*6                                                     FCC0946     7
                          43066                   MX0    -6                                                      FCC0946     8
                               15010              BX0    -X0*X1      THIRD CHARACTER                             FCC0946     9
           365  7110000053                        SX1    1R$                                                     FCC0946    10
                          13010                   BX0    X1-X0                                                   FCC0946    11
           366  0310000367 +                      NZ     X0,PLFN1    IF THIRD CHARACTER NOT *$*                  FCC0946    12
                          20136                   LX1    5*6                                                     FCC0946    13
                               13661              BX6    X6-X1                                                   FCC0946    14
           367  10166                    PLFN1    BX1    X6                                                      FCC0946    15
                     20160                        LX1    2*6+6*6                                                 PH1CTL    488
                          21144                   AX1    6*6                                                     PH1CTL    489
           370  0311000374 +                      NZ     X1,PLFN2    IF NAME LENGTH .GT. 6 CHARACTERS, ERROR     PH1CTL    490
                          5110000011 +            SA1    =1H"C"      (X1) = SPECIAL CHARACTER, BLANK FILLED      PH1CTL    491
           371  6170000000 X                      SB7    =XGT1       (B7) = WSA FOR *MCS*                        PH1CTL    492
                          5160000000 X            SA6    =XGT1                                                   PH1CTL    493
           372  0100001242 +                      RJ     MCS         MERGE CHARACTER STRINGS                     PH1CTL    494
           373  5110000000 X                      SA1    =XGT1                                                   PH1CTL    495
                          0400000362 +            EQ     EXIT.                                                   PH1CTL    496
                                                                                                                 PH1CTL    497
           374  6160000030               PLFN2    POSTER SEV=FE,NR=E.TMC,FMT=ELIST,TXT=X4,RETURN=PROGRTN         PH1CTL    498
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    19
         PROGRAM CARD PROCESSOR                                       PLFN      CODE
  
                                                  QUAL   *                                                       PH1CTL    500
                                 362 +   PLFN     =      /PLFN/PLFN                                              PH1CTL    501
  
  
  
           376  6160000027               PROG.SE  POSTER SEV=FE,NR=E.HCSE,FMT=ELIST,TXT=X4,RETURN=PROGRTN        PH1CTL    503
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    20
         PROGRAM CARD PROCESSOR                                                 CODE
  
           400  5120000051               DPROG    SA2    ATYPE                                                   PH1CTL    505
                          63720                   SB7    X2                                                      PH1CTL    506
           401  0277000402 +                      JP     PRGTYP+B7         SPLIT PROGRAM,BLOCK DATA,SUBROUTINE   PH1CTL    507
           402  0400001043 +             PRGTYP   EQ     DPBDA             BLOCK DATA                            PH1CTL    508
           403  0400001054 +                      EQ     DPSUB             SUBROUTINE                            PH1CTL    509
           404  0400000406 +                      EQ     PROG0             *PROGRAM*                             PH1CTL    510
           405  0400001253 +                      EQ     PLD               *OVERLAY*                             PH1CTL    511
                                                                                                                 PH1CTL    512
           406  6160777324               PROG0    POSTERR   SEV=ANSI,NR=E299                                     PH1CTL    513
           410  7170000012               PROG.D   SX7    T.ENT        BEGIN DPROG                                PH1CTL    514
                          0100000751 +            RJ     PPN               PROCESS PROGRAM NAME                  PH1CTL    515
           411  43500                             MX5    0                                                       PH1CTL    516
                     27605                        PX6    X5                                                      PH1CTL    517
                          5160000056              SA6    PROGRAM           PROGRAM = 12/2000B,48/0               PH1CTL    518
           412  5120000000 X                      SA2    =XPROGNAM                                               PH1CTL    519
                          10722                   BX7    X2                                                      PH1CTL    520
           413  5170000000 X                      SA7    XFRNAME           SAVE XFER NAME                        PH1CTL    521
                                                                                                                 PH1CTL    522
                          5150000032              GETE                     FIRST ELEMENT AFTER NAME              PH1CTL    523
                          6130000004              IF.EQ  EL.EOS,PROG.X     IF END OF STMT                        PH1CTL    524
                          6130000006              IF.NE  EL.(,PROG.SE      IF NO OPENING PAREN                   PH1CTL    525
                                                                                                                 PH1CTL    526
                                        *         PROCESS FILE NAME DECLARATIONS                                 PH1CTL    527
                                        *         SAVE INFORMATION IN TEMPORARY TABLE, FORMAT:                   PH1CTL    528
                                        *                6/0,18/RECORD LENGTH,18/ORD(LFN),18/BUFFER SIZE         PH1CTL    529
                                        *                1/1,23/0,18/ORD(LFN1),18/ORD(LFN2)                      PH1CTL    530
                                                                                                                 PH1CTL    531
           417  55445                    PROG1    NEXTE                                                          PH1CTL    532
                          0525000376 +            IF.NE  NAME,PROG.SE      IF NOT A NAME                         PH1CTL    533
           420  75645                             UPDATE                                                         PH1CTL    534
                          5120000000 X            SA2    N.FILES                                                 PH1CTL    535
           421  7202777716                        SX0    X2-M.FILES                                              PH1CTL    536
                          0330000424 +            MI     X0,PROG1A         IF NOT TOO MANY FILES                 PH1CTL    537
           422  6160777623                        POSTER SEV=FE,NR=E.TMF,RETURN=PROGRTN      *TOO MANY FILES*    PH1CTL    538
                                                                                                                 PH1CTL    539
           424  73625                    PROG1A   SX6    X2+B5             N.FILES = N.FILES + 1                 PH1CTL    540
                     54620                        SA6    A2                                                      PH1CTL    541
                          0100000362 +            RJ     PLFN              PREPARE NAME                          PH1CTL    542
           425  6170000426 +                      SYMBOL                   AND ENTER IN SYMTAB                   PH1CTL    543
           426  5130000000 X                      SA3    WB.LFN            TYPE , RL AND RB                      PH1CTL    544
                          0400000432 +            EQ     PROG2                                                   PH1CTL    545
                                                                                                                 PH1CTL    546
           427  5150000032                        SA5    SELIST                                                  PH1CTL    547
                          5245000001              POSTERR   NR=E.DFN,SEV=FE,FMT=ELIST,TXT=X5+1,RETURN=PROGRTN    PH1CTL    548
                                                                                                                 PH1CTL    549
           432  5140000000 X             PROG2    SA4    N.FILES                                                 PH1CTL    550
                          12732                   BX7    X3+X2             SET WORD B BITS                       PH1CTL    551
                               54720              SA7    A2                                                      PH1CTL    552
           433  76610                             SX6    B1                                                      PH1CTL    553
                     5150000000 X                 SA5    =XOT.RM                                                 PH1CTL    554
           434  7170002003                        SX7    L.IOBUF6                                                F162FTNA  956
                          0305000436 +            ZR     X5,PROG2A   IF 6RM OBJECT MODE                          PH1CTL    556
           435  7170000000                        SX7    L.IOBUF7                                                F162FTNA  957
           436  20622                    PROG2A   LX6    18                                                      PH1CTL    558
                     12667                        BX6    X6+X7                                                   PH1CTL    559
                          5264000750 +            SA6    O.LFN-1+X4        STORE LFN TAB ENTRY                   PH1CTL    560
                                                                                                                 PH1CTL    561
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    21
         PROGRAM CARD PROCESSOR                                                 CODE
  
           437  5150000032                        GETE                     NEXT ELEMENT - A SEPERATOR            PH1CTL    562
           440  6130000003                        IF.EQ  EL.COMMA,PROG1    LOOP IF A ,                           PH1CTL    563
           441  6130000005                        IF.NE  EL.=,PROG4        IF NOT AN = S                         PH1CTL    564
                                                                                                                 PH1CTL    565
           442  55445                             NEXTE                                                          PH1CTL    566
                          75645                   UPDATE                                                         PH1CTL    567
           443  0425000503 +                      IF.EQ  NAME,PROG.N       IF A NAME                             PH1CTL    568
                          43600                   MX6    0                                                       PH1CTL    569
           444  5160000361 +                      SA6    RLFLAG            CLEAR *PROCESSING MRL* FLAG           PH1CTL    570
                          6130000023              IF.NE  EL.SLASH,PROG.B2  IF NOT A SLASH                        PH1CTL    571
           446  55445                    PROG.B1  NEXTE                                                          PH1CTL    572
                          75645                   UPDATE                                                         PH1CTL    573
           447  5130000361 +                      SA3    RLFLAG                                                  PH1CTL    574
                          0313000376 +            NZ     X3,PROG.SE        IF A SLASH (/) HAS BEEN PROCESSED     PH1CTL    575
           450  43612                             MX6    10                                                      PH1CTL    576
                     54630                        SA6    A3                TURN *PROCESSING MRL* FLAG ON         PH1CTL    577
           451  0520000376 +             PROG.B2  IF.NE  CON,PROG.SE       IF NOT A CONSTANT                     PH1CTL    578
                                                                                                                 PH1CTL    579
                                        *         PROCESS BUFFER LENGTH OR RECORD LENGTH.                        PH1CTL    580
                                                                                                                 PH1CTL    581
                          21155                   AX1    45                                                      PH1CTL    582
           452  7221777772                        SX2    X1-T.OCT                                                PH1CTL    583
                          7231777776              SX3    X1-T.INT                                                PH1CTL    584
           453  0302000454 +                      ZR     X2,PROG.C         IF OCTAL                              PH1CTL    585
                          0313000376 +            NZ     X3,PROG.SE        IF NOT INTEGER                        PH1CTL    586
                                                                                                                 PH1CTL    587
           454  10144                    PROG.C   BX1    X4                E-LIST                                PH1CTL    588
                     67105                        SB1    -B5                                                     PH1CTL    589
                          0100000000 X            RJ     CONVERT           CONVERT CONSTANT TO BINARY            PH1CTL    590
           455  5140000000 X                      SA4    N.FILES                                                 PH1CTL    591
                          5254000750 +            SA5    O.LFN-1+X4                                              PH1CTL    592
           456  5130000361 +                      SA3    RLFLAG                                                  PH1CTL    593
                          0313000472 +            NZ     X3,PROG.B3        IF PROCESSING RECORD LENGTH           PH1CTL    594
                                                                                                                 PH1CTL    595
                                        *         PROCESS BUFFER LENGTH.  (BUF LEN IGNORED IF 7RM SELECTED.)     PH1CTL    596
                                                                                                                 PH1CTL    597
           457  0321000461 +                      PL     X1,PROG.C1  IF BUFFER LENGTH NOT NEGATIVE               PH1CTL    598
                          6160777750              POSTER SEV=FE,NR=E.HCSE,RETURN=PROGRTN                         PH1CTL    599
                                                                                                                 PH1CTL    600
           461  5130000000 X             PROG.C1  SA3    =XOT.RM                                                 PH1CTL    601
                          0313000477 +            NZ     X3,PROG3    IF 7RM OBJECT MODE IGNORE BUFFER LENGTH     PH1CTL    602
           462  7120360000                        SX2    M.BUF             MAXIMUM PERMISSIBLE BUFFER LENGTH     PH1CTL    603
                          37321                   IX3    X2-X1                                                   PH1CTL    604
                               21373              AX3    59                                                      PH1CTL    605
           463  15113                             BX1    -X3*X1                                                  PH1CTL    606
                     11232                        BX2    X3*X2                                                   PH1CTL    607
                          36112                   IX1    X1+X2             MIN OF (REQUESTED LENGTH, MAX LENGTH) PH1CTL    608
                               43052              MX0    42                                                      PH1CTL    609
           464  73610                             SX6    X1                                                      F162FTNA  958
                     0301000466 +                 ZR     X1,PROG.C2                                              F162FTNA  959
           465  7261000003                        SX6    X1+3        INCR 3 TO PREVENT S-TAPE PROBLEMS           F162FTNA  960
           466  11505                    PROG.C2  BX5    X0*X5       REMOVE DEFAULT BUFFER LENGTH                F162FTNA  961
                     36756                        IX7    X5+X6             INSERT NEW BUFFER LENGTH              PH1CTL    612
                          54750                   SA7    A5                                                      PH1CTL    613
           467  0323000477 +                      PL     X3,PROG3          IF REQUESTED LENGTH .LE. MAX LENGTH   PH1CTL    614
                          5150000032              SA5    SELIST                                                  PH1CTL    615
           470  5245000003                        POSTERR   NR=E.FSTB,SEV=INF,FMT=ELIST,TXT=X5+3,RETURN=PROG3    PH1CTL    616
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    22
         PROGRAM CARD PROCESSOR                                                 CODE
  
           472  73310                    PROG.B3  SX3    X1                                                      PH1CTL    617
                     21121                        AX1    17                                                      PH1CTL    618
                          0301000476 +            ZR     X1,PROG.B4        IF LEN<18 BITS                        PH1CTL    619
           473  5150000032                        SA5    SELIST                                                  PH1CTL    620
                          5245000001              POSTERR   NR=E.RLTB,SEV=FE,FMT=ELIST,TXT=X5+1,RETURN=PROGRTN   PH1CTL    621
           476  20344                    PROG.B4  LX3    36                                                      PH1CTL    622
                     36653                        IX6    X5+X3             INSERT MRL INTO FILE WORD             PH1CTL    623
                          54650                   SA6    A5                                                      PH1CTL    624
                                                                                                                 PH1CTL    625
           477  5150000032               PROG3    GETE                     SEPERATOR                             PH1CTL    626
           500  6130000003                        IF.EQ  EL.COMMA,PROG1    LOOP IF A COMMA                       PH1CTL    627
           501  6130000023                        IF.EQ  EL.SLASH,PROG.B1  IF TO CHECK FOR RECORD LENGTH         PH1CTL    628
           502  0400000515 +                      EQ     PROG4                                                   PH1CTL    629
                                                                                                                 PH1CTL    630
                                        *         FILE NAME EQUIVALENCING - LFN1 = LFN2                          PH1CTL    631
                                                                                                                 PH1CTL    632
           503  0100000362 +             PROG.N   RJ     PLFN                                                    PH1CTL    633
           504  6170000505 +                      SYMBOL                   GET SYMTAB ORDINAL                    PH1CTL    634
           505  0400000512 +                      EQ     PROG.EE           IF LFN2 NOT IN THE TABLE              PH1CTL    635
                                                                                                                 PH1CTL    636
           506  5140000000 X            +         SA4    N.FILES                                                 PH1CTL    637
                          5254000750 +            SA5    O.LFN-1+X4                                              PH1CTL    638
           507  21522                             AX5    18                                                      PH1CTL    639
                     63350                        SB3    X5                                                      PH1CTL    640
                          0431000512 +            EQ     B3,B1,PROG.EE     X = X IS ILLEGAL                      PH1CTL    641
           510  20522                             LX5    18                                                      PH1CTL    642
                     76610                        SX6    B1                                                      PH1CTL    643
                          43701                   MX7    1                                                       PH1CTL    644
                               12556              BX5    X5+X6                                                   PH1CTL    645
           511  36675                             IX6    X7+X5             1/1,23/0,18/ORD(LFN1),18/ORD(LFN2)    PH1CTL    646
                     54650                        SA6    A5                                                      PH1CTL    647
                          0400000477 +            EQ     PROG3                                                   PH1CTL    648
                                                                                                                 PH1CTL    649
           512  5150000032               PROG.EE  SA5    SELIST                                                  PH1CTL    650
                          5245000001              POSTERR   NR=E.FEE,SEV=FE,FMT=ELIST,TXT=X5+1,RETURN=PROG3      PH1CTL    651
                                                                                                                 PH1CTL    652
           515  6130000002               PROG4    IF.NE  EL.),PROG.SE      IF NOT A )                            PH1CTL    653
           516  55445                             NEXTE                                                          PH1CTL    654
                          6130000004              IF.NE  EL.EOS,PROG.SE    IF NEXT IS NOT EOS                    PH1CTL    655
                                                                                                                 PH1CTL    656
                                        *         STORE ADDRESS"S OF FILE NAMES IN WORD B OF SYMTAB ENTRIES      PH1CTL    657
                                                                                                                 PH1CTL    658
                          5150000012              SA5    SYM1                                                    PH1CTL    659
           520  5140000000 X                      SA4    N.FILES                                                 PH1CTL    660
                          53050                   SA0    X5                A0 = SYM1                             PH1CTL    661
           521  6110000751 +                      SB1    O.LFN             FWA                                   PH1CTL    662
                          63241                   SB2    B1+X4             LWA+1                                 PH1CTL    663
           522  6130000021                        SB3    18-1                                                    PH1CTL    664
                          6170000023              SB7    P.RA                                                    PH1CTL    665
           523  43022                             MX0    L.RA                                                    PH1CTL    666
                     20045                        LX0    L.RA+P.RA                                               PH1CTL    667
                          76700                   SX7    B0                X7 = LENGTH OF START.                 PH1CTL    668
                                                                                                                 PH1CTL    669
           524  56110                    PROG5    SA1    B1                LFN TAB ENTRY                         PH1CTL    670
                     66115                        SB1    B1+B5                                                   PH1CTL    671
                          23331                   AX3    B3,X1                                                   PH1CTL    672
                               73510              SX5    X1                LENGTH OR ORD OF LFN2                 PH1CTL    673
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    23
         PROGRAM CARD PROCESSOR                                                 CODE
  
           525  63435                             SB4    X3+B5             2*ORD+1                               PH1CTL    674
                     55204                        SA2    A0-B4             WORD B OF LFN1                        PH1CTL    675
                          0331000540 +            MI     X1,PROG5B   IF EQUIVALENCED FILE                        F162FTNA  962
           526  22377                             LX3    X7,B7                                                   F162FTNA  963
                     12623                        BX6    X2+X3       INSERT (START.) IN SYMTAB WORD B            F162FTNA  964
                          54620                   SA6    A2                                                      F162FTNA  965
                               10211              BX2    X1                                                      F162FTNA  966
           527  73310                             SX3    X1          (X3) = BFS                                  F162FTNA  967
                     21244                        AX2    36          (X2) = MRL IN CHARS                         F162FTNA  968
                          7277000051              SX7    X7+L.FIT6   (START.) + FIT LEN                          F162FTNA  969
           530  5140000000 X                      SA4    =XOT.RM                                                 F162FTNA  970
                          0304000534 +            ZR     X4,PROG5.2  IF CRM OBJECT MODE                          F162FTNA  971
           531  7277777746                        SX7    X7+L.FIT7-L.FIT6                                        F162FTNA  972
                          0302000534 +            ZR     X2,PROG5.2  IF MRL=0 OR OMITTED                         F162FTNA  973
           532  7140000004                        SX4    4           CREATE 4-WD WORKSPACE BELOW WSA FOR FCL     F162FTNA  974
                          36614                   IX6    X1+X4                                                   F162FTNA  975
                               73360              SX3    X6                                                      F162FTNA  976
           533  54610                             SA6    A1          UPDATE LFN TAB ENTRY                        F162FTNA  977
           534  36773                    PROG5.2  IX7    X7+X3       (START.) + BFS                              F162FTNA  978
                     43352                        CW     X3,X2       (X3) = MRL IN WORDS                         F162FTNA  979
                     36773                        IX7    X7+X3       (START.) + MRL                              F162FTNA  980
           537  0712000524 +             PROG5.4  LT     B1,B2,PROG5 IF MORE FILES                               F162FTNA  981
                          0400000545 +            EQ     PROG6                                                   PH1CTL    689
                                                                                                                 PH1CTL    690
           540  20501                    PROG5B   LX5    1                                                       PH1CTL    691
                     63455                        SB4    X5+B5                                                   PH1CTL    692
                          55304                   SA3    A0-B4             WORD B OF LFN2                        PH1CTL    693
                               11403              BX4    X0*X3                                                   PH1CTL    694
           541  36642                             IX6    X4+X2             ADD LFN 1 = ADD LFN 2                 PH1CTL    695
                     54620                        SA6    A2                                                      PH1CTL    696
                          5110000000 X            SA1    =XOT.RM                                                 FCC2064     7
           542  0301000544 +                      ZR     X1,PROG5C   IF CRM OBJECT MODE                          FCC2064     8
                          5110000000 X            SA1    N.EQUF      NR OF EQUIVALENCED FILES                    FCC2064     9
           543  7261000001                        SX6    X1+1        NR OF EQUIVALENCED FILES + 1                FCC2064    10
                          5160000000 X            SA6    N.EQUF      UPDATE NR OF EQUIVALENCED FILES             FCC2064    11
           544  0712000524 +             PROG5C   LT     B1,B2,PROG5 IF MORE FILES                               FCC2064    12
           545  5170000000 X             PROG6    SA7    START.            SAVE LENGTH OF START.                 PH1CTL    699
                          7160000000              SX6    0                                                       PH1CTL    700
           546  5160000361 +                      SA6    LI                                                      PH1CTL    701
                                                                                                                 PH1CTL    702
                                        *         WRITE *FILCRM*, *FIL7RM* OR *FEQU* MACRO TO *COMPS*.           F162FTNA  983
                                                                                                                 PH1CTL    704
           547  5216000751 +             PROG7    SA1    O.LFN+X6                                                PH1CTL    705
                          66700                   INTARG                                                         PH1CTL    706
           550  0331000573 +                      NG     X1,PROG7A         IF EQUIV                              PH1CTL    707
                          20152                   LX1    0-18                                                    F162FTNA  984
                               73610              SX6    X1                                                      F162FTNA  985
           551  66600                             SVARG  NAME,1      ARG 1 = FILE NAME                           F162FTNA  986
           553  20122                             LX1    18-0                                                    F162FTNA  987
                     73610                        SX6    X1                                                      F162FTNA  988
                          66650                   SVARG  OCT,2       ARG 2 = BUFFER LENGTH                       F162FTNA  989
           555  20130                             LX1    0-36                                                    F162FTNA  990
                     73610                        SX6    X1                                                      F162FTNA  991
                          66650                   SVARG  OCT,3       ARG 3 = MAX RECORD LEN                      F162FTNA  992
           557  5130000000 X                      SA3    =XCO.STA                                                F162FTNA  993
                          0303000562 +            ZR     X3,PROG7.2  IF STATIC LOAD OPTION NOT SELECTED          F162FTNA  994
           560  76650                             SX6    B5                                                      F162FTNA  995
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    24
         PROGRAM CARD PROCESSOR                                                 CODE
  
                     66650                        SVARG  OCT,4       ARG 4 = STATIC LOAD FLAG                    F162FTNA  996
           562  5130000000 X             PROG7.2  SA3    =XF.LFN                                                 F162FTNA  997
                          76650                   SX6    B5                                                      PH1CTL    720
                               20305              LX3    59-P.EXT                                                PH1CTL    721
           563  0333000565 +                      MI     X3,PROG7.3  IF *SYSEDIT* OPTION NOT SELECTED            F162FTNA  998
                          66650                   SVARG  OCT,5       ARG 5 = NO ENTRY POINT FLAG                 F162FTNA  999
           565  77707                    PROG7.3  NARGS= B7                                                      F162FTNA 1000
           566  5110000000 X                      SA1    =XOT.RM                                                 F162FTNA 1001
                          0311000571 +            NZ     X1,PROG7.4  IF 7RM OBJECT MODE                          F162FTNA 1002
           567  5110000012 +                      FMAC   FILCRM                                                  F162FTNA 1003
           570  0400000604 +                      EQ     PROG7B                                                  F162FTNA 1004
                                                                                                                 F162FTNA 1005
           571  5110000013 +             PROG7.4  FMAC   FIL7RM                                                  F162FTNA 1006
           572  0400000604 +                      EQ     PROG7B                                                  PH1CTL    726
                                                                                                                 PH1CTL    727
           573  20152                    PROG7A   LX1    60-18                                                   PH1CTL    728
                     73610                        SX6    X1                                                      PH1CTL    729
                          66600                   SVARG  NAME,1            ARG 1 = LFN1                          PH1CTL    730
           575  20122                             LX1    18                                                      PH1CTL    731
                     73610                        SX6    X1                                                      PH1CTL    732
                          66600                   SVARG  NAME,2            ARG 2 = LFN2                          PH1CTL    733
           577  5130000000 X                      SA3    F.LFN                                                   PH1CTL    734
                          76650                   SX6    B5                                                      PH1CTL    735
                               20305              LX3    59-P.EXT                                                PH1CTL    736
           600  0333000602 +                      NG     X3,PROG7BB        IF FILES OPTION NOT SELECTED          PH1CTL    737
                          66650                   SVARG  OCT,3             ADD THIRD ARG                         PH1CTL    738
           602  77707                    PROG7BB  NARGS= B7                                                      PH1CTL    739
           603  5110000014 +                      FMAC   FEQU              OUTPUT MACRO CALL                     PH1CTL    740
                                                                                                                 PH1CTL    741
           604  5110000361 +             PROG7B   SA1    LI                                                      PH1CTL    742
                          5120000000 X            SA2    N.FILES                                                 PH1CTL    743
           605  73615                             SX6    X1+B5                                                   PH1CTL    744
                     54610                        SA6    A1                                                      PH1CTL    745
                          37062                   IX0    X6-X2             I - L                                 PH1CTL    746
           606  0330000547 +                      NG     X0,PROG7          IF NOT FINISHED                       PH1CTL    747
                                                                                                                 F162FTNA 1007
           607  5110000000 X             PROG.X   SA1    =XOT.RM                                                 F162FTNA 1008
                          0311000641 +            NZ     X1,PROG.X4  IF 7RM OBJECT MODE                          F162FTNA 1009
                                                                                                                 F162FTNA 1010
                                        *         ENTER *LIBLNK.* IN SYMTAB.  WRITE *LIBLNK BSS 0B.* AND         F162FTNA 1011
                                        *         *LIBLNK* MACRO TO *COMPS*.                                     F162FTNA 1012
                                                                                                                 F162FTNA 1013
           610  5110000015 +                      SA1    =8RLIBLNK.                                              F162FTNA 1014
                          0100000213 +            RJ     ESS                                                     F162FTNA 1015
           611  5110000000 X                      SA1    START.                                                  F162FTNA 1016
                          7271000003              SX7    X1+3        START. = START. + LIBLNK LENGTH             F162FTNA 1017
           612  20123                             LX1    P.RA                                                    F162FTNA 1018
                     12661                        BX6    X6+X1       LIBLNK ADDR TO SYMTAB WORD B                F162FTNA 1019
                          54710                   SA7    A1                                                      F162FTNA 1020
                               54660              SA6    A6                                                      F162FTNA 1021
           613  6110000001                        SB1    1                                                       F162FTNA 1022
                          6160000027 +            WRITEC F.CMPS,LNK.CD,2                                         F162FTNA 1023
           615  66510                             SB5    B1                                                      F162FTNA 1024
                     66700                        INTARG                                                         F162FTNA 1025
                          5110000000 X            SA1    =XN.FILES                                               F162FTNA 1026
           616  10611                             BX6    X1                                                      F162FTNA 1027
                     66650                        SVARG  OCT,1       ARG 1 = NR OF FILES                         F162FTNA 1028
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    25
         PROGRAM CARD PROCESSOR                                                 CODE
  
           620  5110000000 X                      SA1    =XPLIMIT                                                F162FTNA 1029
                          10611                   BX6    X1                                                      F162FTNA 1030
                               66650              SVARG  OCT,2       ARG 2 = PRINT LIMIT                         F162FTNA 1031
           623  5110000000 X                      SA1    =XCO.STA                                                F162FTNA 1032
                          77707                   NARGS= B7                                                      FCCA437     6
                          0301000640 +            ZR     X1,PROG.X2  IF STATIC LOAD OPTION NOT SELECTED          F162FTNA 1033
           625  76650                             SX6    B5                                                      F162FTNA 1034
                     66650                        SVARG  OCT,3       ARG 3 = STATIC LOAD FLAG                    F162FTNA 1035
           627  5110000000 X                      SA1    N.FILES                                                 FCCA408   209
                          77707                   NARGS= B7                                                      FCCA408   210
                          0311000640 +            NZ     X1,PROG.X2  IF MAIN PROGRAM WITH FILES                  FCCA408   211
           631  76650                             SX6    B5                                                      FCCA408   212
                     66650                        SVARG  OCT,4       ARG 4 = WEAK EXT TABLE FLAG                 FCCA408   213
           633  77707                             NARGS= B7                                                      FCCA408   214
           634  5110000016 +                      SA1    =8RWXTTAB.                                              FCCA408   215
                          0100000213 +            RJ     ESS                                                     FCCA408   216
           635  5110000000 X                      SA1    START.                                                  FCCA408   217
                          73115                   SX1    X1+B5       LIBLNK ADDR + 1 = W.EXT. TABLE ADDRESS      FCCA408   218
           636  7271000007                        SX7    X1+L.STL    W.EXT. TAB ADDR + L.STL = LIBLNK ADDR       FCCA408   219
                          20123                   LX1    P.RA                                                    FCCA408   220
                               54710              SA7    A1          RESTORE BUMPED START.                       FCCA408   221
           637  12661                             BX6    X6+X1                                                   FCCA408   222
                     54660                        SA6    A6          W.EXT. TAB ADDR TO SYMTAB WORD B            FCCA408   223
                                                                                                                 FCCA408   224
           640  5110000017 +             PROG.X2  FMAC   LIBLNK                                                  FCCA408   225
                                                                                                                 PH1CTL    748
                                        *         ENTER "FILES." IN SYMTAB, OUTPUT FLINK MACROS                  PH1CTL    749
                                                                                                                 PH1CTL    750
           641  5110000020 +             PROG.X4  SA1    =8RFILES.                                               F162FTNA 1038
                          0100000213 +            RJ     ESS                                                     PH1CTL    752
           642  5130000000 X                      SA3    START.                                                  PH1CTL    753
                          5140000000 X            SA4    N.FILES                                                 PH1CTL    754
           643  36743                             IX7    X4+X3             START. = START. + N.FILES             PH1CTL    755
                     54730                        SA7    A3                                                      PH1CTL    757
                          20323                   LX3    P.RA                                                    PH1CTL    758
                               12636              BX6    X3+X6             DEFINE ADDRESS OF FILES.              PH1CTL    759
           644  54660                             SA6    A6                                                      PH1CTL    760
                     6110000001                   SB1    1                                                       PH1CTL    761
           645  6160000031 +                      WRITEC F.CMPS,FILZ.CD,2                                        PH1CTL    762
           647  5110000000 X                      SA1    N.FILES                                                 PH1CTL    763
                          6151000000              SB5    B1+                                                     PH1CTL    764
           650  0301000657 +                      ZR     X1,PROG9          IF NO FILES                           PH1CTL    765
                          43600                   MX6    0                                                       PH1CTL    766
           651  5160000361 +                      SA6    LI                                                      PH1CTL    767
                                                                                                                 PH1CTL    768
           652  7266000002               PROG8    SX6    X6+2                                                    PH1CTL    769
                          5110000021 +            F1AMAC FLINK             OUTPUT FLINK MACRO                    PH1CTL    770
           654  5110000361 +                      SA1    LI                                                      PH1CTL    771
                          5120000000 X            SA2    N.FILES                                                 PH1CTL    772
           655  73615                             SX6    X1+B5                                                   PH1CTL    773
                     54610                        SA6    A1                                                      PH1CTL    774
                          37062                   IX0    X6-X2             I - L                                 PH1CTL    775
           656  0330000652 +                      NG     X0,PROG8          IF NOT FINISHED                       PH1CTL    776
                                                                                                                 PH1CTL    777
           657  5110000000 X             PROG9    SA1    =XOT.RM                                                 F162FTNA 1039
                          0311000664 +            NZ     X1,PROG9.2  IF 7RM OBJECT MODE                          F162FTNA 1040
           660  6110000001                        SB1    1                                                       F162FTNA 1041
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    26
         PROGRAM CARD PROCESSOR                                                 CODE
  
                          6160000033 +            WRITEC F.CMPS,APLT.CD,1  *FLINK* APLIST TERMINATOR             F162FTNA 1042
           662  5110000000 X                      SA1    START.                                                  F162FTNA 1043
                          73611                   SX6    X1+B1       START. = START.+1 FOR APLIST TERMINATOR     F162FTNA 1044
                               54610              SA6    A1                                                      F162FTNA 1045
           663  0400000672 +                      EQ     PROG9.4                                                 F162FTNA 1046
                                                                                                                 F162FTNA 1047
           664  5110000000 X             PROG9.2  SA1    =XPLIMIT    RUN-TIME PRINT LIMIT                        F162FTNA 1048
                          14111                   BX1    -X1                                                     PH1CTL    779
           665  0100000000 X                      CALL   BTOCT             CONVERT TO OCTAL DISPLAY CODE         PH1CTL    780
           666  6110000001                        SB1    1                                                       PH1CTL    781
                          6160000745 +            SB6    DATAPL            (B6) = PRINT LIMIT TEXT LINE FWA      PH1CTL    782
           667  56661                             SA6    B6+B1             PRINT LIMIT TO LINE                   PH1CTL    783
                     54761                        SA7    A6+B1                                                   PH1CTL    784
                          7120000000 X            WRITEC F.CMPS,B6,4       PRINT LIMIT TO -COMPS-                PH1CTL    785
           671  5110000000 X                      SA1    START.                                                  F162FTNA 1049
                          73611                   SX6    X1+B1       START. = START.+1 FOR  *DATA -(PRINT LIM)*  F162FTNA 1050
                               54610              SA6    A1                                                      F162FTNA 1051
           672  6160000033 +             PROG9.4  WRITEC F.CMPS,APLT.CD,1  RESERVE POSSIBLE DEBUG ENTRY          FCCA564     9
           674  6151000000                        SB5    B1+                                                     FCCA564    10
                          5130000000 X            SA3    START.                                                  FCCA564    11
           675  73735                             SX7    X3+B5       START.=START.+1 FOR DEBUG ENTRY             FCCA564    12
                     54730                        SA7    A3                                                      FCCA564    13
                          5110000000 +            ESS    TRACE.            TRACE. TO SYMTAB                      PH1CTL    787
           700  5130000000 X                      SA3    START.                                                  PH1CTL    788
                          73735                   SX7    X3+B5       START. = START. + 1 FOR TRACE.              FCC0996     4
                               54730              SA7    A3                                                      PH1CTL    790
           701  20323                             LX3    P.RA                                                    PH1CTL    791
                     12636                        BX6    X3+X6             DEFINE TRACE.                         PH1CTL    792
                          54660                   SA6    A6                                                      PH1CTL    793
                                                                                                                 PH1CTL    794
                               66700              INTARG                                                         PH1CTL    795
           702  76650                             SX6    B5                                                      PH1CTL    796
                     66600                        SVARG  NAME,1                                                  PH1CTL    797
           704  76650                             SX6    B5                                                      PH1CTL    798
                     66600                        SVARG  NAME,2                                                  PH1CTL    799
           706  77707                             NARGS= B7                                                      PH1CTL    800
           707  5110000022 +                      FMAC   TRACE             OUTPUT TRACEBACK MACRO                PH1CTL    801
                                                                                                                 PH1CTL    802
           710  7160000000 X                      OUTUSE CODE.             SWITCH TO CODE.                       PH1CTL    803
           711  66700                             INTARG                                                         FEAT155A   22
                     76650                        SX6    B5                                                      FEAT155A   23
                          66600                   SVARG  NAME,1      ARG1=PROG NAME                              FEAT155A   24
           713  5150000000 X                      SA5    =XCO.ER                                                 FEAT155A   25
                          10655                   BX6    X5                                                      FEAT155A   26
                               20601              LX6    1                                                       FEAT155A   27
           714  66655                             SVARG  INT,4       ARG4=ER                                     FEAT155A   28
           716  77707                             NARGS= B7                                                      FEAT155A   29
           717  5110000023 +                      FMAC   PENTRY      OUTPUT PENTRY MACRO CALL                    FEAT155A   30
                                                                                                                 PH1CTL    806
           720  5150000000 X                      SA5    CODE.                                                   PH1CTL    807
                          73655                   SX6    X5+B5             CODE. = CODE.+1                       PH1CTL    808
                               54650              SA6    A5                                                      PH1CTL    809
           721  5110000000 X                      SA1    =XOT.RM                                                 F162FTNA 1053
                          6160000036 +            SB6    SA1.LIB     PRESET  *SA1 LIBLNK.*                       F162FTNA 1054
           722  0301000723 +                      ZR     X1,PROG9.6  IF CRM OBJECT MODE                          F162FTNA 1055
                          6160000034 +            SB6    SA1.FIL     SET  *SA1 FILES.*                           F162FTNA 1056
           723  6110000001               PROG9.6  SB1    1                                                       F162FTNA 1057
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    27
         PROGRAM CARD PROCESSOR                                                 CODE
  
                          7120000000 X            WRITEC F.CMPS,B6,2                                             F162FTNA 1058
           725  5110000000 X                      SA1    =XCO.ER                                                 FEAT155A   31
                          0301000734 +            ZR     X1,PROG10   IF ER=0                                     FEAT155A   32
           726  5150000000 X                      SA5    CODE.                                                   FEAT155A   33
                          7265000001              SX6    X5+1        CODE. = CODE. + 1  */ PENTRY WORD           FEAT155A   34
           727  54650                             SA6    A5                                                      FEAT155A   35
                     5110000000 X                 SA1    =XPMDFLAG                                               FCCA531     7
           730  0311000741 +                      NZ     X1,PROG11                                               FCCA531     8
                          6160000042 +            WRITEC F.CMPS,RJRP.CD,2                                        FEAT155A   36
           732  7160000024 +                      SX6    =8RFTNRP2.                                              F162FTNA 1059
                          6151000000              SB5    B1+                                                     FEAT155A   38
           733  5160000360 +                      SA6    PFLAG                                                   FEAT155A   39
                          0400000325 +            EQ     PROGRTN                                                 FEAT155A   40
                                                                                                                 FEAT155A   41
           734  5110000000 X             PROG10   SA1    =XPMDFLAG                                               FCCA531     9
                          0311000741 +            NZ     X1,PROG11                                               FCCA531    10
           735  6160000040 +                      WRITEC F.CMPS,RJQN.CD,2                                        FCCA531    11
           737  7160000025 +                      SX6    =8RQ2NTRY.                                              F162FTNA 1061
                          6151000000              SB5    B1+                                                     PH1CTL    814
           740  5160000360 +                      SA6    PFLAG             SET ADD Q8NTRY. TO SYMTAB             PH1CTL    815
                          0400000325 +            EQ     PROGRTN                                                 PH1CTL    816
                                                                                                                 FCCA531    12
           741  6160000044 +             PROG11   WRITEC F.CMPS,RJQ4.CD,2                                        FCCA531    13
           743  7160000026 +                      SX6    =8RQ4PMD.                                               FCCA531    14
                          6151000000              SB5    B1+                                                     FCCA531    15
           744  5160000360 +                      SA6    PFLAG                                                   FCCA531    16
                          0400000325 +            EQ     PROGRTN                                                 FCCA531    17
                                                                                                                 PH1CTL    817
           745  55550401240155555555     DATAPL   DATA   30L  DATA                                               PH1CTL    818
           750  02000000000000000000              DATA   1LB                                                     PH1CTL    819
                                  27 +   LNK.CD   LIT    14CLIBLNK. BSS 0B                                       F162FTNA 1062
                                  31 +   FILZ.CD  LIT    13CFILES. BSS 0B                                        PH1CTL    820
                                  33 +   APLT.CD  LIT    8C  DATA 0                                              F162FTNA 1063
                                  34 +   SA1.FIL  LIT    12C  SA1 FILES.                                         F162FTNA 1064
                                  36 +   SA1.LIB  LIT    13C  SA1 LIBLNK.                                        F162FTNA 1065
                                  40 +   RJQN.CD  LIT    12C  RJ Q2NTRY.                                         F162FTNA 1066
                                  42 +   RJRP.CD  LIT    14C  RJ FTNRP2.                                         F162FTNA 1067
                                  44 +   RJQ4.CD  LIT    11C  RJ Q4PMD.                                          FCCA531    18
                                                                                                                 PH1CTL    823
           751                           O.LFN    BSS    0                 FWA OF TEMPORARY FILE NAME TABLE      PH1CTL    824
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    28
         PPN - PROCESS PROGRAM NAME                                             CODE
  
                                        ***                                                                      PH1CTL    826
                                        *         PPN - PROCESS PROGRAM NAME                                     PH1CTL    827
                                        *                                                                        PH1CTL    828
                                        *         ON ENTRY:                                                      PH1CTL    829
                                        *                X7 = TYPE TO BE GIVE TO PROG NAME ( RIGHT JUSTIFIED )   PH1CTL    830
                                        *                                                                        PH1CTL    831
                                                                                                                 PH1CTL    832
           751  0400400751 +             PPN      ENTRY. *                 ** ENTRY/EXIT **                      PH1CTL    833
           752  5150000032                        ADVIN                                                          PH1CTL    834
                          20770                   LX7    P.TYP                                                   PH1CTL    835
           754  5170000361 +                      SA7    LI                                                      PH1CTL    836
                          0525001040 +            IF.NE  NAME,PPN.SE       IF NOT A NAME                         PH1CTL    837
           755  6170000756 +                      SYMBOL                   ENTER NAME IN SYMTAB                  PH1CTL    838
           756  5130000361 +                      SA3    LI                                                      PH1CTL    839
                          20604                   LX6    60-P.TYP                                                PH1CTL    840
                               12732              BX7    X3+X2             SET TYPE                              PH1CTL    841
           757  54630                             SA6    A3                SAVE NATURAL TYPE IN CASE OF FUNC SUB PH1CTL    842
                     54720                        SA7    A2                                                      PH1CTL    843
                          43052                   MX0    L.NAME                                                  PH1CTL    844
                               11601              BX6    X0*X1                                                   PH1CTL    845
           760  5160001027 +                      SA6    IDENT+2           PROGRAM NAME TO *IDENT* LINE          PH1CTL    846
                          5160000000 X            SA6    =XPROGNAM                      TO *COMPILING...* MSG    PH1CTL    847
           761  5110001033 +                      SA1    HDRBLNK                                                 PH1CTL    848
                          12761                   BX7    X6+X1       BLANK FILL                                  PH1CTL    849
                               20766              LX7    -6                                                      PH1CTL    850
           762  5170000000 X                      SA7    =XTL.PNAM   NAME TO LISTING TITLE LINE                  PH1CTL    851
                          5130000000 X            SA3    UFLAG                                                   PH1CTL    852
           763  0303000767 +                      ZR     X3,PPN2     IF *E* OPTION OFF                           PH1CTL    853
                          6170001023 +            SB7    DECK        (B7) = ADDRESS OF /*DECK,/ LINE             PH1CTL    854
           764  10166                             BX1    X6          (X1) = PROGRAM UNIT NAME                    PH1CTL    855
                     0100001242 +                 CALL   MCS         MERGE CHARACTER STRINGS                     PH1CTL    856
           765  6160001023 +                      WRITEC =XF.CMPS,DECK,0                                         PH1CTL    857
                                                                                                                 PH1CTL    858
                                                  IFEQ   TEST,0,2                                                PH1CTL    859
           767  7110000000 X             PPN2     MESSAGE   =XCOMPMSG,1    /COMPILING NNN.../ TO B-DISPLAY ONLY  PH1CTL    860
                                                  SKIP   1                                                       PH1CTL    861
                                         PPN2     MESSAGE   =XCOMPMSG,,RCL /COMPILING NNN.../ TO ALL DAYFILES    F7540FT    34
                                                                                                                 PH1CTL    863
           771  6160001025 +                      WRITEC F.CMPS,IDENT,3    /IDENT NNN/ LINES TO COMPS FILE       PH1CTL    864
           773  6160000051 +                      WRITEC F.CMPS,USE.CD,1                                         PH1CTL    865
           775  5130000000 X                      SA3    CAFLAG                                                  PH1CTL    866
                          0303001001 +            ZR     X3,PPN2A          IF WE ARE USING FAX TO ASSEMBLE       PH1CTL    867
                                                                                                                 PH1CTL    868
                                        *         IF THE O OPTION IS NOT SELECTED PUT OUT A LIST -L,-R CARD      PH1CTL    869
                                                                                                                 PH1CTL    870
           776  5140000000 X                      SA4    OLIST                                                   PH1CTL    871
                          0314001001 +            NZ     X4,PPN2A          IF WE SHOULD PRODUCE OCTAL LISTING    PH1CTL    872
           777  6160000046 +                      WRITEC F.CMPS,NLST.CD,2                                        PH1CTL    873
          1001  5130000000 X             PPN2A    SA3    CAFLAG                                                  FCCA426     6
                          5140000000 X            SA4    UFLAG                                                   FCCA426     7
          1002  12234                             BX2    X3+X4                                                   FCCA426     8
                     0302001005 +                 ZR     X2,PPN2A1   IF NEITHER *E* OR *C* OPTION SELECTED       FCCA426     9
          1003  6160000050 +                      WRITEC F.CMPS,NSST.CD,1                                        FCCA426    10
          1005  5110000314 +             PPN2A1   SA1    SVELIST                                                 FCCA426    11
                          5120001037 +            SA2    HDRPROG                                                 PH1CTL    875
          1006  0311001011 +                      NZ     X1,PPN2B    IF DUMMY *PROGRAM START.*                   PH1CTL    876
                          5110000024              SA1    TYPE                                                    PH1CTL    877
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    29
         PPN - PROCESS PROGRAM NAME                                             CODE
  
          1007  5120001034 +                      SA2    HDRFUNC                                                 PH1CTL    878
                          0311001011 +            NZ     X1,PPN2B    IF FUNCTION SUBPROGRAM                      PH1CTL    879
          1010  5110000051                        SA1    ATYPE                                                   PH1CTL    880
                          5221001035 +            SA2    HDRTBL+X1                                               PH1CTL    881
          1011  10622                    PPN2B    BX6    X2                                                      PH1CTL    882
                     5160000000 X                 SA6    =XTL.PTYP   PROGRAM UNIT TYPE TO LISTING TITLE LINE     PH1CTL    883
          1012  5160000000 X                      SA6    =XIDENTOK   MARK *IDENT* LINE ILLEGAL NOW               PH1CTL    884
                          0100000000 X            CALL   DSL         DUMP SAVED LINES                            PH1CTL    885
          1013  0100001323 +                      RJ     WLD         WRITE LOADER DIRECTIVES TO *COMPS*          PH1CTL    886
          1014  6160001030 +             PPN3     WRITEC F.CMPS,LDST.CD,L.LDST                                   PH1CTL    887
          1016  7160000000 X             PPN4     OUTUSE START.      SET RELOCATION BASE                         PH1CTL    891
                                                                                                                 PH1CTL    892
          1017  5150000000 X                      SA5    RSELECT                                                 PH1CTL    893
                          0305000751 +            ZR     X5,PPN            IF R = 0                              PH1CTL    894
          1020  66150                             ADDREF B5,DEF            DEFINITION OF SUBPROGRAM NAME         PH1CTL    895
          1021  0400000751 +                      EQ     PPN                                                     PH1CTL    896
                                                                                                                 PH1CTL    897
          1022  6151000000                        SB5    B1+                                                     PH1CTL    898
                                                                                                                 PH1CTL    899
          1023  47040503135600000000     DECK     DATA   L$*DECK,$,0                                             PH1CTL    900
          1025  55555555555555555555     IDENT    DATA   10H               *C* OPTION REQUIRES *IDENT* IN 11-16  PH1CTL    901
          1026  11040516245555555555              DATA   11CIDENT                                                PH1CTL    902
                                                                                                                 PH1CTL    903
          1030  55551404230524555555     LDST.CD  DIS    ,$  LDSET   LIB=FORTRAN$                                PH1CTL    904
                                   3     L.LDST   EQU    *-LDST.CD                                               PH1CTL    905
                                                                                                                 PH1CTL    908
                                  46 +   NLST.CD  LIT    12C  LIST -L,-R                                         PH1CTL    909
                                  50 +   NSST.CD  LIT    5C  SST                                                 FCCA426    12
                                  51 +   USE.CD   LIT    8C  USEBLK                                              PH1CTL    910
                                                                                                                 PH1CTL    911
          1033  00000000000000555555     HDRBLNK  DATA   3R                                                      PH1CTL    912
          1034  55550625160324111716     HDRFUNC  DATA   10H  FUNCTION                                           PH1CTL    913
          1035  02141703135504012401     HDRTBL   DATA   10HBLOCK DATA                                           PH1CTL    914
          1036  23250222172524111605              DATA   10HSUBROUTINE                                           PH1CTL    915
          1037  55555520221707220115     HDRPROG  DATA   10H   PROGRAM                                           PH1CTL    916
  
  
  
  
                                        **        PPN.SE - POST ERROR MESSAGE, *HEADER CARD SYNTAX ERROR*.       PH1CTL    918
                                        *                                                                        PH1CTL    919
          1040  6160000027               PPN.SE   POSTERR   NR=E.HCSE,SEV=FE,FMT=ELIST,TXT=X4,RETURN=PTR57       PH1CTL    920
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    30
         BLOCK DATA , SUBROUTINE AND FUNCTION CARD PROCESSORS                   CODE
  
          1042  20010214130401245755     BLKDAT   VFD    12/2001B,48/8LBLKDAT.                                   PH1CTL    923
                                        ***                                                                      PH1CTL    924
                                        *         DPBDA - PROCESS "BLOCK DATA" STATEMENT                         PH1CTL    925
                                        *         NOTE: PROGRAM = 0 FOR A BLOCK DATA SUBPROGRAM                  PH1CTL    926
                                        *                                                                        PH1CTL    927
                                                                                                                 PH1CTL    928
          1043  5150000032               DPBDA    GETE                                                           PH1CTL    929
          1044  43600                             MX6    0                                                       PH1CTL    930
                     5160000056                   SA6    PROGRAM           BLKDTA = 60/0                         PH1CTL    931
          1045  6130000004                        IF.EQ  EL.EOS,DPBDA1  IF EOS                                   FCC1998    16
          1046  6160777274                        POSTER SEV=ANSI,NR=E323  NON-ANSI FORM OF BLKDATA              FCC1998    17
          1050  0400001052 +                      EQ     DPBDA2                                                  FCC1998    18
          1051  5120001042 +             DPBDA1   SA2    BLKDAT      DEFAULT NAME                                FCC1998    19
                          10622                   BX6    X2                                                      PH1CTL    934
                               54640              SA6    A4                                                      PH1CTL    935
          1052  7170000014               DPBDA2   SX7    T.CGS       TYPE=T.CGS SO IT DISAPPEARS IN THE          FCC1998    20
                          0100000751 +            RJ     PPN               REF MAP                               PH1CTL    937
          1053  0400000325 +                      EQ     PROGRTN                                                 PH1CTL    938
  
  
  
                                        ***                                                                      PH1CTL    940
                                        *         DPSUB - PROCESS "SUBROUTINE" SUBPROGRAM HEADER CARD            PH1CTL    941
                                        *                                                                        PH1CTL    942
                                                                                                                 PH1CTL    943
          1054  7170000012               DPSUB    SX7    T.ENT                                                   PH1CTL    944
                          0100000751 +            RJ     PPN               PROCESS PROGRAM NAME                  PH1CTL    945
          1055  76500                             SX5    B0                                                      PH1CTL    946
                     27655                        PX6    B5,X5                                                   PH1CTL    947
                          5160000056              SA6    PROGRAM           SUBR = 12/2001B,48/0                  PH1CTL    948
                                                                                                                 PH1CTL    949
          1056  0100001074 +                      RJ     PPL               PROCESS PARAMETER LIST                PH1CTL    950
          1057  0400000325 +                      EQ     PROGRTN                                                 PH1CTL    951
  
  
                                        ***                                                                      PH1CTL    953
                                        *         DPFUN - PROCESS FUNCTION SUBPROGRAM HEADER CARD                PH1CTL    954
                                        *                                                                        PH1CTL    955
          1060  7170000012               DPFUN    SX7    T.ENT                                                   PH1CTL    956
                          0100000751 +            RJ     PPN               PROCESS PROGRAM NAME                  PH1CTL    957
          1061  5140000051                        SA4    ATYPE                                                   PH1CTL    958
                          0324001063 +            PL     X4,DPFUN1         IF TYPED ON THE HEADER CARD           PH1CTL    959
          1062  5140000361 +                      SA4    LI                NATURAL TYPE                          PH1CTL    960
                                                                                                                 PH1CTL    961
          1063  10644                    DPFUN1   BX6    X4                                                      PH1CTL    962
                     5160000000 X                 SA6    =XVALUE.          USE *VALUE.* AS TEMP CELL TO HOLD     PH1CTL    963
                                        *                                  FUNCTION TYPE FOR *PROGRTN*           PH1CTL    964
                               43701              MX7    1                                                       PH1CTL    965
          1064  7244777774                        SX4    X4-T.DBL                                                PH1CTL    966
                          15674                   BX6    -X4*X7                                                  PH1CTL    967
                               20601              LX6    1                                                       PH1CTL    968
          1065  73765                             SX7    X6+B5             FUNTYPE = NUMBER OF WDS IN FUNCTION R PH1CTL    969
                     5170000000 X                 SA7    =XFUNTYPE                                               PH1CTL    970
          1066  7170002002                        SX7    2002B                                                   PH1CTL    971
                          20760                   LX7    48                                                      PH1CTL    972
          1067  5170000056                        SA7    PROGRAM           FUNC = 12/2002B,48/0                  PH1CTL    973
                                                                                                                 PH1CTL    974
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    31
         BLOCK DATA , SUBROUTINE AND FUNCTION CARD PROCESSORS                   CODE
  
                          0100001074 +            RJ     PPL               PROCESS PARAMETER LIST                PH1CTL    975
          1070  0400000325 +                      EQ     PROGRTN                                                 PH1CTL    976
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    32
         PPL - PROCESS PARAMETER LIST                                           CODE
  
                                        ***                                                                      PH1CTL    978
                                        *         PPL - PROCESS PARAMETER LIST FOR SUBROUTINE OR FUNCTION        PH1CTL    979
                                        *         SUBPROGRAM                                                     PH1CTL    980
                                        *                                                                        PH1CTL    981
                                        *         ENTERS F.P. S AND RETURNS NAMES IN SYMTAB                      PH1CTL    982
                                        *         ENTERS TRACE. , TEMPA0. , AND ENTRY. IN SYMTAB AS NECESSARY    PH1CTL    983
                                        *         OUTPUTS ALL NECESSARY INFORMATION FOR TRACEBACK AND ENTRY      PH1CTL    984
                                        *         POINT FORMATION                                                PH1CTL    985
                                        *                                                                        PH1CTL    986
                                                                                                                 PH1CTL    987
                                  47     E.RSL    EQU    39                RETURNS LIST SYNTAX ERROR             PH1CTL    988
                                  50     E.DFP    EQU    40                DUPLICATE F.P.                        PH1CTL    989
                                 154     E.TMFP   EQU    108               TOO MANY F.P. S                       PH1CTL    990
                                                                                                                 PH1CTL    991
                                  77     M.FPS    EQU    63                MAXIMUM NUMBER OF F.P. S              PH1CTL    992
                                                                                                                 PH1CTL    993
                                        *         ERROR EXITS                                                    PH1CTL    994
                                                                                                                 PH1CTL    995
          1071  6160000027               PPL.SE   SB6    E.HCSE            HEADER CARD SYNTAX ERROR              PH1CTL    996
                                                                                                                 PH1CTL    997
          1072  6170001073 +             PPL.EX   POSTER SEV=FE,NR=**                                            PH1CTL    998
          1073  0100000155 +                      RJ     ESF               ENTER SPECIAL SYMBOLS                 PH1CTL    999
                                                                                                                 PH1CTL   1000
                                                                                                                 PH1CTL   1001
                                                                                                                 PH1CTL   1002
          1074  0400401074 +             PPL      ENTRY. *                 ** ENTRY/EXIT **                      PH1CTL   1003
          1075  5150000032                        GETE                     , ( OR EOS                            PH1CTL   1004
          1076  6130000003                        IF.EQ  EL.COMMA,PPL4     IF A ,                                PH1CTL   1005
          1077  6130000006                        IF.NE  EL.(,PPL5         IF NOT A (                            PH1CTL   1006
                                                                                                                 PH1CTL   1007
                                        *         PROCESS F.P. LIST, ENTER NAMES IN SYMTAB, SET F.P. AND DEFINED PH1CTL   1008
                                        *         BITS AND TYPE                                                  PH1CTL   1009
                                                                                                                 PH1CTL   1010
          1100  55445                    PPL1     NEXTE                                                          PH1CTL   1011
                          0525001071 +            IF.NE  NAME,PPL.SE       IF NOT A NAME                         PH1CTL   1012
          1101  75645                             UPDATE                                                         PH1CTL   1013
                          6170001103 +            SYMBOL                   ENTER IN SYMTAB                       PH1CTL   1014
          1103  43001                             MX0    1                                                       PH1CTL   1015
                     20022                        LX0    1+P.FP                                                  PH1CTL   1016
                          0400001107 +            EQ     PPL2                                                    PH1CTL   1017
                                                                                                                 PH1CTL   1018
          1104                                    BSS    0           *SYMBOL FOUND* RETURNS HERE                 PH1CTL   1019
          1104  5150000032                        SA5    SELIST      (X5) = ADDRESS OF CURRENT E-LIST ENTRY      PH1CTL   1020
                          5245000001              POSTER SEV=FE,NR=E.DFP,FMT=ELIST,TXT=X5+1,RETURN=PPL3          PH1CTL   1021
                                                                                                                 PH1CTL   1022
          1107  12762                    PPL2     BX7    X6+X2             SET NATURAL TYPE                      PH1CTL   1023
                     5130000000 X                 SA3    N.FP                                                    PH1CTL   1024
                               12601              BX6    X0+X1       SET F.P. BIT                                PH1CTL   1025
          1110  20053                             LX0    -P.FP                                                   PH1CTL   1026
                     12707                        BX7    X0+X7       AND IN WORD B                               PH1CTL   1027
                          54720                   SA7    A2                                                      PH1CTL   1028
                               54610              SA6    A1                                                      PH1CTL   1029
          1111  7203777700                        SX0    X3-M.FPS                                                PH1CTL   1030
                          6160777623              SB6    -E.TMFP                                                 PH1CTL   1031
          1112  73635                             SX6    X3+B5             INCREMENT NUMBER OF F.P. S            PH1CTL   1032
                     54630                        SA6    A3                                                      PH1CTL   1033
                          0320001072 +            PL     X0,PPL.EX         IF TOO MANY F.P. S                    PH1CTL   1034
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    33
         PPL - PROCESS PARAMETER LIST                                           CODE
  
                                                                                                                 PH1CTL   1035
          1113  5150000000 X                      SA5    RSELECT                                                 PH1CTL   1036
                          0305001115 +            ZR     X5,PPL3           IF R = 0                              PH1CTL   1037
          1114  43201                             ADDREF B1,DEF            HEADER LINE DEFINES THE F.P.S         PH1CTL   1038
                                                                                                                 PH1CTL   1039
          1115  5150000032               PPL3     GETE                     NEXT AFTER THE NAME                   PH1CTL   1040
          1116  6130000003                        IF.EQ  EL.COMMA,PPL1     LOOP IF A COMMA                       PH1CTL   1041
          1117  6130000002                        IF.NE  EL.),PPL.SE       IF NOT A )                            PH1CTL   1042
                                                                                                                 PH1CTL   1043
                                        *         (TEMPA0.).NE.0 MEANS THAT *ESF* IS TO DEFINE *TEMPA0.* AND     PH1CTL   1044
                                        *         SPECIFIES THAT CODE WILL BE PUT OUT TO SAVE AND RESTORE        PH1CTL   1045
                                        *         *TEMPA0.*.                                                     PH1CTL   1046
                                                                                                                 PH1CTL   1047
          1120  7170000002                        SX7    L.SVCD                                                  PH1CTL   1048
                          5170000000 X            SA7    =XTEMPA0.                                               PH1CTL   1049
                                                                                                                 PH1CTL   1050
          1121  55445                             NEXTE                                                          PH1CTL   1051
                          6130000003              IF.NE  EL.COMMA,PPL5     IF NOT A COMMA                        PH1CTL   1052
                                                                                                                 PH1CTL   1053
          1123  0100001130 +             PPL4     RJ     PRP               PROCESS RETURNS PARAMETERS            PH1CTL   1054
                                                                                                                 PH1CTL   1055
          1124  6130000004               PPL5     IF.NE  EL.EOS,PPL.SE     IF NO EOS                             PH1CTL   1056
                                                                                                                 PH1CTL   1057
          1125  0400001074 +                      EQ     PPL                                                     PH1CTL   1058
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    34
         PRP - PROCESS RETURNS PARAMETER LIST                                   CODE
  
          1126  20012205242522162355     RTNS     VFD    12/2001B,48/8RRETURNS                                   PH1CTL   1060
                                                                                                                 PH1CTL   1061
                                        ***                                                                      PH1CTL   1062
                                        *         PRP - PROCESS RETURNS PARAMETER LIST                           PH1CTL   1063
                                        *         ENTER NAMES IN SYMTAB AND SET TYPE TO T.RTN                    PH1CTL   1064
                                        *                                                                        PH1CTL   1065
                                                                                                                 PH1CTL   1066
          1127  6160000047               PRP.SE   SB6    E.RSL             RETURNS LIST ERROR                    PH1CTL   1067
                          0400001072 +            EQ     PPL.EX                                                  PH1CTL   1068
                                                                                                                 PH1CTL   1069
                                                                                                                 PH1CTL   1070
                                                                                                                 PH1CTL   1071
          1130  0400401130 +             PRP      ENTRY. *                 ** ENTRY/EXIT **                      PH1CTL   1072
          1131  55445                             NEXTE                                                          PH1CTL   1073
                          5120001126 +            SA2    RTNS              CODE FOR RETURNS                      PH1CTL   1074
          1132  37342                             IX3    X4-X2                                                   PH1CTL   1075
                     0313001071 +                 NZ     X3,PPL.SE         IF NOT ,RETURNS                       PH1CTL   1076
          1133  5110000056                        SA1    PROGRAM                                                 PH1CTL   1077
                          66355                   SB3    B5+B5                                                   PH1CTL   1078
                               26121              UX1    B2,X1                                                   PH1CTL   1079
          1134  0423001071 +                      EQ     B2,B3,PPL.SE      IF A FUNCTION                         PH1CTL   1080
                                                                                                                 PH1CTL   1081
                                        *         (TEMPA0.).NE.0 MEANS THAT *ESF* IS TO DEFINE *TEMPA0.* AND     PH1CTL   1082
                                        *         SPECIFIES THAT CODE WILL BE PUT OUT TO SAVE AND RESTORE        PH1CTL   1083
                                        *         *TEMPA0.*.                                                     PH1CTL   1084
                                                                                                                 PH1CTL   1085
                          7170000002              SX7    L.SVCD                                                  PH1CTL   1086
          1135  5170000000 X                      SA7    =XTEMPA0.                                               PH1CTL   1087
                          55445                   NEXTE                                                          PH1CTL   1088
          1136  6130000006                        IF.NE  EL.(,PRP.SE       IF NOT A (                            PH1CTL   1089
                                                                                                                 PH1CTL   1090
                                        *         PROCESS THE LIST OF NAMES                                      PH1CTL   1091
                                                                                                                 PH1CTL   1092
          1137  55445                    PRP1     NEXTE                                                          PH1CTL   1093
                          0525001127 +            IF.NE  NAME,PRP.SE       IF NOT A NAME                         PH1CTL   1094
          1140  75645                             UPDATE                                                         PH1CTL   1095
                          6170001142 +            SYMBOL                   ENTER NAME IN SYMTAB                  PH1CTL   1096
          1142  7100000007                        SX0    T.RTN                                                   PH1CTL   1097
                          0400001146 +            EQ     PRP2                                                    PH1CTL   1098
                                                                                                                 PH1CTL   1099
          1143                                    BSS    0           *SYMBOL FOUND* RETURNS HERE                 PH1CTL   1100
          1143  5150000032                        SA5    SELIST      (X5) = ADDRESS OF CURRENT E-LIST ENTRY      PH1CTL   1101
                          5245000001              POSTER SEV=FE,NR=E.DFP,FMT=ELIST,TXT=X5+1,RETURN=PRP3          PH1CTL   1102
                                                                                                                 PH1CTL   1103
          1146  20070                    PRP2     LX0    P.TYP                                                   PH1CTL   1104
                     12702                        BX7    X0+X2                                                   PH1CTL   1105
                          54720                   SA7    A2                SET TYPE IN WORD B                    PH1CTL   1106
          1147  5150000000 X                      SA5    RSELECT                                                 PH1CTL   1107
                          0305001150 +            ZR     X5,PRP3           IF R = 0                              PH1CTL   1108
                                                                                                                 PH1CTL   1109
          1150  5150000032               PRP3     GETE                     NEXT AFTER THE NAME                   PH1CTL   1110
          1151  6130000003                        IF.EQ  EL.COMMA,PRP1     LOOP IF A COMMA                       PH1CTL   1111
          1152  6130000002                        IF.NE  EL.),PRP.SE       IF NOT A )                            PH1CTL   1112
          1153  5110000000 X                      SA1    =XSYMORD                                                PH1CTL   1113
                          7221777675              SX2    X1-M.FPS-3                                              PH1CTL   1114
          1154  6160777623                        SB6    -E.TMFP                                                 PH1CTL   1115
                          0322001072 +            PL     X2,PPL.EX                                               PH1CTL   1116
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    35
         PRP - PROCESS RETURNS PARAMETER LIST                                   CODE
  
          1155  55445                             NEXTE                                                          PH1CTL   1117
                          0400001130 +            EQ     PRP                                                     PH1CTL   1118
  
  
  
  
                                        **        CCS - CHECK FOR AND COPY COMPASS SOURCE INPUT.                 PH1CTL   1120
                                        *                                                                        PH1CTL   1121
                                        *                                                                        PH1CTL   1122
                                        *         ENTRY  (B1) = 1                                                PH1CTL   1123
                                        *                                                                        PH1CTL   1124
                                        *         EXIT   (B7) = .ZR. IF CURRENT SOURCE LINE NOT *IDENT*          PH1CTL   1125
                                        *                     = .NZ. IF IT WAS *IDENT* AND COMPASS SOURCE COPIED PH1CTL   1126
                                        *                                                                        PH1CTL   1127
                                        *         USES   ALL                                                     PH1CTL   1128
                                        *                                                                        PH1CTL   1129
                                        *         CALLS  DSL, MCS, MPP, READC, WLD, WRITEC                       PH1CTL   1130
                                                                                                                 PH1CTL   1131
                                                                                                                 PH1CTL   1132
                                                  QUAL   CCS                                                     PH1CTL   1133
                                                                                                                 PH1CTL   1134
          1156  0400401156 +             CCS      SUBR               ** ENTRY/EXIT **                            PH1CTL   1135
          1157  5110000000 X                      SA1    =XCP.CARD                                               PH1CTL   1136
                          5120000005 +            SA2    =1H                                                     PH1CTL   1137
          1160  54311                             SA3    A1+B1                                                   PH1CTL   1138
                     43644                        MX6    36                                                      PH1CTL   1139
                          5140000052 +            SA4    =6LIDENT                                                PH1CTL   1140
          1161  13112                             BX1    X1-X2                                                   PH1CTL   1141
                     6170000000                   SB7    B0+         RETURN *IDENT NOT FOUND* STATUS             PH1CTL   1142
                               11663              BX6    X6*X3                                                   PH1CTL   1143
          1162  13364                             BX3    X6-X4                                                   PH1CTL   1144
                     12413                        BX4    X1+X3                                                   PH1CTL   1145
                          0314001156 +            NZ     X4,EXIT.    IF NOT *IDENT* LINE                         PH1CTL   1146
          1163  0334001156 +                      MI     X4,EXIT.                                                PH1CTL   1147
                          5110001312 +            SA1    L.LCC                                                   PH1CTL   1148
          1164  0301001167 +                      ZR     X1,CCS1     IF NO SAVED LOADER DIRECTIVES               PH1CTL   1149
                          5110000053 +            SA1    =H*LOADER DIRECTIVES*                                   PH1CTL   1150
          1165  54211                             SA2    A1+B1                                                   PH1CTL   1151
                     10611                        BX6    X1                                                      PH1CTL   1152
                          5160000000 X            SA6    =XTL.PTYP                                               PH1CTL   1153
          1166  10722                             BX7    X2                                                      PH1CTL   1154
                     54761                        SA7    A6+B1                                                   PH1CTL   1155
          1167  0100000000 X             CCS1     CALL   DSL         DUMP SAVED LINES (LDR DIRS, COMMENTS, ETC)  PH1CTL   1156
          1170  0100000000 X                      CALL   MPP         MAINTAIN PAGE PARITY                        PH1CTL   1157
          1171  5110000005 +                      SA1    =1H                                                     PH1CTL   1158
                          43600                   MX6    0                                                       PH1CTL   1159
                               10711              BX7    X1                                                      PH1CTL   1160
          1172  5160000000 X                      SA6    =XN.LINES   FORCE PAGE EJECT ON NEXT *LISTL* CALL       PH1CTL   1161
                          5170000000 X            SA7    =XTL.PTYP   CLEAR TITLE LINE                            PH1CTL   1162
          1173  54771                             SA7    A7+B1                                                   PH1CTL   1163
                     5110000000 X                 SA1    =XUFLAG                                                 PH1CTL   1164
          1174  5120000000 X                      SA2    =XCAFLAG                                                PH1CTL   1165
                          0311001200 +            NZ     X1,CCS2     IF *E* OPTION SELECTED                      PH1CTL   1166
          1175  0312001213 +                      NZ     X2,CCS6     IF *C* OPTION SELECTED                      PH1CTL   1167
                          7120000000 X            WRITER =XF.OUT,RCL FLUSH OUTPUT BUFFER                         PH1CTL   1168
          1177  0400000000 X                      EQ     =XLDCOM     GO LOAD *COMPASS*                           PH1CTL   1169
                                                                                                                 PH1CTL   1170
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    36
         PRP - PROCESS RETURNS PARAMETER LIST                         CCS       CODE      CCS 
  
                                        *         *E* OPTION SELECTED.  FORM -*DECK,PROGNAM- LINE AND WRITE IT   PH1CTL   1171
                                        *         TO THE *COMPS* FILE.                                           PH1CTL   1172
                                                                                                                 PH1CTL   1173
          1200  5110001023 +             CCS2     SA1    DECK        (X1) =IMAGE OF *DECK,                       PH1CTL   1174
                          5120000005 X            SA2    =XSBUFF+5   (X2) = 1ST CHARACTER AFTER *IDENT*          PH1CTL   1175
          1201  6170001237 +                      SB7    CCSA        (B7) = FWA OF LINE ASSEMBLY AREA            PH1CTL   1176
                          10611                   BX6    X1                                                      PH1CTL   1177
                               43700              MX7    0                                                       PH1CTL   1178
          1202  76100                             SX1    B0          CLEAR PACK REGISTER                         PH1CTL   1179
                     6120000066                   SB2    54          PACK SHIFT COUNTER                          PH1CTL   1180
                               56670              SA6    B7                                                      PH1CTL   1181
          1203  6130000006                        SB3    6           PACK SHIFT DECREMENT                        PH1CTL   1182
                          43317                   MX3    -1R         SHIFT TEST MASK BASED ON MAX NON-TERM CHAR  PH1CTL   1183
                               56771              SA7    B7+B1                                                   PH1CTL   1184
          1204  6242007777               CCS3     SB4    X2+7777B    BIAS TERM CHAR TO 7777B OR 10055_10076B     PH1CTL   1185
                          26202                   UX2    X2                                                      PH1CTL   1186
                               23643              AX6    X3,B4                                                   PH1CTL   1187
          1205  0306001207 +                      ZR     X6,CCS4     IF TERMINATING CHARACTER                    PH1CTL   1188
                          22222                   LX2    B2                                                      PH1CTL   1189
                               67223              SB2    B2-B3                                                   PH1CTL   1190
          1206  12112                             BX1    X1+X2       PACK NEW CHARACTER                          PH1CTL   1191
                     54221                        SA2    A2+B1       (X2) = NEXT CHARACTER                       PH1CTL   1192
                          0620001204 +            PL     B2,CCS3     IF MORE TO PACK                             PH1CTL   1193
          1207  0311001210 +             CCS4     NZ     X1,CCS5     IF NAME NOT NULL                            PH1CTL   1194
                          5110000055 +            SA1    =8L*******  INVENTED NAME                               PH1CTL   1195
          1210  0100001242 +             CCS5     RJ     MCS         MERGE CODED STRINGS                         PH1CTL   1196
          1211  6160001237 +                      WRITEC =XF.CMPS,CCSA,0                                         PH1CTL   1197
                                                                                                                 PH1CTL   1198
                                        *         COPY ASSEMBLY-LANGUAGE SOURCE CODE TO THE *COMPS* FILE.        PH1CTL   1199
                                                                                                                 PH1CTL   1200
          1213  6160000000 X             CCS6     WRITEC =XF.CMPS,=XCP.CARD,0    *IDENT* LINE TO *COMPS*         PH1CTL   1201
          1215  0100001323 +                      RJ     WLD         WRITE LOADER DIRECTIVE(S) TO *COMPS*        PH1CTL   1202
          1216  7160000000                        SX6    B0+                                                     PH1CTL   1203
                          5160001241 +            SA6    CCSB                                                    PH1CTL   1204
                                                                                                                 PH1CTL   1205
                                        *         COPY LOOP - COPY UNTIL END LINE FOUND.                         PH1CTL   1206
                                        *         AN END LINE IS A NON-COMMENT, NON-CONTINUATION LINE WITH       PH1CTL   1207
                                        *         THE CHARACTERS * END * IN COLUMNS 10 - 14.                     FCC1853X    4
                                                                                                                 PH1CTL   1209
          1217  6160000000 X             CCS7     READC  =XF.IN,=XCP.CARD,=XL.MAXCD                              PH1CTL   1210
          1221  0311001235 +                      NZ     X1,CCS9     IF END (EOS/EOP/EOI) OF SOURCE INPUT        PH1CTL   1211
                          5110001241 +            SA1    CCSB                                                    PH1CTL   1212
          1222  66760                             SB7    B6          LINE LWA+1, DOUBLES AS *IDENT FOUND* STATUS PH1CTL   1213
                     43666                        MX6    -6                                                      PH1CTL   1214
                          5120000000 X            SA2    =XCP.CARD                                               PH1CTL   1215
          1223  0311001156 +                      NZ     X1,EXIT.    IF *END* LINE FOUND                         PH1CTL   1216
                          20206                   LX2    -54                                                     PH1CTL   1217
                               54321              SA3    A2+B1                                                   PH1CTL   1218
          1224  64620                             SB6    A2          (B6) = LINE FWA                             PH1CTL   1219
                     15626                        BX6    -X6*X2      EXTRACT COL 1                               PH1CTL   1220
                          7170000201              SX7    1S7+1S0     SHIFT TEST MASK FOR * AND ,                 PH1CTL   1221
          1225  6226000015                        SB2    X6+59-7-1R* ADJUST FOR TEST MASK POSITION               PH1CTL   1222
                          5140000056 +            SA4    =4LEND                                                  PH1CTL   1223
          1226  22727                             LX7    B2                                                      PH1CTL   1224
                     43630                        MX6    4*6                                                     PH1CTL   1225
                          67776                   SB7    B7-B6       (B7) = LINE LENGTH (WORDS)                  PH1CTL   1226
                               11363              BX3    X6*X3       EXTRACT COLS 11-14                          PH1CTL   1227
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    37
         PRP - PROCESS RETURNS PARAMETER LIST                         CCS       CODE      CCS 
  
          1227  0337001233 +                      MI     X7,CCS8     IF *COMPASS* COMMENT OR CONTINUATION LINE   PH1CTL   1228
                          0471001233 +            EQ     B7,B1,CCS8  IF LENGTH = 1, *END* NOT POSSIBLE           PH1CTL   1229
          1230  13334                             BX3    X3-X4                                                   PH1CTL   1230
                     0313001233 +                 NZ     X3,CCS8     IF NOT POSSIBLE *END* LINE                  FCC1853X    5
                               20266              LX2    -6                                                      FCC1853X    6
          1231  43166                             MX1    -6                                                      FCC1853X    7
                     15321                        BX3    -X1*X2      EXTRACT COL 10                              FCC1853X    8
                          7140000055              SX4    1R                                                      FCC1853X    9
          1232  13534                             BX5    X3-X4                                                   FCC1853X   10
                     0315001233 +                 NZ     X5,CCS8     IF END CARD NOT PRECEEDED BY BLANK          FCC1853X   11
                               54610              SA6    A1          SET *END FOUND* STATUS                      PH1CTL   1232
          1233  7120000000 X             CCS8     WRITEC =XF.CMPS,B6,B7    LINE TO *COMPS* FILE                  PH1CTL   1233
          1234  0400001217 +                      EQ     CCS7                                                    PH1CTL   1234
                                                                                                                 PH1CTL   1235
                                        *         HERE IF EMPTY INPUT FILE.                                      PH1CTL   1236
                                                                                                                 PH1CTL   1237
          1235  7160000000               CCS9     SX6    0                                                       PH1CTL   1238
                          5160000000 X            SA6    =XCP.CARD   MARK END OF INPUT                           PH1CTL   1239
          1236  0400000000 X                      EQ     =XFTNEND    GO TERMINATE COMPILATION                    PH1CTL   1240
                                                                                                                 PH1CTL   1241
                                                                                                                 PH1CTL   1242
                                                                                                                 PH1CTL   1243
          1237                     2     CCSA     BSSZ   2           ASSEMBLY AREA FOR -*DECK,PROGNAM- LINE      PH1CTL   1244
          1241                     1     CCSB     BSSZ   1           .NZ. WHEN *END* LINE FOUND ON SOURCE FILE   PH1CTL   1245
  
  
  
  
                                                  QUAL   *                                                       PH1CTL   1247
                                1156 +   CCS      =      /CCS/CCS                                                PH1CTL   1248
                                                  ENTRY  CCS                                                     PH1CTL   1249
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    38
        MERGE CODED STRINGS                                           MCS       CODE
  
                                        **        MCS - MERGE CODED STRINGS.                                     PH1CTL   1251
                                        *                                                                        PH1CTL   1252
                                        *                CONCATENATES NEW CHARACTER STRING IN (X1) WITH OLD      PH1CTL   1253
                                        *         STRING AT (B7).  STORES RESULT AT (B7) AND, IF NEW STRING      PH1CTL   1254
                                        *         LENGTH REQUIRES, AT (B7)+1.  BOTH OLD AND NEW STRINGS ARE      PH1CTL   1255
                                        *         ASSUMED TO BE LEFT JUSTIFIED WITH ZERO FILL.  EITHER MAY BE    PH1CTL   1256
                                        *         NULL OR FULL.                                                  PH1CTL   1257
                                        *                                                                        PH1CTL   1258
                                        *                ***  LIMITATION -- TRAILING COLONS ARE IDENTICAL TO     PH1CTL   1259
                                        *         ZERO FILL, AND WILL BE LOST.                                   PH1CTL   1260
                                        *                                                                        PH1CTL   1261
                                        *                                                                        PH1CTL   1262
                                        *         ENTRY  (X1) = *NEW* STRING                                     PH1CTL   1263
                                        *                (B7) = ADDRESS OF *OLD* STRING                          PH1CTL   1264
                                        *                                                                        PH1CTL   1265
                                        *         EXIT   MERGED STRING STORED AT (B7) AND, POSSIBLY, AT (B7)+1   PH1CTL   1266
                                        *                (X1) = UNCHANGED                                        PH1CTL   1267
                                        *                (X2) = ORIGINAL *OLD* STRING                            PH1CTL   1268
                                        *                (X6) = *OLD* .AND. UPPER *NEW*                          PH1CTL   1269
                                        *                (X7) = LOWER *NEW*, IF ANY, ELSE = 0                    PH1CTL   1270
                                        *                (B1) = 1                                                PH1CTL   1271
                                        *                (B7) = ADDRESS OF *OLD*, UPDATED IF LOWER *NEW* .NZ.    PH1CTL   1272
                                        *                                                                        PH1CTL   1273
                                        *         USES   X - 2, 3, 6, 7                                          PH1CTL   1274
                                        *                A - 2, 3, 6, 7                                          PH1CTL   1275
                                        *                B - 1, 2, 7                                             PH1CTL   1276
                                        *                                                                        PH1CTL   1277
                                        *         CALLS  NONE                                                    PH1CTL   1278
                                                                                                                 PH1CTL   1279
                                                                                                                 PH1CTL   1280
                                                  QUAL   MCS                                                     PH1CTL   1281
                                                                                                                 PH1CTL   1282
          1242  0400401242 +             MCS      SUBR               ** ENTRY/EXIT **                            PH1CTL   1283
          1243  56270                             SA2    B7          (X2) = *OLD* STRING                         PH1CTL   1284
                     43773                        MX7    -1                                                      PH1CTL   1285
                          5130001252 +            SA3    MCSA                                                    PH1CTL   1286
          1244  36627                             IX6    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO CHAR    PH1CTL   1287
                     15762                        BX7    -X2*X6      EXTRACT BORROWS                             PH1CTL   1288
                          6110000001              SB1    1                                                       PH1CTL   1289
          1245  11337                             BX3    X3*X7       EXTRACT NULL BYTES                          PH1CTL   1290
                     10733                        BX7    X3          EACH NULL BYTE = 40                         PH1CTL   1297
                          20367                   LX3    -5          EACH NULL BYTE = 01                         PH1CTL   1298
                               37673              IX6    X7-X3       EACH NULL BYTE = 37                         PH1CTL   1299
          1246  12767                             BX7    X6+X7       EACH NULL BYTE = 77 ... EXTRACTION MASK     PH1CTL   1300
                     47677                        CX6    X7                                                      FCC0220   106
                          63260                   SB2    X6                                                      FCC0220   107
                               22321              LX3    X1,B2       ALIGN *NEW* WITH NULL PART OF *OLD*         PH1CTL   1301
          1247  11673                             BX6    X7*X3                                                   PH1CTL   1302
                     15737                        BX7    -X7*X3      (X7) = LOWER *NEW*                          PH1CTL   1303
                          12626                   BX6    X2+X6       (X6) = *OLD* .OR. UPPER *NEW*               FCC0220   108
                               56670              SA6    B7                                                      PH1CTL   1305
          1250  0317001251 +                      NZ     X7,MCS2     IF LOWER *NEW* NOT EMPTY                    PH1CTL   1306
                          0327001242 +            PL     X7,EXIT.                                                PH1CTL   1307
          1251  56771                    MCS2     SA7    B7+B1                                                   PH1CTL   1308
                     66771                        SB7    B7+B1       (B7) = UPDATED STRING ADDRESS               PH1CTL   1309
                          0400001242 +            EQ     EXIT.                                                   PH1CTL   1310
                                                                                                                 PH1CTL   1311
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    39
        MERGE CODED STRINGS                                           MCS       CODE      MCS 
  
                                                                                                                 PH1CTL   1312
                                                                                                                 PH1CTL   1313
          1252  40404040404040404040     MCSA     DATA   40404040404040404040B   NULL CHARACTER BYTE MASK        PH1CTL   1314
  
  
  
  
                                                  QUAL   *                                                       PH1CTL   1316
                                1242 +   MCS      =      /MCS/MCS                                                PH1CTL   1317
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    40
        PROCESS LOADER DIRECTIVE.                                     PLD       CODE
  
                                        **        PLD - PROCESS LOADER DIRECTIVE.                                PH1CTL   1319
                                        *                                                                        PH1CTL   1320
                                        *                                                                        PH1CTL   1321
                                        *         EXIT                                                           PH1CTL   1322
                                        *                (B1) = 1                                                PH1CTL   1323
                                        *                (B5) = 1                                                PH1CTL   1324
                                        *                                                                        PH1CTL   1325
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    PH1CTL   1326
                                        *                A - 1, 2, 3, 6, 7                                       PH1CTL   1327
                                        *                B - 1, 2, 5, 6, 7                                       PH1CTL   1328
                                        *                                                                        PH1CTL   1329
                                        *         CALLS  GETE, IF., NEXTE, PCS, RTB, WRITER, WRITEW              PH1CTL   1330
                                                                                                                 PH1CTL   1331
                                                                                                                 PH1CTL   1332
                                                  QUAL   PLD                                                     PH1CTL   1333
                                                                                                                 PH1CTL   1334
          1253  5110001313 +             PLD      SA1    O.LCC                                                   PH1CTL   1335
                          5120001312 +            SA2    L.LCC                                                   PH1CTL   1336
          1254  5130000000 X                      SA3    =XFWAWORK                                               PH1CTL   1337
                          5140000013              SA4    SYMEND                                                  PH1CTL   1338
          1255  10611                             BX6    X1          SET SAVED FWA                               PH1CTL   1339
                     0312001256 +                 NZ     X2,PLD2     IF NOT FIRST LOADER DIRECTIVE               PH1CTL   1340
                               10633              BX6    X3          SET INITIAL FWA                             PH1CTL   1341
          1256  54610                    PLD2     SA6    A1          (X6) = FWA LOADER DIRECTIVE SAVE AREA       PH1CTL   1342
                     6110000001                   SB1    1                                                       PH1CTL   1343
                               36762              IX7    X6+X2                                                   PH1CTL   1344
          1257  63770                             SB7    X7          (B7) = FWA UNUSED SAVE AREA                 PH1CTL   1345
                     7277000004                   SX7    X7+4                                                    PH1CTL   1346
                               37474              IX4    X7-X4                                                   PH1CTL   1347
          1260  0324001311 +                      PL     X4,PLD.ER2  IF NOT ENOUGH ROOM FOR SAVING NEW LINE      PH1CTL   1348
                          54730                   SA7    A3          RESERVE MEMORY                              PH1CTL   1349
                               66510              SB5    B1                                                      PH1CTL   1350
          1261  5110000057 +                      SA1    =7LOVERLAY                                              PH1CTL   1351
                          10611                   BX6    X1                                                      PH1CTL   1352
                               56670              SA6    B7                                                      PH1CTL   1353
          1262  5150000032                        GETE                                                           PH1CTL   1354
          1263  6130000004               PLD3     IF.EQ  EL.EOS,PLD4                                             PH1CTL   1355
          1264  10144                             BX1    X4                                                      PH1CTL   1356
                     20417                        LX4    15D         PUT CONST INDICATOR IN LOW ORDER BITS       FCC1957     9
                          43671                   MX6    -3                                                      FCC1957    10
                               15646              BX6    -X6*X4      EXTRACT CONSTANT                            FCC1957    11
          1265  7266777771                        SX6    X6-6                                                    FCC1957    12
                          0316001267 +            NZ     X6,PLD31    IF NOT HOLL CONSTANT                        FCC1957    13
          1266  5110000060 +                      SA1    =6L=HOLL=                                               FCC1957    14
                          0400001272 +            EQ     PLD32                                                   FCC1957    15
          1267  0100000000 X             PLD31    CALL   CED         CONVERT E-LIST TO DISPLAY CODE              FCC1957    16
          1270  10166                             BX1    X6                                                      PH1CTL   1358
                     0100001314 +                 CALL   RTB         REMOVE TRAILING BLANKS                      PH1CTL   1359
          1271  10166                             BX1    X6                                                      PH1CTL   1360
          1272  0100001242 +             PLD32    CALL   MCS         MERGE CODED STRINGS                         FCC1957    17
          1273  55445                             NEXTE                                                          PH1CTL   1362
                          0400001263 +            EQ     PLD3                                                    PH1CTL   1363
                                                                                                                 PH1CTL   1364
                                        *         TERMINATE PROCESSING.                                          PH1CTL   1365
                                                                                                                 PH1CTL   1366
          1274  56170                    PLD4     SA1    B7                                                      PH1CTL   1367
                     43660                        MX6    -12                                                     PH1CTL   1368
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    41
        PROCESS LOADER DIRECTIVE.                                     PLD       CODE      PLD 
  
                          15716                   BX7    -X6*X1                                                  PH1CTL   1369
                               43600              MX6    0                                                       PH1CTL   1370
          1275  0307001276 +                      ZR     X7,PLD5     IF ZERO BYTE LINE TERMINATOR IN LAST WORD   PH1CTL   1371
                          56671                   SA6    B7+B1       TERMINATE LINE                              PH1CTL   1372
                               66771              SB7    B7+B1                                                   PH1CTL   1373
          1276  5110001313 +             PLD5     SA1    O.LCC                                                   PH1CTL   1374
                          5120001312 +            SA2    L.LCC                                                   PH1CTL   1375
          1277  76771                             SX7    B7+B1       (X7) = LWA+1 OF SAVED LINES                 PH1CTL   1376
                     66771                        SB7    B7+B1                                                   PH1CTL   1377
                          36312                   IX3    X1+X2                                                   PH1CTL   1378
                               63630              SB6    X3          (B6) = FWA OF LAST LINE SAVED               PH1CTL   1379
          1300  5170000000 X                      SA7    =XFWAWORK   UPDATE FWA *SCANNER* WSA                    PH1CTL   1380
                          67776                   SB7    B7-B6       (B7) = LENGTH OF LAST LINE                  PH1CTL   1381
                               73627              SX6    X2+B7                                                   PH1CTL   1382
          1301  54620                             SA6    A2          UPDATE LENGTH OF ALL SAVED LINES            PH1CTL   1383
                     5110000000 X                 SA1    =XCAFLAG                                                PH1CTL   1384
          1302  5120000000 X                      SA2    =XUFLAG                                                 PH1CTL   1385
                          5130000000 X            SA3    =XFV.LGO                                                PH1CTL   1386
          1303  12612                             BX6    X1+X2                                                   PH1CTL   1387
                     0316001310 +                 NZ     X6,PLD7     IF *C* OR *E* OPTION SELECTED               PH1CTL   1388
          1304  0303001310 +                      ZR     X3,PLD7     IF BINARY OUTPUT SUPPRESSED  ( B=0 )        PH1CTL   1389
                          7120000000 X            WRITEW =XF.LGO,B6,B7                                           PH1CTL   1390
          1306  7120000000 X                      WRITER =XF.LGO,RCL                                             PH1CTL   1391
          1310  0400000247 +             PLD7     EQ     CTL5        EXIT ...                                    PH1CTL   1392
                                                                                                                 PH1CTL   1393
                                                                                                                 PH1CTL   1394
                                                                                                                 PH1CTL   1395
                                        *         ERROR PROCESSING FOR LOADER DIRECTIVES.                        PH1CTL   1396
                                                                                                                 PH1CTL   1397
          1311  6160777436               PLD.ER2  POSTER SEV=FC,NR=E225    (DOES NOT RETURN CONTROL HERE)        PH1CTL   1398
  
  
  
  
                                                  QUAL   *                                                       PH1CTL   1400
                                1253 +   PLD      =      /PLD/PLD                                                PH1CTL   1401
  
  
  
  
          1312                     1     L.LCC    BSSZ   1           LENGTH OF SAVED LOADER CONTROL DIRECTIVES   PH1CTL   1403
          1313                     1     O.LCC    BSSZ   1           FWA OF SAVED LOADER CONTROL DIRECTIVES      PH1CTL   1404
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    42
        REMOVE TRAILING BLANKS                                        RTB       CODE
  
                                        **        RTB - REMOVE TRAILING BLANKS.                                  PH1CTL   1406
                                        *                                                                        PH1CTL   1407
                                        *                REMOVES ALL TRAILING DISPLAY-CODED BLANKS FROM (X1).    PH1CTL   1408
                                        *                                                                        PH1CTL   1409
                                        *                                                                        PH1CTL   1410
                                        *         ENTRY  (X1) = STRING WITH TRAILING BLANK FILL                  PH1CTL   1411
                                        *                                                                        PH1CTL   1412
                                        *         EXIT   (X1) = UNCHANGED                                        PH1CTL   1413
                                        *                (X6) = STRING, ZERO FILLED                              PH1CTL   1414
                                        *                                                                        PH1CTL   1415
                                        *         USES   X - 2, 6, 7                                             PH1CTL   1416
                                        *                A - 2                                                   PH1CTL   1417
                                        *                B - NONE                                                PH1CTL   1418
                                        *                                                                        PH1CTL   1419
                                        *         CALLS  NONE                                                    PH1CTL   1420
                                                                                                                 PH1CTL   1421
                                                                                                                 PH1CTL   1422
                                                  QUAL   RTB                                                     PH1CTL   1423
                                                                                                                 PH1CTL   1424
          1314  0400401314 +             RTB      SUBR               ** ENTRY/EXIT **                            PH1CTL   1425
          1315  5120001321 +                      SA2    RTBA                                                    PH1CTL   1426
                          43673                   MX6    -1                                                      PH1CTL   1427
                               13712              BX7    X1-X2       CONVERT BLANKS TO ZEROS                     PH1CTL   1428
          1316  5120001322 +                      SA2    RTBB                                                    PH1CTL   1429
                          36676                   IX6    X7+X6       BORROW RIPPLES LEFT TO NON-ZERO CHAR BYTE   PH1CTL   1430
                               15767              BX7    -X7*X6      EXTRACT BORROWS                             PH1CTL   1431
          1317  11627                             BX6    X2*X7       EACH ZERO (BLANK) BYTE = 40                 PH1CTL   1432
                     10266                        BX2    X6                                                      PH1CTL   1433
                          20667                   LX6    -5                                 = 01                 PH1CTL   1434
                               37726              IX7    X2-X6                              = 37                 PH1CTL   1435
          1320  12227                             BX2    X2+X7                              = 77                 PH1CTL   1436
                     15612                        BX6    -X2*X1      (X6) = STRING, ZERO FILLED                  PH1CTL   1437
                          0400001314 +            EQ     EXIT.                                                   PH1CTL   1438
                                                                                                                 PH1CTL   1439
                                                                                                                 PH1CTL   1440
                                                                                                                 PH1CTL   1441
          1321  55555555555555555555     RTBA     DATA   1H                                                      PH1CTL   1442
          1322  40404040404040404040     RTBB     DATA   40404040404040404040B                                   PH1CTL   1443
  
  
  
  
                                                  QUAL   *                                                       PH1CTL   1445
                                1314 +   RTB      =      /RTB/RTB                                                PH1CTL   1446
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    43
        WRITE LOADER DIRECTIVES TO *COMPS* FILE                       WLD       CODE
  
                                        **        WLD - WRITE LOADER DIRECTIVES TO *COMPS* FILE.                 PH1CTL   1448
                                        *                                                                        PH1CTL   1449
                                        *                PREFIXES LOADER DIRECTIVES WITH *  LCC * AND WRITES     PH1CTL   1450
                                        *         THEM TO THE *COMPS* FILE.  RESETS (FWAWORK) TO (O.LCC) ON      PH1CTL   1451
                                        *         ENTRY, TO RELEASE THE MEMORY IN WHICH THE LOADER DIRECTIVES    PH1CTL   1452
                                        *         WERE SAVED.                                                    PH1CTL   1453
                                        *                                                                        PH1CTL   1454
                                        *                                                                        PH1CTL   1455
                                        *         ENTRY  LOADER DIRECTIVES, FORMATTED AS LEFT-JUSTIFIED DPC      PH1CTL   1456
                                        *                  LINES, SAVED AT ((O.LCC)).                            PH1CTL   1457
                                        *                (L.LCC) = LENGTH OF SAVED DIRECTIVES                    PH1CTL   1458
                                        *                (O.LCC) = FWA OF SAVED DIRECTIVES                       PH1CTL   1459
                                        *                                                                        PH1CTL   1460
                                        *         EXIT   (FWAWORK) = (O.LCC) ON ENTRY                            PH1CTL   1461
                                        *                (L.LCC) = 0                                             PH1CTL   1462
                                        *                (O.LCC) = DESTROYED                                     PH1CTL   1463
                                        *                (B1) = 1                                                PH1CTL   1464
                                        *                                                                        PH1CTL   1465
                                        *         USES   X - 1, 2, 3, 6, 7                                       PH1CTL   1466
                                        *                A - 1, 2, 6 ,7                                          PH1CTL   1467
                                        *                B - 1, 6, 7                                             PH1CTL   1468
                                        *                                                                        PH1CTL   1469
                                        *         CALLS  PCS, WRITEC                                             PH1CTL   1470
                                                                                                                 PH1CTL   1471
                                                                                                                 PH1CTL   1472
                                                  QUAL   WLD                                                     PH1CTL   1473
                                                                                                                 PH1CTL   1474
          1323  0400401323 +             WLD      SUBR               ** ENTRY/EXIT **                            PH1CTL   1475
          1324  5110001312 +                      SA1    L.LCC                                                   PH1CTL   1476
                          6110000001              SB1    1                                                       PH1CTL   1477
          1325  0301001323 +                      ZR     X1,EXIT.    IF NO LOADER DIRECTIVES SAVED               PH1CTL   1478
                          5110001313 +            SA1    O.LCC                                                   PH1CTL   1479
          1326  5120000000 X                      SA2    =XMACFLAG                                               PH1CTL   1480
                          10611                   BX6    X1                                                      PH1CTL   1481
          1327  5160000000 X                      SA6    =XFWAWORK   RELEASE WORKING STORAGE                     PH1CTL   1482
                          0302001323 +            ZR     X2,EXIT.    IF MACROS NOT TO BE OUTPUT                  PH1CTL   1483
          1330  5120000061 +             WLD2     SA2    =6L  LCC                                                PH1CTL   1484
                          63610                   SB6    X1          (B6) = FWA OF SAVED LINE                    PH1CTL   1485
                               53110              SA1    X1          (X1) = 1ST WORD OF SAVED LOADER DIRECTIVE   PH1CTL   1486
          1331  6170001344 +                      SB7    WLDA        (B7) = FWA OF REFORMATTED DIRECTIVE         PH1CTL   1487
                          10622                   BX6    X2                                                      PH1CTL   1488
                               56670              SA6    B7          *  LCC * TO FORMATTING BUFFER               PH1CTL   1489
          1332  0100001242 +             WLD3     CALL   MCS         MERGE CODED STRINGS                         PH1CTL   1490
          1333  43660                             MX6    -12                                                     PH1CTL   1491
                     46000                        NO                                                             PH1CTL   1492
                          15716                   BX7    -X6*X1                                                  PH1CTL   1493
                               54111              SA1    A1+B1       (X1) = NEXT WORD OF SAVED LINE              PH1CTL   1494
          1334  0317001332 +                      NZ     X7,WLD3     IF NOT END OF SAVED LINE                    PH1CTL   1495
                          5120001312 +            SA2    L.LCC                                                   PH1CTL   1496
          1335  74610                             SX6    A1          (X6) = FWA OF NEXT SAVED LINE               PH1CTL   1497
                     43700                        MX7    0                                                       FCC0752     5
                          66771                   SB7    B7+B1                                                   FCC0752     6
                               75316              SX3    A1-B6       (X3) = LENGTH OF CURRENT SAVED LINE         PH1CTL   1498
          1336  56770                             SA7    B7          MARK EOL                                    FCC0752     7
                     5160001313 +                 SA6    O.LCC                                                   PH1CTL   1499
                               37723              IX7    X2-X3       (X7) = LENGTH OF REMAINING SAVED LINES      PH1CTL   1500
          1337  6177776434 -                      SB7    B7-WLDA+1   (B7) = LENGTH OF REFORMATTED LINE           PH1CTL   1501
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    44
        WRITE LOADER DIRECTIVES TO *COMPS* FILE                       WLD       CODE      WLD 
  
                          54720                   SA7    A2                                                      PH1CTL   1502
          1340  6160001344 +                      WRITEC =XF.CMPS,WLDA,B7                                        PH1CTL   1503
          1342  5120001312 +                      SA2    L.LCC                                                   PH1CTL   1504
                          5110001313 +            SA1    O.LCC                                                   PH1CTL   1505
          1343  0312001330 +                      NZ     X2,WLD2     IF ANY MORE SAVED LINES                     PH1CTL   1506
                          0400001323 +            EQ     EXIT.                                                   PH1CTL   1507
                                                                                                                 PH1CTL   1508
                                                                                                                 PH1CTL   1509
                                                                                                                 PH1CTL   1510
          1344                     6     WLDA     BSS    6           WSA FOR FORMATTING *LCC* DIRECTIVES         FCC0752     8
  
  
  
  
                                                  QUAL   *                                                       PH1CTL   1513
                                1323 +   WLD      =      /WLD/WLD                                                PH1CTL   1514
  
  
  
  
                                                  LIST   D                                                       PH1CTL   1516
  
  
  
  
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        SYMBOL
             0 X                        ADDREF
             0 X                        CFO 
             0 X                        LASTTYP 
             0 X                        DBGINT
             0 X                        SCANNER 
             0 X                        TYPFLAG 
             0 X                        DBGINTX 
             0 X                        DPCLOSE 
             0 X                        DPLEV 
             0 X                        DPIMP 
             0 X                        DPCOM 
             0 X                        DPDIM 
             0 X                        DPEQU 
             0 X                        DPTYP 
             0 X                        FORMAT
             0 X                        TRACE.
             0 X                        TEMPA0. 
             0 X                        EXIT. 
             0 X                        ENTRY.
             0 X                        FUNTYPE 
             0 X                        CO.ER 
             0 X                        L.MSTR
             0 X                        LSTMSTR 
             0 X                        LSTWRKG 
             0 X                        MVE=
             0 X                        NOLIST
             0 X                        TL.PNAM 
             0 X                        STLTAB
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    45
        WRITE LOADER DIRECTIVES TO *COMPS* FILE                       LITERALS
  
             0 X                        LFER
             0 X                        ANSI
             0 X                        ASAER 
             0 X                        IEFLG 
             0 X                        PROGNAM 
             0 X                        DBGEPKT 
             0 X                        CER.FL
             0 X                        MSG=
             0 X                        CO.ABT
             0 X                        N.FERR
             0 X                        ERPROI
             0 X                        UDATA.
             0 X                        OUTUSE
             0 X                        LDPS2 
             0 X                        DBGIPKT 
             0 X                        GT1 
             0 X                        ERPRO 
             0 X                        OT.RM 
             0 X                        SVARG 
             0 X                        CO.STA
             0 X                        F.LFN 
             0 X                        FMAC
             0 X                        PLIMIT
             0 X                        F1AMAC
             0 X                        BTOCT 
             0 X                        UCODE.
             0 X                        PMDFLAG 
             0 X                        IDENTOK 
             0 X                        USTART. 
             0 X                        SYMORD
             0 X                        CP.CARD 
             0 X                        TL.PTYP 
             0 X                        DSL 
             0 X                        MPP 
             0 X                        N.LINES 
             0 X                        F.OUT 
             0 X                        LDCOM 
             0 X                        SBUFF 
             0 X                        L.MAXCD 
             0 X                        F.IN
             0 X                        RDC=
             0 X                        CED 
             0 X                        FV.LGO
             0 X                        F.LGO 
             0 X                        WTW=
             0 X                        CIO=
             0 X                        FATALER 
             0 X                        WTC=
  
                                        CONTENT OF LITERALS BLOCK.
  
             0  00002422010305575555      TRACE.
             1  00002405152001335755      TEMPA0. 
             2  00000530112457555555      EXIT. 
             3  00000516242231575555      ENTRY.
             4  00002320015755555555      SPA.
             5  55555555555555555555
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    46
        WRITE LOADER DIRECTIVES TO *COMPS* FILE                       LITERALS
  
             6  00002324575555555555      ST. 
             7  00002601142505575555      VALUE.
            10  00000620575555555555      FP. 
            11  60555555555555555555    # 
            12  55550611140322155555      FILCRM
            13  55550611144222155555      FIL7RM
            14  55550605212555555555      FEQU
            15  00001411021416135755      LIBLNK. 
            16  00002730242401025755      WXTTAB. 
            17  55551411021416135555      LIBLNK
            20  00000611140523575555      FILES.
            21  55550614111613555555      FLINK 
            22  55552422010305555555      TRACE 
            23  55552005162422315555      PENTRY
            24  00000624162220355755      FTNRP2. 
            25  00002135162422315755      Q2NTRY. 
            26  00002137201504575555      Q4PMD.
            27  14110214161357550223    LIBLNK. BS
            30  23553302000000000000    S 0B
            31  06111405235755022323    FILES. BSS
            32  55330200000000000000     0B 
            33  55550401240155330000      DATA 0
            34  55552301345506111405      SA1 FILE
            35  23570000000000000000    S.
            36  55552301345514110214      SA1 LIBL
            37  16135700000000000000    NK. 
            40  55552212552135162422      RJ Q2NTR
            41  31570000000000000000    Y.
            42  55552212550624162220      RJ FTNRP
            43  35575555000000000000    2.
            44  55552212552137201504      RJ Q4PMD
            45  57000000000000000000    . 
            46  55551411232455461456      LIST -L,
            47  46220000000000000000    -R
            50  55552323240000000000      SST 
            51  55552523050214130000      USEBLK
            52  11040516245500000000    IDENT 
            53  14170104052255041122    LOADER DIR
            54  05032411260523555555    ECTIVES 
            55  47474747474747550000    ******* 
            56  05160455000000000000    END 
            57  17260522140131000000    OVERLAY 
            60  54101714145400000000    =HOLL=
            61  55551403035500000000      LCC 
  
          1352                           F.WORK1  END    FTN21                                                   PH1CTL   1518
  
                             66600B CM  STORAGE USED             3341 STATEMENTS      955 SYMBOLS      000020 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.828 SECONDS        1137 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABUF            2   MACBUF          8/55 L
        ADDREF          0   EXTERNAL*       9/36     10/09     29/15     33/04
        ALLARR          0   DBGBLK1         4/11 L
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        ALLCALL         1   DBGBLK1         4/12 L
        ALLFUNC         2   DBGBLK1         4/13 L
        ALLROU          6   DBGBLK1         4/17 L
        ANSI            0   EXTERNAL*      14/52
        APLT.CD        33   PROGRAM*       26/01     26/18     27/33 L
        AREAFLG        61   DBGBLK2         3/57 L
        ASAER           0   EXTERNAL*      14/57 S   20/09     30/11
        ATYPE          51                   2/21 D   10/19     11/10     15/39     20/01     29/03     30/41
        BLKDAT       1042   PROGRAM*       30/01 L   30/13
        BTOCT           0   EXTERNAL*      26/09
        CAFLAG          0   EXTERNAL*       2/09 X   28/41     28/49     35/52     41/16
        CCS          1156   PROGRAM*       37/30 D   37/31 E
        CED             0   EXTERNAL*      40/46
        CER.FL          0   EXTERNAL*      15/27
        CFO             0   EXTERNAL*       9/46
        CIO=            0   EXTERNAL*      35/55     41/23
        CODE.           0   EXTERNAL*       2/03 X   26/50     27/04
        COMPMSG         0   EXTERNAL*       2/04 X   28/35
        CONVERT         0   EXTERNAL*       2/10 X   21/29
        COUNTUP       111   DBGBLK2         4/05 L
        CO.ABT          0   EXTERNAL*      15/31
        CO.ER           0   EXTERNAL*      12/40     14/39     26/43     27/02
        CO.STA          0   EXTERNAL*      23/55     25/04
        CP.CARD         0   EXTERNAL*      35/23     36/31     36/40     36/45     37/18 S
        CTL1          224   PROGRAM*       14/34 L   14/37
        CTL2          241   PROGRAM*       14/56     15/01 L
        CTL3          244   PROGRAM*       15/02     15/04 L
        CTL4          246   PROGRAM*       15/07     15/09 L
        CTL5          247   PROGRAM*       15/10 L   41/24
        CTL6          252   PROGRAM*       15/11     15/15 L
        CTL7          253   PROGRAM*       15/13     15/16 L
        CTL8          255   PROGRAM*       15/17     15/24 L
        CTL8A         266   PROGRAM*       15/33     15/35 L
        CTL9          267   PROGRAM*       15/19     15/38 L
        C$STMT          1   NONFTNX         4/23 D
        C.PACK         64   DBGBLK2         4/03 L
        DATAPL        745   PROGRAM*       26/11     27/29 L
        DBGEPKT         0   EXTERNAL*      15/12
        DBGEXTP        62                   5/01 D
        DBGFSTT        47                   4/57 D   10/32
        DBGINT          0   EXTERNAL*      10/16
        DBGINTX         0   EXTERNAL*      10/34
        DBGIPKT         0   EXTERNAL*      16/07     17/54
        DBGPHCT         7   NONFTNX         4/29 L
        DBGPROG        41   DBGBLK2         3/40 L
        DBGRFMP         6   NONFTNX         4/28 L
        DEBUG           0   //              3/04 L
        DECK         1023   PROGRAM*       28/29     28/32     29/20 L   36/04
        DFLAG           0   EXTERNAL*       2/04 X   10/11     15/10     16/03     17/31     17/52
        DISPOW         44   DBGBLK2         3/43 L
        DPBDA        1043   PROGRAM*       20/04     30/07 L
        DPBDA1       1051   PROGRAM*       30/10     30/13 L
        DPBDA2       1052   PROGRAM*       30/12     30/16 L
        DPCLOSE         0   EXTERNAL*      10/42
        DPCOM           0   EXTERNAL*      10/52
        DPDIM           0   EXTERNAL*      10/53
        DPEQU           0   EXTERNAL*      10/55
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        DPEXT          62   PROGRAM*        9/07 L   10/54
        DPEXTE1       104   PROGRAM*        9/09      9/40      9/50 L
        DPEXTE2       106   PROGRAM*        9/17      9/22      9/25      9/52 L
        DPEXT3         72   PROGRAM*        9/27 L    9/48
        DPEXT4         76   PROGRAM*        9/35      9/38 L    9/53
        DPEXT.D       102   PROGRAM*        9/13      9/46 L
        DPEXT.L        63   PROGRAM*        9/09 L    9/42
        DPFUN        1060   PROGRAM*       10/49     30/39 L
        DPFUN1       1063   PROGRAM*       30/42     30/45 L
        DPIMP           0   EXTERNAL*      10/51
        DPLEV           0   EXTERNAL*      10/50
        DPROG         400   PROGRAM*       10/48     20/01 L
        DPSUB        1054   PROGRAM*       20/05     30/26 L
        DPTYP           0   EXTERNAL*      10/56
        DSL             0   EXTERNAL*      15/24     29/08     35/43
        DTYPE           1   NONFTNX         4/22 L    4/23     10/14
        DUMMY         313   PROGRAM*       16/09     16/33 L
        D.COL           0   NONFTNX         4/21 L
        D.CONL         22   DBGBLK2         3/25 L
        D.CON1         21   DBGBLK2         3/24 L
        D.CURT         10   NONFTNX         4/30 L
        D.CURUD        51   DBGBLK2         3/50 L
        D.DOLAST       27   DBGBLK2         3/30 L
        D.DUKE1        53   DBGBLK2         3/51 L
        D.EAREA         5   DBGBLK2         3/12 L
        D.EDRL          1   DBGBLK2         3/08 L
        D.EDVL          3   DBGBLK2         3/10 L
        D.EFDIT        20   DBGBLK2         3/23 L
        D.ELAST        15   DBGBLK2         3/20 L
        D.ELIST        13   DBGBLK2         3/18 L
        D.ESMTB        10   DBGBLK2         3/15 L
        D.LABEL        54   DBGBLK2         3/52 L
        D.LELST        14   DBGBLK2         3/19 L
        D.NAASI        23   DBGBLK2         3/26 L
        D.NCURU         2   NONFTNX         4/25 L
        D.NDUKE         4   NONFTNX         4/26 L
        D.NEST         56   DBGBLK2         3/54 L
        D.NESTW        16   DBGBLK2         3/21 L
        D.NLBEL         5   NONFTNX         4/27 L
        D.NOERR        35   DBGBLK2         3/36 L
        D.NOGO         30   DBGBLK2         3/31 L
        D.ON           34   DBGBLK2         3/35 L
        D.OPEN         40   DBGBLK2         3/39 L
        D.OPFLG        33   DBGBLK2         3/34 L
        D.OPL           6   DBGBLK2         3/13 L
        D.PACK         31   DBGBLK2         3/32 L
        D.PADD         36   DBGBLK2         3/37 L
        D.POW          32   DBGBLK2         3/33 L
        D.RFMAP        12   DBGBLK2         3/17 L
        D.SAASI        11   DBGBLK2         3/16 L
        D.SAREA         4   DBGBLK2         3/11 L
        D.SCON1        26   DBGBLK2         3/29 L
        D.SDRL          0   DBGBLK2         3/07 L
        D.SDVL          2   DBGBLK2         3/09 L
        D.SFDIT        17   DBGBLK2         3/22 L
        D.SSMTB         7   DBGBLK2         3/14 L
        D.STOR         25   DBGBLK2         3/28 L
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        D.TYPE         55   DBGBLK2         3/53 L
        ECGS            0   EXTERNAL*       2/11 X   17/06     17/36
        EL.COMMA        3   FTNTEXT         9/40     21/02     22/11     32/28     33/07     33/18     34/52
        EL.EOS          4   FTNTEXT         9/39     20/20     22/39     30/10     33/22     40/37
        EL.SLASH       23   FTNTEXT        21/10     22/12
        EL.(            6   FTNTEXT        20/21     32/29     34/30
        EL.)            2   FTNTEXT        22/37     33/08     34/53
        EL.=            5   FTNTEXT        21/03
        ENTRY.          0   EXTERNAL*      12/30 S
        ENTRY.D         0   EXTERNAL*       2/03 X   12/52 S
        ERPRO           0   EXTERNAL*       9/50     11/14     19/06     20/44     22/05     29/42     32/44
                                            9/53     18/52     20/34     21/38     22/35     32/21     34/43
        ERPROI          0   EXTERNAL*      15/50     21/57
        ESF           155   PROGRAM*       11/56 E   11/56 L   12/57     13/05     13/06     32/22
        ESF2          166   PROGRAM*       12/06     12/19 L
        ESF3          177   PROGRAM*       12/35     12/39 L
        ESS           213   PROGRAM*       12/01     12/19     13/22 L   25/16     26/23
                                           12/08     12/30     24/44     25/30
        ESS1          212   PROGRAM*       13/18 L   13/23
        EXIT.           0   EXTERNAL*      12/19 S
        E217          331                   2/33 D   15/50
        E224          340                   2/34 D
        E225          341                   2/35 D   41/30
        E299          453                   2/36 D   20/09
        E315          473                   2/37 D   11/13
        E323          503                   2/38 D   30/11
        E.CUN         143                   9/05 D    9/53
        E.DFN          31                  18/08 D   20/44
        E.DFP          50                  32/12 D   32/44     34/43
        E.EXTE         73                   9/04 D    9/50
        E.FEE          33                  18/09 D   22/35
        E.FSTB        352                  18/11 D   21/57
        E.HCNF         67                   2/32 D   11/08
        E.HCSE         27                  18/06 D   19/06     21/38     29/42     32/19
        E.RLTB        261                  18/12 D   22/05
        E.RSL          47                  32/11 D   34/08
        E.TMC          30                  18/07 D   18/52
        E.TMF         154                  18/10 D   20/34
        E.TMFP        154                  32/13 D   32/54     34/56
        FATALER         0   EXTERNAL*      14/51     41/30
        FEFLAG         37   DBGBLK2         3/38 L
        FILZ.CD        31   PROGRAM*       25/39     27/32 L
        FMAC            0   EXTERNAL*      24/10     24/13     24/28     25/25     26/37     26/48
        FORMAT          0   EXTERNAL*      10/57
        FP.             0   EXTERNAL*       2/03 X   17/38 S
        FTNEND          0   EXTERNAL*       2/08 X   15/36     37/19
        FTN21         215   PROGRAM*       14/11 E   14/12 L
        FUNTYPE         0   EXTERNAL*      12/39     30/53 S
        FV.LGO          0   EXTERNAL*      41/18
        FWAWORK         0   EXTERNAL*       2/08 X   14/49 S   40/19     41/12 S   43/35 S
        F1AMAC          0   EXTERNAL*      25/47
        F.CMPS          0   EXTERNAL*       2/12 X   26/01     27/01     27/23     28/40     29/10     37/12
                                           24/52     26/14     27/09     28/32     28/48     36/27     44/02
                                           25/39     26/18     27/17     28/39     28/53     36/31
        F.IN            0   EXTERNAL*      36/40
        F.LFN           0   EXTERNAL*      24/02     24/22
        F.LGO           0   EXTERNAL*      41/22     41/23
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        F.OUT           0   EXTERNAL*      35/55
        F.WORK1      1352   PROGRAM*       14/46     44/26 L
        GOTOSFL         3   DBGBLK1         4/14 L
        GT1             0   EXTERNAL*      18/46     18/47 S   18/49
        HDRBLNK      1033   PROGRAM*       28/23     29/31 L
        HDRFUNC      1034   PROGRAM*       29/01     29/32 L
        HDRPROG      1037   PROGRAM*       28/55     29/35 L
        HDRTBL       1035   PROGRAM*       29/04     29/33 L
        IDENT        1025   PROGRAM*       28/21 S   28/39     29/21 L
        IDENTOK         0   EXTERNAL*      29/07 S
        IEFLG           0   EXTERNAL*      15/01
        INDEXNO       113   DBGBLK2         4/07 L
        INFORM          0   EXTERNAL*       2/13 X   15/03 S
        INITBL          0   EXTERNAL*       2/14 X   17/30
        LASTTYP         0   EXTERNAL*      10/07 S
        LDCOM           0   EXTERNAL*      35/56
        LDEBUG         42   DBGBLK2         3/41 L
        LDPS2           0   EXTERNAL*      17/48     17/49
        LDST.CD      1030   PROGRAM*       29/10     29/24 L   29/25
        LFER            0   EXTERNAL*      14/51 S
        LFLAG          47   DBGBLK2         3/46 L
        LI            361   PROGRAM*       18/15 L   23/39 S   25/44 S   28/11 S   30/43
                                           18/16     24/30     25/48     28/14
        LNGDRL         62   DBGBLK2         4/01 L
        LNGDVL         63   DBGBLK2         4/02 L
        LNGIND         57   DBGBLK2         3/55 L
        LNK.CD         27   PROGRAM*       24/52     27/31 L
        LSTMSTR         0   EXTERNAL*      14/17
        LSTWRKG         0   EXTERNAL*      14/17
        LTFLAG         46   DBGBLK2         3/45 L
        L.ADF          33   FTNTEXT        12/48     12/50
        L.FIT6         51   FTNTEXT        23/10     23/13
        L.FIT7         20   FTNTEXT        23/13
        L.IOBUF6     2003   FTNTEXT        20/51
        L.IOBUF7        0   FTNTEXT        20/53
        L.LCC        1312   PROGRAM*       35/35     40/18     41/07     41/41 L   43/29     43/49     44/03
        L.LDST          3                  29/25 D
        L.MAXCD         0   EXTERNAL*      36/40
        L.MSTR          0   EXTERNAL*      14/17
        L.NAME         52   FTNTEXT        28/19
        L.RA           22   FTNTEXT        22/50     22/51
        L.STL           7   FTNTEXT        25/19
        L.SVCD          2                   2/28 D   12/37     33/14     34/27
        L.TYP           4   FTNTEXT         9/18      9/20
        MACFLAG         0   EXTERNAL*       2/04 X   43/33
        MBUF            1   MACBUF          8/53 L
        MCS          1242   PROGRAM*       18/48     28/31     36/26     39/09 D   40/50     43/43
        MPP             0   EXTERNAL*      35/44
        MSG=            0   EXTERNAL*      15/30     15/34     28/35
        MVE=            0   EXTERNAL*      14/17
        M.BUF      360000                  18/01 D   21/42
        M.FILES        61                  18/02 D   20/32
        M.FPS          77                  32/15 D   32/53     34/55
        NARGS           0   MACBUF          8/52 L   24/07 S   24/27 S   25/05 S   25/10 S   25/14 S   26/36 S   26/47 S
        NLST.CD        46   PROGRAM*       28/48     29/27 L
        NOACT          60   DBGBLK2         3/56 L
        NOGOFLG         4   DBGBLK1         4/15 L
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        NOLIST          0   EXTERNAL*      14/20 S
        NOPROG         50   DBGBLK2         3/47 L   16/06 S
        NSST.CD        50   PROGRAM*       28/53     29/28 L
        NULL1         315   PROGRAM*       15/30     16/37 L
        NULL2         320   PROGRAM*       15/08 S   16/38 L
        NULL3         321   PROGRAM*       15/34     16/39 L
        N.EQUF          0   EXTERNAL*       2/15 X   23/33     23/35 S
        N.FERR          0   EXTERNAL*      15/35
        N.FILES         0   EXTERNAL*       2/05 X   20/46     22/21     24/31     25/09     25/40
                                           20/31     21/30     22/44     24/55     25/32     25/49
        N.FP            0   EXTERNAL*       2/06 X   12/56     17/33     32/47
        N.LINES         0   EXTERNAL*      35/48 S
        OLIST           0   EXTERNAL*       2/09 X   28/46
        OT.RM           0   EXTERNAL*      20/50     21/40     23/11     23/31     24/08     24/37     25/55     26/53
        OUTUSE          0   EXTERNAL*      17/01     26/39     29/11
        O.LCC        1313   PROGRAM*       40/17     41/06     41/42 L   43/32     43/55 S   44/04
        O.LFN         751   PROGRAM*       20/56 S   21/31     22/22     22/46     23/43     27/40 L
        PFLAG         360   PROGRAM*       17/23     18/14 L   27/12 S   27/20 S   27/26 S
        PHSFLAG       114   DBGBLK2         4/08 L
        PH1CTL        215   PROGRAM*        1/57 E   14/13 L   17/29
        PH1S          115   PROGRAM*       10/08     10/11 L   11/14
        PH1SA         120   PROGRAM*       10/12     10/15     10/18 L   10/35
        PH1SA1        116   PROGRAM*       10/14 L   10/30
        PH1SA2        126   PROGRAM*       10/27     10/32 L
        PH1SCAN       111   PROGRAM*        1/57 E    9/50     10/41     17/46     17/55
                                            9/39     10/04 L   11/01     17/53
        PH1SE         151   PROGRAM*       10/29     10/37     11/08 L
        PH1SE2        154   PROGRAM*       11/09     11/12     11/14 L
        PH1S1         124   PROGRAM*       10/27 L   17/50
        PH1S2         131   PROGRAM*       10/33     10/37 L
        PLD          1253   PROGRAM*       20/07     41/36 D
        PLFN          362   PROGRAM*       19/02 D   20/38     22/17
        PLIMIT          0   EXTERNAL*      25/01     26/07
        PMDFLAG         0   EXTERNAL*      27/07     27/15
        PPL          1074   PROGRAM*       30/32     31/01     32/26 L   33/24
        PPL1         1100   PROGRAM*       32/34 L   33/07
        PPL2         1107   PROGRAM*       32/40     32/46 L
        PPL3         1115   PROGRAM*       32/44     33/03     33/06 L
        PPL4         1123   PROGRAM*       32/28     33/20 L
        PPL5         1124   PROGRAM*       32/29     33/18     33/22 L
        PPL.EX       1072   PROGRAM*       32/21 L   32/57     34/09     34/57
        PPL.SE       1071   PROGRAM*       32/19 L   32/35     33/08     33/22     34/17     34/21
        PPN           751   PROGRAM*       20/11     28/08 L   29/14     29/16     30/17     30/27     30/40
        PPN2          767   PROGRAM*       28/28     28/35 L
        PPN2A        1001   PROGRAM*       28/42     28/47     28/49 L
        PPN2A1       1005   PROGRAM*       28/52     28/54 L
        PPN2B        1011   PROGRAM*       28/56     29/02     29/05 L
        PPN3         1014   PROGRAM*       29/10 L
        PPN4         1016   PROGRAM*       29/11 L
        PPN.SE       1040   PROGRAM*       28/12     29/42 L
        PRGTYP        402   PROGRAM*       20/03     20/04 L
        PROGC         273   PROGRAM*        2/01 E   15/50 L
        PROGNAM         0   EXTERNAL*      15/04     20/15     28/22 S
        PROGRAM        56                   2/23 D   17/09     20/14 S   30/09 S   30/30 S   30/56 S   34/18
        PROGRTN       325   PROGRAM*       17/01 L   19/06     20/44     22/05     27/21     30/18     31/02
                                           18/52     20/34     21/38     27/13     27/27     30/33
        PROGR1        336   PROGRAM*       17/12     17/23 L
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        PROGR2        342   PROGRAM*       17/24     17/29 L
        PROGR3        347   PROGRAM*       17/32     17/34     17/39 L
        PROGR4        355   PROGRAM*       17/40     17/52 L
        PROG0         406   PROGRAM*       20/06     20/09 L
        PROG1         417   PROGRAM*       20/28 L   21/02     22/11
        PROG1A        424   PROGRAM*       20/33     20/36 L
        PROG10        734   PROGRAM*       27/03     27/15 L
        PROG11        741   PROGRAM*       27/08     27/16     27/23 L
        PROG2         432   PROGRAM*       20/41     20/46 L
        PROG2A        436   PROGRAM*       20/52     20/54 L
        PROG3         477   PROGRAM*       21/41     21/55     21/57     22/10 L   22/32     22/35
        PROG4         515   PROGRAM*       21/03     22/13     22/37 L
        PROG5         524   PROGRAM*       22/54 L   23/22     23/36
        PROG5B        540   PROGRAM*       23/03     23/25 L
        PROG5C        544   PROGRAM*       23/32     23/36 L
        PROG5.2       534   PROGRAM*       23/12     23/14     23/19 L
        PROG5.4       537   PROGRAM*       23/22 L
        PROG6         545   PROGRAM*       23/23     23/37 L
        PROG7         547   PROGRAM*       23/43 L   24/35
        PROG7A        573   PROGRAM*       23/45     24/16 L
        PROG7B        604   PROGRAM*       24/11     24/14     24/30 L
        PROG7BB       602   PROGRAM*       24/25     24/27 L
        PROG7.2       562   PROGRAM*       23/56     24/02 L
        PROG7.3       565   PROGRAM*       24/05     24/07 L
        PROG7.4       571   PROGRAM*       24/09     24/13 L
        PROG8         652   PROGRAM*       25/46 L   25/53
        PROG9         657   PROGRAM*       25/42     25/55 L
        PROG9.2       664   PROGRAM*       25/56     26/07 L
        PROG9.4       672   PROGRAM*       26/05     26/18 L
        PROG9.6       723   PROGRAM*       26/55     26/57 L
        PROG.B1       446   PROGRAM*       21/11 L   22/12
        PROG.B2       451   PROGRAM*       21/10     21/17 L
        PROG.B3       472   PROGRAM*       21/33     22/01 L
        PROG.B4       476   PROGRAM*       22/03     22/06 L
        PROG.C        454   PROGRAM*       21/24     21/27 L
        PROG.C1       461   PROGRAM*       21/37     21/40 L
        PROG.C2       466   PROGRAM*       21/50     21/52 L
        PROG.D        410   PROGRAM*       16/13     20/10 L
        PROG.EE       512   PROGRAM*       22/19     22/25     22/34 L
        PROG.N        503   PROGRAM*       21/07     22/17 L
        PROG.SE       376   PROGRAM*       19/06 L   20/21     20/29     21/14     21/17     21/25     22/37     22/39
        PROG.X        607   PROGRAM*       20/20     24/37 L
        PROG.X2       640   PROGRAM*       25/06     25/11     25/25 L
        PROG.X4       641   PROGRAM*       24/38     25/29 L
        PRP          1130   PROGRAM*       33/20     34/13 L   35/02
        PRP1         1137   PROGRAM*       34/34 L   34/52
        PRP2         1146   PROGRAM*       34/39     34/45 L
        PRP3         1150   PROGRAM*       34/43     34/49     34/51 L
        PRP.SE       1127   PROGRAM*       34/08 L   34/30     34/35     34/53
        PTR57         277   PROGRAM*       16/03 L   29/42
        PTR57A        302   PROGRAM*       16/05     16/08 L
        P.ADF          14   FTNTEXT        12/50
        P.EST          65   FTNTEXT         9/30
        P.EXT          66   FTNTEXT         9/28      9/30     13/01     13/02     17/25     24/04     24/24
        P.FP           21   FTNTEXT        32/39     32/49
        P.RA           23   FTNTEXT        12/15     12/46     22/51     25/20     26/27
                                           12/26     22/49     24/47     25/35
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        P.TYP          70   FTNTEXT        17/15     28/10     28/15     34/45
        P.VAR          50   FTNTEXT         9/24     17/18
        RA.SSW          0   CPUTEXT         2/23
        RDC=            0   EXTERNAL*      36/40
        RECORD         43   DBGBLK2         3/42 L
        RJQN.CD        40   PROGRAM*       27/17     27/36 L
        RJQ4.CD        44   PROGRAM*       27/23     27/38 L
        RJRP.CD        42   PROGRAM*       27/09     27/37 L
        RLFLAG        361   PROGRAM*       18/16 D   21/09 S   21/13     21/32
        RSELECT         0   EXTERNAL*       2/04 X    9/31     10/04     29/13     33/02     34/48
        RTB          1314   PROGRAM*       18/31     40/48     42/44 D
        RTNS         1126   PROGRAM*       34/01 L   34/15
        SA1.FIL        34   PROGRAM*       26/56     27/34 L
        SA1.LIB        36   PROGRAM*       26/54     27/35 L
        SBUFF           0   EXTERNAL*      36/05
        SCANNER         0   EXTERNAL*      10/18     15/15
        SCNUPDT       112   DBGBLK2         4/06 L
        SDBGIND        24   DBGBLK2         3/27 L
        SELIST         32                   2/20 D    9/52     20/19     21/56     22/34     32/27     34/42
                                            9/07     16/08     20/43     22/04     28/09     32/43     34/51
                                            9/38     17/44 S   21/01     22/10     30/07     33/06     40/36
        SPIDER          7   DBGBLK1         4/18 L
        START.          0   EXTERNAL*       2/03 X   12/11     12/34     24/45     25/31     26/15     26/24
                                           12/05 S   12/22     23/37 S   25/17     26/02     26/20
        STLTAB          0   EXTERNAL*      14/33     14/38
        ST.             0   EXTERNAL*       2/03 X   17/08 S
        ST.ASG         16                   2/45 D
        ST.BAD         22                   2/46 D   10/40
        ST.END         15                   2/44 D   15/16
        ST.FMT         11                   2/43 D   10/38
        ST.INV         45                   2/47 D   15/18
        SUCCESS        45   DBGBLK2         3/44 L
        SVARG           0   EXTERNAL*      23/48     23/54     24/06     24/21     24/57     25/08     26/33     26/42
                                           23/51     24/01     24/18     24/26     25/03     25/13     26/35     26/46
        SVELIST       314   PROGRAM*       16/12 S   16/34 L   17/39     28/54
        SYMBOL          0   EXTERNAL*       9/11     13/23     17/25     22/18     32/37
                                           13/01     17/13     20/39     28/13     34/37
        SYMEND         13                   2/18 D   14/50 S   40/20
        SYMORD          0   EXTERNAL*      34/54
        SYM1           12                   2/17 D   14/45     22/43
        TEMPA0.         0   EXTERNAL*      12/04     12/08 S   12/33     33/15 S   34/28 S
        TEMPB7        150   PROGRAM*       10/05     10/25 S   11/04 L   15/45 S   15/55
        TEST            0   FTNTEXT        28/34 F
        TL.PNAM         0   EXTERNAL*      14/29 S   28/26 S
        TL.PTYP         0   EXTERNAL*      14/28 S   29/06 S   35/40 S   35/49 S
        TRACEL          5   DBGBLK1         4/16 L
        TRACE.          0   EXTERNAL*      12/01 S   26/23 S
        TYPE           24                   2/19 D   17/41     28/57
        TYPFLAG         0   EXTERNAL*      10/28
        T.CGS          14   FTNTEXT        13/02     30/16
        T.DBL           3   FTNTEXT        30/49
        T.ENT          12   FTNTEXT        20/10     30/26     30/39
        T.INT           1   FTNTEXT        21/23
        T.LAB           6   FTNTEXT         9/21
        T.OCT           5   FTNTEXT        21/22
        T.RTN           7   FTNTEXT        34/38
        UCODE.          0   EXTERNAL*      26/39
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        UDATA.          0   EXTERNAL*      17/01
        UFLAG           0   EXTERNAL*       2/04 X   28/27     28/50     35/51     41/17
        UPDTTBL        65   DBGBLK2         4/04 L
        USE.CD         51   PROGRAM*       28/40     29/29 L
        USTART.         0   EXTERNAL*      29/11
        VALUE.          0   EXTERNAL*       2/03 X   17/14     30/46 S
        VECJP         134   PROGRAM*       10/39     10/44 L   15/46
        VECTAB        135   PROGRAM*       10/44     10/46 L
        WB.ESS          0   EXTERNAL*       2/05 X   13/18
        WB.LFN          0   EXTERNAL*       2/05 X   20/40
        WLD          1323   PROGRAM*       29/09     36/32     44/16 D
        WTC=            0   EXTERNAL*      24/52     26/14     27/09     28/32     28/48     36/27     44/02
                                           25/39     26/18     27/17     28/39     28/53     36/31
                                           26/01     27/01     27/23     28/40     29/10     37/12
        WTW=            0   EXTERNAL*      41/22
        XFRNAME         0   EXTERNAL*       2/07 X   20/17 S
        Z               4                   9/10 D   20/28     21/06 D   21/12     32/34 D   33/17     34/34 D   35/01
                                            9/10     20/30 D   21/06     22/38 D   32/34     34/14 D   34/34
                                            9/41 D   20/30     21/11 D   22/38     32/36 D   34/14     34/36 D
                                            9/41     21/05 D   21/11     28/09 D   32/36     34/29 D   34/36
                                           20/28 D   21/05     21/12 D   28/09     33/17 D   34/29     35/01 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  PLFN
  
  
        PLFN          362   PROGRAM*       18/30 L   19/02
        PLFN1         367   PROGRAM*       18/38     18/41 L
        PLFN2         374   PROGRAM*       18/44     18/52 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  CCS 
  
  
        CCS          1156   PROGRAM*       35/22 L   37/30
        CCSA         1237   PROGRAM*       36/06     36/27     37/23 L
        CCSB         1241   PROGRAM*       36/34 S   36/42     37/24 L
        CCS1         1167   PROGRAM*       35/36     35/43 L
        CCS2         1200   PROGRAM*       35/53     36/04 L
        CCS3         1204   PROGRAM*       36/15 L   36/23
        CCS4         1207   PROGRAM*       36/18     36/24 L
        CCS5         1210   PROGRAM*       36/24     36/26 L
        CCS6         1213   PROGRAM*       35/54     36/31 L
        CCS7         1217   PROGRAM*       36/40 L   37/13
        CCS8         1233   PROGRAM*       37/01     37/02     37/04     37/10     37/12 L
        CCS9         1235   PROGRAM*       36/41     37/17 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  MCS 
  
  
1       PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)       COMPASS 3.7-871.     24/05/02. 15.54.42.      PAGE    55
        SYMBOLIC REFERENCE TABLE.                                     MCS 
  
        MCS          1242   PROGRAM*       38/33 L   39/09
        MCSA         1252   PROGRAM*       38/36     39/03 L
        MCS2         1251   PROGRAM*       38/52     38/54 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  PLD 
  
  
        PLD          1253   PROGRAM*       40/17 L   41/36
        PLD2         1256   PROGRAM*       40/22     40/24 L
        PLD3         1263   PROGRAM*       40/37 L   40/52
        PLD31        1267   PROGRAM*       40/43     40/46 L
        PLD32        1272   PROGRAM*       40/45     40/50 L
        PLD4         1274   PROGRAM*       40/37     40/56 L
        PLD5         1276   PROGRAM*       41/03     41/06 L
        PLD7         1310   PROGRAM*       41/20     41/21     41/24 L
        PLD.ER2      1311   PROGRAM*       40/30     41/30 L
        Z               4                  40/51 D   40/51
  
  
  
  
                                                  SYMBOL QUALIFIER =  RTB 
  
  
        RTB          1314   PROGRAM*       42/20 L   42/44
        RTBA         1321   PROGRAM*       42/21     42/37 L
        RTBB         1322   PROGRAM*       42/24     42/38 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  WLD 
  
  
        WLD          1323   PROGRAM*       43/28 L   44/16
        WLDA         1344   PROGRAM*       43/40     43/57     44/02     44/10 L
        WLD2         1330   PROGRAM*       43/37 L   44/05
        WLD3         1332   PROGRAM*       43/43 L   43/48
1       PASS 3 CONTROLLER                                             COMPASS 3.7-871.     24/05/02. 15.54.45.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       56              IDENT  PS3CTL 
                         56                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=PS3CT          0+           FTN25            0+           IEM             34+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        MSG=      FTNEND    QFLAG     REFMAP    XFRNAME   P2NOGO    N.FERR
                                        PROGNAM   FTNXAS    CAFLAG    SYMDMP    WTC=      DFLAG 
                                        CDD       CIO=      UFLAG     RSSW      F.CMPS    CP.ERCT 
  
  
  
  
                                                  IDENT  PS3CTL                                                  PS3CTL      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
  
  
  
  
             0                           B=PS3CT  RPVDEF                                                         PS3CTL      6
  
  
  
                                        *         IF (BREAK=25) WAS SELECTED, ENTRY TO OVERLAY(2,5) WILL BE TO   FEAT155F  239
                                        *         *FTN25-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.  FEAT155F  240
                                                                                                                 FEAT155F  241
                                         FTN25    BREAK                                                          FEAT155F  242
                                                                                                                 FEAT155F  243
                                                  ENTRY  FTN25                                                   PS3CTL      8
             0                           FTN25    BSS    0           ** LOADER ENTRY POINT **                    PS3CTL      9
             0  6110000001                        SB1    1                                                       PS3CTL     10
                          5110000000 X            SA1    =XN.FERR                                                PS3CTL     11
             1  0301000011 +                      ZR     X1,PS32     IF NO FATAL ERRORS                          PS3CTL     12
                          5120000000 X            SA2    =XCP.ERCT                                               FCC0220   109
             2  36612                             IX6    X1+X2                                                   FCC0220   110
                     54620                        SA6    A2          UPDATE ERROR COUNT GRAND TOTAL              FCC0220   111
                                                                                                                 PS3CTL     13
                          0100000034 +            RJ     IEM               ISSUE ERROR MESSAGE TO THE DAYFILE    PS3CTL     14
             3  5110000000 X                      SA1    =XDFLAG                                                 PS3CTL     15
                          0301000007 +            ZR     X1,PS31     IF NOT IN DEBUG MODE                        PS3CTL     16
             4  5120000000 X                      SA2    =XP2NOGO                                                PS3CTL     17
                          0312000007 +            NZ     X2,PS31     IF NOGO OPTION SPECIFIED                    PS3CTL     18
             5  43700                             MX7    0                                                       PS3CTL     19
                     5170000000 X                 SA7    =XN.FERR    CLEAR FATAL ERROR COUNT                     PS3CTL     20
             6  0400000011 +                      EQ     PS32                                                    PS3CTL     21
                                                                                                                 PS3CTL     22
             7  6160000047 +             PS31     WRITEC =XF.CMPS,ECODE,LECODE                                   PS3CTL     23
1       PASS 3 CONTROLLER                                             COMPASS 3.7-871.     24/05/02. 15.54.45.      PAGE     2
                                                                      FTN25 
  
                                                                                                                 PS3CTL     24
                                        *         OUTPUT END LINE -  *  END  XFERNAME *                          PS3CTL     25
                                                                                                                 PS3CTL     26
            11  5110000000 X             PS32     SA1    =XXFRNAME   (X1) = NAME OF TRANSFER ADDR, 7L FORMAT     PS3CTL     27
                          0301000015 +            ZR     X1,PS33     IF NO TRANSFER ADDRESS (NOT MAIN PROGRAM)   PS3CTL     28
            12  5120000054 +                      SA2    ENDCODE+1   CONCATENATE *END * AND NAME                 PS3CTL     29
                          43630                   MX6    4*6                                                     PS3CTL     30
                               20144              LX1    -4*6                                                    PS3CTL     31
            13  11761                             BX7    X6*X1                                                   PS3CTL     32
                     15116                        BX1    -X6*X1                                                  PS3CTL     33
                          12621                   BX6    X2+X1                                                   PS3CTL     34
                               54620              SA6    A2                                                      PS3CTL     35
            14  54721                             SA7    A2+B1                                                   PS3CTL     36
            15  6160000053 +             PS33     WRITEC =XF.CMPS,ENDCODE,0                                      PS3CTL     37
                                                                                                                 PS3CTL     38
            17  0100000000 X                      CALL   RSSW        SET SWITCHS IN *LSTPRO* FOR ASSEMBLY        PS3CTL     39
                                                                                                                 PS3CTL     40
            20  0100000000 X                      CALL   SYMDMP      ** DEBUG **                                 PS3CTL     41
                                                                                                                 PS3CTL     42
            21  0100000000 X                      CALL   REFMAP      LIST DIAGNOSTICS AND PRODUCE THE MAP        PS3CTL     43
                                                                                                                 PS3CTL     44
            22  5110000000 X                      SA1    =XUFLAG                                                 PS3CTL     45
                          5120000000 X            SA2    =XCAFLAG                                                PS3CTL     46
            23  5130000000 X                      SA3    =XQFLAG                                                 PS3CTL     47
                          12412                   BX4    X1+X2                                                   PS3CTL     48
                               12543              BX5    X4+X3                                                   PS3CTL     49
            24  0315000033 +                      NZ     X5,CLOS     IF NOT ASSEMBLING                           PS3CTL     50
                                                                                                                 PS3CTL     51
                          7120000000 X            WRITER =XF.CMPS                                                PS3CTL     52
            26  7120000000 X                      REWIND =XF.CMPS,,NF                                            PS3CTL     53
                                         #RM      IFEQ   CP#RM,0                                                 PS3CTL     54
            30  7120000000 X                      READ   =XF.CMPS                                                PS3CTL     55
                                         #RM      ENDIF                                                          PS3CTL     56
                                                                                                                 PS3CTL     57
            32  0100000000 X                      CALL   FTNXAS            ASSEMBLE THE COMPS FILE               PS3CTL     58
                                                                                                                 PS3CTL     59
            33                           CLOS     BSS    0                                                       FCC0220   112
                                                                                                                 PS3CTL     64
                                         PTIME    IFNE   TEST,0                                                  PS3CTL     65
                                                  CALL   TIMER                                                   PS3CTL     66
                                                  SA5    =XTIME1                                                 PS3CTL     67
                                                  IX1    X6-X5       LAST - FIRST                                PS3CTL     68
                                                  SA6    A5          NEW FIRST                                   PS3CTL     69
                                                  BX7    X1                                                      PS3CTL     70
                                                  SA7    PRG.MSG+2                                               PS3CTL     71
                                                  SB4    3*6         (B4) = -(SCALE FACTOR) * 6                  PS3CTL     72
                                                  CALL   REALDEC                                                 PS3CTL     73
                                                  SA5    =XCOMPMSG+1                                             PS3CTL     74
                                                  LX6    6                                                       PS3CTL     75
                                                  MX4    42                                                      PS3CTL     76
                                                  SA6    PRG.MSG+1                                               PS3CTL     77
                                                  SX3    3R -                                                    PS3CTL     78
                                                  BX5    X4*X5                                                   PS3CTL     79
                                                  BX3    -X4*X3                                                  PS3CTL     80
                                                  BX6    X3+X5                                                   PS3CTL     81
                                                  LX6    -6                                                      PS3CTL     82
                                                  SA6    A6-1                                                    PS3CTL     83
1       PASS 3 CONTROLLER                                             COMPASS 3.7-871.     24/05/02. 15.54.45.      PAGE     3
                                                                      FTN25 
  
                                                  SA1    =XN.EXST                                                PS3CTL     84
                                                  SA2    PRG.MSG+2   COMPUTE CARDS / MINUTE                      PS3CTL     85
                                                  SX3    60*1000D                                                PS3CTL     86
                                                  SX1    X1+3                                                    PS3CTL     87
                                                  IX4    X1*X3                                                   PS3CTL     88
                                                  IX1    X4/X2                                                   PS3CTL     89
                                                  SB1    1                                                       PS3CTL     90
                                                  CALL   CDD                                                     PS3CTL     91
                                                  SA1    =5LSEC                                                  PS3CTL     92
                                                  MX0    30                                                      PS3CTL     93
                                                  BX6    -X0*X6                                                  PS3CTL     94
                                                  BX7    X1+X6                                                   PS3CTL     95
                                                  SA7    PRG.MSG+2                                               PS3CTL     96
                                                  MESSAGE  PRG.MSG,,RECALL                                       PS3CTL     97
                                                                                                                 PS3CTL     98
                                                  USE    PRGMSG                                                  PS3CTL     99
                                         PRG.MSG  DATA   20L NAMEXXX - NNN.NNN                                   PS3CTL    100
                                                  DATA   18LSEC  NNNNN C/MIN                                     PS3CTL    101
                                                  USE    *                                                       PS3CTL    102
                                         PTIME    ENDIF                                                          PS3CTL    103
                                                                                                                 PS3CTL    104
            33  0400000000 X                      EQ     =XFTNEND                                                PS3CTL    105
1       PASS 3 CONTROLLER                                             COMPASS 3.7-871.     24/05/02. 15.54.45.      PAGE     4
        IEM - ISSUE ERROR MESSAGE                                     IEM 
  
                                        **        IEM - ISSUE ERROR MESSAGE TO THE DAYFILE                       PS3CTL    107
                                        *                                                                        PS3CTL    108
                                        *         ENTRY  (X1) = ERROR COUNT                                      PS3CTL    109
                                                                                                                 PS3CTL    110
            34  00000000000000000000     IEM      ENTRY.                                                         PS3CTL    111
            35  6110000001                        SB1    1                                                       PS3CTL    112
                          0100000000 X            CALL   CDD               RETURNS (X6) = NUMBR, DPC -A- FORMAT  PS3CTL    113
            36  5120000000 X                      SA2    =XPROGNAM         (X2) = PROGRAM NAME, 7H FORMAT        PS3CTL    114
                          20606                   LX6    6                                                       PS3CTL    115
                               10722              BX7    X2                                                      PS3CTL    116
            37  5160000043 +                      SA6    MSGC              STORE NUMBER OF ERRORS AND            PS3CTL    117
                          5170000046 +            SA7    MSGC+3            NAME IN DAYFILE MESSAGE               PS3CTL    118
            40  7110000043 +                      MESSAGE MSGC,,RECALL     ISSUE MESSAGE TO DAYFILE              PS3CTL    119
            42  6150000001                        SB5    1                                                       PS3CTL    120
                          0400000034 +            EQ     IEM                                                     PS3CTL    121
                                                                                                                 PS3CTL    122
            43  55555555555516161655     MSGC     DIS    4,      NNN  FORTRAN ERRORS IN   NAME                   PS3CTL    123
                                                                                                                 PS3CTL    124
            47  55550522225505222217     ECODE    DATA   C/  ERR ERRORS IN FTN COMPILATION/                      PS3CTL    125
                                   4     LECODE   EQU    *-ECODE                                                 PS3CTL    126
            53  32575555555555555555     ENDCODE  DATA   2HZ.,4LEND ,0                                           FEAT155A   44
                                                                                                                 PS3CTL    128
            56                                    END                                                            PS3CTL    129
  
                             65000B CM  STORAGE USED              242 STATEMENTS      553 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.260 SECONDS          56 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        CAFLAG          0   EXTERNAL*       2/23
        CDD             0   EXTERNAL*       4/07
        CIO=            0   EXTERNAL*       2/29      2/30      2/32
        CLOS           33   PROGRAM*        2/27      2/37 L
        CP.ERCT         0   EXTERNAL*       1/44
        CP#RM           0   FTNTEXT         2/31 F
        DFLAG           0   EXTERNAL*       1/49
        ECODE          47   PROGRAM*        1/57      4/19 L    4/20
        ENDCODE        53   PROGRAM*        2/06      2/14      4/21 L
        FTNEND          0   EXTERNAL*       3/22
        FTNXAS          0   EXTERNAL*       2/35
        FTN25           0   PROGRAM*        1/39 E    1/40 L
        F.CMPS          0   EXTERNAL*       1/57      2/14      2/29      2/30      2/32
        IEM            34   PROGRAM*        1/48      4/05 E    4/05 L    4/15
        LECODE          4                   4/20 D
        MSGC           43   PROGRAM*        4/11 S    4/12 S    4/13      4/17 L
        MSG=            0   EXTERNAL*       4/13
        N.FERR          0   EXTERNAL*       1/42      1/54 S
        PROGNAM         0   EXTERNAL*       4/08
        PS31            7   PROGRAM*        1/50      1/52      1/57 L
        PS32           11   PROGRAM*        1/43      1/55      2/04 L
        PS33           15   PROGRAM*        2/05      2/14 L
        P2NOGO          0   EXTERNAL*       1/51
        QFLAG           0   EXTERNAL*       2/24
        REFMAP          0   EXTERNAL*       2/20
        RSSW            0   EXTERNAL*       2/16
1       PASS 3 CONTROLLER                                             COMPASS 3.7-871.     24/05/02. 15.54.45.      PAGE     5
        SYMBOLIC REFERENCE TABLE. 
  
        SYMDMP          0   EXTERNAL*       2/18
        TEST            0   FTNTEXT         2/39 F
        UFLAG           0   EXTERNAL*       2/22
        WTC=            0   EXTERNAL*       1/57      2/14
        XFRNAME         0   EXTERNAL*       2/04
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3723              IDENT  FAX
                       3723                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      3665 
                                        LITERALS* LOCAL        3665        36 
                                        DEBUG     LOCAL        3723         0 
                                        TABLES    COMMON          0        66 
                                        IO$$      LOCAL        3723         0 
                                        STORAGE   LOCAL        3723         0 
  
  
                                        ENTRY POINTS. 
  
                                        B=FAX            0+           SWC             26+           FTNXAS        1146+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        TEMPA0.   F.LGO     O.EXT     CP.ERCT   CO.ER     N.COM     O.IOT     PROGNAM 
                                        TRACE.    N.FILES   L.EXT     MSG=      VALUE.    STLTAB    LWAWORK 
                                        ENTRY.    N.FP      O.TSS     CIO=      FUNTYPE   CO.STA    IOAPLN
                                        FTNNOP.   OLIST     L.TSS     O.GLT     SYMORD    PMDFLAG   DIRECT
                                        NOPS.     WB.LAB    SYMBOL    WTW=      SDATA.    FA=LOL    TL.CCOP 
                                        ST.       XFRNAME   LABEL     LABEL.    PLIMIT    FA=NPG    TL.TIME 
                                        FV.LGO    O.ENTR    CP.NFLS   WB.FMT    OT.RM     N.FERR    TL.DATE 
                                        F.CMPS    L.ENTR    CDD       RDC=      ORGTAB    SETCORE   LEVEL2
  
  
  
  
                                                  IDENT  FAX                                                     FAX         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  NOREF  CSAVE                                                   FAX         5
                                                  NOREF  ILL                                                     FAX         6
                                                  NOREF  LOOKI                                                   FAX         7
                                                  NOREF  LOOKS                                                   FAX         8
                                                  NOREF  MOVMAX                                                  FAX         9
                                                  NOREF  MOVT                                                    FAX        10
                                                  NOREF  ORGB                                                    FAX        11
                                                  NOREF  ORGFWA                                                  FAX        12
                                                                                                                 FAX        13
             0                           B=FAX    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     FAX        14
                                                                                                                 FAX        15
                                                  EXT    TEMPA0.,TRACE.,ENTRY.,FTNNOP.,NOPS.,ST.                 FAX        16
                                                  EXT    FV.LGO                                                  FAX        17
                                                  EXT    F.CMPS                                                  FAX        18
                                                  EXT    F.LGO                                                   FAX        19
                                                  EXT    N.FILES                                                 FAX        20
                                                  EXT    N.FP                                                    FAX        21
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     2
  
  
                                                  EXT    OLIST                                                   FAX        22
                                                  EXT    WB.LAB                                                  FAX        23
                                                  EXT    XFRNAME                                                 FAX        24
                                                  USE    DEBUG                                                   FCC0506     5
                                                  USE    *                                                       FCC0506     6
                                                                                                                 FAX        25
                                                  TABLES  ENTR,EXT,TSS                                           FAX        26
  
  
  
                                        **        FAX - FTN INTERNAL ASSEMBLER.                                  FAX        28
                                        *                                                                        FAX        29
                                        *         FUNCTION -                                                     FAX        30
                                        *          TO ASSEMBLE THE "COMPS" FILE AND PLACE THE RELOCATABLE        FAX        31
                                        *          BINARY ON THE "LGO" FILE.                                     FAX        32
                                        *          FAX IS A 1 PASS ASSEMBLER BY VIRTUE OF THE FACT THAT          FAX        33
                                        *          PREVIOUS PASS"S HAVE CALCULATED THE PROGRAM LENGTH, BLOCK     FAX        34
                                        *          LENGTHS AND DEFINED THE ADDRESS"S OF ALL SYMBOLS FOR IT.      FAX        35
                                        *                                                                        FAX        36
                                   1     .JOL     EQU    1           "0 FOR JUSTIFIED O LIST ( COST 2 PERCENT )  FAX        37
  
  
  
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     3
  
  
                                        **        CONSTANTS, TABLES AND WORKING STORAGE.                         FAX        40
                                                                                                                 FAX        41
                                        *         JOB COMMUNICATIONS AREA USAGE.                                 FAX        42
                                                                                                                 FAX        43
                                  12     SYM1     =      RA.SSW+12B        CONTAINS INVERTED FWA SYMBOL TABLE    FAX        44
                                  56     PROGRAM  =      RA.SSW+56B        CONTAINS PROGRAM UNIT TYPE            FAX        45
                                                                                                                 FAX        46
                                                                                                                 FAX        47
                                   7     N.LRB    =      7                 NUMBER OF LOCAL RELOCATION BASES      FAX        48
                                                                                                                 FAX        49
                                                  USE    /TABLES/                                                FAX        50
             0                     1     BLKCOM   BSS    1                 ADDR OF BLANK COMMON IN ORGTAB        FAX        51
             1                     1     L.PROG   BSS    1                 PROGRAM LENGTH                        FAX        52
             2                     7     O.LRB    BSS    N.LRB             FWA OF LOCAL RELOCATION BASES         FAX        53
            11                     5              BSS    5                                                       FEAT155A   45
            16                     1     L.PROGP  BSS    1                                                       FEAT155A   46
            17                     4              BSS    4                                                       FEAT155A   47
            23                     1     AERCNT   BSS    1                 ASSEMBLY ERROR COUNT                  FAX        55
            24                     1     STOVSIZE BSS    1                 AMOUNT OF STORAGE OVERFLOW            FAX        56
            25                    12     ERRLINE  BSS    10          ERROR MESSAGE LINE                          FEAT155A   48
                                                  USE    *                                                       FAX        57
                                                                                                                 FAX        58
                                                                                                                 FAX        59
                                                                                                                 FAX        60
                                        *         PREFIX (77) TABLE.                                             FAX        61
                                                                                                                 FAX        62
                                   1     OBJIMULT EQU    1                 INTEGER MULTIPLY ALWAYS ON            FAX        63
                                         IMUL     MICRO  1,,/I/      INTEGER MULTIPLY ON ( ALWAYS )              FAX        64
                                         MODLVL   MICRO  1,5,$"MODLVL"     $                                     FAX        65
                                                                                                                 FAX        66
                                  17     L.PRFX   =      15D                                                     FAX        67
                                                                                                                 FAX        68
                                                                                                                 FAX        69
                                                                                                                 FCC1264    41
                                        **        TARGET - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR FOR   FCC1264    42
                                        *                  WHICH THE PROGRAM IS OPTIMIZED.                       FCC1264    43
                                        *                                                                        FCC1264    44
                                        *         VALID - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR ON     FCC1264    45
                                        *                 WHICH THE PROGRAM CAN BE EXECUTED.                     FCC1264    46
                                        *                                                                        FCC1264    47
                                        *         TARGET  AND  VALID  ARE CALCULATED FROM  MODEL                 FCC1264    48
                                        *                                                                        FCC1264    49
                                        *         MODEL      -->      TARGET     -->      VALID                  FCC1264    50
                                        *         71                  64                  64                     FCC1847X   12
                                        *         72                  64                  64                     FCC1264    51
                                        *         73                  64                  64                     FCC1264    52
                                        *         74                  66                  6X                     FCC1264    53
                                        *         76                  76                  7X                     FCC1264    54
                                        *         171                 64                  64                     FCC1847X   13
                                        *         172                 64                  64                     FCC1264    55
                                        *         173                 64                  64                     FCC1264    56
                                        *         174                 64                  64                     FCC1264    57
                                        *         175                 C5                  CX                     FCC1264    58
                                        *         176                 76                  7X                     FCC1264    59
                                        *                                                                        FCC1264    60
                                                                                                                 FCC1264    61
                                         .TMP     MICRO  2,1,/"MDL"/                                             F2950F4   113
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     4
  
  
                                         TARGET   MICRO  2*".TMP"-5,2,/6466C576/                                 F2950F4   114
                                         VALID    MICRO  2*".TMP"-5,2,/646XCX7X/                                 F2950F4   115
             0                           PREFIX   BSS    0                                                       FAX        76
                                                  LIST   A                                                       FAX        77
             0                                    LOC    0                                                       FAX        78
             0  77000016000000000000              VFD    6/77B,12/0,6/L.PRFX-1,36/0                              FAX        79
             1  55555555555555555555              DATA    1H               PROGRAM UNIT NAME                     FAX        80
             2  55555555555555555555              DATA    1H               MM/DD/YY - DATE                       FAX        81
             3  55555555555555555555              DATA    1H               HH.MM.SS - TIME OF DAY                FAX        82
                                                  DATA   10H"OS.ID"                                              S3143FC    50
             4  16172355355743574255              DATA   10HNOS 2.8.7                                            S3143FC    50
                                        ,                                                                        S3143FC    50
                                                  DATA   10H"LPNAME""VER"                                        FAX        84
             5  06241655555555375743              DATA   10HFTN    4.8                                           FAX        84
                                                  VFD    30/5H"MODLVL",12/2H"TARGET",12/2H"VALID",6/1H           FAX        85
             6  43423455554137413755              VFD    30/5H871  ,12/2H64,12/2H64,6/1H                         FAX        85
                                                  DATA    2H "IMUL"        HARDWARE DEPENDENCIES                 FAX        86
             7  55115555555555555555              DATA    2H I        HARDWARE DEPENDENCIES                      FAX        86
            10  55555555555555555555              DATA   1H                PROGRAM UNIT TYPE                     FCC1513X    7
            11  55555555555555555555              DATA    1H               CONTROL CARD OPTIONS                  FAX        88
            12  55555555555555555555              DATA    1H               CONTROL CARD OPTIONS                  FAX        89
            13                     4              BSSZ   L.PRFX-*L                                               FAX        90
            17                                    LOC    *O                                                      FAX        91
                                                  LIST   *                                                       FAX        92
                                                                                                                 FAX        93
                                                                                                                 FAX        94
                                                                                                                 FAX        95
                                                                                                                 FAX        96
                                        *         LDSET (70) TABLE USED BY SCOPE 3.4 LOADER.                     FAX        97
                                                                                                                 FAX        98
            17  06172224220116000000     LDUSE6   DATA   0LFORTRAN                                               F162FTNA 1068
            20  00000000000000000000              DATA   0                                                       F162FTNA 1069
                                                                                                                 FAX       105
                                        *         MAP AND PRESET TABLES USED BY PMDMP                            FEAT1070C 173
            21  00110001000000000007     PMDUSE   VFD    12/0011B,12/1,18/0,17/3,1/1  SELECT *BS* MAP OPTION     FEAT1070C 174
            22  32323232321520000000              DATA   0LZZZZZMP                    ON FILE *ZZZZZMP*          FEAT1070C 175
            23  00120001000000000001              VFD    12/0012B,12/1,18/0,18/1      PRESET CORE TO             FEAT1070C 176
            24  60000000000433400000              VFD    60/60000000000433400000B     SB0 A0+0,  EQ B3,B3,*+1S17 FEAT1070C 177
            25  00000000000000000000              DATA   0                                                       FEAT1070C 178
                                                                                                                 FAX       117
                                                                                                                 FAX       118
                                                                                                                 FAX       119
                                        *         CONSTANTS AND WORKING STORAGE.                                 FAX       120
                                                                                                                 FAX       121
            26  00000000000000000000     SWC      ENTRY. 0                 INPUT LINE LENGTH (WORDS)             FAX       122
                                                                                                                 FAX       123
                                                  USE    IO$$              FORCE OUT 7RM MACRO EXPANSION CODE    FAX       124
          3723                                    BSS    0                                                       FAX       125
                                                  USE    *                                                       FAX       126
                                                                                                                 FAX       127
                                                  USE    STORAGE                                                 FAX       128
          3723                           MEMORY   BSS    0                 FWA WORKING STORAGE                   FAX       129
                                                  USE    *                                                       FAX       130
                                                                                                                 FAX       131
                                  13     SCRSIZE  EQU    11                                                      FAX       132
                                3723 +   SCRATCH  EQU    MEMORY                                                  FAX       133
                                3736 +   LINE     EQU    MEMORY+SCRSIZE    14 WORD WORK AND PRINT BUFFER         FAX       134
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     5
  
  
                                   5     ISHIFT   EQU    5                                                       FAX       135
                                3743 +   ILINE    EQU    LINE+ISHIFT       SOURCE LINE STORED HERE               FAX       136
                                  17     LINESIZE EQU    15                                                      FAX       137
            27                     1     GLAPR    BSS    1           GL/AP RELOCATION SKELETON                   FCC0506     7
            30  00000000000000003755 +   MEMSTRT  VFD    60/MEMORY+SCRSIZE+LINESIZE                              FAX       138
            31                     1     CORGTAB  BSS    1                 POINTER TO COMMON ORGTAB              FAX       139
            32                     1     LORGTAB  BSS    1                 POINTER TO LOCAL ORGTAB               FAX       140
            33                     1     LINKTAB  BSS    1                 POINTER TO EXTERNAL NAME TABLE        FAX       141
            34                     1     FREEMEM  BSS    1                 POINTER TO NEXT FREE WORKING STG. LOC FAX       142
            35                     1     TEXT.ADD BSS    1                 POINTER TO CURRENT ORGTAB ENTRY       FAX       143
            36                     1     MEMEND   BSS    1                 LWA WORKING STORAGE                   FAX       144
            37                     1     ALABEL   BSS    1                 LABEL IS SAVED HERE                   FAX       145
            40                     2     FFLAG    BSS    2                 FORCE UPPER FLAG                      FAX       146
                                  41 +   NFLAG    EQU    FFLAG+1           FORCE UPPER, NEXT INSTRUCTION FLAG    FAX       147
            42  00000000000000000000     IOCTR    CON    0           ]IONNN COUNTER                              FAX       148
            43  00000000000000000017 +   LDUSE    CON    LDUSE6      FWA OF LDSET (70) TABLE                     FAX       153
            44  00000000000000000022     XFL      CON    18          LENGTH OF XFILL RELOCATION FIELD (LCM=D)    FAX       174
                                  27     LFL      SET    60-P.RL                                                 FAX       175
                                  31     LRB      SET    P.RL-P.RB                                               FAX       176
            45  00000002000000040000     WBDATA.  VFD    LFL/1,LRB/4,P.RB/0                                      FAX       177
  
  
                                        *         DEFINITION OF RELOCATION CODES USED BY THE LOADER              FAX       179
                                                                                                                 FAX       180
                                   0     RL$      EQU    00B                                                     FAX       181
                                   2     RL$L     EQU    02B                                                     FAX       182
                                   4     RL$M     EQU    04B                                                     FAX       183
                                  10     RL$U     EQU    10B                                                     FAX       184
                                  12     RL$B     EQU    12B                                                     FAX       185
                                                                                                                 FAX       186
                                         PTRS     MACRO  NAME                                                    FAX       187
                                         PTR.NAME SNAP   MEMSTRT,ALABEL                                          FEAT155F  244
                                                  ENDM                                                           FAX       189
                                                                                                                 FAX       190
                                         COMTAB   MACRO  N                                                       FAX       191
                                         COM.N    SNAP   *CORGTAB,*LORGTAB                                       FEAT155F  245
                                                  ENDM                                                           FAX       193
                                                                                                                 FAX       194
                                         LINKTAB  MACRO  N                                                       FAX       195
                                         LNK.N    SNAP   *LINKTAB,*MEMSTRT                                       FEAT155F  246
                                                  ENDM                                                           FAX       197
                                                                                                                 FAX       198
                                         CHAINS   MACRO  N                                                       FAX       199
                                         CHN.N    SNAP   *MEMSTRT,*FREEMEM                                       FEAT155F  247
                                                  ENDM                                                           FAX       201
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     6
         MACRO DEFINITIONS
  
                                        **********************************************************************   FAX       203
                                        *                                                                    *   FAX       204
                                        *         ASSEMBLING FTNXAS WITH DEBUG SET TO 1 WILL CAUSE-          *   FAX       205
                                        *                                                                    *   FAX       206
                                        *                   1.SNAP CALLS TO BE MADE AT STRATEGIC POINTS      *   FAX       207
                                        *                   2.CODE TO NOT BE RELOCATED TO THE OPCODE VECTORS *   FAX       208
                                        *                   3.THE LAST FEW WORDS OF L3.JVEC TO BE ASSEMBLED  *   FAX       209
                                        *                                                                    *   FAX       210
                                        **********************************************************************   FAX       211
  
  
                                   0     DEBUG    EQU    0                                                       FAX       213
                                                                                                                 FAX       214
                                        ***                                                                      FAX       215
                                        *         RELOC - GENERATE A WORD OF 4 BIT RELOCATION BYTES FOR "WRSEQ"  FAX       216
                                        *                                                                        FAX       217
                                         RELOC    MACRO  Q                                                       FAX       218
                                                  IRP    Q                                                       FAX       219
                                                  VFD    4/RL$Q                                                  FAX       220
                                                  IRP                                                            FAX       221
                                                  VFD    *P/0                                                    FAX       222
                                                  ENDM                                                           FAX       223
  
  
                                        *                                                                        FAX       225
                                        * GCH AND CWD ARE USED THROUGHOUT THE ASSEMBLER FOR SCANNING THE INPUT   FAX       226
                                        * STRING.                                                                FAX       227
                                        *                                                                        FAX       228
                                         GCH      MACRO  Z                                                       FAX       229
                                                  A_Z    X5,B4                                                   FAX       230
                                                  SB4    B4-B6                                                   FAX       231
                                                  B_Z    -X0*_Z                                                  FAX       232
                                                  ENDM                                                           FAX       233
  
  
                                         CWD      MACRO                                                          FAX       235
                                         +        PL     B4,*+1                                                  FAX       236
                                                  SA5    A5+B5                                                   FAX       237
                                                  SB4    B7                                                      FAX       238
                                                  ENDM                                                           FAX       239
                                        *                                                                        FAX       240
                                        * THE FOLLOWING SYSTEM OF MACROS IS USED TO RELOCATE CODE BLOCKS INTO    FAX       241
                                        * UNUSED PORTIONS OF THE OPCODE VECTORS WHEN "MOVMAC" IS SET TO 0        FAX       242
                                        *                                                                        FAX       243
                                   0     MOVMAC   EQU    TEST+DEBUG                                              FAX       244
  
  
                               10000     MOVMAX   EQU    10000B                                                  FAX       246
                                   0     ORGORD   SET    0                                                       FAX       247
                                   0     CSAVE    SET    0                                                       FAX       248
  
  
                                         IFM      IFEQ   MOVMAC,0                                                FAX       250
                                                                                                                 FAX       251
                                         ORGSTART MACRO                                                          FAX       252
                                                  BSS    0                                                       FAX       253
                                         ORGFWA   SET    *                                                       FAX       254
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     7
         MACRO DEFINITIONS
  
                                         ORGORD   SET    ORGORD+1                                                FAX       255
                                                  ENDM                                                           FAX       256
  
  
                                         ORGEND   MACRO                                                          FAX       258
                                                  BSS    0                                                       FAX       259
                                         OC       DECMIC ORGORD,3                                                FAX       260
                                         ORGN"OC" SET    *-ORGFWA                                                FAX       261
                                         ORGL"OC" SET    ORGFWA                                                  FAX       262
                                                  ENDM                                                           FAX       263
                                                                                                                 FAX       264
                                         IFM      ELSE                                                           FAX       265
                                         ORGSTART OPSYN  NIL                                                     FAX       266
                                         ORGEND   OPSYN  NIL                                                     FAX       267
                                         MOVSTART OPSYN  NIL                                                     FAX       268
                                         MOVEND   OPSYN  NIL                                                     FAX       269
                                         IFM      ENDIF                                                          FAX       270
                                                                                                                 FAX       271
                                         LOOK     MACRO  A                                                       FAX       272
                                         LOOKI    SET    LOOKI+1                                                 FAX       273
                                         LOOKC    DECMIC LOOKI,3                                                 FAX       274
                                                  IFGE   ORGN"LOOKC",A,3                                         FAX       275
                                                  IFLT   ORGN"LOOKC",LOOKS,2                                     FAX       276
                                         LOOKS    SET    ORGN"LOOKC"                                             FAX       277
                                         LOOKSC   MICRO  1,,$"LOOKC"$                                            FAX       278
                                                  IFLT   LOOKI,ORGORD,1                                          FAX       279
                                                  LOOK   A                                                       FAX       280
                                                  ENDM                                                           FAX       281
  
  
                                         IFMM     IFEQ   MOVMAC,0                                                FAX       283
                                                                                                                 FAX       284
                                         MOVSTART MACRO  A                                                       FAX       285
                                         MSIDENT  MICRO  1,,$"SEQUENCE"$                                         FAX       286
                                                  BSS    0                                                       FAX       287
                                         LOOKS    SET    MOVMAX                                                  FAX       288
                                         LOOKI    SET    0                                                       FAX       289
                                                  LOOK   A                                                       FAX       290
                                         MSLEN    SET    A                                                       FAX       291
                                                  IFNE   LOOKS,MOVMAX,5                                          FAX       292
                                         CSAVE    SET    CSAVE+A                                                 FAX       293
                                         ORGB     SET    *                                                       FAX       294
                                                  ORG    ORGL"LOOKSC"                                            FAX       295
                                         ORGL"LOOKSC"  SET  ORGL"LOOKSC"+A                                       FAX       296
                                         ORGN"LOOKSC"  SET  ORGN"LOOKSC"-A                                       FAX       297
                                         MSORG    SET    *                                                       FAX       298
                                                  ENDM                                                           FAX       299
                                                                                                                 FAX       300
                                                                                                                 FAX       301
                                                                                                                 FAX       302
                                         MOVEND   MACRO                                                          FAX       303
                                                  BSS    0                                                       FAX       304
                                                  IFNE   *,MSORG+MSLEN,2                                         FAX       305
                                         TRUELEN  OCTMIC *-MSORG,3                                               FAX       306
                                                  ERR    MOVSTART CALL AT "MSIDENT" - CODE LENGTH PARAMETER SHOU FAX       307
                                        ,LD BE "TRUELEN"B WORDS.                                                 FAX       308
                                                  IFNE   LOOKS,MOVMAX,1                                          FAX       309
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     8
         MACRO DEFINITIONS
  
                                                  ORG    ORGB                                                    FAX       310
                                                  ENDM                                                           FAX       311
                                                                                                                 FAX       312
                                         IFMM     ENDIF                                                          FAX       313
  
  
  
                                         RL=      MACRO  TYPE              ADJUST RELOCATION AFTER WRITING A WOR FAX       315
                                                  SX3    RL$TYPE                                                 FAX       316
                                                  BX6    X3+X6                                                   FAX       317
                                                  SA6    A3                                                      FAX       318
                                                  ENDM                                                           FAX       319
                                                                                                                 FAX       320
                                         WR1WD    MACRO  WORD,RETURN                                             FAX       321
                                                  IFC    NE,/WORD//,1                                            FAX       322
                                                  SA4    WORD                                                    FAX       323
                                                  SB1    60                                                      FAX       324
                                                  SB6    RETURN  *+2-*P/60D                                      FAX       325
                                                  EQ     WRTEXT                                                  FAX       326
                                                  ENDM                                                           FAX       327
  
  
  
  
                                        **        LISTER - LIST ONE LINE (CONDITIONAL).                          FAX       329
                                        *                                                                        FAX       330
                                        *         LISTS ONE LINE IF BINARY LIST OPTION IS ON (O = .NZ.).         FAX       331
                                        *                                                                        FAX       332
                                        *         ENTRY  *FWA* = LINE ADDRESS                                    FAX       333
                                        *                *WC*  = LINE LENGTH (WORDS)                             FAX       334
                                        *                                                                        FAX       335
                                        *         USES   A2, X2, B1, B5                                          FAX       336
                                        *                                                                        FAX       337
                                        *         CALLS  LISTL (FA=LOL)                                          FAX       338
                                                                                                                 FAX       339
                                                                                                                 FAX       340
                                                  PURGMAC   LISTER                                               FAX       341
                                                                                                                 FAX       342
                                         LISTER   MACRO  FWA,WC                                                  FAX       343
                                                  LOCAL  EXIT                                                    FAX       344
                                                  SA2    OLIST                                                   FAX       345
                                                  SB1    1                                                       FAX       346
                                                  ZR     X2,EXIT                                                 FAX       347
                                                  LISTL  FWA,WC                                                  FAX       348
                                                  SB5    B1+                                                     FAX       349
                                         EXIT     BSS    0                                                       FAX       350
                                         LISTER   ENDM                                                           FAX       351
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE     9
         MACRO DEFINITIONS                                            STLTAB
  
                                        **        STLTAB - GENERATE STATIC LOAD WEAK EXTERNAL XLINK TABLE.       FCCA408   227
                                        *                                                                        FCCA408   228
                                        *         STLTAB NAME                                                    FCCA408   229
                                        *                                                                        FCCA408   230
                                        *         ARGS   *NAME*   = NAME OF AN *FCL* STATIC LOAD BLOCK.          FCCA408   231
                                        *                                                                        FCCA408   232
                                        *            THIS MACRO GENERATES THE *XLINK* TABLE BODY FOR THE STATIC  FCCA408   233
                                        *         LOAD WEAK EXTERNAL TABLE.  THE FINAL CORE ADDRESS ARE PLUGGED  FCCA408   234
                                        *         IN LATER BY *FAX* JUST BEFORE WRITING THE WHOLE TO THE BINARY  FCCA408   235
                                        *         FILE.  NOTE  HOWEVER  THAT  THE  REST  OF THIS TABLE IS *HARD  FCCA408   236
                                        *         WIRED*,  I.E. THERE ARE TWO ADDRESSES PER WORD, FIXED LENGTH,  FCCA408   237
                                        *         ETC..                                                          FCCA408   238
                                                                                                                 FCCA408   239
                                                                                                                 FCCA408   240
                                                  PURGMAC STLTAB                                                 FCCA408   241
                                                                                                                 FCCA408   242
                                         STLTAB   MACRO  NAME                                                    FCCA408   243
                                                  IF     -DEF,T.1,2                                              FCCA408   244
                                         T.1      SET    N.STL                                                   FCCA408   245
                                         S.1      SET    0                                                       FCCA408   246
                                         .1       IFEQ   S.1,0                                                   FCCA408   247
                                         S.1      SET    30                                                      FCCA408   248
                                         .1       ELSE                                                           FCCA408   249
                                         S.1      SET    0                                                       FCCA408   250
                                         .1       ENDIF                                                          FCCA408   251
                                                  VFD    42/0L_NAME,18/1                                         FCCA408   252
                                                  VFD    30/**,6/S.1,6/30,9/0,9/1                                FCCA408   253
                                         T.1      SET    T.1-1                                                   FCCA408   254
                                                  IFNE   T.1,0,1                                                 FCCA408   255
                                                  CON    0                                                       FCCA408   256
                                         STLTAB   ENDM                                                           FCCA408   257
  
  
  
  
                                        **        GENERATE THE STATIC LOAD WEAK EXTERNAL TABLE.                  FCCA408   259
                                                                                                                 FCCA408   260
            46  45000043000000000000     S.WEXT   VFD    12/4500B,12/N.STL*3-1,*P/0                              FCCA408   261
                                                                                                                 FCCA408   262
            47  23241403221557000001              STLTAB STLCRM.,1                                               STLOAD      8
            52  23241422203557000001              STLTAB STLRP2.                                                 STLOAD      9
            55  23241411031757000001              STLTAB STLICO.                                                 STLOAD     10
            60  23241417031757000001              STLTAB STLOCO.                                                 STLOAD     11
            63  23241411021157000001              STLTAB STLIBI.                                                 STLOAD     12
            66  23241417021157000001              STLTAB STLOBI.                                                 STLOAD     13
            71  23241411022557000001              STLTAB STLIBU.                                                 STLOAD     14
            74  23241417022557000001              STLTAB STLOBU.                                                 STLOAD     15
            77  23241402011357000001              STLTAB STLBAK.                                                 STLOAD     16
           102  23241405160657000001              STLTAB STLENF.                                                 STLOAD     17
           105  23241422052757000001              STLTAB STLREW.                                                 STLOAD     18
           110  23241403151557000001              STLTAB STLCMM.                                                 FCCA535     9
                                                                                                                 FCCA408   264
                                  44     L.WEXT   EQU    *-S.WEXT                                                FCCA408   265
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    10
         TRANSFER VECTORS 
  
                                        *                                                                        FAX       353
                                        * COL1VEC IS USED TO MAKE A DECISION ON THE FIRST CHARACTER OF A         FAX       354
                                        * SOURCE STATEMENT.                                                      FAX       355
                                        *                                                                        FAX       356
           112                           COL1VEC  BSS    0                 COLUMN 1 VECTOR                       FAX       357
           112  0400003446 +             +        EQ     ILL               ZERO                                  FAX       358
                                  32              DUP    32B,1                                                   FAX       359
                                         +        EQ     PLABEL            A - Z                                 FAX       360
           145                                    ORGSTART                                                       FAX       361
                                  12              DUP    12B,1                                                   FAX       362
                                         +        EQ     ILL               0 - 9                                 FAX       363
           157                                    ORGEND                                                         FAX       364
           157  7160000001               +        SX6    1                 +                                     FAX       365
                          0400000360 +            EQ     PFC                                                     FAX       366
           160  7160777776               +        SX6    -1                -                                     FAX       367
                          0400000360 +            EQ     PFC                                                     FAX       368
           161  0400001717 +                      EQ     PCOMM             *  COMMENT CARD                       FAX       369
           162  0400003446 +             +        EQ     ILL               /                                     FAX       370
           163  0400000624 +                      EQ     PLABEL            (                                     FAX       371
           164  0400000624 +             +        EQ     PLABEL            )                                     FAX       372
           165                                    ORGSTART                                                       FAX       373
           165  0400003446 +             +        EQ     ILL               $                                     FAX       374
           166  0400003446 +             +        EQ     ILL               =                                     FAX       375
           167                                    ORGEND                                                         FAX       376
           167  0400001733 +             +        EQ     BLANK             BLANK                                 FAX       377
           170  0400003446 +             +        EQ     ILL               ,                                     FAX       378
           171  0400000624 +             +        EQ     PLABEL            .                                     FAX       379
           172  0400000624 +             +        EQ     PLABEL            #                                     FAX       380
           173  0400000624 +             +        EQ     PLABEL            [                                     FAX       381
           174  0400000624 +             +        EQ     PLABEL            ]                                     FAX       382
           175                                    ORGSTART                                                       FAX       383
           175  0400003446 +             +        EQ     ILL               :                                     FAX       384
           176  0400003446 +             +        EQ     ILL               "                                     FAX       385
           177  0400003446 +             +        EQ     ILL               _                                     FAX       386
           200  0400003446 +             +        EQ     ILL               !                                     FAX       387
           201  0400003446 +             +        EQ     ILL               &                                     FAX       388
           202  0400003446 +             +        EQ     ILL               '                                     FAX       389
           203                                    ORGEND                                                         FAX       390
           203  0400000624 +             +        EQ     PLABEL            ?                                     FAX       391
                                        *                                                                        FAX       392
                                        *         OPERATION CODE RECOGNITION TRANSFER VECTORS                    FAX       393
                                        *                                                                        FAX       394
                                        *                   SET B2 TO FIRST LETTER                               FAX       395
                                        *                   SET B3 TO SECOND LETTER                              FAX       396
                                        *                   JP        FLVEC-1+B2                                 FAX       397
                                        *                                                                        FAX       398
                                        *         FIRST LETTER VECTOR                                            FAX       399
                                        *                                                                        FAX       400
           204                           FLVEC    BSS    0                                                       FAX       401
           204  0233000235 +             +        JP     AVEC-1+B3         A                                     FAX       402
           205  0233000267 +             +        JP     BVEC-1+B3         B                                     FAX       403
           206  7170000033                        SX7    1R0                                                     FAX       404
                          0400002042 +            EQ     L3.CNT                                                  FAX       405
           207  0233000321 +             +        JP     DVEC-1+B3         D                                     FAX       406
           210  0233000353 +             +        JP     EVEC-1+B3         E                                     FAX       407
           211  0233000405 +             +        JP     FVEC-1+B3         F                                     FAX       408
           212  7140000600               PGE      SX4    0600B             G                                     FAX       409
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    11
         TRANSFER VECTORS 
  
                          0400002475 +            EQ     PGNAME            GE OR GNAME                           FAX       410
           213  0400002316 +                      EQ     PHOL              HOL                                   FAX       411
           214  0233000437 +             +        JP     IVEC-1+B3         I                                     FAX       412
           215  7140000200               PJP      SX4    0200B       J                                           FAX       413
                          0400000175 +            EQ     L3.JP                                                   FAX       414
           216  0400003446 +             +        EQ     ILL               K                                     FAX       415
           217  0233000471 +             +        JP     LVEC-1+B3         L                                     FAX       416
           220  0233000523 +             +        JP     MVEC-1+B3         M                                     FAX       417
           221  0233000555 +             +        JP     NVEC-1+B3         N                                     FAX       418
           222  0400002423 +                      EQ     PORG              ORG                                   FAX       419
           223  0233000607 +             +        JP     PVEC-1+B3         P                                     FAX       420
           224  0400003446 +             +        EQ     ILL               Q                                     FAX       421
           225  0233000641 +             +        JP     RVEC-1+B3         R                                     FAX       422
           226  0233000673 +             +        JP     SVEC-1+B3         S                                     FAX       423
           227  0400000145 +             +        EQ     PTRACE            TRACE                                 FAX       424
           230  0233000725 +             +        JP     UVEC-1+B3         U                                     FAX       425
           231  13333                             BX3    X3-X3                                                   FAX       426
                     0400002154 +                 EQ     L3.VFD                                                  FAX       427
           232  7140001500               PWX      SX4    1500B                                                   FAX       428
                          0400000377 +            EQ     L3.RWX                                                  FAX       429
           233                                    ORGSTART                                                       FAX       430
           233  0400003446 +             +        EQ     ILL               X                                     FAX       431
           234  0400003446 +             +        EQ     ILL               Y                                     FAX       432
           235                                    ORGEND                                                         FAX       433
                                         #T       IFNE   TEST,0                                                  FCCT003    37
                                        +         JP     ZVEC-1+B3                                               FCCT003    38
                                         #T       ELSE                                                           FCCT003    39
           235  7140000300               PZR      SX4    0300B             Z                                     FAX       434
                          0400000425 +            EQ     L3.XJP                                                  FAX       435
                                         #T       ENDIF                                                          FCCT003    40
                                        *                                                                        FAX       436
                                        *         SECOND LETTER VECTORS                                          FAX       437
                                        *                                                                        FAX       438
           236                           AVEC     BSS    0                 A VECTOR                              FAX       439
           236                                    ORGSTART                                                       FAX       440
           236  0400003446 +             +        EQ     ILL               A                                     FAX       441
           237  0400003446 +             +        EQ     ILL               B                                     FAX       442
           240  0400003446 +             +        EQ     ILL               C                                     FAX       443
           241  0400003446 +             +        EQ     ILL               D                                     RSM3545C   49
           242  0400003446 +             +        EQ     ILL               E                                     FAX       447
           243  0400003446 +             +        EQ     ILL               F                                     FAX       448
           244  0400003446 +             +        EQ     ILL               G                                     FAX       449
           245  0400003446 +             +        EQ     ILL               H                                     FAX       450
           246  0400003446 +             +        EQ     ILL               I                                     FAX       451
           247  0400003446 +             +        EQ     ILL               J                                     FAX       452
           250  0400003446 +             +        EQ     ILL               K                                     FAX       453
           251  0400003446 +             +        EQ     ILL               L                                     FAX       454
           252  0400003446 +             +        EQ     ILL               M                                     FAX       455
           253  0400003446 +             +        EQ     ILL               N                                     FAX       456
           254  0400003446 +             +        EQ     ILL               O                                     FAX       457
           255                                    ORGEND                                                         FAX       458
           255  0400002236 +             +        EQ     PAPL              APL                                   FAX       459
           256                                    ORGSTART                                                       FAX       460
           256  0400003446 +             +        EQ     ILL               Q                                     FAX       461
           257  0400003446 +             +        EQ     ILL               R                                     FAX       462
           260  0400003446 +             +        EQ     ILL               S                                     FAX       463
           261  0400003446 +             +        EQ     ILL               T                                     FAX       464
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    12
         TRANSFER VECTORS 
  
           262  0400003446 +             +        EQ     ILL               U                                     FAX       465
           263  0400003446 +             +        EQ     ILL               V                                     FAX       466
           264  0400003446 +             +        EQ     ILL               W                                     FAX       467
           265                                    ORGEND                                                         FAX       468
           265  7140021000               PAXI     SX4    21000B            X                                     FAX       469
                          0400000404 +            EQ     L3.SH                                                   FAX       470
           266                                    ORGSTART                                                       FAX       471
           266  0400003446 +             +        EQ     ILL               Y                                     FAX       472
           267  0400003446 +             +        EQ     ILL               Z                                     FAX       473
           270                           BVEC     BSS    0                 B VECTOR                              FAX       474
           270  0400003446 +             +        EQ     ILL               A                                     FAX       475
           271  0400003446 +             +        EQ     ILL               B                                     FAX       476
           272  0400003446 +             +        EQ     ILL               C                                     FAX       477
           273  0400003446 +             +        EQ     ILL               D                                     FAX       478
           274  0400003446 +             +        EQ     ILL               E                                     FAX       479
  
  
           275  0400003446 +             +        EQ     ILL               F                                     FAX       481
           276  0400003446 +             +        EQ     ILL               G                                     FAX       482
           277  0400003446 +             +        EQ     ILL               H                                     FAX       483
           300  0400003446 +             +        EQ     ILL               I                                     FAX       484
           301  0400003446 +             +        EQ     ILL               J                                     FAX       485
           302  0400003446 +             +        EQ     ILL               K                                     FAX       486
           303  0400003446 +             +        EQ     ILL               L                                     FAX       487
           304  0400003446 +             +        EQ     ILL               M                                     FAX       488
           305  0400003446 +             +        EQ     ILL               N                                     FAX       489
           306  0400003446 +             +        EQ     ILL               O                                     FAX       490
           307  0400003446 +             +        EQ     ILL               P                                     FAX       491
           310  0400003446 +             +        EQ     ILL               Q                                     FAX       492
           311  0400003446 +             +        EQ     ILL               R                                     FAX       493
           312                                    ORGEND                                                         FAX       494
           312  6120000757 +             +        SB2    TLVEC-1           S                                     FAX       495
                          0400000516 +            EQ     PNL                                                     FAX       496
           313                                    ORGSTART                                                       FAX       497
           313  0400003446 +             +        EQ     ILL               T                                     FAX       498
           314  0400003446 +             +        EQ     ILL               U                                     FAX       499
           315  0400003446 +             +        EQ     ILL               V                                     FAX       500
           316  0400003446 +             +        EQ     ILL               W                                     FAX       501
           317                                    ORGEND                                                         FAX       502
           317  0400000333 +             +        EQ     L3.BOOL           X                                     FAX       503
           320                                    ORGSTART                                                       FAX       504
           320  0400003446 +             +        EQ     ILL               Y                                     FAX       505
           321  0400003446 +             +        EQ     ILL               Z                                     FAX       506
           322                                    ORGEND                                                         FAX       507
           322                           DVEC     BSS    0                 D VECTOR                              FAX       508
           322  6110000055               +        SB1    1R                A                                     FAX       509
                          0400000535 +            EQ     PDATA                                                   FAX       510
           323                                    ORGSTART                                                       FAX       511
           323  0400003446 +             +        EQ     ILL               B                                     FAX       512
           324  0400003446 +             +        EQ     ILL               C                                     FAX       513
           325  0400003446 +             +        EQ     ILL               D                                     FAX       514
           326  0400003446 +             +        EQ     ILL               E                                     RSM3545C   50
           327  0400003446 +             +        EQ     ILL               F                                     FAX       518
           330  0400003446 +             +        EQ     ILL               G                                     FAX       519
           331  0400003446 +             +        EQ     ILL               H                                     FAX       520
           332                                    ORGEND                                                         FAX       521
           332  0400002225 +             +        EQ     PDIS              I                                     FAX       522
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    13
         TRANSFER VECTORS 
  
           333                                    ORGSTART                                                       FAX       523
           333  0400003446 +             +        EQ     ILL               J                                     FAX       524
           334  0400003446 +             +        EQ     ILL               K                                     FAX       525
           335  0400003446 +             +        EQ     ILL               L                                     FAX       526
           336  0400003446 +             +        EQ     ILL               M                                     FAX       527
           337  0400003446 +             +        EQ     ILL               N                                     FAX       528
           340  0400003446 +             +        EQ     ILL               O                                     FAX       529
           341  0400003446 +             +        EQ     ILL               P                                     FAX       530
           342  0400003446 +             +        EQ     ILL               Q                                     FAX       531
           343  0400003446 +             +        EQ     ILL               R                                     FAX       532
           344  0400003446 +             +        EQ     ILL               S                                     FAX       533
           345  0400003446 +             +        EQ     ILL               T                                     FAX       534
           346  0400003446 +             +        EQ     ILL               U                                     FAX       535
           347  0400003446 +             +        EQ     ILL               V                                     FAX       536
           350  0400003446 +             +        EQ     ILL               W                                     FAX       537
           351                                    ORGEND                                                         FAX       538
           351  7140002000               PDXI     SX4    02000B            X                                     FAX       539
                          0400002047 +            EQ     L3.ARIT                                                 FAX       540
           352                                    ORGSTART                                                       FAX       541
           352  0400003446 +             +        EQ     ILL               Y                                     FAX       542
           353  0400003446 +             +        EQ     ILL               Z                                     FAX       543
           354                           EVEC     BSS    0                 E VECTOR                              FAX       544
           354  0400003446 +             +        EQ     ILL               A                                     FAX       545
           355  0400003446 +             +        EQ     ILL               B                                     FAX       546
           356  0400003446 +             +        EQ     ILL               C                                     FAX       547
           357                                    ORGEND                                                         FAX       548
           357  0400002011 +            +         EQ     L3.ED                                                   FAX       549
           360                                    ORGSTART                                                       FAX       550
           360  0400003446 +             +        EQ     ILL               E                                     FAX       551
           361  0400003446 +             +        EQ     ILL               F                                     FAX       552
           362  0400003446 +             +        EQ     ILL               G                                     FAX       553
           363  0400003446 +             +        EQ     ILL               H                                     FAX       554
           364                                    ORGEND                                                         FAX       555
           364  0400000476 +             +        EQ     PEIO              PROCESS EIO MACRO                     FAX       556
           365                                    ORGSTART                                                       FAX       557
           365  0400003446 +             +        EQ     ILL               J                                     FAX       558
           366  0400003446 +             +        EQ     ILL               K                                     FAX       559
           367  0400003446 +             +        EQ     ILL               L                                     FAX       560
           370  0400003446 +             +        EQ     ILL               M                                     FAX       561
           371                                    ORGEND                                                         FAX       562
           371  6120000757 +             +        SB2    TLVEC-1           N                                     FAX       563
                          0400000516 +            EQ     PNL                                                     FAX       564
           372                                    ORGSTART                                                       FAX       565
           372  0400003446 +             +        EQ     ILL               O                                     FAX       566
           373                                    ORGEND                                                         FAX       567
           373  0400001720 +                      EQ     NOBINPO           EPL                                   FAX       568
           374  6120000757 +             +        SB2    TLVEC-1           Q                                     FAX       569
                          0400000516 +            EQ     PNL                                                     FAX       570
           375  0400003446 +             +        EQ     ILL               R, ERR PSEUDO-OP                      FAX       571
           376                                    ORGSTART                                                       FAX       572
           376  0400003446 +             +        EQ     ILL               S                                     FAX       573
           377  0400003446 +             +        EQ     ILL               T                                     FAX       574
           400  0400003446 +             +        EQ     ILL               U                                     FAX       575
           401  0400003446 +             +        EQ     ILL               V                                     FAX       576
           402  0400003446 +             +        EQ     ILL               W                                     FAX       577
           403                                    ORGEND                                                         FAX       578
           403  0400001720 +             +        EQ     NOBINPO           X                                     FAX       579
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    14
         TRANSFER VECTORS 
  
           404                                    ORGSTART                                                       FAX       580
           404  0400003446 +             +        EQ     ILL               Y                                     FAX       581
           405  0400003446 +             +        EQ     ILL               Z                                     FAX       582
           406                           FVEC     BSS    0                 F VECTOR                              FAX       583
           406  0400003446 +             +        EQ     ILL               A                                     FAX       584
           407  0400003446 +             +        EQ     ILL               B                                     FAX       585
           410  0400003446 +             +        EQ     ILL               C                                     FAX       586
           411  0400003446 +             +        EQ     ILL               D                                     FAX       587
           412                                    ORGEND                                                         FAX       588
           412  0400001720 +                      EQ     NOBINPO                                                 FAX       589
           413                                    ORGSTART                                                       FAX       590
           413  0400003446 +             +        EQ     ILL               F                                     FAX       591
           414  0400003446 +             +        EQ     ILL               G                                     FAX       592
           415  0400003446 +             +        EQ     ILL               H                                     FAX       593
           416  0400003446 +                      EQ     ILL               I                                     FAX       594
           417  0400003446 +             +        EQ     ILL               J                                     FAX       595
           420  0400003446 +             +        EQ     ILL               K                                     FAX       596
           421  0400003446 +             +        EQ     ILL               L                                     FAX       597
           422                                    ORGEND                                                         FAX       598
           422  43044                             MX0    36                FMT                                   FAX       599
                     54555                        SA5    A5+B5             NEXT WORD                             FAX       600
                          0400002503 +            EQ     PFMT              FORMAT LABEL DEFINITION               FAX       601
           423                                    ORGSTART                                                       FAX       602
           423  0400003446 +             +        EQ     ILL               N                                     FAX       603
           424                                    ORGEND                                                         FAX       604
           424  0400001720 +             P        EQ     NOBINPO                                                 FAX       605
           425                                    ORGSTART                                                       FAX       606
           425  0400003446 +             +        EQ     ILL               P                                     FAX       607
           426  0400003446 +             +        EQ     ILL               Q                                     FAX       608
           427  0400003446 +             +        EQ     ILL               R                                     FAX       609
           430  0400003446 +             +        EQ     ILL               S                                     FAX       610
           431  0400003446 +             +        EQ     ILL               T                                     FAX       611
           432  0400003446 +             +        EQ     ILL               U                                     FAX       612
           433  0400003446 +             +        EQ     ILL               V                                     FAX       613
           434  0400003446 +             +        EQ     ILL               W                                     FAX       614
           435                                    ORGEND                                                         FAX       615
           435  13444                    PFXI     BX4    X4-X4                                                   FAX       616
                     0400002047 +                 EQ     L3.ARIT                                                 FAX       617
           436                                    ORGSTART                                                       FAX       618
           436  0400003446 +             +        EQ     ILL               Y                                     FAX       619
           437  0400003446 +             +        EQ     ILL               Z                                     FAX       620
           440                           IVEC     BSS    0                 I VECTOR                              FAX       621
           440  0400003446 +             +        EQ     ILL               A                                     FAX       622
           441  0400003446 +             +        EQ     ILL               B                                     FAX       623
           442  0400003446 +             +        EQ     ILL               C                                     FAX       624
           443                                    ORGEND                                                         FAX       625
           443  0400001175 +             +        EQ     PIDENT            D                                     FAX       626
           444                                    ORGSTART                                                       FAX       627
           444  0400003446 +             +        EQ     ILL               E                                     FAX       628
           445  0400003446 +             +        EQ     ILL               F                                     FAX       629
           446  0400003446 +             +        EQ     ILL               G                                     FAX       630
           447  0400003446 +             +        EQ     ILL               H                                     FAX       631
           450  0400003446 +             +        EQ     ILL               I                                     FAX       632
           451  0400003446 +             +        EQ     ILL               J                                     FAX       633
           452  0400003446 +             +        EQ     ILL               K                                     FAX       634
           453  0400003446 +             +        EQ     ILL               L                                     FAX       635
           454  0400003446 +             +        EQ     ILL               M                                     FAX       636
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    15
         TRANSFER VECTORS 
  
           455  0400003446 +             +        EQ     ILL               N                                     FAX       637
           456                                    ORGEND                                                         FAX       638
           456  0400002534 +             +        EQ     PIOM              PROCESS IOM MACRO                     FAX       639
           457                                    ORGSTART                                                       FAX       640
           457  0400003446 +             +        EQ     ILL               P                                     FAX       641
           460  0400003446 +             +        EQ     ILL               Q                                     FAX       642
           461  0400003446 +             +        EQ     ILL               R                                     FAX       643
           462  0400003446 +             +        EQ     ILL               S                                     FAX       644
           463  0400003446 +             +        EQ     ILL               T                                     FAX       645
           464  0400003446 +             +        EQ     ILL               U                                     FAX       646
           465  0400003446 +             +        EQ     ILL               V                                     FAX       647
           466  0400003446 +             +        EQ     ILL               W                                     FAX       648
           467                                    ORGEND                                                         FAX       649
           467  7140006000               PIXI     SX4    06000B            X                                     FAX       650
                          0400002047 +            EQ     L3.ARIT                                                 FAX       651
           470                                    ORGSTART                                                       FAX       652
           470  0400003446 +             +        EQ     ILL               Y                                     FAX       653
           471  0400003446 +             +        EQ     ILL               Z                                     FAX       654
           472                           LVEC     BSS    0                 L VECTOR                              FAX       655
           472                                    ORGEND                                                         FAX       656
           472  0400002250 +                      EQ     PLAP                                                    FAX       657
           473                                    ORGSTART                                                       FAX       658
           473  0400003446 +             +        EQ     ILL               B                                     FAX       659
           474  0400003446 +                      EQ     ILL               C                                     FAX       660
           475                                    ORGEND                                                         F162FTNA 1072
           475  0400002361 +                      EQ     PLDSET            D     PROCESS *LDSET*                 F162FTNA 1073
           476                                    ORGSTART                                                       F162FTNA 1074
           476  0400003446 +             +        EQ     ILL               E                                     FAX       662
           477  0400003446 +             +        EQ     ILL               F                                     FAX       663
           500  0400003446 +             +        EQ     ILL               G                                     FAX       664
           501  0400003446 +             +        EQ     ILL               H                                     FAX       665
           502  0400003446 +                      EQ     ILL               I                                     FAX       666
           503  0400003446 +             +        EQ     ILL               J                                     FAX       667
           504  0400003446 +             +        EQ     ILL               K                                     FAX       668
           505  0400003446 +             +        EQ     ILL               L                                     FAX       669
           506  0400003446 +             +        EQ     ILL               M                                     FAX       670
           507  0400003446 +             +        EQ     ILL               N                                     FAX       671
           510  0400003446 +             +        EQ     ILL               O                                     FAX       672
           511  0400003446 +             +        EQ     ILL               P                                     FAX       673
           512  0400003446 +             +        EQ     ILL               Q                                     FAX       674
           513  0400003446 +             +        EQ     ILL               R                                     FAX       675
           514  0400003446 +             +        EQ     ILL               S                                     FAX       676
           515                                    ORGEND                                                         FAX       677
           515  7140000700               PLT      SX4    0700B             T                                     FAX       678
                          0400000457 +            EQ     L3.BJP                                                  FAX       679
           516                                    ORGSTART                                                       FAX       680
           516  0400003446 +             +        EQ     ILL               U                                     FAX       681
           517  0400003446 +             +        EQ     ILL               V                                     FAX       682
           520  0400003446 +             +        EQ     ILL               W                                     FAX       683
           521                                    ORGEND                                                         FAX       684
           521  7140020000               PLXI     SX4    20000B            X                                     FAX       685
                          0400000404 +            EQ     L3.SH                                                   FAX       686
           522                                    ORGSTART                                                       FAX       687
           522  0400003446 +             +        EQ     ILL               Y                                     FAX       688
           523  0400003446 +             +        EQ     ILL               Z                                     FAX       689
           524                                    ORGEND                                                         FAX       690
           524                           MVEC     BSS    0                 M VECTOR                              FAX       691
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    16
         TRANSFER VECTORS 
  
           524                                    ORGSTART                                                       FAX       692
           524  0400003446 +                      EQ     ILL               A                                     FAX       693
           525  0400003446 +             +        EQ     ILL               B                                     FAX       694
           526  0400003446 +             +        EQ     ILL               C                                     FAX       695
           527  0400003446 +             +        EQ     ILL               D                                     FAX       696
           530  0400003446 +             +        EQ     ILL               E                                     FAX       697
           531  0400003446 +             +        EQ     ILL               F                                     FAX       698
           532  0400003446 +             +        EQ     ILL               G                                     FAX       699
           533  0400003446 +             +        EQ     ILL               H                                     FAX       700
           534                                    ORGEND                                                         FAX       701
           534  7140000330               PMI      SX4    0330B             I                                     FAX       702
                          0400000425 +            EQ     L3.XJP                                                  FAX       703
           535                                    ORGSTART                                                       FAX       704
           535  0400003446 +             +        EQ     ILL               J                                     FAX       705
           536  0400003446 +             +        EQ     ILL               K                                     FAX       706
           537  0400003446 +             +        EQ     ILL               L                                     FAX       707
           540  0400003446 +             +        EQ     ILL               M                                     FAX       708
           541  0400003446 +             +        EQ     ILL               N                                     FAX       709
           542  0400003446 +             +        EQ     ILL               O                                     FAX       710
           543  0400003446 +             +        EQ     ILL               P                                     FAX       711
           544  0400003446 +             +        EQ     ILL               Q                                     FAX       712
           545  0400003446 +             +        EQ     ILL               R                                     FAX       713
           546  0400003446 +             +        EQ     ILL               S                                     FAX       714
           547  0400003446 +             +        EQ     ILL               T                                     FAX       715
           550  0400003446 +             +        EQ     ILL               U                                     FAX       716
           551  0400003446 +             +        EQ     ILL               V                                     FAX       717
           552  0400003446 +             +        EQ     ILL               W                                     FAX       718
           553                                    ORGEND                                                         FAX       719
           553  7140043000               +        SX4    43000B            X                                     FAX       720
                          0400000404 +            EQ     L3.MX                                                   FAX       721
           554                                    ORGSTART                                                       FAX       722
           554  0400003446 +             +        EQ     ILL               Y                                     FAX       723
           555  0400003446 +             +        EQ     ILL               Z                                     FAX       724
           556                                    ORGEND                                                         FAX       725
           556                           NVEC     BSS    0                 N VECTOR                              FAX       726
           556  0400002761 +             +        EQ     PNAME             A                                     FAX       727
           557                                    ORGSTART                                                       FAX       728
           557  0400003446 +             +        EQ     ILL               B                                     FAX       729
           560  0400003446 +             +        EQ     ILL               C                                     FAX       730
           561  0400003446 +             +        EQ     ILL               D                                     FAX       731
           562                                    ORGEND                                                         FAX       732
           562  7140000500               PNE      SX4    0500B             E                                     FAX       733
                          0400000457 +            EQ     L3.BJP                                                  FAX       734
           563                                    ORGSTART                                                       FAX       735
           563  0400003446 +             +        EQ     ILL               F                                     FAX       736
           564  0400003446 +                      EQ     ILL               G                                     FAX       737
           565  0400003446 +             +        EQ     ILL               H                                     FAX       738
           566  0400003446 +             +        EQ     ILL               I                                     FAX       739
           567  0400003446 +             +        EQ     ILL               J                                     FAX       740
           570  0400003446 +             +        EQ     ILL               K                                     FAX       741
           571  0400003446 +             +        EQ     ILL               L                                     FAX       742
           572  0400003446 +             +        EQ     ILL               M                                     FAX       743
           573  0400003446 +             +        EQ     ILL               N                                     FAX       744
           574                                    ORGEND                                                         FAX       745
           574  7140046000               +        SX4    46000B            O                                     FAX       746
                          0400003210 +            EQ     L4.15                                                   FAX       747
           575                                    ORGSTART                                                       FAX       748
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    17
         TRANSFER VECTORS 
  
           575  0400003446 +             +        EQ     ILL               P                                     FAX       749
           576  0400003446 +             +        EQ     ILL               Q                                     FAX       750
           577  0400003446 +             +        EQ     ILL               R                                     FAX       751
           600  0400003446 +             +        EQ     ILL               S                                     FAX       752
           601  0400003446 +             +        EQ     ILL               T                                     FAX       753
           602  0400003446 +             +        EQ     ILL               U                                     FAX       754
           603  0400003446 +             +        EQ     ILL               V                                     FAX       755
           604  0400003446 +             +        EQ     ILL               W                                     FAX       756
           605                                    ORGEND                                                         FAX       757
           605  7140024000               PNXI     SX4    24000B            X                                     FAX       758
                          0400000352 +            EQ     L3.PUN                                                  FAX       759
           606  0400003446 +             +        EQ     ILL               Y                                     FAX       760
           607  7140000310               PNZ      SX4    0310B                                                   FAX       761
                          0400000425 +            EQ     L3.XJP                                                  FAX       762
           610                           PVEC     BSS    0                 P VECTOR                              FAX       763
           610                                    ORGSTART                                                       FAX       764
           610  0400003446 +             +        EQ     ILL               A                                     FAX       765
           611  0400003446 +             +        EQ     ILL               B                                     FAX       766
           612  0400003446 +             +        EQ     ILL               C                                     FAX       767
           613  0400003446 +             +        EQ     ILL               D                                     FAX       768
           614                                    ORGEND                                                         FAX       769
           614  0400001604 +             +        EQ     PPENTRY                                                 FAX       770
           615                                    ORGSTART                                                       FAX       771
           615  0400003446 +             +        EQ     ILL               F                                     FAX       772
           616  0400003446 +             +        EQ     ILL               G                                     FAX       773
           617  0400003446 +             +        EQ     ILL               H                                     FAX       774
           620  0400003446 +             +        EQ     ILL               I                                     FAX       775
           621  0400003446 +             +        EQ     ILL               J                                     FAX       776
           622  0400003446 +             +        EQ     ILL               K                                     FAX       777
           623                                    ORGEND                                                         FAX       778
           623  7140000320               PPL      SX4    0320B             L                                     FAX       779
                          0400000425 +            EQ     L3.XJP                                                  FAX       780
           624                                    ORGSTART                                                       FAX       781
           624  0400003446 +             +        EQ     ILL               M                                     FAX       782
           625  0400003446 +             +        EQ     ILL               N                                     FAX       783
           626  0400003446 +             +        EQ     ILL               O                                     FAX       784
           627  0400003446 +             +        EQ     ILL               P                                     FAX       785
           630  0400003446 +             +        EQ     ILL               Q                                     FAX       786
           631  0400003446 +             +        EQ     ILL               R                                     FAX       787
           632  0400003446 +             +        EQ     ILL               S                                     FAX       788
           633  0400003446 +             +        EQ     ILL               T                                     FAX       789
           634  0400003446 +             +        EQ     ILL               U                                     FAX       790
           635  0400003446 +             +        EQ     ILL               V                                     FAX       791
           636  0400003446 +             +        EQ     ILL               W                                     FAX       792
           637                                    ORGEND                                                         FAX       793
           637  7140027000               PPXI     SX4    27000B            X                                     FAX       794
                          0400000352 +            EQ     L3.PUN                                                  FAX       795
           640                                    ORGSTART                                                       FAX       796
           640  0400003446 +             +        EQ     ILL               Y                                     FAX       797
           641  0400003446 +             +        EQ     ILL               Z                                     FAX       798
           642                           RVEC     BSS    0                 R VECTOR                              FAX       799
           642  0400003446 +             +        EQ     ILL               A                                     FAX       800
           643  0400003446 +             +        EQ     ILL               B                                     FAX       801
           644  0400003446 +             +        EQ     ILL               C                                     FAX       802
           645  0400003446 +             +        EQ     ILL               D                                     FAX       803
           646                                    ORGEND                                                         FAX       804
           646  0400002332 +             +        EQ     PREPI                                                   FAX       805
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    18
         TRANSFER VECTORS 
  
           647                                    ORGSTART                                                       FAX       806
           647  0400003446 +             +        EQ     ILL               F                                     FAX       807
           650  0400003446 +             +        EQ     ILL               G                                     FAX       808
           651  0400003446 +             +        EQ     ILL               H                                     FAX       809
           652  0400003446 +             +        EQ     ILL               I                                     FAX       810
           653                                    ORGEND                                                         FAX       811
           653  7140000100               PRJ      SX4    0100B             J                                     FAX       812
                          0400000413 +            EQ     L3.RJ                                                   FAX       813
           654                                    ORGSTART                                                       FAX       814
           654  0400003446 +             +        EQ     ILL               K                                     FAX       815
           655  0400003446 +             +        EQ     ILL               L                                     FAX       816
           656  0400003446 +             +        EQ     ILL               M                                     FAX       817
           657  0400003446 +             +        EQ     ILL               N                                     FAX       818
           660  0400003446 +             +        EQ     ILL               O                                     FAX       819
           661  0400003446 +             +        EQ     ILL               P                                     FAX       820
           662  0400003446 +             +        EQ     ILL               Q                                     FAX       821
           663  0400003446 +             +        EQ     ILL               R                                     FAX       822
           664  0400003446 +             +        EQ     ILL               S                                     FAX       823
           665  0400003446 +             +        EQ     ILL               T                                     FAX       824
           666  0400003446 +             +        EQ     ILL               U                                     FAX       825
           667  0400003446 +             +        EQ     ILL               V                                     FAX       826
           670  0400003446 +             +        EQ     ILL               W                                     FAX       827
           671                                    ORGEND                                                         FAX       828
           671  0400000320 +             PRX      EQ     L3.RX                                                   FAX       829
           672                                    ORGSTART                                                       FAX       830
           672  0400003446 +             +        EQ     ILL               Y                                     FAX       831
           673  0400003446 +             +        EQ     ILL               Z                                     FAX       832
           674                                    ORGEND                                                         FAX       833
           674                           SVEC     BSS    0                 S VECTOR                              FAX       834
           674  7140051000               PSAI     SX4    51000B            A                                     FAX       835
                          0400000756 +            EQ     L3.SET                                                  FAX       836
           675  7140061000               PSBI     SX4    61000B            B                                     FAX       837
                          0400000756 +            EQ     L3.SET                                                  FAX       838
           676                                    ORGSTART                                                       FAX       839
           676  0400003446 +             +        EQ     ILL               C                                     FAX       840
           677  0400003446 +             +        EQ     ILL               D                                     FAX       841
           700  0400003446 +                      EQ     ILL               E                                     FAX       842
           701  0400003446 +             +        EQ     ILL               F                                     FAX       843
           702  0400003446 +             +        EQ     ILL               G                                     FAX       844
           703  0400003446 +             +        EQ     ILL               H                                     FAX       845
           704  0400003446 +             +        EQ     ILL               I                                     FAX       846
           705  0400003446 +             +        EQ     ILL               J                                     FAX       847
           706  0400003446 +             +        EQ     ILL               K                                     FAX       848
           707  0400003446 +             +        EQ     ILL               L                                     FAX       849
           710  0400003446 +             +        EQ     ILL               M                                     FAX       850
           711  0400003446 +             +        EQ     ILL               N                                     FAX       851
           712  0400003446 +             +        EQ     ILL               O                                     FAX       852
           713  0400003446 +             +        EQ     ILL               P                                     FAX       853
           714  0400003446 +             +        EQ     ILL               Q                                     FAX       854
           715  0400003446 +             +        EQ     ILL               R                                     FAX       855
           716  0400003446 +             +        EQ     ILL               S                                     FAX       856
           717  0400003446 +             +        EQ     ILL               T                                     FAX       857
           720                                    ORGEND                                                         FAX       858
           720  0400000453 +             +        EQ     PSUB              U                                     FAX       859
           721                                    ORGSTART                                                       FAX       860
           721  0400003446 +             +        EQ     ILL               V                                     FAX       861
           722  0400003446 +             +        EQ     ILL               W                                     FAX       862
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    19
         TRANSFER VECTORS 
  
           723                                    ORGEND                                                         FAX       863
           723  7140071000               PSXI     SX4    71000B            X                                     FAX       864
                          0400000756 +            EQ     L3.SET                                                  FAX       865
           724                                    ORGSTART                                                       FAX       866
           724  0400003446 +             +        EQ     ILL               Y                                     FAX       867
           725  0400003446 +             +        EQ     ILL               Z                                     FAX       868
           726                           UVEC     BSS    0                 U VECTOR                              FAX       869
           726  0400003446 +             +        EQ     ILL               A                                     FAX       870
           727  0400003446 +             +        EQ     ILL               B                                     FAX       871
           730  0400003446 +             +        EQ     ILL               C                                     FAX       872
           731  0400003446 +             +        EQ     ILL               D                                     FAX       873
           732  0400003446 +             +        EQ     ILL               E                                     FAX       874
           733  0400003446 +             +        EQ     ILL               F                                     FAX       875
           734  0400003446 +             +        EQ     ILL               G                                     FAX       876
           735  0400003446 +             +        EQ     ILL               H                                     FAX       877
           736  0400003446 +             +        EQ     ILL               I                                     FAX       878
           737  0400003446 +             +        EQ     ILL               J                                     FAX       879
           740  0400003446 +             +        EQ     ILL               K                                     FAX       880
           741  0400003446 +             +        EQ     ILL               L                                     FAX       881
           742  0400003446 +             +        EQ     ILL               M                                     FAX       882
           743  0400003446 +             +        EQ     ILL               N                                     FAX       883
           744  0400003446 +             +        EQ     ILL               O                                     FAX       884
           745  0400003446 +             +        EQ     ILL               P                                     FAX       885
           746  0400003446 +             +        EQ     ILL               Q                                     FAX       886
           747  0400003446 +             +        EQ     ILL               R                                     FAX       887
           750                                    ORGEND                                                         FAX       888
           750  0400002366 +             +        EQ     PUSE              S                                     FAX       889
           751                                    ORGSTART                                                       FAX       890
           751  0400003446 +             +        EQ     ILL               T                                     FAX       891
           752  0400003446 +             +        EQ     ILL               U                                     FAX       892
           753  0400003446 +             +        EQ     ILL               V                                     FAX       893
           754  0400003446 +             +        EQ     ILL               W                                     FAX       894
           755                                    ORGEND                                                         FAX       895
           755  7140026000               PUXI     SX4    26000B            X                                     FAX       896
                          0400000352 +            EQ     L3.PUN                                                  FAX       897
           756                                    ORGSTART                                                       FAX       898
           756  0400003446 +             +        EQ     ILL               Y                                     FAX       899
           757  0400003446 +             +        EQ     ILL               Z                                     FAX       900
                                         #T       IFNE   TEST,0                                                  FCCT003    41
                                         ZVEC     BSS    0                                                       FCCT003    42
                                                  DUP    1RQ-1RA+1,1                                             FCCT003    43
                                        +         EQ     ILL                                                     FCCT003    44
                                                  ORGEND                                                         FCCT003    45
                                         PZR      SX4    0300B                                                   FCCT003    46
                                                  EQ     L3.XJP                                                  FCCT003    47
                                                  ORGSTART                                                       FCCT003    48
                                                  DUP    1RW-1RS+1,1                                             FCCT003    49
                                        +         EQ     ILL                                                     FCCT003    50
                                                  ORGEND                                                         FCCT003    51
                                         PZXI     SX4    25000B                                                  FCCT003    52
                                                  EQ     L3.PUN                                                  FCCT003    53
                                                  ORGSTART                                                       FCCT003    54
                                        +         EQ     ILL               Y                                     FCCT003    55
                                        +         EQ     ILL               Z                                     FCCT003    56
                                         #T       ENDIF                                                          FCCT003    57
                                        *                                                                        FAX       901
                                        * THE LAST 3 VECTORS HAVE BEEN INCLUDED, ALONG WITH THE ROUTINE PNL      FAX       902
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    20
         TRANSFER VECTORS 
  
                                        * TO PROVIDE FOR EASE OF FUTURE MODIFICATION.                            FAX       903
                                        *                                                                        FAX       904
                                        *         THIRD LETTER VECTOR                                            FAX       905
                                        *                                                                        FAX       906
                                        *                   SET B2 TO THIRD LETTER                               FAX       907
                                        *                   JP        TLVEC-1,B2                                 FAX       908
                                        *                                                                        FAX       909
           760                           TLVEC    BSS    0                                                       FAX       910
           760  0400003446 +             +        EQ     ILL               A                                     FAX       911
           761  0400003446 +             +        EQ     ILL               B                                     FAX       912
           762  0400003446 +             +        EQ     ILL               C                                     FAX       913
           763                                    ORGEND                                                         FAX       914
           763  0400003501 +             +        EQ     PEND              D                                     FAX       915
           764                                    ORGSTART                                                       FAX       916
           764  0400003446 +             +        EQ     ILL               E                                     FAX       917
           765  0400003446 +             +        EQ     ILL               F                                     FAX       918
           766  0400003446 +             +        EQ     ILL               G                                     FAX       919
           767  0400003446 +             +        EQ     ILL               H                                     FAX       920
           770  0400003446 +             +        EQ     ILL               I                                     FAX       921
           771  0400003446 +             +        EQ     ILL               J                                     FAX       922
           772  0400003446 +             +        EQ     ILL               K                                     FAX       923
           773  0400003446 +             +        EQ     ILL               L                                     FAX       924
           774  0400003446 +             +        EQ     ILL               M                                     FAX       925
           775  0400003446 +             +        EQ     ILL               N                                     FAX       926
           776  0400003446 +             +        EQ     ILL               O                                     FAX       927
           777  0400003446 +             +        EQ     ILL               P                                     FAX       928
          1000  0400003446 +             +        EQ     ILL               Q                                     FAX       929
          1001  0400003446 +             +        EQ     ILL               R                                     FAX       930
          1002                                    ORGEND                                                         FAX       931
          1002  0400000764 +             +        EQ     PBSS              S                                     FAX       932
          1003  6120001034 +             +        SB2    L4VEC-1           T                                     FAX       933
                          0400000516 +            EQ     PNL                                                     FAX       934
          1004  13777                    +        BX7    X7-X7             U                                     FAX       935
                     0400000667 +                 EQ     L3.EQU                                                  FAX       936
          1005                                    ORGSTART                                                       FAX       937
                                  27              DUP    27B,1                                                   FAX       938
                                         +        EQ     ILL               V - =                                 FAX       939
          1034                                    ORGEND                                                         FAX       940
          1034  7140000400               PEQ      SX4    0400B             SPACE                                 FAX       941
                          0400000563 +            EQ     L3.EQ                                                   FAX       942
                                        *                                                                        FAX       943
                                        *         FOURTH LETTER VECTOR                                           FAX       944
                                        *                                                                        FAX       945
                                        *                   SET B2 TO FOURTH LETTER                              FAX       946
                                        *                   JP        L4VEC-1,B2                                 FAX       947
                                        *                                                                        FAX       948
          1035                           L4VEC    BSS    0                                                       FAX       949
          1035                                    ORGSTART                                                       FAX       950
          1035  0400003446 +             +        EQ     ILL               A                                     FAX       951
          1036  0400003446 +             +        EQ     ILL               B                                     FAX       952
          1037  0400003446 +             +        EQ     ILL               C                                     FAX       953
          1040  0400003446 +             +        EQ     ILL               D                                     FAX       954
          1041  0400003446 +             +        EQ     ILL               E                                     FAX       955
          1042  0400003446 +             +        EQ     ILL               F                                     FAX       956
          1043  0400003446 +             +        EQ     ILL               G                                     FAX       957
          1044  0400003446 +             +        EQ     ILL               H                                     FAX       958
          1045  0400003446 +             +        EQ     ILL               I                                     FAX       959
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    21
         TRANSFER VECTORS 
  
          1046  0400003446 +             +        EQ     ILL               J                                     FAX       960
          1047  0400003446 +             +        EQ     ILL               K                                     FAX       961
          1050  0400003446 +             +        EQ     ILL               L                                     FAX       962
          1051  0400003446 +             +        EQ     ILL               M                                     FAX       963
          1052  0400003446 +             +        EQ     ILL               N                                     FAX       964
          1053  0400003446 +             +        EQ     ILL               O                                     FAX       965
          1054  0400003446 +             +        EQ     ILL               P                                     FAX       966
          1055  0400003446 +             +        EQ     ILL               Q                                     FAX       967
          1056                                    ORGEND                                                         FAX       968
          1056  6120001066 +             +        SB2    L5VEC-1           R                                     FAX       969
                          0400000516 +            EQ     PNL                                                     FAX       970
          1057                                    ORGSTART                                                       FAX       971
          1057  0400003446 +             +        EQ     ILL               S                                     FAX       972
          1060  0400003446 +             +        EQ     ILL               T                                     FAX       973
          1061  0400003446 +             +        EQ     ILL               U                                     FAX       974
          1062  0400003446 +             +        EQ     ILL               V                                     FAX       975
          1063  0400003446 +             +        EQ     ILL               W                                     FAX       976
          1064  0400003446 +             +        EQ     ILL               X                                     FAX       977
          1065  0400003446 +             +        EQ     ILL               Y                                     FAX       978
          1066  0400003446 +             +        EQ     ILL               Z                                     FAX       979
                                        *                                                                        FAX       980
                                        *         FIFTH LETTER VECTOR                                            FAX       981
                                        *                                                                        FAX       982
                                        *                   SET B2 TO FIFTH LETTER                               FAX       983
                                        *                   JP        L5VEC-1,B2                                 FAX       984
                                        *                                                                        FAX       985
          1067                           L5VEC    BSS    0                                                       FAX       986
                                  30              DUP    30B,1                                                   FAX       987
                                         +        EQ     ILL               A - X                                 FAX       988
          1117                                    ORGEND                                                         FAX       989
          1117  0400001720 +             +        EQ     NOBINPO           Y                                     FAX       990
          1120                                    ORGSTART                                                       FAX       991
                                  25              DUP    25B,1                                                   FAX       992
                                         +        EQ     ILL               Z - ,                                 FAX       993
          1145                                    ORGEND                                                         FAX       994
          1145  0400003067 +             +        EQ     PENTR.            .                                     FAX       995
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    22
         INITIALIZATION 
  
          1146  0400401146 +             FTNXAS   ENTRY. **          ** MAIN ENTRY/EXIT **                       FAX       998
                                                                                                                 FAX       999
                                        *         INITIALIZE PREFIX (77) TABLE.                                  FAX      1000
                                                                                                                 FAX      1001
          1147  5110000000 X                      SA1    =XPROGNAM   (X1) = PROGRAM UNIT NAME                    FAX      1002
                          6110000001              SB1    1                                                       FAX      1003
          1150  43052                             MX0    L.NAME                                                  FAX      1004
                     11601                        BX6    X0*X1                                                   FAX      1005
                          0100003167 +            CALL   RTB         REMOVE TRAILING BLANKS                      FAX      1006
          1151  5160000001 +                      SA6    PREFIX+1                                                FAX      1007
                          6120000006              SB2    6                                                       FAX      1008
                                                                                                                 FAX      1009
                                         #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED           FAX      1010
          1152  5110000000 X                      SA1    =XLEVEL2    -LEVEL 2 STMT APPEARED- FLAG                FAX      1011
                          5120000007 +            SA2    PREFIX+7B   HARDWARE DEPENDENCIES WORD                  FAX      1012
          1153  0301001155 +                      ZR     X1,PRF2     IF NO LEVEL 2 STATEMENTS                    FAX      1013
                          7160000041              SX6    1RL&1R                                                  FAX      1014
          1154  20652                             LX6    48-6*OBJIMULT/OBJIMULT                                  FAX      1015
                     13726                        BX7    X2-X6                                                   FAX      1016
                          46000                   NO                                                             FAX      1017
                               54720              SA7    A2          LCM HARDWARE DEPENDANCY TO PREFIX TABLE     FAX      1018
          1155                           PRF2     BSS    0                                                       FAX      1019
                                         #DAL     ENDIF                                                          FAX      1020
                                                                                                                 FAX      1021
          1155  5110000000 X                      SA1    =XTL.DATE                                               FAX      1022
                          5120000000 X            SA2    =XTL.TIME                                               FAX      1023
          1156  5130000000 X                      SA3    =XTL.CCOP   CONTROL CARD OPTIONS                        FAX      1024
                          54431                   SA4    A3+B1                                                   FAX      1025
                               54541              SA5    A4+B1                                                   FAX      1026
          1157  22621                             LX6    X1,B2                                                   FAX      1027
                     54661                        SA6    A6+B1                                                   FAX      1028
                          22722                   LX7    X2,B2                                                   FAX      1029
                               54761              SA7    A6+B1                                                   FAX      1030
          1160  5110000056                        SA1    PROGRAM     DETERMINE PROGRAM UNIT TYPE                 FCC1513X    8
                          26031                   UX0    B3,X1                                                   FCC1513X    9
          1161  0311001162 +                      NZ     X1,PRF2A    IF NOT BLOCK DATA                           FCC1513X   10
                          67301                   SB3    -B1                                                     FCC1513X   11
          1162  66331                    PRF2A    SB3    B3+B1                                                   FCC1513X   12
                     5113001171 +                 SA1    PTYPE+B3                                                FCC1513X   13
                               10611              BX6    X1                                                      FCC1513X   14
          1163  5160000010 +                      SA6    PREFIX+10B                                              FCC1513X   15
                          5110003665 +            SA1    =1H                                                     FAX      1031
          1164  10633                             BX6    X3                                                      FAX      1032
                     22704                        LX7    X4                                                      FAX      1033
                          37041                   IX0    X4-X1                                                   FAX      1034
          1165  0310001166 +                      NZ     X0,PRF3     IF OPTION WORD NON-BLANK                    FAX      1035
                          13777                   BX7    X7-X7       PREFIX TABLE TERMINATOR                     FAX      1036
          1166  5160000011 +             PRF3     SA6    PREFIX+11B                                              FCC1513X   16
                          37051                   IX0    X5-X1                                                   FAX      1038
                               54761              SA7    A6+B1                                                   FAX      1039
          1167  10655                             BX6    X5                                                      FAX      1040
                     0310001170 +                 NZ     X0,PRF4     IF OPTION WORD NON-BLANK                    FAX      1041
                               13666              BX6    X6-X6                                                   FAX      1042
          1170  54671                    PRF4     SA6    A7+B1                                                   FAX      1043
                     0400001721 +                 EQ     INITL                                                   FAX      1068
                                                                                                                 FCC1513X   17
                                                                                                                 FCC1513X   18
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    23
         INITIALIZATION 
  
          1171  02141703130401240155     PTYPE    DATA   9HBLOCKDATA                                             FCC1513X   19
          1172  20221707220115555555              DATA   7HPROGRAM                                               FCC1513X   20
          1173  23250222172524111605              DATA   10HSUBROUTINE                                           FCC1513X   21
          1174  06251603241117165555              DATA   8HFUNCTION                                              FCC1513X   22
  
  
  
  
                                        ***                                                                      FAX      1070
                                        *         PLUGS TO ACTIVATE THE O LISTING                                FAX      1071
                                        *                                                                        FAX      1072
          1175                                    MOVSTART  2                                                    FAX      1073
           165  56672                    RJWRL1   SA6    B7+B2                                                   FAX      1074
                     55775                        SA7    A7-B5                                                   FAX      1075
                          0100003272 +            RJ     WRLIST                                                  FAX      1076
           166  66600                    RJWRL2   SB6    B0                                                      FAX      1077
                     66150                        SB1    B5                                                      FAX      1078
                          0100003272 +            RJ     WRLIST                                                  FAX      1079
           167                                    MOVEND                                                         FAX      1080
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    24
         INITIALIZATION 
  
                                        **        PIDENT - PROCESS *IDENT* LINE.                                 FAX      1083
                                        *                                                                        FAX      1084
                                        *         WHEN AN *IDENT* LINE IS ENCOUNTERED ON -COMPS-, THIS OPEN      FAX      1085
                                        *         SUBROUTINE INITIALIZES -FAX- AND DOES THE FOLLOWING MAIN       FAX      1086
                                        *         TASKS --                                                       FAX      1087
                                        *                                                                      * FAX      1088
                                        *         1. ALLOCATE AN LGO BUFFER AND SETUP THE FET,                 * FAX      1089
                                        *         2. WRITE OUT LCC STATEMENTS ON LGO IF PRESENT,               * FAX      1090
                                        *         3. SET THE SWITCHES AT NOBINPO AND WRTSW IF THE -O- OPTION   * FAX      1091
                                        *            IS ON,                                                    * FAX      1092
                                        *         4. WRITE A PREFIX TABLE ON LGO,                              * FAX      1093
                                        *         5. SETUP CORGTAB AND LORGTAB, WRITE A PIDL ON LGO,           * FAX      1094
                                        *         6. SCAN THE 2 WORD SYMBOL TABLE MAKING AN ENTR TABLE AND A   * FAX      1095
                                        *            LINK FOUNDATION,                                          * FAX      1096
                                        *         7. SCAN THE GL,AP,VD TABLES REFORMATTING THEM.               * FAX      1097
                                        *                                                                      * FAX      1098
  
  
                                3723 +   TEMP1    EQU    SCRATCH                                                 FAX      1100
                                3724 +   TEMP2    EQU    SCRATCH+1                                               FAX      1101
                                3725 +   TEMP3    EQU    SCRATCH+2                                               FAX      1102
  
  
          1175                                    MOVSTART  7                                                    FAX      1104
           256  23240122245755000000     LOCNAM   VFD    60/7LSTART.       NAMES OF LOCAL RELOCATION BASES USED  FAX      1105
           257  26012204111557000000              VFD    60/7LVARDIM.      IN LORGTAB CONSTRUCTION               FAX      1106
           260  05162422315755000000              VFD    60/7LENTRY.                                             FAX      1107
           261  03170405575555000000              VFD    60/7LCODE.                                              FAX      1108
           262  04012401575555000000              VFD    60/7LDATA.                                              FAX      1109
           263  04012401575755000000              VFD    60/7LDATA..                                             FAX      1110
           264  10171457555555000000              VFD    60/7LHOL.                                               FAX      1111
           265                                    MOVEND                                                         FAX      1112
  
  
          1175  5120000000 X             PIDENT   SA2    =XDIRECT                                                FAX      1114
                          0302001200 +            ZR     X2,PID1     IF LCM=D MODE                               FAX      1115
          1176  7160000030                        SX6    24                                                      FAX      1116
                          5160000044 +            SA6    XFL         XFILL RELOCATION LENGTH = 24                FAX      1117
          1177  0100001555 +                      RJ     ALA         ASSIGN LOCAL ADDRESSES TO POINTERS          FAX      1118
          1200  5120000000 X             PID1     SA2    =XIOAPLN                                                FAX      1119
                          5110000000 X            SA1    =XLWAWORK                                               FAX      1120
          1201  43700                             MX7     0                                                      FAX      1121
                     37612                        IX6    X1-X2                                                   FAX      1122
                          5110003665 +            SA1    =1H                                                     FAX      1123
          1202  5170000042 +                      SA7    IOCTR                                                   FAX      1124
                          5160000000 X            SA6    =XO.IOT                                                 FAX      1125
          1203  5170000054 C                      SA7    BSPFLAG                                                 FAX      1126
                          7266777776              SX6    X6-1                                                    FAX      1127
          1204  5170000023 C                      SA7    AERCNT            ZERO ASSEMBLY ERROR COUNT             FAX      1128
                          5160000036 +            SA6    MEMEND                                                  FAX      1129
          1205  5170000024 C                      SA7    STOVSIZE                                                FAX      1130
                          5170000036 C            SA7    ERRLINE+9                                               FAX      1131
          1206  10611                             BX6    X1                                                      FAX      1132
                     7110000005                   SETCORE   LINE,ISHIFT    BLANKS TO LINE BUFFER COLS 1-50       FAX      1133
          1210  7110000011                        SETCORE   ERRLINE,9      BLANKS TO ERROR MSG BUFFER            FAX      1134
                                                                                                                 FAX      1135
                                        *         SET SWITCHS FOR A LISTING                                      FAX      1136
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    25
         INITIALIZATION 
  
                                                                                                                 FAX      1137
          1212  5110000000 X                      SA1    OLIST                                                   FAX      1138
                          5140000000 X            SA4    FV.LGO                                                  FAX      1139
          1213  12314                             BX3    X1+X4                                                   FAX      1140
                     47333                        CX3    X3                                                      FAX      1141
                          0303003664 +            ZR     X3,EX.999         EXIT IF B = 0 AND O = 0               FAX      1142
          1214  0301001223 +                      ZR     X1,PID1A          JUMP IF O = 0                         FAX      1143
                          5110000165 +            PLUG   AT=WRTSW,FROM=RJWRL1                                    FAX      1144
          1220  5110000166 +                      PLUG   AT=NOBINPO,FROM=RJWRL2                                  FAX      1145
                                                                                                                 FAX      1146
                                        *         STOP ASSEMBLY IF FATAL-TO-EXECUTION ERRORS EXIST.              FAX      1147
                                                                                                                 FAX      1148
          1223  5110000000 X             PID1A    SA1    =XN.FERR                                                FAX      1149
                          5120000000 X            SA2    FV.LGO                                                  FAX      1150
          1224  0301001226 +                      ZR     X1,PID1D          IF NO FATAL-TO-EXECUTION ERRORS       FAX      1151
                          0302003664 +            ZR     X2,EX.999         IF BINARY OUTPUT OPTION OFF (B=0)     FAX      1152
          1225  66600                             SB6    B0                FLAG FOR NO LIST OF END CARD          FAX      1153
                     0400003514 +                 EQ     EX.12             GO WRITE A PREFIX TABLE ON LGO        FAX      1154
                                                                                                                 FAX      1155
                                        *         PRINT THE IDENT CARD                                           FAX      1156
                                                                                                                 FAX      1157
          1226  5110000000 X             PID1D    SA1    =XOLIST                                                 FAX      1158
                          0301001232 +            ZR     X1,PID1E          IF LIST OPTION OFF                    FAX      1159
          1227  0100000000 X                      NUPAGE                                                         FAX      1160
          1230  6160003736 +                      LISTL  LINE,8            *IDENT* LINE                          FAX      1161
          1231  66510                             SB5    B1                                                      FAX      1162
          1232  0100001575 +             PID1E    RJ     IOCARD            INPUT AND LIST *USEBLK* LINE          FAX      1163
                                                                                                                 FAX      1164
                                        *         SKIP *LCC* DIRECTIVES.                                         FAX      1165
                                                                                                                 FAX      1166
          1233  0100001575 +             PID2     RJ     IOCARD            INPUT AND LIST CARD                   FAX      1167
          1234  5110003743 +                      SA1    ILINE                                                   FAX      1168
                          5120003666 +            SA2    =6L  LCC                                                FAX      1169
          1235  43044                             MX0    36                                                      FAX      1170
                     11301                        BX3    X0*X1                                                   FAX      1171
                          37432                   IX4    X3-X2                                                   FAX      1172
          1236  0314000315 +                      NZ     X4,PID2D          IF NOT AN LCC CARD                    FAX      1173
                          0400001233 +            EQ     PID2                                                    FAX      1174
                                                                                                                 FAX      1175
                                        *         SKIP OVER ANY LDSET DIRECTIVES                                 FAX      1176
                                                                                                                 FAX      1177
          1237                                    MOVSTART  4                                                    FAX      1178
           313  0100001575 +             PID2C    RJ     IOCARD                                                  FAX      1179
           314  5110003743 +                      SA1    ILINE                                                   FAX      1180
                                                                                                                 FAX      1181
           315  5120003667 +             PID2D    SA2    =10H  LDSET                                             FAX      1182
                          37412                   IX4    X1-X2                                                   FAX      1183
           316  0314001237 +                      NZ     X4,PID3           IF NOT A LDSET CARD                   FAX      1184
                          0400000313 +            EQ     PID2C                                                   FAX      1185
           317                                    MOVEND                                                         FAX      1186
                                                                                                                 FAX      1187
                                        *         WRITE PREFIX (77) AND LDSET (70) TABLES TO BINARY OUTPUT FILE. FAX      1188
                                                                                                                 FAX      1189
          1237  5110000000 X             PID3     SA1    FV.LGO                                                  FAX      1190
                          0301001266 +            ZR     X1,PID3A          IF BINARY OUTPUT OPTION OFF (B=0)     FAX      1191
          1240  6160000000 +                      WRITEW F.LGO,PREFIX,L.PRFX                                     FAX      1192
          1242  5120000056                        SA2    PROGRAM                                                 FCC1513X   23
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    26
         INITIALIZATION 
  
                          0302001266 +            ZR     X2,PID3A    IF BLOCK DATA, SKIP LDSET TABLE             FCC1513X   24
          1243  5120000030 +                      SA2    MEMSTRT                                                 F162FTNA 1075
                          5110000043 +            SA1    LDUSE                                                   F162FTNA 1076
          1244  63620                             SB6    X2          (B6) = FWA 7000 TABLE                       F162FTNA 1077
                     66261                        SB2    B6+B1       (B2) = FWA *LIB* SUBTABLE                   F162FTNA 1078
                          53110                   SA1    X1                                                      F162FTNA 1079
                               66300              SB3    B0          (B3) = LENGTH SUBTABLE                      F162FTNA 1080
          1245  10611                    PID3.2   BX6    X1                                                      F162FTNA 1081
                     54111                        SA1    A1+B1                                                   F162FTNA 1082
                          66331                   SB3    B3+B1                                                   F162FTNA 1083
                               56623              SA6    B2+B3                                                   F162FTNA 1084
          1246  0311001245 +                      NZ     X1,PID3.2   IF NOT END OF SUBTABLE                      F162FTNA 1085
                          7173100000              SX7    10BS12+B3   FORM *LIB* SUBTABLE HEADER                  F162FTNA 1086
          1247  20744                             LX7    36                                                      F162FTNA 1087
                     56720                        SA7    B2                                                      F162FTNA 1088
                          5110000000 X            SA1    =XPMDFLAG                                               FEAT1070C 179
          1250  0301001253 +                      ZR     X1,PID3.2B  IF PMDMP PRESET NOT REQUIRED                FEAT1070C 180
                          5110000020 +            SA1    PMDUSE-1    FWA-1 OF PMDMP MAP AND PRESET TABLES        FEAT1070C 181
          1251  54111                    PID3.2A  SA1    A1+B1                                                   FEAT1070C 182
                     0301001253 +                 ZR     X1,PID3.2B   IF END OF TABLES                           FEAT1070C 183
                               10611              BX6    X1                                                      FEAT1070C 184
          1252  54661                             SA6    A6+B1                                                   FEAT1070C 185
                     0400001251 +                 EQ     PID3.2A                                                 FEAT1070C 186
                                                                                                                 FEAT1070C 187
          1253  5110000000 X             PID3.2B  SA1    =XCO.STA                                                FEAT1070C 188
                          0301001263 +            ZR     X1,PID3.5   IF STATIC LOAD OPTION NOT SELECTED          F162FTNA 1090
          1254  5110777776 X                      SA1    =XSTLTAB-1                                              F162FTNA 1091
                          64261                   SB2    A6+B1       (B2) = FWA *USE* SUBTABLE                   F162FTNA 1092
                               66300              SB3    B0                                                      F162FTNA 1093
          1255  43722                             MX7    -7*6                                                    F162FTNA 1094
          1256  54111                    PID3.3   SA1    A1+B1                                                   F162FTNA 1095
                     15617                        BX6    -X7*X1                                                  F162FTNA 1096
                          0301001261 +            ZR     X1,PID3.4   IF END OF TABLE                             F162FTNA 1097
          1257  0321001256 +                      PL     X1,PID3.3   IF ENTRY NOT SELECTED                       F162FTNA 1098
                          20622                   LX6    18                                                      F162FTNA 1099
                               66331              SB3    B3+B1                                                   F162FTNA 1100
          1260  56623                             SA6    B2+B3                                                   F162FTNA 1101
                     0400001256 +                 EQ     PID3.3                                                  F162FTNA 1102
                                                                                                                 F162FTNA 1103
          1261  0430001263 +             PID3.4   ZR     B3,PID3.5   IF NO *USE* ENTRIES SELECTED                F162FTNA 1104
                          7173160000              SX7    16BS12+B3   FORM *USE* SUBTABLE HEADER                  F162FTNA 1105
          1262  20744                             LX7    36                                                      F162FTNA 1106
                     56720                        SA7    B2                                                      F162FTNA 1107
          1263  75266                    PID3.5   SX2    A6-B6       (X2) = NUMBER OF 7000 TABLE ENTRIES         F162FTNA 1108
                     63721                        SB7    X2+B1       (B7) = LENGTH OF 7000 TABLE                 F162FTNA 1109
                          20244                   LX2    36                                                      F162FTNA 1110
                               43703              MX7    3           TABLE HEADER = 7000BS48                     F162FTNA 1111
          1264  12772                             BX7    X7+X2                                                   F162FTNA 1112
                     56760                        SA7    B6                                                      F162FTNA 1113
                          7120000000 X            WRITEW F.LGO,B6,B7 7000 TABLE TO BINARY OUTPUT FILE            F162FTNA 1114
          1266  0100003175 +             PID3A    RJ     SKIP2                                                   F162FTNA 1115
                                                                                                                 FAX      1198
                                        *         BEGIN FORMING PIDL (34) TABLE AT TOP OF FREE MEMORY.           FAX      1199
                                                                                                                 FAX      1200
          1267  5110000000 X                      SA1    =XN.COM           NUMBER OF COMMON BLOCKS               FAX      1201
                          5120000036 +            SA2    MEMEND                                                  FAX      1202
          1270  7130003400                        SX3    3400B                                                   F162FTNA 1116
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    27
         INITIALIZATION 
  
                          73111                   SX1    X1+B1       (X1) = PIDL WORD COUNT                      F162FTNA 1117
                               20314              LX3    12-0                                                    F162FTNA 1118
          1271  36631                             IX6    X3+X1                                                   F162FTNA 1119
                     73111                        SX1    X1+B1       (X1) = PIDL LENGTH                          F162FTNA 1120
                          20644                   LX6    48-12                                                   F162FTNA 1121
                               37221              IX2    X2-X1                                                   F162FTNA 1122
          1272  53620                             SA6    X2          PIDL HEADER OUT                             F162FTNA 1123
                     20122                        LX1    18                                                      F162FTNA 1124
                          12712                   BX7    X1+X2                                                   F162FTNA 1125
          1273  5170003723 +                      SA7    TEMP1       TEMP SAVE  24/0,18/PIDL LEN,18/PIDL FWA     F162FTNA 1126
                          5110000001 +            SA1    PREFIX+1    (X1) = PROG UNIT NAME                       F162FTNA 1127
          1274  5120000001 C                      SA2    L.PROG                                                  F162FTNA 1128
                          12612                   BX6    X1+X2                                                   F162FTNA 1129
                               54661              SA6    A6+B1       42/PROG UNIT NAME, 18/PROG LEN              F162FTNA 1130
                                                                                                                 FAX      1219
                                        *         SET UP CORGTAB, MOVE BLOCK NAMES AND LENGTHS TO THE PIDL       FAX      1220
                                        *         CALL BUILDOT TO MAKE A CORGTAB ENTRY                           FAX      1221
                                                                                                                 FAX      1222
          1275  66155                             SB1    B5+B5             ORGTAB ORDINAL, RB CODE, AND PIDL ORD FAX      1223
                     5120000030 +                 SA2    MEMSTRT           FWA CORGTAB                           FAX      1224
                               76710              SX7    B1                                                      FAX      1225
          1276  5110003670 +                      SA1    =6LCOMMON                                               FAX      1226
                          5170000026 +            SA7    SWC               WORD COUNT OF LINE                    FAX      1227
          1277  10611                             BX6    X1                                                      FAX      1228
                     63620                        SB6    X2                B6 ALWAYS CONTAINS FWA NEXT 22 WORD E FAX      1229
                          10722                   BX7    X2                                                      FAX      1230
          1300  5160003744 +                      SA6    ILINE+1           BLOCK TYPE TO BE PRINTED              FAX      1231
                          5170000031 +            SA7    CORGTAB           SET POINTER TO CORGTAB                FAX      1232
          1301  5111777775 X             PID.61   SA1    =XORGTAB-2+B1                                           FAX      1233
                          5150003723 +            SA5    TEMP1             PIDL LENGTH AND FWA                   FAX      1234
          1302  0301001314 +                      ZR     X1,PID.70         IF ORGTAB ENTRY=0 THEN EXIT           FAX      1235
                          5120003671 +            SA2    =7L                                                     FAX      1236
          1303  43052                             MX0    42                                                      FAX      1237
                     22601                        LX6    X1,B0                                                   FAX      1238
                          11301                   BX3    X0*X1                                                   FAX      1239
                               37332              IX3    X3-X2                                                   FAX      1240
          1304  0303001305 +                      ZR     X3,PID.62         IF BLANK COMMON STORE DIRECTLY INTO T FAX      1241
                          0100003167 +            RJ     RTB                                                     FAX      1242
                                                                                                                 FCC1045     5
          1305  7226777777               PID.62   SX2    X6-0                                                    FCC1045     6
                          43453                   MX4    -17                                                     FCC1045     7
                               73550              SX5    X5          (X5) = PIDL FWA                             FCC1045     8
          1306  0322001310 +                      PL     X2,PID.621        IF NOT AN ECS COMMON BLOCK            FAX      1246
                          15264                   BX2    -X4*X6                                                  FAX      1247
                               43771              MX7    -3          -7                                          FAX      1248
          1307  37227                             IX2    X2-X7                                                   FAX      1249
                     21203                        AX2    3           (LENGTH+7)/8                                FAX      1250
                          11746                   BX7    X4*X6                                                   FAX      1251
                               36627              IX6    X2+X7       ECS BIT, NAME, AND LENGTH IN ECS            FAX      1252
          1310  15214                    PID.621  BX2    -X4*X1            17-BIT LENGTH FIELD                   FAX      1253
                     66200                        SB2    B0                ORGC                                  FAX      1254
                          53651                   SA6    X5+B1             BLOCK NAME AND LENGTH TO PIDL         FAX      1255
                               11101              BX1    X0*X1             BLOCK NAME                            FAX      1256
          1311  0313001312 +                      NZ     X3,PID.63         IF BLANK COMMON SET NAME TO //        FAX      1257
                          5110003672 +            SA1    =7L//                                                   FAX      1258
          1312  66315                    PID.63   SB3    B1+B5             RELOCATION BASE CODE                  FAX      1259
                     0100001670 +                 RJ     BUILDOT           MAKE ORGTAB ENTRY AND PRINT           FAX      1260
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    28
         INITIALIZATION 
  
          1313  0400001301 +                      EQ     PID.61                                                  FAX      1261
                                                                                                                 FAX      1262
                                        *         TERMINATE CORGTAB.  WRITE PIDL TO BINARY OUTPUT FILE.          FAX      1263
                                                                                                                 FAX      1264
          1314  5110003723 +             PID.70   SA1    TEMP1                                                   FAX      1265
                          5120000000 X            SA2    FV.LGO                                                  FAX      1266
          1315  6110000001                        SB1    1                                                       FAX      1267
                          13666                   BX6    X6-X6                                                   FAX      1268
                               76761              SX7    B6+B1             FWA LOCAL ORGTAB                      FAX      1269
          1316  56660                             SA6    B6                TERMINATING ZERO TO CORGTAB           FAX      1270
                     63610                        SB6    X1                PIDL FWA                              FAX      1271
                          5170000032 +            SA7    LORGTAB                                                 FAX      1272
          1317  0302001321 +                      ZR     X2,PID.701        IF BINARY OUTPUT OPTION OFF (B=0)     FAX      1273
                          21122                   AX1    18                                                      FAX      1274
                               63710              SB7    X1                PIDL LENGTH                           FAX      1275
          1320  7120000000 X                      WRITEW F.LGO,B6,B7       PIDL (34) TABLE TO LGO FILE           FAX      1276
                                                                                                                 FAX      1277
                                        *         INITIALIZE NORMAL RELOCATION BASES IN ORGTAB.                  FAX      1278
                                                                                                                 FAX      1279
          1321  5110003673 +             PID.701  SA1    =L*LOCAL*                                               FAX      1280
                          5120000032 +            SA2    LORGTAB                                                 FAX      1281
          1322  10611                             BX6    X1                                                      FAX      1282
                     66510                        SB5    B1                (B5) = 1                              FAX      1283
                          5160003744 +            SA6    ILINE+1           *LOCAL* BLOCK TYPE TO LISTING BUFFER  FAX      1284
          1323  7272000005                        SX7    X2+5                                                    FAX      1285
                          5170000035 +            SA7    TEXT.ADD          INITIALIZE TO START.                  FAX      1286
          1324  7267000130                        SX6    X7+4*22                                                 FAX      1287
                          5160002420 +            SA6    DATA.TXT          FWA DATA. TEXT TABLE                  FAX      1288
          1325  66100                             SB1    B0                (B1) = BLOCK COUNTER                  FAX      1289
                     6120000000                   SB2    B0+               (B2) = PROGRAM LENGTH ACCUMULATOR     FAX      1290
                               63620              SB6    X2                (B6) = BLOCK ENTRY POINTER            FAX      1291
          1326  5111000256 +             PID.71   SA1    LOCNAM+B1         (X1) = BLOCK NAME                     FAX      1292
                          5121000200 X            SA2    ORGTAB+M.NCB+1+B1 (X2) = BLOCK LENGTH                   FAX      1293
          1327  6130000001                        SB3    1                 (B3) = RELOC BASE CODE = *PROGRAM*    FAX      1294
                          0100001670 +            CALL   BUILDOT                                                 FAX      1295
          1330  6140000007                        SB4    N.LRB                                                   FAX      1296
                          0714001326 +            LT     B1,B4,PID.71      IF MORE BLOCKS TO INITIALIZE          FAX      1297
                                                                                                                 FAX      1298
                                        * CHECK SYMTAB FOR FORMAL PARAMETERS, IF PRESENT THEN MAKE LORGTAB       FAX      1299
                                        * ENTRIES AND CONVERT THE RA FIELD IN THE 2 WORD SYMTAB TO A REL. ADD.   FAX      1300
                                                                                                                 FAX      1301
          1331  5150000012                        SA5    SYM1                                                    FAX      1302
                          6110000007              SB1    N.LRB             B1 = RB CODE                          FAX      1303
          1332  7255777773                        SX5    X5-4                                                    FAX      1304
                                                                                                                 FAX      1305
          1333  53450                    PID8     SA4    X5                WORD A                                FAX      1306
                     55545                        SA5    A4-B5             WORD B                                FAX      1307
                          43052                   MX0    L.NAME                                                  FAX      1308
                               11104              BX1    X0*X4             X1 = NAME                             FAX      1309
          1334  20452                             LX4    59-P.FP                                                 FAX      1310
                     0324001342 +                 PL     X4,PID9           IF NOT A F.P.                         FAX      1311
                                                                                                                 FAX      1312
                               10255              BX2    X5                                                      FAX      1313
          1335  21223                             AX2    P.RA                                                    FAX      1314
                     43022                        MX0    L.RA                                                    FAX      1315
                          73220                   SX2    X2                BLOCK LENGTH                          FAX      1316
                               20045              LX0    L.RA+P.RA                                               FAX      1317
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    29
         INITIALIZATION 
  
          1336  76320                             SX3    B2                CURRENT PROG ADDR                     FAX      1318
                     15550                        BX5    -X0*X5                                                  FAX      1319
                          20323                   LX3    P.RA                                                    FAX      1320
                               12635              BX6    X3+X5             INSTALL PROG RELATIVE ADDR            FAX      1321
          1337  54650                             SA6    A5                                                      FAX      1322
                     75755                        SX7    A5-B5                                                   FAX      1323
                          66350                   SB3    B5                RB = 1 ( PROG RELATIVE )              FAX      1324
          1340  5170003723 +                      SA7    TEMP1                                                   FAX      1325
                          0100001670 +            RJ     BUILDOT           SET UP ORG TABLE                      FAX      1326
          1341  5150003723 +                      SA5    TEMP1                                                   FAX      1327
                          0400001333 +            EQ     PID8                                                    FAX      1328
                                                                                                                 FAX      1329
                                        *         TERMINATE LORGTAB AND UPDATE MEMSTRT                           FAX      1330
                                                                                                                 FAX      1331
          1342  43600                    PID9     MX6    0                                                       FAX      1332
                     56660                        SA6    B6                TERMINATE LORGTAB WITH A ZERO WORD    FAX      1333
                          76765                   SX7    B6+B5                                                   FAX      1334
          1343  5170000030 +                      SA7    MEMSTRT                                                 FAX      1335
                          0100003175 +            RJ     SKIP2                                                   FAX      1336
                                                                                                                 FAX      1337
                                        *         CHANGE ENTRIES IN TSS FROM SYMTAB ADDRESS"S TO THEIR           FAX      1338
                                        *         PROGRAM RELATIVE ADDRESS"S                                     FAX      1339
                                                                                                                 FAX      1340
          1344  5150000012                        SA5    SYM1                                                    FAX      1341
                          43052                   MX0    L.NAME                                                  FAX      1342
                               53050              SA0    X5                A0 = SYM1                             FAX      1343
                                                                                                                 FAX      1344
          1345  6110000000 X                      SB1    O.TSS                                                   FAX      1345
                          6120000000 X            SB2    L.TSS             LWA+1                                 FAX      1346
          1346  56110                    PID9A    SA1    B1                                                      FAX      1347
                     66115                        SB1    B1+B5                                                   FAX      1348
                          0301001351 +            ZR     X1,PID9B          IF SYMBOL NOT IN SYMTAB               FAX      1349
          1347  22351                             LX3    B5,X1                                                   FAX      1350
                     63335                        SB3    X3+B5             2*ORD+1                               FAX      1351
                          55203                   SA2    A0-B3             WORD B                                FAX      1352
                               21223              AX2    P.RA                                                    FAX      1353
          1350  73620                             SX6    X2                                                      FAX      1354
                     54610                        SA6    A1                                                      FAX      1355
          1351  0712001346 +             PID9B    LT     B1,B2,PID9A                                             FAX      1356
                                                                                                                 FAX      1357
                                        *         FORM ENTR (36) TABLE AND WRITE IT TO BINARY OUTPUT FILE.       FAX      1358
                                                                                                                 FAX      1359
                          5120000000 X            SA2    L.ENTR                                                  FAX      1360
          1352  5110000000 X                      SA1    O.ENTR                                                  FAX      1361
                          0302001370 +            ZR     X2,PID11          IF NO ENTRY POINTS                    FAX      1362
          1353  5140000030 +                      SA4    MEMSTRT                                                 FAX      1363
                          5130000036 +            SA3    MEMEND                                                  FAX      1364
          1354  22552                             LX5    X2,B5             ENTR TABLE LENGTH (NOT INCL HEADER)   FAX      1365
                     63110                        SB1    X1                                                      FAX      1366
                          63221                   SB2    B1+X2             LWA+1 OF ENTR TABLE IN HIGH CORE      FAX      1367
                               37234              IX2    X3-X4             WORKING STORAGE LENGTH                FAX      1368
          1355  7170000036                        SX7    36B               LOADER CODE - ENTR TABLE              FAX      1369
                          37652                   IX6    X5-X2                                                   FAX      1370
                               43350              MX3    -L.RL-L.RA                                              FAX      1371
          1356  0326003456 +                      PL     X6,STOVER         IF NOT ENOUGH WORKING STORAGE         FAX      1372
                          20722                   LX7    54-36                                                   FAX      1373
                               12675              BX6    X7+X5                                                   FAX      1374
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    30
         INITIALIZATION 
  
          1357  20644                             LX6    36                                                      FAX      1375
                     6264000000                   SB6    X4+               (B6) = TABLE FWA                      FAX      1376
                               53640              SA6    X4                TABLE HEADER TO WSA                   FAX      1377
          1360  56110                    PID10    SA1    B1                ENTRY POINT ORD                       FAX      1378
                     22451                        LX4    B5,X1                                                   FAX      1379
                          63440                   SB4    X4                                                      FAX      1380
                               55104              SA1    A0-B4             WORD A                                FAX      1381
          1361  55215                             SA2    A1-B5             WORD B                                FAX      1382
                     11601                        BX6    X0*X1             NAME                                  FAX      1383
                          0100003167 +            RJ     RTB                                                     FAX      1384
          1362  21223                             AX2    P.RA                                                    FAX      1385
                     54665                        SA6    A6+B5                                                   FAX      1386
                          66115                   SB1    B1+B5                                                   FAX      1387
                               15623              BX6    -X3*X2            RL AND RA                             FAX      1388
          1363  54665                             SA6    A6+B5                                                   FAX      1389
                     0712001360 +                 LT     B1,B2,PID10                                             FAX      1390
                               65766              SB7    A6-B6                                                   FAX      1391
          1364  5110000000 X                      SA1    FV.LGO                                                  FAX      1392
                          6110000001              SB1    1                                                       FAX      1393
          1365  0301001367 +                      ZR     X1,PID10A         IF BINARY OUTPUT OPTION OFF (B=0)     FAX      1394
                          66771                   SB7    B7+B1             (B7) = TABLE LENGTH                   FAX      1395
          1366  7120000000 X                      WRITEW F.LGO,B6,B7       ENTR (36) TABLE TO BINARY OUTPUT FILE FAX      1396
          1367  5110000012               PID10A   SA1    SYM1                                                    FAX      1397
                          66510                   SB5    B1                                                      FAX      1398
                               53010              SA0    X1                (A0) = INVERTED FWA SYMBOL TABLE      FAX      1399
                                                                                                                 FAX      1400
                                        *         BUILD LINK AND EXTERNAL NAME TABLES FROM EXT TABLE             FAX      1401
                                                                                                                 FAX      1402
          1370  5110000000 X             PID11    SA1    O.EXT                                                   FAX      1403
                          5120000000 X            SA2    L.EXT                                                   FAX      1404
          1371  63110                             SB1    X1                                                      FAX      1405
                     63221                        SB2    B1+X2                                                   FAX      1406
                          5130000030 +            SA3    MEMSTRT                                                 FAX      1407
          1372  5140000036 +                      SA4    MEMEND                                                  FAX      1408
                          10633                   BX6    X3                                                      FAX      1409
                               63630              SB6    X3                                                      FAX      1410
          1373  5160000033 +                      SA6    LINKTAB                                                 FAX      1411
                                                                                                                 FAX      1412
                          36323                   IX3    X2+X3                                                   FAX      1413
                               37534              IX5    X3-X4             F - L                                 FAX      1414
          1374  0325003456 +                      PL     X5,STOVER         IF NOT ENOUGH ROOM                    FAX      1415
                                                                                                                 FAX      1416
                          43700                   MX7    0                                                       FAX      1417
                               53730              SA7    X3                CLEAR LWA+1 OF LINKTAB                FAX      1418
          1375  5170000043 C                      SA7    RBTEMP                                                  FAX      1419
                          73635                   SX6    X3+B5                                                   FAX      1420
                               43052              MX0    L.NAME                                                  FAX      1421
          1376  5160000034 +                      SA6    FREEMEM           SET FWA FOR CHAIN ACCUMULATION        FAX      1422
                          0302001427 +            ZR     X2,PID20          IF NO EXTERNALS                       FAX      1423
                                                                                                                 FAX      1424
          1377  56410                    PID12    SA4    B1                2*SYMORD                              FAX      1425
                     63440                        SB4    X4                                                      FAX      1426
                          55104                   SA1    A0-B4             WORD A                                FAX      1427
                               55215              SA2    A1-B5             WORD B                                FAX      1428
          1400  11601                             BX6    X0*X1             NAME                                  FAX      1429
                     74520                        SX5    A2                                                      FAX      1430
                          36765                   IX7    X6+X5             42/7LNAME,18/LOCF(WORD B)             FAX      1431
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    31
         INITIALIZATION 
  
                               56710              SA7    B1                EXT TAB ENTRY                         FAX      1432
          1401  66115                             SB1    B1+B5                                                   FAX      1433
                     0100003167 +                 RJ     RTB                                                     FAX      1434
          1402  56660                             SA6    B6                STORE IN LINK TAB                     FAX      1435
                     76560                        SX5    B6                                                      FAX      1436
                          20251                   LX2    -P.RA                                                   FAX      1437
                               11202              BX2    X0*X2                                                   FAX      1438
          1403  12725                             BX7    X2+X5       STORE LINKTAB ADDRESS IN WORDB              FAX      1439
                     20723                        LX7    P.RA                                                    FAX      1440
                          54720                   SA7    A2                                                      FAX      1441
                               66665              SB6    B6+B5                                                   FAX      1442
          1404  0712001377 +                      LT     B1,B2,PID12                                             FAX      1443
                          43600                   MX6    0                                                       FAX      1444
                               56660              SA6    B6                ZERO WORD TO TERMINATE LINKTAB        FAX      1445
                                                                                                                 FAX      1446
                                        *         PRINT NAMES OF EXTERNALS                                       FAX      1447
                                                                                                                 FAX      1448
          1405  5130000000 X                      SA3    OLIST                                                   FAX      1449
                          0303001427 +            ZR     X3,PID20          IF O = 0                              FAX      1450
          1406  5110003674 +                      SA1    =18L   EXTERNALS                                        FAX      1451
                          6110000001              SB1    1                                                       FAX      1452
          1407  54215                             SA2    A1+B5                                                   FAX      1453
                     10611                        BX6    X1                                                      FAX      1454
                          22702                   LX7    X2                                                      FAX      1455
          1410  5160003741 +                      SA6    ILINE-2                                                 FAX      1456
                          54765                   SA7    A6+B5                                                   FAX      1457
          1411  6160003736 +                      LISTL  LINE,ISHIFT                                             FAX      1458
          1412  5110000000 X                      SA1    O.EXT                                                   FAX      1459
                          5120000000 X            SA2    L.EXT                                                   FAX      1460
          1413  63210                    PID14    SB2    X1                                                      FAX      1461
                     63322                        SB3    B2+X2             LWA+1                                 FAX      1462
                          6170000003              SB7    ISHIFT-2          (B7) = LINE LENGTH                    FAX      1463
          1414  5130000657 +                      SA3    SPACES+3          3R                                    FAX      1464
                          6140000012              SB4    10                WORD LIMIT                            FAX      1465
          1415  56120                    PID15    SA1    B2                                                      FAX      1466
                     43052                        MX0    L.NAME                                                  FAX      1467
                          66221                   SB2    B2+B1                                                   FAX      1468
                               11201              BX2    X0*X1             NAME                                  FAX      1469
          1416  36623                             IX6    X2+X3                                                   FAX      1470
                     66771                        SB7    B7+B1             LENGTH + 1                            FAX      1471
                          5167003735 +            SA6    LINE-1+B7                                               FAX      1472
          1417  0674001420 +                      GE     B7,B4,PID16       IF LINE FULL                          FAX      1473
                          0723001415 +            LT     B2,B3,PID15       IF MORE NAMES TO GO                   FAX      1474
          1420  43560                    PID16    MX5    60-12                                                   FAX      1475
                     11656                        BX6    X5*X6                                                   FAX      1476
                          54660                   SA6    A6                                                      FAX      1477
                               76620              SX6    B2                                                      FAX      1478
          1421  77732                             SX7    B3-B2                                                   FAX      1479
                     5160003723 +                 SA6    TEMP1                                                   FAX      1480
                               54761              SA7    A6+B1                                                   FAX      1481
          1422  6160003736 +                      LISTL  LINE,B7                                                 FAX      1482
          1423  5120003724 +                      SA2    TEMP1+1                                                 FAX      1483
                          66510                   SB5    B1                                                      FAX      1484
                               55121              SA1    A2-B1                                                   FAX      1485
          1424  0312001413 +                      NZ     X2,PID14          IF MORE TO GO                         FAX      1486
                          0100003175 +            RJ     SKIP2                                                   FAX      1487
          1425  5110003665 +                      SA1    =10H                                                    FAX      1488
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    32
         INITIALIZATION 
  
                          10611                   BX6    X1                                                      FAX      1489
          1426  5160003741 +                      SA6    ILINE-2                                                 FAX      1490
                          54661                   SA6    A6+B1                                                   FAX      1491
                                                                                                                 FAX      1492
                                        *         SET UP GL/AP RELOCATION SKELETON.                              FCC0506     8
                                                                                                                 FAX      1495
          1427  5110000056               PID20    SA1    PROGRAM                                                 FAX      1496
                          6150000001              SB5    1                                                       FAX      1497
          1430  0301001721 +                      ZR     X1,INITL        IF A BLOCK DATA PROGRAM                 FAX      1498
                          5150000000 X            SA5    WB.LAB                                                  FAX      1499
          1431  5140000005 C                      SA4    O.LRB+3           FWA OF CODE.                          FAX      1500
                          20423                   LX4    P.RA                                                    FCC0506     9
                               12645              BX6    X4+X5                                                   FCC0506    10
          1432  5160000027 +                      SA6    GLAPR                                                   FCC0506    11
                                                                                                                 FAX      1513
                          5110003665 +            SA1    =10H                                                    FAX      1514
          1433  10611                             BX6    X1                                                      FAX      1515
                     7110000005                   SETCORE LINE,ISHIFT                                            FAX      1516
                                                                                                                 FAX      1517
          1435  5110000056                        SA1    PROGRAM                                                 FCC0506    12
                          26011                   UX0    B1,X1                                                   FAX      1520
          1436  0510001721 +                      NZ     B1,INITL          IF A SUBPROGRAM                       FAX      1521
                                                                                                                 FAX      1522
                                        *         PROCESS PROGRAM                                                FAX      1523
                                                                                                                 FAX      1524
                          5110000000 X            SA1    N.FILES                                                 FAX      1525
          1437  0301001455 +                      ZR     X1,PID25          IF NO FILES                           FAX      1526
                          14611                   BX6    -X1                                                     FAX      1527
          1440  5160003723 +                      SA6    TEMP1             TEMP1 = -N.FILES                      FAX      1528
                          54665                   SA6    A6+B5                                                   FAX      1529
                                                                                                                 FAX      1530
          1441  0100003156 +             PID22    RJ     RCARD             INPUT A CARD                          FAX      1531
          1442  5120003743 +                      SA2    ILINE                                                   F162FTNA 1131
                          5130003676 +            SA3    =10H  FIL-RM                                            F162FTNA 1132
          1443  13623                             BX6    X2-X3                                                   F162FTNA 1133
                     20644                        LX6    -4*6                                                    F162FTNA 1134
                          21606                   AX6    1*6         IGNORE *C* OR *7* IN COLUMN 6               F162FTNA 1135
          1444  0306001452 +                      ZR     X6,PID23    IF *FIL-RM* MACRO                           F162FTNA 1136
                          5110000026 +            SA1    SWC         ASSUME *FEQU* MACRO - LIST AND SKIP IT      F162FTNA 1137
          1445  5120000000 X                      LISTER  LINE,ISHIFT+X1                                         FAX      1537
          1451  0400001453 +                      EQ     PID24                                                   FAX      1538
          1452  0100002651 +             PID23    RJ     PFILE                                                   FAX      1539
                                                                                                                 FAX      1540
          1453  5110003723 +             PID24    SA1    TEMP1                                                   FAX      1541
                          73615                   SX6    X1+B5                                                   FAX      1542
                               54610              SA6    A1                                                      FAX      1543
          1454  0316001441 +                      NZ     X6,PID22                                                FAX      1544
                                                                                                                 FAX      1545
                                                                                                                 F162FTNA 1138
          1455  5110000000 X             PID25    SA1    =XOT.RM                                                 F162FTNA 1139
                          0311001531 +            NZ     X1,PID25.4  IF 7RM OBJECT MODE                          F162FTNA 1140
                                                                                                                 F162FTNA 1141
                                        *         PROCESS *LIBLNK* MACROS.                                       F162FTNA 1142
                                                                                                                 F162FTNA 1143
          1456  0100001575 +                      RJ     IOCARD      READ AND LIST *LIBLNK. BSS 0B*              F162FTNA 1144
          1457  0100003156 +                      RJ     RCARD       READ *  LIBLNK P1,..* MACRO                 F162FTNA 1145
          1460  5110003677 +                      SA1    =8RFILES.   FORM  12/2000B+NR FILES, 48/*FILES.* ADDR   F162FTNA 1146
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    33
         INITIALIZATION 
  
                          6170001462 +            SB7    PID25.2     (B7) = *SYMBOL* RETURN ADDR                 F162FTNA 1147
          1461  0400000000 X                      EQ     SYMBOL                                                  F162FTNA 1148
                                                                                                                 F162FTNA 1149
          1462  0400401462 +             PID25.2  EQ     *+4S15      COMPILER ERROR IF *LIBLNK.* NOT FOUND       F162FTNA 1150
                                                                                                                 F162FTNA 1151
          1463  5110000000 X                      SA1    =XN.FILES                                               F162FTNA 1152
                          21223                   AX2    P.RA                                                    F162FTNA 1153
                               63210              SB2    X1                                                      F162FTNA 1154
          1464  43052                             MX0    -L.RA                                                   F162FTNA 1155
                     15220                        BX2    -X0*X2                                                  F162FTNA 1156
                          27422                   PX4    X2,B2                                                   F162FTNA 1157
          1465  6110000074                        WR1WD                                                          F162FTNA 1158
          1467  7130000002                        RL=    L                                                       F162FTNA 1159
                                                                                                                 F162FTNA 1160
          1470  5110000000 X                      SA1    =XCO.STA    FORM  1/STATIC BIT, 59/PRINT LIMIT          F162FTNA 1161
                          5120000000 X            SA2    =XPLIMIT                                                F162FTNA 1162
          1471  12412                             BX4    X1+X2                                                   F162FTNA 1163
                     6110000074                   WR1WD                                                          F162FTNA 1164
                                                                                                                 F162FTNA 1165
                                        *            OUTPUT A POINTER TO, AND, OUR WEAK EXTERNAL TABLE, IF       FCCA408   266
                                        *         WE HAVE HERE A MAIN PROGRAM WITHOUT FILES AND STATIC           FCCA408   267
                                        *         MODE IS SELECTED.                                              FCCA408   268
                                                                                                                 FCCA408   269
          1473  5110000000 X                      SA1    CO.STA                                                  FCCA408   270
                          0301001527 +            ZR     X1,PID25.3  IF STATIC MODE IS NOT SELECTED              FCCA408   271
          1474  5110000000 X                      SA1    N.FILES                                                 FCCA408   272
                          0311001527 +            NZ     X1,PID25.3  IF MAIN PROGRAM WITH FILES                  FCCA408   273
          1475  5110003700 +                      SYMBOL =8RWXTTAB.                                              FCCA408   274
          1477  0400401477 +             +        EQ     *+1S17      COMPILER ERROR IF NOT FOUND                 FCCA408   275
          1500  21223                             AX2    P.RA                                                    FCCA408   276
                     43052                        MX0    -L.RA                                                   FCCA408   277
                          15420                   BX4    -X0*X2      ISOLATE ADDRESS                             FCCA408   278
                               10644              BX6    X4                                                      FCCA408   279
          1501  27454                             PX4    B5,X4                                                   FCCA408   280
                     5160003725 +                 SA6    TEMP3                                                   FCCA408   281
          1502  6110000074                        WR1WD              POINTER TO WEAK EXTERNAL TABLE              FCCA408   282
          1504  7130000002                        RL=    L           LOWER RELOCATION                            FCCA408   283
                                                                                                                 FCCA408   284
          1505  43400                             MX4    0                                                       FCCA408   285
                     6110000074                   WR1WD              APLIST TERMINATOR                           FCCA408   286
                                                                                                                 FCCA408   287
                                        *         NOW OUTPUT THE WEAK EXTERNAL AND XLINK TABLES.                 FCCA408   288
                                                                                                                 FCCA408   289
          1507  7160000007                        SX6    L.STL       NUMBER OF WORDS IN W.EXT. TABLE             FCCA408   290
                                                                                                                 FCCA408   291
          1510  5160003723 +             PID25.33 SA6    TEMP1       LOOP FOR W.EXT. TABLE                       FCCA408   292
                          43400                   MX4    0                                                       FCCA408   293
          1511  6110000074                        WR1WD                                                          FCCA408   294
          1513  5110003723 +                      SA1    TEMP1                                                   FCCA408   295
                          7261777776              SX6    X1-1                                                    FCCA408   296
          1514  0316001510 +                      NZ     X6,PID25.33 IF MORE TO GO                               FCCA408   297
                                                                                                                 FCCA408   298
                                        *         FILL IN *XLINK* CORE ADDRESSES.                                FCCA408   299
                                                                                                                 FCCA408   300
                          5110003725 +            SA1    TEMP3       GET CORE ADDRESS OF *XLINK* TABLE           FCCA408   301
          1515  5120000045 +                      SA2    S.WEXT-1    FIRST WORD OF *XLINK* TO STUFF              FCCA408   302
                          6130000014              SB3    N.STL       NUMBER OF ENTRIES TO STUFF                  FCCA408   303
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    34
         INITIALIZATION 
  
          1516  7211777776                        SX1    X1-1                                                    FCCA408   304
                          6140000003              SB4    3           INCREMENT BETWEEN ENTRIES                   FCCA408   305
          1517  43301                             MX3    1           FLIP FLOP                                   FCCA408   306
                     76450                        SX4    B5                                                      FCCA408   307
                          20136                   LX1    30          POSITION ADDRESS                            FCCA408   308
                               20436              LX4    30          ADDRESS INCREMENT                           FCCA408   309
                                                                                                                 FCCA408   310
          1520  54224                    PID25.36 SA2    A2+B4       NEXT ENTRY TO STUFF                         FCCA408   311
                     20336                        LX3    30          FLIP THE FLOP                               FCCA408   312
                          0333001522 +            MI     X3,PID25.38 IF WE DO NOT INCREMENT ADDRESS THIS TIME    FCCA408   313
          1521  36114                             IX1    X1+X4       INCREMENT ADDRESS                           FCCA408   314
                                                                                                                 FCCA408   315
          1522  12612                    PID25.38 BX6    X1+X2                                                   FCCA408   316
                     54620                        SA6    A2          STUFF                                       FCCA408   317
                          67335                   SB3    B3-B5                                                   FCCA408   318
          1523  0530001520 +                      NZ     B3,PID25.36 IF MORE TO STUFF                            FCCA408   319
                                                                                                                 FCCA408   320
                          6160000046 +            WRITEW F.LGO,S.WEXT,L.WEXT                                     FCCA408   321
          1526  0400001531 +                      EQ     PID25.4                                                 FCCA408   322
                                                                                                                 FCCA408   323
          1527  43400                    PID25.3  MX4    0           APLIST TERMINATOR                           FCCA408   324
                     6110000074                   WR1WD                                                          F162FTNA 1167
                                                                                                                 F162FTNA 1168
          1531  0100001575 +             PID25.4  RJ     IOCARD      READ AND LIST *FILES. BSS 0B*               F162FTNA 1169
          1532  5110000000 X                      SA1    N.FILES                                                 FAX      1547
                          0301001547 +            ZR     X1,PID30          IF NO FILES                           FAX      1548
                                                                                                                 FAX      1549
                                        *         INPUT AND PROCESS FLINK MACRO CALLS                            FAX      1550
                                                                                                                 FAX      1551
          1533  0100003156 +             PID26    RJ     RCARD             INPUT CARD                            FAX      1552
          1534  10155                             BX1    X5                                                      FAX      1553
                     21114                        AX1    12                                                      FAX      1554
                          6170001536 +            SB7    PID26A                                                  FAX      1555
          1535  0400000000 X                      EQ     SYMBOL                                                  FAX      1556
                                                                                                                 FAX      1557
          1536  0400401536 +             PID26A   EQ     *+1S17            COMPILER ERROR IF SYMBOL NOT FOUND    FAX      1558
                                                                                                                 F162FTNA 1170
          1537  43052                             MX0    -L.RA                                                   F162FTNA 1171
                     21223                        AX2    P.RA                                                    FAX      1560
                          15320                   BX3    -X0*X2            RA                                    FAX      1561
          1540  7120000060                        SX2    1R"C"                                                   FAX      1562
                          0100000323 +            RJ     RSC               REMOVE #                              FAX      1563
          1541  23676                             AX6    B7,X6                                                   FAX      1564
                     22576                        LX5    B7,X6             REMOVE BLANK FILL                     FAX      1565
                          12453                   BX4    X5+X3             42/0L_NAME,18/LOCF(FET)               FAX      1566
          1542  6110000074                        WR1WD                    TO THE LGO FILE                       FAX      1567
          1544  7130000002                        RL=    L                 ADJUST RELOCATION WORD                FAX      1568
                                                                                                                 FAX      1569
          1545  5110003724 +                      SA1    TEMP1+1                                                 FAX      1570
                          73615                   SX6    X1+B5                                                   FAX      1571
                               54610              SA6    A1                                                      FAX      1572
          1546  0316001533 +                      NZ     X6,PID26                                                FAX      1573
                                                                                                                 FAX      1574
          1547  0100003156 +             PID30    RJ     RCARD       READ 0 APL TERMIN (CRM) OR DATA -PL (7RM)   F162FTNA 1172
          1550  5110000000 X                      SA1    =XOT.RM                                                 F162FTNA 1173
                          5120000000 X            SA2    =XPLIMIT                                                F162FTNA 1174
          1551  43400                             MX4    0           PRESET 0 APL TERMINATOR                     F162FTNA 1175
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    35
         INITIALIZATION 
  
                     0301001552 +                 ZR     X1,PID30.2  IF CRM OBJECT MODE                          F162FTNA 1176
                               14422              BX4    -X2         SET -(PRINT LIMIT)                          F162FTNA 1177
          1552  6110000074               PID30.2  WR1WD                                                          F162FTNA 1178
          1554  0400001721 +                      EQ     INITL                                                   FAX      1579
  
  
  
                                        **        ALA - ASSIGN LOCAL ADDRESSES TO LCM POINTER WORDS.             FAX      1581
                                        *         IN INDIRECT (LCM=I) MODE, LCM SYMBOLS REPRESENT SCM POINTER    FAX      1582
                                        *         CELLS IN GENERATED CODE.  FOR FAX, THE RL, RB, AND RA OF EACH  FAX      1583
                                        *         LCM SYMBOL MUST NOW BE CHANGED TO REFLECT THAT.  PRIOR TO THIS FAX      1584
                                        *         THIS INFORMATION REFLECTED THE SYMBOL/S USER-DEFINED LCM       FAX      1585
                                        *         RESIDENCY.   THIS TRANSFORMATION MUST BE DEFERED UNTIL FAX     FAX      1586
                                        *         SO THAT THE REFERENCE MAP WILL CONTAIN MEANINGFUL (LCM)        FAX      1587
                                        *         ADDRESSES.                                                     FAX      1588
                                                                                                                 FAX      1589
          1555  0200401555 +             ALA      ROUTINE                                                        FAX      1590
          1556  5120000000 X                      SA2    =XSDATA.                                                FAX      1591
                          0332001555 +            MI     X2,ALA      IF NO LCM POINTER VECTOR                    FCC0451     8
          1557  6110000001                        SB1    1                                                       FAX      1593
                          5150000000 X            SA5    =XST.             ORDINAL OF ST.                        FAX      1594
          1560  5140000000 X                      SA4    =XSYMORD          N.SYMBOLS + 1                         FAX      1595
                          5130000012              SA3    SYM1                                                    FAX      1596
          1561  20501                             LX5    1                 2*ORDINAL OF ST.                      FAX      1597
                     36444                        IX4    X4+X4             2*(N.SYMBOLS + 1)                     FAX      1598
                          63650                   SB6    X5                                                      FAX      1599
          1562  5203777776                        SA0    X3-1                                                    FAX      1600
                          63740                   SB7    X4                                                      FAX      1601
          1563  5120000000 X                      SA2    SDATA.            SAVED DATA. VALUE                     FAX      1602
                          5140000006 C            SA4    O.LRB+4           FWA OF DATA. BLOCK                    FAX      1603
          1564  36224                             IX2    X2+X4                                                   FAX      1604
                     20223                        LX2    P.RA                                                    FAX      1605
                          5110000045 +            SA1    WBDATA.           WORD B FOR DATA. BLOCK                FAX      1606
          1565  12112                             BX1    X1+X2                                                   FAX      1607
                     43741                        MX7    60-L.ADF          MASK FOR ADDRESS DEFINITION FIELD     FAX      1608
                          20714                   LX7    P.ADF                                                   FAX      1609
                               76210              SX2    B1                                                      FAX      1610
          1566  20223                             LX2    P.RA                                                    FAX      1611
                                                                                                                 FAX      1612
                                        *         SEARCH THE SYMBOL TABLE FOR LEVEL 2 OR 2 AND 3 VARIABLES       FAX      1613
                                                                                                                 FAX      1614
          1567  55506                    ALA1     SA5    A0-B6             WORD B                                FAX      1615
                     0667001555 +                 GE     B6,B7,ALA         IF END OF TABLE                       FAX      1616
                               10655              BX6    X5                                                      FAX      1617
          1570  20572                             LX5    59-P.LCM                                                FAX      1618
                     6166000002                   SB6    B6+2              ADVANCE TO NEXT SYMBOL                FAX      1619
          1571  0325001567 +                      PL     X5,ALA1     IF SYMBOL NOT LCM                           FAX      1620
                          7100000002              SX0    10B-T.LAB                                               FAX      1621
                                   2              ERRMI  10B-T.LAB   TEST RELIES ON OVERFLOW                     FAX      1622
          1572  20502                             LX5    1+P.LCM                                                 FAX      1623
                     20070                        LX0    P.TYP                                                   FAX      1624
                          36305                   IX3    X0+X5                                                   FAX      1625
          1573  0333001567 +                      MI     X3,ALA1     IF TYPE[WORDB] .GE. T.LAB                   FAX      1626
                          11376                   BX3    X7*X6             CLEAR ADDRESS FIELD                   FAX      1627
                               36631              IX6    X3+X1             INSERT DATA. FIELD                    FAX      1628
          1574  54650                             SA6    A5                                                      FAX      1629
                     36112                        IX1    X1+X2             DATA. = DATA. + 1                     FAX      1630
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    36
         INITIALIZATION                                               ALA 
  
                          0400001567 +            EQ     ALA1                                                    FAX      1631
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    37
         INITIALIZATION 
  
                                        ***                                                                      FAX      1633
                                        *         IOCARD - INPUT AND LIST CARD                                   FAX      1634
                                        *                                                                        FAX      1635
          1575  0400401575 +             IOCARD   ENTRY. *           ** ENTRY/EXIT **                            FAX      1636
          1576  0100003156 +                      RJ     RCARD                                                   FAX      1637
          1577  5110000026 +                      SA1    SWC                                                     FAX      1638
                          5120000000 X            LISTER  LINE,ISHIFT+X1                                         FAX      1639
          1603  5110003744 +                      SA1    ILINE+1                                                 FAX      1640
                          0400001575 +            EQ     IOCARD                                                  FAX      1641
  
  
  
                                        ***                                                                      FAX      1643
                                        *         RSC - REMOVE SPECIAL CHARACTER FROM NAME                       FAX      1644
                                        *                                                                        FAX      1645
                                        *         ON ENTRY:                                                      FAX      1646
                                        *                X1 = 7L_NAME                                            FAX      1647
                                        *                X2 = SPECIAL CHARACTER TO BE REMOVED ( $ OR # )         FAX      1648
                                        *                                                                        FAX      1649
                                        *         ON EXIT:                                                       FAX      1650
                                        *                X6 = NAME WITH SPECIAL CHAR REMOVED                     FAX      1651
                                        *                B7 = 60-BIT COUNT FOR LENGTH OF NAME                    FAX      1652
                                        *                                                                        FAX      1653
          1604                                    MOVSTART  7                                                    FAX      1654
           323  00000000000000000000     RSC                                                                     FAX      1655
           324  6170000014                        SB7    12                                                      FAX      1656
                          43066                   MX0    60-6                                                    FAX      1657
           325  6177000006               RSC2     SB7    B7+6                                                    FAX      1658
                          23671                   AX6    B7,X1                                                   FAX      1659
                               15760              BX7    -X0*X6                                                  FAX      1660
           326  7247777722                        SX4    X7-1R                                                   FAX      1661
                          0304000325 +            ZR     X4,RSC2     IF A BLANK, LOOP                            FAX      1662
           327  37772                             IX7    X7-X2                                                   FAX      1663
                     10611                        BX6    X1                                                      FAX      1664
                          0317000323 +            NZ     X7,RSC            IF NOT SPECIAL                        FAX      1665
           330  7222777722                        SX2    X2-1R                                                   FAX      1666
                          22272                   LX2    B7,X2                                                   FAX      1667
                               37662              IX6    X6-X2             CHANGE LAST CHAR TO BLANK             FAX      1668
           331  6177000006                        SB7    B7+6                                                    FAX      1669
                          0400000323 +            EQ     RSC                                                     FAX      1670
           332                                    MOVEND                                                         FAX      1671
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    38
         INITIALIZATION 
  
                                        ***                                                                      FAX      1673
                                        *         PTRACE - PROCESS "TRACE" MACRO CALL                            FAX      1674
                                        *                                                                        FAX      1675
          1604                                    MOVSTART  12B                                                  FAX      1676
           145                           PTRACE   BSS    0                                                       FAX      1677
           145  5110000000 X                      SA1    =XPROGNAM         (X1) = PROGRAM UNIT NAME, 7H FORMAT   FAX      1678
                          7120000053              SX2    1R$                                                     FAX      1679
           146  0100000323 +                      RJ     RSC               REMOVE ANY SPECIAL CHAR               FAX      1680
           147  5130000012                        SA3    SYM1                                                    FAX      1681
                          5213777774              SA1    X3-3              WORD B OF ORDINAL 1                   FAX      1682
           150  21123                             AX1    P.RA                                                    FAX      1683
                     73310                        SX3    X1                RELOCATION ADDRESS                    FAX      1684
           151  12463                    PTRACE1  BX4    X6+X3             42/7L_NAME,18/LOCF(ENTRY.) OR 0       FAX      1685
                     6110000074                   WR1WD                    WRITE WORD TO LGO FILE                FAX      1686
           153  7130000002                        RL=    L                 ADD RELOCATION BYTE                   FAX      1687
           154  5110000000 X                      SA1    =XTEMPA0.                                               FAX      1688
                          0301001721 +            ZR     X1,INITL          IF NO FPS OR RETURNS                  FAX      1689
                                                                                                                 FAX      1690
           155  43400                             MX4    0                 A ZERO WORD FOR TEMPA0.               FAX      1691
                     6110000074                   WR1WD  ,INITL            TO THE LGO FILE                       FAX      1692
           157                                    MOVEND                                                         FAX      1693
  
  
  
  
                                        **        PPENTRY - PROCESS *PENTRY* MACRO.                              FAX      1695
                                        *                                                                        FAX      1696
                                                                                                                 FAX      1697
          1604  5120000056               PPENTRY  SA2    PROGRAM                                                 FAX      1698
                          5110000000 X            SA1    =XFUNTYPE                                               FAX      1699
          1605  26012                             UX0    B1,X2                                                   FAX      1700
                     0410001640 +                 ZR     B1,PPE4           IF MAIN PROGRAM                       FAX      1701
          1606  0301001620 +                      ZR     X1,PPE2           IF NOT A FUNCTION                     FAX      1702
                          21101                   AX1    1                                                       FAX      1703
          1607  0301001614 +                      ZR     X1,PPE1           IF SINGLE PRECISION                   FAX      1704
                          5150000000 X            SA5    =XVALUE.                                                FAX      1705
          1610  5140001652 +                      SA4    VAL2                                                    FAX      1706
                          20536                   LX5    30                                                      FAX      1707
                               36454              IX4    X5+X4                                                   FAX      1708
          1611  6110000074                        WR1WD                                                          FAX      1709
          1613  7130000010                        RL=    U                                                       FAX      1710
          1614  5140001653 +             PPE1     SA4    VAL1                                                    FAX      1711
                          5150000000 X            SA5    VALUE.                                                  FAX      1712
          1615  20536                             LX5    30                                                      FAX      1713
                     36454                        IX4    X5+X4                                                   FAX      1714
                          6110000074              WR1WD                                                          FAX      1715
          1617  7130000010                        RL=    U                                                       FAX      1716
                                                                                                                 FAX      1717
          1620  5110000000 X             PPE2     SA1    =XTEMPA0.                                               FAX      1718
                          0301001625 +            ZR     X1,PPE3           IF NO FPS OR RETURNS, THEN NO NEED TO FAX      1719
                                        *                                    RESTORE *TEMPA0.*                   FAX      1720
          1621  5150001654 +                      SA5    RSTRA0                                                  FAX      1721
                          20136                   LX1    30                                                      FAX      1722
                               36415              IX4    X1+X5                                                   FAX      1723
          1622  6110000074                        WR1WD                                                          FAX      1724
          1624  7130000010                        RL=    U                                                       FAX      1725
                                                                                                                 FAX      1726
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    39
         INITIALIZATION                                               PPENTRY 
  
          1625  5110000000 X             PPE3     SA1    =XCO.ER                                                 FEAT155A   49
                          0301001627 +            ZR     X1,PPE3A    IF ER = 0                                   FEAT155A   50
          1626  0100001657 +                      CALL   OTR                                                     FEAT155A   51
          1627  5110000000 X             PPE3A    SA1    ENTRY.                                                  FEAT155A   52
                          5140001655 +            SA4    PENTRY            ENTRY POINT CODE                      FAX      1728
          1630  20136                             LX1    30                                                      FAX      1729
                     12414                        BX4    X1+X4                                                   FAX      1730
                          6110000074              WR1WD                    WRITE WORD TO LGO FILE                FAX      1731
          1632  7130000010                        RL=    U                 ADJUST RELOCATION                     FAX      1732
                                                                                                                 FAX      1733
          1633  5110000000 X                      SA1    =XTEMPA0.                                               FAX      1734
                          0301001721 +            ZR     X1,INITL          IF NO FPS OR RETURNS, THEN NO NEED TO FAX      1735
                                        *                                    RESTORE *TEMPA0.*                   FAX      1736
                                                                                                                 FAX      1737
          1634  5140001656 +                      WR1WD  SAVA0             SAVE A0 CODE TO LGO FILE              FAX      1738
          1636  7130000002                        RL=    L                 ADJUST RELOCATION BYTE                FAX      1739
          1637  0400001721 +                      EQ     INITL                                                   FAX      1740
                                                                                                                 FAX      1741
          1640  5110000000 X             PPE4     SA1    =XCO.ER                                                 FEAT155A   53
                          0301001645 +            ZR     X1,PPE4A    IF ER = 0                                   FEAT155A   54
          1641  5110000000 X                      SA1    =XN.FILES                                               FEAT155A   55
                          5120000016 C            SA2    L.PROGP                                                 FEAT155A   56
          1642  7130000001                        SX3    1                                                       FEAT155A   57
                          36413                   IX4    X1+X3                                                   FEAT155A   58
                               37624              IX6    X2-X4                                                   FEAT155A   59
          1643  54620                             SA6    A2                                                      FEAT155A   60
                     0100001657 +                 CALL   OTR                                                     FEAT155A   61
          1644  0400001721 +                      EQ     INITL                                                   FEAT155A   62
                                                                                                                 FEAT155A   63
          1645  5110000026 +             PPE4A    SA1    SWC                                                     FEAT155A   64
                          5120000000 X            LISTER LINE,ISHIFT+X1                                          FAX      1743
          1651  0400001721 +                      EQ     INITL                                                   FAX      1744
                                                                                                                 FAX      1745
                                                                                                                 FAX      1746
                                                                                                                 FAX      1747
                                        *         CODE SKELETONS FOR ENTRY/EXIT LINE.                            FAX      1748
                                                                                                                 FAX      1749
          1652  5150000001               VAL2     SA5    1                 VALUE.+1                              FAX      1750
                          10755                   BX7    X5                                                      FAX      1751
          1653  5140000000               VAL1     SA4    0                 VALUE.                                FAX      1752
                          10644                   BX6    X4                                                      FAX      1753
          1654  5130000000               RSTRA0   SA3    0                 TEMPA0.                               FAX      1754
                          5203000000              SA0    X3+0                                                    FAX      1755
                                                                                                                 FAX      1756
          1655  0400400000               PENTRY   EQ     4S15                                                    FAX      1757
          1656  74600                    SAVA0    SX6    A0                                                      FAX      1758
                     54010                        SA0    A1                                                      FAX      1759
                          5160000001              SA6    1                 TEMPA0.                               FAX      1760
          1657  0200401657 +             OTR      JP     *+1S17                                                  FEAT155AB   1
          1660  5110000000 X                      SA1    TRACE.                                                  FEAT155A   66
                          5140001667 +            SA4    FTNRPV                                                  FEAT155A   67
          1661  5120000016 C                      SA2    L.PROGP                                                 FEAT155A   68
                          43052                   MX0    -18                                                     FEAT155A   69
                               14322              BX3    -X2                                                     FEAT155A   70
          1662  15530                             BX5    -X0*X3                                                  FEAT155A   71
                     12414                        BX4    X1+X4                                                   FEAT155A   72
                          20536                   LX5    30                                                      FEAT155A   73
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    40
         INITIALIZATION                                               PPENTRY 
  
                               12445              BX4    X4+X5                                                   FEAT155A   74
          1663  6110000074                        WR1WD              WRITE ONE WORD TO LGO                       FEAT155A   75
          1665  7130000002                        RL=    L           ADJUST RELOCATION                           FEAT155A   76
          1666  0400001657 +                      EQ     OTR                                                     FEAT155A   77
                                                                                                                 FEAT155A   78
          1667  6102000000               FTNRPV   SB0    B2+0        (LEN.)                                      FEAT155A   79
                          6102000000              SB0    B2+0        (TRACE.)                                    FEAT155A   80
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    41
        INITIALIZATION SUBROUTINES
  
                                        ***                                                                      FAX      1763
                                        *                                                                      * FAX      1764
                                        * BUILDOT-SUBROUTINE TO BUILD A 22 WORD CORGTAB OR LORGTAB ENTRY AND   * FAX      1765
                                        *         PRINT THE BLOCK NAME, BASE ADDRESS AND LENGTH.               * FAX      1766
                                        *                                                                      * FAX      1767
                                        *         THE 22 WORD ORGTAB IS USED TO KEEP NAME, NFLAG(FORCE UPPER ON* FAX      1768
                                        *         THE NEXT WORD IF GTR 0), ORG COUNTER, RELOCATION BASE CODE,  * FAX      1769
                                        *         POSITION COUNTER, AND PARTIALLY FILLED TEXT TABLES FOR EACH  * FAX      1770
                                        *         RELOCATION BASE.                                             * FAX      1771
                                        *                                                                      * FAX      1772
                                        *         CALLING SEQUENCE-                                            * FAX      1773
                                        *                   B2.= ORGC                                          * FAX      1774
                                        *                   B3.= RELOCATION BASE CODE                          * FAX      1775
                                        *                   B6.= FWA OF NEXT 22 WORD ENTRY                     * FAX      1776
                                        *                   X1.= BLOCK NAME                                    * FAX      1777
                                        *                   X2.= BLOCK LENGTH                                  * FAX      1778
                                        *                                                                      * FAX      1779
                                        *         ON EXIT-                                                     * FAX      1780
                                        *                   IN THE 22 WORD ENTRY,                              * FAX      1781
                                        *                   WORD 1    BITS 18-59/NAME (LEFT ADJ., BLANK FILL)  * FAX      1782
                                        *                             BITS 0 -17/ZERO                          * FAX      1783
                                        *                   WORD 2    NFLAG - ZERO                             * FAX      1784
                                        *                   WORD 3    BITS 24-59/UNUSED                        * FAX      1785
                                        *                             BITS 18-23/RB CODE                       * FAX      1786
                                        *                             BITS 0 -17/ORGC                          * FAX      1787
                                        *                   WORD 4    BITS 18-59/UNUSED                        * FAX      1788
                                        *                             BITS 0 -17/POSC                          * FAX      1789
                                        *                   WORD 5    BITS 18-59/UNUSED                        * FAX      1790
                                        *                             BITS 0 -17/TEXT TABLE ORDINAL (2)        * FAX      1791
                                        *                   WORD 6    TEXT ID WORD                             * FAX      1792
                                        *                             BITS 54-59/40B                           * FAX      1793
                                        *                             BITS 24-53/ZERO                          * FAX      1794
                                        *                             BITS 18-23/RB CODE                       * FAX      1795
                                        *                             BITS 0 -17/ORGC                          * FAX      1796
                                        *                   WORD 7    RELOCATION BYTE WORD - ZERO              * FAX      1797
                                        *                   WORD 8    FIRST TEXT WORD - ZERO                   * FAX      1798
                                        *                   WORDS 9                                            * FAX      1799
                                        *                      TO 22  REMAINDER OF TEXT TABLE - UNINITIALIZED  * FAX      1800
                                        *                                                                      * FAX      1801
                                        *         ALSO-                                                        * FAX      1802
                                        *                   B1.= B1+1                                          * FAX      1803
                                        *                   B2.= B2+BLOCK LENGTH(X2)                           * FAX      1804
                                        *                   B6.= B6+22                                         * FAX      1805
                                        *                                                                      * FAX      1806
  
  
                                3726 +   B1TEMP   EQU    SCRATCH+3                                               FAX      1808
  
  
          1670                     1     BUILDOT  BSS    1                                                       FAX      1810
          1671  76320                             SX3    B2                                                      FAX      1811
                     22601                        LX6    X1,B0                                                   FAX      1812
                          5140003701 +            SA4    =3R                                                     FAX      1813
          1672  13777                             BX7    X7-X7                                                   FAX      1814
                     76530                        SX5    B3                                                      FAX      1815
                          56765                   SA7    B6+B5             ZERO TO OT2                           FAX      1816
                               20522              LX5    18                                                      FAX      1817
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    42
        INITIALIZATION SUBROUTINES
  
          1673  56660                             SA6    B6                BLOCK NAME TO OT1                     FAX      1818
                     12735                        BX7    X3+X5                                                   FAX      1819
                          36614                   IX6    X1+X4                                                   FAX      1820
                               54775              SA7    A7+B5             RB+BA TO OT3                          FAX      1821
          1674  43001                             MX0    1                                                       FAX      1822
                     5160003743 +                 SA6    ILINE             BLOCK NAME TO PRINT BUFFER            FAX      1823
                               12707              BX7    X0+X7                                                   FAX      1824
          1675  76655                             SX6    B5+B5                                                   FAX      1825
                     43071                        MX0    57                                                      FAX      1826
                          5067000002              SA6    A7+2              TABC.=2 IN OT5                        FAX      1827
          1676  54765                             SA7    A6+B5             TEXT ID WORD IN OT6                   FAX      1828
                     6140000022                   SB4    18                                                      FAX      1829
                               13777              BX7    X7-X7                                                   FAX      1830
          1677  63765                             SB7    X6+B5                                                   FAX      1831
                     20017                        LX0    15                                                      FAX      1832
                          7160000074              SX6    60                                                      FAX      1833
          1700  54775                             SA7    A7+B5             RB WORD.= 0 IN OT7                    FAX      1834
                     55665                        SA6    A6-B5             POSC.= 60 IN OT4                      FAX      1835
                          54775                   SA7    A7+B5             1ST TEXT WORD.=0 IN OT8               FAX      1836
                               13666              BX6    X6-X6                                                   FAX      1837
          1701  15120                    BOT.1    BX1    -X0*X2            CONVERT BASE ADDRESS AND LENGTH TO DI FAX      1838
                     67447                        SB4    B4-B7             AND STORE THEM IN LINE BUFFER.        FAX      1839
                          22141                   LX1    X1,B4                                                   FAX      1840
                               15430              BX4    -X0*X3                                                  FAX      1841
          1702  36616                             IX6    X1+X6                                                   FAX      1842
                     22444                        LX4    X4,B4                                                   FAX      1843
                          12747                   BX7    X4+X7                                                   FAX      1844
                               21003              AX0    3                                                       FAX      1845
          1703  0540001701 +                      NZ     B4,BOT.1                                                FAX      1846
                          5150003702 +            SA5       =10H    000000                                       FAX      1847
          1704  36757                             IX7    X5+X7                                                   FAX      1848
                     36656                        IX6    X5+X6                                                   FAX      1849
                          46000                   NO                                                             FAX      1850
                               20614              LX6    12                                                      FAX      1851
          1705  5170003741 +                      SA7    ILINE-2                                                 FAX      1852
                          54675                   SA6    A7+B5                                                   FAX      1853
                               76610              SX6    B1                                                      FAX      1854
          1706  73722                             SX7    B2+X2                                                   FAX      1855
                     5160003726 +                 SA6    B1TEMP            SAVE B1,B2,B6                         FAX      1856
                               54765              SA7    A6+B5                                                   FAX      1857
          1707  7166000026                        SX6    B6+22                                                   FAX      1858
                          54675                   SA6    A7+B5                                                   FAX      1859
          1710  5120000000 X                      LISTER  LINE,ISHIFT+2    PRINT OUT THE BLOCK NAME              FAX      1860
          1714  5110003726 +                      SA1    B1TEMP            RESTORE B1,B2,B6                      FAX      1861
                          54215                   SA2    A1+B5                                                   FAX      1862
                               63115              SB1    X1+B5                                                   FAX      1863
          1715  54325                             SA3    A2+B5                                                   FAX      1864
                     63220                        SB2    X2                                                      FAX      1865
                          63630                   SB6    X3                                                      FAX      1866
          1716  0400001670 +                      EQ     BUILDOT                                                 FAX      1867
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    43
         SCANNER
  
          1717  10644                    PCOMM    BX6    X4                                                      FAX      1869
                     5160000041 +                 SA6    NFLAG             RESET NFLAG TO RESET FFLAG IN INITL   FAX      1870
          1720  46000                    NOBINPO  NO                       CHANGED TO RJ  WRLIST IF              FAX      1871
                     46000                        NO                       O OPTION IS SELECTED                  FAX      1872
  
  
  
          1721  6110000001               INITL    SB1    1                                                       FAX      1874
                          6160003743 +            READC  F.CMPS,ILINE,LINESIZE-ISHIFT                            FAX      1875
          1724  0311003476 +                      NZ     X1,NOEND    IF -COMPS- PREMATURELY EMPTY, ERROR         FAX      1876
                          5150003743 +            SA5    ILINE       (X5) = FIRST WORD OF INPUT LINE             FAX      1877
          1725  5140000041 +                      SA4    NFLAG                                                   FAX      1878
                          43066                   MX0    -6          (X0) = 1-CHAR MASK                          FAX      1879
                               66510              SB5    B1          (B5) = 1                                    FAX      1880
          1726  7176774034 -                      SX7    B6-ILINE    (X7) = LINE LENGTH (WORDS)                  FAX      1881
                          6140000066              SB4    54                                                      FAX      1882
          1727  6160000006                        SB6    6                                                       FAX      1883
                          13666                   BX6    X6-X6                                                   FAX      1884
                               66740              SB7    B4                                                      FAX      1885
          1730  23145                             GCH    X1                                                      FAX      1886
          1731  6110000055                        SB1    1R                                                      FAX      1887
                          54640                   SA6    A4          (NFLAG) = 0                                 FAX      1888
                               63210              SB2    X1                                                      FAX      1889
          1732  5170000026 +                      SA7    SWC                                                     FAX      1890
                          0222000112 +            JP     COL1VEC+B2  TO OPCODE VECTOR TABLE                      FAX      1891
  
  
          1733  10644                    BLANK    BX6    X4                FFLAG.=NFLAG                          FAX      1893
                     67446                        SB4    B4-B6                                                   FAX      1894
                          5160000040 +            SA6    FFLAG                                                   FAX      1895
                                        *                                                                        FAX      1896
                                        *         SCAN TO OPCODE                                                 FAX      1897
                                        *                                                                        FAX      1898
          1734  23245                    OCSCAN   GCH    X2                PUT NEXT CHARACTER INTO B2            FAX      1899
                               63220              SB2    X2                                                      FAX      1900
          1735  0640001736 +                      CWD                                                            FAX      1901
          1736  0521001742 +                      NE     B2,B1,OCSCAN2     IF NOT BLANK                          FAX      1902
                          23245                   GCH    X2                PUT NEXT CHARACTER INTO B2            FAX      1903
                     63220                        SB2    X2                                                      FAX      1904
          1740  0640001741 +                      CWD                                                            FAX      1905
          1741  0421001734 +                      EQ     B2,B1,OCSCAN      GO LOOK AT NEXT CHARACTER             FAX      1906
          1742  23245                    OCSCAN2  GCH    X2                PUT NEXT CHARACTER INTO B3            FAX      1907
                               63320              SB3    X2                                                      FAX      1908
          1743  0640001744 +                      CWD                                                            FAX      1909
          1744  0222000203 +                      JP     FLVEC-1+B2        TO OPCODE VECTOR TABLE                FAX      1910
                                        *                                                                        FAX      1911
                                        *         PROCESS FORCING CHARACTER                                      FAX      1912
                                        *                                                                        FAX      1913
          1745                                    MOVSTART  4B                                                   FAX      1914
           360  5160000040 +             PFC      SA6    FFLAG                                                   FAX      1915
                          67446                   SB4    B4-B6                                                   FAX      1916
                               23345              GCH    X3                PUT FIRST CHARACTER OF OPCODE INTO B2 FAX      1917
                          63230                   SB2    X3                                                      FAX      1918
                               23345              GCH    X3                PUT SECOND CHARACTER OF OPCODE INTO B FAX      1919
                          63330                   SB3    X3                                                      FAX      1920
           363  0222000203 +                      JP     FLVEC-1+B2        JUMP INTO NEST OF VECTORS             FAX      1921
           364                                    MOVEND                                                         FAX      1922
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    44
         SCANNER
  
                                        *                                                                        FAX      1923
                                        *         PROCESS LABEL                                                  FAX      1924
                                        *                                                                        FAX      1925
          1745                                    MOVSTART  13B                                                  FAX      1926
           624  76750                    PLABEL   SX7    B5                FORCE UPPER                           FAX      1927
                     5170000040 +                 SA7    FFLAG                                                   FAX      1928
                               66260              SB2    B6                                                      FAX      1929
           625  0100001133 +                      RJ     PACKID            GO STRIP OFF LABEL                    FAX      1930
           626  10611                             BX6    X1                                                      FAX      1931
                     5160000037 +                 SA6    ALABEL                                                  FAX      1932
                               21152              AX1    42                                                      FAX      1933
           627  7221777715                        SX2    X1-1R]                                                  FAX      1934
                          0312001734 +            NZ     X2,OCSCAN   IF NOT AN ]IO LABEL                         FAX      1935
           630  5130000042 +                      SA3    IOCTR                                                   FAX      1936
                          73635                   SX6    X3+B5             BUMP IO APLIST COUNTER                FAX      1937
                               54630               SA6   A3                                                      FAX      1938
           631  5120000000 X                      SA2    =XWB.FMT          RL = 1, RB = DATA.                    FAX      1939
                                 132     .DATA.   EQU    4*22+2            ORGC WORD FOR DATA.                   FAX      1940
                          5110000032 +            SA1    LORGTAB                                                 FAX      1941
           632  5241000132                        SA4    X1+.DATA.                                               FAX      1942
                          54145                   SA1    A4+B5             POSC                                  FAX      1943
           633  0311000634 +                      NZ     X1,PLAB.1         IF A PART WORD LEFT TO GO             FAX      1944
                          73445                   SX4    X4+B5             ADVANCE TO NEXT WORD                  FAX      1945
           634  73640                    PLAB.1   SX6    X4                                                      FAX      1946
                     20623                        LX6    P.RA                                                    FCC0506    13
                          12626                   BX6    X2+X6             COMBINE RL, RA, AND RB FIELDS         FAX      1948
           635  5110000000 X                      SA1    O.IOT                                                   FAX      1949
                          36213                   IX2    X1+X3                                                   FAX      1950
                               53620              SA6    X2                                                      FAX      1951
           636  0400001734 +                      EQ     OCSCAN                                                  FAX      1952
           637                                    MOVEND                                                         FAX      1953
                                        *                                                                        FAX      1954
                                        *         PROCESS THIRD, FOURTH, AND FIFTH LETTERS                       FAX      1955
                                        *                                                                        FAX      1956
          1745                                    MOVSTART  3                                                    FAX      1957
           516  23245                    PNL      GCH    X2                GET THE NEXT CHAR, ADD IT TO B2 AND   FAX      1958
                               63222              SB2    B2+X2             JUMP TO B2                            FAX      1959
           517  0640000520 +                      CWD                                                            FAX      1960
           520  0222000000                        JP     B2                                                      FAX      1961
           521                                    MOVEND                                                         FAX      1962
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    45
         EXECUTABLE CODE PROCESSORS 
  
                                        ************************************************************************ FAX      1964
                                        *                                                                      * FAX      1965
                                        *         THE FOLLOWING ROUTINES WHOSE LABELS ARE PREFACED BY L3 PRO-  * FAX      1966
                                        *         CESS THE ADDRESS FIELDS OF THE EXECUTABLE INSTRUCTIONS. THEY * FAX      1967
                                        *         ARE REQUIRED TO SET THE I,J AND K FIELDS IN ALL CASES AND IN * FAX      1968
                                        *         SOME CASES THEY MUST ALSO DETERMINE THE G AND H FIELDS  OF   * FAX      1969
                                        *         THE OPCODE. ON ENTRY X4 CONTAINS AN INSTRUCTION PROTOTYPE(IP)* FAX      1970
                                        *         THAT WAS SET AT THE END OF OPCODE FIELD PROCESSING. ON EXIT  * FAX      1971
                                        *         X4 WILL CONTAIN A COMPLETE 15 OR 30 BIT INSTRUCTION AND X1   * FAX      1972
                                        *         WILL CONTAIN A RELOCATION BASE CODE IF NECESSARY.            * FAX      1973
                                        *                                                                      * FAX      1974
                                        *         THE SUBROUTINE -REF- IS CALLED IF A SYMBOL IS ENCOUNTERED.   * FAX      1975
                                        *                                                                      * FAX      1976
                                        *        IN ADDITION, REGISTERS X0,X5,B4,B5,B6,B7, AND A5 ARE RESERVED * FAX      1977
                                        *         FOR USE IN CHARACTER PICK UP AND MUST BE RESTORED IF THEY    * FAX      1978
                                        *         ARE USED OTHERWISE.                                          * FAX      1979
                                        *                                                                      * FAX      1980
                                        *         FOR THE EXECUTABLE INSTRUCTIONS THE OPCODE FIELD ALWAYS BE-  * FAX      1981
                                        *         GINS IN COLUMN 3 AND THERE IS ONLY ONE SPACE BETWEEN OPCODE  * FAX      1982
                                        *         AND ADDRESS.                                                 * FAX      1983
                                        *                                                                      * FAX      1984
                                        ************************************************************************ FAX      1985
  
  
  
  
                                        ************************************************************************ FAX      1987
                                        *                                                                      * FAX      1988
                                        *     RJ LABEL -- X4=0100B                                             * FAX      1989
                                        *                                                                      * FAX      1990
                                        ************************************************************************ FAX      1991
  
  
          1745                                    MOVSTART  7                                                    FAX      1993
           413  23145                    L3.RJ    GCH    X1                GET NEXT CHARACTER                    FAX      1994
           414  7211777753                        SX1    X1-1RT                                                  FAX      1995
                          0301001752 +            ZR     X1,L3.RJT         IF RJT INSTRUCTION                    FAX      1996
                                                                                                                 FAX      1997
           415  23145                             GCH    X1                GET 1ST CHARACTER OF SYMBOLIC NAME    FAX      1998
  
  
           416  66260                    L3.UCJP  SB2    B6                BIT COUNT OF CHARACTERS IN X1=6       FAX      2000
                     63310                        SB3    X1                FIRST CHARACTER TO B3                 FAX      2001
                          0100003140 +            RJ     REF                                                     FAX      2002
           417  20422                             LX4    18                ADJUST THE PROTOTYPE TO A 30 BIT IN-  FAX      2003
                     76750                        SX7    B5                STRUCTION.                            FAX      2004
                          6160001015 +            SB6    L4.CKRB                                                 FAX      2005
           420  6110000036                        SB1    30                                                      FAX      2006
                          5170000041 +            SA7    NFLAG             TURN NFLAG ON                         FAX      2007
           421  12434                             BX4    X3+X4             SET THE ADDRESS AND OUTPUT THE INSTRU FAX      2008
                     0400003211 +                 EQ     WRTEXT                                                  FAX      2009
           422                                    MOVEND                                                         FAX      2010
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    46
         EXECUTABLE CODE PROCESSORS                                   RJT 
  
                                        ************************************************************************ FAX      2012
                                        *                                                                      * FAX      2013
                                        *     RJT LABEL,LINENR   OR   RJT LABEL,LINENR,FP                      * FAX      2014
                                        *                                                                      * FAX      2015
                                        ************************************************************************ FAX      2016
                                                                                                                 FAX      2017
                                                                                                                 FAX      2018
                                7777     LINLIM   =      4096-1                                                  FAX      2019
          1745                     1     RJTFLAG  BSSZ   1           CALLED FROM RJT  FLAG                       FAX      2020
          1746                     1     RJTGTCP  BSSZ   1           TEMPORARY STORAGE FOR CODE PROTOTYPE        FAX      2021
          1747  6100000000                        SB0    0                                                       FCC0448    12
                          6100000000              SB0    0                                                       FAX      2023
          1750                     2     RJTSR    BSS    2           SAVE REGISTERS ACROSS CALLS TO WRTEXT       FAX      2024
                                                                                                                 FAX      2025
          1752  67446                    L3.RJT   SB4    B4-B6       POSITION AT START OF SYMBOLIC NAME          FAX      2026
                     23145                        GCH    X1          GET 1ST CHARACTER OF SYMBOLIC NAME          FAX      2027
          1753  66260                             SB2    B6          BIT COUNT                                   FAX      2028
                     63310                        SB3    X1          1ST CHARACTER                               FAX      2029
                          0100003140 +            RJ     REF         GET ADDRESS OF SYMBOLIC NAME                FAX      2030
                                                                                                                 FAX      2031
          1754  43652                             MX6    L.NAME                                                  FAX      2032
                     20422                        LX4    18                                                      FAX      2033
                          76750                   SX7    B5                                                      FAX      2034
                               11661              BX6    X6*X1       CLEAR LOWER 18 BITS                         FAX      2035
          1755  5170000040 +                      SA7    FFLAG       SET TO *FORCE UPPER*                        FAX      2036
                          5160001751 +            SA6    RJTSR+1     SAVE NAME                                   FAX      2037
          1756  7170001771 +                      SX7    L3.RJTB     RETURN ADDRESS FROM L4.CKRB                 FAX      2038
                          12634                   BX6    X3+X4       FORMAT INSTRUCTION                          FAX      2039
          1757  5170001745 +                      SA7    RJTFLAG                                                 FAX      2040
                          55665                   SA6    A6-B5       SAVE FORMATED INSTRUCTION                   FAX      2041
                               23345              GCH    X3                                                      FAX      2042
          1761  0640001762 +                      CWD                                                            FAX      2043
          1762  0100001120 +                      RJ     CONVERT     GET BINARY LINE NUMBER IN X1                FAX      2044
                                                                                                                 FAX      2045
          1763  10611                             BX6    X1                                                      FAX      2046
                     5140001750 +                 SA4    RJTSR       GET SAVED INSTRUCTION                       FAX      2047
                               54640              SA6    A4          SAVE LINE NUMBER                            FAX      2048
          1764  23745                             GCH    X7          GET DELIMETER IN X7                         FAX      2049
          1765  5110001751 +                      SA1    RJTSR+1     GET SAVED NAME                              FAX      2050
                          12717                   BX7    X1+X7                                                   FAX      2051
          1766  0640001767 +                      CWD                                                            FAX      2052
          1767  54710                             SA7    A1          SAVE NAME AND TERMINATING CHARACTER         FAX      2053
                     6160001015 +                 SB6    L4.CKRB     RETURN ADDRESS                              FAX      2054
          1770  6110000036                        SB1    30          BIT COUNT                                   FAX      2055
                          0400003211 +            EQ     WRTEXT      ISSUE RJ  NAME  CODE                        FAX      2056
                                                                                                                 FAX      2057
          1771  5110001751 +             L3.RJTB  SA1    RJTSR+1     GET TERMINATING CHARACTER AND NAME          RSM3545C   51
                          6211777721              SB1    X1-1R,                                                  RSM3545C   52
          1772  0510001774 +                      NZ     B1,L3.RJTE  IF NOT A FORMAL PARAMETER                   RSM3545C   53
                          43452                   MX4    7*6                                                     RSM3545C   54
                               76750              SX7    B5                                                      RSM3545C   55
          1773  21114                             AX1    12                                                      RSM3545C   56
                     0400002505 +                 EQ     PSUB0       OUTPUT A *SUB*                              RSM3545C   57
                                                                                                                 RSM3545C   58
          1774  7170000000               L3.RJTE  SX7    0                                                       RSM3545C   59
                          5110001750 +            SA1    RJTSR       LINE NUMBER                                 RSM3545C   60
          1775  5170001745 +                      SA7    RJTFLAG     RESET RETURN ADDRESS                        RSM3545C   61
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    47
         EXECUTABLE CODE PROCESSORS                                   RJT 
  
                          7231770000              SX3    X1-LINLIM                                               RSM3545C   62
          1776  5170000040 +                      SA7    FFLAG                                                   RSM3545C   63
                          5140000000 X            SA4    =XTRACE.                                                RSM3545C   64
          1777  5170000041 +                      SA7    NFLAG                                                   RSM3545C   65
                          0333002002 +            MI     X3,L3.RJTLT IF LINE NUMBER .LT. 4095                    RSM3545C   66
                                                                                                                 FAX      2093
          2000  5130001747 +                      SA3    RJTGTCP+1                                               FAX      2094
                          12631                   BX6    X3+X1       INSERT LINE NR. INTO CODE PROTOTYPE         FAX      2095
                               55635              SA6    A3-B5       SAVE IN TEMPORARY STORAGE                   FAX      2096
          2001  7110007777                        SX1    7777B       LINE NUMBER .GT. 4095 - 1  INDICATOR        FAX      2097
                                                                                                                 FAX      2098
          2002  20122                    L3.RJTLT LX1    18                                                      FAX      2099
                     12441                        BX4    X4+X1       FORMAT INSTRUCTION                          FAX      2100
                          6110000036              SB1    30          BIT COUNT                                   FAX      2101
          2003  6160002004 +                      SB6    L3.RJTA     RETURN ADDRESS                              FAX      2102
                          0400003211 +            EQ     WRTEXT                                                  FAX      2103
                                                                                                                 FAX      2104
          2004  43700                    L3.RJTA  MX7    0                                                       FAX      2105
                     7130000002                   RL=    L           ADJUST RELOCATION                           FAX      2106
                     5140001746 +                 SA4    RJTGTCP                                                 FAX      2107
          2006  5170000043 C                      SA7    RBTEMP      CLEAR RBTEMP                                FAX      2108
                          0304001721 +            ZR     X4,INITL    EXIT IF SECOND WORD NOT NECESSARY           FAX      2109
                                                                                                                 FAX      2110
          2007  43600                             MX6    0                                                       FAX      2111
                     54640                        SA6    A4          CLEAR CODE PROTOTYPE TEMPORARY STORAGE      FAX      2112
                          6110000074              WR1WD  ,INITL      ISSUE VFD WITH ACTUAL LINE NUMBER           FAX      2113
                                                                                                                 FAX      2114
          2011  7140000400               L3.ED    SX4    0400B                                                   FAX      2115
                          67446                   SB4    B4-B6                                                   FAX      2116
                               23145              GCH    X1          GET 1ST CHARACTER OF SYMBOLIC NAME          FAX      2117
                          66260                   SB2    B6          BIT COUNT                                   FAX      2118
                               63310              SB3    X1          1ST CHARACTER                               FAX      2119
          2013  0100003140 +                      RJ     REF         GET ADDRESS OF SYMBOLIC NAME                FAX      2120
                                                                                                                 FAX      2121
          2014  43652                             MX6    L.NAME                                                  FAX      2122
                     20422                        LX4    18                                                      FAX      2123
                          76750                   SX7    B5                                                      FAX      2124
                               11661              BX6    X6*X1       CLEAR LOWER 18 BITS                         FAX      2125
          2015  5170000040 +                      SA7    FFLAG       SET TO *FORCE UPPER*                        FAX      2126
                          5160001751 +            SA6    RJTSR+1     SAVE NAME                                   FAX      2127
          2016  7170002032 +                      SX7    L3.EDB                                                  FAX      2128
                          12634                   BX6    X3+X4       FORMAT INSTRUCTION                          FAX      2129
          2017  5170001745 +                      SA7    RJTFLAG                                                 FAX      2130
                          55665                   SA6    A6-B5       SAVE FORMATED INSTRUCTION                   FAX      2131
                               23345              GCH    X3                                                      FAX      2132
          2021  0640002022 +                      CWD                                                            FCC0943     4
          2022  0100001120 +                      RJ     CONVERT     GET BINARY LINE NUMBER IN X1                FAX      2133
                                                                                                                 FAX      2134
          2023  0640002024 +                      CWD                                                            FAX      2135
          2024  10611                             BX6    X1                                                      FAX      2136
                     5140001750 +                 SA4    RJTSR       GET SAVED INSTRUCTION                       FAX      2137
                               54640              SA6    A4          SAVE LINE NUMBER                            FAX      2138
          2025  23745                             GCH    X7          GET DELIMETER IN X7                         FAX      2139
          2026  5110001751 +                      SA1    RJTSR+1     GET SAVED NAME                              FAX      2140
                          12717                   BX7    X1+X7                                                   FAX      2141
          2027  0640002030 +                      CWD                                                            FAX      2142
          2030  54710                             SA7    A1          SAVE NAME AND TERMINATING CHARACTER         FAX      2143
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    48
         EXECUTABLE CODE PROCESSORS                                   RJT 
  
                     6160001015 +                 SB6    L4.CKRB     RETURN ADDRESS                              FAX      2144
          2031  6110000036                        SB1    30          BIT COUNT                                   FAX      2145
                          0400003211 +            EQ     WRTEXT      ISSUE RJ  NAME  CODE                        FAX      2146
                                                                                                                 FAX      2147
          2032  43700                    L3.EDB   MX7    0                                                       FAX      2148
                     5140001751 +                 SA4    RJTSR+1                                                 FAX      2149
                               54710              SA7    A1                                                      FAX      2150
          2033  5170000040 +                      SA7    FFLAG                                                   FAX      2151
                          5170000041 +            SA7    NFLAG                                                   FAX      2152
          2034  5110001750 +                      SA1    RJTSR                                                   FAX      2153
                          5140000000 X            SA4    =XLABEL.                                                FAX      2154
          2035  6110000036                        SB1    30                                                      FAX      2155
                          6160002037 +            SB6    L3.EDC                                                  FAX      2156
          2036  36441                             IX4    X4+X1                                                   FAX      2157
                     0400003211 +                 EQ     WRTEXT                                                  FAX      2158
                                                                                                                 FAX      2159
          2037  43700                    L3.EDC   MX7    0                                                       FAX      2160
                     7130000002                   RL=    L                                                       FAX      2161
                     5170000043 C                 SA7    RBTEMP                                                  FAX      2162
          2041  0400001721 +                      EQ     INITL                                                   FAX      2163
  
  
  
  
                                        ************************************************************************ FAX      2165
                                        *     JP B1       --X4=0210B                                           * FAX      2166
                                        *     JP B1+LABEL -- .  .                                              * FAX      2167
                                        *                                                                      * FAX      2168
                                        ************************************************************************ FAX      2169
  
  
          2042                                    MOVSTART  6                                                    FAX      2171
           175  10155                    L3.JP    BX1    X5                                                      FAX      2172
                     21122                        AX1    18                                                      FAX      2173
                          15210                   BX2    -X0*X1      ISOLATE NUMBER OF B REGISTER                FAX      2174
           176  7232777744                        SX3    X2-1R0                                                  FAX      2175
                          20303                   LX3    3                                                       FAX      2176
                               12443              BX4    X4+X3       PLUG NUMBER INTO INSTRUCTION                FAX      2177
           177  23165                             AX1    X5,B6                                                   FAX      2178
                     66400                        SB4    B0                                                      FAX      2179
                          15110                   BX1    -X0*X1            FIRST CHARACTER OF LABEL TO X1        FAX      2180
           200  0311000416 +                      NZ     X1,L3.UCJP        IF THERE IS A LABEL THEN PROCESS IT E FAX      2181
                          6160001721 +            SB6    INITL             EXIT.                                 FAX      2182
           201  76750                             SX7    B5                                                      FAX      2183
                     6110000036                   SB1    30                                                      FAX      2184
                               20422              LX4    18                                                      FAX      2185
           202  5170000041 +                      SA7    NFLAG             TURN NFLAG ON                         FAX      2186
                          0400003211 +            EQ     WRTEXT                                                  FAX      2187
           203                                    MOVEND                                                         FAX      2188
  
  
  
  
                                        ************************************************************************ FAX      2190
                                        *                                                                      * FAX      2191
                                        *     ZR XJ,SYMBOL  -- X4=0300B                                        * FAX      2192
                                        *     NZ  .   .     -- X4=0310B                                        * FAX      2193
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    49
         EXECUTABLE CODE PROCESSORS 
  
                                        *     PL  .   .     -- X4=0320B                                        * FAX      2194
                                        *     NG  .   .     -- X4=0330B                                        * FAX      2195
                                        *                                                                      * FAX      2196
                                        ************************************************************************ FAX      2197
  
  
          2042                                    MOVSTART  7                                                    FAX      2199
           425  6144777763               L3.XJP   SB4    B4-12             SKIP TO J AND SET IT                  FAX      2200
                          23245                   AX2    X5,B4                                                   FAX      2201
                               66400              SB4    B0                                                      FAX      2202
           426  23165                             AX1    X5,B6                                                   FAX      2203
                     15220                        BX2    -X0*X2                                                  FAX      2204
                          66260                   SB2    B6                                                      FAX      2205
                               15110              BX1    -X0*X1                                                  FAX      2206
           427  7222777744                        SX2    X2-1R0                                                  FAX      2207
                          63310                   SB3    X1                                                      FAX      2208
                               12442              BX4    X4+X2                                                   FAX      2209
           430  0100003140 +                      RJ     REF               GET THE RELATIVE ADDRESS, SET IT AND  FAX      2210
           431  20422                             LX4    18                OUTPUT THE INSTRUCTION                FAX      2211
                     6160001015 +                 SB6    L4.CKRB                                                 FAX      2212
           432  6110000036                        SB1    30                                                      FAX      2213
                          12434                   BX4    X3+X4                                                   FAX      2214
           433  0400003211 +                      EQ     WRTEXT                                                  FAX      2215
           434                                    MOVEND                                                         FAX      2216
  
  
  
  
                                        ************************************************************************ FAX      2218
                                        *                                                                      * FAX      2219
                                        *     EQ LABEL       -- X4=0400B                                       * FAX      2220
                                        *     EQ BI,BJ,LABEL --  .   .                                         * FAX      2221
                                        *                                                                      * FAX      2222
                                        ************************************************************************ FAX      2223
  
  
          2042                                    MOVSTART  9                                                    FAX      2225
           563  23145                    L3.EQ    GCH    X1                                                      FAX      2226
           564  7271777775                        SX7    X1-1RB                                                  FAX      2227
                          0317000416 +            NZ     X7,L3.UCJP        IF THERE ARE NO B REGISTERS SPECIFIED FAX      2228
           565  23345                             AX3    X5,B4             THEN PROCESS AN UNCONDITIONAL JUMP.   FAX      2229
                     15250                        BX2    -X0*X5            X2.= J                                FAX      2230
                          54555                   SA5    A5+B5                                                   FAX      2231
                               15330              BX3    -X0*X3            X3.= I                                FAX      2232
           566  67476                             SB4    B7-B6                                                   FAX      2233
                     37623                        IX6    X2-X3                                                   FAX      2234
                          23145                   GCH    X1                                                      FAX      2235
                     0306000416 +                 ZR     X6,L3.UCJP        IF I=J THEN PROCESS AN UNCONDITIONAL  FAX      2236
                               20303              LX3    3                 JUMP ELSE SET I,J AND K AND EXIT.     FAX      2237
           570  7244777414                        SX4    X4-363B                                                 FAX      2238
                          66260                   SB2    B6                                                      FAX      2239
                               36323              IX3    X2+X3                                                   FAX      2240
           571  63310                             SB3    X1                                                      FAX      2241
                     36443                        IX4    X4+X3                                                   FAX      2242
                          0100003140 +            RJ     REF                                                     FAX      2243
           572  20422                             LX4    18                                                      FAX      2244
                     6110000036                   SB1    30                                                      FAX      2245
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    50
         EXECUTABLE CODE PROCESSORS 
  
                               12434              BX4    X3+X4                                                   FAX      2246
           573  6160001015 +                      SB6    L4.CKRB                                                 FAX      2247
                          0400003211 +            EQ     WRTEXT                                                  FAX      2248
           574                                    MOVEND                                                         FAX      2249
  
  
  
  
                                        ************************************************************************ FAX      2251
                                        *                                                                      * FAX      2252
                                        *     NE BI,BJ,LABEL  -- X4=0500B                                      * FAX      2253
                                        *     GE  .  .   .    -- X4=0600B                                      * FAX      2254
                                        *     LT  .  .   .    -- X4=0700B                                      * FAX      2255
                                        *                                                                      * FAX      2256
                                        ************************************************************************ FAX      2257
  
  
          2042                                    MOVSTART  7                                                    FAX      2259
           457  6144777763               L3.BJP   SB4    B4-12                                                   FAX      2260
                          66260                   SB2    B6                                                      FAX      2261
                               23245              AX2    X5,B4                                                   FAX      2262
           460  15350                             BX3    -X0*X5            X3.= J                                FAX      2263
                     54555                        SA5    A5+B5                                                   FAX      2264
                          7244777414              SX4    X4-363B                                                 FAX      2265
           461  15220                             BX2    -X0*X2            X2.= I                                FAX      2266
                     67476                        SB4    B7-B6             CONVERT I AND J TO BINARY AND ADD THE FAX      2267
                          20203                   LX2    3                 THE OPCODE PROTOTYPE.                 FAX      2268
                               36443              IX4    X4+X3                                                   FAX      2269
           462  23145                             AX1    X5,B4             FIRST CHARACTER OF THE LABEL TO X1    FAX      2270
                     36442                        IX4    X4+X2                                                   FAX      2271
                          15110                   BX1    -X0*X1                                                  FAX      2272
                               20422              LX4    18                MAKE A 30 BIT INSTRUCTION             FAX      2273
           463  63310                             SB3    X1                                                      FAX      2274
                     67446                        SB4    B4-B6                                                   FAX      2275
                          0100003140 +            RJ     REF                                                     FAX      2276
           464  6110000036                        SB1    30                                                      FAX      2277
                          6160001015 +            SB6    L4.CKRB                                                 FAX      2278
           465  12443                             BX4    X4+X3             SET THE ADDRESS AND EXIT TO OUTPUT TH FAX      2279
                     0400003211 +                 EQ     WRTEXT            INSTRUCTION.                          FAX      2280
           466                                    MOVEND                                                         FAX      2281
  
  
  
                                        ***                                                                      FAX      2283
                                        *         CXI  XJ                                                        FAX      2284
                                        *                                                                        FAX      2285
          2042  23645                    L3.CNT   AX6    B4,X5                                                   FAX      2286
                     6144777755                   SB4    B4-18                                                   FAX      2287
                               15460              BX4    -X0*X6            I                                     FAX      2288
          2043  37647                             IX6    X4-X7                                                   FAX      2289
                     23545                        AX5    B4,X5                                                   FAX      2290
                          15350                   BX3    -X0*X5            J                                     FAX      2291
                               37337              IX3    X3-X7                                                   FAX      2292
          2044  7246000470                        SX4    X6+470B                                                 FAX      2293
                          20403                   LX4    3                                                       FAX      2294
                               36434              IX4    X3+X4                                                   FAX      2295
          2045  20403                             LX4    3                                                       FAX      2296
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    51
         EXECUTABLE CODE PROCESSORS 
  
                     36434                        IX4    X3+X4             47IJJ                                 FAX      2297
                          0400003210 +            EQ     L4.15                                                   FAX      2298
  
  
  
  
                                        ************************************************************************ FAX      2300
                                        *                                                                      * FAX      2301
                                        *     BXI XJ                                                           * FAX      2302
                                        *      .  XJ+XK                                                        * FAX      2303
                                        *      .  XJ-XK                                                        * FAX      2304
                                        *      .  XJ*XK                                                        * FAX      2305
                                        *      .  -XJ                                                          * FAX      2306
                                        *      .  -XJ+XK                                                       * FAX      2307
                                        *      .  -XJ-XK                                                       * FAX      2308
                                        *      .  -XJ*XK                                                       * FAX      2309
                                        *                                                                      * FAX      2310
                                        *         ON ENTRY  X4=0                                               * FAX      2311
                                        *                                                                      * FAX      2312
                                        ************************************************************************ FAX      2313
  
  
          2046                                    MOVSTART  14                                                   FAX      2315
           333  23445                    L3.BOOL  AX4    X5,B4             PICK I                                FAX      2316
                     6144777763                   SB4    B4-12             SKIP THE SPACE                        FAX      2317
                               15440              BX4    -X0*X4                                                  FAX      2318
           334  23145                             AX1    X5,B4             PICK 1ST CH OF THE ADD. FIELD         FAX      2319
                     6110777744                   SB1    -1R0              CONSTANT FOR NUMERIC CONVERSION       FAX      2320
                               73441              SX4    X4+B1             SET I                                 FAX      2321
           335  7120000140                        SX2    140B              MASK FOR BITS 2,3 OF THE OPCODE       FAX      2322
                          11121                   BX1    X2*X1                                                   FAX      2323
                               36414              IX4    X1+X4             SET BITS 2,3                          FAX      2324
           336  20166                             LX1    54                                                      FAX      2325
                     0321000337 +                 PL     X1,L3.BNM1        IF THE FIRST CH WAS A MINUS THEN SKIP FAX      2326
                               67446              SB4    B4-B6             THE X.                                FAX      2327
           337  67446                    L3.BNM1  SB4    B4-B6                                                   FAX      2328
                     20403                        LX4    3                 POSITION OPCODE FOR J                 FAX      2329
                          23145                   GCH    X1                PICK J                                FAX      2330
                     73111                        SX1    X1+B1             CONVERT TO OCTAL                      FAX      2331
                          23245                   AX2    X5,B4             PICK THE 2ED OPERATOR                 FAX      2332
                               36441              IX4    X4+X1             SET J                                 FAX      2333
           341  15220                             BX2    -X0*X2                                                  FAX      2334
                     7110000300                   SX1    300B              MASK FOR BITS 0,1 OF THE OPCODE       FAX      2335
                               22351              LX3    X1,B5             DATA FOR BITS 0,1 OF THE OPCODE       FAX      2336
           342  6232777732                        SB3    X2-45B            B3.=OPERATOR-45B                      FAX      2337
                          23333                   AX3    X3,B3             SHIFT DATA AND MASK TO SELECT BITS 0, FAX      2338
                               11331              BX3    X3*X1                                                   FAX      2339
           343  36434                             IX4    X3+X4                                                   FAX      2340
                     20403                        LX4    3                 POSITION OPCODE FOR K                 FAX      2341
                          0303000233 +            ZR     X3,L3.BNK         IF THE 2ED OPERATOR WAS A SPACE THEN  FAX      2342
           344  54555                             SA5    A5+B5             ELSE PICK AND SET K.                  FAX      2343
                     0540000345 +                 NZ     B4,L3.BNM2        IF THERE WAS A PRECEEDING MINUS THEN  FAX      2344
                               67776              SB7    B7-B6             K IS THE 2ED CH IN THE NEW WORD.      FAX      2345
           345  23175                    L3.BNM2  AX1    X5,B7                                                   FAX      2346
                     15110                        BX1    -X0*X1                                                  FAX      2347
                          73111                   SX1    X1+B1                                                   FAX      2348
           346  0540000350 +                      NZ     B4,L3.BNM3        IF THERE WAS A PRECEEDING MINUS THEN  FAX      2349
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    52
         EXECUTABLE CODE PROCESSORS 
  
                          15240                   BX2    -X0*X4            EXCHANGE J AND K.                     FAX      2350
                               20103              LX1    3                                                       FAX      2351
           347  11404                             BX4    X0*X4                                                   FAX      2352
                     21203                        AX2    3                                                       FAX      2353
                          12424                   BX4    X2+X4                                                   FAX      2354
           350  36414                    L3.BNM3  IX4    X1+X4                                                   FAX      2355
                     0400003210 +                 EQ     L4.15                                                   FAX      2356
           351                                    MOVEND                                                         FAX      2357
  
  
          2046                                    MOVSTART  2                                                    FAX      2359
           233  43071                    L3.BNK   MX0    57                                                      FAX      2360
                     6110000003                   SB1    3                                                       FAX      2361
                               23214              AX2    X4,B1                                                   FAX      2362
           234  15220                             BX2    -X0*X2                                                  FAX      2363
                     36442                        IX4    X4+X2                                                   FAX      2364
                          0400003210 +            EQ     L4.15                                                   FAX      2365
           235                                    MOVEND                                                         FAX      2366
  
  
  
  
                                        ************************************************************************ FAX      2368
                                        *                                                                      * FAX      2369
                                        *     MXI CON.   -- X4=43000B                                          * FAX      2370
                                        *     AXI  .     -- X4=21000B                                          * FAX      2371
                                        *     LXI  .     -- X4=20000B                                          * FAX      2372
                                        *     AXI BJ,XK  -- X4=21000B                                          * FAX      2373
                                        *     LXI  .  .  -- X4=20000B                                          * FAX      2374
                                        *                                                                      * FAX      2375
                                        ************************************************************************ FAX      2376
  
  
          2046                                    MOVSTART  6B                                                   FAX      2378
           404                           L3.MX    BSS    0                                                       FAX      2379
           404  23145                    L3.SH    AX1    X5,B4             PICK I                                FAX      2380
                     6144777763                   SB4    B4-12             SKIP THE SPACE                        FAX      2381
                               15110              BX1    -X0*X1                                                  FAX      2382
           405  6130777744                        SB3    -1R0              CONSTANT FOR NUMERIC CONVERSION       FAX      2383
                          73113                   SX1    X1+B3                                                   FAX      2384
                               20106              LX1    6                                                       FAX      2385
           406  12441                             BX4    X4+X1             SET I                                 FAX      2386
                     23145                        AX1    X5,B4             PICK THE 1ST CH OF ADD FIELD          FAX      2387
                          15110                   BX1    -X0*X1                                                  FAX      2388
                               73113              SX1    X1+B3                                                   FAX      2389
           407  67446                             SB4    B4-B6                                                   FAX      2390
                     0331000365 +                 NG     X1,L3.SNOM        IF THE 1ST CH IS ALPHABETIC THEN      FAX      2391
                               23245              AX2    X5,B4             NOMINAL SHIFT.                        FAX      2392
           410  15220                             BX2    -X0*X2            PICK 2ED CH OF THE ADD. FIELD         FAX      2393
                     73323                        SX3    X2+B3                                                   FAX      2394
                          0333000370 +            NG     X3,L3.SC2         IF ALPHA THEN GOTO L3.SC2 ELSE GOTO   FAX      2395
           411  0400000367 +                      EQ     L3.SC1            L3.SC1.                               FAX      2396
           412                                    MOVEND                                                         FAX      2397
          2046                                    MOVSTART  4B                                                   FAX      2398
           365  7244002000               L3.SNOM  SX4    X4+2000B          IP.=IP+2000B FOR NOMINAL SHIFTS       FAX      2399
                          23145                   AX1    X5,B4             PICK J                                FAX      2400
                               15110              BX1    -X0*X1                                                  FAX      2401
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    53
         EXECUTABLE CODE PROCESSORS 
  
           366  73113                             SX1    X1+B3                                                   FAX      2402
                     54555                        SA5    A5+B5             GET NEXT WORD                         FAX      2403
                          23275                   AX2    X5,B7             PICK K AS THE 1ST CH OF THE NEW WORD  FAX      2404
                               15220              BX2    -X0*X2                                                  FAX      2405
           367  7222777744               L3.SC1   SX2    X2-1R0                                                  FAX      2406
                          20103                   LX1    3                                                       FAX      2407
                               12442              BX4    X4+X2             SET K                                 FAX      2408
           370  36441                    L3.SC2   IX4    X4+X1             SET J                                 FAX      2409
                     0400003210 +                 EQ     L4.15                                                   FAX      2410
           371                                    MOVEND                                                         FAX      2411
  
  
  
  
                                        ************************************************************************ FAX      2413
                                        *                                                                      * FAX      2414
                                        *     NXI BJ,XK  -- X4=24000B                                          * FAX      2415
                                        *     UXI  .  .  -- X4=26000B                                          * FAX      2416
                                        *     PXI  .  .  -- X4=27000B                                          * FAX      2417
                                        *                                                                      * FAX      2418
                                        ************************************************************************ FAX      2419
  
  
          2046                                    MOVSTART  5B                                                   FAX      2421
           352  23145                    L3.PUN   AX1    X5,B4                                                   FAX      2422
                     15110                        BX1    -X0*X1                                                  FAX      2423
                          6144777755              SB4    B4-18                                                   FAX      2424
           353  20106                             LX1    6                                                       FAX      2425
                     36441                        IX4    X4+X1             OPCODE.=OPCODE+I*8**2                 FAX      2426
                          23245                   AX2    X5,B4                                                   FAX      2427
                               15220              BX2    -X0*X2                                                  FAX      2428
           354  54555                             SA5    A5+B5                                                   FAX      2429
                     20203                        LX2    3                                                       FAX      2430
                          36442                   IX4    X4+X2             OPCODE.=OPCODE+J*8                    FAX      2431
                               23375              AX3    X5,B7                                                   FAX      2432
           355  15330                             BX3    -X0*X3                                                  FAX      2433
                     36443                        IX4    X4+X3                                                   FAX      2434
                          7244774114              SX4    X4-3663B          CONVERT I,J,K TO BINARY               FAX      2435
           356  0400003210 +                      EQ     L4.15                                                   FAX      2436
           357                                    MOVEND                                                         FAX      2437
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    54
         EXECUTABLE CODE PROCESSORS 
  
                                        ************************************************************************ FAX      2439
                                        *                                                                      * FAX      2440
                                        *     FXI XJ+XK  -- X4=0                                               * FAX      2441
                                        *      .  . - .  --  .                                                 * FAX      2442
                                        *      .  . * .  --  .                                                 * FAX      2443
                                        *      .  . / .  --  .                                                 * FAX      2444
                                        *                                                                      * FAX      2445
                                        *     DXI . + .  -- X4=02000B                                          * FAX      2446
                                        *      .  . - .  --  .                                                 * FAX      2447
                                        *      .  . * .  --  .                                                 * FAX      2448
                                        *                                                                      * FAX      2449
                                        *     IX1 . + .  -- X4=06000B                                          * FAX      2450
                                        *      .  . - .      .                                                 * FAX      2451
                                        *                                                                      * FAX      2452
                                        ************************************************************************ FAX      2453
  
  
          2046  00000030000030000030     XRGMSK   VFD    24/1RX,18/1RX,18/1RX                                    FAX      2455
                                                                                                                 FAX      2456
          2047                           L3.ARIT  BSS    0                                                       FAX      2457
                                         .T       IFNE   TEST,0                                                  FAX      2458
                                                  SA1    XRGMSK                                                  FAX      2459
                                                  BX2    X1*X5                                                   FAX      2460
                                                  BX1    X1-X2                                                   FAX      2461
                                                  NZ     X1,ILL      IF NOT XI XJ OP XK                          FAX      2462
                                         .T       ENDIF                                                          FAX      2463
          2047  23165                             AX1    B6,X5                                                   FAX      2464
                     15110                        BX1    -X0*X1                                                  FAX      2465
                          5211000543 +            SA1    X1+ARITAB-1R+     PICK UP OPCODE MASK                   FAX      2466
          2050  12441                             BX4    X4+X1             OPCODE.=IP .OR. MASK                  FAX      2467
                     0400000352 +                 EQ     L3.PUN            GO TO PUN TO SET I,J,K                FAX      2468
  
  
          2051                                    MOVSTART  4B                                                   FAX      2470
           610  00000000000000030000     ARITAB   DATA   30000B            TABLE OF OPCODE MASKS FOR THE ARITHME FAX      2471
           611  00000000000000031000              DATA   31000B            OPERATIONS.                           FAX      2472
           612  00000000000000040000              DATA   40000B                                                  FAX      2473
           613  00000000000000044000              DATA   44000B                                                  FAX      2474
           614                                    MOVEND                                                         FAX      2475
  
  
  
  
                                        ************************************************************************ FAX      2477
                                        *                                                                      * FAX      2478
                                        *     RXI XJ+XK  -- X4=0                                               * FAX      2479
                                        *      .  . - .  --                                                    * FAX      2480
                                        *      .  . * .  --                                                    * FAX      2481
                                        *      .  . / .  --                                                    * FAX      2482
                                        *                                                                      * FAX      2483
                                        ************************************************************************ FAX      2484
  
  
          2051                                    MOVSTART  2                                                    FAX      2486
           320  23165                    L3.RX    AX1    B6,X5                                                   FAX      2487
                     15110                        BX1    -X0*X1                                                  FAX      2488
                          0301000376 +            ZR     X1,L3.DRL   SENSE READ LCM                              FAX      2489
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    55
         EXECUTABLE CODE PROCESSORS 
  
           321  5241000602 +                      SA4    X1+ROUNDTAB-1R+   PICKUP OPCODE MASK                    FAX      2490
                          0400000352 +            EQ     L3.PUN            GO TO PUN TO SET I, J, K              FAX      2491
           322                                    MOVEND                                                         FAX      2492
          2051                                    MOVSTART 4                                                     FAX      2493
           647  00000000000000034000     ROUNDTAB DATA   34000B            TABLE OF OPCODE MASKS FOR ROUNDED     FAX      2494
           650  00000000000000035000              DATA   35000B            ARITHMETIC                            FAX      2495
           651  00000000000000041000              DATA   41000B                                                  FAX      2496
           652  00000000000000045000              DATA   45000B                                                  FAX      2497
           653                                    MOVEND                                                         FAX      2498
                                        *****                                                                    FAX      2499
                                        *     RXJ  XK    X4=01400B                                               FAX      2500
                                        *     WXJ  XK    X4=01500B                                               FAX      2501
                                        *                                                                        FAX      2502
          2051                                    MOVSTART 5                                                     FAX      2503
           376  7140001400               L3.DRL   SX4    01400B                                                  FAX      2504
           377  23145                    L3.RWX   AX1    B4,X5                                                   FAX      2505
                     6144777755                   SB4    B4-18                                                   FAX      2506
                               15110              BX1    -X0*X1      EXTRACT J                                   FAX      2507
           400  23245                             AX2    B4,X5                                                   FAX      2508
                     20103                        LX1    3           POS. J                                      FAX      2509
                          15220                   BX2    -X0*X2      EXTRACT K                                   FAX      2510
                               36414              IX4    X1+X4       OR IN J                                     FAX      2511
           401  36424                             IX4    X2+X4       OR IN K                                     FAX      2512
                     7244777414                   SX4    X4-363B     CONVERT J,K TO BINARY                       FAX      2513
           402  0400003210 +                      EQ     L4.15                                                   FAX      2514
           403                                    MOVEND                                                         FAX      2515
  
  
  
  
                                        ************************************************************************ FAX      2517
                                        *                                                                      * FAX      2518
                                        *         THIS ROUTINE PROCESSES THE ADDRESS FIELD OF THE SET INSTRUC- * FAX      2519
                                        *         TIONS. IT IS REQUIRED TO SET THE LEAST SIGNIFICANT DIGIT OF  * FAX      2520
                                        *         THE OPCODE(H FIELD) AND THE I,J AND K FIELDS. ON ENTRY X4    * FAX      2521
                                        *         WILL CONTAIN EITHER 51000B,61000B OR 71000B. THE POSSIBLE    * FAX      2522
                                        *         ADDRESS FIELDS THAT MAY BE ENCOUNTERED ARE                   * FAX      2523
                                        *                                                                      * FAX      2524
                                        *                   RJ,                                                * FAX      2525
                                        *                   RJ+OR-RK,                                          * FAX      2526
                                        *                   RJ+OR-AE,OR                                        * FAX      2527
                                        *                   AE                                                 * FAX      2528
                                        *              WHERE AE(ADDRESS EXPRESSION) IS EITHER                  * FAX      2529
                                        *                   OCTAL CONSTANT,                                    * FAX      2530
                                        *                   SYMBOL(+OR-OCTAL CONSTANT)(+OR-OCTAL CONSTANT),OR  * FAX      2531
                                        *                   SYMBOL-SYMBOL(+OR-OCTAL CONSTANT).                 * FAX      2532
                                        *                                                                      * FAX      2533
                                        *         ON EXIT X4 CONTAINS  EITHER A 15 OR 30 BIT INSTRUCTION.      * FAX      2534
                                        *                                                                      * FAX      2535
                                        ************************************************************************ FAX      2536
  
  
          2051                                    MOVSTART  3                                                    FAX      2538
           557  00000000000000000001     L3.S1TB  DATA   1,-1,0                                                  FAX      2539
           562                                    MOVEND                                                         FAX      2540
  
  
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    56
         EXECUTABLE CODE PROCESSORS 
  
          2051                                    MOVSTART  3                                                    FAX      2542
           751  00000000000000003000     L3.S3TB  DATA   3000B,5000B,2000B                                       FAX      2543
           754                                    MOVEND                                                         FAX      2544
  
  
          2051                                    MOVSTART  3                                                    FAX      2546
           436  00000000000000004000     L3.S6TB  DATA   4000B,5000B,1000B                                       FAX      2547
           441                                    MOVEND                                                         FAX      2548
  
  
          2051                                    MOVSTART  4                                                    FAX      2550
           756  23145                    L3.SET   AX1    X5,B4             PICK AND SET THE I FIELD              FAX      2551
                     15110                        BX1    -X0*X1                                                  FAX      2552
                          7211777744              SX1    X1-1R0                                                  FAX      2553
           757  6144777763                        SB4    B4-12             SKIP THE SPACE                        FAX      2554
                          20106                   LX1    6                                                       FAX      2555
                               13441              BX4    X4-X1                                                   FAX      2556
           760  23145                             GCH    X1                FIRST CH OF THE ADDRESS FIELD TO X1   FAX      2557
                               63310              SB3    X1                                                      FAX      2558
           761  13777                             BX7    X7-X7             NEGFLAG OFF, ADD.SUM.= 0              FAX      2559
                     66260                        SB2    B6                B2.= BIT COUNT OF CHARACTERS IN X1 (B FAX      2560
                          0233002071 +            JP     B3+L3.JVEC        JUMP INTO JVEC WITH FIRST CHARACTER   FAX      2561
           762                                    MOVEND                                                         FAX      2562
  
  
          2051                                    MOVSTART  7                                                    FAX      2564
           524  43372                    L3.S1    MX3    58                                                      FAX      2565
                     23645                        AX6    X5,B4                                                   FAX      2566
                          5120003703 +            SA2    =77600000000B                                           FAX      2567
           525  15313                             BX3    -X3*X1            X3.= LOW ORDER 2BITS OF FIRST CHARACT FAX      2568
                     15660                        BX6    -X0*X6                                                  FAX      2569
                          5233000557 +            SA3    X3+L3.S1TB                                              FAX      2570
           526  63160                             SB1    X6                B1.= SECOND CHARACTER                 FAX      2571
                     22212                        LX2    X2,B1                                                   FAX      2572
                          53030                   SA0    X3                A0.=S1TB(X3)                          FAX      2573
           527  0322000617 +                      PL     X2,L3.S7          IF 2ED CHARACTER IS NOT AN OCTAL DIGI FAX      2574
                          20106                   LX1    6                                                       FAX      2575
                               67446              SB4    B4-B6                                                   FAX      2576
           530  12116                             BX1    X1+X6             X1.= FIRST AND SECOND CHARACTERS      FAX      2577
                     66226                        SB2    B2+B6                                                   FAX      2578
                          23345                   AX3    X5,B4             THEN PROCESS AN A.E.                  FAX      2579
                               15330              BX3    -X0*X3                                                  FAX      2580
           531  5223002071 +                      SA2    X3+L3.JVEC                                              FAX      2581
                          63120                   SB1    X2                                                      FAX      2582
           532  7266777744                        SX6    X6-1R0            PICK UP ORDINAL FROM JVEC WITH 3RD CH FAX      2583
                          0211002051 +            JP     B1+L3.S3JT        INTO S3JT WITH IT.                    FAX      2584
           533                                    MOVEND                                                         FAX      2585
  
  
          2051  5010000752 +             L3.S3JT  SA1    A0+L3.S3TB+1      SPACE OR ZERO BYTE -- H.= 3,4,OR 6    FAX      2587
                          0400000441 +            EQ     L3.S3EX           J.=(X6), K.=0                         FAX      2588
          2052  0400000617 +                      EQ     L3.S7                                                   FAX      2589
          2053  16777                    +        BX7    -X7+X7            MINUS -- NEGFLAG ON                   FAX      2590
          2054  20603                    +        LX6    3                 PLUS  -- H.=H+(A0), CONTINUE ANALYSIS FAX      2591
                     74300                        SX3    A0                                                      FAX      2592
                          12446                   BX4    X4+X6             J.=(X6)                               FAX      2593
                               20311              LX3    9                                                       FAX      2594
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    57
         EXECUTABLE CODE PROCESSORS 
  
          2055  66470                             SB4    B7                                                      FAX      2595
                     15150                        BX1    -X0*X5            X1.= 4TH CHARACTER                    FAX      2596
                          36443                   IX4    X4+X3                                                   FAX      2597
                               63310              SB3    X1                                                      FAX      2598
          2056  54555                             SA5    A5+B5                                                   FAX      2599
                     6211777775                   SB1    X1-1RB                                                  FAX      2600
                               66260              SB2    B6                BC.= 6                                FAX      2601
          2057  0510000617 +                      NZ     B1,L3.S7          IF 4TH CHARACTER IS NOT B THEN PROCES FAX      2602
                          23645                   AX6    X5,B4             AN A.E.                               FAX      2603
          2060  5130003703 +                      SA3    =77600000000B                                           FAX      2604
                          15660                   BX6    -X0*X6            X6.= 5TH CHARACTER                    FAX      2605
                               63160              SB1    X6                                                      FAX      2606
          2061  22313                             LX3    X3,B1                                                   FAX      2607
                     0323000617 +                 PL     X3,L3.S7          IF 5TH CHARACTER IS NOT AN OCTAL DIGI FAX      2608
                               20106              LX1    6                                                       FAX      2609
          2062  67446                             SB4    B4-B6                                                   FAX      2610
                     12116                        BX1    X1+X6                                                   FAX      2611
                          66226                   SB2    B2+B6                                                   FAX      2612
                               23245              AX2    X5,B4             THEN GO PROCESS AN A.E.               FAX      2613
          2063  66226                             SB2    B2+B6             BC.= BC+6                             FAX      2614
                     20106                        LX1    6                                                       FAX      2615
                          15220                   BX2    -X0*X2            X2.= 6TH CHARACTER                    FAX      2616
                               67446              SB4    B4-B6                                                   FAX      2617
          2064  12112                             BX1    X1+X2             X1.= 4TH,5TH,AND 6TH CHARACTERS       FAX      2618
                     7222777722                   SX2    X2-1R                                                   FAX      2619
          2065  0312000617 +                      NZ     X2,L3.S7          IF 6TH CHARACTER IS NOT A ZERO BYTE T FAX      2620
                          5010000437 +            SA1    A0+L3.S6TB+1      PROCESS AN A.E.                       FAX      2621
          2066  7266777744                        SX6    X6-1R0                                                  FAX      2622
                          36441                   IX4    X4+X1             H.= H+1,4,5                           FAX      2623
                               12446              BX4    X4+X6             K.= (X6)                              FAX      2624
          2067  0327003210 +                      PL     X7,L4.15          IF NEGFLAG IS ON THEN H.=H+1          FAX      2625
                          7244001000              SX4    X4+1000B                                                FAX      2626
          2070  0400003210 +                      EQ     L4.15                                                   FAX      2627
  
  
          2071                                    MOVSTART  5                                                    FAX      2629
           615  14777                    L3.S11M  BX7    -X7                                                     FAX      2630
                     23145                        GCH    X1                                                      FAX      2631
           616  63310                             SB3    X1                                                      FAX      2632
  
  
           617                           L3.S11Z  BSS    0                                                       FAX      2634
           617                           L3.S11P  BSS    0                                                       FAX      2635
           617                           L3.S7.1A BSS    0                                                       FAX      2636
           617  10677                    L3.S7    BX6    X7                                                      FAX      2637
                     20417                        LX4    15                                                      FAX      2638
                          0100000266 +            RJ     EVAL                                                    FAX      2639
           620  6160001015 +                      SB6    L4.CKRB                                                 FAX      2640
                          6110000036              SB1    30                                                      FAX      2641
           621  0400003211 +                      EQ     WRTEXT                                                  FAX      2642
           622                                    MOVEND                                                         FAX      2643
  
  
          2071                                    MOVSTART  2                                                    FAX      2645
           441  20603                    L3.S3EX  LX6    3                                                       FAX      2646
                     36441                        IX4    X4+X1                                                   FAX      2647
                          46000                   NO                                                             FAX      2648
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    58
         EXECUTABLE CODE PROCESSORS 
  
                               12446              BX4    X4+X6                                                   FAX      2649
           442  0400003210 +                      EQ     L4.15                                                   FAX      2650
           443                                    MOVEND                                                         FAX      2651
  
  
                                        ************************************************************************ FAX      2653
                                        *                                                                      * FAX      2654
                                        *         JUMP VECTOR AND CH CODE CONVERSION CONSTANTS USED FOR        * FAX      2655
                                        *         DECISIONS ON CHS IN THE ADDRESS FIELD OF THE SET INSTRUCTIONS* FAX      2656
                                        *                                                                      * FAX      2657
                                        *         BITS 59-30 ARE A TRUE JUMP VECTOR WHILE THE OTHER THREE      * FAX      2658
                                        *         FIELDS IN EACH WORD ARE USED AS ORDINALS TO SMALLER JUMP     * FAX      2659
                                        *         VECTORS. THE WORD IS PICKED UP USING THE CH CODE AS AN INDEX * FAX      2660
                                        *         AND THE PROPER FIELD IS SEPARATED TO AN INDEX REGISTER.      * FAX      2661
                                        *                                                                      * FAX      2662
                                        *         BITS 59-30 ARE USED TO SEPARATE A,B,X,OTHER ALPHABETIC CHS   * FAX      2663
                                        *                    INCLUDING .)#[]89 , OCTAL DIGITS                  * FAX      2664
                                        *         BITS 24-29 SEPARATE  SPACE OR ZERO BYTE,+ AND -              * FAX      2665
                                        *                                                                      * FAX      2666
                                        *         BITS 23-18 SEPARATE  OCTAL DIGITS, ALPHABETIC, AND B         * FAX      2667
                                        *                                                                      * FAX      2668
                                        *         BITS 17-0  SEPARATE  SPACE OR ZERO BYTE, ALPHABETIC, -, +    * FAX      2669
                                        *                                                                      * FAX      2670
                                        ************************************************************************ FAX      2671
  
  
          2071  0400003446 +             L3.JVEC  EQ     ILL               00                     L3.JVEC  EQ    FAX      2673
                          0001000000     -        VFD    6/0,6/1,18/0                                            FAX      2674
          2072  0400000524 +                      EQ     L3.S1                                                   FAX      2675
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2676
          2073  0400000524 +                      EQ     L3.S1                                                   FAX      2677
                          0002000001     -        VFD    6/0,6/2,18/1                                            FAX      2678
          2074  0400000617 +                      EQ     L3.S7.1A          C                               EQ    FAX      2679
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2680
          2075  0400000617 +                      EQ     L3.S7.1A          D                               EQ    FAX      2681
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2682
          2076  0400000617 +                      EQ     L3.S7.1A          E                               EQ    FAX      2683
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2684
          2077  0400000617 +                      EQ     L3.S7.1A          F                               EQ    FAX      2685
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2686
          2100  0400000617 +                      EQ     L3.S7.1A          G                               EQ    FAX      2687
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2688
          2101  0400000617 +                      EQ     L3.S7.1A          H                               EQ    FAX      2689
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2690
          2102  0400000617 +                      EQ     L3.S7.1A          I                               EQ    FAX      2691
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2692
          2103  0400000617 +                      EQ     L3.S7.1A          J                               EQ    FAX      2693
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2694
          2104  0400000617 +                      EQ     L3.S7.1A          K                               EQ    FAX      2695
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2696
          2105  0400000617 +                      EQ     L3.S7.1A          L                               EQ    FAX      2697
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2698
          2106  0400000617 +                      EQ     L3.S7.1A          M                               EQ    FAX      2699
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2700
          2107  0400000617 +                      EQ     L3.S7.1A          N                               EQ    FAX      2701
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2702
          2110  0400000617 +                      EQ     L3.S7.1A          O                               EQ    FAX      2703
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    59
         EXECUTABLE CODE PROCESSORS 
  
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2704
          2111  0400000617 +                      EQ     L3.S7.1A          P                               EQ    FAX      2705
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2706
          2112  0400000617 +                      EQ     L3.S7.1A          Q                               EQ    FAX      2707
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2708
          2113  0400000617 +                      EQ     L3.S7.1A          R                               EQ    FAX      2709
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2710
          2114  0400000617 +                      EQ     L3.S7.1A          S                               EQ    FAX      2711
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2712
          2115  0400000617 +                      EQ     L3.S7.1A          T                               EQ    FAX      2713
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2714
          2116  0400000617 +                      EQ     L3.S7.1A          U                               EQ    FAX      2715
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2716
          2117  0400000617 +                      EQ     L3.S7.1A          V                               EQ    FAX      2717
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2718
          2120  0400000617 +                      EQ     L3.S7.1A          W                               EQ    FAX      2719
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2720
          2121  0400000524 +                      EQ     L3.S1                                                   FAX      2721
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2722
          2122  0400000617 +                      EQ     L3.S7.1A          Y                               EQ    FAX      2723
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2724
          2123  0400000617 +                      EQ     L3.S7.1A          Z                               EQ    FAX      2725
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2726
          2124  0400000617 +                      EQ     L3.S11Z           0                               EQ    FAX      2727
                          0000000001     -        VFD    6/0,6/0,18/1                                            FAX      2728
          2125  0400000617 +                      EQ     L3.S11P           1                               EQ    FAX      2729
                          0000000001     -        VFD    6/0,6/0,18/1                                            FAX      2730
          2126  0400000617 +                      EQ     L3.S11P           2                               EQ    FAX      2731
                          0000000001     -        VFD    6/0,6/0,18/1                                            FAX      2732
          2127  0400000617 +                      EQ     L3.S11P           3                               EQ    FAX      2733
                          0000000001     -        VFD    6/0,6/0,18/1                                            FAX      2734
          2130  0400000617 +                      EQ     L3.S11P           4                               EQ    FAX      2735
                          0000000001     -        VFD    6/0,6/0,18/1                                            FAX      2736
          2131  0400000617 +                      EQ     L3.S11P           5                               EQ    FAX      2737
                          0000000001     -        VFD    6/0,6/0,18/1                                            FAX      2738
          2132  0400000617 +                      EQ     L3.S11P           6                               EQ    FAX      2739
                          0000000001     -        VFD    6/0,6/0,18/1                                            FAX      2740
          2133  0400000617 +                      EQ     L3.S11P           7                               EQ    FAX      2741
                          0000000001     -        VFD    6/0,6/0,18/1                                            FAX      2742
          2134  0400000617 +                      EQ     L3.S7.1A          8                               EQ    FAX      2743
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2744
          2135  0400000617 +                      EQ     L3.S7.1A          9                               EQ    FAX      2745
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2746
          2136  0400003446 +                      EQ     ILL               +                               EQ    FAX      2747
                          0101000003     -        VFD    6/1,6/1,18/3                                            FAX      2748
          2137  0400000615 +                      EQ     L3.S11M           -                               EQ    FAX      2749
                          0201000002     -        VFD    6/2,6/1,18/2                                            FAX      2750
          2140  0400003446 +                      EQ     ILL               *                               EQ    FAX      2751
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2752
          2141  0400003446 +                      EQ     ILL               /                               EQ    FAX      2753
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2754
          2142  0400003446 +                      EQ     ILL               (                               EQ    FAX      2755
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2756
          2143  0400000617 +                      EQ     L3.S7.1A          )                               EQ    FAX      2757
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2758
          2144  0400000617 +                      EQ     L3.S7.1A          $                               EQ    FAX      2759
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2760
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    60
         EXECUTABLE CODE PROCESSORS 
  
          2145  0400003446 +                      EQ     ILL               =                               EQ    FAX      2761
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2762
          2146  0400003446 +                      EQ     ILL               BLANK                           EQ    FAX      2763
                          0001000000     -        VFD    6/0,6/1,18/0                                            FAX      2764
          2147  0400003446 +                      EQ     ILL               ,                               EQ    FAX      2765
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2766
          2150  0400000617 +                      EQ     L3.S7.1A          .                               EQ    FAX      2767
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2768
          2151  0400000617 +                      EQ     L3.S7.1A          EQUIV                           EQ    FAX      2769
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2770
          2152  0400000617 +                      EQ     L3.S7.1A          RIGHT BRACKET                   EQ    FAX      2771
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2772
          2153  0400000617 +                      EQ     L3.S7.1A          LEFT BRACKET                    EQ    FAX      2773
                          0001000001     -        VFD    6/0,6/1,18/1                                            FAX      2774
                                   0     JTEND    EQU    DEBUG                                                   FAX      2775
                                                  IFEQ   JTEND,1                                                 FAX      2776
                                                  EQ     ILL               COLON                           EQ    FAX      2777
                                         -        VFD    6/0,6/1,18/1                                            FAX      2778
                                                  EQ     ILL               NOT EQUAL                       EQ    FAX      2779
                                         -        VFD    6/0,6/1,18/1                                            FAX      2780
                                                  EQ     ILL               RIGHT ARROW                     EQ    FAX      2781
                                         -        VFD    6/0,6/1,18/1                                            FAX      2782
                                                  EQ     ILL               OR                              EQ    FAX      2783
                                         -        VFD    6/0,6/1,18/1                                            FAX      2784
                                                  EQ     ILL               AND                             EQ    FAX      2785
                                         -        VFD    6/0,6/1,18/1                                            FAX      2786
                                                  EQ     ILL               UP ARROW                        EQ    FAX      2787
                                         -        VFD    6/0,6/1,18/1                                            FAX      2788
                                                  EQ     ILL               DOWN ARROW                      EQ    FAX      2789
                                         -        VFD    6/0,6/1,18/1                                            FAX      2790
                                                  EQ     ILL               LESS THAN                       EQ    FAX      2791
                                         -        VFD    6/0,6/1,18/1                                            FAX      2792
                                                  EQ     ILL               GREATER THAN                    EQ    FAX      2793
                                         -        VFD    6/0,6/1,18/1                                            FAX      2794
                                                  EQ     ILL               LESS THAN OR EQUAL              EQ    FAX      2795
                                         -        VFD    6/0,6/1,18/1                                            FAX      2796
                                                  EQ     ILL               GREATER THAN OR EQUAL           EQ    FAX      2797
                                         -        VFD    6/0,6/1,18/1                                            FAX      2798
                                                  EQ     ILL               NOT                             EQ    FAX      2799
                                         -        VFD    6/0,6/1,18/1                                            FAX      2800
                                                  EQ     ILL               SEMI-COLON                      EQ    FAX      2801
                                         -        VFD    6/0,6/1,18/1                                            FAX      2802
                                                  ENDIF                                                          FAX      2803
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    61
         PSEUDO-OP PROCESSORS 
  
                                        ************************************************************************ FAX      2805
                                        *                                                                      * FAX      2806
                                        * VFD-    THIS ROUTINE PROCESSES THE VFD PSEUDO-OP. THE ACCEPTABLE     * FAX      2807
                                        *         DATA FIELDS ARE-                                             * FAX      2808
                                        *                                                                      * FAX      2809
                                        *                   (N)/(OCTAL CONSTANT),N@60,                         * FAX      2810
                                        *                   (N)/(ADDRESS EXPRESSION) IF THIS RESULTS IN A RE-  * FAX      2811
                                        *                   LOCATABLE QUANTITY THEN IT MUST BE IN THE LOWER      FAX      2812
                                        *                   18 BITS OF THE WORD,                               * FAX      2813
                                        *                   (N*6)/(M)(C,H,L OR R)(CHARACTER STRING),0<N@10,    * FAX      2814
                                        *                   0@M@10                                             * FAX      2815
                                        *         ALSO THE SUM OF THE BITS SPECIFIED IN ANY ONE APPEARANCE OF  * FAX      2816
                                        *         A VFD MUST BE 15,30 OR 60.                                   * FAX      2817
                                        *                                                                      * FAX      2818
                                        ************************************************************************ FAX      2819
  
  
          2154                                    MOVSTART  1                                                    FAX      2821
           372                     1     BCTMP    BSS    1                                                       FAX      2822
           373                                    MOVEND                                                         FAX      2823
  
  
          2154                                    MOVSTART  11                                                   FAX      2825
           654  00000000000000000000     SPACES   DATA   0                 TABLE OF BLANKS USED FOR FILLING CHAR FAX      2826
           655  00000000000000000055              DATA   1R                STRING DATA.                          FAX      2827
           656  00000000000000005555              DATA   2R                                                      FAX      2828
           657  00000000000000555555              DATA   3R                                                      FAX      2829
           660  00000000000055555555              DATA   4R                                                      FAX      2830
           661  00000000005555555555              DATA   5R                                                      FAX      2831
           662  00000000555555555555              DATA   6R                                                      FAX      2832
           663  00000055555555555555              DATA   7R                                                      FAX      2833
           664  00005555555555555555              DATA   8R                                                      FAX      2834
           665  00555555555555555555              DATA   9R                                                      FAX      2835
           666  55555555555555555555              DATA   10R                                                     FAX      2836
           667                                    MOVEND                                                         FAX      2837
  
  
          2154  66367                    L3.VFD   SB3    B6+B7                                                   FAX      2839
                     13444                        BX4    X4-X4                                                   FAX      2840
                          6144777763              SB4    B4-12             SKIP 2 CHARACTERS                     FAX      2841
          2155  0640002156 +                      PL     B4,L3.V1                                                FAX      2842
                          54555                   SA5    A5+B5                                                   FAX      2843
                               66443              SB4    B4+B3                                                   FAX      2844
  
  
          2156  23145                    L3.V1    GCH    X1                SCAN TO ADDRESS FIELD                 FAX      2846
                               63310              SB3    X1                                                      FAX      2847
          2157  0640002160 +                      CWD                                                            FAX      2848
          2160  0413002156 +                      EQ     B1,B3,L3.V1                                             FAX      2849
                          56000                   SA0    B0                BIT COUNT.=0                          FAX      2850
  
  
          2161  5120003704 +             L3.V2    SA2    =77740000000B                                           FAX      2852
                          6110777744              SB1    -1R0              B1.=-33B                              FAX      2853
          2162  73711                    L3.V3    SX7    X1+B1             CONVERT THE FIELD LENGTH TO BINARY    FAX      2854
                     22653                        LX6    X3,B5                                                   FAX      2855
                          23145                   GCH    X1                                                      FAX      2856
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    62
         PSEUDO-OP PROCESSORS 
  
                     20303                        LX3    3                                                       FAX      2857
                          63310                   SB3    X1                                                      FAX      2858
                               36336              IX3    X3+X6                                                   FAX      2859
          2164  0640002165 +                      CWD                                                            FAX      2860
          2165  22632                             LX6    X2,B3                                                   FAX      2861
                     36337                        IX3    X3+X7                                                   FAX      2862
                          0336002162 +            NG     X6,L3.V3                                                FAX      2863
          2166  63230                             SB2    X3                                                      FAX      2864
                     23145                        GCH    X1                                                      FAX      2865
          2167  0640002170 +                      CWD                                                            FAX      2866
          2170  22424                             LX4    X4,B2                                                   FAX      2867
                     74702                        SX7    A0+B2                                                   FAX      2868
                          56020                   SA0    B2                                                      FAX      2869
                               63310              SB3    X1                                                      FAX      2870
          2171  22632                             LX6    X2,B3                                                   FAX      2871
                     66260                        SB2    B6                                                      FAX      2872
                          5170000372 +            SA7    BCTMP             EXAMINE THE FIRST CHAR OF THE DATA FI FAX      2873
          2172  0326000522 +                      PL     X6,L3.V12         IF NOT NUMERIC THEN TREAT AN ADDRESS  FAX      2874
                          23645                   GCH    X6                PRESSION ELSE DECIDE BETWEEN OCTAL CO FAX      2875
                     63360                        SB3    X6                STANT AND CHARACTER.                  FAX      2876
                          5130003703 +            SA3    =77600000000B                                           FAX      2877
          2174  0640002175 +                      CWD                                                            FAX      2878
          2175  22233                             LX2    X3,B3                                                   FAX      2879
                     73111                        SX1    X1+B1                                                   FAX      2880
                          0322000470 +            PL     X2,L3.V5                                                FAX      2881
          2176  23745                             GCH    X7                                                      FAX      2882
                               63370              SB3    X7                                                      FAX      2883
          2177  0640002200 +                      CWD                                                            FAX      2884
          2200  22233                             LX2    X3,B3                                                   FAX      2885
                     73661                        SX6    X6+B1                                                   FAX      2886
                          20103                   LX1    3                                                       FAX      2887
          2201  0322000473 +                      PL     X2,L3.V6                                                FAX      2888
                          22203                   LX2    X3,B0                                                   FAX      2889
                               12316              BX3    X1+X6                                                   FAX      2890
  
  
          2202  73171                    L3.V7    SX1    X7+B1             OCTAL CONSTANT                        FAX      2892
                     23745                        GCH    X7                                                      FAX      2893
          2203  0640002204 +                      CWD                                                            FAX      2894
          2204  20303                             LX3    3                                                       FAX      2895
                     63270                        SB2    X7                                                      FAX      2896
                          12331                   BX3    X3+X1                                                   FAX      2897
                               22622              LX6    X2,B2                                                   FAX      2898
          2205  0336002202 +                      NG     X6,L3.V7                                                FAX      2899
  
  
          2206  23745                    L3.V8    GCH    X7                B3.= NEXT CHARACTER, EXIT             FAX      2901
                               63370              SB3    X7                                                      FAX      2902
          2207  0640002210 +                      CWD                                                            FAX      2903
          2210  0400002217 +                      EQ     L3.V50                                                  FAX      2904
  
  
          2211                                    MOVSTART  2                                                    FAX      2906
           470  6216777775               L3.V5    SB1    X6-1RB                                                  FAX      2907
                          10311                   BX3    X1                                                      FAX      2908
                               63230              SB2    X3                                                      FAX      2909
           471  0510000445 +                      NZ     B1,L3.V9          IF CH=B THEN 1 DIGIT OCTAL CONSTANT E FAX      2910
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    63
         PSEUDO-OP PROCESSORS 
  
                          0400002206 +            EQ     L3.V8             ASSUME CHARACTER DATA.                FAX      2911
           472                                    MOVEND                                                         FAX      2912
  
  
          2211                                    MOVSTART  2                                                    FAX      2914
           473  6217777775               L3.V6    SB1    X7-1RB                                                  FAX      2915
                          0510000444 +            NZ     B1,L3.V20         IF CH=B THEN 2 DIGIT OCTAL CONSTANT E FAX      2916
           474  12316                             BX3    X1+X6             CHARACTER DATA.                       FAX      2917
                     0400002206 +                 EQ     L3.V8                                                   FAX      2918
           475                                    MOVEND                                                         FAX      2919
  
  
          2211                                    MOVSTART  3                                                    FAX      2921
           640  67121                    L3.V30   SB1    B2-B1                                                   FAX      2922
                     76711                        SX7    B1+B1                                                   FAX      2923
                          5111000654 +            SA1    B1+SPACES                                               FAX      2924
           641  63170                             SB1    X7                                                      FAX      2925
                     20701                        LX7    1                                                       FAX      2926
                          63171                   SB1    B1+X7                                                   FAX      2927
                               22313              LX3    X3,B1                                                   FAX      2928
           642  12313                             BX3    X1+X3                                                   FAX      2929
                     0400002211 +                 EQ     L3.V40                                                  FAX      2930
           643                                    MOVEND                                                         FAX      2931
  
  
          2211                                    MOVSTART  2                                                    FAX      2933
           522  43700                    L3.V12   MX7    0                                                       FAX      2934
                     13666                        BX6    X6-X6                                                   FAX      2935
                          0100000266 +            RJ     EVAL                                                    FAX      2936
           523  66310                             SB3    B1                                                      FAX      2937
                     13333                        BX3    X3-X3                                                   FAX      2938
                          0400002217 +            EQ     L3.V50                                                  FAX      2939
           524                                    MOVEND                                                         FAX      2940
  
  
          2211                                    MOVSTART  5                                                    FAX      2942
           575  5120003705 +             L3.V21   SA2    =40000000000000060000B                                  FAX      2943
                          66200                   SB2    B0                                                      FAX      2944
           576  23145                    L3.V22   GCH    X1                                                      FAX      2945
                               63310              SB3    X1                                                      FAX      2946
           577  0640000600 +                      CWD                                                            FAX      2947
           600  22732                             LX7    X2,B3                                                   FAX      2948
                     0337002211 +                 NG     X7,L3.V40                                               FAX      2949
                               20306              LX3    6                                                       FAX      2950
           601  12331                             BX3    X3+X1                                                   FAX      2951
                     66225                        SB2    B2+B5                                                   FAX      2952
                          0400000576 +            EQ     L3.V22                                                  FAX      2953
           602                                    MOVEND                                                         FAX      2954
  
  
          2211                                    MOVSTART  7                                                    FAX      2956
           444  6120000012               L3.V20   SB2    10                                                      FAX      2957
                          10677                   BX6    X7                                                      FAX      2958
           445  0303000575 +             L3.V9    ZR     X3,L3.V21         IF CH COUNT=0 THEN PACK UNTIL COMMA,S FAX      2959
                          66100                   SB1    B0                ZERO BYTE ELSE KEEP COUNT.            FAX      2960
                               13333              BX3    X3-X3                                                   FAX      2961
           446  23145                    L3.V29   GCH    X1                                                      FAX      2962
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    64
         PSEUDO-OP PROCESSORS 
  
                               63310              SB3    X1                                                      FAX      2963
           447  0640000450 +                      CWD                                                            FAX      2964
           450  0412002211 +                      EQ     B1,B2,L3.V40                                            FAX      2965
                          0301000640 +            ZR     X1,L3.V30                                               FAX      2966
           451  20306                             LX3    6                                                       FAX      2967
                     66115                        SB1    B1+B5                                                   FAX      2968
                          12331                   BX3    X3+X1                                                   FAX      2969
           452  0400000446 +                      EQ     L3.V29                                                  FAX      2970
           453                                    MOVEND                                                         FAX      2971
  
  
          2211  6216777755               L3.V40   SB1    X6-1RR                                                  FAX      2973
                          0410002217 +            ZR     B1,L3.V50                                               FAX      2974
          2212  66222                             SB2    B2+B2                                                   FAX      2975
                     66122                        SB1    B2+B2                                                   FAX      2976
                          7216777767              SX1    X6-1RH                                                  FAX      2977
          2213  66112                             SB1    B1+B2                                                   FAX      2978
                     65101                        SB1    A0-B1                                                   FAX      2979
                          22313                   LX3    X3,B1                                                   FAX      2980
          2214  0311002217 +                      NZ     X1,L3.V50                                               FAX      2981
                          57005                   SA0    -B5                                                     FAX      2982
          2215  67116                    L3.V41   SB1    B1-B6                                                   FAX      2983
                     54005                        SA0    A0+B5                                                   FAX      2984
                          0610002215 +            PL     B1,L3.V41                                               FAX      2985
          2216  5010000654 +                      SA1    A0+SPACES                                               FAX      2986
                          12313                   BX3    X1+X3                                                   FAX      2987
          2217  6113777721               L3.V50   SB1    B3-1R,                                                  FAX      2988
                          5110000372 +            SA1    BCTMP                                                   FAX      2989
          2220  12434                             BX4    X3+X4                                                   FAX      2990
                     53010                        SA0    X1                                                      FAX      2991
                          13333                   BX3    X3-X3                                                   FAX      2992
                               23145              GCH    X1                                                      FAX      2993
          2222  0640002223 +                      CWD                                                            FAX      2994
          2223  0410002161 +                      ZR     B1,L3.V2                                                FAX      2995
                          6160001014 +            SB6    L4.CKL                                                  FAX      2996
          2224  64100                             SB1    A0                                                      FAX      2997
                     0400003211 +                 EQ     WRTEXT                                                  FAX      2998
                                        *                                                                        FAX      2999
                                        *         DIS                                                            FAX      3000
                                        *                                                                        FAX      3001
          2225                                    MOVSTART  2                                                    FAX      3002
           554                     2     DISLOC   BSS    2                 WORD COUNT AND LOCATION FOR PDIS      FAX      3003
           556                                    MOVEND                                                         FAX      3004
                                                                                                                 FAX      3005
          2225  74755                    PDIS     SX7    A5+B5             SAVE ADDRESS OF INPUT                 FAX      3006
                     6110000074                   SB1    60                SET BIT COUNT FOR WRTEXT              FAX      3007
                               21506              AX5    6                 SHIFT OFF COMMA                       FAX      3008
          2226  43066                             MX0    60-6                                                    FAX      3009
                     15650                        BX6    -X0*X5            MASK OFF WORD COUNT                   FAX      3010
                          6160002231 +            SB6    PDIS1             SET RETURN ADDRESS FOR WRTEXT         FAX      3011
          2227  7266777744                        SX6    X6-1R0            CONVERT DISPLAY TO BINARY             FAX      3012
                          5160000554 +            SA6    DISLOC                                                  FAX      3013
          2230  54455                             SA4    A5+B5                                                   FAX      3014
                     54765                        SA7    A6+B5                                                   FAX      3015
                          0400003211 +            EQ     WRTEXT            GO ADD TO TEXT TABLE                  FAX      3016
                                                                                                                 FAX      3017
          2231  5150000554 +             PDIS1    SA5    DISLOC                                                  FAX      3018
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    65
         PSEUDO-OP PROCESSORS 
  
                          76050                   SX0    B5                                                      FAX      3019
                               37750              IX7    X5-X0             DECREMENT WORD COUNT                  FAX      3020
          2232  0307001721 +                      ZR     X7,INITL                                                FAX      3021
                          54455                   SA4    A5+B5             ADDR OF LAST WORD                     FAX      3022
                               54750              SA7    A5                                                      FAX      3023
          2233  36640                             IX6    X4+X0                                                   FAX      3024
                     54640                        SA6    A4                SAVE ADDR OF NEXT WORD                FAX      3025
                                                                                                                 FAX      3026
                          53460                   WR1WD  X6,PDIS1          WRITE A WORD AND LOOP FOR NEXT        FAX      3027
                                        *                                                                        FAX      3028
                                        *         DATA                                                           FAX      3029
                                        *                                                                        FAX      3030
          2236                                    MOVSTART  7                                                    FAX      3031
           535  6144777755               PDATA    SB4    B4-18                                                   FAX      3032
                          0640000537 +            PL     B4,PDAT1                                                FAX      3033
           536  54555                             SA5    A5+B5                                                   FAX      3034
                     6144000074                   SB4    B4+60                                                   FAX      3035
           537  23345                    PDAT1    GCH    X3                                                      FAX      3036
                               63230              SB2    X3                                                      FAX      3037
           540  0640000541 +                      CWD                                                            FAX      3038
           541  0412000537 +                      EQ     B1,B2,PDAT1                                             FAX      3039
                          0100001120 +            RJ     CONVERT                                                 FAX      3040
           542  66167                             SB1    B6+B7                                                   FAX      3041
                     6160001014 +                 SB6    L4.CKL                                                  FAX      3042
                               10411              BX4    X1                                                      FAX      3043
           543  0400003211 +                      EQ     WRTEXT                                                  FAX      3044
           544                                    MOVEND                                                         FAX      3045
  
  
  
  
                                        ***                                                                      FAX      3047
                                        *         PAPL - PROCESS APL MACRO CALL                                  FAX      3048
          2236  66470                    PAPL     SB4    B7                                                      FAX      3049
                     15450                        BX4    -X0*X5                                                  FAX      3050
                          0304002242 +            ZR     X4,PAPL1    IF NO ARG                                   FAX      3051
          2237  54555                             SA5    A5+B5                                                   FAX      3052
                     23145                        GCH    X1                                                      FAX      3053
          2240  7221777731                        SX2    X1-1R-                                                  FAX      3054
                          0312002244 +            NZ     X2,PAPL2                                                FAX      3055
          2241  43474                             MX4    60          WORD = -0                                   FAX      3056
          2242  6110000074               PAPL1    WR1WD  ,INITL                                                  FAX      3057
                                                                                                                 FAX      3058
          2244  43700                    PAPL2    MX7    0                                                       FAX      3059
                     13666                        BX6    X6-X6                                                   FAX      3060
                          63310                   SB3    X1                                                      FAX      3061
                               43400              MX4    0                                                       FAX      3062
          2245  6120000006                        SB2    6                                                       FAX      3063
                          0100000266 +            RJ     EVAL        EVALUATE THE EXPRESSION                     FAX      3064
          2246  6110000074                        WR1WD  ,L4.CKL                                                 FAX      3065
                                                                                                                 FAX      3066
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    66
         PSEUDO-OP PROCESSORS                                         PLAP
  
                                        **        PLAP - PROCESS *LAP* MACRO.                                    FAX      3068
                                        *                                                                        FAX      3069
                                                                                                                 FCC0982     4
          2250  6144777763               PLAP     SB4    B4-12                                                   FCC0982     5
                                                                                                                 FCC0982     6
          2251  23345                    PLAP1    GCH    X3                                                      FCC0982     7
          2252  0640002253 +                      CWD                                                            FCC0982     8
          2253  7263777722                        SX6    X3-1R                                                   FCC0982     9
                          0306002251 +            ZR     X6,PLAP1    IF BLANK                                    FCC0982    10
          2254  7263777706                        SX6    X3-1R?                                                  FCC0982    11
                          0306002263 +            ZR     X6,PLAP2    IF ?MMM SYMBOL                              FCC0982    12
          2255  63330                             SB3    X3                                                      FCC0982    13
                     10133                        BX1    X3                                                      FCC0982    14
                          66260                   SB2    B6                                                      FCC0982    15
          2256  0100003140 +                      RJ     REF                                                     FCC0982    16
          2257  20260                             LX2    -P.RB                                                   FCC0982    17
                     43165                        MX1    -L.RB                                                   FCC0982    18
                          15621                   BX6    -X1*X2      BLOCK ORDINAL                               FCC0982    19
          2260  5160003723 +                      SA6    NNAME                                                   FCC0982    20
                          10633                   BX6    X3                                                      FCC0982    21
          2261  5160003724 +                      SA6    VNAME       RA                                          FCC0982    22
                          7131777744              SX3    B1-1R0      LAST CHARACTER                              FCC0982    23
          2262  0400002266 +                      EQ     PLAP3                                                   FCC0982    24
                                                                                                                 FCC0982    25
          2263  23345                    PLAP2    GCH    X3          FIRST DIGIT OF MMM                          FCC0982    26
                               43600              MX6    0                                                       FCC0982    27
          2264  5160003724 +                      SA6    VNAME                                                   FCC0982    28
                          0100001120 +            RJ     CONVERT                                                 FCC0982    29
          2265  7261777776                        SX6    X1-1                                                    FCC0982    30
                          5160003723 +            SA6    NNAME       BLOCK ORDINAL                               FCC0982    31
                                                                                                                 FCC0982    32
          2266  7213000033               PLAP3    SX1    X3+1R0                                                  FCC0982    33
                          0301002272 +            ZR     X1,PLAP4    IF END OF LINE                              FCC0982    34
          2267  7211777722                        SX1    X1-1R                                                   FCC0982    35
                          0301002272 +            ZR     X1,PLAP4    IF BLANK                                    FCC0982    36
          2270  0100000505 +                      RJ     NMLG                                                    FCC0982    37
          2271  0100001120 +                      RJ     CONVERT                                                 FCC0982    38
                                                                                                                 FCC0982    39
          2272  43001                    PLAP4    MX0    1                                                       FCC0982    40
                     5120003724 +                 SA2    VNAME                                                   FCC0982    41
                               36312              IX3    X1+X2       RA + BIAS                                   FCC0982    42
          2273  12403                             BX4    X0+X3       ADD LCM BIT                                 FCC0982    43
                     5120003723 +                 SA2    NNAME                                                   FCC0982    44
          2274  7130000002                        SX3    2           COMMON RELOCATION                           FCC0982    45
                          20345                   LX3    P.RL                                                    FCC0982    46
                               20214              LX2    P.RB                                                    FCC0982    47
          2275  12623                             BX6    X2+X3                                                   FAX      3093
                     5160000043 C                 SA6    RBTEMP                                                  FAX      3094
          2276  6110000074                        WR1WD                                                          FAX      3095
                                                                                                                 FAX      3096
          2300  5120003723 +                      SA2    NNAME                                                   FAX      3097
                          0100002302 +            RJ     ALR         LCM RELOCATION                              FAX      3098
          2301  0400001721 +                      EQ     INITL                                                   FAX      3099
                                                                                                                 FAX      3100
                                        ***                                                                      FAX      3101
                                        *         ALR - ADD LCM RELOCATION                                       FAX      3102
                                        *         ADDS THE LCM FILL INFORMATION TO THE FILL CHAIN                FAX      3103
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    67
         PSEUDO-OP PROCESSORS                                         PLAP
  
                                        *                                                                        FAX      3104
                                        *         ENTRY  X2 - RB ORDINAL OF LCM BLOCK - 1                        FAX      3105
                                        *                                                                        FAX      3106
          2302  0400402302 +             ALR      ENTRY. *                 ** ENTRY/EXIT **                      FAX      3107
          2303  27102                             PX1    X2                                                      FAX      3108
                     5130003706 +                 SA3    =22.P0                                                  FAX      3109
                               42113              DX1    X1*X3             22*RB ORDINAL                         FAX      3110
          2304  5130000035 +                      SA3    TEXT.ADD                                                FAX      3111
                          5150000031 +            SA5    CORGTAB                                                 FAX      3112
          2305  36115                             IX1    X1+X5             CORGTAB + 22*RB                       FAX      3113
                     5223777774                   SA2    X3-3              LCT, ORGC OF LOCAL BLOCK              FAX      3114
          2306  5231000002                        SA3    X1+2              LCT,ORGC OF COMMON BLOCK              FAX      3115
                          43001                   MX0    1                                                       FAX      3116
                               12603              BX6    X0+X3                                                   FAX      3117
          2307  20236                             LX2    30                                                      FAX      3118
                     12702                        BX7    X0+X2                                                   FAX      3119
                          54630                   SA6    A3                                                      FAX      3120
          2310  5150000034 +                      SA5    FREEMEM           NEXT FREE CELL ADDRESS                FAX      3121
                          5120000036 +            SA2    MEMEND                                                  FAX      3122
          2311  43052                             MX0    60-18                                                   FAX      3123
                     53310                        SA3    X1                CORGTAB HEADER WORD                   FAX      3124
                          73655                   SX6    X5+B5             FREEMEM + 1                           FAX      3125
                               15130              BX1    -X0*X3            POINTER TO END OF CHAIN               FAX      3126
          2312  37225                             IX2    X2-X5             MEMEND - FREEMEM                      FAX      3127
                     11303                        BX3    X0*X3             BLOCK NAME                            FAX      3128
                          0332003456 +            NG     X2,STOVER         IF STORAGE OVERFLOW                   FAX      3129
                                                                                                                 FAX      3130
          2313  54650                             SA6    A5                FREEMEM = FREEMEM + 1                 FAX      3131
                     12771                        BX7    X7+X1             INSERT POINTER                        FAX      3132
                          36653                   IX6    X5+X3             INSERT LINK TO CHAIN                  FAX      3133
                               53750              SA7    X5                FILL WORD                             FAX      3134
          2314  54630                             SA6    A3                NEW HEAD OF CHAIN                     FAX      3135
                     13777                        BX7    X7-X7                                                   FAX      3136
                          5170000043 C            SA7    RBTEMP                                                  FAX      3137
          2315  0400002302 +                      EQ     ALR                                                     FAX      3138
  
  
  
                                        ***                                                                      FAX      3140
                                        *         PHOL - PROCESS HOL MACRO CALL                                  FAX      3141
                                        *                                                                        FAX      3142
          2316  43066                    PHOL     MX0    60-6                                                    FAX      3143
                     15150                        BX1    -X0*X5            TYPE ( H , L OR R )                   FAX      3144
                          21506                   AX5    6                                                       FAX      3145
                               54455              SA4    A5+B5             CHARACTERS                            FAX      3146
          2317  7261777767                        SX6    X1-1RH                                                  FAX      3147
                          0306002325 +            ZR     X6,PHOL1          IF H TYPE DATA                        FAX      3148
          2320  15250                             BX2    -X0*X5                                                  FAX      3149
                     7232777744                   SX3    X2-1R0            CHAR COUNT ( 1 - 9 )                  FAX      3150
                               36233              IX2    X3+X3                                                   FAX      3151
          2321  20302                             LX3    2                                                       FAX      3152
                     36723                        IX7    X2+X3             6*CC                                  FAX      3153
                          6217777776              SB1    X7-1                                                    FAX      3154
          2322  43001                             MX0    1                                                       FAX      3155
                     23010                        AX0    B1,X0             FORM MASK                             FAX      3156
                          11404                   BX4    X0*X4             REMOVE TRAILING BLANKS                FAX      3157
          2323  7211777763                        SX1    X1-1RL                                                  FAX      3158
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    68
         PSEUDO-OP PROCESSORS                                         HOL 
  
                          0301002325 +            ZR     X1,PHOL1          IF L FORMAT                           FAX      3159
          2324  66115                             SB1    B1+B5                                                   FAX      3160
                     22414                        LX4    B1,X4                                                   FAX      3161
          2325  6110000074               PHOL1    WR1WD  ,INITL            WRITE WORD AND RETURN                 FAX      3162
  
  
  
                                        ***                                                                      FAX      3164
                                        *         REPI MACRO PROCESSING                                          FAX      3165
                                        *                                                                        FAX      3166
                                                                                                                 FAX      3167
          2327  43000002000000000001     PREPIC   VFD    12/4300B,12/2,36/1  REPI TABLE HEADER WORD              FAX      3168
          2330                     1              BSS    1                 33/INC,27/S.                          FAX      3169
          2331                     1              BSS    1                 18/REP COUNT,15/WORDS,27/DESTIN ADD   FAX      3170
                                                                                                                 FAX      3171
          2332  5110002422 +             PREPI    SA1    S.                RB AND RA OF LAST ORG                 FAX      3172
                          54555                   SA5    A5+B5             NEXT WORD                             FAX      3173
                               10611              BX6    X1                                                      FAX      3174
          2333  5160002330 +                      SA6    PREPIC+1                                                FAX      3175
                          66470                   SB4    B7                                                      FAX      3176
                               23345              GCH    X3                                                      FAX      3177
                          0100001120 +            RJ     CONVERT           DATA BLOCK LENGTH                     FAX      3178
          2335  20133                             LX1    27                                                      FAX      3179
                     10611                        BX6    X1                                                      FAX      3180
                          5160002331 +            SA6    PREPIC+2                                                FAX      3181
          2336  0100000505 +                      RJ     NMLG              SKIP                                  FAX      3182
          2337  0100000505 +                      RJ     NMLG              COMMA                                 FAX      3183
          2340  0100001120 +                      RJ     CONVERT                                                 FAX      3184
          2341  5120002331 +                      SA2    PREPIC+2                                                FAX      3185
                          20152                   LX1    42                                                      FAX      3186
                               12612              BX6    X1+X2             OR IN REP COUNT                       FAX      3187
          2342  54620                             SA6    A2                                                      FAX      3188
                     0100000505 +                 RJ     NMLG              NEXT CHAR                             FAX      3189
          2343  0312002353 +                      NZ     X2,PREPI1         IF NO MORE ARGS                       FAX      3190
                          0100000505 +            RJ     NMLG                                                    FAX      3191
          2344  0100001120 +                      RJ     CONVERT           CONVERT INCREMENT                     FAX      3192
          2345  5120002330 +                      SA2    PREPIC+1                                                FAX      3193
                          20133                   LX1    27                                                      FAX      3194
                               12612              BX6    X1+X2                                                   FAX      3195
          2346  54620                             SA6    A2                                                      FAX      3196
                     0100000505 +                 RJ     NMLG                                                    FAX      3197
          2347  0312002353 +                      NZ     X2,PREPI1         IF NO COMMA                           FAX      3198
                          0100000505 +            RJ     NMLG                                                    FAX      3199
          2350  0100001120 +                      RJ     CONVERT                                                 FAX      3200
          2351  5120002422 +                      SA2    S.                                                      FAX      3201
                          5130002331 +            SA3    PREPIC+2                                                FAX      3202
          2352  36112                             IX1    X1+X2                                                   FAX      3203
                     12613                        BX6    X1+X3                                                   FAX      3204
                          54630                   SA6    A3                                                      FAX      3205
                                                                                                                 FAX      3206
          2353  0100003247 +             PREPI1   RJ     FOTEXT            FORCE OUT SOURCE DATA                 FAX      3207
          2354  5110000000 X                      SA1    FV.LGO                                                  FAX      3208
                          6110000001              SB1    1                                                       FAX      3209
          2355  0301001720 +                      ZR     X1,NOBINPO        IF BINARY OUTPUT OPTION OFF (B=0)     FAX      3210
                          6160002327 +            WRITEW F.LGO,PREPIC,3    REPL (43) TABLE                       FAX      3211
          2360  6151000000                        SB5    B1+                                                     FAX      3212
                          0400001720 +            EQ     NOBINPO                                                 FAX      3213
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    69
         PSEUDO-OP PROCESSORS                                         LDSET 
  
                                        ***                                                                      F162FTNA 1180
                                        *         PLDSET - LIST AND SKIP *LDSET* DIRECTIVE.                      F162FTNA 1181
                                        *                                                                        F162FTNA 1182
          2361                           PLDSET   BSS    0                                                       F162FTNA 1183
          2361  5110000000 X                      SA1    =XOLIST                                                 F162FTNA 1184
                          6110000001              SB1    1                                                       F162FTNA 1185
          2362  0301001721 +                      ZR     X1,INITL    IF OBJECT LISTING NOT SELECTED              F162FTNA 1186
                          6160003736 +            LISTL  LINE,8      LIST *LDSET* DIRECTIVE                      F162FTNA 1187
          2364  66510                             SB5    B1                                                      F162FTNA 1188
                     0400001721 +                 EQ     INITL                                                   F162FTNA 1189
  
  
  
  
                                        *                                                                        FAX      3214
                                        *      EQU-1.SET ALABEL TO ZERO                                          FAX      3215
                                        *          2.RESTORE NFLAG FROM X4,A4                                    FAX      3216
                                        *                                                                        FAX      3217
          2365                                    MOVSTART  2                                                    FAX      3218
           667  10644                    L3.EQU   BX6    X4                                                      FAX      3219
                     5170000037 +                 SA7    ALABEL                                                  FAX      3220
                               54640              SA6    A4                                                      FAX      3221
           670  0400001720 +                      EQ     NOBINPO                                                 FAX      3222
           671                                    MOVEND                                                         FAX      3223
                                        *                                                                        FAX      3224
                                        *         BSS                                                            FAX      3225
                                        *                                                                        FAX      3226
          2365                                    MOVSTART  8                                                    FAX      3227
           764  67446                    PBSS     SB4    B4-B6                                                   FAX      3228
           765  0640000766 +                      CWD                                                            FAX      3229
           766  23345                             GCH    X3                GET FIRST CHARACTER FOR CONVERT       FAX      3230
                               76650              SX6    B5                                                      FAX      3231
           767  0640000770 +                      CWD                                                            FAX      3232
           770  5160000040 +                      SA6    FFLAG             FORCE UPPER                           FAX      3233
                          0100001120 +            RJ     CONVERT           GO CONVERT ARGUMENT                   FAX      3234
           771  10711                             BX7    X1                                                      FAX      3235
                     66100                        SB1    B0                BIT COUNT FOR WRTEXT                  FAX      3236
                          6160000774 +            SB6    PBSS1             RETURN ADDRESS FOR WRTEXT             FAX      3237
           772  5170000054 C                      SA7    BSPFLAG           SAVE ARGUMENT                         FAX      3238
                          13444                   BX4    X4-X4                                                   FAX      3239
           773  0400003211 +                      EQ     WRTEXT            GO FORCE UPPER                        FAX      3240
           774                                    MOVEND                                                         FAX      3241
  
  
          2365                                    MOVSTART  4                                                    FAX      3243
           774  5110000054 C             PBSS1    SA1    BSPFLAG                                                 FAX      3244
                          0301000777 +            ZR     X1,PBSS3          SENSE BSS 0                           FAX      3245
           775  5130000035 +                      SA3    TEXT.ADD                                                FAX      3246
                          5223777774              SA2    X3-3                                                    FAX      3247
           776  36621                             IX6    X2+X1             ADD ARGUMENT TO ORGC                  FAX      3248
                     54620                        SA6    A2                                                      FAX      3249
                          0100003247 +            RJ     FOTEXT            GO FORCE OUT TEXT TABLE               FAX      3250
           777  6130000074               PBSS3    SB3    60                                                      FAX      3251
                          0400001720 +            EQ     NOBINPO                                                 FAX      3252
          1000                                    MOVEND                                                         FAX      3253
                                        *                                                                        FAX      3254
                                        *         USE AND USELCM                                                 FAX      3255
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    70
         PSEUDO-OP PROCESSORS 
  
                                        *                                                                        FAX      3256
                                                                                                                 FAX      3257
          2365                     1     PUSEA    BSSZ   1                                                       FAX      3258
                                                                                                                 FAX      3259
          2366  67446                    PUSE     SB4    B4-B6                                                   FAX      3260
                     6120000050                   SB2    1R/                                                     FAX      3261
                               23145              GCH    X1                                                      FAX      3262
                          63310                   SB3    X1                                                      FAX      3263
          2370  0513002412 +                      NE     B1,B3,PUSE5       IF A USELCM OPCODE                    FAX      3264
          2371  23145                    USESCM   GCH    X1                GET NEXT CHARACTER                    FAX      3265
                               63310              SB3    X1                                                      FAX      3266
          2372  0640002373 +                      CWD                                                            FAX      3267
          2373  0413002371 +                      EQ     B1,B3,USESCM      IF A BLANK                            FAX      3268
                          0423002413 +            EQ     B2,B3,USECOM                                            FAX      3269
          2374  5120000032 +                      SA2    LORGTAB                                                 FAX      3270
          2375  53020                    PUSE2    SA0    X2                SEARCH ORIGIN FOR USENXT              FAX      3271
                     66260                        SB2    B6                BIT COUNT FOR PACKID                  FAX      3272
                          0100001133 +            RJ     PACKID            GET BLOCK NAME                        FAX      3273
          2376  20114                             LX1    12                                                      FAX      3274
          2377  0100000236 +             PUSE4    RJ     USENXT                                                  FAX      3275
                                         OLJ      IFNE   .JOL,0                                                  FAX      3276
          2400  5130000032 +                      SA3    LORGTAB                                                 FAX      3277
                          6263000102              SB6    X3+3*22                                                 FAX      3278
          2401  75726                             SX7    A2-B6                                                   FAX      3279
                     0317001720 +                 NZ     X7,NOBINPO  IF NOT *CODE.*                              FAX      3280
          2402  5130000056                        SA3    PROGRAM                                                 FAX      3281
                          0303001720 +            ZR     X3,NOBINPO  IF BLOCK DATA                               FAX      3282
          2403  26363                             UX3    B6,X3                                                   FAX      3283
                     0560002406 +                 NZ     B6,PUSE4A   IF NOT MAIN PROGRAM                         FAX      3284
          2404  5130002365 +                      SA3    PUSEA                                                   FAX      3285
                          43701                   MX7    1                                                       FAX      3286
                               54730              SA7    A3                                                      FAX      3287
          2405  0303001720 +                      ZR     X3,NOBINPO  IF FIRST *USE CODE.*                        FAX      3288
                                                                                                                 FAX      3289
          2406  5110003357 +             PUSE4A   PLUG   AT=WRL.8,FROM=RJJOL                                     FAX      3290
                                         OLJ      ENDIF                                                          FAX      3291
          2411  0400001720 +                      EQ     NOBINPO                                                 FAX      3292
                                                                                                                 FAX      3293
          2412  54555                    PUSE5    SA5    A5+B5             ADVANCE TO NEXT WORD                  FAX      3294
                     66470                        SB4    B7                RESET SHIFT COUNTER                   FAX      3295
          2413  23145                    USECOM   GCH    X1                                                      FAX      3296
                               63310              SB3    X1                                                      FAX      3297
          2414  0640002415 +                      CWD                                                            FAX      3298
          2415  5120000031 +                      SA2    CORGTAB                                                 FAX      3299
                          0523002375 +            NE     B2,B3,PUSE2                                             FAX      3300
          2416  5110003672 +                      SA1    =7L//                                                   FAX      3301
                          53020                   SA0    X2                                                      FAX      3302
          2417  0400002377 +                      EQ     PUSE4                                                   FAX      3303
  
  
                                        *                                                                        FAX      3305
                                        *                                                                        FAX      3306
                                        *         USENXT - CHANGE BLOCKS                                         FAX      3307
                                        *                                                                        FAX      3308
                                        *         CALLING SEQUENCE -                                             FAX      3309
                                        *                   X1 = NAME OF NEW BLOCK LEFT JUSTIFIED IN BITS        FAX      3310
                                        *                   18 - 59 WITH BLANK FILL                              FAX      3311
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    71
         PSEUDO-OP PROCESSORS 
  
                                        *                   A0 = FWA OF TABLE (CORGTAB OR LORGTAB) WHICH         FAX      3312
                                        *                   CONTAINS NAME                                        FAX      3313
                                        *                                                                        FAX      3314
  
  
  
  
          2420                                    MOVSTART  8                                                    FAX      3316
           236                     1     USENXT   BSS    1                                                       FAX      3317
           237  5020777751                        SA2    A0-22                                                   FAX      3318
                          43052                   MX0    42                                                      FAX      3319
                               11101              BX1    X0*X1                                                   FAX      3320
           240  5022000026               USENXT1  SA2    A2+22             LOOK FOR NEW BLOCK                    FAX      3321
                          11202                   BX2    X0*X2                                                   FAX      3322
                               37221              IX2    X2-X1                                                   FAX      3323
           241  0312000240 +                      NZ     X2,USENXT1        SENSE NEW BLOCK FOUND                 FAX      3324
                          5130000041 +            SA3    NFLAG                                                   FAX      3325
           242  5140000035 +                      SA4    TEXT.ADD                                                FAX      3326
                          54125                   SA1    A2+B5             LOAD NEW NFLAG                        FAX      3327
                               10633              BX6    X3                                                      FAX      3328
           243  5264777773                        SA6    X4-4                                                    FAX      3329
                          7072000005              SX7    A2+5                                                    FAX      3330
           244  10611                             BX6    X1                                                      FAX      3331
                     54740                        SA7    A4                                                      FAX      3332
                          54630                   SA6    A3                                                      FAX      3333
                               10744              BX7    X4                                                      FAX      3334
           245  5170000423 +                      SA7    USEBB                                                   FAX      3335
                          0400000236 +            EQ     USENXT                                                  FAX      3336
           246                                    MOVEND                                                         FAX      3337
  
  
  
  
          2420                                    MOVSTART  1                                                    FAX      3339
           423                     1     USEBB    BSS    1                                                       FAX      3340
           424                                    MOVEND                                                         FAX      3341
  
  
          2420                                    MOVSTART  5                                                    FAX      3343
           246                     1     USESTAR  BSS    1                 CHANGE BACK TO THE PREVIOUS RELOCATIO FAX      3344
           247  5110000423 +                      SA1    USEBB             BASE BY RESETTING TEXT.ADD AND EX-    FAX      3345
                          5120000035 +            SA2    TEXT.ADD          CHANGING NFLAGS.                      FAX      3346
           250  5130000041 +                      SA3    NFLAG                                                   FAX      3347
                          5241777773              SA4    X1-4                                                    FAX      3348
           251  10733                             BX7    X3                                                      FAX      3349
                     22604                        LX6    X4                                                      FAX      3350
                          54740                   SA7    A4                                                      FAX      3351
                               54630              SA6    A3                                                      FAX      3352
           252  10711                             BX7    X1                                                      FAX      3353
                     54720                        SA7    A2                                                      FAX      3354
                          0400000246 +            EQ     USESTAR                                                 FAX      3355
           253                                    MOVEND                                                         FAX      3356
                                        ***                                                                      FAX      3357
                                        *         ORG MACRO PROCESSING                                           FAX      3358
                                        *                                                                        FAX      3359
                                                                                                                 FAX      3360
          2420  00000000000000000000     DATA.TXT                          ADDRESS OF DATA. TEXT TABLE           FAX      3361
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    72
         PSEUDO-OP PROCESSORS 
  
          2421                     1     K.       BSS    1                 SAVED RB AND ORGC OF DATA.            FAX      3362
          2422                     1     S.       BSS    1                 RB AND ORGC OF LAST ORG               FAX      3364
                                3723 +   PORGT    EQU    SCRATCH                                                 FAX      3365
                                                                                                                 FAX      3366
          2423  43760                    PORG     MX7    60-12                                                   FAX      3367
                     15157                        BX1    -X7*X5                                                  FAX      3368
                          0311002430 +            NZ     X1,PORG1          IF ARGS                               FAX      3369
                                                                                                                 FAX      3370
                                        *         NO ARGS CASE RESET DATA. BLOCK ORG CTR AND FLUSH OUT OLD TEXT  FAX      3371
                                        *         TABLE                                                          FAX      3372
                                                                                                                 FAX      3373
          2424  5110002420 +                      SA1    DATA.TXT                                                FAX      3374
                          5120002421 +            SA2    K.                                                      FAX      3375
          2425  5231777775                        SA3    X1-2              POS CTR                               FAX      3376
                          10722                   BX7    X2                                                      FAX      3377
                               76050              SX0    B5                                                      FAX      3378
          2426  55735                             SA7    A3-B5           UPDATE ORG COUNTER                      FAX      3379
                     0313002473 +                 NZ     X3,PORG6          IF POS CTR " 0                        FAX      3380
                               37770              IX7    X7-X0                                                   FAX      3381
          2427  54770                             SA7    A7                                                      FAX      3382
                     0400002473 +                 EQ     PORG6                                                   FAX      3383
                                                                                                                 FAX      3384
          2430  54555                    PORG1    SA5    A5+B5             NEXT WORD                             FAX      3385
                     66470                        SB4    B7                                                      FAX      3386
                          23145                   GCH    X1                                                      FAX      3387
                     0100001035 +                 RJ     NMLREF            GET NAME INFO ( RBT = WORD B OF NAME  FAX      3388
          2432  0100000505 +                      RJ     NMLG              NEXT CHAR                             FAX      3389
          2433  10722                             BX7    X2                                                      FAX      3390
                     5170003723 +                 SA7    PORGT             = 0 IF NAME,,X                        FAX      3391
          2434  0312002443 +                      NZ     X2,PORG2          IF NOT A ,                            FAX      3392
                                                                                                                 FAX      3393
                          5110002420 +            SA1    DATA.TXT                                                FCC2129    40
          2435  5221777776                        SA2    X1-1        TABC                                        FCC2129    41
                          55125                   SA1    A2-B5       POSC                                        FCC2129    42
                               55315              SA3    A1-B5       ORGC                                        FCC2129    43
          2436  10633                             BX6    X3                                                      FCC2129    44
                     6232777775                   SB3    X2-2                                                    FCC2129    45
          2437  0703002441 +                      GT     B3,PORGL1   IF TABC > 2                                 FCC2129    46
                          6231777703              SB3    X1-60                                                   FCC2129    47
          2440  0430002442 +                      ZR     B3,PORGL2   IF TABC = 2 AND POSC = 60                   FCC2129    48
          2441  43773                    PORGL1   MX7    59                                                      FCC2129    49
                     37667                        IX6    X6-X7       K. = ORGC + 1 (NO SIGN EXTENSION)           FCC2129    50
          2442  5160002421 +             PORGL2   SA6    K.                                                      FCC2129    51
                          0400002447 +            EQ     PORG3                                                   FCC2129    52
                                                                                                                 FAX      3403
          2443  0303002447 +             PORG2    ZR     X3,PORG3          IF END OF LINE                        FAX      3404
                          7223777722              SX2    X3-1R                                                   FAX      3405
          2444  0302002447 +                      ZR     X2,PORG3          IF EOL                                FAX      3406
                          0100001120 +            RJ     CONVERT           GET BIAS                              FAX      3407
          2445  5120003726 +                      SA2    RBT                                                     FAX      3408
                          20123                   LX1    P.RA                                                    FAX      3409
                               36612              IX6    X1+X2             ADD IN BIAS                           FAX      3410
          2446  54620                             SA6    A2                                                      FAX      3411
                                                                                                                 FAX      3412
          2447  5110003726 +             PORG3    SA1    RBT                                                     FAX      3413
                          10211                   BX2    X1                                                      FAX      3414
                               20125              LX1    59-P.RL-1                                               FAX      3415
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    73
         PSEUDO-OP PROCESSORS 
  
          2450  43060                             MX0    60-L.DIMP                                               FAX      3416
                     0331002461 +                 NG     X1,PORG4          IF IN COMMON                          FAX      3417
                               21251              AX2    P.DIMP                                                  FAX      3418
          2451  15320                             BX3    -X0*X2                                                  FAX      3419
                     0313002461 +                 NZ     X3,PORG4          IF NOT A USEAGE DEFI ED VAR           FAX      3420
          2452  5130003723 +                      SA3    PORGT                                                   FAX      3421
                          0303002461 +            ZR     X3,PORG4          IF SECOND OCCURANCE OF UDV            FAX      3422
                                                                                                                 FAX      3425
                                        *         FIRST OCCURANCE OF A UDV - SWITCH TO DATA. BLOCK               FAX      3426
                                                                                                                 FAX      3427
          2453  5110000035 +                      SA1    TEXT.ADD                                                FAX      3428
                          5120000041 +            SA2    NFLAG                                                   FAX      3429
          2454  5130002420 +                      SA3    DATA.TXT                                                FAX      3430
                          5243777773              SA4    X3-4              NFLAG(DATA.)                          FAX      3431
          2455  10611                             BX6    X1                                                      FAX      3432
                     22702                        LX7    X2                                                      FAX      3433
                          5160000423 +            SA6    USEBB             SAVE TEXT TABLE ADDR OF LAST BLOCK    FAX      3434
          2456  5271777773                        SA7    X1-4              AND NFLAG                             FAX      3435
                          10633                   BX6    X3                                                      FAX      3436
                               22704              LX7    X4                                                      FAX      3437
          2457  54610                             SA6    A1                NEW TEXT.ADD                          FAX      3438
                     54720                        SA7    A2                NEW NFLAG                             FAX      3439
                          6130000074              SB3    60                                                      FAX      3440
          2460  0400001720 +                      EQ     NOBINPO                                                 FAX      3441
                                                                                                                 FAX      3442
                                        *         NOT THE FIRST OCCURANCE OF A UDV                               FAX      3443
                                        *         SET TEXT.ADD TO THE RB INDICATED BY THE VAR                    FAX      3444
                                        *         AND FORCE OUT THE OLD TEXT TABLE                               FAX      3445
                                                                                                                 FAX      3446
          2461  5110003726 +             PORG4    SA1    RBT                                                     FAX      3447
                          43065                   MX0    60-L.RB                                                 FAX      3448
                               21114              AX1    P.RB                                                    FAX      3449
          2462  15310                             BX3    -X0*X1            RB                                    FAX      3450
                     5120003706 +                 SA2    =22.P0                                                  FAX      3451
                               27303              PX3    X3                                                      FAX      3452
          2463  21107                             AX1    P.RA-P.RB                                               FAX      3453
                     73710                        SX7    X1                SAVE RA                               FAX      3454
                          21122                   AX1    P.RL-P.RA                                               FAX      3455
                               42223              DX2    X2*X3             22*RB                                 FAX      3456
          2464  43072                             MX0    60-L.RL                                                 FAX      3457
                     16101                        BX1    -X1+X0            INDEX TO LORGTAB OR CORGTAB           FAX      3458
                          5211000033 +            SA1    X1+LORGTAB+1                                            FAX      3459
          2465  7222000005                        SX2    X2+5                                                    FAX      3460
                          36612                   IX6    X1+X2             NEW TEXT.ADD = CORGTAB(RL)+RB*22+5    FAX      3461
                                                                                                                 FAX      3462
          2466  5216777774                        SA1    X6-3              RB AND ORG CTR                        FAX      3463
                          54215                   SA2    A1+B5             POS CTR                               FAX      3464
                               43052              MX0    60-18                                                   FAX      3465
          2467  11301                             BX3    X0*X1             EXTRACT LOADER RB CODE                FAX      3466
                     36737                        IX7    X3+X7                                                   FAX      3467
                          5160000035 +            SA6    TEXT.ADD          UPDATE TEXT ADD                       FAX      3468
          2470  5170002422 +                      SA7    S.                SAVE VALUE OF ORG CTR FOR REPI PROCES FAX      3469
                          0312002472 +            NZ     X2,PORG5          IF POS CTR " 0                        FAX      3470
          2471  76050                             SX0    B5                                                      FAX      3471
                     37770                        IX7    X7-X0             DECREMENT ORG CTR FOR WRTEXT          FAX      3472
          2472  54710                    PORG5    SA7    A1                SAVE ADDR OF ORG                      FAX      3473
          2473  0100003247 +             PORG6    RJ     FOTEXT            FORCE OUT OLD TABLE                   FAX      3474
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    74
         PSEUDO-OP PROCESSORS 
  
          2474  6130000074                        SB3    60                                                      FAX      3475
                          0400001720 +            EQ     NOBINPO                                                 FAX      3476
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    75
         PSEUDO-OP PROCESSORS 
  
                                        ***                                                                      FAX      3478
                                        *         PGNAME - PROCESS "GNAME" MACRO CALL                            FAX      3479
                                        *                                                                        FAX      3480
          2475  7113777772               PGNAME   SX1    B3-1RE                                                  FAX      3481
                          0301000457 +            ZR     X1,L3.BJP         IF GE BI,BJ                           FAX      3482
                                                                                                                 FAX      3483
          2476  54155                             SA1    A5+B5                                                   FAX      3484
                     7120000053                   SX2    1R$                                                     FAX      3485
          2477  0100000323 +                      RJ     RSC               REMOVE POSSIBLE $                     FAX      3486
          2500  23676                             AX6    B7,X6             REMOVE TRAILING BLANKS                FAX      3487
                     22476                        LX4    B7,X6             LEFT JUSTIFY TO BIT 42                FAX      3488
          2501  6110000074               PGNAME1  WR1WD  ,INITL            WRITE WORD TO LGO FILE                FAX      3489
  
  
  
                                        ***                                                                      FAX      3491
                                        *         PFMT - PROCESS FMT MACRO CALL                                  FAX      3492
                                        *                                                                        FAX      3493
          2503  7110000002               PFMT     SX1    1R.-1R                                                  FAX      3494
                          20166                   LX1    54                                                      FAX      3495
                               37551              IX5    X5-X1             CHANGE LEADING . TO A BLANK           FAX      3496
          2504  11405                             BX4    X0*X5             6L NNN                                FAX      3497
                     0400002501 +                 EQ     PGNAME1           GO WRITE THE WORD TO THE LGO FILE     FAX      3498
  
  
  
                                        *                                                                        FAX      3571
                                        *         SUB                                                            FAX      3572
                                        *                                                                        FAX      3573
          2505                                    MOVSTART 1                                                     RSM3545C   67
           434                     1     DELAY    BSSZ   1           DELAY FLAG                                  RSM3545C   68
           435                                    MOVEND                                                         RSM3545C   69
                                                                                                                 RSM3545C   70
                                                                                                                 RSM3545C   71
          2505                                    MOVSTART 3                                                     RSM3545C   72
           453  6144777763               PSUB     SB4    B4-6*2      1*ST CHARACTER OF F.P. NAME                 RSM3545C   73
                          43100                   MX1    0                                                       RSM3545C   74
                               66200              SB2    B0                                                      RSM3545C   75
           454  43452                             MX4    7*6                                                     RSM3545C   76
                     76750                        SX7    B5                                                      RSM3545C   77
                          0100001133 +            RJ     PACKID      GET F.P. NAME                               RSM3545C   78
           455  0400002505 +                      EQ     PSUB0                                                   RSM3545C   79
           456                                    MOVEND                                                         RSM3545C   80
                                                                                                                 RSM3545C   81
          2505  5120000012               PSUB0    SA2    SYM1                                                    RSM3545C   82
                          77005                   SX0    -B5                                                     RSM3545C   83
                               20114              LX1    12                                                      RSM3545C   84
          2506  5222777773                        SA2    X2-4        FIRST F.P. IN SYMTAB                        RSM3545C   85
                          11341                   BX3    X4*X1                                                   RSM3545C   86
                               66255              SB2    B5+B5                                                   RSM3545C   87
                                                                                                                 RSM3545C   88
          2507  11642                    PSUB10   BX6    X4*X2       LOOP FOR F.P. ENTRY                         RSM3545C   89
                     73005                        SX0    X0+B5       INCREMENT F.P. SYMTAB ORDINAL               RSM3545C   90
                          13663                   BX6    X6-X3                                                   RSM3545C   91
                               55222              SA2    A2-B2       NEXT SYMTAB ENTRY                           RSM3545C   92
          2510  0316002507 +                      NZ     X6,PSUB10   IF NOT THIS ONE                             RSM3545C   93
                                                                                                                 RSM3545C   94
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    76
         PSEUDO-OP PROCESSORS 
  
                          5140000035 +            SA4    TEXT.ADD    CURRENT BLOCK                               RSM3545C   95
          2511  64350                             SB3    A5                                                      RSM3545C   96
                     54325                        SA3    A2+B5       WORD B                                      RSM3545C   97
                          5254777775              SA5    X4-2        CURRENT BLOCK POSITION COUNTER              RSM3545C   98
          2512  10233                             BX2    X3                                                      RSM3545C   99
                     37657                        IX6    X5-X7       SHIFT = 29, 14 OR -1                        RSM3545C  100
                          5170000040 +            SA7    FFLAG       INDICATE FORCE UPPER                        RSM3545C  101
          2513  20266                             LX2    59-P.NFU                                                RSM3545C  102
                     55455                        SA4    A5-B5       CURRENT BLOCK ORG COUNTER                   RSM3545C  103
                          21673                   AX6    59                                                      RSM3545C  104
                               21213              AX2    11                                                      RSM3545C  105
          2514  11667                             BX6    X6*X7                                                   RSM3545C  106
                     7255002000                   SX5    X5+2000B    SHIFT = 2030, 2015 OR 2000                  RSM3545C  107
                               20705              LX7    P.NFU                                                   RSM3545C  108
          2515  37556                             IX5    X5-X6       SHIFT = 2030, 2015 OR 1777                  RSM3545C  109
                     12737                        BX7    X3+X7       SET *P.NFU* BIT                             RSM3545C  110
                          73640                   SX6    X4                                                      RSM3545C  111
                               20052              LX0    42          POSITION F.P. ORDINAL                       RSM3545C  112
          2516  54730                             SA7    A3          RESET WORD B                                RSM3545C  113
                     43414                        MX4    12                                                      RSM3545C  114
                          20560                   LX5    -12         POSITION SHIFT                              RSM3545C  115
                               12716              BX7    X1+X6       F.P. NAME + ORGC                            RSM3545C  116
          2517  11242                             BX2    X4*X2                                                   RSM3545C  117
                     5130000434 +                 SA3    DELAY                                                   RSM3545C  118
                               36556              IX5    X5+X6       SHIFT +  ADDRESS (ORGC)                     RSM3545C  119
          2520  13337                             BX3    X3-X7       =0 IF DELAY NECESSARY, "0 IF NOT            RSM3545C  120
                     76600                        SX6    B0                                                      RSM3545C  121
                          14433                   BX4    -X3                                                     RSM3545C  122
                               54730              SA7    A3          RESET DELAY                                 RSM3545C  123
          2521  36664                             IX6    X6+X4                                                   RSM3545C  124
                     6121777722                   SB2    B1-1R                                                   RSM3545C  125
                               12436              BX4    X3+X6       =0 IF DELAY NECESSARY, -0 IF NOT            RSM3545C  126
          2522  36550                             IX5    X5+X0       SHIFT + F.P. ORDINAL + ADDRESS (ORGC)       RSM3545C  127
                     5130000032 +                 SA3    LORGTAB                                                 RSM3545C  128
                               11242              BX2    X4*X2       12 BIT MASK IF NOT FIRST F.P. AND NOT DELAY RSM3545C  129
          2523  53030                             SA0    X3                                                      RSM3545C  130
                     13552                        BX5    X5-X2                                                   RSM3545C  131
                          0100000236 +            RJ     USENXT      EXCHANGE CURRENT BLOCK WITH FP BLOCK        RSM3545C  132
          2524  0410002532 +                      ZR     B1,PSUB20   IF NO CONSTANT                              RSM3545C  133
                          0420002532 +            ZR     B2,PSUB20   IF A BLANK                                  RSM3545C  134
          2525  10655                             BX6    X5                                                      RSM3545C  135
                     43066                        MX0    54                                                      RSM3545C  136
                          56530                   SA5    B3                                                      RSM3545C  137
                               23345              GCH    X3          GET FIRST CHARACTER OF CONSTANT             RSM3545C  138
          2527  0640002530 +                      CWD                                                            RSM3545C  139
          2530  0100001120 +                      RJ     CONVERT     CONVERT CONSTANT                            RSM3545C  140
          2531  43052                             MX0    -18                                                     RSM3545C  141
                     15110                        BX1    -X0*X1                                                  RSM3545C  142
                          20122                   LX1    18                                                      RSM3545C  143
                               12516              BX5    X1+X6       SHIFT + F.P. NUMBER + CA +  ADDRESS (ORGC)  RSM3545C  144
                                                                                                                 RSM3545C  145
          2532  10455                    PSUB20   BX4    X5                                                      RSM3545C  146
                     6110000074                   SB1    60                                                      RSM3545C  147
          2533  6160000544 +                      SB6    PSUB30      RETURN ADDRESS                              RSM3545C  148
                          0400003211 +            EQ     WRTEXT                                                  RSM3545C  149
                                                                                                                 RSM3545C  150
          2534                                    MOVSTART 4                                                     RSM3545C  151
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    77
         PSEUDO-OP PROCESSORS 
  
           544  76155                    PSUB30   SX1    B5+B5                                                   RSM3545C  152
                     36661                        IX6    X6+X1                                                   RSM3545C  153
                          54630                   SA6    A3                                                      RSM3545C  154
           545  0100000246 +                      RJ     USESTAR     CHANGE F.P. BLOCK BACK TO ORIGINAL BLOCK    RSM3545C  155
           546  5110001745 +                      SA1    RJTFLAG                                                 RSM3545C  156
                          0311001774 +            NZ     X1,L3.RJTE  IF PROCESSING AN *RJT*                      RSM3545C  157
           547  0400001721 +                      EQ     INITL       NEXT COMPS INSTRUCTION                      RSM3545C  158
           550                                    MOVEND                                                         RSM3545C  159
  
  
                                        *                                                                        FAX      3617
                                        *         IOM MACRO                                                      FAX      3618
                                        *                                                                        FAX      3619
                                                                                                                 FAX      3620
          2534  43600                    PIOM     MX6    0                                                       FAX      3621
                     6110003723 +                 SB1    NNAME             FWA                                   FAX      3622
          2535  6120003736 +                      SB2    FNAME+1           LWA+1                                 FAX      3623
          2536  56610                    PIOC     SA6    B1                CLEAR SCRATCH CELLS                   FAX      3624
                     66115                        SB1    B1+B5                                                   FAX      3625
                          0712002536 +            LT     B1,B2,PIOC                                              FAX      3626
          2537  54555                             SA5    A5+B5             NEXT WORD                             FAX      3627
                     66470                        SB4    B7                RESET BIT COUNTER                     FAX      3628
                          0100000505 +            RJ     NMLG              EXAMINE FIRST CHARACTER               FAX      3629
          2540  0302002640 +                      ZR     X2,PIOMA          IF A NULL FIELD                       FAX      3630
                          7213777706              SX1    X3-1R?                                                  FAX      3631
          2541  0301002634 +                      ZR     X1,PIOM11         IF LCM RESIDENT                       FAX      3632
                          7213777731              SX1    X3-1R-                                                  FAX      3633
          2542  0301002642 +                      ZR     X1,PIOMB          IF AN IOM -1                          FAX      3634
                          0321002544 +            PL     X1,PIOM0          IF OTHER SPECIAL CHARACTER            FAX      3635
          2543  7213777744                        SX1    X3-1R0                                                  FAX      3636
                          0321002643 +            PL     X1,PIOMC          IF A DIGIT                            FAX      3637
                                                                                                                 FAX      3638
          2544  10133                    PIOM0    BX1    X3                                                      FAX      3639
                     0100001035 +                 RJ     NMLREF            PROCESS THE NAME                      FAX      3640
          2545  7121777721                        SX2    B1-1R,                                                  FAX      3641
                          0312002612 +            NZ     X2,PIOM7          IF  NOT ENDED BY A COMMA              FAX      3642
          2546  0100000505 +             PIOM1    RJ     NMLG                                                    FAX      3643
          2547  0302002553 +                      ZR     X2,PIOM2          IF A NULL BIAS FIELD                  FAX      3644
                          0100001120 +            RJ     CONVERT           CONVERT THE BIAS                      FAX      3645
          2550  10611                             BX6    X1                                                      FAX      3646
                     5160003727 +                 SA6    BIASN             SAVE THE BIAS                         FAX      3647
                                                                                                                 FAX      3648
          2551  0100000505 +                      RJ     NMLG              BYPASS THE COMMA                      FAX      3649
          2552  0312002612 +                      NZ     X2,PIOM7          IF END OF IOM                         FAX      3650
          2553  0100000505 +             PIOM2    RJ     NMLG                                                    FAX      3651
          2554  0302002560 +                      ZR     X2,PIOM3          IF A NULL TYPE FIELD                  FAX      3652
                          0100001120 +            RJ     CONVERT                                                 FAX      3653
          2555  20160                             LX1    48                POSITION TYPE FIELD                   FAX      3654
                     10611                        BX6    X1                                                      FAX      3655
                          5160003725 +            SA6    TNAME             SAVE THE TYPE                         FAX      3656
                                                                                                                 FAX      3657
          2556  0100000505 +                      RJ     NMLG                                                    FAX      3658
          2557  0312002612 +                      NZ     X2,PIOM7          IF END OF IOM                         FAX      3659
          2560  0100000505 +             PIOM3    RJ     NMLG                                                    FAX      3660
          2561  0302002565 +                      ZR     X2,PIOM4          IF A NULL COUNT FIELD                 FAX      3661
                          0100001120 +            RJ     CONVERT           CONVERT THE COUNT                     FAX      3662
          2562  10611                             BX6    X1                                                      FAX      3663
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    78
         PSEUDO-OP PROCESSORS 
  
                     5160003731 +                 SA6    ZZN               SAVE THE COUNT                        FAX      3664
                                                                                                                 FAX      3665
          2563  0100000505 +                      RJ     NMLG                                                    FAX      3666
          2564  0312002612 +                      NZ     X2,PIOM7          IF END OF IOM                         FAX      3667
          2565  43600                    PIOM4    MX6    0                                                       FAX      3668
                     0100000505 +                 RJ     NMLG                                                    FAX      3669
          2566  0302002572 +                      ZR     X2,PIOM5          IF NO B59 FLAG                        FAX      3670
                          7263777744              SX6    X3-1R0                                                  FAX      3671
          2567  20673                             LX6    59                                                      FAX      3672
                     5160003732 +                 SA6    Z1N               SAVE B59 FLAG                         FAX      3673
          2570  0100000505 +                      RJ     NMLG                                                    FAX      3674
          2571  0312002612 +                      NZ     X2,PIOM7          IF END OF IOM                         FAX      3675
          2572  0100000505 +             PIOM5    RJ     NMLG                                                    FAX      3676
          2573  0302002577 +                      ZR     X2,PIOM6          IF A NULL B57 FIELD                   FAX      3677
                          7233777744              SX3    X3-1R0                                                  FAX      3678
          2574  20371                             LX3    57                                                      FAX      3679
                     12636                        BX6    X3+X6             COMBINE BIT 57 AND BIT 59             FAX      3680
                          5160003732 +            SA6    Z1N               STORE THE RESULT IN Z1N               FAX      3681
                                                                                                                 FAX      3682
          2575  0100000505 +                      RJ     NMLG                                                    FAX      3683
          2576  0312002612 +                      NZ     X2,PIOM7          IF END OF IOM                         FAX      3684
          2577  5110003724 +             PIOM6    SA1    VNAME                                                   FAX      3685
                          5120003726 +            SA2    RBT                                                     FAX      3686
          2600  10611                             BX6    X1                                                      FAX      3687
                     22702                        LX7    X2                                                      FAX      3688
                          5160003723 +            SA6    NNAME             SAVE VNAME                            FAX      3689
          2601  5170003734 +                      SA7    Z3N                                                     FAX      3690
                          23145                   GCH    X1                                                      FAX      3691
          2603  0640002604 +                      CWD                                                            FAX      3692
          2604  7231777744                        SX3    X1-1R0                                                  FAX      3693
                          0323002646 +            PL     X3,PIOMD          IF A DIGIT                            FAX      3694
          2605  0100001035 +                      RJ     NMLREF            PROCESS BASE2                         FAX      3695
          2606  5110003724 +                      SA1    VNAME                                                   FAX      3696
                          5120003723 +            SA2    NNAME                                                   FAX      3697
          2607  10611                             BX6    X1                                                      FAX      3698
                     22702                        LX7    X2                                                      FAX      3699
                          54620                   SA6    A2                SWAP VNAME AND NNAME                  FAX      3700
                               54710              SA7    A1                                                      FAX      3701
          2610  5130003734 +                      SA3    Z3N                                                     FAX      3702
                          10633                   BX6    X3                                                      FAX      3703
          2611  5160003726 +                      SA6    RBT               RESTORE RBT                           FAX      3704
                                                                                                                 FAX      3705
          2612  5110003732 +             PIOM7    SA1    Z1N               B59, B57                              FAX      3706
                          5120003725 +            SA2    TNAME             TYPE                                  FAX      3707
          2613  5130003731 +                      SA3    ZZN               COUNT OR BIAS2                        FAX      3708
                          12612                   BX6    X1+X2             B59, B57, TYPE                        FAX      3709
                               20330              LX3    24                POSITION COJNT FIELD                  FAX      3710
          2614  5110003723 +                      SA1    NNAME                                                   FAX      3711
                          36713                   IX7    X1+X3             BASE2 + BIAS2 ( COUNT )               FAX      3712
          2615  5120003724 +                      SA2    VNAME                                                   FAX      3713
                          5130003727 +            SA3    BIASN                                                   FAX      3714
          2616  5110003730 +                      SA1    FPN               FP FLAG BIT                           FAX      3715
                          36323                   IX3    X2+X3             BASE + BIAS                           FAX      3716
                               12161              BX1    X6+X1             B59,FP, B57, TYPE                     FAX      3717
          2617  12771                             BX7    X7+X1             B59,FP, B57, TYPE, COUNT              FAX      3718
                     12473                        BX4    X7+X3             B59,FP,B57,TYPE,COUNT,ADDRESS         FAX      3719
          2620  6160001015 +             PIOM8    SB6    L4.CKRB           RETURN FOR RELOCATION                 FAX      3720
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    79
         PSEUDO-OP PROCESSORS 
  
                          5130003733 +            SA3    Z2N               NO BASE INDICATOR                     FEAT155B   52
          2621  0323002622 +                      PL     X3,PIOM9          IF A BASE WAS PRESENT                 FAX      3724
                          6160001721 +            SB6    INITL             RETURN ADDRESS FOR NO RELOCATION      FAX      3725
          2622  6110000074               PIOM9    SB1    60                60 BITS OF TEXT                       FAX      3726
                          5120003726 +            SA2    RBT                                                     FAX      3727
          2623  10622                             BX6    X2                                                      FAX      3728
                     5160000043 C                 SA6    RBTEMP            RESTORE RBTEMP                        FAX      3729
          2624  5110003735 +                      SA1    FNAME                                                   FAX      3730
                          0301003211 +            ZR     X1,WRTEXT         IF NO LCM RELOCATION                  FAX      3731
          2625  6160002631 +                      SB6    PIOM10            RETURN FOR LCM RELOCATION             FAX      3732
                          7211777776              SX1    X1-1                                                    FAX      3733
          2626  7120000002                        SX2    2                 COMMON RELOCATION                     FAX      3734
                          20245                   LX2    P.RL                                                    FAX      3735
                               20114              LX1    P.RB                                                    FAX      3736
          2627  12621                             BX6    X2+X1                                                   FAX      3737
                     5160000043 C                 SA6    RBTEMP            SETUP RELOCATION WORD                 FAX      3738
          2630  0400003211 +                      EQ     WRTEXT                                                  FAX      3739
                                                                                                                 FAX      3740
          2631  5130003735 +             PIOM10   SA3    FNAME             BLOCK ORDINAL                         FAX      3741
                          7223777776              SX2    X3-1                                                    FAX      3742
          2632  0100002302 +                      RJ     ALR               ADD LCM RELOCATION                    FAX      3743
          2633  0400001721 +                      EQ     INITL                                                   FAX      3744
                                                                                                                 FAX      3745
          2634  0100000505 +             PIOM11   RJ     NMLG                                                    FAX      3746
          2635  0100001120 +                      RJ     CONVERT           CONVERT MMM TO BINARY                 FAX      3747
          2636  13666                             BX6    X6-X6                                                   FAX      3748
                     22701                        LX7    X1                                                      FAX      3749
                          5160003724 +            SA6    VNAME             NO BASE ADDRESS                       FAX      3750
          2637  5170003735 +                      SA7    FNAME             BLOCK ORDINAL                         FAX      3751
                          0400002546 +            EQ     PIOM1                                                   FAX      3752
                                                                                                                 FAX      3753
          2640  43601                    PIOMA    MX6    1                 FORMAL PARAMETER IF NULL BASE         FAX      3754
                     20673                        LX6    -1                BIT 58 = FP FLAG                      FAX      3755
                          5160003730 +            SA6    FPN                                                     FAX      3756
          2641  0400002546 +                      EQ     PIOM1                                                   FAX      3757
                                                                                                                 FAX      3758
          2642  43473                    PIOMB    MX4    59                SET VALUE OF -1                       FAX      3759
                     0400002620 +                 EQ     PIOM8                                                   FAX      3760
                                                                                                                 FAX      3761
          2643  0100001120 +             PIOMC    RJ     CONVERT           CONVERT CONSTANT IN BASE FIELD        FAX      3762
          2644  43601                             MX6    1                                                       FAX      3763
                     5160003733 +                 SA6    Z2N               FLAG NO NAME FIELD                    FAX      3764
                               23245              GCH    X2                ADVANCE OVER THE COMMA                FAX      3765
                          0400002546 +            EQ     PIOM1             GO PROCESS BIAS                       FAX      3766
                                                                                                                 FAX      3767
          2646  10311                    PIOMD    BX3    X1                                                      FAX      3768
                     0100001120 +                 RJ     CONVERT                                                 FAX      3769
          2647  5130003727 +                      SA3    BIASN                                                   FAX      3770
                          20106                   LX1    6                                                       FAX      3771
                               36613              IX6    X1+X3                                                   FAX      3772
          2650  54630                             SA6    A3                COMBINE FO ORD + OFFSET               FAX      3773
                     0400002612 +                 EQ     PIOM7                                                   FAX      3774
                                                                                                                 FAX      3775
                                        *                                                                        FAX      3776
                                        *         EIO MACRO                                                      FAX      3777
                                        *                                                                        FAX      3778
          2651                                    MOVSTART  7                                                    FAX      3779
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    80
         PSEUDO-OP PROCESSORS 
  
           476  54555                    PEIO     SA5    A5+B5       NEXT WORD                                   FAX      3780
                     66470                        SB4    B7          RESET BIT COUNT                             FAX      3781
           477  0640000500 +                      CWD                                                            FAX      3782
           500  23345                             GCH    X3                                                      FAX      3783
           501  7223777731                        SX2    X3-1R-                                                  FAX      3784
                          43400                   MX4    0                                                       FAX      3785
           502  0312000503 +                      NZ     X2,PEIO1    IF NOT A -0                                 FAX      3786
                          43474                   MX4    60                                                      FAX      3787
           503  6110000074               PEIO1    SB1    60                                                      FAX      3788
                          6160001721 +            SB6    INITL             RETURN ADDRESS FROM WRTEXT            FAX      3789
           504  0400003211 +                      EQ     WRTEXT                                                  FAX      3790
           505                                    MOVEND                                                         FAX      3791
  
  
  
  
                                        *                                                                        FAX      3793
                                        *         DELAY                                                          FAX      3794
                                        *                                                                        FAX      3795
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    81
         PSEUDO-OP PROCESSORS                                         PFILE 
  
                                        **        PFILE - PROCESS *FILCRM/FIL7RM* MACRO.                         F162FTNA 1192
                                        *                                                                        F162FTNA 1193
                                        *         EXTRACTS LFN, BFS AND MRL FROM *FIL-RM* MACRO.  COMPUTES FWA   F162FTNA 1194
                                        *         FIT, FWB AND WSA.  ENTERS VALUES IN SKELETON FIT AND WRITES    F162FTNA 1195
                                        *         FIT TO BINARY OUTPUT FILE.  PREPARES REPL (4300) TABLE FOR     F162FTNA 1196
                                        *         PADDING THE REMAINING FIT LENGTH WITH ZERO FILL, AND WRITES    F162FTNA 1197
                                        *         TABLE TO BINARY OUTPUT FILE.                                   F162FTNA 1198
                                        *                                                                        F162FTNA 1199
                                        *                                                                        F162FTNA 1200
                                        *         ENTRY  REGISTERS = STANDARD *GCH* SETUP.                       F162FTNA 1201
                                        *                (ILINE) = *FILCRM/FIL7RM* MACRO CALL.                   F162FTNA 1202
                                        *                                                                        F162FTNA 1203
                                        *         EXIT   FIT AND REPL TABLE WRITTEN TO BINARY OUTPUT FILE.       F162FTNA 1204
                                        *                (ORGC) INCREMENTED BY LENGTH OF FIT, BFS AND WSA.       F162FTNA 1205
                                        *                                                                        F162FTNA 1206
                                        *         USES   ALL.                                                    F162FTNA 1207
                                        *                                                                        F162FTNA 1208
                                        *         CALLS  CONVERT, CW, CWD, GCH, NMLG, PACKID, RL=, WRITEW,       F162FTNA 1209
                                        *                WRSEQ, WR1WD.                                           F162FTNA 1210
                                                                                                                 F162FTNA 1211
                                                                                                                 F162FTNA 1212
                                                  QUAL   PFILE                                                   F162FTNA 1213
                                                                                                                 F162FTNA 1214
                                                                                                                 F162FTNA 1215
          2651  0400402651 +             PFILE    SUBR               ** ENTRY/EXIT **                            F162FTNA 1216
                                                                                                                 F162FTNA 1217
                                        *         GET ARG 1 = LOGICAL FILE NAME (LFN).                           F162FTNA 1218
                                                                                                                 F162FTNA 1219
          2652  23145                             GCH    X1                                                      F162FTNA 1220
                               66260              SB2    B6                                                      F162FTNA 1221
          2653  0100001133 +                      RJ     PACKID                                                  F162FTNA 1222
          2654  67363                             SB3    B6-B3                                                   F162FTNA 1223
                     23131                        AX1    B3          REMOVE BLANK FILL AND SPECIAL CHAR          F162FTNA 1224
                          6133000014              SB3    B3+12                                                   F162FTNA 1225
          2655  76250                             SX2    B5          CIO COMPLETE BIT (CMPLT)                    F162FTNA 1226
                     22131                        LX1    B3          LEFT JUSTIFY LFN                            F162FTNA 1227
                          12612                   BX6    X1+X2       LFN, CMPLT BIT                              F162FTNA 1228
          2656  5160002737 +                      SA6    FIT6A+O.LFN LFN TO CRM FIT                              F162FTNA 1229
                                                                                                                 F162FTNA 1230
                                        *         GET ARG 2 = BUFFER LENGTH (BFS).                               F162FTNA 1231
                                                                                                                 F162FTNA 1232
                          23345                   GCH    X3                                                      F162FTNA 1233
          2660  0640002661 +                      CWD                                                            F162FTNA 1234
          2661  0100001120 +                      RJ     CONVERT                                                 F162FTNA 1235
          2662  10611                             BX6    X1                                                      F162FTNA 1236
                     5160003733 +                 SA6    T.BFS       TEMP SAVE BFS                               F162FTNA 1237
                                                                                                                 F162FTNA 1238
                                        *         GET ARG 3 = MAX RECORD LENGTH (MRL).                           F162FTNA 1239
                                                                                                                 F162FTNA 1240
          2663  0100000505 +                      RJ     NMLG        SKIP COMMA                                  F162FTNA 1241
          2664  23345                             GCH    X3                                                      F162FTNA 1242
          2665  0640002666 +                      CWD                                                            F162FTNA 1243
          2666  0100001120 +                      RJ     CONVERT                                                 F162FTNA 1244
          2667  10211                             BX2    X1          (X2) = MRL(CHARACTERS)                      F162FTNA 1245
                     43352                        CW     X3,X1       (X3) = MRL(WORDS)                           F162FTNA 1246
                     43041                        MX0    -27                                                     F162FTNA 1247
                          5140003733 +            SA4    T.BFS       (X4) = BFS                                  F162FTNA 1248
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    82
         PSEUDO-OP PROCESSORS                                         PFILE               PFILE 
  
                                                                                                                 F162FTNA 1249
                                        *         GET CURRENT PROGRAM-RELATIVE ADDRESS (ORGC).                   F162FTNA 1250
                                                                                                                 F162FTNA 1251
          2672  5110000035 +                      SA1    TEXT.ADD                                                F162FTNA 1252
                          5251777774              SA5    X1-3                                                    F162FTNA 1253
          2673  15650                             BX6    -X0*X5                                                  F162FTNA 1254
                     22506                        LX5    X6          (X5) = 33/0, 9/RELOC BASE, 18/PROG-REL ADDR F162FTNA 1255
                          5160003734 +            SA6    T.ORGC      TEMP SAVE RELOCATED FWA FIT                 F162FTNA 1256
          2674  6110000001                        SB1    1           (B1) = 1                                    F162FTNA 1257
                                                                                                                 F162FTNA 1258
                                        #RM       IFEQ   OT#RM,7                                                 F162FTNA 1259
                                                                                                                 F162FTNA 1260
                                                  SA1    =XOT.RM                                                 F162FTNA 1261
                                                  ZR     X1,PF3      IF CRM OBJECT MODE (*FILCRM* MACRO)         F162FTNA 1262
                                                                                                                 F162FTNA 1263
                                                                                                                 F162FTNA 1264
                                        **        FORM 7RM (SCOPE 2) FIT AND WRITE TO BINARY OUTPUT FILE.        F162FTNA 1265
                                                                                                                 F162FTNA 1266
                                        *         FILL IN REPL (4300) TABLE SKELETON.                            F162FTNA 1267
                                                                                                                 F162FTNA 1268
                                                  SA1    REPL7                                                   F162FTNA 1269
                                                  SA6    PREPIC+1    ZERO WORD SOURCE ADDR TO REPL TABLE         F162FTNA 1270
                                                  IX7    X1+X6                                                   F162FTNA 1271
                                                  SA7    A6+B1       REPL LENGTH, DESTIN ADDR TO REPL TABLE      F162FTNA 1272
                                                                                                                 F162FTNA 1273
                                        *         FILL IN FIT SKELETON.                                          F162FTNA 1274
                                                                                                                 F162FTNA 1275
                                                  SX0    L.FIT7                                                  F162FTNA 1276
                                                  IX5    X5+X0       FWB = (ORGC) + L.FIT7                       F162FTNA 1277
                                                  MX6    0           PRESET NO MRL OR WSA                        F162FTNA 1278
                                                  MX7    0           PRESET NO RELOCATION                        F162FTNA 1279
                                                  ZR     X2,PF2      IF MRL=0 OR OMITTED (NO WSA)                F162FTNA 1280
                                                  IX5    X5+X4       WSA = FWB + BFS                             F162FTNA 1281
                                                  SX6    X5          (X6) = EXTRACT WSA                          F162FTNA 1282
                                                  IX5    X5+X3       NEXT ORG = WSA + MRL(WORDS)                 F162FTNA 1283
                                                  IX0    X3+X3       MRL*2                                       F162FTNA 1284
                                                  LX3    3              *8                                       F162FTNA 1285
                                                  IX0    X3+X0          *10                                      F162FTNA 1286
                                                  IX1    X0-X2       UNUSED CHARS = 10 * MRL(WORDS) - MRL(CHARS) F162FTNA 1287
                                                  IX0    X1+X1       UCH*2                                       F162FTNA 1288
                                                  LX1    2              *4                                       F162FTNA 1289
                                                  IX0    X1+X0       UNUSED BIT COUNT (UBC) = 6 * UNUSED CHARS   F162FTNA 1290
                                                  LX3    36-3                                                    F162FTNA 1291
                                                  BX6    X6+X3                                                   F162FTNA 1292
                                                  LX0    54                                                      F162FTNA 1293
                                                  BX6    X6+X0       6/UBC, 18/MRL(WDS), 15/0, 21/WSA            F162FTNA 1294
                                                  MX7    1           =2S58                                       F162FTNA 1295
                                                  LX7    60-7*4-58   RELOCATE WSA IN 7TH WORD                    F162FTNA 1296
                                         PF2      SA6    FIT7A+O.MRLWSA                                          F162FTNA 1297
                                                  SB2    L.FIT7A     (B2) = TEXT LENGTH                          F162FTNA 1298
                                                  BX6    X5                                                      F162FTNA 1299
                                                  SA6    T.NXTORG    TEMP SAVE UPDATED (ORGC)                    F162FTNA 1300
                                                                                                                 F162FTNA 1301
                                        *         WRITE FIT AND REPL TO BINARY OUTPUT FILE.                      F162FTNA 1302
                                                                                                                 F162FTNA 1303
                                                  MX6    0           (X6) = NO INCREMENT                         F162FTNA 1304
                                                  SA4    FIT7A       (A4,X4) = FWA FIT                           F162FTNA 1305
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    83
         PSEUDO-OP PROCESSORS                                         PFILE               PFILE 
  
                                                  RJ     PFA         FIT TO BINARY OUTPUT FILE                   F162FTNA 1306
                                                  SA1    =XFV.LGO                                                F162FTNA 1307
                                                  ZR     X1,PF10      IF BINARY OUTPUT OPTION OFF (B=0)          F162FTNA 1308
                                                  WRITEW F.LGO,PREPIC,3    REPL (4300) TABLE TO BIN OUTPUT FILE  F162FTNA 1309
                                                  SB5    1                                                       F162FTNA 1310
                                                  EQ     PF10                                                    F162FTNA 1311
                                                                                                                 F162FTNA 1312
                                        #RM       ENDIF                                                          F162FTNA 1313
                                                                                                                 F162FTNA 1314
                                                                                                                 F162FTNA 1315
                                        **        FORM CRM (NOS, NOS/BE) FIT AND WRITE TO BINARY OUTPUT FILE.    F162FTNA 1316
                                        *                                                                        F162FTNA 1317
                                        *         ENTRY  (X2) = MRL(CHARACTERS)                                  F162FTNA 1318
                                        *                (X3) = MRL(WORDS)                                       F162FTNA 1319
                                        *                (X4) = BFS                                              F162FTNA 1320
                                        *                (X5) = 33/0, 27/(ORGC)                                  F162FTNA 1321
                                        *                (B1,B5) = 1                                             F162FTNA 1322
                                                                                                                 F162FTNA 1323
                                        *         FILL IN REPL (4300) TABLE SKELETON.                            F162FTNA 1324
                                        *         NOTE THAT THE REPL LENGTH CAUSES ALL OF THE SKELETON FIT,      F162FTNA 1325
                                        *         EXCEPT SECTION (A), TO BE ZERO FILLED AT LOAD TIME.  THEN FIT  F162FTNA 1326
                                        *         SECTIONS (B) AND (C) WILL BE LOADED OVER THE ZERO FILL.        F162FTNA 1327
                                        *         THIS IS FASTER THAN ISSUING (AND FORCING LOADER TO PROCESS)    F162FTNA 1328
                                        *         THREE SEPARATE REPL TABLES FOR THE REQUIRED ZERO FILL.         F162FTNA 1329
                                                                                                                 F162FTNA 1330
          2675  5110002760 +             PF3      SA1    REPL6                                                   F162FTNA 1331
                          7100000002              SX0    O.ZERO6                                                 F162FTNA 1332
          2676  36650                             IX6    X5+X0                                                   F162FTNA 1333
                     36751                        IX7    X5+X1                                                   F162FTNA 1334
                          5160002330 +            SA6    PREPIC+1    ZERO WORD SOURCE ADDR TO REPL (4300) TABLE  F162FTNA 1335
          2677  54761                             SA7    A6+B1       REPL LENGTH, DESTIN ADDR TO REPL TABLE      F162FTNA 1336
                                                                                                                 F162FTNA 1337
                                        *         FILL IN FIT SECTION (A).                                       F162FTNA 1338
                                                                                                                 F162FTNA 1339
                     7100000051                   SX0    L.FIT6                                                  F162FTNA 1340
                               36550              IX5    X5+X0       FWB = (ORGC) + L.FIT6                       F162FTNA 1341
          2700  43600                             MX6    0           PRESET NO FWB                               F162FTNA 1342
                     0304002701 +                 ZR     X4,PF4      IF NO CIO BUFFER (BFS=0)                    F162FTNA 1343
                               73650              SX6    X5          SET FWB                                     F162FTNA 1344
          2701  5160002740 +             PF4      SA6    FIT6A+O.FWB                                             F162FTNA 1345
                                                                                                                 F162FTNA 1346
                                        *         FILL IN FIT(B) AND FIT(C).                                     F162FTNA 1347
                                                                                                                 F162FTNA 1348
                          36554                   IX5    X5+X4       WSA = FWB + BFS                             F162FTNA 1349
                               36753              IX7    X5+X3       NEXT ORG = WSA + MRL(WORDS)                 F162FTNA 1350
          2702  5170003735 +                      SA7    T.NXTORG    TEMP SAVE UPDATED (ORGC)                    F162FTNA 1351
                          20244                   LX2    36                                                      F162FTNA 1352
                               10644              BX6    X4          BFS                                         F162FTNA 1353
          2703  22702                             LX7    X2          MRL                                         F162FTNA 1354
                     5160002751 +                 SA6    FIT6B+O.BFS-O.FIT6B                                     F162FTNA 1355
          2704  5170002744 +                      SA7    FIT6B+O.MRL-O.FIT6B                                     F162FTNA 1356
                          43602                   MX6    2           =6S57                                       F162FTNA 1357
                               76700              SX7    B0          PRESET NO MRL OR WSA                        F162FTNA 1358
          2705  20641                             LX6    30-57       (EO) = 6S30  -- PRESET NO WSA               F162FTNA 1359
                     0302002707 +                 ZR     X2,PF5      IF NO WSA (MRL=0)                           F162FTNA 1360
                               73050              SX0    X5                                                      F162FTNA 1361
          2706  12660                             BX6    X6+X0       SET EO, WSA                                 F162FTNA 1362
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    84
         PSEUDO-OP PROCESSORS                                         PFILE               PFILE 
  
                     36720                        IX7    X2+X0       SET MRL, WSA                                F162FTNA 1363
          2707  5160002747 +             PF5      SA6    FIT6B+O.EOWSA-O.FIT6B                                   F162FTNA 1364
                          5170002757 +            SA7    FIT6C                                                   F162FTNA 1365
                                                                                                                 F162FTNA 1366
                                        *         FIT(A) TO BINARY OUTPUT FILE.                                  F162FTNA 1367
                                                                                                                 F162FTNA 1368
          2710  6120000003                        SB2    L.FIT6A     (B2) = TEXT LENGTH                          F162FTNA 1369
                          43600                   MX6    0           (X6) = NO INCREMENT                         F162FTNA 1370
                               13777              BX7    X7-X7       (X7) = PRESET NO RELOCATION                 F162FTNA 1371
          2711  0304002712 +                      ZR     X4,PF6      IF NO CIO BUFFER (BFS=0)                    F162FTNA 1372
                          43701                   MX7    1           =2S58                                       F162FTNA 1373
                               20766              LX7    60-2*4-58   (X7) = SET FWB (2ND WORD) RELOCATION        F162FTNA 1374
          2712  5140002737 +             PF6      SA4    FIT6A       (A4,X4) = TEXT FWA                          F162FTNA 1375
                          0100002730 +            RJ     PFA         FIT(A) TO BINARY OUTPUT FILE                F162FTNA 1376
                                                                                                                 F162FTNA 1377
                                        *         REPL (4300) TABLE TO BINARY OUTPUT FILE.                       F162FTNA 1378
                                                                                                                 F162FTNA 1379
          2713  5110000000 X                      SA1    =XFV.LGO                                                F162FTNA 1380
                          0301002716 +            ZR     X1,PF7      IF BINARY OUTPUT OPTION OFF (B=0)           F162FTNA 1381
          2714  6160002327 +                      WRITEW F.LGO,PREPIC,3                                          F162FTNA 1382
                                                                                                                 F162FTNA 1383
                                        *         FIT(B) TO BINARY OUTPUT FILE.                                  F162FTNA 1384
                                                                                                                 F162FTNA 1385
          2716  5110002757 +             PF7      SA1    FIT6C                                                   F162FTNA 1386
                          43700                   MX7    0           (X7) = PRESET NO WSA RELOCATION             F162FTNA 1387
                               73210              SX2    X1                                                      F162FTNA 1388
          2717  0302002720 +                      ZR     X2,PF8      IF NO WSA                                   F162FTNA 1389
                          43701                   MX7    1           =2S58                                       F162FTNA 1390
                               20746              LX7    60-6*4-58   (X7) = SET WSA (6TH WORD) RELOCATION        F162FTNA 1391
          2720  6120000015               PF8      SB2    L.FIT6B     (B2) = TEXT LENGTH                          F162FTNA 1392
                          5140002742 +            SA4    FIT6B       (A4,X4) = TEXT FWA                          F162FTNA 1393
          2721  7160000012                        SX6    O.FIT6B     (X6) = FIT(B) INCREMENT                     F162FTNA 1394
                          0100002730 +            RJ     PFA         FIT(B) TO BINARY OUTPUT FILE                F162FTNA 1395
                                                                                                                 F162FTNA 1396
                                        *         FIT(C) TO BINARY OUTPUT FILE.                                  F162FTNA 1397
                                                                                                                 F162FTNA 1398
          2722  5140002757 +                      SA4    FIT6C       (A4,X4) = TEXT FWA                          F162FTNA 1399
                          7160000043              SX6    O.FCLEXT    (X6) = FIT(C) INCREMENT                     F162FTNA 1400
          2723  0304002725 +                      ZR     X4,PF10     IF NO WSA, OMIT FIT(C)                      F162FTNA 1401
                          43701                   MX7    1           =2S58                                       F162FTNA 1402
                               66210              SB2    B1          (B2) = TEXT LENGTH                          F162FTNA 1403
          2724  20772                             LX7    60-1*4-58   (X7) = SET WSA (1ST WORD) RELOCATION        F162FTNA 1404
                     0100002730 +                 RJ     PFA         FIT(C) TO BINARY OUTPUT FILE                F162FTNA 1405
                                                                                                                 F162FTNA 1406
                                        *         UPDATE (ORGC).                                                 F162FTNA 1407
                                                                                                                 F162FTNA 1408
          2725  5110003735 +             PF10     SA1    T.NXTORG                                                F162FTNA 1409
                          5120000035 +            SA2    TEXT.ADD                                                F162FTNA 1410
          2726  43301                             MX3    1           =4000BS48 (TEXT TABLE CODE)                 F162FTNA 1411
                     22601                        LX6    X1                                                      F162FTNA 1412
                          12736                   BX7    X3+X6                                                   F162FTNA 1413
                               53720              SA7    X2                                                      F162FTNA 1414
          2727  5262777774                        SA6    X2-3                                                    F162FTNA 1415
                          0400002651 +            EQ     EXIT.                                                   F162FTNA 1416
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    85
         PSEUDO-OP PROCESSORS                                         PFILE               PFILE 
  
                                        **        PFA - SUPPORT SUBROUTINE FOR *PFILE*.                          F162FTNA 1418
                                        *                                                                        F162FTNA 1419
                                        *         SETS BINARY OUTPUT ADDRESS TO (T.ORGC) + (X6).                 F162FTNA 1420
                                        *         WRITES 1-15 WORDS OF TEXT TO THE CURRENT TEXT TABLE.           F162FTNA 1421
                                        *         WRITES TABLE TO THE BINARY OUTPUT FILE.                        F162FTNA 1422
                                        *                                                                        F162FTNA 1423
                                        *         ENTRY  (A4,X4) = NEW TEXT FWA.                                 F162FTNA 1424
                                        *                (X6) = (T.ORGC) INCREMENT.                              F162FTNA 1425
                                        *                (X7) = RELOCATION BYTE WORD.                            F162FTNA 1426
                                        *                (B2) = TEXT LENGTH.                                     F162FTNA 1427
                                        *                                                                        F162FTNA 1428
                                        *         EXIT   (B1,B5) = 1.                                            F162FTNA 1429
                                        *                NEW TEXT WRITTEN TO BINARY OUTPUT FILE.                 F162FTNA 1430
                                        *                (ORGC) IN TEXT TABLE = LWA WRITTEN + 1.                 F162FTNA 1431
                                        *                                                                        F162FTNA 1432
                                        *         USES   ALL.                                                    F162FTNA 1433
                                        *                                                                        F162FTNA 1434
                                        *         CALLS  FOTEXT, WRSEQ.                                          F162FTNA 1435
                                                                                                                 F162FTNA 1436
                                                                                                                 F162FTNA 1437
          2730  0400402730 +             PFA      SUBR               ** ENTRY/EXIT **                            F162FTNA 1438
          2731  5110003734 +                      SA1    T.ORGC                                                  F162FTNA 1439
                          5120000035 +            SA2    TEXT.ADD                                                F162FTNA 1440
          2732  36616                             IX6    X1+X6                                                   F162FTNA 1441
                     43101                        MX1    1           =4000BS48 (TEXT TABLE CODE)                 F162FTNA 1442
                          5262777774              SA6    X2-3        UPDATE (ORGC)                               F162FTNA 1443
          2733  12616                             BX6    X1+X6                                                   F162FTNA 1444
                     53620                        SA6    X2          NEW TEXT TABLE HEADER                       F162FTNA 1445
                          6150000001              SB5    1                                                       F162FTNA 1446
          2734  76620                             SX6    B2          (X6) = TEXT LENGTH                          F162FTNA 1447
                     0100000743 +                 RJ     WRSEQ       NEW TEXT TO TEXT TABLE                      F162FTNA 1448
          2735  0100003247 +                      RJ     FOTEXT      TEXT TABLE TO BINARY OUTPUT FILE            F162FTNA 1449
          2736  6110000001                        SB1    1                                                       F162FTNA 1450
                          0400002730 +            EQ     EXIT.                                                   F162FTNA 1451
  
  
  
  
                                        *         TEMPORARY STORAGE LOCATIONS.                                   F162FTNA 1453
                                                                                                                 F162FTNA 1454
                                3733 +   T.BFS    =      SCRATCH+8   BUFFER SIZE (WORDS)                         F162FTNA 1455
                                3734 +   T.ORGC   =      SCRATCH+9   33/0,9/RELOC BASE,18/START ADDR             F162FTNA 1456
                                3735 +   T.NXTORG =      SCRATCH+10  33/0,9/RELOC BASE,18/NEXT START ADDR        F162FTNA 1457
                                                                                                                 F162FTNA 1458
                                                                                                                 F162FTNA 1459
                                                                                                                 F162FTNA 1460
                                        **        CRM (NOS, NOS/BE) FIT SKELETON.                                F162FTNA 1461
                                                                                                                 F162FTNA 1462
          2737                           FIT6A    BSS    0                                                       F162FTNA 1463
      L      0                                    LOC    0                                                       F162FTNA 1464
      L      0  00000000000000000000     O.LFN    VFD    42/**,18/0        LOGICAL FILE NAME (LFN), 0L FORMAT    F162FTNA 1465
      L      1  00000000000036000000     O.FWB    VFD    36/0,6/L.FIT6-L.FCLX-5,18/**                            FCCA408   325
      L                                                              (FIT LENGTH - 5) + FWA CIRCULAR BUFFER      FCCA408   326
      L      2  00000000000000000000     O.ZERO6  DATA   0                 ZERO WORD FOR REPLICATION             F162FTNA 1467
          2742                                    LOC    *O                                                      F162FTNA 1468
                                   3     L.FIT6A  =      *-FIT6A                                                 F162FTNA 1469
                                        *         BSSZ   7                 ZEROS SUPPLIED BY REPLICATION         F162FTNA 1470
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    86
         PSEUDO-OP PROCESSORS                                         PFILE               PFILE 
  
          2742                           FIT6B    BSS    0                                                       F162FTNA 1471
      L     12                                    LOC    12B                                                     F162FTNA 1472
      L     12                           O.FIT6B  BSS    0                                                       F162FTNA 1473
      L     12  00000000000060000000              VFD    36/0,2/3,22/0     LABEL TYPE (LT)=ANY                   F162FTNA 1474
      L     13  00000000220000000000              VFD    25/0,2/2,3/2,30/0 OPEN FLAG (OF)=N, CLOSE FLAG (CF)=N   F162FTNA 1475
      L     14  00000000000000000000     O.MRL    VFD    24/**,36/0        MAXIMUM RECORD LENGTH (MRL)           F162FTNA 1476
      L     15  14000000000000000000              VFD    2/0,2/3,56/0      DAYFILE CONTROL (DFC)=3               F162FTNA 1477
      L     16  00000000000000000000              DATA   0                                                       F162FTNA 1478
      L     17  00000000060000000000     O.EOWSA  VFD    27/0,3/6,12/0,18/**  ERR OPT (EO)=6, FWA WRK STOR (WSA) F162FTNA 1479
      L     20  00000000000000000000              DATA   0                                                       F162FTNA 1480
      L     21  00000000000000000000     O.BFS    VFD    42/0,18/**        CIRCULAR BUFFER SIZE (BFS)            F162FTNA 1481
      L     22  00000000000000000000              DATA   0,0,0,0                                                 FCCA561    28
      L     26  00000001000000000000              VFD    20/0,4/1,36/0       FORTRAN GENERATED FIT FLAG          FCCA561    29
      L   2757                                    LOC    *O                                                      F162FTNA 1482
                                  15     L.FIT6B  =      *-FIT6B                                                 F162FTNA 1483
                                        *         BSSZ   O.FCLEXT-O.BFS    ZEROS SUPPLIED BY REPLICATION         F162FTNA 1484
          2757                           FIT6C    BSS    0                                                       F162FTNA 1485
      L     43                                    LOC    L.FIT6-L.FCLX                                           F162FTNA 1486
      L     43  00000000000000000000     O.FCLEXT VFD    24/**,18/0,18/**  MAX REC LEN (MRL), FWA WRK STO (WSA)  F162FTNA 1487
      L   2760                                    LOC    *O                                                      F162FTNA 1488
                                                                                                                 F162FTNA 1489
          2760  00004600001000000003     REPL6    VFD    18/L.FIT6-L.FIT6A,15/1,9/0,18/L.FIT6A                   F162FTNA 1490
                                                                                                                 F162FTNA 1491
                                                                                                                 F162FTNA 1492
                                        **        7RM (SCOPE 2) FIT SKELETON.                                    F162FTNA 1493
                                                                                                                 F162FTNA 1494
                                        #RM       IFEQ   OT#RM,7                                                 F162FTNA 1495
                                                                                                                 F162FTNA 1496
                                         FIT7A    BSS    0                                                       F162FTNA 1497
                                                  LOC    0                                                       F162FTNA 1498
                                         O.ZERO7  DATA   0           ZERO WORD FOR REPLICATION                   F162FTNA 1499
                                                  DATA   0                                                       F162FTNA 1500
                                                  VFD    24/0,2/2,4/1,2/0,28/0   (OF)=N,(LT)=UNLABELED           FCCA561    30
                                                  BSSZ   3                                                       F162FTNA 1502
                                         O.MRLWSA VFD    6/**,18/**,15/0,21/**   (MRL - UBC,WORDS), (WSA)        F162FTNA 1503
                                                  DATA   0                                                       FCCA561    31
                                                  VFD    14/0,4/1,42/0       FORTRAN GENERATED FIT FLAG          FCCA561    32
                                                  LOC    *O                                                      F162FTNA 1504
                                         L.FIT7A  =      *-FIT7A                                                 F162FTNA 1505
                                                                                                                 F162FTNA 1506
                                         REPL7    VFD    18/L.FIT7-L.FIT7A,15/1,9/0,18/L.FIT7A                   F162FTNA 1507
                                                                                                                 F162FTNA 1508
                                         #RM      ENDIF                                                          F162FTNA 1509
  
  
  
  
                                                  QUAL   *                                                       F162FTNA 1511
                                2651 +   PFILE    =      /PFILE/PFILE                                            F162FTNA 1512
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    87
         PSEUDO-OP PROCESSORS                                         NAME
  
                                        ***                                                                      F162FTNA 1514
                                        *         NAME                                                           FAX      3969
                                        *                                                                        FAX      3970
                                3723 +   NNAME    EQU    SCRATCH                                                 FAX      3971
                                3724 +   VNAME    EQU    SCRATCH+1                                               FAX      3972
                                3725 +   TNAME    EQU    SCRATCH+2                                               FAX      3973
                                3726 +   RBT      EQU    SCRATCH+3                                               FAX      3974
                                3727 +   BIASN    EQU    SCRATCH+4                                               FAX      3975
                                3730 +   FPN      EQU    SCRATCH+5                                               FAX      3976
                                3731 +   ZZN      EQU    SCRATCH+6                                               FAX      3977
                                3732 +   Z1N      EQU    SCRATCH+7                                               FAX      3978
                                3733 +   Z2N      EQU    SCRATCH+8                                               FAX      3979
                                3734 +   Z3N      EQU    SCRATCH+9                                               FAX      3980
                                3735 +   FNAME    EQU    SCRATCH+10                                              FAX      3981
  
  
  
                                        ***                                                                      FAX      3983
                                        *         GET REFERENCED NAME FOR NAMELIST MACRO                         FAX      3984
                                        *                                                                        FAX      3985
          2761                                    MOVSTART  16B                                                  FCC2319    10
          1035  0400401035 +             NMLREF   ENTRY. *                                                       FAX      3987
          1036  63310                             SB3    X1                FIRST CHAR                            FAX      3988
                     6221777706                   SB2    X1-1R?                                                  FAX      3989
          1037  0420001044 +                      ZR     B2,NMLR.1   IF ?MMM SYMBOL                              FAX      3990
                          66260                   SB2    B6                B2 = 6                                FAX      3991
          1040  0100003140 +                      RJ     REF                                                     FAX      3992
          1041  5140000043 C             NMLR.2   SA4    RBTEMP                                                  FAX      3993
                          10633                   BX6    X3                                                      FAX      3994
                               22704              LX7    X4                                                      FAX      3995
          1042  5160003724 +                      SA6    VNAME             VNAME = RA                            FAX      3996
                          5170003726 +            SA7    RBT               RBT = RBTEMP = WORD B OF SYMTAB       FAX      3997
          1043  43600                             MX6    0                                                       FAX      3998
                     54640                        SA6    A4                RBTEMP = 0                            FAX      3999
                          0400001035 +            EQ     NMLREF                                                  FAX      4000
          1044  23345                    NMLR.1   GCH    X3                                                      FAX      4001
          1045  0640001046 +                      CWD                                                            FCC2319    11
          1046  0100001120 +                      RJ     CONVERT     MMM OF ?MMM                                 FAX      4002
          1047  7221777776                        SX2    X1-1                                                    FAX      4003
                          7110000002              SX1    2           COMMON RELOCATION                           FAX      4004
          1050  20214                             LX2    P.RB                                                    FAX      4005
                     20145                        LX1    P.RL                                                    FAX      4006
                          12621                   BX6    X2+X1                                                   FAX      4007
          1051  5160000043 C                      SA6    RBTEMP                                                  FAX      4008
                          43300                   MX3    0                                                       FAX      4009
          1052  0400001041 +                      EQ     NMLR.2                                                  FAX      4010
                                                                                                                 FAX      4011
          1053                                    MOVEND                                                         FAX      4012
  
  
  
                                        ***                                                                      FAX      4014
                                        *         NMLG - GET NEXT CHAR FOR NAME MACRO CALL PROCESSOR             FAX      4015
                                        *                                                                        FAX      4016
          2761                                    MOVSTART  4                                                    FAX      4017
           505  00000000000000000000     NMLG                                                                    FAX      4018
           506  23345                             GCH    X3                GET CHARACTER                         FAX      4019
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    88
         PSEUDO-OP PROCESSORS 
  
           507  0640000510 +                      CWD                      CHECK WORD                            FAX      4020
           510  7223777721                        SX2    X3-1R,                                                  FAX      4021
                          0400000505 +            EQ     NMLG                                                    FAX      4022
           511                                    MOVEND                                                         FAX      4023
  
  
  
                                        ***                                                                      FAX      4025
                                        *         PNAME - PROCESS "NAME" MACRO CALL                              FAX      4026
                                        *                                                                        FAX      4027
          2761  54555                    PNAME    SA5    A5+B5             NEXT WORD                             FAX      4028
                     66470                        SB4    B7                                                      FAX      4029
                          43600                   MX6    0                                                       FAX      4030
          2762  6110003723 +                      SB1    NNAME             FWA                                   FAX      4031
                          6120003736 +            SB2    FNAME+1           LWA+1                                 FAX      4032
          2763  56610                    +        SA6    B1                CLEAR OUT SCRATCH CELLS               FAX      4033
                     66115                        SB1    B1+B5                                                   FAX      4034
                          0712002763 +            LT     B1,B2,*                                                 FAX      4035
                                                                                                                 FAX      4036
          2764  23145                             GCH    X1                                                      FAX      4037
          2765  0100001035 +                      RJ     NMLREF            GET NAME INFO                         FAX      4038
          2766  10711                             BX7    X1                                                      FAX      4039
                     5170003735 +                 SA7    FNAME             SAVE NAME                             FAX      4040
          2767  7120000053                        SX2    1R$                                                     FAX      4041
                          0100000323 +            RJ     RSC               REMOVE TRAILING BLANKS AND POSSIBLE $ FAX      4042
          2770  23676                             AX6    B7,X6             REMOVE TRAILING BLANKS                FAX      4043
                     22676                        LX6    B7,X6             REPOSITION NAME TO TOP OF WORD        FAX      4044
                          5160003723 +            SA6    NNAME             SAVE                                  FAX      4045
          2771  6170000066                        SB7    54                                                      FAX      4046
                          23345                   GCH    X3                                                      FAX      4047
                     0100001120 +                 RJ     CONVERT           GET AND                               FAX      4048
          2773  10611                             BX6    X1                SAVE TYPE                             FAX      4049
                     5160003725 +                 SA6    TNAME                                                   FAX      4050
                                                                                                                 FAX      4051
          2774  0100000505 +                      RJ     NMLG              NEXT CHAR                             FAX      4052
          2775  0312003031 +                      NZ     X2,PNAME4         IF NO MORE PARAMS                     FAX      4053
                          0100000505 +            RJ     NMLG                                                    FAX      4054
          2776  0302003003 +                      ZR     X2,PNAME2         IF NOT EQUIVALENCED                   FAX      4055
                          10133                   BX1    X3                                                      FAX      4056
          2777  0100001035 +                      RJ     NMLREF            GET BASE INFO                         FAX      4057
          3000  0100000505 +                      RJ     NMLG                                                    FAX      4058
          3001  0100001120 +                      RJ     CONVERT           GET BIAS                              FAX      4059
          3002  10611                             BX6    X1                                                      FAX      4060
                     5160003727 +                 SA6    BIASN                                                   FAX      4061
                                                                                                                 FAX      4062
          3003  0100000505 +             PNAME2   RJ     NMLG              NEXT CHAR                             FAX      4063
          3004  0312003031 +                      NZ     X2,PNAME4         IF NOT A COMMA                        FAX      4064
                          0100000505 +            RJ     NMLG                                                    FAX      4065
          3005  0302003012 +                      ZR     X2,PNAME2A        IF NO FP ORDINAL                      FAX      4066
                          0100001120 +            RJ     CONVERT                                                 FAX      4067
          3006  76650                             SX6    B5                                                      FAX      4068
                     20634                        LX6    28                                                      FAX      4069
                          12616                   BX6    X1+X6                                                   FAX      4070
          3007  5160003724 +                      SA6    VNAME             SET FP BIT + ORDINAL NUMBER           FAX      4071
                          5160003730 +            SA6    FPN                                                     FAX      4072
          3010  0100000505 +                      RJ     NMLG                                                    FAX      4073
          3011  0312003031 +                      NZ     X2,PNAME4         IF NOT DIMENSIONED                    FAX      4074
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    89
         PSEUDO-OP PROCESSORS 
  
          3012  0100000505 +             PNAME2A  RJ     NMLG                                                    FAX      4075
          3013  0302003031 +                      ZR     X2,PNAME4         IF NO NDIM FIELD PRESENT              FAX      4076
                          7263777744              SX6    X3-1R0                                                  FAX      4077
          3014  5160003731 +                      SA6    ZZN               SAVE CONVERTED NUMBER OF DIMENSIONS   FAX      4078
                          0100000505 +            RJ     NMLG                                                    FAX      4079
          3015  0312003031 +                      NZ     X2,PNAME4         IF NO MORE PARAMS                     FAX      4080
                          0100000505 +            RJ     NMLG              NEXT CHAR                             FAX      4081
          3016  7213777722                        SX1    X3-1R                                                   FAX      4082
                          0303003031 +            ZR     X3,PNAME4         IF A 0 CHAR                           FAX      4083
          3017  0301003031 +                      ZR     X1,PNAME4         IF A BLANK                            FAX      4084
                                                                                                                 FAX      4085
                          0100001120 +            RJ     CONVERT                                                 FAX      4086
          3020  10711                             BX7    X1                                                      FAX      4087
                     5170003732 +                 SA7    Z1N               D1                                    FAX      4088
          3021  0100000505 +                      RJ     NMLG                                                    FAX      4089
          3022  0312003031 +                      NZ     X2,PNAME4         IF NO D2                              FAX      4090
                          0100000505 +            RJ     NMLG              FIRST CHAR OF CONSTANT                FAX      4091
          3023  0100001120 +                      RJ     CONVERT                                                 FAX      4092
          3024  10611                             BX6    X1                                                      FAX      4093
                     5160003733 +                 SA6    Z2N                                                     FAX      4094
          3025  0100000505 +                      RJ     NMLG                                                    FAX      4095
          3026  0312003031 +                      NZ     X2,PNAME4         IF NO D3                              FAX      4096
                          0100000505 +            RJ     NMLG              FIRST CHAR OF CONSTANT                FAX      4097
          3027  0100001120 +                      RJ     CONVERT                                                 FAX      4098
          3030  10611                             BX6    X1                                                      FAX      4099
                     5160003734 +                 SA6    Z3N                                                     FAX      4100
                                                                                                                 FAX      4101
                                        *         NOW OUTPUT THE BINARY                                          FAX      4102
                                                                                                                 FAX      4103
          3031  5130003723 +             PNAME4   SA3    NNAME             NAME                                  FAX      4104
                          5120003725 +            SA2    TNAME             TYPE                                  FAX      4105
          3032  43071                             MX0    60-3                                                    FAX      4106
                     15220                        BX2    -X0*X2            SAVE TYPE VALUE                       FAX      4107
                          5110003731 +            SA1    ZZN               NUMBER OF DIMENSIONS                  FAX      4108
          3033  20106                             LX1    6                                                       FAX      4109
                     12632                        BX6    X3+X2                                                   FAX      4110
                          36416                   IX4    X1+X6             COMBINE ALL THREE                     FAX      4111
          3034  6110000074                        WR1WD                    WRITE NAME WORD                       FAX      4112
                                                                                                                 FAX      4113
          3036  5110003724 +                      SA1    VNAME                                                   FAX      4114
                          5120003727 +            SA2    BIASN                                                   FAX      4115
          3037  36212                             IX2    X1+X2             SOURCE ADDR OF NAMELIST VARIABLE      FAX      4116
                     5130003725 +                 SA3    TNAME                                                   FAX      4117
                               21303              AX3    3                                                       FAX      4118
          3040  20335                             LX3    29                MOVE POSSIBLE LCM BIT TO PROPER SPOT  FAX      4119
                     12232                        BX2    X3+X2                                                   FAX      4120
                          5130003732 +            SA3    Z1N               D1                                    FAX      4121
          3041  20336                             LX3    30                                                      FAX      4122
                     12423                        BX4    X2+X3             D1 + ADDRESS OF ITEM                  FAX      4123
                          6110000074              WR1WD                    WRITE THE 2ND WORD                    FAX      4124
          3043  5110003726 +                      SA1    RBT               (X1) = RELOCATION INFO FOR VARIABLE   FAX      4125
                          5120000035 +            SA2    TEXT.ADD                                                FAX      4126
          3044  20125                             LX1    59-P.RL-1                                               FAX      4127
                     5130003730 +                 SA3    FPN                                                     FAX      4128
          3045  0313003062 +                      NZ     X3,PNAME7         IF AN FP, NO RELOCATION               FAX      4129
                          0321003060 +            PL     X1,PNAME6         IF LOCAL ADD LOWER RELOCATION BYTE    FAX      4130
          3046  20133                             LX1    L.RL+P.RL-P.RB                                          FAX      4131
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    90
         PSEUDO-OP PROCESSORS 
  
                     5232777774                   SA3    X2-3              LINK IT TO COMMON REFERENCE CHAIN.    FAX      4132
                               43065              MX0    60-L.RB                                                 FAX      4133
          3047  5120003706 +                      SA2    =20000000000000000026B                                  FAX      4134
                          15110                   BX1    -X0*X1                                                  FAX      4135
                               27101              PX1    X1,B0                                                   FAX      4136
          3050  43701                             MX7    1                                                       FAX      4137
                     42112                        DX1    X1*X2                                                   FAX      4138
                          20336                   LX3    30                                                      FAX      4139
          3051  5120000031 +                      SA2    CORGTAB                                                 FAX      4140
                          12737                   BX7    X3+X7                                                   FAX      4141
          3052  5140000034 +                      SA4    FREEMEM                                                 FAX      4142
                          36112                   IX1    X1+X2                                                   FAX      4143
          3053  5150000036 +                      SA5    MEMEND                                                  FAX      4144
                          43052                   MX0    60-18                                                   FAX      4145
                               53210              SA2    X1                                                      FAX      4146
          3054  73645                             SX6    X4+B5                                                   FAX      4147
                     15320                        BX3    -X0*X2                                                  FAX      4148
                          37554                   IX5    X5-X4                                                   FAX      4149
                               11202              BX2    X0*X2                                                   FAX      4150
          3055  0335003456 +                      NG     X5,STOVER         SENSE STORAGE OVERFLOW                FAX      4151
                          54640                   SA6    A4                                                      FAX      4152
                               12773              BX7    X7+X3                                                   FAX      4153
          3056  36642                             IX6    X4+X2                                                   FAX      4154
                     53740                        SA7    X4                                                      FAX      4155
                          54620                   SA6    A2                                                      FAX      4156
          3057  0400003062 +                      EQ     PNAME7                                                  FAX      4157
          3060  53325                    PNAME6   SA3    X2+B5                                                   FAX      4158
                     7110000002                   SX1    RL$L              LOWER PROGRAM RELOCATION              FAX      4159
                               36613              IX6    X1+X3                                                   FAX      4160
          3061  54630                             SA6    A3                                                      FAX      4161
          3062  5130003731 +             PNAME7   SA3    ZZN               NDIMS                                 FAX      4162
                          21301                   AX3    1                                                       FAX      4163
          3063  0303001721 +                      ZR     X3,INITL          IF 0 OR 1 DIMENSIONS                  FAX      4164
                          5120003734 +            SA2    Z3N               D3                                    FAX      4165
          3064  5110003733 +                      SA1    Z2N               D2                                    FAX      4166
                          20236                   LX2    30                                                      FAX      4167
                               12412              BX4    X1+X2             D2 + D3                               FAX      4168
          3065  6110000074                        SB1    60                                                      FAX      4169
                          6160001721 +            SB6    INITL             RETURN ADDRESS FOR WRTEXT             FAX      4170
          3066  0400003211 +                      EQ     WRTEXT                                                  FAX      4171
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    91
         PSEUDO-OP PROCESSORS 
  
                                        ***                                                                      FAX      4173
                                        *         PENTR. - PROCESS ENTR MACRO                                    FAX      4174
                                        *                                                                        FAX      4175
          3067                                    MOVSTART  1                                                    FAX      4176
           466  00                       ENTRRP   RELOC  (,U,B,,U,U,B,L,B)                                       F2950F4   116
           467                                    MOVEND                                                         FAX      4178
  
  
          3067                                    MOVSTART  10                                                   F2950F4   117
           676                     1     ENTRCP   BSSZ   1                 ENTR. CODE PROTOTYPE                  FAX      4181
           677  5120000000                        SA2    0                 (*+3)                                 F2950F4   118
                          10622                   BX6    X2                                                      FAX      4183
           700  5160000000                        SA6    0                 (FTNNOP.)                             FAX      4184
                          0100000000              RJ     0                 (*+1)                                 F2950F4   119
           701                     1              BSSZ   1                                                       F2950F4   120
           702  0400000000                        EQ     0                 (ENTRY.+1)                            FAX      4185
           703  0400000000                        EQ     0                 (*+1)                                 FAX      4186
           704  5110000000                        SA1    0                 (NOPS.)                               FAX      4187
                          5120000000              SA2    0                 (NAME)                                FAX      4188
           705  10611                             BX6    X1                                                      FAX      4189
                     22702                        LX7    X2                                                      FAX      4190
                          5160000000              SA6    0                 (FTNNOP.)                             FAX      4191
           706  5170000000                        SA7    0                 (ENTRY.)                              FAX      4192
                          0100000000              RJ     0                 (*+1)                                 F2950F4   121
           707                     1              BSSZ   1                                                       F2950F4   122
           710                                    BSS    0                                                       FAX      4193
                                  12     ENTRLP   EQU    *-ENTRCP                                                FAX      4194
           710                                    MOVEND                                                         FAX      4195
  
  
          3067                                    MOVSTART  1                                                    FAX      4197
           533  00                       ENTRRN   RELOC  (,U,B)                                                  F2950F4   123
           534                                    MOVEND                                                         FAX      4199
  
  
          3067                                    MOVSTART  4                                                    F2950F4   124
           511                     1     ENTRCN   BSSZ   1                 ENTR. CODE PROTOTYPE (NO ARGUMENTS)   FAX      4202
           512  5110000000                        SA1    0                 (NAME)                                FAX      4203
                          10611                   BX6    X1                                                      FAX      4204
           513  5160000000                        SA6    0                 (ENTRY.)                              FAX      4205
                          0100000000              RJ     0                 (*+1)                                 F2950F4   125
           514                     1              BSSZ   1                                                       F2950F4   126
           515                                    BSS    0                                                       FAX      4206
                                   4     ENTRLN   EQU    *-ENTRCN                                                FAX      4207
           515                                    MOVEND                                                         FAX      4208
  
  
                                3723 +   ENAME    EQU    SCRATCH                                                 FAX      4210
          3067  67446                    PENTR.   SB4    B4-B6             SKIP TO FIRST CH                      FAX      4211
                     66260                        SB2    B6                BIT COUNT FOR REF                     FAX      4212
                          23145                   GCH    X1                FIRST CH FOR REF                      FAX      4213
                     63310                        SB3    X1                FIRST CH FOR REF                      FAX      4214
                          0100003140 +            RJ     REF                                                     FAX      4215
          3071  10633                             BX6    X3                                                      FAX      4216
                     5160003723 +                 SA6    ENAME             SAVE ADDRESS OF NAME.                 FAX      4217
          3072  5110000000 X                      SA1    TEMPA0.                                                 FAX      4218
                          0301003123 +            ZR     X1,PENTR8         IF NO ARGUMENTS                       FAX      4219
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    92
         PSEUDO-OP PROCESSORS 
  
                                                                                                                 FAX      4220
                                        *         ENTR. WITH ARGUMENTS                                           FAX      4221
                                        *                                                                        FAX      4222
          3073  5110000035 +                      SA1    TEXT.ADD                                                FAX      4223
                          5211777774              SA1    X1-3                                                    FAX      4224
          3074  43052                             MX0    60-18                                                   FAX      4225
                     15110                        BX1    -X0*X1            GET ORGC                              FAX      4226
                          63710                   SB7    X1                                                      FAX      4227
                               43022              MX0    18                                                      FAX      4228
          3075  5110000677 +                      SA1    ENTRCP+1          GET SECOND WORD                       FAX      4229
                          7167000006              SX6    B7+6                                                    F2950F4   127
          3076  20060                             LX0    48                FORM MASK FOR CLEARING UPPER ADDRESSE FAX      4231
                     20636                        LX6    30                                                      FAX      4232
                          15110                   BX1    -X0*X1            CLEAR UPPER ADDRESS                   FAX      4233
                               12661              BX6    X6+X1             OR IN ORGC + 6                        F2950F4   128
          3077  54610                             SA6    A1                                                      FAX      4235
                     5110000703 +                 SA1    ENTRCP+5          GET SIXTH WORD                        F2950F4   129
                               15110              BX1    -X0*X1            CLEAR UPPER ADDRESS                   FAX      4237
          3100  7167000007                        SX6    B7+7                                                    F2950F4   130
                          5120000000 X            SA2    ENTRY.                                                  FAX      4239
          3101  20636                             LX6    30                                                      FAX      4240
                     12661                        BX6    X6+X1             OR IN ORGC + 7                        F2950F4   131
                          54610                   SA6    A1                                                      FAX      4243
          3102  5110000702 +                      SA1    ENTRCP+4          GET FIFTH WORD                        F2950F4   132
                          73325                   SX3    X2+B5                                                   F2950F4   133
                               15110              BX1    -X0*X1            CLEAR UPPER                           F2950F4   134
          3103  20336                             LX3    30                                                      F2950F4   135
                     12613                        BX6    X1+X3             OR IN ENTRY + 1                       F2950F4   136
                          54610                   SA6    A1                                                      F2950F4   137
          3104  5150000705 +                      SA5    ENTRCP+7          GET EIGHTH WORD                       F2950F4   138
                          5130000000 X            SA3    FTNNOP.                                                 F2950F4   139
          3105  43652                             MX6    60-18             FORM MASK FOR CLEARING LOWER ADDRESSE FAX      4245
                     11565                        BX5    X6*X5             CLEAR LOWER ADDRESS                   FAX      4246
                          12753                   BX7    X5+X3             OR IN FTNNOP.                         FAX      4247
                               54750              SA7    A5                                                      FAX      4248
          3106  20336                             LX3    30                                                      FAX      4249
                     5110000700 +                 SA1    ENTRCP+2          GET THIRD WORD                        FAX      4250
                               15110              BX1    -X0*X1            CLEAR UPPER ADDRESS                   FAX      4251
          3107  11161                             BX1    X6*X1             CLEAR LOWER ADDRESS                   FAX      4252
                     12713                        BX7    X1+X3             OR IN FTNNOP.                         FAX      4253
                          7117000004              SX1    B7+4                                                    F2950F4   140
          3110  12771                             BX7    X7+X1             OR IN ORGC + 4                        F2950F4   141
                     54710                        SA7    A1                                                      FAX      4260
                          5110000704 +            SA1    ENTRCP+6          GET SEVENTH WORD                      F2950F4   142
          3111  5130000000 X                      SA3    NOPS.                                                   F2950F4   143
                          15110                   BX1    -X0*X1            CLEAR UPPER ADDRESS                   FAX      4262
                               20336              LX3    30                                                      F2950F4   144
          3112  5150003723 +                      SA5    ENAME                                                   FAX      4263
                          11161                   BX1    X6*X1             CLEAR LOWER ADDRESS                   FAX      4264
                               12713              BX7    X1+X3             OR IN NOPS.                           FAX      4265
          3113  12775                             BX7    X7+X5             OR IN NAME.                           FAX      4266
                     54710                        SA7    A1                                                      FAX      4267
                          5110000706 +            SA1    ENTRCP+8          GET NINTH WORD                        F2950F4   145
          3114  15110                             BX1    -X0*X1            CLEAR UPPER ADDRESS                   FAX      4269
                     20236                        LX2    30                                                      F2950F4   146
                          12712                   BX7    X1+X2             OR IN ENTR.                           FAX      4271
                               43052              MX0    60-18             FORM MASK FOR CLEARING LOWER ADDRESS  F2950F4   147
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    93
         PSEUDO-OP PROCESSORS 
  
          3115  7167000012                        SX6    B7+10                                                   F2950F4   148
                          11107                   BX1    X0*X7             CLEAR LOWER ADDRESS                   F2950F4   149
                               12761              BX7    X6+X1             OR IN ORGC + 10                       F2950F4   150
          3116  43600                             MX6    0                                                       F2950F4   151
                     54710                        SA7    A1                                                      FAX      4272
                          5160000043 C            SA6    RBTEMP            PROHIBIT THE PRINTING OF CODE.        FAX      4273
          3117  5140000676 +             PENTR7   SA4    ENTRCP            FIRST WORD FOR WRSEQ                  FAX      4274
                          5130000466 +            SA3    ENTRRP                                                  FAX      4275
          3120  7160000012                        SX6    ENTRLP            BLOCK LENGTH FOR WRSEQ                FAX      4276
                          10733                   BX7    X3                RELOCATION WORD FOR WRSEQ             FAX      4277
          3121  0100000743 +                      RJ     WRSEQ                                                   FAX      4278
          3122  0400001721 +                      EQ     INITL                                                   FAX      4279
                                        *                                                                        FAX      4280
                                        *         ENTR. WITH NO ARGUMENTS                                        FAX      4281
                                        *                                                                        FAX      4282
          3123  5120003723 +             PENTR8   SA2    ENAME                                                   FAX      4283
                          5110000512 +            SA1    ENTRCN+1          GET SECOND WORD                       FAX      4284
          3124  20236                             LX2    30                                                      FAX      4285
                     43022                        MX0    18                                                      FAX      4286
                          20060                   LX0    48                FORM MASK FOR CLEARING UPPER ADDRESSE FAX      4287
                               15110              BX1    -X0*X1            CLEAR UPPER ADDRESS                   FAX      4288
          3125  12612                             BX6    X1+X2             OR IN NAME                            FAX      4289
                     54610                        SA6    A1                                                      FAX      4290
                          54115                   SA1    A1+B5             GET THIRD WORD                        FAX      4291
          3126  5130000000 X                      SA3    ENTRY.                                                  FAX      4292
                          20336                   LX3    30                                                      FAX      4293
                               15110              BX1    -X0*X1            CLEAR UPPER ADDRESS                   FAX      4294
          3127  43700                             MX7    0                                                       FAX      4295
                     12613                        BX6    X1+X3             OR IN ENTRY.                          FAX      4296
                          5140000035 +            SA4    TEXT.ADD                                                F2950F4   152
          3130  5244777774                        SA4    X4-3                                                    F2950F4   153
                          43352                   MX3    60-18             FORM MASK FOR CLEARING LOWER ADDRESS  F2950F4   154
                               15443              BX4    -X3*X4            GET ORGC                              F2950F4   155
          3131  11636                             BX6    X3*X6             CLEAR LOWER ADDRESS                   F2950F4   156
                     7244000004                   SX4    X4+4                                                    F2950F4   157
                               12646              BX6    X4+X6             OR IN ORGC+3                          F2950F4   158
          3132  54610                             SA6    A1                                                      FAX      4297
                     5170000043 C                 SA7    RBTEMP                                                  FAX      4298
                                                                                                                 FAX      4299
          3133  5140000511 +             PENTR9   SA4    ENTRCN            FIRST WORD FOR WRSEQ                  FAX      4300
                          5130000533 +            SA3    ENTRRN                                                  FAX      4301
          3134  7160000004                        SX6    ENTRLN            BLOCK LENGTH FOR WRSEQ                FAX      4302
                          10733                   BX7    X3                RELOCATION WORD FOR WRSEQ             FAX      4303
          3135  0100000743 +                      RJ     WRSEQ                                                   FAX      4304
          3136  0400001721 +                      EQ     INITL                                                   FAX      4305
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    94
         SUBROUTINES
  
                                        ************************************************************************ FAX      4307
                                        *                                                                      * FAX      4308
                                        * EVAL-   EVALUATE A GENERAL ADDRESS EXPRESSION                        * FAX      4309
                                        *                                                                      * FAX      4310
                                        *         ON ENTRY-                                                    * FAX      4311
                                        *                   A5,B7,B6,B5,B4,X5,X0 ARE SET FOR CHARACTER PICK UP * FAX      4312
                                        *                   X1= THE FIRST N CHARACTERS OF A SYMBOL OR THE      * FAX      4313
                                        *                       FIRST CHARACTER OF A CONSTANT,                 * FAX      4314
                                        *                   X6= NEGFLAG(+OR- ZERO)                             * FAX      4315
                                        *                   X7= PERVIOUS ADDRESS SUM                           * FAX      4316
                                        *                   B2= N*6                                            * FAX      4317
                                        *                   B3= FIRST CHARACTER                                * FAX      4318
                                        *                                                                      * FAX      4319
                                        *         ON EXIT-                                                     * FAX      4320
                                        *                   X4= THE VALUE OF X4 ON ENTRY + THE VALUE OF THE    * FAX      4321
                                        *                       ADDRESS EXPRESSION                             * FAX      4322
                                        *                                                                      * FAX      4323
                                        ************************************************************************ FAX      4324
  
  
                                3727 +   NEGFLAG  EQU    SCRATCH+4         2WORDS TO SAVE NEGFLAG AND ADD.SUM    FAX      4326
  
  
          3137                                    MOVSTART  11                                                   FAX      4328
           266                     1     EVAL     BSS    1                                                       FAX      4329
           267  5120003703 +             EV.1     SA2    =77600000000B                                           FAX      4330
                          5160003727 +            SA6    NEGFLAG                                                 FAX      4331
           270  54765                             SA7    A6+B5             SAVE ADD.SUM AND NEGFLAG              FAX      4332
                     22232                        LX2    X2,B3                                                   FAX      4333
                          0322000710 +            PL     X2,EV.4           IF SYMBOL THEN CALL REF ELSE CONVERT  FAX      4334
           271  7231777744                        SX3    X1-1R0            CONSTANT TO BINARY                    FAX      4335
                          6120777744              SB2    -1R0                                                    FAX      4336
           272  23145                    EV.2     GCH    X1                                                      FAX      4337
                               73112              SX1    X1+B2                                                   FAX      4338
           273  0640000274 +                      CWD                                                            FAX      4339
           274  0331000276 +                      NG     X1,EV.3                                                 FAX      4340
                          20303                   LX3    3                                                       FAX      4341
                               12313              BX3    X1+X3                                                   FAX      4342
           275  0400000272 +                      EQ     EV.2                                                    FAX      4343
           276  23245                    EV.3     GCH    X2                                                      FAX      4344
                               63120              SB1    X2                                                      FAX      4345
           277  0640000300 +                      CWD                                                            FAX      4346
           300  0400000711 +                      EQ     EV.5                                                    FAX      4347
           301                                    MOVEND                                                         FAX      4348
  
  
          3137                                    MOVSTART  7                                                    FAX      4350
           710  0100003140 +             EV.4     RJ     REF                                                     FAX      4351
  
  
           711  5120003727 +             EV.5     SA2    NEGFLAG           XOR THE VALUE WITH NEGFLAG AND ADD IT FAX      4353
                          54125                   SA1    A2+B5             ADD.SUM THEN CHECK THE NEXT CHARACTER FAX      4354
                               13332              BX3    X3-X2                                                   FAX      4355
           712  5121002071 +                      SA2    B1+L3.JVEC                                              FAX      4356
                          36713                   IX7    X1+X3                                                   FAX      4357
                               23145              GCH    X1                                                      FAX      4358
                          21230                   AX2    24                                                      FAX      4359
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    95
         SUBROUTINES
  
           714  0640000715 +                      CWD                                                            FAX      4360
           715  66260                             SB2    B6                                                      FAX      4361
                     15220                        BX2    -X0*X2                                                  FAX      4362
                          63310                   SB3    X1                                                      FAX      4363
                               63120              SB1    X2                                                      FAX      4364
           716  0211000550 +                      JP     B1+EV.6                                                 FAX      4365
           717                                    MOVEND                                                         FAX      4366
  
  
          3137                                    MOVSTART  3                                                    FAX      4368
           550  43152                    EV.6     MX1    42                SPACE OR ZERO BYTE -- RETURN          FAX      4369
                     0400000622 +                 EQ     EV.7                                                    FAX      4370
           551  13666                    +        BX6    X6-X6             PLUS -- NEGFLAG OFF, GET ANOTHER VALU FAX      4371
                     0400000267 +                 EQ     EV.1                                                    FAX      4372
           552  16666                    +        BX6    -X6+X6            MINUS -- NEGFLAG ON, GET ANOTHER VALU FAX      4373
                     0400000267 +                 EQ     EV.1                                                    FAX      4374
           553                                    MOVEND                                                         FAX      4375
  
  
          3137                                    MOVSTART  1                                                    FAX      4377
           622  15771                    EV.7     BX7    -X1*X7                                                  FAX      4378
                     36447                        IX4    X4+X7                                                   FAX      4379
                          0400000266 +            EQ     EVAL                                                    FAX      4380
           623                                    MOVEND                                                         FAX      4381
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    96
         SUBROUTINES
  
                                        ************************************************************************ FAX      4383
                                        *                                                                      * FAX      4384
                                        * REF-    SUBROUTINE TO REFERENCE THE SYMBOL TABLE AND THE GL,AP AND   * FAX      4385
                                        *         VD TABLES AND RETURN AN ADDRESS VALUE FOR A SYMBOL OR LABEL. * FAX      4386
                                        *                                                                      * FAX      4387
                                        *         CALLING SEQUENCE-                                            * FAX      4388
                                        *                   X1= FIRST N CHARACTERS OF THE NAME (N\1),          * FAX      4389
                                        *                   B2= N*6(BIT COUNT OF THE CHARACTERS IN X1).        * FAX      4390
                                        *                   B3= FIRST CHARACTER OF THE NAME,                   * FAX      4391
                                        *                   B5= 1.                                             * FAX      4392
                                        *                   RJ        REF                                      * FAX      4393
                                        *                                                                      * FAX      4394
                                        *         ON RETURN-                                                   * FAX      4395
                                        *                   X1= WORD A OF SYMTAB ENTRY                         * FAX      4396
                                        *                   X2= WORD B OF SYMTAB ENTRY,                        * FAX      4397
                                        *                   X3= RA FIELD (ADDRESS),                            * FAX      4398
                                        *                   B1= THE DELIMITING CHARACTER FOR THE SYMBOL        * FAX      4399
                                        *                   B5= 1.                                             * FAX      4400
                                        *                                                                      * FAX      4401
                                        *         ALSO-     A5,X5,X4,X0,B7,B6 ARE RESTORED                     * FAX      4402
                                        *                                                                      * FAX      4403
                                        *         THIS ROUTINE MAY CALL PACKID, SYMBOL OR LABEL.               * FAX      4404
                                        *                                                                      * FAX      4405
                                        ************************************************************************ FAX      4406
  
  
                                                  EXT    SYMBOL,LABEL                                            FAX      4408
                                                                                                                 FAX      4409
                                                  USE    /TABLES/                                                FAX      4410
            37                     4     A5TEMP   BSS    4                                                       FAX      4411
            43                     1     RBTEMP   BSS    1                                                       FAX      4412
                                                  USE    *                                                       FAX      4413
                                                                                                                 FAX      4414
          3137  10622                    REF.X    BX6    X2                EXT SYMBOL                            FAX      4415
                     37333                        IX3    X3-X3             X3 = ADDRESS = 0                      FAX      4416
                          5160000043 C            SA6    RBTEMP                                                  FAX      4417
                                                                                                                 FAX      4418
  
  
          3140                     1     REF      BSS    1                                                       FAX      4420
          3141  6133777717                        SB3    B3-1R#                                                  FAX      4421
                          0730000301 +            NG     B3,R.STAN         IF FIRST CHAR IS ALPHABETIC,. OR ) TH FAX      4422
          3142  5130003703 +                      SA3    =77600000000B                                           FAX      4423
                          6144777763              SB4    B4-12       SKIP PAST GL/AP/IO                          FAX      4424
          3143  43100                             MX1    0                                                       FAX      4425
                     0640003145 +                 PL     B4,R.SP1                                                FAX      4426
          3144  5055000001                        SA5    A5+1                                                    FAX      4427
                          6144000074              SB4    B4+60                                                   FAX      4428
          3145  23245                    R.SP1    GCH    X2          CONVERT THE ORD IN THE SYMBOL TO BINARY     FAX      4429
                               63120              SB1    X2                                                      FAX      4430
          3146  0640003147 +                      CWD                                                            FAX      4431
          3147  22713                             LX7    X3,B1                                                   FAX      4432
                     0327003152 +                 PL     X7,R.SP2                                                FAX      4433
          3150  7222777744                        SX2    X2-1R0                                                  FAX      4434
                          20103                   LX1    3                                                       FAX      4435
                               12112              BX1    X1+X2                                                   FAX      4436
          3151  0400003145 +                      EQ     R.SP1                                                   FAX      4437
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    97
         SUBROUTINES
  
                                                                                                                 FAX      4438
          3152  5133000000 X             R.SP2    SA3    B3+=XO.GLT                                              FAX      4439
                          36113                   IX1    X1+X3                                                   FAX      4440
          3153  5221777776                        SA2    X1-1                                                    FAX      4441
                          0753000306 +            GT     B3,B5,R.EXIT      IF IO                                 FCC0506    14
          3154  5130000027 +                      SA3    GLAPR                                                   FCC0506    15
                          20223                   LX2    P.RA                                                    FCC0506    16
                               36223              IX2    X2+X3       RELOCATE IN CODE.                           FCC0506    17
          3155  0400000306 +                      EQ     R.EXIT                                                  FAX      4442
                                                                                                                 FAX      4443
          3156                                    MOVSTART 5                                                     FAX      4444
           301  56036                    R.STAN   SA0    B3+B6             A0.= B3+6                             FAX      4445
                     0100001133 +                 RJ     PACKID            SEPARATE THE SYMBOL                   FAX      4446
           302  74750                             SX7    A5                                                      FAX      4447
                     76640                        SX6    B4                                                      FAX      4448
                          5170000037 C            SA7    A5TEMP                                                  FAX      4449
           303  64200                             SB2    A0                                                      FAX      4450
                     54675                        SA6    A7+B5                                                   FAX      4451
                          10744                   BX7    X4                                                      FAX      4452
                               76610              SX6    B1                                                      FAX      4453
           304  54765                             SA7    A6+B5                                                   FAX      4454
                     6170000724 +                 SB7    R.ST1-1                                                 FAX      4455
                               54675              SA6    A7+B5             SAVE A5,B4,X4,B1                      FAX      4456
           305  0620000000 X                      PL     B2,LABEL                                                FAX      4457
                          0400000000 X            EQ     SYMBOL                                                  FAX      4458
           306                                    MOVEND                                                         FAX      4459
  
  
          3156                                    MOVSTART  9                                                    FAX      4461
           724  0400000735 +             +        EQ     CHKEXT            SEE IF IT IS IN EXTERNAL TABLE        FAX      4462
           725  5140000037 C             R.ST1    SA4    A5TEMP                                                  FAX      4463
                          43066                   MX0    54                                                      FAX      4464
                               54345              SA3    A4+B5                                                   FAX      4465
           726  53540                             SA5    X4                                                      FAX      4466
                     43772                        MX7    60-L.RL                                                 FAX      4467
                          63430                   SB4    X3                                                      FAX      4468
                               54435              SA4    A3+B5                                                   FAX      4469
           727  6160000006                        SB6    6                                                       FAX      4470
                          6120000045              SB2    P.RL                                                    FAX      4471
           730  54345                             SA3    A4+B5                                                   FAX      4472
                     23622                        AX6    X2,B2                                                   FAX      4473
                          6170000066              SB7    54                                                      FAX      4474
           731  15667                             BX6    -X7*X6                                                  FAX      4475
                     63130                        SB1    X3                RESTORE A5,X5,X4,B7,B6,B4,B1          FAX      4476
                          6226777775              SB2    X6-2                                                    FAX      4477
           732  0720000306 +                      NG     B2,R.EXIT         IF ABS OR PROGRAM                     FAX      4478
                          0425003137 +            EQ     B2,B5,REF.X       IF EXTERNAL                           FAX      4479
           733  7170010000                        SX7    1S"P.RB"                                                FAX      4480
                          37227                   IX2    X2-X7             DECREMENT RB CODE BY 1                FAX      4481
           734  0400000306 +                      EQ     R.EXIT                                                  FAX      4482
           735                                    MOVEND                                                         FAX      4483
  
  
          3156                                    MOVSTART  6                                                    FAX      4485
           735  43652                    CHKEXT   MX6    L.NAME                                                  FAX      4486
                     11061                        BX0    X6*X1             NAME                                  FAX      4487
                          5120000000 X            SA2    O.EXT                                                   FAX      4488
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    98
         SUBROUTINES
  
           736  5130000000 X                      SA3    L.EXT                                                   FAX      4489
                          63120                   SB1    X2                                                      FAX      4490
                               63231              SB2    B1+X3                                                   FAX      4491
           737  6150000001                        SB5    1                                                       FAX      4492
                                                                                                                 FAX      4493
           740  56210                    CHKL     SA2    B1                                                      FAX      4494
                     0412003470 +                 EQ     B1,B2,SILL        IF NOT FOUND                          FAX      4495
                               11362              BX3    X6*X2                                                   FAX      4496
           741  66115                             SB1    B1+B5                                                   FAX      4497
                     37403                        IX4    X0-X3                                                   FAX      4498
                          0314000740 +            NZ     X4,CHKL           IF NO HIT                             FAX      4499
                                                                                                                 FAX      4500
           742  53220                             SA2    X2                WORD B OF SYMTAB ENTRY                FAX      4501
                     0400000725 +                 EQ     R.ST1                                                   FAX      4502
           743                                    MOVEND                                                         FAX      4503
                                                                                                                 FAX      4504
          3156                                    MOVSTART  4                                                    FAX      4505
           306  5130000043 C             R.EXIT   SA3    RBTEMP                                                  FAX      4506
                          6120000023              SB2    P.RA                                                    FAX      4507
           307  13777                             BX7    X7-X7                                                   FAX      4508
                     0313000310 +                 NZ     X3,R.EX1          IF RBTEMP IS ZERO THEN SAVE WORD B EL FAX      4509
                               10722              BX7    X2                SET IT TO ZERO.                       FAX      4510
           310  23322                    R.EX1    AX3    X2,B2                                                   FAX      4511
                     54730                        SA7    A3                                                      FAX      4512
                          73330                   SX3    X3                X3.= RELATIVE ADDRESS                 FAX      4513
           311  0400003140 +                      EQ     REF                                                     FAX      4514
           312                                    MOVEND                                                         FAX      4515
  
  
  
  
  
  
  
  
                                        ************************************************************************ FAX      4518
                                        *                                                                      * FAX      4519
                                        *         CONVERT - CONVERT DISPLAY CODED OCTAL TO BINARY              * FAX      4520
                                        *                                                                      * FAX      4521
                                        *                   FIRST CHARACTER MUST BE A NUMBER OR -              * FAX      4522
                                        *                   LAST CHARACTER MUST BE A B                         * FAX      4523
                                        *                                                                      * FAX      4524
                                        *                   CALLING SEQUENCE -                                 * FAX      4525
                                        *                             X3 = FIRST CHARACTER                     * FAX      4526
                                        *                                                                      * FAX      4527
                                        *                   ON EXIT -                                          * FAX      4528
                                        *                             X1 = CONVERTED CONSTANT                  * FAX      4529
                                        *                                                                      * FAX      4530
                                        ************************************************************************ FAX      4531
  
  
          3156                                    MOVSTART  13B                                                  FAX      4533
          1120                     1     CONVERT  BSS    1                                                       FAX      4534
          1121  43066                             MX0    54                                                      FAX      4535
                     13111                        BX1    X1-X1                                                   FAX      4536
                          7120000044              SX2    1R9                                                     FAX      4537
          1122  37723                             IX7    X2-X3                                                   FAX      4538
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE    99
         SUBROUTINES
  
                     21773                        AX7    59                                                      FAX      4539
                          5120003707 +            SA2    =50000000000000060000B                                  FAX      4540
          1123  0327001130 +                      PL     X7,CONVERT2                                             FAX      4541
                          23345                   GCH    X3                                                      FAX      4542
                     7233777744                   SX3    X3-1R0                                                  FAX      4543
          1125  0640001126 +                      CWD                                                            FAX      4544
          1126  20103                    CONVERT1 LX1    3                                                       FAX      4545
                     12113                        BX1    X1+X3                                                   FAX      4546
                          23345                   AX3    X5,B4                                                   FAX      4547
                               67446              SB4    B4-B6                                                   FAX      4548
          1127  0640001130 +                      CWD                                                            FAX      4549
          1130  15330                    CONVERT2 BX3    -X0*X3                                                  FAX      4550
                     63130                        SB1    X3                                                      FAX      4551
                          7233777744              SX3    X3-1R0                                                  FAX      4552
          1131  22412                             LX4    B1,X2                                                   FAX      4553
                     0324001126 +                 PL     X4,CONVERT1       IF NOT A B, BLANK OR ,                FAX      4554
                                                                                                                 FAX      4555
                               13117              BX1    X1-X7                                                   FAX      4556
          1132  0400001120 +                      EQ     CONVERT                                                 FAX      4557
          1133                                    MOVEND                                                         FAX      4558
  
  
  
  
                                        ***********************************************************************  FAX      4560
                                        *                                                                     *  FAX      4561
                                        *         PACK IDENTIFIER S.R.                                        *  FAX      4562
                                        *         ENTER WITH                                                  *  FAX      4563
                                        *         X1=CHARS ALREADY PACKED                                     *  FAX      4564
                                        *         B2=BIT COUNT OF CHARS ALREADY PACKED                        *  FAX      4565
                                        *                                                                     *  FAX      4566
                                        *         EXITS WITH                                                  *  FAX      4567
                                        *         X1=ID PACKED LEFT JUSTIFIED IN BITS 47-0 WITH BLANK FILL    *  FAX      4568
                                        *         TERMINATING CH IN B1                                         * FAX      4569
                                        *                                                                     *  FAX      4570
                                        ***********************************************************************  FAX      4571
  
  
          3156                                    MOVSTART  9                                                    FAX      4573
          1133                     1     PACKID   BSS    1                                                       FAX      4574
          1134  5120003710 +                      SA2    =40000000000032060000B  DELIMITER FLAG WORD (ZRO BYTE   FAX      4575
          1135  23645                    PK1      GCH    X6                +,-,/,BLANK,COMMA)            PK1     FAX      4576
                               63160              SB1    X6                                                      FAX      4577
          1136  0640001137 +                      CWD                                                            FAX      4578
          1137  22312                             LX3    X2,B1                                                   FAX      4579
                     0333001141 +                 NG     X3,PK2                                                  FAX      4580
                               20106              LX1    6                                                       FAX      4581
          1140  66226                             SB2    B2+B6                                                   FAX      4582
                     12116                        BX1    X1+X6                                                   FAX      4583
                          0400001135 +            EQ     PK1                                                     FAX      4584
          1141  5120003711 +             PK2      SA2    =8R                                                     FAX      4585
                          6132777717              SB3    B2-48                                                   FAX      4586
          1142  23131                             AX1    X1,B3                                                   FAX      4587
                     23222                        AX2    X2,B2                                                   FAX      4588
                          12112                   BX1    X1+X2                                                   FAX      4589
          1143  0400001133 +                      EQ     PACKID                                                  FAX      4590
          1144                                    MOVEND                                                         FAX      4591
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   100
         SUBROUTINES                                                  RCARD 
  
                                        **        RCARD - READ *COMPS* LINE AND SET UP REGISTERS.                FAX      4593
                                        *                                                                        FAX      4594
                                        *         ENTRY  NO REQUIREMENTS.                                        FAX      4595
                                        *                                                                        FAX      4596
                                        *         EXIT   NEW LINE IN BUFFER BEGINNING AT (ILINE).                FAX      4597
                                        *                (SWC) = LINE LENGTH (WORDS)                             FAX      4598
                                        *                (X0) = 54D-BIT MASK, LEFT ADJ                           FAX      4599
                                        *                (X5) = 2ND WORD OF LINE                                 FAX      4600
                                        *                (X7) = LINE LENGTH (WORDS)                              FAX      4601
                                        *                (A5) = ILINE+1                                          FAX      4602
                                        *                (B1) = 1                                                FAX      4603
                                        *                (B4) = 54D                                              FAX      4604
                                        *                (B5) = 1                                                FAX      4605
                                        *                (B6) = 6                                                FAX      4606
                                        *                (B7) = 54D                                              FAX      4607
                                        *                IF PREMATURE EOS/EOP/EOI ON -COMPS, EXITS TO *NOEND*.   FAX      4608
                                        *                                                                        FAX      4609
                                        *         USES   X - 0, 5, 7                                             FAX      4610
                                        *                A - 5, 7                                                FAX      4611
                                        *                B - 1, 4, 5, 6, 7                                       FAX      4612
                                        *                                                                        FAX      4613
                                        *         CALLS  READC                                                   FAX      4614
                                                                                                                 FAX      4615
                                                                                                                 FAX      4616
          3156  0400403156 +             RCARD    ENTRY. *           ** ENTRY/EXIT **                            FAX      4617
          3157  6110000001                        SB1    1                                                       FAX      4618
                          6160003743 +            READC  F.CMPS,ILINE,LINESIZE-ISHIFT                            FAX      4619
          3162  0311003476 +                      NZ     X1,NOEND    IF -COMPS- PREMATURELY EMPTY, ERROR         FAX      4620
                          5150003744 +            SA5    ILINE+1     (X5) = 2ND WORD OF LINE                     FAX      4621
          3163  7176774034 -                      SX7    B6-ILINE    (X7) = LINE LENGTH (WORDS)                  FAX      4622
                          43066                   MX0    -6                                                      FAX      4623
                               66510              SB5    B1                                                      FAX      4624
          3164  6140000066                        SB4    54D                                                     FAX      4625
                          5170000026 +            SA7    SWC                                                     FAX      4626
          3165  6160000006                        SB6    6                                                       FAX      4627
                          66740                   SB7    B4                                                      FAX      4628
          3166  0400003156 +                      EQ     RCARD       EXIT                                        FAX      4629
  
  
  
  
                                        **        RTB - REMOVE TRAILING BLANKS.                                  FAX      4631
                                        *                                                                        FAX      4632
                                        *         REMOVES BLANK FILL FROM 7-CHARACTER LEFT-JUSTIFIED VARIABLE    FAX      4633
                                        *         NAME.  PRESERVES LOWER 18 BITS.                                FAX      4634
                                        *                                                                        FAX      4635
                                        *         ENTRY  (X6) = 42/7H(NAME), 18/(ELSE)                           FAX      4636
                                        *                                                                        FAX      4637
                                        *         EXIT   (X6) = 42/7L(NAME), 18/(ELSE)                           FAX      4638
                                        *                                                                        FAX      4639
                                        *         USES   X4, X7, A4, B7                                          FAX      4640
                                                                                                                 FAX      4641
                                                                                                                 FAX      4642
          3167  0400403167 +             RTB      ENTRY. *           ** ENTRY/EXIT **                            FAX      4643
          3170  5140003665 +                      SA4    =1H                                                     FAX      4644
                          20652                   LX6    -18         RIGHT JUSTIFY BLANKS                        FAX      4645
                               13764              BX7    X6-X4       CONVERT BLANKS TO ZERO BYTES                FAX      4646
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   101
         SUBROUTINES                                                  RTB 
  
          3171  43473                             MX4    -1                                                      FAX      4647
                     46000                        NO                                                             FAX      4648
                          36474                   IX4    X7+X4       BORROW RIPPLES LEFT TO FIRST NON-ZERO BYTE  FAX      4649
                               15747              BX7    -X7*X4      BYTES =00 ON LEFT OF BORROW, =77 ON RIGHT   FAX      4650
          3172  5140003712 +                      SA4    =40404040404040404040B                                  FAX      4651
                          6170000067              SB7    60-5                                                    FAX      4652
          3173  11447                             BX4    X4*X7       EACH BORROW BYTE = 40                       FAX      4653
                     22774                        LX7    X4,B7                        = 01                       FAX      4654
                          37747                   IX7    X4-X7                        = 37                       FAX      4655
                               12447              BX4    X4+X7                        = 77                       FAX      4656
          3174  15664                             BX6    -X4*X6      REMOVE BLANKS                               FAX      4657
                     20622                        LX6    18          RESTORE ORIGINAL POSITION                   FAX      4658
                          0400003167 +            EQ     RTB         EXIT                                        FAX      4659
                                                                                                                 FAX      4660
                                3167 +   MR.CLEAN =      RTB         LINK OBSOLETE NAME TO ENTRY POINT           FAX      4661
  
  
  
  
                                        **        SKIP2 - SKIP TWO LINES IN OUTPUT LISTING.                      FAX      4663
                                        *                                                                        FAX      4664
                                        *         ENTRY  NO REQUIREMENTS.                                        FAX      4665
                                        *                                                                        FAX      4666
                                        *         EXIT   TWO LINES SKIPPED IF BINARY LIST OPTION ON (O = .NZ.)   FAX      4667
                                        *                (B1) = 1                                                FAX      4668
                                        *                (B5) = 1                                                FAX      4669
                                        *                                                                        FAX      4670
                                        *         USES   X1, A1, B1, B5                                          FAX      4671
                                        *                                                                        FAX      4672
                                        *         CALLS  LISTL (FA=LOL)                                          FAX      4673
                                                                                                                 FAX      4674
                                                                                                                 FAX      4675
          3175  0400403175 +             SKIP2    ENTRY. *           ** ENTRY/EXIT **                            FAX      4676
          3176  5110000000 X                      SA1    OLIST                                                   FAX      4677
                          6110000001              SB1    1                                                       FAX      4678
          3177  6151000000                        SB5    B1+                                                     FAX      4679
                          0301003175 +            ZR     X1,SKIP2    IF BINARY LIST OPTION OFF (O = .ZR.), EXIT  FAX      4680
          3200  6160003713 +                      LISTL  (=2C  ),1                                               FAX      4681
          3201  6160003713 +                      LISTL  (=2C  ),1                                               FAX      4682
          3202  6151000000                        SB5    B1+                                                     FAX      4683
                          0400003175 +            EQ     SKIP2       EXIT                                        FAX      4684
  
  
  
  
                                        **        WEOR - WRITE EOR/EOS ON BINARY OUTPUT FILE.                    FAX      4686
                                        *                                                                        FAX      4687
                                        *         ENTRY  NO REQUIREMENTS.                                        FAX      4688
                                        *                                                                        FAX      4689
                                        *         EXIT   END-OF-RECORD/SECTION WRITTEN.                          FAX      4690
                                        *                (B1) = 1                                                FAX      4691
                                        *                (B5) = 1                                                FAX      4692
                                        *                                                                        FAX      4693
                                        *         USES   X2, A2, B1, B5                                          FAX      4694
                                        *                                                                        FAX      4695
                                        *         CALLS WRITER                                                   FAX      4696
                                                                                                                 FAX      4697
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   102
         SUBROUTINES                                                  WEOR
  
                                                                                                                 FAX      4698
          3203  0400403203 +             WEOR     ENTRY. *           ** ENTRY/EXIT **                            FAX      4699
          3204  5120000000 X                      SA2    FV.LGO                                                  FAX      4700
                          6110000001              SB1    1                                                       FAX      4701
          3205  0302003203 +                      ZR     X2,WEOR     IF BINARY OUTPUT OPTION OFF (B=0)           FAX      4702
                          7120000000 X            WRITER =XF.LGO,RCL                                             FAX      4703
          3207  6151000000                        SB5    B1+                                                     FAX      4704
                          0400003203 +            EQ     WEOR        EXIT                                        FAX      4705
  
  
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   103
         SUBROUTINES
  
                                        ************************************************************************ FAX      4708
                                        *                                                                      * FAX      4709
                                        * WRSEQ - WRITES BLOCK OF UP TO 15 WORDS INTO TEXT TABLE               * FAX      4710
                                        *                                                                      * FAX      4711
                                        *         CALLING SEQUENCE -                                           * FAX      4712
                                        *                   A4 = STARTING ADDRESS                              * FAX      4713
                                        *                   X4 = FIRST WORD                                    * FAX      4714
                                        *                   X6 = WORD COUNT                                    * FAX      4715
                                        *                   X7 = RELOCATION BYTES, LEFT JUSTIFIED              * FAX      4716
                                        *                                                                      * FAX      4717
                                        ************************************************************************ FAX      4718
  
  
  
  
                                                  USE    /TABLES/                                                FAX      4721
            44                     3     WRSEQR   BSS    3                 RELOC BYTES, WORD COUNT, STARTING AD: FAX      4722
                                                  USE    *                                                       FAX      4723
  
  
          3210                                    MOVSTART  4                                                    FAX      4725
           743                     1     WRSEQ    BSS    1                                                       FAX      4726
           744  5170000044 C                      SA7    WRSEQR            SAVE RELOCATION BYTES                 FAX      4727
                          6160001005 +            SB6    WRSEQ1            SET RETURN ADDRESS FOR WRTEXT         FAX      4728
           745  14666                             BX6    -X6                                                     FAX      4729
                     54675                        SA6    A7+B5             SAVE NEGATIVE WORD COUNT              FAX      4730
                          6110000074              SB1    60                SET BIT COUNT FOR WRTEXT              FAX      4731
           746  74745                             SX7    A4+B5                                                   FAX      4732
                     54765                        SA7    A6+B5             SAVE STARTING ADDRESS + 1             FAX      4733
                          0400003211 +            EQ     WRTEXT            GO WRITE FIRST WORD                   FAX      4734
           747                                    MOVEND                                                         FAX      4735
  
          3210                                    MOVSTART  7                                                    FAX      4737
          1005  13777                    WRSEQ1   BX7    X7-X7             STOP FURTHER PRINTING OF SOURCE IMAGE FAX      4738
                     5170003743 +                 SA7    ILINE                                                   FAX      4739
                               76750              SX7    B5                                                      FAX      4740
          1006  5170000026 +                      SA7    SWC                                                     FAX      4741
                          6160001007 +            SB6    WRSEQ2                                                  FAX      4742
          1007  43070                    WRSEQ2   MX0    60-4              SET MASK FOR RELOCATION BYTE          FAX      4743
                     5110000044 C                 SA1    WRSEQR            LOAD RELOCATION BYTES                 FAX      4744
                               20104              LX1    4                                                       FAX      4745
          1010  15510                             BX5    -X0*X1            MASK OFF NEXT RELOCATION BYTE         FAX      4746
                     36665                        IX6    X6+X5             ADD IN RELOCATION BYTE                FAX      4747
                          54630                   SA6    A3                STORE RELOCATION BYTE                 FAX      4748
                               54215              SA2    A1+B5             LOAD WORD COUNT                       FAX      4749
          1011  73625                             SX6    X2+B5                                                   FAX      4750
                     0306000743 +                 ZR     X6,WRSEQ          SENSE LAST WORD MOVED                 FAX      4751
                               54620              SA6    A2                                                      FAX      4752
          1012  54425                             SA4    A2+B5             LOAD ADDRESS OF NEXT WORD TO MOVE     FAX      4753
                     73745                        SX7    X4+B5                                                   FAX      4754
                          22601                   LX6    X1                                                      FAX      4755
                               54740              SA7    A4                                                      FAX      4756
          1013  54610                             SA6    A1                                                      FAX      4757
                     53440                        SA4    X4                LOAD NEXT WORD TO MOVE                FAX      4758
                          0400003211 +            EQ     WRTEXT                                                  FAX      4759
          1014                                    MOVEND                                                         FAX      4760
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   104
         SUBROUTINES
  
                                        ************************************************************************ FAX      4762
                                        *                                                                      * FAX      4763
                                        * WRTEXT - FORMS AND WRITES TEXT TABLES FOR THE LOADER                 * FAX      4764
                                        *                                                                      * FAX      4765
                                        *         CALLING SEQUENCE -                                           * FAX      4766
                                        *                   B6.= RETURN ADDRESS                                * FAX      4767
                                        *                   B5.= 1                                             * FAX      4768
                                        *                   X4.= INSTRUCTION OR DATA TO BE OUTPUT              * FAX      4769
                                        *                   B1.= BIT COUNT OF INSTRUCTION OR DATA              * FAX      4770
                                        *                   EQ  WRTEXT                                         * FAX      4771
                                        *                                                                      * FAX      4772
                                        *         ON EXIT -                                                    * FAX      4773
                                        *                   X6 = ADJUSTED RELOCATION BYTE WORD                 * FAX      4774
                                        *                   A3 = ADD. OF THE RB WORD                           * FAX      4775
                                        *                   B7 = TEXT ADDRESS                                  * FAX      4776
                                        *                   B5 = 1                                             * FAX      4777
                                        *                                                                      * FAX      4778
                                        *         THIS ROUTINE WILL CALL WRWDS TO WRITE A FULL TEXT TABLE AND  * FAX      4779
                                        *         WRLIST IF THE SWITCH AT WRTSW HAS BEEN SET.                  * FAX      4780
                                        *                                                                      * FAX      4781
                                        ************************************************************************ FAX      4782
  
  
                                                  USE    /TABLES/                                                FAX      4784
            47                     3     OCTEMP   BSS    3                                                       FAX      4785
                                                  USE    *                                                       FAX      4786
                                  50 C   BCTEMP   EQU    OCTEMP+1                                                FAX      4787
                                  51 C   RETEMP   EQU    OCTEMP+2                                                FAX      4788
  
  
          3210  6160001721 +             L4.15    SB6    INITL             ENTER WITH A 15 BIT QUANTITY          FAX      4790
                          6110000017              SB1    15                                                      FAX      4791
  
  
          3211  5120000035 +             WRTEXT   SA2    TEXT.ADD          ADDRESS OF CURRENT TEXT TABLE         FAX      4793
                          5110000040 +            SA1    FFLAG                                                   FAX      4794
          3212  63720                             SB7    X2                B7.=TEXT.ADD                          FAX      4795
                     57275                        SA2    B7-B5             X2.= TABC                             FAX      4796
                          55325                   SA3    A2-B5             X3.= POSC                             FAX      4797
                               63220              SB2    X2                                                      FAX      4798
          3213  56527                             SA5    B2+B7             X5.=CURRENT WORD(CW)                  FAX      4799
                     63330                        SB3    X3                                                      FAX      4800
                          7211777776              SX1    X1-1                                                    FAX      4801
          3214  6143777703                        SB4    B3-60                                                   FAX      4802
                          0331003241 +            NG     X1,WRT5           IF FFLAG GTR 0 AND POSC NEQ 60 THEN F FAX      4803
          3215  0440003241 +                      ZR     B4,WRT5           UPPER.                                FAX      4804
          3216  55135                    WRT1     SA1    A3-B5             X1.= ORGC                             FAX      4805
                     56375                        SA3    B7+B5             X3.= RELOCATION BYTE WORD             FAX      4806
                          7100046000              SX0    46000B            X0.= NO-OP                            FAX      4807
          3217  0430003222 +             WRT2     ZR     B3,WRT3           IF POSC=0 THEN EXIT ELSE SHIFT NO-OP  FAX      4808
                          6133777760              SB3    B3-15             POSC AND .OR. TO CW, POSITION RELO WO FAX      4809
          3220  22230                             LX2    X0,B3                                                   FAX      4810
                     36333                        IX3    X3+X3                                                   FAX      4811
                          12552                   BX5    X5+X2                                                   FAX      4812
          3221  0400003217 +                      EQ     WRT2                                                    FAX      4813
                                                                                                                 FAX      4814
          3222  76750                    WRT3     SX7    B5                                                      FAX      4815
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   105
         SUBROUTINES
  
                     36717                        IX7    X1+X7                                                   FAX      4816
                          10655                   BX6    X5                                                      FAX      4817
                               54710              SA7    A1                ORGC.= ORGC+1                         FAX      4818
          3223  66225                             SB2    B2+B5             TABC.=TABC+1                          FAX      4819
                     22703                        LX7    X3,B0                                                   FAX      4820
                          6142777756              SB4    B2-17                                                   FAX      4821
          3224  54650                             SA6    A5                STORE CW                              FAX      4822
                     54730                        SA7    A3                SAVE RELO BYTE WORD                   FAX      4823
                          0540003240 +            NZ     B4,WRT4           IF TABC=17 THEN WRITE THIS TABLE AND  FAX      4824
          3225  10644                             BX6    X4                A NEW ONE.                            FAX      4825
                     56170                        SA1    B7                                                      FAX      4826
                          77725                   SX7    B2-B5                                                   FAX      4827
                               20744              LX7    36                                                      FAX      4828
          3226  5160000047 C                      SA6    OCTEMP            SAVE CURRENT INSTRUCTION              FAX      4829
                          12717                   BX7    X1+X7                                                   FAX      4830
                               54710              SA7    A1                WORD COUNT.=TABC-1                    FAX      4831
          3227  76610                             SX6    B1                                                      FAX      4832
                     76760                        SX7    B6                                                      FAX      4833
                          54665                   SA6    A6+B5             SAVE BIT COUNT                        FAX      4834
                               54765              SA7    A6+B5             SAVE RET. ADD.                        FAX      4835
                                        * IF SNAPTEXT=1 THEN DUMP THE FULL TEXT TABLE.                           FAX      4836
                                   0     SNAPTEXT EQU    DEBUG                                                   FAX      4837
                                                  IFEQ   SNAPTEXT,1,1                                            FAX      4838
                                         TXT-TBWR SNAP   *TEXT.ADD,,17,NR                                        FEAT155F  248
                                                                                                                 FAX      4840
          3230  5140000000 X                      SA4    FV.LGO                                                  FAX      4841
                          6110000001              SB1    1                                                       FAX      4842
          3231  0304003233 +                      ZR     X4,WRT3A          IF B = 0                              FAX      4843
                          66670                   SB6    B7                                                      FAX      4844
                               66720              WRITEW F.LGO,B6,B2                                             FAX      4845
          3233  5150000035 +             WRT3A    SA5    TEXT.ADD          X5=. TEXT TABLE ADDRESS               FAX      4846
                          43201                   MX2    1                 X2.=TEXT HEADING                      FAX      4847
                               66510              SB5    B1                                                      FAX      4848
          3234  5215777774                        SA1    X5-3              X1.= ORGC                             FAX      4849
                          12612                   BX6    X1+X2                                                   FAX      4850
                               63750              SB7    X5                                                      FAX      4851
          3235  53650                             SA6    X5                STORE NEW ID WORD                     FAX      4852
                     76700                        SX7    B0                                                      FAX      4853
                          54765                   SA7    A6+B5             CLEAR RB WORD                         FAX      4854
          3236  5140000047 C                      SA4    OCTEMP            RESTORE OPCODE, BIT COUNT AND RET ADD FAX      4855
                          66255                   SB2    B5+B5             TC.= 2                                FAX      4856
                               54345              SA3    A4+B5                                                   FAX      4857
          3237  54135                             SA1    A3+B5                                                   FAX      4858
                     46000                        NO                                                             FAX      4859
                          63130                   SB1    X3                                                      FAX      4860
                               63610              SB6    X1                                                      FAX      4861
          3240  13555                    WRT4     BX5    X5-X5             CW.= 0                                FAX      4862
                     6130000074                   SB3    60                POSC.= 60                             FAX      4863
          3241  67431                    WRT5     SB4    B3-B1             POSC.= POSC-BIT COUNT                 FAX      4864
                     0740003216 +                 NG     B4,WRT1           IF POSC LSS 0 THEN FORCE UPPER        FAX      4865
                               76720              SX7    B2                                                      FAX      4866
          3242  22344                             LX3    X4,B4                                                   FAX      4867
                     57775                        SA7    B7-B5             SAVE      TABC                        FAX      4868
                          12635                   BX6    X3+X5                                                   FAX      4869
                               76740              SX7    B4                                                      FAX      4870
          3243  56672                    WRTSW    SA6    B7+B2             PACK NEW BINARY INTO CW AND STORE     FAX      4871
                     55775                        SA7    A7-B5                                                   FAX      4872
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   106
         SUBROUTINES
  
                          46000                   NO     0                 THESE TWO NO-OPS ARE REPLACED BY AN R FAX      4873
                               46000              NO     0                 WRLIST WHEN THE -O- OPTION IS SPECIFI FAX      4874
          3244  7111000004                        SX1    B1+4                                                    FAX      4875
                          56375                   SA3    B7+B5                                                   FAX      4876
                               21104              AX1    4                                                       FAX      4877
          3245  63210                             SB2    X1                                                      FAX      4878
                     22623                        LX6    X3,B2             SHIFT THE RELO BYTE WORD BY ONE BIT F FAX      4879
                          54630                   SA6    A3                                                      FAX      4880
          3246  0266000000                        JP     B6                EACH 15 PACKED AND LEAVE IT IN X6     FAX      4881
  
  
  
  
                                        **********************************************************************   FAX      4883
                                        *                                                                    *   FAX      4884
                                        * FOTEXT- FORCE OUT THE (PARTIALLY FILLED) TEXT TABLE THAT IS INDI-  *   FAX      4885
                                        *         CATED BY TEXT.ADD.                                         *   FAX      4886
                                        *                                                                    *   FAX      4887
                                        *         CALLING SEQUENCE-                                          *   FAX      4888
                                        *                   RJ FOTEXT                                        *   FAX      4889
                                        *                                                                    *   FAX      4890
                                        *         ON RETURN-                                                 *   FAX      4891
                                        *                   THE CUREENT TEXT TABLE HAS BEEN WRITTEN ON LGO   *   FAX      4892
                                        *                   WITH THE RELOCATION BYTE WORD ADJUSTED AND THE   *   FAX      4893
                                        *                   CORRECT WORD COUNT -IF IT IS NOT EMPTY. THE NEW  *   FAX      4894
                                        *                   TABLE IS PROPERLY INITALIZED.                    *   FAX      4895
                                        *                                                                    *   FAX      4896
                                        **********************************************************************   FAX      4897
  
  
          3247  0400403247 +             FOTEXT   ENTRY. *                 ** ENTRY/EXIT **                      FAX      4899
          3250  76650                             SX6    B5                                                      FAX      4900
                     6160003253 +                 SB6    FOTEXT2           RETURN ADDRESS FOR WRTEXT             FAX      4901
                               13444              BX4    X4-X4             CLEAR DATA                            FAX      4902
          3251  66100                             SB1    B0                BIT COUNT FOR WRTEXT                  FAX      4903
                     5160000040 +                 SA6    FFLAG             SET FORCE FLAG                        FAX      4904
          3252  0400003211 +                      EQ     WRTEXT            GO FORCE UPPER                        FAX      4905
                                                                                                                 FAX      4906
          3253  57275                    FOTEXT2  SA2    B7-B5             GET TABC                              FAX      4907
                     76755                        SX7    B5+B5                                                   FAX      4908
                          66670                   SB6    B7                                                      FAX      4909
                               37627              IX6    X2-X7                                                   FAX      4910
          3254  0306003270 +                      ZR     X6,FOTEXT1        SENSE EMPTY TEXT TABLE                FAX      4911
                          56370                   SA3    B7                GET ID WORD                           FAX      4912
                               73665              SX6    X6+B5             FORM WORD COUNT FOR TEXT TABLE        FAX      4913
          3255  20644                             LX6    36                                                      FAX      4914
                     12663                        BX6    X6+X3             OR IN WORD COUNT                      FAX      4915
                          54720                   SA7    A2                RESET TABC TO 2                       FAX      4916
                               56670              SA6    B7                                                      FAX      4917
          3256  7100000021                        SX0    17                                                      FAX      4918
                          37002                   IX0    X0-X2                                                   FAX      4919
                               20002              LX0    2                                                       FAX      4920
          3257  56475                             SA4    B7+B5             GET RELOCATION BYTE                   FAX      4921
                     63300                        SB3    X0                                                      FAX      4922
                          22634                   LX6    X4,B3             ADJUST LEFT BY 4*(17-TABC)            FAX      4923
                               54640              SA6    A4                                                      FAX      4924
                                        * IF SNAPTEXT=1 THEN DUMP THIS TABLE.                                    FAX      4925
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   107
         SUBROUTINES
  
                                                  IFEQ   SNAPTEXT,1                                              FAX      4926
                                         TXT-TBFO SNAP   *TEXT.ADD,,17,NR                                        FEAT155F  249
                                                  ENDIF                                                          FAX      4930
                                                                                                                 FAX      4931
          3260  5140000000 X                      SA4    FV.LGO                                                  FAX      4932
                          6110000001              SB1    1                                                       FAX      4933
          3261  0304003264 +                      ZR     X4,FOTEXT3        IF B = 0                              FAX      4934
                          63720                   SB7    X2                                                      FAX      4935
          3262  7120000000 X                      WRITEW F.LGO,B6,B7                                             FAX      4936
          3263  6151000000                        SB5    B1+                                                     FAX      4937
          3264  5110000035 +             FOTEXT3  SA1    TEXT.ADD                                                FAX      4938
                          13666                   BX6    X6-X6                                                   FAX      4939
                               37777              IX7    X7-X7                                                   FAX      4940
          3265  53615                             SA6    X1+B5             CLEAR RELOCATION BYTE                 FAX      4941
                     5221777774                   SA2    X1-3              GET RB AND ORGC                       FAX      4942
                               54765              SA7    A6+B5             CLEAR THIRD WORD OF TEXT TABLE        FAX      4943
          3266  43601                             MX6    1                                                       FAX      4944
                     12662                        BX6    X6+X2                                                   FAX      4945
                          53610                   SA6    X1                RESET ID WORD                         FAX      4946
          3267  0400003247 +                      EQ     FOTEXT                                                  FAX      4947
                                                                                                                 FAX      4948
          3270  5127777774               FOTEXT1  SA2    B7-3              GET RB AND ORGC                       FAX      4949
                          43601                   MX6    1                                                       FAX      4950
                               12662              BX6    X6+X2                                                   FAX      4951
          3271  56670                             SA6    B7                RESET ID WORD                         FAX      4952
                     0400003247 +                 EQ     FOTEXT                                                  FAX      4953
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   108
         SUBROUTINES
  
                                        ************************************************************************ FAX      4955
                                        *                                                                      * FAX      4956
                                        * WRLIST- SUBROUTINE TO PROVIDE AN ASSEMBLER LISTING. THE LISTING IS   * FAX      4957
                                        *         OPTIONAL AND IS PROVIDED ON THE -O- OPTION WHEN PASS II OF   * FAX      4958
                                        *         THE COMPILER IS SET TO IGNORE IT.                            * FAX      4959
                                        *         THE LISTING INCLUDES FOR EACH SOURCE LINE -                  * FAX      4960
                                        *                                                                      * FAX      4961
                                        *                   THE VALUE OF THE ORGC AND THE NAME OF THE THE CUR- * FAX      4962
                                        *                   RENT RELOCATION BASE AFTER EACH FORCE UPPER,       * FAX      4963
                                        *                                                                      * FAX      4964
                                        *                   THE BINARY GENERATED, IF ANY, BY THE LINE,         * FAX      4965
                                        *                                                                      * FAX      4966
                                        *                   THE NAME OF THE RELOCATION BASE THAT THE ADDRESS   * FAX      4967
                                        *                   FIELD REFERS TO, IF AN ADDRESS IS PRESENT AND IF   * FAX      4968
                                        *                   IT IS NOT ABSOLUTE OR EXTERNAL.                    * FAX      4969
                                        *                                                                      * FAX      4970
                                        *                   THE ORIGINAL SOURCE LINE.                          * FAX      4971
                                        *                                                                      * FAX      4972
                                        *         ON ENTRY  X4 = BINARY                                        * FAX      4973
                                        *                   B6 = 0 IF THERE IS NO BINARY IN X4                 * FAX      4974
                                        *                   B5 = 1                                             * FAX      4975
                                        *                   B3 = OLD POSC                                      * FAX      4976
                                        *                   B1 = BIT COUNT OF THE BINARY, 0 IF IT IS NOT TO BE * FAX      4977
                                        *                        PRINTED.                                      * FAX      4978
                                        *                                                                      * FAX      4979
                                        *         ON EXIT B7,B6,B5, AND B1 ARE RESTORED.                       * FAX      4980
                                        *                                                                      * FAX      4981
                                        *         THIS ROUTINE CALLS LIST  TO PRINT THE LINE AND CLINE TO      * FAX      4982
                                        *         CLEAR THE PRINT BUFFER                                       * FAX      4983
                                        *                                                                      * FAX      4984
                                        ************************************************************************ FAX      4985
                                                  USE    /TABLES/                                                FAX      4986
            52                     2     B6T      BSS    2                                                       FAX      4987
            54                     1     BSPFLAG  BSS    1                                                       FAX      4988
                                                  USE    *                                                       FAX      4989
  
  
          3272  0400403272 +             WRLIST   ENTRY. *                 ** ENTRY/EXIT **                      FAX      4991
          3273  0410003272 +                      ZR     B1,WRLIST         IF BIT COUNT=0 THEN RETURN.           FAX      4992
                          76760                   SX7    B6                                                      FAX      4993
                               76610              SX6    B1                                                      FAX      4994
          3274  5170000052 C                      SA7    B6T               SAVE B1 AND B6                        FAX      4995
                          5067000001              SA6    A7+1                                                    FAX      4996
          3275  66730                             SB7    B3                                                      FAX      4997
                     0460003334 +                 ZR     B6,WRL.6          IF B6=0 THEN THERE IS NO BINARY, PRIN FAX      4998
                               66610              SB6    B1                THE LINE AND RETURN ELSE CONVERT THE  FAX      4999
          3276  43100                             MX1    0                 BINARY TO DISPLAY.                    FAX      5000
                     5120003714 +                 SA2    =10H0000000000                                          FAX      5001
          3277  7100000007                        SX0    7                                                       FAX      5002
                          6140000012              SB4    10                                                      FAX      5003
          3300  6166777774               WRL.1    SB6    B6-3              CONVERT THE OCTAL IN X4 TO 6 BIT CODE FAX      5004
                          23364                   AX3    X4,B6                                                   FAX      5005
                               11303              BX3    X0*X3                                                   FAX      5006
          3301  20106                             LX1    6                                                       FAX      5007
                     12113                        BX1    X1+X3                                                   FAX      5008
                          6144777776              SB4    B4-1                                                    FAX      5009
          3302  0460003306 +                      ZR     B6,WRL.2                                                FAX      5010
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   109
         SUBROUTINES
  
                          0540003300 +            NZ     B4,WRL.1          IF BC=60 THEN STORE FIRST WORD IN LIN FAX      5011
          3303  36612                             IX6    X1+X2             AND REINITIALIZE TO PACK THE SECOND.  FAX      5012
                     6111777741                   SB1    B1-30                                                   FAX      5013
                               43100              MX1    0                                                       FAX      5014
          3304  5160003740 +                      SA6    LINE+2                                                  FAX      5015
                          6133777741              SB3    B3-30                                                   FAX      5016
          3305  6140000012                        SB4    10                                                      FAX      5017
                          0400003300 +            EQ     WRL.1                                                   FAX      5018
  
  
          3306  76530                    WRL.2    SX5    B3                                                      FAX      5020
                     6161777741                   SB6    B1-30                                                   FAX      5021
                               21505              AX5    5                                                       FAX      5022
          3307  0460003313 +                      ZR        B6,WRL.3  IF BC=30 THEN ZERO FILL, STORE, CHECK      FAX      5023
                          76330                   SX3       B3        RBTEMP ELSE BLANK FILL, DETERMINE          FAX      5024
          3310  5120003715 +                      SA2       =10H     00000  HALF WORD POSITION AND STORE.        FAX      5025
                          20373                   LX3    59                                                      FAX      5026
                               36612              IX6    X1+X2                                                   FAX      5027
          3311  0333003333 +                      NG     X3,WRL.5                                                FAX      5028
                          20636                   LX6    30                                                      FAX      5029
          3312  0400003333 +                      EQ     WRL.5                                                   FAX      5030
  
  
          3313  6167777722               WRL.3    SB6    B7-45             IF POSC=45 THEN SPLIT THE 30 BIT QUAN FAX      5032
                          0560003317 +            NZ     B6,WRL.4          BETWEEN 2 WORDS.                      FAX      5033
          3314  20136                             LX1    30                                                      FAX      5034
                     5120003716 +                 SA2    =10H00000                                               FAX      5035
                               43036              MX0    30                                                      FAX      5036
          3315  11601                             BX6    X0*X1                                                   FAX      5037
                     36662                        IX6    X6+X2                                                   FAX      5038
                          5160003741 +            SA6    LINE+3                                                  FAX      5039
          3316  20236                             LX2    30                                                      FAX      5040
                     15110                        BX1    -X0*X1                                                  FAX      5041
  
  
          3317  5130000043 C             WRL.4    SA3    RBTEMP            PRINT THE RELOCATION OF THE ADDRESS F FAX      5043
                          43772                   MX7    60-L.RL     IF IT IS NOT ABSOLUTE.                      FAX      5044
                               20327              LX3    -P.RL                                                   FAX      5045
          3320  15737                             BX7    -X7*X3                                                  FAX      5046
                     36612                        IX6    X1+X2                                                   FAX      5047
                          63470                   SB4    X7                                                      FAX      5048
                               20331              LX3    P.RL-P.RB                                               FAX      5049
          3321  0244003322 +                      JP     B4+WRL.41         JUMP INTO WRL.41 USING THE RL FIELD   FAX      5050
                                                                                                                 FAX      5051
          3322  0400003333 +             WRL.41   EQ     WRL.5             ABSOLUTE, EXIT                        FAX      5052
          3323  5110000032 +             +        SA1    LORGTAB           PROGRAM RELOCATION                    FAX      5053
                          0400003327 +            EQ     WRL.42                                                  FAX      5054
          3324  5110000031 +             +        SA1    CORGTAB           COMMON RELOCATION                     FAX      5055
                          0400003327 +            EQ     WRL.42                                                  FAX      5056
          3325  5110003717 +            +         SA1       =10H <EXT>                                           FAX      5057
                          10711                   BX7    X1                                                      FAX      5058
          3326  5170003742 +                      SA7    LINE+ISHIFT-1                                           FAX      5059
                          0400003333 +            EQ     WRL.5                                                   FAX      5060
  
  
          3327  5120003706 +             WRL.42   SA2    =20000000000000000026B                                  FAX      5062
                          43065                   MX0    60-L.RB                                                 FAX      5063
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   110
         SUBROUTINES
  
                               63410              SB4    X1                PRINT IT.                             FAX      5064
          3330  15330                             BX3    -X0*X3                                                  FAX      5065
                     27303                        PX3    X3,B0                                                   FAX      5066
                          5140003701 +            SA4    =3R                                                     FAX      5067
          3331  42332                             DX3    X3*X2                                                   FAX      5068
                     43052                        MX0    42                                                      FAX      5069
                          53134                   SA1    B4+X3                                                   FAX      5070
                               11101              BX1    X0*X1                                                   FAX      5071
          3332  12714                             BX7    X1+X4                                                   FAX      5072
                     20766                        LX7    54                                                      FAX      5073
                          5170003742 +            SA7    LINE+ISHIFT-1                                           FAX      5074
  
  
          3333  20573                    WRL.5    LX5    59                                                      FAX      5076
                     21572                        AX5    58                                                      FAX      5077
                          5265003741 +            SA6    X5+LINE+3                                               FAX      5078
  
  
          3334  6147777703               WRL.6    SB4    B7-60             IF POSC=60 THEN PRINT ORGC AND BLOCK  FAX      5080
                          0540003346 +            NZ     B4,WRL.8                                                FAX      5081
          3335  6160000017                        SB6    15                                                      FAX      5082
                          5140000035 +            SA4    TEXT.ADD                                                FAX      5083
          3336  5120000054 C                      SA2    BSPFLAG                                                 FAX      5084
                          43071                   MX0    57                                                      FAX      5085
                               13666              BX6    X6-X6                                                   FAX      5086
          3337  5110003720 +                      SA1       =10H   000000                                        FAX      5087
                          5234777774              SA3    X4-3              X3.= ORGC                             FAX      5088
          3340  5150003701 +                      SA5    =3R                                                     FAX      5089
                          37332                   IX3    X3-X2                                                   FAX      5090
                               54620              SA6    A2                                                      FAX      5091
          3341  23263                    WRL.7    AX2    X3,B6                                                   FAX      5092
                     15220                        BX2    -X0*X2                                                  FAX      5093
                          6166777774              SB6    B6-3                                                    FAX      5094
          3342  12626                             BX6    X2+X6                                                   FAX      5095
                     20606                        LX6    6                                                       FAX      5096
                          0660003341 +            PL     B6,WRL.7                                                FAX      5097
          3343  36661                             IX6    X6+X1                                                   FAX      5098
                     5234777772                   SA3    X4-5                                                    FAX      5099
                               43052              MX0    42                                                      FAX      5100
          3344  11703                             BX7    X0*X3                                                   FAX      5101
                     5160003736 +                 SA6    LINE              STORE THE CONVERTED ORGC IN LINE      FAX      5102
                               12775              BX7    X7+X5                                                   FAX      5103
          3345  54765                             SA7    A6+B5             STORE THE BLOCK NAME IN LINE+1        FAX      5104
  
  
          3346  5110000026 +             WRL.8    SA1    SWC               WORD COUNT                          W FAX      5106
                          6110000001              SB1    1                                                       FAX      5107
          3347  6160003736 +                      LISTL  LINE,X1+ISHIFT    LIST THE LINE                         FAX      5108
          3350  5120003665 +                      SA2    =10H                                                    FAX      5109
                          66510                   SB5    B1                                                      FAX      5110
                               10622              BX6    X2                                                      FAX      5111
          3351  7110000005                        SETCORE   LINE,ISHIFT                                          FAX      5112
          3353  13666                             BX6    X6-X6                                                   FAX      5113
                     5160003743 +                 SA6    ILINE             INHIBIT FURTHER PRINTING OF SOURCE IM FAX      5114
                               76750              SX7    B5                                                      FAX      5115
          3354  5170000026 +                      SA7    SWC                                                     FAX      5116
                          5110000052 C            SA1    B6T               RESTORE B1 AND B6                     FAX      5117
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   111
         SUBROUTINES
  
          3355  54215                             SA2    A1+B5                                                   FAX      5118
                     63610                        SB6    X1                                                      FAX      5119
                          5130000035 +            SA3    TEXT.ADD                                                FAX      5120
          3356  63120                             SB1    X2                                                      FAX      5121
                     63730                        SB7    X3                                                      FAX      5122
                          0400003272 +            EQ     WRLIST                                                  FAX      5123
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   112
         SUBROUTINES                                                  JOL 
  
                                        **        JOL - JUSTIFY OBJECT LISTING                                   FAX      5125
                                        *         FORMATS LOCATION,OP AND ADDRESS FIELDS TO COLUMNS 2, 11 AND 18 FAX      5126
                                                                                                                 FAX      5127
                                         OJL      IFNE   .JOL,0                                                  FAX      5128
          3357  0100003361 +             RJJOL    RJ     JOL                                                     FAX      5129
                                                                                                                 FAX      5130
                                                  USE    /TABLES/                                                FAX      5131
            55                     1              BSS    1                 FILLER USED FOR ADDR ASSIGNMENT       FAX      5132
            56                    10     ILINEB   BSS    10B               TEMPORARY BUFFER                      FAX      5133
                                                  USE    *                                                       FAX      5134
                                                                                                                 FAX      5135
          3360  5110000026 +             JOL0     SA1    SWC                                                     FAX      5136
                          6110000001              SB1    1                                                       FAX      5137
          3361  0200403361 +             JOL      ROUTINE                                                        FAX      5138
          3362  5110000026 +                      SA1    SWC               MOVE OBJ LISTING WORDS TO TEMP BUFFER FAX      5139
                          5160000055 C            SA6    ILINEB-1                                                FAX      5140
          3363  5120003742 +                      SA2    ILINE-1                                                 FAX      5141
                          54025                   SA0    A2+B5                                                   FAX      5142
                               67205              SB2    -B5                                                     FAX      5143
          3364  54225                    JOL1     SA2    A2+B5                                                   FAX      5144
                     73112                        SX1    X1+B2                                                   FAX      5145
                          10622                   BX6    X2                                                      FAX      5146
                               54665              SA6    A6+B5                                                   FAX      5147
          3365  0311003364 +                      NZ     X1,JOL1           IF MORE WORDS                         FAX      5148
                                                                                                                 FAX      5149
                          5150000056 C            SA5    ILINEB                                                  FAX      5150
          3366  6140000066                        SB4    54                                                      FAX      5151
                          43066                   MX0    -6                                                      FAX      5152
                               23145              AX1    B4,X5             GET AND TEST FIRST CHARACTER          FAX      5153
          3367  6144777771                        SB4    B4-6                                                    FAX      5154
                          15610                   BX6    -X0*X1                                                  FAX      5155
                               43700              MX7    0                                                       FAX      5156
          3370  0306003360 +                      ZR     X6,JOL0           IF NO OBJECT LISTING                  FAX      5157
                          7246777730              SX4    X6-1R*                                                  FAX      5158
          3371  0304003360 +                      ZR     X4,JOL0           IF COMMENT                            FAX      5159
                          7120000012              SX2    10                                                      FAX      5160
          3372  7246777732                        SX4    X6-1R+                                                  FAX      5161
                          0304003375 +            ZR     X4,JOL2           IF FIRST COLUMN IS +                  FAX      5162
          3373  7246777731                        SX4    X6-1R-                                                  FAX      5163
                          0304003375 +            ZR     X4,JOL2           IF FIRST COLUMN IS -                  FAX      5164
          3374  7222777776                        SX2    X2-1                                                    FAX      5165
                          7170000055              SX7    1R                                                      FAX      5166
          3375  20706                    JOL2     LX7    6                                                       FAX      5167
                     7222777776                   SX2    X2-1                                                    FAX      5168
                               36776              IX7    X7+X6             SET LOCATION FIELD                    FAX      5169
          3376  23145                             AX1    B4,X5                                                   FAX      5170
                     6144777771                   SB4    B4-6                                                    FAX      5171
                               15610              BX6    -X0*X1                                                  FAX      5172
          3377  7246777722                        SX4    X6-1R                                                   FAX      5173
                          0314003375 +            NZ     X4,JOL2           IF NON-BLANK                          FAX      5174
                                                                                                                 FAX      5175
          3400  7130000006                        SX3    6                                                       FAX      5176
                          42132                   IX1    X3*X2                                                   FAX      5177
                               63610              SB6    X1                                                      FAX      5178
          3401  22767                             LX7    B6,X7                                                   FAX      5179
                     5212000654 +                 SA1    SPACES+X2                                               FAX      5180
                               12771              BX7    X7+X1             PAD WITH BLANKS                       FAX      5181
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   113
         SUBROUTINES                                                  JOL 
  
          3402  54700                             SA7    A0                                                      FAX      5182
                     63630                        SB6    X3                                                      FAX      5183
                          6110777722              SB1    -1R                                                     FAX      5184
          3403  6130000066                        SB3    54                                                      FAX      5185
                          56050                   SA0    B5                                                      FAX      5186
                               66446              SB4    B4+B6                                                   FAX      5187
          3404  43700                             MX7    0                                                       FAX      5188
          3405  67446                    JOL3     SB4    B4-B6             FIND OP CODE                          FAX      5189
                     23145                        AX1    B4,X5                                                   FAX      5190
                          15410                   BX4    -X0*X1                                                  FAX      5191
                               73341              SX3    X4+B1                                                   FAX      5192
          3406  0303003405 +                      ZR     X3,JOL3           IF BLANK                              FAX      5193
                          76365                   SX3    B6+B5                                                   FAX      5194
          3407  0640003410 +             JOL4     PL     B4,JOL4A          IF WORD NOT EXHAUSTED                 FAX      5195
                          54555                   SA5    A5+B5                                                   FAX      5196
                               66430              SB4    B3                                                      FAX      5197
          3410  23145                    JOL4A    AX1    B4,X5                                                   FAX      5198
                     67446                        SB4    B4-B6                                                   FAX      5199
                          15410                   BX4    -X0*X1                                                  FAX      5200
                               73641              SX6    X4+B1                                                   FAX      5201
          3411  36774                             IX7    X7+X4                                                   FAX      5202
                     7233777776                   SX3    X3-1                                                    FAX      5203
                               20706              LX7    6                                                       FAX      5204
          3412  0316003407 +                      NZ     X6,JOL4           IF NOT BLANK                          FAX      5205
                          5243000654 +            SA4    SPACES+X3                                               FAX      5206
          3413  76660                             SX6    B6                                                      FAX      5207
                     73332                        SX3    X3+B2                                                   FAX      5208
                          42136                   IX1    X3*X6                                                   FAX      5209
                               63210              SB2    X1                                                      FAX      5210
          3414  22727                             LX7    B2,X7                                                   FAX      5211
                     6120000003                   SB2    3                                                       FAX      5212
                               12774              BX7    X7+X4             PAD WITH BLANKS                       FAX      5213
          3415  0640003416 +             JOL5     PL     B4,JOL5A          IF WORD NOT EXHAUSTED                 FAX      5214
                          54555                   SA5    A5+B5                                                   FAX      5215
                               66430              SB4    B3                                                      FAX      5216
          3416  23145                    JOL5A    AX1    B4,X5                                                   FAX      5217
                     67446                        SB4    B4-B6                                                   FAX      5218
                          15610                   BX6    -X0*X1                                                  FAX      5219
                               73461              SX4    X6+B1                                                   FAX      5220
          3417  0304003415 +                      ZR     X4,JOL5           IF BLANK                              FAX      5221
                          20706                   LX7    6                                                       FAX      5222
                               67225              SB2    B2-B5                                                   FAX      5223
          3420  36767                             IX7    X6+X7             SET OPERAND FIELD                     FAX      5224
                     0306003424 +                 ZR     X6,JOL6           IF LINE FINISHED                      FAX      5225
          3421  0520003415 +                      NZ     B2,JOL5           IF WORD FILLED                        FAX      5226
                          5077000001              SA7    A7+1                                                    FAX      5227
          3422  6120000012                        SB2    10                                                      FAX      5228
                          54005                   SA0    A0+B5                                                   FAX      5229
                               43700              MX7    0                                                       FAX      5230
          3423  0400003415 +                      EQ     JOL5                                                    FAX      5231
                                                                                                                 FAX      5232
          3424  76420                    JOL6     SX4    B2                                                      FAX      5233
                     76560                        SX5    B6                                                      FAX      5234
                          42545                   IX5    X4*X5                                                   FAX      5235
                               63450              SB4    X5                                                      FAX      5236
          3425  22747                             LX7    B4,X7             SHIFT LAST WORD INTO PRINT POSITION   FAX      5237
                     5077000001                   SA7    A7+1                                                    FAX      5238
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   114
         SUBROUTINES                                                  JOL 
  
                               74605              SX6    A0+B5                                                   FAX      5239
          3426  0540003430 +                      NZ     B4,JOL7     IF 2 BYTE EOL FLAG EXISTS AT END OF WORD    FAX      5240
                          43700                   MX7    0                                                       FAX      5241
                               73665              SX6    X6+B5                                                   FAX      5242
          3427  54775                             SA7    A7+B5                                                   FAX      5243
          3430  5160000026 +             JOL7     SA6    SWC                                                     FAX      5244
                          0400003360 +            EQ     JOL0                                                    FAX      5245
                                                                                                                 FAX      5246
                                         OLJ      ENDIF                                                          FAX      5247
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   115
         SUBROUTINES
  
                                        ************************************************************************ FAX      5249
                                        *                                                                      * FAX      5250
                                        * L4.CKL- ENTER HERE AFTER A 60 BIT PSEUDO-OP HAS BEEN WRITTEN TO      * FAX      5251
                                        *         DEFINE ITS LABEL IF PRESENT.                                 * FAX      5252
                                        *                                                                      * FAX      5253
                                        *         ON ENTRY-                                                    * FAX      5254
                                        *                   B5= 1,                                             * FAX      5255
                                        *                   ALABEL= ZERO OR A LABEL,PACKED AS REQUIRED BY      * FAX      5256
                                        *                           LSTPROC                                    * FAX      5257
                                        *                                                                      * FAX      5258
                                        *         ON EXIT-                                                     * FAX      5259
                                        *                   X6,A3,B5 ARE RESTORED,                             * FAX      5260
                                        *                   THE LABEL HAS BEEN DEFINED IN THE TWO WORD SYMBOL  * FAX      5261
                                        *                   TABLE AS HAVING THE CURRENT VALUE OF THE ORIGION   * FAX      5262
                                        *                   COUNTER                                            * FAX      5263
                                        *                                                                      * FAX      5264
                                        ************************************************************************ FAX      5265
  
  
          3431                                    MOVSTART  4                                                    FAX      5267
          1014  5110000035 +             L4.CKL   SA1    TEXT.ADD                                                FAX      5268
                          53315                   SA3    X1+B5                                                   FAX      5269
                               10633              BX6    X3                                                      FAX      5270
  
  
  
  
                                        ************************************************************************ FAX      5272
                                        *                                                                      * FAX      5273
                                        * L4.CKRB ENTER HERE FROM WRTEXT OR L4.CKL AFTER A 30 OR 60 BIT QUAN-  * FAX      5274
                                        *         TITY HAS BEEN WRITTEN TO RECORD THE RELOCATION OF THE ADDRESS* FAX      5275
                                        *         FIELD.                                                       * FAX      5276
                                        *                                                                      * FAX      5277
                                        *         ON ENTRY-                                                    * FAX      5278
                                        *                                                                      * FAX      5279
                                        *                   X6= RELOCATION BYTE WORD FROM THE TEXT TABLE       * FAX      5280
                                        *                   A3= ADDRESS OF THE ABOVE                           * FAX      5281
                                        *                   B5= 1                                              * FAX      5282
                                        *                   RBTEMP= ZERO OR WORD B OF THE TWO WORD SYMBOL      * FAX      5283
                                        *                           TABLE ENTRY                                * FAX      5284
                                        *                                                                      * FAX      5285
                                        *         IF THE ADDRESS FIELD IS-                                     * FAX      5286
                                        *                   ABSOLUTE- NO ACTION IS REQUIRED,                   * FAX      5287
                                        *                   PROGRAM-  ADD 2 TO RB WORD IN X6 AND STORE IT BACK,* FAX      5288
                                        *                   COMMON OR                                          * FAX      5289
                                        *                   EXTERNAL- AN ENTRY MUST BE MADE IN THE PROPER FILL * FAX      5290
                                        *                             OR LINK CHAIN TO DESCRIBE THE USE OF THE * FAX      5291
                                        *                             VARIABLE.                                * FAX      5292
                                        *                             IF THE SYMBOL IS AN EXTERNAL THEN RA     * FAX      5293
                                        *                             POINTS TO THE START OF THE CHAIN.        * FAX      5294
                                        *                             IF COMMON THEN CORGTAB+RB*22 IS THE      * FAX      5295
                                        *                             POINTER.                                 * FAX      5296
                                        *                                                                      * FAX      5297
                                        ************************************************************************ FAX      5298
  
  
          1015  5110000043 C             L4.CKRB  SA1    RBTEMP                                                  FAX      5300
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   116
         SUBROUTINES
  
                          0301001721 +            ZR     X1,INITL          IF RBTEMP=0 THEN EXIT.                FAX      5301
          1016  20127                             LX1    -P.RL                                                   FAX      5302
                     43072                        MX0    60-L.RL                                                 FAX      5303
                          15210                   BX2    -X0*X1                                                  FAX      5304
                               63120              SB1    X2                B1.= RL                               FAX      5305
          1017  0211001020 +                      JP     B1+L4.CKJT                                              FAX      5306
          1020                                    MOVEND                                                         FAX      5307
  
  
          3431                                    MOVSTART  4                                                    FAX      5309
          1020  43700                    L4.CKJT  MX7    0                                                       FCC1213     4
                     54710                        SA7    A1          RBTEMP = 0                                  FCC1213     5
                          0400001721 +            EQ     INITL                                                   FCC1213     6
          1021  76155                    +        SX1    B5+B5             PROGRAM                               FAX      5311
                     13777                        BX7    X7-X7                                                   FAX      5312
                          0400000602 +            EQ     L4.PROG                                                 FAX      5313
          1022  20131                    +        LX1    P.RL-P.RB         COMMON                                FAX      5314
                     43065                        MX0    60-L.RB                                                 FAX      5315
                          0400003431 +            EQ     L4.COM                                                  FAX      5316
          1023  20122                    +        LX1    P.RL-P.RA         EXTERNAL                              FAX      5317
                     53410                        SA4    X1                X4.= POINTER TO LINK CHAIN            FAX      5318
                          0400003434 +            EQ     L4.LAF                                                  FAX      5319
          1024                                    MOVEND                                                         FAX      5320
  
  
          3431                                    MOVSTART  3                                                    FAX      5322
           602  36616                    L4.PROG  IX6    X1+X6                                                   FAX      5323
                     54710                        SA7    A1                RBTEMP.= 0                            FAX      5324
                          5110001745 +            SA1    RJTFLAG                                                 FAX      5325
           603  54630                             SA6    A3          RBWORD = RBWORD + 2                         FAX      5326
                     0301001721 +                 ZR     X1,INITL                                                FAX      5327
                               63110              SB1    X1                                                      FAX      5328
           604  0211000000                        JP     B1                                                      FAX      5329
           605                                    MOVEND                                                         FAX      5330
  
  
          3431  15110                    L4.COM   BX1    -X0*X1                                                  FAX      5332
                     5120003706 +                 SA2    =20000000000000000026B                                  FAX      5333
                               27101              PX1    X1,B0                                                   FAX      5334
          3432  5130000031 +                      SA3    CORGTAB                                                 FAX      5335
                          42112                   DX1    X1*X2                                                   FAX      5336
                               63130              SB1    X3                                                      FAX      5337
          3433  6100000000                        SB0    B0+                                                     FAX      5338
                          53411                   SA4    X1+B1             X4.= CORGTAB+22*RB, POINTER TO FILL C FAX      5339
  
  
          3434  5110000035 +             L4.LAF   SA1    TEXT.ADD                                                FAX      5341
                          5130000034 +            SA3    FREEMEM           X3.= NEXT FREE WORD ADDRESS           FAX      5342
          3435  5211777775                        SA1    X1-2              X1.= POSC                             FAX      5343
                          5150000036 +            SA5    MEMEND                                                  FAX      5344
          3436  7211000104                        SX1    X1+104B                                                 FAX      5345
                          37553                   IX5    X5-X3                                                   FAX      5346
                               21104              AX1    4                 X1.= P.= POSC/15+100B                 FAX      5347
          3437  55215                             SA2    A1-B5             X2.= ORGC                             FAX      5348
                     0335003456 +                 NG     X5,STOVER         IF FREEMEM GTR MEMEND THEN STORAGE OV FAX      5349
                               20133              LX1    27                FLOW                                  FAX      5350
          3440  73635                             SX6    X3+B5                                                   FAX      5351
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   117
         SUBROUTINES
  
                     43052                        MX0    42                                                      FAX      5352
                          12112                   BX1    X1+X2             X1.= DATA BYTE                        FAX      5353
                               73740              SX7    X4                X7.= OLD POINTER                      FAX      5354
          3441  54630                             SA6    A3                FREEMEM.= FREEMEM+1                   FAX      5355
                     20136                        LX1    30                                                      FAX      5356
                          11404                   BX4    X0*X4                                                   FAX      5357
                               36617              IX6    X1+X7                                                   FAX      5358
          3442  12743                             BX7    X4+X3             X7.= NEW START OF CHAIN               FAX      5359
                     53630                        SA6    X3                                                      FAX      5360
                          54740                   SA7    A4                                                      FAX      5361
                               13666              BX6    X6-X6                                                   FAX      5362
          3443  5110001745 +                      SA1    RJTFLAG                                                 FAX      5363
                          5160000043 C            SA6    RBTEMP      RBTEMP = 0                                  FAX      5364
          3444  0301001721 +                      ZR     X1,INITL                                                FAX      5365
                          63110                   SB1    X1                                                      FAX      5366
          3445  0211000000                        JP     B1                                                      FAX      5367
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   118
        ERROR PROCESSING
  
          3446  5110003721 +             ILL      SA1    =10H**ILL**                                             FAX      5369
                          10611                   BX6    X1                                                      FAX      5370
          3447  5160003741 +             ILL.1    SA6    LINE+3                                                  FAX      5371
                          5160000035 C            SA6    ERRLINE+8                                               FAX      5372
          3450  6130000074                        SB3    60                                                      FAX      5373
                          66150                   SB1    B5                                                      FAX      5374
                               66600              SB6    B0                                                      FAX      5375
          3451  0100003272 +                      RJ     WRLIST            LIST THE CURRENT LINE                 FAX      5376
          3452  6110000001               ILL.2    SB1    1                                                       FAX      5377
                          6160000025 C            LISTL  ERRLINE,10D       NEXT LINE, TO EASE FINDING BAD LINE   FAX      5378
          3454  5110000023 C                      SA1    AERCNT                                                  FAX      5379
                          6150000001              SB5    1                                                       FAX      5380
          3455  73611                             SX6    X1+B1                                                   FAX      5381
                     54610                        SA6    A1                INCREMENT ASSEMBLY ERROR COUNT        FAX      5382
                          0400001721 +            EQ     INITL                                                   FAX      5383
                                                                                                                 FAX      5384
                                        *         STORAGE OVERFLOW                                               FAX      5385
                                                                                                                 FAX      5386
          3456  5110000030 +             STOVER   SA1    MEMSTRT           ENTER HERE ON STORAGE OVERFLOW,ADD SI FAX      5387
                          5120000036 +            SA2    MEMEND            OF OVERFLOW TO STOVSIZE, PRINT ERROR  FAX      5388
          3457  10611                             BX6    X1                MESSAGE AND CONTINUE.                 FAX      5389
                     5130000024 C                 SA3    STOVSIZE                                                FAX      5390
                               37121              IX1    X2-X1                                                   FAX      5391
          3460  5160000034 +                      SA6    FREEMEM                                                 FAX      5392
                          36731                   IX7    X3+X1                                                   FAX      5393
                               54730              SA7    A3                                                      FAX      5394
          3461  0313001721 +                      NZ     X3,INITL                                                FAX      5395
                          6110000001              SB1    1                                                       FAX      5396
          3462  6160003464 +                      LISTL  OFLOMSG,4                                               FAX      5397
          3463  0400003452 +                      EQ     ILL.2                                                   FAX      5398
                                                                                                                 FAX      5399
                                                                                                                 FAX      5400
          3464  55554747474747474747     OFLOMSG  DATA   38C  ********** MEMORY OVERFLOW IN -FAX-.               FAX      5401
  
  
          3470                           SILL     BSS    0                                                       FAX      5403
                                        *                                                                        FAX      5404
                                        * IF SNAPUDEF=1 THEN PRINT THE REGS TO LOOK AT THE UNDEFINED SYMBOL.     FAX      5405
                                        *                                                                        FAX      5406
                                   0     SNAPUDEF EQU    DEBUG                                                   FAX      5407
                                                  IFEQ   SNAPUDEF,1,1                                            FAX      5408
                                         X0=SYM   REG                                                            FEAT155F  250
          3470  5150003722 +                      SA5       =10HSYMBOL ERR                                       FAX      5410
                          10655                   BX6    X5                                                      FAX      5411
          3471  0400003447 +                      EQ     ILL.1                                                   FAX      5412
  
  
  
  
  
  
  
  
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   119
        END PROCESSING
  
          3472                                    MOVSTART  2                                                    FAX      5418
           253  46000001000000000000     XFERTAB  VFD    6/46B,18/1,36/0                                         FAX      5419
           254                     1              BSS    1                                                       FAX      5420
           255                                    MOVEND                                                         FAX      5421
                                3723 +   FOFLAG   EQU    SCRATCH           1 WORD                                FAX      5422
                                3723 +   B4TMP    EQU    SCRATCH           3 WORDS                               FAX      5423
  
  
  
  
          3472  55551702120503245503     NOENDMSG DATA   31C  OBJECT CODE END LINE MISSING.                      FAX      5425
                                                                                                                 FAX      5426
                                                                                                                 FAX      5427
                                        *         PROCESS ERROR - MISSING END LINE.                              FAX      5428
                                                                                                                 FAX      5429
          3476  7110003472 +             NOEND    MESSAGE  NOENDMSG,,RCL                                         F7540FT    35
          3500  5110000023 C                      SA1    AERCNT                                                  FAX      5431
                          73611                   SX6    X1+B1       ASSEMBLY ERROR COUNT + 1                    FAX      5432
                               54610              SA6    A1                                                      FAX      5433
  
  
          3501  5110000023 C             PEND     SA1    AERCNT                                                  FAX      5435
                          6110000001              SB1    1                                                       FAX      5436
          3502  0301001057 +                      ZR     X1,EX.20          IF NO ASSEMBLY ERRORS                 FAX      5437
                          5120000000 X            SA2    =XCP.ERCT         UPDATE ERROR COUNT GRAND TOTAL        FCC0220   113
          3503  36612                             IX6    X1+X2                                                   FAX      5439
                     54620                        SA6    A2                                                      FAX      5440
                          0100000000 X            CALL   CDD               RETURNS (X6) = INTEGER, DPC FORMAT    FAX      5441
          3504  5120000001 +                      SA2    PREFIX+1          PROGRAM NAME                          FAX      5442
                          5160001024 +            SA6    AERMSG            STORE BCD ERROR COUNT                 FAX      5443
          3505  10722                             BX7    X2                                                      FAX      5444
                     5076000003                   SA7    A6+3                                                    FAX      5445
          3506  7110001024 +                      MESSAGE  AERMSG,,RCL     ASSEMBLY ERROR MSG TO DAYFILES        F7540FT    36
          3510  5110000000 X                      SA1    FV.LGO                                                  FAX      5447
                          6150000001              SB5    1                                                       FAX      5448
          3511  0301003661 +                      ZR     X1,EX.90          IF NO LGO FILE                        FAX      5449
                          0100003203 +            RJ     WEOR              WRITE AN EOR                          FAX      5450
          3512  7120000000 X                      BKSP   F.LGO                                                   FAX      5451
                                                                                                                 FAX      5452
                                        *         WRITE A PREFIX TABLE                                           FAX      5453
                                                                                                                 FAX      5454
          3514  6110000001               EX.12    SB1    1                                                       FAX      5455
                          6160000000 +            WRITEW F.LGO,PREFIX,L.PRFX                                     FAX      5456
          3517  6160003523 +                      WRITEW F.LGO,CERMSG,3                                          FAX      5457
          3521  5110000023 C                      SA1    AERCNT                                                  FAX      5458
                          6151000000              SB5    B1+                                                     FAX      5459
          3522  0311003661 +                      NZ     X1,EX.90          IF ASSEMBLY ERRORS                    FAX      5460
                          0400003663 +            EQ     EX.100                                                  FAX      5461
                                                                                                                 FAX      5462
          3523                                    MOVSTART  4                                                    FAX      5463
          1024  55555555555555555555     AERMSG   DATA   10H                                                     FAX      5464
          1025  55012323051502143155              DIS       ,/ ASSEMBLY ERRORS IN  NAME/                         FAX      5465
          1030                                    MOVEND                                                         FAX      5466
                                                                                                                 FAX      5467
          3523  05222217222355111655     CERMSG   DATA      26CERRORS IN FTN COMPILATION.                        FAX      5468
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   120
        END PROCESSING
  
          3526                                    MOVSTART  7                                                    FAX      5470
          1057  5110000000 X             EX.20    SA1    FV.LGO                                                  FAX      5471
                          0301003661 +            ZR     X1,EX.90          IF NO LGO FILE                        FAX      5472
                                                                                                                 FAX      5473
                                        *  FORCE OUT ALL PARTIALLY FILLED TEXT TABLES                            FAX      5474
                                        *                                                                        FAX      5475
          1060  5110000031 +                      SA1    CORGTAB                                                 FAX      5476
                          7261777756              SX6    X1-17                                                   FAX      5477
          1061  5160000035 +                      SA6    TEXT.ADD                                                FAX      5478
                          5160003723 +            SA6    FOFLAG                                                  FAX      5479
  
  
          1062  5110000035 +             EX.30    SA1    TEXT.ADD                                                FAX      5481
                          5221000021              SA2    X1+17                                                   FAX      5482
          1063  0302001030 +                      ZR     X2,EX.31                                                FAX      5483
                          7261000026              SX6    X1+22                                                   FAX      5484
          1064  54610                             SA6    A1                                                      FAX      5485
                     0100003247 +                 RJ     FOTEXT                                                  FAX      5486
          1065  0400001062 +                      EQ     EX.30                                                   FAX      5487
          1066                                    MOVEND                                                         FAX      5488
  
  
          3526                                    MOVSTART  4                                                    FAX      5490
          1030  5130003723 +             EX.31    SA3    FOFLAG                                                  FAX      5491
                          5120000032 +            SA2    LORGTAB                                                 FAX      5492
          1031  0303003526 +                      ZR     X3,EX.40                                                FAX      5493
                          7262777756              SX6    X2-17                                                   FAX      5494
          1032  13777                             BX7    X7-X7                                                   FAX      5495
                     54610                        SA6    A1                                                      FAX      5496
                          54730                   SA7    A3                                                      FAX      5497
          1033  0400001062 +                      EQ     EX.30                                                   FAX      5498
          1034                                    MOVEND                                                         FAX      5499
  
  
          3526                           EX.40    BSS    0                                                       FAX      5501
                                                                                                                 FAX      5506
                                        *         INCREASE WORKING STORAGE BY USING ALL MEMORY FROM (FREEMEM)    FAX      5507
                                        *         TO END OF FIELD LENGTH, THIS DISCARDS ALL TABLES UP            RSM2763X   46
                                        *         THROUGH THE SYMBOL TABLE AND THE REFMAP BUFFER                 RSM2763X   47
                                                                                                                 RSM2763X   48
          3526  5110000000 X                      SA1    =XCP.NFLS                                               RSM2763X   49
                          5120000034 +            SA2    FREEMEM                                                 FAX      5517
          3527  6261777775                        SB6    X1-2              WORKING STORAGE LWA                   FAX      5518
                          63725                   SB7    X2+B5             (B7) = WORKING STORAGE FWA            FAX      5519
          3530  6110007777                        SB1    7777B       MAXIMUM PERMITTED WSA                       FCC1754     6
                          67667                   SB6    B6-B7       WSA LENGTH AVAILABLE                        FCC1754     7
                               76770              SX7    B7                                                      FCC1754     8
          3531  0616003532 +                      LE     B6,B1,EX.45 IF WSA AVAILABLE .LE. MAX ALLOWABLE         FCC1754     9
                          66610                   SB6    B1                                                      FCC1754    10
                                                                                                                 FCC1754    11
          3532  73626                    EX.45    SX6    X2+B6                                                   FCC1754    12
                     54720                        SA7    A2          UPDATE FREEMEM                              FCC1754    13
                          5160000036 +            SA6    MEMEND      SET MAX CORE LIMIT                          FCC1754    14
                                                                                                                 FAX      5525
                                        * FORM THE ACCUMULATED COMMON AND EXTERNAL INFORMATION INTO FILL AND     FAX      5526
                                        * LINK TABLES AND WRITE THESE ON LGO.                                    FAX      5527
                                        *                                                                        FAX      5528
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   121
        END PROCESSING
  
          3533  43036                             MX0    30                                                      FAX      5529
                     6140000026                   SB4    22                INDEX FOR CORGTAB                     FAX      5530
          3534  5110000031 +                      SA1    CORGTAB                                                 FAX      5531
                          66100                   SB1    B0                WORD COUNT                            FAX      5532
          3535  7170000042                        SX7    42B                                                     FAX      5533
                          5251777751              SA5    X1-22                                                   FAX      5534
          3536  20766                             LX7    54                                                      FAX      5535
                     66200                        SB2    B0                                                      FAX      5536
                          56770                   SA7    B7                                                      FAX      5537
  
  
          3537  54554                    EX.50    SA5    A5+B4             FETCH NEXT ENTRY                      FAX      5539
                     0305003571 +                 ZR     X5,EX.60          IF ZERO THEN QUIT                     FAX      5540
                               73750              SX7    X5                                                      FAX      5541
          3540  0307003537 +                      ZR     X7,EX.50          IF CHAIN IS EMPTY THEN TRY THE NEXT.  FAX      5542
                          0445003546 +            EQ     B4,B5,EX.51       IF LINK THEN GO TO PUT IN NAME ELSE   FAX      5543
          3541  5045000002                        SA4    A5+2              PUT IN LCT ORDINAL.                   FAX      5544
                          0334003537 +            NG     X4,EX.50          IF LCM COMMON BLOCK                   FAX      5545
          3542  0420000672 +                      ZR     B2,EX.52          IF X6 HAS A HALF WORD THEN PUT LCT IN FAX      5546
                          66315                   SB3    B1+B5             LOWER 30 BITS AND STORE IT IN TABLE.  FAX      5547
          3543  0636000721 +                      GE     B3,B6,EX.53       IF BUFFER IS FULL THEN GO PUT IT OUT  FAX      5548
                          21422                   AX4    18                ELSE PUT LCT IN TABLE AND GO FOLLOW T FAX      5549
                               53150              SA1    X5                CHAIN.                                FAX      5550
          3544  12664                             BX6    X6+X4                                                   FAX      5551
                     66115                        SB1    B1+B5                                                   FAX      5552
                          63250                   SB2    X5                                                      FAX      5553
                               56617              SA6    B1+B7                                                   FAX      5554
          3545  0400003555 +                      EQ     EX.NO                                                   FAX      5555
  
  
          3546                                    MOVSTART  2                                                    FAX      5557
           672  21422                    EX.52    AX4    18                                                      FAX      5558
                     73150                        SX1    X5                                                      FAX      5559
                          20436                   LX4    30                                                      FAX      5560
                               63350              SB3    X5                                                      FAX      5561
           673  10644                             BX6    X4                                                      FAX      5562
                     0400003556 +                 EQ     EX.ONE                                                  FAX      5563
           674                                    MOVEND                                                         FAX      5564
  
  
          3546                                    MOVSTART  2                                                    FAX      5566
           721  55554                    EX.53    SA5    A5-B4                                                   FAX      5567
                     66115                        SB1    B1+B5                                                   FAX      5568
                          66200                   SB2    B0                                                      FAX      5569
                               56617              SA6    B1+B7                                                   FAX      5570
           722  0400003561 +                      EQ     EX.70                                                   FAX      5571
           723                                    MOVEND                                                         FAX      5572
  
  
          3546  43752                    EX.51    MX7    42                                                      FAX      5574
                     0420003553 +                 ZR     B2,EX.54                                                FAX      5575
                               66315              SB3    B1+B5                                                   FAX      5576
          3547  11475                             BX4    X7*X5                                                   FAX      5577
                     0636000721 +                 GE     B3,B6,EX.53       IF BUFFER IS FULL THEN GO WRITE IT OU FAX      5578
                               20436              LX4    30                                                      FAX      5579
          3550  73150                             SX1    X5                                                      FAX      5580
                     15340                        BX3    -X0*X4                                                  FAX      5581
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   122
        END PROCESSING
  
                          66115                   SB1    B1+B5                                                   FAX      5582
                               12636              BX6    X3+X6                                                   FAX      5583
          3551  63350                             SB3    X5                                                      FAX      5584
                     56617                        SA6    B1+B7                                                   FAX      5585
                          46000                   NO                                                             FAX      5586
                               11604              BX6    X0*X4                                                   FAX      5587
          3552  0400003556 +                      EQ     EX.ONE                                                  FAX      5588
  
  
          3553  66315                    EX.54    SB3    B1+B5                                                   FAX      5590
                     11675                        BX6    X7*X5                                                   FAX      5591
                          0636000717 +            GE     B3,B6,EX.55                                             FAX      5592
          3554  53150                             SA1    X5                                                      FAX      5593
                     66115                        SB1    B1+B5                                                   FAX      5594
                          63250                   SB2    X5                                                      FAX      5595
                               56617              SA6    B1+B7                                                   FAX      5596
  
  
          3555  0420003537 +             EX.NO    ZR     B2,EX.50          CHAIN FOLLOWER- EXITS TO EX.50 WHEN E FAX      5598
                          63310                   SB3    X1                OF LIST IS ENCOUNTERED.               FAX      5599
                               11601              BX6    X0*X1                                                   FAX      5600
          3556  53110                    EX.ONE   SA1    X1                                                      FAX      5601
                     0430003537 +                 ZR     B3,EX.50                                                FAX      5602
                               11301              BX3    X0*X1                                                   FAX      5603
          3557  63210                             SB2    X1                                                      FAX      5604
                     20336                        LX3    30                                                      FAX      5605
                          53110                   SA1    X1                                                      FAX      5606
                               12636              BX6    X3+X6                                                   FAX      5607
          3560  66115                             SB1    B1+B5                                                   FAX      5608
                     56671                        SA6    B7+B1                                                   FAX      5609
                          0716003555 +            LT     B1,B6,EX.NO                                             FAX      5610
                                                                                                                 FAX      5611
          3561  0100003601 +             EX.70    RJ     DBB               DUMP BINARY BUFFER                    FAX      5612
          3562  7170000042                        SX7    42B               FILL TABLE                            FAX      5613
                          0545003564 +            NE     B4,B5,EX.71       IF PROCESSING FILLS                   FAX      5614
          3563  7170000044                        SX7    44B               LINK TABLE                            FAX      5615
          3564  20766                    EX.71    LX7    54                                                      FAX      5616
                     56770                        SA7    B7                RESET ID WORD IN TABLE                FAX      5617
                                                                                                                 FAX      5618
                          0445003567 +            EQ     B4,B5,EX.72     IF PROCESSING LINKS                     FAX      5619
          3565  76520                             SX5    B2              CHAIN POINTER                           FAX      5620
                     66200                        SB2    B0                                                      FAX      5621
                          5045000002              SA4    A5+2            OCT ORDINAL                             FAX      5622
          3566  0400000672 +                      EQ     EX.52                                                   FAX      5623
                                        *                                                                        FAX      5624
          3567  43752                   EX.72     MX7    42                                                      FAX      5625
                     11675                        BX6    X7*X5           LINK NAME                               FAX      5626
                          76520                   SX5    B2              CHAIN POINTER                           FAX      5627
                               12565              BX5    X6+X5                                                   FAX      5628
          3570  0400003553 +                      EQ     EX.54                                                   FAX      5629
  
  
          3571                                    MOVSTART  1                                                    FAX      5631
           717  55554                    EX.55    SA5    A5-B4                                                   FAX      5632
                     0400003561 +                 EQ     EX.70                                                   FAX      5633
           720                                    MOVEND                                                         FAX      5634
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   123
        END PROCESSING
  
          3571  0440003620 +             EX.60    ZR     B4,EX.64          IF ALL EXTERNALS DONE                 FAX      5636
                          0420003573 +            ZR     B2,EX.61                                                FAX      5637
          3572  66115                             SB1    B1+B5                                                   FAX      5638
                     66200                        SB2    B0                                                      FAX      5639
                          56617                   SA6    B1+B7                                                   FAX      5640
          3573  0445003576 +             EX.61    EQ     B4,B5,EX.62                                             FAX      5641
                          5140000033 +            SA4    LINKTAB                                                 FAX      5642
          3574  66450                             SB4    B5                                                      FAX      5643
                     5254777776                   SA5    X4-1                                                    FAX      5644
          3575  0615003561 +                      GE     B1,B5,EX.70       IF BUFFER IS NOT EMPTY THEN WRITE IT  FAX      5645
                          0400003577 +            EQ     EX.63                                                   FAX      5646
          3576  66400                    EX.62    SB4    B0                EXTERNAL                              FAX      5647
                     0751003561 +                 GT     B1,B5,EX.70                                             FAX      5648
          3577  66100                    EX.63    SB1    B0                                                      FAX      5649
                     7170000044                   SX7    44B                                                     FAX      5650
                               20766              LX7    54                                                      FAX      5651
          3600  56770                             SA7    B7                                                      FAX      5652
                     0400003537 +                 EQ     EX.50                                                   FAX      5653
                                                                                                                 FAX      5654
                                        *                                                                        FAX      5655
                                        *         DUMP BINARY BUFFER TO BINARY FILE                              FAX      5656
                                        *                                                                        FAX      5657
          3601  00000000000000000000     DBB                                                                     FAX      5658
          3602  56175                             SA1    B7+B5       FIRST WORD AFTER HEADER                     FAX      5659
                     0311003604 +                 NZ     X1,DBB.1    IF NORMAL TABLE ENTRY                       FAX      5660
                               56270              SA2    B7                                                      FAX      5661
          3603  67115                             SB1    B1-B5       DECREMENT TABLE LENGTH                      FAX      5662
                     66775                        SB7    B7+B5       INCREMENT HEADER ADDRESS                    FAX      5663
                          10622                   BX6    X2                                                      FAX      5664
                               56670              SA6    B7          MOVE HEADER WORD DOWN                       FAX      5665
          3604  56170                    DBB.1    SA1    B7                                                      FAX      5666
                     76210                        SX2    B1                                                      FAX      5667
                          74750                   SX7    A5                                                      FAX      5668
                               76640              SX6    B4                                                      FAX      5669
          3605  20244                             LX2    36                                                      FAX      5670
                     66670                        SB6    B7                                                      FAX      5671
                          5160003723 +            SA6    B4TMP             SAVE B4,A5,B2                         FAX      5672
          3606  66715                             SB7    B1+B5                                                   FAX      5673
                     54765                        SA7    A6+B5                                                   FAX      5674
                          12612                   BX6    X1+X2                                                   FAX      5675
                               76720              SX7    B2                                                      FAX      5676
          3607  54610                             SA6    A1                                                      FAX      5677
                     54775                        SA7    A7+B5                                                   FAX      5678
                          5110000000 X            SA1    FV.LGO                                                  FAX      5679
          3610  6110000001                        SB1    1                                                       FAX      5680
                          0301003613 +            ZR     X1,EX.70A         IF BINARY OUTPUT OPTION OFF (B=0)     FAX      5681
          3611  7120000000 X                      WRITEW F.LGO,B6,B7                                             FAX      5682
          3612  6151000000                        SB5    B1+                                                     FAX      5683
          3613  5110003723 +             EX.70A   SA1    B4TMP                                                   FAX      5684
                          54215                   SA2    A1+B5                                                   FAX      5685
                               63410              SB4    X1                                                      FAX      5686
          3614  54325                             SA3    A2+B5                                                   FAX      5687
                     43036                        MX0    30                                                      FAX      5688
                          5110000034 +            SA1    FREEMEM                                                 FAX      5689
          3615  5140000036 +                      SA4    MEMEND                                                  FAX      5690
                          63710                   SB7    X1                                                      FAX      5691
                               37441              IX4    X4-X1                                                   FAX      5692
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   124
        END PROCESSING
  
          3616  53520                             SA5    X2                                                      FAX      5693
                     63640                        SB6    X4                                                      FAX      5694
                          53130                   SA1    X3                                                      FAX      5695
                               63230              SB2    X3                                                      FAX      5696
          3617  66100                             SB1    B0                                                      FAX      5697
                     0400003601 +                 EQ     DBB               EXIT                                  FAX      5698
                                                                                                                 FAX      5699
                                        *                                                                        FAX      5700
                                        *         PROCESS LCM COMMON BLOCKS AND PRODUCE XFILL TABLES             FAX      5701
                                        *                                                                        FAX      5702
          3620  5120000000 X             EX.64    SA2    =XLEVEL2                                                FCC0504    18
                          0302003651 +            ZR     X2,EX.80          IF NO LCM COMMON                      FAX      5704
          3621  5120000034 +                      SA2    FREEMEM                                                 FAX      5705
                          5130000036 +            SA3    MEMEND                                                  FAX      5706
          3622  43036                             MX0    30                                                      FAX      5707
                     6140000026                   SB4    22                INDEX FOR CORGTAB                     FAX      5708
                               37332              IX3    X3-X2             BUFFER SIZE                           FAX      5709
          3623  63720                             SB7    X2                FWA BUFFER                            FAX      5710
                     5110000031 +                 SA1    CORGTAB                                                 FAX      5711
                               66100              SB1    B0                WORD COUNT                            FAX      5712
          3624  7170000041                        SX7    41B               XFILL TABLE                           FAX      5713
                          5251777751              SA5    X1-22                                                   FAX      5714
          3625  63630                             SB6    X3                                                      FAX      5715
                     20766                        LX7    54                                                      FAX      5716
                          56770                   SA7    B7                STORE THE HEADER WORD                 FAX      5717
                                                                                                                 FAX      5718
          3626  54554                    EX.65    SA5    A5+B4             BLOCK HEADER WORD                     FAX      5719
                     0305003646 +                 ZR     X5,EX.68          IF END OF COMMON BLOCKS               FAX      5720
                               73150              SX1    X5                                                      FAX      5721
          3627  0301003626 +                      ZR     X1,EX.65          IF EMPTY CHAIN                        FAX      5722
                          5045000002              SA4    A5+2                                                    FAX      5723
          3630  0324003626 +                      PL     X4,EX.65          IF NOT AN LCM BLOCK                   FAX      5724
                                                                                                                 FAX      5725
                          43063                   MX0    60-9                                                    FAX      5726
                               21422              AX4    18                                                      FAX      5727
          3631  15640                             BX6    -X0*X4            EXTRACT RB ORDINAL                    FAX      5728
                     20611                        LX6    9                                                       FAX      5729
                          5160003650 +            SA6    RBC               SAVE RB CODE                          FAX      5730
          3632  0400003634 +                      EQ     EX.67                                                   FAX      5731
                                                                                                                 FAX      5732
                                        *         PROCESS AN LCM COMMON CHAIN                                    FAX      5733
                                                                                                                 FAX      5734
          3633  0420003626 +             EX.66    ZR     B2,EX.65          IF END OF CHAIN                       FAX      5735
                                                                                                                 FAX      5736
          3634  53110                    EX.67    SA1    X1                                                      FAX      5737
                     20136                        LX1    30                                                      FAX      5738
                          73610                   SX6    X1                LOC FIELD, ADDRESS OF WHERE TO RELOC  FAX      5739
                               21122              AX1    18                                                      FAX      5740
          3635  43363                             MX3    60-9                                                    FAX      5741
                     15413                        BX4    -X3*X1            RL,ADDRESS RELOCATION TYPE            FAX      5742
                          20636                   LX6    30          POSITION LOC FIELD                          FAX      5743
                               36264              IX2    X6+X4             LOC,RL                                FAX      5744
          3636  21111                             AX1    9                                                       FAX      5745
                     43372                        MX3    60-2                                                    FAX      5746
                          15413                   BX4    -X3*X1            EXTRACT POS VALUE                     FAX      5747
                               20404              LX4    4                 16*POS                                FAX      5748
          3637  15313                             BX3    -X3*X1            POS = 0,1,2                           FAX      5749
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   125
        END PROCESSING
  
                     37643                        IX6    X4-X3             15*POS = 0, 15, 30                    FAX      5750
                          20630                   LX6    24                                                      FAX      5751
          3640  5130000044 +                      SA3    XFL         F = (XFL) = LENGTH OF RELOCATION FIELD      FAX      5752
                          12226                   BX2    X2+X6             LOC,POS,RL                            FAX      5753
                               20322              LX3    18                                                      FAX      5754
          3641  36432                             IX4    X3+X2             LOC,POS,F,RL                          FAX      5755
                     5130003650 +                 SA3    RBC               RB CODE                               FAX      5756
                               12643              BX6    X4+X3             LOC,POS,F,RB,RL                       FAX      5757
          3642  66115                             SB1    B1+B5             WC = WC + 1                           FAX      5758
                     56671                        SA6    B7+B1             STORE THE XFILL ENTRY                 FAX      5759
                                                                                                                 FAX      5760
                          21103                   AX1    3                                                       FAX      5761
                               63210              SB2    X1                LINK TO NEXT CHAIN MEMBER             FAX      5762
          3643  0716003633 +                      LT     B1,B6,EX.66       IF BUFFER NOT FULL                    FAX      5763
                                                                                                                 FAX      5764
                          0100003601 +            RJ     DBB               DUMP BINARY BUFFER                    FAX      5765
          3644  7170000041                        SX7    41B               XFILL                                 FAX      5766
                          20766                   LX7    54                                                      FAX      5767
                               56770              SA7    B7                RESET ID WORD IN TABLE                FAX      5768
          3645  0400003633 +                      EQ     EX.66                                                   FAX      5769
                                                                                                                 FAX      5770
                                        *         DUMP ANY REMAINING XFILL TABLE                                 FAX      5771
                                                                                                                 FAX      5772
          3646  0410003651 +             EX.68    ZR     B1,EX.80          IF NO TABLE LEFT                      FAX      5773
                          0100003601 +            RJ     DBB               DUMP BINARY BUFFER                    FAX      5774
          3647  0400003651 +                      EQ     EX.80                                                   FAX      5775
                                                                                                                 FAX      5776
          3650  00000000000000000000     RBC      DATA   0                 RB ORDINAL FOR LCM BLOCK              FAX      5777
                                        *                                                                        FAX      5778
                                        *         WRITE AN XFER TABLE                                            FAX      5779
                                        *                                                                        FAX      5780
          3651  5110000056               EX.80    SA1    PROGRAM                                                 FCC1513X   25
                          26011                   UX0    B1,X1                                                   FCC1513X   26
          3652  0510003661 +                      NZ     B1,EX.90    IF NOT MAIN PROGRAM, SKIP XFER TABLE        FCC1513X   27
                          5110000000 X            SA1    XFRNAME           XFER NAME OR ZERO                     FAX      5782
          3653  22601                             LX6    X1                                                      FAX      5785
                     0100003167 +                 CALL   RTB               REMOVE TRAILING BLANKS                FAX      5786
          3654  5110000000 X                      SA1    FV.LGO                                                  FCC1513X   28
                          6110000001              SB1    1                                                       FAX      5788
          3655  5160000254 +                      SA6    XFERTAB+1                                               FAX      5789
                          0301003661 +            ZR     X1,EX.90          IF BINARY OUTPUT OPTION OFF (B=0)     FAX      5790
          3656  6160000253 +                      WRITEW F.LGO,XFERTAB,2                                         FAX      5791
          3660  6151000000                        SB5    B1+                                                     FAX      5792
                                        *                                                                        FAX      5793
                                        *         PRINT THE END CARD                                             FAX      5794
                                        *                                                                        FAX      5795
          3661  5110000000 X             EX.90    SA1    OLIST                                                   FAX      5796
                          0301003663 +            ZR     X1,EX.100         JUMP IF O = 0                         FAX      5797
          3662  66150                             SB1    B5                                                      FAX      5798
                     66600                        SB6    B0                                                      FAX      5799
                          0100003272 +            RJ     WRLIST                                                  FAX      5800
                                                                                                                 FAX      5801
          3663  0100003203 +             EX.100   RJ     WEOR              WRITE AN EOR ON THE LGO FILE          FAX      5802
                                                                                                                 FAX      5803
          3664  0400001146 +             EX.999   EQ     FTNXAS                                                  FAX      5804
                                                                                                                 FAX      5805
          3723                                    END                                                            FAX      5806
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   126
        END PROCESSING
  
                             67600B CM  STORAGE USED            23504 STATEMENTS     1240 SYMBOLS      000010 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           22.647 SECONDS        3109 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AERCNT         23   TABLES          3/18 L   24/49 S  118/11    119/17    119/22    119/45
        AERMSG       1024   PROGRAM*      119/30 S  119/33    119/51 L
        ALA          1555   PROGRAM*       24/39     35/17 L   35/19     35/43
        ALABEL         37   PROGRAM*        5/12 L   44/10 S   69/21 S
        ALA1         1567   PROGRAM*       35/42 L   35/47     35/53     36/01
        ALR          2302   PROGRAM*       66/52     67/04 L   67/35     79/21
        ARITAB        610   PROGRAM*       54/29     54/35 L
        AVEC          236   PROGRAM*       10/50     11/34 L
        A5TEMP         37   TABLES         96/30 L   97/16 S   97/31
        BCTEMP         50   TABLES        104/27 D
        BCTMP         372   PROGRAM*       61/19 L   62/17 S   64/28
        BIASN        3727   PROGRAM*       77/41 S   78/51     79/48     87/08 D   88/44 S   89/41
        BLANK        1733   PROGRAM*       10/25     43/28 L
        BLKCOM          0   TABLES          3/12 L
        BOT.1        1701   PROGRAM*       42/21 L   42/29
        BSPFLAG        54   TABLES         24/47 S   69/39 S   69/46    108/34 L  110/23
        BUILDOT      1670   PROGRAM*       27/57     28/35     29/09     41/50 L   42/50
        BVEC          270   PROGRAM*       10/51     12/10 L
        B1TEMP       3726   PROGRAM*       41/47 D   42/39 S   42/44
        B4TMP        3723   PROGRAM*      119/06 D  123/37 S  123/49
        B6T            52   TABLES        108/33 L  108/42 S  110/57
        CDD             0   EXTERNAL*     119/28
        CERMSG       3523   PROGRAM*      119/44    119/55 L
        CHKEXT        735   PROGRAM*       97/30     97/55 L
        CHKL          740   PROGRAM*       98/06 L   98/11
        CIO=            0   EXTERNAL*     102/06    119/38
        COL1VEC       112   PROGRAM*       10/05 L   43/25
        CONVERT      1120   PROGRAM*       46/33     66/37     68/44     77/39     79/40     87/38     89/12     99/19
                                           47/47     68/22     69/35     77/47     79/47     88/31     89/18
                                           65/22     68/28     72/49     77/56     81/44     88/42     89/24
                                           66/28     68/36     76/46     79/25     81/53     88/50     98/53 L
        CONVERT1     1126   PROGRAM*       99/07 L   99/16
        CONVERT2     1130   PROGRAM*       99/03     99/12 L
        CORGTAB        31   PROGRAM*        5/06 L   67/09     90/09    116/40    121/03
                                           27/28 S   70/44    109/48    120/07    124/19
        CO.ER           0   EXTERNAL*      39/01     39/19
        CO.STA          0   EXTERNAL*      26/25     33/15     33/24
        CP.ERCT         0   EXTERNAL*     119/25
        CP.NFLS         0   EXTERNAL*     120/41
        DATA.TXT     2420   PROGRAM*       28/28 S   71/57 L   72/12     72/32     73/13
        DBB          3601   PROGRAM*      122/33    123/23 L  124/06    125/16    125/25
        DBB.1        3604   PROGRAM*      123/25    123/31 L
        DEBUG           0                   6/12 D    6/45     60/15    105/22    118/40
        DELAY         434   PROGRAM*       75/31 L   76/24
        DIRECT          0   EXTERNAL*      24/35
        DISLOC        554   PROGRAM*       64/42 L   64/52 S   64/57
        DVEC          322   PROGRAM*       10/54     12/45 L
        ENAME        3723   PROGRAM*       91/48 D   91/55 S   92/48     93/16
        ENTRCN        511   PROGRAM*       91/37 L   91/44     93/17     93/40
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   127
        SYMBOLIC REFERENCE TABLE. 
  
        ENTRCP        676   PROGRAM*       91/10 L   92/10     92/24     92/37     92/53
                                           91/27     92/17     92/30     92/44     93/07
        ENTRLN          4                  91/44 D   93/42
        ENTRLP         12                  91/27 D   93/09
        ENTRRN        533   PROGRAM*       91/32 L   93/41
        ENTRRP        466   PROGRAM*       91/05 L   93/08
        ENTRY.          0   EXTERNAL*       1/52 X   39/04     92/20     93/25
        ERRLINE        25   TABLES          3/20 L   24/52 S   24/55 S  118/04 S  118/10
        EVAL          266   PROGRAM*       57/47     63/29     65/49     94/25 L   95/23
        EVEC          354   PROGRAM*       10/55     13/22 L
        EV.1          267   PROGRAM*       94/26 L   95/14     95/16
        EV.2          272   PROGRAM*       94/33 L   94/39
        EV.3          276   PROGRAM*       94/36     94/40 L
        EV.4          710   PROGRAM*       94/30     94/48 L
        EV.5          711   PROGRAM*       94/43     94/51 L
        EV.6          550   PROGRAM*       95/06     95/11 L
        EV.7          622   PROGRAM*       95/12     95/21 L
        EX.NO        3555   PROGRAM*      121/28    122/19 L  122/31
        EX.ONE       3556   PROGRAM*      121/37    122/07    122/22 L
        EX.100       3663   PROGRAM*      119/48    125/48    125/53 L
        EX.12        3514   PROGRAM*       25/18    119/42 L
        EX.20        1057   PROGRAM*      119/24    120/02 L
        EX.30        1062   PROGRAM*      120/13 L  120/19    120/31
        EX.31        1030   PROGRAM*      120/15    120/24 L
        EX.40        3526   PROGRAM*      120/26    120/35 L
        EX.45        3532   PROGRAM*      120/48    120/51 L
        EX.50        3537   PROGRAM*      121/12 L  121/15    121/18    122/19    122/23    123/18
        EX.51        3546   PROGRAM*      121/16    121/50 L
        EX.52         672   PROGRAM*      121/19    121/32 L  122/44
        EX.53         721   PROGRAM*      121/21    121/42 L  121/54
        EX.54        3553   PROGRAM*      121/51    122/10 L  122/50
        EX.55         717   PROGRAM*      122/12    122/54 L
        EX.60        3571   PROGRAM*      121/13    123/01 L
        EX.61        3573   PROGRAM*      123/02    123/06 L
        EX.62        3576   PROGRAM*      123/06    123/12 L
        EX.63        3577   PROGRAM*      123/11    123/14 L
        EX.64        3620   PROGRAM*      123/01    124/11 L
        EX.65        3626   PROGRAM*      124/27 L  124/30    124/32    124/43
        EX.66        3633   PROGRAM*      124/43 L  125/14    125/20
        EX.67        3634   PROGRAM*      124/39    124/45 L
        EX.68        3646   PROGRAM*      124/28    125/24 L
        EX.70        3561   PROGRAM*      121/46    122/33 L  122/55    123/10    123/13
        EX.70A       3613   PROGRAM*      123/46    123/49 L
        EX.71        3564   PROGRAM*      122/35    122/37 L
        EX.72        3567   PROGRAM*      122/40    122/46 L
        EX.80        3651   PROGRAM*      124/12    125/24    125/26    125/32 L
        EX.90        3661   PROGRAM*      119/36    119/47    120/03    125/34    125/41    125/47 L
        EX.999       3664   PROGRAM*       25/06     25/16    125/55 L
        FA=LOL          0   EXTERNAL*      25/25     31/51     37/07     42/43    101/38    110/48    118/29
                                           31/27     32/40     39/31     69/08    101/39    118/10
        FA=NPG          0   EXTERNAL*      25/24
        FFLAG          40   PROGRAM*        5/13 L   43/30 S   44/06 S   47/02 S   48/08 S   76/07 S  106/36 S
                                            5/14     43/50 S   46/25 S   47/39 S   69/34 S  104/36
        FLVEC         204   PROGRAM*       10/49 L   43/45     43/56
        FNAME        3735   PROGRAM*       77/17     79/08     79/19     79/29 S   87/14 D   88/15     88/23 S
        FOFLAG       3723   PROGRAM*      119/05 D  120/10 S  120/24
        FOTEXT       3247   PROGRAM*       68/51     69/52     73/57     85/32    106/31 L  107/20    107/26    120/18
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   128
        SYMBOLIC REFERENCE TABLE. 
  
        FOTEXT1      3270   PROGRAM*      106/43    107/22 L
        FOTEXT2      3253   PROGRAM*      106/33    106/39 L
        FOTEXT3      3264   PROGRAM*      107/07    107/11 L
        FPN          3730   PROGRAM*       78/52     79/34 S   87/09 D   88/55 S   89/54
        FREEMEM        34   PROGRAM*        5/09 L   67/18    116/48    120/42    124/13
                                           30/48 S   90/11    118/24 S  123/54
        FTNNOP.         0   EXTERNAL*       1/52 X   92/31
        FTNRPV       1667   PROGRAM*       39/51     40/06 L
        FTNXAS       1146   PROGRAM*       22/01 E   22/01 L  125/55
        FUNTYPE         0   EXTERNAL*      38/30
        FVEC          406   PROGRAM*       10/56     14/04 L
        FV.LGO          0   EXTERNAL*       1/53 X   25/14     28/06     68/52    102/03    107/05    120/02    125/38
                                           25/03     25/54     30/18     84/18    105/26    119/34    123/44
        F.CMPS          0   EXTERNAL*       1/54 X   43/09    100/27
        F.LGO           0   EXTERNAL*       1/55 X   26/50     30/22     68/55    102/06    107/09    119/43    123/47
                                           25/56     28/16     34/18     84/20    105/30    119/38    119/44    125/42
        GLAPR          27   PROGRAM*        5/04 L   32/14 S   97/06
        ILINE        3743   PROGRAM*        5/02 D   27/27 S   32/02 S   42/06 S   43/11    100/29    110/54 S
                                           25/32     28/24 S   32/33     42/35 S   43/15    100/30    112/17
                                           25/44     31/25 S   37/08     43/09    100/27    103/35 S
        ILINEB         56   TABLES        112/09 L  112/16 S  112/26
        ILL.1        3447   PROGRAM*      118/03 L  118/45
        ILL.2        3452   PROGRAM*      118/09 L  118/30
        INITL        1721   PROGRAM*       22/55     38/20     43/08 L   65/03     69/10     80/10    104/31    118/15
                                           32/09     39/12     47/22     65/42     75/12     90/33    116/01    118/27
                                           32/22     39/17     47/26     66/53     77/07     90/39    116/13
                                           35/04     39/28     48/20     68/04     79/03     93/12    116/31
                                           38/17     39/32     48/43     69/07     79/22     93/45    117/14
        IOAPLN          0   EXTERNAL*      24/40
        IOCARD       1575   PROGRAM*       25/27     25/31     25/43     32/55     34/24     37/04 L   37/09
        IOCTR          42   PROGRAM*        5/15 L   24/45 S   44/14
        ISHIFT          5                   5/01 D   24/54     32/18    100/27    110/11 S
                                            5/02     31/32     43/09    109/52 S  110/52
        IVEC          440   PROGRAM*       11/03     14/42 L
        JOL          3361   PROGRAM*      112/05    112/14 L
        JOL0         3360   PROGRAM*      112/12 L  112/33    112/35    114/07
        JOL1         3364   PROGRAM*      112/20 L  112/24
        JOL2         3375   PROGRAM*      112/38    112/40    112/43 L  112/50
        JOL3         3405   PROGRAM*      113/08 L  113/12
        JOL4         3407   PROGRAM*      113/14 L  113/24
        JOL4A        3410   PROGRAM*      113/14    113/17 L
        JOL5         3415   PROGRAM*      113/33 L  113/40    113/45    113/50
        JOL5A        3416   PROGRAM*      113/33    113/36 L
        JOL6         3424   PROGRAM*      113/44    113/52 L
        JOL7         3430   PROGRAM*      114/02    114/06 L
        JTEND           0                  60/15 D   60/16 F
        K.           2421   PROGRAM*       72/01 L   72/13     72/43 S
        LABEL           0   EXTERNAL*      96/27 X   97/24
        LABEL.          0   EXTERNAL*      48/11
        LDUSE          43   PROGRAM*        5/16 L   26/03
        LDUSE6         17   PROGRAM*        4/31 L    5/16
        LEVEL2          0   EXTERNAL*      22/14    124/11
        LFL            27                   5/18 D    5/20
        LINE         3736   PROGRAM*        4/57 D   25/25     31/51     37/07     69/08    109/52 S  110/41 S  118/03 S
                                            5/02     31/27     32/18 S   39/31    109/05 S  110/11 S  110/48
                                           24/54 S   31/41 S   32/40     42/43    109/31 S  110/16 S  110/52 S
        LINESIZE       17                   5/03 D    5/05     43/09    100/27
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   129
        SYMBOLIC REFERENCE TABLE. 
  
        LINKTAB        33   PROGRAM*        5/08 L   30/37 S  123/07
        LINLIM       7777                  46/08 D   47/01
        LOCNAM        256   PROGRAM*       24/25 L   28/32
        LORGTAB        32   PROGRAM*        5/07 L   28/21     70/15     73/42    109/46
                                           28/12 S   44/19     70/22     76/34    120/25
        LRB            31                   5/19 D    5/20
        LVEC          472   PROGRAM*       11/07     15/19 L
        LWAWORK         0   EXTERNAL*      24/41
        L3.ARIT      2047   PROGRAM*       13/18     14/38     15/15     54/20 L
        L3.BJP        457   PROGRAM*       15/45     16/43     50/19 L   75/05
        L3.BNK        233   PROGRAM*       51/50     52/12 L
        L3.BNM1       337   PROGRAM*       51/34     51/36 L
        L3.BNM2       345   PROGRAM*       51/52     51/54 L
        L3.BNM3       350   PROGRAM*       51/57     52/06 L
        L3.BOOL       333   PROGRAM*       12/40     51/24 L
        L3.CNT       2042   PROGRAM*       10/53     50/47 L
        L3.DRL        376   PROGRAM*       54/57     55/15 L
        L3.ED        2011   PROGRAM*       13/27     47/28 L
        L3.EDB       2032   PROGRAM*       47/41     48/05 L
        L3.EDC       2037   PROGRAM*       48/13     48/17 L
        L3.EQ         563   PROGRAM*       20/40     49/38 L
        L3.EQU        667   PROGRAM*       20/34     69/20 L
        L3.JP         175   PROGRAM*       11/05     48/33 L
        L3.JVEC      2071   PROGRAM*       56/22     56/43     58/27 L   94/54
        L3.MX         404   PROGRAM*       16/30     52/35 L
        L3.PUN        352   PROGRAM*       17/11     17/47     19/35     53/25 L   54/31     55/02
        L3.RJ         413   PROGRAM*       18/08     45/35 L
        L3.RJT       1752   PROGRAM*       45/37     46/15 L
        L3.RJTA      2004   PROGRAM*       47/15     47/18 L
        L3.RJTB      1771   PROGRAM*       46/27     46/47 L
        L3.RJTE      1774   PROGRAM*       46/49     46/55 L   77/06
        L3.RJTLT     2002   PROGRAM*       47/05     47/12 L
        L3.RWX        377   PROGRAM*       11/20     55/16 L
        L3.RX         320   PROGRAM*       18/24     54/55 L
        L3.SC1        367   PROGRAM*       52/52     53/05 L
        L3.SC2        370   PROGRAM*       52/51     53/08 L
        L3.SET        756   PROGRAM*       18/31     18/33     19/03     56/12 L
        L3.SH         404   PROGRAM*       12/06     15/52     52/36 L
        L3.SNOM       365   PROGRAM*       52/47     52/55 L
        L3.S1         524   PROGRAM*       56/27 L   58/29     58/31     59/18
        L3.S1TB       557   PROGRAM*       55/54 L   56/32
        L3.S11M       615   PROGRAM*       57/37 L   59/46
        L3.S11P       617   PROGRAM*       57/43 L   59/26     59/28     59/30     59/32     59/34     59/36     59/38
        L3.S11Z       617   PROGRAM*       57/42 L   59/24
        L3.S3EX       441   PROGRAM*       56/51     57/55 L
        L3.S3JT      2051   PROGRAM*       56/46     56/50 L
        L3.S3TB       751   PROGRAM*       56/02 L   56/50
        L3.S6TB       436   PROGRAM*       56/07 L   57/27
        L3.S7         617   PROGRAM*       56/36     56/52     57/08     57/14     57/26     57/45 L
        L3.S7.1A      617   PROGRAM*       57/44 L   58/39     58/47     58/55     59/06     59/14     59/40     60/07
                                           58/33     58/41     58/49     58/57     59/08     59/16     59/42     60/09
                                           58/35     58/43     58/51     59/02     59/10     59/20     59/54     60/11
                                           58/37     58/45     58/53     59/04     59/12     59/22     59/56     60/13
        L3.UCJP       416   PROGRAM*       45/42 L   48/42     49/40     49/48
        L3.VFD       2154   PROGRAM*       11/18     61/38 L
        L3.V1        2156   PROGRAM*       61/41     61/46 L   61/49
        L3.V12        522   PROGRAM*       62/18     63/27 L
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   130
        SYMBOLIC REFERENCE TABLE. 
  
        L3.V2        2161   PROGRAM*       61/53 L   64/34
        L3.V20        444   PROGRAM*       63/07     63/52 L
        L3.V21        575   PROGRAM*       63/37 L   63/54
        L3.V22        576   PROGRAM*       63/39 L   63/47
        L3.V29        446   PROGRAM*       63/57 L   64/08
        L3.V3        2162   PROGRAM*       61/55 L   62/07
        L3.V30        640   PROGRAM*       63/14 L   64/04
        L3.V40       2211   PROGRAM*       63/22     63/43     64/03     64/12 L
        L3.V41       2215   PROGRAM*       64/22 L   64/24
        L3.V5         470   PROGRAM*       62/25     62/54 L
        L3.V50       2217   PROGRAM*       62/50     63/32     64/13     64/20     64/27 L
        L3.V6         473   PROGRAM*       62/32     63/06 L
        L3.V7        2202   PROGRAM*       62/37 L   62/44
        L3.V8        2206   PROGRAM*       62/47 L   63/01     63/09
        L3.V9         445   PROGRAM*       62/57     63/54 L
        L3.XJP        425   PROGRAM*       11/29     16/12     17/14     17/32     49/08 L
        L4VEC        1035   PROGRAM*       20/31     20/47 L
        L4.CKJT      1020   PROGRAM*      116/06    116/11 L
        L4.CKL       1014   PROGRAM*       64/35     65/24     65/50    115/21 L
        L4.CKRB      1015   PROGRAM*       45/47     48/01     50/02     57/48    115/57 L
                                           46/43     49/20     50/37     78/57
        L4.COM       3431   PROGRAM*      116/19    116/37 L
        L4.LAF       3434   PROGRAM*      116/22    116/47 L
        L4.PROG       602   PROGRAM*      116/16    116/27 L
        L4.15        3210   PROGRAM*       16/56     52/07     53/09     55/25     57/33    104/31 L
                                           51/02     52/17     53/39     57/31     58/02
        L5VEC        1067   PROGRAM*       21/10     21/27 L
        L.ADF          33   FTNTEXT        35/35
        L.DIMP         14   FTNTEXT        73/01
        L.ENTR          0   EXTERNAL*      29/43
        L.EXT           0   EXTERNAL*      30/30     31/29     98/01
        L.FCLX          6   FTNTEXT        85/52     86/18
        L.FIT6         51   FTNTEXT        83/35     85/52     86/18     86/22
        L.NAME         52   FTNTEXT        22/07     28/48     29/25     30/47     31/36     46/21     47/35     97/55
        L.PRFX         17                   3/31 D    4/06      4/22     25/56    119/43
        L.PROG          1   TABLES          3/13 L   27/12
        L.PROGP        16   TABLES          3/16 L   39/22     39/52
        L.RA           22   FTNTEXT        28/55     28/57     29/54     33/09     33/31     34/38
        L.RB            7   FTNTEXT        66/17     73/31     90/02    109/57    116/18
        L.RL            2   FTNTEXT        29/54     73/40     89/57     97/35    109/37    116/03
        L.STL           7   FTNTEXT        33/44
        L.TSS           0   EXTERNAL*      29/29
        L.WEXT         44                   9/53 D   34/18
        MEMEND         36   PROGRAM*        5/11 L   26/56     30/34     90/13    118/20    123/55
                                           24/50 S   29/47     67/19    116/50    120/53 S  124/14
        MEMORY       3723   PROGRAM*        4/52 L    4/56      4/57      5/05
        MEMSTRT        30   PROGRAM*        5/05 L   26/02     27/20     29/18 S   29/46     30/33    118/19
        MOVMAC          0                   6/45 D    6/53 F    7/31 F
        MR.CLEAN     3167   PROGRAM*      101/15 D
        MSG=            0   EXTERNAL*     119/16    119/33
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   131
        SYMBOLIC REFERENCE TABLE. 
  
        MSLEN           1                  23/12 D   49/07 D   55/04 D   61/23 D   69/28 D   87/55 D   97/29 D  119/56 D
                                           24/24 D   49/37 D   55/14 D   62/53 D   69/45 D   91/04 D   97/54 D  119/50 D
                                           25/42 D   50/18 D   55/53 D   63/05 D   71/08 D   91/09 D   98/17 D  120/01 D
                                           37/24 D   51/23 D   56/01 D   63/13 D   71/34 D   91/31 D   98/52 D  120/23 D
                                           38/04 D   52/11 D   56/06 D   63/26 D   71/39 D   91/36 D   99/39 D  121/31 D
                                           43/49 D   52/34 D   56/11 D   63/36 D   75/30 D   94/24 D  103/21 D  121/41 D
                                           44/04 D   52/54 D   56/26 D   63/51 D   75/35 D   94/47 D  103/33 D  122/53 D
                                           44/35 D   53/24 D   57/36 D   64/41 D   76/57 D   95/10 D  115/20 D
                                           45/34 D   54/34 D   57/54 D   65/13 D   79/57 D   95/20 D  116/10 D
                                           48/32 D   54/54 D   61/18 D   69/19 D   87/21 D   97/11 D  116/26 D
        MSORG         717   PROGRAM*       23/12 D   49/07 D   55/04 D   61/23 D   69/28 D   87/55 D   97/29 D  119/56 D
                                           24/24 D   49/37 D   55/14 D   62/53 D   69/45 D   91/04 D   97/54 D  119/50 D
                                           25/42 D   50/18 D   55/53 D   63/05 D   71/08 D   91/09 D   98/17 D  120/01 D
                                           37/24 D   51/23 D   56/01 D   63/13 D   71/34 D   91/31 D   98/52 D  120/23 D
                                           38/04 D   52/11 D   56/06 D   63/26 D   71/39 D   91/36 D   99/39 D  121/31 D
                                           43/49 D   52/34 D   56/11 D   63/36 D   75/30 D   94/24 D  103/21 D  121/41 D
                                           44/04 D   52/54 D   56/26 D   63/51 D   75/35 D   94/47 D  103/33 D  122/53 D
                                           44/35 D   53/24 D   57/36 D   64/41 D   76/57 D   95/10 D  115/20 D
                                           45/34 D   54/34 D   57/54 D   65/13 D   79/57 D   95/20 D  116/10 D
                                           48/32 D   54/54 D   61/18 D   69/19 D   87/21 D   97/11 D  116/26 D
        MVEC          524   PROGRAM*       11/08     15/57 L
        M.NCB         177   FTNTEXT        28/33
        NEGFLAG      3727   PROGRAM*       94/21 D   94/27 S   94/51
        NFLAG          41   PROGRAM*        5/14 D   43/12     47/04 S   48/47 S   71/43
                                           43/02 S   45/49 S   48/09 S   71/17     73/12
        NMLG          505   PROGRAM*       66/36     68/41     77/43     78/06     81/50     88/41     89/05     89/23
                                           68/26     68/43     77/45     78/11     87/56 L   88/46     89/07
                                           68/27     72/27     77/52     78/13     88/03     88/48     89/15
                                           68/33     77/23     77/54     78/20     88/35     88/56     89/17
                                           68/35     77/37     78/03     79/24     88/37     89/01     89/21
        NMLREF       1035   PROGRAM*       72/26     77/34     78/32     87/22 L   87/35     88/21     88/40
        NMLR.1       1044   PROGRAM*       87/25     87/36 L
        NMLR.2       1041   PROGRAM*       87/28 L   87/46
        NNAME        3723   PROGRAM*       66/19 S   66/43     77/16     78/34     87/04 D   88/28 S
                                           66/30 S   66/51     78/26 S   78/48     88/14     89/30
        NOBINPO      1720   PROGRAM*       13/46     14/26     43/03 L   69/23     70/27     73/24
                                           13/57     21/31     68/54     69/54     70/33     74/02
                                           14/10     25/09 S   68/57     70/25     70/37
        NOEND        3476   PROGRAM*       43/10    100/28    119/16 L
        NOENDMSG     3472   PROGRAM*      119/11 L  119/16
        NOPS.           0   EXTERNAL*       1/52 X   92/45
        NVEC          556   PROGRAM*       11/09     16/35 L
        N.COM           0   EXTERNAL*      26/55
        N.FERR          0   EXTERNAL*      25/13
        N.FILES         0   EXTERNAL*       1/56 X   32/26     33/06     33/26     34/25     39/21
        N.FP            0   EXTERNAL*       1/57 X
        N.LRB           7                   3/09 D    3/14     28/36     28/43
        N.STL          14   FTNTEXT         9/38      9/40     33/57
        OBJIMULT        1                   3/27 D   22/18
        OCSCAN       1734   PROGRAM*       43/34 L   43/41     44/13     44/30
        OCSCAN2      1742   PROGRAM*       43/37     43/42 L
        OCTEMP         47   TABLES        104/25 L  104/27    104/28    105/14 S  105/40
        OFLOMSG      3464   PROGRAM*      118/29    118/33 L
        OLIST           0   EXTERNAL*       2/01 X   25/22     32/40     39/31     69/05    125/47
                                           25/02     31/18     37/07     42/43    101/34
        ORGL001       157   PROGRAM*       10/12 D   38/04     38/04     38/04 D
        ORGL002       167   PROGRAM*       10/24 D   23/12     23/12     23/12 D
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   132
        SYMBOLIC REFERENCE TABLE. 
  
        ORGL003       203   PROGRAM*       10/38 D   48/32     48/32     48/32 D
        ORGL004       235   PROGRAM*       11/24 D   52/11     52/11     52/11 D
        ORGL005       255   PROGRAM*       11/51 D   71/08     71/39     71/39 D  119/56
                                           71/08     71/08 D   71/39    119/56    119/56 D
        ORGL006       265   PROGRAM*       12/04 D   24/24     24/24     24/24 D
        ORGL007       312   PROGRAM*       12/31 D   94/24     97/11     97/11 D   98/17
                                           94/24     94/24 D   97/11     98/17     98/17 D
        ORGL008       317   PROGRAM*       12/39 D   25/42     25/42     25/42 D
        ORGL009       322   PROGRAM*       12/44 D   54/54     54/54     54/54 D
        ORGL010       332   PROGRAM*       12/56 D   37/24     37/24     37/24 D
        ORGL011       351   PROGRAM*       13/16 D   51/23     51/23     51/23 D
        ORGL012       357   PROGRAM*       13/26 D   53/24     53/24     53/24 D
        ORGL013       364   PROGRAM*       13/33 D   43/49     43/49     43/49 D
        ORGL014       371   PROGRAM*       13/40 D   52/54     52/54     52/54 D
        ORGL015       373   PROGRAM*       13/45 D   61/18     61/18     61/18 D
        ORGL016       403   PROGRAM*       13/56 D   55/14     55/14     55/14 D
        ORGL017       412   PROGRAM*       14/09 D   52/34     52/34     52/34 D
        ORGL018       422   PROGRAM*       14/19 D   45/34     45/34     45/34 D
        ORGL019       424   PROGRAM*       14/25 D   71/34     71/34     71/34 D
        ORGL020       435   PROGRAM*       14/36 D   49/07     49/07     49/07 D   75/30     75/30     75/30 D
        ORGL021       443   PROGRAM*       14/46 D   56/06     56/06     56/06 D   57/54     57/54     57/54 D
        ORGL022       456   PROGRAM*       15/02 D   63/51     63/51     63/51 D   75/35     75/35     75/35 D
        ORGL023       467   PROGRAM*       15/13 D   50/18     50/18     50/18 D   91/04     91/04     91/04 D
        ORGL024       472   PROGRAM*       15/20 D   62/53     62/53     62/53 D
        ORGL025       475   PROGRAM*       15/25 D   63/05     63/05     63/05 D
        ORGL026       515   PROGRAM*       15/43 D   79/57     87/55     87/55 D   91/36
                                           79/57     79/57 D   87/55     91/36     91/36 D
        ORGL027       521   PROGRAM*       15/50 D   44/35     44/35     44/35 D
        ORGL028       524   PROGRAM*       15/56 D   63/26     63/26     63/26 D
        ORGL029       534   PROGRAM*       16/10 D   56/26     56/26     56/26 D   91/31     91/31     91/31 D
        ORGL030       553   PROGRAM*       16/28 D   65/13     76/57     76/57 D   95/10
                                           65/13     65/13 D   76/57     95/10     95/10 D
        ORGL031       556   PROGRAM*       16/34 D   64/41     64/41     64/41 D
        ORGL032       562   PROGRAM*       16/41 D   55/53     55/53     55/53 D
        ORGL033       574   PROGRAM*       16/54 D   49/37     49/37     49/37 D
        ORGL034       605   PROGRAM*       17/09 D   63/36     63/36     63/36 D  116/26    116/26    116/26 D
        ORGL035       614   PROGRAM*       17/21 D   54/34     54/34     54/34 D
        ORGL036       623   PROGRAM*       17/30 D   57/36     57/36     57/36 D   95/20     95/20     95/20 D
        ORGL037       637   PROGRAM*       17/45 D   44/04     44/04     44/04 D
        ORGL038       643   PROGRAM*       17/56 D   63/13     63/13     63/13 D
        ORGL039       653   PROGRAM*       18/06 D   55/04     55/04     55/04 D
        ORGL040       671   PROGRAM*       18/23 D   61/23     61/23     61/23 D   69/19     69/19     69/19 D
        ORGL041       674   PROGRAM*       18/28 D  121/31    121/31    121/31 D
        ORGL042       720   PROGRAM*       18/53 D   91/09     94/47     94/47 D  122/53
                                           91/09     91/09 D   94/47    122/53    122/53 D
        ORGL043       723   PROGRAM*       19/01 D  121/41    121/41    121/41 D
        ORGL044       747   PROGRAM*       19/26 D   97/29     97/54     97/54 D  103/21
                                           97/29     97/29 D   97/54    103/21    103/21 D
        ORGL045       754   PROGRAM*       19/33 D   56/01     56/01     56/01 D
        ORGL046       762   PROGRAM*       20/12 D   56/11     56/11     56/11 D
        ORGL047      1000   PROGRAM*       20/29 D   69/28     69/28     69/28 D   69/45     69/45     69/45 D
        ORGL048      1034   PROGRAM*       20/38 D  103/33    115/20    115/20 D  116/10    119/50    119/50 D  120/23
                                          103/33    103/33 D  115/20    116/10    116/10 D  119/50    120/23    120/23 D
        ORGL049      1053   PROGRAM*       21/09 D   87/21     87/21     87/21 D
        ORGL050      1066   PROGRAM*       21/30 D  120/01    120/01    120/01 D
        ORGL051      1144   PROGRAM*       21/35 D   98/52     98/52     98/52 D   99/39     99/39     99/39 D
        ORGN001         0                  10/12 D   23/12     24/24     25/42     37/24     38/04     38/04     38/04 D
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   133
        SYMBOLIC REFERENCE TABLE. 
  
        ORGN002         0                  10/24 D   23/12     23/12     23/12 D
        ORGN003         0                  10/38 D   25/42     43/49     44/35     48/32     48/32     48/32 D
        ORGN004         0                  11/24 D   52/11     52/11     52/11 D
        ORGN005         0                  11/51 D   51/23     55/04     56/26     63/05     65/13     71/08 D   91/04
                                           44/04     52/34     55/14     57/36     63/13     69/19     71/34     91/31
                                           45/34     52/54     55/53     57/54     63/26     69/28     71/39     95/20
                                           49/07     53/24     56/01     61/18     63/36     69/45     71/39    119/56
                                           49/37     54/34     56/06     61/23     63/51     71/08     71/39 D  119/56
                                           50/18     54/54     56/11     62/53     64/41     71/08     75/30    119/56 D
        ORGN006         0                  12/04 D   24/24     24/24     24/24 D
        ORGN007         0                  12/31 D   79/57     91/09     94/24     95/10     97/11 D   98/17 D
                                           75/35     87/21     91/36     94/24 D   97/11     98/17
                                           76/57     87/55     94/24     94/47     97/11     98/17
        ORGN008         0                  12/39 D   25/42     25/42     25/42 D
        ORGN009         0                  12/44 D   54/54     54/54     54/54 D
        ORGN010         0                  12/56 D   37/24     37/24     37/24 D
        ORGN011         0                  13/16 D   45/34     49/37     51/23     51/23 D
                                           44/04     49/07     50/18     51/23
        ORGN012         0                  13/26 D   43/49     44/35     52/54     53/24     53/24     53/24 D
        ORGN013         0                  13/33 D   43/49     43/49     43/49 D
        ORGN014         0                  13/40 D   44/35     52/54     52/54     52/54 D
        ORGN015         0                  13/45 D   61/18     61/18     61/18 D
        ORGN016         0                  13/56 D   54/34     55/04     55/14     55/14     55/14 D
        ORGN017         0                  14/09 D   52/34     52/34     52/34 D
        ORGN018         0                  14/19 D   45/34     45/34     45/34 D
        ORGN019         0                  14/25 D   71/34     71/34     71/34 D
        ORGN020         0                  14/36 D   49/07     49/07     49/07 D   75/30     75/30     75/30 D
        ORGN021         0                  14/46 D   56/01     56/06     57/54     57/54 D
                                           55/53     56/06     56/06 D   57/54
        ORGN022         0                  15/02 D   56/11     62/53     63/26     63/51     69/19     75/35 D
                                           49/37     56/26     63/05     63/36     63/51 D   75/35
                                           50/18     57/36     63/13     63/51     64/41     75/35
        ORGN023         0                  15/13 D   50/18     50/18     50/18 D   91/04     91/04     91/04 D
        ORGN024         0                  15/20 D   62/53     62/53     62/53 D
        ORGN025         0                  15/25 D   63/05     63/05     63/05 D
        ORGN026         0                  15/43 D   79/57     79/57 D   87/55     91/36     91/36 D
                                           76/57     79/57     87/55     87/55 D   91/36
        ORGN027         0                  15/50 D   44/35     44/35     44/35 D
        ORGN028         0                  15/56 D   63/26     63/26     63/26 D
        ORGN029         0                  16/10 D   56/11     56/26     56/26     56/26 D   91/31     91/31     91/31 D
        ORGN030         0                  16/28 D   65/13     65/13 D   76/57     76/57 D   95/10
                                           61/23     65/13     69/45     76/57     95/10     95/10 D
        ORGN031         0                  16/34 D   64/41     64/41     64/41 D
        ORGN032         0                  16/41 D   55/53     55/53     55/53 D
        ORGN033         0                  16/54 D   49/37     49/37     49/37 D
        ORGN034         0                  17/09 D   63/13     63/36    116/26    116/26 D
                                           57/36     63/36     63/36 D  116/26
        ORGN035         0                  17/21 D   54/34     54/34     54/34 D
        ORGN036         0                  17/30 D   56/11     57/36     57/36     57/36 D   95/20     95/20     95/20 D
        ORGN037         0                  17/45 D   44/04     44/04     44/04 D
        ORGN038         3                  17/56 D   63/13     63/13     63/13 D  121/31    121/41    122/53
        ORGN039         0                  18/06 D   55/04     55/04     55/04 D
        ORGN040         0                  18/23 D   61/23     61/23     61/23 D   69/19     69/19     69/19 D
        ORGN041         0                  18/28 D  121/31    121/31    121/31 D
        ORGN042         0                  18/53 D   91/09     91/09 D   94/47    122/53    122/53 D
                                           87/21     91/09     94/47     94/47 D  122/53
        ORGN043         0                  19/01 D  121/41    121/41    121/41 D
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   134
        SYMBOLIC REFERENCE TABLE. 
  
        ORGN044         1                  19/26 D   97/29     97/54     97/54 D  103/21
                                           97/29     97/29 D   97/54    103/21    103/21 D
        ORGN045         1                  19/33 D   56/01     56/01     56/01 D
        ORGN046         1                  20/12 D   56/11     56/11     56/11 D
        ORGN047         2                  20/29 D   69/28     69/28     69/28 D   69/45     69/45     69/45 D
        ORGN048         0                  20/38 D  103/33    115/20    116/10    119/50    120/23
                                           98/52    103/33    115/20    116/10    119/50    120/23
                                           99/39    103/33 D  115/20 D  116/10 D  119/50 D  120/23 D
        ORGN049         3                  21/09 D   87/21     87/21     87/21 D
        ORGN050        31                  21/30 D  120/01    120/01    120/01 D
        ORGN051         1                  21/35 D   98/52     98/52     98/52 D   99/39     99/39     99/39 D
        ORGORD         63                   6/49 D   12/07     13/28 D   14/27     15/27 D   16/44     18/01 D   19/36
                                           10/09     12/07 D   13/35     14/27 D   15/46     16/44 D   18/09     19/36 D
                                           10/09 D   12/34     13/35 D   14/39     15/46 D   16/57     18/09 D   20/14
                                           10/21     12/34 D   13/43     14/39 D   15/53     16/57 D   18/25     20/14 D
                                           10/21 D   12/41     13/43 D   14/48     15/53 D   17/16     18/25 D   20/35
                                           10/31     12/41 D   13/50     14/48 D   16/01     17/16 D   18/34     20/35 D
                                           10/31 D   12/48     13/50 D   15/04     16/01 D   17/23     18/34 D   20/48
                                           11/21     12/48 D   14/01     15/04 D   16/13     17/23 D   18/55     20/48 D
                                           11/21 D   13/01     14/01 D   15/16     16/13 D   17/33     18/55 D   21/12
                                           11/35     13/01 D   14/11     15/16 D   16/31     17/33 D   19/04     21/12 D
                                           11/35 D   13/19     14/11 D   15/22     16/31 D   17/48     19/04 D   21/32
                                           11/53     13/19 D   14/23     15/22 D   16/37     17/48 D   19/28     21/32 D
                                           11/53 D   13/28     14/23 D   15/27     16/37 D   18/01     19/28 D
        ORGTAB          0   EXTERNAL*      27/29     28/33
        OTR          1657   PROGRAM*       39/03     39/27     39/49 L   40/04
        OT.RM           0   EXTERNAL*      32/50     34/55
        OT#RM           6   FTNTEXT        82/11 F   86/27 F
        O.ENTR          0   EXTERNAL*      29/44
        O.EXT           0   EXTERNAL*      30/29     31/28     97/57
        O.GLT           0   EXTERNAL*      97/02
        O.IOT           0   EXTERNAL*      24/46 S   44/27
        O.LRB           2   TABLES          3/14 L   32/11     35/30
        O.TSS           0   EXTERNAL*      29/28
        P             424   PROGRAM*       14/26 L
        PACKID       1133   PROGRAM*       44/08     70/18     75/41     81/31     97/13     99/40 L   99/56
        PAPL         2236   PROGRAM*       11/52     65/34 L
        PAPL1        2242   PROGRAM*       65/36     65/42 L
        PAPL2        2244   PROGRAM*       65/40     65/44 L
        PAXI          265   PROGRAM*       12/05 L
        PBSS          764   PROGRAM*       20/30     69/29 L
        PBSS1         774   PROGRAM*       69/38     69/46 L
        PBSS3         777   PROGRAM*       69/47     69/53 L
        PCOMM        1717   PROGRAM*       10/17     43/01 L
        PDATA         535   PROGRAM*       12/47     65/14 L
        PDAT1         537   PROGRAM*       65/15     65/18 L   65/21
        PDIS         2225   PROGRAM*       12/57     64/45 L
        PDIS1        2231   PROGRAM*       64/50     64/57 L   65/09
        PDXI          351   PROGRAM*       13/17 L
        PEIO          476   PROGRAM*       13/34     80/01 L
        PEIO1         503   PROGRAM*       80/07     80/09 L
        PEND         3501   PROGRAM*       20/13    119/22 L
        PENTRY       1655   PROGRAM*       39/05     39/45 L
        PENTR7       3117   PROGRAM*       93/07 L
        PENTR8       3123   PROGRAM*       91/57     93/16 L
        PENTR9       3133   PROGRAM*       93/40 L
        PENTR.       3067   PROGRAM*       21/36     91/49 L
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   135
        SYMBOLIC REFERENCE TABLE. 
  
        PEQ          1034   PROGRAM*       20/39 L
        PFC           360   PROGRAM*       10/14     10/16     43/50 L
        PFILE        2651   PROGRAM*       32/42     86/49 D
        PFMT         2503   PROGRAM*       14/22     75/19 L
        PFXI          435   PROGRAM*       14/37 L
        PGE           212   PROGRAM*       10/57 L
        PGNAME       2475   PROGRAM*       11/01     75/04 L
        PGNAME1      2501   PROGRAM*       75/12 L   75/23
        PHOL         2316   PROGRAM*       11/02     67/42 L
        PHOL1        2325   PROGRAM*       67/47     68/01     68/04 L
        PIDENT       1175   PROGRAM*       14/47     24/35 L
        PID1         1200   PROGRAM*       24/36     24/40 L
        PID1A        1223   PROGRAM*       25/07     25/13 L
        PID1D        1226   PROGRAM*       25/15     25/22 L
        PID1E        1232   PROGRAM*       25/23     25/27 L
        PID10        1360   PROGRAM*       30/04 L   30/16
        PID10A       1367   PROGRAM*       30/20     30/23 L
        PID11        1370   PROGRAM*       29/45     30/29 L
        PID12        1377   PROGRAM*       30/51 L   31/12
        PID14        1413   PROGRAM*       31/30 L   31/55
        PID15        1415   PROGRAM*       31/35 L   31/43
        PID16        1420   PROGRAM*       31/42     31/44 L
        PID2         1233   PROGRAM*       25/31 L   25/38
        PID2C         313   PROGRAM*       25/43 L   25/49
        PID2D         315   PROGRAM*       25/37     25/46 L
        PID20        1427   PROGRAM*       30/49     31/19     32/07 L
        PID22        1441   PROGRAM*       32/32 L   32/47
        PID23        1452   PROGRAM*       32/38     32/42 L
        PID24        1453   PROGRAM*       32/41     32/44 L
        PID25        1455   PROGRAM*       32/27     32/50 L
        PID25.2      1462   PROGRAM*       33/01     33/04 L
        PID25.3      1527   PROGRAM*       33/25     33/27     34/21 L
        PID25.33     1510   PROGRAM*       33/46 L   33/51
        PID25.36     1520   PROGRAM*       34/08 L   34/16
        PID25.38     1522   PROGRAM*       34/10     34/13 L
        PID25.4      1531   PROGRAM*       32/51     34/19     34/24 L
        PID26        1533   PROGRAM*       34/30 L   34/52
        PID26A       1536   PROGRAM*       34/33     34/36 L
        PID3         1237   PROGRAM*       25/48     25/54 L
        PID3A        1266   PROGRAM*       25/55     26/01     26/51 L
        PID30        1547   PROGRAM*       34/26     34/54 L
        PID30.2      1552   PROGRAM*       35/01     35/03 L
        PID3.2       1245   PROGRAM*       26/08 L   26/12
        PID3.2A      1251   PROGRAM*       26/19 L   26/23
        PID3.2B      1253   PROGRAM*       26/17     26/20     26/25 L
        PID3.3       1256   PROGRAM*       26/31 L   26/34     26/38
        PID3.4       1261   PROGRAM*       26/33     26/40 L
        PID3.5       1263   PROGRAM*       26/26     26/40     26/44 L
        PID8         1333   PROGRAM*       28/46 L   29/11
        PID9         1342   PROGRAM*       28/51     29/15 L
        PID9A        1346   PROGRAM*       29/30 L   29/39
        PID9B        1351   PROGRAM*       29/32     29/39 L
        PID.61       1301   PROGRAM*       27/29 L   28/01
        PID.62       1305   PROGRAM*       27/37     27/40 L
        PID.621      1310   PROGRAM*       27/43     27/50 L
        PID.63       1312   PROGRAM*       27/54     27/56 L
        PID.70       1314   PROGRAM*       27/31     28/05 L
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   136
        SYMBOLIC REFERENCE TABLE. 
  
        PID.701      1321   PROGRAM*       28/13     28/20 L
        PID.71       1326   PROGRAM*       28/32 L   28/37
        PIOC         2536   PROGRAM*       77/18 L   77/20
        PIOM         2534   PROGRAM*       15/03     77/15 L
        PIOMA        2640   PROGRAM*       77/24     79/32 L
        PIOMB        2642   PROGRAM*       77/28     79/37 L
        PIOMC        2643   PROGRAM*       77/31     79/40 L
        PIOMD        2646   PROGRAM*       78/31     79/46 L
        PIOM0        2544   PROGRAM*       77/29     77/33 L
        PIOM1        2546   PROGRAM*       77/37 L   79/30     79/35     79/44
        PIOM10       2631   PROGRAM*       79/10     79/19 L
        PIOM11       2634   PROGRAM*       77/26     79/24 L
        PIOM2        2553   PROGRAM*       77/38     77/45 L
        PIOM3        2560   PROGRAM*       77/46     77/54 L
        PIOM4        2565   PROGRAM*       77/55     78/05 L
        PIOM5        2572   PROGRAM*       78/07     78/13 L
        PIOM6        2577   PROGRAM*       78/14     78/22 L
        PIOM7        2612   PROGRAM*       77/36     77/44     77/53     78/04     78/12     78/21     78/43 L   79/52
        PIOM8        2620   PROGRAM*       78/57 L   79/38
        PIOM9        2622   PROGRAM*       79/02     79/04 L
        PIXI          467   PROGRAM*       15/14 L
        PJP           215   PROGRAM*       11/04 L
        PK1          1135   PROGRAM*       99/42 L   99/50
        PK2          1141   PROGRAM*       99/46     99/51 L
        PLABEL        624   PROGRAM*       10/08     10/08     10/08     10/08     10/08     10/08     10/29
                                           10/08     10/08     10/08     10/08     10/08     10/19     10/30
                                           10/08     10/08     10/08     10/08     10/08     10/20     10/39
                                           10/08     10/08     10/08     10/08     10/08     10/27     44/05 L
                                           10/08     10/08     10/08     10/08     10/08     10/28
        PLAB.1        634   PROGRAM*       44/22     44/24 L
        PLAP         2250   PROGRAM*       15/21     66/04 L
        PLAP1        2251   PROGRAM*       66/06 L   66/09
        PLAP2        2263   PROGRAM*       66/11     66/25 L
        PLAP3        2266   PROGRAM*       66/23     66/32 L
        PLAP4        2272   PROGRAM*       66/33     66/35     66/39 L
        PLDSET       2361   PROGRAM*       15/26     69/04 L
        PLIMIT          0   EXTERNAL*      33/16     34/56
        PLT           515   PROGRAM*       15/44 L
        PLXI          521   PROGRAM*       15/51 L
        PMDFLAG         0   EXTERNAL*      26/16
        PMDUSE         21   PROGRAM*        4/35 L   26/18
        PMI           534   PROGRAM*       16/11 L
        PNAME        2761   PROGRAM*       16/36     88/11 L
        PNAME2       3003   PROGRAM*       88/38     88/46 L
        PNAME2A      3012   PROGRAM*       88/49     89/01 L
        PNAME4       3031   PROGRAM*       88/36     88/57     89/06     89/10     89/22
                                           88/47     89/02     89/09     89/16     89/30 L
        PNAME6       3060   PROGRAM*       89/56     90/27 L
        PNAME7       3062   PROGRAM*       89/55     90/26     90/31 L
        PNE           562   PROGRAM*       16/42 L
        PNL           516   PROGRAM*       12/33     13/42     13/48     20/32     21/11     44/36 L
        PNXI          605   PROGRAM*       17/10 L
        PNZ           607   PROGRAM*       17/13 L
        PORG         2423   PROGRAM*       11/10     72/05 L
        PORGL1       2441   PROGRAM*       72/38     72/41 L
        PORGL2       2442   PROGRAM*       72/40     72/43 L
        PORGT        3723   PROGRAM*       72/03 D   72/29 S   73/06
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   137
        SYMBOLIC REFERENCE TABLE. 
  
        PORG1        2430   PROGRAM*       72/07     72/23 L
        PORG2        2443   PROGRAM*       72/30     72/46 L
        PORG3        2447   PROGRAM*       72/44     72/46     72/48     72/55 L
        PORG4        2461   PROGRAM*       73/02     73/05     73/07     73/30 L
        PORG5        2472   PROGRAM*       73/53     73/56 L
        PORG6        2473   PROGRAM*       72/18     72/21     73/57 L
        PPENTRY      1604   PROGRAM*       17/22     38/29 L
        PPE1         1614   PROGRAM*       38/35     38/42 L
        PPE2         1620   PROGRAM*       38/33     38/49 L
        PPE3         1625   PROGRAM*       38/50     39/01 L
        PPE3A        1627   PROGRAM*       39/02     39/04 L
        PPE4         1640   PROGRAM*       38/32     39/19 L
        PPE4A        1645   PROGRAM*       39/20     39/30 L
        PPL           623   PROGRAM*       17/31 L
        PPXI          637   PROGRAM*       17/46 L
        PREFIX          0   PROGRAM*        4/03 L   22/15     22/48 S   27/11    119/43
                                           22/10 S   22/41 S   25/56    119/29
        PREPI        2332   PROGRAM*       17/57     68/16 L
        PREPIC       2327   PROGRAM*       68/12 L   68/25 S   68/37     68/55     84/20
                                           68/19 S   68/29     68/46     83/30 S
        PREPI1       2353   PROGRAM*       68/34     68/42     68/51 L
        PRF2         1155   PROGRAM*       22/16     22/22 L
        PRF2A        1162   PROGRAM*       22/36     22/38 L
        PRF3         1166   PROGRAM*       22/46     22/48 L
        PRF4         1170   PROGRAM*       22/52     22/54 L
        PRJ           653   PROGRAM*       18/07 L
        PROGNAM         0   EXTERNAL*      22/05     38/06
        PROGRAM        56                   3/06 D   22/34     25/57     32/07     32/20     38/29     70/26    125/32
        PRX           671   PROGRAM*       18/24 L
        PSAI          674   PROGRAM*       18/30 L
        PSBI          675   PROGRAM*       18/32 L
        PSUB          453   PROGRAM*       18/54     75/36 L
        PSUB0        2505   PROGRAM*       46/53     75/42     75/45 L
        PSUB10       2507   PROGRAM*       75/52 L   75/56
        PSUB20       2532   PROGRAM*       76/39     76/40     76/52 L
        PSUB30        544   PROGRAM*       76/54     77/01 L
        PSXI          723   PROGRAM*       19/02 L
        PTRACE        145   PROGRAM*       11/15     38/05 L
        PTRACE1       151   PROGRAM*       38/13 L
        PTYPE        1171   PROGRAM*       22/39     23/01 L
        PUSE         2366   PROGRAM*       19/27     70/05 L
        PUSEA        2365   PROGRAM*       70/03 L   70/30
        PUSE2        2375   PROGRAM*       70/16 L   70/45
        PUSE4        2377   PROGRAM*       70/20 L   70/48
        PUSE4A       2406   PROGRAM*       70/29     70/35 L
        PUSE5        2412   PROGRAM*       70/09     70/39 L
        PUXI          755   PROGRAM*       19/34 L
        PVEC          610   PROGRAM*       11/11     17/15 L
        PWX           232   PROGRAM*       11/19 L
        PZR           235   PROGRAM*       11/28 L
        P.ADF          14   FTNTEXT        35/36
        P.DIMP         51   FTNTEXT        73/03
        P.FP           21   FTNTEXT        28/50
        P.LCM           1   FTNTEXT        35/45     35/50
        P.NFU           5   FTNTEXT        76/08     76/14
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   138
        SYMBOLIC REFERENCE TABLE. 
  
        P.RA           23   FTNTEXT        28/54     29/36     31/09     33/30     35/38     72/51     97/07
                                           28/57     30/11     32/12     34/39     38/11     73/36     98/19
                                           29/03     31/06     33/07     35/32     44/25     73/38    116/20
        P.RB           14   FTNTEXT         5/19     66/16     73/32     79/14     89/57    116/17
                                            5/20     66/46     73/36     87/41    109/42
        P.RL           45   FTNTEXT         5/18     66/45     73/38     87/42     89/57    109/38    116/02    116/20
                                            5/19     72/57     79/13     89/53     97/39    109/42    116/17
        P.TYP          70   FTNTEXT        35/51
        RA.SSW          0   CPUTEXT         3/05      3/06
        RBC          3650   PROGRAM*      124/38 S  125/07    125/28 L
        RBT          3726   PROGRAM*       72/50     73/30     78/41 S   87/07 D   89/51
                                           72/55     78/23     79/05     87/32 S
        RBTEMP         43   TABLES         30/45 S   66/48 S   79/16 S   93/06 S   96/36 S  115/57
                                           47/21 S   67/34 S   87/28     93/38 S   98/18    117/13 S
                                           48/19 S   79/07 S   87/44 S   96/31 L  109/36
        RCARD        3156   PROGRAM*       32/32     32/56     34/30     34/54     37/05    100/25 L  100/37
        RDC=            0   EXTERNAL*      43/09    100/27
        REF          3140   PROGRAM*       45/44     47/33     49/55     66/15     91/53     96/40 L
                                           46/19     49/18     50/35     87/27     94/48     98/26
        REF.X        3137   PROGRAM*       96/34 L   97/47
        RETEMP         51   TABLES        104/28 D
        RJJOL        3357   PROGRAM*       70/35    112/05 L
        RJTFLAG      1745   PROGRAM*       46/09 L   46/29 S   46/57 S   47/43 S   77/05    116/29    117/12
        RJTGTCP      1746   PROGRAM*       46/10 L   47/07     47/20
        RJTSR        1750   PROGRAM*       46/13 L   46/36     46/47     47/40 S   47/54     48/10
                                           46/26 S   46/39     46/56     47/51     48/06
        RJWRL1        165   PROGRAM*       23/13 L   25/08
        RJWRL2        166   PROGRAM*       23/16 L   25/09
        RL$             0                   5/25 D   91/05     91/32
        RL$B           12                   5/29 D   91/05     91/32
        RL$L            2                   5/26 D   33/37     38/15     40/03     48/18     91/05
                                           33/13     34/47     39/16     47/19     90/28
        RL$M            4                   5/27 D
        RL$U           10                   5/28 D   38/41     38/47     38/56     39/09     91/05     91/32
        ROUNDTAB      647   PROGRAM*       55/01     55/05 L
        RSC           323   PROGRAM*       34/42     37/25 L   37/35     37/40     38/08     75/09     88/25
        RSC2          325   PROGRAM*       37/28 L   37/32
        RSTRA0       1654   PROGRAM*       38/52     39/42 L
        RTB          3167   PROGRAM*       22/09     27/38     30/10     31/03    100/54 L  101/13    101/15    125/37
        RVEC          642   PROGRAM*       11/13     17/51 L
        R.EXIT        306   PROGRAM*       97/05     97/09     97/46     97/50     98/18 L
        R.EX1         310   PROGRAM*       98/21     98/23 L
        R.SP1        3145   PROGRAM*       96/46     96/49 L   96/57
        R.SP2        3152   PROGRAM*       96/53     97/02 L
        R.STAN        301   PROGRAM*       96/42     97/12 L
        R.ST1         725   PROGRAM*       97/22     97/31 L   98/14
        SAVA0        1656   PROGRAM*       39/15     39/46 L
        SCRATCH      3723   PROGRAM*        4/56 D   24/21     85/41     87/04     87/07     87/10     87/13     94/21
                                           24/19     41/47     85/42     87/05     87/08     87/11     87/14    119/05
                                           24/20     72/03     85/43     87/06     87/09     87/12     91/48    119/06
        SCRSIZE        13                   4/55 D    4/57      5/05
        SDATA.          0   EXTERNAL*      35/18     35/29
        SETCORE         0   EXTERNAL*      24/54     24/55     32/18    110/52
        SILL         3470   PROGRAM*       98/07    118/36 L
        SKIP2        3175   PROGRAM*       26/51     29/19     31/56    101/33 L  101/37    101/41
        SNAPTEXT        0                 105/22 D  105/23 F  107/01 F
        SNAPUDEF        0                 118/40 D  118/41 F
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   139
        SYMBOLIC REFERENCE TABLE. 
  
        SPACES        654   PROGRAM*       31/33     61/24 L   63/16     64/25    112/56    113/25
        STLTAB          0   EXTERNAL*      26/27
        STOVER       3456   PROGRAM*       29/55     30/41     67/26     90/20    116/55    118/19 L
        STOVSIZE       24   TABLES          3/19 L   24/51 S  118/22
        ST.             0   EXTERNAL*       1/52 X   35/21
        SVEC          674   PROGRAM*       11/14     18/29 L
        SWC            26   PROGRAM*        4/45 E   27/23 S   37/06     43/24 S  103/37 S  110/56 S  112/15
                                            4/45 L   32/39     39/30    100/34 S  110/46    112/12    114/06 S
        SYMBOL          0   EXTERNAL*      33/02     33/28     34/34     96/27 X   97/25
        SYMORD          0   EXTERNAL*      35/22
        SYM1           12                   3/05 D   28/42     29/24     30/23     35/23     38/09     75/45
        S.           2422   PROGRAM*       68/16     68/45     72/02 L   73/52 S
        S.WEXT         46   PROGRAM*        9/38 L    9/53     33/56     34/18
        S.1             0                   9/40 D    9/41      9/43 D    9/44      9/46 D    9/47      9/49 D    9/50
                                            9/40      9/42 D    9/43      9/45 D    9/46      9/48 D    9/49      9/51 D
                                            9/41 D    9/42      9/44 D    9/45      9/47 D    9/48      9/50 D    9/51
        TEMPA0.         0   EXTERNAL*       1/52 X   38/16     38/49     39/11     91/56
        TEMP1        3723   PROGRAM*       24/19 D   27/30     29/08 S   31/49 S   32/29 S   33/46 S   34/49
                                           27/10 S   28/05     29/10     31/52     32/44     33/49
        TEMP2        3724   PROGRAM*       24/20 D
        TEMP3        3725   PROGRAM*       24/21 D   33/35 S   33/55
        TEST            0   FTNTEXT         6/45     11/25 F   19/39 F   54/21 F
        TEXT.ADD       35   PROGRAM*        5/10 L   69/48     73/11     82/04     89/52    104/35    110/22    116/47
                                           28/26 S   71/18     73/51 S   84/48     92/04    105/31    111/03    120/09 S
                                           67/08     71/42     76/01     85/23     93/30    107/11    115/21    120/13
        TLVEC         760   PROGRAM*       12/32     13/41     13/47     20/08 L
        TL.CCOP         0   EXTERNAL*      22/27
        TL.DATE         0   EXTERNAL*      22/25
        TL.TIME         0   EXTERNAL*      22/26
        TNAME        3725   PROGRAM*       77/50 S   78/44     87/06 D   88/33 S   89/31     89/43
        TRACE.          0   EXTERNAL*       1/52 X   39/50     47/03
        T.LAB           6   FTNTEXT        35/48     35/49
        T.1             0                   9/40 D    9/41 D    9/43 D    9/45 D    9/47 D    9/49 D    9/51 D
                                            9/40      9/42      9/44      9/46      9/48      9/50
                                            9/40 D    9/42 D    9/44 D    9/46 D    9/48 D    9/50 D
                                            9/41      9/43      9/45      9/47      9/49      9/51
        USEBB         423   PROGRAM*       71/27 S   71/35 L   71/41     73/17 S
        USECOM       2413   PROGRAM*       70/14     70/41 L
        USENXT        236   PROGRAM*       70/20     71/09 L   71/28     76/38
        USENXT1       240   PROGRAM*       71/13 L   71/16
        USESCM       2371   PROGRAM*       70/10 L   70/13
        USESTAR       246   PROGRAM*       71/40 L   71/51     77/04
        UVEC          726   PROGRAM*       11/16     19/07 L
        VALUE.          0   EXTERNAL*      38/36     38/43
        VAL1         1653   PROGRAM*       38/42     39/40 L
        VAL2         1652   PROGRAM*       38/37     39/38 L
        VNAME        3724   PROGRAM*       66/21 S   66/40     78/33     79/28 S   87/31 S   89/40
                                           66/27 S   78/22     78/50     87/05 D   88/54 S
        WBDATA.        45   PROGRAM*        5/20 L   35/33
        WB.FMT          0   EXTERNAL*      44/17
        WB.LAB          0   EXTERNAL*       2/02 X   32/10
        WEOR         3203   PROGRAM*      102/02 L  102/05    102/08    119/37    125/53
        WRLIST       3272   PROGRAM*       23/15     23/18    108/38 L  108/39    111/06    118/08    125/51
        WRL.1        3300   PROGRAM*      108/51 L  109/01    109/08
        WRL.2        3306   PROGRAM*      108/57    109/11 L
        WRL.3        3313   PROGRAM*      109/14    109/24 L
        WRL.4        3317   PROGRAM*      109/25    109/36 L
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   140
        SYMBOLIC REFERENCE TABLE. 
  
        WRL.41       3322   PROGRAM*      109/43    109/45 L
        WRL.42       3327   PROGRAM*      109/47    109/49    109/56 L
        WRL.5        3333   PROGRAM*      109/19    109/21    109/45    109/53    110/14 L
        WRL.6        3334   PROGRAM*      108/45    110/19 L
        WRL.7        3341   PROGRAM*      110/31 L  110/36
        WRL.8        3346   PROGRAM*       70/35 S  110/20    110/46 L
        WRSEQ         743   PROGRAM*       85/31     93/11     93/44    103/22 L  103/47
        WRSEQR         44   TABLES        103/17 L  103/23 S  103/40
        WRSEQ1       1005   PROGRAM*      103/24    103/34 L
        WRSEQ2       1007   PROGRAM*      103/38    103/39 L
        WRTEXT       3211   PROGRAM*       33/12     34/46     38/55     47/16     50/03     65/26     75/12     89/50
                                           33/18     35/03     39/08     47/26     50/39     65/42     76/55     90/40
                                           33/36     38/14     39/15     48/03     57/50     65/50     79/09    103/30
                                           33/40     38/20     40/02     48/15     64/37     66/49     79/17    103/55
                                           33/48     38/40     45/51     48/48     64/55     68/04     80/11    104/35 L
                                           34/22     38/46     46/45     49/23     65/09     69/41     89/38    106/37
        WRTSW        3243   PROGRAM*       25/08 S  105/56 L
        WRT1         3216   PROGRAM*      104/47 L  105/50
        WRT2         3217   PROGRAM*      104/50 L  104/55
        WRT3         3222   PROGRAM*      104/50    104/57 L
        WRT3A        3233   PROGRAM*      105/28    105/31 L
        WRT4         3240   PROGRAM*      105/09    105/47 L
        WRT5         3241   PROGRAM*      104/45    104/46    105/49 L
        WTW=            0   EXTERNAL*      25/56     28/16     34/18     84/20    107/09    119/44    125/42
                                           26/50     30/22     68/55    105/30    119/43    123/47
        XFERTAB       253   PROGRAM*      119/02 L  125/40 S  125/42
        XFL            44   PROGRAM*        5/17 L   24/38 S  125/03
        XFRNAME         0   EXTERNAL*       2/03 X  125/35
        XRGMSK       2046   PROGRAM*       54/18 L
        ZZN          3731   PROGRAM*       78/01 S   78/45     87/10 D   89/04 S   89/34     90/31
        Z1N          3732   PROGRAM*       78/10 S   78/18 S   78/43     87/11 D   89/14 S   89/47
        Z2N          3733   PROGRAM*       79/01     79/42 S   87/12 D   89/20 S   90/35
        Z3N          3734   PROGRAM*       78/27 S   78/39     87/13 D   89/26 S   90/34
        .DAL            1   FTNTEXT        22/13 F
        .DATA.        132                  44/18 D   44/20
        .JOL            1                   2/20 D   70/21 F  112/04 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  PFILE 
  
  
        FIT6A        2737   PROGRAM*       81/38 S   83/40 S   84/13     85/49 L   85/56
        FIT6B        2742   PROGRAM*       83/50 S   83/51 S   84/02 S   84/31     86/01 L   86/15
        FIT6C        2757   PROGRAM*       84/03 S   84/24     84/37     86/17 L
        L.FIT6A         3                  84/07     85/56 D   86/22
        L.FIT6B        15                  84/30     86/15 D
        O.BFS          21                  83/50 S   86/11 L
        O.EOWSA        17                  84/02 S   86/09 L
        O.FCLEXT       43                  84/38     86/19 L
        O.FIT6B        12                  83/50 S   83/51 S   84/02 S   84/32     86/03 L
        O.FWB           1                  83/40 S   85/52 L
        O.LFN           0                  81/38 S   85/51 L
        O.MRL          14                  83/51 S   86/06 L
        O.ZERO6         2                  83/27     85/54 L
        PFA          2730   PROGRAM*       84/14     84/33     84/43     85/21 L
1       FAX - FTN INTERNAL ASSEMBLER                                  COMPASS 3.7-871.     24/05/02. 15.54.46.      PAGE   141
        SYMBOLIC REFERENCE TABLE.                                     PFILE 
  
        PFILE        2651   PROGRAM*       81/25 L   86/49
        PF10         2725   PROGRAM*       84/39     84/47 L
        PF3          2675   PROGRAM*       83/26 L
        PF4          2701   PROGRAM*       83/38     83/40 L
        PF5          2707   PROGRAM*       83/55     84/02 L
        PF6          2712   PROGRAM*       84/10     84/13 L
        PF7          2716   PROGRAM*       84/19     84/24 L
        PF8          2720   PROGRAM*       84/27     84/30 L
        REPL6        2760   PROGRAM*       83/26     86/22 L
        T.BFS        3733   PROGRAM*       81/46 S   81/57     85/41 D
        T.NXTORG     3735   PROGRAM*       83/46 S   84/47     85/43 D
        T.ORGC       3734   PROGRAM*       82/08 S   85/22     85/42 D
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2027              IDENT  REFMAP 
                       2027                       END    FTN25
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        LITERALS* LOCAL           0        51 
                                        DATA      LOCAL          51       144 
                                        IO$$      LOCAL         215         0 
                                        CODE      LOCAL         215      1612 
                                        TABLES    COMMON          0       126 
                                        LWA       LOCAL        2027         0 
  
  
                                        ENTRY POINTS. 
  
                                        B=REFMP          0+           REFMAP         551+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        R=FLAG    N.COM     L.EQV     L.COM     OT.RM     F.RMAP    CER.FL    N.LINES 
                                        RSELECT   ORGTAB    N.FP      O.LOOP    N.FERR    QFLAG     O.TITL    L.STITL 
                                        LWAWORK   SWC       O.LBLK    L.LOOP    SETCORE   PUTTAB    CP.LSTF   O.STITL 
                                        E.UDEFL   CONDEC    START.    O.UDV     CIO=      CO.OLVL   CDD 
                                        VALUE.    ST.       N.EQUF    L.UDV     PR.MXFL   CO.ER     FA=NPG
                                        N.FILES   SYMORD    O.COM     DIRECT    RDW=      IEM       FA=LOL
  
  
  
  
                                                  IDENT  REFMAP                                                  REFMAP      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=REFMP  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     REFMAP      5
                                                                                                                 REFMAP      6
                                  12     SYM1     EQU    12B                                                     REFMAP      7
                                  13     SYMEND   EQU    13B                                                     REFMAP      8
                                  56     PROGRAM  EQU    56B                                                     REFMAP      9
                                                                                                                 REFMAP     10
                                  15     WPL      EQU    13                MAXIMUM WORDS/LINE                    REFMAP     11
                                   7     N.LRB    EQU    7                 NUMBER OF LOCAL RELOCATION BASES      REFMAP     12
                                                                                                                 REFMAP     13
                                                  EXT    R=FLAG,RSELECT,LWAWORK,E.UDEFL,VALUE.                   REFMAP     14
                                                  EXT    N.FILES,N.COM,ORGTAB,SWC,CONDEC,ST.,SYMORD              REFMAP     15
                                                  EXT    L.EQV,N.FP,O.LBLK,START.                                REFMAP     16
                                                  EXT    N.EQUF                                                  FCC2064    13
                                                                                                                 REFMAP     17
                                                  TABLES COM,LOOP,UDV                                            REFMAP     18
  
  
  
                                        *         AUTHOR - S.I. JASIK - CDC-SUNNYVALE - WINTER 1969              REFMAP     20
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     2
  
  
                                                                                                                 REFMAP     21
                                        ***                                                                      REFMAP     22
                                        *         REFMAP - SYMBOLIC REFERENCE MAP PRINTOUT                       REFMAP     23
                                        *                                                                        REFMAP     24
                                        *         FUNCTIONS:                                                     REFMAP     25
                                        *                PRINT OUT ANY MISSING LABELS                            REFMAP     26
                                        *                COMPUTE PROGRAM LENGTH, ADJUST RA FIELD OF WORD B OF    REFMAP     27
                                        *                ALL PROGRAM RELOCATABLE SYMBOLS IN SYMTAB               REFMAP     28
                                        *                                                                        REFMAP     29
                                        *                PRINT THE REFERENCE MAP FROM INFORMATION IN:            REFMAP     30
                                        *                 THE SYMBOL TABLE                                       REFMAP     31
                                        *                 ORGTAB AND THE LOCAL BLOCK LENGTH TABLE                REFMAP     32
                                        *                 "REFMAP" FILE OF SYMBOL REFERENCES AND SAVED COM/EQV   REFMAP     33
                                        *                 INFO                                                   REFMAP     34
                                        *                 THE LOOP TABLE - FORMED BY "PRE" AND "DOPROC"          REFMAP     35
                                        *                 THE "UDV" TABLE FORMED AT THE END OF PASS 1            REFMAP     36
                                        *                                                                        REFMAP     37
  
  
  
                                                                                                                 REFMAP     39
                                        *         BLOCK ORDERING , USED TO FORCE THE LITERALS TO COME FIRST      REFMAP     40
                                                                                                                 REFMAP     41
                                                  USE    DATA              DATA GENERATED BY VARIOUS MACROS      REFMAP     42
                                                  USE    IO$$        FOR 7RM MACRO EXPANSIONS                    REFMAP     43
                                                  USE    CODE                                                    REFMAP     44
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     3
         STORAGE ASSIGNMENTS AND EQU S                                          TABLES
  
                                                  USE    /TABLES/                                                REFMAP     46
                                   0 C   O.CELLS  EQU    *                                                       REFMAP     47
                                                                                                                 REFMAP     48
             0                     1     BLKCOM   BSS    1                 ADDRESS OF BLANK COMMON IN ORGTAB     REFMAP     49
             1                     1     L.PROG   BSS    1                 PROGRAM LENGTH                        REFMAP     50
             2                     7     O.LRB    BSS    N.LRB             FWA OF THE LOCAL RELOCATION BASES     REFMAP     51
            11                     1     L.SCOM   BSS    1                 SCM COMMON LENGTH (EXCLUDING BLANK)   REFMAP     52
            12                     1     L.LCOM   BSS    1                 LCM COMMON LENGTH (EXCLUDING BLANK)   REFMAP     53
            13                     1     L.SBLK   BSS    1                 SCM BLANK COMMON LENGTH               REFMAP     54
            14                     1     L.LBLK   BSS    1                 LCM BLANK COMMON LENGTH               REFMAP     55
            15                     1     L.BUFIO  BSS    1                 I/O BUFFER LENGTH                     REFMAP     56
            16                     1     L.PROGP  BSS    1                 PROGRAM LENGTH THAT IS PRINTED OUT    REFMAP     57
                                        *                                  PROG LEN - IO BUFFER LENGTH           REFMAP     58
                                                                                                                 REFMAP     59
                                        *         POINTERS SET IN THE LEXIGRAPHIC SORT                           REFMAP     60
                                                                                                                 REFMAP     61
            17                     1     O.REFBAS BSS    1                 BASE OF THE REFERENCE TABLE           REFMAP     62
            20                     1     O.REFTAB BSS    1                 FIRST AVAILABLE WORD FOR REFERENCE    REFMAP     63
                                        *                                  LIST                                  REFMAP     64
            21                     1     O.CNTBL  BSS    1                 FWA OF CHANGED NAME TABLE             REFMAP     65
            22                     1     L.CNTBL  BSS    1                 LENGTH                                REFMAP     66
                                                                                                                 REFMAP     67
            23                     1     O.NAME   BSS    1                 SYMBOLIC NAMES                        REFMAP     68
            24                     1     O.LABEL  BSS    1                 STMT LABELS                           REFMAP     69
            25                     1     O.LFN    BSS    1                 LOGICAL FILE NAMES                    REFMAP     70
            26                     1     O.LGL    BSS    1                 LOOP GENERATED LABELS                 REFMAP     71
                                                                                                                 REFMAP     72
                                        *         POINTERS SET IN THE CATEGORY SORT                              REFMAP     73
                                                                                                                 REFMAP     74
            27                     1     O.ENT    BSS    1                 ENTRY POINTS                          REFMAP     75
            30                     1     O.VAR    BSS    1                 VARIABLES,ARRAYS,F.P. S, RETURNS      REFMAP     76
            31                     1     O.EXT    BSS    1                 EXTERNAL REFERENCES                   REFMAP     77
            32                     1     O.ASF    BSS    1                 INTRINSIC AND AS FUNCTIONS            REFMAP     78
            33                     1     O.NML    BSS    1                 NAMELIST GROUP NAMES                  REFMAP     79
            34                     1     O.CGS    BSS    1                 COMPILER GENERATED SYMBOLS            REFMAP     80
            35                     1     O.UDBG   BSS    1                 UNUSED DEBUG VARIABLES                REFMAP     81
            36                     1     VLFN     BSS    1                 NE 0 IF VARIABLES USED AS FILE NAMES  REFMAP     82
            37                     1     NEXTE    BSS    1                 HOLDS POINTER TO NEXT LIST ELEMENT    REFMAP     83
                                        *                                  DURING PRINT LOOPS                    REFMAP     84
                                                                                                                 REFMAP     85
                                        *         LIST POINTERS USED BY SORTRL                                   REFMAP     86
                                                                                                                 REFMAP     87
            40                     1     WORDA    BSS    1                 SYMTAB ADDRESS OF WORD A              REFMAP     88
            41                     1     O.REFS   BSS    1                 REFERENCES   (60/FWA OF LIST )        REFMAP     89
            42                     1     O.DEFS   BSS    1                 DEFINITIONS AND USES                  REFMAP     90
            43                     1     O.FREF   BSS    1                 FILE REFERNCES                        REFMAP     91
            44                     3     DSRB     BSS    3                 DUMMY SORT BUCKETS FOR SORTRL         REFMAP     92
                                                                                                                 REFMAP     93
                                        *         LOCATIONS ASSOCIATED WITH FMT AND LISTR                        REFMAP     94
                                                                                                                 REFMAP     95
            47                     1     REFACC   BSS    1                 1S59 IF REFERENCES ACCUMULATED        REFMAP     96
            50                     1     TEMP     BSS    1                 A TEMPORARY                           REFMAP     97
            51                     1     TEMPA    BSS    1                 A TEMPORARY ( LISTR )                 REFMAP     98
            52                     1     APL      BSS    1                 ADDRESS OF HEADER LIST ( LISTV )      REFMAP     99
                                                                                                                 REFMAP    100
            53                     1     BFILL    BSS    1                 BLANK FILL FLAG FOR LISTR             REFMAP    101
            54                     1     DLINE    BSS    1                 COL/10 TO PAD INIT LINE INFO TO       REFMAP    102
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     4
         STORAGE ASSIGNMENTS AND EQU S                                          TABLES
  
                                        *                                  FOR THE LONG MAP                      REFMAP    103
            55                     7     VBUF     BSS    7                 ITEMS TO BE FORMATTED                 REFMAP    104
            64                     1     SFMTW    BSS    1                 POSSIBLE SECOND WORD OF FORMAT SPEC   REFMAP    105
            65                    16     LBUF     BSS    14                LINE BUFFER                           REFMAP    106
                                                                                                                 REFMAP    107
           103                    16     PBUF     BSS    14                ALTERNATE LINE BUFFER                 REFMAP    108
           121                     1     ACCWC    BSS    1                 ACCUMULATED WORD COUNT FOR PBUF       REFMAP    109
           122                     2     LI       BSS    2                 LOOP INDEX AND LIMIT FOR FBNB         REFMAP    110
           124                     2     CLOC     BSS    2                 CURRENT LOC AND LINK FOR COMMON BLOCK REFMAP    111
                                 124 C   LTEMP    EQU    CLOC                                                    REFMAP    112
                                  62 C   LPLEN    EQU    VBUF+5            WHERE THE LOOP LENGTH IS STORED       REFMAP    113
                                 124 C   CLI      EQU    CLOC              2 TEMPORARIES FOR EQUIV MAP           REFMAP    114
                                                                                                                 REFMAP    115
                                 126     L.CELLS  EQU    *-O.CELLS                                               REFMAP    116
                                                  USE    *                                                       REFMAP    117
  
  
  
                                        *         WORDS THAT THE ASSOCIATED BITS ARE IN                          REFMAP    119
                                                                                                                 REFMAP    120
                                   1     FP       EQU    1                                                       REFMAP    121
                                   1     FUN      EQU    1                                                       REFMAP    122
                                   1     DEF      EQU    1                                                       REFMAP    123
                                   1     DIM      EQU    1                                                       REFMAP    124
                                   1     COM      EQU    1                                                       REFMAP    125
                                   2     ASF      EQU    2                                                       REFMAP    126
                                   2     LIB      EQU    2                                                       REFMAP    127
                                   2     VAR      EQU    2                                                       REFMAP    128
                                                                                                                 REFMAP    129
                                        *         BIT FIELD DEFINITIONS FOR DO LOOP PROPERTIES AS SET            REFMAP    130
                                        *         IN LABELS GENERATED BY THE DO PROCESSOR                        REFMAP    131
                                                                                                                 REFMAP    132
                                   6     DL.E     EQU    6                 ENTERED FROM OUTSIDE RANGE            REFMAP    133
                                   5     DL.X     EQU    5                 EXITS - REFERENCES TO LABELS OUTSIDE  REFMAP    134
                                        *                                  THE LOOP                              REFMAP    135
                                   4     DL.I     EQU    4                 LOOP IS NOT INNERMOST                 REFMAP    136
                                   3     DL.M     EQU    3                 CONTROL VARIABLE MUST BE MATERIALIZED REFMAP    137
                                   1     DL.J     EQU    1                 EXTERNAL REFS                         REFMAP    138
                                                                                                                 REFMAP    139
                                  60     P.DLP    EQU    48                BASE OF DO LOOP PROPERTY FIELD        REFMAP    140
                                   7     L.DLP    EQU    7                 LENGTH                                REFMAP    141
                                                                                                                 REFMAP    142
                                 127     V.OPT    EQU    127B              BITS NON ZERO IF LOOP IS NOT OPTIMUM  REFMAP    143
  
  
  
                                        *         BIT FIELD DEFINITIONS OF THE FIELDS IN THE REFERENCE           REFMAP    145
                                        *         TABLE BUILT BY "SORTR"                                         REFMAP    146
                                                                                                                 REFMAP    147
                                  60     P.REP    EQU    48                REP COUNT FIELD ( ALSO REF/DEF )      REFMAP    148
                                  14     L.REP    EQU    12                                                      REFMAP    149
                                  22     P.BCDLN  EQU    18                DISPLAY CODED LINE NUMBER             REFMAP    150
                                  30     L.BCDLN  EQU    24                4 CHARACTERS LONG                     REFMAP    151
                                                                                                                 REFMAP    152
                                        *         THE LINK FIELD IS IN BITS 0 - 17                               REFMAP    153
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     5
         TABLES                                                                 CODE
  
                                        *         TABLE OF BLANKS                                                REFMAP    155
                                                                                                                 REFMAP    156
                                   0 +   BLANKS   LIT  0,1L ,2L  ,3L   ,4L    ,5L     ,6L      ,7L       ,8L     REFMAP    157
                                        ,    ,9L         ,10L                                                    REFMAP    158
  
  
  
                                        *         TYPE TABLE FOR TYPES 1 - 7                                     REFMAP    160
                                                                                                                 REFMAP    161
           215  14170711030114000000     TYPTBL   DATA   7LLOGICAL                                               REFMAP    162
           216  11162405070522000000              DATA   7LINTEGER                                               REFMAP    163
           217  22050114555555000000              DATA   7LREAL                                                  REFMAP    164
           220  04172502140555000000              DATA   7LDOUBLE                                                REFMAP    165
           221  03171520140530000000              DATA   7LCOMPLEX                                               REFMAP    166
                                                                                                                 REFMAP    167
                                         #DAL     IFEQ   .DAL,0      .ZR. IF LCM DIRECT ACCESS NOT ALLOWED       REFMAP    168
                                                  DATA   7LECS                                                   REFMAP    169
                                         #DAL     ELSE                                                           REFMAP    170
           222  14031555555555000000              DATA   7LLCM                                                   REFMAP    171
                                         #DAL     ENDIF                                                          REFMAP    172
                                                                                                                 REFMAP    173
           223  55555555555555000000              DATA   7L                TYPE 6 ARE LABELS                     REFMAP    174
           224  22052425221623000000              DATA   7LRETURNS                                               REFMAP    175
                                                                                                                 REFMAP    176
                                        *         FILE MODE TABLE                                                REFMAP    177
                                                                                                                 REFMAP    178
           225  15113005045555000000     FMODTAB  DATA   7LMIXED                                                 REFMAP    179
           226  55555555555555000000              DATA   7L                                                      REFMAP    180
           227  06152455555555000000              DATA   7LFMT                                                   REFMAP    181
           230  25160615245555000000              DATA   7LUNFMT                                                 REFMAP    182
           231  02250655555555000000              DATA   7LBUF                                                   REFMAP    183
           232  16011505555555000000              DATA   7LNAME                                                  REFMAP    184
           233  06220505555555000000              DATA   7LFREE                                                  REFMAP    185
                                                                                                                 REFMAP    186
                                        *         LOCAL FUNCTION TYPE TABLE                                      REFMAP    187
                                                                                                                 REFMAP    188
           234  55551116242211160000     ASFINT   DATA   8L  INTRIN                                              REFMAP    189
           235  55555555230655550000              DATA   8L    SF                                                REFMAP    190
                                                                                                                 REFMAP    191
                                        *         STATEMENT LABEL TYPE TABLE                                     REFMAP    192
                                                                                                                 REFMAP    193
           236  55555555555555555500              DATA   9L                                                      REFMAP    194
           237  55551617552205062300     SLATAB   DATA   9L  NO REFS                                             REFMAP    195
           240  55111601032411260500              DATA   9L INACTIVE                                             REFMAP    196
                                                                                                                 REFMAP    197
                                        *         STATEMENT LABEL ACTIVITY TABLE                                 REFMAP    198
                                                                                                                 REFMAP    199
           241  47251604050600000000     SLTAB    DATA   6L*UNDEF                                                REFMAP    200
           242  55555506152400000000              DATA   6L   FMT                                                REFMAP    201
           243  55555555555500000000              DATA   6L                EXEC                                  REFMAP    202
                                                                                                                 REFMAP    203
                                        *         DO INDEX MATERIALIZED FLAG                                     REFMAP    204
                                        *         THIS REFMAP FEATURE DISABLED AS A RESULT OF FCC2059            FCC2059     9
                                                                                                                 REFMAP    205
           244  55555500000000000000     DO.MAT   DATA   3L                INDEX NOT MATERIALIZED                REFMAP    206
           245  55475500000000000000              DATA   3L *              INDEX MATERIALIZED                    REFMAP    207
                                                                                                                 REFMAP    208
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     6
         TABLES                                                                 CODE
  
           246  55555555555555555555     MAPTITL  DATA   38C          SYMBOLIC REFERENCE MAP (R=0)               REFMAP    209
                                                                                                                 REFMAP    210
                                        *         STORAGE TYPE                                                   REFMAP    211
                                                                                                                 REFMAP    212
           252  55555555000000000000     SDS      DATA   4L    ,4L "LCM"                                         REFMAP    213
           254  00000000000000400000     LCMLMT   DATA   400000B     LCM LIMIT WITHOUT LCM=I                     RSM4033     7
                                                                                                                 REFMAP    214
                                        *         ERROR  MESSAGE                                                 REFMAP    215
                                                                                                                 REFMAP    216
           255  33031555220521251122     OVERFL   DATA   36C0"SCM" REQUIRED FOR LOAD EXCEEDS 131K.               REFMAP    217
           261  33140315550614550530     STGERR   DATA   47C0"LCM" FL EXCEEDS 131,071 WORDS (LCM=I REQUIRED)     RSM4033     8
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     7
         CONVERSION ROUTINES                                                    CODE
  
                                        ***                                                                      REFMAP    219
                                        *         Z8 - CONVERT OCTAL DIGITS TO DISPLAY CODE IN 8L FORMAT         REFMAP    220
                                        *         WITH LEADING ZERO SUPPRESSION                                  REFMAP    221
                                        *                                                                        REFMAP    222
                                        *         ON ENTRY:                                                      REFMAP    223
                                        *                X1 = BINARY NUMBER RIGHT JUSTIFIED                      REFMAP    224
                                        *                                                                        REFMAP    225
                                        *         ON EXIT:                                                       REFMAP    226
                                        *                X6 = NUMBER IN DISPLAY CODE                             REFMAP    227
                                        *                                                                        REFMAP    228
           266  15213                    Z8L      BX2    -X3*X1            EXTRACT A DIGIT                       REFMAP    229
                     21103                        AX1    3                                                       REFMAP    230
                          73424                   SX4    B4+X2             CONVERT TO DPC                        REFMAP    231
                               22524              LX5    B2,X4                                                   REFMAP    232
           267  6122000006                        SB2    B2+6                                                    REFMAP    233
                          36665                   IX6    X6+X5                                                   REFMAP    234
           270  0311000266 +                      NZ     X1,Z8L                                                  REFMAP    235
           271  00000000000000000000     Z8                                                                      REFMAP    236
           272  5150000010 +             Z8P      SA5    =8L               INITIALIZE RESULT                     REFMAP    237
                          6140777755              SB4    1R0-1R                                                  REFMAP    238
           273  43371                             MX3    57                                                      REFMAP    239
                     6120000014                   SB2    12                                                      REFMAP    240
                               10655              BX6    X5                                                      REFMAP    241
           274  0400000266 +                      EQ     Z8L                                                     REFMAP    242
                                                                                                                 REFMAP    243
                                        *         PLUGS USED TO CHANGE BETWEEN LEADING BLANK AND ZERO FILL       REFMAP    244
                                                                                                                 REFMAP    245
                                                  IF     DEF,ZEROFILL                                            REFMAP    246
                                         Z8PLUG   SA5    =8L  000000       FOR LEADING ZERO FILL                 REFMAP    247
                                                  SB4    0                                                       REFMAP    248
                                                                                                                 REFMAP    249
                                         Z8RESTR  SA5    =8L                                                     REFMAP    250
                                                  SB4    1R0-1R                                                  REFMAP    251
                                                  ENDIF                                                          REFMAP    252
                                                                                                                 REFMAP    253
                                        ***                                                                      REFMAP    254
                                        *         OCTC - CONVERT BINARY NUMBER TO OCTAL                          REFMAP    255
                                        *         ON ENTRY:                                                      REFMAP    256
                                        *                X1 = NUMBER RIGHT JUSTIFIED ( < 400 000B )              REFMAP    257
                                        *         ON EXIT:                                                       REFMAP    258
                                        *                X6 = 8L   NNNB                                          REFMAP    259
                                        *                                                                        REFMAP    260
           275  15213                    OCTL     BX2    -X3*X1            EXTRACT A DIGIT                       REFMAP    261
                     21103                        AX1    3                                                       REFMAP    262
                          73424                   SX4    B4+X2                                                   REFMAP    263
                               22524              LX5    B2,X4                                                   REFMAP    264
           276  6122000006                        SB2    B2+6                                                    REFMAP    265
                          36665                   IX6    X6+X5                                                   REFMAP    266
           277  0311000275 +                      NZ     X1,OCTL                                                 REFMAP    267
           300  00000000000000000000     OCTC                                                                    REFMAP    268
           301  5150000013 +                      SA5    =8L       B                                             FCC0574     4
                          6120000022              SB2    18                                                      FCC0574     5
           302  6140777755                        SB4    1R0-1R                                                  REFMAP    271
                          43371                   MX3    57                                                      REFMAP    272
                               10655              BX6    X5                                                      REFMAP    273
           303  0400000275 +                      EQ     OCTL                                                    REFMAP    274
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     8
         PSTITLE - PRINT SUB TITLE                                              CODE
  
                                        ***                                                                      REFMAP    276
                                        *         PSTITLE - PRINT SUB TITLE LINE                                 REFMAP    277
                                        *                                                                        REFMAP    278
                                        *         ON ENTRY:                                                      REFMAP    279
                                        *                A1 = FWA OF SUBTITLE LINE                               REFMAP    280
                                        *                                                                        REFMAP    281
                                        *         ON EXIT:                                                       REFMAP    282
                                        *         DLINE = COL/10 ( R " 0 ) OR 0 FOR THE USE OF "FMT"             REFMAP    283
                                        *                                                                        REFMAP    284
                                                                                                                 REFMAP    285
                                                                                                                 REFMAP    286
           304  0400400304 +             PSTITLE  ENTRY. *           ** ENTRY/EXIT **                            REFMAP    287
                                                                                                                 REFMAP    288
                                        *         MOVE SUBTITLE LINE TO CENTRAL I/O LISTING BUFFER.              REFMAP    289
                                                                                                                 REFMAP    290
           305  6110000001                        SB1    1                                                       REFMAP    291
                          43060                   MX0    -12                                                     REFMAP    292
                               66700              SB7    B0          (B7) = SUBTITLE LENGTH ACCUMULATOR          REFMAP    293
           306  10711                    PST2     BX7    X1                                                      REFMAP    294
                     66771                        SB7    B7+B1                                                   REFMAP    295
                          54111                   SA1    A1+B1                                                   REFMAP    296
                               15670              BX6    -X0*X7                                                  REFMAP    297
           307  5177777776 X                      SA7    =XO.STITL-1+B7                                          REFMAP    298
                          0316000306 +            NZ     X6,PST2     IF NOT END OF SHORT MAP LINE                REFMAP    299
           310  5150000047 C                      SA5    REFACC      MAP TYPE FLAG (.ZR. = SHORT, 1S59 = LONG)   REFMAP    300
                          76370                   SX3    B7                                                      REFMAP    301
                               21573              AX5    59                SIGN EXTEND                           REFMAP    302
           311  11653                             BX6    X5*X3             COL/10 OR 0                           REFMAP    303
                     5160000054 C                 SA6    DLINE             SET PAD COLUMN                        REFMAP    304
           312  0325000316 +                      PL     X5,PST4     IF SHORT MAP                                REFMAP    305
                                                                                                                 REFMAP    306
                                        *         ADD LONG MAP INFO TO SUBTITLE LINE.                            REFMAP    307
                                                                                                                 REFMAP    308
                          7120005555              SX2    2R                                                      REFMAP    309
           313  12772                             BX7    X7+X2             FILL OUT LAST WORD                    REFMAP    310
                     54770                        SA7    A7                                                      REFMAP    311
           314  10711                    PST3     BX7    X1                                                      REFMAP    312
                     66771                        SB7    B7+B1                                                   REFMAP    313
                          54111                   SA1    A1+B1                                                   REFMAP    314
                               15670              BX6    -X0*X7                                                  REFMAP    315
           315  5177777776 X                      SA7    =XO.STITL-1+B7                                          REFMAP    316
                          0316000314 +            NZ     X6,PST3     IF NOT END OF LONG MAP LINE                 REFMAP    317
                                                                                                                 REFMAP    318
                                        *         POST SUBTITLE LENGTH (WORDS).                                  REFMAP    319
                                                                                                                 REFMAP    320
           316  76670                    PST4     SX6    B7                                                      REFMAP    321
                     5160000000 X                 SA6    =XL.STITL                                               REFMAP    322
                                                                                                                 REFMAP    323
                                        *         LIST SUBTITLE IN MID-PAGE IF MORE THAN 4 LINES ARE LEFT.       REFMAP    324
                                                                                                                 REFMAP    325
           317  5110000000 X                      SA1    =XN.LINES                                               REFMAP    326
                          7261000004              SX6    X1+4                                                    REFMAP    327
           320  0326000326 +                      PL     X6,PST6     IF LESS THAN 4 LINES LEFT ON PAGE           REFMAP    328
                          76770                   SX7    B7                                                      REFMAP    329
           321  5170000050 C                      SA7    TEMP        TEMP SAVE SUBTITLE LENGTH (WORDS)           REFMAP    330
                          6160000002 +            LISTL  (=2C  ),1   BLANK LINE                                  REFMAP    331
           323  5110000050 C                      SA1    TEMP                                                    REFMAP    332
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE     9
         PSTITLE - PRINT SUB TITLE                                              CODE
  
                          6160000000 X            LISTL  =XO.STITL,X1                                            REFMAP    333
           325  6150000001                        SB5    1                                                       REFMAP    334
                          0400000304 +            EQ     PSTITLE     EXIT                                        REFMAP    335
                                                                                                                 REFMAP    336
           326  0100000000 X             PST6     NUPAGE                                                         REFMAP    337
           327  6150000001                        SB5    1                                                       REFMAP    338
                          0400000304 +            EQ     PSTITLE     EXIT                                        REFMAP    339
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    10
         LISTV - LIST ROUTINE                                                   CODE
  
                                        ***                                                                      REFMAP    341
                                        *         STITLE - MACRO TO CALL PSTITLE TO OUTPUT A SUB TITLE           REFMAP    342
                                        *                                                                        REFMAP    343
                                        *         SMTITLE - SHORT MAP TITLE                                      REFMAP    344
                                        *         COL - NUMBER OF COLUMNS IN INITIAL INFO PUT OUT BY REFMAP      REFMAP    345
                                        *                COL = 18,28,38,48                                       REFMAP    346
                                        *         LMTITLE - TEXT TO BE ADDED TO THE SUB TITLE FOR THE LONG MAP   REFMAP    347
                                        *                                                                        REFMAP    348
                                                                                                                 REFMAP    349
                                         STITLE   MACRO  SMTITLE,COL,LMTITLE                                     REFMAP    350
                                                  LOCAL  LOCLABEL                                                REFMAP    351
                                                  USE    DATA                                                    REFMAP    352
                                         LOCLABEL DATA   COL_C   SMTITLE                                         REFMAP    353
                                                  DIS    ,/LMTITLE/                                              REFMAP    354
                                                  USE    *                                                       REFMAP    355
                                                  SA1    LOCLABEL                                                REFMAP    356
                                                  RJ     PSTITLE                                                 REFMAP    357
                                                  ENDM                                                           REFMAP    358
  
  
  
                                        ***                                                                      REFMAP    360
                                        *         LISTV - LIST REFERENCES FOR A NAME IN THE SYMBOL TABLE         REFMAP    361
                                        *                                                                        REFMAP    362
                                        *         CALLS "SORTRL" TO SORT THE REFERENCE LIST FOR THE SYMBOL       REFMAP    363
                                        *         INTO CATEGORIES ON THE REFERENCE TYPE AND THEN CALLS "LISTR"   REFMAP    364
                                        *         TO FORMAT AND LIST THE REFERENCES FOR EACH CATEGORY.           REFMAP    365
                                        *                                                                        REFMAP    366
                                        *         ON ENTRY:                                                      REFMAP    367
                                        *                A5 = ADDRESS OF LIST OF HEADER WORDS OR 0               REFMAP    368
                                        *                                                                        REFMAP    369
                                                                                                                 REFMAP    370
                                        *         NO HEADER CASE                                                 REFMAP    371
                                                                                                                 REFMAP    372
           330  5120000054 C             LISTVN   SA2    DLINE                                                   REFMAP    373
                          5130000042 C            SA3    O.DEFS                                                  REFMAP    374
           331  5140000012 +                      SA4    =10H                                                    REFMAP    375
                          10644                   BX6    X4                                                      REFMAP    376
           332  0303000334 +                      ZR     X3,LISTVN1        IF NOT DEFINED                        REFMAP    377
                                                                                                                 REFMAP    378
                          43030                   MX0    L.BCDLN                                                 REFMAP    379
                               53430              SA4    X3                DEFINITION LINE                       REFMAP    380
           333  20052                             LX0    L.BCDLN+P.BCDLN                                         REFMAP    381
                     15560                        BX5    -X0*X6                                                  REFMAP    382
                          11704                   BX7    X0*X4             EXTRACT                               REFMAP    383
                               36657              IX6    X5+X7                                                   REFMAP    384
                                                                                                                 REFMAP    385
           334  53627                    LISTVN1  SA6    B7+X2                                                   REFMAP    386
                     63125                        SB1    X2+B5                                                   REFMAP    387
                          73725                   SX7    X2+B5             DLINE = DLINE+1                       REFMAP    388
                               54720              SA7    A2                                                      REFMAP    389
           335  5110000041 C                      SA1    O.REFS                                                  REFMAP    390
                          0301000337 +            ZR     X1,LISTVN2        IF NO REFERENCES                      REFMAP    391
           336  43200                             MX2    0                                                       REFMAP    392
                     0100000363 +                 RJ     LISTR             LIST THE REFERENCES                   REFMAP    393
                                                                                                                 REFMAP    394
           337  5120000054 C             LISTVN2  SA2    DLINE                                                   REFMAP    395
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    11
         LISTV - LIST ROUTINE                                                   CODE
  
                          7272777776              SX7    X2-1                                                    REFMAP    396
           340  54720                             SA7    A2                RESTORE DLINE                         REFMAP    397
                     0410000345 +                 ZR     B1,LISTV          IF NOTHING TO DUMP                    REFMAP    398
                                                                                                                 REFMAP    399
                                        *         DUMP THE LAST PARTIAL LINE                                     REFMAP    400
                                                                                                                 REFMAP    401
           341  67675                    LISTVX   SB6    B7-B5                                                   REFMAP    402
                     56561                        SA5    B6+B1                                                   REFMAP    403
                          43060                   MX0    48                                                      REFMAP    404
                               11605              BX6    X0*X5             TRAILING ZERO BYTE                    REFMAP    405
           342  54650                             SA6    A5                                                      REFMAP    406
                     66710                        SB7    B1                (B7) = LINE LENGTH (WORDS)            REFMAP    407
                          6110000001              SB1    1                                                       REFMAP    408
           343  6160000065 C                      LISTL  LBUF,B7                                                 REFMAP    409
           344  6150000001                        SB5    1                                                       REFMAP    410
                                                                                                                 REFMAP    411
           345  00000000000000000000     LISTV                             ** ENTRY/EXIT **                      REFMAP    412
           346  74650                             SX6    A5                                                      REFMAP    413
                     5160000052 C                 SA6    APL               SAVE ADDRESS OF ARG LIST              REFMAP    414
           347  6170000065 C                      SB7    LBUF              B7 = FWA OF LINE BUFFER               REFMAP    415
                          0100001332 +            RJ     SORTRL            SORT THE REFERENCES                   REFMAP    416
           350  5150000052 C                      SA5    APL                                                     REFMAP    417
                          0305000330 +            ZR     X5,LISTVN         IF NO HEADERS REQUESTED               REFMAP    418
                                                                                                                 REFMAP    419
           351  5110000041 C                      SA1    O.REFS                                                  REFMAP    420
                          0301000353 +            ZR     X1,LISTV1         IF NO REFERENCES                      REFMAP    421
           352  53250                             SA2    X5                BCD PREFIX                            REFMAP    422
                     0100000363 +                 RJ     LISTR             LIST THE REFERENCES                   REFMAP    423
                                                                                                                 REFMAP    424
           353  5110000042 C             LISTV1   SA1    O.DEFS                                                  REFMAP    425
                          0301000356 +            ZR     X1,LISTV2         IF NO DEFINITIONS                     REFMAP    426
           354  5150000052 C                      SA5    APL                                                     REFMAP    427
                          53255                   SA2    X5+B5             BCD PREFIX                            REFMAP    428
           355  0100000363 +                      RJ     LISTR                                                   REFMAP    429
                                                                                                                 REFMAP    430
           356  5110000043 C             LISTV2   SA1    O.FREF                                                  REFMAP    431
                          0301000361 +            ZR     X1,LISTV3         IF NO FILE REFS                       REFMAP    432
           357  5150000052 C                      SA5    APL                                                     REFMAP    433
                          5225000002              SA2    X5+2              BCD PREFIX                            REFMAP    434
           360  0100000363 +                      RJ     LISTR                                                   REFMAP    435
                                                                                                                 REFMAP    436
           361  0410000345 +             LISTV3   ZR     B1,LISTV          EXIT IF NOTHING TO DUMP               REFMAP    437
                          0400000341 +            EQ     LISTVX                                                  REFMAP    438
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    12
         LISTV - LIST ROUTINE                                                   CODE
  
                                        ***                                                                      REFMAP    440
                                        *         LISTR - LIST REFERENCES FOR A VARIABLE                         REFMAP    441
                                        *                                                                        REFMAP    442
                                        *         FORMATS THE REFERENCE LIST INTO LINES OF THE FORM:             REFMAP    443
                                        *         TN,K(3X,I4,3X) WHERE: N = DLINE*10 AND K = WPL-DLINE ,         REFMAP    444
                                        *         AND PRINTS THEM.                                               REFMAP    445
                                        *         REPEATED REFERENCES ON THE SAME LINE ARE FORMATTED AS:         REFMAP    446
                                        *         I3*IN WHERE I3 IS THE REP COUNT AND N THE NUMBER OF DIGITS     REFMAP    447
                                        *         IN THE LINE NUMBER.                                            REFMAP    448
                                        *                                                                        REFMAP    449
                                        *         ON ENTRY:                                                      REFMAP    450
                                        *                X1 = ADDRESS OF REFERENCE LIST                          REFMAP    451
                                        *                X2 = "SUBTITLE" WORD                                    REFMAP    452
                                        *                B1 = WORD COUNT FOR THE CURRENT LINE                    REFMAP    453
                                        *                                                                        REFMAP    454
                                        *         ON EXIT:                                                       REFMAP    455
                                        *                B1 = WORD COUNT FOR CURRENT LINE                        REFMAP    456
                                        *                B2 = WORD COUNT RESET IF B1 = 0                         REFMAP    457
                                                                                                                 REFMAP    458
           362  55555500000000555555     COMP     VFD    18/3R   ,24/0,18/3R                                     REFMAP    459
                                                                                                                 REFMAP    460
           363  00000000000000000000     LISTR                             ** ENTRY/EXIT LINE **                 REFMAP    461
           364  10722                             BX7    X2                                                      REFMAP    462
                     0510000365 +                 NZ     B1,LISTR1         IF WC .NE. 0                          REFMAP    463
                               66120              SB1    B2                WC = DLINE                            REFMAP    464
           365  0302000366 +             LISTR1   ZR     X2,LISTR.O        IF NO HEADER WORD                     REFMAP    465
                          56771                   SA7    B7+B1             STORE HEADER WORD                     REFMAP    466
                               66115              SB1    B1+B5             WC = WC+1                             REFMAP    467
                                                                                                                 REFMAP    468
           366  5130000362 +             LISTR.O  SA3    COMP                                                    REFMAP    469
                          43030                   MX0    L.BCDLN                                                 REFMAP    470
           367  6160000015                        SB6    WPL               WORDS/LINE                            REFMAP    471
                          20052                   LX0    L.BCDLN+P.BCDLN                                         REFMAP    472
                               43414              MX4    L.REP             REP COUNT MAP                         REFMAP    473
                                                                                                                 REFMAP    474
                                        *         LOOP THROUGH THE LIST                                          REFMAP    475
                                                                                                                 REFMAP    476
           370  53210                    LISTR.I  SA2    X1                X2 = WORD                             REFMAP    477
                     11602                        BX6    X0*X2             EXTRACT INTEGER                       REFMAP    478
                          36736                   IX7    X3+X6             ADD COMPLEMENT                        REFMAP    479
                               56771              SA7    B7+B1                                                   REFMAP    480
           371  11542                             BX5    X4*X2             EXTRACT REP COUNT                     REFMAP    481
                     0315000410 +                 NZ     X5,LISTR.R        IF A REP COUNT                        REFMAP    482
                                                                                                                 REFMAP    483
           372  66115                    LISTR.II SB1    B1+B5             WC = WC+1                             REFMAP    484
                     0416000375 +                 EQ     B1,B6,LISTR.D     JUMP IF A FULL LINE                   REFMAP    485
                                                                                                                 REFMAP    486
                               73120              SX1    X2                                                      REFMAP    487
           373  0311000370 +                      NZ     X1,LISTR.I        LOOP IF NOT END OF LIST               REFMAP    488
                          7151777764              SX5    B1+2-WPL                                                REFMAP    489
           374  0335000363 +                      NG     X5,LISTR          EXIT IF AT LEAST 2 WORDS LEFT         REFMAP    490
                                                                                                                 REFMAP    491
                                        *         DUMP THE ACCUMULATED LINE                                      REFMAP    492
                                                                                                                 REFMAP    493
           375  73620                    LISTR.D  SX6    X2                                                      REFMAP    494
                     5160000051 C                 SA6    TEMPA             SAVE LIST ADDRESS                     REFMAP    495
                               43060              MX0    48                                                      REFMAP    496
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    13
         LISTV - LIST ROUTINE                                                   CODE
  
           376  11707                             BX7    X0*X7             CREATE A ZERO BYTE                    REFMAP    497
                     54770                        SA7    A7                                                      REFMAP    498
                          66710                   SB7    B1                                                      REFMAP    499
           377  6110000001                        SB1    1                                                       REFMAP    500
                          6160000065 C            LISTL  LBUF,B7                                                 REFMAP    501
           401  5110000051 C                      SA1    TEMPA                                                   REFMAP    502
                                                                                                                 REFMAP    503
                                        *         RESET B7 , WORD COUNT AND FIRST DLINE WORDS OF BUFFER          REFMAP    504
                                                                                                                 REFMAP    505
                          5140000054 C            SA4    DLINE                                                   REFMAP    506
           402  5120000053 C                      SA2    BFILL             BLANK FILL FLAG                       REFMAP    507
                          6170000065 C            SB7    LBUF                                                    REFMAP    508
           403  66510                             SB5    B1                                                      REFMAP    509
                     63140                        SB1    X4                                                      REFMAP    510
                          0302000406 +            ZR     X2,LISTR.D1       IF FIRST DLINE WORDS ARE BLANK FILLED REFMAP    511
           404  10722                             BX7    X2                                                      REFMAP    512
                     43600                        MX6    0                                                       REFMAP    513
                          54620                   SA6    A2                CLEAR FLAG                            REFMAP    514
                               66200              SB2    B0                                                      REFMAP    515
                                                                                                                 REFMAP    516
           405  56772                   +         SA7    B7+B2                                                   REFMAP    517
                     66225                        SB2    B2+B5                                                   REFMAP    518
                          0721000405 +            LT     B2,B1,*                                                 REFMAP    519
                                                                                                                 REFMAP    520
           406  0311000366 +             LISTR.D1 NZ     X1,LISTR.O        IF MORE REFS                          REFMAP    521
                          66210                   SB2    B1                B2 = WC RESET IF LISTR IS CALLED AGAI REFMAP    522
                               66100              SB1    B0                                                      REFMAP    523
           407  0400000363 +                      EQ     LISTR                                                   REFMAP    524
                                                                                                                 REFMAP    525
                                        *         PROCESS REP COUNT                                              REFMAP    526
                                                                                                                 REFMAP    527
           410  10622                    LISTR.R  BX6    X2                                                      REFMAP    528
                     5160000051 C                 SA6    TEMPA                                                   REFMAP    529
                               20514              LX5    L.REP                                                   REFMAP    530
           411  73155                             SX1    X5+B5                                                   REFMAP    531
                     66610                        SB6    B1                                                      REFMAP    532
                          6110000001              SB1    1                                                       REFMAP    533
           412  0100000000 X                      CALL   CDD               RETURNS (X6) = INTEGER, DPC -A- FMT   REFMAP    534
           413  66510                             SB5    B1                                                      REFMAP    535
                     66160                        SB1    B6                                                      REFMAP    536
                                                                                                                 REFMAP    537
                                        *         FORM REPS*LINE NUMBER                                          REFMAP    538
                                                                                                                 REFMAP    539
                          5120000051 C            SA2    TEMPA                                                   REFMAP    540
           414  43414                             MX4    L.REP             RESTORE REP COUNT MASK                REFMAP    541
                     54170                        SA1    A7                REFETCH WORD                          REFMAP    542
                          43752                   MX7    60-18                                                   REFMAP    543
           415  7150000047                        SX5    1R*                                                     REFMAP    544
                          20166                   LX1    60-6                                                    REFMAP    545
                               15667              BX6    -X7*X6            EXTRACT 3 DIGITS                      REFMAP    546
           416  20606                             LX6    6                                                       REFMAP    547
                     36556                        IX5    X5+X6             X5 = 4RNNN*                           REFMAP    548
                          15324                   BX3    -X4*X2                                                  REFMAP    549
                               21352              AX3    P.BCDLN+L.BCDLN                                         REFMAP    550
           417  6233000014                        SB3    X3+12             B3 = SC FOR REP COUNT                 REFMAP    551
                          22535                   LX5    B3,X5                                                   REFMAP    552
                               43744              MX7    60-24                                                   REFMAP    553
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    14
         LISTV - LIST ROUTINE                                                   CODE
  
           420  22337                             LX3    B3,X7                                                   REFMAP    554
                     11131                        BX1    X3*X1             REMOVE 4 CHARACTERS                   REFMAP    555
                          12715                   BX7    X1+X5             AND ADD IN REP COUNT                  REFMAP    556
                               54770              SA7    A7                                                      REFMAP    557
           421  6160000015                        SB6    WPL               ** X0 , B7 , B1 UNTOUCHED BY CONDEC   REFMAP    558
                          5130000362 +            SA3    COMP                                                    REFMAP    559
           422  0400000372 +                      EQ     LISTR.II                                                REFMAP    560
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    15
         FMT - FORMAT LINE                                                      CODE
  
                                        ***                                                                      REFMAP    562
                                        *         FMT - FORMAT DATA IN VBUF AND STORE IN LBUF                    REFMAP    563
                                        *         EQUIVALENT TO A FORMATTED WRITE STMT IN "FORTRAN"              REFMAP    564
                                        *                                                                        REFMAP    565
                                        *         ON ENTRY:                                                      REFMAP    566
                                        *                A5 = ADDRESS OF FORMAT SPEC                             REFMAP    567
                                        *                NEXTE = 0 IF NO MORE ELEMENTS IN LIST                   REFMAP    568
                                        *                DLINE = 0 IF SHORT MAP                                  REFMAP    569
                                        *                ELSE = NUMBER OF WORDS TO PAD PARTIAL LINE OUT TO       REFMAP    570
                                        *                                                                        REFMAP    571
                                        *         ON EXIT:                                                       REFMAP    572
                                        *                IF THE SHORT MAP OPTION IS ON, THEN THE LINE IS DUMPED  REFMAP    573
                                        *                TO THE LIST FILE.                                       REFMAP    574
                                        *                IF THE LONG MAP OPTION IS ON , THEN THE LINE IS PADDED  REFMAP    575
                                        *                OUT WITH BLANKS FOR "DLINE" WORDS , B1 = "DLINE" AND    REFMAP    576
                                        *                BLANK FILL FLAG, "BFILL" IS SET TO BLANKS .             REFMAP    577
                                        *                                                                        REFMAP    578
                                        *         REGISTER ASSIGNMENTS                                           REFMAP    579
                                        *                                                                        REFMAP    580
                                        *         X0     FORMAT SPEC                                             REFMAP    581
                                        *         X1     NEXT ITEM FROM VBUF                                     REFMAP    582
                                        *         X7     CURRENT WORD                                            REFMAP    583
                                                                                                                 REFMAP    584
                                         WC       MICRO  1,,/B1/           WORD COUNT                            REFMAP    585
                                         BC       MICRO  1,,/B3/           BIT COUNT ( NUMBER OF BITS IN ITEM )  REFMAP    586
                                         60       MICRO  1,,/B6/           CONSTANT 60                           REFMAP    587
                                         BL       MICRO  1,,/B7/           BITS LEFT IN THE WORD                 REFMAP    588
                                                                                                                 REFMAP    589
           423  00000000000000000000     FMT                                                                     REFMAP    590
           424  74710                             SX7    A1                                                      REFMAP    591
                     5170000040 C                 SA7    WORDA             SAVE SYMTAB ADDRESS FOR SORTRL        REFMAP    592
                               10055              BX0    X5                FORMAT SPEC TO X0                     REFMAP    593
           425  5100000065 C                      SA0    LBUF              STORE ADDRESS                         REFMAP    594
                          6170000074              S"BL"  60                BITS LEFT                             REFMAP    595
           426  66100                             S"WC"  B0                WORD COUNT                            REFMAP    596
                     54555                        SA5    A5+B5             POSSIBLE SECOND WORD                  REFMAP    597
                          43700                   MX7    0                 CLEAR ACCUMULATED WORD                REFMAP    598
                               10655              BX6    X5                                                      REFMAP    599
           427  66670                             S"60"  "BL"              FOR COMPARES                          REFMAP    600
                     55605                        SA6    A0-B5             SAVE                                  REFMAP    601
                          5110000055 C            SA1    VBUF              FIRST ITEM                            REFMAP    602
                                                                                                                 REFMAP    603
                                        *         EXTRACT FORMAT SPEC                                            REFMAP    604
                                                                                                                 REFMAP    605
           430  20003                    FMT.L    LX0    3                                                       REFMAP    606
                     43571                        MX5    60-3                                                    REFMAP    607
                          15205                   BX2    -X5*X0            EXTRACT INDEX                         REFMAP    608
                               20004              LX0    4                                                       REFMAP    609
           431  43570                             MX5    60-4                                                    REFMAP    610
                     15305                        BX3    -X5*X0            EXTRACT FIELD WIDTH                   REFMAP    611
                          63220                   SB2    X2                INDEX                                 REFMAP    612
                               63430              SB4    X3                CHAR COUNT                            REFMAP    613
           432  66344                             S"BC"  B4+B4                                                   REFMAP    614
                     20302                        LX3    2                                                       REFMAP    615
                          63333                   S"BC"  "BC"+X3           BIT COUNT = 6*CHAR COUNT              REFMAP    616
           433  0222000434 +                      JP     B2+FMT.TBL                                              REFMAP    617
                                                                                                                 REFMAP    618
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    16
         FMT - FORMAT LINE                                                      CODE
  
           434  5120000054 C             FMT.TBL  SA2    DLINE             0 - TERMINATE LINE                    REFMAP    619
                          0400000467 +            EQ     FMT.FIN                                                 REFMAP    620
                                                                                                                 REFMAP    621
           435  55205                             SA2    A0-B5             1 - FETCH NEXT FORMAT WORD ( 2 MAX )  REFMAP    622
                     10022                        BX0    X2                                                      REFMAP    623
                          0400000430 +            EQ     FMT.L                                                   REFMAP    624
                                                                                                                 REFMAP    625
           436  10511                   +         BX5    X1                2 - AN                                REFMAP    626
                     54115                        SA1    A1+B5                                                   REFMAP    627
                          0400000446 +            EQ     FMT.ADD                                                 REFMAP    628
                                                                                                                 REFMAP    629
           437  5154000000 +                      SA5    BLANKS+B4         3 - NX                                REFMAP    630
                          0400000446 +            EQ     FMT.ADD                                                 REFMAP    631
                                                                                                                 REFMAP    632
           440  0400000455 +                      EQ     FMT.IN            4 - IN INTEGER FIELD OF WIDTH N       REFMAP    633
                                                                                                                 REFMAP    634
           441  0400000444 +                      EQ     FMT.Z8            5 - OCTAL DIGITS WITH LEADING 0 SUPP  REFMAP    635
                                                                                                                 REFMAP    636
           442  0100000300 +                      RJ     OCTC              6 - OCTAL CONVERSION WITH TRAILING B  REFMAP    637
           443  0400000445 +                      EQ     FMT.NXT                                                 REFMAP    638
                                                                                                                 REFMAP    639
           444  0100000271 +             FMT.Z8   RJ     Z8                                                      REFMAP    640
           445  54115                    FMT.NXT  SA1    A1+B5             NEXT ITEM                             REFMAP    641
                     10566                        BX5    X6                                                      REFMAP    642
  
  
  
                                        *         ADD CHARACTERS TO THE STRING                                   REFMAP    644
                                        *         X5 = NL_STRING , X7 = WORD , BL , 60 , BC REGISTERS SET        REFMAP    645
                                                                                                                 REFMAP    646
           446  0673000452 +             FMT.ADD  LE     "BC","BL",FMT.ADD1   IF BC .LE. BL                      REFMAP    647
                          43201                   MX2    1                                                       REFMAP    648
                               67275              SB2    "BL"-B5                                                 REFMAP    649
           447  23322                             AX3    B2,X2             MASK(BL)                              REFMAP    650
                     11435                        BX4    X3*X5                                                   REFMAP    651
                          22674                   LX6    "BL",X4                                                 REFMAP    652
                               36776              IX7    X7+X6             ACCUMULATE WORD                       REFMAP    653
           450  54701                             SA7    A0+"WC"           STORE WORD                            REFMAP    654
                     15553                        BX5    -X3*X5                                                  REFMAP    655
                          67337                   S"BC"  "BC"-"BL"                                               REFMAP    656
                               22775              LX7    "BL",X5           POSITION REMAINING CHARACTERS         REFMAP    657
           451  66115                             S"WC"  "WC"+B5                                                 REFMAP    658
                     67763                        S"BL"  "60"-"BC"         UPDATE BITS LEFT                      REFMAP    659
                          0400000430 +            EQ     FMT.L                                                   REFMAP    660
                                                                                                                 REFMAP    661
           452  22575                    FMT.ADD1 LX5    "BL",X5           JUSTIFY STRING                        REFMAP    662
                     12775                        BX7    X7+X5                                                   REFMAP    663
                          67773                   S"BL"  "BL"-"BC"         UPDATE BIT COUNT                      REFMAP    664
           453  0570000430 +                      NZ     "BL",FMT.L        IF WORD IS NOT FILLED UP              REFMAP    665
                          54701                   SA7    A0+"WC"           STORE WORD                            REFMAP    666
                               66115              S"WC"  "WC"+B5           WC = WC+1                             REFMAP    667
           454  43700                             MX7    0                                                       REFMAP    668
                     66760                        S"BL"  "60"              RESET BITS LEFT                       REFMAP    669
                          0400000430 +            EQ     FMT.L                                                   REFMAP    670
                                                                                                                 REFMAP    671
                                        *         INTEGER CONVERSION                                             REFMAP    672
                                                                                                                 REFMAP    673
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    17
         FMT - FORMAT LINE                                                      CODE
  
           455  54701                    FMT.IN   SA7    A0+"WC"           SAVE CURRENT WORD                     REFMAP    674
                     27101                        PX1    X1                PACK INTEGER                          REFMAP    675
                          5140000012 +            SA4    =1H                                                     REFMAP    676
           456  5120000014 +                      SA2    =0.1000000001P48  X2 = .1 + ROUNDING FACTOR             REFMAP    677
                          5130000015 +            SA3    =10.0P0                                                 REFMAP    678
           457  6140777755                        SB4    1R0-1R                                                  REFMAP    679
                          10644                   BX6    X4                SET RESULT TO BLANKS                  REFMAP    680
                               67263              SB2    "60"-"BC"         INITIALIZE SHIFT COUNT                REFMAP    681
                                                                                                                 REFMAP    682
           460  42412                    INL      DX4    X1*X2             N*.1                                  REFMAP    683
                     40112                        FX1    X1*X2             N*.1                                  REFMAP    684
                          20666                   LX6    54                                                      REFMAP    685
           461  6122000006                        SB2    B2+6              SC = SC+6                             REFMAP    686
                          40543                   FX5    X4*X3             REMAINDER                             REFMAP    688
                               73754              SX7    X5+B4             CONVERT TO DPC                        REFMAP    689
           462  36667                             IX6    X6+X7             ADD TO STRING                         REFMAP    690
                     26501                        UX5    X1                                                      FCC0574     6
                          0315000460 +            NZ     X5,INL                                                  FCC0574     7
                                                                                                                 REFMAP    692
           463  20666                             LX6    54                                                      REFMAP    693
                     67435                        SB4    "BC"-B5                                                 REFMAP    694
                          43401                   MX4    1                                                       REFMAP    695
                               22526              LX5    B2,X6             JUSTIFY                               REFMAP    696
           464  23444                             AX4    B4,X4             MASK(BC)                              REFMAP    697
                     54301                        SA3    A0+"WC"                                                 REFMAP    698
                          6160000074              S"60"  60                RESTORE COMPARE REGISTER              REFMAP    699
           465  10733                             BX7    X3                                                      REFMAP    700
                     54115                        SA1    A1+B5             NEXT ITEM                             REFMAP    701
                          11545                   BX5    X4*X5                                                   REFMAP    702
           466  0400000446 +                      EQ     FMT.ADD                                                 REFMAP    703
  
  
  
                                        *         END OF FORMAT                                                  REFMAP    705
                                                                                                                 REFMAP    706
           467  0312000512 +            FMT.FIN   NZ     X2,FMT.FIN1       IF PADDING REQUIRED                   REFMAP    707
                                                                                                                 REFMAP    708
                                        *         SHORT MAP - FILL OUT LINE WITH BLANKS, MOVE IT TO PBUF         REFMAP    709
                                        *         AND PRINT IT IF WE HAVE A FULL LINE OR NEXTE = 0               REFMAP    710
                                                                                                                 REFMAP    711
                          5154000000 +            SA5    BLANKS+B4                                               REFMAP    712
           470  0754000473 +                      GT     B4,B5,FMT.X       IF AT LEAST A ZERO BYTE LEFT          REFMAP    713
                                                                                                                 REFMAP    714
                          22375                   LX3    "BL",X5           FILL OUT CURRENT WORD                 REFMAP    715
                               12673              BX6    X7+X3                                                   REFMAP    716
           471  54601                             SA6    A0+"WC"                                                 REFMAP    717
                     66700                        S"BL"  B0                                                      REFMAP    718
                          43700                   MX7    0                                                       REFMAP    719
                               66115              S"WC"  "WC"+B5                                                 REFMAP    720
           472  5150000012 +                      SA5    =10H                                                    REFMAP    721
                                                                                                                 REFMAP    722
           473  22675                    FMT.X    LX6    "BL",X5                                                 REFMAP    723
                     12776                        BX7    X7+X6             LAST WORD = 10LXXX                    REFMAP    724
                          54701                   SA7    A0+"WC"                                                 REFMAP    725
                               66115              S"WC"  "WC"+B5           WC = WC+1                             REFMAP    726
                                                                                                                 REFMAP    727
           474  5110000121 C                      SA1    ACCWC             MOVE LINE TO PBUF AND DUMP IF NECESS  REFMAP    728
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    18
         FMT - FORMAT LINE                                                      CODE
  
                          6160000015              SB6    WPL               WORD LIMIT FOR THE LINE               REFMAP    729
           475  63411                             SB4    X1+B1             TOTAL WORD COUNT                      REFMAP    730
                     0664000503 +                 LE     B4,B6,FMT.X1      IF ENOUGH ROOM TO ADD                 REFMAP    731
                                                                                                                 REFMAP    732
                               76610              SX6    B1                                                      REFMAP    733
           476  54610                             SA6    A1                SAVE WORD COUNT IN ACCWC              REFMAP    734
                     6170000103 C                 SB7    PBUF                                                    REFMAP    735
                               63110              SB1    X1                                                      REFMAP    736
           477  0100001264 +                      RJ     DLL               DUMP LINE                             REFMAP    737
           500  5110000121 C                      SA1    ACCWC                                                   REFMAP    738
                          6170000065 C            SB7    LBUF                                                    REFMAP    739
           501  5150000037 C                      SA5    NEXTE                                                   REFMAP    740
                          63110                   SB1    X1                                                      REFMAP    741
                               43100              MX1    0                                                       REFMAP    742
           502  0305000510 +                      ZR     X5,FMT.X2         IF THIS IS THE LAST IN THE LIST       REFMAP    743
                                                                                                                 REFMAP    744
           503  5120000065 C             FMT.X1   SA2    LBUF              ADD WORDS IN LBUF TO LINE BEING FORME REFMAP    745
                          6170000103 C            SB7    PBUF              IN PBUF                               REFMAP    746
           504  5150000037 C                      SA5    NEXTE                                                   REFMAP    747
                          66210                   SB2    B1                                                      REFMAP    748
                               22701              LX7    X1                                                      REFMAP    749
                                                                                                                 REFMAP    750
           505  10622                   +         BX6    X2                MOVE WORDS TO PBUF                    REFMAP    751
                     54225                        SA2    A2+B5                                                   REFMAP    752
                          67225                   SB2    B2-B5                                                   REFMAP    753
                               53677              SA6    B7+X7                                                   REFMAP    754
           506  73775                             SX7    X7+B5                                                   REFMAP    755
                     0520000505 +                 NZ     B2,*-1            LOOP IF MORE TO GO                    REFMAP    756
                               54710              SA7    A1                UPDATE ACCWC                          REFMAP    757
           507  0315000423 +                      NZ     X5,FMT            IF MORE ELEMENTS IN THE LIST          REFMAP    758
                          63170                   SB1    X7                                                      REFMAP    759
                                                                                                                 REFMAP    760
                                        *         END OF LIST - DUMP LAST PARTIAL LINE                           REFMAP    761
                                                                                                                 REFMAP    762
           510  43700                    FMT.X2   MX7    0                                                       REFMAP    763
                     54710                        SA7    A1                ACCWC = 0                             REFMAP    764
                          0100001264 +            RJ     DLL               DUMP THE LINE                         REFMAP    765
           511  0400000423 +                      EQ     FMT                                                     REFMAP    766
                                                                                                                 REFMAP    767
                                        *         LONG MAP - PAD UP TO COL DLINE*10 WITH BLANKS                  REFMAP    768
                                                                                                                 REFMAP    769
           512  5110000012 +             FMT.FIN1 SA1    =10H                                                    REFMAP    770
                          5134000000 +            SA3    BLANKS+B4                                               REFMAP    771
           513  63220                             SB2    X2                                                      REFMAP    772
                     10611                        BX6    X1                                                      REFMAP    773
                          5160000053 C            SA6    BFILL             SET BLANK FILL FLAG FOR LISTV         REFMAP    774
           514  22473                             LX4    "BL",X3                                                 REFMAP    775
                     0476000516 +                 EQ     "BL","60",FMT.FINL  IF CURRENT WORD IS EMPTY            REFMAP    776
                               12774              BX7    X7+X4             FILL OUT CURRENT WORD                 REFMAP    777
           515  54701                             SA7    A0+"WC"                                                 REFMAP    778
                     66115                        S"WC"  "WC"+B5                                                 REFMAP    779
                                                                                                                 REFMAP    780
           516  0412000423 +             FMT.FINL EQ     "WC",B2,FMT       IF FINISHED                           REFMAP    781
                          54601                   SA6    A0+"WC"                                                 REFMAP    782
                               66115              S"WC"  "WC"+B5           WC = WC+1                             REFMAP    783
           517  0400000516 +                      EQ     FMT.FINL                                                REFMAP    784
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    19
         MACROS                                                                 CODE
  
                                   0     F=       EQU    0                 TERMINATE THE STRING                  REFMAP    786
                                   2     F=A      EQU    2                 AN                                    REFMAP    787
                                   3     F=X      EQU    3                 XN  ( NX )                            REFMAP    788
                                   4     F=I      EQU    4                 IN                                    REFMAP    789
                                   5     F=Z      EQU    5                 Z8                                    REFMAP    790
                                   6     F=O      EQU    6                 O6,*B *                               REFMAP    791
  
  
  
                                        *         MACRO TO CREATE A FORMAT SPEC FOR "FMT"                        REFMAP    793
                                                                                                                 REFMAP    794
                                        *         FORMAT SPEC IS WRITTEN AS (TZ1,TZ2,...)                        REFMAP    795
                                        *         WHERE T MAY BE: A,I,O,X OR Z AND 0 @ ZI @ 11                   REFMAP    796
                                                                                                                 REFMAP    797
                                         FORMAT   MACRO  STRING                                                  REFMAP    798
                                                  LOCAL  IC,C,SEP,CH,FL                                          REFMAP    799
                                         FL       SET    0                                                       REFMAP    800
                                         IC       SET    0                 ITEMS IN CURRENT WORD                 REFMAP    801
                                         C        SET    1                 COLUMN POINTER                        REFMAP    802
                                                                                                                 REFMAP    803
                                                  DUP    72                                                      REFMAP    804
                                         CH       MICRO  C,1,/STRING/                                            REFMAP    805
                                         C        SET    C+1                                                     REFMAP    806
                                                  VFD    3/F="CH"          INDEX                                 REFMAP    807
                                                                                                                 REFMAP    808
                                         OT       IFNE   F="CH",0                                                REFMAP    809
                                         CH       MICRO  C,1,/STRING/                                            REFMAP    810
                                         SEP      MICRO  C+1,1,/STRING/                                          REFMAP    811
                                         C        SET    C+2                                                     REFMAP    812
                                                  IFC    NE,/"SEP"/,/,2                                          REFMAP    813
                                         C        SET    C+1                                                     REFMAP    814
                                         CH       MICRO  1,,/"CH""SEP"/    FIELD WIDTH                           REFMAP    815
                                                  VFD    4/"CH"                                                  REFMAP    816
                                         IC       SET    IC+1                                                    REFMAP    817
                                         FL       SET    FL+"CH"                                                 REFMAP    818
                                                                                                                 REFMAP    819
                                         ET       IFEQ   IC,8                                                    REFMAP    820
                                                  VFD    4/2               CODE = 1 ( GET SECOND WORD )          REFMAP    821
                                         IC       SET    0                                                       REFMAP    822
                                         ET       ENDIF                                                          REFMAP    823
                                                                                                                 REFMAP    824
                                         OT       ELSE                                                           REFMAP    825
                                         IC       SET    FL/10                                                   REFMAP    826
                                         IC       SET    FL-IC*10                                                REFMAP    827
                                                  VFD    4/10-IC,$/0       COUNT TO FILL OUT WORD                REFMAP    828
                                                  STOPDUP                                                        REFMAP    829
                                         OT       ENDIF                                                          REFMAP    830
                                                                                                                 REFMAP    831
                                                  ENDD                                                           REFMAP    832
                                                                                                                 REFMAP    833
                                                  ENDM                                                           REFMAP    834
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    20
         MACROS                                                                 CODE
  
                                         FMTL     MACRO  STRING            FORMAT AND OPTIONALLY PRINT A LINE    REFMAP    836
                                                  LOCAL  X                                                       REFMAP    837
                                                  USE    DATA                                                    REFMAP    838
                                         X        BSS    0                                                       REFMAP    839
                                                  FORMAT (STRING)                                                REFMAP    840
                                                  USE    *                                                       REFMAP    841
                                                  SA5    X                                                       REFMAP    842
                                                  RJ     FMT                                                     REFMAP    843
                                                  ENDM                                                           REFMAP    844
                                                                                                                 REFMAP    845
                                         LISTR    MACRO  A,B,C                                                   REFMAP    846
                                                  LOCAL  X                                                       REFMAP    847
                                        O         IFC    EQ,/A/NOHEAD/                                           REFMAP    848
                                                  SA5    B0                NO HEADER CASE                        REFMAP    849
                                        O         ELSE                                                           REFMAP    850
                                                  USE    DATA                                                    REFMAP    851
                                         X        DATA   10L_A                                                   REFMAP    852
                                                  DATA   10L_B                                                   REFMAP    853
                                                  DATA   10L_C                                                   REFMAP    854
                                                  USE    *                                                       REFMAP    855
                                                  SA5    X                                                       REFMAP    856
                                        O         ENDIF                                                          REFMAP    857
                                                  RJ     LISTV                                                   REFMAP    858
                                                  ENDM                                                           REFMAP    859
                                                                                                                 REFMAP    860
                                        *         MACROS FOR THE PRINT LOOPS                                     REFMAP    861
                                                                                                                 REFMAP    862
                                         CLIST    MACRO  POINTER,LABEL     CHECK FOR AN EMPTY LIST               REFMAP    863
                                                  SA5    POINTER                                                 REFMAP    864
                                                  ZR     X5,RMAP.LABEL                                           REFMAP    865
                                                  ENDM                                                           REFMAP    866
                                                                                                                 REFMAP    867
                                         LOOPT    MACRO  DUMMY,LABEL       PRINT LOOP TERMINATOR TEST            REFMAP    868
                                                  SA5    NEXTE             POINTER TO NEXT ELEMENT               REFMAP    869
                                                  NZ     X5,RMAP.LABEL                                           REFMAP    870
                                                  ENDM                                                           REFMAP    871
                                                                                                                 REFMAP    872
                                         GSYM     MACRO  STORE             SET UP REGISTERS                      REFMAP    873
                                                                                                                 REFMAP    874
                                        *         ON ENTRY:  X5 = POINTER TO NEXT ELEMENT                        REFMAP    875
                                                                                                                 REFMAP    876
                                                  SA4    X5                30/NEXT,30/WORD A                     REFMAP    877
                                                  MX0    L.NAME                                                  REFMAP    878
                                                  SA1    X4                WORD A                                REFMAP    879
                                                  BX6    X0*X4                                                   REFMAP    880
                                                  SA2    A1-B5             WORD B                                REFMAP    881
                                                  AX6    30                                                      REFMAP    882
                                                  SB7    VBUF+1                                                  REFMAP    883
                                                  BX7    X0*X1             EXTRACT NAME                          REFMAP    884
                                                  SA6    NEXTE             SAVE POINTER TO NEXT ELEMENT          REFMAP    885
                                                  IFC    NE,/STORE//,1                                           REFMAP    886
                                                  SA7    STORE             STORE NAME                            REFMAP    887
                                                  ENDM                                                           REFMAP    888
                                                                                                                 REFMAP    889
                                         EFIELD   MACRO  FIELD             EXTRACT A FIELD FROM SYMTAB           REFMAP    890
                                        *                                  ENTRY IN X1 AND X2                    REFMAP    891
                                                  IF     DEF,L.FIELD                                             REFMAP    892
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    21
         MACROS                                                                 CODE
  
                                                  BX3    X2                                                      REFMAP    893
                                                  MX0    60-L.FIELD                                              REFMAP    894
                                                  ELSE                                                           REFMAP    895
                                                  BX3    X.FIELD                                                 REFMAP    896
                                                  MX0    59                                                      REFMAP    897
                                                  ENDIF                                                          REFMAP    898
                                                  AX3    P.FIELD                                                 REFMAP    899
                                                  BX6    -X0*X3                                                  REFMAP    900
                                                  ENDM                                                           REFMAP    901
                                                                                                                 REFMAP    902
                                         LOOKUP   MACRO  TABLE             LOOKUP DPC REPRESENTATION IN TABLE    REFMAP    903
                                                  SA4    X6+TABLE                                                REFMAP    904
                                                  BX7    X4                                                      REFMAP    905
                                                  ENDM                                                           REFMAP    906
                                                                                                                 REFMAP    907
                                         TBIT     MACRO  BIT,LABEL,DPC                                           REFMAP    908
                                                  BX3    X.BIT                                                   REFMAP    909
                                                  LX3    59-P.BIT                                                REFMAP    910
                                                  SB1    DPC                                                     REFMAP    911
                                                  NG     X3,RMAP.LABEL                                           REFMAP    912
                                                  ENDM                                                           REFMAP    913
                                                                                                                 REFMAP    914
                                         TBITN    MACRO  BIT,LABEL,DPC                                           REFMAP    915
                                                  BX3    X.BIT                                                   REFMAP    916
                                                  LX3    59-P.BIT                                                REFMAP    917
                                                  SB1    DPC                                                     REFMAP    918
                                                  PL     X3,RMAP.LABEL                                           REFMAP    919
                                                  ENDM                                                           REFMAP    920
                                                                                                                 REFMAP    921
                                        *         R=0 - TEST FOR LONG MAP OPTION OFF                             REFMAP    922
                                                                                                                 REFMAP    923
                                         R=0      MACRO  LABEL             IF( R .EQ. 0 ) GO TO LABEL            REFMAP    924
                                                  SA5    REFACC                                                  REFMAP    925
                                                  ZR     X5,RMAP.LABEL                                           REFMAP    926
                                                  ENDM                                                           REFMAP    927
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    22
         MAIN LOOP                                                              CODE
  
                                        *         CLEAR LISTING SUBTITLE LINE.                                   REFMAP    929
                                                                                                                 REFMAP    930
           520  7160003355               RMAPX    SX6    2R0                                                     REFMAP    931
                          7170000001              SX7    1                                                       REFMAP    932
           521  20660                             LX6    48                                                      REFMAP    933
                     5170000000 X                 SA7    =XL.STITL         RESTORE LENGTH (WORDS OR CHARACTERS)  REFMAP    934
           522  5160000000 X                      SA6    =XO.STITL                                               REFMAP    935
                                                                                                                 REFMAP    936
                                        *         RESTORE ANY CHANGED NAMES                                      REFMAP    937
                                                                                                                 REFMAP    938
                          5120000022 C            SA2    L.CNTBL                                                 REFMAP    939
           523  0302000530 +                      ZR     X2,RMAPX1         IF NO CHANGED NAMES                   REFMAP    940
                          5110000021 C            SA1    O.CNTBL           FWA                                   REFMAP    941
           524  43052                             MX0    L.NAME                                                  REFMAP    942
                     63110                        SB1    X1                FWA                                   REFMAP    943
                          63221                   SB2    B1+X2             LWA+1                                 REFMAP    944
                                                                                                                 REFMAP    945
           525  56210                    RMAPX.L  SA2    B1                42/7L_NAME,18/ADDRESS                 REFMAP    946
                     53320                        SA3    X2                WORD A OF SYMTAB                      REFMAP    947
                          11602                   BX6    X0*X2                                                   REFMAP    948
                               66115              SB1    B1+B5                                                   REFMAP    949
           526  15430                             BX4    -X0*X3                                                  REFMAP    950
                     36764                        IX7    X6+X4             RESTORE WORD A                        REFMAP    951
                          54730                   SA7    A3                                                      REFMAP    952
           527  0712000525 +                      LT     B1,B2,RMAPX.L     LOOP TO THE END OF THE TABLE          REFMAP    953
                                                                                                                 REFMAP    954
                                         RSOR     IFC    EQ, "C" .                                               REFMAP    955
                                                                                                                 REFMAP    956
                                        *         RESTORE ALL FILE NAMES BACK TO INSTALLATION SELECTED           REFMAP    957
                                        *         SPECIAL CHARACTER OF PERIOD.                                   REFMAP    958
                                                                                                                 REFMAP    959
                                                  SA1    N.FILES                                                 REFMAP    960
                                                  ZR     X1,RSOR3          IF NO FILE NAMES                      REFMAP    961
                                                  SB1    X1                N.FILES                               REFMAP    962
                                                                                                                 REFMAP    963
                                                  MX0    60-6                                                    REFMAP    964
                                                  SA1    SYM1                                                    REFMAP    965
                                                  SA2    X1-4                                                    REFMAP    966
                                                                                                                 REFMAP    967
                                         RSOR1    SB3    12                SHIFT COUNT                           REFMAP    968
                                                  LX2    60-12                                                   REFMAP    969
                                                                                                                 REFMAP    970
                                         RSOR2    LX2    60-6                                                    REFMAP    971
                                                  BX7    -X0*X2            EXTRACT A CHARACTER                   REFMAP    972
                                                  SX6    X7-1R                                                   REFMAP    973
                                                  SB3    B3+6                                                    REFMAP    974
                                                  ZR     X6,RSOR2          IF A BLANK CHARACTER                  REFMAP    975
                                                                                                                 REFMAP    976
                                                  LX2    B3,X2                                                   REFMAP    977
                                                  SX7    1R.-1R#                                                 REFMAP    978
                                                  LX7    B3,X7                                                   REFMAP    979
                                                  IX7    X2+X7             CONVERT # TO .                        REFMAP    980
                                                  SA7    A2                                                      REFMAP    981
                                                  SB1    B1-B5             N.FILES = N.FILES - 1                 REFMAP    982
                                                  SA2    A2-2              NEXT FILE NAME                        REFMAP    983
                                                  NZ     B1,RSOR1          IF MORE FILES TO GO                   REFMAP    984
                                                                                                                 REFMAP    985
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    23
         MAIN LOOP                                                              CODE
  
                                         RSOR3    BSS    0                                                       REFMAP    986
                                         RSOR     ENDIF                                                          REFMAP    987
           530  5110000000 X             RMAPX1   SA1    RSELECT                                                 REFMAP    988
                          5120000000 X            SA2    =XCP.LSTF                                               REFMAP    989
           531  0321000534 +                      PL     X1,RMAPX2   IF R .LT. 2                                 REFMAP    990
                          0312000534 +            NZ     X2,RMAPX2   IF L.NE.0                                   REFMAP    991
           532  5120000016 +                      SA2    =1H0                                                    REFMAP    992
                          10622                   BX6    X2                                                      REFMAP    993
           533  5160000000 X                      SA6    =XO.TITL    IF L=0 AND R.GT.1 RESET FOR DOUBLE SPACE    REFMAP    994
                                        *         COMPUTE SCM REQUIREMENTS                                       FCC0556     5
           534  5110000016 C             RMAPX2   SA1    L.PROGP                                                 FCC0556     6
                          5120000015 C            SA2    L.BUFIO                                                 FCC0556     7
           535  5130000011 C                      SA3    L.SCOM                                                  FCC0556     8
                          36412                   IX4    X1+X2                                                   FCC0556     9
           536  5150000013 C                      SA5    L.SBLK                                                  FCC0556    10
                          36443                   IX4    X4+X3                                                   FCC0556    11
                               43053              MX0    -17                                                     FCC0556    12
           537  36445                             IX4    X4+X5                                                   FCC0556    13
                     11404                        BX4    X0*X4                                                   FCC0556    14
                          0304000546 +            ZR     X4,RMAPX3   IF .LT. 131K OF SCM IS REQUIRED             FCC0556    15
                                                                                                                 FCC0556    16
           540  76610                             SX6    B1                                                      FCC2313     6
                     5160000000 X                 SA6    =XCER.FL    HONOR THE A PARAMETER IF SPECIFIED          FCC2313     7
           541  6110000001                        SB1    1                                                       FCC0556    17
                          6160000255 +            LISTL  OVERFL,4                                                FCC0556    18
           543  66510                             SB5    B1                                                      FCC0556    19
                     5120000000 X                 SA2    N.FERR                                                  FCC0556    20
                               73721              SX7    X2+B1                                                   FCC0556    21
           544  54720                             SA7    A2                                                      FCC0556    22
                     0312000546 +                 NZ     X2,RMAPX3   IF FATAL ERROR ALREADY OCCURRED             FCC0556    23
                               76150              SX1    B5                                                      FCC0556    24
           545  0100000000 X                      CALL   IEM                                                     FCC0556    25
                                                                                                                 FCC0556    26
           546  5110000000 C             RMAPX3   SA1    BLKCOM                                                  FCC0556    27
                          0301000551 +            ZR     X1,REFMAP         IF NO BLANK COMMON                    REFMAP    996
           547  53210                             SA2    X1                                                      REFMAP    997
                     5130000007 +                 SA3    =7L                                                     REFMAP    998
                               43652              MX6    -18                                                     REFMAP    999
           550  15226                             BX2    -X6*X2                                                  REFMAP   1000
                     12632                        BX6    X3+X2                                                   REFMAP   1001
                          54620                   SA6    A2                RESTORE ORGTAB ENTRY                  REFMAP   1002
                                                                                                                 REFMAP   1003
           551  00000000000000000000     REFMAP   ENTRY.                   *** ENTRY/EXIT ***                    REFMAP   1004
                                                                                                                 REFMAP   1005
           552  6150000001                        SB5    1                                                       REFMAP   1006
                          0100001734 +            RJ     CPL               INITIALIZE, COMPUTE PROGRAM LENGTH    REFMAP   1007
  
  
                                        **        DUMP SYMBOL TABLE                                              FEAT1070C 196
                                        *                                                                        FEAT1070C 197
           553  5120000013                        SA2    SYMEND      LOW END                                     FEAT1070C 198
                          5130000012              SA3    SYM1        HIGH END                                    FEAT1070C 199
           554  37332                             IX3    X3-X2       LENGTH                                      FEAT1070C 200
                     7222000001                   SX2    X2+1        START LOCATION TO WRITE                     FEAT1070C 201
           555  7233777775                        SX3    X3-2        NUMBER OF WORDS TO WRITE                    FEAT1070C 202
                          7160000001              OUTSYM ZZ.SYM,X2,X3                                            FEAT1070C 203
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    24
         MAIN LOOP                                                              CODE
  
                                        **        DUMP COMMON TABLE                                              FEAT1070C 205
                                        *                                                                        FEAT1070C 206
           560  5130000000 X                      SA3    N.COM                                                   FEAT1070C 207
                          7120000000 X            OUTSYM ZZ.COM,ORGTAB,X3                                        FEAT1070C 208
  
  
           563  5110000000 X                      SA1    R=FLAG                                                  REFMAP   1008
                          5120000000 X            SA2    E.UDEFL                                                 REFMAP   1009
           564  12312                             BX3    X1+X2                                                   REFMAP   1010
                     47433                        CX4    X3                                                      REFMAP   1011
                          0304000530 +            ZR     X4,RMAPX1         TERMINATE IF R=0 AND NO MISSING LABEL REFMAP   1012
                                                                                                                 REFMAP   1013
           565  0100001563 +                      RJ     SORTSYM           SORT SYMTAB ALPHABETICALLY            REFMAP   1014
                                                                                                                 REFMAP   1015
           566  5110000000 X                      SA1    E.UDEFL                                                 REFMAP   1016
                          0301000571 +            ZR     X1,RMAP1          IF NO MISSING LABELS                  REFMAP   1017
           567  0100001464 +                      RJ     PML               PRINT THEN OUT                        REFMAP   1018
           570  5110000000 X                      SA1    R=FLAG                                                  REFMAP   1019
                          0301000520 +            ZR     X1,RMAPX          IF R = 0                              REFMAP   1020
           571  5110000000 X             RMAP1    SA1    R=FLAG                                                  REFMAP   1021
                          5120000251 +            SA2    MAPTITL+3         (X2) = *AP (R=0)..*                   REFMAP   1022
           572  20122                             LX1    18                                                      REFMAP   1023
                     6110000001                   SB1    1                                                       REFMAP   1024
                               36621              IX6    X2+X1             ADD REF MAP LEVEL                     REFMAP   1025
           573  54620                             SA6    A2                LEVEL TO SUBTITLE TEXT                REFMAP   1026
                     5130000000 X                 SA3    RSELECT                                                 REFMAP   1027
           574  0323000576 +                      PL     X3,RMAP1A   IF R .LT. 2                                 REFMAP   1028
                          5120000017 +            SA2    =1H1                                                    REFMAP   1029
           575  10622                             BX6    X2                                                      REFMAP   1030
                     5160000000 X                 SA6    =XO.TITL    IF R.GT.1 SET FOR PAGE EJECT                REFMAP   1031
           576  0100000000 X             RMAP1A   NUPAGE                                                         REFMAP   1032
           577  6160000246 +                      LISTL  MAPTITL,4                                               REFMAP   1033
           600  66510                             SB5    B1                                                      REFMAP   1034
                     0100001520 +                 RJ     SORTC             SORT THE NAMES INTO CATEGORIES        REFMAP   1035
           601  0100001366 +                      RJ     SORTR             SORT THE REFERENCES ( R .NE. 0 )      REFMAP   1036
                                                                                                                 REFMAP   1037
                                        *         SEARCH FOR STRAY NAMES                                         REFMAP   1038
                                        *         I.E. - USEAGE DEFINED VARIABLES WITH ONLY ONE REFERENCE        REFMAP   1039
                                                                                                                 REFMAP   1040
           602  5120000000 X                      SA2    L.UDV                                                   REFMAP   1041
                          0302000615 +            ZR     X2,RMAP4          IF NO UDV TABLE                       REFMAP   1042
           603  5110000000 X                      SA1    O.UDV                                                   REFMAP   1043
                          63110                   SB1    X1                FWA                                   REFMAP   1044
                               63221              SB2    B1+X2             LWA+1                                 REFMAP   1045
           604  5150000017 C                      SA5    O.REFBAS                                                REFMAP   1046
                          5140000012              SA4    SYM1                                                    REFMAP   1047
           605  53040                             SA0    X4                A0 = SYM1                             REFMAP   1048
                     43052                        MX0    60-18                                                   REFMAP   1049
                          7170100000              SX7    V.FUN                                                   REFMAP   1050
           606  5130000000 X                      SA3    VALUE.                                                  REFMAP   1051
                          0303000610 +            ZR     X3,RMAP2          IF NOT A FUNCTION SUBPROGRAM          REFMAP   1052
           607  66115                             SB1    B1+B5             SKIP VALUE. ENTRY                     REFMAP   1053
                     0412000615 +                 EQ     B1,B2,RMAP4       IF ONLY 1 ENTRY                       REFMAP   1054
                                                                                                                 REFMAP   1055
           610  56110                    RMAP2    SA1    B1                UDV TAB ENTRY 2J/X,18/SYMORD,18/X     REFMAP   1056
                     66115                        SB1    B1+B5                                                   REFMAP   1057
                          21122                   AX1    18                                                      REFMAP   1058
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    25
         MAIN LOOP                                                              CODE
  
                               63310              SB3    X1                SYMORD                                REFMAP   1059
           611  53253                             SA2    X5+B3             REFTAB BUCKET                         REFMAP   1060
                     21236                        AX2    30                                                      REFMAP   1061
                          53320                   SA3    X2                FIRST REFERENCE                       REFMAP   1062
                               15430              BX4    -X0*X3            LINK                                  REFMAP   1063
           612  0314000614 +                      NZ     X4,RMAP3          IF MORE THAN ONE REF                  REFMAP   1064
                          66333                   SB3    B3+B3                                                   REFMAP   1065
                               55103              SA1    A0-B3             WORD A OF SYMTAB ENTRY                REFMAP   1066
           613  12671                             BX6    X7+X1                                                   REFMAP   1067
                     54610                        SA6    A1                                                      REFMAP   1068
           614  0712000610 +             RMAP3    LT     B1,B2,RMAP2                                             REFMAP   1069
           615                           RMAP4    BSS    0                                                       REFMAP   1070
  
  
  
                                        *         PRINT OUT THE ENTRY POINTS                                     REFMAP   1072
                                                                                                                 REFMAP   1073
           615  5150000027 C                      CLIST  O.ENT,LN          IF NO ENTRY POINTS                    REFMAP   1074
            51  55555505162422315520              STITLE (ENTRY POINTS),18,(DEF LINE     REFERENCES)             REFMAP   1075
           617  5150000027 C                      SA5    O.ENT                                                   REFMAP   1076
                          21536                   AX5    30                                                      REFMAP   1077
                                                                                                                 REFMAP   1078
           620  53450                    RMAP.EP  GSYM   B7                GET SYMTAB ENTRY AND STORE NAME       REFMAP   1079
           623  10322                             EFIELD RA                PROGRAM RELATIVE ADDRESS              REFMAP   1080
           624  5130000000 X                      SA3    =XQFLAG                                                 FCC2108     6
                          0303000626 +            ZR     X3,RMAP5          IF NOT Q MODE                         FCC2108     7
           625  76600                             SX6    B0                ADDRESS = 0                           FCC2108     8
           626  57675                    RMAP5    SA6    B7-B5                                                   FCC2108     9
            56                                    FMTL   (Z8,X2,A7)        FORMAT AND PRINT LINE                 REFMAP   1082
           630  5150000047 C                      R=0    EP2               IF R = 0                              REFMAP   1083
                                                                                                                 REFMAP   1084
           631  56500                             LISTR  NOHEAD            LIST THE REFERENCES                   REFMAP   1085
           632  5150000037 C             RMAP.EP2 LOOPT  O.ENT,EP          LOOP IF MORE NAMES                    REFMAP   1086
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    26
         LOCAL NAMES                                                            CODE
  
                                        *         PRINT THE VARIABLE AND ARRAY NAMES, ETC                        REFMAP   1088
                                                                                                                 REFMAP   1089
           633  5150000030 C             RMAP.LN  CLIST  O.VAR,FN          IF NO VARIABLES                       REFMAP   1090
            57  55555526012211010214              STITLE (VARIABLES     SN  TYPE           RELOCATION),48        REFMAP   1091
           635  5150000030 C                      SA5    O.VAR                                                   REFMAP   1092
                          21536                   AX5    30                                                      REFMAP   1093
                                                                                                                 REFMAP   1094
           636  53450                    RMAP.LNL GSYM                     SET UP REGISTERS                      REFMAP   1095
                               10311              EFIELD FUN               STRAY NAME FLAG                       REFMAP   1096
           642  5246000244 +                      SA4    DO.MAT+X6                                               REFMAP   1097
                          20422                   LX4    18                                                      REFMAP   1098
                               12747              BX7    X4+X7             NAME + STRAY NAME INDICATOR           REFMAP   1099
           643  56770                             SA7    B7                                                      REFMAP   1100
                     10322                        EFIELD RB                                                      REFMAP   1101
                     63260                        SB2    X6                                                      REFMAP   1102
                          21307                   AX3    P.RA-P.RB                                               REFMAP   1103
                               10011              BX0    X1                                                      REFMAP   1104
           645  73630                             SX6    X3                RA                                    REFMAP   1105
                     20052                        LX0    59-P.FP                                                 REFMAP   1106
                          21073                   AX0    59                                                      REFMAP   1107
                               15660              BX6    -X0*X6            0 OR PROGRAM ADDRESS                  REFMAP   1108
           646  5130000000 X                      SA3    =XQFLAG                                                 FCC2108    10
                          0303000650 +            ZR     X3,RMAP.LNX       IF NOT Q MODE                         FCC2108    11
           647  76600                             SX6    B0                ADDRESS = 0                           FCC2108    12
           650  57675                    RMAP.LNX SA6    B7-B5                                                   FCC2108    13
                                                                                                                 REFMAP   1110
                     10322                        EFIELD TYP               EXTRACT TYPE                          REFMAP   1111
                     5246000215 +                 LOOKUP TYPTBL                                                  REFMAP   1112
           652  54775                             SA7    A7+B5             STORE IN VBUF                         REFMAP   1113
                                                                                                                 REFMAP   1114
                                        *         PROPERTY                                                       REFMAP   1115
                                                                                                                 REFMAP   1116
                     7206777770                   SX0    X6-T.RTN                                                REFMAP   1117
           653  6110000007 +                      SB1    =7L                                                     REFMAP   1118
                          0300000663 +            ZR     X0,RMAP.LN1       IF RETURNS                            REFMAP   1119
           654  10311                             BX3    X1                                                      REFMAP   1120
                     20353                        LX3    59-P.DEF                                                REFMAP   1121
                          0333000657 +            MI     X3,RMAP.LN0 IF DEFINED                                  REFMAP   1122
           655  20373                             LX3    P.DEF-P.FP                                              REFMAP   1123
                     6110000020 +                 SB1    =7L*UNDEF                                               REFMAP   1124
           656  0323000663 +                      PL     X3,RMAP.LN1 IF NOT F.P.                                 REFMAP   1125
           657  10311                    RMAP.LN0 TBIT   DIM,LN1,(=7L ARRAY )  IF DIMENSIONED                    REFMAP   1126
                          10322                   TBIT   VAR,LN1,(=7L       )    IF A VARIABLE                   REFMAP   1127
           662  6110000022 +                      SB1    =7L*UNUSED                                              REFMAP   1128
           663  56410                    RMAP.LN1 SA4    B1                                                      REFMAP   1129
                     10744                        BX7    X4                                                      REFMAP   1130
                          54775                   SA7    A7+B5                                                   REFMAP   1131
                                                                                                                 REFMAP   1132
                                        *         RELOCATION                                                     REFMAP   1133
                                                                                                                 REFMAP   1134
                               10311              TBIT   FP,LN2,(=7L F.P.  )     IF A F.P.                       REFMAP   1135
                          10311                   TBITN  COM,LN2,(=7L       )    IF NOT IN COMMON                REFMAP   1136
           667  6112777776 X                      SB1    ORGTAB-1+B2       ORGTAB(RB)                            REFMAP   1137
           670  56410                    RMAP.LN2 SA4    B1                                                      REFMAP   1138
                     43052                        MX0    42                                                      REFMAP   1139
                          11704                   BX7    X0*X4                                                   REFMAP   1140
                               54775              SA7    A7+B5                                                   REFMAP   1141
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    27
         LOCAL NAMES                                                            CODE
  
                                                                                                                 REFMAP   1142
            65                                    FMTL   (Z8,X2,A10,A7,X3,A7,X3,A7)                              REFMAP   1143
           672  5150000047 C                      R=0    LN3               IF R = 0                              REFMAP   1144
                                                                                                                 REFMAP   1145
            67  55555522050623555555              LISTR  (   REFS   ),( DEFINED  ),( I/O REFS )                  REFMAP   1146
           674  5110000036 C                      SA1    VLFN                                                    REFMAP   1147
                          5120000043 C            SA2    O.FREF                                                  REFMAP   1148
           675  12612                             BX6    X1+X2             SET VARIABLE FILE NAME REFS FLAG      REFMAP   1149
                     54610                        SA6    A1                                                      REFMAP   1150
                                                                                                                 REFMAP   1151
           676  5150000037 C             RMAP.LN3 LOOPT  O.VAR,LNL         LOOP IF MORE NAMES                    REFMAP   1152
  
  
  
                                        *         PRINT THE FILE NAMES                                           REFMAP   1154
                                                                                                                 REFMAP   1155
           677  5150000025 C             RMAP.FN  CLIST  O.LFN,FN4         IF NO FILE NAMES                      REFMAP   1156
            72  55555506111405551601              STITLE (FILE NAMES        MODE),38                             REFMAP   1157
           701  5150000025 C                      SA5    O.LFN                                                   REFMAP   1158
                          21536                   AX5    30                                                      REFMAP   1159
                                                                                                                 REFMAP   1160
           702  53450                    RMAP.FNL GSYM                     GET SYMTAB ENTRY                      REFMAP   1161
                               10322              EFIELD FMODE             FILE MODE                             REFMAP   1162
                               66200              SB2    B0                                                      REFMAP   1163
           706  0306000711 +                      ZR     X6,RMAP.FNO                                             REFMAP   1164
                          47066                   CX0    X6                                                      REFMAP   1165
                               67205              SB2    B0-B5                                                   REFMAP   1166
           707  21001                             AX0    1                                                       REFMAP   1167
                     0310000711 +                 NZ     X0,RMAP.FNO                                             REFMAP   1168
                               24326              NX3    B2,X6                                                   REFMAP   1169
           710  6132777717                        SB3    B2-48                                                   REFMAP   1170
                          67203                   SB2    B0-B3                                                   REFMAP   1171
                                                                                                                 REFMAP   1172
           711  5142000226 +             RMAP.FNO SA4    B2+FMODTAB+1                                            REFMAP   1173
                          5150000000 X            SA5    N.FILES                                                 REFMAP   1174
           712  0305000720 +                      ZR     X5,RMAP.FN1       IF NOT A PROGRAM                      REFMAP   1175
                                                                                                                 REFMAP   1176
                                        *         PROGRAM - PRINT BUFFER ADDRESS, NAME AND MODE                  REFMAP   1177
                                                                                                                 REFMAP   1178
                          10322                   EFIELD RA                                                      REFMAP   1179
                          5150000000 X            SA5    =XQFLAG                                                 FCC2108    14
           714  0305000715 +                      ZR     X5,RMAP.FNM       IF NOT Q MODE                         FCC2108    15
                          76600                   SX6    B0                ADDRESS = 0                           FCC2108    16
           715  57675                    RMAP.FNM SA6    B7-B5             RA                                    FCC2108    17
                     56770                        SA7    B7                NAME                                  REFMAP   1181
                          10644                   BX6    X4                                                      REFMAP   1182
                               54675              SA6    A7+B5             MODE                                  REFMAP   1183
            77                                    FMTL   (Z8,X2,A7,X3,A7)  FORMAT LINE                           REFMAP   1184
           717  0400000722 +                      EQ     RMAP.FN2                                                REFMAP   1185
                                                                                                                 REFMAP   1186
                                        *         SUBPROGRAM - PRINT NAME AND MODE                               REFMAP   1187
                                                                                                                 REFMAP   1188
           720  57775                    RMAP.FN1 SA7    B7-B5             NAME                                  REFMAP   1189
                     10644                        BX6    X4                                                      REFMAP   1190
                          54675                   SA6    A7+B5             MODE                                  REFMAP   1191
           100                                    FMTL   (X10,A7,X3,A7)                                          REFMAP   1192
                                                                                                                 REFMAP   1193
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    28
         LOCAL NAMES                                                            CODE
  
           722  5150000047 C             RMAP.FN2 R=0    FN3               IF R = 0                              REFMAP   1194
                                                                                                                 REFMAP   1195
           101  55552722112405235555              LISTR  (  WRITES  ),(   READS  ),(  MOTION  )                  REFMAP   1196
           724  5150000037 C             RMAP.FN3 LOOPT  O.LFN,FNL         IF MORE NAMES                         REFMAP   1197
                                                                                                                 REFMAP   1198
           725  5150000036 C             RMAP.FN4 SA5    VLFN                                                    REFMAP   1199
                          0305000727 +            ZR     X5,RMAP.EX        IF NO VARIABLES WERE USED AS FILE NAM REFMAP   1200
           726  5150000024 +                      SA5    =48LVARIABLES USED AS FILE NAMES, SEE ABOVE             REFMAP   1201
                          0100001322 +            RJ     PIL                                                     REFMAP   1202
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    29
         EXTERNAL REFERENCES                                                    CODE
  
           727  5150000031 +             RMAP.EX  SA5    =7LNO TYPE        ADJUST TYPE TABLE                     REFMAP   1204
                          10655                   BX6    X5                                                      REFMAP   1205
           730  5160000222 +                      SA6    TYPTBL+T.ECS      MILNE KLUDGE                          REFMAP   1206
                                                                                                                 REFMAP   1207
                                        *         EXTERNAL REFERENCES                                            REFMAP   1208
                                                                                                                 REFMAP   1209
                          5150000031 C            CLIST  O.EXT,IF          IF NO EXTERNAL REFS                   REFMAP   1210
           104  55555505302405221601              STITLE (EXTERNALS          TYPE   ARGS),38,REFERENCES          REFMAP   1211
           733  5150000031 C                      SA5    O.EXT                                                   REFMAP   1212
                          21536                   AX5    30                                                      REFMAP   1213
                                                                                                                 REFMAP   1214
           734  53450                    RMAP.EXL GSYM   B7-B5             STORE NAME                            REFMAP   1215
           737  10311                             TBITN  FUN,EX1,(=7L       )    IF NOT A FUNCTION               REFMAP   1216
                          10322                   EFIELD TYP               EXTRACT THE TYPE                      REFMAP   1217
                          6216000215 +            SB1    TYPTBL+X6                                               REFMAP   1218
                                                                                                                 REFMAP   1219
           742  56410                    RMAP.EX1 SA4    B1                                                      REFMAP   1220
                     10744                        BX7    X4                                                      REFMAP   1221
                          54775                   SA7    A7+B5             STORE FUNCTION TYPE OR BLANKS         REFMAP   1222
                                                                                                                 REFMAP   1223
                               10322              EFIELD FARG                                                    REFMAP   1224
                               54675              SA6    A7+B5             NUMBER OF ARGS                        REFMAP   1225
                                                                                                                 REFMAP   1226
                                        *         FLAG SPECIAL PROPERTIES OF FUNCTION                            REFMAP   1227
                                                                                                                 REFMAP   1228
           744  10322                             TBIT   LIB,EX2,(=8L LIBRARY)   IF A FORTRAN LIBRARY FUNCTION   REFMAP   1229
                          10311                   TBITN  FP,EX2,(=8L        )    IF NOT A FORMAL PARAMETER       REFMAP   1230
           747  6110000033 +                      SB1    =8L   F.P.                                              REFMAP   1231
                                                                                                                 REFMAP   1232
           750  56410                    RMAP.EX2 SA4    B1                                                      REFMAP   1233
                     10744                        BX7    X4                                                      REFMAP   1234
                          54765                   SA7    A6+B5                                                   REFMAP   1235
           112                                    FMTL   (X10,A7,X3,A7,I5,A8)                                    REFMAP   1236
                                                                                                                 REFMAP   1237
           752  5150000047 C                      R=0    EX3               IF R = 0                              REFMAP   1238
                                                                                                                 REFMAP   1239
           753  6170000065 C                      SB7    LBUF                                                    REFMAP   1240
                          0100001332 +            RJ     SORTRL            SORT THE REFERENCE LIST               REFMAP   1241
           754  5110000041 C                      SA1    O.REFS                                                  REFMAP   1242
                          43200                   MX2    0                                                       REFMAP   1243
           755  0301000756 +            +         ZR     X1,*+1            IF NO REFS  ( SHOULD NEVER HAPPEN )   REFMAP   1244
                          0100000363 +            RJ     LISTR             LIST THE REFERENCES                   REFMAP   1245
           756  0410000763 +                      ZR     B1,RMAP.EX3       IF NOTHING TO DUMP                    REFMAP   1246
                          67675                   SB6    B7-B5                                                   REFMAP   1247
                               56561              SA5    B6+B1                                                   REFMAP   1248
           757  43060                             MX0    48                                                      REFMAP   1249
                     11605                        BX6    X0*X5                                                   REFMAP   1250
                          54650                   SA6    A5                ZERO BYTE FOR THE LAST WORD           REFMAP   1251
                               66670              SB6    B7                                                      REFMAP   1252
           760  66710                             SB7    B1                                                      REFMAP   1253
                     6110000001                   SB1    1                                                       REFMAP   1254
           761  0100000000 X                      LISTL  B6,B7                                                   REFMAP   1255
           762  6150000001                        SB5    1                                                       REFMAP   1256
           763  5150000037 C             RMAP.EX3 LOOPT  O.EXT,EXL         LOOP IF MORE NAMES                    REFMAP   1257
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    30
         LOCAL FUNCTIONS                                                        CODE
  
                                        *         INLINE FUNCTIONS                                               REFMAP   1259
                                                                                                                 REFMAP   1260
           764  5150000032 C             RMAP.IF  CLIST  O.ASF,NL          IF NO LOCAL FUNCTIONS                 REFMAP   1261
           113  55555511161411160555              STITLE (INLINE FUNCTIONS   TYPE   ARGS),38,( DEF LINE  REFEREN REFMAP   1262
                                        ,CES)                                                                    REFMAP   1263
           766  5150000032 C                      SA5    O.ASF                                                   REFMAP   1264
                          21536                   AX5    30                                                      REFMAP   1265
                                                                                                                 REFMAP   1266
           767  53450                    RMAP.IFL GSYM   B7-B5             GET SYMTAB ENTRY AND STORE NAME       REFMAP   1267
                                                                                                                 REFMAP   1268
           772  10322                             EFIELD TYP                                                     REFMAP   1269
           773  5246000215 +                      LOOKUP TYPTBL            GET FUNCTION TYPE                     REFMAP   1270
                               54775              SA7    A7+B5                                                   REFMAP   1271
                                                                                                                 REFMAP   1272
           774  10322                             EFIELD FARG              NUMBER OF ARGS                        REFMAP   1273
           775  54675                             SA6    A7+B5                                                   REFMAP   1274
                                                                                                                 REFMAP   1275
                     10322                        EFIELD ASF                                                     REFMAP   1276
                     5246000234 +                 LOOKUP ASFINT            INT OR ASF                            REFMAP   1277
           777  54765                             SA7    A6+B5                                                   REFMAP   1278
                                                                                                                 REFMAP   1279
           122                                    FMTL   (X10,A7,X3,A7,I5,A8)                                    REFMAP   1280
                                                                                                                 REFMAP   1281
          1001  5150000047 C                      R=0    IF1               IF R = 0                              REFMAP   1282
                                                                                                                 REFMAP   1283
          1002  56500                             LISTR  NOHEAD            LIST THE REFERENCES                   REFMAP   1284
          1003  5150000037 C             RMAP.IF1 LOOPT  O.ASF,IFL         LOOP IF MORE NAMES                    REFMAP   1285
  
  
  
  
                                        *         NAMELIST GROUP NAMES                                           REFMAP   1287
                                                                                                                 REFMAP   1288
          1004  5150000033 C             RMAP.NL  CLIST  O.NML,SL          IF NO NAMELIST NAMES                  REFMAP   1289
           123  55555516011505141123              STITLE (NAMELISTS),18,(DEF LINE     REFERENCES)                REFMAP   1290
          1006  5150000033 C                      SA5    O.NML                                                   REFMAP   1291
                          21536                   AX5    30                                                      REFMAP   1292
                                                                                                                 REFMAP   1293
          1007  53450                    RMAP.NLL GSYM   B7-B5             GROUP NAME                            REFMAP   1294
           130                                    FMTL   (X10,A7)                                                REFMAP   1295
                                                                                                                 REFMAP   1296
          1013  5150000047 C                      R=0    NL1               IF R = 0                              REFMAP   1297
                                                                                                                 REFMAP   1298
          1014  56500                             LISTR  NOHEAD            LIST THE REFERENCES                   REFMAP   1299
          1015  5150000037 C             RMAP.NL1 LOOPT  O.NML,NLL         LOOP IF MORE NAMES                    REFMAP   1300
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    31
         LABELS                                                                 CODE
  
                                        *         STATEMENT LABELS                                               REFMAP   1302
                                                                                                                 REFMAP   1303
          1016  5150000024 C             RMAP.SL  CLIST  O.LABEL,LP        IF NO LABELS                          REFMAP   1304
           131  55555523240124051505              STITLE (STATEMENT LABELS),28,(  DEF LINE   REFERENCES)         REFMAP   1305
          1020  5150000024 C                      SA5    O.LABEL                                                 REFMAP   1306
                                                                                                                 REFMAP   1307
          1021  53450                    RMAP.SLL GSYM                     GET SYMTAB ENTRY                      REFMAP   1308
                               20706              LX7    6                                                       REFMAP   1309
          1024  11770                             BX7    X7*X0             5LNNNNN                               REFMAP   1310
                     56770                        SA7    B7                                                      REFMAP   1311
                                                                                                                 REFMAP   1312
                          10322                   EFIELD RA                RELATIVE ADDRESS                      REFMAP   1313
                          5130000000 X            SA3    =XQFLAG                                                 FCC2108    18
          1026  0303001027 +                      ZR     X3,RMAP.SLM       IF NOT Q MODE                         FCC2108    19
                          76600                   SX6    B0                ADDRESS = 0                           FCC2108    20
          1027  57675                    RMAP.SLM SA6    B7-B5                                                   FCC2108    21
                                                                                                                 REFMAP   1315
                     10322                        EFIELD SLD               DEFINITION FIELD                      REFMAP   1316
                     5246000241 +                 LOOKUP SLTAB                                                   REFMAP   1317
          1031  54775                             SA7    A7+B5             ^ DEF  , FORMAT OF EXEC               REFMAP   1318
                                                                                                                 REFMAP   1319
                                        *         CHECK FOR INACTIVE OR UNREFERENCED LABELS                      REFMAP   1320
                                                                                                                 REFMAP   1321
                     10322                        BX3    X2                                                      REFMAP   1322
                          7100000045              SX0    45B               RSN , RFN , DLT                       REFMAP   1323
          1032  21360                             AX3    P.DLT                                                   REFMAP   1324
                     11503                        BX5    X0*X3                                                   REFMAP   1325
                          5140000011 +            SA4    =9L                                                     REFMAP   1326
          1033  0315001034 +                      NZ     X5,RMAP.SL1       IF REFERENCED                         REFMAP   1327
                          5246000236 +            SA4    SLATAB-1+X6       NO REFS   ,INACTIVE                   REFMAP   1328
          1034  10744                    RMAP.SL1 BX7    X4                                                      REFMAP   1329
                     54775                        SA7    A7+B5                                                   REFMAP   1330
                                                                                                                 REFMAP   1331
           137                                    FMTL   (Z8,X2,A5,A6,A9)                                        REFMAP   1332
                                                                                                                 REFMAP   1333
          1036  5150000047 C                      R=0    SL2               IF R = 0                              REFMAP   1334
          1037  56500                             LISTR  NOHEAD            LIST THE REFERENCES                   REFMAP   1335
                                                                                                                 REFMAP   1336
          1040  5150000037 C             RMAP.SL2 LOOPT  O.LABEL,SLL       LOOP IF MORE LABELS                   REFMAP   1337
  
  
  
                                        *         MACRO TO TEST FOR DO LOOP PROPERTY AND STORE BCD MESSAGE       REFMAP   1339
                                                                                                                 REFMAP   1340
                                         TDLP     MACRO  BIT,BCD                                                 REFMAP   1341
                                                  LOCAL  NEXT                                                    REFMAP   1342
                                                  BX0    X1                                                      REFMAP   1343
                                                  LX0    59-DL.BIT                                               REFMAP   1344
                                                  PL     X0,NEXT                                                 REFMAP   1345
                                                  SA4    =10L_BCD                                                REFMAP   1346
                                                  BX7    X4                                                      REFMAP   1347
                                                  SA7    A7+B5                                                   REFMAP   1348
                                         NEXT     BSS    0                                                       REFMAP   1349
                                                  ENDM                                                           REFMAP   1350
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    32
         LOOPS                                                                  CODE
  
          1041  5110000000 X             RMAP.LP  SA1    O.LOOP                                                  REFMAP   1352
                          5120000000 X            SA2    L.LOOP                                                  REFMAP   1353
          1042  0301001120 +                      ZR     X1,RMAP.CB        IF NO LOOP TABLE ( ERRORS OR R = 0 )  REFMAP   1354
                          0302001120 +            ZR     X2,RMAP.CB        IF NO LOOPS                           REFMAP   1355
          1043  43601                             MX6    1                                                       REFMAP   1356
                     5160000047 C                 SA6    REFACC                                                  REFMAP   1357
           140  55555514171720235555              STITLE (LOOPS  LABEL    INDEX     FROM-TO    LENGTH),48,PROPER REFMAP   1358
                                        ,TIES                                                                    REFMAP   1359
          1045  5150000026 C                      SA5    O.LGL                                                   REFMAP   1360
                          21536                   AX5    30                                                      REFMAP   1361
                                                                                                                 REFMAP   1362
          1046  53450                    RMAP.LPL GSYM                     GET GENERATED SYMBOL                  REFMAP   1363
                               10322              EFIELD RA                                                      REFMAP   1364
                               57675              SA6    B7-B5             FWA OF LOOP                           REFMAP   1365
          1052  10322                             EFIELD DLP                                                     REFMAP   1366
          1053  5160000124 C                      SA6    LTEMP             SAVE LOOP PROPERTIES                  REFMAP   1367
                                                                                                                 REFMAP   1368
                          5140000012              SA4    SYM1                                                    REFMAP   1369
          1054  5150000000 X                      SA5    O.LOOP                                                  REFMAP   1370
                          53040                   SA0    X4                                                      REFMAP   1371
                               53150              SA1    X5          12/ORD(CV),12/ORD(LABEL),18/0,18/LENGTH     REFMAP   1372
          1055  7265000002                        SX6    X5+2        ADVANCE TABLE POINTER                       REFMAP   1373
                          54650                   SA6    A5                                                      REFMAP   1374
                               73710              SX7    X1                                                      REFMAP   1375
          1056  5170000062 C                      SA7    LPLEN             LENGTH                                REFMAP   1376
                                                                                                                 REFMAP   1377
                          21143                   AX1    36-1                                                    REFMAP   1378
                               43357              MX3    -13                                                     REFMAP   1379
          1057  15213                             BX2    -X3*X1                                                  REFMAP   1380
                     63220                        SB2    X2                                                      REFMAP   1381
                          0520001061 +            NZ     B2,RMAP.LP1       IF NOT AN I/O LOOP                    REFMAP   1382
          1060  5140000005 +                      SA4    =5L                                                     REFMAP   1383
                          0400001062 +            EQ     RMAP.LP2                                                REFMAP   1384
          1061  55202                    RMAP.LP1 SA2    A0-B2                                                   REFMAP   1385
                     43036                        MX0    30                                                      REFMAP   1386
                          20206                   LX2    6                                                       REFMAP   1387
                               11402              BX4    X0*X2                                                   REFMAP   1388
          1062  10744                    RMAP.LP2 BX7    X4                                                      REFMAP   1389
                     56770                        SA7    B7                LABEL                                 REFMAP   1390
                                                                                                                 REFMAP   1391
                          21115                   AX1    13                                                      REFMAP   1392
                               20101              LX1    1                                                       REFMAP   1393
          1063  15113                             BX1    -X3*X1                                                  REFMAP   1394
                     63210                        SB2    X1                                                      REFMAP   1395
                          55202                   SA2    A0-B2             WORD A OF CV                          REFMAP   1396
                               43052              MX0    L.NAME                                                  REFMAP   1397
          1064  11702                             BX7    X0*X2                                                   REFMAP   1398
                     20752                        LX7    L.NAME            JUSTIFY TO BIT 42                     REFMAP   1399
                          5140000244 +            SA4    DO.MAT      MATERIALIZATION FLAG DISABLED(FCC2059)      FCC2059    10
          1065  12747                             BX7    X4+X7                                                   FCC2059    11
                     54775                        SA7    A7+B5       INDEX                                       FCC2059    12
                          53555                   SA5    X5+B5             WORD 2 OF LOOP INFO 24/,18/LSN,18/FSN REFMAP   1409
                               73150              SX1    X5                                                      REFMAP   1410
          1066  21522                             AX5    18                                                      REFMAP   1411
                     0100000000 X                 CALL   CDD         CONVERT FSN                                 REFMAP   1412
          1067  73150                             SX1    X5                                                      REFMAP   1413
                     10566                        BX5    X6                                                      REFMAP   1414
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    33
         LOOPS                                                                  CODE
  
                          5140000005 +            SA4    =5L                                                     REFMAP   1415
          1070  0301001071 +                      ZR     X1,RMAP.LPZ IF LSN = 0                                  REFMAP   1416
                          0100000000 X            CALL   CDD         CONVERT LSN                                 REFMAP   1417
          1071  10744                    RMAP.LPZ BX7    X4                                                      REFMAP   1418
                     43030                        MX0    L.BCDLN                                                 REFMAP   1419
                          20544                   LX5    36                                                      REFMAP   1420
                               11605              BX6    X0*X5       FROM                                        REFMAP   1421
          1072  11704                             BX7    X0*X4       TO                                          REFMAP   1422
                     54675                        SA6    A7+B5                                                   REFMAP   1423
                          54765                   SA7    A6+B5                                                   REFMAP   1424
           147                                    FMTL   (Z8,X2,A5,X1,A10,X3,A4,X1,A4,O8,X1)                     FCC0574     8
          1074  6170000065 C                      SB7    LBUF                                                    REFMAP   1426
                                                                                                                 REFMAP   1427
                                        *         PROPERTIES                                                     REFMAP   1428
                                                                                                                 REFMAP   1429
                          5110000124 C            SA1    LTEMP             LOOP PROPERTIES                       REFMAP   1430
          1075  7100000127                        SX0    V.OPT                                                   REFMAP   1431
                          6140000012 +            SB4    =10L                                                    REFMAP   1432
          1076  11701                             BX7    X0*X1                                                   REFMAP   1433
                     0317001102 +                 NZ     X7,RMAP.LP3       IF NOT OPTIMIZABLE                    REFMAP   1434
          1077  6140000034 +                      SB4    =10L    OPT                                             REFMAP   1435
                          5130000062 C            SA3    LPLEN                                                   REFMAP   1436
          1100  7243777777                        SX4    X3-L.STACK                                              REFMAP   1437
                          0324001102 +            PL     X4,RMAP.LP3       IF LOOP DOESN"T FIT IN THE INST STK   REFMAP   1438
          1101  6140000035 +                      SB4    =10L INSTACK                                            REFMAP   1439
                                                                                                                 REFMAP   1440
          1102  56440                    RMAP.LP3 SA4    B4                                                      REFMAP   1441
                     10744                        BX7    X4                                                      REFMAP   1442
                          56771                   SA7    B7+B1                                                   REFMAP   1443
                               10011              TDLP   J,(EXT REFS  )                                          REFMAP   1444
          1105  10011                             TDLP   E,( ENTRIES  )                                          REFMAP   1445
          1107  10011                             TDLP   X,(  EXITS   )                                          REFMAP   1446
          1111  10011                             TDLP   I,(NOT INNER )                                          REFMAP   1447
          1113  5150000010 +                      SA5    =8L             TERMINATE THE LINE                      REFMAP   1448
                          10755                   BX7    X5                                                      REFMAP   1449
                               54775              SA7    A7+B5                                                   REFMAP   1450
          1114  64275                             SB2    A7+B5                                                   REFMAP   1451
                     66670                        SB6    B7                                                      REFMAP   1452
                          6110000001              SB1    1                                                       REFMAP   1453
          1115  67727                             SB7    B2-B7                                                   REFMAP   1454
                     0100000000 X                 LISTL  B6,B7                                                   REFMAP   1455
          1116  6150000001                        SB5    1                                                       REFMAP   1456
          1117  5150000037 C             RMAP.LPX LOOPT  O.LGL,LPL                                               REFMAP   1457
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    34
         COMMON BLOCKS                                                          CODE
  
          1120  5110000000 X             RMAP.CB  SA1    N.COM                                                   FCC0458    10
                          0301001163 +            ZR     X1,RMAP.EC        IF NO COMMON                          FCC0458    11
          1121  5120000000 X                      SA2    R=FLAG                                                  FCC0458    12
                          7232777774              SX3    X2-3                                                    FCC0458    13
          1122  43600                             MX6    0                                                       FCC0458    14
                     0313001125 +                 NZ     X3,RMAP.CB2       IF NOT R=3                            FCC0458    15
          1123  5140000000 X                      SA4    L.COM                                                   FCC0458    16
                          0304001125 +            ZR     X4,RMAP.CB2       IF FC ERROR IN DECLARATIVES           FCC0458    17
          1124  43601                             MX6    1                                                       FCC0458    18
          1125  5160000047 C             RMAP.CB2 SA6    REFACC                                                  FCC0458    19
                                                                                                                 REFMAP   1465
                          5110000000 X            SA1    N.COM                                                   REFMAP   1466
          1126  0301001163 +                      ZR     X1,RMAP.EC        IF NO COMMON                          REFMAP   1467
                          5150000047 C            R=0    CB1               IF R = 0                              REFMAP   1468
                          5120000000 X            SA2    L.COM                                                   REFMAP   1469
          1130  6160001510 +                      SB6    RBUF              (B6) = FWA INPUT BUFFER               REFMAP   1470
                          73716                   SX7    B6+X1                                                   REFMAP   1471
                               36312              IX3    X1+X2                                                   REFMAP   1472
          1131  5170000000 X                      SA7    O.COM             FWA OF COMTAB                         REFMAP   1473
                          6110000001              SB1    1                                                       REFMAP   1474
          1132  63730                             READW  =XF.RMAP,B6,X3    -ORGTAB- AND -COMTAB- TO *RBUF)       REFMAP   1475
          1134  66510                             SB5    B1                                                      REFMAP   1476
                                                                                                                 REFMAP   1477
           151  55555503171515171655     RMAP.CB1 STITLE (COMMON BLOCKS   LENGTH),28,(MEMBERS - BIAS NAME(LENGTH REFMAP   1478
                                        ,))                                                                      REFMAP   1479
          1136  43600                             MX6    0                                                       REFMAP   1480
                     5160000050 C                 SA6    TEMP              I = 0                                 REFMAP   1481
                                                                                                                 REFMAP   1482
          1137  5226000000 X             RMAP.CL  SA2    X6+ORGTAB         BLOCK NAME AND LENGTH                 REFMAP   1483
                          43052                   MX0    L.NAME                                                  REFMAP   1484
                               11602              BX6    X0*X2                                                   REFMAP   1485
          1140  5160000055 C                      SA6    VBUF              NAME                                  REFMAP   1486
                          43053                   MX0    60-17                                                   REFMAP   1487
                               15720              BX7    -X0*X2                                                  REFMAP   1488
          1141  54765                             SA7    A6+B5             LENGTH                                REFMAP   1489
                     20253                        LX2    -17                                                     REFMAP   1490
                          43073                   MX0    -1                                                      REFMAP   1491
                               15220              BX2    -X0*X2                                                  REFMAP   1492
          1142  5252000252 +                      SA5    SDS+X2            STORAGE DESCRIPTOR                    REFMAP   1493
                          10655                   BX6    X5                                                      REFMAP   1495
          1143  5067000001                        SA6    A7+1                                                    REFMAP   1496
                                                                                                                 REFMAP   1499
           157                                    FMTL   (X10,A7,I8,A4)    FORMAT THE LINE                       REFMAP   1500
                                                                                                                 REFMAP   1501
          1145  5150000047 C                      R=0    CL2               IF R = 0                              REFMAP   1502
                                                                                                                 REFMAP   1503
                                        *         COLLECT AND LIST BLOCK MEMBERS                                 REFMAP   1504
                                                                                                                 REFMAP   1505
          1146  5110000050 C                      SA1    TEMP                                                    REFMAP   1506
                          5221001510 +            SA2    RBUF+X1           INDEX TO COMTAB                       REFMAP   1507
          1147  5130000000 X                      SA3    O.COM                                                   REFMAP   1508
                          6170000065 C            SB7    LBUF                                                    REFMAP   1509
          1150  36623                             IX6    X2+X3             FWA OF BLOCK                          REFMAP   1510
                     53465                        SA4    X6+B5                                                   REFMAP   1511
                          10744                   BX7    X4                 SAVE NAME OF FIRST BLOCK MEMBER FOR  REFMAP   1512
                               54720              SA7    A2                 EQV PRINTOUT                         REFMAP   1513
                                                                                                                 REFMAP   1514
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    35
         COMMON BLOCKS                                                          CODE
  
          1151  53160                    RMAP.CBL SA1    X6                BLOCK PREFIX WORD                     REFMAP   1515
                     5160000124 C                 SA6    CLOC              CURRENT LOC                           REFMAP   1516
                               73710              SX7    X1                                                      REFMAP   1517
          1152  54765                             SA7    A6+B5             LINK                                  REFMAP   1518
                     21122                        AX1    18                                                      REFMAP   1519
                          73665                   SX6    X6+B5             FWA                                   REFMAP   1520
                               73710              SX7    X1                N.MEMBERS                             REFMAP   1521
          1153  0100001256 +                      RJ     FBNB              FORMAT AND PRINT MEMBERS              REFMAP   1522
          1154  5110000124 C                      SA1    CLOC                                                    REFMAP   1523
                          54215                   SA2    A1+B5             LINK                                  REFMAP   1524
                               36612              IX6    X1+X2                                                   REFMAP   1525
          1155  0312001151 +                      NZ     X2,RMAP.CBL       IF MORE APPEARENCES                   REFMAP   1526
                          0100001264 +            RJ     DLL               DUMP LAST LINE                        REFMAP   1527
                                                                                                                 REFMAP   1528
          1156  5110000050 C             RMAP.CL2 SA1    TEMP                                                    REFMAP   1529
                          5120000000 X            SA2    N.COM                                                   REFMAP   1530
          1157  73615                             SX6    X1+B5                                                   REFMAP   1531
                     37362                        IX3    X6-X2             I - L                                 REFMAP   1532
                          54610                   SA6    A1                                                      REFMAP   1533
          1160  0333001137 +                      NG     X3,RMAP.CL        IF MORE BLOCKS TO GO                  REFMAP   1534
                                                                                                                 REFMAP   1535
                          5110000011 C            SA1    L.SCOM                                                  REFMAP   1536
          1161  43053                             MX0    -17                                                     REFMAP   1537
                     11210                        BX2    X1*X0                                                   REFMAP   1538
                          0302001163 +            ZR     X2,RMAP.EC  IF LENGTH WITHIN BOUNDS                     REFMAP   1539
          1162  43652                             MX6    42                                                      REFMAP   1540
                     14666                        BX6    -X6                                                     REFMAP   1541
                          54610                   SA6    A1                                                      REFMAP   1542
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    36
         EQUIVALENCE CLASS S                                                    CODE
  
          1163  5110000000 X             RMAP.EC  SA1    L.EQV                                                   FCC0458    20
                          0301001225 +            ZR     X1,RMAP.PS        IF NO EQUIV INFO                      FCC0458    21
          1164  5120000000 X                      SA2    R=FLAG                                                  FCC0458    22
                          7232777774              SX3    X2-3                                                    FCC0458    23
          1165  0313001225 +                      NZ     X3,RMAP.PS                                              FCC0458    24
                          76650                   SX6    B5                                                      FCC0458    25
                               43601              MX6    1                                                       FCC0458    26
          1166  6110000001                        SB1    1                                                       FCC0458A    4
                          5160000047 C            SA6    REFACC                                                  FCC0458    27
          1167  6160001716 +                      READW  =XF.RMAP,EBUF,X1+B1     EQUIVALENCE INFO                REFMAP   1548
          1171  66510                             SB5    B1                                                      REFMAP   1549
                                                                                                                 REFMAP   1550
           160  55555505212511265503              STITLE (EQUIV CLASSES   LENGTH),28,(MEMBERS - BIAS NAME(LENGTH REFMAP   1551
                                        ,))                                                                      REFMAP   1552
          1173  7150001716 +                      SX5    EBUF                                                    REFMAP   1553
                                                                                                                 REFMAP   1554
          1174  53150                    RMAP.ECL SA1    X5                                                      REFMAP   1555
                     0301001225 +                 ZR     X1,RMAP.PS        IF FINISHED                           REFMAP   1556
                               73710              SX7    X1                                                      REFMAP   1557
          1175  5120000012                        SA2    SYM1                                                    REFMAP   1558
                          73655                   SX6    X5+B5             FWA OF MEMBERS                        REFMAP   1559
                               53020              SA0    X2                                                      REFMAP   1560
          1176  5160000124 C                      SA6    CLI                                                     REFMAP   1561
                          54765                   SA7    A6+B5             NUMBER OF MEMBERS IN CLASS            REFMAP   1562
                               21121              AX1    18-1                                                    REFMAP   1563
          1177  63210                             SB2    X1                                                      REFMAP   1564
                     43052                        MX0    L.NAME                                                  REFMAP   1565
                          55202                   SA2    A0-B2             WORD A OF BASE                        REFMAP   1566
                               11602              BX6    X0*X2                                                   REFMAP   1567
          1200  5160000056 C                      SA6    VBUF+1                                                  REFMAP   1568
                          21123                   AX1    36-17                                                   REFMAP   1569
                               73710              SX7    X1                CLASS LENGTH                          REFMAP   1570
          1201  54765                             SA7    A6+B5                                                   REFMAP   1571
                     0317001203 +                 NZ     X7,RMAP.EC1       IF NO ERRORS                          REFMAP   1572
          1202  6140000042 +                      SB4    =7L*ERROR*                                              REFMAP   1573
                          0400001207 +            EQ     RMAP.EC2                                                REFMAP   1574
                                                                                                                 REFMAP   1575
          1203  6140000007 +             RMAP.EC1 SB4    =7L                                                     REFMAP   1576
                          0321001207 +            PL     X1,RMAP.EC2       IF NOT IN COMMON                      REFMAP   1577
          1204  55225                             SA2    A2-B5              WORD B OF BASE                       REFMAP   1578
                     10322                        EFIELD RB                                                      REFMAP   1579
                     5236001507 +                 SA3    RBUF-1+X6                                               REFMAP   1580
                               21321              AX3    18-1                                                    REFMAP   1581
          1206  63330                             SB3    X3                 2*ORD OF BASE OF COMMON BLOCK        REFMAP   1582
                     65403                        SB4    A0-B3                                                   REFMAP   1583
          1207  56440                    RMAP.EC2 SA4    B4                                                      REFMAP   1584
                     43052                        MX0    L.NAME                                                  REFMAP   1585
                          11604                   BX6    X0*X4                                                   REFMAP   1586
                               55665              SA6    A6-B5                                                   REFMAP   1587
           166                                    FMTL   (X2,A7,X1,A7,I8)  FORMAT INITIAL INFO                   REFMAP   1588
                                                                                                                 REFMAP   1589
          1211  6110000003                        SB1    3           WC = 3                                      REFMAP   1594
                          5110000124 C            SA1    CLI                                                     REFMAP   1595
          1212  54215                             SA2    A1+B5                                                   REFMAP   1596
                     10611                        BX6    X1                FWA                                   REFMAP   1597
                          36712                   IX7    X1+X2                                                   REFMAP   1598
                               54710              SA7    A1                                                      REFMAP   1599
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    37
         EQUIVALENCE CLASS S                                                    CODE
  
          1213  10722                             BX7    X2                LENGTH                                REFMAP   1600
                     6170000065 C                 SB7    LBUF                                                    REFMAP   1601
          1214  0100001256 +                      RJ     FBNB              FORMAT AND PRINT CLASS MEMBERS        REFMAP   1602
          1215  0100001264 +                      RJ     DLL               DUMP LAST LINE                        REFMAP   1603
          1216  5150000124 C                      SA5    CLI               FWA OF NEXT CLASS                     REFMAP   1604
                          0400001174 +            EQ     RMAP.ECL                                                REFMAP   1605
  
  
  
                                         LISTS    MACRO  LOC,TEXT,NOTEST                                         REFMAP   1640
                                                  LOCAL  X                                                       REFMAP   1641
                                                  USE    DATA                                                    REFMAP   1642
                                         X        DIS    3,     TEXT                                             REFMAP   1643
                                                  USE    *                                                       REFMAP   1644
                                                  SA1    LOC                                                     REFMAP   1645
                                                  SA2    X                                                       REFMAP   1646
                                                  IFC    EQ,//NOTEST/,1                                          REFMAP   1647
                                        +         ZR     X1,*+1                                                  REFMAP   1648
                                                  RJ     PPS                                                     REFMAP   1649
                                                  ENDM                                                           REFMAP   1650
                                                                                                                 REFMAP   1651
                                        ***                                                                      REFMAP   1652
                                        *         PPS - PRINT PROGRAM STATISTICS                                 REFMAP   1653
                                        *                                                                        REFMAP   1654
           167                           PPS1     FMTL   (A10,A10,A10,X1,O8,I8)                                  FCC0574     9
          1220  00000000000000000000     PPS                                                                     REFMAP   1656
          1221  54325                             SA3    A2+B5                                                   REFMAP   1657
                     10622                        BX6    X2                                                      REFMAP   1658
                          5160000055 C            SA6    VBUF                                                    REFMAP   1659
          1222  10733                             BX7    X3                                                      REFMAP   1660
                     54765                        SA7    A6+B5                                                   REFMAP   1661
                          54435                   SA4    A3+B5                                                   REFMAP   1662
                               10744              BX7    X4                                                      REFMAP   1663
          1223  54775                             SA7    A7+B5                                                   REFMAP   1664
                     10611                        BX6    X1                LENGTH                                REFMAP   1665
                          54675                   SA6    A7+B5                                                   REFMAP   1666
                               54665              SA6    A6+B5                                                   REFMAP   1667
          1224  0400001217 +                      EQ     PPS1                                                    REFMAP   1668
  
  
  
                                        *         PRINT OUT MISCELLANEOUS STATISTICS                             REFMAP   1670
                                                                                                                 REFMAP   1671
          1225  43600                    RMAP.PS  MX6    0                                                       REFMAP   1672
                     5160000047 C                 SA6    REFACC            CLEAR LONG MAP FLAG                   REFMAP   1673
           170  55555523240124112324              STITLE (STATISTICS),18                                         REFMAP   1674
                                                  IFNE   TEST,0                                                  REFMAP   1675
                                                  SA1    SYMORD                                                  REFMAP   1676
                                                  SA3    =XL.DIM                                                 REFMAP   1677
                                                  SX4    X1-1              N.SYMBOLS                             REFMAP   1678
                                                  LX4    1                                                       REFMAP   1679
                                                  IX1    X3+X4             L.SYMTAB+L.DIMTAB                     REFMAP   1680
                                                  SA2    =30H     SYMTAB+DIMTAB                                  REFMAP   1681
                                                  RJ     PPS               PRINT COMBINED LENGTH OF SYM+DIMTAB   REFMAP   1682
                                                  ENDIF                                                          REFMAP   1683
          1227  5110000000 X                      SA1    =XQFLAG                                                 FCC2108    22
                          0301001232 +            ZR     X1,RMAP.PSS       IF NOT Q MODE                         FCC2108    23
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    38
         EQUIVALENCE CLASS S                                                    CODE
  
          1230  76700                             SX7    B0                                                      FCC2108    24
                     5170000016 C                 SA7    L.PROGP           PROGRAM LENGTH = 0                    FCC2108    25
          1231  5170000015 C                      SA7    L.BUFIO           BUFFER LENGTH = 0                     FCC2108    26
           173  55555555552022170722     RMAP.PSS LISTS  L.PROGP,(PROGRAM LENGTH),NOTEST                         FCC2108    27
           176  55555555550225060605              LISTS  L.BUFIO,(BUFFER LENGTH )                                REFMAP   1685
           201  55555555550315551401              LISTS  L.SCOM,("SCM" LABELED COMMON LENGTH)                    REFMAP   1686
           204  55555555550315550214              LISTS  L.SBLK,("SCM" BLANK COMMON LENGTH)                      REFMAP   1687
           207  55555555551403155514              LISTS  L.LCOM,("LCM" LABELED COMMON LENGTH)                    REFMAP   1688
           212  55555555551403155502              LISTS  L.LBLK,("LCM" BLANK COMMON LENGTH)                      REFMAP   1689
          1246  5110000000 X                      SA1    =XPR.MXFL                                               RSM2763X   50
                          0100000300 +            RJ     OCTC                                                    RSM2763X   51
          1247  7170005555                        SX7    2R                                                      RSM2763X   52
                          12667                   BX6    X6+X7                                                   RSM2763X   53
                               20666              LX6    -6                                                      RSM2763X   54
          1250  5160001254 +                      SA6    CMUSED+1                                                RSM2763X   55
                          65661                   LISTL  A6-B1,3     *    NNNB SCM USED *                        RSM2763X   56
                                                                                                                 REFMAP   1710
          1252  6150000001               RMAPPSA  SB5    1                                                       RSM2763X   57
                                                  IFNE   TEST,0                                                  REFMAP   1712
                                                  SA1    N.FP                                                    REFMAP   1713
                                                  ZR     X1,RMAPX    IF NO FORMAL PARAMS                         REFMAP   1714
                                                  SA3    SYM1                                                    REFMAP   1715
                                                  SB1    X1                                                      REFMAP   1716
                                                  MX1    0                                                       REFMAP   1717
                                                  SA4    X3-5        WORD B OF FIRST F.P.                        REFMAP   1718
                                                                                                                 REFMAP   1719
                                         RMAP.PS1 AX4    P.RA                                                    REFMAP   1720
                                                  SX5    X4                                                      REFMAP   1721
                                                  SB1    B1-B5                                                   REFMAP   1722
                                                  IX1    X5+X1             ACCUMULATE SUM                        REFMAP   1723
                                                  SA4    A4-2                                                    REFMAP   1724
                                                  NZ     B1,RMAP.PS1       IF NOT FINISHED                       REFMAP   1725
                                                  ZR     X1,RMAPX          IF NO ADDSUBS                         REFMAP   1726
                                                  SA2    =30H          ADDSUBS                                   REFMAP   1727
                                                  RJ     PPS                                                     REFMAP   1728
                                                  ENDIF                                                          REFMAP   1729
                          0400000520 +            EQ     RMAPX                                                   REFMAP   1730
                                                                                                                 RSM2763X   58
          1253  55555555555555555555     CMUSED   DATA   20H                                                     RSM2763X   59
          1255  03155525230504550000              DATA   8L"SCM" USED                                            RSM2763X   60
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    39
         COMMON/EQUIV PRINT ROUTINES                                            CODE
  
                                        ***                                                                      REFMAP   1732
                                        *         FBNB - FORMAT BIAS, NAME AND BASE                              REFMAP   1733
                                        *                                                                        REFMAP   1734
                                        *         ON ENTRY:                                                      REFMAP   1735
                                        *                X6,X7 = FWA AND LENGTH OF BNB TABLE                     REFMAP   1736
                                        *                B1,B7 = WC AND FWA OF LINE BUFFER                       REFMAP   1737
                                        *                                                                        REFMAP   1738
                                                                                                                 REFMAP   1739
          1256  00000000000000000000     FBNB                                                                    REFMAP   1740
          1257  5160000122 C                      SA6    LI                                                      REFMAP   1741
                          36767                   IX7    X6+X7                                                   REFMAP   1742
                               54765              SA7    A6+B5                                                   REFMAP   1743
                                                                                                                 REFMAP   1744
          1260  53160                    FBNB1    SA1    X6                                                      REFMAP   1745
                     0100001272 +                 RJ     PBNB              PRINT AN ELEMENT                      REFMAP   1746
          1261  5110000122 C                      SA1    LI                                                      REFMAP   1747
                          54215                   SA2    A1+B5             LIMIT                                 REFMAP   1748
                               73615              SX6    X1+B5                                                   REFMAP   1749
          1262  37062                             IX0    X6-X2             I - L                                 REFMAP   1750
                     54610                        SA6    A1                                                      REFMAP   1751
                          0330001260 +            NG     X0,FBNB1          IF NOT FINISHED                       REFMAP   1752
          1263  0400001256 +                      EQ     FBNB                                                    REFMAP   1753
  
  
  
                                        ***                                                                      REFMAP   1755
                                        *         DLL - DUMP THE LAST LINE                                       REFMAP   1756
                                        *                                                                        REFMAP   1757
          1264  00000000000000000000     DLL                                                                     REFMAP   1758
          1265  0410001264 +                      ZR     B1,DLL                                                  REFMAP   1759
                          67215                   SB2    B1-B5                                                   REFMAP   1760
                               56172              SA1    B7+B2                                                   REFMAP   1761
          1266  43060                             MX0    48                                                      REFMAP   1762
                     66670                        SB6    B7                                                      REFMAP   1763
                          66710                   SB7    B1                                                      REFMAP   1764
                               11701              BX7    X0*X1             ZERO BYTE                             REFMAP   1765
          1267  6110000001                        SB1    1                                                       REFMAP   1766
                          54710                   SA7    A1                                                      REFMAP   1767
          1270  0100000000 X                      LISTL  B6,B7                                                   REFMAP   1768
          1271  6150000001                        SB5    1                                                       REFMAP   1769
                          0400001264 +            EQ     DLL                                                     REFMAP   1770
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    40
         COMMON/EQUIV PRINT ROUTINES                                            CODE
  
                                        ***                                                                      REFMAP   1772
                                        *         PBNB - PRINT BIAS,NAME AND LENGTH                              REFMAP   1773
                                        *                                                                        REFMAP   1774
                                        *         ON ENTRY:                                                      REFMAP   1775
                                        *                B1,B7 = WC AND FWA OF LINE                              REFMAP   1776
                                        *                X1 = TABLE WORD, FORMAT:                                REFMAP   1777
                                        *                                  6/J,18/WC,18/SYMORD,18/BIAS           REFMAP   1778
                                        *                                                                        REFMAP   1779
                                                                                                                 REFMAP   1780
          1272  00000000000000000000     PBNB                                                                    REFMAP   1781
          1273  0510001274 +                      NZ     B1,PBNB1          IF WC .NE. 0                          REFMAP   1782
                          6110000003              SB1    3                                                       REFMAP   1783
                                                                                                                 REFMAP   1784
          1274  10011                    PBNB1    BX0    X1                                                      REFMAP   1785
                     73110                        SX1    X1                                                      REFMAP   1786
                          66610                   SB6    B1                (-CDD- DOES NOT USE B6)               REFMAP   1787
          1275  6110000001                        SB1    1                                                       REFMAP   1788
                          0100000000 X            CALL   CDD               RETURNS (X6) = INTEGER, DPC -A- FMT   REFMAP   1789
          1276  5110000012                        SA1    SYM1                                                    REFMAP   1790
                          21021                   AX0    18-1                                                    REFMAP   1791
                               73200              SX2    X0                2*SYMORD                              REFMAP   1792
          1277  5160000055 C                      SA6    VBUF                                                    REFMAP   1793
                          37312                   IX3    X1-X2                                                   REFMAP   1794
                               53430              SA4    X3                WORD A                                REFMAP   1795
          1300  21023                             AX0    36-17                                                   REFMAP   1796
                     43552                        MX5    L.NAME                                                  REFMAP   1797
                          73100                   SX1    X0                LENGTH                                REFMAP   1798
                               11054              BX0    X5*X4                                                   REFMAP   1799
          1301  0100000000 X                      CALL   CDD               RETURNS (X6) = INTEGER, DPC -A- FMT   REFMAP   1800
          1302  66510                             SB5    B1                (B5) = 1                              REFMAP   1801
                     20606                        LX6    6                                                       REFMAP   1802
                          7150777774              SX5    1R)-1R                                                  REFMAP   1803
          1303  66160                             SB1    B6                (B1) = LINE LENGTH (RESTORED)         REFMAP   1804
                     36665                        IX6    X6+X5             10L   NNN)                            REFMAP   1805
                          6130000074              SB3    60                                                      REFMAP   1806
          1304  67432                             SB4    B3-B2                                                   REFMAP   1807
                     43566                        MX5    60-6                                                    REFMAP   1808
                          22646                   LX6    B4,X6             NN)    N                              REFMAP   1809
                               11756              BX7    X5*X6                                                   REFMAP   1810
          1305  7140000055                        SX4    1R                                                      REFMAP   1811
                          15665                   BX6    -X5*X6                                                  REFMAP   1812
                               12747              BX7    X4+X7             NN)                                   REFMAP   1813
          1306  5120000043 +                      SA2    =3R(                                                    REFMAP   1814
                          12102                   BX1    X0+X2             NAME (                                REFMAP   1815
                               20166              LX1    60-6                                                    REFMAP   1816
          1307  11351                             BX3    X5*X1                                                   REFMAP   1817
                     12636                        BX6    X3+X6                                                   REFMAP   1818
                          54665                   SA6    A6+B5                                                   REFMAP   1819
                               54765              SA7    A6+B5                                                   REFMAP   1820
                                                                                                                 REFMAP   1821
          1310  6160000012                        SB6    WPL-3                                                   REFMAP   1822
                          0661001316 +            LE     B1,B6,PBNB3       IF ROOM FOR 3 WORDS                   REFMAP   1823
                                                                                                                 REFMAP   1824
          1311  0100001264 +                      RJ     DLL               DUMP LINE                             REFMAP   1825
          1312  5110000053 C                      SA1    BFILL                                                   REFMAP   1826
                          6110000003              SB1    3                                                       REFMAP   1827
          1313  6170000065 C                      SB7    LBUF                                                    REFMAP   1828
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    41
         COMMON/EQUIV PRINT ROUTINES                                            CODE
  
                          0301001316 +            ZR     X1,PBNB3          IF WE BLANK FILLED THE LINE           REFMAP   1829
          1314  10711                             BX7    X1                                                      REFMAP   1830
                     66200                        SB2    B0                                                      REFMAP   1831
                                                                                                                 REFMAP   1832
          1315  56772                   +         SA7    B7+B2             BLANK FILL THE FIRST 30 COULUMS       REFMAP   1833
                     66225                        SB2    B2+B5                                                   REFMAP   1834
                          0721001315 +            LT     B2,B1,*                                                 REFMAP   1835
                                                                                                                 REFMAP   1836
          1316  5110000055 C             PBNB3    SA1    VBUF                                                    REFMAP   1837
                          54215                   SA2    A1+B5                                                   REFMAP   1838
                               54325              SA3    A2+B5                                                   REFMAP   1839
          1317  10611                             BX6    X1                                                      REFMAP   1840
                     22702                        LX7    X2                                                      REFMAP   1841
                          56671                   SA6    B7+B1                                                   REFMAP   1842
                               54765              SA7    A6+B5                                                   REFMAP   1843
          1320  10633                             BX6    X3                                                      REFMAP   1844
                     54675                        SA6    A7+B5                                                   REFMAP   1845
                          64265                   SB2    A6+B5                                                   REFMAP   1846
                               67127              SB1    B2-B7                                                   REFMAP   1847
          1321  0400001272 +                      EQ     PBNB                                                    REFMAP   1848
  
  
  
                                        ***                                                                      REFMAP   1850
                                        *         PIL - PRINT INDENTED LINE ( 10X,TEXT )                         REFMAP   1851
                                        *                                                                        REFMAP   1852
                                        *         ON ENTRY:                                                      REFMAP   1853
                                        *                A5 = FWA OF LINE                                        REFMAP   1854
                                        *                                                                        REFMAP   1855
          1322  00000000000000000000     PIL                                                                     REFMAP   1856
          1323  5140000012 +                      SA4    =10H                                                    REFMAP   1857
                          6110000001              SB1    1                 (B1) = 1                              REFMAP   1858
          1324  6160000065 C                      SB6    LBUF              (B6) = LINE FWA                       REFMAP   1859
                          66710                   SB7    B1                (B7) = LINE LENGTH (WORDS)            REFMAP   1860
                               10744              BX7    X4                                                      REFMAP   1861
          1325  43060                             MX0    60-12                                                   REFMAP   1862
                     56760                        SA7    B6                                                      REFMAP   1863
          1326  22705                    PIL1     LX7    X5                                                      REFMAP   1864
                     15650                        BX6    -X0*X5                                                  REFMAP   1865
                          54551                   SA5    A5+B1                                                   REFMAP   1866
                               56767              SA7    B6+B7                                                   REFMAP   1867
          1327  66771                             SB7    B7+B1                                                   REFMAP   1868
                     0316001326 +                 NZ     X6,PIL1           IF NOT END OF LINE                    REFMAP   1869
          1330  0100000000 X                      LISTL  B6,B7                                                   REFMAP   1870
          1331  6150000001                        SB5    1                                                       REFMAP   1871
                          0400001322 +            EQ     PIL                                                     REFMAP   1872
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    42
         SORTRL - SORT A SINGLE REFERENCE LIST                                  CODE
  
                                        ***                                                                      REFMAP   1874
                                        *         THE FOLLOWING ROUTINES ARE BUCKET SORTS ON THE VARIOUS         REFMAP   1875
                                        *         ATTRIBUTES WHICH THE SYMBOL TABLE AND REFERENCE LIST IS SORTED REFMAP   1876
                                        *         ON.                                                            REFMAP   1877
                                        *                                                                        REFMAP   1878
                                        *         IN EACH CASE THE SORT USES A BASE TABLE OF FIXED LENGTH        REFMAP   1879
                                        *         THE THE REST OF WORKING STORAGE TO FORM THE LISTS THAT IT      REFMAP   1880
                                        *         IS BUILDING.                                                   REFMAP   1881
                                        *         THE BASE TABLE OR BUCKET IS ALWAYS OF THE FORM:                REFMAP   1882
                                        *         30/ADDRESS OF THE FIRST LIST ELEMENT                           REFMAP   1883
                                        *         ,30/ADDRESS OF THE LAST LIST ELEMNT                            REFMAP   1884
                                        *                                                                        REFMAP   1885
                                        *         THE LISTS THEMSELVES, ARE OF VARIOUS FORMATS, BUT IN           REFMAP   1886
                                        *         GENERAL, THE WORD HOLDS A POINTER TO THE NEXT LIST ELEMENT     REFMAP   1887
                                        *         AND INFORMATION ABOUT THE CURRENT ELEMENT                      REFMAP   1888
                                        *                                                                        REFMAP   1889
                                                                                                                 REFMAP   1890
                                         FRSTB    MACRO  TYPE              FIRST BUCKET MACRO                    REFMAP   1891
                                         F.TYPE   VFD    30/O.TYPE,30/O.TYPE                                     REFMAP   1892
                                                  ENDM                                                           REFMAP   1893
                                                                                                                 REFMAP   1894
                                        ***                                                                      REFMAP   1895
                                        *         SORTRL - SORT REFERENCES FOR A VARIABLE INTO REFERENCE AND     REFMAP   1896
                                        *         DEFINITION LISTS, MERGES REFERENCES WITH THE SAME LINE NUMBER  REFMAP   1897
                                        *                                                                        REFMAP   1898
                                        *         ON ENTRY:                                                      REFMAP   1899
                                        *                WORDA = ADDRESS OF WORD A OF SYMBOL                     REFMAP   1900
                                        *                                                                        REFMAP   1901
                                        *         ON EXIT:                                                       REFMAP   1902
                                        *                O.DEFS,O.REFS,O.FREF = 0 OR 60/FWA OF LIST              REFMAP   1903
                                        *                                                                        REFMAP   1904
          1332  00000000000000000000     SORTRL                                                                  REFMAP   1905
          1333  5110000012                        SA1    SYM1                                                    REFMAP   1906
                          5120000040 C            SA2    WORDA                                                   REFMAP   1907
          1334  5130000017 C                      SA3    O.REFBAS                                                REFMAP   1908
                          37412                   IX4    X1-X2                                                   REFMAP   1909
                               23554              AX5    B5,X4             ORDINAL = (SYM1-ADDRESS)/2            REFMAP   1910
          1335  36635                             IX6    X3+X5                                                   REFMAP   1911
                                                                                                                 REFMAP   1912
                     43036                        MX0    L.BCDLN+6                                               REFMAP   1913
                          20060                   LX0    L.BCDLN+6+P.BCDLN  MASK TO EXTRACT LINE NO AND SC       REFMAP   1914
                               53260              SA2    X6                FETCH BUCKET                          REFMAP   1915
          1336  21236                             AX2    30                POSITION                              REFMAP   1916
                                                                                                                 REFMAP   1917
                                        *         SET UP THE BUCKETS AND DUMMY BUCKETS                           REFMAP   1918
                                                                                                                 REFMAP   1919
                     5130001353 +                 SA3    SORTR.B           FETCH PRESET BUCKETS                  REFMAP   1920
                               54435              SA4    A3+B5                                                   REFMAP   1921
          1337  43700                             MX7    0                                                       REFMAP   1922
                     54545                        SA5    A4+B5                                                   REFMAP   1923
                          10633                   BX6    X3                                                      REFMAP   1924
          1340  5170000041 C                      SA7    O.REFS            CLEAR O.REFS,O.DEFS,O.FREF            REFMAP   1925
                          5160000044 C            SA6    DSRB                                                    REFMAP   1926
          1341  54775                             SA7    A7+B5                                                   REFMAP   1927
                     10644                        BX6    X4                                                      REFMAP   1928
                          54665                   SA6    A6+B5                                                   REFMAP   1929
                               54775              SA7    A7+B5                                                   REFMAP   1930
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    43
         SORTRL - SORT A SINGLE REFERENCE LIST                                  CODE
  
          1342  10655                             BX6    X5                                                      REFMAP   1931
                     54665                        SA6    A6+B5                                                   REFMAP   1932
                                                                                                                 REFMAP   1933
                          76550                   SX5    B5                                                      REFMAP   1934
                               20560              LX5    P.REP             TO INCREMENT THE REP COUNT            REFMAP   1935
                                                                                                                 REFMAP   1936
          1343  6130000071                        SB3    57                                                      REFMAP   1937
                          6120000044 C            SB2    DSRB              FWA OF THE BUCKETS                    REFMAP   1938
          1344  0400001346 +                      EQ     SORTRLL                                                 REFMAP   1939
                                                                                                                 REFMAP   1940
                                        *         TWO ENTRIES THE SAME                                           REFMAP   1941
                                                                                                                 REFMAP   1942
          1345  36645                    SORTRLI  IX6    X4+X5             INCREMENT REP COUNT                   REFMAP   1943
                     54640                        SA6    A4                STORE ENTRY                           REFMAP   1944
                                                                                                                 REFMAP   1945
                                        *         SORT LOOP                                                      REFMAP   1946
                                                                                                                 REFMAP   1947
          1346  73120                    SORTRLL  SX1    X2                                                      REFMAP   1948
                     53210                        SA2    X1                FETCH ENTRY                           REFMAP   1949
                          0301001332 +            ZR     X1,SORTRL         IF FINISHED                           REFMAP   1950
          1347  23732                             AX7    B3,X2             POSITION REF/DEF BITS                 REFMAP   1951
                     11620                        BX6    X2*X0             EXTRACT LINE NUMBER                   REFMAP   1952
                          53372                   SA3    X7+B2             FETCH BUCKET                          REFMAP   1953
                                                                                                                 REFMAP   1954
                               11703              BX7    X0*X3             X7 = 30/FWA,30/0                      REFMAP   1955
          1350  53430                             SA4    X3                X4 = LAST ENTRY                       REFMAP   1956
                     11304                        BX3    X0*X4             X3 = LINE NUMBER OF LAST ENTRY        REFMAP   1957
                          54620                   SA6    A2                STORE ENTRY                           REFMAP   1958
                               37336              IX3    X3-X6                                                   REFMAP   1959
          1351  0303001345 +                      ZR     X3,SORTRLI        JUMP IF THE SAME                      REFMAP   1960
                                                                                                                 REFMAP   1961
                                        *         ADD ITEM TO LIST                                               REFMAP   1962
                                                                                                                 REFMAP   1963
                          12641                   BX6    X4+X1             UPDATE THE LAST ENTRY                 REFMAP   1964
                               36771              IX7    X7+X1             UPDATE BUCKET                         REFMAP   1965
          1352  54640                             SA6    A4                                                      REFMAP   1966
                     54730                        SA7    A3                                                      REFMAP   1967
                          0400001346 +            EQ     SORTRLL           LOOP FOR THE NEXT ITEM                REFMAP   1968
  
  
  
                                        *         PRESET DUMMY BUCKETS ( MOVED TO DSRB )                         REFMAP   1970
                                                                                                                 REFMAP   1971
          1353  0000000041 C             SORTR.B  FRSTB  REFS                                                    REFMAP   1972
          1354  0000000042 C                      FRSTB  DEFS                                                    REFMAP   1973
          1355  0000000043 C                      FRSTB  FREF                                                    REFMAP   1974
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    44
         SORTR - REFERENCE TABLE SORT                                           CODE
  
                                        ***                                                                      REFMAP   1976
                                        *         SORTR - SORT THE REFERENCE TABLE                               REFMAP   1977
                                        *                                                                        REFMAP   1978
                                        *         INPUT:   "REFMAP" FILE - THE REFERENCES GROUPED BY LINE NUMBER REFMAP   1979
                                        *                                                                        REFMAP   1980
                                        *         SORTS THE ACCUMULATED REFERENCE TABLE A LINE AT A TIME,        REFMAP   1981
                                        *         BUILDING A BASE TABLE STARTING AT (O.REFBAS), WHOSE FORMAT     REFMAP   1982
                                        *         IS: 30/FIRST,30/LAST                                           REFMAP   1983
                                        *                                                                        REFMAP   1984
                                        *         AND A REFERENCE LIST STARTING AT (O.REFBAS) + NSYMBOLS         REFMAP   1985
                                        *         FOR EACH REFERENCED NAME IN THE SYMBOL TABLE                   REFMAP   1986
                                        *         FORMAT:  12/REF BITS,6/6*NCHAR,24/4R LINE NO ,18/LINK          REFMAP   1987
                                        *                                                                        REFMAP   1988
                                        *         (REFACC) = 1S59 IF REFERENCES WERE ACCUMULATED                 REFMAP   1989
                                        *                                                                        REFMAP   1990
                                                                                                                 REFMAP   1991
                                        *         ERROR MESSAGES                                                 REFMAP   1992
                                                                                                                 REFMAP   1993
          1356  33555522050605220516     LOSTREF  DIS    ,*0  REFERENCES AFTER LINE     0 LOST*                  REFMAP   1994
          1362  55554747551116032205     INCFL    DIS    ,/  ** INCREASE FL BY NNNNNNB/                          REFMAP   1995
  
  
  
          1365  0620001400 +             SRT2     PL     B2,SRT3           IF END-OF-BUFFER, GO REFILL IT        REFMAP   1997
                          66510                   SB5    B1                                                      REFMAP   1998
                                                                                                                 REFMAP   1999
          1366  00000000000000000000     SORTR                             ** ENTRY/EXIT LINE **                 REFMAP   2000
          1367  5150000000 X                      SA5    RSELECT                                                 REFMAP   2001
                          0325001366 +            PL     X5,SORTR    EXIT IF R .LT. 2                            REFMAP   2002
                                                                                                                 REFMAP   2003
                                        #RM       IFEQ   CP#RM,0                                                 REFMAP   2004
          1370  7120000000 X                      READ   =XF.RMAP,RCL                                            REFMAP   2005
                                        #RM       ENDIF                                                          REFMAP   2006
          1372  6110000001                        SB1    1                                                       REFMAP   2007
                          5110000021 C            SA1    O.CNTBL           LWA+1 OF WORKING STORAGE              REFMAP   2008
          1373  5120000017 C                      SA2    O.REFBAS                                                REFMAP   2009
                          5130000020 C            SA3    O.REFTAB                                                REFMAP   2010
          1374  43601                             MX6    1                                                       REFMAP   2011
                     37413                        IX4    X1-X3             LWAWORK - O.REFTAB                    REFMAP   2012
                          0334001435 +            NG     X4,SORTERR        IF NOT ENOUGH ROOM FOR A BASE TABLE   REFMAP   2013
          1375  5160000047 C                      SA6    REFACC            SET REFERENCES ACCUMULATED FLAG       REFMAP   2014
                          37132                   IX1    X3-X2             (X1) = BASE TABLE LENGTH              REFMAP   2015
                               13666              SETZERO   X2,X1          CLEAR BASE TABLE                      REFMAP   2016
          1377  5160001610 +                      SA6    RBUF+RBUFL        LINE TERMINATOR TO *RBUF* LWA+1       REFMAP   2017
                                                                                                                 REFMAP   2018
                                        *         FILL *RBUF* WITH REF/DEF INFORMATION.                          REFMAP   2019
                                                                                                                 REFMAP   2020
          1400  7160001510 +             SRT3     SX6    RBUF                                                    REFMAP   2021
                          5160000050 C            SA6    TEMP              INITIALIZE BUFFER POINTER             REFMAP   2022
          1401  63660                             READW  =XF.RMAP,X6,RBUFL                                       REFMAP   2023
          1403  0331001434 +                      MI     X1,SRT9           IF PREMATURE EOF                      REFMAP   2024
                                                                                                                 REFMAP   2025
                                        *         BEGIN PROCESSING NEW REF/DEF LINE.                             REFMAP   2026
                                                                                                                 REFMAP   2027
          1404  5110000050 C             SRT4     SA1    TEMP                                                    REFMAP   2028
                          43060                   MX0    -12                                                     REFMAP   2029
                               53210              SA2    X1                (X2) = FIRST WORD OF LINE             REFMAP   2030
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    45
         SORTR - REFERENCE TABLE SORT                                           CODE
  
          1405  6221776167 -                      SB2    X1-RBUF-RBUFL                                           REFMAP   2031
                          0302001365 +            ZR     X2,SRT2           IF END OF DATA OR END OF BUFFER       REFMAP   2032
                                                                                                                 REFMAP   2033
                                        *         FIND END OF LINE.                                              REFMAP   2034
                                                                                                                 REFMAP   2035
          1406  15620                    SRT5     BX6    -X0*X2                                                  REFMAP   2036
                     54221                        SA2    A2+B1                                                   REFMAP   2037
                          0316001406 +            NZ     X6,SRT5           IF NOT END OF LINE                    REFMAP   2038
          1407  63710                             SB7    X1                (B7) = LINE FWA (-CDD- DOES NOT USE)  REFMAP   2039
                     74620                        SX6    A2                LINE LWA+1                            REFMAP   2040
                          75727                   SX7    A2-B7             LINE LENGTH                           REFMAP   2041
                               54610              SA6    A1                                                      REFMAP   2042
          1410  5170000000 X                      SA7    SWC                                                     REFMAP   2043
                                                                                                                 REFMAP   2044
                                        *         LOOP PROLOGUE                                                  REFMAP   2045
                                                                                                                 REFMAP   2046
                          56170                   SA1    B7                (X1) = FIRST WORD OF LINE             REFMAP   2047
                               21155              AX1    45                                                      REFMAP   2048
          1411  0100000000 X                      CALL   CDD                                                     REFMAP   2049
          1412  43744                             MX7    60-L.BCDLN                                              REFMAP   2050
                     15067                        BX0    -X7*X6            4R LINE NO                            REFMAP   2051
                          76220                   SX2    B2                                                      REFMAP   2052
                               20230              LX2    L.BCDLN           JUSTIFY SHIFT COUNT                   REFMAP   2053
          1413  36020                             IX0    X2+X0                                                   REFMAP   2054
                     20022                        LX0    P.BCDLN           12/0,6/6*NCHAR,24/ 4R LINE NO,18/0    REFMAP   2055
                                                                                                                 REFMAP   2056
                                        *         COUNT THE NUMBER OF PARCELS IN THE LINE USING THE PARCEL COUNT REFMAP   2057
                                        *         FOR THE LAST WORD PLACED IN IT BY "ADDREF"                     REFMAP   2058
                                        *         NUM OF PARCELS = 4*( WC - 1 ) + PARCEL COUNT - 1               REFMAP   2059
                                                                                                                 REFMAP   2060
                          5110000000 X            SA1    SWC                                                     REFMAP   2061
          1414  6150000017                        SB5    15                (B5) = 15 = SHIFT COUNT DECREMENT     REFMAP   2062
                          7221777776              SX2    X1-1              WC-1                                  REFMAP   2063
          1415  53327                             SA3    B7+X2             (X3) = LAST WORD OF LINE              REFMAP   2064
                     66255                        SB2    B5+B5             (B2) = 30 = INITIAL SHIFT COUNT       REFMAP   2065
                          56170                   SA1    B7                (X1) = FIRST WORD OF LINE             REFMAP   2066
                               43771              MX7    57                                                      REFMAP   2067
          1416  21314                             AX3    12                                                      REFMAP   2068
                     15637                        BX6    -X7*X3            NUMBER OF PARCELS IN THE LAST WORD    REFMAP   2069
                          20202                   LX2    2                 4*(WC-1)                              REFMAP   2070
                               36762              IX7    X6+X2                                                   REFMAP   2071
          1417  6277777776                        SB7    X7-1                                                    REFMAP   2072
                                                                                                                 REFMAP   2073
                          5140000017 C            SA4    O.REFBAS                                                REFMAP   2074
          1420  5150000020 C                      SA5    O.REFTAB                                                REFMAP   2075
                          5130000021 C            SA3    O.CNTBL                                                 REFMAP   2076
          1421  63340                             SB3    X4                                                      REFMAP   2077
                     63650                        SB6    X5                                                      REFMAP   2078
                          43460                   MX4    60-12                                                   REFMAP   2079
                               37335              IX3    X3-X5             STORAGE LEFT                          REFMAP   2080
          1422  66767                             SB7    B6+B7             LWA+1 TO BE STORED INTO               REFMAP   2081
                     43503                        MX5    3                                                       REFMAP   2082
                          66425                   SB4    B2+B5             (B4) = 45 = SHIFT COUNT RESET         REFMAP   2083
                               37637              IX6    X3-X7             LEFT - NEEDED                         REFMAP   2084
          1423  0336001442 +                      NG     X6,SORTERR2       IF NOT ENOUGH                         REFMAP   2085
                          76670                   SX6    B7                                                      REFMAP   2086
                               54650              SA6    A5                UPDATE O.REFTAB ( NEXT WORD AVAILABLE REFMAP   2087
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    46
         SORTR - REFERENCE TABLE SORT                                           CODE
  
                                        *                                                                        REFMAP   2089
                                        *                            X0 = 4R LINE NR S18                         REFMAP   2090
                                        *         A1 = ADR CURR WORD X1 = CURRENT WORD        B1 = 1             REFMAP   2091
                                        *         A2 = BUCKET ADD    X2 = BUCKET              B2 = SHIFT COUNT   REFMAP   2092
                                        *         A3 =LAST REF ADD   X3 = LAST REFERENCE IN BK  B3 = (O.REFBAS)  REFMAP   2093
                                        *                            X4 = MASK(48)            B4 = 45            REFMAP   2094
                                        *                            X5 = MASK(3)             B5 = 15            REFMAP   2095
                                        *                                                     B6 = (O.REFTAB)    REFMAP   2096
                                        *                            X7 = THIS REF            B7 = LWA+1         REFMAP   2097
                                        *                                                                        REFMAP   2098
          1424  0620001425 +             SRT6     PL     B2,SRT7           IF MORE PARCELS IN CURRENT WORD       REFMAP   2099
                          54111                   SA1    A1+B1             (X1) = NEXT WORD                      REFMAP   2100
                               66240              SB2    B4                RESET SHIFT COUNT                     REFMAP   2101
          1425  23721                    SRT7     AX7    X1,B2             RIGHT JUSTIFY PARCEL TO BE PROCESSED  REFMAP   2102
                     67225                        SB2    B2-B5             SHIFT COUNT - 15                      REFMAP   2103
                          15374                   BX3    -X4*X7            EXTRACT VARIABLE ORDINAL              REFMAP   2104
                               53233              SA2    B3+X3             FETCH BUCKET                          REFMAP   2105
          1426  20755                             LX7    45                                                      REFMAP   2106
                     53320                        SA3    X2                FETCH LAST ENTRY                      REFMAP   2107
                          11657                   BX6    X5*X7             EXTRACT REF/DEF BITS                  REFMAP   2108
                               21236              AX2    30                POSITION BUCKET                       REFMAP   2109
          1427  36760                             IX7    X6+X0             REF + LINE NUMBER                     REFMAP   2110
                     56760                        SA7    B6                STORE                                 REFMAP   2111
                          76660                   SX6    B6                ADDRESS OF THIS ENTRY                 REFMAP   2112
          1430  0312001431 +                      NZ     X2,SRT8           IF NOT FIRST BUCKET ENTRY             REFMAP   2113
                          56330                   SA3    B3                A3 = (O.REFBAS)                       REFMAP   2114
                               10266              BX2    X6                X2 = ADDR OF THIS ENTRY               REFMAP   2115
                                                                                                                 REFMAP   2116
                                        *         ADD REFERENCE TO LIST                                          REFMAP   2117
                                                                                                                 REFMAP   2118
          1431  12736                    SRT8     BX7    X3+X6                                                   REFMAP   2119
                     54730                        SA7    A3                UPDATE THE REFERENCE                  REFMAP   2120
                          20236                   LX2    30                POSITION FWA                          REFMAP   2121
                               66661              SB6    B6+B1             WSA + 1                               REFMAP   2122
          1432  36626                             IX6    X2+X6             30/FWA,30/LAST                        REFMAP   2123
                     54620                        SA6    A2                STORE NEW BUCKET                      REFMAP   2124
                          0767001424 +            LT     B6,B7,SRT6        IF LINE NOT ALL PROCESSED             REFMAP   2125
          1433  0400001404 +                      EQ     SRT4              LOOP FOR NEXT LINE                    REFMAP   2126
                                                                                                                 REFMAP   2127
                                        *         PROCESS PREMATURE EOF ON -REFMAP- FILE.                        REFMAP   2128
                                                                                                                 REFMAP   2129
          1434                           SRT9     BSS    0                                                       REFMAP   2130
                                         .T       IFEQ   TEST,0                                                  REFMAP   2131
          1434  6150000001                        SB5    1                                                       REFMAP   2132
                          0400001366 +            EQ     SORTR             EXIT                                  REFMAP   2133
                                         .T       ELSE                                                           REFMAP   2134
                                                  MESSAGE   RMAPERR,,RCL                                         REFMAP   2135
                                                  EQ     -1                ABORT JOB                             REFMAP   2136
                                         RMAPERR  DIS    ,/** PREMATURE EOF ON -REFMAP- FILE./                   REFMAP   2137
                                         .T       ENDIF                                                          REFMAP   2138
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    47
         ERROR HANDLING ( NOT ENOUGH STORAGE )                                  CODE
  
                                        *         NOT ENOUGH STORAGE TO BUILD A FULL REFERENCE TABLE             REFMAP   2140
                                                                                                                 REFMAP   2141
          1435  14644                    SORTERR  BX6    -X4                                                     REFMAP   2142
                     6110000001                   SB1    1                                                       REFMAP   2143
          1436  5160000050 C                      SA6    TEMP              SAVE EXTRA FL NEEDED                  REFMAP   2144
                          0400001451 +            EQ     SERR4                                                   REFMAP   2145
                                                                                                                 REFMAP   2146
          1437  6160001356 +             SORTERRX LISTL  LOSTREF,4         PUT OUT LOST REFERENCES MESSAGE       REFMAP   2147
          1440  5110000050 C                      SA1    TEMP                                                    REFMAP   2148
                          0100001456 +            RJ     INCRFL            ISSUE A PLEA FOR MORE FL              REFMAP   2149
          1441  6150000001                        SB5    1                                                       REFMAP   2150
                          0400001366 +            EQ     SORTR             EXIT                                  REFMAP   2151
                                                                                                                 REFMAP   2152
          1442  21022                    SORTERR2 AX0    18                POSITION LINE NUMBER                  REFMAP   2153
                     5130001360 +                 SA3    LOSTREF+2                                               REFMAP   2154
                               43244              MX2    60-L.BCDLN                                              REFMAP   2155
          1443  15002                             BX0    -X2*X0                                                  REFMAP   2156
                     11332                        BX3    X3*X2                                                   REFMAP   2157
                          36630                   IX6    X3+X0                                                   REFMAP   2158
                               54630              SA6    A3                                                      REFMAP   2159
          1444  7071776167 -                      SX7    A1-RBUF-RBUFL                                           REFMAP   2160
                          14777                   BX7    -X7               LENGTH OF DATA IN INPUT BUFFER        REFMAP   2161
                               20702              LX7    2                 *4 = (APPROX) NR PARCELS LEFT         REFMAP   2162
          1445  6110000001                        SB1    1                                                       REFMAP   2163
                          5170000050 C            SA7    TEMP                                                    REFMAP   2164
                                                                                                                 REFMAP   2165
                                        *         READ THE REST OF THE FILE AND ESTIMATE HOW MUCH STORAGE        REFMAP   2166
                                        *         IS NECESSARY FOR A FULL MAP                                    REFMAP   2167
                                                                                                                 REFMAP   2168
          1446  5110001607 +             SERR3    SA1    RBUF+RBUFL-1      LAST WORD IN BUFFER                   REFMAP   2169
                          0311001451 +            NZ     X1,SERR4    IF NOT AT THE END OF REFERENCES BLOCK       FCC2239    22
          1447  5011777776                        SA1    A1-1        2ND LAST WORD IN PRU                        FCC2239    23
                          43660                   MX6    -12         MASK FOR END OF LINE INDICATOR              FCC2239    24
                               15116              BX1    -X6*X1                                                  FCC2239    25
          1450  0301001437 +                      ZR     X1,SORTERRX IF AT END OF REFERENCES BLOCK               FCC2239    26
                          0301001437 +            ZR     X1,SORTERRX       IF END OF REFERENCES                  REFMAP   2170
          1451  6160001510 +             SERR4    READW  =XF.RMAP,RBUF,RBUFL                                     REFMAP   2171
          1453  5120000050 C                      SA2    TEMP                                                    REFMAP   2172
                          7262000400              SX6    X2+RBUFL*4                                              REFMAP   2173
          1454  54620                             SA6    A2                                                      REFMAP   2174
                     0301001446 +                 ZR     X1,SERR3          IF NOT EOR/EOF                        REFMAP   2175
          1455  0400001437 +                      EQ     SORTERRX                                                REFMAP   2176
  
  
  
                                        ***                                                                      REFMAP   2178
                                        *         INCRFL - ISSUE A LINE TO THE OUTPUT FILE FOR MORE FL           REFMAP   2179
                                        *         ON ENTRY:                                                      REFMAP   2180
                                        *                X1 = AMOUNT OF FL NECESSARY                             REFMAP   2181
          1456  0200401456 +             INCRFL   ROUTINE                                                        REFMAP   2182
          1457  7211000077                        SX1    X1+77B            ROUND UP FL NECESSARY                 REFMAP   2183
                          21106                   AX1    6                                                       REFMAP   2184
                               20106              LX1    6                                                       REFMAP   2185
          1460  0100000300 +                      RJ     OCTC              CONVERT TO DISPLAY CODE               REFMAP   2186
          1461  5160001364 +                      SA6    INCFL+2           STORE IN MESSAGE                      REFMAP   2187
                          6110000001              SB1    1                                                       REFMAP   2188
          1462  6160001362 +                      LISTL  INCFL,3           PLACE MESSAGE ON OUTPUT               REFMAP   2189
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    48
         ERROR HANDLING ( NOT ENOUGH STORAGE )                                  CODE
  
          1463  6150000001                        SB5    1                                                       REFMAP   2190
                          0400001456 +            EQ     INCRFL                                                  REFMAP   2191
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    49
         PML - PRINT MISSING LABELS                                             CODE
  
                                        ***                                                                      REFMAP   2193
                                        *         PML - PRINT MISSING LABELS                                     REFMAP   2194
                                        *                                                                        REFMAP   2195
          1464  00000000000000000000     PML                                                                     REFMAP   2196
          1465  6110000001                        SB1    1                                                       REFMAP   2197
                          6160000002 +            SB6    =2C                                                     REFMAP   2198
          1466  0100000000 X                      LISTL  B6,B1             BLANK LINE                            REFMAP   2199
          1467  66510                             SB5    B1                                                      REFMAP   2200
                     5150000044 +                 SA5    =18L UNDEFINED LABELS                                   REFMAP   2201
          1470  0100001322 +                      RJ     PIL               PRINT HEADER LINE                     REFMAP   2202
          1471  5150000024 C                      SA5    O.LABEL                                                 REFMAP   2203
                                                                                                                 REFMAP   2204
          1472  43302                    PML.LP   MX3    2                 LOOP PROLOGUE                         REFMAP   2205
                     66150                        SB1    B5                WC = 1                                REFMAP   2206
                          43036                   MX0    30                                                      REFMAP   2207
                               20365              LX3    2+P.SLD                                                 REFMAP   2208
          1473  6160000015                        SB6    WPL                                                     REFMAP   2209
                          6170000065 C            SB7    LBUF              FWA OF BUFFER                         REFMAP   2210
                                                                                                                 REFMAP   2211
                                                                                                                 REFMAP   2212
          1474  53550                    PML.L    SA5    X5                                                      REFMAP   2213
                     53150                        SA1    X5                WORD A                                REFMAP   2214
                          55215                   SA2    A1-B5             WORD B                                REFMAP   2215
                               11432              BX4    X3*X2                                                   REFMAP   2216
          1475  21536                             AX5    30                                                      REFMAP   2217
                     0304001500 +                 ZR     X4,PML.U          IF UNDEFINED                          REFMAP   2218
          1476  0315001474 +             PML.L1   NZ     X5,PML.L          IF MORE TO GO                         REFMAP   2219
                          0100001264 +            RJ     DLL               DUMP THE LINE                         REFMAP   2220
          1477  0400001464 +                      EQ     PML                                                     REFMAP   2221
                                                                                                                 REFMAP   2222
                                        *         UNDEFINED LABEL - FORMAT IT AND PRINT IT OUT                   REFMAP   2223
                                                                                                                 REFMAP   2224
          1500  20106                    PML.U    LX1    6                                                       REFMAP   2225
                     5120000005 +                 SA2    =5L                                                     REFMAP   2226
                               11401              BX4    X0*X1             5L_LABEL                              REFMAP   2227
          1501  20236                             LX2    30                                                      REFMAP   2228
                     12742                        BX7    X4+X2                                                   REFMAP   2229
                          56771                   SA7    B7+B1                                                   REFMAP   2230
                               66115              SB1    B1+B5             WC = WC+1                             REFMAP   2231
          1502  0716001476 +                      LT     B1,B6,PML.L1      IF NOT A FULL LINE                    REFMAP   2232
                                                                                                                 REFMAP   2233
                          73650                   SX6    X5                                                      REFMAP   2234
                               43060              MX0    48                                                      REFMAP   2235
          1503  5160000050 C                      SA6    TEMP                                                    REFMAP   2236
                          11707                   BX7    X0*X7                                                   REFMAP   2237
                               54770              SA7    A7                ZERO BYTE TO THE LAST WORD            REFMAP   2238
          1504  66670                             SB6    B7                                                      REFMAP   2239
                     66710                        SB7    B1                                                      REFMAP   2240
                          6110000001              SB1    1                                                       REFMAP   2241
          1505  0100000000 X                      LISTL  B6,B7                                                   REFMAP   2242
          1506  5150000050 C                      SA5    TEMP                                                    REFMAP   2243
                          6150000001              SB5    1                                                       REFMAP   2244
          1507  0305001464 +                      ZR     X5,PML            IF FINISHED                           REFMAP   2245
                          0400001472 +            EQ     PML.LP            LOOP                                  REFMAP   2246
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    50
         SORTC - CATEGORY SORT                                                  CODE
  
                                        ***                                                                      REFMAP   2248
                                        *         STORAGE PAST THIS POINT OVERLAID AFTER THE CATEGORY SORT       REFMAP   2249
                                        *                                                                        REFMAP   2250
          1510                           RBUF     BSS    0                 FWA OF INPUT BUFFER FOR SORTR         REFMAP   2251
                                 100     RBUFL    =      100B              BUFFER LEN (SEE -ADDREF- IN -PS1CTL-) REFMAP   2252
                                1716 +   EBUF     EQU    RBUF+M.NCB+7      FWA OF EQV CLASS BUFFER               REFMAP   2253
  
  
  
                                        ***                                                                      REFMAP   2255
                                        *         SORTC - CATEGORY SORT FOR FOR SYMBOLIC NAMES                   REFMAP   2256
                                        *                                                                        REFMAP   2257
                                        *         SORTS THE UNDIFFERENTIATED LIST OF NAMES IN TO THE             REFMAP   2258
                                        *         FOLLOWING LISTS:                                               REFMAP   2259
                                        *                                                                        REFMAP   2260
                                        *         O.VAR - VARIABLES,ARRAYS,FORMAL PARAMETERS AND RETURNS NAMES   REFMAP   2261
                                        *         O.ASF - INTRINSIC AND ARITHMETIC STMT FUNCTIONS                REFMAP   2262
                                        *         O.EXT - EXTERNAL REFERENCES ( FUNCTIONS AND SUBROUTINES )      REFMAP   2263
                                        *         O.NML - NAMELIST GROUP NAMES                                   REFMAP   2264
                                        *         O.ENT - ENTRY POINT NAMES                                      REFMAP   2265
                                        *         O.LFN - LOGICAL FILE NAMES                                     REFMAP   2266
                                        *         O.UDBG - UNUSED DEBUG VARIABLES                                REFMAP   2267
                                        *                                                                        REFMAP   2268
                                        *         EACH POINTER IS OF THE FORM 30/NEXT ENTRY,30/0                 REFMAP   2269
                                        *                                                                        REFMAP   2270
                                                                                                                 REFMAP   2271
                                        *         PRESET BUCKETS FOR THE CATEGORY SORT                           REFMAP   2272
                                        *         THE EFFECT OF THESE BUCKETS IS TO AVOID THE FIRST TIME LOGIC   REFMAP   2273
                                        *         AND HELP THIS SORT LOOP REMAIN IN STACK                        REFMAP   2274
                                                                                                                 REFMAP   2275
          1510  0000000027 C                      FRSTB  ENT               ENTRY POINTS                          REFMAP   2276
          1511  0000000033 C                      FRSTB  NML               NAMELIST                              REFMAP   2277
          1512  0000000031 C                      FRSTB  EXT               EXTERNAL REFS                         REFMAP   2278
          1513  0000000030 C                      FRSTB  VAR               VARIABLES, ETC                        REFMAP   2279
          1514  0000000032 C                      FRSTB  ASF               LOCAL FUNCTIONS                       REFMAP   2280
          1515  0000000025 C                      FRSTB  LFN               FILE NAMES                            REFMAP   2281
          1516  0000000034 C                      FRSTB  CGS               COMPILER GENERATED SYMBOLS            REFMAP   2282
          1517  0000000035 C                      FRSTB  UDBG              UNUSED DEBUG VARIABLES                REFMAP   2283
  
  
  
          1520  00000000000000000000     SORTC                                                                   REFMAP   2285
          1521  5110000023 C                      SA1    O.NAME                                                  REFMAP   2286
                          0301001520 +            ZR     X1,SORTC          IF NO NAMES                           REFMAP   2287
                                                                                                                 REFMAP   2288
          1522  43004                             MX0    L.TYP                                                   REFMAP   2289
                     67705                        SB7    -B5                                                     REFMAP   2290
                          76455                   SX4    B5+B5             X4 = 2                                REFMAP   2291
                               43573              MX5    59                                                      REFMAP   2292
                                                                                                                 REFMAP   2293
          1523  53110                    SORTCL   SA1    X1                30/NEXT,30/WORD A                     REFMAP   2294
                     53217                        SA2    X1+B7             WORD B                                REFMAP   2295
                          21136                   AX1    30                                                      REFMAP   2296
                               54325              SA3    A2+B5             WORD A                                REFMAP   2297
          1524  74725                             SX7    A2+B5                                                   REFMAP   2298
                     21317                        AX3    P.FUN                                                   REFMAP   2299
                          54710                   SA7    A1                CLEAR LINK FIELD                      REFMAP   2300
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    51
         SORTC - CATEGORY SORT                                                  CODE
  
                               15635              BX6    -X5*X3            0 OR 1                                REFMAP   2301
          1525  0332001533 +                      NG     X2,SORTC1         IF NAMELIST , ENTRY , ETC             REFMAP   2302
                                                                                                                 REFMAP   2303
                          21265                   AX2    P.EXT-1                                                 REFMAP   2304
                               11742              BX7    X4*X2             0 OR 2                                REFMAP   2305
          1526  36667                             IX6    X6+X7             FUN + 2*EXT BITS                      REFMAP   2306
                     5226001535 +                 SA2    EBUCADD+X6                                              REFMAP   2307
                                                                                                                 REFMAP   2308
                                        *         ADD ENTRY TO LIST , B1 = ADDRESS OF BUCKET                     REFMAP   2309
                                                                                                                 REFMAP   2310
          1527  53220                    SORTCA   SA2    X2                BUCKET - 30/FIRST,30/LAST             REFMAP   2311
                     53320                        SA3    X2                LAST ENTRY                            REFMAP   2312
                          21236                   AX2    30                                                      REFMAP   2313
                               74610              SX6    A1                                                      REFMAP   2314
          1530  20636                             LX6    30                                                      REFMAP   2315
                     12763                        BX7    X6+X3             POINT PREVIOUS ENTRY TO THIS ONE      REFMAP   2316
                          54730                   SA7    A3                                                      REFMAP   2317
                               12662              BX6    X6+X2             30/LAST,30/FIRST                      REFMAP   2318
          1531  20636                             LX6    30                                                      REFMAP   2319
                     54620                        SA6    A2                UPDATE BUCKET                         REFMAP   2320
                          0311001523 +            NZ     X1,SORTCL         IF NOT FINISHED                       REFMAP   2321
          1532  0400001520 +                      EQ     SORTC                                                   REFMAP   2322
                                                                                                                 REFMAP   2323
          1533  11302                    SORTC1   BX3    X0*X2             EXTRACT TYPE                          REFMAP   2324
                     20304                        LX3    L.TYP                                                   REFMAP   2325
                          5223001531 +            SA2    BUCKADD-T.NML+X3                                        REFMAP   2326
          1534  0400001527 +                      EQ     SORTCA                                                  REFMAP   2327
                                                                                                                 REFMAP   2328
                                        *         INDEX TABLE FOR VARIABLE NAME FETCH                            REFMAP   2329
                                                                                                                 REFMAP   2330
                                        *                                 EXT  FUN                               REFMAP   2331
          1535  00000000000000001513 +   EBUCADD  VFD    60/F.VAR          0   0                                 REFMAP   2332
          1536  00000000000000001514 +            VFD    60/F.ASF          0   1                                 REFMAP   2333
          1537  00000000000000001512 +            VFD    60/F.EXT          1   0                                 REFMAP   2334
          1540  00000000000000001512 +            VFD    60/F.EXT          1   1                                 REFMAP   2335
                                                                                                                 REFMAP   2336
                                        *         INDEX TABLE FOR TYPES 10 - 17 ( NAMELIST , ENTRY , 0 , UNDBG ) REFMAP   2337
                                                                                                                 REFMAP   2338
          1541  00000000000000001511 +   BUCKADD  VFD    60/F.NML                                                REFMAP   2339
          1542  00000000000000001517 +            VFD    60/F.UDBG         UNUSED                                REFMAP   2340
          1543  00000000000000001510 +            VFD    60/F.ENT                                                REFMAP   2341
          1544  00000000000000001515 +            VFD    60/F.LFN                                                REFMAP   2342
          1545  00000000000000001516 +            VFD    60/F.CGS                                                REFMAP   2343
                                   3              DUP    T.DBG-T.CGS,1                                           REFMAP   2344
                                                  VFD    60/F.UDBG                                               REFMAP   2345
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    52
         SORTSYM - SYMBOL TABLE SORT                                            CODE
  
                                        *****                                                                    REFMAP   2347
                                        *         TABLES INVOLVED:                                               REFMAP   2348
                                        *                                                                        REFMAP   2349
                                        *         SYMBOL TABLE - 2 WORDS / ENTRY                                 REFMAP   2350
                                        *         FORMAT:  60/FLAGS,48/8H_NAME,12/FLAGS                          REFMAP   2351
                                        *                                                                        REFMAP   2352
                                        *         POINTER TABLE - 1 WORD / ENTRY                                 REFMAP   2353
                                        *         FORMAT:  30/LINK TO NEXT POINTER,30/ADDRESS OF SYMTAB ENTRY    REFMAP   2354
                                        *                                                                        REFMAP   2355
                                        *         BUCKET TABLE 100B WORDS LONG                                   REFMAP   2356
                                        *         FORMAT:  30/ADDR OF FIRST ELEMENT,30/ADDR OF LAST ELEMENT      REFMAP   2357
                                        ***                                                                      REFMAP   2358
                                        *         A RADIX SORT ON THE CHARACTER IS USED TO SORT THE POINTER      REFMAP   2359
                                        *         TABLE INTO 64 BUCKETS. THE POINTER TABLE IS THEN LINKED UP     REFMAP   2360
                                        *         USING THE POINTERS IN THE BUCKETS.  AFTER THE POINTER TABLE    REFMAP   2361
                                        *         HAS BEEN SORTED ON ALL 7 CHARACTERS OF THE NAME, THE POINTER   REFMAP   2362
                                        *         TABLE WILL BE IN ALPHABETICAL ORDER.                           REFMAP   2363
                                        *                                                                        REFMAP   2364
                                        *         ONE SHOULD NOTE THAT COMPILER GENERATED SYMBOLS ARE ELIMINATED REFMAP   2365
                                        *         VIRTUE OF THE FACT THAT WHEN WE RELINK THE POINTER TABLE, WE   REFMAP   2366
                                        *         DISCARD ALL ENTRIES THAT FALL INTO BUCKETS ABOVE 45B .         REFMAP   2367
                                        *                                                                        REFMAP   2368
                                        *         THE RESULTS OF SORTING THE POINTER TABLE ARE 4 LINKED LISTS    REFMAP   2369
                                        *         AND POINTERS TO THE HEAD OF THEM                               REFMAP   2370
                                        *                                                                        REFMAP   2371
                                        *         POINTER                  LIST                                  REFMAP   2372
                                        *         O.NAME                   NAMES                                 REFMAP   2373
                                        *         O.LABEL                  STMT LABELS                           REFMAP   2374
                                        *         O.LGL                    LOOP GENERATED LABELS                 REFMAP   2375
  
  
  
                                        *         MACRO TO LINK 2 BUCKETS UP, X0 HAS 30 BIT MASK AND X1 BUCKET A REFMAP   2377
                                                                                                                 REFMAP   2378
                                         LINKB    MACRO  BKB                                                     REFMAP   2379
                                                  SA2    B3+BKB                                                  REFMAP   2380
                                                  RJ     LINKUP                                                  REFMAP   2381
                                                  ENDM                                                           REFMAP   2382
                                                                                                                 REFMAP   2383
                                         CHANGE   MACRO  BKB               CHANGE NAMES WITH CHARACTER BKB APPEN REFMAP   2384
                                                  SA2    B3+1R_BKB                                               REFMAP   2385
                                                  SX7    55B-1R_BKB                                              REFMAP   2386
                                        +         ZR     X2,*+1                                                  REFMAP   2387
                                                  RJ     CNAME                                                   REFMAP   2388
                                                  ENDM                                                           REFMAP   2389
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    53
         SORTSYM - SYMBOL TABLE SORT                                            CODE
  
                                        ***                                                                      REFMAP   2391
                                        *         ERROR EXITS - INSUFFICIENT STORAGE                             REFMAP   2392
                                        *         IT IS HIGHLY UNLIKELY THAT EITHER OF THE BELOW ERRORS WILL     REFMAP   2393
                                        *         EVER OCCUR UNLESS SOMEONE FOWLS UP THE WORKS IN THE PROCESS OF REFMAP   2394
                                        *         DEBUGGING THE COMPILER                                         REFMAP   2395
                                        *                                                                        REFMAP   2396
          1551  75607                    CNERR    SX6    A0-B7             INSUFFICIENT STORAGE TO BUILD CNTBL   REFMAP   2397
                     76775                        SX7    B7+B5                                                   REFMAP   2398
                          5160000022 C            SA6    L.CNTBL                                                 REFMAP   2399
          1552  5170000021 C                      SA7    O.CNTBL                                                 REFMAP   2400
                          7160777577              SX6    -200B                                                   REFMAP   2401
                                                                                                                 REFMAP   2402
          1553  14666                    SORTCER  BX6    -X6                                                     REFMAP   2403
                     5160000050 C                 SA6    TEMP                                                    REFMAP   2404
          1554  6110000001                        SB1    1                                                       REFMAP   2405
                          6160001560 +            LISTL  SERMSG,3                                                REFMAP   2406
          1556  5110000050 C                      SA1    TEMP                                                    REFMAP   2407
                          0100001456 +            RJ     INCRFL            ISSUE A NEED MORE FL MESSAGE          REFMAP   2408
          1557  0400000520 +                      EQ     RMAPX             BY PASS THE REFERENCE MAP             REFMAP   2409
                                                                                                                 REFMAP   2410
          1560  33030116245523172224     SERMSG   DATA   C*0CANT SORT THE SYMBOL TABLE.*                         REFMAP   2411
  
  
  
          1563  00000000000000000000     SORTSYM                           *** ENTRY/EXIT ***                    REFMAP   2413
          1564  5130000000 X                      SA3    SYMORD                                                  REFMAP   2414
                          5150000000 X            SA5    LWAWORK                                                 REFMAP   2415
          1565  7140002027 +                      SX4    LWA.R             X4 = FWA OF WORKING STORAGE           REFMAP   2416
                          10755                   BX7    X5                                                      REFMAP   2417
                                                                                                                 REFMAP   2418
          1566  5170000021 C                      SA7    O.CNTBL           INITIALIZE O.CNTBL                    REFMAP   2419
                          36634                   IX6    X3+X4             O.REFBAS = FWAWORK+NSYMBOLS           REFMAP   2420
                               36763              IX7    X6+X3             O.REFTAB = O.REFBAS+NSYMBOLS          REFMAP   2421
          1567  7233777776                        SX3    X3-1                                                    REFMAP   2422
                          5160000017 C            SA6    O.REFBAS                                                REFMAP   2423
          1570  5170000020 C                      SA7    O.REFTAB                                                REFMAP   2424
                                                                                                                 REFMAP   2425
                                         SOR      IFC    EQ, "C" .                                               REFMAP   2426
                                                                                                                 REFMAP   2427
                                        *         IF THE INSTALLATION SELECTED . AS THE FILE CHARACTER           REFMAP   2428
                                        *         MAKE A PASS OVER THE FILE NAMES AND CONVERT THEM TO A #        REFMAP   2429
                                        *         CHARACTER APPENDED FOR THE DURATION OF REFMAP.  THEY WILL BE   REFMAP   2430
                                        *         CHANGED BACK ON EXIT                                           REFMAP   2431
                                        *         CHANGE ALL FILE NAMES SO THAT THEY ARE APPENDED WITH A #       REFMAP   2432
                                        *         INSTEAD OF A .   THIS PREVENTS CONFUSION WITH BASIC EXTERNAL   REFMAP   2433
                                        *         NAMES IN THE SYMBOL TABLE                                      REFMAP   2434
                                                                                                                 REFMAP   2435
                                                  SA1    N.FILES                                                 REFMAP   2436
                                                  ZR     X1,SOR3           IF NO FILE NAMES                      REFMAP   2437
                                                  SB1    X1                                                      REFMAP   2438
                                                                                                                 REFMAP   2439
                                                  MX0    60-6                                                    REFMAP   2440
                                                  SA1    SYM1                                                    REFMAP   2441
                                                  SA2    X1-4                                                    REFMAP   2442
                                                                                                                 REFMAP   2443
                                         SOR1     SB3    12                SHIFT COUNT                           REFMAP   2444
                                                  LX2    60-12                                                   REFMAP   2445
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    54
         SORTSYM - SYMBOL TABLE SORT                                            CODE
  
                                                                                                                 REFMAP   2446
                                         SOR2     LX2    60-6                                                    REFMAP   2447
                                                  BX7    -X0*X2            EXTRACT A CHARACTER                   REFMAP   2448
                                                  SX6    X7-1R"C"                                                REFMAP   2449
                                                  SB3    B3+6                                                    REFMAP   2450
                                                  NZ     X6,SOR2           IF NOT THE FILE CHARACTER             REFMAP   2451
                                                                                                                 REFMAP   2452
                                                  LX2    B3,X2                                                   REFMAP   2453
                                                  SX7    1R#-1R"C"                                               REFMAP   2454
                                                  LX7    B3,X7                                                   REFMAP   2455
                                                  IX7    X2+X7             CONVERT "C" TO #                      REFMAP   2456
                                                  SA7    A2                REPLACE MODIFIED NAME IN SYMTAB       REFMAP   2457
                                                  SB1    B1-B5             N.FILES = N.FILES - 1                 REFMAP   2458
                                                  SA2    A2-2              NEXT FILE NAME                        REFMAP   2459
                                                  NZ     B1,SOR1           IF MORE FILES TO GO                   REFMAP   2460
                                         SOR3     BSS    0                                                       REFMAP   2461
                                         SOR      ENDIF                                                          REFMAP   2462
                                                                                                                 REFMAP   2463
                                        *         REPLACE VALUE. WITH NAME OF FUNCTION SUBPROGRAM                REFMAP   2464
                                                                                                                 REFMAP   2465
                          5110000000 X            SA1    VALUE.                                                  REFMAP   2466
          1571  0301001576 +                      ZR     X1,SORTS1         IF NOT A FUNCTION SUBPROGRAM          REFMAP   2467
                          5120000012              SA2    SYM1                                                    REFMAP   2468
          1572  20101                             LX1    1                                                       REFMAP   2469
                     37721                        IX7    X2-X1                                                   REFMAP   2470
                          53170                   SA1    X7                WORD A OF VALUE.                      REFMAP   2471
                               43052              MX0    L.NAME                                                  REFMAP   2472
          1573  11601                             BX6    X0*X1                                                   REFMAP   2473
                     36767                        IX7    X6+X7                                                   REFMAP   2474
                          53750                   SA7    X5                STORE CNTBL ENTRY                     REFMAP   2475
                               76650              SX6    B5                                                      REFMAP   2476
          1574  5160000022 C                      SA6    L.CNTBL           L.CNTBL = 1                           REFMAP   2477
                          5222777775              SA2    X2-2              WORD A OF SUBPROGRAM NAME             REFMAP   2478
          1575  11602                             BX6    X0*X2                                                   REFMAP   2479
                     15710                        BX7    -X0*X1                                                  REFMAP   2480
                          36667                   IX6    X6+X7                                                   REFMAP   2481
                               54610              SA6    A1                SUBSTITUTE PROG NAME FOR VALUE.       REFMAP   2482
                                                                                                                 REFMAP   2483
          1576  37554                    SORTS1   IX5    X5-X4             WORKING STORAGE                       REFMAP   2484
                     37753                        IX7    X5-X3             WORKING STORAGE FOR SORT, ETC.        REFMAP   2485
                          7267777675              SX6    X7-102B                                                 REFMAP   2486
          1577  0336001553 +                      NG     X6,SORTCER        IF NOT ENOUGH STORAGE                 REFMAP   2487
                                                                                                                 REFMAP   2488
                                        *         SET UP POINTER TABLE 30/*+1,30/SYMTAB ENTRY                    REFMAP   2489
                                                                                                                 REFMAP   2490
                          5120000013              SA2    SYMEND                                                  REFMAP   2491
          1600  63140                             SB1    X4                B1 = FWA WORK                         REFMAP   2492
                     63331                        SB3    B1+X3             FWA OF THE BUCKETS                    REFMAP   2493
                          20436                   LX4    30                FWAWORK/0                             REFMAP   2494
                               36642              IX6    X4+X2             30/*,30/SYM                           REFMAP   2495
          1601  5150000046 +                      SA5    =10000000002B                                           REFMAP   2496
                          66210                   SB2    B1                I = FWAWORK                           REFMAP   2497
                                                                                                                 REFMAP   2498
          1602  36665                    LA       IX6    X6+X5             SET UP POINTER TABLE                  REFMAP   2499
                     56620                        SA6    B2                                                      REFMAP   2500
                          66225                   SB2    B2+B5             I = I+1                               REFMAP   2501
          1603  0723001602 +                      LT     B2,B3,LA                                                REFMAP   2502
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    55
         SORTSYM - SYMBOL TABLE SORT                                            CODE
  
                                                                                                                 REFMAP   2503
                          73660                   SX6    X6                                                      REFMAP   2504
                               54660              SA6    A6                NO LINK ON LAST WORD                  REFMAP   2505
                                                                                                                 REFMAP   2506
          1604  6140000052                        SB4    42                SHIFT COUNT                           REFMAP   2507
                          66210                   SB2    B1                POINTER TO FIRST ENTRY                REFMAP   2508
                                                                                                                 REFMAP   2509
                                        *         SORT THE POINTER TABLE                                         REFMAP   2510
                                                                                                                 REFMAP   2511
                                        *         DURING THE LOOP THE B REGISTERS ARE USED AS FOLLOWS:           REFMAP   2512
                                        *         B1 = FWAWORK  B2 = FIRST  B3 = FWA OF THE BUCKETS              REFMAP   2513
                                        *         B4 = SHIFT COUNT  B5 = 1                                       REFMAP   2514
                                                                                                                 REFMAP   2515
          1605  43700                    LOOP     MX7    0                                                       REFMAP   2516
                     6163000077                   SB6    B3+77B                                                  REFMAP   2517
                               43066              MX0    54                ONE CHARACTER MASK                    REFMAP   2518
                                                                                                                 REFMAP   2519
          1606  56760                    LB       SA7    B6                CLEAR THE BUCKETS                     REFMAP   2520
                     67665                        SB6    B6-B5                                                   REFMAP   2521
                          0663001606 +            GE     B6,B3,LB                                                REFMAP   2522
                                                                                                                 REFMAP   2523
                                        *         SORT POINTER TABLE INTO 64 LINKED LISTS                        REFMAP   2524
                                                                                                                 REFMAP   2525
          1607  56120                   BINL      SA1    B2                30/NEXT,30/SYMTAB                     REFMAP   2526
                     53210                        SA2    X1                SYMTAB ENTRY                          REFMAP   2527
                          22342                   LX3    B4,X2                                                   REFMAP   2528
                               15430              BX4    -X0*X3            EXTRACT CHARACTER                     REFMAP   2529
          1610  53543                             SA5    B3+X4             FETCH BUCKET                          REFMAP   2530
                                                                                                                 REFMAP   2531
                     73610                        SX6    X1                                                      REFMAP   2532
                          0315001612 +            NZ     X5,ABUC           JUMP IF NOT THE FIRST ENTRY           REFMAP   2533
                                                                                                                 REFMAP   2534
          1611  54610                             SA6    A1                STORE 30/0,30/SYMTAB                  REFMAP   2535
                     76520                        SX5    B2                                                      REFMAP   2536
                          0400001614 +            EQ     ADDB1                                                   REFMAP   2537
                                                                                                                 REFMAP   2538
                                        *         LINK LAST ENTRY TO NEXT ENTRY                                  REFMAP   2539
                                                                                                                 REFMAP   2540
          1612  53250                    ABUC     SA2    X5                30/0,30/SYMTAB OF LAST ENTRY          REFMAP   2541
                     74310                        SX3    A1                                                      REFMAP   2542
                          54610                   SA6    A1                STORE 30/0,30/SYMTAB                  REFMAP   2543
                               20336              LX3    30                                                      REFMAP   2544
          1613  36632                             IX6    X3+X2             30/NEXT,30/SYMTAB                     REFMAP   2545
                     21536                        AX5    30                                                      REFMAP   2546
                          54620                   SA6    A2                                                      REFMAP   2547
                                                                                                                 REFMAP   2548
          1614  20536                    ADDB1    LX5    30                30/FIRST,30/0                         REFMAP   2549
                     74210                        SX2    A1                                                      REFMAP   2550
                          36625                   IX6    X2+X5                                                   REFMAP   2551
                               21136              AX1    30                                                      REFMAP   2552
          1615  54650                             SA6    A5                STORE BUCKET                          REFMAP   2553
                     63210                        SB2    X1                                                      REFMAP   2554
                          0311001607 +            NZ     X1,BINL           LOOP IF MORE LINKS                    REFMAP   2555
                                                                                                                 REFMAP   2556
          1616  6164777771                        SB6    B4-6                                                    REFMAP   2557
                          0460001653 +            ZR     B6,LINK           IF THE FIRST CHARACTER                REFMAP   2558
                                                                                                                 REFMAP   2559
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    56
         SORTSYM - SYMBOL TABLE SORT                                            CODE
  
                                        *         SORT THE . BUCKET KEEPING ONLY THOSE NAMES WITH THE            REFMAP   2560
                                        *         BASIC EXTERNAL FUNCTION BIT SET                                REFMAP   2561
                                                                                                                 REFMAP   2562
          1617  5113000057                        SA1    B3+1R.                                                  REFMAP   2563
                          43700                   MX7    0                                                       REFMAP   2564
                               54710              SA7    A1                CLEAR THE BUCKET                      REFMAP   2565
                                                                                                                 REFMAP   2566
          1620  21136                    FBEF     AX1    30                                                      REFMAP   2567
                     0301001632 +                 ZR     X1,CHNAM          IF END OF THE LIST                    REFMAP   2568
                               53110              SA1    X1                LIST ELEMENT                          REFMAP   2569
          1621  5221777776                        SA2    X1-1              WORD B                                REFMAP   2570
                          20221                   LX2    59-P.BEF                                                REFMAP   2571
          1622  0322001620 +                      PL     X2,FBEF           IF NOT A BASIC EXTERNAL               REFMAP   2572
                                                                                                                 REFMAP   2573
                          74710                   SX7    A1                                                      REFMAP   2574
                               20736              LX7    30                30/FIRST,30/0                         REFMAP   2575
          1623  74625                             SX6    A2+B5                                                   REFMAP   2576
                     54610                        SA6    A1                A6 = LAST BUCKET ADD,X6 = LAST ENTRY  REFMAP   2577
                                                                                                                 REFMAP   2578
          1624  21136                    FBEFL    AX1    30                                                      REFMAP   2579
                     0301001631 +                 ZR     X1,FBEFX          IF END OF THE LIST                    REFMAP   2580
                               53110              SA1    X1                LIST ELEMENT                          REFMAP   2581
          1625  5221777776                        SA2    X1-1              WORD B                                REFMAP   2582
                          20221                   LX2    59-P.BEF                                                REFMAP   2583
          1626  0322001624 +                      PL     X2,FBEFL          IF NOT A BASIC EXTERNAL               REFMAP   2584
                                                                                                                 REFMAP   2585
                          74010                   SX0    A1                                                      REFMAP   2586
                               20036              LX0    30                                                      REFMAP   2587
          1627  12606                             BX6    X0+X6             LINK LAST TO THIS                     REFMAP   2588
                     54660                        SA6    A6                                                      REFMAP   2589
                          74625                   SX6    A2+B5                                                   REFMAP   2590
                               54610              SA6    A1                                                      REFMAP   2591
          1630  0400001624 +                      EQ     FBEFL                                                   REFMAP   2592
                                                                                                                 REFMAP   2593
          1631  74660                    FBEFX    SX6    A6                                                      REFMAP   2594
                     12776                        BX7    X7+X6                                                   REFMAP   2595
                          5173000057              SA7    B3+1R.            UPDATE THE BUCKET                     REFMAP   2596
                                                                                                                 REFMAP   2597
                                        *         CHANGE NAMES OF ENTRIES IN SYMTAB WITH A $ . OR # APPENDED TO  REFMAP   2598
                                        *         THEM.  SAVE OLD NAMES IN CNTBL, FORMAT: 42/7L_NAME,18/L(WORD A REFMAP   2599
                                                                                                                 REFMAP   2600
          1632  6160000074               CHNAM    SB6    60                                                      REFMAP   2601
                          67464                   SB4    B6-B4             60-SC                                 REFMAP   2602
          1633  5140000021 C                      SA4    O.CNTBL           FWA                                   REFMAP   2603
                          5150000022 C            SA5    L.CNTBL           LENGTH                                REFMAP   2604
          1634  53040                             SA0    X4                A0 = O                                REFMAP   2605
                     63750                        SB7    X5                                                      REFMAP   2606
                          43052                   MX0    L.NAME                                                  REFMAP   2607
                               65707              SB7    A0-B7             B7 = O-L = NEXT STOREING ADDRESS      REFMAP   2608
          1635  6163000100                        SB6    B3+100B           LWA OF THE BUCKETS                    REFMAP   2609
                                                                                                                 REFMAP   2610
                          5123000053              CHANGE $                 CHANGE NAMES WITH $ APPENDED          REFMAP   2611
          1640  5123000057                        CHANGE .                 CHANGE NAMES OF BASIC EXTERNALS       REFMAP   2612
                                                  IFC    EQ, "C" . ,2                                            REFMAP   2613
                                                  CHANGE #                 CHANGE THE FILE NAMES                 REFMAP   2614
                                                  ELSE   1                                                       REFMAP   2615
          1642  5123000060                        CHANGE "C"               CHANGE THE FILE NAMES                 REFMAP   2616
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    57
         SORTSYM - SYMBOL TABLE SORT                                            CODE
  
                                                                                                                 REFMAP   2617
                                        *         UPDATE TABLE LENGTH, RESTORE B4                                REFMAP   2618
                                                                                                                 REFMAP   2619
          1644  6160000074                        SB6    60                                                      REFMAP   2620
                          67464                   SB4    B6-B4             RESTORE B4                            REFMAP   2621
                               75607              SX6    A0-B7             X7 = O - ( O - L ) = L                REFMAP   2622
          1645  5160000022 C                      SA6    L.CNTBL           UPDATE TABLE LENGTH                   REFMAP   2623
                                                                                                                 REFMAP   2624
                                        *         LINK UP SPECIAL BUCKETS - 0 BLANK . $ AND # ( FILE NAMES )     REFMAP   2625
                                                                                                                 REFMAP   2626
                          56130                   SA1    B3                0 BUCKET                              REFMAP   2627
                               43036              MX0    30                                                      REFMAP   2628
          1646  5123000055                        LINKB  55B               LINK BLANK TO ZERO BUCKET             REFMAP   2629
          1647  5123000053                        LINKB  1R$               LINK $ BUCKET TO RESULT               REFMAP   2630
          1650  5123000057                        LINKB  1R.               . BUCKET ( BASIC EXTERNAL FUNCTIONS ) REFMAP   2631
                                                  IFC    EQ, "C" . ,2                                            REFMAP   2632
                                                  LINKB  1R#               FILE NAME CHARACTER                   REFMAP   2633
                                                  ELSE   1                                                       REFMAP   2634
          1651  5123000060                        LINKB  1R"C"             FILE NAME CHARACTER                   REFMAP   2635
          1652  56630                             SA6    B3                STORE RESULT                          REFMAP   2636
                                                                                                                 REFMAP   2637
                                        *         RELINK THE POINTER TABLE                                       REFMAP   2638
                                                                                                                 REFMAP   2639
          1653  6173000045               LINK     SB7    B3+1R9+1          LWA+1 OF BUCKETS TO BE LINKED         REFMAP   2640
                          66630                   SB6    B3                FWA                                   REFMAP   2641
                               43600              MX6    0                                                       REFMAP   2642
                                                                                                                 REFMAP   2643
          1654  56160                    FLINK    SA1    B6                                                      REFMAP   2644
                     66665                        SB6    B6+B5             ADD = ADD+1                           REFMAP   2645
                          0311001656 +            NZ     X1,LINKA          JUMP IF FOUND A NON EMPTY POCKET      REFMAP   2646
          1655  0767001654 +                      LT     B6,B7,FLINK                                             REFMAP   2647
                                                                                                                 REFMAP   2648
                          0400001665 +            EQ     SORTSN            GO SORT THE STMT NUMBERS              REFMAP   2649
                                                                                                                 REFMAP   2650
          1656  20136                    LINKA    LX1    30                                                      REFMAP   2651
                     63210                        SB2    X1                RESET FIRST                           REFMAP   2652
                          43036                   MX0    30                                                      REFMAP   2653
                               20136              LX1    30                FL(A)/LL(A)                           REFMAP   2654
                                                                                                                 REFMAP   2655
          1657  0667001663 +             LINKC    GE     B6,B7,LINKZ                                             REFMAP   2656
                          56260                   SA2    B6                X2 = FL(B)/LL(B)                      REFMAP   2657
                               66665              SB6    B6+B5                                                   REFMAP   2658
          1660  0302001657 +                      ZR     X2,LINKC                                                REFMAP   2659
                                                                                                                 REFMAP   2660
                          53310                   SA3    X1                ( LLA) )                              REFMAP   2661
                               11402              BX4    X0*X2             FL(B)/0                               REFMAP   2662
          1661  36643                             IX6    X4+X3             FL(B)/(LL(A))                         REFMAP   2663
                     54630                        SA6    A3                                                      REFMAP   2664
                          10122                   BX1    X2                X1 = FL(B)/LL(B)                      REFMAP   2665
          1662  0400001657 +                      EQ     LINKC                                                   REFMAP   2666
                                                                                                                 REFMAP   2667
          1663  6144777771               LINKZ    SB4    B4-6                                                    REFMAP   2668
                          0540001605 +            NZ     B4,LOOP           LOOP FOR 7 CHARACTERS                 REFMAP   2669
                                                                                                                 REFMAP   2670
          1664  76620                             SX6    B2                                                      REFMAP   2671
                     5160000023 C                 SA6    O.NAME            SAVE POINTERS TO THE NAMES            REFMAP   2672
                                                                                                                 REFMAP   2673
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    58
         SORTSYM - SYMBOL TABLE SORT                                            CODE
  
          1665  5140000021 C             SORTSN   SA4    O.CNTBL                                                 REFMAP   2674
                          54545                   SA5    A4+B5             L.CNTBL                               REFMAP   2675
                               73445              SX4    X4+B5                                                   REFMAP   2676
          1666  37645                             IX6    X4-X5             ADJUST ORIGIN OF THE TABLE            REFMAP   2677
                     54640                        SA6    A4                                                      REFMAP   2678
                                                                                                                 REFMAP   2679
                          6160000006              SB6    6                                                       REFMAP   2680
          1667  0764001563 +                      GT     B4,B6,SORTSYM     IF WE DIDNT FINISH THE ALPHA SORT     REFMAP   2681
                                                                                                                 REFMAP   2682
                          5113000052              SA1    B3+1R)            LOOP GENERATED LABELS                 REFMAP   2683
          1670  10611                             BX6    X1                                                      REFMAP   2684
                     5160000026 C                 SA6    O.LGL                                                   REFMAP   2685
  
  
  
                                        *         SORT THE STATEMENT NUMBERS ON THE NUMBER OF CHARACTERS         REFMAP   2687
                                        *         THAT EACH ONE HAS TO BRING THEM IN ASCENDING ORDER             REFMAP   2688
                                                                                                                 REFMAP   2689
          1671  5113000057                        SA1    B3+1R.                                                  REFMAP   2690
                          0301001563 +            ZR     X1,SORTSYM        EXIT IF NO STMT NUMBERS               REFMAP   2691
          1672  21136                             AX1    30                                                      REFMAP   2692
                     63210                        SB2    X1                SET B2 = FIRST                        REFMAP   2693
                          5150000012 +            SA5    =10H                                                    REFMAP   2694
          1673  10055                             BX0    X5                X0 = 55 55 55 55 ........             REFMAP   2695
                     5140000047 +                 SA4    =10H5555555555    X4 = 40404040404040...                REFMAP   2696
                                                                                                                 REFMAP   2697
                               43700              MX7    0                                                       REFMAP   2698
          1674  6163000012                        SB6    B3+10D                                                  REFMAP   2699
          1675  56760                   +         SA7    B6                CLEAR THE BUCKETS                     REFMAP   2700
                     67665                        SB6    B6-B5                                                   REFMAP   2701
                          0663001675 +            GE     B6,B3,*                                                 REFMAP   2702
                                                                                                                 REFMAP   2703
          1676  56120                    BINS     SA1    B2                30/NEXT,30/SYMTAB                     REFMAP   2704
                     53210                        SA2    X1                FETCH SYMTAB ENTRY                    REFMAP   2705
                                                                                                                 REFMAP   2706
                          21230                   AX2    24                SHIFT OFF TRASH                       REFMAP   2707
                               76550              SX5    B5                X5 = 1                                REFMAP   2708
          1677  13320                             BX3    X2-X0             JJJJ 00 00 00                         REFMAP   2709
                     37635                        IX6    X3-X5             JJJ J-1 77 77 77                      REFMAP   2710
                          16536                   BX5    -X6+X3            77 77 77 4X 00 00 00                  REFMAP   2711
                               11245              BX2    X4*X5             40 40 40 00 00 00                     REFMAP   2712
          1700  47322                             CX3    X2                BUCKET NUMBER IN X3                   REFMAP   2713
                     53533                        SA5    B3+X3             FETCH BUCKET                          REFMAP   2714
                                                                                                                 REFMAP   2715
                          73610                   SX6    X1                                                      REFMAP   2716
                               54610              SA6    A1                STORE 30/0,30/SYMTAB                  REFMAP   2717
          1701  0315001703 +                      NZ     X5,ABUCS          JUMP IF NOT THE FIRST ENTRY           REFMAP   2718
                                                                                                                 REFMAP   2719
                          76520                   SX5    B2                                                      REFMAP   2720
          1702  0400001705 +                      EQ     ADDBS                                                   REFMAP   2721
                                                                                                                 REFMAP   2722
                                        *         LINK LAST ENTRY TO NEXT ENTRY                                  REFMAP   2723
                                                                                                                 REFMAP   2724
          1703  53250                    ABUCS    SA2    X5                30/0,30/SYMTAB OF LAST ENTRY          REFMAP   2725
                     74310                        SX3    A1                                                      REFMAP   2726
                          20336                   LX3    30                                                      REFMAP   2727
                               36632              IX6    X3+X2                                                   REFMAP   2728
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    59
         SORTSYM - SYMBOL TABLE SORT                                            CODE
  
          1704  54620                             SA6    A2                                                      REFMAP   2729
                     21536                        AX5    30                                                      REFMAP   2730
                                                                                                                 REFMAP   2731
          1705  20536                    ADDBS    LX5    30                30/FIRST,30/0                         REFMAP   2732
                     74210                        SX2    A1                                                      REFMAP   2733
                          36625                   IX6    X2+X5                                                   REFMAP   2734
                               54650              SA6    A5                STORE BUCKET                          REFMAP   2735
          1706  21136                             AX1    30                                                      REFMAP   2736
                     63210                        SB2    X1                                                      REFMAP   2737
                          0311001676 +            NZ     X1,BINS           LOOP IF MORE LINKS                    REFMAP   2738
                                                                                                                 REFMAP   2739
                                        *         RELINK THE POINTER LIST BY USING THE BUCKETS                   REFMAP   2740
                                                                                                                 REFMAP   2741
          1707  6173000012               LINKS    SB7    B3+10D            LWA OF BUCKETS TO BE LINKED           REFMAP   2742
                          66630                   SB6    B3                                                      REFMAP   2743
                               43600              MX6    0                                                       REFMAP   2744
          1710  56160                    FLINKS   SA1    B6                                                      REFMAP   2745
                     66665                        SB6    B6+B5                                                   REFMAP   2746
                          0311001712 +            NZ     X1,LINKAS         JUMP IF FOUND A NON EMPTY POCKET      REFMAP   2747
          1711  0676001710 +                      LE     B6,B7,FLINKS                                            REFMAP   2748
                          0400001563 +            EQ     SORTSYM           EXIT                                  REFMAP   2749
                                                                                                                 REFMAP   2750
          1712  20136                    LINKAS   LX1    30                                                      REFMAP   2751
                     73610                        SX6    X1                                                      REFMAP   2752
                          5160000024 C            SA6    O.LABEL           SAVE LIST POINTER                     REFMAP   2753
          1713  20136                             LX1    30                FL(A)/LL(A)                           REFMAP   2754
                     43036                        MX0    30                                                      REFMAP   2755
                                                                                                                 REFMAP   2756
          1714  0776001563 +             LINKCS   GT     B6,B7,SORTSYM     IF FINISHED                           REFMAP   2757
                          56260                   SA2    B6                X2 = FL(B)/LL(B)                      REFMAP   2758
                               66665              SB6    B6+B5                                                   REFMAP   2759
          1715  0302001714 +                      ZR     X2,LINKCS                                               REFMAP   2760
                          53310                   SA3    X1                ( LL(A) )                             REFMAP   2761
                               11402              BX4    X0*X2             FL(B)/0                               REFMAP   2762
          1716  36643                             IX6    X4+X3             FL(B)/(LL(A))                         REFMAP   2763
                     54630                        SA6    A3                                                      REFMAP   2764
                          10122                   BX1    X2                                                      REFMAP   2765
          1717  0400001714 +                      EQ     LINKCS                                                  REFMAP   2766
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    60
         SUBROUTINES TO HANDLE SPECIAL SYMBOLS                                  CODE
  
                                        ***                                                                      REFMAP   2768
                                        *         LINKUP - LINKUP 2 BUCKETS IN X1 AND X2                         REFMAP   2769
                                        *                                                                        REFMAP   2770
                                        *         ON EXIT:                                                       REFMAP   2771
                                        *                X1,X6 = RESULT BUCKET                                   REFMAP   2772
                                        *                                                                        REFMAP   2773
          1720  00000000000000000000     LINKUP                                                                  REFMAP   2774
          1721  10611                             BX6    X1                                                      REFMAP   2775
                     0302001720 +                 ZR     X2,LINKUP                                               REFMAP   2776
                               10622              BX6    X2                                                      REFMAP   2777
          1722  0301001725 +                      ZR     X1,LINKUP1                                              REFMAP   2778
                                                                                                                 REFMAP   2779
                          15620                   BX6    -X0*X2            /LL(B)                                REFMAP   2780
                               11501              BX5    X0*X1             FL(A)/                                REFMAP   2781
          1723  53310                             SA3    X1                ( LL(A) )                             REFMAP   2782
                     11402                        BX4    X0*X2             FL(B)/0                               REFMAP   2783
                          36665                   IX6    X6+X5                                                   REFMAP   2784
                               12734              BX7    X3+X4                                                   REFMAP   2785
          1724  54730                             SA7    A3                STORE UPDATED ENTRY                   REFMAP   2786
          1725  10166                    LINKUP1  BX1    X6                                                      REFMAP   2787
                     0400001720 +                 EQ     LINKUP                                                  REFMAP   2788
  
  
  
                                        ***                                                                      REFMAP   2790
                                        *         CNAME - CHANGE NAMES IN SYMTAB TO REMOVE SPECIAL CHARACTERS    REFMAP   2791
                                        *         SAVE ORIGINAL NAME IN CNTAB                                    REFMAP   2792
                                        *                                                                        REFMAP   2793
                                        *         ON ENTRY:                                                      REFMAP   2794
                                        *                X0 = MASK(42) , X2 = BUCKET , X7 = 1R -1R_CHAR          REFMAP   2795
                                        *                A0 = FWA OF CNTBL                                       REFMAP   2796
                                        *                B7 = FWA-LENGTH OF THE TABLE                            REFMAP   2797
                                        *                                                                        REFMAP   2798
                                                                                                                 REFMAP   2799
          1726  53220                    CNAME.L  SA2    X2                30/NEXT,30/WORD A                     REFMAP   2800
                     53320                        SA3    X2                WORD A                                REFMAP   2801
                          11703                   BX7    X0*X3             NAME                                  REFMAP   2802
                               73420              SX4    X2                ADDRESS                               REFMAP   2803
          1727  36774                             IX7    X7+X4                                                   REFMAP   2804
                     56770                        SA7    B7                STORE CNTBL ENTRY                     REFMAP   2805
                          67775                   SB7    B7-B5                                                   REFMAP   2806
                                                                                                                 REFMAP   2807
                               36631              IX6    X3+X1             CHANGE WORD A OF SYMTAB ENTRY         REFMAP   2808
          1730  54630                             SA6    A3                                                      REFMAP   2809
                     21236                        AX2    30                                                      REFMAP   2810
                          0776001551 +            LT     B7,B6,CNERR       IF WE RAN OUT OF STORAGE              REFMAP   2811
          1731  0312001726 +                      NZ     X2,CNAME.L        LOOP IF NOT FINISHED                  REFMAP   2812
          1732  00000000000000000000     CNAME                                                                   REFMAP   2813
          1733  21236                             AX2    30                                                      REFMAP   2814
                     22147                        LX1    B4,X7             POSITION CHAR FOR NAME CHANGE         REFMAP   2815
                          0400001726 +            EQ     CNAME.L                                                 REFMAP   2816
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    61
         CPL - INITIALIZATION                                                   CODE
  
                                        ***                                                                      REFMAP   2818
                                        *         CPL - INITIALIZE REFMAP , COMPUTE PROGRAM LENGTH, ETC.         REFMAP   2819
                                        *         SET UP BIAS TABLE ( O.LRB ) TO FWA OF LOCAL BLOCKS             REFMAP   2820
                                                                                                                 REFMAP   2821
          1734  0200401734 +             CPL      ROUTINE                                                        REFMAP   2822
          1735  13666                             SETZERO O.CELLS,L.CELLS                                        REFMAP   2823
          1737  5150000012                        SA5    SYM1                                                    REFMAP   2824
                          53050                   SA0    X5                A0 = FWA OF SYMTAB                    REFMAP   2825
          1740  5110000000 X                      SA1    =XN.FERR                                                REFMAP   2826
                          0311001777 +            NZ     X1,CPL8           SKIP RELOCATION IF FATAL ERRORS       REFMAP   2827
                                                                                                                 REFMAP   2828
                                        *         COMPUTE THE FWA"S OF THE LOCAL BLOCKS AND THE PROGRAM LENGTH   REFMAP   2829
                                                                                                                 REFMAP   2830
          1741  5110000000 X                      SA1    O.LBLK            LENGTH OF FIRST LOCAL BLOCK           REFMAP   2831
                          6110000002 C            SB1    O.LRB             FWA OF TABLE                          REFMAP   2832
          1742  6120000011 C                      SB2    O.LRB+N.LRB                                             REFMAP   2833
                          5130000056              SA3    PROGRAM                                                 REFMAP   2834
                                                                                                                 REFMAP   2835
          1743  56610                   +         SA6    B1                                                      REFMAP   2836
                     36661                        IX6    X6+X1             SUM BLOCK LENGTH                      REFMAP   2837
                          66115                   SB1    B1+B5                                                   REFMAP   2838
                               54115              SA1    A1+B5             NEXT BLOCK LENGTH                     REFMAP   2839
          1744  0712001743 +                      LT     B1,B2,*-1         LOOP THROUGH THE LOCAL BLOCKS         REFMAP   2840
                                                                                                                 REFMAP   2841
                          5160000001 C            SA6    L.PROG            PROGRAM LENGTH                        REFMAP   2842
          1745  26433                             UX4    B3,X3                                                   REFMAP   2843
                     0430001754 +                 ZR     B3,CPL2           IF A PROGRAM                          REFMAP   2844
          1746  0303001764 +                      ZR     X3,CPL3           IF A BLOCK DATA SUBPROGRAM            REFMAP   2845
                                                                                                                 REFMAP   2846
                                        *         COMPUTE THE LENGTH OF THE FORMAL PARAMETER RELOCATION BASES    REFMAP   2847
                                                                                                                 REFMAP   2848
                          5140000000 X            SA4    N.FP                                                    REFMAP   2849
          1747  0304001764 +                      ZR     X4,CPL3           IF NO FORMAL PARAMETERS               REFMAP   2850
                          63340                   SB3    X4                                                      REFMAP   2851
          1750  5010777772                        SA1    A0-5              WORD B OF FIRST F.P.                  REFMAP   2852
                          6110000023              SB1    P.RA                                                    REFMAP   2853
                                                                                                                 REFMAP   2854
          1751  23211                    CPL.FP   AX2    B1,X1             POSITION BLOCK LENGTH                 REFMAP   2855
                     67335                        SB3    B3-B5                                                   REFMAP   2856
                          73320                   SX3    X2                                                      REFMAP   2857
                               36663              IX6    X6+X3             SUM                                   REFMAP   2858
          1752  5011777775                        SA1    A1-2                                                    REFMAP   2859
                          0530001751 +            NZ     B3,CPL.FP         IF NOT FINISHED                       REFMAP   2860
                                                                                                                 REFMAP   2861
          1753  5160000001 C                      SA6    L.PROG                                                  REFMAP   2862
                          0400001764 +            EQ     CPL3                                                    REFMAP   2863
                                                                                                                 REFMAP   2864
                                        *         COMPUTE BUFFER LENGTH                                          REFMAP   2865
                                                                                                                 REFMAP   2866
          1754  5110000000 X             CPL2     SA1    =XOT.RM                                                 F162FTNA 1515
                          5120000000 X            SA2    =XN.FILES                                               F162FTNA 1516
          1755  7130000005                        SX3    5           K=LEN LIBLNK(3)+FLINK APL TERM(1)+TRACE(1)  F162FTNA 1517
                          7140000052              SX4    L.FIT6+1    +1 FOR FLINK TABLE ENTRY                    F162FTNA 1518
          1756  0301001760 +                      ZR     X1,CPL2.2   IF CRM OBJECT MODE                          F162FTNA 1519
                          7130000002              SX3    2           K = LEN - PRINTLIM(1) + TRACE(1)            F162FTNA 1520
          1757  7140000021                        SX4    L.FIT7+1                                                F162FTNA 1521
          1760  5110000000 X             CPL2.2   SA1    =XSTART.    BUF LEN + N.FILES*(L.FIT+1) + K             F162FTNA 1522
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    62
         CPL - INITIALIZATION                                                   CODE
  
                          5150000000 X            SA5    N.EQUF      NR OF EQUIVALENCED FILES                    FCC2064    14
          1761  0305001762 +                      ZR     X5,CPL2.3                                               FCC2064    15
                          37115                   IX1    X1-X5       START. - NR OF EQUIVALENCED FILES           FCC2064    16
                               37225              IX2    X2-X5       NR OF FILES - NR OF EQUIVALENCED FILES      FCC2064    17
          1762  42224                    CPL2.3   IX2    X2*X4                                                   FCC2064    18
                     37313                        IX3    X1-X3                                                   F162FTNA 1524
                          37732                   IX7    X3-X2       BUF LEN                                     F162FTNA 1525
                               37667              IX6    X6-X7             PROGRAM LENGTH - BUFFER LENGTH        REFMAP   2872
          1763  5170000015 C                      SA7    L.BUFIO                                                 F162FTNA 1526
                                                                                                                 REFMAP   2873
          1764  5160000016 C             CPL3     SA6    L.PROGP           PROGRAM LENGTH THAT WE PRINT          REFMAP   2874
                                                                                                                 REFMAP   2875
                                        *         SCAN THE SYMBOL TABLE, CHANGING THE ADDRESS"S OF LOCAL SYMBOLS REFMAP   2876
                                        *         FROM BLOCK RELATIVE TO PROGRAM RELATIVE                        REFMAP   2877
                                                                                                                 REFMAP   2878
                          5140000000 X            SA4    ST.                                                     REFMAP   2879
          1765  5150000000 X                      SA5    SYMORD                                                  REFMAP   2880
                          20401                   LX4    1                                                       REFMAP   2881
                               55005              SA0    A0-B5             A0 = SYM1 - 1                         REFMAP   2882
          1766  20501                             LX5    1                                                       REFMAP   2883
                     63140                        SB1    X4                B1 = INDEX = 2*ORD(ST.)               REFMAP   2884
                          63250                   SB2    X5                B2 = LIMIT                            REFMAP   2885
                               43072              MX0    60-L.RL                                                 REFMAP   2886
          1767  55101                             SA1    A0-B1                                                   REFMAP   2887
                     43765                        MX7    60-L.RB                                                 REFMAP   2888
                          66355                   SB3    B5+B5                                                   REFMAP   2889
                               10611              BX6    X1                X6 = WORD B                           REFMAP   2890
          1770  6140000002 C                      SB4    O.LRB             B4 = BASE OF LOCAL BLOCK ADDR TBL     REFMAP   2891
                          6170000023              SB7    P.RA                                                    REFMAP   2892
                                                                                                                 REFMAP   2893
          1771  20627                    CPL5     LX6    60-P.RL                                                 REFMAP   2894
                     66113                        SB1    B1+B3                                                   REFMAP   2895
                          15560                   BX5    -X0*X6            RL                                    REFMAP   2896
                               20631              LX6    P.RL-P.RB                                               REFMAP   2897
          1772  63650                             SB6    X5                                                      REFMAP   2898
                     15467                        BX4    -X7*X6            RB                                    REFMAP   2899
                          55113                   SA1    A1-B3             NEXT                                  REFMAP   2900
          1773  0565001775 +                      NE     B6,B5,CPL6        IF NOT PROGRAM RELATIVE               REFMAP   2901
                          20614                   LX6    P.RB                                                    REFMAP   2902
                               53444              SA4    X4+B4             O.LRB(RB)                             REFMAP   2903
          1774  22574                             LX5    B7,X4                                                   REFMAP   2904
                     36656                        IX6    X5+X6                                                   REFMAP   2905
                          54613                   SA6    A1+B3                                                   REFMAP   2906
          1775  10611                    CPL6     BX6    X1                                                      REFMAP   2907
                     0712001771 +                 LT     B1,B2,CPL5                                              REFMAP   2908
                                                                                                                 REFMAP   2909
                               76350              SX3    B5                                                      REFMAP   2910
          1776  0100002023 +                      RJ     RPN               RELOCATE ORDINAL 1                    REFMAP   2911
                                                                                                                 REFMAP   2912
                                        *         SCAN FOR BLANK COMMON AND CHANGE ITS NAME TO */ /    *         REFMAP   2913
                                                                                                                 REFMAP   2914
          1777  5120000000 X             CPL8     SA2    N.COM                                                   REFMAP   2915
                          43600                   MX6    0                                                       REFMAP   2916
          2000  5160000011 C                      SA6    L.SCOM            INITIALIZE COMMON LENGTHS             REFMAP   2917
                          54665                   SA6    A6+B5                                                   REFMAP   2918
                               54665              SA6    A6+B5                                                   REFMAP   2919
          2001  54665                             SA6    A6+B5                                                   REFMAP   2920
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    63
         CPL - INITIALIZATION                                                   CODE
  
                     0302001734 +                 ZR     X2,CPL            IF NO COMMON                          REFMAP   2921
          2002  6110000000 X                      SB1    ORGTAB                                                  REFMAP   2922
                          63221                   SB2    B1+X2             LWA+1                                 REFMAP   2923
          2003  6130000066                        SB3    54                                                      REFMAP   2924
                                                                                                                 REFMAP   2925
          2004  56110                    CPL9     SA1    B1                                                      REFMAP   2926
                     23231                        AX2    B3,X1                                                   REFMAP   2927
                          7232000022              SX3    X2+77B-1R                                               REFMAP   2928
          2005  66115                             SB1    B1+B5                                                   REFMAP   2929
                     43453                        MX4    -17                                                     FCC0556    28
                          43073                   MX0    -1                                                      FCC0556    29
                               10211              BX2    X1                                                      FCC0556    30
          2006  15714                             BX7    -X4*X1                                                  FCC0556    31
                     20253                        LX2    -17                                                     FCC0556    32
                          15220                   BX2    -X0*X2                                                  FCC0556    33
          2007  0303002017 +                      ZR     X3,CPL10          IF FOUND                              REFMAP   2930
                          5232000011 C            SA3    X2+L.SCOM                                               FCC0556    34
          2010  36637                             IX6    X3+X7                                                   FCC0556    35
                     54630                        SA6    A3                                                      FCC0556    36
                          0712002004 +            LT     B1,B2,CPL9        IF NOT FINISHED                       REFMAP   2931
          2011  5130000000 X                      SA3    =XDIRECT                                                RSM4033     9
                          0313002016 +            NZ     X3,CPL9A    IF LCM = I IS SPECIFIED                     RSM4033    10
          2012  5130000012 C                      SA3    L.LCOM      TOTAL LCM ALLOCATION                        RSM4033    11
                          5140000254 +            SA4    LCMLMT      LCM LIMIT WITHOUT LCM=I                     RSM4033    12
          2013  37343                             IX3    X4-X3                                                   RSM4033    13
                     0323002016 +                 PL     X3,CPL9A    IF TOTAL LCM ALLOCATION .LE. 400K           RSM4033    14
          2014  6110000001                        SB1    1                                                       RSM4033    15
                          6160000261 +            LISTL  STGERR,5    ISSUES LCM .GT. 400K MES (WITHOUT LCM=I)    RSM4033    16
          2016  0400001734 +             CPL9A    EQ     CPL                                                     RSM4033    17
                                                                                                                 REFMAP   2933
          2017  5140000050 +             CPL10    SA4    =7L/ /            CHANGE NAME                           REFMAP   2934
                          43052                   MX0    -18                                                     REFMAP   2935
                               15610              BX6    -X0*X1      LCM BIT + LENGTH                            FCC0556    37
          2020  12646                             BX6    X4+X6                                                   FCC0556    38
                     54610                        SA6    A1                                                      REFMAP   2940
                          74660                   SX6    A6                                                      REFMAP   2941
          2021  5160000000 C                      SA6    BLKCOM                                                  REFMAP   2942
                          5272000013 C            SA7    X2+L.SBLK                                               REFMAP   2950
          2022  0400002004 +                      EQ     CPL9                                                    FCC0556    39
  
  
  
                                        ***                                                                      REFMAP   2955
                                        *         RPN - RELOCATE PROGRAM NAME                                    REFMAP   2956
                                        *                                                                        REFMAP   2957
                                        *         ON ENTRY:                                                      REFMAP   2958
                                        *                X3 = ORDINAL OF SYMBOL TO BE RELOCATED                  REFMAP   2959
                                        *                A0 , B4 , B7 , AND X7 AS SET FOR LOOP AT CPL5           REFMAP   2960
                                        *                                                                        REFMAP   2961
          2023  00000000000000000000     RPN                                                                     REFMAP   2962
          2024  20301                             LX3    1                                                       REFMAP   2963
                     63330                        SB3    X3                                                      REFMAP   2964
                          55203                   SA2    A0-B3             WORD B OF SYMBOL                      REFMAP   2965
                               20260              LX2    60-P.RB                                                 REFMAP   2966
          2025  15327                             BX3    -X7*X2            RB                                    REFMAP   2967
                     20214                        LX2    P.RB                                                    REFMAP   2968
                          53434                   SA4    X3+B4             O.LRB(RB)                             REFMAP   2969
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    64
         CPL - INITIALIZATION                                                   CODE
  
                               22574              LX5    B7,X4                                                   REFMAP   2970
          2026  36652                             IX6    X5+X2             RELOCATE THE ADDRESS                  REFMAP   2971
                     54620                        SA6    A2                                                      REFMAP   2972
                          0400002023 +            EQ     RPN                                                     REFMAP   2973
                                                  USE    LWA                                                     REFMAP   2974
          2027                           LWA.R    BSS    0                                                       REFMAP   2975
          2027                                    END    FTN25                                                   REFMAP   2976
  
                             66500B CM  STORAGE USED             5248 STATEMENTS      942 SYMBOLS      000099 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.564 SECONDS        1239 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABUC         1612   PROGRAM*       55/31     55/39 L
        ABUCS        1703   PROGRAM*       58/47     58/54 L
        ACCWC         121   TABLES          4/07 L   17/57     18/10
        ADDBS        1705   PROGRAM*       58/50     59/04 L
        ADDB1        1614   PROGRAM*       55/35     55/47 L
        APL            52   TABLES          3/54 L   11/19 S   11/22     11/32     11/38
        ASF             2                   4/26 D   30/18
        ASFINT        234   PROGRAM*        5/37 L   30/19
        BFILL          53   TABLES          3/56 L   13/11     18/46 S   40/55
        BINL         1607   PROGRAM*       55/24 L   55/53
        BINS         1676   PROGRAM*       58/33 L   59/10
        BLANKS          0   PROGRAM*        5/03 L   16/12     17/41     18/43
        BLKCOM          0   TABLES          3/04 L   23/34     63/37 S
        BUCKADD      1541   PROGRAM*       51/26     51/39 L
        CDD             0   EXTERNAL*      13/38     32/55     33/03     40/18     40/29     45/19
        CER.FL          0   EXTERNAL*      23/23 S
        CHNAM        1632   PROGRAM*       56/09     56/42 L
        CIO=            0   EXTERNAL*      44/32
        CLI           124   TABLES          4/12 D   36/23 S   36/53     37/05
        CLOC          124   TABLES          4/09 L    4/10      4/12     35/02 S   35/09
        CMUSED       1253   PROGRAM*       38/15 S   38/39 L
        CNAME        1732   PROGRAM*       56/52     56/53     56/57     60/48 L
        CNAME.L      1726   PROGRAM*       60/35 L   60/47     60/51
        CNERR        1551   PROGRAM*       53/07 L   60/46
        COM             1                   4/25 D   26/52
        COMP          362   PROGRAM*       12/20 L   12/30     14/06
        CONDEC          0   EXTERNAL*       1/49 X
        CO.ER           0   EXTERNAL*      23/56
        CO.OLVL         0   EXTERNAL*      23/56
        CPL          1734   PROGRAM*       23/46     61/05 L   63/01     63/29
        CPL10        2017   PROGRAM*       63/16     63/31 L
        CPL2         1754   PROGRAM*       61/27     61/50 L
        CPL2.2       1760   PROGRAM*       61/54     61/57 L
        CPL2.3       1762   PROGRAM*       62/02     62/05 L
        CPL3         1764   PROGRAM*       61/28     61/33     61/46     62/11 L
        CPL5         1771   PROGRAM*       62/31 L   62/45
        CPL6         1775   PROGRAM*       62/38     62/44 L
        CPL8         1777   PROGRAM*       61/10     62/52 L
        CPL9         2004   PROGRAM*       63/06 L   63/20     63/39
        CPL9A        2016   PROGRAM*       63/22     63/26     63/29 L
        CPL.FP       1751   PROGRAM*       61/38 L   61/43
        CP.LSTF         0   EXTERNAL*      23/04
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        CP#RM           0   FTNTEXT        44/31 F
        DEF             1                   4/23 D
        DIM             1                   4/24 D   26/42
        DIRECT          0   EXTERNAL*      63/21
        DLINE          54   TABLES          3/57 L    8/29 S   10/35     10/57     13/10     16/01
        DLL          1264   PROGRAM*       18/09     35/13     39/29 L   39/41     49/28
                                           18/37     37/04     39/30     40/54
        DL.E            6                   4/33 D   33/31
        DL.I            4                   4/36 D   33/33
        DL.J            1                   4/38 D   33/30
        DL.M            3                   4/37 D
        DL.X            5                   4/34 D   33/32
        DO.MAT        244   PROGRAM*        5/55 L   26/10     32/49
        DSRB           44   TABLES          3/47 L   42/53 S   43/08
        EBUCADD      1535   PROGRAM*       51/07     51/32 L
        EBUF         1716   PROGRAM*       36/10     36/15     50/06 D
        E.UDEFL         0   EXTERNAL*       1/48 X   24/08     24/15
        FA=LOL          0   EXTERNAL*       8/56     13/05     29/52     39/39     47/57     53/16
                                            9/01     23/25     33/41     41/44     49/07     63/28
                                           11/14     24/32     38/16     47/08     49/50
        FA=NPG          0   EXTERNAL*       9/05     24/31
        FBEF         1620   PROGRAM*       56/08 L   56/13
        FBEFL        1624   PROGRAM*       56/20 L   56/25     56/33
        FBEFX        1631   PROGRAM*       56/21     56/35 L
        FBNB         1256   PROGRAM*       35/08     37/03     39/09 L   39/22
        FBNB1        1260   PROGRAM*       39/14 L   39/21
        FLINK        1654   PROGRAM*       57/28 L   57/31
        FLINKS       1710   PROGRAM*       59/17 L   59/20
        FMODTAB       225   PROGRAM*        5/27 L   27/34
        FMT           423   PROGRAM*       15/29 L   18/38     25/29     27/48     29/33     30/40     33/11     36/50
                                           18/30     18/53     27/02     27/56     30/22     31/34     34/43     37/25
        FMT.ADD       446   PROGRAM*       16/10     16/13     16/31 L   17/30
        FMT.ADD1      452   PROGRAM*       16/31     16/46 L
        FMT.FIN       467   PROGRAM*       16/02     17/36 L
        FMT.FINL      516   PROGRAM*       18/48     18/53 L   18/56
        FMT.FIN1      512   PROGRAM*       17/36     18/42 L
        FMT.IN        455   PROGRAM*       16/15     17/01 L
        FMT.L         430   PROGRAM*       15/45 L   16/06     16/44     16/49     16/54
        FMT.NXT       445   PROGRAM*       16/20     16/23 L
        FMT.TBL       434   PROGRAM*       15/56     16/01 L
        FMT.X         473   PROGRAM*       17/42     17/52 L
        FMT.X1        503   PROGRAM*       18/03     18/17 L
        FMT.X2        510   PROGRAM*       18/15     18/35 L
        FMT.Z8        444   PROGRAM*       16/17     16/22 L
        FP              1                   4/21 D   26/51     29/27
        FUN             1                   4/22 D   26/09     29/13
        F=              0                  19/01 D   27/02     27/56     30/22     31/34     34/43     37/25
                                           25/29     27/48     29/33     30/40     33/11     36/50
        F=A             2                  19/02 D   27/02     27/56     30/22     31/34     33/11     36/50
                                           25/29     27/48     29/33     30/40     33/11     34/43     37/25
        F=I             4                  19/04 D   29/33     30/22     34/43     36/50     37/25
        F=O             6                  19/06 D   33/11     37/25
        F=X             3                  19/03 D   27/02     27/56     30/22     31/34     33/11     36/50
                                           25/29     27/48     29/33     30/40     33/11     34/43     37/25
        F=Z             5                  19/05 D   25/29     27/02     27/48     31/34     33/11
        F.ASF        1514   PROGRAM*       50/35 L   51/33
        F.CGS        1516   PROGRAM*       50/37 L   51/43
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        F.DEFS       1354   PROGRAM*       43/45 L
        F.ENT        1510   PROGRAM*       50/31 L   51/41
        F.EXT        1512   PROGRAM*       50/33 L   51/34     51/35
        F.FREF       1355   PROGRAM*       43/46 L
        F.LFN        1515   PROGRAM*       50/36 L   51/42
        F.NML        1511   PROGRAM*       50/32 L   51/39
        F.REFS       1353   PROGRAM*       43/44 L
        F.RMAP          0   EXTERNAL*      34/21     36/10     44/32     44/50     47/37
        F.UDBG       1517   PROGRAM*       50/38 L   51/40     51/45     51/45     51/45
        F.VAR        1513   PROGRAM*       50/34 L   51/32
        IEM             0   EXTERNAL*      23/32
        INCFL        1362   PROGRAM*       44/20 L   47/55 S   47/57
        INCRFL       1456   PROGRAM*       47/10     47/50 L   48/02     53/18
        INL           460   PROGRAM*       17/10 L   17/18
        LA           1602   PROGRAM*       54/54 L   54/57
        LB           1606   PROGRAM*       55/18 L   55/20
        LBUF           65   TABLES          4/04 L   11/20     13/12     18/11     29/37     34/52     40/57     49/18
                                           11/14     13/05     15/33     18/17     33/12     37/02     41/33
        LCMLMT        254   PROGRAM*        6/06 L   63/24
        LI            122   TABLES          4/08 L   39/10 S   39/16
        LIB             2                   4/27 D   29/26
        LINK         1653   PROGRAM*       55/56     57/24 L
        LINKA        1656   PROGRAM*       57/30     57/35 L
        LINKAS       1712   PROGRAM*       59/19     59/23 L
        LINKC        1657   PROGRAM*       57/40 L   57/43     57/50
        LINKCS       1714   PROGRAM*       59/29 L   59/32     59/38
        LINKS        1707   PROGRAM*       59/14 L
        LINKUP       1720   PROGRAM*       57/13     57/14     57/15     57/19     60/07 L   60/09     60/21
        LINKUP1      1725   PROGRAM*       60/11     60/20 L
        LINKZ        1663   PROGRAM*       57/40     57/52 L
        LISTR         363   PROGRAM*       10/55     11/28     11/34     11/40     12/22 L   12/51     13/28     29/42
        LISTR1        365   PROGRAM*       12/24     12/26 L
        LISTR.D       375   PROGRAM*       12/46     12/55 L
        LISTR.D1      406   PROGRAM*       13/15     13/25 L
        LISTR.I       370   PROGRAM*       12/38 L   12/49
        LISTR.II      372   PROGRAM*       12/45 L   14/07
        LISTR.O       366   PROGRAM*       12/26     12/30 L   13/25
        LISTR.R       410   PROGRAM*       12/43     13/32 L
        LISTV         345   PROGRAM*       11/03     11/42     27/05     30/26     31/37
                                           11/17 L   25/32     28/03     30/44
        LISTVN        330   PROGRAM*       10/35 L   11/23
        LISTVN1       334   PROGRAM*       10/39     10/48 L
        LISTVN2       337   PROGRAM*       10/53     10/57 L
        LISTVX        341   PROGRAM*       11/07 L   11/43
        LISTV1        353   PROGRAM*       11/26     11/30 L
        LISTV2        356   PROGRAM*       11/31     11/36 L
        LISTV3        361   PROGRAM*       11/37     11/42 L
        LOOP         1605   PROGRAM*       55/14 L   57/53
        LOSTREF      1356   PROGRAM*       44/19 L   47/08     47/15
        LPLEN          62   TABLES          4/11 D   32/25 S   33/22
        LTEMP         124   TABLES          4/10 D   32/16 S   33/16
        LWAWORK         0   EXTERNAL*       1/48 X   53/27
        LWA.R        2027   PROGRAM*       53/28     64/06 L
        L.BCDLN        30                   4/53 D   10/43     12/33     33/05     42/41     45/23
                                           10/41     12/31     13/54     42/40     45/20     47/16
        L.BUFIO        15   TABLES          3/11 L   23/12     38/03 S   38/05     62/09 S
        L.CELLS       126                   4/14 D   61/06
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        L.CNTBL        22   TABLES          3/21 L   22/11     53/09 S   54/32 S   56/45     57/07 S
        L.COM           0   EXTERNAL*      34/07     34/15
        L.DLP           7                   4/41 D   32/15
        L.EQV           0   EXTERNAL*       1/50 X   36/01
        L.FARG          6   FTNTEXT        29/21     30/15
        L.FIT6         51   FTNTEXT        61/53
        L.FIT7         20   FTNTEXT        61/56
        L.FMODE         5   FTNTEXT        27/23
        L.LBLK         14   TABLES          3/10 L   38/09
        L.LCOM         12   TABLES          3/08 L   38/08     63/23
        L.LOOP          0   EXTERNAL*      32/02
        L.NAME         52   FTNTEXT        22/14     27/22     30/39     32/46     36/27     54/27
                                           25/23     29/12     31/07     32/48     36/47     56/48
                                           26/08     30/09     32/12     34/30     40/26
        L.PROG          1   TABLES          3/05 L   61/25 S   61/45 S
        L.PROGP        16   TABLES          3/12 L   23/11     38/02 S   38/04     62/11 S
        L.RA           22   FTNTEXT        25/24     27/40     31/12     32/13
        L.RB            7   FTNTEXT        26/14     36/41     62/25
        L.REP          14                   4/51 D   12/34     13/34     13/45
        L.RL            2   FTNTEXT        62/23
        L.SBLK         13   TABLES          3/09 L   23/15     38/07     63/38 S
        L.SCOM         11   TABLES          3/07 L   23/13     35/22     38/06     62/54 S   63/17
        L.SLD           2   FTNTEXT        31/18
        L.STACK         0   FTNTEXT        33/23
        L.STITL         0   EXTERNAL*       8/47 S   22/06 S
        L.TYP           4   FTNTEXT        26/27     29/14     30/11     50/46     51/25
        L.UDV           0   EXTERNAL*      24/40
        MAPTITL       246   PROGRAM*        6/01 L   24/21     24/32
        M.NCB         177   FTNTEXT        50/06
        NEXTE          37   TABLES          3/38 L   25/23 S   27/11     29/12 S   30/27     31/07 S   33/43
                                           18/12     25/33     27/22 S   29/54     30/39 S   31/39
                                           18/19     26/08 S   28/04     30/09 S   30/45     32/12 S
        N.COM           0   EXTERNAL*       1/49 X   24/03     34/01     34/12     35/16     62/52
        N.EQUF          0   EXTERNAL*       1/51 X   62/01
        N.FERR          0   EXTERNAL*      23/27     61/09
        N.FILES         0   EXTERNAL*       1/49 X   27/35     61/51
        N.FP            0   EXTERNAL*       1/50 X   61/32
        N.LINES         0   EXTERNAL*       8/51
        N.LRB           7                   1/46 D    3/06     61/16
        OCTC          300   PROGRAM*        7/50 L   16/19     38/11     47/54
        OCTL          275   PROGRAM*        7/43 L    7/49      7/56
        ORGTAB          0   EXTERNAL*       1/49 X   24/04     26/53     34/29     63/02
        OT.RM           0   EXTERNAL*      61/50
        OVERFL        255   PROGRAM*        6/10 L   23/25
        O.ASF          32   TABLES          3/33 L   30/03     30/06     50/35
        O.CELLS         0   TABLES          3/02 D    4/14     61/06 S
        O.CGS          34   TABLES          3/35 L   50/37
        O.CNTBL        21   TABLES          3/20 L   22/13     44/35     45/46     53/10 S   53/31 S   56/44     58/01
        O.COM           0   EXTERNAL*      34/19 S   34/51
        O.DEFS         42   TABLES          3/45 L   10/36     11/30     43/45
        O.ENT          27   TABLES          3/30 L   25/18     25/20     50/31
        O.EXT          31   TABLES          3/32 L   29/07     29/09     50/33
        O.FREF         43   TABLES          3/46 L   11/36     27/07     43/46
        O.LABEL        24   TABLES          3/24 L   31/03     31/05     49/11     59/25 S
        O.LBLK          0   EXTERNAL*       1/50 X   61/14
        O.LFN          25   TABLES          3/25 L   27/17     27/19     50/36
        O.LGL          26   TABLES          3/26 L   32/09     58/12 S
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        O.LOOP          0   EXTERNAL*      32/01     32/19
        O.LRB           2   TABLES          3/06 L   61/15     61/16     62/28
        O.NAME         23   TABLES          3/23 L   50/43     57/56 S
        O.NML          33   TABLES          3/34 L   30/34     30/36     50/32
        O.REFBAS       17   TABLES          3/17 L   24/45     42/35     44/36     45/44     53/35 S
        O.REFS         41   TABLES          3/44 L   10/52     11/25     29/39     42/52 S   43/44
        O.REFTAB       20   TABLES          3/18 L   44/37     45/45     53/36 S
        O.STITL         0   EXTERNAL*       8/23 S    8/41 S    9/01     22/07 S
        O.TITL          0   EXTERNAL*      23/09 S   24/30 S
        O.UDBG         35   TABLES          3/36 L   50/38
        O.UDV           0   EXTERNAL*      24/42
        O.VAR          30   TABLES          3/31 L   26/03     26/05     50/34
        PBNB         1272   PROGRAM*       39/15     40/10 L   41/20
        PBNB1        1274   PROGRAM*       40/11     40/14 L
        PBNB3        1316   PROGRAM*       40/52     41/01     41/09 L
        PBUF          103   TABLES          4/06 L   18/07     18/18
        PIL          1322   PROGRAM*       28/09     41/30 L   41/46     49/10
        PIL1         1326   PROGRAM*       41/38 L   41/43
        PML          1464   PROGRAM*       24/17     49/04 L   49/29     49/53
        PML.L        1474   PROGRAM*       49/21 L   49/27
        PML.LP       1472   PROGRAM*       49/13 L   49/54
        PML.L1       1476   PROGRAM*       49/27 L   49/40
        PML.U        1500   PROGRAM*       49/26     49/33 L
        PPS          1220   PROGRAM*       37/26 L   38/04     38/05     38/06     38/07     38/08     38/09
        PPS1         1217   PROGRAM*       37/25 L   37/38
        PROGRAM        56                   1/43 D   61/17
        PR.MXFL         0   EXTERNAL*      38/10
        PSTITLE       304   PROGRAM*        8/12 L    9/07     26/04     29/08     30/35     32/07     36/13
                                            9/03     25/19     27/18     30/04     31/04     34/24     37/46
        PST2          306   PROGRAM*        8/19 L    8/24
        PST3          314   PROGRAM*        8/37 L    8/42
        PST4          316   PROGRAM*        8/30      8/46 L
        PST6          326   PROGRAM*        8/53      9/05 L
        PUTTAB          0   EXTERNAL*      23/56     24/04
        P.ASF          67   FTNTEXT        30/18
        P.BCDLN        22                   4/52 D   10/43     12/33     13/54     42/41     45/25
        P.BEF          52   FTNTEXT        56/12     56/24
        P.COM          16   FTNTEXT        26/52
        P.DEF          20   FTNTEXT        26/37     26/39
        P.DIM          15   FTNTEXT        26/42
        P.DLP          60                   4/40 D   32/15
        P.DLT          60   FTNTEXT        31/26
        P.EXT          66   FTNTEXT        51/04
        P.FARG         56   FTNTEXT        29/21     30/15
        P.FMODE        51   FTNTEXT        27/23
        P.FP           21   FTNTEXT        26/19     26/39     26/51     29/27
        P.FUN          17   FTNTEXT        26/09     29/13     50/56
        P.LIB          55   FTNTEXT        29/26
        P.RA           23   FTNTEXT        25/24     26/16     27/40     31/12     32/13     61/36     62/29
        P.RB           14   FTNTEXT        26/14     26/16     36/41     62/34     62/39     63/54     63/56
        P.REP          60                   4/50 D   43/05
        P.RL           45   FTNTEXT        62/31     62/34
        P.SLD          63   FTNTEXT        31/18     49/16
        P.TYP          70   FTNTEXT        26/27     29/14     30/11
        P.VAR          50   FTNTEXT        26/43
        QFLAG           0   EXTERNAL*      25/25     26/22     27/41     31/13     37/56
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        RBUF         1510   PROGRAM*       34/16     36/42     44/48     47/21     47/37     50/06
                                           34/50     44/44 S   45/01     47/30     50/04 L
        RBUFL         100                  44/44 S   44/50     45/01     47/21     47/30     47/37     47/39     50/05 D
        RDW=            0   EXTERNAL*      34/21     36/10     44/50     47/37
        REFACC         47   TABLES          3/51 L   25/30     28/01     30/24     31/36     34/10 S   34/45     37/45 S
                                            8/25     27/03     29/35     30/42     32/06 S   34/14     36/09 S   44/41 S
        REFMAP        551   PROGRAM*       23/35     23/43 E   23/43 L
        RMAPPSA      1252   PROGRAM*       38/18 L
        RMAPX         520   PROGRAM*       22/03 L   24/19     38/37     53/19
        RMAPX1        530   PROGRAM*       22/12     23/03 L   24/11
        RMAPX2        534   PROGRAM*       23/05     23/06     23/11 L
        RMAPX3        546   PROGRAM*       23/20     23/30     23/34 L
        RMAPX.L       525   PROGRAM*       22/18 L   22/25
        RMAP1         571   PROGRAM*       24/16     24/20 L
        RMAP1A        576   PROGRAM*       24/27     24/31 L
        RMAP2         610   PROGRAM*       24/51     24/55 L   25/11
        RMAP3         614   PROGRAM*       25/06     25/11 L
        RMAP4         615   PROGRAM*       24/41     24/53     25/12 L
        RMAP5         626   PROGRAM*       25/26     25/28 L
        RMAP.CB      1120   PROGRAM*       32/03     32/04     34/01 L
        RMAP.CBL     1151   PROGRAM*       35/01 L   35/12
        RMAP.CB1     1135   PROGRAM*       34/14     34/24 L
        RMAP.CB2     1125   PROGRAM*       34/06     34/08     34/10 L
        RMAP.CL      1137   PROGRAM*       34/29 L   35/20
        RMAP.CL2     1156   PROGRAM*       34/45     35/15 L
        RMAP.EC      1163   PROGRAM*       34/02     34/13     35/25     36/01 L
        RMAP.ECL     1174   PROGRAM*       36/17 L   37/06
        RMAP.EC1     1203   PROGRAM*       36/34     36/38 L
        RMAP.EC2     1207   PROGRAM*       36/36     36/39     36/46 L
        RMAP.EP       620   PROGRAM*       25/23 L   25/33
        RMAP.EP2      632   PROGRAM*       25/30     25/33 L
        RMAP.EX       727   PROGRAM*       28/07     29/01 L
        RMAP.EXL      734   PROGRAM*       29/12 L   29/54
        RMAP.EX1      742   PROGRAM*       29/13     29/17 L
        RMAP.EX2      750   PROGRAM*       29/26     29/27     29/30 L
        RMAP.EX3      763   PROGRAM*       29/35     29/43     29/54 L
        RMAP.FN       677   PROGRAM*       26/03     27/17 L
        RMAP.FNL      702   PROGRAM*       27/22 L   28/04
        RMAP.FNM      715   PROGRAM*       27/42     27/44 L
        RMAP.FNO      711   PROGRAM*       27/25     27/29     27/34 L
        RMAP.FN1      720   PROGRAM*       27/36     27/53 L
        RMAP.FN2      722   PROGRAM*       27/49     28/01 L
        RMAP.FN3      724   PROGRAM*       28/01     28/04 L
        RMAP.FN4      725   PROGRAM*       27/17     28/06 L
        RMAP.IF       764   PROGRAM*       29/07     30/03 L
        RMAP.IFL      767   PROGRAM*       30/09 L   30/27
        RMAP.IF1     1003   PROGRAM*       30/24     30/27 L
        RMAP.LN       633   PROGRAM*       25/18     26/03 L
        RMAP.LNL      636   PROGRAM*       26/08 L   27/11
        RMAP.LNX      650   PROGRAM*       26/23     26/25 L
        RMAP.LN0      657   PROGRAM*       26/38     26/42 L
        RMAP.LN1      663   PROGRAM*       26/35     26/41     26/42     26/43     26/45 L
        RMAP.LN2      670   PROGRAM*       26/51     26/52     26/54 L
        RMAP.LN3      676   PROGRAM*       27/03     27/11 L
        RMAP.LP      1041   PROGRAM*       31/03     32/01 L
        RMAP.LPL     1046   PROGRAM*       32/12 L   33/43
        RMAP.LPX     1117   PROGRAM*       33/43 L
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        RMAP.LPZ     1071   PROGRAM*       33/02     33/04 L
        RMAP.LP1     1061   PROGRAM*       32/31     32/34 L
        RMAP.LP2     1062   PROGRAM*       32/33     32/38 L
        RMAP.LP3     1102   PROGRAM*       33/20     33/24     33/27 L
        RMAP.NL      1004   PROGRAM*       30/03     30/34 L
        RMAP.NLL     1007   PROGRAM*       30/39 L   30/45
        RMAP.NL1     1015   PROGRAM*       30/42     30/45 L
        RMAP.PS      1225   PROGRAM*       36/02     36/05     36/18     37/44 L
        RMAP.PSS     1232   PROGRAM*       37/57     38/04 L
        RMAP.SL      1016   PROGRAM*       30/34     31/03 L
        RMAP.SLL     1021   PROGRAM*       31/07 L   31/39
        RMAP.SLM     1027   PROGRAM*       31/14     31/16 L
        RMAP.SL1     1034   PROGRAM*       31/29     31/31 L
        RMAP.SL2     1040   PROGRAM*       31/36     31/39 L
        RPN          2023   PROGRAM*       62/48     63/50 L   64/04
        RSELECT         0   EXTERNAL*       1/48 X   23/03     24/26     44/28
        R=FLAG          0   EXTERNAL*       1/48 X   24/07     24/18     24/20     34/03     36/03
        SDS           252   PROGRAM*        6/05 L   34/39
        SERMSG       1560   PROGRAM*       53/16     53/21 L
        SERR3        1446   PROGRAM*       47/30 L   47/41
        SERR4        1451   PROGRAM*       47/06     47/31     47/37 L
        SETCORE         0   EXTERNAL*      44/43     61/06
        SFMTW          64   TABLES          4/03 L
        SLATAB        237   PROGRAM*        5/43 L   31/30
        SLTAB         241   PROGRAM*        5/48 L   31/19
        SORTC        1520   PROGRAM*       24/34     50/42 L   50/44     51/22
        SORTCA       1527   PROGRAM*       51/11 L   51/27
        SORTCER      1553   PROGRAM*       53/13 L   54/42
        SORTCL       1523   PROGRAM*       50/51 L   51/21
        SORTC1       1533   PROGRAM*       51/02     51/24 L
        SORTERR      1435   PROGRAM*       44/40     47/03 L
        SORTERRX     1437   PROGRAM*       47/08 L   47/35     47/36     47/42
        SORTERR2     1442   PROGRAM*       45/55     47/14 L
        SORTR        1366   PROGRAM*       24/35     44/27 L   44/29     46/45     47/12
        SORTRL       1332   PROGRAM*       11/21     29/38     42/32 L   43/20
        SORTRLI      1345   PROGRAM*       43/13 L   43/30
        SORTRLL      1346   PROGRAM*       43/09     43/18 L   43/38
        SORTR.B      1353   PROGRAM*       42/47     43/44 L
        SORTSN       1665   PROGRAM*       57/33     58/01 L
        SORTSYM      1563   PROGRAM*       24/13     53/25 L   58/08     58/20     59/21     59/29
        SORTS1       1576   PROGRAM*       54/22     54/39 L
        SRT2         1365   PROGRAM*       44/24 L   45/02
        SRT3         1400   PROGRAM*       44/24     44/48 L
        SRT4         1404   PROGRAM*       44/55 L   46/38
        SRT5         1406   PROGRAM*       45/06 L   45/08
        SRT6         1424   PROGRAM*       46/11 L   46/37
        SRT7         1425   PROGRAM*       46/11     46/14 L
        SRT8         1431   PROGRAM*       46/25     46/31 L
        SRT9         1434   PROGRAM*       44/51     46/42 L
        START.          0   EXTERNAL*       1/50 X   61/57
        STGERR        261   PROGRAM*        6/11 L   63/28
        ST.             0   EXTERNAL*       1/49 X   62/16
        SWC             0   EXTERNAL*       1/49 X   45/13 S   45/31
        SYMEND         13                   1/42 D   23/51     54/46
        SYMORD          0   EXTERNAL*       1/49 X   53/26     62/17
        SYM1           12                   1/41 D   24/46     36/20     42/33     61/07
                                           23/52     32/18     40/19     54/23
1       REFMAP - PRINT REFERENCE MAP                                  COMPASS 3.7-871.     24/05/02. 15.55.11.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        TEMP           50   TABLES          3/52 L    8/57     34/49     44/49 S   47/05 S   47/25 S   49/44 S   53/14 S
                                            8/55 S   34/27 S   35/15     44/55     47/09     47/38     49/51     53/17
        TEMPA          51   TABLES          3/53 L   12/56 S   13/06     13/33 S   13/44
        TEST            0   FTNTEXT        37/47 F   38/19 F   46/43 F
        TYPTBL        215   PROGRAM*        5/10 L   26/28     29/03 S   29/15     30/12
        T.CGS          14   FTNTEXT        51/44
        T.DBG          17   FTNTEXT        51/44
        T.ECS           5   FTNTEXT        29/03 S
        T.NML          10   FTNTEXT        51/26
        T.RTN           7   FTNTEXT        26/33
        VALUE.          0   EXTERNAL*       1/48 X   24/50     54/21
        VAR             2                   4/28 D   26/43
        VBUF           55   TABLES          4/02 L   15/41     26/08     29/12     30/39     32/12     36/30 S   40/22 S
                                            4/11     25/23     27/22     30/09     31/07     34/32 S   37/29 S   41/09
        VLFN           36   TABLES          3/37 L   27/06     28/06
        V.FUN      100000   FTNTEXT        24/49
        V.OPT         127   FTNTEXT         4/43 D   33/17
        WORDA          40   TABLES          3/43 L   15/31 S   42/34
        WPL            15                   1/45 D   12/32     12/50     14/05     18/01     40/51     49/17
  U     ZEROFILL                            7/28 F
        ZZ.COM          2   FTNTEXT        24/04
        ZZ.SYM          1   FTNTEXT        23/56
        Z8            271   PROGRAM*        7/18 L   16/22
        Z8L           266   PROGRAM*        7/11 L    7/17      7/24
        Z8P           272   PROGRAM*        7/19 L
        .DAL            1   FTNTEXT         5/16 F
1       CLOSE2 - PASS 2 END PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.55.15.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       53              IDENT  CLOSE2 
                         53                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0        47 
                                        LITERALS* LOCAL          47         4 
                                        //        COMMON          0       101 
  
  
                                        ENTRY POINTS. 
  
                                        B=CLOS2          0+           FTN22            1+           PS2ABT          45+ 
                                        P2.FL            0+           PUNT            32+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        N.FERR    FA=LOL    L.LOOP    OVLA      LWAWORK   OTC       PRE       INT.P2M 
                                        MSG=      CDD       LOVER     OVL25     AFL       GPO       CIO=      CP.AFLS 
                                        COMPMSG   LINENR    OVLB      LWA2.0    F.OPT     OPT2      F.RLST
  
  
  
  
                                                  IDENT  CLOSE2                                                  CLOSE2      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  PASS2TM                                                        CLOSE2      5
                                                                                                                 CLOSE2      6
                                        **        PS2CTL - END OF PASS 2 PROCESSING                              FCC0824     9
                                                                                                                 CLOSE2      8
                                  56     PROGRAM  EQU    56B               PROGRAM/SUBPROGRAM INDICATOR          CLOSE2      9
                                                                                                                 CLOSE2     10
             0                           B=CLOS2  RPVDEF                                                         CLOSE2     11
                                                                                                                 CLOSE2     12
                                                  USE    //                                                      CLOSE2     13
             0                   101     F.MEM    BSS    101B                                                    CLOSE2     14
                                                  USE    0                                                       CLOSE2     15
                                                                                                                 CLOSE2     16
             0  00000000000000000000 C   P2.FL    ENTRY. F.MEM       PASS 2 FL USED                              CLOSE2     17
1       CLOSE2 - PASS 2 END PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.55.15.      PAGE     2
        PASS2 - ENTRY FROM OVERLAY LOADER                             PASS2 
  
                                        **        PASS2 - ENTRY TO PASS 2 FROM THE OVERLAY LOADER                CLOSE2     19
                                                                                                                 CLOSE2     20
                                        *         IF (BREAK=22) WAS SELECTED, ENTRY TO OVERLAY(2,2) WILL BE TO   FEAT155F  251
                                        *         *FTN22-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.  FEAT155F  252
                                                                                                                 FEAT155F  253
                                         FTN22    BREAK                                                          FEAT155F  254
                                                                                                                 FEAT155F  255
                                                  ENTRY  FTN22                                                   CLOSE2     21
             1                           FTN22    BSS    0           ** LOADER ENTRY POINT **                    CLOSE2     22
                                         .T       IFNE   TEST,0                                                  CLOSE2     23
                                                  SA1    RPVPLG                                                  CLOSE2     24
                                                  BX7    X1                                                      CLOSE2     25
                                                  SA7    =XDMPTBL=   SET PLUG FOR REPRIEVE                       CLOSE2     26
                                         .T       ENDIF                                                          CLOSE2     27
             1  6110000001                        SB1    1                                                       CLOSE2     28
                          5110000000 X            SA1    =XCP.AFLS                                               RSM2763X   61
             2  10611                             BX6    X1                                                      RSM2763X   62
                     20636                        LX6    30                                                      RSM2763X   63
                          5160000000 X            SA6    =XINT.P2M   INT.P2M = SHIFT(CP.AFLS,30)                 RSM2763X   64
                                         #OVL     IFEQ   .OVL,0                                                  CLOSE2     29
                                                  SA5    PROGRAM                                                 CLOSE2     30
                                                  ZR     X5,PS2CTL4  IF A BLOCK DATA SUBPROGRAM                  FCC0824    10
                                                  SA3    =XQFLAG                                                 CLOSE2     32
                                                  NZ     X3,PS2CTL4  IF Q MODE SELECTED                          FCC0824    11
                                                  SA1    =XN.FERR                                                CLOSE2     34
                                                  ZR     X1,PS2CTL1  IF NO FATAL ERRORS                          FCC0824    12
                                                  SA2    =XDFLAG                                                 CLOSE2     36
                                                  ZR     X2,PS2CTL4  IF NOT DEBUG                                FCC0824    13
                                                  SA3    =XP2NOGO                                                CLOSE2     38
                                                  NZ     X3,PS2CTL4  IF NOT EXECUTING                            FCC0824    14
                                                                                                                 CLOSE2     40
                                         PS2CTL1  BSS    0                                                       FCC0824    15
                                         #OVL     ENDIF                                                          CLOSE2     42
                                                                                                                 CLOSE2     43
                                         #RM      IFEQ   CP#RM,0                                                 CLOSE2     44
             3  7120000000 X                      READ   =XF.RLST                                                CLOSE2     45
                                         #RM      ENDIF                                                          CLOSE2     46
             5  0100000000 X                      CALL   PRE         PROCESS THE RLIST FILE                      CLOSE2     47
                                                                                                                 CLOSE2     48
             6  5110000000 X                      SA1    =XOPT2                                                  CLOSE2     49
                          0301000010 +            ZR     X1,PS2CTL2  IF OPT2 = 0                                 FCC0824    16
             7  0100000000 X                      CALL   GPO         PERFORM GLOBAL OPTIMIZATION                 CLOSE2     51
                                                                                                                 CLOSE2     52
            10  0100000000 X             PS2CTL2  CALL   OTC         OUTPUT TERMINAL CODE                        FCC0824    17
                                                                                                                 CLOSE2     54
            11  5110000000 X             PS2CTL3  SA1    OPT2                                                    FCC0824    18
                          0301000016 +            ZR     X1,PS2CTL4  IF OPT2 = 0                                 FCC0824    19
                                                                                                                 CLOSE2     57
                                        *         CLOSE THE *OPT* FILE                                           CLOSE2     58
                                                                                                                 CLOSE2     59
                                         #RM      IFEQ   CP#RM,0                                                 S3143FC    51
            12  7160001000                        SX6    1000B                                                   FCC1706X    5
                          5160000001 X            SA6    =XF.OPT+1                                               FCC1706X    6
            13  54661                             SA6    A6+B1                                                   FCC1706X    7
                     54661                        SA6    A6+B1                                                   FCC1706X    8
                          20601                   LX6    1                                                       FCC1706X    9
                               54661              SA6    A6+B1                                                   FCC1706X   10
1       CLOSE2 - PASS 2 END PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.55.15.      PAGE     3
        PASS2 - ENTRY FROM OVERLAY LOADER                             PASS2 
  
            14  7120000000 X                      EVICT  F.OPT,R                                                 FCC1706X   11
                                         #RM      ELSE                                                           S3143FC    52
                                                  CLOSEM =XFI.OPT,U                                              CLOSE2     66
                                         #RM      ENDIF                                                          S3143FC    53
                                                                                                                 CLOSE2     68
            16                           PS2CTL4  BSS    0                                                       FCC0824    20
            16  0100000000 X                      CALL   AFL         ADJUST FL                                   RSM2763X   65
                                         #OVL     IFEQ   .OVL,0                                                  CLOSE2     70
                                                  EQ     =XFTN25                                                 CLOSE2     71
                                         #OVL     ELSE                                                           CLOSE2     72
            17  5150000000 X                      LOVER  OVL25       LOAD AND EXECUTE PASS3                      CLOSE2     73
                                         #OVL     ENDIF                                                          CLOSE2     74
  
  
  
                                        **        PUNT - INSUFFICIENT MEMORY TO COMPILE                          CLOSE2     76
                                                                                                                 CLOSE2     77
            24  33200123235535551505     P2MO     DIS    ,*0PASS 2 MEMORY OVERFLOW AT SOURCE LINE  ..... IN .... CLOSE2     78
                                        ,...*                                                                    CLOSE2     79
                                   6     L.P2MO   =      *-P2MO                                                  CLOSE2     80
                                                                                                                 CLOSE2     81
            32  00000000000000000000     PUNT     ENTRY.                                                         CLOSE2     82
            33  10611                             BX6    X1                                                      CLOSE2     83
                     43700                        MX7    0                                                       CLOSE2     84
                          6110000001              SB1    1                                                       CLOSE2     85
            34  5160000031 +                      SA6    P2MO+5      FAILING ROUTINE NAME TO ERROR MSG TEXT      CLOSE2     86
                          5170000000 X            SA7    =XL.LOOP    NULLIFY THE LOOP TABLE                      CLOSE2     87
            35  5110000000 X                      SA1    =XLINENR                                                CLOSE2     88
                          0100000000 X            CALL   CDD         RETURNS (X4) = LINE NR, DPC -H- FORMAT      CLOSE2     89
            36  7160004443                        SX6    2RIN&2R                                                 CLOSE2     90
                          20606                   LX6    6                                                       CLOSE2     91
                               13746              BX7    X4-X6                                                   CLOSE2     92
            37  5170000030 +                      SA7    P2MO+4      *NNNNNN IN *   TO ERROR LINE                CLOSE2     93
                          6160000024 +            LISTL  P2MO,L.P2MO ERROR MESSAGE TO SOURCE LISTING FILE        CLOSE2     94
                                                                                                                 CLOSE2     95
                                                  IFEQ   TEST,0,1                                                CLOSE2     96
            41  7110000000 X                      MESSAGE  =XCOMPMSG,,R    *  COMPILING NAME *                   CLOSE2     97
                                                                                                                 CLOSE2     98
            43  7110000047 +                      MESSAGE  (=C/    ** PASS 2 MEMORY OVERFLOW **/),,R             CLOSE2     99
                                                                                                                 FCC2020    13
                                                  ENTRY  PS2ABT                                                  FCC2020    14
            45  5120000000 X             PS2ABT   SA2    =XN.FERR                                                FCC2020    15
                          73721                   SX7    X2+B1       FATAL ERROR COUNT + 1                       CLOSE2    101
                               54720              SA7    A2                                                      CLOSE2    102
            46  0400000011 +                      EQ     PS2CTL3                                                 FCC0824    21
                                                                                                                 CLOSE2    104
                                         .T       IFNE   TEST,0,1                                                CLOSE2    105
                                         RPVPLG   RJ     =XPTC=      PLUG FOR REPRIEVE                           CLOSE2    106
                                                                                                                 CLOSE2    107
            53                                    END                                                            CLOSE2    108
  
                             65000B CM  STORAGE USED              241 STATEMENTS      567 SYMBOLS      000002 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.263 SECONDS          59 REFERENCES
  
  
  
1       CLOSE2 - PASS 2 END PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.55.15.      PAGE     4
        SYMBOLIC REFERENCE TABLE. 
  
        AFL             0   EXTERNAL*       3/07
        B1=1            0 
        CDD             0   EXTERNAL*       3/29
        CIO=            0   EXTERNAL*       2/36      3/01
        COMPMSG         0   EXTERNAL*       3/37
        CP.AFLS         0   EXTERNAL*       2/16
        CP#RM           0   FTNTEXT         2/35 F    2/51 F
        FA=LOL          0   EXTERNAL*       3/34
        FTN22           1   PROGRAM*        2/08 E    2/09 L
        F.MEM           0   //              1/43 L    1/46
        F.OPT           0   EXTERNAL*       2/53 S    3/01
        F.RLST          0   EXTERNAL*       2/36
        GPO             0   EXTERNAL*       2/42
        INT.P2M         0   EXTERNAL*       2/19 S
        LINENR          0   EXTERNAL*       3/28
        LOVER           0   EXTERNAL*       3/11
        LWAWORK         0   EXTERNAL*       3/11
        LWA2.0          0   EXTERNAL*       3/11
        L.LOOP          0   EXTERNAL*       3/27 S
        L.P2MO          6                   3/20 D
        MSG=            0   EXTERNAL*       3/37      3/39
        N.FERR          0   EXTERNAL*       3/42
        OPT2            0   EXTERNAL*       2/40      2/46
        OTC             0   EXTERNAL*       2/44
        OVLA            0   EXTERNAL*       3/11
        OVLB            0   EXTERNAL*       3/11
        OVL25           0   EXTERNAL*       3/11
        O.SYM          12                   1/34 D
        PRE             0   EXTERNAL*       2/38
        PROGRAM        56                   1/38 D
        PS2ABT         45   PROGRAM*        3/41 E    3/42 L
        PS2CTL2        10   PROGRAM*        2/41      2/44 L
        PS2CTL3        11   PROGRAM*        2/46 L    3/45
        PS2CTL4        16   PROGRAM*        2/47      3/06 L
        PUNT           32   PROGRAM*        3/22 E    3/22 L
        P2MO           24   PROGRAM*        3/18 L    3/20      3/26 S    3/33 S    3/34
        P2.FL           0   PROGRAM*        1/46 E    1/46 L
        TEST            0   FTNTEXT         2/10 F    3/36 F    3/47 F
        Z.TXT           1                   1/34 D
        .OVL            1   FTNTEXT         2/20 F    3/08 F
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1136              IDENT  MIO
                       1136                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1131 
                                        LITERALS* LOCAL        1131         5 
                                        //        COMMON          0       101 
  
  
                                        ENTRY POINTS. 
  
                                        B=MIO            0+           IMPD            41+           GMB            310+ 
                                        O.LCM            0+           WFB             70+           DMB            355+ 
                                        MAX.BLK          1+           WMB            105+           CGB            574+ 
                                        MX.AVS          11+           RTB            142+           SBD           1054+ 
                                        IMPA            16+           RBS            172+           GBD           1074+ 
                                        IMPB            23+           RNB            223+ 
                                        IMPC            33+           SMB            254+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.BLK     O.BIT     O.SEQ     FTNABT    MOREFL    OPT2      TO
                                        L.BLK     L.BIT     L.SEQ     B=FBV     RDW=      MVE=      TOB 
                                        O.TXT     O.BST     BSI       SYS=      CIO=      ATS=      F.RLST
                                        L.TXT     L.BST     MAX.RL    PUNT      F.OPT     Z.BLK     LCM.FL
  
  
  
  
                                                  IDENT  MIO                                                     MIO         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=MIO    RPVDEF                                                         MIO         5
                                                  PASS2TM                                                        MIO         6
                                                                                                                 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
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE     2
  
  
                                        *         AND COLLAPSE IT WITH ANY ADJACENT FREE AREA, WHILE OTHER       MIO        25
                                        *         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
                                                                                                                 MIO        30
                                         #MD      IFLT   CT.CPU,76                                               S3143FCA    3
                                                                                                                 MIO        32
                                         RXX,Q    OPDEF  I,J,Q                                                   MIO        33
                                                  R=     A0,Q                                                    MIO        34
                                                  R=     X0,X_J                                                  MIO        35
                                                  RL     B1                                                      F7540FT    37
                                                  SA.I   A0                                                      MIO        38
                                         R        ERRPL  I-6         OPERAND NOT IN LD REG                       MIO        39
                                                  ENDM                                                           MIO        40
                                                                                                                 MIO        41
                                         WXX,Q    OPDEF  I,J,Q                                                   MIO        42
                                                  R=     A0,Q                                                    MIO        43
                                                  R=     X0,X_J                                                  MIO        44
                                                  SA.I   A0                                                      MIO        45
                                                  WL     B1                                                      F7540FT    38
                                         R        ERRMI  I-6         OPERAND NOT IN ST REG                       MIO        48
                                                  ENDM                                                           MIO        49
                                                                                                                 MIO        50
                                 377     BLK.SIZ  EQU    377B                                                    FCC0448    13
                                         #MD      ELSE                                                           MIO        51
                                                                                                                 MIO        52
                                         RXX,Q    OPDEF  I,J,Q                                                   MIO        53
                                                  RX.I   X.J                                                     MIO        54
                                                  ENDM                                                           MIO        55
                                                                                                                 MIO        56
                                         WXX,Q    OPDEF  I,J,Q                                                   MIO        57
                                                  WX.I   X.J                                                     MIO        58
                                                  ENDM                                                           MIO        59
                                                                                                                 MIO        60
                                         BLK.SIZ  EQU    1777B                                                   FCC0448    14
                                         #MD      ENDIF                                                          MIO        61
                                                                                                                 F7540FT    39
                                         #MD      IFNE   CT.7X*100D+CT.CPU,76D                                   F7540FT    40
                                                                                                                 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      ENDIF                                                          F7540FT    57
                                                                                                                 MIO        62
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE     3
  
  
                                                  TABLES BLK,TXT,BIT,BST,SEQ                                     MIO        63
                                                                                                                 MIO        64
                                                  EXT    BSI,MAX.RL                                              MIO        65
                                                                                                                 MIO        66
                                                  USE    //                                                      MIO        67
             0                   100              BSS    100B                                                    MIO        68
           100                     1     FWAB     BSS    1                                                       MIO        69
                                                  USE    *                                                       MIO        70
  
  
  
  
                                        *         GLOBAL FLAGS                                                   MIO        72
                                                                                                                 MIO        73
             0  00000000000000000000     O.LCM    ENTRY. 0           NEXT AVAILABLE LCM ADDRESS                  MIO        74
             1  00000000000000000000     MAX.BLK  ENTRY. 0           MAXIMUM SIZE OF *BLK*                       MIO        75
                                                                                                                 MIO        76
                                        *         LOCAL VARIABLES                                                MIO        77
                                                                                                                 MIO        78
             2  00000000000000200000     MAX.LCM  DATA   200000B     MAX LCM COMPILER USES                       MIO        79
             3  00000000000000000001     O.DISK   DATA   1           NEXT AVAILABLE RA ON DISK                   MIO        80
             4                     1     ADT      BSSZ   1           ADDRESS TYPE, 0=DISK, 1=LCM                 MIO        81
             5                     1     O.RRB    BSSZ   1           FWA OF RANDOM READ BUFFER ( RRB )           MIO        82
             6  00000000000000000100 C   O.RWB    VFD    42/,18/FWAB FWA OF RANDOM WRITE BUFFER                  MIO        83
             7                     1     RLEN     BSSZ   1           LENGTH OF CURRENT RECORD IN WRITE BUFFER    MIO        84
            10                     1     N.RRB    BSSZ   1           RA OF RECORD IN RRB                         MIO        85
            11  00000000000000000000     MX.AVS   ENTRY. 0           MAXIMUM AVAILABLE SPACE IN *BLK*            MIO        86
            12                     1     MX.AVL   BSSZ   1           MAXIMUM AVAILABLE SPACE IN LCM              MIO        87
            13                     1     LAS      BSSZ   1           HEAD OF BLK LIST OF AVAILABLE SPACE         MIO        88
            14                     1     LAL      BSSZ   1           HEAD OF LCM LIST OF AVAILABLE SPACE         MIO        89
                                                                                                                 MIO        90
                                  40     MIN.AB   EQU    40B         MIN SIZE BLOCK ADDED TO LAS                 MIO        91
                                 100     MIN.AL   EQU    100B        MIN SIZE BLOCK ADDED TO LAL                 MIO        92
                                  20     LCM.XL   EQU    20B         EXTRA LENGTH ADDED TO LCM BLOCKS            MIO        93
                                                                                                                 MIO        94
                                                  LIST   X                                                       MIO        95
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE     4
        IOTBLD - RANDOM I/O TABLE FORMAT DEFINITIONS                  IOTBLD
  
            15                           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
                                         IC       DEFINE 1           =1  IN CORE, =0 ON MS                       IOTBLD      7
                                         AT       DEFINE 1           ADDRESS TYPE, =0 DISK, =1 LCM               IOTBLD      8
                                                  DEFINE 1                                                       IOTBLD      9
                                         LEN      DEFINE 18          BLOCK LENGTH (INCORE COPY)                  IOTBLD     10
                                         OFS      DEFINE 9           BLOCK OFFSET IN RECORD                      IOTBLD     11
                                         RA       DEFINE 30          DISK ADDRESS OF BLOCK                       IOTBLD     12
                                                                                                                 IOTBLD     13
                                                  DESCRIBE RI.,36                                                IOTBLD     14
                                         FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                       IOTBLD     15
                                         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
                                         BLK      DEFINE 1           =1 IF BLOCK IS IN *BLK*                     IOTBLD     21
                                         PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                  IOTBLD     22
                                         HB       DEFINE 1           HOLDING BLOCK                               IOTBLD     23
                                         FW       DEFINE 1           FINAL WRITE FLAG                            IOTBLD     24
                                                  DEFINE 2                                                       IOTBLD     25
                                         BI       DEFINE 18          *BIT* INDEX ( = BN*2 )                      IOTBLD     26
                                         LEN      DEFINE 18          BLOCK LENGTH  (INCORE COPY)                 IOTBLD     27
                                         FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                       IOTBLD     28
                                                                                                                 IOTBLD     29
                                         HBB      DEQU   HB,2        HB AND PRI BITS                             IOTBLD     30
                                         SAV      DEQU   BI,23                                                   IOTBLD     31
                                         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
                                         AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                 IOTBLD     37
                                         PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                  IOTBLD     38
                                         HB       DEFINE 1           HOLDING BLOCK                               IOTBLD     39
                                         FW       DEFINE 1           FINAL WRITE FLAG                            IOTBLD     40
                                                  DEFINE 2                                                       IOTBLD     41
                                         BI       DEFINE 18          BIT INDEX, (BN*2)                           IOTBLD     42
                                         BST      DEFINE 18          INDEX TO BST TABLE                          IOTBLD     43
                                         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
                                         AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                 IOTBLD     49
                                                  DEFINE 5                                                       IOTBLD     50
                                         LKB      DEFINE 18          ABS LINK BACKWARD                           IOTBLD     51
                                         LKF      DEFINE 18          ABS LINK FORWARD                            IOTBLD     52
                                         LEN      DEFINE 18          BLOCK LENGTH (INCLUDING EXTRA WORDS)        IOTBLD     53
                                                                                                                 IOTBLD     54
                                                  ENDX                                                           IOTBLD     55
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE     5
        DEBUGGING FACILITIES                                          DEBUG 
  
                                        **        PRNTM - PRINT OUT SELECTED STRUCTURES                          MIO        98
                                        *                                                                        MIO        99
                                        *         PRNTM  LAB,NAM,ARG,RLS                                         MIO       100
                                                                                                                 MIO       101
                                         PRNTM    MACRO  LAB,NAM,ARG,RLS                                         MIO       102
                                                  LOCAL  APL                                                     MIO       103
                                         O        IF     DEF,/DEBUG/LAB                                          MIO       104
                                        +         RJ     CPR                                                     MIO       105
                                        -         VFD    30/APL                                                  MIO       106
                                                  USE    DEBUG                                                   MIO       107
                                         APL      CON    10H LAB                                                 MIO       108
                                         N        MICRO  2,1,/ARG/                                               MIO       109
                                                  VFD    30/=XSV=X+"N"                                           FEAT155F  256
                                                  VFD    30/Q.NAM                                                MIO       111
                                                  USE    *                                                       MIO       112
                                         O        ENDIF                                                          MIO       113
                                                  ENDM                                                           MIO       114
                                                                                                                 MIO       115
                                         .T       IFNE   TEST,0                                    * TEST MODE * MIO       116
                                                                                                                 MIO       117
                                                  USE    DEBUG                                                   FCC0415     5
                                         .1       SET    1                                                       MIO       118
                                                  ECHO   2,X=(RIW,BAW,BHW,BTW,BIT,BST,BLK)                       MIO       119
                                         Q.X      EQU    .1                                                      MIO       120
                                         .1       SET    .1+1                                                    MIO       121
                                                                                                                 MIO       122
                                                                                                                 MIO       123
                                         CPR      ROUTINE                                                        MIO       124
                                                  RJ     =XSAVE=                                                 MIO       125
                                                  SA1    CPR                                                     MIO       126
                                                  LX1    30                                                      MIO       127
                                                  SA2    X1-1                                                    MIO       128
                                                  SA1    O.BIT                                                   MIO       129
                                                  SA4    O.BST                                                   MIO       130
                                                  SA5    O.BLK                                                   MIO       131
                                                  SA3    X2+1                                                    MIO       132
                                                  SX7    X2+1                                                    MIO       133
                                                  SX6    X2                                                      MIO       134
                                                  LX3    30                                                      MIO       135
                                                  SA6    CPRA                                                    MIO       136
                                                  SA7    CPRA+1                                                  MIO       137
                                                  BX6    X1                                                      MIO       138
                                                  BX7    X4                                                      MIO       139
                                                  SA6    CPRA+2                                                  MIO       140
                                                  SA7    CPRA+4                                                  MIO       141
                                                  BX6    X5                                                      MIO       142
                                                  SX7    X3                                                      MIO       143
                                                  SA6    CPRA+6                                                  MIO       144
                                                  SA7    CPRA+9                                                  MIO       145
                                                  SX6    X3-8                                                    MIO       146
                                                  SA6    CPRA+8                                                  MIO       147
                                                  SA1    CPRA                                                    MIO       148
                                                  CALL   PRNTMIO                                                 MIO       149
                                                  RJ     =XRESET=                                                MIO       150
                                                  EQ     CPR                                                     MIO       151
                                                                                                                 MIO       152
                                         CPRA     BSS    3                                                       MIO       153
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE     6
        DEBUGGING FACILITIES                                          DEBUG 
  
                                                  VFD    42/,18/L.BIT                                            MIO       154
                                                  BSS    1                                                       MIO       155
                                                  VFD    42/,18/L.BST                                            MIO       156
                                                  BSS    1                                                       MIO       157
                                                  VFD    42/,18/L.BLK                                            MIO       158
                                                  BSSZ   3                                                       MIO       159
                                                  USE    0                                                       FCC0415     6
                                                                                                                 MIO       160
                                         .T       ENDIF                                            * TEST MODE * MIO       161
  
  
  
                                        **        SETFET - SETUP FET FOR RANDOM READ OR WRITE ( 6000 CIO )       MIO       163
                                                                                                                 MIO       164
                                                  PURGMAC SETFET                                                 FCCA593    72
                                         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
            15  00004000000003000000     RFWA     VFD    13/1,29/3,18/0                                          MIO       185
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE     7
        IMP - INITIALIZE MASS I/O PROCESSING                          IMP 
  
                                        **        IMP - INITIALIZE MASS I/O PROCESSING                           MIO       188
                                                                                                                 MIO       193
            16  0400400016 +             IMPA     ENTRY. **                                                      MIO       194
                                                                                                                 MIO       195
                                        *         INITIALIZE FOR USING LCM                                       MIO       196
                                                                                                                 MIO       199
                                         #ECS     IFNE   CT.ECS,0                                                MIO       200
            17  5110000000 X                      SA1    =XLCM.FL                                                MIO       201
                          0301000021 +            ZR     X1,IMPA1    IF CP.AFLL = 0  */NO ECS AVAILABLE          MIO       202
            20  7170000001                        SX7    1                                                       F7540FT    58
                          5170000004 +            SA7    ADT         ADT = 1                                     MIO       203
            21                           IMPA1    BSS    0                                                       MIO       206
                                                                                                                 MIO       207
                                         #OS      IFNE   .OS,2                                                   F7540FT    59
            21  10611                             BX6    X1                                                      MIO       209
                     5160000002 +                 SA6    MAX.LCM     MAX.LCM = LCM.FL                            MIO       210
                                         #OS      ENDIF                                                          F7540FT    60
                                                                                                                 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  0400000016 +                      EQ     IMPA                                                    MIO       217
  
  
  
            23  0400400023 +             IMPB     ENTRY. **                                                      MIO       219
            24  5140000006 +                      SA4    O.RWB                                                   MIO       220
                          5150000007 +            SA5    RLEN                                                    MIO       221
            25  0305000027 +                      ZR     X5,IMPB1                                                MIO       222
                                                                                                                 MIO       223
                          0100001054 +            CALL   SBD         DUMP LAST PHASE 1 BLOCKS TO DISK            MIO       224
            26  43700                             MX7    0                                                       MIO       225
                     5170000007 +                 SA7    RLEN        RLEN = 0                                    MIO       226
                                                                                                                 MIO       227
            27  5110000001 X             IMPB1    SA1    =XF.RLST+1                                              MIO       228
                          5130000000 X            SA3    MAX.RL                                                  MIO       229
            30  73610                             SX6    X1                                                      MIO       230
                     36736                        IX7    X3+X6                                                   MIO       231
                          5160000005 +            SA6    O.RRB       O.RRB = FWA OF RLST BUFFER                  MIO       232
            31  5170000006 +                      SA7    O.RWB       O.RWB = FWA OF RLST BUFFER + MAX.RL         MIO       233
                          7160777776              SX6    -1                                                      MIO       234
            32  5160000010 +                      SA6    N.RRB       N.RRB = -1                                  MIO       235
                                                  PRINT  IMP,(* --O.RRB,O.RWB =*2Z8),(O.RRB,O.RWB)               MIO       236
                          0400000023 +            EQ     IMPB                                                    MIO       237
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  0400400033 +             IMPC     ENTRY. **                                                      MIO       243
            34  5170000001 +                      SA7    MAX.BLK                                                 MIO       244
                          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  0400400041 +             IMPD     ENTRY. **                                                      MIO       258
            42  5110000000 X                      SA1    L.TXT                                                   MIO       259
                          7160000000              SX6    0                                                       MIO       260
            43  5160000013 +                      SA6    LAS         LAS = 0                                     MIO       261
                          5160000011 +            SA6    MX.AVS      MX.AVS = 0                                  MIO       262
            44  7271000200                        SX7    X1+200B                                                 MIO       263
                          0100000060 +            RJ     IBS         INITIALIZE *BLK* SPACE                      MIO       264
            45  5150000000 X                      SA5    L.TXT                                                   MIO       265
                          7215000002              ALLOC  BLK,X5+2    ALLOC( BLK , L.TXT+2 )                      MIO       266
            47  73326                             SX3    X2+B6       TO = O.BLK + OLD(L.BLK)                     MIO       267
                     63326                        SB3    X2+B6       FTB = TO                                    MIO       268
                          5120000000 X            SA2    O.TXT                                                   MIO       269
            50  63453                             SB4    B3+X5       LTB = TO + L.TXT                            MIO       270
                     73650                        SX6    X5                                                      MIO       271
                          53621                   SA6    X2+B1       R2 = TXT + 1;  [R2] = L.TXT                 MIO       272
            51  0100000000 X                      MOVE   X1,X2,X3    MOVE( L.TXT , O.TXT , TO )                  MIO       273
            52  7265000002                        SX6    X5+2        LT = L.TXT + 2                              MIO       274
                          7170000004              SX7    4                                                       FCC0415     9
            53  5170000000 X                      SA7    L.TXT       L.TXT = 4                                   FCC0415    10
                          20744                   LX7    BH.BIP                                                  FCC0415    11
                               56640              SA6    B4          [LTB] = BTW(0,0,0,LT)                       MIO       276
            54  12667                             BX6    X6+X7                                                   FCC0415    12
                     43700                        MX7    0                                                       MIO       277
                          54761                   SA7    A6+B1       [LTB+1] = 0   */ BLK BOUNDARY MARKER        MIO       278
                               57631              SA6    B3-B1       [FTB-1]=BHW(0,4,0,LT)                       FCC0415    13
            55  5110000000 X                      SA1    O.BIT                                                   MIO       281
                          43001                   MX0    1                                                       MIO       282
                                                  LX0    1+RI.ICP                                                MIO       283
                               20547              LX5    RI.LENP                                                 MIO       284
            56  76430                             SX4    B3                                                      MIO       285
                     12605                        BX6    X0+X5                                                   MIO       286
                          20422                   LX4    RI.FWAP                                                 MIO       287
                               12746              BX7    X4+X6                                                   MIO       288
            57  5271000005                        SA7    X1+5        BIT(5) = RIW(IC,LT-2,FTB,0)                 MIO       289
                          0400000041 +            EQ     IMPD                                                    MIO       290
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE     9
        IMP - INITIALIZE MASS I/O PROCESSING                          IBS 
  
                                        **        IBS - INTIALIZE *FREE* SPACE LIST IN *BLK*                     MIO       292
                                        *                                                                        MIO       293
                                        *         ENTRY  (X7) = LENGTH OF FREE SPACE LIST                        MIO       294
                                                                                                                 MIO       295
            60  0200400060 +             IBS      ROUTINE                                                        MIO       296
            61  7217000002                        ALLOC  BLK,X7+2    ALLOC( BLK , LEN+2 )                        MIO       297
            63  5140000212 +                      SA4    RBSA+1      DB = RBSA(2)  */ *RI* WORD FOR DUMMY BLOCK  MIO       298
                          5150000000 X            SA5    O.BIT                                                   MIO       299
            64  43600                             MX6    0                                                       MIO       300
                     53620                        SA6    X2          [BLK] = 0                                   MIO       301
                          10744                   BX7    X4                                                      MIO       302
                               53751              SA7    X5+B1       BIT(1) = DB                                 MIO       303
            65  5275000003                        SA7    X5+3        BIT(3) = DB                                 MIO       304
                          6233777775              SB3    X3-2        LEN = L.BLK - 2                             MIO       305
            66  63221                             SB2    X2+B1       FWA = O.BLK + 1                             MIO       306
                     56623                        SA6    B2+B3       BLK(L.BLK-1) = 0  */ TERMINAL BOUNDARY MARK MIO       307
                          0100000531 +            CALL   ABB         CALL  ABB( FWA , LEN ) */ INIT FREE SPACE   MIO       308
            67  0400000060 +                      EQ     IBS                                                     MIO       309
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  0400400070 +             WFB      ENTRY. **                                                      MIO       323
            71  5120000000 X                      SA2    =XOPT2                                                  FCC0534     4
                          5130000000 X            SA3    O.BST                                                   MIO       324
            72  5140000000 X                      SA4    BSI                                                     MIO       325
                          63330                   SB3    X3                                                      MIO       327
                               53543              SA5    B3+X4       BAW = BST(BSI)                              MIO       329
            73  0302000075 +                      ZR     X2,WFB1     IF OPT2=0      */FW NOT SET FOR OPT=1       FCC0534     5
                          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                                                     F2950F4   159
                          10722                   BX7    X2                                                      F2950F4   160
           102  5170000105 +                      SA7    WMB         [WMB] = [WFB] */ PLUG ENTRY POINT           F2950F4   161
                          0100000461 +            CALL   ASB                                                     F2950F4   162
           103  5140000136 +                      SA4    WFBA        FSCM = FWAB                                 MIO       341
                          54141                   SA1    A4+B1                                                   MIO       342
           104  0400000117 +                      EQ     WMB1                                                    MIO       345
                                                                                                                 MIO       346
           105  0400400105 +             WMB      ENTRY. **                                                      MIO       347
           106  5130000000 X                      SA3    O.BST                                                   MIO       348
                          5140000000 X            SA4    BSI                                                     MIO       349
           107  63330                             SB3    X3                                                      MIO       350
                     53543                        SA5    B3+X4       BAW = BST(BSI)                              MIO       351
                                                  LX5    -BA.FWAP                                                MIO       352
                          6225777776              SB2    X5-1        FWA = FWA[BAW] - 1                          MIO       353
           110  20552                             LX5    BA.FWAP-BA.LENP                                         MIO       354
                     6255000002                   SB5    X5+2        OL = LEN[BAW] + 2                           MIO       355
                               20522              LX5    BA.LENP                                                 MIO       356
           111  5110000000 X                      SA1    L.TXT       NL = L.TXT                                  MIO       357
                          0335000113 +            MI     X5,WMB0     IF IC[BAW]     */ IF IN BLK                 FCC0634     9
           112  66200                             SB2    B0          FWA = 0                                     FCC0634    10
                     66511                        SB5    B1+B1       OL = 2                                      FCC0634    11
           113  0100000461 +             WMB0     CALL   ASB         FBLK = ASB(FWA,OL,NL)   */ ALLOCATE SPACE   FCC0634    12
           114  5110000000 X                      SA1    O.BST                                                   FCC0415    14
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    11
        WMB - WRITE MODIFIED BLOCK                                    WMB 
  
                          5120000000 X            SA2    BSI                                                     FCC0415    15
           115  36612                             IX6    X1+X2                                                   FCC0415    16
                     53560                        SA5    X6          BAW = BST(BSI)                              FCC0415    17
                          5140000000 X            SA4    O.TXT       FSCM = [O.TXT]                              MIO       360
           116  5110000000 X                      SA1    L.TXT       NL = L.TXT                                  MIO       361
                                                                                                                 MIO       362
                                        *         UPDATE *BST*, *BIT* ENTRIES                                    MIO       363
                                                                                                                 MIO       364
           117  5120000000 X             WMB1     SA2    O.BIT                                                   MIO       365
                                                  PRINT  WMB,(* --FBLK FROM ASB =*Z7),X3                         MIO       366
                          63740                   SB7    X4                        (B7) = FSCM                   MIO       367
                               43045              MX0    -BA.SAVL                                                MIO       368
           120  63221                             SB2    X2+B1                                                   MIO       369
                     20044                        LX0    BA.SAVP                                                 MIO       370
                          43701                   MX7    1                                                       MIO       371
                               15550              BX5    -X0*X5                                                  MIO       372
                                                  LX7    1+BA.BLKP   BLK[BAW] = 1                                MIO       373
           121  12757                             BX7    X5+X7                                                   MIO       374
                     20530                        LX5    -BA.BIP                                                 MIO       375
                          63450                   SB4    X5          AR = BI[BAW]                                MIO       376
                               20122              LX1    BA.LENP     LEN[BAW] = NL                               MIO       377
           122  5120000135 +                      SA2    WMBA                                                    MIO       378
                          56442                   SA4    B4+B2       RIW = BIT(AR+1)                             MIO       379
                                                  LX3    BA.FWAP     FWA[BAW] = FBLK                             MIO       380
                               36613              IX6    X1+X3                                                   MIO       381
           123  20544                             LX5    BA.BIP                                                  MIO       382
                     12767                        BX7    X6+X7                                                   MIO       383
                          20125                   LX1    RI.LENP-BA.LENP   LEN[RI] = NL                          MIO       384
                               54750              SA7    A5          BST(BSI) = BAW                              MIO       385
                                                  PRNTM  WMB,BAW,X7                                              MIO       386
           124  43701                             MX7    1                                                       MIO       387
                     20322                        LX3    RI.FWAP-BA.FWAP   FWA[RI] = FBLK                        MIO       388
                                                  LX7    1+RI.ICP    IC[RIW] = 1                                 MIO       389
                          11424                   BX4    X2*X4                                                   MIO       390
                               12747              BX7    X4+X7                                                   MIO       391
           125  36613                             IX6    X1+X3                                                   MIO       392
                     12767                        BX7    X6+X7                                                   MIO       393
                          20125                   LX1    -RI.LENP                                                MIO       394
                               20352              LX3    -RI.FWAP                                                MIO       395
           126  54740                             SA7    A4          BIT(AR+1) = RIW                             MIO       396
                                                  PRNTM  WMB,RIW,X7                                              MIO       397
                                                                                                                 MIO       398
                                        *         STORE BLOCK HEADER AND TRAILER WORDS, MOVE BLOCK TO *BLK*.     MIO       399
                                                                                                                 MIO       400
                     5140000000 X                 SA4    BSI                                                     MIO       401
                               10755              BX7    X5                                                      MIO       402
           127  20703                             LX7    59-BH.FWP                                               MIO       403
                     0327000131 +                 PL     X7,WMB2     IF ^ FW[BHW]                                MIO       404
                                                                                                                 MIO       405
                               43673              MX6    -BH.PRIL                                                MIO       406
           130  76410                             SX4    B1                                                      MIO       407
                     20672                        LX6    BH.PRIP                                                 MIO       408
                          11556                   BX5    X5*X6       PRI[BHW] = 0                                MIO       409
                               20421              LX4    17          BSI = 400000B                               MIO       410
           131  7261000002               WMB2     SX6    X1+2        L= NL + 2                                   MIO       411
                                                  LX6    BT.LENP                                                 MIO       412
                          63630                   SB6    X3                                                      MIO       413
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    12
        WMB - WRITE MODIFIED BLOCK                                    WMB 
  
                               53616              SA6    B6+X1       [FBLK+NL] = BTW(0,0,0,L)                    MIO       414
                                                  PRNTM  WMB,BTW,X6                                              MIO       415
                                                  LX6    BH.LENP-BT.LENP                                         MIO       416
           132  20422                             LX4    BH.BSTP                                                 MIO       417
                     12664                        BX6    X6+X4                                                   MIO       418
                          12756                   BX7    X5+X6                                                   MIO       419
                               57761              SA7    B6-B1       [FBLK-1] = BHW(0,AR,BSI,L)                  MIO       420
                                                  PRNTM  WMB,BHW,X7                                              MIO       421
           133  76270                             MOVE   X1,B7,X3    MOVE( NL , FSCM , FBLK )                    MIO       422
           134  0400000105 +                      EQ     WMB                                                     MIO       423
                                                                                                                 MIO       424
           135                           WMBA     BFMW   RI,(IC,AT,LCM)                                          MIO       425
           136                     2     WFBA     BSS    2           FWA , NL                                    MIO       426
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  0400400142 +             RTB      ENTRY. **                                                      MIO       449
           143  5110000000 X                      SA1    O.BST                                                   MIO       450
                          5120000000 X            SA2    BSI                                                     MIO       451
           144  63210                             SB2    X1                                                      MIO       452
                     53322                        SA3    X2+B2       BAW = BST(BSI)                              MIO       453
                                                  LX3    59-BA.BLKP                                              MIO       454
                          0333000140 +            MI     X3,RTB0     IF BLK[BAW]                                 MIO       455
                                                                                                                 MIO       456
                                        *         ALLOCATE SPACE IN *BLK*                                        MIO       457
                                                                                                                 MIO       458
           145  5140000000 X                      SA4    O.BIT                                                   MIO       459
                          20330                   LX3    1+BA.BLKP-BA.BIP                                        MIO       460
                               63431              SB4    X3+B1       I = BI[BAW] + 1                             MIO       461
           146  66200                             SB2    B0          FWA = 0                                     MIO       462
                     66511                        SB5    B1+B1       OL = 2                                      MIO       463
                          53544                   SA5    X4+B4       RIW = BIT(I)  */RANDOM INDEX WORD           MIO       464
                               20525              LX5    -RI.LENP                                                MIO       465
           147  73150                             SX1    X5          L = LEN[RIW]                                MIO       466
                     10455                        BX4    X5                                                      MIO       467
                          20447                   LX4    59-RI.ICP+RI.LENP                                       MIO       468
           150  0324000155 +                      PL     X4,RTB1     IF ^ IC[RIW]                                MIO       469
                                                                                                                 MIO       470
                          20452                   LX4    1+RI.ICP-RI.FWAP                                        MIO       471
                               66500              SB5    B0                                                      MIO       472
           151  73340                             SX3    X4          FBLK = FWA[RIW]                             MIO       473
                     7160000213 +                 SX6    RBSB                                                    MIO       474
                               37736              IX7    X3-X6                                                   MIO       475
           152  0307000157 +                      ZR     X7,RTB2     */IF DUMMY BLOCK                            MIO       476
                                                                                                                 MIO       477
                          5244777776              SA4    X4-1        BHW = [FBLK-1]                              MIO       478
           153  43752                             MX7    -BH.BSTL                                                MIO       479
                     20452                        LX4    -BH.BSTP                                                MIO       480
                          11447                   BX4    X4*X7                                                   MIO       481
                               12624              BX6    X2+X4       BST[BHW] = BSI                              MIO       482
           154  20622                             LX6    BH.BSTP                                                 MIO       483
                     54640                        SA6    A4          [FBLK] = BHW                                MIO       484
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    14
        RTB - READ TEXT BLOCK                                         RTB 
  
                          0400000157 +            EQ     RTB2                                                    MIO       485
                                                                                                                 MIO       486
           155  20547                    RTB1     LX5    RI.LENP                                                 MIO       487
                     0100000461 +                 CALL   ASB         FBLK = ASB(FWA,OL,L)  */ALLOCATE SPACE      MIO       488
           156  54550                             SA5    A5          RIW = BIT(I)  */ RELOAD RANDOM ADDR         FCC0391     7
                     6150000001                   SB5    1                                                       FCC0391     8
                               20525              LX5    -RI.LENP                                                FCC0391     9
                                                                                                                 MIO       491
                                                  PRINT  RTB,(* --FBLK FROM ASB = *Z7),X3                        MIO       492
                                                                                                                 MIO       493
                                        *         UPDATE *BST*, *BIT* ENTRIES AND READ BLOCK                     MIO       494
                                                                                                                 MIO       495
           157  5140000000 X             RTB2     SA4    O.BST                                                   MIO       496
                          5120000000 X            SA2    BSI                                                     MIO       497
           160  73150                             SX1    X5                                                      MIO       498
                     63240                        SB2    X4                                                      MIO       499
                          20122                   LX1    BA.LENP     LEN[BAW] = L                                MIO       500
                               43001              MX0    1                                                       MIO       501
           161  53222                             SA2    X2+B2       BAW = BST(BSI)                              MIO       502
                                                  LX0    1+BA.BLKP   BLK[BAW] = 1                                MIO       503
                     76410                        SX4    B1                                                      MIO       504
                          12101                   BX1    X0+X1                                                   MIO       505
                               20472              LX4    BA.PRIP     PRI[BAW] = 1                                MIO       506
           162  73730                             SX7    X3                                                      MIO       507
                                                  LX3    BA.FWAP     FWA[BAW] = FBLK                             MIO       508
                     12112                        BX1    X1+X2                                                   MIO       509
                          36434                   IX4    X3+X4                                                   MIO       510
           163  5170000000 X                      SA7    O.SEQ       O.SEQ = FBLK                                MIO       511
                                                  PRINT  RTB,(*--O.SEQ =*Z7),X7                                  MIO       512
                          12614                   BX6    X1+X4                                                   MIO       513
                               73750              SX7    X5                                                      MIO       514
           164  20322                             LX3    RI.FWAP-BA.FWAP                                         MIO       515
                     54620                        SA6    A2          BST(BSI) = BAW                              MIO       516
                          5170000000 X            SA7    L.SEQ       L.SEQ = L                                   MIO       517
                                                  PRNTM  RTB,BAW,X6                                              MIO       518
                                                  PRINT  RTB,(* --L.SEQ =*Z7),L.SEQ                              MIO       519
           165  0450000142 +                      ZR     B5,RTB      IF IC[RIW]                                  MIO       520
                                                                                                                 MIO       521
                                                  LX0    RI.ICP-BA.BLKP    IC[RIW] = 1                           MIO       522
                          5140000171 +            SA4    RTBA        M1 = MASK [RI](AT,LCM,LEN)                  MIO       523
           166  12003                             BX0    X0+X3                                                   MIO       524
                     20547                        LX5    RI.LENP                                                 MIO       525
                          11745                   BX7    X4*X5       TRIW = M1 & RIW                             MIO       526
                               12707              BX7    X0+X7       FWA[RIW] = FBLK                             MIO       527
           167  20352                             LX3    -RI.FWAP                                                MIO       528
                     54750                        SA7    A5          BIT(I) = TRIW                               MIO       529
                                                  PRNTM  RTB,RIW,X7                                              MIO       530
                          0100000310 +            CALL   GMB         CALL GMB(FBLK,RIW)  */READ BLOCK            MIO       531
           170  0400000142 +                      EQ     RTB                                                     MIO       532
                                                                                                                 MIO       533
           171                           RTBA     BFMW   RI,(AT,LCM,LEN)                                         MIO       534
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  0400400172 +             RBS      ENTRY. **                                                      MIO       544
                                                  PRINT  RBS,(* --RELEASE BLOCK, BSI =*Z7),BSI                   MIO       545
                                                                                                                 MIO       546
                                        *         UPDATE *BST*, *BIT* ENTRIES                                    MIO       547
                                                                                                                 MIO       548
           173  5110000211 +                      SA1    RBSA        DBAW = [RBSA] */BST ENTRY FOR DUMMY BLOCK   MIO       549
                          5021000001              SA2    A1+1        DRIW = [RBSA+1] */BIT ENTRY FOR DUMMY BLOCK MIO       550
           174  5130000000 X                      SA3    O.BST                                                   MIO       551
                          5140000000 X            SA4    BSI                                                     MIO       552
           175  5150000000 X                      SA5    O.BIT                                                   MIO       553
                          6140000213 +            SB4    RBSB                                                    MIO       554
           176  63230                             SB2    X3                                                      MIO       555
                     63351                        SB3    X5+B1                                                   MIO       556
                          53342                   SA3    B2+X4       BAW = BST(BSI)                              MIO       557
                               20330              LX3    -BA.BIP     B = BI[BAW]                                 MIO       558
           177  53433                             SA4    B3+X3       RIW = BIT(B)                                MIO       559
                     73630                        SX6    X3                                                      MIO       560
                          10722                   BX7    X2                                                      MIO       561
                               20644              LX6    BA.BIP      BI[DBAW] = B                                MIO       562
           200  12616                             BX6    X1+X6                                                   MIO       563
                     54630                        SA6    A3          BST(BSI) = DBAW                             MIO       564
                                                  PRNTM  RBS,BAW,X6                                              MIO       565
                          53733                   SA7    B3+X3       BIT(B) = DRIW                               MIO       566
                                                  PRNTM  RBS,RIW,X7                                              MIO       567
                               20344              LX3    BA.BIP+59-BA.BLKP                                       MIO       568
           201  0323000204 +                      PL     X3,RBS1     IF BLK[BAW] = 0                             MIO       569
                                                                                                                 MIO       570
                                        *         RELEASE STORAGE IN BLK                                         MIO       571
                                                                                                                 MIO       572
                                                  LX3    1+BA.BLKP-BA.FWAP                                       MIO       573
                          63230                   SB2    X3          FBLK = FWA[BAW]                             MIO       574
           202  0424000172 +                      EQ     B2,B4,RBS   IF FBLK = RBSB  */NULL BLOCK                MIO       575
                                                                                                                 MIO       576
                          66411                   SB4    B1+B1                                                   MIO       577
                               20352              LX3    BA.FWAP-BA.LENP                                         MIO       578
           203  63334                             SB3    X3+B4       L = LEN[BAW] + 2                            MIO       579
                     67221                        SB2    B2-B1       FBLK = FBLK-1                               MIO       580
                          0100000531 +            CALL   ABB         CALL ABB(FBLK,L)                            MIO       581
                                                                                                                 MIO       582
                                        *         RELEASE STORAGE IN LCM                                         MIO       583
                                                                                                                 MIO       584
           204  20401                    RBS1     LX4    59-RI.ATP                                               MIO       585
                     0324000172 +                 PL     X4,RBS      IF AT[RIW] = 0                              MIO       586
                                                                                                                 MIO       587
                                         #ECS     IFNE   CT.ECS,0                                                MIO       588
                               20473              LX4    1+RI.ATP-RI.LCMP                                        MIO       589
           205  63240                             SB2    X4                                                      MIO       590
                     73040                        SX0    X4                                                      MIO       591
                          5100000220 +            RX1    X0,RBSC                                                 MIO       592
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    16
        RBS - RELEASE BLOCK SPACE                                     RBS 
  
                                                  LX1    -BH.LENP                                                MIO       593
                     63310                        SB3    X1                                                      MIO       594
                          0100000700 +            CALL   ABL         CALL ABL(FBLK,L)                            MIO       595
           210  0400000172 +                      EQ     RBS                                                     MIO       596
                                         #ECS     ENDIF                                                          MIO       597
                                                                                                                 MIO       598
           211  40000000000010000213 +   RBSA     VFD    1/1,23/0,18/8,18/RBSB                                   MIO       599
           212  40000100000213 +                  VFD    1/1,2/0,18/8,3/0,18/RBSB,18/0                           MIO       600
                              000000
                                        *         RBSB - DUMMY BLOCK ( BOS,EOQ )                                 FCC0415    18
                                                                                                                 MIO       601
                                  65     D.FT=1P  EQU    D.FTP                                                   MIO       602
                                   1     D.FT=1L  EQU    1                                                       MIO       603
                                  63     D.NRXP   EQU    D.NRP-1     *NR* EXPONENT BIT                           MIO       604
                                   1     D.NRXL   EQU    1                                                       MIO       605
                                                                                                                 MIO       606
           213  20010000000000000000     RBSB     VFD    12/1S10+OC.BOS,48/0                                     MIO       607
           214  00000000000000000010              DATA   8                                                       MIO       608
           215                                    BFMW   D,(TY,NRX,^D,PI,JFT)                                    MIO       609
           216  00000000000000000000              DATA   0                                                       MIO       610
           217  20000000000000000000              VFD    12/2000B,48/0                                           MIO       611
           220                     1     RBSC     BSSZ   1                                                       MIO       612
           221                                    BFMW   D,(TY,FT=1,NRX,^D,BM,PI,JFT)                            MIO       613
           222  00000000000000000000              DATA   0                                                       MIO       614
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  0400400223 +             RNB      ENTRY. **                                                      MIO       625
                                                  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  5130000005 +                      SA3    O.RRB                                                   MIO       639
                          5140000000 X            SA4    MAX.RL                                                  MIO       640
           230  5170000006 X                      SA7    F.OPT+6     DA = 1                                      MIO       641
                          20401                   LX4    1                                                       MIO       642
           231  5110000015 +                      SETFET OPT,X3,X4,READ,NOADD      SET FET FOR READ              MIO       643
           234  7120000000 X                      READNS F.OPT                                                   MIO       644
                                                                                                                 MIO       645
           236  20525                    RNB1     LX5    -RI.LENP                                                MIO       646
                     63600                        READW  F.OPT,X0,X5+2     READW( OPT , FBLK , LEN[RIW]+2 )      MIO       647
           240  0301000223 +                      ZR     X1,RNB      IF EOR = 0                                  MIO       648
                                                                                                                 MIO       649
                          20547                   LX5    RI.LENP                                                 MIO       650
           241  7170000250                        READNS X2          RESTART READ                                MIO       651
           242  0400000236 +                      EQ     RNB1                                                    MIO       652
                                         #RM      ENDIF                                                          MIO       653
                                                                                                                 MIO       654
           243  0100000310 +             RNB2     CALL   GMB         GMB( FBLK , RIW )                           MIO       655
           244  0400000223 +                      EQ     RNB                                                     MIO       656
                                                                                                                 MIO       657
           245                     1     RNS      BSSZ   1           READ NS STARTED FLAG                        MIO       658
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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
                          5140000003 +            SA4    O.DISK                                                  MIO       675
           247  5170000007 +                      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  0400400254 +             SMB      ENTRY. **                                                      MIO       692
                                                                                                                 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
                     5120000004 +                 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  0100000626 +                      CALL   ASL         FLCM = ASL(FLCM,LEN,L)  */ALLOCATE LCM      MIO       706
           261  73450                             SX4    X5                                                      MIO       707
                     21536                        AX5    30                                                      MIO       708
                                                  PRINT  SMB,(* --FLCM FROM ASL = *,Z8),X2                       MIO       709
                                                                                                                 MIO       710
                          0332000272 +            MI     X2,SMB2     IF FLCM.LT.0  */WRITE IS TO DISK            MIO       711
                                                                                                                 MIO       712
                                        *         WRITE BLOCK TO LCM                                             MIO       713
                                                                                                                 MIO       714
           262  53140                             SA1    X4                                                      MIO       715
                     5130000307 +                 SA3    SMBB        M1 = MASK [BH](BI,BST,HB)                   MIO       716
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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
                          0100001105 +            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  5130000000 X             SMB2     SA3    MAX.RL                                                  MIO       738
                          5110000007 +            SA1    RLEN        OL = RLEN                                   MIO       739
           273  5120000006 +                      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
                          5140000006 +            SA4    O.RWB       FRWB = O.RWB                                MIO       752
           277  10511                             BX5    X1          L = RLEN                                    MIO       753
                     0100001054 +                 CALL   SBD         CALL SBD(FRWB,L,RIW)                        MIO       754
           300  5150000306 +                      SA5    SMBA                                                    MIO       755
                          5120000006 +            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  5160000007 +                      SA6    RLEN        RLEN = 0                                    MIO       763
                                                                                                                 MIO       764
                                        *         WRITE BLOCK DIRECTLY FROM BLK                                  MIO       765
                                                                                                                 MIO       766
           304  0100001054 +             SMB3     CALL   SBD         CALL SBD(FSCM,LEN,RIW)                      MIO       767
           305  0400000253 +                      EQ     SMB1                                                    MIO       768
                                                                                                                 MIO       769
                                                                                                                 MIO       770
           306                     1     SMBA     BSS    1                                                       MIO       771
           307                           SMBB     BFMW   BH,(BI,BST,HB)                                          MIO       772
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  0400400310 +             GMB      ENTRY. **                                                      MIO       783
           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  5140000000 X             GMB0     SA4    MAX.RL                                                  MIO       797
                          63440                   SB4    X4                                                      MIO       798
                                                  PRNTM  GMB,RIW,X5                                              MIO       799
                                                                                                                 MIO       800
                                         #ECS     IFNE   CT.ECS,0                                                MIO       801
                               10655              BX6    X5                                                      MIO       802
           317  20601                             LX6    59-RI.ATP                                               MIO       803
                     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
           320  20525                             LX5    RI.LCMP-RI.LENP                                         MIO       810
                     7255000002                   SX5    X5+2        L = LEN[RIW]+2                              MIO       811
           321  7223777776                        SX2    X3-1                                                    MIO       812
                          0100001120 +            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
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    21
        GMB - GET MEMORY BLOCK                                        GMB 
  
           326  43036                             MX0    -RI.RAL                                                 MIO       834
                     15450                        BX4    -X0*X5      RA = RA[RIW]                                MIO       835
                          5110000005 +            SA1    O.RRB                                                   MIO       836
           327  5120000010 +                      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  5110000006 +                      SA1    O.RWB                                                   MIO       844
                          5120000003 +            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 \ MAX.RL                      FCC1352     6
                                                                                                                 MIO       853
           334  10633                             BX6    X3                                                      MIO       854
                     10755                        BX7    X5                                                      MIO       855
                          5120000005 +            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 = MAX.RL                                  MIO       860
                     5170000010 +                 SA7    N.RRB                                                   MIO       861
           337  0100001074 +                      CALL   GBD         CALL GBD(O.RRB,L,RA)                        MIO       862
           340  5110000005 +                      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
                          0100001074 +            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
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    22
        GMB - GET MEMORY BLOCK                                        GMB 
  
                               12624              BX6    X2+X4                                                   MIO       891
           352  54620                             SA6    A2                                                      MIO       892
                                                  PRNTM  GMB,BHW,X6                                              MIO       893
                     0400000310 +                 EQ     GMB                                                     MIO       894
                                                                                                                 MIO       895
           353                     2     GMBA     BSS    2                                                       MIO       896
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  0400400355 +             DMB      ENTRY. **                                                      MIO       908
           356  63710                             SB7    X1                                                      MIO       910
                     76620                        SX6    B2                                                      RSM2763X   72
                          5160000457 +            SA6    DMBH        SAVE B2                                     RSM2763X   73
           357  10600                             BX6    X0                                                      MIO       913
                     10755                        BX7    X5                                                      MIO       914
                          5160000453 +            SA6    DMBG        SAVE X0, X5                                 MIO       915
           360  5170000454 +                      SA7    DMBG+1                                                  MIO       916
                          74600                   SX6    A0                                                      MIO       917
                               74750              SX7    A5                                                      MIO       918
           361  5160000455 +                      SA6    DMBG+2      SAVE A0,A5                                  MIO       919
                          5170000456 +            SA7    DMBG+3                                                  MIO       920
                                                                                                                 MIO       921
                                                  PRINT  DMB,(* -- REQUEST FOR*Z7* WORDS*),B7                    MIO       922
           362  5150000442 +                      SA5    DMBA        M1 = MASK FOR AV AND FW FLAGS               RSM2763X   74
           363  5120000000 X             DMB0     SA2    O.BST                                                   RSM2763X   75
                          5130000000 X            SA3    O.SEQ                                                   MIO       924
           364  5140000000 X                      SA4    O.BLK       FBLK = O.BLK                                MIO       925
                          6160000074              SB6    60-BH.LENP                                              MIO       927
           365  63320                             SB3    X2                                                      MIO       928
                     6243777776                   SB4    X3-1        SEQ = O.SEQ - 1                             MIO       929
           366  5110000000 X                      SA1    O.BIT                                                   MIO       930
                          54351                   SA3    A5+B1                                                   MIO       931
                               63211              SB2    X1+B1                                                   MIO       932
           367  10033                             BX0    X3                                                      MIO       933
                     53441                        SA4    X4+B1       BHW = [FBLK+1]                              MIO       934
                                                                                                                 MIO       936
                                        *         LOOP TO FIND BLOCK TO DUMP                                     MIO       937
                                                                                                                 MIO       938
           370  0304000423 +             DMB1     ZR     X4,DMB3     IF BHW = 0    */END OF TABLE                MIO       939
                                                                                                                 MIO       940
                          11654                   BX6    X5*X4       TEST = M1 & BHW                             MIO       941
                               64540              SB5    A4          OBLK = FBLK                                 MIO       942
                                                  PRNTM  DMB,BHW,X4                                              RSM2763X   76
           371  22264                             LX2    B6,X4       TBHW = BHW                                  MIO       943
                     13606                        BX6    X0-X6       TEST = TEST .XOR. M3                        MIO       944
                          53425                   SA4    X2+B5       BHW = [FBLK+LEN[BHW]]                       MIO       945
           372  0316000370 +                      NZ     X6,DMB1     IF TEST " 0                                 MIO       947
                                                                                                                 MIO       948
                          0445000370 +            EQ     B4,B5,DMB1  OBLK = SEQ    */ DO NOT DUMP ACTIVE BLOCK   MIO       949
                                                                                                                 MIO       950
                                        *         DUMP BLOCK TO MASS STORAGE                                     MIO       951
                                                                                                                 MIO       952
                                                  PRINT  DMB,(* ABOVE BLOCK DUMPED TO MS. RIW FOLLOWS *)         RSM2763X   77
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    24
        DMB - DUMP MEMORY BLOCKS                                      DMB 
  
           373  43652                             MX6    -BH.BSTL                                                MIO       953
                     20622                        LX6    BH.BSTP                                                 MIO       954
                          43323                   MX3    -BA.SVLL                                                MIO       955
                               73520              SX5    X2          L = LEN[BHW]                                MIO       956
           374  11626                             BX6    X2*X6                                                   MIO       957
                     56650                        SA6    B5                                                      MIO       958
                          20252                   LX2    BH.LENP-BH.BSTP   B = BST[BHW]                          MIO       959
                               63420              SB4    X2                                                      MIO       960
           375  0740000377 +                      MI     B4,DMB1A    IF B < 0      */NO BST ENTRY                MIO       961
                                                                                                                 MIO       962
                          53123                   SA1    X2+B3       BAW = BST(B)                                MIO       963
                               20322              LX3    BA.SVLP                                                 MIO       964
           376  15713                             BX7    -X3*X1                                                  MIO       965
                                                  PRNTM  DMB,BAW,X7                                              MIO       966
                     54710                        SA7    A1          BST(B) = BAW                                MIO       967
                                                                                                                 MIO       968
           377  20252                    DMB1A    LX2    BH.BSTP-BH.BIP    AR = BI[BHW]                          MIO       969
                     53322                        SA3    X2+B2       RIW = BIT(AR+1)                             MIO       970
                          20301                   LX3    59-RI.ATP                                               MIO       971
                               63240              SB2    X4          L=LEN[BHW]                                  FCC1123     4
           400  0512000401 +                      NE     B1,B2,DMB1B IF L = 1       */SKIP 1 WORD FREE SPACE     FCC1123     5
                          5044000001              SA4    A4+1                                                    FCC1123     6
           401  76770                    DMB1B    SX7    B7                                                      FCC1123     7
                     37675                        IX6    X7-X5       LEN = LEN - L                               MIO       973
                          74050                   SX0    A5                                                      MIO       974
                               20622              LX6    18                                                      MIO       975
           402  74140                             SX1    A4                                                      MIO       976
                     12606                        BX6    X0+X6                                                   MIO       977
                          20622                   LX6    18                                                      MIO       978
                               12616              BX6    X1+X6                                                   MIO       979
           403  5160000451 +                      SA6    DMBE        T1 = LEN, M1, FBLK                          MIO       980
                          76750                   SX7    B5                                                      MIO       981
                               74030              SX0    A3                                                      MIO       982
           404  20722                             LX7    18                                                      MIO       983
                     12707                        BX7    X0+X7                                                   MIO       984
                          73150                   SX1    X5                                                      MIO       985
                               20722              LX7    18                                                      MIO       986
           405  12717                             BX7    X1+X7                                                   MIO       987
                     5170000452 +                 SA7    DMBF        T2 = OBLK, AR, L                            MIO       988
           406  7255777775                        SX5    X5-2                                                    MIO       989
                          66200                   SB2    B0          FLCM = 0                                    MIO       990
           407  0323000410 +                      PL     X3,DMB2     IF AT[RIW] = 0                              MIO       991
                                                                                                                 MIO       992
                          20373                   LX3    1+RI.ATP-RI.LCMP                                        MIO       993
                               63230              SB2    X3          FLCM = LCM[RIW]                             MIO       994
                                                                                                                 MIO       995
           410  76451                    DMB2     SX4    B5+B1       FSCM = FBLK + 1                             MIO       996
                     0100000254 +                 CALL   SMB         CALL SMB(FLCM,L,FBLK) */SAVE BLOCK ON MS    MIO       997
           411  5120000452 +                      SA2    DMBF                                                    MIO       998
                          63320                   SB3    X2                                                      MIO       999
                               10711              BX7    X1                                                      MIO      1000
           412  21222                             AX2    18                                                      MIO      1001
                     53720                        SA7    X2          BIT(AR+1) = RIW                             MIO      1002
                                                  PRNTM  DMB,RIW,X7                                              MIO      1003
                          21222                   AX2    18                                                      MIO      1004
                               63220              SB2    X2                                                      MIO      1005
           413  0100000531 +                      CALL   ABB         CALL ABB(OBLK,L)                            MIO      1006
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    25
        DMB - DUMP MEMORY BLOCKS                                      DMB 
  
           414  5110000451 +                      SA1    DMBE                                                    MIO      1007
                          53410                   SA4    X1                                                      MIO      1008
                               21122              AX1    18                                                      MIO      1009
           415  53510                             SA5    X1                                                      MIO      1010
                     21122                        AX1    18                                                      MIO      1011
                          63710                   SB7    X1                                                      MIO      1012
           416  5035000001                        SA3    A5+1                                                    MIO      1013
                          0607000434 +            LE     B7,B0,DMB4  IF LEN @ 0                                  MIO      1014
                                                                                                                 MIO      1015
           417  10033                             BX0    X3                                                      MIO      1016
                     5110000000 X                 SA1    O.BIT                                                   MIO      1017
           420  5120000000 X                      SA2    O.BST                                                   MIO      1018
                          5130000000 X            SA3    O.SEQ                                                   MIO      1019
           421  6160000074                        SB6    60-BH.LENP                                              MIO      1020
                          63211                   SB2    X1+B1                                                   MIO      1021
                               63320              SB3    X2                                                      MIO      1022
           422  6243777776                        SB4    X3-1                                                    MIO      1023
                          0400000370 +            EQ     DMB1                                                    MIO      1024
                                                                                                                 MIO      1025
                                        *         GET MASK FOR NEXT GROUP                                        MIO      1026
                                                                                                                 MIO      1027
           423  5055000002               DMB3     SA5    A5+2        */ M3 OR M5 MASK OR ZERO                    RSM2763X   78
                          0305000434 +            ZR     X5,DMB4     IF (X5) = 0 */ LAST BLK SCAN DONE           RSM2763X   79
           424  54351                             SA3    A5+B1                                                   RSM2763X   80
                     10033                        BX0    X3          */ M4 OR M6 MASK FOR 2ND OR 3RD SCAN        RSM2763X   81
                          0300000432 +            ZR     X0,DMB3A    IF M4 MASK */ 2ND SCAN IS TO START          RSM2763X   82
           425  5140000457 +                      SA4    DMBH                                                    RSM2763X   83
                          0304000432 +            ZR     X4,DMB3A    IF  DMBH  = 0 */ STANDARD PROCESSING        RSM2763X   84
                                                                                                                 RSM2763X   85
                                        *         SPECIAL PROCESSING REQUESTED - CALL MOREFL TO GET              RSM2763X   86
                                        *         REMAINING NO. OF WORDS BY EXTENDING FL RATHER THEN BY          RSM2763X   87
                                        *         DUMPING THE HIGHEST PRIORITY BLOCKS                            RSM2763X   88
                                                                                                                 RSM2763X   89
           426  76170                             SX1    B7          WN = NO.OF WORDS NEEDED                     RSM2763X   90
                                                  PRINT  DMB,(*  DMB CALLS MOREFL,WN =*Z7),(X1)                  RSM2763X   91
                     0100000000 X                 CALL   MOREFL      MOREFL(X6) = NO.OF WORDS GRANTED            RSM2763X   92
           427  5160000460 +                      SA6    DMBI        SAVE WG - NO.OF WORDS GRANTED               RSM2763X   93
                          37616                   IX6    X1-X6                                                   RSM2763X   94
                               63760              SB7    X6          RWN = REM.NO.OF WORDS NEEDED                RSM2763X   95
           430  0607000434 +                      LE     B7,DMB4     IF RWN @ 0                                  RSM2763X   96
                          5150000446 +            SA5    DMBA+4      M5 = MASK FOR 3RD SCAN                      RSM2763X   97
           431  0400000363 +                      EQ     DMB0        */ GET RWN BY DUMPING THE TOP PRIOR.BLOCKS  RSM2763X   98
                                                                                                                 RSM2763X   99
           432  5140000000 X             DMB3A    SA4    O.BLK                                                   RSM2763X  100
                          53441                   SA4    X4+B1                                                   RSM2763X  101
           433  0400000370 +                      EQ     DMB1                                                    RSM2763X  102
                                                                                                                 MIO      1036
           434  76170                    DMB4     SX1    B7                                                      MIO      1037
                     5150000456 +                 SA5    DMBG+3                                                  MIO      1038
           435  5140000455 +                      SA4    DMBG+2                                                  MIO      1039
                          5130000454 +            SA3    DMBG+1                                                  MIO      1040
           436  5120000453 +                      SA2    DMBG                                                    MIO      1041
                          53040                   SA0    X4          RESTORE A0, A5                              MIO      1042
                               53550              SA5    X5                                                      MIO      1043
           437  10533                             BX5    X3                                                      MIO      1044
                     10022                        BX0    X2          RESTORE X0,X5                               MIO      1045
                                                  PRINT  DMB,(* -- SUMMARY -- B7 =*Z7),B7                        MIO      1046
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    26
        DMB - DUMP MEMORY BLOCKS                                      DMB 
  
                                                  PRNTM  DMB,BIT                                                 MIO      1047
                                                  PRNTM  DMB,BST                                                 MIO      1048
                                                  PRNTM  BLK,,=1                                                 MIO      1049
                                                                                                                 MIO      1050
                          5120000460 +            SA2    DMBI        WFL = NO OF WORDS GRANTED BY MOREFL         RSM2763X  103
           440  43600                             MX6    0                                                       RSM2763X  104
                     54620                        SA6    A2          DMBI = 0                                    RSM2763X  105
                          0670000355 +            PL     B7,DMB      IF NOT ENOUGH SPACE FREED                   MIO      1051
           441  43100                             MX1    0           X1 = 0        */ SUCCESS                    MIO      1052
                     0400000355 +                 EQ     DMB                                                     MIO      1053
                                                                                                                 MIO      1054
           442                           DMBA     BFMW   BH,(AV,FW)                                              MIO      1055
           443                                    BFMW   BH,(FW)                                                 MIO      1056
           444                                    BFMW   BH,(AV,PRI)                                             MIO      1057
           445                     1              BSSZ   1                                                       MIO      1058
           446                                    BFMW   BH,(AV,PRI)                                             MIO      1059
           447                                    BFMW   BH,(PRI)                                                MIO      1060
           450                     1              BSSZ   1                                                       MIO      1061
           451                     1     DMBE     BSS    1                                                       MIO      1062
           452                     1     DMBF     BSS    1                                                       MIO      1063
           453                     4     DMBG     BSS    4                                                       MIO      1064
           457                     1     DMBH     BSS    1                                                       RSM2763X  106
           460                     1     DMBI     BSSZ   1                                                       RSM2763X  107
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  5110000011 +             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    =XOPT2                                                  FCC0415    19
                               76630              SX6    B3                                                      MIO      1104
           473  5160000527 +                      SA6    ASBA                                                    MIO      1105
                                                  PRINT  ASB,(* SPACE NEEDED = *,Z8),B3                          MIO      1106
                          0303000502 +            ZR     X3,ASB1E    IF OPT2 = 0    */OPT = 1                    FCC0415    20
           474  7120000401                        SX2    401B                                                    MIO      1107
                          37712                   IX7    X1-X2                                                   MIO      1108
           475  0327000476 +                      PL     X7,ASB1B    DL = MAX( DL , 401B )                       MIO      1109
                          10122                   BX1    X2                                                      MIO      1110
           476  76600                    ASB1B    SX6    B0                                                      RSM2763X  110
                     66210                        SB2    B1          */ SPEC. PROCESSING BY DMB                  RSM2763X  111
                                                  PRINT  ASB,(* ASB CALLS DMB,WN=*Z7),(X1)                       RSM2763X  112
                          5160000000 X            SA6    O.SEQ       O.SEQ = 0                                   MIO      1112
           477  5160000000 X                      SA6    L.SEQ       L.SEQ = 0                                   MIO      1113
                          0100000355 +            CALL   DMB         DUMP BLOCKS TO FREE UP SPACE                MIO      1114
           500  0311000526 +                      NZ     X1,ASB6     IF NOT ENOUGH SPACE OBTAINED                RSM2763X  113
                          0302000506 +            ZR     X2,ASB1D    ENOUGH SPACE BY DUMPING BLOCKS ONLY         RSM2763X  114
                                                                                                                 RSM2763X  115
                                        *         DMB HAD TO CALL MOREFL TO GET ENOUGH SPACE, X2 = WFL           RSM2763X  116
                                                                                                                 RSM2763X  117
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  5110000013 +             ASB1A    SA1    LAS         BTW = LAS                                   MIO      1119
                                                  PRINT  ASB,(* --LAS = *Z20),LAS                                MIO      1120
                          20152                   LX1    -BT.LKFP    I = LKF[BTW]                                MIO      1121
                               63510              SB5    X1                                                      MIO      1122
           510  0450000513 +                      ZR     B5,ASB2A                                                MIO      1123
                                                                                                                 MIO      1124
                          5221000000              SA2    X1+         BTW = [I]                                   MIO      1125
                                                  PRNTM  ASB,BTW,X2                                              MIO      1126
                                                                                                                 MIO      1127
                                        *         SEARCH LIST FOR AVAILABLE SPACE                                MIO      1128
                                                                                                                 MIO      1129
                                         ASB2     LX2    -BT.LENP                                                MIO      1130
           511  63520                             SB5    X2          L = LEN[BTW]                                MIO      1131
                     20252                        LX2    BT.LENP-BT.LKFP                                         MIO      1132
                          0653000517 +            GE     B5,B3,ASB3  IF L \ NL                                   MIO      1133
                                                                                                                 MIO      1134
           512  63620                             SB6    X2          I = LKF[BTW]                                MIO      1135
                     53220                        SA2    X2          BTW = [I]                                   MIO      1136
                                                  PRNTM  ASB,BTW,X2                                              MIO      1137
                          0560000511 +            NZ     B6,ASB2     IF I " 0                                    MIO      1138
                                                                                                                 MIO      1139
                                        *         CALL GARBAGE COLLECTOR FOR BLK                                 MIO      1140
                                                                                                                 MIO      1141
           513  7163000000               ASB2A    SX6    B3+                                                     MIO      1142
                          5160000527 +            SA6    ASBA                                                    MIO      1143
           514  0100000574 +                      CALL   CGB         CALL CGB      */GARBAGE COLLECTOR           MIO      1144
           515  5120000527 +                      SA2    ASBA                                                    MIO      1145
                          6232000000              SB3    X2+                                                     MIO      1146
           516  0400000467 +                      EQ     ASB1                                                    MIO      1147
                                                                                                                 MIO      1148
                                        *         REMOVE BLOCK FROM AVAILABLE LIST                               MIO      1149
                                                                                                                 MIO      1150
           517  20222                    ASB3     LX2    BT.LKFP                                                 MIO      1151
                     67651                        SB6    B5-B1                                                   MIO      1152
                          65226                   SB2    A2-B6       FBLK = I-L+1                                MIO      1153
                               54120              SA1    A2                                                      MIO      1154
           520  0100000556 +                      CALL   RBB         CALL RBB(BTW)                               MIO      1155
           521  0453000525 +                      EQ     B5,B3,ASB5  IF L = NL                                   MIO      1156
                                                                                                                 MIO      1157
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  5110001131 +             ASB6     SA1    =7LTBL-OVF                                              RSM2763X  121
                          0100000000 X            CALL   PUNT                                                    RSM2763X  122
                                                                                                                 RSM2763X  123
                                                                                                                 RSM2763X  124
           527                     1     ASBA     BSS    1                                                       MIO      1174
           530                     1     ASBB     BSS    1                                                       FCC0415    44
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  5110000011 +                      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
                     5120000011 +                 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
                          5120000011 +            SA2    MX.AVS                                                  MIO      1224
           542  63730                             SB7    X3          FL = LEN[FBTW]                              MIO      1225
                     66337                        SB3    B3+B7       L = L+FL                                    MIO      1226
                          66447                   SB4    B4+B7       ABTW = ABTW+FL                              MIO      1227
                               73727              SX7    X2+B7                                                   MIO      1228
           543  54130                             SA1    A3                                                      MIO      1229
                     54720                        SA7    A2                                                      MIO      1230
                          0100000556 +            CALL   RBB         CALL RBB(FBTW)                              MIO      1231
                                                                                                                 MIO      1232
                                        *         STORE NEW BLOCK HEADER AND TRAILER WORDS.                      MIO      1233
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  5130000013 +             ABB3     SA3    LAS         OPTR = LAS                                  MIO      1250
                          76640                   SX6    B4                                                      MIO      1251
                               20622              LX6    BT.LKFP     LKF[NPTR] = ABTW                            MIO      1252
           551  12737                             BX7    X3+X7       LKF[BTW] = LKF[OPTR]                        MIO      1253
                     54630                        SA6    A3          LAS = NPTR                                  MIO      1254
                                                  PRINT  ABB,(* LAS = *Z20),LAS                                  MIO      1255
                          20352                   LX3    -BT.LKFP                                                MIO      1256
                               73330              SX3    X3          LINKF = LKF[OPTR]                           MIO      1257
           552  0303000555 +                      ZR     X3,ABB4     IF LINKF = 0                                MIO      1258
                                                                                                                 MIO      1259
                          53130                   SA1    X3                                                      MIO      1260
                               43052              MX0    -BT.LKBL                                                MIO      1261
           553  20044                             LX0    BT.LKBP                                                 MIO      1262
                     11201                        BX2    X0*X1       NWORD = LWORDF                              MIO      1263
                          20622                   LX6    BT.LKBP-BT.LKFP   LKB[NWORDF] = ABTW                    MIO      1264
                               12626              BX6    X2+X6                                                   MIO      1265
           554  54610                             SA6    A1          [LINKF] = NWORD                             MIO      1266
                                                  PRNTM  ABB,BTW,X6                                              MIO      1267
           555  56740                    ABB4     SA7    B4          [ABTW] = BTW                                MIO      1268
                                                  PRNTM  ABB,BTW,X7                                              MIO      1269
                                                                                                                 MIO      1270
                     0400000531 +                 EQ     ABB                                                     MIO      1271
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  5120000011 +                      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  5120000013 +                      SA2    LAS                                                     MIO      1298
                          20252                   LX2    -BT.LKFP                                                MIO      1299
                               74010              SX0    A1                                                      MIO      1300
           564  37002                             IX0    X0-X2                                                   MIO      1301
                     0310000556 +                 NZ     X0,RBB      IF ABTW .NE. LKF[LAS]                       MIO      1302
                                                                                                                 MIO      1303
                               20222              LX2    BT.LKFP                                                 MIO      1304
           565  0400000567 +                      EQ     RBB2                                                    MIO      1305
                                                                                                                 MIO      1306
           566  56270                    RBB1     SA2    B7          LWORDB = [LINKB]                            MIO      1307
                                                  PRNTM  RBB,BTW,X2                                              MIO      1308
           567  43152                    RBB2     MX1    -BT.LKFL                                                MIO      1309
                     76060                        SX0    B6                                                      MIO      1310
                          20122                   LX1    BT.LKFP                                                 MIO      1311
                               11212              BX2    X1*X2                                                   MIO      1312
           570  20022                             LX0    BT.LKFP     LKF[LWORDB] = LINKF                         MIO      1313
                     12602                        BX6    X0+X2                                                   MIO      1314
                          54620                   SA6    A2          [LINKB] = LWORDB                            MIO      1315
                                                  PRNTM  RBB,BTW,X6                                              MIO      1316
           571  0460000556 +                      ZR     B6,RBB      IF LINKF = 0  */LAST ENTRY ON LIST          MIO      1317
                                                                                                                 MIO      1318
                          56260                   SA2    B6          LWORDF = [LINKF]                            MIO      1319
                                                  PRNTM  RBB,BTW,X2                                              MIO      1320
                               20122              LX1    -BT.LKFP+BT.LKBP                                        MIO      1321
           572  76070                             SX0    B7                                                      MIO      1322
                     11212                        BX2    X1*X2                                                   MIO      1323
                          20044                   LX0    BT.LKBP     LKB[LWORDF] = LINKB                         MIO      1324
                               12702              BX7    X0+X2                                                   MIO      1325
           573  54720                             SA7    A2          [LINKF] = LWORDF                            MIO      1326
                                                  PRNTM  RBB,BTW,X7                                              MIO      1327
                     0400000556 +                 EQ     RBB                                                     MIO      1328
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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  0400400574 +             CGB      ENTRY. **                                                      MIO      1339
                                                                                                                 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  0304000620 +             CGB1     ZR     X4,CGB5     IF BHW = 0    */ END OF TABLE               MIO      1356
                                                                                                                 MIO      1357
                          22664                   LX6    B6,X4       TBHW = BHW                                  MIO      1358
                               74240              SX2    A4          TFROM = FROM                                MIO      1359
           602  63560                             SB5    X6          L = LEN[TBHW]                               MIO      1360
                                                  LX6    BH.LENP+59-BH.AVP                                       MIO      1361
                     54445                        SA4    A4+B5       FROM = FROM+L; BHW = [FROM]                 MIO      1362
                                                  PRNTM  CGB,BHW,X4                                              MIO      1363
                          0336000601 +            MI     X6,CGB1     IF AV[TBHW] = 1  */BLOCK AVAILABLE          MIO      1364
                                                                                                                 MIO      1365
           603  37132                             IX1    X3-X2                                                   MIO      1366
                     0311000605 +                 NZ     X1,CGB2     IF TFROM " TO */BLOCK MUST BE MOVED         MIO      1367
                                                                                                                 MIO      1368
                               73335              SX3    X3+B5       TO = TO + L                                 MIO      1369
           604  0400000601 +                      EQ     CGB1                                                    MIO      1370
                                                                                                                 MIO      1371
                                        *         UPDATE *BST*,*BIT* ENTRIES                                     MIO      1372
                                                                                                                 MIO      1373
           605  20630                    CGB2     LX6    1+BH.AVP-BH.BIP                                         MIO      1374
                     43152                        MX1    -RI.FWAL                                                MIO      1375
                          53462                   SA4    X6+B2       RIW = BIT(BI[TBHW]+1)                       MIO      1376
                                                  PRNTM  CGB,RIW,X4                                              MIO      1377
                               20122              LX1    RI.FWAP                                                 MIO      1378
           606  11414                             BX4    X1*X4                                                   MIO      1379
                     20622                        LX6    BH.BIP-BH.BSTP                                          MIO      1380
                          73731                   SX7    X3+B1       NFWA = TO + 1                               MIO      1381
                               63760              SB7    X6          B = BST[TBHW]                               MIO      1382
           607  20722                             LX7    RI.FWAP                                                 MIO      1383
                     12647                        BX6    X4+X7       FWA[RIW] = NFWA                             MIO      1384
                          54640                   SA6    A4          BIT(BI[TBHW]+1) = RIW                       MIO      1385
                                                  PRNTM  CGB,RIW,X6                                              MIO      1386
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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
                     0100000000 X                 MOVE   X1,X2,X3    MOVE(L,TFROM,TO)                            MIO      1411
           616  55441                             SA4    A4-B1       FROM = FROM+L; BHW = [FROM]                 MIO      1412
                     74371                        SX3    A7+B1       TO = TO+L                                   MIO      1413
                          6160000074              SB6    60-BH.LENP                                              MIO      1414
           617  0400000601 +                      EQ     CGB1                                                    MIO      1415
                                                                                                                 MIO      1416
                                        *         UPDATE LIST OF AVAILABLE SPACE.                                MIO      1417
                                                                                                                 MIO      1418
           620  5120000000 X             CGB5     SA2    O.BLK                                                   MIO      1419
                          5140000000 X            SA4    L.BLK                                                   MIO      1420
           621  6244777776                        SB4    X4-1                                                    MIO      1421
                          73424                   SX4    X2+B4                                                   MIO      1422
                               37743              IX7    X4-X3       L = FROM-TO                                 MIO      1423
           622  43600                             MX6    0                                                       MIO      1424
                     53640                        SA6    X4          BLK(L.BLK) = 0                              MIO      1425
                          5160000011 +            SA6    MX.AVS      MX.AVS = L    */MAX AVAILABLE SPACE IN BLK  MIO      1426
           623  63230                             SB2    X3                                                      MIO      1427
                     63370                        SB3    X7                                                      MIO      1428
                                                  PRINT  CGB,(* MAX SPACE AFTER CGB = *Z8),B3                    MIO      1429
                          5160000013 +            SA6    LAS         LAS = 0                                     MIO      1430
           624  0307000574 +                      ZR     X7,CGB      IF L = 0  */ NO FREE SPACE                  FCCA509X    7
                          0100000531 +            CALL   ABB         CALL ABB(TO,L)                              MIO      1431
           625  0400000574 +                      EQ     CGB                                                     MIO      1432
                                                                                                                 MIO      1433
                                         #ECS     IFNE   CT.ECS,0                                                MIO      1434
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      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
           626  0200400626 +             ASL      ROUTINE                                                        MIO      1446
           627  0420000634 +                      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
           630  5100000676 +                      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
                          0635000674 +            LE     B5,B3,ASL7  IF NL .LE. OL */REUSE BLOCK                 MIO      1457
                                                                                                                 MIO      1458
           633  0100000700 +                      CALL   ABL         CALL ABL(FBLK,OL)                           MIO      1459
                                                                                                                 MIO      1460
                                        *         CHECK IF SPACE AVAILABLE AT O.LCM                              MIO      1461
                                                                                                                 MIO      1462
           634  5120000000 +             ASL1     SA2    O.LCM       FBLK = O.LCM                                MIO      1463
                          5110000000 X            SA1    LCM.FL                                                  MIO      1464
           635  5130000002 +                      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
           636  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
           637  0337000650 +                      MI     X7,ASL2     IF L .LT. LCM.FL                            MIO      1472
                                                                                                                 MIO      1473
                          7274010007              SX7    X4+10007B   NFL = FL + 10007B                           MIO      1474
           640  37473                             IX4    X7-X3                                                   MIO      1475
                     0324000651 +                 PL     X4,ASL3     IF NFL . GE. MAX.LCM                        MIO      1476
                                                                                                                 MIO      1477
                                        *         REQUEST MORE STORAGE                                           MIO      1478
                                                                                                                 MIO      1479
                               21711              AX7    9                                                       MIO      1480
           641  20747                             LX7    39                                                      MIO      1481
                     5170000677 +                 SA7    ASLA+1                                                  MIO      1482
           642  7160150515                        MEMORY LCM,ASLA+1,R                                            MIO      1483
           646  5130000677 +                      SA3    ASLA+1                                                  MIO      1484
                          10733                   BX7    X3                                                      MIO      1485
                               21736              AX7    30                                                      MIO      1486
           647  5170000000 X                      SA7    LCM.FL                                                  MIO      1487
                                                  PRINT  ASL,(* LCM REQUEST - LCM.FL = *Z8),X7                   MIO      1488
                                                                                                                 MIO      1489
           650  54620                    ASL2     SA6    A2          O.LCM = L                                   MIO      1490
                     76750                        SX7    B5                                                      MIO      1491
                          0400000626 +            EQ     ASL                                                     MIO      1492
                                                                                                                 MIO      1493
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    36
        ASL - ALLOCATE SPACE IN LCM                                   ASL 
  
           651  5120000012 +             ASL3     SA2    MX.AVL                                                  MIO      1494
                          21102                   AX1    2           L = LCM.FL / 4                              MIO      1495
                               63420              SB4    X2                                                      MIO      1496
           652  0745000675 +                      GT     B5,B4,ASL8  IF NL > MX.AVL                              MIO      1497
                                                                                                                 MIO      1498
                          37612                   IX6    X1-X2                                                   MIO      1499
           653  0336000665 +                      MI     X6,ASL5     IF MX.AVL > L */GARBAGE COLLECT             MIO      1500
                                                                                                                 MIO      1501
                                        *         SEARCH AVAILABLE LIST                                          MIO      1502
                                                                                                                 MIO      1503
                          5110000014 +            SA1    LAL         BTW = LAL                                   MIO      1504
                                                  PRINT  ASL,(* --LAL = *Z20),LAL                                MIO      1505
           654  20152                             LX1    -BT.LKFP    I = LKF[BTW]                                MIO      1506
                     73010                        SX0    X1                                                      MIO      1507
                          0300000675 +            ZR     X0,ASL8     IF LAL = 0                                  MIO      1508
                                                                                                                 MIO      1509
           655  5100000676 +                      RX2    X0,ASLA     BTW = [I]                                   MIO      1510
                                                  PRNTM  ASL,BTW,X2                                              MIO      1511
                                                                                                                 MIO      1512
                                         ASL4     LX2    -BT.LENP                                                MIO      1513
           660  63320                             SB3    X2          L = LEN[BTW]                                MIO      1514
                     20252                        LX2    BT.LENP-BT.LKFP                                         MIO      1515
                          0635000671 +            LE     B5,B3,ASL6  IF NL @ L                                   MIO      1516
                                                                                                                 MIO      1517
           661  63620                             SB6    X2          I = LKF[BTW]                                MIO      1518
                     73020                        SX0    X2                                                      MIO      1519
                          5100000676 +            RX2    X0,ASLA     BTW = [I]                                   MIO      1520
                                                  PRNTM  ASL,BTW,X2                                              MIO      1521
                     0560000660 +                 NZ     B6,ASL4                                                 MIO      1522
           664  0400000675 +                      EQ     ASL8                                                    MIO      1523
                                                                                                                 MIO      1525
           665  76650                    ASL5     SX6    B5                                                      MIO      1526
                     5160000676 +                 SA6    ASLA                                                    MIO      1527
           666  0100000777 +                      CALL   CGL         CALL GCL                                    MIO      1528
           667  5110000676 +                      SA1    ASLA                                                    MIO      1529
                          6251777757              SB5    X1-LCM.XL   NL = NL - LCM.XL                            FCC0391    10
           670  0400000634 +                      EQ     ASL1                                                    MIO      1531
                                                                                                                 MIO      1532
                                        *         REMOVE BLOCK FROM AVAILABLE LIST                               MIO      1533
                                                                                                                 MIO      1534
           671  20222                    ASL6     LX2    BT.LKFP                                                 MIO      1535
                     10122                        BX1    X2                                                      MIO      1536
                          67413                   SB4    B1-B3                                                   MIO      1537
                               63204              SB2    X0+B4                                                   MIO      1538
           672  0100000747 +                      CALL   RBL         CALL RBL(BTW)                               MIO      1539
           673  76220                             SX2    B2                                                      MIO      1540
                     76730                        SX7    B3                                                      MIO      1541
                          0400000626 +            EQ     ASL                                                     MIO      1542
                                                                                                                 MIO      1543
           674  76220                    ASL7     SX2    B2          FWA = FBLK                                  MIO      1544
                     76730                        SX7    B3          L = OL                                      MIO      1545
                          0400000626 +            EQ     ASL                                                     MIO      1546
                                                                                                                 MIO      1547
           675  7120777776               ASL8     SX2    -1                                                      MIO      1548
                          0400000626 +            EQ     ASL                                                     MIO      1549
                                                                                                                 MIO      1550
           676                     2     ASLA     BSS    2                                                       MIO      1551
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    37
        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
           700  0200400700 +             ABL      ROUTINE                                                        MIO      1562
           701  5110000012 +                      SA1    MX.AVL                                                  MIO      1564
                          67731                   SB7    B3-B1                                                   MIO      1565
                               66427              SB4    B2+B7       ABTW = FBLK+L-1                             MIO      1566
           702  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
           703  0330000710 +                      MI     X0,ABL1     IF APBTW < 0  */NO PRECEEDING BLOCK         MIO      1573
                                                                                                                 MIO      1574
                          5100000745 +            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
                     0321000710 +                 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
           706  5120000012 +                      SA2    MX.AVL                                                  MIO      1585
                          67227                   SB2    B2-B7       FBLK = FBLK-PL                              MIO      1586
                               66337              SB3    B3+B7       L = L + PL                                  MIO      1587
           707  73727                             SX7    X2+B7                                                   MIO      1588
                                                  LX1    BT.LENP                                                 MIO      1589
                     54720                        SA7    A2                                                      MIO      1590
                          0100000747 +            CALL   RBL         CALL RBL(PBTW)                              MIO      1591
                                                                                                                 MIO      1592
           710  5110000000 +             ABL1     SA1    O.LCM                                                   MIO      1593
                          76041                   SX0    B4+B1                                                   MIO      1594
                               37110              IX1    X1-X0                                                   MIO      1595
           711  0301000721 +                      ZR     X1,ABL2     IF AFBHW = 0  */NO FOLLOWING BLOCK          MIO      1596
                                                                                                                 MIO      1597
                          5100000746 +            RX2    X0,ABLB     FBHW = [ABTW+1]                             MIO      1598
                                                  LX2    -BH.LENP    LS = LEN[FBHW]                              MIO      1599
                     73024                        SX0    X2+B4                                                   MIO      1600
                          5100000746 +            RX3    X0,ABLB     FBTW = [ABTW+LS]                            MIO      1601
                                                  PRNTM  ABL,BTW,X3                                              MIO      1602
                                                  LX3    59-BT.AVP                                               MIO      1603
                     0323000721 +                 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
           716  5120000012 +                      SA2    MX.AVL                                                  MIO      1608
                          66337                   SB3    B3+B7       L = L+FL                                    MIO      1609
                               66447              SB4    B4+B7       ABTW = ABTW+FL                              MIO      1610
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    38
        ABL - ADD BLOCK TO LCM LIST                                   ABL 
  
           717  10133                             BX1    X3                                                      MIO      1611
                     73727                        SX7    X2+B7                                                   MIO      1612
                                                  LX1    BT.LENP                                                 MIO      1613
                          54720                   SA7    A2                                                      MIO      1614
           720  0100000747 +                      CALL   RBL         CALL RBL(FBTW)                              MIO      1615
                                                                                                                 MIO      1616
                                        *         STORE NEW BLOCK HEADER AND TRAILER WORDS.                      MIO      1617
                                                                                                                 MIO      1618
           721  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
           722  6170000100                        SB7    MIN.AL                                                  MIO      1624
                          10766                   BX7    X6          BTW = BHW                                   MIO      1625
                               76020              SX0    B2                                                      MIO      1626
           723  5100000745 +                      WX6    X0,ABLA     [FBLK] = BHW                                MIO      1627
                                                  PRNTM  ABL,BHW,X6                                              MIO      1628
           725  0773000731 +                      LT     B7,B3,ABL3  IF MIN.AL < LEN                             MIO      1629
                                                                                                                 MIO      1630
                          76040                   SX0    B4                                                      MIO      1631
           726  5100000745 +                      WX7    X0,ABLA     [ABTW] = BTW                                MIO      1632
                                                  PRNTM  ABL,BTW,X7                                              MIO      1633
           730  0400000700 +                      EQ     ABL                                                     MIO      1634
                                                                                                                 MIO      1635
           731  5130000014 +             ABL3     SA3    LAL         OPTR = LAL                                  MIO      1636
                          76640                   SX6    B4                                                      MIO      1637
                               20622              LX6    BT.LKFP     LKF[NPTR] = ABTW                            MIO      1638
           732  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
           733  0303000742 +                      ZR     X3,ABL4     IF LINK = 0                                 MIO      1644
                                                                                                                 MIO      1645
                          73030                   SX0    X3                                                      MIO      1646
           734  5100000745 +                      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
           737  20622                             LX6    BT.LKBP-BT.LKFP   LKB[NWORD] = ABTW                     MIO      1651
                     12626                        BX6    X2+X6                                                   MIO      1652
                          5100000745 +            WX6    X0,ABLA     [LINKF] = NWORD                             MIO      1653
                                                  PRNTM  ABL,BTW,X6                                              MIO      1654
                                                                                                                 MIO      1655
           742  76040                    ABL4     SX0    B4                                                      MIO      1656
                     5100000745 +                 WX7    X0,ABLA     [ABTW] = BTW                                MIO      1657
                                                  PRNTM  ABL,BTW,X7                                              MIO      1658
           744  0400000700 +                      EQ     ABL                                                     MIO      1659
                                                                                                                 MIO      1660
           745                     1     ABLA     BSS    1                                                       MIO      1661
           746                     1     ABLB     BSS    1                                                       MIO      1662
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    39
        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
           747  0200400747 +             RBL      ROUTINE                                                        MIO      1672
           750  5120000012 +                      SA2    MX.AVL                                                  MIO      1674
                          6170000100              SB7    MIN.AL                                                  MIO      1675
                                                  LX1    -BT.LENP                                                MIO      1676
           751  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
           752  54720                             SA7    A2                                                      MIO      1681
                     0767000747 +                 LT     B6,B7,RBL   IF L .LT. MIN.AB                            MIO      1682
                                                                                                                 MIO      1683
                               63610              SB6    X1          LINKF = LKF[BTW]                            MIO      1684
           753  20152                             LX1    BT.LKFP-BT.LKBP                                         MIO      1685
                     63710                        SB7    X1          LINKB = LKB[BTW]                            MIO      1686
                          0570000756 +            NZ     B7,RBL1     IF LINKB " 0  */NOT FIRST ENTRY ON LIST     MIO      1687
                                                                                                                 MIO      1688
           754  5120000014 +                      SA2    LAL                                                     MIO      1689
                          43400                   MX4    0                                                       MIO      1690
           755  0400000761 +                      EQ     RBL2                                                    MIO      1691
                                                                                                                 MIO      1692
           756  76070                    RBL1     SX0    B7                                                      MIO      1693
                     43401                        MX4    1                                                       MIO      1694
                          5100000776 +            RX2    X0,RBLA     LWORDB = [LINKB]                            MIO      1695
                                                  PRNTM  RBL,BTW,X2                                              MIO      1696
           761  43152                    RBL2     MX1    -BT.LKFL                                                MIO      1697
                     76760                        SX7    B6                                                      MIO      1698
                          20122                   LX1    BT.LKFP                                                 MIO      1699
                               11212              BX2    X1*X2                                                   MIO      1700
           762  20722                             LX7    BT.LKFP     LKF[LWORDB] = LINKF                         MIO      1701
                     12627                        BX6    X2+X7                                                   MIO      1702
                          0324000766 +            PL     X4,RBL3                                                 MIO      1703
                                                                                                                 MIO      1704
           763  5100000776 +                      WX6    X0,RBLA     [LINKB] = LWORDB                            MIO      1705
                                                  PRNTM  RBL,BTW,X6                                              MIO      1706
           765  0400000767 +                      EQ     RBL4                                                    MIO      1707
                                                                                                                 MIO      1708
           766  5160000014 +             RBL3     SA6    LAL                                                     MIO      1709
                                                  PRINT  RBL,(* LAL = *Z20),LAL                                  MIO      1710
                                                                                                                 MIO      1711
           767  0460000747 +             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
           770  5100000776 +                      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
           773  12762                             BX7    X6+X2                                                   MIO      1722
                     5100000776 +                 WX7    X0,RBLA     [LINKF] = LWORDF                            MIO      1723
                                                  PRNTM  RBL,BTW,X7                                              MIO      1724
           775  0400000747 +                      EQ     RBL                                                     MIO      1725
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    40
        RBL - REMOVE BLOCK FROM LCM LIST                              RBL 
  
                                                                                                                 MIO      1726
           776                     1     RBLA     BSS    1                                                       MIO      1727
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    41
        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
           777  0200400777 +             CGL      ROUTINE                                                        MIO      1739
                                                  PRINT  CGL,(* -- MX.AVL =*Z8),MX.AVL                           FCC0415    46
          1000  5130000000 +                      SA3    O.LCM                                                   MIO      1742
                          5110000000 X            SA1    O.BIT                                                   MIO      1743
          1001  43600                             MX6    0                                                       MIO      1744
                     10033                        BX0    X3                                                      MIO      1745
                          5100001036 +            WX6    X0,CGLA     LCM(O.LCM) = 0 */LOOP TERMINATOR            MIO      1746
          1004  63211                             SB2    X1+B1                                                   MIO      1747
                     6160000074                   SB6    60-BH.LENP                                              MIO      1748
                               43000              MX0    0           FROM = 0                                    MIO      1749
          1005  76300                             SX3    B0          TO = 0                                      MIO      1750
                     5100001036 +                 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
          1010  0304001033 +             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
          1011  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
                          5100001036 +            RX4    X0,CGLA     BHW = LCM(FROM)                             MIO      1763
                                                  PRNTM  CGL,BHW,X4                                              MIO      1764
                     0336001010 +                 MI     X6,CGL1     IF AV[TBHW]     */BLOCK AVAILABLE           MIO      1765
                                                                                                                 MIO      1766
          1014  6251777775                        SB5    X1-2        LEN = L - 2                                 MIO      1767
                          37732                   IX7    X3-X2                                                   MIO      1768
          1015  0317001017 +                      NZ     X7,CGL2     IF TFROM " TO  */BLOCK MUST BE MOVED        MIO      1769
                                                                                                                 MIO      1770
                          36313                   IX3    X1+X3       TO = TO + L                                 MIO      1771
          1016  0400001010 +                      EQ     CGL1                                                    MIO      1772
                                                                                                                 MIO      1773
                                        *         UPDATE *BIT* ENTRY AND MOVE BLOCK HEADER WORD.                 MIO      1774
                                                                                                                 MIO      1775
          1017  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
          1020  5170001036 +                      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
          1021  12747                             BX7    X4+X7       RA[RIW] = NLCM                              MIO      1786
                     54740                        SA7    A4          BIT(BI[TBHW+1]) = RIW                       MIO      1787
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    42
        CGL - COLLECT GARBAGE IN LCM                                  CGL 
  
                                                  PRNTM  CGL,RIW,X7                                              MIO      1788
                          10033                   BX0    X3                                                      MIO      1789
                               20644              LX6    BH.BIP                                                  MIO      1790
          1022  5100001037 +                      WX6    X0,CGLB     LCM(TO) = BHW                               MIO      1791
                                                  PRNTM  CGL,BHW,X6                                              MIO      1792
                                                                                                                 MIO      1793
                                        *         MOVE BLOCK                                                     MIO      1794
                                                                                                                 MIO      1795
          1024  76150                             SX1    B5                                                      MIO      1796
                     73221                        SX2    X2+B1       TFROM = TFROM+1                             MIO      1797
                          73331                   SX3    X3+B1       TO = TO+1                                   MIO      1798
          1025  0100001040 +                      CALL   MVL         MOVE(LEN,TFROM,TO)                          MIO      1799
                                                                                                                 MIO      1800
                                        *         MOVE BLOCK TRAILER WORD.                                       MIO      1801
                                                                                                                 MIO      1802
          1026  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
          1027  5100001037 +                      WX7    X0,CGLB     LCM(TO) = BTW                               MIO      1807
                                                  PRNTM  CGL,BTW,X7                                              MIO      1808
          1031  5140001036 +                      SA4    CGLA                                                    MIO      1809
                          6160000074              SB6    60-BH.LENP                                              MIO      1810
          1032  73021                             SX0    X2+B1       FROM = TFROM+1                              MIO      1811
                     73331                        SX3    X3+B1       TO = TO+1                                   MIO      1812
                          0400001010 +            EQ     CGL1                                                    MIO      1813
                                                                                                                 MIO      1814
                                        *         UPDATE O.LCM AND LIST OF AVAILABLE SPACE.                      MIO      1815
                                                                                                                 MIO      1816
          1033  43700                    CGL5     MX7    0                                                       MIO      1817
                     10633                        BX6    X3                                                      MIO      1818
                          5170000014 +            SA7    LAL         LAL = 0                                     MIO      1819
          1034  5160000000 +                      SA6    O.LCM       O.LCM = TO                                  MIO      1820
                                                  PRINT  CGL,(* --O.LCM = *Z8),O.LCM                             MIO      1821
                          5170000012 +            SA7    MX.AVL      MX.AVL = 0                                  MIO      1822
          1035  0400000777 +                      EQ     CGL                                                     MIO      1823
                                                                                                                 MIO      1824
          1036                     1     CGLA     BSS    1                                                       MIO      1825
          1037                     1     CGLB     BSS    1                                                       MIO      1826
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    43
        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
          1040  0200401040 +             MVL      ROUTINE                                                        MIO      1834
          1041  63710                             SB7    X1                                                      MIO      1835
                     37623                        IX6    X2-X3                                                   MIO      1836
                          6160000100              SB6    100B        MOVE 100B WORDS AT A TIME.                  MIO      1837
          1042  5100000000 X                      SA0    =XB=FBV                                                 MIO      1838
                          0667001052 +            LE     B7,B6,MVL2  IF ONLY ONE MOVE NEEDED.                    MIO      1839
                                                                                                                 MIO      1840
          1043  66560                             SB5    B6                                                      MIO      1841
                     0326001045 +                 PL     X6,MVL1     IF MOVE DOWN.                               MIO      1842
                                                                                                                 MIO      1843
                               67576              SB5    B7-B6                                                   MIO      1844
          1044  73225                             SX2    X2+B5       PREPARE FOR UPWARD MOVE.                    MIO      1845
                     73335                        SX3    X3+B5                                                   MIO      1846
                          67506                   SB5    -B6                                                     MIO      1847
                                                                                                                 MIO      1848
          1045  73020                    MVL1     SX0    X2          READ BLOCK.                                 MIO      1849
                                                                                                                 F7540FT    64
          1046  0116000000                        RL     B6                                                      F7540FT    65
                                                                                                                 MIO      1857
          1047  73225                             SX2    X2+B5                                                   MIO      1858
                     73030                        SX0    X3          WRITE BLOCK.                                MIO      1859
                                                                                                                 F7540FT    66
          1050  0126000000                        WL     B6                                                      F7540FT    67
                                                                                                                 MIO      1867
          1051  67776                             SB7    B7-B6       COUNT WORDS.                                MIO      1868
                     73335                        SX3    X3+B5                                                   MIO      1869
                          0767001045 +            GT     B7,B6,MVL1  LOOP.                                       MIO      1870
                                                                                                                 MIO      1871
          1052  0607001040 +             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
          1053  0400001045 +                      EQ     MVL1                                                    MIO      1876
                                                                                                                 MIO      1877
                                         #ECS     ENDIF                                                          MIO      1878
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    44
        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
          1054  0400401054 +             SBD      ENTRY. **                                                      MIO      1891
                                                                                                                 MIO      1892
                                        *         WRITE RECORD TO DISK.                                          MIO      1893
                                                                                                                 MIO      1894
          1055  5120000003 +                      SA2    O.DISK      DA = O.DISK   */DISK ADDRESS.               MIO      1895
                          10655                   BX6    X5                                                      MIO      1896
          1056  5160001073 +                      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
          1057  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
          1060  5110000015 +                      SETFET OPT,X4,X5,WRITE   SET OPT FET FOR WRITE                 MIO      1909
          1064  7160001072 +                      SX6    SBDA                                                    MIO      1910
                          5160000006 X            SA6    =XF.OPT+6                                               MIO      1911
          1065  7120000000 X                      WRITER =XF.OPT,R   WRITE RECORD                                MIO      1912
          1067  5120001072 +                      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
                          5150001073 +            SA5    SBDB                                                    MIO      1926
          1070  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
          1071  0400001054 +                      EQ     SBD                                                     MIO      1931
                                                                                                                 MIO      1932
          1072                     1     SBDA     BSSZ   1                                                       FCC0415    47
          1073                     1     SBDB     BSS    1                                                       MIO      1934
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    45
        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
          1074  0400401074 +             GBD      ENTRY. **                                                      MIO      1946
                                                                                                                 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
          1075  43636                             MX6    -RI.RAL                                                 MIO      1954
                     15746                        BX7    -X6*X4                                                  MIO      1955
                          5170000006 X            SA7    =XF.OPT+6   [F.OPT+6] = DA                              MIO      1956
          1076  5110000015 +                      SETFET OPT,X2,X5,READ                                          MIO      1957
          1102  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
          1104  0400001074 +                      EQ     GBD                                                     MIO      1966
                                                                                                                 MIO      1967
                                         #ECS     IFNE   CT.ECS,0                                                MIO      1968
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    46
        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
          1105  0200401105 +             SBL      ROUTINE                                                        MIO      1981
                                                                                                                 MIO      1982
                                        *         FORM RANDOM INDEX WORD.                                        MIO      1983
                                                                                                                 MIO      1984
          1106  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
          1107  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
          1110  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
          1111  0632001115 +                      LE     B2,B3,SBL2  IF L .LE. BLK.SIZ                           FCC0448    16
                                                                                                                 MIO      2000
          1112  0123000000               SBL1     WL     B3          MOVE(BLK.SIZ,FSCM,FLCM)                     F7540FT    68
                                                                                                                 MIO      2009
          1113  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
          1114  0732001112 +                      GT     B2,B3,SBL1  IF L.GT. BLK.SIZ                            FCC0448    22
                                                                                                                 MIO      2014
          1115  0122000000               SBL2     WL     B2          MOVE(L,FSCM,FLCM)                           F7540FT    69
                                                                                                                 MIO      2023
          1116  0400001105 +                      EQ     SBL                                                     MIO      2024
                                                                                                                 MIO      2025
          1117  7110001132 +             ERRECSW  SX1    =C$ ECS WRITE ERROR$                                    MIO      2026
                          0400000000 X            EQ     =XFTNABT                                                MIO      2027
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    47
        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
          1120  0200401120 +             GBL      ROUTINE                                                        MIO      2039
                                                                                                                 MIO      2040
                                        *         READ BLOCK FROM LCM.                                           MIO      2041
                                                                                                                 MIO      2042
          1121  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
          1122  6130000377                        SB3    BLK.SIZ                                                 FCC0448    23
                          0723001126 +            LT     B2,B3,GBL2  IF L .LE. BLK.SIZ                           FCC0448    24
                                                                                                                 MIO      2048
          1123  0113000000               GBL1     RL     B3          MOVE(BLK.SIZ,FLCM,FSCM)                     F7540FT    70
                                                                                                                 MIO      2057
          1124  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
          1125  0623001123 +                      GE     B2,B3,GBL1  IF L .GT. BLK.SIZ                           FCC0448    30
                                                                                                                 MIO      2062
          1126  0112000000               GBL2     RL     B2          MOVE(L,FLCM,FSCM)                           F7540FT    71
                                                                                                                 MIO      2071
          1127  0400001120 +                      EQ     GBL                                                     MIO      2072
                                                                                                                 MIO      2073
          1130  7110001134 +             ERRECSR  SX1    =C$ ECS READ ERROR$                                     MIO      2074
                          0400000000 X            EQ     =XFTNABT                                                MIO      2075
                                                                                                                 MIO      2076
                                         #ECS     ENDIF                                                          MIO      2077
                                                                                                                 MIO      2078
          1136                                    END                                                            MIO      2079
  
                             66000B CM  STORAGE USED             4573 STATEMENTS      781 SYMBOLS      000124 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.329 SECONDS         912 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/47
        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           700   PROGRAM*       16/03     35/23     37/10 L   38/24     38/49
        ABLA          745   PROGRAM*       37/22     38/17     38/22     38/37     38/43     38/47     38/51 L
        ABLB          746   PROGRAM*       37/45     37/48     38/52 L
        ABL1          710   PROGRAM*       37/20     37/28     37/40 L
        ABL2          721   PROGRAM*       37/43     37/51     38/09 L
        ABL3          731   PROGRAM*       38/19     38/26 L
        ABL4          742   PROGRAM*       38/34     38/46 L
        ADT             4   PROGRAM*        3/22 L    7/11 S   18/42
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    48
        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           626   PROGRAM*       18/47     35/11 L   35/56     36/48     36/52     36/55
        ASLA          676   PROGRAM*       35/17     35/47     36/17     36/33 S   36/57 L
                                           35/46 S   35/48     36/27     36/35
        ASL1          634   PROGRAM*       35/12     35/27 L   36/37
        ASL2          650   PROGRAM*       35/36     35/54 L
        ASL3          651   PROGRAM*       35/40     36/01 L
        ASL4          660   PROGRAM*       36/20 L   36/29
        ASL5          665   PROGRAM*       36/07     36/32 L
        ASL6          671   PROGRAM*       36/23     36/41 L
        ASL7          674   PROGRAM*       35/21     36/50 L
        ASL8          675   PROGRAM*       36/04     36/15     36/30     36/54 L
        ATS=            0   EXTERNAL*       8/29      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     41/47
        BH.BIL         22                   4/43 D   19/56
        BH.BIP         44                   4/43 D    8/40     19/56     24/17     33/45     33/51     41/47     42/03
        BH.BSTL        22                   4/44 D   13/52     19/56     24/01
        BH.BSTP        22                   4/44 D   13/53     19/56     21/56     24/07     33/51
                                           12/04     13/56     20/44     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/41
        BH.LENP         0                   4/45 D   23/32     24/07     25/14     33/23     34/29     41/18     42/23
        BH.PRIP        72                   4/39 D   11/52     20/46     21/55     26/14     26/16     26/17
        BLK.SIZ       377                   2/25 D   46/18     47/16
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        BSI             0   EXTERNAL*       3/03 X   10/44     11/45     14/14     20/40
                                           10/16     11/01     13/24     15/17     21/53
        BT.AVP         73                   4/50 D
        BT.LENL        22                   4/54 D
        BT.LENP         0                   4/54 D   28/32     32/20     36/22     39/14
        BT.LKBL        22                   4/52 D   31/28     38/38
        BT.LKBP        44                   4/52 D   31/31     32/49     38/39     39/19     39/53
                                           31/29     32/22     32/52     38/41     39/47
        BT.LKFL        22                   4/53 D   32/37     39/31
        BT.LKFP        22                   4/53 D   31/19     32/22     32/41     36/41     39/14     39/47
                                           28/21     31/23     32/27     32/49     38/28     39/19
                                           28/32     31/31     32/32     36/13     38/32     39/33
                                           28/51     32/20     32/39     36/22     38/41     39/35
        B1=1            0 
        B=FBV           0   EXTERNAL*      43/11
        CGB           574   PROGRAM*       28/44     33/10 E   33/10 L   34/46     34/48
        CGB1          601   PROGRAM*       33/27 L   33/35     33/41     34/30
        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          620   PROGRAM*       33/27     34/34 L
        CGL           777   PROGRAM*       36/34     41/10 L   42/36
        CGLA         1036   PROGRAM*       41/16     41/21     41/33     41/51 S   42/22     42/38 L
        CGLB         1037   PROGRAM*       42/04     42/20     42/39 L
        CGL1         1010   PROGRAM*       41/26 L   41/35     41/42     42/26
        CGL2         1017   PROGRAM*       41/39     41/46 L
        CGL5         1033   PROGRAM*       41/26     42/30 L
        CIO=            0   EXTERNAL*      17/29     17/36     44/32     45/23
        CP#RM           0   FTNTEXT         7/21 F   17/13 F   44/19 F   45/15 F
        CT.CPU        111   FTNTEXT         2/07 F    2/39 F
        CT.ECS          1   FTNTEXT         7/07 F   15/53 F   18/41 F   20/25 F   34/50 F   45/33 F
        CT.7X           1   FTNTEXT         2/39 F
        DMB           355   PROGRAM*       23/14 E   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
        D.BML           1   FTNTEXT        16/23
        D.BMP          52   FTNTEXT        16/23
        D.FTP          65   FTNTEXT        16/12
        D.FT=1L         1                  16/13 D   16/23
        D.FT=1P        65                  16/12 D   16/23
        D.JFTL          1   FTNTEXT        16/19     16/23
        D.JFTP         34   FTNTEXT        16/19     16/23
        D.NRP          64   FTNTEXT        16/14
        D.NRXL          1                  16/15 D   16/19     16/23
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        D.NRXP         63                  16/14 D   16/19     16/23
        D.PIL           1   FTNTEXT        16/19     16/23
        D.PIP          36   FTNTEXT        16/19     16/23
        D.TYL           2   FTNTEXT        16/19     16/23
        D.TYP          72   FTNTEXT        16/19     16/23
        D.^DL           1   FTNTEXT        16/19     16/23
        D.^DP          51   FTNTEXT        16/19     16/23
        ERRECSR      1130   PROGRAM*       15/57     36/17     37/22     37/48     39/29     41/21     43/24     47/26
                                           35/17     36/27     37/45     38/37     39/49     41/33     47/19     47/30 L
        ERRECSW      1117   PROGRAM*       19/13     38/22     38/47     39/55     42/04     43/29     46/37
                                           38/17     38/43     39/39     41/16     42/20     46/30     46/41 L
        FTNABT          0   EXTERNAL*      46/42     47/31
        FWAB          100   //              3/07 L    3/24
        F.OPT           0   EXTERNAL*      17/26 S   17/29     44/29 S   44/32     45/22 S
                                           17/28 S   17/32     44/31 S   45/21 S   45/23
        F.RLST          0   EXTERNAL*       7/40
        GBD          1074   PROGRAM*       21/29     21/50     45/11 E   45/11 L   45/31
        GBL          1120   PROGRAM*       20/37     47/09 L   47/28
        GBL1         1123   PROGRAM*       47/19 L   47/24
        GBL2         1126   PROGRAM*       47/17     47/26 L
        GMB           310   PROGRAM*       14/48     17/40     20/08 E   20/08 L   20/19     20/52     22/04
        GMBA          353   PROGRAM*       21/24 S   21/31     22/06 L
        GMB0          316   PROGRAM*       20/11     20/21 L
        GMB1          326   PROGRAM*       20/28     20/57 L
        GMB2          342   PROGRAM*       21/09     21/16     21/35 L
        GMB3          346   PROGRAM*       21/19     21/47 L
        GMB4          350   PROGRAM*       21/43     21/52 L
        IBS            60   PROGRAM*        8/07      8/27      9/05 L    9/18
        IMPA           16   PROGRAM*        7/03 E    7/03 L    7/27
        IMPA1          21   PROGRAM*        7/09      7/12 L
        IMPB           23   PROGRAM*        7/31 E    7/31 L    7/49
        IMPB1          27   PROGRAM*        7/34      7/40 L
        IMPC           33   PROGRAM*        8/05 E    8/05 L    8/15
        IMPD           41   PROGRAM*        8/21 E    8/21 L    8/55
        LAL            14   PROGRAM*        3/30 L   36/11     38/26     39/23     39/43 S   42/32 S
        LAS            13   PROGRAM*        3/29 L    8/24 S   28/19     31/17     32/26     34/45 S
        LCM.FL          0   EXTERNAL*       7/08     35/28     35/51 S
        LCM.XL         20                   3/34 D   35/30     36/36
        L.BIT           0   EXTERNAL* 
        L.BLK           0   EXTERNAL*       8/09     34/35
        L.BST           0   EXTERNAL* 
        L.SEQ           0   EXTERNAL*      13/18 S   14/34 S   27/51 S
        L.TXT           0   EXTERNAL*       8/22      8/28      8/39 S   10/52     11/05
        MAX.BLK         1   PROGRAM*        3/16 E    3/16 L    8/06 S
        MAX.LCM         2   PROGRAM*        3/20 L    7/16 S   35/29
        MAX.RL          0   EXTERNAL*       3/03 X    7/41     17/25     19/22     20/21
        MIN.AB         40                   3/32 D   31/07     32/12
        MIN.AL        100                   3/33 D   38/14     39/09
        MOREFL          0   EXTERNAL*      25/36
        MVE=            0   EXTERNAL*       8/36     12/09     18/24     20/18     21/42     34/26
        MVL          1040   PROGRAM*       42/12     43/07 L   43/35
        MVL1         1045   PROGRAM*       43/15     43/22 L   43/33     43/39
        MVL2         1052   PROGRAM*       43/12     43/35 L
        MX.AVL         12   PROGRAM*        3/28 L   36/01     37/11     37/32     37/55     39/08     42/35 S
        MX.AVS         11   PROGRAM*        3/27 E    8/25 S   30/11     30/48     34/41 S
                                            3/27 L   27/29     30/30     32/11
        N.RRB          10   PROGRAM*        3/26 L    7/47 S   21/04     21/28 S
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        OC.BOS          1   FTNTEXT        16/17
        OPT2            0   EXTERNAL*      10/14     27/38
        O.BIT           0   EXTERNAL*       8/46     11/09     15/18     25/11     41/13
                                            9/08     13/32     23/35     33/14
        O.BLK           0   EXTERNAL*       8/08     23/31     25/44     33/16     34/34
        O.BST           0   EXTERNAL*      10/15     10/57     14/13     23/29     33/15
                                           10/43     13/23     15/16     25/12
        O.DISK          3   PROGRAM*        3/21 L   18/16     21/12     44/15
        O.LCM           0   PROGRAM*        3/15 E    3/15 L   35/27     37/40     41/12     42/33 S
        O.RRB           5   PROGRAM*        3/23 L    7/44 S   17/24     21/03     21/23     21/30
        O.RWB           6   PROGRAM*        3/24 L    7/32      7/45 S   19/24     19/36     19/40     21/11
        O.SEQ           0   EXTERNAL*      13/16 S   14/28 S   23/30     25/13     27/50 S   33/13     34/09 S
        O.SYM          12                   1/41 D
        O.TXT           0   EXTERNAL*       8/11 S    8/32     11/04
        PUNT            0   EXTERNAL*      29/18
        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           747   PROGRAM*       36/45     37/38     38/05     39/07 L   39/16     39/46     39/57
        RBLA          776   PROGRAM*       39/29     39/39     39/49     39/55     40/02 L
        RBL1          756   PROGRAM*       39/21     39/27 L
        RBL2          761   PROGRAM*       39/25     39/31 L
        RBL3          766   PROGRAM*       39/37     39/43 L
        RBL4          767   PROGRAM*       39/41     39/46 L
        RBS           172   PROGRAM*       15/09 E   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
        RDW=            0   EXTERNAL*      17/32
        RFWA           15   PROGRAM*        6/36 L   17/28     44/29     45/22
        RI.ATP         72                   4/07 D   14/51     15/54     20/27     24/44
                                           12/12     15/50     17/16     24/19     46/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/52     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     41/48
        RI.LCMP         0                   4/15 D   12/12     14/51     15/54     20/34     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/36     46/24
                                            8/49     13/41     14/51     18/28     20/15     44/47
                                           11/28     14/03     17/31     19/11     20/34     44/50
                                           11/38     14/07     17/35     19/15     21/05     46/22
        RI.OFSL        11                   4/10 D   21/37
        RI.OFSP        36                   4/10 D   18/18     21/36
        RI.RAL         36                   4/11 D   21/01     45/19
        RI.RAP          0                   4/11 D   21/05
        RLEN            7   PROGRAM*        3/25 L    7/33      7/38 S   18/17 S   19/23     19/47 S
        RNB           223   PROGRAM*       17/10 E   17/10 L   17/33     17/41
        RNB1          236   PROGRAM*       17/21     17/31 L   17/37
        RNB2          243   PROGRAM*       17/18     17/40 L
        RNS           245   PROGRAM*       17/20     17/43 L
        RTB           142   PROGRAM*       13/22 E   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
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 15.55.16.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        RTB2          157   PROGRAM*       13/49     14/01     14/13 L
        SBD          1054   PROGRAM*        7/36     19/38     19/51     44/11 E   44/11 L   44/51
        SBDA         1072   PROGRAM*       44/30     44/33     44/53 L
        SBDB         1073   PROGRAM*       44/17 S   44/46     44/54 L
        SBL          1105   PROGRAM*       19/08     46/10 L   46/39
        SBL1         1112   PROGRAM*       46/30 L   46/35
        SBL2         1115   PROGRAM*       46/28     46/37 L
        SMB           254   PROGRAM*       18/33 E   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
        SYS=            0   EXTERNAL*      35/47
        TEST            0   FTNTEXT         5/19 F
        TO              0   EXTERNAL*       8/14 S
        TOB             0   EXTERNAL*       8/13
        WFB            70   PROGRAM*       10/13 E   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
        WMB           105   PROGRAM*       10/36 S   10/42 E   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
        Z.BLK           0   EXTERNAL*       8/29      9/06     28/07
        Z.TXT           1                   1/41 D
        .OS             1   FTNTEXT         7/14 F
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      111              IDENT  FBV
                        111                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       106 
                                        LITERALS* LOCAL         106         3 
  
  
                                        ENTRY POINTS. 
  
                                        B=FBV            0+           FBV              1+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.BIT     O.CFT     O.SEQ     BN        O.IST     F.OPT     FTNABT
                                        L.BIT     L.CFT     L.SEQ     BVL       Z.RND     FUD 
                                        O.BVT     O.RND     O.TXT     M.BBL     Z.CFT     RNB 
                                        L.BVT     L.RND     L.TXT     NPB       WNB=      ATS=
  
  
  
  
                                                  IDENT  FBV                                                     FBV         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=FBV    RPVDEF                                                         FBV         5
                                                  PASS2TM                                                        FBV         6
                                                                                                                 FBV         7
  
  
                                        **        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                                 FBV        22
                                                                                                                 FBV        23
                                                  EXT    BN,BVL,M.BBL,NPB,O.IST                                  FBV        24
  
  
  
                                        **        FBV.ERR - REQUESTED BLOCK IS NOT SAME AS BLOCK RECEIVED FROM   FBV        26
                                        *         I/O ROUTINES.  THIS IS INDICATIVE OF A BUG IN *MIO* OR THE     FBV        27
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     2
                                                                      FBV 
  
                                        *         OPERATING SYSTEM ( *READNS* FUNCTION ).                        FBV        28
                                                                                                                 FBV        29
             0  7110000106 +             FBV.ERR  SX1    =C$ FTN/FBV - BLOCK READ ERROR$                         FBV        30
                          0400000000 X            EQ     =XFTNABT                                                FBV        31
  
  
             1                           CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                 CFTBLD      2
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     3
                                                                      FBV 
  
                                        **        FBV - FORM BIT VECTORS                                         FBV        35
                                                                                                                 FBV        36
             1  0400400001 +             FBV      ENTRY. **                                                      FBV        37
             2  5110000000 X                      SA1    M.BBL                                                   FBV        38
                          7211000002              ALLOC  TXT,X1+2    ALLOC( TXT , M.BBL + 2 )                    FBV        39
             4  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
             5  5110000000 X             FBV1     SA1    O.BIT                                                   FBV        46
                          7266000002              SX6    X6+2        BN = BN + 2                                 FBV        47
             6  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
             7  5130000000 X                      SA3    O.SEQ                                                   FBV        52
                          0305000020 +            ZR     X5,FBV3     IF RIW = 0    */ END OF PROGRAM BLOCKS      FBV        53
            10  5160000000 X                      SA6    BN                                                      FBV        54
                          5170000026 +            SA7    BIW                                                     FBV        55
            11  0100000000 X                      CALL   RNB         READ NEXT BLOCK                             FBV        56
            12  5120000026 +                      SA2    BIW                                                     FBV        57
                          5150000000 X            SA5    O.SEQ                                                   FBV        58
                                                  LX2    59-BI.RBP                                               FBV        59
            13  0322000016 +                      PL     X2,FBV2     IF ^RB[BIW]   */ DEAD CODE                  FBV        60
                          5140000000 X            SA4    BN                                                      FBV        61
            14  53150                             SA1    X5                                                      FBV        62
                     13641                        BX6    X4-X1                                                   FBV        63
                          63260                   SB2    X6                                                      FBV        64
            15  0520000000 +                      NZ     B2,FBV.ERR  IF BN[SEQ] " BN  */ READNS ERROR            FBV        65
                                                                                                                 FBV        66
                          0100000000 X            CALL   FUD         FORM USE/DEF BIT VECTORS                    FBV        67
                                                                                                                 FBV        68
            16  5110000000 X             FBV2     SA1    BN                                                      FBV        69
                          7261000000              SX6    X1+                                                     FBV        70
            17  0400000005 +                      EQ     FBV1                                                    FBV        71
                                                                                                                 FBV        72
            20  7170000000               FBV3     SX7    0                                                       FBV        73
                          5170000000 X            SA7    L.TXT       L.TXT = 0                                   FBV        74
                                                                                                                 FBV        75
            21  0100000027 +                      RJ     SNO         SET NODE ORDER                              FBV        76
                                                                                                                 FBV        77
            22  0100000055 +                      RJ     CLI         COMPUTE LIVE EXIT BIT VECTORS               FBV        78
                                                                                                                 FBV        79
                                                  IFEQ   CP#RM,0,1                                               FBV        80
            23  7120000000 X                      RECALL =XF.OPT     WAIT UNTIL READ NS FINISHED                 FBV        81
            24  7160000000                        SX6    0                                                       FBV        82
                          5160000000 X            SA6    L.RND       L.RND = 0                                   FBV        83
            25  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
                          0400000001 +            EQ     FBV                                                     FBV        89
                                                                                                                 FBV        90
            26                     1     BIW      BSS    1           SAVED COPY OF BLOCK INDEX WORD              FBV        91
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     4
        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
                                         TREE     DEFINE 1           IN TREE                                     FBV       100
                                                  DEFINE 11                                                      FBV       101
                                         SUI      DEFINE 18          SUCCESSOR INDEX                             FBV       102
                                         NS       DEFINE 12          N.SUCC NOT VISITED                          FBV       103
                                         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
            27  0200400027 +             SNO      ROUTINE                                                        FBV       115
            30  5150000000 X                      SA5    NPB                                                     FBV       116
                          73251                   SX2    X5+B1                                                   FBV       117
                               22112              LX1    B1,X2                                                   FBV       118
            31  5100000000 X                      ALLOC  CFT,X1      ALLOC( CFT , 2*(NPB+1) )                    FBV       119
            32  63720                             S"C0"  X2          C0 = O.CFT                                  FBV       120
                     5110000000 X                 SA1    O.IST                                                   FBV       121
                               63250              SB2    X5          N = NPB                                     FBV       122
            33  6261000003                        S"EI"  X1+3        EIB = O.IST + 3                             FBV       123
                          7160002000              SX6    2000B                                                   FBV       124
            34  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
            35  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
            36  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
            37  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
            40  0520000036 +                      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
            41  56740                             SA7    "ST"        [ST] = 0                                    FBV       146
                     66510                        S"NO"  B1          NO = 1                                      FBV       147
                          7170000001              S"N"   1           N = 1         */ START WITH PROG ENTRY BLOC FBV       148
                                                                                                                 FBV       149
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     5
        SNO - SET NODE ORDER BY A DEPTH FIRST SEARCH                  SNO 
  
                                        *         VISIT NODE *N*                                                 FBV       150
                                                                                                                 FBV       151
            42  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
            43  26536                             UX5    "NS",X6                                                 FBV       156
                     63266                        SB2    "EI"+X6                                                 FBV       157
                                                                                                                 FBV       158
                                        *         VISIT SUCCESSORS                                               FBV       159
                                                                                                                 FBV       160
            44  0430000050 +             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
            45  53237                             SA2    "C0"+X3                                                 FBV       165
                                                  LX2    59-I.TREEP                                              FBV       166
                     0332000044 +                 MI     X2,SNO3     IF TREE[C(I)] */ IF SUCC IN TREE            FBV       167
                                                                                                                 FBV       168
                               27636              PX6    "NS",X6                                                 FBV       169
            46  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
            47  73730                             S"N"   X3          N = I         */ SET TO VISIT SUCCESSOR     FBV       176
                     0400000042 +                 EQ     SNO2                                                    FBV       177
                                                                                                                 FBV       178
                                        *         LAST VISIT TO NODE, ASSIGN NUM(NO) = BLOCK NUMBER              FBV       179
                                                                                                                 FBV       180
            50  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
            51  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
            52  73740                             S"N"   X4          N = [ST]      */ FETCH LAST FROM STACK      FBV       192
                     67441                        S"ST"  "ST"-B1     ST = ST - 1                                 FBV       193
                          0317000042 +            NZ     "N",SNO2    IF N " 0                                    FBV       194
                                                                                                                 FBV       195
            53  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
            54  5170000000 X                      SA7    L.CFT       L.CFT = NO + 1                              FBV       200
                          0400000027 +            EQ     SNO                                                     FBV       201
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     6
        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
            55  0200400055 +             CLI      ROUTINE                                                        FBV       214
            56  5120000000 X                      SA2    O.IST                                                   FBV       215
                          5222000002              SA2    X2+2        GBM = [O.IST+2]                             FBV       216
                                                  LX2    -GB.ILIP                                                FBV       217
            57  7212000003                        ALLOC  RND,X2+3    ALLOC( RND , ILI[GBW]+3 )                   FBV       218
            61  5140000000 X                      SA4    O.CFT                                                   FBV       219
                          5110000000 X            SA1    O.BVT                                                   FBV       220
            62  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
            63  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
            64  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
            65  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
            66  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
            67  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
            70  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
            71  0520000067 +                      NZ     B2,CLI2     IF NS " 0                                   FBV       252
                                                                                                                 FBV       253
                          5055000001              SA5    A5+1        NI = NI + 1;  I = BN[NI]                    FBV       254
            72  0315000065 +                      NZ     X5,CLI1     IF [NI] " 0                                 FBV       255
                          43700                   MX7    0                                                       FBV       256
                               54771              SA7    A7+B1       CS = CS + 1;  [CS] = 0  */ TERMINATOR       FBV       257
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     7
        CLI - COMPUTE LIVE EXIT INFORMATION                           CLI 
  
                                        *         NOW COMPUTE THE LIVE EXIT VECTORS FOR EACH PROGRAM BLOCK       FBV       259
                                                                                                                 FBV       260
            73  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
            74  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
            75  5050000000               CLI3     SA5    A0+         CI = C0;  BVA = [CI]                        FBV       269
                          7100000000              SX0    0           CHNG = 0                                    FBV       270
                                                                                                                 FBV       271
            76  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
            77  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
           100  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
           101  0335000077 +                      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
           102  12006                             BX0    X0+X6       CHNG = CHNG ! XOR(OLX,LX)                   FBV       290
                     0315000076 +                 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
           103  66661                             SB6    B6+B1       N = N + 1                                   FBV       296
                     0316000075 +                 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
           104  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
           105  0723000075 +                      LT     B2,B3,CLI3  IF WI < VL                                  FBV       305
                          0400000055 +            EQ     CLI                                                     FBV       306
                                                                                                                 FBV       307
                                                  IFLT   *-FBV,100B,1                                            FBV       308
                                                  BSS    FBV+100B-*                                              FBV       309
                                                                                                                 FBV       310
           111                                    END                                                            FBV       311
  
                             65300B CM  STORAGE USED              992 STATEMENTS      644 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.701 SECONDS          95 REFERENCES
  
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     8
        SYMBOLIC REFERENCE TABLE. 
  
        ATS=            0   EXTERNAL*       3/05      4/27      6/16
        BIW            26   PROGRAM*        3/21 S    3/23      3/57 L
        BN              0   EXTERNAL*       1/52 X    3/20 S    3/27      3/35
        BVL             0   EXTERNAL*       1/52 X    7/03
        B1=1            0 
        CLI            55   PROGRAM*        3/44      3/52 F    6/12 L    7/48
        CLI1           65   PROGRAM*        6/31 L    6/53
        CLI2           67   PROGRAM*        6/41 L    6/50
        CLI3           75   PROGRAM*        7/11 L    7/39      7/47
        CLI4           76   PROGRAM*        7/14 L    7/33
        CLI5           77   PROGRAM*        7/20 L    7/28
        CP#RM           0   FTNTEXT         3/46 F
        EI.SUIP        14                   4/42      6/33
        FBV             1   PROGRAM*        3/03 E    3/03 L    3/55      7/50 F
        FBV1            5   PROGRAM*        3/12 L    3/37
        FBV2           16   PROGRAM*        3/26      3/35 L
        FBV3           20   PROGRAM*        3/19      3/39 L
        FBV.ERR         0   PROGRAM*        2/03 L    3/31
        FTNABT          0   EXTERNAL*       2/04
        FUD             0   EXTERNAL*       3/33
        F.OPT           0   EXTERNAL*       3/47
        I.BNL          22                   4/12 D
        I.BNP           0                   4/12 D
        I.NSL          14                   4/11 D
        I.NSP          22                   4/11 D    4/34
        I.SUIL         22                   4/10 D
        I.SUIP         36                   4/10 D    4/47      5/06      5/21      5/33
        I.TREEP        73                   4/08 D
        L.BIT           0   EXTERNAL* 
        L.BVT           0   EXTERNAL* 
        L.CFT           0   EXTERNAL*       3/50 S    5/51 S
        L.RND           0   EXTERNAL*       3/49 S
        L.SEQ           0   EXTERNAL* 
        L.TXT           0   EXTERNAL*       3/40 S
        M.BBL           0   EXTERNAL*       1/52 X    3/04
        NPB             0   EXTERNAL*       1/52 X    4/24
        O.BIT           0   EXTERNAL*       3/12      6/23
        O.BVT           0   EXTERNAL*       6/18
        O.CFT           0   EXTERNAL*       6/17
        O.IST           0   EXTERNAL*       1/52 X    4/29      6/13      6/20
        O.RND           0   EXTERNAL* 
        O.SEQ           0   EXTERNAL*       3/07 S    3/18      3/24
        O.SYM          12                   1/34 D
        O.TXT           0   EXTERNAL* 
        RNB             0   EXTERNAL*       3/22
        SNO            27   PROGRAM*        3/42      4/23 L    5/52
        SNO1           36   PROGRAM*        4/42 L    4/50
        SNO2           42   PROGRAM*        5/03 L    5/28      5/45
        SNO3           44   PROGRAM*        5/12 L    5/18
        SNO4           50   PROGRAM*        5/12      5/32 L
        WNB=            0   EXTERNAL*       3/47
        Z.CFT           0   EXTERNAL*       4/27
        Z.RND           0   EXTERNAL*       6/16
        Z.TXT           1                   1/34 D
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 15.55.19.      PAGE     9
        SYMBOLIC REFERENCE TABLE.                                     DEBUG 
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     CLI                                 3/52 F
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4322              IDENT  GPO
                       4322                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4315 
                                        LITERALS* LOCAL        4315         1 
                                        GPOGRA    COMMON          0        40 
                                        BVINFO    COMMON          0         4 
                                        TABLES    COMMON          0       130 
                                        //        COMMON          0         1 
                                        CLCM      LOCAL        4316         4 
  
  
                                        ENTRY POINTS. 
  
                                        B=GPO            0+           M.BBL           12+           BN              31+ 
                                        DMASK            0+           M.EBL           13+           BSI             32+ 
                                        O.UDT            0+/GPOGRA/   N.GT            14+           BSW             33+ 
                                        N.GL0            1+           O.BIT           15+           L.HB            34+ 
                                        N.VAR            1+/BVINFO/   L.BIT           16+           NBIP            46+ 
                                        BVL              2+/BVINFO/   O.BVT           17+           HBI             47+ 
                                        CBN              2+           L.BVT           20+           PCC            101+ 
                                        NPB              3+           L.PTXT          22+           SRI            127+ 
                                        M.GRL            4+           O.LCT           23+           COL            154+ 
                                        N.DG             5+           L.LCT           24+           GPO            265+ 
                                        GIC              6+           O.ELT           25+           EBV           1256+ 
                                        O.IST            7+           L.ELT           26+           FUD           1307+ 
                                        M.LP            10+           O.SEQ           27+           MBT           4302+ 
                                        N.FTH           11+           L.SEQ           30+           MPB           4172+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.BLK     O.BST     O.RXI     CMO       RBS       O.GLT     F.CFA     AUT 
                                        L.BLK     L.BST     L.RXI     O.API     LINENR    Z.TEND    F.UDT     CMR 
                                        O.TXT     O.IIT     Z.TET     UOFLAG    Z.BST     GRA       IMPB      Z.UDI 
                                        L.TXT     L.IIT     MVE=      STLDS     GBD       F.RDT     CII       SETCORE 
                                        O.GST     O.MLT     Z.MOD     SUVA      GMB       IMPC      LM        Z.BLK 
                                        L.GST     L.MLT     SIE       CUC       L.CFT     MX.BLN    MCG       AFT=
                                        O.UDI     O.MOD     IT.       WMB       N.IT      PUNT      Z.PIT     MU
                                        L.UDI     L.MOD     ATS=      Z.MLT     SHL       MOREFL    ESR       P2.FL 
                                        O.TET     O.RND     ADW=      RIO       Z.CFT     CWS=      L.ALS     AMU=
                                        L.TET     L.RND     Z.IIT     ESRA      PARCEL    FBV       RTB       PRE 
                                        O.PIT     O.PSI     Z.RND     SQZB      O.TEND    OPT2      Z.RXI     N.GL
                                        L.PIT     L.PSI     TYIOM     CXB       LWAWORK   DGS       IMPD
  
  
  
  
                                                  IDENT  GPO                                                     GPO         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE     2
  
  
                                                                                                                 SSTCALL     5
             0                           B=GPO    RPVDEF                                                         GPO         5
                                                  PASS2TM                                                        GPO         6
                                                                                                                 GPO         7
  
  
                                        **        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 *PRE*.  IT CONSISTS OF SUBDIVIDING THE INTERMEDIATE *TEXT*  GPO        17
                                        *         INTO BASIC BLOCKS AND WRITING THEM TO A RANDOM FILE,           GPO        18
                                        *         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
  
  
  
                                   3     OF.MP    EQU    3           *MATERIALIZE* BIT IN *FLG* FIELD OF WORD B  GPO        44
                                        *                            OF LOOP GENERATED LABELS ( *XX* ) .         GPO        45
                                                                                                                 GPO        46
                                                  LIST   -R,X                                                    GPO        47
                                                                                                                 GPO        48
                                                  TABLES BLK,TXT,GST,UDI,TET,PIT                                 GPO        49
                                                  TABLES BST,IIT,MLT,MOD,RND,PSI,RXI                             GPO        50
                                                                                                                 GPO        51
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE     3
        CFTBLD - CONTROL FLOW TABLE DEFINITIONS                       CFTBLD
  
             0                           CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                 CFTBLD      2
                                                                                                                 CFTBLD      3
                                        **        CF. - CONTROL FLOW TABLE FORMAT                                CFTBLD      4
                                                                                                                 CFTBLD      5
                                                  DESCRIBE CF.,60                                                CFTBLD      6
                                         JP       DEFINE 1                                                       CFTBLD      7
                                                  DEFINE 11                                                      CFTBLD      8
                                         FROM     DEFINE 18          BLOCK NUMBER OF PRED                        CFTBLD      9
                                                  DEFINE 12                                                      CFTBLD     10
                                         TO       DEFINE 18          BLOCK NUMBER OF SUCC                        CFTBLD     11
  
  
  
                                        **        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
                                         LB       DEFINE 18          LINK BACKWARDS ( LENGTH OF LAST GRAPH )     CFTBLD     21
                                         LF       DEFINE 18          LINK FOWARD ( LENGTH OF THIS GRAPH )        CFTBLD     22
                                                                                                                 CFTBLD     23
                                                  DESCRIBE GB.,60                                                CFTBLD     24
                                                  DEFINE 6                                                       CFTBLD     25
                                         NLP      DEFINE 18          N.LOOPS                                     CFTBLD     26
                                         NB       DEFINE 18          N.BLOCKS IN GRAPH                           CFTBLD     27
                                         ILI      DEFINE 18          INTERVAL LIST INDEX ( REL TO *EII* )        CFTBLD     28
  
  
                                        **        EI. - EDGE INDEX TABLE                                         CFTBLD     30
                                                                                                                 CFTBLD     31
                                                  DESCRIBE EI.,60                                                CFTBLD     32
                                         PRI      DEFINE 18          PREDECESSOR INDEX  ( REL TO EIB )           CFTBLD     33
                                         NP       DEFINE 12          N.PRED ( PACKED )                           CFTBLD     34
                                         SUI      DEFINE 18          SUCCESSOR INDEX                             CFTBLD     35
                                         NS       DEFINE 12          N.SUCC ( PACKED )                           CFTBLD     36
  
  
                                        **        ET. - EDGE TABLE FORMAT                                        CFTBLD     38
                                                                                                                 CFTBLD     39
                                                  DESCRIBE ET.,60                                                CFTBLD     40
                                         JP       DEFINE 1           JUMP EDGE ( SUCCESSOR EDGES )               CFTBLD     41
                                                  DEFINE 11                                                      CFTBLD     42
                                         PRED     DEFINE 18          BLOCK NUMBER OF PRED                        CFTBLD     43
                                                  DEFINE 12                                                      CFTBLD     44
                                         SUCC     DEFINE 18          BLOCK NUMBER OF SUCCESSOR                   CFTBLD     45
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE     4
        CFTBLD - CONTROL FLOW TABLE DEFINITIONS                       IP
  
                                        **        IP. - INTERVAL PROPERTIES                                      CFTBLD     47
                                                                                                                 CFTBLD     48
                                                  DESCRIBE IP.,60                                                CFTBLD     49
                                         GL       DEFINE 1           SET IF REGION NEEDS A *GL* WHEN OPTIMIZED   CFTBLD     50
                                         FT       DEFINE 1           FALL THROUGH TO HEADER NODE                 FCC0408     7
                                                  DEFINE 4                                                       FCC0408     8
                                         NIP      DEFINE 18          N. INTERNAL PRED OF HEADER NODE             FCC0392    11
                                         PB       DEFINE 18          BLOCK NUMBER OF PROLOGUE BLOCK ( *SCR* " 0  CFTBLD     53
                                         NODE     DEFINE 18          NUMBER OF NODES IN INTERVAL                 CFTBLD     54
  
  
                                        **        IM. - INTERVAL MEMBER PROPERTIES                               CFTBLD     56
                                                                                                                 CFTBLD     57
                                                  DESCRIBE IM.,60                                                CFTBLD     58
                                         SCR      DEFINE 1           IN STRONGLY CONNECTED REGION                CFTBLD     59
                                         AP       DEFINE 1           ARTICULATION POINT                          CFTBLD     60
                                         LN       DEFINE 1           LATCHING NODE ( JUMPS BACK TO LOOP HEADER ) CFTBLD     61
                                         DOM      DEFINE 1           NODE IS A DOMINATOR                         CFTBLD     62
                                         EN       DEFINE 1           INTERVAL EXIT NODE                          CFTBLD     63
                                         HN       DEFINE 1           HEADER NODE                                 CFTBLD     64
                                         BI       DEFINE 18          INDEX TO BLOCK INFO IN *BIT*                CFTBLD     65
                                         IBD      DEFINE 18          IMMEDIATE BACK DOMINATOR ( REL TO *HN* )    CFTBLD     66
                                         BN       DEFINE 18          NODE NUMBER OF BLOCK                        CFTBLD     67
                                                                                                                 CFTBLD     68
                                         APLN     DEQU   LN,2        AP AND LN BITS                              CFTBLD     69
                                                                                                                 CFTBLD     70
                                                  ENDX                                                           CFTBLD     71
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
                                         IC       DEFINE 1           =1  IN CORE, =0 ON MS                       IOTBLD      7
                                         AT       DEFINE 1           ADDRESS TYPE, =0 DISK, =1 LCM               IOTBLD      8
                                                  DEFINE 1                                                       IOTBLD      9
                                         LEN      DEFINE 18          BLOCK LENGTH (INCORE COPY)                  IOTBLD     10
                                         OFS      DEFINE 9           BLOCK OFFSET IN RECORD                      IOTBLD     11
                                         RA       DEFINE 30          DISK ADDRESS OF BLOCK                       IOTBLD     12
                                                                                                                 IOTBLD     13
                                                  DESCRIBE RI.,36                                                IOTBLD     14
                                         FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                       IOTBLD     15
                                         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
                                         BLK      DEFINE 1           =1 IF BLOCK IS IN *BLK*                     IOTBLD     21
                                         PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                  IOTBLD     22
                                         HB       DEFINE 1           HOLDING BLOCK                               IOTBLD     23
                                         FW       DEFINE 1           FINAL WRITE FLAG                            IOTBLD     24
                                                  DEFINE 2                                                       IOTBLD     25
                                         BI       DEFINE 18          *BIT* INDEX ( = BN*2 )                      IOTBLD     26
                                         LEN      DEFINE 18          BLOCK LENGTH  (INCORE COPY)                 IOTBLD     27
                                         FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                       IOTBLD     28
                                                                                                                 IOTBLD     29
                                         HBB      DEQU   HB,2        HB AND PRI BITS                             IOTBLD     30
                                         SAV      DEQU   BI,23                                                   IOTBLD     31
                                         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
                                         AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                 IOTBLD     37
                                         PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                  IOTBLD     38
                                         HB       DEFINE 1           HOLDING BLOCK                               IOTBLD     39
                                         FW       DEFINE 1           FINAL WRITE FLAG                            IOTBLD     40
                                                  DEFINE 2                                                       IOTBLD     41
                                         BI       DEFINE 18          BIT INDEX, (BN*2)                           IOTBLD     42
                                         BST      DEFINE 18          INDEX TO BST TABLE                          IOTBLD     43
                                         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
                                         AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                 IOTBLD     49
                                                  DEFINE 5                                                       IOTBLD     50
                                         LKB      DEFINE 18          ABS LINK BACKWARD                           IOTBLD     51
                                         LKF      DEFINE 18          ABS LINK FORWARD                            IOTBLD     52
                                         LEN      DEFINE 18          BLOCK LENGTH (INCLUDING EXTRA WORDS)        IOTBLD     53
                                                                                                                 IOTBLD     54
                                                  ENDX                                                           IOTBLD     55
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
                                         CR       DEFINE 1                                                       UDTBLD      8
                                         HL       DEFINE 18          HASH LINK                                   UDTBLD      9
                                         CA       DEFINE 18          BIAS ( IF CR " 0, THEN CA = -0 )            UDTBLD     10
                                         IH       DEFINE 18          BASE ( SYMBOL ORDINAL )                     UDTBLD     11
                                                                                                                 UDTBLD     12
                                         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
                                         DEFR     DEFINE 1           DEFINED IN REGION                           UDTBLD     23
                                         DEF      DEFINE 1           IH/CA DEFINED IN BLOCK                      UDTBLD     24
                                         DBU      DEFINE 1           DEFINITION BEFORE USE                       UDTBLD     25
                                         USE      DEFINE 1           USE                                         UDTBLD     26
                                         ^RD      DEFINE 1           NOT RECURSIVELY DEFINED                     UDTBLD     27
                                         IST      DEFINE 1           INTERFERING STORE ( RJX, ETC. )             UDTBLD     28
                                                                                                                 UDTBLD     29
                                         STC      DEFINE 9           STORE COUNT                                 UDTBLD     30
                                         RF       DEFINE 1           SHORT USAGE IN A LOOP                       FCC1504X    7
                                         FP       DEFINE 1           IH/CA IS A F.P.                             UDTBLD     31
                                                  DEFINE P.FP-P.COM-1                                            UDTBLD     32
                                         COM      DEFINE 1           IH/CA IS IN COMMON                          UDTBLD     33
                                                  DEFINE 5-P.FP+P.COM                                            FCC1504X    8
                                         BMI      DEFINE 18          INDEX TO BASE MEMBER ( CM " 0 )             UDTBLD     35
                                         CM       DEFINE 1           CLASS MEMBER ( NON BASE MEMBER OF EQV CLASS UDTBLD     36
                                         CR       DEFINE 1           CLASS REPRESENTATIVE                        UDTBLD     37
                                         ECL      DEFINE 18          EQUIV CHAIN LINK ( TO NEXT ON CHAIN )       UDTBLD     38
                                                                                                                 UDTBLD     39
                                         DEFB     DEQU   DEF,2       DEF BITS ( REGION AND BLOCK )               UDTBLD     40
                                         MV       DEQU   USE,3       MARKED VARIABLE ( USE, DBU, DEF )           UDTBLD     41
                                         CB       DEQU   CR,2        CLASS BITS                                  UDTBLD     42
                                         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
                                         UXR      DEFINE 1           =1 IF USER EXT REFS IN BLOCK                UDTBLD     49
                                                  DEFINE 17                                                      UDTBLD     50
                                         MRA      DEFINE 24          MACHINE REGISTERS AVAIL                     UDTBLD     51
                                         TXTL     DEFINE 18          *TXT* LENGTH OF BLOCK                       UDTBLD     52
                                                                                                                 UDTBLD     53
                                                  ENDX                                                           UDTBLD     54
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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                                                   GPOCOM     23
                                                  ENDM                                                           GPOCOM     24
  
  
                                        **        FBVA - FORM BLOCK BIT VECTOR ADDRESS                           GPOCOM     26
                                        *                                                                        GPOCOM     27
                                        *         ENTRY  (BN) = REGISTER WITH *BI* INDEX OF BLOCK                GPOCOM     28
                                        *                                                                        GPOCOM     29
                                        *         EXIT   (X7) = BVA = O.BVT + BVI[BIT(BN)]                       GPOCOM     30
                                        *                (X4) = BIT(BN)                                          GPOCOM     31
                                        *                (B2) = VL = BVL + 1                                     GPOCOM     32
                                                                                                                 GPOCOM     33
                                         FBVA     MACRO  BN                                                      GPOCOM     34
                                                  R=     B3,BN                                                   GPOCOM     35
                                                  SA1    O.BVT                                                   GPOCOM     36
                                                  SA2    BVL                                                     GPOCOM     37
                                                  SA3    O.BIT                                                   GPOCOM     38
                                                  SB2    X2+B1       VL = BVL + 1                                GPOCOM     39
                                                  SA4    X3+B3       BIT(BN)                                     GPOCOM     40
                                                  LX4    -BI.BVIP                                                GPOCOM     41
                                                  IX7    X1+X4       BVA = O.BVT + BVI[BIT(BN)]                  GPOCOM     42
                                                  LX4    BI.BVIP                                                 GPOCOM     43
                                                  ENDM                                                           GPOCOM     44
  
  
                                        **        PRNTABV - PRINT A BIT VECTOR                                   GPOCOM     46
                                        *                                                                        GPOCOM     47
                                        *         PRNTABV  LAB,(LIST OF VECTOR ADDRESS"S)                        GPOCOM     48
                                                                                                                 GPOCOM     49
                                         PRNTABV  MACRO  LAB,BVA                                                 GPOCOM     50
                                                  IF     DEF,/DEBUG/LAB,3                                        GPOCOM     51
                                                  IRP    BVA                                                     GPOCOM     52
                                                  DCALL  PRNTABV,(=5L BVA ,[_BVA_])                              GPOCOM     53
                                                  IRP                                                            GPOCOM     54
                                                  ENDM                                                           GPOCOM     55
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
                                         SCR      DEFINE 1           IN *SCR*                                    GPOCOM     65
                                         JP       DEFINE 1           SUCC REACHED BY A *JP* EDGE                 GPOCOM     66
                                         ALLP     DEFINE 1           ALL PRED OF EXIT NODE IN *SCR*              GPOCOM     67
                                         NPRED    DEFINE 9           N.PRED IN SCR OF SUCCESSOR NODE             GPOCOM     68
                                         PRED     DEFINE 15          *BI* OF FIRST PRED IN SCR TO REACH SUCC     FCC0985     5
                                         LINK     DEFINE 18          LINK TO NEXT ON SUCC LIST                   GPOCOM     70
                                         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
                                         REG      DEFINE 6           REGISTER NUMBER THAT VAR IS IN ( *SO* ORDER GPOCOM     80
                                         UDI      DEFINE 18          UDI INDEX OF VARIABLE                       GPOCOM     81
                                         CAIH     DEFINE 36          BASE/BIAS OF SYMBOL                         GPOCOM     82
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
                                        *                                                                        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
                                         MIP      DEFINE 1           MARKED *IP*                                 GPOCOM    105
                                                  DEFINE 5                                                       GPOCOM    106
                                         CN       DEFINE 18          CLASS NUMBER OF SET OF SIMILAR *IP"S*       FCC0514    20
                                         CA       DEFINE 18          CA OF IP THIS *IP* IS SIMILAR TO            GPOCOM    108
                                         LF       DEFINE 18          LINK FOWARD ( REL TO *O.IIT* )              GPOCOM    109
                                                                                                                 GPOCOM    110
                                                  DESCRIBE IA.,60                                                GPOCOM    111
                                         NWD      DEFINE 12          P(N.WDS IN FORMULA) , INCLUDES HEADER WDS   GPOCOM    112
                                                  DEFINE 12                                                      GPOCOM    113
                                         CA       DEFINE 18          CA OF *IP*                                  GPOCOM    114
                                         UDI      DEFINE 18          *UDI* INDEX OF INTEGER VARIABLE *LD*        GPOCOM    115
                                                                                                                 GPOCOM    116
                                                  DESCRIBE IB.,60                                                GPOCOM    117
                                         NLD      DEFINE 12          P(N.LD"S IN FORMULA)                        GPOCOM    118
                                                  DEFINE 30                                                      GPOCOM    119
                                         ILD      DEFINE 18          *RI* OF *LD* OF *RD* VAR IN EXPRESSION      GPOCOM    120
                                                                                                                 GPOCOM    121
                                        *         C) A LIST OF POLYNOMIAL INCREMENT VALUES AT THE POINT          GPOCOM    122
                                        *         OF A *RD*.                                                     GPOCOM    123
                                        *         THIS LIST CONSISTS OF 2 WORDS / ENTRY, TERMINATED BY A 0 WORD  GPOCOM    124
                                        *                                                                        GPOCOM    125
                                        *         WORD 1 = 60/CA OF *TST* THAT IS BEGIN INCREMENTED              GPOCOM    126
                                        *         WORD 2 = 12/TYPE,48/VAL OF INCREMENT , AS IN LIST A .          GPOCOM    127
                                        *                                                                        GPOCOM    128
                                        *         THE FORMAT OF THE LINK WORD OF THE *RD* IS                     GPOCOM    129
                                        *                12/P(N.PI),12/,18/STC,18/INDEX TO LIST IN *IIT*         GPOCOM    130
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    10
        GPO/GRA COMMON VARIABLES                                      COMMON
  
                                        *         THE FOLLOWING LOCATIONS ARE SHARED BETWEEN *GPO* AND *GRA*     GPOCOM    132
                                                                                                                 GPOCOM    133
                                                  USE    /GPOGRA/                                                GPOCOM    134
             0                     1     O.UDT    BSS    1           FWA OF *UDI* IN LOW CORE                    GPOCOM    135
             1                     1     L.UDT    BSS    1           LENGTH                                      GPOCOM    136
             2                     1     O.MVL    BSS    1           FWA OF MARKED VAR LIST ( IN *UDT* )         GPOCOM    137
                                                                                                                 GPOCOM    138
                                        *         ADDRESS"S OF SPECIAL BIT VECTORS                               GPOCOM    139
                                                                                                                 GPOCOM    140
             3                     1     DVA      BSS    1           REGION *DEF* VECTOR                         GPOCOM    141
             4                     1     LUV      BSS    1           LOOP USEAGE VECTOR                          GPOCOM    142
             5                     1     UVA      BSS    1           REGION *USE* VECTOR                         GPOCOM    143
             6                     1     LXA      BSS    1           REGION *LIVE EXIT* VECTOR                   GPOCOM    144
                                                                                                                 GPOCOM    145
             7                     1     LEA      BSS    1           REGION *LIVE ENTRY* VECTOR                  GPOCOM    146
            10                     1     MDA      BSS    1           *MOVABLE DEFS*                              GPOCOM    147
            11                     1     SVA      BSS    1           SCRATCH VECTOR                              GPOCOM    148
                                   7     N.SBV    EQU    *-DVA       N. SPECIAL BIT VECTORS                      GPOCOM    149
                                        *                        WSC                                             GPOCOM    150
            12  00000000000000000100     M.PL     CON    100B        MAX *PIT* LENGTH                            GPOCOM    151
                                                                                                                 GPOCOM    152
            13  00000000000000000002     EMF      CON    2           FP/LVL EXPANSION MODE ( *CBB* ARGUMENT )    GPOCOM    153
            14                     1     ITL      BSS    1           INITIAL *TET* LENGTH                        GPOCOM    154
            15  00000000000077777777     MRA      VFD    36/,24/-0   MACHINE REGISTERS AVAILABLE ( 8/X,8/A,8/B ) GPOCOM    155
            16                     1     LGL      BSS    1           LP GEN LBL, LL=LP LBL 42/GEN LBL-LL,18/LL   FCC0909     7
                                                                                                                 GPOCOM    156
                                        *                           ?FWA OF CLEARED CELLS                        GPOCOM    157
            17                     1     N.HB     BSS    1           N. HOLDING BLOCKS IN LOOP ( =0 IF INNERMOST GPOCOM    158
            20                     1     XRF      BSS    1           "0 IF LOOP CONTAINS EXTERNAL REFS           GPOCOM    159
                                                                                                                 GPOCOM    160
            21                     1     LCV      BSS    1           18/UDI,36/CAIH OF LOOP CONTROL VAR          GPOCOM    161
            22                     1              BSS    1           REGNO THAT IT IS IN                         GPOCOM    162
            23                     1     LUL      BSS    1           LOOP UPPER LIMIT IN *IIT A* FORMAT          GPOCOM    163
            24                     1              BSS    1           REGNO THAT IT IS IN                         GPOCOM    164
            25                     2     LIH      BSS    2           IH OF LOOP LABEL / *R2* WORD OF *LAB*       GPOCOM    165
            27                     1     N.LJ     BSS    1           N. JPX"S THAT REF LOOP LABEL                GPOCOM    166
            30                     1     LTT      BSS    1           LOOP TEST TYPE, =0 IF NO TEST REPLACEMENT   GPOCOM    167
                                        *                            =1 , TEST IS  IF( LCV @ LUL ) GO TO LIH     GPOCOM    168
                                        *                        FXI                                             GPOCOM    169
            31                     1     O.ENL    BSS    1           FWA OF EXIT NODE LIST IN *BTT*              GPOCOM    170
            32                     1     N.ENL    BSS    1           N. EXIT NODES                               GPOCOM    171
            33                     1     EPSI     BSS    1           N. EXIT NODES THAT ARE FALL THROUGH         FCC0985     6
                                        *                        CBB                                             GPOCOM    174
            34                     1     MAXW     BSS    1           MAX *REG WIDTH* OF REGION                   GPOCOM    175
            35                     1     N.EBB    BSS    1           N. EXTENDED BASIC BLOCKS IN REGION          GPOCOM    176
                                                                                                                 GPOCOM    177
            36                     1     PL       BSS    1           *PIT* LENGTH AT START OF BLOCK              GPOCOM    178
            37                     1     STP      BSS    1           "0 IF SOME *IP* IS A FUNCTION OF THE*LCV*   GPOCOM    180
                                  21     N.CLC    EQU    *-N.HB     'END OF ZEROED CELLS REGION                  GPOCOM    181
                                                  USE    0                                                       GPOCOM    182
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    11
        VARIABLES                                                     FLAGS 
  
                                        *         GLOBAL FLAGS                                                   GPO        57
                                                                                                                 GPO        58
                                                  ENTRY  DMASK,O.UDT                                             FCC0509     6
             0                           DMASK    BFMW   D,(STRS,USES)     FIELD CLEAR MASK                      GPO        60
                                                                                                                 GPO        61
                                        *                        PRE                                             GPO        62
             1  00000000000000000000 X   N.GL0    ENTRY. =XN.GL      NEXT AVAIL GL-1 FOR MULT PRED LOOPS         GPO        63
                                        *                        AUT                                             GPO        64
                                                  USE    /BVINFO/                                                GPO        65
             0                     1     VL       BSS    1           BIT VECTOR LENGTH                           GPO        66
             1  00000000000000000000     N.VAR    ENTRY. 0           N. VARS IN *UDT*                            GPO        67
             2  00000000000000000000     BVL      ENTRY. 0           VL - 1                                      GPO        68
             3                     1     RCV      BSSZ   1           =1 IF *UDT* CONTAINS COMMON VARIABLES       GPO        69
                                                  USE    0                                                       GPO        70
                                        *                        DGS                                             GPO        71
             2  00000000000000000002     CBN      ENTRY. 2           CURRENT BLOCK NUMBER                        GPO        72
             3  00000000000000000003     NPB      ENTRY. 3           N.PROGRAM BLOCKS                            GPO        73
             4  00000000000000000000     M.GRL    ENTRY. 0           MAX GRAPH LENGTH                            GPO        74
             5  00000000000000000000     N.DG     ENTRY. 0           N.DERIVED GRAPHS ( MAX LOOP NESTING LEVEL ) GPO        75
             6  00000000000000000000     GIC      ENTRY. 0           GRAPHS IN CORE FLAG , =0 IF INCORE          GPO        76
             7  00000000000000000000 X   O.IST    ENTRY. =XPRE       FWA OF GRAPH STRUCTURE TABLES AFTER MOVE DO GPO        77
            10  00000000000000000000     M.LP     ENTRY. 0           MAX N.LOOPS IN A GRAPH                      FCC0392    12
            11  00000000000000000000     N.FTH    ENTRY. 0           N. FTH LOOPS                                FCC2113     7
                                                                                                                 GPO        78
                                        *                        GPO                                             GPO        79
            12  00000000000000000060     M.BBL    ENTRY. 60B         MAX BASIC BLOCK LENGTH                      GPO        80
            13  00000000000000000000     M.EBL    ENTRY. 0           MAX EXTENDED BLOCK LENGTH                   GPO        82
            14  00000000000000000000     N.GT     ENTRY. 0           N. GLOBAL TEMPS ( IT."S )                   GPO        83
            15  00000000000000000000 C   O.BIT    ENTRY. O.UDB       FWA OF BLOCK INDEX TABLE                    GPO        84
            16  00000000000000000010     L.BIT    ENTRY. 8           LENGTH                                      GPO        85
            17  00000000000000000000     O.BVT    ENTRY. 0           FWA OF BIT VECTOR TABLE                     GPO        86
            20  00000000000000000000     L.BVT    ENTRY. 0           LENGTH                                      GPO        87
            21                     1     L.SBV    BSS    1           LENGTH OF SPECIAL BIT VECTORS               GPO        88
            22  00000000000000000000     L.PTXT   ENTRY. 0           LENGTH OF *FTNOPT* AT START OF *GPO*        GPO        89
            23  00000000000000000000     O.LCT    ENTRY. 0           FWA OF LABEL CHANGE TABLE                   FCC1319    18
            24  00000000000000000000     L.LCT    ENTRY. 0           LENGTH  ( SET IN *CFA* )                    FCC1319    19
            25  00000000000000000000     O.ELT    ENTRY. 0           ORIGIN OF ELIMINATED LABEL DEF TABLE        FCC2113     8
            26  00000000000000000000     L.ELT    ENTRY. 0           LENGTH      24/,18/IH PROG LAB,18/H OF GL   FCC2113     9
                                        *                        PCC                                             GPO        90
            27  00000000000000000000     O.SEQ    ENTRY. 0           FWA OF BLOCK BEING PROCESSED                GPO        91
            30  00000000000000000000     L.SEQ    ENTRY. 0           LEN OF BLOCK BEING PROCESSED                GPO        92
            31  00000000000000000000     BN       ENTRY. 0           *BIT* INDEX OF BLOCK NUMBER                 GPO        93
            32  00000000000000000000     BSI      ENTRY. 0           *BST* INDEX                                 GPO        94
            33  00000000000000000000     BSW      ENTRY. 0           WORD 2 OF *BST* FOR CURRENT BLOCK           GPO        95
                                        *                        SHB                                             GPO        96
            34  00000000000000000000     L.HB     ENTRY.             LENGTH OF HOLDING BLOCK                     GPO        97
                                                                                                                 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
            40  00000000000000000000 X   GP       VFD    42/,18/=XPRE      GRAPH POINTER                         GPO       103
            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  00000000000000000153 +   IBA      VFD    42/,18/COLA+1,60/1  INTERVAL BASE ADDR ( HEADER NODE )  GPO       106
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    12
        VARIABLES                                                     FLAGS 
  
            44  00000000000000000001
                                  44 +   NN       EQU    IBA+1       N. NODES IN INTERVAL                        GPO       107
                                                                                                                 GPO       108
            45  00000000000000000000     BBV      CON    0           BUILD BIT VECTOR FLAG FOR *FUD*             GPO       109
                                        *                            =0 IF TO FORM BIT VECTORS.                  GPO       110
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    13
        VARIABLES                                                     FLAGS 
  
            46  00000000000000000000     NBIP     ENTRY. 0           "0 IF LOOP CONTAINS NON-BASE *IP*S          FCC0514    21
                                                                                                                 FCC0514    23
                                        *         LOCAL VARIABLES                                                GPO       112
                                                                                                                 GPO       113
            47  00000000000000000000     HBI      ENTRY. 0           BN OF HOLDING BLOCK, 0 IF OUTSIDE ALL LPS   FCC0675     9
            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    /TABLES/                                                GPO       117
             0                   100              BSS    100B        SCRATCH FOR *BDT* , ETC                     GPO       118
                                                                                                                 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
                                                  USE    0                                                       GPO       159
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
                                         NIS      DEFINE 10          P(N.INCREMENT STORES/N.POLYNOMIAL INCRS)    GPO       166
                                         BM       DEFINE 1           BLOCK MODIFIED                              GPO       167
                                         NTET     DEFINE 11          N.TET"S IN BLOCK                            GPO       168
                                         STC      DEFINE 18          *RD* STORE CHAIN                            GPO       169
                                         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
                                         INV      DEFINE 1           INVARIANT INSTRUCTION                       GPO       176
                                         M        DEFINE 1           MARKED ( IN *DIF* )                         GPO       177
                                         TI       DEFINE 1           TERMINAL EXPRESSION                         GPO       178
                                                                                                                 GPO       179
                                         IA       DEFINE 1           INTEGER ADD                                 GPO       180
                                         IP       DEFINE 1           INTEGER POLYNOMIAL                          GPO       181
                                         AIP      DEFINE 1           ABNORMAL IP, TERMINAL IP USES OLD VALUE OF  FCC0717     6
                                        *                            RD VAR & IS PAST AN INCR OF IT.             FCC0717     7
                                         COST     DEFINE 9           *COST* OF AN *IP*                           GPO       183
                                         USES     DEFINE 9           COUNT OF REMOVED USES                       GPO       184
                                         IIC      DEFINE 18          INV INST CHAIN, ETC                         GPO       185
                                         HBP      DEFINE 18          HOLDING BLOCK POINTER                       GPO       186
                                                                                                                 GPO       187
                                         LDI      DEQU   HBP         *UDI* INDEX OF *LD* IF INST IS *IA* / *IP*  GPO       188
                                         STC      DEQU   IIC         STORE CHAIN OF RECURSIVELY DEFINED VARS     GPO       189
                                                                                                                 GPO       190
                                         C1       DEQU   COST,1      LOW BIT OF FIELD                            GPO       191
                                                                                                                 GPO       192
                                         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
                                         NIP      DEFINE 18          N.INTERNAL PRED OF INTERVAL HEADER          FCC0392    20
                                         HBI      DEFINE 18          BIT INDEX OF HB HEADER                      FCC0392    21
                                         HNI      DEFINE 18          BIT INDEX OF HEADER OF INTERVAL             FCC0392    22
                                                                                                                 GPO       194
                                                  LIST   R,-X                                                    GPO       195
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
                          0100000000 X            CALL   AMU=        ACCUMULATE MEMORY USED                      GPO       221
            64  36665                             IX6    X6+X5       NEW = LM + MU                               GPO       222
                     5140000000 X                 SA4    =XP2.FL                                                 GPO       223
                               37064              IX0    X6-X4                                                   GPO       224
            65  0330000066 +                      MI     X0,STO1     P2.FL = MAX( NEW , P2.FL )                  GPO       225
                          5064000000              SA6    A4+                                                     GPO       226
                                                                                                                 GPO       227
            66  54750                    STO1     SA7    A5          LM = NLM                                    GPO       228
                     5170000000 X                 SA7    =XO.TXT     O.TXT = LM                                  GPO       229
                               43600              MX6    0                                                       GPO       230
            67  5160000000 X                      SA6    =XL.TXT     L.TXT = 0                                   GPO       231
                          5160000000 X            SA6    =XMU        MU = 0                                      GPO       232
            70  0400000062 +                      EQ     STO                                                     GPO       233
  
  
                                        **        WTB - WRITE *TXT* BLOCK BACK TO *BLK*                          GPO       235
                                                                                                                 GPO       236
            71  0200400071 +             WTB      ROUTINE                                                        GPO       237
            72  5110000000 X                      SA1    O.TXT                                                   GPO       238
                          5120000000 X            SA2    L.TXT                                                   GPO       239
            73  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
            74  54630                             SA6    A3                                                      GPO       246
                     0100000000 X                 CALL   WMB         REWRITE THE BLOCK                           GPO       247
            75  7160000004                        SX6    4                                                       GPO       248
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   GPO       249
            76  0400000071 +                      EQ     WTB                                                     GPO       250
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
  
  
            77  5150000027 +             PCCA     SA5    O.SEQ                                                   GPO       266
                          0100000000              RJ     0                                                       GPO       267
           100                     1              BSS    1           BSFM SAVE WORD                              GPO       268
                                                                                                                 GPO       269
           101  0400400101 +             PCC      ENTRY. **                                                      GPO       270
           102  5110000077 +                      SA1    PCCA                                                    GPO       271
                          22605                   LX6    X5                                                      GPO       272
                               12717              BX7    X1+X7                                                   GPO       273
           103  54611                             SA6    A1+B1                                                   GPO       274
                     5170000122 +                 SA7    PCC5        [PCC5] = *  RJ RTN *                        GPO       275
                               76611              SX6    B1+B1       BSI = 2                                     GPO       276
           104  0100000105 +                      RJ     *+1         VOID INSTRUCTION STACK                      FCCA596    15
           105  0400000105 +             +        EQ     *                                                       FCCA596    16
                                                                                                                 GPO       277
           106  5150000000 X             PCC1     SA5    O.BST                                                   GPO       278
                          36756                   IX7    X5+X6                                                   GPO       279
                               53170              SA1    X7          BAW = BST(BSI)                              GPO       280
           107  5227000001                        SA2    X7+1        BSW = BST(BSI+1)                            GPO       281
                          5130000100 +            SA3    PCCA+1                                                  GPO       282
           110  0301000101 +                      ZR     X1,PCC      IF BAW = 0    */ END OF *BST*               GPO       283
                          0303000112 +            ZR     X3,PCC2     IF BSFM = 0   */ NO FIELD MASK              GPO       284
           111  11432                             BX4    X3*X2                                                   GPO       285
                     0304000126 +                 ZR     X4,PCC6     IF BSFM[BSW] = 0  */ FIELDS NOT SET         GPO       286
                                                                                                                 GPO       287
           112  10722                    PCC2     BX7    X2                                                      GPO       288
                     5160000032 +                 SA6    BSI                                                     GPO       289
                               20130              LX1    -BA.BIP                                                 GPO       290
           113  73610                             SX6    X1                                                      GPO       291
                     5170000033 +                 SA7    BSW                                                     GPO       292
                               20144              LX1    59-BA.BLKP+BA.BIP                                       GPO       293
           114  5160000031 +                      SA6    BN          BN = BI[BAW]                                GPO       294
                          0331000117 +            MI     X1,PCC3     IF BLK[BAW]   */ BLOCK IS IN *BLK*          GPO       295
                                                                                                                 GPO       296
           115  0100000000 X                      CALL   RTB         READ IT INTO *BLK*                          GPO       297
           116  0400000121 +                      EQ     PCC4                                                    GPO       298
                                                                                                                 GPO       299
                                         PCC3     LX1    1+BA.BLKP-BA.FWAP                                       GPO       300
           117  73610                             SX6    X1                                                      GPO       301
                     5160000027 +                 SA6    O.SEQ       O.SEQ = FWA[BAW]                            GPO       302
                               20152              LX1    BA.FWAP-BA.LENP                                         GPO       303
           120  7271000000                        SX7    X1+                                                     GPO       304
                          5170000030 +            SA7    L.SEQ                                                   GPO       305
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    17
        PCC - PROCESS COROUTINE CALL                                  PCC 
  
                                        *         SETUP REGISTERS AND CALL COROUTINE                             GPO       307
                                                                                                                 GPO       308
           121  43055                    PCC4     MX0    -R1.RIL+1                                               GPO       309
                     5140000033 +                 SA4    BSW                                                     GPO       310
                               20001              LX0    1                                                       GPO       311
           122  5150000027 +             PCC5     SA5    O.SEQ                                                   GPO       312
                          0100000122 +            RJ     *           CALL COROUTINE                              GPO       313
           123  5110000000 X                      SA1    O.BST                                                   GPO       314
                          5120000032 +            SA2    BSI                                                     GPO       315
           124  5130000033 +                      SA3    BSW                                                     GPO       316
                          36512                   IX5    X1+X2                                                   GPO       317
                               10733              BX7    X3                                                      GPO       318
           125  7262000000                        SX6    X2+                                                     GPO       319
                          5275000001              SA7    X5+1        BST(BSI+1) = BSW                            GPO       320
                                                                                                                 GPO       321
           126  7266000002               PCC6     SX6    X6+2        BSI = BSI + 2                               GPO       322
                          0400000106 +            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
           127  0400400127 +             SRI      ENTRY. **                                                      GPO       334
           130  5142000000 X                      SA4    =XF.RDT+B2                                              GPO       335
                          27626                   PX6    B2,X6                                                   GPO       336
                               56676              SA6    B7+B6       TA = TB + TI;  [TA] = PACK(OC,R1)           GPO       337
           131  6166000004                        SB6    B6+4        TI = TI + 4                                 GPO       338
                          54761                   SA7    A6+B1       [TA+1] = R2                                 GPO       339
                               10644              BX6    X4                                                      GPO       340
           132  54671                             SA6    A7+B1       [TA+2] = RDT(OC)                            GPO       341
                     7170000000                   SX7    0                                                       GPO       342
                               54761              SA7    A6+B1       [TA+3] = 0                                  GPO       343
           133  0400000127 +                      EQ     SRI                                                     GPO       344
                                                                                                                 GPO       345
           134  0200400134 +             SII      ROUTINE                                                        GPO       346
           135  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
           136  6166000004                        SB6    B6+4        TI = TI + 4                                 GPO       350
                          76610                   SX6    B1                                                      GPO       351
                               54761              SA7    A6+B1       [TA+1] = R2                                 GPO       352
           137  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
           140  54761                             SA7    A6+B1       [TA+3] = 0                                  GPO       357
                     0400000134 +                 EQ     SII                                                     GPO       358
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
           141  0200400141 +             SMI      ROUTINE                                                        FCC0656    15
           142  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
           143  54761                             SA7    A6+B1       [TA+1] = R2                                 FCC0656    19
                     10644                        BX6    X4                                                      FCC0656    20
                          20701                   LX7    1                                                       FCC0656    21
           144  5140000012                        SA4    O.SYM                                                   FCC0656    22
                          63671                   SB6    X7+B1                                                   FCC0656    23
                               63240              SB2    X4                                                      FCC0656    24
           145  57426                             SA4    B2-B6       WORDB = [O.SYM-2*IH[R2]-1]                  FCC0656    25
                                                  LX4    -P.FPB                                                  FCC0656    26
                     76710                        SX7    B1                                                      FCC0656    27
                          11774                   BX7    X7*X4                                                   FCC0656    28
                               20725              LX7    D.FPP       FP[D] = FP[WORDB]                           FCC0656    29
           146  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
           147  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
           150  64671                             SB6    A7+B1                                                   FCC0656    38
                     67667                        SB6    B6-B7       TI = TI + 4                                 FCC0656    39
                          0400000141 +            EQ     SMI                                                     FCC0656    40
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      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
                                                  USE    //                                                      GPO       371
             0                     1     O.UDB    BSS    1B          FWA OF *USE/DEF* HASH, FWA OF WORKING STORA GPO       372
                                                  USE    0                                                       GPO       373
                                                                                                                 GPO       374
           151                     1     SPC      BSS    1           SAVED PARCEL COUNT                          GPO       375
                                                                                                                 GPO       376
                                        *         INTERVAL INFORMATION                                           GPO       377
                                                                                                                 GPO       378
           152  00000000000003000001     COLA     VFD    42/3,18/1   PB = 3 , NODE = 1                           GPO       379
           153  77000004000000000002              VFD    6/77B,18/4,18/,18/2                                     GPO       380
                                                                                                                 GPO       381
           154  0400400154 +             COL      ENTRY. **                                                      GPO       382
                                                  QUAL   CODE                                                    GPO       383
                                                                                                                 GPO       384
           155  5120000000 X                      SA2    PARCEL                                                  GPO       385
                          7262000000              SX6    X2+         SPC = PARCEL  */ SAVE PARCEL COUNT          GPO       386
           156  5160000151 +                      SA6    SPC                                                     GPO       387
                          0100000000 X            CALL   AFT=        ACTIVATE *BLK*                              GPO       388
           157  7110000100                        ALLOC  BLK,100B    ALLOC( BLK , 100B )  */ ALLOC FOR *UDB*     GPO       389
           161  13666                             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 MEM REFS TO *UDI*                     GPO       395
           167  0100000000 X                      CALL   AUT         ADJUST USE TABLE                            GPO       396
           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  13666                             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 C                      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         GPO       410
           177  0100000663 +                      RJ     IRP         INITIALIZE REGION PROCESSING                GPO       411
           200  43703                             MX7    UD.MVL                                                  GPO       412
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO       413
                          5170001300 +            SA7    BCM         BCM = *BLOCK CLEAR BITS*                    GPO       414
           201  7170001307 +                      CLCM   FUD         FORM USE/DEF INFO                           GPO       415
                                                                                                                 GPO       416
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    20
        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                         COL                 CODE
  
                                        *         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 C                      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  7170002224 +                      CLCM   MII         MARK INVARIANT INSTRUCTIONS                 GPO       456
           222  0100000753 +                      RJ     IHB         INITIALIZE HOLDING BLOCK                    GPO       457
           223  7160000227 +                      PLUG   AT=GPO7,TO=COL4,VOID=NO                                 GPO       458
           225  7160000144                        SX6    100                                                     FCC0646     8
                          5160000034 C            SA6    MAXW        MAXW = 100    */ INHIBIT X-ASSIGNMENT IN *G FCC0646     9
           226  0400000421 +                      EQ     GPO3A       FINISH OFF CODE MOTION & CODE THE LOOP      FCC0646    10
                                                                                                                 GPO       474
                                        *         NOW CONVERT THE *HB* TO CODE                                   GPO       475
                                                                                                                 GPO       476
           227  7160000000               COL4     SX6    0                                                       FCC0646    11
                          5160000032 +            SA6    BSI         BSI = 0                                     GPO       478
           230  0100000000 X                      CALL   RTB                                                     GPO       479
           231  5110000000 X                      SA1    =XL.ALS                                                 GPO       480
                          7150000003              SX5    3                                                       GPO       481
           232  7211777776                        SX1    X1-1                                                    GPO       482
                          0301000234 +            ZR     X1,COL5     IF L.ALS = 1  */ OUTSIDE OF ALL LOOPS       GPO       483
           233  7150000002                        SX5    2                                                       GPO       484
           234  76610                    COL5     SX6    B1                                                      GPO       485
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    21
        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                         COL                 CODE
  
                     0100000000 X                 CALL   ESR         EXPAND FP/LVL REFS IN *HB*                  GPO       486
           235  7160000002                        SX6    2                                                       GPO       487
                          5160000032 +            SA6    BSI         BSI = 2                                     GPO       488
           236  0100000000 X                      CALL   RTB         GET THE CODED LOOP BODY                     GPO       489
                                                                                                                 GPO       490
           237  5150000151 +                      SA5    SPC                                                     GPO       491
                          5140000000 X            SA4    L.TXT                                                   GPO       492
           240  43600                             MX6    0                                                       GPO       493
                     10755                        BX7    X5          PARCEL = SPC                                GPO       494
                          5170000000 X            SA7    PARCEL                                                  GPO       495
           241  7234777767                        SX3    X4-8                                                    GPO       496
                          0313000247 +            NZ     X3,COL6     IF L.TXT " 8  */ *HB* IS NOT EMPTY          GPO       497
                                                                                                                 GPO       498
           242  5110000030 +                      SA1    L.SEQ                                                   GPO       499
                          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*                               GPO       506
                                                                                                                 GPO       507
                                        *         COMBINE THE CODED INSTRUCTIONS FOR THE *HB* AND LOOP BODY      GPO       508
                                        *         AND CALL *CII* TO CONVERT THEM.                                GPO       509
                                                                                                                 GPO       510
           250  5110000030 +                      SA1    L.SEQ                                                   GPO       511
                          7211777776              ALLOC  PIT,X1-1    ALLOC( PIT , L.SEQ-1 )                      GPO       512
           252  73326                             SX3    X2+B6                                                   GPO       513
                     5120000027 +                 SA2    O.SEQ                                                   GPO       514
                               73221              MOVE   X1,X2+B1,X3 MOVE( L.SEQ-1 , O.SEQ+1 , PIT+OLD(L.PIT) )  GPO       515
                                                                                                                 GPO       516
           254  7160000000 C             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   CII         CONVERT THE ISSUED INSTRUCTIONS             GPO       530
           262  0100000000 X                      CALL   AFT=        DEACTIVATE *BLK*                            GPO       531
           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
                          0400000154 +            EQ     COL                                                     GPO       535
                                                                                                                 GPO       536
                                                  QUAL                                                           GPO       537
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    22
        GPO - CONTROL / INITIALIZATION                                GPO 
  
                                        **        GPO - GLOBAL PROGRAM OPTIMIZATION                              GPO       539
                                        *         INITIALIZATION, MAIN LOOP, CODE LINEARIZATION PASS.            GPO       540
                                                                                                                 GPO       541
           265  0400400265 +             GPO      ENTRY. **                                                      GPO       542
                                                                                                                 GPO       543
                                                  QUAL   CODE                                                    GPO       544
                                                                                                                 GPO       545
           266  0100000000 X                      CALL   IMPB        INITIALIZE MASSIO FOR PHASE 2               GPO       546
                                                                                                                 GPO       547
           267  7170000000 X                      SX7    =XF.UDT                                                 GPO       548
                          0100000062 +            CALL   STO                                                     GPO       549
           270  0100000000 X                      CALL   AUT         REFORMAT *UDI*                              GPO       550
                                                                                                                 GPO       551
           271  7170000000 X                      SX7    =XF.CFA                                                 GPO       552
                          0100000062 +            CALL   STO                                                     GPO       553
           272  0100000000 X                      CALL   DGS         DERIVE GRAPH STRUCTURE                      GPO       554
                                                                                                                 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=        ACTIVATE FIRST TABLE ( *BLK* )              GPO       568
                                                                                                                 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    CBN                                                     GPO       573
                          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  13666                             SETZERO X5,X0      FOR I = L.BST TO L.BIT; BIT(I) = 0          GPO       587
           312  5160000000 X                      SA6    L.BST       L.BST = 0                                   GPO       588
                                                                                                                 GPO       589
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    23
        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                                                   FCC2113    10
           315  73121                             SX1    X2+B1                                                   FCC2113    11
                     0100000055 +                 RJ     AFB         AFB( N.FTH + 1 )                            FCC2113    12
           316  5160000025 +                      SA6    O.ELT       O.ELT = FWA                                 FCC2113    13
                                        *         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    CBN                                                     GPO       609
           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    =XOPT2                                                  GPO       624
                          0301000337 +            ZR     X1,IGO1     IF OPT2 = 0   */ OPT=1                      GPO       625
                                                                                                                 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                            GPO       629
                                                                                                                 GPO       630
                                        *         SETUP ADDRESS"S OF SPECIAL BIT VECTORS                         GPO       631
                                                                                                                 GPO       632
           337  5120000000 C             IGO1     SA2    VL                                                      GPO       633
                          7100000007              SX0    N.SBV                                                   GPO       634
           340  42102                             IX1    X0*X2                                                   GPO       635
                     37612                        IX6    X1-X2       L.SBV = VL * ( N.SBV-1 )                    GPO       636
                          5160000021 +            SA6    L.SBV                                                   GPO       637
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    24
        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    OPT2                                                    GPO       646
           345  0301000176 +                      ZR     X1,COL1     IF OPT2 = 0                                 GPO       647
                                                                                                                 GPO       648
                                        *         ALLOCATE FOR *BTT* AND *HNT*                                   FCC0392    24
                                                                                                                 GPO       650
                          5110000002 +            SA1    CBN                                                     GPO       651
           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=                                                    RSM2763X  126
           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  5110004315 +             IGO4     SA1    =7LGPO                                                  RSM2763X  156
                          0100000000 X            CALL   PUNT        GO TO ABORT THE COMPILATION                 RSM2763X  157
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    25
        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)               RSM2763X  169
                                                                                                                 GPO       681
                                         .T       IFNE   TEST,0                                    * TEST MODE * GPO       682
                                                  SA1    =XR=FLAG                                                GPO       683
                                                  ZR     X1,IGO6     IF LIST = 0                                 GPO       684
                                                                                                                 GPO       685
                                        *         LIST OPTIMIZER MEMORY USEAGE STATISTICS                        GPO       686
                                                                                                                 GPO       687
                                                  USE    STAT                                                    GPO       688
                                                                                                                 GPO       689
                                         IGOA     DATA   1H ,38LOPTIMIZER MEMORY USEAGE STATISTICS               GPO       690
                                         IGOB     DATA   1H ,40LEXEC STMTS  N.BLOCKS   N.LOOPS    N.VARS         GPO       691
                                                  DATA   20H   MAX-BLK  N.GRAPHS                                 GPO       692
                                                  DATA   50L   L.GRAPH L.BIT VEC     L.BLK WRK SPACE L.PRG TXT   GPO       693
                                         IGOC     DATA   8L                                                      GPO       694
                                                                                                                 GPO       695
                                         ZOD      ROUTINE                                                        GPO       696
                                                  RJ     =XCOD                                                   GPO       697
                                                  LX6    6                                                       GPO       698
                                                  SX7    1RB-1R                                                  GPO       699
                                                  IX6    X6+X7                                                   GPO       700
                                                  EQ     ZOD                                                     GPO       701
                                                                                                                 GPO       702
                                                  USE    0                                                       GPO       703
                                         STAT     MACRO  A,B,C,M                                                 GPO       704
                                                  SA1    A                                                       GPO       705
                                                  IFC    NE,/B//,2                                               GPO       706
                                                  SA2    B                                                       GPO       707
                                                  IX1    X1-X2                                                   GPO       708
                                                  IFC    NE,/M//,1                                               GPO       709
                                                  SX1    X1+M                                                    GPO       710
                                                  RJ     =X;C                                                    GPO       711
                                                  SA6    IGOB+.1                                                 GPO       712
                                         .1       SET    .1+1                                                    GPO       713
                                                  ENDM                                                           GPO       714
                                         .1       SET    1                                                       GPO       715
                                                  LISTL  IGOC,1                                                  GPO       716
                                                  LISTL  IGOA,IGOB-IGOA                                          GPO       717
                                                  LISTL  IGOB,IGOC+1-IGOB                                        GPO       718
                                                  STAT   =XN.EXST,,CDD     N.STMTS                               GPO       719
                                                  STAT   NPB,,CDD                                                GPO       720
                                                  STAT   CBN,NPB,CDD,-1    N.LOOPS                               GPO       721
                                                  STAT   N.VAR,,CDD,-1                                           GPO       722
                                                  STAT   M.BBL,,ZOD        MAX BASIC BLK LEN                     GPO       723
                                                  STAT   N.DG,,COD         N.GRAPHS                              GPO       724
                                                  STAT   O.BIT,GP,ZOD      L.GRAPH                               GPO       725
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    26
        GPO - CONTROL / INITIALIZATION                                GPO                 CODE
  
                                                  STAT   O.BTT,O.BVT,ZOD   L.BIT VEC                             GPO       726
                                                  STAT   L.BLK,,ZOD                                              GPO       727
                                                  STAT   O.TEND,O.TXT,ZOD  WORK SPACE                            GPO       728
                                                  STAT   L.PTXT,,ZOD                                             GPO       729
                                                  PURGMAC STAT                                                   GPO       730
                                                                                                                 GPO       731
                                                  LISTL  IGOB,IGOC+1-IGOB                                        GPO       732
                                                                                                                 GPO       733
                                         IGO6     BSS    0                                                       GPO       734
                                                                                                                 GPO       735
                                         .T       ENDIF                                            * TEST MODE * GPO       736
  
  
                                        *         SET FLAGS FOR PHASE 3 OF GLOBAL OPTIMIZATION                   GPO       738
                                                                                                                 GPO       739
           371  7160000001                        SX6    1                                                       GPO       740
                          5160000045 +            SA6    BBV         BBV = 1       */ SET FOR NO BIT VECTORS     GPO       741
           372  43703                             MX7    UD.MVL                                                  GPO       742
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO       743
                          5170001300 +            SA7    BCM         BCM = *MV*    */ SET FOR BLOCK BIT CLEAR    GPO       744
                                                                                                                 GPO       745
                                        *         SETUP A *BOS* AT THE BEGINNING OF *TXT*                        GPO       746
                                                                                                                 GPO       747
           373  7110000004                        ALLOC  TXT,4       ALLOC( TXT , 4 )                            GPO       748
           375  5150000001 X                      SA5    =XF.RDT+OC.BOS                                          GPO       749
                          43600                   MX6    0           T = O.TXT                                   GPO       750
                               53621              SA6    X2+B1       [T+1] = 0                                   GPO       751
           376  10755                             BX7    X5                                                      GPO       752
                     54761                        SA7    A6+B1       [T+2] = RDT(BOS)                            GPO       753
                          54671                   SA6    A7+B1       [T+3] = 0                                   GPO       754
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    27
        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
           377  0100000620 +             GPO1     RJ     IGP         INITIALIZE GRAPH PROCESSING                 GPO       759
           400  0306000461 +                      ZR     X6,GPO10    IF N.LP = 0   */ NO LOOPS IN THIS GRAPH     GPO       760
                                                                                                                 GPO       761
           401  0100000645 +             GPO2     RJ     FNL         FIND NEXT LOOP                              GPO       762
           402  0100000663 +                      RJ     IRP         INITIALIZE REGION PROCESSING                GPO       763
                                                                                                                 GPO       764
           403  7170001307 +                      CLCM   FUD         FORM USE/DEF INFO FOR REGION                GPO       765
           405  5110000053 +                      SA1    UXR+1                                                   GPO       766
                          0301000412 +            ZR     X1,GPO3     IF UXR(2) = 0 */ NO USER EXT REFS           GPO       767
           406  43701                             MX7    1                                                       GPO       768
                     5170000020 C                 SA7    XRF         XRF = 1S59                                  GPO       769
           407  5120000003 C                      SA2    RCV                                                     GPO       770
                          0302000412 +            ZR     X2,GPO3     IF RCV = 0    */ NO REFED COMMON VARIABLES  GPO       771
           410  5140000017 +                      SA4    O.BVT                                                   GPO       772
                          5150001301 +            SA5    RDB                                                     GPO       773
           411  0100001256 +                      CALL   EBV         SET REGION DEF BITS FOR COMMON VARS, ETC    GPO       774
                                                                                                                 GPO       775
           412  7170001647 +             GPO3     CLCM   RDD         REMOVE DEAD DEFINITIONS                     GPO       776
                                                                                                                 GPO       777
           414  0100002061 +                      RJ     FEI         FORM LIVE ENTRY VECTOR                      FCCA513X    8
                                                                                                                 FCCA513X    9
           415  7170002224 +                      CLCM   MII         MARK INVARIANT INSTRUCTIONS                 GPO       778
                                                                                                                 GPO       779
           417  0100000753 +                      RJ     IHB         INITIALIZE HOLDING BLOCK                    GPO       780
           420  0100002075 +                      RJ     FXI         FORM EXIT INFORMATION                       GPO       781
                                                                                                                 GPO       782
           421  7170002611 +             GPO3A    CLCM   FII,(STC)   FORM INCREMENT INFO                         GPO       783
           423  5110000000 X                      SA1    L.IIT                                                   GPO       784
                          10611                   BX6    X1          PIC = L.IIT                                 GPO       785
           424  5160000101 C                      SA6    PIC                                                     GPO       786
                          0301000427 +            ZR     X1,GPO4     IF PIC = 0    */ NO RECURSIVE DEFS          GPO       787
                                                                                                                 GPO       788
           425  7170002653 +                      CLCM   MIP         MARK INTEGER POLYNOMIALS                    GPO       789
                                                                                                                 GPO       790
           427  5110000015 C             GPO4     SA1    MRA                                                     GPO       791
                          7120000376              SX2    376B                                                    GPO       792
           430  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
           431  0314000432 +                      NZ     X4,GPO5     IF NABR \ 2                                 GPO       797
                          7160000003              SX6    3           MINC = 3                                    GPO       798
           432  5160000114 C             GPO5     SA6    MINC                                                    GPO       799
                          7170003105 +            CLCM   MIE,(IIC)   MOVE INV/SR INSTRUCTIONS TO *HB*            GPO       800
           434  43600                             MX6    0                                                       GPO       801
                     0100002173 +                 CALL   SHB         SQUEEZE HOLDING BLOCK                       GPO       802
           435  5120000100 C                      SA2    NTP                                                     GPO       803
                          0302000445 +            ZR     X2,GPO6     IF NTP = 0    */ NO TERMINAL *IP*"S         GPO       804
                                                                                                                 GPO       805
           436  0100003335 +                      RJ     CIF         COLLECT INCREMENT FORMULAS                  GPO       806
           437  5120000100 C                      SA2    NTP                                                     FCC1710X    6
                          0302000445 +            ZR     X2,GPO6     IF NTP = 0                                  FCC1710X    7
                                                                                                                 GPO       807
           440  7170003560 +                      CLCM   FIM,(STC)   FORM *TP* INCREMENT MODS                    GPO       808
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    28
        GPO - MAIN LOOP                                               GPO                 CODE
  
           442  5110000000 X                      SA1    L.MOD                                                   GPO       809
                          7221777773              SX2    X1-4                                                    GPO       810
           443  0302000445 +                      ZR     X2,GPO6     IF L.MOD = 4  */ NO VARIABLE INCR CODE      GPO       811
                          76610                   SX6    B1                                                      GPO       812
           444  0100002173 +                      CALL   SHB         SQUEEZE VARIABLE INCREMENT CODE             GPO       813
                                                                                                                 GPO       814
           445  7160000004               GPO6     SX6    4           L.TXT = 4                                   GPO       815
                          5160000000 X            SA6    L.TXT                                                   GPO       816
           446  7170004051 +                      CLCM   UPB,(NIS,BM,NTET)   UPDATE MODIFIED BLOCKS              GPO       817
           450  0100001226 +                      RJ     ATT         ADJUST *TET*                                FCC0514    25
                                                                                                                 GPO       818
           451  0100001125 +                      RJ     CBB         COMBINE BASIC BLOCKS                        FCC0646    12
                                                                                                                 GPO       820
           452  0100000000 X                      CALL   GRA         ASSIGN REGISTERS, CODE THE LOOP             GPO       821
                                                                                                                 GPO       822
           453  0100000765 +             GPO7     RJ     TRP         TERMINATE REGION PROCESSING                 FCC0646    13
           454  5120000042 +                      SA2    N.LP                                                    GPO       824
                          7272777776              SX7    X2-1        N.LP = N.LP - 1                             GPO       825
           455  5072000000                        SA7    A2+                                                     GPO       826
                          0317000401 +            NZ     X7,GPO2     IF N.LP " 0                                 GPO       827
                                                                                                                 GPO       828
           456  7170000004                        SX7    4           EMF = 4       */ EXPAND STT"S IN OUTER LPS  GPO       829
                          5170000013 C            SA7    EMF                                                     GPO       830
           457  0100000654 +                      RJ     GNG         GET NEXT GRAPH                              GPO       831
           460  0400000377 +                      EQ     GPO1                                                    FCC0514    26
  
  
                                        *         PROCESS BLOCKS OUTSIDE OF ALL LOOPS AND CONVERT THEM TO CODE.  GPO       835
                                                                                                                 GPO       836
           461  43617                    GPO10    MX6    -UD.STCP                                                GPO       837
                     76700                        SX7    B0                                                      FCC0514    27
                          5170000047 +            SA7    HBI         HBI = 0       */ OUTSIDE OF ALL LOOPS       FCC0675    11
           462  5170000046 +                      SA7    NBIP        NBIP = 0                                    FCC0514    29
                          5160001300 +            SA6    BCM         BCM = *REGION CLEAR MASK*                   GPO       838
                                                                                                                 GPO       839
           463  5110000043 +             GPO11    SA1    IBA                                                     GPO       840
                          53210                   SA2    X1          IP = [IBA]                                  GPO       841
                               73611              SX6    X1+B1       IBA = IBA + 1                               GPO       842
           464  0302000467 +                      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
           465  54711                             SA7    A1+B1                                                   GPO       847
                     0100001061 +                 CALL   CIC         CONVERT INTERVAL TO CODE                    GPO       848
           466  0400000463 +                      EQ     GPO11                                                   GPO       849
                                                                                                                 GPO       850
                                        *         ADJUST *GL* TABLE FOR GL"S ADDED FROM MULTIPLE PRED IF LOOPS.  GPO       851
                                                                                                                 GPO       852
           467  5110000001 +             GPO12    SA1    N.GL0                                                   GPO       853
                          5120000000 X            SA2    N.GL                                                    GPO       854
           470  37112                             IX1    X1-X2       L = N.GL0 - N.GL                            GPO       855
                     0301000475 +                 ZR     X1,GPO13    IF L = 0      */ NO GL"S ADDED              GPO       856
           471  5100777776 X                      ALLOC  TEND-1,X1   ALLOC( TEND-1 , L )                         GPO       857
           472  5150000000 X                      SA5    =XO.GLT                                                 GPO       858
                          76760                   SX7    B6                                                      GPO       859
                               54730              SA7    A3                                                      GPO       860
           473  37651                             IX6    X5-X1       O.GLT = O.GLT - L                           GPO       861
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    29
        GPO - MAIN LOOP                                               GPO                 CODE
  
                     54650                        SA6    A5                                                      GPO       862
                          7276777776              SX7    X6-1        LW = O.GLT - 1                              GPO       863
           474  5170000000 X                      SA7    =XLWAWORK   LWAWORK = LW                                GPO       864
                          5170000000 X            SA7    =XO.TEND    O.TEND = LW                                 GPO       865
  
  
                                        *         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
                                         BEF      DEQU   BVI         BN OF BLOCK THAT COMES BEFORE CURRENT BLOCK GPO       871
                                                                                                                 GPO       872
           475  5110000002 +             GPO13    SA1    CBN                                                     GPO       873
                          5120000015 +            SA2    O.BIT                                                   GPO       874
           476  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
           477  63410                             SB4    X1          L = 2*CBN                                   GPO       880
                     5130000003 +                 SA3    NPB                                                     GPO       881
                               63720              SB7    X2                        (B7) = [O.BIT]                GPO       882
                                                                                                                 GPO       883
           500  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
           501  0734000500 +                      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
           502  66332                    GPO15    SB3    B3+B2       I = I + 2                                   GPO       897
                     56573                        SA5    B7+B3       BIW = BIT(I)                                GPO       898
                          0634000516 +            GE     B3,B4,GPO18 IF I \ L                                    GPO       899
           503  20501                             LX5    59-BI.CBP                                               GPO       900
                     0325000502 +                 PL     X5,GPO15    IF ^CB[BIW]                                 GPO       901
                                                                                                                 GPO       902
                               20551              LX5    1+BI.CBP-BI.PBNP                                        GPO       903
           504  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
           505  0334000507 +                      MI     X4,GPO15A   IF RB[BJW]    */ HEADER IS A PROGRAM BLOCK  FCC0448    35
                          20403                   LX4    BI.RBP-BI.FJP                                           FCC0448    36
           506  0334000512 +                      MI     X4,GPO17    IF FJ[BJW]    */ *HB* IS REMOTE             FCC0448    37
                                                                                                                 FCC0448    38
           507  20525                    GPO15A   LX5    59-BI.FJP+BI.PBNP                                       FCC0448    39
                     0325000510 +                 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
           510  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
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    30
        GPO - MAIN LOOP                                               GPO                 CODE
  
                          0560000510 +            NZ     B6,GPO16    IF J " 0                                    GPO       910
                                                                                                                 GPO       911
           511  12647                             BX6    X4+X7       BEF[BIT(JL)] = P  */ LINK HEADER TO *HB*    GPO       912
                                                  LX6    BI.BEFP                                                 GPO       913
                     54640                        SA6    A4                                                      GPO       914
                          0400000502 +            EQ     GPO15                                                   GPO       915
                                                                                                                 FCC0448    42
                                        *         *HB* FROM NEST OF *FTH* LOOPS, MAKE *HB* COME BEFORE HEADER.   FCC0448    43
                                                                                                                 FCC0448    44
           512  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
           513  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
                          0556000513 +            NE     B5,B6,GPO17A      IF K " J                              FCC0448    54
                                                                                                                 FCC0448    55
           514  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
           515  0400000502 +                      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.                 FCCA588     6
                                                                                                                 GPO       919
           516  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
           517  63432                             SB4    X3+B2       L = 2*NPB + 2                               GPO       923
                     0400000521 +                 EQ     GPO20                                                   GPO       924
                                                                                                                 GPO       925
           520  74651                    GPO19    SX6    A5+B1                                                   FCCA588     7
                     54600                        SA6    A0                                                      GPO       928
                          54001                   SA0    A0+B1       SI = SI + 1                                 GPO       929
                                                                                                                 GPO       930
           521  66332                    GPO20    SB3    B3+B2       I = I + 2                                   GPO       931
                     56573                        SA5    B7+B3       BIW = BIT(I)                                GPO       932
                          0634000532 +            GE     B3,B4,GPO23 IF I \ L                                    GPO       933
                                                  LX5    -BI.BEFP                                                GPO       934
           522  73250                             SX2    X5          JF = BEF[BIW]                               GPO       935
                     20501                        LX5    59-BI.CBP+BI.BEFP                                       GPO       936
                          0325000521 +            PL     X5,GPO20    IF ^CB[BIW]   */ NOT CODED                  GPO       937
           523  0302000520 +                      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
           524  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
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    31
        GPO - MAIN LOOP                                               GPO                 CODE
  
           525  0560000524 +                      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
           526  74751                             SX7    A5+B1                                                   FCCA588     8
                     55701                        SA7    A0-B1       SJ = SI - 1;  [SJ] = BIT(I+1)               GPO       956
                                                                                                                 FCCA588     9
           527  76776                    GPO22    SX7    B7+B6                                                   FCCA588    10
                     5247777776                   SA4    X7-1                                                    FCCA588    11
                               55771              SA7    A7-B1       SJ = SJ - 1;  [SJ] = BIT(J+1)               GPO       960
                                                  LX4    -BI.BEFP                                                GPO       961
           530  63641                             SB6    X4+B1       J = BEF[BIT(J)]                             GPO       962
                     0561000527 +                 NE     B6,B1,GPO22 IF J " 0                                    GPO       963
                                                                                                                 GPO       964
           531  0400000521 +                      EQ     GPO20                                                   GPO       965
                                                                                                                 GPO       966
                                        *         ADD HOLDING BLOCKS FOR FALL THROUGH TO HEADER LOOPS TO LIST    FCC0408    14
                                                                                                                 FCC0408    15
           532  6160000000               GPO23    SB6    0           J = 0                                       FCC0408    16
                                                                                                                 FCC0408    17
           533  56576                    GPO24    SA5    B7+B6       BIW = BIT(J)                                FCC0408    18
                                                  LX5    -BI.BEFP                                                FCC0408    19
                     63650                        SB6    X5          J = BEF[BIW]                                FCC0408    20
                          0460000536 +            ZR     B6,GPO25    IF J = 0      */ END OF CHAIN               FCC0675    13
           534  66561                             SB5    B6+B1                                                   FCC0408    22
                     76775                        SX7    B7+B5                                                   FCCA588    12
                          54700                   SA7    A0                                                      FCC0408    25
                               54001              SA0    A0+B1       SI = SI + 1                                 FCC0408    26
           535  0400000533 +                      EQ     GPO24                                                   FCC0408    27
  
                                        *         ALLOCATE TABLES FOR *CII* AND ASSIGN *CA"S* TO THE IT.S IN TET FCC0675    14
                                                                                                                 FCC0675    15
           536  43700                    GPO25    MX7    0                                                       FCC0675    16
                     54700                        SA7    A0          [SI] = 0      */ TERMINATE THE *RIW* LIST   FCC0408    30
                          5170000000 X            SA7    =XPARCEL    PARCEL = 0                                  GPO       969
           537  5120000012 C                      SA2    M.PL                                                    GPO       970
                          7212000001              ALLOC  PIT,X2+1    ALLOC( PIT , M.PL+1 )                       GPO       971
           541  20102                             LX1    2                                                       GPO       972
                     5100000001                   ALLOC  TXT,X1      ALLOC( TXT , 4*(M.PL+1) )                   GPO       973
           543  5110000000 X                      SA1    L.TET                                                   GPO       974
                          0301000606 +            ZR     X1,GPO35    IF L.TET = 0  */ NO IT. S                   FCC0675    17
                                         MAXT     DEQU   BVI         MAX IT. S IN LOOP                           FCC0675    18
                                                                                                                 FCC0675    19
           544  5120000015 +                      SA2    O.BIT                                                   FCC0675    20
                          5130000016 +            SA3    L.BIT                                                   FCC0675    21
           545  5140000003 +                      SA4    NPB                                                     FCC0675    22
                          43700                   MX7    0                                                       FCC0675    23
                               53720              SA7    X2          BIT(0) = 0                                  FCC0675    24
           546  43052                             MX0    -BI.MAXTL                                               FCC0675    25
                     20401                        LX4    1                                                       FCC0675    26
                          63340                   SB3    X4          I = 2*NPB                                   FCC0675    27
                               63430              SB4    X3                                                      FCC0675    28
           547  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
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    32
        GPO - MAIN LOOP                                               GPO                 CODE
  
           550  54650                             SA6    A5                                                      FCC0675    32
                     0734000547 +                 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
           552  5150000000 X                      SA5    O.TET                                                   FCC0675    38
                          6231777776              SB3    X1-1        LIM = L.TET                                 FCC0675    39
           553  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
           554  66200                             SB2    B0          I = 0                                       FCC0675    44
                     53550                        SA5    X5                                                      FCC0675    45
                                                                                                                 FCC0675    46
           555  15650                    GPO27    BX6    -X0*X5                                                  FCC0675    47
                     20501                        LX5    59-T.EQVP                                               FCC0675    48
                          0306000560 +            ZR     X6,GPO28    IF HBN[TET(I)] = 0  */ NOT MATERIALIZED     FCC0675    49
           556  0335000560 +                      MI     X5,GPO28    IF EQV[TET(I)]                              FCC0675    50
                          7112000000              SX1    B2+                                                     FCC0675    51
           557  12761                             BX7    X6+X1                                                   FCC0675    52
                     54771                        SA7    A7+B1       J = J + 1;  CFT(J) = HBN[TET(I)] ! I        FCC0675    53
           560  66221                    GPO28    SB2    B2+B1       I = I + 1                                   FCC0675    54
                     54551                        SA5    A5+B1                                                   FCC0675    55
                          0723000555 +            LT     B2,B3,GPO27 IF I < LIM                                  FCC0675    56
                                                                                                                 FCC0675    57
           561  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
           562  0301000605 +                      ZR     X1,GPO33    IF LEN = 0                                  FCC0675    62
                          73611                   SX6    X1+B1                                                   FCC0675    63
                               54630              SA6    A3          L.CFT = LEN + 1                             FCC0675    64
           563  0100000000 X                      CALL   SHL         SORT( CFT , LEN )                           FCC0675    65
                                                                                                                 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
           564  54500                             SA5    A0          I = N;  CI = CFT(N)                         FCC0675    71
                     43052                        MX0    -T.CAL                                                  FCC0675    72
                          5130000015 +            SA3    O.BIT                                                   FCC0675    73
           565  5140000000 X                      SA4    O.TET                                                   FCC0675    74
                          76700                   SX7    B0          C = 0                                       FCC0675    75
                               76110              SX1    B1                                                      FCC0675    76
           566  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
           567  6140000044                        SB4    T.HBNP                                                  FCC0675    81
                          23245                   AX2    B4,X5       LHB = HBN[CI]                               FCC0675    82
                                                                                                                 FCC0675    83
           570  23345                    GPO30    AX3    B4,X5       H = HBN[CI]                                 FCC0675    84
                     13623                        BX6    X2-X3                                                   FCC0675    85
                          0306000600 +            ZR     X6,GPO32    IF H = LHB    */ SAME LOOP                  FCC0675    86
                                                                                                                 FCC0675    87
           571  53426                             SA4    B6+X2                                                   FCC0675    88
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    33
        GPO - MAIN LOOP                                               GPO                 CODE
  
                     12647                        BX6    X4+X7       MAXT[BIT(LHB)] = C  */ SAVE OLD MAX         FCC0675    89
                          5064000000              SA6    A4+                                                     FCC0675    90
           572  63270                   +         SB2    X7                                                      FCC0675    91
                     0652000573 +                 LE     B2,B5,*+1   MIT = MAX( MIT , C )                        FCC0675    92
                               66520              SB5    B2                                                      FCC0675    93
           573  14333                             BX3    -X3                                                     FCC0675    94
                     63230                        SB2    X3                                                      FCC0675    95
                                                                                                                 FCC0675    96
           574  7222777775               GPO31    SX2    X2-2        LHB = LHB - 2                               FCC0675    97
                          53426                   SA4    B6+X2                                                   FCC0675    98
                               43355              MX3    -BI.OLNL                                                FCC0675    99
           575  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
           576  73622                             SX6    X2+B2                                                   FCC0675   105
                     0306000600 +                 ZR     X6,GPO32    IF LHB = H                                  FCC0675   106
                               20446              LX4    BI.OLNP                                                 FCC0675   107
           577  12647                             BX6    X4+X7       MAXT[BIT(OLN)] = C  */ PROPAGATE TO INER LP FCC0675   108
                     54640                        SA6    A4                                                      FCC0675   109
                          0400000574 +            EQ     GPO31                                                   FCC0675   110
                                                                                                                 FCC0675   111
                                        *         ASSIGN A *CA* TO THIS *TET* ENTRY                              FCC0675   112
                                                                                                                 FCC0675   113
           600  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
           601  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
           602  0315000570 +                      NZ     X5,GPO30    IF [CI] " 0   */ NOT END OF SORT TABLE      FCC0675   121
                                                                                                                 FCC0675   122
           603  63270                   +         SB2    X7                                                      FCC0675   123
                     0625000604 +                 GE     B2,B5,*+1   N.IT = MAX( MIT , C )                       FCC0675   124
                               76750              SX7    B5                                                      FCC0675   125
           604  5170000000 X                      SA7    =XN.IT                                                  FCC0675   126
                                                                                                                 FCC0675   127
           605  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 *CII* TO         GPO       978
                                        *         CONVERT THE BLOCKS TO COMPASS INSTRUCTIONS AND ASSIGN          FCC0675   130
                                        *         ADDRESS"S.                                                     FCC0675   131
                                                                                                                 FCC0675   132
           606  5110000000 C             GPO35    SA1    O.UDT                                                   FCC0675   133
                          5130000000 X            SA3    O.PIT                                                   GPO       983
           607  53510                             SA5    X1          RIWA = [SI]                                 FCCA588    13
                     0305000616 +                 ZR     X5,GPO36    IF RIWA = 0     */ END OF TABLE             FCCA588    14
                               53550              SA5    X5          RIW = [RIWA]                                FCCA588    15
           610  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
           611  20547                             LX5    RI.LENP                                                 GPO       990
                     5170000000 X                 SA7    L.PIT                                                   GPO       991
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    34
        GPO - MAIN LOOP                                               GPO                 CODE
  
           612  0100000000 X                      CALL   GMB         READ BLOCK TO *PIT*                         GPO       992
           613  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
           614  5160000031 +                      SA6    BN                                                      GPO       996
                          0100000000 X            CALL   CII         CONVERT THE INSTRUCTIONS                    GPO       997
           615  0400000606 +                      EQ     GPO35                                                   FCC0675   135
                                                                                                                 GPO       999
           616  7160000000               GPO36    SX6    0                                                       FCC0675   136
                          5160000000 X            SA6    L.PIT       L.PIT = 0                                   GPO      1001
           617  5160000000 X                      SA6    L.TXT       L.TXT = 0                                   GPO      1002
                                                                                                                 GPO      1003
                          0400000265 +            EQ     GPO                                                     GPO      1014
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    35
        GRAPH PROCESSING SUBROUTINES                                  IGP                 CODE
  
                                        **        IGP - INITIALIZE GRAPH PROCESSING                              GPO      1016
                                        *                                                                        GPO      1017
                                        *         ENTRY  (GP) = GRAPH POINTER, FWA OF GRAPH TABLE                GPO      1018
                                        *                                                                        GPO      1019
                                        *         EXIT   (X6) = N.LP , N. LOOPS IN GRAPH                         GPO      1020
                                                                                                                 GPO      1021
           620  0200400620 +             IGP      ROUTINE                                                        GPO      1022
           621  5110000040 +                      SA1    GP                                                      GPO      1023
                          53211                   SA2    X1+B1       GB = [GP] + 1;  GBW = [GB]                  GPO      1024
                               74621              SX6    A2+B1                                                   GPO      1025
           622  5160000041 +                      SA6    EIT         EIT = [GP] + 2  */ EDGE INDEX TABLE         GPO      1026
                                                                                                                 GPO      1027
                                        *         BUMP PRED COUNT OF PROGRAM EXIT NODE SO IT DOESNT BECOME A     GPO      1028
                                        *         INSERTION POINT FOR POST STORE CODE ( FXI ).                   GPO      1029
                                                                                                                 GPO      1030
                          76510                   SX5    B1                                                      GPO      1031
                               54421              SA4    A2+B1                                                   GPO      1032
           623  20536                             LX5    EI.NPP                                                  GPO      1033
                     36754                        IX7    X5+X4       NP[EIT] = NP[EIT] + 1                       GPO      1034
                          54740                   SA7    A4                                                      GPO      1035
                                                                                                                 GPO      1036
                                                  LX2    -GB.ILIP                                                GPO      1037
                               73320              SX3    X2                                                      GPO      1038
           624  36763                             IX7    X6+X3                                                   GPO      1039
                     63370                        SB3    X7                                                      GPO      1040
                          5170000043 +            SA7    IBA         IBA = EIT + ILI[GBW]                        GPO      1041
           625  20230                             LX2    GB.ILIP-GB.NLPP                                         GPO      1042
                     73620                        SX6    X2                                                      GPO      1043
                          5160000042 +            SA6    N.LP        N.LP = NLP[GBW]                             GPO      1044
           626  43700                             MX7    0                                                       GPO      1045
                     5170000044 +                 SA7    NN          NN = 0                                      GPO      1046
                                                                                                                 GPO      1047
                                        *         SETUP *BTT* AND *HNT*, SET *HN* BIT FOR HEADER NODES.          FCC0392    29
                                        *         SETUP BVI FOR *HB"S* SO AS TO SIMPLIFY *FXI* LOGIC.            FCC0392    30
                                        *         BTT - NODE NUMBER TO *BI* TRANSITION TABLE                     FCC0392    31
                                        *         HNT - HEADER NODE TO *HB* SEARCH TABLE.                        FCC0392    32
                                                                                                                 FCC0392    33
                               53060              SA0    X6                                                      FCC0392    34
           627  5110000035 +                      SA1    O.BTT                                                   FCC0392    35
                          5130000036 +            SA3    O.HNT                                                   FCC0392    36
           630  5120000015 +                      SA2    O.BIT                                                   FCC0392    37
                          63710                   SB7    X1                        (B7) = O.BTT                  FCC0392    38
                               63630              SB6    X3          HI = O.HNT                                  FCC0392    39
           631  6150000044                        SB5    IM.BIP                                                  FCC0392    40
                          63420                   SB4    X2                        (B4) = O.BIT                  FCC0392    41
                               43052              MX0    -IP.NODEL                                               FCC0392    42
           632  56530                             SA5    B3          IP = IBA                                    FCC0392    43
                     43700                        MX7    0                                                       FCC0392    44
                          56770                   SA7    B7          BTT(0) = 0                                  FCC0392    45
                                                                                                                 FCC0392    46
           633  11105                    IGP1     BX1    X0*X5       HNI = (NIP,PB)[IP]                          FCC0392    47
                                                  LX5    -IP.NODEP                                               FCC0392    48
                     63250                        SB2    X5          N = NODE[IP]                                FCC0392    49
                          54551                   SA5    A5+B1       IP = IP + 1   */ HEADER NODE                FCC0392    50
                               10255              BX2    X5          IPF = [IP]                                  FCC0392    51
                                                                                                                 FCC0392    52
           634  23455                    IGP2     AX4    B5,X5                                                   FCC0392    53
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    36
        GRAPH PROCESSING SUBROUTINES                                  IGP                 CODE
  
                                                  LX5    -IM.BNP                                                 FCC0392    54
                     73740                        SX7    X4                                                      FCC0392    55
                          53757                   SA7    B7+X5       BTT(BN[IP]) = BI[IP]                        FCC0392    56
                               67221              SB2    B2-B1       N = N - 1                                   FCC0392    57
           635  54551                             SA5    A5+B1       IP = IP + 1                                 FCC0392    58
                     0520000634 +                 NZ     B2,IGP2     IF N " 0                                    FCC0392    59
                                                                                                                 FCC0392    60
                                                  LX2    59-IM.SCRP                                              FCC0392    61
           636  0322000642 +                      PL     X2,IGP3     IF ^SCR[IPF]  */ HEADER ^ IN SCR            FCC0392    62
                          20230                   LX2    1+IM.SCRP-IM.BIP  I = BI[IPF]                           FCC0392    63
                               73220              SX2    X2                                                      FCC0392    64
           637  12712                             BX7    X1+X2                                                   FCC0392    65
                     56760                        SA7    B6          [HI] = HNW(HNI,I)                           FCC0392    66
                          66661                   SB6    B6+B1       HI = HI + 1                                 FCC0392    67
                                                                                                                 FCC0392    68
                               20153              LX1    -IP.PBP+1   HBI = 2*PB[HNI]                             FCC0392    69
           640  76410                             SX4    B1                                                      FCC0392    70
                     53324                        SA3    B4+X2                                                   FCC0392    71
                          20466                   LX4    BI.HNP                                                  FCC0392    72
                               12643              BX6    X4+X3       HN[BIT(I)] = 1                              FCC0392    73
           641  54630                             SA6    A3                                                      FCC0392    74
                                                  LX3    -BI.BVIP                                                FCC0392    75
                     73730                        SX7    X3                                                      FCC0392    76
                                                  LX7    BI.BVIP                                                 FCC0392    77
                          53714                   SA7    B4+X1       BVI[BIT(HBI)] = BVI[BIT(I)]                 FCC0392    78
                                                                                                                 FCC0392    79
           642  0315000633 +             IGP3     NZ     X5,IGP1     IF [IP] " 0   */ ^ END OF INTERVAL LIST     FCC0392    80
                                                                                                                 FCC0392    81
                          74600                   SX6    A0                                                      FCC0392    82
                               76760              SX7    B6                                                      FCC0392    83
           643  5170000037 +                      SA7    L.HNT       L.HNT = HI    */ LWA+1 OF HNT               FCC0392    84
                          0400000620 +            EQ     IGP                                                     GPO      1070
  
  
  
                                        **        FNL - FIND NEXT LOOP ( STRONGLY CONNECTED REGION  )            GPO      1072
                                        *                                                                        GPO      1073
                                        *         EXIT   (IBA) = INTERVAL LIST ADDRESS FOR *SCR*                 GPO      1074
                                        *                (NN) = N.NODES IN INTERVAL                              GPO      1075
                                        *                (X4) = IM = [IBA] , FIRST INTERVAL MEMBER WORD          GPO      1076
                                                                                                                 GPO      1077
           644  74640                    FNL0     SX6    A4                                                      GPO      1078
                     54610                        SA6    A1          IBA = IM                                    GPO      1079
                          76720                   SX7    B2                                                      GPO      1080
                               54720              SA7    A2          NN = NODE[IP]                               GPO      1081
                                                  LX4    1+IM.SCRP                                               GPO      1082
                                                                                                                 GPO      1083
           645  0200400645 +             FNL      ROUTINE                                                        GPO      1084
           646  5110000043 +                      SA1    IBA                                                     GPO      1085
                          54211                   SA2    A1+B1                                                   GPO      1086
                               36712              IX7    X1+X2                                                   GPO      1087
           647  53570                             SA5    X7          IP = IBA + NN */ POINT TO IP WORD OF NEXT   GPO      1088
                                                                                                                 GPO      1089
           650  54451                    FNL1     SA4    A5+B1       IM = IP + 1                                 GPO      1090
                                                  LX5    -IP.NODEP                                               GPO      1091
                     63250                        SB2    X5          N = NODE[IP]                                GPO      1092
                                                  LX4    59-IM.SCRP                                              GPO      1093
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    37
        GRAPH PROCESSING SUBROUTINES                                  FNL                 CODE
  
                          0334000644 +            MI     X4,FNL0     IF SCR[IM]    */ HEADER IN A *SCR*          GPO      1094
           651  54542                             SA5    A4+B2       IP = IM + N   */ ADVANCE TO NEXT HEADER     GPO      1095
                     0400000650 +                 EQ     FNL1                                                    GPO      1096
  
  
                                        **        GNG - GET NEXT GRAPH TABLE                                     GPO      1098
                                        *                                                                        GPO      1099
                                        *         EXIT   (X6) = 0 IF END OF GRAPHS, ELSE (GP) = FWA OF GRAPH     GPO      1100
                                                                                                                 GPO      1101
           652  5120000040 +             GNG0     SA2    GP                                                      GPO      1102
                          53320                   SA3    X2                                                      GPO      1103
                                                  LX3    -GA.LFP                                                 GPO      1104
                               73630              SX6    X3                                                      GPO      1105
           653  0306000654 +                      ZR     X6,GNG      IF LF[GP] = 0 */ LEAVE *GP* ALONE           GPO      1106
                          36726                   IX7    X2+X6       GP = GP + LF[GP]                            GPO      1107
                               54720              SA7    A2                                                      GPO      1108
           654  0200400654 +             GNG      ROUTINE                                                        GPO      1109
           655  5110000006 +                      SA1    GIC                                                     GPO      1110
                          0301000652 +            ZR     X1,GNG0     IF GIC = 0    */ ALL GRAPHS ARE INCORE      GPO      1111
                                                                                                                 GPO      1112
           656  53411                             SA4    X1+B1       RAW = [GIC+1] */ RANDOM INDEX WORD          GPO      1113
                     73711                        SX7    X1+B1       GIC = GIC + 1                               GPO      1114
                          43600                   MX6    0                                                       GPO      1115
                               54710              SA7    A1                                                      GPO      1116
           657  0304000654 +                      ZR     X4,GNG      IF RAW = 0    */ END OF GRAPHS              GPO      1117
                          5120000040 +            SA2    GP                                                      GPO      1118
           660  20425                             LX4    -RI.LENP                                                GPO      1119
                     73540                        SX5    X4          L = LEN[RAW]                                GPO      1120
                          20447                   LX4    RI.LENP                                                 GPO      1121
           661  0100000000 X                      CALL   GBD         GBD( FSCM = GP , RAW , L )                  GPO      1122
           662  76610                             SX6    B1                                                      GPO      1123
                     0400000654 +                 EQ     GNG                                                     GPO      1124
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    38
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                                        **        IRP - INITIALIZE REGION PROCESSING FOR A *SCR*                 GPO      1126
                                                                                                                 GPO      1127
           663  0200400663 +             IRP      ROUTINE                                                        GPO      1128
           664  5150000044 +                      SA5    NN                                                      GPO      1129
                          22415                   LX4    B1,X5                                                   GPO      1130
           665  7214000003                        ALLOC  BST,X4+3    ALLOC( BST , 2*NN+3 )                       GPO      1131
                                                                                                                 GPO      1132
                                        *         SETUP *BST* FOR PROCESSING OF *SCR*                            GPO      1133
                                        *         INITIALIZE *BST,BIT* ENTRIES FOR HOLDING BLOCK                 GPO      1134
                                                                                                                 GPO      1135
           667  5140000043 +                      SA4    IBA                                                     GPO      1136
                          5130000015 +            SA3    O.BIT                                                   GPO      1137
           670  63550                             SB5    X5          N = NN                                      GPO      1138
                     53140                        SA1    X4          IP = [IBA]                                  GPO      1139
                          55511                   SA5    A1-B1       IHW = [IBA-1]                               GPO      1140
                               20553              LX5    -IP.PBP+1                                               GPO      1141
           671  73650                             SX6    X5          HN = 2*PB[IHW]  */ *BN* OF HOLDING BLOCK    GPO      1142
                     43700                        MX7    0                                                       GPO      1143
                          5160000047 +            SA6    HBI         HBI(1) = HN                                 GPO      1144
           672  43072                             MX0    -BA.HBBL                                                GPO      1145
                     20644                        LX6    BA.BIP                                                  GPO      1146
                          20071                   LX0    BA.HBBP                                                 GPO      1147
                               16660              BX6    -X0+X6                                                  GPO      1148
           673  53620                             SA6    X2          BST(0) = BAW(HBB,HN,0,0)                    GPO      1149
                     63720                        SB7    X2                                                      GPO      1150
                          53721                   SA7    X2+B1       BST(1) = 0;  I = 2                          GPO      1151
                               43052              MX0    -IM.BIL                                                 GPO      1152
           674  63331                             SB3    X3+B1                                                   GPO      1153
                     63250                        SB2    X5                                                      GPO      1154
                          20044                   LX0    IM.BIP                                                  GPO      1155
                               53232              SA2    X3+B2                                                   GPO      1156
           675  15710                             BX7    -X0*X1      BN = BI[IP]   */ BN OF HEADER               GPO      1157
                     20752                        LX7    BI.PBNP-IM.BIP                                          GPO      1158
                          12772                   BX7    X7+X2       PBN[BIT(HN)] = BN  */ LINK *HB* TO HEADER   GPO      1159
                               43652              MX6    -BI.BVIL                                                FCC0392    85
                                                  LX6    BI.BVIP                                                 FCC0392    86
           676  11767                             BX7    X6*X7       BVI[BIT(HN)] = 0                            FCC0392    87
                     54720                        SA7    A2                                                      GPO      1160
                          66200                   SB2    B0          TLEN = 0                                    GPO      1161
                                                                                                                 GPO      1162
                                         IRP1     LX1    59-IM.SCRP                                              GPO      1163
           677  0321000702 +                      PL     X1,IRP2     IF ^SCR[IP]   */ BLOCK NOT IN *LOOP*        GPO      1164
                                                  LX1    1+IM.SCRP                                               GPO      1165
                          15610                   BX6    -X0*X1                                                  GPO      1166
                               10711              BX7    X1                                                      GPO      1167
           700  20130                             LX1    -IM.BIP                                                 GPO      1168
                     53213                        SA2    B3+X1       RIW = BIT(BI[IP]+1)                         GPO      1169
                          20225                   LX2    -RI.LENP                                                GPO      1170
                               63222              SB2    B2+X2       TLEN = TLEN + LEN[RIW]                      GPO      1171
                                                  LX6    BA.BIP-IM.BIP                                           GPO      1172
           701  5066000002                        SA6    A6+2        BST(I) = BAW(0,BI[IP],0,0)                  GPO      1173
                          5076000001              SA7    A6+1        BST(I+1) = 0;  I = I + 2                    GPO      1174
                                                                                                                 GPO      1175
           702  67551                    IRP2     SB5    B5-B1       N = N - 1                                   GPO      1176
                     54111                        SA1    A1+B1       IP = IP + 1                                 GPO      1177
                          0550000677 +            NZ     B5,IRP1     IF N " 0                                    GPO      1178
                                                                                                                 GPO      1179
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    39
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
           703  43600                             MX6    0                                                       GPO      1180
                     54671                        SA6    A7+B1       BST(I) = 0    */ TABLE TERMINATOR           GPO      1181
                          64661                   SB6    A6+B1                                                   GPO      1182
                               77767              SX7    B6-B7       L.BST = I + 1                               GPO      1183
           704  5170000000 X                      SA7    L.BST                                                   GPO      1184
  
                                        *         INITIALIZE FLAGS, CLEAR REGION BIT VECTORS                     GPO      1186
                                                                                                                 GPO      1187
                          5110000021 +            SA1    L.SBV                                                   GPO      1188
           705  5120000003 C                      SA2    DVA                                                     GPO      1189
                          13666                   SETZERO X2,X1      SETZERO( [DVA] , L.SBV )                    GPO      1190
           707  43544                             MX5    -24                                                     GPO      1191
                     14755                        BX7    -X5         MRA = ^MASK(36)                             GPO      1192
                          5170000015 C            SA7    MRA                                                     GPO      1193
           710  5170000051 +                      SA7    MRA.X       MRA.X = MRA                                 FCC1254    10
                          13666                   SETZERO N.HB,N.CLC SETZERO( N.HB , N.CLC )                     GPO      1194
           713  5110000000 X                      SA1    L.TET                                                   GPO      1195
                          43600                   MX6    0                                                       GPO      1196
                               10711              BX7    X1                                                      GPO      1197
           714  5170000014 C                      SA7    ITL         ITL = L.TET                                 GPO      1198
                          5170000102 C            SA7    TTI         TTI = L.TET                                 GPO      1199
           715  5160000100 C                      SA6    NTP         NTP = 0                                     GPO      1200
                          5160000016 C            SA6    LGL         LGL = 0                                     GPO      1201
           716  5160000053 +                      SA6    UXR+1       UXR(2) = 0                                  GPO      1202
                          5160000046 +            SA6    NBIP        NBIP = 0                                    FCC0514    30
                                                                                                                 GPO      1203
                                        *         GET HEADER NODE, SET LINENR OF *BOS*, LOOP LABEL, ETC.         GPO      1204
                                                                                                                 GPO      1205
           717  7170000002                        SX7    2                                                       GPO      1206
                          5170000032 +            SA7    BSI         BSI = 2                                     GPO      1207
           720  0100000000 X                      CALL   RTB         READ FIRST BLOCK INTO *BLK*                 GPO      1208
                                                                                                                 GPO      1209
           721  5110000027 +                      SA1    O.SEQ       T = [O.SEQ]                                 GPO      1210
                          5130000043 +            SA3    IBA                                                     GPO      1211
           722  5251000005                        SA5    X1+5                                                    GPO      1212
                          53410                   SA4    X1                                                      GPO      1213
                               22705              LX7    X5          LIH(2) = [T+5]  */ R2 WORD OF LOOP *LAB*    GPO      1214
           723  55551                             SA5    A5-B1       R1 = [T+4]      */ R1 WORD OF *LAB*         GPO      1215
                     10644                        BX6    X4                                                      GPO      1216
                          5160000050 +            SA6    HBI+1       HBI(2) = [T]  */ R1 WORD OF *BOS*           GPO      1217
           724  5170000026 C                      SA7    LIH+1                                                   GPO      1218
                          20636                   LX6    -R1.INP                                                 GPO      1219
                               73660              SX6    X6          LINENR = IN[T]  */ LINE NUMBER OF LOOP      GPO      1220
           725  5160000000 X                      SA6    =XLINENR                                                GPO      1221
                          73750                   SX7    X5                                                      GPO      1222
                               55771              SA7    A7-B1       LIH(1) = IH[R1]                             GPO      1223
           726  43700                             MX7    0                                                       FCC2113    14
                     54751                        SA7    A5+B1       [T+5] = 0     */ CLEAR R2 WORD OF LABEL DEF FCC2113    15
                          5233777776              SA3    X3-1        IPW = [IBA-1]                               GPO      1224
                                                  LX3    59-IP.GLP                                               GPO      1225
           727  0323000663 +                      PL     X3,IRP      IF ^GL[IPW]   */ NO LABEL TRANSFER NECESSAR GPO      1226
                                                                                                                 FCC0408    31
                          20301                   LX3    IP.GLP-IP.FTP                                           FCC0408    32
                               10633              BX6    X3                                                      FCC0408    33
           730  5160000054 +                      SA6    FTH         FTH = FT[IPW] */ SAVE FOR *TRP*             FCC0408    34
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    40
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                                        *         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
                          5140000001 +            SA4    N.GL0                                                   GPO      1231
           731  26525                             UX5    B2,X5                                                   GPO      1232
                     73641                        SX6    X4+B1       N.GL0 = N.GL0 + 1                           GPO      1233
                          54640                   SA6    A4                                                      GPO      1234
                               73550              SX5    X5          LL = IH[R1]                                 GPO      1235
           732  7266100000                        SX6    X6+I.GL     GIH = I.GL + N.GL0                          GPO      1236
                          37265                   IX2    X6-X5                                                   GPO      1237
                               20222              LX2    18                                                      GPO      1238
           733  12725                             BX7    X2+X5       LGL = SHIFT(GIH-LL,18) ! LL                 GPO      1239
                     27626                        PX6    B2,X6                                                   GPO      1240
                          5170000016 C            SA7    LGL                                                     GPO      1241
           734  5261000004                        SA6    X1+4        [T+4] = TYIV(OC.LAB,0,GIH)                  GPO      1242
                                                                                                                 GPO      1243
                          5120000047 +            SA2    HBI                                                     GPO      1244
           735  5110000015 +                      SA1    O.BIT                                                   GPO      1245
                          76010                   SX0    B1                                                      GPO      1246
                               63320              SB3    X2                                                      GPO      1247
           736  53313                             SA3    X1+B3                                                   GPO      1248
                     20071                        LX0    BI.ILP                                                  GPO      1249
                          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
           737  5130000001 +                      SA3    N.GL0                                                   FCC1319    31
                          20322                   LX3    LC.GLNP                                                 FCC1319    32
                               12632              BX6    X3+X2                                                   FCC1319    33
           740  5140000024 +                      SA4    L.LCT       L = L.LCT                                   FCC1319    34
                          5130000023 +            SA3    O.LCT                                                   FCC1319    35
           741  63330                             SB3    X3                                                      FCC1319    36
                     53643                        SA6    B3+X4       LCT(L) = LC(0,N.GL0,HBI)                    FCC1319    37
                          73741                   SX7    X4+B1       L.LCT = L.LCT + 1                           FCC1319    38
                               54740              SA7    A4                                                      FCC1319    39
           742  5110000012                        SA1    O.SYM                                                   FCC1319    40
                          20501                   LX5    1                                                       FCC1319    41
                               37715              IX7    X1-X5                                                   FCC1319    42
           743  53570                             SA5    X7          WORDA = SYM(IH)                             FCC1319    43
                     76010                        SX0    B1                                                      FCC1319    44
                          20017                   LX0    P.LC                                                    FCC1319    45
                               12705              BX7    X0+X5                                                   FCC1319    46
           744  43060                             MX0    -L.LCO                                                  FCC1319    47
                     55151                        SA1    A5-B1       WORDB = WORDA-1                             FCC1319    48
                          20554                   LX5    59-P.LC                                                 FCC1319    49
           745  0325000751 +                      PL     X5,IRP4     IF ^LC[WORDA] */ FIRST TIME                 FCC1319    50
                                                                                                                 FCC1319    51
                          15710                   BX7    -X0*X1      J = LCO[WORDB]                              FCC1319    52
           746  53273                   +         SA2    B3+X7       JL = J                                      FCC1319    53
                     20230                        LX2    -LC.NEXTP                                               FCC1319    54
                          7272000000              SX7    X2+         J = NEXT[LCT(JL)]                           FCC1319    55
           747  0317000746 +                      NZ     X7,*-1      IF J " 0                                    FCC1319    56
                                                                                                                 FCC1319    57
                          12642                   BX6    X4+X2       NEXT[LCT(JL)] = L.LCT - 1                   FCC1319    58
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    41
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                               20644              LX6    LC.NEXTP                                                FCC1319    59
           750  54620                             SA6    A2                                                      FCC1319    60
                     0400000752 +                 EQ     IRP5                                                    FCC1319    61
                                                                                                                 FCC1319    62
           751  54750                    IRP4     SA7    A5          LC[WORDA] = 1                               FCC1319    63
                     11101                        BX1    X0*X1                                                   FCC1319    64
                          12741                   BX7    X4+X1       LCO[WORDB] = L                              FCC1319    65
                               54710              SA7    A1                                                      FCC1319    66
                                                                                                                 FCC1319    67
           752  0400000663 +             IRP5     EQ     IRP                                                     FCC1319    68
  
  
  
                                        **        IHB - INITIALIZE HOLDING BLOCK                                 GPO      1254
                                                                                                                 GPO      1255
           753  0200400753 +             IHB      ROUTINE                                                        GPO      1256
           754  5120000047 +                      SA2    HBI         HN = HBI(1)                                 GPO      1257
                          54121                   SA1    A2+B1                                                   GPO      1258
                               43052              MX0    -18                                                     GPO      1259
           755  5140000000 X                      SA4    O.TXT       R1 = [O.TXT]                                GPO      1260
                          5150000016 C            SA5    LGL                                                     GPO      1261
           756  11301                             BX3    X0*X1                                                   GPO      1262
                     36632                        IX6    X3+X2       [R1] = TYIV(OC.BOS,LINENR,HN)               GPO      1263
                          5264000000              SA6    X4+                                                     GPO      1264
           757  0305000753 +                      ZR     X5,IHB      IF LGL = 0    */ NO GENERATED LABEL         GPO      1265
                                                                                                                 GPO      1266
                          7110000004              ALLOC  TXT,4       ALLOC( TXT , 4 )                            GPO      1267
           761  63720                             SB7    X2                                                      GPO      1268
                     6120000006                   SB2    OC.LAB                                                  GPO      1269
                               73450              SX4    X5          LL = SETX(LGL)  */ CURRENT LOOP LABEL       GPO      1270
           762  21522                             AX5    18                                                      GPO      1271
                     36745                        IX7    X4+X5       LIH = GLB[LGL]  */ SAVE GEN LABEL IN R2     FCC2113    16
                          5170000025 C            SA7    LIH         UPDATE LIH                                  FCCA495     6
           763  73640                             SX6    X4                                                      GPO      1275
                     0100000127 +                 RJ     SRI         SRI(  LAB  0,LL )  */ MOVE LABEL OUT        GPO      1276
           764  0400000753 +                      EQ     IHB                                                     GPO      1277
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    42
        TRP - TERMINATE REGION PROCESSING                             TRP                 CODE
  
                                        **        TRP - TERMINATE REGION PROCESSING FOR A LOOP                   GPO      1279
                                                                                                                 GPO      1280
           765  0200400765 +             TRP      ROUTINE                                                        GPO      1281
                                                                                                                 GPO      1282
                                        *         CHECK LOOP CONTROL VAR AND SET *M* BIT IN SYMTAB IF IT IS ^RD  GPO      1283
                                                                                                                 GPO      1284
           766  5140000026 C                      SA4    LIH+1                                                   GPO      1285
                          0304000775 +            ZR     X4,TRP1     IF LIH(2) = 0 */ NOT A DO LOOP              GPO      1286
           767  5110000000 C                      SA1    O.UDT                                                   GPO      1287
                                                  LX4    -IH.ICVP                                                GPO      1288
                          63440                   SB4    X4                                                      GPO      1289
           770  6130100000                        SB3    I.GL                                                    FCC2113    17
                          0734000775 +            GT     B4,B3,TRP1  IF LIH > I.GL */ LAB IH FROM FTH LOOP       FCC2113    18
           771  53314                             SA3    X1+B4       UI = UDT(ICV[LIH])                          GPO      1290
                     20304                        LX3    59-UD.^RDP                                              GPO      1291
                          0323000775 +            PL     X3,TRP1     IF RD[UI]                                   GPO      1292
           772  55441                             SA4    A4-B1       IH = LIH(1)   */ *IH* OF )XX                GPO      1293
                     5150000012                   SA5    O.SYM                                                   GPO      1294
                               76710              SX7    B1                                                      GPO      1295
           773  20401                             LX4    1                                                       GPO      1296
                     37554                        IX5    X5-X4                                                   GPO      1297
                          5235777776              SA3    X5-1        WORDB = [O.SYM-2*IH-1]                      GPO      1298
           774  20763                             LX7    P.FLG+OF.MP                                             GPO      1299
                     12637                        BX6    X3+X7       MAT[WORDB] = 1  */ SET MATERIALIZATION FLAG GPO      1300
                          54630                   SA6    A3                                                      GPO      1301
                                                                                                                 GPO      1302
           775  5140000000 X             TRP1     SA4    L.BST                                                   GPO      1303
                          7254777772              SX5    X4-5                                                    GPO      1304
           776  0100001247 +                      RJ     CRB         RESET *UDT*                                 GPO      1305
           777  7160000000                        SX6    0                                                       GPO      1306
                          5160000000 X            SA6    L.IIT       L.IIT = 0                                   GPO      1307
          1000  5160000032 +                      SA6    BSI         BSI = 0                                     GPO      1308
                          5160000045 +            SA6    BBV         BBV = 0                                     GPO      1309
                                                                                                                 GPO      1310
          1001  0100000000 X                      CALL   RTB         GET HOLDING BLOCK                           GPO      1311
          1002  5140000047 +                      SA4    HBI                                                     GPO      1312
                          5150000027 +            SA5    O.SEQ                                                   GPO      1313
          1003  43717                             MX7    -UD.STCP                                                GPO      1314
                     10644                        BX6    X4                                                      GPO      1315
                          5170001300 +            SA7    BCM         BCM = *REGION CLEAR MASK*                   GPO      1316
          1004  5160000031 +                      SA6    BN          BN = HBI(1)                                 GPO      1317
                          0100001307 +            CALL   FUD         FORM BIT VECTORS FOR *HB*                   GPO      1318
          1005  7160000001                        SX6    1                                                       GPO      1319
                          5160000045 +            SA6    BBV         BBV = 1                                     GPO      1320
          1006  43703                             MX7    UD.MVL                                                  GPO      1321
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO      1322
                          5170001300 +            SA7    BCM         BCM = *MV*                                  GPO      1323
                                                                                                                 GPO      1324
                                        *         *HB* LIVE EXIT VECTOR IS REGION LIVE ENTRY VECTOR              GPO      1325
                                                                                                                 GPO      1326
          1007  5110000000 C                      SA1    VL                                                      GPO      1327
                          5120000017 +            SA2    O.BVT                                                   GPO      1328
          1010  5130000020 +                      SA3    L.BVT                                                   GPO      1329
                          5140000007 C            SA4    LEA                                                     GPO      1330
          1011  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
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    43
        TRP - TERMINATE REGION PROCESSING                             TRP                 CODE
  
                               66200              SB2    B0                                                      GPO      1334
          1012  63310                             SB3    X1                                                      GPO      1335
          1013  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
          1014  0723001013 +                      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
          1015  5150000050 +                      SA5    HBI+1       BN = HBI(2)   */ BN OF HEADER               GPO      1346
                          5120000003 C            SA2    DVA                                                     GPO      1347
          1016  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
          1020  5110000054 +                      SA1    FTH                                                     FCC0408    35
                          0331001023 +            MI     X1,TRP3     IF FTH < 0    */ FALL THROUGH TO *HN*       FCC0675   137
          1021  53356                             SA3    B6+X5       BIW = BIT(HN)                               FCC0675   138
                                                  LX3    59-BI.RBP                                               FCC0675   139
                     0333001037 +                 MI     X3,TRP4     IF RB[BIW]    */ PROGRAM BLOCK              FCC0675   140
                               20306              LX3    BI.RBP-BI.FTHP                                          FCC0675   141
          1022  0323001037 +                      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
          1023  43700                    TRP3     MX7    0           FTH = 0                                     FCC0675   143
                     54710                        SA7    A1                                                      FCC0675   144
                          5110000047 +            SA1    HBI                                                     FCC0675   145
          1024  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
          1025  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
          1026  0100004302 +                      CALL   MBT         MOVE *HB* TO *TXT*                          FCC0408    55
          1027  7110000004                        ALLOC  TXT,4       ALLOC( TXT , 4 )                            FCC0408    56
          1031  5150000001 +                      SA5    N.GL0                                                   FCC0408    57
                          6263777767              SB6    X3-8        TI = L.TXT - 8                              FCC0408    58
          1032  6120000073                        SB2    OC.UJP                                                  FCC0408    59
                          7265100000              SX6    I.GL+X5                                                 FCC0408    60
          1033  63720                             SB7    X2          TB = O.TXT                                  FCC0408    61
                     43700                        MX7    0                                                       FCC0408    62
                          0100000127 +            RJ     SRI         SRI(  UJP  0,I.GL+N.GL0 )                   FCC0408    63
          1034  66200                             R=     B2,OC.EOQ                                               FCC0408    64
                     43600                        MX6    0                                                       FCC0408    65
                          0100000127 +            RJ     SRI         SRI(  EOQ  0,0 )                            FCC0408    66
          1035  0100000071 +                      CALL   WTB         REWRITE THE BLOCK                           FCC0408    67
          1036  0100000000 X                      CALL   RTB         RESET *SEQ* POINTERS                        FCC0408    68
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    44
        TRP - TERMINATE REGION PROCESSING                             TRP                 CODE
  
                                                                                                                 FCC0408    69
          1037  5150000027 +             TRP4     SA5    O.SEQ                                                   FCC0675   156
                          5245777776              SA4    X5-1        BHW = [O.SEQ-1]                             GPO      1355
          1040  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
          1041  12604                             BX6    X0+X4       BST[BHW] = 1S17  */ INDICATE NOT IN *BST*   GPO      1360
                     54640                        SA6    A4                                                      GPO      1361
                          0100001044 +            RJ     CBT         CLEAR BLOCK TABLE                           GPO      1362
          1042  0400000765 +                      EQ     TRP                                                     GPO      1363
  
  
  
                                        **        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
          1043  7160000000               CBT0     SX6    0                                                       GPO      1367
                          5160000000 X            SA6    L.BST       L.BST = 0                                   GPO      1368
          1044  0200401044 +             CBT      ROUTINE                                                        GPO      1369
          1045  7160000000                        SX6    0                                                       GPO      1370
                          5160000032 +            SA6    BSI         BSI = 0                                     GPO      1371
                                                                                                                 FCC0408    72
          1046  5110000032 +             CBT1     SA1    BSI                                                     GPO      1372
                          5120000000 X            SA2    O.BST                                                   GPO      1373
          1047  5130000015 +                      SA3    O.BIT                                                   GPO      1374
                          73610                   SX6    X1                                                      GPO      1375
                               63420              SB4    X2                                                      GPO      1376
                                                                                                                 GPO      1377
          1050  7266000002               CBT2     SX6    X6+2        BSI = BSI + 2                               GPO      1378
                          53564                   SA5    B4+X6       BAW = BST(BSI)                              GPO      1379
                               63530              SB5    X3                                                      GPO      1380
          1051  0305001043 +                      ZR     X5,CBT0     IF BAW = 0    */ END OF *BST*               GPO      1381
                                                  LX5    -BA.FWAP                                                GPO      1382
                          6265776733 -            SB6    X5-CBT                                                  FCC0675   158
          1052  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
          1053  43055                             MX0    -BI.OLNL                                                FCC0675   166
                     10744                        BX7    X4                                                      FCC1319    71
                          20726                   LX7    -BI.OLNP                                                FCC1319    72
                               11707              BX7    X0*X7                                                   FCC0675   168
          1054  12727                             BX7    X2+X7       OLN[BIT(J)] = HBI                           FCC0675   169
                     20746                        LX7    BI.OLNP                                                 FCC0675   170
                          54740                   SA7    A4                                                      FCC0675   171
                                                                                                                 FCC0675   172
          1055  0760001050 +             CBT3     MI     B6,CBT2     IF FWA[BAW] < CBT  */ DUMMY BLOCK           FCC0675   173
                          20401                   LX4    59-BI.CBP                                               GPO      1387
          1056  0334001050 +                      MI     X4,CBT2     IF CB[BAW]                                  GPO      1388
                          54610                   SA6    A1                                                      GPO      1389
          1057  0100000000 X                      CALL   RBS         RELEASE THE BLOCK                           GPO      1390
          1060  0400001046 +                      EQ     CBT1                                                    GPO      1391
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    45
        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
          1061  0200401061 +             CIC      ROUTINE                                                        GPO      1401
                                                                                                                 GPO      1402
                                        *         SCAN INTERVAL LIST TO FORM AN *EBB*                            GPO      1403
                                                                                                                 GPO      1404
          1062  5110000043 +             CIC1     SA1    IBA                                                     GPO      1405
                          5130000015 +            SA3    O.BIT                                                   GPO      1406
          1063  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
          1064  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
          1065  0324001072 +                      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
          1066  67221                    CIC2     SB2    B2-B1       N = N - 1                                   GPO      1420
                     54551                        SA5    A5+B1       IP = IP + 1                                 GPO      1421
                          0420001073 +            ZR     B2,CIC4     IF N = 0      */ END OF LIST                GPO      1422
          1067  13625                             BX6    X2-X5                                                   GPO      1423
                                                  LX6    59-IM.SCRP                                              GPO      1424
                     0336001073 +                 MI     X6,CIC4     IF SCR[IP] " SCR[FIP]  */ DIFF REGIONS      GPO      1425
                               20530              LX5    -IM.BIP     I = BI[IP]                                  GPO      1426
          1070  53453                             SA4    B3+X5       BIW = BIT(I)                                GPO      1427
                                                  LX4    59-BI.RBP                                               FCC0675   174
                     0324001072 +                 PL     X4,CIC3     IF ^RB[BIW]   */ A HOLDING BLOCK            FCC0675   175
                               20402              LX4    BI.RBP-BI.ILP                                           FCC0675   176
          1071  0324001066 +                      PL     X4,CIC2     IF ^IL[BIW]                                 FCC0675   177
                          0400001073 +            EQ     CIC4                                                    FCC0675   178
                                                                                                                 GPO      1432
                                        *         TERMINATE LIST AFTER THIS NODE                                 GPO      1433
                                                                                                                 GPO      1434
          1072  74651                    CIC3     SX6    A5+B1       IPL = IP + 1                                GPO      1435
                     0400001074 +                 EQ     CIC5                                                    GPO      1436
                                                                                                                 GPO      1437
          1073  7065000000               CIC4     SX6    A5+         IPL = IP      */ TERMINATE BEFORE           GPO      1438
                                                                                                                 GPO      1439
          1074  20001                    CIC5     LX0    59-BI.CBP                                               GPO      1440
                     37661                        IX6    X6-X1       K = IPL - IBA */ N. NODES IN *EBB*          GPO      1441
                          0320001100 +            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
          1075  54211                    CIC6     SA2    A1+B1                                                   GPO      1446
                     36761                        IX7    X6+X1       IBA = IBA + K                               GPO      1447
                          54710                   SA7    A1                                                      GPO      1448
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    46
        CIC - CONVERT INTERVAL TO CODE                                CIC                 CODE
  
                               37626              IX6    X2-X6       NN = NN - K                                 GPO      1449
          1076  54620                             SA6    A2                                                      GPO      1450
                     0316001062 +                 NZ     X6,CIC1     IF NN " 0                                   GPO      1451
                                                                                                                 GPO      1452
          1077  0400001061 +                      EQ     CIC                                                     GPO      1453
                                                                                                                 GPO      1454
                                        *         SET FP/LVL EXPANSION MODE, AND SETUP A *BST* FOR THIS *EBB*.   GPO      1455
                                                                                                                 GPO      1456
          1100  76010                    CIC7     SX0    B1                                                      GPO      1457
                     20201                        LX2    -IM.SCRP                                                GPO      1458
                          11302                   BX3    X0*X2                                                   GPO      1459
          1101  7273000003                        SX7    X3+3        EMF = 3+SCR[FIP]  */ FP/LVL EXPANSION FLG   GPO      1460
                          5170000013 C            SA7    EMF                                                     GPO      1461
          1102  10566                             BX5    X6                                                      GPO      1462
                     22216                        LX2    B1,X6                                                   GPO      1463
                          5160001124 +            SA6    CICA                                                    GPO      1464
          1103  43052                             MX0    -IM.BIL                                                 GPO      1465
                     7212000003                   ALLOC  BST,X2+3    ALLOC( BST , 2*K+3 )                        GPO      1466
          1105  5110000043 +                      SA1    IBA                                                     GPO      1467
                          63250                   SB2    X5          N = K                                       GPO      1468
                               43700              MX7    0                                                       GPO      1469
          1106  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
          1107  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
          1110  67221                             SB2    B2-B1       N = N - 1                                   GPO      1480
                     54551                        SA5    A5+B1       IP = IP + 1                                 GPO      1481
                          0520001107 +            NZ     B2,CIC8     IF N " 0                                    GPO      1482
                                                                                                                 GPO      1483
          1111  43700                             MX7    0                                                       GPO      1484
                     54771                        SA7    A7+B1       BST(I) = 0    */ *BST* TERMINATOR           GPO      1485
                          5170000034 C            SA7    MAXW        MAXW = 0                                    GPO      1486
          1112  5170000035 C                      SA7    N.EBB       N.EBB = 0                                   GPO      1487
                                                                                                                 GPO      1488
                          7170001550 +            CLCM   CHB         COMBINE HOLDING BLOCKS                      GPO      1489
                                                                                                                 GPO      1490
          1114  7170001647 +                      CLCM   RDD         REMOVE DEAD DEFS                            GPO      1491
                                                                                                                 GPO      1492
          1116  0100001125 +                      CALL   CBB         COMBINE BASIC BLOCKS                        GPO      1493
                                                                                                                 GPO      1494
          1117  7170000000 X                      CLCM   CXB         CODE EXTENDED BLOCKS                        GPO      1495
                                                                                                                 GPO      1496
          1121  0100001044 +                      RJ     CBT         CLEAR *BST*                                 GPO      1497
          1122  5120001124 +                      SA2    CICA                                                    GPO      1498
                          5110000043 +            SA1    IBA                                                     GPO      1499
          1123  10622                             BX6    X2                                                      GPO      1500
                     0400001075 +                 EQ     CIC6                                                    GPO      1501
                                                                                                                 GPO      1502
          1124                     1     CICA     BSS    1                                                       GPO      1503
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    47
        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
          1125  0200401125 +             CBB      ROUTINE                                                        GPO      1512
          1126  7160000002                        SX6    2           BSIL = 2                                    GPO      1513
                          5160001224 +            SA6    BSIL                                                    GPO      1514
                                                                                                                 GPO      1515
          1127  5110001224 +             CBB1     SA1    BSIL        I = BSIL                                    GPO      1516
                          5120000000 X            SA2    O.BST                                                   GPO      1517
          1130  5130000015 +                      SA3    O.BIT                                                   GPO      1518
                          5140000013 +            SA4    M.EBL                                                   GPO      1519
          1131  63320                             SB3    X2                        (B3) = [O.BST]                GPO      1520
                     10611                        BX6    X1          BSI = BSIL                                  GPO      1521
                          5160000032 +            SA6    BSI                                                     GPO      1522
          1132  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
          1133  0305001125 +                      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
          1134  20552                             LX5    BA.LENP-BA.BIP                                          GPO      1531
                     53454                        SA4    B4+X5       BIW = BIT(BI[BAW])                          GPO      1532
                                                  LX4    59-BI.RBP                                               GPO      1533
                          0324001145 +            PL     X4,CBB3     IF ^RB[BIW]   */ HOLDING BLOCK              GPO      1534
          1135  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
          1136  73112                    CBB2     SX1    X1+B2       I = I + 2                                   GPO      1540
                     20403                        LX4    BI.RBP-BI.FJP                                           GPO      1541
                          0776001146 +            GT     B6,B7,CBB3A IF TLEN > M.EBL  */ SPACE OVERFLOW          GPO      1542
          1137  0334001154 +                      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
          1140  0305001154 +                      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
          1141  20402                             LX4    59-BI.ILP                                               GPO      1549
                     0334001154 +                 MI     X4,CBB4     IF IL[BIW]                                  GPO      1550
                               13657              BX6    X5-X7                                                   GPO      1551
          1142  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
          1143  0324001151 +                      PL     X4,CBB3B    IF ^RB[BIW]                                 FCCA509X    8
                          0450001136 +            ZR     B5,CBB2     IF BN[BAW] = LBN  */ BLOCKS CONTIGIOUS      GPO      1557
          1144  0400001154 +                      EQ     CBB4                                                    GPO      1558
                                                                                                                 GPO      1559
          1145  7261000002               CBB3     SX6    X1+2        LIM = I + 2                                 GPO      1560
                          0400001155 +            EQ     CBB5                                                    GPO      1561
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    48
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
                                                                                                                 GPO      1562
          1146  6177000300               CBB3A    SB7    B7+300B                                                 GPO      1563
                          0676001154 +            LE     B6,B7,CBB4  IF TLEN @ M.EBL + 300B                      GPO      1564
                                                                                                                 GPO      1565
          1147  74202                             SX2    A0+B2                                                   GPO      1566
                     37712                        IX7    X1-X2                                                   GPO      1567
                          0307001154 +            ZR     X7,CBB4     IF I = BSIL + 2  */ ONLY 1 BIG BLOCK        GPO      1568
          1150  7211777775                        SX1    X1-2        I = I - 2                                   GPO      1569
                          0400001154 +            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
          1151  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
          1152  20230                             LX2    -BA.BIP     PBLK = BI[BST(I-2)]                         FCCA509X   18
                     37742                        IX7    X4-X2                                                   FCCA509X   19
                          63570                   SB5    X7                                                      FCCA509X   20
          1153  0552001154 +                      NE     B5,B2,CBB4  IF PBLK+2 " HDRBLK                          FCCA509X   21
                          73112                   SX1    X1+B2                                                   FCCA509X   22
                                                                                                                 FCCA509X   23
                                                                                                                 GPO      1570
          1154  7261000000               CBB4     SX6    X1+         LIM = I                                     GPO      1571
                                                                                                                 GPO      1572
          1155  54611                    CBB5     SA6    A1+B1       BSIL(2) = LIM                               GPO      1573
                     7170000004                   SX7    4                                                       GPO      1574
                               66500              SB5    B0          J = 0                                       GPO      1575
          1156  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
          1157  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
          1160  6225777767                        SB2    X5-8                                                    GPO      1585
                          0602001162 +            LE     B2,CBB7     IF LEN[BAW] @ 8                             GPO      1586
                                                                                                                 GPO      1587
          1161  0550001165 +                      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
          1162  0767001157 +             CBB7     LT     B6,B7,CBB6  IF I < BSIL(2)                              GPO      1591
                                                                                                                 GPO      1592
                          0450001222 +            ZR     B5,CBB15    IF J = 0      */ NO NON-EMPTY BLOCKS        GPO      1593
                                                                                                                 GPO      1594
          1163  7165000000                        SX6    B5+         BSI = J                                     GPO      1595
                          5160001224 +            SA6    BSIL        BSIL = J                                    GPO      1596
          1164  5160000032 +                      SA6    BSI                                                     GPO      1597
                          0400001207 +            EQ     CBB10                                                   FCC0643    10
                                                                                                                 FCC0643    11
                                        *         FORM AN EXTENDED BASIC BLOCK ( *EBB* )                         FCC0643    12
                                                                                                                 FCC0643    13
          1165  5150000000 X             CBB8     SA5    O.BST                                                   FCC0643    14
                          5140000032 +            SA4    BSI                                                     GPO      1616
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    49
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
          1166  63550                             SB5    X5                                                      GPO      1617
                     53145                        SA1    B5+X4       BAW = BST(BSI)                              GPO      1618
                          20152                   LX1    -BA.LENP                                                GPO      1619
          1167  6221777767                        SB2    X1-8                                                    GPO      1620
                          0602001176 +            LE     B2,CBB9     IF LEN[BAW] @ 8  */ EMPTY BLOCK             FCC0643    15
                                                                                                                 GPO      1622
          1170  0100000000 X                      CALL   RTB         READ BLOCK IN                               GPO      1623
          1171  5120000027 +                      SA2    O.SEQ       T = [O.SEQ]                                 GPO      1624
                          6120000002              SB2    OC.EOS                                                  GPO      1625
          1172  5142000000 X                      SA4    =XF.RDT+B2                                              GPO      1626
                          53320                   SA3    X2                                                      GPO      1628
                               27723              PX7    B2,X3       OC[T] = OC.EOQ                              GPO      1629
          1173  54730                             SA7    A3                                                      GPO      1630
                     43600                        MX6    0                                                       GPO      1631
                          10744                   BX7    X4                                                      GPO      1632
          1174  5077000002                        SA7    A7+2        [T+2] = RDT(OC.EOS)                         GPO      1633
                          0100004172 +            CALL   MPB ( 0 )   MERGE BLOCKS                                FCC0643    16
                                                                                                                 GPO      1635
          1175  0100000000 X                      CALL   RBS         RELEASE THE BLOCK                           GPO      1636
          1176  5110000032 +             CBB9     SA1    BSI                                                     FCC0643    17
                          5120001225 +            SA2    BSIL+1                                                  GPO      1638
          1177  7261000002                        SX6    X1+2        BSI = BSI + 2                               GPO      1639
                          37762                   IX7    X6-X2                                                   GPO      1640
                               54610              SA6    A1                                                      GPO      1641
          1200  0337001165 +                      MI     X7,CBB8     IF BSI < BSIL(2)                            FCC0643    18
                                                                                                                 GPO      1643
                          5110000000 X            SA1    O.TXT                                                   GPO      1644
          1201  53210                             SA2    X1          T = [O.TXT]                                 GPO      1645
                     27712                        PX7    B1,X2       OC[T] = OC.BOS                              GPO      1646
                          5072000000              SA7    A2+                                                     GPO      1647
          1202  5110001224 +                      SA1    BSIL                                                    FCC0643    19
                          43600                   MX6    0                                                       FCC0643    20
                               10711              BX7    X1          BSI = BSIL(1)                               FCC0643    21
          1203  5170000032 +                      SA7    BSI                                                     FCC0643    22
                          0100000000 X            CALL   SQZB        SQUEEZE THE EXTENDED BLOCK                  FCC0643    23
          1204  5110000013 C                      SA1    EMF                                                     FCC0643    24
                          5221777776 X            SA2    =XESRA-1+X1                                             FCC0643    25
          1205  53320                             SA3    X2                                                      FCC0643    26
                     0303001216 +                 ZR     X3,CBB13    IF [ESRA(EMF)] = 0  */ NO FP OR L2 IN PROG  FCC0643    27
          1206  0100000071 +                      CALL   WTB         MOVE EBB FROM *TXT* TO *BLK*                FCC0643    28
                                                                                                                 FCC0643    29
                                        *         EXPAND SPECIAL MEMORY REFS AND MERGE/SQZ BLOCK                 FCC0643    30
                                                                                                                 FCC0643    31
          1207  0100000000 X             CBB10    CALL   RTB         READ BLOCK IN                               FCC0643    32
          1210  5150000013 C                      SA5    EMF                                                     FCC0643    33
                          43601                   MX6    1                                                       FCC0643    34
          1211  0100000000 X                      CALL   ESR         ESR( EMF , 1S59 )  */ EXPAND SPECIAL REFS   FCC0643    35
          1212  5110000000 X                      SA1    L.MLT                                                   FCC0643    36
                          0301001215 +            ZR     X1,CBB11    IF L.MLT = 0  */ NO MODS TO THIS BLOCK      FCC0643    37
          1213  76610                             SX6    B1                                                      FCC0643    38
                     0100004172 +                 CALL   MPB ( 1 )   MERGE MODS AND SQUEEZE THE BLOCK            FCC0643    39
          1214  0400001216 +                      EQ     CBB13                                                   FCC0643    40
                                                                                                                 FCC0643    41
          1215  0100004302 +             CBB11    CALL   MBT         MOVE BLOCK TO *TXT*                         FCC0643    42
                                                                                                                 GPO      1651
          1216  76610                    CBB13    SX6    B1                                                      GPO      1652
                     0100000000 X                 CALL   RIO         REORDER THE INSTRUCTIONS                    GPO      1653
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    50
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
          1217  5120000034 C                      SA2    MAXW                                                    GPO      1654
                          5140000035 C            SA4    N.EBB                                                   FCC0643    43
          1220  37326                             IX3    X2-X6                                                   GPO      1656
                     0323001221 +                 PL     X3,CBB14    MAXW = MAX( MAXW , SIO.MAX )                GPO      1657
                               54620              SA6    A2                                                      GPO      1658
          1221  73641                    CBB14    SX6    X4+B1       N.EBB = N.EBB + 1                           FCC0643    44
                     54640                        SA6    A4                                                      FCC0643    45
                          0100000071 +            CALL   WTB         WRITE BLOCK BACK TO *BLK*                   GPO      1664
                                                                                                                 GPO      1665
          1222  5150001225 +             CBB15    SA5    BSIL+1                                                  GPO      1666
                          10755                   BX7    X5          BSIL(1) = BSIL(2)                           GPO      1667
                               55751              SA7    A5-B1                                                   GPO      1668
          1223  0400001127 +                      EQ     CBB1                                                    GPO      1669
                                                                                                                 GPO      1670
          1224                     2     BSIL     BSS    2           *BST* LIMITS                                GPO      1671
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    51
        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
          1226  0200401226 +             ATT      ROUTINE                                                        FCC0514    35
          1227  5120000014 C                      SA2    ITL                                                     FCC0514    36
                          5130000014 +            SA3    N.GT                                                    FCC0514    37
          1230  5110000000 X                      SA1    O.TET                                                   FCC0514    38
                          63220                   SB2    X2          I = ITL                                     FCC0514    39
                               63330              SB3    X3          L = N.GT                                    FCC0514    40
          1231  0423001235 +                      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
          1232  43473                             MX4    -1                                                      FCC2392    13
                     20470                        LX4    T.CALP                          */ SEE STS IN SQZ       FCC2392    14
                          11004                   BX0    X0*X4                           */ UNLOCK CA FIELD      FCC2392    15
          1233  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
          1234  0723001233 +                      LT     B2,B3,ATT2  IF I < L                                    FCC0514    51
                                                                                                                 FCC0514    52
          1235  5140000000 X             ATT3     SA4    L.TET                                                   FCC0514    53
                          63510                   SB5    X1                                                      FCC0514    54
                               63440              SB4    X4          I = L.TET                                   FCC0514    55
          1236  0443001226 +                      EQ     B4,B3,ATT   IF L.TET = N.GT  */ NO TST SQUEEZING        FCC0514    56
                                                                                                                 FCC0514    57
                                        *         MOVE *IP* FIELDS OF THE EQUIVED ENTRIES TO THEIR BASE MEMBERS. FCC0514    58
                                                                                                                 FCC0514    59
                          43051                   MX0    -T.IPFL                                                 FCC0514    60
                               76630              SX6    B3          L.TET = N.GT                                FCC0514    61
          1237  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
          1240  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
          1241  15430                             BX4    -X0*X3      IPI = IPF[TET(C)]                           FCC0514    71
                     36647                        IX6    X4+X7       TET(C) = TETW(INV[TI],IPI,0,C)              FCC0514    72
                          5063000000              SA6    A3+                                                     FCC0514    73
          1242  0734001240 +                      GT     B4,B3,ATT4  IF I > L                                    FCC0514    74
                                                                                                                 FCC0514    75
                          0400001226 +            EQ     ATT                                                     FCC0514    76
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    52
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CRB                 CODE
  
                                        **        CRB - CLEAR REGION BITS IN *UDT*                               GPO      1673
                                        *                                                                        GPO      1674
                                        *         ENTRY  (X5) = 0 IF N.BLK IN REGION = 1                         GPO      1675
                                                                                                                 GPO      1676
          1243  5110000000 C             CRB2     SA1    O.UDT                                                   GPO      1677
                          5120000001 C            SA2    N.VAR                                                   GPO      1678
          1244  5241000004                        SA4    X1+4        UI = O.UDT + 4                              GPO      1679
                          6242777775              SB4    X2-2        I = N.VAR - 2                               GPO      1680
                                                                                                                 GPO      1681
          1245  15640                    CRB3     BX6    -X0*X4      RBITS[UI] = 0                               GPO      1682
                     54640                        SA6    A4                                                      GPO      1683
                          6144777776              SB4    B4-1        I = I - 1                                   GPO      1684
          1246  5044000002                        SA4    A4+2        UI = UI + 2                                 GPO      1685
                          0704001245 +            GT     B4,CRB3     IF I > 0                                    GPO      1686
                                                                                                                 GPO      1687
          1247  0200401247 +             CRB      ROUTINE                                                        GPO      1688
          1250  43020                             MX0    -UD.RFP                                                 FCC1504X    9
                     5120000053 +                 SA2    UXR+1                                                   GPO      1690
          1251  0315001243 +                      NZ     X5,CRB2     IF N.BLK > 1                                GPO      1691
                          0312001243 +            NZ     X2,CRB2     IF UXR(2) " 0 */ EXT REF                    GPO      1692
                                                                                                                 GPO      1693
          1252  5110000002 C                      SA1    O.MVL                                                   GPO      1694
                          5251000001              SA5    X1+1        MI = [O.MVL] + 1                            GPO      1695
          1253  0305001247 +                      ZR     X5,CRB      IF [MI] = 0                                 GPO      1696
                                                                                                                 GPO      1697
          1254  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
          1255  0315001254 +                      NZ     X5,CRB1     IF [MI] " 0                                 GPO      1702
                                                                                                                 GPO      1703
                          0400001247 +            EQ     CRB                                                     GPO      1704
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    53
        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
          1256  0200401256 +             EBV      ROUTINE                                                        GPO      1711
          1257  5244777776                        SA4    X4-1        BI = BVA - 1                                GPO      1712
                          5110000002 C            SA1    BVL                                                     GPO      1713
          1260  5120000000 C                      SA2    O.UDT                                                   GPO      1714
                          10055                   BX0    X5                                                      GPO      1715
                               63611              SB6    X1+B1       L = BVL + 1                                 GPO      1716
          1261  6272777613                        SB7    X2+4-120    U0 = O.UDT + 4 - 120                        GPO      1717
                                                                                                                 GPO      1718
          1262  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
          1263  0760001256 +                      MI     B6,EBV      IF L < 0      */ END OF VECTOR              GPO      1722
                          0314001265 +            NZ     X4,EBV2     IF BV " 0                                   GPO      1723
          1264  0324001262 +                      PL     X4,EBV1     IF BV = +0                                  GPO      1724
                                                                                                                 GPO      1725
          1265  43114                    EBV2     MX1    12                                                      GPO      1726
                     11514                        BX5    X1*X4       TB = MASK(12) & BV                          GPO      1727
                          0305001273 +            ZR     X5,EBV4     IF TB = 0                                   GPO      1728
                                                                                                                 GPO      1729
          1266  20560                             LX5    -12                                                     GPO      1730
                     43715                        MX7    13                        */ EXPAND UPPER 12 BITS       GPO      1731
                          6130000073              SB3    59                                                      GPO      1732
          1267  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
          1270  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
          1271  54630                             SA6    A3                                                      GPO      1741
                     0315001267 +                 NZ     X5,EBV3     IF TB " 0                                   GPO      1742
                                                                                                                 GPO      1743
                               15441              BX4    -X1*X4      BV = ^MASK(12) & BV                         GPO      1744
          1272  0304001262 +                      ZR     X4,EBV1     IF BV = 0                                   GPO      1745
                                                                                                                 GPO      1746
          1273  76110                    EBV4     SX1    B1                                                      GPO      1747
                     27504                        PX5    X4                        */ EXPAND LOWER 48 BITS       GPO      1748
                          6130000057              SB3    47                                                      GPO      1749
                                                                                                                 GPO      1750
          1274  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
          1275  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
          1276  54630                             SA6    A3                                                      GPO      1759
                     0314001274 +                 NZ     X4,EBV5     IF BV " 0                                   GPO      1760
                                                                                                                 GPO      1761
          1277  0400001262 +                      EQ     EBV1                                                    GPO      1762
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    54
        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
          1300  77777000000000000000     BCM      VFD    .BCM/-0,*P/0  BLOCK CLEAR MASK                          GPO      1785
                                                                                                                 GPO      1786
          1301                           RDB      BFMW   UD,(DEFR,^RD,SMS) REGION DEF BITS FOR NO CODE MOTION    GPO      1787
          1302                           FUDA     BFMW   UD,(DEFR,DEF,^RD,IST)                                   GPO      1788
          1303                           FUDB     BFMW   UD,(DEFR,DEF,USE,^RD,IST)                               GPO      1789
          1304                           FUDC     BFMW   UD,(DEF,CR)                                             GPO      1790
          1305                           FUDD     BFMW   UD,(DEF,CM)                                             GPO      1791
          1306                           FUDE     BFMW   UD,(DEF,^RD,IST)                                        FCCA487     4
                                                                                                                 GPO      1792
                                        *         MCM - MARK CLASS MEMBERS TO SHOW A USE OF THEM                 GPO      1793
                                                                                                                 GPO      1794
                                         MCM      MACRO  NEXT                                                    GPO      1795
                                                  LOCAL  MCM1,MCM2                                               GPO      1796
                                                  SB3    A0                                                      GPO      1797
                                                  LX6    59-UD.CRP                                               GPO      1798
                                                  NZ     B3,NEXT     IF BBV " 0                                  GPO      1799
                                                  PL     X6,NEXT     IF ^CR[UI]                                  GPO      1800
                                                  LX6    1+UD.CRP-UD.ECLP                                        GPO      1801
                                                  SB3    X6          K = ECL[UI]                                 GPO      1802
                                                  ZR     B3,NEXT     IF K = 0      */ NO CLASS MEMBERS           GPO      1803
                                        *                                                                        GPO      1804
                                                  SX4    B1                                                      GPO      1805
                                                  LX4    UD.USEP                                                 GPO      1806
                                                  MX2    -UD.MVL                                                 GPO      1807
                                                  LX2    UD.MVP                                                  GPO      1808
                                        *                                                                        GPO      1809
                                         MCM1     SA1    B5+B3       UI = UL = UDT(K)                            GPO      1810
                                                  BX6    X1+X4                                                   GPO      1811
                                                  SA6    A1          USE[UI] = 1                                 GPO      1812
                                                  BX7    -X2*X1                                                  GPO      1813
                                                  NZ     X7,MCM2     IF MV[UL]                                   GPO      1814
                                                  SX7    A1                                                      GPO      1815
                                                  SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      1816
                                         MCM2     LX1    -UD.ECLP                                                GPO      1817
                                                  SB3    X1          K = ECL[UI]                                 GPO      1818
                                                  NZ     B3,MCM1     IF K " 0                                    GPO      1819
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    55
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                  ENDM                                                           GPO      1820
  
  
  
          1307  0200401307 +             FUD      ROUTINE                                                        GPO      1822
          1310  5110000000 C                      SA1    O.UDT                                                   GPO      1823
                          53251                   SA2    X5+B1       R2 = O.SEQ + 1                              GPO      1824
                               66211              SB2    B1+B1                                                   GPO      1825
          1311  5130000045 +                      SA3    BBV                                                     GPO      1826
                                                  LX2    -R2.TXTLP                                               GPO      1827
                          63510                   SB5    X1                                                      GPO      1828
                               66600              SB6    B0          CDEF = 0                                    GPO      1829
          1312  43071                             MX0    -D.LSJL                                                 GPO      1830
                     36652                        IX6    X5+X2                                                   GPO      1831
                          5203000000              SA0    X3+                       (A0) = BBV                    GPO      1832
          1313  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
          1314  43700                             MX7    0                                                       GPO      1836
                     20041                        LX0    D.LSJP                                                  GPO      1837
                          5170000052 +            SA7    UXR         UXR = 0                                     GPO      1838
          1315  53730                             SA7    X3          MI = [O.MVL];  [MI] = 0 */ MARKED VAR LIST  GPO      1839
                     0400001320 +                 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
          1316  20345                    FUD1     LX3    D.LSJP-UD.MVP                                           GPO      1847
                     15430                        BX4    -X0*X3                                                  GPO      1848
                          0314001320 +            NZ     X4,FUD2     IF MV[UL]     */ IF ON MARKED LIST          GPO      1849
          1317  74730                             SX7    A3                                                      GPO      1850
                     5077000001                   SA7    A7+1        MI = MI + 1;  [MI] = UL  */ SAVE *UDI* ADDR GPO      1851
                                                                                                                 GPO      1852
          1320  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
          1321  0430001431 +                      ZR     B3,FUD16    IF OC[R1] = 0 */ END OF BLOCK               GPO      1857
                          0307001320 +            ZR     X7,FUD2     IF ^LSJ[DI]                                 GPO      1858
                                                                                                                 GPO      1859
                                        *         PROCESS *LD*                                                   GPO      1860
                                                                                                                 GPO      1861
          1322  20730                             LX7    59-D.LDP                                                GPO      1862
                     0327001335 +                 PL     X7,FUD3     IF ^LD[DI]                                  GPO      1863
                               20536              LX5    -R1.INP                                                 GPO      1864
          1323  63350                             SB3    X5          I = IN[R1]                                  GPO      1865
                     0623001320 +                 LE     B3,B2,FUD2  IF I @ 2      */ ^ IN UDT ! LD ONLY         FCC1088    23
                               56353              SA3    B5+B3       UI = UL = O.UDT + I                         GPO      1867
          1324  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
          1325  0317001320 +                      NZ     X7,FUD2     IF USE[UL]                                  GPO      1872
                                                                                                                 GPO      1873
                          64300                   MCM    FUD1        MARK CLASS REFS                             GPO      1874
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    56
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1334  0400001316 +                      EQ     FUD1                                                    GPO      1875
  
  
                                        *         PROCESS *ST*                                                   GPO      1877
                                                                                                                 GPO      1878
          1335  20701                    FUD3     LX7    D.LDP-D.STP                                             GPO      1879
                     0327001353 +                 PL     X7,FUD5     IF ^ST[DI]                                  GPO      1880
                               20536              LX5    -R1.INP                                                 GPO      1881
          1336  63350                             SB3    X5          I = IN[R1]                                  GPO      1882
                     0430001320 +                 ZR     B3,FUD2     IF I = 0                                    GPO      1883
                               56353              SA3    B5+B3       UI = UL = O.UDT + I                         GPO      1884
          1337  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
          1340  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
          1341  63650                             SB6    X5                                                      GPO      1894
                     20325                        LX3    UD.CBP+59-UD.USEP                                       GPO      1895
                          0333001320 +            MI     X3,FUD2     IF USE[UI]    */ USE BEFORE DEF             GPO      1896
          1342  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
          1343  64300                             MCM    FUD1        SHOW USES OF CLASS MEMBERS                  GPO      1901
          1352  0400001316 +                      EQ     FUD1                                                    GPO      1902
                                                                                                                 GPO      1903
                                        *         PROCESS *RJX* ( FUNCTION CALL )                                GPO      1904
                                                                                                                 GPO      1905
          1353  20401                    FUD5     LX4    59-D.TYP                                                GPO      1906
                     0324001320 +                 PL     X4,FUD2     IF TYPE[DI] " IV                            GPO      1907
                               55341              SA3    A4-B1       R2 = DI - 1                                 GPO      1908
                                                  LX3    -FI.INDXP                                               GPO      1909
          1354  0303001320 +                      ZR     X3,FUD2     IF [R2] = 0   */ *UJP* OR SUCH              GPO      1910
                          5110000015 C            SA1    MRA                                                     GPO      1911
          1355  53237                             SA2    B7+X3       LI = O.IOL + INDX[R2] */ PARAM LIST ADDR    GPO      1912
                     20330                        LX3    FI.INDXP-FI.REGPP                                       GPO      1913
                          73730                   SX7    X3                                                      GPO      1914
                               11671              BX6    X7*X1       MRA = MRA & REGP[R2]                        GPO      1915
          1356  20322                             LX3    FI.REGPP-FI.LENP                                        GPO      1916
                     54610                        SA6    A1                                                      GPO      1917
                          63430                   SB4    X3          J = LEN[R2]   */ LIST LENGTH                GPO      1918
                               43766              MX7    -FI.FTL                                                 GPO      1919
          1357  20330                             LX3    FI.LENP-FI.FTP                                          GPO      1920
                     15737                        BX7    -X7*X3                                                  GPO      1921
                          63370                   SB3    X7                                                      GPO      1922
          1360  5130000020 C                      SA3    XRF                                                     FCC1254    11
                          76610                   SX6    B1                                                      FCC1254    12
                               36636              IX6    X3+X6       XRF = XRF + 1 */ COUNT N.EXT REFS           FCC1254    13
          1361  54630                             SA6    A3                                                      FCC1254    14
                     0432001320 +                 EQ     B3,B2,FUD2  IF FT[R2] = 2 */ *BEF*                      GPO      1925
          1362  0431001411 +                      EQ     B3,B1,FUD12 IF FT[R2] = 1 */ USER FUNCTION              GPO      1926
                                                                                                                 GPO      1927
                                        *         PROCESS I/O APLIST                                             GPO      1928
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    57
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                                                                                 GPO      1929
                          0440001320 +            ZR     B4,FUD2     IF J = 0                                    GPO      1930
          1363  20027                             LX0    UD.MVP-D.LSJP                                           GPO      1931
                                                                                                                 GPO      1932
          1364  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
          1365  0316001366 +                      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
          1366  76510                    FUD8     SX5    B1                                                      GPO      1941
                     0332001370 +                 MI     X2,FUD9     IF IO[LI] " 0 */ AN INPUT OP                GPO      1942
                               20570              LX5    UD.USEP                                                 GPO      1943
          1367  12653                             BX6    X5+X3       USE[UI] = 1                                 GPO      1944
                     54630                        SA6    A3                                                      GPO      1945
                          0400001377 +            EQ     FUD11                                                   GPO      1946
                                                                                                                 GPO      1947
          1370  5110001302 +             FUD9     SA1    FUDA                                                    GPO      1948
                          12613                   BX6    X1+X3       (DEFR,DEF,^RD,IST)[UI] = 1                  GPO      1949
                               20303              LX3    59-UD.USEP                                              GPO      1950
          1371  0333001375 +                      MI     X3,FUD10    IF USE[UI]                                  GPO      1951
                          20201                   LX2    59-AP.USEP                                              FCC0789    21
          1372  0322001374 +                      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
          1373  0400001375 +                      EQ     FUD10                                                   FCC0789    25
                                                                                                                 FCC0789    26
          1374  20571                    FUD9A    LX5    UD.DBUP     DBU[UI] = 1                                 FCC0789    27
                     12656                        BX6    X5+X6                                                   GPO      1953
          1375  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
          1376  5063000000                        SA6    A3+                                                     GPO      1958
                          20322                   LX3    UD.CBP                                                  GPO      1959
                                                                                                                 GPO      1960
          1377  20303                    FUD11    LX3    59-UD.USEP                                              GPO      1961
                     0333001407 +                 MI     X3,FUD11A   IF USE[UI]    */ PREVIOUS USE               GPO      1962
                               64300              MCM    FUD11A      SHOW USES OF CLASS MEMBERS                  GPO      1963
                                                                                                                 GPO      1964
          1407  54221                    FUD11A   SA2    A2+B1       LI = LI + 1                                 GPO      1965
                     0540001364 +                 NZ     B4,FUD7     IF J " 0                                    GPO      1966
                                                                                                                 GPO      1967
                               20045              LX0    D.LSJP-UD.MVP                                           GPO      1968
          1410  0400001320 +                      EQ     FUD2                                                    GPO      1969
                                                                                                                 GPO      1970
                                        *         PROCESS USER FUNCTION                                          GPO      1971
                                                                                                                 GPO      1972
          1411  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
          1412  0440001320 +                      ZR     B4,FUD2     IF J = 0      */ NO ARG LIST                GPO      1975
                          20027                   LX0    UD.MVP-D.LSJP                                           GPO      1976
                               76560              SX5    B6                                                      GPO      1977
                                                                                                                 GPO      1978
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    58
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1413  6232000000               FUD13    SB3    X2+         I = [LI]                                    FCC1088    24
                          0623001427 +            LE     B3,B2,FUD15 IF I @ 2      */ ^ IN UDT ! LD ONLY         FCC1088    25
          1414  53325                             SA3    B5+X2       UI = O.UDT + I                              FCC1088    26
                     5110001303 +                 SA1    FUDB                                                    GPO      1980
                               15430              BX4    -X0*X3                                                  GPO      1981
          1415  0314001416 +                      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
          1416  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
          1417  20325                             LX3    UD.CBP+59-UD.USEP                                       GPO      1991
                     0333001427 +                 MI     X3,FUD15    IF USE[UL]    */ PREVIOUS USES              GPO      1992
                               64300              MCM    FUD15       MARK CLASS MEMBERS AS USES                  GPO      1993
                                                                                                                 GPO      1994
          1427  67441                    FUD15    SB4    B4-B1       J = J - 1                                   GPO      1995
                     54221                        SA2    A2+B1       LI = LI + 1                                 FCC0392    88
                          0540001413 +            NZ     B4,FUD13    IF J " 0                                    GPO      1996
                                                                                                                 GPO      1997
          1430  63650                             SB6    X5                                                      GPO      1998
                     20045                        LX0    D.LSJP-UD.MVP                                           GPO      1999
                          0400001320 +            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
          1431  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
          1432  0306001454 +                      ZR     X6,FUD24    IF CDEF = 0                                 GPO      2010
                          20673                   LX6    UD.CBP+59-UD.CRP                                        GPO      2011
                               63660              SB6    X6                                                      GPO      2012
          1433  20027                             LX0    UD.MVP-D.LSJP                                           GPO      2013
                     5120001302 +                 SA2    FUDA                                                    GPO      2014
          1434  0326001445 +                      PL     X6,FUD20    IF ^CR[CDEF]  */ IF NO CLASS REFS           GPO      2015
                                                                                                                 GPO      2016
                          56571                   SA5    B7+B1       I = ML + 1                                  GPO      2017
          1435  5110001304 +                      SA1    FUDC                                                    GPO      2018
          1436  55551                    FUD17    SA5    A5-B1       I = I - 1                                   GPO      2019
                     53450                        SA4    X5          UI = [I]                                    GPO      2020
                          0305001445 +            ZR     X5,FUD20    IF [I] = 0                                  GPO      2021
          1437  16641                             BX6    -X1+X4                                                  GPO      2022
                     0316001436 +                 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
          1440  63440                             SB4    X4          J = ECL[UI]   */ FOLLOW CHAIN TO MEMBERS    GPO      2027
                     54640                        SA6    A4                                                      GPO      2028
                          0440001436 +            ZR     B4,FUD17    IF J = 0      */ NO CLASS MEMBERS           GPO      2029
                                                                                                                 GPO      2030
          1441  56454                    FUD18    SA4    B5+B4       UI = O.UDT + J                              GPO      2031
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    59
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                     15340                        BX3    -X0*X4                                                  GPO      2032
                          0313001443 +            NZ     X3,FUD19    IF MV[UI]                                   GPO      2033
          1442  74740                             SX7    A4                                                      GPO      2034
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      2035
                                                                                                                 GPO      2036
          1443  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
          1444  0540001441 +                      NZ     B4,FUD18    IF J " 0                                    GPO      2041
                          0400001436 +            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
          1445  0460001454 +             FUD20    ZR     B6,FUD24    IF CM[CDEF] = 0  */ NO CLASS MEMBERS DEFINE GPO      2047
                          5110001305 +            SA1    FUDD                                                    GPO      2048
          1446  5120001306 +                      SA2    FUDE                                                    FCCA487     5
                          56571                   SA5    B7+B1       I = ML + 1                                  GPO      2049
                                                                                                                 GPO      2050
          1447  55551                    FUD21    SA5    A5-B1       I = I - 1                                   GPO      2051
                     53450                        SA4    X5          UI = [I]                                    GPO      2052
                          0305001454 +            ZR     X5,FUD24    IF [I] = 0    */ END OF LIST                GPO      2053
          1450  16641                             BX6    -X1+X4                                                  GPO      2054
                     0316001447 +                 NZ     X6,FUD21    IF ^( DEF[UI] & CM[UI] )                    GPO      2055
                               20450              LX4    -UD.BMIP                                                GPO      2056
          1451  53345                             SA3    B5+X4       UI = O.UDT + BMI[UI]  */ BASE MEMBER        GPO      2057
                     15430                        BX4    -X0*X3                                                  GPO      2058
                          0314001453 +            NZ     X4,FUD22    IF MV[UI]                                   GPO      2059
          1452  74730                             SX7    A3                                                      GPO      2060
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      2061
                                                                                                                 GPO      2062
          1453  12623                    FUD22    BX6    X2+X3       (DEF,^RD,IST)[UI] = 1                       FCCA487     6
                     54630                        SA6    A3                                                      GPO      2064
                          0400001447 +            EQ     FUD21                                                   GPO      2065
                                                                                                                 GPO      2066
                                        *         TERMINATE MARKED VAR LIST AND FORM BIT VECTORS ( BBV = 0 )     GPO      2067
                                                                                                                 GPO      2068
          1454  5110000031 +             FUD24    SA1    BN                                                      GPO      2069
                          5120000015 +            SA2    O.BIT                                                   GPO      2070
          1455  5130000045 +                      SA3    BBV                                                     GPO      2071
                          63210                   SB2    X1                                                      GPO      2072
                               53422              SA4    X2+B2       BIW = BIT(BN)                               GPO      2073
          1456  43700                             MX7    0                                                       GPO      2074
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = 0                      GPO      2075
                          0313001531 +            NZ     X3,FUD35    IF BBV " 0    */ NOT BUILDING BIT VECTORS   GPO      2076
                                                                                                                 GPO      2077
          1457  5150000002 C                      SA5    BVL                                                     GPO      2078
                          5130000020 +            SA3    L.BVT                                                   GPO      2079
          1460  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
          1461  12634                             BX6    X3+X4       BVI[BIT(BN)] = L.BVT                        GPO      2084
                     20102                        LX1    2                                                       GPO      2085
                          54640                   SA6    A4                                                      GPO      2086
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    60
        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
          1462  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
          1463  63626                             SB6    X2+B6       BI = O.BVT + OL  */ *BVT* ADDRESS           GPO      2096
                     76010                        SX0    B1                                                      GPO      2097
                          0315001504 +            NZ     X5,FUD30    IF BVL " 0                                  GPO      2098
  
  
                                        *         SETUP BIT VECTORS FOR PROGRAM WITH @ 60 REFERENCED VARIABLES   GPO      2100
                                                                                                                 GPO      2101
          1464  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
          1465  0303001473 +                      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
          1466  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
          1467  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
          1470  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
          1471  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
          1472  0313001466 +                      NZ     X3,FUD25    IF [MI] " 0                                 GPO      2126
                                                                                                                 GPO      2127
          1473  5110000052 +             FUD26    SA1    UXR                                                     FCC0716     6
                          0301001476 +            ZR     X1,FUD26A   IF UXR = 0                                  FCC0716     7
          1474  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
          1475  15553                             BX5    -X3*X5      DUV = ^SV & DUV                             GPO      2133
                     12434                        BX4    X3+X4       UV = SV ! UV                                GPO      2134
                                                                                                                 GPO      2135
          1476  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
          1477  54671                             SA6    A7+B1       [BI+2] = UV                                 GPO      2140
                     7170000000                   SX7    0                                                       GPO      2141
                               54761              SA7    A6+B1       [BI+3] = 0    */ LX = 0                     GPO      2142
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    61
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                                                                                 GPO      2143
                                        *         CLEAR BLOCK RELATIVE BITS IN *UDT*                             GPO      2144
                                                                                                                 GPO      2145
          1500                           FUD27    BSS    0                                                       GPO      2146
                                                  IF     DEF,/DEBUG/FUD,1                                        GPO      2147
                                                  DCALL  PRNTBV,([O.BVT],BVI,=3)                                 GPO      2148
                                                                                                                 GPO      2149
          1500  5110000002 C             FUD28    SA1    O.MVL                                                   GPO      2150
                          5140001300 +            SA4    BCM                                                     GPO      2151
          1501  5251000001                        SA5    X1+1        MI = O.MVL + 1                              GPO      2152
                          0305001307 +            ZR     X5,FUD      IF [MI] = 0                                 GPO      2153
                                                                                                                 GPO      2154
          1502  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
          1503  0315001502 +                      NZ     X5,FUD29    IF [MI] " 0                                 GPO      2159
                                                                                                                 GPO      2160
                          0400001307 +            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
          1504  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
          1505  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
          1506  67551                   +         SB5    B5-B1       FOR I = 0 TO VL-1; BT(I) = 0                GPO      2175
                     54771                        SA7    A7+B1                                                   GPO      2176
                          0705001506 +            GT     B5,*                                                    GPO      2177
                                                                                                                 GPO      2178
          1507  5120000052 +                      SA2    UXR                                                     GPO      2179
                          5150000017 +            SA5    O.BVT                                                   GPO      2180
          1510  63320                             SB3    X2                                                      GPO      2181
                     66400                        SB4    B0          WN = 0        */ WORD NUMBER ( 0,1,... )    GPO      2182
                          63550                   SB5    X5                                                      GPO      2183
          1511  0303001515 +                      ZR     X3,FUD32    IF [MI] = 0   */ NO REFED VARS IN BLOCK     GPO      2184
                                                                                                                 GPO      2185
          1512  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
          1513  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
          1514  0313001512 +                      NZ     X3,FUD31    IF [MI] " 0                                 GPO      2194
                                                                                                                 GPO      2195
                                        *         NOW FORM THE BIT VECTORS                                       GPO      2196
                                                                                                                 GPO      2197
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    62
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1515  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
          1516  43400                             MX4    0           UV = 0                                      GPO      2202
                     54001                        SA0    A0+B1       BT = BT + 1                                 GPO      2203
                          0302001524 +            ZR     X2,FUD34    IF LP = 0     */ LIST EMPTY FOR THIS WORD   GPO      2204
                                                                                                                 GPO      2205
          1517  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
          1520  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
          1521  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
          1522  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
          1523  12474                             BX4    X7+X4       UV = UV ! SHIFT( USE[UW] , J )              GPO      2222
                     53330                        SA3    X3          MI = [L]      */ NEXT ON CHAIN              GPO      2223
                          0311001517 +            NZ     X1,FUD33    IF L " 0                                    GPO      2224
                                                                                                                 GPO      2225
          1524  0430001526 +             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
          1525  15553                             BX5    -X3*X5      DUV = ^SV & DUV                             GPO      2229
                     12434                        BX4    X3+X4       UV = SV ! UV                                GPO      2230
                                                                                                                 GPO      2231
          1526  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
          1527  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
          1530  0747001515 +                      LT     B4,B7,FUD32 IF WN < VL                                  GPO      2240
                                                                                                                 GPO      2241
                          0400001500 +            EQ     FUD27                                                   GPO      2242
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    63
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                        *         BBV " 0 , IF PROGRAM BLOCK , THEN CLEAR BLOCK BITS             GPO      2244
                                                                                                                 GPO      2245
          1531                           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
          1531  0334001500 +                      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
          1532  5110000017 C                      SA1    N.HB                                                    GPO      2260
                          53551                   SA5    X5+B1       R2 = [T+1]    */ R2 OF *BOS*                GPO      2261
                               76710              SX7    B1                                                      GPO      2262
          1533  73611                             SX6    X1+B1       N.HB = N.HB + 1                             GPO      2263
                                                  LX5    59-R2.UXRP                                              GPO      2264
                     54610                        SA6    A1                                                      GPO      2265
                          0325001535 +            PL     X5,FUD36    IF ^UXR[R2]   */ NO USER EXT REFS IN LP     GPO      2266
          1534  5170000053 +                      SA7    UXR+1       UXR(2) = 1                                  GPO      2267
                                                                                                                 GPO      2268
          1535  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
          1536  54610                             SA6    A1                                                      GPO      2272
                     5110000051 +                 SA1    MRA.X                                                   FCC1254    18
                               11615              BX6    X1*X5       MRA.X = MRA.X & MRA[R2]                     FCC1254    19
          1537  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
          1540  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
          1543  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
          1544  54610                             SA6    A1                                                      GPO      2283
                     0752001543 +                 LT     B5,B2,FUD37                                             GPO      2284
                                                                                                                 GPO      2285
                               73470              SX4    X7                                                      GPO      2286
          1545  5150001301 +                      SA5    RDB                                                     GPO      2287
                          0100001256 +            RJ     EBV         SET REGION DEF BITS IN *UDT*                GPO      2288
                                                                                                                 GPO      2289
          1546  5150000027 +                      SA5    O.SEQ                                                   GPO      2290
                          0100001550 +            RJ     CHB         CHECK HOLDING BLOCK FOR COMBINE WITH PRED   GPO      2291
          1547  0400001500 +                      EQ     FUD28                                                   GPO      2292
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    64
        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
          1550  0200401550 +             CHB      ROUTINE                                                        GPO      2303
          1551  5110000030 +                      SA1    L.SEQ                                                   GPO      2304
                          6251777767              SB5    X1-8                                                    GPO      2305
          1552  6140000004                        SB4    4                                                       FCC0602     5
                          0645001550 +            LE     B5,B4,CHB   IF L.SEQ @ 12 */ EMPTY OR *LAB* ONLY BLOCK  FCC0602     6
                                                                                                                 GPO      2307
                                        *         CHECK CURRENT BLOCK                                            GPO      2308
                                                                                                                 GPO      2309
          1553  5120000015 +                      SA2    O.BIT                                                   GPO      2310
                          53350                   SA3    X5          R1 = [[O.SEQ]]                              GPO      2311
                               63220              SB2    X2                                                      GPO      2312
          1554  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
                          0334001550 +            MI     X4,CHB      IF RB[BIW]    */ NOT A *HB*                 GPO      2317
                                                                                                                 FCC0602     7
          1555  5110000000 X                      SA1    O.BST                                                   GPO      2325
                          5120000032 +            SA2    BSI                                                     GPO      2326
          1556  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
          1557  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
          1560  20122                             LX1    -EI.PRIP                                                GPO      2334
                     26171                        UX1    B7,X1                                                   FCC0602     8
                          0571001550 +            NE     B7,B1,CHB   IF NP[EIW] " 1  */ MORE THAN 1 PRED         FCC0602     9
          1561  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
          1562  26474                             UX4    B7,X4                                                   GPO      2339
                     0717001550 +                 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
          1563  6144777775               CHB0     SB4    B4-2        I = I - 2                                   GPO      2345
                          0440001550 +            ZR     B4,CHB      IF I = 0      */ END OF *BST*               GPO      2346
          1564  56434                             SA4    B3+B4       IPW = BST(I+1)                              GPO      2347
                                                  LX4    -IM.BNP                                                 GPO      2348
                     63740                        SB7    X4                                                      GPO      2349
                          0576001563 +            NE     B7,B6,CHB0  IF BN[IPW] " PBN                            GPO      2350
                                                                                                                 GPO      2351
          1565  20430                             LX4    IM.BNP-IM.BIP                                           GPO      2352
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    65
        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
          1566  12632                             BX6    X3+X2       BSIS = SHIFT(I,30) ! BSI                    GPO      2356
                     5160000106 C                 SA6    BSIS                                                    GPO      2357
                                                  LX5    59-BI.RBP                                               GPO      2358
          1567  0325001550 +                      PL     X5,CHB      IF ^RB[BIWP]  */ PRED IS A *HB*             GPO      2359
                          10655                   BX6    X5                                                      FCC0602    10
                               54661              SA6    A6+B1                                                   FCC0602    11
          1570  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
          1571  0336001550 +                      MI     X6,CHB      IF FJ[BIW] " FJ[BIWP]                       FCC0841    10
                                                                                                                 GPO      2360
                                        *         SAVE ELIMINATED LABEL DEF INFO IN *ELT* FOR USE BY *POST*      FCC2113    19
                                                                                                                 FCC2113    20
                          20202                   LX2    BI.RBP-BI.ILP                                           FCC2113    21
          1572  0322001600 +                      PL     X2,CHB0A    IF IL[B]      */ NO LABEL DEF               FCC2113    22
                          20201                   LX2    BI.ILP-BI.FJP                                           FCC2365    30
          1573  0322001550 +                      PL     X2,CHB      IF HB LABELED BUT NO UJP, DO NOT COMBINE    FCC2365    31
                                                                                                                 FCC2113    23
                          5110000027 +            SA1    O.SEQ                                                   FCC2113    24
          1574  5120000025 +                      SA2    O.ELT                                                   FCC2113    25
                          5241000004              SA4    X1+4        R1 = [SEQ+4]  */ IH OF PROG LABEL           FCC2113    26
          1575  54341                             SA3    A4+B1       R2 = [SEQ+5]  */ IH OF GL                   FCC2113    27
                     73440                        SX4    X4                                                      FCC2113    28
                          7233677777              SX3    X3-I.GL                                                 FCC2113    29
          1576  20422                             LX4    18                                                      FCC2113    30
                     5110000026 +                 SA1    L.ELT                                                   FCC2113    31
                               63221              SB2    X2+B1                                                   FCC2113    32
          1577  12634                             BX6    X3+X4                                                   FCC2113    33
                     53612                        SA6    B2+X1       ELT(L.ELT+1) = 24/,18/IH-PROG,18/H-GL       FCC2113    34
                          73611                   SX6    X1+B1       L.ELT = L.ELT + 1                           FCC2113    35
                               54610              SA6    A1                                                      FCC2113    36
                                                                                                                 FCC2113    37
                                        *         MERGE THE BLOCKS                                               FCC2113    38
                                                                                                                 FCC2113    39
          1600  5170000104 C             CHB0A    SA7    VI2                                                     FCC2365    32
                          73750                   SX7    X5          VI1 = BVI[BIWP]                             FCC2365    33
                               54771              SA7    A7+B1                                                   FCC2365    34
          1601  76150                             ALLOC  MOD,B5      ALLOC (MOD,L.SEQ-8)                         FCC2365    35
          1603  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
          1605  0100000000 X                      CALL   RBS         RELEASE THE BLOCK                           GPO      2371
          1606  5140000106 C                      SA4    BSIS                                                    GPO      2372
                          20436                   LX4    30                                                      GPO      2373
                               73640              SX6    X4          BSI = SETX( SHIFT(BSIS,30) )                GPO      2374
          1607  5160000032 +                      SA6    BSI                                                     GPO      2375
                          0100000000 X            CALL   RTB         GET PREDECESSOR BLOCK                       GPO      2376
                                                                                                                 GPO      2377
                                        *         SETUP *MOD* CONTROL WORD                                       GPO      2378
                                                                                                                 GPO      2379
          1610  5150000027 +                      SA5    O.SEQ                                                   GPO      2380
                          5130000000 X            SA3    L.MOD                                                   GPO      2381
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    66
        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED               CHB                 CODE
  
          1611  7110000004                        SX1    4           K = 4                                       FCC0602    12
                          43600                   MX6    0           DEL = 0                                     FCC0602    13
                               53451              SA4    X5+B1       R2 = [O.SEQ+1]                              GPO      2383
                                                  LX4    -R2.TXTLP                                               GPO      2384
          1612  7224777767                        SX2    X4-8        II = TXTL[R2] - 8                           GPO      2385
                          5150000107 C            SA5    BSIS+1                                                  FCC0602    14
          1613  20503                             LX5    BI.RBP-BI.FJP                                           FCC0602    15
                     0325001615 +                 PL     X5,CHB1A    IF ^FJ[BIWP]                                FCC0602    16
                               43601              MX6    1           DEL = 1       */ SET TO DELETE UJP AND LAB  FCC0602    17
          1614  7110000010                        SX1    8           K = 8                                       FCC0602    18
          1615  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
          1616  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
          1620  5120000104 C                      SA2    VI2                                                     GPO      2400
                          5130000000 C            SA3    VL                                                      GPO      2401
          1621  5140000017 +                      SA4    O.BVT                                                   GPO      2402
                          54121                   SA1    A2+B1                                                   GPO      2403
                               63330              SB3    X3          L = VL                                      GPO      2404
          1622  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
          1623  66433                             SB4    B3+B3                                                   GPO      2409
                                                                                                                 GPO      2410
          1624  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
          1625  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
          1626  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
          1627  0723001624 +                      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
          1630  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
          1631  15532                             BX5    -X2*X3                                                  GPO      2432
                     12615                        BX6    X1+X5       UBD1 = UBD1 ! (^DEF1 & UDB2)                GPO      2433
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    67
        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED               CHB                 CODE
  
                          54610                   SA6    A1                                                      GPO      2434
                               66221              SB2    B2+B1       I = I + 1                                   GPO      2435
          1632  10744                             BX7    X4          LX1 = LX2                                   GPO      2436
                     54714                        SA7    A1+B4                                                   GPO      2437
                          0723001630 +            LT     B2,B3,CHB2  IF I < L                                    GPO      2438
                                                                                                                 GPO      2439
          1633  76560                             SX5    B6                                                      GPO      2440
                     43673                        MX6    59                                                      FCC0509     9
                          0100002026 +            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
          1634  5110000000 X                      SA1    O.TXT                                                   GPO      2445
                          5120000000 X            SA2    O.MOD                                                   GPO      2446
          1635  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
          1636  7170000010                        SX7    8                                                       GPO      2451
                          0100000127 +            RJ     SRI         SRI(  BOS  [R1] )                           GPO      2452
          1637  6120000000                        SB2    OC.EOQ                                                  GPO      2453
                          7160000000              SX6    0                                                       GPO      2454
          1640  0100000127 +                      RJ     SRI         SRI(  EOQ  0 )                              GPO      2455
          1641  5140000106 C                      SA4    BSIS                                                    GPO      2456
                          76760                   SX7    B6                                                      GPO      2457
                               73640              SX6    X4          BSI = SETX( BSIS )                          GPO      2458
          1642  5160000032 +                      SA6    BSI                                                     GPO      2459
                          5170000000 X            SA7    L.TXT       L.TXT = 8                                   GPO      2460
          1643  0100000000 X                      CALL   WMB         WRITE THE BLOCK BACK TO *BLK*               GPO      2461
          1644  7160000004                        SX6    4                                                       GPO      2462
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   GPO      2463
          1645  0400001550 +                      EQ     CHB                                                     GPO      2464
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    68
        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
          1646  00000000000000000000     RDDA     CON    0           HEADER FOR LD LINKS                         FCCA499X    5
                                                                                                                 FCCA499X    6
          1647  0200401647 +             RDD      ROUTINE                                                        GPO      2475
                                                                                                                 GPO      2476
          1650  0100001755 +                      RJ     IPS         INSERT POST STORES                          GPO      2477
          1651  0306001656 +                      ZR     X6,RDD0     IF NPS = 0                                  GPO      2478
                                                                                                                 GPO      2479
                          5140000033 +            SA4    BSW                                                     GPO      2480
          1652  43055                             MX0    -R1.RIL+1                                               GPO      2481
                     20430                        LX4    -IM.BIP                                                 GPO      2482
                          5150000027 +            SA5    O.SEQ                                                   GPO      2483
          1653  20001                             LX0    1                                                       GPO      2484
                     63340                        FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                  GPO      2485
                                                                                                                 GPO      2486
          1656  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
          1657  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
          1660  5150000011 C                      SA5    SVA                                                     GPO      2497
                          15212                   BX2    -X2*X1      DBU = DEF & ^UBD                            GPO      2498
                               63550              SB5    X5                        (B5) = SVA                    GPO      2499
          1661  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
          1662  0421001667 +                      EQ     B2,B1,RDD2  IF VL = 1                                   GPO      2504
          1663  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
          1664  15212                             BX2    -X2*X1                                                  GPO      2509
                     67221                        SB2    B2-B1                                                   GPO      2510
                          11223                   BX2    X2*X3                                                   GPO      2511
                               12642              BX6    X4+X2                                                   GPO      2512
          1665  15516                             BX5    -X6*X1                                                  GPO      2513
                     54661                        SA6    A6+B1                                                   GPO      2514
                          12757                   BX7    X5+X7                                                   GPO      2515
          1666  0712001663 +                      GT     B2,B1,RDD1                                              GPO      2516
                                                                                                                 GPO      2517
          1667  47477                    RDD2     CX4    X7                                                      GPO      2518
                     0304001647 +                 ZR     X4,RDD      IF COUNT( DDB ) = 0  */ NO DEAD DEFS IN BLO GPO      2519
                                                                                                                 GPO      2520
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    69
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
                                                  PRNTABV  RDD,SVA                                               GPO      2521
  
  
  
                                        *         NOW SCAN BACKWARDS FOR DEAD STORES, ADJUST THE *PS* BIT        GPO      2523
                                                                                                                 GPO      2524
                               57371              SA3    "TB"-B1     R2 = TB - 1                                 GPO      2525
          1670  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
          1671  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
          1672  6130000022                        SB3    59-D.^DP                                                GPO      2534
                          6140000004              SB4    4                                                       GPO      2535
          1673  0400001676 +                      EQ     RDD4                                                    GPO      2536
                                                                                                                 GPO      2537
                                        *         INDICATE THAT R-NUM *PS* FOR A LIVE *ST*                       GPO      2538
                                                                                                                 GPO      2539
          1674  20427                    RDD3     LX4    59-D.L2P                                                GPO      2540
                     0334001676 +                 MI     X4,RDD4     IF L2[DI]     */ LEVEL 2 *ST*               GPO      2541
                               63221              SB2    X2+B1                                                   GPO      2542
          1675  76610                             SX6    B1                                                      GPO      2543
                     56672                        SA6    "TB"+B2     [TB+R+1] = 1                                GPO      2544
                                                                                                                 GPO      2545
          1676  55444                    RDD4     SA4    A4-B4       DI = DI - 4                                 GPO      2546
                     22634                        LX6    B3,X4                                                   GPO      2547
                          0336001710 +            MI     X6,RDD5     IF ^D[DI]                                   GPO      2548
          1677  20602                             LX6    D.^DP-D.PSP                                             GPO      2549
                     0336001705 +                 MI     X6,RDD4A    IF PS[DI]                                   GPO      2550
                               20604              LX6    D.PSP-D.LDP                                             GPO      2551
          1700  0326001676 +                      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
          1701  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
          1702  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
          1703  5130001646 +                      SA3    RDDA                                                    FCCA499X    9
                          73730                   SX7    X3                                                      FCCA499X   10
                               54741              SA7    A4+B1       LDLNK = DI + 1;[LDLNK] = RDDA               FCCA499X   11
          1704  74670                             SX6    A7                                                      FCCA499X   12
                     54630                        SA6    A3          RDDA = LDLNK                                FCCA499X   13
                          0400001676 +            EQ     RDD4                                                    GPO      2566
                                                                                                                 GPO      2567
                                        *         INSTRUCTION *PS* - CLEAR BIT IF ALL DEFS KILLED                GPO      2568
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    70
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
                                                                                                                 GPO      2569
          1705  54541                    RDD4A    SA5    A4+B1       LI = DI + 1;  PSF = [LI]                    GPO      2570
                     43700                        MX7    0                                                       GPO      2571
                          54750                   SA7    A5          [LI] = 0                                    GPO      2572
          1706  0315001676 +                      NZ     X5,RDD4     IF PSF " 0    */ STILL *PS*                 GPO      2573
                          76510                   SX5    B1                                                      GPO      2574
                               20547              LX5    D.PSP                                                   GPO      2575
          1707  15645                             BX6    -X5*X4      PS[DI] = 0                                  GPO      2576
                     54640                        SA6    A4                                                      GPO      2577
                          0400001676 +            EQ     RDD4                                                    GPO      2578
                                                                                                                 GPO      2579
                                        *         INSTRUCTION ^D                                                 GPO      2580
                                                                                                                 GPO      2581
          1710  5054777775               RDD5     SA5    A4-2        R1 = DI - 2                                 GPO      2582
                          26725                   UX7    B2,X5                                                   GPO      2583
                               20607              LX6    D.^DP-D.STP                                             GPO      2584
          1711  0421001743 +                      EQ     B2,B1,RDD50 IF OC[R1] = OC.BOS                          FCCA499X   14
                          0336001720 +            MI     X6,RDD6     IF ST[DI]                                   GPO      2586
          1712  6122777706                        SB2    B2-OC.RJ3                                               GPO      2587
                          0720001676 +            MI     B2,RDD4     IF OC[R1] < OC.RJ3                          GPO      2588
          1713  0712001676 +                      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
          1714  54551                             SA5    A5+B1       R2 = R1 + 1                                 GPO      2593
                     26623                        UX6    B2,X3                                                   GPO      2594
                          7172777707              SX7    B2-OC.JIN                                               GPO      2595
          1715  0307001676 +                      ZR     X7,RDD4     IF OC[R1P] = OC.JIN  */ COMPUTED GOTO       GPO      2596
                          43766                   MX7    -FI.FTL                                                 GPO      2597
                               20506              LX5    -FI.FTP                                                 GPO      2598
          1716  15657                             BX6    -X7*X5      F = FT[R2]    FUNCTION TYPE                 GPO      2599
                     6226777775                   SB2    X6-2                                                    FCC0612     6
          1717  0420001676 +                      ZR     B2,RDD4     IF F = 2      */ *BEF*                      GPO      2601
                                                                                                                 GPO      2602
                          0400001743 +            EQ     RDD50       QUIT UNTIL WE ADD MORE CORE                 FCCA499X   15
                                                                                                                 GPO      2604
          1720  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
          1721  0420001674 +                      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
          1722  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
          1723  0336001674 +                      MI     X6,RDD3     IF SHIFT(SW,B) < 0  */ STORE IS LIVE        GPO      2620
                          20530                   LX5    -IH.RFP                                                 GPO      2621
                               63250              SB2    X5                                                      GPO      2622
          1724  0712001674 +                      GT     B2,B1,RDD3  IF RF[R2] > 1                               GPO      2623
                          10655                   BX6    X5          R2ST = R2                                   FCCA499X   16
          1725  5130001646 +                      SA3    RDDA        LDLNK = RDDA                                FCCA499X   17
                          20644                   LX6    IH.RFP-IH.IHP                                           FCCA499X   18
                                                                                                                 FCCA499X   19
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    71
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
                                        *         SEARCH THRU LINK LIST FOR INTERFERENCE BETWEEN THIS STORE      FCCA499X   20
                                        *         AND SUBSEQUENT LOADS.                                          FCCA499X   21
                                                                                                                 FCCA499X   22
          1726  0303001734 +             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
          1727  13756                             BX7    X5-X6                                                   FCCA499X   26
                     20652                        LX6    IH.IHP-IH.CAP                                           FCCA499X   27
                          73770                   SX7    X7                                                      FCCA499X   28
          1730  0317001733 +                      NZ     X7,RDD20    IF IH[R2ST] " IH[R2LD]                      FCCA499X   29
                          20530                   LX5    IH.IHP-IH.RFP                                           FCCA499X   30
                               73750              SX7    X5                                                      FCCA499X   31
          1731  0317001674 +                      NZ     X7,RDD3     IF RF[R2LD] " 0                             FCCA499X   32
                          20522                   LX5    IH.RFP-IH.CAP                                           FCCA499X   33
                               13756              BX7    X5-X6                                                   FCCA499X   34
          1732  73770                             SX7    X7                                                      FCCA499X   35
                     0307001674 +                 ZR     X7,RDD3     IF CA[R2LD] = CA[R2ST]                      FCCA499X   36
          1733  53330                    RDD20    SA3    X3          LDLNK = [LDLNK]                             FCCA499X   37
                     20622                        LX6    IH.CAP-IH.IHP                                           FCCA499X   38
                          0400001726 +            EQ     RDD10                                                   FCCA499X   39
                                                                                                                 GPO      2624
                                        *         *ST* IS DEAD, CHANGE IT TO A *NOP* AND ADJUST USES OF PRED.    GPO      2625
                                                                                                                 GPO      2626
          1734  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
          1735  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
          1736  15773                             BX7    -X3*X7                                                  FCC0625     7
                     0317001740 +                 NZ     X7,RDD40    IF USES[DP] " 0 & ^RF[DP]                   FCCA499X   41
          1737  5100400000                        SA0    1S17        DC = -377777B */ INDICATE DEAD COMPUTATIONS GPO      2634
                                                                                                                 GPO      2635
          1740  5150000046 X             RDD40    SA5    F.RDT+OC.NOP                                            FCCA499X   42
                          6120000046              SB2    OC.NOP                                                  GPO      2637
          1741  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
          1742  54740                             SA7    A4          [DI] = RDT(OC.NOP)                          GPO      2641
                     0400001676 +                 EQ     RDD4                                                    GPO      2642
                                                                                                                 GPO      2643
          1743  74100                    RDD50    SX1    A0                                                      FCCA499X   43
                                                  TRACE  RDD,RLIST,SEQ                                           GPO      2645
                                                                                                                 GPO      2646
                                        *         CLEAR LOAD LINKS.                                              FCCA499X   44
                                                                                                                 FCCA499X   45
                     5120001646 +                 SA2    RDDA        LDLNK = RDDA                                FCCA499X   46
                               43700              MX7    0                                                       FCCA499X   47
          1744  0302001746 +             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
          1745  0400001744 +                      EQ     RDD54                                                   FCCA499X   51
                                                                                                                 FCCA499X   52
          1746  0301001647 +             RDD56    ZR     X1,RDD      IF DC = 0   */NO DEAD STORES                FCCA499X   53
                          0321001751 +            PL     X1,RDD60    IF DC > 0   */DEAD STORES ONLY              FCCA499X   54
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    72
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
                                                                                                                 GPO      2649
          1747  43601                             MX6    1           L.MOD = 0                                   GPO      2650
                     0100004172 +                 CALL   MPB         RE SQUEEZE AND REWRITE THE BLOCK            GPO      2651
          1750  0400001647 +                      EQ     RDD                                                     GPO      2652
                                                                                                                 GPO      2653
                                                                                                                 GPO      2654
          1751  43600                    RDD60    MX6    0                                                       FCCA499X   55
                     0100004172 +                 CALL   MPB         MOVE THE BLOCK TO *TXT*                     GPO      2656
          1752  0100000000 X                      CALL   CUC         RESET THE USES COUNTS                       GPO      2657
          1753  0100000071 +                      CALL   WTB         REWRITE THE BLOCK                           GPO      2658
          1754  0400001647 +                      EQ     RDD                                                     GPO      2659
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    73
        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
          1755  0200401755 +             IPS      ROUTINE                                                        GPO      2667
          1756  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
          1761  43353                             MX3    -BI.PIIL                                                GPO      2671
                     15643                        BX6    -X3*X4      PSI = PII[BIW]  */ INDEX TO POST ST INFO    GPO      2672
                          0306001755 +            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
          1762  5110000000 X                      SA1    O.PSI                                                   GPO      2677
                          5120000000 C            SA2    O.UDT                                                   GPO      2678
          1763  36316                             IX3    X1+X6                                                   GPO      2679
                     5170000104 C                 SA7    VI2                                                     GPO      2680
                               63770              SB7    X7          BVA = BVA                                   GPO      2681
          1764  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
          1765  63550                             SB5    X5          N = NPS                                     GPO      2685
                     27046                        PX0    B4,X6                                                   GPO      2686
                          76110                   SX1    B1                                                      GPO      2687
                                                                                                                 GPO      2688
          1766  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
          1767  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
          1770  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
          1771  0550001766 +                      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
          1772  5221000004                        SA2    X1+4        R1 = [O.SEQ+4]  */ FIRST AFTER *BOS*        GPO      2706
                          7110000004              SX1    4                                                       GPO      2707
          1773  26622                             UX6    B2,X2                                                   GPO      2708
                     43300                        MX3    0           II = 0                                      GPO      2709
                          7172777771              SX7    B2-OC.LAB                                               GPO      2710
          1774  0317001775 +                      NZ     X7,IPS2     IF OC[R1] " OC.LAB                          GPO      2711
                          10311                   BX3    X1          II = 4                                      GPO      2712
          1775  20344                    IPS2     LX3    ML.IIP                                                  GPO      2713
                                                  LX1    ML.MTIP                                                 GPO      2714
                     76244                        SX2    B4+B4                                                   GPO      2715
                          12113                   BX1    X1+X3                                                   GPO      2716
                               73524              SX5    X2+B4                                                   GPO      2717
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    74
        IPS - INSERT POST STORES                                      IPS                 CODE
  
          1776  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
          2000  20554                             LX5    -ML.NIP+2                                               GPO      2721
                     73150                        ALLOC  MOD,X5      ALLOC( MOD , 12*NPS )                       GPO      2722
          2002  5140000000 X                      SA4    O.PSI                                                   GPO      2723
                          63720                   SB7    X2          TB = O.MOD                                  GPO      2724
                               26630              UX6    B3,X0       N = NPS                                     GPO      2725
          2003  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
          2004  66444                             SB4    B4+B4                     (B4) = 4*NPS                  FCC0656    41
                                                                                                                 GPO      2731
          2005  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
          2006  12621                             BX6    X2+X1                                                   GPO      2737
                     6120000005                   SB2    OC.DEF                                                  GPO      2738
                               43700              MX7    0                                                       GPO      2739
          2007  66650                             SB6    B5          TI = MI                                     GPO      2740
                     20247                        LX2    58-R1.SOP-SO.RTP                                        FCC1025     7
                          0100000127 +            RJ     SRI         SRI( DEF  MI,REG[PI] )                      GPO      2742
          2010  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
          2011  6120000010                        SB2    OC.XMT      OC = OC.XMT;  R2W = 0                       FCC1025     8
                          0332002013 +            MI     X2,IPS4     IF REG[PI] \ 20B                            FCC1025     9
          2012  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
          2013  0100000127 +             IPS4     RJ     SRI         SRI( OC  MI+4*NPS,MI, R2W )                 FCC1025    13
          2014  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
          2015  15751                             BX7    -X1*X5                                                  GPO      2755
                     20530                        LX5    -PS.UDIP                                                GPO      2756
                          6120000051              SB2    OC.ST                                                   GPO      2757
          2016  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
          2017  6155000004                        SB5    B5+4        MI = MI + 4                                 FCC0656    42
                          0100000141 +            RJ     SMI         SMI( ST  R,,CAIH[PI],UDI[PI] )              FCC0656    43
          2020  54551                             SA5    A5+B1       PI = PI + 1                                 GPO      2764
                     0530002005 +                 NZ     B3,IPS3     IF N " 0                                    GPO      2765
                                                                                                                 GPO      2766
          2021  5150000104 C                      SA5    VI2                                                     FCC0509    11
                          43601                   MX6    1                                                       FCC0509    12
          2022  0100002026 +                      RJ     AUV         MERGE, SQZ BLOCK AND ADJUST BIT VECTORS     FCC0509    13
          2023  0100000000 X                      CALL   RTB         AND GET IT BACK                             GPO      2771
          2024  76610                             SX6    B1                                                      GPO      2772
                     0400001755 +                 EQ     IPS                                                     GPO      2773
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    75
        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
          2025                           AUVA     BFMW   D,(LD,BM)                                               GPO      2782
                                                                                                                 GPO      2783
          2026  0200402026 +             AUV      ROUTINE                                                        GPO      2784
          2027  5110000011 C                      SA1    SVA                                                     FCC0509    15
                          5120000000 C            SA2    VL                                                      FCC0509    16
          2030  10755                             BX7    X5                                                      FCC0509    17
                     5170000104 C                 SA7    VI2                                                     FCC0509    18
                               36712              IX7    X1+X2                                                   FCC0509    19
          2031  5170000000 X                      SA7    =XSUVA      SUVA = SVA+VL  */ SET FLAG FOR SQZ/SMR      FCC0509    20
                          20201                   LX2    1                                                       FCC0509    21
                               63610              SB6    X1                                                      FCC0509    22
          2032  63726                             SB7    B6+X2                                                   FCC0509    23
                     43700                        MX7    0                                                       FCC0509    24
          2033  56760                    AUV1     SA7    B6          FOR I = 1 TO 2*VL;  SVA(I) = 0              FCC0509    25
                     66661                        SB6    B6+B1                                                   FCC0509    26
                          0767002033 +            LT     B6,B7,AUV1                                              FCC0509    27
                                                                                                                 FCC0509    28
          2034  0100004172 +                      CALL   MPB         MERGE MODS AND SQZ BLOCK                    FCC0509    29
          2035  7170000000                        SX7    0                                                       FCC0509    30
                          5170000000 X            SA7    SUVA        SUVA = 0                                    FCC0509    31
          2036  5150000104 C                      SA5    VI2                                                     FCC0509    32
                          5110000000 X            SA1    =XSTLDS                                                 GPO      2785
          2037  0301002026 +                      ZR     X1,AUV      IF STLDS = 0  */ NO STORE/LD SQUEEZING      GPO      2786
                                                                                                                 GPO      2787
                          5120000011 C            SA2    SVA                                                     GPO      2788
          2040  5130000000 C                      SA3    VL                                                      GPO      2789
                          5110000000 C            SA1    O.UDT                                                   GPO      2790
          2041  5140000000 X                      SA4    O.TXT                                                   GPO      2791
                          22613                   LX6    B1,X3                                                   GPO      2792
                               63430              SB4    X3                        (B4) = VL                     GPO      2793
          2042  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
          2043  5110002025 +                      SA1    AUVA                                                    GPO      2803
                          66211                   SB2    B1+B1                                                   GPO      2804
                               53442              SA4    X4+B2       DI = O.TXT + 2                              GPO      2805
          2044  76710                             SX7    B1                                                      GPO      2806
                     0400002050 +                 EQ     AUV3                                                    GPO      2807
                                                                                                                 GPO      2808
                                        *         SET BIT FOR REFERENCED VARIABLE                                GPO      2809
                                                                                                                 GPO      2810
          2045  20536                    AUV2     LX5    -R1.INP                                                 GPO      2811
                     63350                        SB3    X5          I = IN[R1]                                  GPO      2812
                          0430002050 +            ZR     B3,AUV3     IF I = 0                                    GPO      2813
                                                                                                                 GPO      2814
          2046  54303                             SA3    A0+B3       U2 = UDT(I+1);  W = WI[U2]                  GPO      2815
                     53235                        SA2    B5+X3                                                   GPO      2816
                          26563                   UX5    B6,X3                                                   GPO      2817
                               22467              LX4    B6,X7                                                   GPO      2818
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    76
        AUV - ADJUST USE VECTOR                                       AUV                 CODE
  
          2047  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
          2050  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
          2051  0306002050 +                      ZR     X6,AUV3     IF ^( LD[DI] ! BM[DI] )                     GPO      2828
                          0334002045 +            MI     X4,AUV2     IF LD[DI]                                   GPO      2829
                                                                                                                 GPO      2830
          2052  26635                             UX6    B3,X5                                                   GPO      2831
                     0430002055 +                 ZR     B3,AUV4     IF OC[R1] = OC.EOQ  */ END OF SEQ           GPO      2832
          2053  7163777705                        SX6    B3-OC.RJ6                                               GPO      2833
                          0316002050 +            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
          2054  0400002026 +                      EQ     AUV                                                     GPO      2839
                                                                                                                 GPO      2840
                                        *         ADJUST *USE* AND *UBD* BV"S, USE = USE & ^(SVA2 & ^SVA)        FCC0509    34
                                                                                                                 FCC0509    35
          2055  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
          2056  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
          2057  54710                             SA7    A1                                                      FCC0509    44
                     66331                        SB3    B3+B1       I = I + 1                                   FCC0509    45
                          0734002055 +            LT     B3,B4,AUV4  IF I < VL                                   GPO      2850
                                                                                                                 GPO      2851
                                                  PRNTABV  AUV,SVA                                               GPO      2852
          2060  0400002026 +                      EQ     AUV                                                     GPO      2853
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    77
        FEI - FORM ENTRY INFORMATION                                  FEI                 CODE
  
                                        **        FEI - FORM ENTRY INFORMATION                                   FCCA513X   11
                                        *         COMPUTE REGION LIVE ENTRY BIT VECTOR.                          FCCA513X   12
                                                                                                                 FCCA513X   13
          2061  0200402061 +             FEI      ROUTINE                                                        FCCA513X   14
          2062  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
          2066  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
          2067  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
          2070  54620                             SA6    A2                                                      FCCA513X   27
                     67221                        SB2    B2-B1                                                   FCCA513X   28
                          0420002061 +            ZR     B2,FEI      IF VL = 1                                   FCCA513X   29
          2071  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
          2072  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
          2073  54620                             SA6    A2          LEA = ^[BDA] & [LXA] ! [UFA]                FCCA513X   38
                     0520002071 +                 NZ     B2,FEI1                                                 FCCA513X   39
                                                                                                                 FCCA513X   40
          2074  0400002061 +                      EQ     FEI                                                     FCCA513X   41
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    78
        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
          2075  0200402075 +             FXI      ROUTINE                                                        GPO      2860
          2076  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
          2102  5120000010 C                      SA2    MDA                                                     GPO      2886
          2103  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
          2104  0732002103 +                      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
          2105  54211                             SA2    A1+B1                                                   GPO      2897
                     43001                        MX0    1                                                       GPO      2898
                          5130000035 +            SA3    O.BTT                                                   GPO      2899
          2106  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
          2107  55551                    FXI4     SA5    A5-B1       IP = IP - 1                                 GPO      2906
                                                  LX5    59-IM.SCRP                                              GPO      2907
                     0325002107 +                 PL     X5,FXI4     IF ^SCR[IP]                                 GPO      2908
                                                                                                                 GPO      2909
                                                  LX5    1+IM.SCRP-IM.BNP                                        GPO      2910
                               53457              SA4    B7+X5                                                   GPO      2911
          2110  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
          2111  0325002107 +                      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
          2112  5120000015 +                      SA2    O.BIT                                                   GPO      2920
                          43600                   MX6    0                                                       GPO      2921
                               56670              SA6    B7          BTT(0) = 0                                  GPO      2922
          2113  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
          2114  63610                             SB6    X1          EIB = [EIT]   */ BASE OF EDGE INDEX TABLE   GPO      2927
                     63420                        SB4    X2                        (B4) = [O.BIT]                GPO      2928
                                                                                                                 GPO      2929
          2115  55551                    FXI5     SA5    A5-B1       IP = IP - 1                                 GPO      2930
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    79
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
                                                  LX5    59-IM.SCRP                                              GPO      2931
                     0325002115 +                 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
          2116  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
          2117  53237                             SA2    B7+X3       B = BTT(J)                                  GPO      2943
                     67331                        SB3    B3-B1       N = N - 1                                   GPO      2944
                                                  LX2    59-E.SCRP                                               GPO      2945
                          0332002127 +            MI     X2,FXI8     IF SCR[B]     */ SUCC IS IN *SCR*           GPO      2946
                                                                                                                 GPO      2947
          2120  43163                             MX1    -E.NPREDL                                               GPO      2948
                     20214                        LX2    1+E.SCRP-E.NPREDP                                       GPO      2949
                          15621                   BX6    -X1*X2                                                  GPO      2950
          2121  0316002125 +                      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
          2122  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
          2123  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
          2124  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
          2125  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
          2126  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
          2127  54331                    FXI8     SA3    A3+B1       SI = SI + 1                                 GPO      2974
                     0530002117 +                 NZ     B3,FXI6     IF N " 0                                    GPO      2975
                                                                                                                 GPO      2976
                               20505              LX5    59-IM.HNP+IM.BNP                                        GPO      2977
          2130  0325002115 +                      PL     X5,FXI5     IF ^HN[IP]                                  GPO      2978
                                                                                                                 GPO      2979
                          20523                   LX5    1+IM.HNP-IM.BIP                                         GPO      2980
                               73650              SX6    X5                                                      GPO      2981
          2131  20544                             LX5    IM.BIP-IM.BNP                                           GPO      2982
                     53657                        SA6    B7+X5       BTT(BN[IP]) = BI[IP]  */ RESTORE HEADER ENT GPO      2983
                                                                                                                 GPO      2984
                          76650                   SX6    B5                                                      GPO      2985
                               74700              SX7    A0                                                      GPO      2986
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    80
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2132  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
          2133  5150000002 C                      SA5    BVL                                                     GPO      2995
                          7235000002              SX3    X5+2                                                    GPO      2996
          2134  42273                             IX2    X7*X3                                                   GPO      2997
                     7212000002                   ALLOC  RXI,X2+2    ALLOC( RXI , NX*(BVL+2)+2 )                 GPO      2998
          2136  43700                             MX7    0                                                       GPO      2999
                     53720                        SA7    X2          RI = [O.RXI];  [RI] = 0                     GPO      3000
                          5110000015 +            SA1    O.BIT                                                   GPO      3001
          2137  5120000006 C                      SA2    LXA                                                     GPO      3002
                          5130000010 C            SA3    MDA                                                     GPO      3003
          2140  5140000031 C                      SA4    O.ENL                                                   GPO      3004
                          63451                   SB4    X5+B1       VL = BVL + 1                                GPO      3005
                               66544              SB5    B4+B4                                                   GPO      3006
          2141  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
          2142  0304002172 +                      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
          2143  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
          2144  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
          2145  15774                             BX7    -X4*X7                                                  FCC0392    99
                     0307002161 +                 ZR     X7,FXI11    IF NPRED[XW] = 0                            FCC0392   100
                               56162              SA1    B6+B2                                                   FCC0392   101
          2146  20105                             LX1    59-BI.HNP                                               FCC0392   102
                     0321002156 +                 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
          2147  5120000037 +                      SA2    L.HNT                                                   FCC0392   108
                          5110000036 +            SA1    O.HNT                                                   FCC0392   109
          2150  53620                             SA6    X2          [L.HNT] = I   */ SEARCH TERMINATOR          FCC0392   110
                     53110                        SA1    X1          HI = [O.HNT]                                FCC0392   111
                                                                                                                 FCC0392   112
          2151  10211                    FXI9A    BX2    X1          HIL = [HI]                                  FCC0392   113
                     63310                        SB3    X1                                                      FCC0392   114
                          5011000001              SA1    A1+1        HI = HI + 1                                 FCC0392   115
          2152  0523002151 +                      NE     B2,B3,FXI9A IF HNI[HIL] " I                             FCC0392   116
                                                                                                                 FCC0392   117
                          20253                   LX2    -H.HBIP+1                                               FCC0392   118
                               63220              SB2    X2          I = 2*HBI[HIL]  */ SUBSTITUTE *HB*          FCC0392   119
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    81
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2153  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
          2154  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
          2155  0307002161 +                      ZR     X7,FXI11    IF NPRED[XW] = NIP[HIL]                     FCC0985    10
                                                                                                                 FCC0392   129
          2156  10755                    FXI10    BX7    X5                                                      FCC0392   130
                     76000                        SX0    B0          PSP = 0                                     GPO      3019
                          20701                   LX7    59-E.JPP                                                GPO      3020
          2157  0337002161 +                      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
          2160  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
          2161  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
          2162  5120000017 +                      SA2    O.BVT                                                   GPO      3042
                          20555                   LX5    -E.LINKP                                                GPO      3043
                                                  LX3    -BI.BVIP                                                GPO      3045
                               63220              SB2    X2                                                      GPO      3046
          2163  66300                             SB3    B0          J = 0                                       GPO      3047
                     63232                        SB2    B2+X3       BVA = O.BVT + BVI[BIT(I)]                   GPO      3048
                                                                                                                 GPO      3049
          2164  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
          2165  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
          2166  54640                             SA6    A4                                                      GPO      3058
                     0310002170 +                 NZ     X0,FXI13    IF PSP " 0                                  GPO      3059
                               54203              SA2    A0+B3       MDW = [MDA+J]                               GPO      3060
          2167  15627                             BX6    -X7*X2      MDW = MDW & ^LEW                            GPO      3061
                     54620                        SA6    A2                                                      GPO      3062
                                                                                                                 GPO      3063
          2170  66331                    FXI13    SB3    B3+B1       J = J + 1                                   GPO      3064
                     66221                        SB2    B2+B1       BVA = BVA + 1                               GPO      3065
                          0734002164 +            LT     B3,B4,FXI12 IF J < VL                                   GPO      3066
                                                                                                                 GPO      3067
          2171  73450                             SX4    X5          XI = LINK[XW]                               GPO      3068
                     53550                        SA5    X5          XW = [XI]                                   GPO      3069
                          0314002143 +            NZ     X4,FXI9     IF XI " 0     */ NOT END OF LIST            FCC0392   133
                                                                                                                 GPO      3071
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    82
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2172  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
                          0400002075 +            EQ     FXI                                                     GPO      3078
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    83
        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
          2173  0200402173 +             SHB      ROUTINE                                                        GPO      3084
          2174  7170000000                        SX7    0           BSI = 0                                     GPO      3085
                          5170000032 +            SA7    BSI                                                     GPO      3086
          2175  0306002210 +                      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
          2176  0100000000 X                      CALL   RTB         GET HOLDING BLOCK POINTERS                  GPO      3092
          2177  5150000034 +                      SA5    L.HB                                                    GPO      3093
                          5140000000 X            SA4    L.MOD                                                   GPO      3094
          2200  36245                             IX2    X4+X5                                                   GPO      3095
                     7212777773                   ALLOC  TXT,X2-4    ALLOC( TXT , L.HB + L.MOD-4 )               GPO      3096
          2202  36025                             IX0    X2+X5       FM = O.TXT + L.HB                           GPO      3097
                     73320                        SX3    X2                                                      GPO      3098
                          5120000027 +            SA2    O.SEQ                                                   GPO      3099
          2203  73150                             MOVE   X5,X2,X3    MOVE( L.HB , O.SEQ , O.TXT )                GPO      3100
          2204  5110000000 X                      SA1    L.MOD                                                   GPO      3101
                          5120000000 X            SA2    O.MOD                                                   GPO      3102
          2205  7211777773                        MOVE   X1-4,X2+4,X0      MOVE( L.MOD-4 , O.MOD+4 , FM )        GPO      3103
          2207  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
          2210  7110000004               SHB1     ALLOC  TXT,4                                                   GPO      3109
          2212  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
          2213  0100000127 +                      RJ     SRI         SRI( EOQ  0,0 )                             GPO      3114
          2214  7160000004                        SX6    4                                                       GPO      3115
                          7176777767              SX7    B6-8                                                    GPO      3116
          2215  0307002220 +                      ZR     X7,SHB2     IF L.TXT = 8  */ NOTHING MOVED TO HB        GPO      3117
                          7160000001              SX6    1                                                       GPO      3118
          2216  0100000000 X                      CALL   SQZB        SQUEEZE THE BLOCK                           GPO      3119
          2217  5110000000 X                      SA1    L.TXT                                                   GPO      3120
                          7261777773              SX6    X1-4                                                    GPO      3121
                                                                                                                 GPO      3122
          2220  5120000000 X             SHB2     SA2    O.TXT                                                   GPO      3123
                          7276000004              SX7    X6+4                                                    GPO      3124
          2221  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
          2222  0100000000 X                      CALL   WMB         WRITE HOLDING BLOCK TO *BLK*                GPO      3128
                                                                                                                 GPO      3129
                                                  TRACE  SHB,RLIST                                               GPO      3130
          2223  0400002173 +                      EQ     SHB                                                     GPO      3131
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    84
        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
          2224  0200402224 +             MII      ROUTINE                                                        GPO      3150
          2225  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
          2226  20430                             LX4    -IM.BIP                                                 GPO      3155
                     63340                        FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                  GPO      3156
                               73772              SX7    X7+B2                                                   GPO      3157
          2231  5170000110 C                      SA7    UBD         UBD = BVA + VL                              GPO      3158
                          6130000003              SB3    3                                                       GPO      3159
          2232  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
          2233  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
          2234  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
          2235  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
          2236  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
          2237  26621                             UX6    B2,X1                                                   GPO      3180
                     7172777771                   SX7    B2-OC.LAB                                               GPO      3181
          2240  0317002250 +                      NZ     X7,MII2     IF OC[R1+4] " OC.LAB                        GPO      3182
                                                                                                                 GPO      3183
                          54510                   SA5    A1          R1 = R1 + 4   */ SKIP INITIAL LABEL         GPO      3184
          2241  0400002250 +                      EQ     MII2                                                    GPO      3185
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    85
        MII - MARK INVARIANT INSTRUCTIONS                             MII                 MII 
  
                                        *         OPERANDS *INV*, MARK INSTRUCTION AS *INV*                      GPO      3187
                                                                                                                 GPO      3188
          2242  5025000002               MII1     SA2    A5+2        DI = R1 + 2                                 GPO      3189
                          5110000107 C            SA1    AN                                                      GPO      3190
          2243  20240                             LX2    59-D.USIP                                               GPO      3191
                     16312                        BX3    -X2+X1                                                  GPO      3192
                          0333002246 +            MI     X3,MII1A    IF AN ! ^USI[DI]  */ SAFE TO MOVE           GPO      3193
          2244  7160000001                        SX6    1                                                       GPO      3194
                          5160000112 C            SA6    UIC         UIC = 1       */ INDICATE UNSAFE INV CODE   GPO      3195
          2245  0400002250 +                      EQ     MII2                                                    GPO      3196
                                                                                                                 GPO      3197
          2246  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
          2247  54753                             SA7    A5+B3       LII = R1 + 3                                GPO      3203
                                                                                                                 GPO      3204
                                        *         GET NEXT INSTRUCTION AND JUMP TO PROCESSOR                     GPO      3205
                                                                                                                 GPO      3206
          2250                                    PROCESS (DAR,DEF,NOP)                                          GPO      3207
          2250  5055000004               MII2     SA5    A5+4        R1 = R1 + 4                                 GPO      3208
                          26625                   UX6    B2,X5                                                   GPO      3209
          2251  0222002501 +                      JP     MII.JT+B2   JUMP( MII.JT( OC[R1] )                      GPO      3210
  
  
                                2246 +   TYII     EQU    MII1A                     */ TYPE II ARE *INV*          GPO      3212
                                                                                                                 GPO      3213
                                2250 +   TYIV     EQU    MII2                      */ TYPE IV ARE NOT INV        GPO      3214
  
  
  
                                        *         LD - CHECK *UDI* TO SEE IF *INV* IN REGION                     GPO      3216
                                                                                                                 GPO      3217
          2252                                    PROCESS ILD                                                    FCC0885     6
          2252  6120000050                        SB2    OC.LD       OC = OC.LD                                  FCC0885AX   5
                          5140000000 X            SA4    IT.                                                     FCC0885AX   6
          2253  54351                             SA3    A5+B1                                                   FCC0885AX   7
                     13634                        BX6    X3-X4                                                   FCC0885AX   8
                          73760                   SX7    X6                                                      FCC0885AX   9
          2254  0317002255 +                      NZ     X7,ILD1     IF IH[R2] " IT.                             FCC0885AX  10
                          6120000075              SB2    OC.TLD                                                  FCC0885AX  11
                                                                                                                 FCC0885AX  12
          2255  27625                    ILD1     PX6    B2,X5       OC[R1] = OC   */ INHIBIT ST/ILD SQZ         FCC0885AX  13
                     54650                        SA6    A5                                                      FCC0885     9
                                                                                                                 FCC0885    10
          2256                                    PROCESS (LD,TLD)                                               FCCA506X    4
          2256  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
          2257  15740                             BX7    "RN"X4                                                  GPO      3223
                     0317002262 +                 NZ     X7,LD1      IF RF[R2] " 0                               FCC1504X   10
                               54241              SA2    A4+B1       DI = R2 + 1                                 FCC1504X   11
          2260  76610                             SX6    B1                                                      FCC1504X   12
                     20251                        LX2    -D.RFP                                                  FCC1504X   13
                          11662                   BX6    X6*X2                                                   FCC1504X   14
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    86
        MII - MARK INVARIANT INSTRUCTIONS                             LD                  MII 
  
                               20654              LX6    UD.RFP                                                  FCC1504X   15
          2261  12663                             BX6    X6+X3       RF[UI] = RF[UI] ! RF[DI]                    FCC1504X   16
                     54630                        SA6    A3                                                      FCC1504X   17
          2262  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
                          0326002250 +            PL     X6,MII2     IF ^( ^DEFR[UI] & INV[LF] )                 GPO      3228
          2263  20305                             LX3    UD.DEFRP-UD.ISTP                                        FCCA487     7
                     0333002250 +                 MI     X3,MII2     IF IST[UI]    */ INTERFERING STORE          FCCA487     8
          2264  5130000107 C                      SA3    AN                                                      FCC1584X    5
                          0333002246 +            MI     X3,MII1A    IF AN < 0     */ SAFE TO MOVE               FCC1584X    6
          2265  0307002246 +                      ZR     X7,MII1A    IF RF[R2] = 0 */ NO SUBSCRIPT               FCC1584X    7
                          5130000000 X            SA3    =XUOFLAG                                                FCC2277     5
          2266  0303002250 +                      ZR     X3,MII2     IF UO = 0   */ DONT MOVE A(I)               FCC2277     6
                          55323                   SA3    A2-B3       R1F = LF - 3                                FCC1584X    8
                               26723              UX7    B2,X3                                                   FCC1584X    9
          2267  7162777727                        SX6    B2-OC.LD                                                FCC1584X   10
                          0316002246 +            NZ     X6,MII1A    IF OC[R1F] " OC.LD                          FCC1584X   11
          2270  54231                             SA2    A3+B1                                                   FCC1584X   12
                     20230                        LX2    -IH.RFP                                                 FCC1584X   13
                          15720                   BX7    "RN"X2                                                  FCC1584X   14
          2271  0317002250 +                      NZ     X7,MII2     IF RF[R2F] " 0  */ DONT MOVE A(B(I))        FCC1584X   15
                          0400002242 +            EQ     MII1                                                    GPO      3229
  
  
  
                                        *         TYPE I , INV(I) = INV(J) & INV(K)                              GPO      3231
                                                                                                                 GPO      3232
          2272  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
          2273  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
          2274  0336002242 +                      MI     X6,MII1     IF INV[LJ] & INV[LK]                        GPO      3241
                          0400002250 +            EQ     MII2                                                    GPO      3242
                                                                                                                 GPO      3243
                                        *         TYPE 1 - 2 RESULTS                                             GPO      3244
                                                                                                                 GPO      3245
          2275                                    PROCESS (NR,UP,RNZ)                                            GPO      3246
          2275  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
          2276  0334002242 +                      MI     X4,MII1     IF INV[LK]                                  GPO      3251
                          0400002250 +            EQ     MII2                                                    GPO      3252
                                                                                                                 GPO      3253
                                        *         CONSTANT SHIFTS                                                GPO      3254
                                                                                                                 GPO      3255
          2277                                    PROCESS (KLS,KRS)                                              GPO      3256
          2277  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      3257
                     20430                        LX4    -IH.RFP                                                 GPO      3258
                          53347                   SA3    "TB"+X4     LF = TB + RF[R2]                            GPO      3259
                                                  LX3    59-I.INVP                                               GPO      3260
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    87
        MII - MARK INVARIANT INSTRUCTIONS                             TYI                 MII 
  
          2300  0333002242 +                      MI     X3,MII1     IF INV[LF]                                  GPO      3261
                          0400002250 +            EQ     MII2                                                    GPO      3262
  
  
                                        **        IM - MAY BE UNSAFE IF CONDITIONALLY EXECUTED                   FCC0238AX   7
                                                                                                                 FCC0238AX   8
          2301                                    PROCESS IM                                                     FCC0238AX   9
          2301  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
          2302  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
          2303  0326002250 +                      PL     X6,MII2     IF ^(INV[LJ] & INV[LK])                     FCC0238AX  18
                          5120000107 C            SA2    AN                                                      FCC0238AX  19
          2304  0332002246 +                      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
          2305  0100000000 X                      CALL   CMO                                                     FCC0238AX  27
          2306  55231                             SA2    A3-B1       DK = LK - 1                                 FCC0238AX  28
                     0306002311 +                 ZR     X6,IM1      IF CMO(DJ) = 0  */ J OP IS SAFE             FCC0238AX  29
          2307  0100000000 X                      CALL   CMO                                                     FCC0238AX  30
          2310  0306002313 +                      ZR     X6,IM2      IF CMO(DK) = 0  */ K OP IS SAFE             FCC0238AX  31
                          0400002250 +            EQ     MII2                                                    FCC0238AX  32
                                                                                                                 FCC0238AX  33
          2311  0100000000 X             IM1      CALL   CMO                                                     FCC0238AX  34
          2312  0306002246 +                      ZR     X6,MII1A    IF CMO(DK) = 0  */ K OP IS SAFE             FCC0238AX  35
                                                                                                                 FCC0238AX  36
          2313  5045000002               IM2      SA4    A5+2        DI = R1 + 2                                 FCC0238AX  37
                          76310                   SX3    B1                                                      FCC0238AX  38
                               20333              LX3    D.USIP                                                  FCC0238AX  39
          2314  12634                             BX6    X3+X4       USI[DI] = 1   */ MARK AS UNSAFE             FCC0238AX  40
                     54640                        SA6    A4                                                      FCC0238AX  41
                          0400002246 +            EQ     MII1A                                                   FCC0238AX  42
  
  
  
                                        *         STT , IA, IS - CHECK FOR =(I+INV)                              GPO      3264
                                                                                                                 GPO      3265
          2315                                    PROCESS STT                                                    GPO      3266
          2315  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
          2316  0334002242 +                      MI     X4,MII1     IF INV[LJ]                                  GPO      3273
                                                                                                                 GPO      3274
                          5014777774              SA1    A4-3        R1P = LJ - 3                                GPO      3275
          2317  0420002327 +                      ZR     B2,IA2      IF IH[R2] = 0                               GPO      3276
                                                                                                                 GPO      3277
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    88
        MII - MARK INVARIANT INSTRUCTIONS                             ADDS                MII 
  
                          0400002250 +            EQ     MII2                                                    GPO      3278
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    89
        MII - MARK INVARIANT INSTRUCTIONS                             ADDS                MII 
  
          2320                                    PROCESS (IA,IS)                                                GPO      3280
          2320  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
          2321  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
          2322  0336002246 +                      MI     X6,MII1A    IF INV[LJ] & INV[LK]                        FCC0716     9
                                                  LX7    59-I.INVP                                               GPO      3291
                          0327002250 +            PL     X7,MII2     IF ^( INV[LJ] ! INV[LK] )                   GPO      3292
                                                                                                                 GPO      3293
          2323  75743                             SX7    A4-B3       R1P = LJ - 3                                GPO      3294
                     55231                        SA2    A3-B1       DP = LK - 1                                 GPO      3295
                                                  LX4    59-I.INVP                                               GPO      3296
                          0324002326 +            PL     X4,IA1      IF ^INV[LJ]                                 GPO      3297
          2324  6122777740                        SB2    B2-OC.IS                                                GPO      3298
                          0420002250 +            ZR     B2,MII2     IF OC[R1] = OC.IS  */ INV - I CASE          GPO      3299
          2325  75733                             SX7    A3-B3       R1P = LK - 3                                GPO      3300
                     55241                        SA2    A4-B1       DP = LJ - 1                                 GPO      3301
                                                                                                                 GPO      3302
          2326  20241                    IA1      LX2    59-D.ZPP                                                GPO      3303
                     53170                        SA1    X7                                                      GPO      3304
                          0322002250 +            PL     X2,MII2     IF ^ZP[DP]    */ INV OP IS ^ZP              GPO      3305
                                                                                                                 GPO      3306
                                        *         ONE OPERATION IS INV, SEE IF THE OTHER IS A *LD* OF A *RD* VAR GPO      3307
                                                                                                                 GPO      3308
          2327  26721                    IA2      UX7    B2,X1                                                   GPO      3309
                     7142777727                   SX4    B2-OC.LD                                                GPO      3310
                               20136              LX1    -R1.INP                                                 GPO      3311
          2330  0314002250 +                      NZ     X4,MII2     IF OC[R1P] " OC.LD                          GPO      3312
                          53216                   SA2    "UB"+X1                                                 GPO      3313
                               20204              LX2    59-UD.^RDP                                              GPO      3314
          2331  0332002250 +                      MI     X2,MII2     IF ^RD[ UDI(IN[R1P]) ]                      GPO      3315
                                                                                                                 GPO      3316
                          76510                   SX5    B1                                                      GPO      3317
                               73110              SX1    X1                                                      GPO      3318
          2332  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
          2333  0400002250 +                      EQ     MII2                                                    GPO      3323
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    90
        MII - MARK INVARIANT INSTRUCTIONS                             UJP                 MII 
  
                                        *         JUMP PROCESSING, CHECK FOR LABEL SUBSTITUTION, BUMP N.LJ       GPO      3325
                                                                                                                 GPO      3326
          2334                                    PROCESS UJP                                                    GPO      3327
          2334  5130000025 C                      SA3    LIH                                                     GPO      3328
                          13453                   BX4    X5-X3                                                   GPO      3329
                               63240              SB2    X4                                                      GPO      3330
          2335  0520002351 +                      NZ     B2,JPX2     IF IH[R1] " LIH                             GPO      3331
                                                                                                                 GPO      3332
                          5120000027 C            SA2    N.LJ                                                    GPO      3333
          2336  5130000016 C                      SA3    LGL                                                     GPO      3334
                          43701                   MX7    1                                                       GPO      3335
                               12672              BX6    X7+X2       N.LJ = N.LJ ! 1S59  */ INHIBIT PREFETCHING  GPO      3336
          2337  54620                             SA6    A2                                                      GPO      3337
                     0303002351 +                 ZR     X3,JPX2     IF LGL = 0    */ NO LABEL SUBSTITUTION      GPO      3338
                               21322              AX3    18                                                      GPO      3339
          2340  36635                             IX6    X3+X5       IH[R1] = SHIFT( LGL , -18 )                 GPO      3340
                     54650                        SA6    A5                                                      GPO      3341
                          0400002351 +            EQ     JPX2                                                    GPO      3342
  
  
          2341                                    PROCESS JPX                                                    GPO      3344
          2341  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      3345
                     5130000025 C                 SA3    LIH                                                     GPO      3346
                               13734              BX7    X3-X4                                                   GPO      3347
          2342  63270                             SB2    X7                                                      GPO      3348
                     0520002347 +                 NZ     B2,JPX1     IF IH[R2] " LIH                             GPO      3349
                                                                                                                 GPO      3350
          2343  5120000027 C                      SA2    N.LJ                                                    GPO      3351
                          5130000016 C            SA3    LGL                                                     GPO      3352
          2344  76710                             SX7    B1                                                      FCCA462     5
                     36672                        IX6    X7+X2       N.LJ = N.LJ + 1                             FCCA462     6
                          54620                   SA6    A2                                                      GPO      3354
          2345  0303002347 +                      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
          2346  5064000000                        SA6    A4+                                                     GPO      3358
                                                                                                                 GPO      3359
          2347  15650                    JPX1     BX6    "RN"X5                                                  GPO      3360
                     53467                        SA4    "TB"+X6     LI = TB + RI[R1]                            GPO      3361
                                                  LX4    59-I.INVP                                               GPO      3362
                          0324002351 +            PL     X4,JPX2     IF ^INV[LI]                                 GPO      3363
                                                                                                                 GPO      3364
          2350  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
          2351                                    PROCESS (LAB,JPBB)                                             GPO      3369
          2351  7160000000               JPX2     SX6    0                                                       GPO      3370
                          5160000107 C            SA6    AN          AN = 0                                      GPO      3371
          2352  0400002250 +                      EQ     MII2                                                    GPO      3372
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    91
        MII - MARK INVARIANT INSTRUCTIONS                             JIN                 MII 
  
                                        *         JIN - INDEXED JUMP ( COMPUTED OR ASSIGNED GOTO )               FCC0909    10
                                                                                                                 FCC0909    11
          2353                                    PROCESS JIN                                                    GPO      3374
          2353  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
          2354  54620                             SA6    A2                                                      GPO      3378
                     5130000107 C                 SA3    AN                                                      FCC0909    12
          2355  5120000016 C                      SA2    LGL                                                     FCC0909    13
                          20301                   LX3    IM.APP-IM.LNP                                           FCC0909    14
                               54451              SA4    A5+B1       R2 = R1 + 1                                 FCC0909    15
          2356  0323002351 +                      PL     X3,JPX2     IF ^LN[AN]                                  FCC0909    16
                          0302002351 +            ZR     X2,JPX2     IF LGL = 0    */ NO LABEL CHANGE            FCC0909    17
          2357  63240                             SB2    X4                                                      FCC0909    18
                     0520002351 +                 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
          2360  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
          2361  54640                             SA6    A4                                                      FCC0909    29
                     0400002351 +                 EQ     JPX2                                                    GPO      3379
  
  
  
                                        *         TST -  DEFINITION POINT OF MOVED INSTRUCTION                   FCC1254    22
                                                                                                                 FCC1254    23
          2362                                    PROCESS TST                                                    FCC1254    24
          2362  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
          2363  0324002250 +                      PL     X4,MII2     IF ^INV[LI]                                 FCC1254    29
                                                                                                                 FCC1254    30
                          54151                   SA1    A5+B1       R2 = R1 + 1                                 FCC1254    31
                               63230              SB2    X3                                                      FCC1254    32
          2364  20152                             LX1    -IH.CAP                                                 FCC1254    33
                     53212                        SA2    B2+X1                                                   FCC1254    34
                                                  LX2    59-T.INVP                                               FCC1254    35
                          0322002250 +            PL     X2,MII2     IF ^INV[TET(CA[R2])]                        FCC1254    36
          2365  0400002246 +                      EQ     MII1A                                                   FCC1254    37
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    92
        MII - MARK INVARIANT INSTRUCTIONS                             RS                  MII 
  
                                        *         REGISTER STORE PROCESSING                                      GPO      3381
                                                                                                                 GPO      3382
          2366                                    PROCESS RS                                                     GPO      3383
          2366  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
          2367  0306002400 +                      ZR     X6,RS1      IF LKT = 0    */ UJP LOCK                   GPO      3389
                          6226777775              SB2    X6-2                                                    GPO      3390
          2370  0720002250 +                      LT     B2,MII2     IF LKT = 1    */ TEMP LOCK                  GPO      3391
                          0324002250 +            PL     X4,MII2     IF ^INV[LI]                                 GPO      3392
                                                                                                                 GPO      3393
          2371  0702002242 +                      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
          2372  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
          2373  20551                             LX5    -R1.SOP-SO.RTP                                          GPO      3404
                     15457                        BX4    -X7*X5                                                  GPO      3405
                          0304002375 +            ZR     X4,RS0      IF SORT[R1] = 0  */ RS TO A B-REG           GPO      3406
          2374  55353                             SA3    A5-B3       R2P = R1 - 3                                GPO      3407
                                                  LX3    59-IH.LDP                                               GPO      3408
                     0323002250 +                 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
          2375  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
          2376  54730                             SA7    A3          LII = LJP                                   GPO      3417
                     43600                        MX6    0                                                       GPO      3418
                          54640                   SA6    A4          [LIP] = 0                                   GPO      3419
          2377  0400002250 +                      EQ     MII2                                                    GPO      3420
                                                                                                                 GPO      3421
                                        *         *UJP* RS , PRECEEDING A FUNCTION CALL                          GPO      3422
                                                                                                                 GPO      3423
          2400  0334002402 +             RS1      MI     X4,RS2      IF INV[LI]                                  GPO      3424
                          5100777776              SA0    -1          FAC = 0       */ INDICATE ^INV OPERAND      GPO      3425
          2401  0400002250 +                      EQ     MII2                                                    GPO      3426
                                                                                                                 GPO      3427
          2402  74600                    RS2      SX6    A0                                                      GPO      3428
                     0336002250 +                 MI     X6,MII2     IF FAC < 0    */ PREVIOUS ARG NOT INV       GPO      3429
                               20622              LX6    I.IICP                                                  GPO      3430
          2403  54653                             SA6    A5+B3       IIC[R1+3] = FAC  */ CHAIN THIS TO LAST      GPO      3431
                     55067                        SA0    A6-"TB"     FAC = R1+3 - TB                             GPO      3432
                          0400002250 +            EQ     MII2                                                    GPO      3433
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    93
        MII - MARK INVARIANT INSTRUCTIONS                             RJ3                 MII 
  
                                        *         RJ3 - CHECK FOR *BEF* AND ARGS INVARIANT                       GPO      3435
                                                                                                                 GPO      3436
          2404                                    PROCESS (RJ3,RJ6)                                              FCC2039     6
          2404  5110000107 C                      SA1    AN                                                      GPO      3438
                          64200                   SB2    A0          AC = FAC                                    GPO      3439
                               56000              SA0    B0          FAC = 0                                     GPO      3440
          2405  0321002250 +                      PL     X1,MII2     IF ^AN        */ ON A SIDE BRANCH           GPO      3441
                          0602002250 +            LE     B2,MII2     IF AC @ 0     */ ARGS NOT INV               GPO      3442
          2406  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
          2407  7236777775                        SX3    X6-2                                                    GPO      3447
                          0313002250 +            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
          2410  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
          2411  63230                             SB2    X3          AC = IIC[LIP]                               GPO      3457
                     54630                        SA6    A3                                                      GPO      3458
                          0520002410 +            NZ     B2,RJ31     IF AC " 0                                   GPO      3459
                                                                                                                 GPO      3460
                                        *         MARK RJ3 AND DEFS FOLLOWING AS *INV*                           GPO      3461
                                                                                                                 GPO      3462
          2412  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
          2413  54571                             SA5    A7+B1       R1 = LII + 1                                GPO      3467
                     26125                        UX1    B2,X5                                                   GPO      3468
                          7122777772              SX2    B2-OC.DEF                                               GPO      3469
          2414  0302002412 +                      ZR     X2,RJ32     IF OC[R1] = OC.DEF                          GPO      3470
                                                                                                                 GPO      3471
                          5130000107 C            SA3    AN                                                      FCC1254    39
          2415  0303002421 +                      ZR     X3,RJ33     IF AN = 0     */ MII CALLED FROM *CIF*      FCC1254    40
                          5130000020 C            SA3    XRF                                                     FCC1254    41
          2416  76410                             SX4    B1                                                      FCC1254    42
                     37634                        IX6    X3-X4       XRF = XRF - 1 */ DECR N.EXT-REFS IN LOOP    FCC1254    43
                          54630                   SA6    A3                                                      FCC1254    44
          2417  0316002421 +                      NZ     X6,RJ33     IF XRF " 0                                  FCC1254    45
                                                                                                                 FCC1254    46
                          5130000051 +            SA3    MRA.X                                                   FCC1254    47
          2420  10633                             BX6    X3          MRA = MRA.X   */ MAKE REGS AVAIL IN *GRA*   FCC1254    48
                     5160000015 C                 SA6    MRA                                                     FCC1254    49
                                                                                                                 FCC1254    50
          2421  0222002501 +             RJ33     JP     MII.JT+B2   JUMP( MII.JT( OC[R1] ) )                    FCC1254    51
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    94
        MII - MARK INVARIANT INSTRUCTIONS                             ST                  MII 
  
                                        *         ST - SEE IF MOVABLE OR A RECURSIVE DEFINITION                  GPO      3491
                                                                                                                 GPO      3492
          2422                                    PROCESS ST                                                     GPO      3493
          2422  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
          2423  20330                             LX3    -IH.RFP                                                 GPO      3498
                     73730                        SX7    X3                                                      GPO      3499
                          0317002250 +            NZ     X7,MII2     IF RF[R2] " 0 */ LEAVE INDEXED STORES ALONE GPO      3500
                                                                                                                 GPO      3501
          2424  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
          2425  11712                             BX7    X1*X2                                                   GPO      3506
                     0420002453 +                 ZR     B2,ST3      IF IN[R1] = 0 */ AP/IO LIST STORE           GPO      3507
                                                                                                                 GPO      3508
          2426  0327002443 +                      PL     X7,ST1      IF ^( AN & INV[LI] )                        GPO      3509
                          43663                   MX6    -UD.STCL                                                GPO      3510
                               20656              LX6    UD.STCP+1                                               GPO      3511
          2427  15146                             BX1    -X6*X4                                                  GPO      3512
                     0311002443 +                 NZ     X1,ST1      IF ^( STC[UI] = 1 & IST[UI] = 0 )           GPO      3513
                                                                                                                 GPO      3514
                               54341              SA3    A4+B1       U2 = UI + 1                                 GPO      3515
          2430  5110000110 C                      SA1    UBD                                                     GPO      3516
                          5140000007 C            SA4    LEA                                                     FCCA513X   48
          2431  26723                             UX7    B2,X3       B = BITN[U2]                                GPO      3517
                     36617                        IX6    X1+X7                                                   GPO      3518
                          5130000005 C            SA3    UVA                                                     GPO      3519
          2432  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
          2433  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
          2434  20773                             LX7    59                                                      GPO      3525
                     53456                        SA4    "UB"+X5     RESET UI                                    FCCA513X   52
                          0337002443 +            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
          2435  5130002460 +                      SA3    STA                                                     FCC0408    87
                          15643                   BX6    -X3*X4      (DEFR,^RD,STC)[UI] = 0  */ SO LD"S CAN MOVE FCC0408    88
          2436  5130000000 C                      SA3    VL                                                      FCC0408    89
                          76710                   SX7    B1                                                      GPO      3535
                               54640              SA6    A4                                                      GPO      3536
          2437  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
          2440  54610                             SA6    A1                                                      GPO      3541
                     5130000007 C                 SA3    LEA                                                     FCC1556X   13
                               54441              SA4    A4+B1       U2 = UI + 1                                 FCC1556X   14
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    95
        MII - MARK INVARIANT INSTRUCTIONS                             ST                  MII 
  
          2441  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
          2442  0400002242 +                      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
          2443  20404                    ST1      LX4    59-UD.^RDP                                              GPO      3555
                     0334002250 +                 MI     X4,MII2     IF ^RD[UI]                                  GPO      3556
                               20203              LX2    I.INVP-I.IAP                                            GPO      3557
          2444  0322002451 +                      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
          2445  13152                             BX1    X5-X2                                                   GPO      3562
                     63210                        SB2    X1                                                      GPO      3563
                          0520002451 +            NZ     B2,ST2      IF LDI[LI] " IN[R1]  */ NOT  I = I+INV      GPO      3564
          2446  64221                             SB2    A2+B1                                                   GPO      3565
                     75152                        SX1    A5-B2                                                   GPO      3566
                          0311002451 +            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
          2447  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
          2450  0400002250 +                      EQ     MII2                                                    GPO      3575
                                                                                                                 GPO      3576
                                        *         MARK VAR AS *^RD* IN *UDT*                                     GPO      3577
                                                                                                                 GPO      3578
          2451  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
          2452  0400002250 +                      EQ     MII2                                                    GPO      3583
                                                                                                                 GPO      3584
                                        *         AP / IO LIST STORE, MOVABLE IF ^EQUIVALENCED                   GPO      3585
                                                                                                                 GPO      3586
          2453  0327002250 +             ST3      PL     X7,MII2     IF ^( AN & INV[R1] )                        GPO      3587
                          20344                   LX3    IH.RFP-IH.IHP                                           GPO      3588
          2454  7273477777                        SX7    X3-I.IO                                                 GPO      3589
                          0327002242 +            PL     X7,MII1     IF I[R2] = I.IO  */ AN I/O LIST             GPO      3590
          2455  5110000000 X                      SA1    =XO.API                                                 GPO      3591
                          6223577776              SB2    X3-I.AP-1                                               GPO      3592
          2456  53212                             SA2    X1+B2       AI = API(H[R2])                             FCC0672     7
                     43702                        MX7    2                                                       FCC0672     8
                          11372                   BX3    X7*X2                                                   FCC0672     9
          2457  0313002250 +                      NZ     X3,MII2     IF EQV[AI] ! BASE[AI]                       FCC0672    10
                          0400002242 +            EQ     MII1                                                    GPO      3596
                                                                                                                 FCC0408    90
          2460                           STA      BFMW   UD,(DEFR,^RD,STC)                                       FCC0408    91
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    96
        MII - MARK INVARIANT INSTRUCTIONS                             EOQ                 MII 
  
                                        *         EOQ - END OF MARKING PHASE, SET CHAIN POINTERS IN *BSW*        GPO      3598
                                                                                                                 GPO      3599
          2461                                    PROCESS EOQ                                                    GPO      3600
          2461  5110000031 +                      SA1    BN                                                      GPO      3601
                          76540                   SX5    "SC"                                                    GPO      3602
                               75777              SX7    A7-"TB"     IIC = LII - TB                              GPO      3603
          2462  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
          2463  5170000033 +                      SA7    BSW                                                     GPO      3609
                          0301002224 +            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
          2464  5110000110 C                      SA1    UBD                                                     GPO      3615
                          5120000000 C            SA2    VL                                                      GPO      3616
          2465  5130000003 C                      SA3    DVA                                                     GPO      3617
                          66200                   SB2    B0          I = 0                                       GPO      3618
                               63320              SB3    X2                        (B3) = VL                     GPO      3619
          2466  66433                             SB4    B3+B3                                                   GPO      3620
                     37012                        IX0    X1-X2       BDA = UBD - VL                              GPO      3621
                          63630                   SB6    X3                        (B6) = [DVA]                  GPO      3622
                                                                                                                 GPO      3623
          2467  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
          2470  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
          2471  54740                             SA7    A4                                                      GPO      3632
                     0723002467 +                 LT     B2,B3,MII4  IF I < VL                                   GPO      3633
                                                                                                                 GPO      3634
          2472  0470002477 +                      ZR     "TB",MII5   IF TB = 0                                   GPO      3635
                          5150000015 +            SA5    O.BIT                                                   GPO      3636
          2473  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
          2474  0333002477 +                      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
          2475  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
          2476  66700                             S"TB"  B0          TB = 0                                      GPO      3649
                     0400002467 +                 EQ     MII4                                                    GPO      3650
                                                                                                                 GPO      3651
          2477  5120000111 C             MII5     SA2    IJP                                                     GPO      3652
                          0302002224 +            ZR     X2,MII      IF IJP = 0    */ NO INVARIANT JUMPS         GPO      3653
                                                                                                                 GPO      3654
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    97
        MII - MARK INVARIANT INSTRUCTIONS                             EOQ                 MII 
  
          2500  0400002224 +                      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
  
  
          2501                           MII.JT   BSS    0                                                       GPO      3677
      L      0                                    LOC    0                                                       GPO      3678
      L      0                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
                                                                                                                 GPO      3680
          2605                                    LOC    *O                                                      GPO      3681
                                                  LIST   -G                                                      GPO      3682
                                                                                                                 GPO      3683
                                                  QUAL   CODE                                                    GPO      3684
                                                                                                                 GPO      3685
                                2224 +   MII      EQU    /MII/MII                                                GPO      3686
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    98
        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
          2605  5140000113 C             FII0     SA4    IIL                                                     GPO      3695
                          5150000033 +            SA5    BSW                                                     GPO      3696
          2606  76650                             SX6    B5                                                      GPO      3697
                     20022                        LX0    BS.STCP                                                 GPO      3698
                          76340                   SX3    B4                                                      GPO      3699
                               11505              BX5    X0*X5                                                   GPO      3700
          2607  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
          2610  27701                             PX7    X1          NIS[BSW] = 0                                GPO      3704
                     54750                        SA7    A5                                                      GPO      3705
                                                                                                                 GPO      3706
                                                  TRACE  FII,IIT                                                 GPO      3707
                                                                                                                 GPO      3708
          2611  0200402611 +             FII      ROUTINE                                                        GPO      3709
          2612  26624                             UX6    B2,X4                                                   GPO      3710
                     76120                        ALLOC  IIT,B2      ALLOC( IIT , NIS[BSW] )                     GPO      3711
          2614  5150000027 +                      SA5    O.SEQ                                                   GPO      3712
                          5140000033 +            SA4    BSW                                                     GPO      3713
          2615  5130000000 C                      SA3    O.UDT                                                   GPO      3714
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GPO      3715
          2616  76660                             SX6    B6          IIL = OLD(L.IIT)                            GPO      3716
                     66560                        SB5    B6          IL = IIL      */ *IIT* LENGTH               GPO      3717
                          5160000113 C            SA6    IIL                                                     GPO      3718
          2617  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
          2620  66400                             SB4    B0          SC = 0        */ LAST ON CHAIN              GPO      3723
                     0400002624 +                 EQ     FII2                                                    GPO      3724
                                                                                                                 GPO      3725
                                        *         SAVE INC VALUE IN *IIT*, SET *ST* TO POINT TO *IIT*            GPO      3726
                                                                                                                 GPO      3727
          2621  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
          2622  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
          2623  65457                             SB4    A5-"TB"     SC = LI - TB  */ CHAIN POINTS TO THIS       GPO      3737
                                                                                                                 GPO      3738
          2624  56573                    FII2     SA5    "TB"+B3     LI = TB + I                                 GPO      3739
                     0430002605 +                 ZR     B3,FII0     IF I = 0                                    GPO      3740
                               20552              LX5    -I.STCP                                                 GPO      3741
          2625  5045777774                        SA4    A5-3        R1 = LI - 3                                 GPO      3742
                          63350                   SB3    X5          I = STC[LI]   */ NEXT ON CHAIN              GPO      3743
                               15640              BX6    "RN"X4      R = RI[R1]                                  GPO      3744
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE    99
        FII - FORM INCREMENT INFORMATION                              FII                 CODE
  
          2626  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
          2627  0333002624 +                      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
                          0333002624 +            MI     X3,FII2     IF ^RD[UI]                                  GPO      3753
          2630  67271                             SB2    "TB"-B1                                                 GPO      3754
                     53362                        SA3    B2+X6       DIP = TB-1 + R                              GPO      3755
                          5043777775              SA4    A3-2        R1 = DIP - 2                                GPO      3756
          2631  76110                             SX1    B1                                                      GPO      3757
                     20122                        LX1    D.INCP                                                  GPO      3758
                          12713                   BX7    X1+X3       INC[DIP] = 1                                GPO      3759
                               54730              SA7    A3                                                      GPO      3760
          2632  12612                             BX6    X1+X2       INC[DI] = 1                                 GPO      3761
                     26524                        UX5    B2,X4                                                   GPO      3762
                          54620                   SA6    A2                                                      GPO      3763
          2633  7172777725                        SX7    B2-OC.STT                                               GPO      3764
                          0317002636 +            NZ     X7,FII3     IF OC[R1] " OC.STT                          GPO      3765
                                                                                                                 GPO      3766
          2634  54341                             SA3    A4+B1       R2 = R1 + 1                                 GPO      3767
                     43152                        MX1    -IH.CAL                                                 GPO      3768
                          20352                   LX3    -IH.CAP                                                 GPO      3769
                               15431              BX4    -X1*X3                                                  GPO      3770
          2635  27604                             PX6    X4          ITW = PACK(0,CA[R2])                        GPO      3771
                     0400002621 +                 EQ     FII1                                                    GPO      3772
                                                                                                                 GPO      3773
                                        *         PROCESS IA, IS                                                 GPO      3774
                                                                                                                 GPO      3775
          2636  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
          2637  74730                             SX7    A3          LA = LP                                     GPO      3780
                                                  LX3    59-I.INVP                                               GPO      3781
                     0333002641 +                 MI     X3,FII4     IF INV[LP]                                  GPO      3782
                               20420              LX4    R1.RJP-R1.RKP                                           GPO      3783
          2640  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
          2641  5247777774               FII4     SA4    X7-3        R1 = LA - 3                                 GPO      3790
                          26624                   UX6    B2,X4                                                   GPO      3791
          2642  7112777727                        SX1    B2-OC.LD                                                GPO      3792
                          0311002645 +            NZ     X1,FII5     IF OC[R1] " OC.LD                           GPO      3793
                                                                                                                 GPO      3794
          2643  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
          2644  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
                          0400002621 +            EQ     FII1                                                    GPO      3801
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   100
        FII - FORM INCREMENT INFORMATION                              FII                 CODE
  
                                        *         OPERATION IS ZP , SHOULD BE A *S* OR *FMA*                     GPO      3803
                                                                                                                 GPO      3804
          2645  7172777722               FII5     SX7    B2-OC.S                                                 GPO      3805
                          43152                   MX1    -R1.INL                                                 GPO      3806
                               20436              LX4    -R1.INP     C = IN[R1]                                  GPO      3807
          2646  0307002651 +                      ZR     X7,FII6     IF OC[R1] = OC.S                            GPO      3808
                          7172777734              SX7    B2-OC.FMA                                               GPO      3809
          2647  0317402611 +                      NZ     X7,FII10    IF OC[R1] " OC.FMA                          GPO      3810
                          6224777776              SB2    X4-1                                                    GPO      3811
          2650  43201                             MX2    1                                                       GPO      3812
                     23422                        AX4    B2,X2       C = SHIFT( 1S59 , -(C-1) )                  GPO      3813
                                                                                                                 GPO      3814
          2651  0305002652 +             FII6     ZR     X5,FII7     IF BIAS = 0                                 GPO      3815
                          14444                   BX4    -X4         C = -C                                      GPO      3816
          2652  15441                    FII7     BX4    -X1*X4                                                  GPO      3817
                     27604                        PX6    X4          ITW = PACK( 0 , C )                         GPO      3818
                          0400002621 +            EQ     FII1                                                    GPO      3819
                                                                                                                 GPO      3820
                              402611 +   FII10    EQU    FII+1S17    COMPILER ERROR                              GPO      3821
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   101
        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
          2653                           MIP0     BSS    0                                                       GPO      3835
                                                  TRACE  MIP,RLIST,SEQ                                           GPO      3836
                                                                                                                 GPO      3837
          2653  0200402653 +             MIP      ROUTINE                                                        GPO      3838
          2654  5110000030 +                      SA1    L.SEQ                                                   GPO      3839
                          21102                   AX1    2                                                       GPO      3840
          2655  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , L.SEQ/4 )                      GPO      3841
          2656  5130000000 C                      SA3    O.UDT                                                   GPO      3842
                          5140000027 +            SA4    O.SEQ                                                   GPO      3843
          2657  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
          2660  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
          2661  6130000003                        SB3    3                                                       GPO      3850
                          43163                   MX1    -I.COSTL                                                GPO      3851
                               63743              S"TB"  X4+B3       TB = O.SEQ + 3                              GPO      3852
          2662  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
          2663  5160000107 C                      SA6    AN          MI IFF UNCONDITIONALLY EXECUTED (SAVED IN * FCC2271X    7
                          0400002675 +            EQ     MIP2                                                    GPO      3855
  
  
  
                                        *         ADD INSTRUCTION TO *IP* LIST, (A6,X6) = LI, [LI]               FCC0717     9
                                                                                                                 GPO      3858
                                         MIP1     LX4    59-I.INVP                                               GPO      3859
          2664  0334002675 +                      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
          2665  0450002675 +                      ZR     B5,MIP2     IF LEI = 0    */ NO INCREMENTS YET          FCC0717    10
                          10766                   BX7    X6                                                      FCC0717    11
                               20773              LX7    59-I.LDIP                                               FCC0717    12
          2666  0337002675 +                      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
          2667  63230                             SB2    X3          J = SC        */ FIRST INC ST IN BLOCK      FCC1532X    7
                                                  LX6    -I.LDIP     L = LDI[LI]                                 FCC0717    21
                                                                                                                 FCC0717    22
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   102
        MIP - MARK INTEGER POLYNOMIALS                                MIP                 MIP 
  
          2670  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
          2671  73250                             SX2    X5                                                      FCC0717    27
                     0302002674 +                 ZR     X2,MIP1B    IF IN[R1S] = L  */ SAME VARIABLE            FCC0717    28
                               20452              LX4    -I.STCP                                                 FCC0717    29
          2672  6224000000                        SB2    X4+         J = STC[LIS]  */ NEXT ON CHAIN              FCC0717    30
                          0420002675 +            ZR     B2,MIP2     IF J = 0      */ END OF CHAIN               FCC0717    31
          2673  0652002670 +                      LE     B2,B5,MIP1A IF J @ LEI                                  FCC0717    32
                          0400002675 +            EQ     MIP2                                                    FCC0717    33
                                                                                                                 FCC0717    34
          2674  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
          2675  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
          2676  0222003745 +                      JP     MIP.JT+B2   JUMP( MIP.JT( OC[R1] ) )                    GPO      3869
                                                                                                                 GPO      3870
          2677                           MIPA     BFMW   I,(IP,COST,LDI)                                         GPO      3871
          2700                           MIPB     BFMW   I,(IIC,LDI)                                             GPO      3872
          2701                           MIPC     BFMW   I,(IP,C1)                                               GPO      3873
          2702                           MIPD     BFMW   I,(IP,LDI)                                              GPO      3874
  
  
  
                                        *         ST - SET *LEI* IF AN INCREMENT STORE                           FCC0717    41
                                                                                                                 FCC0717    42
          2703                                    PROCESS ST                                                     FCC0717    43
          2703  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
          2704  0323002706 +                      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
          2705  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
          2706  55341                    ST1      SA3    A4-B1       DI = LI - 1                                 FCC1504X   31
                     20351                        LX3    59-D.INCP                                               FCC0717    45
                          0323002675 +            PL     X3,MIP2     IF ^INC[DI]                                 FCC0717    46
                                                                                                                 FCC0717    47
          2707  0550002711 +                      NZ     B5,ST2      IF LEI " 0    */ ^ FIRST INC ST IN BLOCK    FCC1532X    8
                          75647                   SX6    A4-"TB"                                                 FCC1532X    9
          2710  5160000122 C                      SA6    SC          SC = LI - TB  */ TXT INDEX OF FIRST INC ST  FCC1532X   10
                                                                                                                 FCC1532X   11
          2711  65547                    ST2      SB5    A4-"TB"     LEI = LI - TB */ LAST INC ST                FCC1532X   12
                     0400002675 +                 EQ     MIP2                                                    FCC0717    49
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   103
        MIP - MARK INTEGER POLYNOMIALS                                BBM                 MIP 
  
                                        *         BASIC BLOCK MARKER, CLEAR *LEI*                                FCC0717    51
                                                                                                                 FCC0717    52
          2712                                    PROCESS (RJ3,RJ6,LAB)                                          FCC0717    53
          2712  66500                             SB5    B0          LEI = 0                                     FCC0717    54
                     0400002675 +                 EQ     MIP2                                                    FCC0717    55
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   104
        MIP - MARK INTEGER POLYNOMIALS                                EOQ                 MIP 
  
                                        **        EOQ - MERGE *IP* LIST INTO *ICC* CHAIN                         GPO      3876
                                                                                                                 GPO      3877
          2713                                    PROCESS EOQ                                                    GPO      3878
          2713  5120000000 X                      SA2    O.RND                                                   FCC0717    57
                          6252000000              SB5    X2+                                                     FCC0717    58
          2714  65475                             SB4    A7-B5       NP = PI - O.RND                             GPO      3879
                     54570                        SA5    A7          PI = PI                                     GPO      3880
                          0614002653 +            LE     B4,B1,MIP0  IF NP @ 1                                   GPO      3881
                                                                                                                 GPO      3882
          2715  5120000033 +                      SA2    BSW                                                     GPO      3883
                          5110002700 +            SA1    MIPB                                                    GPO      3884
                                                  LX2    -BS.IICP                                                GPO      3885
          2716  6160000022                        SB6    I.IICP                                                  GPO      3886
                          63220                   SB2    X2          IC = IIC[BSW]                               GPO      3887
                               63350              SB3    X5          PL = [PI]                                   GPO      3888
          2717  0723002721 +                      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
          2720  23764                             AX7    B6,X4                                                   GPO      3892
                     63270                        SB2    X7          IC = IIC[LI]                                GPO      3893
                          0400002723 +            EQ     MIP4                                                    GPO      3894
                                                                                                                 GPO      3895
          2721  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
          2722  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
          2723  0732002727 +             MIP4     GT     B2,B3,MIP5  IF IC > PL                                  GPO      3905
                          76330                   SX3    B3                                                      GPO      3906
                               15741              BX7    -X1*X4      HBP[LI] = 0                                 GPO      3907
          2724  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
          2725  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
          2726  0315002723 +                      NZ     X5,MIP4     IF PL " 0                                   GPO      3915
                          0420002733 +            ZR     B2,MIP6     IF IC = 0                                   GPO      3916
                                                                                                                 GPO      3917
          2727  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
          2730  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
          2731  63270                             SB2    X7          IC = IIC[LI]                                GPO      3926
                     0732002727 +                 GT     B2,B3,MIP5  IF IC > PL                                  GPO      3927
          2732  0530002723 +                      NZ     B3,MIP4     IF PL " 0                                   GPO      3928
                                                                                                                 GPO      3929
          2733  15641                    MIP6     BX6    -X1*X4      IIC[LI] = HBP[LI] = 0                       GPO      3930
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   105
        MIP - MARK INTEGER POLYNOMIALS                                EOQ                 MIP 
  
                     54640                        SA6    A4                                                      GPO      3931
                          0400002653 +            EQ     MIP0                                                    GPO      3932
  
  
  
                                        *         TYPE II - SET *IP* BIT                                         GPO      3934
                                                                                                                 GPO      3935
          2734                                    PROCESS (FMA,S)                                                GPO      3936
          2734  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
          2735  0400002675 +                      EQ     MIP2                                                    GPO      3941
  
  
  
                                        *         LD - IF *RD* , THEN SET *IP* BIT , AND *LDI* FIELD IF ^INV     GPO      3943
                                                                                                                 GPO      3944
          2736                                    PROCESS (LD,ILD)                                               GPO      3945
          2736  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
          2737  15630                             BX6    "RN"X3                                                  GPO      3950
                     0316002675 +                 NZ     X6,MIP2     IF RF[R2] " 0                               GPO      3951
                               20204              LX2    59-UD.^RDP                                              GPO      3952
          2740  0332002675 +                      MI     X2,MIP2     IF ^RD[UI]                                  GPO      3953
                                                                                                                 GPO      3954
                          5130002701 +            SA3    MIPC                                                    GPO      3955
          2741  12634                             BX6    X3+X4       IP[LI] = 1;  COST[LI] = 1                   GPO      3956
                                                  LX4    59-I.INVP                                               GPO      3957
                     0334002743 +                 MI     X4,LD1      IF INV[LI]                                  GPO      3958
                                                                                                                 GPO      3959
                               75747              SX7    A4-"TB"                                                 GPO      3960
          2742  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
          2743  54640                    LD1      SA6    A4                                                      GPO      3965
                     0400002675 +                 EQ     MIP2                                                    GPO      3966
  
  
          2744                                    PROCESS XMTC                                                   GPO      3968
          2744  20534                             LX5    -R1.RJP                                                 GPO      3969
                     5120002677 +                 SA2    MIPA                                                    GPO      3970
                               15650              BX6    "RN"X5                                                  GPO      3971
          2745  53367                             SA3    "TB"+X6     LJ = TB + RJ[R1]                            GPO      3972
                     76710                        SX7    B1                                                      GPO      3973
                          11623                   BX6    X2*X3                                                   GPO      3974
                               20304              LX3    59-I.IPP                                                GPO      3975
          2746  0323002675 +                      PL     X3,MIP2     IF ^IP[LJ]                                  GPO      3976
                                                                                                                 GPO      3977
                          12664                   BX6    X6+X4       (IP,COST,LDI)[LI] = (IP,COST,LDI)[LJ]       GPO      3978
                               20755              LX7    I.COSTP                                                 GPO      3979
          2747  36676                             IX6    X7+X6       COST[LI] = COST[LI] + 1                     GPO      3980
                     54640                        SA6    A4                                                      GPO      3981
                          0400002664 +            EQ     MIP1                                                    GPO      3982
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   106
        MIP - MARK INTEGER POLYNOMIALS                                SXT                 MIP 
  
                                        *         SXT - CONSTANT SHIFT PREDECESSOR                               GPO      3984
                                                                                                                 GPO      3985
          2750                                    PROCESS SXT                                                    GPO      3986
          2750  20534                             LX5    -R1.RJP                                                 GPO      3987
                     5120002677 +                 SA2    MIPA                                                    GPO      3988
                               15750              BX7    "RN"X5                                                  GPO      3989
          2751  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
          2752  0323002675 +                      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
          2753  6122777757                        SB2    B2-OC.KLS                                               GPO      3998
                          0520002675 +            NZ     B2,MIP2     IF OC[R1] " OC.KLS                          GPO      3999
          2754  20352                             LX3    -IH.CAP                                                 GPO      4000
                     6223777756                   SB2    X3-17                                                   GPO      4001
                               75747              SX7    A4-"TB"                                                 GPO      4002
          2755  0620002675 +                      PL     B2,MIP2     IF CA[R2] \ 17  */ SHIFT COUNT TOO BIG      GPO      4003
                                                                                                                 GPO      4004
                                                  LX4    59-I.INVP                                               GPO      4005
                          0334002757 +            MI     X4,SXT1     IF INV[LI]                                  GPO      4006
          2756  54771                             SA7    A7+B1       PI = PI + 1;  [PI] = LI - TB                GPO      4007
                                                                                                                 GPO      4010
          2757  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
          2760  36676                             IX6    X7+X6       COST[LI] = COST[LI] + 1                     GPO      4015
                     54640                        SA6    A4                                                      GPO      4016
                          0400002664 +            EQ     MIP1                                                    FCC0717    59
  
  
  
          2761                                    PROCESS IM                                                     GPO      4019
          2761  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
          2762  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
          2763  0326002675 +                      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
          2764  0327002675 +                      PL     X7,MIP2     IF NEITHER INVARIANT                        FCC2271X    8
                          5140000107 C            SA4    AN                                                      FCC2271X    9
          2765  0334003001 +                      MI     X4,IM5      IF UNCONDTIONALLY EXECUTED                  FCC2271X   10
                          55221                   SA2    A2-B1       DJ = LJ - 1                                 FCC2271X   11
          2766  0100000000 X                      CALL   CMO         CHECK SAFETY OF J OPERAND                   FCC2271X   12
          2767  55231                             SA2    A3-B1       DK = LK - 1                                 FCC2271X   13
                     0306002772 +                 ZR     X6,IM1      IF J IS SAFE                                FCC2271X   14
          2770  0100000000 X                      CALL   CMO         CHECK SAFETY OF K OPERAND                   FCC2271X   15
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   107
        MIP - MARK INTEGER POLYNOMIALS                                IM                  MIP 
  
          2771  0306002774 +                      ZR     X6,IM2      IF K IS SAFE                                FCC2271X   16
                          0400002675 +            EQ     MIP2        NOT SAFE (NEITHER OPERAND)                  FCC2271X   17
                                                                                                                 FCC2271X   18
          2772  0100000000 X             IM1      CALL   CMO         CHECK SAFETY OF K (J IS SAFE)               FCC2271X   19
          2773  0306002776 +                      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
          2774  5045000002               IM2      SA4    A5+2        DI = RI + 2                                 FCC2271X   25
                          76610                   SX6    B1                                                      FCC2271X   26
                               20633              LX6    D.USIP                                                  FCC2271X   27
          2775  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
          2776  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
          2777  5045000003                        SA4    A5+3        RETORE LI                                   FCC2271X   37
                          12723                   BX7    X2+X3       RESTORE LJK                                 FCC2271X   38
                               76530              SX5    B3          ICOST = 3                                   FCC2271X   39
          3000  0400003011 +                      EQ     IA1                                                     FCC2271X   40
                                                                                                                 FCC2271X   41
          3001  5045000003               IM5      SA4    A5+3        RESTORE LI                                  FCC2271X   42
                          0400003011 +            EQ     IA1                                                     FCC2271X   43
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   108
        MIP - MARK INTEGER POLYNOMIALS                                ADDS                MIP 
  
                                        **        ADDS - ONLY ALLOW *IP*"S IN 1 VARIABLE                         GPO      4037
                                                                                                                 GPO      4038
          3002                                    PROCESS (IA,IS)                                                GPO      4039
          3002  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
          3003  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
          3004  11623                             BX6    X2*X3                                                   GPO      4048
                     20604                        LX6    59-I.IPP                                                GPO      4049
                          0326003017 +            PL     X6,IA3      IF ^( IP[LJ] & IP[LK] )                     GPO      4050
                                                                                                                 GPO      4051
          3005  12723                             BX7    X2+X3       LJK = [LJ] ! [LK]                           GPO      4052
                     0335003015 +                 MI     X5,IA2      IF INC[DI]                                  GPO      4053
                               76510              SX5    B1          ICOST = 1                                   GPO      4054
                                                  LX7    59-I.INVP                                               GPO      4055
          3006  0337003011 +                      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
          3007  0520002675 +                      NZ     B2,MIP2     IF LDI[LJ] " LDI[LK]                        GPO      4063
                                                                                                                 GPO      4064
                          0316003011 +            NZ     X6,IA1      IF [LJ] " [LK]                              GPO      4065
          3010  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
          3011  15621                    IA1      BX6    -X1*X2                                                  GPO      4070
                     5120002702 +                 SA2    MIPD                                                    GPO      4071
                               20555              LX5    I.COSTP                                                 GPO      4072
          3012  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
          3013  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
          3014  0400002664 +                      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
          3015  5120002701 +             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
          3016  12624                             BX6    X2+X4       IP[LI] = 1;  COST[LI] = 1                   GPO      4091
                     54640                        SA6    A4                                                      GPO      4092
                          0400002664 +            EQ     MIP1                                                    GPO      4093
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   109
        MIP - MARK INTEGER POLYNOMIALS                                IA                  MIP 
  
                                        *         CHECK FOR *IA* + *INV*, AND MARK *IA* IF SO                    GPO      4095
                                                                                                                 GPO      4096
          3017  12723                    IA3      BX7    X2+X3                                                   GPO      4097
                                                  LX7    59-I.INVP                                               GPO      4098
                     0327002675 +                 PL     X7,MIP2     IF ^( INV[LJ] ! INV[LK] )                   GPO      4099
                               20703              LX7    I.INVP-I.IAP                                            GPO      4100
          3020  0327002675 +                      PL     X7,MIP2     IF ^( IA[LJ] ! IA[LK] )                     GPO      4101
                                                                                                                 GPO      4102
                          76710                   SX7    B1                                                      GPO      4103
                               20770              LX7    I.IAP                                                   GPO      4104
          3021  12674                             BX6    X7+X4       IA[LI] = 1                                  GPO      4105
                     54640                        SA6    A4                                                      GPO      4106
                          0400002675 +            EQ     MIP2                                                    GPO      4107
  
  
                                        *         STT - PROPAGATE *IA* BIT UP FOR USE BY *JPX* PROCESSOR         GPO      4109
                                                                                                                 GPO      4110
          3022                                    PROCESS STT                                                    GPO      4111
          3022  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
          3023  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
          3024  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
          3025  20746                             LX7    D.STRSP                                                 FCC0717    60
                     15737                        BX7    -X7*X3                                                  GPO      4129
                          0317002675 +            NZ     X7,MIP2     IF STRS[DI] " 0  */ *INC* OR INIT CODE      GPO      4130
          3026  0420003030 +                      ZR     B2,STT1     IF IH[R2] = 0                               GPO      4131
                                                                                                                 GPO      4132
                          65227                   SB2    A2-"TB"                                                 GPO      4133
          3027  0520002675 +                      NZ     B2,MIP2     IF RF[R2] " 0                               GPO      4134
                          0400002734 +            EQ     .S                                                      GPO      4135
                                                                                                                 GPO      4136
          3030  20204                    STT1     LX2    59-I.IPP                                                GPO      4137
                     0322002675 +                 PL     X2,MIP2     IF ^IP[LIP]                                 GPO      4138
                               20270              LX2    1+I.IPP                                                 GPO      4139
          3031  5130002677 +                      SA3    MIPA                                                    GPO      4140
                          11723                   BX7    X2*X3                                                   GPO      4141
                               12667              BX6    X6+X7       (IP,COST,LDI)[LI] = (IP,COST,LDI)[LIP]      GPO      4142
          3032  54660                             SA6    A6                                                      GPO      4143
                     0400002664 +                 EQ     MIP1                                                    GPO      4144
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   110
        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
          3033                                    PROCESS JPX                                                    GPO      4152
          3033  5120000027 C                      SA2    N.LJ                                                    GPO      4153
                          5130000025 C            SA3    LIH                                                     GPO      4154
          3034  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
          3035  0521002675 +                      NE     B2,B1,MIP2  IF N.LJ " 1                                 GPO      4159
                          0316002675 +            NZ     X6,MIP2     IF IH[R2] " LIH                             GPO      4160
          3036  20452                             LX4    -IH.CAP                                                 GPO      4161
                     6244777775                   SB4    X4-2        JPT = CA[R2] - 2                            GPO      4162
                               67273              SB2    "TB"-B3                                                 GPO      4163
          3037  0740002675 +                      MI     B4,MIP2     IF JPT @ 0    */ ZR, NZ JUMPS               GPO      4164
                          0714002675 +            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
          3040  53452                             SA4    B2+X5       RIP = TB-3 + RI[R1]                         GPO      4169
                     26624                        UX6    B2,X4                                                   GPO      4170
                          7172777725              SX7    B2-OC.STT                                               GPO      4171
          3041  0317003045 +                      NZ     X7,JPX1     IF OC[R1P] " OC.STT                         GPO      4172
                                                                                                                 GPO      4173
                          0541002675 +            NE     B4,B1,MIP2  IF JPT " 1    */ NOT *MI* JUMP              GPO      4174
          3042  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
          3043  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
          3044  15530                             BX5    "RN"X3      R = RF[R2P]                                 GPO      4183
                     0400003065 +                 EQ     JPX5                                                    GPO      4184
                                                                                                                 GPO      4185
          3045  7172777740               JPX1     SX7    B2-OC.IS                                                GPO      4186
                          0317002675 +            NZ     X7,MIP2     IF OC[R1P] " OC.IS                          GPO      4187
                                                                                                                 GPO      4188
                                        *         CHECK LIMIT OPERAND OF *IS*                                    GPO      4189
                                                                                                                 GPO      4190
          3046  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
          3047  0307002675 +                      ZR     X7,MIP2     IF ^( IA[LIP] ! IP[LIP] )                   GPO      4195
                                                                                                                 GPO      4196
                          20434                   LX4    -R1.RJP                                                 GPO      4197
          3050  0540003052 +                      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
          3051  15540                             BX5    "RN"X4      R = RK[R1P]                                 GPO      4202
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   111
        MIP - MARK INTEGER POLYNOMIALS                                JPX                 MIP 
  
                     0400003053 +                 EQ     JPX3                                                    GPO      4203
                                                                                                                 GPO      4204
          3052  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
          3053  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
          3054  20241                             LX2    59-D.ZPP                                                GPO      4212
                     0322002675 +                 PL     X2,MIP2     IF ^ZP[DIP]   */ NOT *LD* OR *S*            GPO      4213
                               20263              LX2    D.ZPP-D.LDP                                             GPO      4214
          3055  0322003062 +                      PL     X2,JPX4     IF ^LD[DIP]                                 GPO      4215
                          20244                   LX2    D.LDP-D.TYP-1                                           GPO      4216
          3056  0322002675 +                      PL     X2,MIP2     IF TYPE[DIP] " III                          GPO      4217
                                                                                                                 GPO      4218
                          0540002675 +            NZ     B4,MIP2     IF JPT " 0    */ CANT ADD 1 TO UPPER LIMIT  GPO      4219
          3057  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
          3060  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
          3061  0400003065 +                      EQ     JPX5                                                    GPO      4228
                                                                                                                 GPO      4229
          3062  26624                    JPX4     UX6    B2,X4                                                   GPO      4230
                     7172777722                   SX7    B2-OC.S                                                 GPO      4231
                               20436              LX4    -R1.INP                                                 GPO      4232
          3063  0317002675 +                      NZ     X7,MIP2     IF OC[R1P] " OC.S                           GPO      4233
                          67204                   SB2    -B4                                                     GPO      4234
                               73442              SX4    X4+B2                                                   GPO      4235
          3064  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
          3065  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
          3066  0324003073 +                      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
          3067  0323003071 +                      PL     X3,JPX6     IF TYPE[DIP] = I                            GPO      4251
                          55231                   SA2    A3-B1       R2P = DIP - 1                               GPO      4252
                               20230              LX2    -IH.RFP                                                 GPO      4253
          3070  15520                             BX5    "RN"X2      R = RF[R2P]                                 GPO      4254
                     0400003073 +                 EQ     JPX7                                                    GPO      4255
                                                                                                                 GPO      4256
          3071  55343                    JPX6     SA3    A4-B3       R1P = LIP - 3                               GPO      4257
                     20334                        LX3    -R1.RJP                                                 GPO      4258
                          15530                   BX5    "RN"X3      R = RJ[R1P]                                 GPO      4259
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   112
        MIP - MARK INTEGER POLYNOMIALS                                JPX                 MIP 
  
                               53457              SA4    "TB"+X5     LIP = TB + R                                GPO      4260
                                                  LX4    59-I.INVP                                               GPO      4261
          3072  0324003073 +                      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
          3073  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
          3074  7172777727                        SX7    B2-OC.LD                                                GPO      4272
                          0317002675 +            NZ     X7,MIP2     IF OC[R1P] " OC.LD                          GPO      4273
          3075  53246                             SA2    "UB"+X4     UI = UB + IN[R1]                            GPO      4274
                     20204                        LX2    59-UD.^RDP                                              GPO      4275
                          0332002675 +            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
          3076  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
          3077  15232                             BX2    -X2*X3                                                  GPO      4284
                     67271                        SB2    "TB"-B1                                                 GPO      4285
                          20444                   LX4    PS.UDIP                                                 GPO      4286
                               12742              BX7    X4+X2                                                   GPO      4287
          3100  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
          3101  76610                             SX6    B1                                                      GPO      4291
                     5160000030 C                 SA6    LTT         LTT = 1       */ LOOP TEST TYPE             GPO      4292
                               20622              LX6    D.INCP                                                  GPO      4293
          3102  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
          3103  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
          3104  0400002675 +                      EQ     MIP2                                                    GPO      4301
                                                                                                                 GPO      4302
                                                  QUAL   *                                                       GPO      4303
                                                                                                                 GPO      4304
                                2653 +   MIP      EQU    /MIP/MIP                                                GPO      4305
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   113
        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
          3105  0200403105 +             MIE      ROUTINE                                                        GPO      4323
          3106  5130000114 C                      SA3    MINC                                                    GPO      4324
                          6275000003              S"TB"  X5+3        TB = TBA + 3                                GPO      4325
                                                  LX4    -BS.IICP                                                GPO      4326
          3107  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
          3110  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
          3111  56576                    MIE1     SA5    "TB"+B6     LI = TB + I                                 GPO      4337
                     0460003160 +                 ZR     B6,MIE14    IF I = 0      */ END OF CHAIN               GPO      4338
                               55451              SA4    A5-B1       DI = LI - 1                                 GPO      4339
          3112  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
          3113  10644                             BX6    X4          D = [DI]                                    GPO      4344
                     63650                        SB6    X5          I = IIC[LI]   */ NEXT ON CHAIN              GPO      4345
                          0317003127 +            NZ     X7,MIE5     IF USES[LI] " 0  */ USED BY ANOTHER         GPO      4346
                                                                                                                 GPO      4347
                                                  LX3    59-I.INVP                                               GPO      4348
          3114  0333003117 +                      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
          3115  0326003111 +                      PL     X6,MIE1     IF ^RF[D]                                   GPO      4355
                          15731                   BX7    -X1*X3                                                  GPO      4356
                               63370              SB3    X7                                                      GPO      4357
          3116  0632003136 +                      GE     B3,B2,MIE7  IF COST[LI] \ MINC                          GPO      4358
                                                                                                                 GPO      4359
                          0400003111 +            EQ     MIE1                                                    GPO      4360
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   114
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        *         TERMINAL INV INST, SEE IF PROFITABLE TO MOVE                   GPO      4362
                                                                                                                 GPO      4363
          3117  20624                    MIE2     LX6    58-D.STRSP                                              GPO      4364
                     43702                        MX7    D.STRSL                                                 GPO      4365
                          11376                   BX3    X7*X6                                                   GPO      4366
          3120  0313003122 +                      NZ     X3,MIE3     IF STRS[D] " 0                              GPO      4367
                          20615                   LX6    1+D.STRSP-D.ZPP                                         GPO      4368
          3121  0336003111 +                      MI     X6,MIE1     IF ZP[D]      */ NO PRED                    GPO      4369
                          0400003136 +            EQ     MIE7                                                    GPO      4370
                                                                                                                 GPO      4371
                                         MIE3     LX6    1+D.STRSP-D.PSP                                         GPO      4372
          3122  0336003125 +                      MI     X6,MIE4     IF PS[DI]                                   GPO      4373
                          5035000004              SA3    A5+4                                                    GPO      4374
          3123  76710                             SX7    B1          IU = 1                                      GPO      4375
                                                  LX3    59-I.INVP                                               GPO      4376
                     0333003133 +                 MI     X3,MIE6     IF INV[LI+4]  */ INV FUNCTION ARG           GPO      4377
                               54251              SA2    A5+B1       R1RS = LI + 1                               GPO      4378
          3124  20247                             LX2    59-R1.SOP-4                                             GPO      4379
                     0322003111 +                 PL     X2,MIE1     IF SORT[R1RS] " 2  */ ^ TO AN X-REGISTER    GPO      4380
                                                                                                                 GPO      4381
                                        *         ( PS ! PRS ) & USES = 0                                        GPO      4382
                                                                                                                 GPO      4383
          3125  20615                    MIE4     LX6    D.PSP-D.ZPP                                             GPO      4384
                     0336003111 +                 MI     X6,MIE1     IF ZP[D]                                    GPO      4385
                               20666              LX6    D.ZPP-D.XMTP                                            GPO      4386
          3126  0336003111 +                      MI     X6,MIE1     IF XMT[D]                                   GPO      4387
                          0400003136 +            EQ     MIE7                                                    GPO      4388
  
  
                                        *         INSTRUCTION IS OPERAND OF ANOTHER THAT HAS BEEN MOVED OUT.     GPO      4390
                                                                                                                 GPO      4391
          3127  20625                    MIE5     LX6    59-D.PRSP                                               GPO      4392
                     0326003136 +                 PL     X6,MIE7     IF ^PRS[D]                                  GPO      4393
                                                                                                                 GPO      4394
                               54251              SA2    A5+B1       R1RS = LI + 1                               GPO      4395
          3130  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
          3131  0332003133 +                      MI     X2,MIE6     IF SOLK[R1RS] " 0  */ TEMP LOCK             GPO      4400
                          0323003136 +            PL     X3,MIE7     IF ^INV[LI+4]                               GPO      4401
          3132  76710                             SX7    B1          IU = 1                                      GPO      4402
                                                                                                                 GPO      4403
                                        *         ADD *RS* TO CHAIN OF MOVED INST                                GPO      4404
                                                                                                                 GPO      4405
          3133  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
          3134  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
          3135  20722                             LX7    I.USESP-I.IICP                                          GPO      4414
                     36575                        IX5    X7+X5       USES[LI] = USES[LI] + IU                    GPO      4415
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   115
        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
          3136  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
          3137  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
          3140  13754                             BX7    X5-X4                                                   GPO      4428
                                                  LX7    -D.USESP                                                GPO      4429
                     15271                        BX2    -X1*X7                                                  GPO      4430
                          0302003143 +            ZR     X2,MIE8     IF USES[LI] = USES[DI]                      GPO      4431
                                                                                                                 GPO      4432
          3141  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
          3142  54660                             SA6    A6                                                      GPO      4437
  
                                        *         BUMP USES COUNT OF OPERANDS OF INSTRUCTION                     GPO      4439
                                                                                                                 GPO      4440
                                         MIE8     LX4    58-D.TYP                                                GPO      4441
          3143  36744                             IX7    X4+X4                                                   GPO      4442
                     76610                        SX6    B1                                                      GPO      4443
                          0337003111 +            MI     X7,MIE1     IF TYPE[DI] = II ! IV                       GPO      4444
          3144  20644                             LX6    I.USESP                                                 GPO      4445
                     0324003152 +                 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
          3145  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
          3146  0307003147 +                      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
          3147  0324003111 +             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
          3150  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
          3151  0400003111 +                      EQ     MIE1                                                    GPO      4465
                                                                                                                 GPO      4466
                                        *         TYPE I INSTRUCTION                                             GPO      4467
                                                                                                                 GPO      4468
          3152  43772                    MIE10    MX7    -D.TYIOL                                                GPO      4469
                     20424                        LX4    2+D.TYP-D.TYIOP                                         GPO      4470
                          15247                   BX2    -X7*X4                                                  GPO      4471
          3153  5232000000 X                      SA3    =XTYIOM+X2                                              GPO      4472
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GPO      4473
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   116
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3154  26733                             UX7    B3,X3                                                   GPO      4474
                     11275                        BX2    X7*X5                                                   GPO      4475
                          23532                   AX5    B3,X2       RNUMS = TYIOM[DI] & [R1]                    GPO      4476
                                                                                                                 GPO      4477
          3155  15450                    MIE11    BX4    "RN"X5      R = RI[RNUMS]                               GPO      4478
                     21520                        AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                GPO      4479
                          0304003157 +            ZR     X4,MIE12    IF R = 0                                    GPO      4480
          3156  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
          3157  0315003155 +             MIE12    NZ     X5,MIE11    IF RNUMS " 0                                GPO      4484
                                                                                                                 GPO      4485
                          0400003111 +            EQ     MIE1                                                    GPO      4486
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   117
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        *         MOVE THE FINAL CHAIN OF INSTRUCTIONS TO THE HOLDING BLOCK      GPO      4488
                                                                                                                 GPO      4489
          3160  0450003105 +             MIE14    ZR     B5,MIE      IF NMI = 0    */ NOTHING MOVED              GPO      4490
                          66444                   SB4    B4+B4                                                   GPO      4491
                               76254              SX2    B5+B4                                                   GPO      4492
          3161  20202                             LX2    2                                                       GPO      4493
                     74700                        SX7    A0                                                      GPO      4494
                          5170000115 C            SA7    IC          IC = LII                                    GPO      4495
          3162  74500                             SX5    A0                                                      GPO      4497
                     73121                        ALLOC  TXT,X2+B1   ALLOC( TXT , 4*(NMI+2*NTI) + 1 )            GPO      4498
          3164  5140000027 +                      SA4    O.SEQ       HBI = OLD(L.TXT)                            FCC1845X    5
                          6274000003              S"TB"  X4+3                                                    FCC1845X    6
          3165  5140000000 X                      SA4    L.TET                                                   GPO      4500
                          63350                   SB3    X5          I = LII                                     GPO      4501
          3166  5110000000 +                      SA1    DMASK                                                   GPO      4502
                          63440                   SB4    X4          TO = L.TET    */ TEMP ORDINAL               GPO      4503
                               63520              SB5    X2          HB = O.TXT                                  GPO      4504
          3167  43055                             MX0    -R1.RIL+1                                               GPO      4505
                     56000                        SA0    B0          TSC = 0                                     GPO      4506
                          73626                   SX6    X2+B6                                                   GPO      4507
                               20001              LX0    1                                                       GPO      4508
          3170  5160000117 C                      SA6    TBB         TBB = O.TXT + HBI                           GPO      4509
                          0400003200 +            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
          3171  5140000010 X             MIE14A   SA4    F.RDT+OC.XMT                                            GPO      4515
                          6120000010              SB2    OC.XMT                                                  GPO      4516
          3172  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
          3173  15720                             BX7    "RN"X2                                                  GPO      4521
                     73630                        SX6    X3          R = RF[R2]                                  GPO      4522
                          0316003176 +            NZ     X6,MIE14B   IF R " 0                                    GPO      4523
          3174  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
          3175  0323003176 +                      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
          3176  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
          3177  20552                    MIE15    LX5    -I.IICP                                                 GPO      4540
                     63350                        SB3    X5          I = IIC[LI]   */ *BLK* INDEX OF INSTRUCTION GPO      4541
                          0430003264 +            ZR     B3,MIE20    IF I = 0                                    GPO      4542
                                                                                                                 GPO      4543
                                        *         MOVE INSTRUCTION TO HOLDING BLOCK                              GPO      4544
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   118
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3200  0100003244 +             MIE16    RJ     MIH         MOVE INSTRUCTIONS TO *HB*                   FCC1254    52
          3201  20451                             LX4    59-D.INCP                                               GPO      4562
                     0334003171 +                 MI     X4,MIE14A   IF INC[D]                                   GPO      4563
                               20702              LX7    59-I.TIP                                                GPO      4564
          3202  0327003177 +                      PL     X7,MIE15    IF ^TI[LI]    */ NOT TERMINAL               GPO      4565
                          20464                   LX4    D.INCP-D.ZPP                                            GPO      4566
          3203  0334003177 +                      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
          3204  7162777772                        SX6    B2-OC.DEF                                               FCC1254    53
                          0306003226 +            ZR     X6,MIE19    IF OC[R1] = OC.DEF                          FCC1254    54
          3205  20460                             LX4    D.ZPP-D.PRSP                                            GPO      4571
                     0324003224 +                 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
          3206  20345                             LX3    -R1.SOP-SO.LKP-1                                        FCC1530X    5
                     0333003211 +                 MI     X3,MIE16A   IF SOLK[R1RS] = 1   */ A TEMP LOCK          FCC1530X    6
                                                                                                                 FCC1530X    7
          3207  5035000004                        SA3    A5+4        LIRS = LI + 4                               FCC1530X    8
                                                  LX3    59-I.INVP                                               FCC1530X    9
                          0323003224 +            PL     X3,MIE18    IF ^INV[LIRS] */ RS STAYS IN THE LOOP       FCC1530X   10
                                                                                                                 FCC1530X   11
          3210  43200                             MX2    0           LINV = 0                                    FCC1530X   12
                     0400003217 +                 EQ     MIE17A                                                  FCC1530X   13
                                                                                                                 FCC1530X   14
          3211  20447                    MIE16A   LX4    1+D.PRSP+58-D.TYP                                       FCC1530X   15
                     20234                        LX2    -R1.RJP     I = RJ[R1]                                  GPO      4585
                          0324003213 +            PL     X4,MIE17    IF TYPE[DI] = I                             GPO      4586
          3212  54221                             SA2    A2+B1       R2 = R1 + 1                                 GPO      4587
                     20230                        LX2    -IH.RFP     I = RF[R2]                                  GPO      4588
          3213  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
          3214  73730                             SX7    X3          R = HBP[LIP]                                GPO      4593
                     20302                        LX3    59-I.TIP                                                GPO      4594
                          0333003177 +            MI     X3,MIE15    IF TI[LIP]    */ PRED IS TERMINAL           GPO      4595
          3215  20241                             LX2    59-D.ZPP                                                GPO      4596
                     0332003177 +                 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
          3216  43201                             MX2    1                                                       GPO      4602
                                                  LX2    1+I.INVP                                                GPO      4603
                     11223                        BX2    X2*X3       LINV = INV[LIP]                             GPO      4604
          3217  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
          3220  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
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   119
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3221  43600                             MX6    0                                                       GPO      4611
                     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
          3222  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
          3223  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
          3224  6120000010               MIE18    SB2    OC.XMT                                                  GPO      4623
                          0100003252 +            RJ     OST         OUTPUT XMT TST TO IT.                       FCC1254    55
          3225  0400003177 +                      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
          3226  76730                    MIE19    SX7    B3                                                      FCC1254    61
                     5170000116 C                 SA7    ISV         ISV = I                                     FCC1254    62
                                                                                                                 FCC1254    63
          3227  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
          3230  26622                             UX6    B2,X2                                                   FCC1254    67
                     63350                        SB3    X5          I = IIC[LI]                                 FCC1254    68
                          7172777772              SX7    B2-OC.DEF                                               FCC1254    69
          3231  0317003233 +                      NZ     X7,MIE19B   IF OC[R1] " OC.DEF                          FCC1254    70
                          0100003244 +            RJ     MIH         MOVE INST TO *HB*                           FCC1254    71
          3232  0400003227 +                      EQ     MIE19A                                                  FCC1254    72
                                                                                                                 FCC1254    73
                                        *         NOW OUTPUT THE XMT/SA AND TST INSTRUCTIONS                     FCC1254    74
                                                                                                                 FCC1254    75
          3233  5120000116 C             MIE19B   SA2    ISV                                                     FCC1254    76
                          63320                   SB3    X2          I = ISV                                     FCC1254    77
                                                                                                                 FCC1254    78
          3234  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
          3235  7162777772                        SX6    B2-OC.DEF                                               FCC1254    82
                          0316003243 +            NZ     X6,MIE19F   IF OC[R1] " OC.DEF                          FCC1254    83
                                                                                                                 FCC1254    84
          3236  10655                             BX6    X5                                                      FCC1254    85
                     20602                        LX6    59-I.TIP                                                FCC1254    86
                          0326003242 +            PL     X6,MIE19E   IF ^TI[LI]    */ NOT TERMINAL               FCC1254    87
                                                                                                                 FCC1254    88
          3237  6120000010                        SB2    OC.XMT      OC = OC.XMT                                 FCC1254    89
                          20247                   LX2    59-R1.SOP-4                                             FCC1254    90
          3240  0332003241 +                      MI     X2,MIE19D   IF REG[R1] \ 20B  */ DEF FROM AN X-REG      FCC1254    91
                          6120000060              SB2    OC.SA       OC = OC.SA                                  FCC1254    92
          3241  73750                    MIE19D   SX7    X5          RJ = HBP[LI]                                FCC1254    93
                     0100003252 +                 RJ     OST         OUTPUT XMT/SA AND TST                       FCC1254    94
          3242  20552                    MIE19E   LX5    -I.IICP                                                 FCC1254    95
                     63350                        SB3    X5          I = IIC[LI]                                 FCC1254    96
                          0400003234 +            EQ     MIE19C                                                  FCC1254    97
                                                                                                                 FCC1254    98
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   120
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3243  0530003200 +             MIE19F   NZ     B3,MIE16    IF I " 0      */ NOT END OF CHAIN           FCC1254    99
                          0400003264 +            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
          3244  0200403244 +             MIH      ROUTINE                                                        FCC1254   107
          3245  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
          3246  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
          3247  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
          3250  54750                             SA7    A5                                                      FCC1254   120
                     6166000004                   SB6    B6+4        HBI = HBI + 4                               FCC1254   121
                               43600              MX6    0                                                       FCC1254   122
          3251  54661                             SA6    A6+B1       HA = HA + 1;  [HA] = 0                      FCC1254   123
                     26222                        UX2    B2,X2                                                   FCC1254   124
                          0400003244 +            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
          3252  0200403252 +             OST      ROUTINE                                                        FCC1254   131
          3253  20740                             LX7    R1.RJP                                                  GPO      4624
                     76460                        SX4    B6                                                      GPO      4625
                          27324                   PX3    B2,X4                                                   GPO      4626
                               12673              BX6    X7+X3                                                   GPO      4627
          3254  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
          3255  6120000076                        SB2    OC.TST                                                  GPO      4632
                          54661                   SA6    A6+B1       HA + HA + 1;  [HA] = 0                      GPO      4633
          3256  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
          3257  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
          3260  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
          3261  20722                             LX7    T.BIP                                                   GPO      4646
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   121
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                     74300                        SX3    A0                                                      GPO      4647
                          12673                   BX6    X7+X3                                                   GPO      4648
                               43301              MX3    1                                                       GPO      4649
                                                  LX3    1+I.INVP                                                GPO      4650
          3262  11235                             BX2    X3*X5                                                   GPO      4651
                     36626                        IX6    X2+X6                                                   GPO      4652
                          54661                   SA6    A6+B1       HA = HA + 1;  [HA] = TETW(INV,0,I,TSC)      GPO      4653
                               55065              SA0    A6-B5       TSC = HA - HB                               GPO      4654
          3263  64601                             SB6    A0+B1       HBI = TSC + 1  */ = HBI + 8                 GPO      4655
                     0400003252 +                 EQ     OST                                                     FCC1254   132
  
  
  
                                        *         RENUMBER THE INSTRUCTIONS ADDED TO THE HOLDING BLOCK           GPO      4658
                                        *         PRESERVE A0, B4 FOR *TET* UPDATE                               GPO      4659
                                                                                                                 GPO      4660
          3264  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
          3265  5160000000 X                      SA6    L.TXT                                                   GPO      4665
                          43102                   MX1    D.TYL                                                   GPO      4666
          3266  5120000117 C                      SA2    TBB                                                     GPO      4667
                          5242777775              SA4    X2-2        DI = TBB - 2                                GPO      4668
          3267  0400003271 +                      EQ     MIE22                                                   GPO      4669
                                                                                                                 GPO      4670
          3270  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
          3271  54542                    MIE22    SA5    A4+B2       R1 = DI + 2                                 GPO      4675
                     54452                        SA4    A5+B2       DI = R1 + 2                                 GPO      4676
                          0305003307 +            ZR     X5,MIE26    IF [R1] = 0   */ END OF BLOCK               GPO      4677
                                                  LX4    58-D.TYP                                                GPO      4678
          3272  16641                             BX6    -X1+X4                                                  GPO      4679
                     26735                        UX7    B3,X5                                                   GPO      4680
                          0304003270 +            ZR     X4,MIE21    IF [DI] = 0   */ XMT/TST                    GPO      4681
          3273  0306003271 +                      ZR     X6,MIE22    IF TYPE[DI] = IV                            GPO      4682
                                                                                                                 GPO      4683
                          15750                   BX7    "RN"X5                                                  GPO      4684
                               53377              SA3    "TB"+X7                                                 GPO      4685
          3274  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
          3275  0314003303 +                      NZ     X4,MIE25    IF TYPE[DI] " I                             GPO      4690
                                                                                                                 GPO      4691
                          20634                   LX6    -R1.RJP                                                 GPO      4692
                               15760              BX7    "RN"X6                                                  GPO      4693
          3276  0307003300 +                      ZR     X7,MIE23    IF RJ[R1] = 0                               GPO      4694
                          53377                   SA3    "TB"+X7                                                 GPO      4695
                               11606              BX6    X0*X6                                                   GPO      4696
          3277  73230                             SX2    X3          RJ[R1] = HBP[TB+RJ[R1]]                     GPO      4697
                     12626                        BX6    X2+X6                                                   GPO      4698
          3300  20620                    MIE23    LX6    R1.RJP-R1.RKP                                           GPO      4699
                     15760                        BX7    "RN"X6                                                  GPO      4700
                          0307003302 +            ZR     X7,MIE24    IF RK[R1] = 0                               GPO      4701
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   122
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3301  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
          3302  20620                    MIE24    LX6    R1.RKP                                                  GPO      4706
                     54650                        SA6    A5                                                      GPO      4707
                          0400003271 +            EQ     MIE22                                                   GPO      4708
                                                                                                                 GPO      4709
          3303  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
          3304  0307003271 +                      ZR     X7,MIE22    IF RF[R2] @ 1                               GPO      4714
                          53277                   SA2    "TB"+X7                                                 GPO      4715
                               11303              BX3    X0*X3                                                   GPO      4716
          3305  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
          3306  0400003271 +                      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
          3307  5110000115 C             MIE26    SA1    IC          I = IC                                      GPO      4727
                          57271                   SA2    "TB"-B1                                                 GPO      4728
                               66211              SB2    B1+B1                                                   GPO      4729
          3310  55322                             SA3    A2-B2                                                   GPO      4730
                     43072                        MX0    -SO.LKL                                                 GPO      4731
                          22702                   LX7    X2                                                      GPO      4732
                               10633              BX6    X3                                                      GPO      4733
          3311  6150000004                        SB5    OC.RS                                                   GPO      4734
                          20026                   LX0    R1.SOP+SO.LKP                                           GPO      4735
                                                                                                                 GPO      4736
          3312  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
          3313  73150                             SX1    X5          I = IIC[LI]   */ NEXT ON CHAIN              GPO      4741
                     0324003317 +                 PL     X4,MIE29    IF DEF[DI]                                  GPO      4742
                                                                                                                 GPO      4743
                               55242              SA2    A4-B2       R1 = DI - 2                                 GPO      4744
          3314  26332                             UX3    B3,X2                                                   GPO      4745
                     0535003316 +                 NE     B3,B5,MIE28 IF OC[R1] " OC.RS                           GPO      4746
                               15420              BX4    -X0*X2                                                  GPO      4747
          3315  0314003317 +                      NZ     X4,MIE29    IF SOLK[R1] " 0  */ TEMP LOCK               GPO      4748
          3316  5064777775               MIE28    SA6    A4-2        [DI+2] = TYI(OC.BOS,0,XX)                   GPO      4749
                          5074000000              SA7    A4+         [DI] = [TB-1]                               GPO      4750
                                                                                                                 GPO      4751
          3317  0311003312 +             MIE29    NZ     X1,MIE27    IF I " 0                                    GPO      4752
                                                                                                                 GPO      4753
                                                  TRACE  MIE,RLIST                                               GPO      4754
                                                  TRACE  MIE,RLIST,SEQ                                           GPO      4755
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   123
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        *         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
          3320  74000                             SX0    A0          I = TSC       */ TSC CHAIN INDEX            GPO      4761
                     76540                        SX5    B4                                                      GPO      4762
                          37152                   IX1    X5-X2                                                   GPO      4763
          3321  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
          3322  20244                             LX2    BS.NTETP                                                GPO      4767
                     12624                        BX6    X2+X4       NTET[BSW] = T0 - L.TET                      GPO      4768
                          54640                   SA6    A4                                                      GPO      4769
          3323  0301003105 +                      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
          3325  5140000000 X                      SA4    O.TXT                                                   GPO      4773
                          63520                   SB5    X2                                                      GPO      4774
                               66211              SB2    B1+B1                                                   GPO      4775
          3326  43152                             MX1    -T.CAL                                                  GPO      4776
                     5120000100 C                 SA2    NTP                                                     GPO      4777
                               63440              SB4    X4          HB = O.TXT                                  GPO      4778
          3327  13777                             BX7    X7-X7                                                   GPO      4779
                     43301                        MX3    1                                                       GPO      4780
                                                  LX3    1+I.INVP                                                GPO      4781
                                                                                                                 GPO      4782
          3330  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
          3331  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,0,BI,0)              GPO      4790
          3332  54750                             SA7    A5          [LI] = 0                                    GPO      4791
                     0310003330 +                 NZ     X0,MIE30    IF I " 0                                    GPO      4792
                                                                                                                 GPO      4793
                               10622              BX6    X2                                                      GPO      4794
          3333  54620                             SA6    A2                                                      GPO      4795
                                                  TRACE  MIE,TET                                                 GPO      4796
                     0400003105 +                 EQ     MIE                                                     GPO      4797
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   124
        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
          3334  7160000000               CIF0     SX6    0                                                       FCC1710X    8
                          5160000100 C            SA6    NTP         NTP = 0                                     FCC1710X    9
          3335  0200403335 +             CIF      ROUTINE                                                        GPO      4808
                                                                                                                 GPO      4809
                                        *         CALL *MII* TO MARK THE *INV* INSTRUCTIONS IN THE *HB* FOR DIF. GPO      4810
                                                                                                                 GPO      4811
          3336  43474                             MX4    60          BSW = -0                                    GPO      4812
                     5150000000 X                 SA5    O.TXT                                                   GPO      4813
                               76600              SX6    B0                                                      GPO      4814
          3337  43055                             MX0    -R1.RIL+1                                               GPO      4815
                     5160000031 +                 SA6    BN          BN = 0        */ INDICATE SPECIAL CALL      GPO      4816
                               20001              LX0    1                                                       GPO      4817
          3340  0100002224 +                      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
          3341  5110000000 X                      SA1    L.TXT                                                   GPO      4822
                          5120000000 X            SA2    O.TXT                                                   GPO      4823
          3342  6130000076                        SB3    OC.TST                                                  GPO      4824
                          6140000004              SB4    4                                                       GPO      4825
          3343  6272000003                        S"TB"  X2+3        TB = O.TXT + 3                              GPO      4826
                          43700                   MX7    0           SC = 0                                      GPO      4827
                               36612              IX6    X1+X2                                                   GPO      4828
          3344  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
          3345  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
          3346  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
          3347  55554                    CIF1     SA5    A5-B4       R1 = R1 - 4                                 GPO      4837
                     26625                        UX6    B2,X5                                                   GPO      4838
                          0421003356 +            EQ     B2,B1,CIF2  IF OC[R1] = OC.BOS                          GPO      4839
          3350  0523003347 +                      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
          3351  0334003347 +                      MI     X4,CIF1     IF INV[LI]                                  GPO      4843
                          53357                   SA3    "TB"+X5     LIP = TB + RI[R1]                           FCC1710X   14
                                                  LX3    59-I.INVP                                               FCC1710X   15
          3352  0333003354 +                      MI     X3,CIF1A    IF INV[LIP]                                 FCC1710X   16
                          54740                   SA7    A4          [LI] = SC                                   GPO      4844
                               75747              SX7    A4-"TB"     SC = LI - TB                                GPO      4845
          3353  0400003347 +                      EQ     CIF1                                                    GPO      4846
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   125
        CIF - COLLECT INCREMENT FORMULAS                              CIF                 CODE
  
                                                                                                                 FCC1710X   17
                                        *         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
          3354  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
          3355  54640                             SA6    A4                                                      FCC1710X   25
                     0400003347 +                 EQ     CIF1                                                    FCC1710X   26
                                                                                                                 GPO      4847
          3356  5170000121 C             CIF2     SA7    TSC         TSC = SC                                    GPO      4848
                          0307003334 +            ZR     X7,CIF0     IF SC = 0     */ NO TERMINAL POLYNOMIALS    FCC1710X   27
          3357  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
          3360  5150000121 C                      SA5    TSC                                                     GPO      4853
                          76100                   ADDWRD IIT,B0      ADDWRD( IIT , 0 )                           GPO      4854
          3362  7263777776                        SX6    X3-1                                                    GPO      4855
                          5160000127 C            SA6    ITB         ITB = L.IIT - 1  */ INDEX TO *PI* OF THIS   GPO      4856
                                                                                                                 GPO      4857
          3363  5140000000 X             CIF3     SA4    O.TXT                                                   GPO      4858
                          36745                   IX7    X4+X5                                                   GPO      4859
                               53571              SA5    X7+B1       R2 = TXT(TSC+1)                             GPO      4860
          3364  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
          3365  6160000000                        SB6    0           MULT = 0                                    GPO      4864
                          0100003437 +            RJ     DIF         DEVELOP *INCR* FORMULA                      GPO      4865
          3366  5110000021 C                      SA1    LCV                                                     GPO      4866
                          54500                   SA5    A0                                                      GPO      4867
                                                  LX5    -IA.UDIP                                                GPO      4868
                               26621              UX6    B2,X1                                                   GPO      4869
          3367  21644                             AX6    PS.UDIP                                                 GPO      4870
                     13765                        BX7    X6-X5                                                   GPO      4871
                          6227000000              SB2    X7+                                                     GPO      4872
          3370  0520003371 +                      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
          3371  5110000121 C             CIF4     SA1    TSC                                                     GPO      4876
                          5140000000 X            SA4    O.TXT                                                   GPO      4877
          3372  36741                             IX7    X4+X1                                                   GPO      4878
                     53571                        SA5    X7+B1       R2 = TXT(TSC+1)                             GPO      4879
                          5237000003              SA3    X7+3                                                    GPO      4880
          3373  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
          3374  0100003437 +                      RJ     DIF         DEVELOP *POLYNOMIAL* FORMULA                GPO      4884
          3375  76100                             ADDWRD IIT,B0      ADDWRD( IIT , 0 )                           GPO      4885
                                                                                                                 GPO      4886
          3377  5110000127 C                      SA1    ITB                                                     GPO      4887
                          5140000120 C            SA4    CAS                                                     GPO      4888
          3400  63220                             SB2    X2                                                      GPO      4889
                     5120000000 X                 SA2    O.TET                                                   GPO      4890
                               63440              SB4    X4                                                      GPO      4891
          3401  7263777776                        SX6    X3-1                                                    GPO      4892
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   126
        CIF - COLLECT INCREMENT FORMULAS                              CIF                 CODE
  
                                                  LX6    PI.LFP                                                  GPO      4893
                          53612                   SA6    B2+X1       IIT(ITB) = L.IIT - 1  */ LINK TO NEXT       GPO      4894
                               20144              LX1    T.ITIP                                                  GPO      4895
          3402  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
          3403  5150000121 C                      SA5    TSC                                                     GPO      4902
                          0315003363 +            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
          3404  5110000000 X                      SA1    O.TET                                                   GPO      4908
                          5120000000 X            SA2    O.IIT                                                   GPO      4909
          3405  5130000101 C                      SA3    PIC                                                     GPO      4910
                          6120000003              SB2    3                                                       GPO      4911
          3406  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
          3407  43700                             MX7    0                                                       FCC0514    78
                     5170000121 C                 SA7    CNI         CNI = 0                                     FCC0514    79
                                                                                                                 GPO      4915
          3410  54105                    CIF5     SA1    A0+B5       I = J;  PIW = IIT(I)                        GPO      4916
                     0301003434 +                 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
          3411  0331003410 +                      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
          3412  20652                             LX6    -IA.CAP                                                 GPO      4925
                     73760                        SX7    X6          CAS = CA[IAW]                               GPO      4926
                          5170000120 C            SA7    CAS                                                     GPO      4927
          3413  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
          3414  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
          3415  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
          3416  54204                    CIF7     SA2    A0+B4       PIK = IIT(K)                                GPO      4938
                     0302003410 +                 ZR     X2,CIF5     IF PIK = 0    */ END OF LIST                GPO      4939
                                                                                                                 GPO      4940
                               54521              SA5    A2+B1       IK = IIT(K+1)                               GPO      4941
          3417  13615                             BX6    X1-X5                                                   GPO      4942
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   127
        CIF - COLLECT INCREMENT FORMULAS                              CIF                 CODE
  
                     7133777775                   SX3    B3-2        N = NW - 2                                  GPO      4943
                               20652              LX6    -IA.CAP                                                 GPO      4944
          3420  43752                             MX7    -IA.CAL                                                 GPO      4945
                     11676                        BX6    X7*X6                                                   GPO      4946
                          0316003433 +            NZ     X6,CIF9     IF (NWD,UDI)[IAW] " (NWD,UDI)[IK]           GPO      4947
          3421  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
          3422  0316003433 +                      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
          3423  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
          3424  0316003433 +                      NZ     X6,CIF9     IF DIF " 0    */ R1 WORDS                   GPO      4959
                          0317003433 +            NZ     X7,CIF9     IF [II] " [IK]                              GPO      4960
          3425  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
          3426  0313003423 +                      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
          3427  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
          3430  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
          3431  12775                             BX7    X7+X5       CN[IIT(I)] = CCN  */ SET *CN* IN BASE       FCC0514    90
                     54750                        SA7    A5                                                      FCC0514    91
                          76610                   SX6    B1                                                      FCC0514    92
          3432  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
          3433  63420                             SB4    X2          K = LF[PIK]                                 GPO      4975
                     0400003416 +                 EQ     CIF7                                                    GPO      4976
                                                                                                                 GPO      4977
          3434  7160000004               CIF10    SX6    4           L.TXT = 4                                   GPO      4978
                          5160000000 X            SA6    L.TXT                                                   GPO      4979
          3435  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
          3436  0400003335 +                      EQ     CIF                                                     GPO      4986
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   128
        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
          3437  0200403437 +             DIF      ROUTINE                                                        GPO      5000
          3440  5110000000 X                      SA1    O.RND                                                   GPO      5001
                          5120000000 X            SA2    L.RND                                                   GPO      5002
          3441  6274000003                        S"TB"  X4+3        TB = O.TXT + 3                              GPO      5003
                          36212                   IX2    X1+X2                                                   GPO      5004
                               63510              SB5    X1                                                      GPO      5005
          3442  6130777774                        SB3    -3                                                      GPO      5006
                          5202777775              SA0    X2-2        SI = O.RND + L.RND-2  */ STACK ADDRESS      GPO      5007
          3443  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
          3444  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
          3445  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
          3446  0334003516 +                      MI     X4,DIF14    IF TYPE[DI] = III                           GPO      5024
                          0323003462 +            PL     X3,DIF5     IF TYPE[DI] = I                             GPO      5025
                                                                                                                 GPO      5026
                                        *         OUTPUT INSTRUCTION, PUSHUP STACK                               GPO      5027
                                                                                                                 GPO      5028
          3447  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
          3450  54001                             SA0    A0+B1       SI = SI + 1                                 GPO      5033
                     20301                        LX3    59-I.MP                                                 GPO      5034
                          0333003452 +            MI     X3,DIF2A    IF M[LI]      */ ALREADY OUTPUT             GPO      5035
                                                                                                                 GPO      5036
          3451  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
          3452  54300                    DIF2A    SA3    A0          R1W = [SI]                                  GPO      5040
                     15230                        BX2    "RN"X3                                                  GPO      5041
                          0303003523 +            ZR     X3,DIF15    IF R1W = 0    */ END OF STACK               GPO      5042
          3453  63223                             SB2    X2+B3                                                   GPO      5043
                     56572                        SA5    "TB"+B2     R1 = TB + RI[R1]-3                          GPO      5044
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   129
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                          10533                   BX5    X3                                                      GPO      5045
          3454  0400003445 +                      EQ     DIF1                                                    GPO      5046
                                                                                                                 GPO      5047
                                        *         STACK INSTRUCTION, FOLLOW SELECTED OPERAND, (X6) = OP          GPO      5048
                                                                                                                 GPO      5049
          3455  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
          3456  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
          3457  0313003445 +                      NZ     X3,DIF1     IF OC[R1L] " OC.XMT                         GPO      5057
                          5020000002              SA2    A0+2                                                    GPO      5058
          3460  0312003445 +                      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
          3461  0400003445 +                      EQ     DIF1                                                    GPO      5061
                                                                                                                 GPO      5062
                                        *         PROCESS TYPE I INSTRUCTIONS                                    GPO      5063
                                                                                                                 GPO      5064
          3462  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
          3463  0316003465 +                      NZ     X6,DIF5A    IF RJ[R1] " 0                               FCC2230X    7
                          10644                   BX6    X4          OP = RK[R1]                                 FCC2230X    8
          3464  0400003466 +                      EQ     DIF5B                                                   FCC2230X    9
                                                                                                                 FCC2230X   10
          3465  0314003470 +             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
          3466  53467                    DIF5B    SA4    "TB"+X6     LJ = TB + OP                                FCC2230X   13
                     20401                        LX4    59-I.MP                                                 GPO      5074
                          0334003447 +            MI     X4,DIF2     IF M[LJ]      */ OPERAND PROCESSED          GPO      5075
          3467  0400003455 +                      EQ     DIF4                                                    GPO      5076
                                                                                                                 GPO      5077
          3470  26327                    DIF6     UX3    B2,X7                                                   GPO      5078
                     7122777676                   SX2    B2-OC.IM                                                GPO      5079
          3471  0312003500 +                      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
          3472  0526003473 +                      NE     B2,B6,DIF7  IF RI[R1W] " MULT                           GPO      5086
                          6160000000              SB6    0           MULT = 0                                    GPO      5087
                                                                                                                 GPO      5088
          3473  53367                    DIF7     SA3    "TB"+X6     LJ = TB + OP                                GPO      5089
                     20301                        LX3    59-I.MP                                                 GPO      5090
                          0323003475 +            PL     X3,DIF8     IF ^M[LJ]                                   GPO      5091
          3474  53347                             SA3    "TB"+X4     LJ = TB + K                                 GPO      5092
                     20301                        LX3    59-I.MP                                                 GPO      5093
                          0333003447 +            MI     X3,DIF2     IF M[LJ]      */ BOTH OPERANDS MARKED       GPO      5094
                                                                                                                 GPO      5095
          3475  75637                    DIF8     SX6    A3-"TB"     OP = LJ - TB  */ INDEX OF OPERAND           GPO      5096
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   130
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                     0560003455 +                 NZ     B6,DIF4     IF MULT " 0                                 GPO      5097
                               20373              LX3    I.MP-I.INVP                                             GPO      5098
          3476  0323003455 +                      PL     X3,DIF4     IF ^INV[LJ]                                 GPO      5099
                          66620                   SB6    B2          MULT = RI[R1W]    */ INDICATE INV OP OF IM  GPO      5100
          3477  0400003455 +                      EQ     DIF4                                                    GPO      5101
  
  
                                        *         PROCESS IA, IS . IGNORE *INV* TERMS IF MULT = 0 .              GPO      5103
                                                                                                                 GPO      5104
          3500  7122777751               DIF10    SX2    B2-OC.UP                                                FCC0238AX  43
                          0302003514 +            ZR     X2,DIF13    IF OC[R1W] = OC.UP                          FCC0238AX  44
                                                                                                                 FCC0238AX  45
          3501  53367                             SA3    "TB"+X6     LJ = TB + J                                 FCC0238AX  46
                     53247                        SA2    "TB"+X4     LK = TB + K                                 GPO      5106
                          0560003511 +            NZ     B6,DIF12    IF MULT " 0                                 GPO      5110
          3502  12123                             BX1    X2+X3                                                   GPO      5111
                                                  LX1    59-I.INVP                                               GPO      5112
                     0321003511 +                 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
          3503  6140000010                        SB4    OC.XMT      OC = OC.XMT                                 GPO      5117
                                                  LX3    59-I.INVP                                               GPO      5118
                          0323003506 +            PL     X3,DIF11    IF ^INV[LJ]                                 GPO      5119
          3504  6122777741                        SB2    B2-OC.IA                                                GPO      5120
                          7264000000              SX6    X4+         J = K                                       GPO      5121
          3505  0420003506 +                      ZR     B2,DIF11    IF OC[R1W] = OC.IA                          GPO      5122
                          6140000014              SB4    OC.XMTC     OC = OC.XMTC                                GPO      5123
                                                                                                                 GPO      5124
          3506  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
          3507  20634                             LX6    -R1.RJP     OP = J                                      GPO      5129
                     53367                        SA3    "TB"+X6     LJ = TB + J                                 FCC0640     5
                          20301                   LX3    59-I.MP                                                 FCC0640     6
          3510  0333003447 +                      MI     X3,DIF2     IF M[LJ]                                    FCC0640     7
                          0400003455 +            EQ     DIF4                                                    GPO      5130
                                                                                                                 GPO      5131
                                        *         ONE OPERAND MARKED, OR IN SCOPE OF MULTIPLY                    GPO      5132
                                                                                                                 GPO      5133
          3511  20301                    DIF12    LX3    59-I.MP                                                 GPO      5134
                     0323003455 +                 PL     X3,DIF4     IF ^M[LJ]                                   GPO      5135
                               10644              BX6    X4          OP = K                                      GPO      5136
          3512  20201                             LX2    59-I.MP                                                 FCC0640     8
                     0332003447 +                 MI     X2,DIF2     IF M[LK]      */ BOTH OPERANDS MARKED       FCC0640     9
          3513  0400003455 +                      EQ     DIF4                                                    GPO      5137
                                                                                                                 FCC0238AX  47
          3514  53347                    DIF13    SA3    "TB"+X4     LK = TB + K                                 FCC0238AX  48
                     20301                        LX3    59-I.MP                                                 FCC0238AX  49
                          0333003447 +            MI     X3,DIF2     IF M[LK]                                    FCC0238AX  50
          3515  73640                             SX6    X4          OP = K                                      FCC0238AX  51
                     0400003455 +                 EQ     DIF4                                                    FCC0238AX  52
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   131
        DIF - DEVELOP INCREMENT FORMULAS                              TYIII               CODE
  
                                        *         TYPE III INSTRUCTION ( LD, KLS, STT )                          GPO      5139
                                                                                                                 GPO      5140
          3516  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
          3517  0306003447 +                      ZR     X6,DIF2     IF RF[R2] = 0                               GPO      5145
                          20201                   LX2    59-I.MP                                                 GPO      5146
                               26427              UX4    B2,X7                                                   GPO      5147
          3520  0332003447 +                      MI     X2,DIF2     IF M[LJ]                                    GPO      5148
                          7142777725              SX4    B2-OC.STT                                               GPO      5149
          3521  0314003455 +                      NZ     X4,DIF4     IF OC[R1W] " OC.STT                         GPO      5150
                          0560003455 +            NZ     B6,DIF4     IF MULT " 0                                 GPO      5151
          3522  6140000010                        SB4    OC.XMT      OC = OC.XMT   */ CHANGE STT TO AN XMT       GPO      5152
                          0400003506 +            EQ     DIF11                                                   GPO      5153
  
  
  
                                        **        PHASE 2, ADD INCREMENT EXPRESSION TO *IIT*                     GPO      5155
                                                                                                                 GPO      5156
          3523  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
          3524  7215000002                        ALLOC  IIT,X5+2    ALLOC( IIT , 4*N+2 )                        GPO      5161
          3526  5130000000 X                      SA3    O.TXT                                                   GPO      5162
                          5140000000 X            SA4    O.RND                                                   GPO      5163
          3527  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
          3530  6255000002                        SB5    X5+2        NWD = 4*N + 2                               GPO      5167
                          6060000004              SB6    A0+4        II = IB + 4   */ STORE ADDRESS              GPO      5168
          3531  5254000001                        SA5    X4+1        R1 = [O.RND+1]                              GPO      5169
                          6273000003              S"TB"  X3+3        TB = O.TXT + 3                              GPO      5170
                                                                                                                 GPO      5171
          3532  15750                    DIF16    BX7    "RN"X5      R = RI[R1]                                  GPO      5172
                     5120003557 +                 SA2    DIFA                                                    GPO      5173
                               53377              SA3    "TB"+X7     LI = TB + R                                 GPO      5174
          3533  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
          3534  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
          3535  0334003542 +                      MI     X4,DIF17    IF TYPE[DI] = III                           GPO      5183
                          20401                   LX4    1                                                       GPO      5184
                               43700              MX7    0           R2W = 0                                     GPO      5185
          3536  0334003552 +                      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
          3537  53467                             SA4    "TB"+X6                                                 GPO      5192
                     20520                        LX5    R1.RJP-R1.RKP                                           GPO      5193
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   132
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                          73640                   SX6    X4          RJ[R1] = HBP[TB+RJ[R1]]                     GPO      5194
                               15550              BX5    "RN"X5                                                  GPO      5195
          3540  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
          3541  27626                             PX6    B2,X6                                                   GPO      5200
                     12563                        BX5    X6+X3                                                   GPO      5201
                          0400003552 +            EQ     DIF18                                                   GPO      5202
                                                                                                                 GPO      5203
                                        *         PROCESS TYPE III INSTRUCTION ( LD, KLS, STT )                  GPO      5204
                                                                                                                 GPO      5205
          3542  5023777775               DIF17    SA2    A3-2        R2 = LI - 2;  R2W = [R2]                    GPO      5206
                          20230                   LX2    -IH.RFP                                                 GPO      5207
                               15720              BX7    "RN"X2                                                  GPO      5208
          3543  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
          3544  12727                             BX7    X2+X7                                                   GPO      5213
                     20744                        LX7    IH.RFP                                                  GPO      5214
                          0326003552 +            PL     X6,DIF18    IF ^LD[II]                                  GPO      5215
                                                                                                                 FCC0656    47
          3545  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
          3546  56660                             SA6    B6                                                      FCC0656    51
                                                  LX3    59-I.INVP                                               GPO      5216
                     66441                        SB4    B4+B1       NLD = NLD + 1                               GPO      5217
                          0333003552 +            MI     X3,DIF18    IF INV[LI]                                  GPO      5218
                                                                                                                 GPO      5219
                                        *         SETUP FIRST HEADER WORD                                        GPO      5220
                                                                                                                 GPO      5221
          3547  20536                             LX5    -R1.INP                                                 GPO      5222
                     5120000120 C                 SA2    CAS                                                     GPO      5223
                               73650              SX6    X5                                                      GPO      5224
          3550  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
          3551  20536                             LX5    R1.INP                                                  GPO      5230
                     54600                        SA6    A0                                                      GPO      5231
                                                                                                                 GPO      5232
          3552  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
          3553  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
          3554  54551                             SA5    A5+B1       R1 = R1 + 1                                 GPO      5240
                     6166000004                   SB6    B6+4                                                    GPO      5241
          3555  0315003532 +                      NZ     X5,DIF16    IF [RI] " 0                                 GPO      5242
                                                                                                                 GPO      5243
                                        *         SETUP SECOND HEADER WORD                                       GPO      5244
                                                                                                                 GPO      5245
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   133
        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
          3556  54601                             SA6    A0+B1                                                   GPO      5249
                     0400003437 +                 EQ     DIF                                                     GPO      5250
                                                                                                                 GPO      5251
          3557                           DIFA     BFMW   I,(M,HBP)                                               GPO      5252
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   134
        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
          3560  0200403560 +             FIM      ROUTINE                                                        GPO      5260
          3561  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
          3562  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
          3563  5110000000 X             FIM1     SA1    O.IIT                                                   GPO      5271
                          5120000000 X            SA2    L.IIT                                                   GPO      5272
          3564  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
          3565  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
          3566  10644                             BX6    X4                                                      GPO      5280
                     5160000124 C                 SA6    EV                                                      GPO      5281
                               20536              LX5    -R1.INP                                                 GPO      5282
          3567  73750                             SX7    X5          J = IN[R1]    */ *UDT* INDEX                GPO      5283
                     5170000123 C                 SA7    J                                                       GPO      5284
          3570  5140000101 C                      SA4    PIC         I = PIC                                     GPO      5285
                                                                                                                 GPO      5286
          3571  73641                    FIM2     SX6    X4+B1       PI = I + 1                                  GPO      5287
                     53445                        SA4    B5+X4       PIW = IIT(I)                                GPO      5288
                          0304003605 +            ZR     X4,FIM5     IF PIW = 0    */ END OF LIST                GPO      5289
          3572  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
          3573  0313003571 +                      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
          3574  73740                             SX7    X4                                                      GPO      5300
                     54761                        SA7    A6+B1       PI(2) = I                                   GPO      5301
                                                  LX1    IA.UDIP                                                 GPO      5302
                          0100003624 +            RJ     EIE         EVALUATE  *DEL TP( EV ) *                   GPO      5303
                                                                                                                 GPO      5304
                                                  PRINT  FIM,(* -- INC VALUE = *O20),X7                          GPO      5305
                                                                                                                 GPO      5306
          3575  26527                             UX5    B2,X7                                                   GPO      5307
                     0315003601 +                 NZ     X5,FIM3     IF VAL[EW] " 0                              GPO      5308
                                                                                                                 GPO      5309
                                        *         *IP* HAS A INC VALUE OF ZERO, CHANGE IT TO AN *INV* TEMP.      GPO      5310
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   135
        FIM - FORM INCREMENT MODIFICATION LISTS                       FIM                 FIM 
  
                                                                                                                 GPO      5311
                               63360              SB3    X6                                                      GPO      5312
          3576  5110000000 X                      SA1    O.TET                                                   GPO      5313
                          43451                   MX4    -T.IPFL                                                 GPO      5314
                               53213              SA2    X1+B3       TI = TET(CAS)                               GPO      5315
          3577  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
          3600  54620                             SA6    A2                                                      GPO      5321
                     76760                        SX7    B6                                                      GPO      5322
                          54730                   SA7    A3          L.IIT = OLD(L.IIT)                          GPO      5323
                                                                                                                 GPO      5324
          3601  5110000000 X             FIM3     SA1    O.IIT                                                   GPO      5325
                          5110000000 X            SA1    O.IIT                                                   GPO      5326
          3602  5120000027 +                      SA2    O.SEQ                                                   GPO      5327
                          5140000126 C            SA4    PI+1                                                    GPO      5328
          3603  5150000123 C                      SA5    J                                                       GPO      5329
                          6272000003              S"TB"  X2+3                                                    GPO      5330
          3604  63510                             SB5    X1                                                      GPO      5331
                     0400003571 +                 EQ     FIM2                                                    GPO      5332
                                                                                                                 GPO      5333
                                        *         TERMINATE *TP* INC LIST, POINT FROM *ST* TO LIST.              GPO      5334
                                                                                                                 GPO      5335
          3605  5110000000 X             FIM5     SA1    L.IIT                                                   GPO      5336
                          5120000127 C            SA2    ITB                                                     GPO      5337
          3606  37612                             IX6    X1-X2                                                   GPO      5338
                     27502                        PX5    X2                                                      GPO      5339
                          23716                   AX7    B1,X6       NPI = (L.IIT-ITB) / 2                       GPO      5340
          3607  0306003614 +                      ZR     X6,FIM6     IF NPI = 0                                  GPO      5341
                          63470                   SB4    X7                                                      GPO      5342
          3610  5140000033 +                      SA4    BSW                                                     GPO      5343
                          27545                   PX5    B4,X5                                                   GPO      5344
                               26624              UX6    B2,X4                                                   GPO      5345
          3611  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
          3613  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
          3614  5130000122 C             FIM6     SA3    SC                                                      GPO      5355
                          53237                   SA2    "TB"+X3     LI = TB + SC                                GPO      5356
                               20252              LX2    -I.STCP                                                 GPO      5357
          3615  73720                             SX7    X2          SC = STC[LI]                                GPO      5358
                     54730                        SA7    A3                                                      GPO      5359
                          73220                   SX2    X2                                                      GPO      5360
                               20222              LX2    I.STCP                                                  GPO      5361
          3616  12652                             BX6    X5+X2       NPI[LI] = NPI;  HBP[LI] = ITB               GPO      5362
                     54620                        SA6    A2                                                      GPO      5363
                          0317003563 +            NZ     X7,FIM1     IF SC " 0                                   GPO      5364
                                                                                                                 GPO      5365
          3617  0400003560 +                      EQ     FIM                                                     GPO      5366
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   136
        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
          3620  10577                    EIE0     BX5    X7                                                      GPO      5376
                     76111                        ALLOC  IIT,2       ALLOC( IIT , 2 );  I = OLD(L.IIT)           GPO      5377
          3622  5140000120 C                      SA4    CAS                                                     GPO      5378
                          10755                   BX7    X5                                                      GPO      5379
                               73640              SX6    X4                                                      GPO      5380
          3623  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
          3624  0200403624 +             EIE      ROUTINE                                                        GPO      5384
          3625  54211                             SA2    A1+B1       PB = PA + 1                                 GPO      5385
                     5130000124 C                 SA3    EV                                                      GPO      5386
                               26621              UX6    B2,X1       NW = NWD[PA]                                GPO      5387
          3626  26432                             UX4    B3,X2       NLD = NLD[PB]                               GPO      5388
                     20652                        LX6    -IA.CAP     CAS = CA[PA]                                GPO      5389
                          6160000006              SB6    6                                                       GPO      5390
          3627  10733                             BX7    X3          EW = EV                                     GPO      5391
                     5160000120 C                 SA6    CAS                                                     GPO      5392
          3630  0426003620 +                      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
          3631  0540003632 +                      NZ     B4,EIE1     IF T " 0      */ INCREMENT ^ A CON          GPO      5396
                          0431003716 +            EQ     B3,B1,EIE9  IF NLD = 1    */ ONLY 1 *LD*                GPO      5397
                                                                                                                 GPO      5398
                                        *         CHECK FOR *LD* / *XMTC* COMBINATION                            GPO      5399
                                                                                                                 GPO      5400
          3632  0713003637 +             EIE1     GT     B3,B1,EIE2  IF NLD > 1                                  GPO      5401
                          54416                   SA4    A1+B6                                                   GPO      5402
                               26664              UX6    B6,X4                                                   GPO      5403
          3633  7156777763                        SX5    B6-OC.XMTC                                              GPO      5404
                          0315003637 +            NZ     X5,EIE2     IF OC[PA+6] " OC.XMTC                       GPO      5405
          3634  6162777765                        SB6    B2-10                                                   GPO      5406
                          0560003637 +            NZ     B6,EIE2     IF NW " 10                                  GPO      5407
                                                                                                                 GPO      5408
          3635  6154777774                        SB5    B4-3        TYPE[EW] = 3 - T                            GPO      5409
                          67405                   SB4    -B5                                                     GPO      5410
                               27747              PX7    B4,X7                                                   GPO      5411
          3636  0400003620 +                      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
          3637  7112000016               EIE2     ALLOC  TXT,14+B2   ALLOC( TXT , NW + 14 )                      FCC0448    62
          3641  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
          3642  6130000010                        SB3    OC.XMT      OPC = OC.XMT                                GPO      5421
                          76611                   SX6    B1+B1       RI[R1] = 2                                  GPO      5422
          3643  0540003646 +                      NZ     B4,EIE3     IF TYP[EV] " 0                              GPO      5423
                                                                                                                 GPO      5424
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   137
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                          6120000055              SB2    OC.S        OC = OC.S                                   GPO      5425
          3644  20736                             LX7    R1.INP      IN[R1] = VAL[EV]                            GPO      5426
                     12676                        BX6    X7+X6                                                   GPO      5427
                          7170000000              SX7    0           R2W = 0                                     GPO      5428
          3645  0400003651 +                      EQ     EIE4                                                    GPO      5429
                                                                                                                 GPO      5430
          3646  43530                    EIE3     MX5    -IH.CAIHL                                               GPO      5431
                     11457                        BX4    X5*X7                                                   GPO      5432
                          6120000050              SB2    OC.LD                                                   GPO      5433
          3647  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
          3650  0441003651 +                      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
          3651  0100000141 +             EIE4     RJ     SMI         SMI( OC , R1 , R2 )                         FCC0656    52
          3652  5150000000 X                      SA5    O.IIT                                                   GPO      5443
                          5120000125 C            SA2    PI                                                      GPO      5444
          3653  6140000004                        SB4    4                                                       GPO      5445
                          36752                   IX7    X5+X2                                                   GPO      5446
                               53170              SA1    X7          PA = O.IIT + PI                             GPO      5447
          3654  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
          3655  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
          3656  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
          3657  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
          3660  66664                             SB6    B6+B4       TI = TI + 4                                 GPO      5465
                     54554                        SA5    A5+B4       PA = PA + 4                                 GPO      5466
                          0550003655 +            NZ     B5,EIE5     IF N " 0                                    GPO      5467
                                                                                                                 GPO      5468
          3661  20140                             LX1    R1.RJP                                                  FCC0448    63
                     76560                        SX5    B6                                                      FCC0448    64
                          6120000010              SB2    OC.XMT                                                  FCC0448    65
          3662  12615                             BX6    X1+X5                                                   FCC0448    66
                     0100000127 +                 RJ     SRI         SRI( XMT  TI,R)                             FCC0448    67
          3663  6120000076                        SB2    OC.TST                                                  GPO      5469
                          5130000000 X            SA3    L.TET                                                   GPO      5470
          3664  77664                             SX6    B6-B4       R = TI - 4                                  FCC0448    68
                     5140000000 X                 SA4    =XIT.                                                   GPO      5472
                               20322              LX3    IH.CAP                                                  GPO      5473
          3665  12734                             BX7    X3+X4                                                   GPO      5474
                     0100000127 +                 RJ     SRI         SRI( TST  R,L.TET,IT. )                     GPO      5475
          3666  66200                             SB2    B0                                                      GPO      5476
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   138
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                     43600                        MX6    0                                                       GPO      5477
                          0100000127 +            RJ     SRI         SRI( EOQ  0,0 )                             GPO      5478
                                                                                                                 GPO      5479
                                        *         CHANGE *LD* OF THE *RD* VARIABLE TO AN *XMT/XMTC*              GPO      5480
                                                                                                                 GPO      5481
          3667  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
          3670  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
          3671  0100000127 +                      RJ     SRI         SRI( OPC  2,0,RI )                          GPO      5490
                                                                                                                 GPO      5491
          3672  0100000000 X                      CALL   SIE         SQUEEZE INCREMENT EXPRESSION                GPO      5492
                                                  TRACE  EIE,RLIST                                               GPO      5493
          3673  5140000000 X                      SA4    L.TXT                                                   GPO      5494
                          7264777753              SX6    X4-5*4                                                  GPO      5495
          3674  0316003704 +                      NZ     X6,EIE7     IF L.TXT " 20                               GPO      5496
                                                                                                                 GPO      5497
                                        *         *TXT* SHOULD CONTAIN * BOS, LD, XMT/XMTC, TST, EOQ *           GPO      5498
                                                                                                                 GPO      5499
                          5110000000 X            SA1    O.TXT       T = O.TXT                                   GPO      5500
          3675  5221000004                        SA2    X1+4        R1L = [T+4]   */ R1 OF *LD*                 GPO      5501
                          26722                   UX7    B2,X2                                                   GPO      5502
          3676  7162777727                        SX6    B2-OC.LD                                                GPO      5503
                          21736                   AX7    R1.INP                                                  GPO      5504
          3677  0316003704 +                      NZ     X6,EIE7     IF OC[R1L] " OC.LD                          GPO      5505
                          5231000010              SA3    X1+8        R1 = [T+8]    */ R1 OF XMT/XMTC             GPO      5506
          3700  54221                             SA2    A2+B1       R2L = [T+5]   */ R2 WORD OF *LD*            GPO      5507
                     20744                        LX7    IH.RFP                                                  GPO      5508
                          12272                   BX2    X7+X2       VAL = SHIFT(IN[R1],IH.RFP) + CAIH[R2L]      GPO      5509
                               26523              UX5    B2,X3                                                   GPO      5510
          3701  6130000010                        SB3    OC.XMT                                                  GPO      5511
                          27712                   PX7    B1,X2       EW = PACK(1,VAL)                            GPO      5512
          3702  0423003714 +                      EQ     B2,B3,EIE8  IF OC[R1] = OC.XMT                          GPO      5513
                          6130000014              SB3    OC.XMTC                                                 GPO      5514
          3703  66411                             SB4    B1+B1                                                   GPO      5515
                     27742                        PX7    B4,X2       EW = PACK(2,VAL)                            GPO      5516
                          0423003714 +            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
          3704  7214777767               EIE7     ALLOC  MOD,X4-8    ALLOC( MOD , L.TXT - 8 )                    GPO      5521
          3706  5140000000 X                      SA4    O.TXT                                                   GPO      5522
                          73326                   SX3    X2+B6                                                   GPO      5523
          3707  7224000004                        MOVE   X1,X4+4,X3  MOVE( L.TXT-8 , O.TXT+4 , O.MOD+OLD(L.MOD)) GPO      5524
          3710  43101                             MX1    1                                                       GPO      5525
                     5150000000 X                 SA5    IT.                                                     GPO      5526
                                                  LX1    1+T.INVP                                                GPO      5527
          3711  5100000000 X                      ADDWRD TET,X1      ADDWRD( TET , TETW(1,0,0,0) )               GPO      5528
          3712  7233777776                        SX3    X3-1                                                    GPO      5529
                          6140000003              SB4    3                                                       GPO      5530
          3713  20322                             LX3    IH.CAP                                                  GPO      5531
                     27645                        PX6    B4,X5                                                   GPO      5532
                          12736                   BX7    X3+X6       EW = PACK( 3 , CAIH[L.TET-1,IT.] )          GPO      5533
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   139
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                                                                                                                 GPO      5534
          3714  7160000004               EIE8     SX6    4           L.TXT = 4                                   GPO      5535
                          5160000000 X            SA6    L.TXT                                                   GPO      5536
          3715  0400003620 +                      EQ     EIE0                                                    GPO      5537
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   140
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                                        *         EVALUATE EXPRESSION WITH CONSTANT INC VALUE AND 1 *LD*.        GPO      5539
                                                                                                                 GPO      5540
          3716  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
          3717  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
          3720  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
          3721  0316003723 +                      NZ     X6,EIE11    IF TYPE[DI] " I                             GPO      5556
                          20534                   LX5    -R1.RJP                                                 GPO      5557
                               15650              BX6    "RN"X5                                                  GPO      5558
          3722  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
          3723  5155003745 +             EIE11    SA5    EIE.JT+B5                                               GPO      5564
                          6255000000              SB5    X5+                                                     GPO      5565
          3724  0255000000                        JP     B5          JUMP( EIE.JT( OC[R1] ) )                    GPO      5566
                                                                                                                 GPO      5567
                                        *         STORE VALUE OF THIS INSTRUCTION                                GPO      5568
                                                                                                                 GPO      5569
          3725  66664                    EIE12    SB6    B6+B4       I = I + 4                                   GPO      5570
                     54741                        SA7    A4+B1       LI = DI + 1;  [LI] = V                      GPO      5571
                          0762003720 +            LT     B6,B2,EIE10 IF I < NW                                   GPO      5572
                                                                                                                 GPO      5573
          3726  43152                             MX1    -IH.CAL                                                 GPO      5574
                     73770                        SX7    X7          V = SETX(V)   */ ELIMINATE -0               GPO      5575
                          15671                   BX6    -X1*X7                                                  GPO      5576
                               27706              PX7    X6          EW = PACK(0,V)                              GPO      5577
          3727  0400003620 +                      EQ     EIE0                                                    GPO      5578
                                                                                                                 GPO      5579
                                        *         INSTRUCTION PROCESSORS                                         GPO      5580
                                                                                                                 GPO      5581
          3730                                    PROCESS (LD,ILD)                                               GPO      5582
          3730  74700                             SX7    A0          V = LDV                                     GPO      5583
                     0400003725 +                 EQ     EIE12                                                   GPO      5584
                                                                                                                 GPO      5585
          3731                                    PROCESS XMT                                                    GPO      5586
          3731  10722                             BX7    X2          V = VJ                                      GPO      5587
                     0400003725 +                 EQ     EIE12                                                   GPO      5588
                                                                                                                 GPO      5589
          3732                                    PROCESS XMTC                                                   GPO      5590
          3732  14722                             BX7    -X2         V = -VJ                                     GPO      5591
                     0400003725 +                 EQ     EIE12                                                   GPO      5592
                                                                                                                 GPO      5593
          3733                                    PROCESS IA                                                     GPO      5594
          3733  36723                             IX7    X2+X3       V = VJ + VK                                 GPO      5595
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   141
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                     0400003725 +                 EQ     EIE12                                                   GPO      5596
                                                                                                                 GPO      5597
          3734                                    PROCESS IS                                                     GPO      5598
          3734  37723                             IX7    X2-X3       V = VJ - VK                                 GPO      5599
                     0400003725 +                 EQ     EIE12                                                   GPO      5600
                                                                                                                 GPO      5601
          3735                                    PROCESS IM                                                     GPO      5602
          3735  42723                             IX7    X2*X3       V = VJ * VK                                 GPO      5603
                     0400003725 +                 EQ     EIE12                                                   GPO      5604
                                                                                                                 GPO      5605
          3736                                    PROCESS S                                                      GPO      5606
          3736  20736                             LX7    -R1.INP                                                 GPO      5607
                     73770                        SX7    X7          V = IN[R1]                                  GPO      5608
                          0400003725 +            EQ     EIE12                                                   GPO      5609
                                                                                                                 GPO      5610
          3737                                    PROCESS FMA                                                    GPO      5611
          3737  20736                             LX7    -R1.INP                                                 GPO      5612
                     6257777776                   SB5    X7-1                                                    GPO      5613
                               43501              MX5    1                                                       GPO      5614
          3740  23755                             AX7    B5,X5       V = SHIFT( 1S59 , -(IN[R1]-1) )             GPO      5615
                     0400003725 +                 EQ     EIE12                                                   GPO      5616
                                                                                                                 GPO      5617
          3741                                    PROCESS SXT                                                    GPO      5618
          3741  5034000003                        SA3    A4+3        R2 = DI + 3   */ ADVANCE TO *KLS*           GPO      5619
                          54444                   SA4    A4+B4       DI = DI + 4                                 GPO      5620
                               66664              SB6    B6+B4       I = I + 4                                   GPO      5621
          3742  20352                             LX3    -IH.CAP                                                 GPO      5622
                     63530                        SB5    X3                                                      GPO      5623
                          22752                   LX7    B5,X2       V = SHIFT( VJ , CA[R2] )                    GPO      5624
          3743  0400003725 +                      EQ     EIE12                                                   GPO      5625
                                                                                                                 FCC2271X   44
          3744                                    PROCESS UP                                                     FCC2271X   45
          3744  10733                             BX7    X3          V = VK                                      FCC2271X   46
                     0400003725 +                 EQ     EIE12                                                   FCC2271X   47
                                                                                                                 GPO      5626
                                3637 +   .STT     EQU    EIE2              */ CONTAINS AN *IH*                   GPO      5627
  
  
                                        *         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
          3745                           EIE.JT   BSS    0                                                       GPO      5643
          3745                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
                                                                                                                 GPO      5645
                                                  QUAL                                                           GPO      5646
                                3745 +   MIP.JT   EQU    /FIM/EIE.JT                                             GPO      5647
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   142
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE.JT
  
                                                                                                                 GPO      5648
                                                  QUAL   CODE                                                    GPO      5649
                                                                                                                 GPO      5650
                                3560 +   FIM      EQU    /FIM/FIM                                                GPO      5651
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   143
        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
          4051  0200404051 +             UPB      ROUTINE                                                        GPO      5658
          4052  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
          4053  73172                             SX1    B2+X7                                                   GPO      5663
                     5170004156 +                 SA7    NTL                                                     GPO      5664
                               76622              SX6    B2+B2                                                   GPO      5665
          4054  36567                             IX5    X6+X7                                                   GPO      5666
                     20503                        LX5    3                                                       GPO      5667
                          5100000000 X            ALLOC  MLT,X1      ALLOC( MLT , NTL + NPI )                    GPO      5668
          4056  73150                             ALLOC  MOD,X5      ALLOC( MOD , 8*NTL + 16*NPI )               GPO      5669
          4060  5130000000 X                      SA3    O.MLT                                                   GPO      5670
                          5150000027 +            SA5    O.SEQ                                                   GPO      5671
          4061  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
          4062  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
          4063  26644                             UX6    B4,X4                                                   FCC0717    69
                     0440004116 +                 ZR     B4,UPB8     IF NIS[BSW] = 0  */ NO INCREMENTS           FCC0717    70
                               20452              LX4    -BS.STCP                                                FCC0717    71
          4064  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
          4065  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
          4066  73730                             SX7    X3          SC = STC[LI]  */ NEXT ON CHAIN              FCC0717    81
                     20444                        LX4    ML.IIP                                                  FCC0717    82
                          5170000122 C            SA7    SC                                                      FCC0717    83
          4067  0430004115 +                      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
          4070  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
          4071  6120000075               UPB2     SB2    OC.TLD                                                  FCC0717    98
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   144
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                          76660                   SX6    B6                                                      FCC0717    99
                               20522              LX5    IH.CAP                                                  FCC0717   100
          4072  12752                             BX7    X5+X2       R2W = CAIH[C,IT.]                           FCC0717   101
                     10177                        BX1    X7          R2WS = R2W                                  FCC0717   102
                          0100000127 +            RJ     SRI         SRI( TLD  MI,R2W )                          FCC0717   103
                                                                                                                 FCC0717   104
                                        *         OUTPUT STT / LD OF INCREMENT VALUE                             FCC0717   105
                                                                                                                 FCC0717   106
          4073  54551                             SA5    A5+B1       ILI = ILI + 1                               FCC0717   107
                     26725                        UX7    B2,X5       T = TYP[ILI];  R2W = VAL[ILI]               FCC0717   108
                          5132004160 +            SA3    UPBB+B2                                                 FCC0717   109
          4074  76660                             SX6    B6                                                      FCC0717   110
                     0520004100 +                 NZ     B2,UPB3     IF T " 0                                    FCC0717   111
                                                                                                                 FCC0717   112
                               20722              LX7    IH.CAP                                                  FCC0717   113
          4075  7146777773                        SX4    B6-4                                                    FCC0717   114
                          20444                   LX4    IH.RFP      C = VAL[ILI]  */ INC VALUE                  FCC0717   115
                               12747              BX7    X4+X7       R2W = IHW(0,MI-4,C,0)                       FCC0717   116
          4076  63230                             SB2    X3                                                      FCC0717   117
                     0100000134 +                 RJ     SII         SII( STT  MI,MI-4,C )                       FCC0717   118
          4077  0400004111 +                      EQ     UPB6                                                    FCC0717   119
                                                                                                                 FCC0717   120
                                        *         TLD - REPLACE *CA* WITH EQUIVALENT                             FCC0717   121
                                                                                                                 FCC0717   122
          4100  0323004103 +             UPB3     PL     X3,UPB4     IF T < 3                                    FCC0717   123
                          5140000000 X            SA4    O.TET                                                   FCC0717   124
          4101  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
          4102  20722                             LX7    IH.CAP                                                  FCC0717   130
                     12772                        BX7    X7+X2                                                   FCC0717   131
                          0400004105 +            EQ     UPB5                                                    FCC0717   132
                                                                                                                 FCC0717   133
                                        *         LD - SET *IN* FIELD IN R1 WORD                                 FCC0717   134
                                                                                                                 FCC0717   135
          4103  43430                    UPB4     MX4    -IH.CAIHL                                               FCC0717   136
                     11547                        BX5    X4*X7       IH[R1] = RF[R2W]                            FCC0717   137
                          15774                   BX7    -X4*X7      R2W = CAIH[R2W]                             FCC0717   138
                               20566              LX5    R1.INP-IH.RFP                                           FCC0717   139
          4104  12656                             BX6    X5+X6                                                   FCC0717   140
                                                                                                                 FCC0717   141
          4105  63230                    UPB5     SB2    X3          OC = SETX( UPBB(T) )                        FCC0717   142
                     21322                        AX3    18                                                      FCC0717   143
                          0100000141 +            RJ     SMI         SMI( UPBB(T) , R1W , R2W )                  FCC0717   144
                                                                                                                 FCC0717   145
                                        *         OUTPUT INCREMENT OF POLYNOMIAL ( TP = TP + INCV )              FCC0717   146
                                                                                                                 FCC0717   147
          4106  7156777767                        SX5    B6-8                                                    FCC0717   148
                          7146777773              SX4    B6-4                                                    FCC0717   149
          4107  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
          4110  12345                             BX3    X4+X5                                                   FCC0717   154
                     36636                        IX6    X3+X6                                                   FCC0717   155
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   145
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                          0100000134 +            RJ     SII         SII( OC  MI,MI-8,MI-4 )                     FCC0717   156
                                                                                                                 FCC0717   157
          4111  7166777773               UPB6     SX6    B6-4                                                    FCC0717   158
                          6120000076              SB2    OC.TST                                                  FCC0717   159
          4112  10711                             BX7    X1          R2W = R2WS                                  FCC0717   160
                     0100000134 +                 RJ     SII         SII( TST  MI-4,R2W )                        FCC0717   161
          4113  54551                             SA5    A5+B1       ILI = ILI + 1                               FCC0717   162
                     0315004071 +                 NZ     X5,UPB2     IF [ILI] " 0                                FCC0717   163
                                                                                                                 FCC0717   164
                               55401              SA4    A0-B1                                                   FCC0717   165
          4114  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
          4115  5140000122 C             UPB7     SA4    SC                                                      FCC0717   171
                          0314004065 +            NZ     X4,UPB1     IF SC " 0                                   FCC0717   172
  
  
                                        *         SCAN *TET* AND SETUP *TLD*"S OF REMOVED EXPRESSIONS            FCC0717   174
                                                                                                                 FCC0717   175
          4116  5130004156 +             UPB8     SA3    NTL                                                     FCC0717   176
                          0303004152 +            ZR     X3,UPB15    IF NTL = 0                                  FCC0717   177
          4117  5110000102 C                      SA1    TTI                                                     FCC0717   178
                          5140000000 X            SA4    O.TET                                                   FCC0717   179
          4120  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
          4121  63430                             SB4    X3          NT = NTL                                    FCC0717   184
                     5110004165 +                 SA1    UPBC                                                    FCC0717   185
                                                                                                                 FCC0717   186
                                         UPB9     LX5    -T.CAP                                                  FCC0717   187
          4122  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
          4123  20322                             LX3    IH.CAP                                                  FCC0717   192
                     12723                        BX7    X2+X3       R2W = CAIH[CA[TI],IT.]                      FCC0717   193
                          20405                   LX4    59-I.AIPP                                               FCC0717   194
          4124  0324004137 +                      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
                          65301                   SB3    A0-B1       J = MLI - 1                                 FCC2045     4
                               66271              SB2    B7+B1                                                   FCC2045     5
          4125  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
          4126  37564                             IX5    X6-X4                                                   FCC2045    10
                     0335004125 +                 MI     X5,UPB10    IF II[MLW] > R                              FCC2045    11
                               20344              LX3    ML.IIP-ML.MTIP    I = MTI[MLW]                          FCC2045    12
          4127  53232                             SA2    B2+X3                                                   FCC2149     5
                     20352                        LX3    ML.MTIP-ML.NIP    K = NI[MLW]                           FCC2149     6
                                                                                                                 FCC2149     7
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   146
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
          4130  13427                    UPB10A   BX4    X2-X7                                                   FCC2149     8
                     0304004133 +                 ZR     X4,UPB10B   IF MOD(I) = R2W                             FCC2149     9
          4131  7233777776                        SX3    X3-1        K = K - 1                                   FCC2149    10
                          5022000004              SA2    A2+4        I = I + 4                                   FCC2149    11
          4132  0313004130 +                      NZ     X3,UPB10A   IF K " 0                                    FCC2149    12
                          0400004125 +            EQ     UPB10                                                   FCC2149    13
                                                                                                                 FCC2149    14
          4133  55321                    UPB10B   SA3    A2-B1                                                   FCC2149    15
                     73270                        SX2    X7                RESTORE X2                            FCC2149    16
                          15530                   BX5    "RN"X3      RJ = RI[MOD(I-1)]  */ RI OF TLD             FCC0717   206
                               20644              LX6    ML.IIP                                                  FCC0717   207
          4134  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
          4135  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
          4136  54001                             SA0    A0+B1       MLI = MLI + 1                               FCC0717   218
                     0400004147 +                 EQ     UPB13                                                   FCC0717   219
                                                                                                                 FCC0717   220
          4137  55441                    UPB11    SA4    A4-B1       DI = LI - 1                                 FCC0717   221
                     6120000075                   SB2    OC.TLD                                                  FCC0717   222
                               11314              BX3    X1*X4                                                   FCC0717   223
          4140  0313004143 +                      NZ     X3,UPB12    IF STRS[DI] ! PI[DI] " 0                    FCC0717   224
                                                                                                                 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
          4141  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
          4142  54740                             SA7    A4          [DI] = RDT(OC.TLD)                          FCC0717   233
                     0400004151 +                 EQ     UPB14                                                   FCC0717   234
                                                                                                                 FCC0717   235
                                        *         SETUP *MOD* ENTRY FOR *TLD/XMT*                                FCC0717   236
                                                                                                                 FCC0717   237
          4143  5130004157 +             UPB12    SA3    UPBA                                                    FCC0717   238
                          76460                   SX4    B6                                                      FCC0717   239
                               20644              LX6    ML.IIP                                                  FCC0717   240
                                                  LX4    ML.MTIP                                                 FCC0717   241
          4144  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
          4145  76660                             SX6    B6                                                      FCC0717   246
                     0100000127 +                 RJ     SRI         SRI( TLD  R,R2W )                           FCC0717   247
          4146  7156777773                        SX5    B6-4        RJ = MI-4                                   FCC0717   248
                                                                                                                 FCC0717   249
          4147  76660                    UPB13    SX6    B6                                                      FCC0717   250
                     20540                        LX5    R1.RJP                                                  FCC0717   251
                          6120000010              SB2    OC.XMT                                                  FCC0717   252
          4150  43700                             MX7    0                                                       FCC0717   253
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   147
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                     12656                        BX6    X5+X6                                                   FCC0717   254
                          0100000127 +            RJ     SRI         SRI( XMT  MI,RJ )                           FCC0717   255
                                                                                                                 FCC0717   256
          4151  67441                    UPB14    SB4    B4-B1       NT = NT - 1                                 FCC0717   257
                     54551                        SA5    A5+B1       TI = TI + 1                                 FCC0717   258
                          0540004122 +            NZ     B4,UPB9     IF NT " 0                                   FCC0717   259
  
  
                                        *         SET FINAL TABLE LENGTHS AND MERGE THE BLOCKS                   FCC0717   261
                                                                                                                 FCC0717   262
          4152  5110000000 X             UPB15    SA1    O.MLT                                                   FCC0717   263
                          74200                   SX2    A0                                                      GPO      5844
                               76660              SX6    B6                                                      GPO      5845
          4153  5160000000 X                      SA6    L.MOD       L.MOD = MI                                  GPO      5846
                          37721                   IX7    X2-X1                                                   GPO      5847
                               43601              MX6    1                                                       GPO      5848
          4154  5170000000 X                      SA7    L.MLT       L.MLT = MLI - O.MOD                         GPO      5849
                          0100004172 +            CALL   MPB         MERGE, SQUEEZE AND REWRITE BLOCK            GPO      5850
          4155  0400004051 +                      EQ     UPB                                                     GPO      5851
                                                                                                                 GPO      5852
          4156                     1     NTL      BSS    1           N.TET"S IN BLOCK                            GPO      5853
          4157                           UPBA     BSS    0                                                       GPO      5854
          4157  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
                                         INCOP    MACRO  A,B,C                                                   GPO      5861
                                                  VFD    1/C,41/OC.B,18/OC.A                                     GPO      5862
                                                  ENDM                                                           GPO      5863
                                                                                                                 GPO      5864
          4160                           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  40000000000036000075              INCOP  TLD,IA,1                                                GPO      5870
      L      4  40000000000037000075              INCOP  TLD,IS,1                                                GPO      5871
      L   4165                                    LOC    *O                                                      GPO      5872
                                                                                                                 GPO      5873
          4165                           UPBC     BFMW   D,(STRS,PI)   PS , PRS AND PI ( *DEF* MAY *PS* )        GPO      5874
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   148
        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
          4166  5110004277 +             MPB0     SA1    MPBA                                                    GPO      5890
                          0301004172 +            ZR     X1,MPB      IF MPBA = 0   */ NO SQZB CALL               GPO      5891
          4167  43600                             MX6    0                                                       GPO      5892
                     0100000000 X                 CALL   SQZB                                                    GPO      5893
                                                                                                                 GPO      5894
                                                  TRACE  MPB,RLIST                                               GPO      5895
                                                                                                                 GPO      5896
          4170  5110004277 +                      SA1    MPBA                                                    GPO      5897
                          0321004172 +            PL     X1,MPB      IF MPBA > 0                                 GPO      5898
                                                                                                                 GPO      5899
          4171  0100000071 +                      CALL   WTB         WRITE BLOCK BACK TO *BLK*                   GPO      5900
                                                                                                                 GPO      5901
          4172  0200404172 +             MPB      ROUTINE                                                        GPO      5902
          4173  5160004277 +                      SA6    MPBA                                                    GPO      5903
                                                  TRACE  MPB,MLT                                                 GPO      5904
                                                  TRACE  MPB,RLIST,MOD                                           GPO      5905
                          5150000000 X            SA5    L.MOD                                                   GPO      5906
          4174  5140000030 +                      SA4    L.SEQ                                                   GPO      5907
                          7255777767              SX5    X5-8                                                    GPO      5908
          4175  36145                             IX1    X4+X5                                                   GPO      5909
                     5100000001                   ALLOC  TXT,X1      ALLOC( TXT , L.SEQ + L.MOD-8 )              GPO      5910
                                                                                                                 GPO      5911
                                        *         INSERT MOD LIST INFO IN *SEQ*                                  GPO      5912
                                                                                                                 GPO      5913
          4177  5140000027 +                      SA4    O.SEQ                                                   GPO      5914
                          5110000000 X            SA1    O.MOD                                                   GPO      5915
          4200  7176777773                        SX7    B6-4        PTL = OLD(L.TXT) - 4                        GPO      5916
                          6130000003              SB3    3                                                       GPO      5917
          4201  36627                             IX6    X2+X7       TIA = O.TXT + PTL                           GPO      5918
                     5160004301 +                 SA6    TIA                                                     GPO      5919
                               63723              S"TB"  X2+B3       TB = O.TXT + 3                              GPO      5920
          4202  43001                             MX0    1                                                       GPO      5921
                     5130000000 X                 SA3    O.MLT                                                   GPO      5922
                               63643              S"SB"  X4+B3       SB = O.SEQ + 3                              GPO      5923
          4203  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
          4204  0317004205 +            +         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
          4205  0302004212 +                      ZR     X2,MPB2     IF L.MLT = 0                                GPO      5930
                          6252000000              SB5    X2+         N = L.MLT                                   GPO      5931
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   149
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
          4206  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
          4207  67551                   +         SB5    B5-B1       N = N - 1                                   GPO      5937
                     0624004210 +                 GE     B2,B4,*+1   MIA = MIN( II[I] , MIA )                    GPO      5938
                               66420              SB4    B2                                                      GPO      5939
          4210  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
          4211  0550004206 +                      NZ     B5,MPB1     IF N " 0                                    GPO      5944
  
  
                                        *         MOVE INSTRUCTIONS FROM *SEQ* TO *TXT*, INSERT INSTRUCTIONS     GPO      5946
                                        *         FROM *MOD*                                                     GPO      5947
                                                                                                                 GPO      5948
          4212  5120004301 +             MPB2     SA2    TIA                                                     GPO      5949
                          5110000000 +            SA1    DMASK                                                   GPO      5950
          4213  53020                             SA0    X2          TI = TIA                                    GPO      5951
                     73624                        SX6    X2+B4       FIA = TIA + MIA                             GPO      5952
                          5160004300 +            SA6    FIA                                                     GPO      5953
          4214  5156777770                        SA5    "SB"-7      SI = SB-3 - 4                               GPO      5954
                          6140000004              SB4    4                                                       GPO      5955
          4215  0400004222 +                      EQ     MPB4                                                    GPO      5956
                                                                                                                 GPO      5957
                                        *         MOVE INSTRUCTION TO *TXT*                                      GPO      5958
                                                                                                                 GPO      5959
          4216  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
          4217  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
          4220  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
          4221  54004                             SA0    A0+B4       TI = TI + 4                                 GPO      5972
                     54653                        SA6    A5+B3       [SI+3] = R    */ NEW R-NUMBER               GPO      5973
                          0420004237 +            ZR     B2,MPB7     IF OC[SI] = 0 */ END OF SEQ                 GPO      5974
                                                                                                                 GPO      5975
          4222  54554                    MPB4     SA5    A5+B4       SI = SI + 4                                 GPO      5976
                     0325004216 +                 PL     X5,MPB3     IF [SI] \ 0   */ NOT AN INSERT POINT        GPO      5977
                               54253              SA2    A5+B3       LW = [SI+3]                                 GPO      5978
          4223  15650                             BX6    -X0*X5                                                  GPO      5979
                                                  LX2    59-ML.DELP                                              GPO      5980
                     0332004227 +                 MI     X2,MPB5     IF DEL[LW]    */ INST TO BE DELETED         GPO      5981
                                                                                                                 GPO      5982
                               54451              SA4    A5+B1       R2 = SI + 1                                 GPO      5983
          4224  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
          4225  15631                             BX6    -X1*X3                                                  GPO      5988
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   150
        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
          4226  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
          4227  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
          4230  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
          4231  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
          4232  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
          4233  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
          4234  0520004230 +                      NZ     B2,MPB6     IF N " 0                                    GPO      6020
                                                                                                                 GPO      6021
                          0325004222 +            PL     X5,MPB4     IF ^DEL[LW]   */ IF AN INSERT               GPO      6022
          4235  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
          4236  0400004222 +                      EQ     MPB4                                                    GPO      6027
  
  
                                        *         ADJUST R-NUMBERS TO BRING *TXT* TO CANONICAL FORM              GPO      6029
                                                                                                                 GPO      6030
          4237  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
          4240  43055                             MX0    -R1.RIL+1                                               GPO      6034
                     5160000000 X                 SA6    L.TXT                                                   GPO      6035
                               20001              LX0    1                                                       GPO      6036
                                                  TRACE  MPB7,RLIST                                              GPO      6037
          4241  5130004300 +                      SA3    FIA                                                     GPO      6038
                          43102                   MX1    D.TYL                                                   GPO      6039
                               66211              SB2    B1+B1                                                   GPO      6040
          4242  0333004166 +                      MI     X3,MPB0     IF FIA < 0    */ NO MODS TO BLOCK           GPO      6041
                          5243777775              SA4    X3-2        DI = FIA - 2                                GPO      6042
          4243  63553                             SB5    X5+B3       MB = O.MOD + 3                              GPO      6043
                     43600                        MX6    0                                                       GPO      6044
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   151
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
                          5106677777              SA0    "SB"-100000B      MSB = SB - 100000B */ MOD TO SEQ REFS GPO      6045
          4244  56660                             SA6    "SB"        [SB] = 0                                    GPO      6046
                     56650                        SA6    B5          [MB] = 0                                    GPO      6047
                          0400004254 +            EQ     MPB10                                                   GPO      6048
                                                                                                                 GPO      6049
                                        *         ADJUST OPERAND R-NUMBERS OF INSTRUCTION FROM *SEQ*             GPO      6050
                                                                                                                 GPO      6051
          4245  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
          4246  36653                             IX6    X5+X3       RI[R1] = R                                  GPO      6056
                     0314004252 +                 NZ     X4,MPB9     IF TYPE[DI] " I                             GPO      6057
                                                                                                                 GPO      6058
                               20634              LX6    -R1.RJP                                                 GPO      6059
          4247  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
          4250  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
          4251  36653                             IX6    X5+X3       RK[R1] = R                                  GPO      6068
                     6100000000                   SB0    0                                                       GPO      6069
                               20620              LX6    R1.RKP                                                  GPO      6070
                                                                                                                 GPO      6071
          4252  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
          4253  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
          4254  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
          4255  0306004273 +                      ZR     X6,MPB16    IF TYPE[DI] = IV                            GPO      6088
                          0325004245 +            PL     X5,MPB8     IF RW > 0                                   GPO      6089
                                                                                                                 GPO      6090
                                        *         ADJUST OPERAND R-NUMBERS OF INSTRUCTION FROM *MOD*             GPO      6091
                                                                                                                 GPO      6092
          4256  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
          4257  20754                             LX7    -R1.RIL                                                 GPO      6097
                     0327004260 +                 PL     X7,MPB11    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6098
                               64700              SB7    A0                                                      GPO      6099
          4260  53227                    MPB11    SA2    B7+X2       RI[RW] = [B+R]                              GPO      6100
                     11605                        BX6    X0*X5                                                   GPO      6101
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   152
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
                          0314004266 +            NZ     X4,MPB14    IF TYPE[DI] " I                             GPO      6102
                                                                                                                 GPO      6103
          4261  15470                             BX4    "RN"X7                                                  GPO      6104
                     20754                        LX7    -R1.RIL                                                 GPO      6105
                          66750                   SB7    B5                                                      GPO      6106
                               27632              PX6    B3,X2                                                   GPO      6107
          4262  15570                             BX5    "RN"X7                                                  GPO      6108
                     0327004263 +                 PL     X7,MPB12    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6109
                               64700              SB7    A0                                                      GPO      6110
          4263  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
          4264  12626                             BX6    X2+X6                                                   GPO      6115
                     0327004265 +                 PL     X7,MPB13    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6116
                               64700              SB7    A0                                                      GPO      6117
          4265  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
          4266  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
          4267  15730                             BX7    "RN"X3                                                  GPO      6126
                     63470                        SB4    X7                                                      GPO      6127
                          20754                   LX7    -R1.RIL                                                 GPO      6128
                               11303              BX3    X0*X3                                                   GPO      6129
          4270  66750                             SB7    B5                                                      GPO      6130
                     0327004271 +                 PL     X7,MPB15    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6131
                               64700              SB7    A0                                                      GPO      6132
          4271  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
          4272  0400004254 +                      EQ     MPB10                                                   GPO      6137
                                                                                                                 GPO      6138
          4273  0325004274 +             MPB16    PL     X5,MPB17    IF RW > 0                                   GPO      6139
                          14755                   BX7    -X5         [R1] = -RW                                  GPO      6140
                               54750              SA7    A5                                                      GPO      6141
                                                                                                                 GPO      6142
          4274  26635                    MPB17    UX6    B3,X5                                                   GPO      6143
                     0530004254 +                 NZ     B3,MPB10    IF OC[R1] " 0                               GPO      6144
                                                                                                                 GPO      6145
                               43700              MX7    0                                                       GPO      6146
          4275  7160000004                        SX6    4                                                       GPO      6147
                          5170000000 X            SA7    L.MLT       L.MLT = 0                                   GPO      6148
          4276  5160000000 X                      SA6    L.MOD       L.MOD = 4                                   GPO      6149
                          0400004166 +            EQ     MPB0                                                    GPO      6150
                                                                                                                 GPO      6151
          4277                     1     MPBA     BSS    1                                                       GPO      6152
          4300                     1     FIA      BSS    1           FIRST INSERT ADDRESS                        GPO      6153
          4301                     1     TIA      BSS    1           *TXT* INSERT ADDRESS ( O.TXT+OLD(L.TXT)     GPO      6154
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   153
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MBT                 CODE
  
                                        **        MBT - MOVE BLOCK FROM *SEQ* TO *TXT*, CLEAR LINK WORDS.        GPO      6156
                                                                                                                 GPO      6157
          4302  0200404302 +             MBT      ROUTINE                                                        GPO      6158
          4303  5150000027 +                      SA5    O.SEQ                                                   GPO      6159
                          53251                   SA2    X5+B1       R2 = [O.SEQ+1]                              GPO      6160
                                                  LX2    -R2.TXTLP                                               GPO      6161
          4304  7212777773                        ALLOC  TXT,X2-4    ALLOC( TXT , TXTL[R2]-4 )                   GPO      6162
          4306  5110000027 +                      SA1    O.SEQ                                                   GPO      6163
                          6140000004              SB4    4                                                       GPO      6164
          4307  53510                             SA5    X1          R1 = [O.SEQ]                                GPO      6165
                     63230                        SB2    X3                                                      GPO      6166
                          63720                   SB7    X2          TI = [O.TXT]                                GPO      6167
                                                                                                                 GPO      6168
          4310  54451                    MBT2     SA4    A5+B1                                                   GPO      6169
                     54341                        SA3    A4+B1                                                   GPO      6170
                          10655                   BX6    X5                                                      GPO      6171
                               54554              SA5    A5+B4                                                   GPO      6172
          4311  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
          4312  54761                             SA7    A6+B1                                                   GPO      6177
                     10633                        BX6    X3                                                      GPO      6178
                          54671                   SA6    A7+B1                                                   GPO      6179
                               43700              MX7    0                                                       GPO      6180
          4313  54761                             SA7    A6+B1                                                   GPO      6181
                     0520004310 +                 NZ     B2,MBT2     IF I " 0                                    GPO      6182
                                                                                                                 GPO      6183
          4314  0400004302 +                      EQ     MBT                                                     GPO      6184
                                                  QUAL                                                           GPO      6185
                                                                                                                 GPO      6186
                                                  ECHO   2,X=(EBV,FUD,MBT,MPB)                                   GPO      6187
                                                  ENTRY  X                                                       GPO      6188
                                         X        EQU    /CODE/X                                                 GPO      6189
                                                                                                                 GPO      6190
          4322                                    END                                                            GPO      6191
  
                             71500B CM  STORAGE USED            12931 STATEMENTS     1725 SYMBOLS      000035 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            9.972 SECONDS        2950 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW=            0   EXTERNAL*      66/18     74/03    125/19    125/50    135/39    138/52
        AFB            55   PROGRAM*       15/07 L   19/41     22/44     23/08     23/23     24/02     24/20
                                           15/16     22/36     23/03     23/13     23/33     24/16
        AFT=            0   EXTERNAL*      19/29     21/43     22/30
        AMU=            0   EXTERNAL*      15/27
        AN            107   TABLES         84/21 S   86/11     90/49 S   93/04     94/14    106/51
                                           85/04     87/17     91/08     93/38    101/35 S
        AP.USEP        72   FTNTEXT        57/24
        ATS=            0   EXTERNAL*      15/08     21/27     32/06     65/42     98/24    131/25    143/17
                                           19/30     26/24     38/06     74/05    101/19    136/10    148/34
                                           19/32     28/53     41/27     80/12    117/10    136/50    153/07
                                           20/27     31/39     43/45     83/17    123/16    138/45
                                           21/15     31/41     46/18     83/30    125/14    143/16
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   154
        SYMBOLIC REFERENCE TABLE. 
  
        AUT             0   EXTERNAL*      19/37     22/12
        BA.BIP         44                  16/42     16/45     38/21     44/37     47/27     47/43     47/49     48/18
        BA.BLKP        73                  16/45
        BA.FWAP         0                  16/55     44/37
        BA.HBBL         2                  38/20
        BA.HBBP        71                  38/22
        BA.LENP        22                  16/55     47/25     47/27     47/49     48/38     49/03
        BBV            45   PROGRAM*       26/17 S   42/33 S   42/44 S   55/09     59/42
        BH.BSTL        22                  44/07
        BH.BSTP        22                  44/07
        BH.PRIP        72                  44/05     44/07
        BI.BVIL        22   FTNTEXT        29/11     31/44     38/35
        BI.BVIP         0   FTNTEXT        29/11     31/44
        BI.CBP         72   FTNTEXT        29/40     29/43     30/46     44/49     45/49
        BI.FJP         70   FTNTEXT        29/49     29/52     43/41     47/37     65/13     65/20     66/07
        BI.FTHP        65   FTNTEXT        43/26     43/38     43/41
        BI.HNP         66   FTNTEXT        36/19     80/40
        BI.ILP         71   FTNTEXT        19/46     22/37     40/22     45/38     47/45     47/51     65/18     65/20
        BI.OLNL        17   FTNTEXT        33/11     44/40
        BI.OLNP        46   FTNTEXT        33/12     33/19     44/42     44/45
        BI.PBNP        22   FTNTEXT        29/43     29/52     30/10     38/33     48/15     63/33     96/46
        BI.PIIL        21   FTNTEXT        73/11
        BI.PIIP        44   FTNTEXT        73/10
        BI.RBP         73   FTNTEXT        29/49     45/38     47/51     63/33     65/18     96/46
                                           43/26     47/37     48/15     65/13     66/07
        BN             31   PROGRAM*       16/46 S   34/05 S   42/41 S   59/40     96/04    124/20 S
        BSI            32   PROGRAM*       16/41 S   21/03 S   44/23 S   48/51 S   49/34 S   67/27 S
                                           17/09     39/30 S   44/25     48/57     64/28     83/07 S
                                           20/50 S   42/32 S   47/18 S   49/20     65/51 S
        BSIS          106   TABLES         65/05 S   65/48     66/06     67/24
        BSW            33   PROGRAM*       16/44 S   17/10     96/12 S   98/26    123/08    143/27
                                           17/04     68/17     98/09    104/10    135/33
        BS.BMP         57                  28/09
        BS.IICL        22                  27/47
        BS.IICP         0                  27/47
        BS.NISL        12                  28/09
        BS.NISP        60                  28/09
        BS.NTETL       13                  28/09    143/08
        BS.NTETP       44                  28/09    123/11    143/09
        BS.STCL        22                  27/30     27/57
        BS.STCP        22                  27/30     27/57     96/07     98/11     98/15     98/34    134/10    143/30
        BVI           103   TABLES
        BVL             2   BVINFO         53/08     63/36     73/09     78/07     84/24
                                           59/49     68/22     77/06     80/09
        B1=1            0 
        CAS           120   TABLES        125/28 S  125/53    126/38 S  127/26    132/35    136/11    136/25 S
        CBN             2   PROGRAM*       22/41     23/29     24/15     29/13
        CII             0   EXTERNAL*      21/42     34/06
        CMO             0   EXTERNAL*      87/25     87/28     87/32    106/54    106/57    107/04
        CMR             0   EXTERNAL*      19/36
        CNI           121   TABLES        126/25 S  126/47    127/38 S
        COL           154   PROGRAM*       19/23 E   19/23 L   21/47
        COLA          152   PROGRAM*       19/20 L
        CUC             0   EXTERNAL*      72/09
        CWS=            0   EXTERNAL*      24/26
        CXB             0   EXTERNAL*      46/47
        DGS             0   EXTERNAL*      22/16
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   155
        SYMBOLIC REFERENCE TABLE. 
  
        DMASK           0   PROGRAM*      117/15    132/25    149/19
        DVA             3   GPOGRA         20/07     20/33     24/06 S   39/10     43/14     78/12     96/20
        D.BML           1   FTNTEXT        75/09
        D.BMP          52   FTNTEXT        75/09
        D.FPP          25   FTNTEXT        18/20
        D.INCP         22   FTNTEXT        17/49     99/14    101/26    102/49    112/34    112/39    118/02    118/06
        D.LDL           1   FTNTEXT        75/09
        D.LDP          43   FTNTEXT        55/45     56/06     69/33     75/09     76/09    111/12    111/14    132/19
        D.LSJL          3   FTNTEXT        55/13
        D.LSJP         41   FTNTEXT        55/20     55/30     57/03     57/46     57/55     58/23     58/39
        D.L2P          44   FTNTEXT        18/24     69/22
        D.PIL           1   FTNTEXT       147/42
        D.PIP          36   FTNTEXT       147/42
        D.PRSP         46   FTNTEXT       114/32    118/13    118/31
        D.PSP          47   FTNTEXT        69/31     69/33     70/07    114/23
        D.RFP          23   FTNTEXT        71/30     85/56    102/44    113/47
        D.STP          42   FTNTEXT        56/06     70/16
        D.STRSL         2   FTNTEXT       109/34    114/04    147/42
        D.STRSP        46   FTNTEXT       109/35    114/03    114/07    147/42
        D.TYIOL         2   FTNTEXT       115/53
        D.TYIOP        50   FTNTEXT       115/54
        D.TYL           2   FTNTEXT       121/22    140/05    150/52
        D.TYP          72   FTNTEXT        56/33    111/14    115/35    115/54    118/31
        D.USESL        11   FTNTEXT        69/14    113/22
        D.USESP         0   FTNTEXT       115/11
        D.USIP         33   FTNTEXT        85/05     87/37    107/12
        D.XMTP         40   FTNTEXT       114/25
        D.ZPP          32   FTNTEXT        89/24    111/12    114/23    118/06    118/43
                                          111/10    114/07    114/25    118/13
        D.^DP          51   FTNTEXT        69/16     69/31     70/16    115/35    122/41    150/30
        EBV          1256   PROGRAM*      153/34 E  153/34 D
        EIT            41   PROGRAM*       35/11 S   64/30     78/46
        EI.NPP         36                  35/18     79/24
        EI.PRIP        52                  64/37
        EI.SUIP        14                  64/43     79/06
        EMF            13   GPOGRA         28/23 S   46/13 S   49/36     49/45
        EPSI           33   GPOGRA         20/38 S   81/19
        ESR             0   EXTERNAL*      21/01     49/47
        ESRA            0   EXTERNAL*      49/37
        ET.JPP         73                  79/38
        ET.PREDP       36                  64/41
        ET.SUCCP        0                  79/38
        EV            124   TABLES        134/28 S  136/19    136/51
        E.ALLPP        71                  81/25
        E.BIL          17                  80/29     81/01
        E.BIP           0 
        E.JPP          72                  78/53     79/38     81/13
        E.LINKL        22 
        E.LINKP        17                  79/33     81/30
        E.NPREDL       11                  79/18     80/35
        E.NPREDP       60                  79/19     79/30     79/33     79/41     80/36
        E.PREDL        17 
        E.PREDP        41                  79/30
        E.SCRP         73                  78/53     79/19
        FBV             0   EXTERNAL*      23/49
        FI.FTL          6   FTNTEXT        56/46     70/29     93/10
        FI.FTP         66   FTNTEXT        56/47     70/30     93/11
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   156
        SYMBOLIC REFERENCE TABLE. 
  
        FI.INDXP        0   FTNTEXT        56/40
        FI.LENP        22   FTNTEXT        56/43     56/47
        FI.REGPP       44   FTNTEXT        56/40     56/43
        FTH            54   PROGRAM*       39/55 S   43/21
        FUD          1307   PROGRAM*       60/05 F  153/34 E  153/34 D
        F.CFA           0   EXTERNAL*      22/14
        F.RDT           0   EXTERNAL*      17/31     18/07     49/10    117/28    131/41
                                           17/43     26/25     71/36    121/27    146/34
        F.UDT           0   EXTERNAL*      22/10
        GBD             0   EXTERNAL*      37/30
        GB.ILIP         0                  35/27
        GB.NLPP        44                  35/27
        GIC             6   PROGRAM*       37/18
        GMB             0   EXTERNAL*      34/01
        GP             40   PROGRAM*       22/25 S   35/08     37/10     37/26
        GPO           265   PROGRAM*       22/04 E   22/04 L   34/13
        GRA             0   EXTERNAL*      28/14
        HBI            47   PROGRAM*       28/32 S   39/40 S   41/17     43/13     44/39     78/06
                                           38/19 S   40/17     42/36     43/35     77/05
        H.HBIL         22 
        H.HBIP         22                  80/56     81/05
        H.HNIL         22 
        H.HNIP          0 
        H.NIPL         22 
        H.NIPP         44                  81/05
        IA.CAL         22                 127/03
        IA.CAP         22                 126/36    127/02    132/37    136/22
        IA.NWDL        14 
        IA.NWDP        60 
        IA.UDIL        22 
        IA.UDIP         0 
        IBA            43   PROGRAM*       28/36     36/49     39/34     46/19     78/23
                                           35/26 S   38/11     45/13     46/51
        IB.ILDL        22 
        IB.ILDP         0 
        IB.NLDL        14 
        IB.NLDP        60 
        IC            115   TABLES        117/08 S  122/28
        IH.CAIHL       44   FTNTEXT       111/19    112/22    137/07    144/38
        IH.CAL         22   FTNTEXT        99/24    110/32    110/34    111/34    140/36
        IH.CAP         22   FTNTEXT        71/08     91/41    110/16    120/49    125/26    141/27    144/27
                                           71/14     99/25    110/31    123/30    137/54    144/02    144/32
                                           71/19    106/17    110/37    125/06    138/55    144/15    145/38
        IH.IHP          0   FTNTEXT        70/56     71/08     71/11     71/19     87/50     95/46    109/23
        IH.RFP         44   FTNTEXT        70/51     85/51     94/08    109/23    117/32    131/04    138/32    151/34
                                           70/56     86/21     95/46    110/37    118/35    132/14    144/17    152/23
                                           71/11     86/55     99/54    111/51    122/11    132/21    144/41    152/34
                                           71/14     87/50    105/23    115/36    122/18    137/11    151/28
        IIL           113   TABLES         98/08     98/31 S
        IJP           111   TABLES         84/43 S   90/43 S   96/55
        IMPB            0   EXTERNAL*      22/08
        IMPC            0   EXTERNAL*      25/12
        IMPD            0   EXTERNAL*      19/51
        IM.APLNL        2                  84/33     84/35    101/34
        IM.APP         72                  84/20     91/10
        IM.BIL         22                  38/27     46/17
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   157
        SYMBOLIC REFERENCE TABLE. 
  
        IM.BIP         44                  35/44     38/30     38/46     45/34     64/57     73/08     79/53
                                           36/10     38/33     45/20     46/24     68/19     79/51     84/23
        IM.BNP          0                  64/57     78/40     79/48     79/53
        IM.HNP         66                  78/40     79/48     79/51
        IM.LNP         71                  91/10
        IM.SCRP        73                  36/10     46/10
        IP.FTP         72                  39/53
        IP.GLP         73                  39/53
        IP.NODEL       22                  35/46
        IP.PBP         22                  36/16     38/16
        ISV           116   TABLES        119/21 S  119/35
        ITB           127   TABLES        125/21 S  125/52    134/25 S  135/27
        ITL            14   GPOGRA         39/20 S   51/05
        IT.             0   EXTERNAL*      85/37    120/45    137/53    138/50    143/21
        I.AIPP         66                 102/14    145/40
        I.AP       200000   FTNTEXT        95/50
        I.COSTL        11                 101/29    102/26
        I.COSTP        55                 101/31    102/26    105/54    106/29    108/36    113/48
        I.C1P          55                 102/28
        I.GL       100000   FTNTEXT        40/09     42/12     43/49     65/28
        I.HBPL         22                 133/07
        I.HBPP          0                 133/07    143/39
        I.IAIPL         2 
        I.IAIPP        67                 110/48
        I.IAP          70                  89/40     95/15     95/18    109/06    109/10    109/24    111/41
        I.IICL         22                 102/27
        I.IICP         22                  85/14     93/22    104/13    113/37    114/54    117/53    119/54
                                           92/34     93/30    104/35    114/46    115/08    118/52    122/40
                                           92/50    102/27    104/47    114/50    115/11    119/23
        I.INVP         73                  95/15    109/06    113/48    114/46    130/02
        I.IO       300000   FTNTEXT        95/47
        I.IPP          67                 102/26    102/29    105/50    106/44    109/44
                                          102/28    105/10    106/10    108/13    109/46
        I.LDIL         22                 102/26    102/27    102/29
        I.LDIP          0                  95/18    101/48    102/26    102/27    102/29
        I.MP           72                 128/44    129/35    129/54    130/36    130/45    131/08
                                          128/47    129/51    130/02    130/42    130/50    133/07
        I.STCL         22 
        I.STCP         22                  95/29     98/44     98/54    102/07    135/47    135/51    143/39
        I.TIP          71                 115/19    118/04    118/09    118/41    118/48    119/45
        I.USESL        11 
        I.USESP        44                 113/35    113/37    114/54    115/11    115/29
        J             123   TABLES        134/31 S  135/19
        LCV            21   GPOGRA        112/31 S  125/31
        LC.GLNP        22   FTNTEXT        40/31
        LC.NEXTP       44   FTNTEXT        40/53     41/01
        LEA             7   GPOGRA         42/54     77/07     94/27     94/56
        LGL            16   GPOGRA         39/23 S   40/14 S   41/21     90/10     90/29     91/09
        LIH            25   GPOGRA         39/41 S   41/33 S   42/07     90/04     90/23    110/09
        LINENR          0   EXTERNAL*      39/44 S
        LM              0   EXTERNAL*      15/11 S   15/26     21/33 S
        LTT            30   GPOGRA        112/33 S
        LUL            23   GPOGRA        111/42 S
        LUV             4   GPOGRA         63/37
        LWAWORK         0   EXTERNAL*      29/03 S
        LXA             6   GPOGRA         80/16
        L.ALS           0   EXTERNAL*      20/52
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   158
        SYMBOLIC REFERENCE TABLE. 
  
        L.BIT          16   PROGRAM*       22/50 S   31/47
        L.BLK           0   EXTERNAL*      19/39 S   21/37 S
        L.BST           0   EXTERNAL*      21/39 S   22/49     22/56 S   39/05 S   42/27     44/20 S
        L.BVT          20   PROGRAM*       23/40 S   42/53     59/50
        L.CFT           0   EXTERNAL*      33/41 S
        L.ELT          26   PROGRAM*       65/30
        L.GST           0   EXTERNAL*      22/20
        L.HB           34   PROGRAM*       83/14     83/46 S
        L.HNT          37   PROGRAM*       36/31 S   80/46
        L.IIT           0   EXTERNAL*      21/40 S   27/31     42/31 S   98/14 S  134/19    135/26
        L.LCO          14   FTNTEXT        40/46
        L.LCT          24   PROGRAM*       23/01     40/33
        L.MLT           0   EXTERNAL*      49/48    147/17 S  148/49    152/47 S
        L.MOD           0   EXTERNAL*      28/01     65/57     83/15     83/22     83/26 S  147/14 S  148/30    152/48 S
        L.PIT           0   EXTERNAL*      33/57 S   34/10 S
        L.PSI           0   EXTERNAL* 
        L.PTXT         22   PROGRAM*
        L.RND           0   EXTERNAL*     101/24 S  127/50 S  128/15
        L.RXI           0   EXTERNAL*      23/36
        L.SBV          21   PROGRAM*       23/57 S   39/09
        L.SEQ          30   PROGRAM*       16/57 S   21/14     21/26     64/11    101/17    148/31
        L.TET           0   EXTERNAL*      21/46 S   31/42     39/17     51/25    117/13    123/04    137/51
        L.TXT           0   EXTERNAL*      15/37 S   21/07     34/11 S   67/31 S  121/21 S  138/18
                                           15/46     21/38 S   48/30 S   83/12 S  124/26    139/03 S
                                           15/56 S   28/08 S   67/28 S   83/41    127/48 S  150/48 S
        L.UDI           0   EXTERNAL*      23/12     23/19 S
        L.UDT           1   GPOGRA         23/16 S
        MAXW           34   GPOGRA         20/44 S   46/38 S   50/01
        MBT          4302   PROGRAM*      153/34 E  153/34 D
        MCG             0   EXTERNAL*      21/21
        MDA            10   GPOGRA         78/13     80/17
        MINC          114   TABLES         27/46 S  113/18
        MIP.JT       3745   PROGRAM*      102/24    141/57 D
        ML.IIP         44   FTNTEXT        66/13     73/53    143/41    145/50    145/54    146/11    146/44    149/02
        ML.MTIP         0   FTNTEXT       145/54    145/56    150/13
        ML.NIP         22   FTNTEXT        66/14     74/01     74/04    145/12    145/56    146/16    147/24    150/13
        MOREFL          0   EXTERNAL*      24/53
        MPB          4172   PROGRAM*      153/34 E  153/34 D
        MRA            15   GPOGRA         27/38     39/14 S   56/38     63/26     93/48 S
        MRA.X          51   PROGRAM*       39/15 S   63/30     93/46
        MU              0   EXTERNAL*      15/38 S
        MVE=            0   EXTERNAL*      20/36     21/30     22/54     23/43     65/45     83/24
                                           21/18     22/26     23/17     43/19     83/21    138/48
        MX.BLN          0   EXTERNAL*      25/10 S
        M.BBL          12   PROGRAM*       24/37
        M.EBL          13   PROGRAM*       24/36 S   47/15
        M.GRL           4   PROGRAM*
        M.LP           10   PROGRAM*       24/18
        M.PL           12   GPOGRA         31/38
        NBIP           46   PROGRAM*       28/33 S   39/25 S  127/39 S
        NN             44   PROGRAM*       35/31 S   38/04
        NPB             3   PROGRAM*       29/21     31/48
        NTP           100   TABLES         27/50     27/54     39/22 S  123/21    124/11 S
        N.CLC          21                  39/16
        N.DG            5   PROGRAM*
        N.EBB          35   GPOGRA         46/39 S   50/02
        N.ENL          32   GPOGRA         80/02 S
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   159
        SYMBOLIC REFERENCE TABLE. 
  
        N.FTH          11   PROGRAM*       23/06
        N.GL            0   EXTERNAL*      28/50
        N.GL0           1   PROGRAM*       28/49     40/04     40/30     43/46
        N.GT           14   PROGRAM*       21/41 S   21/45 S   51/06
        N.HB           17   GPOGRA         39/16 S   63/17
        N.IT            0   EXTERNAL*      33/38 S
        N.LJ           27   GPOGRA         90/09     90/28     91/04    110/08
        N.LP           42   PROGRAM*       28/17     35/29 S
        N.SBV           7                  23/54
        N.VAR           1   BVINFO         23/21     52/06
        OC.BOS          1   FTNTEXT        26/25
        OC.DEF          5   FTNTEXT        74/21     93/35    118/11    119/28    119/41
        OC.EOQ          0   FTNTEXT        67/21
        OC.EOS          2   FTNTEXT        49/09
        OC.FMA         43   FTNTEXT       100/07
        OC.IA          36   FTNTEXT        99/41    130/25    147/36    147/38
        OC.IM         101   FTNTEXT       129/40
        OC.IS          37   FTNTEXT        89/19    110/41    147/37    147/39
        OC.JIN         70   FTNTEXT        70/27
        OC.KLS         20   FTNTEXT       106/15
        OC.LAB          6   FTNTEXT        41/29     73/50     84/49
        OC.LD          50   FTNTEXT        85/36     89/31    112/13    138/27    147/37
                                           86/18     99/48    137/09    147/36
        OC.NOP         46   FTNTEXT        71/36     71/37
        OC.RJ3         71   FTNTEXT        70/19     70/22
        OC.RJ6         72   FTNTEXT        70/22     76/15
        OC.RS           4   FTNTEXT       122/35
        OC.S           55   FTNTEXT       100/03    111/29    137/01    147/35
        OC.SA          60   FTNTEXT        74/32    119/51
        OC.ST          51   FTNTEXT        74/41
        OC.STT         52   FTNTEXT        99/20    110/26    131/11    147/35
        OC.TLD         75   FTNTEXT        85/42    143/57    146/26    147/38    147/39
        OC.TST         76   FTNTEXT       120/43    124/28    137/50    145/04
        OC.UJP         73   FTNTEXT        43/48
        OC.UP          26   FTNTEXT       130/10
        OC.XMT         10   FTNTEXT        74/30    117/29    119/48    130/22    136/54    138/35
                                          117/28    119/13    129/11    131/14    137/47    146/56
        OC.XMTC        14   FTNTEXT       130/28    136/37    137/14    138/38
        OF.MP           3                   2/41 D   42/23
        OPT2            0   EXTERNAL*      23/44     24/10
        O.API           0   EXTERNAL*      95/49
        O.BIT          15   PROGRAM*       22/45 S   32/42     40/18     45/14     63/36     73/09     78/47     96/39
                                           29/14     35/41     43/12     47/14     64/18     77/06     80/15
                                           31/46     38/12     44/27     59/41     68/22     78/07     84/24
        O.BLK           0   EXTERNAL*      21/34 S
        O.BST           0   EXTERNAL*      16/30     17/08     22/51     44/26     47/13     48/56     64/27
        O.BTT          35   PROGRAM*       24/17 S   35/39     78/26
        O.BVT          17   PROGRAM*       20/05     27/17     59/51     61/40     66/26     73/09     78/07     84/24
                                           23/34 S   42/52     60/45     63/36     68/22     77/06     81/29     96/48
        O.ELT          25   PROGRAM*       23/09 S   65/24
        O.ENL          31   GPOGRA         80/01 S   80/18
        O.GLT           0   EXTERNAL*      28/54
        O.GST           0   EXTERNAL*      22/21
        O.HNT          36   PROGRAM*       24/21 S   35/40     80/47
        O.IIT           0   EXTERNAL*     126/17    134/18    135/15    135/16    137/19    143/31
        O.IST           7   PROGRAM*       22/22
        O.LCT          23   PROGRAM*       23/04 S   40/34
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   160
        SYMBOLIC REFERENCE TABLE. 
  
        O.MLT           0   EXTERNAL*     143/18    147/11    148/46
        O.MOD           0   EXTERNAL*      67/14     83/23    148/39    150/46
        O.MVL           2   GPOGRA         23/24 S   52/22     55/16     60/09     61/08
        O.PIT           0   EXTERNAL*      33/48     34/02
        O.PSI           0   EXTERNAL*      73/17     74/06
        O.RND           0   EXTERNAL*     104/04    128/14    131/27
        O.RXI           0   EXTERNAL*      23/37
        O.SEQ          27   PROGRAM*       16/16     21/29     49/08     65/44     83/20    135/17    153/04
                                           16/54 S   39/33     63/16     65/56     98/25    135/40    153/08
                                           17/06     42/37     63/50     68/20    101/21    143/19
                                           21/17     44/02     65/23     73/45    117/11    148/38
        O.SYM          12                   2/03 D   18/13     40/39     42/18
        O.TEND          0   EXTERNAL*      29/04 S
        O.TET           0   EXTERNAL*      32/07     51/07    124/40    126/16    144/26
                                           32/43     91/35    125/55    135/03    145/25
        O.TXT           0   EXTERNAL*      15/35 S   21/35 S   49/27     75/36    123/17    124/27    125/42    138/24
                                           15/45     41/20     67/13     83/44    124/17    125/23    131/26    138/46
        O.UDB           0   //             19/13 L   19/31 S   19/42 S   19/48 S   20/04     21/32
        O.UDI           0   EXTERNAL*      23/14
        O.UDT           0   GPOGRA         23/15 S   33/47     52/05     55/06     73/18     84/28    101/20
                                           30/31     42/09     53/09     69/09     75/35     98/27
        PARCEL          0   EXTERNAL*      19/26     21/10 S   31/37 S
        PCC           101   PROGRAM*       16/20 E   16/35     20/40     27/21     27/30     27/47     28/09     46/43
                                           16/20 L   19/56     27/10     27/25     27/36     27/57     46/41     46/47
        PCCA           77   PROGRAM*       16/16 L   16/21     16/34
        PCC1          106   PROGRAM*       16/30 L   17/17
        PCC2          112   PROGRAM*       16/36     16/40 L
        PCC3          117   PROGRAM*       16/47     16/52 L
        PCC4          121   PROGRAM*       16/50     17/03 L
        PCC5          122   PROGRAM*       16/25 S   17/06 L
        PCC6          126   PROGRAM*       16/38     17/16 L
        PI            125   TABLES        134/46 S  135/18    137/20
        PIC           101   TABLES         27/33 S  126/18    134/32
        PI.CAL         22 
        PI.CAP         22                 127/27
        PI.CNL         22 
        PI.CNP         44                 127/32
        PI.LFL         22 
        PI.LFP          0 
        PI.MIPP        73                 126/45
        PL             36   GPOGRA
        PRE             0   EXTERNAL* 
        PS.CAIHL       44                  74/33     74/38
        PS.CAIHP        0 
        PS.REGL         6                  74/15
        PS.REGP        66                  74/18
        PS.UDIL        22 
        PS.UDIP        44                  73/31     74/40    111/23    112/27    125/35
        PUNT            0   EXTERNAL*      24/57
        P2.FL           0   EXTERNAL*      15/29
        P.FLG          60   FTNTEXT        42/23
        P.LC           17   FTNTEXT        40/44     40/48
        RBS             0   EXTERNAL*      44/52     49/19     65/47
        RCV             3   BVINFO         27/15
        RIO             0   EXTERNAL*      49/57
        RI.LENP        47                  33/52     33/56     37/27     37/29     38/48
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   161
        SYMBOLIC REFERENCE TABLE. 
  
        RTB             0   EXTERNAL*      16/49     21/04     42/35     49/07     65/52     83/13
                                           20/51     39/31     43/57     49/44     74/54
        R1.H2L         14   FTNTEXT       124/36
        R1.H2P         22   FTNTEXT        84/35    101/34    124/37
        R1.INL         22   FTNTEXT       100/04
        R1.INP         36   FTNTEXT        39/42     70/38     89/32    100/05    111/20    132/42    138/28
                                           55/47     74/43     94/06    102/03    111/30    134/29    141/12
                                           56/08     75/50     99/01    102/37    112/12    137/02    141/17
                                           69/42     85/49     99/52    105/21    132/34    137/11    144/41
        R1.RIL         20   FTNTEXT        17/03    116/06    124/19    151/53    152/11
                                           68/18    117/18    150/47    152/04    152/27
        R1.RJP         40   FTNTEXT        74/28     89/04    106/39    111/04    118/32    130/34    140/19    152/19
                                           86/30     99/32    107/19    111/56    120/35    131/54    140/21
                                           86/32     99/39    108/05    112/04    121/48    131/57    144/53
                                           87/08    105/44    108/07    117/37    121/55    132/04    146/55
                                           87/10    106/04    110/52    117/42    129/23    137/45    151/15
                                           89/02    106/37    110/56    117/45    130/30    138/11    151/20
        R1.RKP         20   FTNTEXT        86/32     89/04    108/07    112/04    122/05    131/57    144/55    152/13
                                           86/44     99/39    110/56    117/42    129/21    132/06    151/20
                                           87/10    106/39    111/04    121/55    129/23    140/21    151/26
        R1.SOP         20   FTNTEXT        74/18     92/06     92/20    114/18    118/21    122/36
                                           74/24     92/19     92/24    114/39    119/49
        R2.MRAP        22                  63/27
        R2.TXTLL       22                  15/48
        R2.UXRP        73                  63/27
        SC            122   TABLES        101/54    102/54 S  134/13 S  135/45    143/42 S  145/16
        SETCORE         0   EXTERNAL*      19/31     22/55     39/11
        SHL             0   EXTERNAL*      32/34
        SIE             0   EXTERNAL*     138/16
        SII           134   PROGRAM*       17/42 L   17/54    144/20    145/01    145/06
        SMI           141   PROGRAM*       18/06 L   18/31     74/47    137/18    144/46
        SO.INVCP       11   FTNTEXT        92/20
        SO.LKL          2   FTNTEXT        92/05    122/32
        SO.LKP          6   FTNTEXT        92/06     92/19    114/39    118/21    122/36
        SO.RTL          3   FTNTEXT        92/23
        SO.RTP          3   FTNTEXT        74/24     92/24
        SPC           151   PROGRAM*       19/16 L   19/28 S   21/06
        SQZB            0   EXTERNAL*      49/35     83/40    148/17
        SRI           127   PROGRAM*       17/30 E   41/35     67/20     74/35    137/56    144/05
                                           17/30 L   43/52     67/23     83/35    138/02    146/51
                                           17/40     43/55     74/25    137/49    138/14    147/02
        STLDS           0   EXTERNAL*      75/30
        STO            62   PROGRAM*       15/25 L   15/39     22/11     22/15     22/28
        STO1           66   PROGRAM*       15/31     15/34 L
        STP            37   GPOGRA        125/39 S
        SUVA            0   EXTERNAL*      75/17 S   75/28 S
        SVA            11   GPOGRA         68/34     75/12     75/33
        TBB           117   TABLES        117/22 S  121/23
        TEST            0   FTNTEXT        25/14 F
        TSC           121   TABLES        125/12 S  125/18    125/41    126/10
        TTI           102   TABLES         39/21 S  145/24
        TYIOM           0   EXTERNAL*     115/56
        T.BIP          22   FTNTEXT       120/57    145/35
        T.BIPP         66   FTNTEXT       126/41    126/45
        T.CAL          22   FTNTEXT        32/41     51/35     51/37    123/20
        T.CALP         70   FTNTEXT        51/17
        T.CAP           0   FTNTEXT       145/35
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   162
        SYMBOLIC REFERENCE TABLE. 
  
        T.EQVP         72   FTNTEXT        32/17
        T.FAP          71   FTNTEXT        32/47
        T.HBNL         22   FTNTEXT        32/09
        T.HBNP         44   FTNTEXT        32/11     32/50
        T.IPFL         23   FTNTEXT        51/32    135/04
        T.IPFP         44   FTNTEXT        51/34    135/06
        T.ITIP         44   FTNTEXT       126/03
        T.REGL         22   FTNTEXT        51/14
        T.REGP         22   FTNTEXT        51/15
        UBD           110   TABLES         84/26 S   94/26     96/18
        UD.BMIP        24                  59/27
        UD.CBL          2                  58/32
        UD.CBP         22                  56/18     56/22     57/33     57/37     58/11     58/14     58/37
        UD.CMP         23                  54/28
        UD.CRP         22                  54/27     55/57     56/28     57/41     58/16
                                           55/57     56/28     57/41     58/16     58/37
        UD.DBUP        71                  56/24     57/30     60/30     60/35     62/17     62/21
        UD.DEFBL        2                  56/12
        UD.DEFP        72                  54/25     54/27     54/29     60/30     62/17
                                           54/26     54/28     60/26     62/13
        UD.DEFRP       73                  54/24     54/25     54/26     86/09     95/57
        UD.ECLP         0                  55/57     56/28     57/41     58/16
        UD.ISTP        66                  54/25     54/26     54/29     86/09
        UD.MVL          3                  19/53     26/18     42/45     55/57     57/41
                                           19/54     26/19     42/46     56/28     58/16
        UD.MVP         70                  19/54     42/46     55/57     57/03     57/46     58/16     58/39
                                           26/19     55/30     56/28     57/41     57/55     58/23
        UD.RFP         54                  52/17     86/01    102/39
        UD.SMSL         2                  54/24
        UD.SMSP        55                  54/24
        UD.STCL        11                  94/20     95/57
        UD.STCP        55                  28/30     42/38     54/21     56/16     56/24     94/21     95/57
        UD.USEP        70                  54/26     55/57     56/26     57/15     57/26     57/39     58/14     60/35
                                           55/51     56/22     56/28     57/22     57/33     57/41     58/16     62/21
        UD.^RDP        67                  42/15     54/25     54/29     95/13     95/57    105/26
                                           54/24     54/26     89/35     95/39     99/03    112/16
        UIC           112   TABLES         85/09 S
        UOFLAG          0   EXTERNAL*      86/14
        UVA             5   GPOGRA         94/30
        UXR            52   PROGRAM*       27/11     39/24 S   52/18     55/21 S   57/52 S   60/43     61/39     63/24 S
        VI2           104   TABLES         65/39 S   66/24     73/20 S   74/51     75/15 S   75/29
        VL              0   BVINFO         20/06     23/53     42/51     75/13     94/48
                                           23/30     24/03     66/25     75/34     96/19
        WMB             0   EXTERNAL*      15/54     67/29     83/49
        WTB            71   PROGRAM*       15/44 L   15/57     43/56     49/40     50/08     72/10    148/24
        XRF            20   GPOGRA         27/14 S   56/50     93/40
        Z.BLK           0   EXTERNAL*      15/08     19/30
        Z.BST           0   EXTERNAL*      38/06     46/18
        Z.CFT           0   EXTERNAL*      32/06
        Z.IIT           0   EXTERNAL*      98/24    125/19    125/50    131/25    135/39    136/10
        Z.MLT           0   EXTERNAL*      66/18     74/03    143/16
        Z.MOD           0   EXTERNAL*      65/42     74/05    138/45    143/17
        Z.PIT           0   EXTERNAL*      21/15     21/27     31/39
        Z.RND           0   EXTERNAL*     101/19    125/14
        Z.RXI           0   EXTERNAL*      20/27     80/12
        Z.TEND          0   EXTERNAL*      28/53
        Z.TET           0   EXTERNAL*     123/16    138/52
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   163
        SYMBOLIC REFERENCE TABLE. 
  
        Z.TXT           1                   2/03 D   41/27     83/17    117/10    153/07
                                           31/41     43/45     83/30    148/34
        Z.UDI           0   EXTERNAL*      19/32
  
  
  
  
                                                  SYMBOL QUALIFIER =  CODE
  
  
        ATT          1226   PROGRAM*       28/10     51/04 L   51/28     51/48
        ATT2         1233   PROGRAM*       51/19 L   51/23
        ATT3         1235   PROGRAM*       51/10     51/25 L
        ATT4         1240   PROGRAM*       51/39 L   51/46
        AUV          2026   PROGRAM*       67/09     74/53     75/11 L   75/31     76/21     76/38
        AUVA         2025   PROGRAM*       75/09 L   75/42
        AUV1         2033   PROGRAM*       75/22 L   75/24
        AUV2         2045   PROGRAM*       75/50 L   76/11
        AUV3         2050   PROGRAM*       75/46     75/52     76/06 L   76/10     76/16
        AUV4         2055   PROGRAM*       76/14     76/25 L   76/35
        BCM          1300   PROGRAM*       19/55 S   26/20 S   28/34 S   42/40 S   42/47 S   54/22 L   61/09
        BI.BEFL        22                  29/11 D   29/15
        BI.BEFP         0                  29/11 D   30/46
        BI.MAXTL       22                  31/44 D   31/51
        BI.MAXTP        0                  31/44 D
        BSIL         1224   PROGRAM*       47/10 S   47/12     48/50 S   49/21     49/31     50/10     50/15 L
        CBB          1125   PROGRAM*       28/12     46/45     47/08 L   47/23
        CBB1         1127   PROGRAM*       47/12 L   50/13
        CBB10        1207   PROGRAM*       48/52     49/44 L
        CBB11        1215   PROGRAM*       49/49     49/54 L
        CBB13        1216   PROGRAM*       49/39     49/52     49/56 L
        CBB14        1221   PROGRAM*       50/04     50/06 L
        CBB15        1222   PROGRAM*       48/47     50/10 L
        CBB2         1136   PROGRAM*       47/36 L   47/53
        CBB3         1145   PROGRAM*       47/30     47/56 L
        CBB3A        1146   PROGRAM*       47/38     48/02 L
        CBB3B        1151   PROGRAM*       47/52     48/15 L
        CBB4         1154   PROGRAM*       47/39     47/46     48/03     48/09     48/25 L
                                           47/42     47/54     48/07     48/21
        CBB5         1155   PROGRAM*       47/57     48/27 L
        CBB6         1157   PROGRAM*       48/36 L   48/45
        CBB7         1162   PROGRAM*       48/40     48/45 L
        CBB8         1165   PROGRAM*       48/42     48/56 L   49/25
        CBB9         1176   PROGRAM*       49/05     49/20 L
        CBT          1044   PROGRAM*       44/10     44/21 L   44/36     46/49
        CBT0         1043   PROGRAM*       44/19 L   44/34
        CBT1         1046   PROGRAM*       44/25 L   44/53
        CBT2         1050   PROGRAM*       44/31 L   44/48     44/50
        CBT3         1055   PROGRAM*       44/48 L
        CHB          1550   PROGRAM*       46/41     64/10 L   64/25     64/45     65/07     65/21
                                           63/51     64/14     64/39     64/51     65/14     67/32
        CHB0         1563   PROGRAM*       64/50 L   64/55
        CHB0A        1600   PROGRAM*       65/19     65/39 L
        CHB1         1624   PROGRAM*       66/35 L   66/47
        CHB1A        1615   PROGRAM*       66/08     66/11 L
        CHB2         1630   PROGRAM*       66/52 L   67/05
        CIC          1061   PROGRAM*       28/44     45/09 L   46/05
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   164
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        CICA         1124   PROGRAM*       46/16 S   46/50     46/55 L
        CIC1         1062   PROGRAM*       45/13 L   46/03
        CIC2         1066   PROGRAM*       45/28 L   45/39
        CIC3         1072   PROGRAM*       45/24     45/37     45/44 L
        CIC4         1073   PROGRAM*       45/30     45/33     45/40     45/47 L
        CIC5         1074   PROGRAM*       45/45     45/49 L
        CIC6         1075   PROGRAM*       45/55 L   46/53
        CIC7         1100   PROGRAM*       45/51     46/09 L
        CIC8         1107   PROGRAM*       46/27 L   46/34
        CIF          3335   PROGRAM*       27/53    124/12 L  127/55
        CIF0         3334   PROGRAM*      124/10 L  125/13
        CIF1         3347   PROGRAM*      124/45 L  124/48    124/51    124/57    125/10
        CIF1A        3354   PROGRAM*      124/54    125/05 L
        CIF10        3434   PROGRAM*      126/28    127/47 L
        CIF2         3356   PROGRAM*      124/47    125/12 L
        CIF3         3363   PROGRAM*      125/23 L  126/11
        CIF4         3371   PROGRAM*      125/38    125/41 L
        CIF5         3410   PROGRAM*      126/27 L  126/32    126/54
        CIF7         3416   PROGRAM*      126/53 L  127/45
        CIF8         3423   PROGRAM*      127/13 L  127/22
        CIF9         3433   PROGRAM*      127/05    127/09    127/17    127/18    127/43 L
        COL1          176   PROGRAM*       19/51 L   24/11
        COL2          207   PROGRAM*       20/16 L   20/25
        COL4          227   PROGRAM*       20/42     20/49 L
        COL5          234   PROGRAM*       20/55     20/57 L
        COL6          247   PROGRAM*       21/12     21/21 L
        COL7          254   PROGRAM*       21/19     21/32 L
        CRB          1247   PROGRAM*       42/29     52/16 L   52/24     52/32
        CRB1         1254   PROGRAM*       52/26 L   52/30
        CRB2         1243   PROGRAM*       52/05 L   52/19     52/20
        CRB3         1245   PROGRAM*       52/10 L   52/14
        DIF          3437   PROGRAM*      125/30    125/49    128/13 L  133/05
        DIFA         3557   PROGRAM*      131/37    133/07 L
        DIF1         3445   PROGRAM*      128/33 L  129/02    129/13    129/15    129/17
        DIF10        3500   PROGRAM*      129/41    130/10 L
        DIF11        3506   PROGRAM*      130/24    130/27    130/30 L  131/15
        DIF12        3511   PROGRAM*      130/15    130/18    130/42 L
        DIF13        3514   PROGRAM*      130/11    130/49 L
        DIF14        3516   PROGRAM*      128/37    131/03 L
        DIF15        3523   PROGRAM*      128/55    131/21 L
        DIF16        3532   PROGRAM*      131/36 L  132/54
        DIF17        3542   PROGRAM*      131/47    132/13 L
        DIF18        3552   PROGRAM*      131/50    132/09    132/22    132/30    132/45 L
        DIF2         3447   PROGRAM*      128/42 L  129/36    129/55    130/37    130/46    130/51    131/07    131/10
        DIF2A        3452   PROGRAM*      128/48    128/53 L
        DIF4         3455   PROGRAM*      129/06 L  130/01    130/05    130/43    130/53    131/13
                                          129/37    130/03    130/38    130/47    131/12
        DIF5         3462   PROGRAM*      128/38    129/21 L
        DIF5A        3465   PROGRAM*      129/25    129/29 L
        DIF5B        3466   PROGRAM*      129/27    129/34 L
        DIF6         3470   PROGRAM*      129/29    129/39 L
        DIF7         3473   PROGRAM*      129/47    129/50 L
        DIF8         3475   PROGRAM*      129/52    129/57 L
        EBV          1256   PROGRAM*       27/19     53/06 L   53/17     63/48    153/34
        EBV1         1262   PROGRAM*       53/14 L   53/19     53/40     53/57
        EBV2         1265   PROGRAM*       53/18     53/21 L
        EBV3         1267   PROGRAM*       53/28 L   53/37
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   165
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        EBV4         1273   PROGRAM*       53/23     53/42 L
        EBV5         1274   PROGRAM*       53/46 L   53/55
        FEI          2061   PROGRAM*       27/23     77/04 L   77/19     77/31
        FEI1         2071   PROGRAM*       77/20 L   77/29
        FIA          4300   PROGRAM*      149/22 S  150/51    152/52 L
        FII          2611   PROGRAM*       27/30     98/22 L  100/19
        FII0         2605   PROGRAM*       98/08 L   98/53
        FII1         2621   PROGRAM*       98/41 L   99/28     99/57    100/17
        FII10      402611   PROGRAM*      100/08    100/19 D
        FII2         2624   PROGRAM*       98/37     98/52 L   99/05     99/09
        FII3         2636   PROGRAM*       99/21     99/32 L
        FII4         2641   PROGRAM*       99/38     99/46 L
        FII5         2645   PROGRAM*       99/49    100/03 L
        FII6         2651   PROGRAM*      100/06    100/13 L
        FII7         2652   PROGRAM*      100/13    100/15 L
        FIM          3560   PROGRAM*       27/57    142/04 D
        FNL           645   PROGRAM*       27/07     36/48 L
        FNL0          644   PROGRAM*       36/42 L   37/01
        FNL1          650   PROGRAM*       36/54 L   37/03
        FUD          1307   PROGRAM*       19/56     27/10     42/42     55/05 L   61/11     61/19    153/34
        FUDA         1302   PROGRAM*       54/25 L   57/20     58/40
        FUDB         1303   PROGRAM*       54/26 L   58/04
        FUDC         1304   PROGRAM*       54/27 L   58/44
        FUDD         1305   PROGRAM*       54/28 L   59/18
        FUDE         1306   PROGRAM*       54/29 L   59/19
        FUD1         1316   PROGRAM*       55/30 L   55/57     55/57     56/01     56/28     56/28     56/28     56/29
        FUD10        1375   PROGRAM*       57/23     57/28     57/32 L
        FUD11        1377   PROGRAM*       57/18     57/39 L
        FUD11A       1407   PROGRAM*       57/40     57/41     57/41     57/41     57/43 L
        FUD12        1411   PROGRAM*       56/55     57/51 L
        FUD13        1413   PROGRAM*       58/01 L   58/20
        FUD14        1416   PROGRAM*       58/06     58/10 L
        FUD15        1427   PROGRAM*       58/02     58/15     58/16     58/16     58/16     58/18 L
        FUD16        1431   PROGRAM*       55/40     58/32 L
        FUD17        1436   PROGRAM*       58/45 L   58/49     58/55     59/11
        FUD18        1441   PROGRAM*       58/57 L   59/10
        FUD19        1443   PROGRAM*       59/02     59/06 L
        FUD2         1320   PROGRAM*       55/23     55/36 L   55/49     56/10     56/34     56/54     57/47     58/24
                                           55/32     55/41     55/55     56/23     56/37     57/02     57/54
        FUD20        1445   PROGRAM*       58/41     58/47     59/17 L
        FUD21        1447   PROGRAM*       59/22 L   59/26     59/36
        FUD22        1453   PROGRAM*       59/30     59/34 L
        FUD24        1454   PROGRAM*       58/36     59/17     59/24     59/40 L
        FUD25        1466   PROGRAM*       60/25 L   60/41
        FUD26        1473   PROGRAM*       60/21     60/43 L
        FUD26A       1476   PROGRAM*       60/44     60/51 L
        FUD27        1500   PROGRAM*       61/04 L   62/45
        FUD28        1500   PROGRAM*       61/08 L   63/08     63/52
        FUD29        1502   PROGRAM*       61/13 L   61/17
        FUD3         1335   PROGRAM*       55/46     56/06 L
        FUD30        1504   PROGRAM*       60/12     61/26 L
        FUD31        1512   PROGRAM*       61/46 L   61/54
        FUD32        1515   PROGRAM*       61/44     62/01 L   62/43
        FUD33        1517   PROGRAM*       62/09 L   62/27
        FUD34        1524   PROGRAM*       62/07     62/29 L
        FUD34A       1526   PROGRAM*       62/29     62/35 L
        FUD35        1531   PROGRAM*       59/47     63/03 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   166
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        FUD36        1535   PROGRAM*       63/23     63/26 L
        FUD37        1543   PROGRAM*       63/39 L   63/44
        FUD5         1353   PROGRAM*       56/07     56/33 L
        FUD7         1364   PROGRAM*       57/05 L   57/44
        FUD8         1366   PROGRAM*       57/09     57/13 L
        FUD9         1370   PROGRAM*       57/14     57/20 L
        FUD9A        1374   PROGRAM*       57/25     57/30 L
        FXI          2075   PROGRAM*       27/28     78/05 L   82/07
        FXI10        2156   PROGRAM*       80/41     81/11 L
        FXI11        2161   PROGRAM*       80/38     81/09     81/14     81/25 L
        FXI12        2164   PROGRAM*       81/36 L   81/52
        FXI13        2170   PROGRAM*       81/45     81/50 L
        FXI15        2172   PROGRAM*       80/25     82/01 L
        FXI2         2103   PROGRAM*       78/14 L   78/18
        FXI4         2107   PROGRAM*       78/33 L   78/35     78/42
        FXI5         2115   PROGRAM*       78/57 L   79/02     79/49
        FXI6         2117   PROGRAM*       79/12 L   79/46
        FXI7         2125   PROGRAM*       79/21     79/37 L
        FXI8         2127   PROGRAM*       79/16     79/45 L
        FXI9         2143   PROGRAM*       80/29 L   81/56
        FXI9A        2151   PROGRAM*       80/51 L   80/54
        GNG           654   PROGRAM*       28/24     37/14     37/17 L   37/25     37/32
        GNG0          652   PROGRAM*       37/10 L   37/19
        GPO1          377   PROGRAM*       27/04 L   28/25
        GPO10         461   PROGRAM*       27/05     28/30 L
        GPO11         463   PROGRAM*       28/36 L   28/45
        GPO12         467   PROGRAM*       28/39     28/49 L
        GPO13         475   PROGRAM*       28/52     29/13 L
        GPO14         500   PROGRAM*       29/24 L   29/28
        GPO15         502   PROGRAM*       29/37 L   29/41     30/06     30/26
        GPO15A        507   PROGRAM*       29/48     29/52 L
        GPO16         510   PROGRAM*       29/53     29/55 L   30/01
        GPO17         512   PROGRAM*       29/50     30/10 L
        GPO17A        513   PROGRAM*       30/16 L   30/19
        GPO18         516   PROGRAM*       29/39     30/31 L
        GPO19         520   PROGRAM*       30/37 L   30/48
        GPO2          401   PROGRAM*       27/07 L   28/20
        GPO20         521   PROGRAM*       30/35     30/41 L   30/47     31/17
        GPO21         524   PROGRAM*       30/54 L   31/01
        GPO22         527   PROGRAM*       31/10 L   31/15
        GPO23         532   PROGRAM*       30/43     31/21 L
        GPO24         533   PROGRAM*       31/23 L   31/31
        GPO25         536   PROGRAM*       31/26     31/35 L
        GPO26         547   PROGRAM*       31/55 L   32/02
        GPO27         555   PROGRAM*       32/16 L   32/25
        GPO28         560   PROGRAM*       32/18     32/19     32/23 L
        GPO3          412   PROGRAM*       27/12     27/16     27/21 L
        GPO3A         421   PROGRAM*       20/45     27/30 L
        GPO30         570   PROGRAM*       32/53 L   33/33
        GPO31         574   PROGRAM*       33/09 L   33/22
        GPO32         600   PROGRAM*       32/55     33/18     33/26 L
        GPO33         605   PROGRAM*       32/31     33/40 L
        GPO35         606   PROGRAM*       31/43     33/47 L   34/07
        GPO36         616   PROGRAM*       33/50     34/09 L
        GPO4          427   PROGRAM*       27/34     27/38 L
        GPO5          432   PROGRAM*       27/44     27/46 L
        GPO6          445   PROGRAM*       27/51     27/55     28/03     28/07 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   167
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        GPO7          453   PROGRAM*       20/42 S   28/16 L
        IGO0          317   PROGRAM*       19/49     23/12 L
        IGO1          337   PROGRAM*       23/45     23/53 L
        IGO2          343   PROGRAM*       24/06 L   24/09
        IGO3          352   PROGRAM*       24/26 L   24/54
        IGO3A         356   PROGRAM*       24/34     24/36 L
        IGO3B         362   PROGRAM*       24/43     24/47 L
        IGO4          365   PROGRAM*       24/48     24/56 L
        IGO5          366   PROGRAM*       24/47     25/02 L
        IGO5A         370   PROGRAM*       25/08     25/10 L
        IGP           620   PROGRAM*       27/04     35/07 L   36/32
        IGP1          633   PROGRAM*       35/51 L   36/27
        IGP2          634   PROGRAM*       35/57 L   36/06
        IGP3          642   PROGRAM*       36/09     36/27 L
        IHB           753   PROGRAM*       20/41     27/27     41/16 L   41/25     41/36
        IPS          1755   PROGRAM*       68/14     73/07 L   73/13     74/56
        IPS1         1766   PROGRAM*       73/29 L   73/41
        IPS2         1775   PROGRAM*       73/51     73/53 L
        IPS3         2005   PROGRAM*       74/15 L   74/49
        IPS4         2013   PROGRAM*       74/31     74/35 L
        IRP           663   PROGRAM*       19/52     27/08     38/03 L   39/51     41/10
        IRP1          677   PROGRAM*       38/41 L   38/56
        IRP2          702   PROGRAM*       38/42     38/54 L
        IRP4          751   PROGRAM*       40/49     41/05 L
        IRP5          752   PROGRAM*       41/03     41/10 L
        MBT          4302   PROGRAM*       43/44     49/54    153/03 L  153/29    153/34
        MBT2         4310   PROGRAM*      153/14 L  153/27
        MIE          3105   PROGRAM*       27/47    113/17 L  117/03    123/14    123/41
        MIE1         3111   PROGRAM*      113/31 L  113/54    114/19    114/26    115/43    116/13
                                          113/49    114/08    114/24    115/28    115/49
        MIE10        3152   PROGRAM*      115/30    115/53 L
        MIE11        3155   PROGRAM*      116/05 L  116/11
        MIE12        3157   PROGRAM*      116/07    116/11 L
        MIE14        3160   PROGRAM*      113/32    117/03 L
        MIE14A       3171   PROGRAM*      117/28 L  118/03
        MIE14B       3176   PROGRAM*      117/36    117/41    117/45 L
        MIE15        3177   PROGRAM*      117/53 L  118/05    118/07    118/42    118/44    119/15
        MIE16        3200   PROGRAM*      117/23    118/01 L  120/01
        MIE16A       3211   PROGRAM*      118/22    118/31 L
        MIE17        3213   PROGRAM*      118/33    118/36 L
        MIE17A       3217   PROGRAM*      118/29    118/52 L
        MIE18        3224   PROGRAM*      118/14    118/26    119/13 L
        MIE19        3226   PROGRAM*      118/12    119/20 L
        MIE19A       3227   PROGRAM*      119/23 L  119/31
        MIE19B       3233   PROGRAM*      119/29    119/35 L
        MIE19C       3234   PROGRAM*      119/38 L  119/56
        MIE19D       3241   PROGRAM*      119/50    119/52 L
        MIE19E       3242   PROGRAM*      119/46    119/54 L
        MIE19F       3243   PROGRAM*      119/42    120/01 L
        MIE2         3117   PROGRAM*      113/43    114/03 L
        MIE20        3264   PROGRAM*      117/55    120/02    121/17 L
        MIE21        3270   PROGRAM*      121/27 L  121/37
        MIE22        3271   PROGRAM*      121/25    121/31 L  121/38    122/07    122/13    122/20
        MIE23        3300   PROGRAM*      121/50    121/55 L
        MIE24        3302   PROGRAM*      121/57    122/05 L
        MIE25        3303   PROGRAM*      121/46    122/09 L
        MIE26        3307   PROGRAM*      121/33    122/28 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   168
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        MIE27        3312   PROGRAM*      122/38 L  122/53
        MIE28        3316   PROGRAM*      122/47    122/50 L
        MIE29        3317   PROGRAM*      122/43    122/49    122/53 L
        MIE3         3122   PROGRAM*      114/06    114/11 L
        MIE30        3330   PROGRAM*      123/27 L  123/36
        MIE4         3125   PROGRAM*      114/12    114/23 L
        MIE5         3127   PROGRAM*      113/40    114/32 L
        MIE6         3133   PROGRAM*      114/16    114/40    114/46 L
        MIE7         3136   PROGRAM*      113/52    114/09    114/27    114/33    114/41    115/04 L
        MIE8         3143   PROGRAM*      115/15    115/25 L
        MIE9         3147   PROGRAM*      115/39    115/43 L
        MIH          3244   PROGRAM*      118/01    119/30    120/10 L  120/28
        MII          2224   PROGRAM*       20/40     27/25     97/35 D  124/22
        MIP          2653   PROGRAM*       27/36    112/46 D
        MPB          4172   PROGRAM*       49/17     72/03     75/26    148/15    148/26 L
                                           49/51     72/08    147/18    148/22    153/34
        MPBA         4277   PROGRAM*      148/14    148/21    148/27 S  152/51 L
        MPB0         4166   PROGRAM*      148/14 L  150/54    152/49
        MPB1         4206   PROGRAM*      149/01 L  149/12
        MPB10        4254   PROGRAM*      151/04    151/39 L  152/36    152/43
        MPB11        4260   PROGRAM*      151/54    151/56 L
        MPB12        4263   PROGRAM*      152/08    152/10 L
        MPB13        4265   PROGRAM*      152/15    152/17 L
        MPB14        4266   PROGRAM*      152/01    152/21 L
        MPB15        4271   PROGRAM*      152/30    152/32 L
        MPB16        4273   PROGRAM*      151/44    152/38 L
        MPB17        4274   PROGRAM*      152/38    152/42 L
        MPB2         4212   PROGRAM*      148/54    149/18 L
        MPB3         4216   PROGRAM*      149/29 L  149/46
        MPB4         4222   PROGRAM*      149/25    149/45 L  150/34    150/39
        MPB5         4227   PROGRAM*      149/50    150/10 L
        MPB6         4230   PROGRAM*      150/16 L  150/32
        MPB7         4237   PROGRAM*      149/43    150/44 L
        MPB8         4245   PROGRAM*      151/08 L  151/45
        MPB9         4252   PROGRAM*      151/13    151/28 L
        NTL          4156   PROGRAM*      143/12 S  145/22    147/21 L
        OST          3252   PROGRAM*      119/14    119/53    120/34 L  121/10
        RDB          1301   PROGRAM*       27/18     54/24 L   63/47
        RDD          1647   PROGRAM*       27/21     46/43     68/12 L   68/56     71/56     72/04     72/11
        RDDA         1646   PROGRAM*       68/10 L   69/50     70/55     71/49
        RDD0         1656   PROGRAM*       68/15     68/24 L
        RDD1         1663   PROGRAM*       68/42 L   68/53
        RDD10        1726   PROGRAM*       71/04 L   71/20
        RDD2         1667   PROGRAM*       68/41     68/55 L
        RDD20        1733   PROGRAM*       71/10     71/18 L
        RDD3         1674   PROGRAM*       69/22 L   70/41     70/50     70/53     71/13     71/17
        RDD30        1734   PROGRAM*       71/04     71/24 L
        RDD4         1676   PROGRAM*       69/18     69/28 L   69/55     70/10     70/21     70/33
                                           69/23     69/34     70/05     70/20     70/28     71/42
        RDD4A        1705   PROGRAM*       69/32     70/02 L
        RDD40        1740   PROGRAM*       71/33     71/36 L
        RDD5         1710   PROGRAM*       69/30     70/14 L
        RDD50        1743   PROGRAM*       70/17     70/35     71/44 L
        RDD54        1744   PROGRAM*       71/51 L   71/54
        RDD56        1746   PROGRAM*       71/51     71/56 L
        RDD6         1720   PROGRAM*       70/18     70/37 L
        RDD60        1751   PROGRAM*       71/57     72/07 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   169
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        SHB          2173   PROGRAM*       27/49     28/05     83/05 L   83/52
        SHB1         2210   PROGRAM*       83/08     83/30 L
        SHB2         2220   PROGRAM*       83/38     83/44 L
        TIA          4301   PROGRAM*      148/43 S  149/18    152/53 L
        TRP           765   PROGRAM*       28/16     42/03 L   44/11
        TRP1          775   PROGRAM*       42/08     42/13     42/16     42/27 L
        TRP2         1013   PROGRAM*       43/03 L   43/07
        TRP3         1023   PROGRAM*       43/22     43/33 L
        TRP4         1037   PROGRAM*       43/25     43/27     44/02 L
        UPB          4051   PROGRAM*       28/09    143/06 L  147/19
        UPBA         4157   PROGRAM*      146/42    147/22 L
        UPBB         4160   PROGRAM*      144/11    147/33 L
        UPBC         4165   PROGRAM*      145/31    147/42 L
        UPB1         4065   PROGRAM*      143/35 L  145/17
        UPB10        4125   PROGRAM*      145/48 L  145/53    146/06
        UPB10A       4130   PROGRAM*      146/01 L  146/05
        UPB10B       4133   PROGRAM*      146/02    146/08 L
        UPB11        4137   PROGRAM*      145/41    146/25 L
        UPB12        4143   PROGRAM*      146/28    146/42 L
        UPB13        4147   PROGRAM*      146/23    146/54 L
        UPB14        4151   PROGRAM*      146/38    147/04 L
        UPB15        4152   PROGRAM*      145/23    147/11 L
        UPB2         4071   PROGRAM*      143/57 L  145/08
        UPB3         4100   PROGRAM*      144/13    144/25 L
        UPB4         4103   PROGRAM*      144/25    144/38 L
        UPB5         4105   PROGRAM*      144/34    144/44 L
        UPB6         4111   PROGRAM*      144/21    145/03 L
        UPB7         4115   PROGRAM*      143/43    145/16 L
        UPB8         4116   PROGRAM*      143/29    145/22 L
        UPB9         4122   PROGRAM*      145/33 L  147/06
        .BCM           17                  54/21 D   54/22
        .BMB         4000                 123/09 D  123/10
        .SCR            4                  81/20 D   81/21
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     CIF                               127/52 F
  U     FUD                                60/05 F   61/05 F   63/04 F
  U     FXI                                82/04 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  MII 
  
  
        IA1          2326   PROGRAM*       89/18     89/24 L
        IA2          2327   PROGRAM*       87/56     89/30 L
        ILD1         2255   PROGRAM*       85/41     85/44 L
        IM1          2311   PROGRAM*       87/27     87/32 L
        IM2          2313   PROGRAM*       87/29     87/35 L
        JPX1         2347   PROGRAM*       90/26     90/33     90/38 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   170
        SYMBOLIC REFERENCE TABLE.                                     MII 
  
        JPX2         2351   PROGRAM*       90/07     90/18     90/48 L   91/13     91/26
                                           90/14     90/41     91/12     91/15
        LD1          2262   PROGRAM*       85/53     86/04 L
        MII          2224   PROGRAM*       84/18 L   96/13     96/56     97/01     97/08     97/35
        MII1         2242   PROGRAM*       85/03 L   86/38     87/01     92/14     95/48
                                           86/24     86/48     87/53     95/05     95/55
        MII1A        2246   PROGRAM*       85/07     85/27     86/13     87/18     87/40     91/45
                                           85/12 L   86/12     86/19     87/33     89/11
        MII2         2250   PROGRAM*       84/50     86/08     86/49     89/13     89/44     92/12     92/53     95/14
                                           84/53     86/10     87/02     89/20     90/50     92/29     93/07     95/33
                                           85/10     86/15     87/16     89/26     91/37     92/40     93/08     95/41
                                           85/22 L   86/23     87/30     89/33     91/44     92/46     93/14     95/45
                                           85/29     86/39     88/01     89/36     92/11     92/49     94/10     95/54
        MII4         2467   PROGRAM*       96/27 L   96/36     96/53
        MII5         2477   PROGRAM*       96/38     96/44     96/55 L
        MII.JT       2501   PROGRAM*       85/24     93/50     97/26 L
        RJ31         2410   PROGRAM*       93/18 L   93/25
        RJ32         2412   PROGRAM*       93/29 L   93/36
        RJ33         2421   PROGRAM*       93/39     93/44     93/50 L
        RS0          2375   PROGRAM*       92/26     92/33 L
        RS1          2400   PROGRAM*       92/09     92/44 L
        RS2          2402   PROGRAM*       92/44     92/48 L
        STA          2460   PROGRAM*       94/46     95/57 L
        ST1          2443   PROGRAM*       94/19     94/23     94/41     95/13 L
        ST2          2451   PROGRAM*       95/16     95/22     95/25     95/37 L
        ST3          2453   PROGRAM*       94/17     95/45 L
        TYI          2272   PROGRAM*       86/30 L
        TYII         2246   PROGRAM*       85/27 D
        TYIV         2250   PROGRAM*       85/29 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  MIP 
  
  
        IA1          3011   PROGRAM*      107/25    107/28    108/20    108/29    108/34 L
        IA2          3015   PROGRAM*      108/17    108/50 L
        IA3          3017   PROGRAM*      108/14    109/03 L
        IM1          2772   PROGRAM*      106/56    107/04 L
        IM2          2774   PROGRAM*      107/01    107/10 L
        IM4          2776   PROGRAM*      107/05    107/18 L
        IM5          3001   PROGRAM*      106/52    107/27 L
        JPX1         3045   PROGRAM*      110/27    110/41 L
        JPX2         3052   PROGRAM*      110/53    111/03 L
        JPX3         3053   PROGRAM*      111/01    111/07 L
        JPX4         3062   PROGRAM*      111/13    111/28 L
        JPX5         3065   PROGRAM*      110/39    111/26    111/40 L
        JPX6         3071   PROGRAM*      111/49    111/55 L
        JPX7         3073   PROGRAM*      111/43    111/53    112/03    112/09 L
        LD1          2743   PROGRAM*      105/32    105/39 L
        MIP          2653   PROGRAM*      101/16 L  112/46
        MIPA         2677   PROGRAM*      102/26 L  105/45    106/05    109/47
        MIPB         2700   PROGRAM*      102/27 L  104/11
        MIPC         2701   PROGRAM*      102/28 L  105/29    108/50
        MIPD         2702   PROGRAM*      102/29 L  108/35
        MIP0         2653   PROGRAM*      101/13 L  104/08    105/02
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 15.55.20.      PAGE   171
        SYMBOLIC REFERENCE TABLE.                                     MIP 
  
        MIP1         2664   PROGRAM*      101/42 L  105/57    106/32    108/45    108/57    109/51
        MIP1A        2670   PROGRAM*      102/01 L  102/10
        MIP1B        2674   PROGRAM*      102/06    102/13 L
        MIP2         2675   PROGRAM*      101/36    102/21 L  105/27    106/45    109/13    110/19    111/15
                                          101/43    102/50    105/40    106/50    109/37    110/20    111/17
                                          101/46    102/57    105/51    107/02    109/41    110/29    111/31
                                          101/49    103/05    106/11    108/27    109/45    110/42    112/14
                                          102/09    105/13    106/16    109/05    110/14    110/50    112/17
                                          102/11    105/25    106/20    109/07    110/15    111/11    112/42
        MIP3         2721   PROGRAM*      104/16    104/23 L
        MIP4         2723   PROGRAM*      104/21    104/32 L  104/42    104/55
        MIP5         2727   PROGRAM*      104/32    104/45 L  104/54
        MIP6         2733   PROGRAM*      104/43    104/57 L
        STT1         3030   PROGRAM*      109/38    109/44 L
        ST1          2706   PROGRAM*      102/40    102/48 L
        ST2          2711   PROGRAM*      102/52    102/56 L
        SXT1         2757   PROGRAM*      106/23    106/26 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  FIM 
  
  
        EIE          3624   PROGRAM*      134/50    136/17 L
        EIE0         3620   PROGRAM*      136/09 L  136/26    136/45    139/04    140/40
        EIE1         3632   PROGRAM*      136/29    136/34 L
        EIE10        3720   PROGRAM*      140/13 L  140/34
        EIE11        3723   PROGRAM*      140/18    140/26 L
        EIE12        3725   PROGRAM*      140/32 L  140/50    141/01    141/09    141/21    141/34
                                          140/46    140/54    141/05    141/14    141/30
        EIE2         3637   PROGRAM*      136/34    136/38    136/40    136/50 L  141/36
        EIE3         3646   PROGRAM*      136/56    137/07 L
        EIE4         3651   PROGRAM*      137/05    137/13    137/18 L
        EIE5         3655   PROGRAM*      137/29 L  137/43
        EIE7         3704   PROGRAM*      138/20    138/29    138/45 L
        EIE8         3714   PROGRAM*      138/37    138/41    139/02 L
        EIE9         3716   PROGRAM*      136/30    140/03 L
        EIE.JT       3745   PROGRAM*      140/26    141/53 L  141/57
        FIM          3560   PROGRAM*      134/07 L  135/56    142/04
        FIM1         3563   PROGRAM*      134/18 L  135/54
        FIM2         3571   PROGRAM*      134/34 L  134/42    135/22
        FIM3         3601   PROGRAM*      134/55    135/15 L
        FIM5         3605   PROGRAM*      134/36    135/26 L
        FIM6         3614   PROGRAM*      135/31    135/45 L
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4043              IDENT  GRA
                       4043                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4043 
                                        GPOGRA    COMMON          0        40 
                                        TABLES    COMMON          0       251 
  
  
                                        ENTRY POINTS. 
  
                                        B=GRA            0+           GRA              2+           CUC           3646+ 
                                        GRASRF           1+           CXB           2752+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.BIT     O.TET     O.PSI     BSI       Z.RND     Z.PSI     IT.       SETCORE 
                                        L.BIT     L.TET     L.PSI     BVL       L.HB      N.GT      ORGTAB    PCC 
                                        O.BST     O.TXT     O.RCT     DMASK     WFB       HBI       UOFLAG
                                        L.BST     L.TXT     L.RCT     F.RDT     MCG       MPB       RTB 
                                        O.IIT     O.MOD     O.RND     NPB       PARCEL    ADW=      SHL 
                                        L.IIT     L.MOD     L.RND     SRI       AIS       Z.MLT     BSW 
                                        O.SEQ     O.PIT     O.RXI     RNI       PC        MVE=      Z.RCT 
                                        L.SEQ     L.PIT     L.RXI     ATS=      OPT2      Z.MOD     EBV 
  
  
  
  
                                                  IDENT  GRA                                                     GRA         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=GRA    RPVDEF                                                         GRA         5
                                                  PASS2TM                                                        GRA         6
                                                                                                                 GRA         7
  
  
                                        **        GRA - GLOBAL REGISTER ASSIGNMENT                               GRA        11
                                        *                                                                        GRA        12
                                        *         S. I. JASIK - CDC - SUNNYVALE - SPRING 74                      GRA        13
                                        *                                                                        GRA        14
                                        *         *GRA* IS CALLED BY *GPO* TO ASSIGN REGISTERS ACCROSS THE       GRA        15
                                        *         BODY OF A LOOP AND SETUP APPROPIATE INITIALIZATION CODE.       GRA        16
                                        *                                                                        GRA        17
                                        *         OPTIMIZATIONS PERFORMED BY *GRA* INCLUDE -                     GRA        18
                                        *         LOAD/STORE MOTION OF SCALAR VARIABLES AND CONSTANTS AND THEIR  GRA        19
                                        *         ASSIGNMENT TO REGISTERS.                                       GRA        20
                                        *         PREFETCHING OF INDEXED LOADS ON THE CRITICAL PATH IN SMALL     GRA        21
                                        *         INNERMOST LOOPS.                                               GRA        22
                                        *         CODE SIZE REDUCTION IN THE LOOP BODY BY ASSIGNING *SCM*        GRA        23
                                        *         ADDRESS"S AND CONSTANTS TO B-REGISTERS.                        GRA        24
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE     2
                                                                      GRA 
  
                                        *         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
                                                                                                                 GRA        36
                                                  LIST   -R                                                      GRA        37
                                                                                                                 GRA        38
                                                  TABLES BIT,BST,IIT,SEQ,TET,TXT                                 GRA        39
                                                  TABLES MOD,PIT,PSI,RCT,RND,RXI                                 GRA        40
                                                                                                                 GRA        41
                                                  EXT    BSI,BVL,DMASK,F.RDT,NPB,SRI                             GRA        42
                                                                                                                 GRA        43
                                 101     MAX.INC  EQU    101B        MAX CONSTANT INCREMENT VALUE FOR PREFETCHS  GRA        44
                                        *                          OF ARRAYS IN LABELED COMMON OR LOCAL STORAGE. GRA        45
                                                                                                                 GRA        46
                                  44     BA.BIP   EQU    36                                                      GRA        47
                                  22     BA.LENP  EQU    18                                                      GRA        48
                                  22     BA.BIL   EQU    18                                                      FCCA509X   24
                                  22     BA.LENL  EQU    18                                                      FCCA509X   25
                                                                                                                 GRA        49
             0                           UDTBLD   CTEXT  UDTBLD - USE/DEF TABLE FORMAT DEFINITIONS               UDTBLD      2
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      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                                                   GPOCOM     23
                                                  ENDM                                                           GPOCOM     24
  
  
                                        **        FBVA - FORM BLOCK BIT VECTOR ADDRESS                           GPOCOM     26
                                        *                                                                        GPOCOM     27
                                        *         ENTRY  (BN) = REGISTER WITH *BI* INDEX OF BLOCK                GPOCOM     28
                                        *                                                                        GPOCOM     29
                                        *         EXIT   (X7) = BVA = O.BVT + BVI[BIT(BN)]                       GPOCOM     30
                                        *                (X4) = BIT(BN)                                          GPOCOM     31
                                        *                (B2) = VL = BVL + 1                                     GPOCOM     32
                                                                                                                 GPOCOM     33
                                         FBVA     MACRO  BN                                                      GPOCOM     34
                                                  R=     B3,BN                                                   GPOCOM     35
                                                  SA1    O.BVT                                                   GPOCOM     36
                                                  SA2    BVL                                                     GPOCOM     37
                                                  SA3    O.BIT                                                   GPOCOM     38
                                                  SB2    X2+B1       VL = BVL + 1                                GPOCOM     39
                                                  SA4    X3+B3       BIT(BN)                                     GPOCOM     40
                                                  LX4    -BI.BVIP                                                GPOCOM     41
                                                  IX7    X1+X4       BVA = O.BVT + BVI[BIT(BN)]                  GPOCOM     42
                                                  LX4    BI.BVIP                                                 GPOCOM     43
                                                  ENDM                                                           GPOCOM     44
  
  
                                        **        PRNTABV - PRINT A BIT VECTOR                                   GPOCOM     46
                                        *                                                                        GPOCOM     47
                                        *         PRNTABV  LAB,(LIST OF VECTOR ADDRESS"S)                        GPOCOM     48
                                                                                                                 GPOCOM     49
                                         PRNTABV  MACRO  LAB,BVA                                                 GPOCOM     50
                                                  IF     DEF,/DEBUG/LAB,3                                        GPOCOM     51
                                                  IRP    BVA                                                     GPOCOM     52
                                                  DCALL  PRNTABV,(=5L BVA ,[_BVA_])                              GPOCOM     53
                                                  IRP                                                            GPOCOM     54
                                                  ENDM                                                           GPOCOM     55
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      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
                                         SCR      DEFINE 1           IN *SCR*                                    GPOCOM     65
                                         JP       DEFINE 1           SUCC REACHED BY A *JP* EDGE                 GPOCOM     66
                                         ALLP     DEFINE 1           ALL PRED OF EXIT NODE IN *SCR*              GPOCOM     67
                                         NPRED    DEFINE 9           N.PRED IN SCR OF SUCCESSOR NODE             GPOCOM     68
                                         PRED     DEFINE 15          *BI* OF FIRST PRED IN SCR TO REACH SUCC     FCC0985     5
                                         LINK     DEFINE 18          LINK TO NEXT ON SUCC LIST                   GPOCOM     70
                                         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
                                         REG      DEFINE 6           REGISTER NUMBER THAT VAR IS IN ( *SO* ORDER GPOCOM     80
                                         UDI      DEFINE 18          UDI INDEX OF VARIABLE                       GPOCOM     81
                                         CAIH     DEFINE 36          BASE/BIAS OF SYMBOL                         GPOCOM     82
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      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
                                        *                                                                        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
                                         MIP      DEFINE 1           MARKED *IP*                                 GPOCOM    105
                                                  DEFINE 5                                                       GPOCOM    106
                                         CN       DEFINE 18          CLASS NUMBER OF SET OF SIMILAR *IP"S*       FCC0514    20
                                         CA       DEFINE 18          CA OF IP THIS *IP* IS SIMILAR TO            GPOCOM    108
                                         LF       DEFINE 18          LINK FOWARD ( REL TO *O.IIT* )              GPOCOM    109
                                                                                                                 GPOCOM    110
                                                  DESCRIBE IA.,60                                                GPOCOM    111
                                         NWD      DEFINE 12          P(N.WDS IN FORMULA) , INCLUDES HEADER WDS   GPOCOM    112
                                                  DEFINE 12                                                      GPOCOM    113
                                         CA       DEFINE 18          CA OF *IP*                                  GPOCOM    114
                                         UDI      DEFINE 18          *UDI* INDEX OF INTEGER VARIABLE *LD*        GPOCOM    115
                                                                                                                 GPOCOM    116
                                                  DESCRIBE IB.,60                                                GPOCOM    117
                                         NLD      DEFINE 12          P(N.LD"S IN FORMULA)                        GPOCOM    118
                                                  DEFINE 30                                                      GPOCOM    119
                                         ILD      DEFINE 18          *RI* OF *LD* OF *RD* VAR IN EXPRESSION      GPOCOM    120
                                                                                                                 GPOCOM    121
                                        *         C) A LIST OF POLYNOMIAL INCREMENT VALUES AT THE POINT          GPOCOM    122
                                        *         OF A *RD*.                                                     GPOCOM    123
                                        *         THIS LIST CONSISTS OF 2 WORDS / ENTRY, TERMINATED BY A 0 WORD  GPOCOM    124
                                        *                                                                        GPOCOM    125
                                        *         WORD 1 = 60/CA OF *TST* THAT IS BEGIN INCREMENTED              GPOCOM    126
                                        *         WORD 2 = 12/TYPE,48/VAL OF INCREMENT , AS IN LIST A .          GPOCOM    127
                                        *                                                                        GPOCOM    128
                                        *         THE FORMAT OF THE LINK WORD OF THE *RD* IS                     GPOCOM    129
                                        *                12/P(N.PI),12/,18/STC,18/INDEX TO LIST IN *IIT*         GPOCOM    130
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE     6
        GPO/GRA COMMON VARIABLES                                      COMMON
  
                                        *         THE FOLLOWING LOCATIONS ARE SHARED BETWEEN *GPO* AND *GRA*     GPOCOM    132
                                                                                                                 GPOCOM    133
                                                  USE    /GPOGRA/                                                GPOCOM    134
             0                     1     O.UDT    BSS    1           FWA OF *UDI* IN LOW CORE                    GPOCOM    135
             1                     1     L.UDT    BSS    1           LENGTH                                      GPOCOM    136
             2                     1     O.MVL    BSS    1           FWA OF MARKED VAR LIST ( IN *UDT* )         GPOCOM    137
                                                                                                                 GPOCOM    138
                                        *         ADDRESS"S OF SPECIAL BIT VECTORS                               GPOCOM    139
                                                                                                                 GPOCOM    140
             3                     1     DVA      BSS    1           REGION *DEF* VECTOR                         GPOCOM    141
             4                     1     LUV      BSS    1           LOOP USEAGE VECTOR                          GPOCOM    142
             5                     1     UVA      BSS    1           REGION *USE* VECTOR                         GPOCOM    143
             6                     1     LXA      BSS    1           REGION *LIVE EXIT* VECTOR                   GPOCOM    144
                                                                                                                 GPOCOM    145
             7                     1     LEA      BSS    1           REGION *LIVE ENTRY* VECTOR                  GPOCOM    146
            10                     1     MDA      BSS    1           *MOVABLE DEFS*                              GPOCOM    147
            11                     1     SVA      BSS    1           SCRATCH VECTOR                              GPOCOM    148
                                   7     N.SBV    EQU    *-DVA       N. SPECIAL BIT VECTORS                      GPOCOM    149
                                        *                        WSC                                             GPOCOM    150
            12  00000000000000000100     M.PL     CON    100B        MAX *PIT* LENGTH                            GPOCOM    151
                                                                                                                 GPOCOM    152
            13  00000000000000000002     EMF      CON    2           FP/LVL EXPANSION MODE ( *CBB* ARGUMENT )    GPOCOM    153
            14                     1     ITL      BSS    1           INITIAL *TET* LENGTH                        GPOCOM    154
            15  00000000000077777777     MRA      VFD    36/,24/-0   MACHINE REGISTERS AVAILABLE ( 8/X,8/A,8/B ) GPOCOM    155
            16                     1     LGL      BSS    1           LP GEN LBL, LL=LP LBL 42/GEN LBL-LL,18/LL   FCC0909     7
                                                                                                                 GPOCOM    156
                                        *                           ?FWA OF CLEARED CELLS                        GPOCOM    157
            17                     1     N.HB     BSS    1           N. HOLDING BLOCKS IN LOOP ( =0 IF INNERMOST GPOCOM    158
            20                     1     XRF      BSS    1           "0 IF LOOP CONTAINS EXTERNAL REFS           GPOCOM    159
                                                                                                                 GPOCOM    160
            21                     1     LCV      BSS    1           18/UDI,36/CAIH OF LOOP CONTROL VAR          GPOCOM    161
            22                     1              BSS    1           REGNO THAT IT IS IN                         GPOCOM    162
            23                     1     LUL      BSS    1           LOOP UPPER LIMIT IN *IIT A* FORMAT          GPOCOM    163
            24                     1              BSS    1           REGNO THAT IT IS IN                         GPOCOM    164
            25                     2     LIH      BSS    2           IH OF LOOP LABEL / *R2* WORD OF *LAB*       GPOCOM    165
            27                     1     N.LJ     BSS    1           N. JPX"S THAT REF LOOP LABEL                GPOCOM    166
            30                     1     LTT      BSS    1           LOOP TEST TYPE, =0 IF NO TEST REPLACEMENT   GPOCOM    167
                                        *                            =1 , TEST IS  IF( LCV @ LUL ) GO TO LIH     GPOCOM    168
                                        *                        FXI                                             GPOCOM    169
            31                     1     O.ENL    BSS    1           FWA OF EXIT NODE LIST IN *BTT*              GPOCOM    170
            32                     1     N.ENL    BSS    1           N. EXIT NODES                               GPOCOM    171
            33                     1     EPSI     BSS    1           N. EXIT NODES THAT ARE FALL THROUGH         FCC0985     6
                                        *                        CBB                                             GPOCOM    174
            34                     1     MAXW     BSS    1           MAX *REG WIDTH* OF REGION                   GPOCOM    175
            35                     1     N.EBB    BSS    1           N. EXTENDED BASIC BLOCKS IN REGION          GPOCOM    176
                                                                                                                 GPOCOM    177
            36                     1     PL       BSS    1           *PIT* LENGTH AT START OF BLOCK              GPOCOM    178
            37                     1     STP      BSS    1           "0 IF SOME *IP* IS A FUNCTION OF THE*LCV*   GPOCOM    180
                                  21     N.CLC    EQU    *-N.HB     'END OF ZEROED CELLS REGION                  GPOCOM    181
                                                  USE    0                                                       GPOCOM    182
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE     7
        LOCAL VARIABLES                                               FLAGS     TABLES
  
                                                  USE    /TABLES/                                                GRA        53
             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
                                                  USE    0                                                       GRA       108
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE     8
        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
                                         RA       DEFINE 1           REGISTER ASSIGNED OR ADDRESS MODIFIED       GRA       119
                                         IRA      DEFINE 1           INITIAL REGISTER ASSIGNMENT ( *ERC/RS* )    GRA       120
                                                                                                                 GRA       121
                                        *         CANIDATE TYPE                                                  GRA       122
                                                                                                                 GRA       123
                                         VC       DEFINE 1           VALUE CANIDATE ( NOT SET FOR CONS )         GRA       124
                                         AC       DEFINE 1           ADDRESS CANIDATE                            GRA       125
                                         CON      DEFINE 1           CANDIATE IS A CONSTANT ( FMA, SET )         GRA       126
                                         FP       DEFINE 1           IH IS AN F.P.                               GRA       127
                                                                                                                 GRA       128
                                        *         USEAGE                                                         GRA       129
                                                                                                                 GRA       130
                                                  DEFINE 2                                                       GRA       131
                                         EU       DEFINE 1           EXPLICIT USEAGE IN LOOP ( CANNOT BE SUBSUME GRA       132
                                         RF       DEFINE 1           *RF* ( SHORT ) USEAGE                       GRA       133
                                         ^RD      DEFINE 1           NON RECURSIVE DEFINITION                    GRA       134
                                         IA       DEFINE 1           IA/IS USEAGE                                GRA       135
                                         TU       DEFINE 1           TEST USEAGE ( IN LOOP TERMINATION TEST )    GRA       136
                                                                                                                 GRA       137
                                        *         PROFIT CRITERIA                                                GRA       138
                                                                                                                 GRA       139
                                         PRFT     DEFINE 3           PROFIT                                      GRA       140
                                         APLN     DEFINE 2           APPEARENCE IN ARTICULATION PT/LATCH NODE    GRA       141
                                         NOCC     DEFINE 9           NUMBER OF OCCURANCES                        GRA       142
                                         SUSE     DEFINE 9           SUM( USES ) + SUM( USES(INC)-1 )            GRA       143
                                                                                                                 GRA       144
                                        *         ENTRY/EXIT CONDITIONS                                          GRA       145
                                                                                                                 GRA       146
                                         PL       DEFINE 1           PRELOAD NECESSARY                           GRA       147
                                         PSP      DEFINE 1           POST STORE POSSIBLE                         GRA       148
                                         DEF      DEFINE 1           DEFINED IN REGION                           GRA       149
                                         USE      DEFINE 1           USED IN REGION                              GRA       150
                                         LX       DEFINE 1           LIVE ON EXIT FROM REGION                    GRA       151
                                         KD       DEFINE 1           KILL DEFS ( STORES )                        GRA       152
                                                                                                                 GRA       153
                                         UDI      DEFINE 18          INDEX TO *UDT*                              GRA       154
  
  
                                         RAF      DEQU   IRA,2       REGISTER ASSIGNMENT FIELDS                  GRA       156
                                         CT       DEQU   CON,3       CANIDATE TYPE  ( CON,AC,VC )                FCC0594     5
                                         DU       DEQU   USE,2       DEF AND USE BITS                            GRA       157
                                         SORT     DEQU   SUSE,CA.TUP+1-CA.SUSEP  SORT FIELDS                     GRA       158
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE     9
        RCT - REGISTER CANIDATE TABLE FORMAT                          IH
  
                                        **        IH. - FORMAT OF SECOND *RCT* WORD                              GRA       160
                                                                                                                 GRA       161
                                                  DESCRIBE IH.,60                                                GRA       162
                                         MSK      DEFINE 1           MASK FLAG                                   GRA       163
                                                  DEFINE 5                                                       GRA       164
                                         RF       DEFINE 18          RCT INDEX OF *RF* OF REFERENCE              GRA       165
                                         CA       DEFINE 18          BIAS OR CON VALUE OF *S* FOR *JK* OF MASK   GRA       166
                                         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
                                         I1       DEFINE 1           INCREMENTED ONCE ( FOR A *RD* )             GRA       172
                                         I2       DEFINE 1           INCR MORE THAN ONCE ! INCR ON SIDE BRANCH   FCC0603     9
                                         IM       DEFINE 1           =1 IF INC VALUE IS MINUS VALUE OF *RCT* ENT GRA       174
                                                  DEFINE 3                                                       GRA       175
                                         INC      DEFINE 18          *RCT* INDEX OF INCREMENT VALUE OF FIRST INC GRA       176
                                                                                                                 GRA       177
                                         H2       DEFINE 18          SYMTAB ORDINAL OF SECOND SYM ( IH-H2 )      GRA       178
                                         REG2     DEFINE 6           REGNO OF SECOND REGISTER ( REG1+-REG2 )     GRA       179
                                         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
                                         REG1     DEFINE 6           REGNO OF REGISTER ASSIGNED                  GRA       186
                                                                                                                 FCC0811     6
                                         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
                                         INV      DEFINE 1           =1 IF REGISTER IS *INV* IN LOOP             GRA       197
                                                  DEFINE 5                                                       GRA       198
                                         R3       DEFINE 18          RCT ORDINALS                                GRA       199
                                         R2       DEFINE 18                                                      GRA       200
                                         R1       DEFINE 18                                                      GRA       201
                                                                                                                 GRA       202
                                                  LIST   R,-X                                                    GRA       203
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    10
        DEBUGGING FACILITIES                                          GRA 
  
                                        **        PRNT - PRINT OUT SELECTED STRUCTURES                           GRA       205
                                        *                                                                        GRA       206
                                        *         PRNT   LAB,(RCT,RAT,RVT)                                       GRA       207
                                                                                                                 GRA       208
                                   1     .1       SET    1                                                       GRA       209
                                                  ECHO   2,X=(RCT,RAT,RVT,SEE,MTA,DXA,DAA,MFA,SUP,SXC)           GRA       210
                                         Q.X      SET    .1                                                      GRA       211
                                         .1       SET    .1+1                                                    GRA       212
                                                                                                                 GRA       213
                                         PRNT     MACRO  LAB,LIST                                                GRA       214
                                                  LOCAL  APL                                                     GRA       215
                                         O        IF     DEF,/DEBUG/LAB                                          FCC1196     5
                                        +         RJ     CPR                                                     GRA       217
                                        -         VFD    30/APL                                                  GRA       218
                                                  USE    DEBUG                                                   GRA       219
                                         APL      CON    10H LAB                                                 GRA       220
                                                  IF     DEF,Q.LAB,1                                             GRA       221
                                                  VFD    6/Q.LAB                                                 GRA       222
                                                  IRP    LIST                                                    GRA       224
                                                  VFD    6/Q.LIST                                                GRA       225
                                                  IRP                                                            GRA       226
                                                  VFD    *P/0                                                    GRA       227
                                                  USE    *                                                       GRA       228
                                         O        ENDIF                                                          GRA       229
                                                  ENDM                                                           GRA       230
                                                                                                                 GRA       231
                                         .T       IFNE   TEST,0                                    *TEST MODE*   GRA       232
                                                                                                                 GRA       233
                                         CPR      ROUTINE                                                        GRA       234
                                                  RJ     =XSAVE=                                                 GRA       235
                                                  SA1    CPR                                                     GRA       236
                                                  SA3    O.RCT                                                   GRA       237
                                                  LX1    30                                                      GRA       238
                                                  SA2    X1-1                                                    GRA       239
                                                  SX6    X2                                                      GRA       240
                                                  BX7    X3                                                      GRA       241
                                                  SA6    CPRA        LOC(LAB)                                    GRA       242
                                                  SA7    CPRA+1                                                  GRA       243
                                                  SX6    X6+1                                                    GRA       244
                                                  SA6    CPRA+3      LOC(INDEX)                                  GRA       245
                                                  SA1    CPRA                                                    GRA       246
                                                  CALL   PRNTGRA                                                 GRA       247
                                                  RJ     =XRESET=                                                GRA       248
                                                  EQ     CPR                                                     GRA       249
                                                                                                                 GRA       250
                                         CPRA     BSS    2                                                       GRA       251
                                                  VFD    42/,18/L.RCT                                            GRA       252
                                                  BSSZ   2                                                       GRA       253
                                                                                                                 GRA       254
                                                  USE    /RCTFMT/                                                GRA       255
                                                  ECHO   1,X=(RA,VC,AC,CON,FP,EU,RF,^RD,IA,TU,PL,PSP,DEF,USE,LX, GRA       256
                                        ,KD,IRA)                                                                 GRA       257
                                                  VFD    42/0A_X,18/60-CA.X_P                                    GRA       258
                                                  USE    0                                                       GRA       259
                                         .T       ENDIF                                            *TEST MODE*   GRA       260
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    11
        GRA - CONTROL                                                 GRA 
  
                                        **        GRA - GLOBAL REGISTER ASSIGNMENT ( CONTROL )                   GRA       262
                                                                                                                 FCC0603    10
             0  00000000000000000004     MARA     DATA   4           MAX A-REGISTER ASSIGNMENTS                  FCC0603    11
             1  00000000000000000000     GRASRF   ENTRY. 0           =1 IF ADDR DIFFERENCING OF SIMILAR *IP"S*   FCC0977     9
                                                                                                                 GRA       263
             2  00000000000000000000     GRA      ENTRY.                                                         GRA       264
             3  7170000004                        SX7    4                                                       FCC0603    12
                          5170000000 +            SA7    MARA        MARA = 4                                    FCC0603    13
                                                                                                                 FCC0603    14
             4  0100000034 +             GRA0     RJ     IRP         INITIALIZE REGION PROCESSING                FCC0603    15
                                                  IF     DEF,/DEBUG/UDT,1                                        GRA       266
                                                  DCALL  PRNTUDI,([O.UDT],L.UDT)                                 GRA       267
                                                                                                                 GRA       268
             5  5110000015 C                      SA1    MRA                                                     GRA       269
                          0301000026 +            ZR     X1,GRA3     IF MRA = 0    */ USER OR I/O EXT REFS       GRA       270
                                                                                                                 GRA       271
             6  7170000443 +                      CLCM   DUM         DETERMINE USEAGE MODE                       GRA       272
            10  7170000162 +                      CLCM   ERC         ENTER REGISTER CANIDATES                    GRA       273
            12  5150000000 X                      SA5    L.RCT                                                   GRA       274
                          7265000000              SX6    X5+         LCT = L.RCT                                 GRA       275
            13  5160000164 C                      SA6    LCT                                                     GRA       276
                                                                                                                 GRA       277
                          0100000054 +            RJ     SEE         SET ENTRY/EXIT CONDITIONS FOR VALUE CANIDAT GRA       278
                                                  PRNT   SEE                                                     GRA       279
                                                                                                                 GRA       280
            14  0100000717 +                      RJ     MTA         MAKE TENATIVE B-ASSIGNMENTS, COUNTING METHO GRA       281
                                                  PRNT   MTA,(RAT,RCT)                                           GRA       282
                                                                                                                 GRA       283
            15  5110000020 C                      SA1    XRF                                                     GRA       284
                          0311000025 +            NZ     X1,GRA2     IF XRF " 0    */ EXT REFS IN THE LOOP       GRA       285
            16  5120000017 C                      SA2    N.HB                                                    GRA       286
                          0312000024 +            NZ     X2,GRA1     IF N.HB " 0   */ NOT INNERMOST LOOP         GRA       287
                                                                                                                 GRA       288
            17  5130000034 C                      SA3    MAXW                                                    GRA       289
                          5140000171 C            SA4    NTA                                                     GRA       290
            20  6233000000                        SB3    X3+                                                     GRA       291
                          6244000010              SB4    X4+8                                                    GRA       292
            21  0743000025 +                      GT     B3,B4,GRA2  IF MAXW > NTA+8 */ LOOP IS TOO WIDE         GRA       293
                                                                                                                 GRA       294
                          0100001073 +            RJ     DXA         DETERMINE X-ASSIGNMENTS                     GRA       295
                                                  PRNT   DXA                                                     GRA       296
                                                                                                                 GRA       297
            22  0100001316 +                      RJ     DAA         DETERMINE A-ASSIGNMENTS                     GRA       298
                                                  PRNT   DAA                                                     FCC1039     6
            23  0400000025 +                      EQ     GRA2                                                    GRA       300
                                                                                                                 GRA       301
            24  0100001073 +             GRA1     RJ     DXA         MOVE PREVIOUS X-ASSIGNMENTS OUT             GRA       302
                                                                                                                 GRA       303
            25  0100001454 +             GRA2     RJ     MFA         MAKE FINAL B-ASSIGNMENTS                    GRA       304
                                                  PRNT   MFA,(RAT,RCT)                                           GRA       305
                                                                                                                 GRA       306
            26  0100002610 +             GRA3     RJ     CLB         CODE LOOP BODY                              GRA       307
                                                                                                                 GRA       308
            27  0100002203 +                      RJ     SUP         SETUP PRELOADS IN HOLDING BLOCK             GRA       309
                                                  PRNT   SUP,RAT                                                 GRA       310
                                                                                                                 GRA       311
            30  0100002500 +                      RJ     SXC         SET EXIT CONDITIONS ( POST STORES, ETC. )   GRA       312
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    12
        GRA - CONTROL                                                 GRA 
  
                                                  TRACE  SXC,TET                                                 GRA       313
                                                  PRNTABV  SXC,(LUV,LEA)                                         GRA       314
            31  7160000000                        SX6    0                                                       GRA       315
                          5160000000 X            SA6    L.RCT       L.RCT = 0                                   GRA       316
            32  5160000000 X                      SA6    L.RXI       L.RXI = 0                                   GRA       317
                          5160000001 +            SA6    GRASRF      GRASRF = 0                                  FCC0977    10
            33  0400000002 +                      EQ     GRA                                                     GRA       318
  
  
  
                                        **        IRP - INITIALIZE REGION PROCESSING                             GRA       320
                                                                                                                 GRA       321
            34  0200400034 +             IRP      ROUTINE                                                        GRA       322
                                                                                                                 GRA       323
            35  13666                             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
            37  5150000053 +                      SA5    IRPA                                                    GRA       329
                          7110000006              ALLOC  RCT,6       ALLOC( RCT , 6 )                            GRA       330
            41  43600                             MX6    0                                                       GRA       331
                     53620                        SA6    X2                                                      GRA       332
                          54661                   SA6    A6+B1                                                   GRA       333
                               54661              SA6    A6+B1                                                   GRA       334
            42  10755                             BX7    X5                                                      GRA       335
                     54761                        SA7    A6+B1       RCT(4) = CAW(0,CON,RF,0)  */ CON 1          GRA       336
                          76710                   SX7    B1                                                      GRA       337
                               20722              LX7    IH.CAP                                                  GRA       338
            43  54771                             SA7    A7+B1       RCT(5) = IHW(0,0,1,0)                       GRA       339
                     54671                        SA6    A7+B1       RCT(6) = 0                                  GRA       340
                          7170000144              SX7    100                                                     GRA       341
            44  5170000166 C                      SA7    TUD         TUD = 100                                   GRA       342
                                                                                                                 GRA       343
                          5110000017 C            SA1    N.HB                                                    GRA       344
            45  0301000047 +                      ZR     X1,IRP1     IF N.HB = 0   */ INNERMOST LOOP             GRA       345
                          5140000004 C            SA4    LUV                                                     GRA       346
            46  76510                             SX5    B1                                                      GRA       347
                     20566                        LX5    UD.ISTP                                                 GRA       348
                          0100000000 X            CALL   EBV         EBV( LUV , IST )  */ SET *IST* FOR DUM/ERC  GRA       349
                                                                                                                 GRA       350
                                        *         RESERVE *B3* FOR ASSIGNED GOTO COMPARE TEST, IF A              FCC0909    30
                                        *         LABEL SWITCH WAS PERFORMED ( LGL " 0 ) .                       FCC0909    31
                                                                                                                 FCC0909    32
            47  5110000027 C             IRP1     SA1    N.LJ                                                    FCC0909    33
                          20101                   LX1    1                                                       FCC0909    34
            50  0321000034 +                      PL     X1,IRP      IF ^B58[N.LJ]                               FCC0909    35
                                                                                                                 FCC0909    36
                          5120000015 C            SA2    MRA                                                     FCC0909    37
            51  7170000010                        SX7    1S3                                                     FCC0909    38
                          15627                   BX6    -X7*X2      MRA = MRA & ^1S3  */ MAKE *B3* UNAVAIL      FCC0909    39
                               54620              SA6    A2                                                      FCC0909    40
            52  5170000161 C                      SA7    TRA         TRA = 1S3     */ INDICATE TEMP USE OF *B3*  FCC0909    41
                          0400000034 +            EQ     IRP                                                     FCC0909    42
                                                                                                                 GRA       390
            53                           IRPA     BFMW   CA,(CON,RF)                                             GRA       391
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    13
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                        **        SEE - SET ENTRY/EXIT CONDITIONS FOR VALUE CANIDATES IN *RCT*   GRA       394
                                                                                                                 GRA       395
            54  0200400054 +             SEE      ROUTINE                                                        GRA       396
            55  5150000000 X                      SA5    O.RCT                                                   GRA       397
                          5140000000 X            SA4    L.RCT                                                   GRA       398
            56  5130000000 X                      SA3    BVL                                                     GRA       399
                          5120000007 C            SA2    LEA                                                     GRA       400
            57  5110000000 C                      SA1    O.UDT                                                   GRA       401
                          63240                   SB2    X4                                                      GRA       402
                               63720              SB7    X2                                                      GRA       403
            60  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
            61  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
            62  66400                             SB4    B0          NV = 0                                      GRA       410
                     0400000065 +                 EQ     SEE2                                                    GRA       411
                                                                                                                 GRA       412
                                        *         COMPILER TEMPORARY, SET PROFIT = DU[CI]+1                      GRA       413
                                                                                                                 GRA       414
            63  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
            64  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
            65  55553                    SEE2     SA5    A5-B3       CI = CI - 3                                 GRA       425
                     0305000121 +                 ZR     X5,SEE6     IF [CI] = 0   */ END OF TABLE               GRA       426
                               22655              LX6    B5,X5                                                   GRA       427
            66  0326000065 +                      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
            67  15760                             BX7    -X0*X6      DUB = DU[CI]                                GRA       432
                     66441                        SB4    B4+B1       NV = NV + 1                                 GRA       433
                          0420000063 +            ZR     B2,SEE1     IF I = 0      */ COMPILER TEMP              GRA       434
            70  0623000073 +                      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
            71  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
            72  0400000065 +                      EQ     SEE2                                                    FCC0645    19
                                                                                                                 GRA       435
                                        *         PROCESS PROGRAMMER VARIABLE, EXIT INFO COMPUTED IN *FXI*       GRA       436
                                                                                                                 GRA       437
            73  54402                    SEE2A    SA4    A0+B2       U2 = UDT(I+1)                               FCC0645    20
                     53247                        SA2    B7+X4       VA = LEA + WI[UI];  LE = [VA]               GRA       439
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    14
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                          76110                   SX1    B1                                                      GRA       440
                               26324              UX3    B2,X4       B = BITN[U2]                                GRA       441
            74  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
            75  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
            76  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
            77  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
           100  0326000105 +                      PL     X6,SEE3     IF ^DEF[CI]                                 GRA       458
                          0311000105 +            NZ     X1,SEE3     IF PSP[CI]    */ POST STORE POSSIBLE        GRA       459
           101  10466                             BX4    X6                                                      GRA       460
                     20442                        LX4    CA.DEFP-CA.TUP                                          GRA       461
                          0334000105 +            MI     X4,SEE3     IT TU[CI]     */ KEEP CV FIRST IN MTA SORT  GRA       462
           102  7277777775                        SX7    X7-2        DUB = DUB - 2                               GRA       463
                          0317000105 +            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
           103  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
           104  0400000065 +                      EQ     SEE2                                                    GRA       472
                                                                                                                 GRA       473
                                        *         SET PROFIT = 1 IF USE ! DEF , ELSE 3                           GRA       474
                                                                                                                 GRA       475
           105  63271                    SEE3     SB2    X7+B1                                                   GRA       476
                     0523000106 +                 NE     B2,B3,SEE4  IF DUB " 2    */ NOT DEF ONLY               GRA       477
                               76710              SX7    B1          DUB = 1                                     GRA       478
                                                                                                                 GRA       479
           106  20754                    SEE4     LX7    CA.PRFTP                                                GRA       480
                     12757                        BX7    X5+X7       PRFT[CI] = DUB                              GRA       481
                          5075000000              SA7    A5+                                                     FCC0839     4
           107  0326000065 +                      PL     X6,SEE2     IF ^DEF[CI]    */ USED ONLY                 FCC0839     5
                          20640                   LX6    CA.DEFP-CA.^RDP                                         FCC0839     6
           110  0312000065 +                      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
                          0326000113 +            PL     X6,SEE4A    IF RD[CI]                                   GRA       489
                                                                                                                 GRA       490
           111  20635                             LX6    CA.^RDP-CA.USEP                                         GRA       491
                     0336000065 +                 MI     X6,SEE2     IF USE[CI]                                  GRA       492
                                                                                                                 GRA       493
                               43600              MX6    0           DIFF = 0                                    GRA       494
           112  0400000117 +                      EQ     SEE5                                                    GRA       495
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    15
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                                                                                                 GRA       496
           113  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
           114  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
           115  0325000117 +                      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
           116  0400000065 +                      EQ     SEE2                                                    GRA       508
                                                                                                                 GRA       509
           117  0316000065 +             SEE5     NZ     X6,SEE2     IF DIFF " 0   */ VAR HAS REAL USES          GRA       510
                                                                                                                 GRA       511
                          5140000160 +            SA4    SEEA                                                    GRA       512
           120  12747                             BX7    X4+X7       (RA,KD)[CI] = 1                             GRA       513
                     54770                        SA7    A7                                                      GRA       514
                          0400000065 +            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
           121  5110000173 C             SEE6     SA1    NXC                                                     GRA       520
                          5120000163 C            SA2    FBA                                                     GRA       521
           122  76641                             SX6    B4+B1       NVC = NV + 1  */ N. VALUE CANIDATES         GRA       522
                     64650                        SB6    A5                                                      GRA       523
                          5160000165 C            SA6    NVC                                                     GRA       524
           123  36712                             IX7    X1+X2                                                   GRA       525
                     0307000145 +                 ZR     X7,SEE11    IF FBA + NXC = 0  */ NO FINAL ASSIGNMENTS   GRA       526
                               43001              MX0    1                                                       GRA       527
           124  7120000027                        SX2    27B         I = 27B                                     GRA       528
                          6170000100 C            SB7    RAT                                                     GRA       529
           125  0311000126 +                      NZ     X1,SEE7     IF NXC " 0                                  GRA       530
                          7120000007              SX2    7           I = 7                                       GRA       531
                                                                                                                 GRA       532
           126  53527                    SEE7     SA5    B7+X2                                                   GRA       533
                     0305000144 +                 ZR     X5,SEE8     IF RAT(I) = 0                               GRA       534
                               53456              SA4    B6+X5       J = R1[RAT(I)];  CAW = RCT(J)               FCC1014     5
           127  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
           130  20426                             LX4    CA.DEFP-CA.RAP                                          GRA       541
                     0324000141 +                 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
           131  0315000144 +                      NZ     X5,SEE8     IF (R2,R3)[CAW] " 0                         FCC1014    11
                                                  LX4    1+CA.RAP                                                FCC1014    12
                          7264777775              SX6    X4-2                                                    FCC1014    13
           132  0316000144 +                      NZ     X6,SEE8     IF UDI[CAW] " 1                             FCC1014    14
                          54341                   SA3    A4+B1       C2W = RCT(J+1)                              FCC1014    15
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    16
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                               20330              LX3    -IH.RFP                                                 FCC1014    16
           133  63230                             SB2    X3                                                      FCC1014    17
                     20322                        LX3    IH.RFP-IH.CAP                                           FCC1014    18
                          0521000144 +            NE     B2,B1,SEE8  IF RF[C2W] " 1                              FCC1014    19
                                                                                                                 FCC1014    20
           134  7263000002                        SX6    X3+2                                                    FCC1014    21
                          54630                   SA6    A3          RCT(J+1) = IHW(0,0,CA[C2W]+2)               FCC1014    22
                               76310              SX3    B1                                                      FCC1014    23
           135  20370                             LX3    CA.ACP                                                  FCC1014    24
                     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
           136  54640                             SA6    A4                                                      FCC1014    28
                     5044000002                   SA4    A4+2                                                    FCC1014    29
           137  7150000200                        SX5    2S6                                                     FCC1014    30
                          12645                   BX6    X4+X5       MIT[RCT(J+2)] = 2                           FCC1014    31
                               54640              SA6    A4                                                      FCC1014    32
           140  0400000144 +                      EQ     SEE8                                                    FCC1014    33
                                                                                                                 GRA       543
                                        *         INV ADDRESS CANIDATE AND *RF* NOT MARKED                       GRA       544
                                                                                                                 GRA       545
           141  20444                    SEE7A    LX4    1+CA.RAP-CA.SUSEP                                       FCC1014    34
                     43763                        MX7    -CA.SUSEL                                               GRA       547
                          15347                   BX3    -X7*X4                                                  GRA       548
           142  0313000144 +                      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
           143  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
           144  7222777776               SEE8     SX2    X2-1        I = I - 1                                   GRA       559
                          0312000126 +            NZ     X2,SEE7     IF I " 0                                    GRA       560
  
                                        *         SCAN *IA* LIST TO SET USEAGE MODE FOR ENTRIES ON IT            GRA       562
                                                                                                                 GRA       563
           145  5110000160 C             SEE11    SA1    IAI                                                     GRA       564
                          0301000054 +            ZR     X1,SEE      IF IAI = 0    */ NO *IA* INCRS              GRA       565
                                                                                                                 GRA       566
           146  6120000000 C                      SB2    SCR         K = 0                                       GRA       567
                          63312                   SB3    X1+B2                                                   GRA       568
                               76010              SX0    B1                                                      GRA       569
           147  20062                             LX0    CA.RFP                                                  GRA       570
                     76110                        SX1    B1                                                      GRA       571
                          20163                   LX1    CA.EUP                                                  GRA       572
           150  6150000051                        SB5    59-CA.KDP                                               GRA       573
                          76410                   SX4    B1                                                      FCC0535     5
                               20423              LX4    CA.LXP                                                  FCC0535     6
                                                                                                                 GRA       574
           151  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
           152  0336000157 +                      MI     X6,SEE14    IF KD[CAW]    */ INC IS USELESS             GRA       579
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    17
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                                                                                                 GRA       580
                          11705                   BX7    X0*X5       BIT = RF[CAW]                               GRA       581
                               21222              AX2    18                                                      GRA       582
           153  0317000155 +                      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
           154  10711                             BX7    X1          BIT = EU                                    GRA       587
                                                                                                                 GRA       588
           155  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
           156  0333000157 +                      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
           157  0723000151 +             SEE14    LT     B2,B3,SEE12 IF K < IAI                                  GRA       593
                          0400000054 +            EQ     SEE                                                     GRA       594
                                                                                                                 GRA       595
           160                           SEEA     BFMW   CA,(RA,VC,KD)                                           GRA       596
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    18
        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
           161                                    PROCESS EOQ                                                    GRA       608
           161  77665                             SX6    B6-B5       L.RCT = CL - CO                             GRA       609
                     5160000000 X                 SA6    L.RCT                                                   GRA       610
                                                  TRACE  ERC,RLIST,SEQ                                           GRA       611
                                                                                                                 GRA       612
           162  0200400162 +             ERC      ROUTINE                                                        GRA       613
           163  22314                             LX3    B1,X4                                                   GRA       614
                     36134                        IX1    X3+X4                                                   GRA       615
                          5100000000 X            ALLOC  RCT,X1      ALLOC( RCT , 3*NC )                         GRA       616
           165  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
           166  5140000004 C                      SA4    LUV                                                     GRA       620
                          5130000000 C            SA3    O.UDT                                                   GRA       621
           167  6130000003                        SB3    3                                                       GRA       622
                          63440                   SB4    X4          (B4) = [LUV]                                GRA       623
                               63753              S"TB"  X5+B3       TB = O.SEQ + 3                              GRA       624
           170  53550                             SA5    X5          R1 = O.SEQ                                  GRA       625
                     53030                        SA0    X3          (A0) = [O.UDT]                              GRA       626
                                                                                                                 GRA       627
           171                                    PROCESS (BOS,EOS)                                              GRA       628
           171  73750                             SX7    X5                                                      GRA       629
                     0307000174 +                 ZR     X7,ERC1     IF IH[R1] = 0 */ NO BLOCK NUMBER            GRA       630
                               20552              LX5    -R1.H2P                                                 GRA       631
           172  43472                             MX4    -CA.APLNL                                               GRA       632
                     15654                        BX6    -X4*X5                                                  GRA       633
                          20652                   LX6    CA.APLNP    APF = APLN[R1]                              GRA       634
           173  5160000162 C                      SA6    APF                                                     GRA       635
                                                                                                                 GRA       636
                                        *         CLEAR LINK WORD ( NON CANIDATE )                               GRA       637
                                                                                                                 GRA       638
           174                                    PROCESS CLR                                                    GRA       639
           174  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
           175  5055000004               ERC2     SA5    A5+4        R1 = R1 + 4                                 GRA       645
                          26625                   UX6    B2,X5                                                   GRA       646
           176  0222000611 +                      JP     ERC.JT+B2   JUMP( ERC.JT( OC[R1] ) )                    GRA       647
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    19
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     SCON                ERC 
  
                                        *         CONSTANT CANIDATE PROCESSING                                   GRA       649
                                                                                                                 GRA       650
           177                                    PROCESS S                                                      GRA       651
           177  20536                             LX5    -R1.INP                                                 GRA       652
                     73650                        SX6    X5                                                      GRA       653
                          21673                   AX6    59                                                      GRA       654
                               73750              SX7    X5                                                      GRA       655
           200  13667                             BX6    X6-X7                                                   GRA       656
                     20622                        LX6    IH.CAP      C2W = IHW(0,0,ABS(IN[R1]),0)                GRA       657
                                                                                                                 GRA       658
           201  5035000002               SET1     SA3    A5+2        DI = R1 + 2                                 GRA       659
                          20325                   LX3    59-D.PRSP                                               GRA       660
           202  0323000206 +                      PL     X3,SET2     IF ^PRS[DI]                                 GRA       661
                          5025000004              SA2    A5+4        R1RS = R1 + 4                               GRA       662
           203  20243                             LX2    59-R1.SOP-SO.INVP                                       GRA       663
                     0322000174 +                 PL     X2,ERC1     IF ^INV[R1RS]  */ CHANGED IN INNER LOOP     GRA       664
                               73750              SX7    X5                                                      FCC0513     4
           204  0327000206 +                      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
           205  20622                             LX6    IH.CAP      C2W = IHW(0,0,IN[R1],0)                     FCC0513     8
                                                                                                                 GRA       665
           206  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
           207  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
           210  0100000351 +                      RJ     SCT         ENTER CONSTANT                              GRA       675
           211  0400000175 +                      EQ     ERC2                                                    GRA       676
  
  
           212                                    PROCESS FMA                                                    GRA       678
           212  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
           213  12647                             BX6    X4+X7       C2W = IHW(1,0,IN[R1],0)                     GRA       684
                     0400000201 +                 EQ     SET1                                                    GRA       685
  
  
  
                                        *         SXT - ENTER *CA* OF FOLLOWING CON SHIFT                        GRA       687
                                                                                                                 GRA       688
           214                                    PROCESS SXT                                                    GRA       689
           214  5045000005                        SA4    A5+5        R2S = R1 + 5                                GRA       690
                          20452                   LX4    -IH.CAP                                                 GRA       691
                               73640              SX6    X4                                                      GRA       692
           215  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
           216  20167                             LX1    CA.CONP     CPW = CAW(0,CON,0)                          GRA       697
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    20
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     SXT                 ERC 
  
                     0100000351 +                 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
           217  54550                             SA5    A5                                                      GRA       702
                     67271                        SB2    "TB"-B1                                                 GRA       703
                          43364                   MX3    -D.USESL+1                                              GRA       704
                               20534              LX5    -R1.RJP                                                 GRA       705
           220  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
           221  0307000175 +                      ZR     X7,ERC2     IF USES[DIP] = 1                            GRA       710
                          76310                   SX3    B1                                                      GRA       711
                               20341              LX3    CA.NOCCP                                                GRA       712
           222  36636                             IX6    X3+X6       NOCC[CAW] = NOCC[CAW] + 1                   GRA       713
                     54660                        SA6    A6                                                      GRA       714
                          0400000175 +            EQ     ERC2                                                    GRA       715
  
  
  
                                        *         STT - ENTER CONSTANT OR ADDRESS CANIDATE                       GRA       717
                                                                                                                 GRA       718
           223                                    PROCESS STT                                                    GRA       719
           223  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
           224  20330                             LX3    -IH.RFP                                                 GRA       723
                     15430                        BX4    "RN"X3      R = RF[R2]                                  GRA       724
                          0321000230 +            PL     X1,STT2     IF ^INC[DI]   */ NOT AN INCREMENT           GRA       725
                                                                                                                 GRA       726
           225  20147                             LX1    D.INCP-D.PSP                                            FCC1039     7
                     0321000174 +                 PL     X1,ERC1     IF ^PS[DI]    */ THIS IS THE TEST INCR      FCC1039     8
                                                                                                                 GRA       731
                               20322              LX3    IH.RFP-IH.CAP                                           GRA       732
           226  73630                             SX6    X3                                                      GRA       733
                     0326000227 +                 PL     X6,STT1                                                 GRA       734
                               14666              BX6    -X6                                                     GRA       735
           227  20622                    STT1     LX6    IH.CAP      C2W = IHW(0,0,ABS(CA[R2]),0)                GRA       736
                     0400000206 +                 EQ     SET2                                                    GRA       737
                                                                                                                 GRA       738
                                        *         PROCESS ADDRESS CANIDATE                                       GRA       739
                                                                                                                 GRA       740
           230  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
           231  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
           232  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
           233  0400000253 +                      EQ     ST2A                                                    FCC0919     5
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    21
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     TST                 ERC 
  
                                        *         TST/TLD - ENTER VALUE CANIDATES                                GRA       754
                                                                                                                 GRA       755
           234                                    PROCESS TST                                                    GRA       756
           234  54353                             SA3    A5+B3       LI = R1 + 3                                 GRA       757
                     0303000175 +                 ZR     X3,ERC2     IF [LI] = 0   */ USED IN INNER LOOP         GRA       758
           235  5110000243 +                      SA1    TSTA                                                    GRA       759
                          0400000237 +            EQ     TLD1                                                    GRA       760
                                                                                                                 GRA       761
           236                                    PROCESS TLD                                                    GRA       762
           236  5110000242 +                      SA1    TLDA                                                    GRA       763
                                                                                                                 GRA       764
           237  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
           240  0100000351 +             TLD2     RJ     SCT         ENTER CANIDATE                              GRA       770
           241  0400000175 +                      EQ     ERC2                                                    GRA       771
                                                                                                                 GRA       772
           242                           TLDA     BFMW   CA,(PL,USE)                                             GRA       773
           243                           TSTA     BFMW   CA,(PL,DEF)                                             GRA       774
  
  
                                        *         LD/ST - ENTER VALUE OR ADDRESS CANIDATE                        GRA       776
                                                                                                                 GRA       777
           244                                    PROCESS ST                                                     GRA       778
           244  76110                             SX1    B1                                                      GRA       779
                     20125                        LX1    CA.DEFP     BIT = DEF                                   GRA       780
                          0400000247 +            EQ     ST1                                                     GRA       781
                                                                                                                 GRA       782
           245                                    PROCESS (LD,ILD)                                               GRA       783
           245  5045000002                        SA4    A5+2        DI = R1 + 2                                 GRA       784
                          76110                   SX1    B1                                                      GRA       785
                               20123              LX1    D.RFP                                                   GRA       786
           246  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
           247  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
           250  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
           251  10622                             BX6    X2          C2W = [R2]                                  GRA       800
                     0333000240 +                 MI     X3,TLD2     IF VC[LI]                                   GRA       801
                               20301              LX3    CA.VCP-CA.ACP                                           GRA       802
           252  0323000264 +                      PL     X3,ST4      IF ^AC[LI]                                  GRA       803
                                                                                                                 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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    22
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     LDST                ERC 
  
           253  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
           254  53242                    ST2B     SA2    B2+X4       DIP = TB-1 + R                              FCC1039    10
                     20251                        LX2    59-D.INCP                                               GRA       813
                          0322000261 +            PL     X2,ST3      IF ^INC[DIP]                                GRA       814
                                                                                                                 GRA       815
           255  20223                             LX2    1+D.INCP+58-D.TYP                                       GRA       816
                     55421                        SA4    A2-B1       R2P = DIP - 1                               GRA       817
                          0322000257 +            PL     X2,ST2      IF TYPE[DIP] = I                            GRA       818
           256  20430                             LX4    -IH.RFP                                                 GRA       819
                     15440                        BX4    "RN"X4      R = RF[R2P]   */ POINT TO INC VARIABLE      GRA       820
                          0400000254 +            EQ     ST2B                                                    FCC1039    11
                                                                                                                 GRA       822
           257  54221                    ST2      SA2    A2+B1       LIP = DIP + 1 */ CONTAINS CANIDATE ORDINAL  FCC1039    12
                     0302000261 +                 ZR     X2,ST3      IF [LI] = 0   */ THIS INC IS NOT A CANIDATE FCC1039    13
                               73220              SX2    X2                                                      FCC1039    14
           260  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
           261  0100000351 +             ST3      RJ     SCT         ENTER CANIDATE                              GRA       834
           262  5045000003                        SA4    A5+3                                                    GRA       835
                          0314000175 +            NZ     X4,ERC2     IF [R1+3] " 0 */ CANIDATE ENTERED           GRA       836
                                                                                                                 GRA       837
           263  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
           264  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
           265  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
           266  0400000174 +                      EQ     ERC1                                                    GRA       851
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    23
        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
           267                                    PROCESS RS                                                     GRA       856
           267  5110000017 C                      SA1    N.HB                                                    GRA       857
                          20546                   LX5    -R1.SOP-SO.LKP                                          GRA       858
                               43672              MX6    -SO.LKL                                                 GRA       859
           270  63210                             SB2    X1                                                      GRA       860
                     0521000174 +                 NE     B2,B1,RS9   IF N.HB " 1   */ ^ OUTER WITH 1 INNER LOOP  GRA       861
                               15756              BX7    -X6*X5                                                  GRA       862
           271  63271                             SB2    X7+B1                                                   GRA       863
                     0523000174 +                 NE     B2,B3,RS9   IF SOLK[R1] " 2 */ NOT FULL LOCK RS         GRA       864
                               43666              MX6    -SO.REGL                                                GRA       865
           272  5120000020 C                      SA2    XRF                                                     GRA       866
                          0312000174 +            NZ     X2,RS9      IF XRF " 0    */ EXT REFS IN LOOP           GRA       867
           273  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
           274  6227777704                        SB2    X7-59                                                   GRA       874
                          23622                   LX6    -B2,X2                                                  GRA       875
           275  0336000174 +                      MI     X6,RS9      IF SHIFT(TRA,59-REGN) < 0  */ TEMP/RJRS USE GRA       876
                                                                                                                 GRA       877
                          0100000340 +            RJ     FCP         I = FCP(R1)   */ RCT ORD OF PRED            FCC0448    69
           276  0304000174 +                      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
           277  0333000174 +                      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
           300  0303000306 +                      ZR     X3,RS2      IF R2W = 0    */ NO *CAIH* IN *RS*          GRA       910
                          5024777775              SA2    A4-2        R2P = LI - 2                                GRA       911
           301  13623                             BX6    X2-X3                                                   GRA       912
                     53245                        SA2    B5+X4       CI = RCT([LI])                              FCC1770X    6
                          0306000304 +            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
           302  20205                             LX2    59-CA.FPP                                               FCC1770X   11
                     0322000306 +                 PL     X2,RS2      IF ^FP[CI]                                  FCC1770X   12
                               20272              LX2    CA.FPP-CA.ACP                                           FCC1770X   13
           303  0322000306 +                      PL     X2,RS2      IF ^AC[CI]                                  FCC1770X   14
                          0400000174 +            EQ     ERC1                                                    FCC1770X   15
                                                                                                                 FCC1770X   16
           304  20202                    RS1      LX2    59-CA.VCP                                               FCC1770X   17
                     0332000326 +                 MI     X2,RS3      IF VC[CI]     */ NO INTERFERENCE IN LOOPS   GRA       917
           305  0400000174 +                      EQ     ERC1                                                    GRA       918
                                                                                                                 GRA       919
           306  43672                    RS2      MX6    -2                                                      GRA       920
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    24
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     RS                  ERC 
  
                     12265                        BX2    X6+X5                                                   GRA       921
                          0312000174 +            NZ     X2,RS9      IF ^( INV[R1] & INVC[R1] )                  GRA       922
                                                                                                                 GRA       923
           307  5015777773                        SA1    A5-4        R1P = R1 - 4                                GRA       924
                          54211                   SA2    A1+B1       R2P = R1P + 1                               GRA       925
                               26621              UX6    B2,X1                                                   GRA       926
           310  7132777725                        SX3    B2-OC.STT                                               GRA       927
                          0313000326 +            NZ     X3,RS3      IF OC[R1P] " OC.STT                         GRA       928
           311  73620                             SX6    X2                                                      FCC2074     5
                     20230                        LX2    -IH.RFP                                                 GRA       929
                          15120                   BX1    "RN"X2      R = RF[R2P]                                 GRA       930
           312  0301000326 +                      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
           313  53125                             SA1    B5+X2       CK = RCT(K)                                 FCC2074     6
                     0306000315 +                 ZR     X6,RS2A     IF IH[R2P] = 0  */ NO IH                    FCC2074     7
                               10611              BX6    X1                                                      FCC2074     8
           314  20602                             LX6    59-CA.VCP                                               FCC2074     9
                     0326000174 +                 PL     X6,ERC1     IF ^VC[CK]    */ FP AND INTERFERENCE        FCC2074    10
                                                                                                                 FCC2074    11
           315  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
           316  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
           317  6221777775                        SB2    X1-2                                                    FCC1014    36
                          0520000326 +            NZ     B2,RS3      IF UDI[CK] " 1                              FCC1014    37
           320  20102                             LX1    59-CA.VCP                                               FCC1014    38
                     0321000326 +                 PL     X1,RS3      IF ^VC[CK]                                  FCC1014    39
                               54111              SA1    A1+B1       C2K = RCT(K+1)                              FCC1014    40
           321  20130                             LX1    -IH.RFP                                                 FCC1014    41
                     63210                        SB2    X1                                                      FCC1014    42
                          0521000326 +            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
           322  55351                             SA3    A5-B1       J = CO[LI]                                  FCC1014    49
                     20122                        LX1    IH.RFP-IH.CAP                                           FCC1014    50
                          7211000002              SX1    X1+2        IH = CA[C2K] + 2                            FCC1014    51
           323  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
           324  15661                             BX6    -X1*X6      RCT(J+1) = IHW(0,CA[C2J],IH)                FCC1014    56
                     54630                        SA6    A3                                                      FCC1014    57
                          43600                   MX6    0                                                       FCC1014    58
           325  5267000100 C                      SA6    RAT+X7      RAT(REGN) = 0                               FCC1014    59
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    25
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     RS                  ERC 
  
                                        *         SETUP *RCT* AND *RAT* TO MARK THE CANIDATE AS ASSIGNED         GRA       945
                                        *         TO A REGISTER IN THIS LOOP.                                    GRA       946
                                                                                                                 GRA       947
           326  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
           327  12612                             BX6    X1+X2                                                   GRA       952
                     54620                        SA6    A2                                                      GRA       953
                          6227777767              SB2    X7-8                                                    GRA       954
                                                  LX7    CC.REG1P                                                GRA       955
           330  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
           331  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
           332  5065000003                        SA6    A5+3        [R1+3] = J                                  GRA       962
                          5217000100 C            SA1    RAT+X7                                                  GRA       963
           333  0311000334 +                      NZ     X1,RS4      IF RAT(REGN) " 0  */ STT CASE               GRA       964
                          5061000000              SA6    A1+         RAT(REGN) = J                               GRA       965
                                                                                                                 GRA       966
           334  0620000336 +             RS4      PL     B2,RS5      IF REGN > 7                                 GRA       967
                                                                                                                 GRA       968
                          5170000163 C            SA7    FBA         FBA = REGN    */ INIDCATE FINAL B-ASSIGNMEN GRA       969
           335  0400000175 +                      EQ     ERC2                                                    GRA       970
                                                                                                                 GRA       971
           336  5110000173 C             RS5      SA1    NXC                                                     GRA       972
                          5261000174 C            SA6    XCT+X1      XCT(NXC) = J                                GRA       973
           337  73711                             SX7    X1+B1                                                   GRA       974
                     54710                        SA7    A1          NXC = NXC + 1                               GRA       975
                          0400000175 +            EQ     ERC2                                                    GRA       976
                                                                                                                 GRA       977
                                 174 +   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
           340  0200400340 +             FCP      ROUTINE                                                        FCC0448    81
           341  55451                             SA4    A5-B1       LI = R1 - 1;  I = [I]                       FCC0448    82
                     55341                        SA3    A4-B1       DI = LI - 1                                 FCC0448    83
                          0314000340 +            NZ     X4,FCP      IF I " 0      */ IMMEDIATE PRED A CANIDATE  FCC0448    84
                                                  LX3    58-D.TYP                                                FCC0448    85
           342  43602                             MX6    D.TYL                                                   FCC0448    86
                     11363                        BX3    X6*X3                                                   FCC0448    87
                          0313000340 +            NZ     X3,FCP      IF TYPE[DI] " I  */ NOT POSSIBLE SA/XMT     FCC0448    88
                                                                                                                 FCC0448    89
           343  5033777775                        SA3    A3-2        R1P = DI - 2                                FCC0448    90
                          26623                   UX6    B2,X3                                                   FCC0448    91
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    26
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     FCP                 ERC 
  
                               20334              LX3    -R1.RJP                                                 FCC0448    92
           344  15630                             BX6    "RN"X3      R = RJ[R1P]                                 FCC0448    93
                     53467                        SA4    "TB"+X6     LI = TB + R;  I = [LI]                      FCC0448    94
                          0304000340 +            ZR     X4,FCP      IF I " 0      */ PRED NOT A CANIDATE        FCC0448    95
           345  7162777717                        SX6    B2-OC.SA                                                FCC0448    96
                          0306000340 +            ZR     X6,FCP      IF OC[R1P] = OC.SA                          FCC0448    97
           346  7162777767                        SX6    B2-OC.XMT                                               FCC0448    98
                          0306000340 +            ZR     X6,FCP      IF OC[R1P] = OC.XMT                         FCC0448    99
                                                                                                                 FCC0448   100
           347  43400                             MX4    0           I = 0         */ INDICATE PRED NOT A CANIDA FCC0448   101
                     0400000340 +                 EQ     FCP                                                     FCC0448   102
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    27
        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
           350  7170000000               SCT0     SX7    0                                                       GRA      1006
                          5075000003              SA7    A5+3        [R1+3] = 0                                  GRA      1007
                                                                                                                 GRA      1008
           351  0200400351 +             SCT      ROUTINE                                                        GRA      1009
           352  66253                             SB2    B5+B3       SA = CO + 3   */ SEARCH ADDRESS             GRA      1010
                     0304000360 +                 ZR     X4,SCT1     IF R = 0                                    GRA      1012
                               53447              SA4    "TB"+X4     LI = TB + R;  R = [LI]  */ SUBST RCT INDX   GRA      1013
           353  0304000355 +                      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
           354  0333000357 +                      MI     X3,SCT0B    IF VC[RCT(R)]                               FCC1014    68
                          43400                   MX4    0           R = 0                                       FCC1014    69
           355  7236000000               SCT0A    SX3    X6+                                                     FCC1014    70
                          0303000350 +            ZR     X3,SCT0     IF IH[C2W] = 0  */ *AC* AND NO *IH*         FCC1014    71
                                                                                                                 FCC1014    72
           356  7130000400                        SX3    4S6                                                     FCC1014    73
                          12737                   BX7    X3+X7       MIT[CCW] = 4  */ RF NOT IN RCT CASE         FCC1014    74
                                                                                                                 FCC1014    75
           357  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
           360  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
           361  5120000436 +                      SA2    SCTA                                                    FCC1014    78
                          10577                   BX5    X7                                                      FCC0594     8
                               12131              BX1    X3+X1       CPW = CPW ! [LI]  */ SET CT, USAGE          FCC0594     9
           362  22701                             LX7    X1                                                      FCC0594    10
                     5176000000                   SA7    B6+         [CL] = CPW    */ SKEL CA WORD               FCC0594    11
                               10755              BX7    X5                                                      FCC0594    12
                                                                                                                 GRA      1028
           363  13546                    SCT2     BX5    X4-X6       DIFF = C2W - KEY                            GRA      1029
                     54443                        SA4    A4+B3       CI = CI + 3;  KEY = [CI]                    GRA      1030
                          0315000363 +            NZ     X5,SCT2     IF DIFF " 0                                 GRA      1031
                                                                                                                 GRA      1032
           364  5034777775                        SA3    A4-2        CJ = CI - 2                                 GRA      1033
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    28
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
                          13537                   BX5    X3-X7                                                   FCC0594    13
                               11525              BX5    X2*X5                                                   FCC1014    79
           365  0315000363 +                      NZ     X5,SCT2     IF (H2,MIT)[CJ] " (H2,MIT)[CCW]             FCC1014    80
                          5033777775              SA3    A3-2        CJ = CJ - 2   */ CA WORD                    FCC0594    16
           366  13531                             BX5    X3-X1                                                   FCC0594    17
                     43371                        MX3    -CA.CTL                                                 FCC0594    18
                          20505                   LX5    -CA.CTP                                                 FCC0594    19
                               15353              BX3    -X3*X5                                                  FCC0594    20
           367  0313000363 +                      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
           370  0726000373 +                      LT     B2,B6,SCT3  IF EA < CL    */ ENTRY IN TABLE             GRA      1041
                                                                                                                 GRA      1042
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      1043
           371  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
           372  11324                             BX3    X2*X4                                                   GRA      1048
                     12231                        BX2    X3+X1       CAW = CPW ! FP[DI]                          GRA      1049
                          0400000374 +            EQ     SCT4                                                    GRA      1050
  
           373  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
           374  5110000162 C             SCT4     SA1    APF                                                     FCC0594    22
                          5045000002              SA4    A5+2        DI = R1 + 2                                 FCC0594    23
           375  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
           376  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
           377  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
           400  0324000351 +                      PL     X4,SCT      IF ^INC[DI]                                 GRA      1074
                          20454                   LX4    D.INCP-D.STP                                            GRA      1075
           401  0324000351 +                      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
           402  11324                             BX3    X2*X4                                                   FCC0646    18
                     20363                        LX3    CA.EUP      EU[CAW] = XU[DI]  */ FORCE *EU* IF *XU*     FCC0646    19
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    29
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
                          12636                   BX6    X3+X6                                                   FCC0646    20
                               54550              SA5    A5                                                      GRA      1080
           403  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
           404  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
           405  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
           406  0323000411 +                      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
           407  12743                             BX7    X4+X3       I2[CCW] = 1   */ INDICATE MORE THAN 1 INC   GRA      1100
                     54730                        SA7    A3                                                      GRA      1101
                          10377                   BX3    X7                                                      GRA      1102
           410  0302000413 +                      ZR     X2,SCT6     IF I = 0      */ INCOP IS IA/IS             GRA      1103
                          0400000351 +            EQ     SCT                                                     GRA      1104
                                                                                                                 GRA      1105
                                         SCT5     LX3    1+CC.I1P                                                GRA      1106
           411  0302000413 +                      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
           412  0400000427 +                      EQ     SCT10                     THEN 0; ELSE 1                GRA      1113
                                                                                                                 GRA      1114
                                        *         INCOP IS *IA* OR *IS*                                          GRA      1115
                                                                                                                 GRA      1116
           413  5014777775               SCT6     SA1    A4-2        R1P = DIP - 2                               GRA      1117
                          26521                   UX5    B2,X1                                                   GRA      1118
                               20534              LX5    -R1.RJP                                                 GRA      1119
           414  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
           415  0324000417 +                      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
           416  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
           417  5140000160 C             SCT7     SA4    IAI                                                     GRA      1133
                          75765                   SX7    A6-B5       J = EA - C0   */ SET CANIDATE ORDINAL       FCC1039    18
                               54713              SA7    A1+B3       [R1+3] = J    */ IN LINK WORD OF IA/IS      FCC1039    19
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    30
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
           420  0302000434 +                      ZR     X2,SCT12    IF I = 0      */ INC VALUE NOT A CANIDATE   FCC1039    20
                          7254777700              SX5    X4-77B                                                  FCC1039    21
           421  0335000424 +                      MI     X5,SCT8     IF IAI < 77B  */ NO OVERFLOW                FCC1039    22
                                                                                                                 GRA      1136
                          53425                   SA4    B5+X2                                                   GRA      1137
                               76710              SX7    B1                                                      GRA      1138
           422  20763                             LX7    CA.EUP                                                  GRA      1139
                     12774                        BX7    X7+X4       EU[RCT(I)] = 1                              GRA      1140
                          54740                   SA7    A4                                                      GRA      1141
           423  0400000426 +                      EQ     SCT9                                                    GRA      1142
                                                                                                                 GRA      1143
           424  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
           425  20252                             LX2    -18                                                     GRA      1149
                     73741                        SX7    X4+B1       IAI = IAI + 1                               GRA      1150
                          54740                   SA7    A4                                                      GRA      1151
                                                                                                                 GRA      1152
           426  10433                    SCT9     BX4    X3                                                      GRA      1153
                     20401                        LX4    59-CC.I2P                                               GRA      1154
                          0334000351 +            MI     X4,SCT      IF I2[CCW]                                  GRA      1155
                                                                                                                 GRA      1156
                                        *         SAVE *INC* INFORMATION IN *CCW* OF CANIDATE ENTRY              GRA      1157
                                                                                                                 GRA      1158
           427  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
           430  5110000162 C                      SA1    APF                                                     FCC0603    17
                          20244                   LX2    CC.INCP                                                 GRA      1164
                               36323              IX3    X2+X3       INC[CCW] = I                                GRA      1165
           431  12743                             BX7    X4+X3                                                   GRA      1166
                     0311000433 +                 NZ     X1,SCT11    IF APF " 0    */ INCR UNCONDITINALLY EXEC   FCC0603    18
                               76410              SX4    B1                                                      FCC0603    19
           432  20472                             LX4    CC.I2P                                                  FCC0603    20
                     12747                        BX7    X4+X7       I2[CCW] = 1   */ INHIBIT PREFETCHING        FCC0603    21
           433  54730                    SCT11    SA7    A3                                                      FCC0603    22
                     0400000351 +                 EQ     SCT                                                     GRA      1168
                                                                                                                 FCC1039    24
                                        *         INC VALUE NOT A CANDIDATE ( LVL2 / LU ) , SET *EU* FOR INCR    FCC1039    25
                                                                                                                 FCC1039    26
           434  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
           435  0400000351 +                      EQ     SCT                                                     FCC1039    31
                                                                                                                 GRA      1169
           436                           SCTA     BFMW   CC,(H2,MIT)                                             FCC1014    81
                                                                                                                 FCC1014    82
                                                  QUAL   *                                                       GRA      1170
                                 162 +   ERC      EQU    /ERC/ERC                                                GRA      1171
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    31
        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
           437                           DUMA     BFMW   CA,(EU,RF)                                              GRA      1184
           440                           DUMB     BFMW   CA,(EU,^RD)                                             GRA      1185
           441                           DUMC     BFMW   CA,(EU,TU)                                              FCC0735     6
                                                                                                                 GRA      1187
                                                  QUAL   DUM                                                     GRA      1188
                                                                                                                 GRA      1189
           442                                    PROCESS BOS                                                    GRA      1190
           442  7060000000                        SX6    A0+         BSW = NC                                    GRA      1191
                          5160000000 X            SA6    =XBSW                                                   GRA      1192
           443  0200400443 +             DUM      ROUTINE                                                        GRA      1193
           444  0100000577 +                      RJ     FBM         FIND BOUNDARY MARKERS                       FCC2124     6
           445  5120000000 C                      SA2    O.UDT                                                   GRA      1194
                          5140000005 C            SA4    UVA                                                     GRA      1195
           446  6140000005                        SB4    59-UD.ISTP                                              GRA      1196
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GRA      1197
           447  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
           450  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
           451                                    PROCESS (S,FMA,CLR)                                            GRA      1210
           451  5000000001                        SA0    A0+1        NC = NC + 1                                 GRA      1211
                                                                                                                 GRA      1212
                                        *         ADVANCE TO NEXT INSTRUCTION, JUMP TO OPCODE PROCESSOR          GRA      1213
                                                                                                                 GRA      1214
           452  5045777775               DUM1     SA4    A5-2        DI = R1 - 2                                 GRA      1215
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GRA      1216
           453  11374                             BX3    X7*X4                                                   GRA      1217
                     26625                        UX6    B2,X5                                                   GRA      1218
                          5112000611 +            SA1    DUM.JT+B2                                               GRA      1219
           454  0313000456 +                      NZ     X3,DUM2     IF TYPE[DI] " I                             GRA      1220
                          20634                   LX6    -R1.RJP                                                 GRA      1221
                               15360              BX3    "RN"X6                                                  GRA      1222
           455  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
           456  63210                    DUM2     SB2    X1                                                      GRA      1228
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    32
        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
           457  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
           460  12613                             BX6    X1+X3       EU[LK] = 1                                  GRA      1237
                     54630                        SA6    A3                                                      GRA      1238
                          0400000452 +            EQ     DUM1                                                    GRA      1239
  
  
  
                                        *         XMT, XMTC - TRANSMIT USEAGE MODE BACK TO OPERAND               GRA      1241
                                                                                                                 GRA      1242
           461                                    PROCESS (XMT,XMTC)                                             GRA      1243
           461  54141                             SA1    A4+B1       LI = DI + 1                                 GRA      1244
                     12612                        BX6    X1+X2       [LJ] = [LI] ! [LJ]                          GRA      1245
                          5062000000              SA6    A2+                                                     GRA      1246
           462  0400000452 +                      EQ     DUM1                                                    GRA      1247
  
  
                                        *         SA,SS - INDICATE SHORT USEAGE                                  GRA      1249
                                                                                                                 GRA      1250
           463                                    PROCESS (SA,SS)                                                GRA      1251
           463  5110000437 +                      SA1    DUMA        BITS = (EU,RF)                              FCC2124     7
                          5140000575 +            SA4    LBM                                                     FCC2124     8
           464  37644                             IX6    X4-X4                                                   FCC2124     9
                     0326000466 +                 PL     X6,SA1      IF RK \ LBM                                 FCC2124    10
                               76110              SX1    B1                                                      FCC2124    11
           465  20163                             LX1    CA.EUP      BITS = EU                                   FCC2124    12
           466  12613                    SA1      BX6    X1+X3       BITS[LK] = 1                                FCC2124    13
                     54630                        SA6    A3                                                      FCC2124    14
                          5110000437 +            SA1    DUMA        BITS = (EU,RF)                              FCC2124    15
           467  75527                             SX5    A2-"TB"                                                 FCC2124    16
                     37654                        IX6    X5-X4                                                   FCC2124    17
                          0326000471 +            PL     X6,SA2      IF RJ \ LBM                                 FCC2124    18
           470  76110                             SX1    B1                                                      FCC2124    19
                     20163                        LX1    CA.EUP      BITS = EU                                   FCC2124    20
           471  12612                    SA2      BX6    X1+X2       BITS[LJ] = 1                                FCC2124    21
                     54620                        SA6    A2                                                      FCC2124    22
                          0400000452 +            EQ     DUM1                                                    GRA      1257
                                                                                                                 GRA      1258
                                        *         TYPE I, B AND X OPERANDS                                       GRA      1259
                                                                                                                 GRA      1260
           472                                    PROCESS (ILS,IRS,PK)                                           GRA      1261
           472  5110000437 +                      SA1    DUMA        BITS = (EU,RF)                              FCC2124    23
                          5140000575 +            SA4    LBM                                                     FCC2124    24
           473  75527                             SX5    A2-"TB"                                                 FCC2124    25
                     37654                        IX6    X5-X4                                                   FCC2124    26
                          0326000475 +            PL     X6,ILS1     IF RJ \ LBM                                 FCC2124    27
           474  76110                             SX1    B1                                                      FCC2124    28
                     20163                        LX1    CA.EUP      BITS = EU                                   FCC2124    29
           475  12612                    ILS1     BX6    X1+X2                                                   FCC2124    30
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    33
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   SA                  DUM 
  
                     54620                        SA6    A2          BITS[LJ] = 1                                FCC2124    31
                                                                                                                 GRA      1265
                                        *         TYPE I - 1 OPERAND                                             GRA      1266
                                                                                                                 GRA      1267
           476                                    PROCESS (NR,RNZ,UP)                                            GRA      1268
           476  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
           477  0400000452 +                      EQ     DUM1                                                    GRA      1273
                                                                                                                 GRA      1274
                                        *         DIRECT READ/WRITE INSTRUCTIONS                                 GRA      1275
                                                                                                                 GRA      1276
           500                                    PROCESS DWL                                                    GRA      1277
           500  15650                             BX6    "RN"X5                                                  GRA      1278
                     53367                        SA3    "TB"+X6     LI = TB + RI[R1]                            GRA      1279
                          5110000440 +            SA1    DUMB                                                    GRA      1280
           501  12613                             BX6    X1+X3       (EU,^RD)[LI] = 1                            GRA      1281
                     54630                        SA6    A3                                                      GRA      1282
                                                                                                                 GRA      1283
           502                                    PROCESS DRL                                                    GRA      1284
           502  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
           503  0400000452 +                      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
           504                                    PROCESS (IA,IS)                                                FCC0735    10
           504  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
           505  20563                             LX5    CA.EUP      BIT = EU                                    FCC0735    15
                     0306000506 +                 ZR     X6,IA1      IF I = 0                                    FCC0735    16
                               20571              LX5    CA.IAP-CA.EUP     BIT = IA                              FCC0735    17
                                                                                                                 FCC0735    18
           506  5140000441 +             IA1      SA4    DUMC                                                    FCC0735    19
                          20662                   LX6    CA.RFP                                                  FCC0735    20
                               12464              BX4    X6+X4                                                   FCC0735    21
           507  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
           510  12653                             BX6    X5+X3       BIT[LK] = 1;  [LK] = [LK] ! UMB             FCC0735    26
                     54630                        SA6    A3                                                      FCC0735    27
                          0400000452 +            EQ     DUM1                                                    GRA      1312
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    34
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   JPX                 DUM 
  
                                        *         X - JUMPS - PROPAGATE *TU* BIT DOWN IT LOOP TEST JUMP          GRA      1314
                                                                                                                 GRA      1315
           511                                    PROCESS JPX                                                    GRA      1316
           511  5120000030 C                      SA2    LTT                                                     GRA      1317
                          15650                   BX6    "RN"X5                                                  GRA      1318
                               76110              SX1    B1                                                      GRA      1319
           512  53367                             SA3    "TB"+X6     LI = TB + RI[R1]                            GRA      1320
                     20163                        LX1    CA.EUP      BIT = EU                                    GRA      1321
                          0302000514 +            ZR     X2,JPX1     IF LTT = 0    */ NO TEST REPLACEMENT        GRA      1322
                                                                                                                 GRA      1323
           513  20451                             LX4    59-D.INCP                                               GRA      1324
                     0324000514 +                 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
           514  12613                    JPX1     BX6    X1+X3       BIT[LI] = 1                                 GRA      1328
                     54630                        SA6    A3                                                      GRA      1329
                          5120000575 +            SA2    LBM                                                     FCC2124    32
           515  0302000452 +                      ZR     X2,DUM1     IF LBM = 0    */ NOT DOING RF CHECKING      FCC2124    33
                          54341                   SA3    A4+B1                                                   FCC2124    34
                               73630              SX6    X3          LBM = [DI+1]  */ SET LOW BND FOR SAFE RF    FCC2124    35
           516  54620                             SA6    A2                                                      FCC2124    36
                     0400000452 +                 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
           517                                    PROCESS STT                                                    GRA      1335
           517  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
           520  0305000452 +                      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
           521  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
           522  20670                             LX6    CA.TUP-CA.EUP                                           GRA      1348
                     11361                        BX3    X6*X1       TU[LJ] = TU[LI]                             GRA      1349
                          11441                   BX4    X4*X1       EU[LJ] = EU[LI] & INC[DI]                   GRA      1350
                               20603              LX6    CA.RFP-CA.TUP                                           GRA      1351
           523  12434                             BX4    X3+X4                                                   GRA      1352
                     12564                        BX5    X6+X4       RF[LJ] = 1                                  GRA      1353
                          12652                   BX6    X5+X2                                                   GRA      1354
                               54620              SA6    A2                                                      GRA      1355
           524  0400000452 +                      EQ     DUM1                                                    GRA      1356
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    35
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   RS                  DUM 
  
                                        *         DEF, RS - REMOVE SPECIFIED REGISTER FROM AVAILABLE SET         GRA      1358
                                                                                                                 GRA      1359
           525                                    PROCESS RS                                                     FCC2056     7
           525  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
           526  12612                             BX6    X1+X2       EU[LIP] = 1   */ INHIBIT BIASING            FCC2056    12
                     54620                        SA6    A2                                                      FCC2056    13
                                                                                                                 FCC2056    14
           527                                    PROCESS DEF                                                    FCC2056    15
           527  5120000015 C                      SA2    MRA                                                     GRA      1361
                          20554                   LX5    -R1.SOP                                                 GRA      1362
                               43366              MX3    -SO.REGL                                                GRA      1363
           530  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
           531  15621                             BX6    -X1*X2      MRA = MRA & ^SHIFT(1,REGN)                  GRA      1368
                     20565                        LX5    59-SO.LKP                                               GRA      1369
                          5062000000              SA6    A2+                                                     GRA      1370
           532  0325000452 +                      PL     X5,DUM1     IF SOLK[R1] " 1 ! 3  */ ^ TEMP/RJRS LOCK    GRA      1371
                                                                                                                 GRA      1372
                          5120000161 C            SA2    TRA                                                     GRA      1373
           533  12612                             BX6    X1+X2       TRA = TRA ! SHIFT(1,REGN)                   GRA      1374
                     54620                        SA6    A2                                                      GRA      1375
                          0400000452 +            EQ     DUM1                                                    GRA      1376
  
  
                                        *         KLS/KRS - SET *RF* USEAGE FOR *SXT* SO *CON* GOES TO A B-REG   GRA      1378
                                                                                                                 GRA      1379
           534                                    PROCESS (KLS,KRS)                                              GRA      1380
           534  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
           535  0400000452 +                      EQ     DUM1                                                    GRA      1385
  
  
                                        **        MEMORY REFERENCE PROCESSING - DETERMINE CANIDATE TYPE          GRA      1387
                                                                                                                 GRA      1388
           536                                    PROCESS TST                                                    GRA      1389
           536  53357                             SA3    "TB"+X5     LIP = TB + RI[R1]                           GRA      1390
                     20451                        LX4    59-D.INCP                                               GRA      1391
                          76110                   SX1    B1                                                      FCC2124    37
                               20163              LX1    CA.EUP                                                  FCC2124    38
           537  0334000541 +                      MI     X4,TST1     IF INC[DI]                                  FCC2124    39
                          12613                   BX6    X1+X3       EU[LIP] = 1                                 FCC2124    40
                               54630              SA6    A3                                                      FCC2124    41
           540  0400000452 +                      EQ     DUM1                                                    FCC2124    42
                                                                                                                 FCC2124    43
           541  65251                    TST1     SB2    A5-B1                                                   FCC2124    44
                     65232                        SB2    A3-B2                                                   FCC1518X   12
                          0420000543 +            ZR     B2,.TLD     IF R1-1 = LIP */ INCR NEXT TO STORE         FCC1518X   13
                                                                                                                 FCC1518X   14
           542  54341                             SA3    A4+B1       LI = DI + 1                                 FCC1518X   15
                     12613                        BX6    X1+X3       EU[LI] = 1    */ INHIBIT ADDRESS DIFFERENCI FCC1518X   17
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    36
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   LDST                DUM 
  
                          54630                   SA6    A3                                                      FCC1518X   18
                                                                                                                 GRA      1399
           543                                    PROCESS TLD                                                    GRA      1400
           543  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
           544  12613                             BX6    X1+X3       VC[LI] = 1                                  GRA      1405
                     54630                        SA6    A3                                                      GRA      1406
                          0400000452 +            EQ     DUM1                                                    GRA      1407
  
  
           545                                    PROCESS ST                                                     GRA      1409
           545  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
           546  20163                             LX1    CA.EUP                                                  GRA      1414
                     0322000551 +                 PL     X2,ST1      IF ^INC[DI]                                 FCC1997     5
                                                                                                                 FCC1997     6
                               65251              SB2    A5-B1                                                   FCC1997     7
           547  65232                             SB2    A3-B2                                                   FCC1997     8
                     0420000553 +                 ZR     B2,.LD      IF LIP = R1-1 */ INC NEXT TO STORE          FCC1997     9
                                                                                                                 FCC1997    10
                               12613              BX6    X1+X3       EU[LIP] = 1                                 FCC1997    11
           550  54630                             SA6    A3                                                      FCC1997    12
                     0400000553 +                 EQ     .LD                                                     FCC1997    13
                                                                                                                 FCC1997    14
           551  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
           552  12612                             BX6    X1+X2       ^RD[LI] = 1   */ INDICATE NON RECURSIVE DEF GRA      1421
                     54620                        SA6    A2                                                      GRA      1422
                                                                                                                 GRA      1423
           553                                    PROCESS (LD,ILD)                                               GRA      1424
           553  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
           554  20171                             LX1    CA.VCP      CT = VC       */ SET FOR VALUE CANIDATE     GRA      1429
                     15630                        BX6    "RN"X3                                                  GRA      1430
                          0306000561 +            ZR     X6,LD1      IF RF[R2] = 0                               GRA      1431
                                                                                                                 GRA      1432
           555  5120000575 +                      SA2    LBM                                                     FCC2124    45
                          37362                   IX3    X6-X2                                                   FCC2124    46
           556  0333000560 +                      MI     X3,LD0      IF RF < LBM   */ CONDITIONAL REF            FCC2124    47
                          53267                   SA2    "TB"+X6     LJ = TB + RF[R2]                            GRA      1433
                               20165              LX1    CA.RFP-CA.VCP                                           GRA      1434
           557  12612                             BX6    X1+X2       RF[LJ] = 1                                  GRA      1435
                     54620                        SA6    A2                                                      GRA      1436
           560  76110                    LD0      SX1    B1                                                      FCC2124    48
                     20170                        LX1    CA.ACP      CT = AC                                     FCC2124    49
                          0400000573 +            EQ     LD3                                                     GRA      1438
                                                                                                                 GRA      1439
                                        *         CHECK SCALAR LD/ST FOR INTERFERENCE, EXPLICIT USE IN INNER LP  GRA      1440
                                                                                                                 GRA      1441
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    37
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   ST                  DUM 
  
           561  53256                    LD1      SA2    B6+X5       UI = UDT( IN[R1] )                          GRA      1442
                     22642                        LX6    B4,X2                                                   GRA      1443
                          0336000567 +            MI     X6,LD2      IF IST[UI]    */ INTERFERENCE               GRA      1444
           562  20643                             LX6    UD.ISTP-UD.CMP                                          GRA      1445
                     0326000573 +                 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
           563  0332000567 +                      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
           564  6122777704                        SB2    B2-59                                                   GRA      1454
                          53235                   SA2    B5+X3       UVW = UVA( WI[U2] )                         FCC1040     9
                               23522              LX5    -B2,X2                                                  GRA      1456
           565  0325000573 +                      PL     X5,LD3      IF SHIFT( UVW , 59-BITN[U2] ) > 0           FCC1040    10
                                                                                                                 GRA      1458
                          20624                   LX6    UD.BMIP+59-UD.DEFRP                                     GRA      1459
           566  0326000573 +                      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
           567  20451                    LD2      LX4    59-D.INCP                                               GRA      1465
                     0324000572 +                 PL     X4,LD2A     IF ^INC[DI]   */ ^ INC STORE                GRA      1466
                               76310              SX3    B1                                                      GRA      1467
           570  5025777775                        SA2    A5-2        DIP = R1 - 2                                GRA      1468
                          20322                   LX3    D.INCP                                                  GRA      1469
                               15623              BX6    -X3*X2      INC[DIP] = 0                                GRA      1470
           571  54620                             SA6    A2                                                      GRA      1471
                                                                                                                 GRA      1472
                                        *         CHECK FOR POSSIBLE ADDRESS CANIDATE                            GRA      1473
                                                                                                                 GRA      1474
           572  20471                    LD2A     LX4    D.INCP-D.FPP                                            GRA      1475
                     0324000452 +                 PL     X4,DUM1     IF ^FP[DI]                                  GRA      1476
                               20173              LX1    CA.ACP-CA.VCP     CT = AC                               GRA      1477
                                                                                                                 GRA      1478
           573  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
           574  0400000452 +                      EQ     DUM1                                                    GRA      1483
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    38
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   FBM                 DUM 
  
                                        **        FBM - FIND BOUNDARY MARKERS                                    FCC2124    51
                                        *         FOWARD SCAN TO FIND BOUNDARY MARKERS IN AN EBB.                FCC2124    52
                                        *         USED BY PROCESSORS SO AS TO NOT SET THE *RF* BIT WHEN THE      FCC2124    53
                                        *         INSTRUCTION REFERENCING THE RF IS CONDITIONALLY EXECUTED.      FCC2124    54
                                        *         AN ASSIGNMENT OF THE RF TO A B-REGISTER MAY CAUSE AN OVERFLOW  FCC2124    55
                                        *         AT EXECUTION TIME.                                             FCC2124    56
                                                                                                                 FCC2124    57
           575                     1     LBM      BSS    1           LAST BOUNDARY MARKER                        FCC2124    58
                                                                                                                 FCC2124    59
           576  5170000575 +             FBM0     SA7    LBM         LBM = LB                                    FCC2124    60
           577  0200400577 +             FBM      ROUTINE                                                        FCC2124    61
           600  76700                             SX7    B0          LB = 0                                      FCC2124    62
                     5110000000 X                 SA1    =XUOFLAG                                                FCC2124    63
           601  0311000576 +                      NZ     X1,FBM0     IF UO " 0                                   FCC2124    64
                          5110000000 X            SA1    =XOPT2                                                  FCC2124    65
           602  0301000605 +                      ZR     X1,FBM1     IF OPT " 2                                  FCC2124    66
                          53250                   SA2    X5          R1 = [TXT]                                  FCC2124    67
                               43372              MX3    -2                                                      FCC2124    68
           603  20252                             LX2    -R1.H2P                                                 FCC2124    69
                     15423                        BX4    -X3*X2                                                  FCC2124    70
                          0314000605 +            NZ     X4,FBM1     IF AP ! LN    */ BLOCK EXECUTED UNCONDITION FCC2124    71
           604  7170377777                        SX7    377777B     LB = INFINITY                               FCC2124    72
                          0400000576 +            EQ     FBM0                                                    FCC2124    73
                                                                                                                 FCC2124    74
           605  6265000002               FBM1     SB6    X5+2        D0 = TXT + 2                                FCC2124    75
                          66211                   SB2    B1+B1                                                   FCC2124    76
                               56460              SA4    B6          DI = D0                                     FCC2124    77
                                                                                                                 FCC2124    78
           606  54342                    FBM2     SA3    A4+B2       R1 = DI + 2                                 FCC2124    79
                     54432                        SA4    A3+B2       DI = R1 + 2                                 FCC2124    80
                          26633                   UX6    B3,X3                                                   FCC2124    81
                               20432              LX4    59-D.JPP                                                FCC2124    82
           607  0430000576 +                      ZR     B3,FBM0     IF OC[R1] = 0 */ END OF SEQUENCE            FCC2124    83
                          0324000606 +            PL     X4,FBM2     IF ^JP[DI]                                  FCC2124    84
                                                                                                                 FCC2124    85
           610  54741                             SA7    A4+B1       [DI+1] = LB   */ SAVE INDEX OF LAST BM      FCC2124    86
                     75746                        SX7    A4-B6       LB = DI - D0                                FCC2124    87
                          0400000606 +            EQ     FBM2                                                    FCC2124    88
                                                                                                                 GRA      1484
                                                  QUAL   *                                                       GRA      1485
                                 443 +   DUM      EQU    /DUM/DUM                                                GRA      1486
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    39
        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
           611                           DUM.JT   BSS    0                                                       GRA      1521
           611                           ERC.JT   BSS    0                                                       GRA      1522
           611                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    40
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
                                        **        MTA - MAKE TENATIVE B-ASSIGNMENTS, MAKE TENATIVE COUNTING      GRA      1526
                                        *         METHOD DECISION ( *TRD* ).                                     GRA      1527
                                                                                                                 GRA      1528
           715                           MTAA     BFMW   CA,(VC,RF)                                              GRA      1529
           716                           MTAB     BFMW   CA,(IRA,EU,LX)    NO BIAS BITS ( BY AN *CAIH* )         GRA      1530
                                                                                                                 GRA      1531
           717  0200400717 +             MTA      ROUTINE                                                        GRA      1532
           720  5120000015 C                      SA2    MRA                                                     GRA      1533
                          7130000376              SX3    376B                                                    GRA      1534
           721  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
           722  5160000167 C                      SA6    ABR                                                     GRA      1539
                          5170000170 C            SA7    NAB                                                     GRA      1540
           723  5170000171 C                      SA7    NTA         NTA = NAB                                   GRA      1541
                          0307000717 +            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
           724  5110000165 C                      SA1    NVC                                                     GRA      1547
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , NVC )  */ SORT TABLE           GRA      1548
           726  5140000000 X                      SA4    O.RCT                                                   GRA      1549
                          5150000000 X            SA5    L.RCT                                                   GRA      1550
           727  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
           730  20030                             LX0    CA.SORTP                                                GRA      1555
                     63640                        SB6    X4          CO = [O.RCT]                                GRA      1556
                          6130000003              SB3    3                                                       GRA      1557
           731  53556                             SA5    B6+X5       CI = CO + L.RCT                             GRA      1558
                     5110000715 +                 SA1    MTAA                                                    GRA      1559
                                                                                                                 GRA      1560
           732  55553                    MTA1     SA5    A5-B3       CI = CI - 3                                 GRA      1561
                     0305000736 +                 ZR     X5,MTA2     IF [CI] = 0   */ END OF TABLE               GRA      1562
                               16651              BX6    -X1+X5                                                  GRA      1563
           733  0316000732 +                      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
           734  0335000732 +                      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
           735  54771                             SA7    A7+B1       SI = SI + 1;  [SI] = SORT[CI] ! I           GRA      1572
                     0400000732 +                 EQ     MTA1                                                    GRA      1573
                                                                                                                 GRA      1574
           736  64371                    MTA2     SB3    A7+B1       SI = SI + 1                                 GRA      1575
                     77137                        SX1    B3-B7       LEN = SI - SO                               GRA      1576
                          0301001027 +            ZR     X1,MTA12    IF LEN = 0    */ NO CANIDATES               GRA      1577
                                                                                                                 GRA      1578
           737  0100000000 X                      CALL   SHL         SORT( RND )                                 GRA      1579
                                                  TRACE  MTA,RND                                                 GRA      1580
                                                                                                                 GRA      1581
                                        *         ON EXIT FROM *SHL* (B6) = CO IS INTACT AND (B3) = SI, LWA+1    GRA      1582
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    41
        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
           740  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
           741  0301001017 +                      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
           742  53456                             SA4    B6+X5       CI = RCT(I)                                 GRA      1604
                     20414                        LX4    59-CA.TUP                                               GRA      1605
                          0324001017 +            PL     X4,MTA11    IF ^TU[CI]    */ CHECK FOR *CV*             GRA      1606
           743  20432                             LX4    CA.TUP-CA.DEFP                                          GRA      1607
                     0324001017 +                 PL     X4,MTA11    IF ^DEF[CI]                                 GRA      1608
                               43100              MX1    0           INVF = 0                                    GRA      1609
           744  0100001060 +                      RJ     AIR         ASSIGN *CV* TO AN INDEX REGISTER            GRA      1610
           745  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
           746  21603                             AX6    3                                                       GRA      1614
                     0316001017 +                 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
           747  56570                    MTA2A    SA5    B7                                                      GRA      1621
                     5110000023 C                 SA1    LUL                                                     GRA      1622
                               63450              SB4    X5          I = CO[SI]    */ POSSIBLE *UL*              GRA      1623
           750  20514                             LX5    59-CA.TUP                                               GRA      1624
                     0325000760 +                 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
           751  26621                             UX6    B2,X1                                                   GRA      1630
                     21644                        AX6    PS.UDIP                                                 GRA      1631
                          13764                   BX7    X6-X4                                                   GRA      1632
                               63370              SB3    X7                                                      GRA      1633
           752  0430000766 +                      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
           753  43700                             MX7    0                                                       GRA      1638
                     20660                        LX6    1+CA.TUP                                                GRA      1639
                          5170000037 C            SA7    STP         STP = 0       */ INHIBIT BIASING IN *MFA*   GRA      1640
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    42
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
           754  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
           755  0420000760 +                      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
           756  0303001017 +                      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
           757  54750                             SA7    A5                                                      GRA      1653
                     0400000747 +                 EQ     MTA2A                                                   GRA      1654
                                                                                                                 GRA      1655
                                        *         SEARCH *RCT* FOR CON *UL* IF FINAL B-ASSIGNMENTS WERE MADE     GRA      1656
                                                                                                                 GRA      1657
           760  26621                    MTA3     UX6    B2,X1                                                   GRA      1658
                     0520001017 +                 NZ     B2,MTA11    IF TYP[LUL] " 0   */ *UL* IS A VAR          GRA      1659
                               20622              LX6    IH.CAP                                                  GRA      1660
           761  5130000163 C                      SA3    FBA                                                     GRA      1661
                          6140000000              SB4    0           I = 0                                       GRA      1662
           762  0303000766 +                      ZR     X3,MTA5     IF FBA = 0    */ NO FINAL B-ASSIGNMENTS     GRA      1663
                                                                                                                 GRA      1664
                          5120000000 X            SA2    L.RCT                                                   GRA      1665
           763  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
           764  5055777774               MTA4     SA5    A5-3        CI = CI - 3                                 GRA      1670
                          13765                   BX7    X6-X5                                                   GRA      1671
           765  0317000764 +                      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
           766  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
                          0322000774 +            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
           767  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
           770  6226777767                        SB2    X6-10B                                                  GRA      1690
                          5160000024 C            SA6    LUL+1       LUL(2) = REG1[CC]                           GRA      1691
           771  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
           772  12613                             BX6    X1+X3       EU[RCT(CVO)] = 1  */ INHIBIT BIASING IN *MF GRA      1696
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    43
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
                     54630                        SA6    A3                                                      GRA      1697
                          0720001017 +            MI     B2,MTA11    IF REG1[CC] < 10B  */ *UL* IN A B-REG       GRA      1698
           773  56000                             SA0    B0          TRM = 0                                     GRA      1699
                     0400001017 +                 EQ     MTA11                                                   GRA      1700
                                                                                                                 GRA      1701
           774  56171                    MTA6     SA1    B7+B1                                                   GRA      1702
                     5130000716 +                 SA3    MTAB                                                    GRA      1703
                               20243              LX2    CA.RAP-CA.SUSEP                                         GRA      1704
           775  53516                             SA5    B6+X1       CVW = RCT([SI+1])  */ *CV* WORD             GRA      1705
                     11635                        BX6    X3*X5                                                   GRA      1706
                          0316001013 +            NZ     X6,MTA10    IF (IRA,EU,LX)[CVW]                         GRA      1707
           776  43764                             MX7    -CA.SUSEL+1                                             GRA      1708
                     15627                        BX6    -X7*X2                                                  GRA      1709
                          0316001000 +            NZ     X6,MFA6A    IF SUSE[ULW] > 1                            GRA      1710
           777  10622                             BX6    X2                                                      GRA      1711
                     20635                        LX6    CA.SUSEP-CA.CONP                                        GRA      1712
                          0326001002 +            PL     X6,MTA7     IF ^CON[ULW]  */ NO OTHER USES              GRA      1713
                                                                                                                 GRA      1714
          1000  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
          1001  54720                             SA7    A2                                                      GRA      1719
                     0400001013 +                 EQ     MTA10                                                   GRA      1720
                                                                                                                 GRA      1721
                                        *         *CV* IS DEAD ON EXIT AND ^EU                                   GRA      1722
                                                                                                                 GRA      1723
          1002  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
          1003  0317001013 +                      NZ     X7,MTA10    IF TUD > 1    */ I IS USED IN INDEXED LD"S  GRA      1727
                                                                                                                 GRA      1728
                          5130000037 C            SA3    STP                                                     GRA      1729
          1004  5100000001                        SA0    1           TRM = 1       */ I-N CASE                   GRA      1730
                          0303001007 +            ZR     X3,MTA8     IF STP = 0    */ NO *IP* WHICH IS F(I)      GRA      1731
                                                                                                                 GRA      1732
          1005  5110000170 C                      SA1    NAB                                                     GRA      1733
                          0301001027 +            ZR     X1,MTA12    IF NAB = 0                                  GRA      1734
          1006  5100000004                        SA0    4           TRM = 4       */ F(I), F(N) CASE            GRA      1735
                                                                                                                 GRA      1736
                                        *         REMOVE VAR *UL* FROM CONSIDERATION                             GRA      1737
                                                                                                                 GRA      1738
          1007  56270                    MTA8     SA2    B7                                                      GRA      1739
                     53326                        SA3    B6+X2                                                   GRA      1740
                          73620                   SX6    X2                                                      GRA      1741
                               20214              LX2    59-CA.TUP                                               GRA      1742
          1010  0322001017 +                      PL     X2,MTA11    IF ^TU[SI]    */ NOT VAR *UL*               GRA      1743
                          5160000100 C            SA6    RAT         RAT = CO[SI]  */ SAVE ORD OF *UL*           GRA      1744
          1011  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
          1012  0400001017 +                      EQ     MTA11                                                   GRA      1750
                                                                                                                 GRA      1751
                                        *         ASSIGN A REGISTER FOR THE *UL*                                 GRA      1752
                                                                                                                 GRA      1753
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    44
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
          1013  5110000170 C             MTA10    SA1    NAB                                                     GRA      1754
                          0301001027 +            ZR     X1,MTA12    IF NAB = 0                                  GRA      1755
          1014  76110                             SX1    B1          INVF = 1                                    GRA      1756
                     0100001060 +                 RJ     AIR         ASSIGN IT TO A REGISTER                     GRA      1757
          1015  77602                             SX6    -B2                                                     GRA      1758
                     5160000024 C                 SA6    LUL+1       LUL(2) = REGNO                              GRA      1759
                               43700              MX7    0                                                       GRA      1760
          1016  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
          1017  56570                    MTA11    SA5    B7                                                      GRA      1767
                     5110000170 C                 SA1    NAB                                                     GRA      1768
                               63450              SB4    X5          I = CO[SI]                                  GRA      1769
          1020  0305001030 +                      ZR     X5,MTA14    IF I = 0      */ END OF TABLE               GRA      1770
                          0301001030 +            ZR     X1,MTA14    IF NAB = 0    */ END OF REGS                GRA      1771
          1021  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
          1022  0100001060 +                      RJ     AIR         ASSIGN IT TO A REGISTER                     GRA      1776
          1023  73270                             SX2    X7                                                      GRA      1777
                     67771                        SB7    B7-B1       SI = SI - 1                                 GRA      1778
                          0312001017 +            NZ     X2,MTA11    IF UDT[CAW] " 0  */ PROGRAMMER VAR          GRA      1779
                                                                                                                 GRA      1780
          1024  54471                             SA4    A7+B1                                                   GRA      1781
                     5130000000 X                 SA3    O.TET                                                   GRA      1782
                               20452              LX4    -IH.CAP     C = CA[RCT(I+1)]                            GRA      1783
          1025  63330                             SB3    X3                                                      GRA      1784
                     53243                        SA2    B3+X4                                                   GRA      1785
                          77502                   SX5    -B2                                                     GRA      1786
                               20522              LX5    T.REGP                                                  GRA      1787
          1026  12652                             BX6    X5+X2       REG[TET(C)] = REGNO                         GRA      1788
                     54620                        SA6    A2                                                      GRA      1789
                          0400001017 +            EQ     MTA11                                                   GRA      1790
                                                                                                                 GRA      1791
          1027  5100000000               MTA12    SA0    0           TRM = 0                                     GRA      1792
                                                                                                                 GRA      1793
                                        *         SAVE FLAGS, CHECK TEST REPLACEMENT DECISION                    GRA      1794
                                                                                                                 GRA      1795
          1030  5140000171 C             MTA14    SA4    NTA                                                     GRA      1796
                          5150000170 C            SA5    NAB                                                     GRA      1797
          1031  5110000167 C                      SA1    ABR                                                     GRA      1798
                          5120000015 C            SA2    MRA                                                     GRA      1799
          1032  74600                             SX6    A0                                                      GRA      1800
                     43700                        MX7    0                                                       GRA      1801
                          5160000172 C            SA6    TRD         TRD = TRM                                   GRA      1802
          1033  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
          1034  43764                             MX7    -8                                                      GRA      1806
                     12371                        BX3    X7+X1                                                   GRA      1807
                          11732                   BX7    X3*X2       MRA = MRA & ( ABR + 77777400B )             GRA      1808
                               54720              SA7    A2                                                      GRA      1809
                                                                                                                 GRA      1810
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    45
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
          1035  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
          1036  5130000000 X                      SA3    L.RCT                                                   GRA      1819
                          6150000014              SB5    59-CA.TUP                                               GRA      1820
          1037  20063                             LX0    CA.EUP                                                  GRA      1821
                     63736                        SB7    B6+X3       CI = RCT;  LIM = RCT + L.RCT                GRA      1822
                          66460                   SB4    B6                                                      GRA      1823
          1040  0301001044 +                      ZR     X1,MTA17    IF LTT = 0    */ NO *TU* GAMES              GRA      1824
                          0312001044 +            NZ     X2,MTA17    IF TRM " 0    */ *TU* BIT IS SUFFICIENT     GRA      1825
                                                                                                                 GRA      1826
          1041  56560                    MTA15    SA5    B6                                                      GRA      1827
                     6166000003                   SB6    B6+3                                                    GRA      1828
                               22455              LX4    B5,X5                                                   GRA      1829
          1042  0324001043 +                      PL     X4,MTA16    IF ^TU[CI]                                  GRA      1830
                          12605                   BX6    X0+X5       EU[CI] = 1                                  GRA      1831
                               54650              SA6    A5                                                      GRA      1832
          1043  0767001041 +             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
          1044  5110001054 +             MTA17    SA1    MTAC                                                    GRA      1838
                          54211                   SA2    A1+B1                                                   GRA      1839
                               56570              SA5    B7          CI = LIM                                    GRA      1840
          1045  20052                             LX0    CA.NOCCP-CA.EUP                                         GRA      1841
                     6130000003                   SB3    3                                                       GRA      1842
                                                                                                                 GRA      1843
          1046  55553                    MTA18    SA5    A5-B3       CI = CI - 3                                 GRA      1844
                     0305000717 +                 ZR     X5,MTA      IF [CI] = 0   */ END OF RCT                 GRA      1845
                               16651              BX6    -X1+X5                                                  GRA      1846
          1047  0316001046 +                      NZ     X6,MTA18    IF ^(RA,VC,IA,RF)[CI]                       GRA      1847
                          11625                   BX6    X2*X5                                                   GRA      1848
          1050  0316001046 +                      NZ     X6,MTA18    IF KD[CI] ! ^RD[CI]                         GRA      1849
                          5035000002              SA3    A5+2        CCW = CI + 2                                GRA      1850
          1051  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
          1052  0324001046 +                      PL     X4,MTA18    IF ^CON[CJ]   */ INC IS NOT A *CON*         GRA      1855
                          54640                   SA6    A4          NOCC[CJ] = NOCC[CJ] + 1                     GRA      1856
          1053  0400001046 +                      EQ     MTA18                                                   GRA      1857
                                                                                                                 GRA      1858
          1054                           MTAC     BFMW   CA,(RA,VC,IA,RF)                                        GRA      1859
          1055                                    BFMW   CA,(KD,^RD)                                             GRA      1860
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    46
        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
          1056  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
          1057  16462                             BX4    -X2+X6                                                  GRA      1877
                     5075000000                   SA7    A5+                                                     GRA      1878
                               63240              SB2    X4          REGNO = REG1[CCW]                           GRA      1879
                                                                                                                 GRA      1880
          1060  0200401060 +             AIR      ROUTINE                                                        GRA      1881
          1061  56564                             SA5    B6+B4       CAW = RCT(I)                                GRA      1882
                                                  LX5    59-CA.RAP                                               GRA      1883
                     0335001056 +                 MI     X5,AIR1     IF RA[CAW]    */ REG PREVIOUSLY ASSIGNED    GRA      1884
                                                                                                                 GRA      1885
                               76210              SX2    B1                                                      GRA      1886
          1062  5140000167 C                      SA4    ABR                                                     GRA      1887
                          5130000170 C            SA3    NAB                                                     GRA      1888
          1063  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
          1064  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
          1065  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
          1066  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
          1067  54750                             SA7    A5                                                      GRA      1905
                     5035000002                   SA3    A5+2                                                    GRA      1906
                               12663              BX6    X6+X3       REG1[RCT(I+2)] = REGNO                      GRA      1907
          1070  54630                             SA6    A3                                                      GRA      1908
                     0400001060 +                 EQ     AIR                                                     GRA      1909
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    47
        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
          1071                           DXAA     BFMW   CA,(VC,CON)                                             GRA      1923
          1072                                    BFMW   CA,(RA,RF)                                              GRA      1924
                                                                                                                 GRA      1925
          1073  0200401073 +             DXA      ROUTINE                                                        GRA      1926
          1074  5150000173 C                      SA5    NXC                                                     GRA      1927
                          0315001122 +            NZ     X5,DXA4A    IF NXC " 0    */ X-REGS ASSIGNED IN *ERC*   GRA      1928
          1075  5140000017 C                      SA4    N.HB                                                    GRA      1929
                          0314001073 +            NZ     X4,DXA      IF N.HB " 0   */ NOT AN INNERMOST LOOP      GRA      1930
                                                                                                                 GRA      1931
          1076  5110000165 C                      SA1    NVC                                                     GRA      1932
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , NVC )                          GRA      1933
          1100  5140000000 X                      SA4    O.RCT                                                   GRA      1934
                          5150000000 X            SA5    L.RCT                                                   GRA      1935
          1101  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
          1102  20030                             LX0    CA.SORTP                                                GRA      1940
                     63640                        SB6    X4          CO = [O.RCT]                                GRA      1941
                          5110001071 +            SA1    DXAA                                                    GRA      1942
          1103  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
          1104  55553                    DXA1     SA5    A5-B3       CI = CI - 3                                 GRA      1949
                     0305001110 +                 ZR     X5,DXA2     IF [CI] = 0   */ END OF TABLE               GRA      1950
                               11615              BX6    X1*X5                                                   GRA      1951
          1105  0306001104 +                      ZR     X6,DXA1     IF ^( VC[CI] ! CON[CI] )                    GRA      1952
                          11325                   BX3    X2*X5                                                   GRA      1953
          1106  0313001104 +                      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
          1107  36734                             IX7    X3+X4                                                   GRA      1958
                     54771                        SA7    A7+B1       SI = SI + 1;  [SI] = SORT[CI] ! I           GRA      1959
                          0400001104 +            EQ     DXA1                                                    GRA      1960
                                                                                                                 GRA      1961
          1110  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
          1111  5170000000 X                      SA7    L.RND       L.RND = 0                                   GRA      1965
                          7160001073 +            SX6    DXA                                                     GRA      1966
          1112  5160001164 +                      SA6    CRWA        [CRWA] = DXA  */ FAIL EXIT ADDR             GRA      1967
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    48
        DXA - DETERMINE X-ASSIGNMENTS                                 DXA 
  
                          0301001123 +            ZR     X1,DXA5     IF LEN = 0    */ GO COMPUTE MLW, N.LD, N.ST GRA      1968
                                                                                                                 GRA      1969
          1113  0100000000 X                      CALL   SHL         SORT( RND )                                 GRA      1970
                                                                                                                 GRA      1971
                                        *         MOVE CANIDATES WITH HIGHEST PRIORITY TO *XCT*                  GRA      1972
                                        *         AND SET *RA* BIT FOR WINNERS IN *RCT*.                         GRA      1973
                                                                                                                 GRA      1974
          1114  6140000174 C                      SB4    XCT         I = 0                                       GRA      1975
                          6154000004              SB5    B4+4        LIM = 4                                     GRA      1976
          1115  43001                             MX0    1                                                       GRA      1977
                                                  LX0    1+CA.RAP                                                GRA      1978
                     6124000000                   SB2    B4+                                                     GRA      1979
                                                                                                                 GRA      1980
          1116  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
          1117  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
          1120  0445001121 +                      EQ     B4,B5,DXA4  IF I = LIM    */ LIM CANIDATES COLLECTED    GRA      1989
                          0773001116 +            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
          1121  77642                    DXA4     SX6    B4-B2                                                   GRA      1995
                     5160000173 C                 SA6    NXC         NXC = I       */ N. X-CANIDATES             GRA      1996
                                                                                                                 GRA      1997
          1122  7160001130 +             DXA4A    SX6    DXA6                                                    GRA      1998
                          5160001164 +            SA6    CRWA        [CRWA] = DXA6 */ FAIL EXIT ADDRESS          GRA      1999
                                                                                                                 GRA      2000
          1123  7170000000               DXA5     SX7    0                                                       GRA      2001
                          5170000201 C            SA7    MLW         MLW = 0       */ MAX REG WITH OF LOOP       GRA      2002
                                                                                                                 GRA      2003
          1124  7170001166 +                      CLCM   CRW         COMPUTE REG WIDTH                           GRA      2004
          1126  5110000017 C                      SA1    N.HB                                                    GRA      2005
                          0301001132 +            ZR     X1,DXA7     IF N.HB = 0   */ INNERMOST LOOP             GRA      2006
                                                                                                                 GRA      2007
          1127  0400001073 +                      EQ     DXA                                                     GRA      2008
                                                                                                                 GRA      2009
                                        *         CRW FAIL EXIT, REDUCE X-REG CANIDATE COUNT                     GRA      2010
                                                                                                                 GRA      2011
          1130  5110000173 C             DXA6     SA1    NXC                                                     GRA      2012
                          0100002741 +            RJ     RXA         REMOVE LAST X-ASSIGNMENT                    FCC0811     8
          1131  0316001123 +                      NZ     X6,DXA5     IF NXC " 0    */ MORE CANIDATES LEFT        GRA      2021
                                                                                                                 GRA      2022
                          0400001073 +            EQ     DXA                                                     GRA      2023
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    49
        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
          1132  7170001271 +             DXA7     CLCM   CMR         COUNT NUMBER OF MEMORY REFS LEFT IN LOOP    GRA      2029
                                                                                                                 GRA      2030
          1134  5150000173 C                      SA5    NXC                                                     GRA      2031
                          0305001073 +            ZR     X5,DXA      IF NXC = 0    */ NO X-CANIDATES             GRA      2032
                                                                                                                 GRA      2033
          1135  5110000015 C                      SA1    MRA                                                     GRA      2034
                          5120000203 C            SA2    N.ST                                                    GRA      2035
          1136  20154                             LX1    -16         AXR = SHIFT(MRA,-16)                        GRA      2036
                     43000                        MX0    0           STL = 0                                     GRA      2037
                          0302001141 +            ZR     X2,DXA8     IF N.ST = 0   */ NO STORES LEFT IN THE LOOP GRA      2038
          1137  7100000100                        SX0    1S6         STL = 1S6     */ LOCKOUT X6                 GRA      2039
                          23312                   AX3    B1,X2                                                   GRA      2040
          1140  0303001141 +                      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
          1141  5150000202 C             DXA8     SA5    N.LD                                                    GRA      2047
                          5100321670              SA0    321670B     LRS = 076123  */ LD ONLY REG SET            GRA      2048
          1142  6225777774                        SB2    X5-3                                                    GRA      2049
                          0702001145 +            GT     B2,DXA9     IF N.LD > 3                                 GRA      2050
          1143  5100367021                        SA0    367021B     LRS = 120763                                GRA      2051
                          0420001145 +            ZR     B2,DXA9     IF N.LD = 3                                 GRA      2052
          1144  5100670321                        SA0    670321B     LRS = 123076                                GRA      2053
                                                                                                                 GRA      2054
          1145  5120000173 C             DXA9     SA2    NXC                                                     GRA      2055
                          5130000000 X            SA3    O.RCT                                                   GRA      2056
          1146  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
          1147  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
          1150  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
          1151  63250                             SB2    X5                                                      GRA      2070
                     20504                        LX5    59-CA.CONP                                              GRA      2071
                          0335001154 +            MI     X5,DXA11    IF CON[CAW]                                 GRA      2072
          1152  0420001154 +                      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
          1153  0325001154 +                      PL     X5,DXA11    IF ^DEF[CAW]  */ LOAD ONLY                  GRA      2077
                          7170321067              SX7    321067B     XRS = 760123                                GRA      2078
                                                                                                                 GRA      2079
          1154  15672                    DXA11    BX6    -X2*X7      REGN = XRS & 7                              GRA      2080
                     21703                        AX7    3           XRS = SHIFT(XRS,-3)                         GRA      2081
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    50
        DXA - DETERMINE X-ASSIGNMENTS                                 DXA 
  
                          63260                   SB2    X6                                                      GRA      2082
                               22320              LX3    B2,X0       RBIT = SHIFT(1,REGN)                        GRA      2083
          1155  11531                             BX5    X3*X1                                                   GRA      2084
                     0305001154 +                 ZR     X5,DXA11    IF AXR & RBIT = 0 */ REG NOT AVAILABLE      GRA      2085
                                                                                                                 GRA      2086
                               54550              SA5    A5                                                      GRA      2087
          1156  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
          1157  20547                             LX5    -CA.DEFP                                                GRA      2091
                     15305                        BX3    -X5*X0      INV[RAT(REGNO)] = ^DEF[RCT(J)]              GRA      2092
                          5055000002              SA5    A5+2                                                    GRA      2093
          1160  20373                             LX3    RA.INVP                                                 GRA      2094
                     12734                        BX7    X3+X4                                                   GRA      2095
                          5276000100 C            SA7    RAT+X6                                                  GRA      2096
                                                  LX6    CC.REG1P                                                GRA      2097
          1161  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
          1162  0745001150 +                      LT     B4,B5,DXA10 IF I < NXC                                  GRA      2101
                                                                                                                 GRA      2102
                          20120                   LX1    16                                                      GRA      2103
                               10611              BX6    X1                                                      GRA      2104
          1163  5160000015 C                      SA6    MRA         MRA = SHIFT(AXR,16)                         GRA      2105
                          0400001073 +            EQ     DXA                                                     GRA      2106
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    51
        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
                                         USES     DEFINE 18          REMAINING USES OF NON CANIDATES             GRA      2124
                                         CO       DEFINE 18          CANIDATE ORDINAL ( *RCT* )                  GRA      2125
                                                                                                                 GRA      2126
          1164  00000000000000377777     CRWA     CON    377777B     FAIL EXIT ADDRESS PROCESSOR                 GRA      2127
          1165                           ASPA     BFMW   D,(BM,ST)                                               GRA      2128
                                                                                                                 GRA      2129
          1166  0200401166 +             CRW      ROUTINE                                                        GRA      2130
          1167  5110000000 X                      SA1    L.SEQ                                                   GRA      2131
                          6221777767              SB2    X1-8                                                    GRA      2132
          1170  0602001166 +                      LE     B2,CRW      IF L.SEQ @ 8  */ EMPTY BLOCK                GRA      2133
                                                                                                                 GRA      2134
                          0100001245 +            RJ     SLW         SAVE LINK WORDS                             GRA      2135
          1171  5130000000 X                      SA3    O.RCT                                                   GRA      2136
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GRA      2137
          1172  63630                             SB6    X3                                                      GRA      2138
                                                                                                                 GRA      2139
                                        *         FIRST ADJUST THE PRED OF STORES THAT ARE LOCKED IN REGISTERS   GRA      2140
                                                                                                                 GRA      2141
                     5110001165 +                 SA1    ASPA                                                    GRA      2142
                               57471              SA4    "TB"-B1     DI = TB - 1                                 GRA      2143
          1173  6140000050                        SB4    CA.RAP-CA.LXP                                           GRA      2144
                          0400001175 +            EQ     ASP2                                                    GRA      2145
                                                                                                                 GRA      2146
          1174  26625                    ASP1     UX6    B2,X5                                                   GRA      2147
                     0420001204 +                 ZR     B2,CRW0     IF OC[R1] = OC.EOQ                          GRA      2148
                                                                                                                 GRA      2149
          1175  5044000004               ASP2     SA4    A4+4        DI = DI + 4                                 GRA      2150
                          11614                   BX6    X1*X4                                                   GRA      2151
                               20421              LX4    59-D.BMP                                                GRA      2152
          1176  0306001175 +                      ZR     X6,ASP2     IF ^( BM[DI] ! ST[DI] )                     GRA      2153
                                                                                                                 GRA      2154
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GRA      2155
          1177  0334001174 +                      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
          1200  0323001175 +                      PL     X3,ASP2     IF ^RA[CI]                                  GRA      2161
                                                                                                                 GRA      2162
                          22643                   LX6    B4,X3                                                   GRA      2163
                               20345              LX3    CA.RAP-CA.PSPP                                          GRA      2164
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    52
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
          1201  0326001202 +                      PL     X6,ASP3     IF ^LX[CI]    */ DEAD ON EXIT               GRA      2165
                          0323001175 +            PL     X3,ASP2     IF ^PSP[CI]   */ STORE CANT MOVE            GRA      2166
                                                                                                                 GRA      2167
          1202  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
          1203  0400001175 +                      EQ     ASP2                                                    GRA      2171
                                                                                                                 GRA      2172
                                        *         INITIALIZE FOR THE REG WIDTH CALCULATION                       GRA      2173
                                                                                                                 GRA      2174
          1204  5120000173 C             CRW0     SA2    NXC                                                     GRA      2175
                          63420                   SB4    X2          RW = NXC      */ REG WIDTH                  GRA      2176
                               53020              SA0    X2                                                      GRA      2177
          1205  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
          1206  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
          1207  5054000002               CRW1     SA5    A4+2        R1 = DI + 2                                 GRA      2187
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      2188
          1210  26525                             UX5    B2,X5                                                   GRA      2189
                                                  LX4    58-D.TYP                                                GRA      2190
                     36744                        IX7    X4+X4                                                   GRA      2191
                          0334001216 +            MI     X4,CRW3     IF TYPE[DI] = III ! IV                      GRA      2192
          1211  0337001214 +                      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
          1212  0334001226 +                      MI     X4,CRW7     IF ^D[DI]                                   GRA      2198
                          21520                   AX5    R1.RIL      RNUMS = RJRK[R1]                            GRA      2199
          1213  0400001226 +                      EQ     CRW7                                                    GRA      2200
                                                                                                                 GRA      2201
                                        *         TYPE II                                                        GRA      2202
                                                                                                                 GRA      2203
          1214  20422                    CRW2     LX4    1+D.TYP-D.^DP                                           GRA      2204
                     0523001233 +                 NE     B2,B3,CRW9  IF OC[R1] " OC.RS                           GRA      2205
          1215  0400001207 +                      EQ     CRW1                                                    GRA      2206
                                                                                                                 GRA      2207
                                        *         TYPE IV                                                        GRA      2208
                                                                                                                 GRA      2209
          1216  0327001223 +             CRW3     PL     X7,CRW4     IF TYPE[DI] = III                           GRA      2210
                          6040000000              SB4    A0+         RW = NXC                                    GRA      2211
          1217  0520001207 +                      NZ     B2,CRW1     IF OC[R1] " OC.EOQ                          GRA      2212
                                                                                                                 GRA      2213
                          0100001256 +            RJ     RLW         RESTORE LINK WORDS                          GRA      2214
          1220  5110000201 C                      SA1    MLW                                                     GRA      2215
                          76650                   SX6    B5                                                      GRA      2216
                               63310              SB3    X1                                                      GRA      2217
          1221  0635001166 +                      GE     B3,B5,CRW   MLW = MAX( MLW , MW )                       GRA      2218
                          5061000000              SA6    A1+                                                     GRA      2219
          1222  0400001166 +                      EQ     CRW                                                     GRA      2220
                                                                                                                 GRA      2221
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    53
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
                                        *         TYPE III                                                       GRA      2222
                                                                                                                 GRA      2223
          1223  20422                    CRW4     LX4    1+D.TYP-D.^DP     RNUMS = RI[R1]                        GRA      2224
                     0334001224 +                 MI     X4,CRW5     IF ^D[DI]                                   GRA      2225
                               43500              MX5    0           RNUMS = 0                                   GRA      2226
          1224  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
          1225  0306001226 +                      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
          1226  15750                    CRW7     BX7    "RN"X5      R = RI[RNUMS]                               GRA      2237
                     21520                        AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                GRA      2238
                          0307001232 +            ZR     X7,CRW8     IF R = 0                                    GRA      2239
                                                                                                                 GRA      2240
          1227  53377                             SA3    "TB"+X7     LI = TB + R                                 GRA      2241
                     20352                        LX3    -I.USESP                                                GRA      2242
                          6223000000              SB2    X3+         U = USES[LI]                                GRA      2243
          1230  0420001232 +                      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
          1231  54630                             SA6    A3                                                      GRA      2247
                     0712001232 +                 GT     B2,B1,CRW8  IF U > 1      */ NOT LAST USE               GRA      2248
                               67441              SB4    B4-B1       RW = RW - 1                                 GRA      2249
          1232  0315001226 +             CRW8     NZ     X5,CRW7     IF RNUMS " 0                                GRA      2250
                                                                                                                 GRA      2251
                                        *         ADVANCE *RW* TO ACCOUNT FOR THE NEW RESULT                     GRA      2252
                                                                                                                 GRA      2253
          1233  54341                    CRW9     SA3    A4+B1       LI = DI + 1                                 GRA      2254
                     0334001207 +                 MI     X4,CRW1     IF ^D[DI]     */ ^DEF A NEW RESULT          GRA      2255
                               53536              SA5    B6+X3                                                   GRA      2256
                                                  LX5    59-CA.RAP                                               GRA      2257
          1234  0335001207 +                      MI     X5,CRW1     IF RA[RCT(CO[LI])]  */ IN A LOCKED REG      GRA      2258
                                                                                                                 GRA      2259
                          20403                   LX4    D.^DP-D.PRSP                                            GRA      2260
          1235  0324001237 +                      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
          1236  0325001207 +                      PL     X5,CRW1     IF SORT[R1RS] " 2  */ NOT TO AN X-REGISTER  GRA      2265
                                                                                                                 GRA      2266
          1237  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
          1240  54630                             SA6    A3                                                      GRA      2271
                     0654001207 +                 LE     B4,B5,CRW1  IF RW @ MW                                  GRA      2272
                                                                                                                 GRA      2273
                               66540              SB5    B4          MW = RW       */ SET NEW MAX                GRA      2274
          1241  6120000011                        SB2    9                                                       GRA      2275
                          0752001207 +            LT     B5,B2,CRW1  IF MW < 9     */ HAVENT JAMMED THE REGS     GRA      2276
                                                                                                                 GRA      2277
          1242  0100001256 +                      RJ     RLW         RESTORE LINK WORDS                          GRA      2278
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    54
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
          1243  5110001164 +                      SA1    CRWA                                                    GRA      2279
                          76620                   SX6    B2                                                      GRA      2280
                               63310              SB3    X1                                                      GRA      2281
          1244  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
          1245  0200401245 +             SLW      ROUTINE                                                        GRA      2291
          1246  21102                             AX1    2                                                       GRA      2292
                     6221777775                   SB2    X1-2                                                    FCC2051     6
          1247  0420001245 +                      ZR     B2,SLW      IF L.SEQ = 8  */ EMPTY BLOCK                FCC2051     7
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , L.SEQ/4 )                      GRA      2293
          1251  5150000000 X                      SA5    O.SEQ                                                   GRA      2294
                          6221777775              SB2    X1-2        I = L.SEQ/4 - 2                             GRA      2295
          1252  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
          1253  5044000004               SLW1     SA4    A4+4        SI = SI + 4                                 GRA      2300
                          67221                   SB2    B2-B1       I = I - 1                                   GRA      2301
                               10644              BX6    X4                                                      GRA      2302
          1254  54661                             SA6    A6+B1       RI = RI + 1;  [RI] = [SI]                   GRA      2303
                     0520001253 +                 NZ     B2,SLW1     IF I " 0                                    GRA      2304
                                                                                                                 GRA      2305
          1255  0400001245 +                      EQ     SLW                                                     GRA      2306
  
  
                                        **        RLW - RESTORE LINK WORDS                                       GRA      2308
                                        *                                                                        GRA      2309
                                        *         PRESERVES  B - 2, 3, 5, 6, 7                                   GRA      2310
                                                                                                                 GRA      2311
          1256  0200401256 +             RLW      ROUTINE                                                        GRA      2312
          1257  5110000000 X                      SA1    O.RND                                                   GRA      2313
                          5120000000 X            SA2    L.SEQ                                                   GRA      2314
          1260  6140000004                        SB4    4                                                       GRA      2315
                          53310                   SA3    X1          RI = [O.RND]                                GRA      2316
                               21202              AX2    2                                                       GRA      2317
          1261  7272777775                        SX7    X2-2        I = L.SEQ/4 - 2                             GRA      2318
                          0307001256 +            ZR     X7,RLW      IF I = 0                                    FCC2051     8
          1262  5150000000 X                      SA5    O.SEQ                                                   GRA      2319
                          10633                   BX6    X3                                                      GRA      2320
          1263  5265000007                        SA6    X5+7        SI = O.SEQ + 7;  [SI] = [RI]                GRA      2321
                          76210                   SX2    B1                                                      GRA      2322
                                                                                                                 GRA      2323
          1264  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
          1265  0317001264 +                      NZ     X7,RLW1     IF I " 0                                    GRA      2328
                                                                                                                 GRA      2329
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    55
        CRW - COMPUTE REGISTER WIDTH                                  RLW 
  
                          5170000000 X            SA7    L.RND       L.RND = 0                                   GRA      2330
          1266  0400001256 +                      EQ     RLW                                                     GRA      2331
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    56
        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
          1267                           CMRA     BFMW   D,(BM,LD,ST)                                            GRA      2346
                                                                                                                 GRA      2347
          1270  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
          1271  0200401271 +             CMR      ROUTINE                                                        GRA      2353
          1272  5110000202 C                      SA1    N.LD                                                    GRA      2354
                          5120000203 C            SA2    N.ST                                                    GRA      2355
          1273  5130000000 X                      SA3    O.RCT                                                   GRA      2356
                          5245000002              SA4    X5+2        DI = O.SEQ + 2                              GRA      2357
          1274  66300                             SB3    B0          NMR = 0       */ MEM REFS IN BLOCK          GRA      2358
                     5150001267 +                 SA5    CMRA                                                    GRA      2359
                               63410              SB4    X1          SLD = N.LD    */ SUM OF *LD*"S              GRA      2360
          1275  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
          1276  0400001302 +                      EQ     CMR4                                                    GRA      2365
                                                                                                                 GRA      2366
                                        *         PROCESS BOUNDARY MARKER                                        GRA      2367
                                                                                                                 GRA      2368
          1277  67335                    CMR1     SB3    B3-B5       NMR = NMR - NST                             GRA      2369
                     0675001300 +                 LE     B5,B7,CMR2  N.ST = MAX( NST , N.ST )                    GRA      2370
                               66750              SB7    B5                                                      GRA      2371
          1300  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
          1301  0420001270 +                      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
          1302  5044000004               CMR4     SA4    A4+4        DI = DI + 4                                 GRA      2382
                          11704                   BX7    X0*X4                                                   GRA      2383
                               20421              LX4    59-D.BMP                                                GRA      2384
          1303  0307001302 +                      ZR     X7,CMR4     IF ^(BM,LD,ST)[DI]                          GRA      2385
                                                                                                                 GRA      2386
                          0334001277 +            MI     X4,CMR1     IF BM[DI]                                   GRA      2387
          1304  20406                             LX4    D.BMP-D.L2P                                             GRA      2388
                     0334001302 +                 MI     X4,CMR4     IF L2[DI]     */ LEVEL 2 LD/ST              GRA      2389
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    57
        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
          1305  20730                             LX7    59-D.LDP                                                GRA      2394
                     53236                        SA2    B6+X3       CI = RCT(I)                                 GRA      2395
                                                  LX2    59-CA.RAP                                               GRA      2396
                          0322001311 +            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
          1306  0337001302 +                      MI     X7,CMR4     IF LD[DI]                                   GRA      2401
                          20250                   LX2    CA.RAP-CA.LXP                                           GRA      2402
          1307  0322001302 +                      PL     X2,CMR4     IF ^LX[CI]    */ DEAD ON EXIT               GRA      2403
                          20271                   LX2    CA.LXP-CA.PSPP                                          GRA      2404
          1310  0332001302 +                      MI     X2,CMR4     IF PSP[DI]    */ POST STORE POSSIBLE        GRA      2405
                                                                                                                 GRA      2406
          1311  66331                    CMR6     SB3    B3+B1       NMR = NMR + 1                               GRA      2407
                     0337001302 +                 MI     X7,CMR4     IF LD[DI]                                   GRA      2408
                               66551              SB5    B5+B1       NST = NST + 1                               GRA      2409
          1312  0400001302 +                      EQ     CMR4                                                    GRA      2410
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    58
        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
          1313                           DAAA     BFMW   D,(LD,BM)                                               GRA      2423
          1314                                    BFMW   CA,(RA,CON)                                             GRA      2424
          1315                           DAAB     BFMW   CA,(RA,VC)                                              GRA      2425
                                                                                                                 GRA      2426
          1316  0200401316 +             DAA      ROUTINE                                                        GRA      2427
          1317  5110000201 C                      SA1    MLW                                                     GRA      2428
                          5120000035 C            SA2    N.EBB                                                   GRA      2429
          1320  7261777767                        SX6    X1-8                                                    FCC0603    23
                          0336001324 +            MI     X6,DAA0     IF MLW < 8                                  FCC0603    24
          1321  0316001316 +                      NZ     X6,DAA      IF MLW > 8                                  FCC0603    25
                          63220                   SB2    X2                                                      FCC0603    26
          1322  0712001316 +                      GT     B2,B1,DAA   IF N.EBB > 1                                FCC0603    27
                          5130000000 X            SA3    L.SEQ                                                   FCC0603    28
          1323  7263777537                        SX6    X3-240B                                                 FCC0603    29
                          0326001316 +            PL     X6,DAA      IF L.SEQ > 240B  */ MAGIC NUMBER            FCC0603    30
          1324  7272777774               DAA0     SX7    X2-3                                                    FCC1127     4
                          0327001316 +            PL     X7,DAA      IF N.EBB > 2  */ > 1 EBB + 1 LATCH NODE     GRA      2435
                                                                                                                 GRA      2436
          1325  5130000202 C                      SA3    N.LD                                                    GRA      2437
                          5140000203 C            SA4    N.ST                                                    GRA      2438
          1326  5150000027 C                      SA5    N.LJ                                                    GRA      2439
                          7263777767              SX6    X3-8                                                    GRA      2440
          1327  7274777774                        SX7    X4-3                                                    GRA      2441
                          0326001316 +            PL     X6,DAA      IF N.LD > 7                                 GRA      2442
          1330  0327001316 +                      PL     X7,DAA      IF N.ST > 2                                 GRA      2443
                          76610                   SX6    B1                                                      GRA      2444
                               37556              IX5    X5-X6                                                   GRA      2445
          1331  0315001316 +                      NZ     X5,DAA      IF N.LJ " 1   */ ONLY *LBJ* IS A *JPX*      GRA      2446
                          7271777775              SX7    X1-2                                                    FCC1127     5
          1332  0327001334 +                      PL     X7,DAA0A    IF MLW \ 2                                  FCC1127     6
                          37634                   IX6    X3-X4                                                   FCC1127     7
          1333  0306001316 +                      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
          1334  5110000015 C             DAA0A    SA1    MRA                                                     FCC1127     9
                          7120000076              SX2    76B                                                     GRA      2451
          1335  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
          1336  20501                             LX5    1                                                       GRA      2456
                     37753                        IX7    X5-X3       MAA = 2*NLR - N.LD  */ MAX A-ASSGNMNTS      GRA      2457
                                                                                                                 GRA      2458
                          5110000000 +            SA1    MARA                                                    FCC0603    32
          1337  37217                             IX2    X1-X7                                                   FCC0603    33
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    59
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                     21273                        AX2    59                                                      FCC0603    34
                          11121                   BX1    X2*X1                                                   FCC0603    35
                               15272              BX2    -X2*X7                                                  FCC0603    36
          1340  36712                             IX7    X1+X2       MAA = MIN( MARA , MAA )                     FCC0603    37
                     63270                        SB2    X7                                                      FCC0603    38
                          0602001316 +            LE     B2,DAA      IF MAA @ 0                                  FCC0603    39
          1341  0326001343 +                      PL     X6,DAA1     IF NLR \ N.LD                               GRA      2464
                          10677                   BX6    X7                                                      GRA      2465
                               21602              AX6    2                                                       GRA      2466
          1342  0306001343 +                      ZR     X6,DAA1     MAA = MIN( 3 , MAA )                        GRA      2467
                          7170000003              SX7    3                                                       GRA      2468
          1343  5170000204 C             DAA1     SA7    MAA                                                     GRA      2469
                          7160000002              SX6    2                                                       GRA      2470
          1344  5160000000 X                      SA6    BSI         BSI = 2                                     GRA      2471
                          0100000000 X            CALL   RTB         GET POINTERS TO HEADER NODE                 GRA      2472
  
  
                                        *         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
          1345  5120000000 C                      SA2    O.UDT                                                   GRA      2477
                          5130000000 X            SA3    O.RCT                                                   GRA      2478
          1346  5150000000 X                      SA5    O.SEQ                                                   GRA      2479
                          5110001313 +            SA1    DAAA                                                    GRA      2480
          1347  54411                             SA4    A1+B1                                                   GRA      2481
                     66500                        SB5    B0          J = 0         */ ACT STORE INDEX            GRA      2482
                          63630                   SB6    X3                                                      GRA      2483
                               10044              BX0    X4                                                      GRA      2484
          1350  63720                             SB7    X2                                                      GRA      2485
                     5245000006                   SA4    X5+6        DI = O.SEQ + 4 + 2  */ SKIP PAST *LAB*      GRA      2486
          1351  6245000002                        SB4    X5+2                      (B4) = TXT+2                  GRA      2487
                                                                                                                 GRA      2488
          1352  5044000004               DAA2     SA4    A4+4        DI = DI + 4                                 GRA      2489
                          11614                   BX6    X1*X4                                                   GRA      2490
                               20421              LX4    59-D.BMP                                                GRA      2491
          1353  0306001352 +                      ZR     X6,DAA2     IF ^( LD[DI] ! BM[DI] )                     GRA      2492
                                                                                                                 GRA      2493
                          0334001374 +            MI     X4,DAA4     IF BM[DI]                                   GRA      2494
          1354  20406                             LX4    D.BMP-D.L2P                                             GRA      2495
                     0334001352 +                 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
          1355  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
                          0332001352 +            MI     X2,DAA2     IF DEFR[UI]   */ STORE INTO SAME CLASS      GRA      2502
          1356  20303                             LX3    59-CA.ACP                                               GRA      2503
                     0323001352 +                 PL     X3,DAA2     IF ^AC[CI]    */ NOT AN ADDRESS CANIDATE    GRA      2504
                               20327              LX3    CA.ACP-CA.NOCCP                                         FCC0448   103
          1357  43664                             MX6    -CA.NOCCL+1                                             FCC0448   104
                     15336                        BX3    -X6*X3                                                  FCC0448   105
                          0313001352 +            NZ     X3,DAA2     IF NOCC[CI] > 1  */ POSSIBLE A(I);I=I+1;A(I FCC0448   106
                                                                                                                 FCC0448   107
          1360  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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    60
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                                                                                                                 GRA      2509
                          6222000002              SB2    X2+2                                                    GRA      2510
          1361  56362                             SA3    B6+B2       CCW = RCT(R+2)                              GRA      2511
                                                  LX3    59-CC.I1P                                               GRA      2512
                     0323001352 +                 PL     X3,DAA2     IF ^I1[CCW]   */ NOT *RD*                   GRA      2513
                               20301              LX3    CC.I1P-CC.I2P                                           GRA      2514
          1362  0333001352 +                      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
          1363  11602                             BX6    X0*X2                                                   GRA      2518
                     0306001352 +                 ZR     X6,DAA2     IF ^( RA[CJ] ! CON[CJ] )                    GRA      2519
                                                                                                                 GRA      2520
                               20344              LX3    CC.INCP                                                 GRA      2521
          1364  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
          1365  20530                             LX5    -IH.RFP                                                 GRA      2526
                     53554                        SA5    B4+X5       DIP = TXT(RF[R2]+2)                         FCC1127    12
                          20530                   LX5    59-D.LDP                                                FCC1127    13
          1366  0335001372 +                      MI     X5,DAA3     IF LD[DIP]    */ ^ INC FIRST                FCC1127    14
                          20204                   LX2    59-CA.CONP                                              FCC1127    15
          1367  0322001352 +                      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
          1370  43752                             MX7    -IH.CAL                                                 FCC1127    22
                     21373                        AX3    59                                                      FCC1127    23
                          20722                   LX7    IH.CAP                                                  FCC1127    24
                               13335              BX3    X3-X5                                                   FCC1127    25
          1371  15537                             BX5    -X7*X3                                                  FCC1127    26
                     12656                        BX6    X5+X6       BIAS = CA[C2J] * IM[CCW]                    FCC1127    27
                                                                                                                 GRA      2537
          1372  5165000206 C             DAA3     SA6    ACT+B5      ACT(J) = ACW(INCI[CCW],BIAS,I)              GRA      2538
                          66551                   SB5    B5+B1       J = J + 1                                   GRA      2539
          1373  7175777770                        SX7    B5-7                                                    GRA      2540
                          0337001352 +            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
          1374  0450001316 +             DAA4     ZR     B5,DAA      IF J = 0      */ NO CANIDATES               GRA      2546
                          5150000012              SA5    O.SYM                                                   GRA      2547
          1375  5140000204 C                      SA4    MAA                                                     GRA      2548
                          5205777776              SA0    X5-1                                                    GRA      2549
          1376  66400                             SB4    B0          FI = 0                                      GRA      2550
                     43700                        MX7    0                                                       GRA      2551
                          5175000206 C            SA7    ACT+B5      ACT(J) = 0                                  GRA      2552
          1377  63740                             SB7    X4                                                      GRA      2553
                     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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    61
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                                        *         OR LARGE CONSTANT INCREMENTS ( AVOID MODE 1 AT EXECUTION )     GRA      2559
                                                                                                                 GRA      2560
          1400  5110000000 X             DAA5     SA1    =XUOFLAG                                                FEAT121A  125
                          5154000206 C            SA5    ACT+B4                                                  GRA      2563
          1401  0305001420 +                      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
          1402  0311001414 +                      NZ     X1,DAA7     IF UOFLAG " 0 */ TAKE ALL IF *UO* SELECTED  FEAT121A  126
                                                                                                                 GRA      2568
                          53456                   SA4    B6+X5       CI = RCT(IP)                                GRA      2569
                               20404              LX4    59-CA.CONP                                              GRA      2570
          1403  0324001417 +                      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
          1404  7274777774                        SX7    X4-3                                                    GRA      2574
                          0337001414 +            MI     X7,DAA7     IF C @ 2                                    GRA      2575
          1405  7264777676                        SX6    X4-MAX.INC                                              GRA      2576
                          0326001417 +            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
          1406  56462                             SA4    B6+B2       C2W = RCT(I+1)                              GRA      2582
                     20401                        LX4    -IH.IHP+1   H = IH[C2W]                                 GRA      2583
                          63240                   SB2    X4                                                      GRA      2584
                               55302              SA3    A0-B2       WORDB = [O.SYM-1-2*H]                       GRA      2585
          1407  20373                             LX3    59-P.FPB                                                GRA      2586
                     0333001417 +                 MI     X3,DAA8     IF FP[WORDB]  */ SYM IS AN F.P.             GRA      2587
                               20330              LX3    1+P.FPB-P.RL                                            GRA      2588
          1410  43772                             MX7    -L.RL                                                   GRA      2589
                     15637                        BX6    -X7*X3                                                  GRA      2590
                          7276777775              SX7    X6-2                                                    GRA      2591
          1411  0317001414 +                      NZ     X7,DAA7     IF RT " 2     */ NOT IN COMMON              GRA      2592
                          20331                   LX3    P.RL-P.RB                                               GRA      2593
                               43765              MX7    -L.RB                                                   GRA      2594
          1412  15637                             BX6    -X7*X3      RBN = RB[WORDB]  */ RELOC BLOCK NUMBER      GRA      2595
                     5226777776 X                 SA2    =XORGTAB-1+X6  CBN = ORGTAB(RBN)  */ BLOCK NAME AND LEN GRA      2596
                               21266              AX2    54                                                      GRA      2597
          1413  7272000022                        SX7    X2+77B-1R                                               GRA      2598
                          0307001417 +            ZR     X7,DAA8     IF CBN = * // * COMMON                      GRA      2599
                                                                                                                 GRA      2600
                                        *         ADD NAME TO FINAL CANIDATE LIST                                GRA      2601
                                                                                                                 GRA      2602
          1414  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
          1415  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
          1416  0457001420 +                      EQ     B5,B7,DAA9  IF SI = MAA                                 GRA      2610
                                                                                                                 GRA      2611
          1417  66441                    DAA8     SB4    B4+B1       FI = FI + 1                                 GRA      2612
                     0400001400 +                 EQ     DAA5                                                    GRA      2613
                                                                                                                 GRA      2614
          1420  0450001316 +             DAA9     ZR     B5,DAA      IF SI = 0                                   GRA      2615
                                                                                                                 GRA      2616
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    62
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                          5110000015 C            SA1    MRA                                                     GRA      2617
          1421  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
          1422  5124000206 C             DAA10    SA2    ACT+B4      I = CO[ACT(J)]                              GRA      2624
                          5140001315 +            SA4    DAAB                                                    GRA      2625
          1423  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
          1424  20252                             LX2    -IH.CAP                                                 GRA      2630
                     63220                        SB2    X2                                                      GRA      2631
                          20452                   LX4    -IH.CAP                                                 GRA      2632
                               73542              SX5    B2+X4                                                   GRA      2633
          1425  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
          1426  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
          1427  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
          1430  15767                             BX7    -X7*X6                                                  GRA      2646
                     20630                        LX6    CA.SUSEP                                                GRA      2647
                          54650                   SA6    A5                                                      GRA      2648
          1431  7277777776                        SX7    X7-1                                                    GRA      2649
                          0317001444 +            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
          1432  73760                             SX7    X6                                                      GRA      2655
                     20650                        LX6    59-CA.LXP                                               FCC0414     6
                          0336001444 +            MI     X6,DAA11    IF LX[CJ]     */ LIVE ON EXIT FROM THE LOOP FCC0414     7
          1433  0317001437 +                      NZ     X7,DAA10A   IF UDI[CJ] " 0  */ PROGRAMMER VARIABLE      FCC0414     8
                          20630                   LX6    CA.LXP-CA.CONP                                          FCC0414     9
          1434  0336001437 +                      MI     X6,DAA10A   IF CON[CJ]                                  GRA      2658
                                                                                                                 GRA      2659
                          54451                   SA4    A5+B1                                                   GRA      2660
                               43752              MX7    -T.REGL                                                 GRA      2661
          1435  20452                             LX4    -IH.CAP                                                 GRA      2662
                     63240                        SB2    X4          C = CA[RCT(R+1)]                            GRA      2663
                          5140000000 X            SA4    O.TET                                                   GRA      2664
          1436  20722                             LX7    T.REGP                                                  GRA      2665
                     53442                        SA4    X4+B2                                                   GRA      2666
                          11674                   BX6    X7*X4       REG[TET(C)] = 0                             GRA      2667
                               54640              SA6    A4                                                      GRA      2668
                                                                                                                 GRA      2669
          1437  5045000002               DAA10A   SA4    A5+2        CCW = RCT(R+2)                              GRA      2670
                          43766                   MX7    -CC.REG1L                                               GRA      2671
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    63
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                               76600              SX6    B0                                                      GRA      2672
                                                  LX4    -CC.REG1P                                               GRA      2673
          1440  15447                             BX4    -X7*X4      REG = REG1[CCW]                             GRA      2674
                     63240                        SB2    X4                                                      GRA      2675
                          5264000100 C            SA6    RAT+X4      RAT(REG) = 0                                GRA      2676
          1441  22720                             LX7    B2,X0                                                   GRA      2677
                     12171                        BX1    X7+X1       MRA = MRA ! SHIFT(1,REG)                    GRA      2678
                          5140000170 C            SA4    NAB                                                     GRA      2679
          1442  73741                             SX7    X4+B1       NAB = NAB + 1                               GRA      2680
                     54740                        SA7    A4                                                      GRA      2681
                          5140000160 +            SA4    SEEA                                                    GRA      2682
          1443  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
          1444  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
          1445  0306001444 +                      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
          1446  15117                             BX1    -X7*X1      MRA = MRA & ^BIT                            GRA      2695
                     73620                        SX6    X2                                                      GRA      2696
                          5163000100 C            SA6    RAT+B3      RAT(REGNO) = I                              GRA      2697
          1447  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
          1450  12734                             BX7    X3+X4       REG1[CCW] = REGN                            GRA      2703
                     54740                        SA7    A4                                                      GRA      2704
                          66441                   SB4    B4+B1       J = J + 1                                   GRA      2705
          1451  0745001422 +                      LT     B4,B5,DAA10 IF J < SI                                   GRA      2706
                                                                                                                 GRA      2707
                          76650                   SX6    B5                                                      GRA      2708
                               10711              BX7    X1                                                      GRA      2709
          1452  5160000205 C                      SA6    NAA         NAA = SI                                    GRA      2710
                          5170000015 C            SA7    MRA                                                     GRA      2711
          1453  0400001316 +                      EQ     DAA                                                     GRA      2712
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    64
        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
                                         RF       DEFINE 15          RCT RF                                      GRA      2723
                                         IH       DEFINE 18          IH OF SYMBOL                                GRA      2724
                                         NOCC     DEFINE 9                                                       GRA      2725
                                         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
                                         BASE     DEFINE 1           =1 IF PROG VAR OR BASE MEMBER OF *IP* CLASS GRA      2732
                                         NIH      DEFINE 18          377777B - N.IH"S IN RF CLASS                GRA      2733
                                         LEN      DEFINE 18          NUMBER OF ENTRIES IN CLASS                  GRA      2734
                                                  DEFINE 2                                                       GRA      2735
                                         FP       DEFINE 1                                                       GRA      2736
                                         INDX     DEFINE 18          INDEX TO LWA OF CLASS                       GRA      2737
                                                                                                                 GRA      2738
          1454  0200401454 +             MFA      ROUTINE                                                        GRA      2739
          1455  5110000015 C                      SA1    MRA                                                     GRA      2740
                          5150000000 X            SA5    L.RCT                                                   GRA      2741
          1456  7120000376                        SX2    376B                                                    GRA      2742
                          11321                   BX3    X2*X1                                                   GRA      2743
                               73431              SX4    X3+B1                                                   GRA      2744
          1457  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
          1461  5140000000 X                      SA4    O.RCT                                                   GRA      2748
                          43700                   MX7    0                                                       GRA      2749
                               63721              SB7    X2+B1       BO = O.RND + 1                              GRA      2750
          1462  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
          1463  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
          1464  56660                             SA6    B6          [CO] = -0     */ INDICATE RF=0 IS IN A REG  GRA      2759
                     0400001470 +                 EQ     MFA2                                                    GRA      2760
                                                                                                                 GRA      2761
                                        *         ADD ENTRY TO *CON* LIST                                        GRA      2762
                                                                                                                 GRA      2763
          1465  54351                    MFA1     SA3    A5+B1                                                   GRA      2764
                     54431                        SA4    A3+B1                                                   GRA      2765
                                                  LX3    59-IH.MSKP                                              GRA      2766
                          0333001470 +            MI     X3,MFA2     IF MSK[CI+1]                                GRA      2767
          1466  76750                             SX7    B5                                                      GRA      2768
                     66441                        SB4    B4+B1       NC = NC + 1                                 GRA      2769
                          20744                   LX7    CC.INCP     INC[CI+2] = LC                              GRA      2770
                               12647              BX6    X4+X7                                                   GRA      2771
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    65
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1467  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
          1470  5055777774               MFA2     SA5    A5-3        CI = CI - 3                                 GRA      2778
                          0305001510 +            ZR     X5,MFA3     IF [CI] = 0   */ END OF TABLE               GRA      2779
          1471  10655                             BX6    X5                                                      GRA      2780
                     20604                        LX6    59-CA.CONP                                              GRA      2781
                          0336001465 +            MI     X6,MFA1     IF CON[CI]                                  GRA      2782
          1472  20670                             LX6    CA.CONP-CA.RAP                                          GRA      2783
                     0336001470 +                 MI     X6,MFA2     IF RA[CI]                                   GRA      2784
                               20603              LX6    CA.RAP-CA.ACP                                           GRA      2785
          1473  0326001470 +                      PL     X6,MFA2     IF ^AC[CI]                                  FCC1531X    5
                                                                                                                 FCC1531X    6
                          5045000002              SA4    A5+2        CCW = [RCT+2]                               FCC1828X    6
          1474  20452                             LX4    -CC.H2P                                                 FCC1828X    7
                     73340                        SX3    X4                                                      FCC1828X    8
                          0313001470 +            NZ     X3,MFA2     IF H2[CCW] " 0  */ OMIT SYM DIFFERENCES     FCC1828X    9
          1475  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
          1476  73440                             SX4    X4          R = RF[CI]                                  GRA      2803
                     20555                        LX5    BC.NOCCP-CA.NOCCP                                       GRA      2804
                          0304001502 +            ZR     X4,MFA2B    IF R = 0                                    FCC1014    83
                                                                                                                 FCC1014    84
          1477  5110001315 +                      SA1    DAAB                                                    FCC1014    85
                          53246                   SA2    B6+X4       CJ = RCT(R)                                 FCC1014    86
                               16621              BX6    -X1+X2                                                  FCC1014    87
          1500  0316001502 +                      NZ     X6,MFA2B    IF ^( VC[CJ] & RA[CJ] )                     FCC1014    88
                          5022000002              SA2    A2+2        CCW = RCT(R+2)                              FCC1014    89
          1501  20267                             LX2    59-CC.REG1P-4                                           FCC1014    90
                     0322001505 +                 PL     X2,MFA2C    IF REG1[CCW] < 20B  */ IN A B-REGISTER      FCC1014    91
                                                                                                                 FCC1014    92
          1502  0303001470 +             MFA2B    ZR     X3,MFA2     IF IH[C2W] = 0                              FCC1014    93
                          43400                   MX4    0           R = 0                                       FCC1014    94
                               54250              SA2    A5                                                      FCC1014    95
          1503  5110001657 +                      SA1    MFAD                                                    FCC1014    96
                          11612                   BX6    X1*X2                                                   FCC1014    97
          1504  0316001505 +                      NZ     X6,MFA2C    IF FP[CI] ! NOCC[CI] \ 2                    FCC1014    98
                                                  LX2    59-CA.RAP                                               FCC1014    99
                          0322001470 +            PL     X2,MFA2     IF ^RA[CI]                                  FCC1014   100
                                                                                                                 FCC1014   101
          1505  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
          1506  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
          1507  0400001470 +                      EQ     MFA2                                                    GRA      2815
                                                                                                                 GRA      2816
          1510  76650                    MFA3     SX6    B5                                                      GRA      2817
                     5160000216 C                 SA6    CL          CL = LC       */ CON LIST POINTER           GRA      2818
                               43600              MX6    0                                                       GRA      2819
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    66
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1511  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
          1512  5160000217 C                      SA6    NAC         NAC = LEN     */ NUMBER OF ADDRESS CANIDATE GRA      2824
                          0301001700 +            ZR     X1,MFA48    IF LEN = 0                                  GRA      2825
                                                                                                                 GRA      2826
          1513  0100000000 X                      CALL   SHL         SORT( BCT )                                 GRA      2827
                                                                                                                 GRA      2828
                                        *         NOW FORM THE RF CLASS INDEX TABLE AND SORT IT                  GRA      2829
                                                                                                                 GRA      2830
          1514  5120000000 X                      SA2    O.TET                                                   GRA      2831
                          43774                   MX7    60                                                      GRA      2832
                               56730              SA7    B3          AI = BI;  [AI] = -0  */ SEARCH TERMINATOR   GRA      2833
          1515  43017                             MX0    -BC.RFP                                                 GRA      2834
                     66331                        SB3    B3+B1       AF = AI + 1   */ BASE                       GRA      2835
                          53020                   SA0    X2                                                      GRA      2836
          1516  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
          1517  20133                             LX1    BC.IHP                                                  GRA      2840
                     56570                        SA5    B7          BI = BO                                     GRA      2841
                          0400001530 +            EQ     MFA6                                                    GRA      2842
                                                                                                                 GRA      2843
                                        *         END OF RF CLASS, SETUP INDEX WORD IN *AIT*                     GRA      2844
                                                                                                                 GRA      2845
          1520  21255                    MFA4     AX2    BC.RFP                                                  GRA      2846
                     53426                        SA4    B6+X2       CI = RCT(RF[BL])                            GRA      2847
                          63220                   SB2    X2                                                      FCC2092     5
                               43700              MX7    0           BASE = 0                                    FCC2092     6
          1521  0420001524 +                      ZR     B2,MFA5     IF RF[BL] = 0                               FCC2092     7
                          76710                   SX7    B1          BASE = 1                                    GRA      2848
                               63240              SB2    X4                                                      GRA      2849
          1522  0520001524 +                      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
          1523  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
          1524  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
          1525  76440                             SX4    B4                                                      GRA      2864
                     20771                        LX7    AI.BASEP                                                GRA      2865
                          12672                   BX6    X7+X2                                                   GRA      2866
                               20447              LX4    AI.NIHP                                                 GRA      2867
          1526  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
          1527  6140377776                        SB4    377776B     NIH = -1                                    GRA      2871
                          0305001534 +            ZR     X5,MFA7     IF [BI] = 0   */ END OF TABLE               GRA      2872
                                                                                                                 GRA      2873
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    67
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1530  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
          1531  0317001520 +                      NZ     X7,MFA4     IF RF[BI] " RF[BL]                          GRA      2878
                                                                                                                 GRA      2879
                          15661                   BX6    -X1*X6                                                  GRA      2880
          1532  0306001530 +                      ZR     X6,MFA6     IF IH[BI] = IH[BL]                          GRA      2881
                          6144777776              SB4    B4-1        NIH = NIH - 1                               GRA      2882
          1533  0315001530 +                      NZ     X5,MFA6     IF [BI] " 0                                 GRA      2883
                                                                                                                 GRA      2884
                          0400001524 +            EQ     MFA5                                                    GRA      2885
                                                                                                                 GRA      2886
                                        *         SORT THE CLASS INDEX TABLE                                     GRA      2887
                                                                                                                 GRA      2888
          1534  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
          1535  54750                             SA7    A5          [BI] = 0                                    GRA      2893
                     5160000220 C                 SA6    ATI                                                     GRA      2894
          1536  5160000000 X                      SA6    L.RND                                                   GRA      2895
                          77123                   SX1    B2-B3       LEN = AI+1 - AF                             GRA      2896
                               66730              SB7    B3                                                      GRA      2897
          1537  0100000000 X                      CALL   SHL         SORT( AIT )                                 GRA      2898
                                                                                                                 GRA      2899
                                                  PRINT  MFA,(* NAC,ATI =*2Z5),(NAC,ATI)                         GRA      2900
                                                  TRACE  MFA,RND                                                 GRA      2901
                                                                                                                 GRA      2902
                                        *         GET SPACE FOR NEW ENTRIES ( CON"S, DIFFERENCES )               GRA      2903
                                                                                                                 GRA      2904
          1540  5150000217 C                      SA5    NAC                                                     GRA      2905
                          22415                   LX4    B1,X5                                                   GRA      2906
                               36145              IX1    X4+X5                                                   GRA      2907
          1541  5100000000 X                      ALLOC  RCT,X1      ALLOC( RCT , 3*NAC )                        GRA      2908
          1542  5140000000 X                      SA4    O.RND                                                   GRA      2909
                          76660                   SX6    B6                                                      GRA      2910
                               63740              SB7    X4                                                      GRA      2911
          1543  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
          1544  5110000220 C             MFA10    SA1    ATI                                                     GRA      2918
                          7271777776              SX7    X1-1        ATI = ATI - 1                               GRA      2919
          1545  53277                             SA2    B7+X7       AI = RND(ATI)                               GRA      2920
                     54710                        SA7    A1                                                      GRA      2921
                          0302001700 +            ZR     X2,MFA48    IF AI = 0     */ END OF TABLE               GRA      2922
                                                                                                                 GRA      2923
                                                  LX2    -AI.INDXP                                               GRA      2924
          1546  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
          1547  6222400000                        SB2    X2+400000B                                              GRA      2929
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    68
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          20251                   LX2    AI.NIHP+59-AI.BASEP                                     GRA      2930
                               10655              BX6    X5                                                      GRA      2931
          1550  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
          1551  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
          1552  0307001660 +                      ZR     X7,MFA40    IF REGNO = 0                                GRA      2940
                                                                                                                 GRA      2941
                          5043777775              SA4    A3-2        CAW = RCT(R)                                GRA      2942
          1553  5110000716 +                      SA1    MTAB                                                    GRA      2943
                          11614                   BX6    X1*X4                                                   GRA      2944
                               20414              LX4    59-CA.TUP                                               GRA      2945
          1554  0316001660 +                      NZ     X6,MFA40    IF (IRA,EU,LX)[CAW]  */ CANT BIAS           GRA      2946
                          0324001557 +            PL     X4,MFA10A   IF ^TU[CAW]   */ NOT LOOP *CV* OR LIMIT     GRA      2947
          1555  5110000172 C                      SA1    TRD                                                     GRA      2948
                          7241777775              SX4    X1-2                                                    GRA      2949
          1556  0304001660 +                      ZR     X4,MFA40    IF TRD = 2    */ I,N IN REGS                GRA      2950
                                                                                                                 GRA      2951
          1557  0715001617 +             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
                          0322001562 +            PL     X2,MFA12    IF ^BASE[AI]                                GRA      2956
                                                                                                                 GRA      2957
                                        *         ASSIGN BASE MEMBER ADDRESS TO B-REG                            GRA      2958
                                                                                                                 GRA      2959
          1560  0100002146 +             MFA11    RJ     AFA         ASSIGN FULL ADDRESS                         GRA      2960
          1561  0400001544 +                      EQ     MFA10                                                   GRA      2961
                                                                                                                 GRA      2962
                                        *         ^BASE *IP*, FIND BASE TP IN REGS AND DO DIFFERENCING           GRA      2963
                                                                                                                 GRA      2964
          1562  54441                    MFA12    SA4    A4+B1                                                   GRA      2965
                     5130000000 X                 SA3    O.TET                                                   GRA      2966
                               20452              LX4    -IH.CAP                                                 GRA      2967
          1563  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
          1564  20230                             LX2    -T.ITIP     ITI = ITI[TET(C)]  */ INDX TO INFO WORD     GRA      2971
                     63220                        SB2    X2                                                      GRA      2972
                          0420001560 +            ZR     B2,MFA11    IF ITI = 0    */ INVARAINT TEMP             GRA      2973
          1565  53412                             SA4    X1+B2       ITW = IIT(ITI)                              GRA      2974
                     20452                        LX4    -PI.CAP                                                 GRA      2975
                          63240                   SB2    X4          BC = CA[ITW]  */ CA OF BASE                 GRA      2976
                               53232              SA2    X3+B2                                                   GRA      2977
          1566  20252                             LX2    -T.REGP                                                 GRA      2978
                     63520                        SB5    X2          BREGN = REG[TET(BC)]  */ REG THAT BASE IS I GRA      2979
                          0450001560 +            ZR     B5,MFA11    IF BREGNO = 0 */ BASE NOT IN A REG          GRA      2980
          1567  5115000100 C                      SA1    RAT+B5      J1 = R1[RAT(BREGN)]                         FCC1518X   19
                          53216                   SA2    B6+X1                                                   FCC1518X   20
                               20210              LX2    59-CA.EUP                                               FCC1518X   21
          1570  0332001560 +                      MI     X2,MFA11    IF EU[RCT(J1)]  */ BASE IP IS *XU*          FCC1518X   22
                                                                                                                 GRA      2981
                                        *         NOW PLAY AROUND TO SETUP *REGNO* AS DELTA(IHCA,RF"S)           GRA      2982
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    69
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                                                                                                 GRA      2983
                          53156                   SA1    B6+X5       J = CO[BI]                                  GRA      2984
                               43001              MX0    1                                                       GRA      2985
          1571  5021000002                        SA2    A1+2        CCW = RCT(J+2)                              GRA      2986
                                                  LX0    1+CA.RAP                                                GRA      2987
                          7135004200              SX3    B5+2S6+V.SRF  REG1[CCW] = BREGN                         FCC0977    11
                                                  LX3    CC.REG1P    MIT[CCW] = 42B    */ SET *SRF* BIT          FCC0977    12
          1572  74400                             SX4    A0          REG2[CCW] = REGNO                           GRA      2990
                     20414                        LX4    CC.REG2P                                                GRA      2991
                          12601                   BX6    X0+X1       RA[RCT(J)] = 1                              GRA      2992
                               54610              SA6    A1                                                      GRA      2993
          1573  12334                             BX3    X3+X4                                                   GRA      2994
                     12732                        BX7    X3+X2                                                   GRA      2995
                          54720                   SA7    A2                                                      GRA      2996
          1574  5170000001 +                      SA7    GRASRF      GRASRF = 1                                  FCC0977    13
                                                                                                                 GRA      2997
                                        *         SETUP *RAT* TO FORM DIFFERENCE CODE IN PROLOGUE                GRA      2998
                                                                                                                 GRA      2999
                          5115000100 C            SA1    RAT+B5                                                  GRA      3000
          1575  73310                             SX3    X1          J1 = R1[RAT(BREGN)]                         GRA      3001
                     20130                        LX1    -RA.R3P                                                 GRA      3002
                          63310                   SB3    X1          J3 = R3[RAT(BREGN)]                         GRA      3003
          1576  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
                               20322              LX3    RA.R2P                                                  GRA      3007
          1577  12732                             BX7    X3+X2       R2[RAT(REGNO)] = J1                         GRA      3008
                     54720                        SA7    A2                                                      GRA      3009
                          5140000160 +            SA4    SEEA                                                    GRA      3010
          1600  53326                             SA3    B6+X2                                                   GRA      3011
                     12634                        BX6    X3+X4       KD[RCT(JO)] = 1                             GRA      3012
                          54630                   SA6    A3                                                      GRA      3013
          1601  0530001603 +                      NZ     B3,MFA13    IF J3 " 0     */ SYMBOL APPENDED            GRA      3014
                                                                                                                 GRA      3015
                          73350                   SX3    X5                                                      GRA      3016
                               20344              LX3    RA.R3P                                                  GRA      3017
          1602  12737                             BX7    X3+X7       R3[RAT(REGNO)] = J  */ APPEND THIS IHCA     GRA      3018
                     54770                        SA7    A7                                                      GRA      3019
                          0400001544 +            EQ     MFA10                                                   GRA      3020
                                                                                                                 GRA      3021
                                        *         BASE REG HAS A SYMBOL APPENDED, FORM ADDRESS DIFFERENCE        GRA      3022
                                                                                                                 GRA      3023
          1603  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
          1604  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
          1605  0303001544 +                      ZR     X3,MFA10    IF CAIH1 = CAIH2                            GRA      3032
                                                                                                                 GRA      3033
                          5140000000 X            SA4    L.RCT                                                   GRA      3034
          1606  63230                             SB2    X3                                                      GRA      3035
                     63441                        SB4    X4+B1       OL = L.RCT                                  GRA      3036
                          7264000003              SX6    X4+3        L.RCT = L.RCT + 3                           GRA      3037
          1607  20444                             LX4    RA.R3P                                                  GRA      3038
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    70
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                     54640                        SA6    A4                                                      GRA      3039
                          12747                   BX7    X4+X7       R3[RAT(REGNO)] = OL  */ DIFF CANIDATE       GRA      3040
                               43052              MX0    -IH.CAL                                                 GRA      3041
          1610  54770                             SA7    A7                                                      GRA      3042
                     73310                        SX3    X1                                                      GRA      3043
                          73420                   SX4    X2                                                      GRA      3044
                               20152              LX1    -IH.CAP                                                 GRA      3045
          1611  20252                             LX2    -IH.CAP                                                 GRA      3046
                     73110                        SX1    X1                                                      GRA      3047
                          73220                   SX2    X2                                                      GRA      3048
                               37112              IX1    X1-X2                                                   GRA      3049
          1612  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
          1613  0420001615 +                      ZR     B2,MFA14    IF IH1 = IH2                                GRA      3053
                          73740                   SX7    X4                                                      GRA      3054
                               20722              LX7    CC.H2P      KEY2 = CCW(0,IH2,0)                         GRA      3055
          1614  12636                             BX6    X3+X6       IH[KEY] = IH1                               GRA      3056
                                                                                                                 GRA      3057
          1615  5140002131 +             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
          1616  10644                             BX6    X4                                                      GRA      3061
                     55661                        SA6    A6-B1       RCT(OL) = CAW(0,AC,PL)                      GRA      3062
                          0400001544 +            EQ     MFA10                                                   GRA      3063
  
  
                                        *         PROCESS CLASS WITH L > 1 AND NIH = 1                           GRA      3065
                                                                                                                 GRA      3066
          1617  0541001621 +             MFA20    NE     B4,B1,MFA30 IF N > 1                                    GRA      3067
                          0100002054 +            RJ     PSC         PROCESS SIMPLE CLASS                        GRA      3068
          1620  0400001544 +                      EQ     MFA10                                                   GRA      3069
  
  
                                        *         MULTI IH CLASS                                                 GRA      3071
                                                                                                                 GRA      3072
          1621  7164777772               MFA30    SX6    B4-5                                                    GRA      3073
                          0326001660 +            PL     X6,MFA40    IF N > 4                                    GRA      3074
          1622  5140000170 C                      SA4    NAB                                                     GRA      3075
                          0304001544 +            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
          1623  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
          1624  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
          1625  0303001624 +                      ZR     X3,MFA31    IF RFIH[BI] = RFIH[BL]                      FCC0814     5
                                                                                                                 GRA      3091
                          53246                   SA2    B6+X4       CI = RCT(CO[BL])                            GRA      3092
                               76310              SX3    B1                                                      GRA      3093
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    71
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1626  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
          1627  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
          1630  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
          1631  0632001632 +                      LE     B2,B3,MFA32 ML = MAX( ML , LEN )                        GRA      3105
                          66320                   SB3    B2                                                      GRA      3106
          1632  74750                    MFA32    SX7    A5                                                      GRA      3107
                     63210                        SB2    X1                                                      GRA      3108
                          0724001624 +            LT     B2,B4,MFA31 IF NC < N                                   GRA      3109
                                                                                                                 GRA      3110
          1633  5120000170 C                      SA2    NAB                                                     GRA      3111
                          5130000223 C            SA3    CIT                                                     GRA      3112
          1634  63223                             SB2    X2+B3                                                   GRA      3113
                     53530                        SA5    X3          BI = INDX[CIT]                              GRA      3114
                          0725001660 +            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
          1635  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
          1636  5145000223 C             MFA33    SA4    CIT+B5                                                  GRA      3122
                          37634                   IX6    X3-X4                                                   GRA      3123
                               66551              SB5    B5+B1       I = I + 1                                   GRA      3124
          1637  0326001640 +                      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
          1640  0754001636 +             MFA34    LT     B5,B4,MFA33 IF I < N                                    GRA      3128
                                                                                                                 GRA      3129
                          0713001642 +            GT     B3,B1,MFA34A      IF ML > 1                             GRA      3130
          1641  20351                             LX3    59-AI.FPP                                               GRA      3131
                     0323001660 +                 PL     X3,MFA40    IF ^FP[MVAL]  */ NO F.P. S IN THE CLASS     GRA      3132
                                                                                                                 GRA      3133
          1642  5122000223 C             MFA34A   SA2    CIT+B2                                                  GRA      3134
                          54330                   SA3    A3                                                      GRA      3135
                               10633              BX6    X3                                                      GRA      3136
          1643  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
          1644  20247                             LX2    -AI.LENP                                                GRA      3142
                     63520                        SB5    X2          L = LEN[CIT]                                GRA      3143
                          0100002054 +            RJ     PSC         PROCESS BASE CLASS                          GRA      3144
                                                                                                                 GRA      3145
          1645  76611                             SX6    B1+B1                                                   GRA      3146
                     5160000223 C                 SA6    CIT         I = 2;  AI = CIT(1)                         GRA      3147
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    72
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                                                                                                 GRA      3148
          1646  5110000224 C             MFA35    SA1    CIT+1                                                   GRA      3149
                          5120001656 +            SA2    MFAC                                                    GRA      3150
          1647  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
          1650  0100002107 +                      RJ     AAD         ASSIGN ADDRESS DIFFERENCE( J, REGNO , CAIH  GRA      3155
          1651  5110000224 C                      SA1    CIT+1                                                   GRA      3156
                          20147                   LX1    -AI.LENP                                                GRA      3157
                               63210              SB2    X1                                                      GRA      3158
          1652  0520001646 +                      NZ     B2,MFA35    IF LEN[AI] " 0                              GRA      3159
                                                                                                                 GRA      3160
                          55211                   SA2    A1-B1                                                   GRA      3161
          1653  5232000223 C                      SA3    CIT+X2      AI = CIT(I)                                 GRA      3162
                          73721                   SX7    X2+B1       I = I + 1                                   GRA      3163
                               54720              SA7    A2                                                      GRA      3164
          1654  10633                             BX6    X3                                                      GRA      3165
                     54610                        SA6    A1                                                      GRA      3166
                          0313001646 +            NZ     X3,MFA35    IF AI " 0                                   GRA      3167
                                                                                                                 GRA      3168
          1655  0400001544 +                      EQ     MFA10                                                   GRA      3169
                                                                                                                 GRA      3170
          1656                           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
          1657                           MFAD     BFMW   CA,(FP,NOC2)                                            GRA      3176
  
  
                                        *         PARTIAL ASSIGNMENT, SET IH+CA IN A REGISTER                    GRA      3178
                                                                                                                 GRA      3179
          1660  7160000000               MFA40    SX6    0                                                       GRA      3180
                          5160000221 C            SA6    CAIH        CAIH = 0                                    GRA      3181
                                                                                                                 GRA      3182
          1661  75751                    MFA41    SX7    A5-B1                                                   GRA      3183
                     63251                        SB2    X5+B1                                                   GRA      3184
                          5170000223 C            SA7    CIT                                                     GRA      3185
          1662  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
          1663  43200                             MX2    0                                                       GRA      3190
                     0100002132 +                 RJ     SDC         SEARCH FOR CAIH                             GRA      3191
          1664  0520001670 +                      NZ     B2,MFA45    IF REGN " 0   */ IN A REG                   GRA      3192
                                                                                                                 GRA      3193
                          5110001657 +            SA1    MFAD                                                    GRA      3194
          1665  56263                             SA2    B6+B3       CAW = RCT(J)                                GRA      3195
                     5140000170 C                 SA4    NAB                                                     GRA      3196
                               11312              BX3    X1*X2                                                   GRA      3197
          1666  0303001676 +                      ZR     X3,MFA47    IF ^( FP[CAW] ! NOCC[CAW] > 1 )             GRA      3198
                          0304001676 +            ZR     X4,MFA47    IF NAB = 0                                  GRA      3199
                                                                                                                 GRA      3200
          1667  0100002123 +                      RJ     EDC         ENTER CANIDATE                              GRA      3201
                                                                                                                 GRA      3202
                                        *         SETUP *J* AS A *SLD*                                           GRA      3203
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    73
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                                                                                                 GRA      3204
          1670  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
          1671  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
          1672  74500                             SX5    A0                                                      GRA      3212
                     76420                        SX4    B2                                                      GRA      3213
                          0305001675 +            ZR     X5,MFA46    IF REGNO = 0  */ NO BASE REG                GRA      3214
                                                                                                                 GRA      3215
          1673  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
          1674  54720                             SA7    A2                                                      GRA      3221
                     0400001676 +                 EQ     MFA47                                                   GRA      3222
                                                                                                                 GRA      3223
                                         MFA46    LX4    CC.REG1P                                                GRA      3224
          1675  12547                             BX5    X4+X7       REG1[CCW] = REGN                            GRA      3225
                     12752                        BX7    X5+X2                                                   FCC1014   104
                          54720                   SA7    A2                                                      GRA      3227
                                                                                                                 GRA      3228
          1676  5140000223 C             MFA47    SA4    CIT                                                     GRA      3229
                          67551                   SB5    B5-B1       L = L - 1                                   GRA      3230
                               53540              SA5    X4          BI = BI - 1                                 GRA      3231
          1677  0550001661 +                      NZ     B5,MFA41    IF L " 0                                    GRA      3232
                                                                                                                 GRA      3233
                          0400001544 +            EQ     MFA10                                                   GRA      3234
  
  
          1700  5110000170 C             MFA48    SA1    NAB                                                     GRA      3236
                          5120000017 C            SA2    N.HB                                                    GRA      3237
          1701  0311001703 +                      NZ     X1,MFA48A   IF NAB " 0    */ B-REGS AVAIL               GRA      3238
                          7272777776              SX7    X2-1                                                    GRA      3239
          1702  0317001744 +                      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
          1703  5120000216 C             MFA48A   SA2    CL                                                      GRA      3245
                          43063                   MX0    -CA.NOCCL                                               GRA      3246
                               76700              SX7    B0                                                      GRA      3247
          1704  20041                             LX0    CA.NOCCP                                                GRA      3248
                     6170000001 C                 SB7    SCR+1                                                   GRA      3249
                               57771              SA7    B7-B1       SI = SCR;  [SI] = 0                         GRA      3250
          1705  76100                             SX1    B0          L = 0                                       GRA      3251
                     73220                        SX2    X2          J = CL                                      GRA      3252
                          6150777741              SB5    -36B                                                    GRA      3253
          1706  5100000000                        SA0    0           NPA = 0       */ N. PREVIOUS ASSIGNMENTS    GRA      3254
                          43301                   MX3    1                                                       GRA      3255
                                                  LX3    1+CA.RAP                                                GRA      3256
                                                                                                                 GRA      3257
          1707  53526                    MFA49    SA5    B6+X2       CAW = RCT(J)                                GRA      3258
                     15650                        BX6    -X0*X5      N = NOCC[CAW]                               GRA      3259
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    74
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          36762                   IX7    X6+X2                                                   GRA      3260
                               11435              BX4    X3*X5                                                   GRA      3261
          1710  20473                             LX4    58-CA.RAP                                               GRA      3262
                     12747                        BX7    X4+X7       STW = CST(RA[CAW],N,J)                      GRA      3263
                          0304001712 +            ZR     X4,MFA50    IF ^RA[CAW]                                 GRA      3264
          1711  54001                             SA0    A0+B1       NPA = NPA + 1                               GRA      3265
                     0400001713 +                 EQ     MFA51                                                   GRA      3266
                                                                                                                 GRA      3267
          1712  20633                    MFA50    LX6    -CA.NOCCP                                               GRA      3268
                     63260                        SB2    X6                                                      GRA      3269
                          0612001715 +            LE     B2,B1,MFA52 IF N @ 1                                    GRA      3270
                                                                                                                 GRA      3271
          1713  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
          1714  0620001717 +                      PL     B2,MFA53    IF L = 36B                                  GRA      3275
                                                                                                                 GRA      3276
          1715  5055000002               MFA52    SA5    A5+2                                                    GRA      3277
                          20530                   LX5    -CC.INCP                                                GRA      3278
                               73250              SX2    X5          J = INC[RCT(J+2)]                           GRA      3279
          1716  0312001707 +                      NZ     X2,MFA49    IF J " 0      */ NOT END OF CON LIST        GRA      3280
                                                                                                                 GRA      3281
          1717  0301001744 +             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
          1720  0100000000 X                      CALL   SHL         SORT( SCR )                                 GRA      3286
          1721  5110000000 X                      SA1    O.RND                                                   GRA      3287
                          5150000170 C            SA5    NAB                                                     GRA      3288
          1722  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
          1723  0315001725 +                      NZ     X5,MFA54    IF NAB " 0                                  GRA      3292
                          0421001744 +            EQ     B2,B1,MFA60 IF NPA = 0                                  GRA      3293
          1724  0400001730 +                      EQ     MFA55                                                   GRA      3294
                                                                                                                 GRA      3295
                                        *         ASSIGN CONSTANTS TO THE B-REGS                                 GRA      3296
                                                                                                                 GRA      3297
          1725  56530                    MFA54    SA5    B3          J = CO[SI]                                  GRA      3298
                     0305001730 +                 ZR     X5,MFA55    IF J = 0      */ END OF SORT TABLE          GRA      3299
                               67331              SB3    B3-B1       SI = SI - 1                                 GRA      3300
          1726  76110                             SX1    B1          INVF = 1                                    GRA      3301
                     63450                        SB4    X5                                                      GRA      3302
                          0100001060 +            RJ     AIR         ASSIGN AN INDEX REGISTER                    GRA      3303
          1727  5110000170 C                      SA1    NAB                                                     GRA      3304
                          0311001725 +            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
          1730  5120000222 C             MFA55    SA2    PMF                                                     GRA      3309
                          0302001744 +            ZR     X2,MFA60    IF PMF = 0    */ NO PARTIAL MODS            GRA      3310
          1731  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
          1732  56164                    MFA56    SA1    B6+B4       C2W = RCT(J+1)                              GRA      3316
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    75
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                     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
          1733  56571                             SA5    B7+B1       BI = O.RND + 1                              GRA      3321
                     20214                        LX2    CC.REG2P                                                GRA      3322
                                                                                                                 GRA      3323
          1734  0325001742 +             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
          1735  56462                             SA4    B6+B2                                                   GRA      3327
                     7170000100                   SX7    1S6         IT = 2                                      GRA      3328
                               15540              BX5    -X0*X4      C = CA[RCT(I+1)]                            GRA      3329
          1736  37651                             IX6    X5-X1                                                   GRA      3330
                     0306001740 +                 ZR     X6,MFA58    IF C = C2W                                  GRA      3331
                               36451              IX4    X5+X1                                                   GRA      3332
          1737  12604                             BX6    X0+X4                                                   GRA      3333
                     0316001742 +                 NZ     X6,MFA59    IF -C " C2W                                 GRA      3334
                               20701              LX7    1           IT = 3        */ 2S6                        GRA      3335
                                                                                                                 GRA      3336
                                        *         CHANGE INSTRUCTION                                             GRA      3337
                                                                                                                 GRA      3338
          1740  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
          1741  54740                             SA7    A4                                                      GRA      3343
                                                                                                                 GRA      3344
          1742  54551                    MFA59    SA5    A5+B1       BI = BI + 1                                 GRA      3345
                     0315001734 +                 NZ     X5,MFA57    IF [BI] " 0   */ NOT END OF ADDRESS TABLE   GRA      3346
                                                                                                                 GRA      3347
                               54331              SA3    A3+B1       SI = SI + 1                                 GRA      3348
          1743  63431                             SB4    X3+B1       J = CO[SI]                                  GRA      3349
                     0313001732 +                 NZ     X3,MFA56    IF J " 0                                    GRA      3350
  
  
                                        *         SETUP LOOP TEST REPLACEMENT CODE INFO                          GRA      3352
                                                                                                                 GRA      3353
          1744  5110000172 C             MFA60    SA1    TRD                                                     GRA      3354
                          7160000000              SX6    0           L.RND = 0                                   GRA      3355
          1745  5160000000 X                      SA6    L.RND                                                   GRA      3356
                          0301001454 +            ZR     X1,MFA      IF TRD = 0    */ NO TEST REPLACEMENT        GRA      3357
                                                                                                                 GRA      3358
          1746  5150000023 C                      SA5    LUL                                                     GRA      3359
                          26625                   UX6    B2,X5                                                   GRA      3360
          1747  0520001767 +                      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
          1751  43052                             MX0    -IH.CAL                                                 GRA      3366
                     76610                        SX6    B1                                                      GRA      3367
                          15750                   BX7    -X0*X5                                                  GRA      3368
                               20667              LX6    CA.CONP                                                 GRA      3369
          1752  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
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    76
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                               43600              MX6    0                                                       GRA      3373
          1753  54671                             SA6    A7+B1       RCT(OL+2) = 0                               GRA      3374
                     5110000172 C                 SA1    TRD                                                     GRA      3375
                               53421              SA4    X2+B1                                                   GRA      3376
          1754  7261777775                        SX6    X1-2                                                    GRA      3377
                          0316001765 +            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
          1755  6252000004                        SB5    X2+4                                                    GRA      3382
                          6130000003              SB3    3                                                       GRA      3383
          1756  13647                    MFA60A   BX6    X4-X7                                                   GRA      3384
                     54443                        SA4    A4+B3                                                   GRA      3385
                          0316001756 +            NZ     X6,MFA60A   IF RCT(I-2) " RCT(OL+1)                     GRA      3386
          1757  65445                             SB4    A4-B5                                                   GRA      3387
                     0446001765 +                 EQ     B4,B6,MFA60B      IF I = OL                             GRA      3388
          1760  5034777773                        SA3    A4-4        CAW = RCT(I)                                GRA      3389
                                                  LX3    59-CA.RAP                                               GRA      3390
                          0323001756 +            PL     X3,MFA60A   IF ^RA[RCT(I)-3)]                           GRA      3391
          1761  20304                             LX3    CA.RAP-CA.CONP                                          GRA      3392
                     0323001756 +                 PL     X3,MFA60A   IF ^CON[CAW]                                GRA      3393
          1762  5110000024 C                      SA1    LUL+1                                                   GRA      3394
                          5261000100 C            SA6    RAT+X1      RAT(LUL(2)) = 0                             GRA      3395
          1763  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
          1764  54610                             SA6    A1                                                      GRA      3400
                     66640                        SB6    B4          OL = I                                      GRA      3401
                                                                                                                 GRA      3402
          1765  5110000024 C             MFA60B   SA1    LUL+1                                                   GRA      3403
                          76760                   SX7    B6                                                      GRA      3404
                               43001              MX0    1                                                       GRA      3405
                                                  LX0    1+RA.INVP                                               GRA      3406
          1766  12707                             BX7    X0+X7       RAT(LUL(2)) = RATW(1,0,0,OL)                GRA      3407
                     5271000100 C                 SA7    RAT+X1                                                  GRA      3408
                                                                                                                 GRA      3409
          1767  5150000172 C             MFA61    SA5    TRD                                                     GRA      3410
                          6225777775              SB2    X5-2                                                    GRA      3411
          1770  0420001454 +                      ZR     B2,MFA      IF TRD = 2    */ I,N CASE                   GRA      3412
                          0620001776 +            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
          1771  5110000024 C             MFA62    SA1    LUL+1                                                   GRA      3417
                          5221000100 C            SA2    RAT+X1                                                  GRA      3418
          1772  5130000022 C                      SA3    LCV+1                                                   GRA      3419
                          5243000100 C            SA4    RAT+X3                                                  GRA      3420
          1773  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
          1774  43700                             MX7    0                                                       GRA      3425
                     54720                        SA7    A2          RAT(LUL(2)) = 0                             GRA      3426
                          54710                   SA7    A1          LUL(2) = 0                                  GRA      3427
          1775  0400001454 +                      EQ     MFA                                                     GRA      3428
                                                                                                                 GRA      3429
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    77
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                        *         PROCESS A+I , A+N CASE , CV REG IS ALREADY BIASED              GRA      3430
                                                                                                                 GRA      3431
          1776  0521002003 +             MFA63    NE     B2,B1,MFA64 IF TRD " 3                                  GRA      3432
                          5110000024 C            SA1    LUL+1                                                   GRA      3433
          1777  5221000100 C                      SA2    RAT+X1                                                  GRA      3434
                          5130000022 C            SA3    LCV+1                                                   GRA      3435
          2000  5243000100 C                      SA4    RAT+X3                                                  GRA      3436
                          43052                   MX0    -RA.R3L                                                 GRA      3437
                               76710              SX7    B1                                                      GRA      3438
          2001  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
          2002  12652                             BX6    X5+X2       R3[RAT(LUL(2))] = J                         GRA      3443
                     54620                        SA6    A2                                                      GRA      3444
                          0400001454 +            EQ     MFA                                                     GRA      3445
                                                                                                                 GRA      3446
                                        *         TRD = 4, I,F(I) IN REGS, SEARCH FOR F(I)                       GRA      3447
                                                                                                                 GRA      3448
          2003  5110000000 X             MFA64    SA1    O.RCT                                                   GRA      3449
                          5120000000 X            SA2    O.TET                                                   GRA      3450
          2004  5130000000 X                      SA3    O.IIT                                                   GRA      3451
                          5140000000 X            SA4    =XIT.                                                   GRA      3452
          2005  5150000021 C                      SA5    LCV                                                     GRA      3453
                          6170000007              SB7    7           I = 7         */ REGNO                      GRA      3454
          2006  63611                             SB6    X1+B1                                                   GRA      3455
                     63520                        SB5    X2                                                      GRA      3456
                          63431                   SB4    X3+B1                                                   GRA      3457
                               14444              BX4    -X4                                                     GRA      3458
          2007  63340                             SB3    X4                                                      GRA      3459
                     26505                        UX5    X5                                                      GRA      3460
                          21544                   AX5    PS.UDIP                                                 GRA      3461
                               14555              BX5    -X5                                                     GRA      3462
          2010  63250                             SB2    X5          U = UDI[LCV]                                GRA      3463
                                                                                                                 GRA      3464
          2011  5157000100 C             MFA65    SA5    RAT+B7      R = R1[RAT(I)]                              GRA      3465
                          0305002017 +            ZR     X5,MFA66    IF R = 0                                    GRA      3466
          2012  53456                             SA4    B6+X5       C2W = RCT(R+1)                              GRA      3467
                     73643                        SX6    X4+B3                                                   GRA      3468
                          0316002017 +            NZ     X6,MFA66    IF IH[C2W] " IT.                            GRA      3469
          2013  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
          2014  20230                             LX2    -T.ITIP     ITI = ITI[TET(C)]                           GRA      3474
                     0333002017 +                 MI     X3,MFA66    IF KD[RCT(R)]                               GRA      3475
                               73220              SX2    X2                                                      GRA      3476
          2015  0302002017 +                      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
          2016  0306002021 +                      ZR     X6,MFA67    IF UDI[IAW] = U                             GRA      3481
                                                                                                                 GRA      3482
          2017  67771                    MFA66    SB7    B7-B1       I = I - 1                                   GRA      3483
                     0570002011 +                 NZ     B7,MFA65    IF I " 0                                    GRA      3484
                                                                                                                 GRA      3485
                                        *         F(I) NOT FOUND, CHANGE TO TRD = 1                              GRA      3486
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    78
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                                                                                                 GRA      3487
                               76610              SX6    B1                                                      GRA      3488
          2020  5160000172 C                      SA6    TRD         TRD = 1                                     GRA      3489
                          0400001771 +            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
          2021  54341                    MFA67    SA3    A4+B1       CCW=RCT(R+2)                                FCC2135     7
                     20330                        LX3    -CC.INCP                                                FCC2135     8
                          7263777776              SX6    X3-1        IP=INC[CCW]                                 FCC2135     9
          2022  53166                             SA1    B6+X6       CAWI=RCT(IP)                                FCC2135    10
                     20104                        LX1    59-CA.CONP                                              FCC2135    11
                          0321002017 +            PL     X1,MFA66    IF CON[CAWI]=0 */VAR INCR.                  FCC2135    12
                                                                                                                 FCC2135    13
                                        *   IF F(I) INDEXES BLANK COMMON, A FORMAL PARAMETER OR LCM AND ITS      FCC2135    14
                                        *   INCREMENT IS SUFFICIENTLY LARGE USING IT AS AN ALTERNATE LOOP COUNT  FCC2135    15
                                        *   COULD RESULT IN A B REGISTER OVERFLOW.  FIRST CHECK IF SIZE OF       FCC2135    16
                                        *   INCREMENT IS SUFFICIENTLY LARGE (>100B).                             FCC2135    17
                                                                                                                 FCC2135    18
          2023  54111                             SA1    A1+B1       IHWI=CAWI+1                                 FCC2135    19
                     20152                        LX1    -IH.CAP                                                 FCC2135    20
                          7211777633              SX1    X1-100                                                  FCC2135    21
          2024  0331002043 +                      MI     X1,MFA68    IF CACIHWI]<100                             FCC2135    22
                                                                                                                 FCC2135    23
                                        *   SCAN RCT BACKWARDS FOR RF USES OF F(I)  AND CHECK IF F(I) INDEXES    FCC2135    24
                                        *   BLANK COMMON, A FORMAL PARAMETER, OR LCM.                            FCC2135    25
                                                                                                                 FCC2135    26
                          5110000000 X            SA1    L.RCT                                                   FCC2135    27
          2025  5140000012                        SA4    O.SYM                                                   FCC2135    28
                          73550                   SX5    X5                                                      FCC2135    29
                               43652              MX6    -IH.RFL                                                 FCC2135    30
          2026  76020                             SX0    B2          SAVE B2                                     FCC2135    31
                     20544                        LX5    IH.RFP      F(I)                                        FCC2135    32
                          20644                   LX6    IH.RFP      RF MASK                                     FCC2135    33
                               53116              SA1    B6+X1       J = O.RCT + L.RCT                           FCC2135    34
          2027  5204777776                        SA0    X4-1                                                    FCC2135    35
          2030  5011777774               MFA67A   SA1    A1-3        J = J -3                                    FCC2135    36
                          0301002043 +            ZR     X1,MFA68    IF R(J) = 0  */END OF RCT.                  FCC2135    37
          2031  15416                             BX4    -X6*X1                                                  FCC2135    38
                     13445                        BX4    X4-X5                                                   FCC2135    39
                          0314002030 +            NZ     X4,MFA67A   F(I) " RF                                   FCC2135    40
          2032  63210                             SB2    X1                                                      FCC2334    18
                     0420002042 +                 ZR     B2,MFA67B   IF IH = 0                                   FCC2334    19
                               20101              LX1    -IH.IHP+1                                               FCC2135    41
          2033  63210                             SB2    X1                                                      FCC2135    42
                     55402                        SA4    A0-B2       WORDB=[O.SYM-1-2*H]                         FCC2135    43
                          20472                   LX4    59-P.LCM                                                FCC2135    44
          2034  0334002042 +                      MI     X4,MFA67B   INDEXES LCM                                 FCC2135    45
                          20401                   LX4    P.LCM-P.FPB                                             FCC2135    46
          2035  0334002042 +                      MI     X4,MFA67B   INDEXES A FORMAL PARAMETER.                 FCC2135    47
                          20430                   LX4    1+P.FPB-P.RL                                            FCC2135    48
                               43772              MX7    -L.RL                                                   FCC2135    49
          2036  15747                             BX7    -X7*X4                                                  FCC2135    50
                     7277777775                   SX7    X7-2                                                    FCC2135    51
          2037  0317002030 +                      NZ     X7,MFA67A   IF RL"2 NOT IN COMMON                       FCC2135    52
                          20431                   LX4    P.RL-P.RB                                               FCC2135    53
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    79
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                               43765              MX7    -L.RB                                                   FCC2135    54
          2040  15747                             BX7    -X7*X4                                                  FCC2135    55
                     5247777776 X                 SA4    =XORGTAB-1+X7                                           FCC2135    56
                               21466              AX4    54                                                      FCC2135    57
          2041  7274000022                        SX7    X4+77B-1R                                               FCC2135    58
                          0317002030 +            NZ     X7,MFA67A   NOT IN BLANK COMMON                         FCC2135    59
                                                                                                                 FCC2135    60
                                        *   F(I) IS NOT SAFE LOOK FOR ANOTHER F(I).                              FCC2135    61
                                                                                                                 FCC2135    62
          2042  63200                    MFA67B   SB2    X0          RESTORE B2                                  FCC2135    63
                     0400002017 +                 EQ     MFA66                                                   FCC2135    64
                                                                                                                 GRA      3504
                                        *         ADJUST TRD IF NEGATIVE F(I), SAVE *IIT* INDEX                  GRA      3505
                                                                                                                 GRA      3506
          2043  20346                    MFA68    LX3    59-CC.IMP+CC.INCP                                       FCC2135    65
                     43701                        MX7    1                                                       GRA      3508
                          7160000004              SX6    4                                                       GRA      3509
          2044  11773                             BX7    X7*X3                                                   FCC2135    66
                     12667                        BX6    X6+X7       TRD = SHIFT(IM[CCW],59) ! 4                 GRA      3511
                          5160000172 C            SA6    TRD                                                     GRA      3512
          2045  5110000100 C                      SA1    RAT         ULO = R1[RAT(0)]  */ UL ORD                 GRA      3513
                          5130000022 C            SA3    LCV+1                                                   GRA      3514
          2046  5243000100 C                      SA4    RAT+X3      CVO = R1[RAT(LCV(2))]                       GRA      3515
                          10633                   BX6    X3                                                      GRA      3516
                               76770              SX7    B7                                                      GRA      3517
          2047  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
          2050  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
          2051  43600                             MX6    0                                                       GRA      3524
                     54610                        SA6    A1          RAT(0) = 0                                  GRA      3525
                          67661                   SB6    B6-B1                                                   GRA      3526
                               43701              MX7    1                                                       GRA      3527
          2052  5120000160 +                      SA2    SEEA                                                    GRA      3528
                          53346                   SA3    B6+X4                                                   GRA      3529
                               12623              BX6    X2+X3       KD[RCT(CVO)] = 1                            GRA      3530
          2053  54630                             SA6    A3                                                      GRA      3531
                     0400001454 +                 EQ     MFA                                                     GRA      3532
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    80
        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
          2054  0200402054 +             PSC      ROUTINE                                                        GRA      3545
          2055  67451                             SB4    B5-B1                                                   GRA      3546
                     66661                        SB6    B6+B1                                                   GRA      3547
                          0614002073 +            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
          2056  54450                             SA4    A5          I = BI                                      GRA      3553
                     43600                        MX6    0           AVE = 0                                     GRA      3554
                          66400                   SB4    B0          J = 0                                       GRA      3555
                                                                                                                 GRA      3556
          2057  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
          2060  73730                             SX7    X3                                                      GRA      3561
                     36667                        IX6    X6+X7       AVE = AVE + CA[C2W]                         GRA      3562
                          0745002057 +            LT     B4,B5,PSC2  IF J < L                                    GRA      3563
          2061  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
          2063  66400                             SB4    B0          J = 0                                       GRA      3569
                     54450                        SA4    A5          I = BI                                      GRA      3570
                          6130377777              SB3    377777B     MIND = 377777B  */ MIN DIFFERENCE           GRA      3571
          2064  74050                             SX0    A5          IM = BI                                     GRA      3572
                                                                                                                 GRA      3573
          2065  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
          2066  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
          2067  0623002070 +                      GE     B2,B3,PSC4  IF DIFF \ MIND                              GRA      3582
                          74040                   SX0    A4          IM = I                                      GRA      3583
                               66320              SB3    B2          MIND = DIFF                                 GRA      3584
          2070  66441                    PSC4     SB4    B4+B1       J = J + 1                                   GRA      3585
                     55441                        SA4    A4-B1       I = I - 1                                   GRA      3586
                          0745002065 +            LT     B4,B5,PSC3  IF J < L                                    GRA      3587
                                                                                                                 GRA      3588
          2071  53400                             SA4    X0                                                      GRA      3589
                     22605                        LX6    X5                                                      GRA      3590
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    81
        PSC - PROCESS SIMPLE CLASS ( 1 IH )                           PSC 
  
                          22704                   LX7    X4          SWAP( [IM] , [BI] )                         GRA      3591
                               54640              SA6    A4                                                      GRA      3592
          2072  54750                             SA7    A5                                                      GRA      3593
                                                                                                                 GRA      3594
                                        *         CHANGE CLASS BASE TO A SHORT REF                               GRA      3595
                                                                                                                 GRA      3596
          2073  54550                    PSC5     SA5    A5                                                      GRA      3597
                     67661                        SB6    B6-B1                                                   GRA      3598
                          0100002146 +            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
          2074  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
          2075  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
          2076  0451002054 +                      EQ     B5,B1,PSC   IF L = 1                                    GRA      3610
                                                                                                                 GRA      3611
          2077  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
          2100  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
          2101  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
          2102  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
          2103  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
          2104  12671                             BX6    X7+X1       MIT[CCW] = 1  */ PLD, PST                   GRA      3633
                     54610                        SA6    A1                                                      GRA      3634
                          0100002155 +            RJ     ECC         ENTER CON CANIDATE                          GRA      3635
          2105  67551                             SB5    B5-B1       L = L - 1                                   GRA      3636
                     0715002077 +                 GT     B5,B1,PSC6  IF L > 1                                    GRA      3637
                                                                                                                 GRA      3638
                               76610              SX6    B1                                                      GRA      3639
          2106  5160000222 C                      SA6    PMF         PMF = 1       */ INDICATE PLD"S EXIST       GRA      3640
                          0400002054 +            EQ     PSC                                                     GRA      3641
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    82
        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
          2107  0200402107 +             AAD      ROUTINE                                                        GRA      3649
          2110  5110000221 C                      SA1    CAIH        CAIH1 = CAIH                                GRA      3650
                          66251                   SB2    B5+B1                                                   GRA      3651
                               56262              SA2    B6+B2       CAIH2 = RCT(J+1)                            GRA      3652
          2111  0100002132 +                      RJ     SDC         SEARCH FOR CAIH - RCT(J+1)                  GRA      3653
          2112  6130000300                        SB3    3S6         IT = 3        */ SDL, SDS                   GRA      3654
                          0520002117 +            NZ     B2,AAD1     IF REGN " 0   */ DIFF IN A REGISTER         GRA      3655
          2113  5120000221 C                      SA2    CAIH                                                    GRA      3656
                          66251                   SB2    B5+B1                                                   GRA      3657
                               56162              SA1    B6+B2                                                   GRA      3658
          2114  0100002132 +                      RJ     SDC         SEARCH FOR RCT(J+1) - CAIH                  GRA      3659
          2115  6130000200                        SB3    2S6         IT = 2        */ SLD, SST                   GRA      3660
                          0520002117 +            NZ     B2,AAD1     IF REGN " 0                                 GRA      3661
                                                                                                                 GRA      3662
          2116  0100002123 +                      RJ     EDC         ENTER DIFFERENCE CANIDATE                   GRA      3663
                                                                                                                 GRA      3664
                                        *         SETUP *J* AS A SLD OR SDL                                      GRA      3665
                                                                                                                 GRA      3666
          2117  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
          2120  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
          2121  36534                             IX5    X3+X4                                                   GRA      3676
                     54610                        SA6    A1                                                      GRA      3677
                          12752                   BX7    X5+X2                                                   GRA      3678
                               54720              SA7    A2                                                      GRA      3679
          2122  0400002107 +                      EQ     AAD                                                     GRA      3680
  
  
  
                                        **        EDC - ENTER DIFFERENCE CANIDATE IN *RCT* AND ASSIGN A REG      GRA      3682
                                                                                                                 GRA      3683
          2123  0200402123 +             EDC      ROUTINE                                                        GRA      3684
          2124  5110000000 X                      SA1    L.RCT                                                   GRA      3685
                          5140002131 +            SA4    EDCA                                                    GRA      3686
          2125  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
          2126  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
          2127  63410                             SB4    X1                                                      GRA      3694
                     76110                        SX1    B1          INVF = 1                                    GRA      3695
                          0100001060 +            RJ     AIR         ASSIGN A B-REG                              GRA      3696
          2130  67202                             SB2    -B2                                                     GRA      3697
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    83
        AAD - ASSIGN ADDRESS DIFFERENCE TO A REGISTER                 ECD 
  
                     0400002123 +                 EQ     EDC                                                     GRA      3698
                                                                                                                 GRA      3699
          2131                           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
          2132  0200402132 +             SDC      ROUTINE                                                        GRA      3711
          2133  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
          2134  20252                             LX2    -IH.CAP                                                 GRA      3717
                     73110                        SX1    X1                                                      GRA      3718
                          73220                   SX2    X2                                                      GRA      3719
                               37512              IX5    X1-X2                                                   GRA      3720
          2135  43052                             MX0    -IH.CAL                                                 GRA      3721
                     15450                        BX4    -X0*X5                                                  GRA      3722
                          20422                   LX4    IH.CAP                                                  GRA      3723
                               43052              MX0    -CC.H2L                                                 GRA      3724
          2136  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
          2137  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
          2140  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
          2141  0322002144 +                      PL     X2,SDC2     IF ^AC[RCT(RI)]                             GRA      3736
                          0313002144 +            NZ     X3,SDC2     IF RCT(RI+1) " KEY                          GRA      3737
          2142  5044000001                        SA4    A4+1                                                    GRA      3738
                          13374                   BX3    X7-X4                                                   GRA      3739
                               15230              BX2    -X0*X3                                                  GRA      3740
          2143  0302002132 +                      ZR     X2,SDC      IF H2[RCT(RI+2)] = KEY2                     GRA      3741
          2144  67221                    SDC2     SB2    B2-B1       REGN = REGN - 1                             GRA      3742
                     55551                        SA5    A5-B1       RI = RAT(REGN)                              GRA      3743
                          0520002140 +            NZ     B2,SDC1     IF REGN " 0                                 GRA      3744
                                                                                                                 GRA      3745
          2145  0400002132 +                      EQ     SDC                                                     GRA      3746
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    84
        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
          2146  0200402146 +             AFA      ROUTINE                                                        GRA      3757
          2147  5040000100 C                      SA4    RAT+A0                                                  GRA      3758
                          53156                   SA1    B6+X5                                                   GRA      3759
                               73350              SX3    X5          J = CO[BI]                                  GRA      3760
          2150  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
          2151  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
          2152  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
          2153  0400002146 +                      EQ     AFA                                                     GRA      3773
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    85
        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
          2154  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
          2155  0200402155 +             ECC      ROUTINE                                                        GRA      3787
          2156  5110000216 C                      SA1    CL                                                      GRA      3788
                          43063                   MX0    -CA.NOCCL                                               GRA      3789
                               20322              LX3    IH.CAP                                                  GRA      3790
          2157  20041                             LX0    CA.NOCCP                                                GRA      3791
                     6221000001                   SB2    X1+1        I = CL                                      GRA      3792
                               15020              BX0    -X0*X2      N = NOCC[CAW]                               GRA      3793
          2160  0323002161 +                      PL     X3,ECC1     KEY = IHW(0,0,ABS(CON),0)                   GRA      3794
                          14333                   BX3    -X3                                                     GRA      3795
                                                                                                                 GRA      3796
          2161  56462                    ECC1     SA4    B6+B2       C2W = RCT(I+1)                              GRA      3797
                     13634                        BX6    X3-X4                                                   GRA      3798
                          0306002154 +            ZR     X6,ECC0     IF [C2W] = KEY                              GRA      3799
          2162  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
          2163  0521002161 +                      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
          2164  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
          2165  20644                             LX6    CC.INCP                                                 GRA      3811
                     54610                        SA6    A1                                                      GRA      3812
                          76410                   SX4    B1                                                      GRA      3813
                               20467              LX4    CA.CONP                                                 GRA      3814
          2166  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
          2167  43600                             MX6    0                                                       GRA      3819
                     54671                        SA6    A7+B1       RCT(OL+2) = 0                               GRA      3820
                          0400002155 +            EQ     ECC                                                     GRA      3821
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    86
        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     SRI                                                     GRA      3840
                                                  ENDM                                                           GRA      3841
  
  
                                        **        ORS - OUTPUT *RS*                                              GRA      3843
                                        *                                                                        GRA      3844
                                        *         ENTRY  (B5) = I , REGNO OF REGISTER                            GRA      3845
                                                                                                                 GRA      3846
          2170  6120000004               ORS0     SB2    OC.RS                                                   GRA      3847
                          0100000000 X            RJ     SRI         SRI(  RS  MI-4,FL+I )                       GRA      3848
                                                                                                                 GRA      3849
          2171  0200402171 +             ORS      ROUTINE                                                        GRA      3850
          2172  5125000100 C                      SA2    RAT+B5      RW = RAT(I)                                 GRA      3851
                          7145000200              SX4    B5+SO.LOCK                                              GRA      3852
          2173  7166777773                        SX6    B6-4                                                    GRA      3853
                          20420                   LX4    R1.SOP                                                  GRA      3854
                               12646              BX6    X4+X6                                                   GRA      3855
          2174  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
          2175  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
          2176  0314002170 +                      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
          2177  63220                             SB2    X2                                                      GRA      3868
                     0420002170 +                 ZR     B2,ORS0     IF UDI[CAW] = 0  */ CON OR COMPILER TEMP    GRA      3869
                               20203              LX2    59-CA.ACP                                               GRA      3870
          2200  0332002170 +                      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
          2201  0400002170 +                      EQ     ORS0                                                    GRA      3874
                                                                                                                 GRA      3875
          2202                           SUPA     BFMW   CA,(AC,CON,PL)                                          GRA      3876
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    87
        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
          2203  0200402203 +             SUP      ROUTINE                                                        GRA      3884
          2204  7160000000                        SX6    0           BSI = 0                                     GRA      3885
                          5160000000 X            SA6    BSI                                                     GRA      3886
          2205  0100000000 X                      CALL   RTB         GET THE HOLDING BLOCK                       GRA      3887
                                                                                                                 GRA      3888
                                        *         INSERT THE *UXR* AND *MRA* FIELDS IN THE *R2* OF THE *BOS*     GRA      3889
                                                                                                                 GRA      3890
          2206  5130000020 C                      SA3    XRF                                                     GRA      3891
                          5120000232 C            SA2    MRU                                                     GRA      3892
          2207  5110000000 X                      SA1    O.SEQ                                                   GRA      3893
                          5150000015 C            SA5    MRA                                                     GRA      3894
          2210  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
          2211  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
          2212  7110000420                        ALLOC  MOD,16*17   ALLOC( MOD , 4*4*(7+7+3) )                  GRA      3905
          2214  5130000012                        SA3    O.SYM                                                   GRA      3906
                          5140000000 X            SA4    O.RCT                                                   GRA      3907
          2215  63720                             SB7    X2          MB = [O.MOD]                                GRA      3908
                     5203777776                   SA0    X3-1                                                    GRA      3909
                               63440              SB4    X4          (B4) = [O.RCT]                              GRA      3910
          2216  5150000172 C                      SA5    TRD                                                     GRA      3911
                          6160000004              SB6    4           MI = 4        */ STORE INDEX                GRA      3912
          2217  7265777773                        SX6    X5-4                                                    GRA      3913
                          0316002247 +            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
          2220  5110000024 C                      SA1    LUL+1                                                   GRA      3918
                          5120000000 X            SA2    O.IIT                                                   GRA      3919
          2221  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
          2222  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
          2223  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
          2224  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
          2225  5170000230 C                      SA7    N                                                       GRA      3934
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    88
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                          5100000000 X            ALLOC  MOD,X1      ALLOC( MOD , N)                             GRA      3935
          2227  5130000012                        SA3    O.SYM                                                   GRA      3936
                          5140000000 X            SA4    O.RCT                                                   GRA      3937
          2230  63720                             SB7    X2          MB = [O.MOD]                                GRA      3938
                     5203777776                   SA0    X3-1                                                    GRA      3939
                               63440              SB4    X4                                                      GRA      3940
          2231  6160000004                        SB6    4           MI = 4                                      GRA      3941
                          5120000000 X            SA2    O.IIT                                                   GRA      3942
          2232  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
          2234  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
          2235  0100002343 +                      RJ     LIV         INSERT LOAD OF *UL* IN FORMULA              GRA      3951
          2236  5110000230 C                      SA1    N                                                       GRA      3952
                          5120000022 C            SA2    LCV+1                                                   GRA      3953
          2237  6261000004                        SB6    X1+4        MI = N + 4                                  GRA      3954
                          5232000100 C            SA3    RAT+X2                                                  GRA      3955
          2240  20330                             LX3    -RA.R3P                                                 GRA      3956
                     73530                        SX5    X3          J = R3[RAT(LUL(2))]                         GRA      3957
                          0315002244 +            NZ     X5,SUP1     IF J " 0      */ ADDRESS APPENDED           GRA      3958
                                                                                                                 GRA      3959
          2241  76660                             TYPEI  SA,B6,X1    SRI(  SA  MI,MI-4 )                         GRA      3960
          2243  0400002245 +                      EQ     SUP2                                                    GRA      3961
                                                                                                                 GRA      3962
          2244  73431                    SUP1     SX4    X3+B1                                                   GRA      3963
                     63310                        SB3    X1                                                      GRA      3964
                          0100002421 +            RJ     SIV         SIV( J , RF = N )                           GRA      3965
                                                                                                                 GRA      3966
          2245  5110000024 C             SUP2     SA1    LUL+1                                                   GRA      3967
                          6251000000              SB5    X1+                                                     GRA      3968
          2246  0100002171 +                      RJ     ORS         ORS(  RS  MI-4,INVF )                       GRA      3969
  
                                        *         SCAN *RAT* AND SETUP INITIALIZATION CODE FOR THE B-REGISTERS   GRA      3971
                                                                                                                 GRA      3972
          2247  6150000007               SUP4     SB5    7           I = 7         */ REGNO                      GRA      3973
                                                                                                                 GRA      3974
          2250  5115000100 C             SUP5     SA1    RAT+B5                                                  GRA      3975
                          0301002300 +            ZR     X1,SUP10    IF RAT(I) = 0 */ REGISTER NOT ASSIGNED      GRA      3976
                                                                                                                 GRA      3977
                                        *         EVALUATE THE INITIALIZATION FORMULA                            GRA      3978
                                                                                                                 GRA      3979
          2251  10011                             BX0    X1          RW = RAT(I)                                 GRA      3980
                     73510                        SX5    X1          J = R1[RW]                                  GRA      3981
                          5120002202 +            SA2    SUPA                                                    GRA      3982
          2252  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
          2253  0317002255 +                      NZ     X7,SUP5A    IF (R2,R3)[RW] " 0                          GRA      3987
                          11423                   BX4    X2*X3                                                   GRA      3988
          2254  0304002300 +                      ZR     X4,SUP10    IF ^(CON,AC,PL)[CAW]  */ PRELOAD NOT NEC    GRA      3989
                                                                                                                 GRA      3990
          2255  0100002343 +             SUP5A    RJ     LIV         LIV(J)                                      GRA      3991
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    89
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
          2256  7166777773                        SX6    B6-4                                                    GRA      3992
                          5160000230 C            SA6    RR          RR = MI-4                                   GRA      3993
          2257  73500                             SX5    X0          J = R2[RW]                                  GRA      3994
                     0305002265 +                 ZR     X5,SUP6     IF J = 0                                    GRA      3995
          2260  0100002343 +                      RJ     LIV         LIV( J )                                    GRA      3996
          2261  5110000230 C                      SA1    RR          ORN = RR                                    GRA      3997
                          7126777773              SX2    B6-4                                                    GRA      3998
          2262  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
          2265  20052                    SUP6     LX0    RA.R2P-RA.R3P                                           GRA      4003
                     73500                        SX5    X0          J = R3[RW]                                  GRA      4004
                          0305002271 +            ZR     X5,SUP7     IF J = 0                                    GRA      4005
          2266  5110000230 C                      SA1    RR                                                      GRA      4006
                          73401                   SX4    X0+B1                                                   GRA      4007
                               63310              SB3    X1                                                      GRA      4008
          2267  0100002421 +                      RJ     SIV         SIV( J , RF = RR )                          GRA      4009
          2270  0400002277 +                      EQ     SUP9                                                    GRA      4010
                                                                                                                 GRA      4011
                                        *         TRANSFER THE RESULT TO A B-REGISTER , IF NECESSARY             GRA      4012
                                                                                                                 GRA      4013
          2271  7116777773               SUP7     SX1    B6-4                                                    GRA      4014
                          53517                   SA5    B7+X1       R1 = MB + MI-4                              GRA      4015
                               26625              UX6    B2,X5                                                   GRA      4016
          2272  5045000002                        SA4    A5+2        DI = R1 + 2                                 GRA      4017
                          20430                   LX4    59-D.LDP                                                GRA      4018
          2273  0334002275 +                      MI     X4,SUP8     IF LD[DI]                                   GRA      4019
                          7162777740              SX6    B2-OC.IS                                                GRA      4020
          2274  0316002277 +                      NZ     X6,SUP9     IF OC " OC.IS                               GRA      4021
                                                                                                                 GRA      4022
          2275  43700                    SUP8     MX7    0                                                       GRA      4023
                     76660                        TYPEI  SA,B6,X1    SRI(  SA  MI,MI-4 )                         GRA      4024
                                                                                                                 GRA      4025
          2277  0100002171 +             SUP9     RJ     ORS         ORS(  RS  MI-4,FL+I,INV )                   GRA      4026
                                                                                                                 GRA      4027
          2300  67551                    SUP10    SB5    B5-B1       I = I - 1                                   GRA      4028
                     0550002250 +                 NZ     B5,SUP5     IF I " 0                                    GRA      4029
  
                                        *         NOW SETUP PRELOADS FOR THE X-REGISTERS                         GRA      4031
                                                                                                                 GRA      4032
                               43005              MX0    5                                                       GRA      4033
          2301  6150000020                        SB5    20B         I = 20B                                     GRA      4034
                          20073                   LX0    -1          LDREG = 37BS54  */ LD-REG FLAG              GRA      4035
                                                                                                                 GRA      4036
          2302  5155000100 C             SUP12    SA5    RAT+B5      J = RAT(I)    */ *R1* ONLY                  GRA      4037
                          0305002311 +            ZR     X5,SUP14    IF RAT(I) = 0                               GRA      4038
                                                                                                                 GRA      4039
          2303  53154                             SA1    B4+X5       CAW = RCT(J)                                GRA      4040
                     5120002202 +                 SA2    SUPA                                                    GRA      4041
                               11721              BX7    X2*X1                                                   GRA      4042
          2304  0307002311 +                      ZR     X7,SUP14    IF ^(CON,PL,AC)[CAW]  */ PRELD NOT NECESS   GRA      4043
                                                                                                                 GRA      4044
                          0100002343 +            RJ     LIV         LIV( J )                                    GRA      4045
          2305  0330002310 +                      MI     X0,SUP13    IF LDREG < 0  */ RS IS TO A *LD* REG        GRA      4046
                          7116777773              SX1    B6-4                                                    GRA      4047
          2306  76660                             TYPEI  XMT,B6,X1         SRI(  XMT  MI,MI-4 )                  GRA      4048
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    90
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                                                                                                                 GRA      4049
          2310  0100002171 +             SUP13    RJ     ORS         ORS(  RS  MI-4,FL+I,INV )                   GRA      4050
                                                                                                                 GRA      4051
          2311  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
          2312  0336002302 +                      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
          2313  7201777767                        SX0    X1-8        II = L.SEQ-8                                GRA      4060
                          76660                   SX6    B6                                                      GRA      4061
                               20044              LX0    ML.IIP                                                  GRA      4062
          2314  5160000000 X                      SA6    L.MOD       L.MOD = MI                                  GRA      4063
                          7120000004              SX2    4                                                       GRA      4064
          2315  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
          2316  5150000000 X                      SA5    O.SEQ       HBA = O.SEQ                                 GRA      4070
                          0306002322 +            ZR     X6,SUP15    IF NI = 0     */ NO MODS                    GRA      4071
                                                                                                                 GRA      4072
          2317  5100000000 X                      ADDWRD MLT,X1      ADDWRD( MLT , MCW(0,II,NI,4) )              GRA      4073
          2320  43601                             MX6    1                                                       GRA      4074
                     0100000000 X                 CALL   MPB         MERGE MODS WITH *HB*, SQUEEZE AND REWRITE   GRA      4075
                                                                                                                 GRA      4076
          2321  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
          2322  5110000000 X             SUP15    SA1    O.TET                                                   FCC0675   182
                          5120000014 C            SA2    ITL                                                     FCC0675   183
          2323  5130000000 X                      SA3    L.TET                                                   FCC0675   184
                          63220                   SB2    X2          I = ITL                                     FCC0675   185
                               63630              SB6    X3          L = L.TET                                   FCC0675   186
          2324  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
          2325  0426002330 +                      EQ     B2,B6,SUP17 IF ITL = L.TET  */ NO IT. S CREATED         FCC0675   191
                                                                                                                 FCC0675   192
          2326  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
          2327  0726002326 +                      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
          2330  5110000000 X             SUP17    SA1    =XHBI                                                   FCC0675   201
                          6140000004              SB4    4                                                       FCC0675   202
          2331  53554                             SA5    X5+B4       R1 = HBA + 4                                FCC0675   203
                     6130000076                   SB3    OC.TST                                                  FCC0675   204
                               20144              LX1    T.HBNP                                                  FCC0675   205
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    91
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                                                                                                                 FCC0675   206
          2332  26625                    SUP18    UX6    B2,X5       OC = OC[R1]                                 FCC0675   207
                     54554                        SA5    A5+B4       R1 = R1 + 4                                 FCC0675   208
                          0420002336 +            ZR     B2,SUP19    IF OC = OC.EOQ  */ END OF BLOCK             FCC0675   209
          2333  0523002332 +                      NE     B2,B3,SUP18 IF OC " OC.TST                              FCC0675   210
                                                                                                                 FCC0675   211
                          5045777774              SA4    A5-3        R2 = R1 - 3                                 FCC0675   212
          2334  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
          2335  54630                             SA6    A3                                                      FCC0675   217
                     0400002332 +                 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
          2336  67661                    SUP19    SB6    B6-B1       L = L - 1                                   FCC0675   223
                     56456                        SA4    B5+B6                                                   FCC0675   224
                          0767002340 +            LT     B6,B7,SUP20 IF L < ITL                                  FCC0675   225
          2337  15640                             BX6    -X0*X4                                                  FCC0675   226
                     0306002336 +                 ZR     X6,SUP19    IF HBN[TET(L)] = 0  */ NOT MATERIALIZED     FCC0675   227
                                                                                                                 FCC0675   228
          2340  5110000000 X             SUP20    SA1    =XN.GT                                                  FCC0675   229
                          76661                   SX6    B6+B1       L.TET = L + 1                               FCC0675   230
                               37216              IX2    X1-X6                                                   FCC0675   231
          2341  5160000000 X                      SA6    L.TET                                                   FCC0675   232
                          0332002203 +            MI     X2,SUP      N.GT = MIN( N.GT , L.TET )                  FCC0675   233
          2342  54610                             SA6    A1                                                      FCC0675   234
                     0400002203 +                 EQ     SUP                                                     FCC0675   235
  
  
  
                                        **        LIV - LOAD INITIAL VALUE                                       GRA      4116
                                        *                                                                        GRA      4117
                                        *         ENTRY  (X5) = J , *RCT* ORDINAL OF CANIDATE                    GRA      4118
                                                                                                                 GRA      4119
          2343  0200402343 +             LIV      ROUTINE                                                        GRA      4120
          2344  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
          2345  0321002353 +                      PL     X1,LIV2     IF ^CON[CAW]                                GRA      4125
                                                                                                                 GRA      4126
                          6120000055              SB2    OC.S                                                    GRA      4127
          2346  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
          2347  0322002351 +                      PL     X2,LIV1     IF ^MSK[C2W]                                GRA      4133
                          6120000043              SB2    OC.FMA                                                  GRA      4134
          2350  0316002351 +                      NZ     X6,LIV1     IF IN[R1] " 0                               GRA      4135
                          6120000102              SB2    OC.CLR                                                  GRA      4136
                                                                                                                 GRA      4137
          2351  76460                    LIV1     SX4    B6                                                      GRA      4138
                     12646                        BX6    X4+X6                                                   GRA      4139
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    92
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      LIV 
  
                          0100000000 X            RJ     SRI         SRI(  S/FMA/CLR  CA[C2W],MI )               GRA      4140
          2352  0400002343 +                      EQ     LIV                                                     GRA      4141
                                                                                                                 GRA      4142
          2353  20172                    LIV2     LX1    CA.CONP-CA.VCP                                          GRA      4143
                     0331002356 +                 MI     X1,LIV3     IF VC[CAW]                                  GRA      4144
                                                                                                                 GRA      4145
                               66300              SB3    B0          RF = 0                                      GRA      4146
          2354  73451                             SX4    X5+B1                                                   GRA      4147
                     0100002421 +                 RJ     SIV         SIV( J )                                    GRA      4148
          2355  0400002343 +                      EQ     LIV                                                     GRA      4149
                                                                                                                 GRA      4150
                                        *         *VC* - OUPUT *LD* OF INITIAL VALUE                             GRA      4151
                                                                                                                 GRA      4152
          2356  20230                    LIV3     LX2    -IH.RFP                                                 GRA      4153
                     63320                        SB3    X2          R = RF[C2W]                                 GRA      4154
                          0613002361 +            LE     B3,B1,LIV4  IF R @ 1                                    GRA      4155
          2357  76430                             SX4    B3                                                      GRA      4156
                     66300                        SB3    B0                                                      GRA      4157
                          0100002363 +            RJ     OIL         OIL( J = RF[C2W] , RF = 0 )                 GRA      4158
          2360  6136777773                        SB3    B6-4        RF = MI - 4                                 GRA      4159
                                                                                                                 GRA      4160
          2361  73450                    LIV4     SX4    X5                                                      GRA      4161
                     0100002363 +                 RJ     OIL         OIL( J , R )                                GRA      4162
          2362  0400002343 +                      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
          2363  0200402363 +             OIL      ROUTINE                                                        GRA      4172
          2364  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
          2365  20744                             LX7    IH.RFP                                                  GRA      4177
                     15223                        BX2    -X3*X2      CAIH = CAIH[[C2W]                           GRA      4178
                          36772                   IX7    X7+X2       R2W = IHW(0,RF,CAIH[C2W])                   GRA      4179
                               73610              SX6    X1          U = UDI[CAW]                                GRA      4180
          2366  6120000050                        SB2    OC.LD       OC = OC.LD                                  GRA      4181
                          0431002415 +            EQ     B3,B1,OIL5  IF RF = 1                                   GRA      4182
                                                  LX1    59-CA.RAP                                               GRA      4183
          2367  0321002404 +                      PL     X1,OIL2     IF ^RA[CAW]   */ NOT ASSIGNED TO A REG      GRA      4184
                          0530002404 +            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
          2370  6120000074                        SB2    OC.ILD                                                  GRA      4189
                          0306002401 +            ZR     X6,OIL1     IF U = 0      */ COMPILER TEMPORARY         GRA      4190
          2371  5130000000 C                      SA3    O.UDT                                                   FCC1646X    6
                          63360                   SB3    X6                                                      FCC1646X    7
                               53433              SA4    X3+B3       UI = UDT(U)                                 FCC1646X    8
          2372  20450                             LX4    59-UD.CMP                                               FCC1646X    9
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    93
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      OIL 
  
                     0324002376 +                 PL     X4,OIL0     IF ^CM[UI]                                  FCC1646X   10
                                                                                                                 FCC1646X   11
                                        *         *CR*, DO NOT OUTPUT A *ILD* IF THE BASE IS USED IN THE LOOP.   FCC1646X   12
                                                                                                                 FCC1646X   13
                                                  LX4    1+UD.CMP-UD.BMIP                                        FCC1646X   14
                               63331              SB3    X3+B1                                                   FCC1646X   15
          2373  53443                             SA4    B3+X4       UB = UDT(BMI[UI]+1)                         FCC1646X   16
                     5130000005 C                 SA3    UVA                                                     FCC1646X   17
                               63340              SB3    X4                                                      FCC1646X   18
          2374  53333                             SA3    X3+B3       UVW = UVA(WI[UB])                           FCC1646X   19
                     26434                        UX4    B3,X4                                                   FCC1646X   20
                          6133777704              SB3    B3-59                                                   FCC1646X   21
          2375  23333                             LX3    -B3                                                     FCC1646X   22
                     0333002400 +                 MI     X3,OIL1A    IF SHIFT(UVW,59-BN) < 0  */ BASE USED       FCC1646X   23
                                                                                                                 FCC1646X   24
          2376  10311                    OIL0     BX3    X1                                                      FCC1646X   25
                     20350                        LX3    CA.RAP-CA.LXP                                           GRA      4192
                          0323002404 +            PL     X3,OIL2     IF ^LX[CAW]   */ DEAD ON EXIT               GRA      4193
          2377  20371                             LX3    CA.LXP-CA.PSPP                                          GRA      4194
                     0333002404 +                 MI     X3,OIL2     IF PSP[CAW]   */ POST STORE POSSIBLE        GRA      4195
          2400  6120000050               OIL1A    SB2    OC.LD       OC = OC.LD                                  FCC1646X   26
                          0400002404 +            EQ     OIL2                                                    GRA      4197
                                                                                                                 GRA      4198
          2401  20252                    OIL1     LX2    -IH.CAP                                                 GRA      4199
                     5130000014 C                 SA3    ITL                                                     GRA      4200
                               73220              SX2    X2                                                      GRA      4201
          2402  37423                             IX4    X2-X3                                                   GRA      4202
                     0324002404 +                 PL     X4,OIL2     IF CA[C2W] \ ITL  */ CREATED IN THIS LOOP   GRA      4203
          2403  6120000075                        SB2    OC.TLD      OC = OC.TLD                                 GRA      4204
                                                                                                                 GRA      4205
          2404  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
          2405  0321002406 +                      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
          2406  6237767777               OIL3     SB3    X7-1S12                                                 FCC0882     7
                          7110000000              SX1    0           DB = 0                                      FCC0882     8
          2407  0630002411 +                      PL     B3,OIL4     IF IH[R2W] > 1S12  */ LVL2 OR SUCH          FCC0882     9
                          63370                   SB3    X7                                                      FCC0882    10
                               66333              SB3    B3+B3                                                   GRA      4217
          2410  55203                             SA2    A0-B3       WORDB = SYM(IH[R2W])                        GRA      4218
                                                  LX2    -P.FPB                                                  GRA      4219
                     76310                        SX3    B1                                                      GRA      4220
                          11132                   BX1    X3*X2                                                   GRA      4221
                               20125              LX1    D.FPP       FP[DB] = FP[WORDB]                          GRA      4222
                                                                                                                 GRA      4223
          2411  5142000000 X             OIL4     SA4    F.RDT+B2                                                GRA      4224
                          27626                   PX6    B2,X6                                                   GRA      4225
                               56676              SA6    B7+B6       MOD(MI) = TYII(OC,U,0,MI)                   GRA      4226
          2412  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
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    94
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      OIL 
  
                               43700              MX7    0                                                       GRA      4230
          2413  54761                             SA7    A6+B1       MOD(MI+3) = 0                               GRA      4231
                     6166000004                   SB6    B6+4        MI = MI + 4                                 GRA      4232
          2414  0400002363 +                      EQ     OIL                                                     GRA      4233
                                                                                                                 GRA      4234
                                        *         SPECIAL CASE, RF = 1 AND IH = 0                                GRA      4235
                                                                                                                 GRA      4236
          2415  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
          2416  0312002411 +                      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
          2417  0400002411 +                      EQ     OIL4                                                    GRA      4244
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    95
        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
          2420  73620                    SIV0     SX6    X2                                                      GRA      4254
                     76730                        SX7    B3                                                      GRA      4255
                          0100002466 +            RJ     OSI         OSI(  STT  R,RF,CAIH,H2 )                   GRA      4256
                                                                                                                 GRA      4257
          2421  0200402421 +             SIV      ROUTINE                                                        GRA      4258
          2422  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
          2423  15117                             BX1    -X7*X1      CAIH = CAIH[C2W]                            GRA      4263
                     63220                        SB2    X2          H2 = H2[CCW]                                GRA      4264
                          0420002420 +            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
          2424  66222                             SB2    B2+B2                                                   GRA      4269
                     22611                        LX6    B1,X1                                                   GRA      4270
                          55302                   SA3    A0-B2       WORDB2 = SYM(H2)                            GRA      4271
                               63260              SB2    X6                                                      GRA      4272
          2425  0420002433 +                      ZR     B2,SIV1     IF IH[C2W] = 0  */ NEG RELOC NOT ALLOWED    FCC0645    21
                          55402                   SA4    A0-B2       WORDB = SYM(IH[C2W])                        GRA      4273
                               12634              BX6    X3+X4                                                   GRA      4274
          2426  20673                             LX6    59-P.FPB                                                GRA      4275
                     0336002433 +                 MI     X6,SIV1     IF FP[WORDB] ! FP[WORDB2]                   GRA      4276
                               20626              LX6    1+P.FPB+58-P.RL                                         GRA      4277
          2427  13734                             BX7    X3-X4                                                   GRA      4278
                     0326002420 +                 PL     X6,SIV0     IF ^( COM[WORDB] ! COM[WORDB2] )            GRA      4279
          2430  5140002465 +                      SA4    SIVA                                                    GRA      4280
                          11647                   BX6    X4*X7                                                   GRA      4281
          2431  0306002420 +                      ZR     X6,SIV0     IF (RL,RB)[WORDB] = (RL,RB)[WORDB2]         GRA      4282
                                                                                                                 GRA      4283
                          43300                   MX3    0           C = 0                                       GRA      4284
          2432  0400002434 +                      EQ     SIV2                                                    GRA      4285
                                                                                                                 GRA      4286
          2433  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
          2434  43700                    SIV2     MX7    0           F = 0                                       GRA      4291
                     76600                        SX6    B0          H2 = 0                                      GRA      4292
                          0100002466 +            RJ     OSI         OSI(  STT  R,,CAIH )                        GRA      4293
          2435  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
          2436  0100002466 +                      RJ     OSI         OSI(  STT  R,,H2[CCW] )                     GRA      4297
          2437  13625                             BX6    X2-X5                                                   FCC0912     9
                     7116777767                   SX1    B6-8        RJ = MI - 8   */ OPERANDS OF *IS*           FCC0912    10
          2440  7126777773                        SX2    B6-4        RK = MI - 4                                 FCC0912    11
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    96
        SIV - SET INITIAL VALUE                                       SIV 
  
                                         #DAL     IFNE   .DAL,0                                                  FCC0912    12
                          0306002446 +            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
          2441  6120000060                        SB2    OC.SA                                                   FCC0912    18
                          0315002443 +            NZ     X5,SIV2A    IF FPL2 " 0   */ RJ IS FP&L2                FCC0912    19
          2442  73410                             SX4    X1          J = RJ                                      FCC0912    20
                     76160                        SX1    B6          RJ = MI                                     FCC0912    21
                          0400002444 +            EQ     SIV2B                                                   FCC0912    22
          2443  73420                    SIV2A    SX4    X2          J = RK        */ RK IS FP&L2                FCC0912    23
                     76260                        SX2    B6          RK = MI                                     FCC0912    24
          2444  76660                    SIV2B    TYPEI  B2,B6,X4    SRI(  SA  MI,J )                            FCC0912    25
                                         #DAL     ENDIF                                                          FCC0912    26
                                                                                                                 FCC0912    27
          2446  76660                    SIV2C    TYPEI  IS,B6,X1,X2 SRI(  IS  MI,RJ,RK )                        FCC0912    28
          2451  0303002455 +                      ZR     X3,SIV3     IF C = 0                                    GRA      4301
                                                                                                                 GRA      4302
                          10133                   BX1    X3                                                      GRA      4303
          2452  7176777773                        SX7    B6-4        F = MI - 4                                  GRA      4304
                          43600                   MX6    0           H2 = 0                                      GRA      4305
          2453  0100002466 +                      RJ     OSI         OIS(  STT  R,F,C )                          GRA      4306
          2454  0430002421 +                      ZR     B3,SIV      IF RF = 0                                   GRA      4307
                                                                                                                 GRA      4308
          2455  0430002461 +             SIV3     ZR     B3,SIV4     IF RF = 0                                   GRA      4309
                          7126777773              SX2    B6-4                                                    GRA      4310
          2456  76330                             SX3    B3                                                      GRA      4311
                     76660                        TYPEI  IA,B6,X2,X3 SRI(  IA  MI,MI-4,RF )                      GRA      4312
                                                                                                                 GRA      4313
          2461  7126777773               SIV4     SX2    B6-4                                                    GRA      4314
                          76660                   TYPEI  SA,B6,X2    SRI(  SA  MI,MI-4 )                         GRA      4315
          2464  0400002421 +                      EQ     SIV                                                     GRA      4316
                                                                                                                 GRA      4317
          2465                           SIVA     BSS    0                                                       GRA      4318
                                                  ECHO   2,X=(RL,RB)                                             GRA      4319
                                                  POS    P.X+L.X                                                 GRA      4320
                                                  VFD    L.X/-0                                                  GRA      4321
                                0000              VFD    *P/0                                                    GRA      4322
  
  
  
                                        **        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
          2466  0200402466 +             OSI      ROUTINE                                                        GRA      4331
          2467  20744                             LX7    IH.RFP                                                  GRA      4332
                     12717                        BX7    X1+X7                                                   GRA      4333
                          20622                   LX6    R1.H2P                                                  GRA      4334
                               76460              SX4    B6                                                      GRA      4335
          2470  12646                             BX6    X4+X6                                                   GRA      4336
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    97
        SIV - SET INITIAL VALUE                                       OSI 
  
                     22417                        LX4    B1,X7                                                   GRA      4337
                          63240                   SB2    X4                                                      GRA      4338
                               55402              SA4    A0-B2       WORDB = SYM(IH)                             GRA      4339
          2471  76511                             R=     X5,10B-T.LAB                                            FCC0777     4
                                   2              ERRMI  10B-T.LAB   CARRY ADDEND                                FCC0777     5
                     20570                        LX5    P.TYP                                                   FCC0777     6
                          36145                   IX1    X4+X5                                                   FCC0777     7
                               21173              AX1    59                                                      FCC0777     8
          2472  15441                             BX4    -X1*X4      IF( TYP[WORDB] \ T.LAB ) THEN WORDB = 0     FCC0777     9
                     76510                        SX5    B1                                                      GRA      4340
                                                  LX4    -P.FPB                                                  GRA      4341
                          11154                   BX1    X5*X4                                                   GRA      4342
                               20473              LX4    P.FPB-P.LCM                                             FCC0912    31
          2473  11514                             BX5    X1*X4       FPL2 = FP[WORDB] & LCM[WORDB]               FCC0912    32
                     5140000052 X                 SA4    F.RDT+OC.STT                                            GRA      4343
                               20125              LX1    D.FPP       FP[DB] = FP[WORDB]                          GRA      4344
          2474  6120000052                        SB2    OC.STT                                                  GRA      4345
                          27626                   PX6    B2,X6                                                   GRA      4346
                               56676              SA6    B7+B6       MOD(MI) = TYII(OC.STT,0,H2,MI)              GRA      4347
          2475  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
                               12614              BX6    X1+X4                                                   GRA      4349
          2476  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
          2477  6166000004                        SB6    B6+4        MI = MI + 4                                 GRA      4353
                          0400002466 +            EQ     OSI                                                     GRA      4354
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    98
        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
          2500  0200402500 +             SXC      ROUTINE                                                        GRA      4362
          2501  5110000233 C                      SA1    NPS                                                     GRA      4363
                          5120000032 C            SA2    N.ENL                                                   GRA      4364
          2502  0301002536 +                      ZR     X1,SXC7     IF NPS = 0                                  GRA      4365
                          5140000033 C            SA4    EPSI                                                    FCC0985    15
          2503  37324                             IX3    X2-X4                                                   FCC0985    16
                     0303002536 +                 ZR     X3,SXC7     IF N.ENL = EPSI  */ NO EXIT NODE POST ST"S  FCC0985    17
                                                                                                                 FCC0985    18
                               73011              SX0    X1+B1                                                   FCC0985    19
          2504  42102                             IX1    X0*X2                                                   GRA      4373
                     7211000024                   ALLOC  PSI,X1+20   ALLOC( PSI , N.ENL*(NPS+1) + 20 )           GRA      4374
          2506  5130000000 C                      SA3    O.UDT                                                   GRA      4375
                          5140000000 X            SA4    O.RCT                                                   GRA      4376
          2507  5150000000 X                      SA5    O.RXI                                                   GRA      4377
                          63626                   SB6    X2+B6       PO = O.PSI + OLD(L.PSI)                     GRA      4378
                               63720              SB7    X2                                                      GRA      4379
          2510  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
          2511  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
          2512  20502                             LX5    59-E.ALLPP                                              GRA      4391
                     0325002522 +                 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
          2513  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
          2514  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
          2515  6122777704                        SB2    B2-59                                                   GRA      4403
                          23622                   LX6    -B2,X2                                                  GRA      4404
          2516  0326002521 +                      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
          2517  73440                             SX4    X4                                                      GRA      4411
                     20466                        LX4    PS.REGP                                                 GRA      4412
                          15210                   BX2    -X0*X1      CAIH = CAIH[RCT(J+1)]                       GRA      4413
                               36647              IX6    X4+X7                                                   GRA      4414
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE    99
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
          2520  12762                             BX7    X6+X2                                                   GRA      4415
                     54771                        SA7    A7+B1       PI = PI + 1;  [PI] = PSI(REGNO,K,CAIH)      GRA      4416
                                                                                                                 GRA      4417
          2521  65201                    SXC4     SB2    A0-B1                                                   GRA      4418
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      4419
                          0520002513 +            NZ     B2,SXC3     IF I > 0                                    GRA      4420
                                                                                                                 GRA      4421
                                        *         SETUP HEADER WORD, AND POINT *BIT* ENTRY TO *PSI* LIST.        GRA      4422
                                                                                                                 GRA      4423
          2522  75676                    SXC5     SX6    A7-B6       N = PI - PO                                 GRA      4424
                     0306002533 +                 ZR     X6,SXC6     IF N = 0      */ NO STORES TO THIS BLOCK    GRA      4425
                                                                                                                 GRA      4426
                               43755              MX7    -E.BIL                                                  GRA      4427
          2523  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
          2524  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
          2525  15723                             BX7    -X3*X2      OPI = PII[BIW]                              GRA      4435
                     0307002531 +                 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
          2526  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
          2527  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
          2530  0520002527 +                      NZ     B2,SXC5A    IF J " 0                                    GRA      4449
                                                                                                                 GRA      4450
          2531  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
          2532  12724                             BX7    X2+X4       PII[BIT(BN)] = PO - PSI                     GRA      4455
                     20744                        LX7    BI.PIIP                                                 GRA      4456
                          5072000000              SA7    A2+                                                     GRA      4457
                                                                                                                 GRA      4458
          2533  5110000000 X             SXC6     SA1    BVL                                                     GRA      4459
                          63666                   SB6    B6+X6       PO = PO + N                                 GRA      4460
                               63211              SB2    X1+B1                                                   GRA      4461
          2534  56552                             SA5    B5+B2       RI = RB + BVL+1                             GRA      4462
                     0315002511 +                 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
          2535  5160000000 X                      SA6    L.PSI                                                   GRA      4466
                                                                                                                 GRA      4467
                                                  TRACE  SXC,PSI                                                 GRA      4468
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   100
        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
          2536  5110000000 X             SXC7     SA1    =XOPT2                                                  FCC1491X    5
                          0301002500 +            ZR     X1,SXC      IF OPT2 = 0                                 FCC1491X    6
                                                                                                                 FCC1491X    7
          2537  5150000000 X                      SA5    O.RCT                                                   FCC1491X    8
                          5110000164 C            SA1    LCT                                                     GRA      4476
          2540  5120000000 C                      SA2    O.UDT                                                   GRA      4477
                          5130000004 C            SA3    LUV                                                     GRA      4478
          2541  5140000007 C                      SA4    LEA                                                     GRA      4479
                          63421                   SB4    X2+B1       (B4) = [O.UDT] + 1                          GRA      4480
                               63210              SB2    X1                                                      GRA      4481
          2542  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
          2543  0520002545 +                      NZ     B2,SXC9     IF LCT " 0    */ NO USER EXT REFS           GRA      4486
                          0400002500 +            EQ     SXC                                                     FCC0675   236
                                                                                                                 GRA      4488
          2544  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
          2545  5055777774               SXC9     SA5    A5-3        CI = CI - 3                                 GRA      4494
                          0305002556 +            ZR     X5,SXC11    IF [CI] = 0   */ END OF TABLE               FCC0914     5
          2546  63250                             SB2    X5          K = UDI[CI]                                 GRA      4496
                     0420002545 +                 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
          2547  20551                             LX5    59-CA.KDP                                               GRA      4500
                     26724                        UX7    B2,X4       B = BITN[U2]                                GRA      4501
                          0335002554 +            MI     X5,SXC10    IF KD[CI]     */ USELESS INCREMENT          GRA      4502
                                                                                                                 GRA      4503
          2550  20526                             LX5    CA.KDP-CA.ACP                                           GRA      4504
                     0335002544 +                 MI     X5,SXC8     IF AC[CI]                                   GRA      4505
                               20571              LX5    CA.ACP-CA.RAP                                           GRA      4506
          2551  0325002544 +                      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
          2552  0325002545 +                      PL     X5,SXC9     IF ^DEF[CI]                                 FCC0392   138
                          20573                   LX5    CA.DEFP-CA.PSPP                                         FCC0392   139
          2553  0325002544 +                      PL     X5,SXC8     IF ^PSP[CI]   */ STORED IN THE LOOP         FCC0392   140
                          0400002545 +            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
          2554  53246                    SXC10    SA2    B6+X4                                                   GRA      4521
                     22120                        LX1    B2,X0                                                   GRA      4522
                          15621                   BX6    -X1*X2      LEA(W) = LEA(W) & ^SHIFT(1,B)               GRA      4523
                               54620              SA6    A2                                                      GRA      4524
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   101
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
          2555  0400002545 +                      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
          2556  5110000006 C             SXC11    SA1    LXA                                                     FCC0914    10
                          5120000000 X            SA2    BVL                                                     FCC0914    11
          2557  5150000011 C                      SA5    SVA                                                     FCC0914    12
                          63321                   SB3    X2+B1       VL = BVL + 1                                FCC0914    13
                               66200              SB2    B0          I = 0                                       FCC0914    14
          2560  53110                             SA1    X1                                                      FCC0914    15
                     63750                        SB7    X5                        (B7) = SVA                    FCC0914    16
                                                                                                                 FCC0914    17
          2561  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
          2562  54111                             SA1    A1+B1                                                   FCC0914    22
                     0723002561 +                 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
          2563  66200                             SB2    B0          I = 0                                       FCC0914    29
                     7100000003                   SX0    3           BO = 4 - 1    */ UDT OFFSET                 FCC0914    30
                                                                                                                 FCC0914    31
          2564  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
          2565  47677                             CX6    X7                                                      FCC0914    36
                     0306002576 +                 ZR     X6,SXC17    IF COUNT(VD) = 0                            FCC0914    37
                                                                                                                 FCC0914    38
          2566  0100002600 +             SXC14    RJ     FLB         J = FLB(VD)                                 FCC0914    39
          2567  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
          2570  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
          2571  0323002574 +                      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
          2572  26664                             UX6    B6,X4       B = BITN[U2]                                FCC0914    52
                     6166777704                   SB6    B6-59                                                   FCC0914    53
                               23665              LX6    -B6,X5                                                  FCC0914    54
          2573  0336002575 +                      MI     X6,SXC16    IF SHIFT(SVW,59-B) < 0  */ BASE MEM REFED   FCC0914    55
                                                                                                                 FCC0914    56
          2574  15221                    SXC15    BX2    -X1*X2      LE(I) = LE(I) & ^SHIFT(1,J)                 FCC0914    57
                                                                                                                 FCC0914    58
          2575  0317002566 +             SXC16    NZ     X7,SXC14    IF VD " 0                                   FCC0914    59
                          10622                   BX6    X2                                                      FCC0914    60
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   102
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
                               54620              SA6    A2                                                      FCC0914    61
                                                                                                                 FCC0914    62
          2576  7200000170               SXC17    SX0    X0+120      BO = BO + 120                               FCC0914    63
                          6122000001              SB2    B2+1        I = I + 1                                   FCC0914    64
          2577  0723002564 +                      LT     B2,B3,SXC13 IF I < VL                                   FCC0914    65
                                                                                                                 FCC0914    66
                          0400002500 +            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
          2600  0200402600 +             FLB      ROUTINE                                                        FCC0914    77
          2601  43514                             MX5    12                                                      FCC0914    78
                     11657                        BX6    X5*X7       T12 = MASK(12) & WORD                       FCC0914    79
                          0306002604 +            ZR     X6,FLB1     IF T12 = 0                                  FCC0914    80
          2602  20660                             LX6    -12                                                     FCC0914    81
                     6150000073                   SB5    59                                                      FCC0914    82
                               27606              PX6    X6                                                      FCC0914    83
          2603  24566                             NX5    B6,X6                                                   FCC0914    84
                     67556                        SB5    B5-B6       SC = 59-NORMC(PACK(0,SHIFT(T12,-12)))       FCC0914    85
                          0400002600 +            EQ     FLB                                                     FCC0914    86
                                                                                                                 FCC0914    87
          2604  27607                    FLB1     PX6    X7                                                      FCC0914    88
                     6150000057                   SB5    47                                                      FCC0914    89
                               24566              NX5    B6,X6                                                   FCC0914    90
          2605  67556                             SB5    B5-B6       SC = 47-NORMC(PACK(0,WORD))                 FCC0914    91
                     0400002600 +                 EQ     FLB                                                     FCC0914    92
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   103
        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
                                         CL       DEFINE 15          CODE LENGTH                                 GRA      4588
                                         PC       DEFINE 2           PARCEL COUNT                                GRA      4589
                                                  DEFINE 18                                                      GRA      4590
                                         LEN      DEFINE 18          LENGTH OF SAVED CODE IN *PIT*               GRA      4591
                                                                                                                 GRA      4592
                                         CLPC     DEQU   PC,17       COMBINATION FIELD                           GRA      4593
                                                                                                                 GRA      4594
          2606                           CLBA     BFMW   CA,(VC,PSP,LX,DEF)                                      FCC0535    12
          2607                           CLBB     BFMW   CA,(VC,IA,RF)                                           FCC0651     5
                                                                                                                 GRA      4596
          2610  0200402610 +             CLB      ROUTINE                                                        GRA      4597
          2611  5110000205 C                      SA1    NAA                                                     GRA      4598
                          5120000173 C            SA2    NXC                                                     GRA      4599
          2612  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
          2613  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
          2614  5150000164 C                      SA5    LCT                                                     GRA      4610
                          5140000000 X            SA4    O.RCT                                                   GRA      4611
          2615  5110002607 +                      SA1    CLBB                                                    FCC0651     7
                          0305002631 +            ZR     X5,CLB1     IF LCT = 0    */ NO CANIDATES               GRA      4613
          2616  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
          2617  5055777774               AUM1     SA5    A5-3        CI = CI - 3                                 GRA      4619
                          0305002631 +            ZR     X5,CLB1     IF [CI] = 0   */ END OF *RCT*               GRA      4620
          2620  16651                             BX6    -X1+X5                                                  GRA      4621
                     0316002617 +                 NZ     X6,AUM1     IF ^(VC,IA,RF)[CI]                          FCC0651     8
          2621  5045000002                        SA4    A5+2        CCW = CI + 2                                GRA      4623
                                                  LX4    -CC.REG1P                                               FCC1626X    5
                          15640                   BX6    -X0*X4                                                  FCC1626X    6
                               20430              LX4    CC.REG1P-CC.INCP                                        FCC1626X    7
          2622  21603                             AX6    3                                                       FCC1626X    8
                     53346                        SA3    B6+X4       CJ = RCT(INC[CCW])                          GRA      4625
                                                  LX3    59-CA.RAP                                               GRA      4626
                          0303002617 +            ZR     X3,AUM1     IF [CJ] = 0   */ INC[CCW] = 0               GRA      4627
                                                  LX5    59-CA.RAP                                               FCC0651     9
          2623  0325002630 +                      PL     X5,AUM3     IF ^RA[CI]    */ INC VAR NOT IN A B-REG     FCC0651    10
                                                  LX5    1+CA.RAP                                                FCC0651    11
                          0316002630 +            NZ     X6,AUM3     IF REG1[CCW] \ 20B  */ INC VAR IN AN X-REG  FCC1626X    9
          2624  20445                             LX4    CC.INCP+59-CC.I2P                                       GRA      4628
                     0334002627 +                 MI     X4,AUM2     IF I2[CCW]                                  GRA      4629
          2625  0323002627 +                      PL     X3,AUM2     IF ^RA[CJ]                                  GRA      4630
                          5033000002              SA3    A3+2        CCWJ = CJ + 2                               GRA      4631
                                                  LX3    -CC.REG1P                                               GRA      4632
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   104
        CLB - CODE LOOP BODY                                          CLB 
  
          2626  15630                             BX6    -X0*X3                                                  GRA      4633
                     21603                        AX6    3                                                       GRA      4634
                          0306002617 +            ZR     X6,AUM1     IF REG1[CCWJ] < 7  */ INC IN A B-REG        GRA      4635
                                                                                                                 GRA      4636
          2627  12675                    AUM2     BX6    X7+X5       EU[CI] = 1                                  GRA      4637
                     54650                        SA6    A5                                                      GRA      4638
                          0400002617 +            EQ     AUM1                                                    GRA      4639
                                                                                                                 FCC0651    12
                                         AUM3     LX3    1+CA.RAP                                                FCC0651    13
          2630  12673                             BX6    X7+X3       EU[CJ] = 1    */ FORCE INC VAL TO BE *EU*   FCC0651    14
                     54630                        SA6    A3                                                      FCC0651    15
                          0400002617 +            EQ     AUM1                                                    FCC0651    16
  
  
                                        *         INITIALIZE FLAGS                                               GRA      4641
                                                                                                                 GRA      4642
          2631  76611                    CLB1     SX6    B1+B1                                                   GRA      4643
                     43700                        MX7    0                                                       GRA      4644
                          5160000000 X            SA6    BSI         BSI = 2                                     GRA      4645
          2632  5170000232 C                      SA7    MRU         MRU = 0       */ MACHINE REGS USED          GRA      4647
                          5170000000 X            SA7    L.PIT       L.PIT = 0                                   GRA      4648
          2633  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
          2634  5150000000 X                      SA5    O.RCT                                                   GRA      4654
                          5130000173 C            SA3    NXC                                                     GRA      4655
          2635  5110002606 +                      SA1    CLBA                                                    GRA      4656
                          66700                   SB7    B0          NPS = 0                                     GRA      4657
                               63650              SB6    X5                                                      GRA      4658
          2636  0313002637 +                      NZ     X3,CLB2     IF NXC " 0                                  GRA      4659
                          7120000007              SX2    7           I = 7                                       GRA      4660
                                                                                                                 GRA      4661
          2637  5252000100 C             CLB2     SA5    RAT+X2      J = R1[RAT(I)]                              GRA      4662
                          0305002643 +            ZR     X5,CLB3     IF RAT(I) = 0                               GRA      4663
          2640  53456                             SA4    B6+X5       CAW = RCT(J)                                GRA      4664
                     16641                        BX6    -X1+X4                                                  GRA      4665
                          0316002643 +            NZ     X6,CLB3     IF ^(VC[CAW]&PSP[CAW]&LX[CAW]&DEF[CAW])     FCC0535    13
                                                                                                                 GRA      4667
          2641  73350                             SX3    X5                                                      GRA      4668
                     20222                        LX2    18                                                      GRA      4669
                          12723                   BX7    X2+X3                                                   GRA      4670
                               20252              LX2    -18                                                     GRA      4671
          2642  5177000234 C                      SA7    PST+B7      PST(NPS) = SHIFT(I,18) ! J                  GRA      4672
                          6177000001              SB7    B7+1        NPS = NPS + 1                               GRA      4673
                                                                                                                 GRA      4674
          2643  7222777776               CLB3     SX2    X2-1        I = I - 1                                   GRA      4675
                          0312002637 +            NZ     X2,CLB2     IF I " 0                                    GRA      4676
                                                                                                                 GRA      4677
          2644  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
          2645  7160000004               CLB4     SX6    4           L.TXT = 4                                   GRA      4683
                          5160000000 X            SA6    L.TXT                                                   GRA      4684
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   105
        CLB - CODE LOOP BODY                                          CLB 
  
          2646  0100000000 X                      CALL   RTB         READ BLOCK IN                               GRA      4685
          2647  5110000000 X                      SA1    L.SEQ                                                   GRA      4686
                          0100001245 +            RJ     SLW         SAVE LINK WORDS                             GRA      4690
                                                                                                                 GRA      4691
          2650  0100003012 +                      CALL   IRA         INSERT REGISTER ASSIGNMENTS                 GRA      4692
                                                                                                                 FCC2051     9
          2651  5110000000 X                      SA1    L.TXT                                                   FCC2051    10
                          5120000250 C            SA2    DTL                                                     FCC2051    11
          2652  37312                             IX3    X1-X2                                                   FCC2051    12
                     0313002656 +                 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
          2653  5110000000 X                      SA1    O.BST                                                   FCCA509X   31
                          5120000000 X            SA2    BSI                                                     FCCA509X   32
          2654  43600                             MX6    0                                                       FCCA509X   33
                     36312                        IX3    X1+X2                                                   FCCA509X   34
                          53631                   SA6    X3+B1       BST(BSI+1) = 0                              FCCA509X   35
          2655  0400002702 +                      EQ     CLB10                                                   FCCA509X   36
                                                                                                                 FCCA509X   37
          2656                           CLB4A    BSS    0                                                       FCCA509X   38
                                                                                                                 FCC2051    14
                                                  TRACE  CLB,RLIST,SEQ                                           GRA      4693
                                                  TRACE  CLB,RLIST                                               GRA      4694
                                                                                                                 GRA      4695
          2656  0100001256 +                      RJ     RLW         RESTORE LINK WORDS                          GRA      4696
                                                                                                                 GRA      4697
          2657  0100003646 +                      CALL   CUC         COLLECT USES COUNTS                         GRA      4698
                                                                                                                 GRA      4699
                                         #IWT     IFEQ   .CPU,74                                                 GRA      4700
                                         #IWT     IFNE   .IWT,0                                          ?IWT    GRA      4701
                                                                                                                 GRA      4702
                                        *         IF A 6600 AND IWTIME " 0, THEN CHECK LOOP LENGTH AND SET STACK GRA      4703
                                        *         FLAG IF IT FITS.  NOTE THAT BECAUSE OF PARCEL FAULTS THE       GRA      4704
                                        *         LOOP COULD BE CODED BY *MCG* AND NOT FIT *INSTACK*.            GRA      4705
                                                                                                                 GRA      4706
                                                  SA1    N.EBB                                                   GRA      4707
                                                  SX6    X1-1                                                    GRA      4708
                                                  NZ     X6,CLS3     IF N.EBB " 1                                GRA      4709
                                                  SA5    O.TXT                                                   GRA      4710
                                                  MX1    -D.SZL                                                  GRA      4711
                                                  SA4    L.TXT                                                   GRA      4712
                                                  LX1    D.SZP                                                   GRA      4713
                                                  SX2    B1+B1                                                   GRA      4714
                                                  SX7    29                                                      GRA      4715
                                                  LX2    D.SZP       LEN = 2                                     GRA      4716
                                                  IX6    X4+X5                                                   GRA      4717
                                                  LX7    D.SZP                                                   GRA      4718
                                                  SA4    X6-2        DI = O.TXT + L.TXT - 2                      GRA      4719
                                                  SB4    4                                                       GRA      4720
                                                                                                                 GRA      4721
                                         CLS1     SA4    A4-B4       DI = DI - 4                                 GRA      4722
                                                  LX4    59-D.JPP                                                GRA      4723
                                                  PL     X4,CLS1     IF ^JP[DI]    */ NOT TERMINAL JUMP          GRA      4724
                                                                                                                 GRA      4725
                                         CLS2     SA4    A4-B4       DI = DI - 4                                 GRA      4726
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   106
        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
          2660  5130000173 C                      SA3    NXC                                                     GRA      4742
                          0100002765 +            RJ     CIS         SET THE PARCEL COUNT AND CODE THE SEQUENCE  GRA      4743
          2661  0316002720 +                      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
          2662  0305002670 +                      ZR     X5,CLB9     IF MRA = 0    */ NO REGS AVAIL              GRA      4749
                                                                                                                 GRA      4750
                          5110000232 C            SA1    MRU                                                     GRA      4751
          2663  5120000000 X                      SA2    O.TXT                                                   GRA      4752
                          5130000000 X            SA3    L.TXT                                                   GRA      4753
          2664  5252000007                        SA5    X2+7        LI = O.TXT + 7                              GRA      4754
                          6140000004              SB4    4                                                       GRA      4755
          2665  6233777767                        SB3    X3-8        I = L.TXT - 8                               GRA      4756
                          76010                   SX0    B1                                                      GRA      4757
                               10611              BX6    X1                                                      GRA      4758
                                                                                                                 GRA      4759
          2666  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
          2667  54554                             SA5    A5+B4       LI = LI + 4                                 GRA      4764
                     0530002666 +                 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
          2670  5110000036 C             CLB9     SA1    PL                                                      GRA      4770
                          5120000000 X            SA2    L.PIT                                                   GRA      4771
          2671  5140000000 X                      SA4    =XPC                                                    GRA      4772
                          7130000000              SX3    0           CODEL = 0                                   GRA      4773
          2672  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
          2673  54610                             SA6    A1                                                      GRA      4778
                     20346                        LX3    BS.CLP                                                  GRA      4779
                          20444                   LX4    BS.PCP                                                  GRA      4780
                               12334              BX3    X3+X4                                                   GRA      4781
          2674  5140000000 X                      SA4    BSI                                                     GRA      4782
                          36630                   IX6    X3+X0                                                   GRA      4783
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   107
        CLB - CODE LOOP BODY                                          CLB 
  
                               63551              SB5    X5+B1                                                   GRA      4784
          2675  53645                             SA6    B5+X4       BST(BSI+1) = BSW(CL,PC,LEN)                 GRA      4785
                     43700                        MX7    0                                                       GRA      4786
                          5110000173 C            SA1    NXC                                                     GRA      4787
          2676  0311002702 +                      NZ     X1,CLB10    IF NXC " 0    */ LOCKED X-MODE              GRA      4788
                          5110000205 C            SA1    NAA                                                     FCC0603    40
          2677  0311002702 +                      NZ     X1,CLB10    IF NAA " 0    */ LOCKED A-REGS              FCC0603    41
                                                                                                                 GRA      4789
                          5170000036 C            SA7    PL          PL = 0                                      GRA      4790
          2700  10466                             BX4    X6                                                      GRA      4791
                     55161                        SA1    A6-B1       BAW = BST(BSI)                              GRA      4792
                          0100002777 +            RJ     WSC         DUMP CODE                                   GRA      4793
          2701  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
          2702  5110000000 X             CLB10    SA1    BSI                                                     GRA      4799
                          5120000000 X            SA2    L.BST                                                   GRA      4800
          2703  7261000002                        SX6    X1+2        BSI = BSI + 2                               GRA      4801
                          7232777776              SX3    X2-1                                                    GRA      4802
          2704  37763                             IX7    X6-X3                                                   GRA      4803
                     54610                        SA6    A1                                                      GRA      4804
                          0337002645 +            MI     X7,CLB4     IF BSI < L.BST - 1                          GRA      4805
                                                                                                                 GRA      4806
          2705  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
          2706  5110000000 X                      SA1    L.PIT                                                   FCC0603    42
                          0301002610 +            ZR     X1,CLB      IF L.PIT = 0  */ NO SAVED CODE              FCC0603    43
          2707  76611                             SX6    B1+B1       BSI = 2                                     GRA      4814
                     43700                        MX7    0                                                       GRA      4815
                          5170000036 C            SA7    PL          PL = 0                                      GRA      4816
                                                                                                                 GRA      4817
          2710  5120000000 X             CLB11    SA2    O.BST                                                   GRA      4818
                          36762                   IX7    X6+X2                                                   GRA      4819
                               53170              SA1    X7          BAW = BST(BSI)                              GRA      4820
          2711  53471                             SA4    X7+B1       BSW = BST(BSI+1)                            GRA      4821
                     0301002716 +                 ZR     X1,CLB13    IF BAW = 0    */ END OF *BST*               GRA      4822
          2712  0304002715 +                      ZR     X4,CLB12    IF BST(BSI+1) = 0 */NOT CODED               FCCA509X   39
                          5160000000 X            SA6    BSI                                                     FCCA509X   40
          2713  0100002777 +                      RJ     WSC         WRITE SAVED CODE TO *BLK*                   GRA      4828
          2714  5110000000 X                      SA1    BSI                                                     GRA      4829
                          7261000000              SX6    X1+                                                     GRA      4830
          2715  7266000002               CLB12    SX6    X6+2        BSI = BSI + 2                               GRA      4831
                          0400002710 +            EQ     CLB11                                                   GRA      4832
                                                                                                                 GRA      4833
          2716  7160000000               CLB13    SX6    0                                                       GRA      4834
                          5160000000 X            SA6    L.PIT       L.PIT = 0                                   GRA      4835
          2717  0400002610 +                      EQ     CLB                                                     GRA      4836
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   108
        CLB - CODE LOOP BODY                                          CLB 
  
                                        *         *MCG* FAILED, REDUCE LOCKED X-REG COUNT AND TRY AGAIN.         GRA      4838
                                                                                                                 GRA      4839
          2720  5110000173 C             CLB14    SA1    NXC                                                     FCC0811     9
                          0301002723 +            ZR     X1,CLB17    IF NXC = 0                                  FCC0811    10
          2721  0100002741 +                      RJ     RXA         REMOVE LAST X-ASSIGNMENT                    FCC0811    11
                                                  PRINT  CLB,(* --- MCG FAIL ---*)                               GRA      4858
          2722  0400002631 +                      EQ     CLB1                                                    GRA      4859
  
  
                                        *         A-REGS LOCKED AND MCG FAILED, REDUCE *MARA* AND RESTART        FCC0603    48
                                                                                                                 FCC0603    49
          2723  7170002733 +             CLB17    CLCM   CLW         CLEAR LINK WORDS                            FCC0603    50
          2725  5110000205 C                      SA1    NAA                                                     FCC0603    51
                          7261777776              SX6    X1-1        MARA = NAA - 1                              FCC0603    52
          2726  5160000000 +                      SA6    MARA                                                    FCC0603    53
                          7170000004              SX7    4                                                       FCC0603    54
          2727  5170000000 X                      SA7    L.TXT       L.TXT = 4                                   FCC0603    55
                          7170000000              SX7    0                                                       FCC0603    56
          2730  5170000000 X                      SA7    L.PIT       L.PIT = 0                                   FCC0603    57
                          5170000000 X            SA7    L.RCT       L.RCT = 0                                   FCC0603    58
          2731  5170000024 C                      SA7    LUL+1       LUL(2) = 0                                  FCC0603    59
                          43644                   MX6    36                                                      FCC0603    60
                               14666              BX6    -X6                                                     FCC0603    61
          2732  5160000015 C                      SA6    MRA         MRA = ^MASK(36)                             FCC0603    62
                          0400000004 +            EQ     GRA0                                                    FCC0603    63
  
  
  
                                        **        CLW - CLEAR LINK WORDS OF A BLOCK                              FCC0603    65
                                                                                                                 FCC0603    66
          2733  0200402733 +             CLW      ROUTINE                                                        FCC0603    67
          2734  5110000000 X                      SA1    O.SEQ                                                   FCC0603    68
                          5120000000 X            SA2    L.SEQ                                                   FCC0603    69
          2735  6140000004                        SB4    4                                                       FCC0603    70
                          6221000003              SB2    X1+3        I = 3                                       FCC0603    71
          2736  36312                             IX3    X1+X2                                                   FCC0603    72
                     43600                        MX6    0                                                       FCC0603    73
                          63330                   SB3    X3                                                      FCC0603    74
                                                                                                                 FCC0603    75
          2737  56620                    CLW1     SA6    B2          SEQ(I) = 0                                  FCC0603    76
                     66224                        SB2    B2+B4       I = I + 4                                   FCC0603    77
                          0632002737 +            LE     B2,B3,CLW1  IF I < L.SEQ                                FCC0603    78
                                                                                                                 FCC0603    79
          2740  0400002733 +                      EQ     CLW                                                     FCC0603    80
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   109
        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
          2741  0200402741 +             RXA      ROUTINE                                                        FCC0811    19
          2742  5130000000 X                      SA3    O.RCT                                                   FCC0811    20
                          5221000173 C            SA2    XCT-1+X1    J = CO[XCT(NXC)]                            FCC0811    21
          2743  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
          2744  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
          2745  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
          2746  7261777776                        SX6    X1-1        NXC = NXC - 1                               FCC0811    37
                          54610                   SA6    A1                                                      FCC0811    38
          2747  0302002741 +                      ZR     X2,RXA      IF REGN = 0                                 FCC0811    39
                          43700                   MX7    0                                                       FCC0811    40
          2750  5272000100 C                      SA7    RAT+X2      RAT(REGN) = 0                               FCC0811    41
                          5272000130 C            SA7    RVT+X2      RVT(REGN) = 0                               FCC0811    42
          2751  0400002741 +                      EQ     RXA                                                     FCC0811    43
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   110
        CXB - CODE EXTENDED BASIC BLOCK                               CXB 
  
                                        **        CXB - CODE EXTENDED BASIC BLOCK ( STRAIGHT LINE CODE )         GRA      4861
                                                                                                                 GRA      4862
          2752  0400402752 +             CXB      ENTRY. **                                                      GRA      4863
          2753  5110000000 X                      SA1    L.SEQ                                                   GRA      4864
                          6221777767              SB2    X1-8                                                    GRA      4865
          2754  0602002752 +                      LE     B2,CXB      IF L.SEQ @ 8                                GRA      4866
                                                                                                                 GRA      4867
                          0100000000 X            CALL   AIS         ASSIGN INDEX REGISTERS                      GRA      4868
          2755  43600                             MX6    0                                                       GRA      4869
                     5160000036 C                 SA6    PL          PL = 0                                      GRA      4870
                               43300              MX3    0                                                       GRA      4871
          2756  0100002765 +                      RJ     CIS         SET *PC* AND CODE SEQUENCE                  GRA      4872
          2757  5110000000 X                      SA1    O.BST                                                   GRA      4873
                          5120000000 X            SA2    BSI                                                     GRA      4874
          2760  5130000000 X                      SA3    =XPC                                                    GRA      4875
                          5140000000 X            SA4    L.PIT                                                   GRA      4876
          2761  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
          2762  0100002777 +                      RJ     WSC         WRITE SAVED CODE TO *BLK*                   GRA      4881
          2763  7160000004                        SX6    4                                                       GRA      4882
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   GRA      4883
          2764  5170000000 X                      SA7    L.PIT       L.PIT = 0                                   GRA      4884
                          0400002752 +            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
          2765  0200402765 +             CIS      ROUTINE                                                        GRA      4893
          2766  5110000000 X                      SA1    O.BST                                                   GRA      4894
                          5120000000 X            SA2    O.BIT                                                   GRA      4895
          2767  5140000000 X                      SA4    BSI         J = BSI                                     GRA      4896
                          63210                   SB2    X1                                                      GRA      4897
                               63320              SB3    X2                                                      GRA      4898
          2770  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
          2771  20502                             LX5    59-BI.ILP                                               GRA      4903
                     0335002774 +                 MI     X5,CIS2     IF IL[BIW]    */ BLOCK HAS A INITIAL LABEL  GRA      4904
                               43672              MX6    -BI.PCL                                                 GRA      4905
                                                                                                                 GRA      4906
          2772  5055777775               CIS1     SA5    A5-2        BI = BI - 2;  BIW = BIT(BI)                 GRA      4907
                          20501                   LX5    59-BI.CBP                                               GRA      4908
          2773  0325002772 +                      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
          2774  7263000000               CIS2     SX6    X3+                                                     GRA      4913
                          5170000000 X            SA7    =XPARCEL    PARCEL = PPC                                GRA      4914
          2775  0100000000 X                      CALL   MCG (NXC )  CODE THE SEQUENCE                           GRA      4915
          2776  0400002765 +                      EQ     CIS                                                     GRA      4916
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   111
        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
          2777  0200402777 +             WSC      ROUTINE                                                        GRA      4930
          3000  5150000000 X                      SA5    O.BIT                                                   FCC0675   238
                          20130                   LX1    -BA.BIP                                                 FCC0675   239
                               63310              SB3    X1          BN = BI[BAW]                                FCC0675   240
          3001  43053                             MX0    -BS.CLPCL                                               FCC0675   241
                     53253                        SA2    X5+B3       BIW = BIT(BN)                               FCC0675   242
                          5130000012 C            SA3    M.PL                                                    FCC0675   243
          3002  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
          3003  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
          3004  12242                             BX2    X4+X2       CLPC[BIW] = CLPC[BSW]                       GRA      4958
                     37031                        IX0    X3-X1                                                   GRA      4959
                          5140000036 C            SA4    PL                                                      GRA      4960
          3005  12772                             BX7    X7+X2       CB[BIW] = 1   */ INDICATE BLOCK CODED       GRA      4961
                     54720                        SA7    A2                                                      GRA      4962
                          0320003007 +            PL     X0,WSC2     M.PL = MAX( M.PL , LEN )                    GRA      4963
          3006  73610                             SX6    X1                                                      GRA      4964
                     54630                        SA6    A3                                                      GRA      4965
                                                                                                                 GRA      4966
          3007  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
          3010  0100000000 X                      CALL   WFB         WFB( FWAB , LEN )  */ WRITE TO *BLK*        GRA      4970
          3011  43700                             MX7    0                                                       GRA      4971
                     0400002777 +                 EQ     WSC                                                     GRA      4972
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   112
        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
                                         INB      DEFINE 1           =1 IF BR R-NUMBER IS AVAIL                  GRA      4991
                                                  DEFINE 5                                                       GRA      4992
                                         ST       DEFINE 18          ST REG R-NUMBER                             GRA      4993
                                         BR       DEFINE 18          B-REG R-NUMBER                              GRA      4994
                                         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
  
  
          3012  0200403012 +             IRA      ROUTINE                                                        GRA      5002
          3013  5110000000 X                      SA1    L.SEQ                                                   GRA      5003
                          5120000231 C            SA2    NXS                                                     GRA      5004
          3014  36112                             IX1    X1+X2                                                   GRA      5005
                     56010                        ALLOC  TXT,X1      ALLOC( TXT , L.SEQ+NXS )                    GRA      5006
          3015  5140000000 X                      SA4    O.SEQ       TI = OLD(L.TXT)                             GRA      5007
                          5130000000 X            SA3    O.RCT                                                   GRA      5008
          3016  63720                             SB7    X2          TB = O.TXT                                  GRA      5009
                     43700                        MX7    0                                                       GRA      5010
                          6254000003              S"SB"  X4+3        SB = O.SEQ + 3                              GRA      5011
          3017  53540                             SA5    X4          R1 = O.SEQ                                  GRA      5012
                     5214000004                   SA1    X4+4                                                    GRA      5013
                               63430              SB4    X3          (B4) = [O.RCT]                              GRA      5014
          3020  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
          3021  5160000247 C                      SA6    LBN         LBN = [R1]                                  FCC0985    21
                          56750                   SA7    "SB"        [SB] = 0                                    GRA      5019
                               26621              UX6    B2,X1                                                   GRA      5020
          3022  7172777771                        SX7    B2-OC.LAB                                               GRA      5021
                          5100000004              SA0    4           LF = 4        */ INIT LAB NOT PRESENT       FCC2051    15
          3023  0317003026 +                      NZ     X7,IRA1     IF OC[R1+4] " OC.LAB                        GRA      5022
                                                                                                                 GRA      5023
                          56000                   SA0    B0          LF = 0        */ INIT LAB PRESENT           FCC2051    16
                               54510              SA5    A1          R1 = R1 + 4                                 GRA      5024
          3024  0100000000 X                      RJ     SRI         SRI(  LAB  [R1],0 )                         GRA      5025
          3025  5110000002 X                      SA1    F.RDT+OC.EOS                                            GRA      5026
                          10611                   BX6    X1          FT[DI] = 0                                  GRA      5027
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   113
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IRA                 IRA 
  
                               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
          3026  7150000027               IRA1     SX5    27B         I = 27B       */ REGNO                      GRA      5033
                          6130000005              SB3    OC.DEF                                                  GRA      5034
          3027  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
          3030  5245000100 C             IRA3     SA4    RAT+X5                                                  GRA      5039
                          0304003043 +            ZR     X4,IRA5     IF RAT(I) = 0                               GRA      5040
          3031  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
          3032  7225000200                        SX2    X5+SO.LOCK                                              GRA      5044
                          20220                   LX2    R1.SOP                                                  GRA      5045
                               12626              BX6    X2+X6                                                   GRA      5046
          3033  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
          3034  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
          3035  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
          3036  6166000004                        SB6    B6+4        TI = TI + 4                                 GRA      5060
                                                                                                                 GRA      5061
                          0323003043 +            PL     X3,IRA5     IF ^VC[CAW]                                 GRA      5062
          3037  20301                             LX3    CA.VCP-CA.ACP                                           GRA      5063
                     0323003043 +                 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
          3040  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
          3041  7146777773                        SX4    B6-4                                                    GRA      5069
                          20440                   TYPEI  DAR,X6,X4   SRI(  DAR  TI,TI-4 )                        GRA      5070
                                                                                                                 GRA      5071
          3043  7255777776               IRA5     SX5    X5-1        I = I - 1                                   GRA      5072
                          0315003030 +            NZ     X5,IRA3     IF I " 0                                    GRA      5073
                                                                                                                 GRA      5074
          3044  43055                             MX0    -R1.RIL+1                                               GRA      5075
                     20001                        LX0    1                                                       GRA      5076
                          74606                   SX6    B6+A0       DTL = TI + LF                               FCC2051    17
          3045  5160000250 C                      SA6    DTL                                                     FCC2051    18
                          0400003113 +            EQ     IRA10                                                   GRA      5077
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   114
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   EOQ                 IRA 
  
          3046                                    PROCESS EOQ                                                    GRA      5079
          3046  5130000233 C                      SA3    NPS                                                     FCC0985    22
                          5120000033 C            SA2    EPSI                                                    FCC0985    23
          3047  0303003100 +                      ZR     X3,EOQ5     IF NPS = 0                                  FCC0985    24
                          0302003100 +            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
          3050  5150000000 X                      SA5    BVL                                                     FCC0985    33
                          5140000000 C            SA4    O.UDT                                                   FCC0985    34
          3051  6225000002                        SB2    X5+2        V = BVL + 2   */ RXI INCREMENT              FCC0985    35
                          5110000000 X            SA1    O.RXI                                                   FCC0985    36
          3052  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
          3053  5120000247 C                      SA2    LBN         BN = IH[LBN]  */ LAST BOS/EOS               FCC0985    41
                                                                                                                 FCC0985    42
          3054  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
          3055  0317003057 +                      NZ     X7,EOQ1B    IF PRED[RI] " BN                            FCC1107     5
                          0325003057 +            PL     X5,EOQ1B    IF ^SCR[RI]                                 FCC1107     6
          3056  20501                             LX5    E.SCRP-E.JPP                                            FCC1107     7
                     0325003061 +                 PL     X5,EOQ1C    IF ^JP[RI]    */ A FALL THROUGH EDGE        FCC1107     8
                                                                                                                 FCC1107     9
          3057  54552                    EOQ1B    SA5    A5+B2       RI = RI + V                                 FCC1107    10
                     0315003054 +                 NZ     X5,EOQ1A    IF [RI] " 0   */ NOT END OF TABLE           FCC0985    49
          3060  0400003100 +                      EQ     EOQ5                                                    FCC0985    50
                                                                                                                 FCC0985    51
          3061  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
          3062  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
          3063  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
          3064  22626                             LX6    B2,X6                                                   FCC0513    15
                     11764                        BX7    X6*X4                                                   FCC0513    16
                          0307003077 +            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
          3065  5140000004 C                      SA4    LUV                                                     FCC0513    21
                          63230                   SB2    X3                                                      FCC0513    22
                               53442              SA4    X4+B2                                                   FCC0513    23
          3066  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
          3067  7271777751                        SX7    X1-26B                                                  GRA      5107
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   115
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   EOQ                 IRA 
  
                          0327003075 +            PL     X7,EOQ3     IF REGN \ 26B */ RESULT IN A *ST-REG*       GRA      5108
                                                                                                                 GRA      5109
          3070  7271777757                        SX7    X1-20B                                                  GRA      5110
                          6120000010              SB2    OC.XMT      OC = OC.XMT                                 GRA      5111
          3071  0327003072 +                      PL     X7,EOQ2     IF REGN \ 20B */ IN A X-REG                 GRA      5112
                          6120000060              SB2    OC.SA       OC = OC.SA                                  GRA      5113
          3072  43700                    EOQ2     MX7    0                                                       GRA      5114
                     76660                        TYPEI  B2,B6,X4    SRI(  XMT/SA  TI,RN )                       GRA      5115
          3074  7146777773                        SX4    B6-4        RN = TI - 4                                 GRA      5116
                                                                                                                 GRA      5117
          3075  54221                    EOQ3     SA2    A2+B1                                                   GRA      5118
                     6120000051                   SB2    OC.ST                                                   GRA      5119
                               43130              MX1    -IH.CAIHL                                               GRA      5120
          3076  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
          3077  65201                    EOQ4     SB2    A0-B1                                                   GRA      5125
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      5126
                          0702003062 +            GT     B2,EOQ1     IF I > 0                                    GRA      5127
                                                                                                                 GRA      5128
          3100  6120000000               EOQ5     SB2    OC.EOQ                                                  GRA      5129
                          43600                   MX6    0                                                       GRA      5130
                               76700              SX7    B0                                                      GRA      5131
          3101  0100000000 X                      CALL   SRI         SRI(  EOQ  0,0 )                            GRA      5132
          3102  7166000000                        SX6    B6+                                                     GRA      5133
                          5160000000 X            SA6    L.TXT       L.TXT = TI                                  GRA      5134
          3103  0400003012 +                      EQ     IRA                                                     GRA      5135
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   116
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   TYI                 IRA 
  
          3104                                    PROCESS (UP,NR,RNZ)                                            GRA      5137
          3104  0307003105 +                      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
          3105  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
          3106  12225                             BX2    X2+X5                                                   GRA      5147
                     76660                        SX6    B6                                                      GRA      5148
                          20544                   LX5    I.STP                                                   GRA      5149
                               12656              BX6    X5+X6                                                   GRA      5150
          3107  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
          3110  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
          3111  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
          3112  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
          3113                                    PROCESS (BOS,NOP)                                              GRA      5171
          3113  5055000004               IRA10    SA5    A5+4        R1 = R1 + 4                                 GRA      5172
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      5173
          3114  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
          3115  0313003117 +                      NZ     X3,IRA11    IF TYPE[DI] " I                             GRA      5179
                                                                                                                 GRA      5180
                          20634                   LX6    -R1.RJP                                                 GRA      5181
                               15760              BX7    "RN"X6                                                  GRA      5182
          3116  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
          3117  53114                    IRA11    SA1    B4+X1       J = CO[LI];  CAW = RCT(J)                   GRA      5188
                                                  LX4    2+D.TYP                                                 GRA      5189
                     0222003737 +                 JP     IRA.JT+B2   JUMP( IRA.JT( OC[R1] ) )                    GRA      5190
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   117
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   TYIV                IRA 
  
                                        *         TYPE IV INSTRUCTIONS                                           GRA      5192
                                                                                                                 GRA      5193
          3120                                    PROCESS EOS                                                    GRA      5194
          3120  73650                             SX6    X5                                                      FCC0985    59
                     0306003122 +                 ZR     X6,.LAB     IF IH[R1] = 0 */ ^ OPT=2 *EOS*              FCC0985    60
                                                                                                                 FCC0985    61
          3121  5160000247 C                      SA6    LBN         LBN = IH[R1]  */ SAVE FOR *EOQ*             FCC0985    62
                          0400003113 +            EQ     IRA10                                                   FCC0985    63
                                                                                                                 GRA      5197
          3122                                    PROCESS (LAB,ENT,UJP,RJ3,RJ6)                                  GRA      5198
          3122  54351                             SA3    A5+B1                                                   GRA      5199
                     22605                        LX6    X5                                                      GRA      5200
                          10733                   BX7    X3          R2W = [R1+1]                                GRA      5201
          3123  0400003111 +                      EQ     TYIT                                                    GRA      5202
  
  
  
                                        *         MISCELLANEOUS TYPE I INSTRUCTIONS                              GRA      5204
                                                                                                                 GRA      5205
          3124                                    PROCESS (ILS,IRS,PK)                                           GRA      5206
          3124  20252                             LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5207
                     0400003105 +                 EQ     TYI                                                     GRA      5208
  
  
          3125                                    PROCESS DRL                                                    GRA      5210
          3125  76760                             SX7    B6                                                      GRA      5211
                     76660                        SX6    B6          R = TI                                      GRA      5212
                          20744                   LX7    I.STP                                                   GRA      5213
                               12767              BX7    X6+X7                                                   GRA      5214
          3126  54741                             SA7    A4+B1       [DI+1] = RNI(0,TI,0,TI)                     GRA      5215
                     0400003130 +                 EQ     DWL1                                                    GRA      5216
                                                                                                                 GRA      5217
          3127                                    PROCESS DWL                                                    GRA      5218
          3127  15750                             BX7    "RN"X5                                                  GRA      5219
                     53375                        SA3    "SB"+X7                                                 GRA      5220
                          7263000000              SX6    X3+         R = XR[SB+RI[R1]]                           GRA      5221
                                                                                                                 GRA      5222
          3130  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
          3131  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
          3132  0303003134 +                      ZR     X3,DWL2     IF LF = 0     */ NO RF                      FCC0645    24
                          53335                   SA3    "SB"+X3     LF = [SB+R]                                 FCC0645    25
          3133  0313003134 +                      NZ     X3,DWL2     IF LF " 0     */ RF MATERIALIZED            FCC0645    26
                          20234                   LX2    -R1.RJP                                                 FCC0645    27
                               73320              SX3    X2          LF = J        */ USE RJ AS RF               FCC0645    28
          3134  0323003135 +             DWL2     PL     X3,DWL3     IF ^INB[LF]                                 FCC0645    29
                          20352                   LX3    -I.BRP      LF = SHIFT(LF,-I.BRP)                       FCC0645    30
          3135  73330                    DWL3     SX3    X3                                                      FCC0645    31
                     12731                        BX7    X3+X1       RF[R2] = SETX(LF)                           FCC0645    32
                          5142000000 X            SA4    F.RDT+B2    D = RDT(OC[R1])                             GRA      5235
          3136  20744                             LX7    IH.RFP                                                  GRA      5236
                     0400003111 +                 EQ     TYIT                                                    GRA      5237
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   118
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   SS                  IRA 
  
          3137                                    PROCESS SS                                                     GRA      5239
          3137  20252                             LX2    -I.BRP                                                  GRA      5240
                     20352                        LX3    -I.BRP                                                  GRA      5241
                          0400003105 +            EQ     TYI                                                     GRA      5242
  
  
          3140                                    PROCESS SA                                                     GRA      5244
                                                  LX1    59-CA.RAP                                               GRA      5245
          3140  0331003543 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5246
                          0322003150 +            PL     X2,SA1      IF ^INB[LJW]                                GRA      5247
          3141  20252                             LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5248
                     0313003150 +                 NZ     X3,SA1      IF LKW " 0                                  GRA      5249
                                                                                                                 GRA      5250
                               20425              LX4    59-D.PRSP                                               GRA      5251
          3142  43766                             MX7    -SO.REGL                                                GRA      5252
                     0324003152 +                 PL     X4,SA2      IF ^PRS[DI]                                 FCC0414    10
          3143  5015000004                        SA1    A5+4        R1RS = R1 + 4                               GRA      5254
                          20154                   LX1    -R1.SOP                                                 GRA      5255
                               15617              BX6    -X7*X1      REGNO = SOREG[R1RS]                         GRA      5256
          3144  20165                             LX1    59-SO.LKP                                               GRA      5257
                     7276777767                   SX7    X6-8                                                    GRA      5258
          3145  0327003150 +                      PL     X7,SA1      IF REGNO > 7                                GRA      5259
                          0321003150 +            PL     X1,SA1      IF SOLK[R1RS] " 1  */ NOT TEMP LOCK         GRA      5260
                                                                                                                 GRA      5261
          3146  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
          3147  0400003113 +                      EQ     IRA10                                                   GRA      5266
                                                                                                                 GRA      5267
          3150  0323003105 +             SA1      PL     X3,TYI      IF ^INB[LKW]                                GRA      5268
                          20352                   LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5269
          3151  0400003105 +                      EQ     TYI                                                     GRA      5270
                                                                                                                 FCC0414    11
                                        *         SA  RI,RJ ,AND OPERAND IN A B-REG                              FCC0414    12
                                                                                                                 FCC0414    13
          3152  76660                    SA2      SX6    B6                                                      FCC0414    14
                     73220                        SX2    X2                                                      FCC0414    15
                          43701                   MX7    1                                                       FCC0414    16
                               20222              LX2    I.BRP                                                   FCC0414    17
          3153  12776                             BX7    X7+X6                                                   FCC0414    18
                     20644                        LX6    I.STP                                                   FCC0414    19
                          12626                   BX6    X2+X6                                                   FCC0414    20
                               12776              BX7    X7+X6                                                   FCC0414    21
          3154  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
          3155  0400003110 +                      EQ     TYIA                                                    FCC0414    26
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   119
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IA                  IRA 
  
          3156                                    PROCESS IA                                                     GRA      5272
          3156  12623                             BX6    X2+X3                                                   GRA      5273
                     0326003105 +                 PL     X6,TYI      IF ^( INB[LJW] ! INB[LKW] )                 GRA      5274
                               20111              LX1    59-CA.RFP                                               GRA      5275
          3157  0321003105 +                      PL     X1,TYI      IF ^RF[CI]    */ ^ *INC* AND SHORT USE      GRA      5276
                                                                                                                 GRA      5277
                          6120000060              SB2    OC.SA       OC = OC.SA                                  GRA      5278
          3160  11623                             BX6    X2*X3                                                   GRA      5279
                     0336003165 +                 MI     X6,IS1      IF INB[LJW] & INB[LKW]                      GRA      5280
                               10622              BX6    X2                                                      GRA      5281
          3161  0322003162 +                      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
          3162  20352                    IA1      LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5285
                     0400003105 +                 EQ     TYI                                                     GRA      5286
  
  
          3163                                    PROCESS IS                                                     GRA      5288
          3163  11623                             BX6    X2*X3                                                   GRA      5289
                     0326003105 +                 PL     X6,TYI      IF ^( INB[LJW] & INB[LKW] )                 GRA      5290
                               20111              LX1    59-CA.RFP                                               GRA      5291
          3164  0321003105 +                      PL     X1,TYI      IF ^RF[CI]    */ ^ *INC* AND SHORT USE      GRA      5292
                                                                                                                 GRA      5293
                          6120000063              SB2    OC.SS       OC = OC.SS                                  GRA      5294
          3165  20252                    IS1      LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5295
                     20352                        LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5296
                          0400003105 +            EQ     TYI                                                     GRA      5297
  
  
          3166                                    PROCESS SXT                                                    GRA      5299
                                                  LX1    59-CA.RAP                                               GRA      5300
          3166  0321003105 +                      PL     X1,TYI      IF ^RA[CAW]                                 GRA      5301
                                                                                                                 GRA      5302
                          5011000002              SA1    A1+2        CCW = RCT(J+2)                              GRA      5303
          3167  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
          3170  15717                             BX7    -X7*X1                                                  GRA      5308
                     5227000130 C                 SA2    RVT+X7      LJW = RVT(REG1[CCW])                        GRA      5309
                               26625              UX6    B2,X5                                                   GRA      5310
          3171  6122000002                        SB2    B2-OC.KLS+OC.ILS  OC = OC[R1]-OC.KLS+OC.ILS             GRA      5311
                          0400003105 +            EQ     TYI                                                     GRA      5312
  
  
          3172                                    PROCESS XMTC                                                   FCC0513    28
          3172  0322003105 +                      PL     X2,TYI      IF ^INB[LJW]                                FCC0513    29
                          6120000063              SB2    OC.SS       OC = OC.SS                                  FCC0513    30
          3173  20252                             LX2    -I.BRP                                                  FCC0513    31
                     73320                        SX3    X2          LKW = BR[LJW]                               FCC0513    32
                          7120000000              SX2    0           LJW = 0                                     FCC0513    33
          3174  0400003105 +                      EQ     TYI                                                     FCC0513    34
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   120
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   XMT                 IRA 
  
          3175                                    PROCESS XMT                                                    GRA      5314
                                                  LX1    59-CA.RAP                                               GRA      5315
          3175  0331003543 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5316
                          20424                   LX4    59-D.PSP                                                GRA      5317
                               10722              BX7    X2                                                      GRA      5318
          3176  0324003201 +                      PL     X4,XMT1     IF ^PS[DI]                                  GRA      5319
                          20730                   LX7    -I.STP                                                  GRA      5320
                               73670              SX6    X7                                                      GRA      5321
          3177  0306003201 +                      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
          3200  0400003113 +                      EQ     IRA10                                                   GRA      5328
                                                                                                                 GRA      5329
          3201  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
          3202  12736                             BX7    X3+X6       LW = RNI(0,TI,0,J)                          FCC1740X    8
                     0316003204 +                 NZ     X6,XMT2     IF J " 0                                    FCC1740X    9
                               20252              LX2    -I.BRP                                                  FCC1740X   10
          3203  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
          3204  20640                    XMT2     LX6    R1.RJP                                                  FCC1740X   14
                     5074000001                   SA7    A4+1        [DI+1] = LW                                 FCC1740X   15
                               12565              BX5    X6+X5       R1W = TYI(0,J,0,TI)                         FCC1740X   16
          3205  0400003110 +                      EQ     TYIA                                                    GRA      5338
  
  
          3206                                    PROCESS (PST,SST,SDS)                                          GRA      5340
          3206  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
          3207  0400003211 +                      EQ     PLD1                                                    GRA      5345
  
  
          3210                                    PROCESS (PLD,SLD,SDL)                                          GRA      5347
          3210  7166000000                        SX6    B6+         R = TI                                      GRA      5348
                          5065000003              SA6    A5+3        [R1+3] = RNI(0,0,0,TI)                      GRA      5349
                                                                                                                 GRA      5350
          3211  0322003212 +             PLD1     PL     X2,PLD2     IF ^INB[LJW]                                GRA      5351
                          20252                   LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5352
          3212  0323003213 +             PLD2     PL     X3,PLD3     IF ^INB[LKW]                                GRA      5353
                          20352                   LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5354
                                                                                                                 GRA      5355
          3213  73220                    PLD3     SX2    X2                                                      GRA      5356
                     27626                        PX6    B2,X6                                                   GRA      5357
                          20240                   LX2    R1.RJP                                                  GRA      5358
                               73330              SX3    X3                                                      GRA      5359
          3214  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
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   121
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PLD                 IRA 
  
          3215  5110000000 X                      SA1    DMASK                                                   GRA      5364
                          20230                   LX2    -IH.RFP                                                 GRA      5365
                               15520              BX5    "RN"X2                                                  GRA      5366
          3216  53355                             SA3    "SB"+X5     LFW = [SB+RF[R2]]                           GRA      5367
                     0323003217 +                 PL     X3,PLD4     IF ^INB[LFW]                                GRA      5368
                               20352              LX3    -I.BRP                                                  GRA      5369
          3217  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
          3220  20744                             LX7    IH.RFP                                                  GRA      5374
                     0400003111 +                 EQ     TYIT                                                    GRA      5375
  
  
          3221                                    PROCESS RS                                                     GRA      5377
          3221  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
          3222  0326003224 +                      PL     X6,RS1      IF IN[R1] = 0 */ ^ A RJRS                   FCC0414    27
                          76660                   SX6    B6          R = TI                                      GRA      5383
          3223  0400003233 +                      EQ     RS2                                                     GRA      5384
                                                                                                                 GRA      5385
          3224  20101                    RS1      LX1    59-CA.IRAP                                              FCC0811    44
                     0331003113 +                 MI     X1,IRA10    IF IRA[CAW]   */ PRED AND RS TO BE MOVED    FCC0811    45
          3225  7166777773                        SX6    B6-4        R = TI - 4                                  GRA      5388
                          7232777767              SX3    X2-8                                                    GRA      5389
          3226  0333003233 +                      MI     X3,RS2      IF REGNO < 8  */ IN A B-REGISTER            FCC0764     5
                          7232777751              SX3    X2-26B                                                  FCC0764     6
          3227  0323003235 +                      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
          3230  20230                             LX2    -I.STP                                                  FCC0764    11
                     73320                        SX3    X2                                                      FCC0764    12
                          13773                   BX7    X7-X3                                                   FCC0764    13
          3231  0317003235 +                      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
          3232  54720                             SA7    A2                                                      FCC0764    17
                     0400003235 +                 EQ     RS3                                                     FCC0764    18
                                                                                                                 GRA      5391
          3233  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
          3234  15350                             BX3    "RN"X5                                                  GRA      5397
                     53735                        SA7    "SB"+X3     [SB+RI[R1]] = RNI(B,0,R,0)                  GRA      5398
                                                                                                                 GRA      5399
          3235  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
          3236  11424                             BX4    X2*X4       USES[DI] = 0;  D = [DI]                     GRA      5404
                     0400003111 +                 EQ     TYIT                                                    GRA      5405
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   122
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   TYII                IRA 
  
          3237                                    PROCESS (FMA,CLR,S)                                            GRA      5407
                                                  LX1    59-CA.RAP                                               GRA      5408
          3237  0331003543 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5409
                                                                                                                 GRA      5410
          3240  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
          3241  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
          3242  0400003110 +                      EQ     TYIA                                                    GRA      5420
  
  
          3243                                    PROCESS DEF                                                    GRA      5422
          3243  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
          3244  5237000130 C                      SA3    RVT+X7                                                  FCC0414    28
                          7227777751              SX2    X7-26B                                                  FCC0414    29
          3245  0313003251 +                      NZ     X3,DEF1     IF RVT(REGN) " 0  */ DEF IS A CANIDATE      FCC0414    30
                          0322003240 +            PL     X2,FMA1     IF REGN \ 26B  */ IN A STORE REG            GRA      5428
          3246  21704                             AX7    4                                                       GRA      5429
                     76660                        SX6    B6          RNW = RNI(0,0,0,TI)                         GRA      5430
                          0317003241 +            NZ     X7,FMA2     IF REGN \ 20B   */ X-REG                    GRA      5431
          3247  43701                             MX7    1                                                       GRA      5432
                     20622                        LX6    I.BRP                                                   GRA      5433
                          12676                   BX6    X7+X6       RNW = RNI(1,0,TI,0)                         GRA      5434
          3250  0400003241 +                      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
          3251  73630                    DEF1     SX6    X3          R = RVT(REGN)                               FCC0414    35
                     20644                        LX6    I.STP                                                   FCC0414    36
                          12636                   BX6    X3+X6       RNW = RNI(0,R,0,R)                          FCC0414    37
                               21704              AX7    4                                                       FCC0414    38
          3252  0322003254 +                      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
          3253  0317003254 +                      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
          3254  54641                    DEF2     SA6    A4+B1       [DI+1] = RNW                                FCC0414    45
                     0400003113 +                 EQ     IRA10                                                   FCC0414    46
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   123
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   TYIII               IRA 
  
          3255                                    PROCESS (KLS,KRS)                                              GRA      5437
          3255  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
          3256  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
          3257  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
          3260  73120                             SX1    X2                                                      GRA      5452
                     12713                        BX7    X1+X3       RF[R2W] = SETX(LJW)                         GRA      5453
                          20744                   LX7    IH.RFP                                                  GRA      5454
          3261  0400003111 +                      EQ     TYIT                                                    GRA      5455
  
  
          3262                                    PROCESS (JIN,JPBB)                                             GRA      5457
          3262  6130000022                        SB3    I.BRP                                                   GRA      5458
                          5035000001              SA3    A5+1        R2 = R1 + 1                                 FCC0909    43
          3263  0323003302 +                      PL     X3,JIN3     IF [R2] < 0   */ NOT SPECIAL *JIN*          FCC0909    44
                          5120000000 X            SA2    =XL.HB                                                  FCC0909    45
          3264  7262777763                        SX6    X2-12                                                   FCC0909    46
                          0326003270 +            PL     X6,JIN2     IF L.HB > 8   */ *HB* IS NON EMPTY          FCC0909    47
          3265  5120000101 C                      SA2    RAT+1                                                   FCC0909    48
                          43633                   MX6    27          I = 27                                      FCC0909    49
          3266  0312003270 +             JIN1     NZ     X2,JIN2     IF RAT(I) " 0                               FCC0909    50
                          54221                   SA2    A2+B1                                                   FCC0909    51
                               20601              LX6    1           I = I - 1                                   FCC0909    52
          3267  0336003266 +                      MI     X6,JIN1     IF I " 0                                    FCC0909    53
                          0400003302 +            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
          3270  5120000016 C             JIN2     SA2    LGL                                                     FCC0909    59
                          73720                   SX7    X2                                                      FCC0909    60
                               76660              TYPEI  STT,B6      SRI( STT  TI,,,SETX(LGL) )                  FCC0909    61
          3272  7166777773                        SX6    B6-4                                                    FCC0909    62
                          7120000103              SX2    SO.TLOCK+3                                              FCC0909    63
          3273  20220                             LX2    R1.SOP                                                  FCC0909    64
                     12626                        BX6    X2+X6                                                   FCC0909    65
                          6120000004              TYPEI  RS,X6       SRI( RS  TI-4,TLOCK+3 )                     FCC0909    66
          3275  15750                             BX7    "RN"X5                                                  FCC0909    67
                     53375                        SA3    "SB"+X7                                                 FCC0909    68
                          5120000025 C            SA2    LIH                                                     FCC0909    69
          3276  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
          3277  12727                             BX7    X2+X7                                                   FCC0909    73
                     73630                        TYPEI  JPBB,X3     SRI( JPBB  I,J,0,LIH )                      FCC0909    74
          3301  6120000070                        SB2    OC.JIN                                                  FCC0909    75
                                                                                                                 FCC0909    76
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   124
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JIN                 IRA 
  
          3302  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
          3303  73230                             SX2    X3          R = SETX( SHIFT(LJW,-SC) )                  GRA      5464
                     12625                        BX6    X2+X5       RI[R1W] = R                                 GRA      5465
                          0400003256 +            EQ     TYIII                                                   GRA      5466
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   125
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JPX                 IRA 
  
          3304                                    PROCESS JPX                                                    GRA      5468
          3304  5110000025 C                      SA1    LIH                                                     GRA      5469
                          54251                   SA2    A5+B1       R2 = R1 + 1                                 GRA      5470
                               66300              SB3    B0          SC = 0                                      GRA      5471
          3305  13612                             BX6    X1-X2                                                   GRA      5472
                     73760                        SX7    X6                                                      GRA      5473
                          0317003302 +            NZ     X7,JIN3     IF LIH " IH[R2]   */ NOT LOOP BACK JUMP     FCC0909    78
          3306  5110000172 C                      SA1    TRD                                                     GRA      5475
                          0301003311 +            ZR     X1,JPX0     IF TRD = 0    */ NO TEST REPLACEMENT        GRA      5476
          3307  5045777773                        SA4    A5-4                                                    GRA      5477
                          13645                   BX6    X4-X5                                                   GRA      5478
                               15760              BX7    "RN"X6                                                  GRA      5479
          3310  0317003311 +                      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
          3311  5130000205 C             JPX0     SA3    NAA                                                     GRA      5486
                          0303003333 +            ZR     X3,JPX7     IF NAA = 0    */ NO A-ASSIGNMENTS           GRA      5487
          3312  5203777776                        SA0    X3-1        I = NAA                                     GRA      5488
                                                                                                                 GRA      5489
          3313  5010000206 C             JPX1     SA1    ACT+A0      AI = ACT(I)                                 GRA      5490
                          5221000130 C            SA2    RVT+X1                                                  GRA      5491
          3314  63310                             SB3    X1          XREG = SETX( AI ) */ X-REGNO OF *LD*        GRA      5492
                     20130                        LX1    -CC.INCP    IP = INC[AI]                                GRA      5493
                          7222000004              SX2    X2+4        J = RCT(XREG) + 4  */ R-NUM OF A-REG        GRA      5494
          3315  53314                             SA3    B4+X1       CAW = RCT(IP)                               GRA      5495
                     20146                        LX1    CC.INCP+59-CC.IMP                                       GRA      5496
                                                  LX3    59-CA.RAP                                               GRA      5497
                          0323003323 +            PL     X3,JPX3     IF ^RA[CAW]   */ INC NOT IN A REGISTER      GRA      5498
                                                                                                                 GRA      5499
          3316  6120000056                        SB2    OC.SLD      OC = OC.SLD                                 GRA      5500
                          0321003320 +            PL     X1,JPX2     IF ^IM[AI]                                  GRA      5501
          3317  6120000061                        SB2    OC.SDL      OC = OC.SDL                                 GRA      5502
          3320  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
          3321  20240                             LX2    R1.RJP                                                  GRA      5507
                     5247000130 C                 SA4    RVT+X7      K = RVT(REGNO)                              GRA      5508
                               43700              MX7    0           R2W = 0                                     GRA      5509
          3322  20420                             LX4    R1.RKP                                                  GRA      5510
                     12624                        BX6    X2+X4       R1W = TYI(0,J,K,0)                          GRA      5511
                          0400003326 +            EQ     JPX5                                                    GRA      5512
                                                                                                                 GRA      5513
                                        *         INC NOT IN A REGISTER, MUST BE A CON ( *DAA* RESTRICTION ).    GRA      5514
                                                                                                                 GRA      5515
          3323  54331                    JPX3     SA3    A3+B1       C2W = RCT(IP+1)                             GRA      5516
                     20244                        LX2    IH.RFP                                                  GRA      5517
                          0321003325 +            PL     X1,JPX4     IF ^IM[AI]                                  GRA      5518
          3324  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
                                                                                                                 GRA      5523
          3325  6120000050               JPX4     SB2    OC.LD       OC = OC.LD                                  GRA      5524
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   126
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JPX                 IRA 
  
                          43600                   MX6    0           R1W = 0                                     GRA      5525
                               12723              BX7    X2+X3       R2W = IHW(0,J,CA[C2W],0)                    GRA      5526
                                                                                                                 GRA      5527
          3326  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
          3327  5123000130 C                      SA2    RVT+B3      J = RVT(XREG)                               GRA      5532
                          7143000200              SX4    SO.LOCK+B3                                              GRA      5533
          3330  6120000004                        SB2    OC.RS                                                   GRA      5534
                          20420                   LX4    R1.SOP                                                  GRA      5535
                               12645              BX6    X4+X5                                                   GRA      5536
          3331  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
          3332  64200                             SB2    A0                                                      GRA      5540
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      5541
                          0702003313 +            GT     B2,JPX1     IF I > 0                                    GRA      5542
                                                                                                                 GRA      5543
          3333  5140000172 C             JPX7     SA4    TRD                                                     GRA      5544
                          54550                   SA5    A5                                                      GRA      5545
                               66300              SB3    B0          SC = 0                                      GRA      5546
          3334  26625                             UX6    B2,X5                                                   FCC0985    64
                     0304003302 +                 ZR     X4,JIN3     IF TRD = 0    */ NO TEST REPLACEMENT        FCC0909    79
                                                                                                                 GRA      5551
                                        *         OUTPUT SPECIAL TEST JUMP,  GE  LUL,LCV,LIH                     GRA      5552
                                                                                                                 GRA      5553
          3335  5110000024 C                      SA1    LUL+1                                                   GRA      5554
                          5120000022 C            SA2    LCV+1                                                   GRA      5555
          3336  6120000067                        SB2    OC.JPBB                                                 GRA      5556
                          5211000130 C            SA1    RVT+X1      I = RVT(LUL(2))                             GRA      5557
          3337  5130000025 C                      SA3    LIH                                                     GRA      5558
                          5222000130 C            SA2    RVT+X2      J = RVT(LCV(2))                             GRA      5559
          3340  0324003342 +                      PL     X4,JPX8     IF TRD > 0    */ F(I) NOT NEGATIVE          GRA      5560
                          6231000000              SB3    X1+                                                     GRA      5561
          3341  10122                             BX1    X2          SWAP( I , J )                               GRA      5562
                     76230                        SX2    B3                                                      GRA      5563
                                                                                                                 GRA      5564
          3342  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
          3343  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
          3344  0400003111 +                      EQ     TYIT                                                    GRA      5572
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   127
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   LD                  IRA 
  
          3345                                    PROCESS (LD,ILD,TLD)                                           GRA      5574
                                                  LX1    59-CA.RAP                                               GRA      5575
          3345  0321003357 +                      PL     X1,LD1      IF ^RA[CAW]                                 GRA      5576
                          20102                   LX1    CA.RAP-CA.VCP                                           GRA      5577
          3346  0331003543 +                      MI     X1,PVC      IF VC[CAW]                                  GRA      5578
                                                                                                                 GRA      5579
                          6120000050              SB2    OC.LD       OC[R1] = OC.LD                              GRA      5580
                                                                                                                 FCC1227     5
          3347  54351                             SA3    A5+B1       R2 = R1 + 1                                 FCC1227     6
                     73630                        SX6    X3                                                      FCC1227     7
                          0316003576 +            NZ     X6,PAC      IF IH[R2] " 0 */ NOT A F.P. ADDR LOAD       FCC1227     8
          3350  20330                             LX3    -IH.RFP                                                 FCC1227     9
                     7263777776                   SX6    X3-1                                                    FCC1227    10
          3351  0316003576 +                      NZ     X6,PAC      IF RF[R2] " 1                               FCC1227    11
                          6120000052              SB2    OC.STT      OC = OC.STT   */ FORCE A *SA* INST IN *PAC* FCC1227    12
          3352  5031000002                        SA3    A1+2        CCW = CAW + 2                               FCC1644X    6
                          43666                   MX6    -CC.REG1L                                               FCC1644X    7
                                                  LX3    -CC.REG1P                                               FCC1644X    8
                               15636              BX6    -X6*X3                                                  FCC1644X    9
          3353  10366                             BX3    X6                                                      FCC1644X   10
                     21603                        AX6    3                                                       FCC1644X   11
                          0306003576 +            ZR     X6,PAC      IF REG1[CCW] < 8  */ IN A B-REGISTER        FCC1644X   12
                                                                                                                 FCC1644X   13
                                        *         LCM=I ADDRESS IS IN AN X-REGISTER, USE THAT VALUE              FCC1644X   14
                                                                                                                 FCC1644X   15
          3354  5233000130 C                      SA3    RVT+X3      R = RVT(REG1[CCW])                          FCC1644X   16
                          10633                   BX6    X3                                                      FCC1644X   17
                               20344              LX3    I.STP                                                   FCC1644X   18
          3355  12736                             BX7    X3+X6                                                   FCC1644X   19
                     5075000003                   SA7    A5+3        [R1+3] = RNI(0,R,0,R)                       FCC1644X   20
          3356  0400003113 +                      EQ     IRA10                                                   FCC1644X   21
                                                                                                                 GRA      5582
          3357  7166000000               LD1      SX6    B6+         RI[R1W] = TI                                GRA      5583
                          5065000003              SA6    A5+3        [R1+3] = RNI(0,0,0,TI)                      GRA      5584
                                                                                                                 GRA      5585
                                        *         ADJUST *RF* OF LD,ST,STT INSTRUCTIONS                          GRA      5586
                                                                                                                 GRA      5587
          3360  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
          3361  11703                             BX7    X0*X3                                                   GRA      5592
                     0322003362 +                 PL     X2,LD3      IF ^INB[LJW]                                GRA      5593
                               20252              LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5594
          3362  73220                    LD3      SX2    X2          J = SETX(LJW)                               GRA      5595
                     5110000000 X                 SA1    DMASK                                                   GRA      5596
                               12727              BX7    X2+X7                                                   GRA      5597
          3363  11505                             BX5    X0*X5                                                   GRA      5598
                     20744                        LX7    IH.RFP      RF[R2W] = J                                 GRA      5599
                          12656                   BX6    X5+X6                                                   GRA      5600
                               15441              BX4    -X1*X4      D = [DI] & ^DMASK                           GRA      5601
          3364  0400003111 +                      EQ     TYIT                                                    GRA      5602
  
  
                                        *         STT - *IRA* *AC* OR *CON* CANIDATE                             GRA      5604
                                                                                                                 GRA      5605
          3365  76760                    STT0     SX7    B6                                                      GRA      5606
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   128
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   STT                 IRA 
  
                     76660                        SX6    B6                                                      GRA      5607
                          20744                   LX7    I.STP                                                   GRA      5608
                               12767              BX7    X6+X7                                                   GRA      5609
          3366  5075000003                        SA7    A5+3        [R1+3] = RNI(0,TI,0,TI)                     GRA      5610
                          0400003360 +            EQ     LD2                                                     GRA      5611
                                                                                                                 GRA      5612
          3367                                    PROCESS STT                                                    GRA      5613
                                                  LX1    59-CA.RAP                                               GRA      5614
          3367  0321003365 +                      PL     X1,STT0     IF ^RA[CAW]                                 GRA      5615
                                                                                                                 GRA      5616
                          20101                   LX1    CA.RAP-CA.IRAP                                          GRA      5617
          3370  0321003374 +                      PL     X1,STT1     IF ^IRA[CAW]  */ NOT ASSIGNED IN *ERC*      GRA      5618
                          10644                   BX6    X4                                                      GRA      5619
                               20625              LX6    59-D.PRSP                                               GRA      5620
          3371  0326003374 +                      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
          3372  0302003374 +                      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
          3373  0400003113 +                      EQ     IRA10                                                   GRA      5627
                                                                                                                 GRA      5628
          3374  20103                    STT1     LX1    CA.IRAP-CA.CONP                                         GRA      5629
                     0321003576 +                 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
          3375  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
          3376  0332003377 +                      MI     X2,STT2     IF INB[LJW]                                 GRA      5640
                                                                                                                 GRA      5641
                          0333003365 +            MI     X3,STT0     IF CA[R2] < 0 */   SRI  X-B DOESNT EXIST    GRA      5642
                                                                                                                 GRA      5643
          3377  20151                    STT2     LX1    59-IH.CAP                                               GRA      5644
                     6120000060                   SB2    OC.SA       OC = SA                                     GRA      5645
                               43766              MX7    -CC.REG1L                                               GRA      5646
          3400  0321003401 +                      PL     X1,STT3     IF CA[R2] = CA[C2W]                         GRA      5647
                          6120000063              SB2    OC.SS       OC = OC.SS                                  GRA      5648
                                                                                                                 GRA      5649
          3401  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
          3402  0322003105 +                      PL     X2,TYI      IF ^INB[LJW]                                GRA      5654
                          20252                   LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5655
          3403  0400003105 +                      EQ     TYI                                                     GRA      5656
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   129
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
                                        *         ST - ADDRESS CANIDATE OR REDEFINTION OF A REGISTER             GRA      5658
                                                                                                                 GRA      5659
          3404                                    PROCESS (ST,TST)                                               GRA      5660
          3404  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
                          0331003406 +            MI     X1,ST0      IF RA[CAW]                                  FCC0977    17
                                                                                                                 GRA      5668
          3405  20230                             LX2    -I.STP                                                  GRA      5669
                     73620                        SX6    X2          RI[R1W] = ST[LJW]                           GRA      5670
                          0400003360 +            EQ     LD2                                                     GRA      5671
                                                                                                                 GRA      5672
          3406  20151                    ST0      LX1    CA.RAP-CA.KDP                                           FCC0977    18
                     0321003411 +                 PL     X1,ST1      IF ^KD[CAW]                                 FCC0977    19
                               20451              LX4    59-D.INCP                                               FCC0977    20
          3407  0324003113 +                      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
          3410  43600                             MX6    0                                                       FCC0977    27
                     54620                        SA6    A2          [LJ] = 0      */ CLEAR LINK WORD OF *INC*   FCC0977    28
                          0400003113 +            EQ     IRA10                                                   FCC0977    29
                                                                                                                 FCC0977    30
          3411  20125                    ST1      LX1    CA.KDP-CA.VCP                                           FCC0977    31
                     0321003575 +                 PL     X1,PAC0     IF ^VC[CAW]                                 GRA      5674
                                                                                                                 GRA      5675
                                        *         PROCESS REDEFINITION OF A REGISTER                             GRA      5676
                                                                                                                 GRA      5677
                               54020              SA0    A2                                                      GRA      5678
          3412  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
          3413  5130000017 C                      SA3    N.HB                                                    FCC0414    47
                          0303003425 +            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
          3414  53327                             SA3    B7+X2       R1P = TXT(XR[LJW])                          FCC0414    53
                     6130000010                   SB3    OC.XMT                                                  FCC0414    54
                               26723              UX7    B2,X3                                                   FCC0414    55
          3415  0423003420 +                      EQ     B2,B3,ST0A  IF OC[R1P] = OC.XMT                         FCC0414    56
                          6130000060              SB3    OC.SA                                                   FCC0414    57
          3416  0523003421 +                      NE     B2,B3,ST0B  IF OC[R1P] " OC.SA                          FCC0414    58
                          20354                   LX3    -R1.RKP                                                 FCC0414    59
                               15630              BX6    "RN"X3                                                  FCC0414    60
          3417  0316003425 +                      NZ     X6,ST1A     IF RK[R1P] " 0  */ NOT  * SA  RI,RJ *       FCC0414    61
          3420  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
          3421  6130000005               ST0B     SB3    OC.DEF                                                  FCC0414    66
                          0523003425 +            NE     B2,B3,ST1A  IF OC[R1P] " OC.DEF                         FCC0414    67
          3422  20754                             LX7    -R1.SOP                                                 FCC0414    68
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   130
        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
          3423  0306003457 +                      ZR     X6,ST4A     IF SOREG[R1P] = REGNO  */ SAME CANIDATES    FCC0414    72
                          13632                   BX6       X3-X2                                                FCC1568X    5
                               15760              BX7       "RN"X6                                               FCC1568X    6
          3424  0307003440 +                      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
          3425  6222000004               ST1A     SB2    X2+4                                                    FCC0414    76
                          0526003440 +            NE     B2,B6,ST1C  IF XR[LJW] " TI-4  */ RS WONT FOLLOW REDEF  FCC0414    77
          3426  53327                             SA3    B7+X2       R1P = TXT(XR[LJW])                          FCC0414    78
                     7275777767                   SX7    X5-8                                                    FCC0414    79
                               26623              UX6    B2,X3                                                   FCC0414    80
          3427  0327003446 +                      PL     X7,ST3      IF REGNO > 7  */ ^ IN A B-REG               GRA      5706
                          6130000102              SB3    OC.CLR                                                  GRA      5707
          3430  0523003434 +                      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
          3431  6120000055                        SB2    OC.S                                                    GRA      5713
                          27723                   PX7    B2,X3       OC[R1P] = OC.S                              GRA      5714
                               76610              SX6    B1                                                      GRA      5715
          3432  54730                             SA7    A3                                                      GRA      5716
                     20627                        LX6    D.SZP                                                   GRA      5717
                          37746                   IX7    X4-X6       SZ[DJ] = 1                                  GRA      5718
          3433  5073000002                        SA7    A3+2        [R1P+2] = DJ                                GRA      5719
                          0400003446 +            EQ     ST3                                                     GRA      5720
                                                                                                                 GRA      5721
          3434  5142000611 +             ST1B     SA4    DUM.JT+B2                                               GRA      5722
                          6130000060              SB3    OC.SA                                                   GRA      5723
          3435  20436                             LX4    59-29                                                   GRA      5724
                     0324003440 +                 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
          3436  0523003446 +                      NE     B2,B3,ST3   IF OC[R1P] " OC.SA                          GRA      5730
                          20354                   LX3    -R1.RKP                                                 GRA      5731
                               15730              BX7    "RN"X3                                                  GRA      5732
          3437  0317003446 +                      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
          3440  6120000010               ST1C     SB2    OC.XMT                                                  GRA      5737
                          7275777767              SX7    X5-8                                                    GRA      5738
          3441  12627                             BX6    X2+X7                                                   GRA      5739
                     0326003444 +                 PL     X6,ST2      IF REGNO > 7 & ^INB[LJW]                    GRA      5740
          3442  6120000060                        SB2    OC.SA                                                   GRA      5741
                          0322003444 +            PL     X2,ST2      IF ^INB[LJW]                                GRA      5742
          3443  20252                             LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5743
          3444  73220                    ST2      SX2    X2          RJ = SETX(LJW)                              GRA      5744
                     76660                        SX6    B6                                                      GRA      5745
                          20240                   LX2    R1.RJP                                                  GRA      5746
                               12626              BX6    X2+X6                                                   GRA      5747
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   131
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
          3445  43700                             MX7    0                                                       GRA      5748
                     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
          3446  5045000002               ST3      SA4    A5+2        DI = R1 + 2                                 FCC0514    98
                          20447                   LX4    59-D.XUP                                                FCC0514    99
          3447  0324003450 +                      PL     X4,ST3A     IF ^XU[DI]    */ IF NO EXTENDED USES        FCC0514   100
                                                                                                                 FCC0514   101
                          0100003506 +            RJ     APD         ADJUST PREVIOUS DEF TO SAVE OLD VALUE       FCC0514   102
                                                                                                                 FCC0514   103
          3450  5235000130 C             ST3A     SA3    RVT+X5      F = RVT(REGNO)  */ OLD R-NUM IN REGISTER    FCC0514   104
                          7245000200              SX4    X5+SO.LOCK                                              GRA      5755
          3451  6120000004                        SB2    OC.RS                                                   GRA      5756
                          7166777773              SX6    B6-4        R = TI - 4                                  FCC0514   105
          3452  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
          3453  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
          3454  0334003455 +                      MI     X4,ST4      IF PI[DIP]                                  GRA      5765
                          7277000004              SX7    X7+4        R2P = R2P + 4                               GRA      5766
          3455  53470                    ST4      SA4    X7                                                      GRA      5767
                     43730                        MX7    -IH.CAIHL                                               GRA      5768
                          20344                   LX3    IH.RFP                                                  GRA      5769
                               15447              BX4    -X7*X4                                                  GRA      5770
          3456  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
          3457  5011777775               ST4A     SA1    A1-2                                                    GRA      5776
                          5235000130 C            SA3    RVT+X5      RN = RVT(REGNO)                             GRA      5777
          3460  5020000000                        SA2    A0+         LJW = [LJ]                                  GRA      5778
                          7275777767              SX7    X5-8                                                    GRA      5779
          3461  0327003471 +                      PL     X7,ST7      IF REGNO > 7  */ X-REG                      GRA      5780
                                                                                                                 GRA      5781
                                        *         VALUE IS IN A B-REGISTER                                       GRA      5782
                                                                                                                 GRA      5783
                          0332003464 +            MI     X2,ST5      IF INB[LJW]                                 GRA      5784
          3462  43701                             MX7    1                                                       GRA      5785
                     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
          3463  20352                             LX3    -I.BRP                                                  GRA      5790
                     10277                        BX2    X7          LJW = [LJ]                                  GRA      5791
                                                                                                                 GRA      5792
          3464  20110                    ST5      LX1    59-CA.EUP                                               GRA      5793
                     0331003466 +                 MI     X1,ST6      IF EU[CAW]                                  GRA      5794
                               20135              LX1    CA.EUP-CA.PSPP                                          GRA      5795
          3465  0331003113 +                      MI     X1,IRA10    IF PSP[CAW]   */ ST CAN MOVE                GRA      5796
                                                                                                                 GRA      5797
                                        *         MOVE RESULT TO AN X-REG                                        GRA      5798
                                                                                                                 GRA      5799
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   132
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
          3466  63320                    ST6      SB3    X2                                                      GRA      5800
                     0530003502 +                 NZ     B3,ST10     IF XR[LJW] " 0*/ PRED IS IN A X-REG         GRA      5801
                               76660              SX6    B6                                                      GRA      5802
          3467  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
          3470  6120000060                        SB2    OC.SA                                                   GRA      5807
                          0400003500 +            EQ     ST9                                                     GRA      5808
                                                                                                                 GRA      5809
                                        *         VALUE IS IN A X-REGISTER                                       GRA      5810
                                                                                                                 GRA      5811
          3471  7275777751               ST7      SX7    X5-26B                                                  GRA      5812
                          0327003502 +            PL     X7,ST10     IF REGNO > 25B  */ RESULT IN A *ST* REG     GRA      5813
                                                                                                                 GRA      5814
          3472  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
          3473  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
          3474  15747                             BX7    -X7*X4                                                  GRA      5820
                     0317003476 +                 NZ     X7,ST8      IF USES[DJP] > 1                            GRA      5821
                               20145              LX1    59-CA.PSPP                                              GRA      5822
          3475  0331003113 +                      MI     X1,IRA10    IF PSP[CAW]                                 GRA      5823
                                                                                                                 GRA      5824
          3476  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
          3477  6120000010                        SB2    OC.XMT                                                  GRA      5829
                          7237000000              SX3    X7+                                                     GRA      5830
                                                                                                                 GRA      5831
          3500  76660                    ST9      SX6    B6                                                      GRA      5832
                     20340                        LX3    R1.RJP                                                  GRA      5833
                          43700                   MX7    0                                                       GRA      5834
                               12636              BX6    X3+X6                                                   GRA      5835
          3501  0100000000 X                      RJ     SRI         SRI(  SA/XMT  TI,RN )                       GRA      5836
                                                                                                                 GRA      5837
                                        *         OUTPUT STORE IF NOT MOVABLE                                    GRA      5838
                                                                                                                 GRA      5839
          3502  54110                    ST10     SA1    A1                                                      GRA      5840
                     20145                        LX1    59-CA.PSPP                                              GRA      5841
                          0331003113 +            MI     X1,IRA10    IF PSP[CAW]                                 GRA      5842
                                                                                                                 GRA      5843
          3503  54550                             SA5    A5                                                      GRA      5844
                     54200                        SA2    A0                                                      GRA      5845
                          5045000002              SA4    A5+2                                                    GRA      5846
          3504  20230                             LX2    -I.STP                                                  GRA      5847
                     73620                        SX6    X2          RI[R1W] = ST[LJW]                           GRA      5848
                          26725                   UX7    B2,X5                                                   GRA      5849
          3505  0400003360 +                      EQ     LD2                                                     GRA      5850
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   133
        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
          3506  0200403506 +             APD      ROUTINE                                                        FCC0514   116
          3507  54351                             SA3    A5+B1       R2 = R1 + 1;  R2P = R2                      FCC0514   117
                     6130000004                   SB3    4                                                       FCC0514   118
                               10733              BX7    X3          R2W = [R2]                                  FCC0514   119
          3510  55333                    APD1     SA3    A3-B3       R2P = R2P - 4                               FCC0514   120
                     13673                        BX6    X7-X3                                                   FCC0514   121
                          0316003510 +            NZ     X6,APD1     IF [R2P] " R2W                              FCC0514   122
                                                                                                                 FCC0514   123
          3511  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
          3512  0334003514 +                      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
          3513  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
          3514  7265777767               APD2     SX6    X5-8                                                    FCC0514   134
                          0326003521 +            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
          3515  5031777775                        SA3    A1-2                                                    FCC0514   139
                          6120000060              SB2    OC.SA       OC = OC.SA                                  FCC0514   140
          3516  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
          3517  0323003522 +                      PL     X3,APD4     IF ^EU[RCT(J)]  */ NO COPY MADE             FCC0514   145
                                                                                                                 FCC0514   146
                          43701                   MX7    1                                                       FCC0514   147
                               15627              BX6    -X7*X2      INB[LIP] = 0  */ MAKE OLD B-VAL UNAVAILABLE FCC0514   148
          3520  54620                             SA6    A2                                                      FCC0514   149
                     0400003506 +                 EQ     APD                                                     FCC0514   150
                                                                                                                 FCC0514   151
          3521  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
          3522  77663                    APD4     SX6    B6-B3       R = TI - 4                                  FCC0514   158
                     10466                        BX4    X6                                                      FCC0514   159
                          20644                   LX6    I.STP                                                   FCC0514   160
                               12646              BX6    X4+X6       [LIP] = RNI(0,R,0,R)                        FCC0514   161
          3523  54620                             SA6    A2                                                      FCC0514   162
                     53347                        SA3    B7+X4       R1W = TXT(R)                                FCC0514   163
                          76230                   SX2    B3                                                      FCC0514   164
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   134
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   APD                 IRA 
  
                               36632              IX6    X3+X2       RI[R1W] = RI[R1W] + 4                       FCC0514   165
          3524  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
          3525  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
          3526  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
          3527  54661                             SA6    A6+B1                                                   FCC0514   178
                     54761                        SA7    A6+B1       TXT(TI+3) = 0                               FCC0514   179
                          5122000000 X            SA2    F.RDT+B2                                                FCC0514   180
          3530  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
          3531  6120000044                        SB2    36          SC = 36                                     FCC0514   188
                          76730                   SX7    B3                                                      FCC0514   189
                               67663              SB6    B6-B3       TI = TI - 4                                 FCC0514   190
          3532  23322                    APD5     AX3    B2,X2                                                   FCC0514   191
                     63330                        SB3    X3                                                      FCC0514   192
                          0536003534 +            NE     B3,B6,APD6  IF RN[SHIFT(LJW,-SC)] " TI                  FCC0514   193
          3533  22627                             LX6    B2,X7                                                   FCC0514   194
                     36262                        IX2    X6+X2       LJW = LJW + SHIFT(4,SC)                     FCC0514   195
          3534  6122777755               APD6     SB2    B2-18       SC = SC - 18                                FCC0514   196
                          0620003532 +            PL     B2,APD5     IF SC \ 0                                   FCC0514   197
                                                                                                                 FCC0514   198
          3535  10622                             BX6    X2                                                      FCC0514   199
                     54620                        SA6    A2          [LJ] = LJW                                  FCC0514   200
                          6166000010              SB6    B6+8        TI = TI + 8                                 FCC0514   201
                                                                                                                 FCC0514   202
          3536  5030777774                        SA3    A0-3        R1P = LJ - 3  */ CHECK ST PRED              FCC0514   203
                          6130000010              SB3    OC.XMT                                                  FCC0514   204
          3537  26723                             UX7    B2,X3                                                   FCC0514   205
                     0523003506 +                 NE     B2,B3,APD   IF OC[R1P] " OC.XMT                         FCC0514   206
                               20334              LX3    -R1.RJP                                                 FCC0514   207
          3540  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
          3541  0317003506 +                      NZ     X7,APD      IF [LJP] " OLW  */ NOT OMITTED *XMT*        FCC0514   211
                          5063000000              SA6    A3+         [LJP] = LJW   */ UPDATE LINK WORD OF PRED   FCC0514   212
          3542  0400003506 +                      EQ     APD                                                     FCC0514   213
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   135
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PVC                 IRA 
  
                                        **        PVC - PROCESS VALUE CANIDATE DEFINITION ( LD OR CON )          GRA      5852
                                                                                                                 GRA      5853
          3543  54110                    PVC      SA1    A1                                                      GRA      5854
                     20151                        LX1    59-CA.KDP                                               GRA      5855
                          0321003545 +            PL     X1,PVC1     IF ^KD[CAW]                                 GRA      5856
                                                                                                                 GRA      5857
          3544  43600                             MX6    0                                                       GRA      5858
                     54641                        SA6    A4+B1       [DI+1] = 0                                  GRA      5859
                          0400003113 +            EQ     IRA10                                                   GRA      5860
                                                                                                                 GRA      5861
          3545  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
          3546  5234000130 C                      SA3    RVT+X4      R = RVT(REGNO)                              GRA      5866
                          7264777767              SX6    X4-8                                                    GRA      5867
          3547  0326003561 +                      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
          3550  20322                             LX3    I.BRP                                                   GRA      5874
                     12637                        BX6    X3+X7                                                   GRA      5875
                          20744                   LX7    I.STP                                                   GRA      5876
                               12667              BX6    X6+X7                                                   GRA      5877
          3551  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
          3552  20110                             LX1    59-CA.EUP                                               GRA      5882
                     0321003113 +                 PL     X1,IRA10    IF ^EU[CAW]                                 GRA      5883
                                                                                                                 GRA      5884
                               20170              LX1    CA.EUP-CA.CONP                                          GRA      5885
          3553  43700                             MX7    0                                                       GRA      5886
                     20316                        LX3    R1.RJP-I.BRP                                            GRA      5887
                          6120000060              SB2    OC.SA       OC = OC.SA                                  GRA      5888
          3554  0321003557 +                      PL     X1,PVC2     IF ^CON[CAW]                                GRA      5889
                                                                                                                 GRA      5890
                          54111                   SA1    A1+B1       C2W = RCT(J+1)                              GRA      5891
                               20560              LX5    IH.CAP-R1.INP                                           GRA      5892
          3555  13151                             BX1    X5-X1                                                   GRA      5893
                     20151                        LX1    59-IH.CAP                                               GRA      5894
                          0321003557 +            PL     X1,PVC2     IF CA[C2W] = IN[R1]                         GRA      5895
          3556  6120000063                        SB2    OC.SS                                                   GRA      5896
                          20354                   LX3    R1.RKP-R1.RJP                                           GRA      5897
          3557  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
          3560  0400003113 +                      EQ     IRA10                                                   GRA      5901
                                                                                                                 GRA      5902
                                        *         CANIDATE IN A X-REGISTER                                       GRA      5903
                                                                                                                 GRA      5904
          3561  54240                    PVC5     SA2    A4                                                      GRA      5905
                     7264777751                   SX6    X4-26B                                                  GRA      5906
                               10533              BX5    X3          RST = R       */ R-NUM IN A ST REG          GRA      5907
          3562  20224                             LX2    59-D.PSP                                                FCC2165     5
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   136
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PVC                 IRA 
  
                     0326003566 +                 PL     X6,PVC6     IF REGNO > 25B  */ X6,X7                    GRA      5908
                               76500              SX5    B0          RST = 0                                     GRA      5910
          3563  0322003566 +                      PL     X2,PVC6     IF ^PS[DI]                                  GRA      5911
                                                                                                                 GRA      5912
                          20340                   LX3    R1.RJP                                                  GRA      5913
                               76560              SX5    B6          RST = TI                                    GRA      5914
          3564  43700                             MX7    0                                                       GRA      5915
                     12635                        BX6    X3+X5                                                   GRA      5916
                          20334                   LX3    -R1.RJP                                                 GRA      5917
          3565  6120000010                        TYPEI  XMT,X6      SRI(  XMT  TI,R )                           GRA      5918
                                                                                                                 GRA      5919
          3566  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
          3567  20201                             LX2    D.PSP-D.PRSP                                            FCC0812     6
                     0322003113 +                 PL     X2,IRA10    IF ^PRS[DI]                                 FCC0812     7
                                                                                                                 FCC0812     8
          3570  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
          3571  0331003113 +                      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
          3574  0400003113 +                      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
          3575  6120000051               PAC0     SB2    OC.ST                                                   GRA      5929
                                                                                                                 GRA      5930
          3576  5011000002               PAC      SA1    A1+2        CCW = RCT(J+2)                              GRA      5931
                          6122777727              SB2    B2-OC.LD    MODE = OC[R1] - OC.LD                       GRA      5932
          3577  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
          3600  53030                             SA0    X3                                                      GRA      5938
                     20166                        LX1    CC.MITP-CC.REG2P                                        GRA      5939
                          15717                   BX7    -X7*X1      REGN2 = REG2[CCW]                           GRA      5940
          3601  5142003642 +                      SA4    PACA+B2     OCW = PACA(MODE)                            GRA      5941
                          20303                   LX3    3                                                       FCC0646    23
                               43664              MX6    -8                                                      FCC0646    24
          3602  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
          3603  63360                             SB3    X6                                                      GRA      5947
                     7166000000                   SX6    B6+         R = TI                                      GRA      5948
          3604  5065000003                        SA6    A5+3        [R1+3] = R                                  GRA      5949
                                                                                                                 GRA      5950
                          0420003607 +            ZR     B2,PAC1     IF MODE = 0   */ LD                         GRA      5951
          3605  0521003621 +                      NE     B2,B1,PAC3  IF MODE " 1   */ NOT ST                     GRA      5952
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   137
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PAC                 IRA 
  
                          15550                   BX5    "RN"X5                                                  GRA      5953
                               53355              SA3    "SB"+X5     LIW = [SB+RI[R1]]                           GRA      5954
          3606  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
          3607  7040777773               PAC1     SX4    A0-4                                                    FCC0646    26
                          0304003627 +            ZR     X4,PAC4     IF IT = 4                                   FCC0646    27
                                                                                                                 FCC0646    28
                                        *         IT = 1 - 3 , RJ,RK ARE FROM *RVT*                              FCC0646    29
                                                                                                                 FCC0646    30
          3610  5237000130 C                      SA3    RVT+X7      K = RVT(REGN2)                              FCC0646    31
                          5222000130 C            SA2    RVT+X2      J = RVT(REGN1)                              FCC0646    32
          3611  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
          3612  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
          3613  53375                             SA3    "SB"+X7     LFW = [SB+F]                                GRA      5970
                     0307003615 +                 ZR     X7,PAC2     IF F = 0      */ NO RF OR A0                GRA      5971
                                                                                                                 GRA      5972
                               76100              SX1    B0          ZB = 0                                      GRA      5973
          3614  0323003615 +                      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
          3615  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
          3616  5123000000 X                      SA2    F.RDT+B3    D = RDT(NOC)                                GRA      5982
                          20744                   LX7    IH.RFP                                                  GRA      5983
                               74300              SX3    A0                                                      FCC0977    33
          3617  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
          3620  12737                             BX7    X3+X7       SRF[R2W] = IT & 40B                         FCC0977    38
                     0400003111 +                 EQ     TYIT                                                    GRA      5986
                                                                                                                 GRA      5987
                                        *         STT - SETUP LINK WORD AND CHECK FOR SPECIAL CASE               GRA      5988
                                                                                                                 GRA      5989
          3621  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
          3622  75101                             SX1    A0-B1                                                   GRA      5994
                     76660                        SX6    B6          R = TI                                      GRA      5995
                          0311003607 +            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
                                        *         *RCT* AND *RF* IS RVT(REGN1)                                   GRA      5999
                                                                                                                 GRA      6000
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   138
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PAC                 IRA 
  
          3623  55111                             SA1    A1-B1       C2W = RCT(J+1)                              GRA      6001
                     5222000130 C                 SA2    RVT+X2                                                  GRA      6002
                               43352              MX3    -IH.CAL                                                 GRA      6003
          3624  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
          3625  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
          3626  0400003111 +                      EQ     TYIT                                                    GRA      6010
                                                                                                                 FCC0646    34
                                        *         IT = 4 , GET RJ FROM LINK WORK OF RF IN *SEQ*.                 FCC0646    35
                                                                                                                 FCC0646    36
          3627  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
          3630  0315003632 +                      NZ     X5,PAC5     IF F " 0                                    FCC0646    41
                                                                                                                 FCC0646    42
                          5222000130 C            SA2    RVT+X2      J = RVT(REGN1)                              FCC0646    43
          3631  43300                             MX3    0           K = 0                                       FCC0646    44
                     76110                        SX1    B1          ZB = 1                                      FCC0646    45
                          0400003636 +            EQ     PAC8                                                    FCC0646    46
                                                                                                                 FCC0646    47
          3632  53355                    PAC5     SA3    "SB"+X5     LFW = [SB+F]                                FCC0646    48
                     0323003633 +                 PL     X3,PAC6     IF ^INB[LFW]                                FCC0646    49
                               20352              LX3    -I.BRP      LFW = SHIFT(LFW,-I.BRP)                     FCC0646    50
          3633  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
          3634  0317003635 +                      NZ     X7,PAC7     IF REGN2 " 0  */ RF IS IN *RCT*             FCC0646    54
                          5232000130 C            SA3    RVT+X2      K = RVT(REGN1)                              FCC0646    55
          3635  7225000000               PAC7     SX2    X5+         J = F                                       FCC0646    56
                                                                                                                 FCC0646    57
          3636  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
          3637  20240                             LX2    R1.RJP                                                  FCC0646    61
                     20320                        LX3    R1.RKP                                                  FCC0646    62
                          12223                   BX2    X2+X3                                                   FCC0646    63
                               12526              BX5    X2+X6                                                   FCC0646    64
          3640  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
          3641  0400003111 +                      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
          3642                           PACA     BSS    0                                                       GRA      6016
          3642  12627061134000000000              OPT    PLD,SLD,SDL                                             GRA      6017
          3643  13027462136000000000              OPT    PST,SST,SDS                                             GRA      6018
          3644  12430063140000000000              OPT    STT,SA,SS                                               GRA      6019
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   139
        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
                                                  ENTRY  CUC                                                     GRA      6040
                                                  QUAL   CUC                                                     GRA      6041
                                                                                                                 GRA      6042
          3645                           CUCA     BFMW   D,(^D,RJRS,PI,USES)                                     GRA      6043
                                                                                                                 GRA      6044
          3646  0200403646 +             CUC      ROUTINE                                                        GRA      6045
          3647  5120000000 X                      SA2    O.TXT                                                   GRA      6046
                          5130000000 X            SA3    L.TXT                                                   GRA      6047
          3650  5110003645 +                      SA1    CUCA                                                    GRA      6048
                          66211                   SB2    B1+B1                                                   GRA      6049
                               63722              S"TB"  X2+B2       TB = O.TXT + 2                              GRA      6050
          3651  6160000047                        SB6    D.PSP                                                   GRA      6051
                          43055                   MX0    -R1.RIL+1                                               GRA      6052
                               56000              SA0    B0          DD = 0        */ ADDRESS OF FIRST DEAD DEF  GRA      6053
          3652  20001                             LX0    1                                                       GRA      6054
                     36623                        IX6    X2+X3                                                   GRA      6055
                          5256777773              SA5    X6-4        R1 = O.TXT + L.TXT - 4                      GRA      6056
          3653  43700                             MX7    0           [DI+1] = 0                                  GRA      6057
                     56771                        SA7    "TB"+B1     [TB+1] = 0    */ CLEAR LINK WD OF *BOS*     GRA      6058
                          0400003661 +            EQ     CUC1                                                    GRA      6059
  
  
  
          3654                                    PROCESS (PST,SST,SDS)                                          GRA      6061
          3654  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
          3655  12626                             BX6    X2+X6       PS[DIP] = 1                                 GRA      6066
                     5063000000                   SA6    A3+                                                     GRA      6067
                                                                                                                 GRA      6068
                                        *         TYPE I INSTRUCTION PROCESSING                                  GRA      6069
                                                                                                                 GRA      6070
          3656  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
          3657  36637                             IX6    X3+X7       USES[DJ] = USES[DJ] + 1                     GRA      6075
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   140
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                TYI                 CUC 
  
                     5063000000                   SA6    A3+                                                     GRA      6076
                               15550              BX5    "RN"X5                                                  GRA      6077
          3660  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
          3661                                    PROCESS (LAB,ENT,UJP,RJ3,RJ6,S,FMA,CLR)                        GRA      6084
                                                                                                                 GRA      6085
          3661  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
          3662  5133003737 +                      SA3    CUC.JT+B3                                               GRA      6090
                          0306003665 +            ZR     X6,CUC2     IF ^(^D,PI,RJRS)[DI] & USES[DI] = 0         GRA      6091
                                                                                                                 GRA      6092
          3663  63430                             SB4    X3                                                      GRA      6093
                     76710                        SX7    B1                                                      GRA      6094
                          0244000000              JP     B4          JUMP( ([UC.JT( OC[R1] )] )                  GRA      6095
                                                                                                                 GRA      6096
          3664                                    PROCESS DAR                                                    GRA      6097
          3664  43363                             MX3    -D.USESL                                                GRA      6098
                     15643                        BX6    -X3*X4                                                  GRA      6099
                          0316003656 +            NZ     X6,TYI      IF USES[DI] " 0                             GRA      6100
                                                                                                                 GRA      6101
                                        *         USELESS DEF, MARK AS DEAD                                      GRA      6102
                                                                                                                 GRA      6103
          3665  54640                    CUC2     SA6    A4          [DI] = 0                                    GRA      6104
                     54050                        SA0    A5          DD = R1                                     GRA      6105
                          0400003661 +            EQ     CUC1                                                    GRA      6106
                                                                                                                 GRA      6107
          3666                                    PROCESS EOS                                                    GRA      6108
          3666  73750                             SX7    X5                                                      GRA      6109
                     0307003661 +                 ZR     X7,CUC1     IF IH[R1] = 0 */ NOT AN OPT=2 *EOS*         GRA      6110
                                                                                                                 GRA      6111
          3667                                    PROCESS NOP                                                    GRA      6112
          3667  43600                             MX6    0                                                       GRA      6113
                     0400003665 +                 EQ     CUC2                                                    GRA      6114
                                                                                                                 GRA      6115
          3670                                    PROCESS DWL                                                    GRA      6116
          3670  15450                             BX4    "RN"X5                                                  GRA      6117
                     53347                        SA3    "TB"+X4     DIP = TB + RI[R1]                           GRA      6118
                          36637                   IX6    X3+X7       USES[DIP] = USES[DIP] + 1                   GRA      6119
                               54630              SA6    A3                                                      GRA      6120
          3671  0400003656 +                      EQ     TYI                                                     GRA      6121
                                                                                                                 GRA      6122
          3672                                    PROCESS (UP,NR,RNZ)                                            GRA      6123
          3672  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
          3673  54630                             SA6    A3                                                      GRA      6128
                     0400003661 +                 EQ     CUC1                                                    GRA      6129
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   141
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                RS                  CUC 
  
          3674                                    PROCESS RS                                                     GRA      6131
          3674  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
          3675  43363                             MX3    -D.USESL                                                GRA      6136
                     63360                        SB3    X6          LKT = SOLK[R1]                              GRA      6137
                          0723003704 +            GT     B3,B2,RS2   IF LKT = 3    */ RJ RS                      GRA      6138
                                                                                                                 GRA      6139
          3676  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
          3677  0431003701 +                      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
          3700  54620                             SA6    A2                                                      GRA      6148
                     0400003661 +                 EQ     CUC1                                                    GRA      6149
                                                                                                                 GRA      6150
          3701  15723                    RS1      BX7    -X3*X2                                                  GRA      6151
                     54620                        SA6    A2                                                      GRA      6152
                          0317003661 +            NZ     X7,CUC1     IF USES[DIP] " 0                            GRA      6153
                                                                                                                 GRA      6154
          3702  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
          3703  0400003661 +                      EQ     CUC1                                                    GRA      6159
                                                                                                                 GRA      6160
          3704  15643                    RS2      BX6    -X3*X4                                                  GRA      6161
                     20750                        LX7    D.RJRSP                                                 GRA      6162
                          0306003706 +            ZR     X6,RS3      IF USES[DI] = 0                             GRA      6163
          3705  12672                             BX6    X7+X2       RJRS[DIP] = 1                               GRA      6164
                     54620                        SA6    A2                                                      GRA      6165
                          0400003661 +            EQ     CUC1                                                    GRA      6166
                                                                                                                 GRA      6167
          3706  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
          3707  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
          3710  54630                             SA6    A3                                                      GRA      6176
                     0400003661 +                 EQ     CUC1                                                    GRA      6177
  
  
          3711                                    PROCESS DEF                                                    GRA      6179
          3711  20747                             LX7    D.PSP                                                   GRA      6180
                     15647                        BX6    -X7*X4      PS[DI] = 0                                  GRA      6181
                          54640                   SA6    A4                                                      GRA      6182
          3712  0400003661 +                      EQ     CUC1                                                    GRA      6183
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   142
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                BOS                 CUC 
  
          3713                                    PROCESS BOS                                                    GRA      6185
          3713  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
          3714  0460003646 +                      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
          3715  54444                    BOS1     SA4    A4+B4       DI = DI + 4                                 GRA      6197
                     0304003715 +                 ZR     X4,BOS1     IF [DI] = 0                                 GRA      6198
                                                                                                                 GRA      6199
                               55542              SA5    A4-B2       R1 = DI - 2                                 GRA      6200
          3716  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
          3717  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
          3720  66664                             SB6    B6+B4       SI = SI + 4                                 GRA      6209
                     0530003715 +                 NZ     B3,BOS1     IF OC[R1] " 0                               GRA      6210
                                                                                                                 GRA      6211
                               67572              SB5    "TB"-B2                                                 GRA      6212
          3721  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
          3722  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , OTL )                          GRA      6216
          3723  5140000000 X                      SA4    O.TXT                                                   GRA      6217
                          63720                   SB7    X2                                                      GRA      6218
                               43200              MX2    0                                                       GRA      6219
          3724  53040                             SA0    X4                                                      GRA      6220
                     0100000000 X                 CALL   RNI         RENUMBER THE INSTRUCTIONS                   GRA      6221
          3725  7160000000                        SX6    0                                                       GRA      6222
                          5160000000 X            SA6    L.RND       L.RND = 0                                   GRA      6223
          3726  0400003646 +                      EQ     CUC                                                     GRA      6224
  
  
  
          3727                                    PROCESS (ST,TST)                                               GRA      6226
          3727  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
          3730  12662                             BX6    X6+X2       PS[DIP] = 1                                 GRA      6231
                     54630                        SA6    A3                                                      GRA      6232
                                                                                                                 GRA      6233
          3731                                    PROCESS (LD,ILD,TLD,STT,KLS,KRS)                               GRA      6234
          3731  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
          3732  36627                             IX6    X2+X7       USES[DJ] = USES[DJ] + 1                     GRA      6239
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   143
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                TYIII               CUC 
  
                     54620                        SA6    A2                                                      GRA      6240
                          0400003661 +            EQ     CUC1                                                    GRA      6241
  
  
          3733                                    PROCESS JPBB                                                   GRA      6243
          3733  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
          3734  36627                             IX6    X2+X7       USES[DJ] = USES[DJ] + 1                     GRA      6248
                     54620                        SA6    A2                                                      GRA      6249
                                                                                                                 GRA      6250
          3735                                    PROCESS (JIN,JPX)                                              GRA      6251
          3735  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
          3736  0400003661 +                      EQ     CUC1                                                    GRA      6256
                                                                                                                 GRA      6257
                                                  QUAL                                                           GRA      6258
                                3012 +   IRA      EQU    /IRA/IRA                                                GRA      6259
                                3646 +   CUC      EQU    /CUC/CUC                                                GRA      6260
  
  
                                        **        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
                                        -         JP     /CUC/TYI    NAM                                         GRA      6280
                                                  SKIP   1                                                       GRA      6281
                                        -         JP     377777B                                                 GRA      6282
                                         O        ENDIF                                                          GRA      6283
                                                  ENDM                                                           GRA      6284
                                                                                                                 GRA      6285
          3737                           IRA.JT   BSS    0                                                       GRA      6286
          3737                           CUC.JT   BSS    0                                                       GRA      6287
          3737                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
                                                                                                                 GRA      6289
          4043                                    END                                                            GRA      6290
  
                             71600B CM  STORAGE USED            12533 STATEMENTS     1743 SYMBOLS      000015 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           10.146 SECONDS        2964 REFERENCES
  
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   144
        SYMBOLIC REFERENCE TABLE. 
  
        AAD          2107   PROGRAM*       72/08     82/07 L   82/38
        AAD1         2117   PROGRAM*       82/13     82/19     82/25 L
        ABR           167   TABLES         40/14 S   44/45     46/26     64/32 S
        ACT           206   TABLES         60/36 S   60/51 S   61/04     61/48 S   62/08    125/23
        ADW=            0   EXTERNAL*      90/26
        AFA          2146   PROGRAM*       68/31     81/09     84/10 L   84/26
        AIR          1060   PROGRAM*       41/27     44/04     44/23     46/20 L   46/48     74/44     82/56
        AIR1         1056   PROGRAM*       46/11 L   46/23
        AIS             0   EXTERNAL*     110/08
        AI.BASEP       71                  64/18 D   66/49     68/01
        AI.FPP         22                  64/22 D   71/05     71/41
        AI.INDXL       22                  64/23 D
        AI.INDXP        0                  64/23 D   67/54
        AI.LENL        22                  64/20 D
        AI.LENP        25                  64/20 D   66/47     67/54     67/56     71/08     71/52     72/10     72/25
        AI.NIHL        22                  64/19 D
        AI.NIHP        47                  64/19 D   66/51     67/56     68/01
        APF           162   TABLES         18/38 S   28/33     30/30
        ASPA         1165   PROGRAM*       51/21 L   51/35
        ASP1         1174   PROGRAM*       51/40 L   51/49
        ASP2         1175   PROGRAM*       51/38     51/43 L   51/46     51/54     52/02     52/07
        ASP3         1202   PROGRAM*       52/01     52/04 L
        ATI           220   TABLES         67/21 S   67/46
        ATS=            0   EXTERNAL*      12/21     40/23     54/19     67/35     87/28     98/17    142/32
                                           18/19     47/23     64/33     75/50     88/01    112/34
        AUM1         2617   PROGRAM*      103/37 L  103/40    103/48    104/03    104/07    104/12
        AUM2         2627   PROGRAM*      103/54    103/55    104/05 L
        AUM3         2630   PROGRAM*      103/50    103/52    104/09 L
        BA.BIL         22 
        BA.BIP         44                 110/41    111/14
        BA.LENL        22 
        BA.LENP        22 
        BC.COL         22                  64/12 D
        BC.COP          0                  64/12 D
        BC.IHL         22                  64/10 D   66/19
        BC.IHP         33                  64/10 D   65/46     66/21     70/46
        BC.NOCCL       11                  64/11 D
        BC.NOCCP       22                  64/11 D   65/26
        BC.RFL         17                  64/09 D
        BC.RFP         55                  64/09 D   65/48     66/15     66/27     68/04
        BI.CBP         72   FTNTEXT       110/49    110/51    111/27
        BI.ILP         71   FTNTEXT       110/44
        BI.PCL          2   FTNTEXT       110/46
        BI.PCP         44   FTNTEXT       110/51
        BI.PIIL        21   FTNTEXT        99/19
        BI.PIIP        44   FTNTEXT        99/20     99/42
        BSI             0   EXTERNAL*      59/14 S  104/19 S  106/56    107/43 S  110/14
                                           87/09 S  105/16    107/18    107/45    110/37
        BSW             0   EXTERNAL*      31/20 S
        BS.CLL         17                 103/05 D
        BS.CLP         46                 103/05 D  106/53
        BS.CLPCL       21                 103/10 D  111/16
        BS.CLPCP       44                 103/10 D  111/19
        BS.LENL        22                 103/08 D
        BS.LENP         0                 103/08 D
        BS.PCL          2                 103/06 D
        BS.PCP         44                 103/06 D  103/10    106/54    110/19
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   145
        SYMBOLIC REFERENCE TABLE. 
  
        BVL             0   EXTERNAL*      13/06     99/45    101/08    114/09
        B1=1            0 
        CAIH          221   TABLES         72/35 S   81/18 S   82/08     82/14
        CA.ACP         70                  16/09     21/50     36/53     59/49     83/39     93/34    113/37
                                           16/11     23/49     37/38     65/14     86/48    100/38
                                           20/49     25/13     59/47     83/03     86/54    100/40
        CA.APLNL        2                  18/35
        CA.APLNP       52                  18/37
        CA.CONP        67                  12/56     19/57     47/13     58/13     62/43     75/54     85/40     92/04
                                           17/13     43/16     49/47     60/22     65/10     76/20     86/54    128/23
                                           19/26     45/44     49/51     61/11     65/12     78/13     91/42    135/34
        CA.CTL          3                  28/06
        CA.CTP         67                  28/07
        CA.DEFP        25                  14/18     14/45     15/47     21/28     41/24     49/51    100/45    103/12
                                           14/22     15/42     21/21     29/45     44/21     50/10    100/47
        CA.DUL          2                  13/11
        CA.DUP         24                  13/38     14/18
        CA.EUP         63                  16/48     31/13     32/56     34/08     35/07     42/02    103/35    135/34
                                           28/57     31/14     33/07     34/13     35/46     42/56    131/51
                                           30/07     32/08     33/23     34/37     36/18     45/11    131/53
                                           30/44     32/34     33/38     34/40     36/31     45/31    133/36
                                           31/12     32/42     33/40     34/42     40/05     68/54    135/31
        CA.FPP         66                  23/47     23/49     28/19     28/20     71/01     71/05     72/29
        CA.IAP         60                  33/40     45/49    103/13
        CA.IRAP        72                  40/05    121/24    128/11    128/23    136/20
        CA.KDP         22                  16/49     45/50    100/34    129/13    135/04
                                           17/21     77/43    100/38    129/26    135/21
        CA.LXP         23                  14/10     40/05     51/37     57/15     62/43     93/19
                                           16/51     43/21     57/13     62/40     93/17    103/12
        CA.NOCCL       11                  59/50     64/40     72/28     73/44     85/15
        CA.NOCCP       41                  20/15     45/31     60/55     65/26     73/46     85/17
                                           28/39     59/49     64/42     72/27     74/09
        CA.NOC2L       10                  72/28 D   72/29
        CA.NOC2P       42                  72/27 D   72/29
        CA.PLP         27                  13/47     13/49     14/05     21/20     21/21     83/03     86/54
        CA.PRFTL        3 
        CA.PRFTP       54                  13/23     13/49     14/41
        CA.PSPP        26                  13/26     51/57     93/19    103/12    132/26
                                           14/15     57/15    100/47    131/53    132/45
        CA.RAFL         2 
        CA.RAFP        72 
        CA.RAP         73                  15/47     17/21     47/14     57/13     65/12     76/20    100/40    128/11
                                           16/22     43/08     51/37     58/13     65/14     93/17    100/45    129/13
                                           16/27     45/49     51/57     58/14     74/03     93/34    127/04
        CA.RFP         62                  12/56     16/46     21/37     33/43     35/35     40/04     47/14    119/04
                                           16/31     19/30     31/12     34/45     36/49     45/49    103/13    119/21
        CA.SORTL       30                  40/28     47/28
        CA.SORTP       30                  40/30     47/30
        CA.SUSEL       11                  16/23     43/12     62/27
        CA.SUSEP       30                  15/03     16/22     24/26     29/08     43/16     62/28     63/12
                                           15/09     16/27     28/41     43/08     43/20     62/31
        CA.TUP         57                  14/22     31/14     34/42     41/22     41/41     43/46     68/16
                                           15/09     34/13     34/45     41/24     41/56     45/10
        CA.UDIL        22                  28/26
        CA.UDIP         0 
        CA.USEP        24                  14/53     21/20     21/36
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   146
        SYMBOLIC REFERENCE TABLE. 
  
        CA.VCP         71                  13/13     17/21     24/19     36/41     45/49    103/12    127/04
                                           13/38     21/45     24/31     36/49     47/13    103/13    129/26
                                           14/30     21/50     27/27     37/38     58/14    113/33
                                           16/11     23/53     36/07     40/04     92/04    113/37
        CA.^RDP        61                  14/45     14/53     31/13     36/31     40/42     45/50
        CC.H2L         22                  30/49     83/29
        CC.H2P         22                  20/54     30/49     65/18     70/17     83/18     83/31     95/17
        CC.IMP         71                  30/27     60/28     79/15    125/29
        CC.INCL        22 
        CC.INCP        44                  30/31     60/13     61/45     78/10     85/37    125/26
                                           45/41     60/14     64/56     79/15    103/44    125/29
                                           60/08     61/07     74/19     85/27    103/53
        CC.I1P         73                  60/06
        CC.I2P         72                  29/20     30/20     30/36     60/06     60/08    103/53
        CC.MITL         6                  30/49
        CC.MITP         6                  25/16     30/49    136/40    136/43
        CC.REGFL       22                 109/20
        CC.REGFP        0 
        CC.REG1L        6                  42/49     62/57     75/02    103/27    119/36    127/17    129/33    136/37
                                           46/14     68/06     76/26    109/16    125/37    128/40    135/12
        CC.REG1P        0                  65/34    103/44    136/40
        CC.REG2L        6 
        CC.REG2P       14                  69/09     73/15     75/06     82/32    136/43
        CIS          2765   PROGRAM*      106/17    110/12    110/34 L  110/57
        CIS1         2772   PROGRAM*      110/48 L  110/50
        CIS2         2774   PROGRAM*      110/45    110/54 L
        CIT           223   TABLES         71/10 S   71/32     71/57 S   72/09     72/39 S
                                           71/19     71/44     72/02     72/15     73/26
        CL            216   TABLES         65/56 S   73/43     85/14
        CLB          2610   PROGRAM*       11/52    103/15 L  107/32    107/52
        CLBA         2606   PROGRAM*      103/12 L  104/29
        CLBB         2607   PROGRAM*      103/13 L  103/30
        CLB1         2631   PROGRAM*      103/31    103/38    104/17 L  108/07
        CLB10        2702   PROGRAM*      105/20    107/05    107/07    107/18 L
        CLB11        2710   PROGRAM*      107/37 L  107/48
        CLB12        2715   PROGRAM*      107/42    107/47 L
        CLB13        2716   PROGRAM*      107/41    107/50 L
        CLB14        2720   PROGRAM*      106/18    108/03 L
        CLB17        2723   PROGRAM*      108/04    108/12 L
        CLB2         2637   PROGRAM*      104/32    104/35 L  104/49
        CLB3         2643   PROGRAM*      104/36    104/39    104/48 L
        CLB4         2645   PROGRAM*      104/56 L  107/24
        CLB4A        2656   PROGRAM*      105/10    105/22 L
        CLB8         2666   PROGRAM*      106/34 L  106/39
        CLB9         2670   PROGRAM*      106/23    106/44 L
        CLW          2733   PROGRAM*      108/12    108/31 L  108/44
        CLW1         2737   PROGRAM*      108/40 L  108/42
        CMR          1271   PROGRAM*       49/05     56/21 L
        CMRA         1267   PROGRAM*       56/14 L   56/27
        CMR0         1270   PROGRAM*       56/16 L   56/43
        CMR1         1277   PROGRAM*       56/37 L   56/55
        CMR2         1300   PROGRAM*       56/38     56/40 L
        CMR4         1302   PROGRAM*       56/33     56/53     57/12     57/16     57/21
                                           56/50 L   56/57     57/14     57/19
        CMR6         1311   PROGRAM*       57/08     57/18 L
        CRW          1166   PROGRAM*       48/37     51/23 L   51/26     52/54     52/56
        CRWA         1164   PROGRAM*       47/57 S   48/32 S   51/20 L   54/01
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   147
        SYMBOLIC REFERENCE TABLE. 
  
        CRW0         1204   PROGRAM*       51/41     52/11 L
        CRW1         1207   PROGRAM*       52/23 L   52/42     52/48     53/34     53/37     53/44     53/51     53/55
        CRW10        1237   PROGRAM*       53/40     53/46 L
        CRW2         1214   PROGRAM*       52/29     52/40 L
        CRW3         1216   PROGRAM*       52/28     52/46 L
        CRW4         1223   PROGRAM*       52/46     53/03 L
        CRW5         1224   PROGRAM*       53/04     53/06 L
        CRW7         1226   PROGRAM*       52/34     52/36     53/10     53/16 L   53/29
        CRW8         1232   PROGRAM*       53/18     53/23     53/27     53/29 L
        CRW9         1233   PROGRAM*       52/41     53/33 L
        CUC          3646   PROGRAM*      105/29    139/20 E  143/22 D
        CUC.JT       3737   PROGRAM*      140/15    143/50 L
        CXB          2752   PROGRAM*      110/03 E  110/03 L  110/06    110/25
        DAA          1316   PROGRAM*       11/43     58/21     58/26     58/35     58/39     59/06     61/56
                                           58/16 L   58/23     58/28     58/36     58/43     60/45     63/41
        DAAA         1313   PROGRAM*       58/12 L   59/24
        DAAB         1315   PROGRAM*       58/14 L   62/09     65/29
        DAA0         1324   PROGRAM*       58/20     58/27 L
        DAA0A        1334   PROGRAM*       58/41     58/47 L
        DAA1         1343   PROGRAM*       59/07     59/10     59/12 L
        DAA10        1422   PROGRAM*       62/08 L   63/35
        DAA10A       1437   PROGRAM*       62/42     62/44     62/56 L
        DAA11        1444   PROGRAM*       62/34     62/41     63/18 L   63/21
        DAA2         1352   PROGRAM*       59/33 L   59/40     59/48     60/05     60/11     60/39
                                           59/36     59/46     59/52     60/07     60/23
        DAA3         1372   PROGRAM*       60/21     60/36 L
        DAA4         1374   PROGRAM*       59/38     60/45 L
        DAA5         1400   PROGRAM*       61/03 L   61/54
        DAA7         1414   PROGRAM*       61/08     61/16     61/33     61/44 L
        DAA8         1417   PROGRAM*       61/12     61/18     61/28     61/40     61/53 L
        DAA9         1420   PROGRAM*       61/05     61/51     61/56 L
        DMASK           0   EXTERNAL*     121/01    127/46
        DTL           250   TABLES        105/08    113/56 S
        DUM           443   PROGRAM*       11/17     38/41 D
        DUMA          437   PROGRAM*       31/12 L   32/29     32/37     32/50
        DUMB          440   PROGRAM*       31/13 L   33/17
        DUMC          441   PROGRAM*       31/14 L   33/42
        DUM.JT        611   PROGRAM*       31/48     39/34 L  130/32
        DVA             3   GPOGRA
        DXA          1073   PROGRAM*       11/40     47/16 L   47/56     48/49     50/25
                                           11/47     47/20     48/41     49/08
        DXAA         1071   PROGRAM*       47/13 L   47/32
        DXA1         1104   PROGRAM*       47/39 L   47/42     47/44     47/50
        DXA10        1150   PROGRAM*       49/43 L   50/20
        DXA11        1154   PROGRAM*       49/48     49/49     49/53     49/56 L   50/04
        DXA2         1110   PROGRAM*       47/40     47/52 L
        DXA3         1116   PROGRAM*       48/14 L   48/23
        DXA4         1121   PROGRAM*       48/22     48/28 L
        DXA4A        1122   PROGRAM*       47/18     48/31 L
        DXA5         1123   PROGRAM*       48/01     48/34 L   48/47
        DXA6         1130   PROGRAM*       48/31     48/45 L
        DXA7         1132   PROGRAM*       48/39     49/05 L
        DXA8         1141   PROGRAM*       49/14     49/17     49/23 L
        DXA9         1145   PROGRAM*       49/26     49/28     49/31 L
        D.BML           1   FTNTEXT        51/21     56/14     58/12
        D.BMP          52   FTNTEXT        51/21     51/45     56/14     56/52     56/56     58/12     59/35     59/39
        D.FPP          25   FTNTEXT        28/20     37/36     93/50     97/16
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   148
        SYMBOLIC REFERENCE TABLE. 
  
        D.INCP         22   FTNTEXT        20/27     22/06     28/44     33/36     34/37     36/16     37/30    129/15
                                           20/32     22/09     28/49     34/11     35/44     37/26     37/36
        D.JPP          41   FTNTEXT        38/32
        D.LDL           1   FTNTEXT        56/14     58/12
        D.LDP          43   FTNTEXT        56/14     57/05     58/12     60/20     89/27    133/19
        D.L2P          44   FTNTEXT        56/56     59/39
        D.PIL           1   FTNTEXT       139/23
        D.PIP          36   FTNTEXT       131/22    139/23
        D.PRSP         46   FTNTEXT        19/12     53/39     53/46    118/14    128/14    136/15    141/10    141/12
        D.PSP          47   FTNTEXT        20/32    120/04    135/57    136/15    139/31    141/12    141/51
        D.RFP          23   FTNTEXT        21/34     21/36     21/37
        D.RJRSL         1   FTNTEXT       139/23
        D.RJRSP        50   FTNTEXT       139/23    141/32
        D.STL           1   FTNTEXT        51/21     56/14
        D.STP          42   FTNTEXT        28/49     28/54     51/21     56/14
        D.SZP          27   FTNTEXT        94/14    130/27
        D.TYL           2   FTNTEXT        25/52     31/32    116/38
        D.TYP          72   FTNTEXT        22/09     52/33     52/40     53/03
        D.USESL        11   FTNTEXT        20/07     52/15    132/17    140/23    142/02
                                           28/36    121/52    139/23    141/06
        D.USESP         0   FTNTEXT        20/11     28/44     53/46    132/23    139/23
        D.XUP          24   FTNTEXT        28/54    131/07
        D.ZPP          32   FTNTEXT       137/33    138/43
        D.^DL           1   FTNTEXT       139/23
        D.^DP          51   FTNTEXT        52/33     52/40     53/03     53/39    139/23
        EBV             0   EXTERNAL*      12/40
        ECC          2155   PROGRAM*       81/45     85/13 L   85/47
        ECC0         2154   PROGRAM*       85/09 L   85/25
        ECC1         2161   PROGRAM*       85/20     85/23 L   85/29
        EDC          2123   PROGRAM*       72/55     82/21     82/44 L   83/01
        EDCA         2131   PROGRAM*       70/20     82/46     83/03 L
        EMF            13   GPOGRA
        EPSI           33   GPOGRA         98/11    114/03
        ERC           162   PROGRAM*       11/18     30/52 D
        ERC.JT        611   PROGRAM*       18/50     39/35 L
        E.ALLPP        71                  98/34     99/15
        E.BIL          17                  99/13
        E.BIP           0                  99/15
        E.JPP          72                 114/25
        E.LINKL        22 
        E.LINKP        17 
        E.NPREDL       11 
        E.NPREDP       60 
        E.PREDL        17                 114/16
        E.PREDP        41                 114/19    114/21
        E.SCRP         73                 114/21    114/25
        FBA           163   TABLES         15/27     25/28 S   42/21
        FLB          2600   PROGRAM*      101/36    102/19 L  102/28    102/34
        FLB1         2604   PROGRAM*      102/22    102/30 L
        F.CLC         100   TABLES         12/15 S
        F.RDT           0   EXTERNAL*      93/52    112/56    116/20    123/10    130/22    137/35    138/36
                                           97/15    113/10    117/55    126/39    134/16    138/06
        GRA             2   PROGRAM*       11/06 E   11/06 L   12/07
        GRASRF          1   PROGRAM*       11/04 E   11/04 L   12/06 S   69/15 S
        GRA0            4   PROGRAM*       11/10 L  108/25
        GRA1           24   PROGRAM*       11/32     11/47 L
        GRA2           25   PROGRAM*       11/30     11/38     11/45     11/49 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   149
        SYMBOLIC REFERENCE TABLE. 
  
        GRA3           26   PROGRAM*       11/15     11/52 L
        HBI             0   EXTERNAL*      90/53
        IAI           160   TABLES         16/40     29/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   FTNTEXT        22/02     86/50     92/39     95/16     98/25    115/13    131/26
        IH.CAL         22   FTNTEXT        19/19     62/18     74/52     81/23     91/41    113/11    125/53    138/03
                                           60/29     70/03     75/51     83/26    113/09    125/52    125/55
        IH.CAP         22   FTNTEXT        12/29     20/35     61/14     66/37     77/42     83/21     93/24    135/43
                                           16/03     20/39     62/14     68/38     78/22     83/22    113/11    138/05
                                           19/09     24/43     62/16     70/07     80/26     83/28    125/52
                                           19/21     29/34     62/20     70/08     80/42     85/16    125/55
                                           19/41     42/20     62/23     70/14     81/16     91/08    126/44
                                           19/51     44/30     62/25     74/54     81/28     91/46    128/38
                                           19/53     60/31     62/48     75/56     81/34     91/49    135/41
        IH.IHP          0   FTNTEXT        61/24     78/45
        IH.MSKP        73                  19/30
        IH.RFL         22   FTNTEXT        78/32
        IH.RFP         44   FTNTEXT        16/01     22/20     36/40     72/42    117/42    125/50    131/27    143/07
                                           16/03     24/10     53/08     78/34    117/56    126/13    137/20
                                           20/28     24/34     59/55     78/35    121/02    126/40    137/36
                                           20/35     24/43     60/18     81/14    121/11    127/12    138/08
                                           20/47     24/48     62/25     92/14    123/11    127/39    138/15
                                           21/55     27/37     65/24     92/40    123/18    127/49    138/37
                                           22/12     34/32     69/47     96/53    123/53    128/31    142/54
        IH.SIAP        67   FTNTEXT        97/20
        IH.SRFP        66   FTNTEXT       137/41
        IRA          3012   PROGRAM*      105/05    143/21 D
        IRA.JT       3737   PROGRAM*      116/54    143/49 L
        IRP            34   PROGRAM*       11/10     12/13 L   12/47     12/54
        IRPA           53   PROGRAM*       12/20     12/56 L
        IRP1           47   PROGRAM*       12/36     12/45 L
        ITL            14   GPOGRA         90/35     93/25
        IT.             0   EXTERNAL*      77/23
        I.COL          22                  51/18 D
        I.COP           0                  51/18 D
        I.USESL        22                  51/17 D
        I.USESP        22                  51/17 D   52/17     53/21     53/25     53/46
        LBN           247   TABLES        112/46 S  114/17    117/07 S
        LCT           164   TABLES         11/21 S  100/10    103/28
        LCV            21   GPOGRA         41/29 S   76/47     77/06     77/24     79/22     88/19    126/29
        LEA             7   GPOGRA         13/07    100/13
        LGL            16   GPOGRA        123/40
        LIH            25   GPOGRA        123/50    125/02    126/32
        LIV          2343   PROGRAM*       88/17     88/57     89/05     89/54     91/38 L   92/02     92/10     92/24
        LIV1         2351   PROGRAM*       91/51     91/53     91/56 L
        LIV2         2353   PROGRAM*       91/43     92/04 L
        LIV3         2356   PROGRAM*       92/05     92/14 L
        LIV4         2361   PROGRAM*       92/16     92/22 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   150
        SYMBOLIC REFERENCE TABLE. 
  
        LTT            30   GPOGRA         34/04     41/12     45/01
        LUL            23   GPOGRA         41/39     44/06 S   76/22     76/45     79/26 S   88/33    126/28
                                           42/52 S   75/44     76/31     77/04     87/41    108/21 S
        LUV             4   GPOGRA         12/37     18/23    100/12    114/50
        LXA             6   GPOGRA        101/07
        L.BIT           0   EXTERNAL* 
        L.BST           0   EXTERNAL*     107/19
        L.CLC         130                  12/15
        L.HB            0   EXTERNAL*     123/26
        L.IIT           0   EXTERNAL* 
        L.MOD           0   EXTERNAL*      90/16 S
        L.PIT           0   EXTERNAL*     104/21 S  106/45    107/14 S  107/31    107/51 S  108/19 S  110/16    110/24 S
        L.PSI           0   EXTERNAL*      99/52 S
        L.RB            7   FTNTEXT        61/35     79/01     96/38
        L.RCT           0   EXTERNAL*      11/19     13/05     40/25     45/09     64/27     69/53     82/45    108/20 S
                                           12/04 S   18/13 S   42/25     47/25     67/39 S   78/29     85/33
        L.RL            2   FTNTEXT        61/30     78/53     96/38
        L.RND           0   EXTERNAL*      44/50 S   47/55 S   55/01 S   67/22 S   75/41 S  142/39 S
        L.RXI           0   EXTERNAL*      12/05 S
        L.SEQ           0   EXTERNAL*      51/24     54/41     58/24     90/12    105/02    108/33    110/04    112/31
        L.TET           0   EXTERNAL*      90/36     91/27 S
        L.TXT           0   EXTERNAL*     104/57 S  106/27    108/17 S  115/27 S  142/30 S
                                          105/07    107/27 S  110/23 S  139/27
        L.UDT           1   GPOGRA
        MAA           204   TABLES         59/12 S   60/47
        MARA            0   PROGRAM*       11/03 L   11/08 S   58/56    108/15 S
        MAXW           34   GPOGRA         11/34
        MAX.INC       101                  61/17
        MCG             0   EXTERNAL*     110/56
        MDA            10   GPOGRA
        MFA          1454   PROGRAM*       11/49     64/25 L   75/42     76/40     76/56     77/16     79/40
        MFAC         1656   PROGRAM*       72/03     72/24 L
        MFAD         1657   PROGRAM*       65/40     72/29 L   72/48
        MFA1         1465   PROGRAM*       64/50 L   65/11
        MFA10        1544   PROGRAM*       67/46 L   69/39     70/25     70/40     73/31
                                           68/32     69/51     70/32     72/22
        MFA10A       1557   PROGRAM*       68/18     68/23 L
        MFA11        1560   PROGRAM*       68/31 L   68/44     68/51     68/55
        MFA12        1562   PROGRAM*       68/27     68/36 L
        MFA13        1603   PROGRAM*       69/33     69/43 L
        MFA14        1615   PROGRAM*       70/15     70/20 L
        MFA2         1470   PROGRAM*       64/46     65/07 L   65/15     65/37     65/53
                                           64/53     65/13     65/20     65/44
        MFA2B        1502   PROGRAM*       65/27     65/32     65/37 L
        MFA2C        1505   PROGRAM*       65/35     65/42     65/46 L
        MFA20        1617   PROGRAM*       68/23     70/30 L
        MFA3         1510   PROGRAM*       65/08     65/55 L
        MFA30        1621   PROGRAM*       70/30     70/37 L
        MFA31        1624   PROGRAM*       70/50 L   70/54     71/16
        MFA32        1632   PROGRAM*       71/12     71/14 L
        MFA33        1636   PROGRAM*       71/32 L   71/38
        MFA34        1640   PROGRAM*       71/35     71/38 L
        MFA34A       1642   PROGRAM*       71/40     71/44 L
        MFA35        1646   PROGRAM*       72/02 L   72/12     72/20
        MFA4         1520   PROGRAM*       66/27 L   67/05
        MFA40        1660   PROGRAM*       68/11     68/17     68/21     70/38     71/22     71/42     72/34 L
        MFA41        1661   PROGRAM*       72/37 L   73/29
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   151
        SYMBOLIC REFERENCE TABLE. 
  
        MFA45        1670   PROGRAM*       72/46     73/02 L
        MFA46        1675   PROGRAM*       73/11     73/21 L
        MFA47        1676   PROGRAM*       72/52     72/53     73/19     73/26 L
        MFA48        1700   PROGRAM*       66/06     67/50     73/34 L
        MFA48A       1703   PROGRAM*       73/36     73/43 L
        MFA49        1707   PROGRAM*       73/56 L   74/21
        MFA5         1524   PROGRAM*       66/31     66/34     66/43 L   67/12
        MFA50        1712   PROGRAM*       74/05     74/09 L
        MFA51        1713   PROGRAM*       74/07     74/13 L
        MFA52        1715   PROGRAM*       74/11     74/18 L
        MFA53        1717   PROGRAM*       74/16     74/23 L
        MFA54        1725   PROGRAM*       74/33     74/39 L   74/46
        MFA55        1730   PROGRAM*       74/35     74/40     74/50 L
        MFA56        1732   PROGRAM*       74/57 L   75/34
        MFA57        1734   PROGRAM*       75/08 L   75/30
        MFA58        1740   PROGRAM*       75/15     75/23 L
        MFA59        1742   PROGRAM*       75/08     75/18     75/29 L
        MFA6         1530   PROGRAM*       66/23     67/01 L   67/08     67/10
        MFA6A        1000   PROGRAM*       43/14     43/19 L
        MFA60        1744   PROGRAM*       73/38     74/23     74/34     74/51     75/39 L
        MFA60A       1756   PROGRAM*       76/12 L   76/14     76/19     76/21
        MFA60B       1765   PROGRAM*       76/06     76/16     76/31 L
        MFA61        1767   PROGRAM*       75/46     76/38 L
        MFA62        1771   PROGRAM*       76/45 L   78/04
        MFA63        1776   PROGRAM*       76/41     77/03 L
        MFA64        2003   PROGRAM*       77/03     77/20 L
        MFA65        2011   PROGRAM*       77/36 L   77/55
        MFA66        2017   PROGRAM*       77/37     77/40     77/46     77/48     77/54 L   78/14     79/11
        MFA67        2021   PROGRAM*       77/52     78/09 L
        MFA67A       2030   PROGRAM*       78/38 L   78/42     78/56     79/06
        MFA67B       2042   PROGRAM*       78/44     78/49     78/51     79/10 L
        MFA68        2043   PROGRAM*       78/24     78/39     79/15 L
        MFA7         1534   PROGRAM*       66/56     67/16 L
        MLW           201   TABLES         48/35 S   52/51     54/04 S   58/17
        ML.IIP         44   FTNTEXT        90/15
        ML.NIP         22   FTNTEXT        90/19
        MPB             0   EXTERNAL*      90/28
        MRA            15   GPOGRA         11/14     35/12     44/46     50/24 S   62/01     64/26    106/22
                                           12/49     40/08     49/10     58/47     63/40 S   87/17    108/24 S
        MRU           232   TABLES         87/15    104/20 S  106/25
        MTA           717   PROGRAM*       11/26     40/07 L   40/17     45/35
        MTAA          715   PROGRAM*       40/04 L   40/34
        MTAB          716   PROGRAM*       40/05 L   43/07     68/14
        MTAC         1054   PROGRAM*       45/28     45/49 L
        MTA1          732   PROGRAM*       40/36 L   40/39     40/43     40/48
        MTA10        1013   PROGRAM*       43/11     43/24     43/31     44/01 L
        MTA11        1017   PROGRAM*       41/15     41/25     42/10     43/02     43/47     44/14 L   44/37
                                           41/23     41/32     42/19     43/04     43/54     44/26
        MTA12        1027   PROGRAM*       40/52     43/38     44/02     44/39 L
        MTA14        1030   PROGRAM*       44/17     44/18     44/43 L
        MTA15        1041   PROGRAM*       45/17 L   45/23
        MTA16        1043   PROGRAM*       45/20     45/23 L
        MTA17        1044   PROGRAM*       45/14     45/15     45/28 L
        MTA18        1046   PROGRAM*       45/34 L   45/37     45/39     45/45     45/47
        MTA2          736   PROGRAM*       40/37     40/50 L
        MTA2A         747   PROGRAM*       41/38 L   42/14
        MTA3          760   PROGRAM*       41/42     42/05     42/18 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   152
        SYMBOLIC REFERENCE TABLE. 
  
        MTA4          764   PROGRAM*       42/30 L   42/32
        MTA5          766   PROGRAM*       41/51     42/23     42/40 L
        MTA6          774   PROGRAM*       42/43     43/06 L
        MTA7         1002   PROGRAM*       43/17     43/28 L
        MTA8         1007   PROGRAM*       43/35     43/43 L
        MVE=            0   EXTERNAL*      88/11
        M.PL           12   GPOGRA        111/18
        N             230   TABLES         87/57 S   88/18
        NAA           205   TABLES         63/39 S  103/16    107/06    108/13    125/19
        NAB           170   TABLES         40/15 S   44/01     44/44     63/08     71/18     73/34     74/45
                                           43/37     44/15     46/27     70/39     72/50     74/29
        NAC           217   TABLES         66/05 S   67/32
        NPB             0   EXTERNAL* 
        NPS           233   TABLES         98/08     98/31    104/52 S  114/02
        NTA           171   TABLES         11/35     40/16 S   44/43
        NVC           165   TABLES         15/30 S   40/22     47/22
        NXC           173   TABLES         15/26     47/17     48/45     49/31    103/17    106/16    108/03
                                           25/31     48/29 S   49/07     52/11    104/28    107/04
        NXS           231   TABLES        103/22 S  112/32
        N.CLC          21 
        N.EBB          35   GPOGRA         58/18
        N.ENL          32   GPOGRA         98/09
        N.GT            0   EXTERNAL*      91/24
        N.HB           17   GPOGRA         11/31     12/35     23/05     47/19     48/38     73/35    129/36
        N.LD          202   TABLES         49/23     56/22     58/30
        N.LJ           27   GPOGRA         12/45     58/32
        N.SBV           7 
        N.ST          203   TABLES         49/11     56/23     58/31
        OC.CLR        102   FTNTEXT        91/54    130/17
        OC.DAR          3   FTNTEXT       113/48
        OC.DEF          5   FTNTEXT       113/08    113/10    129/55
        OC.EOQ          0   FTNTEXT       115/22
        OC.EOS          2   FTNTEXT       112/56
        OC.FMA         43   FTNTEXT        91/52
        OC.IA          36   FTNTEXT        29/50     96/29
        OC.ILD         74   FTNTEXT        92/52
        OC.ILS         22   FTNTEXT       119/42
        OC.IS          37   FTNTEXT        89/10     89/29     96/17
        OC.JIN         70   FTNTEXT       123/56
        OC.JPBB        67   FTNTEXT       123/55    126/30
        OC.KLS         20   FTNTEXT       119/42
        OC.LAB          6   FTNTEXT       112/49
        OC.LD          50   FTNTEXT        92/44     93/21    125/57    127/07    136/36
        OC.PLD         53   FTNTEXT       138/52
        OC.PST         54   FTNTEXT       138/53
        OC.RS           4   FTNTEXT        52/19     86/25    123/47    126/10    131/14
        OC.S           55   FTNTEXT        91/45    130/22    130/23
        OC.SA          60   FTNTEXT        26/05     89/33     96/32    119/07    128/39    130/33    132/08    135/37
                                           88/26     96/07    115/06    120/25    129/46    130/51    133/33    138/54
        OC.SDL         61   FTNTEXT       125/35    138/52
        OC.SDS         62   FTNTEXT       138/53
        OC.SLD         56   FTNTEXT       125/33    138/52
        OC.SS          63   FTNTEXT       119/24    119/48    128/42    135/45    138/54
        OC.SST         57   FTNTEXT       138/53
        OC.ST          51   FTNTEXT       115/12    136/33
        OC.STT         52   FTNTEXT        24/07     97/15     97/17    123/42    127/15    138/54
        OC.TLD         75   FTNTEXT        93/29
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   153
        SYMBOLIC REFERENCE TABLE. 
  
        OC.TST         76   FTNTEXT        90/56
        OC.XMT         10   FTNTEXT        26/07    115/04    130/47    133/45    136/10
                                           89/57    129/43    132/33    134/40    136/24
        OIL          2363   PROGRAM*       92/19     92/23     92/35 L   94/04
        OIL0         2376   PROGRAM*       93/01     93/16 L
        OIL1         2401   PROGRAM*       92/53     93/24 L
        OIL1A        2400   PROGRAM*       93/14     93/21 L
        OIL2         2404   PROGRAM*       92/47     92/48     93/18     93/20     93/22     93/28     93/31 L
        OIL3         2406   PROGRAM*       93/35     93/41 L
        OIL4         2411   PROGRAM*       93/43     93/52 L   94/12     94/15
        OIL5         2415   PROGRAM*       92/45     94/08 L
        OPT2            0   EXTERNAL*      38/15    100/06
        ORGTAB          0   EXTERNAL*      61/37     79/03
        ORS          2171   PROGRAM*       86/28 L   88/35     89/35     90/02
        ORS0         2170   PROGRAM*       86/25 L   86/42     86/47     86/49     86/52
        OSI          2466   PROGRAM*       95/11     95/49     95/54     96/23     96/52 L   97/28
        O.BIT           0   EXTERNAL*      99/14    110/36    111/13
        O.BST           0   EXTERNAL*     105/15    106/48    107/37    110/13    110/35
        O.ENL          31   GPOGRA
        O.IIT           0   EXTERNAL*      68/41     77/22     87/42     88/08
        O.MOD           0   EXTERNAL* 
        O.MVL           2   GPOGRA
        O.PIT           0   EXTERNAL*     111/23
        O.PSI           0   EXTERNAL* 
        O.RCT           0   EXTERNAL*      13/04     49/32     59/22     87/30    100/09    109/08
                                           40/24     51/29     64/34     88/03    103/29    112/36
                                           47/24     56/24     77/20     98/19    104/27
        O.RND           0   EXTERNAL*      54/40     67/36     74/28
        O.RXI           0   EXTERNAL*      98/20    114/12
        O.SEQ           0   EXTERNAL*      18/21     54/20     54/47     59/23     87/16     90/23    108/32    112/35
        O.SYM          12                   1/40 D   60/46     78/30     87/29     88/02
        O.TET           0   EXTERNAL*      44/29     62/50     66/12     68/37     77/21     90/34
        O.TXT           0   EXTERNAL*      90/30    106/26    139/26    142/33
        O.UDT           0   GPOGRA         13/08     18/24     31/23     59/21     92/54     98/18    100/11    114/10
        PARCEL          0   EXTERNAL*     110/55 S
        PC              0   EXTERNAL*     106/46    110/15
        PCC             0   EXTERNAL*      11/17     11/18     48/37     49/05    108/12
        PI.CAL         22 
        PI.CAP         22                  68/46
        PI.CNL         22 
        PI.CNP         44 
        PI.LFL         22 
        PI.LFP          0 
        PI.MIPP        73 
        PL             36   GPOGRA        104/22 S  106/44    107/09 S  107/13 S  107/35 S  110/10 S  111/31
        PMF           222   TABLES         74/50     81/50 S
        PSC          2054   PROGRAM*       70/31     71/54     80/12 L   81/20     81/51
        PSC2         2057   PROGRAM*       80/24 L   80/30
        PSC3         2065   PROGRAM*       80/41 L   80/54
        PSC4         2070   PROGRAM*       80/49     80/52 L
        PSC5         2073   PROGRAM*       80/15     81/07 L
        PSC6         2077   PROGRAM*       81/22 L   81/47
        PST           234   TABLES         98/39    104/45 S  114/37
        PS.CAIHL       44 
        PS.CAIHP        0 
        PS.REGL         6 
        PS.REGP        66                  98/55
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   154
        SYMBOLIC REFERENCE TABLE. 
  
        PS.UDIL        22 
        PS.UDIP        44                  41/48     77/32     98/53
        P.FPB           0   FTNTEXT        61/27     61/29     78/50     78/52     95/31     95/33     97/13
        P.LCM           1   FTNTEXT        78/48     78/50     97/13
        P.RB           14   FTNTEXT        61/34     78/57     96/38
        P.RL           45   FTNTEXT        61/29     61/34     78/52     78/57     95/33     96/38
        P.TYP          70   FTNTEXT        97/06
        Q.DAA           7                  10/08 D
        Q.DXA           6                  10/08 D
        Q.MFA          10                  10/08 D
        Q.MTA           5                  10/08 D
        Q.RAT           2                  10/08 D
        Q.RCT           1                  10/08 D
        Q.RVT           3                  10/08 D
        Q.SEE           4                  10/08 D
        Q.SUP          11                  10/08 D
        Q.SXC          12                  10/08 D
        RAT           100   TABLES         15/35     46/39 S   69/19     76/48     79/23     87/43    109/29 S
                                           24/24 S   50/15 S   69/23     77/05     79/31 S   88/21    113/13
                                           24/52 S   63/05 S   76/23 S   77/07     83/33     88/41    123/29
                                           25/22     63/26 S   76/36 S   77/36     84/11     89/46
                                           43/48 S   68/52     76/46     79/21     86/29    104/35
        RA.INVP        73                  46/37     50/13     77/12
        RA.R1L         22                  15/52     86/38     88/49
        RA.R1P          0 
        RA.R2L         22 
        RA.R2P         22                  69/26     76/50     79/29     86/40     87/46     88/15     88/51     89/12
        RA.R3L         22                  77/08
        RA.R3P         44                  24/22     69/36     77/10     88/22    113/21
                                           69/21     69/57     84/14     89/12
        RLW          1256   PROGRAM*       52/50     53/57     54/39 L   54/46     55/02    105/27
        RLW1         1264   PROGRAM*       54/52 L   54/56
        RNI             0   EXTERNAL*     142/37
        RR            230   TABLES         89/02 S   89/06     89/15
        RTB             0   EXTERNAL*      59/15     87/10    105/01
        RVT           130   TABLES        109/30 S  114/56    125/24    126/31    128/47    135/15    138/02    138/32
                                          112/45 S  119/40    125/41    126/33    131/12    137/13    138/20
                                          113/17 S  122/22    126/08    127/26    131/35    137/14    138/29
        RXA          2741   PROGRAM*       48/46    108/05    109/07 L  109/27    109/31
        R1.H2L         14   FTNTEXT        20/48
        R1.H2P         22   FTNTEXT        18/34     20/51     38/19     96/55
        R1.INP         36   FTNTEXT        19/04     20/45     21/41     36/38     93/32    121/19
                                           19/37     20/51     22/28     91/49     94/09    135/41
        R1.RIL         20   FTNTEXT        52/35     53/11     53/17    113/53    139/32
        R1.RJP         40   FTNTEXT        20/08     88/26     96/29    116/47    125/40    135/36    137/28
                                           26/01     89/10     96/32    117/40    129/51    135/46    138/38
                                           29/41     89/33    113/48    117/49    130/56    136/05    139/53
                                           29/47     89/57    115/08    118/47    132/37    136/09    139/56
                                           31/50     96/14    116/09    120/27    134/02    136/24    141/42
                                           31/52     96/17    116/45    120/52    134/43    137/18    141/45
        R1.RKP         20   FTNTEXT        29/47     89/10     96/29    116/47    125/43    130/41    137/16    139/56
                                           31/52     96/17    116/16    120/56    129/48    135/46    138/39    140/49
        R1.SOP         20   FTNTEXT        19/15     53/43    113/19    121/17    122/21    129/57
                                           23/06     86/32    113/43    121/19    123/45    131/16
                                           35/13     86/36    118/18    122/19    126/11    141/02
        R2.MRAP        22                  87/23
        SCR             0   TABLES         16/43     30/14 S   73/47
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   155
        SYMBOLIC REFERENCE TABLE. 
  
        SDC          2132   PROGRAM*       72/45     82/11     82/17     83/16 L   83/46     83/51
        SDC1         2140   PROGRAM*       83/37 L   83/49
        SDC2         2144   PROGRAM*       83/41     83/42     83/47 L
        SEE            54   PROGRAM*       11/23     13/03 L   16/41     17/19
        SEEA          160   PROGRAM*       15/17     17/21 L   63/11     69/29     79/36
        SEE1           63   PROGRAM*       13/22 L   13/41
        SEE11         145   PROGRAM*       15/32     16/40 L
        SEE12         151   PROGRAM*       16/53 L   17/18
        SEE13         155   PROGRAM*       17/04     17/10 L
        SEE14         157   PROGRAM*       16/57     17/14     17/18 L
        SEE2           65   PROGRAM*       13/18     13/35     14/33     14/46     15/13     15/20
                                           13/32 L   13/52     14/44     14/54     15/15
        SEE2A          73   PROGRAM*       13/42     13/56 L
        SEE3          105   PROGRAM*       14/19     14/20     14/23     14/25     14/37 L
        SEE4          106   PROGRAM*       14/38     14/41 L
        SEE4A         113   PROGRAM*       14/51     15/02 L
        SEE5          117   PROGRAM*       14/57     15/10     15/15 L
        SEE6          121   PROGRAM*       13/33     15/26 L
        SEE7          126   PROGRAM*       15/36     15/39 L   16/36
        SEE7A         141   PROGRAM*       15/48     16/22 L
        SEE8          144   PROGRAM*       15/40     15/53     15/56     16/04     16/18     16/25     16/35 L
        SETCORE         0   EXTERNAL*      12/15
        SHL             0   EXTERNAL*      40/54     48/03     66/08     67/25     74/27
        SIV          2421   PROGRAM*       88/31     89/18     92/09     95/13 L   96/24     96/33
        SIVA         2465   PROGRAM*       95/36     96/35 L
        SIV0         2420   PROGRAM*       95/09 L   95/20     95/35     95/38
        SIV1         2433   PROGRAM*       95/28     95/32     95/43 L
        SIV2         2434   PROGRAM*       95/41     95/47 L
        SIV2A        2443   PROGRAM*       96/08     96/12 L
        SIV2B        2444   PROGRAM*       96/11     96/14 L
        SIV2C        2446   PROGRAM*       96/02     96/17 L
        SIV3         2455   PROGRAM*       96/18     96/26 L
        SIV4         2461   PROGRAM*       96/26     96/31 L
        SLW          1245   PROGRAM*       51/28     54/15 L   54/18     54/32    105/03
        SLW1         1253   PROGRAM*       54/26 L   54/30
        SO.INVP        10   FTNTEXT        19/15     23/38     86/36
        SO.LKL          2   FTNTEXT        23/07    141/03
        SO.LKP          6   FTNTEXT        23/06     23/16     35/20    113/43    118/20    141/02
        SO.LOCK       200   FTNTEXT        86/30    113/18    126/09    131/13
        SO.REGL         6   FTNTEXT        23/13     35/14    118/15    121/16    122/18    130/01
        SO.RTP          3   FTNTEXT        53/43
        SO.TLOCK      100   FTNTEXT       123/44
        SRI             0   EXTERNAL*      86/26     89/57     96/29    115/08    123/47    131/02    136/10
                                           88/26     92/01     96/32    115/16    123/55    131/30    136/24
                                           89/10     96/14    112/55    115/25    126/06    132/40
                                           89/33     96/17    113/48    123/42    126/15    135/49
        STP            37   GPOGRA         41/57 S   43/33
        SUP          2203   PROGRAM*       11/54     87/07 L   91/28     91/30
        SUPA         2202   PROGRAM*       86/54 L   88/48     89/50
        SUP1         2244   PROGRAM*       88/24     88/29 L
        SUP10        2300   PROGRAM*       88/42     88/55     89/37 L
        SUP12        2302   PROGRAM*       89/46 L   90/07
        SUP13        2310   PROGRAM*       89/55     90/02 L
        SUP14        2311   PROGRAM*       89/47     89/52     90/04 L
        SUP15        2322   PROGRAM*       90/24     90/34 L
        SUP16        2326   PROGRAM*       90/45 L   90/49
        SUP17        2330   PROGRAM*       90/43     90/53 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   156
        SYMBOLIC REFERENCE TABLE. 
  
        SUP18        2332   PROGRAM*       91/02 L   91/05     91/13
        SUP19        2336   PROGRAM*       91/04     91/18 L   91/22
        SUP2         2245   PROGRAM*       88/27     88/33 L
        SUP20        2340   PROGRAM*       91/20     91/24 L
        SUP4         2247   PROGRAM*       87/37     88/39 L
        SUP5         2250   PROGRAM*       88/41 L   89/38
        SUP5A        2255   PROGRAM*       88/53     88/57 L
        SUP6         2265   PROGRAM*       89/04     89/12 L
        SUP7         2271   PROGRAM*       89/14     89/23 L
        SUP8         2275   PROGRAM*       89/28     89/32 L
        SUP9         2277   PROGRAM*       89/19     89/30     89/35 L
        SVA            11   GPOGRA        101/09
        SXC          2500   PROGRAM*       11/57     98/07 L  100/07    100/21    102/07
        SXC10        2554   PROGRAM*      100/36    100/54 L
        SXC11        2556   PROGRAM*      100/29    101/07 L
        SXC12        2561   PROGRAM*      101/15 L  101/20
        SXC13        2564   PROGRAM*      101/29 L  102/05
        SXC14        2566   PROGRAM*      101/36 L  101/56
        SXC15        2574   PROGRAM*      101/44    101/54 L
        SXC16        2575   PROGRAM*      101/52    101/56 L
        SXC17        2576   PROGRAM*      101/34    102/03 L
        SXC2         2511   PROGRAM*       98/31 L   99/49
        SXC3         2513   PROGRAM*       98/39 L   99/06
        SXC4         2521   PROGRAM*       98/48     99/04 L
        SXC5         2522   PROGRAM*       98/35     99/10 L
        SXC5A        2527   PROGRAM*       99/31 L   99/35
        SXC5B        2531   PROGRAM*       99/22     99/37 L
        SXC6         2533   PROGRAM*       99/11     99/45 L
        SXC7         2536   PROGRAM*       98/10     98/13    100/06 L
        SXC8         2544   PROGRAM*      100/23 L  100/39    100/41    100/48
        SXC9         2545   PROGRAM*      100/20    100/28 L  100/31    100/46    100/49    101/01
        TEST            0   FTNTEXT        10/27 F
        TRA           161   TABLES         12/53 S   23/21     35/24
        TRD           172   TABLES         44/49 S   75/39     76/38     79/20 S  125/08
                                           68/19     76/03     78/03 S   87/34    126/20
        TUD           166   TABLES         12/33 S   15/12 S   43/28
        T.BIPP         66   FTNTEXT        66/40
        T.HBNL         22   FTNTEXT        90/39
        T.HBNP         44   FTNTEXT        90/41     90/57
        T.ITIP         44   FTNTEXT        68/42     77/45
        T.LAB           6   FTNTEXT        97/05
        T.REGL         22   FTNTEXT        62/47
        T.REGP         22   FTNTEXT        44/34     62/51     68/49
        UD.BMIP        24                  37/20
        UD.CMP         23                  37/04     92/57    101/43
        UD.DEFRP       73                  37/20
        UD.ISTP        66                  12/39     31/25     37/04
        UD.STCL        11                  15/05
        UD.STCP        55                  15/04
        UOFLAG          0   EXTERNAL*      38/13     61/03
        UVA             5   GPOGRA         31/24     93/08
        V.SRF        4000                  69/06
        WFB             0   EXTERNAL*     111/41
        WSC          2777   PROGRAM*      107/12    107/44    110/21    111/12 L  111/43
        WSC2         3007   PROGRAM*      111/34    111/38 L
        XCT           174   TABLES         25/32 S   48/08     49/34    109/09
        XRF            20   GPOGRA         11/29     23/14     87/14
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   157
        SYMBOLIC REFERENCE TABLE. 
  
        Z.MLT           0   EXTERNAL*      90/26
        Z.MOD           0   EXTERNAL*      87/28     88/01
        Z.PSI           0   EXTERNAL*      98/17
        Z.RCT           0   EXTERNAL*      12/21     18/19     67/35     75/50
        Z.RND           0   EXTERNAL*      40/23     47/23     54/19     64/33    142/32
        Z.TXT           1                   1/40 D
        .CPU          111   FTNTEXT       105/31 F
        .DAL            1   FTNTEXT        96/01 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     UDT                                11/11 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  ERC 
  
  
        ERC           162   PROGRAM*       18/16 L   30/52
        ERC1          174   PROGRAM*       18/33     19/16     22/40     23/51     24/20
                                           18/43 L   20/33     23/27     23/55     25/37
        ERC2          175   PROGRAM*       18/48 L   20/13     21/05     22/25     25/35
                                           19/33     20/18     21/18     25/29
        FCP           340   PROGRAM*       23/26     25/47 L   25/50     25/54     26/04     26/06     26/08     26/11
        RS1           304   PROGRAM*       23/43     23/53 L
        RS2           306   PROGRAM*       23/39     23/48     23/50     23/57 L
        RS2A          315   PROGRAM*       24/17     24/22 L
        RS3           326   PROGRAM*       23/54     24/08     24/12     24/30     24/32     24/36     25/04 L
        RS4           334   PROGRAM*       25/23     25/26 L
        RS5           336   PROGRAM*       25/26     25/31 L
        RS9           174   PROGRAM*       23/09     23/12     23/15     23/24     23/31     24/02     25/37 D
        SCT           351   PROGRAM*       19/32     21/17     27/21 L   28/50     30/21     30/47
                                           20/01     22/23     28/48     29/26     30/39
        SCTA          436   PROGRAM*       27/46     30/49 L
        SCT0          350   PROGRAM*       27/18 L   27/31
        SCT0A         355   PROGRAM*       27/25     27/30 L
        SCT0B         357   PROGRAM*       27/28     27/36 L
        SCT1          360   PROGRAM*       27/23     27/42 L
        SCT10         427   PROGRAM*       29/35     30/25 L
        SCT11         433   PROGRAM*       30/34     30/38 L
        SCT12         434   PROGRAM*       30/01     30/43 L
        SCT2          363   PROGRAM*       27/53 L   27/55     28/03     28/09
        SCT3          373   PROGRAM*       28/14     28/25 L
        SCT4          374   PROGRAM*       28/23     28/33 L
        SCT5          411   PROGRAM*       29/17     29/28 L
        SCT6          413   PROGRAM*       29/25     29/29     29/39 L
        SCT7          417   PROGRAM*       29/46     29/55 L
        SCT8          424   PROGRAM*       30/03     30/12 L
        SCT9          426   PROGRAM*       30/10     30/19 L
        SET1          201   PROGRAM*       19/11 L   19/43
        SET2          206   PROGRAM*       19/13     19/18     19/23 L   20/40
        STT1          227   PROGRAM*       20/37     20/39 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   158
        SYMBOLIC REFERENCE TABLE.                                     ERC 
  
        STT2          230   PROGRAM*       20/30     20/44 L
        ST1           247   PROGRAM*       21/29     21/40 L
        ST2           257   PROGRAM*       22/11     22/16 L
        ST2A          253   PROGRAM*       20/55     22/01 L
        ST2B          254   PROGRAM*       22/05 L   22/14
        ST3           261   PROGRAM*       22/07     22/17     22/23 L
        ST4           264   PROGRAM*       21/51     22/32 L
        TLDA          242   PROGRAM*       21/10     21/20 L
        TLD1          237   PROGRAM*       21/07     21/12 L
        TLD2          240   PROGRAM*       21/17 L   21/49
        TSTA          243   PROGRAM*       21/06     21/21 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  DUM 
  
  
        DUM           443   PROGRAM*       31/21 L   38/41
        DUM1          452   PROGRAM*       31/44 L   32/45     33/51     34/34     35/27     36/10
                                           32/13     33/10     34/18     34/50     35/37     37/37
                                           32/23     33/26     34/22     35/22     35/50     37/44
        DUM2          456   PROGRAM*       31/49     31/57 L
        FBM           577   PROGRAM*       31/22     38/11 L
        FBM0          576   PROGRAM*       38/10 L   38/14     38/23     38/33
        FBM1          605   PROGRAM*       38/16     38/21     38/25 L
        FBM2          606   PROGRAM*       38/29 L   38/34     38/38
        IA1           506   PROGRAM*       33/39     33/42 L
        ILS1          475   PROGRAM*       32/54     32/57 L
        JPX1          514   PROGRAM*       34/09     34/12     34/15 L
        LBM           575   PROGRAM*       32/30     32/51     34/17     36/45     38/08 L   38/10 S
        LD0           560   PROGRAM*       36/47     36/52 L
        LD1           561   PROGRAM*       36/43     37/01 L
        LD2           567   PROGRAM*       37/03     37/12     37/26 L
        LD2A          572   PROGRAM*       37/27     37/36 L
        LD3           573   PROGRAM*       36/54     37/05     37/18     37/21     37/40 L
        SA1           466   PROGRAM*       32/32     32/35 L
        SA2           471   PROGRAM*       32/40     32/43 L
        ST1           551   PROGRAM*       36/19     36/29 L
        TST1          541   PROGRAM*       35/47     35/52 L
        TYI           457   PROGRAM*       32/07 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  IRA 
  
  
        APD          3506   PROGRAM*      131/10    133/09 L  133/43    134/42    134/47    134/49
        APD1         3510   PROGRAM*      133/13 L  133/15
        APD2         3514   PROGRAM*      133/20    133/27 L
        APD3         3521   PROGRAM*      133/28    133/45 L
        APD4         3522   PROGRAM*      133/38    133/51 L
        APD5         3532   PROGRAM*      134/27 L  134/33
        APD6         3534   PROGRAM*      134/29    134/32 L
        DEF1         3251   PROGRAM*      122/24    122/37 L
        DEF2         3254   PROGRAM*      122/41    122/44    122/47 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   159
        SYMBOLIC REFERENCE TABLE.                                     IRA 
  
        DWL1         3130   PROGRAM*      117/31    117/38 L
        DWL2         3134   PROGRAM*      117/46    117/48    117/51 L
        DWL3         3135   PROGRAM*      117/51    117/53 L
        EOQ1         3062   PROGRAM*      114/37 L  115/20
        EOQ1A        3054   PROGRAM*      114/19 L  114/29
        EOQ1B        3057   PROGRAM*      114/23    114/24    114/28 L
        EOQ1C        3061   PROGRAM*      114/26    114/32 L
        EOQ2         3072   PROGRAM*      115/05    115/07 L
        EOQ3         3075   PROGRAM*      115/01    115/11 L
        EOQ4         3077   PROGRAM*      114/46    115/18 L
        EOQ5         3100   PROGRAM*      114/04    114/05    114/30    115/22 L
        FMA1         3240   PROGRAM*      122/05 L  122/25
        FMA2         3241   PROGRAM*      122/10 L  122/28    122/32
        IA1          3162   PROGRAM*      119/11    119/14 L
        IRA          3012   PROGRAM*      112/30 L  115/28    143/21
        IRA1         3026   PROGRAM*      112/51    113/07 L
        IRA10        3113   PROGRAM*      113/57    118/29    122/48    129/16    132/27    135/32    136/21
                                          116/36 L  120/15    127/31    129/24    132/46    135/50    136/25
                                          117/08    121/25    128/21    131/54    135/09    136/16
        IRA11        3117   PROGRAM*      116/43    116/52 L
        IRA3         3030   PROGRAM*      113/13 L  113/51
        IRA5         3043   PROGRAM*      113/14    113/36    113/38    113/50 L
        IS1          3165   PROGRAM*      119/09    119/25 L
        I.BRL          22                 112/21 D
        I.BRP          22                 112/21 D  118/11    119/14    120/46    122/30    128/49    133/37
                                          117/21    118/26    119/25    120/48    122/45    130/53    135/23
                                          117/52    118/32    119/26    121/06    123/23    131/44    135/36
                                          118/02    118/40    119/49    121/45    123/51    131/48    138/27
                                          118/03    118/47    120/23    121/47    127/44    133/34
        I.INBP         73                 112/18 D
        I.STL          22                 112/20 D
        I.STP          44                 112/20 D  120/07    121/34    127/28    132/19    133/53    137/47
                                          116/13    120/13    121/39    128/02    132/22    135/25
                                          117/28    120/19    122/07    129/09    132/30    136/12
                                          118/42    120/36    122/38    132/05    132/51    137/03
        I.XRL          22                 112/22 D
        I.XRP           0                 112/22 D
        JIN1         3266   PROGRAM*      123/31 L  123/34
        JIN2         3270   PROGRAM*      123/28    123/31    123/40 L
        JIN3         3302   PROGRAM*      123/25    123/35    124/01 L  125/07    126/24
        JPX0         3311   PROGRAM*      125/09    125/13    125/19 L
        JPX1         3313   PROGRAM*      125/23 L  126/18
        JPX2         3320   PROGRAM*      125/34    125/36 L
        JPX3         3323   PROGRAM*      125/31    125/49 L
        JPX4         3325   PROGRAM*      125/51    125/57 L
        JPX5         3326   PROGRAM*      125/45    126/04 L
        JPX7         3333   PROGRAM*      125/20    126/20 L
        JPX8         3342   PROGRAM*      126/34    126/39 L
        LD1          3357   PROGRAM*      127/03    127/33 L
        LD2          3360   PROGRAM*      127/38 L  128/05    129/11    132/54
        LD3          3362   PROGRAM*      127/43    127/45 L
        PAC          3576   PROGRAM*      127/11    127/14    127/22    128/24    136/35 L
        PACA         3642   PROGRAM*      136/45    138/51 L
        PAC0         3575   PROGRAM*      129/27    136/33 L
        PAC1         3607   PROGRAM*      136/56    137/08 L  137/53
        PAC2         3615   PROGRAM*      137/24    137/27    137/31 L
        PAC3         3621   PROGRAM*      136/57    137/47 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   160
        SYMBOLIC REFERENCE TABLE.                                     IRA 
  
        PAC4         3627   PROGRAM*      137/09    138/14 L
        PAC5         3632   PROGRAM*      138/18    138/25 L
        PAC6         3633   PROGRAM*      138/26    138/28 L
        PAC7         3635   PROGRAM*      138/31    138/33 L
        PAC8         3636   PROGRAM*      138/23    138/35 L
        PLD1         3211   PROGRAM*      120/38    120/45 L
        PLD2         3212   PROGRAM*      120/45    120/47 L
        PLD3         3213   PROGRAM*      120/47    120/50 L
        PLD4         3217   PROGRAM*      121/05    121/07 L
        PVC          3543   PROGRAM*      118/09    120/03    122/03    127/05    135/03 L
        PVC1         3545   PROGRAM*      135/05    135/11 L
        PVC2         3557   PROGRAM*      135/38    135/44    135/47 L
        PVC5         3561   PROGRAM*      135/17    135/54 L
        PVC6         3566   PROGRAM*      136/01    136/03    136/12 L
        RS1          3224   PROGRAM*      121/20    121/24 L
        RS2          3233   PROGRAM*      121/22    121/28    121/43 L
        RS3          3235   PROGRAM*      121/30    121/37    121/41    121/51 L
        SA1          3150   PROGRAM*      118/10    118/12    118/22    118/23    118/31 L
        SA2          3152   PROGRAM*      118/16    118/37 L
        STT0         3365   PROGRAM*      127/57 L  128/09    128/36
        STT1         3374   PROGRAM*      128/12    128/15    128/17    128/23 L
        STT2         3377   PROGRAM*      128/34    128/38 L
        STT3         3401   PROGRAM*      128/41    128/44 L
        ST0          3406   PROGRAM*      129/07    129/13 L
        ST0A         3420   PROGRAM*      129/45    129/51 L
        ST0B         3421   PROGRAM*      129/47    129/55 L
        ST1          3411   PROGRAM*      129/14    129/26 L
        ST1A         3425   PROGRAM*      129/37    129/50    129/56    130/11 L
        ST1B         3434   PROGRAM*      130/18    130/32 L
        ST1C         3440   PROGRAM*      130/07    130/12    130/35    130/47 L
        ST10         3502   PROGRAM*      132/02    132/14    132/44 L
        ST2          3444   PROGRAM*      130/50    130/52    130/54 L
        ST3          3446   PROGRAM*      130/16    130/30    130/40    130/43    131/06 L
        ST3A         3450   PROGRAM*      131/08    131/12 L
        ST4          3455   PROGRAM*      131/23    131/25 L
        ST4A         3457   PROGRAM*      130/04    131/34 L
        ST5          3464   PROGRAM*      131/42    131/51 L
        ST6          3466   PROGRAM*      131/52    132/01 L
        ST7          3471   PROGRAM*      131/38    132/13 L
        ST8          3476   PROGRAM*      132/25    132/29 L
        ST9          3500   PROGRAM*      132/09    132/36 L
        TYI          3105   PROGRAM*      116/02    118/04    119/03    119/20    119/32    119/52
                                          116/07 L  118/31    119/05    119/22    119/43    128/48
                                          117/22    118/33    119/15    119/27    119/47    128/50
        TYIA         3110   PROGRAM*      116/19 L  118/49    120/30    122/14
        TYIII        3256   PROGRAM*      123/09 L  124/07
        TYIT         3111   PROGRAM*      116/25 L  117/57    121/56    126/46    137/43    138/45
                                          117/14    121/12    123/19    127/52    138/10
        XMT1         3201   PROGRAM*      120/06    120/09    120/17 L
        XMT2         3204   PROGRAM*      120/22    120/27 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  CUC 
  
  
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 15.55.32.      PAGE   161
        SYMBOLIC REFERENCE TABLE.                                     CUC 
  
        BOS1         3715   PROGRAM*      142/13 L  142/14    142/26
        CUC          3646   PROGRAM*      139/25 L  142/06    142/40    143/22
        CUCA         3645   PROGRAM*      139/23 L  139/28
        CUC1         3661   PROGRAM*      139/39    140/31    140/54    141/23    141/36    141/54    143/18
                                          140/11 L  140/35    141/19    141/29    141/47    143/02
        CUC2         3665   PROGRAM*      140/16    140/29 L  140/39
        RS1          3701   PROGRAM*      141/14    141/21 L
        RS2          3704   PROGRAM*      141/08    141/31 L
        RS3          3706   PROGRAM*      141/33    141/38 L
        TYI          3656   PROGRAM*      139/53 L  140/25    140/46
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1600              IDENT  PROSEQ 
                       1600                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1576 
                                        LITERALS* LOCAL        1576         2 
                                        TABLES    COMMON          0        23 
                                        //        COMMON          0         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=PROSQ          0+           L.OTI         1306+           O.VDT         1275+ 
                                        BIR              0+           Z.OTI            4            L.VDT         1317+ 
                                        NIRN             1+           O.MLT         1264+           Z.VDT           15
                                        FPL2             2+           L.MLT         1306+           O.APL         1276+ 
                                        PROSEQ           4+           Z.MLT            4            L.APL         1320+ 
                                        SSP             64+           O.MOD         1265+           Z.APL           16
                                        PSB            105+           L.MOD         1307+           O.UDI         1277+ 
                                        AIS            133+           Z.MOD            5            L.UDI         1321+ 
                                        ESRA           554+           O.CFT         1266+           Z.UDI           17
                                        ESR            572+           L.CFT         1310+           O.ALS         1300+ 
                                        F.RDT         1114+           Z.CFT            6            L.ALS         1322+ 
                                        SST           1231+           O.BST         1267+           Z.ALS           20
                                        SHL           1255+           L.BST         1311+           O.TEND        1301+ 
                                        O.BLK         1260+           Z.BST            7            L.TEND        1323+ 
                                        L.BLK         1302+           O.PSI         1270+           Z.TEND          21
                                        Z.BLK            0            L.PSI         1312+           MU            1324+ 
                                        O.TXT         1261+           Z.PSI           10            LM            1325+ 
                                        L.TXT         1303+           O.RXI         1271+           TO            1334+ 
                                        Z.TXT            1            L.RXI         1313+           INT.P2M       1335+ 
                                        O.GST         1261+           Z.RXI           11            MX.BLN        1336+ 
                                        L.GST         1303+           O.RCT         1272+           TOBA          1337+ 
                                        Z.GST            1            L.RCT         1314+           TOV           1341+ 
                                        O.RND         1262+           Z.RCT           12            TOB           1345+ 
                                        L.RND         1304+           O.TET         1273+           MOREFL        1366+ 
                                        Z.RND            2            L.TET         1315+           CWS=          1406+ 
                                        O.TREE        1262+           Z.TET           13            AFL           1413+ 
                                        L.TREE        1304+           O.IOL         1274+           AST           1442+ 
                                        Z.TREE           2            L.IOL         1316+           ADW=          1547+ 
                                        O.PIT         1263+           Z.IOL           14            ATS=          1463+ 
                                        L.PIT         1305+           O.IIT         1274+           AMU=          1562+ 
                                        Z.PIT            3            L.IIT         1316+           MTU=          1573+ 
                                        O.OTI         1264+           Z.IIT           14            AFT=          1537+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        BRN       O.EXT     CP.NFLS   GT1       M.BBL     MPB       COL 
                                        WB        O.ENTR    MSG=      CP.AFLS   PUNT      LSN       FSU 
                                        O.SEQ     O.UDV     PROGNAM   MAX.FL    DIRECT    XR        CO.ER 
                                        L.SEQ     O.API     COD       CGB       LEVEL2    PBB       OPT2
                                        MVE=      O.GLT     PR.MXFL   DMB       TYIOM     CII       SBB 
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        LWAWORK   O.LOOP    SYS=      MX.AVS    CUC       MCG 
  
  
  
  
                                                  IDENT  PROSEQ                                                  PROSEQ      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=PROSQ  RPVDEF                                                         PROSEQ      5
                                                  PASS2TM                                                        PROSEQ      6
                                                                                                                 PROSEQ      7
                                                  EXT    BRN,WB                                                  PROSEQ      8
                                                                                                                 PROSEQ      9
                                        **        PROSEQ - PROCESS ACCUMULATED SEQUENCES                         PROSEQ     10
  
  
  
             0  00000000000000100002     BIR      ENTRY. 100002B     BASE INTERMEDIATE R-NUMBER                  PROSEQ     12
             1  00000000000000100002     NIRN     ENTRY. 100002B     NEXT INTERMEDIATE R-NUMBER                  PROSEQ     13
                                                                                                                 PROSEQ     14
             2  00000000000000000000     FPL2     ENTRY. 0           "0 IF F.P.S OR LEVEL 2 SYMBOLS IN SUBPROGRA PROSEQ     15
             3                     1     LALS     BSSZ   1           L.ALS-1 OF LAST SEQUENCE                    PROSEQ     16
  
  
  
             4  00000000000000000000     PROSEQ   ENTRY.                                                         PROSEQ     18
             5  43700                             MX7    0                                                       PROSEQ     19
                     5170001304 +                 SA7    =XL.RND     L.RND = 0                                   PROSEQ     20
             6  7110000004                        ALLOC  TXT,4                                                   PROSEQ     21
            10  5150001114 +                      SA5    F.RDT+OC.EOQ                                            PROSEQ     22
                          7160002000              SX6    1S10+OC.EOQ TERMINATE *TXT* WITH A *EOQ*                PROSEQ     23
            11  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
            12  10655                             BX6    X5                                                      PROSEQ     28
                     5110000001 X                 SA1    BRN+1                                                   PROSEQ     29
                               54671              SA6    A7+B1                                                   PROSEQ     30
            13  54761                             SA7    A6+B1                                                   PROSEQ     31
                     43054                        MX0    -R1.RIL                                                 PROSEQ     32
                          15610                   BX6    -X0*X1      SET MAX R-NUMBER FOR *SQZ*                  PROSEQ     33
                               54610              SA6    A1                                                      PROSEQ     34
                                                                                                                 PROSEQ     35
            14  5130000002 +                      SA3    FPL2                                                    PROSEQ     36
                          0303000016 +            ZR     X3,PAS1     IF N.FP & LEVEL2 = 0                        PROSEQ     37
            15  0100000105 +                      RJ     PSB         PROPOGATE SPECIAL BITSS TO DESCRIPTOR       PROSEQ     38
                                                                                                                 PROSEQ     39
            16  0100000000 X             PAS1     CALL   SBB         ELIMINATE REDUNDANT OPERATIONS              PROSEQ     40
            17  5110000000 X                      SA1    =XOPT2                                                  PROSEQ     41
                          5150001303 +            SA5    L.TXT                                                   PROSEQ     42
            20  0311000046 +                      NZ     X1,PAS5     IF OPT2 " 0                                 PROSEQ     43
                                                                                                                 PROSEQ     44
                          7275777767              SX7    X5-8                                                    PROSEQ     45
            21  0307000047 +                      ZR     X7,PAS6     IF L.TXT = 8  */ EMPTY SEQUENCE             PROSEQ     46
                          5110000000 X            SA1    =XCO.ER                                                 FEAT155AB   2
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE     3
                                                                      PROSEQ
  
            22  0301000023 +                      ZR     X1,PAS0     IF ER = 0      */ NO OTR                    FEAT155AB   3
                          0100000000 X            CALL   FSU         FORCE UPPER                                 FEAT155AB   4
            23  5110000000 X             PAS0     SA1    WB                                                      FEAT155AB   5
                          7261777776              SX6    X1-1                                                    PROSEQ     48
            24  0316000026 +                      NZ     X6,PAS1A    IF WB " 1                                   PROSEQ     49
                                                                                                                 PROSEQ     59
                          0100000000 X            CALL   COL         CODE OPTIMIZABLE LOOP ( OPT=1 )             PROSEQ     60
            25  0400000047 +                      EQ     PAS6                                                    PROSEQ     61
                                                                                                                 PROSEQ     62
            26  5110000002 +             PAS1A    SA1    FPL2                                                    PROSEQ     63
                          0301000042 +            ZR     X1,PAS4     IF FPL2 = 0   */ NO F.P.S OF LEVEL IN PROG  PROSEQ     64
                                                                                                                 PROSEQ     65
            27  0100000064 +                      RJ     SSP         SET *SEQ* POINTERS                          PROSEQ     66
            30  5110000003 +                      SA1    LALS                                                    PROSEQ     67
                          7150000002              SX5    2                 LCM                                   PROSEQ     68
            31  0311000032 +                      NZ     X1,PAS2     IF LALS " 0   */ IN A LOOP                  PROSEQ     69
                          7150000003              SX5    3                                                       PROSEQ     70
            32  43601                    PAS2     MX6    1                                                       PROSEQ     71
                     0100000572 +                 CALL   ESR                                                     PROSEQ     72
            33  5110001306 +                      SA1    L.MLT                                                   PROSEQ     73
                          0301000036 +            ZR     X1,PAS3     IF L.MLT = 0  */ NO MODS TO BLOCK           PROSEQ     74
            34  7160000001                        SX6    1                                                       PROSEQ     75
                          0100000000 X            CALL   MPB         MERGE BLOCK AND MODS                        PROSEQ     76
            35  0400000042 +                      EQ     PAS4                                                    PROSEQ     77
                                                                                                                 PROSEQ     78
            36  5110000000 X             PAS3     SA1    O.SEQ                                                   PROSEQ     79
                          5120000000 X            SA2    L.SEQ                                                   PROSEQ     80
            37  10611                             BX6    X1                                                      PROSEQ     81
                     5160001261 +                 SA6    O.TXT       O.TXT = O.SEQ                               PROSEQ     82
                               22702              LX7    X2                                                      PROSEQ     83
            40  5170001303 +                      SA7    L.TXT       L.TXT = L.SEQ                               PROSEQ     84
                          43600                   MX6    0                                                       PROSEQ     85
            41  5160000000 X                      SA6    L.SEQ                                                   PROSEQ     86
                                                                                                                 PROSEQ     87
            42  7160000000               PAS4     SX6    0                                                       PROSEQ     88
                          5160001302 +            SA6    L.BLK                                                   PROSEQ     89
            43  0100000000 X                      CALL   MCG         CODE THE SEQUENCE                           PROSEQ     90
            44  0100000000 X                      CALL   CII         CONVERT THE ISSUED INSTRUCTIONS             PROSEQ     91
            45  0400000047 +                      EQ     PAS6                                                    PROSEQ     92
                                                                                                                 PROSEQ     93
            46  0100000000 X             PAS5     CALL   PBB         PROCESS BASIC BLOCK FOR OPT=2               PROSEQ     94
  
  
  
                                        *         RESET FLAGS FOR NEXT SEQUENCE                                  PROSEQ     96
                                                                                                                 PROSEQ     97
            47  5150001325 +             PAS6     SA5    LM                                                      PROSEQ     98
                          43600                   MX6    0                                                       PROSEQ     99
                               10755              BX7    X5                                                      PROSEQ    100
            50  5160000000 X                      SA6    =XXR        XR = 0                                      PROSEQ    101
                          5160001302 +            SA6    L.BLK       L.LBK = 0                                   PROSEQ    102
            51  5170001260 +                      SA7    O.BLK       O.BLK = LM                                  PROSEQ    103
                          5170001261 +            SA7    O.TXT       O.TXT = LM                                  PROSEQ    104
            52  7160000004                        SX6    4                                                       PROSEQ    105
                          5160001303 +            SA6    L.TXT       L.TXT = 4                                   PROSEQ    106
            53  5140000000 X                      SA4    =XLSN       SETUP A *BOS* AT THE BEGIN OF *TXT*         PROSEQ    107
                          20436                   LX4    R1.INP                                                  PROSEQ    108
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE     4
                                                                      PROSEQ
  
                               27614              PX6    B1,X4                                                   PROSEQ    109
            54  5141001114 +                      SA4    F.RDT+B1                                                PROSEQ    110
                          53650                   SA6    X5                                                      PROSEQ    111
                               43700              MX7    0                                                       PROSEQ    112
            55  54761                             SA7    A6+B1                                                   PROSEQ    113
                     10644                        BX6    X4                                                      PROSEQ    114
                          54671                   SA6    A7+B1                                                   PROSEQ    115
                               54761              SA7    A6+B1                                                   PROSEQ    116
            56  5110000000 +                      SA1    BIR                                                     PROSEQ    117
                          5120000001 X            SA2    BRN+1                                                   PROSEQ    118
            57  5130000000 X                      SA3    WB                                                      PROSEQ    119
                          10611                   BX6    X1                                                      PROSEQ    120
                               54611              SA6    A1+B1       BIR(2) = BIR(1)  ( INTERMEDIATE R-NUMBERS ) PROSEQ    121
            60  22702                             LX7    X2                                                      PROSEQ    122
                     55721                        SA7    A2-B1       BRN(1) = BRN(2) ( NEW BASE = OLD MAX )      PROSEQ    123
                          23413                   AX4    B1,X3                                                   PROSEQ    124
                               11634              BX6    X3*X4       WB = WB & SHIFT(WB,-1)  */ WB = 1S59 IF OPT PROSEQ    125
            61  5150001322 +                      SA5    L.ALS                                                   PROSEQ    126
                          7275777776              SX7    X5-1                                                    PROSEQ    127
            62  54630                             SA6    A3                                                      PROSEQ    128
                     5170000003 +                 SA7    LALS        LALS = L.ALS - 1                            PROSEQ    129
            63  0400000004 +                      EQ     PROSEQ                                                  PROSEQ    130
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE     5
        SSP - SET SEQUENCE POINTERS FOR OPT=1                         SSP 
  
                                        **        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
                                                  EXT    O.SEQ,L.SEQ                                             PROSEQ    139
                                                                                                                 PROSEQ    140
            64  0400400064 +             SSP      ENTRY. **                                                      PROSEQ    141
            65  5140001302 +                      SA4    L.BLK                                                   PROSEQ    142
                          0314000075 +            NZ     X4,SSP1     IF L.BLK " 0                                PROSEQ    143
                                                                                                                 PROSEQ    144
            66  5150001325 +                      SA5    LM                                                      PROSEQ    145
                          7110000004              ALLOC  TXT,4       ALLOC( TXT , 4 )                            PROSEQ    146
            70  10622                             BX6    X2                                                      PROSEQ    147
                     5160000000 X                 SA6    O.SEQ       O.SEQ = O.TXT                               PROSEQ    148
                               73726              SX7    X2+B6                                                   PROSEQ    149
            71  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
            72  53621                             SA6    X2+B1       TXTL[SEQ+1] = L.SEQ                         PROSEQ    153
                     7160000004                   SX6    4                                                       PROSEQ    154
                               54630              SA6    A3          L.TXT = 4                                   PROSEQ    155
            73  37775                             IX7    X7-X5                                                   PROSEQ    156
                     5170001302 +                 SA7    L.BLK       L.BLK = O.TXT - LM                          PROSEQ    157
            74  0400000064 +                      EQ     SSP                                                     PROSEQ    158
                                                                                                                 PROSEQ    159
            75  5110001303 +             SSP1     SA1    L.TXT       LT = L.TXT                                  PROSEQ    160
                          5120001261 +            SA2    O.TXT       OT = O.TXT                                  PROSEQ    161
            76  5130001325 +                      SA3    LM                                                      PROSEQ    162
                          22701                   LX7    X1                                                      PROSEQ    163
                               10633              BX6    X3                                                      PROSEQ    164
            77  5170000000 X                      SA7    L.SEQ       L.SEQ = L.TXT                               PROSEQ    165
                          5160000000 X            SA6    O.SEQ       O.SEQ = LM                                  PROSEQ    166
           100  5170001302 +                      SA7    L.BLK       L.BLK = L.TXT                               PROSEQ    167
                          5160001260 +            SA6    O.BLK       O.BLK = LM                                  PROSEQ    168
           101  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
           102  7160000004                        SX6    4                                                       PROSEQ    172
                          54610                   SA6    A1          L.TXT = 4                                   PROSEQ    173
           103  0100000000 X                      MOVE   X1,X2,X3    MOVE( LT , OT , LM )                        PROSEQ    174
           104  0400000064 +                      EQ     SSP                                                     PROSEQ    175
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      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
           105  0400400105 +             PSB      ENTRY. **          **ENTRY/EXIT**                              PROSEQ    180
           106  5110000012                        SA1    O.SYM                                                   PROSEQ    181
                          5150001261 +            SA5    O.TXT                                                   PROSEQ    182
           107  6140000004                        SB4    4                                                       PROSEQ    183
                          5201777776              SA0    X1-1                                                    PROSEQ    184
           110  6150100000                        SB5    I.GL                                                    PROSEQ    185
                          6160000122 +            SB6    TSBA                                                    PROSEQ    186
           111  66310                             SB3    B1                                                      PROSEQ    187
                     7170000002                   SX7    10B-T.LAB                                               PROSEQ    188
                               20770              LX7    P.TYP       */  CARRY ADDEND FOR LABEL TEST             PROSEQ    189
                                   2              ERRMI  10B-T.LAB         RECODE THIS SUBROUTINE                PROSEQ    190
           112  43072                             MX0    -2                        */ MASK FOR F.P. AND LVL2 BIT PROSEQ    191
                     53550                        SA5    X5          R1 = O.TXT                                  PROSEQ    192
                                                                                                                 PROSEQ    193
           113  54554                    TSB1     SA5    A5+B4       R1 = R1 + 4                                 PROSEQ    194
                     54451                        SA4    A5+B1       R2 = R1 + 1                                 PROSEQ    195
                          0430000105 +            ZR     B3,PSB      IF OC[R1-4] = 0                             PROSEQ    196
           114  26635                             UX6    B3,X5                                                   PROSEQ    197
                                                  LX4    -IH.IHP                                                 PROSEQ    198
                     63240                        SB2    X4                                                      PROSEQ    199
                          0420000113 +            ZR     B2,TSB1     IF IH[R2] = 0                               PROSEQ    200
           115  0625000113 +                      GE     B2,B5,TSB1  IF I[R2] " 0                                PROSEQ    201
                          54241                   SA2    A4+B1       DI = R2 + 1                                 PROSEQ    202
                               66222              SB2    B2+B2                                                   PROSEQ    203
           116  20201                             LX2    59-D.TYP                                                PROSEQ    204
                     0332000113 +                 MI     X2,TSB1     IF TYPE[DI] = II ! IV                       PROSEQ    205
                               55102              SA1    A0-B2       WORDB = [O.SYM-1-2*IH[R2]]                  PROSEQ    206
           117  20273                             LX2    1+D.TYP                                                 PROSEQ    207
                     36517                        IX5    X1+X7                                                   PROSEQ    208
                          0335000113 +            MI     X5,TSB1     IF TYPE[WORDB] \ T.LAB  */ TRICY TEST       PROSEQ    209
           120  15410                             BX4    -X0*X1                                                  PROSEQ    210
                     53346                        SA3    B6+X4       FP[DI] = FP[WORDB];  L2[DI] = L2[WORDB]     PROSEQ    211
                          12623                   BX6    X2+X3                                                   PROSEQ    212
                               54620              SA6    A2                                                      PROSEQ    213
           121  0400000113 +                      EQ     TSB1                                                    PROSEQ    214
                                                                                                                 PROSEQ    215
           122                           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
      L      3                                    BFMW   D,(FP,L2)                                               PROSEQ    221
      L      4                                    BFMW   D,(FP,L2)                                               PROSEQ    222
      L    127                                    LOC    *O                                                      PROSEQ    223
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE     7
        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                                                 F2950F4   163
                                   7     TRW      EQU    7                                                       F2950F4   164
                                                  ELSE                                                           F2950F4   165
                                         TRW      EQU    6                                                       F2950F4   166
                                                  ENDIF                                                          F2950F4   167
                                                                                                                 PROSEQ    243
                                        *         EQUATE THREE TEMP TABLES.                                      PROSEQ    244
                                                                                                                 PROSEQ    245
                                                  RMT                                                            PROSEQ    246
                                                  ECHO   ,A=(BCT,DUT,PBT),B=(RCT,RND,PIT)                        PROSEQ    247
                                         L.A      EQU    L.B                                                     PROSEQ    248
                                         O.A      EQU    O.B                                                     PROSEQ    249
                                         Z.A      EQU    Z.B                                                     PROSEQ    250
                                                  ENDD                                                           PROSEQ    251
                                                  RMT                                                            PROSEQ    252
                                                                                                                 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
                                         RIL      BIT    R1.RIL                                                  PROSEQ    260
                              177776     RMSK     EQU    RIL-1-1                                                 PROSEQ    261
                                                                                                                 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
                                         MRW      DEFINE 18          MAXIMUM REG WIDTH ACROSS SUB-SEQUENCE       PROSEQ    271
                                         NRF      DEFINE 18          NUMBER OF *RF* DEFINITIONS IN SUBSEQUENCE   PROSEQ    272
                                         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
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE     8
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
                                         MRW      DEFINE 18          MAXIMUM REGISTER WIDTH ACROSS EXT. USE SPAN PROSEQ    279
                                         LXU      DEFINE 18          INDEX IN *SEQ* OF LAST EXTENDED USE         PROSEQ    280
                                         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
                                         RN       DEFINE 3           B-REGISTER NUMBER OF THIS LOCK              PROSEQ    287
                                         RI       DEFINE 18          INDEX IN *SEQ* OF THIS DEFINITION           PROSEQ    288
                                         LU       DEFINE 18          LAST USE OF THIS LOCK                       PROSEQ    289
                                         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
                                         SU       DEFINE 1           SHORT USE                                   PROSEQ    295
                                         SC       DEFINE 11          SHIFT COUNT TO MOVE R-FIELD USED TO BIT 0   PROSEQ    296
                                                  DEFINE 12                                                      PROSEQ    297
                                         DEF      DEFINE 18          RI OF DEFINITION                            PROSEQ    298
                                         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
                                         LXU      DEFINE 18                                                      PROSEQ    306
                                         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
                                         II       DEFINE 18          POINTS TO DUT ENTRY FOR FIRST USE           PROSEQ    313
                                         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
                                         NA       DEFINE 1           THIS REG OFF MARKET FOR REST OF *SEQ*       PROSEQ    319
                                                  DEFINE 41                                                      PROSEQ    320
                                         P        DEFINE 18          LINK TO NEXT PERTINENT PBT ENTRY            PROSEQ    321
                                                                                                                 PROSEQ    322
                                        *         FIXED STORAGE DECLARATIONS.                                    PROSEQ    323
                                                                                                                 PROSEQ    324
                                                  USE    /TABLES/                                                PROSEQ    325
             0                     1     FLF      BSS    1           FULL LOCK FLAGS                             PROSEQ    326
             1                     7     PBI      BSS    7           PBT INDEX VECTOR                            PROSEQ    327
            10                     7     CAT      BSS    7           CURRENT ASSIGNMENT TABLE                    PROSEQ    328
            17                     1     NSO      BSS    1           NEXT SEQUENCE ORIGIN INDEX                  PROSEQ    329
            20                     1     MRF      BSS    1           MAX(RF DEFS IN SUBSEQUENCE)                 PROSEQ    330
            21                     1     LBMA     BSS    1           SAVE (O.SEQ-2) IN LBM                       PROSEQ    331
            22                     1     IUMB     BSS    1           SAVE (UL) IN IUM                            PROSEQ    332
                                                  USE    0                                                       PROSEQ    333
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE     9
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
                                        **        AIS - MAIN LOOP                                                PROSEQ    335
                                                                                                                 PROSEQ    336
           127  7160000000               AIS0     SX6    0                                                       PROSEQ    337
                          5160001314 +            SA6    L.BCT       L.BCT = 0                                   PROSEQ    338
           130  5160001304 +                      SA6    L.DUT       L.DUT = 0                                   PROSEQ    339
                          5160001305 +            SA6    L.PBT       L.PBT = 0                                   PROSEQ    340
                                                                                                                 PROSEQ    341
                                                  TRACE  AIMOD,RLIST,MOD                                         PROSEQ    342
                                                  TRACE  AIMOD,MLT                                               PROSEQ    343
           131  0100000000 X                      CALL   MPB         MERGE MODS WITH SEQUENCE (NO SQUEEZE)       PROSEQ    344
                                                  TRACE  AIMPB,RLIST                                             PROSEQ    345
                                                                                                                 PROSEQ    346
           132  0100000000 X                      CALL   CUC         COLLECT USES COUNTS                         PROSEQ    347
                                                  TRACE  AIS,RLIST                                               PROSEQ    348
                                                                                                                 PROSEQ    349
           133  0400400133 +             AIS      ENTRY. **          **ENTRY/EXIT**                              PROSEQ    350
           134  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    351
                          5221000002              SA2    X1+2                                                    PROSEQ    352
           135  43063                             MX0    -D.REGWL                                                PROSEQ    353
                     20263                        LX2    -D.REGWP                                                PROSEQ    354
                          15620                   BX6    -X0*X2                                                  PROSEQ    355
           136  7206777770                        SX0    X6-TRW                                                  PROSEQ    356
                                                  TRACE  AIENT,RLIST,SEQ                                         PROSEQ    357
                                                                                                                 PROSEQ    358
                          0330000127 +            MI     X0,AIS0     IF MAXW .LT. TRW                            PROSEQ    359
           137  0100000207 +                      RJ     LBM         LOCATE SEQUENCE BOUNDARIES                  PROSEQ    360
                                                  TRACE  AILBM,RLIST,SEQ                                         PROSEQ    361
                                                                                                                 PROSEQ    362
           140  5110000020 C                      SA1    MRF                                                     PROSEQ    363
                          74500                   SX5    A0                                                      PROSEQ    364
           141  0301000127 +                      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
           143  10155                             BX1    X5                                                      PROSEQ    371
                     20502                        LX5    2                                                       PROSEQ    372
                          73111                   ALLOC  MLT,B1+X1   ALLOC (MLT,MMOD+1)                          PROSEQ    373
                                                                                                                 PROSEQ    374
           145  7215000004                        ALLOC  MOD,X5+4    ALLOC(MOD,4*(MMOD+1))                       PROSEQ    375
                                                                                                                 PROSEQ    376
           147  5110000000 X                      SA1    L.SEQ                                                   PROSEQ    377
                          23211                   AX2    B1,X1                                                   PROSEQ    378
                               23512              AX5    B1,X2                                                   PROSEQ    379
           150  36125                             IX1    X2+X5                                                   PROSEQ    380
                                                                                                                 PROSEQ    381
                                        *         ALLOCATE FOR DEF-USE *TREE*.                                   PROSEQ    382
                                                                                                                 PROSEQ    383
                     5100000002                   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
           152  73150                             ALLOC  PBT,X5      ALLOC (PBT,1/4*L.SEQ)                       PROSEQ    388
                                                                                                                 PROSEQ    389
           154  7170000004                        SX7    4                                                       PROSEQ    390
                          43600                   MX6    0                                                       PROSEQ    391
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    10
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
           155  5170001307 +                      SA7    L.MOD       L.MOD = 4                                   PROSEQ    392
                          5160001306 +            SA6    L.MLT       L.MLT = 0                                   PROSEQ    393
           156  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    394
                          6221000004              SB2    X1+4        R1F = O.SEQ + 4                             PROSEQ    395
           157  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
           160  0400000163 +                      EQ     AIS2                                                    PROSEQ    402
                                                                                                                 PROSEQ    403
                                        *         PROCESS ALL SUBSEQUENCES, AS DEMARCATED BY *LBM*.              PROSEQ    404
                                                                                                                 PROSEQ    405
           161  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
           162  63211                             SB2    X1+B1       R1F = LI + 1                                PROSEQ    410
                     53210                        SA2    X1          LIW = [LI]                                  PROSEQ    411
                                                                                                                 PROSEQ    412
           163  63320                    AIS2     SB3    X2                                                      PROSEQ    413
                     0430000127 +                 ZR     B3,AIS0     IF P[LIW] = 0  */ END OF SEQ                PROSEQ    414
                               10622              BX6    X2                                                      PROSEQ    415
                                                  LX2    -BM.PP                                                  PROSEQ    416
           164  6232777774                        SB3    X2-3        R1L = P[LIW] - 3                            PROSEQ    417
                          64303                   SB3    A0+B3                                                   PROSEQ    418
           165  5160000017 C                      SA6    NSO         [NSO] = LIW                                 PROSEQ    419
                          0623000161 +            LE     B3,B2,AIS1  IF R1L .LE. R1F                             PROSEQ    420
           166  20652                             LX6    -BM.NRFP                                                PROSEQ    421
                     73460                        SX4    X6                                                      PROSEQ    422
                          0304000161 +            ZR     X4,AIS1     IF NRF[LIW] = 0                             PROSEQ    423
           167  20652                             LX6    BM.NRFP-BM.MRWP                                         PROSEQ    424
                     7256777770                   SX5    X6-TRW                                                  PROSEQ    425
           170  0335000161 +                      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
           171  6140000073                        SB4    59                                                      PROSEQ    432
                          43700                   MX7    0                                                       PROSEQ    433
                               66500              SB5    B0          BI = 0                                      PROSEQ    434
           172  6160000007                        SB6    7                                                       PROSEQ    435
                                                                                                                 PROSEQ    436
           173  20173                    AIS3     LX1    -1                                                      PROSEQ    437
                     6155000001                   SB5    B5+1        BI = BI + 1                                 PROSEQ    438
                               23641              AX6    B4,X1       PBI(BI) = 0                                 PROSEQ    439
           174  5165000000 C                      SA6    PBI-1+B5    NA[PBI(BI)] = FLF(BI)                       PROSEQ    440
                          0556000173 +            NE     B5,B6,AIS3  IF BI .NE. 7                                PROSEQ    441
                                                                                                                 PROSEQ    442
           175  54710                    AIS4     SA7    A1          FLF = 0                                     PROSEQ    443
                     5110001263 +                 SA1    O.PBT                                                   PROSEQ    444
                               76610              SX6    B1                                                      PROSEQ    445
           176  5170001314 +                      SA7    L.BCT       L.BCT = 0                                   PROSEQ    446
                          5271000000              SA7    X1+         [O.PBT] = 0                                 PROSEQ    447
           177  5160001305 +                      SA6    L.PBT       L.PBT = 1                                   PROSEQ    448
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    11
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
                          0100000247 +            RJ     BDU         BUILD DEF-USE TABLE AND BCT AND PBT         PROSEQ    449
                                                                                                                 PROSEQ    450
                                         .T       IFNE   TEST,0                                                  PROSEQ    451
                                                  SA2    O.DUT                                                   PROSEQ    452
                                                  SA1    B3-B1                                                   PROSEQ    453
                                                  LX1    -DP.NIP                                                 PROSEQ    454
                                                  IX5    X1-X2                                                   PROSEQ    455
                                                  SX6    X5+                                                     PROSEQ    456
                                                  SA6    L.DUT       L.DUT = NI[R1L-1] - O.DUT                   PROSEQ    457
                                         .T       ENDIF                                                          PROSEQ    458
                                                                                                                 PROSEQ    459
                                                  TRACE  AIS,RLIST,SEQ                                           PROSEQ    460
                                                  TRACE  AIS,(DUT,BCT,PBT)                                       PROSEQ    461
                                                                                                                 PROSEQ    462
           200  0100000356 +                      RJ     IXU         INSERT EXTENDED USE INFO INTO BCT           PROSEQ    463
                                                  TRACE  AIS,BCT                                                 PROSEQ    464
                                                                                                                 PROSEQ    465
           201  7254777770                        SX5    X4-TRW                                                  PROSEQ    466
                          0335000161 +            MI     X5,AIS1     IF SMAXW .LT. TRW                           PROSEQ    467
                                                                                                                 PROSEQ    468
           202  0100000343 +                      RJ     IUP         INSERT USE INFO INTO PBT                    PROSEQ    469
                                                  TRACE  AIS,PBT                                                 PROSEQ    470
                                                                                                                 PROSEQ    471
           203  0100000400 +                      RJ     ABR         ASSIGN B-REGS AND TABLE MODS                PROSEQ    472
                                                  TRACE  AIS,RLIST,MOD                                           PROSEQ    473
                                                  TRACE  AIS,MLT                                                 PROSEQ    474
           204  0400000161 +                      EQ     AIS1                                                    PROSEQ    475
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    12
        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
           205  5110000021 C             LBM0     SA1    LBMA                                                    PROSEQ    489
                          5120000000 X            SA2    O.SEQ                                                   PROSEQ    490
           206  10611                             BX6    X1                                                      PROSEQ    491
                     5262777775                   SA6    X2-2        [O.SEQ-2] = SAVE                            PROSEQ    492
                                                                                                                 PROSEQ    493
           207  0200400207 +             LBM      ROUTINE                                                        PROSEQ    494
           210  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    495
                          53311                   SA3    X1+B1                                                   PROSEQ    496
           211  6223777775                        SB2    X3-2        LD = TXTL - 2                               PROSEQ    497
                          53512                   SA5    X1+B2       I = N.INS ; DIN = O.SEQ + LD ; DINW = [DIN] PROSEQ    498
           212  5231777775                        SA3    X1-2                                                    PROSEQ    499
                          43700                   MX7    0                                                       PROSEQ    500
                               10633              BX6    X3          SAVE = [O.SEQ-2]                            PROSEQ    501
           213  54730                             SA7    A3          [O.SEQ-2] = 0                               PROSEQ    502
                     5160000021 C                 SA6    LBMA                                                    PROSEQ    503
                               10177              BX1    X7          TUSES = 0                                   PROSEQ    504
           214  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
           215  5170000020 C                      SA7    MRF         MRF = 0                                     PROSEQ    509
                          0400000240 +            EQ     LBM5                                                    PROSEQ    510
                                                                                                                 PROSEQ    511
                                        *         BOUNDARY MARKER BREAKS SUBSEQUENCE.  FILE BM WORD FOR SEQUENCE PROSEQ    512
                                        *         JUST SCANNED (FOLLOWING).                                      PROSEQ    513
                                                                                                                 PROSEQ    514
           216  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
           217  0334000240 +                      MI     X4,LBM5     IF TY[DIW] = II                             PROSEQ    519
                          5035000002              SA3    A5+2        R1I = DIN + 2 ;  RIW = [R1I]                PROSEQ    520
           220  26423                             UX4    B2,X3                                                   PROSEQ    521
                     6152777775                   SB5    B2-OC.EOS                                               PROSEQ    522
           221  0550000223 +                      NZ     B5,LBM1A    IF OC[R1W] .NE. OC.EOS                      PROSEQ    523
                          73430                   SX4    X3                                                      PROSEQ    524
           222  0314000240 +                      NZ     X4,LBM5     IF IH[RIW] .NE. 0   */ OPT=2 EOS            PROSEQ    525
                                                                                                                 PROSEQ    526
           223  0330000225 +             LBM1A    MI     X0,LBM2     IF TY[DIW] .NE. III                         PROSEQ    527
                          6152777707              SB5    B2-OC.JIN                                               PROSEQ    528
           224  0550000240 +                      NZ     B5,LBM5     IF OC[RIW] .NE. OC.JIN                      PROSEQ    529
                                                                                                                 PROSEQ    530
           225  76630                    LBM2     SX6    B3                                                      PROSEQ    531
                     5130000020 C                 SA3    MRF                                                     PROSEQ    532
                               66733              SB7    B3+B3                                                   PROSEQ    533
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    13
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            LBM                 AIS 
  
           226  37736                             IX7    X3-X6                                                   PROSEQ    534
                     66773                        SB7    B7+B3                                                   PROSEQ    535
                          66300                   SB3    B0          NRF = 0                                     PROSEQ    536
           227  0327000230 +                      PL     X7,LBM3     IF MRF .GE. NRF                             PROSEQ    537
                          54630                   SA6    A3          MRF = NRF                                   PROSEQ    538
                                                                                                                 PROSEQ    539
           230  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
           231  20622                             LX6    BM.NRFP                                                 PROSEQ    548
                     12262                        BX2    X6+X2                                                   PROSEQ    549
                                                  LX7    BM.PP                                                   PROSEQ    550
                          12672                   BX6    X7+X2                                                   PROSEQ    551
           232  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    552
                          5065000005              SA6    A5+5        LI = DIN + 5 ;  [LI] = BMW(NRF,PLINK,MAXW)  PROSEQ    553
           233  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
           234  0305000205 +                      ZR     X5,LBM0     IF DINW = 0   */ IF I = 0                   PROSEQ    558
                          0400000240 +            EQ     LBM5                                                    PROSEQ    559
                                                                                                                 PROSEQ    560
           235  20645                    LBM4     LX6    D.RFP-D.BMP                                             PROSEQ    561
                     10766                        BX7    X6                                                      PROSEQ    562
                          0305000216 +            ZR     X5,LBM1     IF DINW = 0   */ BOS                        PROSEQ    563
           236  20701                             LX7    D.BMP-D.^DP                                             PROSEQ    564
                     0327000240 +                 PL     X7,LBM5     IF D[DIW]     */ POSSIBLE DEF               PROSEQ    565
           237  0336000216 +                      MI     X6,LBM1     IF BM[DIW]                                  PROSEQ    566
                                                                                                                 PROSEQ    567
           240  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
           241  20663                             LX6    -D.REGWP                                                PROSEQ    571
                     15460                        BX4    -X0*X6      REG = REGW[DIW]                             PROSEQ    572
                          37724                   IX7    X2-X4                                                   PROSEQ    573
           242  0327000243 +                      PL     X7,LBM6     IF MAXW .GE. REG                            PROSEQ    574
                          10244                   BX2    X4          MAXW = REG                                  PROSEQ    575
                                                                                                                 PROSEQ    576
           243  20661                    LBM6     LX6    59-D.RFP+D.REGWP                                        PROSEQ    577
                     0326000235 +                 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
           244  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
           245  20650                             LX6    D.USESP+59-D.RFP                                        PROSEQ    587
                     0400000235 +                 EQ     LBM4                                                    PROSEQ    588
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    14
        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
           246                           BDUA     BFMW   D,(PRS,RJRS,PI),59-D.RFP                                FCC0586     4
                                                                                                                 FCC0586     5
           247  0200400247 +             BDU      ROUTINE                                                        PROSEQ    601
           250  6122777773                        SB2    B2-4        R1I = R1F - 4                               PROSEQ    602
                          5110001262 +            SA1    O.DUT                                                   PROSEQ    603
           251  63710                             SB7    X1          DUI = O.DUT                                 PROSEQ    604
                                                                                                                 PROSEQ    605
           252  6122000004               BDU1     SB2    B2+4        R1I = R1I + 4                               PROSEQ    606
                          43063                   MX0    -D.USESL                                                PROSEQ    607
           253  5112000002                        SA1    B2+2        DI = R1I + 2 ;  DIW = [DI]                  PROSEQ    608
                          0423000247 +            EQ     B2,B3,BDU   IF R1I = R1L                                PROSEQ    609
           254  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
           255  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
           256  20122                             LX1    D.USESP+59-D.^DP                                        FCC0586    12
                     0331000264 +                 MI     X1,BDU2     IF ^D[DIW]                                  FCC0586    13
                               10011              BX0    X1                                                      FCC0586    14
           257  63737                             SB7    B7+X3       DUI = DUI + U                               FCC0586    15
                     20026                        LX0    D.^DP-D.RFP                                             FCC0586    16
                          0320000264 +            PL     X0,BDU2     IF ^RF[DIW]                                 FCC0586    17
           260  5130000246 +                      SA3    BDUA                                                    FCC0586    18
                          11030                   BX0    X3*X0                                                   FCC0586    19
           261  0310000264 +                      NZ     X0,BDU2     IF (PRS,RJRS,PI)[DIW]                       FCC0586    20
                                                                                                                 PROSEQ    632
                                        *         FILE *RF* DEFINITION IN BCT.                                   PROSEQ    633
                                                                                                                 PROSEQ    634
                          5140001314 +            SA4    L.BCT                                                   PROSEQ    635
           262  5130001272 +                      SA3    O.BCT                                                   PROSEQ    636
                          43054                   MX0    -R1.RIL                                                 PROSEQ    637
                               63540              SB5    X4                                                      PROSEQ    638
                                                  LX2    -R1.RIP                                                 PROSEQ    639
           263  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
                               54740              SA7    A4          L.BCT = L.BCT + 1                           PROSEQ    645
                                                                                                                 PROSEQ    646
           264  20152                    BDU2     LX1    1+D.^DP+58-D.TYP                                        FCC0586    21
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    15
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
                     36711                        IX7    X1+X1                                                   PROSEQ    648
                          0331000321 +            MI     X1,BDU6     IF TY[DIW] .GE. III                         PROSEQ    649
           265  0337000300 +                      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
           266  6156777724                        SB5    B6-OC.PLD                                               PROSEQ    656
                          15716                   BX7    -X6*X1                                                  PROSEQ    657
                               43054              MX0    -R1.RIL                                                 PROSEQ    658
           267  5237000000 X                      SA3    =XTYIOM+X7                                              PROSEQ    659
                          26643                   UX6    B4,X3                                                   PROSEQ    660
                               11362              BX3    X6*X2                                                   PROSEQ    661
           270  23443                             AX4    B4,X3                                                   PROSEQ    662
                     15340                        BX3    -X0*X4                                                  PROSEQ    663
                                                                                                                 PROSEQ    664
           271  0303000275 +             BDU3     ZR     X3,BDU4     IF OPN = 0                                  PROSEQ    665
                          0100000332 +            RJ     EDU         ENTER USE IN DUT                            PROSEQ    666
           272  0750000275 +                      MI     B5,BDU4     IF OCI .LT. OC.PLD                          PROSEQ    667
                          0450000274 +            ZR     B5,BDU3A    IF OCI = OC.PLD                             PROSEQ    668
           273  0551000275 +                      NE     B5,B1,BDU4  IF OCI .NE. OC.PST                          PROSEQ    669
                          0440000275 +            ZR     B4,BDU4     IF RI MOD                                   PROSEQ    670
                                                                                                                 PROSEQ    671
                                        *         SHORT USE. SET SU BIT IN DUT ENTRY.                            PROSEQ    672
                                                                                                                 PROSEQ    673
           274  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
           275  21420                    BDU4     AX4    R1.RIL                                                  PROSEQ    679
                     0304000252 +                 ZR     X4,BDU1     IF NO OPERANDS REMAIN                       PROSEQ    680
           276  6144000020                        SB4    B4+R1.RIL                                               PROSEQ    681
                          15340                   BX3    -X0*X4      OPN =                                       PROSEQ    682
           277  0400000271 +                      EQ     BDU3                                                    PROSEQ    683
                                                                                                                 PROSEQ    684
                                        *         TYPE II INSTRUCTION.                                           PROSEQ    685
                                                                                                                 PROSEQ    686
           300  20135                    BDU5     LX1    1+D.TYP-D.PIP                                           PROSEQ    687
                     0321000252 +                 PL     X1,BDU1     IF ^PI[DIW]                                 PROSEQ    688
                                                                                                                 PROSEQ    689
                                        *         RS OR DEF INSTRUCTION.                                         PROSEQ    690
                                                                                                                 PROSEQ    691
                               10322              BX3    X2                                                      PROSEQ    692
           301  20161                             LX1    D.PIP-D.^DP                                             PROSEQ    693
                     0321000305 +                 PL     X1,BDU5A    IF D[DIW]                                   PROSEQ    694
                               20345              LX3    59-R1.SOP-SO.LKP                                        PROSEQ    695
           302  0333000305 +                      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
                                                  LX2    -R1.RIP                                                 PROSEQ    702
           303  15320                             BX3    -X0*X2                                                  PROSEQ    703
                     0100000332 +                 RJ     EDU                                                     PROSEQ    704
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    16
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
           304  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
           305  43071                    BDU5A    MX0    -SO.RTL                                                 PROSEQ    707
                     20251                        LX2    -R1.SOP-SO.RTP                                          PROSEQ    708
                          15320                   BX3    -X0*X2                                                  PROSEQ    709
           306  6263777777                        SB6    X3-RT.BR                                                PROSEQ    710
                          0560000252 +            NZ     B6,BDU1     IF NOT B-REG LOCK                           PROSEQ    711
           307  20203                             LX2    SO.RTP-SO.RNP                                           PROSEQ    712
                     15320                        BX3    -X0*X2                                                  PROSEQ    713
                          0303000252 +            ZR     X3,BDU1     IF LOCK OF B0                               PROSEQ    714
           310  63530                             SB5    X3                                                      PROSEQ    715
                                                                                                                 PROSEQ    716
                                        *         ENTER PRE-ASSIGNED B-REG IN PBT.                               PROSEQ    717
                                                                                                                 PROSEQ    718
                     5150001305 +                 SA5    L.PBT                                                   PROSEQ    719
           311  5140001263 +                      SA4    O.PBT                                                   PROSEQ    720
                          20220                   LX2    SO.RNP+R1.SOP-R1.RIP                                    PROSEQ    721
                               43054              MX0    -R1.RIL                                                 PROSEQ    722
           312  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
           313  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
           314  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
           315  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
           316  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
           317  5140000000 C                      SA4    FLF                                                     PROSEQ    745
                          22252                   LX2    B5                                                      PROSEQ    746
                               12642              BX6    X4+X2                                                   PROSEQ    747
           320  54640                             SA6    A4                                                      PROSEQ    748
                     0400000252 +                 EQ     BDU1                                                    PROSEQ    749
                                                                                                                 PROSEQ    750
                                        *         TYPE III OR IV INSTRUCTION.                                    PROSEQ    751
                                                                                                                 PROSEQ    752
           321  0337000252 +             BDU6     MI     X7,BDU1     IF TY[DIW] = IV                             PROSEQ    753
                          20122                   LX1    1+D.TYP-D.^DP                                           PROSEQ    754
           322  7100177776                        SX0    RMSK                                                    PROSEQ    755
                          0321000325 +            PL     X1,BDU7     IF D[DIW]                                   PROSEQ    756
           323  11302                             BX3    X0*X2                                                   PROSEQ    757
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    17
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
                     0303000325 +                 ZR     X3,BDU7     IF RI[R1W] .LT. 2                           PROSEQ    758
           324  6140000000                        SB4    0           SC = 0                                      PROSEQ    759
                          0100000332 +            RJ     EDU         ENTER USE OF RI IN DUT                      PROSEQ    760
                                                                                                                 PROSEQ    761
           325  56421                    BDU7     SA4    B2+B1       R2 = R1I + 1 ;  R2W = [R2]                  PROSEQ    762
                     20430                        LX4    -IH.RFP                                                 PROSEQ    763
                          11304                   BX3    X0*X4                                                   PROSEQ    764
           326  0303000252 +                      ZR     X3,BDU1     IF RF[R2W] .LT. 2                           PROSEQ    765
                          6140777733              SB4    -IH.RFP     SC = IH.RFP                                 PROSEQ    766
           327  0100000332 +                      RJ     EDU         FILE USE OF RF IN DUT                       PROSEQ    767
                                                                                                                 PROSEQ    768
                                        *         MARK SHORT USE.                                                PROSEQ    769
                                                                                                                 PROSEQ    770
           330  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
           331  0400000252 +                      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
           332  0200400332 +             EDU      ROUTINE                                                        PROSEQ    787
           333  64600                             SB6    A0                                                      PROSEQ    788
                     77626                        SX6    B2-B6       USE = R1I - O.SEQ                           PROSEQ    789
                          6060000003              SB6    A0+3                                                    PROSEQ    790
           334  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
           335  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
           336  20552                             LX5    DP.NIP-DP.IIP                                           FCC1837X   12
                     63650                        SB6    X5                                                      FCC1837X   13
                          75376                   SX3    A7-B6                                                   FCC1837X   14
           337  0303000332 +                      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
                                                                                                                 FCC1837X   19
                          55571                   SA5    A7-B1                                                   FCC1837X   20
                                                  LX7    -DU.USEP                                                FCC1837X   21
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    18
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            EDU                 AIS 
  
                               73670              SX6    X7                                                      FCC1837X   22
                                                  LX5    -DU.USEP                                                FCC1837X   23
           340  73350                             SX3    X5                                                      FCC1837X   24
                     37363                        IX3    X6-X3                                                   FCC1837X   25
                                                  LX7    DU.USEP                                                 FCC1837X   26
                          0323000332 +            PL     X3,EDU      IF USE[NI] \ USE[NI-1]                      FCC1837X   27
                                                  LX5    DU.USEP                                                 FCC1837X   28
           341  55771                             SA7    A7-B1       SWAP( DUT(NI) , DUT(NI-1) )                 FCC1837X   29
                     10755                        BX7    X5                                                      FCC1837X   30
                          54771                   SA7    A7+B1                                                   FCC1837X   31
           342  0400000332 +                      EQ     EDU                                                     PROSEQ    802
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    19
        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
           343  0200400343 +             IUP      ROUTINE                                                        PROSEQ    810
           344  5110001305 +                      SA1    L.PBT                                                   PROSEQ    811
                          5120001263 +            SA2    O.PBT                                                   PROSEQ    812
           345  63720                             SB7    X2                                                      PROSEQ    813
                     53117                        SA1    X1+B7       PBC = PBT(L.PBT+1)                          PROSEQ    814
                          6070000003              SB7    A0+3                                                    PROSEQ    815
           346  43071                             MX0    -PB.RNL                                                 PROSEQ    816
                     0400000350 +                 EQ     IUP2                                                    PROSEQ    817
                                                                                                                 PROSEQ    818
           347  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
           350  55111                    IUP2     SA1    A1-B1       PBC = PBC - 1 ;  PBW = [PBC]                PROSEQ    824
                     0301000343 +                 ZR     X1,IUP      IF PBC = PBT(0)                             PROSEQ    825
                               20106              LX1    -PB.RNP                                                 PROSEQ    826
           351  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
           352  0332000350 +                      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
           353  54620                             SA6    A2          P[PI] = PBC                                 PROSEQ    835
                     73310                        SX3    X1                                                      PROSEQ    836
                          0313000347 +            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
           354  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
           355  73340                             SX3    X4                                                      PROSEQ    846
                     12113                        BX1    X1+X3       LU[PBW] = USE[DUW]                          PROSEQ    847
                          0400000347 +            EQ     IUP1                                                    PROSEQ    848
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    20
        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
           356  0200400356 +             IXU      ROUTINE                                                        PROSEQ    858
           357  5110001272 +                      SA1    O.BCT                                                   PROSEQ    859
                          5120001314 +            SA2    L.BCT                                                   PROSEQ    860
           360  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
           361  5211777776                        SA1    X1-1        N = 0                                       PROSEQ    865
                          6060000003              SB6    A0+3        OLS = O.SEQ + 3                             PROSEQ    866
           362  6050000002                        SB5    A0+2        ODS = O.SEQ + 2                             PROSEQ    867
                          0400000365 +            EQ     IXU3                                                    PROSEQ    868
                                                                                                                 PROSEQ    869
           363  37347                    IXU1     IX3    X4-X7                                                   PROSEQ    870
                     0323000364 +                 PL     X3,IXU2     IF SMAXW \ MAXR                             PROSEQ    871
                               10477              BX4    X7          SMAXW = MAXR                                PROSEQ    872
                                                                                                                 PROSEQ    873
                                         IXU2     LX1    BC.RIP                                                  PROSEQ    874
           364  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
           365  54111                    IXU3     SA1    A1+B1       N = N + 1 ; BCN = BCT(N) ;  BCW = [BCN]     PROSEQ    880
                     0301000356 +                 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
           366  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
           367  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
           370  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
           371  0327000372 +                      PL     X7,IXU5     IF XUI .LE. LXU                             PROSEQ    899
                          10655                   BX6    X5          LXU = XUI                                   PROSEQ    900
                                                                                                                 PROSEQ    901
           372  0532000367 +             IXU5     NE     B3,B2,IXU4  IF UI .NE. UEN                              PROSEQ    902
                          76700                   SX7    B0          MAXR = 0                                    PROSEQ    903
                               43063              MX0    -D.REGWL                                                PROSEQ    904
           373  63365                             SB3    X6+B5       DJE = ODS + LXU                             PROSEQ    905
                     20622                        LX6    BC.LXUP                                                 PROSEQ    906
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    21
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IXU                 AIS 
  
                          63215                   SB2    X1+B5       DJI = DJS = ODS + RI[BCW]                   PROSEQ    907
                                                                                                                 PROSEQ    908
           374  0732000363 +             IXU6     GT     B2,B3,IXU1  IF DJI .GT. DJE                             PROSEQ    909
                          56220                   SA2    B2          DJW = [DJI]                                 PROSEQ    910
                               20263              LX2    -D.REGWP                                                PROSEQ    911
           375  15320                             BX3    -X0*X2      RW = REGW[DJW]                              PROSEQ    912
                     37573                        IX5    X7-X3                                                   PROSEQ    913
                          6122000004              SB2    B2+4        DJI = DJI + 4                               PROSEQ    914
           376  0325000374 +                      PL     X5,IXU6     IF MAXR .GE. RW                             PROSEQ    915
                          10733                   BX7    X3          MAXR = RW                                   PROSEQ    916
           377  0400000374 +                      EQ     IXU6                                                    PROSEQ    917
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    22
        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
           400  0200400400 +             ABR      ROUTINE                                                        PROSEQ    926
           401  13666                             SETZERO  CAT,7                                                 PROSEQ    927
           403  5110001272 +                      SA1    O.BCT                                                   PROSEQ    928
                          5120001314 +            SA2    L.BCT                                                   PROSEQ    929
           404  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
           405  54111                    ABR1     SA1    A1+B1       BI = BI + 1 ;  BIW = [BI]                   PROSEQ    934
                     0301000400 +                 ZR     X1,ABR      IF BIW = 0    */ END OF BCT                 PROSEQ    935
                                                                                                                 PROSEQ    936
                                        *         AVOID ASSIGNING CANDIDATE WITH NO SHORT USES.                  PROSEQ    937
                                                                                                                 PROSEQ    938
           406  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
           407  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
           410  0434000405 +             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
           411  0322000410 +                      PL     X2,ABR1A    IF ^SU[IPW]                                 PROSEQ    952
                          20130                   LX1    -BC.MRWP                                                PROSEQ    953
           412  7201777770                        SX0    X1-TRW                                                  PROSEQ    954
                          0330000405 +            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
           413  57241                             SA2    B4-B1       FP = LP - 1 ;  FPW = [FP]                   FCC0508     7
                                                  LX2    59-DU.SUP                                               FCC0508     8
                     0322000405 +                 PL     X2,ABR1     IF ^SU[FPW]                                 FCC0508     9
                               20144              LX1    BC.MRWP-BC.RIP                                          PROSEQ    956
           414  63410                             SB4    X1                                                      PROSEQ    957
                     67304                        SB3    -B4         -RIN  = -RI[BIW]                            PROSEQ    958
                          66600                   SB6    B0          RN = 0                                      PROSEQ    959
           415  6170000007                        SB7    7                                                       PROSEQ    960
                                                                                                                 PROSEQ    961
                                        *         SCAN FOR AVAILABLE B REGISTER WITH NO LOCKS IN FUTURE.         PROSEQ    962
                                                                                                                 PROSEQ    963
           416  5126000001 C             ABR2     SA2    PBI+B6      PN = PBI(RN+1) ;  PNW = [PN]                PROSEQ    964
                          0467000423 +            EQ     B6,B7,ABR3  IF RN = 7                                   PROSEQ    965
                                                  LX2    59-PI.NAP                                               PROSEQ    966
           417  66661                             SB6    B6+B1       RN = RN +1                                  PROSEQ    967
                     0332000416 +                 MI     X2,ABR2     IF NA[PNW]    */  RN OFF MARKET             PROSEQ    968
           420  0312000416 +                      NZ     X2,ABR2     IF P[PNW] .NE. 0  */ LOCK IN FUTURE         PROSEQ    969
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    23
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            ABR                 AIS 
  
                          5146000007 C            SA4    CAT+B6-1    CN = CAT(RN) ;  CNW = [CN]                  PROSEQ    970
           421  20452                             LX4    -CA.LXUP                                                PROSEQ    971
                     73743                        SX7    X4+B3                                                   PROSEQ    972
                          0337000435 +            MI     X7,ABR7     IF LXU[CNW] .LT. RI[BIW]                    PROSEQ    973
           422  0567000416 +                      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
           423  66600                    ABR3     SB6    B0          RN = 0                                      PROSEQ    979
                                                                                                                 PROSEQ    980
           424  5126000001 C             ABR4     SA2    PBI+B6      PN = PBI(RN+1) ;  PNW = [PN]                PROSEQ    981
                          0467000405 +            EQ     B6,B7,ABR1  IF RN = 7    */ CANT ASSIGN THIS CANDIDATE  PROSEQ    982
           425  66661                             SB6    B6+B1       RN = RN + 1                                 PROSEQ    983
                                                  LX2    59-PI.NAP                                               PROSEQ    984
                     0332000424 +                 MI     X2,ABR4     IF NA[PNW]    THIS REG OFF MARKET           PROSEQ    985
           426  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
           427  0327000424 +                      PL     X7,ABR4     IF LXU[CNW] .GE. RIN                        PROSEQ    989
                                                  LX2    1+PI.NAP-PI.PP  PL=P[PNW]                               PROSEQ    990
                                                                                                                 PROSEQ    991
           430  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
           431  0327000433 +                      PL     X7,ABR6     IF LU[PBW] .GT. RIN                         PROSEQ    997
                          10622                   BX6    X2                                                      PROSEQ    998
                               54620              SA6    A2          P[PNW] = PL                                 PROSEQ    999
           432  0312000430 +                      NZ     X2,ABR5     IF PL .NE. 0                                PROSEQ   1000
                                                                                                                 PROSEQ   1001
                                        *         NO LOCKS TO THIS REG PAST THIS CANDIDATE.                      PROSEQ   1002
                                                                                                                 PROSEQ   1003
                          0400000435 +            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
           433  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
           434  73530                             SX5    X3                                                      PROSEQ   1013
                     37754                        IX7    X5-X4                                                   PROSEQ   1014
                          0337000424 +            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
           435  54210                    ABR7     SA2    A1          BIW = [BI]                                  PROSEQ   1020
                     10622                        BX6    X2                                                      PROSEQ   1021
                          5166000007 C            SA6    CAT+B6-1    CAT(RN) = BIW                               PROSEQ   1022
           436  0100000446 +                      RJ     ISA         ISSUE SA-RS TO MOD                          PROSEQ   1023
           437  0100000507 +                      RJ     IUM         ISSUE USE MODIFICATIONS                     PROSEQ   1024
                                                                                                                 PROSEQ   1025
                                        *         DECREMENT MRW OF ALL CANDIDATES FOLLOWING WHICH ARE FULLY      PROSEQ   1026
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    24
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            ABR                 AIS 
  
                                        *         CONTAINED IN THE SPAN OF THE CANDIDATE JUST ASSIGNED.          PROSEQ   1027
                                                                                                                 PROSEQ   1028
           440  54210                             SA2    A1          BJ = BI                                     PROSEQ   1029
                     20252                        LX2    -BC.LXUP                                                PROSEQ   1030
                          63720                   SB7    X2                                                      PROSEQ   1031
                               67507              SB5    -B7                                                     PROSEQ   1032
           441  76110                             SX1    B1                                                      PROSEQ   1033
                                                                                                                 PROSEQ   1034
           442  54221                    ABR8     SA2    A2+B1       BJ = BJ + 1 ;  BJW = [BJ]                   PROSEQ   1035
                     0302000405 +                 ZR     X2,ABR1     IF BJW = 0    */ END OF BCT                 PROSEQ   1036
                               20252              LX2    -BC.LXUP                                                PROSEQ   1037
           443  73725                             SX7    X2+B5                                                   PROSEQ   1038
                     0327000442 +                 PL     X7,ABR8     IF LXU[BJW] .GE. LXU[BIW]  */ OVERLAP       PROSEQ   1039
                               20252              LX2    BC.LXUP-BC.MRWP                                         PROSEQ   1040
           444  73720                             SX7    X2                                                      PROSEQ   1041
                     0307000442 +                 ZR     X7,ABR8     IF MRW[BJW] = 0                             PROSEQ   1042
                               37621              IX6    X2-X1                                                   PROSEQ   1043
           445  20644                             LX6    BC.MRWP                                                 PROSEQ   1044
                     54620                        SA6    A2          MRW[BJW] = MRW[BJW] - 1                     PROSEQ   1045
                          0400000442 +            EQ     ABR8                                                    PROSEQ   1046
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    25
        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
           446  0200400446 +             ISA      ROUTINE                                                        PROSEQ   1060
           447  5120001264 +                      SA2    O.MLT                                                   PROSEQ   1061
                          5130001306 +            SA3    L.MLT                                                   PROSEQ   1062
           450  5150001265 +                      SA5    O.MOD                                                   PROSEQ   1063
                          43600                   MX6    0                                                       PROSEQ   1064
                               36723              IX7    X2+X3                                                   PROSEQ   1065
           451  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
           452  5150001307 +                      SA5    L.MOD                                                   PROSEQ   1069
                                                                                                                 PROSEQ   1070
           453  0304000462 +             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
           454  20444                             LX4    ML.IIP-ML.MTIP                                          PROSEQ   1074
                     63540                        SB5    X4                                                      PROSEQ   1075
                          54441                   SA4    A4+B1       MI = MI + 1 ;  MIN = [MI]                   PROSEQ   1076
           455  0317000453 +                      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
           456  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
           457  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
           460  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
           461  55441                             SA4    A4-B1       MI = MI - 1                                 PROSEQ   1092
                     0400000472 +                 EQ     ISA4                                                    PROSEQ   1093
                                                                                                                 PROSEQ   1094
           462  5120001306 +             ISA2     SA2    L.MLT                                                   PROSEQ   1095
                          73621                   SX6    X2+B1                                                   PROSEQ   1096
                               54620              SA6    A2          L.MLT = L.MLT + 1                           PROSEQ   1097
           463  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
           464  11702                             BX7    X0*X2                                                   PROSEQ   1101
                     55231                        SA2    A3-B1       R2I = DI - 1                                PROSEQ   1102
                          12675                   BX6    X7+X5       RI = L.MOD                                  PROSEQ   1103
           465  7100100000                        SX0    100000B                                                 PROSEQ   1104
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    26
        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
           466  36720                             IX7    X2+X0       RF = RF[R2I] + 100000                       PROSEQ   1108
                     12434                        BX4    X3+X4                                                   PROSEQ   1109
                          0334000470 +            MI     X4,ISA3 IF TY[DI] .GT. 1                                PROSEQ   1110
           467  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
           470  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
           471  54671                             SA6    A7+B1                                                   PROSEQ   1121
                     54761                        SA7    A6+B1                                                   PROSEQ   1122
                                                                                                                 PROSEQ   1123
           472  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
           473  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
           474  54740                             SA7    A4          [MI] = MLW(0,NIM,IIM,MTIM)                  PROSEQ   1135
                                                                                                                 PROSEQ   1136
                     6275000004                   SB7    X5+4        LMN = L.MOD + 4                             PROSEQ   1137
           475  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
           476  12665                             BX6    X6+X5                                                   PROSEQ   1142
                     43700                        MX7    0                                                       PROSEQ   1143
                          66472                   SB4    B7+B2                                                   PROSEQ   1144
           477  0100000550 +                      RJ     SRI                                                     PROSEQ   1145
           500  7130002200                        SX3    SO.BLOCK                                                PROSEQ   1146
                          76160                   SX1    B6                                                      PROSEQ   1147
                                                  LX1    SO.RNP                                                  PROSEQ   1148
                               12213              BX2    X1+X3                                                   PROSEQ   1149
           501  20220                             LX2    R1.SOP                                                  PROSEQ   1150
                     76770                        SX7    B7                                                      PROSEQ   1151
                                                  LX7    R1.RIP                                                  PROSEQ   1152
                          6150000004              SB5    OC.RS                                                   PROSEQ   1153
           502  12672                             BX6    X7+X2                                                   PROSEQ   1154
                     43700                        MX7    0                                                       PROSEQ   1155
                          0100000550 +            RJ     SRI                                                     PROSEQ   1156
           503  7177000010                        SX7    B7+8                                                    PROSEQ   1157
                          5170001307 +            SA7    L.MOD       L.MOD = LMN + 8                             PROSEQ   1158
           504  0400000446 +                      EQ     ISA                                                     PROSEQ   1159
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    27
        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
           505  00004000020000000000     IUMA     VFD    12/0,16/100000B,16/100000B,16/0                         PROSEQ   1171
                                                                                                                 PROSEQ   1172
           506  5120000022 C             IUM0     SA2    IUMB                                                    PROSEQ   1173
                          10622                   BX6    X2                                                      PROSEQ   1174
                               54630              SA6    A3          [UL] = SAVE                                 PROSEQ   1175
                                                                                                                 PROSEQ   1176
           507  0200400507 +             IUM      ROUTINE                                                        PROSEQ   1177
           510  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
           511  53430                             SA4    X3          UL = NI[LIW]                                PROSEQ   1182
                     10744                        BX7    X4          SAVE = [UL]                                 PROSEQ   1183
                          54640                   SA6    A4          [UL] = 0                                    PROSEQ   1184
           512  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
           513  56320                    IUM1     SA3    B2          UIW = [UI]                                  PROSEQ   1192
                     0303000506 +                 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
           514  0333000513 +                      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
           515  53236                             SA2    B6+X3       R1I = O.SEQ + USE[UIW] ;  R1W = [R1I]       PROSEQ   1201
                     5140001264 +                 SA4    O.MLT                                                   PROSEQ   1202
           516  5150001306 +                      SA5    L.MLT                                                   PROSEQ   1203
                          43600                   MX6    0                                                       PROSEQ   1204
                               36745              IX7    X4+X5                                                   PROSEQ   1205
           517  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
           520  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
           521  54441                    IUM2     SA4    A4+B1       MI = MI + 1 ;  MIN = [MI]                   PROSEQ   1216
                     0304000527 +                 ZR     X4,IUM3     IF MIN = 0    */ NO *MOD* ENTRY MATCHES     PROSEQ   1217
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    28
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IUM                 AIS 
  
                               20430              LX4    -ML.IIP                                                 PROSEQ   1218
           522  73745                             SX7    X4+B5                                                   PROSEQ   1219
                     0317000521 +                 NZ     X7,IUM2     IF II[MIN] .NE. USE[UIW]                    PROSEQ   1220
                                                                                                                 PROSEQ   1221
                                        *         *MOD* ENTRY TO SAME INSTRUCTION.                               PROSEQ   1222
                                                                                                                 PROSEQ   1223
           523  5150001265 +                      SA5    O.MOD                                                   PROSEQ   1224
                          20444                   LX4    ML.IIP-ML.MTIP                                          PROSEQ   1225
                               36745              IX7    X4+X5                                                   PROSEQ   1226
           524  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
           525  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
           526  22757                             LX7    B5                                                      PROSEQ   1234
                     54730                        SA7    A3                                                      PROSEQ   1235
                          0400000513 +            EQ     IUM1                                                    PROSEQ   1236
                                                                                                                 PROSEQ   1237
                                        *         NO MATCH.  CREATE NEW *MOD* ENTRY.                             PROSEQ   1238
                                                                                                                 PROSEQ   1239
           527  5042000002               IUM3     SA4    A2+2        DI = R1I + 2 ;  DIW = [DI]                  PROSEQ   1240
                                                  LX4    58-D.TYP                                                PROSEQ   1241
                          0334000531 +            MI     X4,IUM4     IF TY[DIW] .GT. 2                           PROSEQ   1242
           530  5130000505 +                      SA3    IUMA                                                    FCC0508    10
                          36223                   IX2    X2+X3       RJ[R1W] = RJ[R1W] + 100000B ;               FCC0508    11
                                        *                            RK[R1W] = RK[R1W] + 100000B                 PROSEQ   1245
                                                                                                                 PROSEQ   1246
           531  5150001307 +             IUM4     SA5    L.MOD                                                   PROSEQ   1247
                          20422                   LX4    59-58+D.TYP-D.^DP                                       FCC0508    12
                               10755              BX7    X5          RII = L.MOD                                 FCC0508    13
           532  0324000534 +                      PL     X4,IUM5     IF D[DIW]                                   FCC0508    14
                          15720                   BX7    -X0*X2                                                  FCC0508    15
           533  7277100000                        SX7    X7+100000B  RII = RI[R1W] + 100000B                     FCC0508    16
                                                                                                                 FCC0508    17
           534  11402                    IUM5     BX4    X0*X2                                                   FCC0508    18
                     6160000074                   SB6    60                                                      PROSEQ   1249
                               26151              UX1    B5,X1       RC = SC[UIW]                                PROSEQ   1250
           535  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
           536  12646                             BX6    X4+X6       RX[R1W] = RIM                               PROSEQ   1255
                     22656                        LX6    B5                                                      PROSEQ   1256
                          54221                   SA2    A2+B1       R2I = R1I + 1                               PROSEQ   1257
           537  7140100000                        SX4    100000B                                                 PROSEQ   1258
                          20444                   LX4    IH.RFP                                                  PROSEQ   1259
                               12724              BX7    X2+X4                                                   PROSEQ   1260
           540  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
           541  10622                             BX6    X2                                                      PROSEQ   1265
                     54671                        SA6    A7+B1                                                   PROSEQ   1266
                          54761                   SA7    A6+B1                                                   PROSEQ   1267
                               64471              SB4    A7+B1                                                   PROSEQ   1268
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    29
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IUM                 AIS 
  
           542  7275000004                        SX7    X5+4                                                    PROSEQ   1269
                          54750                   SA7    A5          L.MOD = L.MOD + 4                           PROSEQ   1270
           543  5130001306 +                      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
           544  5140001264 +                      SA4    O.MLT                                                   PROSEQ   1275
                          12505                   BX5    X0+X5                                                   PROSEQ   1276
                               20023              LX0    ML.NIP-ML.DELP     NIM = 1                              PROSEQ   1277
           545  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
           546  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
           547  0400000513 +                      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
           550  0200400550 +             SRI      ROUTINE                                                        PROSEQ   1301
           551  27656                             PX6    B5,X6                                                   PROSEQ   1302
                     5135001114 +                 SA3    =XF.RDT+B5                                              PROSEQ   1303
                               56640              SA6    B4                                                      PROSEQ   1304
           552  56741                             SA7    B4+B1                                                   PROSEQ   1305
                     10633                        BX6    X3                                                      PROSEQ   1306
                          43700                   MX7    0                                                       PROSEQ   1307
                               54671              SA6    A7+B1                                                   PROSEQ   1308
           553  54761                             SA7    A6+B1                                                   PROSEQ   1309
                     64471                        SB4    A7+B1                                                   PROSEQ   1310
                          0400000550 +            EQ     SRI                                                     PROSEQ   1311
                                                                                                                 PROSEQ   1312
                                                  QUAL   *                                                       PROSEQ   1313
                                                                                                                 PROSEQ   1314
                                 133 +   AIS      EQU    /AIS/AIS                                                PROSEQ   1315
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    30
        ESR - EXPAND SPECIAL REFERENCES                               ESR 
  
                                        **        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
                                                                                                                 PROSEQ   1330
                                                  ENTRY  ESRA                                                    FCC0643    46
           554  77777777777777777776     ESRA     VFD    60/-1       MAKE FP-ONLY CALL ILLEGAL                   PROSEQ   1332
           555  00000000000000000000 X            VFD    60/=XLEVEL2                                             FCC0504    19
           556  00000000000000000002 +            VFD    60/=XFPL2                                               PROSEQ   1334
           557  00000000000000000002 +            VFD    60/=XFPL2                                               PROSEQ   1335
                                                                                                                 PROSEQ   1336
           560                     1     FSR      BSS    1           FIRST SPECIAL REF. (CHAIN HEAD)             PROSEQ   1337
           561                     1     LSF      BSS    1           LOAD/STORE/SET FLAG                         PROSEQ   1338
           562                     1     SQF      BSS    1           SQUEEZE FLAG                                PROSEQ   1339
           563                     1     R2W      BSS    1           R2 WORD OF CURRENT INSTRUCTION              FCC0643    47
                                                                                                                 PROSEQ   1340
           564  5130001265 +             ESR0     SA3    O.MOD                                                   PROSEQ   1341
                          6273777776              SB7    X3-1                                                    PROSEQ   1342
           565  75677                             SX6    A7-B7                                                   PROSEQ   1343
                     5160001307 +                 SA6    L.MOD                                                   PROSEQ   1344
                                                                                                                 PROSEQ   1345
           566  5110000000 X             ESR1     SA1    O.SEQ                                                   PROSEQ   1346
                          53210                   SA2    X1                                                      PROSEQ   1347
                               26722              UX7    B2,X2                                                   PROSEQ   1348
           567  5132001114 +                      SA3    F.RDT+B2                                                PROSEQ   1349
                          5140000562 +            SA4    SQF                                                     PROSEQ   1350
           570  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
           571  0336000572 +                      MI     X6,ESR      IF SQF < 0                                  PROSEQ   1354
                          0100000000 X            CALL   MPB         MERGE MODS WITH SEQUENCE                    PROSEQ   1355
                                                                                                                 PROSEQ   1356
           572  0400400572 +             ESR      ENTRY. **                                                      PROSEQ   1357
           573  5245000553 +                      SA4    ESRA-1+X5                                               PROSEQ   1358
                          5160000562 +            SA6    SQF                                                     PROSEQ   1359
           574  53340                             SA3    X4                                                      PROSEQ   1360
                     0303000566 +                 ZR     X3,ESR1     IF FLAG(MODE) = 0  */ NO SPECIAL REFS       PROSEQ   1361
           575  5215000122 +                      SA1    TSBA+X5     MASK FOR SR BITS                            PROSEQ   1362
                          5140000000 X            SA4    O.SEQ                                                   PROSEQ   1363
           576  43700                             MX7    0                                                       PROSEQ   1364
                     10011                        BX0    X1                                                      PROSEQ   1365
                          5274000002              SA7    X4+2        LOOP TERMINATOR AT D(BOS)                   PROSEQ   1366
           577  0100000613 +                      RJ     MSR         MARK SPECIAL REFS                           PROSEQ   1367
           600  0420000566 +                      ZR     B2,ESR1     IF N.SR = 0                                 PROSEQ   1368
                                                                                                                 PROSEQ   1369
                          76120                   ALLOC  MLT,B2      ALLOC( MLT , N.SR )                         PROSEQ   1370
           602  10211                             BX2    X1                                                      PROSEQ   1371
                     20104                        LX1    4                                                       PROSEQ   1372
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    31
        ESR - EXPAND SPECIAL REFERENCES                               ESR 
  
                          20202                   LX2    2                                                       PROSEQ   1373
                               36112              IX1    X1+X2                                                   PROSEQ   1374
           603  5100000005                        ALLOC  MOD,X1      ALLOC (MOD, 5*4*N.SR )                      PROSEQ   1375
                                                                                                                 PROSEQ   1376
           604  0100000626 +                      RJ     GSR         GENERATE SPECIAL REFS                       PROSEQ   1377
           605  0400000564 +                      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
           606                           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    612                                    LOC    *O                                                      PROSEQ   1393
                                                                                                                 PROSEQ   1394
           612  76630                    MSR0     SX6    B3                                                      PROSEQ   1395
                     5160000560 +                 SA6    FSR         FIRST SPECIAL REF LINK ADDRESS              PROSEQ   1396
                                                                                                                 PROSEQ   1397
           613  0200400613 +             MSR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1398
           614  5255000605 +                      SA5    MSRA-1+X5                                               PROSEQ   1399
                          53241                   SA2    X4+B1                                                   PROSEQ   1400
                               73120              SX1    X2          LEN = TXTL[SEQ+1]                           PROSEQ   1401
           615  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
           616  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
           617  20725                             LX7    D.FPP                                                   PROSEQ   1409
                                                                                                                 PROSEQ   1410
           620  0303000612 +             MSR1     ZR     X3,MSR0     IF DI = 0     */ I = 0                      PROSEQ   1411
                          6177777773              SB7    B7-4        I = I - 1                                   PROSEQ   1412
           621  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
           622  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
           623  56370                             SA3    B7          DI=D(I)                                     PROSEQ   1421
                     0304000620 +                 ZR     X4,MSR1     IF NOT SPECIAL REF(MODE)                    PROSEQ   1422
                               66221              SB2    B2+B1       N.SR = N.SR + 1                             PROSEQ   1423
           624  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
           625  0400000620 +                      EQ     MSR1                                                    PROSEQ   1427
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    32
        ESR - EXPAND SPECIAL REFERENCES                               GSR 
  
                                        **        GSR - GENERATE SPECIAL REFERENCES.                             PROSEQ   1429
                                        *                                                                        PROSEQ   1430
                                        *         ENTRY  B2 = CHAIN HEAD FOR SPECIAL REFS                        PROSEQ   1431
                                        *                                                                        PROSEQ   1432
           626  0200400626 +             GSR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1433
           627  5120000560 +                      SA2    FSR                                                     PROSEQ   1434
                          5110000000 X            SA1    O.SEQ                                                   PROSEQ   1435
           630  43700                             MX7    0                                                       PROSEQ   1436
                     63710                        SB7    X1                                                      PROSEQ   1437
                          63227                   SB2    X2+B7                                                   PROSEQ   1438
           631  6130100000                        SB3    100000B     OFFSET FOR MPB                              PROSEQ   1439
                          5110001265 +            SA1    O.MOD                                                   PROSEQ   1440
           632  5170001306 +                      SA7    L.MLT       L.MLT = 0                                   PROSEQ   1441
                          5271000003              SA7    X1+3        A7= FWA - 1 EXPANSION IN MOD                PROSEQ   1442
           633  6140000004                        SB4    4           RI = 4                                      PROSEQ   1443
                          0400000637 +            EQ     GSR3                                                    PROSEQ   1444
                                                                                                                 PROSEQ   1445
           634  0100000655 +             GSR1     RJ     ISC         ISSUE SET CODE                              PROSEQ   1446
                                                                                                                 PROSEQ   1447
           635  0100001103 +             GSR2     RJ     TRE         TERMINATE REF EXPANSION                     PROSEQ   1448
           636  5110000000 X                      SA1    O.SEQ                                                   PROSEQ   1449
                          6271000000              SB7    X1+                                                     PROSEQ   1450
                                                                                                                 PROSEQ   1451
           637  0427000626 +             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
           640  56320                             SA3    B2                                                      PROSEQ   1455
                     55211                        SA2    A1-B1       R2I = DI - 1                                FCC0643    49
                          10622                   BX6    X2          R2W = [R2I]                                 FCC0643    50
           641  5160000563 +                      SA6    R2W                                                     FCC0643    51
                          43272                   MX2    -D.LDSTL                                                PROSEQ   1456
                               63237              SB2    X3+B7       I = I + 1                                   PROSEQ   1457
           642  10311                             BX3    X1                                                      PROSEQ   1458
                     20332                        LX3    -D.LDSTP                                                PROSEQ   1459
                          15232                   BX2    -X2*X3                                                  PROSEQ   1460
                               14622              BX6    -X2                                                     PROSEQ   1461
           643  5160000561 +                      SA6    LSF         LOAD/STORE/SET FLAG                         PROSEQ   1462
                          0306000634 +            ZR     X6,GSR1     IF NOT LOAD OR STORE                        PROSEQ   1463
                                                                                                                 PROSEQ   1464
                                         #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                          PROSEQ   1465
           644  11201                             BX2    X0*X1                                                   PROSEQ   1466
                     20227                        LX2    59-D.L2P                                                PROSEQ   1467
                          0322000650 +            PL     X2,GSR4     IF NOT LCM REF                              PROSEQ   1468
           645  0100000655 +                      RJ     ISC         ISSUE SET                                   PROSEQ   1469
           646  0100001053 +                      RJ     IDR         ISSUE DIRECT LCM REF                        PROSEQ   1470
           647  0400000635 +                      EQ     GSR2                                                    PROSEQ   1471
                                                                                                                 PROSEQ   1472
           650                           GSR4     BSS    0                                                       PROSEQ   1473
                                         #DAL     ENDIF                                                          PROSEQ   1474
                                                                                                                 PROSEQ   1475
           650  0100000746 +                      RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1476
           651  0100000755 +                      RJ     IRA         ISSUE RA FOR RF                             PROSEQ   1477
           652  0100001043 +                      RJ     IPR         ISSUE PLD/PST                               PROSEQ   1478
           653  0400000635 +                      EQ     GSR2                                                    PROSEQ   1479
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    33
        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
           654  43200                    ISC0     MX2    0                                                       PROSEQ   1506
                     0100001076 +                 RJ     SRI         STORE INSTRUCTION                           PROSEQ   1507
                                                                                                                 PROSEQ   1508
           655  0200400655 +             ISC      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1509
           656  11301                             BX3    X0*X1                                                   PROSEQ   1510
                     20327                        LX3    59-D.L2P                                                PROSEQ   1511
                          0333000664 +            MI     X3,ISC3     IF LCM REF                                  PROSEQ   1512
           657  20317                             LX3    D.L2P-D.FPP                                             PROSEQ   1513
                     0323000655 +                 PL     X3,ISC      IF NOT FP                                   PROSEQ   1514
                                                                                                                 PROSEQ   1515
           660  0100000746 +             ISC2     RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1516
           661  0100000755 +                      RJ     IRA         ISSUE IA FOR ANY RF                         PROSEQ   1517
           662  0100001014 +                      RJ     ISX         ISSUE STT/XMT                               PROSEQ   1518
           663  0400000655 +                      EQ     ISC                                                     PROSEQ   1519
                                                                                                                 PROSEQ   1520
           664  5140000000 X             ISC3     SA4    =XDIRECT                                                PROSEQ   1521
                          0314000675 +            NZ     X4,ISC5     IF LCM=I MODE                               PROSEQ   1522
                                                                                                                 PROSEQ   1523
                                         #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                          PROSEQ   1524
           665  5140000561 +                      SA4    LSF                                                     PROSEQ   1525
                          0304000671 +            ZR     X4,ISC1     IF  STT LCM                                 PROSEQ   1526
           666  20317                             LX3    D.L2P-D.FPP                                             PROSEQ   1527
                     0333000660 +                 MI     X3,ISC2     IF FP                                       PROSEQ   1528
           667  0100000734 +                      RJ     ISI         ISSUE STT INSTRUCTIIN                       PROSEQ   1529
           670  0400000655 +                      EQ     ISC                                                     PROSEQ   1530
                                                                                                                 PROSEQ   1531
                                         #DAL     ENDIF                                                          PROSEQ   1532
                                                                                                                 PROSEQ   1533
           671  20317                    ISC1     LX3    D.L2P-D.FPP                                             PROSEQ   1534
                     0333000660 +                 MI     X3,ISC2     IF FP                                       PROSEQ   1535
           672  0100000734 +                      RJ     ISI         ISSUE STT                                   PROSEQ   1536
           673  0100001064 +                      RJ     IMO         ISSUE MASK-OR BIT 59                        PROSEQ   1537
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    34
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
           674  0400000655 +                      EQ     ISC                                                     PROSEQ   1538
                                                                                                                 PROSEQ   1539
                                        *         IN LCM=I MODE, ALL LCM REFS ARE EXPANDED IRREGARDLESS OF       PROSEQ   1540
                                        *         EXPANSION MODE BECAUSE OF THE ODD MEANING OF THE IH SYMBOL     PROSEQ   1541
                                        *         (SCM POINTER CELL ADDRESS).                                    PROSEQ   1542
                                                                                                                 PROSEQ   1543
           675  20146                    ISC5     LX1    59-D.FPP    FP BIT IRREGARDLESS OF MODE                 PROSEQ   1544
                     0321000700 +                 PL     X1,ISC6     IF NOT FP                                   PROSEQ   1545
           676  0100000746 +                      RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1546
           677  0400000703 +                      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
           700  55211                    ISC6     SA2    A1-B1       IHINFO(REF)                                 PROSEQ   1552
                                                  LX2    -IH.IHP                                                 PROSEQ   1553
                     7272020000                   SX7    X2+IH.LCMA  LCMA[IH] = 1  */ INDICATE ADDRESS LOAD      FCC0882    11
                               76210              SX2    B1                                                      FCC0882    12
           701  6150000050                        SB5    OC.LD                                                   FCC0882    13
                          76640                   SX6    B4          RI                                          FCC0645    34
                               20237              LX2    R1.INP+1    IN[R1W] = 2   */ UDI = 1 ( LOAD ONLY )      FCC0645    35
           702  12626                             BX6    X2+X6                                                   FCC0645    36
                     43200                        MX2    0                                                       PROSEQ   1559
                          0100001076 +            RJ     SRI         ISSUE LD LCM POINTER CELL                   PROSEQ   1560
                                                                                                                 PROSEQ   1561
           703  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
           704  43152                             MX1    -IH.CAL                                                 PROSEQ   1566
                     20222                        LX2    IH.RFP-IH.CAP                                           PROSEQ   1567
                          15321                   BX3    -X1*X2                                                  PROSEQ   1568
                               12234              BX2    X3+X4                                                   PROSEQ   1569
           705  0312000712 +                      NZ     X2,ISC8     IF RF(REF) .OR. CA(REF) .NE. 0              PROSEQ   1570
                          5140000561 +            SA4    LSF                                                     PROSEQ   1571
           706  0314000655 +                      NZ     X4,ISC      IF LD/ST                                    PROSEQ   1572
                          43154                   MX1    -R1.RIL                                                 PROSEQ   1573
                               55221              SA2    A2-B1       R1(REF)                                     PROSEQ   1574
                                                  LX2    -R1.RIP                                                 PROSEQ   1575
           707  15321                             BX3    -X1*X2                                                  PROSEQ   1576
                     73633                        SX6    X3+B3       RI MOD TO SEQ                               PROSEQ   1577
                          7124777773              SX2    B4-4        RJ = RI(PRED)                               PROSEQ   1578
           710  0100001032 +                      RJ     IXI         ISSUE AN *XMT/SA*                           PROSEQ   1579
           711  0400000655 +                      EQ     ISC                                                     PROSEQ   1580
                                                                                                                 PROSEQ   1581
           712  76640                    ISC8     SX6    B4          RI                                          PROSEQ   1582
                     0304000722 +                 ZR     X4,ISC9     IF RF = 0                                   FCC1353     5
                               53547              SA5    B7+X4       R1P = SEQ(RF)                               FCC1353     6
           713  73443                             SX4    X4+B3       RF = RF + 100000B                           FCC1353     7
                     0313000720 +                 NZ     X3,ISC8A    IF CA " 0                                   FCC1353     8
                                                                                                                 FCC1353     9
                               26555              UX5    B5,X5                                                   FCC1353    10
           714  7175777772                        SX7    B5-OC.DEF                                               FCC1353    11
                          0317000726 +            NZ     X7,ISC11    IF OC[R1P] " OC.DEF                         FCC1353    12
           715  20547                             LX5    58-R1.SOP-SO.RTP                                        FCC1353    13
                     0335000726 +                 MI     X5,ISC11    IF SORT[R1P] = 2  */ OPERAND IN A X-REGISTE FCC1353    14
                                                                                                                 FCC1353    15
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    35
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
                               20440              LX4    R1.RJP                                                  FCC1353    16
           716  12664                             BX6    X6+X4                                                   FCC1353    17
                     43700                        MX7    0                                                       FCC1353    18
                          6150000060              SB5    OC.SA                                                   FCC1353    19
           717  0400000724 +                      EQ     ISC10                                                   FCC1353    20
                                                                                                                 FCC1353    21
           720  6150000052               ISC8A    SB5    OC.STT                                                  FCC1353    22
                          20444                   LX4    IH.RFP                                                  PROSEQ   1588
                               20322              LX3    IH.CAP                                                  PROSEQ   1589
           721  12743                             BX7    X4+X3                                                   PROSEQ   1590
                     0400000724 +                 EQ     ISC10                                                   PROSEQ   1591
                                                                                                                 PROSEQ   1592
           722  20336                    ISC9     LX3    R1.INP                                                  PROSEQ   1593
                     12663                        BX6    X6+X3                                                   PROSEQ   1594
                          43700                   MX7    0                                                       PROSEQ   1595
           723  6150000055                        SB5    OC.S                                                    PROSEQ   1596
                                                                                                                 PROSEQ   1597
           724  43200                    ISC10    MX2    0                                                       PROSEQ   1598
                     0100001076 +                 RJ     SRI         STORE STT/S                                 PROSEQ   1599
           725  7144777767                        SX4    B4-8        RK = RI(LCM ADDRESS LOAD)                   PROSEQ   1600
                                                                                                                 PROSEQ   1601
           726  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
           727  20640                             LX6    R1.RJP                                                  PROSEQ   1605
                     5120000561 +                 SA2    LSF                                                     PROSEQ   1606
                               76340              SX3    B4          RI = NRI                                    PROSEQ   1607
           730  0312000732 +                      NZ     X2,ISC12    IF EXPANDING LCM LD/ST                      PROSEQ   1608
                          5031777775              SA3    A1-2        R1(REF)                                     PROSEQ   1609
           731  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
           732  12663                             BX6    X6+X3                                                   PROSEQ   1616
                     43700                        MX7    0                                                       PROSEQ   1617
                          6150000036              SB5    OC.IA                                                   PROSEQ   1618
           733  0400000654 +                      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
           734  0200400734 +             ISI      ROUTINE                                                        PROSEQ   1625
           735  55211                             SA2    A1-B1       IHINFO(REF)                                 PROSEQ   1626
                     6150000052                   SB5    OC.STT                                                  PROSEQ   1627
                               43652              MX6    -IH.RFL                                                 FCC0912    33
           736  20230                             LX2    -IH.RFP                                                 FCC0912    34
                     15326                        BX3    -X6*X2      R = RF[R2]                                  FCC0912    35
                          22702                   LX7    X2          R2W = [R2]                                  FCC0912    36
           737  0303000740 +                      ZR     X3,ISI1     IF R = 0                                    FCC0912    37
                          76630                   SX6    B3                                                      FCC0912    38
                               36767              IX7    X6+X7       RF[R2W] = RF[R2W] + 100000B                 FCC0912    39
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    36
        ESR - EXPAND SPECIAL REFERENCES                               ISI 
  
                                                                                                                 PROSEQ   1635
           740  20744                    ISI1     LX7    IH.RFP      IHINFO(STT)                                 PROSEQ   1636
                     76640                        SX6    B4          RI                                          PROSEQ   1637
                          5021777775              SA2    A1-2        R1 WORD                                     FCC1677X    5
           741  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
           742  76310                             SX3    B1                                                      FCC0912    40
                     20325                        LX3    D.FPP                                                   FCC0912    41
                          11231                   BX2    X3*X1       FP = FP[DESCR]                              FCC0912    42
           743  0100001076 +                      RJ     SRI                                                     PROSEQ   1640
           744  0400000734 +                      EQ     ISI                                                     PROSEQ   1641
  
  
  
  
                                        **        IAL - ISSUE ADDRESS LOAD.                                      PROSEQ   1643
                                                                                                                 PROSEQ   1644
           745  0100001076 +             IAL0     RJ     SRI         STORE INSTRUCTION                           PROSEQ   1645
                                                                                                                 PROSEQ   1646
           746  0200400746 +             IAL      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1647
           747  76640                             SX6    B4          RI                                          PROSEQ   1648
                     6150000050                   SB5    OC.LD                                                   PROSEQ   1649
                               76710              SX7    B1                                                      FCC0645    37
           750  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
           751  43352                             MX3    -IH.IHL                                                 PROSEQ   1654
                                                  LX2    -IH.IHP                                                 PROSEQ   1655
                     15223                        BX2    -X3*X2      IH(IHINFO)                                  PROSEQ   1656
                          7252777775              SX5    X2-2                                                    PROSEQ   1657
           752  20522                             LX5    IH.CAP                                                  PROSEQ   1658
                     12775                        BX7    X7+X5                                                   PROSEQ   1659
                          43200                   MX2    0                                                       PROSEQ   1660
           753  0315000745 +                      NZ     X5,IAL0     IF CA = 0                                   PROSEQ   1661
                          43202                   MX2    2                                                       PROSEQ   1662
                               20231              LX2    2+D.SZP     INDICATE SIZE = 1                           PROSEQ   1663
           754  0400000745 +                      EQ     IAL0                                                    PROSEQ   1664
                                                                                                                 PROSEQ   1665
  
  
  
  
                                        **        IRA - ISSUE *IA* OR *IS* FOR RF IF EXISTANT                    FCC0643    52
                                                                                                                 PROSEQ   1668
           755  0200400755 +             IRA      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1669
           756  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
           757  0304000755 +                      ZR     X4,IRA      IF RF[REF] = 0                              FCC1918    13
                                                                                                                 FCC1918    14
                          20350                   LX3    IH.RFP+59-IH.SIAP                                       FCC1918    15
           760  0323000764 +                      PL     X3,IRA0     IF ^SIA[REF]  */ NOT INIT STT THAT IS FP&LC FCC1918    16
                                                                                                                 FCC1918    17
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    37
        ESR - EXPAND SPECIAL REFERENCES                               IRA 
  
                          6150000060              SB5    OC.SA                 */ OUTPUT *SA* TO REMOVE BIT 59   FCC1918    18
           761  7134777773                        SX3    B4-4                                                    FCC1918    19
                          20340                   LX3    R1.RJP                                                  FCC1918    20
                               76640              SX6    B4                                                      FCC1918    21
           762  43200                             MX2    0                                                       FCC1918    22
                     12636                        BX6    X3+X6                                                   FCC1918    23
                          43700                   MX7    0                                                       FCC1918    24
           763  0100001076 +                      RJ     SRI                                                     FCC1918    25
                                                                                                                 FCC1918    26
           764  6150000036               IRA0     SB5    OC.IA                                                   FCC1918    27
                          5130000000 X            SA3    O.SEQ                                                   PROSEQ   1676
           765  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
           766  43700                             MX7    0                                                       PROSEQ   1680
                     0323001005 +                 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
           767  20347                             LX3    59-R1.SOP-SO.RTP-1                                      PROSEQ   1686
                     0333001000 +                 MI     X3,IRA1     IF RT[SO[R1W]] .EQ. 2  */ DEF TO X-REG      PROSEQ   1687
           770  6150000060                        SB5    OC.SA                                                   PROSEQ   1688
                          5130000000 X            SA3    =XDIRECT                                                PROSEQ   1689
           771  54110                             SA1    A1                                                      PROSEQ   1690
                     0303001000 +                 ZR     X3,IRA1     IF DIRECT = 0  */ LCM = D                   PROSEQ   1691
                               20127              LX1    59-D.L2P                                                PROSEQ   1692
           772  0321001000 +                      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
           773  20540                             LX5    R1.RJP                                                  PROSEQ   1699
                     12645                        BX6    X4+X5                                                   PROSEQ   1700
                          76200                   SX2    B0                                                      PROSEQ   1701
           774  0100001076 +                      RJ     SRI         SRI ( SA, B4, RJ )                          PROSEQ   1702
           775  6150000036                        SB5    OC.IA                                                   PROSEQ   1703
                          7124777767              SX2    B4-8                                                    PROSEQ   1704
           776  20220                             LX2    R1.RJP-R1.RKP                                           PROSEQ   1705
                     7154777773                   SX5    B4-4                                                    PROSEQ   1706
           777  0400001001 +                      EQ     IRA2                                                    PROSEQ   1707
                                                                                                                 PROSEQ   1708
          1000  7124777773               IRA1     SX2    B4-4                                                    PROSEQ   1709
                          20220                   LX2    R1.RJP-R1.RKP                                           PROSEQ   1710
                               73543              SX5    X4+B3       RF MOD TO SEQ                               PROSEQ   1711
                                                                                                                 PROSEQ   1712
          1001  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
          1002  76200                             SX2    B0                                                      PROSEQ   1718
                     0100001076 +                 RJ     SRI         SRI(  IA/IS RI,RI-4,RF )                    FCC0643    54
          1003  54360                             SA3    A6                                                      FCC1239     5
                     76210                        SX2    B1                                                      FCC1239     6
                          20233                   LX2    D.USIP                                                  FCC1239     7
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    38
        ESR - EXPAND SPECIAL REFERENCES                               IRA 
  
                               12623              BX6    X2+X3                                                   FCC1239     8
          1004  54630                             SA6    A3          USI[D] = 1                                  FCC1239     9
                     0400000755 +                 EQ     IRA                                                     PROSEQ   1720
                                                                                                                 FCC0643    55
          1005  53310                    IRA3     SA3    X1          R1W = SEQ(RF)                               FCC0643    56
                     10433                        BX4    X3                                                      FCC0643    57
                          21360                   AX3    R1.OCP                                                  FCC0643    58
          1006  7263775763                        SX6    X3-OC.XMTC-2000B                                        FCC0643    59
                          0316001000 +            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
          1007  20434                             LX4    -R1.RJP                                                 FCC0643    64
                     43254                        MX2    -R1.RIL                                                 FCC0643    65
                          6150000037              SB5    OC.IS                                                   FCC0643    66
          1010  15442                             BX4    -X2*X4      RF = RJ[R1W]  */ XMTC PRED                  FCC0643    67
                     5150000563 +                 SA5    R2W                                                     FCC0643    68
                               20244              LX2    IH.RFP                                                  FCC0643    69
          1011  7264200000                        SX6    X4+RF.MV                                                FCC0643    70
                          11525                   BX5    X2*X5                                                   FCC0643    71
                               20644              LX6    IH.RFP                                                  FCC0643    72
          1012  12656                             BX6    X5+X6       RF[R2W] = RF + RF.MV                        FCC0643    73
                     54650                        SA6    A5                                                      FCC0643    74
                          0400001000 +            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
          1013  43200                    ISX0     MX2    0                                                       PROSEQ   1726
                     0100001076 +                 RJ     SRI         STORE INSTRUCTION                           PROSEQ   1727
                                                                                                                 PROSEQ   1728
          1014  0200401014 +             ISX      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1729
          1015  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
          1016  7124777773                        SX2    B4-4        RP = RI(ADDRESS LOAD)                       PROSEQ   1734
                          76640                   SX6    B4          RI = NRI                                    PROSEQ   1735
          1017  5150000561 +                      SA5    LSF                                                     PROSEQ   1736
                          0315001021 +            NZ     X5,ISX1     IF EXPANDING LD OR ST                       PROSEQ   1737
          1020  55421                             SA4    A2-B1       R1(REF)                                     PROSEQ   1738
                     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
          1021  0303001030 +                      ZR     X3,ISX2     IF CA .EQ. 0                                PROSEQ   1745
                          20244                   LX2    IH.RFP      RF = RP                                     PROSEQ   1746
          1022  6150000052                        SB5    OC.STT                                                  PROSEQ   1747
                          20322                   LX3    IH.CAP                                                  PROSEQ   1748
                               12723              BX7    X2+X3                                                   PROSEQ   1749
          1023  0315001013 +                      NZ     X5,ISX0     IF EXPANDING LD OR ST                       PROSEQ   1750
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    39
        ESR - EXPAND SPECIAL REFERENCES                               ISX 
  
                          54110                   SA1    A1          DI = D(I)                                   PROSEQ   1751
                               20127              LX1    59-D.L2P                                                PROSEQ   1752
          1024  0321001013 +                      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
          1025  0100001076 +                      RJ     SRI         STORE INSTRUCTION                           PROSEQ   1757
          1026  0100001064 +                      RJ     IMO         ISSUE MASK-OR BIT 59                        PROSEQ   1758
          1027  0400001014 +                      EQ     ISX                                                     PROSEQ   1759
                                                                                                                 PROSEQ   1760
          1030  0315001014 +             ISX2     NZ     X5,ISX      IF EXPANDING LOAD OR STORE                  PROSEQ   1761
                          0100001032 +            RJ     IXI         ISSUE A *SA/XMT*                            PROSEQ   1762
          1031  0400001014 +                      EQ     ISX                                                     PROSEQ   1763
  
  
  
                                        **        IXI - ISSUE *XMT/SA* INSTRUCTION                               PROSEQ   1765
                                                                                                                 PROSEQ   1766
          1032  0200401032 +             IXI      ROUTINE                                                        PROSEQ   1767
          1033  54110                             SA1    A1                                                      PROSEQ   1768
                     6150000010                   SB5    OC.XMT                                                  PROSEQ   1769
                               20125              LX1    59-D.PRSP                                               PROSEQ   1770
          1034  0321001037 +                      PL     X1,IXI1     IF ^PRS[DI]                                 PROSEQ   1771
                          5031000002              SA3    A1+2        R1RS = DI + 2                               FCC1596X    5
          1035  20347                             LX3    58-R1.SOP-SO.RTP                                        FCC1596X    6
                     0333001037 +                 MI     X3,IXI1     IF SORT [R1RS] = 2  */ RS TO AN X-REG       FCC1596X    7
          1036  6150000060                        SB5    OC.SA                                                   PROSEQ   1772
          1037  20240                    IXI1     LX2    R1.RJP                                                  PROSEQ   1773
                     76700                        SX7    B0                                                      PROSEQ   1774
                          12626                   BX6    X2+X6                                                   PROSEQ   1775
                               43200              MX2    0                                                       PROSEQ   1776
          1040  0100001076 +                      RJ     SRI                                                     PROSEQ   1777
          1041  0400001032 +                      EQ     IXI                                                     PROSEQ   1778
  
  
  
  
                                        **        IPR - ISSUE PARAMETER REFERENCE.                               PROSEQ   1780
                                                                                                                 PROSEQ   1781
          1042  0100001076 +             IPR0     RJ     SRI         STORE INSTRUCTION                           PROSEQ   1782
                                                                                                                 PROSEQ   1783
          1043  0200401043 +             IPR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1784
          1044  5021777775                        SA2    A1-2        R1(REF)                                     PROSEQ   1785
                                                  LX2    -R1.RIP                                                 PROSEQ   1786
                          5130000561 +            SA3    LSF                                                     PROSEQ   1787
          1045  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
          1046  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
          1047  12624                             BX6    X2+X4                                                   PROSEQ   1795
                     5150000563 +                 SA5    R2W         IHINFO = R2W                                FCC0643    76
                               76130              SX1    B3          OFFSET FOR MPB                              PROSEQ   1797
          1050  20144                             LX1    IH.RFP                                                  PROSEQ   1798
                     36715                        IX7    X1+X5       IHINFO(PLD/PST)                             PROSEQ   1799
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    40
        ESR - EXPAND SPECIAL REFERENCES                               IPR 
  
                          43200                   MX2    0                                                       PROSEQ   1800
                               20552              LX5    -IH.CAP                                                 PROSEQ   1801
          1051  73450                             SX4    X5                                                      PROSEQ   1802
                     0314001042 +                 NZ     X4,IPR0     IF CA .NE. 0                                PROSEQ   1803
                               43202              MX2    2                                                       PROSEQ   1804
          1052  20231                             LX2    2+D.SZP     INDICATE TOGGLE SIZE FIELD                  PROSEQ   1805
                     0400001042 +                 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
          1053  0200401053 +             IDR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1812
          1054  76530                             SX5    B3          100000B FOR MPB                             PROSEQ   1813
                     5120000563 +                 SA2    R2W         IHINFO = R2W                                FCC0643    77
          1055  5140000561 +                      SA4    LSF                                                     PROSEQ   1815
                          6254000066              SB5    OC.DRL+2+X4 OC.DRL/DWL                                  PROSEQ   1816
          1056  20544                             LX5    IH.RFP                                                  PROSEQ   1817
                     36725                        IX7    X2+X5       RF MOD TO SEQ                               PROSEQ   1818
                          43354                   MX3    -R1.RIL                                                 PROSEQ   1819
          1057  5021777775                        SA2    A1-2        R1I = DI - 2                                FCC0643    78
                          7150040000              SX5    IH.LCM                                                  PROSEQ   1821
                                                  LX5    IH.IHP                                                  PROSEQ   1822
          1060  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
          1061  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
                               43200              MX2    0                                                       PROSEQ   1831
          1062  0100001076 +                      RJ     SRI                                                     PROSEQ   1832
          1063  0400001053 +                      EQ     IDR                                                     PROSEQ   1833
                                                                                                                 PROSEQ   1834
                                         #DAL     ENDIF                                                          PROSEQ   1835
  
  
  
  
                                        **        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
          1064  0200401064 +             IMO      ROUTINE                                                        PROSEQ   1845
          1065  6150000043                        SB5    OC.FMA                                                  PROSEQ   1846
                          76510                   SX5    B1                                                      PROSEQ   1847
                               20536              LX5    R1.INP                                                  PROSEQ   1848
          1066  76440                             SX4    B4          RI = NRI                                    PROSEQ   1849
                                                  LX4    R1.RIP                                                  PROSEQ   1850
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    41
        ESR - EXPAND SPECIAL REFERENCES                               IMO 
  
                     12645                        BX6    X4+X5                                                   PROSEQ   1851
                          43700                   MX7    0                                                       PROSEQ   1852
                               76200              SX2    B0                                                      PROSEQ   1853
          1067  0100001076 +                      RJ     SRI         STORE FMA(NRI,1)                            PROSEQ   1854
                                                                                                                 PROSEQ   1855
          1070  5041777775                        SA4    A1-2        R = R1(I)                                   PROSEQ   1856
                          43154                   MX1    -R1.RIL                                                 PROSEQ   1857
                                                  LX4    -R1.RIP                                                 PROSEQ   1858
          1071  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
          1072  7134777773                        SX3    B4-4        RJ = NRI - 4                                PROSEQ   1863
                          7243777773              SX4    X3-4        RK = NRI - 8                                PROSEQ   1864
          1073  20340                             LX3    R1.RJP                                                  PROSEQ   1865
                     12663                        BX6    X6+X3                                                   PROSEQ   1866
                          20420                   LX4    R1.RKP                                                  PROSEQ   1867
                               12664              BX6    X6+X4                                                   PROSEQ   1868
          1074  43700                             MX7    0                                                       PROSEQ   1869
                     76200                        SX2    B0                                                      PROSEQ   1870
                          0100001076 +            RJ     SRI         STORE OR(RIN,NRI-4,NRI-8)                   PROSEQ   1871
          1075  0400001064 +                      EQ     IMO                                                     PROSEQ   1872
  
  
  
  
                                        **        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
          1076  0200401076 +             SRI      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1880
          1077  27656                             PX6    B5,X6                                                   PROSEQ   1881
                     6144000004                   SB4    B4+4        RI = RI + 4                                 PROSEQ   1882
                               54671              SA6    A7+B1                                                   PROSEQ   1883
          1100  54761                             SA7    A6+B1                                                   PROSEQ   1884
                     5135001114 +                 SA3    =XF.RDT+B5                                              PROSEQ   1885
                               13623              BX6    X2-X3       TOGGLE SIZE FIELD IF REQUESTED              PROSEQ   1886
          1101  54671                             SA6    A7+B1                                                   PROSEQ   1887
                     43700                        MX7    0                                                       PROSEQ   1888
                          54761                   SA7    A6+B1                                                   PROSEQ   1889
          1102  0400001076 +                      EQ     SRI                                                     PROSEQ   1890
  
  
  
  
                                        **        TRE - TERMINATE REF EXPANSION.                                 PROSEQ   1892
                                                                                                                 PROSEQ   1893
          1103  0200401103 +             TRE      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1894
          1104  64700                             SB7    A0          IMA                                         PROSEQ   1895
                     75477                        SX4    A7-B7                                                   PROSEQ   1896
                          0304001103 +            ZR     X4,TRE      IF NO EXPANSION                             PROSEQ   1897
                                                                                                                 PROSEQ   1898
          1105  5130000000 X                      SA3    O.SEQ                                                   PROSEQ   1899
                          6263000002              SB6    X3+2                                                    PROSEQ   1900
          1106  75516                             SX5    A1-B6       R1 INDEX IN TXT                             PROSEQ   1901
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    42
        ESR - EXPAND SPECIAL REFERENCES                               TRE 
  
                                  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
          1107  5130001265 +                      SA3    O.MOD                                                   PROSEQ   1905
                          12145                   BX1    X4+X5                                                   PROSEQ   1906
          1110  6263777776                        SB6    X3-1                                                    PROSEQ   1907
                          77676                   SX6    B7-B6       INDEX IN MOD                                PROSEQ   1908
                                                  LX6    ML.MTIP                                                 PROSEQ   1909
                               43701              MX7    1                                                       PROSEQ   1910
                                                  LX7    1+ML.DELP                                               PROSEQ   1911
          1111  12316                             BX3    X1+X6                                                   PROSEQ   1912
                     5140001306 +                 SA4    L.MLT                                                   PROSEQ   1913
                               12673              BX6    X7+X3                                                   PROSEQ   1914
          1112  5130001264 +                      SA3    O.MLT                                                   PROSEQ   1915
                          36534                   IX5    X3+X4                                                   PROSEQ   1916
                               53650              SA6    X5          MLT=                                        PROSEQ   1917
          1113  73641                             SX6    X4+B1                                                   PROSEQ   1918
                     54640                        SA6    A4          L.MLT = L.MLT + 1                           PROSEQ   1919
                          0400001103 +            EQ     TRE                                                     PROSEQ   1920
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    43
        F.RDT - RLIST INSTRUCTION DESCRIPTOR TABLE                    OPR 
  
                                                  LIST   -X,-R,-F                                                PROSEQ   1922
                                                  ECHO   2,A=(I,II,III,IV,BSSZ),B=(0,1,2,3,1)                    PROSEQ   1923
                                                  NOREF  A                                                       PROSEQ   1924
                                         A        EQU    B                                                       PROSEQ   1925
                                                                                                                 PROSEQ   1926
                                         TESTM    IFNE   TEST,0                                                  PROSEQ   1927
                                         TESTM    ENDIF                                                          PROSEQ   1936
                                                  LIST   -R,X,F                                                  PROSEQ   1937
  
  
  
  
                                        **        OPR - DEFINE *OPR* MACRO TO FORM RLIST DESCRIPTOR TABLE        PROSEQ   1939
                                                                                                                 PROSEQ   1940
                                        *         DEFINE VALUES FOR USE IN *OPR* MACRO CALLS                     PROSEQ   1941
                                                                                                                 PROSEQ   1942
                                  23     MC       SET    34-15                                                   PROSEQ   1943
                                                  IFEQ   .CPU,76,1                                               PROSEQ   1944
                                         MC       SET    37-15                                                   PROSEQ   1945
                                                                                                                 PROSEQ   1946
                                                  ECHO   2,X=(COMM,USI,),V=(1,1,0)                               PROSEQ   1947
                                                  NOREF  .X                                                      PROSEQ   1948
                                         .X       =      V                                                       PROSEQ   1949
                                                                                                                 PROSEQ   1950
                                        *         SYMBOL DEFINED IF INSTRUCTION DOESN"T DEFINE AN RI             PROSEQ   1951
                                                                                                                 PROSEQ   1952
                                                  ECHO   2,N=(JUMP,UJUMP,STORE,STORE2,REGST,ECJUMP)              PROSEQ   1953
                                                  NOREF  Y.N                                                     PROSEQ   1954
                                         Y.N      EQU    1                                                       PROSEQ   1955
                                                                                                                 PROSEQ   1956
                                                  ECHO   2,N=(LOAD,STORE,JUMP,UJUMP,LOAD2,STORE2,ECJUMP),_______ PROSEQ   1957
                                        ,V=(4,2,1,1,14B,12B,20B)                                                 PROSEQ   1958
                                                  NOREF  Z.N                                                     PROSEQ   1959
                                         Z.N      EQU    V                                                       PROSEQ   1960
                                                                                                                 PROSEQ   1961
                                        *         BITS SET FOR XMT , CON SHIFTS AND PSEUDO INSTRUCTION FIELDS    PROSEQ   1962
                                                                                                                 PROSEQ   1963
                                                  ECHO   2,N=(SXT,XMT,KLS,KRS,EOQ,BOS,EOS,DAR,RS,DEF,LAB,ENT),__ PROSEQ   1964
                                        ,V=(4,4,2,2,1,1,1,1,1,1,1,1)                                             PROSEQ   1965
                                                  NOREF  S.N                                                     PROSEQ   1966
                                         S.N      EQU    V                                                       PROSEQ   1967
                                                                                                                 PROSEQ   1968
                                                  MACRO  OPR,NAM,SS                                              PROSEQ   1969
                                                  ECHO   1,X=(BD,LSJ,XSP)                                        PROSEQ   1970
                                         X        SET    0                                                       PROSEQ   1971
                                         TYPE     SET    SS                                                      PROSEQ   1972
                                         S        GETARG 23,4,(SS)                                               PROSEQ   1973
                                         CO       SET    ."S"                                                    PROSEQ   1974
                                        *                                  UNSAFE INSTRUCTION                    PROSEQ   1975
                                         S        GETARG 29,3,(SS)                                               PROSEQ   1976
                                         CO       SET    CO+4*."S"                                               PROSEQ   1977
                                        *                            FUNCTION UNIT AND TIMES                     PROSEQ   1978
                                         S        MICRO  MC,2,$SS$                                               PROSEQ   1979
                                         FT       SET    "S" 0                                                   PROSEQ   1980
                                         JFT      SET    FT/FT                                                   PROSEQ   1981
                                         S        GETARG 40,6,(SS)                                               PROSEQ   1982
                                         FU1      SET    0                                                       PROSEQ   1983
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    44
        F.RDT - RLIST INSTRUCTION DESCRIPTOR TABLE                    OPR 
  
                                                  IFC    NE,//"S"/,1                                             PROSEQ   1984
                                         FU1      SET    /FUNIT/"S"                                              PROSEQ   1985
                                         FU2      SET    FU1                                                     PROSEQ   1986
                                        *                            SECOND FUNCTIONAL UNIT ( 6600 )             PROSEQ   1987
                                         #MD      IFEQ   .CPU,74                                         ?6600   PROSEQ   1988
                                         S        GETARG 47,5,(SS)                                               PROSEQ   1989
                                                  IFC    NE,/"S"//,3                                             PROSEQ   1990
                                         FU2      SET    FU1+1                                                   PROSEQ   1991
                                                  IFC    NE,/"S"/FU1/,1                                          PROSEQ   1992
                                         FU2      SET    /FUNIT/"S"                                              PROSEQ   1993
                                         #MD      ENDIF                                                  '6600   PROSEQ   1994
                                        *                            INSTRUCTION SIZE                            PROSEQ   1995
                                         S        GETARG 54,2,(SS)                                               PROSEQ   1996
                                         PA       SET    "S" 1                                                   PROSEQ   1997
                                         PA       SET    PA/15                                                   PROSEQ   1998
                                         S        GETARG 63,6,(SS)                                               PROSEQ   1999
                                                  IFC    EQ,/"S"/ZEROP/,1                                        PROSEQ   2000
                                         CO       SET    2                                                       PROSEQ   2001
                                        *                            LOAD / STORE / JUMP BITS                    PROSEQ   2002
                                                  IF     DEF,Z."S",1                                             PROSEQ   2003
                                         LSJ      SET    Z."S"                                                   PROSEQ   2004
                                        *                            ^D - NO RI / RI NOT A DEF                   PROSEQ   2005
                                                  IFEQ   TYPE,3,2                                                PROSEQ   2006
                                         BD       SET    1                                                       PROSEQ   2007
                                                  ELSE   2                                                       PROSEQ   2008
                                                  IF     DEF,Y."S",1                                             PROSEQ   2009
                                         BD       SET    1                                                       PROSEQ   2010
                                        *                            BOUNDARY MARKER                             PROSEQ   2011
                                         S        GETARG 70,1,(SS)                                               PROSEQ   2012
                                                  IFC    NE,/"S"//,1                                             PROSEQ   2013
                                         BD       SET    BD+2                                                    PROSEQ   2014
                                                  IF     DEF,S.NAM,1                                             PROSEQ   2015
                                         XSP      SET    S.NAM                                                   PROSEQ   2016
                                        *                                                                        PROSEQ   2017
                                          VFD 2/TYPE,5/FT,2/1,4/FU1,4/FU2,2/BD,8/LSJ,3/XSP,2/JFT,3/CO,2/PA,23/   PROSEQ   2018
                                         OPR      ENDM                                                           PROSEQ   2019
  
  
  
                                        **        F.RDT - RLIST INSTRUCTION DESCRIPTOR TABLE                     PROSEQ   2021
                                                                                                                 PROSEQ   2022
                                                  ENTRY  F.RDT                                                   PROSEQ   2023
          1114                           F.RDT    BSS    0                                                       PROSEQ   2024
      L      0                                    LOC    0                                                       PROSEQ   2025
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    45
        OPRDEFS - *IL* INSTRUCTION DEFINITIONS
  
      L      0                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
                                        **        OPRDEFS - DEFINE THE PROPERTIES OF THE *IL* INSTRUCTIONS.      OPRDEFS     3
                                                                                                                 OPRDEFS     4
                                                  NOREF  .OC                                                     OPRDEFS     5
                                   0     .OC      SET    0           OPCODE OF THE FIRST RLIST INSTRUCTION       OPRDEFS     6
                                                                                                                 OPRDEFS     7
                                        **        GETARG - GET ARGUMENT STARTING IN COLUMN N FROM STRING SS      OPRDEFS     8
                                        *         M IS MAXIMUM STRING LENGTH                                     OPRDEFS     9
                                        *         NOTE: S IS THE NULL MICRO IF THE ARG HAS LEADING BLANKS        OPRDEFS    10
                                                                                                                 OPRDEFS    11
                                                  MACRO  GETARG,S,N,M,SS                                         OPRDEFS    12
                                         S        MICRO  N-15,M,$SS$                                             OPRDEFS    13
                                         S        MICRO  1,, "S"                                                 OPRDEFS    14
                                         GETARG   ENDM                                                           OPRDEFS    15
                                                                                                                 OPRDEFS    16
                                        **        V= - SCAN FIRST LIST AND SET RESULT TO VALUE IN SECOND LIST    OPRDEFS    17
                                                                                                                 OPRDEFS    18
                                                  MACRO  V=,V,S,L1,L2                                            OPRDEFS    19
                                         V        SET    -1                                                      OPRDEFS    20
                                                  ECHO   3,P1=(L1),P2=(L2)                                       OPRDEFS    21
                                                  IFC    EQ,/S/P1/,2                                             OPRDEFS    22
                                         V        SET    P2                                                      OPRDEFS    23
                                                  STOPDUP                                                        OPRDEFS    24
                                                  ERRMI  V           ILLEGAL MACRO PARAM - S                     OPRDEFS    25
                                         V=       ENDM                                                           OPRDEFS    26
                                                                                                                 OPRDEFS    27
                                        **        FUNIT - DEFINE FUNCTIONAL UNIT CODES FOR *OPR* MACRO           OPRDEFS    28
                                                                                                                 OPRDEFS    29
                                                  MACRO  FUNIT,N,F66,F76                                         OPRDEFS    30
                                         M        IFEQ   .CPU,76,2                                               OPRDEFS    31
                                         N        EQU    F76 F66           DEFAULT TO 6600 UNIT                  OPRDEFS    32
                                         M        SKIP   1                                                       OPRDEFS    33
                                         N        EQU    F66                                                     OPRDEFS    34
                                         FUNIT    ENDM                                                           OPRDEFS    35
  
  
                                        **        FUNCTIONAL UNIT CODES FOR 6600/7600                            OPRDEFS    37
                                        *                                                                        OPRDEFS    38
                                        * UNIT           66,76 UNIT NUMBER                                       OPRDEFS    39
                                                                                                                 OPRDEFS    40
                                                  QUAL   FUNIT                                                   OPRDEFS    41
                                        *PSEUDO   FUNIT  0                                                       OPRDEFS    42
                                         BRANCH   FUNIT  1                                                       OPRDEFS    43
                                         BOOL     FUNIT  2                                                       OPRDEFS    44
                                         SHIFT    FUNIT  3                                                       OPRDEFS    45
                                         IADD     FUNIT  4                                                       OPRDEFS    46
                                         FADD     FUNIT  5                                                       OPRDEFS    47
                                         MULT     FUNIT  6                 MULT2 = 7 FOR A 6600                  OPRDEFS    48
                                         DIVIDE   FUNIT  8                                                       OPRDEFS    49
                                         INC      FUNIT  9                 INC2 = 10 ON A 6600                   OPRDEFS    50
                                         NORM     FUNIT  SHIFT,7                                                 OPRDEFS    51
                                         BJUMP    FUNIT  INC,BRANCH                                              OPRDEFS    52
                                         XJUMP    FUNIT  IADD,BRANCH                                             OPRDEFS    53
                                         LCM      FUNIT  10                LCM PSEUDO FUNCT UNIT FOR 7600        OPRDEFS    54
                                         POPC     FUNIT  DIVIDE,11                                               OPRDEFS    55
                                         PACK     FUNIT  SHIFT,BOOL                                              OPRDEFS    56
                                                  QUAL   *                                                       OPRDEFS    57
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    46
        OPRDEFS - *IL* INSTRUCTION DEFINITIONS
  
                                        **        FORMAT OF THE *OPR* DEFINITION IS -                            OPRDEFS    59
                                        * NAM     OPR ( TYPE  COMM  USI  T6/T7  UNIT1 UNIT2  LEN K=J  SPEC   B ) OPRDEFS    60
                                        *                                                                        OPRDEFS    61
                                        *         NAME - MEMONIC NAME OF *IL* INSTRUCTION                        OPRDEFS    62
                                        *         TYPE - RLIST TYPE ( I - IV )                                   OPRDEFS    63
                                        *         COMM - "COMM" IF OPERANDS ARE COMMUTATIVE, ELSE "-"            OPRDEFS    64
                                        *         USI  - "USI" IF INSTRUCTION IS UNSAFE TO MOVE BECAUSE IT       OPRDEFS    65
                                        *                MAY CAUSE AN INTERRUPT ( FLOATING POINT OPERATIONS ).   OPRDEFS    66
                                        *         T6/T7 - 6600/7600 EXECUTION TIME OR "-" FOR SPECIAL INST       OPRDEFS    67
                                        *                FOR B-JUMPS THE STACK TIME IS USED.                     OPRDEFS    68
                                        *                FOR X-JUMPS THE FALL THROUGH TIME IS USED.              OPRDEFS    69
                                        *                TIMES FOR LAB, AND UNCONDITIONAL JUMPS IS SET AT 31     OPRDEFS    70
                                        *                TO ALLOW THEM TO APPEAR IN THE MIDDLE OF A SEQUENCE.    OPRDEFS    71
                                        *         UNIT1 - FUNCTIONAL UNIT WHICH EXECUTES THE INSTRUCTION         OPRDEFS    72
                                        *         UNIT2 - SECOND FUNCTIONAL UNIT, IF AN ALTERNATE UNIT IS        OPRDEFS    73
                                        *               AVAILABLE AND DIFFERENT FROM THE FIRST.                  OPRDEFS    74
                                        *               "FU1" IN THE CASE OF DUPLEXED UNITS ON THE 6600          OPRDEFS    75
                                        *                ( INCREMENT AND MULTIPLY ).                             OPRDEFS    76
                                        *         LEN  - INSTRUCTION LENGTH IN BITS ( 15,30,60,- )               OPRDEFS    77
                                        *         K=J - MISCELLANEOUS INSTRUCTION PROPERTIES                     OPRDEFS    78
                                        *         SPEC - ANY SPECIAL PROPERTIES OF THE INSTRUCTION               OPRDEFS    79
                                        *         B   - BOUNDARY MARKER ( BEGINS OR TERMINATES A BASIC BLOCK )   OPRDEFS    80
                                        *                                                                        OPRDEFS    81
                                        * NAM     OPR ( TYPE  COMM  USI  T6/T7  UNIT1 UNIT2  LEN K=J  SPEC   B ) OPRDEFS    82
                                                                                                                 OPRDEFS    83
      L      0  60500140012000000000     EOQ      OPR (  IV     -    -    1/1    -     -      -              A ) OPRDEFS    84
      L      1  60100040010000000000     BOS      OPR (  IV     -    -     -     -     -      -                ) OPRDEFS    85
      L      2  60100140010000000000     EOS      OPR (  IV     -    -     -     -     -      -              A ) OPRDEFS    86
      L      3  00100000010000000000     DAR      OPR (  I      -    -     -     -     -      -                ) OPRDEFS    87
      L      4  20100040010000000000     RS       OPR (  II     -    -     -     -     -      -       REGST    ) OPRDEFS    88
      L      5  20100100010000000000     DEF      OPR (  II     -    -     -     -     -      -              D ) OPRDEFS    89
      L      6  77500140012000000000     LAB      OPR (  IV     -    -   31/31   -     -      -              B ) OPRDEFS    90
      L      7  60100140010000000000     ENT      OPR (  IV     -    -     -     -     -      -              B ) OPRDEFS    91
      L                                                                                                          OPRDEFS    92
      L     10  01510400042040000000     XMT      OPR (  I      -    -    3/2  BOOL   SHIFT  15  K=J           ) OPRDEFS    93
      L     11  01510400002240000000     AND      OPR (  I    COMM   -    3/2  BOOL    -     15                ) OPRDEFS    94
      L     12  01510400002240000000     OR       OPR (  I    COMM   -    3/2  BOOL    -     15                ) OPRDEFS    95
      L     13  01510400002240000000     XOR      OPR (  I    COMM   -    3/2  BOOL    -     15                ) OPRDEFS    96
      L     14  01510400002040000000     XMTC     OPR (  I      -    -    3/2  BOOL    -     15  K=J           ) OPRDEFS    97
      L     15  01510400002040000000     STR      OPR (  I      -    -    3/2  BOOL    -     15                ) OPRDEFS    98
      L     16  01510400002040000000     IMP      OPR (  I      -    -    3/2  BOOL    -     15                ) OPRDEFS    99
      L     17  01510400002240000000     EQV      OPR (  I    COMM   -    3/2  BOOL    -     15                ) OPRDEFS   100
      L     20  41514600022040000000     KLS      OPR (  III    -    -    3/2  SHIFT   -     15  K=J           ) OPRDEFS   101
      L     21  41514600022040000000     KRS      OPR (  III    -    -    3/2  SHIFT   -     15  K=J           ) OPRDEFS   102
      L     22  01514600002040000000     ILS      OPR (  I      -    -    3/2  SHIFT   -     15                ) OPRDEFS   103
      L     23  01514600002040000000     IRS      OPR (  I      -    -    3/2  SHIFT   -     15                ) OPRDEFS   104
      L     24  02114600003040000000     NR       OPR (  I      -   USI   4/3  NORM    -     15  2R            ) OPRDEFS   105
      L     25  02114600003040000000     RNZ      OPR (  I      -   USI   4/3  NORM    -     15  2R            ) OPRDEFS   106
      L     26  01514600002040000000     UP       OPR (  I      -    -    3/2  PACK    -     15  2R            ) OPRDEFS   107
      L     27  01514600002040000000     PK       OPR (  I      -    -    3/2  PACK    -     15                ) OPRDEFS   108
      L     30  02125200003240000000     FA       OPR (  I    COMM  USI   4/4  FADD    -     15                ) OPRDEFS   109
      L     31  02125200003040000000     FS       OPR (  I      -   USI   4/4  FADD    -     15                ) OPRDEFS   110
      L     32  02125200003240000000     DFA      OPR (  I    COMM  USI   4/4  FADD    -     15                ) OPRDEFS   111
      L     33  02125200003040000000     DFS      OPR (  I      -   USI   4/4  FADD    -     15                ) OPRDEFS   112
      L     34  02125200003240000000     RFA      OPR (  I    COMM  USI   4/4  FADD    -     15                ) OPRDEFS   113
      L     35  02125200003040000000     RFS      OPR (  I      -   USI   4/4  FADD    -     15                ) OPRDEFS   114
      L     36  01521000002240000000     IA       OPR (  I    COMM   -    3/2  IADD    -     15                ) OPRDEFS   115
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    47
        OPRDEFS - *IL* INSTRUCTION DEFINITIONS
  
      L     37  01521000002040000000     IS       OPR (  I      -    -    3/2  IADD    -     15                ) OPRDEFS   116
      L     40  05131400003240000000     FM       OPR (  I    COMM  USI  10/5  MULT   FU1    15                ) OPRDEFS   117
      L     41  05131400003240000000     RFM      OPR (  I    COMM  USI  10/5  MULT   FU1    15                ) OPRDEFS   118
      L     42  05131400003240000000     DFM      OPR (  I    COMM  USI  10/5  MULT   FU1    15                ) OPRDEFS   119
      L     43  21514600002440000000     FMA      OPR (  II     -    -    3/2  SHIFT   -     15  K=J  ZEROP    ) OPRDEFS   120
      L     44  16542000003040000000     FD       OPR (  I      -   USI  29/20 DIVIDE  -     15                ) OPRDEFS   121
      L     45  16542000003040000000     RFD      OPR (  I      -   USI  29/20 DIVIDE  -     15                ) OPRDEFS   122
      L     46  40100040000000000000     NOP      OPR (  III    -    -     -     -     -      -       REGST    ) OPRDEFS   123
      L     47  04142000002040000000     CX       OPR (  I      -    -    8/2  POPC    -     15  K=J           ) OPRDEFS   124
      L                                                                                                          OPRDEFS   125
      L     50  44146200402100000000     LD       OPR (  III    -    -    8/8  INC    FU1    30       LOAD     ) OPRDEFS   126
      L     51  45146240202100000000     ST       OPR (  III    -    -   10/2  INC    FU1    30       STORE    ) OPRDEFS   127
      L     52  41546200002100000000     STT      OPR (  III    -    -    3/2  INC    FU1    30                ) OPRDEFS   128
      L     53  04146200402100000000     PLD      OPR (  I      -    -    8/8  INC    FU1    30       LOAD     ) OPRDEFS   129
      L     54  05146240202100000000     PST      OPR (  I      -    -   10/2  INC    FU1    30       STORE    ) OPRDEFS   130
      L     55  21546200002500000000     S        OPR (  II     -    -    3/2  INC    FU1    30       ZEROP    ) OPRDEFS   131
      L     56  04146200402240000000     SLD      OPR (  I    COMM   -    8/8  INC    FU1    15       LOAD     ) OPRDEFS   132
      L     57  05146240202240000000     SST      OPR (  I    COMM   -   10/2  INC    FU1    15       STORE    ) OPRDEFS   133
      L     60  01546200002240000000     SA       OPR (  I    COMM   -    3/2  INC    FU1    15                ) OPRDEFS   134
      L     61  04146200402040000000     SDL      OPR (  I      -    -    8/8  INC    FU1    15       LOAD     ) OPRDEFS   135
      L     62  05146240202040000000     SDS      OPR (  I      -    -   10/2  INC    FU1    15       STORE    ) OPRDEFS   136
      L     63  01546200002040000000     SS       OPR (  I      -    -    3/2  INC    FU1    15                ) OPRDEFS   137
      L     64  00152401400040000000     DRL      OPR (  I      -    -    0/17 LCM     -     15  K=J  LOAD2    ) OPRDEFS   138
      L     65  00152441200040000000     DWL      OPR (  I      -    -    0/3  LCM     -     15  K=J  STORE2   ) OPRDEFS   139
      L                                                                                                          OPRDEFS   140
      L     66  45521140102100000000     JPX      OPR (  III    -    -   11/2  XJUMP   -     30       JUMP   C ) OPRDEFS   143
      L     67  44146340102100000000     JPBB     OPR (  III    -    -    8/3  BJUMP   -     30       JUMP   C ) OPRDEFS   144
      L                                                                                                          OPRDEFS   145
      L     70  47146340102100000000     JIN      OPR (  III    -    -   14/13 INC    FU1    30       UJUMP  A ) OPRDEFS   146
      L     71  77504340102100000000     RJ3      OPR (  IV     -    -   31/31 BRANCH  -     30       UJUMP  A ) OPRDEFS   147
      L     72  77504340102100000000     RJ6      OPR (  IV     -    -   31/31 BRANCH  -     30       UJUMP  A ) OPRDEFS   148
      L     73  67146340102100000000     UJP      OPR (  IV     -    -   14/13 BJUMP  FU1    30       UJUMP  A ) OPRDEFS   149
      L                                                                                                          OPRDEFS   150
      L     74  44146200402100000000     ILD      OPR (  III    -    -    8/8  INC    FU1    30       LOAD     ) OPRDEFS   151
      L     75  44146200402100000000     TLD      OPR (  III    -    -    8/8  INC    FU1    30       LOAD     ) OPRDEFS   152
      L     76  45146240202100000000     TST      OPR (  III    -    -   10/2  INC    FU1    30       STORE    ) OPRDEFS   153
      L     77  01521000002240000000     IAZ      OPR (  I    COMM   -    3/2  IADD    -     15                ) OPRDEFS   154
      L    100  01521000002040000000     ISZ      OPR (  I      -    -    3/2  IADD    -     15                ) OPRDEFS   155
      L    101  05131400002240000000     IM       OPR (  I    COMM   -   10/5  MULT   FU1    15                ) OPRDEFS   156
      L    102  21514600002440000000     CLR      OPR (  II     -    -    3/2  SHIFT  BOOL   15  K=J  ZEROP    ) OPRDEFS   157
      L    103  01510400042040000000     SXT      OPR (  I      -    -    3/2  BOOL   SHIFT  15  K=J           ) OPRDEFS   158
      L                                                                                                          OPRDEFS   159
                                        *         DEFINE MICROS FOR THE CONDITIONAL X AND B JUMPS                OPRDEFS   160
                                                                                                                 OPRDEFS   161
                                         XJUMPS   MICRO  1,,/ZR,NZ,PL,MI,OR,IR,DF,ID/                            OPRDEFS   162
                                         BJUMPS   MICRO  1,,/EQ,NE,GE,LT/                                        OPRDEFS   163
                                                                                                                 OPRDEFS   164
                                                  PURGMAC GETARG,FUNIT,V=,OPR                                    OPRDEFS   165
                                                  ENDX                                                           OPRDEFS   166
          1220                                    LOC    *O                                                      PROSEQ   2027
                                                  LIST   R                                                       PROSEQ   2028
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    48
        SST - SHELL SORT TABLE                                        SST 
  
                                        ***       SST - SHELL SORT TABLE.                                        PROSEQ   2030
                                        *                                                                        PROSEQ   2031
                                        *                SST SORTS A TABLE USING A SHELL SORTING TECHNIQUE.      PROSEQ   2032
                                        *         THE TABLE IS SORTED IN PLACE INTO ASCENDING ORDER ON THE KEY   PROSEQ   2033
                                        *         KEY(X) = XOR(SHIFT(KEYMASK&X,KEYSHIFT),UPDOWN)                 PROSEQ   2034
                                        *                                                                        PROSEQ   2035
                                        *                TIME(SST) @ TIME(RADIX) FOR N @ 250/575, B6 "0/=0       PROSEQ   2036
                                        *                                                                        PROSEQ   2037
                                        *         ENTRY  (B7) = ADDRESS OF TABLE TO BE SORTED                    PROSEQ   2038
                                        *                (B6) = SHIFT COUNT FOR EXTRACTED KEY PRIOR TO COMPARE   PROSEQ   2039
                                        *                (X0) = MASK TO EXTRACT KEY FROM ENTRY                   PROSEQ   2040
                                        *                (X1) = NUMBER OF ELEMENTS IN ARRAY.                     PROSEQ   2041
                                        *                (X5) = ASCENDING/DESENDING SORT MASK ( +0 / -0 )        PROSEQ   2042
                                        *                                                                        PROSEQ   2043
                                        *         USES   X - ALL                                                 PROSEQ   2044
                                        *                B - 2, 3, 4, 5, 6                                       PROSEQ   2045
                                        *                A - 1, 2, 6, 7.                                         PROSEQ   2046
                                                                                                                 PROSEQ   2047
          1220  56220                    SST0     SA2    B2          I = I + 1                                   PROSEQ   2048
                     57754                        SA7    B5-B4                                                   PROSEQ   2049
                          0423001227 +            EQ     B2,B3,SST4  IF I > N                                    PROSEQ   2050
                                                                                                                 PROSEQ   2051
          1221  11702                    SST1     BX7    X0*X2                                                   PROSEQ   2052
                     56124                        SA1    B2+B4       J = I - K                                   PROSEQ   2053
                          22667                   LX6    B6,X7                                                   PROSEQ   2054
                               66524              SB5    B2+B4                                                   PROSEQ   2055
          1222  13365                             BX3    X6-X5       SI = KEY(T(I))                              PROSEQ   2056
                     6122000001                   SB2    B2+1                                                    PROSEQ   2057
                               22702              LX7    X2                                                      PROSEQ   2058
                                                                                                                 PROSEQ   2059
          1223  11201                    SST2     BX2    X0*X1                                                   PROSEQ   2060
                     22662                        LX6    B6,X2                                                   PROSEQ   2061
                          13265                   BX2    X6-X5       SJ = KEY(T(J))                              PROSEQ   2062
                               37632              IX6    X3-X2                                                   PROSEQ   2063
          1224  0326001220 +                      PL     X6,SST0     IF ELEMENTS IN ORDER                        PROSEQ   2064
                          10611                   BX6    X1                                                      PROSEQ   2065
                               56154              SA1    B5+B4       J = J - K                                   PROSEQ   2066
          1225  57654                             SA6    B5-B4       T(J+K) = T(J)                               PROSEQ   2067
                     66554                        SB5    B5+B4                                                   PROSEQ   2068
                          0657001223 +            GE     B5,B7,SST2  IF J \ 0                                    PROSEQ   2069
          1226  56220                             SA2    B2          I = I + 1                                   PROSEQ   2070
                     57754                        SA7    B5-B4       T(J+K) = S                                  PROSEQ   2071
                          0723001221 +            LT     B2,B3,SST1  IF I @ LENGTH                               PROSEQ   2072
                                                                                                                 PROSEQ   2073
          1227  21401                    SST4     AX4    1           K = K/2                                     PROSEQ   2074
                     63440                        SB4    X4                                                      PROSEQ   2075
                          57274                   SA2    B7-B4       I = K                                       PROSEQ   2076
                               67274              SB2    B7-B4                                                   PROSEQ   2077
          1230  0314001221 +                      NZ     X4,SST1     IF K " 0                                    PROSEQ   2078
          1231  00000000000000000000     SST      ENTRY.                                                         PROSEQ   2079
          1232  43414                             MX4    12                                                      PROSEQ   2080
                     24621                        NX6    B2,X1       K = 2**FIX(LOG2(LENGTH))+1                  PROSEQ   2081
                          6110000001              SB1    1                                                       PROSEQ   2082
          1233  63317                             SB3    B7+X1       (B3) = LWA + 1                              PROSEQ   2083
                     23424                        AX4    B2,X4                                                   PROSEQ   2084
                          0560001227 +            NZ     B6,SST4     IF SHFTC " 0                                PROSEQ   2085
                                                                                                                 PROSEQ   2086
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    49
        SST - SHELL SORT TABLE                                        SST                 SHFTC=0 
  
                                                  QUAL   SHFTC=0                                                 PROSEQ   2087
                                                                                                                 PROSEQ   2088
          1234  21401                    SST0     AX4    1                                                       PROSEQ   2089
                     63440                        SB4    X4          K = K/2                                     PROSEQ   2090
                          57274                   SA2    B7-B4                                                   PROSEQ   2091
                               67274              SB2    B7-B4       I = K                                       PROSEQ   2092
          1235  0314001237 +                      NZ     X4,SST2     IF K " 0                                    PROSEQ   2093
                          0400001231 +            EQ     SST                                                     PROSEQ   2094
                                                                                                                 PROSEQ   2095
          1236  54221                    SST1     SA2    A2+B1       I = I + 1                                   PROSEQ   2096
                     57754                        SA7    B5-B4       T(J+K) = S                                  PROSEQ   2097
                          0423001234 +            EQ     B2,B3,SST0  IF I > N                                    PROSEQ   2098
                                                                                                                 PROSEQ   2099
          1237  11602                    SST2     BX6    X0*X2                                                   PROSEQ   2100
                     56124                        SA1    B2+B4       J = I - K                                   PROSEQ   2101
                          22702                   LX7    X2          S = T(I)                                    PROSEQ   2102
                               66524              SB5    B2+B4                                                   PROSEQ   2103
          1240  13365                             BX3    X6-X5       SI = KEY(T(I))                              PROSEQ   2104
                     6122000001                   SB2    B2+1                                                    PROSEQ   2105
                               11201              BX2    X0*X1                                                   PROSEQ   2106
                                                                                                                 PROSEQ   2107
          1241  13225                    SST3     BX2    X2-X5                                                   PROSEQ   2108
                     37632                        IX6    X3-X2                                                   PROSEQ   2109
                          0326001236 +            PL     X6,SST1     IF ELEMENTS IN ORDER                        PROSEQ   2110
          1242  22601                             LX6    X1                                                      PROSEQ   2111
                     56154                        SA1    B5+B4                                                   PROSEQ   2112
                          57654                   SA6    B5-B4       T(J+K) = T(J)                               PROSEQ   2113
                               66554              SB5    B5+B4       J = J - K                                   PROSEQ   2114
          1243  11201                             BX2    X0*X1                                                   PROSEQ   2115
                     0657001241 +                 GE     B5,B7,SST3                                              PROSEQ   2116
                               54221              SA2    A2+B1       I = I + 1                                   PROSEQ   2117
          1244  57754                             SA7    B5-B4                                                   PROSEQ   2118
                     0723001237 +                 LT     B2,B3,SST2  IF I @ N                                    PROSEQ   2119
          1245  0400001234 +                      EQ     SST0                                                    PROSEQ   2120
                                                                                                                 PROSEQ   2121
                                                  QUAL                                                           PROSEQ   2122
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    50
        SHL - SHELL SORT                                              SHL 
  
                                        ***       SHL - SHELL SORT FOR 1 WORD/ENTRY TABLES                       PROSEQ   2124
                                        *         INPLACE SORT OF TABLE INTO ASCENDING ORDER                     PROSEQ   2125
                                        *                                                                        PROSEQ   2126
                                        *                TIME(SHL) @ TIME(RADIX) FOR N @ 1650                    PROSEQ   2127
                                        *                                                                        PROSEQ   2128
                                        *         ENTRY  (X1) = N = TABLE LENGTH                                 PROSEQ   2129
                                        *                (B7) = TBL = = FWA OF ARRAY TO BE SORTED                PROSEQ   2130
                                        *                                                                        PROSEQ   2131
                                        *         EXIT   (B3) = LWA+1 OF TABLE                                   PROSEQ   2132
                                        *                (B7) = FWA                                              PROSEQ   2133
                                        *                                                                        PROSEQ   2134
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    PROSEQ   2135
                                        *                B - 2, 3, 4, 5                                          PROSEQ   2136
                                        *                A - 1, 2, 6, 7                                          PROSEQ   2137
                                                                                                                 PROSEQ   2138
          1246  54221                    SHL1     SA2    A2+B1       I = I + 1                                   PROSEQ   2139
                     57754                        SA7    B5-B4       T(J+K) = S                                  PROSEQ   2140
                          0423001253 +            EQ     B2,B3,SHL4  IF I > N                                    PROSEQ   2141
                                                                                                                 PROSEQ   2142
          1247  56124                    SHL2     SA1    B2+B4       J = I - K                                   PROSEQ   2143
                     22702                        LX7    X2          S = T(I)                                    PROSEQ   2144
                          66524                   SB5    B2+B4                                                   PROSEQ   2145
                               66221              SB2    B2+B1                                                   PROSEQ   2146
                                                                                                                 PROSEQ   2147
          1250  37321                    SHL3     IX3    X2-X1                                                   PROSEQ   2148
                     10611                        BX6    X1                                                      PROSEQ   2149
                          0323001246 +            PL     X3,SHL1     IF ELEMENTS IN ORDER                        PROSEQ   2150
          1251  54114                             SA1    A1+B4                                                   PROSEQ   2151
                     46000                        NO                                                             PROSEQ   2152
                          57654                   SA6    B5-B4       T(J+K) = T(J)                               PROSEQ   2153
                               66554              SB5    B5+B4       J = J - K                                   PROSEQ   2154
          1252  0657001250 +                      GE     B5,B7,SHL3  IF J \ 0                                    PROSEQ   2155
                          0400001246 +            EQ     SHL1                                                    PROSEQ   2156
                                                                                                                 PROSEQ   2157
          1253  21401                    SHL4     AX4    1                                                       PROSEQ   2158
                     63440                        SB4    X4          K = K/2                                     PROSEQ   2159
                          57274                   SA2    B7-B4       I = K                                       PROSEQ   2160
                               67274              SB2    B7-B4                                                   PROSEQ   2161
          1254  0314001247 +                      NZ     X4,SHL2     IF K " 0                                    PROSEQ   2162
                                                                                                                 PROSEQ   2163
          1255  00000000000000000000     SHL      ENTRY.                                                         PROSEQ   2164
          1256  43414                             MX4    12                                                      PROSEQ   2165
                     6110000001                   SB1    1                                                       PROSEQ   2166
                               24621              NX6    B2,X1       K = 2**(FIX(LOG2(N))+1)                     PROSEQ   2167
          1257  63317                             SB3    B7+X1       (B3) = LWA+1                                PROSEQ   2168
                     23424                        AX4    B2,X4                                                   PROSEQ   2169
                          0400001253 +            EQ     SHL4                                                    PROSEQ   2170
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    51
        PASS 2 TABLES                                                 TABLES    //
  
                                                  USE    //                                                      PROSEQ   2172
             0                     1     F.MEM    BSS    1           FWA OF WORKING STORAGE                      PROSEQ   2173
                                                  USE    0                                                       PROSEQ   2174
                                                                                                                 PROSEQ   2175
                                        **        TABLE - GENERATE MANAGED TABLE.                                PROSEQ   2176
                                        *                                                                        PROSEQ   2177
                                        *         TABLE  TNAME,EQUIV                                             PROSEQ   2178
                                        *         ENTRY  *TNAME* = TABLE NAME.                                   PROSEQ   2179
                                        *                *EQUIV* = EQUIVALENT TABLE NAME.  THIS ALLOWS CERTAIN   PROSEQ   2180
                                        *                            TABLES TO BE USED BY DIFFERENT PROCESSORS.  PROSEQ   2181
                                        *         EXIT   *O.TNAM* IS NAME OF WORD CONTAINING TABLE FWA.          PROSEQ   2182
                                        *                *L.TNAM* IS NAME OF WORD CONTAINING THE TABLE LENGTH.   PROSEQ   2183
                                        *                            *Z.TNAM* IS THE TABLE NUMBER                PROSEQ   2184
                                                                                                                 PROSEQ   2185
                                                  PURGMAC TABLE                                                  PROSEQ   2186
                                                  MACRO  TABLE,TNAM,EQUIV                                        PROSEQ   2187
                                                  ENTRY  O.TNAM,L.TNAM,Z.TNAM                                    PROSEQ   2188
                                        T         IFC    EQ,/EQUIV//                                             PROSEQ   2189
                                         Z.TNAM   EQU    *-FTAB                                                  PROSEQ   2190
                                         O.TNAM   CON    F.MEM                                                   PROSEQ   2191
                                         TABLES   RMT                                                            PROSEQ   2192
                                                  ORG    LTAB+Z.TNAM                                             PROSEQ   2193
                                         L.TNAM   CON    0                                                       PROSEQ   2194
                                         TABLES   RMT                                                            PROSEQ   2195
                                         TABNAM   RMT                                                            PROSEQ   2196
                                                  ORG    NAMTAB+Z.TNAM                                           PROSEQ   2197
                                                  DATA 10H TNAM                                                  PROSEQ   2198
                                         TABNAM   RMT                                                            PROSEQ   2199
                                        T         ELSE                                                           PROSEQ   2200
                                         Z.TNAM   EQU    Z.EQUIV                                                 PROSEQ   2201
                                         O.TNAM   EQU    O.EQUIV                                                 PROSEQ   2202
                                         TABLES   RMT                                                            PROSEQ   2203
                                         L.TNAM   EQU    L.EQUIV                                                 PROSEQ   2204
                                         TABLES   RMT                                                            PROSEQ   2205
                                         TABNAM   RMT                                                            PROSEQ   2206
                                                  ORG    NAMTAB+Z.TNAM                                           PROSEQ   2207
                                                  DATA   10H TNAM EQUIV                                          PROSEQ   2208
                                         TABNAM   RMT                                                            PROSEQ   2209
                                        T         ENDIF                                                          PROSEQ   2210
                                                  ENDM                                                           PROSEQ   2211
  
  
  
                                        **        PASS 2 MANAGED TABLE DEFINITIONS                               PROSEQ   2213
                                                                                                                 PROSEQ   2214
          1260                           FTAB     BSS    0           FWA VECTOR FOR TABLE MANAGER                PROSEQ   2215
                                                                                                                 PROSEQ   2216
          1260  00000000000000000000 C   BLK      TABLE              BLOCKS ( OPT=2 ONLY )                       PROSEQ   2217
                                                                                                                 PROSEQ   2218
          1261  00000000000000000000 C   TXT      TABLE              RLIST INSTRUCTIONS                          PROSEQ   2219
                                         GST      TABLE  TXT         GRAPH STRUCTURE TABLE                       PROSEQ   2220
                                                                                                                 PROSEQ   2221
          1262  00000000000000000000 C   RND      TABLE              R-NUMBER DEFINITION TABLE ( *SQZ* )         PROSEQ   2222
                                         TREE     TABLE  RND         DEPENDENCY TREE / SUCCESSOR INDEX TABLE     PROSEQ   2223
                                                                                                                 PROSEQ   2224
          1263  00000000000000000000 C   PIT      TABLE              POSTED INSTRUCTIONS                         PROSEQ   2225
                                                                                                                 PROSEQ   2226
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    52
        PASS 2 TABLES                                                 TABLES
  
          1264  00000000000000000000 C   OTI      TABLE              OT. INFO 12/P(OT. ORD),30/0,18/RI IN OT.    PROSEQ   2227
                                         MLT      TABLE  OTI         MOD LIST INDEX TABLE                        PROSEQ   2228
                                                                                                                 PROSEQ   2229
          1265  00000000000000000000 C   MOD      TABLE              MODIFICATIONS ( INSTRUCTIONS )              PROSEQ   2230
                                                                                                                 PROSEQ   2231
          1266  00000000000000000000 C   CFT      TABLE              CONTROL FLOW TABLE ( EDGES )                PROSEQ   2232
                                                                                                                 PROSEQ   2233
          1267  00000000000000000000 C   BST      TABLE              BLOCK STATUS INFORMATION                    PROSEQ   2234
                                        * BIT     =      BST         ( PHASE 1 OF OPT=2 )                        PROSEQ   2235
                                                                                                                 PROSEQ   2236
          1270  00000000000000000000 C   PSI      TABLE              POST STORE INFORMATION ( *GPO/GRA* )        PROSEQ   2237
                                                                                                                 PROSEQ   2238
          1271  00000000000000000000 C   RXI      TABLE              REGION EXIT INFORMATION ( *GPO/GRA* )       PROSEQ   2239
                                                                                                                 PROSEQ   2240
          1272  00000000000000000000 C   RCT      TABLE              REGISTER CANIDATE TABLE ( *GRA* )           PROSEQ   2241
                                                                                                                 PROSEQ   2242
          1273  00000000000000000000 C   TET      TABLE              TEMP EQUIVALENCE TABLE ( CODE MOTION )      PROSEQ   2243
                                                                                                                 PROSEQ   2244
          1274  00000000000000000000 C   IOL      TABLE              I/O AP LIST PARAMETER ORDINALS ( OPT=2 )    PROSEQ   2245
                                         IIT      TABLE  IOL         INCREMENT INFORMATION ( OPT=2 )             PROSEQ   2246
                                                                                                                 PROSEQ   2247
          1275  00000000000000000000 C   VDT      TABLE              VARDIM INFO                                 PROSEQ   2248
                                                                                                                 PROSEQ   2249
          1276  00000000000000000000 C   APL      TABLE              AP LISTS                                    PROSEQ   2250
                                                                                                                 PROSEQ   2251
          1277  00000000000000000000 C   UDI      TABLE              USE/DEF INDEX TABLE                         PROSEQ   2252
                                                                                                                 PROSEQ   2253
          1300  00000000000000000000 C   ALS      TABLE              24/,36/CA,IH OF ACTIVE LOOP *CV"S*          PROSEQ   2254
                                                                                                                 PROSEQ   2255
          1301  00000000000000000000 C   TEND     TABLE              DUMMY TABLE FOR TABLE MANAGER               PROSEQ   2256
          1302                                    BSS    0                                                       PROSEQ   2257
                                  22     NTAB     EQU    *-FTAB      TOTAL NUMBER OF TABLES                      PROSEQ   2258
  
  
  
                                        **        REMAINDER OF TABLE MANAGER STORAGE                             PROSEQ   2260
                                                                                                                 PROSEQ   2261
          1302                           LTAB     BSS    0           TABLE LENGTHS                               PROSEQ   2262
                                         TABLES   HERE                                                           PROSEQ   2263
                                                                                                                 PROSEQ   2264
          1324  00000000000000000000     MU       ENTRY. 0           MEMORY USED                                 PROSEQ   2265
          1325  00000000000000000000 C   LM       ENTRY. F.MEM       LOW MEMORY ADDRESS ( FWA WORKING STORAGE )  PROSEQ   2266
          1326  00000000000000000022     TN       CON    NTAB        NUMBER OF MANAGED TABLES                    PROSEQ   2267
          1327                     4              BSS    4           SCRATCH TO SAVE - X0 , X5 , X1 , A0         PROSEQ   2268
          1333  00000000000000000000     PL       CON    0           PREVIOUS LENGTH OF REQUESTING TABLE         PROSEQ   2269
          1334  00000000000000001341 +   TO       ENTRY. TOV         ADDRESS OF TABLE OVERFLOW PROCESSOR         PROSEQ   2270
          1335  00000000000000000000     INT.P2M  ENTRY.             */ FIELD LENGTH AT THE BEG.OF PASS2         RSM2763X  170
          1336  00000000000000000000     MX.BLN   ENTRY.                                                         RSM2763X  171
          1337  00000000000000000000     TOBA     ENTRY.                                                         RSM2763X  172
          1340                     1     TOBB     BSS    1                                                       RSM2763X  173
  
  
  
                                        **        TOV - TABLE OVERFLOW PROCESSOR                                 PROSEQ   2272
                                                                                                                 PROSEQ   2273
                                                  ENTRY  TOV                                                     PROSEQ   2274
          1341                           TOV      BSS    0                                                       PROSEQ   2275
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    53
        PASS 2 TABLES                                                 TOV 
  
          1341  67505                             SB5    -B5                                                     RSM2763X  174
                     7115002000                   SX1    B5+2000B    WR = NO.OF WORDS REQUESTED                  RSM2763X  175
                                                  PRINT  TOV,(* TOV CALLS MOREFL,WR=*Z7),(X1)                    RSM2763X  176
          1342  0100001366 +                      CALL   MOREFL                                                  RSM2763X  177
          1343  0327001532 +                      PL     X7,/TBLM/ATS9                                           RSM2763X  178
                                         .T       IFNE   TEST,0                                    * TEST MODE * PROSEQ   2276
                                                  SA5    ATS=                                                    PROSEQ   2277
                                                  LX5    30                                                      PROSEQ   2278
                                         TOV      SNAP   FTAB,TO                                                 FEAT155F  257
                                         .T       ENDIF                                            * TEST MODE * PROSEQ   2281
                                                                                                                 PROSEQ   2282
          1344  5110001576 +             TOV1     SA1    =7LTBL-OVF                                              RSM2763X  179
                          0100000000 X            CALL   PUNT        ISSUE AN ERROR MESSAGE AND QUIT             PROSEQ   2284
  
  
  
                                        **        TOB - OVERFLOW PROCESSING FOR PASS2,OPT2                       RSM2763X  180
                                        *                                                                        RSM2763X  181
                                        *         ENTRY (B5) = - NO.OF WORDS NEEDED                              RSM2763X  182
                                        *                                                                        RSM2763X  183
                                        *         TOB ATTEMPTS TO OBTAIN NEEDED WORDS BY DECREASING BLK TABLE    RSM2763X  184
                                        *         IF IT IS AT LEAST 1.5 TIMES THE MAX.BASIC BLOCK SIZE,ELSE      RSM2763X  185
                                        *         TOB CALLS MOREFL TO GET ADDIT.SPACE BY EXTENDING FIELD         RSM2763X  186
                                        *         LENGTH. IF NO FL AVAIL.,COMPILATION IS ABORTED                 RSM2763X  187
                                                                                                                 RSM2763X  188
                                                  ENTRY  TOB                                                     RSM2763X  189
          1345  5120001336 +             TOB      SA2    =XMX.BLN                                                RSM2763X  190
                          5130000000 X            SA3    =XM.BBL                                                 RSM2763X  191
          1346  21201                             AX2    1           X2 = MX.BLN/2                               RSM2763X  192
                     10133                        BX1    X3                                                      RSM2763X  193
                          21101                   AX1    1                                                       RSM2763X  194
                               36113              IX1    X1+X3       X1 = 1.5*M.BBL                              RSM2763X  195
          1347  37421                             IX4    X2-X1                                                   RSM2763X  196
                     0324001350 +                 PL     X4,TOB1     IF MX.BLN/2 > 1.5*M.BBL                     RSM2763X  197
                               10211              BX2    X1                                                      RSM2763X  198
                                                                                                                 RSM2763X  199
                                        *         MIN.BLK = MAX(MX.BLN/2,1.5*M.BBL)                              RSM2763X  200
                                                                                                                 RSM2763X  201
          1350  67505                    TOB1     SB5    -B5         WN = NO.OF WORDS NEEDED                     RSM2763X  202
                                                  PRINT  TOB,(*  NO.OF WORDS NEEDED,MIN.BLK = *2Z7),(B5,X1)      RSM2763X  203
                     5130001302 +                 SA3    L.BLK                                                   RSM2763X  204
          1351  7115000200                        SX1    B5+200B     WR = WN+200B */ WORDS TO BE REQUESTED       RSM2763X  205
                          37432                   IX4    X3-X2       WA = L.BLK - MIN.BLK */ WORDS AVAIL.IN BLK  RSM2763X  206
                               66210              SB2    B1          SPECIAL PROC.BY DMB IF MOREFL NOT CALLED    RSM2763X  207
          1352  37241                             IX2    X4-X1                                                   RSM2763X  208
                     10611                        BX6    X1                                                      RSM2763X  209
                          64300                   SB3    A0                                                      FCCA530     7
          1353  0430001354 +                      ZR     B3,TOB1A    IF ALLOC BLK                                FCCA530     8
                          0322001356 +            PL     X2,TOB2     IF WA GT WR                                 FCCA530     9
                                                                                                                 FCCA530    10
          1354                           TOB1A    BSS    0                                                       FCCA530    11
          1354  0100001366 +                      CALL   MOREFL      MOREFL(X6) = WG */ WORDS GRANTED IN NEW FL  RSM2763X  211
          1355  0327001532 +                      PL     X7,/TBLM/ATS9    IF WG > WR                             RSM2763X  212
                                                                                                                 RSM2763X  213
                          37616                   IX6    X1-X6       WR = WR-WG                                  RSM2763X  214
                               66200              SB2    B0          STAND.PROC BY DMB IF MOREFL CALLED          RSM2763X  215
                                                                                                                 RSM2763X  216
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    54
        PASS 2 TABLES                                                 TOB 
  
                                        *         GET REMAINING NEEDED SPACE BY REDUCING *BLK* SIZE              RSM2763X  217
                                                                                                                 RSM2763X  218
          1356  5120000000 X             TOB2     SA2    =XMX.AVS                                                RSM2763X  219
                          37162                   IX1    X6-X2       WD = WR - MX.AVS */ WORDS TO BE DUMPED      RSM2763X  220
                               63210              SB2    X1                                                      RSM2763X  221
          1357  0602001363 +                      LE     B2,B0,TOB3  IF WD .LE. ZERO                             RSM2763X  222
                          5160001337 +            SA6    TOBA        SAVE WR                                     RSM2763X  223
                                                  PRINT  TOB,(*  TOB CALLS  DMB ; WDS,SP.FLG=*2Z7),(X1,B2)       RSM2763X  224
          1360  0100000000 X                      CALL   DMB         DUMP BLOCKS TO FREE WD WORDS                RSM2763X  225
                                        *         DMB(X2) = WFL */ NO. OF WORDS BY MOREFL                        RSM2763X  226
          1361  0311001344 +                      NZ     X1,TOV1     IF X1 " 0 */ CANNOT DUMP ENOUGH BLOCKS      RSM2763X  227
                          5110001337 +            SA1    TOBA        RELOAD WR                                   RSM2763X  228
          1362  37612                             IX6    X1-X2       BLK.DECR = WR - WFL                         RSM2763X  229
                     0336001364 +                 MI     X6,TOB4     IF BLK.DECR @ 0                             RSM2763X  230
                                                                                                                 RSM2763X  231
                                        *         DECREASE BLOCK TABLE SIZE BY BLK.DECR                          RSM2763X  232
                                                                                                                 RSM2763X  233
          1363  5110001302 +             TOB3     SA1    L.BLK                                                   RSM2763X  234
                          37716                   IX7    X1-X6                                                   RSM2763X  235
                               54710              SA7    A1          L.BLK = L.BLK - WR                          RSM2763X  236
                                                  PRINT  TOB,(*  NEW BLK SIZE,DIFFERENCE =*2Z7),(X7,X6)          RSM2763X  237
          1364  0100000000 X             TOB4     CALL   CGB         COLLECT FREE SPACE AT THE END OF BLK        RSM2763X  238
          1365  0400001532 +                      EQ     /TBLM/ATS9                                              RSM2763X  239
                                                                                                                 RSM2763X  240
                                                                                                                 RSM2763X  241
                                        **        GET MORE MEMORY FROM THE SYSTEM                                RSM2763X  242
                                        *                                                                        RSM2763X  243
                                        *         ENTRY (X1) = WN ,  NO.OF WORDS NEEDED                          RSM2763X  244
                                        *                                                                        RSM2763X  245
                                        *         EXIT   (X1) = WN                                               RSM2763X  246
                                        *                (X6) = WG , NO. OF WORDS GRANTED                        RSM2763X  247
                                        *                (X7) = WG - WN                                          RSM2763X  248
                                                                                                                 RSM2763X  249
          1366  00000000000000000000     MOREFL   ENTRY.                                                         RSM2763X  250
                                                  PRINT  MOREFL,(*  WN =*Z7),(X1)                                RSM2763X  251
          1367  5120000000 X                      SA2    =XMAX.FL    MXFL = MAX. FL WE CAN POSSIBLY GET          RSM2763X  252
                          5130000000 X            SA3    =XCP.AFLS   CFL = FL CURRENTLY USED                     RSM2763X  253
          1370  21236                             AX2    30                                                      RSM2763X  254
                     37623                        IX6    X2-X3       WA = NO. OF WORDS AVAILABLE IN MXFL         RSM2763X  255
                          43754                   MX7    44                                                      RSM2763X  256
          1371  0306001366 +                      ZR     X6,MOREFL   IF WA = 0 */ MAX FL USED ALREADY            RSM2763X  257
                          63360                   SB3    X6                                                      RSM2763X  258
                               43766              MX7    -6                                                      RSM2763X  259
          1372  37217                             IX2    X1-X7                                                   RSM2763X  260
                     11272                        BX2    X7*X2       ROUND WN TO NEXT 100B                       RSM2763X  261
                          6222001000              SB2    X2+1000B                                                RSM2763X  262
          1373  0623001374 +                      GE     B2,B3,MFL1                                              RSM2763X  263
                          76620                   SX6    B2          WR = MIN(WA,WN+1000B) */ NO OF WDS REQ.     RSM2763X  264
                                                                                                                 RSM2763X  265
          1374  36763                    MFL1     IX7    X6+X3                                                   RSM2763X  266
                     20736                        LX7    30                                                      RSM2763X  267
                          5170000000 X            SA7    =XGT1                                                   RSM2763X  268
          1375  10711                             BX7    X1                                                      RSM2763X  269
                     5170001340 +                 SA7    TOBB                                                    RSM2763X  270
                                                  PRINT  MOREFL,(* WA,WR =*2Z7),(B3,X6)                          RSM2763X  271
          1376  7160150515                        MEMORY SCM,GT1,RGL                                             RSM2763X  272
          1401  5120000000 X                      SA2    GT1                                                     RSM2763X  273
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    55
        PASS 2 TABLES                                                 TOB 
  
                          5130000000 X            SA3    CP.AFLS     OFL = OLD FL                                RSM2763X  274
          1402  21236                             AX2    30          NFL = NEW FL                                RSM2763X  275
                     37023                        IX0    X2-X3       WG = NO. OF WORDS GRANTED                   RSM2763X  276
                          10622                   BX6    X2                                                      RSM2763X  277
                               54630              SA6    A3          CP.AFLS = NEW FL                            RSM2763X  278
                                                  PRINT  MOREFL,(*  NEW FL,WG =*2Z7),(X6,X0)                     RSM2763X  279
          1403  0100001442 +                      RJ     AST         */ ADJUST SPECIAL TABLES                    RSM2763X  280
          1404  5110001340 +                      SA1    TOBB                                                    RSM2763X  281
                          10600                   BX6    X0          (X6) = NO.OF WORDS GRANTED */ EXIT PAR.     RSM2763X  282
                               37701              IX7    X0-X1                                                   RSM2763X  283
          1405  0400001366 +                      EQ     MOREFL                                                  RSM2763X  284
  
  
  
                                        **        CWS= - CALCULATE WORKING STORAGE SIZE                          RSM2763X  286
                                        *                                                                        RSM2763X  287
                                        *         EXIT   (X6) = CURRENT WORKING STORAGE SIZE                     RSM2763X  288
                                        *                (X7) = MAXIMUM WORKING STORAGE SIZE                     RSM2763X  289
                                                                                                                 RSM2763X  290
          1406  00000000000000000000     CWS=     ENTRY.                                                         RSM2763X  291
          1407  5110001325 +                      SA1    LM                                                      RSM2763X  292
                          5120001301 +            SA2    O.TEND                                                  RSM2763X  293
          1410  5130000000 X                      SA3    =XCP.AFLS                                               RSM2763X  294
                          5140000000 X            SA4    MAX.FL                                                  RSM2763X  295
          1411  21436                             AX4    30                                                      RSM2763X  296
                     37621                        IX6    X2-X1       CWS = O.TEND - LM                           RSM2763X  297
                          37743                   IX7    X4-X3                                                   RSM2763X  298
                               36776              IX7    X7+X6       MWS = MAX.FL - CP.ALFS + CWS                RSM2763X  299
          1412  0400001406 +                      EQ     CWS=                                                    RSM2763X  300
  
  
  
                                        **        AFL - ADJUST *FL* AT END OF PASS 2 PROCESSING TO REDUCE IT     RSM2763X  302
                                        **        TO ITS VALUE AT THE BEGINNING OF PASS 2.                       RSM2763X  303
          1413  00000000000000000000     AFL      ENTRY.                                                         RSM2763X  304
          1414  5110000000 X                      SA1    =XCP.AFLS                                               RSM2763X  305
                          5120001335 +            SA2    INT.P2M                                                 RSM2763X  306
          1415  21236                             AX2    30                                                      RSM2763X  307
                     37021                        IX0    X2-X1                                                   RSM2763X  308
                          10611                   BX6    X1                                                      RSM2763X  309
          1416  5160000000 X                      SA6    =XPR.MXFL   PR.MXFL = CP.AFLS                           RSM2763X  310
                                                  PRINT  AFL,(* END OF PASS2,CP.AFLS,CHANGE=*2Z7),(X1,X0)        RSM2763X  311
                          0300001413 +            ZR     X0,AFL      IF CURRENT FL = INT.P2 FL                   RSM2763X  312
                                                                                                                 RSM2763X  313
          1417  0100001442 +                      RJ     AST         MOVE SPECIAL TABLES DOWN                    RSM2763X  314
          1420  7160150515                        MEMORY SCM,INT.P2M,RCL   REDUCE FL TO INITIAL VALUE            RSM2763X  315
          1423  5150001335 +                      SA5    INT.P2M                                                 RSM2763X  316
                          5110000000 X            SA1    CP.AFLS                                                 RSM2763X  317
          1424  21536                             AX5    30                                                      RSM2763X  318
                     73650                        SX6    X5                                                      RSM2763X  319
                          54610                   SA6    A1          CP.AFLS = INT.P2M                           RSM2763X  320
          1425  7201677777                        SX0    X1-100000B                                              RSM2763X  321
                          0330001413 +            MI     X0,AFL            IF F < 100 000B                       RSM2763X  322
                                                                                                                 RSM2763X  323
                                        *         FL NEEDED \ 100 000B ISSUE A DAYFILE MESSAGE                   RSM2763X  324
                                                                                                                 RSM2763X  325
          1426  0100000000 X                      CALL   COD                                                     RSM2763X  326
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    56
        PASS 2 TABLES                                                 AFL 
  
          1427  20614                             LX6    12                                                      RSM2763X  327
                     7150005300                   SX5    2R  -2RB                                                RSM2763X  328
                               37665              IX6    X6-X5                                                   RSM2763X  329
          1430  5120000000 X                      SA2    =XPROGNAM                                               RSM2763X  330
                          5130001577 +            SA3    =3R                                                     RSM2763X  331
          1431  12723                             BX7    X2+X3                                                   RSM2763X  332
                     5160001437 +                 SA6    AFLA+1                                                  RSM2763X  333
                               20752              LX7    -18                                                     RSM2763X  334
          1432  55761                             SA7    A6-B1                                                   RSM2763X  335
                     7110001436 +                 MESSAGE AFLA,,R    MESSAGE( *   PROGNAM  NNNNNNB SCM USED*)    RSM2763X  336
          1435  0400001413 +                      EQ     AFL                                                     RSM2763X  337
                                                                                                                 RSM2763X  338
          1436  00000000000000000000     AFLA     DATA   0,0,18LSCM USED                                         RSM2763X  339
                                                                                                                 RSM2763X  340
                                                                                                                 RSM2763X  341
                                        **        AST - ADJUST SPECIAL TABLES IN HIGH CORE AND POINTERS TO THEM  RSM2763X  342
                                        *                                                                        RSM2763X  343
                                        *         ENTRY  (X0) = CHANGE                                           RSM2763X  344
                                                                                                                 RSM2763X  345
          1442  00000000000000000000     AST      ENTRY.                                                         RSM2763X  346
                                                  PRINT  AST,(* AST CALLED,CHANGE =*Z7),(X0)                     RSM2763X  347
          1443  5120001301 +                      SA2    O.TEND                                                  RSM2763X  348
                          5140000000 X            SA4    =XCP.NFLS   FL-10                                       RSM2763X  349
          1444  36740                             IX7    X4+X0       NEW CP.NFLS = OLD CP.NFLS + CHANGE          RSM2763X  350
                     54740                        SA7    A4                                                      RSM2763X  351
                          37142                   IX1    X4-X2       WDS = CP.NFLS - O.TEND                      RSM2763X  352
                               36320              IX3    X2+X0       TO = O.TEND + CHANGE                        RSM2763X  353
          1445  0100000000 X                      MOVE   X1,X2,X3                                                RSM2763X  354
          1446  5140000000 X                      SA4    =XO.LOOP                                                RSM2763AX   3
          1447  0304001450 +            +         ZR     X4,*+1                                                  RSM2763AX   4
                          36740                   IX7    X4+X0                                                   RSM2763AX   5
                               54740              SA7    A4                                                      RSM2763AX   6
                                                  ECHO   3,A=(O.TEND,O.GLT,O.API,O.UDV,O.ENTR,O.EXT,LWAWORK)     RSM2763AX   7
                                                  SA4    =X;A                                                    RSM2763X  357
                                                  IX7    X4+X0                                                   RSM2763X  358
                                                  SA7    A4                                                      RSM2763X  359
          1457  5140000012                        SA4    12B                                                     RSM2763X  360
                          36740                   IX7    X4+X0                                                   RSM2763X  361
                               54740              SA7    A4                                                      RSM2763X  362
          1460  5140000013                        SA4    13B                                                     RSM2763X  363
                          36740                   IX7    X4+X0                                                   RSM2763X  364
                               54740              SA7    A4                                                      RSM2763X  365
                                                  PRINT  AST,(*  NEW O.TEND =*Z7),(O.TEND)                       RSM2763X  366
          1461  0400001442 +                      EQ     AST                                                     RSM2763X  367
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    57
        PASS 2 TABLES                                                 PTC 
  
                                         .T       IFNE   TEST,0                                    * TEST MODE * PROSEQ   2309
                                                                                                                 PROSEQ   2310
                                         NAMTAB   BSS    0                                                       PROSEQ   2311
                                         TABNAM   HERE                                                           PROSEQ   2312
                                                                                                                 PROSEQ   2313
                                         PTC=     ENTRY. **                                                      PROSEQ   2314
                                                  PRINT  ,(//*  -- COMPILER TABLE DUMP --*/)                     PROSEQ   2315
                                                  SX1    4           SET TO *EXECUTIVE IS /PTC=/*                FCCT001    17
                                                  RJ     =XSOB       SET OUTPUT BIT FLAGS                        FCCT001    18
                                                  SX6    1                                                       PROSEQ   2316
                                                  SA6    PTCA        INITIALIZE COUNTER                          PROSEQ   2317
                                                                                                                 PROSEQ   2318
                                         PTC1     SA1    PTCA                                                    PROSEQ   2319
                                                  SA2    FTAB+X1     GET FWA OF TABLE                            PROSEQ   2320
                                                  SA3    LTAB+X1     GET LENGTH OF TABLE                         PROSEQ   2321
                                                  SA5    NAMTAB+X1   GET NAME OF TABLE                           PROSEQ   2322
                                                  RJ     PMT                                                     PROSEQ   2323
                                                  SA1    PTCA                                                    PROSEQ   2324
                                                  SA2    TN                                                      PROSEQ   2325
                                                  SX6    X1+B1                                                   PROSEQ   2326
                                                  SA6    A1          INCREMENT COUNTER                           PROSEQ   2327
                                                  IX7    X6-X2                                                   PROSEQ   2328
                                                  MI     X7,PTC1     IF MORE TABLES                              PROSEQ   2329
                                                                                                                 PROSEQ   2330
                                                  SA1    =XOPT2                                                  PROSEQ   2331
                                                  ZR     X1,PTC2     IF NOT OPT = 2                              PROSEQ   2332
                                                  ECHO   4,TBL=(BIT,SEQ)                                         PROSEQ   2333
                                                  SA2    =XO.TBL                                                 PROSEQ   2334
                                                  SA3    =XL.TBL                                                 PROSEQ   2335
                                                  SA5    =10H TBL                                                PROSEQ   2336
                                                  RJ     PMT                                                     PROSEQ   2337
                                                                                                                 PROSEQ   2338
                                         PTC2     SA1    L.TXT                                                   PROSEQ   2339
                                                  SB2    X1-8                                                    PROSEQ   2340
                                                  LE     B2,PTC3                                                 PROSEQ   2341
                                                  SA1    O.TXT                                                   PROSEQ   2342
                                                  SA2    X1                                                      PROSEQ   2343
                                                  UX6    B2,X2                                                   PROSEQ   2344
                                                  LE     B2,PTC3     IF NO EXPONENT                              PROSEQ   2345
                                                  SNAPRL PTC                                                     PROSEQ   2346
                                                                                                                 PROSEQ   2347
                                         PTC3     BSS    0                                                       PROSEQ   2348
                                                  IFEQ   CP#RM,0,1   WAIT UNTIL OUTPUT FINISHED SINCE *RPV*      FCC1126     5
                                                  RECALL =XF.OUT     UNCONDITIONALLY SETS THE COMPLETE BIT.      FCC1126     6
                                                  EQ     PTC=                                                    PROSEQ   2349
                                                                                                                 PROSEQ   2350
                                         PTCA     BSS    1                                                       PROSEQ   2351
                                                                                                                 PROSEQ   2352
                                         PMT      ROUTINE                                                        PROSEQ   2353
                                                  ZR     X3,PMT      IF LEN = 0                                  PROSEQ   2354
                                                  PRINT  ,(/*  TABLE -*A10*  FWA,LEN =*2Z6/),(X5,X2,X3)          PROSEQ   2357
                                                  IX3    X2+X3                                                   FEAT155F  258
                                                  MX4    0                                                       FEAT155F  259
                                                  RJ     =XDCM=      DUMP CENTRAL MEMORY                         FEAT155F  260
                                                  EQ     PMT                                                     PROSEQ   2359
                                                                                                                 PROSEQ   2360
                                         .T       ENDIF                                            * TEST MODE * PROSEQ   2361
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    58
        TABLE MANAGER SUBROUTINES                                     ATS                 TBLM
  
                                                  QUAL   TBLM                                                    PROSEQ   2363
                                                                                                                 PROSEQ   2364
                                        **        ATS - ALLOCATE TABLE SPACE.                                    PROSEQ   2365
                                        *                                                                        PROSEQ   2366
                                        *         ENTRY  (A0) = TABLE INDEX.                                     PROSEQ   2367
                                        *                (X1) = CHANGE (+ OR -) TO TABLE SIZE.                   PROSEQ   2368
                                        *                                                                        PROSEQ   2369
                                        *         EXIT   (X1) = CHANGE.                                          PROSEQ   2370
                                        *                (X2) = FWA OF TABLE.                                    PROSEQ   2371
                                        *                (X3) = NEW LENGTH OF TABLE.                             PROSEQ   2372
                                        *                (B6) = PREVIOUS TABLE LENGTH                            PROSEQ   2373
                                        *                                                                        PROSEQ   2374
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             PROSEQ   2375
                                        *                B - 2, 3, 4, 5, 7                                       PROSEQ   2376
                                        *                A - 1, 2, 3, 4, 6, 7                                    PROSEQ   2377
                                        *         RESTORES X0, X5.                                               PROSEQ   2378
                                        *         CALLS  AMU, MVE.                                               PROSEQ   2379
                                                                                                                 PROSEQ   2380
          1462  5020001260 +             ATSX     SA2    FTAB+A0     (X2) = FWA TABLE                            PROSEQ   2381
                          5030001302 +            SA3    LTAB+A0     (X3) = NEW LENGTH                           PROSEQ   2382
                                                                                                                 PROSEQ   2383
          1463  0000000000               ATS      PS                 ENTRY/EXIT                                  PROSEQ   2384
          1464  5020001260 +             ATS1     SA2    FTAB+A0     CURRENT FWA                                 PROSEQ   2385
                          5030001302 +            SA3    LTAB+A0     CURRENT LENGTH                              PROSEQ   2386
          1465  54421                             SA4    A2+B1       NEXT TABLE FWA                              PROSEQ   2387
                     36613                        IX6    X1+X3       NEW LENGTH                                  PROSEQ   2388
                          63630                   SB6    X3          (B6) = PREVIOUS TABLE LENGTH                PROSEQ   2389
                               37742              IX7    X4-X2       ROOM BETWEEN TABLES                         PROSEQ   2390
          1466  54630                             SA6    A3          SET NEW LENGTH                              PROSEQ   2391
                     37776                        IX7    X7-X6                                                   PROSEQ   2392
                          0327001462 +            PL     X7,ATSX     RETURN IF ROOM FOR CHANGE                   PROSEQ   2393
          1467  73730                             SX7    X3          SET PREVIOUS LENGTH                         PROSEQ   2394
                                                                                                                 PROSEQ   2395
                                        **        INITIALIZE FOR TABLE MOVE.                                     PROSEQ   2396
                                                                                                                 PROSEQ   2397
                     5120001326 +                 SA2    TN          (B2) = NUMBER OF TABLES                     PROSEQ   2398
                               10600              BX6    X0          SAVE (X0)                                   PROSEQ   2399
          1470  54730                             SA7    A3                                                      PROSEQ   2400
                     5170001333 +                 SA7    PL          PL = PREVIOUS LENGTH                        PROSEQ   2401
                               63220              SB2    X2                                                      PROSEQ   2402
          1471  22705                             LX7    X5          SAVE (X5)                                   PROSEQ   2403
                     54621                        SA6    A2+B1                                                   PROSEQ   2404
                          54761                   SA7    A6+B1                                                   PROSEQ   2405
                               10611              BX6    X1          SAVE (X1)                                   PROSEQ   2406
          1472  54671                             SA6    A7+B1                                                   PROSEQ   2407
                                                                                                                 PROSEQ   2408
                                        **        COMPUTE REMAINING TABLE SPACE.                                 PROSEQ   2409
                                                                                                                 PROSEQ   2410
                     67321                        SB3    B2-B1                                                   PROSEQ   2411
                          10411                   BX4    X1          INCLUDE INCREASE                            PROSEQ   2412
          1473  67331                    ATS2     SB3    B3-B1       ACCUMULATE ASSIGNED TABLE LENGTHS           PROSEQ   2413
                     5133001302 +                 SA3    LTAB+B3                                                 PROSEQ   2414
                               36443              IX4    X4+X3                                                   PROSEQ   2415
          1474  0530001473 +                      NZ     B3,ATS2     LOOP FOR ALL TABLES                         PROSEQ   2416
                          5120001325 +            SA2    LM          SET AVAILABLE LENGTH                        PROSEQ   2417
          1475  5132001257 +                      SA3    FTAB-1+B2                                               PROSEQ   2418
                          37632                   IX6    X3-X2                                                   PROSEQ   2419
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    59
        TABLE MANAGER SUBROUTINES                                     ATS                 TBLM
  
                               63440              SB4    X4          (B4) = TOTAL ASSIGNED LENGTH                PROSEQ   2420
          1476  37764                             IX7    X6-X4                                                   PROSEQ   2421
                     63570                        SB5    X7          (B5) = REMAINING SPACE                      PROSEQ   2422
                          0337001530 +            NG     X7,ATS8     IF NO REMAINING SPACE                       PROSEQ   2423
                                                                                                                 PROSEQ   2424
                                        **        MOVE ALL TABLES DOWN.                                          PROSEQ   2425
                                                                                                                 PROSEQ   2426
          1477  5110001325 +                      SA1    LM          LOW MEMORY LIMIT                            PROSEQ   2427
                          66310                   SB3    B1                                                      PROSEQ   2428
                               22001              LX0    X1                                                      PROSEQ   2429
          1500  5123001257 +             ATS3     SA2    FTAB-1+B3   ORIGIN = PREVIOUS FWA                       PROSEQ   2430
                          5113001301 +            SA1    LTAB-1+B3   WORD COUNT = LENGTH                         PROSEQ   2431
          1501  10300                             BX3    X0          DESTINATION = NEW FWA                       PROSEQ   2432
                     36001                        IX0    X0+X1       NEXT FWA                                    PROSEQ   2433
                          73730                   SX7    X3          SET NEW FWA                                 PROSEQ   2434
                               13423              BX4    X2-X3       MOVE DIFFERENTIAL                           PROSEQ   2435
          1502  54720                             SA7    A2                                                      PROSEQ   2436
                     66331                        SB3    B3+B1       COUNT TABLE                                 PROSEQ   2437
                          0304001504 +            ZR     X4,ATS4     IF NO MOVE REQUIRED                         PROSEQ   2438
          1503  0100000000 X                      RJ     MVE=                                                    PROSEQ   2439
          1504  0532001500 +             ATS4     NE     B3,B2,ATS3  LOOP FOR ALL TABLES                         PROSEQ   2440
                          5110001331 +            SA1    TN+3        INCREMENT SIZE OF REQUESTED TABLE           PROSEQ   2441
          1505  5020001302 +                      SA2    LTAB+A0                                                 PROSEQ   2442
                          36621                   IX6    X2+X1                                                   PROSEQ   2443
                               54620              SA6    A2                                                      PROSEQ   2444
                                                                                                                 PROSEQ   2445
                                        **        REALLOCATE TABLES.                                             PROSEQ   2446
                                        *         ALLOCATE INTERSPACE.  (LA/2N) + ((TL*LA)/2)                    PROSEQ   2447
                                                                                                                 PROSEQ   2448
          1506  5112001257 +                      SA1    FTAB-1+B2   (X0) = LWA+1 LAST TABLE                     PROSEQ   2449
                          67321                   SB3    B2-B1                                                   PROSEQ   2450
                               10011              BX0    X1                                                      PROSEQ   2451
          1507  6160000002               ATS4A    SB6    2           LOWER LIMIT = 2 ( FIRST TABLE INACTIVE )    PROSEQ   2452
                          6122777776              SB2    B2-1        N = N - 1                                   PROSEQ   2453
          1510  67331                    ATS5     SB3    B3-B1       I = I + 1                                   PROSEQ   2454
                     5123001260 +                 SA2    FTAB+B3     FWA(I)                                      PROSEQ   2455
                               76450              SX4    B5          LA (LENGTH AVAILABLE)                       PROSEQ   2456
          1511  5113001302 +                      SA1    LTAB+B3     TL (LENGTH OF TABLE)                        PROSEQ   2457
                          77321                   SX3    B2-B1       N  (NUMBER OF TABLES)                       PROSEQ   2458
                               23514              AX5    X4,B1       LA/2                                        PROSEQ   2459
          1512  27404                             IX6    X4/X3       L1 = LA/N                                   PROSEQ   2460
          1514  0440001520 +                      ZR     B4,ATS6     IF NO TABLES ASSIGNED, L = L2               PROSEQ   2461
                          76340                   SX3    B4          AL (TOTAL ASSIGNED LENGTH)                  PROSEQ   2462
                               42751              IX7    X5*X1       (LA/2)*TL                                   PROSEQ   2463
          1515  21601                             AX6    1           L1 = LA/2N                                  PROSEQ   2464
                     27707                        IX7    X7/X3       L2 = (TL*LA)/2                              PROSEQ   2465
          1517  36667                             IX6    X6+X7       L = L1+L2                                   PROSEQ   2466
                     73110                        SX1    X1                                                      PROSEQ   2467
          1520  37606                    ATS6     IX6    X0-X6       FWA(I+1)-L                                  PROSEQ   2468
                     37761                        IX7    X6-X1       FWA(I) = FWA(I+1)-L-TL                      PROSEQ   2469
                          10377                   BX3    X7          DESTINATION = FWA(I)                        PROSEQ   2470
                               54720              SA7    A2                                                      PROSEQ   2471
          1521  22007                             LX0    X7          FWA(I+1) = FWA(I)                           PROSEQ   2472
                     13423                        BX4    X2-X3       CHECK MOVE DIFFERENTIAL                     PROSEQ   2473
                          0304001523 +            ZR     X4,ATS7     IF NO MOVE REQUIRED                         PROSEQ   2474
          1522  0100000000 X                      RJ     MVE=        MOVE TABLE                                  PROSEQ   2475
          1523  0763001510 +             ATS7     GT     B3,B6,ATS5  LOOP                                        PROSEQ   2476
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    60
        TABLE MANAGER SUBROUTINES                                     ATS                 TBLM
  
                          0100001562 +            RJ     AMU         ACCUMULATE MEMORY USED                      PROSEQ   2477
                                                                                                                 PROSEQ   2478
                                        **        RESTORE REGISTERS.                                             PROSEQ   2479
                                                                                                                 PROSEQ   2480
          1524  5110001536 +                      SA1    ATSA        COUNT MOVES                                 PROSEQ   2481
                          73611                   SX6    X1+B1                                                   PROSEQ   2482
                               54610              SA6    A1                                                      PROSEQ   2483
          1525  5120001327 +                      SA2    TN+1        RESTORE (X0)                                PROSEQ   2484
                          54321                   SA3    A2+B1       RESTORE (X5)                                PROSEQ   2485
                               10022              BX0    X2                                                      PROSEQ   2486
          1526  5140001333 +                      SA4    PL                                                      PROSEQ   2487
                          22503                   LX5    X3                                                      PROSEQ   2488
                               54131              SA1    A3+B1       RESTORE (X1)                                PROSEQ   2489
          1527  63640                             SB6    X4          (B6) = PREVIOUS LENGTH OF TABLE             PROSEQ   2490
                     0400001462 +                 EQ     ATSX        RETURN                                      PROSEQ   2491
                                                                                                                 PROSEQ   2492
          1530  5130001334 +             ATS8     SA3    TO          PROCESS TABLE OVERFLOW                      PROSEQ   2493
                          74600                   SX6    A0                                                      PROSEQ   2494
                               63230              SB2    X3                                                      PROSEQ   2495
          1531  5160001332 +                      SA6    TN+4        (A0)                                        PROSEQ   2496
                          0222000000              JP     B2          (B5) = - WORDS NEEDED                       PROSEQ   2497
                                                                                                                 PROSEQ   2498
                                        *         RETURN FROM USER TABLE OVERFLOW PROCESSOR ( SUCCESS )          PROSEQ   2499
                                                                                                                 PROSEQ   2500
          1532  5110001331 +             ATS9     SA1    TN+3        X1                                          PROSEQ   2501
                          55411                   SA4    A1-B1       X5                                          PROSEQ   2502
                               10544              BX5    X4                                                      PROSEQ   2503
          1533  54311                             SA3    A1+B1       A0                                          PROSEQ   2504
                     53030                        SA0    X3                                                      PROSEQ   2505
                          55441                   SA4    A4-B1       X0                                          PROSEQ   2506
                               10044              BX0    X4                                                      PROSEQ   2507
          1534  55241                             SA2    A4-B1       TN                                          PROSEQ   2508
                     63220                        SB2    X2          (B2) = TN                                   PROSEQ   2509
                          67321                   SB3    B2-B1                                                   PROSEQ   2510
                               10411              BX4    X1                                                      PROSEQ   2511
          1535  0400001473 +                      EQ     ATS2                                                    PROSEQ   2512
                                                                                                                 PROSEQ   2513
          1536  00000000000000000000     ATSA     CON    0           COUNT OF TABLE MOVES                        PROSEQ   2514
  
  
  
                                        **        AFT - ACTIVATE FIRST TABLE                                     PROSEQ   2516
                                                                                                                 PROSEQ   2517
          1537  0000000000               AFT      PS                                                             PROSEQ   2518
          1540  5110001544 +                      SA1    AFTA                                                    PROSEQ   2519
                          5120001325 +            SA2    LM                                                      PROSEQ   2520
          1541  5130001507 +                      SA3    ATS4A                                                   PROSEQ   2521
                          10611                   BX6    X1                                                      PROSEQ   2522
                               22702              LX7    X2                                                      PROSEQ   2523
          1542  5160001507 +                      SA6    ATS4A       STORE PLUG                                  PROSEQ   2524
                          5170001260 +            SA7    FTAB                                                    PROSEQ   2525
          1543  10733                             BX7    X3                                                      PROSEQ   2526
                     54710                        SA7    A1                                                      PROSEQ   2527
                          0400001537 +            EQ     AFT                                                     PROSEQ   2528
                                                                                                                 PROSEQ   2529
          1544  6160000001               AFTA     SB6    1                                                       PROSEQ   2530
                          6100000000              SB0    0                                                       PROSEQ   2531
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    61
        TABLE MANAGER SUBROUTINES                                     ADW                 TBLM
  
                                        **        ADW - ADD WORD TO TABLE.                                       PROSEQ   2533
                                        *         ENTRY  (A0) = TABLE NUMBER.                                    PROSEQ   2534
                                        *                (X1) = WORD.                                            PROSEQ   2535
                                        *         EXIT   (X1) = WORD.                                            PROSEQ   2536
                                        *                (X6) = WORD.                                            PROSEQ   2537
                                        *                (A6) = ADDRESS OF WORD.                                 PROSEQ   2538
                                        *                (X2) = FWA TABLE.                                       PROSEQ   2539
                                        *                (X3) = LENGTH OF TABLE.                                 PROSEQ   2540
                                        *         USES   X - 1, 6, 7.                                            PROSEQ   2541
                                        *                B - NONE.                                               PROSEQ   2542
                                        *                A - 1, 6.                                               PROSEQ   2543
                                        *         CALLS  ATS.                                                    PROSEQ   2544
                                                                                                                 PROSEQ   2545
          1545  10733                    ADW1     BX7    X3                                                      PROSEQ   2546
                     36423                        IX4    X2+X3                                                   PROSEQ   2547
                          5073000000              SA7    A3+         UPDATE LENGTH                               PROSEQ   2548
          1546  6100000000                        SB0    0                                                       PROSEQ   2549
                          5264777776              SA6    X4-1        STORE WORD                                  PROSEQ   2550
          1547  0000000000               ADW      PS                                                             PROSEQ   2551
          1550  5020001260 +                      SA2    FTAB+A0     FWA                                         PROSEQ   2552
                          5030001302 +            SA3    LTAB+A0                                                 PROSEQ   2553
          1551  54421                             SA4    A2+B1       NEXT TABLE FWA                              PROSEQ   2554
                     10611                        BX6    X1                                                      PROSEQ   2555
                          37742                   IX7    X4-X2       ROOM BETWEEN TABLES                         PROSEQ   2556
                               73331              SX3    X3+B1                                                   PROSEQ   2557
          1552  37473                             IX4    X7-X3                                                   PROSEQ   2558
                     0324001545 +                 PL     X4,ADW1     IF ROOM TO ADD A WORD                       PROSEQ   2559
                               76110              SX1    B1                                                      PROSEQ   2560
          1553  5160001556 +                      SA6    ADWA                                                    PROSEQ   2561
                          0100001463 +            RJ     ATS         ALLOCATE SPACE                              PROSEQ   2562
          1554  5110001556 +                      SA1    ADWA                                                    PROSEQ   2563
                          36423                   IX4    X2+X3                                                   PROSEQ   2564
                               10611              BX6    X1                                                      PROSEQ   2565
          1555  5264777776                        SA6    X4-1                                                    PROSEQ   2566
                          0400001547 +            EQ     ADW                                                     PROSEQ   2567
                                                                                                                 PROSEQ   2568
          1556                     1     ADWA     BSS    1                                                       PROSEQ   2569
  
  
  
                                        **        AMU - ACCUMULATE MEMORY USED.                                  PROSEQ   2571
                                        *         ENTRY  NONE.                                                   PROSEQ   2572
                                        *         EXIT   MU = MAX(MU,CURRENT ASSIGNED LENGTH)                    PROSEQ   2573
                                        *         USES   X - 1, 2, 3, 6.                                         PROSEQ   2574
                                        *                B - 2.                                                  PROSEQ   2575
                                        *                A - 1, 2, 6.                                            PROSEQ   2576
                                        *         CALLS  NONE.                                                   PROSEQ   2577
                                                                                                                 PROSEQ   2578
          1557  36662                    AMU1     IX6    X6+X2       ACCUMULATE LENGTH                           PROSEQ   2579
                     67221                        SB2    B2-B1                                                   PROSEQ   2580
                          5022000001              SA2    A2+1        NEXT TABLE                                  PROSEQ   2581
          1560  0521001557 +                      NE     B2,B1,AMU1  LOOP FOR ALL TABLES                         PROSEQ   2582
                          5110001324 +            SA1    MU          SET MAX LENGTH                              PROSEQ   2583
          1561  37361                             IX3    X6-X1                                                   PROSEQ   2584
                     0333001562 +                 NG     X3,AMU                                                  PROSEQ   2585
                               54610              SA6    A1                                                      PROSEQ   2586
                                                                                                                 PROSEQ   2587
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    62
        TABLE MANAGER SUBROUTINES                                     AMU                 TBLM
  
          1562  0000000000               AMU      PS                 ENTRY/EXIT                                  PROSEQ   2588
          1563  5110001326 +                      SA1    TN          (B2) = NUMBER OF TABLES                     PROSEQ   2589
                          43600                   MX6    0           CLEAR ACCUMULATION                          PROSEQ   2590
                               63210              SB2    X1                                                      PROSEQ   2591
          1564  5120001302 +                      SA2    LTAB        FIRST TABLE                                 PROSEQ   2592
                          0400001557 +            EQ     AMU1                                                    PROSEQ   2593
  
  
  
                                        **        MTU - MOVE TABLES UP.                                          PROSEQ   2595
                                        *         ENTRY  NONE.                                                   PROSEQ   2596
                                        *         EXIT   NONE.                                                   PROSEQ   2597
                                        *         USES   X - 0, 1, 2, 3, 7.                                      PROSEQ   2598
                                        *                B - 3.                                                  PROSEQ   2599
                                        *                A - 1, 2, 7.                                            PROSEQ   2600
                                        *         CALLS  MVE.                                                    PROSEQ   2601
                                                                                                                 PROSEQ   2602
          1565  67331                    MTU1     SB3    B3-B1       DECREMENT TABLE COUNT                       PROSEQ   2603
                     5123001260 +                 SA2    FTAB+B3                                                 PROSEQ   2604
          1566  5113001302 +                      SA1    LTAB+B3                                                 PROSEQ   2605
                          37701                   IX7    X0-X1       NEW FWA = L - LENGTH                        PROSEQ   2606
                               22007              LX0    X7          L = NEW FWA                                 PROSEQ   2607
          1567  54720                             SA7    A2                                                      PROSEQ   2608
                     10300                        BX3    X0          MOVE TABLE                                  PROSEQ   2609
                          0301001572 +            ZR     X1,MTU2     IF LEN = 0                                  PROSEQ   2610
          1570  37423                             IX4    X2-X3                                                   PROSEQ   2611
                     0304001572 +                 ZR     X4,MTU2                                                 PROSEQ   2612
          1571  0100000000 X                      MOVE   X1,X2,X3                                                PROSEQ   2613
          1572  0530001565 +             MTU2     NZ     B3,MTU1                                                 PROSEQ   2614
                                                                                                                 PROSEQ   2615
          1573  0000000000               MTU      PS                 ENTRY/EXIT                                  PROSEQ   2616
          1574  6130000021                        SB3    NTAB-1      (B3) = NUMBER OF TABLES - 1                 PROSEQ   2617
                          5113001260 +            SA1    FTAB+B3     (X0) = LWA+1 OF ALL TABLES (L)              PROSEQ   2618
          1575  10011                             BX0    X1                                                      PROSEQ   2619
                     0400001565 +                 EQ     MTU1                                                    PROSEQ   2620
  
  
                                                  QUAL                                                           PROSEQ   2622
                                                  ENTRY  ADW=,ATS=,AMU=,MTU=                                     PROSEQ   2623
                                                  ENTRY  AFT=                                                    PROSEQ   2624
                                1537 +   AFT=     EQU    /TBLM/AFT                                               PROSEQ   2625
                                1547 +   ADW=     EQU    /TBLM/ADW                                               PROSEQ   2626
                                1562 +   AMU=     EQU    /TBLM/AMU                                               PROSEQ   2627
                                1463 +   ATS=     EQU    /TBLM/ATS                                               PROSEQ   2628
                                1573 +   MTU=     EQU    /TBLM/MTU                                               PROSEQ   2629
                                                                                                                 PROSEQ   2630
          1600                                    END                                                            PROSEQ   2631
  
                             67100B CM  STORAGE USED             8134 STATEMENTS      989 SYMBOLS      000020 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            6.601 SECONDS        1395 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW=         1547   PROGRAM*       62/39 E   62/42 D
        AFL          1413   PROGRAM*       55/35 E   55/35 L   55/43     55/53     56/11
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        AFLA         1436   PROGRAM*       56/07 S   56/10     56/13 L
        AFT=         1537   PROGRAM*       62/40 E   62/41 D
        AIS           133   PROGRAM*        9/16 E   29/50 D
        AMU=         1562   PROGRAM*       62/39 E   62/43 D
        AST          1442   PROGRAM*       55/07     55/45     56/20 E   56/20 L   56/44
        ATS=         1463   PROGRAM*        2/31      9/35      9/41      9/54     31/03     62/44 D
                                            5/15      9/39      9/50     30/55     62/39 E
        BIR             0   PROGRAM*        2/20 E    2/20 L    4/09
        BRN             0   EXTERNAL*       2/14 X    2/39      4/10
        B1=1            0 
        CGB             0   EXTERNAL*      54/22
        CII             0   EXTERNAL*       3/38
        COD             0   EXTERNAL*      55/57
        COL             0   EXTERNAL*       3/07
        CO.ER           0   EXTERNAL*       2/57
        CP.AFLS         0   EXTERNAL*      54/37     55/01     55/23     55/36     55/48
        CP.NFLS         0   EXTERNAL*      56/23
        CUC             0   EXTERNAL*       9/13
        CWS=         1406   PROGRAM*       55/20 E   55/20 L   55/29
        DIRECT          0   EXTERNAL*      33/41     37/24
        DMB             0   EXTERNAL*      54/09
        D.BMP          52   FTNTEXT        12/39     13/28     13/31
        D.FPL           1   FTNTEXT         6/43      6/45      6/46
        D.FPP          25   FTNTEXT         6/43      6/46     31/46     33/33     33/54     36/10
                                            6/45     31/39     31/47     33/47     34/07
        D.LDL           1   FTNTEXT        31/22
        D.LDP          43   FTNTEXT        31/22     31/46
        D.LDSTL         2   FTNTEXT        32/31
        D.LDSTP        42   FTNTEXT        32/34
        D.L2L           1   FTNTEXT         6/44      6/45      6/46
        D.L2P          44   FTNTEXT         6/44      6/46     33/31     33/47     37/27
                                            6/45     32/42     33/33     33/54     39/02
        D.PIL           1   FTNTEXT        14/12
        D.PIP          36   FTNTEXT        14/12     15/40     15/46     37/14
        D.PRSL          1   FTNTEXT        14/12
        D.PRSP         46   FTNTEXT        14/12     39/22
        D.REGWL        11   FTNTEXT         9/19     13/37     20/55
        D.REGWP        11   FTNTEXT         9/20     13/38     13/44     21/05
        D.RFP          23   FTNTEXT        13/28     13/44     13/49     13/54     14/12     14/37
        D.RJRSL         1   FTNTEXT        14/12
        D.RJRSP        50   FTNTEXT        14/12
        D.STL           1   FTNTEXT        31/22
        D.STP          42   FTNTEXT        31/22     31/47
        D.SZP          27   FTNTEXT        36/39     40/06
        D.TYIOL         2   FTNTEXT        15/08
        D.TYIOP        50   FTNTEXT        15/07
        D.TYP          72   FTNTEXT         6/28      6/31     12/39     14/57     15/07     15/40     16/54     28/31
        D.USESL        11   FTNTEXT        13/50     14/20
        D.USESP         0   FTNTEXT        13/49     13/54     14/33
        D.USIP         33   FTNTEXT        37/57
        D.^DP          51   FTNTEXT        13/31     14/33     14/37     14/57     15/46     16/54     28/31
        ESR           572   PROGRAM*        3/19     30/39     30/42 E   30/42 L
        ESRA          554   PROGRAM*       30/15 E   30/16 L   30/43
        ESR0          564   PROGRAM*       30/26 L   31/06
        ESR1          566   PROGRAM*       30/31 L   30/46     30/53
        FPL2            2   PROGRAM*        2/23 E    2/23 L    2/46      3/10     30/18     30/19
        FSR           560   PROGRAM*       30/21 L   31/26 S   32/06
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        FSU             0   EXTERNAL*       3/02
        FTAB         1260   PROGRAM*       51/46 L   51/56     52/08     52/17     52/26     58/19     59/30     62/19
                                           51/48     52/01     52/11     52/19     52/28     58/23     59/36     62/33
                                           51/50     52/04     52/13     52/22     52/30     58/56     60/51 S
                                           51/53     52/06     52/15     52/24     52/32     59/11     61/20
        F.MEM           0   //             51/02 L   51/53     52/04     52/11     52/17     52/24     52/30
                                           51/48     51/56     52/06     52/13     52/19     52/26     52/42
                                           51/50     52/01     52/08     52/15     52/22     52/28
        F.RDT        1114   PROGRAM*        2/32      4/02     29/38     30/34     41/38
        GSR           626   PROGRAM*       31/05     32/05 L   32/24
        GSR1          634   PROGRAM*       32/18 L   32/38
        GSR2          635   PROGRAM*       32/20 L   32/46     32/54
        GSR3          637   PROGRAM*       32/16     32/24 L
        GSR4          650   PROGRAM*       32/43     32/48 L
        GT1             0   EXTERNAL*      54/52 S   54/56     54/57
        IAL           746   PROGRAM*       32/51     33/36     34/09     36/22 L
        IAL0          745   PROGRAM*       36/20 L   36/37     36/40
        IDR          1053   PROGRAM*       32/45     40/16 L   40/37
        IH.CAL         22   FTNTEXT        34/30     38/38
        IH.CAP         22   FTNTEXT        34/31     35/09     36/34     38/39     38/55     40/02
        IH.IHL         22   FTNTEXT        36/30
        IH.LCM      40000   FTNTEXT        40/25
        IH.LCMA     20000   FTNTEXT        34/17
        IH.RFL         22   FTNTEXT        34/28     35/51     36/50
        IH.RFP         44   FTNTEXT        17/06     26/07     34/31     36/02     36/55     38/53
                                           17/09     28/48     35/08     36/28     38/18     39/56
                                           26/03     34/27     35/52     36/51     38/21     40/21
        IH.SIAP        67   FTNTEXT        36/55
        IMO          1064   PROGRAM*       33/57     39/08     40/52 L   41/22
        INT.P2M      1335   PROGRAM*       52/47 E   52/47 L   55/37     55/46     55/47
        IPR          1043   PROGRAM*       32/53     39/42 L
        IPR0         1042   PROGRAM*       39/40 L   40/04     40/07
        IRA           755   PROGRAM*       32/52     33/37     36/48 L   36/53     38/03
        IRA0          764   PROGRAM*       36/56     37/10 L
        IRA1         1000   PROGRAM*       37/22     37/26     37/28     37/44 L   38/09     38/24
        IRA2         1001   PROGRAM*       37/42     37/48 L
        IRA3         1005   PROGRAM*       37/16     38/05 L
        ISC           655   PROGRAM*       32/18     33/29 L   33/39     34/01     34/44
                                           32/44     33/34     33/50     34/36
        ISC0          654   PROGRAM*       33/26 L   35/39
        ISC1          671   PROGRAM*       33/46     33/54 L
        ISC10         724   PROGRAM*       35/05     35/11     35/18 L
        ISC11         726   PROGRAM*       34/54     34/56     35/22 L
        ISC12         732   PROGRAM*       35/28     35/35 L
        ISC2          660   PROGRAM*       33/36 L   33/48     33/55
        ISC3          664   PROGRAM*       33/32     33/41 L
        ISC5          675   PROGRAM*       33/42     34/07 L
        ISC6          700   PROGRAM*       34/08     34/15 L
        ISC7          703   PROGRAM*       34/10     34/26 L
        ISC8          712   PROGRAM*       34/34     34/46 L
        ISC8A         720   PROGRAM*       34/50     35/07 L
        ISC9          722   PROGRAM*       34/47     35/13 L
        ISI           734   PROGRAM*       33/49     33/56     35/48 L   36/13
        ISI1          740   PROGRAM*       35/55     36/02 L
        ISX          1014   PROGRAM*       33/38     38/36 L   39/09     39/11     39/13
        ISX0         1013   PROGRAM*       38/33 L   38/57     39/03
        ISX1         1021   PROGRAM*       38/44     38/51 L
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        ISX2         1030   PROGRAM*       38/52     39/11 L
        IXI          1032   PROGRAM*       34/43     39/12     39/19 L   39/33
        IXI1         1037   PROGRAM*       39/23     39/26     39/28 L
        I.GL       100000   FTNTEXT         6/09
        LALS            3   PROGRAM*        2/24 L    3/14      4/21 S
        LEVEL2          0   EXTERNAL*      30/17
        LM           1325   PROGRAM*        3/47      5/31     52/42 L   58/55     60/46
                                            5/14     52/42 E   55/21     59/08
        LSF           561   PROGRAM*       30/22 L   32/37 S   33/45     34/35     35/26     38/43     39/45     40/19
        LSN             0   EXTERNAL*       3/56
        LTAB         1302   PROGRAM*       52/38 L   52/39     52/39     52/39     52/39     58/24     59/38
                                           52/39     52/39     52/39     52/39     52/39     58/52     61/21
                                           52/39     52/39     52/39     52/39     52/39     59/12     62/05
                                           52/39     52/39     52/39     52/39     58/20     59/23     62/20
        LWAWORK         0   EXTERNAL*      56/36
        L.ALS        1322   PROGRAM*        4/18     52/28 E   52/39 L
        L.APL        1320   PROGRAM*       52/24 E   52/39 L
        L.BCT        1314   PROGRAM*        9/04 S   10/55 S   14/45     20/11     22/11     62/46 D
        L.BLK        1302   PROGRAM*        3/36 S    5/11      5/36 S   52/39 L   54/18
                                            3/51 S    5/26 S   51/48 E   53/41
        L.BST        1311   PROGRAM*       52/08 E   52/39 L
        L.CFT        1310   PROGRAM*       52/06 E   52/39 L
        L.DUT        1304   PROGRAM*        9/05 S   62/46 D
        L.GST        1303   PROGRAM*       51/51 E   52/39 D
        L.IIT        1316   PROGRAM*       52/20 E   52/39 D
        L.IOL        1316   PROGRAM*       52/19 E   52/39 L   52/39
        L.MLT        1306   PROGRAM*        3/20     25/15     27/43     32/13 S   52/02 E
                                           10/02 S   25/48     29/03     42/12     52/39 D
        L.MOD        1307   PROGRAM*       10/01 S   25/22     26/54 S   28/30     30/29 S   52/04 E   52/39 L
        L.OTI        1306   PROGRAM*       52/01 E   52/39 L   52/39
        L.PBT        1305   PROGRAM*        9/06 S   10/57 S   16/19     19/08     62/46 D
        L.PIT        1305   PROGRAM*       51/56 E   52/39 L   62/46
        L.PSI        1312   PROGRAM*       52/11 E   52/39 L
        L.RCT        1314   PROGRAM*       52/15 E   52/39 L   62/46
        L.RND        1304   PROGRAM*        2/30 S   51/53 E   52/39 L   52/39     62/46
        L.RXI        1313   PROGRAM*       52/13 E   52/39 L
        L.SEQ           0   EXTERNAL*       3/27      3/33 S    5/08 X    5/21 S    5/34 S    9/43
        L.TEND       1323   PROGRAM*       52/30 E   52/39 L
        L.TET        1315   PROGRAM*       52/17 E   52/39 L
        L.TREE       1304   PROGRAM*       51/54 E   52/39 D
        L.TXT        1303   PROGRAM*        2/52      3/31 S    3/55 S    5/29     51/50 E   52/39 L   52/39
        L.UDI        1321   PROGRAM*       52/26 E   52/39 L
        L.VDT        1317   PROGRAM*       52/22 E   52/39 L
        MAX.FL          0   EXTERNAL*      54/36     55/24
        MC             23 
        MCG             0   EXTERNAL*       3/37
        MFL1         1374   PROGRAM*       54/47     54/50 L
        ML.DELP        73   FTNTEXT        29/09
        ML.IIP         44   FTNTEXT        25/25     25/27     26/25     28/01     28/08     29/14     42/03
        ML.MTIP         0   FTNTEXT        25/27     28/08
        ML.NIP         22   FTNTEXT        26/23     29/09     42/01     42/02
        MOREFL       1366   PROGRAM*       53/04     53/52     54/34 E   54/34 L   54/41     55/11
        MPB             0   EXTERNAL*       3/23      9/10     30/40
        MSG=            0   EXTERNAL*      56/10
        MSR           613   PROGRAM*       30/52     31/28 L
        MSRA          606   PROGRAM*       31/17 L   31/29
        MSR0          612   PROGRAM*       31/25 L   31/41
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        MSR1          620   PROGRAM*       31/41 L   31/52     31/57
        MTU=         1573   PROGRAM*       62/39 E   62/45 D
        MU           1324   PROGRAM*       52/41 E   52/41 L   61/53
        MVE=            0   EXTERNAL*       5/43     56/28     59/20     59/56     62/28
        MX.AVS          0   EXTERNAL*      54/03
        MX.BLN       1336   PROGRAM*       52/48 E   52/48 L   53/27
        M.BBL           0   EXTERNAL*      53/28
        NIRN            1   PROGRAM*        2/21 E    2/21 L
        NTAB           22                  52/32 D   52/43     62/32
        OC.DEF          5   FTNTEXT        34/53
        OC.DRL         64   FTNTEXT        40/20
        OC.EOQ          0   FTNTEXT         2/32      2/33
        OC.EOS          2   FTNTEXT        12/46
        OC.FMA         43   FTNTEXT        40/53
        OC.IA          36   FTNTEXT        35/38     37/10     37/38
        OC.IS          37   FTNTEXT        38/15
        OC.JIN         70   FTNTEXT        12/52
        OC.LD          50   FTNTEXT        34/19     36/24
        OC.OR          12   FTNTEXT        41/09
        OC.PLD         53   FTNTEXT        15/09     39/46
        OC.RS           4   FTNTEXT        26/49
        OC.S           55   FTNTEXT        35/16
        OC.SA          60   FTNTEXT        26/34     35/04     37/01     37/23     39/27
        OC.STT         52   FTNTEXT        35/07     35/50     38/54
        OC.XMT         10   FTNTEXT        39/21
        OC.XMTC        14   FTNTEXT        38/08
        OPT2            0   EXTERNAL*       2/51
        O.ALS        1300   PROGRAM*       52/28 E   52/28 L
        O.API           0   EXTERNAL*      56/36
        O.APL        1276   PROGRAM*       52/24 E   52/24 L
        O.BCT        1272   PROGRAM*       14/46     20/10     22/10     62/46 D
        O.BLK        1260   PROGRAM*        3/52 S    5/37 S   51/48 E   51/48 L
        O.BST        1267   PROGRAM*       52/08 E   52/08 L
        O.CFT        1266   PROGRAM*       52/06 E   52/06 L
        O.DUT        1262   PROGRAM*       14/16     62/46 D
        O.ENTR          0   EXTERNAL*      56/36
        O.EXT           0   EXTERNAL*      56/36
        O.GLT           0   EXTERNAL*      56/36
        O.GST        1261   PROGRAM*       51/51 E   51/51 D
        O.IIT        1274   PROGRAM*       52/20 E   52/20 D
        O.IOL        1274   PROGRAM*       52/19 E   52/19 L   52/20
        O.LOOP          0   EXTERNAL*      56/29
        O.MLT        1264   PROGRAM*       25/14     27/42     29/07     42/14     52/02 E   52/02 D
        O.MOD        1265   PROGRAM*       25/16     28/07     30/26     32/12     42/04     52/04 E   52/04 L
        O.OTI        1264   PROGRAM*       52/01 E   52/01 L   52/02
        O.PBT        1263   PROGRAM*       10/53     16/20     19/09     62/46 D
        O.PIT        1263   PROGRAM*       51/56 E   51/56 L   62/46
        O.PSI        1270   PROGRAM*       52/11 E   52/11 L
        O.RCT        1272   PROGRAM*       52/15 E   52/15 L   62/46
        O.RND        1262   PROGRAM*       51/53 E   51/53 L   51/54     62/46
        O.RXI        1271   PROGRAM*       52/13 E   52/13 L
        O.SEQ           0   EXTERNAL*       3/26      5/17 S    9/17     12/14     13/19     30/48     32/21     41/55
                                            5/08 X    5/35 S   10/03     12/19     30/31     32/07     37/11
        O.SYM          12                   2/12 D    6/05
        O.TEND       1301   PROGRAM*       52/30 E   52/30 L   55/22     56/22     56/36
        O.TET        1273   PROGRAM*       52/17 E   52/17 L
        O.TREE       1262   PROGRAM*       51/54 E   51/54 D
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        O.TXT        1261   PROGRAM*        3/29 S    3/53 S    5/30      6/06     51/50 E   51/50 L   51/51
        O.UDI        1277   PROGRAM*       52/26 E   52/26 L
        O.UDV           0   EXTERNAL*      56/36
        O.VDT        1275   PROGRAM*       52/22 E   52/22 L
        PAS0           23   PROGRAM*        3/01      3/03 L
        PAS1           16   PROGRAM*        2/47      2/50 L
        PAS1A          26   PROGRAM*        3/05      3/10 L
        PAS2           32   PROGRAM*        3/16      3/18 L
        PAS3           36   PROGRAM*        3/21      3/26 L
        PAS4           42   PROGRAM*        3/11      3/24      3/35 L
        PAS5           46   PROGRAM*        2/53      3/41 L
        PAS6           47   PROGRAM*        2/56      3/08      3/39      3/47 L
        PBB             0   EXTERNAL*       3/41
        PL           1333   PROGRAM*       52/45 L   58/39 S   60/11
        PROGNAM         0   EXTERNAL*      56/04
        PROSEQ          4   PROGRAM*        2/28 E    2/28 L    4/22
        PR.MXFL         0   EXTERNAL*      55/41 S
        PSB           105   PROGRAM*        2/48      6/04 E    6/04 L    6/20
        PUNT            0   EXTERNAL*      53/13
        P.TYP          70   FTNTEXT         6/13
        RF.MV      200000   FTNTEXT        38/19
        RT.BR           0   FTNTEXT        16/10
        R1.INP         36   FTNTEXT         3/57     34/21     35/13     36/05     36/07     36/26     36/28     40/55
        R1.OCP         60   FTNTEXT         2/34     38/07
        R1.RIL         20   FTNTEXT         2/42     15/32     16/22     27/46     38/14     40/23
                                           14/47     15/34     25/31     34/37     38/46     41/07
                                           15/11     15/53     25/51     35/30     39/47
        R1.RIP          0   FTNTEXT        16/21     16/28
        R1.RJP         40   FTNTEXT        26/09     35/01     35/25     37/34     37/45     39/28     40/33
                                           26/37     35/23     37/03     37/40     38/13     39/52     41/15
        R1.RKP         20   FTNTEXT        26/07     26/09     35/23     37/40     37/45     37/49     41/17
        R1.SOP         20   FTNTEXT        15/48     16/08     16/21     16/28     26/46     34/55     37/21     39/25
        R2W           563   PROGRAM*       30/24 L   32/30 S   38/17     39/54     40/18
        SBB             0   EXTERNAL*       2/50
        SHL          1255   PROGRAM*       50/41 E   50/41 L
        SHL1         1246   PROGRAM*       50/16 L   50/27     50/33
        SHL2         1247   PROGRAM*       50/20 L   50/39
        SHL3         1250   PROGRAM*       50/25 L   50/32
        SHL4         1253   PROGRAM*       50/18     50/35 L   50/47
        SO.LKP          6   FTNTEXT        15/48     16/28
        SO.LOCK       200   FTNTEXT         7/35
        SO.RNP          0   FTNTEXT        16/12     16/21
        SO.RTL          3   FTNTEXT        16/07
        SO.RTP          3   FTNTEXT        16/08     16/12     34/55     37/21     39/25
        SQF           562   PROGRAM*       30/23 L   30/35     30/44 S
        SRI          1076   PROGRAM*       33/27     36/12     37/37     39/07     40/36     41/33 L
                                           34/24     36/20     37/54     39/32     41/04     41/43
                                           35/19     37/08     38/34     39/40     41/21
        SSP            64   PROGRAM*        3/13      5/10 E    5/10 L    5/27      5/44
        SSP1           75   PROGRAM*        5/12      5/29 L
        SST          1231   PROGRAM*       48/50 E   48/50 L   49/08
        SST0         1220   PROGRAM*       48/19 L   48/35
        SST1         1221   PROGRAM*       48/23 L   48/43     48/49
        SST2         1223   PROGRAM*       48/31 L   48/40
        SST4         1227   PROGRAM*       48/21     48/45 L   48/56
        SYS=            0   EXTERNAL*      54/56     55/46
        TEST            0   FTNTEXT        11/03 F   53/06 F   57/01 F
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        TN           1326   PROGRAM*       52/43 L   58/36     59/22     60/08     60/20 S   60/25     62/02
        TO           1334   PROGRAM*       52/46 E   52/46 L   60/17
        TOB          1345   PROGRAM*       53/26 E   53/27 L
        TOBA         1337   PROGRAM*       52/49 E   52/49 L   54/07 S   54/12
        TOBB         1340   PROGRAM*       52/50 L   54/54 S   55/08
        TOB1         1350   PROGRAM*       53/34     53/39 L
        TOB1A        1354   PROGRAM*       53/48     53/51 L
        TOB2         1356   PROGRAM*       53/49     54/03 L
        TOB3         1363   PROGRAM*       54/06     54/18 L
        TOB4         1364   PROGRAM*       54/14     54/22 L
        TOV          1341   PROGRAM*       52/46     52/56 E   52/57 L
        TOV1         1344   PROGRAM*       53/12 L   54/11
        TRE          1103   PROGRAM*       32/20     41/50 L   41/53     42/19
        TSBA          122   PROGRAM*        6/10      6/40 L   30/47
        TSB1          113   PROGRAM*        6/18 L    6/24      6/25      6/29      6/33      6/38
        TYIOM           0   EXTERNAL*      15/12
        T.LAB           6   FTNTEXT         6/12      6/14
        WB              0   EXTERNAL*       2/14 X    3/03      4/11
        XR              0   EXTERNAL*       3/50 S
        Z.ALS          20                  52/28 E   52/28 D   52/39
        Z.APL          16                  52/24 E   52/24 D   52/39
        Z.BCT          12                   9/35     62/46 D
        Z.BLK           0                  51/48 E   51/48 D   52/39
        Z.BST           7                  52/08 E   52/08 D   52/39
        Z.CFT           6                  52/06 E   52/06 D   52/39
        Z.DUT           2                   9/50     62/46 D
        Z.GST           1                  51/51 E   51/51 D
        Z.IIT          14                  52/20 E   52/20 D
        Z.IOL          14                  52/19 E   52/19 D   52/20     52/39
        Z.MLT           4                   9/39     30/55     52/02 E   52/02 D
        Z.MOD           5                   9/41     31/03     52/04 E   52/04 D   52/39
        Z.OTI           4                  52/01 E   52/01 D   52/02     52/39
        Z.PBT           3                   9/54     62/46 D
        Z.PIT           3                  51/56 E   51/56 D   52/39     62/46
        Z.PSI          10                  52/11 E   52/11 D   52/39
        Z.RCT          12                  52/15 E   52/15 D   52/39     62/46
        Z.RND           2                  51/53 E   51/53 D   51/54     52/39     62/46
        Z.RXI          11                  52/13 E   52/13 D   52/39
        Z.TEND         21                  52/30 E   52/30 D   52/39
        Z.TET          13                  52/17 E   52/17 D   52/39
        Z.TREE          2                  51/54 E   51/54 D
        Z.TXT           1                   2/12 D   51/50 E   51/50 D   51/51     52/39
        Z.UDI          17                  52/26 E   52/26 D   52/39
        Z.VDT          15                  52/22 E   52/22 D   52/39
        .CPU          111   FTNTEXT         7/18 F
        .DAL            1   FTNTEXT        32/40 F   33/44 F   40/14 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  AIS 
  
  
        ABR           400   PROGRAM*       11/24     22/08 L   22/17
        ABR1          405   PROGRAM*       22/16 L   22/30     22/37     22/43     23/13     24/10
        ABR1A         410   PROGRAM*       22/30 L   22/34
        ABR2          416   PROGRAM*       22/52 L   22/56     22/57     23/05
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    69
        SYMBOLIC REFERENCE TABLE.                                     AIS 
  
        ABR3          423   PROGRAM*       22/53     23/10 L
        ABR4          424   PROGRAM*       23/12 L   23/16     23/20     23/46
        ABR5          430   PROGRAM*       23/23 L   23/31
        ABR6          433   PROGRAM*       23/28     23/40 L
        ABR7          435   PROGRAM*       23/04     23/35     23/51 L
        ABR8          442   PROGRAM*       24/09 L   24/13     24/16     24/20
        AIS           133   PROGRAM*        9/16 L   29/50
        AIS0          127   PROGRAM*        9/03 L    9/25      9/31     10/23
        AIS1          161   PROGRAM*       10/15 L   10/29     10/32     10/35     11/19     11/27
        AIS2          163   PROGRAM*       10/11     10/22 L
        AIS3          173   PROGRAM*       10/46 L   10/50
        AIS4          175   PROGRAM*       10/52 L
        BC.LXUL        22                   8/02 D
        BC.LXUP        22                   8/02 D   20/57     23/41     24/04     24/11     24/14
        BC.MRWL        22                   8/01 D
        BC.MRWP        44                   8/01 D   20/27     22/35     22/44     24/14     24/18
        BC.RIL         22                   8/03 D
        BC.RIP          0                   8/03 D   22/44
        BDU           247   PROGRAM*       11/01     14/14 L   14/22
        BDUA          246   PROGRAM*       14/12 L   14/39
        BDU1          252   PROGRAM*       14/19 L   15/41     16/14     16/53     17/18
                                           15/33     16/11     16/49     17/08
        BDU2          264   PROGRAM*       14/34     14/38     14/41     14/57 L
        BDU3          271   PROGRAM*       15/18 L   15/36
        BDU3A         274   PROGRAM*       15/21     15/27 L
        BDU4          275   PROGRAM*       15/18     15/20     15/22     15/23     15/32 L
        BDU5          300   PROGRAM*       15/03     15/40 L
        BDU5A         305   PROGRAM*       15/47     15/49     16/07 L
        BDU6          321   PROGRAM*       15/02     16/53 L
        BDU7          325   PROGRAM*       16/56     17/01     17/05 L
        BM.MRWL        22                   7/50 D
        BM.MRWP        44                   7/50 D   10/33     13/07
        BM.NRFL        22                   7/51 D
        BM.NRFP        22                   7/51 D   10/30     10/33     13/15
        BM.PL          22                   7/52 D
        BM.PP           0                   7/52 D
        CAT            10   TABLES          8/50 L   22/09 S   23/01     23/17     23/53 S
        CA.LXUL        22                   8/28 D
        CA.LXUP        22                   8/28 D   23/02     23/18
        CA.RIL         22                   8/29 D
        CA.RIP          0                   8/29 D
        DP.IIL         22                   8/35 D
        DP.IIP         22                   8/35 D   14/24     17/48     20/37     22/27     27/26
        DP.NIL         22                   8/36 D
        DP.NIP          0                   8/36 D   17/48     20/37     22/27     27/26
        DU.DEFL        22                   8/20 D
        DU.DEFP        22                   8/20 D   17/39
        DU.SCL         13                   8/18 D
        DU.SCP         60                   8/18 D
        DU.SUP         73                   8/17 D
        DU.USEL        22                   8/21 D
        DU.USEP         0                   8/21 D
        EDU           332   PROGRAM*       15/19     15/57     17/03     17/10     17/33 L   17/51     18/06     18/11
        FLF             0   TABLES          8/48 L   10/10 S   10/40     16/45
        ISA           446   PROGRAM*       23/54     25/13 L   26/55
        ISA1          453   PROGRAM*       25/24 L   25/30
        ISA2          462   PROGRAM*       25/24     25/48 L
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    70
        SYMBOLIC REFERENCE TABLE.                                     AIS 
  
        ISA3          470   PROGRAM*       26/06     26/12 L
        ISA4          472   PROGRAM*       25/46     26/20 L
        IUM           507   PROGRAM*       23/55     27/17 L
        IUMA          505   PROGRAM*       27/11 L   28/26
        IUMB           22   TABLES          8/54 L   27/13     27/25 S
        IUM0          506   PROGRAM*       27/13 L   27/33
        IUM1          513   PROGRAM*       27/32 L   27/36     28/19     29/19
        IUM2          521   PROGRAM*       27/56 L   28/03
        IUM3          527   PROGRAM*       27/57     28/23 L
        IUM4          531   PROGRAM*       28/25     28/30 L
        IUM5          534   PROGRAM*       28/33     28/37 L
        IUP           343   PROGRAM*       11/21     19/07 L   19/22
        IUP1          347   PROGRAM*       19/16 L   19/34     19/45
        IUP2          350   PROGRAM*       19/14     19/21 L   19/28
        IXU           356   PROGRAM*       11/15     20/09 L   20/32
        IXU1          363   PROGRAM*       20/21 L   21/03
        IXU2          364   PROGRAM*       20/22     20/25 L
        IXU3          365   PROGRAM*       20/19     20/31 L
        IXU4          367   PROGRAM*       20/41 L   20/53
        IXU5          372   PROGRAM*       20/50     20/53 L
        IXU6          374   PROGRAM*       21/03 L   21/09     21/11
        LBM           207   PROGRAM*        9/26     12/18 L
        LBMA           21   TABLES          8/53 L   12/13     12/27 S
        LBM0          205   PROGRAM*       12/13 L   13/25
        LBM1          216   PROGRAM*       12/39 L   13/30     13/33
        LBM1A         223   PROGRAM*       12/47     12/51 L
        LBM2          225   PROGRAM*       12/51     12/55 L
        LBM3          230   PROGRAM*       13/04     13/07 L
        LBM4          235   PROGRAM*       13/28 L   13/45     13/55
        LBM5          240   PROGRAM*       12/34     12/43     12/49     12/53     13/26     13/32     13/35 L
        LBM6          243   PROGRAM*       13/41     13/44 L
        LU.INF     377777                   7/37 D   16/30
        MRF            20   TABLES          8/52 L    9/29     12/33 S   12/56
        NSO            17   TABLES          8/51 L   10/15     10/28 S
        PBI             1   TABLES          8/49 L   10/49 S   19/25     22/52     23/12
        PB.LUL         22                   8/11 D
        PB.LUP         22                   8/11 D   16/33     19/16     19/31     23/26     23/43
        PB.PL          22                   8/12 D
        PB.PP           0                   8/12 D   23/26
        PB.RIL         22                   8/10 D
        PB.RIP         44                   8/10 D   16/25     19/38     23/43
        PB.RNL          3                   8/09 D   19/13
        PB.RNP         66                   8/09 D   16/26     19/23     19/31     19/38
        PI.NAP         73                   8/41 D
        PI.PL          22                   8/43 D
        PI.PP           0                   8/43 D
        RIL        200000                   7/39 D    7/40
        RMSK       177776                   7/40 D   16/55
        SO.BLOCK     2200                   7/35 D   26/42
        SRI           550   PROGRAM*       26/41     26/52     29/36 L   29/46
        TRW             7                   7/19 D    9/22     10/34     11/18     22/36
        .SFL         2000                   7/34 D    7/35
  
  
  
  
                                                  SYMBOL QUALIFIER =  SHFTC=0 
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 15.55.43.      PAGE    71
        SYMBOLIC REFERENCE TABLE.                                     SHFTC=0 
  
        SST0         1234   PROGRAM*       49/03 L   49/12     49/34
        SST1         1236   PROGRAM*       49/10 L   49/24
        SST2         1237   PROGRAM*       49/07     49/14 L   49/33
        SST3         1241   PROGRAM*       49/22 L   49/30
  
  
  
  
                                                  SYMBOL QUALIFIER =  TBLM
  
  
        ADW          1547   PROGRAM*       61/19 L   61/35     62/42
        ADWA         1556   PROGRAM*       61/29 S   61/31     61/37 L
        ADW1         1545   PROGRAM*       61/14 L   61/27
        AFT          1537   PROGRAM*       60/44 L   60/54     62/41
        AFTA         1544   PROGRAM*       60/45     60/56 L
        AMU          1562   PROGRAM*       60/01     61/55     62/01 L   62/43
        AMU1         1557   PROGRAM*       61/49 L   61/52     62/06
        ATS          1463   PROGRAM*       58/22 L   61/30     62/44
        ATSA         1536   PROGRAM*       60/05     60/38 L
        ATSX         1462   PROGRAM*       58/19 L   58/31     60/15
        ATS1         1464   PROGRAM*       58/23 L
        ATS2         1473   PROGRAM*       58/51 L   58/54     60/36
        ATS3         1500   PROGRAM*       59/11 L   59/21
        ATS4         1504   PROGRAM*       59/19     59/21 L
        ATS4A        1507   PROGRAM*       59/33 L   60/47     60/50 S
        ATS5         1510   PROGRAM*       59/35 L   59/57
        ATS6         1520   PROGRAM*       59/42     59/49 L
        ATS7         1523   PROGRAM*       59/55     59/57 L
        ATS8         1530   PROGRAM*       59/04     60/17 L
        ATS9         1532   PROGRAM*       53/05     53/53     54/23     60/25 L
        MTU          1573   PROGRAM*       62/31 L   62/45
        MTU1         1565   PROGRAM*       62/18 L   62/29     62/35
        MTU2         1572   PROGRAM*       62/25     62/27     62/29 L
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1366              IDENT  POST 
                       1366                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1276 
                                        LITERALS* LOCAL        1276        25 
                                        SKEL      LOCAL        1323        43 
                                        TABLES    COMMON          0       203 
  
  
                                        ENTRY POINTS. 
  
                                        B=POST           0+           FSU             54+           OTC            735+ 
                                        BLPTR            0+           CUB             61+ 
                                        PARCEL           2+           CII             67+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.TXT     L.VDT     O.CFT     SDATA.    PSB       VD.       DIRECT    IT. 
                                        L.TXT     O.LOOP    O.TET     DATA.     ADW=      N.OT      ATS=      N.GT
                                        O.PIT     O.GLT     O.BIT     F.RDT     Z.VDT     OT.       LEVEL2    CDD 
                                        L.PIT     O.API     O.LCT     UCODE.    VARDIM.   N.ST      O.ELT     MACFLAG 
                                        O.APL     N.AP      SYMORD    MCG       OUTUSE    ST.       L.ELT     WTC=
                                        L.APL     BN        UDATA.    ESR       UVARDIM   N.FP      WB.LAB    F.CMPS
                                        O.VDT     N.IT      FSTEX     SSP       N.VD      FP.       TEMPA0.   CODE. 
  
  
  
  
                                                  IDENT  POST                                                    POST        2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=POST   RPVDEF                                                         POST        5
                                                  PASS2TM                                                        POST        6
  
  
                                        **        POST - CONVERT ISSUED INSTRUCTIONS TO DISPLAY CODE.            POST        8
                                        *         MAINTAIN CODE LENGTH, DEFINE LABEL ADDRESS"S,                  POST        9
                                        *         SETUP SUB MACROS FOR F.P. REFERENCES.                          POST       10
  
  
                                                  TABLES TXT,PIT,APL,VDT                                         POST       12
                                                  EXT    O.LOOP,O.GLT,O.API,N.AP                                 POST       13
                                                  EXT    BN,N.IT,O.CFT,O.TET,O.BIT,O.LCT                         FCC1319    73
  
  
  
                                                  DESCRIBE SI.,60                                                POST       16
                                         H2       DEFINE 1                                                       POST       17
                                         OC       DEFINE 11                                                      POST       18
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     2
                                                                      POST
  
                                         CA       DEFINE 18                                                      POST       19
                                         IH       DEFINE 18                                                      POST       20
                                         RJ       DEFINE 6                                                       POST       21
                                         RI       DEFINE 6                                                       POST       22
                                                                                                                 POST       23
                                         RK       DEQU   IH,6                                                    POST       24
  
  
  
             0  00000000000000000000 X   BLPTR    ENTRY. =XCODE.     POINTER TO CURRENT USE BLOCK                POST       26
             1                     1     BLEN     BSSZ   1           LEN OF CURRENT USE BLOCK                    POST       27
             2  00000000000000000000     PARCEL   ENTRY. 0           LAST VALUE OF PARCEL COUNTER                POST       28
             3                     1     LSR      BSSZ   1           LAST *SUB* REF  12/P(IH),48/CODE. ADDRESS   POST       29
                                                                                                                 POST       30
             4  00000000000000000000     FU       CON    0           FORCE UPPER FLAG ( 0 OR 1R+ )               POST       31
             5                     1     PO       BSS    1           SAVED VALUE OF O.PIT                        POST       32
                                                                                                                 POST       33
             6                           RTT      BSS    0           REGISTER TRANSLATION TABLE                  POST       34
                                                  ECHO   2,T=(B,A,X)                                             POST       35
                                                  ECHO   1,N=(0,1,2,3,4,5,6,7)                                   POST       36
                                                  DATA   2R_T_N                                                  POST       37
                                                                                                                 POST       38
            36  47555555555555555555     ILN      DATA   20H*                                                    POST       39
            40  55555555555514111605              DATA   4ALINE,0                                                POST       40
  
  
                                         WLIC     MACRO  F,W                                                     POST       42
                                                  R=     B6,F                                                    POST       43
                                                  R=     B7,W                                                    POST       44
                                                  RJ     =XWML                                                   POST       45
                                                  ENDM                                                           POST       46
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     3
        WRITE MULTIPLE CODED LINES                                    WML 
  
                                        **        WML - WRITE MULTIPLE CODED LINES TO -COMPS- FILE.              POST       48
                                        *                                                                        POST       49
                                        *         ENTRY  (B6) = FWA FIRST LINE                                   POST       50
                                        *                (B7) = TOTAL LENGTH OF ALL LINES                        POST       51
                                        *                                                                        POST       52
                                        *         EXIT   ALL LINES WRITTEN TO -COMPS-.                           POST       53
                                        *                                                                        POST       54
                                        *         CALLS  WRITEC                                                  POST       55
                                                                                                                 POST       56
            42  0200400042 +             WML      ROUTINE                                                        POST       57
            43  66270                             SB2    B7                                                      POST       58
                     66510                        SB5    B1                                                      POST       59
                                                                                                                 POST       60
            44  0602000042 +             WML2     LE     B2,B0,WML   IF NOTHING LEFT TO WRITE, EXIT              POST       61
                          56160                   SA1    B6          (X1) = FIRST WORD OF LINE                   POST       62
                               43660              MX6    -12                                                     POST       63
            45  15716                    WML3     BX7    -X6*X1                                                  POST       64
                     54111                        SA1    A1+B1                                                   POST       65
                          0317000045 +            NZ     X7,WML3     IF NOT ZERO BYTE LINE TERMINATOR            POST       66
                                                                                                                 POST       67
            46  65716                             SB7    A1-B6       (B7) = CURRENT LINE LENGTH (WORDS)          POST       68
                     74710                        SX7    A1          (X7) = FWA NEXT LINE                        POST       69
                          77627                   SX6    B2-B7       (X6) = TOTAL LENGTH OF NEXT LINES           POST       70
                               20722              LX7    18                                                      POST       71
            47  12676                             BX6    X7+X6                                                   POST       72
                     46000                        NO                                                             POST       73
                          5160000053 +            SA6    WMLA        TEMP SAVE NEXT FWA, LENGTH                  POST       74
            50  7120000000 X                      WRITEC =XF.CMPS,B6,B7    ONE LINE TO -COMPS-                   POST       75
            51  5110000053 +                      SA1    WMLA                                                    POST       76
                          66510                   SB5    B1                                                      POST       77
                               63210              SB2    X1          (B2) = TOTAL LENGTH OF REMAINING LINES      POST       78
            52  21122                             AX1    18                                                      POST       79
                     63610                        SB6    X1          (B6) = FWA NEXT LINE                        POST       80
                          0400000044 +            EQ     WML2        LOOP FOR NEXT LINE                          POST       81
                                                                                                                 POST       82
            53                     1     WMLA     BSSZ   1           RESTART PARAMS - 24/0, 18/FWA, 18/LENGTH    POST       83
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     4
        FSU FORCE NEXT SEQUENCE UPPER                                 FSU 
  
                                        **        FSU - FORCE NEXT SEQUENCE UPPER ( TO BEGIN ON A WORD BOUNDARY  POST       85
                                                                                                                 POST       86
            54  00000000000000000000     FSU      ENTRY.                                                         POST       87
            55  5110000002 +                      SA1    PARCEL                                                  POST       88
                          0301000054 +            ZR     X1,FSU      IF PARCEL = 0                               POST       89
            56  5120000001 +                      SA2    BLEN                                                    POST       90
                          7160000045              SX6    1R+                                                     POST       91
            57  73721                             SX7    X2+B1       BLEN = BLEN + 1                             POST       92
                     5160000004 +                 SA6    FU          FU = 1R+                                    POST       93
                               54720              SA7    A2                                                      POST       94
            60  43600                             MX6    0                                                       POST       95
                     54610                        SA6    A1          PARCEL = 0                                  POST       96
                          0400000054 +            EQ     FSU                                                     POST       97
  
  
  
                                        **        CUB - CHANGE USE BLOCKS                                        POST       99
                                        *                                                                        POST      100
                                        *         ENTRY  (A1,X1) = NEW USE BLK ADDR, 24/0,18/PARCEL,18/BLEN      POST      101
                                                                                                                 POST      102
            61  00000000000000000000     CUB      ENTRY.                                                         POST      103
            62  5120000002 +                      SA2    PARCEL                                                  POST      104
                          5130000001 +            SA3    BLEN                                                    POST      105
            63  5140000000 +                      SA4    BLPTR                                                   POST      106
                          20222                   LX2    18                                                      POST      107
                               12623              BX6    X2+X3       [BLPTR] = SHIFT( PARCEL , 18 ) ! BLEN       POST      108
            64  53640                             SA6    X4                                                      POST      109
                     73710                        SX7    X1                                                      POST      110
                          54730                   SA7    A3          BLEN = LEN[NEW]                             POST      111
                               21122              AX1    18                                                      POST      112
            65  73610                             SX6    X1                                                      POST      113
                     54620                        SA6    A2          PARCEL = SHIFT( [NEW] , -18 )               POST      114
                          74710                   SX7    A1                                                      POST      115
                               54740              SA7    A4          BLPTR = NEW                                 POST      116
            66  0400000061 +                      EQ     CUB                                                     POST      117
  
  
  
                                        **        REGISTER SETUP FOR THE MAIN LOOP                               POST      119
                                        *                (A0) = (O.SYM) = FWA OF SYMTAB                          POST      120
                                        *                (A5,X5) = PI, [PI] = CURRENT *PIT* WORD                 POST      121
                                        *                (A7) = SI = STORE ADDRESS                               POST      122
                                        *                (X6,X7) = ASSEMBLY REGISTERS                            POST      123
                                        *                (X0) = MASK(-6)                                         POST      124
                                        *                                                                        POST      125
                                         SZ       MICRO  1,,/B2/     INSTRUCTION SIZE ( ON EXIT FROM PROCESSOR ) POST      126
                                         BL       MICRO  1,,/B5/     BLOCK LENGTH                                POST      127
                                        *                (B6) = RTT                                              POST      128
                                         PC       MICRO  1,,/B7/     PARCEL COUNT - 4                            POST      129
                                        *                                                                        POST      130
                                        *                B2 - B4 MAY BE USED FOR SCRATCH                         POST      131
                                                                                                                 POST      132
                                        *         ON ENTRY TO AN INSTRUCTION PROCESSOR                           POST      133
                                        *                (X3) = INSTRUCTION SKELTON                              POST      134
                                        *                (X4) = RTT( REG[RI] )                                   POST      135
                                        *                (X5) = [PI]                                             POST      136
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     5
        CII - CONVERT ISSUED INSTRUCTION                              CII 
  
            67  00000000000000000000     CII      ENTRY.                                                         POST      138
                                                  TRACE  POST,PIT                                                FCC0982    48
            70  5120000000 X                      SA2    O.PIT                                                   POST      140
                          5130000000 X            SA3    L.PIT                                                   POST      141
            71  5110000000 X                      SA1    =XMACFLAG                                               POST      142
                          10622                   BX6    X2          PO = O.PIT    */ SAVE FOR LATER RESTORE     POST      143
            72  5160000005 +                      SA6    PO                                                      POST      144
                          73721                   SX7    X2+B1       O.PIT = O.PIT + 1                           POST      145
                               54720              SA7    A2                                                      POST      146
            73  7263777776                        SX6    X3-1        L.PIT = L.PIT - 1                           POST      147
                          54630                   SA6    A3                                                      POST      148
            74  0301000102 +                      ZR     X1,CII0     IF MACFLAG = 0  */ NOT OL ! C ! E           POST      149
                                                                                                                 POST      150
                                        *         WRITE COMMENT LINE WITH INITIAL LINE NUMBER TO *COMPS*         POST      151
                                                                                                                 POST      152
                          53420                   SA4    X2                                                      POST      153
                               21436              AX4    R1.INP                                                  POST      154
            75  73140                             SX1    X4          LINENUM = IN[PO]                            POST      155
                     43060                        MX0    -12                                                     POST      156
                          0301000102 +            ZR     X1,CII0     IF LINE NUM = 0                             POST      157
            76  0100000000 X                      CALL   CDD                                                     POST      158
            77  20636                             LX6    30                                                      POST      159
                     11706                        BX7    X0*X6                                                   POST      160
                          5170000041 +            SA7    ILN+3                                                   POST      161
           100  6160000036 +                      WLIC   ILN,4       LIST INITIAL LINE NUMBER                    POST      162
                                                                                                                 POST      163
                                        *         INITIALIZE REGISTERS FOR CONVERSION                            POST      164
                                                                                                                 POST      165
           102  5110000001 +             CII0     SA1    BLEN                                                    POST      166
                          5120000002 +            SA2    PARCEL                                                  POST      167
           103  5130000012                        SA3    O.SYM                                                   POST      168
                          5140000000 X            SA4    O.TXT                                                   POST      169
           104  5150000000 X                      SA5    O.PIT                                                   POST      170
                          63510                   S"BL"  X1          BL = BLEN                                   POST      171
                               53030              SA0    X3                                                      POST      172
           105  6272777773                        S"PC"  X2-4        PC = PARCEL   */ REALLY PARCEL - 4          POST      173
                          43066                   MX0    -6                                                      POST      174
                               53550              SA5    X5          PI = O.PIT    */ FETCH INDEX                POST      175
           106  6160000006 +                      SB6    RTT                                                     POST      176
                          5274000004              SA7    X4+4        TI = O.TXT + 4                              POST      177
           107  0400000113 +                      EQ     CII2                                                    POST      178
  
  
                                        *         RETURN POINT AFTER CONVERTING AN INSTRUCTION                   POST      180
                                        *         ADVANCE PARCEL COUNT, BLOCK LENGTH                             POST      181
                                                                                                                 POST      182
           110  66772                    CII1     S"PC"  "PC"+"SZ"   PC = PC + SZ  */ ADVANCE PARCEL COUNT       POST      183
                     54551                        SA5    A5+B1       PI = PI + 1   */ FETCH NEXT WORD            POST      184
                          0770000113 +            LT     "PC",CII2   IF PC < 4                                   POST      185
                                                                                                                 POST      186
           111  66370                             SB3    "PC"        S = PC                                      POST      187
                     6170777773                   S"PC"  -4          PC = 0                                      POST      188
                                                                                                                 POST      189
                               66551              S"BL"  "BL"+B1     BL = BL + 1   */ ADVANCE BLOCK LENGTH       POST      190
           112  0430000113 +                      ZR     B3,CII2     IF S = 4      */ NO SIZE FAULT              POST      191
                                                                                                                 POST      192
                          67702                   S"PC"  -"SZ"       PC = SZ                                     POST      193
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     6
        CII - CONVERT ISSUED INSTRUCTION                              CII 
  
                                        *         JUMP TO INSTRUCTION PROCESSOR                                  POST      195
                                                                                                                 POST      196
           113  15650                    CII2     BX6    -X0*X5                                                  POST      197
                     26725                        UX7    B2,X5                     (X7) = LOWER 48 FOR *TLD*     POST      198
                          5246000006 +            SA4    RTT+X6      RI = RTT( REG[PI] )                         POST      199
           114  0222000633 +                      JP     CIIA-OC.LAB+B2    JUMP( CIIA( OC[PI] ) )                POST      200
  
  
  
                                        **        NOP - FLUSH BUFFER ( BUFFER TERMINATOR )                       POST      202
                                                                                                                 POST      203
                                   0 X   )NOP     EQU    L.PIT                                                   POST      204
                                                                                                                 POST      205
           115  64471                    .NOP     SB4    A7+B1       TL = TI + 1                                 POST      206
                     5120000000 X                 SA2    O.PIT                                                   POST      207
                               36323              IX3    X2+X3                                                   POST      208
           116  74651                             SX6    A5+B1                                                   POST      209
                     37736                        IX7    X3-X6       L.PIT = O.PIT+L.PIT - (PI+1)                POST      210
                          54620                   SA6    A2          O.PIT = PI + 1                              POST      211
                               54730              SA7    A3                                                      POST      212
                                                                                                                 POST      213
           117  5110000004 +                      SA1    FU                                                      POST      214
                          5120000000 X            SA2    O.TXT                                                   POST      215
           120  0301000124 +                      ZR     X1,NOP1     IF FU = 0     */ NO FORCE UPPER AT BEGIN OF POST      216
                          43600                   MX6    0                                                       POST      217
                               54610              SA6    A1          FU = 0                                      POST      218
           121  5232000005                        SA3    X2+5                                                    POST      219
                          20306                   LX3    6                                                       POST      220
                               15430              BX4    -X0*X3                                                  POST      221
           122  7254777722                        SX5    X4-1R                                                   POST      222
                          0315000124 +            NZ     X5,NOP1     IF FIRST CHAR " 1R                          POST      223
           123  11303                             BX3    X0*X3                                                   POST      224
                     12631                        BX6    X3+X1       FIRST CHAR = 1R+                            POST      225
                          20666                   LX6    54                                                      POST      226
                               54630              SA6    A3                                                      POST      227
                                                                                                                 POST      228
           124  7167000004               NOP1     SX6    "PC"+4                                                  POST      229
                          5160000002 +            SA6    PARCEL      PARCEL = PC                                 POST      230
           125  76750                             SX7    "BL"                                                    POST      231
                     5170000001 +                 SA7    BLEN        BLEN = BL                                   POST      232
                                                                                                                 POST      233
           126  6262000005                        SB6    X2+5                                                    POST      234
                          67746                   WLIC   B6,B4-B6    WRITE ACCUMULATED BUFFER TO *COMPS*         POST      235
                                                                                                                 POST      236
           130  5110000000 X                      SA1    L.PIT                                                   POST      237
                          0311000102 +            NZ     X1,CII0     IF L.PIT " 0                                POST      238
                                                                                                                 POST      239
           131  5120000005 +                      SA2    PO                                                      POST      240
                          10622                   BX6    X2          O.PIT = PO    */ RESTORE TO AVOID TBL MOVES POST      242
           132  5160000000 X                      SA6    O.PIT                                                   POST      243
                          0400000067 +            EQ     CII                                                     FCC0675   245
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     7
        CII - CONVERT ISSUED INSTRUCTION                              TLD 
  
                                        **        TLD/TST - COMPILER GENERATED TEMPORARIES                       POST      274
                                                                                                                 POST      275
           133  55552300005511245745     )TLD     VFD    30/3L  S,30/5L IT.+                                     POST      276
                                 133 +   )TST     EQU    )TLD                                                    POST      277
                                                                                                                 POST      278
           134                                    PROCESS (TLD,TST)                                              POST      279
           134  20766                             LX7    -SI.RJP                                                 POST      280
                     15670                        BX6    -X0*X7                                                  POST      281
                          0306000136 +            ZR     X6,TLD0     IF RJ[SI] = 0 */ NOT CHANGED TO SHORT INST  POST      282
                                                                                                                 POST      283
           135  5130001364 +                      SA3    )LD         SKEL = )LD                                  POST      284
                          0400000261 +            EQ     .LD                                                     POST      285
                                                                                                                 POST      286
           136  20436                    TLD0     LX4    30                                                      POST      287
                     5110000000 X                 SA1    O.TET                                                   POST      288
                               12734              BX7    X3+X4                                                   POST      289
           137  20536                             LX5    -SI.CAP     C = CA[PI]                                  POST      290
                     6130000002                   SB3    59-T.FAP                                                POST      291
                               63210              SB2    X1                        (B2) = [O.TET]                POST      292
                                                                                                                 POST      293
                                        *         SEARCH *TET* TO FIND LOCATION IN IT. BLOCK ASSIGNED            POST      294
                                        *         TO THIS TLD/TST .                                              POST      295
                                                                                                                 POST      296
           140  53152                    TLD1     SA1    B2+X5       TI = TET(C)                                 POST      297
                     22631                        LX6    B3,X1                                                   POST      298
                          7251000000              SX5    X1+         C = CA[TI]                                  POST      299
           141  0336000150 +                      MI     X6,TLD3     IF FA[TI]     */ FINAL ASSIGNMENT MADE      POST      300
                          20673                   LX6    T.FAP-T.EQVP                                            POST      301
           142  0336000140 +                      MI     X6,TLD1     IF EQV[TI]    */ EQUIVALENT TO ANOTHER      POST      302
                                                                                                                 POST      303
                                        *         CA NOT ASSIGNED, MUST BE OPT=1, GET NEXT CELL AND SAVE         FCC0675   247
                                        *         VALUE IN *CA* FIELD OF *TET* ENTRY.                            FCC0675   248
                                                                                                                 FCC0675   249
                          5120000000 X            SA2    =XN.GT                                                  FCC0675   250
           143  10522                             BX5    X2          C = N.GT                                    FCC0675   251
                     43352                        MX3    -T.CAL                                                  FCC0675   252
                          73621                   SX6    X2+B1       N.GT = N.GT + 1                             FCC0675   253
                               54620              SA6    A2                                                      FCC0675   254
           144  76210                             SX2    B1                                                      FCC0675   255
                     5140000000 X                 SA4    N.IT                                                    POST      323
                               11131              BX1    X3*X1                                                   POST      324
           145  12115                             BX1    X1+X5       CA[TI] = C                                  POST      325
                     20271                        LX2    T.FAP                                                   POST      326
                          12612                   BX6    X1+X2       FA[TI] = 1                                  POST      327
                               54610              SA6    A1                                                      POST      328
           146  73651                             SX6    X5+B1                                                   POST      329
                     37446                        IX4    X4-X6                                                   POST      330
                          0324000150 +            PL     X4,TLD3     N.IT = MAX( N.IT , C+1 )                    POST      331
           147  54640                             SA6    A4                                                      POST      332
                                                                                                                 POST      333
           150  73650                    TLD3     SX6    X5                                                      POST      334
                     0316000154 +                 NZ     X6,TLD4     IF C " 0                                    POST      335
                                                                                                                 POST      336
                               66211              S"SZ"  B1+B1       SZ = 2                                      POST      337
           151  5140001276 +                      SA4    =8L                                                     POST      338
                          7150000010              SX5    1R -1R+                                                 POST      339
           152  36775                             IX7    X7+X5                                                   POST      340
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     8
        CII - CONVERT ISSUED INSTRUCTION                              TLD 
  
                     54771                        SA7    A7+B1       TI = TI + 1;  [TI] = 10H  SRI .IT           POST      341
                          10744                   BX7    X4                                                      POST      342
                               54771              SA7    A7+B1       TI = TI + 1;  [TI] = 8L                     POST      343
           153  0400000110 +                      EQ     CII1                                                    POST      344
                                                                                                                 POST      345
           154  54771                    TLD4     SA7    A7+B1       TI = TI + 1;  [TI] = 10H  SRI IT.+          POST      346
                     0100000622 +                 RJ     CON         CONVERT NUMBER                              POST      347
           155  20606                             LX6    6                                                       POST      348
                     6140000102                   SB4    66                                                      POST      349
                               10766              BX7    X6                                                      POST      350
           156  67443                             SB4    B4-B3       UBC = 66-6*CC                               POST      351
                     0100000633 +                 RJ     TSB         TERMINATE STRING                            POST      352
           157  66211                             S"SZ"  B1+B1       SZ = 2                                      POST      353
                     0400000110 +                 EQ     CII1                                                    POST      354
  
  
           160  00005555555555550000     L6B      VFD    12/0,48/6L                                              POST      356
           161  00555555555555550000     L7B      VFD    6/0,54/7L                                               POST      357
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE     9
        INSTRUCTION PROCESSORS                                        TYPEI 
  
                                        **        TYPE I BINARY INFIX INSTRUCTIONS - *  FXI XJOXK  *             POST      359
                                                                                                                 POST      360
                                         TYI      MACRO  NAM,LO                                                  POST      361
                                                  USE    SKEL                                                    POST      362
                                         F        MICRO  1,1, LO                                                 POST      363
                                         O        MICRO  2,1, LO                                                 POST      364
                                         )NAM     VFD    30/3L  "F",18/1L ,12/1L"O"                              POST      365
                                                  USE    0                                                       POST      366
                                         .NAM     BSS    0                                                       POST      367
                                                  ENDM                                                           POST      368
                                                                                                                 POST      369
          1323  55550200005500004700              TYI    AND,B*                                                  POST      370
          1324  55550200005500004500              TYI    OR,B+                                                   POST      371
          1325  55550200005500004600              TYI    XOR,B-                                                  POST      372
          1326  55551400005500005600              TYI    ILS,(L,)                                                POST      373
          1327  55550100005500005600              TYI    IRS,(A,)                                                POST      374
          1330  55551600005500005600              TYI    NR,(N,)                                                 POST      375
          1331  55553200005500005600              TYI    RNZ,(Z,)                                                POST      376
          1332  55552000005500005600              TYI    PK,(P,)                                                 POST      377
          1333  55552500005500005600              TYI    UP,(U,)                                                 POST      378
          1334  55550600005500004500              TYI    FA,F+                                                   POST      379
          1335  55550600005500004600              TYI    FS,F-                                                   POST      380
          1336  55550400005500004500              TYI    DFA,D+                                                  POST      381
          1337  55550400005500004600              TYI    DFS,D-                                                  POST      382
          1340  55552200005500004500              TYI    RFA,R+                                                  POST      383
          1341  55552200005500004600              TYI    RFS,R-                                                  POST      384
          1342  55551100005500004500              TYI    IA,I+                                                   POST      385
          1343  55551100005500004600              TYI    IS,I-                                                   POST      386
          1344  55550600005500004700              TYI    FM,F*                                                   POST      387
          1345  55552200005500004700              TYI    RFM,R*                                                  POST      388
          1346  55550400005500004700              TYI    DFM,D*                                                  POST      389
          1347  55550600005500005000              TYI    FD,F/                                                   POST      390
          1350  55552200005500005000              TYI    RFD,R/                                                  POST      391
                                                  ECHO   2,A=(IAZ,ISZ,IM),B=(IA,IS,DFM)                          POST      392
                                         )A       EQU    )B                                                      POST      393
                                         .A       BSS    0                                                       POST      394
           162  20436                             LX4    30                                                      POST      395
                     12743                        BX7    X4+X3                                                   POST      396
                          20566                   LX5    -SI.RJP                                                 POST      397
                               15650              BX6    -X0*X5                                                  POST      398
           163  53366                             SA3    B6+X6       RJ = RTT( REG[RJ] )                         POST      399
                     20566                        LX5    SI.RJP-SI.RKP                                           POST      400
                          15650                   BX6    -X0*X5                                                  POST      401
                               53266              SA2    B6+X6       RK = RTT( REG[RK] )                         POST      402
           164  5110000161 +                      SA1    L7B                                                     POST      403
                          20314                   LX3    12                                                      POST      404
                               12737              BX7    X3+X7                                                   POST      405
           165  20266                             LX2    -6                                                      POST      406
                     15420                        BX4    -X0*X2                                                  POST      407
                          36647                   IX6    X4+X7                                                   POST      408
                               11202              BX2    X0*X2                                                   POST      409
           166  54671                             SA6    A7+B1       TI = TI + 1;  [TI] = 10H  LRI RJOR          POST      410
                     12721                        BX7    X2+X1                                                   POST      411
                          66210                   S"SZ"  B1                                                      POST      412
                               54761              SA7    A6+B1       TI = TI + 1;  [TI] = 8LK                    POST      413
           167  0400000110 +                      EQ     CII1                                                    POST      414
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    10
        INSTRUCTION PROCESSORS                                        BNAND 
  
                                        **        BOOLEAN COMPLEMENT INSTRUCTIONS - *  BXI -XJOXK  *             POST      416
                                                                                                                 POST      417
                                         BNAND    MACRO  NAM,O                                                   POST      418
                                                  USE    SKEL                                                    POST      419
                                         )NAM     VFD    30/3L  B,24/2L -,6/1R_O                                 POST      420
                                                  USE    0                                                       POST      421
                                         .NAM     BSS    0                                                       POST      422
                                                  ENDM                                                           POST      423
                                                                                                                 POST      424
          1351  55550200005546000047              BNAND  STR,*                                                   POST      425
          1352  55550200005546000045              BNAND  IMP,+                                                   POST      426
          1353  55550200005546000046              BNAND  EQV,-                                                   POST      427
                                                                                                                 POST      428
           170  20436                             LX4    30                                                      POST      429
                     12734                        BX7    X3+X4                                                   POST      430
                          20566                   LX5    -SI.RJP                                                 POST      431
                               15650              BX6    -X0*X5                                                  POST      432
           171  53466                             SA4    B6+X6       RJ = RTT( REG[RJ] )                         POST      433
                     20566                        LX5    SI.RJP-SI.RKP                                           POST      434
                          15650                   BX6    -X0*X5                                                  POST      435
                               53266              SA2    B6+X6       RK = RTT( REG[RK] )                         POST      436
           172  5110000160 +                      SA1    L6B                                                     POST      437
                          20406                   LX4    6                                                       POST      438
                               12647              BX6    X4+X7                                                   POST      439
           173  20260                             LX2    48                                                      POST      440
                     54671                        SA6    A7+B1       TI = TI + 1;  [TI] = 10H  BRI -RJO          POST      441
                          36721                   IX7    X2+X1                                                   POST      442
                               66210              S"SZ"  B1          SZ = 1                                      POST      443
           174  54761                             SA7    A6+B1       TI = TI + 1;  [TI] = 8LRK                   POST      444
                     0400000110 +                 EQ     CII1                                                    POST      445
  
  
  
                                        **        XMTC - *  BXI -XJ  *                                           POST      447
                                                                                                                 POST      448
          1354  55550200005546000055              BNAND  XMTC                                                    POST      449
           175  20436                             LX4    30                                                      POST      450
                     12634                        BX6    X3+X4                                                   POST      451
                          20566                   LX5    -SI.RJP                                                 POST      452
                               15750              BX7    -X0*X5                                                  POST      453
           176  53476                             SA4    B6+X7       RJ                                          POST      454
                     20406                        LX4    6                                                       POST      455
                          5110001276 +            SA1    =8L                                                     POST      456
           177  12646                             BX6    X4+X6                                                   POST      457
                     66210                        S"SZ"  B1          SZ = 1                                      POST      458
                          54671                   SA6    A7+B1       TI = TI + 1;  [TI] = 10H  BRI -RJ           POST      459
                               10711              BX7    X1                                                      POST      460
           200  54761                             SA7    A6+B1       TI = TI + 1;  [TI] = 8L                     POST      461
                     0400000110 +                 EQ     CII1                                                    POST      462
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    11
        INSTRUCTION PROCESSORS                                        UNARY 
  
                                        **        TYPE I UNARY INSTRUCTIONS - *  FXI XJ  *                       POST      464
                                                                                                                 POST      465
                                                  PURGMAC TYI                                                    POST      466
                                         TYI      MACRO  NAM,F                                                   POST      467
                                                  USE    SKEL                                                    POST      468
                                         )NAM     VFD    30/3L  F,30/1L                                          POST      469
                                                  USE    0                                                       POST      470
                                         .NAM     BSS    0                                                       POST      471
                                                  ENDM                                                           POST      472
                                                                                                                 POST      473
          1355  55550200005500000000              TYI    XMT,B                                                   POST      474
          1356  55550300005500000000              TYI    CX,C                                                    POST      475
          1357  55552200005500000000              TYI    DRL,R                                                   POST      476
          1360  55552700005500000000              TYI    DWL,W                                                   POST      477
                                                                                                                 POST      478
           201  20566                             LX5    -SI.RJP                                                 POST      479
                     15650                        BX6    -X0*X5                                                  POST      480
                          53266                   SA2    B6+X6       RJ                                          POST      481
                               20436              LX4    30                                                      POST      482
           202  12634                             BX6    X3+X4                                                   POST      483
                     20214                        LX2    12                                                      POST      484
                          66210                   S"SZ"  B1          SZ = 1                                      POST      485
                               12762              BX7    X6+X2                                                   POST      486
           203  54771                             SA7    A7+B1       TI = TI + 1;  [TI] = 10H  LRI RJ            POST      487
                     0400000110 +                 EQ     CII1                                                    POST      488
  
  
  
                                        **        TYPE II INSTRUCTIONS ( FMA, KLS, KRS )                         POST      490
                                                                                                                 POST      491
                                         TYII     MACRO  NAM,F                                                   POST      492
                                                  USE    SKEL                                                    POST      493
                                         )NAM     VFD    30/3L  F,30/5L 00B                                      POST      494
                                                  USE    0                                                       POST      495
                                         .NAM     BSS    0                                                       POST      496
                                                  ENDM                                                           POST      497
                                                                                                                 POST      498
          1361  55551400005533330255              TYII   KLS,L                                                   POST      499
          1362  55550100005533330255              TYII   KRS,A                                                   POST      500
          1363  55551500005533330255              TYII   FMA,M                                                   POST      501
           204  20436                             LX4    30                                                      POST      502
                     12743                        BX7    X4+X3                                                   POST      503
                          7140000070              SX4    70B                                                     POST      504
           205  20536                             LX5    -SI.CAP                                                 POST      505
                     15350                        BX3    -X0*X5      AB                                          POST      506
                          66210                   S"SZ"  B1          SZ = 1                                      POST      507
                               11543              BX5    X4*X3                                                   POST      508
           206  0305000212 +                      ZR     X5,TYII1    IF ONLY 1 DIGIT                             POST      509
                          13335                   BX3    X3-X5                                                   POST      510
                               20517              LX5    18-3                                                    POST      511
           207  20314                             LX3    12                                                      POST      512
                     5110001276 +                 SA1    =8L                                                     POST      513
                               12435              BX4    X3+X5                                                   POST      514
           210  36647                             IX6    X4+X7                                                   POST      515
                     54671                        SA6    A7+B1       TI = TI + 1;  [TI] = 10H  LRI  NNB          POST      516
                          10711                   BX7    X1                                                      POST      517
                               54761              SA7    A6+B1       TI = TI + 1;  [TI] = 8L                     POST      518
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    12
        INSTRUCTION PROCESSORS                                        TYII
  
           211  0400000110 +                      EQ     CII1                                                    POST      519
                                                                                                                 POST      520
           212  20322                    TYII1    LX3    18                                                      POST      521
                     36673                        IX6    X7+X3                                                   POST      522
                          7140310255              SX4    1LB&3R0B                                                POST      523
           213  13764                             BX7    X6-X4                                                   POST      524
                     54771                        SA7    A7+B1       TI = TI + 1;  [TI] = 8L  LRI NB             POST      525
                          0400000110 +            EQ     CII1                                                    POST      526
  
  
  
           214  55552300005500000000     )S       VFD    30/3L  S,30/1L                                          POST      528
                                                                                                                 POST      529
           215  20436                    .S       LX4    30                                                      POST      530
                     12734                        BX7    X3+X4                                                   POST      531
                          20536                   LX5    -SI.CAP                                                 POST      532
                               73650              SX6    X5                                                      POST      533
           216  0316000221 +                      NZ     X6,SET1     IF CA[PI] " 0                               POST      534
                          7140000233              SX4    2RB0                                                    POST      535
           217  66210                             S"SZ"  B1          SZ = 1                                      POST      536
                     20414                        LX4    12                                                      POST      537
                          12774                   BX7    X7+X4                                                   POST      538
                               54771              SA7    A7+B1       TI = TI + 1;  [TI] = 8L  SRI B0             POST      539
           220  0400000110 +                      EQ     CII1                                                    POST      540
                                                                                                                 POST      541
           221  0336000224 +             SET1     MI     X6,SET2     IF CA[PI] < 0                               POST      542
                          0100000622 +            RJ     CON         CONVERT THE NUMBER                          POST      543
           222  6133777771                        SB3    B3-6                                                    POST      544
                          20606                   LX6    6                                                       POST      545
           223  0400000226 +                      EQ     SET3                                                    POST      546
           224  14666                    SET2     BX6    -X6                                                     POST      547
                     0100000622 +                 RJ     CON                                                     POST      548
           225  7140000046                        SX4    1R-                                                     POST      549
                          20466                   LX4    54                                                      POST      550
                               12646              BX6    X4+X6                                                   POST      551
                                                                                                                 POST      552
           226  6140000030               SET3     SB4    24          UBC = 24                                    POST      553
                          0100000605 +            RJ     ADC         ADD THE NUMBER TO THE STRING                POST      554
           227  0100000633 +                      RJ     TSB                                                     POST      555
           230  66211                             S"SZ"  B1+B1       SZ = 2                                      POST      556
                     0400000110 +                 EQ     CII1                                                    POST      557
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    13
        TYPE I MEMORY REFERENCES                                      TYIM
  
                                        **        TYPE I MEMORY REFERENCES - *  SAI BJOBK  *                     POST      559
                                                                                                                 POST      560
                                                  NOREF  .Z                                                      POST      561
                                         TYIM     MACRO  NAM,O                                                   POST      562
                                                  USE    SKEL                                                    POST      563
                                        +         VFD    30/3L  S,18/1L ,12/1L_O                                 POST      564
                                         .Z       SET    *-1                                                     POST      565
                                                  USE    0                                                       POST      566
                                                  IRP    NAM                                                     POST      567
                                         )NAM     EQU    .Z                                                      POST      568
                                         .NAM     BSS    0                                                       POST      569
                                                  IRP                                                            POST      570
                                                  ENDM                                                           POST      571
                                                                                                                 POST      572
          1364  55552300005500004500              TYIM   (SLD,SST,SA),+                                          POST      573
          1365  55552300005500004600              TYIM   (SDL,SDS,SS),-                                          POST      574
                                                                                                                 POST      575
           231  20436                             LX4    30                                                      POST      576
                     12734                        BX7    X3+X4                                                   POST      577
                          20566                   LX5    -SI.RJP                                                 POST      578
                               15650              BX6    -X0*X5                                                  POST      579
           232  53466                             SA4    B6+X6       RJ = RTT(REG[RJ])                           POST      580
                     20566                        LX5    SI.RJP-SI.RKP                                           POST      581
                          15650                   BX6    -X0*X5                                                  POST      582
                               20414              LX4    12                                                      POST      583
           233  66210                             S"SZ"  B1                                                      POST      584
                     12774                        BX7    X7+X4                                                   POST      585
                          0316000236 +            NZ     X6,TYIM1    IF RK " 0                                   POST      586
           234  43560                             MX5    -12                                                     POST      587
                     11757                        BX7    X5*X7                                                   POST      588
                          5077000001              SA7    A7+1        TI = TI + 1;  [TI] = 8L  SRI RJ             POST      589
           235  0400000110 +                      EQ     CII1                                                    POST      590
                                                                                                                 POST      591
           236  53466                    TYIM1    SA4    B6+X6       RK = RTT(REG[RK])                           POST      592
                     5110000161 +                 SA1    L7B                                                     POST      593
                               20466              LX4    -6                                                      POST      594
           237  15540                             BX5    -X0*X4                                                  POST      595
                     12657                        BX6    X5+X7                                                   POST      596
                          54671                   SA6    A7+B1       TI = TI + 1;  [TI] = 10H  SRI RJOR          POST      597
                               11404              BX4    X0*X4                                                   POST      598
           240  12741                             BX7    X4+X1                                                   POST      599
                     54761                        SA7    A6+B1       TI = TI + 1;  [TI] = 8LK                    POST      600
                          0400000110 +            EQ     CII1                                                    POST      601
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    14
        TYPE I MEMORY REFERENCES                                      PLD 
  
                                        **        PLD/PST - *  SAI BJ+CA *                                       POST      603
                                                                                                                 POST      604
                                                  ECHO   2,N=(PLD,PST)                                           POST      605
                                         )N       EQU    )SLD                                                    POST      606
                                         .N       BSS    0                                                       POST      607
           241  20436                             LX4    30                                                      POST      608
                     12634                        BX6    X3+X4                                                   POST      609
                          20566                   LX5    -SI.RJP                                                 POST      610
                               15250              BX2    -X0*X5                                                  POST      611
           242  53126                             SA1    B6+X2       RJ = RTT( REG[RJ] )                         POST      612
                     20544                        LX5    SI.RJP-SI.CAP                                           POST      613
                          20114                   LX1    12                                                      POST      614
                               12616              BX6    X1+X6                                                   POST      615
           243  73750                             SX7    X5                                                      POST      616
                     0317000246 +                 NZ     X7,PLD1     IF CA[PI] " 0                               POST      617
                               43260              MX2    -12                                                     POST      618
           244  66210                             S"SZ"  B1          SZ = 1                                      POST      619
                     11726                        BX7    X2*X6                                                   POST      620
                          54771                   SA7    A7+B1       TI = TI + 1]  [TI] = 8L  SRI RJ             POST      621
           245  0400000110 +                      EQ     CII1                                                    POST      622
                                                                                                                 POST      623
           246  0327000250 +             PLD1     PL     X7,PLD2     IF CA[PI] > 0                               POST      624
                          14777                   BX7    -X7                                                     POST      625
           247  7140000300                        SX4    2R+A&2R-A                                               POST      626
                          13664                   BX6    X6-X4                                                   POST      627
                                                                                                                 POST      628
           250  0100000577 +             PLD2     RJ     COD                                                     POST      629
           251  6142777771                        SB4    B2-6                                                    POST      630
                          23344                   AX3    B4,X4                                                   POST      631
                               12663              BX6    X6+X3                                                   POST      632
           252  54671                             SA6    A7+B1       TI = TI + 1;  [TI] = 10H  SRI RJ+N          POST      633
                     6124777703                   SB2    B4-60                                                   POST      634
                               23424              LX4    -B2,X4                                                  POST      635
           253  11704                             BX7    X0*X4                                                   POST      636
                     5110001277 +                 SA1    =1HB                                                    POST      637
                               23241              AX2    B4,X1                                                   POST      638
           254  43360                             MX3    -12                                                     POST      639
                     11532                        BX5    X3*X2                                                   POST      640
                          12757                   BX7    X5+X7                                                   POST      641
                               66211              S"SZ"  B1+B1       SZ = 2                                      POST      642
           255  54761                             SA7    A6+B1       TI = TI+1  ; [TI] = 8LNNNB                  POST      643
                     0400000110 +                 EQ     CII1                                                    POST      644
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    15
        TYPE III MEMORY REFERENCES ( LD , ST , STT )                  TYIII 
  
                                        **        TYPE III MEMORY REFERENCES - *  SAI RJ+CA+IH-H2  *             POST      646
                                                                                                                 POST      647
                                1364 +   )ILD     EQU    )SLD                                                    FCC1842X    5
           256  5120000000 X             .ILD     SA2    =XIT.                                                   FCC1842X    6
                          20560                   LX5    -SI.IHP                                                 FCC1842X    7
                               13125              BX1    X2-X5                                                   FCC1842X    8
           257  63410                             SB4    X1                                                      FCC1842X    9
                     20514                        LX5    SI.IHP                                                  FCC1842X   10
                          0540000261 +            NZ     B4,.LD      IF IH[PI] " IT.                             FCC1842X   11
                                                                                                                 FCC1842X   12
           260  5130000133 +                      SA3    )TLD                                                    FCC1842X   13
                          0400000134 +            EQ     .TLD                                                    FCC1842X   14
                                                                                                                 FCC1842X   15
                                                  ECHO   2,N=(LD,ST,STT)                                         FCC1842X   16
                                         )N       EQU    )SLD                                                    POST      649
                                         .N       BSS    0                                                       POST      650
                                                                                                                 POST      651
           261  20436                             LX4    30                                                      POST      652
                     12734                        BX7    X3+X4                                                   POST      653
                          20566                   LX5    -SI.RJP                                                 POST      654
                               15650              BX6    -X0*X5                                                  POST      655
           262  20566                             LX5    SI.RJP-SI.IHP                                           POST      656
                     0306000267 +                 ZR     X6,LD1      IF RJ = 0                                   POST      657
                               53466              SA4    B6+X6                                                   POST      658
           263  43130                             MX1    -IH.CAIHL                                               POST      659
                     15651                        BX6    -X1*X5                                                  POST      660
                          20414                   LX4    12                                                      POST      661
                               12747              BX7    X4+X7                                                   POST      662
           264  6140000006                        SB4    6           UBC = 6                                     POST      663
                          0316000270 +            NZ     X6,LD2      IF IHCA[PI] " 0                             POST      664
           265  43260                             MX2    -12                                                     POST      665
                     11727                        BX7    X2*X7                                                   POST      666
                          66210                   S"SZ"  B1          SZ = 1                                      POST      667
                               54771              SA7    A7+B1       TI = TI + 1;  [TI] = 8L  SRI RJ             POST      668
           266  0400000110 +                      EQ     CII1                                                    POST      669
                                                                                                                 POST      670
           267  43144                    LD1      MX1    -24                                                     POST      671
                     6140000030                   SB4    24          UBC = 24                                    POST      672
                               11717              BX7    X1*X7                                                   POST      673
                                                                                                                 POST      674
           270  73650                    LD2      SX6    X5                                                      POST      675
                     0306000272 +                 ZR     X6,LD3      IF IH[PI] = 0                               POST      676
           271  0100000534 +                      RJ     ASN         ADD THE NAME                                POST      677
                                                                                                                 POST      678
           272  20552                    LD3      LX5    SI.IHP-SI.CAP                                           POST      679
                     73650                        SX6    X5                                                      POST      680
                          0306000303 +            ZR     X6,LD7      IF CA[PI] = 0                               POST      681
           273  0336000275 +                      MI     X6,LD4      IF CA[PI] < 0                               POST      682
                          0100000622 +            RJ     CON                                                     POST      683
           274  7140000045                        SX4    1R+         SGN = 1R+                                   POST      684
                          0400000277 +            EQ     LD5                                                     POST      685
                                                                                                                 POST      686
           275  14666                    LD4      BX6    -X6                                                     POST      687
                     0100000622 +                 RJ     CON                                                     POST      688
           276  7140000046                        SX4    1R-         SGN = 1R-                                   POST      689
                                                                                                                 POST      690
           277  23347                    LD5      AX3    B4,X7                                                   POST      691
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    16
        TYPE III MEMORY REFERENCES ( LD , ST , STT )                  TYIII 
  
                     7110000045                   SX1    1R+                                                     POST      692
                               15230              BX2    -X0*X3                                                  POST      693
           300  20466                             LX4    54                                                      POST      694
                     37312                        IX3    X1-X2                                                   POST      695
                          0313000302 +            NZ     X3,LD6      IF SHIFT( STR , -UBC ) & 77B " 1R+          POST      696
           301  22141                             LX1    B4,X1                                                   POST      697
                     13771                        BX7    X7-X1                                                   POST      698
                          6144000006              SB4    B4+6        UBC = UBC + 6                               POST      699
                                                                                                                 POST      700
           302  12646                    LD6      BX6    X4+X6                                                   POST      701
                     0100000605 +                 RJ     ADC         ADD CON TO STRING                           POST      702
                                                                                                                 POST      703
           303  20536                    LD7      LX5    SI.CAP+59-SI.H2P                                        POST      704
                     0325000307 +                 PL     X5,LD8      IF H2[PI] = 0                               POST      705
           304  7160000046                        SX6    1R-                                                     POST      706
                          6130000006              SB3    6                                                       POST      707
           305  20666                             LX6    54                                                      POST      708
                     0100000605 +                 RJ     ADC         ADD A -                                     POST      709
           306  54551                             SA5    A5+B1       PI = PI + 1                                 POST      710
                     0100000534 +                 RJ     ASN         ADD THE NAME                                POST      711
                                                                                                                 POST      712
           307  0100000633 +             LD8      RJ     TSB         TERMINATE THE LINE                          POST      713
           310  66211                             S"SZ"  B1+B1       SZ = 2                                      POST      714
                     0660000110 +                 PL     B6,CII1     IF FPFLAG = 0 */ IH NOT AN F.P.             POST      715
                                                                                                                 POST      716
                               76471              SX4    "PC"+B1                                                 POST      717
           311  0334000313 +                      MI     X4,LD9      IF PC < 3     */ NO SIZE FAULT              POST      718
                          6170777773              S"PC"  -4          PC = 0        */ FORCE UPPER                POST      719
           312  66551                             S"BL"  "BL"+B1     BL = BL + 1                                 POST      720
                                                                                                                 POST      721
           313  5130000003 +             LD9      SA3    LSR         PSR = LSR                                   POST      722
                          76250                   SX2    "BL"                                                    POST      723
                               20560              LX5    1+SI.H2P-SI.IHP                                         POST      724
           314  63350                             SB3    X5                                                      POST      725
                     27632                        PX6    B3,X2                                                   POST      726
                          54630                   SA6    A3          LSR = PACK(IH,BL)                           POST      728
                               54550              SA5    A5                                                      RSM3545C  160
           315  20560                             LX5    -SI.IHP                                                 POST      750
                     0100000320 +                 RJ     OSM         OUTPUT *SUB* MACRO                          POST      751
           316  6160000006 +                      SB6    RTT                                                     POST      752
                          66211                   S"SZ"  B1+B1       SZ = 2                                      POST      753
           317  0400000110 +                      EQ     CII1                                                    POST      754
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    17
        TYPE III MEMORY REFERENCES ( LD , ST , STT )                  OSM 
  
                                        **        OSM - OUTPUT *SUB* MACRO CALL                                  POST      756
                                        *                                                                        POST      757
                                        *         ENTRY  (X5) = 24/XX,18/CA,18/IH OF SYMBOL TO BE OUTPUT         POST      758
                                        *                (B6) = -2*IH                                            POST      759
                                                                                                                 POST      760
           320  0200400320 +             OSM      ROUTINE                                                        POST      761
           321  67661                             SB6    B6-B1                                                   POST      762
                     5130001300 +                 SA3    =6L  SUB                                                POST      763
                               54206              SA2    A0+B6       WORDB = [O.SYM-2*IH-1]                      POST      764
           322  76110                             SX1    B1                                                      POST      765
                     6140000030                   SB4    24          UBC = 24                                    POST      766
                               20123              LX1    P.RA                                                    POST      767
           323  36612                             IX6    X1+X2       RA[IH] = RA[IH] + 1  */ ADVANCE SUB BLK LEN POST      768
                     10733                        BX7    X3                                                      POST      769
                          54620                   SA6    A2                                                      POST      770
           324  0100000534 +                      RJ     ASN         ADD THE NAME                                POST      771
           325  20552                             LX5    -IH.IHL                                                 POST      772
                     73650                        SX6    X5                                                      POST      773
                          0306000335 +            ZR     X6,OSM3     IF CA = 0                                   POST      774
           326  0336000330 +                      MI     X6,OSM1     IF CA < 0                                   POST      775
                          0100000622 +            RJ     CON                                                     POST      776
           327  0400000333 +                      EQ     OSM2                                                    POST      777
                                                                                                                 POST      778
           330  14666                    OSM1     BX6    -X6                                                     POST      779
                     0100000622 +                 RJ     CON                                                     POST      780
           331  21606                             AX6    6                                                       POST      781
                     6133000006                   SB3    B3+6                                                    POST      782
           332  7140000046                        SX4    1R-                                                     POST      783
                          20460                   LX4    48                                                      POST      784
                               12646              BX6    X4+X6                                                   POST      785
           333  7140000056               OSM2     SX4    1R,                                                     POST      786
                          20466                   LX4    54                                                      POST      787
                               12646              BX6    X4+X6                                                   POST      788
           334  0100000605 +                      RJ     ADC         ADD *,SNNNB*                                POST      789
                                                                                                                 POST      790
           335  0100000633 +             OSM3     RJ     TSB         TERMINATE STRING                            POST      791
           336  0400000320 +                      EQ     OSM                                                     POST      792
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    18
        CONDITIONAL JUMPS                                             CJUMPS
  
                                        **        X JUMPS - *  JT XI,IH  *                                       POST      794
                                                                                                                 POST      795
           337                           )JPX     BSS    0                                                       POST      796
                                                  ECHO   1,JT=("XJUMPS")                                         POST      797
                                                  VFD    42/5L  JT ,18/1L,                                       POST      798
                                                                                                                 POST      799
           347  20536                    .JPX     LX5    -SI.CAP                                                 POST      800
                     5235000337 +                 SA3    )JPX+X5     SKEL = JPX( CA[CI] )                        POST      801
                               20422              LX4    18                                                      POST      802
           350  12634                             BX6    X3+X4                                                   POST      803
                     20522                        LX5    SI.CAP-SI.IHP                                           POST      804
                          0100000562 +            RJ     RLV         FORM LABEL VALUE                            FCC1319    74
           351  20414                             LX4    12                                                      POST      806
                     43560                        MX5    -12                                                     POST      807
                          15345                   BX3    -X5*X4                                                  POST      808
                               12663              BX6    X6+X3                                                   POST      809
           352  54671                             SA6    A7+B1       TI = TI + 1;  [TI] = 10H  JX RI,LA          POST      810
                     11754                        BX7    X5*X4                                                   POST      811
                          54761                   SA7    A6+B1       TI = TI + 1;  [TI] = 8LBEL                  POST      812
                               66211              S"SZ"  B1+B1       SZ = 2                                      POST      813
           353  0302000110 +                      ZR     X2,CII1     IF SFLAG = 0                                POST      814
                          0400000367 +            EQ     CJP1                                                    POST      815
                                                                                                                 POST      816
                                        **        B JUMPS - *  JT BI,BF,IH  *                                    POST      817
                                                                                                                 POST      818
           354                           )JPBB    BSS    0                                                       POST      819
                                                  ECHO   1,JT=("BJUMPS")                                         POST      820
                                                  VFD    42/5L  JT ,18/1L,                                       POST      821
                                                                                                                 POST      822
           360  20536                    .JPBB    LX5    -SI.CAP                                                 POST      823
                     5235000354 +                 SA3    )JPBB+X5                                                POST      824
                               20422              LX4    18                                                      POST      825
           361  20530                             LX5    SI.CAP-SI.RJP                                           POST      826
                     12734                        BX7    X3+X4                                                   POST      827
                          15650                   BX6    -X0*X5                                                  POST      828
                               53466              SA4    B6+X6       RJ = RTT(REG[RJ])                           POST      829
           362  20566                             LX5    SI.RJP-SI.IHP                                           POST      830
                     12774                        BX7    X7+X4                                                   POST      831
                          54771                   SA7    A7+B1       TI = TI + 1;  [TI] = 10H  JX RI,RJ          POST      832
           363  0100000562 +                      RJ     RLV         FORM LABEL VALUE                            FCC1319    75
           364  7130000003                        SX3    1R,&1R                                                  POST      834
                          43160                   MX1    -12                                                     POST      835
                               13543              BX5    X4-X3                                                   POST      836
           365  20566                             LX5    -6                                                      POST      837
                     11715                        BX7    X1*X5                                                   POST      838
                          66211                   S"SZ"  B1+B1       SZ = 2                                      POST      839
                               54771              SA7    A7+B1       TI = TI + 1;  [TI] = 8L,LABEL               POST      840
                                                                                                                 POST      841
           366  0302000110 +                      ZR     X2,CII1     IF SFLAG = 0  */ LABEL NOT FROM SYMTAB      POST      842
                                                                                                                 POST      843
           367  55121                    CJP1     SA1    A2-B1       WORDB = WORDA - 1                           POST      844
                     20104                        LX1    59-P.GEN                                                POST      845
                          0321000110 +            PL     X1,CII1     IF ^GEN[WORDB]  */ NOT A DO GEN LABEL       POST      846
           370  5130000000 X                      SA3    O.LOOP                                                  POST      847
                          0303000110 +            ZR     X3,CII1     IF O.LOOP = 0  */ NO LOOP TABLE             POST      848
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    19
        CONDITIONAL JUMPS                                             CJUMPS
  
                                        *         R " 0, DETERMINE THE LENGTH OF THE LOOP ASSOCIATED WITH THE    POST      850
                                        *         LABEL AND SAVE IT IN THE CORRESPOINDING LOOP TABLE ENTRY.      POST      851
                                                                                                                 POST      852
           371  54220                             SA2    A2                                                      FCC1319    76
                     20222                        LX2    18                                                      POST      853
                          7222257676              SX2    X2-3R)AA                                                POST      854
           372  15420                             BX4    -X0*X2                                                  POST      855
                     63330                        SB3    X3                                                      POST      856
                          11202                   BX2    X0*X2       LABEL = 3RXY                                POST      857
                               21201              AX2    1                                                       POST      858
           373  12424                             BX4    X2+X4       INDEX = (X-1RA)*40B + Y-1RA                 POST      859
                     20401                        LX4    1           INDEX = 2*INDEX                             POST      860
                          53243                   SA2    B3+X4                                                   POST      861
                               76771              SX7    "PC"+B1                                                 POST      862
           374  7167000011                        SX6    "PC"+4+2+3                                              POST      863
                          0317000376 +            NZ     X7,CJP2     P = PC + SZ + 3 + IF( PC < 3 ) THEN 0 ELSE1 POST      864
           375  7266000001                        SX6    X6+1                                                    POST      865
           376  21602                    CJP2     AX6    2                                                       POST      866
                     20145                        LX1    1+P.GEN-P.RA                                            POST      867
                          73765                   SX7    "BL"+X6     JPEND = BL + P/4                            POST      868
                               73110              SX1    X1                                                      POST      869
           377  37471                             IX4    X7-X1       LPLEN[O.LOOP+INDEX] = JPEND - RA[WORDB[IH]] POST      870
                     12624                        BX6    X2+X4                                                   POST      871
                          54620                   SA6    A2                                                      POST      872
           400  0400000110 +                      EQ     CII1                                                    POST      873
  
  
                                        *         RJXJ   JT,XI,IH #  +  JT XI,*+1    , -  RJ IH                  POST      875
                                                                                                                 POST      876
                                         .PLI     IFNE   .PLI,0                                          ?PL/I   POST      877
                                         )RJXJ    VFD    42/7L+ RJXJ ,18/1R,                                     POST      878
                                                                                                                 POST      879
                                         .RJXJ    LX5    -SI.CAP                                                 POST      880
                                                  SA2    )JPX+X5                                                 POST      881
                                                  MX1    -12                                                     POST      882
                                                  LX2    -36                                                     POST      883
                                                  BX1    -X1*X2                                                  POST      884
                                                  LX1    6                                                       POST      885
                                                  BX7    X3+X1                                                   POST      886
                                                  SA7    A7+B1       SI = SI + 1;  [SI] = 10H  RJXJ JT,          POST      887
                                                  LX5    SI.CAP-SI.IHP                                           POST      888
                                                  SX3    1R,                                                     POST      889
                                                  LX4    6                                                       POST      890
                                                  BX7    X4+X3                                                   POST      891
                                                  LX7    42                                                      POST      892
                                                  SB4    60-18       UBC = 42                                    POST      893
                                                  RJ     ASN         ADD THE NAME                                POST      894
                                                  SX6    "PC"+4                                                  POST      895
                                                  ZR     X6,RJ63     IF PC = 0                                   POST      896
                                                  S"PC"  -4          PC = 0                                      POST      897
                                                  S"BL"  "BL"+1      BL = BL + 1                                 POST      898
                                                  EQ     RJ63                                                    POST      899
                                         .PLI     ENDIF                                                  'PL/I   POST      900
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    20
        UNCONDITIONAL JUMPS                                           JIN 
  
                                        **        INDEXED B JUMP - *  JP BI+IH *                                 POST      902
                                                                                                                 POST      903
           401  55551220550000450000     )JIN     VFD    42/5L  JP ,18/1L+                                       POST      904
                                                                                                                 POST      905
           402  20422                    .JIN     LX4    18                                                      POST      906
                     12634                        BX6    X3+X4                                                   POST      907
                          20560                   LX5    -SI.IHP                                                 POST      908
                               73750              SX7    X5                                                      POST      909
           403  0317000406 +                      NZ     X7,JIN1     IF IH[PI] " 0                               POST      910
                          7140100000              SX4    1L -1L+                                                 POST      911
           404  43560                             MX5    -12                                                     POST      912
                     11656                        BX6    X5*X6                                                   POST      913
                          36764                   IX7    X6+X4                                                   POST      914
                               54771              SA7    A7+B1       TI = TI + 1;  [TI] = 8L  JP BI              POST      915
           405  0400000411 +                      EQ     JIN2                                                    POST      916
                                                                                                                 POST      917
           406  0100000547 +             JIN1     RJ     FLV         FORM LABEL VALUE                            POST      918
           407  20414                             LX4    12                                                      POST      919
                     43560                        MX5    -12                                                     POST      920
                          15345                   BX3    -X5*X4                                                  POST      921
                               12663              BX6    X6+X3                                                   POST      922
           410  54671                             SA6    A7+B1       TI = TI + 1;  [TI] = 10H  JP BI+LA          POST      923
                     11754                        BX7    X5*X4                                                   POST      924
                          5076000001              SA7    A6+1        TI = TI + 1;  [TI] = 8LBEL                  POST      925
                                                                                                                 POST      926
                                        *         ADVANCE PARCEL COUNT, FORCE UPPER AFTER                        POST      927
                                                                                                                 POST      928
           411  76671                    JIN2     SX6    "PC"+B1     S = PC - 3                                  POST      929
                     66551                        S"BL"  "BL"+B1     BL = BL + 1                                 POST      930
                          6170777773              S"PC"  -4          PC = 0        */ FORCE UPPER                POST      931
           412  54551                             SA5    A5+B1       PI = PI + 1                                 POST      932
                     0336000113 +                 MI     X6,CII2     IF S < 0      */ PC < 3                     POST      933
                               66551              S"BL"  "BL"+B1     BL = BL + 1                                 POST      934
           413  0400000113 +                      EQ     CII2                                                    POST      935
  
  
  
                                        **        UNCONDITIONAL JUMP - *  EQ IH  * OR *  ED IH,CA  *             POST      937
                                                                                                                 POST      938
           414  55550521550000000000     )UJP     VFD    60/5L  EQ                                               POST      939
                                                                                                                 POST      940
           415  20536                    .UJP     LX5    R1.INP                                                  POST      941
                     10633                        BX6    X3                                                      POST      942
                          63450                   SB4    X5                                                      POST      943
                               20536              LX5    R1.INP                                                  POST      944
           416  0100000562 +                      RJ     RLV         FORM LABEL VALUE                            FCC1319    77
           417  10766                             BX7    X6                                                      POST      946
                     22604                        LX6    X4                                                      POST      947
                          0100000613 +            RJ     CCC                                                     POST      948
           420  0540000424 +                      NZ     B4,UJP2     IF IN[R1] " 0                               POST      949
                          6140000036              SB4    60-30       UBC = 60-30                                 POST      950
           421  0100000605 +             UJP1     RJ     ADC                                                     POST      951
           422  0100000633 +                      RJ     TSB                                                     POST      952
           423  0400000411 +                      EQ     JIN2                                                    POST      953
                                                                                                                 POST      954
           424  5130001301 +             UJP2     SA3    =5L  ED                                                 POST      955
                          77541                   SX5    B4-B1                                                   POST      956
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    21
        UNCONDITIONAL JUMPS                                           UJP 
  
                               10733              BX7    X3                                                      POST      957
           425  6140000036                        SB4    60-30       UBC = 60-30                                 POST      958
                          0100000605 +            RJ     ADC                                                     POST      959
           426  10655                             BX6    X5                                                      POST      960
                     0100000622 +                 RJ     CON                                                     POST      961
           427  7150000056                        SX5    1R,                                                     POST      962
                          20566                   LX5    54                                                      POST      963
                               12656              BX6    X5+X6                                                   POST      964
           430  0400000421 +                      EQ     UJP1                                                    POST      965
  
  
  
                                        **        ENT - ALTERNATE ENTRY POINT DEFINITION                         POST      967
                                                                                                                 POST      969
           431  55550516242257550000     )ENT     DATA   8L  ENTR.                                               POST      970
                                                                                                                 POST      971
           432  7167000004               .ENT     SX6    "PC"+4                                                  FEAT155A   82
                          0306000434 +            ZR     X6,ENT1     IF PC=0                                     FEAT155A   83
           433  6170777773                        S"PC"  -4          PC=0           */FORCE UPPER                FEAT155A   84
                          6155000001              S"BL"  "BL"+1      BL=BL+1                                     FEAT155A   85
           434  10733                    ENT1     BX7    X3                                                      FEAT155A   86
                     6140000014                   SB4    12          UBC = 12                                    POST      973
           435  0100000534 +                      RJ     ASN         ADD NAME                                    POST      974
           436  0100000633 +                      RJ     TSB         TERMINATE BUFFER                            POST      975
           437  5130000000 X                      SA3    WB.LAB                                                  POST      976
                          20501                   LX5    1                                                       POST      977
                               63251              SB2    X5+B1                                                   POST      978
           440  76150                             SX1    "BL"                                                    POST      979
                     55202                        SA2    A0-B2       WORDB = [O.SYM-2*IH-1]                      POST      980
                          20123                   LX1    P.RA                                                    POST      981
                               43741              MX7    -L.ADF                                                  POST      982
           441  36431                             IX4    X3+X1                                                   POST      983
                     43714                        MX7    P.ADF                                                   POST      984
                          11272                   BX2    X7*X2                                                   POST      985
                               12642              BX6    X4+X2       RA[WORDB] = BL                              POST      986
           442  54620                             SA6    A2                                                      POST      987
                     6170777773                   S"PC"  -4          PC = 0                                      POST      988
           443  5110000000 X                      SA1    =XTEMPA0.                                               POST      989
                          6155000004              S"BL"  "BL"+4                                                  F2950F4   168
           444  0301000445 +                      ZR     X1,ENT2     BL = BL + IF( TEMPA0. = 0 ) THEN 4; ELSE 10 F2950F4   169
                          6155000006              S"BL"  "BL"+6                                                  F2950F4   170
                                                                                                                 POST      993
           445  54551                    ENT2     SA5    A5+B1       PI = PI + 1                                 POST      994
                     0400000113 +                 EQ     CII2                                                    POST      995
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    22
        LABEL DEFINATION                                              LAB 
  
                                        **        LABEL DEFINITION - FORCE UPPER BEFORE, DEFINE ADDRESS OF SYMBO POST      997
                                                                                                                 POST      998
           446  55022323553302000000     )LAB     DATA   7L BSS 0B                                               POST      999
                                                                                                                 POST     1000
           447  7167000004               .LAB     SX6    "PC"+4                                                  POST     1001
                          0306000451 +            ZR     X6,LAB1     IF PC = 0                                   POST     1002
           450  6170777773                        S"PC"  -4          PC = 0        */ FORCE UPPER BEFORE         POST     1003
                          6155000001              S"BL"  "BL"+1      BL = BL + 1                                 POST     1004
                                                                                                                 POST     1005
           451  7275677777               LAB1     SX7    X5-I.GL                                                 POST     1006
                          0327000455 +            PL     X7,LAB2     IF IH[R1] > I.GL                            POST     1007
                                                                                                                 POST     1008
           452  22615                             LX6    B1,X5                                                   POST     1009
                     76450                        SX4    "BL"                                                    POST     1010
                          63261                   SB2    X6+B1                                                   POST     1011
                               55202              SA2    A0-B2       WORDB = [O.SYM-2*IH[R1]-1]                  POST     1012
           453  5110000000 X                      SA1    =XWB.LAB                                                POST     1013
                          20423                   LX4    P.RA                                                    POST     1014
                               36714              IX7    X1+X4       RA[WORDB] = BL                              POST     1015
           454  12627                             BX6    X2+X7                                                   POST     1016
                     54620                        SA6    A2                                                      POST     1017
                          0400000464 +            EQ     LAB3                                                    POST     1018
                                                                                                                 POST     1019
           455  5110000000 X             LAB2     SA1    O.GLT                                                   POST     1020
                          5120000000 X            SA2    =XL.ELT                                                 FCC2113    41
           456  76650                             SX6    "BL"                                                    POST     1021
                     6237777776                   SB3    X7-1                                                    POST     1022
                               53613              SA6    X1+B3       GLT(H-1) = BL                               POST     1023
           457  0302000464 +                      ZR     X2,LAB3     IF L.ELT = 0  */ NO ELIMINATED LABEL DEFS   FCC2113    42
                                                                                                                 FCC2113    43
                                        *         SEARCH *ELT* TO SEE IF THIS LABEL IS EQUIVALENT TO A           FCC2113    44
                                        *         PROGRAMMER DEFINED LABEL, AND SET FLAG TO OUTPUT THE DEFINITIO FCC2113    45
                                        *         OF IT                                                          FCC2113    46
                                                                                                                 FCC2113    47
                          10677                   BX6    X7                                                      FCC2113    48
           460  5110000000 X                      SA1    =XO.ELT                                                 FCC2113    49
                          53610                   SA6    X1          [ELT] = H     */ STORE SEARCH TERMINATOR    FCC2113    50
                               63420              SB4    X2                                                      FCC2113    51
           461  53314                             SA3    X1+B4             */ SEARCH TABLE                       FCC2113    52
           462  13637                   +         BX6    X3-X7                                                   FCC2113    53
                     55331                        SA3    A3-B1                                                   FCC2113    54
                          63460                   SB4    X6                                                      FCC2113    55
                               21622              AX6    18                                                      FCC2113    56
           463  0540000462 +                      NZ     B4,*-1                                                  FCC2113    57
                          5160000476 +            SA6    LABA        LABA = IH OF EQUIVALENT OR 0                FCC2113    58
                                                                                                                 FCC2113    59
                                                                                                                 POST     1024
                                        *         OUTPUT LABEL DEFINITION - *IH BSS 0B  *                        POST     1025
                                                                                                                 POST     1026
           464  6140000074               LAB3     SB4    60          UBC = 60                                    POST     1027
                          0100000547 +            RJ     FLV         FORM LABEL                                  POST     1028
           465  10644                             BX6    X4                                                      POST     1029
                     0100000613 +                 RJ     CCC         COUNT CHARS                                 POST     1030
           466  5130000446 +                      SA3    )LAB                                                    POST     1031
                          22706                   LX7    X6                                                      POST     1032
                               67443              SB4    B4-B3       UBC = UBC - CCC(LAB)                        POST     1033
           467  22603                             LX6    X3                                                      POST     1034
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    23
        LABEL DEFINATION                                              LAB 
  
                     6130000052                   SB3    42                                                      POST     1035
           470  0100000605 +                      RJ     ADC         ADD * BSS 0B*                               POST     1036
           471  0100000633 +                      RJ     TSB                                                     POST     1037
           472  5140000476 +                      SA4    LABA                                                    FCC2113    60
                          0314000474 +            NZ     X4,LAB4     IF LABA " 0                                 FCC2113    61
           473  54551                             SA5    A5+B1       PI = PI + 1                                 POST     1038
                     0400000113 +                 EQ     CII2                                                    POST     1039
                                                                                                                 FCC2113    62
                                        *         OUTPUT LABEL DEF OF ELIMINATED LABEL                           FCC2113    63
                                                                                                                 FCC2113    64
           474  43600                    LAB4     MX6    0                                                       FCC2113    65
                     54640                        SA6    A4          CLEAR FLAG                                  FCC2113    66
                          10544                   BX5    X4          SETUP X5                                    FCC2113    67
           475  0400000451 +                      EQ     LAB1                                                    FCC2113    68
                                                                                                                 FCC2113    69
           476                     1     LABA     BSSZ   1                                                       FCC2113    70
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    24
        RETURN JUMPS                                                  RJX 
  
                                        **        RETURN JUMP - *  RJ IH  *                                      POST     1041
                                                                                                                 POST     1042
           477  55552212550000000000     )RJ3     VFD    60/5L  RJ                                               POST     1043
                                                                                                                 POST     1044
           500  10733                    .RJ3     BX7    X3                                                      POST     1045
                     6140000036                   SB4    60-30       UBC = 60-30                                 POST     1046
           501  0100000534 +                      RJ     ASN                                                     POST     1047
           502  0100000633 +                      RJ     TSB                                                     POST     1048
           503  0400000411 +                      EQ     JIN2                                                    POST     1049
  
  
  
                                        **        RETURN JUMP WITH TRACEBACK - *+ RJT IH,CA,F  *                 POST     1051
                                                                                                                 POST     1052
           504  45552212245500000000     )RJ6     VFD    60/6L+ RJT                                              POST     1053
                                                                                                                 POST     1054
           505  6120000004               .RJ6     SB2    4                                                       POST     1055
                          10733                   BX7    X3                                                      POST     1056
                               76672              SX6    "PC"+B2                                                 POST     1057
           506  0306000507 +                      ZR     X6,RJ61     IF PC = 0     */ FORCE UPPER BEFORE         POST     1058
                          66551                   S"BL"  "BL"+B1     BL = BL + 1                                 POST     1059
                               67702              S"PC"  -B2         PC = 0                                      POST     1060
                                                                                                                 POST     1061
           507  6140000030               RJ61     SB4    60-36       UBC = 60-36                                 POST     1062
                          0100000534 +            RJ     ASN         ADD NAME TO STRING                          POST     1063
           510  20536                             LX5    -R1.INP                                                 POST     1064
                     7215770000                   SX1    X5-7777B                                                POST     1065
                               73650              SX6    X5                                                      POST     1066
           511  0331000512 +                      MI     X1,RJ62     IF IN[R1] < 7777B                           POST     1067
                          66551                   S"BL"  "BL"+B1     BL = BL + 1   */ ACCOUNT FOR EXTRA WORD     POST     1068
                                                                                                                 POST     1069
           512  0100000622 +             RJ62     RJ     CON         CONVERT LINE NUMBER                         POST     1070
           513  7140000056                        SX4    1R,                                                     POST     1071
                          20466                   LX4    54                                                      POST     1072
                               12646              BX6    X4+X6                                                   POST     1073
           514  0100000605 +                      RJ     ADC                                                     POST     1074
           515  0660000522 +                      PL     B6,RJ63     IF FPFLAG = 0                               POST     1075
                          67261                   SB2    B6-B1                                                   POST     1076
                               76110              SX1    B1                                                      POST     1077
           516  54202                             SA2    A0+B2       WORDB = [O.SYM-2*IH-1]                      POST     1078
                     6160000006 +                 SB6    RTT                                                     POST     1079
                               20123              LX1    P.RA                                                    POST     1080
           517  36612                             IX6    X1+X2       RA[IH] = RA[IH] + 1                         POST     1081
                     54620                        SA6    A2                                                      POST     1082
                          5160000003 +            SA6    LSR         LSR = WORDB   */ INDICATE SUB REFS          POST     1083
           520  6130000014                        SB3    12                                                      POST     1084
                          7160005606              SX6    2R,F                                                    POST     1085
           521  20660                             LX6    48                                                      POST     1086
                     0100000605 +                 RJ     ADC         ADD *,F*                                    POST     1087
                                                                                                                 POST     1088
           522  0100000633 +             RJ63     RJ     TSB         TERMINATE STRING                            POST     1089
           523  54551                             SA5    A5+B1       PI = PI + 1                                 POST     1090
                     66551                        S"BL"  "BL"+B1     BL = BL + 1   */ COUNT LENGTH OF RJ         POST     1091
                          0400000113 +            EQ     CII2                                                    POST     1092
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    25
        ASN - ADD SYMBOLIC NAME                                       ASN 
  
                                        **        ASN - ADD SYMBOLIC NAME TO CHAR STRING                         POST     1094
                                        *         ENTRY  (X5) = SHIFT( [PI] , -SI.IHP )                          POST     1095
                                        *                (B4) = UBC , ETC                                        POST     1096
                                        *                                                                        POST     1097
                                        *         EXIT   (B6) = FPFLAG < 0 IF SYMBOL WAS A F.P.                  POST     1098
                                        *                                                                        POST     1099
                                        *         USES   X - 1, 2, 3, 4, 6 , B - 2, 3                            POST     1100
                                                                                                                 POST     1101
           524  10366                    ASN0     BX3    X6                                                      POST     1102
                     5140001302 +                 SA4    =6R000000                                               POST     1103
                               21317              AX3    IH.IP                                                   POST     1104
           525  5213001305 +                      SA1    ASNA+X3                                                 POST     1105
                          43271                   MX2    -3                                                      POST     1106
                               66200              SB2    B0                                                      POST     1107
           526  43355                             MX3    -IH.HL                                                  POST     1108
                     6130000074                   SB3    60                                                      POST     1109
                               15653              BX6    -X3*X5                                                  POST     1110
                                                                                                                 POST     1111
           527  15362                    ASN1     BX3    -X2*X6                                                  POST     1112
                     21603                        AX6    3                                                       POST     1113
                          22323                   LX3    B2,X3                                                   POST     1114
                               36434              IX4    X3+X4                                                   POST     1115
           530  6122000006                        SB2    B2+6                                                    POST     1116
                          0316000527 +            NZ     X6,ASN1                                                 POST     1117
                                                                                                                 POST     1118
           531  67332                             SB3    B3-B2                                                   POST     1119
                     22434                        LX4    B3,X4                                                   POST     1120
                          43636                   MX6    30                                                      POST     1121
                               11464              BX4    X6*X4                                                   POST     1122
           532  20452                             LX4    -18                                                     POST     1123
                     12614                        BX6    X1+X4                                                   POST     1124
                          6132000022              SB3    B2+18                                                   POST     1125
           533  0100000605 +             ASN2     RJ     ADC         ADD NAME TO STRING                          POST     1126
                                                                                                                 POST     1127
           534  0200400534 +             ASN      ROUTINE                                                        POST     1128
           535  7265677777                        SX6    X5-I.GL                                                 POST     1129
                          0326000524 +            PL     X6,ASN0     IF IH[PI] \ I.GL                            POST     1130
                                                                                                                 POST     1131
           536  43160                             MX1    -12                                                     FCC0882    14
                     15651                        BX6    -X1*X5                                                  FCC0882    15
                          63360                   SB3    X6                                                      FCC0882    16
                               66233              SB2    B3+B3                                                   POST     1133
           537  43152                             MX1    -18                                                     POST     1134
                     55202                        SA2    A0-B2       WORDA = [O.SYM-2*IH[PI]]                    POST     1135
                          5130001303 +            SA3    =3R                                                     POST     1136
           540  11412                             BX4    X1*X2                                                   POST     1137
                     43144                      MX1      -24                                                     FCC1576X    4
                          20252                   LX2    59-P.FP                                                 POST     1138
                               15141              BX1    -X1*X4                                                  FCC1576X    5
           541  0322000542 +                      PL     X2,ASN3     IF ^FP[WORDA]                               POST     1139
                          67602                   SB6    -B2         FPFLAG = -2*IH[PI]                          POST     1140
                                                                                                                 POST     1141
           542  0311000543 +             ASN3     NZ     X1,ASN4     IF CHAR 7 " 0                               FCC1576X    6
                          5130001304 +            SA3    =4R                                                     FCC1576X    7
           543  12643                    ASN4     BX6    X4+X3                                                   FCC1576X    8
                     0100000613 +                 RJ     CCC         COUNT CHARS                                 POST     1143
           544  0400000533 +                      EQ     ASN2                                                    POST     1144
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    26
        ASN - ADD SYMBOLIC NAME                                       ASN 
  
                                                                                                                 POST     1145
                                1305 +   ASNA     LIT    3L#GL,3L[AP,3L]IO                                       POST     1146
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    27
        FLV - FORM LABEL VALUE                                        FLV 
  
                                        **        FLV - FORM LABEL VALUE                                         POST     1148
                                        *                                                                        POST     1149
                                        *         ENTRY  (X5) = SHIFT( [PI] , -SI.IHP )                          POST     1150
                                        *                                                                        POST     1151
                                        *         EXIT   (X4) = 10HLABEL                                         POST     1152
                                        *                (X2) = 0 IF LABEL NOT FROM SYMTAB, ELSE (A2) = WORDA    POST     1153
                                        *                                                                        POST     1154
                                        *         USES   X - 1, 2, 3, 4, 5, 7 , B - 2,3                          POST     1155
                                                                                                                 POST     1156
           545  63350                    FLV0     SB3    X5                                                      POST     1157
                     5110001304 +                 SA1    =4R                                                     POST     1158
                               66233              SB2    B3+B3                                                   POST     1159
           546  55202                             SA2    A0-B2       WORDA = [O.SYM-2*IH[PI]]                    POST     1160
                     43744                        MX7    36                                                      POST     1161
                          11572                   BX5    X7*X2                                                   POST     1162
                               12451              BX4    X5+X1                                                   POST     1163
           547  0200400547 +             FLV      ROUTINE                                                        POST     1164
           550  7275677777                        SX7    X5-I.GL                                                 POST     1165
                          0337000545 +            MI     X7,FLV0     IF IH[PI] < I.GL                            POST     1166
           551  5110001305 +                      SA1    =3L#GL                                                  POST     1167
                          0100000577 +            RJ     COD         CONVERT H FIELD TO DIGITS                   POST     1168
           552  6132777725                        SB3    B2-42                                                   POST     1169
                          5130001310 +            SA3    =10H                                                    POST     1170
           553  23434                             AX4    B3,X4                                                   POST     1171
                     43722                        MX7    18                                                      POST     1172
                          12414                   BX4    X1+X4       GLNNN                                       POST     1173
                               23727              AX7    B2,X7                                                   POST     1174
           554  15237                             BX2    -X7*X3                                                  POST     1175
                     12424                        BX4    X2+X4                                                   POST     1176
                          7120000000              SX2    0                                                       POST     1177
           555  0400000547 +                      EQ     FLV                                                     POST     1178
                                                                                                                 FCC1319    78
                                        **        RLV - FROM REFERENCED LABEL VALUE, SAME AS *FLV*, EXCEPT IT    FCC1319    79
                                        *         CHECKS THE *LC* BIT FOR A LABEL SUBSTITUTION.                  FCC1319    80
                                                                                                                 FCC1319    81
           556  5110001305 +             RLV0     SA1    =3L#GL                                                  FCC1319    82
                          0100000577 +            RJ     COD                                                     FCC1319    83
           557  5130001310 +                      SA3    =10H                                                    FCC1319    84
                          6132777725              SB3    B2-42                                                   FCC1319    85
           560  23434                             AX4    B3,X4                                                   FCC1319    86
                     43722                        MX7    18                                                      FCC1319    87
                          12414                   BX4    X1+X4       #GLNNN                                      FCC1319    88
                               23727              AX7    B2,X7                                                   FCC1319    89
           561  15237                             BX2    -X7*X3                                                  FCC1319    90
                     12424                        BX4    X2+X4       PAD WITH BLANKS                             FCC1319    91
                          7120000000              SX2    0           X2 = 0                                      FCC1319    92
           562  0200400562 +             RLV      ROUTINE                                                        FCC1319    93
           563  7275677777                        SX7    X5-I.GL                                                 FCC1319    94
                          0327000556 +            PL     X7,RLV0     IF IH[PI] \ I.GL                            FCC1319    95
           564  63350                             SB3    X5                                                      FCC1319    96
                     66233                        SB2    B3+B3                                                   FCC1319    97
                          55202                   SA2    A0-B2       WORDA = SYM(IH)                             FCC1319    98
                               43744              MX7    36                                                      FCC1319    99
           565  5110001304 +                      SA1    =4R                                                     FCC1319   100
                          11572                   BX5    X7*X2                                                   FCC1319   101
                               20254              LX2    59-P.LC                                                 FCC1319   102
           566  12451                             BX4    X5+X1                                                   FCC1319   103
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    28
        FLV - FORM LABEL VALUE                                        FLV 
  
                     0322000562 +                 PL     X2,RLV      IF ^LC[WORDA]                               FCC1319   104
                                                                                                                 FCC1319   105
                                        *         CHECK *LCT* AND *BN* TO SEE IF THIS REFERENCE TO THE LABEL     FCC1319   106
                                        *         IS FROM INSIDE THE LOOP FOR WHICH THE LABEL WAS CHANGED.       FCC1319   107
                                                                                                                 FCC1319   108
                               55221              SA2    A2-B1       WORDB = WORDA - 1                           FCC1319   109
           567  43760                             MX7    -L.LCO                                                  FCC1319   110
                     15327                        BX3    -X7*X2      L = LCO[WORDB]                              FCC1319   111
                          5110000000 X            SA1    O.LCT                                                   FCC1319   112
           570  5120000000 X                      SA2    O.BIT                                                   FCC1319   113
                          63210                   SB2    X1                                                      FCC1319   114
                               63320              SB3    X2                                                      FCC1319   115
           571  53132                    RLV1     SA1    B2+X3       LCW = LCT(L)                                FCC1319   116
                     5130000000 X                 SA3    BN          K = BN                                      FCC1319   117
                               43555              MX5    -BI.OLNL                                                FCC1319   118
                                                                                                                 FCC1319   119
           572  13713                    RLV2     BX7    X1-X3                                                   FCC1319   120
                     15775                        BX7    -X5*X7                                                  FCC1319   121
                          0307000576 +            ZR     X7,RLV3     IF K = HBN[LCW]                             FCC1319   122
           573  53333                             SA3    B3+X3                                                   FCC1319   123
                     20326                        LX3    -BI.OLNP                                                FCC1319   124
                          15335                   BX3    -X5*X3      K = OLN[BIT(K)]                             FCC1319   125
           574  0313000572 +                      NZ     X3,RLV2     IF K " 0                                    FCC1319   126
                                                                                                                 FCC1319   127
                          20130                   LX1    -LC.NEXTP                                               FCC1319   128
                               73310              SX3    X1          L = NEXT[LCW]                               FCC1319   129
           575  0313000571 +                      NZ     X3,RLV1     IF L " 0      */ NOT END OF CHAIN           FCC1319   130
                          0400000562 +            EQ     RLV                                                     FCC1319   131
                                                                                                                 FCC1319   132
           576  20152                    RLV3     LX1    -LC.GLNP                                                FCC1319   133
                     73710                        SX7    X1          H = GLN[LCW]  */ CHANGE TO A *GL*           FCC1319   134
                          0400000556 +            EQ     RLV0                                                    FCC1319   135
  
  
                                        **        COD - CONVERT OCTAL DIGITS                                     POST     1180
                                        *                                                                        POST     1181
                                        *         ENTRY  (X7) = BINARY NUMBER                                    POST     1182
                                        *                                                                        POST     1183
                                        *         EXIT   (X4) = RIGHT JUSTIFIED BCD STRING                       POST     1184
                                        *                (B2) = 6*DIGIT COUNT                                    POST     1185
                                        *                                                                        POST     1186
                                        *         USES   X - 2, 3, 4, 5, 7                                       POST     1187
                                                                                                                 POST     1188
           577  0200400577 +             COD      ROUTINE                                                        POST     1189
           600  5140001302 +                      SA4    =6R000000                                               POST     1190
                          43271                   MX2    -3                                                      POST     1191
                               66200              SB2    B0                                                      POST     1192
           601  15572                    COD1     BX5    -X2*X7                                                  POST     1193
                     22325                        LX3    B2,X5                                                   POST     1194
                          36434                   IX4    X3+X4                                                   POST     1195
                               21703              AX7    3                                                       POST     1196
           602  6122000006                        SB2    B2+6                                                    POST     1197
                          0317000601 +            NZ     X7,COD1                                                 POST     1198
           603  43701                             MX7    1                                                       POST     1199
                     6132777704                   SB3    B2-59                                                   POST     1200
                               22737              LX7    B3,X7                                                   POST     1201
           604  15447                             BX4    -X7*X4                                                  POST     1202
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    29
        FLV - FORM LABEL VALUE                                        COD 
  
                     0400000577 +                 EQ     COD                                                     POST     1203
  
  
  
                                        **        ADC - ADD CHARACTERS TO STRING                                 POST     1205
                                        *                                                                        POST     1206
                                        *         ENTRY  (X6) = CHAR STRING                                      POST     1207
                                        *                (B3) = BIT COUNT OF CHARS IN STRING                     POST     1208
                                        *                (X7) = ASSEMBLED STRING, 0L FORMAT                      POST     1209
                                        *                (B4) = UBC , UNUSED BIT COUNT ( FOR X7 )                POST     1210
                                        *                                                                        POST     1211
                                        *         USES   X - 1, 2, 3, 4, 6 , B - 2                               POST     1212
                                                                                                                 POST     1213
           605  0200400605 +             ADC      ROUTINE                                                        POST     1214
           606  67241                             SB2    B4-B1                                                   POST     1215
                     43401                        MX4    1                                                       POST     1216
                          23424                   AX4    B2,X4                                                   POST     1217
                               11346              BX3    X4*X6                                                   POST     1218
           607  22243                             LX2    B4,X3                                                   POST     1219
                     12727                        BX7    X2+X7                                                   POST     1220
                          15164                   BX1    -X4*X6                                                  POST     1221
                               22641              LX6    B4,X1                                                   POST     1222
           610  67443                             SB4    B4-B3       UBC = UBC - CC                              POST     1223
                     0704000605 +                 GT     B4,ADC      IF UBC > 0                                  POST     1224
                               54771              SA7    A7+B1       TI = TI + 1;  [TI] = STRING                 POST     1225
           611  6144000074                        SB4    B4+60       UBC = UBC + 60                              POST     1226
                          10766                   BX7    X6                                                      POST     1227
           612  0400000605 +                      EQ     ADC                                                     POST     1228
  
  
  
                                        **        CCC - COUNT CHARS IN LEFT JUSTIFIED BLANK FILLED STRING        POST     1230
                                        *                ALGORITHM IS A VARIANT OF *SFN* ( SPACE FILL NAME )     POST     1231
                                        *                                                                        POST     1232
                                        *         ENTRY  (X6) = STRING TO BE ADDED ( @ 8 CHARS )                 POST     1233
                                        *                                                                        POST     1234
                                        *         EXIT   (B3) = 6*CHAR COUNT                                     POST     1235
                                        *                (X6) = 0L_STRING  ( TRAILING BLANKS REMOVED )           POST     1236
                                        *                                                                        POST     1237
                                        *         USES   X - 1, 2, 3, 4 , B - 3                                  POST     1238
                                                                                                                 POST     1239
           613  0200400613 +             CCC      ROUTINE                                                        POST     1240
           614  5110001310 +                      SA1    =1H                                                     POST     1241
                          6130000067              SB3    60-5                                                    POST     1242
           615  13216                             BX2    X1-X6                                                   POST     1243
                     76310                        SX3    B1                                                      POST     1244
                          5110001311 +            SA1    =40404040404040404040B                                  POST     1245
           616  37423                             IX4    X2-X3       10LXXXX-177...                              POST     1246
                     16324                        BX3    -X4+X2      77...774X00...00                            POST     1247
                          11413                   BX4    X1*X3                                                   POST     1248
                               22334              LX3    B3,X4                                                   POST     1249
           617  37243                             IX2    X4-X3       373700..00                                  POST     1250
                     12124                        BX1    X2+X4       7777770...0                                 POST     1251
                          11616                   BX6    X1*X6                                                   POST     1252
                               21114              AX1    12                                                      POST     1253
           620  14211                             BX2    -X1                                                     POST     1254
                     27302                        PX3    X2                                                      POST     1255
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    30
        FLV - FORM LABEL VALUE                                        CCC 
  
                          24433                   NX4    B3,X3                                                   POST     1256
           621  0400000613 +                      EQ     CCC                                                     POST     1257
  
  
  
                                        **        CON - CONVERT OCTAL NUMBER                                     POST     1259
                                        *                                                                        POST     1260
                                        *         ENTRY  (X6) = BINARY NUMBER                                    POST     1261
                                        *                                                                        POST     1262
                                        *         EXIT   (X6) = 0L;NNNNB                                         POST     1263
                                        *                (B3) = 6*CHAR COUNT                                     POST     1264
                                        *                                                                        POST     1265
                                        *         USES   X - 2, 3, 4, 6  , B - 2, 3                              POST     1266
                                                                                                                 POST     1267
           622  0200400622 +             CON      ROUTINE                                                        POST     1268
           623  5130000631 +                      SA3    CONA                                                    POST     1269
                          43271                   MX2    -3                                                      POST     1270
                               26433              UX4    B3,X3                                                   POST     1271
                                                                                                                 POST     1272
           624  15362                    CON1     BX3    -X2*X6                                                  POST     1273
                     22333                        LX3    B3,X3                                                   POST     1274
                          36434                   IX4    X3+X4                                                   POST     1275
                               21603              AX6    3                                                       POST     1276
           625  6133000006                        SB3    B3+6                                                    POST     1277
                          0316000624 +            NZ     X6,CON1                                                 POST     1278
                                                                                                                 POST     1279
           626  43601                             MX6    1                                                       POST     1280
                     6123777704                   SB2    B3-59                                                   POST     1281
                               22226              AX2    -B2,X6                                                  POST     1282
           627  15442                             BX4    -X2*X4                                                  POST     1283
                     6123777711                   SB2    B3-54                                                   POST     1284
                               23624              LX6    -B2,X4                                                  POST     1285
           630  6133000006                        SB3    B3+6                                                    POST     1286
                          0400000622 +            EQ     CON                                                     POST     1287
                                                                                                                 POST     1288
           631  20060033333333333302     CONA     VFD    12/2006B,48/7R000000B                                   POST     1289
  
  
  
                                        **        TSB - TERMINATE STRING BUFFER                                  POST     1291
                                        *                                                                        POST     1292
                                        *         ENTRY  (X7) = LAST WORD OF ASSEMBLED STRING                    POST     1293
                                        *                (B4) = UNUSED BIT COUNT                                 POST     1294
                                                                                                                 POST     1295
           632  11442                    TSB0     BX4    X4*X2                                                   POST     1296
                     12774                        BX7    X7+X4                                                   POST     1297
                          5077000001              SA7    A7+1                                                    POST     1298
           633  0200400633 +             TSB      ROUTINE                                                        POST     1299
           634  6134777763                        SB3    B4-12                                                   POST     1300
                          5110001310 +            SA1    =1H                                                     POST     1301
           635  6144777704                        SB4    B4-59                                                   POST     1302
                          43201                   MX2    1                                                       POST     1303
                               22342              AX3    -B4,X2                                                  POST     1304
           636  15213                             BX2    -X3*X1                                                  POST     1305
                     43460                        MX4    -12                                                     POST     1306
                          0630000632 +            GE     B3,TSB0     IF UBC \ 12                                 POST     1307
           637  12627                             BX6    X2+X7                                                   POST     1308
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    31
        FLV - FORM LABEL VALUE                                        TSB 
  
                     54671                        SA6    A7+B1                                                   POST     1309
                          11741                   BX7    X4*X1                                                   POST     1310
                               54761              SA7    A6+B1                                                   POST     1311
           640  0400000633 +                      EQ     TSB                                                     POST     1312
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    32
        OPCODE JUMP TABLE VECTOR                                      JUMPT 
  
                                        **        OPR - DEFINE OPR MACRO TO FORM JUMP TABLE ENTRIES              POST     1314
                                                                                                                 POST     1315
                                                  MACRO  OPR,NAM                                                 POST     1316
                                         X        IFGE   OC.NAM,OC.LAB                                           POST     1317
                                         X        IFLT   OC.NAM,OC.CLR                                           POST     1318
                                                  NOREF  )NAM,.NAM                                               POST     1319
                                                  SA3    )NAM                                                    POST     1320
                                                  EQ     .NAM                                                    POST     1321
                                         X        ENDIF                                                          POST     1322
                                                  ENDM                                                           POST     1323
                                                                                                                 POST     1324
           641                           CIIA     BSS    0                                                       POST     1325
                                                  LIST   -R                                                      POST     1326
      L      6                                    LOC    OC.LAB                                                  POST     1327
      L      6                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
           735                                    LOC    *O                                                      POST     1329
                                                  LIST   R                                                       POST     1330
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    33
        OTC- OUTPUT TERMINAL CODE                                     OTC 
  
                                        **        OTC - OUTPUT TERMINAL CODE                                     POST     1332
                                        *                                                                        POST     1333
                                        *         OUTPUT CODE FOR -                                              POST     1334
                                        *                APLISTS                                                 POST     1335
                                        *                STORAGE FOR TEMPORARIES                                 POST     1336
                                        *                VARDIM INITIALIZATION CODE                              POST     1337
                                        *                TERMINATE F.P. SUBSTITUTION LISTS                       POST     1338
                                        *                ISSUE LEVEL 2/3 ADDRESS WORDS                           POST     1339
                                                                                                                 POST     1340
           735  00000000000000000000     OTC      ENTRY.                                                         POST     1341
           736  0100000054 +                      RJ     FSU         FORCE CODE. UPPER                           POST     1342
           737  0100000750 +                      RJ     OPL         OUTPUT PARAMETER LIST CODE                  POST     1343
           740  0100001140 +                      RJ     OVC         OUTPUT VARDIM CODE                          POST     1344
           741  0100001074 +                      RJ     IST         ISSUE STORAGE FOR TEMPS                     POST     1345
           742  0100001122 +                      RJ     TSL         TERMINATE F.P. SUBSTITUTION LISTS           POST     1346
           743  0100001235 +                      RJ     ILW         ISSUE LEVEL WORDS                           POST     1347
           744  0100000054 +                      RJ     FSU         FORCE CURRENT BLOCK UPPER                   POST     1348
           745  5110000001 +                      SA1    BLEN                                                    POST     1349
                          5120000000 +            SA2    BLPTR                                                   POST     1350
           746  10611                             BX6    X1          [BLPTR] = BLEN  */ SAVE LENGTH OF LAST BLOC POST     1351
                     53620                        SA6    X2                                                      POST     1352
                          0400000735 +            EQ     OTC                                                     POST     1353
  
  
  
                                        **        AI. - APLIST INDEX TABLE ENTRY FORMAT                          POST     1355
                                                                                                                 POST     1356
                                                  DESCRIBE AI.,60                                                POST     1357
                                         EQV      DEFINE 1           "0 IF EQUIVALENCED TO ANOTHER APLIST        POST     1358
                                                  DEFINE 5                                                       POST     1359
                                         LINK     DEFINE 18          LINK TO NEXT IN EQV CHAIN                   POST     1360
                                         LEN      DEFINE 18          NUMBER OF ENTRIES IN APLIST                 POST     1361
                                         INDX     DEFINE 18          INDEX TO LWA+1 IN *APL*                     POST     1362
                                                                                                                 POST     1363
                                         BIAS     DEQU   LEN         BIAS FOR EQUIV ENTRIES                      POST     1364
                                         ORD      DEQU   INDX        ORDINAL OF EQUIVALENT                       POST     1365
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    34
        OPL - OUTPUT PARAMETER LISTS                                  OPL 
  
                                        **        OPL - OUTPUT PARAMETER LISTS ( AP LISTS )                      POST     1367
                                                                                                                 POST     1368
                                                  USE    /TABLES/                                                POST     1369
             0                     1     EAC      BSS    1           EQUIV APLIST CHAIN                          POST     1370
             1                     2     AI       BSS    2           LOOP INDEX AND LIMIT                        POST     1371
             3                   200     OPLA     BSS    2*64        WORKING STORAGE BUFFER                      POST     1372
                                                  USE    0                                                       POST     1373
                                                                                                                 POST     1374
                                         OPLI     LX5    1+AP.STP                                                POST     1375
           747  0100001053 +                      RJ     AAN         PLUG FOR INDIRECT MODE                      POST     1376
                                                                                                                 POST     1377
           750  0200400750 +            OPL       ROUTINE                                                        POST     1378
           751  5110000000 X                      SA1    =XLEVEL2                                                FCC0504    20
                          0301000754 +            ZR     X1,OPL0     IF NO LEVEL STATEMENTS                      POST     1380
           752  5120000747 +                      SA2    OPLI                                                    POST     1381
                          10622                   BX6    X2          [OPL5] = OPLI  */ PLUG THE RJ               POST     1382
           753  5160001007 +                      SA6    OPL5                                                    POST     1383
                                                                                                                 POST     1384
           754  7110000620               OPL0     ALLOC  TXT,400     ALLOC( TXT , 400 )                          POST     1385
           756  5110000000 X                      SA1    O.API                                                   POST     1386
                          5120000000 X            SA2    N.AP                                                    POST     1387
           757  10611                             BX6    X1          AI = O.API                                  POST     1388
                     36712                        IX7    X1+X2       AL = O.API + N.AP                           POST     1389
                          0302000750 +            ZR     X2,OPL      IF N.AP = 0, EXIT..                         RSM3545C  161
           760  5160000001 C                      SA6    AI                                                      POST     1391
                          54761                   SA7    A6+B1                                                   POST     1392
                               43700              MX7    0                                                       POST     1393
           761  5170000000 C                      SA7    EAC         EAC = 0                                     POST     1394
                                                                                                                 POST     1395
                                        *         LOOP ON *API* AND OUTPUT THE APLISTS                           POST     1396
                                                                                                                 POST     1397
                          5120000001 C            SA2    AI                                                      POST     1398
           762  53120                    OPL1     SA1    X2          AP = [AI]                                   POST     1399
                                                  LX1    59-AI.EQVP                                              POST     1400
                     0321000767 +                 PL     X1,OPL3     IF ^EQV[AP]                                 POST     1401
                                                                                                                 POST     1402
           763  5140000000 C                      SA4    EAC                                                     POST     1403
                          20444                   LX4    AI.LINKP                                                POST     1404
                                                  LX1    1+AI.EQVP                                               POST     1405
                               12614              BX6    X1+X4       LINK[AP] = EAC                              POST     1406
           764  54610                             SA6    A1                                                      POST     1407
                     73720                        SX7    X2          EAC = AI                                    POST     1408
                          73221                   SX2    X2+B1       AI = AI + 1                                 POST     1409
                               54740              SA7    A4                                                      POST     1410
                                                                                                                 POST     1411
           765  54521                    OPL2     SA5    A2+B1                                                   POST     1412
                     37025                        IX0    X2-X5                                                   POST     1413
                          0330000762 +            MI     X0,OPL1     IF AI < AL                                  POST     1414
           766  0400001025 +                      EQ     OPL11                                                   POST     1415
                                                                                                                 POST     1416
                                        *         SETUP REGISTERS, OUTPUT APLIST LABEL DEF - *[APNNN BSS 0B *    POST     1417
                                                                                                                 POST     1418
           767  5150000000 X             OPL3     SA5    O.APL                                                   POST     1419
                          5130000000 X            SA3    O.TXT                                                   POST     1420
                                                  LX1    1+AI.EQVP-AI.INDXP                                      POST     1421
           770  5140000000 X                      SA4    O.API                                                   POST     1422
                          36615                   IX6    X1+X5                                                   POST     1423
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    35
        OPL - OUTPUT PARAMETER LISTS                                  OPL 
  
                               63760              SB7    X6          II = O.APL + INDX[AP]                       POST     1424
           771  73621                             SX6    X2+B1       AI = AI + 1                                 POST     1425
                     37764                        IX7    X6-X4       N = AI - O.API                              POST     1426
                          54620                   SA6    A2                                                      POST     1427
                               20152              LX1    AI.INDXP-AI.LENP                                        POST     1428
           772  53731                             SA7    X3+B1       SI = O.TXT + 1                              POST     1429
                     64671                        SB6    A7+B1       TI = SI + 1   */ START OF BUFFER            POST     1430
                          5130000001 +            SA3    BLEN                                                    POST     1431
           773  10633                             BX6    X3          [AP] = BLEN   */ DEFINE ADDR                POST     1432
                     54610                        SA6    A1                                                      POST     1433
                          63511                   SB5    X1+B1       LI = LEN[AP] + 1                            POST     1434
                               73665              SX6    X6+B5       BLEN = BLEN + LI  */ ADVANCE BLOCK LENGTH   POST     1435
           774  54630                             SA6    A3                                                      POST     1436
                     0100000577 +                 RJ     COD         CONVERT DIGITS                              POST     1437
           775  5120001306 +                      SA2    =3L[AP                                                  POST     1438
                          5130000446 +            SA3    )LAB                                                    POST     1439
           776  6130000052                        SB3    42                                                      POST     1440
                          67432                   SB4    B3-B2       UBC = 42 - CC(NNN)                          POST     1441
                               22444              LX4    B4,X4                                                   POST     1442
           777  12742                             BX7    X4+X2                                                   POST     1443
                     22603                        LX6    X3                                                      POST     1444
                          0100000605 +            RJ     ADC         FORMAT *[APNNN BSS 0B*                      POST     1445
          1000  0100000633 +                      RJ     TSB                                                     POST     1446
          1001  5110000012                        SA1    O.SYM                                                   POST     1447
                          53010                   SA0    X1                                                      POST     1448
                                                                                                                 POST     1449
                                        *         OUTPUT THE PARAMTERS,  *  APL  SYM+CA*                         POST     1450
                                                                                                                 POST     1451
          1002  67551                    OPL4     SB5    B5-B1       LI = LI - 1                                 POST     1452
                     5130001312 +                 SA3    =10H  APL                                               POST     1453
                               57575              SA5    B7-B5       AW = [II-LI]                                POST     1454
          1003  6140000074                        SB4    60                                                      POST     1455
                          10733                   BX7    X3                                                      POST     1456
                               54771              SA7    A7+B1                                                   POST     1457
          1004  73650                             SX6    X5                                                      POST     1458
                     43700                        MX7    0                                                       POST     1459
                                                  LX5    59-AP.STP                                               POST     1460
                          0325001007 +            PL     X5,OPL5     IF ^ST[AW]    */ NOT A -0 WORD              POST     1461
          1005  5130001313 +                      SA3    =8L-0B                                                  POST     1462
                          10733                   BX7    X3                                                      POST     1463
                               54771              SA7    A7+B1                                                   POST     1464
          1006  0400001021 +                      EQ     OPL8                                                    POST     1465
                                                                                                                 POST     1466
                                         OPL5     LX5    1+AP.STP                                                POST     1467
          1007  0100000534 +                      RJ     ASN         ADD THE NAME                                POST     1468
          1010  20552                             LX5    -AP.CAP                                                 POST     1469
                     73650                        SX6    X5                                                      POST     1470
                          0306001015 +            ZR     X6,OPL7     IF CA = 0                                   POST     1471
          1011  7110000045                        SX1    1R+                                                     POST     1472
                          0326001013 +            PL     X6,OPL6     IF CA > 0                                   POST     1473
          1012  7110000046                        SX1    1R-                                                     POST     1474
                          14666                   BX6    -X6                                                     POST     1475
          1013  20166                    OPL6     LX1    54                                                      POST     1476
                     0100000622 +                 RJ     CON         CONVERT NUMBER                              POST     1477
          1014  12616                             BX6    X1+X6                                                   POST     1478
                     0100000605 +                 RJ     ADC         +-NNNB TO STRING                            POST     1479
                                                                                                                 POST     1480
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    36
        OPL - OUTPUT PARAMETER LISTS                                  OPL 
  
          1015  0100000633 +             OPL7     RJ     TSB                                                     POST     1481
          1016  0660001021 +                      PL     B6,OPL8     IF FPFLAG = 0 */ IH NOT AN F.P.             POST     1482
                          54550                   SA5    A5                                                      POST     1483
                               76610              SX6    B1          LSR = 1                                     POST     1484
          1017  5160000003 +                      SA6    LSR                                                     POST     1485
                          0100000320 +            RJ     OSM         OUTPUT *SUB* MACRO                          POST     1486
          1020  5130000000 X                      SA3    O.TXT                                                   POST     1487
                          6263000002              SB6    X3+2        TI = [O.TXT] + 2                            POST     1488
                                                                                                                 POST     1489
          1021  0715001002 +             OPL8     GT     B5,B1,OPL4  IF LI > 1                                   POST     1490
                                                                                                                 POST     1491
                          5130001312 +            SA3    =10H  APL                                               POST     1492
          1022  43460                             MX4    -12                                                     POST     1493
                     11743                        BX7    X4*X3                                                   POST     1494
                          54771                   SA7    A7+B1       OUTPUT *  APL   *   */ PARAM LIST TERM      POST     1495
                                                                                                                 POST     1496
                               64471              SB4    A7+B1                                                   POST     1497
          1023  67746                             WLIC   B6,B4-B6    WRITE LINE IMAGES TO *COMPS*                POST     1498
          1024  5120000001 C                      SA2    AI                                                      POST     1499
                          0400000765 +            EQ     OPL2                                                    POST     1500
  
  
  
                                        **        OUTPUT APLIST EQUIVALENCES                                     POST     1502
                                                                                                                 POST     1503
          1025  5110000000 C             OPL11    SA1    EAC                                                     POST     1504
                          0301000750 +            ZR     X1,OPL      IF EAC = 0, EXIT..                          RSM3545C  162
          1026  5120000000 X                      SA2    O.API                                                   POST     1506
                          6262777776              SB6    X2-1        BASE = O.API - 1                            POST     1507
          1027  53510                             SA5    X1          I = EAC;  AJ = [I]                          POST     1508
                     75056                        SX0    A5-B6       N = I - BASE  */ ORD OF EQV LIST            POST     1509
                          66500                   SB5    B0          CA = 0                                      POST     1510
                               20530              LX5    -AI.LINKP                                               POST     1511
          1030  73650                             SX6    X5                                                      POST     1512
                     20522                        LX5    AI.LINKP-AI.BIASP                                       POST     1513
                          54610                   SA6    A1          EAC = LINK[AJ]                              POST     1514
                                                                                                                 POST     1515
                                        *         CHAIN BACK TO FIND A NON-EQUIV ENTRY                           POST     1516
                                                                                                                 POST     1517
          1031  63555                    OPL12    SB5    B5+X5       CA = CA + BIAS[AJ]                          POST     1518
                     20522                        LX5    AI.BIASP-AI.ORDP                                        POST     1519
                          63750                   SB7    X5          OI = ORD[AJ]                                POST     1520
                               53556              SA5    B6+X5       AJ = BASE + OI                              POST     1521
                                                  LX5    59-AI.EQVP                                              POST     1522
          1032  0325001034 +                      PL     X5,OPL13    IF ^EQV[AJ]                                 POST     1523
                          20552                   LX5    1+AI.EQVP-AI.BIASP                                      POST     1524
          1033  0400001031 +                      EQ     OPL12                                                   POST     1525
                                                                                                                 POST     1526
                                         OPL13    LX5    1+AI.EQVP                                               POST     1527
          1034  73655                             SX6    X5+B5       [BASE+I] = [AJ] + CA  */ DEFINE ADDRESS     POST     1528
                     53606                        SA6    B6+X0                                                   POST     1529
                                                                                                                 POST     1530
                                        *         OUTPUT EQU TO EQUIVALENCE THE APLISTS                          POST     1531
                                                                                                                 POST     1532
                          5130001314 +            SA3    =10H  EPL                                               POST     1533
          1035  6160000003 C                      SB6    OPLA                                                    POST     1534
                          10733                   BX7    X3                                                      POST     1535
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    37
        OPL - OUTPUT PARAMETER LISTS                                  OPL 
  
                               56760              SA7    B6          SI = OPLA;  [SI] = 10H  EAL                 POST     1536
          1036  73700                             SX7    X0                                                      POST     1537
                     0100000577 +                 RJ     COD                                                     POST     1538
          1037  6140000074                        SB4    60          UBC = 60                                    POST     1539
                          67442                   SB4    B4-B2                                                   POST     1540
                               22644              LX6    B4,X4                                                   POST     1541
          1040  76770                             SX7    B7                                                      POST     1542
                     0100000577 +                 RJ     COD                                                     POST     1543
          1041  7130000056                        SX3    1R,                                                     POST     1544
                          22323                   LX3    B2,X3                                                   POST     1545
          1042  6122000006                        SB2    B2+6                                                    POST     1546
                          12434                   BX4    X3+X4                                                   POST     1547
                               67442              SB4    B4-B2                                                   POST     1548
          1043  22444                             LX4    B4,X4                                                   POST     1549
                     12746                        BX7    X4+X6                                                   POST     1550
                          76650                   SX6    B5                                                      POST     1551
          1044  0100000622 +                      RJ     CON         CONVERT CA                                  POST     1552
          1045  7140000056                        SX4    1R,                                                     POST     1553
                          20466                   LX4    54                                                      POST     1554
                               12646              BX6    X4+X6                                                   POST     1555
          1046  0100000605 +                      RJ     ADC                                                     POST     1556
          1047  0100000633 +                      RJ     TSB         *  EPL   N,I,CA *                           POST     1557
          1050  64471                             SB4    A7+B1                                                   POST     1558
                     67746                        WLIC   B6,B4-B6    WRITE LINE IMAGES TO *COMPS*                POST     1559
          1051  0400001025 +                      EQ     OPL11                                                   POST     1560
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    38
        OPL - OUTPUT PARAMETER LISTS                                  AAN 
  
                                        **        AAN - OUTPUT APLIST NAME                                       POST     1611
                                        *                                                                        POST     1612
                                        *         ENTRY  (X5) = *IH* OF NAME                                     POST     1613
                                                                                                                 POST     1614
          1052  0100000534 +             AAN0     RJ     ASN                                                     POST     1615
          1053  0200401053 +             AAN      ROUTINE                                                        POST     1616
          1054  7265677777                        SX6    X5-I.GL                                                 POST     1617
                          0326001052 +            PL     X6,AAN0                                                 POST     1618
          1055  63350                             SB3    X5                                                      POST     1619
                     66233                        SB2    B3+B3                                                   POST     1620
                          66321                   SB3    B2+B1                                                   POST     1621
                               55203              SA2    A0-B3       WORDB = [O.SYM-2*IH-1]                      POST     1622
          1056  20272                             LX2    59-P.LCM                                                POST     1623
                     0322001052 +                 PL     X2,AAN0     IF ^LCM[WORDB]                              POST     1624
                               10322              BX3    X2                                                      POST     1625
          1057  20302                             LX3    1+P.LCM                                                 POST     1626
                     76611                        R=     X6,10B-T.LAB                                            POST     1627
                                   2              ERRMI  10B-T.LAB                                               POST     1628
                          20670                   LX6    P.TYP                                                   POST     1629
                               36363              IX3    X6+X3                                                   POST     1630
          1060  0333001052 +                      MI     X3,AAN0     IF TYPE[WORDB] \ T.LAB                      POST     1631
                                                                                                                 POST     1632
                          5130001315 +            SA3    =10H  LAP                                               POST     1633
          1061  20262                             LX2    1+P.LCM-P.RB                                            POST     1634
                     10733                        BX7    X3                                                      POST     1635
                          43665                   MX6    -L.RB                                                   POST     1636
                               54770              SA7    A7          [SI] = 10H  LAP                             POST     1637
          1062  43700                             MX7    0                                                       FCC0982    49
                     5140000000 X                 SA4    =XDIRECT                                                FCC0982    50
          1063  0304001052 +                      ZR     X4,AAN0     IF DIRECT MODE                              FCC0982    51
                          15726                   BX7    -X6*X2                                                  POST     1638
                               20552              LX5    -AP.CAP                                                 POST     1639
          1064  20265                             LX2    P.RB-P.RA                                               POST     1640
                     63250                        SB2    X5                                                      POST     1641
                          73622                   SX6    B2+X2       CA = CA[AW] + RA[WORDB]                     POST     1642
          1065  0100000577 +                      RJ     COD                                                     POST     1643
          1066  7170000071                        SX7    1R?                                                     POST     1644
                          6140000066              SB4    54          UBC = 54                                    POST     1645
          1067  20766                             LX7    54                                                      POST     1646
                     67442                        SB4    B4-B2       UBC = UBC - CC                              POST     1647
                          22444                   LX4    B4,X4                                                   POST     1648
                               12747              BX7    X4+X7                                                   POST     1649
          1070  0306001053 +                      ZR     X6,AAN      IF C = 0                                    POST     1650
                          0100000622 +            RJ     CON                                                     POST     1651
          1071  7140000056                        SX4    1R,                                                     POST     1652
                          20466                   LX4    54                                                      POST     1653
                               12646              BX6    X4+X6       *,NNNNB*                                    POST     1654
          1072  0100000605 +                      RJ     ADC                                                     POST     1655
          1073  43500                             MX5    0                                                       POST     1656
                     0400001053 +                 EQ     AAN                                                     POST     1657
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    39
        IST - ISSUE STORAGE FOR TEMPORARIES                           IST 
  
                                        **        IST - ISSUE STORAGE FOR TEMPORARIES                            POST     1659
                                        *                OUTPUT BSS"S FOR COMPILER GENERATED SYMBOLS             POST     1660
                                                                                                                 POST     1661
          1074  0200401074 +             IST      ROUTINE                                                        POST     1662
          1075  5150001115 +                      SA5    ISTA                                                    POST     1663
                          5140000012              SA4    O.SYM                                                   POST     1664
          1076  5204777776                        SA0    X4-1                                                    POST     1665
                          6160000004 C            SB6    OPLA+1                                                  POST     1666
          1077  6170000005                        SB7    ISTB                                                    POST     1667
                          57761                   SA7    B6-B1                                                   POST     1668
                               66400              SB4    B0          K = 0                                       POST     1669
          1100  43014                             MX0    12                                                      POST     1670
                     5110001316 +                 SA1    =8R.   BSS                                              POST     1671
                                                                                                                 POST     1672
          1101  53450                    IST1     SA4    X5          N = [N.ZZ]                                  POST     1673
                     11705                        BX7    X0*X5                                                   POST     1674
                          0304001111 +            ZR     X4,IST2     IF N = 0      */ NO TEMP OF THIS TYPE       POST     1675
          1102  20536                             LX5    30                                                      POST     1676
                     53350                        SA3    X5          IH = [ZZ.]                                  POST     1677
                          0303001111 +            ZR     X3,IST2     IF [ZZ.] = 0  */ SYMBOL NOT DEF             POST     1678
          1103  20301                             LX3    1                                                       POST     1679
                     63230                        SB2    X3                                                      POST     1680
                          55202                   SA2    A0-B2       WORDB = [O.SYM-1-2*IH]                      POST     1681
          1104  5130000001 +                      SA3    BLEN                                                    POST     1682
                          36643                   IX6    X4+X3       BLEN = BLEN + N                             POST     1683
                               20323              LX3    P.RA                                                    POST     1684
          1105  54630                             SA6    A3                                                      POST     1685
                     12623                        BX6    X2+X3       RA[WORDB] = BLEN - N  */ DEFINE ADDRESS     POST     1686
                          54620                   SA6    A2                                                      POST     1687
                               66441              SB4    B4+B1       K = K + 1                                   POST     1688
          1106  12717                             BX7    X1+X7                                                   POST     1689
                     54771                        SA7    A7+B1                                                   POST     1690
                          10644                   BX6    X4                                                      POST     1691
          1107  0100000622 +                      RJ     CON         CONVERT N TO BCD                            POST     1692
          1110  20606                             LX6    6                                                       POST     1693
                     10766                        BX7    X6                                                      POST     1694
                          54771                   SA7    A7+B1                                                   POST     1695
          1111  67771                    IST2     SB7    B7-B1                                                   POST     1696
                     54551                        SA5    A5+B1                                                   POST     1697
                          0570001101 +            NZ     B7,IST1                                                 POST     1698
          1112  0440001074 +                      ZR     B4,IST      IF K = 0                                    POST     1699
                                                                                                                 POST     1700
                          66744                   WLIC   B6,B4+B4    WRITE LINE IMAGES TO *COMPS*                POST     1701
          1114  0400001074 +                      EQ     IST                                                     POST     1702
                                                                                                                 POST     1703
          1115                           ISTA     BSS    0                                                       POST     1704
                                                  ECHO   1,ZZ=(FP,ST,OT,VD,IT)                                   POST     1705
                                                  VFD    12/2L_ZZ,18/=X_ZZ.,12/0,18/=XN.ZZ                       POST     1706
                                   5     ISTB     EQU    *-ISTA                                                  POST     1707
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    40
        TSL - TERMINATE F.P. SUBSTITUTION LISTS                       TSL 
  
                                        **        TSL - TERMINATE F.P. SUBSTITUTION LISTS                        POST     1709
                                        *         OUTPUT A *USE F.P.* AND *VFD 12/2000,48/0* FOR THE LAST        RSM3545C  163
                                        *         F.P. ONLY.                                                     RSM3545C  164
                                                                                                                 POST     1711
          1122  0200401122 +             TSL      ROUTINE                                                        POST     1712
          1123  5110000003 +                      SA1    LSR                                                     POST     1713
                          0301001122 +            ZR     X1,TSL      IF LSR = 0    */ NO SUBS                    POST     1714
                                                                                                                 POST     1715
          1124  76010                             SX0    B1                                                      RSM3545C  165
                     5130000000 X                 SA3    N.FP                                                    RSM3545C  166
                               20023              LX0    P.RA                                                    RSM3545C  167
          1125  36233                             IX2    X3+X3                                                   RSM3545C  168
                     5140000012                   SA4    O.SYM                                                   RSM3545C  169
          1126  6252000002                        SB5    X2+2                                                    RSM3545C  170
                          43760                   MX7    -12                                                     RSM3545C  171
                               63340              SB3    X4                                                      RSM3545C  172
          1127  5120001317 +                      SA2    =6L  USE                                                RSM3545C  173
                          57535                   SA5    B3-B5       WORDA[LAST F.P.] = O.SYM-2 - 2*N.FP         RSM3545C  174
                               43344              MX3    -24                                                     RSM3545C  175
          1130  55451                             SA4    A5-B1       WORDB = WORDA - 1                           RSM3545C  176
                     20530                        LX5    24                                                      RSM3545C  177
                          5110001320 +            SA1    =10H  VFD 12/2                                          RSM3545C  178
          1131  36740                             IX7    X4+X0       RA[WORDB] = RA[WORDB] + 1                   RSM3545CA   4
                     15453                        BX4    -X3*X5      1*ST FOUR CHARACTERS OF F.P. NAME           RSM3545C  180
                          43022                   MX0    18                                                      RSM3545C  181
                               54740              SA7    A4                                                      RSM3545C  182
          1132  12624                             BX6    X2+X4       *  USE XXXX*                                RSM3545C  183
                     11705                        BX7    X0*X5       LAST THREE CHARACTERS OF F.P. NAME          RSM3545C  184
                          5160000003 C            SA6    OPLA                                                    RSM3545C  185
          1133  54761                             SA7    A6+B1                                                   RSM3545C  186
                     5120001321 +                 SA2    =10H000B,48/0B                                          RSM3545C  187
                               10611              BX6    X1                                                      RSM3545C  188
          1134  10722                             BX7    X2                                                      RSM3545C  189
                     54671                        SA6    A7+B1                                                   RSM3545C  190
                          54761                   SA7    A6+B1                                                   RSM3545C  191
                               37666              IX6    X6-X6                                                   RSM3545C  192
          1135  54671                             SA6    A7+B1                                                   RSM3545C  193
                     6160000003 C                 WLIC   OPLA,5                                                  RSM3545C  194
          1137  0400001122 +                      EQ     TSL         EXIT..                                      RSM3545C  195
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    41
        OVC - OUTPUT VARDIM CODE                                      OVC 
  
                                        **        OVC - OUTPUT VARDIM INITIALIZATION CODE                        POST     1749
                                                                                                                 POST     1750
          1140  0200401140 +             OVC      ROUTINE                                                        POST     1751
          1141  5110000003 +                      SA1    LSR                                                     POST     1752
                          5120000000 X            SA2    L.VDT                                                   POST     1753
          1142  12312                             BX3    X1+X2                                                   POST     1754
                     0303001140 +                 ZR     X3,OVC      IF LSR & L.VDT = 0                          POST     1755
                                                                                                                 POST     1756
          1143  7160000000 X                      OUTUSE VARDIM                                                  POST     1757
          1144  5110000000 X                      SA1    =XVARDIM.                                               POST     1758
                          0100000061 +            CALL   CUB         CUB( VARDIM. )  */ SWITCH TO VARDIM BLOCK   POST     1759
          1145  5110000003 +                      SA1    LSR                                                     POST     1760
                          0301001155 +            ZR     X1,OVC1     IF LSR = 0    */ NO SUB REFS                POST     1761
                                                                                                                 POST     1762
          1146  5120000012                        SA2    O.SYM                                                   POST     1763
                          43052                   MX0    L.NAME                                                  POST     1764
                               43144              MX1    -4*6                                                    RSM3545C  196
          1147  5232777773                        SA3    X2-4                                                    POST     1765
                          11503                   BX5    X0*X3                                                   RSM3545C  197
          1150  5120001225 +                      SA2    OVCA                                                    RSM3545C  198
                          20530                   LX5    4*6                                                     RSM3545C  199
                               43022              MX0    3*6                                                     RSM3545C  200
          1151  15351                             BX3    -X1*X5      FIRST 4 CHARACTERS                          RSM3545C  201
                     11705                        BX7    X0*X5       LAST 3 CHARACTERS                           RSM3545C  202
                          11612                   BX6    X1*X2                                                   RSM3545C  203
                               54721              SA7    A2+B1                                                   RSM3545C  204
          1152  5110000001 +                      SA1    BLEN        BUMP BLOCK LENGTH BY 1                      RSM3545C  205
                          12663                   BX6    X6+X3                                                   RSM3545C  206
                               73711              SX7    X1+B1                                                   RSM3545C  207
          1153  54620                             SA6    A2                                                      RSM3545C  208
                     54710                        SA7    A1                                                      RSM3545C  209
                          64660                   WLIC   A6,OVCL     *SA3 1*ST F.P.*, *RJ SPA.*                  RSM3545C  210
                                                                                                                 POST     1776
          1155  5110000000 X             OVC1     SA1    L.VDT                                                   POST     1777
                          0301001215 +            ZR     X1,OVC5     IF L.VDT = 0                                POST     1778
                                                                                                                 POST     1779
                                        *         FORM IL INSTRUCTIONS FOR *VD* INITIALIZATION AND CODE THEM.    POST     1780
                                                                                                                 POST     1781
          1156  43600                             MX6    0                                                       POST     1782
                     5160000000 X                 SA6    L.TXT       L.TXT = 0                                   POST     1783
                               76100              ADDWRD VDT,B0      ADDWRD( VDT , 0 ) */ TABLE TERMINATOR       POST     1784
          1160  20304                             LX3    4                                                       POST     1785
                     73130                        ALLOC  TXT,X3      ALLOC( TXT , 16*L.VDT )                     POST     1786
          1162  5140000000 X                      SA4    O.VDT                                                   POST     1787
                          63720                   SB7    X2          TB = O.TXT                                  POST     1788
                               63320              SB3    X2          TI = O.TXT                                  POST     1789
          1163  53540                             SA5    X4          VI = [O.VDT]                                POST     1790
                     6150777773                   SB5    -4                                                      POST     1791
                               77005              SX0    -B5         RN = 4                                      POST     1792
          1164  6140000022                        SB4    IH.CAP                                                  POST     1793
                          5120000000 X            SA2    =XVD.                                                   POST     1794
          1165  43100                             MX1    0           BIAS = 0                                    POST     1795
                                                  LX2    IH.IHP                                                  POST     1796
                     6120000001                   SB2    OC.BOS                                                  POST     1797
                               76610              SX6    B1                                                      POST     1798
          1166  20636                             LX6    R1.INP                                                  POST     1799
                     43700                        MX7    0                                                       POST     1800
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    42
        OVC - OUTPUT VARDIM CODE                                      OVC 
  
                          0100001220 +            RJ     SRI         SRI(  BOS  0,0  )                           POST     1801
                                                                                                                 POST     1802
          1167  73750                    OVC2     SX7    X5                                                      POST     1803
                     6120000050                   SB2    OC.LD                                                   POST     1804
                               10600              BX6    X0                                                      POST     1805
          1170  0100001220 +                      RJ     SRI         SRI(  LD  RN,,,IH[VI]  )                    POST     1806
          1171  21522                             AX5    18                                                      POST     1807
                     0305001177 +                 ZR     X5,OVC3     IF IH2[VI] = 0                              POST     1808
                                                                                                                 POST     1809
                               10600              BX6    X0                                                      POST     1810
          1172  73750                             SX7    X5                                                      POST     1811
                     0100001220 +                 RJ     SRI         SRI(  LD  RN,,,IH2[VI]  )                   POST     1812
                                                                                                                 POST     1813
          1173  73405                             SX4    X0+B5                                                   POST     1814
                     6120000101                   SB2    OC.IM                                                   POST     1815
                               73545              SX5    X4+B5                                                   POST     1816
          1174  20440                             LX4    R1.RJP                                                  POST     1817
                     20520                        LX5    R1.RKP                                                  POST     1818
                          12445                   BX4    X4+X5                                                   POST     1819
                               12604              BX6    X0+X4                                                   POST     1820
          1175  43700                             MX7    0                                                       POST     1821
                     0100001220 +                 RJ     SRI         SRI(  IM  RN,RN-4,RN-8 )                    POST     1822
          1176  0400001201 +                      EQ     OVC4                                                    POST     1823
                                                                                                                 POST     1824
          1177  73405                    OVC3     SX4    X0+B5                                                   POST     1825
                     6120000010                   SB2    OC.XMT                                                  POST     1826
                               20440              LX4    R1.RJP                                                  POST     1827
          1200  43700                             MX7    0                                                       POST     1828
                     12640                        BX6    X4+X0                                                   POST     1829
                          0100001220 +            RJ     SRI         SRI(  XMT  RN,RN-4 )                        POST     1830
                                                                                                                 POST     1831
          1201  73005                    OVC4     SX0    X0+B5       RN = RN - 4                                 POST     1832
                     22441                        LX4    B4,X1                                                   POST     1833
                          6120000051              SB2    OC.ST                                                   POST     1834
          1202  12742                             BX7    X4+X2                                                   POST     1835
                     10600                        BX6    X0                                                      POST     1836
                          0100001220 +            RJ     SRI         SRI(  ST  RN,,BIAS,VD.  )                   POST     1837
          1203  54551                             SA5    A5+B1       VI = VI + 1                                 POST     1838
                     73111                        SX1    X1+B1       BIAS = BIAS + 1                             POST     1839
                          0315001167 +            NZ     X5,OVC2     IF [VI] " 0                                 POST     1840
                                                                                                                 POST     1841
          1204  66200                             R=     B2,OC.EOQ                                               POST     1842
                     43600                        MX6    0                                                       POST     1843
                          0100001220 +            RJ     SRI         SRI(  EOQ  0,0 )                            POST     1844
          1205  77637                             SX6    B3-B7                                                   POST     1845
                     5160000000 X                 SA6    L.TXT       L.TXT = TI - TB                             POST     1846
                               10711              BX7    X1                                                      POST     1847
          1206  5170000000 X                      SA7    =XN.VD      N.VD = BIAS                                 POST     1848
                          0100000000 X            CALL   PSB         PROPAGATE SPECIAL BITS                      POST     1849
          1207  0100000000 X                      CALL   SSP         MOVE BLOCK TO *SEQ*                         POST     1850
          1210  7150000003                        SX5    3                                                       POST     1851
                          7160000001              SX6    1                                                       POST     1852
          1211  0100000000 X                      CALL   ESR         EXPAND SPECIAL REFS AND SQUEEZE             POST     1853
          1212  43600                             MX6    0                                                       POST     1854
                     0100000000 X                 CALL   MCG         CODE THE SEQUENCE                           POST     1855
          1213  0100000067 +                      CALL   CII         CONVERT TO COMPASS                          POST     1856
          1214  0100000054 +                      RJ     FSU         FORCE VARDIM UPPER                          POST     1857
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    43
        OVC - OUTPUT VARDIM CODE                                      OVC 
  
                                                                                                                 POST     1858
          1215  5110000000 X             OVC5     SA1    =XCODE.                                                 POST     1859
                          0100000061 +            CALL   CUB         CUB( CODE. )  */ SWITCH BACK TO CODE BLOCK  POST     1860
          1216  7160000000 X                      OUTUSE CODE.                                                   POST     1861
          1217  0400001140 +                      EQ     OVC                                                     POST     1862
  
  
  
                                        **        SRI - STORE RLIST INSTRUCTION                                  POST     1864
                                        *                                                                        POST     1865
                                        *         ENTRY  (B2) = OPCODE , (X6,X7) = R1,R2 WORDS                   POST     1866
                                                                                                                 POST     1867
          1220  0200401220 +             SRI      ROUTINE                                                        POST     1868
          1221  5142000000 X                      SA4    =XF.RDT+B2                                              POST     1869
                          27626                   PX6    B2,X6                                                   POST     1870
                               56630              SA6    B3          [TI] = R1                                   POST     1871
          1222  56731                             SA7    B3+B1       [TI+1] = R2                                 POST     1872
                     10644                        BX6    X4                                                      POST     1873
                          54671                   SA6    A7+B1       [TI+2] = RDT(OC)                            POST     1874
          1223  7200000004                        SX0    X0+4        RN = RN + 4                                 POST     1875
                          43700                   MX7    0                                                       POST     1876
                               54761              SA7    A6+B1       [TI+3] = 0                                  POST     1877
          1224  64371                             SB3    A7+B1       TI = TI + 4                                 POST     1878
                     0400001220 +                 EQ     SRI                                                     POST     1879
                                                                                                                 POST     1880
          1225  55552301365530303030     OVCA     DATA   C$  SA3 XXXXXXX$                                        RSM3545C  211
          1227  55552212552320015700              DATA   C$  RJ SPA.$                                            RSM3545C  212
                                   4     OVCL     EQU    *-OVCA                                                  RSM3545C  213
  
  
  
                                        **        ILW - ISSUE LEVEL ADDRESS WORDS FOR LEVEL 2 AND 3 SYMBOLS      POST     1883
                                                                                                                 POST     1884
          1231                     1     ILWA     BSS    1           SAVE DATA.                                  FCC0451     9
                                                                                                                 FCC0451    10
          1232  5110001231 +             ILW0     SA1    ILWA                                                    FCC0451    11
                          5120000000 X            SA2    =XDATA.                                                 POST     1886
          1233  37621                             IX6    X2-X1                                                   POST     1887
                     0306001235 +                 ZR     X6,ILW      IF NO LEVEL WORDS ISSUED                    FCC0451    12
                               10611              BX6    X1                                                      FCC0451    13
          1234  5160000000 X                      SA6    =XSDATA.    FOR *ALA* IN FAX.                           FCC0451    14
                                                                                                                 POST     1890
          1235  0200401235 +             ILW      ROUTINE                                                        POST     1891
          1236  5110000000 X                      SA1    =XLEVEL2                                                FCC0504    21
                          5150000000 X            SA5    =XDIRECT                                                POST     1893
          1237  7160777776                        SX6    -1                                                      FCC0451    15
                          5160000000 X            SA6    SDATA.      SDATA. = -1                                 FCC0451    16
          1240  0301001235 +                      ZR     X1,ILW      IF LEVEL = 0  */ NO LEVEL STMTS IN SUBPROGR POST     1894
                          0305001235 +            ZR     X5,ILW      IF LCM=D MODE                               POST     1895
          1241  5110000000 X                      SA1    =XFSTEX                                                 POST     1896
                          0301001235 +            ZR     X1,ILW      IF FSTEX = 0  */ NO EXECUTABLE STMTS        POST     1897
                                                                                                                 POST     1898
          1242  7160000000 X                      OUTUSE DATA.                                                   POST     1899
          1243  5110000000 X                      SA1    =XDATA.                                                 POST     1900
                          7261000000              SX6    X1+                                                     POST     1901
          1244  5160001231 +                      SA6    ILWA        SAVE DATA.                                  FCC0451    17
                                                                                                                 POST     1903
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    44
        OVC - OUTPUT VARDIM CODE                                      ILW 
  
                          5150000000 X            SA5    =XST.                                                   POST     1904
          1245  20501                             LX5    1                                                       POST     1905
                     63650                        SB6    X5          I = 2*ST.     */ INDEX                      POST     1906
                                                                                                                 POST     1907
                                        *         SCAN SYMBOL TABLE FOR *LEVEL 2/3* SYMBOLS                      POST     1908
                                                                                                                 POST     1909
          1246  5130000012               ILW1     SA3    O.SYM                                                   POST     1910
                          5140000000 X            SA4    =XSYMORD                                                POST     1911
          1247  5203777776                        SA0    X3-1                                                    POST     1912
                          20401                   LX4    1                                                       POST     1913
                               63740              SB7    X4          LIMIT = 2*SYMORD                            POST     1914
                                                                                                                 POST     1915
          1250  55506                    ILW2     SA5    A0-B6       WORDB = [O.SYM-I]                           POST     1916
                     0667001232 +                 GE     B6,B7,ILW0  IF I \ LIMIT  */ END OF OF SYMTAB           POST     1917
                               20572              LX5    59-P.LCM                                                POST     1918
          1251  6166000002                        SB6    B6+2        I = I + 2                                   POST     1919
                          0325001250 +            PL     X5,ILW2     IF ^LCM[WORDB]                              POST     1920
          1252  10355                             BX3    X5                                                      POST     1921
                     7170000002                   SX7    10B-T.LAB                                               POST     1922
                                   2              ERRMI  10B-T.LAB   TEST RELIES ON OVERFLOW                     POST     1923
                               20302              LX3    1+P.LCM                                                 POST     1924
          1253  20770                             LX7    P.TYP                                                   POST     1925
                     36373                        IX3    X7+X3                                                   POST     1926
                          0333001250 +            MI     X3,ILW2     IF TYPE[WORDB] \ T.LAB                      POST     1927
                                                                                                                 POST     1928
                                        *         ISSUE  * NAME LAP  ?MM,NNNB * TO COMPS                         POST     1929
                                                                                                                 POST     1930
          1254  5130000000 X                      SA3    DATA.                                                   POST     1931
                          73731                   SX7    X3+B1       DATA. = DATA. + 1                           POST     1932
                               54730              SA7    A3                                                      POST     1933
          1255  54451                             SA4    A5+B1       WORDA = WORDB + 1                           POST     1934
                     5120001322 +                 SA2    =3R LA                                                  POST     1935
                               43052              MX0    L.NAME                                                  POST     1936
          1256  11704                             BX7    X0*X4                                                   POST     1937
                     12727                        BX7    X2+X7                                                   POST     1938
                          5170000004 C            SA7    OPLA+1                                                  POST     1939
          1257  20562                             LX5    1+P.LCM-P.RB                                            POST     1940
                     43065                        MX0    -L.RB                                                   POST     1941
                          15650                   BX6    -X0*X5      BLOCK NUMBER                                POST     1942
          1260  0100000622 +                      RJ     CON                                                     POST     1943
          1261  7140000054                        SX4    1R,-1RB                                                 POST     1944
                          6123777675              SB2    B3-66                                                   POST     1945
          1262  20606                             LX6    6                                                       POST     1946
                     23424                        LX4    -B2,X4                                                  POST     1947
                          7170205571              SX7    3RP ?                                                   POST     1948
          1263  36664                             IX6    X6+X4       CHANGE B TO ,                               POST     1949
                     6140000052                   SB4    42          UBC = 42                                    POST     1950
                               20752              LX7    42                                                      POST     1951
          1264  6133777771                        SB3    B3-6                                                    POST     1952
                          0100000605 +            RJ     ADC         ADD ?MM,                                    POST     1953
          1265  20565                             LX5    P.RB-P.RA                                               POST     1954
                     73650                        SX6    X5                                                      POST     1955
                          0100000622 +            RJ     CON         CONVERT OFFSET                              POST     1956
          1266  20606                             LX6    6                                                       POST     1957
                     6133777771                   SB3    B3-6                                                    POST     1958
          1267  0100000605 +                      RJ     ADC                                                     POST     1959
          1270  0100000633 +                      RJ     TSB                                                     POST     1960
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    45
        OVC - OUTPUT VARDIM CODE                                      ILW 
  
          1271  76660                             SX6    B6                                                      POST     1961
                     5160000003 C                 SA6    OPLA                                                    POST     1962
                               64661              SB6    A6+B1                                                   POST     1963
          1272  64771                             SB7    A7+B1                                                   POST     1964
                     7120000000 X                 WRITEC F.CMPS,B6,B7-B6                                         POST     1965
          1274  5150000003 C                      SA5    OPLA                                                    POST     1966
                          63650                   SB6    X5                                                      POST     1967
          1275  0400001246 +                      EQ     ILW1                                                    POST     1968
                                                                                                                 POST     1969
          1366                                    END                                                            POST     1970
  
                             66300B CM  STORAGE USED             3031 STATEMENTS      890 SYMBOLS      000003 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.240 SECONDS         695 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AAN          1053   PROGRAM*       34/10     38/06 L   38/43     38/50
        AAN0         1052   PROGRAM*       38/05 L   38/08     38/14     38/21     38/30
        ADC           605   PROGRAM*       12/38     17/34     23/02     25/33     29/28     37/21     44/56
                                           16/11     20/52     24/36     29/14 L   35/22     38/48
                                           16/18     21/03     24/49     29/24     35/56     44/50
        ADW=            0   EXTERNAL*      41/41
        AI              1   TABLES         34/05 L   34/25 S   34/32     36/19
        AI.BIASL       22                  33/35 D
        AI.BIASP       22                  33/35 D   36/35     36/41     36/46
        AI.EQVP        73                  33/29 D   36/46
        AI.INDXL       22                  33/33 D   33/36
        AI.INDXP        0                  33/33 D   33/36     35/05
        AI.LENL        22                  33/32 D   33/35
        AI.LENP        22                  33/32 D   33/35     35/05
        AI.LINKL       22                  33/31 D
        AI.LINKP       44                  33/31 D   34/38     36/33     36/35
        AI.ORDL        22                  33/36 D
        AI.ORDP         0                  33/36 D   36/41
        AP.CAP         22   FTNTEXT        35/46     38/32
        ASN           534   PROGRAM*       15/43     17/16     24/07     25/35 L   38/05
                                           16/20     21/23     24/25     35/45
        ASNA         1305   PROGRAM*       25/12     26/02 L
        ASN0          524   PROGRAM*       25/09 L   25/37
        ASN1          527   PROGRAM*       25/19 L   25/24
        ASN2          533   PROGRAM*       25/33 L   25/57
        ASN3          542   PROGRAM*       25/50     25/53 L
        ASN4          543   PROGRAM*       25/53     25/55 L
        ATS=            0   EXTERNAL*      34/19     41/43
        BI.OLNL        17   FTNTEXT        28/15
        BI.OLNP        46   FTNTEXT        28/21
        BLEN            1   PROGRAM*        2/11 L    4/23      6/40 S   35/08     41/27
                                            4/06      5/29     33/18     39/24
        BLPTR           0   PROGRAM*        2/10 E    2/10 L    4/24     33/19
        BN              0   EXTERNAL*       1/51 X   28/14
        B1=1            0 
        CCC           613   PROGRAM*       20/49     22/53     25/56     29/42 L   30/02
        CDD             0   EXTERNAL*       5/21
        CII            67   PROGRAM*        5/01 E    5/01 L    6/51     42/56
        CIIA          641   PROGRAM*        6/06     32/12 L
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        CII0          102   PROGRAM*        5/12      5/20      5/29 L    6/46
        CII1          110   PROGRAM*        5/47 L    9/56     11/25     12/24     13/43     15/35     18/21     18/55
                                            8/04     10/30     12/01     12/41     14/20     16/24     18/49     19/25
                                            8/14     10/49     12/08     13/32     14/42     16/42     18/53
        CII2          113   PROGRAM*        5/41      5/55     20/32     21/44     24/54
                                            5/49      6/03 L   20/34     23/07
        CJP1          367   PROGRAM*       18/22     18/51 L
        CJP2          376   PROGRAM*       19/16     19/18 L
        COD           577   PROGRAM*       14/27     27/37     29/01     37/03     38/36
                                           27/21     28/44 L   35/14     37/08
        CODE.           0   EXTERNAL*       2/10     43/02
        COD1          601   PROGRAM*       28/48 L   28/53
        CON           622   PROGRAM*        8/07     15/49     17/25     30/15 L   37/17     44/40
                                           12/27     15/54     21/05     30/34     38/44     44/53
                                           12/32     17/21     24/32     35/54     39/34
        CONA          631   PROGRAM*       30/16     30/36 L
        CON1          624   PROGRAM*       30/20 L   30/25
        CUB            61   PROGRAM*        4/21 E    4/21 L    4/35     41/11     43/03
        DATA.           0   EXTERNAL*      43/37     43/54     44/28
        DIRECT          0   EXTERNAL*      38/29     43/45
        EAC             0   TABLES         34/04 L   34/28 S   34/37     36/26
        ENT1          434   PROGRAM*       21/18     21/21 L
        ENT2          445   PROGRAM*       21/40     21/43 L
        ESR             0   EXTERNAL*      42/53
        FLV           547   PROGRAM*       20/17     22/51     27/17 L   27/31
        FLV0          545   PROGRAM*       27/10 L   27/19
        FP.             0   EXTERNAL*      39/48
        FSTEX           0   EXTERNAL*      43/50
        FSU            54   PROGRAM*        4/03 E    4/03 L    4/05      4/13     33/11     33/17     42/57
        FU              4   PROGRAM*        2/15 L    4/09 S    6/22
        F.CMPS          0   EXTERNAL*       3/28     45/05
        F.RDT           0   EXTERNAL*      43/14
        IH.CAIHL       44   FTNTEXT        15/25
        IH.CAP         22   FTNTEXT        41/50
        IH.HL          17   FTNTEXT        25/15
        IH.IHL         22   FTNTEXT        17/17
        IH.IP          17   FTNTEXT        25/11
        ILN            36   PROGRAM*        2/23 L    5/24 S    5/25
        ILW          1235   PROGRAM*       33/16     43/39     43/43 L   43/48     43/49     43/51
        ILWA         1231   PROGRAM*       43/34 L   43/36     43/56 S
        ILW0         1232   PROGRAM*       43/36 L   44/14
        ILW1         1246   PROGRAM*       44/07 L   45/08
        ILW2         1250   PROGRAM*       44/13 L   44/17     44/24
        IST          1074   PROGRAM*       33/14     39/04 L   39/41     39/44
        ISTA         1115   PROGRAM*       39/05     39/46 L   39/49
        ISTB            5                  39/09     39/49 D
        IST1         1101   PROGRAM*       39/15 L   39/40
        IST2         1111   PROGRAM*       39/17     39/20     39/38 L
        IT.             0   EXTERNAL*      15/04     39/48
        I.GL       100000   FTNTEXT        22/10     25/36     27/18     27/48     38/07
        JIN1          406   PROGRAM*       20/09     20/17 L
        JIN2          411   PROGRAM*       20/15     20/28 L   20/54     24/09
        LABA          476   PROGRAM*       22/45 S   23/04     23/16 L
        LAB1          451   PROGRAM*       22/06     22/10 L   23/14
        LAB2          455   PROGRAM*       22/11     22/24 L
        LAB3          464   PROGRAM*       22/22     22/29     22/50 L
        LAB4          474   PROGRAM*       23/05     23/11 L
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        LC.GLNP        22   FTNTEXT        28/30
        LC.NEXTP       44   FTNTEXT        28/25
        LD1           267   PROGRAM*       15/23     15/37 L
        LD2           270   PROGRAM*       15/30     15/41 L
        LD3           272   PROGRAM*       15/42     15/45 L
        LD4           275   PROGRAM*       15/48     15/53 L
        LD5           277   PROGRAM*       15/51     15/57 L
        LD6           302   PROGRAM*       16/05     16/10 L
        LD7           303   PROGRAM*       15/47     16/13 L
        LD8           307   PROGRAM*       16/14     16/22 L
        LD9           313   PROGRAM*       16/27     16/31 L
        LEVEL2          0   EXTERNAL*      34/13     43/44
        LSR             3   PROGRAM*        2/13 L   16/31     24/45 S   36/05 S   40/06     41/04     41/12
        L6B           160   PROGRAM*        8/17 L   10/22
        L7B           161   PROGRAM*        8/18 L    9/45     13/35
        L.ADF          33   FTNTEXT        21/31
        L.APL           0   EXTERNAL* 
        L.ELT           0   EXTERNAL*      22/25
        L.LCO          14   FTNTEXT        28/07
        L.NAME         52   FTNTEXT        41/16     44/33
        L.PIT           0   EXTERNAL*       5/04      6/12      6/45
        L.RB            7   FTNTEXT        38/26     44/38
        L.TXT           0   EXTERNAL*      41/40 S   42/46 S
        L.VDT           0   EXTERNAL*      41/05     41/34
        MACFLAG         0   EXTERNAL*       5/05
        MCG             0   EXTERNAL*      42/55
        NOP1          124   PROGRAM*        6/24      6/31      6/37 L
        N.AP            0   EXTERNAL*       1/50 X   34/21
        N.FP            0   EXTERNAL*      39/48     40/10
        N.GT            0   EXTERNAL*       7/34
        N.IT            0   EXTERNAL*       1/51 X    7/40     39/48
        N.OT            0   EXTERNAL*      39/48
        N.ST            0   EXTERNAL*      39/48
        N.VD            0   EXTERNAL*      39/48     42/48 S
        OC.BOS          1   FTNTEXT        41/54
        OC.IM         101   FTNTEXT        42/15
        OC.LAB          6   FTNTEXT         6/06
        OC.LD          50   FTNTEXT        42/04
        OC.ST          51   FTNTEXT        42/34
        OC.XMT         10   FTNTEXT        42/26
        OPL           750   PROGRAM*       33/12     34/12 L   34/24     36/27
        OPLA            3   TABLES         34/06 L   36/56     39/08     40/29 S   40/38     44/36 S   45/02 S   45/06
        OPLI          747   PROGRAM*       34/09 L   34/15
        OPL0          754   PROGRAM*       34/14     34/19 L
        OPL1          762   PROGRAM*       34/33 L   34/48
        OPL11        1025   PROGRAM*       34/49     36/26 L   37/25
        OPL12        1031   PROGRAM*       36/40 L   36/47
        OPL13        1034   PROGRAM*       36/45     36/49 L
        OPL2          765   PROGRAM*       34/46 L   36/20
        OPL3          767   PROGRAM*       34/35     34/53 L
        OPL4         1002   PROGRAM*       35/29 L   36/10
        OPL5         1007   PROGRAM*       34/17 S   35/38     35/44 L
        OPL6         1013   PROGRAM*       35/50     35/53 L
        OPL7         1015   PROGRAM*       35/48     36/01 L
        OPL8         1021   PROGRAM*       35/42     36/02     36/10 L
        OSM           320   PROGRAM*       16/39     17/06 L   17/37     36/06
        OSM1          330   PROGRAM*       17/20     17/24 L
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        OSM2          333   PROGRAM*       17/22     17/31 L
        OSM3          335   PROGRAM*       17/19     17/36 L
        OTC           735   PROGRAM*       33/10 E   33/10 L   33/22
        OT.             0   EXTERNAL*      39/48
        OUTUSE          0   EXTERNAL*      41/09     43/04     43/53
        OVC          1140   PROGRAM*       33/13     41/03 L   41/07     43/05
        OVCA         1225   PROGRAM*       41/20     43/26 L   43/28
        OVCL            4                  41/32     43/28 D
        OVC1         1155   PROGRAM*       41/13     41/34 L
        OVC2         1167   PROGRAM*       42/03 L   42/40
        OVC3         1177   PROGRAM*       42/08     42/25 L
        OVC4         1201   PROGRAM*       42/23     42/32 L
        OVC5         1215   PROGRAM*       41/35     43/02 L
        O.API           0   EXTERNAL*       1/50 X   34/20     34/56     36/28
        O.APL           0   EXTERNAL*      34/53
        O.BIT           0   EXTERNAL*       1/51 X   28/10
        O.CFT           0   EXTERNAL*       1/51 X
        O.ELT           0   EXTERNAL*      22/36
        O.GLT           0   EXTERNAL*       1/50 X   22/24
        O.LCT           0   EXTERNAL*       1/51 X   28/09
        O.LOOP          0   EXTERNAL*       1/50 X   18/54
        O.PIT           0   EXTERNAL*       5/03      5/33      6/15      6/50 S
        O.SYM          12                   1/41 D    5/31     35/24     39/06     40/13     41/15     44/07
        O.TET           0   EXTERNAL*       1/51 X    7/15
        O.TXT           0   EXTERNAL*       5/32      6/23     34/54     36/07
        O.VDT           0   EXTERNAL*      41/44
        PARCEL          2   PROGRAM*        2/12 E    2/12 L    4/04      4/22      5/30      6/38 S
        PLD1          246   PROGRAM*       14/15     14/22 L
        PLD2          250   PROGRAM*       14/22     14/27 L
        PO              5   PROGRAM*        2/16 L    5/07 S    6/48
        PSB             0   EXTERNAL*      42/49
        P.ADF          14   FTNTEXT        21/33
        P.FP           21   FTNTEXT        25/48
        P.GEN          67   FTNTEXT        18/52     19/19
        P.LC           17   FTNTEXT        27/56
        P.LCM           1   FTNTEXT        38/13     38/16     38/24     44/15     44/21     44/37
        P.RA           23   FTNTEXT        17/12     21/30     24/42     39/26     44/51
                                           19/19     22/18     38/33     40/11
        P.RB           14   FTNTEXT        38/24     38/33     44/37     44/51
        P.TYP          70   FTNTEXT        38/19     44/22
        RJ61          507   PROGRAM*       24/20     24/24 L
        RJ62          512   PROGRAM*       24/29     24/32 L
        RJ63          522   PROGRAM*       24/37     24/51 L
        RLV           562   PROGRAM*       18/12     18/40     20/46     27/47 L   28/01     28/28
        RLV0          556   PROGRAM*       27/36 L   27/49     28/32
        RLV1          571   PROGRAM*       28/13 L   28/27
        RLV2          572   PROGRAM*       28/17 L   28/23
        RLV3          576   PROGRAM*       28/19     28/30 L
        RTT             6   PROGRAM*        2/18 L    5/39      6/05     16/40     24/41
        R1.INP         36   FTNTEXT         5/17     20/42     20/45     24/26     41/56
        R1.RJP         40   FTNTEXT        42/17     42/27
        R1.RKP         20   FTNTEXT        42/18
        SDATA.          0   EXTERNAL*      43/41 S   43/47 S
        SET1          221   PROGRAM*       12/18     12/26 L
        SET2          224   PROGRAM*       12/26     12/31 L
        SET3          226   PROGRAM*       12/30     12/37 L
        SI.CAL         22                   2/01 D
1       POST - CONVERT ISSUED INSTRUCTIONS TO BCD                     COMPASS 3.7-871.     24/05/02. 15.55.51.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        SI.CAP         36                   2/01 D   11/44     14/11     16/13     18/11     18/33
                                            7/17     12/16     15/45     18/07     18/30
        SI.H2P         73                   1/56 D   16/13     16/33
        SI.IHL         22                   2/02 D
        SI.IHP         14                   2/02 D   15/05     15/22     16/33     18/11     20/07
                                            2/06     15/08     15/45     16/38     18/37
        SI.OCL         13                   1/57 D
        SI.OCP         60                   1/57 D
        SI.RIL          6                   2/04 D
        SI.RIP          0                   2/04 D
        SI.RJL          6                   2/03 D
        SI.RJP          6                   2/03 D    9/39     10/16     10/39     13/20     14/08     15/20     18/33
                                            7/07      9/42     10/19     11/16     13/23     14/11     15/22     18/37
        SI.RKL          6                   2/06 D
        SI.RKP         14                   2/06 D    9/42     10/19     13/23
        SRI          1220   PROGRAM*       42/01     42/12     42/30     42/44     43/24
                                           42/06     42/22     42/37     43/13 L
        SSP             0   EXTERNAL*      42/50
        ST.             0   EXTERNAL*      39/48     44/01
        SYMORD          0   EXTERNAL*      44/08
        TEMPA0.         0   EXTERNAL*      21/38
        TLD0          136   PROGRAM*        7/09      7/14 L
        TLD1          140   PROGRAM*        7/24 L    7/29
        TLD3          150   PROGRAM*        7/27      7/48      7/51 L
        TLD4          154   PROGRAM*        7/52      8/06 L
        TSB           633   PROGRAM*        8/12     16/22     20/53     23/03     24/51     31/04     36/01     44/57
                                           12/39     17/36     21/24     24/08     30/48 L   35/23     37/22
        TSB0          632   PROGRAM*       30/45 L   30/56
        TSL          1122   PROGRAM*       33/15     40/05 L   40/07     40/39
        TYII1         212   PROGRAM*       11/48     12/03 L
        TYIM1         236   PROGRAM*       13/28     13/34 L
        T.CAL          22   FTNTEXT         7/36
        T.EQVP         72   FTNTEXT         7/28
        T.FAP          71   FTNTEXT         7/18      7/28      7/43
        T.LAB           6   FTNTEXT        38/18     44/19     44/20
        UCODE.          0   EXTERNAL*      43/04
        UDATA.          0   EXTERNAL*      43/53
        UJP1          421   PROGRAM*       20/52 L   21/09
        UJP2          424   PROGRAM*       20/50     20/56 L
        UVARDIM         0   EXTERNAL*      41/09
        VARDIM.         0   EXTERNAL*      41/10
        VD.             0   EXTERNAL*      39/48     41/51
        WB.LAB          0   EXTERNAL*      21/25     22/17
        WML            42   PROGRAM*        3/10 L    5/25     36/18     39/43     41/32
                                            3/14      6/43     37/24     40/38
        WMLA           53   PROGRAM*        3/27 S    3/29      3/36 L
        WML2           44   PROGRAM*        3/14 L    3/34
        WML3           45   PROGRAM*        3/17 L    3/19
        WTC=            0   EXTERNAL*       3/28     45/05
        Z.TXT           1                   1/41 D
        Z.VDT           0   EXTERNAL*      41/41
        .PLI            0   FTNTEXT        19/30 F
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1677              IDENT  SQZ
                       1677                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1677 
                                        TABLES    COMMON          0        12 
  
  
                                        ENTRY POINTS. 
  
                                        B=SQZ            0+           SUVA            22+           CMO           1565+ 
                                        SBB             74+           SIE              1+ 
                                        STLDS           21+           SQZB             5+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.TXT     L.RND     BIR       LINENR    N.GT      L.HB
                                        L.TXT     F.RDT     VD.       RNI       ATS=      L.MOD 
                                        O.RND     BRN       O.UDT     O.TET     Z.RND 
  
  
  
  
                                                  IDENT  SQZ                                                     SQZ         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  PASS2TM                                                        SQZ         5
             0                           B=SQZ    RPVDEF                                                         SQZ         6
                                                                                                                 SQZ         7
                                                  TABLES TXT,RND                                                 SQZ        10
                                                                                                                 SQZ        11
                                                  EXT    F.RDT,BRN,BIR                                           SQZ        12
                                                                                                                 SQZ        13
                                        **        SQZ - SQUEEZE INSTRUCTION SEQUENCE TO -                        SQZ        14
                                        *                ELIMINATE REDUNDANT AND UNUSED INSTRUCTIONS             SQZ        15
                                        *                INSTRUCTION SIMPLIFICATION ( ALGEBRAIC IDENTITIES )     SQZ        16
                                        *                COMPILE TIME EVALUATION OF CONSTANT EXPRESSIONS         SQZ        17
                                        *                GLOBAL TEMPORARY SQUEEZING ( IT."S )                    SQZ        18
                                        *                                                                        SQZ        19
                                        *         ENTRY  *TXT* TABLE HOLDS AN ARBITRARY COLLECTION OF BLOCKS     SQZ        20
                                        *         TERMINATED BY AN *EOQ*.  R-NUMBERS MAY NOT "ROLL OVER".        SQZ        21
                                        *                                                                        SQZ        22
                                        *         EXIT   BLOCK SQUEEZED, REDUNDANT AND USELESS INSTRUCTIONS      SQZ        23
                                        *         REMOVED. PRECEDENCE BITS ( PS,PRS,RJRS ) SET AND USES COUNTS   SQZ        24
                                        *         INSTALLED, LINK WORDS CLEARED AND *USI* BIT SET FOR REDUCED    FCC0716    10
                                        *         *IAZ/ISZ* INSTRUCTIONS TO PREVENT OVERSQUEEZING IN OPT=2 .     FCC0716    11
                                        *                                                                        SQZ        26
                                        *         S.I. JASIK - JAN 1973                                          SQZ        27
  
  
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     2
  
  
                                                  ENTRY  SBB                                                     SQZ        29
                                                  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
                                         JP       DEFINE 1           =1 IF INSTRUCTION IS A JP ON *MRC*          SQZ        42
                                                  DEFINE 5                                                       SQZ        43
                                         RS       DEFINE 18          *RS* DEFINITION ADDRESS                     SQZ        44
                                         STC      DEFINE 18          STORE CHAIN ( POINTER TO PRECEEDING STORES  SQZ        45
                                         IC       DEFINE 18          MEMORY REF / MISC INSTRUCTION CHAINS        SQZ        46
  
  
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     3
        TABLE FORMATS, FLAGS                                          SQZ                 SQUEEZE 
  
                                        **        RN. - R-NUMBER DEFINITION/EQUIVALENCE TABLE FORMAT             SQZ        49
                                                                                                                 SQZ        50
                                                  DESCRIBE RN.,60                                                SQZ        51
                                         Z        DEFINE 1           RI DEFINES A ZERO                           SQZ        52
                                         C        DEFINE 1           SMALL CONSTANT ( S / FMA )                  SQZ        53
                                         SA       DEFINE 1           RI IS RESULT OF SA  RI,RJ                   SQZ        54
                                         IAC      DEFINE 1           IA/IS HAS A CONSTANT OPERAND                SQZ        55
                                         INC      DEFINE 1           IA/IS IS AN INCREMENT ( I = I+CON )         SQZ        56
                                         XMT      DEFINE 1           RI IS THE RESULT OF AN XMT                  SQZ        57
                                         XMTC     DEFINE 1           RI IS THE RESULT OF AN XMTC                 SQZ        58
                                         PZ       DEFINE 1           PACKED ZERO                                 SQZ        59
                                         NR       DEFINE 1           NORMALIZE NOT REQUIRED                      SQZ        60
                                         FMA      DEFINE 1           "0 IF FMA CHANGED TO A SET                  SQZ        61
                                                  DEFINE 4                                                       SQZ        62
                                         USES     DEFINE 10          USES COUNT                                  SQZ        63
                                         TP       DEFINE 18          *TXT* ADDR OF INSTRUCTION DEFINING THE RI   SQZ        64
                                         RN       DEFINE 18          R-NUMBER / EQUIVALENT                       SQZ        65
                                                                                                                 SQZ        66
                                         CZ       DEQU   C,2         CONSTANT AND ZERO BITS                      SQZ        67
                                         CIA      DEQU   IAC,3       C, SA , IAC BITS                            SQZ        68
                                         IACI     DEQU   INC,2       IAC & INC                                   SQZ        69
  
  
  
                                        *         FLAGS                                                          SQZ        71
                                                                                                                 SQZ        72
             0                     1     BIAS     BSSZ   1           *RNI* BIAS , =0 DURING PHASE 1 OF OPT=2     SQZ        73
                                                                                                                 SQZ        74
                                                  USE    /TABLES/                                                SQZ        75
             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     SXTC     BSS    1           SXT CHAIN                                   SQZ        80
                                   3     N.CHAIN  EQU    *-MRC                                                   SQZ        81
             5                     1     EOQA     BSS    1           ADDR OF FINAL *EOQ*                         SQZ        82
                              600001     RN.MASK  EQU    600001B                                                 FCC0238AX  53
             6                     1     IXF      BSS    1           "0 IF *IM* WITH *USI* BIT SET               FCC0238AX  54
             7                     1     RSS      BSS    1           RS SEPARATION FLAG                          SQZ        83
            10                     1     STC      BSS    1           ADDRESS OF FINAL STORE ( ^L2 )              SQZ        85
            11                     1     JPXA     BSS    1           R1 ADDRESS OF LAST *JPX*                    SQZ        86
                                                  USE    0                                                       SQZ        87
  
  
                                        *         REGISTER ASSIGNMENTS                                           SQZ        89
                                                                                                                 SQZ        90
                                         TXT      MICRO  1,,/A0/     REGISTER HOLDING FWA OF BLOCK               SQZ        91
                                         OC       MICRO  1,,/B3/     B REGISTER HOLDING OPCODE                   SQZ        92
                                         RN       MICRO  1,,/B7/     B REGISTER HOLDING BASE OF *RND*            SQZ        93
                                        *         (B1) = 1                                                       SQZ        94
                                        *         (B2) = 2                                                       SQZ        95
                                        *         (X0) = MASK FOR RI FIELD                                       SQZ        96
                                        *         THROUGHOUT THE MASTER SQUEEZE LOOP                             SQZ        97
                                        *         (A4,X4) = DESCRIPTOR OF CURRENT RLIST INSTRUCTION              SQZ        98
                                        *         (A5) = ADDRESS OF INSTRUCTION BEING INSPECTED                  SQZ        99
                                        *         (B6) = RI OF CURRENT INSTRUCTION                               SQZ       100
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     4
        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
             1  0200400001 +             SIE      ROUTINE                                                        SQZ       108
             2  5150000001 +                      SA5    SIE                                                     SQZ       109
                          5120000000 X            SA2    =XL.MOD                                                 SQZ       110
             3  5130000000 X                      SA3    =XL.HB                                                  SQZ       111
                          43600                   MX6    0           TSS = 0                                     SQZ       112
                               36423              IX4    X2+X3                                                   SQZ       113
             4  7274777767                        SX7    X4-8        BIAS = L.HB + L.MOD-8                       SQZ       114
                          0400000010 +            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
             5  0200400005 +             SQZB     ROUTINE                                                        SQZ       121
             6  5150000005 +                      SA5    SQZB                                                    SQZ       122
                          7170000000              SX7    0           BIAS = 0                                    SQZ       123
             7  5170000021 +                      SA7    STLDS       STLDS = 0                                   SQZ       124
                                                                                                                 SQZ       125
            10  5110000000 X             SQZB1    SA1    L.TXT                                                   SQZ       126
                          5226000017 +            SA2    SQZBA+X6                                                SQZ       127
            11  5170000000 +                      SA7    BIAS                                                    SQZ       128
                          10655                   BX6    X5                                                      SQZ       129
                               22702              LX7    X2                                                      SQZ       130
            12  5160000074 +                      SA6    SBB         [SBB] = EXIT ADDRESS                        SQZ       131
                          5170001573 +            SA7    SBB.JT      [SBB.JT] = *EOQ* PROCESSOR ADDRESS          SQZ       132
            13  7211777771                        ALLOC  RND,X1-6    ALLOC( RND , L.TXT-6 )                      SQZ       134
            15  5150000000 X                      SA5    O.TXT                                                   SQZ       135
                          43054                   MX0    -R1.RIL                                                 SQZ       136
                               63720              S"RN"  X2                                                      SQZ       137
            16  66211                             SB2    B1+B1                                                   SQZ       138
                     53050                        S"TXT" X5                                                      SQZ       139
                          0400000123 +            EQ     SBB5A                                                   SQZ       140
                                                                                                                 SQZ       141
            17                           SQZBA    BSS    0                                                       SQZ       142
      L      0                                    LOC    0                                                       SQZ       143
      L      0  0400000157 +                      EQ     .EOQ        NO *TST* SQZ                                SQZ       144
      L      1  0400000023 +                      EQ     STS                                                     SQZ       145
            21                                    LOC    *O                                                      SQZ       146
                                                                                                                 SQZ       147
                                                  QUAL                                                           SQZ       148
                                                                                                                 SQZ       149
            21  00000000000000000000     STLDS    ENTRY. 0           ST/LD SQUEEZE FLAG, "0 IF ST/LD SQZ DONE    SQZ       150
            22  00000000000000000000     SUVA     ENTRY. 0           SQUEEZED USE *BV* ADDR ( *AUV* CALL )       FCC0509    46
                                                                                                                 SQZ       151
                                                  ENTRY  SIE,SQZB                                                SQZ       152
                                   1 +   SIE      EQU    /SQUEEZE/SIE                                            SQZ       153
                                   5 +   SQZB     EQU    /SQUEEZE/SQZB                                           SQZ       154
                                                                                                                 SQZ       155
                                                  QUAL   SQUEEZE                                                 SQZ       156
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     5
        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
            23  5110000000 X             STS      SA1    =XN.GT      N = N.GT      */ NUMBER OF ASSIGNED IT. S   SQZ       164
                          5150000010 C            SA5    STC                                                     SQZ       165
            24  6120000076                        SB2    OC.TST                                                  SQZ       166
                          66400                   SB4    B0          USC = 0       */ UNASSIGNED *TST* CHAIN     SQZ       167
                               63550              SB5    X5          I = STC                                     SQZ       168
            25  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
            26  0400000030 +                      EQ     STS2                                                    SQZ       172
                                                                                                                 SQZ       173
                                        *         SCAN *STC* AND FORM CHAINS OF ASSIGNED AND UNASSIGNED *TST*"S  SQZ       174
                                                                                                                 SQZ       175
            27  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
            30  56550                    STS2     SA5    B5          LI = I                                      SQZ       180
                     0450000036 +                 ZR     B5,STS3     IF I = 0      */ END OF CHAIN               SQZ       181
                               20552              LX5    -I.STCP                                                 SQZ       182
            31  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
            32  26633                             UX6    B3,X3                                                   SQZ       186
                     0532000030 +                 NE     B3,B2,STS2  IF OC[R1] " OC.TST                          SQZ       187
                                                                                                                 SQZ       188
                               20452              LX4    -IH.CAP                                                 SQZ       189
            33  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
            34  0336000027 +                      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
            35  64450                             SB4    A5          USC = LI                                    SQZ       198
                     0400000030 +                 EQ     STS2                                                    SQZ       199
                                                                                                                 SQZ       200
            36  5120000000 X             STS3     SA2    =XO.TET                                                 SQZ       201
                          64300                   SB3    A0          I = ASC                                     SQZ       202
                               63520              SB5    X2                        (B5) = [O.TET]                SQZ       203
            37  0430000053 +                      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
            40  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
            41  53266                             SA2    B6+X6       LIP = TB + R;  K = [LIP]                    SQZ       212
                     20452                        LX4    -IH.CAP                                                 SQZ       213
                          73740                   SX7    X4          C = CA[R2]                                  SQZ       214
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     6
        STS - SQUEEZE TEMP STORES TO ELIMINATE REDUNDANT ONES         STS                 SQUEEZE 
  
            42  0332000051 +                      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                                                      FCC2392    16
            43  20570                             LX5    T.CALP                                                  FCC2392    17
                     11435                        BX4    X3*X5                                                   FCC2392    18
                          0314000051 +            NZ     X4,STS5     IF CA FIELD STILL IN USE                    FCC2392    19
            44  53525                             SA5    B5+X2                                                   SQZ       220
                     11435                        BX4    X3*X5                                                   SQZ       221
                                                  LX4    59-T.INVP                                               SQZ       222
                          0324000051 +            PL     X4,STS5     IF ^( INV[TET(C)] & INV[TET(K)] )           SQZ       223
                                                                                                                 SQZ       224
            45  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
            46  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
            47  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
            50  0400000052 +                      EQ     STS6                                                    SQZ       237
                                                                                                                 SQZ       238
            51  5072000000               STS5     SA7    A2+         [LIP] = C     */ SET ASSIGNMENT             SQZ       239
                                                                                                                 SQZ       240
            52  56530                    STS6     SA5    B3          LI = [I]                                    SQZ       241
                     63350                        SB3    X5          I = [LI]                                    SQZ       242
                          0530000040 +            NZ     B3,STS4     IF I " 0                                    SQZ       243
                                                                                                                 SQZ       244
                                        *         ASSIGN TEMP NUMBERS TO THE UNASSIGNED *TST*"S                  SQZ       245
                                                                                                                 SQZ       246
            53  76210                    STS7     SX2    B1          I = USC                                     SQZ       247
                     20244                        LX2    RN.USESP                                                SQZ       248
                          0440000070 +            ZR     B4,STS0     IF I = 0      */ NO UNASSIGNED TEMPS        SQZ       249
                                                                                                                 SQZ       250
            54  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
            55  53566                             SA5    B6+X6       LIP = TB + RI[R1];  K = [LIP]               SQZ       254
                     20452                        LX4    -IH.CAP     C = CA[R2]                                  SQZ       255
                          0335000060 +            MI     X5,STS9     IF K < 0      */ NO TEMP NUMBER ASSIGNED    SQZ       256
                                                                                                                 SQZ       257
                                        *         *TST* IS REDUNDANT, ELIMINATE IT                               SQZ       258
                                                                                                                 SQZ       259
            56  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
            57  54630                             SA6    A3                                                      SQZ       264
                     0400000062 +                 EQ     STS10                                                   SQZ       265
                                                                                                                 SQZ       266
                                        *         *TST* NOT REDUNDANT, ASSIGN IT A TEMP NUMBER                   SQZ       267
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     7
        STS - SQUEEZE TEMP STORES TO ELIMINATE REDUNDANT ONES         STS                 SQUEEZE 
  
                                                                                                                 SQZ       268
            60  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
            61  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
            62  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                                                       FCC2392    20
            63  20370                             LX3    T.CALP                                                  FCC2392    21
                     12663                        BX6    X6+X3       CAL[TET(C)]=1  */ LOCK CA FIELD             FCC2392    22
                          54630                   SA6    A3                                                      SQZ       280
                               13754              BX7    X5-X4                                                   SQZ       281
            64  63370                             SB3    X7                                                      SQZ       282
                     0430000067 +                 ZR     B3,STS11    IF C = K                                    SQZ       283
                                                                                                                 SQZ       284
                               53555              SA5    B5+X5                                                   SQZ       285
            65  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
            66  54650                             SA6    A5                                                      SQZ       291
                                                                                                                 SQZ       292
            67  56440                    STS11    SA4    B4          LI = I                                      SQZ       293
                     63440                        SB4    X4          I = [LI]      */ NEXT ON CHAIN              SQZ       294
                          0540000054 +            NZ     B4,STS8     IF I " 0                                    SQZ       295
                                                                                                                 SQZ       296
            70  10711                    STS0     BX7    X1          N.GT = N      */ NEXT AVAIL TEMP NO         SQZ       297
                     5120000017 +                 SA2    SQZBA                                                   SQZ       298
                               66211              SB2    B1+B1                                                   SQZ       299
            71  5170000000 X                      SA7    N.GT                                                    SQZ       300
                          10622                   BX6    X2          [SBB.JT] = [SQZBA]  */ RESTORE *EOQ* PROC   SQZ       301
            72  5106777774                        S"TXT" B6-3                                                    SQZ       302
                          5160001573 +            SA6    SBB.JT                                                  SQZ       303
            73  0400000157 +                      EQ     .EOQ                                                    SQZ       304
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     8
        INITIALIZATION                                                SQZ                 SQUEEZE 
  
                                        **        SBB - SQUEEZE EXTENDED BASIC BLOCK. ENTRY TO SQZ FROM PROSEQ.  SQZ       306
                                        *                                                                        SQZ       307
                                        *         ENTRY  (BRN) = BASE,LIMIT R-NUMBERS IN SEQUENCE                SQZ       308
                                        *                (BIR) = BASE LIMIT INTERMEDIATE R-NUMBERS IN SEQUENCE.  SQZ       309
            74  0200400074 +             SBB      ROUTINE                                                        SQZ       310
            75  5110000000 X                      SA1    BRN                                                     SQZ       311
                          5130000000 X            SA3    BIR                                                     SQZ       312
            76  54211                             SA2    A1+B1                                                   SQZ       313
                     54431                        SA4    A3+B1                                                   SQZ       314
                          37221                   IX2    X2-X1       DEL(R) = BRN(2) - BRN(1)                    SQZ       315
                               76011              SX0    B1+B1                                                   SQZ       316
            77  37443                             IX4    X4-X3       DEL(IR) = BIR(2) - BIR(1)                   SQZ       317
                     36724                        IX7    X2+X4                                                   SQZ       318
                          37601                   IX6    X0-X1                                                   SQZ       319
                               36170              IX1    X7+X0                                                   SQZ       320
           100  37703                             IX7    X0-X3                                                   SQZ       321
                     5160000000 C                 SA6    RNBT        RNBT(0) = 2 - BRN(1)                        SQZ       322
                               36727              IX7    X2+X7                                                   SQZ       323
           101  54761                             SA7    A6+B1       RNBT(1) = 2 + DEL(R) - BIR(1)               SQZ       324
                     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
           103  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
  
  
  
                                        **        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
           104  6150000017                        SB5    R1.RIL-1                                                SQZ       338
                          6160000000 C            SB6    RNBT                                                    SQZ       339
           105  66211                             SB2    B1+B1                                                   SQZ       340
                     43054                        MX0    -R1.RIL     (X0) = MASK FOR EXTRACTING R-NUMBERS        SQZ       341
                          43101                   MX1    1                                                       SQZ       342
                               54402              SA4    "TXT"+B2    DI = O.TXT + 2                              SQZ       343
           106  0400000113 +                      EQ     SBB2                                                    SQZ       344
                                                                                                                 SQZ       345
                                        *         TYPE II/III                                                    SQZ       346
                                                                                                                 SQZ       347
           107  15350                    SBB1     BX3    -X0*X5      RI = RI[R1]                                 SQZ       348
                     23753                        AX7    B5,X3                                                   SQZ       349
                          53276                   SA2    X7+B6       BIAS = RNBT( SHIFT(RI,-15) )                SQZ       350
                               54351              SA3    A5+B1       R2 = R1 + 1                                 SQZ       351
           110  36625                             IX6    X2+X5       RI = RI + BIAS                              SQZ       352
                     54650                        SA6    A5                                                      SQZ       353
                          20330                   LX3    -IH.RFP                                                 SQZ       354
                               15630              BX6    -X0*X3                                                  SQZ       355
           111  23756                             AX7    B5,X6                                                   SQZ       356
                     63460                        SB4    X6                                                      SQZ       357
                          0614000113 +            LE     B4,B1,SBB2  IF RF @ 1                                   SQZ       358
           112  53276                             SA2    X7+B6                                                   SQZ       359
                     36623                        IX6    X2+X3       RF = RF + BIAS                              SQZ       360
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE     9
        INITIALIZATION                                                SBB                 SQUEEZE 
  
                          20644                   LX6    IH.RFP                                                  SQZ       361
                               54630              SA6    A3                                                      SQZ       362
                                                                                                                 SQZ       363
           113  54542                    SBB2     SA5    A4+B2       R1 = DI + 2                                 SQZ       364
                     54452                        SA4    A5+B2       DI = R1 + 2                                 SQZ       365
                                                  LX4    58-D.TYP                                                SQZ       366
                          36644                   IX6    X4+X4                                                   SQZ       367
                               13746              BX7    X4-X6                                                   SQZ       368
           114  0337000107 +                      MI     X7,SBB1     IF TYPE[DI] = II ! III                      SQZ       369
                          0334000122 +            MI     X4,SBB5     IF TYPE[DI] = IV                            SQZ       370
                                                                                                                 SQZ       371
                                        *         TYPE I INSTRUCTION                                             SQZ       372
                                                                                                                 SQZ       373
           115  26735                             UX7    "OC",X5                                                 SQZ       374
                     7163006000                   SX6    "OC"+6000B  RWD = OC[R1] + 6000B  */ PACKED OC + TERM   SQZ       375
                               20534              LX5    -R1.RJP     RNUMS = RJ/RK/RI                            SQZ       376
                                                                                                                 SQZ       377
           116  15350                    SBB3     BX3    -X0*X5                                                  SQZ       378
                     63430                        SB4    X3                                                      SQZ       379
                          23453                   AX4    B5,X3                                                   SQZ       380
                               53246              SA2    X4+B6       BIAS = RNBT( SHIFT(RN,-15) )                SQZ       381
           117  20620                             LX6    R1.RIL      RWD = SHIFT(RWD,16)                         SQZ       382
                     0614000120 +                 LE     B4,B1,SBB4  IF RN @ 1                                   SQZ       383
                               36323              IX3    X2+X3       RN = RN + BIAS                              SQZ       384
           120  20520                    SBB4     LX5    R1.RIL      RNUMS = SHIFT(RNUMS,16)                     SQZ       385
                     12663                        BX6    X6+X3                                                   SQZ       386
                          0326000116 +            PL     X6,SBB3     IF RWD > 0                                  SQZ       387
           121  15761                             BX7    -X1*X6      [R1] = TYI(OC,RJ,RK,RI)                     SQZ       388
                     54750                        SA7    A5                                                      SQZ       389
                          0400000113 +            EQ     SBB2                                                    SQZ       390
                                                                                                                 SQZ       391
           122  26735                    SBB5     UX7    "OC",X5                                                 SQZ       392
                     0530000113 +                 NZ     "OC",SBB2   IF OC[R1] " EOQ                             SQZ       393
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    10
        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
           123  66422                    SBB5A    SB4    B2+B2                                                   SQZ       400
                     5120000004 X                 SA2    F.RDT+OC.RS       (X2) = DESCR FOR A *RJ* RS            SQZ       401
                               76700              SX7    B0          LINK = 0                                    SQZ       402
           124  76110                             SX1    B1                                                      SQZ       403
                     20151                        LX1    D.^DP                                                   SQZ       404
                          6150000004              SB5    OC.RS                                                   SQZ       405
           125  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
           126  0400000132 +                      EQ     SBB8                                                    SQZ       410
                                                                                                                 SQZ       411
           127  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
           130  0325000132 +                      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
           131  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
           132  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
           133  26635                             UX6    "OC",X5                                                 SQZ       429
                     0324000131 +                 PL     X4,SBB7     IF D[DI]      */ DEFINES AN *RI* ( RESULT ) SQZ       430
                               20407              LX4    D.^DP-D.STP                                             SQZ       431
           134  0430000141 +                      ZR     "OC",SBB9   IF OC[R1] = OC.EOQ                          SQZ       432
                          0435000127 +            EQ     "OC",B5,SBB6      IF OC[R1] = OC.RS                     SQZ       433
           135  0324000132 +                      PL     X4,SBB8     IF ^ST[DI]                                  SQZ       434
                                                  IFNE   .DAL,0,2                                        LVL 2   SQZ       435
                          20472                   LX4    D.STP-D.L2P                                             SQZ       436
           136  0334000132 +                      MI     X4,SBB8     IF L2[DI]                                   SQZ       437
                          53337                   SA3    "RN"+X3                                                 SQZ       438
                               54741              SA7    A4+B1       [R1+3] = LINK                               SQZ       439
           137  20352                             LX3    -RN.TPP                                                 SQZ       440
                     74770                        SX7    A7                                                      SQZ       441
                          20722                   LX7    18          LINK = R1 + 3                               SQZ       442
                               53432              SA4    X3+B2       DJ = TP[RI] + 2                             SQZ       443
           140  12614                             BX6    X1+X4                                                   SQZ       444
                     54640                        SA6    A4          PS[DJ] = 1                                  SQZ       445
                          0400000132 +            EQ     SBB8                                                    SQZ       446
                                                                                                                 SQZ       447
           141  74650                    SBB9     SX6    A5                                                      SQZ       448
                     5160000005 C                 SA6    EOQA        EOQA = R1     */ SAVE *EOQ* ADDRESS         SQZ       449
                               20752              LX7    -I.STCP     STC = LINK    */ ADDRESS OF FINAL STORE     SQZ       450
           142  5170000010 C                      SA7    STC                                                     SQZ       451
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    11
        INITIALIZATION                                                SBB                 SQUEEZE 
  
                                                                                                                 SQZ       452
                                        *         NOW SET THE REGISTER STORE PRECEDENCE BITS                     SQZ       453
                                                                                                                 SQZ       454
                          0460000150 +            ZR     B6,SBB11    IF RSL = 0    */ NO REGISTER STORES         SQZ       455
           143  20173                             LX1    D.PRSP-D.PSP                                            SQZ       456
                     43700                        MX7    0                                                       SQZ       457
                                                                                                                 SQZ       458
           144  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
           145  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
           146  12654                             BX6    X5+X4       DI = DI ! BIT                               SQZ       466
                     63620                        SB6    X2          RSL = [RSL]                                 SQZ       467
                          54640                   SA6    A4                                                      SQZ       468
           147  0560000144 +                      NZ     B6,SBB10    IF RSL " 0                                  SQZ       469
                                                                                                                 SQZ       470
                                        *         COMPLETE INITIALIZATION OF *RND*, SET REGISTERS FOR MAIN LOOP  SQZ       471
                                                                                                                 SQZ       472
           150  74500                    SBB11    SX5    "TXT"                                                   SQZ       473
                     20522                        LX5    RN.TPP                                                  SQZ       474
                          43601                   MX6    1                                                       SQZ       475
                                                  LX6    1+RN.ZP                                                 SQZ       476
                               76410              SX4    B1                                                      SQZ       477
           151  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
           152  56670                             SA6    "RN"        RND(0) = RNDT(Z,8,O.TXT,0)   ( B0 )         SQZ       482
                     56771                        SA7    "RN"+B1     RND(1) = RNDT(0,0,O.TXT,1)   ( A0 )         SQZ       483
                          43600                   CLEAR              CLEAR CHAIN POINTERS                        SQZ       484
           154  5160000007 C                      SA6    RSS         RSS = 0                                     SQZ       485
                          5160000011 C            SA6    JPXA        JPXA = 0                                    SQZ       486
           155  5160000006 C                      SA6    IXF         IXF = 0                                     FCC0238AX  55
                          54402                   SA4    "TXT"+B2    DI = O.TXT + 2                              SQZ       487
                                                  TRACE  INITX,RLIST                                             SQZ       488
           156  0400000166 +                      EQ     MSL1                                                    SQZ       489
  
  
  
                                        *         EOQ - END OF REDUCTION PHASE                                   SQZ       491
                                                                                                                 SQZ       492
           157                                    PROCESS EOQ                                                    SQZ       493
           157  0100001406 +                      RJ     EDD         XFER USES COUNTS, MARK DEAD DEFINITIONS     SQZ       494
                                                  TRACE  EDD,RLIST                                               SQZ       495
           160  0100001441 +                      RJ     EDI         COMPRESS SEQUENCE                           SQZ       496
                                                  TRACE  SQZ.X,RLIST                                             SQZ       497
                                                                                                                 SQZ       498
           161  5120000000 +                      SA2    BIAS                                                    SQZ       499
                          5105000000              SA0    B5+                                                     SQZ       500
           162  0100000000 X                      CALL   RNI         RENUMBER THE INSTRUCTIONS                   SQZ       501
           163  7160000000                        SX6    0                                                       SQZ       502
                          5160000000 X            SA6    L.RND       L.RND = 0                                   SQZ       503
           164  0100001501 +                      RJ     IXI         INSERT EXTRA INSTRUCTIONS                   FCC0238AX  56
           165  0400000074 +                      EQ     SBB         RETURN                                      SQZ       504
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    12
        MASTER SQUEEZE LOOP                                           MSL                 SQUEEZE 
  
                                        **        MSL - MASTER SQUEEZE LOOP                                      SQZ       506
                                        *         REPLACE INSTRUCTIONS WHOSE RESULTS ARE KNOWN WITH SIMPLER      SQZ       507
                                        *         INSTRUCTIONS, OR ELIMINATE REDUNDANT INSTRUCTIONS              SQZ       508
                                        *         MOST OF THE SPECIAL CASING HERE CENTERS ABOUT REDUCING         SQZ       509
                                        *         INSTRUCTIONS WHOSE OPERANDS ARE ZERO.  THIS IS NECESSARY       SQZ       510
                                        *         BECAUSE IN PASS 1, *ARITH* OUTPUTS MIXED MODE COMPUTATIONS AS  SQZ       511
                                        *         (REAL,0) OP COMPLEX , ETC.                                     SQZ       512
                                                                                                                 SQZ       513
                                                                                                                 SQZ       514
           166  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
           167  26735                             UX7    "OC",X5                                                 SQZ       522
                     0316000177 +                 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
           170  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
           171  20442                             LX4    59-D.CMP                                                SQZ       532
                     15550                        BX5    -X0*X5                                                  SQZ       533
                          0324000174 +            PL     X4,MSL2     IF ^CM[DI]                                  SQZ       534
           172  63410                             SB4    X1                                                      SQZ       535
                     63520                        SB5    X2                                                      SQZ       536
                          0645000174 +            GE     B4,B5,MSL2  IF RJ \ RK    */ CANONICAL ORDER            SQZ       537
           173  5012000000                        SA1    A2+                                                     SQZ       538
                          53277                   SA2    "RN"+X7     SWAP( RJ , RK )                             SQZ       539
                                                                                                                 SQZ       540
           174  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
           175  20340                             LX3    R1.RJP                                                  SQZ       545
                     12535                        BX5    X3+X5                                                   SQZ       546
                          20620                   LX6    R1.RKP                                                  SQZ       547
                               36756              IX7    X5+X6                                                   SQZ       548
           176  12556                             BX5    X5+X6                                                   SQZ       549
                     5075000000                   SA7    A5+0        [R1] = TYI(OC,RJ,RK,RI)                     SQZ       550
                                                                                                                 SQZ       551
                                        **        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
           177  15350                    MSL3     BX3    -X0*X5                                                  SQZ       558
                     63630                        SB6    X3          (B6) = RI                                   SQZ       559
                          0233001573 +            JP     SBB.JT+"OC" JUMP( SBB.JT(OC[R1]) )                      SQZ       560
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    13
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     SXT                 SQUEEZE 
  
                                        **        SPECIAL PROCESSING OF TYPE I INSTRUCTIONS                      SQZ       562
                                                                                                                 SQZ       563
           200                                    PROCESS SXT        CONSTANT SHIFT PREDECESSOR                  SQZ       564
           200  5034000004                        SA3    A4+4        DIS = DI + 4                                SQZ       565
                          20334                   LX3    59-D.KSP                                                SQZ       566
           201  0323000230 +                      PL     X3,AUC.RJ   IF ^KS[DIS]   */ NEXT IS NOT A CON SHIFT    SQZ       567
                          20101                   LX1    59-RN.CP                                                SQZ       568
           202  0321000212 +                      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
           203  0100001153 +                      RJ     DCV         VAL = DCV(R1J)                              SQZ       575
           204  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
           205  6133777757                        SB3    B3-OC.KLS                                               SQZ       580
                          20123                   LX1    RN.TPP+59-RN.CP                                         SQZ       581
                               63430              SB4    X3                                                      SQZ       582
           206  22647                   +         LX6    B4,X7                                                   SQZ       583
                     0430000207 +                 ZR     B3,*+1      VAL[RI] = SHIFT( VAL[RJ] , CA[R2S] )        SQZ       584
                               23647              AX6    B4,X7                                                   SQZ       585
           207  73360                             SX3    X6                                                      SQZ       586
                     13763                        BX7    X6-X3                                                   SQZ       587
                          0317000212 +            NZ     X7,SXT0     IF VAL " SXIXJ(VAL)                         SQZ       588
                                                                                                                 SQZ       589
           210  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
                               15350              BX3    -X0*X5                                                  SQZ       593
           211  63630                             SB6    X3                                                      SQZ       594
                     0400001161 +                 EQ     CCV                                                     SQZ       595
                                                                                                                 SQZ       596
           212  5120000004 C             SXT0     SA2    SXTC                                                    SQZ       597
                          0302000227 +            ZR     X2,SXT4     IF SXTC = 0   */ FIRST *SXT*                SQZ       598
           213  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
           214  26743                             UX7    B4,X3                                                   SQZ       603
                     54331                        SA3    A3+B1                                                   SQZ       604
                          20352                   LX3    -IH.CAP                                                 SQZ       605
                               15630              BX6    -X0*X3                                                  SQZ       606
           215  27446                             PX4    B4,X6       OC.CA = TY1(OC[R1+4],0,0,CA[R1+5])          SQZ       607
                     0400000217 +                 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
           216  53220                    SXT1     SA2    X2          SXTC = [SXTC]                               SQZ       613
                     63420                        SB4    X2                                                      SQZ       614
                          0654000226 +            LE     B4,B5,SXT3  IF SXTC @ DEFA                              SQZ       615
           217  5232777774               SXT2     SA3    X2-3        R1C = [SXTC-3]                              SQZ       616
                          11603                   BX6    X0*X3                                                   SQZ       617
                               37756              IX7    X5-X6                                                   SQZ       618
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    14
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     SXT                 SQUEEZE 
  
           220  0317000216 +                      NZ     X7,SXT1     IF KEY " TYI(OC,RJ,0,0)(SXTC)               SQZ       619
                          5033000005              SA3    A3+5                                                    SQZ       620
           221  20352                             LX3    -IH.CAP                                                 SQZ       621
                     15730                        BX7    -X0*X3                                                  SQZ       622
                          55331                   SA3    A3-B1                                                   SQZ       623
                               26643              UX6    B4,X3                                                   SQZ       624
           222  27647                             PX6    B4,X7                                                   SQZ       625
                     37764                        IX7    X6-X4                                                   SQZ       626
                          0317000216 +            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
           223  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
           224  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
           225  54452                             SA4    A5+B2       DI = R1 + 2                                 SQZ       640
                     0400000166 +                 EQ     MSL1                                                    SQZ       641
                                                                                                                 SQZ       642
                                        *         ADD THE *SXT* TO THE CHAIN                                     SQZ       643
                                                                                                                 SQZ       644
           226  5120000004 C             SXT3     SA2    SXTC                                                    SQZ       645
                          10722                   BX7    X2                                                      SQZ       646
                               54741              SA7    A4+B1       [DI+1] = SXTC                               SQZ       647
           227  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
           230                                    PROCESS DAR                                                    SQZ       654
           230  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
           231  20244                             LX2    RN.USESP                                                SQZ       659
                     36621                        IX6    X2+X1       USES[RJ] = USES[RJ] + 1                     SQZ       660
                          5061000000              SA6    A1+                                                     SQZ       661
           232  0400000166 +                      EQ     MSL1                                                    SQZ       662
                                                                                                                 SQZ       663
           233                                    PROCESS (KLS,KRS)  NON REDUNDANT CON SHIFT                     SQZ       664
           233  54251                             SA2    A5+B1       R2 = R1 + 1                                 SQZ       665
                     76310                        SX3    B1                                                      SQZ       666
                          20230                   LX2    -IH.RFP                                                 SQZ       667
                               53127              SA1    "RN"+X2     RF = RND(RF)                                SQZ       668
           234  20344                             LX3    RN.USESP                                                SQZ       669
                     36631                        IX6    X3+X1       USES[RF] = USES[RF] + 1                     SQZ       670
                          54610                   SA6    A1                                                      SQZ       671
           235  0400000166 +                      EQ     MSL1                                                    SQZ       672
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    15
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     XMT                 SQUEEZE 
  
           236  6130000010               XMT0     S"OC"  OC.XMT                                                  SQZ       674
                          0100001127 +            RJ     URI         GENERATE AN *XMT*                           SQZ       675
                                                                                                                 SQZ       676
           237                           XMT      PROCESS XMT                                                    SQZ       677
           237  0100000731 +                      RJ     CTI         CHECK TRANSMIT INSTRUCTION                  SQZ       678
           240  10644                             BX6    X4                                                      FCC0603    89
                     20625                        LX6    59-D.PRSP                                               FCC0603    90
                          0326000665 +            PL     X6,SRCH     IF ^PRS[DI]                                 FCC0603    91
           241  0400000230 +                      EQ     AUC.RJ                                                  FCC0603    92
  
  
                                        *         XMTC - UNARY COMPLEMENT                                        SQZ       681
                                                                                                                 SQZ       682
           242                           XMTC     PROCESS XMTC                                                   SQZ       683
           242  10611                             BX6    X1                                                      SQZ       684
                     20601                        LX6    59-RN.CP                                                SQZ       685
                          0336000246 +            MI     X6,XMTC1    IF C[RJ]                                    SQZ       686
           243  20605                             LX6    RN.CP-RN.XMTCP                                          SQZ       687
                     0326000256 +                 PL     X6,XMTC2    IF ^XMTC[RJ]                                SQZ       688
                                                                                                                 SQZ       689
                               20152              LX1    -RN.TPP                                                 SQZ       690
           244  53210                             SA2    X1          R1P = R1[TP[RJ]]                            SQZ       691
                     20234                        LX2    -R1.RJP                                                 SQZ       692
                          15620                   BX6    -X0*X2                                                  SQZ       693
                               53167              SA1    "RN"+X6                                                 SQZ       694
           245  20640                             LX6    R1.RJP                                                  SQZ       695
                     0400000236 +                 EQ     XMT0                                                    SQZ       696
                                                                                                                 SQZ       697
           246  20152                    XMTC1    LX1    -RN.TPP                                                 SQZ       698
                     53310                        SA3    X1          R1J = TP[RJ]                                SQZ       699
                          0100001153 +            RJ     DCV         VAL = DCV(R1J)                              SQZ       700
           247  14677                             BX6    -X7         VAL = -VAL                                  SQZ       701
                     0336001161 +                 MI     X6,CCV      IF VAL < 0                                  SQZ       702
                               73360              SX3    X6                                                      SQZ       703
           250  13763                             BX7    X6-X3                                                   SQZ       704
                     0317000256 +                 NZ     X7,XMTC2    IF SETX(VAL) " VAL                          SQZ       705
           251  0450001161 +                      ZR     B5,CCV      IF OC[RJ] = OC.S                            SQZ       706
                          20122                   LX1    RN.TPP                                                  SQZ       707
                               56376              SA3    "RN"+B6                                                 SQZ       708
           252  15710                             BX7    -X0*X1                                                  SQZ       709
                     76210                        SX2    B1                                                      SQZ       710
                          54751                   SA7    A5+B1       [R2] = RJ[R1J]  */ POINT TO RJ FOR *AND*    SQZ       711
                               20262              LX2    RN.FMAP                                                 SQZ       712
           253  12723                             BX7    X2+X3       FMA[RI] = 1                                 SQZ       713
                     54730                        SA7    A3                                                      SQZ       714
                          20636                   LX6    R1.INP                                                  SQZ       715
           254  6130000055                        S"OC"  OC.S                                                    SQZ       716
                          0100001127 +            RJ     URI         URI(  S  RI,VAL )                           SQZ       717
           255  0400001062 +                      EQ     FMA                                                     SQZ       718
                                                                                                                 SQZ       719
           256  56276                    XMTC2    SA2    "RN"+B6                                                 SQZ       720
                     76610                        SX6    B1                                                      SQZ       721
                          20665                   LX6    RN.XMTCP                                                SQZ       722
                               12762              BX7    X6+X2       XMTC[RI] = 1                                SQZ       723
           257  54720                             SA7    A2                                                      SQZ       724
                     0400000665 +                 EQ     SRCH                                                    SQZ       725
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    16
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     AND                 SQUEEZE 
  
           260                                    PROCESS AND                                                    SQZ       727
           260  12612                             BX6    X1+X2                                                   SQZ       728
                                                  LX6    59-RN.ZP                                                SQZ       729
                     0336001055 +                 MI     X6,ZERO     IF Z[RJ] ! Z[RK]                            SQZ       730
                               37712              IX7    X1-X2                                                   SQZ       731
           261  0307000725 +                      ZR     X7,C.XMT    IF RJ = RK                                  SQZ       732
                          20601                   LX6    RN.ZP-RN.CP                                             SQZ       733
           262  0326000272 +                      PL     X6,AND3     IF ^( C[RJ] ! C[RK] )                       SQZ       734
                          11712                   BX7    X1*X2                                                   SQZ       735
                               20701              LX7    59-RN.CP                                                SQZ       736
           263  0337001134 +                      MI     X7,ECO      IF C[RJ] & C[RK]                            SQZ       737
                                                                                                                 SQZ       738
                                        *         SEE IF CON IS A *FMA* CHANGED TO A *S*                         SQZ       739
                                        *         IF SO, THEN CHANGE TO STR( FMA , RK )                          SQZ       740
                                                                                                                 SQZ       741
                          10766                   BX7    X6                                                      SQZ       742
                               20710              LX7    RN.CP-RN.FMAP                                           SQZ       743
           264  0327000272 +                      PL     X7,AND3     IF ^(FMA[RJ] ! FMA[RK] )                    SQZ       744
                                                                                                                 SQZ       745
                          10611                   BX6    X1                                                      SQZ       746
                               20611              LX6    59-RN.FMAP                                              SQZ       747
           265  0336000267 +                      MI     X6,AND2     IF FMA[RJ]                                  SQZ       748
                          10122                   BX1    X2                                                      SQZ       749
                               20663              LX6    1+RN.FMAP   SWAP( RJ , RK )                             SQZ       750
           266  10266                             BX2    X6                                                      SQZ       751
                                                                                                                 SQZ       752
           267  20152                    AND2     LX1    -RN.TPP                                                 SQZ       753
                     15220                        BX2    -X0*X2                                                  SQZ       754
                          53111                   SA1    X1+B1       RJ = [TP[RJ]+1]  */ R2 OF *S*               SQZ       755
                               20220              LX2    R1.RKP                                                  SQZ       756
           270  6130000015                        S"OC"  OC.STR                                                  SQZ       757
                          20140                   LX1    R1.RJP                                                  SQZ       758
                               12612              BX6    X1+X2                                                   SQZ       759
           271  0400000401 +                      EQ     CAO2                                                    SQZ       760
                                                                                                                 SQZ       761
           272  20605                    AND3     LX6    RN.CP-RN.XMTCP                                          SQZ       762
                     0326000665 +                 PL     X6,SRCH     IF ^XMTC[RJ] & ^XMTC[RK]                    SQZ       763
           273  6130000015                        S"OC"  OC.STR                                                  SQZ       764
                          6150000040              SB5    R1.RJP                                                  SQZ       765
           274  0400000374 +                      EQ     CAO                                                     SQZ       766
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    17
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     DFM                 SQUEEZE 
  
           275                                    PROCESS IM                                                     FCC0238AX  57
           275  10644                             BX6    X4                                                      FCC0238AX  58
                     20640                        LX6    59-D.USIP                                               FCC0238AX  59
                          0326000277 +            PL     X6,DFM      IF ^USI[DI]                                 FCC0238AX  60
           276  76610                             SX6    B1                                                      FCC0238AX  61
                     5160000006 C                 SA6    IXF         IXF = 1                                     FCC0238AX  62
                                                                                                                 FCC0238AX  63
           277                           DFM      PROCESS DFM                                                    FCC0238AX  64
           277  12612                             BX6    X1+X2                                                   SQZ       769
                                                  LX6    59-RN.ZP                                                SQZ       770
                     0336001055 +                 MI     X6,ZERO     IF Z[RJ] ! Z[RK]                            SQZ       771
                               20601              LX6    RN.ZP-RN.CP                                             SQZ       772
           300  0326000665 +                      PL     X6,SRCH     IF ^( C[RJ] ! C[RK] )                       SQZ       773
                          11712                   BX7    X1*X2                                                   SQZ       774
                               20701              LX7    59-RN.CP                                                SQZ       775
           301  0327000303 +                      PL     X7,DFM1     IF ^( C[RJ] & C[RK] )                       SQZ       776
                                                                                                                 SQZ       777
                          6130000042              S"OC"  OC.DFM                                                  SQZ       778
           302  0400001134 +                      EQ     ECO                                                     SQZ       779
                                                                                                                 SQZ       780
           303  10711                    DFM1     BX7    X1                                                      SQZ       781
                     20701                        LX7    59-RN.CP                                                SQZ       782
                          0337000305 +            MI     X7,DFM2     IF C[RJ]                                    SQZ       783
           304  10122                             BX1    X2                                                      SQZ       784
                     20773                        LX7    1+RN.CP                                                 SQZ       785
                          10277                   BX2    X7                                                      SQZ       786
                                                                                                                 SQZ       787
           305  20152                    DFM2     LX1    -RN.TPP                                                 SQZ       788
                     53310                        SA3    X1                                                      SQZ       789
                          0100001153 +            RJ     DCV         VAL = VAL[RJ/RK]                            SQZ       790
           306  43673                             MX6    59                                                      SQZ       791
                     37376                        IX3    X7-X6                                                   SQZ       792
                          0307001055 +            ZR     X7,ZERO     IF VAL = -0                                 SQZ       793
           307  0333000665 +                      MI     X3,SRCH     IF VAL < -1                                 SQZ       794
                          21302                   AX3    2                                                       SQZ       795
                               63470              SB4    X7                                                      SQZ       796
           310  0313000665 +                      NZ     X3,SRCH     IF VAL > 2                                  SQZ       797
                          53127                   SA1    "RN"+X2                                                 SQZ       798
                               15620              BX6    -X0*X2                                                  SQZ       799
           311  20640                             LX6    R1.RJP                                                  SQZ       800
                     0442000315 +                 EQ     B4,B2,DFM3  IF VAL = 2                                  SQZ       801
           312  0441000236 +                      EQ     B4,B1,XMT0  IF VAL = 1                                  SQZ       802
                          6130000014              S"OC"  OC.XMTC                                                 SQZ       803
           313  0100001127 +                      RJ     URI         URI(  XMTC  RI,RJ )                         SQZ       804
           314  0400000242 +                      EQ     XMTC                                                    SQZ       805
                                                                                                                 SQZ       806
           315  10766                    DFM3     BX7    X6                                                      SQZ       807
                     20754                        LX7    R1.RKP-R1.RJP                                           SQZ       808
                          36667                   IX6    X6+X7                                                   SQZ       809
           316  6130000036                        S"OC"  OC.IA                                                   SQZ       810
                          0100001127 +            RJ     URI                                                     SQZ       811
           317  0400000665 +                      EQ     SRCH                                                    SQZ       812
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    18
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     FM                  SQUEEZE 
  
           320                                    PROCESS (FM,RFM)                                               SQZ       814
           320  12612                             BX6    X1+X2                                                   SQZ       815
                                                  LX6    59-RN.ZP                                                SQZ       816
                     0336001055 +                 MI     X6,ZERO     IF Z[RJ] ! Z[RK]                            SQZ       817
           321  0400000665 +                      EQ     SRCH                                                    SQZ       818
                                                                                                                 SQZ       819
           322                                    PROCESS (FD,RFD)                                               SQZ       820
                                                  LX1    59-RN.ZP                                                SQZ       821
           322  0331001055 +                      MI     X1,ZERO     IF Z[RJ]                                    SQZ       822
                          20107                   LX1    RN.ZP-RN.PZP                                            SQZ       823
           323  0331001055 +                      MI     X1,ZERO     IF PZ[RJ]                                   SQZ       824
                          0400000665 +            EQ     SRCH                                                    SQZ       825
                                                                                                                 SQZ       826
           324                                    PROCESS OR                                                     SQZ       827
           324  11612                             BX6    X1*X2                                                   SQZ       828
                                                  LX6    59-RN.ZP                                                SQZ       829
                     0336001055 +                 MI     X6,ZERO     IF Z[RJ] & Z[RK]                            SQZ       830
                               37712              IX7    X1-X2                                                   SQZ       831
           325  0307000725 +                      ZR     X7,C.XMT    IF RJ = RK                                  SQZ       832
                          12612                   BX6    X1+X2                                                   SQZ       833
                                                  LX6    59-RN.ZP                                                SQZ       834
           326  0336000725 +                      MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                            SQZ       835
                          20606                   LX6    RN.ZP-RN.XMTCP                                          SQZ       836
           327  0326000665 +                      PL     X6,SRCH                                                 SQZ       837
                          6130000016              S"OC"  OC.IMP                                                  SQZ       838
           330  6150000040                        SB5    R1.RJP                                                  SQZ       839
                          0400000374 +            EQ     CAO                                                     SQZ       840
                                                                                                                 SQZ       841
           331                                    PROCESS XOR                                                    SQZ       842
           331  13612                             BX6    X1-X2                                                   SQZ       843
                     0306001055 +                 ZR     X6,ZERO     IF RND(RJ) = RND(RK)                        SQZ       844
                               11612              BX6    X1*X2                                                   SQZ       845
                                                  LX6    59-RN.ZP                                                SQZ       846
           332  0336001055 +                      MI     X6,ZERO     IF Z[RJ] & Z[RK]                            SQZ       847
                          12612                   BX6    X1+X2                                                   SQZ       848
                                                  LX6    59-RN.ZP                                                SQZ       849
           333  0336000725 +                      MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                            SQZ       850
                          20606                   LX6    RN.ZP-RN.XMTCP                                          SQZ       851
           334  0326000665 +                      PL     X6,SRCH     IF ^XMTC[RJ] & ^XMTC[RK]                    SQZ       852
                          6130000017              S"OC"  OC.EQV                                                  SQZ       853
           335  6150000040                        SB5    R1.RJP                                                  SQZ       854
                          0400000374 +            EQ     CAO                                                     SQZ       855
  
  
           336  0100001146 +             IA0      RJ     GCV         GET CONSTANT VALUES                         SQZ       857
           337  36667                             IX6    X6+X7       VAL[RI] = VAL[RJ] + VAL[RK]                 SQZ       858
                     0400001161 +                 EQ     CCV                                                     SQZ       859
                                                                                                                 SQZ       860
           340                                    PROCESS IA                                                     SQZ       861
           340  11712                             BX7    X1*X2                                                   SQZ       862
                     20701                        LX7    59-RN.CP                                                SQZ       863
                          0337000336 +            MI     X7,IA0      IF C[RJ] & C[RK]                            SQZ       864
           341  12612                             BX6    X1+X2                                                   SQZ       865
                                                  LX6    59-RN.ZP                                                SQZ       866
                     0336000725 +                 MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                            SQZ       867
                               20606              LX6    RN.ZP-RN.XMTCP                                          SQZ       868
           342  0336000373 +                      MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                      SQZ       869
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    19
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     IADD                SQUEEZE 
  
                                                                                                                 FCC0514   214
                          10744                   BX7    X4                                                      FCC0716    12
                               20740              LX7    59-D.USIP                                               FCC0716    13
           343  0337000352 +                      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
           344  6150000037                        SB5    OC.IS                                                   FCC0514   217
                          26743                   UX7    B4,X3                                                   FCC0514   218
                               20122              LX1    RN.TPP                                                  FCC0514   219
           345  0545000352 +                      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
           346  15770                             BX7    -X0*X7                                                  FCC0514   224
                     20334                        LX3    -R1.RJP     RJX = RJ[R1J]                               FCC0514   225
                          0317000352 +            NZ     X7,IA1      IF RK[R1] " RK[R1J]  */ NOT (J-K)+K         FCC1660X    6
                                                                                                                 FCC1660X    7
           347  10711                             BX7    X1                                                      FCC1660X    8
                     20704                        LX7    59-RN.INCP                                              FCC1660X    9
                          0327000412 +            PL     X7,I.XMT    IF ^INC[R1J]                                FCC1660X   10
           350  74730                             SX7    A3                                                      FCC1660X   11
                     63530                        SB5    X3                                                      FCC1660X   12
                          5130000011 C            SA3    JPXA                                                    FCC1660X   13
           351  37773                             IX7    X7-X3                                                   FCC1660X   14
                     76350                        SX3    B5                                                      FCC1660X   15
                          0327000412 +            PL     X7,I.XMT    IF R1J > JPXA */ IN THE SAME BLOCK          FCC1660X   16
                                                                                                                 FCC0514   227
           352  20667                    IA1      LX6    RN.XMTCP-RN.CP                                          FCC0514   228
                     0326000665 +                 PL     X6,SRCH     IF ^( C(RJ] ! C[RK] )                       FCC0514   229
           353  0400000521 +                      EQ     CIA                                                     SQZ       872
  
  
  
                                        *         IAZ - ADD ZERO TO OPERAND PRIOR TO USE IN A CONDITIONAL JUMP   SQZ       874
                                                                                                                 SQZ       875
           354                                    PROCESS IAZ                                                    SQZ       876
           354  11712                             BX7    X1*X2                                                   SQZ       877
                     20701                        LX7    59-RN.CP                                                SQZ       878
                          0337000336 +            MI     X7,IA0      IF C[RJ] & C[RK]                            SQZ       879
           355  43702                             MX7    2                                                       SQZ       880
                     12612                        BX6    X1+X2       RJK = RJ ! RK                               SQZ       881
                          20603                   LX6    58-RN.IACIP                                             SQZ       882
                               11776              BX7    X7*X6                                                   SQZ       883
           356  0317000360 +                      NZ     X7,IAZ1     IF IAC[RJK] ! INC[RJK]                      FCC0716    15
                          20603                   LX6    1+RN.IACIP-RN.XMTCP                                     SQZ       885
           357  0326000665 +                      PL     X6,SRCH     IF ^XMTC[RJK]                               SQZ       886
                          0400000373 +            EQ     FA1                                                     SQZ       887
                                                                                                                 FCC0716    16
           360  10622                    IAZ1     BX6    X2          RW = RKW                                    FCC0716    17
                                                  LX6    59-RN.ZP                                                FCC0716    18
                     0326000361 +                 PL     X6,IAZ2     IF ^Z[RKW]                                  FCC0716    19
                               10611              BX6    X1          RW = RJW                                    FCC0716    20
                                                  LX6    59-RN.ZP                                                FCC0716    21
           361  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
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    20
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     IAZ                 SQUEEZE 
  
           362  12673                             BX6    X7+X3       USI[DP] = 1   */ INHIBIT FURTHER REDUCTION  FCC0716    26
                     54630                        SA6    A3                                                      FCC0716    27
                          0400000725 +            EQ     C.XMT                     */ GO CHANGE IAZ TO AN *XMT*  FCC0716    28
  
  
           363                                    PROCESS DFA                                                    SQZ       889
           363  12612                             BX6    X1+X2                                                   SQZ       890
                                                  LX6    59-RN.ZP                                                SQZ       891
                     0336001055 +                 MI     X6,ZERO     IF Z[RJ] ! Z[RK]                            SQZ       892
                               20606              LX6    RN.ZP-RN.XMTCP                                          SQZ       893
           364  0336000373 +                      MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                      SQZ       894
                          0400000665 +            EQ     SRCH                                                    SQZ       895
                                                                                                                 SQZ       896
           365                                    PROCESS (FA,RFA)                                               SQZ       897
           365  11612                             BX6    X1*X2                                                   SQZ       898
                     20601                        LX6    59-RN.CP                                                SQZ       899
                          0336001134 +            MI     X6,ECO      IF C[RJ] & C[RK]                            SQZ       900
           366  12612                             BX6    X1+X2                                                   SQZ       901
                                                  LX6    59-RN.ZP                                                SQZ       902
                     0336000721 +                 MI     X6,F.XMT    IF Z[RJ] ! Z[RK]                            SQZ       903
                               20606              LX6    RN.ZP-RN.XMTCP                                          SQZ       904
           367  13712                             BX7    X1-X2                                                   SQZ       905
                     0336000373 +                 MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                      SQZ       906
           370  0317000665 +                      NZ     X7,SRCH     IF RJ " RK    */ NOT X+X                    SQZ       907
                          56376                   SA3    "RN"+B6                                                 SQZ       908
                               76610              SX6    B1                                                      SQZ       909
           371  20663                             LX6    RN.NRP                                                  SQZ       910
                     12763                        BX7    X6+X3       NR[RND(RI)] = 1  */ INDICATE NORMALIZE NOT  SQZ       911
                          54730                   SA7    A3                                                      SQZ       912
           372  0400000665 +                      EQ     SRCH                                                    SQZ       913
                                                                                                                 SQZ       914
           373  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
           374  10611                    CAO      BX6    X1                                                      SQZ       927
                     20554                        LX5    -R1.RKP                                                 SQZ       928
                          20606                   LX6    59-RN.XMTCP                                             SQZ       929
           375  0336000376 +                      MI     X6,CAO1     IF XMTC[RJ]                                 SQZ       930
                          10122                   BX1    X2                                                      SQZ       931
                               20554              LX5    R1.RKP-R1.RJP                                           SQZ       932
                                                                                                                 SQZ       933
           376  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
           377  15120                             BX1    -X0*X2      NEW R NUM                                   SQZ       938
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    21
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     CAO                 SQUEEZE 
  
                     22751                        LX7    B5,X1                                                   SQZ       939
                          6155777717              SB5    B5-3*R1.RIL                                             SQZ       940
           400  23555                             AX5    B5,X5                                                   SQZ       941
                     12657                        BX6    X5+X7                                                   SQZ       942
                                                                                                                 SQZ       943
           401  76310                    CAO2     SX3    B1                                                      FCC0716    29
                     20333                        LX3    D.USIP                                                  FCC0716    30
                          11734                   BX7    X3*X4                                                   FCC0716    31
                               20741              LX7    -D.USIP                                                 FCC0716    32
           402  63470                             SB4    X7          U = USI[DI]                                 FCC0716    33
                     0100001127 +                 RJ     URI         UPDATE INSTRUCTION                          FCC0716    34
           403  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
           404  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
           405  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
           406  0324000410 +                      PL     X4,CAO3     IF ^CM[DI]                                  SQZ       952
                          55452                   SA4    A5-B2       DI = R1 - 2                                 SQZ       953
           407  0400000166 +                      EQ     MSL1        */ ADJUST RJ,RK BEFORE PROCESSING           SQZ       954
                                                                                                                 SQZ       955
           410  20432                    CAO3     LX4    1+D.CMP                                                 SQZ       956
                     0233001573 +                 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
           411  6130000014               I.XMTC   S"OC"  OC.XMTC     OC = OC.XMTC                                FCC0514   235
                          0400000413 +            EQ     I.XMT1                                                  FCC0514   236
                                                                                                                 FCC0514   237
           412  6130000010               I.XMT    S"OC"  OC.XMT      OC = OC.XMT                                 FCC0514   238
           413  15630                    I.XMT1   BX6    -X0*X3                                                  FCC0514   239
                     53167                        SA1    "RN"+X6     (X1) = RND(RJX)                             FCC0514   240
                          20640                   LX6    R1.RJP                                                  FCC0514   241
           414  0100001127 +                      RJ     URI         URI(  OC  RI,RJX )                          FCC0514   242
           415  0233001573 +                      JP     SBB.JT+"OC" JUMP(SBB.JT(OC))                            FCC0514   243
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    22
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         STR                 SQUEEZE 
  
           416                                    PROCESS STR        NAND  ( ^RJ & RK )                          SQZ       959
           416  13612                             BX6    X1-X2                                                   SQZ       960
                                                  LX2    59-RN.ZP                                                SQZ       961
                     0332001055 +                 MI     X2,ZERO     IF Z[RK]                                    SQZ       962
           417  0306001055 +                      ZR     X6,ZERO     IF RJ = RK                                  SQZ       963
                                                  LX1    59-RN.ZP                                                SQZ       964
                          0331000725 +            MI     X1,C.XMT    IF Z[RJ]                                    SQZ       965
           420  6130000011                        S"OC"  OC.AND                                                  SQZ       966
                          0400000427 +            EQ     EQV1                                                    SQZ       967
  
  
  
           421                                    PROCESS IMP        NOR  ( ^RJ ! RK )                           SQZ       969
           421  13612                             BX6    X1-X2                                                   SQZ       970
                     0306001072 +                 ZR     X6,FMA60    IF RJ = RK                                  SQZ       971
                                                  LX1    59-RN.ZP                                                SQZ       972
           422  0331001072 +                      MI     X1,FMA60    IF Z[RJ]                                    SQZ       973
                                                  LX2    59-RN.ZP                                                SQZ       974
                          0332000724 +            MI     X2,C.XMTC   IF Z[RK]                                    SQZ       975
           423  6130000012                        S"OC"  OC.OR                                                   SQZ       976
                          0400000427 +            EQ     EQV1                                                    SQZ       977
  
  
  
           424                                    PROCESS EQV        NXOR  ( ^RJ XOR RK )                        SQZ       979
           424  11612                             BX6    X1*X2                                                   SQZ       980
                                                  LX6    59-RN.ZP                                                SQZ       981
                     37712                        IX7    X1-X2                                                   SQZ       982
                          0336001072 +            MI     X6,FMA60    IF Z[RJ] & Z[RK]                            SQZ       983
           425  0307001072 +                      ZR     X7,FMA60    IF RJ = RK                                  SQZ       984
                          12612                   BX6    X1+X2                                                   SQZ       985
                                                  LX6    59-RN.ZP                                                SQZ       986
           426  0336000724 +                      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
           427  20106                    EQV1     LX1    RN.ZP-RN.XMTCP                                          SQZ       994
                     0321000665 +                 PL     X1,SRCH     IF ^XMTC[RJ]                                SQZ       995
                               20144              LX1    1+RN.XMTCP-RN.TPP                                       FCC0716    40
           430  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
           431  15630                             BX6    -X0*X3      RJ = RJ[R1P]                                SQZ      1001
                     0400000503 +                 EQ     SUB1                                                    SQZ      1002
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    23
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         SUBTRACT            SQUEEZE 
  
           432                                    PROCESS DFS                                                    SQZ      1004
           432  12612                             BX6    X1+X2                                                   SQZ      1005
                                                  LX6    59-RN.ZP                                                SQZ      1006
                     37712                        IX7    X1-X2                                                   SQZ      1007
                          0336001055 +            MI     X6,ZERO     IF Z[RJ] ! Z[RK]                            SQZ      1008
           433  0317000500 +                      NZ     X7,SUB      IF RJ " RK                                  SQZ      1009
                          0400001055 +            EQ     ZERO                                                    SQZ      1010
                                                                                                                 SQZ      1011
           434                                    PROCESS (FS,RFS)                                               SQZ      1012
           434  37612                             IX6    X1-X2                                                   SQZ      1013
                     0306001055 +                 ZR     X6,ZERO     IF RJ = RK                                  SQZ      1014
                               11712              BX7    X1*X2                                                   SQZ      1015
           435  20701                             LX7    59-RN.CP                                                SQZ      1016
                     0337001134 +                 MI     X7,ECO      IF C[RJ] & C[RK]                            SQZ      1017
                                                  LX2    59-RN.ZP                                                SQZ      1018
           436  0332000721 +                      MI     X2,F.XMT    IF Z[RK]                                    SQZ      1019
                                                  LX1    59-RN.ZP                                                SQZ      1020
                          0331000720 +            MI     X1,F.XMTC   IF Z[RJ]                                    SQZ      1021
                                                  LX2    1+RN.ZP                                                 SQZ      1022
           437  0400000500 +                      EQ     SUB                                                     SQZ      1023
                                                                                                                 SQZ      1024
           440  0100001146 +             IS0      RJ     GCV         GET CONSTANT VALUES                         SQZ      1025
           441  37667                             IX6    X6-X7       VAL[RI] = VAL[RJ] - VAL[RK]                 SQZ      1026
                     0400001161 +                 EQ     CCV                                                     SQZ      1027
                                                                                                                 SQZ      1028
           442                                    PROCESS IS                                                     SQZ      1029
           442  13612                             BX6    X1-X2                                                   SQZ      1030
                     63460                        SB4    X6                                                      SQZ      1031
                          0440001055 +            ZR     B4,ZERO     IF RN[RJ] = RN[RK]                          SQZ      1032
           443  11712                             BX7    X1*X2                                                   SQZ      1033
                     20701                        LX7    59-RN.CP                                                SQZ      1034
                          0337000440 +            MI     X7,IS0      IF C[RJ] & C[RK]                            SQZ      1035
                                                  LX2    59-RN.ZP                                                SQZ      1036
           444  0332000725 +                      MI     X2,C.XMT    IF Z[RK]                                    SQZ      1037
                                                  LX1    59-RN.ZP                                                SQZ      1038
                          0331000724 +            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
           445  10744                             BX7    X4                                                      FCC0716    41
                     20740                        LX7    59-D.USIP                                               FCC0716    42
                          0337000474 +            MI     X7,IS4      IF USI[DI]    */ USI OR REDUCED IAZ/ISZ     FCC0716    43
           446  20152                             LX1    -RN.TPP                                                 FCC0514   247
                     53310                        SA3    X1          R1J = TP[RJ]  */ CHECK J OPERAND            FCC0514   248
                          6150000036              SB5    OC.IA                                                   FCC0514   249
           447  26743                             UX7    B4,X3                                                   FCC0514   250
                     20122                        LX1    RN.TPP                                                  FCC0514   251
                          0545000454 +            NE     B4,B5,IS1   IF OC[R1J] " OC.IA                          FCC0514   252
                                                                                                                 FCC0514   253
           450  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
           451  0307000453 +                      ZR     X7,IS1A     IF RJ[R1J] = RK  */ REDUCE (J+K)-J TO K     FCC1660X   17
                          13723                   BX7    X2-X3                                                   FCC0514   259
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    24
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         SUBTRACT            SQUEEZE 
  
                               15770              BX7    -X0*X7                                                  FCC0514   260
           452  0317000474 +                      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
           453  10611                    IS1A     BX6    X1          RJW = RND(RJ)                               FCC1660X   19
                     0400000467 +                 EQ     IS3A                                                    FCC1660X   20
                                                                                                                 FCC0514   264
           454  0543000457 +             IS1      NE     B4,B3,IS2   IF OC[R1J] " OC.IS                          FCC0514   265
                          20334                   LX3    -R1.RJP                                                 FCC0514   266
                               13723              BX7    X2-X3                                                   FCC0514   267
           455  15770                             BX7    -X0*X7                                                  FCC0514   268
                     0317000474 +                 NZ     X7,IS4      IF RJ[R1J] " RK  */ NOT (J-K)-J             FCC0514   269
                               20320              LX3    R1.RJP-R1.RKP     RJX = RK[R1P]                         FCC0514   270
           456  0400000411 +                      EQ     I.XMTC                                                  FCC0514   271
                                                                                                                 FCC0514   272
           457  20252                    IS2      LX2    -RN.TPP                                                 FCC0514   273
                     53320                        SA3    X2          R1K = TP[RK]  */ CHECK K OPERAND            FCC0514   274
                          20222                   LX2    RN.TPP                                                  FCC0514   275
                               26743              UX7    B4,X3                                                   FCC0514   276
           460  0545000464 +                      NE     B4,B5,IS3   IF OC[R1K] " OC.IA                          FCC0514   277
                          20334                   LX3    -R1.RJP                                                 FCC0514   278
                               13713              BX7    X1-X3                                                   FCC0514   279
           461  20320                             LX3    R1.RJP-R1.RKP     RJX = RK[R1K]                         FCC0514   280
                     15770                        BX7    -X0*X7                                                  FCC0514   281
                          0307000411 +            ZR     X7,I.XMTC   IF RJ[R1K] = RJ  */ REDUCE J-(J+K) TO -K    FCC0514   282
           462  13713                             BX7    X1-X3                                                   FCC0514   283
                     15770                        BX7    -X0*X7                                                  FCC0514   284
                          0317000474 +            NZ     X7,IS4      IF RK[R1K] " RJ  */ NOT J-(K+J)             FCC0514   285
           463  20354                             LX3    R1.RKP-R1.RJP     RJX = RJ[R1K]                         FCC0514   286
                     0400000411 +                 EQ     I.XMTC                                                  FCC0514   287
                                                                                                                 FCC0514   288
           464  0543000474 +             IS3      NE     B4,B3,IS4   IF OC[R1K] " OC.IS                          FCC0514   289
                          13735                   BX7    X3-X5                                                   FCC0514   290
                               20734              LX7    -R1.RJP                                                 FCC0514   291
           465  15770                             BX7    -X0*X7                                                  FCC0514   292
                     0317000474 +                 NZ     X7,IS4      IF RJ[R1K] " RJ */ NOT J-(J-K)              FCC0514   293
                               20354              LX3    -R1.RKP     RJX = RK[R1K]                               FCC0514   294
           466  10622                             BX6    X2                                                      FCC1660X   21
                                                                                                                 FCC1660X   22
           467  20604                    IS3A     LX6    59-RN.INCP                                              FCC1660X   23
                     0326000412 +                 PL     X6,I.XMT    IF ^INC[RJW]                                FCC1660X   24
                               74730              SX7    A3                                                      FCC1660X   25
           470  63530                             SB5    X3                                                      FCC1660X   26
                     5130000011 C                 SA3    JPXA                                                    FCC1660X   27
                               37673              IX6    X7-X3                                                   FCC1660X   28
           471  76350                             SX3    B5                                                      FCC1660X   29
                     0326000412 +                 PL     X6,I.XMT    IF R1P > JPXA */ IN THE SAME BLOCK          FCC1660X   30
           472  0400000474 +                      EQ     IS4                                                     FCC1660X   31
           473  0400000412 +                      EQ     I.XMT                                                   FCC0514   295
                                                                                                                 FCC0514   296
           474  10622                    IS4      BX6    X2                                                      FCC1719X    5
                     20601                        LX6    59-RN.CP                                                FCC1719X    6
                          0336000521 +            MI     X6,CIA      IF C[RK]                                    FCC1719X    7
           475  12612                             BX6    X1+X2                                                   FCC1719X    8
                     20604                        LX6    59-RN.INCP                                              FCC1719X    9
                          0326000500 +            PL     X6,SUB      IF ^( INC[RJ] ! INC[RK] )                   FCC1424     5
                                                                                                                 SQZ      1049
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    25
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         SUBTRACT            SQUEEZE 
  
                                        *         I = I + 1  $  IF( I .RO. N ) , MARK *IS* AS *INC*              SQZ      1050
                                                                                                                 SQZ      1051
           476  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
           477  54630                             SA6    A3                                                      SQZ      1056
                                                                                                                 SQZ      1057
           500  20206                    SUB      LX2    59-RN.XMTCP                                             SQZ      1058
                     0322000665 +                 PL     X2,SRCH     IF ^XMTC[RK]                                SQZ      1059
                               20244              LX2    1+RN.XMTCP-RN.TPP                                       SQZ      1060
           501  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
           502  20334                             LX3    -R1.RJP                                                 SQZ      1065
                     15530                        BX5    -X0*X3      RK = RJ[R1P]                                SQZ      1066
                                                                                                                 SQZ      1067
           503  37765                    SUB1     IX7    X6-X5                                                   SQZ      1068
                     0327000505 +                 PL     X7,SUB2     IF RJ \ RK                                  SQZ      1069
                               73750              SX7    X5                                                      SQZ      1070
           504  10566                             BX5    X6                                                      SQZ      1071
                     22607                        LX6    X7                                                      SQZ      1072
                                                                                                                 SQZ      1073
           505  20640                    SUB2     LX6    R1.RJP                                                  SQZ      1074
                     20520                        LX5    R1.RKP                                                  SQZ      1075
                          12656                   BX6    X5+X6                                                   SQZ      1076
           506  0400000401 +                      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 IS ASSUMED TO BE A *CLR  RJ,0* IN THE BELOW.    SQZ      1080
                                                                                                                 SQZ      1081
           507                                    PROCESS ISZ                                                    SQZ      1082
           507  11612                             BX6    X1*X2                                                   SQZ      1083
                     20601                        LX6    59-RN.CP                                                SQZ      1084
                          0336000440 +            MI     X6,IS0      IF C[RJ] & C[RK]                            SQZ      1085
                                                                                                                 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
           510  20252                             LX2    -RN.TPP                                                 SQZ      1090
                     53320                        SA3    X2          R1P = TP[RK]                                SQZ      1091
                          6130000037              S"OC"  OC.IS                                                   SQZ      1092
           511  26643                             UX6    B4,X3                                                   SQZ      1093
                     0543000665 +                 NE     B4,"OC",SRCH      IF OC[R1P] " OC.IS                    SQZ      1094
                               20634              LX6    -R1.RJP                                                 SQZ      1095
           512  15760                             BX7    -X0*X6      J = RJ[R1P]                                 SQZ      1096
                     53177                        SA1    "RN"+X7     RJW = RND(J)                                SQZ      1097
                          20225                   LX2    59-RN.IACP+RN.TPP                                       SQZ      1098
           513  0332000515 +                      MI     X2,ISZ1     IF IAC[RK]                                  SQZ      1099
                          43202                   MX2    2                                                       SQZ      1100
                               20103              LX1    58-RN.IACIP                                             SQZ      1101
           514  11221                             BX2    X2*X1                                                   SQZ      1102
                     0302000665 +                 ZR     X2,SRCH     IF ^( IAC[RJW] ! INC[RJW] )                 SQZ      1103
                                                                                                                 SQZ      1104
           515  20354                    ISZ1     LX3    -R1.RKP                                                 SQZ      1105
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    26
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         ISZ                 SQUEEZE 
  
                     15330                        BX3    -X0*X3                                                  SQZ      1106
                          20720                   LX7    R1.RKP                                                  SQZ      1107
                               20340              LX3    R1.RJP                                                  SQZ      1108
           516  12637                             BX6    X3+X7                                                   SQZ      1109
                     0100001127 +                 RJ     URI         URI(  IS  RI,RK[R1P],RJ[R1P] )              SQZ      1110
           517  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
           520  12434                             BX4    X3+X4                                                   FCC0716    48
                     0400000665 +                 EQ     SRCH                                                    SQZ      1111
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    27
        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
           521  10744                    CIA      BX7    X4                                                      FCC0715     6
                     20751                        LX7    59-D.INCP                                               FCC0715     7
                          0337000535 +            MI     X7,CIA2A    IF INC[DI]                                  FCC0715     8
                                                                                                                 FCC0715     9
           522  10722                             BX7    X2          RCW = RK;  RVW = RJ                         FCC0715    10
                     22311                        LX3    B1,X1                                                   SQZ      1118
                          0323000524 +            PL     X3,CIA1     IF ^C[RJ]                                   SQZ      1119
           523  10711                             BX7    X1          RCW = RJ                                    SQZ      1120
                     10122                        BX1    X2          RVW = RK                                    SQZ      1121
                                                                                                                 SQZ      1122
           524  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
           525  6144777734                        SB4    B4-OC.FMA                                               SQZ      1127
                          7263777703              SX6    X3-60                                                   SQZ      1128
           526  0540000527 +                      NZ     B4,CIA2     IF OC[R1P] " OC.FMA                         SQZ      1129
                          0326000540 +            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
           527  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
           530  15660                             BX6    -X0*X6                                                  FCC1025    14
                     0316000536 +                 NZ     X6,CIA3     IF RI[R1S] " RI[R1]                         FCC1025    15
                               26633              UX6    B3,X3                                                   SQZ      1139
           531  6150000051                        SB5    OC.ST                                                   FCC1025    16
                          0535000536 +            NE     B3,B5,CIA3  IF OC[R1S] " OC.ST  */  NOT ST RI,          FCC1025    17
                                                                                                                 SQZ      1142
           532  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
           533  0316000536 +                      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
           534  6150000060                        SB5    OC.SA                                                   FCC1025    20
                          0435000543 +            EQ     B3,B5,CIA5  IF OC[R1P] = OC.SA                          FCC1025    21
                                                                                                                 FCC0715    11
           535  6140000067               CIA2A    SB4    RN.INCP     BIT = INC                                   FCC0715    12
                                                                                                                 SQZ      1149
           536  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
           537  54630                             SA6    A3                                                      SQZ      1154
                     0400000665 +                 EQ     SRCH                                                    SQZ      1155
                                                                                                                 SQZ      1156
                                        *         CON IS -0, CHANGE TO IAZ/ISZ SO *GPO* DOESNT THINK ITS AN *INC SQZ      1157
                                                                                                                 SQZ      1158
           540  11605                    CIA4     BX6    X0*X5                                                   SQZ      1159
                     6133000041                   S"OC"  "OC"-OC.IA+OC.IAZ                                       SQZ      1160
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    28
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         CIA                 SQUEEZE 
  
           541  0100001127 +                      RJ     URI         CHANGE INSTRUCTION                          SQZ      1161
           542  0400000665 +                      EQ     SRCH                                                    SQZ      1162
                                                                                                                 FCC1025    22
                                        *         DEF/SA/INC/ST VAR SEQUENCE, CHANGE THE *INC* TO A *STT*.       FCC1025    23
                                                                                                                 FCC1025    24
           543  53370                    CIA5     SA3    X7          R1C = TP[RCW]                               FCC1025    25
                     0100001153 +                 RJ     DCV         C = DCV( R1C )                              FCC1025    26
           544  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
           545  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
           546  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
           547  6130000052                        S"OC"  OC.STT                                                  FCC1025    37
                          43600                   MX6    0                                                       FCC1025    38
           550  0100001127 +                      RJ     URI         URI( STT  RI,RF,C )                         FCC1025    39
           551  0400000777 +                      EQ     .STT                                                    FCC1025    40
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    29
        MASTER SQUEEZE LOOP - PACK/UNPACK                             PK/UP               SQUEEZE 
  
           552                                    PROCESS PK                                                     SQZ      1164
                                                  LX1    59-RN.ZP                                                FCC1085    14
           552  0321000631 +                      PL     X1,IRCH     IF ^Z[RJ]     */ DONT OVERSQZ RJ USES       FCC1085    15
                          20040                   LX0    R1.RJP                                                  FCC1085    16
                               11605              BX6    X0*X5                                                   FCC1085    17
           553  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
           554  0322000665 +                      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
           555  20764                             LX7    RN.PZP                                                  SQZ      1170
                     12673                        BX6    X7+X3                                                   SQZ      1171
                          54630                   SA6    A3          PZ[RI] = 1                                  SQZ      1172
           556  0400000665 +                      EQ     SRCH                                                    SQZ      1173
  
  
  
           557                                    PROCESS (NR,RNZ)                                               SQZ      1175
                                                  LX1    59-RN.ZP                                                SQZ      1176
           557  0321000564 +                      PL     X1,NR1      IF ^Z[RJ]                                   SQZ      1177
                          10322                   BX3    X2                                                      SQZ      1178
                                                  LX3    59-RN.ZP                                                SQZ      1179
           560  0333001055 +                      MI     X3,ZERO     IF Z[RK]                                    SQZ      1180
                          20307                   LX3    RN.ZP-RN.PZP                                            SQZ      1181
           561  0333001055 +                      MI     X3,ZERO     IF PZ[RK]                                   SQZ      1182
                          20301                   LX3    RN.PZP-RN.NRP                                           SQZ      1183
                               76610              SX6    B1                                                      SQZ      1184
           562  0333000705 +                      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
                          0400000665 +            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
                          0543000665 +            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
                     12223                        BX2    X2+X3                                                   SQZ      1207
                          0400000705 +            EQ     SRCH4             */ GO ELIMINITE THE INSTRUCTION       SQZ      1208
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    30
        MASTER SQUEEZE LOOP - PACK/UNPACK                             UP                  SQUEEZE 
  
           571                                    PROCESS UP                                                     SQZ      1210
                                                  LX2    59-RN.ZP                                                SQZ      1211
           571  0332001055 +                      MI     X2,ZERO     IF Z[RK]                                    SQZ      1212
                          20252                   LX2    1+RN.ZP-RN.TPP                                          SQZ      1213
                               66422              SB4    B2+B2                                                   SQZ      1214
           572  53324                             SA3    X2+B4       R1S = TP[RK] + 4                            SQZ      1215
                     64550                        SB5    A5                                                      SQZ      1216
                          5120000607 +            SA2    UPA                                                     SQZ      1217
           573  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  0400000166 +                      EQ     MSL1                                                    SQZ      1252
                                                                                                                 SQZ      1253
           606  20520                    UP4      LX5    R1.RJP-R1.RKP                                           SQZ      1254
                     0400000230 +                 EQ     AUC.RJ                                                  SQZ      1255
                                                                                                                 SQZ      1256
           607  77770000037777600000     UPA      VFD    12/-0,16/0,16/-0,16/0                                   SQZ      1257
  
  
  
                                         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
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    31
        MASTER SQUEEZE LOOP - PACK/UNPACK                             ILS                 SQUEEZE 
  
                                                  BX7    X1*X2                                                   SQZ      1265
                                                  LX7    59-RN.CP                                                SQZ      1266
                                                  PL     X7,ILS1     IF ^( C[RJ] & C[RK] )                       SQZ      1267
                                                                                                                 SQZ      1268
                                                  RJ     GCV         GET CONSTANT VALUES                         SQZ      1269
                                                  SB4    X6                                                      SQZ      1270
                                                  LX6    B4,X7                                                   SQZ      1271
                                                  ZR     B3,CCV      VAL[RI] = SHIFT( VAL[RJ] , VAL[RK] )        SQZ      1272
                                                  AX6    B4,X7                                                   SQZ      1273
                                                  EQ     CCV                                                     SQZ      1274
                                                                                                                 SQZ      1275
                                         ILS1     LX2    59-RN.ZP                                                SQZ      1276
                                                  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
           610  12612                             BX6    X1+X2                                                   SQZ      1294
                     6133777755                   SB3    B3-OC.ILS                                               SQZ      1295
                               20601              LX6    59-RN.CP                                                SQZ      1296
           611  0326000631 +                      PL     X6,IRCH     IF ^( C[RJ] ! C[RK] )                       SQZ      1297
                          11712                   BX7    X1*X2                                                   SQZ      1298
                               20701              LX7    59-RN.CP                                                SQZ      1299
           612  0327000615 +                      PL     X7,ILS1     IF ^( C[RJ] & C[RK] )                       SQZ      1300
                                                                                                                 SQZ      1301
                          0100001146 +            RJ     GCV         GET CONSTANT VALUES                         SQZ      1302
           613  63460                             SB4    X6                                                      SQZ      1303
                     22647                        LX6    B4,X7                                                   SQZ      1304
                          0430000620 +            ZR     B3,ICV      VAL[RI] = SHIFT( VAL[RJ] , VAL[RK] )        SQZ      1305
           614  23647                             AX6    B4,X7                                                   SQZ      1306
                     0400000620 +                 EQ     ICV                                                     SQZ      1307
                                                                                                                 SQZ      1308
                                         ILS1     LX2    59-RN.ZP                                                SQZ      1309
           615  0332001055 +                      MI     X2,ZERO     IF Z[RK]                                    SQZ      1310
                                                  LX1    59-RN.ZP                                                SQZ      1311
                          0321000631 +            PL     X1,IRCH     IF ^Z[RJ]                                   SQZ      1312
           616  10122                             BX1    X2                                                      SQZ      1313
                     6130000010                   S"OC"  OC.XMT                                                  SQZ      1314
           617  0400000727 +                      EQ     C.XMT2      GO OUTPUT XMT( RI , RK )                    SQZ      1315
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    32
        MASTER SQUEEZE LOOP - PACK/UNPACK                                                 SQUEEZE 
  
                                        **        ICV - TEMPORARY CCV FOR ILS/IRS                                SQZ      1317
                                        *         FAIL EXIT IS IRCH RATHER THAN SRCH.                            SQZ      1318
                                        *         ENTRY  (X6) = VAL , TO BE REFORMED AS *S*/*FMA* INSTRUCTION    SQZ      1319
                                                                                                                 SQZ      1320
                                        *         TRY TO REDUCE CONSTANT TO A *FMA*                              SQZ      1321
                                                                                                                 SQZ      1322
           620  0326000624 +             ICV      PL     X6,ICV1     IF VAL > 0                                  SQZ      1323
                          47766                   CX7    X6                                                      SQZ      1324
                               43301              MX3    1                                                       SQZ      1325
           621  6247777776                        SB4    X7-1                                                    SQZ      1326
                          23743                   AX7    B4,X3                                                   SQZ      1327
                               13376              BX3    X7-X6                                                   SQZ      1328
           622  0313000624 +                      NZ     X3,ICV1     IF VAL " MASK( COUNT(VAL) )                 SQZ      1329
                          6130000043              S"OC"  OC.FMA                                                  SQZ      1330
           623  76641                             SX6    B4+B1                                                   SQZ      1331
                     0400000627 +                 EQ     ICV2                                                    SQZ      1332
                                                                                                                 SQZ      1333
                                        *         TRY TO REDUCE CONSTANT TO A *S*                                SQZ      1334
                                                                                                                 SQZ      1335
           624  0306001055 +             ICV1     ZR     X6,ZERO     IF VAL = 0                                  SQZ      1336
                          43352                   MX3    42                                                      SQZ      1337
                               22706              LX7    X6                                                      SQZ      1338
           625  15663                             BX6    -X3*X6                                                  SQZ      1339
                     21721                        AX7    17                                                      SQZ      1340
                          0317000631 +            NZ     X7,IRCH     IF SHIFT(VAL,-17) " 0                       SQZ      1341
           626  6130000055                        S"OC"  OC.S                                                    SQZ      1342
                                                                                                                 SQZ      1343
           627  20636                    ICV2     LX6    R1.INP                                                  SQZ      1344
                     0100001127 +                 RJ     URI                                                     SQZ      1345
           630  43700                             MX7    0                                                       SQZ      1346
                     54751                        SA7    A5+B1       [R1+1] = 0                                  SQZ      1347
                          0400001062 +            EQ     FMA                                                     SQZ      1348
  
  
  
  
           631  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
           632  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
           633  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
           634  0635000635 +                      GE     B3,B5,IRCH1 IF R1S \ TP[RK]                             SQZ      1362
                          66350                   SB3    B5          R1S = TP[RK]                                SQZ      1363
                                                                                                                 SQZ      1364
           635  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
                                                                                                                 SQZ      1369
           636  11703                    IRCH2    BX7    X0*X3                                                   SQZ      1370
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    33
        MASTER SQUEEZE LOOP - PACK/UNPACK                                                 SQUEEZE 
  
                     54334                        SA3    A3+B4                                                   SQZ      1371
                          37567                   IX5    X6-X7                                                   SQZ      1372
           637  0315000636 +                      NZ     X5,IRCH2    IF [R1S] " KEY                              SQZ      1373
                          55232                   SA2    A3-B2                                                   SQZ      1374
                               65334              SB3    A3-B4                                                   SQZ      1375
           640  0302000636 +                      ZR     X2,IRCH2    IF [DS] = 0   */ DEAD INSTRUCTION           SQZ      1376
                          65353                   SB3    A5-B3                                                   SQZ      1377
           641  0703000700 +                      GT     B3,SRCH3    IF R1S < R1M  */ INSTRUCTION IS REDUNDANT   SQZ      1378
                                                                                                                 SQZ      1379
                          6035777767              SB3    A5-8        R1J = R1 - 8                                SQZ      1380
           642  43262                             MX2    -RN.USESL                                               SQZ      1381
                     20152                        LX1    RN.TPP-RN.USESP                                         SQZ      1382
                          15512                   BX5    -X2*X1                                                  SQZ      1383
           643  0305000662 +                      ZR     X5,IRCH5    IF USES[RND(RJ)] = 0                        SQZ      1384
                          56232                   SA2    B3+B2       DI = R1J + 2 ;  DIW = [DI]                  SQZ      1385
                               56330              SA3    B3          R1I = R1J ;  R1W = [R1I]                    SQZ      1386
           644  43701                             MX7    1                                                       SQZ      1387
                     0312000662 +                 NZ     X2,IRCH5    IF DIW .NE. 0 */ INS. NOT SQUEEZED          SQZ      1388
                               20747              LX7    1+D.PRSP                                                SQZ      1389
           645  26563                             UX5    B6,X3       OCI = OC[R1W]                               SQZ      1390
                     5136000000 X                 SA3    =XF.RDT+B6                                              SQZ      1391
                               12637              BX6    X3+X7                                                   SQZ      1392
           646  54620                             SA6    A2          [DI] = RDT(OCI) .OR. D.PRS                  SQZ      1393
                                                  LX6    58-D.TYP                                                SQZ      1394
                     0336000652 +                 MI     X6,IRCH3    IF TY[DIW] = 3  */ STT                      SQZ      1395
                               22216              LX2    B1,X6                                                   FCC0872     5
           647  0332000654 +                      MI     X2,IRCH4    IF TY[DIW] = 2  */ S                        FCC0872     6
                          10655                   BX6    X5                                                      SQZ      1396
                               20634              LX6    -R1.RJP                                                 SQZ      1397
           650  15260                             BX2    -X0*X6                                                  SQZ      1398
                     53327                        SA3    "RN"+X2                                                 SQZ      1399
                          43601                   MX6    1                                                       SQZ      1400
                               20645              LX6    1+RN.USESP                                              SQZ      1401
           651  36636                             IX6    X3+X6                                                   SQZ      1402
                     54630                        SA6    A3          USES[RND(RJ[R1W])] = USES[RND(RJ[R1W])] + 1 SQZ      1403
                          0400000654 +            EQ     IRCH4                                                   SQZ      1404
                                                                                                                 SQZ      1405
           652  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
           653  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
           654  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
           655  15550                             BX5    -X0*X5      RIJ = RI[R1W]                               SQZ      1417
                     54250                        SA2    A5                                                      SQZ      1418
                          20234                   LX2    -R1.RJP                                                 SQZ      1419
                               11202              BX2    X0*X2                                                   SQZ      1420
           656  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
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    34
        MASTER SQUEEZE LOOP - PACK/UNPACK                                                 SQUEEZE 
  
           657  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
           660  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
           661  54720                             SA7    A2                                                      SQZ      1434
                     0400000166 +                 EQ     MSL1                                                    SQZ      1435
                                                                                                                 SQZ      1436
           662  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
           663  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
           664  0400000166 +                      EQ     MSL1                                                    SQZ      1445
                                         TEMP     ENDIF                                                          SQZ      1446
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    35
        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
           665                                    PROCESS (CX,SS)                                                SQZ      1451
           665  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
           666  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
           667  53137                             SA1    "RN"+X3                                                 SQZ      1460
                     63520                        SB5    X2                                                      SQZ      1461
                          20152                   LX1    -RN.TPP                                                 SQZ      1462
                               63310              SB3    X1                                                      SQZ      1463
           670  0635000671 +                      GE     B3,B5,SRCH1 R1S = MAX( TP[RJ] , TP[RK] ) */ MIN SRCH AD SQZ      1464
                          6135000000              SB3    B5+                                                     SQZ      1465
           671  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
           672  11703                    SRCH2    BX7    X0*X3                                                   SQZ      1471
                     54334                        SA3    A3+B4                                                   SQZ      1472
                          37567                   IX5    X6-X7                                                   SQZ      1473
           673  0315000672 +                      NZ     X5,SRCH2    IF [R1S] " KEY                              SQZ      1474
                          55232                   SA2    A3-B2                                                   SQZ      1475
                               65334              SB3    A3-B4                                                   SQZ      1476
           674  0302000672 +                      ZR     X2,SRCH2    IF [DS] = 0   */ DEAD INSTRUCTION           SQZ      1477
                          65353                   SB3    A5-B3                                                   SQZ      1478
           675  0703000700 +                      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
           676  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
           677  36752                             IX7    X5+X2       USES[RK] = USES[RK] + 1                     SQZ      1489
                     54720                        SA7    A2                                                      SQZ      1490
                          0400000166 +            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
           700  55132                    SRCH3    SA1    A3-B2       DIS = R1S - 2                               FCC0238AX  65
                     54550                        SA5    A5          REFETCH R1 WORD                             FCC0238AX  66
                          54440                   SA4    A4          REFETCH DESCR                               FCC0238AX  67
                               55212              SA2    A1-B2       RJ = RI[R1S-4]                              FCC0238AX  68
           701  13614                             BX6    X1-X4                                                   FCC0238AX  69
                     20640                        LX6    59-D.USIP                                               FCC0238AX  70
                          0326000705 +            PL     X6,SRCH4    IF USI[DIS] = USI[DI]                       FCC0238AX  71
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    36
        SRCH - SEARCH FOR PREVIOUS OCCURANCE OF TYPE I INST           SRCH                SQUEEZE 
  
           702  26635                             UX6    "OC",X5                                                 FCC0238AX  72
                     7163777676                   SX6    "OC"-OC.IM                                              FCC0238AX  73
           703  0316000705 +                      NZ     X6,SRCH4    IF OC[R1] " OC.IM                           FCC0238AX  74
                                                                                                                 FCC0238AX  75
                          76610                   SX6    B1                                                      FCC0238AX  76
                               20633              LX6    D.USIP                                                  FCC0238AX  77
           704  15716                             BX7    -X6*X1      USI[DIS] = 0  */ SAFE IF ONE IS ALWAYS EXEC FCC0238AX  78
                     54710                        SA7    A1                                                      FCC0238AX  79
                                                                                                                 SQZ      1500
                                                                                                                 SQZ      1501
           705  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
           706  15746                             BX7    -X6*X4                                                  SQZ      1506
                     0317000710 +                 NZ     X7,SRCH5    IF STRS[DI] " 0                             SQZ      1507
                               54740              SA7    A4          [DI] = 0                                    SQZ      1508
           707  10611                             BX6    X1                                                      SQZ      1509
                     56676                        SA6    "RN"+B6     RND(RI) = RND(RJ)                           SQZ      1510
                          0400000166 +            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
           710  56376                    SRCH5    SA3    "RN"+B6                                                 FCC1413     5
                     20304                        LX3    59-RN.INCP                                              FCC1413     6
                          0323000713 +            PL     X3,SRCH5A   IF ^INC[RI]                                 FCC1413     7
           711  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
           712  15617                             BX6    -X7*X1      IAC[RJ] = 0                                 FCC1413    12
                     54610                        SA6    A1                                                      FCC1413    13
                                                                                                                 FCC1413    14
           713  43706                    SRCH5A   MX7    -RN.XMTP                                                FCC1413    15
                     15117                        BX1    -X7*X1      XMT[RJ] = 0   */ SO WE CAN SQUEEZE XMITS    SQZ      1517
                                                                                                                 SQZ      1518
           714  20240                    SRCH6    LX2    R1.RJP                                                  SQZ      1519
                     6130000010                   S"OC"  OC.XMT                                                  SQZ      1520
                               10622              BX6    X2                                                      SQZ      1521
           715  0100001127 +                      RJ     URI         GENERATE AN XMT                             SQZ      1522
           716  0100000731 +                      RJ     CTI         TRY AND ELIMINATE IT                        SQZ      1523
           717  0400000230 +                      EQ     AUC.RJ                                                  SQZ      1524
  
  
  
                                        **        F.XMTC/F.XMT - FLOATING POINT ADD/SUB REDUCES TO AN XMT/XMTC   SQZ      1526
                                                                                                                 SQZ      1527
           720  6130000014               F.XMTC   S"OC"  OC.XMTC                                                 SQZ      1528
                          0400000722 +            EQ     F.XMT1                                                  SQZ      1529
                                                                                                                 SQZ      1530
           721  6130000010               F.XMT    S"OC"  OC.XMT                                                  SQZ      1531
           722  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
           723  54730                             SA7    A3                                                      SQZ      1536
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    37
        SRCH - SEARCH FOR PREVIOUS OCCURANCE OF TYPE I INST           C.XMT               SQUEEZE 
  
                     0400000726 +                 EQ     C.XMT1                                                  SQZ      1537
  
  
  
                                        *         C.XMT / C.XMTC - CHANGE INSTRUCTION TO XMT / XMTC              SQZ      1539
                                                                                                                 SQZ      1540
           724  6130000014               C.XMTC   S"OC"  OC.XMTC                                                 SQZ      1541
                          0400000726 +            EQ     C.XMT1                                                  SQZ      1542
                                                                                                                 SQZ      1543
           725  6130000010               C.XMT    S"OC"  OC.XMT                                                  SQZ      1544
           726  54110                    C.XMT1   SA1    A1                                                      SQZ      1545
                                                  LX1    59-RN.ZP                                                SQZ      1546
                     0321000727 +                 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
           727  15610                             BX6    -X0*X1                                                  SQZ      1551
                     20640                        LX6    R1.RJP                                                  SQZ      1552
                          0100001127 +            RJ     URI         UPDATE REDUCED INSTRUCTION                  SQZ      1553
           730  53117                             SA1    "RN"+X1     (X1) = RND(RJ)                              SQZ      1554
                     0233001573 +                 JP     SBB.JT+"OC" JUMP( OC )                                  SQZ      1555
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    38
        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
           731  0200400731 +             CTI      ROUTINE                                                        SQZ      1564
                                                                                                                 SQZ      1565
                                        *         ELIMINATE XMT/XMT SEQUENCES                                    SQZ      1566
                                                                                                                 SQZ      1567
           732  20105                    CTI0     LX1    59-RN.XMTP                                              SQZ      1568
                     0321000737 +                 PL     X1,CTI1     IF ^XMT[RJ]                                 SQZ      1569
                               20145              LX1    1+RN.XMTP-RN.TPP                                        SQZ      1570
           733  53210                             SA2    X1          R1J = TP[RJ]                                SQZ      1571
                     6130000010                   S"OC"  OC.XMT                                                  SQZ      1572
                               76560              SX5    B6                                                      SQZ      1573
           734  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
           735  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
           736  0400000732 +                      EQ     CTI0                                                    SQZ      1582
                                                                                                                 SQZ      1583
                                        *         DETERMINE PRECEDENCE BIT SETTING AND JUMP TO PROCESSOR.        SQZ      1584
                                                                                                                 SQZ      1585
           737  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
           740  15642                             BX6    -X2*X4                                                  SQZ      1590
                     63460                        SB4    X6                                                      SQZ      1591
                          20326                   LX3    -D.STRSP                                                SQZ      1592
                               15732              BX7    -X2*X3                                                  SQZ      1593
           741  20122                             LX1    RN.TPP                                                  SQZ      1594
                     63570                        SB5    X7                                                      SQZ      1595
                          0244000742 +            JP     CTI2+B4     JUMP( STRS[DI] )  */ 0 - 2 = -/PRS/PS       SQZ      1596
                                                                                                                 SQZ      1597
           742  0400000745 +             CTI2     EQ     CTI3        STRS[DI] = 0                                SQZ      1598
                                                                                                                 SQZ      1599
           743  0450000751 +                      ZR     B5,CTI4     IF STRS[DJ] = 0                             SQZ      1600
                          0400000757 +            EQ     CTI5                                                    SQZ      1601
                                                                                                                 SQZ      1602
           744  0450000763 +                      ZR     B5,CTI6     IF PS[DI]                                   SQZ      1603
                          0451000757 +            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
           745  56276                    CTI3     SA2    "RN"+B6                                                 SQZ      1608
                     76710                        SX7    B1                                                      SQZ      1609
                          20763                   LX7    RN.NRP                                                  SQZ      1610
                               11272              BX2    X7*X2                                                   SQZ      1611
           746  12621                             BX6    X2+X1       RND(RI) = RND(RJ) ! NR[RI]                  SQZ      1612
                     54620                        SA6    A2                                                      SQZ      1613
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    39
        CTI - CHECK TRANSMIT INSTRUCTION                              CTI                 SQUEEZE 
  
                          43700                   MX7    0                                                       SQZ      1614
                               76440              SX4    B4                                                      SQZ      1615
           747  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
           750  0400000166 +                      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
           751  5120000776 +             CTI4     SA2    CTIB                                                    SQZ      1626
                          22703                   LX7    X3                                                      SQZ      1627
                               11623              BX6    X2*X3                                                   SQZ      1628
           752  0316000757 +                      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
           753  0327000745 +                      PL     X7,CTI3     IF ^LD[DJ]                                  SQZ      1632
                                         #DAL     IFNE   .DAL,0                                                  SQZ      1633
                          20773                   LX7    D.LDP-D.L2P                                             SQZ      1634
           754  0337000745 +                      MI     X7,CTI3     IF L2[DJ]                                   SQZ      1635
                                         #DAL     ENDIF                                                          SQZ      1636
                          54242                   SA2    A4+B2       R1RS = DI + 2                               SQZ      1637
                               43705              MX7    5                                                       SQZ      1638
           755  20254                             LX2    -R1.SOP                                                 SQZ      1639
                     15626                        BX6    -X6*X2      REGN = SORN[R1RS]                           SQZ      1640
                          20773                   LX7    -1                                                      SQZ      1641
                               63560              SB5    X6                                                      SQZ      1642
           756  22757                             LX7    B5,X7                                                   SQZ      1643
                     0337000745 +                 MI     X7,CTI3     IF 1 @ REGN @ 5  */ A LD REG                SQZ      1644
                                                                                                                 SQZ      1645
                                        *         KEEP *XMT*                                                     SQZ      1646
                                                                                                                 SQZ      1647
                                                                                                                 FCC1825X    5
           757  5120001126 +             CTI5     SA2    CTIC                                                    FCC1825X    6
                          20346                   LX3    D.STRSP                                                 FCC1825X    7
                               16632              BX6    -X2+X3                                                  FCC1825X    8
           760  0306000772 +                      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
           761  76310                             SX3    B1                                                      SQZ      1649
                     20366                        LX3    RN.XMTP                                                 SQZ      1650
                          12632                   BX6    X3+X2       XMT[RI] = 1                                 SQZ      1651
                               54620              SA6    A2                                                      SQZ      1652
           762  0400000731 +                      EQ     CTI                                                     SQZ      1653
                                                                                                                 SQZ      1654
                                        *         *XMT* PRECEDES A STORE. ELIMINATE IF PRED CAN PRECEDE A STORE. SQZ      1655
                                                                                                                 SQZ      1656
           763  5120000775 +             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
           764  0306000766 +                      ZR     X6,CTI7     IF ^( LD[DJ] ! KS[DJ] )                     SQZ      1662
                          10233                   BX2    X3                                                      SQZ      1663
                               20201              LX2    D.STRSP-1-D.L2P                                         SQZ      1664
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    40
        CTI - CHECK TRANSMIT INSTRUCTION                              CTI                 SQUEEZE 
  
           765  0322000757 +                      PL     X2,CTI5     IF ^L2[DJ]                                  SQZ      1665
           766                           CTI7     BSS    0                                                       SQZ      1666
                                         #DAL     ENDIF                                                          SQZ      1667
           766  10233                             BX2    X3                                                      SQZ      1668
                     20207                        LX2    D.STRSP-1-D.PIP                                         SQZ      1669
                          0322000745 +            PL     X2,CTI3     IF ^PI[DJ]    */ RJ NOT A *DEF*             SQZ      1670
                                                                                                                 SQZ      1671
           767  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
           770  7267777771                        SX6    X7-6                                                    SQZ      1676
                          0336000757 +            MI     X6,CTI5     IF SORN[R1J] < 6  */ NOT A STORE REG        SQZ      1677
           771  66400                             SB4    B0          STRS[DI] = 0                                SQZ      1678
                     0400000745 +                 EQ     CTI3                                                    SQZ      1679
                                                                                                                 FCC1825X   11
                                        *         CLR OR FMA THAT PRS IN 2 REGS, DUPLICATE IT INSTEAD OF AN XMT  FCC1825X   12
                                                                                                                 FCC1825X   13
           772  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
           773  0100001127 +                      RJ     URI         CHANGE INSTRUCTION                          FCC1825X   18
           774  0233001573 +                      JP     SBB.JT+"OC"                                             FCC1825X   19
                                                                                                                 SQZ      1680
           775                           CTIA     BFMW   D,(LD,KS),60-D.STRSP                                    SQZ      1681
           776                           CTIB     BFMW   D,(KS,PI),60-D.STRSP                                    SQZ      1682
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    41
        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
           777                                    PROCESS STT                                                    SQZ      1688
           777  54251                             SA2    A5+B1       R2 = R1 + 1                                 SQZ      1689
                     5130001355 +                 SA3    ARFA                                                    FCC0792     4
                               20230              LX2    -IH.RFP                                                 FCC0792     5
          1000  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
          1001  0303001002 +                      ZR     X3,STT0     IF ^(C,SA,IAC,XMT)[RFW]                     FCC0792    10
                          0100001362 +            RJ     ARF         ADJUST RF,CA                                SQZ      1698
                                                                                                                 SQZ      1699
          1002  0306001023 +             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
          1003  20644                             LX6    IH.RFP                                                  SQZ      1703
                     10566                        BX5    X6                                                      SQZ      1704
                          73760                   SX7    X6                                                      SQZ      1705
                               54651              SA6    A5+B1       [R2] = R2W                                  SQZ      1706
          1004  6150001021 +                      SB5    STT4                                                    SQZ      1707
                          5120000003 C            SA2    MIC                                                     SQZ      1708
          1005  0714001011 +                      GT     B4,B1,STT2  IF R > 1                                    SQZ      1709
                          0540001010 +            NZ     B4,STT1     IF R " 0                                    SQZ      1710
          1006  0317001010 +                      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
          1007  43600                             MX6    0                                                       SQZ      1717
                     54651                        SA6    A5+B1       [R2] = 0                                    SQZ      1718
                          0400001034 +            EQ     SA0                                                     SQZ      1719
                                                                                                                 SQZ      1720
          1010  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
          1011  20152                    STT2     LX1    -RN.TPP                                                 SQZ      1726
                     6231000003                   SB3    X1+3        DEFA = TP[RFW] + 3                          SQZ      1727
                               63420              SB4    X2          I = MIC                                     SQZ      1728
          1012  73650                             SX6    X5                                                      FCC1928     6
                     0306001014 +                 ZR     X6,STT3     IF IH[R2] = 0 */ NO IH                      FCC1928     7
                                                                                                                 FCC1928     8
                               53212              SA2    X1+B2       DF = TP[RFW] + 2                            FCC1928     9
          1013  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
                               54720              SA7    A2                                                      FCC1928    11
                                                                                                                 SQZ      1734
                                        *         SEARCH *MIC* FOR PREVIOUS OCCURANCE OF THE *STT*               SQZ      1735
                                                                                                                 SQZ      1736
          1014  0634001111 +             STT3     LE     B4,B3,SMI5  IF I @ DEFA                                 SQZ      1737
                          57142                   SA1    B4-B2       R2W = [I-2]                                 SQZ      1738
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    42
        MISCELLANEOUS INSTRUCTION PROCESSING                          STT                 SQUEEZE 
  
                               13651              BX6    X5-X1                                                   SQZ      1739
          1015  56240                             SA2    B4          I = [I]                                     SQZ      1740
                     63420                        SB4    X2                                                      SQZ      1741
                          0316001014 +            NZ     X6,STT3     IF [R2W] " [R2]                             SQZ      1742
                                                                                                                 SQZ      1743
          1016  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
          1017  0317001014 +                      NZ     X7,STT3     IF (OC,H2)[R1] " (OC,H2)[R1W]               SQZ      1748
                                                                                                                 SQZ      1749
                          54311                   SA3    A1+B1       DJ = R2W + 1                                SQZ      1750
          1020  0400001101 +                      EQ     SMI2        GO TRY TO ELIMINATE IT                      SQZ      1751
                                                                                                                 SQZ      1752
          1021  20570                    STT4     LX5    R1.RJP-IH.RFP     INST ^ REDUNDANT                      SQZ      1753
                     0400000230 +                 EQ     AUC.RJ                                                  SQZ      1754
          1022  0400001014 +                      EQ     STT3        RETRY ADDRESS                               SQZ      1755
                                                                                                                 SQZ      1756
                                        *         CAIH = 0 , REDUCE *STT* TO *SA* OR *S*                         SQZ      1757
                                                                                                                 SQZ      1758
          1023  43600                    STT5     MX6    0           [R2] = 0                                    SQZ      1759
                     54651                        SA6    A5+B1                                                   SQZ      1760
                          0307001034 +            ZR     X7,SA0      IF RF[R2W] = 0                              SQZ      1761
                                                                                                                 SQZ      1762
          1024  6130000060                        S"OC"  OC.SA                                                   SQZ      1763
                          10677                   BX6    X7                                                      SQZ      1764
                               53177              SA1    "RN"+X7                                                 SQZ      1765
          1025  20640                             LX6    R1.RJP                                                  SQZ      1766
                     56270                        SA2    "RN"                                                    SQZ      1767
                          0100001127 +            RJ     URI         URI( SA  RI, RF[R2W] )                      SQZ      1768
  
  
  
          1026                                    PROCESS SA                                                     SQZ      1770
                                                  LX2    59-RN.ZP                                                SQZ      1771
          1026  0322000665 +                      PL     X2,SRCH     IF ^Z[RK]                                   SQZ      1772
                                                                                                                 SQZ      1773
                          10611                   BX6    X1                                                      SQZ      1774
                               20152              LX1    -RN.TPP                                                 SQZ      1775
          1027  53212                             SA2    X1+B2       DJP = TP[RJ] + 2                            SQZ      1776
                     6231000003                   SB3    X1+3        DEFA = TP[RJ] + 3                           SQZ      1778
          1030  6150001053 +                      SB5    SA.JT                                                   SQZ      1779
                          20601                   LX6    59-RN.CP                                                SQZ      1780
          1031  0326001041 +                      PL     X6,SA1      IF ^C[RJ]                                   SQZ      1784
                          53310                   SA3    X1          R1J = TP[RJ]                                SQZ      1785
          1032  0100001153 +                      RJ     DCV         VAL = DVC(R1J)                              SQZ      1786
          1033  7277000000                        SX7    X7+                                                     SQZ      1787
                                                                                                                 SQZ      1788
                                        *         SA0 - REDUCE SHORT CONSTANT TO A *S* INSTRUCTION               SQZ      1789
                                                                                                                 SQZ      1790
          1034  43252                    SA0      MX2    -18                                                     SQZ      1791
                     10177                        BX1    X7                                                      SQZ      1792
                          6130000055              S"OC"  OC.S                                                    SQZ      1793
          1035  15672                             BX6    -X2*X7                                                  SQZ      1794
                     20636                        LX6    R1.INP                                                  SQZ      1795
                          0100001127 +            RJ     URI         URI(  S  RI,VAL )                           SQZ      1796
          1036  0311001062 +                      NZ     X1,.S       IF VAL " 0                                  SQZ      1797
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    43
        MISCELLANEOUS INSTRUCTION PROCESSING                          SA                  SQUEEZE 
  
                          76310                   SX3    B1                                                      SQZ      1798
                               20327              LX3    D.SZP                                                   SQZ      1799
          1037  37643                             IX6    X4-X3       SZ[DI] = 1                                  SQZ      1800
                     10466                        BX4    X6                                                      SQZ      1801
                          54640                   SA6    A4                                                      SQZ      1802
          1040  0400001057 +                      EQ     .CLR        GO SET Z BIT FOR RI                         SQZ      1803
                                                                                                                 SQZ      1804
                                                                                                                 SQZ      1805
          1041  20602                    SA1      LX6    RN.CP-RN.IACP                                           SQZ      1806
                     0326001075 +                 PL     X6,SMI      IF ^IAC[RJ]                                 SQZ      1807
                                                                                                                 SQZ      1808
                               20242              LX2    59-D.CMP                                                SQZ      1809
          1042  0332001045 +                      MI     X2,SA2      IF CM[DJP]    */ *IA*                       SQZ      1810
                          55322                   SA3    A2-B2       R1P = DJP - 2                               SQZ      1811
                               20334              LX3    -R1.RJP                                                 SQZ      1812
          1043  15630                             BX6    -X0*X3                                                  SQZ      1813
                     53267                        SA2    "RN"+X6     RNJ = RND(RJ[R1P])                          SQZ      1814
                          20201                   LX2    59-RN.CP                                                SQZ      1815
          1044  0332001075 +                      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
          1045  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
          1046  7160000000                        SX6    0                                                       SQZ      1824
                          6130000052              S"OC"  OC.STT                                                  SQZ      1825
          1047  0100001127 +                      RJ     URI         URI(  STT  RI,RJ  )                         SQZ      1826
          1050  0400000777 +                      EQ     .STT                                                    SQZ      1827
                                                                                                                 SQZ      1828
                                        *         SA NOT REDUNDANT, SET *SA* BIT                                 SQZ      1829
                                                                                                                 SQZ      1830
          1051  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
          1052  0400000230 +                      EQ     AUC.RJ                                                  SQZ      1835
                                                                                                                 SQZ      1836
          1053  56376                    SA.JT    SA3    "RN"+B6                                                 SQZ      1837
                     0400001051 +                 EQ     SA5                                                     SQZ      1838
                                                                                                                 SQZ      1839
          1054  0400001076 +                      EQ     SMI1        RETRY                                       SQZ      1840
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    44
        MISCELLANEOUS INSTRUCTION PROCESSING                          CLR                 SQUEEZE 
  
                                        *         ZERO - INSTRUCTION REDUCES TO A ZERO                           SQZ      1842
                                        *         CHANGE IT TO A *CLR* AND TRY TO ELIMINATE IT                   SQZ      1843
                                                                                                                 SQZ      1844
          1055  6130000102               ZERO     S"OC"  OC.CLR                                                  SQZ      1845
                          43600                   MX6    0                                                       SQZ      1846
                               54651              SA6    A5+B1       [R2] = 0                                    SQZ      1847
          1056  0100001127 +                      RJ     URI         URI( CLR  RI,0 )                            SQZ      1848
  
  
  
          1057                                    PROCESS CLR                                                    SQZ      1850
          1057  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
          1060  6030000003                        SB3    A0+3        DEFA = TXT + 3                              FCC1085    24
                          6150001070 +            SB5    FMA1                                                    FCC1085    25
          1061  0400001075 +                      EQ     SMI                                                     FCC1085    26
  
  
  
          1062                           FMA      PROCESS (FMA,S)                                                SQZ      1857
          1062  26605                             UX6    X5                                                      FCC1085    27
                     21636                        AX6    R1.INP                                                  FCC1085    28
                          0316001065 +            NZ     X6,FMA0     IF IN[R1] " 0 */ VAL(RI) NOT 0              FCC1085    29
          1063  10644                             BX6    X4                                                      FCC1085    30
                     20625                        LX6    59-D.PRSP                                               FCC1085    31
                          0326001055 +            PL     X6,ZERO     IF ^PRS[DI]                                 FCC1085    32
          1064  0400001057 +                      EQ     .CLR                      */ GO SET *Z* BIT             FCC1085    33
                                                                                                                 FCC1085    34
          1065  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
          1066  54730                             SA7    A3                                                      SQZ      1862
                     6030000003                   SB3    A0+3        DEFA = TXT + 3                              SQZ      1863
          1067  6150001070 +                      SB5    FMA1                                                    SQZ      1864
                          0400001075 +            EQ     SMI                                                     SQZ      1865
                                                                                                                 SQZ      1866
          1070  0400000166 +             FMA1     EQ     MSL1        FAIL EXIT                                   SQZ      1867
          1071  0400001076 +                      EQ     SMI1        RETRY                                       SQZ      1868
  
  
  
                                        *         FMA60 - CHANGE INSTRUCTION TO  FMA  RI,60                      SQZ      1870
                                                                                                                 SQZ      1871
          1072  6130000043               FMA60    S"OC"  OC.FMA                                                  SQZ      1872
                          7160000074              SX6    60                                                      SQZ      1873
          1073  20636                             LX6    R1.INP                                                  SQZ      1874
                     0100001127 +                 RJ     URI         URI( FMA  RI,60 )                           SQZ      1875
          1074  0400001062 +                      EQ     FMA                                                     SQZ      1876
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    45
        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
          1075  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
          1076  0634001111 +             SMI1     LE     B4,B3,SMI5  IF I @ DEFA                                 SQZ      1891
                          5114777774              SA1    B4-3                                                    SQZ      1892
          1077  13651                             BX6    X5-X1                                                   SQZ      1893
                     56240                        SA2    B4          I = [I]                                     SQZ      1894
                          11706                   BX7    X0*X6                                                   SQZ      1895
                               63420              SB4    X2                                                      SQZ      1896
          1100  0317001076 +                      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
          1101  12634                    SMI2     BX6    X3+X4                                                   SQZ      1902
                     76140                        SX1    B4                                                      SQZ      1903
                          43772                   MX7    -D.STRSL                                                SQZ      1904
                               20626              LX6    -D.STRSP                                                SQZ      1905
          1102  15667                             BX6    -X7*X6                                                  SQZ      1906
                     63460                        SB4    X6                                                      SQZ      1907
                          11634                   BX6    X3*X4                                                   SQZ      1908
                               20626              LX6    -D.STRSP                                                SQZ      1909
          1103  15767                             BX7    -X7*X6                                                  SQZ      1910
                     0244001104 +                 JP     SMI3+B4     JUMP( STRS[DI] ! STRS[DJ] )                 SQZ      1911
                                                                                                                 SQZ      1912
          1104  0400001113 +             SMI3     EQ     SMI6        STRS[DJ] & STRS[DI] = 0                     SQZ      1913
                                                                                                                 SQZ      1914
          1105  0317001116 +                      NZ     X7,SMI7     IF PRS[DJ] & PRS[[DI]                       SQZ      1915
                          0400001122 +            EQ     SMI8                                                    SQZ      1916
                                                                                                                 SQZ      1917
          1106  0400001113 +                      EQ     SMI6        PS[DI] ! PS[DJ]                             SQZ      1918
                                                                                                                 SQZ      1919
          1107  6241000000               SMI3A    SB4    X1+                                                     SQZ      1920
                                        *         EQ     SMI4        PS & PRS                                    SQZ      1921
                                                                                                                 SQZ      1922
          1110  0440001111 +             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
          1111  5120000003 C             SMI5     SA2    MIC                                                     SQZ      1928
                          10622                   BX6    X2                                                      SQZ      1929
                               54641              SA6    A4+B1       [DI+1] = MIC                                SQZ      1930
          1112  74741                             SX7    A4+B1                                                   SQZ      1931
                     54720                        SA7    A2          MIC = DI + 1                                SQZ      1932
                          0255000000              JP     B5          */ RETURN TO FAIL EXIT                      SQZ      1933
                                                                                                                 SQZ      1934
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    46
        MISCELLANEOUS INSTRUCTION PROCESSING                          SMI                 SQUEEZE 
  
                                        *         INSTRUCTION REDUNDANT, ELIMINATE SECOND OCCURANCE              SQZ      1935
                                                                                                                 SQZ      1936
          1113  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
          1114  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
          1115  56676                             SA6    "RN"+B6     RND(RI) = RND(RI[R1J])                      SQZ      1945
                     0400000166 +                 EQ     MSL1                                                    SQZ      1946
                                                                                                                 SQZ      1947
                                        *         BOTH INSTRUCTIONS PRECEDE A REGISTER STORE.                    SQZ      1948
                                                                                                                 SQZ      1949
          1116  63410                    SMI7     SB4    X1                                                      SQZ      1950
                     54131                        SA1    A3+B1                                                   SQZ      1951
                          54242                   SA2    A4+B2       RSI = R1 + 4                                SQZ      1952
                               20130              LX1    -36                                                     SQZ      1953
          1117  53110                             SA1    X1          RSJ = [RSL[DJ+1]]                           SQZ      1954
                     13612                        BX6    X1-X2                                                   SQZ      1955
                          11606                   BX6    X0*X6                                                   SQZ      1956
          1120  0316001110 +                      NZ     X6,SMI4     IF REG[RSJ] " REG[RSI]                      SQZ      1957
                                                                                                                 SQZ      1958
                          43774                   MX7    60                                                      SQZ      1959
          1121  5074000004                        SA7    A4+4        [DI+4] = -0   */ MARK FOLLOWING *RS* AS DEA SQZ      1960
                          0400001113 +            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
          1122  20425                    SMI8     LX4    59-D.PRSP                                               SQZ      1966
                     54241                        SA2    A4+B1       R1RS = DI + 1                               SQZ      1967
                          0334001124 +            MI     X4,SMI9     IF PRS[DI]                                  SQZ      1968
          1123  54231                             SA2    A3+B1                                                   SQZ      1969
                     20230                        LX2    -36                                                     SQZ      1970
                          53220                   SA2    X2          R1RS = [RSL[DJ+1]]                          SQZ      1971
                                                                                                                 SQZ      1972
          1124  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
          1125  0317001113 +                      NZ     X7,SMI6     IF SORT[R1RS] " 0  */ ^ A B-REG             SQZ      1977
                          0400001107 +            EQ     SMI3A                                                   SQZ      1978
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    47
        MISCELLANEOUS INSTRUCTION PROCESSING                          URI                 SQUEEZE 
  
                                        **        URI - UPDATE REDUCED INSTRUCTION                               SQZ      1980
                                        *         UPDATES CORE IMAGE AND REGISTERS OF A CHANGED TYPE I/II INST   SQZ      1981
                                        *                                                                        SQZ      1982
          1126  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
                                        *         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
          1127  0200401127 +             URI      ROUTINE                                                        SQZ      1993
          1130  5133000000 X                      SA3    F.RDT+"OC"                                              SQZ      1994
                          43772                   MX7    -D.STRSL                                                SQZ      1995
                               76560              SX5    B6                                                      SQZ      1996
          1131  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
          1132  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
          1133  22407                             LX4    X7                                                      SQZ      2005
                     0400001127 +                 EQ     URI                                                     SQZ      2006
  
  
                                        **        ECO - EVALUATE INSTRUCTION WITH CONSTANT OPERANDS              SQZ      2008
                                        *                                                                        SQZ      2009
                                        *         ENTRY  (B3) = INSTRUCTION OPCODE ( = MACHINE OPCODE )          SQZ      2010
                                                                                                                 SQZ      2011
          1134  5130001145 +             ECO      SA3    ECOA                                                    SQZ      2012
                          76630                   SX6    "OC"                                                    SQZ      2013
                               20666              LX6    54                                                      SQZ      2014
          1135  12763                             BX7    X6+X3                                                   SQZ      2015
                     5170001142 +                 SA7    ECO1                                                    SQZ      2016
          1136  0100001146 +                      RJ     GCV         GET CONSTANT VALUES ( ALSO FLUSH STACK )    SQZ      2017
          1137  6140000020                        SB4    20B                                                     SQZ      2018
                          0734001142 +            LT     B3,B4,ECO1  IF OC[R1] < 20B   */ BOOLEAN INSTRUCTION    SQZ      2019
          1140  0356000665 +                      OR     X6,SRCH     IF ^RANGE(VAL[RJ])                          SQZ      2020
                          0376000665 +            ID     X6,SRCH     IF INDEF(VAL[RJ])                           SQZ      2021
          1141  0357000665 +                      OR     X7,SRCH     IF ^RANGE(VAL[RK])                          SQZ      2022
                          0377000665 +            ID     X7,SRCH     IF INDEF(VAL[RK])                           SQZ      2023
          1142  30667                    ECO1     FX6    X6+X7       VAL = VAL[RJ] .OP. VAL[RK]                  SQZ      2024
                     0734001161 +                 LT     B3,B4,CCV   IF OC[R1] < 20B                             SQZ      2025
                                                                                                                 SQZ      2026
          1143  0356000665 +            +         OR     X6,SRCH     IF ^RANGE(VAL)                              SQZ      2027
                          0376000665 +            ID     X6,SRCH     IF INDEF(VAL)                               SQZ      2028
          1144  0400001161 +                      EQ     CCV                                                     SQZ      2029
                                                                                                                 SQZ      2030
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    48
        MISCELLANEOUS INSTRUCTION PROCESSING                          ECO                 SQUEEZE 
  
          1145  00667                    ECOA     VFD    6/00B,9/667B                                            SQZ      2031
                     0734001161 +                 LT     B3,B4,CCV                                               SQZ      2032
                               46000              NO                                                             SQZ      2033
  
  
                                        **        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
          1146  0200401146 +             GCV      ROUTINE                                                        SQZ      2041
          1147  20152                             LX1    -RN.TPP                                                 SQZ      2042
                     53310                        SA3    X1          R1P = TP[RJ]                                SQZ      2043
                          0100001153 +            RJ     DCV                                                     SQZ      2044
          1150  20252                             LX2    -RN.TPP                                                 SQZ      2045
                     10677                        BX6    X7          (X6) = VAL[RJ]                              SQZ      2046
                          53320                   SA3    X2          R1P = TP[RK]                                SQZ      2047
          1151  0100001153 +                      RJ     DCV         (X7) = VAL[RK]                              SQZ      2048
          1152  0400001146 +                      EQ     GCV                                                     SQZ      2049
  
  
  
                                        **        DCV - DETERMINE CONSTANT VALUE                                 SQZ      2051
                                        *                                                                        SQZ      2052
                                        *         ENTRY  (X3) = R1 WORD OF *S* OR *FMA* INSTRUCTION              SQZ      2053
                                        *                                                                        SQZ      2054
                                        *         EXIT   (X7) = VALUE OF CONSTANT                                SQZ      2055
                                        *                (B5) = 0 IF OC = OC.S                                   SQZ      2056
                                                                                                                 SQZ      2057
          1153  0200401153 +             DCV      ROUTINE                                                        SQZ      2058
          1154  26343                             UX3    B4,X3                                                   SQZ      2059
                     6154777722                   SB5    B4-OC.S                                                 SQZ      2060
                               20336              LX3    -R1.INP                                                 SQZ      2061
          1155  73730                             SX7    X3          VAL = IN[R1]                                SQZ      2062
                     0450001153 +                 ZR     B5,DCV      IF OC[R1] = OC.S                            SQZ      2063
          1156  6243777776                        SB4    X3-1                      */ ASSUME A *FMA*             SQZ      2064
                          43301                   MX3    1                                                       SQZ      2065
                               23743              AX7    B4,X3       VAL = MASK(IN[R1])                          SQZ      2066
          1157  0640001153 +                      PL     B4,DCV      IF IN[R1] \ 1                               SQZ      2067
                          43700                   MX7    0           VAL = 0                                     SQZ      2068
          1160  0400001153 +                      EQ     DCV                                                     SQZ      2069
  
  
  
                                        **        CCV - CONVERT CONSTANT VALUE                                   SQZ      2071
                                        *                                                                        SQZ      2072
                                        *         ENTRY  (X6) = VAL , TO BE REFORMED AS *S*/*FMA* INSTRUCTION    SQZ      2073
                                        *                (B6) = RI                                               SQZ      2074
                                                                                                                 SQZ      2075
                                        *         TRY TO REDUCE CONSTANT TO A *FMA*                              SQZ      2076
                                                                                                                 SQZ      2077
          1161  0326001165 +             CCV      PL     X6,CCV1     IF VAL > 0                                  SQZ      2078
                          47766                   CX7    X6                                                      SQZ      2079
                               43301              MX3    1                                                       SQZ      2080
          1162  6247777776                        SB4    X7-1                                                    SQZ      2081
                          23743                   AX7    B4,X3                                                   SQZ      2082
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    49
        MISCELLANEOUS INSTRUCTION PROCESSING                          CCV                 SQUEEZE 
  
                               13376              BX3    X7-X6                                                   SQZ      2083
          1163  0313001165 +                      NZ     X3,CCV1     IF VAL " MASK( COUNT(VAL) )                 SQZ      2084
                          6130000043              S"OC"  OC.FMA      OC = OC.FMA                                 SQZ      2085
          1164  76641                             SX6    B4+B1       VAL = COUNT(VAL)                            SQZ      2086
                     0400001170 +                 EQ     CCV2                                                    SQZ      2087
                                                                                                                 SQZ      2088
                                        *         TRY TO REDUCE CONSTANT TO A *S*                                SQZ      2089
                                                                                                                 SQZ      2090
          1165  0306001055 +             CCV1     ZR     X6,ZERO     IF VAL = 0                                  SQZ      2091
                          43352                   MX3    42                                                      SQZ      2092
                               22706              LX7    X6                                                      SQZ      2093
          1166  15663                             BX6    -X3*X6                                                  SQZ      2094
                     21721                        AX7    17                                                      SQZ      2095
                          0317000665 +            NZ     X7,SRCH     IF SHIFT(VAL,-17) " 0                       SQZ      2096
          1167  6130000055                        S"OC"  OC.S        OC = OC.S                                   SQZ      2097
                                                                                                                 SQZ      2098
          1170  20636                    CCV2     LX6    R1.INP                                                  SQZ      2099
                     0100001127 +                 RJ     URI         URI( OC  VAL,RI )                           SQZ      2100
          1171  43700                             MX7    0                                                       SQZ      2101
                     54751                        SA7    A5+B1       [R1+1] = 0                                  SQZ      2102
                          0400001062 +            EQ     FMA                                                     SQZ      2103
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    50
        MISCELLANEOUS INSTRUCTION PROCESSING                          BTERM               SQUEEZE 
  
                                        *         BOS - BEGINNING OF STMT MARKER                                 SQZ      2105
                                                                                                                 SQZ      2106
          1172                                    PROCESS BOS                                                    SQZ      2107
          1172  20536                             LX5    -R1.INP                                                 SQZ      2108
                     73650                        SX6    X5                                                      SQZ      2109
                          5160000000 X            SA6    =XLINENR    LINENR = IN[R1]  */ LINE NO OF THIS STMT    SQZ      2110
                                                                                                                 SQZ      2111
          1173                                    PROCESS NOP                                                    SQZ      2112
          1173  43700                             MX7    0                                                       SQZ      2113
                     54740                        SA7    A4          [DI] = 0                                    SQZ      2114
                          0400000166 +            EQ     MSL1                                                    SQZ      2115
                                                                                                                 FCC0588     5
          1174                                    PROCESS EOS                                                    FCC0588     6
          1174  73350                             SX3    X5                                                      FCC0588     7
                     0303000166 +                 ZR     X3,MSL1     IF IH[R1] = 0 */ NOT A OPT=2 *EOS*          FCC0588     8
                               55252              SA2    A5-B2       DIP = R1 - 2                                FCC0588     9
          1175  20221                             LX2    59-D.BMP                                                FCC0588    10
                     0332000166 +                 MI     X2,MSL1     IF BM[DIP]    */ LAST INST IS A *BM*        FCC0588    11
          1176  0400001173 +                      EQ     .NOP                                                    FCC0588    12
                                                                                                                 FCC0588    13
                                        *         RS - REGISTER STORE                                            SQZ      2117
                                                                                                                 SQZ      2118
          1177                                    PROCESS RS                                                     SQZ      2119
          1177  0304000166 +                      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
          1200  15210                             BX2    -X0*X1                                                  SQZ      2124
                     36762                        IX7    X6+X2                                                   SQZ      2125
                          54750                   SA7    A5                                                      SQZ      2126
                               13675              BX6    X7-X5                                                   SQZ      2127
          1201  10577                             BX5    X7                                                      SQZ      2128
                     20735                        LX7    59-R1.INP                                               SQZ      2129
                          0337000166 +            MI     X7,MSL1     IF IN[R1] " 0  */ RJ *RS*                   SQZ      2130
                                                                                                                 SQZ      2131
          1202  20152                             LX1    -RN.TPP                                                 SQZ      2132
                     5221000003                   SA2    X1+3                                                    SQZ      2133
                               74350              SX3    A5                                                      SQZ      2134
          1203  20344                             LX3    36                                                      SQZ      2135
                     12732                        BX7    X3+X2       RSL[TP[RI]+3] = R1                          SQZ      2136
                          54720                   SA7    A2                        */ LINK DEF TO *RS*           SQZ      2137
          1204  0306001206 +                      ZR     X6,RS1      IF RI DIDN"T CHANGE                         SQZ      2138
                                                                                                                 SQZ      2139
                          5120000007 C            SA2    RSS                                                     SQZ      2140
          1205  10622                             BX6    X2                                                      SQZ      2141
                     54641                        SA6    A4+B1       [DI+1] = RSS ( ADD TO CHAIN OF SEPARATED    SQZ      2142
                          74741                   SX7    A4+B1                      REGISTER STORES )            SQZ      2143
                               54720              SA7    A2          RSS = DI + 1                                SQZ      2144
                                                                                                                 SQZ      2145
                                        *         BUMP USES COUNT OF OPERAND IF *UJP* OR FULL LOCK *RS*.         SQZ      2146
                                                                                                                 SQZ      2147
          1206  10655                    RS1      BX6    X5                                                      SQZ      2148
                     20645                        LX6    59-R1.SOP-SO.LKP                                        SQZ      2149
                          0336000166 +            MI     X6,MSL1     IF IF SOTLK[R1]   */ DONT COLLECT USES      SQZ      2150
          1207  20540                             LX5    R1.RJP                                                  SQZ      2151
                     0400000230 +                 EQ     AUC.RJ                                                  SQZ      2152
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    51
        MISCELLANEOUS INSTRUCTION PROCESSING                          BTERM               SQUEEZE 
  
                                        *         BLOCK TERMINATORS                                              SQZ      2154
                                                                                                                 SQZ      2155
          1210                                    PROCESS (UJP,RJ3,RJ6,LAB,ENT)                                  SQZ      2156
          1210  43600                             CLEAR              CLEAR LINKED LISTS                          SQZ      2157
                     0400000166 +                 EQ     MSL1                                                    SQZ      2158
                                                                                                                 SQZ      2159
          1212                                    PROCESS JIN                                                    SQZ      2160
          1212  43600                             CLEAR              CLEAR LINKED LISTS                          SQZ      2161
                     56176                        SA1    "RN"+B6                                                 SQZ      2162
                                                  LX1    59-RN.ZP                                                SQZ      2163
                          0321001215 +            PL     X1,.JPX     IF ^Z[RI]                                   SQZ      2164
          1214  11605                             BX6    X0*X5       RI[R1] = 0                                  SQZ      2165
                     54650                        SA6    A5                                                      SQZ      2166
                          0400000166 +            EQ     MSL1                                                    SQZ      2167
                                                                                                                 SQZ      2168
                                        *         CONDITIONAL JUMPS                                              SQZ      2169
                                                                                                                 SQZ      2170
          1215                                    PROCESS JPX                                                    SQZ      2171
          1215  56176                             SA1    "RN"+B6                                                 SQZ      2172
                     11605                        BX6    X0*X5                                                   SQZ      2173
                          5120000002 C            SA2    MRC                                                     SQZ      2174
          1216  15510                             BX5    -X0*X1      RI = RND(RI)                                SQZ      2175
                     20106                        LX1    59-RN.XMTCP                                             SQZ      2176
                          0321001224 +            PL     X1,JPX1     IF ^XMTC[RNI]                               SQZ      2177
                                                                                                                 SQZ      2178
                                        *         CHANGE *JPX* TO OMIT *XMTC* IF *PL/MI* JUMPS                   SQZ      2179
                                                                                                                 SQZ      2180
          1217  54351                             SA3    A5+B1       R2 = R1 + 1                                 SQZ      2181
                     20352                        LX3    -IH.CAP     JT = CA[R2]   */ JUMP TYPE                  SQZ      2182
                          63530                   SB5    X3                                                      SQZ      2183
          1220  0752001224 +                      LT     B5,B2,JPX1  IF JT < 2     */ ZR, NZ                     SQZ      2184
                          67552                   SB5    B5-B2                                                   SQZ      2185
          1221  0652001224 +                      GE     B5,B2,JPX1  IF JT > 3     */ RANGE CHECK JUMPS          SQZ      2186
                          76710                   SX7    B1                                                      SQZ      2187
                               13737              BX7    X3-X7                                                   SQZ      2188
          1222  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
          1223  20334                             LX3    -R1.RJP                                                 SQZ      2193
                     15530                        BX5    -X0*X3      RI = RJ[R1P]  */ SUBSTITUTE OPERAND OF XMTC SQZ      2194
                                                                                                                 SQZ      2195
          1224  36665                    JPX1     IX6    X6+X5                                                   SQZ      2196
                     20540                        LX5    R1.RJP                                                  SQZ      2197
                          54650                   SA6    A5                                                      SQZ      2198
                               74750              SX7    A5          JPXA = R1                                   SQZ      2199
          1225  5170000011 C                      SA7    JPXA                                                    SQZ      2200
                          43401                   MX4    1                                                       SQZ      2201
          1226  0302000230 +                      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
          1227  74741                             SX7    A4+B1                                                   SQZ      2205
                     54720                        SA7    A2          MRC = DI + 1                                SQZ      2206
                          0400000230 +            EQ     AUC.RJ                                                  SQZ      2207
  
  
  
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    52
        MISCELLANEOUS INSTRUCTION PROCESSING                          DEF                 SQUEEZE 
  
          1230                                    PROCESS DEF                                                    SQZ      2209
          1230  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
          1231  0400000166 +                      EQ     MSL1                                                    SQZ      2214
  
  
                                         .PLI     IFNE   .PLI,0                                          ?PL/I   SQZ      2216
                                                                                                                 SQZ      2217
                                                  PROCESS RJXJ                                                   SQZ      2218
                                                  SA3    A5+B1       R2 = R1 + 1                                 SQZ      2219
                                                  SA1    "RN"+X5     RIW = RND(RI[R1])                           SQZ      2220
                                                  BX5    X0*X5                                                   SQZ      2221
                                                  LX3    -IH.RFP                                                 SQZ      2222
                                                  SA2    "RN"+X3     RFW = RND(RF[R2])                           SQZ      2223
                                                  BX3    X0*X3                                                   SQZ      2224
                                                  SX6    X1                                                      SQZ      2225
                                                  SX7    X2                                                      SQZ      2226
                                                  IX6    X5+X6       RI[R1] = RN[RIW]                            SQZ      2227
                                                  SA6    A5                                                      SQZ      2228
                                                  BX7    X3+X7       RF[R2] = RN[RFW]                            SQZ      2229
                                                  LX7    IH.RFP                                                  SQZ      2230
                                                  SA7    A3                                                      SQZ      2231
                                                                                                                 SQZ      2232
                                                  SX3    B1                                                      SQZ      2233
                                                  LX3    RN.USESP                                                SQZ      2234
                                                  IX6    X1+X3       USES[RIW] = USES[RIW] + 1                   SQZ      2235
                                                  SA6    A1                                                      SQZ      2236
                                                  SA2    A2                                                      SQZ      2237
                                                  IX7    X2+X3       USES[RFW] = USES[RFW] + 1                   SQZ      2238
                                                  SA7    A2                                                      SQZ      2239
                                                  EQ     MSL1                                                    SQZ      2240
                                                                                                                 SQZ      2241
                                         .PLI     ENDIF                                                  'PL/I   SQZ      2242
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    53
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                        **        MEMORY REFERENCE PROCESSING                                    SQZ      2244
                                                                                                                 SQZ      2245
          1232                                    PROCESS (TLD,TST,ILD)                                          SQZ      2246
          1232  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
          1233  0400001254 +                      EQ     SMR                                                     SQZ      2250
  
  
                                         .LCM     IFNE   .DAL,0                                                  FCC2072     8
          1234                                    PROCESS (DRL,DWL)                                              FCC2072     9
          1234  20152                             LX1    -RN.TPP                                                 FCC2072    10
                     53210                        SA2    X1          R1J = TP[RJW]                               FCC2072    11
                          6251000003              SB5    X1+3        DEFA = TP[RJW] + 3                          FCC2072    12
          1235  54351                             SA3    A5+B1       R2 = R1 + 1                                 FCC2072    13
                     26642                        UX6    B4,X2                                                   FCC2072    14
                          7164777725              SX6    B4-OC.STT                                               FCC2072    15
          1236  0316001243 +                      NZ     X6,SLD1     IF OC[R1J] " OC.STT                         FCC2072    16
                          54321                   SA3    A2+B1       R2 = R14 + 1  */ SUBSTITUTE R2 OF STT       FCC2072    17
          1237  0400001243 +                      EQ     SLD1                                                    FCC2072    18
                                         .LCM     ENDIF                                                          FCC2072    19
  
  
          1240                                    PROCESS (PLD,PST)                                              SQZ      2252
          1240  20152                             LX1    -RN.TPP                                                 SQZ      2253
                     53312                        SA3    X1+B2       DJ = RP[RJW] + 2                            SQZ      2254
                          7160000001              SX6    1                                                       SQZ      2255
          1241  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
  
  
          1242                                    PROCESS (SLD,SST,SDL,SDS)                                      FCC2072    20
          1242  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
          1243  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
          1244  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
          1245  54651                             SA6    A5+B1                                                   SQZ      2272
                     0400001254 +                 EQ     SMR                                                     SQZ      2273
  
  
          1246                                    PROCESS (LD,ST)                                                SQZ      2275
          1246  54251                             SA2    A5+B1       R2 = R1 + 1                                 SQZ      2276
                     5130001355 +                 SA3    ARFA                                                    FCC0792    11
                               20230              LX2    -IH.RFP                                                 FCC0792    12
          1247  53127                             SA1    "RN"+X2     RFW = RND(RF[R2])                           FCC0792    13
                     11602                        BX6    X0*X2       R2W = [R2]                                  FCC0792    14
                          73710                   SX7    X1          RF[R2W] = RN[RFW]                           FCC0792    15
                               11331              BX3    X3*X1                                                   FCC0792    16
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    54
        SMR - SQUEEZE MEMORY REFERENCES                               LD                  SQUEEZE 
  
          1250  0303001251 +                      ZR     X3,LD1      IF ^(C,SA,IAC,XMT)[RFW]                     FCC0792    17
                          0100001362 +            RJ     ARF         ADJUST RF,CA                                SQZ      2285
                                                                                                                 SQZ      2286
          1251  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
          1252  6251000003                        SB5    X1+3        DEFA = TP[RFW] + 3  */ MIN SRCH ADDRESS     SQZ      2291
                                   0              ERRNZ  59-IH.LDP                                               FCC1029     6
                          0326001254 +            PL     X6,SMR      IF ^LD[R2W]   */ ^PREFETCH ! APL *LD*       FCC1029     7
                                                                                                                 FCC1029     8
          1253  20431                             LX4    59-D.STP                                                FCC1029     9
                     0400001263 +                 EQ     SMR2                                                    FCC1029    10
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    55
        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
          1254  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
          1255  63420                    SMR1     SB4    X2          I = MRC                                     SQZ      2309
                     53220                        SA2    X2          MRC = [MRC]                                 SQZ      2310
                          0654001263 +            LE     B4,B5,SMR2  IF I @ DEFA   */ END OF CHAIN               SQZ      2311
          1256  11724                             BX7    X2*X4                                                   SQZ      2312
                     55322                        SA3    A2-B2       R2M = MRC - 2                               SQZ      2313
                          0337001263 +            MI     X7,SMR2     IF JP[MRC] & ST[DI]                         SQZ      2314
          1257  13736                             BX7    X3-X6                                                   SQZ      2315
                     0307001304 +                 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
          1260  0313001255 +                      NZ     X3,SMR1     IF IH[R2M] " IH[R2W]                        SQZ      2322
                          20730                   LX7    IH.IHP-IH.RFP                                           SQZ      2323
                               15770              BX7    -X0*X7                                                  SQZ      2324
          1261  54331                             SA3    A3+B1                                                   SQZ      2325
                     0307001255 +                 ZR     X7,SMR1     IF RF[R2M] = RF[R2W]                        SQZ      2326
                               20331              LX3    59-D.STP                                                SQZ      2327
          1262  12734                             BX7    X3+X4                                                   SQZ      2328
                     0327001255 +                 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
          1263  5120000002 C             SMR2     SA2    MRC                                                     SQZ      2333
                          54341                   SA3    A4+B1                                                   SQZ      2334
                               20630              LX6    -IH.RFP                                                 SQZ      2335
          1264  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
          1265  7160000001                        SX6    1                                                       SQZ      2340
                          54720                   SA7    A2          MRC = DI + 1  */ CHAIN POINTS TO LAST       SQZ      2341
                               20644              LX6    RN.USESP                                                SQZ      2342
          1266  0430001300 +                      ZR     B3,SMR5     IF OC = 0     */ TYPE I MEM REF             SQZ      2343
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    56
        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
          1267  20152                             LX1    -RN.TPP                                                 SQZ      2349
                     54710                        SA7    A1                                                      SQZ      2350
                          0615001272 +            LE     B5,B1,SMR3        IF R @ 1                              SQZ      2351
                                                                                                                 SQZ      2352
          1270  53212                             SA2    X1+B2       DIP = TP[RFW] + 2                           SQZ      2353
                     76310                        SX3    B1                                                      SQZ      2354
                          20323                   LX3    D.RFP                                                   SQZ      2355
                               12732              BX7    X3+X2       RF[DIP] = 1                                 SQZ      2356
          1271  54720                             SA7    A2                                                      SQZ      2357
                                                                                                                 SQZ      2358
          1272  0334001275 +             SMR3     MI     X4,SMR4     IF ST[DI]                                   SQZ      2359
                                                                                                                 SQZ      2360
                          0715000166 +            GT     B5,B1,MSL1  IF R > 1                                    SQZ      2361
          1273  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
          1274  0400000166 +                      EQ     MSL1                                                    SQZ      2366
                                                                                                                 SQZ      2367
                                        *         ADVANCE USES FOR *RI* IN STORE INSTRUCTION                     SQZ      2368
                                                                                                                 SQZ      2369
          1275  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
          1276  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
          1277  0400000166 +                      EQ     MSL1                                                    SQZ      2382
                                                                                                                 SQZ      2383
                                        *         ADVANCE USES FOR TYPE I MEM REF                                SQZ      2384
                                                                                                                 SQZ      2385
          1300  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
          1301  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
          1302  36761                             IX7    X6+X1       USES[RNK] = USES[RNK] + 1                   SQZ      2394
                     54710                        SA7    A1                                                      SQZ      2395
                          0324000166 +            PL     X4,MSL1     IF ^ST[DI]                                  SQZ      2396
                                                                                                                 SQZ      2397
          1303  20520                             LX5    R1.RKP                                                  SQZ      2398
                     0400001275 +                 EQ     SMR4                                                    SQZ      2399
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    57
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                        *         2 MEMORY REFERENCES TO THE SAME LOCATION                       SQZ      2401
                                                                                                                 SQZ      2402
          1304  55131                    SMR7     SA1    A3-B1       R1M = R2M - 1                               SQZ      2403
                     54331                        SA3    A3+B1       DM = R2M + 1                                SQZ      2404
                          6140000074              SB4    OC.ILD                                                  SQZ      2405
          1305  20331                             LX3    59-D.STP                                                SQZ      2406
                     0334001332 +                 MI     X4,SMR11    IF ST[DI]                                   SQZ      2407
          1306  0333001320 +                      MI     X3,SMR9     IF ST[DM]                                   SQZ      2408
                                                                                                                 SQZ      2409
                                        *         LD / LD - ELIMINATE THE SECOND                                 SQZ      2410
                                                                                                                 SQZ      2411
                          0534001313 +            NE     "OC",B4,SMR8      IF OC[R1] " OC.ILD                    SQZ      2412
          1307  5120000011 C                      SA2    JPXA                                                    SQZ      2413
                          74630                   SX6    A3                                                      SQZ      2414
                               37762              IX7    X6-X2                                                   SQZ      2415
          1310  0337001313 +                      MI     X7,SMR8     IF DM < JPXA  */ FIRST IS BEFORE LAST *JPX* SQZ      2416
                          26731                   UX7    "OC",X1                                                 SQZ      2417
          1311  7163777727                        SX6    "OC"-OC.LD                                              SQZ      2418
                          0316001313 +            NZ     X6,SMR8     IF OC[R1M] " OC.LD                          SQZ      2419
                                                                                                                 SQZ      2420
          1312  27741                             PX7    B4,X1       OC[R1M] = OC.ILD                            SQZ      2421
                     54710                        SA7    A1                                                      SQZ      2422
                                                                                                                 SQZ      2423
          1313  11734                    SMR8     BX7    X3*X4                                                   SQZ      2424
                     20770                        LX7    D.STP-D.PRSP                                            SQZ      2425
                          0337001323 +            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
          1314  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
          1315  0316001323 +                      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
          1316  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
          1317  56776                             SA7    "RN"+B6     RND(RI) = RND(RI[R1M])                      SQZ      2443
                     0400000166 +                 EQ     MSL1                                                    SQZ      2444
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    58
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                        *         ST / LD - CHANGE TO AN *XMT*                                   SQZ      2446
                                                                                                                 SQZ      2447
          1320  5160000021 +             SMR9     SA6    STLDS       STLDS = R2W   */ SET FLAG FOR *AUV*         SQZ      2448
                          0534001323 +            NE     B3,B4,SMR10 IF OC[R1] " OC.ILD                          SQZ      2449
          1321  5120000011 C                      SA2    JPXA                                                    SQZ      2450
                          74630                   SX6    A3                                                      SQZ      2451
                               37762              IX7    X6-X2                                                   SQZ      2452
          1322  0337001323 +                      MI     X7,SMR10    IF DM < JPXA  */ *ST* BEFORE LAST *JPX*     SQZ      2453
                                                                                                                 SQZ      2454
                          0100001341 +            RJ     EFS         ELIMINATE FIRST STORE                       SQZ      2455
                                                                                                                 SQZ      2456
          1323  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
          1324  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
                     5120000022 +                 SA2    SUVA                                                    FCC0509    50
          1325  0302001331 +                      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
          1326  0451001331 +                      EQ     B5,B1,SMR10A      IF I = 0  */ NO *UDT* INDEX           FCC0509    54
                          5130000000 X            SA3    =XO.UDT                                                 FCC0509    55
          1327  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
          1330  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
          1331  73210                    SMR10A   SX2    X1          RJ = RN[RND(RJ)]                            FCC0509    65
                     0400000714 +                 EQ     SRCH6             */ CHANGE *LD* TO AN *XMT*            FCC0509    66
  
  
  
          1332  0333001337 +             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
          1333  20205                             LX2    59-RN.XMTP                                              SQZ      2470
                     0322001263 +                 PL     X2,SMR2     IF ^XMT[RI]                                 SQZ      2471
                               20245              LX2    1+RN.XMTP-RN.TPP                                        SQZ      2472
          1334  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
          1335  0317001263 +                      NZ     X7,SMR2     IF RJ[R1X] " RI[RIM]                        SQZ      2477
                          54740                   SA7    A4          [DI] = 0   ( KILL SECOND STORE )            SQZ      2478
          1336  0400000166 +                      EQ     MSL1                                                    SQZ      2479
                                                                                                                 SQZ      2480
                                        *         ST / ST - ELIMINATE THE FIRST STORE                            SQZ      2481
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    59
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                                                                                                 SQZ      2482
          1337  0100001341 +             SMR12    RJ     EFS         ELEMINATE FIRST STORE                       SQZ      2483
          1340  0400001263 +                      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
          1341  0200401341 +             EFS      ROUTINE                                                        SQZ      2494
          1342  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
          1343  54630                             SA6    A3          [DM] = -0     */ KILL FIRST *ST*            SQZ      2499
                     0303001341 +                 ZR     X3,EFS      IF D = 0      */   ST,ILD,ILD SITUATION     SQZ      2500
                               20744              LX7    RN.USESP                                                SQZ      2501
          1344  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
          1345  0333001341 +                      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
          1346  5130000010 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
          1347  57251                    EFS1     SA2    B5-B1       DL = LINK - 1                               SQZ      2519
                     56350                        SA3    B5          LW = [LINK]                                 SQZ      2520
                          0302001352 +            ZR     X2,EFS2     IF [DL] = 0   */ DEAD INSTRUCTION           SQZ      2521
          1350  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
          1351  15270                             BX2    -X0*X7                                                  SQZ      2524
                     0302001341 +                 ZR     X2,EFS      IF RL = R     */ USED BY ANOTHER *ST*       FCC0957    16
          1352  20352                    EFS2     LX3    -I.STCP                                                 SQZ      2526
                     63530                        SB5    X3          LINK = STC[LW]                              SQZ      2527
                          0745001347 +            GT     B5,B4,EFS1  IF LINK > DEFA                              FCC0957    17
                                                                                                                 SQZ      2537
          1353  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
          1354  54720                             SA7    A2                                                      SQZ      2541
                     0400001341 +                 EQ     EFS                                                     SQZ      2542
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    60
        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
          1355                           ARFA     BFMW   RN,(C,SA,IAC,XMT)                                       FCC0792    19
                                                                                                                 SQZ      2553
          1356  53310                    ARF1     SA3    X1          R1P = TP[RFW]                               SQZ      2554
                     0100001153 +                 RJ     DCV         GET CONSTANT VALUE                          SQZ      2555
                                                                                                                 SQZ      2556
          1357  20622                    ARF0     LX6    IH.RFP-IH.CAP                                           SQZ      2557
                     63470                        SB4    X7                                                      SQZ      2558
                          73364                   SX3    X6+B4       CAV = CA[R2] + SVAL                         SQZ      2559
                               43752              MX7    -IH.CAL                                                 SQZ      2560
          1360  15337                             BX3    -X7*X3                                                  SQZ      2561
                     11776                        BX7    X7*X6                                                   SQZ      2562
                          12637                   BX6    X3+X7       CA[R2] = CAV                                SQZ      2563
                               20652              LX6    IH.CAP-IH.RFP                                           SQZ      2564
          1361  53167                             SA1    "RN"+X6     RFW = RND(RF[R2W])                          SQZ      2565
                     11606                        BX6    X0*X6       RF[R2W] = 0                                 SQZ      2566
                          7271000000              SX7    X1+         RF = RN[RFW]                                SQZ      2567
                                                                                                                 SQZ      2568
          1362  0200401362 +             ARF      ROUTINE                                                        SQZ      2569
          1363  20301                             LX3    59-RN.CP                                                SQZ      2570
                     20152                        LX1    -RN.TPP                                                 SQZ      2571
                          0333001356 +            MI     X3,ARF1     IF C[RFW]                                   SQZ      2572
          1364  20302                             LX3    RN.CP-RN.IACP                                           FCC0792    20
                     0333001373 +                 MI     X3,ARF3     IF IAC[RFW]                                 FCC0792    21
                               20302              LX3    RN.IACP-RN.XMTP                                         FCC0792    22
          1365  0333001371 +                      MI     X3,ARF2     IF XMT[RFW]                                 FCC0792    23
                                                                                                                 SQZ      2575
                                        *         RF IS RESULT OF *  SA  RI,RJ*, SUBSTITUTE *RJ*                 SQZ      2576
                                                                                                                 SQZ      2577
                          6140000052              SB4    OC.STT                                                  SQZ      2579
          1366  0534001371 +                      NE     "OC",B4,ARF2      IF OC[R1] " OC.STT                    SQZ      2580
                          10244                   BX2    X4                                                      SQZ      2581
                               20225              LX2    59-D.PRSP                                               SQZ      2582
          1367  0322001371 +                      PL     X2,ARF2     IF ^PRS[DI]   */ NO DEADLOCK POSSIBLE       FCC0448   143
                                                                                                                 FCC0448   144
                          20122                   LX1    RN.TPP                                                  FCC0448   145
          1370  0400001362 +                      EQ     ARF                                                     FCC0448   146
                                                                                                                 SQZ      2584
          1371  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
          1372  53177                             SA1    "RN"+X7     RFW = RND(RF)                               SQZ      2588
                     0400001362 +                 EQ     ARF                                                     SQZ      2589
                                                                                                                 SQZ      2590
                                        *         *RF* IS *IAC*, ADD THE CONSTANT PART OF THE *RF* TO THE CA     SQZ      2591
                                                                                                                 SQZ      2592
          1373  53310                    ARF3     SA3    X1          R1P = TP[R1W]                               SQZ      2593
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    61
        ARF - ADJUST RF,CA OF INDEXED MEM REFERENCE                   ARF                 SQUEEZE 
  
                     53112                        SA1    X1+B2       DIP = R1P + 2                               SQZ      2594
                          20334                   LX3    -R1.RJP                                                 SQZ      2595
                               15730              BX7    -X0*X3                                                  SQZ      2596
          1374  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
          1375  53377                             SA3    "RN"+X7     RNK = RND(RK[R1P])                          SQZ      2601
                     20201                        LX2    59-RN.CP                                                SQZ      2602
                          0322001400 +            PL     X2,ARF4     IF ^C[RNJ]                                  SQZ      2603
                                                                                                                 SQZ      2604
          1376  0321001403 +                      PL     X1,ARF7     IF ^CM[DIP]   */ IS                         SQZ      2605
                          73730                   SX7    X3                                                      SQZ      2606
                               20251              LX2    1+RN.CP-RN.TPP                                          SQZ      2607
          1377  12667                             BX6    X6+X7       RF[R2W] = RN[RNK]                           SQZ      2608
                     73320                        SX3    X2                                                      SQZ      2609
                          0400001401 +            EQ     ARF5                                                    SQZ      2610
                                                                                                                 SQZ      2611
          1400  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
          1401  53330                    ARF5     SA3    X3          R1P = TP[RNJ]                               SQZ      2617
                     21173                        AX1    59          SGN = SHIFT( CM[DI] , -59 )                 SQZ      2618
                          0100001153 +            RJ     DCV                                                     SQZ      2619
          1402  17771                             BX7    -X1-X7      SVAL = XOR( VAL[R1P] , ^SGN )               SQZ      2620
                     0400001357 +                 EQ     ARF0                                                    SQZ      2621
                                                                                                                 SQZ      2622
                                        *         CON - I CASE, LEAVE INSTRUCTION ALONE ( *LD* SQZ IN *PRE* )    SQZ      2623
                                                                                                                 SQZ      2624
          1403  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
          1404  73710                             SX7    X1          RF = RN[RFW]                                SQZ      2629
                     0400001362 +                 EQ     ARF                                                     SQZ      2630
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    62
        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
          1405  5130001437 +             EDD0     SA3    EDDA                                                    SQZ      2636
                          10633                   BX6    X3                                                      SQZ      2637
                               54650              SA6    A5          RESTORE BOS                                 SQZ      2638
          1406  0200401406 +             EDD      ROUTINE                                                        SQZ      2639
          1407  54300                             SA3    "TXT"                                                   SQZ      2640
                     43700                        MX7    0                                                       SQZ      2641
                          10633                   BX6    X3                                                      SQZ      2642
          1410  5160001437 +                      SA6    EDDA                                                    SQZ      2643
                          5140000005 C            SA4    EOQA                                                    SQZ      2644
          1411  54700                             SA7    "TXT"       (O.TXT) = 0                                 SQZ      2645
                     53540                        SA5    X4          TA = EOQA                                   SQZ      2646
                          6150000022              SB5    59-D.^DP                                                SQZ      2647
          1412  6160000030                        SB6    60-IH.RFP                                               SQZ      2648
                          43163                   MX1    -D.USESL                                                SQZ      2649
                               20144              LX1    RN.USESP                                                SQZ      2650
          1413  76210                             SX2    B1                                                      SQZ      2651
                     20244                        LX2    RN.USESP                                                SQZ      2652
                          0400001415 +            EQ     EDD2                                                    SQZ      2653
                                                                                                                 SQZ      2654
                                        *         TRANSFER USES COUNTS FROM *RND* TO INSTRUCTION DESCRIPTORS.    SQZ      2655
                                                                                                                 SQZ      2656
          1414  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
          1415  55452                    EDD2     SA4    A5-B2       DI = R1 - 2                                 SQZ      2663
                     55542                        SA5    A4-B2       R1 = DI - 2                                 SQZ      2664
                          0304001415 +            ZR     X4,EDD2     IF [DI] = 0   */ DEAD INSTRUCTION           SQZ      2665
          1416  22654                             LX6    B5,X4                                                   SQZ      2666
                     15750                        BX7    -X0*X5                                                  SQZ      2667
                          0305001405 +            ZR     X5,EDD0     IF [R1] = 0   */ LOOP TERMINATOR            SQZ      2668
          1417  0336001415 +                      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
          1420  0316001414 +                      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
          1421  0334001415 +                      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
          1422  0324001423 +                      PL     X4,EDD2A    IF ^PRS[DI]                                 SQZ      2681
                          5064000004              SA6    A4+4        [DI+4] = 0    */ KILL FOLLOWING REG STORE   SQZ      2682
          1423  20447                    EDD2A    LX4    1+D.PRSP+58-D.TYP [DI] = 0                              SQZ      2683
                     36744                        IX7    X4+X4                                                   SQZ      2684
                          0337001432 +            MI     X7,EDD4     IF TYPE[DI] = II                            SQZ      2685
          1424  0334001430 +                      MI     X4,EDD3     IF TYPE[DI] = III                           SQZ      2686
                                                                                                                 SQZ      2687
                                        *         TYPE I                                                         SQZ      2688
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    63
        EDD - ELIMINATE DEAD DEFINITIONS                              EDD                 SQUEEZE 
  
                                                                                                                 SQZ      2689
                          20534                   LX5    -R1.RJP                                                 SQZ      2690
                               15650              BX6    -X0*X5                                                  SQZ      2691
          1425  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
          1426  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
          1427  0400001415 +                      EQ     EDD2                                                    SQZ      2700
                                                                                                                 SQZ      2701
                                        *         TYPE III                                                       SQZ      2702
                                                                                                                 SQZ      2703
          1430  54351                    EDD3     SA3    A5+B1       R2 = R1 + 1                                 SQZ      2704
                     22663                        LX6    B6,X3                                                   SQZ      2705
                          53367                   SA3    "RN"+X6                                                 SQZ      2706
                               37732              IX7    X3-X2       USES[RF] = USES[RF] - 1                     SQZ      2707
          1431  54730                             SA7    A3                                                      SQZ      2708
                     0400001415 +                 EQ     EDD2                                                    SQZ      2709
                                                                                                                 SQZ      2710
                                        *         TYPE II , CHECK FOR AN RJ *RS*                                 SQZ      2711
                                                                                                                 SQZ      2712
          1432  20435                    EDD4     LX4    D.TYP+1-D.PIP                                           SQZ      2713
                     0324001415 +                 PL     X4,EDD2     IF ^PI[DI]                                  SQZ      2714
                               20535              LX5    59-R1.INP                                               SQZ      2715
          1433  0325001415 +                      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
          1434  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
          1435  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
          1436  0400001415 +                      EQ     EDD2                                                    SQZ      2728
                                                                                                                 SQZ      2729
          1437                     1     EDDA     BSS    1                                                       SQZ      2730
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    64
        EDI - ELIMINATE DEAD INSTRUCTIONS                             EDI                 SQUEEZE 
  
                                        *         EDI - ELIMINATE DEAD INSTRUCTIONS ( COMPRESS *TXT* )           SQZ      2732
                                                                                                                 SQZ      2733
          1440  77665                    EDI0     SX6    B6-B5                                                   SQZ      2734
                     5160000000 X                 SA6    L.TXT                                                   SQZ      2735
          1441  0200401441 +             EDI      ROUTINE                                                        SQZ      2736
          1442  5150000007 C                      SA5    RSS                                                     SQZ      2737
                          66422                   SB4    B2+B2                                                   SQZ      2738
                               43163              MX1    -D.USESL                                                SQZ      2739
                                                  LX1    D.USESP                                                 SQZ      2740
          1443  6130777774                        SB3    -3                                                      SQZ      2741
                          0305001472 +            ZR     X5,EDI4     IF RSS = 0                                  SQZ      2742
                                                                                                                 SQZ      2743
                                        *         MOVE THE SEPARATED REGISTER STORES NEXT TO THEIR DEFINITIONS.  SQZ      2744
                                                                                                                 SQZ      2745
          1444  53453                    EDI1     SA4    X5+B3       R1 = [RSS-3]                                SQZ      2746
                     54342                        SA3    A4+B2       DI = R1 + 2;  D = [DI]                      SQZ      2747
                          43700                   MX7    0                                                       SQZ      2748
                               54730              SA7    A3          [DI] = 0                                    SQZ      2749
          1445  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
          1446  53550                             SA5    X5          RSS = [RSS]                                 SQZ      2754
                     53227                        SA2    "RN"+X2     RIA = O.RND + RI[R1]  */ RND WORD           SQZ      2755
                          0303001451 +            ZR     X3,EDI1A    IF D = 0      */ DEF IS DEAD                SQZ      2756
          1447  20252                             LX2    -RN.TPP                                                 SQZ      2757
                     53320                        SA3    X2          R1P = TP[RIA]                               SQZ      2758
                          54441                   SA4    A4+B1       R2 = R1 + 1                                 SQZ      2759
                               14633              BX6    -X3         [R1P] = -[R1P]  */ SEP RS FLAG              SQZ      2760
          1450  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
          1451  0315001444 +             EDI1A    NZ     X5,EDI1     IF RSS " 0                                  SQZ      2765
                                                                                                                 SQZ      2766
                                        *         NOW MOVE THE SEQUENCE UP                                       SQZ      2767
                                                                                                                 SQZ      2768
                          43600                   MX6    0                                                       SQZ      2769
                               54600              SA6    "TXT"       [O.TXT] = 0                                 SQZ      2770
          1452  43163                             MX1    -D.USESL                                                SQZ      2771
                     20137                        LX1    R1.INP+1                                                SQZ      2772
                          5120000004 X            SA2    F.RDT+OC.RS                                             SQZ      2773
          1453  5130000005 C                      SA3    EOQA                                                    SQZ      2774
                          6253777775              SB5    X3-2        TA = EOQA - 2                               SQZ      2775
          1454  53530                             SA5    X3                                                      SQZ      2776
                     63634                        SB6    X3+B4       LWA + 1                                     SQZ      2777
                          0400001463 +            EQ     EDI3                                                    SQZ      2778
                                                                                                                 SQZ      2779
          1455  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
          1456  20335                             LX3    D.USESP-R1.INP-1                                        SQZ      2784
                     12723                        BX7    X2+X3       D = RDT(OC.RS) ! USES[R1RS]                 SQZ      2785
                          0303001460 +            ZR     X3,EDI2A    IF USES[R1RS] = 0                           SQZ      2786
          1457  76310                             SX3    B1                                                      SQZ      2787
                     20351                        LX3    D.^DP                                                   SQZ      2788
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    65
        EDI - ELIMINATE DEAD INSTRUCTIONS                             EDI                 SQUEEZE 
  
                          15773                   BX7    -X3*X7      ^D[D] = 0                                   SQZ      2789
          1460  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
          1461  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
          1462  67554                             SB5    B5-B4       TA = TA - 4                                 SQZ      2798
                     0400001464 +                 EQ     EDI3A                                                   SQZ      2799
                                                                                                                 SQZ      2800
          1463  55452                    EDI3     SA4    A5-B2       DI = R1 - 2                                 SQZ      2801
                     55542                        SA5    A4-B2       R1 = DI - 2                                 SQZ      2802
                          0304001463 +            ZR     X4,EDI3     IF [DI] = 0                                 SQZ      2803
          1464  0335001455 +             EDI3A    MI     X5,EDI2     IF [R1] < 0                                 SQZ      2804
                          54351                   SA3    A5+B1       R2 = R1 + 1                                 SQZ      2805
                               43700              MX7    0                                                       SQZ      2806
          1465  56751                             SA7    B5+B1       [R1+3] = 0                                  SQZ      2807
                     10644                        BX6    X4                                                      SQZ      2808
                          56650                   SA6    B5                                                      SQZ      2809
                               22703              LX7    X3                                                      SQZ      2810
          1466  57751                             SA7    B5-B1                                                   SQZ      2811
                     10655                        BX6    X5                                                      SQZ      2812
                          67554                   SB5    B5-B4                                                   SQZ      2813
                               55662              SA6    A6-B2                                                   SQZ      2814
          1467  0315001463 +                      NZ     X5,EDI3     IF [R1] " 0                                 SQZ      2815
                                                                                                                 SQZ      2816
                          5140001437 +            SA4    EDDA                                                    SQZ      2817
          1470  64560                             SB5    A6          FWA                                         SQZ      2818
                     74660                        SX6    A6                                                      SQZ      2819
                          5160000000 X            SA6    O.TXT                                                   SQZ      2820
          1471  10744                             BX7    X4                                                      SQZ      2821
                     56750                        SA7    B5                                                      SQZ      2822
                          0400001440 +            EQ     EDI0                                                    SQZ      2823
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    66
        EDI - ELIMINATE DEAD INSTRUCTIONS                             EDI                 SQUEEZE 
  
                                        *         DEAD INSTRUCTION ELIMINATION WHEN NO SEPARATED REG STORES.     SQZ      2825
                                                                                                                 SQZ      2826
          1472  54402                    EDI4     SA4    "TXT"+B2    DI = TXT + 2                                SQZ      2827
                     6050000006                   SB5    "TXT"+6     TA = O.TXT + 6  */ STORE ADDRESS            SQZ      2828
                                                                                                                 SQZ      2829
          1473  54444                    EDI5     SA4    A4+B4       DI = DI + 4                                 SQZ      2830
                     55542                        SA5    A4-B2       R1 = DI - 2                                 SQZ      2831
                          0304001473 +            ZR     X4,EDI5     IF [DI] = 0                                 SQZ      2832
          1474  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
          1475  26235                             UX2    "OC",X5                                                 SQZ      2837
                     56650                        SA6    B5                                                      SQZ      2838
                          10733                   BX7    X3                                                      SQZ      2839
                               57751              SA7    B5-B1                                                   SQZ      2840
          1476  22605                             LX6    X5                                                      SQZ      2841
                     57652                        SA6    B5-B2                                                   SQZ      2842
                          66554                   SB5    B5+B4       TA = TA + 4                                 SQZ      2843
          1477  0530001473 +                      NZ     "OC",EDI5   IF OC[R1] " OC.EOQ                          SQZ      2844
                          64664                   SB6    A6+B4                                                   SQZ      2845
                               64500              SB5    "TXT"                                                   SQZ      2846
          1500  0400001440 +                      EQ     EDI0                                                    SQZ      2847
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    67
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
                                                  DESCRIBE L.                                                    FCC0238AX  81
                                         OC       DEFINE 12          P(OC)   IM OR 0                             FCC0238AX  82
                                                  DEFINE 30                                                      FCC0238AX  83
                                         RN       DEFINE 18          GENERAL R-NUMBER                            FCC0238AX  84
                                        **        IXI - INSERT EXTRA INSTRUCTIONS OF  *IM* OPCODES THAT HAVE A O FCC0238AX  85
                                        *         THAT MAY BE INDEFINITE ( NEEDS TO BE UNPACKED )                FCC0238AX  86
                                                                                                                 FCC0238AX  87
          1501  0200401501 +             IXI      ROUTINE                                                        FCC0238AX  88
          1502  5150000006 C                      SA5    IXF                                                     FCC0238AX  89
                          0305001501 +            ZR     X5,IXI      IF IXF = 0                                  FCC0238AX  90
          1503  5120000000 X                      SA2    O.TXT                                                   FCC0238AX  91
                          6150000101              SB5    OC.IM                                                   FCC0238AX  92
          1504  6140000004                        SB4    4                                                       FCC0238AX  93
                          43100                   MX1    0           NC = 0                                      FCC0238AX  94
                               76700              SX7    B0          N = 0                                       FCC0238AX  95
          1505  6160000040                        SB6    59-D.USIP                                               FCC0238AX  96
                          53520                   SA5    X2          R1 = O.TXT                                  FCC0238AX  97
          1506  5272000003                        SA7    X2+3                                                    FCC0238AX  98
                                                  TRACE  IXI,RLIST                                               FCC0238AX  99
                                                                                                                 FCC0238AX 100
          1507  54554                    IXI1     SA5    A5+B4       R1 = R1 + 4                                 FCC0238AX 101
                     73774                        SX7    X7+B4       N = N + 4                                   FCC0238AX 102
                          5075000003              SA7    A5+3                                                    FCC0238AX 103
          1510  26635                             UX6    "OC",X5                                                 FCC0238AX 104
                     0430001517 +                 ZR     "OC",IXI3   IF OC[R1] = 0                               FCC0238AX 105
          1511  0535001507 +                      NE     "OC",B5,IXI1      IF OC[R1] " OC.IM                     FCC0238AX 106
                          55471                   SA4    A7-B1       DI = LI - 1                                 FCC0238AX 107
                               22364              LX3    B6,X4                                                   FCC0238AX 108
          1512  0323001507 +                      PL     X3,IXI1     IF ^USI[DI]                                 FCC0238AX 109
                                                                                                                 FCC0238AX 110
                                        *         UNSAFE *IM*, MARK LINK WORD                                    FCC0238AX 111
                                                                                                                 FCC0238AX 112
                          73114                   SX1    X1+B4       NC = NC + 4                                 FCC0238AX 113
                               73774              SX7    X7+B4       N = N + 4                                   FCC0238AX 114
          1513  27637                             PX6    "OC",X7                                                 FCC0238AX 115
                     54670                        SA6    A7          [LI] = PACK(OC,N)                           FCC0238AX 116
                          0400001507 +            EQ     IXI1                                                    FCC0238AX 117
                                                                                                                 FCC0238AX 118
                                        *         NO INSTRUCTIONS TO BE MODIFIED, CLEAR LINK WORDS               FCC0238AX 119
                                                                                                                 FCC0238AX 120
          1514  43700                    IXI20    MX7    0                                                       FCC0238AX 121
                     63220                        SB2    X2                                                      FCC0238AX 122
                          64350                   SB3    A5                                                      FCC0238AX 123
          1515  5172000003               IXI21    SA7    B2+3                                                    FCC0238AX 124
                          6122000004              SB2    B2+4                                                    FCC0238AX 125
          1516  0632001515 +                      LE     B2,B3,IXI21                                             FCC0238AX 126
                          0400001501 +            EQ     IXI                                                     FCC0238AX 127
                                                                                                                 FCC0238AX 128
          1517  0301001514 +             IXI3     ZR     X1,IXI20    IF NC = 0     */ NO EXTRA INSTRUCTIONS NEED FCC0238AX 129
                          56010                   ALLOC  TXT,X1      ALLOC( TXT , NC )                           FCC0238AX 130
          1521  7100600001                        SX0    RN.MASK                                                 FCC0238AX 131
                          6272000003              SB7    X2+3        TB = TXT + 3                                FCC0238AX 132
          1522  6166777773                        SB6    B6-4        FI = OLD(L.TXT)-4  */ FETCH INDEX           FCC0238AX 133
                          6253777773              SB5    X3-4        SI = L.TXT - 4                              FCC0238AX 134
          1523  43102                             MX1    D.TYL                                                   FCC0238AX 135
                     66575                        SB5    B7+B5                                                   FCC0238AX 136
                          6140000101              SB4    OC.IM                                                   FCC0238AX 137
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    68
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
                                                                                                                 FCC0238AX 138
                                        *         MOVE THE SEQUENCE UP IN *TXT* AND INSERT EXTRA INSTRUCTIONS    FCC0238AX 139
                                                                                                                 FCC0238AX 140
          1524  56576                    IXI4     SA5    B7+B6       LI = TB + FI                                FCC0238AX 141
                     26435                        UX4    B3,X5                                                   FCC0238AX 142
                          0434001544 +            EQ     B3,B4,IXI9                                              FCC0238AX 143
                                                                                                                 FCC0238AX 144
          1525  55451                    IXI5     SA4    A5-B1       DI = LI - 1                                 FCC0238AX 145
                     55341                        SA3    A4-B1                                                   FCC0238AX 146
                          10744                   BX7    X4                                                      FCC0238AX 147
                               20330              LX3    -IH.RFP                                                 FCC0238AX 148
          1526  57751                             SA7    B5-B1       [SI-1] = [DI]                               FCC0238AX 149
                     15630                        BX6    -X0*X3                                                  FCC0238AX 150
                          53267                   SA2    B7+X6       ADJ RF AND MOVE R2 WORD                     FCC0238AX 151
                               11303              BX3    X0*X3                                                   FCC0238AX 152
          1527  73220                             SX2    X2                                                      FCC0238AX 153
                     36723                        IX7    X2+X3                                                   FCC0238AX 154
                          20744                   LX7    IH.RFP                                                  FCC0238AX 155
                               55771              SA7    A7-B1                                                   FCC0238AX 156
                                                                                                                 FCC0238AX 157
          1530  55331                             SA3    A3-B1       ADJ R1 WORD                                 FCC0238AX 158
                     16241                        BX2    -X1+X4                                                  FCC0238AX 159
                          0302001541 +            ZR     X2,IXI8     IF TY[DI] = IV                              FCC0238AX 160
          1531  11514                             BX5    X1*X4                                                   FCC0238AX 161
                     15630                        BX6    -X0*X3                                                  FCC0238AX 162
                          53267                   SA2    B7+X6       LII = [TB+RI[R1]]                           FCC0238AX 163
                               11303              BX3    X0*X3                                                   FCC0238AX 164
          1532  73220                             SX2    X2                                                      FCC0238AX 165
                     12332                        BX3    X3+X2                                                   FCC0238AX 166
                          0315001541 +            NZ     X5,IXI8     IF TY[DI] " I                               FCC0238AX 167
                                                                                                                 FCC0238AX 168
          1533  20334                             LX3    -R1.RJP                                                 FCC0238AX 169
                     15630                        BX6    -X0*X3                                                  FCC0238AX 170
                          53267                   SA2    B7+X6                                                   FCC0238AX 171
                               11303              BX3    X0*X3                                                   FCC0238AX 172
          1534  73220                             SX2    X2                                                      FCC0238AX 173
                     12323                        BX3    X2+X3                                                   FCC0238AX 174
                          20320                   LX3    R1.RJP-R1.RKP                                           FCC0238AX 175
                               15630              BX6    -X0*X3                                                  FCC0238AX 176
          1535  53267                             SA2    B7+X6                                                   FCC0238AX 177
                     11303                        BX3    X0*X3                                                   FCC0238AX 178
                          73220                   SX2    X2                                                      FCC0238AX 179
                               12323              BX3    X2+X3                                                   FCC0238AX 180
          1536  20320                             LX3    R1.RKP                                                  FCC0238AX 181
                     20423                        LX4    59-D.RJRSP                                              FCC0238AX 182
                          0324001541 +            PL     X4,IXI8     IF ^RJRS[DI]                                FCC0238AX 183
                                                                                                                 FCC0238AX 184
          1537  15730                             BX7    -X0*X3                                                  FCC0238AX 185
                     7277000004                   SX7    X7+4                                                    FCC0238AX 186
                               20740              LX7    R1.RJP      RJ[R1] = RI[R1] + 4                         FCC0238AX 187
          1540  12373                             BX3    X7+X3                                                   FCC0238AX 188
                                                                                                                 FCC0238AX 189
          1541  10733                    IXI8     BX7    X3                                                      FCC0238AX 190
                     55771                        SA7    A7-B1                                                   FCC0238AX 191
                          43600                   MX6    0                                                       FCC0238AX 192
                               56650              SA6    B5          [SI] = 0                                    FCC0238AX 193
          1542  6155777773                        SB5    B5-4        SI = SI - 4                                 FCC0238AX 194
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    69
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
                          6166777773              SB6    B6-4        FI = FI - 4                                 FCC0238AX 195
          1543  0706001524 +                      GT     B6,IXI4     IF FI > 0                                   FCC0238AX 196
                                                                                                                 FCC0238AX 197
                                                  TRACE  IXIX,RLIST                                              FCC0238AX 198
                          0400001501 +            EQ     IXI                                                     FCC0238AX 199
                                                                                                                 FCC0238AX 200
          1544  5133000000 X             IXI9     SA3    F.RDT+B3                                                FCC0238AX 201
                          43700                   MX7    0                                                       FCC0238AX 202
                               56750              SA7    B5          [SI] = 0                                    FCC0238AX 203
                                                                                                                 FCC0238AX 204
          1545  55351                             SA3    A5-B1       DESCR OF IM                                 FCC0238AX 205
                     76210                        SX2    B1                                                      FCC0238AX 206
                          20233                   LX2    D.USIP                                                  FCC0238AX 207
                               15632              BX6    -X2*X3      CLEAR USI BIT IN *IM*                       FCC0238AX 208
          1546  57651                             SA6    B5-B1                                                   FCC0238AX 209
                     55761                        SA7    A6-B1       R2 = 0                                      FCC0238AX 210
                          73750                   SX7    X5          I = RN[LI]    */ NEW RI                     FCC0238AX 211
          1547  5055777774                        SA5    A5-3        R1 = LI - 3                                 FCC0238AX 212
                          20534                   LX5    -R1.RJP                                                 FCC0238AX 213
                               15250              BX2    -X0*X5      J = RJ[R1]                                  FCC0238AX 214
          1550  20520                             LX5    R1.RJP-R1.RKP                                           FCC0238AX 215
                     15350                        BX3    -X0*X5                                                  FCC0238AX 216
                          53427                   SA4    B7+X2                                                   FCC0238AX 217
                               53537              SA5    B7+X3                                                   FCC0238AX 218
          1551  73440                             SX4    X4          NJ = RN[TB(J)]                              FCC0238AX 219
                     73550                        SX5    X5          NK = RN[TB(K)]                              FCC0238AX 220
                          73370                   SX3    X7                (X3) = I                              FCC0238AX 221
                               55241              SA2    A4-B1       DJ = LJ - 1                                 FCC0238AX 222
          1552  0100001565 +                      CALL   CMO                                                     FCC0238AX 223
          1553  0306001555 +                      ZR     X6,IXI12    IF J IS SAFE                                FCC0238AX 224
                          73240                   SX2    X4          UK = NJ                                     FCC0238AX 225
          1554  7243777773                        SX4    X3-4        NJ = I - 4                                  FCC0238AX 226
                          0400001556 +            EQ     IXI13                                                   FCC0238AX 227
                                                                                                                 FCC0238AX 228
          1555  73250                    IXI12    SX2    X5          UK = NK                                     FCC0238AX 229
                     7253777773                   SX5    X3-4        NK = I - 4                                  FCC0238AX 230
                                                                                                                 FCC0238AX 231
          1556  27633                    IXI13    PX6    B3,X3                                                   FCC0238AX 232
                     20440                        LX4    R1.RJP                                                  FCC0238AX 233
                          20520                   LX5    R1.RKP                                                  FCC0238AX 234
                               12445              BX4    X4+X5                                                   FCC0238AX 235
          1557  12664                             BX6    X6+X4                                                   FCC0238AX 236
                     55671                        SA6    A7-B1       NEW R1 = TYI(OC.IM,I,NJ,NK)                 FCC0238AX 237
                          6130000026              SB3    OC.UP                                                   FCC0238AX 238
          1560  7253777773                        SX5    X3-4                                                    FCC0238AX 239
                          5143000000 X            SA4    F.RDT+B3                                                FCC0238AX 240
          1561  43600                             MX6    0                                                       FCC0238AX 241
                     55661                        SA6    A6-B1       LINK WD = 0                                 FCC0238AX 242
                          76710                   SX7    B1                                                      FCC0238AX 243
                               12774              BX7    X7+X4                                                   FCC0238AX 244
          1562  55761                             SA7    A6-B1             DESCR + USES                          FCC0238AX 245
                     55671                        SA6    A7-B1       R2 =  0                                     FCC0238AX 246
                          27735                   PX7    B3,X5                                                   FCC0238AX 247
                               20220              LX2    R1.RKP                                                  FCC0238AX 248
          1563  12672                             BX6    X7+X2                                                   FCC0238AX 249
                     55661                        SA6    A6-B1       R1 UP = TYI(OC.UP,I-4,0,UK)                 FCC0238AX 250
                          6155777767              SB5    B5-8        SI = SI - 8                                 FCC0238AX 251
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    70
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
          1564  6166777773                        SB6    B6-4        FI = FI - 4                                 FCC0238AX 252
                          0400001524 +            EQ     IXI4                                                    FCC0238AX 253
  
  
  
                                        **        CMO - CHECK MULTIPLY ( IM ) OPERAND TO SEE IF IT IS "SAFE"     FCC0238AX 255
                                        *         SO THAT THE *IM* CAN BE MOVED FROM THE SIDE BRANCH OF A LOOP.  FCC0238AX 256
                                        *                                                                        FCC0238AX 257
                                        *         ENTRY  (A2,X2) = :, DESCRIPTOR WORD                            FCC0238AX 258
                                        *         ENTRY  (A2,X2) = D, DESCRIPTOR WORD                            FCC0238AX 259
                                        *                                                                        FCC0238AX 260
                                        *         EXIT   (X6) = 0 IF OPERAND IS SAFE                             FCC0238AX 261
                                        *                                                                        FCC0238AX 262
                                        *         USES   A2, B2, X2, X6, X7                                      FCC0238AX 263
                                                                                                                 FCC0238AX 264
          1565  0200401565 +             CMO      ROUTINE                                                        FCC0238AX 265
          1566  20241                             LX2    59-D.ZPP                                                FCC0238AX 266
                     43601                        MX6    1           CMO = 1S59    */ UNSAFE                     FCC0238AX 267
                          0322001565 +            PL     X2,CMO      IF ^ZP[D]     */ UNKNOWN OPERAND            FCC0238AX 268
          1567  5022777775                        SA2    A2-2        R1 = D - 2                                  FCC0238AX 269
                          26722                   UX7    B2,X2                                                   FCC0238AX 270
                               43600              MX6    0           CMO = 0                                     FCC0238AX 271
          1570  7172777727                        SX7    B2-OC.LD                                                FCC0238AX 272
                          0317001565 +            NZ     X7,CMO      IF OC[R1] " OC.LD */ FMA OR S               FCC0238AX 273
          1571  54221                             SA2    A2+B1       R2 = R1 + 1                                 FCC0238AX 274
                     73720                        SX7    X2                                                      FCC0238AX 275
                          5120000000 X            SA2    =XVD.                                                   FCC0238AX 276
          1572  13627                             BX6    X2-X7       CMO = IH[R2] - VD.                          FCC0238AX 277
                     0400001565 +                 EQ     CMO                                                     FCC0238AX 278
  
  
                                        **        OPR - DEFINE MACRO TO FORM JUMP TABLE FOR OPCODES              SQZ      2849
                                                                                                                 SQZ      2850
                                                  MACRO  OPR,NAM                                                 SQZ      2851
                                                  IF     DEF,.NAM,2                                              SQZ      2852
                                                  EQ     .NAM                                                    SQZ      2853
                                                  ELSE   1                                                       SQZ      2854
                                                  EQ     SBB+4S15                                                SQZ      2855
                                                  ENDM                                                           SQZ      2856
                                                                                                                 SQZ      2857
          1573                           SBB.JT   BSS    0                                                       SQZ      2858
      L      0                                    LOC    0                                                       SQZ      2859
      L      0                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
          1677                                    LOC    *O                                                      SQZ      2861
                                                  LIST   -G                                                      SQZ      2862
                                                                                                                 SQZ      2863
                                                  QUAL                                                           SQZ      2864
                                         CMO      EQENT  /SQUEEZE/CMO                                            FCC0238AX 279
                                  74 +   SBB      EQU    /SQUEEZE/SBB                                            SQZ      2865
          1677                                    END                                                            SQZ      2866
  
                             66400B CM  STORAGE USED             4818 STATEMENTS      930 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            3.777 SECONDS        1434 REFERENCES
  
  
  
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        ATS=            0   EXTERNAL*       4/34      8/20     67/50
        BIR             0   EXTERNAL*       1/39 X    8/07
        BRN             0   EXTERNAL*       1/39 X    8/06
        B1=1            0 
        CMO          1565   PROGRAM*       70/48 E   70/48 D
        D.BMP          52   FTNTEXT        50/17
        D.CMP          31   FTNTEXT        12/26     12/36     21/23     21/28     28/09     43/12     61/04
        D.INCP         22   FTNTEXT        27/06
        D.KSL           1   FTNTEXT        40/26     40/27
        D.KSP          37   FTNTEXT        13/05     40/26     40/27
        D.LDL           1   FTNTEXT        40/26
        D.LDP          43   FTNTEXT        39/17     39/21     40/26
        D.L2P          44   FTNTEXT        10/42     39/21     39/57     59/26
        D.PIL           1   FTNTEXT        40/27
        D.PIP          36   FTNTEXT        40/05     40/27     63/25
        D.PRSP         46   FTNTEXT        11/05     33/19     44/28     46/39     60/42     62/52
                                           15/07     34/01     46/32     57/25     62/48
        D.PSP          47   FTNTEXT        10/13     11/05     52/03     59/50
        D.RFP          23   FTNTEXT        41/50     53/28     56/11
        D.RJRSP        50   FTNTEXT        62/46     62/48     63/33     68/45
        D.STP          42   FTNTEXT        10/37     54/12     55/34     57/06     57/33     58/13
                                           10/42     55/09     56/18     57/25     57/38     59/26
        D.STRSL         2   FTNTEXT        36/11     38/32     45/27     47/21     57/32
        D.STRSP        46   FTNTEXT        36/13     38/36     39/17     39/57     40/26     45/28     47/23
                                           38/33     39/05     39/37     40/05     40/27     45/32     57/33
        D.SZL           2   FTNTEXT        47/07     47/08
        D.SZP          27   FTNTEXT        43/02     47/07
        D.TYL           2   FTNTEXT        12/12     47/04     67/55
        D.TYP          72   FTNTEXT        62/52     63/25
        D.USESL        11   FTNTEXT        62/18     64/08     64/40
        D.USESP         0   FTNTEXT        62/26     64/20     64/53
        D.USIP         33   FTNTEXT        17/03     19/57     21/09     23/43     35/56     67/16
                                           19/03     21/07     21/13     26/07     36/06     69/13
        D.ZPP          32   FTNTEXT        41/38     47/05     56/19     70/17
        D.^DP          51   FTNTEXT        10/10     10/13     10/34     10/37     62/16     64/57
        F.RDT           0   EXTERNAL*       1/39 X   10/07     33/21     33/46     47/20     64/42     69/07     69/46
        IH.CAL         22   FTNTEXT        28/12     60/19
        IH.CAP         22   FTNTEXT         5/32      6/45     13/18     14/03     41/31     51/36     60/23
                                            5/56      7/06     13/44     28/16     51/29     60/16
        IH.IHL         22   FTNTEXT        55/10
        IH.IHP          0   FTNTEXT        55/30
        IH.LDP         73   FTNTEXT        54/09
        IH.RFP         44   FTNTEXT         8/51     28/17     41/19     53/38     54/05     60/16     62/17
                                            9/01     33/39     42/15     53/45     55/30     60/23     68/11
                                           14/51     41/08     43/25     53/53     55/43     61/33     68/18
        LINENR          0   EXTERNAL*      50/06 S
        L.HB            0   EXTERNAL*       4/10
        L.MOD           0   EXTERNAL*       4/09
        L.RND           0   EXTERNAL*      11/55 S
        L.TXT           0   EXTERNAL*       4/27     64/04 S
        N.GT            0   EXTERNAL*       5/07      7/36 S
        OC.AND         11   FTNTEXT        22/08
        OC.CLR        102   FTNTEXT        44/04
        OC.DFM         42   FTNTEXT        17/18
        OC.EQV         17   FTNTEXT        18/40
        OC.FMA         43   FTNTEXT        27/19     32/14     44/48     49/03
        OC.IA          36   FTNTEXT        17/50     23/47     27/57
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    72
        SYMBOLIC REFERENCE TABLE. 
  
        OC.IAZ         77   FTNTEXT        27/57
        OC.ILD         74   FTNTEXT        57/05
        OC.ILS         22   FTNTEXT        31/34
        OC.IM         101   FTNTEXT        36/02     67/12     67/57
        OC.IMP         16   FTNTEXT        18/25
        OC.IS          37   FTNTEXT        19/07     25/44
        OC.KLS         20   FTNTEXT        13/19
        OC.LD          50   FTNTEXT        57/18     70/23
        OC.OR          12   FTNTEXT        22/20
        OC.RS           4   FTNTEXT        10/07     10/11     33/46     64/42
        OC.S           55   FTNTEXT        15/47     32/26     42/53     48/33     49/15
        OC.SA          60   FTNTEXT        27/42     42/25
        OC.ST          51   FTNTEXT        27/32
        OC.STR         15   FTNTEXT        16/31     16/38
        OC.STT         52   FTNTEXT        28/20     43/28     53/17     60/39
        OC.TST         76   FTNTEXT         5/09
        OC.UP          26   FTNTEXT        69/44
        OC.XMT         10   FTNTEXT        15/01     21/40     31/53     36/39     36/52     37/10     38/16
        OC.XMTC        14   FTNTEXT        17/43     21/37     36/49     37/07
        OC.XOR         13   FTNTEXT        22/36
        O.RND           0   EXTERNAL* 
        O.SYM          12                   1/34 D
        O.TET           0   EXTERNAL*       5/44
        O.TXT           0   EXTERNAL*       4/35      8/25     65/32 S   67/11
        O.UDT           0   EXTERNAL*      58/25
        RNI             0   EXTERNAL*      11/53
        R1.INP         36   FTNTEXT        10/20     27/18     44/25     49/17     58/22     64/41
                                           11/10     32/28     44/50     50/04     63/27     64/53
                                           15/46     42/55     48/34     50/33     64/20
        R1.RIL         20   FTNTEXT         4/36      8/35      8/38      9/22      9/25     21/02
        R1.RJP         40   FTNTEXT         9/16     18/26     23/54     25/25     30/33     38/21     58/50     68/50
                                           12/24     18/41     24/03     25/47     30/45     42/15     60/50     69/19
                                           12/39     19/15     24/09     26/03     32/41     42/28     61/02     69/21
                                           14/39     20/51     24/13     28/14     33/29     43/15     61/06     69/39
                                           15/23     20/56     24/21     29/04     33/51     43/23     63/02
                                           15/26     21/17     24/23     29/08     33/54     50/55     63/07
                                           16/32     21/20     24/29     29/45     35/09     51/40     63/35
                                           16/39     21/43     24/34     29/51     36/38     51/44     63/38
                                           17/40     22/46     25/14     30/22     37/18     56/38     68/32
                                           17/48     23/52     25/16     30/30     38/18     56/41     68/38
        R1.RKP         20   FTNTEXT        12/21     19/13     22/44     24/29     30/45     56/41     68/44
                                           12/24     20/33     23/54     24/37     32/38     56/50     69/21
                                           12/41     20/47     24/03     25/26     32/41     61/06     69/40
                                           16/30     20/51     24/13     25/57     35/06     63/07     69/54
                                           17/48     21/20     24/23     26/02     35/09     68/38
        R1.SOP         20   FTNTEXT        39/26     40/10     46/41     50/53
        SBB            74   PROGRAM*        2/01 E   70/49 D
        SIE             1   PROGRAM*        4/53 E    4/54 D
        SO.LKP          6   FTNTEXT        50/53
        SO.RNL          3   FTNTEXT        39/18     40/09
        SO.RTL          3   FTNTEXT        46/40
        SO.RTP          3   FTNTEXT        46/41
        SQZB            5   PROGRAM*        4/53 E    4/55 D
        STLDS          21   PROGRAM*        4/25 S    4/50 E    4/50 L   58/03 S
        SUVA           22   PROGRAM*        4/51 E    4/51 L   58/20
        T.CALP         70   FTNTEXT         6/07      7/14
        T.EQVP         72   FTNTEXT         6/18      6/22
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    73
        SYMBOLIC REFERENCE TABLE. 
  
        VD.             0   EXTERNAL*      70/27
        Z.RND           0   EXTERNAL*       4/34      8/20
        Z.TXT           1                   1/34 D
        .DAL            1   FTNTEXT        10/41 F   39/20 F   39/52 F   53/10 F   57/31 F
        .PLI            0   FTNTEXT        52/09 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  SQUEEZE 
  
  
        AND2          267   PROGRAM*       16/22     16/27 L
        AND3          272   PROGRAM*       16/08     16/18     16/36 L
        ARF          1362   PROGRAM*       41/14     54/02     60/28 L   60/46     60/53     61/37
        ARFA         1355   PROGRAM*       41/07     53/52     60/11 L
        ARF0         1357   PROGRAM*       60/16 L   61/28
        ARF1         1356   PROGRAM*       60/13 L   60/31
        ARF2         1371   PROGRAM*       60/35     60/40     60/43     60/48 L
        ARF3         1373   PROGRAM*       60/33     60/57 L
        ARF4         1400   PROGRAM*       61/10     61/19 L
        ARF5         1401   PROGRAM*       61/17     61/24 L
        ARF7         1403   PROGRAM*       61/12     61/32 L
        AUC.RJ        230   PROGRAM*       13/06     15/09     36/43     43/38     51/49
                                           14/39 L   30/46     42/16     50/56     51/54
        BIAS            0   PROGRAM*        3/27 L    4/29 S   11/51
        CAO           374   PROGRAM*       16/40     18/27     18/42     20/46 L
        CAO1          376   PROGRAM*       20/49     20/53 L
        CAO2          401   PROGRAM*       16/34     21/06 L   25/28
        CAO3          410   PROGRAM*       21/24     21/28 L
        CCV          1161   PROGRAM*       13/34     15/37     23/24     47/56     48/53 L
                                           15/33     18/47     47/52     48/02
        CCV1         1165   PROGRAM*       48/53     49/02     49/09 L
        CCV2         1170   PROGRAM*       49/05     49/17 L
        CIA           521   PROGRAM*       19/30     24/53     27/05 L
        CIA1          524   PROGRAM*       27/11     27/15 L
        CIA2          527   PROGRAM*       27/21     27/26 L
        CIA2A         535   PROGRAM*       27/07     27/45 L
        CIA3          536   PROGRAM*       27/30     27/33     27/39     27/47 L
        CIA4          540   PROGRAM*       27/22     27/56 L
        CIA5          543   PROGRAM*       27/43     28/06 L
        CMO          1565   PROGRAM*       69/29     70/16 L   70/19     70/24     70/29     70/48
        CTI           731   PROGRAM*       15/05     36/42     38/08 L   39/46
        CTIA          775   PROGRAM*       39/50     40/26 L
        CTIB          776   PROGRAM*       39/13     40/27 L
        CTIC         1126   PROGRAM*       39/36     47/04 L
        CTI0          732   PROGRAM*       38/12 L   38/26
        CTI1          737   PROGRAM*       38/13     38/30 L
        CTI2          742   PROGRAM*       38/40     38/42 L
        CTI3          745   PROGRAM*       38/42     38/52 L   39/19     39/22     39/31     40/06     40/15
        CTI4          751   PROGRAM*       38/44     39/13 L
        CTI5          757   PROGRAM*       38/45     38/48     39/16     39/36 L   40/01     40/13
        CTI6          763   PROGRAM*       38/47     39/50 L
        CTI7          766   PROGRAM*       39/55     40/02 L
        CTI8          772   PROGRAM*       39/39     40/19 L
        C.XMT         725   PROGRAM*       16/06     18/22     18/55     22/07     37/10 L
                                           18/19     18/37     20/03     23/34
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    74
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        C.XMTC        724   PROGRAM*       22/19     22/33     23/36     37/07 L
        C.XMT1        726   PROGRAM*       37/01     37/08     37/11 L
        C.XMT2        727   PROGRAM*       31/54     37/13     37/16 L
        DCV          1153   PROGRAM*       13/14     17/30     42/46     48/19     48/36     48/42     61/26
                                           15/31     28/07     48/15     48/31 L   48/40     60/14
        DFM           277   PROGRAM*       17/04     17/08 L
        DFM1          303   PROGRAM*       17/16     17/21 L
        DFM2          305   PROGRAM*       17/23     17/28 L
        DFM3          315   PROGRAM*       17/41     17/47 L
        ECO          1134   PROGRAM*       16/11     17/19     20/17     23/14     47/39 L
        ECOA         1145   PROGRAM*       47/39     48/01 L
        ECO1         1142   PROGRAM*       47/43 S   47/46     47/51 L
        EDD          1406   PROGRAM*       11/46     62/08 L
        EDDA         1437   PROGRAM*       62/05     62/12 S   63/42 L   65/29
        EDD0         1405   PROGRAM*       62/05 L   62/37
        EDD1         1414   PROGRAM*       62/26 L   62/41
        EDD2         1415   PROGRAM*       62/22     62/34     62/47     63/21     63/28
                                           62/32 L   62/38     63/12     63/26     63/40
        EDD2A        1423   PROGRAM*       62/50     62/52 L
        EDD3         1430   PROGRAM*       62/55     63/16 L
        EDD4         1432   PROGRAM*       62/54     63/25 L
        EDI          1441   PROGRAM*       11/48     64/05 L
        EDI0         1440   PROGRAM*       64/03 L   65/35     66/23
        EDI1         1444   PROGRAM*       64/15 L   64/34
        EDI1A        1451   PROGRAM*       64/25     64/34 L
        EDI2         1455   PROGRAM*       64/49 L   65/16
        EDI2A        1460   PROGRAM*       64/55     65/02 L
        EDI3         1463   PROGRAM*       64/47     65/13 L   65/15     65/27
        EDI3A        1464   PROGRAM*       65/11     65/16 L
        EDI4         1472   PROGRAM*       64/11     66/03 L
        EDI5         1473   PROGRAM*       66/06 L   66/08     66/20
        EFS          1341   PROGRAM*       58/10     59/02     59/15 L   59/21     59/27     59/43     59/53
        EFS1         1347   PROGRAM*       59/35 L   59/46
        EFS2         1352   PROGRAM*       59/37     59/44 L
        EOQA            5   TABLES          3/36 L   10/55 S   62/13     64/43
        EQV1          427   PROGRAM*       22/09     22/21     22/40 L
        FA1           373   PROGRAM*       18/57     19/47     20/11     20/23     20/32 L
        FMA          1062   PROGRAM*       15/49     32/32     44/23 L   44/52     49/21
        FMA0         1065   PROGRAM*       44/26     44/32 L
        FMA1         1070   PROGRAM*       44/18     44/38     44/41 L
        FMA60        1072   PROGRAM*       22/15     22/17     22/29     22/30     44/48 L
        F.XMT         721   PROGRAM*       20/20     23/16     36/52 L
        F.XMTC        720   PROGRAM*       23/18     36/49 L
        F.XMT1        722   PROGRAM*       36/50     36/53 L
        GCV          1146   PROGRAM*       18/45     23/22     31/41     47/44     48/12 L   48/20
        IAZ1          360   PROGRAM*       19/44     19/49 L
        IAZ2          361   PROGRAM*       19/51     19/54 L
        IA0           336   PROGRAM*       18/45 L   18/52     19/39
        IA1           352   PROGRAM*       19/04     19/10     19/16     19/28 L
        ICV           620   PROGRAM*       31/44     31/46     32/07 L
        ICV1          624   PROGRAM*       32/07     32/13     32/20 L
        ICV2          627   PROGRAM*       32/16     32/28 L
        ILS1          615   PROGRAM*       31/39     31/48 L
        IRCH          631   PROGRAM*       29/03     31/36     31/51     32/25     32/37 L
        IRCH1         635   PROGRAM*       32/49     32/52 L
        IRCH2         636   PROGRAM*       32/57 L   33/03     33/06
        IRCH3         652   PROGRAM*       33/25     33/38 L
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    75
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        IRCH4         654   PROGRAM*       33/27     33/36     33/46 L
        IRCH5         662   PROGRAM*       33/14     33/18     34/12 L
        ISZ1          515   PROGRAM*       25/51     25/57 L
        IS0           440   PROGRAM*       23/22 L   23/32     25/37
        IS1           454   PROGRAM*       23/50     24/08 L
        IS1A          453   PROGRAM*       23/56     24/05 L
        IS2           457   PROGRAM*       24/08     24/16 L
        IS3           464   PROGRAM*       24/20     24/32 L
        IS3A          467   PROGRAM*       24/06     24/40 L
        IS4           474   PROGRAM*       23/44     24/02     24/12     24/28     24/32     24/36     24/48     24/51 L
        IXF             6   TABLES          3/38 L   11/36 S   17/06 S   67/09
        IXI          1501   PROGRAM*       11/56     67/08 L   67/10     67/47     69/05
        IXI1         1507   PROGRAM*       67/21 L   67/26     67/29     67/37
        IXI12        1555   PROGRAM*       69/30     69/35 L
        IXI13        1556   PROGRAM*       69/33     69/38 L
        IXI20        1514   PROGRAM*       67/41 L   67/49
        IXI21        1515   PROGRAM*       67/44 L   67/46
        IXI3         1517   PROGRAM*       67/25     67/49 L
        IXI4         1524   PROGRAM*       68/04 L   69/02     70/02
        IXI5         1525   PROGRAM*       68/08 L
        IXI8         1541   PROGRAM*       68/23     68/30     68/46     68/53 L
        IXI9         1544   PROGRAM*       68/06     69/07 L
        I.ICL          22                   2/20 D
        I.ICP           0                   2/20 D
        I.JPP          73                   2/16 D
        I.RSL          22                   2/18 D
        I.RSP          44                   2/18 D
        I.STCL         22                   2/19 D
        I.STCP         22                   2/19 D    5/25     10/56     59/44
        I.XMT         412   PROGRAM*       19/20     19/26     21/40 L   24/41     24/47     24/49
        I.XMTC        411   PROGRAM*       21/37 L   24/14     24/25     24/30
        I.XMT1        413   PROGRAM*       21/38     21/41 L
        JPXA           11   TABLES          3/41 L   11/35 S   19/23     24/44     51/47 S   57/13     58/05
        JPX1         1224   PROGRAM*       51/24     51/31     51/33     51/43 L
        LD1          1251   PROGRAM*       54/01     54/04 L
        L.OCL          14                  67/02 D
        L.OCP          60                  67/02 D
        L.RNL          22                  67/04 D
        L.RNP           0                  67/04 D
        MIC             3   TABLES          3/33 L   41/24     45/09     45/51
        MRC             2   TABLES          3/32 L    3/35     11/33 S   51/04 S   51/08 S   51/21     55/08     55/41
        MSL1          166   PROGRAM*       11/39     14/56     34/20     44/41     50/18     51/05     56/22     58/55
                                           12/10 L   21/26     35/44     46/12     50/24     51/14     56/34
                                           14/23     30/43     36/20     50/11     50/34     52/06     56/48
                                           14/46     34/10     39/07     50/15     50/54     56/17     57/44
        MSL2          174   PROGRAM*       12/28     12/31     12/35 L
        MSL3          177   PROGRAM*       12/17     12/52 L
        NR1           564   PROGRAM*       29/23     29/38 L
        N.CHAIN         3                   3/35 D
        RNBT            0   TABLES          3/30 L    8/17 S    8/36
        RN.CIAL         3                   3/20 D
        RN.CIAP        70                   3/20 D
        RN.CP          72                   3/05 D   13/38     16/17     17/25     23/13     31/35     44/34     61/14
                                            3/19     15/16     16/36     18/51     23/31     31/38     60/11     61/19
                                           13/07     15/18     17/12     19/28     24/52     42/43     60/29
                                           13/12     16/07     17/15     19/38     25/36     43/09     60/32
                                           13/20     16/10     17/22     20/16     27/04 D   43/18     61/09
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    76
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        RN.CZL          2                   3/19 D   44/13
        RN.CZP         72                   3/19 D
        RN.FMAP        62                   3/13 D   15/43     16/17     16/21     16/24
        RN.IACIL        2                   3/21 D
        RN.IACIP       67                   3/21 D   19/42     19/45     25/53
        RN.IACP        70                   3/07 D   25/50     36/31     60/11     60/34
                                            3/20     27/27     43/09     60/32
        RN.INCP        67                   3/08 D   19/19     24/55     27/45     36/29
                                            3/21     24/40     25/05     36/26     36/31
        RN.MASK    600001                   3/37 D   67/51
        RN.NRP         63                   3/12 D   20/27     29/29     29/33     36/55     38/54
        RN.PZP         64                   3/11 D   18/10     29/14     29/27     29/29
        RN.RNL         22                   3/17 D
        RN.RNP          0                   3/17 D
        RN.SAP         71                   3/06 D   43/35     60/11
        RN.TPL         22                   3/16 D
        RN.TPP         22                   3/16 D   15/29     22/42     27/15     35/12     48/13     54/07     64/26
                                           10/27     15/38     23/45     27/36     35/15     48/16     56/05
                                           10/46     16/27     23/49     29/41     35/36     50/36     58/48
                                           11/23     17/28     24/16     30/04     38/14     51/38     59/28
                                           13/12     19/05     24/18     32/44     38/30     53/12     60/30
                                           13/20     19/09     25/11     32/47     38/38     53/25     60/45
                                           13/38     19/54     25/42     33/12     41/42     53/30     61/14
                                           15/21     20/54     25/50     34/04     42/39     53/36     61/22
        RN.USESL       12                   3/15 D   33/11
        RN.USESP       44                   3/15 D   11/29     33/12     34/01     35/38     59/22     62/26
                                            6/22     14/43     33/33     34/12     55/50     62/19
                                            6/38     14/53     33/42     34/14     56/19     62/21
        RN.XMTCP       65                   3/10 D   16/36     18/56     20/10     22/40     25/11
                                           15/18     18/23     19/28     20/21     22/42     51/23
                                           15/53     18/38     19/45     20/48     25/09     51/38
        RN.XMTP        66                   3/09 D   38/12     38/30     58/46     60/11
                                           36/35     38/14     39/43     58/48     60/34
        RN.ZP          73                   3/04 D   17/12     18/23     18/56     20/10     22/40     30/04
                                           16/07     18/10     18/38     19/54     20/21     29/27
        RSS             7   TABLES          3/39 L   11/34 S   50/44     64/06
        RS1          1206   PROGRAM*       50/42     50/52 L
        SA0          1034   PROGRAM*       41/35     42/23     42/51 L
        SA1          1041   PROGRAM*       42/44     43/09 L
        SA2          1045   PROGRAM*       43/13     43/23 L
        SA5          1051   PROGRAM*       43/34 L   43/41
        SA.JT        1053   PROGRAM*       42/42     43/40 L
        SBB            74   PROGRAM*        4/32 S    8/05 L   11/57     70/49
        SBB1          107   PROGRAM*        8/45 L    9/09
        SBB10         144   PROGRAM*       11/08 L   11/18
        SBB11         150   PROGRAM*       11/04     11/22 L
        SBB2          113   PROGRAM*        8/41      8/55      9/04 L    9/30      9/33
        SBB3          116   PROGRAM*        9/18 L    9/27
        SBB4          120   PROGRAM*        9/23      9/25 L
        SBB5          122   PROGRAM*        9/10      9/32 L
        SBB5A         123   PROGRAM*        4/40     10/06 L
        SBB6          127   PROGRAM*       10/18 L   10/39
        SBB7          131   PROGRAM*       10/26 L   10/36
        SBB8          132   PROGRAM*       10/16     10/22     10/31 L   10/40     10/43     10/52
        SBB9          141   PROGRAM*       10/38     10/54 L
        SBB.JT       1573   PROGRAM*        4/33 S    7/39 S   12/54     21/29     21/45     37/21     40/24     70/41 L
        SIE             1   PROGRAM*        4/07 L    4/08      4/54
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    77
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        SLD1         1243   PROGRAM*       53/18     53/20     53/38 L
        SMI          1075   PROGRAM*       43/10     43/19     44/19     44/39     45/09 L
        SMI1         1076   PROGRAM*       43/43     44/42     45/14 L   45/20
        SMI2         1101   PROGRAM*       42/13     45/25 L
        SMI3         1104   PROGRAM*       45/34     45/36 L
        SMI3A        1107   PROGRAM*       45/43 L   46/44
        SMI4         1110   PROGRAM*       45/46 L   46/23
        SMI5         1111   PROGRAM*       41/56     45/14     45/46     45/51 L
        SMI6         1113   PROGRAM*       45/36     45/41     46/03 L   46/27     46/43
        SMI7         1116   PROGRAM*       45/38     46/16 L
        SMI8         1122   PROGRAM*       45/39     46/32 L
        SMI9         1124   PROGRAM*       46/34     46/39 L
        SMR          1254   PROGRAM*       53/07     53/47     54/10     55/08 L
        SMR1         1255   PROGRAM*       55/16 L   55/29     55/33     55/36
        SMR10        1323   PROGRAM*       57/26     57/35     58/04     58/08     58/12 L
        SMR10A       1331   PROGRAM*       58/21     58/24     58/35 L
        SMR11        1332   PROGRAM*       57/07     58/40 L
        SMR12        1337   PROGRAM*       58/40     59/02 L
        SMR2         1263   PROGRAM*       54/13     55/18     55/21     55/41 L   58/47     58/53     59/03
        SMR3         1272   PROGRAM*       56/07     56/15 L
        SMR4         1275   PROGRAM*       56/15     56/26 L   56/51
        SMR5         1300   PROGRAM*       55/51     56/38 L
        SMR7         1304   PROGRAM*       55/23     57/03 L
        SMR8         1313   PROGRAM*       57/12     57/16     57/19     57/24 L
        SMR9         1320   PROGRAM*       57/08     58/03 L
        SQZB            5   PROGRAM*        4/22 L    4/23      4/55
        SQZBA          17   PROGRAM*        4/28      4/42 L    7/34
        SQZB1          10   PROGRAM*        4/14      4/27 L
        SRCH          665   PROGRAM*       15/08     17/37     18/39     20/30     26/11     29/36     47/48     49/14
                                           15/56     17/52     19/29     22/41     27/52     29/44     47/49
                                           16/37     18/05     19/46     25/10     28/02     35/05 L   47/50
                                           17/13     18/12     20/12     25/46     29/10     42/36     47/54
                                           17/34     18/24     20/24     25/55     29/17     47/47     47/55
        SRCH1         671   PROGRAM*       35/17     35/19 L
        SRCH2         672   PROGRAM*       35/24 L   35/27     35/30
        SRCH3         700   PROGRAM*       33/08     35/32     35/51 L
        SRCH4         705   PROGRAM*       29/31     29/55     35/57     36/03     36/11 L
        SRCH5         710   PROGRAM*       36/16     36/25 L
        SRCH5A        713   PROGRAM*       36/27     36/35 L
        SRCH6         714   PROGRAM*       36/38 L   58/36
        STC            10   TABLES          3/40 L    5/08     10/57 S   59/30
        STS            23   PROGRAM*        4/45      5/07 L
        STS0           70   PROGRAM*        6/39      7/33 L
        STS1           27   PROGRAM*        5/19 L    5/37
        STS10          62   PROGRAM*        6/55      7/11 L
        STS11          67   PROGRAM*        7/19      7/29 L
        STS2           30   PROGRAM*        5/15      5/23 L    5/30      5/42
        STS3           36   PROGRAM*        5/24      5/44 L
        STS4           40   PROGRAM*        5/52 L    6/33
        STS5           51   PROGRAM*        6/01      6/09      6/13      6/29 L
        STS6           52   PROGRAM*        6/27      6/31 L
        STS7           53   PROGRAM*        5/47      6/37 L
        STS8           54   PROGRAM*        6/41 L    7/31
        STS9           60   PROGRAM*        6/46      7/02 L
        STT0         1002   PROGRAM*       41/13     41/16 L
        STT1         1010   PROGRAM*       41/26     41/27     41/37 L
        STT2         1011   PROGRAM*       41/25     41/42 L
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 15.55.53.      PAGE    78
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        STT3         1014   PROGRAM*       41/46     41/56 L   42/04     42/10     42/17
        STT4         1021   PROGRAM*       41/23     42/15 L
        STT5         1023   PROGRAM*       41/16     42/21 L
        SUB           500   PROGRAM*       23/06     23/20     24/56     25/09 L
        SUB1          503   PROGRAM*       22/48     25/19 L
        SUB2          505   PROGRAM*       25/20     25/25 L
        SXTC            4   TABLES          3/34 L   13/36     14/27
        SXT0          212   PROGRAM*       13/08     13/27     13/36 L
        SXT1          216   PROGRAM*       13/52 L   14/01     14/09
        SXT2          217   PROGRAM*       13/47     13/55 L
        SXT3          226   PROGRAM*       13/54     14/27 L
        SXT4          227   PROGRAM*       13/37     14/30 L
        UPA           607   PROGRAM*       30/08     30/48 L
        UP1           574   PROGRAM*       30/11 L   30/14
        UP2           603   PROGRAM*       30/21     30/35 L
        UP4           606   PROGRAM*       29/39     29/49     30/17     30/24     30/45 L
        URI          1127   PROGRAM*       15/02     17/51     26/05     32/29     40/23     43/29     47/19 L
                                           15/48     21/11     28/01     36/41     42/30     44/07     47/32
                                           17/44     21/44     28/22     37/19     42/56     44/51     49/18
        XMT           237   PROGRAM*       15/04 L
        XMTC          242   PROGRAM*       15/14 L   17/45
        XMTC1         246   PROGRAM*       15/17     15/29 L
        XMTC2         256   PROGRAM*       15/19     15/36     15/51 L
        XMT0          236   PROGRAM*       15/01 L   15/27     17/42
        ZERO         1055   PROGRAM*       16/04     18/04     18/17     20/09     23/05     23/29     30/03     44/04 L
                                           17/11     18/09     18/31     22/04     23/07     29/26     31/49     44/29
                                           17/33     18/11     18/34     22/05     23/11     29/28     32/20     49/09
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2647              IDENT  MCG
                       2647                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2646 
                                        LITERALS* LOCAL        2646         1 
                                        MCG       COMMON          0       217 
                                        TABLES    COMMON          0       100 
  
  
                                        ENTRY POINTS. 
  
                                        B=MCG            0+           TYIOM            1+           MCG             17+ 
                                        MX.TXT           0+           PC             127+/MCG/
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.TXT     L.TREE    O.OTI     IT.       F.RDT     ATS=      N.OT
                                        L.TXT     O.PIT     L.OTI     OT.       MVE=      BDT       CO.ER 
                                        O.TREE    L.PIT     Z.PIT     Z.OTI     Z.TREE    RIO       PARCEL
  
  
  
  
                                                  IDENT  MCG                                                     MCG         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  PASS2TM                                                        MCG         5
             0                           B=MCG    RPVDEF                                                         MCG         6
                                                                                                                 MCG         7
                                                  TABLES TXT,TREE,PIT,OTI                                        MCG         8
                                                                                                                 MCG        11
                                         INCT     MICRO  .CPU-71,1,/11411/ INCREMENT UNIT TIME                   MCG        12
  
  
  
                                        **        MCG - MACHINE CODE GENERATOR - SCHEDULING AND LOCAL REGISTER   MCG        14
                                        *         ASSIGNMENT.                                                    MCG        15
                                        *                                                                        MCG        16
                                        *         S.I. JASIK - MARCH 73                                          MCG        17
                                        *                                                                        MCG        18
                                        *         *MCG* ORDERS THE INSTRUCTIONS IN THE CODE SEQUENCE SUBJECT TO  MCG        19
                                        *         THE CONSTRAINTS OF THE PARTIAL ORDER IMPOSED ON IT BY *BDT*,   MCG        20
                                        *         WHICH ARE -                                                    MCG        21
                                        *          1) DATA INTERFERENCE DEPENDENCIES ( LD/ST INTERFERENCE )      MCG        22
                                        *          2) OPERAND DEPENDENCIES                                       MCG        23
                                        *          3) BOUNDARY MARKER DEPENDENCIES  ( AN INSTRUCTION MUST BE     MCG        24
                                        *         LINKED TO THE NODES OF THE BOUNDARIES OF THE BASIC BLOCK THAT  MCG        25
                                        *         IT BELONGS TO ).                                               MCG        26
                                        *          4) EXPLICIT USE OF SPECIFIC RESOURCES ( REGISTERS ).          MCG        27
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE     2
                                                                      MCG 
  
                                        *            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
                                        *         TRA(REGNO) = T(EX) + 1   WHEN A REGISTER IS RELEASED.          MCG        84
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE     3
                                                                      MCG 
  
                                                                                                                 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
                                                                                                                 MCG        95
             0  00000000000000000100     MX.TXT   ENTRY. 100B        MAX *TXT* LENGTH                            MCG        96
  
  
                                        *         TYIOM - TYPE I OPERAND MASK AND SHIFT TABLE                    MCG        98
                                                                                                                 MCG        99
                                                  ENTRY  TYIOM                                                   MCG       100
             1                           TYIOM    BSS    0                                                       MCG       101
             1  20207777737777400000              VFD    12/2020B,16/-1,16/-1,16/0   RJ, RK                      MCG       102
             2  20200000037777400000              VFD    12/2020B,16/0,16/-1,16/0    RK                          MCG       103
             3  20007777737777577776              VFD    12/2000B,16/-1,16/-1,16/-1  RJ, RK, RI                  MCG       104
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      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
             4                           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
            14  77777777777777777776              CON    -1          TABLE TERMINATOR                            MCG       130
  
  
                                        **        FXR - CALL *FXR* TO FIND A RESULT REGISTER IN CLASS *RC*       MCG       132
                                        *         CALL -                                                         MCG       133
                                        *         FXR    RC,SEXIT,FEXIT                                          MCG       134
                                        *                RC = REGISTERS IN CLASS ( LD , ST , SCR )               MCG       135
                                        *                SEXIT = SUCCESS EXIT                                    MCG       136
                                        *                FEXIT = FAIL EXIT ( FALL THROUGH IF ABSENT )            MCG       137
                                                                                                                 MCG       138
                                         FXR      MACRO  RC,SEXIT,FEXIT                                          MCG       139
                                                  SA1    AXR                                                     MCG       140
                                                  IF     -REG,RC,1                                               MCG       141
                                                  SX5    FX.RC+FX.XT                                             MCG       142
                                                  BX7    X1*X5       AVAIL = AXR & CLASS                         MCG       143
                                                  NX6    B3,X7                                                   MCG       144
                                                  SA3    B3+FXRA+16-47                                           MCG       145
                                                  IFGE   .CPU,74                                         ?66/76  MCG       146
                                                  SA2    TRA+X3                                                  MCG       147
                                                  SB2    X2                                                      MCG       148
                                                  SB3    X3                                                      MCG       149
                                                  LE     B2,B5,SEXIT IF TRA(REGNO) @ T(IS)                       MCG       150
                                                  ELSE   2                                               '66/76  MCG       151
                                                  SB3    X3                                                      MCG       152
                                                  GT     B3,SEXIT                                                MCG       153
                                                  RJ     FXR                                                     MCG       154
                                                  SB3    X3                                                      MCG       155
                                                  IFC    NE,/FEXIT//,2                                           MCG       156
                                                  MI     X3,FEXIT                                                MCG       157
                                                  ELSE   1                                                       MCG       158
                                                  PL     X3,SEXIT                                                MCG       159
                                                  ENDM                                                           MCG       160
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE     5
        DEBUGGING FACILITIES                                          DEBUG 
  
                                        **        PRNT - PRINT OUT *THING* AT *LAB* IF *THING* OR *LAB* IS       MCG       162
                                        *         MENTIONED ON A *TRACER* DIRECTIVE.                             MCG       163
                                        *         TO DEFINE *PRNT* CALL LABELS -                                 MCG       164
                                        *         TRACER (HEAD,II,FINAL,RUI,TIMES,ICL)                           MCG       165
                                                                                                                 MCG       166
                                         PRNT     MACRO  LAB,THING,SAVPBI                                        MCG       167
                                                  LOCAL  APL         *** DESTROY B2,X6,A6 IF SAVPBI " 0          MCG       168
                                                  IF     -DEF,/DEBUG/LAB,1                                       MCG       169
                                         X        IF     DEF,/DEBUG/THING                                        MCG       170
                                                  IFC    NE,/SAVPBI//,3                                          MCG       171
                                                  SB2    "DI"+B1                                                 MCG       172
                                                  SX6    B2-"TB"                                                 MCG       173
                                                  SA6    PBI+1                                                   MCG       174
                                        +         RJ     CPR                                                     MCG       175
                                        -         VFD    30/APL                                                  MCG       176
                                                  USE    DEBUG                                                   MCG       177
                                         APL      CON    0,Z.THING,*+2,0,10H LAB                                 MCG       178
                                                  USE    0                                                       MCG       179
                                         X        ENDIF                                                          MCG       180
                                                  ENDM                                                           MCG       181
                                                                                                                 MCG       182
                                         .T       IFNE   TEST,0                                                  FCC1056     7
                                                  USE    DEBUG                                                   MCG       184
                                         Z.ICL    CON    1           ISSUE CANIDATE LIST                         MCG       185
                                         Z.II     CON    2           ISSUED INSTRUCTION                          MCG       186
                                         Z.RUI    CON    3           REGISTER USEAGE INFO                        MCG       187
                                         Z.TIMES  CON    4           FU AND X-REG AVAIL TIMES                    MCG       188
                                         Z.FINAL  CON    5           FINAL SUMMARY                               MCG       189
                                         Z.HEAD   CON    6           LISTING HEADER ( II AND FINAL OPTIONS ONLY  MCG       190
                                                                                                                 MCG       191
                                        **        CPR - CALL PRINT ROUTINE                                       MCG       192
                                                                                                                 MCG       193
                                         CPR0     RJ     =XRESET=                                                MCG       194
                                         CPR      ROUTINE                                                        MCG       195
                                                  RJ     =XSAVE=                                                 MCG       196
                                                  SA1    CPR                                                     MCG       197
                                                  SA4    O.TXT                                                   MCG       198
                                                  LX1    30                                                      MCG       199
                                                  SA2    X1-1                                                    MCG       200
                                                  BX6    X4                                                      MCG       201
                                                  SA6    X2          [APL] = [O.TXT]                             MCG       202
                                                  SA1    A6                                                      MCG       203
                                        +         RJ     =XPRNTMCG                                               MCG       204
                                                  SA1    EOQA                                                    MCG       205
                                                  PL     X1,CPR0                                                 MCG       206
                                                  BX6    -X1                                                     MCG       207
                                                  SA6    A1                                                      MCG       208
                                                  RJ     =XRESET=                                                MCG       209
                                                  SNAPT  TXT,CPR-ERR                                             MCG       210
                                                  EQ     CPR                                                     MCG       211
                                                                                                                 MCG       212
                                                  USE    0                                                       MCG       213
                                         .T       ENDIF                                                          FCC1056     8
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      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  00000000000000000000     PC       ENTRY. 0           PARCEL COUNT ( 0 - 3 )                      MCG       246
           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    /TABLES/                                                MCG       266
             0                   100     SVL      BSS    100B        SAVED LINK WORDS                            MCG       267
                                                  USE    0                                                       MCG       268
                                                                                                                 MCG       269
            15                     1     DTT      BSS    1           DELTA T TABLE                               MCG       270
                                                  ECHO   1,D=(DELTAT,8,16,32)                                    MCG       271
                                                  VFD    15/D                                                    MCG       272
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE     7
        TABLE DEFINATIONS                                             TABLES
  
                                        **        USES INDEX ( SUCCESSOR ) TABLE                                 MCG       274
                                                                                                                 MCG       275
                                                  DESCRIBE U.,60                                                 MCG       276
                                         LAST     DEFINE 1           "0 IF LAST EDGE OF A GROUP                  MCG       277
                                         RDL      DEFINE 1           REGISTER REDEFINITION LINK                  FCC0448   147
                                         EQV      DEFINE 1           DATA INTERFERENCE LINK                      FCC0448   148
                                                  DEFINE 3                                                       FCC0448   149
                                         PRED     DEFINE 18          INDEX TO *TXT* OF PRED                      MCG       280
                                         LST      DEFINE 18          LATE START TIME OF SUCCESSOR                MCG       281
                                         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
                                         II       DEFINE 1           "0 IF INSTRUCTION IS ISSUED ( POSTED )      MCG       287
                                         IC       DEFINE 1           "0 IS INSTRUCTION ON ISSUE CANDIDATE LIST   MCG       288
                                                  DEFINE 1                                                       MCG       289
                                         USES     DEFINE 9                                                       MCG       290
                                         INDX     DEFINE 15          INDEX TO *TREE* OF SUCCESSORS OF INSTRUCTIO MCG       291
                                         LST      DEFINE 15          LATE START TIME                             MCG       292
                                         NPRED    DEFINE 18          NUMBER OF UNISSUED PREDECESSORS             MCG       293
                                                                                                                 MCG       294
                                         LINK     DEQU   NPRED       INDEX TO NEXT ON ISSUE CANIDATE LIST        MCG       295
                                         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
                                         REG      DEFINE 12          PACKED REGISTER ORDINAL                     MCG       301
                                                  DEFINE 12                                                      MCG       302
                                         TEX      DEFINE 18          EXECUTION TIME                              MCG       303
                                         TIS      DEFINE 18          ISSUE TIME                                  MCG       304
                                                                                                                 MCG       305
                                                  DESCRIBE PB.,60    SECOND WORD                                 MCG       306
                                         FU       DEFINE 12          PACKED FUNIT ORDINAL                        MCG       307
                                                  DEFINE 12                                                      MCG       308
                                         PI       DEFINE 18          INDEX TO *TXT* OF PREVIOUS INST             MCG       309
                                         LI       DEFINE 18          INDEX TO *TXT* OF PREVIOUS BEST INST        MCG       310
  
  
  
                                        **        THE FOLLOWING REGISTER ASSIGNMENTS ARE HELD OVER MOST OF *MCG* MCG       312
                                        *                                                                        MCG       313
                                        *         (B1) = 1  , B2 - SCRATCH                                       MCG       314
                                        *         B3 - REGNO                                                     MCG       315
                                        *         B4 - T(EX) EXECUTION START TIME OF CURRENT INSTRUCTION         MCG       316
                                        *         B5 - T(IS) ISSUE TIME OF CURRENT INSTRUCTION                   MCG       317
                                        *         B6 - TIS(PBI) IN *SNI*, *DRR*, ETC., ELSE SCRATCH              MCG       318
                                         TB       MICRO  1,,/B7/     O.TXT + 3                                   MCG       319
                                         PI       MICRO  1,,/A0/     *TXT* INDEX OF PREVIOUS INSTRUCTION         MCG       320
                                         DI       MICRO  1,,/A4/     ADDRESS OF DESCRIPTOR OF CURRENT INST       MCG       321
                                         RN       MICRO  1,,/-X0*/   R-NUMBER EXTRACTOR MASK                     MCG       322
                                                                                                                 MCG       323
                                        *         THE OTHER X-REGISTERS MAY BE USED AS SCRATCH .                 MCG       324
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      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
            17  0400400017 +             MCG      ENTRY. **                                                      MCG       335
            20  5110000000 X                      SA1    L.PIT                                                   MCG       336
                          7271000000              SX7    X1+                                                     MCG       337
            21  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    =XOPT2                                                  MCG       343
                                                  SB2    X5-4*64                                                 MCG       344
                                                  SA2    =XWB                                                    MCG       345
                                                  PL     B2,MCG9     IF L.TXT \ 4*64                             MCG       346
                                                                                                                 MCG       347
                                                  NZ     X1,MCG1     IF OPT2 " 0                                 MCG       348
                                                  SX3    X2-1                                                    MCG       349
                                                  NZ     X3,MCG9     IF WB " 1     */ NOT OPT=1 & INNERMOST LOOP MCG       350
                                                                                                                 MCG       351
                                         MCG1     SA5    O.TXT                                                   MCG       352
                                                  CALL   CRW         COMPUTE REG WIDTH                           MCG       353
                                                  PRINT  MCG,(*  LINENR,REGW =*2I5),(=XLINENR,X6)                MCG       354
                                                  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                   MCG       367
                                                                                                                 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
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE     9
        CONTROL / INITIALIZATION                                      MCG 
  
                                        *         TRY SCHEDULING THE SEQUENCE WITH DIFFERENT LOOK AHEAD VALUES   MCG       383
                                        *         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
            22  43600                    MCG10    MX6    0                                                       MCG       423
                     0100000000 X                 CALL   BDT         FORM THE DEPENDENCY GRAPH                   MCG       424
            23  7170000031 +                      SX7    MCG14                                                   MCG       425
                          0100000037 +            RJ     SIS         TRY AND SCHEDULE THE SEQUENCE               MCG       426
                                                                                                                 MCG       427
                                        *         SCHEDULER FAILED, TRY *JAM* IF NOT *LOCKED X MODE*.            MCG       428
                                                                                                                 MCG       429
            24  5110000132 C             MCG11    SA1    LRM                                                     MCG       430
                          76610                   SX6    B1          FAIL = 1                                    MCG       431
                               43700              MX7    0                                                       MCG       432
            25  5170000000 X                      SA7    L.TREE      L.TREE = 0                                  MCG       433
                          0311000017 +            NZ     X1,MCG      IF LRM " 0    */ LOCKED X-MODE              MCG       434
            26  5110000013 C                      SA1    ALR                                                     FCC0603    94
                          7120037000              SX2    FX.LD                                                   FCC0603    95
            27  11321                             BX3    X2*X1                                                   FCC0603    96
                     37423                        IX4    X2-X3                                                   FCC0603    97
                          0314000017 +            NZ     X4,MCG      IF ALR&FX.LD " FX.LD  */ LOCKED A-REGISTERS FCC0603    98
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    10
        CONTROL / INITIALIZATION                                      MCG 
  
                                                                                                                 MCG       435
            30  0100001141 +                      RJ     /JAM/JAM    JAM CODE THE SEQUENCE                       MCG       436
                                                                                                                 MCG       437
            31                           MCG14    BSS    0                                                       RSM2763X  368
                                                  PRNT   JAM,FINAL                                               MCG       451
            31  5110000124 C                      SA1    LXR                                                     MCG       452
                          7160000000              SX6    0           FAIL = 0                                    MCG       453
            32  5160000000 X                      SA6    L.TREE      L.TREE = 0                                  MCG       454
                          0301000017 +            ZR     X1,MCG      IF LXR = 0    */ RVT IS ZERO                MCG       455
            33  0100000113 +                      RJ     CLR         CLEAR *RVT*                                 MCG       456
            34  0400000017 +                      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
            35  5110000133 C             SIS0     SA1    LRM+1                                                   MCG       466
                          7271000000              SX7    X1+         L.PIT = IPL   */ RESTORE *PIT* LENGTH       MCG       467
            36  5170000000 X                      SA7    L.PIT                                                   MCG       468
                          0100000113 +            RJ     CLR         CLEAR *RVT*                                 MCG       469
                                                                                                                 MCG       470
            37  0200400037 +             SIS      ROUTINE                                                        MCG       471
            40  7100000000                        SX0    0                                                       MCG       472
                          0100000116 +            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
            41  0400000046 +                      EQ     SIS2                                                    MCG       481
                                                                                                                 MCG       482
            42  0100000603 +             SIS1     RJ     AIL         ADJUST THE ISSUE LIST                       MCG       483
            43  0100000626 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG       484
            44  54440                             SA4    "DI"                                                    MCG       485
                     0100000652 +                 RJ     ASC         ADVANCE THE CLOCKS                          MCG       486
            45  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG       487
                          0100000750 +            RJ     SII         SAVE THE ISSUED INSTRUCTION                 MCG       488
                                                                                                                 MCG       489
            46  0100000160 +             SIS2     RJ     SNI         SELECT THE NEXT INSTRUCTION TO ISSUE        MCG       490
            47  0630000042 +                      PL     B3,SIS1     IF REGNO > 0  */ ISSUABLE INSTRUCTION FOUND MCG       491
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    11
        CONTROL / INITIALIZATION                                      SIS 
  
                                        *         CHECK FOR A STORE REGISTER JAM, AND GENERATE AN *XMT*          MCG       493
                                        *         IF POSSIBLE.                                                   MCG       494
                                                                                                                 MCG       495
                          5110000012 C            SA1    AXR                                                     MCG       496
            50  5150000125 C                      SA5    NGX                                                     MCG       497
                          7120140000              SX2    FX.ST                                                   MCG       498
            51  7130377000                        SX3    FX.SCR                                                  MCG       499
                          11221                   BX2    X2*X1                                                   MCG       500
                               11331              BX3    X3*X1                                                   MCG       501
            52  0312000035 +                      NZ     X2,SIS0     IF AXR & FX.ST " 0  */ NOT ST-REG JAM       MCG       502
                          0303000035 +            ZR     X3,SIS0     IF AXR & FX.SCR = 0  */ ALL REGS IN USE     MCG       503
            53  6235777775                        SB3    X5-MAX.GX                                               MCG       504
                          0430000035 +            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
            54  6140000026                        SB4    RN.X0+6     REGF = X6     */ TRY X6                     MCG       509
                          0100000071 +            RJ     CSR                                                     MCG       510
            55  0307000060 +                      ZR     X7,SIS3     IF CSR(REGF) = 0  */ RESULT CAN BE MOVED    MCG       511
                          6144000001              SB4    B4+1        REGF = X7                                   MCG       512
            56  0100000071 +                      RJ     CSR                                                     MCG       513
            57  0317000035 +                      NZ     X7,SIS0     IF CSR(REGF) " 0                            MCG       514
                                                                                                                 MCG       515
            60  5110000012 C             SIS3     SA1    AXR                                                     MCG       516
                          5120000126 C            SA2    T                                                       MCG       517
            61  7150777400                        SX5    FX.SCR+FX.XT                                            MCG       518
                          11715                   BX7    X1*X5       AVAIL = AXR & FX.SCR                        MCG       519
                               24637              NX6    B3,X7                                                   MCG       520
            62  6252000000                        SB5    X2+         T(IS) = T                                   MCG       521
                          5133777744 +            SA3    B3+FXRA+16-47                                           MCG       522
            63  5223000046 C                      SA2    TRA+X3                                                  MCG       523
                          63220                   SB2    X2                                                      MCG       524
                               63330              SB3    X3          REGR = FXR( SCR )  */ RESULT REG            MCG       525
            64  0652000065 +                      LE     B2,B5,SIS4  IF TRA(REGR) @ T(IS)                        MCG       526
                          66520                   SB5    B2          T(IS) = TRA(REGR)                           MCG       527
            65  6120000010               SIS4     SB2    OC.XMT                                                  MCG       528
                          0100002236 +            RJ     /JAM/OXI    OUTPUT AN *XMT* INSTRUCTION                 MCG       529
            66  5120000125 C                      SA2    NGX                                                     MCG       530
                          73621                   SX6    X2+B1       NGX = NGX + 1                               MCG       531
                               54620              SA6    A2                                                      MCG       532
            67  0400000046 +                      EQ     SIS2                                                    MCG       533
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    12
        CONTROL / INITIALIZATION                                      CSR 
  
                                        **        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
            70  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
            71  0200400071 +             CSR      ROUTINE                                                        MCG       546
            72  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
            73  20435                             LX4    59-D.PIP                                                MCG       550
                     0334000106 +                 MI     X4,CSR3     IF PI[DI]     */ PSEUDO INSTRUCTION         MCG       551
                               20463              LX4    D.PIP-D.PSP                                             MCG       552
            74  0324000070 +                      PL     X4,CSR4     IF ^PS[DI]                                  MCG       553
                                                                                                                 MCG       554
                                        *         RESULT *PS*, CHECK UNISSUED SUCCESSORS OF *R*                  MCG       555
                                                                                                                 MCG       556
            75  54541                    CSR0     SA5    A4+B1       LI = DI + 1                                 MCG       557
                     43755                        MX7    -I.INDXL    PSF = 1                                     MCG       558
                          5120000000 X            SA2    O.TREE                                                  MCG       559
            76  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
            77  53537                             SA5    "TB"+X3     SI = BASE + SUCC[UI]                        MCG       566
                                                  LX5    59-I.IIP                                                MCG       567
                     0335000104 +                 MI     X5,CSR2     IF II[SI]     */ ISSUED                     MCG       568
           100  5025777774                        SA2    A5-3        R1S = SI - 3                                FCC0393     6
                          13521                   BX5    X2-X1                                                   FCC0393     7
                               15650              BX6    "RN"X5                                                  FCC0393     8
           101  0316000104 +                      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
           102  0322000104 +                      PL     X2,CSR2     IF ^ST[D]                                   FCC0393    12
                          20272                   LX2    D.STP-D.L2P                                             FCC0393    13
           103  0322000071 +                      PL     X2,CSR      IF ^L2[D]     */ UNISSUED STORE             FCC0393    14
           104  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
                          0326000077 +            PL     X6,CSR1     IF ^LAST[UL]                                MCG       581
                                                                                                                 MCG       582
           105  43700                             MX7    0           PSF = 0                                     MCG       583
                     0400000071 +                 EQ     CSR                                                     MCG       584
                                                                                                                 MCG       585
           106  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
           107  11765                             BX7    X6*X5       PSF = SOLK[R1]/2  */ =1 IF A FULL LOCK      MCG       589
                     0317000071 +                 NZ     X7,CSR      IF PSF " 0                                  MCG       590
           110  0400000075 +                      EQ     CSR0                                                    MCG       591
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    13
        CONTROL / INITIALIZATION                                      CLR 
  
                                        **        CLR - CLEAR *RVT*                                              MCG       593
                                                                                                                 MCG       594
           111  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
           112  0335000111 +                      MI     X5,CLR1                                                 MCG       598
           113  0200400113 +             CLR      ROUTINE                                                        MCG       599
           114  76600                             SX6    B0                                                      MCG       600
                     43513                        MX5    22/2                                                    MCG       601
                          7170000000              SX7    0                                                       MCG       602
           115  5160000016 C                      SA6    RVT+1                                                   MCG       603
                          0400000111 +            EQ     CLR1                                                    MCG       604
  
  
  
                                        **        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
           116  0200400116 +             PRS      ROUTINE                                                        MCG       611
           117  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
           120  43531                             MX5    L.CLC/2                                                 MCG       617
                     27707                        PX7    X7                                                      MCG       618
                          5170000012 C            SA7    AXR         AXR = PACK( 0 , FX + FB )                   MCG       619
           121  7160437400                        SX6    FX.LD+FX.XT                                             MCG       620
                          5160000013 C            SA6    ALR         ALR = FX.LD                                 MCG       621
           122  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
           123  54671                    PRS1     SA6    A7+B1                                                   MCG       626
                     20501                        LX5    1                                                       MCG       627
                          46000                   NO                                                             MCG       628
                               54761              SA7    A6+B1                                                   MCG       629
           124  0335000123 +                      MI     X5,PRS1                                                 MCG       630
                                                                                                                 MCG       631
                          5150000000 C            SA5    N.INST      WDS = N.INST                                MCG       632
           125  0300000130 +                      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
           126  5170000137 C                      SA7    EIW         EIW = -N.INST                               MCG       636
                          7110000030              ALLOC  OTI,30B     ALLOC OTI,30B                               MCG       637
                                                                                                                 MCG       638
           130  7215000003               PRS2     ALLOC  PIT,X5+MAX.GX+1   ALLOC( PIT , WDS+MAX.GX+1 )           FEAT155A   87
           132  5150000000 X                      SA5    =XPARCEL                                                FEAT155A   88
                          66561                   SB5    B6+B1                                                   MCG       641
                               10722              BX7    X2                                                      MCG       642
           133  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
           134  10755                             BX7    X5                                                      FEAT155A   89
                     5170000127 C                 SA7    PC          PC = PARCEL                                 MCG       647
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    14
        CONTROL / INITIALIZATION                                      PRS 
  
                                                                                                                 MCG       648
                                        *         SET UP THE ISSUE CANDIDATE LIST BY ISSUING THE *BOS*           MCG       649
                                                                                                                 MCG       650
                                                  PRNT   JAM,HEAD                                                MCG       651
           135  5130000000 X                      SA3    O.TXT                                                   MCG       652
                          6273000003              SB7    X3+3        BASE = O.TXT + 3                            MCG       653
           136  53430                             SA4    X3                                                      MCG       654
                     66300                        SB3    B0                                                      MCG       655
                          10744                   BX7    X4          [IIP-1] = [O.TXT]  */ SET *BOS* FOR POST    MCG       656
           137  5276777776                        SA7    X6-1                                                    MCG       657
                          5140000000 X            SA4    =XCO.ER                                                 FEAT155A   90
           140  0315000146 +                      NZ     X5,PRS3     IF PARCEL " 0                               FEAT155A   91
                          0304000146 +            ZR     X4,PRS3     IF ER = 0     */ NO OBJ TIME RPV            FEAT155A   92
                                                                                                                 FEAT155A   93
           141  43536                             MX5    -R1.INP                                                 FEAT155A   94
                     11757                        BX7    X5*X7                                                   FEAT155A   95
                          7140000200              SX4    200B                                                    FEAT155A   96
           142  6120000052                        SB2    OC.STT                                                  FEAT155A   97
                          26507                   UX5    X7                                                      FCC2531     6
           143  0305000146 +                      ZR     X5,PRS3     IF LINE NUMBER ZERO                         FCC2531     7
                          27727                   PX7    B2,X7                                                   FEAT155A   98
                               12747              BX7    X4+X7                                                   FEAT155A   99
           144  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
           145  5170000127 C                      SA7    PC          PC = 2                                      FEAT155A  104
                                                                                                                 FEAT155A  105
           146  56000                    PRS3     S"PI"  B0                                                      FEAT155A  106
                     56570                        SA5    "TB"                                                    MCG       659
                          0100000603 +            RJ     AIL         INITIALIZE THE ISSUE LIST                   MCG       660
           147  0100000151 +                      RJ     SSP         SET STORE PREDECESSOR COUNT                 FCC2535     9
           150  0400000116 +                      EQ     PRS                                                     FCC2535    10
  
  
  
                                        **        SSP - SET STORE PREDECESSOR ( N.SP ) FOR A SUBSEQUENCE         FCC2535    12
                                        *                                                                        FCC2535    13
                                        *         ENTRY  (X4) = [DI] OF INSTRUCTION JUST ISSUED                  FCC2535    14
                                                                                                                 FCC2535    15
           151  0200400151 +             SSP      ROUTINE                                                        FCC2535    16
                                                  LX4    -D.USESP                                                MCG       662
           152  43563                             MX5    -D.USESL                                                MCG       663
                     16254                        BX2    -X4+X5                                                  MCG       664
                          43700                   MX7    0                                                       MCG       665
                               73621              SX6    X2+B1                                                   MCG       666
           153  5160000001 C                      SA6    N.SP        N.SP = -(USES[DI]-1)                        MCG       667
                          5170000014 C            SA7    STL         STL = 0                                     MCG       668
           154  23312                             AX3    B1,X2                                                   MCG       669
                     0303000151 +                 ZR     X3,SSP      IF N.SP .LE. 1                              FCC2535    17
           155  7170737777                        SX7    -FX.X6                                                  MCG       671
                          54770                   SA7    A7          STL = -FX.X6                                MCG       672
           156  0400000151 +                      EQ     SSP                                                     FCC2535    18
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           157                     1     SNIA     BSS    1           TEMP TO SAVE FUNIT ORDINAL                  MCG       690
                                                                                                                 MCG       691
           160  0200400160 +             SNI      ROUTINE                                                        MCG       692
                                                                                                                 MCG       693
           161  5140000005 C             SNI0     SA4    PBI-1                                                   MCG       694
                          5130000003 C            SA3    ICL         CI = ICL                                    MCG       695
           162  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
           163  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
           164  63520                             SB5    X2          T(IS) = T                                   MCG       706
                     20443                        LX4    58-D.SZP                                                MCG       707
                          0324000200 +            PL     X4,SNI4     IF SZ[DI] < 2 */ NO POSSIBLE SIZE FAULT     MCG       708
           165  5130000127 C                      SA3    PC                                                      MCG       709
                          43772                   MX7    -2                                                      MCG       710
                               12637              BX6    X3+X7                                                   MCG       711
           166  0316000200 +                      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
           167  0322000177 +                      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
           170  55341                             SA3    "DI"-B1     R2 = DI - 1                                 MCG       721
                     6120000075 C                 SB2    ARA-1                                                   MCG       722
                               10633              BX6    X3                                                      MCG       723
           171  56621                             SA6    B2+B1       ARA(1) = [R2]                               MCG       724
                                                                                                                 MCG       725
           172  13732                    SNI2     BX7    X3-X2                                                   MCG       726
                     55221                        SA2    A2-B1       I = I - 1                                   MCG       727
                          0317000172 +            NZ     X7,SNI2     IF [I+1] " [R2]                             MCG       728
           173  65322                             SB3    A2-B2                                                   MCG       729
                     0430000177 +                 ZR     B3,SNI3     IF I = 0    */ MATCH WITH SEARCH TERMINATOR MCG       730
                                                                                                                 MCG       731
           174  5123000056 C                      SA2    TRA+RN.A0+B3              */ COMPUTE TRUE ISSUE TIME    MCG       732
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    16
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI 
  
                          63220                   SB2    X2                                                      MCG       733
           175  0652000200 +                      LE     B2,B5,SNI4                                              MCG       734
                          63520                   SB5    X2                                                      MCG       735
           176  0400000200 +                      EQ     SNI4                                                    MCG       736
                                                                                                                 MCG       737
           177  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
           200  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
           201  0765000204 +             SNI5     GT     B5,B6,SNI6  IF T(IS) > TIS[PBI]                         MCG       769
                          5170000157 +            SA7    SNIA                                                    MCG       770
           202  20466                             LX4    D.F1P+59-D.NRP                                          MCG       771
                     0100000221 +                 RJ     DRR         CALL DRR( DI , T(IS) , T(EX) , REGNO )      MCG       772
           203  0703000205 +                      GT     B3,SNI7     IF REGNO > 0  */ INSTRUCTION IS ISSUABLE    MCG       773
                          0430000161 +            ZR     B3,SNI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION       MCG       774
                                                                                                                 MCG       775
           204  54541                    SNI6     SA5    "DI"+B1     LI = DI + 1                                 MCG       776
                     0400000214 +                 EQ     SNI9                      */ NO RESULT REG AVAIL        MCG       777
                                                                                                                 MCG       778
                                        *         COMPARE THIS INSTRUCTION TIMING WITH THAT OF *PBI*             MCG       779
                                                                                                                 MCG       780
           205  54541                    SNI7     SA5    "DI"+B1     LI = DI + 1                                 MCG       781
                                         #MD      IFEQ   .CPU,74                                         ?6600   MCG       782
                                                  GT     B5,B6,SNI9  IF T(IS) > TIS[PBI]                         MCG       783
                                                  SA3    PBI                                                     MCG       784
                                                  LT     B5,B6,SNI8  IF T(IS) < TIS[PBI]                         MCG       785
                                                  LX3    -PB.TEXP                                                MCG       786
                                                  SB2    X3                                                      MCG       787
                                                  GE     B4,B2,SNI9  IF T(EX) \ TEX[PBI]                         MCG       788
                                         #MD      ELSE                                                   '66?76  MCG       789
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    17
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI 
  
                     54440                        SA4    "DI"                                                    MCG       790
                          0646000214 +            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
                                                                                                                 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
           206  76450                    SNI8     SX4    B5                                                      MCG       821
                     5110000157 +                 SA1    SNIA                                                    MCG       822
                               76340              SX3    B4                                                      MCG       823
                                                  LX4    PB.TISP                                                 MCG       824
           207  27634                             PX6    B3,X4                                                   MCG       825
                     74700                        SX7    "PI"                                                    MCG       826
                          20322                   LX3    PB.TEXP                                                 MCG       827
                               63210              SB2    X1                                                      MCG       828
           210  75257                             SX2    A5-"TB"                                                 MCG       829
                     12636                        BX6    X3+X6                                                   MCG       830
                          5110000126 C            SA1    T                                                       MCG       831
           211  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
           212  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
           213  0442000160 +                      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
                                                                                                                 MCG       845
           214  55057                    SNI9     S"PI"  A5-"TB"     PI = LI - BASE                              MCG       846
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    18
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI 
  
                                                  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
                          0313000163 +            NZ     X3,SNI1     IF CI " 0                                   MCG       871
                                                                                                                 MCG       872
           215  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
           216  0730000160 +                      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
           217  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
           220  0400000160 +                      EQ     SNI                                                     MCG       887
  
  
                                                  IFGE   .CPU,74,2                                               MCG       889
                                         SNIB     SX6    X4+0        SKELTON TO PLUG *SNI.P*                     MCG       890
                                                  PL     X4,SNI1                                                 MCG       891
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           221  0200400221 +             DRR      ROUTINE                                                        MCG       907
           222  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
           223  0233000224 +                      JP     B3+DRR1     JUMP( NORMC( [X4] ) )                       MCG       911
                                                                                                                 MCG       912
           224                           DRR1     BSS    0                                                       MCG       913
                                                  QUAL   DRR                                                     MCG       914
                                                                                                                 MCG       915
           224  5054000002                        SA5    "DI"+2      R1RS = DI + 2                               MCG       916
                          0400000264 +            EQ     RJRS                                                    MCG       917
                                                                                                                 MCG       918
           225  0400000271 +                      EQ     PS                                                      MCG       919
                                                                                                                 MCG       920
           226  5054000002                        SA5    "DI"+2      R1RS = DI + 2                               MCG       921
                          0400000277 +            EQ     PRS                                                     MCG       922
                                                                                                                 MCG       923
           227  0400000322 +                      EQ     ECJ         EC JUMP                                     MCG       924
                                                                                                                 MCG       925
           230  0400000306 +                      EQ     LVL2                                                    MCG       926
                                                                                                                 MCG       927
           231  0400000310 +                      EQ     LD                                                      MCG       928
                                                                                                                 MCG       929
           232  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG       930
                          0400000316 +            EQ     ST                                                      MCG       931
                                                                                                                 MCG       932
           233  0400000323 +                      EQ     JP                                                      MCG       933
                                                                                                                 MCG       934
           234  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG       935
                          0400000325 +            EQ     XMT                                                     MCG       936
                                                                                                                 MCG       937
           235  55541                             SA5    "DI"-B1     R2 = DI - 1                                 MCG       938
                     0400000335 +                 EQ     KS                                                      MCG       939
                                                                                                                 MCG       940
           236  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG       941
                          0400000340 +            EQ     PI                        */ PSEUDO INSTRUCTION         MCG       942
                                                                                                                 MCG       943
           237  0400000256 +                      EQ     MUC                                                     MCG       944
                                                                                                                 MCG       945
                                        *         EQ     SCR         ANY X REGISTER                              MCG       946
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    20
        DRR - DETERMINE RESULT REGISTER / T(EX)                       SCR                 DRR 
  
                                        *         SCR - FIND AN X-REGISTER                                       MCG       948
                                                                                                                 MCG       949
           240  5130000014 C             SCR      SA3    STL                                                     MCG       950
                          7253777400              SX5    FX.XT+FX.SCR+X3   CLASS = SCR & ^STL                    MCG       951
                                                                                                                 MCG       952
           241  5110000012 C             SCR1     FXR    X5,DRR2     REGNO = FXR( ^STL )                         MCG       953
                                                                                                                 MCG       954
                                        *         NO REGISTER AVAILABLE, CHECK STORE LOCKOUT FLAG                MCG       955
                                                                                                                 MCG       956
           245  5150000012 C                      SA5    AXR         CLASS = AXR                                 MCG       957
                          5130000014 C            SA3    STL                                                     MCG       958
           246  12735                             BX7    X3+X5                                                   MCG       959
                     0307000241 +                 ZR     X7,SCR1     IF AXR & STL " 0  */ X6 LOCKOUT AND AVAIL   MCG       960
           247  0303000221 +                      ZR     X3,DRR      IF STL = 0    */ NO *ST* LOCKOUT            MCG       961
                          5130000000 X            SA3    L.OTI                                                   MCG       962
           250  0303000221 +                      ZR     X3,DRR      IF L.OTI = 0  */ NOT JAM MODE               MCG       963
                                                                                                                 MCG       964
                          5110000012 C            FXR    ST,DRR2     REGNO = FXR( ST )                           MCG       965
           255  0400000221 +                      EQ     DRR                                                     MCG       966
  
  
                                        *         MUC - MULTI USE COMPUTATION                                    MCG       968
                                                                                                                 MCG       969
           256  5110000012 C             MUC      FXR    ST,DRR2     REGNO = FXR( ST )                           MCG       970
           263  7150777400                        SX5    FX.XT+FX.SCR      CLASS = SCR                           MCG       971
                          0400000241 +            EQ     SCR1                                                    MCG       972
  
  
  
                                        **        INSTRUCTION PRECEDES AN RJ *RS*  ( UP / NR )                   MCG       974
                                                                                                                 MCG       975
           264  0100000403 +             RJRS     RJ     FBR         REGNO = FBR( R1RS )                         FCC0641    17
           265  0730000221 +                      MI     B3,DRR      IF ACT < 0    */ NO B-REG FOUND             FCC0641    18
                          5226000046 C            SA2    TRA+X6                    */ ADJUST ISSUE TIME          MCG       986
           266  63220                             SB2    X2                                                      MCG       987
                     0652000270 +                 LE     B2,B5,RJRS1 T(IS) = MAX( T(IS) , TRA(REGNO) )           MCG       988
                               63420              SB4    X2                                                      MCG       989
           267  66520                             SB5    B2                                                      MCG       990
                                                                                                                 MCG       991
           270  10744                    RJRS1    BX7    X4                                                      MCG       992
                     20722                        LX7    D.TYP-1-D.PSP                                           MCG       993
                          0327000240 +            PL     X7,SCR      IF ^PS[DI]                                  MCG       994
  
  
  
                                        *         INSTRUCTION PRECEDES A STORE                                   MCG       996
                                                                                                                 MCG       997
           271  5110000012 C             PS       FXR    ST,DRR2     REGNO = FXR( ST )                           MCG       998
           276  0400000221 +                      EQ     DRR                                                     MCG       999
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    21
        DRR - DETERMINE RESULT REGISTER / T(EX)                       PRS                 DRR 
  
                                        *         INSTRUCTION PRECEDES A *RS* ( REG STORE )                      MCG      1001
                                                                                                                 MCG      1002
           277  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
           300  0100000344 +                      RJ     CRU         ACT = CRU( REGNO )                          MCG      1007
           301  0730000221 +                      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
           302  0337000303 +                      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
                          0400000221 +            EQ     DRR2                                                    FCC0881    15
                                                                                                                 FCC0881    16
           303  5054777775               PRS1     SA5    "DI"-2      R1 = DI - 2                                 FCC0881    17
                          20534                   LX5    -R1.RJP                                                 FCC0881    18
                               15750              BX7    "RN"X5                                                  FCC0881    19
           304  53277                             SA2    "TB"+X7     LJ = BASE + RJ[R1]                          FCC0881    20
                                                  LX2    -I.REGP                                                 FCC0881    21
                     63220                        SB2    X2                                                      FCC0881    22
                          0523000221 +            NE     B2,B3,DRR2  IF REG[LJ] " REGNO                          FCC0881    23
                                                                                                                 FCC0881    24
           305  20540                             LX5    R1.RJP                                                  FCC0881    25
                                                  LX2    I.REGP      (X2) = LINK WORD OF PRED                    FCC2535    19
                     15750                        BX7    "RN"X5      RI = RN[R1]                                 FCC0881    26
                          0400000331 +            EQ     XMT1                                                    FCC0881    27
  
  
  
                                        *         LEVEL 2 LD/ST  ( DRL/DWL )                                     MCG      1019
                                                                                                                 MCG      1020
           306  20616                    LVL2     LX6    D.L2P-47+59-D.STP                                       MCG      1021
                     0326000240 +                 PL     X6,SCR      IF ^ST[DI]                                  MCG      1022
           307  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      1023
                          0400000316 +            EQ     ST                                                      MCG      1024
  
  
  
                                        *         LD - INSTRUCTION IS A LOAD                                     MCG      1026
                                                                                                                 MCG      1027
           310  5150000013 C             LD       SA5    ALR                                                     MCG      1028
                          5110000012 C            FXR    X5,LD1,DRR  REGNO = FXR( ALR )                          MCG      1029
           315                           LD1      BSS    0                                                       MCG      1030
                                         #MD      IFEQ   .CPU,74                                         ?6600   MCG      1031
                                                                                                                 MCG      1032
                                        *         INSTRUCTION CANNOT ISSUE UNTIL LAST STORE IS COMPLETE          MCG      1033
                                                                                                                 MCG      1034
                                                  SA2    LST                                                     MCG      1035
                                                  SB2    X2                                                      MCG      1036
                                                  LE     B2,B5,DRR2  T(IS) = MAX( T(IS) , LST )                  MCG      1037
                                                  SB5    X2                                                      MCG      1038
                                                  SB4    X2                                                      MCG      1039
                                         #MD      ENDIF                                                  '6600   MCG      1040
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    22
        DRR - DETERMINE RESULT REGISTER / T(EX)                       LD                  DRR 
  
           315  0400000221 +                      EQ     DRR2                                                    MCG      1041
  
  
  
                                        *         STORE INSTRUCTION                                              MCG      1043
                                                                                                                 MCG      1044
           316  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
           317  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
           320  0652000221 +                      LE     B2,B5,DRR2  T(IS/EX) = MAX( T(IS/EX) , TLS )            MCG      1062
                          63520                   SB5    X2                                                      MCG      1063
                               63420              SB4    X2                                                      MCG      1064
           321  0400000221 +                      EQ     DRR2                                                    MCG      1065
  
  
                                        *         JUMP INSTRUCTION                                               MCG      1067
                                                                                                                 MCG      1068
           322  7160000002               ECJ      SX6    2                                                       MCG      1069
                          5160000127 C            SA6    PC          PC = 2                                      MCG      1070
                                                                                                                 MCG      1071
           323  0100000461 +             JP       RJ     PJI         PROCESS THE JUMP                            MCG      1072
           324  66300                             SB3    B0          REGNO = 0                                   MCG      1073
                     0400000221 +                 EQ     DRR                                                     MCG      1074
  
  
                                        *         XMT/SXT INSTRUCTIONS                                           MCG      1076
                                                                                                                 MCG      1077
           325  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                              FCC2535    20
           326  43164                             MX1    -I.USESL+1                                              FCC2535    21
                     63320                        SB3    X2          REGNO = REG[LJ]                             FCC2535    22
                          20161                   LX1    I.USESP+1                                               FCC2535    23
                               15321              BX3    -X1*X2                                                  FCC2535    24
           327  0313000240 +                      NZ     X3,SCR      IF USES[LJ] " 1                             FCC2535    25
                          5113000015 C            SA1    RVT+B3                                                  MCG      1087
           330  0331000240 +                      MI     X1,SCR      IF LOCK[RVT(REGNO)]                         MCG      1088
                                                                                                                 MCG      1089
                                        *         ISSUE THE INSTRUCTION                                          MCG      1090
                                                                                                                 MCG      1091
           331  5173000015 C             XMT1     SA7    RVT+B3      RVT(REGNO) = RI                             FCC0881    28
                          76310                   SX3    B1                                                      FCC2535    26
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    23
        DRR - DETERMINE RESULT REGISTER / T(EX)                       XMT                 DRR 
  
                               20360              LX3    I.USESP                                                 FCC2535    27
           332  37623                             IX6    X2-X3       USES[LJ] = USES[LJ] - 1                     FCC2535    28
                     54620                        SA6    A2                                                      FCC2535    29
                          54541                   SA5    "DI"+B1     LI = DI + 1                                 MCG      1093
           333  0100000603 +                      RJ     AIL         CALL AIL( PI , LI , REGNO )                 MCG      1094
                                                  PRINT  II,(* XMT X*O1*   OMITTED*),B3                          FCC0881    29
           334  66300                             SB3    B0          ACT = 0                                     MCG      1095
                     0400000221 +                 EQ     DRR                                                     MCG      1096
  
  
  
                                        *         CONSTANT SHIFT INSTRUCTION                                     MCG      1098
                                                                                                                 MCG      1099
           335  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
           336  63330                             SB3    X3          REGNO = REG[LJ]                             MCG      1104
                     63220                        SB2    X2                                                      MCG      1105
                          0652000221 +            LE     B2,B5,DRR   T(IS/EX) = MAX( T(IS/EX) , TRA(REGNO) )     MCG      1106
           337  63420                             SB4    X2                                                      MCG      1107
                     63520                        SB5    X2                                                      MCG      1108
                          0400000221 +            EQ     DRR                                                     MCG      1109
  
  
  
                                        *         PSEUDO INSTRUCTIONS ( EOQ, BOS, EOS, DAR, DEF, RS, LAB, ENT )  MCG      1111
                                                                                                                 MCG      1112
           340  0100000521 +             PI       RJ     PPI                                                     MCG      1113
           341  66300                             SB3    B0          ACT = 0                                     MCG      1114
                     0400000221 +                 EQ     DRR                                                     MCG      1115
  
  
                                         #MD      IFLT   .CPU,74                                         '6400   MCG      1117
                                 221 +   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
                                                  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
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    24
        DRR - DETERMINE RESULT REGISTER / T(EX)                       GOT                 DRR 
  
                                                  SB2    X1                                                      MCG      1141
                                                  LE     B2,B4,DRR   T(EX) = MAX( T(EX) , TRA(REGNO) )           MCG      1142
                                                  SB4    X1                                                      MCG      1143
                                                  EQ     DRR                                                     MCG      1144
                                                                                                                 MCG      1145
                                        *         PROCESS TYPE III INSTRUCTION, *RI* IS ALWAYS A DEFINATION      MCG      1146
                                                                                                                 MCG      1147
                                         DRR5     AX7    1                                                       MCG      1148
                                                  ZR     X7,DRR      IF TYPE[DI] = II  */ HAS NO OPERANDS        MCG      1149
                                                  SA2    "DI"-B1     R2 = DI - 1                                 MCG      1150
                                                  LX2    -IH.RFP                                                 MCG      1151
                                                  BX3    "RN"X2      RF = RF[R2]                                 MCG      1152
                                                  ZR     X3,DRR      IF RF = 0                                   MCG      1153
                                                  SA2    "TB"+X3                                                 MCG      1154
                                                  LX2    -I.REGP                                                 MCG      1155
                                                  SA3    TRA+X2                                                  MCG      1156
                                                  SB2    X3                                                      MCG      1157
                                                  LE     B2,B4,DRR   T(EX) = MAX( T(EX) , TRA(REGNO) )           MCG      1158
                                                  SB4    B2                                                      MCG      1159
                                                  EQ     DRR                                                     MCG      1160
                                                                                                                 MCG      1161
                                         #MD      ENDIF                                                          MCG      1162
                                                  QUAL                                                           MCG      1163
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           342  5122000046 C             CRU0     SA2    TRA+B2                                                  MCG      1174
                          66320                   SB3    B2          REGNO = SAVE                                MCG      1175
                               63220              SB2    X2                                                      MCG      1176
           343  0652000344 +                      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
           344  0200400344 +             CRU      ROUTINE                                                        MCG      1181
           345  7163777751                        SX6    B3-26B                                                  FCC1056     9
                          0336000354 +            MI     X6,CRU1     IF REGNO < 26B  */ ^ A ST-REGISTER          FCC1056    10
           346  5110000000 X                      SA1    L.OTI                                                   FCC1056    11
                          0311000354 +            NZ     X1,CRU1     IF L.OTI " 0  */ IN JAM MODE                FCC1056    12
           347  5120000001 C                      SA2    N.SP                                                    FCC1056    13
                          7262777776              SX6    X2-1                                                    FCC1056    14
           350  0306000354 +                      ZR     X6,CRU1     IF N.SP = 1   */ ALL STORES ISSUED          FCC1056    15
                          76110                   SX1    B1                                                      FCC1056    16
                               76230              SX2    B3                                                      FCC1056    17
           351  13321                             BX3    X2-X1       OSR = XOR(REGNO,1)                          FCC1056    18
                     5213000015 C                 SA1    RVT+X3                                                  FCC1056    19
                               67271              SB2    "TB"-B1                                                 FCC1056    20
           352  53212                             SA2    B2+X1       DOS = BASE-1 + RI[RVT(OSR)]                 FCC1056    21
                     20225                        LX2    59-D.PRSP                                               FCC1056    22
                          0322000354 +            PL     X2,CRU1     IF ^PRS[DOS]                                FCC1056    23
                                                                                                                 FCC1056    24
           353  67301                             SB3    -B1         REGNO = -1    */ INDICATE REG NOT AVAIL     FCC1056    25
                     0400000344 +                 EQ     CRU                                                     FCC1056    26
                                                                                                                 FCC1056    27
           354  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
           355  5120000012 C                      SA2    AXR                                                     MCG      1185
                          5132000140 C            SA3    RBV+B2                                                  MCG      1186
           356  11623                             BX6    X2*X3                                                   MCG      1187
                     0316000342 +                 NZ     X6,CRU0     IF AXR & RBV(REGNO) " 0 */ REG IS AVAIL     MCG      1188
                               53317              SA3    "TB"+X1     LP = BASE + R                               MCG      1189
           357  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
           360  43672                             MX6    -D.TYL                                                  MCG      1194
                     0302000377 +                 ZR     X2,CRU4     IF U = 0                                    FCC1555X    4
           361  7252777775                        SX5    X2-2                                                    MCG      1196
                          15746                   BX7    -X6*X4                                                  MCG      1197
           362  0335000367 +                      MI     X5,CRU2     IF U = 1                                    FCC1056    29
                          0315000344 +            NZ     X5,CRU      IF U > 2                                    MCG      1199
                                                                                                                 MCG      1200
                                        *         CHECK 2 USES CASE                                              MCG      1201
                                                                                                                 MCG      1202
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    26
        CRU - CHECK REMAINING USES                                    CRU 
  
           363  0317000344 +                      NZ     X7,CRU      IF TYPE[DI] " I                             MCG      1203
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 MCG      1204
           364  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
           365  0312000344 +                      NZ     X2,CRU      IF RJ[R1] " R                               MCG      1209
                          15550                   BX5    "RN"X5                                                  MCG      1210
                               37275              IX2    X7-X5                                                   MCG      1211
           366  0302000342 +                      ZR     X2,CRU0     IF RJ[R1] = RK[R1]                          MCG      1212
                          0400000344 +            EQ     CRU                                                     MCG      1213
                                                                                                                 MCG      1214
           367  20773                    CRU2     LX7    -1                                                      FCC1056    30
                     0337000344 +                 MI     X7,CRU      IF TYPE[DI] = II ! IV                       MCG      1216
           370  0307000373 +                      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
           371  15750                             BX7    "RN"X5                                                  MCG      1223
                     37271                        IX2    X7-X1                                                   MCG      1224
                          0302000342 +            ZR     X2,CRU0     IF RF[R2] = R                               MCG      1225
           372  0400000344 +                      EQ     CRU                                                     MCG      1226
                                                                                                                 MCG      1227
           373  5054777775               CRU3     SA5    "DI"-2      R1 = DI - 2                                 FCC1056    32
                          20534                   LX5    -R1.RJP                                                 MCG      1229
                               15750              BX7    "RN"X5                                                  MCG      1230
           374  37217                             IX2    X1-X7                                                   MCG      1231
                     0302000342 +                 ZR     X2,CRU0     IF RJ[R1] = R                               MCG      1232
                               20520              LX5    R1.RJP-R1.RKP                                           MCG      1233
           375  15750                             BX7    "RN"X5                                                  MCG      1234
                     37217                        IX2    X1-X7                                                   MCG      1235
                          0302000342 +            ZR     X2,CRU0     IF RK[R1] = R                               MCG      1236
           376  0400000344 +                      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
           377  5054000002               CRU4     SA5    A4+2        R1RS = R1 + 2                               FCC1555X   10
                          10655                   BX6    X5                                                      FCC1555X   11
                               20645              LX6    59-R1.SOP-SO.LKP                                        FCC1555X   12
           400  0326000342 +                      PL     X6,CRU0     IF SOLK[R1RS] " 1  */ NOT A TEMP LOCK       FCC1555X   13
                          0100000403 +            RJ     FBR         FIND ANOTHER B-REGISTER                     FCC1555X   14
           401  0730000344 +                      MI     B3,CRU      IF ACT < 0    */ NONE FOUND                 FCC1555X   15
                          66230                   SB2    B3                                                      FCC1555X   16
           402  0400000342 +                      EQ     CRU0                                                    FCC1555X   17
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           403  0200400403 +             FBR      ROUTINE                                                        FCC0641    28
           404  20554                             LX5    -R1.SOP                                                 FCC0641    29
                     43266                        MX2    -SO.REGL                                                FCC0641    30
                          15652                   BX6    -X2*X5      REGNO = SOREG[R1RS]                         FCC0641    31
           405  0100000414 +                      RJ     CBR         ACT = CBR(REGNO)                            FCC0641    32
           406  0630000403 +                      PL     B3,FBR      IF ACT > 0                                  FCC0641    33
                                                                                                                 FCC0641    34
                          7160000007              SX6    7           REGNO = 7                                   FCC0641    35
           407  0100000414 +             FBR1     RJ     CBR         ACT = CBR(REGNO)                            FCC0641    36
           410  0630000412 +                      PL     B3,FBR2     IF ACT > 0                                  FCC0641    37
                          7266777776              SX6    X6-1        REGNO = REGNO - 1                           FCC0641    38
           411  0316000407 +                      NZ     X6,FBR1     IF REGNO " 0                                FCC0641    39
                          0400000403 +            EQ     FBR                                                     FCC0641    40
                                                                                                                 FCC0641    41
           412  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
           413  0400000403 +                      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
           414  0200400414 +             CBR      ROUTINE                                                        FCC0641    54
           415  6236000000                        SB3    X6+         ACT = REGNO                                 FCC0641    55
                          5216000015 C            SA1    RVT+X6                                                  FCC0641    56
           416  0301000414 +                      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
           417  20360                             LX3    I.USESP                                                 FCC0641    60
                     15313                        BX3    -X3*X1                                                  FCC0641    61
                          0313000423 +            NZ     X3,CBR1     IF USES[LIP] " 0                            FCC0641    62
           420  55111                             SA1    A1-B1       DIP = LIP - 1                               FCC0641    63
                     20125                        LX1    59-D.PRSP                                               FCC0641    64
                          0321000423 +            PL     X1,CBR1     IF ^PRS[DIP]                                FCC0641    65
           421  5011000002                        SA1    A1+2        R1P = DIP + 2                               FCC0641    66
                          20141                   LX1    59-R1.SOP-SO.SFLP                                       FCC0641    67
           422  0331000414 +                      MI     X1,CBR      IF SFL[R1P]   */ CAN REUSE THE REGISTER     FCC0641    68
                                                                                                                 FCC0641    69
           423  67301                    CBR1     SB3    -B1         ACT = -1                                    FCC0641    70
                     0400000414 +                 EQ     CBR                                                     FCC0641    71
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           424  63510                    FXR0     SB5    X1          T(IS) = BT                                  MCG      1252
                     10366                        BX3    X6                                                      MCG      1253
                          6241000000              SB4    X1+         T(EX) = BT                                  MCG      1254
                                                                                                                 MCG      1255
           425  0200400425 +             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
           426  5120000124 C             FXR2     SA2    LXR                                                     MCG      1286
                          43772                   MX7    -D.TYL                                                  MCG      1287
                               15652              BX6    -X2*X5      CLASS = ^LXR & CLASS                        MCG      1288
           427  15547                             BX5    -X7*X4                                                  MCG      1289
                     0305000440 +                 ZR     X5,FXR3     IF TYPE[DI] = I                             MCG      1290
                               23715              AX7    B1,X5                                                   MCG      1291
           430  0307000425 +                      ZR     X7,FXR      IF TYPE[DI] = II  */ NO OPERANDS            MCG      1292
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           431  15750                             BX7    "RN"X5      RF = RF[R2]                                 MCG      1298
                     0307000425 +                 ZR     X7,FXR      IF RF = 0                                   MCG      1299
                               53277              SA2    "TB"+X7     LP = BASE + RF                              MCG      1300
           432  5212000140 C                      SA1    RBV+X2      REGB = RBV( REG[LP] )                       MCG      1301
                          43364                   MX3    -I.USESL+1                                              MCG      1302
                               11616              BX6    X1*X6                                                   MCG      1303
           433  0306000425 +                      ZR     X6,FXR      IF REGB & CLASS = 0                         MCG      1304
                          63320                   SB3    X2                                                      MCG      1305
                               20213              LX2    -I.USESP-1                                              MCG      1306
           434  15723                             BX7    -X3*X2                                                  MCG      1307
                     0317000425 +                 NZ     X7,FXR      IF USES[LP] " 1                             MCG      1308
                                                                                                                 MCG      1309
           435  5123000046 C             FXR2A    SA2    TRA+B3                                                  MCG      1310
                          76330                   SX3    B3          REGNO = REG[LP]                             MCG      1311
                               63220              SB2    X2                                                      MCG      1312
           436  0652000425 +                      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
           437  0400000425 +                      EQ     FXR                                                     MCG      1316
                                                                                                                 MCG      1317
                                        *         CHECK OPERANDS OF TYPE I INSTRUCTION                           MCG      1318
                                                                                                                 MCG      1319
           440  10244                    FXR3     BX2    X4                                                      MCG      1320
                     5054777775                   SA5    "DI"-2      R1 = DI - 2                                 MCG      1321
                               20222              LX2    D.TYP-D.TYIOP                                           MCG      1322
           441  15727                             BX7    -X7*X2                                                  MCG      1323
                     5217000001 +                 SA1    TYIOM+X7                                                MCG      1324
                               43310              MX3    I.USESL-1                                               MCG      1325
           442  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
           443  6130000000                        SB3    0           RG = 0                                      MCG      1330
                          6120400000              SB2    -T(INF)     TB = *INFINITY*                             MCG      1331
                                                                                                                 MCG      1332
           444  15750                    FXR4     BX7    "RN"X5      R = RN[RNUMS]                               MCG      1333
                     21520                        AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-16)                    MCG      1334
                          0307000447 +            ZR     X7,FXR5     IF R = 0                                    MCG      1335
           445  53277                             SA2    "TB"+X7     LP = BASE + R                               MCG      1336
                     11132                        BX1    X3*X2                                                   MCG      1337
                          0301000451 +            ZR     X1,FXR6     IF USES[LP] = 1                             MCG      1338
           446  13757                             BX7    X5-X7                                                   MCG      1339
                     0307000455 +                 ZR     X7,FXR7     IF RJ = RK                                  MCG      1340
           447  0315000444 +             FXR5     NZ     X5,FXR4     IF RNUMS " 0                                MCG      1341
                          0530000435 +            NZ     B3,FXR2A    IF RG " 0     */ WINNER FOUND               MCG      1342
           450  77301                             SX3    -B1         REGNO = -1                                  MCG      1343
                     0400000425 +                 EQ     FXR                                                     MCG      1344
                                                                                                                 MCG      1345
           451  5212000140 C             FXR6     SA1    RBV+X2                                                  MCG      1346
                          11716                   BX7    X1*X6                                                   MCG      1347
           452  0307000447 +                      ZR     X7,FXR5     IF CLASS & RBV(REG[LP]) = 0                 MCG      1348
                          5212000046 C            SA1    TRA+X2                                                  MCG      1349
           453  73712                             SX7    X1+B2                                                   MCG      1350
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    30
        FXR - FIND AN AVAILABLE X-REGISTER                            FXR 
  
                     0327000447 +                 PL     X7,FXR5     IF TRA(REG[LP]) \ TB                        MCG      1351
                               14111              BX1    -X1                                                     MCG      1352
           454  63320                             SB3    X2          RG = REG[LP]                                MCG      1353
                     63210                        SB2    X1          TB = TRA(RG)                                MCG      1354
                          0400000447 +            EQ     FXR5                                                    MCG      1355
                                                                                                                 MCG      1356
                                        *         TYPE I  &  RJ = RK                                             MCG      1357
                                                                                                                 MCG      1358
           455  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
           456  7272777775                        SX7    X2-2                                                    MCG      1363
                          0317000425 +            NZ     X7,FXR      IF USES[LP] " 2                             MCG      1364
                                                                                                                 MCG      1365
           457  5123000140 C                      SA2    RBV+B3                                                  MCG      1366
                          11626                   BX6    X2*X6                                                   MCG      1367
           460  0306000425 +                      ZR     X6,FXR      IF RBV(REGNO) & CLASS = 0                   MCG      1368
                          0400000435 +            EQ     FXR2A                                                   MCG      1369
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           461  0200400461 +             PJI      ROUTINE                                                        MCG      1378
           462  43172                             MX1    -D.TYL                                                  MCG      1379
                     43700                        MX7    0                                                       MCG      1380
                          66300                   SB3    B0          REGNO = 0                                   MCG      1381
                               12614              BX6    X1+X4                                                   MCG      1382
           463  5170000130 C                      SA7    TRS         TRS = 0                                     MCG      1383
                          0306000473 +            ZR     X6,PJI2     IF TYPE[DI] = IV                            MCG      1384
                                                                                                                 MCG      1385
                                        *         DETERMINE EXECUTION TIME OF CONDITIONAL JP                     MCG      1386
                                                                                                                 MCG      1387
           464  55141                             SA1    "DI"-B1     R2 = DI - 1                                 MCG      1388
                     20130                        LX1    -IH.RFP                                                 MCG      1389
                          15610                   BX6    "RN"X1      R = RF[R2]                                  MCG      1390
           465  0306000470 +                      ZR     X6,PJI1     IF R = 0                                    MCG      1391
                          53367                   SA3    "TB"+X6     LJ = BASE + R                               MCG      1392
                                                  LX3    -I.REGP                                                 MCG      1393
           466  5223000046 C                      SA2    TRA+X3                                                  MCG      1394
                          63220                   SB2    X2                                                      MCG      1395
           467  0642000470 +                      LE     B2,B4,PJI1  T(EX) = MAX( T(EX) , TRA(REG[LJ]) )         MCG      1396
                          63420                   SB4    X2                                                      MCG      1397
           470  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
           471  5223000046 C                      SA2    TRA+X3                                                  MCG      1403
                          63220                   SB2    X2                                                      MCG      1404
           472  0642000473 +                      LE     B2,B4,PJI2  T(EX) = MAX( T(EX) , TRA(REGNO) )           MCG      1405
                          63420                   SB4    X2                                                      MCG      1406
                                                                                                                 MCG      1407
           473  54541                    PJI2     SA5    "DI"+B1     LI = DI + 1                                 MCG      1408
                     0100000603 +                 RJ     AIL         ADJUST THE ISSUE LIST                       MCG      1409
           474  0100000626 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG      1410
           475  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      1411
                          0100000750 +            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
           476  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      1423
                          26525                   UX5    B2,X5                                                   MCG      1424
           477  7172777707                        SX7    B2-OC.JIN                                               MCG      1425
                          0337000511 +            MI     X7,PJI5     IF OC[R1] < OC.JIN  */ A CONDITIONAL JP     MCG      1426
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    32
        PJI - PROCESS JUMP INSTRUCTION                                PJI 
  
                                        *         PROCESS UNCONDITIONAL JUMPS ( UJP / RJX / JIN )                MCG      1428
                                                                                                                 MCG      1429
           500  54440                             S"DI"  "DI"                                                    FCC2535    30
                     0100000151 +                 RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE              FCC2535    31
           501  0100000726 +                      RJ     AVC         ADVANCE CLOCK                               MCG      1430
           502  5110000131 C                      SA1    JLR                                                     MCG      1431
                          5130000012 C            SA3    AXR                                                     FCC1442     6
           503  43600                             MX6    0                                                       FCC1442     7
                     5160000172 C                 SA6    /JAM/ISC    ISC = 0       */ CLEAR ISSUED STORE CHAIN   FCC1442     8
                               43715              MX7    13                                                      FCC1442     9
           504  0301000461 +                      ZR     X1,PJI      IF JLR = 0    */ NO UJP LOCKED REGISTERS    FCC1442    10
                                                                                                                 FCC1442    11
           505  27101                    PJI4     PX1    X1                                                      MCG      1437
                     24521                        NX5    B2,X1       REGNO = NORMC( JLR )                        MCG      1438
                          5122000140 C            SA2    RBV+B2                                                  MCG      1439
           506  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
           507  15115                             BX1    -X5*X1      JLR = ^MASK(13+REGNO) & JLR                 MCG      1443
                     0311000505 +                 NZ     X1,PJI4     IF JLR " 0                                  MCG      1444
                               10733              BX7    X3                                                      MCG      1445
           510  54730                             SA7    A3                                                      MCG      1446
                     54610                        SA6    A1                                                      MCG      1447
                          0400000461 +            EQ     PJI                                                     MCG      1448
                                                                                                                 MCG      1449
                                        *         CONDITIONAL JUMP, ADVANCE CLOCK, PARCEL COUNT                  MCG      1450
                                                                                                                 MCG      1451
           511  54440                    PJI5     SA4    "DI"                                                    MCG      1452
                     43167                        MX1    -D.FTL                                                  MCG      1453
                          5120000127 C            SA2    PC                                                      MCG      1454
           512  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
           513  7232777774                        SX3    X2-3                                                    MCG      1459
                          5170000126 C            SA7    T                                                       MCG      1460
           514  0323000516 +                      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
           515  15623                             BX6    -X3*X2                                                  MCG      1464
           516  54620                    PJI6     SA6    A2                                                      MCG      1465
                     0400000461 +                 EQ     PJI                                                     MCG      1466
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           517                                    PROCESS (BOS,EOS)                                              MCG      1472
           517  54541                    PPI0     SA5    "DI"+B1     LI = DI + 1                                 MCG      1473
                     0100000603 +                 RJ     AIL         CALL AIL( PI , LI , REGNO )                 MCG      1474
           520  0100000151 +                      RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE              FCC2535    32
                                                                                                                 MCG      1475
           521  0200400521 +             PPI      ROUTINE                                                        MCG      1476
                                                  PRNT   PPI,II,SAVPBI                                           MCG      1477
           522  26725                             UX7    B2,X5                                                   MCG      1478
                     66300                        SB3    B0          REGNO = 0                                   MCG      1479
                          0222001032 +            JP     PPI.JT+B2   JUMP( PPI.JT( OC[R1] ) )                    MCG      1480
  
  
                                        *         DAR  RI,RJ - DEFINE A-REGISTER R-NUMBER                        MCG      1482
                                                                                                                 MCG      1483
           523                                    PROCESS DAR                                                    MCG      1484
           523  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
           524  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
           525  0100000626 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG      1500
           526  66450                             SB4    B5          T(EX) = T(IS)                               MCG      1501
                     0400000517 +                 EQ     PPI0                                                    MCG      1502
  
  
                                        *         DEF  RI,SOREG      DEFINE RI TO BE IN *SOREG*                  MCG      1504
                                                                                                                 MCG      1505
           527                                    PROCESS DEF                                                    MCG      1506
           527  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
           530  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
           531  5110000012 C                      SA1    AXR                                                     FCC0603   101
                          5123000140 C            SA2    RBV+B3                                                  FCC0603   102
           532  15612                             BX6    -X2*X1      AXR = ^RBV(REGNO) & AXR                     FCC0603   103
                     54610                        SA6    A1                                                      FCC0603   104
                          0325000517 +            PL     X5,PPI0     IF SOLK[R1] = 0  */ NOT FULL /A-REG LOCK    FCC0603   105
           533  20501                             LX5    1                                                       FCC0603   106
                     0335000536 +                 MI     X5,PPI4     IF SOLK[R1] = 3  */ A-REG LOCK              FCC0603   107
                                                                                                                 FCC0603   108
                               43301              MX3    1                                                       FCC0603   109
           534  5110000124 C                      SA1    LXR                                                     FCC0603   110
                          12737                   BX7    X3+X7       LOCK[RVT(REGNO)] = 1                        MCG      1519
                               54770              SA7    A7                                                      MCG      1520
           535  12612                             BX6    X1+X2       LXR = LXR ! RBV(REGNO)                      MCG      1521
                     54610                        SA6    A1                                                      MCG      1522
                          0400000517 +            EQ     PPI0                                                    FCC0603   111
                                                                                                                 FCC0603   112
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    34
        PPI - PROCESS PSEUDO INSTRUCTION                              DEF 
  
           536  5110000013 C             PPI4     SA1    ALR                                                     FCC0603   113
                          15612                   BX6    -X2*X1      ALR = ^RBV(REGNO) & ALR                     FCC0603   114
                               54610              SA6    A1                                                      FCC0603   115
           537  0400000517 +                      EQ     PPI0                                                    FCC0603   116
  
  
  
                                        *         LAB/ENT  IH,CA                                                 MCG      1530
                                                                                                                 MCG      1531
           540                                    PROCESS (LAB,ENT)                                              MCG      1532
           540  54541                             SA5    "DI"+B1     LI = DI + 1                                 MCG      1533
                     0100000603 +                 RJ     AIL         CALL AIL( PI , LI , 0 )                     MCG      1534
           541  0100000151 +                      RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE              FCC2535    33
           542  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      1535
                          0100000750 +            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
           543  0100000726 +             PPI6    RJ      AVC         ADVANCE THE CLOCK                           FCC2535    34
           544  0400000521 +                      EQ     PPI                                                     MCG      1546
  
  
                                        *         RS  RI,LK,SOREG - REGISTER STORE PROCESSING                    MCG      1548
                                                                                                                 MCG      1549
           545                                    PROCESS RS                                                     MCG      1550
           545  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
           546  20566                             LX5    -SO.LKP                                                 MCG      1555
                     43372                        MX3    -SO.LKL                                                 MCG      1556
                          15253                   BX2    -X3*X5                                                  MCG      1557
                               63220              SB2    X2                                                      MCG      1558
           547  0222000550 +                      JP     PPI7+B2     JUMP( SOLK[R1] )                            FCC0603   117
                                                                                                                 FCC0603   118
           550                           PPI7     BSS    0                                                       FCC0603   119
      L      0                                    LOC    0                                                       MCG      1562
      L      0  5110000131 C                      SA1    JLR                                                     MCG      1563
                          0400000564 +            EQ     PPI10                                                   MCG      1564
      L      1  0400000517 +                      EQ     PPI0        */ TEMP LOCK                                MCG      1565
      L      2  0400000566 +                      EQ     PPI11                                                   MCG      1566
           553                                    LOC    *O                                                      MCG      1567
                                                                                                                 MCG      1568
                                        *         RJ REGISTER STORE                                              MCG      1569
                                                                                                                 MCG      1570
           553  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
           554  43263                             MX2    -I.USESL                                                MCG      1574
                     20314                        LX3    I.REGP-I.USESP                                          MCG      1575
                          5276000015 C            SA7    RVT+X6      RVT(REGNO) = RI                             MCG      1576
           555  5276000172 C                      SA7    /JAM/LRN+X6 LRN(REGNO) = RI                             FCC0641    72
                          63360                   SB3    X6                                                      MCG      1577
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    35
        PPI - PROCESS PSEUDO INSTRUCTION                              RS
  
                               10611              BX6    X1                                                      MCG      1578
           556  5163000046 C                      SA6    TRA+B3      TRA(REGNO) = TRA(XREG)                      MCG      1579
                          15632                   BX6    -X2*X3                                                  MCG      1580
           557  0316000562 +                      NZ     X6,PPI8     IF USES[DI-3] " 0  */ X-RESULT USED         FCC0603   120
                          20360                   LX3    I.USESP-I.REGP                                          MCG      1582
           560  5213000140 C                      SA1    RBV+X3                                                  MCG      1583
                          5120000012 C            SA2    AXR                                                     MCG      1584
           561  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
           562  5110000012 C             PPI8     SA1    AXR                                                     FCC0603   121
                          5123000140 C            SA2    RBV+B3                                                  FCC0603   122
           563  15612                             BX6    -X2*X1      AXR = ^RBV(REGNO) & AXR                     FCC0603   123
                     54610                        SA6    A1                                                      FCC0603   124
                          0400000517 +            EQ     PPI0                                                    FCC0603   125
  
  
                                        *         UJP LOCK - SET TO CLEAR WHEN NEXT UJP/RJX/JIN ENCOUNTERED      MCG      1590
                                                                                                                 MCG      1591
           564  6226777720               PPI10    SB2    X6-47                                                   MCG      1592
                          76310                   SX3    B1                                                      MCG      1593
                               23223              AX2    B2,X3                                                   MCG      1594
           565  12621                             BX6    X2+X1       JLR = SHIFT(1,47-REGNO) ! JLR               MCG      1595
                     54610                        SA6    A1                                                      MCG      1596
                          0400000517 +            EQ     PPI0                                                    MCG      1597
                                                                                                                 MCG      1598
                                        *         FULL LOCK - SET LOCK BITS IN *LXR* AND *RVT*                   MCG      1599
                                                                                                                 MCG      1600
           566  5256000015 C             PPI11    SA5    RVT+X6                                                  MCG      1601
                          5216000140 C            SA1    RBV+X6                                                  MCG      1602
           567  5130000124 C                      SA3    LXR                                                     MCG      1603
                          43201                   MX2    1                                                       MCG      1604
                               12625              BX6    X2+X5       LOCK[RVT(REGNO)] = 1                        MCG      1605
           570  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
           571  54730                             SA7    A3                                                      MCG      1610
                     37652                        IX6    X5-X2       USES[LI] = USES[LI] - 1                     MCG      1611
                          54650                   SA6    A5                                                      MCG      1612
           572  0400000517 +                      EQ     PPI0                                                    MCG      1613
  
  
                                        *         EOQ - TERMINATE *PIT* BUFFER, EXIT TO EOQ ADDRESS              MCG      1615
                                                                                                                 MCG      1616
           573                                    PROCESS EOQ                                                    MCG      1617
           573  5150000577 +                      SA5    PPIB                                                    MCG      1618
                          0100000750 +            RJ     SII         SII( NOP )                                  MCG      1619
           574  5130000135 C                      SA3    IIP                                                     MCG      1620
                          54431                   SA4    A3+B1                                                   MCG      1621
                               37634              IX6    X3-X4       L.PIT = IIP(1) - IIP(2)                     MCG      1622
           575  5110000134 C                      SA1    EOQA                                                    MCG      1623
                          5160000000 X            SA6    L.PIT                                                   MCG      1624
           576  63210                             SB2    X1                                                      MCG      1625
                     0222000000                   JP     B2          JUMP( EOQA )                                MCG      1626
                                                                                                                 MCG      1627
           577  20460000000000000000     PPIB     VFD    12/2000B+OC.NOP,48/0                                    MCG      1628
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           600  43055                    AIL0     MX0    -R1.RIL+1                                               MCG      1648
                     55451                        SA4    A5-B1       DI = LI - 1                                 MCG      1649
                          20001                   LX0    1           (X0) = R-NUMBER EXTRACTOR MASK              MCG      1650
                               56170              SA1    "TB"                                                    MCG      1651
           601  0560000603 +                      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
           602  5160000003 C                      SA6    ICL                                                     MCG      1655
                          5177000000              SA7    "TB"+       LINK[*BOS*] = 0                             MCG      1656
                                                                                                                 MCG      1657
           603  0200400603 +             AIL      ROUTINE                                                        MCG      1658
           604  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
           605  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
           606  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
           607  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
           610  43755                             MX7    -I.INDXL                                                MCG      1677
                     5120000000 X                 SA2    O.TREE                                                  MCG      1678
                               20533              LX5    -I.INDXP                                                MCG      1679
           611  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
           612  53220                             SA2    X2          UI = O.TREE + INDX[LI]                      FCC1056    33
                     0400000617 +                 EQ     AIL3                                                    MCG      1685
                                                                                                                 MCG      1686
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    37
        AIL - ADJUST ISSUE LIST                                       AIL 
  
                                        *         LINK THIS TO NEXT, LAST TO THIS                                MCG      1687
                                                                                                                 MCG      1688
           613  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
           614  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
           615  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
           616  54610                    AIL2     SA6    A1                                                      MCG      1704
                     0332000600 +                 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
           617  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
           620  0521000616 +                      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
           621  0335000613 +             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
           622  15437                             BX4    -X7*X3      RN = LST[NI]                                MCG      1722
                     37514                        IX5    X1-X4                                                   MCG      1723
                          0400000621 +            EQ     AIL4                                                    MCG      1724
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           623  0334000626 +             DUC0     MI     X4,DUC      IF ^D[DI] ! TYPE[DI] = IV                   MCG      1736
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 MCG      1737
           624  5113000140 C                      SA1    RBV+B3                                                  MCG      1738
                          5120000012 C            SA2    AXR                                                     MCG      1739
           625  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
           626  0200400626 +             DUC      ROUTINE                                                        MCG      1745
                                                  LX4    58-D.TYP                                                MCG      1746
           627  36744                             IX7    X4+X4                                                   MCG      1747
                     6160000015 C                 SB6    RVT                                                     MCG      1748
                               43672              MX6    -D.TYIOL                                                MCG      1749
           630  0337000623 +                      MI     X7,DUC0     IF TYPE[DI] = II ! IV                       MCG      1750
                                                                                                                 MCG      1751
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 MCG      1752
           631  0324000635 +                      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
           632  15750                             BX7    "RN"X5      RI = RI[R1]                                 MCG      1759
                     20330                        LX3    -IH.RFP                                                 MCG      1760
                          15530                   BX5    "RN"X3      RNUMS = RF[R2]                              MCG      1761
           633  0324000637 +                      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
           634  0400000637 +                      EQ     DUC2                                                    MCG      1765
                                                                                                                 MCG      1766
                                        *         TYPE I INSTRUCTION                                             MCG      1767
                                                                                                                 MCG      1768
           635  20424                    DUC1     LX4    2+D.TYP-D.TYIOP                                         MCG      1769
                     15746                        BX7    -X6*X4                                                  MCG      1770
                          5237000001 +            SA3    TYIOM+X7                                                MCG      1771
           636  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
           637  43110                    DUC2     MX1    I.USESL-1                                               MCG      1779
                     76710                        SX7    B1                                                      MCG      1780
                          20171                   LX1    I.USESL+I.USESP                                         MCG      1781
                               15350              BX3    "RN"X5      R = RI[RNUMS]                               MCG      1782
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    39
        DUC - DECREMENT USES COUNTS                                   DUC 
  
           640  20760                             LX7    I.USESP                                                 MCG      1783
                     0315000643 +                 NZ     X5,DUC4     IF RNUMS " 0                                MCG      1784
           641  0400000623 +                      EQ     DUC0                                                    MCG      1785
                                                                                                                 MCG      1786
                                        *         DECREMENT USES COUNTS OF OPERANDS, ADJUST *AXR*, *RVT*         MCG      1787
                                                                                                                 MCG      1788
           642  21520                    DUC3     AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                MCG      1789
                     0305000623 +                 ZR     X5,DUC0     IF RNUMS = 0                                MCG      1790
                               15350              BX3    "RN"X5      R = RI[RNUMS]                               MCG      1791
           643  53237                    DUC4     SA2    "TB"+X3     LP = BASE + R                               MCG      1792
                     0303000642 +                 ZR     X3,DUC3     IF R = 0                                    MCG      1793
                               37627              IX6    X2-X7       USES[LP] = USES[LP] - 1                     MCG      1794
           644  11312                             BX3    X1*X2                                                   MCG      1795
                     54620                        SA6    A2                                                      MCG      1796
                          0313000642 +            NZ     X3,DUC3     IF USES[LP] " 0                             MCG      1797
                                                  LX2    -I.REGP     REGP = REG[LP]                              MCG      1798
           645  53326                             SA3    B6+X2                                                   MCG      1799
                     0333000642 +                 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
           646  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
           647  5232000140 C                      SA3    RBV+X2                                                  MCG      1808
                          5120000012 C            SA2    AXR                                                     MCG      1809
           650  12632                             BX6    X3+X2                                                   MCG      1810
                     54620                        SA6    A2          AXR = RBV(REGP) ! AXR                       MCG      1811
                          0400000642 +            EQ     DUC3                                                    MCG      1812
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           651  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
           652  0200400652 +             ASC      ROUTINE                                                        MCG      1831
           653  43772                             MX7    -D.LDSTL                                                MCG      1832
                     20432                        LX4    -D.LDSTP                                                MCG      1833
                          5120000007 C            SA2    PBI+1                                                   MCG      1834
           654  15147                             BX1    -X7*X4                                                  MCG      1835
                     0301000701 +                 ZR     X1,ASC7     IF LDST[DI] = 0                             MCG      1836
                                         #DAL     IFNE   .DAL,0                                                  MCG      1837
                               10344              BX3    X4                                                      MCG      1838
           655  20371                             LX3    D.LDSTP+59-D.L2P                                        MCG      1839
                     0333000701 +                 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
           656  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
           657  7174000001                        SX7    B4+"INCT"   TFU(F) = T(EX) + INC TIME                   MCG      1850
                          20413                   LX4    D.LDSTP-D.SZP                                           MCG      1851
           660  5221000713 +                      SA2    TSL+X1                                                  MCG      1852
                          6233000010              SB3    X3+RN.A0    REGNO = A0 + RN                             MCG      1853
                                         #MD      IFGE   .CPU,74                                         ?66/76  MCG      1854
                                                  SA7    TFU+B2                                                  MCG      1855
                                                  SA7    TRA+RN.A0+X3      TRA(A0+RN) = T(EX) + INC TIME         MCG      1856
                                                  SX6    X2+B4                                                   MCG      1857
                                                  SA6    TRA+RN.X0+X3      TRA(X0+RN) = T(EX) + TSL(I)           MCG      1858
                                                  SA6    LST+X1      LST(I) = T(EX) + TSL(I)                     MCG      1859
                                         #MD      ENDIF                                                  '66/76  MCG      1860
                                                                                                                 MCG      1861
                                         #MD      IFEQ   .CPU,76                                         ?7600   MCG      1862
                                                  SA2    T                                                       MCG      1863
                                                  SA3    TRS         BIT = 0                                     MCG      1864
                                                  SX5    B1                        */ ADJUST BIT VECTOR BASE     MCG      1865
                                                  IX7    X5-X2                                                   MCG      1866
                                                  SB6    B4+X7                                                   MCG      1867
                                                  AX6    B6,X3       TRS = SHIFT( TRS , -( T(EX)+1-T ) )         MCG      1868
                                                  SA6    A3                                                      MCG      1869
                                         #MD      ENDIF                                                  '7600   MCG      1870
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    41
        ASC - ADVANCE SIMULATION CLOCKS                               ASC 
  
                                                                                                                 MCG      1871
                                        *         CHECK FOR TRANSFORMATION TO SHORT LD/ST                        MCG      1872
                                                                                                                 MCG      1873
           661  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
           662  15637                             BX6    -X7*X3      LD[R2W] = 0   */ CLEAR APL LD BIT           FCC0881    31
                     0301000700 +                 ZR     X1,ASC5     IF ^(SR[DI] ! FP[DI])                       MCG      1879
           663  6120000075 C                      SB2    ARA-1                                                   MCG      1880
                          56621                   SA6    B2+B1       ARA(0) = [R2] */ SET SEARCH TERMINATOR      MCG      1881
           664  0321000671 +                      PL     X1,ASC3     IF ^SR[DI]                                  MCG      1882
                                                                                                                 MCG      1883
                          5120000105 C            SA2    ARA+7       I = ARA(7)                                  MCG      1884
           665  13562                    ASC1     BX5    X6-X2                                                   MCG      1885
                     55221                        SA2    A2-B1       I = I - 1                                   MCG      1886
                          0315000665 +            NZ     X5,ASC1     IF [I] " [R2]                               MCG      1887
           666  75722                             SX7    A2-B2                                                   MCG      1888
                     0307000670 +                 ZR     X7,ASC2     IF I = 0      */ MATCH WITH SEARCH TERMIN   MCG      1889
                               76410              SX4    B1          SZ[DI] = 1                                  MCG      1890
           667  5170000004 C                      SA7    RMR         RMR = I - ARA(-1) */ SAVE A REG NUM         MCG      1891
                          0400000700 +            EQ     ASC5                                                    MCG      1892
                                                                                                                 MCG      1893
                                        *         CHECK FOR ELIMINATION OF F.P. ADDSUB                           MCG      1894
                                                                                                                 MCG      1895
           670  20101                    ASC2     LX1    D.SRP-D.FPP                                             MCG      1896
                     0321000700 +                 PL     X1,ASC5     IF ^FP[DI]                                  MCG      1897
           671  5120000105 C             ASC3     SA2    ARA+7                                                   MCG      1898
                          43752                   MX7    -IH.CAL                                                 MCG      1899
                               20722              LX7    IH.CAP                                                  MCG      1900
           672  13562                    ASC4     BX5    X6-X2                                                   MCG      1901
                     5022777776                   SA2    A2-1        I = I - 1                                   MCG      1902
                               11375              BX3    X7*X5                                                   MCG      1903
           673  0313000672 +                      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
           674  0301000700 +                      ZR     X1,ASC5     IF I = 0                                    MCG      1908
                          5163000066 C            SA6    ARA+B3-RN.A0                                            MCG      1909
           675  20652                             LX6    -IH.CAP                                                 MCG      1910
                     63660                        SB6    X6                                                      MCG      1911
                          20252                   LX2    -IH.CAP                                                 MCG      1912
                               63220              SB2    X2                                                      MCG      1913
           676  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
           677  5160000004 C                      SA6    RMR         RMR = IHINFO(0,CA,AREGNO)                   MCG      1918
                          0400000706 +            EQ     ASC9                                                    MCG      1919
                                                                                                                 MCG      1920
           700  5163000066 C             ASC5     SA6    ARA+B3-RN.A0                                            MCG      1921
                          0400000706 +            EQ     ASC9                                                    MCG      1922
                                                                                                                 MCG      1923
                                        *         LEVEL 2 LD/ST ( DRL/DWL )                                      MCG      1924
                                                                                                                 MCG      1925
                                         #DAL     IFNE   .DAL,0                                                  MCG      1926
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    42
        ASC - ADVANCE SIMULATION CLOCKS                               ASC 
  
           701                           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
           701  20466                    ASC7     LX4    D.LDSTP+59-D.PSP                                        MCG      1934
                     26222                        UX2    B2,X2       F = FU[PBI+1]                               MCG      1935
                          0324000704 +            PL     X4,ASC8     IF ^PS[DI]                                  MCG      1936
           702  5130000001 C                      SA3    N.SP                                                    MCG      1937
                          73631                   SX6    X3+B1       N.SP = N.SP + 1                             MCG      1938
                               54630              SA6    A3                                                      MCG      1939
           703  0316000704 +                      NZ     X6,ASC8     IF N.SP " 0                                 MCG      1940
                          5160000014 C            SA6    STL         STL = 0       */ CLEAR STORE LOCKOUT FLAG   MCG      1941
                                                                                                                 MCG      1942
           704  20457                    ASC8     LX4    1+D.PSP-D.FTP                                           MCG      1943
                     43567                        MX5    -D.FTL                                                  MCG      1944
                          15345                   BX3    -X5*X4                                                  MCG      1945
                               73634              SX6    B4+X3       TRA(REGNO) = T(EX) + FT[DI]                 MCG      1946
           705  20436                             LX4    D.FTP-D.SZP                                             MCG      1947
                                         #MD      IFLE   .CPU,74                                         ?6600   MCG      1948
                     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
           706  5110000127 C             ASC9     SA1    PC                                                      MCG      1972
                          43572                   MX5    -2                                                      MCG      1973
                               15245              BX2    -X5*X4      NP = SZ[DI]                                 MCG      1974
           707  36612                             IX6    X1+X2       PC = PC + NP                                MCG      1975
                                         #MD      IFEQ   .CPU,76                                         ?7600   MCG      1976
                                                  SX7    B5+1        T = T(EX) + 1                               MCG      1977
                                         #MD      ELSE                                                   ?6600   MCG      1978
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    43
        ASC - ADVANCE SIMULATION CLOCKS                               ASC 
  
                     73725                        SX7    B5+X2       T = T(IS) + NP                              MCG      1979
                                         #MD      ENDIF                                                  '6600   MCG      1980
                          11356                   BX3    X5*X6                                                   MCG      1981
           710  0303000651 +                      ZR     X3,ASC0     IF PC < 4                                   MCG      1982
                          5130000011 C            SA3    IWT                                                     MCG      1983
           711  15665                             BX6    -X5*X6      PC = MOD( PC , 4 )                          MCG      1984
                     0306000651 +                 ZR     X6,ASC0     IF PC = 0                                   MCG      1985
                               10622              BX6    X2          PC = NP                                     MCG      1986
           712  43300                             MX3    0           */ INTERWORD DELAY TAKEN CARE OF IN *SNI*   MCG      1987
                     0400000651 +                 EQ     ASC0                                                    MCG      1988
                                                                                                                 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
           713  00000000000000000011     TSL      CON    9,8         STORE/LOAD TIMES  *6600*                    MCG      2005
           714  00000000000000000010
                                         #MD      ENDIF                                                  '6600   MCG      2006
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      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
           715  54440                    AVC0     SA4    "DI"                                                    MCG      2014
                                                  LX4    -D.USESP                                                MCG      2015
                     43563                        MX5    -D.USESL                                                MCG      2016
                          5130000000 X            SA3    L.OTI                                                   MCG      2017
           716  0313000722 +                      NZ     X3,AVC1     IF L.OTI " 0  */ JAM MODE                   MCG      2018
                          16654                   BX6    -X4+X5                                                  MCG      2019
                               23316              AX3    B1,X6                                                   MCG      2020
           717  0303000722 +                      ZR     X3,AVC1     IF N.SP @ 1                                 MCG      2021
                          73661                   SX6    X6+B1                                                   MCG      2022
           720  5160000001 C                      SA6    N.SP        N.SP = -(USES[DI]-1)                        MCG      2023
                          7170737777              SX7    -FX.X6                                                  MCG      2024
           721  5170000014 C                      SA7    STL         STL = -FX.X6                                MCG      2025
                                                                                                                 MCG      2026
           722  5034777773               AVC1     SA3    "DI"-4      DL = DI - 4                                 MCG      2027
                          5110000743 +            SA1    AVCA                                                    MCG      2028
           723  16231                             BX2    -X1+X3                                                  MCG      2029
                     0302000726 +                 ZR     X2,AVC      IF BM[DL] & TYPE[DL] = IV                   MCG      2030
                               13666              SETZERO ARA+1,7    FOR I = 1 TO 7; ARA(I) = 0                  MCG      2031
                                                                                                                 MCG      2032
           726  0200400726 +             AVC      ROUTINE                                                        MCG      2033
           727  5110000003 C                      SA1    ICL                                                     MCG      2034
                          43255                   MX2    -I.LSTL                                                 MCG      2035
                               53317              SA3    "TB"+X1     L = BASE + ICL                              MCG      2036
           730  43700                             MX7    0                                                       MCG      2037
                     5170000127 C                 SA7    PC          PC = 0                                      MCG      2038
                               20352              LX3    -I.LSTP                                                 MCG      2039
           731  15632                             BX6    -X2*X3                                                  MCG      2040
                     5160000126 C                 SA6    T           T = LST[L]                                  MCG      2041
           732  5170000130 C                      SA7    TRS         TRS = 0                                     MCG      2042
                          5023777774              SA2    A3-3        R1 = L - 3                                  MCG      2043
           733  26322                             UX3    B2,X2                                                   MCG      2044
                     0420000726 +                 ZR     B2,AVC      IF OC[R1] = OC.EOQ                          MCG      2045
           734  6226777765                        SB2    X6-10                                                   MCG      2046
                          0742000715 +            GT     B2,B4,AVC0  IF T \ T(EX) + 10                           MCG      2047
           735  43207                             MX2    8-1                                                     MCG      2048
                     5170000075 C                 SA7    TRA+23                                                  MCG      2049
                               43600              MX6    0                                                       FCC1442    12
           736  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
           737  0332000736 +                      MI     X2,*-1                                                  FCC1442    14
                          43215                   MX2    14-1                                                    MCG      2053
           740  5170000106 C                      SA7    TFU                                                     MCG      2054
           741  20201                   +         LX2    1           FOR I = 1 TO 14, TFU(I) = 0                 MCG      2055
                     54771                        SA7    A7+B1                                                   MCG      2056
                          0332000741 +            MI     X2,*                                                    MCG      2057
           742  0400000715 +                      EQ     AVC0                                                    MCG      2058
                                                                                                                 MCG      2059
           743                           AVCA     BFMW   D,(TY,BM)                                               MCG      2060
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      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
  
  
  
                                        **        SI. - SAVED INSTRUCTION FORMAT ( *PIT* )                       MCG      2074
                                        *                                                                        MCG      2075
                                        *         TYPE I     OC,0,RK,RJ,RI                                       MCG      2076
                                        *                                                                        MCG      2077
                                        *         TYPE II    OC,IN,0,0,RI                                        MCG      2078
                                        *                                                                        MCG      2079
                                        *         TYPE III   OC,CA,IH,RF,RI + *H2* IN SECOND WORD IF *H2* BIT SE MCG      2080
                                        *                                                                        MCG      2081
                                        *         TYPE IV    OC,CA,0,IH    ( SAME AS RLIST FORMAT )              MCG      2082
                                                                                                                 MCG      2083
                                                  LIST   -R                                                      MCG      2084
                                                                                                                 MCG      2085
                                                  DESCRIBE SI.,60    SI(OC,CA,IH/RK,RJ,RI)                       MCG      2086
                                         H2       DEFINE 1           *H2* FIELD IN NEXT WORD                     MCG      2087
                                         OC       DEFINE 11          PACKED OPCODE                               MCG      2088
                                         CA       DEFINE 18          CONSTANT ADDEND                             MCG      2089
                                         IH       DEFINE 18          SYMBOL ORDINAL                              MCG      2090
                                         RJ       DEFINE 6                                                       MCG      2091
                                         RI       DEFINE 6                                                       MCG      2092
                                                                                                                 MCG      2093
                                         RK       DEQU   IH,6                                                    MCG      2094
                                                                                                                 MCG      2095
                                                  LIST   R                                                       MCG      2096
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    46
        SII - SAVE ISSUED INSTRUCTION                                 SII                 SII 
  
                                        *         TYPE 1 INSTRUCTION WITH 2 OPERANDS                             MCG      2098
                                                                                                                 MCG      2099
           744  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
           745  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
           746  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
           747  5273000000               SII0     SA7    X3+                                                     MCG      2115
                                                                                                                 MCG      2116
           750  0200400750 +             SII      ROUTINE            ** ENTRY/EXIT **                            MCG      2117
           751  5130000135 C                      SA3    IIP                                                     MCG      2118
                          26425                   UX4    B2,X5                                                   MCG      2119
                               76230              SX2    B3                                                      MCG      2120
           752  5112001032 +                      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
           753  63610                             SB6    X1                                                      MCG      2124
                     54630                        SA6    A3                                                      MCG      2125
                          0266000000              JP     B6          JUMP( SIIA( OC[R1] ) )                      MCG      2126
  
  
  
                                        *         TYPE 1 - RK = 0                                                MCG      2128
                                                                                                                 MCG      2129
           754                                    PROCESS (XMT,XMTC,CX,DRL,DWL)                                  MCG      2130
           754  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
           755  20206                             LX2    SI.RJP                                                  MCG      2136
                     12727                        BX7    X2+X7       [IIP-1] = SI(OC,0,REG[RJ],REG[RI])          MCG      2137
                          0400000747 +            EQ     SII0                                                    MCG      2138
                                                                                                                 MCG      2139
                                        *         TYPE I - RJ IS A DEF                                           MCG      2140
                                                                                                                 MCG      2141
           756                                    PROCESS (UP,NR,RNZ)                                            MCG      2142
           756  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
           757  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
           760  0306000747 +                      ZR     X6,SII0     IF RJ[R1] = 0                               MCG      2152
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    47
        SII - SAVE ISSUED INSTRUCTION                                 TYPEI               SII 
  
                          5015000004              SA1    A5+4        R1S = R1 + 4                                MCG      2153
           761  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
           762  36727                             IX7    X2+X7                                                   MCG      2158
                     0400000747 +                 EQ     SII0                                                    MCG      2159
                                                                                                                 MCG      2160
                                        *         TYPE II INSTRUCTION                                            MCG      2161
                                                                                                                 MCG      2162
           763  21436                    TYII     AX4    R1.INP                                                  MCG      2163
                     20436                        LX4    SI.CAP                                                  MCG      2164
                          12747                   BX7    X4+X7       [IIP-1] = SI(OC,IN[R1],0,0,REG[RI])         MCG      2165
           764  0400000747 +                      EQ     SII0                                                    MCG      2166
                                                                                                                 MCG      2167
           765                                    PROCESS (KLS,KRS)                                              MCG      2168
           765  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
           766  12727                             BX7    X2+X7       [IIP-1] = SI(OC,CA[R2],0,0,REG[RI])         MCG      2173
                     0400000747 +                 EQ     SII0                                                    MCG      2174
                                                                                                                 MCG      2175
                                        *         TYPE III JUMP INSTRUCTIONS                                     MCG      2176
                                                                                                                 MCG      2177
           767  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
           770  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
           771  12624                             BX6    X2+X4                                                   MCG      2188
                     36767                        IX7    X6+X7       [IIP-1] = SI(OC,0,IH[R2],REG[RF],REG[RI])   MCG      2189
                          0400000747 +            EQ     SII0                                                    MCG      2190
                                                                                                                 MCG      2191
                                        *         TYPE IV INSTRUCTIONS AND *NOP* ( BUFFER TERMINATOR )           MCG      2192
                                                                                                                 MCG      2193
           772                                    PROCESS NOP                                                    MCG      2194
           772  10755                    TYIV     BX7    X5          [IIP-1] = [R1]                              MCG      2195
                     0400000747 +                 EQ     SII0                                                    MCG      2196
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    48
        SII - SAVE ISSUED INSTRUCTION                                 SII                 SII 
  
                                        *         MEMORY REFERENCES                                              MCG      2198
                                                                                                                 MCG      2199
           773                                    PROCESS (LD,ST,STT,TLD,TST,ILD)                                MCG      2200
           773  5110000004 C                      SA1    RMR                                                     MCG      2201
                          43630                   MX6    -IH.CAIHL                                               MCG      2202
                               54251              SA2    A5+B1       R2 = R1 + 1                                 MCG      2203
           774  0311001003 +                      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
           775  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
           776  0561000777 +                      NE     B6,B1,LSS1  IF RF[R2] " 1                               MCG      2213
                          7120000010              SX2    RN.A0       REG[RF] = A0                                MCG      2214
           777  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
          1000  20552                             LX5    -R1.H2P                                                 MCG      2219
                     15654                        BX6    -X4*X5                                                  MCG      2220
                          0306000747 +            ZR     X6,SII0     IF H2[R1] = 0                               MCG      2221
                                                                                                                 MCG      2222
          1001  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
          1002  74661                             SX6    A6+B1       IIP = IIP + 1                               MCG      2227
                     54630                        SA6    A3                                                      MCG      2228
                          0400000750 +            EQ     SII                                                     MCG      2229
                                                                                                                 MCG      2230
                                        *         REDUCABLE MEM REF                                              MCG      2231
                                                                                                                 MCG      2232
          1003  73210                    LSS2     SX2    X1                                                      MCG      2233
                     43600                        MX6    0                                                       MCG      2234
                          37112                   IX1    X1-X2                                                   MCG      2235
                               54610              SA6    A1          RMR = 0                                     MCG      2236
          1004  7242000010                        SX4    X2+RN.A0                                                MCG      2237
                          20114                   LX1    SI.CAP-IH.CAP                                           MCG      2238
                               12517              BX5    X1+X7                                                   MCG      2239
          1005  20406                             LX4    SI.RJP                                                  MCG      2240
                     36745                        IX7    X4+X5       [IIP-1] = SI(OC,CA[RMR],0,REG[RF],REG[RI])  MCG      2241
                          0400000747 +            EQ     SII0                                                    MCG      2242
  
  
          1006                                    PROCESS (PLD,PST)                                              MCG      2244
          1006  54251                             SA2    A5+B1       R2 = R1 + 1                                 MCG      2245
                     20434                        LX4    -R1.RJP                                                 MCG      2246
                          63640                   SB6    X4                                                      MCG      2247
                               15440              BX4    "RN"X4                                                  MCG      2248
          1007  53147                             SA1    "TB"+X4     LJ = TB + RJ[R1]                            MCG      2249
                     20252                        LX2    -IH.CAP     C = CA[R2]                                  MCG      2250
                          7160000010              SX6    RN.A0       REGJ = A0                                   MCG      2251
          1010  0461001011 +                      EQ     B6,B1,PLD1  IF RJ[R1] = 1                               MCG      2252
                                                  LX1    -I.REGP                                                 MCG      2253
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    49
        SII - SAVE ISSUED INSTRUCTION                                 PLD                 SII 
  
                          7261000000              SX6    X1+         REGJ = REG[LJ]                              MCG      2254
                                                                                                                 MCG      2255
          1011  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
          1012  20135                             LX1    59-D.PIP                                                MCG      2260
                     0331001014 +                 MI     X1,PLD2     IF PI[DJ]     */ PRED IS A *DEF*            MCG      2261
                               20164              LX1    D.PIP-D.PRSP                                            MCG      2262
          1013  0321001015 +                      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
          1014  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
          1015  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
          1016  0400000747 +                      EQ     SII0                                                    MCG      2277
                                                                                                                 MCG      2278
                                        *         CLR - GENERATE A MXI 0  OR A  BXI XI-XI                        MCG      2279
                                                                                                                 MCG      2280
          1017                                    PROCESS CLR                                                    MCG      2281
          1017  5110000007 C                      SA1    PBI+1                                                   MCG      2282
                          6120000043              SB2    OC.FMA                                                  MCG      2283
          1020  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
          1021  0316000747 +                      NZ     X6,SII0     IF FU[PBI+1] " BOOL                         MCG      2287
                          6120000013              SB2    OC.XOR                                                  MCG      2288
          1022  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
          1023  12547                             BX5    X4+X7                                                   MCG      2293
                     27725                        PX7    B2,X5       [IIP-1] = SI(XOR,0,R,R,R)                   MCG      2294
                          0400000747 +            EQ     SII0                                                    MCG      2295
                                                                                                                 MCG      2296
                                        *         SXT -  - GENERATE AN *XMT* OR A NOMINAL LEFT SHIFT             MCG      2297
                                                                                                                 MCG      2298
          1024                                    PROCESS SXT                                                    MCG      2299
          1024  5110000007 C                      SA1    PBI+1                                                   MCG      2300
                          6120000010              SB2    OC.XMT      OC = OC.XMT                                 MCG      2301
          1025  26661                             UX6    B6,X1                                                   MCG      2302
                     7146777775                   SX4    B6-BOOL                                                 MCG      2303
                               27727              PX7    B2,X7                                                   MCG      2304
          1026  0304000754 +                      ZR     X4,.XMT     IF FU[PBI+1] = BOOL                         MCG      2305
                          20534                   LX5    -R1.RJP                                                 MCG      2306
                               15650              BX6    "RN"X5                                                  MCG      2307
          1027  53167                             SA1    "TB"+X6                                                 MCG      2308
                                                  LX1    -I.REGP                                                 MCG      2309
                     6120000022                   SB2    OC.ILS      OC = OC.ILS                                 MCG      2310
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    50
        SII - SAVE ISSUED INSTRUCTION                                 PLD                 SII 
  
                               27727              PX7    B2,X7                                                   MCG      2311
          1030  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
          1031  0400000747 +                      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
  
  
          1032                           SIIA     BSS    0                                                       MCG      2333
      L      0                                    LOC    0                                                       MCG      2334
                                                  LIST   G                                                       MCG      2335
      L      0                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
      L      0  0400000573 +                      EQ     //.EOQ            EOQ                                  OPR     .1
                          0200000772 +  -         JP     TYIV                                                   OPR     .1
      L      1  0400000517 +                      EQ     //.BOS            BOS                                  OPR     .1
                          0200000772 +  -         JP     TYIV                                                   OPR     .1
      L      2  0400000517 +                      EQ     //.EOS            EOS                                  OPR     .1
                          0200000772 +  -         JP     TYIV                                                   OPR     .1
      L      3  0400000523 +                      EQ     //.DAR            DAR                                  OPR     .1
                          0200000744 +  -         JP     TYI                                                    OPR     .1
      L      4  0400000545 +                      EQ     //.RS            RS                                    OPR     .1
                          0200000763 +  -         JP     TYII                                                   OPR     .1
      L      5  0400000527 +                      EQ     //.DEF            DEF                                  OPR     .1
                          0200000763 +  -         JP     TYII                                                   OPR     .1
      L      6  0400000540 +                      EQ     //.LAB            LAB                                  OPR     .1
                          0200000772 +  -         JP     TYIV                                                   OPR     .1
      L      7  0400000540 +                      EQ     //.ENT            ENT                                  OPR     .1
                          0200000772 +  -         JP     TYIV                                                   OPR     .1
      L     10  00000000000000000754 +            CON    .XMT              XMT                                  OPR     .1
      L     11  00000000000000000744 +            CON    TYI       AND                                          OPR     .1
      L     12  00000000000000000744 +            CON    TYI       OR                                           OPR     .1
      L     13  00000000000000000744 +            CON    TYI       XOR                                          OPR     .1
      L     14  00000000000000000754 +            CON    .XMTC              XMTC                                OPR     .1
      L     15  00000000000000000744 +            CON    TYI       STR                                          OPR     .1
      L     16  00000000000000000744 +            CON    TYI       IMP                                          OPR     .1
      L     17  00000000000000000744 +            CON    TYI       EQV                                          OPR     .1
      L     20  00000000000000000765 +            CON    .KLS              KLS                                  OPR     .1
      L     21  00000000000000000765 +            CON    .KRS              KRS                                  OPR     .1
      L     22  00000000000000000744 +            CON    TYI       ILS                                          OPR     .1
      L     23  00000000000000000744 +            CON    TYI       IRS                                          OPR     .1
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    51
        SII - SAVE ISSUED INSTRUCTION                                 SII                 SII 
  
      L     24  00000000000000000756 +            CON    .NR              NR                                    OPR     .1
      L     25  00000000000000000756 +            CON    .RNZ              RNZ                                  OPR     .1
      L     26  00000000000000000756 +            CON    .UP              UP                                    OPR     .1
      L     27  00000000000000000744 +            CON    TYI       PK                                           OPR     .1
      L     30  00000000000000000744 +            CON    TYI       FA                                           OPR     .1
      L     31  00000000000000000744 +            CON    TYI       FS                                           OPR     .1
      L     32  00000000000000000744 +            CON    TYI       DFA                                          OPR     .1
      L     33  00000000000000000744 +            CON    TYI       DFS                                          OPR     .1
      L     34  00000000000000000744 +            CON    TYI       RFA                                          OPR     .1
      L     35  00000000000000000744 +            CON    TYI       RFS                                          OPR     .1
      L     36  00000000000000000744 +            CON    TYI       IA                                           OPR     .1
      L     37  00000000000000000744 +            CON    TYI       IS                                           OPR     .1
      L     40  00000000000000000744 +            CON    TYI       FM                                           OPR     .1
      L     41  00000000000000000744 +            CON    TYI       RFM                                          OPR     .1
      L     42  00000000000000000744 +            CON    TYI       DFM                                          OPR     .1
      L     43  00000000000000000763 +            CON    TYII      FMA                                          OPR     .1
      L     44  00000000000000000744 +            CON    TYI       FD                                           OPR     .1
      L     45  00000000000000000744 +            CON    TYI       RFD                                          OPR     .1
      L     46  00000000000000000772 +            CON    .NOP              NOP                                  OPR     .1
      L     47  00000000000000000754 +            CON    .CX              CX                                    OPR     .1
      L     50  00000000000000000773 +            CON    .LD              LD                                    OPR     .1
      L     51  00000000000000000773 +            CON    .ST              ST                                    OPR     .1
      L     52  00000000000000000773 +            CON    .STT              STT                                  OPR     .1
      L     53  00000000000000001006 +            CON    .PLD              PLD                                  OPR     .1
      L     54  00000000000000001006 +            CON    .PST              PST                                  OPR     .1
      L     55  00000000000000000763 +            CON    TYII      S                                            OPR     .1
      L     56  00000000000000000744 +            CON    TYI       SLD                                          OPR     .1
      L     57  00000000000000000744 +            CON    TYI       SST                                          OPR     .1
      L     60  00000000000000000744 +            CON    TYI       SA                                           OPR     .1
      L     61  00000000000000000744 +            CON    TYI       SDL                                          OPR     .1
      L     62  00000000000000000744 +            CON    TYI       SDS                                          OPR     .1
      L     63  00000000000000000744 +            CON    TYI       SS                                           OPR     .1
      L     64  00000000000000000754 +            CON    .DRL              DRL                                  OPR     .1
      L     65  00000000000000000754 +            CON    .DWL              DWL                                  OPR     .1
      L     66  00000000000000000767 +            CON    TYIII     JPX                                          OPR     .1
      L     67  00000000000000000767 +            CON    TYIII     JPBB                                         OPR     .1
      L     70  00000000000000000767 +            CON    TYIII     JIN                                          OPR     .1
      L     71  00000000000000000772 +            CON    TYIV      RJ3                                          OPR     .1
      L     72  00000000000000000772 +            CON    TYIV      RJ6                                          OPR     .1
      L     73  00000000000000000772 +            CON    TYIV      UJP                                          OPR     .1
      L     74  00000000000000000773 +            CON    .ILD              ILD                                  OPR     .1
      L     75  00000000000000000773 +            CON    .TLD              TLD                                  OPR     .1
      L     76  00000000000000000773 +            CON    .TST              TST                                  OPR     .1
      L     77  00000000000000000744 +            CON    TYI       IAZ                                          OPR     .1
      L    100  00000000000000000744 +            CON    TYI       ISZ                                          OPR     .1
      L    101  00000000000000000744 +            CON    TYI       IM                                           OPR     .1
      L    102  00000000000000001017 +            CON    .CLR              CLR                                  OPR     .1
      L    103  00000000000000001024 +            CON    .SXT              SXT                                  OPR     .1
                                                  LIST   -G                                                      MCG      2337
          1136                                    LOC    *O                                                      MCG      2338
                                                                                                                 MCG      2339
                                                  QUAL                                                           MCG      2340
                                                                                                                 MCG      2341
                                1032 +   PPI.JT   EQU    /SII/SIIA                                               MCG      2342
                                 750 +   SII      EQU    /SII/SII                                                MCG      2343
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    52
        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
                                         LOCK     DEFINE 1           LOCK BIT                                    MCG      2393
                                         COST     DEFINE 11          COST OF RESTORING RESULT IN REG             MCG      2394
                                                  DEFINE 11                                                      MCG      2395
                                         SRO      DEFINE 1           STORE REGISTER OUT ( UNSAVED RESULT )       MCG      2396
                                         NU       DEFINE 18          *TXT* INDEX OF NEXT USE                     MCG      2397
                                         RN       DEFINE 18          R-NUMBER IN THE REG                         MCG      2398
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    53
        JAM MODE / CONTROL                                            JAM                 JAM 
  
                                        **        JAM - REGISTER JAM CODE GENERATION MODE                        MCG      2400
                                                                                                                 MCG      2401
          1136  5110000170 C             JAM0     SA1    M.OT                                                    MCG      2402
                          5120000000 X            SA2    =XN.OT                                                  MCG      2403
          1137  43700                             MX7    0                                                       MCG      2404
                     37321                        IX3    X2-X1                                                   MCG      2405
                          5170000000 X            SA7    L.OTI       L.OTI = 0                                   MCG      2406
          1140  10611                             BX6    X1                                                      MCG      2407
                     0323001141 +                 PL     X3,JAM            N.OT = MAX( N.OT , M.OT )             MCG      2408
                               54620              SA6    A2                                                      MCG      2409
                                                                                                                 MCG      2410
          1141  0200401141 +             JAM      ROUTINE                                                        MCG      2411
          1142  13666                             SETZERO M.OT,10    SETZERO( M.OT , 10 )                        MCG      2412
                                                                                                                 MCG      2413
          1144  5140000000 X                      SA4    L.TXT                                                   MCG      2414
                          5120000000 X            SA2    O.TXT                                                   MCG      2415
          1145  6224777773                        SB2    X4-4                                                    MCG      2416
                          5262000003              SA6    X2+3        FOR I = 3 TO L.TXT BY 4; TXT(I) = 0         MCG      2417
          1146  6122777773              +         SB2    B2-4                                                    MCG      2418
                          5066000004              SA6    A6+4                                                    MCG      2419
          1147  0702001146 +                      GT     B2,*-1                                                  MCG      2420
                                                                                                                 MCG      2421
                          0100000000 X            CALL   RIO         RESET INSTRUCTION ORDER                     MCG      2422
          1150  76610                             SX6    B1                                                      MCG      2423
                     0100000000 X                 CALL   BDT         FORM THE DEPENDENCY INFO                    MCG      2424
          1151  7170001136 +                      SX7    JAM0                                                    MCG      2425
                          76010                   SX0    B1                                                      MCG      2426
          1152  0100000116 +                      RJ     PRS         PRESET STORAGE                              MCG      2427
          1153  7170000011                        SX7    N.UR0                                                   MCG      2428
                          5170000214 C            SA7    UR          UR = N.UR0                                  MCG      2429
          1154  43600                             MX6    0                                                       MCG      2430
                     5160000001 C                 SA6    N.SP        N.SP = 0                                    MCG      2431
          1155  7170737777                        SX7    -FX.X6                                                  MCG      2432
                          5170000014 C            SA7    STL         STL = -FX.X6                                MCG      2433
          1156  0100002330 +                      RJ     SMB                                                     MCG      2434
                                                                                                                 MCG      2435
                                        *         MAIN LOOP                                                      MCG      2436
                                                                                                                 MCG      2437
          1157  5110000171 C             JAM1     SA1    SF                                                      MCG      2438
                          5120000012 C            SA2    AXR                                                     MCG      2439
          1160  11612                             BX6    X1*X2                                                   MCG      2440
                     0306001162 +                 ZR     X6,JAM2     IF SF & AXR = 0 */ NO UNSAVED STORES/ST REG MCG      2441
          1161  0100001367 +                      RJ     SUR         STORE UNSAVED RESULTS                       MCG      2442
                                                                                                                 MCG      2443
          1162  0100001205 +             JAM2     RJ     SNI         SELECT NEXT INSTRUCTION TO ISSUE            MCG      2444
          1163  0730001177 +                      MI     B3,JAM6     IF REGNO < 0  */ NO ISSUABLE INST FOUND     MCG      2445
                          0430001174 +            ZR     B3,JAM4     IF REGNO = 0  */ A ISSUED PSEUDO INST       MCG      2446
                                                  LX5    59-I.IIP                                                MCG      2447
          1164  0325001170 +                      PL     X5,JAM3     IF ^II[L]                                   MCG      2448
                          5110000214 C            SA1    UR                                                      MCG      2449
          1165  7170000011                        SX7    N.UR0                                                   MCG      2450
                          7261777776              SX6    X1-1                                                    MCG      2451
          1166  37367                   +         IX3    X6-X7                                                   MCG      2452
                     0323001167 +                 PL     X3,*+1      UR = MAX( UR-1 , N.UR0 )                    MCG      2453
                               10677              BX6    X7                                                      MCG      2454
          1167  54610                             SA6    A1                                                      MCG      2455
                                                                                                                 MCG      2456
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    54
        JAM MODE / CONTROL                                            JAM                 JAM 
  
                                         JAM3     LX5    1+I.IIP                                                 MCG      2457
          1170  0100000603 +                      RJ     AIL         ADJUST THE ISSUE LIST                       MCG      2458
          1171  0100000626 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG      2459
          1172  54440                             S"DI"  "DI"                                                    MCG      2460
                     0100000652 +                 RJ     ASC         ADVANCE CLOCKS                              MCG      2461
          1173  5054777775                        SA5    "DI"-2                                                  MCG      2462
                          0100000750 +            RJ     SII         SAVE THE INSTRUCTION                        MCG      2463
                                                                                                                 MCG      2464
          1174  54440                    JAM4     S"DI"  "DI"                                                    MCG      2465
                     0100002402 +                 RJ     SNU         SET NEXT USE ADDRESS                        MCG      2466
                                                                                                                 MCG      2467
          1175  0307001157 +             JAM5     ZR     X7,JAM1     IF UOR = 0    */ NO UNCLEARED OPERAND REGS  MCG      2468
                          0100001306 +            RJ     CNU         CHECK NEXT USES OF OPERANDS                 MCG      2469
          1176  0400001157 +                      EQ     JAM1                                                    MCG      2470
                                                                                                                 MCG      2471
          1177  5130000003 C             JAM6     SA3    ICL                                                     MCG      2472
                          7170000000              SX7    0                                                       MCG      2473
          1200  5170000213 C                      SA7    UOR         UOR = 0                                     MCG      2474
                          0100001411 +            RJ     UJR         UNJAM THE REGISTERS                         MCG      2475
          1201  5110000213 C                      SA1    UOR                                                     MCG      2476
                          5120000204 C            SA2    T0                                                      MCG      2477
          1202  67671                             SB6    "TB"-B1                                                 MCG      2478
                     10711                        BX7    X1                                                      MCG      2479
                          53426                   S"DI"  B6+X2       DI = BASE-1 + T0                            MCG      2480
          1203  0400001175 +                      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
           214  00000000000000000011     UR       CON    9           COUNT OF UNLOADED REGISTERS                 MCG      2496
           215                     1     PIS      BSS    1           POINT IN SEQUENCE                           MCG      2497
           216                     1     TM       BSS    1           MAX *LST* OF ISSUABLE INST TO CONSIDER      MCG      2498
                                                  USE    0                                                       MCG      2499
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    55
        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
          1204  5054000001               SNI0     SA5    "DI"+1      LI = DI + 1                                 MCG      2513
                                                                                                                 MCG      2514
          1205  0200401205 +             SNI      ROUTINE                                                        MCG      2515
          1206  5140000005 C                      SA4    PBI-1                                                   MCG      2516
                          5130000003 C            SA3    ICL         CI = ICL                                    MCG      2517
          1207  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
          1210  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
          1211  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
          1212  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
          1213  63520                             SB5    X2          T(IS) = T                                   MCG      2534
                     20443                        LX4    58-D.SZP                                                MCG      2535
                          0324001227 +            PL     X4,SNI4     IF SZ[DI] < 2 */ NO POSSIBLE SIZE FAULT     MCG      2536
          1214  5130000127 C                      SA3    PC                                                      MCG      2537
                          43772                   MX7    -2                                                      MCG      2538
                               12637              BX6    X3+X7                                                   MCG      2539
          1215  0316001227 +                      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
          1216  0322001226 +                      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
          1217  55341                             SA3    "DI"-B1     R2 = DI - 1                                 MCG      2549
                     6120000075 C                 SB2    ARA-1                                                   MCG      2550
                               10633              BX6    X3                                                      MCG      2551
          1220  56621                             SA6    B2+B1       ARA(1) = [R2]                               MCG      2552
                                                                                                                 MCG      2553
          1221  13732                    SNI2     BX7    X3-X2                                                   MCG      2554
                     55221                        SA2    A2-B1       I = I - 1                                   MCG      2555
                          0317001221 +            NZ     X7,SNI2     IF [I+1] " [R2]                             MCG      2556
          1222  65322                             SB3    A2-B2                                                   MCG      2557
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    56
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI                 JAM 
  
                     0430001226 +                 ZR     B3,SNI3     IF I = 0    */ MATCH WITH SEARCH TERMINATOR MCG      2558
                                                                                                                 MCG      2559
          1223  5123000056 C                      SA2    TRA+RN.A0+B3              */ COMPUTE TRUE ISSUE TIME    MCG      2560
                          63220                   SB2    X2                                                      MCG      2561
          1224  0652001227 +                      LE     B2,B5,SNI4                                              MCG      2562
                          63520                   SB5    X2                                                      MCG      2563
          1225  0400001227 +                      EQ     SNI4                                                    MCG      2564
                                                                                                                 MCG      2565
          1226  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
          1227  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
          1230  5237000106 C                      SA3    TFU+X7      TFA = TFU(F)                                MCG      2575
                          63330                   SB3    X3                                                      MCG      2576
          1231  0653001232 +                      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
          1232  0765001235 +             SNI5     GT     B5,B6,SNI6  IF T(IS) > TIS[PBI]                         MCG      2594
                          5170000157 +            SA7    SNIA                                                    MCG      2595
          1233  20466                             LX4    D.F1P+59-D.NRP                                          MCG      2596
                     0100000221 +                 RJ     DRR         CALL DRR( DI , T(IS) , T(EX) , REGNO )      MCG      2597
          1234  0703001236 +                      GT     B3,SNI7     IF REGNO > 0  */ INSTRUCTION IS ISSUABLE    MCG      2598
                          0430001204 +            ZR     B3,SNI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION       MCG      2599
                                                                                                                 MCG      2600
          1235  54541                    SNI6     SA5    "DI"+B1     LI = DI + 1                                 MCG      2601
                     0400001245 +                 EQ     SNI9                      */ NO RESULT REG AVAIL        MCG      2602
                                                                                                                 MCG      2603
                                        *         COMPARE THIS INSTRUCTION TIMING WITH THAT OF *PBI*             MCG      2604
                                                                                                                 MCG      2605
          1236  54541                    SNI7     SA5    "DI"+B1     LI = DI + 1                                 MCG      2606
                                         #MD      IFEQ   .CPU,74                                         ?6600   MCG      2607
                                                  GT     B5,B6,SNI9  IF T(IS) > TIS[PBI]                         MCG      2608
                                                  SA3    PBI                                                     MCG      2609
                                                  LT     B5,B6,SNI8  IF T(IS) < TIS[PBI]                         MCG      2610
                                                  LX3    -PB.TEXP                                                MCG      2611
                                                  SB2    X3                                                      MCG      2612
                                                  GE     B4,B2,SNI9  IF T(EX) \ TEX[PBI]                         MCG      2613
                                         #MD      ELSE                                                   '66?76  MCG      2614
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    57
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI                 JAM 
  
                     54440                        SA4    "DI"                                                    MCG      2615
                          0646001245 +            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
                                                                                                                 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
          1237  76450                    SNI8     SX4    B5                                                      MCG      2646
                     5110000157 +                 SA1    SNIA                                                    MCG      2647
                               76340              SX3    B4                                                      MCG      2648
                                                  LX4    PB.TISP                                                 MCG      2649
          1240  27634                             PX6    B3,X4                                                   MCG      2650
                     74700                        SX7    "PI"                                                    MCG      2651
                          20322                   LX3    PB.TEXP                                                 MCG      2652
                               63210              SB2    X1                                                      MCG      2653
          1241  75257                             SX2    A5-"TB"                                                 MCG      2654
                     12636                        BX6    X3+X6                                                   MCG      2655
                          5110000126 C            SA1    T                                                       MCG      2656
          1242  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
          1243  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
          1244  0442001205 +                      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
                                                                                                                 MCG      2670
          1245  55057                    SNI9     S"PI"  A5-"TB"     PI = LI - BASE                              MCG      2671
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    58
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI                 JAM 
  
                                                  LX5    -I.LINKP                                                MCG      2672
                     73350                        SX3    X5          CI = LINK[LI]                               MCG      2673
                          0303001251 +            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
          1246  43655                             MX6    -I.LSTL                                                 MCG      2680
                     53537                        SA5    "TB"+X3     LI = BASE + CI                              MCG      2681
                          5120000216 C            SA2    TM                                                      MCG      2682
          1247  20552                             LX5    -I.LSTP                                                 MCG      2683
                     15756                        BX7    -X6*X5                                                  MCG      2684
                          37472                   IX4    X7-X2                                                   MCG      2685
          1250  0334001212 +                      MI     X4,SNI1     IF LST[LI] < TM  */ INSTRUCTION IS NEAR T0  MCG      2686
                                                                                                                 MCG      2687
          1251  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
          1252  0730001205 +                      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
          1253  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
          1254  0400001205 +                      EQ     SNI                                                     MCG      2702
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    59
        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
          1255  54440                    ISI0     SA4    "DI"                                                    MCG      2709
                     0100002402 +                 RJ     SNU         SET ADDR OF NEXT USES                       MCG      2710
          1256  5170000213 C                      SA7    UOR                                                     FCC0584     7
                                                                                                                 MCG      2711
          1257  0200401257 +             ISI      ROUTINE                                                        MCG      2712
          1260  5130000003 C                      SA3    ICL         NI = ICL                                    MCG      2713
                          53527                   SA5    "TB"+X2     LI = BASE + R                               FCC2207    11
                               56000              S"PI"  B0          PI = 0                                      MCG      2715
          1261  55451                             S"DI"  A5-B1       DI = LI - 1                                 FCC2207    12
                     20501                        LX5    59-I.ICP                                                FCC2207    13
                          37623                   IX6    X2-X3                                                   MCG      2717
          1262  0325401262 +                      PL     X5,*+1S17   IF ^IC[LI] BLOWUP                           FCC2207    14
                          0306001265 +            ZR     X6,ISI2     IF R = ICL                                  MCG      2718
                                                                                                                 MCG      2719
          1263  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
          1264  0316001263 +                      NZ     X6,ISI1     IF R " NI                                   MCG      2724
                                                                                                                 MCG      2725
          1265  5110000126 C             ISI2     SA1    T                                                       MCG      2726
                          20415                   LX4    -D.F1P                                                  MCG      2727
                               43570              MX5    -D.F1L                                                  MCG      2728
          1266  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
          1267  20466                             LX4    D.F1P+59-D.NRP                                          MCG      2733
                     5160000007 C                 SA6    PBI+1                                                   MCG      2734
          1270  0100000221 +                      RJ     DRR         REGNO = DRR( DI )                           MCG      2735
          1271  0430001255 +                      ZR     B3,ISI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION       MCG      2736
                          0730001257 +            MI     B3,ISI      IF REGNO < 0  */ NO RESULT REG FOUND        MCG      2737
          1272  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
          1273  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
          1274  0325001300 +                      PL     X5,ISI3     IF ^II[L]     */ NOT PREVIOUSLY ISSUED      MCG      2747
                          5110000214 C            SA1    UR                                                      MCG      2748
          1275  7170000011                        SX7    N.UR0                                                   MCG      2749
                          7261777776              SX6    X1-1                                                    MCG      2750
          1276  37367                   +         IX3    X6-X7                                                   MCG      2751
                     0323001277 +                 PL     X3,*+1      UR = MAX( UR-1 , N.UR0 )                    MCG      2752
                               10677              BX6    X7                                                      MCG      2753
          1277  54610                             SA6    A1                                                      MCG      2754
                                                                                                                 MCG      2755
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    60
        ISI - ISSUE SELECTED INSTRUCTION                              ISI                 JAM 
  
                                         ISI3     LX5    1+I.IIP                                                 MCG      2756
          1300  0100000603 +                      RJ     AIL         ADVANCE THE ISSUE LIST                      MCG      2757
          1301  0100000626 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG      2758
          1302  54440                             SA4    "DI"                                                    MCG      2759
                     0100000652 +                 RJ     ASC         ADVANCE CLOCKS                              MCG      2760
          1303  5054777775                        SA5    "DI"-2                                                  MCG      2761
                          0100000750 +            RJ     SII         SAVE INSTRUCTION                            MCG      2762
          1304  0400001255 +                      EQ     ISI0                                                    MCG      2763
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    61
        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
          1305  7160000000               CNU0     SX6    0                                                       FCC1580X    6
                          5160000213 C            SA6    UOR         UOR = 0                                     FCC1580X    7
          1306  0200401306 +             CNU      ROUTINE                                                        MCG      2778
          1307  54440                             SA4    "DI"                                                    FCC1580X    8
                     20435                        LX4    59-D.PIP                                                FCC1580X    9
                          0334001305 +            MI     X4,CNU0     IF PI[DI]     */ *DEF* OR *RS*              FCC1580X   10
          1310  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
          1311  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
          1312  10377                             BX3    X7                                                      MCG      2789
                     21322                        AX3    18                                                      MCG      2790
                          0303001317 +            ZR     X3,CNU1     IF REG2 = 0                                 MCG      2791
          1313  5217000015 C                      SA1    RVT+X7                                                  MCG      2792
                          5223000015 C            SA2    RVT+X3                                                  MCG      2793
          1314  20152                             LX1    -RV.NUP                                                 MCG      2794
                     20252                        LX2    -RV.NUP                                                 MCG      2795
                          63210                   SB2    X1                                                      MCG      2796
                               63320              SB3    X2                                                      MCG      2797
          1315  0623001317 +                      GE     B2,B3,CNU1  IF NU[RVT(REG1)] \ NU[RVT(REG2)]            MCG      2798
                          73770                   SX7    X7                                                      MCG      2799
                               20722              LX7    18                                                      MCG      2800
          1316  12737                             BX7    X3+X7       SWAP( REG1 , REG2 )                         MCG      2801
                                                                                                                 MCG      2802
          1317  43163                    CNU1     MX1    -D.REGWL                                                MCG      2803
                     5120000214 C                 SA2    UR                                                      MCG      2804
                               20111              LX1    D.REGWP                                                 MCG      2805
          1320  5150000215 C                      SA5    PIS                                                     MCG      2806
                          20211                   LX2    D.REGWP                                                 MCG      2807
                               67671              SB6    "TB"-B1                                                 MCG      2808
          1321  6255000070                        SB5    X5+MIN.D    TMIN = PIS + MIN.D                          MCG      2809
                                                                                                                 MCG      2810
          1322  5257000015 C             CNU2     SA5    RVT+X7                                                  MCG      2811
                          7267777757              SX6    X7-RN.X0                                                MCG      2812
          1323  63370                             SB3    X7          REGNO = REG[UOR]                            MCG      2813
                     21722                        AX7    18          UOR = SHIFT( UOR , -18 )                    MCG      2814
                          12356                   BX3    X5+X6                                                   MCG      2815
                               20552              LX5    -RV.NUP                                                 MCG      2816
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    62
        CNU - CHECK NEXT USE OF RESULTS IN REGISTERS                  CNU                 JAM 
  
          1324  0333001331 +                      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
          1325  0654001331 +                      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
          1326  15541                    CNU3     BX5    -X1*X4                                                  MCG      2825
                     37625                        IX6    X2-X5       N = UR - REGW[DI]                           MCG      2826
                          0336001332 +            MI     X6,CNU5     IF N < 0      */ USE IS PAST A REG PEAK     MCG      2827
          1327  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
          1330  55442                             SA4    A4-B2       DI = DI - N                                 MCG      2831
                     0645001326 +                 GE     B4,B5,CNU3  IF NS \ TMIN                                MCG      2832
                                                                                                                 MCG      2833
          1331  0317001322 +             CNU4     NZ     X7,CNU2     IF UOR " 0                                  MCG      2834
                          0400001306 +            EQ     CNU                                                     MCG      2835
                                                                                                                 MCG      2836
                                        *         POINT OF NEXT USE OVER A REG WIDTH PEAK, DUMP THE REG          MCG      2837
                                                                                                                 MCG      2838
          1332  5130000126 C             CNU5     SA3    T                                                       MCG      2839
                          5170000213 C            SA7    UOR                                                     MCG      2840
          1333  10633                             BX6    X3                                                      MCG      2841
                     5163000046 C                 SA6    TRA+B3      TRA(REGNO) = T                              MCG      2842
          1334  0100001720 +                      RJ     CRC         COMPUTE RESTORE COSTS FOR THIS REG          MCG      2843
          1335  0100001342 +                      RJ     SSR         SAVE THE RESULT                             MCG      2844
          1336  5110000213 C                      SA1    UOR                                                     MCG      2845
                          10711                   BX7    X1          UOR = CNUA                                  MCG      2846
          1337  0301001306 +                      ZR     X1,CNU      IF UOR = 0                                  MCG      2847
                          0400001317 +            EQ     CNU1                                                    MCG      2848
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    63
        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
          1340  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
          1341  0100002631 +                      RJ     AIS         ALLOCATE INSTRUCTION SPACE                  MCG      2858
                                                                                                                 MCG      2859
          1342  0200401342 +             SSR      ROUTINE                                                        MCG      2860
          1343  7164777774                        SX6    B4-3                                                    MCG      2861
                          0336001356 +            MI     X6,SSR3     IF COST < 3                                 MCG      2862
                                                                                                                 MCG      2863
                                        *         COST = 3, COMPUTATION NOT IN A STORE REG                       MCG      2864
                                                                                                                 MCG      2865
          1344  5110000012 C                      SA1    AXR                                                     MCG      2866
                          7170140000              SX7    FX.ST                                                   MCG      2867
          1345  11671                             BX6    X7*X1                                                   MCG      2868
                     0316001351 +                 NZ     X6,SSR1     IF AXR & FX.ST " 0  */ IF A STORE REG IS AV MCG      2869
                               76310              SX3    B1                                                      MCG      2870
          1346  5123000015 C                      SA2    RVT+B3                                                  MCG      2871
                          20344                   LX3    RV.SROP                                                 MCG      2872
                               12632              BX6    X3+X2       SRO[RVT(REGNO)] = 1                         MCG      2873
          1347  5170000171 C                      SA7    SF          SF = FX.ST    */ INDICATE UNSAVED RESULTS   MCG      2874
                          54620                   SA6    A2                                                      MCG      2875
          1350  0400001342 +                      EQ     SSR                                                     MCG      2876
                                                                                                                 MCG      2877
          1351  6143000000               SSR1     SB4    B3+         REGF = REGNO                                MCG      2878
                          6130000026              SB3    RN.X0+6                                                 MCG      2879
          1352  6120000010                        SB2    OC.XMT                                                  MCG      2880
                          5133000015 C            SA3    RVT+B3                                                  MCG      2881
          1353  0303001354 +                      ZR     X3,SSR2     REGR = IF( RVT(X6) = 0 ) THEN X6; ELSE X7   MCG      2882
                          6133000001              SB3    B3+1                                                    MCG      2883
          1354  0100002236 +             SSR2     RJ     OXI         MOVE RESULT TO A STORE REG                  MCG      2884
          1355  6140000002                        SB4    2           COST = 2                                    MCG      2885
                                                                                                                 MCG      2886
          1356  5113000015 C             SSR3     SA1    RVT+B3                                                  MCG      2887
                          15610                   BX6    "RN"X1      R0 = RI[RVT(REGNO)]                         MCG      2888
                               10166              BX1    X6                                                      MCG      2889
          1357  5160000203 C                      SA6    R0                                                      MCG      2890
                                                  PRINT  SSR,(* R0,UR = *,O6,I5),(R0,UR)                         MCG      2891
                          5120000012 C            SA2    AXR                                                     MCG      2892
          1360  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
          1361  54610                             SA6    A1          RVT(REGNO) = 0                              MCG      2896
                     54720                        SA7    A2                                                      MCG      2897
                                                                                                                 MCG      2898
                          0714001364 +            GT     B4,B1,SSR4  IF COST > 1                                 MCG      2899
          1362  0100001600 +                      RJ     RII         REISSUE THE INSTRUCTION                     MCG      2900
          1363  0400001340 +                      EQ     SSR0                                                    MCG      2901
                                                                                                                 MCG      2902
          1364  7160000000               SSR4     SX6    0                                                       MCG      2903
                          5160000204 C            SA6    T0          T0 = 0                                      MCG      2904
          1365  0100002517 +                      RJ     SRM         SAVE RESULT IN MEMORY                       MCG      2905
          1366  0400001340 +                      EQ     SSR0                                                    MCG      2906
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    64
        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
          1367  0200401367 +             SUR      ROUTINE                                                        MCG      2914
          1370  6130000026                        SB3    RN.X0+6                                                 MCG      2915
                          6140000020              SB4    RN.X0       I = RN.X0                                   MCG      2916
          1371  5113000015 C                      SA1    RVT+B3                                                  MCG      2917
                          7160000000              SX6    0           T0 = 0                                      MCG      2918
          1372  5160000204 C                      SA6    T0                                                      MCG      2919
                          0301001374 +            ZR     X1,SUR1     REGR = IF( RVT(X6) = 0 ) THEN X6; ELSE X7   MCG      2920
          1373  6133000001                        SB3    B3+1                                                    MCG      2921
                                                                                                                 MCG      2922
          1374  5114000015 C             SUR1     SA1    RVT+B4                                                  MCG      2923
                          15710                   BX7    "RN"X1                                                  MCG      2924
                               20127              LX1    59-RV.SROP                                              MCG      2925
          1375  0321001403 +                      PL     X1,SUR2     IF ^SRO[RVT(I)]                             MCG      2926
                                                                                                                 MCG      2927
                          6120000010              SB2    OC.XMT                                                  MCG      2928
          1376  5170000203 C                      SA7    R0          R0 = RI[RVT(I)]                             MCG      2929
                          76240                   SX2    B4                                                      MCG      2930
                               27632              PX6    B3,X2                                                   MCG      2931
          1377  5160001410 +                      SA6    SURA                                                    MCG      2932
                          0100002236 +            RJ     OXI         OUTPUT AND XMIT                             MCG      2933
          1400  5110000214 C                      SA1    UR                                                      MCG      2934
                          73611                   SX6    X1+B1       UR = UR + 1                                 MCG      2935
                               54610              SA6    A1                                                      MCG      2936
          1401  0100002517 +                      RJ     SRM         AND SAVE RESULT IN MEMORY                   MCG      2937
          1402  5120001410 +                      SA2    SURA                                                    MCG      2938
                          63420                   SB4    X2                                                      MCG      2939
                               26632              UX6    B3,X2                                                   MCG      2940
                                                                                                                 MCG      2941
          1403  66441                    SUR2     SB4    B4+B1       I = I + 1                                   MCG      2942
                     7164777751                   SX6    B4-RN.X0-6                                              MCG      2943
          1404  0336001374 +                      MI     X6,SUR1     IF I < RN.X6                                MCG      2944
                                                                                                                 MCG      2945
                          5110000012 C            SA1    AXR                                                     MCG      2946
          1405  5123000140 C                      SA2    RBV+B3                                                  MCG      2947
                          5163000015 C            SA6    RVT+B3      RVT(REGR) = 0 */ MAKE REG AVAIL             MCG      2948
          1406  5160000171 C                      SA6    SF          SF = 0                                      MCG      2949
                          12712                   BX7    X1+X2       AXR = AXR ! RBV(REGR)                       MCG      2950
                               54710              SA7    A1                                                      MCG      2951
          1407  0400001367 +                      EQ     SUR                                                     MCG      2952
                                                                                                                 MCG      2953
          1410                     1     SURA     BSS    1                                                       MCG      2954
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    65
        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
          1411  0200401411 +             UJR      ROUTINE                                                        MCG      2964
          1412  6167777776                        SB6    "TB"-1                                                  MCG      2965
                          53436                   S"DI"  X3+B6       DI = BASE-1 + T0                            MCG      2966
                               10633              BX6    X3                                                      MCG      2967
          1413  5160000205 C                      SA6    T0C         T0C = T0                                    MCG      2968
                          5160000204 C            SA6    T0                                                      MCG      2969
          1414  0100001641 +                      RJ     DRT         CLASS = DRT( DI ) */ DETERMINE REG CLASS    MCG      2970
                                                  PRINT  UJR,(* TO = *,O6),T0                                    MCG      2971
                                                  PRNT   UJR,RUI                                                 MCG      2972
          1415  5160000202 C                      SA6    CLASS                                                   MCG      2973
                          7170000000              SX7    0                                                       FCC1451     8
          1416  5170001257 +                      SA7    ISI         ISI = 0       */ INDICATE *ISI* NOT ENTERED FCC1451     9
                          0100001620 +            RJ     CSI         CHECK STORE REGISTERS                       FCC1451    10
          1417  5110001257 +                      SA1    ISI                                                     FCC1451    11
                          0301001422 +            ZR     X1,UJR0A    IF ISI = 0 */NO INSTRUCTIONS ISSUED         FCC2061    10
                                                                                                                 FCC1451    13
          1420  5120000204 C             UJR0     SA2    T0                                                      FCC2061    11
                          0100001257 +            RJ     ISI         TRY AND ISSUE T0                            FCC1451    15
                                                  PRINT  JAM,(* CSI ISSUED A ST, REGNO =*Z2),B3                  FCC1451    16
          1421  0630001411 +                      PL     B3,UJR      IF REGNO \ 0  */ ISI ISSUED THE INSTRUCTION FCC1451    17
                                                                                                                 FCC1451    18
          1422  0100002631 +             UJR0A    RJ     AIS         ALLOCATE INSTRUCTION SPACE                  FCC2061    12
          1423  5110000012 C                      SA1    AXR                                                     MCG      2976
                          7140377000              SX4    FX.SCR                                                  MCG      2977
          1424  11641                             BX6    X4*X1       AVAIL = AXR & FX.SCR                        MCG      2978
                     0306001431 +                 ZR     X6,UJR2     IF AVAIL = 0                                MCG      2979
          1425  5110000202 C                      SA1    CLASS                                                   MCG      2980
                          11716                   BX7    X1*X6                                                   MCG      2981
          1426  0317001411 +                      NZ     X7,UJR      IF AVAIL & CLASS " 0                        MCG      2982
                                                                                                                 MCG      2983
          1427  5110000202 C             UJR1     SA1    CLASS                                                   MCG      2984
                          0100002000 +            RJ     CRA         CHANGE REGISTER ASSIGNMENTS AND ISSUE *T0*  FCC0584     8
          1430  0400001411 +                      EQ     UJR                                                     MCG      2986
                                                                                                                 MCG      2987
          1431  5110000202 C             UJR2     SA1    CLASS                                                   MCG      2988
                          0100001671 +            RJ     FRR         REGF = FRR(RVT,MCOST)  */ FIND A RESULT REG MCG      2989
          1432  7174777774                        SX7    B4-3                                                    MCG      2990
                          43500                   MX5    0                                                       FCC2061    13
          1433  0337001434 +                      MI     X7,UJR3     IF MCOST < 3                                MCG      2991
                                                                                                                 MCG      2992
                                        *         DUMP THE STORE REG WHOSE FIRST USE IS FURTHEST AWAY            MCG      2993
                                                                                                                 MCG      2994
                          0100001522 +            RJ     FSR         FIND A STORE REGISTER                       FCC2207    15
                                                                                                                 FCC2207    16
          1434  5113000015 C             UJR3     SA1    RVT+B3                                                  MCG      3017
                          15610                   BX6    "RN"X1      R0 = RI[RVT(REGF)]                          MCG      3018
          1435  5160000203 C                      SA6    R0                                                      MCG      3019
                                                  PRINT  UJR,(* R0 = *,O6),R0                                    MCG      3020
                          5110000012 C            SA1    AXR                                                     MCG      3021
          1436  5123000140 C                      SA2    RBV+B3                                                  MCG      3022
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    66
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
                          5130000202 C            SA3    CLASS                                                   MCG      3023
          1437  12612                             BX6    X1+X2       AXR = AXR ! RBV(REGF) */ MAKE REG AVAIL     MCG      3024
                     54610                        SA6    A1                                                      MCG      3025
                          43700                   MX7    0                                                       MCG      3026
          1440  5173000015 C                      SA7    RVT+B3                                                  FCC2061    18
                          0335001457 +            MI     X5,UJR10    IF BOTH X6 AND X7 LOCKED                    FCC2061    19
          1441  11523                             BX5    X2*X3                                                   MCG      3027
                     0315001451 +                 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
          1442  0614001447 +                      LE     B4,B1,UJR4  IF MCOST @ 1                                MCG      3033
                          0100002454 +            RJ     TGL         SHOULD R0 BE TOGGLED                        FCC2207    20
          1443  0540001420 +                      NZ     B4,UJR0     IF B4 " 0 R0 WAS TOGGLED                    FCC2207    21
                          7160000000              SX6    0                                                       MCG      3034
          1444  5160000204 C                      SA6    T0          T0 = 0                                      MCG      3035
                          0100002517 +            RJ     SRM         SAVE RESULT IN MEMORY                       MCG      3036
          1445  5150000205 C                      SA5    T0C                                                     MCG      3037
                          7265000000              SX6    X5+         T0 = T0C      */ RESTORE T0                 MCG      3038
          1446  5160000204 C                      SA6    T0                                                      MCG      3039
                          0400001427 +            EQ     UJR1                                                    MCG      3040
                                                                                                                 MCG      3041
          1447  5110000203 C             UJR4     SA1    R0                                                      MCG      3042
                          0100001600 +            RJ     RII         RESET FOR REISSUE                           MCG      3043
          1450  0400001427 +                      EQ     UJR1                                                    MCG      3044
                                                                                                                 MCG      3045
                                        *         REGF IN *CLASS*, FREE IT UP                                    MCG      3046
                                                                                                                 MCG      3047
          1451  0614001454 +             UJR5     LE     B4,B1,UJR6  IF MCOST @ 1                                MCG      3048
                                                                                                                 MCG      3049
                          0100002454 +            RJ     TGL         SHOULD R0 BE TOGGLED                        FCC2207    22
          1452  0540001420 +                      NZ     B4,UJR0     IF B4 " 0 R0 WAS TOGGLED                    FCC2207    23
                          0100002517 +            RJ     SRM         SAVE RESULT IN MEMORY                       MCG      3050
          1453  0400001411 +                      EQ     UJR                                                     MCG      3051
                                                                                                                 MCG      3052
          1454  5120000204 C             UJR6     SA2    T0                                                      MCG      3053
                          0100001257 +            RJ     ISI         ISSUE T0                                    MCG      3054
          1455  5110000203 C                      SA1    R0                                                      MCG      3055
                          0100001600 +            RJ     RII         RESET FOR REISSUE                           MCG      3057
          1456  0400001411 +                      EQ     UJR                                                     MCG      3058
                                                                                                                 FCC2061    20
                                        *         BOTH X6 AND X7 LOCKED UP - FREE ONE OF THEM.                   FCC2061    21
                                                                                                                 FCC2061    22
          1457  5110000203 C             UJR10    SA1    R0                                                      FCC2061    23
                          5130000124 C            SA3    LXR                                                     FCC2061    24
          1460  6127777776                        SB2    "TB"-1                                                  FCC2061    25
                          15732                   BX7    -X2*X3                                                  FCC2061    26
                               53412              S"DI"  B2+X1       DI OF R0                                    FCC2061    27
          1461  54730                             SA7    A3          CLEAR LXR AT R0                             FCC2061    28
                     20425                        LX4    59-D.PRSP                                               FCC2061    29
                          0324001521 +            PL     X4,UJR.E1   IF ^PRS ABORT                               FCC2061    30
                                                                                                                 FCC2061    31
          1462  0100002570 +                      RJ     OTS         OUTPUT TEMP STORE                           FCC2061    32
                                                                                                                 FCC2061    33
          1463  5110000203 C                      SA1    R0                                                      FCC2061    34
                          0100002601 +            RJ     GLI         GENERATE LOAD OF TEMP                       FCC2061    35
                                                                                                                 FCC2061    36
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    67
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
                                        *         UPDATE DESCRIPTOR AND LINK WORDS OF R0.                        FCC2061    37
                                                                                                                 FCC2061    38
          1464  5110000203 C                      SA1    R0                                                      FCC2061    39
                          53317                   SA3    "TB"+X1                                                 FCC2061    40
                               76210              SX2    B1                                                      FCC2061    41
          1465  20314                             LX3    -I.USESP                                                FCC2061    42
                     36723                        IX7    X2+X3       USES = USES + 1                             FCC2061    43
                          55431                   SA4    A3-B1       DI = LI - 1                                 FCC2061    44
                               20760              LX7    I.USESP                                                 FCC2061    45
          1466  54730                             SA7    A3                                                      FCC2061    46
                     20246                        LX2    D.PRSP                                                  FCC2061    47
                          15742                   BX7    -X2*X4      [DI] = [DI] AND ^PRS                        FCC2061    48
                               54740              SA7    A4                                                      FCC2061    49
                                                                                                                 FCC2061    50
                                        *         GENERATE XMT OF LOADED TEMP AT END OF TEXT                     FCC2061    51
                                                                                                                 FCC2061    52
          1467  7110000010                        ALLOC  TXT,8                                                   FCC2061    53
          1471  7110000003                        ALLOC  TREE,3      (B6) =  LTR = OLD(L.TREE)                   FCC2061    54
          1473  0100002641 +                      RJ     AIP                                                     FCC2061    55
          1474  5110000203 C                      SA1    R0                                                      FCC2061    56
                          5120000000 X            SA2    L.TXT                                                   FCC2061    57
          1475  7222777767                        SX2    X2-8        LT = L.TXT - 8                              FCC2061    58
                          76710                   SX7    B1                                                      FCC2061    59
                               76660              SX6    B6                                                      FCC2061    60
          1476  20641                             LX6    I.INDXP                                                 FCC2061    61
                     12667                        BX6    X6+X7                                                   FCC2061    62
                          53627                   SA6    "TB"+X2     [LIT] = LW(O,O,LTR,0,1)                     FCC2061    63
          1477  6120000010                        SB2    OC.XMT                                                  FCC2061    64
                          5142000000 X            SA4    F.RDT+B2                                                FCC2061    65
          1500  20746                             LX7    D.PRSP                                                  FCC2061    66
                     12647                        BX6    X4+X7                                                   FCC2061    67
                          55661                   SA6    A6-B1       DIT=LIT-1;[DIT]=RDT(OC.XMT)!PRS             FCC2061    68
                               43700              MX7    0                                                       FCC2061    69
          1501  55761                             SA7    A6-B1       R2T=DIT-1;[R2T]=0                           FCC2061    70
                     73110                        SX1    X1                                                      FCC2061    71
                          20140                   LX1    R1.RJP                                                  FCC2061    72
                               12712              BX7    X1+X2                                                   FCC2061    73
          1502  27627                             PX6    B2,X7                                                   FCC2061    74
                     55671                        SA6    A7-B1       R1T=R2T-1;[R1T]=TYI(OC.XMT,R0,0,LT)         FCC2061    75
                          20134                   LX1    -R1.RJP                                                 FCC2061    76
                                                                                                                 FCC2061    77
                                        *         GENERATE RS AFTER XMT.                                         FCC2061    78
                                                                                                                 FCC2061    79
          1503  6222000004                        SB2    X2+4        RSLT = LT + 4                               FCC2061    80
                          7166000002              SX6    B6+2                                                    FCC2061    81
          1504  76710                             SX7    B1                                                      FCC2061    82
                     20641                        LX6    I.INDXP                                                 FCC2061    83
                          12767                   BX7    X6+X7                                                   FCC2061    84
                               56772              SA7    "TB"+B2     [LIT] = LW(0,0,LTR+2,0,1)                   FCC2061    85
          1505  5130000004 X                      SA3    F.RDT+OC.RS                                             FCC2061    86
                          66271                   SB2    "TB"+B1                                                 FCC2061    87
                               10733              BX7    X3                                                      FCC2061    88
          1506  55771                             SA7    A7-B1       DIT=LIT-1;[LIT]=F.RDT(OC.RS)                FCC2061    89
                     43600                        MX6    0                                                       FCC2061    90
                          55671                   SA6    A7-B1       R2T=DIT-1;[R2T]=0                           FCC2061    91
                               53312              SA3    B2+X1       R1W OF RS OF R0                             FCC2061    92
          1507  11603                             BX6    X0*X3       MASK OUT RI                                 FCC2061    93
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    68
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
                     12762                        BX7    X6+X2       REPLACE IT WITH LT                          FCC2061    94
                          55761                   SA7    A6-B1       R1T=R2T-1;[R1T]=TYII(OC.RS,IN,SO,LT)        FCC2061    95
                                                                                                                 FCC2061    96
                                        *         ADJUST *SIT* SO THAT XMT IS THE LAST SUCCESSOR OF R0.          FCC2061    97
                                                                                                                 FCC2061    98
                               53317              SA3    "TB"+X1                                                 FCC2061    99
          1510  5140000000 X                      SA4    O.TREE                                                  FCC2061   100
                          20333                   LX3    -I.INDXP                                                FCC2061   101
                               43755              MX7    -I.INDXL                                                FCC2061   102
          1511  63240                             SB2    X4          =UO                                         FCC2061   103
                     15337                        BX3    -X7*X3                                                  FCC2061   104
                          53332                   SA3    B2+X3       = UI                                        FCC2061   105
                                                                                                                 FCC2061   106
                                        *         SEARCH FOR LAST SUCCESSOR OF R0                                FCC2061   107
                                                                                                                 FCC2061   108
                                         UJR20    LX3    59-U.LASTP                                              FCC2061   109
          1512  0333001514 +                      MI     X3,UJR30    IF LAST                                     FCC2061   110
                          54331                   SA3    A3+B1                                                   FCC2061   111
          1513  0400001512 +                      EQ     UJR20       LOOP UNTIL LAST IS FOUND                    FCC2061   112
                                                                                                                 FCC2061   113
                                        *         MAKE LT THE LAST SUCCESSOR OF RO.                              FCC2061   114
                                                                                                                 FCC2061   115
                                         UJR30    LX3    U.LASTP-U.SUCCP+1                                       FCC2061   116
          1514  11703                             BX7    X0*X3       MASK OUT SUCC.                              FCC2061   117
                     12627                        BX6    X2+X7                                                   FCC2061   118
                                                  LX6    U.SUCCP                                                 FCC2061   119
                          54630                   SA6    A3          LAST SUCC OF R0 = LT                        FCC2061   120
                                                                                                                 FCC2061   121
                                        *         MAKE RS OF LT THE FIRST SUCCESSOR OF LT.                       FCC2061   122
                                                                                                                 FCC2061   123
          1515  7242000004                        SX4    X2+4        RSLT = LT + 4                               FCC2061   124
                          20244                   LX2    U.PREDP                                                 FCC2061   125
                                                  LX4    U.SUCCP                                                 FCC2061   126
                               12724              BX7    X2+X4                                                   FCC2061   127
          1516  56726                             SA7    B2+B6       [LTR] = USES(0,LT,0,RSLT)                   FCC2061   128
                                                                                                                 FCC2061   129
                                        *         MAKE THE PREVIOUS LAST SUCCESSOR OF RO THE LAST SUCCESSOR OF L FCC2061   130
                                                                                                                 FCC2061   131
                     15630                        BX6    "RN"X3      LSR0 = PREV. LAST SUCCESSOR OF R0           FCC2061   132
                          76710                   SX7    B1                                                      FCC2061   133
                               20773              LX7    U.LASTP                                                 FCC2061   134
          1517  12667                             BX6    X6+X7                                                   FCC2061   135
                     12726                        BX7    X2+X6                                                   FCC2061   136
                          54771                   SA7    A7+B1       [LTR+1] = USES(1,LT,0,LSR0)                 FCC2061   137
                                                                                                                 FCC2061   138
                                        *         MAKE THE PREV. LAST SUCCESSOR OF RO THE LAST SUCCESSOR OF RSLT FCC2061   139
                                                                                                                 FCC2061   140
                               20444              LX4    U.PREDP-U.SUCCP                                         FCC2061   141
          1520  12746                             BX7    X4+X6                                                   FCC2061   142
                     54771                        SA7    A7+B1       [LTR+2] = USES(1,RSLT,0,LSR0)               FCC2061   143
                          0400001420 +            EQ     UJR0        TRY AGAIN                                   FCC2061   144
                                                                                                                 MCG      3059
                                        *         COMPILER ERROR, UNFORSEEN SITUATION                            MCG      3060
                                                                                                                 MCG      3061
          1521                           DRT0     BSS    0                                                       MCG      3062
          1521                           UJR.E1   BSS    0                                                       MCG      3063
                                                  PRNT   JAM,RUI                                                 MCG      3064
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    69
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
          1521  0400401521 +                      EQ     *+1S17                                                  FCC0641    73
  
  
  
                                        **        FSR - FIND STORE REGISTER, NO REGS AVAIL                       FCC2207    25
                                        *                                                                        FCC2207    26
                                        *         EXIT   (B3) = REGNO, = 0 IF NOTHING FOUND                      FCC2207    27
                                        *                (B4) = MCOST                                            FCC2207    28
                                        *         (X5) = NEG IF BOTH X6 AND X7 LOCKED.                           FCC2207    29
                                                                                                                 FCC2207    30
          1522  0200401522 +             FSR      ROUTINE                                                        FCC2207    31
          1523  5110000043 C                      SA1    RVT+RN.X0+6                                             FCC2207    32
                          54211                   SA2    A1+B1                                                   FCC2207    33
                               43501              MX5    1                                                       FCC2207    34
          1524  11651                             BX6    X5*X1                                                   FCC2207    35
                     11752                        BX7    X5*X2                                                   FCC2207    36
                          5160001557 +            SA6    FSRA        FSRA(1) = LOCK[RVT(X6)]                     FCC2207    37
          1525  54761                             SA7    A6+B1       FSRA(2) = LOCK[RVT(X7)]                     FCC2207    38
                     5130000202 C                 SA3    CLASS                                                   FCC2207    39
          1526  7243400777                        SX4    X3-FX.SCR                                               FCC2207    40
                          0304001533 +            ZR     X4,FSR2     IF CLASS = FX.SCR                           FCC2207    41
          1527  5120000204 C                      SA2    T0                                                      FCC2207    42
                          0100001561 +            RJ     GOR         GET REGNO"S OF OPERANDS OF T0               FCC2207    43
                                                                                                                 FCC2207    44
          1530  0307001533 +             FSR1     ZR     X7,FSR2     IF END OF LIST                              FCC2207    45
                          7247777751              SX4    X7-RN.X0-6                                              FCC2207    46
          1531  21722                             AX7    18                                                      FCC2207    47
                     0334001530 +                 MI     X4,FSR1     IF NOT A STORE REG                          FCC2207    48
                               43601              MX6    1                                                       FCC2207    49
          1532  5264001557 +                      SA6    FSRA+X4     INDICATE REGISTER IS NOT AVAIL              FCC2207    50
                          0400001530 +            EQ     FSR1                                                    FCC2207    51
                                                                                                                 FCC2207    52
          1533  5110001557 +             FSR2     SA1    FSRA                                                    FCC2207    53
                          54211                   SA2    A1+B1                                                   FCC2207    54
                               11512              BX5    X1*X2                                                   FCC2207    55
          1534  6130000026                        SB3    RN.X0+6     REGNO = X6                                  FCC2207    56
                          66411                   SB4    B1+B1       MCOST = 2                                   FCC2207    57
          1535  0335001540 +                      MI     X5,FSR3     IF BOTH X6 AND X7 LOCKED                    FCC2207    58
                          12712                   BX7    X1+X2                                                   FCC2207    59
          1536  0307001540 +                      ZR     X7,FSR3     IF BOTH AVAILABLE                           FCC2207    60
                          0301001522 +            ZR     X1,FSR      IF X6 IS AVAILABLE                          FCC2207    61
          1537  66331                             SB3    B3+B1       REGNO = RN.X7                               FCC2207    62
                     0400001522 +                 EQ     FSR                                                     FCC2207    63
                                                                                                                 FCC2207    64
                                        *         BOTH ST REGS AVAIL, SEARCH FOR NEXT USE OF EACH.               FCC2207    65
                                                                                                                 FCC2207    66
          1540  5130000000 X             FSR3     SA3    O.TREE                                                  FCC2207    67
                          5110000043 C            SA1    RVT+RN.X0+6                                             FCC2207    68
          1541  54211                             SA2    A1+B1                                                   FCC2207    69
                     43755                        MX7    -I.INDXL                                                FCC2207    70
                          6223777776              SB2    X3-1                                                    FCC2207    71
          1542  53117                             SA1    "TB"+X1     LX6 = TB + RVT(X6)                          FCC2207    72
                     53227                        SA2    "TB"+X2     LX7 = TB + RVT(X7)                          FCC2207    73
                          20133                   LX1    -I.INDXP                                                FCC2207    74
                               20233              LX2    -I.INDXP                                                FCC2207    75
          1543  15117                             BX1    -X7*X1                                                  FCC2207    76
                     15227                        BX2    -X7*X2                                                  FCC2207    77
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    70
        UJR - UNJAM REGISTERS                                         FSR                 JAM 
  
                          6160000002              SB6    59-U.EQVP                                               FCC2207    78
          1544  53112                             SA1    B2+X1       UX6 = TREE-1 + INDX[LX6]                    FCC2207    79
                     53222                        SA2    B2+X2       UX7 = TREE-1 + INDX[LX7]                    FCC2207    80
                                                                                                                 FCC2207    81
          1545  54111                    FSR4     SA1    A1+B1       UX6 = UX6 + 1                               FCC2207    82
                     22661                        LX6    B6,X1                                                   FCC2207    83
                          0336001545 +            MI     X6,FSR4     IF EQV[UX6]                                 FCC2207    84
                                                  LX1    -U.SUCCP                                                FCC2207    85
          1546  53417                             SA4    "TB"+X1     LIS = TB + SUCC[UX6]                        FCC2207    86
                                                  LX4    59-I.IIP                                                FCC2207    87
                     0334001545 +                 MI     X4,FSR4     IF II[LIS]                                  FCC2207    88
                                                                                                                 FCC2207    89
          1547  54221                    FSR5     SA2    A2+B1       UX7 = UX7 + 1                               FCC2207    90
                     22662                        LX6    B6,X2                                                   FCC2207    91
                          0336001547 +            MI     X6,FSR5     IF EQV[UX7]                                 FCC2207    92
                                                  LX1    -U.SUCCP                                                FCC2207    93
          1550  53427                             SA4    "TB"+X2     LIST = TB + SUCC[UX7]                       FCC2207    94
                                                  LX4    59-I.IIP                                                FCC2207    95
                     0334001547 +                 MI     X4,FSR5     IF II[LIS]                                  FCC2207    96
                                                                                                                 FCC2207    97
                               63510              SB5    X1                                                      FCC2207    98
          1551  63620                             SB6    X2                                                      FCC2207    99
                     0765001522 +                 GT     B5,B6,FSR   IF ( SUCC[UI6] > SUCC[UI7] )                FCC2207   100
                               66331              SB3    B3+B1             THEN RN.X6   ELSE RN.X7               FCC2207   101
          1552  0556001522 +                      NE     B5,B6,FSR   IF SUCC[UX6] " SUCC[UX7]                    FCC2207   102
                          5123000015 C            SA2    RVT+B3      RX7 = RVT + RN.X7                           FCC2207   103
          1553  55121                             SA1    A2-B1       RX6 = RX7 - 1                               FCC2207   104
                     43763                        MX7    -I.USESL                                                FCC2207   105
                          53117                   SA1    "TB"+X1     LIX6 = BASE + RX6                           FCC2207   106
                               53227              SA2    "TB"+X2     LIX7 = BASE + RX7                           FCC2207   107
          1554  20114                             LX1    -I.USESP                                                FCC2207   108
                     20214                        LX2    -I.USESP                                                FCC2207   109
                          15117                   BX1    -X7*X1                                                  FCC2207   110
                               15227              BX2    -X7*X2                                                  FCC2207   111
          1555  63510                             SB5    X1                                                      FCC2207   112
                     63620                        SB6    X2                                                      FCC2207   113
                          0756001522 +            GT     B6,B5,FSR    IF USES[LIX7] > USES[LIX6]                 FCC2207   114
          1556  67331                             SB3    B3-B1       REGNO = RN.X6                               FCC2207   115
                     0400001522 +                 EQ     FSR                                                     FCC2207   116
                                                                                                                 FCC2207   117
          1557                     2     FSRA     BSS    2                                                       FCC2207   118
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    71
        UJR - UNJAM REGISTERS                                         GOR                 JAM 
  
                                        **        GOR - GET OPERAND REGISTERS OF INSTRUCTIONS THAT ARE           FCC2207   120
                                        *                A) NOT LOCKED                                           FCC2207   121
                                        *                B) NOT IN *CLASS*                                       FCC2207   122
                                        *                                                                        FCC2207   123
                                        *         ENTRY  (X2) = R-NUMBER OF INSTRUCTION TO CHECK OPERANDS OF     FCC2207   124
                                        *                                                                        FCC2207   125
                                        *         EXIT   (X7) = LOR, LIST OF REGISTERS                           FCC2207   126
                                                                                                                 FCC2207   127
          1561  0200401561 +             GOR      ROUTINE                                                        FCC2207   128
          1562  67671                             SB6    "TB"-B1                                                 FCC2207   129
                     53426                        S"DI"  B6+X2       DI = BASE-1 + T0                            FCC2207   130
                                                  LX4    58-D.TYP                                                FCC2207   131
                          43700                   MX7    0           LOR = 0                                     FCC2207   132
                               36644              IX6    X4+X4                                                   FCC2207   133
          1563  0336001561 +                      MI     X6,GOR      IF TYPE[DI] = II ! IV                       FCC2207   134
                          0324001566 +            PL     X4,GOR1     IF TYPE[DI] = I                             FCC2207   135
                                                                                                                 FCC2207   136
                                        *         ASSEMBLE OPERAND R-NUMBERS                                     FCC2207   137
                                                                                                                 FCC2207   138
          1564  55341                             SA3    "DI"-B1     R2 = DI - 1                                 FCC2207   139
                     20330                        LX3    -IH.RFP                                                 FCC2207   140
                          15530                   BX5    "RN"X3      RNUMS = RF[R2]                              FCC2207   141
          1565  0400001571 +                      EQ     GOR2                                                    FCC2207   142
                                                                                                                 FCC2207   143
          1566  20424                    GOR1     LX4    2+D.TYP-D.TYIOP                                         FCC2207   144
                     43672                        MX6    -D.TYIOL                                                FCC2207   145
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 FCC2207   146
          1567  15746                             BX7    -X6*X4                                                  FCC2207   147
                     5237000001 +                 SA3    TYIOM+X7                                                FCC2207   148
                               26623              UX6    B2,X3                                                   FCC2207   149
          1570  11265                             BX2    X6*X5                                                   FCC2207   150
                     23522                        AX5    B2,X2       RNUMS = TYIO[R1,DI]                         FCC2207   151
                                                                                                                 FCC2207   152
          1571  43401                    GOR2     MX4    1                                                       FCC2207   153
                                                  LX4    1+RV.LOCKP                                              FCC2207   154
                     5110000202 C                 SA1    CLASS                                                   FCC2207   155
                                                                                                                 FCC2207   156
          1572  15650                    GOR3     BX6    "RN"X5      R = RI[RNUMS]                               FCC2207   157
                     21520                        AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                FCC2207   158
                          0306001577 +            ZR     X6,GOR4     IF R = 0                                    FCC2207   159
          1573  53367                             SA3    "TB"+X6     L = BASE + R                                FCC2207   160
                                                  LX3    -I.REGP     REGNO = REG[L]                              FCC2207   161
                     5223000140 C                 SA2    RBV+X3                                                  FCC2207   162
                               11621              BX6    X2*X1                                                   FCC2207   163
          1574  0316001577 +                      NZ     X6,GOR4     IF RBV(REGNO) & CLASS " 0  */ REG IN CLASS  FCC2207   164
                          5223000015 C            SA2    RVT+X3                                                  FCC2207   165
          1575  0332001577 +                      MI     X2,GOR4     IF LOCK[RVT(REGNO)]                         FCC2207   166
                          20722                   LX7    18                                                      FCC2207   167
                               73330              SX3    X3                                                      FCC2207   168
          1576  12737                             BX7    X3+X7       LOR = SHIFT(LOR,18) ! REGNO                 FCC2207   169
          1577  0315001572 +             GOR4     NZ     X5,GOR3     IF RNUMS " 0                                FCC2207   170
                                                                                                                 FCC2207   171
                          0400001561 +            EQ     GOR                                                     FCC2207   172
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    72
        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
          1600  0200401600 +             RII      ROUTINE                                                        MCG      3074
          1601  0100002254 +                      RJ     RIL         RESET ISSUE LIST FOR R                      MCG      3075
          1602  67671                             SB6    "TB"-B1                                                 MCG      3076
                     56463                        S"DI"  B6+B3       DI = BASE-1 + R0                            MCG      3077
                          20441                   LX4    59-D.ZPP                                                MCG      3078
          1603  0334001600 +                      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
          1604  0324001606 +                      PL     X4,RII1     IF TYPE[DI] = I                             MCG      3084
                          55341                   SA3    "DI"-B1     R2 = DI - 1                                 MCG      3085
                               20330              LX3    -IH.RFP                                                 MCG      3086
          1605  15530                             BX5    "RN"X3      RNUMS = RF[R2]                              MCG      3087
                     0400001610 +                 EQ     RII2                                                    MCG      3088
                                                                                                                 MCG      3089
          1606  5034777775               RII1     SA3    "DI"-2      R1 = DI - 2                                 MCG      3090
                          5120000001 +            SA2    TYIOM                                                   MCG      3091
          1607  26622                             UX6    B2,X2                                                   MCG      3092
                     11763                        BX7    X6*X3                                                   MCG      3093
                          23527                   AX5    B2,X7       RNUMS = TYIO[R1,0]                          MCG      3094
                                                                                                                 MCG      3095
          1610  76410                    RII2     SX4    B1                                                      MCG      3096
                     20460                        LX4    I.USESP                                                 MCG      3097
                                                                                                                 MCG      3098
          1611  15650                    RII3     BX6    "RN"X5      R = RI[RNUMS]                               MCG      3099
                     21520                        AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                MCG      3100
                          0306001617 +            ZR     X6,RII4     IF R = 0                                    MCG      3101
          1612  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
          1613  5223000015 C                      SA2    RVT+X3                                                  MCG      3107
                          13126                   BX1    X2-X6                                                   MCG      3108
                               15310              BX3    "RN"X1                                                  MCG      3109
          1614  0303001617 +                      ZR     X3,RII4     IF RI[RVT(REGNO)] = R                       MCG      3110
                          5110000012 C            SA1    AXR                                                     MCG      3111
          1615  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
          1616  54710                             SA7    A1                                                      MCG      3115
          1617  0315001611 +             RII4     NZ     X5,RII3     IF RNUMS " 0                                MCG      3116
                                                                                                                 MCG      3117
                          0400001600 +            EQ     RII                                                     MCG      3118
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    73
        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
          1620  0200401620 +             CSI      ROUTINE                                                        MCG      3123
          1621  6130000026                        SB3    RN.X0+6     I = RN.X6                                   MCG      3124
                                                                                                                 MCG      3125
          1622  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
          1623  20424                             LX4    59-D.PSP                                                MCG      3129
                     0324001635 +                 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
          1624  43755                             MX7    -I.INDXL    ^P = 1                                      MCG      3135
                     5120000000 X                 SA2    O.TREE                                                  MCG      3136
                               20533              LX5    -I.INDXP                                                MCG      3137
          1625  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
          1626  53537                             SA5    "TB"+X3     SI = BASE + SUCC[UI]                        MCG      3144
                                                  LX5    59-I.IIP                                                MCG      3145
                     0335001632 +                 MI     X5,CSI3     IF II[SI]                                   MCG      3146
                               55151              SA1    A5-B1       D = SI - 1                                  MCG      3147
          1627  20501                             LX5    I.IIP-I.ICP                                             MCG      3148
                     20131                        LX1    59-D.STP                                                MCG      3149
                          11615                   BX6    X1*X5                                                   MCG      3150
          1630  0336001637 +                      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
          1631  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
          1632  10633                             BX6    X3          UL = UI                                     MCG      3159
                     54331                        SA3    A3+B1       UI = UI + 1                                 MCG      3160
                          0326001626 +            PL     X6,CSI2     IF ^LAST[UL]                                MCG      3161
                                                                                                                 MCG      3162
          1633  0327001635 +                      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
          1634  54740                             SA7    A4                                                      MCG      3166
                                                                                                                 MCG      3167
          1635  66331                    CSI4     SB3    B3+B1       I = I + 1                                   MCG      3168
                     7163777750                   SX6    B3-RN.X0-7                                              MCG      3169
          1636  0306001622 +                      ZR     X6,CSI1     IF I = RN.X7                                MCG      3170
                          0400001620 +            EQ     CSI                                                     MCG      3171
                                                                                                                 MCG      3172
          1637  75257                    CSI5     SX2    A5-"TB"     R = SI - BASE                               MCG      3173
                     0100001257 +                 RJ     ISI         ISSUE THE STORE                             MCG      3174
          1640  6130000026                        SB3    RN.X0+6     I = RN.X6     */ RESET                      FCC2038     5
                          0400001622 +            EQ     CSI1                                                    MCG      3175
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    74
        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
          1641  0200401641 +             DRT      ROUTINE                                                        MCG      3183
          1642  20407                             LX4    59-D.NRP                                                MCG      3184
                     7160377000                   SX6    FX.SCR      CLASS = FX.SCR                              MCG      3185
                               24724              NX7    B2,X4                                                   MCG      3186
          1643  0222001644 +                      JP     DRT1+B2     JUMP( NORMC[DI] )                           MCG      3187
                                                                                                                 MCG      3188
          1644                           DRT1     BSS    0                                                       MCG      3189
          1644  5054000002                        SA5    "DI"+2      R1RS = DI + 2                               MCG      3190
                          0400001661 +            EQ     DRT2                                                    MCG      3191
                                                                                                                 MCG      3192
          1645  7160140000                        SX6    FX.ST       CLASS = FX.ST                               MCG      3193
                          0400001641 +            EQ     DRT                                                     MCG      3194
                                                                                                                 MCG      3195
          1646  5054000002                        SA5    "DI"+2      R1RS = DI + 2                               MCG      3196
                          0400001665 +            EQ     DRT3                                                    MCG      3197
                                                                                                                 MCG      3198
          1647  0400001521 +                      EQ     DRT0        ECJ                                         MCG      3199
                                                                                                                 MCG      3200
          1650  0400001641 +                      EQ     DRT         LVL2                                        MCG      3201
                                                                                                                 MCG      3202
          1651  7160037000                        SX6    FX.LD       CLASS = LD                                  MCG      3203
                          0400001641 +            EQ     DRT                                                     MCG      3204
                                                                                                                 MCG      3205
          1652  0400001521 +                      EQ     DRT0        ST                                          MCG      3206
          1653  0400001521 +                      EQ     DRT0        JP                                          MCG      3207
          1654  0400001641 +                      EQ     DRT         SXT                                         MCG      3208
          1655  0400001521 +                      EQ     DRT0        KS                                          MCG      3209
          1656  0400001521 +                      EQ     DRT0        PI                                          MCG      3210
          1657  0400001641 +                      EQ     DRT         MUC                                         MCG      3211
          1660  0400001641 +                      EQ     DRT         SCR                                         MCG      3212
                                                                                                                 MCG      3213
                                        *         INSTRUCTION PRECEEDS AN *RJRS*, ENSURE B-REG IS AVAILABLE      MCG      3214
                                                                                                                 MCG      3215
          1661  0100000403 +             DRT2     RJ     FBR         REGNO = FBR( R1RS )                         FCC0641    74
          1662  0730001521 +                      MI     B3,DRT0     IF ACT < 0    */ NO AVAILABLE B-REG         FCC0641    75
                          20415                   LX4    D.NRP-D.PSP                                             FCC0641    76
          1663  7160377000                        SX6    FX.SCR      CLASS = FX.SCR                              FCC0641    77
                          0324001641 +            PL     X4,DRT      IF ^PS[DI]                                  MCG      3226
          1664  7160140000                        SX6    FX.ST       CLASS = FX.ST                               MCG      3227
                          0400001641 +            EQ     DRT                                                     MCG      3228
  
                                        *         INSTRUCTION PRECEEDS A *RS*                                    MCG      3230
                                                                                                                 MCG      3231
          1665  20554                    DRT3     LX5    -R1.SOP                                                 MCG      3232
                     43766                        MX7    -SO.REGL                                                MCG      3233
                          15357                   BX3    -X7*X5                                                  MCG      3234
          1666  5223000140 C                      SA2    RBV+X3                                                  MCG      3235
                          73620                   SX6    X2          CLASS = RBV( SOREG[R1RS] )                  MCG      3236
          1667  0400001641 +                      EQ     DRT                                                     MCG      3237
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    75
        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
          1670  66300                    FRR0     SB3    B0                                                      MCG      3249
                     66600                        SB6    B0          ABR = 0                                     MCG      3250
                          0100001720 +            RJ     CRC         REGF = CRC(RVT,MCOST)                       MCG      3251
                                                                                                                 MCG      3252
          1671  0200401671 +             FRR      ROUTINE                                                        MCG      3253
          1672  7261400777                        SX6    X1-FX.SCR                                               MCG      3254
                          0306001670 +            ZR     X6,FRR0     IF CLASS = FX.SCR                           MCG      3255
          1673  5120000204 C                      SA2    T0                                                      MCG      3256
                          67671                   SB6    "TB"-B1                                                 MCG      3257
                               53426              S"DI"  B6+X2       DI = BASE-1 + T0                            MCG      3258
                                                  LX4    58-D.TYP                                                MCG      3259
          1674  36744                             IX7    X4+X4                                                   MCG      3260
                     0337001670 +                 MI     X7,FRR0     IF TYPE[DI] = II ! IV                       MCG      3261
          1675  0324001677 +                      PL     X4,FRR1     IF TYPE[DI] = I                             MCG      3262
                                                                                                                 MCG      3263
                                        *         ASSEMBLE OPERAND R-NUMBERS                                     MCG      3264
                                                                                                                 MCG      3265
                          55341                   SA3    "DI"-B1     R2 = DI - 1                                 MCG      3266
                               20330              LX3    -IH.RFP                                                 MCG      3267
          1676  15530                             BX5    "RN"X3      RNUMS = RF[R2]                              MCG      3268
                     0400001702 +                 EQ     FRR2                                                    MCG      3269
                                                                                                                 MCG      3270
          1677  20424                    FRR1     LX4    2+D.TYP-D.TYIOP                                         MCG      3271
                     43672                        MX6    -D.TYIOL                                                MCG      3272
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 MCG      3273
          1700  15746                             BX7    -X6*X4                                                  MCG      3274
                     5237000001 +                 SA3    TYIOM+X7                                                MCG      3275
                               26623              UX6    B2,X3                                                   MCG      3276
          1701  11265                             BX2    X6*X5                                                   MCG      3277
                     23522                        AX5    B2,X2       RNUMS = TYIO[R1,DI]                         MCG      3278
                                                                                                                 MCG      3279
                                        *         LOCKOUT OPERANDS OF *T0* THAT ARE NOT IN *CLASS* SO *CRC*      MCG      3280
                                        *         WON"T CONSIDER THEM.                                           MCG      3281
                                                                                                                 MCG      3282
          1702  43401                    FRR2     MX4    1                                                       MCG      3283
                                                  LX4    1+RV.LOCKP                                              MCG      3284
                     43700                        MX7    0           I = 0         */ LIST OF LOCKED OPERAND REG MCG      3285
                                                                                                                 MCG      3286
          1703  15650                    FRR3     BX6    "RN"X5      R = RI[RNUMS]                               MCG      3287
                     21520                        AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                MCG      3288
                          0306001710 +            ZR     X6,FRR4     IF R = 0                                    MCG      3289
          1704  53367                             SA3    "TB"+X6     L = BASE + R                                MCG      3290
                                                  LX3    -I.REGP     REGNO = REG[L]                              MCG      3291
                     5223000140 C                 SA2    RBV+X3                                                  MCG      3292
                               11621              BX6    X2*X1                                                   MCG      3293
          1705  0316001710 +                      NZ     X6,FRR4     IF RBV(REGNO) & CLASS " 0 */ REG IN CLASS   MCG      3294
                          5223000015 C            SA2    RVT+X3                                                  MCG      3295
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    76
        FRR - FIND RESULT REGISTER                                    FRR                 JAM 
  
          1706  0332001710 +                      MI     X2,FRR4     IF LOCK[ RVT(REGNO) ]                       MCG      3296
                          20722                   LX7    18                                                      MCG      3297
                               73330              SX3    X3                                                      MCG      3298
          1707  12642                             BX6    X4+X2                                                   MCG      3299
                     36737                        IX7    X3+X7       I = SHIFT( I , 18) ! REGNO                  MCG      3300
                          54620                   SA6    A2          LOCK[ RVT(REGNO) ] = 1                      MCG      3301
          1710  0315001703 +             FRR4     NZ     X5,FRR3     IF RNUMS " 0                                MCG      3302
                                                                                                                 MCG      3303
                          5170001716 +            SA7    FRRA        FRRA = I                                    MCG      3304
          1711  66300                             SB3    B0                                                      MCG      3305
                     66600                        SB6    B0          ABR = 0                                     MCG      3306
                          0100001720 +            RJ     CRC         REGF = CRC(RVT,MCOST)                       MCG      3307
                                                                                                                 MCG      3308
                                        *         UNLOCK THE LOCKED OPERAND REGISTERS                            MCG      3309
                                                                                                                 MCG      3310
          1712  5110001716 +                      SA1    FRRA        I = FRRA                                    MCG      3311
                          43401                   MX4    1                                                       MCG      3312
                                                  LX4    1+RV.LOCKP                                              MCG      3313
                                                                                                                 MCG      3314
          1713  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
          1714  54620                             SA6    A2                                                      MCG      3318
                     0311001713 +                 NZ     X1,FRR5                                                 MCG      3319
          1715  0400001671 +                      EQ     FRR                                                     MCG      3320
                                                                                                                 MCG      3321
          1716                     1     FRRA     BSS    1                                                       MCG      3322
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    77
        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
          1717  6160000015 C             CRC0     SB6    RVT                                                     MCG      3351
                          65306                   SB3    A0-B6       REGNO = IREG                                MCG      3352
                                                                                                                 MCG      3353
          1720  0200401720 +             CRC      ROUTINE                                                        MCG      3354
          1721  5130002646 +                      SA3    =22333333B                                              MCG      3355
                          5110001776 +            SA1    CRCA                                                    MCG      3356
          1722  5120000035 C                      SA2    RVT+RN.X0   I = RN.X0                                   MCG      3357
                          10733                   BX7    X3          RCOST = 22333333B                           MCG      3358
          1723  6140000004                        SB4    4           MCOST = 4                                   MCG      3359
                          66500                   SB5    B0          MAXD = 0                                    MCG      3360
          1724  0430001736 +                      ZR     B3,CRC4     IF REGNO = 0                                MCG      3361
                                                                                                                 MCG      3362
                          5123000015 C            SA2    RVT+B3      I = REGNO                                   MCG      3363
          1725  66600                             SB6    B0          ABR = 0                                     MCG      3364
                     7163777751                   SX6    B3-RN.X0-6                                              MCG      3365
                               76711              SX7    B1+B1                                                   MCG      3366
          1726  0326001736 +                      PL     X6,CRC4     RCOST = IF( REGNO \ X6 ) THEN 2 ELSE 3      MCG      3367
                          73771                   SX7    X7+B1                                                   MCG      3368
          1727  0400001736 +                      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
          1730  43471                    CRC1     MX4    -3                                                      MCG      3374
                     15674                        BX6    -X4*X7      COST = RCOST & 7                            MCG      3375
                          6226000000              SB2    X6+                                                     MCG      3376
                                                                                                                 MCG      3377
          1731  27622                    CRC2     PX6    B2,X2       COST[RVT(I)] = COST                         MCG      3378
                     54620                        SA6    A2                                                      MCG      3379
                          0742001735 +            GT     B2,B4,CRC3  IF COST > MCOST                             MCG      3380
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    78
        CRC - COMPUTE RESTORE COSTS                                   CRC                 JAM 
  
          1732  20252                             LX2    -RV.NUP                                                 MCG      3381
                     63320                        SB3    X2                                                      MCG      3382
                          0430001735 +            ZR     B3,CRC3     IF NU[RVT(I)] = 0  */ RESULT NOT USED YET   MCG      3383
          1733  0724001734 +                      LT     B2,B4,CRC2A IF COST < MCOST                             MCG      3384
                          0735001735 +            LT     B3,B5,CRC3  IF NU[RVT(I)] < MAXD                        MCG      3385
          1734  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
          1735  21703                    CRC3     AX7    3           RCOST = SHIFT( RCOST , -3 )                 MCG      3390
                     54221                        SA2    A2+B1       I = I + 1                                   MCG      3391
                          0307001717 +            ZR     X7,CRC0     IF RCOST = 0                                MCG      3392
                                                                                                                 MCG      3393
          1736  0332001735 +             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
          1737  0302001735 +                      ZR     X2,CRC3     IF RVT(I) = 0                               MCG      3397
                          11614                   BX6    X1*X4                                                   MCG      3398
                               20450              LX4    59-D.RFP                                                MCG      3399
          1740  0306001730 +                      ZR     X6,CRC1     IF (LD[DI]&ZP[DI]&RF[DI]) = 0               MCG      3400
                          0324001741 +            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
          1741  20454                    CRC5     LX4    D.RFP-D.LDP                                             MCG      3410
                     66200                        SB2    B0          COST = 0                                    MCG      3411
                          0324001731 +            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
          1742  5130001777 +                      SA3    CRCB                                                    MCG      3417
                          11634                   BX6    X3*X4                                                   MCG      3418
                               20411              LX4    D.LDP-D.ZPP                                             MCG      3419
          1743  0316001730 +                      NZ     X6,CRC1     IF FP[DI] ! L2[DI]                          MCG      3420
                          0334001752 +            MI     X4,CRC9     IF ZP[DI]     */ NO REG PRED                MCG      3421
          1744  10644                             BX6    X4                                                      FCC0584     9
                     20633                        LX6    1+D.ZPP+58-D.TYP                                        FCC0584    10
                          0326001746 +            PL     X6,CRC6     IF TYPE[DI] = I                             FCC0584    11
          1745  55341                             SA3    "DI"-B1     R2 = DI - 1                                 MCG      3424
                     20330                        LX3    -IH.RFP                                                 MCG      3425
                          0400001747 +            EQ     CRC7                                                    MCG      3426
                                                                                                                 MCG      3427
          1746  5034777775               CRC6     SA3    "DI"-2      R1 = DI - 2                                 MCG      3428
                          20334                   LX3    -R1.RJP                                                 MCG      3429
                                                                                                                 MCG      3430
          1747  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
          1750  0323001730 +                      PL     X3,CRC1     IF REG[L] > 7 */ PRED NOT IN A B-REG        MCG      3435
                          5255000172 C            SA5    LRN+X5                                                  MCG      3436
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    79
        CRC - COMPUTE RESTORE COSTS                                   CRC                 JAM 
  
          1751  13665                             BX6    X6-X5                                                   MCG      3437
                     0316001730 +                 NZ     X6,CRC1     IF LRN( REG[L] ) " RN                       MCG      3438
  
  
  
                                        *         CHECK ISSUED STORE CHAIN FOR AN INTERFERING STORE              MCG      3440
                                                                                                                 MCG      3441
          1752  20441                    CRC9     LX4    D.ZPP-D.EQVP                                            MCG      3442
                     66210                        SB2    B1          COST = 1                                    MCG      3443
                          0324001731 +            PL     X4,CRC2     IF ^EQV[DI]                                 MCG      3444
          1753  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
          1754  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
          1755  0324001757 +                      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
          1756  13624                             BX6    X2-X4                                                   MCG      3457
                     15460                        BX4    "RN"X6                                                  MCG      3458
                          0314001730 +            NZ     X4,CRC1     IF RF[R2S] " RI[RVT(I)]  */ AN EQUIV LINK   MCG      3459
                                                                                                                 MCG      3460
          1757  73630                    CRC10    SX6    X3                                                      MCG      3461
                     0306001731 +                 ZR     X6,CRC2     IF J = 0      */ END OF CHAIN               FCC0584    12
                               53337              SA3    "TB"+X3     L  = BASE + J;  J = [L]                     MCG      3463
          1760  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
          1761  0530001757 +                      NZ     B3,CRC10    IF IH[R2] " IH[R2J]                         MCG      3468
                          20630                   LX6    IH.IHP-IH.RFP                                           MCG      3469
                               63360              SB3    X6                                                      MCG      3470
          1762  0530001764 +                      NZ     B3,CRC11    IF RF[R2] " RF[R2J]                         FCC1656X    5
                          20622                   LX6    IH.RFP-IH.CAP                                           MCG      3472
                               63360              SB3    X6                                                      MCG      3473
          1763  0530001757 +                      NZ     B3,CRC10    IF CA[R2] " CA[R2J]                         MCG      3474
                                                                                                                 FCC1656X    6
          1764  75437                    CRC11    SX4    A3-"TB"                                                 FCC1656X    7
                     7262000000                   SX6    X2+                                                     FCC1656X    8
                               37646              IX6    X4-X6                                                   FCC1656X    9
          1765  0336001757 +                      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
          1766  37546                             IX5    X4-X6                                                   FCC1656X   16
                     20222                        LX2    RV.NUP                                                  FCC1656X   17
                          0335001730 +            MI     X5,CRC1     IF NU[RVT(I)] > J                           FCC1656X   18
                                                                                                                 FCC1656X   19
          1767  53527                             SA5    "TB"+X2     LI = BASE + RI[RVT(I)]                      FCC1656X   20
                     5140000000 X                 SA4    O.TREE                                                  FCC1656X   21
                               43355              MX3    -I.INDXL                                                FCC1656X   22
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    80
        CRC - COMPUTE RESTORE COSTS                                   CRC                 JAM 
  
          1770  20533                             LX5    -I.INDXP                                                FCC1656X   23
                     6234777776                   SB3    X4-1                                                    FCC1656X   24
                               15353              BX3    -X3*X5                                                  FCC1656X   25
          1771  53433                             SA4    B3+X3       UI = TREE-1 + INDX[LI]                      FCC1656X   26
                                                                                                                 FCC1656X   27
          1772  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
                          0335001772 +            MI     X5,CRC12    IF II[SI]                                   FCC1656X   32
                                                                                                                 FCC1656X   33
          1773  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
          1774  20622                             LX6    RV.NUP                                                  FCC1656X   38
                     10266                        BX2    X6                                                      FCC1656X   39
                          54620                   SA6    A2                                                      FCC1656X   40
          1775  0400001730 +                      EQ     CRC1                                                    MCG      3475
                                                                                                                 MCG      3476
                                                  IFEQ   RF.SAV,0,2                                              MCG      3477
          1776                           CRCA     BFMW   D,(LD,ZP)                                               MCG      3478
                                                  ELSE   1                                                       MCG      3479
                                         CRCA     BFMW   D,(LD,ZP,RF)                                            MCG      3480
          1777                           CRCB     BFMW   D,(L2,FP),59-D.LDP                                      MCG      3481
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    81
        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
          2000  0200402000 +             CRA      ROUTINE                                                        MCG      3493
          2001  7271637777                        SX7    X1-FX.ST                                                MCG      3494
                          0317002024 +            NZ     X7,CRA4     IF CLASS " FX.ST                            MCG      3495
                                                                                                                 MCG      3496
                                        *         STORE REGISTERS JAMMED, FREE ONE OF THEM UP                    MCG      3497
                                                                                                                 MCG      3498
          2002  5110000012 C                      SA1    AXR                                                     MCG      3499
                          7150777400              SX5    FX.SCR+FX.XT                                            MCG      3500
          2003  11715                             BX7    X1*X5       AVAIL = AXR & FX.SCR                        MCG      3501
                     24637                        NX6    B3,X7                                                   MCG      3502
                          5133777744 +            SA3    B3+FXRA+16-47                                           MCG      3503
          2004  67671                             SB6    "TB"-B1                                                 MCG      3504
                     63330                        SB3    X3          REGR = FXRA( NORMC(AVAIL) )                 MCG      3505
                          6140000026              SB4    RN.X0+6     REGF = X6                                   FCC1056    34
          2005  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
          2006  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
          2007  15647                             BX6    -X7*X4                                                  FCC1056    40
                     0305002011 +                 ZR     X5,CRA1     IF STRS[DX6] = 0                            FCC1056    41
          2010  0316002014 +                      NZ     X6,CRA2     IF STRS[DX7] " 0                            FCC1056    42
                          6144000001              SB4    B4+1        REGF = X7                                   FCC1056    43
                                                                                                                 MCG      3517
          2011  6120000010               CRA1     SB2    OC.XMT                                                  MCG      3518
                          0100002236 +            RJ     OXI         OUTPUT XMT REGF TO REGR                     MCG      3519
          2012  5120000204 C                      SA2    T0                                                      FCC0584    13
                          0100001257 +            RJ     ISI         ISSUE T0                                    FCC0584    14
          2013  0400002000 +                      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
          2014  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
          2015  0625002016 +                      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
          2016  20122                    CRA3     LX1    RV.NUP                                                  MCG      3533
                     6120000010                   SB2    OC.XMT                                                  MCG      3534
                               15610              BX6    "RN"X1      R0 = RI[RVT(REGF)]                          MCG      3535
          2017  27736                             PX7    B3,X6                                                   MCG      3536
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    82
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
                     5170000203 C                 SA7    R0                                                      MCG      3537
          2020  0100002236 +                      RJ     OXI         OUTPUT XMT REGF TO REGR                     MCG      3538
          2021  5120000204 C                      SA2    T0                                                      MCG      3539
                          0100001257 +            RJ     ISI         ISSUE *T0*                                  MCG      3540
          2022  76600                             SX6    B0                                                      FCC0881    38
                     0100002120 +                 RJ     SXB         SETUP *XMT* BACK                            FCC0881    39
          2023  0400002000 +                      EQ     CRA                                                     MCG      3542
                                                                                                                 MCG      3543
                                        *         *LD* REGISTER NEEDED.                                          MCG      3544
                                                                                                                 MCG      3545
          2024  7271740777               CRA4     SX7    X1-FX.LD                                                MCG      3546
                          0317002054 +            NZ     X7,CRA10    IF CLASS " FX.LD                            MCG      3547
          2025  66300                             SB3    B0                                                      MCG      3548
                     66600                        SB6    B0          ABR = 0                                     MCG      3549
                          0100001720 +            RJ     CRC         COMPUTE RESTORE COSTS                       MCG      3550
          2026  5110000012 C                      SA1    AXR                                                     MCG      3551
                          7120140000              SX2    FX.ST                                                   MCG      3552
          2027  11321                             BX3    X2*X1                                                   MCG      3553
                     0303002047 +                 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
          2030  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
          2031  5112000015 C             CRA5     SA1    RVT+B2                                                  MCG      3564
                          0331002037 +            MI     X1,CRA7     IF LOCK[RVT(I)]                             MCG      3565
          2032  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
          2033  0334002037 +                      MI     X4,CRA7     IF PRS[DI]                                  FCC0625    13
                          26631                   UX6    B3,X1                                                   MCG      3568
                               20152              LX1    -RV.NUP                                                 MCG      3569
          2034  0743002036 +                      GT     B3,B4,CRA6  IF COST[RVT(I)] > MAXC                      MCG      3570
                          0734002037 +            LT     B3,B4,CRA7  IF COST[RVT(I)] < MAXC                      MCG      3571
          2035  6261000000                        SB6    X1+                                                     MCG      3572
                          0765002037 +            LT     B6,B5,CRA7  IF NU[RVT(I)] < MAXD                        MCG      3573
          2036  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
          2037  6122000001               CRA7     SB2    B2+1        I = I + 1                                   MCG      3577
                          7162777751              SX6    B2-RN.X0-6                                              MCG      3578
          2040  0336002031 +                      MI     X6,CRA5     IF I < RN.X6                                MCG      3579
                          6130000026              SB3    RN.X0+6                                                 MCG      3580
          2041  5113000015 C                      SA1    RVT+B3                                                  MCG      3581
                          64400                   SB4    A0                                                      MCG      3582
                               67671              SB6    "TB"-B1                                                 MCG      3583
          2042  0301002043 +                      ZR     X1,CRA8     REGR = IF( RVT(X6) = 0 ) THEN X6 ELSE X7    MCG      3584
                          66331                   SB3    B3+B1                                                   MCG      3585
                                                                                                                 MCG      3586
          2043  5114000015 C             CRA8     SA1    RVT+B4                                                  MCG      3587
                          53416                   S"DI"  B6+X1       DI = BASE-1 + RI[RVT(REGF)]                 MCG      3588
                               20425              LX4    59-D.PRSP                                               MCG      3589
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    83
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
          2044  0324002011 +                      PL     X4,CRA1     IF ^PRS[DI]                                 MCG      3590
                          20152                   LX1    -RV.NUP                                                 MCG      3591
          2045  5124000140 C                      SA2    RBV+B4                                                  FCC0881    40
                          5130000124 C            SA3    LXR                                                     FCC0881    41
          2046  15632                             BX6    -X2*X3      LXR = LXR & ^RBV(REGF)  */ CLEAR LOCK BIT   FCC0881    42
                     54630                        SA6    A3                                                      FCC0881    43
                          0400002016 +            EQ     CRA3                                                    MCG      3592
  
  
                                        *         LD REG NEEDED AND NO ST REG AVAILABLE, SEARCH FOR ^PRS LD-REG. FCC0502     5
                                                                                                                 FCC0502     6
          2047  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
          2050  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
          2051  0324002011 +                      PL     X4,CRA1     IF ^PRS[DI]                                 FCC0502    14
                          66441                   SB4    B4+B1       REGF = REGF + 1                             FCC0502    15
          2052  7164777752                        SX6    B4-RN.X0-5                                              FCC0502    16
                          0336002050 +            MI     X6,CRA9A    IF REGF < RN.X5                             FCC0502    17
                                                                                                                 FCC0502    18
          2053  0400002043 +                      EQ     CRA8                                                    FCC0502    19
                                                                                                                 MCG      3600
                                        *         INSTRUCTION PRS AND CANNOT BE ISSUED                           MCG      3601
                                                                                                                 MCG      3602
          2054  5110000204 C             CRA10    SA1    T0                                                      MCG      3603
                          66671                   SB6    "TB"+B1                                                 MCG      3604
                               53216              SA2    X1+B6       R1RS = BASE + T0+4                          MCG      3605
          2055  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
          2056  7276777767                        SX7    X6-8                                                    MCG      3610
                          0337002062 +            MI     X7,CRA11    IF REGF @ 7   */ A B-REGISTER               MCG      3611
          2057  5110000012 C                      SA1    AXR                                                     MCG      3612
                          7150777400              SX5    FX.SCR+FX.XT                                            MCG      3613
          2060  11715                             BX7    X1*X5       AVAIL = AXR & FX.SCR                        MCG      3614
                     24637                        NX6    B3,X7                                                   MCG      3615
                          5133777744 +            SA3    B3+FXRA+16-47                                           MCG      3616
          2061  63330                             SB3    X3          REGR = FXRA( NORMC(AVAIL) )                 MCG      3617
                     0400002011 +                 EQ     CRA1                                                    MCG      3618
                                                                                                                 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
          2062  5114000015 C             CRA11    SA1    RVT+B4                                                  FCC1555X   24
                          5120000131 C            SA2    JLR                                                     FCC1555X   25
          2063  6134000014                        SB3    B4+12                                                   FCC1555X   26
                          22232                   LX2    B3                                                      FCC1555X   27
          2064  0332002107 +                      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
          2065  5130000000 X                      SA3    O.TREE                                                  FCC1555X   32
                          20233                   LX2    -I.INDXP                                                FCC1555X   33
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    84
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
                               15627              BX6    -X7*X2                                                  FCC1555X   34
          2066  63330                             SB3    X3                                                      FCC1555X   35
                     53363                        SA3    B3+X6       UI = TREE + INDX[LI]                        FCC1555X   36
                          0400002070 +            EQ     CRA13                                                   FCC1555X   37
                                                                                                                 FCC1555X   38
                                         CRA12    LX3    59-U.LASTP+U.SUCCP                                      FCC1555X   39
          2067  0333002110 +                      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
          2070  53537                             SA5    "TB"+X3     LIS = TB + SUCC[UI]                         FCC1555X   44
                                                  LX5    59-I.IIP                                                FCC1555X   45
                     0335002067 +                 MI     X5,CRA12    IF II[LIS]    */ ISSUED                     FCC1555X   46
                               55551              SA5    A5-B1       DIS = LIS - 1                               FCC1555X   47
          2071  5025777775                        SA2    A5-2                                                    FCC1655X    4
                          22615                   LX6    B1,X5                                                   FCC1555X   48
                                   0              ERRNZ  59-D.TYP-1                                              FCC1555X   49
          2072  0336002067 +                      MI     X6,CRA12    IF TYPE[DIS] = II ! IV                      FCC1555X   50
                                                  LX5    58-D.TYP                                                FCC1555X   51
                          0325002075 +            PL     X5,CRA14    IF TYPE[DIS] = I                            FCC1555X   52
          2073  20532                             LX5    1+D.TYP-D.JPP                                           FCC1555X   53
                     0325002067 +                 PL     X5,CRA12    IF ^JP[DIS]   */ ^ B USE                    FCC1555X   54
          2074  0400002107 +                      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
          2075  5055777775               CRA14    SA5    A5-2        R1S = DIS - 2                               FCC1555X   61
                          26735                   UX7    B3,X5                                                   FCC1655X    5
                               20554              LX5    -R1.RKP                                                 FCC1555X   62
          2076  15650                             BX6    "RN"X5                                                  FCC1555X   63
                     0306002067 +                 ZR     X6,CRA12    IF RK[R1S] = 0  */ CAN MOVE TO AN X-REGISTE FCC1555X   64
          2077  6150000056                        SB5    OC.SLD                                                  FCC1655X    6
                          0735002107 +            LT     B3,B5,CRA15 IF OC[R1] < OC.SLD                          FCC1655X    7
          2100  6150000060                        SB5    OC.SA                                                   FCC1655X    8
                          0753002107 +            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
          2101  73110                             SX1    X1          R = RN[RVT(REGF)]  */ RI IN B-REG           FCC1655X   13
                     13716                        BX7    X1-X6       ORN = RK[R1]                                FCC1655X   14
                          0317002103 +            NZ     X7,CRA14A   IF R " ORN                                  FCC1655X   15
          2102  20554                             LX5    R1.RKP-R1.RJP                                           FCC1655X   16
                     15650                        BX6    "RN"X5      ORN = RJ[R1]                                FCC1655X   17
          2103  6157777774               CRA14A   SB5    "TB"-3                                                  FCC1655X   18
                          53565                   SA5    B5+X6       R1P = TXT(ORN)                              FCC1655X   19
                               26735              UX7    B3,X5                                                   FCC1655X   20
          2104  6150000005                        SB5    OC.DEF                                                  FCC1655X   21
                          0535002107 +            NE     B3,B5,CRA15 IF OC[R1P] " OC.DEF                         FCC1655X   22
          2105  20551                             LX5    -R1.SOP-SO.RTP                                          FCC1655X   23
                     43771                        MX7    -SO.RTL                                                 FCC1655X   24
                          15657                   BX6    -X7*X5                                                  FCC1655X   25
          2106  0306002110 +                      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
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    85
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
          2107  0400001521 +             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
          2110  5110000012 C             CRA21    SA1    AXR                                                     FCC1555X   73
                          5120000126 C            SA2    T                                                       FCC1555X   74
          2111  7150777400                        SX5    FX.SCR+FX.XT                                            FCC1555X   75
                          11715                   BX7    X1*X5       AVAIL = AXR & FX.SCR                        FCC1555X   76
                               24637              NX6    B3,X7                                                   FCC1555X   77
          2112  63520                             SB5    X2                                                      FCC1555X   78
                     5133777744 +                 SA3    B3+FXRA+16-47                                           FCC1555X   79
          2113  5223000046 C                      SA2    TRA+X3                                                  FCC1555X   80
                          63220                   SB2    X2                                                      FCC1555X   81
                               63330              SB3    X3          REGR = FXR( SCR )                           FCC1555X   82
          2114  0652002115 +                      LE     B2,B5,CRA22 T(IS) = MAX( T , T(IS) )                    FCC1555X   83
                          66520                   SB5    B2                                                      FCC1555X   84
          2115  6120000060               CRA22    SB2    OC.SA                                                   FCC1555X   85
                          0100002236 +            RJ     OXI         OUTPUT A *SA*                               FCC1555X   86
          2116  5120000204 C                      SA2    T0                                                      FCC1555X   87
                          0100001257 +            RJ     ISI         ISSUE T0                                    FCC1555X   88
          2117  0400002000 +                      EQ     CRA                                                     FCC1555X   89
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    86
        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
          2120  0200402120 +             SXB      ROUTINE                                                        MCG      3626
          2121  5120000203 C                      SA2    R0                                                      FCC0881    45
                          67671                   SB6    "TB"-B1                                                 FCC0881    46
                               53426              SA4    B6+X2       DI = BASE-1 + R0                            FCC0881    47
          2122  20424                             LX4    59-D.PSP                                                FCC0881    48
                     0334002155 +                 MI     X4,SXBS     IF PS[DI]                                   FCC0881    49
                                                                                                                 FCC0881    50
          2123  5150000000 X                      SA5    L.TXT       LT = L.TXT                                  MCG      3627
                          7110000004              ALLOC  TXT,4                                                   MCG      3628
          2125  5140000203 C                      SA4    R0                                                      MCG      3629
                          26634                   UX6    B3,X4                                                   MCG      3630
                               10755              BX7    X5                                                      MCG      3631
          2126  5173000015 C                      SA7    RVT+B3      RVT(REGR) = LT                              MCG      3632
                          15440                   BX4    "RN"X4                                                  MCG      3633
                               36325              IX3    X2+X5                                                   MCG      3634
          2127  36224                             IX2    X2+X4                                                   MCG      3635
                     0100000000 X                 MOVE   X1,X2,X3    MOVE( 4 , O.TXT+R0 , O.TXT+LT )             MCG      3636
          2130  0100002641 +                      RJ     AIP         ADJUST POINTERS                             MCG      3637
                                                                                                                 MCG      3638
                                        *         SETUP AN *XMT* WHERE THE ORIGINAL INSTRUCTION WAS              MCG      3639
                                                                                                                 MCG      3640
          2131  5110000203 C                      SA1    R0                                                      MCG      3641
                          6120000010              SB2    OC.XMT                                                  MCG      3642
          2132  67671                             SB6    "TB"-B1                                                 MCG      3643
                     5122000000 X                 SA2    F.RDT+B2                                                MCG      3644
                               43672              MX6    -D.STRSL                                                MCG      3645
          2133  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
          2134  15446                             BX4    -X6*X4                                                  MCG      3650
                     20540                        LX5    R1.RJP                                                  MCG      3651
                          12551                   BX5    X5+X1                                                   MCG      3652
                               27625              PX6    B2,X5                                                   MCG      3653
          2135  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
          2136  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
          2137  0100002254 +                      RJ     RIL         RESET THE ISSUE LIST                        MCG      3657
          2140  5130000206 C                      SA3    SIW                                                     MCG      3658
                          0313002144 +            NZ     X3,SXB0     IF SIW " 0                                  FCC0881    56
          2141  76110                             ALLOC  TREE,1                                                  MCG      3660
          2143  7233777776                        SX3    X3-1        SIW = L.TREE - 1                            MCG      3661
                          0100002641 +            RJ     AIP         ADJUST *PIT* POINTERS                       MCG      3662
                                                                                                                 MCG      3663
          2144  5110000000 X             SXB0     SA1    L.TXT                                                   FCC0881    57
                          5120002234 +            SA2    SXBA                                                    MCG      3665
          2145  5140000000 X                      SA4    O.TREE                                                  MCG      3666
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    87
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
                          6241777773              SB4    X1-4                                                    MCG      3667
          2146  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
          2147  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
          2150  5120000203 C                      SA2    R0                                                      FCC0881    58
                          43555                   MX5    -I.LSTL                                                 FCC0881    59
                               53327              SA3    "TB"+X2     LI = BASE + R0                              FCC0881    60
          2151  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
          2152  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
          2153  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
          2154  12773                             BX7    X7+X3                                                   FCC0881    67
                     53742                        SA7    X4+B2       TREE(SIW) = SIT(1,0,LST,R0)                 FCC0881    68
                          0400002120 +            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
          2155  5160002235 +             SXBS     SA6    SXBB                                                    FCC0881    74
                          5120000203 C            SA2    R0                                                      FCC0881    75
          2156  5110000000 X                      SA1    L.TXT                                                   FCC0881    76
                          5140000000 X            SA4    O.TREE                                                  FCC0881    77
          2157  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
          2160  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
          2161  15520                             BX5    "RN"X2                    (X5) = R0                     FCC1126     7
                     0400002163 +                 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
          2162  0333002173 +                      MI     X3,SXB3     IF LAST[UI]                                 FCC0881    92
                          5033000001              SA3    A3+1        UI = UI + 1                                 FCC0881    93
                                                                                                                 FCC0881    94
                                         SXB2     LX3    -U.SUCCP                                                FCC0881    95
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    88
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
          2163  53237                             SA2    "TB"+X3     LIS = BASE + SUCC[UI]                       FCC0881    96
                                                  LX3    U.SUCCP                                                 FCC0881    97
                                                  LX2    59-I.IIP                                                FCC0881    98
                     0332002162 +                 MI     X2,SXB1     IF II[LIS]                                  FCC0881    99
                               55421              SA4    A2-B1       DIS = LIS - 1                               FCC0881   100
          2164  20431                             LX4    59-D.STP                                                FCC0881   101
                     0324002162 +                 PL     X4,SXB1     IF ^ST[DIS]                                 FCC0881   102
                               20472              LX4    D.STP-D.L2P                                             FCC0881   103
          2165  0334002162 +                      MI     X4,SXB1     IF L2[DIS]                                  FCC0881   104
                          5044777775              SA4    A4-2        R1S = DIS - 2                               FCC1126     8
          2166  15640                             BX6    "RN"X4                                                  FCC1126     9
                     13756                        BX7    X5-X6                                                   FCC1126    10
                          0317002162 +            NZ     X7,SXB1     IF RI[R1S] " R0  */ NOT RI USE              FCC1126    11
                                                                                                                 FCC1126    12
          2167  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
          2170  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
          2171  66331                             SB3    B3+B1       UST = UST + 1                               FCC0881   115
                     54630                        SA6    A3                                                      FCC0881   116
                          0550002162 +            NZ     B5,SXB1     IF FSU " 0                                  FCC0881   117
          2172  65527                             SB5    A2-"TB"     FSU = SUCC[UI]                              FCC0881   118
                     0400002162 +                 EQ     SXB1                                                    FCC0881   119
                                                                                                                 FCC0881   120
                                        *         UPDATE LINK WORD OF *R0*, FORM *XMT LT,R0* AT END OF *TXT*.    FCC0881   121
                                                                                                                 FCC0881   122
          2173  76550                    SXB3     SX5    B5                                                      FCC0881   123
                     27535                        PX5    B3,X5                                                   FCC0881   124
                          7110000004              ALLOC  TXT,4       ALLOC( TXT , 4 )                            FCC0881   125
          2175  26635                             UX6    B3,X5                                                   FCC0881   126
                     76130                        ALLOC  TREE,B3     ALLOC( TREE , UST );  LTR = OLD(L.TREE)     FCC0881   127
          2177  0100002641 +                      RJ     AIP         ADJUST POINTERS                             FCC0881   128
          2200  5110000203 C                      SA1    R0                                                      FCC0881   129
                          53317                   SA3    "TB"+X1     LI = BASE + R0                              FCC0881   130
                               26525              UX5    B2,X5                                                   FCC0881   131
          2201  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
          2202  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
          2203  15747                             BX7    -X7*X4      PS[LI-1] = 0                                FCC0881   140
                     54740                        SA7    A4                                                      FCC0881   141
                                                                                                                 FCC0881   142
                          5120000000 X            SA2    L.TXT                                                   FCC0881   143
          2204  7222777773                        SX2    X2-4        LT = L.TXT - 4                              FCC0881   144
                          76720                   SX7    B2                                                      FCC0881   145
                               20760              LX7    I.USESP                                                 FCC0881   146
          2205  76660                             SX6    B6                                                      FCC0881   147
                     20641                        LX6    I.INDXP                                                 FCC0881   148
                          12767                   BX7    X6+X7                                                   FCC0881   149
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    89
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
                               20521              LX5    I.LSTP-1                                                FCC0881   150
          2206  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
          2207  5140000010 X                      SA4    F.RDT+OC.XMT                                            FCC0881   155
                          20647                   LX6    D.PSP                                                   FCC0881   156
                               12746              BX7    X4+X6                                                   FCC0881   157
          2210  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
          2211  6130000010                        SB3    OC.XMT                                                  FCC0881   161
                          73110                   SX1    X1                                                      FCC0881   162
                               20140              LX1    R1.RJP                                                  FCC0881   163
          2212  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
          2213  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
          2214  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
          2215  6150000030                        SB5    60-U.PREDP                                              FCC0881   179
                          0400002220 +            EQ     SXB6                                                    FCC0881   180
                                                                                                                 FCC0881   181
          2216  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
          2217  0333002226 +                      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
          2220  53437                             SA4    "TB"+X3     LIS = TB + SUCC[UI]                         FCC0881   191
                                                  LX3    U.SUCCP                                                 FCC0881   192
                                                  LX4    59-I.IIP                                                FCC0881   193
                     0334002217 +                 MI     X4,SXB5     IF II[LI]                                   FCC0881   194
                               22753              LX7    B5,X3                                                   FCC0881   195
          2221  13671                             BX6    X7-X1                                                   FCC0881   196
                     15760                        BX7    "RN"X6                                                  FCC0881   197
                          0307002216 +            ZR     X7,SXB4     IF PRED[UI] = R0                            FCC0881   198
                                                                                                                 FCC0881   199
                                        *         ADD EDGE TO *XMT* LIST                                         FCC0881   200
                                                                                                                 FCC0881   201
          2222  10633                             BX6    X3                                                      FCC0881   202
                     56620                        SA6    B2          [UX] = [UI]                                 FCC0881   203
                          66221                   SB2    B2+B1       UX = UX + 1                                 FCC0881   204
          2223  0540002217 +                      NZ     B4,SXB5     IF XI " 0     */ ^ FIRST *ST*               FCC0881   205
                          66410                   SB4    B1          XI = 1                                      FCC0881   206
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    90
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
                               12652              BX6    X5+X2                                                   FCC0881   207
          2224  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
          2225  66331                             SB3    B3+B1       UO = UO + 1                                 FCC0881   212
                     0400002217 +                 EQ     SXB5                                                    FCC0881   213
                                                                                                                 FCC0881   214
          2226  57121                    SXB7     SA1    B2-B1                                                   FCC0881   215
                     57331                        SA3    B3-B1                                                   FCC0881   216
                          5140002235 +            SA4    SXBB                                                    FCC0881   217
          2227  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
          2230  54730                             SA7    A3                                                      FCC0881   223
                     0314002120 +                 NZ     X4,SXB      IF CALLF " 0  */ NOT CALL FROM *CRA*        FCC0881   224
                               73120              SX1    X2                                                      FCC0881   225
          2231  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
          2232  54620                             SA6    A2                                                      FCC0881   230
                     0100002254 +                 RJ     RIL         PUT GENERATED XMT ON *ICL*                  FCC0881   231
          2233  0400002120 +                      EQ     SXB                                                     FCC0881   232
                                                                                                                 MCG      3683
          2234                           SXBA     BFMW   I,(USES,INDX,LST)                                       FCC0881   233
          2235                     1     SXBB     BSS    1                                                       FCC0881   234
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    91
        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
          2236  0200402236 +             OXI      ROUTINE                                                        MCG      3694
          2237  5114000015 C                      SA1    RVT+B4                                                  MCG      3695
                          43700                   MX7    0                                                       MCG      3696
                               10611              BX6    X1          RVT(REGR) = RVT(REGF)                       MCG      3697
          2240  5163000015 C                      SA6    RVT+B3                                                  MCG      3698
                          5120000012 C            SA2    AXR                                                     MCG      3699
          2241  5134000140 C                      SA3    RBV+B4                                                  MCG      3700
                          5143000140 C            SA4    RBV+B3                                                  MCG      3701
          2242  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
          2243  5110000126 C                      SA1    T                                                       MCG      3706
                          5123000046 C            SA2    TRA+B3                                                  MCG      3707
          2244  37312                   +         IX3    X1-X2                                                   MCG      3708
                     0323002245 +                 PL     X3,*+1                                                  MCG      3709
                               10122              BX1    X2                                                      MCG      3710
          2245  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
          2246  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
          2247  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
          2250  54761                             SA7    A6+B1       [DRI+2] = RDT(OC)                           MCG      3722
                     54470                        SA4    A7                                                      MCG      3723
                          0100002617 +            RJ     OEI         OUTPUT THE INSTRUCTION                      MCG      3724
                                                                                                                 MCG      3725
                                        *         ADJUST THE *REG* FIELD OF THE OPERAND                          MCG      3726
                                                                                                                 MCG      3727
          2251  5113000015 C                      SA1    RVT+B3                                                  MCG      3728
                          43752                   MX7    -I.REGL                                                 MCG      3729
                               53217              SA2    "TB"+X1     L = BASE + RI[RVT(REGR)]                    MCG      3730
          2252  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
          2253  0400002236 +                      EQ     OXI                                                     MCG      3735
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    92
        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
          2254  0200402254 +             RIL      ROUTINE                                                        MCG      3749
          2255  53517                             SA5    "TB"+X1     LI = BASE + R                               MCG      3750
                     5120000000 X                 SA2    O.TREE                                                  MCG      3751
                               43755              MX7    -I.INDXL                                                MCG      3752
          2256  63310                             SB3    X1                                                      MCG      3753
                     63220                        SB2    X2                                                      MCG      3754
                          20533                   LX5    -I.INDXP                                                MCG      3755
                               15457              BX4    -X7*X5                                                  MCG      3756
          2257  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
          2260  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
          2261  20172                             LX1    I.ICP                                                   MCG      3765
                     0400002264 +                 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
          2262  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
          2263  0333002271 +                      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
          2264  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
                          0332002263 +            MI     X2,RIL2     IF II[SI]     */ IF ISSUED                  MCG      3783
          2265  22613                             LX6    B1,X3                                                   FCC0448   151
                                   0              ERRNZ  58-U.RDLP                                               FCC0448   152
                     0336002263 +                 MI     X6,RIL2     IF RDL[UI]    */ REMOVE REDEFINITION LINKS  FCC0448   153
                               10633              BX6    X3                                                      MCG      3784
          2266  56640                             SA6    B4          [US] = [UI]                                 MCG      3785
                     6144000001                   SB4    B4+1        US = US + 1                                 MCG      3786
          2267  0307002262 +                      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
          2270  54620                             SA6    A2                                                      MCG      3790
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    93
        RIL - RESET ISSUE LIST                                        RIL                 JAM 
  
                     0400002263 +                 EQ     RIL2                                                    MCG      3791
  
                                        *         FINISH RESET OF *SIT*                                          MCG      3793
                                                                                                                 MCG      3794
          2271  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
          2272  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
          2273  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
          2274  77642                   +         SX6    B4-B2                                                   MCG      3808
                     0745002275 +                 LT     B4,B5,*+1   SIW = IF( US < UL ) THEN US-O.TREE; ELSE 0  MCG      3809
                               43600              MX6    0                                                       MCG      3810
          2275  5160000206 C                      SA6    SIW                                                     MCG      3811
                          6241000000              SB4    X1+                                                     MCG      3812
          2276  0460002314 +                      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
          2277  43152                             MX1    -I.LINKL                                                MCG      3818
                     56000                        S"PI"  B0          PI = 0                                      MCG      3819
                          20473                   LX4    I.ICP-U.LASTP                                           MCG      3820
          2300  0400002302 +                      EQ     RIL6                                                    MCG      3821
                                                                                                                 MCG      3822
          2301  53030                    RIL5     S"PI"  X3          PI = CI                                     MCG      3823
                     73350                        SX3    X5          CI = LINK[L]                                MCG      3824
                          0303002312 +            ZR     X3,RIL7     IF CI = 0                                   MCG      3825
                                                                                                                 MCG      3826
          2302  53537                    RIL6     SA5    "TB"+X3     L = BASE + CI                               MCG      3827
                     11245                        BX2    X4*X5                                                   MCG      3828
                          0312002301 +            NZ     X2,RIL5     IF IC[L]                                    MCG      3829
                                                                                                                 MCG      3830
          2303  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
          2304  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
          2305  37656                             IX6    X5-X6       NPRED[L] = 1                                MCG      3839
                     54650                        SA6    A5                                                      MCG      3840
                          0560002302 +            NZ     B6,RIL6     IF N " 0      */ NOT END OF DELETES         MCG      3841
                                                                                                                 MCG      3842
          2306  0313002312 +                      NZ     X3,RIL7     IF CI " 0                                   MCG      3843
                          74300                   SX3    "PI"                                                    MCG      3844
          2307  0313002312 +                      NZ     X3,RIL7     IF PI " 0     */ ICL NOT EMPTY              MCG      3845
                          56573                   SA5    "TB"+B3     L = BASE + R                                MCG      3846
                               43152              MX1    -I.LINKL                                                MCG      3847
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    94
        RIL - RESET ISSUE LIST                                        RIL                 JAM 
  
          2310  11615                             BX6    X1*X5       LINK[L] = 0                                 MCG      3848
                     76730                        SX7    B3                                                      MCG      3849
                          54650                   SA6    A5                                                      MCG      3850
          2311  5170000003 C                      SA7    ICL         ICL = R                                     MCG      3851
                          0400002254 +            EQ     RIL                                                     MCG      3852
                                                                                                                 MCG      3853
          2312  56270                    RIL7     SA2    "TB"                                                    MCG      3854
                     73620                        SX6    X2                                                      MCG      3855
                          0306002314 +            ZR     X6,RIL8     IF LINK[BASE] = 0                           MCG      3856
          2313  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
          2314  5130000003 C             RIL8     SA3    ICL         CI = ICL                                    MCG      3863
                          76240                   SX2    B4                                                      MCG      3864
                               56000              S"PI"  B0          PI = 0                                      MCG      3865
          2315  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
          2316  15451                    RIL9     BX4    -X1*X5                                                  MCG      3871
                     37624                        IX6    X2-X4                                                   MCG      3872
                          0336002321 +            MI     X6,RIL10    IF LST[LI] > RN                             MCG      3873
          2317  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
          2320  0313002316 +                      NZ     X3,RIL9     IF CI " 0                                   MCG      3877
                                                                                                                 MCG      3878
          2321  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
          2322  0460002325 +                      ZR     B6,RIL11    IF PI = 0                                   MCG      3883
                          54207                   SA2    "TB"+"PI"                                               MCG      3884
                               36643              IX6    X4+X3       LINK[L] = CI                                MCG      3885
          2323  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
          2324  54720                             SA7    A2                                                      MCG      3890
                     0400002254 +                 EQ     RIL                                                     MCG      3891
                                                                                                                 MCG      3892
          2325  5130000003 C             RIL11    SA3    ICL                                                     MCG      3893
                          36643                   IX6    X4+X3       LINK[L] = ICL                               MCG      3894
                               54650              SA6    A5                                                      MCG      3895
          2326  76730                             SX7    B3          ICL = R                                     MCG      3896
                     54730                        SA7    A3                                                      MCG      3897
                          0400002254 +            EQ     RIL                                                     MCG      3898
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    95
        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
          2327  43055                    SMB0     MX0    -R1.RIL+1                                               MCG      3905
                     20001                        LX0    1                                                       MCG      3906
                                                                                                                 MCG      3907
          2330  0200402330 +             SMB      ROUTINE                                                        MCG      3908
          2331  5120000000 X                      SA2    L.TXT                                                   MCG      3909
                          5150000000 X            SA5    O.TREE                                                  MCG      3910
          2332  43063                             MX0    -D.USESL                                                MCG      3911
                                                  LX0    D.USESP                                                 MCG      3912
                     6140000004                   SB4    4                                                       MCG      3913
                               43155              MX1    -I.INDXL                                                MCG      3914
          2333  6222777773                        SB2    X2-4        I = L.TXT - 4                               MCG      3915
                          63350                   SB3    X5                                                      MCG      3916
                               76710              SX7    B1                                                      MCG      3917
          2334  5130002350 +                      SA3    SMBA                                                    MCG      3918
                          20735                   LX7    D.MUCP                                                  MCG      3919
                               57471              S"DI"  "TB"-B1     DI = BASE - 1                               MCG      3920
          2335  0400002337 +                      EQ     SMB2                                                    MCG      3921
                                                                                                                 MCG      3922
          2336  12674                    SMB1     BX6    X7+X4       MUC[DI] = 1                                 MCG      3923
                     5064000000                   SA6    A4+                                                     MCG      3924
                                                                                                                 MCG      3925
          2337  67224                    SMB2     SB2    B2-B4       I = I - 4                                   MCG      3926
                     54444                        S"DI"  "DI"+B4     DI = DI + 4                                 MCG      3927
                          0420002327 +            ZR     B2,SMB0     IF I = 0                                    MCG      3928
          2340  15240                             BX2    -X0*X4                                                  MCG      3929
                     21201                        AX2    D.USESP+1                                               MCG      3930
                          0302002337 +            ZR     X2,SMB2     IF USES[DI] < 2                             MCG      3931
                                                                                                                 MCG      3932
          2341  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
                     0306002343 +                 ZR     X6,SMB3     IF BITS[DI] = 0                             MCG      3937
                               20601              LX6    D.L2P-D.LDP                                             MCG      3938
          2342  11246                             BX2    X4*X6                                                   MCG      3939
                     20227                        LX2    59-D.L2P                                                MCG      3940
                          0322002337 +            PL     X2,SMB2     IF ^( L2[DI]&LD[DI] )                       MCG      3941
          2343                           SMB3     BSS    0                                                       MCG      3942
                                         #DAL     ENDIF                                                          MCG      3943
                                                                                                                 MCG      3944
                                        *         CHECK DISTANCE BETWEEN USES                                    MCG      3945
                                                                                                                 MCG      3946
          2343  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
          2344  6255000070                        SB5    X5+MIN.D    SL = SUCC[UI] + MIN.D                       MCG      3952
                                                  LX5    U.SUCCP+59-U.LASTP                                      MCG      3953
                          0335002337 +            MI     X5,SMB2     IF LAST[UI]   */ 2 USES IN 1 INSTRUCTION    MCG      3954
                                                                                                                 MCG      3955
          2345  54551                    SMB4     SA5    A5+B1       UI = UI + 1                                 MCG      3956
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    96
        SMB - SET MULTIPLE USE COMPUTATION BIT                        SMB                 JAM 
  
                                                  LX5    -U.SUCCP                                                MCG      3957
                     63650                        SB6    X5          SI = SUCC[UI]                               MCG      3958
                          0756002336 +            GT     B6,B5,SMB1  IF SI > SL    */ DIST BETWEEN USES IS BIG   MCG      3959
                                                  LX5    U.SUCCP+59-U.LASTP                                      MCG      3960
          2346  6156000070                        SB5    B6+MIN.D    SL = SI + MIN.D                             MCG      3961
                          0325002345 +            PL     X5,SMB4     IF ^LAST[UI]                                MCG      3962
          2347  0400002337 +                      EQ     SMB2                                                    MCG      3963
                                                                                                                 MCG      3964
          2350                           SMBA     BFMW   D,(RJRS,PS,PRS,ECJ,LD,ST,JP,XMT,KS,PI,ZP)               MCG      3965
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    97
        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
          2351  43700                    SNU0     MX7    0           UOR = 0                                     MCG      3978
                     0334002402 +                 MI     X4,SNU      IF TYPE[DI] = IV                            MCG      3979
                               20435              LX4    1+D.TYP-D.PIP                                           MCG      3980
          2352  0324002427 +                      PL     X4,SNU6     IF ^PI[DI]    */ NOT A PSEUDO INSTRUCTION   MCG      3981
                          5034777775              SA3    "DI"-2      R1 = DI - 2                                 MCG      3982
          2353  15530                             BX5    "RN"X3      R = RNUMS = RI[R1]                          MCG      3983
                     26623                        UX6    B2,X3                                                   MCG      3984
                          7172777772              SX7    B2-OC.DEF                                               MCG      3985
          2354  0317002415 +                      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
          2355  5130000000 X                      SA3    O.TREE                                                  MCG      3991
                          43755                   MX7    -I.INDXL                                                MCG      3992
                               20233              LX2    -I.INDXP                                                MCG      3993
          2356  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
          2357  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
          2360  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
                          0336002375 +            MI     X6,RLL4     IF TYPE[DJ] = II ! IV                       MCG      4008
          2361  5013777775                        SA1    A3-2        R1J = DJ - 2                                MCG      4009
                          13651                   BX6    X5-X1                                                   MCG      4010
                               15760              BX7    "RN"X6                                                  MCG      4011
          2362  0317002366 +                      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
          2363  0323002374 +                      PL     X3,RLL3     IF ^ST[DJ]                                  FCC0393    22
                                         #DAL     IFNE   .DAL,0                                                  FCC0393    23
                          20372                   LX3    D.STP-D.L2P                                             FCC0393    24
          2364  0333002374 +                      MI     X3,RLL3     IF L2[DJ]                                   FCC0393    25
                                         #DAL     ENDIF                                                          FCC0393    26
                          76310                   SX3    B1                                                      FCC0393    27
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    98
        SNU - SET NEXT USE DISTANCE                                   SNU                 JAM 
  
                               20347              LX3    D.PSP                                                   FCC0393    28
          2365  12734                             BX7    X3+X4       PS[DI] = 1    */ INDICATE THAT *DEF* IS *PS FCC0393    29
                     54740                        SA7    A4                                                      FCC0393    30
                          0400002374 +            EQ     RLL3                                                    FCC0393    31
                                                                                                                 FCC0393    32
          2366  0333002372 +             RLL1A    MI     X3,RLL2     IF TYPE[DJ] = III                           FCC0393    33
                          20134                   LX1    -R1.RJP                                                 MCG      4014
                               13651              BX6    X5-X1                                                   MCG      4015
          2367  20120                             LX1    R1.RJP-R1.RKP                                           MCG      4016
                     15760                        BX7    "RN"X6                                                  MCG      4017
                          0307002374 +            ZR     X7,RLL3     IF RJ[R1J] = R                              MCG      4018
          2370  13651                             BX6    X5-X1                                                   MCG      4019
                     15760                        BX7    "RN"X6                                                  MCG      4020
                          0307002374 +            ZR     X7,RLL3     IF RK[R1J] = R                              MCG      4021
          2371  0400002375 +                      EQ     RLL4                                                    MCG      4022
                                                                                                                 MCG      4023
          2372  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
          2373  0317002375 +                      NZ     X7,RLL4     IF RF[R2J] " R                              MCG      4028
          2374  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
          2375  10622                    RLL4     BX6    X2          UL = [UI]                                   MCG      4033
                     54221                        SA2    A2+B1       UI = UI + 1                                 MCG      4034
                                                  LX6    59-U.LASTP                                              MCG      4035
                          0326002360 +            PL     X6,RLL1     IF ^LAST[UL]                                MCG      4036
                                                                                                                 MCG      4037
          2376  43701                             MX7    1                                                       MCG      4038
                                                  LX7    1+U.LASTP                                               MCG      4039
                     0520002400 +                 NZ     B2,RLL5     IF FLAG " 0   */ NOTHING STORED             MCG      4040
                               54260              SA2    A6                                                      MCG      4041
          2377  12672                             BX6    X7+X2       LAST[US] = 1                                MCG      4042
                     54620                        SA6    A2                                                      MCG      4043
                          0400002415 +            EQ     SNU2                                                    MCG      4044
                                                                                                                 MCG      4045
          2400  5130000000 X             RLL5     SA3    L.TXT                                                   MCG      4046
                          7243777773              SX4    X3-4                                                    MCG      4047
          2401  12674                             BX6    X7+X4                                                   MCG      4048
                     56620                        SA6    B2          [FLAG] = UIT(1,0,0,L.TXT-4)                 MCG      4049
                          0400002415 +            EQ     SNU2                                                    MCG      4050
                                                                                                                 MCG      4051
          2402  0200402402 +             SNU      ROUTINE                                                        MCG      4052
                                                  LX4    58-D.TYP                                                MCG      4053
          2403  36744                             IX7    X4+X4                                                   MCG      4054
                     0337002351 +                 MI     X7,SNU0     IF TYPE[DI] = II ! IV                       MCG      4055
          2404  0324002410 +                      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
          2405  20330                             LX3    -IH.RFP                                                 MCG      4060
                     15530                        BX5    "RN"X3      RNUMS = RF[R2]                              MCG      4061
                          0324002415 +            PL     X4,SNU2     IF DEF[DI]                                  MCG      4062
          2406  55331                             SA3    A3-B1       R1 = R2 - 1                                 MCG      4063
                     20520                        LX5    R1.RIL                                                  MCG      4064
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE    99
        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
          2407  0400002415 +                      EQ     SNU2                                                    MCG      4067
                                                                                                                 MCG      4068
          2410  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
          2411  15746                             BX7    -X6*X4                                                  MCG      4072
                     5237000001 +                 SA3    TYIOM+X7                                                FCC0719     5
                               26223              UX2    B2,X3                                                   MCG      4074
          2412  11125                             BX1    X2*X5                                                   MCG      4075
                     23521                        AX5    B2,X1       RNUMS = TYIO[R1,DI]                         MCG      4076
                          0317002415 +            NZ     X7,SNU2     IF TYIO[DI] " 0  */ NOT RJ,RK CASE          MCG      4077
          2413  23625                             AX6    B2,X5                                                   MCG      4078
                     13765                        BX7    X6-X5                                                   MCG      4079
                          15370                   BX3    "RN"X7                                                  MCG      4080
          2414  0313002415 +                      NZ     X3,SNU2     IF RJ[R1] " RK[R1]                          MCG      4081
                          23525                   AX5    B2,X5       RNUMS = RJ[R1]                              MCG      4082
                                                                                                                 MCG      4083
          2415  5130000000 X             SNU2     SA3    O.TREE                                                  MCG      4084
                          43163                   MX1    -I.USESL                                                MCG      4085
                               63630              SB6    X3                                                      MCG      4086
          2416  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
          2417  15650                    SNU3     BX6    "RN"X5      R = RI[RNUMS]                               MCG      4093
                     0306002426 +                 ZR     X6,SNU5     IF R = 0                                    MCG      4094
                               53367              SA3    "TB"+X6     L = BASE + R                                MCG      4095
          2420  15231                             BX2    -X1*X3                                                  MCG      4096
                     0302002426 +                 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
          2421  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
          2422  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
          2423  0333002422 +                      MI     X3,SNU4     IF II[SI] ! RDL[UI-1]                       FCC0448   157
                                                                                                                 MCG      4111
                          5226000015 C            SA2    RVT+X6                                                  MCG      4112
          2424  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
          2425  11302                             BX3    X0*X2                                                   MCG      4117
                     36663                        IX6    X6+X3       NU[ RVT(REGNO) ] = SUCC[UI-1]               MCG      4118
                          20622                   LX6    RV.NUP                                                  MCG      4119
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   100
        SNU - SET NEXT USE DISTANCE                                   SNU                 JAM 
  
                               54620              SA6    A2                                                      MCG      4120
                                                                                                                 MCG      4121
          2426  21520                    SNU5     AX5    R1.RIL      RNUMS = SHIFT( RNUMS , - 16 )               MCG      4122
                     0315002417 +                 NZ     X5,SNU3     IF RNUMS " 0                                MCG      4123
                                                                                                                 MCG      4124
                                        *         CHECK FOR STORES AND OPS THAT *PRS*, ADJUST APPROPIATE FLAGS   MCG      4125
                                                                                                                 MCG      4126
          2427  54440                    SNU6     S"DI"  "DI"                                                    MCG      4127
                     5110002452 +                 SA1    SNUA                                                    MCG      4128
                               11614              BX6    X1*X4                                                   MCG      4129
          2430  0306002402 +                      ZR     X6,SNU      IF ST[DI] & PRS[DI] = 0                     MCG      4130
                          20431                   LX4    59-D.STP                                                MCG      4131
          2431  0334002435 +                      MI     X4,SNU7     IF ST[DI]                                   MCG      4132
                                                                                                                 MCG      4133
                          5054000002              SA5    "DI"+2      R1RS = DI + 2                               MCG      4134
          2432  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
          2433  7223777767                        SX2    X3-8                                                    MCG      4139
                          0322002402 +            PL     X2,SNU      IF RN > 7     */ IF NOT A B-REGISTER        MCG      4140
          2434  5263000172 C                      SA6    LRN+X3      LRN(RN) = R   */ SAVE LAST R-NUMBER IN B-RE MCG      4141
                          0400002402 +            EQ     SNU                                                     MCG      4142
                                                                                                                 MCG      4143
          2435  5110000172 C             SNU7     SA1    ISC                                                     MCG      4144
                          43352                   MX3    -I.LINKL                                                MCG      4145
                               54541              SA5    "DI"+B1     L = DI + 1                                  MCG      4146
          2436  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
          2437  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
          2440  53547                             SA5    "TB"+X4     L = BASE + R                                FCC0393    35
                     43655                        MX6    -I.INDXL                                                MCG      4158
                          5130000000 X            SA3    O.TREE                                                  MCG      4159
          2441  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
          2442  53237                             SA2    "TB"+X3     SI = BASE + SUCC[UI]                        MCG      4166
                                                  LX2    59-I.IIP                                                MCG      4167
                     0332002447 +                 MI     X2,SNU10    IF II[SI]                                   MCG      4168
          2443  5012777774                        SA1    A2-3        R1S = SI - 3                                FCC0393    36
                          13214                   BX2    X1-X4                                                   FCC0393    37
                               15620              BX6    "RN"X2                                                  FCC0393    38
          2444  0316002447 +                      NZ     X6,SNU10    IF RI[R1S] " R                              FCC0393    39
                          55121                   SA1    A2-B1       D = SI - 1                                  MCG      4169
                               20131              LX1    59-D.STP                                                MCG      4170
                                         #DAL     IFEQ   .DAL,0                                                  MCG      4171
                                                  MI     X1,SNU      IF ST[DI]     */ AN UNISSUED STORE          MCG      4172
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   101
        SNU - SET NEXT USE DISTANCE                                   SNU                 JAM 
  
                                         #DAL     ELSE                                                           MCG      4173
          2445  0321002447 +                      PL     X1,SNU10    IF ^ST[DI]                                  MCG      4174
                          20172                   LX1    D.STP-D.L2P                                             MCG      4175
          2446  0321002402 +                      PL     X1,SNU      IF ^L2[DI]                                  MCG      4176
                                         #DAL     ENDIF                                                          MCG      4177
                                         SNU10    LX3    U.SUCCP+59-U.LASTP                                      MCG      4178
          2447  10633                             BX6    X3          UL = UI                                     MCG      4179
                     54331                        SA3    A3+B1       UI = UI + 1                                 MCG      4180
                          0326002442 +            PL     X6,SNU9     IF ^LAST[UL]                                MCG      4181
                                                                                                                 MCG      4182
          2450  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
          2451  54650                             SA6    A5                                                      MCG      4187
                     0400002402 +                 EQ     SNU                                                     MCG      4188
                                                                                                                 MCG      4189
          2452                           SNUA     BFMW   D,(PRS,ST)                                              MCG      4190
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   102
        TGL - TOGGLE TWO REGISTERS.                                                       JAM 
  
                                        **        TGL - THIS ROUTINE WILL BE INOLKED BEFORE UJR                  FCC2207   175
                                        *         TRIES TO STORE OUT A REGISTER.  BASICALLY IT WILL              FCC2207   176
                                        *         CHECK TO SEE IF R0 IS AN OPERAND OF T0.  IF THIS               FCC2207   177
                                        *         HAPPENS R0 WILL NOT BE STORED TO MEMORY BUT WILL               FCC2207   178
                                        *         BE SIMPLY TOGGLED WITH AN AVAILABLE REGISTER OF THE            FCC2207   179
                                        *         CLASS SOUGHT BY T0.  THIS MODULE IS AN ANSWER TO               FCC2207   180
                                        *         FCC2207 WHERE SRM OF R0 REMOVED T0 FROM THE ISSUE              FCC2207   181
                                        *         CANDIDATE LIST.                                                FCC2207   182
                                        *                                                                        FCC2207   183
                                        *         ENTRY  (B3) = REGNO CURRENTLY ASSIGNED TO R0                   FCC2207   184
                                        *                (T0) = INSTRUCTION TO BE ISSUED                         FCC2207   185
                                        *                (R0) = RESULT TO BE STORED                              FCC2207   186
                                        *                (CLASS) = CLASS BITS FOR T0                             FCC2207   187
                                                                                                                 FCC2207   188
                                        *         EXIT   (B4) = REGNO. TOGGLED WITH R0 (= 0 NO TOGGLE)           FCC2207   189
                                                                                                                 FCC2207   190
                                        *         MAINTAINS B3,T0,CLASS,R0                                       FCC2207   191
                                                                                                                 FCC2207   192
          2453                     1     RTGL     BSS    1                                                       FCC2207   193
                                                                                                                 FCC2207   194
          2454  0200402454 +             TGL      ROUTINE                                                        FCC2207   195
                                                                                                                 FCC2207   196
                                        *         FIND OPERANDS OF T0.                                           FCC2207   197
                                                                                                                 FCC2207   198
          2455  66400                             SB4    B0                                                      FCC2207   199
                     5120000204 C                 SA2    T0                                                      FCC2207   200
          2456  0100001561 +                      RJ     GOR         GET OPERAND ROUTINE                         FCC2207   201
                                                                                                                 FCC2207   202
                                        *         LOOK IN OPERAND LIST FOR R0.                                   FCC2207   203
                                                                                                                 FCC2207   204
          2457  76130                             SX1    B3                                                      FCC2207   205
          2460  0307002454 +             TGL20    ZR     X7,TGL      IF ROP = 0  */EXIT                          FCC2207   206
                          13517                   BX5    X1-X7                                                   FCC2207   207
                               73650              SX6    X5                                                      FCC2207   208
          2461  0306002463 +                      ZR     X6,TGL40    IF ROP = REGR0                              FCC2207   209
                          21722                   AX7    18                                                      FCC2207   210
          2462  0400002460 +                      EQ     TGL20                                                   FCC2207   211
                                                                                                                 FCC2207   212
                                        *         R0 IS AN OPERAND OF T0 - TOGGLE IT.                            FCC2207   213
                                        *         CHECK IF R0 HAS MORE THAN ONE USE - IF SO FORGET IT.           FCC2207   214
                                                                                                                 FCC2207   215
          2463  5110000203 C             TGL40    SA1    R0                                                      FCC2207   216
                          15110                   BX1    "RN"X1                                                  FCC2207   217
                               53517              SA5    "TB"+X1     LT = BASE + R0                              FCC2207   218
          2464  43763                             MX7    -I.USESL                                                FCC2207   219
                     20513                        LX5    59-I.USESP                                              FCC2207   220
                          15657                   BX6    -X7*X5                                                  FCC2207   221
          2465  0316402465 +                      NZ     X6,*+1S17   IF USES[LT] > 1 BLOWUP                      FCC2207   222
                                                                                                                 FCC2207   223
                                        *         FIND A REGISTER TO TOGGLE WITH R0.                             FCC2207   224
                                                                                                                 FCC2207   225
                          5130000202 C            SA3    CLASS                                                   FCC2207   226
          2466  5120000124 C                      SA2    LXR                                                     FCC2207   227
                          15732                   BX7    -X2*X3      TRV = ^LXR & CLASS                          FCC2207   228
          2467  0307402467 +                      ZR     X7,*+1S17   IF TRV = 0 BLOWUP                           FCC2207   229
                          24647                   NX6    B4,X7                                                   FCC2207   230
          2470  5134777744 +                      SA3    B4+FXRA+16-47                                           FCC2207   231
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   103
        TGL - TOGGLE TWO REGISTERS.                                                       JAM 
  
                          63430                   SB4    X3          REGTGL = FIRST TRV                          FCC2207   232
                                                                                                                 FCC2207   233
                                        *         MAKE R0 UNAVAILABLE AND RESTORE RVT(REGR0)                     FCC2207   234
                                                                                                                 FCC2207   235
          2471  5123000140 C                      SA2    RBV+B3                                                  FCC2207   236
                          5130000012 C            SA3    AXR                                                     FCC2207   237
          2472  73710                             SX7    X1                                                      FCC2207   238
                     13632                        BX6    X3-X2                                                   FCC2207   239
                          5173000015 C            SA7    RVT+B3      RVT(REGRO) = R0                             FCC2207   240
          2473  54630                             SA6    A3          MAKE REGRO UNAVAIL.                         FCC2207   241
                                                                                                                 FCC2207   242
                                        *         TOGGLE REGTGL AND R0.                                          FCC2207   243
                                        *         OUTPUT THE FOLLOWING SEQUENCE.                                 FCC2207   244
                                        *         XOR    R0,R0,RTGL                                              FCC2207   245
                                        *         XOR    RTGL,R0,RTGL                                            FCC2207   246
                                        *         XOR    R0,R0,RTGL                                              FCC2207   247
                                                                                                                 FCC2207   248
                     5124000015 C                 SA2    RVT+B4                                                  FCC2207   249
                               27731              PX7    B3,X1                                                   FCC2207   250
          2474  15220                             BX2    "RN"X2                                                  FCC2207   251
                     27642                        PX6    B4,X2                                                   FCC2207   252
                          54710                   SA7    A1                                                      FCC2207   253
          2475  5160002453 +                      SA6    RTGL                                                    FCC2207   254
                          6120000013              SB2    OC.XOR                                                  FCC2207   255
          2476  5132000000 X                      SA3    =XF.RDT+B2                                              FCC2207   256
                          15110                   BX1    "RN"X1      R0                                          FCC2207   257
                               15220              BX2    "RN"X2      RTGL                                        FCC2207   258
          2477  20140                             LX1    R1.RJP                                                  FCC2207   259
                     20220                        LX2    R1.RKP                                                  FCC2207   260
                          12712                   BX7    X1+X2                                                   FCC2207   261
                               27627              PX6    B2,X7                                                   FCC2207   262
          2500  43700                             MX7    0                                                       FCC2207   263
                     5160000207 C                 SA6    DRI         DRI(0) = TYI(OC.XOR,R0,RTGL,0)              FCC2207   264
                               54761              SA7    A6+B1       DRI(1) = 0                                  FCC2207   265
          2501  10633                             BX6    X3                                                      FCC2207   266
                     54671                        SA6    A7+B1       DRI(2) = FX.RDT(OC.XOR)                     FCC2207   267
                          54460                   SA4    A6                                                      FCC2207   268
                               76730              SX7    B3                                                      FCC2207   269
          2502  54741                             SA7    A4+B1       DRI(3) = REGR0                              FCC2207   270
                     0100002617 +                 RJ     OEI         ISSUE XOR REGR0,R0,RTGL                     FCC2207   271
          2503  5110000203 C                      SA1    R0                                                      FCC2207   272
                          5120002453 +            SA2    RTGL                                                    FCC2207   273
          2504  26641                             UX6    B4,X1                                                   FCC2207   274
                     26732                        UX7    B3,X2                                                   FCC2207   275
                          5140000211 C            SA4    DRI+2                                                   FCC2207   276
          2505  76730                             SX7    B3                                                      FCC2207   277
                     54741                        SA7    A4+B1       DRI(3) = REGR0                              FCC2207   278
                          0100002617 +            RJ     OEI         ISSUE XOR REGTGL,R0,RTGL                    FCC2207   279
          2506  5110000203 C                      SA1    R0                                                      FCC2207   280
                          5120002453 +            SA2    RTGL                                                    FCC2207   281
          2507  26631                             UX6    B3,X1                                                   FCC2207   282
                     26742                        UX7    B4,X2                                                   FCC2207   283
                          5140000211 C            SA4    DRI+2                                                   FCC2207   284
          2510  76730                             SX7    B3                                                      FCC2207   285
                     54741                        SA7    A4+B1       DRI(3) = REGTGL                             FCC2207   286
                          0100002617 +            RJ     OEI         ISSUE XOR REGR0,R0,RTGL                     FCC2207   287
                                                                                                                 FCC2207   288
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   104
        TGL - TOGGLE TWO REGISTERS.                                                       JAM 
  
                                        *         TOGGLE RVT ENTRIES AND LINK WORDS.                             FCC2207   289
                                                                                                                 FCC2207   290
          2511  5110000203 C                      SA1    R0                                                      FCC2207   291
                          5120002453 +            SA2    RTGL                                                    FCC2207   292
          2512  26331                             UX3    B3,X1       (B3) = REGR0                                FCC2207   293
                     26442                        UX4    B4,X2       (B4) = REGTGL                               FCC2207   294
                          5113000015 C            SA1    RVT+B3                                                  FCC2207   295
          2513  5124000015 C                      SA2    RVT+B4                                                  FCC2207   296
                          10611                   BX6    X1                                                      FCC2207   297
                               10722              BX7    X2                                                      FCC2207   298
          2514  54620                             SA6    A2          RVT(REGR0) = RVT(REGTGL)                    FCC2207   299
                     54710                        SA7    A1          RVT(REGTGL) = RVT(REGR0)                    FCC2207   300
                          53137                   SA1    "TB"+X3     LIR0 = BASE + R0                            FCC2207   301
                               53247              SA2    "TB"+X4     LIRTGL = BASE + RTGL                        FCC2207   302
          2515  10622                             BX6    X2                                                      FCC2207   303
                     10711                        BX7    X1                                                      FCC2207   304
                          54610                   SA6    A1          LIR0 = LIRTGL                               FCC2207   305
                               54720              SA7    A2          LIRTGL = LIR0                               FCC2207   306
                                                                                                                 FCC2207   307
                                        *         RETURN                                                         FCC2207   308
          2516  0400002454 +                      EQ     TGL                                                     FCC2207   309
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   105
        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
          2517  0200402517 +             SRM      ROUTINE                                                        MCG      4201
          2520  5110000203 C                      SA1    R0                                                      MCG      4202
                          5120000000 X            SA2    O.TREE                                                  MCG      4203
          2521  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
          2522  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
          2523  0324002530 +                      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
          2524  10633                    SRM1     BX6    X3          UL = [UI]                                   MCG      4220
                     20302                        LX3    59-U.EQVP                                               MCG      4221
                          0333002526 +            MI     X3,SRM2     IF EQV[UI]                                  MCG      4222
          2525  5165000000                        SA6    B5+         [US] = UL                                   MCG      4223
                          6155000001              SB5    B5+1        US = US + 1                                 MCG      4224
          2526  54331                    SRM2     SA3    A3+B1       UI = UI + 1                                 MCG      4225
                                                  LX6    59-U.LASTP                                              MCG      4226
                     0326002524 +                 PL     X6,SRM1     IF ^LAST[UL]                                MCG      4227
                                                                                                                 MCG      4228
                               57351              SA3    B5-B1                                                   MCG      4229
          2527  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
          2530  56360                    SRM3     SA3    B6          UI = U0                                     MCG      4238
                     5110002547 +                 SA1    SRMA                                                    MCG      4239
                               66600              R=     B6,59-U.LASTP+U.SUCCP                                   MCG      4240
          2531  6120000031                        SB2    59-D.STP                                                MCG      4241
                          6150000044              SB5    IH.RFP                                                  MCG      4242
                                                                                                                 MCG      4243
                                         SRM4     LX3    -U.SUCCP                                                MCG      4244
          2532  53537                             SA5    "TB"+X3     SI = BASE + SUCC[UI]                        MCG      4245
                                                  LX5    59-I.IIP                                                MCG      4246
                     0325002537 +                 PL     X5,SRM6     IF ^II[SI]    */ NOT ISSUED                 MCG      4247
                               55451              SA4    A5-B1       DI = LI - 1                                 MCG      4248
          2533  22624                             LX6    B2,X4                                                   MCG      4249
                     0326002537 +                 PL     X6,SRM6     IF ^ST[DI]                                  MCG      4250
                               11714              BX7    X1*X4                                                   MCG      4251
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   106
        SRM - SAVE RESULT IN MEMORY                                   SRM                 JAM 
  
          2534  0317002537 +                      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
          2535  63470                             SB4    X7                                                      MCG      4255
                     0641002537 +                 GE     B4,B1,SRM6  IF RF[R2] > 1                               MCG      4256
                                                  LX4    58-D.TYP                                                MCG      4257
          2536  0334002545 +                      MI     X4,SRM8     IF TYPE[DI] = III                           MCG      4258
                                                                                                                 MCG      4259
          2537  22663                    SRM6     LX6    B6,X3       UL = [UI]                                   MCG      4260
                     54331                        SA3    A3+B1       UI = UI + 1                                 MCG      4261
                          0326002532 +            PL     X6,SRM4     IF ^LAST[UL]                                MCG      4262
                                                                                                                 MCG      4263
          2540  0100002570 +                      RJ     OTS         OUTPUT A TEMP STORE                         MCG      4264
                                                                                                                 MCG      4265
          2541  5120000204 C             SRM7     SA2    T0                                                      MCG      4266
                          0302002543 +            ZR     X2,SRM7A    IF T0 = 0     */ NO INSTRUCTION TO ISSUE    MCG      4267
          2542  0100001257 +                      RJ     ISI         ISSUE SELECTED INSTRUCTION                  MCG      4268
                                                                                                                 MCG      4270
          2543  5110000203 C             SRM7A    SA1    R0                                                      MCG      4271
                          0100002601 +            RJ     GLI         GENERATE A *LD* OF SAVED RESULT             MCG      4272
          2544  0400002517 +                      EQ     SRM                                                     MCG      4273
                                                                                                                 MCG      4274
          2545  10622                    SRM8     BX6    X2                                                      MCG      4275
                     5160000210 C                 SA6    DRI+1       DRI(2) = [R2]                               MCG      4276
          2546  0400002541 +                      EQ     SRM7                                                    MCG      4277
                                                                                                                 MCG      4278
          2547                           SRMA     BFMW   D,(FP,L2,EQV)                                           MCG      4279
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   107
        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
          2550  0200402550 +             GOT      ROUTINE                                                        MCG      4287
          2551  5110000170 C                      SA1    M.OT                                                    MCG      4288
                          5120000000 X            SA2    L.OTI                                                   MCG      4289
          2552  37612                             IX6    X1-X2                                                   MCG      4290
                     0336002557 +                 MI     X6,GOT1     IF M.OT < L.OTI                             MCG      4291
          2553  7110000030                        ALLOC  OTI,30B     ALLOC( OTI , 30B )                          MCG      4292
          2555  0100002641 +                      RJ     AIP         ADJUST *PIT* POINTERS                       MCG      4293
          2556  5110000170 C                      SA1    M.OT                                                    MCG      4294
                                                                                                                 MCG      4295
          2557  5120000000 X             GOT1     SA2    O.OTI                                                   MCG      4296
                          63210                   SB2    X1                                                      MCG      4297
                               43763              MX7    -I.USESL                                                MCG      4298
          2560  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
          2561  54331                    GOT2     SA3    A3+B1       OI = OI + 1                                 MCG      4305
                     0333002564 +                 MI     X3,GOT3     IF [OI] < 0   */ END OF TABLE               MCG      4306
                               53237              SA2    "TB"+X3     LI = BASE + RI[OI]                          MCG      4307
          2562  15127                             BX1    -X7*X2                                                  MCG      4308
                     0311002561 +                 NZ     X1,GOT2     IF USES[LI] " 0                             MCG      4309
                                                                                                                 MCG      4310
                               26323              UX3    B2,X3       CA = UEXP(OI)                               MCG      4311
          2563  0400002565 +                      EQ     GOT4                                                    MCG      4312
                                                                                                                 MCG      4313
          2564  76621                    GOT3     SX6    B2+B1       CA = M.OT                                   MCG      4314
                     5160000170 C                 SA6    M.OT        M.OT = CA + 1                               MCG      4315
                                                                                                                 MCG      4316
          2565  27725                    GOT4     PX7    B2,X5                                                   MCG      4317
                     5140000000 X                 SA4    =XOT.                                                   MCG      4318
                               76620              SX6    B2                                                      MCG      4319
          2566  54730                             SA7    A3          [OI] = PACK( CA , R-NUM )                   MCG      4320
                     20622                        LX6    IH.CAP                                                  MCG      4321
                                                  LX4    IH.IHP                                                  MCG      4322
                          12646                   BX6    X4+X6       IHWORD = IHW(0,CA,IH)                       MCG      4323
          2567  0400002550 +                      EQ     GOT                                                     MCG      4324
  
  
  
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   108
        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
          2570  0200402570 +             OTS      ROUTINE                                                        MCG      4334
          2571  6120000051                        SB2    OC.ST                                                   MCG      4335
                          5150000203 C            SA5    R0          R = [R0]                                    MCG      4336
          2572  5122000000 X                      SA2    =XF.RDT+B2                                              MCG      4337
                          27625                   PX6    B2,X5                                                   MCG      4338
                               76410              SX4    B1                                                      MCG      4339
          2573  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
          2574  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
          2575  0100002550 +                      RJ     GOT         DRI(1) = GOT(R)                             MCG      4346
          2576  5140000211 C                      S"DI"  DRI+2       DI = DRI(2)                                 MCG      4347
                          54541                   SA5    A4+B1                                                   MCG      4348
                               63350              SB3    X5                                                      MCG      4349
          2577  55641                             SA6    A4-B1                                                   MCG      4350
                     63450                        SB4    X5                                                      MCG      4351
                          0100002617 +            RJ     OEI         OUTPUT THE INSTRUCTION                      MCG      4352
          2600  0400002570 +                      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
          2601  0200402601 +             GLI      ROUTINE                                                        MCG      4360
          2602  0100002254 +                      RJ     RIL         RESET R FOR REISSUE                         MCG      4361
          2603  67671                             SB6    "TB"-B1                                                 MCG      4362
                     5130000210 C                 SA3    DRI+1                                                   MCG      4363
                               56463              S"DI"  B6+B3       DI = BASE-1 + R                             MCG      4364
          2604  5120000000 X                      SA2    =XIT.                                                   FCC0584    15
                          6120000050              SB2    OC.LD                                                   FCC0584    16
          2605  13723                             BX7    X2-X3                                                   FCC0584    17
                     73270                        SX2    X7                                                      FCC0584    18
                          0312002607 +            NZ     X2,GLI1     OC = IF( IH[DRI+1] " IT. ) THEN OC.LD       FCC0584    19
          2606  6120000075                        SB2    OC.TLD                    ELSE OC.TLD                   FCC0584    20
          2607  76530                    GLI1     SX5    B3                                                      FCC0584    21
                     10733                        BX7    X3                                                      MCG      4367
                          5112000000 X            SA1    F.RDT+B2                                                MCG      4368
          2610  5120002616 +                      SA2    GLIA                                                    MCG      4369
                          27625                   PX6    B2,X5                                                   MCG      4370
                               55741              SA7    "DI"-B1     [DI-1] = [DRI+1]  */ IH WORD                MCG      4371
          2611  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
          2612  15345                             BX3    -X5*X4                                                  MCG      4376
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   109
        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
          2613  0324002601 +                      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
          2614  0100002120 +                      RJ     SXB         SETUP A *XMT* BACK TO THE *ST-REG*          FCC0881   237
          2615  0400002601 +                      EQ     GLI                                                     MCG      4457
                                                                                                                 MCG      4458
          2616                           GLIA     BFMW   D,(ZP,SR)                                               MCG      4459
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   110
        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
          2617  0200402617 +             OEI      ROUTINE                                                        MCG      4471
          2620  5120000126 C                      SA2    T                                                       MCG      4472
                          5134000046 C            SA3    TRA+B4                                                  MCG      4473
          2621  37623                   +         IX6    X2-X3                                                   MCG      4474
                     0326002622 +                 PL     X6,*+1      T(IS) = MAX( T , TRA(REGO) )                MCG      4475
                               10233              BX2    X3                                                      MCG      4476
          2622  20415                             LX4    -D.F1P                                                  MCG      4477
                     64641                        SB6    "DI"+B1                                                 MCG      4478
                          43770                   MX7    -D.F1L                                                  MCG      4479
                               15647              BX6    -X7*X4                                                  MCG      4480
          2623  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
          2624  15615                             BX6    -X5*X1                                                  MCG      4485
                     63520                        SB5    X2                                                      MCG      4486
                          27726                   PX7    B2,X6                                                   MCG      4487
          2625  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
          2626  55671                             SA6    A7-B1                                                   MCG      4491
                     0100000652 +                 RJ     ASC         ADVANCE THE CLOCK                           MCG      4492
          2627  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      4493
                          0100000750 +            RJ     SII         SAVE THE INSTRUCTION IN *PIT*               MCG      4494
          2630  0400002617 +                      EQ     OEI                                                     MCG      4495
  
  
  
                                        **        AIS - ALLOCATE INSTRUCTION SPACE FOR EXTRA INSTRUCTIONS        MCG      4497
                                                                                                                 MCG      4498
          2631  0200402631 +             AIS      ROUTINE                                                        MCG      4499
          2632  5110000137 C                      SA1    EIW                                                     MCG      4500
                          73611                   SX6    X1+B1       EIW = EIW + 1                               MCG      4501
                               54610              SA6    A1                                                      MCG      4502
          2633  0336002631 +                      MI     X6,AIS      IF EIW < 0                                  MCG      4503
                          5110000000 C            SA1    N.INST                                                  MCG      4504
          2634  21102                             AX1    2                                                       MCG      4505
                     14611                        BX6    -X1                                                     MCG      4506
                          54660                   SA6    A6          EIW = -N.INST/4                             MCG      4507
          2635  5100000000 X                      ALLOC  PIT,X1      ALLOC( PIT , N.INST/4 )                     MCG      4508
          2636  0100002641 +                      RJ     AIP         ADJUST POINTERS                             MCG      4509
          2637  0400002631 +                      EQ     AIS                                                     MCG      4510
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   111
        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
          2640  5110000000 X             AIP0     SA1    O.TXT                                                   MCG      4518
                          6271000003              SB7    X1+3        BASE = O.TXT + 3                            MCG      4519
                                                                                                                 MCG      4520
          2641  0200402641 +             AIP      ROUTINE                                                        MCG      4521
          2642  5110000000 X                      SA1    O.PIT                                                   MCG      4522
                          5140000136 C            SA4    IIP+1                                                   MCG      4523
          2643  37614                             IX6    X1-X4                                                   MCG      4524
                     0306002640 +                 ZR     X6,AIP0     IF IIP(2) = O.PIT  */ *PIT* NOT MOVED       MCG      4525
                               10711              BX7    X1                                                      MCG      4526
          2644  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
          2645  0400002640 +                      EQ     AIP0                                                    MCG      4531
                                                                                                                 MCG      4532
                                                  QUAL                                                           MCG      4533
                                                                                                                 MCG      4534
          2647                                    END                                                            MCG      4535
  
                             67300B CM  STORAGE USED             7937 STATEMENTS     1172 SYMBOLS      000020 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            6.013 SECONDS        2169 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AIL           603   PROGRAM*       10/39     23/05     33/07     36/23     54/02
                                           14/31     31/38     34/12     36/29 L   60/02
        AIL0          600   PROGRAM*       36/19 L   37/19
        AIL1          613   PROGRAM*       37/03 L   37/33
        AIL2          616   PROGRAM*       37/18 L   37/27
        AIL3          617   PROGRAM*       36/56     37/24 L
        AIL4          621   PROGRAM*       37/33 L   37/38
        ALR            13   MCG             9/53     13/31 S   21/45     34/01
        AMX       7777767                  33/25
        ARA            76   MCG            15/45     41/11     41/29     41/52 S   55/48
                                           15/47     41/15     41/40 S   44/24 S   55/50
        ASC           652   PROGRAM*       10/42     40/18 L   54/05     60/05    110/30
        ASC0          651   PROGRAM*       40/11 L   43/04     43/07     43/10
        ASC1          665   PROGRAM*       41/16 L   41/18
        ASC2          670   PROGRAM*       41/20     41/27 L
        ASC3          671   PROGRAM*       41/13     41/29 L
        ASC4          672   PROGRAM*       41/32 L   41/35
        ASC5          700   PROGRAM*       41/10     41/23     41/28     41/39     41/52 L
        ASC6          701   PROGRAM*       40/27     42/01 L
        ASC7          701   PROGRAM*       40/23     42/13 L
        ASC8          704   PROGRAM*       42/15     42/19     42/22 L
        ASC9          706   PROGRAM*       41/50     41/53     42/51 L
        ATS=            0   EXTERNAL*      13/47     67/17     86/14     88/33    107/12
                                           13/49     67/18     86/51     88/35    110/48
        AVC           726   PROGRAM*       32/05     34/23     44/23     44/26 L   44/38
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   112
        SYMBOLIC REFERENCE TABLE. 
  
        AVCA          743   PROGRAM*       44/21     44/55 L
        AVC0          715   PROGRAM*       44/07 L   44/40     44/53
        AVC1          722   PROGRAM*       44/11     44/14     44/20 L
        AXR            12   MCG            11/04     20/10     21/46     35/07     53/40     65/30     82/16    103/06
                                           11/24     20/18     25/40     35/11     63/17     65/56     83/37
                                           13/29 S   20/24     32/07     38/14     63/43     72/42     85/06
                                           20/06     20/48     33/42     39/27     64/39     81/17     91/14
        BDT             0   EXTERNAL*       9/42     53/25
        BOOL            2                  49/32     49/50
        B1=1            0 
        CBR           414   PROGRAM*       27/13     27/17     27/38 L   27/41     27/52     27/55
        CBR1          423   PROGRAM*       27/46     27/49     27/54 L
        CLR           113   PROGRAM*       10/10     10/25     13/07 L
        CLR1          111   PROGRAM*       13/03 L   13/06     13/12
        CO.ER           0   EXTERNAL*      14/11
        CRU           344   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          342   PROGRAM*       25/10 L   25/43     26/10     26/23     26/30     26/34     26/44     26/48
        CRU1          354   PROGRAM*       25/19     25/21     25/24     25/32     25/37 L
        CRU2          367   PROGRAM*       25/53     26/13 L
        CRU3          373   PROGRAM*       26/15     26/26 L
        CRU4          377   PROGRAM*       25/50     26/41 L
        CSR            71   PROGRAM*       11/18     11/21     12/12 L   12/43     12/50     12/56
        CSR0           75   PROGRAM*       12/23 L   12/57
        CSR1           77   PROGRAM*       12/31 L   12/47
        CSR2          104   PROGRAM*       12/34     12/38     12/41     12/44 L
        CSR3          106   PROGRAM*       12/17     12/52 L
        CSR4           70   PROGRAM*       12/08 L   12/19
        DELTAT          4 
        DRR           221   PROGRAM*       16/40     20/16     20/49     22/37     23/23     56/40
                                           19/15 L   20/19     21/08     23/08     23/31     59/37
                                           20/14     20/33     21/46     23/20     23/35
        DRR1          224   PROGRAM*       19/19     19/21 L
        DT             10   MCG 
        DTT            15   PROGRAM*
        DUC           626   PROGRAM*       10/40     31/39     33/27     38/11     38/20 L   54/03     60/03
        DUC0          623   PROGRAM*       38/11 L   38/25     39/03     39/08
        DUC1          635   PROGRAM*       38/28     38/44 L
        DUC2          637   PROGRAM*       38/37     38/40     38/54 L
        DUC3          642   PROGRAM*       39/07 L   39/11     39/15     39/18     39/30
        DUC4          643   PROGRAM*       39/02     39/10 L
        D.ARL           2   FTNTEXT        41/04
        D.BML           1   FTNTEXT        44/55
        D.BMP          52   FTNTEXT        44/55
        D.ECJL          1   FTNTEXT        96/09
        D.ECJP         45   FTNTEXT        96/09
        D.EQVL          1   FTNTEXT       106/27
        D.EQVP         65   FTNTEXT        79/08    105/17    106/27
        D.FPL           1   FTNTEXT        80/25    106/27
        D.FPP          25   FTNTEXT        41/27     80/25    106/27
        D.FTL           5   FTNTEXT        32/29     42/23
        D.FTP          65   FTNTEXT        32/31     42/22     42/26
        D.F1L           4   FTNTEXT        16/13     56/16     59/30    110/17
        D.F1P          57   FTNTEXT        16/12     16/39     56/15     56/39     59/29     59/35    110/15    110/27
        D.JPL           1   FTNTEXT        96/09
        D.JPP          41   FTNTEXT        84/21     96/09
        D.KSL           1   FTNTEXT        96/09
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   113
        SYMBOLIC REFERENCE TABLE. 
  
        D.KSP          37   FTNTEXT        96/09
        D.LDL           1   FTNTEXT        80/22     96/09
        D.LDP          43   FTNTEXT        40/34     78/30     78/39     80/22     80/25     95/39     96/09
        D.LDSTL         2   FTNTEXT        40/19
        D.LDSTP        42   FTNTEXT        40/20     40/26     40/34     40/38     42/13
        D.L2L           1   FTNTEXT        80/25    106/27
        D.L2P          44   FTNTEXT        12/42     40/26     80/25     95/39     97/54    106/27
                                           21/36     73/35     88/08     95/41    101/03
        D.MUCP         35   FTNTEXT        95/20
        D.NRP          64   FTNTEXT        16/39     19/18     56/39     59/35     74/08     74/42
        D.PIL           1   FTNTEXT        96/09
        D.PIP          36   FTNTEXT        12/16     12/18     49/07     49/09     61/18     96/09     97/14     97/25
        D.PRSL          1   FTNTEXT        96/09    101/18
        D.PRSP         46   FTNTEXT        12/08     27/48     66/50     67/30     82/57     96/09
                                           25/31     49/09     67/11     82/34     83/18    101/18
        D.PSL           1   FTNTEXT        96/09
        D.PSP          47   FTNTEXT        12/08     20/41     42/22     73/46     86/10     89/07     98/01    109/03
                                           12/18     42/13     73/10     74/42     88/47     96/09    101/13
        D.REGWL        11   FTNTEXT        61/44
        D.REGWP        11   FTNTEXT        61/46     61/48     62/12
        D.RFP          23   FTNTEXT        78/19     78/30
        D.RJRSL         1   FTNTEXT        96/09
        D.RJRSP        50   FTNTEXT        96/09
        D.SRL           1   FTNTEXT       109/12
        D.SRP          26   FTNTEXT        15/39     41/27     55/42    108/15    109/12
        D.STL           1   FTNTEXT        96/09    101/18
        D.STP          42   FTNTEXT        12/40     21/36     73/35     88/06     96/09     97/54    100/55    101/18
                                           12/42     73/30     79/19     88/08     97/51    100/12    101/03    105/47
        D.STRSL         2   FTNTEXT        81/29     86/31     87/17    108/53
        D.STRSP        46   FTNTEXT        81/30     86/33     87/19    108/56
        D.SZP          27   FTNTEXT        15/32     15/39     16/12     40/38     42/26     55/35     55/42     56/15
        D.TYIOL         2   FTNTEXT        38/24     71/26     75/34     99/06
        D.TYIOP        50   FTNTEXT        29/29     38/44     38/48     71/25     75/33     99/05
        D.TYL           2   FTNTEXT        25/49     28/49     31/08     44/55
        D.TYP          72   FTNTEXT        19/18     29/29     44/55     75/33     84/21     98/52
                                           20/41     38/33     71/25     78/43     97/14     99/05
                                           21/11     38/44     72/14     84/17     97/51
        D.USESL        11   FTNTEXT        14/43     44/09     95/12
        D.USESP         0   FTNTEXT        95/31
        D.XMTL          1   FTNTEXT        96/09
        D.XMTP         40   FTNTEXT        21/11     96/09
        D.ZPL           1   FTNTEXT        80/22     96/09    109/12
        D.ZPP          32   FTNTEXT        72/09     72/14     78/39     78/43     79/08     80/22     96/09    109/12
        D.^DP          51   FTNTEXT        38/33     38/48     98/52
        EIW           137   MCG            13/46 S  110/40
        EOQA          134   MCG            13/22 S   35/52
        FB            377                  13/26
        FBR           403   PROGRAM*       20/32     26/45     27/09 L   27/14     27/21     27/28     74/40
        FBR1          407   PROGRAM*       27/17 L   27/20
        FBR2          412   PROGRAM*       27/18     27/23 L
        FX         377400                  13/26
        FXR           425   PROGRAM*       20/06     20/24     21/46     28/54     29/11     29/20     29/51     30/18
                                           20/18     20/48     28/18 L   29/06     29/15     29/23     30/14
        FXRA            4   PROGRAM*       11/30     20/18     20/48     81/21     85/12
                                           20/06     20/24     21/46     83/41    102/57
        FXR0          424   PROGRAM*       28/14 L
        FXR2          426   PROGRAM*       28/48 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   114
        SYMBOLIC REFERENCE TABLE. 
  
        FXR2A         435   PROGRAM*       29/17 L   29/49     30/19
        FXR3          440   PROGRAM*       28/52     29/27 L
        FXR4          444   PROGRAM*       29/40 L   29/48
        FXR5          447   PROGRAM*       29/42     29/48 L   29/55     30/01     30/05
        FXR6          451   PROGRAM*       29/45     29/53 L
        FXR7          455   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/54     13/30     74/27     82/11
        FX.SCR     377000                  11/07     20/04     65/31     74/09     75/16     83/38
                                           11/26     20/25     69/20     74/43     81/18     85/08
        FX.ST      140000                  11/06     20/24     63/18     74/45     82/17
                                           20/18     20/48     74/17     81/12
        FX.XT      400400                  11/26     20/04     20/24     20/48     83/38
                                           13/30     20/18     20/25     81/18     85/08
        FX.X0      200000 
        FX.X1        1000 
        FX.X2        2000 
        FX.X3        4000 
        FX.X4       10000 
        FX.X5       20000 
        FX.X6       40000                  14/51     44/17     53/33
        FX.X7      100000 
        F.CLC          46   MCG            13/35 S
        F.RDT           0   EXTERNAL*      67/29     67/50     86/30     89/06     91/29    103/25    108/11    108/49
        ICL             3   MCG            15/20     44/27     55/17     93/27     94/10 S   94/46
                                           36/26 S   54/16     59/13     94/04 S   94/16
        IH.CAIHL       44   FTNTEXT        47/27     48/05
        IH.CAIHP        0   FTNTEXT        47/30     48/10
        IH.CAL         22   FTNTEXT        41/30     49/20
        IH.CAP         22   FTNTEXT        41/31     41/43     47/18     48/54     79/38
                                           41/41     41/46     48/41     49/16    107/41
        IH.IHP          0   FTNTEXT        79/35
        IH.RFP         44   FTNTEXT        23/14     31/18     48/10     75/29     79/35     98/53
                                           26/20     38/35     71/21     78/46     79/38    105/48
                                           29/04     47/30     72/17     79/22     98/18
        IIP           135   MCG            13/53 S   35/49     46/21    111/12
        IT.             0   EXTERNAL*     108/41
        IWT            11   MCG            16/06     43/05     56/09
        I.ICP          72                  37/04     37/09     59/17     73/29     90/22     92/29     93/30
        I.IIP          73                  73/29
        I.INDXL        17                  12/24     68/09     73/16     83/55     89/22     92/16     97/27    100/39
                                           36/48     69/50     79/57     87/40     90/28     95/15     99/25    105/11
        I.INDXP        41                  12/26     67/47     69/55     83/57     88/56     92/19     97/28    100/41
                                           36/50     68/08     73/18     87/05     89/21     92/22     99/37    105/13
                                           67/25     69/54     80/01     87/44     90/28     95/49     99/39
        I.LINKL        22                  36/32     37/07     93/28     93/57     94/33    100/26
        I.LINKP         0 
        I.LSTL         17                  44/28     55/23     58/09     61/21     87/11     90/28     94/20
        I.LSTP         22                  36/52     55/24     61/22     89/01     92/22     94/19
                                           44/32     58/12     87/13     90/28     93/15     94/22
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   115
        SYMBOLIC REFERENCE TABLE. 
  
        I.NPREDL       22 
        I.NPREDP        0 
        I.REGL         22                  91/44
        I.REGP          0                  34/54     35/05     99/39
        I.USESL        11                  22/46     27/43     29/32     30/11     38/54     70/28     99/21    107/18
                                           25/45     29/09     29/35     34/53     38/56     90/28    102/45
        I.USESP        60                  22/48     29/13     35/05     67/06     72/28     88/54    107/21
                                           23/01     29/35     35/36     67/09     87/08     90/28
                                           25/46     30/10     38/56     70/31     87/23     99/24
                                           27/44     34/54     39/01     70/32     88/42    102/46
        JLR           131   MCG            32/06     34/42     83/50
        LLT           123   MCG 
        LRM           132   MCG             8/13 S    9/48     10/22
        LST           122   MCG 
        LXR           124   MCG            10/06     28/48     33/51     35/31     66/45     83/04    102/53
        L.CLC          63                  13/27
        L.OTI           0   EXTERNAL*      20/15     25/20     44/10     53/07 S  107/09
        L.PIT           0   EXTERNAL*       8/11     10/24 S   35/53 S
        L.TREE          0   EXTERNAL*       9/51 S   10/08 S
        L.TXT           0   EXTERNAL*      53/15     67/21     86/13     86/55     87/37     88/51     95/10     98/39
        MAX.GX          2                  11/12     13/49
        MCG            17   PROGRAM*        8/10 E    8/10 L    9/52      9/57     10/09     10/11
        MCG10          22   PROGRAM*        9/41 L
        MCG11          24   PROGRAM*        9/48 L
        MCG14          31   PROGRAM*        9/43     10/04 L
        MVE=            0   EXTERNAL*      86/22
        MX.TXT          0   PROGRAM*
        NGX           125   MCG            11/05     11/38
        N.INST          0   MCG            13/42    110/44
        N.OT            0   EXTERNAL*      53/04
        N.SP            1   MCG            14/47 S   25/22     42/16     44/16 S   53/32 S
        OC.DEF          5   FTNTEXT        84/49     97/19
        OC.FMA         43   FTNTEXT        49/30
        OC.ILS         22   FTNTEXT        49/57
        OC.JIN         70   FTNTEXT        31/54
        OC.LD          50   FTNTEXT       108/42
        OC.NOP         46   FTNTEXT        35/57
        OC.RS           4   FTNTEXT        67/50
        OC.SA          60   FTNTEXT        84/36     85/18
        OC.SLD         56   FTNTEXT        84/34
        OC.ST          51   FTNTEXT       108/09
        OC.STT         52   FTNTEXT        14/18
        OC.TLD         75   FTNTEXT       108/46
        OC.XMT         10   FTNTEXT        11/36     63/31     67/28     81/55     89/06
                                           49/48     64/21     81/37     86/28     89/12
        OC.XOR         13   FTNTEXT        49/35    103/24
        OT.             0   EXTERNAL*     107/38
        O.OTI           0   EXTERNAL*     107/16
        O.PIT           0   EXTERNAL*     111/11
        O.SYM          12                   1/35 D
        O.TREE          0   EXTERNAL*      12/25     68/07     73/17     83/56     87/38     95/11     99/20    105/09
                                           36/49     69/47     79/56     86/57     92/15     97/26    100/40
        O.TXT           0   EXTERNAL*      14/05     53/16    111/07
        PARCEL          0   EXTERNAL*      13/50
        PBI             6   MCG            15/19     18/27     49/29     55/16     58/17     59/47 S
                                           17/46 S   40/21     49/47     57/46 S   59/36 S  110/26 S
        PB.FUL         14 
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   116
        SYMBOLIC REFERENCE TABLE. 
  
        PB.FUP         60 
        PB.LIL         22 
        PB.LIP          0                  18/35     58/24
        PB.PIL         22 
        PB.PIP         22                  17/43     18/35     57/43     58/24
        PB.REGL        14 
        PB.REGP        60 
        PB.TEXL        22 
        PB.TEXP        22                  17/38     18/39     57/38     58/28     59/44
        PB.TISL        22 
        PB.TISP         0                  18/39     58/28
        PC            127   MCG            13/57 S   14/27 S   15/34     22/33 S   32/30     42/51     44/31 S   55/37
        PJI           461   PROGRAM*       22/35     31/07 L   32/11     32/24     32/42
        PJI1          470   PROGRAM*       31/20     31/25     31/27 L
        PJI2          473   PROGRAM*       31/13     31/34     31/37 L
        PJI4          505   PROGRAM*       32/13 L   32/20
        PJI5          511   PROGRAM*       31/55     32/28 L
        PJI6          516   PROGRAM*       32/37     32/41 L
        PPI           521   PROGRAM*       23/29     33/10 L   34/24
        PPIB          577   PROGRAM*       35/47     35/57 L
        PPI0          517   PROGRAM*       33/06 L   33/46     34/04     35/15     35/41
                                           33/29     33/56     34/44     35/25
        PPI10         564   PROGRAM*       34/43     35/20 L
        PPI11         566   PROGRAM*       34/45     35/29 L
        PPI4          536   PROGRAM*       33/48     34/01 L
        PPI6          543   PROGRAM*       34/23 L
        PPI7          550   PROGRAM*       34/38     34/40 L
        PPI8          562   PROGRAM*       35/04     35/11 L
        PPI.JT       1032   PROGRAM*       33/14     51/54 D
        PRS           116   PROGRAM*       10/29     13/21 L   14/33     53/28
        PRS1          123   PROGRAM*       13/36 L   13/40
        PRS2          130   PROGRAM*       13/43     13/49 L
        PRS3          146   PROGRAM*       14/12     14/13     14/20     14/29 L
        RBV           140   MCG            25/41     30/16     35/06     38/13     64/40     72/43     83/03    103/05
                                           29/08     32/15     35/12     39/26     65/57     74/53     91/15
                                           29/53     33/43     35/30     63/44     71/43     75/54     91/16
        RIO             0   EXTERNAL*      53/23
        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/17     48/40     48/55     56/03
        RN.X0          20                  11/17     64/08     69/12     69/48     73/56     81/24     82/48
                                           61/53     64/09     69/26     73/05     77/34     82/27     83/12
                                           63/30     64/36     69/36     73/50     77/42     82/46     83/21
        RVT            15   MCG            12/13     32/18 S   61/34     64/41 S   72/38     81/25     91/10    104/08
                                           13/11 S   33/40 S   61/52     65/52     73/07     82/30     91/13 S
                                           22/51     34/55 S   63/22     66/05 S   75/57     82/49     91/43
                                           22/56 S   35/08 S   63/32     69/12     76/20     82/55     99/50
                                           25/28     35/29     63/38     69/48     77/28     83/16    103/09 S
                                           25/37     38/23     64/10     70/26     77/34     83/49    103/18
                                           27/40     61/33     64/16     71/46     77/40     86/18 S  104/07
        R1.H2L         14   FTNTEXT        48/13
        R1.H2P         22   FTNTEXT        48/22
        R1.INP         36   FTNTEXT        14/15     47/11
        R1.RIL         20   FTNTEXT        29/41     38/38     71/39     75/50     98/57
                                           36/19     39/07     72/31     95/06    100/03
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   117
        SYMBOLIC REFERENCE TABLE. 
  
        R1.RJP         40   FTNTEXT        21/20     26/05     46/03     48/50     78/50     89/29    103/28
                                           21/27     26/27     46/07     49/53     84/44     91/31
                                           22/43     26/31     46/36     67/36     86/37     98/07
                                           26/03     33/21     46/51     67/40     89/14     98/09
        R1.RKP         20   FTNTEXT        26/05     46/07     46/51     84/44    103/29
                                           26/31     46/48     84/31     98/09
        R1.SOP         20   FTNTEXT        12/54     26/43     27/25     33/36     47/03     83/32    100/17
                                           21/04     27/10     27/51     34/31     74/50     84/51
        SEQTIME         2   MCG 
        SII           750   PROGRAM*       10/44     31/41     34/15     35/48     51/55 D   54/07     60/07    110/32
        SIS            37   PROGRAM*        9/44     10/27 L
        SIS0           35   PROGRAM*       10/22 L   11/10     11/11     11/13     11/22
        SIS1           42   PROGRAM*       10/39 L   10/47
        SIS2           46   PROGRAM*       10/37     10/46 L   11/41
        SIS3           60   PROGRAM*       11/19     11/24 L
        SIS4           65   PROGRAM*       11/34     11/36 L
        SNI           160   PROGRAM*       10/46     15/17 L   17/51     18/32     18/41
        SNIA          157   PROGRAM*       15/15 L   16/38 S   17/33     56/38 S   57/33
        SNI0          161   PROGRAM*       15/19 L   16/42
        SNI1          163   PROGRAM*       15/28 L   18/25
        SNI2          172   PROGRAM*       15/51 L   15/53
        SNI3          177   PROGRAM*       15/40     15/55     16/06 L
        SNI4          200   PROGRAM*       15/33     15/37     16/02     16/04     16/12 L
        SNI5          201   PROGRAM*       16/37 L
        SNI6          204   PROGRAM*       16/37     16/44 L
        SNI7          205   PROGRAM*       16/41     16/49 L
        SNI8          206   PROGRAM*       17/32 L
        SNI9          214   PROGRAM*       16/45     17/02     17/57 L
        SO.LKL          2   FTNTEXT        34/35
        SO.LKP          6   FTNTEXT        12/54     26/43     33/41     34/34
        SO.REGL         6   FTNTEXT        21/03     27/11     74/51     83/31
        SO.RNL          3   FTNTEXT        33/37     34/32     40/32     47/02    100/18
        SO.RTL          3   FTNTEXT        33/37     34/32     47/02     84/52    100/18
        SO.RTP          3   FTNTEXT        84/51
        SO.SFLP        12   FTNTEXT        27/51
        SSP           151   PROGRAM*       14/32     14/41 L   14/50     14/53     32/04     33/08     34/13
        STL            14   MCG            14/48 S   20/03     20/11     42/20 S   44/18 S   53/34 S
        SVL             0   TABLES
        T             126   MCG            11/25     17/42     40/16 S   55/32     59/28     85/07    110/10
                                           15/29     32/36 S   44/34 S   57/42     62/23     91/21
        TFU           106   MCG            44/49 S   56/18
        TRA            46   MCG            11/31     22/11     29/17     31/32     39/25 S   62/26 S  110/11
                                           15/57     23/17     29/56     34/52     44/42 S   85/13
                                           20/34     25/10     31/23     35/02 S   56/03     91/22
        TRS           130   MCG            31/12 S   44/35 S
        TSL           713   PROGRAM*       40/39     43/27 L
        TYIOM           1   PROGRAM*       29/31     38/46     71/29     72/22     75/37     99/09
        T(INF)     377777                  29/38
        U.EQVP         71                  70/01    105/27
        U.LASTP        73                  68/41     87/23     93/30
        U.LSTL         22 
        U.LSTP         22                  93/12
        U.PREDL        22 
        U.PREDP        44                  68/32     68/48     88/18     88/20     88/22     89/30     90/02     90/04
        U.RDLP         72                  92/49     99/45
        U.SUCCL        22 
        U.SUCCP         0                  68/48     99/45
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   118
        SYMBOLIC REFERENCE TABLE. 
  
        Z.OTI           0   EXTERNAL*      13/47    107/12
        Z.PIT           0   EXTERNAL*      13/49    110/48
        Z.TREE          0   EXTERNAL*      67/18     86/51     88/35
        Z.TXT           1                   1/35 D   86/14     88/33
        .CPU          111   FTNTEXT         1/40     16/16 F   18/03 F   21/48 F   28/19 F   42/02 F   42/55 F   56/50 F
                                            8/16 F   16/50 F   18/44 F   22/13 F   40/41 F   42/27 F   43/12 F   57/03 F
                                           10/30 F   17/03 F   21/14 F   23/34 F   40/49 F   42/44 F   56/21 F
        .DAL            1   FTNTEXT        40/24 F   41/57 F   73/33 F   95/35 F   97/53 F  100/56 F
        .IWT            0   FTNTEXT        13/23 F   34/16 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  JAM 
  
  
        AIP          2641   PROGRAM*       67/19     86/23     86/53     88/36    107/13    110/49    111/10 L
        AIP0         2640   PROGRAM*      111/07 L  111/14    111/20
        AIS          2631   PROGRAM*       63/09     65/29    110/39 L  110/43    110/50
        CLASS         202   MCG            54/35 L   65/34     65/42     69/19    102/52
                                           65/17 S   65/38     66/01     71/36
        CNU          1306   PROGRAM*       54/13     61/16 L   62/19     62/31
        CNU0         1305   PROGRAM*       61/14 L   61/19
        CNU1         1317   PROGRAM*       61/32     61/39     61/44 L   62/32
        CNU2         1322   PROGRAM*       61/52 L   62/18
        CNU3         1326   PROGRAM*       62/09 L   62/16
        CNU4         1331   PROGRAM*       62/01     62/04     62/18 L
        CNU5         1332   PROGRAM*       62/11     62/23 L
        CRA          2000   PROGRAM*       65/39     81/11 L   81/41     82/07     85/22
        CRA1         2011   PROGRAM*       81/33     81/37 L   83/01     83/19     83/43
        CRA10        2054   PROGRAM*       82/12     83/28 L
        CRA11        2062   PROGRAM*       83/36     83/49 L
        CRA12        2067   PROGRAM*       84/06 L   84/13     84/18     84/22     84/33
        CRA13        2070   PROGRAM*       84/04     84/10 L
        CRA14        2075   PROGRAM*       84/20     84/29 L
        CRA14A       2103   PROGRAM*       84/43     84/46 L
        CRA15        2107   PROGRAM*       83/53     84/23     84/35     84/37     84/50     85/01 L
        CRA2         2014   PROGRAM*       81/34     81/46 L
        CRA21        2110   PROGRAM*       84/07     84/54     85/06 L
        CRA22        2115   PROGRAM*       85/16     85/18 L
        CRA3         2016   PROGRAM*       81/50     81/54 L   83/07
        CRA4         2024   PROGRAM*       81/13     82/11 L
        CRA5         2031   PROGRAM*       82/30 L   82/47
        CRA6         2036   PROGRAM*       82/38     82/42 L
        CRA7         2037   PROGRAM*       82/31     82/35     82/39     82/41     82/45 L
        CRA8         2043   PROGRAM*       82/52     82/55 L   83/24
        CRA9         2047   PROGRAM*       82/19     83/12 L
        CRA9A        2050   PROGRAM*       83/16 L   83/22
        CRC          1720   PROGRAM*       62/27     75/13     76/12     77/31 L   82/15
        CRCA         1776   PROGRAM*       77/33     80/22 L
        CRCB         1777   PROGRAM*       78/37     80/25 L
        CRC0         1717   PROGRAM*       77/28 L   78/12
        CRC1         1730   PROGRAM*       77/51 L   78/20     78/40     78/56     79/02     79/25     79/53     80/19
        CRC10        1757   PROGRAM*       79/20     79/27 L   79/34     79/40     79/45
        CRC11        1764   PROGRAM*       79/37     79/42 L
        CRC12        1772   PROGRAM*       80/06 L   80/10
        CRC2         1731   PROGRAM*       77/55 L   78/32     79/10     79/28
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   119
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        CRC2A        1734   PROGRAM*       78/04     78/06 L
        CRC3         1735   PROGRAM*       77/57     78/03     78/05     78/10 L   78/14     78/17
        CRC4         1736   PROGRAM*       77/38     77/44     77/46     78/14 L
        CRC5         1741   PROGRAM*       78/21     78/30 L
        CRC6         1746   PROGRAM*       78/44     78/49 L
        CRC7         1747   PROGRAM*       78/47     78/52 L
        CRC9         1752   PROGRAM*       78/41     79/08 L
        CSI          1620   PROGRAM*       65/20     73/04 L   73/52
        CSI1         1622   PROGRAM*       73/07 L   73/51     73/57
        CSI2         1626   PROGRAM*       73/24 L   73/42
        CSI3         1632   PROGRAM*       73/27     73/39 L
        CSI4         1635   PROGRAM*       73/11     73/44     73/49 L
        CSI5         1637   PROGRAM*       73/32     73/54 L
        DRI           207   MCG            54/40 L  103/33 S  103/53    108/14 S  108/39
                                           91/34 S  103/45    106/24 S  108/21
        DRT          1641   PROGRAM*       65/14     74/18     74/28     74/35     74/44     74/55
                                           74/07 L   74/25     74/32     74/36     74/46
        DRT0         1521   PROGRAM*       68/55 L   74/23     74/30     74/31     74/33     74/34     74/41
        DRT1         1644   PROGRAM*       74/11     74/13 L
        DRT2         1661   PROGRAM*       74/15     74/40 L
        DRT3         1665   PROGRAM*       74/21     74/50 L
        FRR          1671   PROGRAM*       65/43     75/15 L   76/25
        FRRA         1716   PROGRAM*       76/09 S   76/16     76/27 L
        FRR0         1670   PROGRAM*       75/11 L   75/17     75/23
        FRR1         1677   PROGRAM*       75/24     75/33 L
        FRR2         1702   PROGRAM*       75/31     75/45 L
        FRR3         1703   PROGRAM*       75/49 L   76/07
        FRR4         1710   PROGRAM*       75/51     75/56     76/01     76/07 L
        FRR5         1713   PROGRAM*       76/20 L   76/24
        FSR          1522   PROGRAM*       65/50     69/11 L   69/41     69/43     70/23     70/25     70/37     70/39
        FSRA         1557   PROGRAM*       69/17 S   69/30 S   69/33     70/41 L
        FSR1         1530   PROGRAM*       69/25 L   69/28     69/31
        FSR2         1533   PROGRAM*       69/21     69/25     69/33 L
        FSR3         1540   PROGRAM*       69/38     69/40     69/47 L
        FSR4         1545   PROGRAM*       70/05 L   70/07     70/11
        FSR5         1547   PROGRAM*       70/13 L   70/15     70/19
        GLI          2601   PROGRAM*       66/56    106/20    108/36 L  109/04    109/10
        GLIA         2616   PROGRAM*      108/50    109/12 L
        GLI1         2607   PROGRAM*      108/45    108/47 L
        GOR          1561   PROGRAM*       69/23     71/09 L   71/15     71/53    102/27
        GOR1         1566   PROGRAM*       71/16     71/25 L
        GOR2         1571   PROGRAM*       71/23     71/34 L
        GOR3         1572   PROGRAM*       71/38 L   71/51
        GOR4         1577   PROGRAM*       71/40     71/45     71/47     71/51 L
        GOT          2550   PROGRAM*      107/07 L  107/44    108/20
        GOT1         2557   PROGRAM*      107/11    107/16 L
        GOT2         2561   PROGRAM*      107/25 L  107/29
        GOT3         2564   PROGRAM*      107/26    107/34 L
        GOT4         2565   PROGRAM*      107/32    107/37 L
        ISC           172   MCG            32/09 S   54/33 D   79/11    100/25
        ISI          1257   PROGRAM*       59/12 L   65/19 S   65/25     73/55     82/04    106/17
                                           59/39     65/21     66/37     81/40     85/21
        ISI0         1255   PROGRAM*       59/08 L   59/38     60/08
        ISI1         1263   PROGRAM*       59/22 L   59/26
        ISI2         1265   PROGRAM*       59/20     59/28 L
        ISI3         1300   PROGRAM*       59/49     60/01 L
        JAM          1141   PROGRAM*       10/02     53/09     53/12 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   120
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        JAM0         1136   PROGRAM*       53/03 L   53/26
        JAM1         1157   PROGRAM*       53/39 L   54/12     54/14
        JAM2         1162   PROGRAM*       53/42     53/45 L
        JAM3         1170   PROGRAM*       53/49     54/01 L
        JAM4         1174   PROGRAM*       53/47     54/09 L
        JAM5         1175   PROGRAM*       54/12 L   54/25
        JAM6         1177   PROGRAM*       53/46     54/16 L
        LRN           172   MCG            34/56 S   54/32 L   54/33     78/57    100/22 S
        MIN.D          70                  61/12 D   61/50     95/53     96/05
        M.OT          170   MCG            53/03     53/13 S   54/30 L  107/08    107/14    107/35 S
        N.UR0          11                  52/45 D   53/29     53/51     59/51
        OEI          2617   PROGRAM*       91/39    103/40    103/48    103/56    108/26    110/09 L  110/33
        OTS          2570   PROGRAM*       66/53    106/13    108/08 L  108/27
        OXI          2236   PROGRAM*       11/37     63/35     64/26     81/38     82/02     85/19     91/09 L   91/50
        PIS           215   MCG            54/43 L   61/26 S   61/47
        RF.SAV          0                  77/26 D   78/22 F   80/21 F
        RII          1600   PROGRAM*       63/51     66/24     66/39     72/05 L   72/10     72/49
        RII1         1606   PROGRAM*       72/15     72/21 L
        RII2         1610   PROGRAM*       72/19     72/27 L
        RII3         1611   PROGRAM*       72/30 L   72/47
        RII4         1617   PROGRAM*       72/32     72/41     72/47 L
        RIL          2254   PROGRAM*       72/06     86/48     90/25     92/13 L   94/05     94/44     94/51    108/37
        RIL1         2262   PROGRAM*       92/35 L   92/54
        RIL10        2321   PROGRAM*       94/26     94/32 L
        RIL11        2325   PROGRAM*       94/36     94/46 L
        RIL2         2263   PROGRAM*       92/38 L   92/47     92/50     93/01
        RIL3         2264   PROGRAM*       92/30     92/42 L
        RIL4         2271   PROGRAM*       92/39     93/05 L
        RIL5         2301   PROGRAM*       93/33 L   93/39
        RIL6         2302   PROGRAM*       93/31     93/37 L   93/51
        RIL7         2312   PROGRAM*       93/35     93/53     93/55     94/07 L
        RIL8         2314   PROGRAM*       93/23     94/09     94/16 L
        RIL9         2316   PROGRAM*       94/24 L   94/30
        RLL1         2360   PROGRAM*       97/38 L   98/29
        RLL1A        2366   PROGRAM*       97/47     98/06 L
        RLL2         2372   PROGRAM*       98/06     98/17 L
        RLL3         2374   PROGRAM*       97/52     97/55     98/04     98/11     98/14     98/22 L
        RLL4         2375   PROGRAM*       97/43     98/15     98/21     98/26 L
        RLL5         2400   PROGRAM*       98/33     98/39 L
        RTGL         2453   PROGRAM*      102/19 L  103/23 S  103/42    103/50    104/04
        RV.COSTL       13                  52/51 D
        RV.COSTP       60                  52/51 D
        RV.LOCKP       73                  52/50 D
        RV.NUL         22                  52/54 D
        RV.NUP         22                  52/54 D   61/57     79/18     80/12     81/47     83/02
                                           61/35     78/01     79/49     80/16     81/54     99/53
                                           61/36     79/16     79/52     81/46     82/37     99/57
        RV.RNL         22                  52/55 D
        RV.RNP          0                  52/55 D
        RV.SROP        44                  52/53 D   63/23     64/18
        R0            203   MCG            54/36 L   66/23     67/03     86/15     88/37    104/03    109/08 S
                                           63/41 S   66/38     67/20     86/27    102/42    105/08
                                           64/22 S   66/44     82/01 S   87/10    103/41    106/19
                                           65/54 S   66/55     86/07     87/36    103/49    108/10
        SF            171   MCG            53/39     54/31 L   63/25 S   64/42 S
        SIW           206   MCG            54/39 L   86/49     93/21 S
        SMB          2330   PROGRAM*       53/35     95/09 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   121
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        SMBA         2350   PROGRAM*       95/19     96/09 L
        SMB0         2327   PROGRAM*       95/06 L   95/29
        SMB1         2336   PROGRAM*       95/24 L   96/03
        SMB2         2337   PROGRAM*       95/22     95/27 L   95/32     95/42     95/55     96/07
        SMB3         2343   PROGRAM*       95/38     95/43 L
        SMB4         2345   PROGRAM*       95/57 L   96/06
        SNI          1205   PROGRAM*       53/45     55/15 L   57/51     58/21     58/30
        SNI0         1204   PROGRAM*       55/13 L   56/42
        SNI1         1212   PROGRAM*       55/31 L   58/15
        SNI10        1251   PROGRAM*       58/03     58/17 L
        SNI2         1221   PROGRAM*       55/54 L   55/56
        SNI3         1226   PROGRAM*       55/43     56/01     56/09 L
        SNI4         1227   PROGRAM*       55/36     55/40     56/05     56/07     56/15 L
        SNI5         1232   PROGRAM*       56/20     56/37 L
        SNI6         1235   PROGRAM*       56/37     56/44 L
        SNI7         1236   PROGRAM*       56/41     56/49 L
        SNI8         1237   PROGRAM*       57/32 L
        SNI9         1245   PROGRAM*       56/45     57/02     57/57 L
        SNU          2402   PROGRAM*       54/10     97/13    100/11    100/23    101/16
                                           59/09     98/45 L  100/21    101/04
        SNUA         2452   PROGRAM*      100/09    101/18 L
        SNU0         2351   PROGRAM*       97/12 L   98/48
        SNU1         2410   PROGRAM*       98/49     99/05 L
        SNU10        2447   PROGRAM*      100/49    100/53    101/02    101/06 L
        SNU2         2415   PROGRAM*       97/20     98/37     98/43     98/55     99/03     99/13     99/17     99/20 L
        SNU3         2417   PROGRAM*       99/29 L  100/04
        SNU4         2422   PROGRAM*       99/42 L   99/48
        SNU5         2426   PROGRAM*       99/30     99/33    100/03 L
        SNU6         2427   PROGRAM*       97/15    100/08 L
        SNU7         2435   PROGRAM*      100/13    100/25 L
        SNU9         2442   PROGRAM*      100/46 L  101/09
        SRM          2517   PROGRAM*       63/56     64/30     66/17     66/33    105/07 L  106/21
        SRMA         2547   PROGRAM*      105/45    106/27 L
        SRM1         2524   PROGRAM*      105/26 L  105/33
        SRM2         2526   PROGRAM*      105/28    105/31 L
        SRM3         2530   PROGRAM*      105/18    105/44 L
        SRM4         2532   PROGRAM*      105/50 L  106/11
        SRM6         2537   PROGRAM*      105/53    105/56    106/01    106/05    106/09 L
        SRM7         2541   PROGRAM*      106/15 L  106/25
        SRM7A        2543   PROGRAM*      106/16    106/19 L
        SRM8         2545   PROGRAM*      106/07    106/23 L
        SSR          1342   PROGRAM*       62/28     63/11 L   63/27
        SSR0         1340   PROGRAM*       63/06 L   63/52     63/57
        SSR1         1351   PROGRAM*       63/20     63/29 L
        SSR2         1354   PROGRAM*       63/33     63/35 L
        SSR3         1356   PROGRAM*       63/13     63/38 L
        SSR4         1364   PROGRAM*       63/50     63/54 L
        SUR          1367   PROGRAM*       53/43     64/07 L   64/45
        SURA         1410   PROGRAM*       64/25 S   64/31     64/47 L
        SUR1         1374   PROGRAM*       64/13     64/16 L   64/37
        SUR2         1403   PROGRAM*       64/19     64/35 L
        SXB          2120   PROGRAM*       82/06     86/06 L   87/29     90/18     90/26    109/09
        SXBA         2234   PROGRAM*       86/56     90/28 L
        SXBB         2235   PROGRAM*       87/35 S   90/11     90/29 L
        SXBS         2155   PROGRAM*       86/11     87/35 L
        SXB0         2144   PROGRAM*       86/50     86/55 L
        SXB1         2162   PROGRAM*       87/53 L   88/04     88/07     88/09     88/13     88/25     88/27
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   122
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        SXB2         2163   PROGRAM*       87/48     87/57 L
        SXB3         2173   PROGRAM*       87/54     88/31 L
        SXB4         2216   PROGRAM*       89/33 L   89/49
        SXB5         2217   PROGRAM*       89/37 L   89/45     89/56     90/07
        SXB6         2220   PROGRAM*       89/31     89/41 L
        SXB7         2226   PROGRAM*       89/38     90/09 L
        TGL          2454   PROGRAM*       66/13     66/31    102/21 L  102/32    104/21
        TGL20        2460   PROGRAM*      102/32 L  102/37
        TGL40        2463   PROGRAM*      102/35    102/42 L
        TM            216   MCG            54/44 L   55/27 S   58/11
        T0            204   MCG            54/21     64/12 S   66/16 S   69/22     82/03    102/26
                                           54/37 L   65/13 S   66/20 S   75/18     83/28    106/15
                                           63/55 S   65/24     66/36     81/39     85/20
        T0C           205   MCG            54/38 L   65/12 S   66/18
        UJR          1411   PROGRAM*       54/19     65/08 L   65/27     65/36     65/40     66/34     66/40
        UJR0         1420   PROGRAM*       65/24 L   66/14     66/32     68/51
        UJR0A        1422   PROGRAM*       65/22     65/29 L
        UJR1         1427   PROGRAM*       65/38 L   66/21     66/25
        UJR10        1457   PROGRAM*       66/06     66/44 L
        UJR2         1431   PROGRAM*       65/33     65/42 L
        UJR20        1512   PROGRAM*       68/16 L   68/19
        UJR3         1434   PROGRAM*       65/46     65/52 L
        UJR30        1514   PROGRAM*       68/17     68/23 L
        UJR4         1447   PROGRAM*       66/12     66/23 L
        UJR5         1451   PROGRAM*       66/08     66/29 L
        UJR6         1454   PROGRAM*       66/29     66/36 L
        UJR.E1       1521   PROGRAM*       66/51     68/56 L   85/01
        UOR           213   MCG            54/18 S   54/20     54/41 L   59/10 S   61/15 S   62/24 S   62/29
        UR            214   MCG            53/30 S   53/50     54/42 L   59/50     61/45     63/06     64/27
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     II                                 31/43 F
  U     JAM                                52/43 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  DRR 
  
  
        DRR2          221   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/35 D
        ECJ           322   PROGRAM*       19/32     22/32 L
        JP            323   PROGRAM*       19/41     22/35 L
        KS            335   PROGRAM*       19/47     23/14 L
        LD            310   PROGRAM*       19/36     21/45 L
        LD1           315   PROGRAM*       21/46     21/47 L
        LVL2          306   PROGRAM*       19/34     21/36 L
        MUC           256   PROGRAM*       19/52     20/24 L
        PI            340   PROGRAM*       19/50     23/29 L
        PRS           277   PROGRAM*       19/30     21/03 L
        PRS1          303   PROGRAM*       21/12     21/19 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 15.55.58.      PAGE   123
        SYMBOLIC REFERENCE TABLE.                                     DRR 
  
        PS            271   PROGRAM*       19/27     20/48 L
        RJRS          264   PROGRAM*       19/25     20/32 L
        RJRS1         270   PROGRAM*       20/36     20/40 L
        SCR           240   PROGRAM*       20/03 L   20/42     21/37     22/50     22/52
        SCR1          241   PROGRAM*       20/06 L   20/13     20/26
        ST            316   PROGRAM*       19/39     21/39     22/07 L
        XMT           325   PROGRAM*       19/44     22/42 L
        XMT1          331   PROGRAM*       21/30     22/56 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  SII 
  
  
        LSS1          777   PROGRAM*       48/16     48/18 L
        LSS2         1003   PROGRAM*       48/07     48/36 L
        PLD1         1011   PROGRAM*       48/56     49/03 L
        PLD2         1014   PROGRAM*       49/08     49/15 L
        PLD3         1015   PROGRAM*       49/10     49/20 L
        SII           750   PROGRAM*       46/20 L   48/32     51/55
        SIIA         1032   PROGRAM*       46/24     50/26 L   51/54
        SII0          747   PROGRAM*       46/18 L   46/57     47/14     47/38     48/24     49/24     49/42
                                           46/43     47/07     47/22     47/44     48/45     49/34     50/05
        SI.CAL         22 
        SI.CAP         36                  47/12     47/20     48/41     49/22
        SI.H2P         73 
        SI.IHL         22 
        SI.IHP         14                  47/33     48/18
        SI.OCL         13 
        SI.OCP         60 
        SI.RIL          6 
        SI.RIP          0 
        SI.RJL          6 
        SI.RJP          6                  46/13     47/05     48/20     49/04     49/39
                                           46/41     47/35     48/43     49/37
        SI.RKL          6 
        SI.RKP         14                  46/15     46/55     49/39     50/03
        TYI           744   PROGRAM*       46/03 L
        TYII          763   PROGRAM*       47/11 L
        TYIII         767   PROGRAM*       47/26 L
        TYIV          772   PROGRAM*       47/43 L
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1060              IDENT  BDT
                       1060                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1060 
                                        MCG       COMMON          0         3 
                                        TABLES    COMMON          0        40 
  
  
                                        ENTRY POINTS. 
  
                                        B=BDT            0+           RIO            464+           RNI           1031+ 
                                        BDT              1+           CRW            755+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.TXT     L.TREE    SHL       HBI       SST       NBIP
                                        L.TXT     TYIOM     ATS=      PS2ABT    O.IIT     GRASRF
                                        O.TREE    MVE=      Z.TREE    FA=LOL    O.TET 
  
  
  
  
                                                  IDENT  BDT                                                     BDT         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=BDT    RPVDEF                                                         BDT         5
                                                  PASS2TM                                                        BDT         6
                                                  TABLES TXT,TREE                                                BDT         7
  
  
  
                                        **        BDT - BUILD DEPENDENCY TREE ( FORM DEPENDENCY GRAPH )          BDT        11
                                        *         BDT FORMS THE DEPENDENCY GRAPH OF A SEQUENCE OF *IL*           BDT        12
                                        *         INSTRUCTIONS WHICH TAKES INTO ACCOUNT THE OPERAND, DATA        BDT        13
                                        *         INTERFERENCE, REGISTER REDEFINITION AND BLOCK CONSTRAINT       BDT        14
                                        *         DEPENDENCIES ( LINKS ) OF THE INSTRUCTIONS.  IT ALSO COMPUTES  BDT        15
                                        *         THE PERT LATE START TIMES FOR EACH INSTRUCTION, AND SORTS THE  BDT        16
                                        *         THE SUCCESSOR INDEX LISTS ACCORDING TO THEM.                   BDT        17
                                        *                                                                        BDT        18
                                        *         S.I. JASIK - FEB 1973                                          BDT        19
                                        *                                                                        BDT        20
                                        *         ENTRY  (X6) = TREE MODE = 0/1 - PRIORITY CALC / JAM MODE       BDT        21
                                        *                (SIOCALL) = 1 IF CALL FROM *RIO* FOR A PARTIAL TREE     BDT        22
                                        *                *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
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE     2
                                                                                MCG 
  
                                                  USE    /MCG/                                                   BDT        29
             0                     1     N.INST   BSS    1           NUMBER OF INSTRUCTIONS ( L.TXT/4 )          BDT        30
             1                     1     N.ST     BSS    1           NUMBER OF STORES IN *TXT*                   BDT        31
             2                     1     SEQTIME  BSS    1           CRITICAL PATH TIME ( CALCULATED IN *CIP* )  BDT        32
                                                  USE    0                                                       BDT        33
  
  
  
                                        **        DEBUGGING FACILITIES                                           BDT        35
                                        *                                                                        BDT        36
                                        *         BASIC SNAPS - *IL* SEQUENCE AND *SIT* ON EXIT                  BDT        37
                                        *         TRACER BDT                                                     BDT        38
                                        *                                                                        BDT        39
                                        *         TO SNAP THE FINAL DEPENDENCY TREE                              BDT        40
                                        *         TRACER TREE                                                    BDT        41
                                        *                                                                        BDT        42
                                        *         TO TRACE EACH PHASE -                                          BDT        43
                                        *         TRACER (RNI,IH,FIL,FOL,FTL,FJL)                                BDT        44
                                                                                                                 BDT        45
                                        **        TREE - SNAPSHOT DUMP OF THE DEPENDENCY TREE                    BDT        46
                                        *         NOTE - TREE MACRO MAY BE CALLED BETWEEN FIL2 AND FTL5 ONLY     BDT        47
                                                                                                                 BDT        48
                                         TREE     MACRO  LAB                                                     BDT        49
                                                  IF     DEF,/DEBUG/LAB,1                                        BDT        50
                                         TREE-LAB SNAP   *A7,*TREEL,,,1,200,1                                    FEAT155F  261
                                                  ENDM                                                           BDT        52
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      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
                                         SUCC     DEFINE 18          INDEX TO *TXT* OF SUCCESSOR                 BDT        60
                                                  DEFINE 1                                                       BDT        61
                                         RDL      DEFINE 1           REGISTER REDEFINITION LINK                  FCC0448   159
                                         EQVL     DEFINE 1           DATA INTERFERENCE LINK                      FCC0448   160
                                                  DEFINE 3                                                       FCC0448   161
                                         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
                                         LD       DEFINE 1                                                       BDT        69
                                         ST       DEFINE 1                                                       BDT        70
                                         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
                                         LAST     DEFINE 1           "0 IF LAST EDGE OF A *PRED* GROUP           BDT        78
                                         RDL      DEFINE 1           REGISTER REDEFINITION LINK                  FCC0448   162
                                         EQV      DEFINE 1           DATA INTERFERENCE LINK                      FCC0448   163
                                                  DEFINE 3                                                       FCC0448   164
                                         PRED     DEFINE 18          INDEX TO *TXT* OF PREDECESSOR               BDT        81
                                         LST      DEFINE 18          LATE START TIME                             BDT        82
                                         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
                                         USES     DEFINE 9           USES COUNT                                  BDT        89
                                         INDX     DEFINE 15          ORDINAL TO SUCCESSOR LIST IN USES INDEX TBL BDT        90
                                         LST      DEFINE 15          LATE START TIME                             BDT        91
                                         NPRED    DEFINE 18          NUMBER OF UNISSUED PREDECESSORS             BDT        92
                                                                                                                 BDT        93
                                         PRIOR    DEQU   LST         PRIORITY ( NEGATIVE OF LATE START TIME )    BDT        94
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE     4
        INITIALIZATION                                                INIT
  
                                        **        LOCAL STORAGE                                                  BDT        96
                                                                                                                 BDT        97
                                                  USE    /TABLES/                                                BDT        98
             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  00000000000000000000     BDT      ENTRY.                                                         BDT       116
                                                  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  0306000005 +                      ZR     X6,BDT2     IF BDTA = 0   */ NOT JAM MODE               BDT       123
                          7211000200              SX1    X1+200B     L.TREE = L.TREE + 200B  */ FUDGE FACTOR     BDT       124
                                                                                                                 BDT       125
             5  5100000000 X             BDT2     ALLOC  TREE,X1     ALLOC( TREE , L.TREE )                      BDT       126
             6  7233777776                        SX3    X3-1                                                    BDT       127
                          5150000000 X            SA5    O.TXT                                                   BDT       128
             7  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
            10  63720                             SB7    X2          (B7) = O.TREE                               BDT       133
                     66211                        SB2    B1+B1       (B2) = 2                                    BDT       134
                          6140000004              SB4    4           (B4) = 4                                    BDT       135
                                                                                                                 BDT       136
                                        *         THE TEMPORARY TREE IS FORMED IN *TREE* STARTING AT THE END     BDT       137
                                        *         OF THE TABLE AND WORKING TOWARDS THE BEGINNING.                BDT       138
                                        *         (A7) HOLDS THE ADDRESS OF THE LAST EDGE ADDED TO IT FROM       BDT       139
                                        *         *FIL3* TO *FTL7*.  DURING FIL THE *IHINFO* TABLE IS SETUP AT   BDT       140
                                        *         THE BEGINNING OF *TREE*.                                       BDT       141
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      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
            11  5120000000 X             FIL      SA2    O.TREE                                                  BDT       147
                          43674                   MX6    60                                                      BDT       148
                               53620              SA6    X2          IH = O.TREE,  [IH] = -0                     BDT       149
            12  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
            13  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
            14  5120000006 C                      SA2    TREEL                                                   BDT       157
                          5130000000 C            SA3    BDTA                                                    BDT       158
            15  43700                             MX7    0                                                       BDT       159
                     5170000007 C                 SA7    TSTC        TSTC = 0                                    FCC1739X    5
                               53720              SA7    X2          T = TREEL;  [T] = 0                         BDT       160
            16  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
            17  76210                             SX2    B1                                                      BDT       169
                     20272                        LX2    D.TYP       FET = TY      */TY IV BM"S ONLY             FCC1695X    6
                          0313000026 +            NZ     X3,FIL2     IF BDTA " 0                                 FCC1695X    7
            20  5130000000 +                      SA3    SIOCALL                                                 FCC1695X    8
                          0313000026 +            NZ     X3,FIL2     IF SIOCALL " 0                              FCC1695X    9
            21  20254                             LX2    D.BMP-D.TYP FEL = BM      */ DONT LINK ACROSS TY IIIJPS FCC1695X   10
                     0400000026 +                 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
            22  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
            23  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
            24  12675                             BX6    X7+X5                                                   BDT       188
                     54661                        SA6    A6+B1       IH = IH + 1;  [IH] = IHINFO(LDST[DI],[R2])  BDT       189
                          0303000026 +            ZR     X3,FIL2     IF (ST[DI]&^L2[DI]) = 0                     BDT       190
            25  75742                             SX7    A4-B2                                                   BDT       191
                     55771                        SA7    A7-B1       T = T - 1;  [T] = R1                        BDT       192
                                                                                                                 BDT       193
            26  54444                    FIL2     SA4    A4+B4       DI = DI + 4                                 BDT       194
                     15741                        BX7    -X1*X4                                                  BDT       195
                          75645                   SX6    A4-B5                                                   BDT       196
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE     6
        FIL - FORM DATA INTERFERENCE LINKS                            FIL                 BDT 
  
                               22364              LX3    B6,X4                                                   BDT       197
            27  0317000022 +                      NZ     X7,FIL1     IF LDST[DI]                                 BDT       198
                          0323000026 +            PL     X3,FIL2     IF ^BM[DI]                                  BDT       199
            30  55542                             SA5    A4-B2       R1 = DI - 2                                 BDT       200
                     11324                        BX3    X2*X4                                                   BDT       201
                          0303000026 +            ZR     X3,FIL2     IF FEL[DI] = 0  */ JAM MODE & TY III BM     BDT       202
            31  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
            32  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
            33  0530000026 +                      NZ     "OC",FIL2   IF OC[R1] " 0                               BDT       210
                                                                                                                 BDT       211
                          64660                   SB6    A6          IHS = IH                                    BDT       212
                               76670              SX6    B7                                                      BDT       213
            34  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
                          0470000054 +            ZR     B7,CSP6     IF N.ST = 0   */ IF NO STORE PREDECESSORS   BDT       223
            35  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
            36  6130000072                        SB3    60-D.TYL                                                BDT       228
                          6170000030              SB7    T.SUCCP                                                 BDT       229
            37  0400000041 +                      EQ     CSP2                                                    BDT       230
                                                                                                                 BDT       231
            40  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
            41  0335000047 +             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
            42  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
            43  0334000040 +                      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
            44  23674                    CSP3     AX6    B7,X4                                                   BDT       249
                     37763                        IX7    X6-X3                                                   BDT       250
                          0307000041 +            ZR     X7,CSP2     IF SUCC[TJ] = R                             BDT       251
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE     7
        FIL - FORM DATA INTERFERENCE LINKS                            CSP                 BDT 
  
            45  55441                             SA4    A4-B1       TJ = TJ - 1                                 BDT       252
                     0324000044 +                 PL     X4,CSP3     IF ^BM[TJ]                                  BDT       253
                               66551              SB5    B5+B1       NSP = NSP + 1                               BDT       254
            46  0400000041 +                      EQ     CSP2                                                    BDT       255
                                                                                                                 BDT       256
                                        *         BOUNDARY MARKER ENCOUNTERED, SAVE *NSP* IN IT IF TYPE = IV     BDT       257
                                                                                                                 BDT       258
            47  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
            50  0306000052 +                      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
            51  0400000041 +                      EQ     CSP2                                                    BDT       266
                                                                                                                 BDT       267
            52  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
            53  12634                             BX6    X3+X4                                                   BDT       273
                     54640                        SA6    A4                                                      BDT       274
                          0315000041 +            NZ     X5,CSP2     IF [TI] " 0                                 BDT       275
                                                                                                                 BDT       276
            54  5110000006 C             CSP6     SA1    TREEL                     */ REINTIALIZE THE TREE       BDT       277
                          7170000000              SX7    0                                                       BDT       278
            55  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
            56  5110000000 X                      SA1    =XGRASRF                                                FCC0977    47
                          0301000074 +            ZR     X1,IRF5     IF GRASRF = 0 */ ^(IN LOOP & ADDR DIFF)     FCC0977    48
                                                                                                                 FCC0977    49
            57  43052                             MX0    -IH.RFL                                                 FCC0977    50
                     5110000000 +                 SA1    SIOCALL                                                 FCC0977    51
                               20044              LX0    IH.RFP                                                  FCC0977    52
            60  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
            61  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
            62  55552                    IRF1     SA5    A5-B2       IH = IH - 2                                 FCC0977    63
                     22655                        LX6    B5,X5                                                   FCC0977    64
                          0326000062 +            PL     X6,IRF1     IF ^SRF[IH]                                 FCC0977    65
            63  0305000074 +                      ZR     X5,IRF5     IF [IH] = 0   */ END OF *IHINFO*            FCC0977    66
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      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
            64  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
            65  55331                    IRF2     SA3    A3-B1       TJ = TJ - 1   */ SEARCH ORDERED PAIR LIST   FCC0977    74
                     13236                        BX2    X3-X6                                                   FCC0977    75
                          0312000065 +            NZ     X2,IRF2     IF [TJ] " KEY                               FCC0977    76
                                                                                                                 FCC0977    77
            66  64430                             SB4    A3                                                      FCC0977    78
                     65474                        SB4    A7-B4       J = T - TJ                                  FCC0977    79
                          0747000070 +            LT     B4,B7,IRF3  IF J < IRN                                  FCC0977    80
            67  66771                             SB7    B7+B1       IRN = IRN + 1                               FCC0977    81
            70  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
            71  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
            72  54640                             SA6    A4                                                      FCC0977    90
                     0311000062 +                 NZ     X1,IRF1     IF SIOCALL " 0  */ CALL FROM *RIO*          FCC0977    91
                                                                                                                 FCC0977    92
                               12626              BX6    X2+X6       RF[R2] = JR                                 FCC0977    93
            73  54660                             SA6    A6                                                      FCC0977    94
                     0400000062 +                 EQ     IRF1                                                    FCC0977    95
                                                                                                                 FCC0977    96
            74                           IRF5     BSS    0                                                       FCC0977    97
                                                  TRACE  IRF,RLIST                                               FCC0977    98
                                                  IF     DEF,/DEBUG/IRF,1                                        FCC0977    99
                                         IH-IRFX  SNAP   *O.TREE,*B6                                             FCC0977   100
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      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
            74  43052                             MX0    -IH.IHL                                                 BDT       285
                     56560                        SA5    B6          IH = IHS                                    BDT       286
                          6150000002              SB5    59-IH.BMP                                               BDT       287
            75  5110000000 C                      SA1    BDTA                                                    BDT       288
                          20125                   LX1    T.EQVLP     EQVB = SHIFT(BDTA,T.EQVLP)                  BDT       289
                                                                                                                 BDT       290
            76  55552                    FIL3     SA5    A5-B2       IH = IH - 2                                 BDT       291
                     22655                        LX6    B5,X5                                                   BDT       292
                          0305000110 +            ZR     X5,FIL6     IF [IH] = 0   */ IF TABLE TERMINATOR        BDT       293
            77  0336000076 +                      MI     X6,FIL3     IF BM[IH]                                   BDT       294
                          54450                   SA4    A5          J = IH                                      BDT       295
                               55351              SA3    A5-B1                                                   BDT       296
           100  20330                             LX3    T.SUCCP                                                 BDT       297
                     36213                        IX2    X1+X3                                                   BDT       298
                                                                                                                 BDT       299
           101  55442                    FIL4     SA4    A4-B2                                                   BDT       300
                     22354                        LX3    B5,X4                                                   BDT       301
                          0333000076 +            MI     X3,FIL3     IF BM[J]                                    BDT       302
           102  13645                             BX6    X4-X5       DIFF = XOR(IH,J)                            BDT       303
                                                  LX6    -IH.IHP                                                 BDT       304
                     15760                        BX7    -X0*X6                                                  BDT       305
                          0317000101 +            NZ     X7,FIL4     IF IH[DIFF] " 0                             BDT       306
           103  11345                             BX3    X4*X5                                                   BDT       307
                     20630                        LX6    IH.IHP-IH.RFP                                           BDT       308
                                                  LX3    59-IH.LDP                                               BDT       309
                          0333000101 +            MI     X3,FIL4     IF LD[IH] & LD[J]                           BDT       310
           104  15760                             BX7    -X0*X6                                                  BDT       311
                     55341                        SA3    A4-B1       R1[J]                                       BDT       312
                          0317000106 +            NZ     X7,FIL5     IF RF[DIFF] " 0                             BDT       313
           105  20622                             LX6    IH.RFP-IH.CAP                                           BDT       314
                     15760                        BX7    -X0*X6                                                  BDT       315
                          0317000101 +            NZ     X7,FIL4     IF CA[DIFF] " 0                             BDT       316
                                                                                                                 BDT       317
                                        *         THE MEMORY REFERENCES INTERFERE, FORM A LINK BETWEEN THEM      BDT       318
                                                                                                                 BDT       319
           106  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
           107  0636000101 +                      GE     B3,B6,FIL4  IF STORE ADDR \ LOWER LIMIT                 BDT       323
                                                                                                                 BDT       324
           110  5110000000 X             FIL6     SA1    O.TREE                    */ CHECK WORKING STORAGE      BDT       325
                                                  TREE   FIL                                                     BDT       326
                          5120000000 C            SA2    N.INST                                                  BDT       327
           111  36112                             IX1    X1+X2                                                   BDT       328
                     20201                        LX2    1                                                       BDT       329
                          5130000001 C            SA3    N.ST                                                    BDT       330
           112  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
           113  0331000114 +                      MI     X1,FIL8     IF TM < T     */ ENOUGH SPACE FOR REST      BDT       335
                                                                                                                 BDT       336
                          0400000445 +            EQ     GAS         REALLOCATE                                  BDT       337
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      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
           114  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
           115  5140000000 +                      SA4    SIOCALL                                                 FCC0514   306
                          6130000043              SB3    58-D.SZP                                                BDT       348
           116  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
           117  55552                    FIL9     SA5    A5-B2       I = I - 2                                   BDT       351
                     0305000144 +                 ZR     X5,FIL11    IF [I] = 0                                  BDT       352
                               22655              LX6    B5,X5                                                   BDT       353
           120  0336000117 +                      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
           121  22632                             LX6    B3,X2                                                   BDT       358
                     0326000117 +                 PL     X6,FIL9     IF SZ[DI] = 1 */ A 1 PARCEL INSTRCUTION     BDT       359
                                                  LX2    58-D.TYP                                                BDT       360
           122  0322000117 +                      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
           123  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
           124  0333000140 +                      MI     X3,FIL10C   IF BM[J]                                    FCC0514   310
                          0317000123 +            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
           125  12612                             BX6    X1+X2                                                   BDT       374
                     54620                        SA6    A2          SR[DI] = 1                                  BDT       375
                          0440000117 +            ZR     B4,FIL9     IF SIOCALL < 2                              FCC0514   311
           126  20530                             LX5    -IH.RFP                                                 FCC0514   312
                     73750                        SX7    X5                                                      FCC0514   313
                          0317000117 +            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
           127  55341                             SA3    A4-B1       R = [J-1]                                   FCC0514   319
                                                  LX4    59-IH.LDP                                               FCC0514   320
                     0334000130 +                 MI     X4,FIL10B   IF LD[J]                                    FCC0514   321
                               53337              SA3    B7+X3       R = RI[TXT+R]                               FCC0514   322
           130  55422                    FIL10B   SA4    A2-B2       R1 = DI - 2                                 FCC0514   323
                     73630                        SX6    X3                                                      FCC0514   324
                          73540                   SX5    X4                                                      FCC0514   325
                               37756              IX7    X5-X6                                                   FCC0514   326
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    11
        FIL - FORM DATA INTERFERENCE LINKS                            FIL8                BDT 
  
           131  0337000117 +                      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
           132  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
           133  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                                                  FCC0514   334
           134  7274775701                        SX7    X4-OC.TST-1S10                                          FCC0514   335
                          0317000117 +            NZ     X7,FIL9     IF OC[R1] " OC.TST                          FCC0514   336
           135  0303000117 +                      ZR     X3,FIL9     IF NBIP = 0   */ NO SIMILAR *IP*"S IN SEQ   FCC0514   337
                                                                                                                 FCC0514   338
                          5130000007 C            SA3    TSTC                                                    FCC0514   339
           136  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
           137  5063000000                        SA6    A3+                                                     FCC0514   344
                          0400000117 +            EQ     FIL9                                                    BDT       376
                                                                                                                 FCC0448   167
                                        *         CONTINUE SCAN IF J IS A CONDITIONAL JUMP OR *EOS*              FCC0715    13
                                                                                                                 FCC0514   346
           140  55341                    FIL10C   SA3    A4-B1                                                   FCC0514   347
                     0304000117 +                 ZR     X4,FIL9     IF [J] = 0                                  FCC0448   169
                               53336              SA3    B6+X3       DJ = BASE + [I-1]                           FCC0448   170
           141  20301                             LX3    59-D.TYP                                                FCC0448   171
                     0323000123 +                 PL     X3,FIL10    IF TYPE[DJ] = III  */ JPX OR JIN            FCC0448   172
                               55332              SA3    A3-B2       R1J = DJ - 2                                FCC0715    14
           142  21360                             AX3    R1.OCP                                                  FCC0715    15
                     7263775775                   SX6    X3-OC.EOS-2000B                                         FCC0715    16
           143  0306000123 +                      ZR     X6,FIL10    IF OC[R1J] = OC.EOS                         FCC0715    17
                          0400000117 +            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
           144  54570                    FIL11    SA5    A7          TI = T                                      BDT       382
                     20137                        LX1    D.FTP-D.SRP                                             BDT       383
                                   0              ERRNZ  D.EQVP-D.FTP                                            FCC0514   348
                          0305000150 +            ZR     X5,IPL      IF [TI] = 0   */ NO EQUIV LINKS             FCC0514   349
                                                                                                                 BDT       385
           145  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
           146  0315000145 +                      NZ     X5,FIL12    IF [TI] " 0                                 BDT       390
                                                                                                                 BDT       391
                          5130000000 C            SA3    BDTA                                                    BDT       392
           147  7263000000                        SX6    X3+                                                     BDT       393
                          5160000001 C            SA6    EQVL        EQVL = BDTA   */ " 0 IF JAM AND EQV LINKS   BDT       394
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      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
           150  5110000007 C             IPL      SA1    TSTC                                                    FCC0514   356
                          0301000166 +            ZR     X1,FOL      IF TSTC = 0   */ NO INCREMENT TST"S         FCC0514   357
                                                                                                                 FCC0514   358
           151  5120000000 X                      SA2    =XO.TET                                                 FCC0514   359
                          5130000000 X            SA3    =XO.IIT                                                 FCC0514   360
           152  5140000000 X                      SA4    O.TREE                                                  FCC0514   361
                          63520                   SB5    X2                        (B5) = TET                    FCC0514   362
                               63630              SB6    X3                        (B6) = IIT                    FCC0514   363
           153  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
           154  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
           155  53235                             SA2    B5+X3       TETW = TET(CA[R2W])                         FCC0514   371
                     20230                        LX2    -T.ITIP                                                 FCC0514   372
                          73320                   SX3    X2          J = ITI[TETW]                               FCC0514   373
           156  0303000165 +                      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
           157  20330                             LX3    -PI.CNP     N = CN[PIW]   */ CLASS NUMBER               FCC0514   378
                     73650                        SX6    X5          R = RI[R1W]   */ RI OF INCREMENT            FCC0514   379
                          0322000161 +            PL     X2,IPL2     IF ^BIP[TETW]                               FCC0514   380
                                                                                                                 FCC0514   381
                                        *         BASE *IP* INCR, ALWAYS BEFORE ^BASE INCR BECAUSE OF *GPO*.     FCC0514   382
                                                                                                                 FCC0514   383
           160  53637                             SA6    B7+X3       TREE(N)  = R  */ SAVE *RI* OF INCR          FCC0514   384
                     0400000165 +                 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
           161  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
           162  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
           163  15730                             BX7    -X0*X3                                                  FCC1518X   29
                     0307000165 +                 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
           164  54640                             SA6    A4                                                      FCC1518X   32
                                                                                                                 FCC0514   402
           165  21444                    IPL3     AX4    36                                                      FCC0514   403
                     73140                        SX1    X4          I = SHIFT(LIW,-36)  */ ADVANCE TO NEXT      FCC0514   404
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    13
        FIL - FORM DATA INTERFERENCE LINKS                            IPL                 BDT 
  
                          0311000154 +            NZ     X1,IPL1     IF I " 0      */ NOT END OF CHAIN           FCC0514   405
                                                                                                                 FCC0514   406
                                                  TRACE  IPL,RLIST                                               FCC0514   407
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    14
        FOL - FORM OPERAND LINKS                                      FOL                 BDT 
  
                                        **        FOL - FORM OPERAND LINKS, FORM *BMC* ( INST LINKED TO *EOQ* )  BDT       396
                                                                                                                 BDT       397
           166  43055                    FOL      MX0    -R1.RIL+1                                               BDT       398
                     6140000004                   SB4    OC.RS                                                   BDT       399
                               20001              LX0    1           (X0) = R-NUM EXTRACTION MASK ( A0 => 0 )    BDT       400
           167  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
           170  74670                             SX6    A7                                                      BDT       405
                     5160000005 C                 SA6    TF          TF = T        */ LWA + 1 OF OPERAND LINKS   BDT       406
                               43102              MX1    D.TYL                                                   BDT       407
           171  5130000000 X                      SA3    O.TREE                                                  BDT       408
                          43600                   MX6    0                                                       BDT       409
                               53630              SA6    X3          BMC = O.TREE;  [BMC] = 0                    BDT       410
           172  53030                             SA0    X3                                                      BDT       411
                     0400000174 +                 EQ     FOL2                                                    BDT       412
                                                                                                                 BDT       413
                                        *         SAVE ADDR OF *SINK* INSTRUCTION ON *BMC* LIST                  BDT       414
                                                                                                                 BDT       415
           173  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
           174  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
           175  20630                             LX6    T.SUCCP                                                 BDT       428
                     0317000204 +                 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
           176  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
           177  0303000200 +                      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
           200  37323                    FOL3     IX3    X2-X3                                                   BDT       441
                     20422                        LX4    1+D.TYP-D.^DP                                           BDT       442
                          0302000202 +            ZR     X2,FOL4     IF RJ[R1] = 0                               BDT       443
           201  0303000202 +                      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
           202  0324000174 +             FOL4     PL     X4,FOL2     IF DEF[DI]                                  BDT       447
                          26335                   UX3    "OC",X5                                                 BDT       448
                               15550              BX5    -X0*X5                                                  BDT       449
           203  36765                             IX7    X6+X5                                                   BDT       450
                     55771                        SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RI[R1])           BDT       451
                          0400000173 +            EQ     FOL1                                                    BDT       452
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    15
        FOL - FORM OPERAND LINKS                                      FOL                 BDT 
  
                                                                                                                 BDT       453
           204  26335                    FOL5     UX3    "OC",X5                                                 BDT       454
                     36744                        IX7    X4+X4                                                   BDT       455
                          0334000216 +            MI     X4,FOL8     IF TYPE[DI] = III ! IV                      BDT       456
                                                                                                                 BDT       457
                                        **        TYPE II PROCESSING ( S, FMA, CLR , DEF, RS )                   BDT       458
                                                                                                                 BDT       459
           205  20435                             LX4    1+D.TYP-D.PIP                                           BDT       460
                     0334000207 +                 MI     X4,FOL5A    IF PI[DI]     */ RS OR DEF                  BDT       461
                               76260              SX2    B6                                                      BDT       462
           206  36762                             IX7    X6+X2                                                   BDT       463
                     55771                        SA7    A7-B1       T = T - 1;  [T] = TREE(LA,ZPA)              BDT       464
                          0400000174 +            EQ     FOL2                                                    BDT       465
                                                                                                                 BDT       466
           207  15350                    FOL5A    BX3    -X0*X5                                                  BDT       467
                     0434000211 +                 EQ     "OC",B4,FOL6      IF OC[R1] = OC.RS                     BDT       468
                               65645              SB6    A4-B5       ZPA = LA                                    BDT       469
           210  0400000173 +                      EQ     FOL1                                                    BDT       470
                                                                                                                 BDT       471
                                        *         PROCESS REGISTER STORE                                         BDT       472
                                                                                                                 BDT       473
           211  20535                    FOL6     LX5    59-R1.INP                                               BDT       474
                     66771                        SB7    B7+B1       N.RS = N.RS + 1                             BDT       475
                          0325000214 +            PL     X5,FOL7     IF IN[R1] = 0                               BDT       476
                                                                                                                 BDT       477
           212  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
           213  74670                             SX6    A7                                                      BDT       481
                     54641                        SA6    A4+B1       [DI+1] = T                                  BDT       482
                          0400000173 +            EQ     FOL1                                                    BDT       483
                                                                                                                 BDT       484
           214  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
           215  0400000173 +                      EQ     FOL1                                                    BDT       489
                                                                                                                 BDT       490
                                        *         PROCESS TYPE III / IV INSTRUCTIONS                             BDT       491
                                                                                                                 BDT       492
           216  0337000224 +             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
           217  15550                             BX5    -X0*X5      RI = RI[R1]                                 BDT       497
                     20330                        LX3    -IH.RFP                                                 BDT       498
                          0334000222 +            MI     X4,FOL9     IF ^D[DI]                                   BDT       499
                                                                                                                 BDT       500
           220  15330                             BX3    -X0*X3      RN = (RF[R2]/2)*2                           BDT       501
                     0313000221 +                 NZ     X3,FOL8A    IF RN " 0                                   BDT       502
                               76360              SX3    B6          RN = ZPA                                    BDT       503
           221  36763                    FOL8A    IX7    X6+X3                                                   BDT       504
                     55771                        SA7    A7-B1       T = T + 1;  [T] = TREE(LA,RN)               BDT       505
                          0400000174 +            EQ     FOL2                                                    BDT       506
                                                                                                                 BDT       507
           222  15330                    FOL9     BX3    -X0*X3                                                  BDT       508
                     36765                        IX7    X6+X5                                                   BDT       509
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    16
        FOL - FORM OPERAND LINKS                                      FOL                 BDT 
  
                          20452                   LX4    1+D.^DP+58-D.TYP                                        BDT       510
                               55771              SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RI[R1])           BDT       511
           223  0303000224 +                      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
           224  20421                    FOL10    LX4    1+D.TYP-D.BMP                                           BDT       516
                     0324000173 +                 PL     X4,FOL1     IF ^BM[DI]                                  BDT       517
                               65645              SB6    A4-B5       ZPA = LA                                    BDT       518
           225  0530000173 +                      NZ     "OC",FOL1   IF OC[R1] " 0                               BDT       519
                                                                                                                 BDT       520
                                                  TREE   FOL                                                     BDT       521
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      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
           226  63310                             SB3    X1                                                      FCC1739X    6
                     64303                        SB3    A0+B3                                                   BDT       530
                          65373                   SB3    A7-B3                                                   BDT       531
                               77123              SX1    B2-B3                                                   BDT       532
           227  0321000445 +                      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
           230  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
           231  10633                             BX6    X3                                                      BDT       540
                     5160000003 C                 SA6    LBM         LBM = [BMC]   */ DI OF LAST *BM*            BDT       541
                               43427              MX4    23                                                      BDT       542
           232  43600                             MX6    0                                                       BDT       543
                     0470000246 +                 ZR     B7,FTL3     IF N.RS = 0                                 BDT       544
                                                                                                                 BDT       545
           233  5130000000 C                      SA3    BDTA                                                    BDT       546
                          5160000010 C            SA6    REGS                                                    BDT       547
           234  20401                   +         LX4    1           FOR I = 0 TO 23;  REGS(I) = 0               BDT       548
                     54661                        SA6    A6+B1                                                   BDT       549
                          0334000234 +            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
           235  0303000246 +                      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
           236  6170000070                        SB7    OC.JIN                                                  FCC0448   178
                          0400000240 +            EQ     FTL1                                                    BDT       560
                                                                                                                 BDT       561
           237  63340                    FTL0     SB3    X4                                                      BDT       562
                     77635                        SX6    B3-B5       JLA = [I] - BASE                            BDT       563
                          20630                   LX6    T.SUCCP                                                 BDT       564
                                                                                                                 BDT       565
           240  55441                    FTL1     SA4    A4-B1       I = I - 1                                   BDT       566
                     0304000246 +                 ZR     X4,FTL3     IF [I] = 0                                  BDT       567
                               26534              UX5    "OC",X4                                                 BDT       568
           241  0637000237 +                      GE     "OC",B7,FTL0      IF OC[I] \ OC.JIN                     BDT       569
                          0534000240 +            NE     "OC",B4,FTL1      IF OC[I] " OC.RS                      BDT       570
                                                                                                                 BDT       571
           242  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
           243  0333000240 +                      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
           244  0400000240 +                      EQ     FTL1                                                    BDT       579
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    18
        FTL - FORM TERMINAL ( END OF SEQ ) LINKS                      FTL                 BDT 
  
                                        *         FORM THE BOUNDARY MARKER LINKS                                 BDT       581
                                                                                                                 BDT       582
           245  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
           246  55551                    FTL3     SA5    A5-B1       II = II - 1                                 BDT       587
                     6035000040                   SB3    A5+40B                                                  FCC1700X    5
                               65373              SB3    A7-B3                                                   FCC1700X    6
           247  0730000444 +                      MI     B3,GAS0     IF II + 40 > T  */ POSSIBLE TABLE OVERLAP   FCC1700X    7
                          53450                   SA4    X5          DI = [II]                                   BDT       588
           250  0305000312 +                      ZR     X5,FTL6     IF DI = 0                                   BDT       589
                          26335                   UX3    "OC",X5                                                 BDT       590
                               75645              SX6    A4-B5       LINK = DI - BASE                            BDT       591
           251  36716                             IX7    X1+X6                                                   BDT       592
                     20421                        LX4    59-D.BMP                                                BDT       593
                          55771                   SA7    A7-B1       T = T - 1;  [T] = TREE(LA,LINK)             BDT       594
           252  0334000245 +                      MI     X4,FTL2     IF BM[DI]                                   BDT       595
                          54241                   SA2    A4+B1       LW = [DI+1]                                 FCC0514   409
           253  0434000271 +                      EQ     "OC",B4,FTL3C     IF OC[R1] = OC.RS                     FCC0514   410
                          0302000246 +            ZR     X2,FTL3     IF LW = 0     */ *ST* NOT A REDEF           FCC0514   411
                                                                                                                 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
           254  55342                             SA3    A4-B2       R1 = DI - 2                                 FCC0514   417
                     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
           255  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
           256  0302000257 +                      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
           257  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
           260  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
           261  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
           262  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
           263  63377                             SB3    X7+B7                                                   FCC0715    18
                     0603000246 +                 LE     B3,FTL3     IF SUCC[TL] @ RD  */ END OF SEARCH          FCC0715    19
                               13357              BX3    X5-X7                                                   FCC0514   446
           264  0312000262 +                      NZ     X2,FTL3A    IF PRED[TL] " RD  */ NOT A USE OF *RD*      FCC0514   447
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    19
        FTL - FORM TERMINAL ( END OF SEQ ) LINKS                      FTL                 BDT 
  
                          0303000262 +            ZR     X3,FTL3A    IF SUCC[TL] = R  */ DONT FORM LINKS TO SELF FCC0514   448
           265  63370                             SB3    X7                                                      FCC0514   449
                     0436000262 +                 EQ     B3,B6,FTL3A IF SUCC[TL] = RD2  */ NO LINK BACK TO INCR  FCC0514   450
                                                                                                                 FCC0514   451
                               12767              BX7    X6+X7                                                   FCC0514   452
           266  55771                             SA7    A7-B1       T = T - 1;  [T] = TREE(RDL,R,SUCC[TL])      FCC0514   453
                     0460000262 +                 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
           267  13775                             BX7    X7-X5                                                   FCC1518X   38
                     76260                        SX2    B6                                                      FCC1518X   39
                          12727                   BX7    X2+X7                                                   FCC1518X   40
                               20730              LX7    T.SUCCP                                                 FCC1518X   41
           270  55771                             SA7    A7-B1       T = T - 1;  [T] = TREE(RDL,RD2,SUCC[TL])    FCC1518X   42
                     0400000262 +                 EQ     FTL3A                                                   FCC0514   454
  
                                        *         REGISTER STORE PROCESSING                                      BDT       598
                                                                                                                 BDT       599
           271  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
           272  15732                             BX7    -X2*X3      REGNO = SOREG[R1]                           BDT       604
                                                                                                                 BDT       613
           273  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
           274  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
           275  73440                             SX4    X4                                                      BDT       621
                     0304000300 +                 ZR     X4,FTL4     IF RF[R2] = 0                               BDT       622
                               10655              BX6    X5          LINK = R                                    BDT       623
           276  73540                             SX5    X4          R = RF[R2]                                  BDT       624
                     5120000005 C                 SA2    TF          TA = TF                                     BDT       625
           277  0400000303 +                      EQ     FTL4A                                                   BDT       626
                                                                                                                 BDT       627
           300  0303000246 +             FTL4     ZR     X3,FTL3     IF L = 0      */ NO PREVIOUS *RS* INTO REGN BDT       628
                          7263777773              SX6    X3-4        LINK = L - 4                                BDT       629
           301  20330                             LX3    T.SUCCP                                                 BDT       630
                     37731                        IX7    X3-X1                                                   BDT       631
                          0337000303 +            MI     X7,FTL4A    IF L < LA     */ LAST RS IN THIS BLOCK      BDT       632
                                                                                                                 BDT       633
           302  55441                             SA4    A4-B1       R1 = R2 - 1                                 BDT       634
                     20445                        LX4    59-R1.SOP-SO.LKP                                        BDT       635
                          0334000246 +            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
           303  53220                    FTL4A    SA2    X2                                                      BDT       641
                     5130000000 C                 SA3    BDTA                                                    FCC0448   181
                               14555              BX5    -X5                                                     BDT       642
           304  20630                             LX6    T.SUCCP           (X6) = LINK                           BDT       643
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    20
        FTL - FORM TERMINAL ( END OF SEQ ) LINKS                      FTL                 BDT 
  
                     63750                        SB7    X5                (B7) = R                              BDT       644
                          20326                   LX3    T.RDLP                                                  FCC0448   182
                               12663              BX6    X6+X3       EQVB = SHIFT(BDTA,T.RDLP)                   FCC0448   183
           305  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
           306  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
           307  0307000246 +                      ZR     X7,FTL3     IF SUCC[TA] = LINK  */ END OF SEARCH        BDT       654
                          0313000306 +            NZ     X3,FTL5     IF PRED[TA] " R     */ IF NOT A USE         BDT       655
           310  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
           311  0400000306 +                      EQ     FTL5                                                    BDT       659
                                                                                                                 BDT       660
           312  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
           313  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
           314  0667000445 +                      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
                          5120000006 C            SA2    TREEL                                                   BDT       676
           315  5130000001 C                      SA3    EQVL                                                    BDT       677
                          74600                   SX6    A0                                                      BDT       678
                               74770              SX7    A7                                                      BDT       679
           316  5160000002 C                      SA6    FBM                                                     BDT       680
                          5170000004 C            SA7    FTREE       FTREE = T                                   BDT       681
           317  37127                             IX1    X2-X7       LEN = TREEL - FTREE                         BDT       682
                     0313000322 +                 NZ     X3,FTL8     IF EQVL " 0                                 BDT       683
           320  0100000000 X                      CALL   SHL         SORT( TREE , [SUCC,PRED] )                  BDT       684
           321  0400000324 +                      EQ     FTL10                                                   BDT       685
                                                                                                                 BDT       686
                                        *         JAM MODE AND EQUIV LINKS, USE MASK SORT                        BDT       687
                                                                                                                 BDT       688
           322  43072                    FTL8     MX0    -2                                                      FCC0448   186
                     66600                        SB6    B0                                                      BDT       690
                          43500                   MX5    0                                                       BDT       691
                               20072              LX0    T.EQVP                                                  BDT       692
           323  0100000000 X                      CALL   SST         SORT( TREE , [SUCC,PRED] )                  BDT       693
                                                                                                                 FCC0514   463
           324                           FTL10    BSS    0                                                       FCC0514   464
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    21
        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
           324  5110000004 C                      SA1    FTREE                                                   BDT       700
                          5130000000 X            SA3    O.TREE                                                  BDT       701
           325  5140000002 C                      SA4    FBM                                                     BDT       702
                          5150000000 X            SA5    L.TXT                                                   BDT       703
           326  7264000010                        SX6    X4+8                                                    BDT       704
                          43700                   MX7    0                                                       BDT       705
                               37665              IX6    X6-X5                                                   BDT       706
           327  0304000330 +                      ZR     X4,FJL      IF FBM = 0    */ NO BOUNDARY MARKERS        BDT       707
                          0316000332 +            NZ     X6,FJL1     IF FBM+8 < L.TXT  */ SEQ HAS AN INTERIOR JP BDT       708
                                                                                                                 BDT       709
                                        *         NO JUMPS                                                       BDT       710
                                                                                                                 BDT       711
           330  10611                    FJL      BX6    X1                                                      BDT       712
                     54630                        SA6    A3          O.TREE = FTREE                              BDT       713
                          5271777776              SA7    X1-1        [FTREE-1] = 0                               BDT       714
           331  0400000351 +                      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
           332  5251777776               FJL1     SA5    X1-1        TI = FTREE - 1                              BDT       720
                          5120000000 X            SA2    O.TXT                                                   BDT       721
           333  43052                             MX0    -T.SUCCL                                                BDT       722
                     63740                        SB7    X4          JPL = FBM                                   BDT       723
                          6252000002              SB5    X2+2        BASE = O.TXT + 2                            BDT       724
           334  6160000044                        SB6    60-T.SUCCP                                              BDT       725
                          20030                   LX0    T.SUCCP                                                 BDT       726
                               53730              SA7    X3          TS = O.TREE;  [TS] = 0                      BDT       727
           335  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
           336  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
           337  54771                             SA7    A7+B1       TS = TS + 1;  [TS] = [TI]                   BDT       737
                     0673000336 +                 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
           340  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
           341  63250                    FJL4     SB2    X5                                                      FCC0715A    8
                     0732000342 +                 GT     B2,B3,FJL4A IF PRED[TI] > R  */ A REDEFINITION LINK     FCC0715A    9
                               63450              SB4    X5          M = PRED[TI]                                FCC0715A   10
           342  5055000001               FJL4A    SA5    A5+1        TI = TI + 1                                 FCC0715A   11
                          13465                   BX4    X6-X5                                                   BDT       750
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    22
        FJL - FORM JUMP LINKS                                         FJL                 BDT 
  
                               22705              LX7    X5                                                      BDT       751
           343  15340                             BX3    -X0*X4                                                  BDT       752
                     54771                        SA7    A7+B1       TS = TS + 1;  [TS] = [TI]                   BDT       753
                          0303000341 +            ZR     X3,FJL4     IF SUCC[TI] = R                             BDT       754
                                                                                                                 BDT       755
           344  7137000000                        SX3    B7+                                                     BDT       756
                          56253                   SA2    B5+B3       DI = BASE + R                               BDT       757
                               36663              IX6    X6+X3                                                   BDT       758
           345  0647000346 +                      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
           346  20221                    FJL5     LX2    59-D.BMP                                                BDT       763
                     0322000340 +                 PL     X2,FJL3     IF ^BM[DI]                                  BDT       764
                               66730              SB7    B3          JPL = R                                     BDT       765
           347  0315000340 +                      NZ     X5,FJL3     IF [TI] " 0                                 BDT       766
                                                                                                                 BDT       767
                          74670                   SX6    A7          TREEL = TS                                  BDT       768
           350  5160000006 C                      SA6    TREEL                                                   BDT       769
                                                                                                                 BDT       770
                                                  IF     DEF,/DEBUG/FJL,1                                        BDT       771
                                         TREE-FJL SNAP   *O.TREEL,*TREEL                                         FEAT155F  263
                                                                                                                 BDT       773
           351  5110000000 +             FJL6     SA1    SIOCALL                                                 BDT       774
                          0301000355 +            ZR     X1,CIP      IF SIOCALL = 0                              BDT       775
                                                                                                                 BDT       776
                                        *         BDT CALLED FROM *RIO*, SET *TREE* LENGTH AND EXIT              BDT       777
                                                                                                                 BDT       778
           352  5120000000 X                      SA2    O.TREE                                                  BDT       779
                          5130000006 C            SA3    TREEL                                                   BDT       780
           353  37632                             IX6    X3-X2                                                   BDT       781
                     5160000000 X                 SA6    L.TREE      L.TREE = TREEL - O.TREE                     BDT       782
                               43700              MX7    0                                                       BDT       783
           354  54710                             SA7    A1          SIOCALL = 0                                 BDT       784
                     0400000001 +                 EQ     BDT                                                     BDT       785
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    23
        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
           355  43067                    CIP      MX0    -D.FTL                                                  BDT       795
                     5110000000 C                 SA1    BDTA                                                    BDT       796
                               20065              LX0    D.FTP                                                   BDT       797
           356  5140000000 X                      SA4    O.TXT                                                   BDT       798
                          6140777734              SB4    I.PRIORP-D.FTP                                          BDT       799
           357  5204000003                        SA0    X4+3        BASE = O.TXT + 3                            BDT       800
                          0311000404 +            NZ     X1,CIP6     IF BDTA " 0   */ JAM MODE                   BDT       801
                                                                                                                 BDT       802
           360  5130000006 C             CIP1     SA3    TREEL                                                   BDT       803
                          5071000000              SA7    A1+         LBM = JPA                                   BDT       804
           361  5253777776                        SA5    X3-1        TI = TREEL - 1                              BDT       805
                          43163                   MX1    -D.USESL                                                BDT       806
                                                  LX1    D.USESP                                                 BDT       807
           362  6170000044                        SB7    60-T.SUCCP                                              BDT       808
                          63650                   SB6    X5          P = PRED[TI]                                BDT       809
                               20544              LX5    -T.SUCCP                                                BDT       810
           363  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
           364  55241                             SA2    A4-B1       DI = PI - 1   */ FT[*EOQ*] = 1              BDT       815
                                                                                                                 BDT       816
                                        *         CALCULATE TIME TO REACH THIS INSTRUCTION                       BDT       817
                                                                                                                 BDT       818
           365  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
           366  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
           367  63230                             SB2    X3                                                      BDT       830
                     0324000370 +                 PL     X4,CIP4     PRIOR[PTI] = MAX( PRIOR[PTI] , TOTIME )     BDT       831
                               54730              SA7    A3                                                      BDT       832
           370  54306                    CIP4     SA3    A0+B6       PTI = BASE + P                              BDT       833
                     0425000366 +                 EQ     B2,B5,CIP3  IF SUCC[TI] = R                             BDT       834
                                                                                                                 BDT       835
                                        *         SET PRIORITY INFO IN LAST WORD OF INSTRUCTION                  BDT       836
                                                                                                                 BDT       837
                               20660              LX6    I.USESP-D.USESP                                         BDT       838
           371  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
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    24
        CIP - CALCULATE INSTRUCTION PRIORITIES                        CIP                 BDT 
  
                                                                                                                 BDT       844
           372  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
           373  0315000365 +                      NZ     X5,CIP2     IF [TI] " 0                                 BDT       849
                          10744                   BX7    X4                                                      BDT       850
                               21722              AX7    I.PRIORP                                                BDT       851
           374  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
           375  5110000000 C                      SA1    N.INST                                                  BDT       858
                          6140000004              SB4    4                                                       BDT       859
           376  6221777776                        SB2    X1-1        I = N - 1                                   BDT       860
                          54444                   SA4    A4+B4       LI = BASE + 4                               BDT       861
                               20022              LX0    I.PRIORP                                                BDT       862
           377  6150000004                        SB5    OC.RS                                                   FCC0641    81
                          15540                   BX5    -X0*X4      PR = PRIOR[LI]                              FCC0641    82
                                                                                                                 FCC0641    83
           400  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
           401  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
           402  55644                             SA6    A4-B4                                                   FCC0641    92
                     0535000403 +                 NE     B3,B5,CIP5A IF OC[R1] " OC.RS                           FCC0641    93
                               10577              BX5    X7          PR = SEQTIME  */ FORCE LST = 0              FCC0641    94
           403  0520000400 +             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
                                                  RJ     =XDMPTREE   SNAP THE DEPENDENCY TREE                    BDT       885
                                                  RJ     =XRESET=                                                FEAT155F  264
                                         DBG      ENDIF                                                          BDT       887
                                                                                                                 BDT       888
                          0400000424 +            EQ     SIT                                                     BDT       889
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    25
        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
           404  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
           405  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
           406  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
           407  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
           410  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
           411  0304000410 +                      ZR     X4,CIP7     IF [TI] = TL  */ DUP EDGE                   BDT       917
                                                                                                                 BDT       918
                          36707                   IX7    X0+X7                                                   BDT       919
                               21430              AX4    T.SUCCP                                                 BDT       920
           412  54771                             SA7    A7+B1       UI = UI + 1;  [UI] = SIT(PRED[TL],PR,SUCC[T BDT       921
                     0304000410 +                 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
           413  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
           414  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
           415  54631                             SA6    A3+B1       LW = DI + 1                                 BDT       936
                     0315000410 +                 NZ     X5,CIP7     IF [TI] " 0                                 BDT       937
                                                                                                                 BDT       938
                               10600              BX6    X0                                                      BDT       939
           416  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
           417  5160000006 C                      SA6    TREEL       TREEL = UI                                  BDT       944
                          75177                   SX1    A7-B7       L.TREE = UI - O.TREE                        BDT       945
                               10711              BX7    X1                                                      BDT       946
           420  5130000001 C                      SA3    EQVL                                                    BDT       947
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    26
        CIP - CALCULATE INSTRUCTION PRIORITIES                        CIP-JAM             BDT 
  
                          0303000432 +            ZR     X3,SIT1A    IF EQVL = 0                                 BDT       948
                                                                                                                 BDT       949
           421  43072                             MX0    -2                                                      FCC0448   187
                     66600                        SB6    B0                                                      BDT       951
                          43500                   MX5    0                                                       BDT       952
                               20071              LX0    U.EQVP                                                  BDT       953
           422  5170000000 X                      SA7    L.TREE                                                  BDT       954
                          0100000000 X            CALL   SST         SORT( TREE , [PRED,SUCC] )                  BDT       955
           423  0400000433 +                      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
           424  5110000006 C             SIT      SA1    TREEL                                                   BDT       961
                          5251777776              SA5    X1-1        UI = TREEL - 1                              BDT       962
           425  43055                             MX0    -I.LSTL                                                 BDT       963
                     64400                        SB4    A0          BASE = O.TXT + 3                            BDT       964
                          20022                   LX0    I.LSTP                                                  BDT       965
           426  6150000044                        SB5    60-T.SUCCP                                              BDT       966
                          22655                   LX6    B5,X5                                                   BDT       967
                                                                                                                 BDT       968
           427  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
           430  22655                             LX6    B5,X5                                                   BDT       974
                     54751                        SA7    A5+B1                                                   BDT       975
                          0315000427 +            NZ     X5,SIT1     IF [UI] " 0                                 BDT       976
                                                                                                                 BDT       977
           431  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
           432  5170000000 X             SIT1A    SA7    L.TREE                                                  BDT       982
                          0100000000 X            CALL   SHL         SORT( TREE , [PRED,LST[SUCC],SUCC] )        BDT       983
  
  
                                        *         NOW SETUP THE USES INDEX INFO IN THE LINK WORD OF THE INST     BDT       985
                                                                                                                 BDT       986
           433  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
           434  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
           435  0400000437 +                      EQ     SIT3                                                    BDT       995
                                                                                                                 BDT       996
           436  12623                    SIT2     BX6    X2+X3       [LW] = UINFO(USES,INDX,LST,NPRED)           BDT       997
                     5063000000                   SA6    A3+                                                     BDT       998
                                                                                                                 BDT       999
           437  22405                    SIT3     LX4    X5          UL = UI                                     BDT      1000
                     54551                        SA5    A5+B1       UI = UI + 1                                 BDT      1001
                          13645                   BX6    X4-X5                                                   BDT      1002
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    27
        CIP - CALCULATE INSTRUCTION PRIORITIES                        SIT                 BDT 
  
                               15761              BX7    -X1*X6                                                  BDT      1003
           440  0307000437 +                      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
           441  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
           442  55751                             SA7    A5-B1                                                   BDT      1012
                     0315000436 +                 NZ     X5,SIT2     IF [UI] " 0                                 BDT      1013
                               12623              BX6    X2+X3                                                   BDT      1014
           443  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
                                                  CALL   RESET=                                                  BDT      1026
                                         DBG      ENDIF                                                          BDT      1027
                     0400000001 +                 EQ     BDT                                                     BDT      1028
                                                                                                                 BDT      1029
                                         .T       IFNE   TEST,0                                                  FCC1056    46
                                                  USE    DEBUG                                                   FCC1056    47
                                         DTSA     CON    DTSB,0,L.TREE                                           BDT      1032
                                                  BSSZ   2                                                       BDT      1033
                                         DTSB     BSSZ   1           SNAP COUNT                                  BDT      1034
                                                  USE    0                                                       BDT      1035
                                         .T       ENDIF                                                          FCC1056    48
  
  
  
                                        **        GAS - GET ADDITIONAL SPACE TO BUILD THE TREE AND RESTART       BDT      1038
                                        *         NOTE - THIS SUBROUTINE SHOULD ALMOST NEVER BE CALLED IF THE    BDT      1039
                                        *         INITIAL STORAGE REQUEST IS SUFFICIENT.                         BDT      1040
                                        *         ENTRY  (X1) = MIN SPACE NEEDED                                 BDT      1041
                                        *         EXIT   *TREE* SPACE INCREASED, POINTERS ADJUSTED, TO *FIL*     BDT      1042
                                                                                                                 BDT      1043
           444  7110000140               GAS0     SX1    140B                                                    FCC1700X    8
                                                                                                                 FCC1700X    9
           445  7211000040               GAS      SX1    X1+40B                                                  BDT      1044
                          5100000000 X            ALLOC  TREE,X1     GET SPACE                                   BDT      1045
           447  5150000000 X                      SA5    O.TXT                                                   BDT      1046
                          7233777776              SX3    X3-1                                                    BDT      1047
           450  36623                             IX6    X2+X3                                                   BDT      1048
                     5160000006 C                 SA6    TREEL                                                   BDT      1049
                               53050              SA0    X5          (A0) = O.TXT                                BDT      1050
           451  66211                             SB2    B1+B1       (B2) = 2                                    BDT      1051
                     66422                        SB4    B2+B2       (B4) = 4                                    BDT      1052
                          7273707777              SX7    X3-70000B                                               FCC2020    16
           452  0337000011 +                      MI     X7,FIL      IF L.TREE < 70K                             FCC2020    17
                                                                                                                 FCC2020    18
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    28
        CIP - CALCULATE INSTRUCTION PRIORITIES                        GAS                 BDT 
  
                          6160000455 +            LISTL  BDTM,L.BDTM LIST ERROR MESSAGE                          FCC2020    19
           454  0400000000 X                      EQ     =XPS2ABT                                                FCC2020    20
                                                                                                                 FCC2020    21
           455  55475520221707220115     BDTM     DIS    ,/ * PROGRAM CONTAINS SEQUENCES THAT ARE TOO LONG, CANN FCC2020    22
                                        ,OT BE COMPILED /                                                        FCC2020    23
                                   7     L.BDTM   EQU    *-BDTM                                                  FCC2020    24
                                                                                                                 BDT      1054
                                                  QUAL                                                           BDT      1055
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    29
        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
                                         SUCC     DEFINE 18                                                      BDT      1075
                                                  DEFINE 6                                                       BDT      1076
                                         LVL      DEFINE 18          LEVEL OF PRED  ( NODE LABEL OR WEIGHT )     BDT      1077
                                         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
                                         MI       DEFINE 1           MARKED INSTRCUTION ( VISITED )              BDT      1083
                                         II       DEFINE 1           ISSUED INSTRUCTION                          BDT      1084
                                         RDST     DEFINE 1           =1 IF A REDEF ST BELOW INST IN THE STACK    FCC0791     5
                                         STCP     DEFINE 1           =1 IF ST CHAIN PROCESSED                    FCC1126    22
                                                  DEFINE 2                                                       FCC1126    23
                                         PRI      DEFINE 18          ADDRESS OF PRED LIST IN *TREE*              BDT      1086
                                         LVL      DEFINE 18          LEVEL / ST CHAIN POINTER                    FCC0514   466
                                         NP       DEFINE 18          N.PRED NOT YET VISITED                      BDT      1088
                                                                                                                 BDT      1089
                                         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  0400400464 +             RIO      ENTRY. **                                                      BDT      1092
           465  0316000467 +                      NZ     X6,RIO1     IF RMODE " 0  */ CALL FROM *GPO*            FCC0514   467
                          5110000000 X            SA1    =XHBI                                                   FCC0675   256
           466  0301000727 +                      ZR     X1,SIO10    IF HBI = 0    */ OUTSIDE OF ALL LOOPS       FCC0675   257
                                                                                                                 FCC0514   470
           467  5160000732 +             RIO1     SA6    RMODE                                                   FCC0514   471
                          73761                   SX7    X6+B1                                                   FCC0514   472
                               43600              MX6    0                                                       BDT      1095
           470  5170000000 +                      SA7    SIOCALL                                                 BDT      1096
                          0100000001 +            CALL   BDT         FORM THE DEPENDENCY GRAPH                   BDT      1097
                                                                                                                 BDT      1098
                                        *         ALLOCATE EXTRA SPACE IN *TREE* FOR THE STACK, AND MOVED INSTS. BDT      1099
                                                                                                                 BDT      1100
           471  5130000000 C                      SA3    N.INST                                                  BDT      1101
                          5140000000 X            SA4    L.TREE                                                  BDT      1102
           472  5150000000 X                      SA5    L.TXT                                                   BDT      1103
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    30
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                          63331                   SB3    X3+B1                                                   BDT      1104
                               37154              IX1    X5-X4                                                   BDT      1105
           473  63411                             SB4    X1+B1                                                   BDT      1106
                     0734000474 +                 GT     B4,B3,RIO2  L = MAX( N.INST+2 , L.TXT - L.TREE )        BDT      1107
                               76131              SX1    B3+B1                                                   BDT      1108
           474  5100000000 X             RIO2     ALLOC  TREE,X1     ALLOC( TREE , L )                           BDT      1109
           475  43600                             MX6    0                                                       BDT      1110
                     53020                        SA0    X2                        (A0) = TREE                   BDT      1111
                          53626                   SA6    X2+B6       TREE(OLD(LTREE)) = 0                        BDT      1112
  
  
                                        *         REFORMAT THE TREE, CALCULATE THE INSTRUCTION NODE LABELS AS    BDT      1114
                                        *         PER AHO-ULLMAN, SETUP LINK WORDS FOR DEPTH FIRST SEARCH.       BDT      1115
                                                                                                                 BDT      1116
                               43702              MX7    2                                                       BDT      1117
           476  5140000000 X                      SA4    O.TXT                                                   BDT      1118
                          6120000010              SB2    MIN.PR                    (B2) = MIN.PR                 FCC1290     8
           477  76620                             SX6    B2                                                      FCC1290     9
                     6274000003                   SB7    X4+3        TB = TXT + 3                                BDT      1120
                               20622              LX6    I.LVLP                                                  BDT      1121
           500  12776                             BX7    X7+X6                                                   BDT      1122
                     56770                        SA7    B7          [TB] = LW(II,MI,0,MIN.PR,0)                 FCC1290    10
                          43052                   MX0    -T.SUCCL                                                BDT      1124
                               64600              SB6    A0          TF = TREE                                   BDT      1125
           501  20030                             LX0    T.SUCCP                                                 BDT      1126
                     43100                        MX1    0           DLV = 0       */ DIFFERENCE OF LEVELS       BDT      1127
                          76220                   SX2    B2          LLV = MIN.PR  */ LAST *LV*                  FCC1290    11
                               66420              SB4    B2          MLV = MIN.PR  */ MAX LVL OF PRED            FCC1290    12
           502  54500                             SA5    A0          TI = TREE                                   BDT      1130
                     67571                        SB5    B7-B1       DB = TB - 1                                 BDT      1131
                          0400000505 +            EQ     RIO5                                                    BDT      1132
                                                                                                                 BDT      1133
                                        *         STORE REFORMATTED EDGE, ADVANCE TO NEXT EDGE                   BDT      1134
                                                                                                                 BDT      1135
           503  54750                    RIO4     SA7    A5          [TI] = TN                                   BDT      1136
                     10455                        BX4    X5          TL = [TI]                                   BDT      1137
                          66430                   SB4    B3          MLV = LV                                    BDT      1138
                               54551              SA5    A5+B1       TI = TI + 1                                 BDT      1139
           504  13645                             BX6    X4-X5                                                   BDT      1140
                     15760                        BX7    -X0*X6                                                  BDT      1141
                          0317000513 +            NZ     X7,RIO6     IF SUCC[TI] " SUCC[TL]                      BDT      1142
                                                                                                                 BDT      1143
                                        *         REFORMAT EDGE, UPDATE DLV, MLV                                 BDT      1144
                                                                                                                 BDT      1145
                                         RIO5     LX5    -T.PREDP    R = PRED[TI]                                BDT      1146
           505  53357                             SA3    B7+X5       LI = TB + R                                 BDT      1147
                     20352                        LX3    -I.LVLP     LV = LVL[LI]                                BDT      1148
                          13223                   BX2    X2-X3                                                   BDT      1149
                               12112              BX1    X1+X2       DLV = DLV ! XOR(LLV,LV)                     BDT      1150
           506  63330                             SB3    X3                                                      BDT      1151
                     73230                        SX2    X3          LLV = LV                                    BDT      1152
                          73650                   SX6    X5                                                      BDT      1153
                                                  LX5    T.PREDP                                                 BDT      1154
                                                  LX6    JT.PREDP                                                BDT      1155
                               15450              BX4    -X0*X5                                                  BDT      1156
           507  20422                             LX4    JT.SUCCP-T.SUCCP                                        BDT      1157
                     73330                        SX3    X3                                                      BDT      1158
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    31
        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  0323000531 +                      PL     X3,RIO7B    IF ^ST[DI]                                  FCC1056    55
                                                                                                                 FCC1056    56
                                        *         FORCE STORES TO COME BEFORE RS"S TO X-REGISTERS                FCC1056    57
                                                                                                                 FCC1056    58
                          0642000531 +            GE     B4,B2,RIO7B MLV = MAX( MLV, MIN.PR )                    FCC1290    18
           521  76220                             SX2    B2                                                      FCC1290    19
                     0400000531 +                 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
                          0333000531 +            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  0321000530 +                      PL     X1,RIO7A    IF SORT[R1RS] " 2  */ ^RS TO AN X-REGISTER  FCC1290    21
                                                                                                                 FCC0881   244
                          20105                   LX1    2+SO.RTP-SO.RNP                                         FCC0881   245
                               43371              MX3    -SO.RNL                                                 FCC0881   246
           525  15113                             BX1    -X3*X1                                                  FCC0881   247
                     63310                        SB3    X1                                                      FCC1290    22
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    32
        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
                          0400000531 +            EQ     RIO7B                                                   FCC0881   253
                                                                                                                 FCC0881   254
           530  20171                    RIO7A    LX1    SO.RTP-SO.LKP                                           FCC1290    26
                     0321000531 +                 PL     X1,RIO7B    IF SOLK[R1RS] < 2  */ IF TEMP OR UJP LOCK   FCC1322     7
                               76240              SX2    B4          MLV = SAVE                                  FCC1322    10
                                                                                                                 FCC0881   256
           531  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
           532  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
           533  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
           534  66700                             SB7    B0          FWA = 0       */ FWA OF SORT SET            BDT      1246
                     66211                        SB2    B1+B1                                                   BDT      1247
                                                                                                                 BDT      1248
           535  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
           536  0323000535 +                      PL     X3,RIO10    IF DIF \ 0    */ ELEMENTS IN ORDER          BDT      1252
                                                                                                                 BDT      1253
                          6062777776              SB6    A2-1        LWA = TJ - 1                                BDT      1254
           537  0301000541 +                      ZR     X1,RIO11    IF TL = 0     */ END OF TREE                BDT      1255
                          0570000535 +            NZ     B7,RIO10    IF FWA " 0    */ NOT FIRST REVERSAL         BDT      1256
           540  65722                             SB7    A2-B2       FWA = TJ - 2                                BDT      1257
                     0400000535 +                 EQ     RIO10                                                   BDT      1258
                                                                                                                 BDT      1259
           541                           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
           541  56060                             SA0    B6          ST = LWA      */ STACK ADDR FOR SIO         BDT      1265
                     0470000545 +                 ZR     B7,RIO12    IF FWA = 0    */ NO REVERSALS               BDT      1266
                                                                                                                 FCC0514   482
                               56270              SA2    B7          T = [FWA]                                   FCC0514   483
           542  5130000000 X                      SA3    O.TXT                                                   FCC0514   484
                          6253000003              SB5    X3+3                                                    FCC0514   485
           543  20222                             LX2    -JT.SUCCP                                               FCC0514   486
                     53425                        SA4    B5+X2       LI = TB + SUCC[T]                           FCC0514   487
                          20430                   LX4    -I.PRIP                                                 FCC0514   488
                               63740              SB7    X4          FWA = PRI[LI] */ FWA OF EDGE GROUP          FCC0514   489
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    33
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
           544  77167                             SX1    B6-B7                                                   BDT      1267
                     0100000000 X                 CALL   SHL         SORT( FWA , LWA-FWA )                       BDT      1268
                                                                                                                 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
           545  5120000000 X             RIO12    SA2    O.TXT                                                   FCC0514   494
                          5110000732 +            SA1    RMODE                                                   FCC0514   495
           546  6272000003                        SB7    X2+3        TB = O.TXT + 3                              FCC0514   496
                          0301000621 +            ZR     X1,SIO      IF RMODE = 0                                FCC0514   497
                                                                                                                 FCC0514   498
           547  5130000000 X                      SA3    L.TXT                                                   FCC0514   499
                          6140000004              SB4    4                                                       FCC0514   500
           550  6233777773                        SB3    X3-4        I = L.TXT - 4                               FCC0514   501
                          43152                   MX1    -I.LVLL                                                 FCC0514   502
                               56570              SA5    B7          LI = TB                                     FCC0514   503
           551  20122                             LX1    I.LVLP                                                  FCC0514   504
                     67671                        SB6    B7-B1                                                   FCC0514   505
                                                                                                                 FCC0514   506
                                        *         CLEAR *LVL* FIELDS OF LINK WORDS                               FCC0514   507
                                                                                                                 FCC0514   508
           552  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
           553  0530000552 +                      NZ     B3,RIO13    IF I " 0                                    FCC0514   513
                                                                                                                 FCC0514   514
                          57471                   SA4    B7-B1                                                   FCC0514   515
                               76710              SX7    B1                                                      FCC0514   516
           554  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
           555  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
           556  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
           557  0324000556 +                      PL     X4,RIO15    IF ^BM[DI]                                  FCC0514   536
                                                                                                                 FCC0514   537
                          5235777776              SA3    X5-1        TI = PRI[LI] - 1                            FCC2273X    9
           560  76730                             SX7    B3                                                      FCC2273X   10
                     5170000733 +                 SA7    RL          RL = RMIN                                   FCC2273X   11
                               20722              LX7    I.LVLP                                                  FCC2273X   12
                                                                                                                 FCC2273X   13
                                        *         CHECK FOR MULTIPLE DEFS, AND LINK THEM TO LAST DEF             FCC2273X   14
                                                                                                                 FCC2273X   15
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    34
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
           561  20401                    RIO16    LX4    D.BMP-D.^DP                                             FCC2273X   16
                     0334000564 +                 MI     X4,RIO16A   IF ^D[DI] */NOT A DEF                       FCC2273X   17
                               55444              SA4    A4-B4       DI = DI - 4                                 FCC2273X   18
           562  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
           563  54650                             SA6    A5                                                      FCC2273X   23
                     0334000561 +                 MI     X4,RIO16    IF BM[DI]     */ NOT END OF *BM*"S          FCC2273X   24
                                                                                                                 FCC2273X   25
           564  76730                    RIO16A   SX7    B3                                                      FCC2273X   26
                     54771                        SA7    A7+B1       RL(2) = RMIN                                FCC2273X   27
                          0400000566 +            EQ     RIO17                                                   FCC2273X   28
                                                                                                                 FCC2273X   29
                                        *         SCAN EDGE LIST OF *BM* FOR *ST*"S THAT ARE LINKED TO IT        FCC2273X   30
                                                                                                                 FCC2273X   31
           565  63330                    RIO16B   SB3    X3          RMIN = PRED[TI]                             FCC2273X   32
                                                                                                                 FCC2273X   33
           566  0450000611 +             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
           567  53436                             SA4    B6+X3       DI = TB-1 + PRED[TE]                        FCC2273X   38
                     20421                        LX4    59-D.BMP                                                FCC2273X   39
                          0334000565 +            MI     X4,RIO16B   IF BM[DI]                                   FCC2273X   40
           570  20410                             LX4    D.BMP-D.STP                                             FCC2273X   41
                     0324000566 +                 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
           571  0334000566 +                      MI     X4,RIO17    IF L2[DI]                                   FCC2273X   45
                          5044777775              SA4    A4-2        R1 = DI - 2                                 FCC2273X   46
           572  15640                             BX6    -X0*X4      R = RI[R1]                                  FCC2273X   47
                     63260                        SB2    X6                                                      FCC2273X   48
                          0723000566 +            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 ).                       FCC0514   573
                                                                                                                 FCC0514   574
           573  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
           574  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
           575  73550                             SX5    X5                                                      FCC0514   584
                     37765                        IX7    X6-X5                                                   FCC0514   585
                          0327000600 +            PL     X7,RIO17B   IF J @ R      */ PRED IS BEFORE RI          FCC0514   586
           576  53456                             SA4    B6+X5       DJ = TB-1 + J                               FCC0514   587
                     15742                        BX7    -X2*X4                                                  FCC0514   588
                          0307000600 +            ZR     X7,RIO17B   IF ^LDST[DJ]  */ NOT A MEM REF              FCC0514   589
           577  20406                             LX4    59-D.EQVP                                               FCC0514   590
                     0334000566 +                 MI     X4,RIO17    IF EQV[DJ]    */ INTERFERING MEM REF        FCC0514   591
           600  67221                    RIO17B   SB2    B2-B1       NSP = NSP - 1                               FCC0514   592
                     54551                        SA5    A5+B1       TJ = TJ + 1                                 FCC0514   593
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    35
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                          0520000575 +            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
           601  53466                             SA4    B6+X6       DIP = TB-1 + R                              FCC0613    10
                     20435                        LX4    59-D.PIP                                                FCC0613    11
                          0324000606 +            PL     X4,RIO18    IF ^PI[DIP]   */ RI NOT A *DEF*             FCC0613    12
                                                                                                                 FCC0613    13
           602  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
           603  0334000604 +                      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
           604  15220                    RIO17C   BX2    -X0*X2                                                  FCC0613    21
                     63220                        SB2    X2                                                      FCC0613    22
                          0612000606 +            LE     B2,B1,RIO18 IF RF @ 1     */ NO RF                      FCC0613    23
           605  56462                             SA4    B6+B2       DIF = TB-1 + RF                             FCC0613    24
                     20441                        LX4    59-D.ZPP                                                FCC0613    25
                          0324000566 +            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
           606  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
           607  0316000606 +                      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
           610  12675                             BX6    X7+X5       LVL[LI] = PRED[TE]                          FCC0514   605
                     54650                        SA6    A5                                                      FCC0514   606
                          0400000566 +            EQ     RIO17                                                   FCC0514   607
                                                                                                                 FCC0514   608
                                        *         CLEAR ST CHAIN PTRS FOR ALL BUT LAST DEF IN A SUB-SEQUENCE     FCC0514   609
                                                                                                                 FCC0514   610
           611  5130000733 +             RIO19    SA3    RL                                                      FCC0514   611
                          54431                   SA4    A3+B1                                                   FCC2157    15
                               63530              SB5    X3                                                      FCC2157    16
           612  63340                             SB3    X4          RMIN = RL(2)                                FCC2157    17
           613  0435000615 +             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
           614  11714                             BX7    X1*X4       LVL[LI] = 0   */ CLEAR *ST* CHAIN LINK      FCC0514   616
                     54740                        SA7    A4                                                      FCC0514   617
                          0400000613 +            EQ     RIO20                                                   FCC0514   618
                                                                                                                 FCC0514   619
                                        *         ADVANCE TO PREVIOUS *BM*                                       FCC0514   620
                                                                                                                 FCC0514   621
           615  56573                    RIO21    SA5    B7+B3       LI = TB + RMIN                              FCC0514   622
                     0530000555 +                 NZ     B3,RIO14    IF RMIN " 0   */ NOT *BOS*                  FCC0514   623
                                                                                                                 FCC0514   624
                               57471              SA4    B7-B1                                                   FCC0514   625
           616  76710                             SX7    B1                                                      FCC0514   626
                     20752                        LX7    D.BMP                                                   FCC0514   627
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    36
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                          15647                   BX6    -X7*X4      BM[TXT+2] = 0                               FCC0514   628
                               54640              SA6    A4                                                      FCC0514   629
           617  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
           620  5170000732 +                      SA7    RMODE       RMODE = (PS,PI)                             FCC0514   634
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    37
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
                                        *         SIO - SET INSTRUCTION ORDER BY A DEPTH FIRST SEARCH            BDT      1271
                                                                                                                 BDT      1272
           621  5130000000 X             SIO      SA3    L.TXT                                                   FCC0514   635
                          6140000030              SB4    60-I.PRIP                                               BDT      1276
           622  7273777773                        SX7    X3-4        N = L.TXT - 4 */ CURRENT INSTRUCTION        BDT      1277
                          6150000004              SB5    4           ON = 4        */ OUTPUT INDEX               BDT      1278
           623  5140000732 +                      SA4    RMODE                                                   BDT      1279
                          43001                   MX0    1                                                       BDT      1280
                                                  LX0    1+I.MIP                                                 BDT      1281
                               76110              SX1    B1                                                      BDT      1282
           624  6160000000                        SB6    0           LII = 0       */ LAST ISSUED INSTRUCTION    BDT      1283
                          0314000631 +            NZ     X4,SIO2     IF RMODE " 0  */ CALL FROM *GPO/CBB*        FCC0514   636
                                                                                                                 BDT      1286
                                        *         SEARCH FOR NEXT TERMINAL INSTRUCTION                           BDT      1287
                                                                                                                 BDT      1289
           625  5120000731 +             SIO1     SA2    RIOA                                                    BDT      1290
                          6130000004              SB3    4                                                       BDT      1291
           626  67271                             SB2    B7-B1       DB = TB - 1                                 BDT      1292
                     56426                        SA4    B2+B6       DI = DB + LII                               BDT      1293
                                                                                                                 BDT      1294
           627  54443                    SIO1A    SA4    A4+B3       DI = DI + 4                                 BDT      1295
                     11624                        BX6    X2*X4                                                   BDT      1296
                          0306000627 +            ZR     X6,SIO1A    IF ^( BM[DI] ! ST[DI] )                     BDT      1297
                                                                                                                 BDT      1298
           630  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
           631  53577                    SIO2     SA5    B7+X7       LI = TB + N                                 BDT      1304
                     5120000732 +                 SA2    RMODE                                                   FCC0514   637
                               55451              SA4    A5-B1       DI = LI - 1                                 FCC0514   638
           632  11624                             BX6    X2*X4                                                   FCC0514   639
                     0306000655 +                 ZR     X6,SIO2D    IF ^RMODE[DI] */ NOT *PS* ! *PI*            FCC1126    24
                               10655              BX6    X5                                                      FCC1126    25
           633  20603                             LX6    59-I.STCPP                                              FCC1126    26
                     0336000655 +                 MI     X6,SIO2D    IF STCP[LI]   */ STC PROCESSED              FCC1126    27
                               20647              LX6    1+I.STCPP-I.LVLP                                        FCC1126    28
           634  73260                             SX2    X6                                                      FCC1126    29
                     0302000655 +                 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
           635  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
           636  13667                             BX6    X6-X7                                                   FCC1126    36
                     20622                        LX6    I.LVLP      LVL[LI] = 0                                 FCC1126    37
                          54650                   SA6    A5                                                      FCC1126    38
                                                                                                                 FCC0514   654
           637  53577                    SIO2A    SA5    B7+X7       LI = TB + N                                 FCC0514   655
                     11605                        BX6    X0*X5                                                   FCC0514   656
                          0316000653 +            NZ     X6,SIO2C    IF MI[LI]     */ ST PROCESSED               FCC0514   657
                                                                                                                 FCC0514   658
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    38
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
           640  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
           641  20330                             LX3    -IH.RFP     R = RF[R2]                                  FCC0514   665
                     0334000643 +                 MI     X4,SIO2AA   IF TYPE[DI] = III                           FCC0514   666
                               55331              SA3    A3-B1       R1 = R2 - 1                                 FCC0514   667
           642  43454                             MX4    -R1.RIL                                                 FCC0514   668
                     20334                        LX3    -R1.RJP                                                 FCC0514   669
                          15334                   BX3    -X4*X3      R = RJ[R1]                                  FCC0514   670
           643  63230                    SIO2AA   SB2    X3                                                      FCC0514   671
                     0612000653 +                 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
           644  0334000647 +                      MI     X4,SIO2A1   IF M[LIP]                                   FCC1908     5
                          76420                   SX4    B2                                                      FCC1908     6
                               37441              IX4    X4-X1                                                   FCC1908     7
           645  0334000653 +                      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
           646  0400000653 +                      EQ     SIO2C                                                   FCC1908    12
                                                                                                                 FCC1908    13
           647  20401                    SIO2A1   LX4    I.MIP-I.IIP                                             FCC1908    14
                     0334000653 +                 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
           650  67202                             SB2    -B2                                                     FCC0514   683
           651  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
           652  0313000651 +                      NZ     X3,SIO2B    IF S " R                                    FCC0514   688
                          54741                   SA7    A4+B1       [SJ+1] = N    */ INSERT N BELOW R           FCC0514   689
                                                                                                                 FCC0514   690
           653  20552                    SIO2C    LX5    -I.LVLP                                                 FCC0514   691
                     73750                        SX7    X5          N = LVL[LI]                                 FCC0514   692
                          0317000637 +            NZ     X7,SIO2A    IF N " 0      */ NOT END OF ST CHAIN        FCC0514   693
                                                                                                                 FCC0514   694
           654  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
           655  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
           656  6234777776                        SB3    X4-1        EI = PRI[LI] - 1  */ EDGE INDEX             BDT      1309
                          0333000707 +            MI     X3,SIO5     IF II[LI]     */ ISSUED                     BDT      1310
                                                                                                                 BDT      1311
                                        *         SEARCH PRED TO SEE IF ALL ARE MARKED                           BDT      1312
                                                                                                                 BDT      1313
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    39
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
           657  53253                    SIO3     SA2    B3+X5       TI = EI + NP[LI]                            BDT      1314
                     63250                        SB2    X5                                                      BDT      1315
                          0420000677 +            ZR     B2,SIO4     IF NP[LI] = 0                               BDT      1316
                                                                                                                 BDT      1317
           660  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
           661  0334000657 +                      MI     X4,SIO3     IF II[LIP]    */ ISSUED                     FCC0514   702
                                                  LX3    59-I.MIP                                                FCC0514   703
                          0333000667 +            MI     X3,SIO3A    IF MI[LIP]                                  FCC0514   704
           662  37627                             IX6    X2-X7                                                   FCC0514   705
                     0326000667 +                 PL     X6,SIO3A    IF R > N      */ REDEF LINK                 FCC0514   706
                                                                                                                 BDT      1323
           663  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
           664  73720                             SX7    X2          N = R         */ FOLLOW PRED                BDT      1328
                     0400000631 +                 EQ     SIO2                                                    BDT      1329
                                                                                                                 FCC1126    40
           665  37627                    SIO3G    IX6    X2-X7                                                   FCC1126    41
                     0326000657 +                 PL     X6,SIO3     IF R > N      */ REDEF LINK                 FCC1126    42
                                                  PRINT  SIO,(* STACK N --- MARKED INST ---*)                    FCC1126    43
           666  0400000663 +                      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
           667  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
           670  0334000675 +                      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
           671  0324000665 +                      PL     X4,SIO3G    IF ^RD[DIS]   */ NOT A REDEF STORE          FCC1126    48
                          5044777775              SA4    A4-2                                                    FCC1126    49
           672  43654                             MX6    -R1.RIL                                                 FCC1126    50
                     15646                        BX6    -X6*X4                                                  FCC1126    51
                          13476                   BX4    X7-X6                                                   FCC1126    52
           673  0314000665 +                      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
           674  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
           675  0100000735 +             SIO3B    RJ     MSD         MOVE THE STORE DOWN / SET THE *XU* BIT      FCC1908    16
           676  0400000657 +                      EQ     SIO3                                                    FCC1908    17
                                                                                                                 FCC0514   759
                                        *         OUTPUT INSTRUCTION                                             BDT      1331
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    40
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
                                                                                                                 BDT      1332
           677  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
           700  76110                             SX1    B1                                                      BDT      1338
                     12635                        BX6    X3+X5                                                   BDT      1339
                          20425                   LX4    59-D.PRSP                                               BDT      1340
                               54650              SA6    A5                                                      BDT      1341
           701  6155000004                        SB5    B5+4        ON = ON + 4                                 BDT      1342
                          0334000705 +            MI     X4,SIO4A    IF PRS[DI]                                  FCC0514   760
           702  20472                             LX4    D.PRSP-D.RJRSP                                          FCC0514   761
                     0334000705 +                 MI     X4,SIO4A    IF RJRS[DI]                                 FCC0642     5
                               20410              LX4    D.RJRSP-D.XMTP                                          FCC0642     6
           703  0324000707 +                      PL     X4,SIO5     IF ^XMT[DI]                                 FCC0642     7
                          5044000004              SA4    A4+4        DI = DI + 4   */ CHECK NEXT FOR *KS*        FCC0642     8
           704  20434                             LX4    59-D.KSP                                                FCC0642     9
                     0324000707 +                 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
           705  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
           706  12506                             BX5    X0+X6       MI[LI] = 1                                  BDT      1351
                     0400000677 +                 EQ     SIO4                                                    BDT      1352
                                                                                                                 BDT      1353
           707  54300                    SIO5     SA3    A0          N = [ST]                                    BDT      1354
                     5000777776                   SA0    A0-1        ST = ST - 1                                 BDT      1355
                               73730              SX7    X3                                                      BDT      1356
           710  0313000631 +                      NZ     X3,SIO2     IF N " 0                                    BDT      1357
                                                                                                                 BDT      1358
                          5045777774              SA4    A5-3        R1 = LI - 3                                 BDT      1359
           711  54001                             SA0    A0+B1       ST = ST + 1                                 BDT      1360
                     26624                        UX6    B2,X4                                                   BDT      1361
                          0520000625 +            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
           712  5110000000 X                      SA1    L.TXT                                                   BDT      1368
                          5130000000 X            SA3    O.TREE                                                  BDT      1369
           713  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
           715  5110000000 C                      SA1    N.INST                                                  BDT      1372
                          5120000000 X            SA2    O.TXT                                                   BDT      1373
           716  5130000000 X                      SA3    O.TREE                                                  BDT      1374
                          6130000003              SB3    3                                                       BDT      1375
           717  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
           720  76010                             SX0    B1                                                      BDT      1379
                                                                                                                 BDT      1380
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    41
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
           721  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
                               63550              SB5    X5          J = OI[TI]                                  BDT      1385
           722  5055000004                        SA5    A5+4        TI = TI + 4                                 BDT      1386
                          10644                   BX6    X4                                                      BDT      1387
                               22703              LX7    X3                                                      BDT      1388
           723  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
                               10622              BX6    X2                                                      BDT      1392
           724  55671                             SA6    A7-B1       TXT(J) = R1                                 BDT      1393
                     0311000721 +                 NZ     X1,SIO8     IF N " 0                                    BDT      1394
                                                                                                                 BDT      1395
                               43700              MX7    0                                                       BDT      1396
           725  5170000000 X                      SA7    L.TREE      L.TREE = 0                                  BDT      1397
                          5106777775              SA0    B6-2                                                    BDT      1398
           726  7120000000                        SX2    0                                                       BDT      1399
                          0100001031 +            CALL   RNI         RENUMBER THE INSTRUCTIONS                   BDT      1400
                                                                                                                 FCC0514   768
           727  5150000000 X             SIO10    SA5    O.TXT                                                   FCC0514   769
                          0100000755 +            RJ     CRW         COMPUTE X-REGISTER WIDTH OF NEW ORDER       BDT      1402
           730  0400000464 +                      EQ     RIO                                                     BDT      1403
                                                                                                                 BDT      1404
           731                           RIOA     BFMW   D,(BM,ST)                                               BDT      1405
           732                     1     RMODE    BSS    1           *RIO* MODE                                  BDT      1406
           733                     2     RL       BSS    2           *TXT* INDEX OF LAST *BM*  ( RIO16 - RIO17 ) FCC2157    18
  
  
  
                                        **        MSD - MOVE STORE ( TOP OF STACK ) DOWN TO A POINT BELOW *R*.   FCC1908    19
                                                                                                                 FCC1908    20
           735  0200400735 +             MSD      ROUTINE                                                        FCC1908    21
           736  53427                             SA4    B7+X2       LIP = TB + R                                FCC1908    22
                                                  LX4    59-I.MIP                                                FCC1908    23
                     0324000752 +                 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
           737  20552                             LX5    -I.LVLP                                                 FCC1908    29
                     73350                        SX3    X5          S = LVL[LI]   */ TXT INDEX OF *ST*          FCC1908    30
                          20522                   LX5    I.LVLP                                                  FCC1908    31
           740  13634                    MSD1     BX6    X3-X4                                                   FCC1908    32
                     55441                        SA4    A4-B1       SJ = SJ - 1                                 FCC1908    33
                          0316000740 +            NZ     X6,MSD1     IF [SJ+1] " S                               FCC1908    34
                                                                                                                 FCC1908    35
           741  74441                             SX4    A4+B1       SS = SJ + 1                                 FCC1908    36
                     5030000000                   SA3    A0+         SJ = SI       */ SEARCH FOR *R*             FCC1908    37
           742  13623                    MSD2     BX6    X2-X3                                                   FCC1908    38
                     55331                        SA3    A3-B1       SJ = SJ - 1                                 FCC1908    39
                          0316000742 +            NZ     X6,MSD2     IF [SJ+1] " R                               FCC1908    40
           743  74331                             SX3    A3+B1                                                   FCC1908    41
                     37643                        IX6    X4-X3                                                   FCC1908    42
                          0336000735 +            MI     X6,MSD      IF SS < SJ+1  */ S IS ALREADY BELOW R       FCC1908    43
                                                  PRINT  SIO,(21X*MOVE STORE DOWN*)                              FCC1908    44
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    42
        RIO - RESET INSTRUCTION ORDER                                 MSD 
  
                                                                                                                 FCC1908    45
           744  53340                             SA3    X4          SJ = SS       */ MOVE THE STORE DOWN        FCC1908    46
                     73130                        SX1    X3          S = [SJ]                                    FCC1908    47
           745  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
           746  20421                             LX4    59-D.BMP                                                FCC1908    52
                     0334000751 +                 MI     X4,MSD4     IF BM[DIS]    */ CANT MOVE ST PAST A *BM*   FCC1908    53
                               37423              IX4    X2-X3                                                   FCC1908    54
           747  0314000745 +                      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
           750  76110                             SX1    B1                                                      FCC1908    59
                     0400000735 +                 EQ     MSD                                                     FCC1908    60
                                                                                                                 FCC1908    61
           751  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
           752  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
           753  20324                             LX3    D.XUP                                                   FCC1908    73
                     12634                        BX6    X3+X4       XU[DIS] = 1                                 FCC1908    74
                          54640                   SA6    A4                                                      FCC1908    75
           754  0400000735 +                      EQ     MSD                                                     FCC1908    76
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    43
        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
           755  0400400755 +             CRW      ENTRY. **                                                      BDT      1415
           756  43055                             MX0    -R1.RIL+1                                               BDT      1416
                     66400                        SB4    B0          RW = 0        */ REG WIDTH                  BDT      1417
                          43163                   MX1    -D.REGWL                                                BDT      1418
                               20001              LX0    1                                                       BDT      1419
           757  66500                             SB5    B0          MW = 0        */ MAX WIDTH                  BDT      1420
                     20111                        LX1    D.REGWP                                                 BDT      1421
                          43263                   MX2    -D.USESL                                                BDT      1422
           760  6275000003                        SB7    X5+3        TB = TXT + 3                                BDT      1423
                          57471                   SA4    B7-B1       DI = TB - 1                                 BDT      1424
           761  6130000004                        SB3    OC.RS                                                   BDT      1425
                          43700                   MX7    0                                                       BDT      1426
                               56770              SA7    B7          [TB] = 0                                    BDT      1427
           762  0400000765 +                      EQ     CRW1                                                    BDT      1428
                                                                                                                 BDT      1429
                                        *         ^D OR PRS TO A B-REG, INSTALL REGW, CLEAR LINK WORD            BDT      1430
                                                                                                                 BDT      1431
           763  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
           764  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
           765  5054000002               CRW1     SA5    A4+2        R1 = DI + 2                                 BDT      1443
                          5045000002              SA4    A5+2        DI = R1 + 2                                 BDT      1444
           766  26525                             UX5    B2,X5                                                   BDT      1445
                                                  LX4    58-D.TYP                                                BDT      1446
                     36744                        IX7    X4+X4                                                   BDT      1447
                          0334001003 +            MI     X4,CRW3     IF TYPE[DI] = III ! IV                      BDT      1448
           767  0337000777 +                      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
           770  20422                             LX4    1+D.TYP-D.^DP                                           BDT      1455
                     0723000773 +                 LT     B2,B3,CRW1A IF OC[R1] < OC.RS  */ *DAR*                 BDT      1456
                               15673              BX6    -X3*X7                                                  BDT      1457
           771  5236000000 X                      SA3    =XTYIOM+X6                                              BDT      1458
                          26723                   UX7    B2,X3                                                   BDT      1459
                               11675              BX6    X7*X5                                                   BDT      1460
           772  23526                             AX5    B2,X6                                                   BDT      1461
                     23526                        AX5    B2,X6       RNUMS = TYIOM[DI,R1]                        BDT      1462
                          0400001012 +            EQ     CRW7                                                    BDT      1463
                                                                                                                 BDT      1464
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    44
        CRW - COMPUTE REGISTER WIDTH OF A SEQUENCE                    CRW 
  
                                        *         PROCESS *DAR*                                                  BDT      1465
                                                                                                                 BDT      1466
           773  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
           774  7263777776                        SX6    X3-1        [LI] = [LI] - 1                             BDT      1470
                          54630                   SA6    A3                                                      BDT      1471
           775  0316000763 +                      NZ     X6,CRW0     IF [LI] " 0   */ NOT LAST USE               BDT      1472
                          67441                   SB4    B4-B1       RW = RW - 1                                 BDT      1473
           776  0400000763 +                      EQ     CRW0                                                    BDT      1474
                                                                                                                 BDT      1475
                                        *         TYPE II                                                        BDT      1476
                                                                                                                 BDT      1477
           777  10644                    CRW2     BX6    X4                                                      BDT      1478
                     20422                        LX4    1+D.TYP-D.^DP                                           BDT      1479
                          20635                   LX6    1+D.TYP-D.PIP                                           BDT      1480
          1000  0326001015 +                      PL     X6,CRW9     IF ^PI[DI]                                  BDT      1481
                                                                                                                 BDT      1482
                          0423000763 +            EQ     B2,B3,CRW0  IF OC[R1] = OC.RS                           BDT      1483
          1001  20547                             LX5    58-R1.SOP-SO.RTP                                        BDT      1484
                     0325000763 +                 PL     X5,CRW0     IF SORT[R1] " 2  */ DEF NOT TO AN X-REG     BDT      1485
                                                                                                                 BDT      1486
          1002  0400001015 +                      EQ     CRW9                                                    BDT      1487
                                                                                                                 BDT      1488
                                        *         TYPE IV                                                        BDT      1489
                                                                                                                 BDT      1490
          1003  0327001007 +             CRW3     PL     X7,CRW4     IF TYPE[DI] " IV                            BDT      1491
                          0420001024 +            ZR     B2,CRW11    IF OC[R1] = OC.EOQ                          BDT      1492
                                                                                                                 BDT      1493
          1004  20422                             LX4    1+D.TYP-D.^DP                                           BDT      1494
                     7162777770                   SX6    B2-OC.ENT                                               FCC0883     4
          1005  0336000763 +                      MI     X6,CRW0     IF OC[R1] < OC.ENT  */ EOS OR LAB           FCC0883     5
                          6140000000              SB4    0           RW = 0        */ CLEAR UJP LOCKS            BDT      1497
          1006  0400000763 +                      EQ     CRW0                                                    BDT      1498
                                                                                                                 BDT      1499
                                        *         TYPE III                                                       BDT      1500
                                                                                                                 BDT      1501
          1007  20422                    CRW4     LX4    1+D.TYP-D.^DP     RNUMS = RI[R1]                        BDT      1502
                     0334001010 +                 MI     X4,CRW5     IF ^D[DI]                                   BDT      1503
                               43500              MX5    0           RNUMS = 0                                   BDT      1504
          1010  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
          1011  0306001012 +                      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
          1012  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
          1013  21520                             AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                BDT      1518
                     0316001014 +                 NZ     X6,CRW8     IF [LI] " 0   */ NOT LAST USE               BDT      1519
                               67441              SB4    B4-B1       RW = RW - 1                                 BDT      1520
          1014  54630                    CRW8     SA6    A3                                                      BDT      1521
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    45
        CRW - COMPUTE REGISTER WIDTH OF A SEQUENCE                    CRW 
  
                     0315001012 +                 NZ     X5,CRW7     IF RNUMS " 0                                BDT      1522
  
                                        *         ADVANCE *RW* TO ACCOUNT FOR THE NEW RESULT                     BDT      1524
                                                                                                                 BDT      1525
          1015  0334000763 +             CRW9     MI     X4,CRW0     IF ^D[DI]                                   BDT      1526
                          10644                   BX6    X4                                                      BDT      1527
                               20603              LX6    D.^DP-D.PRSP                                            BDT      1528
          1016  0326001020 +                      PL     X6,CRW10    IF ^PRS[DI]                                 BDT      1529
                          5034000002              SA3    A4+2        R1RS = DI + 2                               BDT      1530
          1017  20347                             LX3    58-R1.SOP-SO.RTP                                        BDT      1531
                     0323000763 +                 PL     X3,CRW0     IF SORT[R1RS] " 2  */ NOT TO AN X-REG       BDT      1532
                                                                                                                 BDT      1533
          1020  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
          1021  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
          1022  54640                             SA6    A4                                                      BDT      1542
                     0654000765 +                 LE     B4,B5,CRW1  IF RW @ MW                                  BDT      1543
                                                                                                                 BDT      1544
                               66540              SB5    B4          MW = RW                                     BDT      1545
          1023  0400000765 +                      EQ     CRW1                                                    BDT      1546
  
                                        *         EOQ - SET MAX WIDTH IN DESCR OF *BOS* AND CLEAR LINK WORDS     BDT      1548
                                                                                                                 BDT      1549
          1024  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
          1025  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
          1026  64231                             SB2    A3+B1                                                   BDT      1559
                     64341                        SB3    A4+B1                                                   BDT      1560
                          6140000004              SB4    4                                                       BDT      1561
          1027  66224                   +         SB2    B2+B4       FOR I = 3 TO L.TXT BY 4;  TXT(I) = 0        BDT      1562
                     54774                        SA7    A7+B4                                                   BDT      1563
                          0723001027 +            LT     B2,B3,*                                                 BDT      1564
                                                  TRACE  CRW,RLIST                                               BDT      1565
                                                                                                                 BDT      1566
          1030  76650                             SX6    B5          RIO.MAX = MW                                BDT      1567
                     0400000755 +                 EQ     CRW                                                     BDT      1568
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    46
        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
          1031  00000000000000000000     RNI      ENTRY.                                                         BDT      1586
                                                  TRACE  RNI,RLIST                                               BDT      1587
          1032  66211                             SB2    B1+B1       (B2) = 2                                    BDT      1588
                     43054                        MX0    -R1.RIL                                                 BDT      1589
                          6150000022              SB5    59-D.^DP                                                BDT      1590
          1033  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
          1034  27522                             PX5    B2,X2                                                   BDT      1595
                                                                                                                 BDT      1596
                                        *         SETUP THE EQUIVALENCE TABLE BETWEEN THE R-NUMBERS              BDT      1597
                                                                                                                 BDT      1598
          1035  26635                    RNI1     UX6    "OC",X5                                                 BDT      1599
                     0430001041 +                 ZR     "OC",RNI3   IF OC[R1] = 0 */ END OF *TXT*               BDT      1600
                                                                                                                 BDT      1601
          1036  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
          1037  0336001035 +                      MI     X6,RNI1     IF ^D[DI]                                   BDT      1606
                          15350                   BX3    -X0*X5      RI = RI[R1]                                 BDT      1607
                               37623              IX6    X2-X3                                                   BDT      1608
          1040  22702                             LX7    X2          MAXR = M                                    BDT      1609
                     53637                        SA6    B7+X3       T(RI) = M - RI                              BDT      1610
                          0400001036 +            EQ     RNI2                                                    BDT      1611
  
  
  
                                        *         RELABEL THE R-NUMBERS IN THE INSTRUCTIONS USING THE EQV TABLE  BDT      1613
                                                                                                                 BDT      1614
          1041  43600                    RNI3     MX6    0                                                       BDT      1615
                     54402                        SA4    A0+B2       DI = O.TXT + 2                              BDT      1616
                          6160000020              SB6    R1.RIL                                                  BDT      1617
          1042  56670                             SA6    B7          T(0) = 0                                    BDT      1618
                     56671                        SA6    B7+B1       T(1) = 0                                    BDT      1619
                          0400001046 +            EQ     RNI5                                                    BDT      1620
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    47
        RNI - RENUMBER INSTRUCTIONS                                   RNI 
  
                                        *         PROCESS TYPE II / III INSTRUCTIONS                             BDT      1622
                                                                                                                 BDT      1623
          1043  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
          1044  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
          1045  20744                             LX7    IH.RFP                                                  BDT      1632
                     5072000000                   SA7    A2+                                                     BDT      1633
                                                                                                                 BDT      1634
          1046  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
          1047  0337001043 +                      MI     X7,RNI4     IF TYPE[DI] = II ! III                      BDT      1640
                          0334001056 +            MI     X4,RNI6     IF TYPE[DI] = IV                            BDT      1641
                                                                                                                 BDT      1642
                                        *         PROCESS TYPE I INSTRUCTIONS                                    BDT      1643
                                                                                                                 BDT      1644
          1050  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
          1051  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
          1052  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
          1053  36716                             IX7    X1+X6       RI = T( RI[R1] )                            BDT      1657
                     54750                        SA7    A5                                                      BDT      1658
                          0302001046 +            ZR     X2,RNI5     IF [R2] = 0                                 BDT      1659
          1054  20230                             LX2    -IH.RFP                                                 BDT      1660
                     15720                        BX7    -X0*X2                                                  FCC0643    81
                          53377                   SA3    B7+X7                                                   FCC0643    82
                               36623              IX6    X2+X3       RF = T(RF[R2])                              BDT      1662
          1055  20644                             LX6    IH.RFP                                                  BDT      1663
                     54620                        SA6    A2                                                      BDT      1664
                          0400001046 +            EQ     RNI5                                                    BDT      1665
                                                                                                                 BDT      1666
          1056  26735                    RNI6     UX7    "OC",X5                                                 BDT      1667
                     0530001046 +                 NZ     "OC",RNI5   IF OC[R1] " 0                               BDT      1668
          1057  0400001031 +                      EQ     RNI                                                     BDT      1669
                                                                                                                 BDT      1670
          1060                                    END                                                            BDT      1671
  
                             65700B CM  STORAGE USED             3236 STATEMENTS      783 SYMBOLS      000008 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.176 SECONDS         860 REFERENCES
  
  
  
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        ATS=            0   EXTERNAL*       4/37     27/47     30/06
        BDT             1   PROGRAM*        4/27 E    4/27 L   22/35     27/15 F   27/26     29/51
        BDTA            0   TABLES          4/30 S    5/16      9/07     11/55     17/25     19/55     23/10
        B1=1            0 
        CRW           755   PROGRAM*       41/23     43/08 E   43/08 L   45/47
        CRW0          763   PROGRAM*       43/25 L   44/10     44/21     44/34     45/11
                                           44/08     44/19     44/32     45/05
        CRW1          765   PROGRAM*       43/21     43/36 L   45/22     45/25
        CRW1A         773   PROGRAM*       43/49     44/03 L
        CRW10        1020   PROGRAM*       45/08     45/13 L
        CRW11        1024   PROGRAM*       44/28     45/29 L
        CRW2          777   PROGRAM*       43/42     44/14 L
        CRW3         1003   PROGRAM*       43/41     44/27 L
        CRW4         1007   PROGRAM*       44/27     44/38 L
        CRW5         1010   PROGRAM*       44/39     44/41 L
        CRW7         1012   PROGRAM*       43/56     44/45     44/51 L   45/01
        CRW8         1014   PROGRAM*       44/55     44/57 L
        CRW9         1015   PROGRAM*       44/17     44/23     45/05 L
        D.BML           1   FTNTEXT        41/26
        D.BMP          52   FTNTEXT         5/12     16/07     22/13     33/48     34/06     34/26     36/03     42/08
                                            5/33     18/16     33/30     34/01     34/24     35/57     41/26
        D.EQVP         65   FTNTEXT        11/46     34/54
        D.FTL           5   FTNTEXT        23/09
        D.FTP          65   FTNTEXT        11/45     11/46     23/11     23/13
        D.KSP          37   FTNTEXT        40/18
        D.LDSTL         2   FTNTEXT         5/09     34/43
        D.LDSTP        42   FTNTEXT         5/11      5/47     34/45
        D.L2P          44   FTNTEXT         5/43     34/29
        D.MUCP         35   FTNTEXT         4/21
        D.PIP          36   FTNTEXT        15/08     35/07     36/05     44/16
        D.PRSP         46   FTNTEXT        31/36     31/38     31/47     40/09     40/13     45/07
        D.PSP          47   FTNTEXT        36/03
        D.RDP          35                   4/21 D   11/05     11/08     39/39
        D.REGWL        11   FTNTEXT        43/11
        D.REGWP        11   FTNTEXT        43/14     43/28     45/19     45/31
        D.RJRSP        50   FTNTEXT        40/13     40/15
        D.SRP          26   FTNTEXT        10/09     11/05     11/08     11/45
        D.STL           1   FTNTEXT        41/26
        D.STP          42   FTNTEXT         5/40      5/43     31/38     34/26     34/29     41/26
        D.SZP          27   FTNTEXT        10/11
        D.TYIOL         2   FTNTEXT        43/47
        D.TYIOP        50   FTNTEXT        43/46
        D.TYL           2   FTNTEXT         6/34     14/12
        D.TYP          72   FTNTEXT         5/29     11/32     15/08     16/01     43/46     44/15     44/30
                                            5/33     14/47     15/44     16/07     43/48     44/16     44/38
        D.USESL        11   FTNTEXT         7/18     12/17     23/20     25/07     43/15
        D.USESP         0   FTNTEXT        12/50     23/52     25/42
        D.XMTP         40   FTNTEXT        40/15
        D.XUP          24   FTNTEXT        42/29
        D.ZPP          32   FTNTEXT        31/47     35/21
        D.^DP          51   FTNTEXT        14/47     16/01     43/25     44/15     44/38     45/13
                                           15/44     34/01     43/48     44/30     45/07     46/21
        EQVL            1   TABLES          7/28 S   11/57 S   18/46 S   20/04 S   20/35     25/57
        FA=LOL          0   EXTERNAL*      28/01
        FBM             2   TABLES         20/38 S   21/06
        FTREE           4   TABLES         20/39 S   21/04
        GRASRF          0   EXTERNAL*       7/38
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        HBI             0   EXTERNAL*      29/44
        IH.BMP         71   FTNTEXT         5/21      6/10      9/06     10/08
        IH.CAP         22   FTNTEXT         9/33     12/22
        IH.IHL         22   FTNTEXT         9/04
        IH.IHP          0   FTNTEXT         9/27
        IH.RFL         22   FTNTEXT         7/41
        IH.RFP         44   FTNTEXT         7/43      9/27     10/43     19/33     38/07     47/07     47/39
                                            8/19      9/33     15/46     35/13     44/43     47/11     47/43
        IH.SRFP        66   FTNTEXT         7/48
        IH.STP         72   FTNTEXT         5/47
        I.IIP          72                  29/29 D   38/27     38/52     40/02
        I.INDXL        17 
        I.INDXP        41                  27/08
        I.LSTL         17                  26/17
        I.LSTP         22                  25/17     26/19
        I.LVLL         22                  29/34 D   33/15
        I.LVLP         22                  29/34 D   32/12     33/54     37/38     38/41     41/42
                                           30/20     32/18     35/28     37/48     39/50     41/44
                                           30/47     33/17     35/32     37/51     39/52     42/25
        I.MIP          73                  29/28 D   38/27
        I.NPL          22                  29/35 D   29/37
        I.NPP           0                  29/35 D   29/37     31/24     33/39     34/42
        I.NPREDL       22 
        I.NPREDP        0 
        I.OIL          22                  29/37 D   40/24
        I.OIP           0                  29/37 D
        I.PRIL         22                  29/33 D
        I.PRIORL       17                  24/15
        I.PRIORP       22                  23/13     24/08     24/16     24/21
        I.PRIP         44                  29/33 D   31/18     32/56     33/39     34/42     37/04
        I.RDSTP        71                  29/30 D   39/36     39/48
        I.STCPP        70                  29/31 D   37/36     37/38     37/45
        I.USESL        11 
        I.USESP        60                  23/52     25/42
        JT.LVLL        22                  29/22 D
        JT.LVLP        22                  29/22 D   31/02
        JT.PREDL       22                  29/23 D
        JT.PREDP        0                  29/23 D
        JT.SUCCL       22                  29/20 D
        JT.SUCCP       52                  29/20 D   30/56     32/54
        LBM             3   TABLES         17/20 S
        L.TREE          0   EXTERNAL*      22/32 S   26/07 S   26/36 S   29/56     41/17 S
        L.TXT           0   EXTERNAL*       4/29     21/07     29/57     33/12     37/03     40/45
        MIN.PR         10                  29/39 D   30/17
        MSD           735   PROGRAM*       39/54     41/34 L   41/56     42/16     42/32
        MSD1          740   PROGRAM*       41/45 L   41/47
        MSD2          742   PROGRAM*       41/51 L   41/53
        MSD3          745   PROGRAM*       42/04 L   42/11
        MSD4          751   PROGRAM*       42/09     42/18 L
        MSD5          752   PROGRAM*       41/37     42/24 L
        MVE=            0   EXTERNAL*      40/48
        NBIP            0   EXTERNAL*      11/14
        N.INST          0   MCG             2/02 L    4/33 S    9/46     17/06     20/21     24/17     29/55     40/49
        N.ST            1   MCG             2/03 L    6/18 S    9/49
        OC.ENT          7   FTNTEXT        44/31
        OC.EOS          2   FTNTEXT        11/36
        OC.JIN         70   FTNTEXT        17/38
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        OC.RS           4   FTNTEXT        14/04     24/22     43/18
        OC.TST         76   FTNTEXT        11/15
        O.IIT           0   EXTERNAL*      12/10
        O.SYM          12                   1/35 D
        O.TET           0   EXTERNAL*      12/09
        O.TREE          0   EXTERNAL*       5/05     12/11     21/05     25/06     40/51
                                            9/44     14/13     22/29     40/46
        O.TXT           0   EXTERNAL*       4/39     23/12     30/16     33/07     41/22
                                           21/25     27/48     32/52     40/50
        PI.CNP         44                   4/20 D   12/30
        PS2ABT          0   EXTERNAL*      28/02
        REGS           10   TABLES         17/26 S   19/27
        RIO           464   PROGRAM*       29/42 E   29/42 L   32/44 F   41/24
        RIOA          731   PROGRAM*       37/16     41/26 L
        RIO1          467   PROGRAM*       29/43     29/47 L
        RIO10         535   PROGRAM*       32/32 L   32/35     32/39     32/41
        RIO11         541   PROGRAM*       32/38     32/43 L
        RIO12         545   PROGRAM*       32/49     33/07 L
        RIO13         552   PROGRAM*       33/22 L   33/26
        RIO14         555   PROGRAM*       33/37 L   35/53
        RIO15         556   PROGRAM*       33/44 L   33/49
        RIO16         561   PROGRAM*       34/01 L   34/09
        RIO16A        564   PROGRAM*       34/02     34/11 L
        RIO16B        565   PROGRAM*       34/17 L   34/25
        RIO17         566   PROGRAM*       34/13     34/19 L   34/27     34/30     34/34     34/55     35/22     35/35
        RIO17A        575   PROGRAM*       34/47 L   35/01
        RIO17B        600   PROGRAM*       34/50     34/53     34/56 L
        RIO17C        604   PROGRAM*       35/14     35/17 L
        RIO18         606   PROGRAM*       35/08     35/19     35/26 L   35/29
        RIO19         611   PROGRAM*       34/19     35/39 L
        RIO2          474   PROGRAM*       30/04     30/06 L
        RIO20         613   PROGRAM*       35/43 L   35/48
        RIO21         615   PROGRAM*       35/43     35/52 L
        RIO4          503   PROGRAM*       30/35 L   31/04     31/12
        RIO5          505   PROGRAM*       30/31     30/45 L   32/22
        RIO6          513   PROGRAM*       30/41     31/16 L
        RIO7          516   PROGRAM*       31/23     31/25     31/34 L
        RIO7A         530   PROGRAM*       31/52     32/08 L
        RIO7AA        522   PROGRAM*       31/37     31/47 L
        RIO7B         531   PROGRAM*       31/39     31/43     31/45     31/49     32/06     32/09     32/12 L
        RL            733   PROGRAM*       33/53 S   35/39     41/28 L
        RMODE         732   PROGRAM*       29/47 S   33/08     36/07 S   37/07     37/31     41/27 L
        RNI          1031   PROGRAM*       41/20     46/17 E   46/17 L   47/49
        RNI1         1035   PROGRAM*       46/30 L   46/37
        RNI2         1036   PROGRAM*       46/33 L   46/42
        RNI3         1041   PROGRAM*       46/31     46/48 L
        RNI4         1043   PROGRAM*       47/03 L   47/19
        RNI5         1046   PROGRAM*       46/53     47/14 L   47/38     47/45     47/48
        RNI6         1056   PROGRAM*       47/20     47/47 L
        R1.INP         36   FTNTEXT        15/22
        R1.OCP         60   FTNTEXT        11/13     11/35
        R1.RIL         20   FTNTEXT         6/30      7/46     33/33     39/42     44/46     46/20
                                            7/44     14/03     38/10     43/09     44/54     46/50
        R1.RIP          0   FTNTEXT        14/42
        R1.RJP         40   FTNTEXT        14/40     14/42     35/16     38/11     44/03     47/24
        R1.RKP         20   FTNTEXT        14/38     14/40
        R1.SOP         20   FTNTEXT        17/53     19/24     19/48     31/51     44/20     45/10
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        SEQTIME         2   MCG             2/04 L   24/09 S
        SHL             0   EXTERNAL*      20/42     26/37     33/02
        SIO           621   PROGRAM*       33/10     37/03 L
        SIOCALL         0   PROGRAM*        5/31      7/42     10/10     22/24     29/50 S
        SIO1          625   PROGRAM*       37/16 L   40/38
        SIO1A         627   PROGRAM*       37/21 L   37/23
        SIO10         727   PROGRAM*       29/45     41/22 L
        SIO2          631   PROGRAM*       37/12     37/30 L   39/21     40/33
        SIO2A         637   PROGRAM*       37/54 L   38/43
        SIO2AA        643   PROGRAM*       38/08     38/13 L
        SIO2A1        647   PROGRAM*       38/18     38/27 L
        SIO2B         651   PROGRAM*       38/34 L   38/38
        SIO2C         653   PROGRAM*       37/56     38/14     38/21     38/25     38/28     38/41 L
        SIO2D         655   PROGRAM*       37/34     37/37     37/40     38/49 L
        SIO3          657   PROGRAM*       39/01 L   39/10     39/24     39/55
        SIO3A         667   PROGRAM*       39/12     39/14     39/33 L
        SIO3B         675   PROGRAM*       39/37     39/54 L
        SIO3G         665   PROGRAM*       39/23 L   39/40     39/45
        SIO3H         663   PROGRAM*       39/16 L   39/26
        SIO4          677   PROGRAM*       39/03     40/02 L   40/28
        SIO4A         705   PROGRAM*       40/12     40/14     40/23 L
        SIO5          707   PROGRAM*       38/54     40/16     40/19     40/30 L
        SIO8          721   PROGRAM*       41/01 L   41/14
        SO.LKP          6   FTNTEXT        17/53     19/48     32/08
        SO.REGL         6   FTNTEXT        19/23
        SO.RNL          3   FTNTEXT        31/55
        SO.RNP          0   FTNTEXT        31/54
        SO.RTP          3   FTNTEXT        31/51     31/54     32/08     44/20     45/10
        SST             0   EXTERNAL*      20/51     26/08
        TEST            0   FTNTEXT        27/28 F
        TF              5   TABLES         14/11 S   19/38
        TREEL           6   TABLES          4/41 S    7/26     22/19 S   23/17     26/15
                                            5/15     20/34     22/30     25/54 S   27/51 S
        TSTC            7   TABLES          5/18 S   11/19     12/06
        TYIOM           0   EXTERNAL*      43/51
        T.BIPP         66   FTNTEXT        12/29
        T.EQVLP        25                   9/08
        T.EQVP         72   FTNTEXT        20/50
        T.ITIP         44   FTNTEXT        12/24     12/29
        T.PREDL        22 
        T.PREDP         0 
        T.RDLP         26                  18/43     20/02
        T.SUCCL        22                  21/26     30/23
        T.SUCCP        30                   6/35     17/16     18/45     19/43     21/29     25/14     30/56
                                            9/16     17/43     18/52     19/57     21/30     25/30     31/22
                                           12/45     18/05     19/11     20/13     23/22     26/20
                                           14/33     18/41     19/15     20/16     23/24     30/25
        U.EQVP         71                  26/06
        U.LASTP        73 
        U.LSTL         22 
        U.LSTP         22                  25/12     25/17
        U.PREDL        22                  26/46
        U.PREDP        44                  26/43     26/48
        U.RDLP         72 
        U.SUCCL        22 
        U.SUCCP         0 
        Z.TREE          0   EXTERNAL*       4/37     27/47     30/06
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        Z.TXT           1                   1/35 D
        .DAL            1   FTNTEXT         5/42 F   34/28 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  BDT 
  
  
        BDTM          455   PROGRAM*       28/01     28/04 L   28/06
        BDT2            5   PROGRAM*        4/34      4/37 L
        CIP           355   PROGRAM*       22/25     23/09 L
        CIP1          360   PROGRAM*       23/17 L
        CIP2          365   PROGRAM*       23/33 L   24/06
        CIP3          366   PROGRAM*       23/40 L   23/48
        CIP4          370   PROGRAM*       23/45     23/47 L
        CIP5          400   PROGRAM*       24/25 L   24/36
        CIP5A         403   PROGRAM*       24/34     24/36 L
        CIP6          404   PROGRAM*       23/15     25/06 L
        CIP7          410   PROGRAM*       25/23 L   25/27     25/32     25/47
        CSP1           40   PROGRAM*        6/38 L    6/49
        CSP2           41   PROGRAM*        6/36      6/42 L    6/57      7/04      7/15      7/24
        CSP3           44   PROGRAM*        6/55 L    7/02
        CSP4           47   PROGRAM*        6/42      7/08 L
        CSP5           52   PROGRAM*        7/12      7/17 L
        CSP6           54   PROGRAM*        6/29      7/26 L
        FIL            11   PROGRAM*        5/05 L   27/56
        FIL1           22   PROGRAM*        5/39 L    6/02
        FIL10         123   PROGRAM*       10/31 L   10/36     11/33     11/37
        FIL10B        130   PROGRAM*       10/52     10/54 L
        FIL10C        140   PROGRAM*       10/35     11/29 L
        FIL11         144   PROGRAM*       10/18     11/44 L
        FIL12         145   PROGRAM*       11/49 L   11/53
        FIL2           26   PROGRAM*        5/30      5/32      5/34      5/51      5/55 L    6/03      6/06      6/14
        FIL3           76   PROGRAM*        9/10 L    9/13      9/21
        FIL4          101   PROGRAM*        9/19 L    9/25      9/29      9/35      9/42
        FIL5          106   PROGRAM*        9/32      9/39 L
        FIL6          110   PROGRAM*        9/12      9/44 L
        FIL8          114   PROGRAM*        9/54     10/06 L
        FIL9          117   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           330   PROGRAM*       21/11     21/16 L
        FJL1          332   PROGRAM*       21/12     21/24 L
        FJL2          336   PROGRAM*       21/37 L   21/42
        FJL3          340   PROGRAM*       21/48 L   22/14     22/16
        FJL4          341   PROGRAM*       21/53 L   22/04
        FJL4A         342   PROGRAM*       21/54     21/56 L
        FJL5          346   PROGRAM*       22/09     22/13 L
        FJL6          351   PROGRAM*       21/19     22/24 L
        FOL           166   PROGRAM*       12/07     14/03 L
        FOL1          173   PROGRAM*       14/21 L   14/57     15/18     15/31     15/37     16/08     16/10
        FOL10         224   PROGRAM*       15/41     16/03     16/07 L
        FOL2          174   PROGRAM*       14/17     14/28 L   14/52     15/13     15/54
        FOL3          200   PROGRAM*       14/43     14/46 L
        FOL4          202   PROGRAM*       14/48     14/49     14/52 L
        FOL5          204   PROGRAM*       14/34     15/02 L
        FOL5A         207   PROGRAM*       15/09     15/15 L
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 15.56.05.      PAGE    53
        SYMBOLIC REFERENCE TABLE.                                     BDT 
  
        FOL6          211   PROGRAM*       15/16     15/22 L
        FOL7          214   PROGRAM*       15/24     15/33 L
        FOL8          216   PROGRAM*       15/04     15/41 L
        FOL8A         221   PROGRAM*       15/50     15/52 L
        FOL9          222   PROGRAM*       15/47     15/56 L
        FTL0          237   PROGRAM*       17/41 L   17/48
        FTL1          240   PROGRAM*       17/39     17/45 L   17/49     17/54     17/57
        FTL10         324   PROGRAM*       20/43     20/53 L
        FTL2          245   PROGRAM*       18/03 L   18/18
        FTL3          246   PROGRAM*       17/23     17/46     18/21     19/41     20/14
                                           17/35     18/07 L   18/55     19/49
        FTL3A         262   PROGRAM*       18/50 L   18/57     19/01     19/03     19/07     19/17
        FTL3B         257   PROGRAM*       18/34     18/38 L
        FTL3C         271   PROGRAM*       18/20     19/21 L
        FTL3D         273   PROGRAM*       19/27 L
        FTL4          300   PROGRAM*       19/35     19/41 L
        FTL4A         303   PROGRAM*       19/39     19/45     19/54 L
        FTL5          306   PROGRAM*       20/10 L   20/15     20/19
        FTL6          312   PROGRAM*       18/12     20/21 L
        FTL8          322   PROGRAM*       20/41     20/47 L
        GAS           445   PROGRAM*        9/56     17/11     20/29     27/46 L
        GAS0          444   PROGRAM*       18/10     27/44 L
        IPL           150   PROGRAM*       11/47     12/06 L
        IPL1          154   PROGRAM*       12/19 L   13/01
        IPL2          161   PROGRAM*       12/32     12/43 L
        IPL3          165   PROGRAM*       12/26     12/37     12/52     12/56 L
        IRF1           62   PROGRAM*        7/54 L    7/56      8/25      8/29
        IRF2           65   PROGRAM*        8/08 L    8/10
        IRF3           70   PROGRAM*        8/14      8/16 L
        IRF5           74   PROGRAM*        7/39      7/57      8/31 L
        L.BDTM          7                  28/06 D
        SIT           424   PROGRAM*       24/53     26/15 L
        SIT1          427   PROGRAM*       26/23 L   26/30
        SIT1A         432   PROGRAM*       26/01     26/36 L
        SIT1B         433   PROGRAM*       26/09     26/42 L
        SIT2          436   PROGRAM*       26/52 L   27/11
        SIT3          437   PROGRAM*       26/50     26/55 L   27/02
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     BDT                                27/15 F
  U     FJL                                22/21 F
  U     IH                                  6/20 F
  U     IRF                                 8/33 F
  U     RIO                                32/44 F
  U     TREE                               24/38 F
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1341              IDENT  PRE
                       1341                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1341 
                                        TABLES    COMMON          0       200 
  
  
                                        ENTRY POINTS. 
  
                                        B=PRE            0+           WB               3+           PRE             11+ 
                                        BRN              0+           XR               6+ 
                                        LSN              2+           PIOL            10+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        RRL       O.LOOP    LM        O.APL     VD.       EMR       CPL       SETCORE 
                                        RLI       L.LOOP    MU        L.APL     Z.VDT     DOEND     ADW=      R=FLAG
                                        MACTYP    O.GLT     TOV       O.VDT     Z.RND     DOBGN     Z.IOL     LWAWORK 
                                        MACWDS    N.GL      O.TEND    L.VDT     MVE=      MACORG    FUNTYPE   CUB 
                                        MACINS    O.API     O.TXT     O.ALS     NIRN      Z.ALS     VALUE.    CODE. 
                                        O.EMRB    N.AP      L.TXT     L.ALS     LINENR    Z.MOD     Z.UDI     FPL2
                                        O.MAC     N.GL0     O.CFT     O.RND     Z.APL     RETURNS   MAX.RL    LEVEL2
                                        F.RDT     OPT2      L.CFT     L.RND     CBUF      LCM.OA    IMPA      N.FP
                                        OPTLVL    CBN       O.IOL     O.MOD     FSU       Z.CFT     ATS=
                                        RSELECT   O.LCM     L.IOL     L.MOD     PROSEQ    Z.BST     CWS=
  
  
  
  
                                                  IDENT  PRE                                                     PRE         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=PRE    RPVDEF                                                         PRE         5
                                                  PASS2TM                                                        PRE         6
                                                                                                                 PRE         7
                                   2     M.DOBGN  EQU    2           DO BEGIN MACRO NUMBER                       PRE         8
                                                                                                                 PRE         9
                                        **        PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                 PRE        10
                                                                                                                 PRE        11
                                2004     M.BLK    EQU    2004B       MAX BLOCK SIZE ( IF EXT REFS )              PRE        12
                                                                                                                 PRE        13
                                                  EXT    RRL,RLI,MACTYP,MACWDS,MACINS,O.EMRB,O.MAC,F.RDT         PRE        14
                                                  EXT    OPTLVL,RSELECT,O.LOOP,L.LOOP,O.GLT,N.GL,O.API,N.AP      PRE        15
                                                  EXT    N.GL0,OPT2,CBN,O.LCM                                    PRE        16
                                                  EXT    LM,MU,TOV,O.TEND                                        PRE        17
                                                                                                                 PRE        18
                                                  TABLES TXT,CFT,IOL,APL,VDT,ALS,RND                             PRE        19
                                                  TABLES MOD                                                     PRE        20
                                                                                                                 PRE        21
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     2
  
  
                                        **        FLAGS                                                          PRE        22
                                                                                                                 PRE        23
                                                  ENTRY  BRN                                                     PRE        24
             0                     2     BRN      BSS    2           BASE/LAST R-NUMBERS OCCURING IN THE BLOCK   PRE        25
                                                                                                                 PRE        26
             2  00000000000000000000     LSN      ENTRY. 0           LAST STATEMENT NUMBER ENCOUNTERED           PRE        27
                                                                                                                 PRE        28
             3  00000000000000000000     WB       ENTRY. 0           =1 IF IN A WELLBE LOOP, =1S59 IF OPT=0      PRE        29
             4  00000000000000000000     M.TXT    CON    0           MAX *TXT* LENGTH ( WORKING STORAGE * 3/8 )  PRE        30
             5  00000000000000000000     RS       CON    0           "0 IF RETURNS IN APLIST ( OPT = 2 )         PRE        31
             6  00000000000000000000     XR       ENTRY. 0           EXTERNAL REFS IN BLOCK / SEQUENCE           PRE        32
             7  00000000000000000000     PAPL     CON    0           PREVIOUS LENGTH OF *APL*                    PRE        33
            10  00000000000000000000     PIOL     ENTRY. 0           PREVIOUS LENGTH OF *IOL*                    PRE        34
  
  
  
                                        **        AI. - APLIST INDEX TABLE ENTRY FORMAT                          PRE        36
                                                                                                                 PRE        37
                                                  DESCRIBE AI.,60                                                PRE        38
                                         EQV      DEFINE 1                                                       PRE        39
                                         BASE     DEFINE 1           BASE MEMBER OF A CLASS OF EQUIV APLISTS     FCC0672    11
                                                  DEFINE 4                                                       FCC0672    12
                                         LINK     DEFINE 18                                                      PRE        41
                                         LEN      DEFINE 18                                                      PRE        42
                                         INDX     DEFINE 18                                                      PRE        43
                                                                                                                 PRE        44
                                         BIAS     DEQU   LEN                                                     PRE        45
                                         ORD      DEQU   INDX                                                    PRE        46
  
  
  
                                        **        CFTE - CONTROL FLOW TABLE ENTRY MACRO                          PRE        48
                                        *                                                                        PRE        49
                                        *                FROM = BLOCK NUMBER OF *FROM* EDGE                      PRE        50
                                        *                TO = BLOCK NUMBER / *IH* OF TARGET BLOCK                PRE        51
                                        *                TYPE = *IH* IF *TO* IS AN IH AND THIS IS A JUMP EDGE.   PRE        52
                                                                                                                 PRE        53
                                         CFTE     MACRO  FROM,TO,TYP                                             PRE        54
                                                  IFC    EQ,/FROM/CBN/,2                                         PRE        55
                                                  SA1    CBN                                                     PRE        56
                                                  ELSE   1                                                       PRE        57
                                                  R=     X1,FROM                                                 PRE        58
                                                  R=     X2,TO                                                   PRE        59
                                                  LX1    CF.FROMP                                                PRE        60
                                                  LX2    CF.TOP                                                  PRE        61
                                                  IFC    EQ,/TYP/IH/,3                                           PRE        62
                                                  MX0    1                                                       PRE        63
                                                  LX0    1+CF.IHP                                                PRE        64
                                                  BX2    X0+X2                                                   PRE        65
                                                  BX1    X1+X2                                                   PRE        66
                                                  ADDWRD CFT,X1                                                  PRE        67
                                                  IF     DEF,/DEBUG/CFT,1                                        PRE        68
                                                  RJ     PFE                                                     PRE        69
                                                  ENDM                                                           PRE        70
                                         DBG      IF     DEF,/DEBUG/CFT                                          PRE        71
                                                                                                                 PRE        72
                                        **        PFE - PRINT FLOW EDGE                                          PRE        73
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     3
                                                                      CFTE
  
                                                                                                                 PRE        74
                                         PFE      ROUTINE                                                        PRE        75
                                                  SX7    X6                                                      PRE        76
                                                  SA7    PFEA+1                                                  PRE        77
                                                  AX6    CF.FROMP                                                PRE        78
                                                  SX7    X6                                                      PRE        79
                                                  SA7    A7-B1                                                   PRE        80
                                                  PL     X6,PFE1                                                 PRE        81
                                                  PRINT  CFT,(2I6,Z6),(LSN,PFEA,PFEA+1)                          PRE        82
                                                  EQ     PFE                                                     PRE        83
                                         PFE1     PRINT  CFT,(3I6),(LSN,PFEA,PFEA+1)                             PRE        84
                                                  EQ     PFE                                                     PRE        85
                                                                                                                 PRE        86
                                         PFEA     BSS    2                                                       PRE        87
                                         DBG      ENDIF                                                          PRE        88
  
  
                                        **        CF - CONTROL FLOW TABLE FORMAT                                 PRE        90
                                        *         BLOCK NUMBER CONVENTIONS                                       PRE        91
                                        *                0 - EXIT BLOCK                                          PRE        92
                                        *                1 - PSEUDO ENTRY BLOCK                                  PRE        93
                                        *                2 - FIRST REAL BLOCK                                    PRE        94
                                                                                                                 PRE        95
                                                  DESCRIBE CF.,60                                                PRE        96
                                         IH       DEFINE 1           "0 IF *TO* IS A SYMTAB ORD ( IH )           PRE        97
                                                  DEFINE 11                                                      PRE        98
                                         FROM     DEFINE 18          BLOCK EDGE EMINATES FROM                    PRE        99
                                                  DEFINE 12                                                      PRE       100
                                         TO       DEFINE 18          BLOCK NUMBER / IH OF SUCCESSOR              PRE       101
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     4
                                                                      PRE 
  
                                        **        INITIALIZATION                                                 PRE       103
                                                                                                                 PRE       104
            11  00000000000000000000     PRE      ENTRY.                                                         PRE       105
                                                  QUAL   CODE                                                    PRE       106
            12  5120000000 X                      SA2    =XN.FP                                                  PRE       107
                          5130000000 X            SA3    =XLEVEL2                                                FCC0504    22
            13  12723                             BX7    X2+X3       FPL2 = N.FP ! LEVEL                         PRE       109
                     5170000000 X                 SA7    =XFPL2                                                  PRE       110
                                                                                                                 PRE       111
            14  5110000000 X                      SA1    =XCODE.                                                 PRE       112
                          0100000000 X            CALL   CUB         CUB( CODE. )  */ CHANGE TO CODE. BLOCK      PRE       113
                                                                                                                 PRE       114
                                        *         INITIALIZE FIXED TABLES AT THE TOP OF CORE                     PRE       115
                                        *            *RA* , ... GLT , API , 0 , LOOP , MISC , SYMTAB , *FL*.     PRE       116
                                                                                                                 PRE       117
            15  5110000000 X                      SA1    =XLWAWORK                                               PRE       118
                          5140000000 X            SA4    =XR=FLAG                                                PRE       119
            16  6110000001                        SB1    1                                                       PRE       120
                          10611                   BX6    X1          LW = LWAWORK                                PRE       121
                               43700              MX7    0                                                       PRE       122
            17  0304000021 +                      ZR     X4,PRE1     IF R = 0      */ NO REFMAP                  PRE       123
                          5130000000 X            SA3    L.LOOP                                                  PRE       124
            20  20301                             LX3    1                                                       PRE       125
                     37663                        IX6    X6-X3       LW = LW - 2*L.LOOP                          PRE       126
                          5160000000 X            SA6    O.LOOP      O.LOOP = LW                                 PRE       127
                                                                                                                 PRE       128
            21  67601                    PRE1     SB6    -B1                                                     PRE       129
                     5120000000 X                 SA2    N.AP                                                    PRE       132
            22  5130000000 X                      SA3    N.GL                                                    PRE       133
                          73726                   SX7    X2+B6       N.AP = N.AP - 1                             PRE       134
                               63366              SB3    X6+B6                                                   PRE       135
            23  37667                             IX6    X6-X7       LW = LW - N.AP                              PRE       136
                     54720                        SA7    A2                                                      PRE       137
                          5160000000 X            SA6    O.API       O.API = LW                                  PRE       138
            24  63260                             SB2    X6                                                      PRE       139
                     73736                        SX7    X3+B6       N.GL = N.GL - 1                             PRE       140
                          37667                   IX6    X6-X7       LW = LW - N.GL                              PRE       141
                               54730              SA7    A3                                                      PRE       142
            25  5170000000 X                      SA7    N.GL0       N.GL0 = N.GL  */ NUMBER OF PASS 1 GL"S      PRE       143
                          5160000000 X            SA6    O.GLT       O.GLT = LW                                  PRE       144
            26  73560                             SX5    X6                                                      FCC2204     6
                     63170                        SB1    X7                                                      FCC2204     7
                          0601000031 +            LE     B1,B0,PRE1B IF NO PASS 1 GL*S                           FCC2204     8
            27  13666                             SETZERO X5,X7      ZERO GLT                                    FCC2204     9
                                                                                                                 FCC2204    10
            31  73656                    PRE1B    SX6    X5+B6       LW = LW - 1                                 FCC2204    11
                     6110000001                   SB1    1                                                       FCC2204    12
                               54610              SA6    A1          LWAWORK = LW  */ FOR REFMAP                 PRE       146
            32  5160000000 X                      SA6    O.TEND      O.TEND = LW                                 PRE       147
                                                                                                                 PRE       148
                          43701                   MX7    1                                                       RSM2763X  370
            33  56730                   +         SA7    B3          FOR I = N TO 0;  API(I) = *EQV*             PRE       155
                     67331                        SB3    B3-B1                                                   PRE       156
                          0632000033 +            GE     B3,B2,*                                                 PRE       157
                                                                                                                 PRE       158
            34  0100000000 X                      CALL   CWS=                                                    RSM2763X  371
            35  21702                             AX7    2           M.TXT = MAX-WORK-STORAGE / 4                RSM2763X  372
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     5
                                                                      PRE                 CODE
  
                     63270                        SB2    X7                                                      PRE       163
                          6130012000              SB3    12000B                                                  PRE       164
            36  0632000037 +                      LE     B2,B3,PRE1A M.TXT = MIN( M.TXT , 12000B )               PRE       165
                          7173000000              SX7    B3+                                                     PRE       166
            37  5170000004 +             PRE1A    SA7    M.TXT                                                   PRE       167
                          23116                   AX1    B1,X6                                                   RSM2763X  373
                               56010              ALLOC  TXT,X1      GOOSE THE TABLE MANAGER                     PRE       169
            41  7170000004                        SX7    4                                                       PRE       170
                          5170000000 X            SA7    MU          MU = 4                                      PRE       171
            42  54730                             SA7    A3          L.TXT = 4                                   PRE       172
                                                                                                                 PRE       173
                                        *         INITIALIZE FOR GLOBAL FLOW ANALYSIS IF OPT \ 2                 PRE       174
                                                                                                                 PRE       175
                     5110000000 X                 SA1    OPT2                                                    PRE       176
            43  0301000072 +                      ZR     X1,PRE4     IF OPT2 = 0                                 PRE       177
                                                                                                                 PRE       178
                          0100000000 X            CALL   IMPA        INITIALIZE MASS I/O PROCESSING              PRE       179
                                                                                                                 PRE       180
                                        *         ALLOCATE AND CLEAR OUT A BASE TABLE FOR *UDI*                  PRE       181
                                                                                                                 PRE       182
            44  5120000000 X                      SA2    =XMAX.RL                                                PRE       183
                          5150000000 X            SA5    LM          O.UDB = LM    */ USE/DEF HASH TABLE         PRE       184
            45  7212000101                        SX1    X2+101B                                                 PRE       185
                          5100000001              ALLOC  TXT,X1      ALLOC( TXT , MAX.RL + 101B )                PRE       186
            47  36615                             IX6    X1+X5                                                   PRE       187
                     54650                        SA6    A5          LM = LM+100B+MAX.RL                         PRE       188
                          7170000004              SX7    4                                                       PRE       189
            50  54620                             SA6    A2          O.TXT = LM                                  PRE       190
                     54730                        SA7    A3          L.TXT = 4                                   PRE       191
                          13666                   SETZERO X5,100B    SETZERO( O.UDB , 100B )                     PRE       192
            52  76111                             ALLOC  UDI,2       ALLOC( UDI , 2 )                            PRE       193
                                                                                                                 PRE       194
                                        *         ENTER SPECIAL SYMBOLS WHICH ARE NOT DEAD ON EXIT IN *UDI*      PRE       195
                                        *         SO WE CAN FIND THEM EASLY LATER                                PRE       196
                                                                                                                 PRE       197
            54  5110000000 X                      SA1    =XVALUE.                                                PRE       198
                          5150000000 X            SA5    =XFUNTYPE                                               PRE       199
            55  0301000063 +                      ZR     X1,PRE2     IF VALUE. = 0 */ NOT A FUNCTION SUBPROGRAM  PRE       200
                          7255777776              SX5    X5-1                                                    PRE       201
            56  20571                             LX5    AP.P1P                                                  PRE       202
                     12151                        BX1    X5+X1                                                   PRE       203
                          5100000000 X            ADDWRD IOL,X1                                                  PRE       204
            60  66210                             SB2    B1                                                      PRE       205
                     43500                        MX5    0                                                       PRE       206
                          74620                   SX6    A2          TBL = O.IOL                                 PRE       207
            61  0100000000 X                      CALL   CPL         ADD VALUE. TO IOL                           PRE       208
            62  43700                             MX7    0                                                       PRE       209
                     5170000000 X                 SA7    L.IOL       L.IOL = 0                                   PRE       210
                                                                                                                 PRE       211
            63  7110000004               PRE2     ALLOC  BST,4       ALLOC( BST , 4 )  */ RANDOM INDEX           PRE       212
                                                                                                                 PRE       213
            65  76110                             CFTE   1,2         FLOW( 1 , 2 )                               PRE       214
            67  5110000000 X                      SA1    =XLCM.OA                                                PRE       215
                          10611                   BX6    X1                                                      PRE       216
            70  5160000000 X                      SA6    O.LCM       O.LCM = LCM.OA  */ SET BASE OF ALLOC LCM    PRE       217
                          5120000000 X            SA2    =XRETURNS                                               PRE       218
            71  0312000074 +                      NZ     X2,PRE5     IF RETURNS " 0  */ NEED TO CHECK APLISTS    PRE       219
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     6
                                                                      PRE                 CODE
  
                                                                                                                 PRE       220
            72  5110000444 +             PRE4     SA1    PAL2                                                    PRE       221
                          10611                   BX6    X1          [PAL1] = [PAL2]  */ PLUG CODE               PRE       222
            73  5160000433 +                      SA6    PAL1                                                    PRE       223
                                                                                                                 PRE       224
                                        *         SETUP A *BOS* AT BEGINNING OF *TXT* AND *MOD*.                 PRE       225
                                                                                                                 PRE       226
            74  7110000004               PRE5     ALLOC  MOD,4                                                   PRE       227
            76  5150000001 X                      SA5    F.RDT+OC.BOS                                            PRE       228
                          5120000000 X            SA2    O.TXT                                                   PRE       229
            77  5110000012                        SA1    O.SYM                                                   PRE       230
                          5130000000 X            SA3    O.MOD                                                   PRE       231
           100  43600                             MX6    0                                                       PRE       232
                     27716                        PX7    B1,X6                                                   PRE       233
                          53720                   SA7    X2                                                      PRE       234
                               53730              SA7    X3                                                      PRE       235
           101  53621                             SA6    X2+B1       [R2] = 0                                    PRE       236
                     53631                        SA6    X3+B1                                                   PRE       237
                          10755                   BX7    X5                                                      PRE       238
                               54761              SA7    A6+B1                                                   PRE       239
           102  54671                             SA6    A7+B1                                                   PRE       240
                     5272000002                   SA7    X2+2                                                    PRE       241
                               54671              SA6    A7+B1                                                   PRE       242
           103  5261777776                        SA6    X1-1        [O.SYM-1] = 0 */ SYM 0 IS ^FP, ETC ( GRA )  PRE       243
                                                                                                                 PRE       244
                          76100                   ADDWRD ALS,B0      ADDWRD( ALS , 0 ) */ *ALS* SRCH TERMINATOR  PRE       245
                                                                                                                 PRE       246
           105  5110000000 X                      SA1    OPTLVL                                                  PRE       247
                          0311000111 +            NZ     X1,PPS1     IF OPTLVL " 0                               PRE       248
           106  43601                             MX6    1           WB = 1S59     */ FORCE SEQ ACCUMULATION     PRE       249
                     5160000003 +                 SA6    WB                        */ TO END OF STMT             PRE       250
           107  0400000111 +                      EQ     PPS1                                                    PRE       251
           110                                    BSS    0                                                       PRE       252
                                  12 +   PREBUF   EQU    PRE+1       FWA OF SCRATCH BUFFER SPACE                 PRE       253
                                                                                                                 PRE       254
                                  76     L.INIT   EQU    *-PREBUF    L.INIT CODE, AVAILABLE AS A BUFFER          PRE       255
  
  
  
                                        **        SCRB - DECLARE USE OF SCRATCH CELLS IN *INIT* CODE             PRE       257
                                                                                                                 PRE       258
                                   0     .SCR     SET    0                                                       PRE       259
                                                                                                                 PRE       260
                                                  MACRO  SCRB,LL,N                                               PRE       261
                                         LL       EQU    PREBUF                                                  PRE       262
                                         .SCR     MAX    .SCR,N                                                  PRE       263
                                                  ERRPL  N-L.INIT    LL BUFFER EXCEEDS AVAIL SPACE               PRE       264
                                                  ENDM                                                           PRE       265
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     7
        PPS - SEQUENCE PRE PROCESSING                                 PPS                 CODE
  
                                        **        PPS - PRE PROCESS SEQUENCE, MAIN LOOP                          PRE       267
                                                                                                                 PRE       268
           110  0100000744 +             PPS0     RJ     ERM         ADD RLIST INSTRUCTIONS TO *TXT*             PRE       269
                                                                                                                 PRE       270
                                        *         READ NEXT R-MACRO, CHECK FOR RLIST INSTRUCTION, SPECIAL OR     PRE       271
                                        *         *MACROX* MACRO.                                                PRE       272
                                                                                                                 PRE       273
           111  0100000000 X             PPS1     RJ     RRL         GET NEXT RLIST INST/ MACRO                  PRE       274
           112  5120000001 X                      SA2    RLI+1       R1 = RLI(2)   */ R1  / HEADER WORD          PRE       275
                          26722                   UX7    B2,X2                                                   PRE       276
                               67602              SB6    -B2                                                     PRE       277
           113  5170000001 +                      SA7    BRN+1       [BRN+1] = HEADER WORD */ MAX R-NUM FOR *SQZ PRE       278
                          0712000150 +            GT     B2,B1,PPS3  IF OC[R1] > OC.BOS  */ AN RLIST INSTRUCTION PRE       279
           114  6132000000 X                      SB3    B2+=XMACORG                                             PRE       280
                          5110000000 X            SA1    O.MAC                                                   PRE       281
           115  0603000132 +                      LE     B3,PPS2     IF -OC[R1] \ MACORG  */ *MACROX* MACRO      PRE       282
                          0266000117 +            JP     PPS.M+B6    JUMP( -OC[R1] )                             PRE       283
                                                                                                                 PRE       284
                                        *         PPS.M - JUMP TABLE FOR THE SPECIAL MACROS                      PRE       285
                                                                                                                 PRE       286
           116  0400000460 +                      EQ     BOS         BEGINNING OF STMT MARKER                    PRE       287
           117                           PPS.M    BSS    0                                                       PRE       288
      L      0                                    LOC    0                                                       PRE       289
      L      0  0400000162 +                      EQ     PPS6        EOQ                                         PRE       290
      L      1  0400000431 +                      EQ     PAL         APLIST                                      PRE       291
      L      2  6130000000 X                      SB3    =XDOBGN                                                 PRE       292
                          0400000575 +            EQ     PDB         DO BEGIN                                    PRE       293
      L      3  6130000000 X                      SB3    =XDOEND                                                 PRE       294
                          0400000576 +            EQ     PDE         DO END                                      PRE       295
      L      4  7160000050                        SX6    OC.LD                                                   PRE       296
                          0400000755 +            EQ     PAR         PROCESS ARRAY REFERENCE                     PRE       297
      L      5  7160000051                        SX6    OC.ST                                                   PRE       298
                          0400000755 +            EQ     PAR                                                     PRE       299
      L      6  7160000052                        SX6    OC.STT                                                  PRE       300
                          0400000755 +            EQ     PAR                                                     PRE       301
      L      7  0400400007                        EQ     *+1S17                                                  PRE       302
      L     10  0400000514 +                      EQ     EXM         EXPONENTIAL MACRO                           PRE       303
      L     11  0400000563 +                      EQ     SFR         SAVE FUNCTION RESULT                        PRE       304
      L     12  0400000445 +                      EQ     PIO         I/O LIST USE/DEF INFO                       PRE       305
           132                                    LOC    *O                                                      PRE       306
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     8
        PPS - SEQUENCE PRE PROCESSING                                 PPS                 CODE
  
                                        **        PROCESS *MACROX* MACRO                                         PRE       308
                                                                                                                 PRE       309
           132  0100000000 X             PPS2     CALL   EMR         EXPAND THE MACRO                            PRE       310
           133  5110000000 X                      SA1    MACTYP                                                  PRE       311
                          6221000000              SB2    X1+                                                     PRE       312
           134  0222000135 +                      JP     PPS.MT+B2   JUMP( MACTYP(OC) )                          PRE       313
                                                                                                                 PRE       314
           135                           PPS.MT   BSS    0                                                       PRE       315
      L      0                                    LOC    0                                                       PRE       316
      L      0  0400000110 +                      EQ     PPS0                                                    PRE       317
      L      1  0400000166 +                      EQ     LAB         LABEL DEFINITION                            PRE       318
      L      2  0400000222 +                      EQ     ENT         ENTRY. DEFINITION                           PRE       319
      L      3  0400000230 +                      EQ     EXIT        RETURN MACRO                                PRE       320
      L      4  0400000313 +                      EQ     UJP         UNCONDITIONAL JUMP                          PRE       321
      L      5  0400000270 +                      EQ     IFM         IF MACRO                                    PRE       322
      L      6  0400000237 +                      EQ     AGO         ASSIGNED GOTO                               PRE       323
      L      7  0400000243 +                      EQ     CGO         COMPUTED GOTO                               PRE       324
      L     10  0400000327 +                      EQ     RJX         MACRO WITH A RETURN JUMP                    PRE       325
      L     11  0400000373 +                      EQ     RSM         REG STORE MACRO                             PRE       326
      L     12  0400000413 +                      EQ     STM         STORE MACRO ( PROGRAMMER DEFINED VARIABLE ) PRE       327
           150                                    LOC    *O                                                      PRE       328
  
  
  
                                        *         PROCESS RLIST INSTRUCTION                                      PRE       330
                                                                                                                 PRE       331
           150  0100000713 +             PPS3     RJ     ARI         ADD INSTRUCTION TO *TXT*                    PRE       332
           151  20621                             LX6    59-D.BMP                                                PRE       333
                     0326000111 +                 PL     X6,PPS1     IF ^BM[DI]                                  PRE       334
                                                                                                                 PRE       335
           152  0100000000 X                      CALL   PROSEQ      PROCESS THE BLOCK                           PRE       336
           153  5110000000 X                      SA1    CBN         PBN = CBN                                   PRE       337
                          73611                   SX6    X1+B1       CBN = CBN + 1                               PRE       338
                               54610              SA6    A1                                                      PRE       339
           154  73260                             CFTE   X1,X6       FLOW( PBN , CBN )                           PRE       340
           156  0400000111 +                      EQ     PPS1                                                    PRE       341
                                                                                                                 PRE       342
           157  0100000713 +             PPS4     RJ     ARI         ADD THE INSTRUCTION TO *TXT*                PRE       343
                                                                                                                 PRE       344
           160  7170000000               PPS5     SX7    0           L.RND = 0                                   PRE       345
                          5170000000 X            SA7    L.RND                                                   PRE       346
           161  0400000111 +                      EQ     PPS1                                                    PRE       347
  
  
  
           162  5120000000 X             PPS6     SA2    L.TXT                                                   PRE       349
                          7160000000              SX6    0           L.ALS = 0                                   PRE       350
           163  5160000000 X                      SA6    L.ALS                                                   PRE       351
                          7272777773              SX7    X2-4                                                    PRE       352
           164  0307000011 +                      ZR     X7,PRE      IF L.TXT = 4                                PRE       353
                                                                                                                 PRE       354
                          0100000000 X            CALL   PROSEQ      CODE LAST SEQUENCE                          PRE       355
           165  0400000011 +                      EQ     PRE                                                     PRE       356
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE     9
        SPECIAL MACRO PROCESSING                                      LAB                 CODE
  
                                        **        LAB - LABEL DEFINITION                                         PRE       358
                                                                                                                 PRE       359
           166  0100000000 X             LAB      RJ     RRL                                                     PRE       360
           167  43071                             MX0    -IH.IL                                                  PRE       361
                     5110000001 X                 SA1    RLI+1       R1 WORD                                     PRE       362
                               20017              LX0    IH.IP                                                   PRE       363
           170  15210                             BX2    -X0*X1                                                  PRE       364
                     0312000177 +                 NZ     X2,LAB1     IF NOT IN SYMTAB ( GL"S ARE ALWAYS ACTIVE ) PRE       365
                               43025              MX0    -L.ADF-P.RB                                             PRE       366
           171  5140000632 +                      SA4    CVI                                                     PRE       367
                          5150000012              SA5    O.SYM                                                   PRE       368
           172  43700                             MX7    0                                                       PRE       369
                     10644                        BX6    X4                                                      PRE       370
                          54611                   SA6    A1+B1       [RLI+2] = CVI                               PRE       371
                               54740              SA7    A4          CVI = 0                                     PRE       372
           173  20101                             LX1    1                                                       PRE       373
                     63211                        SB2    X1+B1                                                   PRE       374
                          0421000204 +            EQ     B2,B1,LAB2  IF IH[R1] = 0 */ UNREACHABLE CODE MARKER    PRE       375
           174  53050                             SA0    X5                                                      PRE       376
                     55202                        SA2    A0-B2       WORDB = [O.SYM-2*IH-1]                      PRE       377
                          11602                   BX6    X0*X2       CLEAR ADDRESS DEF AND BLOCK ORDINAL FIELDS  PRE       378
                               54620              SA6    A2                                                      PRE       379
           175  20204                             LX2    59-P.GEN                                                PRE       380
                     0332000177 +                 MI     X2,LAB1     IF A *DO* GENERATED LABEL                   PRE       381
                               20202              LX2    P.GEN-P.RSN                                             PRE       382
           176  0322000111 +                      PL     X2,PPS1     IF ^ REFERENCED */ INACTIVE                 PRE       383
                                                                                                                 PRE       384
           177  5110000003 +             LAB1     SA1    WB                                                      PRE       385
                          0311000157 +            NZ     X1,PPS4     IF WB " 0     */ ADD LABEL AND CONTINUE     PRE       386
           200  5150000000 X                      SA5    OPT2                                                    PRE       387
                          0315000206 +            NZ     X5,LAB3     IF OPT2 " 0                                 PRE       388
                                                                                                                 PRE       389
           201  0100000713 +                      RJ     ARI         ADD LABEL DEF TO *TXT*                      PRE       390
           202  7166777773                        SX6    B6-4                                                    PRE       391
                          0306000111 +            ZR     X6,PPS1     IF L.TXT = 4  */ LABEL DEF FIRST IN SEQ     PRE       392
           203  0400000317 +                      EQ     UJP1                                                    PRE       393
                                                                                                                 PRE       394
                                        *         UNREACHABLE CODE                                               PRE       395
                                                                                                                 PRE       396
           204  0100000000 X             LAB2     CALL   FSU         FORCE NEXT SEQUENCE UPPER                   PRE       397
           205  0400000111 +                      EQ     PPS1                                                    PRE       398
  
  
  
                                        *         OPT=2 LABEL DEFINITION PROCESSING                              PRE       400
                                                                                                                 PRE       401
           206  5130000000 X             LAB3     SA3    L.TXT                                                   PRE       402
                          6233777773              SB3    X3-4                                                    PRE       403
           207  0430000213 +                      ZR     B3,LAB4     IF L.TXT = 4  */ LABEL AT BEGINNING         PRE       404
                                                                                                                 PRE       405
                          0100000000 X            CALL   PROSEQ      PROCESS CURRENT SEQUENCE                    PRE       406
           210  5110000000 X                      SA1    CBN         PBN = CBN                                   PRE       407
                          73611                   SX6    X1+B1       CBN = CBN + 1                               PRE       408
                               54610              SA6    A1                                                      PRE       409
           211  73260                             CFTE   X1,X6       FLOW( PBN , CBN )                           PRE       410
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    10
        SPECIAL MACRO PROCESSING                                      LAB                 CODE
  
                                        *         DEFINE BLOCK NUMBER ASSOCIATED WITH THIS LABEL                 PRE       412
                                                                                                                 PRE       413
           213  0100000713 +             LAB4     RJ     ARI         ADD LABEL DEF TO *TXT*                      PRE       414
           214  5120000000 X                      SA2    CBN                                                     PRE       415
                          6221677776              SB2    X1-I.GL-1                                               PRE       416
           215  0720000217 +                      MI     B2,LAB5     IF IH[R1] < I.GL                            PRE       417
                          5130000000 X            SA3    O.GLT                                                   PRE       418
           216  10622                             BX6    X2                                                      PRE       419
                     53632                        SA6    X3+B2       GLT(H-1) = CBN                              PRE       420
                          0400000111 +            EQ     PPS1                                                    PRE       421
                                                                                                                 PRE       422
           217  5130000012               LAB5     SA3    O.SYM                                                   PRE       423
                          20101                   LX1    1                                                       PRE       424
                               63211              SB2    X1+B1                                                   PRE       425
           220  53030                             SA0    X3                                                      PRE       426
                     55402                        SA4    A0-B2       WORDB = [O.SYM-2*IH-1]                      PRE       427
                          12642                   BX6    X4+X2       BN[WORDB] = CBN */ SET BLOCK NUMBER IN SYMT PRE       428
                               54640              SA6    A4                                                      PRE       429
           221  0400000111 +                      EQ     PPS1                                                    PRE       430
  
  
  
                                        **        ENT - ALTERNATE ENTRY POINT DEFINITION                         PRE       432
                                                                                                                 PRE       433
           222  0100000744 +             ENT      RJ     ERM         ADD INSTRUCTION TO SEQ                      PRE       434
           223  5130000000 X                      SA3    OPT2                                                    PRE       435
                          0303000111 +            ZR     X3,PPS1     IF OPT2 = 0                                 PRE       436
                                                                                                                 PRE       437
           224  5120000000 X                      SA2    CBN                                                     PRE       438
                          76110                   CFTE   1,X2        FLOW( 1 , CBN ) */ PSEUDO ENTRY TO THIS     PRE       439
           227  0400000111 +                      EQ     PPS1                                                    PRE       440
  
  
  
                                        **        EXIT MACRO ( RETURN / NSRETURN )                               PRE       442
                                                                                                                 PRE       443
           230  0100000744 +             EXIT     RJ     ERM         ADD INSTRUCTIONS TO *TXT*                   PRE       444
           231  5110000003 +                      SA1    WB                                                      PRE       445
                          5120000000 X            SA2    OPT2                                                    PRE       446
           232  0311000160 +                      NZ     X1,PPS5     IF WB " 0                                   PRE       447
                          0302000317 +            ZR     X2,UJP1     IF OPT2 = 0                                 PRE       448
                                                                                                                 PRE       449
           233  5110000000 X                      CFTE   CBN,B0      FLOW( CBN , 0 ) */ SHOW FLOW TO EXIT        PRE       450
           236  0400000324 +                      EQ     UJP3                                                    PRE       451
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    11
        SPECIAL MACRO PROCESSING                                      GOTO                CODE
  
                                        **        GOTO - ASSIGNED / COMPUTED GOTO PROCESSING                     PRE       453
                                                                                                                 PRE       454
           237  0100000744 +             AGO      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                   PRE       455
           240  5150000002 X                      SA5    =XCBUF+2                                                PRE       456
                          66500                   SB5    B0          FLAG = 0                                    PRE       457
                               73650              SX6    X5          N.BRANCH = CBUF(2)                          PRE       458
           241  0316000246 +                      NZ     X6,CGO1     IF N.BRANCH " 0                             PRE       459
                          5110000003 +            SA1    WB                                                      PRE       460
           242  0301000317 +                      ZR     X1,UJP1     IF WB = 0                                   PRE       461
                          0400000111 +            EQ     PPS1                                                    PRE       462
  
  
           243  0100000744 +             CGO      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                   PRE       464
           244  5120000001 X                      SA2    =XCBUF+1    CBUF(1) = -( N.BRANCH + 1 )                 PRE       465
                          66510                   SB5    B1          FLAG = 1                                    PRE       466
                               73321              SX3    X2+B1                                                   PRE       467
           245  14633                             BX6    -X3                                                     PRE       468
                                                                                                                 PRE       469
           246  5110000000 X             CGO1     SA1    O.TXT                                                   PRE       470
                          63210                   SB2    X1                                                      PRE       471
                               77272              SX2    B7-B2       LT = LTXT - O.TXT  */ SAVE OLD TXT LENGTH   PRE       472
           247  27752                             PX7    B5,X2                                                   PRE       473
                     5170000013 +                 SA7    CGOA+1      CGOA = N.BRANCH                             PRE       474
                                                                                                                 PRE       475
           250  5160000012 +             CGO2     SA6    CGOA                                                    PRE       476
                          0100000000 X            RJ     RRL         READ IN UJP                                 PRE       477
           251  0100000713 +                      RJ     ARI         ADD IT TO *TXT*                             PRE       478
           252  5110000012 +                      SA1    CGOA                                                    PRE       479
                          7261777776              SX6    X1-1        CGOA = CGOA - 1                             PRE       480
           253  0316000250 +                      NZ     X6,CGO2     IF CGOA " 0                                 PRE       481
                                                                                                                 PRE       482
                          5110000003 +            SA1    WB                                                      PRE       483
           254  5120000000 X                      SA2    OPT2                                                    PRE       484
                          0311000160 +            NZ     X1,PPS5     IF WB " 0                                   PRE       485
           255  0302000317 +                      ZR     X2,UJP1     IF OPT2 = 0                                 PRE       486
                                                                                                                 PRE       487
                                        *         COLLECT FLOW INFO                                              PRE       488
                                                                                                                 PRE       489
                          76100                   ADDWRD TXT,B0                                                  PRE       490
           257  5110000013 +                      SA1    CGOA+1                                                  PRE       491
                          63220                   SB2    X2                                                      PRE       492
                               53512              SA5    B2+X1       R1J = O.TXT + LT                            PRE       493
                                                                                                                 PRE       494
           260  5110000000 X             CGO3     CFTE   CBN,X5,IH   FLOW( CBN , IH[R1J] )                       PRE       495
           263  5055000004                        SA5    A5+4        R1J = R1J + 4                               PRE       496
                          0315000260 +            NZ     X5,CGO3     IF [R1J] " 0                                PRE       497
                                                                                                                 PRE       498
           264  5110000013 +                      SA1    CGOA+1                                                  PRE       499
                          5120000000 X            SA2    L.TXT                                                   PRE       500
           265  7262777776                        SX6    X2-1        L.TXT = L.TXT - 1                           PRE       501
                          26321                   UX3    B2,X1                                                   PRE       502
           266  0520000267 +                      NZ     B2,CGO4     IF FLAG " 0   */ C GOTO                     PRE       503
                          10633                   BX6    X3          L.TXT = LT                                  PRE       504
           267  54620                    CGO4     SA6    A2                                                      PRE       505
                     0400000324 +                 EQ     UJP3                                                    PRE       506
                                                                                                                 PRE       507
                                         CGOA     SCRB   2                                                       PRE       508
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    12
        SPECIAL MACRO PROCESSING                                      IFM                 CODE
  
                                        **        IFM - IF MACRO PROCESSING                                      PRE       510
                                                                                                                 PRE       511
           270  0100000744 +             IFM      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                   PRE       512
           271  5110000000 X                      SA1    OPT2                                                    PRE       513
                          7170000000              SX7    0           L.RND = 0                                   PRE       514
           272  5170000000 X                      SA7    L.RND                                                   PRE       515
                          0301000111 +            ZR     X1,PPS1     IF OPT2 = 0                                 PRE       516
                                                                                                                 PRE       517
                                        *         COLLECT FLOW INFORMATION                                       PRE       518
                                                                                                                 PRE       519
           273  66211                             SB2    B1+B1                                                   PRE       520
                     66422                        SB4    B2+B2                                                   PRE       521
                          67774                   SB7    B7-B4       R1A = LTXT - 4  */ R1 OF LAST JUMP          PRE       522
                               56570              SA5    B7          R1L = [R1A]                                 PRE       523
           274  26435                             UX4    B3,X5                                                   PRE       524
                     76630                        SX6    B3                                                      PRE       525
                          5160000012 +            SA6    IFMA        I = IFMA;  [I] = OC[R1L] */ OC OF LAST JP   PRE       526
                                                                                                                 PRE       527
           275  56472                    IFM1     SA4    B7+B2       DI = R1A + 2                                PRE       528
                     67774                        SB7    B7-B4       R1A = R1A - 4                               PRE       529
                          20432                   LX4    59-D.JPP                                                PRE       530
                               55341              SA3    A4-B1       R2 = DI - 1                                 PRE       531
           276  0324000301 +                      PL     X4,IFM3     IF ^JP[DI]                                  PRE       532
                                                  LX3    -IH.IHP                                                 PRE       533
                          20443                   LX4    D.JPP-D.TYP                                             PRE       534
           277  0324000300 +                      PL     X4,IFM2     IF TY[DI] = III                             PRE       535
                          5033777776              SA3    A3-1        R1 = R2 - 1                                 PRE       536
                                                  LX3    -R1.IHP                                                 PRE       537
           300  73630                    IFM2     SX6    X3                                                      PRE       538
                     54661                        SA6    A6+B1       I = I + 1;  [I] = IH[R2/R1]                 PRE       539
                          0676000275 +            GE     B7,B6,IFM1  IF R1A \ FTXT                               PRE       540
                                                                                                                 PRE       541
           301  43600                    IFM3     MX6    0                                                       PRE       542
                     54661                        SA6    A6+B1       I = I + 1;  [I] = 0                         PRE       543
                          5150000013 +            SA5    IFMA+1      I = IFMA + 1                                PRE       544
                                                                                                                 PRE       545
           302  5110000000 X             IFM4     CFTE   CBN,X5,IH   FLOW( CBN , [I] )                           PRE       546
           305  54551                             SA5    A5+B1       I = I + 1                                   PRE       547
                     0315000302 +                 NZ     X5,IFM4     IF [I] " 0                                  PRE       548
                                                                                                                 PRE       549
           306  5110000012 +                      SA1    IFMA                                                    PRE       550
                          7261777704              SX6    X1-OC.UJP                                               PRE       551
           307  0306000324 +                      ZR     X6,UJP3     IF OC[LASTJP] = OC.UJP  */ TERMINATE BLOCK  PRE       552
                                                                                                                 PRE       553
                          5110000000 X            CFTE   CBN,X1+B1   FLOW( CBN , CBN + 1 )                       PRE       554
           312  0400000324 +                      EQ     UJP3                                                    PRE       555
                                                                                                                 PRE       556
                                         IFMA     SCRB   5                                                       PRE       557
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    13
        SPECIAL MACRO PROCESSING                                      UJP                 CODE
  
                                        **        UJP - UNCONDITIONAL JUMP  ( UJP LAB ) PROCESSING               PRE       559
                                                                                                                 PRE       560
           313  0100000744 +             UJP      RJ     ERM         ADD INSTRUCTION TO *TXT*                    PRE       561
           314  5110000003 +                      SA1    WB                                                      PRE       562
                          5120000000 X            SA2    OPT2                                                    PRE       563
           315  7170000000                        SX7    0           L.RND = 0                                   PRE       564
                          5170000000 X            SA7    L.RND                                                   PRE       565
           316  0311000111 +                      NZ     X1,PPS1     IF WB " 0     */ OPT=1  & OPTIMIZABLE LOOP  PRE       566
                          0312000321 +            NZ     X2,UJP2     IF OPT2 " 0   */ FLOW ANALYSIS              PRE       567
                                                                                                                 PRE       568
           317  0100000000 X             UJP1     CALL   PROSEQ      PROCESS CURRENT SEQUENCE                    PRE       569
           320  0400000111 +                      EQ     PPS1                                                    PRE       570
                                                                                                                 PRE       571
           321  56360                    UJP2     SA3    B6          R1 = FTXT     */ R1 OF UJP                  PRE       572
                     5110000000 X                 CFTE   CBN,X3,IH   FLOW( CBN , IH[R1] )                        PRE       573
                                                                                                                 PRE       574
           324  0100000000 X             UJP3     CALL   PROSEQ      PROCESS BLOCK                               PRE       575
           325  5110000000 X                      SA1    CBN                                                     PRE       576
                          73611                   SX6    X1+B1       CBN = CBN + 1 */ ADVANCE TO NEXT BLOCK      PRE       577
                               54610              SA6    A1                                                      PRE       578
           326  0400000111 +                      EQ     PPS1                                                    PRE       579
  
  
  
                                        **        RJX - MACRO THAT CONTAINS A RETURN JUMP                        PRE       581
                                                                                                                 PRE       582
           327  0100000744 +             RJX      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                   PRE       583
           330  43601                             MX6    1           APLF = 1S59                                 PRE       584
                     5160000006 +                 SA6    XR                                                      PRE       585
                               43700              MX7    0                                                       PRE       586
           331  5126000002                        SA2    B6+2        DI = R1 + 2   */ OF FIRST INSTRUCTION       PRE       587
                          43001                   MX0    1                                                       PRE       588
                               20230              LX2    59-D.LDP                                                PRE       589
           332  5170000000 X                      SA7    L.RND       L.RND = 0                                   PRE       590
                                                                                                                 PRE       591
                          0322000334 +            PL     X2,RJX1     IF ^LD[DI]    */ MACRO IS AN RJ ONLY        PRE       592
           333  56361                             SA3    B6+B1       IH = R1 + 1                                 PRE       593
                                                  LX0    1+IH.LDP                                                PRE       594
                     12603                        BX6    X0+X3       LD[IH] = 1  ( TO INHIBIT ST/LD SQUEEZING )  PRE       595
                          54630                   SA6    A3          APLF = [IH]                                 PRE       596
                                                                                                                 PRE       597
           334  5117777773               RJX1     SA1    B7-4        R1 = LTXT - 4                               PRE       598
                          5120000012              SA2    O.SYM                                                   PRE       599
           335  5150000000 X                      SA5    OPT2                                                    PRE       600
                          5160000012 +            SA6    RJXA        RJXA = APLF                                 PRE       601
           336  20101                             LX1    1                                                       PRE       602
                     53020                        SA0    X2                                                      PRE       603
                          63211                   SB2    X1+B1                                                   PRE       604
                               55302              SA3    A0-B2       WORDB = [O.SYM-2*IH[R1]-1]                  PRE       605
           337  43072                             MX0    -L.FTYP                                                 PRE       606
                     20322                        LX3    -P.FTYP                                                 PRE       607
                          15030                   BX0    -X0*X3      F = FTYP[WORDB]                             PRE       608
                               73701              SX7    X0+B1                                                   PRE       609
           340  20766                             LX7    FI.FTP                                                  PRE       610
                     63300                        SB3    X0                                                      PRE       611
                          54711                   SA7    A1+B1       R2 = R1 + 1;  FT[R2] = F + 1                PRE       612
                                                                                                                 PRE       613
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    14
        SPECIAL MACRO PROCESSING                                      RJX                 CODE
  
                                        *         PROCESS *BEF*                                                  PRE       614
                                                                                                                 PRE       615
           341  0531000344 +                      NE     B3,B1,RJX2  IF F " 1                                    PRE       616
                          20327                   LX3    P.FTYP-P.RA                                             PRE       617
                               73430              SX4    X3                                                      PRE       618
           342  20444                             LX4    FI.REGPP                                                PRE       619
                     12747                        BX7    X4+X7       REGP[R2] = RA[WORDB]  */ B-REGS PRESERVED   PRE       620
                          54770                   SA7    A7                                                      PRE       621
           343  0400000111 +                      EQ     PPS1                                                    PRE       622
                                                                                                                 PRE       623
                                        *         PROCESS I/O LIST FUNCTION                                      PRE       624
                                                                                                                 PRE       625
           344  0430000352 +             RJX2     ZR     B3,RJX3     IF F = 0                                    PRE       626
                                                                                                                 FCC1624X    5
           345  0305000111 +             RJX2A    ZR     X5,PPS1     IF OPT2 = 0                                 FCC1624X    6
                          5110000010 +            SA1    PIOL        INDX[R1+1] = PIOL                           PRE       628
           346  5120000000 X                      SA2    L.IOL                                                   PRE       629
                          37321                   IX3    X2-X1       LEN[R1+1] = L.IOL - PIOL                    PRE       630
           347  0303000111 +                      ZR     X3,PPS1     IF LEN[R1+1] = 0                            PRE       631
                          20322                   LX3    FI.LENP                                                 PRE       632
                               36431              IX4    X3+X1                                                   PRE       633
           350  12747                             BX7    X4+X7                                                   PRE       634
                     54770                        SA7    A7                                                      PRE       635
                          10622                   BX6    X2          PIOL = L.IOL                                PRE       636
                               54610              SA6    A1                                                      PRE       637
           351  0400000111 +                      EQ     PPS1                                                    PRE       638
                                                                                                                 PRE       639
                                        *         PROCESS USER FUNCTION                                          PRE       640
                                                                                                                 PRE       641
           352  6256577777               RJX3     SB5    X6-I.AP                                                 PRE       642
                          0750000111 +            MI     B5,PPS1     IF IH[APLF] < I.AP */ NO APLIST             PRE       643
           353  6256477777                        SB5    X6-I.IO                                                 PRE       644
                          0650000345 +            PL     B5,RJX2A    IF IH[APLF] \ I.IO */ BUF I/O COM SPOIL     FCC1624X    7
           354  0305000371 +                      ZR     X5,RJX6     IF OPT2 = 0                                 PRE       646
                                                                                                                 PRE       647
                                        *         COUNT APLIST LENGTH, CHAIN APLIST TO *UDI*                     PRE       648
                                                                                                                 PRE       649
                          5150000007 +            SA5    PAPL                                                    PRE       650
           355  5140000000 X                      SA4    L.APL                                                   PRE       651
                          5120000000 X            SA2    RETURNS                                                 PRE       652
           356  37645                             IX6    X4-X5       LEN = L.APL - PAPL                          PRE       653
                     63260                        SB2    X6                                                      PRE       654
                          0302000363 +            ZR     X2,RJX5     IF RETURNS = 0  */ NO RETURNS IN APLIST     PRE       655
           357  5110000000 X                      SA1    O.APL                                                   PRE       656
                          66320                   SB3    B2          N = LEN                                     PRE       657
                               67201              SB2    -B1         LEN = -1                                    PRE       658
           360  63450                             SB4    X5                                                      PRE       659
                     53414                        SA4    X1+B4       AI = O.APL + PAPL                           PRE       660
           361  63540                    RJX4     SB5    X4          IHF = IH[A                                  PRE       661
                     66221                        SB2    B2+B1       LEN = LEN + 1                               PRE       662
                          5044000001              SA4    A4+1        AI = AI + 1                                 PRE       663
           362  0450000363 +                      ZR     B5,RJX5     IF IHF = 0                                  PRE       664
                          0723000361 +            LT     B2,B3,RJX4  IF LEN < N                                  PRE       665
                                                                                                                 PRE       666
           363  0420000371 +             RJX5     ZR     B2,RJX6     IF LEN = 0                                  PRE       667
                          7160000000 X            SX6    O.APL                                                   PRE       668
           364  0100000000 X                      CALL   CPL         CHAIN PARAMETER LIST TO *UDI*               PRE       669
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    15
        SPECIAL MACRO PROCESSING                                      RJX                 CODE
  
           365  5120000000 X                      SA2    O.TXT                                                   PRE       670
                          5130000000 X            SA3    L.TXT                                                   PRE       671
           366  20022                             LX0    FI.LENP                                                 PRE       672
                     5170000010 +                 SA7    PIOL        PIOL = L.IOL                                PRE       673
                               36723              IX7    X2+X3                                                   PRE       674
           367  5257777774                        SA5    X7-3        R2 = O.TXT + L.TXT - 3                      PRE       675
                          12101                   BX1    X0+X1                                                   PRE       676
                               36615              IX6    X1+X5                                                   PRE       677
           370  54650                             SA6    A5                                                      PRE       678
                                                                                                                 PRE       679
           371  5130000012 +             RJX6     SA3    RJXA                                                    PRE       680
                          0100000655 +            CALL   PPL         PROCESS PARAMETER LIST                      PRE       681
           372  0400000111 +                      EQ     PPS1                                                    PRE       682
                                                                                                                 PRE       683
                                         RJXA     SCRB   1                                                       PRE       684
  
  
  
                                        **        RSM - REG STORE MACRO                                          PRE       686
                                                                                                                 PRE       687
           373  0100000000 X             RSM      RJ     RRL         GET INSTRUCTION                             PRE       688
           374  5120000000 X                      SA2    O.TXT                                                   PRE       689
                          5150000000 X            SA5    L.TXT                                                   PRE       690
           375  5110000001 X                      SA1    RLI+1       R1                                          PRE       691
                          36725                   IX7    X2+X5                                                   PRE       692
                               43054              MX0    -R1.RIL                                                 PRE       693
           376  5247777773                        SA4    X7-4                                                    PRE       694
                          6120777773              SB2    -4          WC = -4                                     PRE       695
                                                                                                                 PRE       696
           377  13614                    RSM1     BX6    X1-X4                                                   PRE       697
                     5044777773                   SA4    A4-4                                                    PRE       698
                               15760              BX7    -X0*X6                                                  PRE       699
           400  6122000004                        SB2    B2+4        WC = WC + 4                                 PRE       700
                          0317000377 +            NZ     X7,RSM1     IF RI"S DONT MATCH                          PRE       701
                                                                                                                 PRE       702
           401  0520000403 +                      NZ     B2,RSM2     IF WC " 0                                   PRE       703
                          0100000713 +            RJ     ARI                                                     PRE       704
           402  0400000111 +                      EQ     PPS1                                                    PRE       705
                                                                                                                 PRE       706
           403  76020                    RSM2     SX0    B2                                                      PRE       707
                     7110000004                   ALLOC  TXT,4       SUFFLE SEQUENCE TO GET RS NEXT TO DEF       PRE       708
           405  36525                             IX5    X2+X5                                                   PRE       709
                     37250                        IX2    X5-X0       FROM = O.TXT + OLD(L.TXT) - WC              PRE       710
                          7232000004              SX3    X2+4        TO = FROM + 4                               PRE       711
           406  63220                             SB2    X2                                                      PRE       712
                     73100                        SX1    X0                                                      PRE       713
                          0100000000 X            RJ     MVE=        MOVE JUNK IN BETWEEN DEF UP                 PRE       714
           407  5110000001 X                      SA1    RLI+1       R1                                          PRE       715
                          5120000000 X            SA2    RLI                                                     PRE       716
           410  10611                             BX6    X1                                                      PRE       717
                     43700                        MX7    0                                                       PRE       718
                          56620                   SA6    B2          [R1] = [RLI+1]                              PRE       719
                               56721              SA7    B2+B1       [R2] = 0                                    PRE       720
           411  10622                             BX6    X2                                                      PRE       721
                     54671                        SA6    A7+B1                                                   PRE       722
                          54761                   SA7    A6+B1                                                   PRE       723
           412  0400000111 +                      EQ     PPS1                                                    PRE       724
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    16
        SPECIAL MACRO PROCESSING                                      STM                 CODE
  
                                        **        STM - PROCESS STORE TO PROGRAMMER DEFINED VARIABLE             PRE       726
                                        *         SEARCH *RND* FOR STORE INTO SAME *IH* AND CLEAR IF FOUND       PRE       727
                                                                                                                 PRE       728
           413  0100000744 +             STM      RJ     ERM         EXPAND MACRO                                PRE       729
                                                                                                                 PRE       730
           414  5120000000 X             STM0     SA2    L.RND                                                   PRE       731
                          5110000000 X            SA1    O.RND                                                   PRE       732
           415  0302000111 +                      ZR     X2,PPS1     IF L.RND = 0                                PRE       733
                          5140000012              SA4    O.SYM                                                   PRE       734
           416  6120000051                        SB2    OC.ST                                                   PRE       735
                          43052                   MX0    -IH.IHL                                                 PRE       736
                               63310              SB3    X1                                                      PRE       737
           417  53323                             SA3    B3+X2       LW = O.RND + L.RND                          PRE       738
                     5204000000                   SA0    X4+                                                     PRE       739
                               10733              BX7    X3          LAST = [LW]                                 PRE       740
                                                                                                                 PRE       741
           420  6177777773               STM1     SB7    B7-4        LTXT = LTXT - 4                             PRE       742
                          56570                   SA5    B7          R1 = LTXT                                   PRE       743
                               26645              UX6    B4,X5                                                   PRE       744
           421  0542000111 +                      NE     B4,B2,PPS1  IF OC[R1] " OC.ST                           PRE       745
                          0776000111 +            LT     B7,B6,PPS1  IF LTXT < FTXT  */ END OF MACRO             PRE       746
           422  56571                             SA5    B7+B1       R2 = LTXT + 1                               PRE       747
                     15650                        BX6    -X0*X5                                                  PRE       748
                          20501                   LX5    1                                                       PRE       749
                               63551              SB5    X5+B1                                                   PRE       750
           423  55105                             SA1    A0-B5       WORDB = [O.SYM-2*IH[R2]-1]                  PRE       751
                     20161                        LX1    59-P.SUB                                                PRE       752
                          0321000420 +            PL     X1,STM1     IF ^SUB[WORDB]  */ IH NOT USED IN SUBSCRIPT PRE       753
           424  56230                             SA2    B3          I = O.RND                                   PRE       754
                     54630                        SA6    A3          [LW] = IH[R2]                               PRE       755
                                                                                                                 PRE       756
           425  13462                    STM2     BX4    X6-X2                                                   PRE       757
                     5022000001                   SA2    A2+1        I = I + 1                                   PRE       758
                               63540              SB5    X4                                                      PRE       759
           426  0550000425 +                      NZ     B5,STM2     IF IH[I-1] " IH[R2]                         PRE       760
                                                                                                                 PRE       761
                          21444                   AX4    IH.CAIHL                                                PRE       762
                               54730              SA7    A3          [LW] = LAST   */ RESTORE WORD               PRE       763
           427  0304000420 +                      ZR     X4,STM1     IF RN[I-1] = 0  */ ENTRY NOT IN TABLE       PRE       764
                                                                                                                 PRE       765
                          7170000000              SX7    0                                                       PRE       766
           430  5170000000 X                      SA7    L.RND       L.RND = 0                                   PRE       767
                          0400000111 +            EQ     PPS1                                                    PRE       768
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    17
        SPECIAL MACRO PROCESSING                                      PAL                 CODE
  
                                        **        PAL - PROCESS APLIST MACRO                                     PRE       770
                                                                                                                 PRE       771
           431  53111                    PAL      SA1    X1+B1                                                   PRE       772
                     5100000000 X                 ADDWRD APL,X1                                                  PRE       773
                                                                                                                 PRE       774
                                        *         COLLECT FLOW INFO IF *RETURNS* APPEARED ON A *CALL*            PRE       775
                                        *         AND OPT2 " 0 . OTHERWISE CODE IS BYPASSED BY A PLUG .          PRE       776
                                                                                                                 PRE       777
           433  5110000012               PAL1     SA1    O.SYM                                                   PRE       778
                                                  LX6    -AP.IHP                                                 PRE       779
                          6226000000              SB2    X6+                                                     PRE       780
           434  0420000111 +                      ZR     B2,PPS1     IF IH[AP] = 0                               PRE       781
                          7246677777              SX4    X6-I.GL                                                 PRE       782
           435  0324000111 +                      PL     X4,PPS1     IF IH[AP] \ I.GL                            PRE       783
                                                                                                                 PRE       784
                          5201777776              SA0    X1-1                                                    PRE       785
           436  66322                             SB3    B2+B2                                                   PRE       786
                     55203                        SA2    A0-B3       WORDB = [O.SYM-1-2*IH]                      PRE       787
                          43670                   MX6    -L.TYP                                                  PRE       788
                               20204              LX2    -P.TYP                                                  PRE       789
           437  15326                             BX3    -X6*X2                                                  PRE       790
                     7243777771                   SX4    X3-T.LAB                                                PRE       791
           440  0314000111 +                      NZ     X4,PPS1     IF TYPE[WORDB] " T.LAB                      PRE       792
                                                                                                                 PRE       793
                          5160000005 +            SA6    RS          RS = 1        */ INDICATE SEQ TERMINATION W PRE       794
           441  5110000000 X                      CFTE   CBN,B2,IH   FLOW( CBN , IH[AP] )                        PRE       795
           444  0400000111 +             PAL2     EQ     PPS1                                                    PRE       796
  
  
  
                                        **        PIO - PROCESS I/O SYMBOL LIST FOR OPT=2 USE/DEF INFO           PRE       798
                                                                                                                 PRE       799
           445  20254                    PIO      LX2    -R1.SOP     RIGHT JUSTIFY FORMAT SYMBOL ORDINAL         FCC2202    57
                     43056                        MX0    -R1.SOL                                                 FCC2202    58
                          15620                   BX6    -X0*X2                                                  FCC2202    59
                               20256              LX2    -R1.INP+R1.SOP RIGHT JUSTIFY OPERAND COUNT              FCC2202    60
           446  0306000455 +                      ZR     X6,PIO2     IF NO FORMAT                                FCC2202    61
                          5110000012              SA1    O.SYM                                                   FCC2202    62
           447  36066                             IX0    X6+X6       I*ORDINAL                                   FCC2202    63
                     37010                        IX0    X1-X0                                                   FCC2202    64
                          5210777776              SA1    X0-1        WORDB = [O.SYM-2*ORD-1]                     FCC2202    65
           450  43073                             MX0    59                                                      FCC2202    66
                     15610                        BX6    -X0*X1      BIT 0 = 1 MEANS V OR = IN FORMAT            FCC2202    67
                          20673                   LX6    -1                                                      FCC2202    68
           451  0306000455 +                      ZR     X6,PIO2                                                 FCC2202    69
                          63220                   SB2    X2          LENGTH, NO OF ENTRIES IN TABLE              FCC2202    70
           452  5150000000 X                      SA5    O.MAC       ADDRESS OF MACRO REF, SEE READRL            FCC2202    71
                          53550                   SA5    X5                                                      FCC2202    72
           453  54551                    PIO1     SA5    A5+B1       X5 = IOLIST ENTRY                           FCC2202    73
                     15756                        BX7    -X6*X5      CLEAR DEF BIT IF V OR = IS IN FORMAT        FCC2202    74
                          54750                   SA7    A5          REPLACE MODIFIED IOLIST ENTRY               FCC2202    75
                               67221              SB2    B2-B1       N = N - 1                                   FCC2202    76
           454  0520000453 +                      NZ     B2,PIO1                                                 FCC2202    77
           455  7160000000 X             PIO2     SX6    O.MAC       ADDRESS OF MACRO REF, SEE READRL            FCC2202    78
                          76510                   SX5    B1          TABLE INDEX OF PARAMETER LIST               FCC2202    79
                               63220              SB2    X2          NUMBER OF ENTRIES IN TABLE                  FCC2202    80
           456  0100000000 X                      CALL   CPL         CHAIN I/O LIST ENTRIES TO *UDI*             PRE       804
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    18
        SPECIAL MACRO PROCESSING                                      PIO                 CODE
  
           457  0400000111 +                      EQ     PPS1                                                    PRE       805
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    19
        SPECIAL MACRO PROCESSING                                      BOS                 CODE
  
                                        **        BOS - PROCESS BEGIN OF STATEMENT MARKER                        PRE       807
                                                                                                                 PRE       808
           460  5150000000 X             BOS      SA5    O.TXT                                                   PRE       809
                          5140000000 X            SA4    L.TXT                                                   PRE       810
           461  36645                             IX6    X4+X5                                                   PRE       811
                     63751                        SB7    X5+B1                                                   PRE       812
                          5236777773              SA3    X6-4                                                    PRE       813
           462  26723                             UX7    B2,X3                                                   PRE       814
                     0521000470 +                 NE     B2,B1,BOS1  IF LAST IN *TXT* IS NOT A *BOS*             PRE       815
                               10722              BX7    X2                                                      PRE       816
           463  54730                             SA7    A3          OVERWRITE PREVIOUS *BOS*                    PRE       817
                     21736                        AX7    R1.INP                                                  PRE       818
                          73670                   SX6    X7                                                      PRE       819
           464  5160000002 +                      SA6    LSN         SET LAST STMT NUMBER                        PRE       820
                          7244777773              SX4    X4-4                                                    PRE       821
           465  0314000111 +                      NZ     X4,PPS1     IF NOT FIRST *BOS*                          PRE       822
                          5160000000 X            SA6    =XLINENR    LINENR = FSN  */ SET FIRST STMT NUMBER      PRE       823
           466  73720                             SX7    X2                                                      PRE       824
                     5170000000 +                 SA7    BRN         BRN = RI[R1]  */ BASE R-NUMBER              PRE       825
           467  0400000111 +                      EQ     PPS1                                                    PRE       826
                                                                                                                 PRE       827
           470  5110000004 +             BOS1     SA1    M.TXT                                                   PRE       828
                          5120000000 X            SA2    OPTLVL                                                  PRE       829
           471  0302000504 +                      ZR     X2,BOS5     IF OPT = 0                                  PRE       830
                          5130000005 +            SA3    RS                                                      PRE       831
           472  0313000506 +                      NZ     X3,BOS6     IF RS " 0     */ RETURNS TERMINATION        PRE       832
                          5120000006 +            SA2    XR                                                      PRE       833
           473  37641                             IX6    X4-X1                                                   PRE       834
                     0326000502 +                 PL     X6,BOS4     IF L.TXT \ M.TXT                            PRE       835
           474  7264775773                        SX6    X4-M.BLK                                                PRE       836
                          0336000476 +            MI     X6,BOS2     IF L.TXT < M.BLK                            PRE       837
           475  0312000502 +                      NZ     X2,BOS4     IF XR " 0     */ EXT REFS                   PRE       838
                                                                                                                 PRE       839
                                        *         ADD THE *BOS* TO THE SEQUENCE AND CONTINUE                     PRE       840
                                                                                                                 PRE       841
           476  0100000713 +             BOS2     RJ     ARI         ADD *BOS* TO *TXT*                          PRE       842
           477  21136                             AX1    R1.INP                                                  PRE       843
                     73710                        SX7    X1                                                      PRE       844
                          5170000002 +            SA7    LSN         LSN = IN[R1]                                PRE       845
           500  7160000000                        SX6    0                                                       PRE       846
                          5160000006 +            SA6    XR          XR = 0                                      PRE       847
           501  0400000111 +                      EQ     PPS1                                                    PRE       848
                                                                                                                 PRE       849
           502  5140000000 X             BOS4     SA4    OPT2                                                    PRE       850
                          0314000506 +            NZ     X4,BOS6     IF OPT2 " 0                                 PRE       851
                                                                                                                 PRE       852
           503  5110000003 +                      SA1    WB                                                      PRE       853
                          23611                   AX6    B1,X1       WB = SHIFT(WB,-1)  */ CLEAR WB IF = 1       PRE       854
                               54610              SA6    A1                                                      PRE       855
                                                                                                                 PRE       856
           504  0100000000 X             BOS5     CALL   PROSEQ      PROCESS THE ACCUMULATED INSTRUCTIONS        PRE       857
           505  5120000001 X                      SA2    RLI+1                                                   PRE       858
                          0400000460 +            EQ     BOS                                                     PRE       859
                                                                                                                 PRE       860
                                        *         OPT=2 AND SEQ OVERFLOW OR RETURNS TERMINATION                  PRE       861
                                                                                                                 PRE       862
           506  0100000000 X             BOS6     CALL   PROSEQ      TERMINATE SEQUENCE                          PRE       863
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    20
        SPECIAL MACRO PROCESSING                                      BOS                 CODE
  
           507  5110000000 X                      SA1    CBN         PBN = CBN                                   PRE       864
                          43700                   MX7    0                                                       PRE       865
                               73611              SX6    X1+B1       CBN = CBN + 1                               PRE       866
           510  5170000005 +                      SA7    RS          RS = 0                                      PRE       867
                          54610                   SA6    A1                                                      PRE       868
                               73260              CFTE   X1,X6       FLOW( PBN , CBN )                           PRE       869
           513  5120000001 X                      SA2    RLI+1                                                   PRE       870
                          0400000460 +            EQ     BOS                                                     PRE       871
  
  
  
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    21
        EXM - EXPAND EXPONENTIAL MACRO                                EXM                 CODE
  
                                        **        EXM - EXPAND EXPONENTIAL MACRO                                 PRE       874
                                        *         ALGORITHM ADAPTED FROM ARTICLE ON LOCAL OPTIMIZATIONS BY       PRE       875
                                        *         J.C. BAGWELL IN SIGPLAN, JULY 1970.                            PRE       876
                                        *         RMACRO ARGUMENT WORDS -                                        PRE       877
                                        *         WORD 1 28/,16/RI[OPERAND],16/RI[RESULT]                        PRE       878
                                        *         WORD 2 24/,18/OPCODE,18/EXPONENT ( N )                         PRE       879
                                                                                                                 PRE       880
           514  53211                    EXM      SA2    X1+B1       RI[OP],RI[RESULT]                           PRE       881
                     43054                        MX0    -RM.RIL                                                 PRE       882
                          54321                   SA3    A2+B1       OC.XX,EXP                                   PRE       883
                               15620              BX6    -X0*X2                                                  PRE       884
           515  21220                             AX2    RM.RIL                                                  PRE       885
                     15720                        BX7    -X0*X2                                                  PRE       886
                          5170000012 +            SA7    EXMC        EXMC(1) = RI[OP]                            PRE       887
           516  5253000542 +                      SA5    EXMB-2+X3   ECW = EXMB(N) */ EXPANSION CONTROL WORD     PRE       888
                          21322                   AX3    RM.CAL                                                  PRE       889
                               73030              SX0    X3                                                      PRE       890
           517  5265000012 +                      SA6    EXMC+X5     EXMC(N.INST) = RI[RESULT]                   PRE       891
                                                                                                                 PRE       892
                                        *         FILL IN INTERMEDIATE R-NUMBERS IN *EXMC*                       PRE       893
                                                                                                                 PRE       894
                          73150                   SX1    X5                                                      PRE       895
                               20102              LX1    2                                                       PRE       896
           520  6225777776                        SB2    X5-1                                                    PRE       897
                          0420000524 +            ZR     B2,EXM2                                                 PRE       898
           521  5140000000 X                      SA4    =XNIRN                                                  PRE       899
                          73642                   SX6    X4+B2                                                   PRE       900
                               73742              SX7    X4+B2       NIRN = NIRN + N.INST - 1                    PRE       901
           522  7266777776               EXM1     SX6    X6-1                                                    PRE       902
                          67221                   SB2    B2-B1                                                   PRE       903
                               55661              SA6    A6-B1                                                   PRE       904
           523  0520000522 +                      NZ     B2,EXM1                                                 PRE       905
                          54740                   SA7    A4                                                      PRE       906
                                                                                                                 PRE       907
           524  5100000001               EXM2     ALLOC  TXT,X1      ALLOC( TXT , 4*N.INST )                     PRE       908
           525  63726                             SB7    X2+B6                                                   PRE       909
                     5130000013 +                 SA3    EXMC+1      I = EXMC(2);  R = [I]                       PRE       910
                               63200              SB2    X0                                                      PRE       911
           526  43071                             MX0    -3                                                      PRE       912
                                                                                                                 PRE       913
                                        *         GENERATE A SERIES OF MULTIPLY MACROS, BASED ON THE *ECW*       PRE       914
                                                                                                                 PRE       915
           527  20503                    EXM3     LX5    3           ECW = SHIFT(ECW,3)                          PRE       916
                     15650                        BX6    -X0*X5      J = OGET[ECW]                               PRE       917
                          0306000111 +            ZR     X6,PPS1     IF J = 0      */ END OF EXPANSION           PRE       918
           530  5246000534 +                      SA4    EXMA-1+X6   OCW = EXMA(J)                               PRE       919
                          64330                   SB3    A3                                                      PRE       920
                               53143              SA1    B3+X4       RK = EXMC( I - RKO[OCW] )                   PRE       921
           531  21422                             AX4    18                                                      PRE       922
                     53243                        SA2    B3+X4       RJ = EXMC( I - RJO[OCW] )                   PRE       923
                          20120                   LX1    R1.RKP                                                  PRE       924
                               20240              LX2    R1.RJP                                                  PRE       925
           532  12331                             BX3    X3+X1                                                   PRE       926
                     43700                        MX7    0           R2 = 0                                      PRE       927
                          36632                   IX6    X3+X2       R1 = TYI(OC,RJ,RK,R)                        PRE       928
           533  0100000725 +                      RJ     SRI         SRI( R1 , R2 , OC ) */ STORE THE INST       PRE       929
           534  54331                             SA3    A3+B1       I = I + 1;  R = [I]                         PRE       930
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    22
        EXM - EXPAND EXPONENTIAL MACRO                                EXM                 CODE
  
                     0400000527 +                 EQ     EXM3                                                    PRE       931
                                                                                                                 PRE       932
                                        **        EXMA - TABLE OF OPERAND R-NUMBER INDICES                       PRE       933
                                                                                                                 PRE       934
                                         EXORN    MACRO  RJ,RK                                                   PRE       935
                                                  VFD    24/,18/-RJ,18/-RK                                       PRE       936
                                                  ENDM                                                           PRE       937
                                                                                                                 PRE       938
           535                           EXMA     BSS    0                                                       PRE       939
      L      1                                    LOC    1                                                       PRE       940
      L      1  00000000777776777776              EXORN  1,1         (RI-1)*(RI-1)                               PRE       941
      L      2  00000000777776777775              EXORN  1,2         (RI-1)*(RI-2)                               PRE       942
      L      3  00000000777776777774              EXORN  1,3         (RI-1)*(RI-3)                               PRE       943
      L      4  00000000777776777773              EXORN  1,4         (RI-1)*(RI-4)                               PRE       944
      L      5  00000000777776777772              EXORN  1,5         (RI-1)*(RI-5)                               PRE       945
      L      6  00000000777775777774              EXORN  2,3         (RI-2)*(RI-3)                               PRE       946
      L      7  00000000777774777773              EXORN  3,4         (RI-3)*(RI-4)                               PRE       947
      L    544                                    LOC    *O                                                      PRE       948
                                                                                                                 PRE       949
                                         EXOC     MACRO  A                                                       PRE       950
                                         .N       SET    0                                                       PRE       951
                                         .S       SET    A_B                                                     PRE       952
                                                  DUP    14,4        COUNT NUMBER OF OGITS IN STRING             PRE       953
                                         .S       SET    .S/8                                                    PRE       954
                                         .N       SET    .N+3                                                    PRE       955
                                                  IFEQ   .S,0,1                                                  PRE       956
                                                  STOPDUP                                                        PRE       957
                                                  VFD    .N/A_B,*P/.N/3                                          PRE       958
                                                  ENDM                                                           PRE       959
                                                  NOREF  .N,.S                                                   PRE       960
                                                                                                                 PRE       961
                                        **        EXMB - EXPONENTIAL MACRO EXPANSION SKELTON CONTROL TABLE       PRE       962
                                        *         FORMAT - 42/DDDD0,18/N.INST ( IN MACRO EXPANSION )             PRE       963
                                        *                D = DIGIT INDICATING OPERANDS OF MULTIPLY OPERATOR.     PRE       964
                                        *                I.E. AN INDEX INTO *EXMA*.                              PRE       965
                                                                                                                 PRE       966
           544                           EXMB     BSS    0                                                       PRE       967
      L      2                                    LOC    2                                                       PRE       968
      L      2  10000000000000000001              EXOC   1           X**2                                        PRE       969
      L      3  12000000000000000002              EXOC   12          X**2 * X                                    PRE       970
      L      4  11000000000000000002              EXOC   11          (X**2)**2                                   PRE       971
      L      5  11300000000000000003              EXOC   113         (X**2)**2 * X                               PRE       972
      L      6  11200000000000000003              EXOC   112         (X**2)**2) * X**2                           PRE       973
      L      7  11620000000000000004              EXOC   1162        (X**2)**2 * (X**2 * X)                      PRE       974
      L     10  11100000000000000003              EXOC   111         ((X**2)**2)**2                              PRE       975
      L     11  11140000000000000004              EXOC   1114                                                    PRE       976
      L     12  11310000000000000004              EXOC   1131                                                    PRE       977
      L     13  11623000000000000005              EXOC   11623                                                   PRE       978
      L     14  11120000000000000004              EXOC   1112                                                    PRE       979
      L     15  11125000000000000005              EXOC   11125                                                   PRE       980
      L     16  11124000000000000005              EXOC   11124                                                   PRE       981
      L     17  12113000000000000005              EXOC   12113                                                   PRE       982
      L     20  11110000000000000004              EXOC   1111        (((X**2)**2)**2)**2                         PRE       983
      L    563                                    LOC    *O                                                      PRE       984
                                                                                                                 PRE       985
                                         EXMC     SCRB   7           R-NUMBER BUFFER                             PRE       986
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    23
        SFR - SAVED FUNCTION RESULT MACRO                             SFR                 CODE
  
                                        **        SFR - SAVE FUNCTION RESULT MACRO                               PRE       988
                                        *         THE EXPANSION OF THE MACRO IS JUST A STORE TO TEMPORARY,       PRE       989
                                        *         BUT LATER IN THE STATEMENT, THE SAME R-NUMBER IS USED IN A     PRE       990
                                        *         *LD* FROM THE TEMP, WHICH WE CANT ALLOW.                       PRE       991
                                                                                                                 PRE       992
                                        *         SEARCH BACKWARD FOR THE DEFINATION OF THE R-NUMBER IN THE STOR PRE       993
                                        *         AND CHANGE THE OCCURANCE OF IT TO AN INTERMEDIATE R-NUMBER.    PRE       994
                                                                                                                 PRE       995
           563  7110000004               SFR      SX1    4                                                       PRE       996
                          0100000720 +            RJ     ISE         INITIALIZE FOR AN EXPANSION                 PRE       997
                                                                                                                 PRE       998
           564  6140000004                        SB4    4                                                       PRE       999
                          43054                   MX0    -R1.RIL                                                 PRE      1000
                               57474              SA4    B7-B4                                                   PRE      1001
           565  54101                             SA1    A0+B1       RI = [BASE+1]                               PRE      1002
                     6120000051                   SB2    OC.ST                                                   PRE      1003
                                                                                                                 PRE      1004
           566  13641                    SFR1     BX6    X4-X1                                                   PRE      1005
                     15760                        BX7    -X0*X6                                                  PRE      1006
                          55444                   SA4    A4-B4                                                   PRE      1007
           567  0317000566 +                      NZ     X7,SFR1     IF RI[TXT] " RI                             PRE      1008
                                                                                                                 PRE      1009
                          54444                   SA4    A4+B4                                                   PRE      1010
                               11504              BX5    X0*X4                                                   PRE      1011
           570  76660                             SX6    B6                                                      PRE      1012
                     36756                        IX7    X5+X6       RI[TXT] = NIRN                              PRE      1013
                          54740                   SA7    A4                                                      PRE      1014
                               54100              SA1    A0                                                      PRE      1015
           571  5020000002                        SA2    A0+2                                                    PRE      1016
                                                  LX1    IH.IHP                                                  PRE      1017
                          20222                   LX2    IH.CAP                                                  PRE      1018
                               12712              BX7    X1+X2                                                   PRE      1019
           572  0100000725 +                      RJ     SRI         ST  NIRN,0,IH,CA                            PRE      1020
           573  66661                             SB6    B6+B1       NIRN = NIRN + 1                             PRE      1021
                     0100000731 +                 RJ     TSE         TERMINATE THE EXPANSION                     PRE      1022
           574  0400000111 +                      EQ     PPS1                                                    PRE      1023
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    24
        PDM - PROCESS DO BEGIN/END MACROS                             PDM                 CODE
  
                                        **        PDM - PROCESS DO BEGIN/END MACROS                              PRE      1025
                                                                                                                 PRE      1026
           575  43073                    PDB      MX0    -1                                                      PRE      1027
                     21224                        AX2    18+2                                                    PRE      1028
                          0400000577 +            EQ     PDB1                                                    PRE      1029
                                                                                                                 PRE      1030
           576  43072                    PDE      MX0    -2                                                      PRE      1031
                     20236                        LX2    -R1.INP                                                 PRE      1032
                          63720                   SB7    X2          WC = IN[R1]                                 PRE      1033
                               20214              LX2    R1.INP-18                                               PRE      1034
                                                                                                                 PRE      1035
           577  15320                    PDB1     BX3    -X0*X2                                                  PRE      1036
                     5241000004                   SA4    X1+4        DOI = [O.MAC+4]  */ LOOP INFO WORD          PRE      1037
                               63333              SB3    X3+B3       OC[O.MAC] = BASE + CV(B/CD)[RLI(2)]         PRE      1038
           600  5130000000 X                      SA3    O.LOOP                                                  PRE      1039
                          6122000002              SB2    B2+M.DOBGN                                              PRE      1040
           601  5150000002 +                      SA5    LSN                                                     PRE      1041
                          67403                   SB4    -B3                                                     PRE      1042
                               27747              PX7    B4,X7                                                   PRE      1043
           602  63330                             SB3    X3                                                      PRE      1044
                     53710                        SA7    X1                                                      PRE      1045
                          0520000633 +            NZ     B2,PDE1     IF OC " M.DOBGN                             PRE      1046
                                                                                                                 PRE      1047
                                        *         ADD INFO FROM RMACRO TO LOOP TABLE FOR REFMAP                  PRE      1048
                                                                                                                 PRE      1049
           603  0303000605 +                      ZR     X3,PDB2     IF O.LOOP = 0 */ NO LOOP TABLE              PRE      1050
                          43030                   MX0    24                                                      PRE      1051
                               11604              BX6    X0*X4       LOOP(LN[DOI]) = [DOI]                       PRE      1052
           604  20452                             LX4    -18                                                     PRE      1053
                     53643                        SA6    B3+X4                                                   PRE      1054
                          10755                   BX7    X5          LOOP(LN[DOI]+1) = LSN                       PRE      1055
                               54761              SA7    A6+B1                                                   PRE      1056
                                                                                                                 PRE      1057
                                        *         IF OPT = 1 AND LOOP IS OPTIMIZABLE, THEN SET WB = 1            PRE      1058
                                                                                                                 PRE      1059
           605  5120000000 X             PDB2     SA2    OPTLVL                                                  PRE      1060
                          7100000167              SX0    167B        NON OPTIMIZABLE LOOP FLAGS                  PRE      1061
           606  7272777776                        SX7    X2-1                                                    PRE      1062
                          0317000613 +            NZ     X7,PDB4     IF OPTLVL " 1                               PRE      1063
                                                                                                                 PRE      1064
           607  5130000012                        SA3    O.SYM                                                   PRE      1065
                          53211                   SA2    X1+B1                                                   PRE      1066
                               53030              SA0    X3                                                      PRE      1067
           610  20201                             LX2    1                                                       PRE      1068
                     63321                        SB3    X2+B1                                                   PRE      1069
                          20060                   LX0    P.FLG                                                   PRE      1070
                               55403              SA4    A0-B3       WORDB = [O.SYM-2*IH[LGL]-1]                 PRE      1071
           611  11704                             BX7    X0*X4                                                   PRE      1072
                     0317000613 +                 NZ     X7,PDB4     IF OPTF[WORDB] " 0  */ LOOP NOT OPTIMIZABLE PRE      1073
                                                                                                                 PRE      1074
                               76710              SX7    B1                                                      PRE      1075
           612  5170000003 +                      SA7    WB          WB = 1                                      PRE      1076
                                                                                                                 PRE      1077
           613  0100000000 X             PDB4     CALL   EMR         EXPAND MACRO                                PRE      1078
           614  0100000744 +                      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                   PRE      1079
           615  7170000000                        SX7    0                                                       PRE      1080
                          5170000000 X            SA7    L.RND       L.RND = 0                                   PRE      1081
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    25
        PDM - PROCESS DO BEGIN/END MACROS                             PDM                 CODE
  
                                                                                                                 PRE      1082
                                        *         ADD LOOP CV TO ACTIVE LOOP STACK AND ENTER IN *UDI*            PRE      1083
                                                                                                                 PRE      1084
           616  5117777774                        SA1    B7-3        R2L = LTXT - 3                              PRE      1085
                          5100000000 X            ADDWRD ALS,X1      ADDWRD( ALS , CAIH[R2L] )                   PRE      1086
           620  5150000000 X                      SA5    OPT2                                                    PRE      1087
                          0305000625 +            ZR     X5,PDB5     IF OPT2 = 0                                 PRE      1088
           621  74620                             SX6    A2                                                      PRE      1089
                     66210                        SB2    B1                                                      PRE      1090
                          7253777776              SX5    X3-1                                                    PRE      1091
           622  0100000000 X                      CALL   CPL         GET *UDI* INDEX OF LOOP CV                  PRE      1092
           623  7277777776                        SX7    X7-1                                                    PRE      1093
                          76650                   SX6    B5                                                      PRE      1094
                               54770              SA7    A7          L.IOL = L.IOL - 1                           PRE      1095
           624  5160000632 +                      SA6    CVI         CVI = CPL(CA,HI)  */ *UDI* INDEX OF CV      PRE      1096
                          0400000111 +            EQ     PPS1                                                    PRE      1097
                                                                                                                 PRE      1098
           625  5110000003 +             PDB5     SA1    WB                                                      PRE      1099
                          7261777776              SX6    X1-1                                                    PRE      1100
           626  0316000111 +                      NZ     X6,PPS1     IF WB " 1                                   PRE      1101
                                                                                                                 PRE      1102
                          5061000000              SA6    A1+         WB = 0                                      PRE      1103
           627  0100000000 X                      CALL   PROSEQ      CODE THE PROLOGUE                           PRE      1104
           630  7160000001                        SX6    1                                                       PRE      1105
                          5160000003 +            SA6    WB          WB = 1                                      PRE      1106
           631  0400000111 +                      EQ     PPS1                                                    PRE      1107
                                                                                                                 PRE      1108
           632                     1     CVI      BSSZ   1           *UDI* INDEX OF LOOP CONTROL VAR             PRE      1109
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    26
        PDM - PROCESS DO BEGIN/END MACROS                             PDM                 CODE
  
                                        *         PROCESS DO END                                                 PRE      1111
                                                                                                                 PRE      1112
           633  5120000000 X             PDE1     SA2    L.ALS                                                   PRE      1113
                          7262777776              SX6    X2-1        L.ALS = L.ALS - 1                           PRE      1114
           634  66331                             SB3    B3+B1                                                   PRE      1115
                     54620                        SA6    A2                                                      PRE      1116
                          0470000111 +            ZR     B7,PPS1     IF WC = 0     */ 1 TRIP LOOP DO-END MACRO   PRE      1117
                                                                                                                 PRE      1118
           635  0303000637 +                      ZR     X3,PDE2     IF O.LOOP = 0                               PRE      1119
                          20452                   LX4    -18                                                     PRE      1120
                               53243              SA2    B3+X4                                                   PRE      1121
           636  20522                             LX5    18                                                      PRE      1122
                     12752                        BX7    X5+X2                                                   PRE      1123
                          54720                   SA7    A2          LOOP(LN[DOI]+1) = LSN+FSN    FOR LOOP       PRE      1124
                                                                                                                 PRE      1125
                                        *         ADD INSTRUCTIONS TO *TXT*, SET *RF* BIT FOR *LD*"S IN MACRO    PRE      1126
                                        *         SINCE THEY MUST ALL BE < 377777B ( REFERENCE MANUAL ).         PRE      1127
                                                                                                                 PRE      1128
           637  0100000000 X             PDE2     CALL   EMR         EXPAND THE MACRO                            PRE      1129
           640  5120000050 X                      SA2    F.RDT+OC.LD                                             PRE      1130
                          76310                   SX3    B1                                                      PRE      1131
                               20323              LX3    D.RFP                                                   PRE      1132
           641  12632                             BX6    X3+X2       RF[RDT(OC.LD)] = 1                          PRE      1133
                     54620                        SA6    A2                                                      PRE      1134
                          0100000744 +            RJ     ERM         ADD INSTRUCTIONS TO *TXT*                   PRE      1135
           642  5120000050 X                      SA2    F.RDT+OC.LD                                             PRE      1136
                          5110000000 X            SA1    OPT2                                                    PRE      1137
           643  76310                             SX3    B1                                                      PRE      1138
                     20323                        LX3    D.RFP                                                   PRE      1139
                          15623                   BX6    -X3*X2      RF[RDT(OC.LD)] = 0                          PRE      1140
                               54620              SA6    A2                                                      PRE      1141
           644  0301000317 +                      ZR     X1,UJP1     IF OPT2 = 0                                 PRE      1142
                                                                                                                 PRE      1143
                          5137777774              SA3    B7-3        R2J = LTXT - 3  */ LOOP BACK JUMP           PRE      1144
           645  5150000000 X                      SA5    CBN                                                     PRE      1145
                          73150                   CFTE   X5,X3,IH    FLOW( CBN , IH[R2J] )                       PRE      1146
           650  73150                             CFTE   X5,X5+B1    FLOW( CBN , CBN + 1 )                       PRE      1147
           652  0400000324 +                      EQ     UJP3                                                    PRE      1148
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    27
        PPL - PROCESS PARAMETER LIST                                  PPL                 CODE
  
                                        **        PPL - PROCESS PARAMETER LIST                                   PRE      1150
                                        *                SETUP *API* TABLE ENTRY DESCRIBING THE PARAM LIST.      PRE      1151
                                        *                THEN TRY TO REDUCE THE LIST IF IT IS COMMON WITH THE    PRE      1152
                                        *                TAIL END OF ANOTHER APLIST.                             PRE      1153
                                        *                                                                        PRE      1154
                                        *         ENTRY  (X3) = IH OF PARAMETER LIST                             PRE      1155
                                                                                                                 PRE      1156
           653                           PPLA     BFMW   AP,(ST,CAIH)                                            PRE      1157
                                                                                                                 PRE      1158
           654  7164000000               PPL0     SX6    B4+                                                     PRE      1159
                          5160000007 +            SA6    PAPL        PAPL = L.APL                                PRE      1160
                                                                                                                 PRE      1161
           655  0200400655 +             PPL      ROUTINE                                                        PRE      1162
           656  6273577777                        SB7    X3-I.AP     N = H[IH]     */ APLIST NUMBER              PRE      1163
                          5110000000 X            SA1    O.API                                                   PRE      1164
           657  5120000007 +                      SA2    PAPL                                                    PRE      1165
                          5130000000 X            SA3    L.APL                                                   PRE      1166
           660  5201777776                        SA0    X1-1                                                    PRE      1167
                          37732                   IX7    X3-X2                                                   PRE      1168
                               63570              SB5    X7          LN = LEN[N]   */ LENGTH OF THIS LIST        PRE      1169
           661  20722                             LX7    AI.LENP                                                 PRE      1170
                     63430                        SB4    X3          IN = INDX[N]  */ INDEX TO LWA+1             PRE      1171
                                                  LX3    AI.INDXP                                                PRE      1172
                          12673                   BX6    X7+X3                                                   PRE      1173
                               54607              SA6    A0+B7       API(N) = AINFO(0,0,L.APL-PAPL,L.APL)        PRE      1174
                                                                                                                 PRE      1175
                                        *         NOW SEARCH THE ACCUMULATED APLISTS AND ATTEMPT TO ELIMINATE    PRE      1176
                                        *         ANY COMMON APLISTS                                             PRE      1177
                                                                                                                 PRE      1178
           662  5140000000 X                      SA4    O.APL                                                   PRE      1179
                          5254777776              SA5    X4-1        BASE = O.APL - 1                            PRE      1180
           663  5110000653 +                      SA1    PPLA                                                    PRE      1181
                          66670                   SB6    B7          J = N                                       PRE      1182
                               10611              BX6    X1                                                      PRE      1183
                                                                                                                 PRE      1184
           664  67661                    PPL1     SB6    B6-B1       J = J - 1                                   PRE      1185
                     54106                        SA1    A0+B6       AJ = API(J)                                 PRE      1186
                          0460000654 +            ZR     B6,PPL0     IF J = 0                                    PRE      1187
                                                  LX1    59-AI.EQVP                                              PRE      1188
           665  0331000664 +                      MI     X1,PPL1     IF EQV[AJ]                                  PRE      1189
                                                                                                                 PRE      1190
                                                  LX1    1+AI.EQVP-AI.INDXP                                      PRE      1191
                          63210                   SB2    X1          IJ = INDX[AJ]                               PRE      1192
                               20152              LX1    AI.INDXP-AI.LENP                                        PRE      1193
           666  63310                             SB3    X1          LJ = LEN[AJ]                                PRE      1194
                     73010                        SX0    X1                                                      PRE      1195
                          76760                   SX7    B6                                                      PRE      1196
           667  0735000670 +                      LT     B3,B5,PPL2  (LS,EI) = IF( LJ < LN )  (LJ,J) ELSE (LN,N) PRE      1197
                          76050                   SX0    B5                                                      PRE      1198
                               76770              SX7    B7                                                      PRE      1199
                                                                                                                 PRE      1200
           670  54254                    PPL2     SA2    A5+B4       SN = BASE + IN                              PRE      1201
                     54352                        SA3    A5+B2       SI = BASE + IJ                              PRE      1202
                          14400                   BX4    -X0         M = -LS                                     PRE      1203
                                                                                                                 PRE      1204
           671  13523                    PPL3     BX5    X2-X3                                                   PRE      1205
                     7244000001                   SX4    X4+1        M = M + 1                                   PRE      1206
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    28
        PPL - PROCESS PARAMETER LIST                                  PPL                 CODE
  
                               11365              BX3    X6*X5                                                   PRE      1207
           672  0313000664 +                      NZ     X3,PPL1     IF (ST,CAIH)[SN] " (ST,CAIH)[SJ]            PRE      1208
                          55221                   SA2    A2-B1       SN = SN - 1                                 PRE      1209
                               55331              SA3    A3-B1       SJ = SJ - 1                                 PRE      1210
           673  0314000671 +                      NZ     X4,PPL3     IF M " 0                                    PRE      1211
                                                                                                                 PRE      1212
                                        *         EQUIVALENCE THE SHORTER LIST TO THE LONGER ONE                 PRE      1213
                                                                                                                 PRE      1214
                          76567                   SX5    B6+B7                                                   PRE      1215
                               43601              MX6    1                                                       PRE      1216
                                                  LX6    1+AI.EQVP                                               PRE      1217
           674  37457                             IX4    X5-X7       ORD[API(EI)] = J + N - EI                   PRE      1218
                     76335                        SX3    B3+B5                                                   PRE      1219
                                                  LX4    AI.ORDP                                                 PRE      1220
                          20001                   LX0    1                                                       PRE      1221
                               37230              IX2    X3-X0       BIAS[API(EI)] = MAX(LJ,LN) - LS             PRE      1222
           675  20222                             LX2    AI.BIASP                                                PRE      1223
                     36424                        IX4    X2+X4                                                   PRE      1224
                          12646                   BX6    X4+X6                                                   PRE      1225
                               63670              SB6    X7                                                      PRE      1226
           676  54606                             SA6    A0+B6                                                   PRE      1227
                     77745                        SX7    B4-B5                     (X7) = PAPL                   FCC0672    13
                                                  LX4    -AI.ORDP    K = ORD[API(EI)]  */ ORD OF BASE OF CLASS   FCC0672    14
                          63540                   SB5    X4                                                      FCC0672    15
                               54405              SA4    A0+B5                                                   FCC0672    16
           677  76610                             SX6    B1                                                      FCC0672    17
                     20672                        LX6    AI.BASEP                                                FCC0672    18
                          12664                   BX6    X6+X4       BASE[API(K)] = 1  */ MARK AS *BASE*         FCC0672    19
                               54640              SA6    A4                                                      FCC0672    20
           700  0567000702 +                      NE     B6,B7,PPL4  IF EI " N     */ ELIMINATED NOT LAST        FCC0672    21
                          5170000000 X            SA7    L.APL       L.APL = PAPL                                FCC0672    22
           701  0400000655 +                      EQ     PPL                                                     PRE      1232
                                                                                                                 PRE      1233
                                        *         LOWER ONE IS SHORTER, MOVE APLISTS ABOVE IT DOWN               PRE      1234
                                                                                                                 PRE      1235
           702  66661                    PPL4     SB6    B6+B1       K = J + 1                                   PRE      1236
                     76430                        SX4    B3                                                      PRE      1237
                                                  LX4    AI.INDXP                                                PRE      1238
                          5110000000 X            SA1    L.APL                                                   PRE      1239
                                                                                                                 PRE      1240
           703  54206                    PPL5     SA2    A0+B6       AK = O.API-1 + K                            PRE      1241
                     66661                        SB6    B6+B1       K = K + 1                                   PRE      1242
                                                  LX2    59-AI.EQVP                                              PRE      1243
                          0332000705 +            MI     X2,PPL6     IF EQV[AK]                                  PRE      1244
           704  37624                             IX6    X2-X4                                                   PRE      1245
                     5062000000                   SA6    A2+         INDX[AK] = INDX[AK] - LEN[AJ]               PRE      1246
           705  0676000703 +             PPL6     LE     B6,B7,PPL5  IF K @ N                                    PRE      1247
                                                                                                                 PRE      1248
                                                  LX4    -AI.INDXP                                               PRE      1249
                          37614                   IX6    X1-X4       L.APL = L.APL - LEN[AJ]                     PRE      1250
                               54610              SA6    A1                                                      PRE      1251
           706  5160000007 +                      SA6    PAPL        PAPL = L.APL                                PRE      1252
                          64651                   SB6    A5+B1                                                   PRE      1254
                               76262              SX2    B6+B2                                                   PRE      1255
           707  37324                             IX3    X2-X4                                                   PRE      1256
                     77142                        MOVE   B4-B2,X2,X3 MOVE( IN-IJ , O.APL+IJ , O.APL+IJ-LJ )      PRE      1257
           710  0400000655 +                      EQ     PPL                                                     PRE      1258
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    29
        SUBROUTINES                                                   ARI                 CODE
  
                                        **        ARI - ADD RLIST INSTRUCTION TO SEQUENCE                        PRE      1260
                                        *                                                                        PRE      1261
                                        *         EXIT   (B6) = L.TXT - 4 , PREVIOUS VALUE OF *L.TXT*            PRE      1262
                                        *                (X1) = [R1] , R1 WORD OF INSTRUCTION                    PRE      1263
                                        *                (X6) = DESCRIPTOR                                       PRE      1264
                                                                                                                 PRE      1265
           711  55311                    ARI0     SA3    A1-B1       DESCR                                       PRE      1266
                     22702                        LX7    X2                                                      PRE      1267
                          53741                   SA7    X4+B1                                                   PRE      1268
                               10633              BX6    X3                                                      PRE      1269
           712  43700                             MX7    0                                                       PRE      1270
                     54671                        SA6    A7+B1                                                   PRE      1271
                          54761                   SA7    A6+B1       [R1+3] = 0                                  PRE      1272
           713  0200400713 +             ARI      ROUTINE                                                        PRE      1273
           714  7110000004                        ALLOC  TXT,4                                                   PRE      1274
           716  5110000001 X                      SA1    RLI+1       R1                                          PRE      1275
                          73426                   SX4    X2+B6                                                   PRE      1276
                               54211              SA2    A1+B1       R2                                          PRE      1277
           717  10611                             BX6    X1                                                      PRE      1278
                     53640                        SA6    X4                                                      PRE      1279
                          0400000711 +            EQ     ARI0                                                    PRE      1280
  
  
  
                                        **        ISE - INITIALIZE SPECIAL MACRO EXPANSION                       PRE      1282
                                        *                                                                        PRE      1283
                                        *         ENTRY  (X1) = 4* MAX NUMBER OF INSTRUCTIONS IN EXPANSION       PRE      1284
                                                                                                                 PRE      1285
           720  0200400720 +             ISE      ROUTINE                                                        PRE      1286
           721  5100000001                        ALLOC  TXT,X1                                                  PRE      1287
           722  5150000000 X                      SA5    NIRN                                                    PRE      1288
                          5110000000 X            SA1    O.MAC                                                   PRE      1289
           723  63726                             SB7    X2+B6       (B7) = STORE ADDRESS                        PRE      1290
                     63650                        SB6    X5          (B6) = NEXT AVAIL R-NUMBER                  PRE      1291
                          53011                   SA0    X1+B1       (A0) = FWA OF MACRO PARAMETERS              PRE      1292
           724  0400000720 +                      EQ     ISE                                                     PRE      1293
  
  
  
                                        **        SRI - STORE RLIST INSTRUCTION                                  PRE      1295
                                        *                                                                        PRE      1296
                                        *         ENTRY  (B2,X6,X7) = OPCODE, R1,R2 WORDS                        PRE      1297
                                        *                                                                        PRE      1298
                                        *         EXIT   (A6,X6) = DESCRIPTOR                                    PRE      1299
                                                                                                                 PRE      1300
           725  0200400725 +             SRI      ROUTINE                                                        PRE      1301
           726  5142000000 X                      SA4    F.RDT+B2                                                PRE      1302
                          27626                   PX6    B2,X6                                                   PRE      1303
                               56771              SA7    B7+B1       R2                                          PRE      1304
           727  56670                             SA6    B7          R1                                          PRE      1305
                     43700                        MX7    0                                                       PRE      1306
                          10644                   BX6    X4                                                      PRE      1307
                               54671              SA6    A7+B1       DESCR                                       PRE      1308
           730  54761                             SA7    A6+B1       LINK = 0                                    PRE      1309
                     64771                        SB7    A7+B1       SA = SA + 4                                 PRE      1310
                          0400000725 +            EQ     SRI                                                     PRE      1311
1       PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    30
        SUBROUTINES                                                   TSE                 CODE
  
                                        **        TSE - TERMINATE SPECIAL EXPANSION                              PRE      1313
                                                                                                                 PRE      1314
           731  0200400731 +             TSE      ROUTINE                                                        PRE      1315
           732  5140000000 X                      SA4    O.TXT                                                   PRE      1316
                          76660                   SX6    B6                                                      PRE      1317
                               63440              SB4    X4                                                      PRE      1318
           733  5160000000 X                      SA6    NIRN                                                    PRE      1319
                          77774                   SX7    B7-B4                                                   PRE      1320
           734  5170000000 X                      SA7    L.TXT       UPDATE L.TXT                                PRE      1321
                          0400000731 +            EQ     TSE                                                     PRE      1322
  
  
  
                                        **        ERM - EXPAND REFERENCED MACRO                                  PRE      1324
                                        *         EXIT   (B6) = FTXT = FWA OF MACRO EXPANSION                    PRE      1325
                                        *                (B7) = LTXT = LWA+1 OF MACRO EXPANSION                  PRE      1326
                                                                                                                 PRE      1327
           735  55671                    ERM1     SA6    A7-B1       [TA+1] = 0    */ CLEAR R2 WORD              PRE      1328
                     66774                        SB7    B7+B4       TA = TA + 4                                 PRE      1329
                          0450000744 +            ZR     B5,ERM      IF N = 0                                    PRE      1330
                                                                                                                 PRE      1331
           736  26335                    ERM2     UX3    B3,X5       OC = OC[W]                                  PRE      1332
                     10655                        BX6    X5                                                      PRE      1333
                          54403                   SA4    A0+B3       D = RDT(OC)                                 PRE      1334
                               54551              SA5    A5+B1       W = W + 1                                   PRE      1335
           737  67554                             SB5    B5-B4       N = N - 4                                   PRE      1336
                     10744                        BX7    X4                                                      PRE      1337
                          56670                   SA6    B7          [TA] = [W-1]                                PRE      1338
                               21472              AX4    D.TYP                                                   PRE      1339
           740  12304                             BX3    X0+X4                                                   PRE      1340
                     73231                        SX2    X3+B1                                                   PRE      1341
                          56772                   SA7    B7+B2       [TA+2] = [D]                                PRE      1342
                               43600              MX6    0                                                       PRE      1343
           741  54671                             SA6    A7+B1       [TA+3] = 0    */ CLEAR LINK WORD            PRE      1344
                     0312000735 +                 NZ     X2,ERM1     IF TYPE[DI] " III                           PRE      1345
                                                                                                                 PRE      1346
                               10755              BX7    X5                                                      PRE      1347
           742  54551                             SA5    A5+B1       W = W + 1                                   PRE      1348
                     6177000004                   SB7    B7+4        TA = TA + 4                                 PRE      1349
                               55771              SA7    A7-B1       [TA-2] = [W-1]                              PRE      1350
           743  0550000736 +                      NZ     B5,ERM2     IF N " 0                                    PRE      1351
                                                                                                                 PRE      1352
           744  0200400744 +             ERM      ROUTINE                                                        PRE      1353
           745  5110000000 X                      SA1    MACINS                                                  PRE      1354
                          5150000000 X            SA5    O.EMRB      W = O.EMRB                                  PRE      1355
           746  20102                    ERM3     LX1    2                                                       PRE      1356
                     5100000001                   ALLOC  TXT,X1      ALLOC( TXT , 4*MACINS )                     PRE      1357
           750  5100000000 X                      SA0    F.RDT                                                   PRE      1358
                          66211                   SB2    B1+B1                                                   PRE      1359
                               66422              SB4    B2+B2                                                   PRE      1360
           751  43072                             MX0    -D.TYL                                                  PRE      1361
                     63510                        SB5    X1          N = 4*MACINS                                PRE      1362
                          63626                   SB6    X2+B6                                                   PRE      1363
                               43600              MX6    0                                                       PRE      1364
           752  66760                             SB7    B6          TA = O.TXT + (L.TXT-4*MACINS)               PRE      1365
                     5160000000 X                 SA6    MACWDS      MACWDS = 0                                  PRE      1366
           753  0400000736 +                      EQ     ERM2                                                    PRE      1367
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    31
        ISSUE MACRO                                                   PAR                 CODE
  
                                                  MACRO  OPR,N,P                                                 PRE      1370
                                         N$T      MICRO  18-15,3,/P/                                             PRE      1371
                                                  ENDM                                                           PRE      1372
                                                                                                                 PRE      1373
           753                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
                                                                                                                 PRE      1375
                                        **        ISSUE - MACRO TO ISSUE AN RLIST INSTRUCTION                    PRE      1376
                                                                                                                 PRE      1377
                                         ISSUE    MACROE OP,IH,CA,RF,RJ,RK,IN,TY,CAIH                            PRE      1378
                                         CAT      IFC    NE, CAIH                                                PRE      1379
                                         IHT      MICRO  1,,/CAIH/                                               PRE      1380
                                         CAT      ELSE                                                           PRE      1381
                                         IHT      MICRO  1,,/IH/                                                 PRE      1382
                                         CAT      ENDIF                                                          PRE      1383
                                         TYT      IFC    NE, TY                                                  PRE      1384
                                                  TYPE_TY  OP,"IHT",CA,RF,RJ,RK,IN                               PRE      1385
                                         TYT      ELSE                                                           PRE      1386
                                                  TYPE"OP$T" OP,"IHT",CA,RF,RJ,RK,IN                             PRE      1387
                                         TYT      ENDIF                                                          PRE      1388
                                                  ENDM                                                           PRE      1389
                                                                                                                 PRE      1390
                                         TYPEI    MACRO  OP,IH,CA,RF,RJ,RK,IN                                    PRE      1391
                                                  SX6    B7                                                      PRE      1392
                                         OPT      IFC    NE, OP B3                                               PRE      1393
                                                  SB3    OC.OP                                                   PRE      1394
                                         OPT      ENDIF                                                          PRE      1395
                                                  LX6    R1.RIP                                                  PRE      1396
                                         RJT      IFC    NE, RJ                                                  PRE      1397
                                                  L_RJ   R1.RJP                                                  PRE      1398
                                                  BX6    X6+RJ                                                   PRE      1399
                                         RJT      ENDIF                                                          PRE      1400
                                         RKT      IFC    NE, RK                                                  PRE      1401
                                                  L_RK   R1.RKP                                                  PRE      1402
                                                  BX6    X6+RK                                                   PRE      1403
                                         RKT      ENDIF                                                          PRE      1404
                                                  SB7    B7+B1                                                   PRE      1405
                                                  PX7    B3,X6                                                   PRE      1406
                                                  SA7    B2                                                      PRE      1407
                                                  SB2    B2+B1                                                   PRE      1408
                                                  ENDM                                                           PRE      1409
                                                                                                                 PRE      1410
                                         TYPEII   MACRO  OP,IH,CA,RF,RJ,RK,IN                                    PRE      1411
                                                  SX6    B7                                                      PRE      1412
                                         OPT      IFC    NE, OP B3                                               PRE      1413
                                                  SB3    OC.OP                                                   PRE      1414
                                         OPT      ENDIF                                                          PRE      1415
                                                  LX6    R1.RIP                                                  PRE      1416
                                         INT      IFC    NE, IN                                                  PRE      1417
                                                  L_IN   R1.INP                                                  PRE      1418
                                                  BX6    X6+IN                                                   PRE      1419
                                         INT      ENDIF                                                          PRE      1420
                                                  SB7    B7+B1                                                   PRE      1421
                                                  PX7    B3,X6                                                   PRE      1422
                                                  SA7    B2                                                      PRE      1423
                                                  SB2    B2+B1                                                   PRE      1424
                                                  ENDM                                                           PRE      1425
                                                                                                                 PRE      1426
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    32
        ISSUE MACRO                                                   PAR                 CODE
  
                                         TYPEIII  MACRO  OP,IHR,CA,RF,RJ,RK,IN                                   PRE      1427
                                                  SX6    B7                                                      PRE      1428
                                         OPT      IFC    NE, OP B3                                               PRE      1429
                                                  SB3    OC.OP                                                   PRE      1430
                                         OPT      ENDIF                                                          PRE      1431
                                                  LX6    R1.RIP                                                  PRE      1432
                                         CAT      IFC    NE, CA                                                  PRE      1433
                                                  L_CA   IH.CAP                                                  PRE      1434
                                         CAT      ENDIF                                                          PRE      1435
                                                  PX7    B3,X6                                                   PRE      1436
                                                  SA7    B2                                                      PRE      1437
                                                  SB7    B7+B1                                                   PRE      1438
                                         RFT      IFC    NE, RF                                                  PRE      1439
                                                  L_RF   IH.RFP                                                  PRE      1440
                                         IHT      IFC    NE, IHR                                                 PRE      1441
                                                  L_IHR  IH.IHP                                                  PRE      1442
                                                  BX6    RF+IHR                                                  PRE      1443
                                         CAT      IFC    NE, CA                                                  PRE      1444
                                                  BX6    X6+CA                                                   PRE      1445
                                         CAT      ENDIF                                                          PRE      1446
                                         IHT      ELSE                                                           PRE      1447
                                         CAT      IFC    NE, CA                                                  PRE      1448
                                                  BX6    RF+CA                                                   PRE      1449
                                         CAT      ELSE                                                           PRE      1450
                                                  BX6    RF                                                      PRE      1451
                                         CAT      ENDIF                                                          PRE      1452
                                         IHT      ENDIF                                                          PRE      1453
                                         RFT      ELSE                                                           PRE      1454
                                         IHT      IFC    NE, IHR                                                 PRE      1455
                                                  L_IHR  IH.IHP                                                  PRE      1456
                                         CAT      IFC    NE, CA                                                  PRE      1457
                                                  BX6    CA+IHR                                                  PRE      1458
                                         CAT      ELSE                                                           PRE      1459
                                                  BX6    IHR                                                     PRE      1460
                                         CAT      ENDIF                                                          PRE      1461
                                         IHT      ELSE                                                           PRE      1462
                                         CAT      IFC    NE, CA                                                  PRE      1463
                                                  BX6    CA                                                      PRE      1464
                                         CAT      ELSE                                                           PRE      1465
                                                  MX6    0                                                       PRE      1466
                                         CAT      ENDIF                                                          PRE      1467
                                         IHT      ENDIF                                                          PRE      1468
                                         RFT      ENDIF                                                          PRE      1469
                                                  SA5    =XMACINS    NUMBER OF TYPE 3/S GENERATED                PRE      1470
                                                  SA6    B2+B1                                                   PRE      1471
                                                  SX6    X5+B1                                                   PRE      1472
                                                  SB2    A6+B1                                                   PRE      1473
                                                  SA6    A5          MACINS = MACINS + 1                         PRE      1474
                                                  ENDM                                                           PRE      1475
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    33
        TABLE FORMATS                                                 TABLES              CODE
  
                                        **        TERM TABLE FORMAT.                                             PRE      1477
                                                                                                                 PRE      1478
                                                  DESCRIBE TT.,60                                                PRE      1479
                                         LD       DEFINE 18          LOOP DEPTH                                  PRE      1480
                                         P        DEFINE 18          LINK TO RND                                 PRE      1481
                                         SUB      DEFINE 6           SUBSCRIPT TERM ORDINAL                      PRE      1482
                                         MC       DEFINE 18          MULTIPLICITIVE CONSTANT                     PRE      1483
                                                                                                                 PRE      1484
                                        **        R-NUMBER DEFINITION TABLE.                                     PRE      1485
                                                                                                                 PRE      1486
                                                  DESCRIBE RN.,60                                                PRE      1487
                                                  DEFINE 6                                                       PRE      1488
                                         RI       DEFINE 18          R-NUMBER OF VARIABLE                        PRE      1489
                                         CA       DEFINE 18          BIAS                                        PRE      1490
                                         IH       DEFINE 18          SYMBOL ORDINAL                              PRE      1491
                                                                                                                 PRE      1492
                                         CAIH     DEQU   IH,36                                                   PRE      1493
                                                                                                                 PRE      1494
                                   3     MDIMS    =      3           MAX NUMBER OF DIMENSIONS                    PRE      1495
                                                                                                                 PRE      1496
                                        *         ITS - IXFN TEMPORARY STORAGE, INITIALIZED AT START OF PAR.     PRE      1497
                                                                                                                 PRE      1498
           754                           IXFNO    BSS    0           SAVE ORG COUNTER                            PRE      1499
            22                                    ORG    PREBUF+.SCR+1                                           PRE      1500
            22                           O.ITS    BSS    0                                                       PRE      1501
            22                     1     TIF      BSS    1           TERM ISSUED FLAG                            PRE      1502
            23                     1     CA       BSS    1           CONSTANT ADDEND                             PRE      1503
                                                                                                                 PRE      1504
                                        **        TTS - TERM TEMPORARY STORAGE.                                  PRE      1505
                                        *         INITIALIZED AT START OF PROCESSING FOR EACH UNIQUE IH,CA.      PRE      1506
                                                                                                                 PRE      1507
            24                           O.TTS    BSS    0                                                       PRE      1508
            24                     1     STF      BSS    1           SUB-TERM ISSUED FLAG                        PRE      1509
            25                     3     SCC      BSS    MDIMS       SUBSCRIPT COMPUTATION COEFFICIENTS          PRE      1510
                                   4     L.TTS    EQU    *-O.TTS                                                 PRE      1511
                                   6     L.ITS    EQU    *-O.ITS                                                 PRE      1512
                                                                                                                 PRE      1513
            30                     7     ITT      BSS    2*MDIMS+1     IXFN TERM TABLE                           PRE      1514
            37                     1     OP       BSS    1                                                       PRE      1515
            40                     1     MRESULT  BSS    1           HOLDS 1/XMTC-FLAG,59/R-NUMBER OF PRODUCT    PRE      1516
            41                     5     TEMP     BSS    5                                                       PRE      1517
            46                     1     LRND     BSS    1           LOCAL L.RND                                 PRE      1518
            47                     1     LVDT     BSS    1           LOCAL L.VDT                                 PRE      1519
                                        *                                  DIT,CDC,VDS PRESERVED BETWEEN CALLS   PRE      1520
            50                     3     DIT      BSS    MDIMS       DIMENSION INDEX TABLE                       PRE      1521
            53                     3     CDC      BSS    MDIMS       CONSTANT DIMENSION COEFFICIENTS             PRE      1522
            56                     3     VDS      BSS    MDIMS       VARIABLE DIMENSION SYMBOLS                  PRE      1523
                                 -27              ERRPL  *-PREBUF-L.INIT   MAKE INIT CODE LONGER                 PRE      1524
           754                                    ORG    IXFNO       RESTORE ORG COUNTER                         PRE      1525
                                                                                                                 PRE      1526
                                                  USE    /TABLES/                                                PRE      1527
             0                   200     ICB      BSS    200B        IXFN CODE BUFFER                            PRE      1528
                                                  USE    0                                                       PRE      1529
                                                                                                                 PRE      1530
           754                     1     PDIM     BSSZ   1           DIM WORD OF PREVIOUS IXFN                   PRE      1531
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    34
        MAIN LOOP                                                     PAR                 CODE
  
                                        **        PAR - PROCESS ARRAY REFERENCE ( IXFN )                         PRE      1533
                                        *         LOOP THROUGH VARIABLE INFORMATION OF IXFN MACRO (A1 CONTAINS   PRE      1534
                                        *         ADDRESS OF FIRST VARIABLE TERM WORD ON EXIT FROM ISP).  PVT    PRE      1535
                                        *         IS CALLED TO PROCESS EACH VARIABLE WORD, AND MAKES AN ENTRY IN PRE      1536
                                        *         THE IXFN TERM TABLE.  PCT IS CALLED FOR EACH ADDITIVE CONSTANT PRE      1537
                                        *         WORD, AND EITHER DRIVES THAT CONSTANT INTO THE FINAL CA (IF    PRE      1538
                                        *         NO PERTINENT DIMENSIONS ARE VARIABLE) OR ISSUES A TERM TO      PRE      1539
                                        *         THE IXFN CODE BUFFER.                                          PRE      1540
                                                                                                                 PRE      1541
           755  0100001033 +             PAR      CALL   ISP         INITIALIZE SUBSCRIPT PROCESSING             PRE      1542
                                                                                                                 PRE      1543
           756  0100001065 +             PAR1     CALL   PVT         PROCESS VARIABLE 1                          PRE      1544
           757  54111                             SA1    A1+B1                                                   PRE      1545
                     0100001065 +                 CALL   PVT         PROCESS VARIABLE 2                          PRE      1546
           760  54111                             SA1    A1+B1                                                   PRE      1547
                     0100001114 +                 CALL   PCT         PROCESS ADDITIVE CONSTANT                   PRE      1548
           761  54111                             SA1    A1+B1                                                   PRE      1549
                     0311000756 +                 NZ     X1,PAR1     IF MACRO NOT FULLY SCANNED                  PRE      1550
                                                                                                                 PRE      1551
                               43600              MX6    0                                                       PRE      1552
           762  54600                             SA6    A0          ZERO FOLLOWING ITT                          PRE      1553
                                                                                                                 PRE      1554
                                        *         THE IXFN TERM TABLE HAS NOW BEEN CONSTRUCTED.  WE PROCEED TO   PRE      1555
                                        *         SORT THE TABLE, WHICH CONSISTS OF ONE ENTRY PER VARIABLE       PRE      1556
                                        *         REFERENCE, INTO SIMPLE ASCENDING ORDER.  THIS GROUPS REFS TO   PRE      1557
                                        *         A SINGLE VARIABLE TOGETHER, WITH VARIABLES APPEARING AS LOOP   PRE      1558
                                        *         CONTROL VARIABLES SINKING TO THE BOTTOM, INNERMOST LOOP LAST.  PRE      1559
                                        *         THIS GROUPING HAS THE EFFECT OF PLACING MOST-INVARIANT         PRE      1560
                                        *         VARIABLE REFS FIRST, TO AID THE LATER REMOVAL OF INVARIANT     PRE      1561
                                        *         EXPRESSIONS.                                                   PRE      1562
                                                                                                                 PRE      1563
                     5130000027 +                 SA3    ITT-1                                                   PRE      1564
                               54130              SA1    A3                                                      PRE      1565
                                                                                                                 PRE      1566
           763  54331                    PAR3     SA3    A3+B1       ITT(I)                                      PRE      1567
                     0303000770 +                 ZR     X3,PAR6     IF END OF ITT, END OF SORT                  PRE      1568
                               54230              SA2    A3                                                      PRE      1569
                                                                                                                 PRE      1570
           764  54221                    PAR4     SA2    A2+B1       ITT(J)                                      PRE      1571
                     0302000763 +                 ZR     X2,PAR3     IF END OF ITT                               PRE      1572
                               37032              IX0    X3-X2                                                   PRE      1573
           765  0320000764 +                      PL     X0,PAR4     IF ITT(I) .LE. ITT(J)                       PRE      1574
                                                                                                                 PRE      1575
                                        *         SWITCH ITT(I) AND ITT(J).                                      PRE      1576
                                                                                                                 PRE      1577
                          10633                   BX6    X3                                                      PRE      1578
                               22702              LX7    X2                                                      PRE      1579
           766  54620                             SA6    A2                                                      PRE      1580
                     10322                        BX3    X2                                                      PRE      1581
                          54730                   SA7    A3                                                      PRE      1582
           767  0400000764 +                      EQ     PAR4                                                    PRE      1583
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    35
        MAIN LOOP                                                                         CODE
  
                                        *         LOOP THROUGH SORTED ITT, ISSUING THE CONTRIBUTION OF EACH      PRE      1585
                                        *         UNIQUE VARIABLE TO THE ULTIMATE ARRAY INDEX.  FOR EACH ENTRY   PRE      1586
                                        *         IN THE ITT, WE MAKE A CONTRIBUTION TO THE APPROPRIATE SCC      PRE      1587
                                        *         ELEMENT, AND WHEN THE END OF THE ENTRIES FOR THE CURRENT       PRE      1588
                                        *         VARIABLE IS REACHED, IST IS CALLED TO ISSUE THAT VARIABLE/S    PRE      1589
                                        *         CONTRIBUTION TO THE IXFN.                                      PRE      1590
                                        *                                                                        PRE      1591
                                        *         THE SCC VECTOR CONTAINS THE COEFFICIENTS OF THE MDIMS TERMS    PRE      1592
                                        *         THAT MAY POSSIBLY PERTAIN TO AN INDEX VARIABLE, WHERE MDIMS    PRE      1593
                                        *         IS THE NUMBER OF DIMENSIONS THAT THE REFERENCED ARRAY HAS.     PRE      1594
                                        *         SCC(1) IS THE COEFFICIENT OF THE VARIABLE, SCC(2) IS THE COEF- PRE      1595
                                        *         FICIENT OF THE VARIABLE TIMES THE FIRST VARDIM, SCC(3) IS THE  PRE      1596
                                        *         COEFFICIENT OF THE VARIABLE TIMES THE FIRST  VARDIM TIMES THE  PRE      1597
                                        *         SECOND VARDIM, ETC.                                            PRE      1598
                                        *         SOME EXAMPLES OF THE SCC SCHEME (USED TO ASSOSCIATE SIMILAR    PRE      1599
                                        *         TERMS) SHOULD HELP CLARIFY ITS IMPLEMENTATION.                 PRE      1600
                                        *                                                                        PRE      1601
                                        *         DIMENSION A(M,N,1),B(M,2,1),C(4,5,1)                           PRE      1602
                                        *                                                                        PRE      1603
                                        *         A(I,I,3*I)                                                     PRE      1604
                                        *                                                                        PRE      1605
                                        *         SCC(1)=1                                                       PRE      1606
                                        *         SCC(2)=1                                                       PRE      1607
                                        *         SCC(3)=3   OR  LOC(A) + I + M*I + 3*M*N*I + CA                 PRE      1608
                                        *                                                                        PRE      1609
                                        *         B(I,I,3*I)                                                     PRE      1610
                                        *                                                                        PRE      1611
                                        *         SCC(1)=1                                                       PRE      1612
                                        *         SCC(2)=1+2*3                                                   PRE      1613
                                        *         SCC(3)=0   OR  LOC(B) + I + 7*M*I + CA                         PRE      1614
                                        *                                                                        PRE      1615
                                        *         C(I,I,3*I)                                                     PRE      1616
                                        *                                                                        PRE      1617
                                        *         SCC(1)=1+4*1+4*5*3                                             PRE      1618
                                        *         SCC(2)=0                                                       PRE      1619
                                        *         SCC(3)=0   OR  LOC(C) + 65*I + CA                              PRE      1620
                                        *                                                                        PRE      1621
                                        *         THE CONTRIBUTION OF THE CONSTANT DIMENSIONS TO AN SCC TERM,    PRE      1622
                                        *         SUCH AS 4*5 FOR THIRD TERM REFERENCES TO C, IS LOADED FROM     PRE      1623
                                        *         THE CDC (CONSTANT DIMENSION COEFFICIENTS) TABLE, FORMED DURING PRE      1624
                                        *         IXFN INITIALIZATION.  IT SHOULD BE FURTHER NOTED THAT A NEW    PRE      1625
                                        *         SCC TABLE IS CONSTRUCTED FOR EACH UNIQUE VARIABLE IN AN IXFN.  PRE      1626
                                                                                                                 PRE      1627
           770  43066                    PAR6     MX0    -TT.SUBL                                                PRE      1628
                     54111                        SA1    A1+B1       ITT(I)                                      PRE      1629
                          0301001000 +            ZR     X1,PAR7     IF END OF ITT                               PRE      1630
           771  20152                             LX1    -TT.SUBP                                                PRE      1631
                     15210                        BX2    -X0*X1      SUBSCRIPT ORDINAL                           PRE      1632
                          5232000047 +            SA3    DIT-1+X2    DIT(SUB)                                    PRE      1633
           772  5242000052 +                      SA4    CDC-1+X2    CDC(SUB)                                    PRE      1634
                          20122                   LX1    TT.SUBP-TT.MCP                                          PRE      1635
                               73210              SX2    X1          MC                                          PRE      1636
           773  5233000024 +                      SA3    SCC-1+X3    SCC(DIT(SUB))                               PRE      1637
                          42542                   IX5    X4*X2                                                   PRE      1638
                               36635              IX6    X3+X5                                                   PRE      1639
           774  54630                             SA6    A3        SCC(DIT(SUB)) = SCC(DIT(SUB)) + MC * CDC(SUB) PRE      1640
                     43052                        MX0    -TT.PL                                                  PRE      1641
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    36
        MAIN LOOP                                                                         CODE
  
                          20144                   LX1    TT.MCP-TT.PP                                            PRE      1642
                               15110              BX1    -X0*X1      POINTER TO RND ENTRY                        PRE      1643
           775  54211                             SA2    A1+B1                                                   PRE      1644
                     20244                        LX2    -TT.PP                                                  PRE      1645
                          15220                   BX2    -X0*X2      POINTER TO RND ENTRY FOR NEXT ITT ENTRY     PRE      1646
                               37612              IX6    X1-X2                                                   PRE      1647
           776  0306000770 +                      ZR     X6,PAR6     IF IH,CA OF NEXT TERM MATCHES THIS TERM     PRE      1648
                          0100001144 +            CALL   IST         ISSUE SUBSCRIPT TERM                        PRE      1649
           777  0400000770 +                      EQ     PAR6                                                    PRE      1650
  
  
  
  
                                        *         PRODUCE LD/ST/STT TO ARRAY.                                    PRE      1652
                                                                                                                 PRE      1653
          1000  5110000000 X             PAR7     SA1    O.MAC       (X1) = FWA MACRO                            PRE      1654
                          53210                   SA2    X1          MACRO HEADER                                PRE      1655
                               76670              SX6    B7                                                      PRE      1656
          1001  5160000000 X                      SA6    =XNIRN                                                  PRE      1657
                          43054                   MX0    -RM.RIL                                                 PRE      1658
                               15320              BX3    -X0*X2      R-NUMBER FROM MACRO                         PRE      1659
          1002  63730                             SB7    X3          FOR ISSUE                                   PRE      1660
                     43073                        MX0    -1                                                      PRE      1661
                          21220                   AX2    RM.RIL                                                  PRE      1662
                               15320              BX3    -X0*X2                                                  PRE      1663
          1003  63530                             SB5    X3          DOUBLE/COMPLEX ARRAY BIT                    PRE      1664
                     53211                        SA2    X1+B1       ARRAY IH,CA                                 PRE      1665
                          73320                   SX3    X2          (X3) = IH                                   PRE      1666
                               20252              LX2    -IH.CAP                                                 PRE      1667
          1004  63320                             SB3    X2          B3 = CA                                     PRE      1668
                     5110000023 +                 SA1    CA          CA FROM TERM CALCULATION                    PRE      1669
                               73613              SX6    X1+B3                                                   PRE      1670
          1005  5140000022 +                      SA4    TIF         R-NUMBER OF LAST TERM ISSUED                PRE      1671
                          5150000037 +            SA5    OP          OC.LD/ST/STT                                PRE      1672
          1006  6160000052                        SB6    OC.STT                                                  PRE      1673
                          63350                   SB3    X5                                                      PRE      1674
                               10166              BX1    X6                                                      PRE      1675
                                                                                                                 PRE      1676
          1007  43052                    PAR8     MX0    -IH.CAL                                                 PRE      1677
                     15110                        BX1    -X0*X1                                                  PRE      1678
                          76670                   ISSUE  OP=B3,TY=III,IH=X3,CA=X1,RF=X4                          PRE      1679
          1013  0450001016 +                      ZR     B5,PAR9     IF NOT DOUBLE WORD ARRAY                    PRE      1680
                          0436001016 +            EQ     B3,B6,PAR9  IF SET IXFN                                 PRE      1681
          1014  20152                             LX1    -IH.CAP                                                 PRE      1682
                     66500                        SB5    B0                                                      PRE      1683
                                                  LX3    -IH.IHP                                                 PRE      1684
                          73111                   SX1    X1+B1       CA = CA + 1                                 PRE      1685
                               20430              LX4    -IH.RFP     RESTORE SEMANTIC INFO                       PRE      1686
          1015  0400001007 +                      EQ     PAR8        ISSUE SECOND LD/ST/STT                      PRE      1687
                                                                                                                 PRE      1688
          1016  5110000000 X             PAR9     SA1    MACINS      NUMBER OF TYPE 3 INSTRUCTIONS ISSUED        PRE      1689
                          5150000000 C            SA5    ICB         FWA OF CODE FOR EEM                         PRE      1690
          1017  75052                             SX0    A5-B2       (X0) = - NUMBER OF WORDS IN CODE BUFFER     PRE      1691
                     14000                        BX0    -X0                                                     PRE      1692
                          37601                   IX6    X0-X1                                                   PRE      1693
                               54610              SA6    A1          MACINS = INSTRUCTIONS ISSUED                PRE      1694
          1020  5120000043 +                      SA2    TEMP+2                                                  PRE      1695
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    37
        MAIN LOOP                                                                         CODE
  
                          54121                   SA1    A2+B1                                                   PRE      1696
                               10622              BX6    X2                                                      PRE      1697
          1021  53610                             SA6    X1          RESTORE WORD FOLLOWING IXFN                 PRE      1698
                     5110000046 +                 SA1    LRND                                                    PRE      1699
          1022  5120000047 +                      SA2    LVDT                                                    PRE      1700
                          10611                   BX6    X1                                                      PRE      1701
                               22702              LX7    X2                                                      PRE      1702
          1023  5160000000 X                      SA6    L.RND                                                   PRE      1703
                          5170000000 X            SA7    L.VDT                                                   PRE      1704
          1024  5110000000 X                      SA1    MACINS                                                  PRE      1705
                          5130000037 +            SA3    OP                                                      PRE      1706
          1025  5223000757 +                      SA2    PAR.JT+X3-OC.LD                                         PRE      1707
                          10622                   BX6    X2                                                      PRE      1708
          1026  5160000744 +                      SA6    ERM         PLUG ERM RETURN ADDRESS                     PRE      1709
                          0400000746 +            EQ     ERM3        FILE EXPANSION IN TEXT                      PRE      1710
                                                                                                                 PRE      1711
          1027                           PAR.JT   BSS    0                                                       PRE      1712
      L     50                                    LOC    OC.LD                                                   PRE      1713
      L     50  0400000111 +                      EQ     PPS1        FOR OC.LD                                   PRE      1714
      L     51  0400000414 +                      EQ     STM0        FOR OC.ST                                   PRE      1715
      L     52  0400000111 +                      EQ     PPS1        FOR OC.STT                                  PRE      1716
          1032                                    LOC    *O                                                      PRE      1717
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    38
        ISP - INITIALIZE SUBSCRIPT PROCESSING.                        ISP                 CODE
  
                                        **        ISP - INITIALIZE SUBSCRIPT PROCESSING.                         PRE      1719
                                                                                                                 PRE      1720
          1032  5120000000 X             ISP0     SA2    =XNIRN                                                  PRE      1721
                          54111                   SA1    A1+B1                                                   PRE      1722
                               63720              SB7    X2          (B7) = NEXT AVAILABLE INTERMEDIATE R        PRE      1723
                                                                                                                 PRE      1724
          1033  0200401033 +             ISP      ROUTINE                                                        PRE      1725
          1034  5160000037 +                      SA6    OP          OP = OC.LD/ST/STT                           PRE      1726
                          7110000006              ALLOC  RND,6       ALLOCATE FOR R-NUMBER DEFINITION TABLE      PRE      1727
          1036  76660                             SX6    B6                                                      PRE      1728
                     5160000046 +                 SA6    LRND                                                    PRE      1729
                               76111              ALLOC  VDT,2                                                   PRE      1730
          1040  76660                             SX6    B6                                                      PRE      1731
                     5160000047 +                 SA6    LVDT                                                    PRE      1732
                               13666              SETZERO  O.ITS,L.ITS                                           PRE      1733
          1043  6120000000 C                      SB2    ICB         (B2) = NEXT ICB STORE ADDRESS               PRE      1734
                          5100000030 +            SA0    ITT         A0 = NEXT ITT ENTRY ADDRESS                 PRE      1735
          1044  43600                             MX6    0                                                       PRE      1736
                     5130000000 X                 SA3    O.MAC                                                   PRE      1737
                               53230              SA2    X3                                                      PRE      1738
          1045  20236                             LX2    -R1.INP                                                 PRE      1739
                     5160000000 X                 SA6    =XMACINS                                                PRE      1740
                               63521              SB5    X2+B1       (B5) = MACRO LENGTH                         PRE      1741
          1046  54125                             SA1    A2+B5                                                   PRE      1742
                     10711                        BX7    X1                                                      PRE      1743
                          54625                   SA6    A2+B5       (LWA IXFN + 1) = 0                          PRE      1744
          1047  5170000043 +                      SA7    TEMP+2      SAVE WORD FOLLOWING IXFN, AND ADDRESS       PRE      1745
                          74660                   SX6    A6                                                      PRE      1746
          1050  5160000044 +                      SA6    TEMP+3                                                  PRE      1747
                          5213000002              SA1    X3+2        DIMENSION INFO                              PRE      1748
          1051  5120000754 +                      SA2    PDIM        X2 = DIM INFO OF PREVIOUS IXFN              PRE      1749
                          10611                   BX6    X1                                                      PRE      1750
                               37021              IX0    X2-X1                                                   PRE      1751
          1052  54620                             SA6    A2          PDIM = DIM INFO                             PRE      1752
                     0300001032 +                 ZR     X0,ISP0     IF PDIM .EQ. DIM INFO                       PRE      1753
          1053  6130000050 +                      SB3    DIT                                                     PRE      1754
                          6140000053 +            SB4    CDC                                                     PRE      1755
          1054  6150000056 +                      SB5    VDS                                                     PRE      1756
                          76710                   SX7    B1                                                      PRE      1757
                               56730              SA7    B3          DIT(1) = 1                                  PRE      1758
          1055  56740                             SA7    B4          CDC(1) = 1                                  PRE      1759
                     43700                        MX7    0                                                       PRE      1760
                          56750                   SA7    B5          J = 1 ;  VDS(J) = 0                         PRE      1761
                               66600              SB6    B0          I = 2                                       PRE      1762
          1056  10311                             BX3    X1                                                      PRE      1763
                     20104                        LX1    3+1         PABC(DIMENSION 1) = PABC(1) TO BIT 0        PRE      1764
                          43073                   MX0    -1                                                      PRE      1765
                                                                                                                 PRE      1766
          1057  15210                    ISP1     BX2    -X0*X1      (X2) = PABC(I - 1)                          PRE      1767
                     56436                        SA4    B3+B6       DIT(I - 1)                                  PRE      1768
                          36642                   IX6    X4+X2                                                   PRE      1769
                               54641              SA6    A4+B1       DIT(I) = DIT(I - 1) + PABC(I -  1)          PRE      1770
          1060  73530                             SX5    X3          (X3) = DT = DIM(I - 1)                      PRE      1771
                     0302001062 +                 ZR     X2,ISP2     IF DIM(I - 1) IS CONSTANT                   PRE      1772
                               12775              BX7    X7+X5                                                   PRE      1773
          1061  54771                             SA7    A7+B1       J = J + 1 ;  VDS(J) = VDS(J-1) ! DIM(J-1)   PRE      1774
                     76510                        SX5    B1          DT = 1                                      PRE      1775
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    39
        ISP - INITIALIZE SUBSCRIPT PROCESSING.                        ISP                 CODE
  
                          20722                   LX7    18                                                      PRE      1776
                                                                                                                 PRE      1777
          1062  56446                    ISP2     SA4    B4+B6       CDC(I - 1)                                  PRE      1778
                     42645                        IX6    X4*X5                                                   PRE      1779
                          20101                   LX1    1           ADVANCE PABC                                PRE      1780
                               54641              SA6    A4+B1       CDC(I) = CDC(I - 1) * DT                    PRE      1781
          1063  66661                             SB6    B6+B1       I = I + 1                                   PRE      1782
                     20352                        LX3    -18         ADVANCE DIM                                 PRE      1783
                          7156777775              SX5    B6-2                                                    PRE      1784
          1064  0315001057 +                      NZ     X5,ISP1     IF I .NE. 4                                 PRE      1785
                          0400001032 +            EQ     ISP0                                                    PRE      1786
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    40
        PVT - PROCESS VARIABLE TERM.                                  PVT                 CODE
  
                                        **        PVT - PROCESS VARIABLE TERM.                                   PRE      1788
                                                                                                                 PRE      1789
          1065  0200401065 +             PVT      ROUTINE                                                        PRE      1790
          1066  43030                             MX0    -IX.CAIHL                                               PRE      1791
                                                  LX1    -IX.CAIHP                                               PRE      1792
                     15210                        BX2    -X0*X1                                                  PRE      1793
                          0302001065 +            ZR     X2,PVT      IF IH,CA .EQ. 0                             PRE      1794
          1067  7140002000                        SX4    V.SUB                                                   PRE      1795
                          5130000012              SA3    O.SYM                                                   PRE      1796
          1070  63620                             SB6    X2          IH                                          PRE      1797
                     6243777776                   SB4    X3-1                                                    PRE      1798
                               66566              SB5    B6+B6                                                   PRE      1799
          1071  57345                             SA3    B4-B5       WORD B                                      PRE      1800
                     12634                        BX6    X3+X4       SET SUB BIT                                 PRE      1801
                          54630                   SA6    A3                                                      PRE      1802
          1072  5130000000 X                      SA3    O.RND       ORIGIN OF R-NUMBER DEFINITION TABLE         PRE      1803
                          5140000046 +            SA4    LRND        LOCAL L.RND                                 PRE      1804
          1073  36634                             IX6    X3+X4                                                   PRE      1805
                     63660                        SB6    X6          B6 = LWA(RND) + 1                           PRE      1806
                          5253777776              SA5    X3-1                                                    PRE      1807
                                                                                                                 PRE      1808
          1074  64551                    PVT1     SB5    A5+B1       I = I + 1                                   PRE      1809
                     0456001105 +                 EQ     B5,B6,PVT5  IF END OF RND                               PRE      1810
                               56550              SA5    B5          (X5) = RND(I)                               PRE      1811
                                                  LX5    -RN.CAIHP                                               PRE      1812
          1075  15550                             BX5    -X0*X5                                                  PRE      1813
                     37625                        IX6    X2-X5                                                   PRE      1814
                          0316001074 +            NZ     X6,PVT1     IF CA,IH NOT IN RND                         PRE      1815
                                                                                                                 PRE      1816
          1076  20130                    PVT2     LX1    IX.CAIHP-IX.MCP                                         PRE      1817
                     5140000000 X                 SA4    O.ALS       (X4) = FWA OF ACTIVE LOOP STACK             PRE      1818
                               63640              SB6    X4                                                      PRE      1819
          1077  5130000000 X                      SA3    L.ALS                                                   PRE      1820
                          53436                   SA4    X3+B6                                                   PRE      1821
                                                                                                                 PRE      1822
          1100  55441                    PVT3     SA4    A4-B1       I = I - 1 ,  X4 = ALS(I)                    PRE      1823
                     0304001102 +                 ZR     X4,PVT4     IF HEAD OF TABLE                            PRE      1824
                               37642              IX6    X4-X2                                                   PRE      1825
          1101  0316001100 +                      NZ     X6,PVT3     IF CA,IH NOT IN TABLE                       PRE      1826
                                                                                                                 PRE      1827
          1102  75446                    PVT4     SX4    A4-B6       ALS ORDINAL                                 PRE      1828
                     20452                        LX4    TT.LDP                                                  PRE      1829
                          43044                   MX0    -IX.SUBL-IX.MCL                                         PRE      1830
                               15210              BX2    -X0*X1      (X2) = SUB AND MC                           PRE      1831
                                                  LX2    TT.MCP                                                  PRE      1832
          1103  12624                             BX6    X2+X4       OR (TT.SUB,TT.MC,TT.LD)                     PRE      1833
                     74350                        SX3    A5          POINTER TO RND TABLE                        PRE      1834
                          20330                   LX3    TT.PP                                                   PRE      1835
                               12763              BX7    X6+X3                                                   PRE      1836
          1104  54700                             SA7    A0          TT(NTE) = OR(LD,P,SUB,MC)                   PRE      1837
                     54001                        SA0    A0+B1       NEXT AVAILABLE ITT ADDRESS                  PRE      1838
                          0400001065 +            EQ     PVT                                                     PRE      1839
                                                                                                                 PRE      1840
          1105  10322                    PVT5     BX3    X2                                                      PRE      1841
                     76670                        ISSUE  OP=LD,CAIH=X3                                           PRE      1842
                          77071                   SX0    B7-B1                                                   PRE      1843
                               20044              LX0    RN.RIP                                                  PRE      1844
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    41
        PVT - PROCESS VARIABLE TERM.                                  PVT                 CODE
  
                                                  LX2    RN.CAIHP                                                PRE      1845
          1111  12602                             BX6    X0+X2                                                   PRE      1846
                     56660                        SA6    B6          B6 = NEW LWA OF RND TABLE                   PRE      1847
                          73741                   SX7    X4+B1                                                   PRE      1848
                               54740              SA7    A4          L.RND = L.RND + 1                           PRE      1849
          1112  54560                             SA5    A6          RESTORE FOR TERM TABLE                      PRE      1850
                     0400001076 +                 EQ     PVT2                                                    PRE      1851
  
  
  
  
                                        **        PCT - PROCESS CONSTANT TERM.                                   PRE      1853
                                                                                                                 PRE      1854
          1113  5130000023 +             PCT0     SA3    CA                                                      PRE      1855
                          36763                   IX7    X6+X3       CA = CA + AC * CDC(SUB)                     PRE      1856
                               54730              SA7    A3                                                      PRE      1857
                                                                                                                 PRE      1858
          1114  0200401114 +             PCT      ROUTINE                                                        PRE      1859
          1115  55211                             SA2    A1-B1       PREVIOUS VARIABLE TERM                      PRE      1860
                     43066                        MX0    -IX.SUBL                                                PRE      1861
                          20206                   LX2    -IX.SUBP                                                PRE      1862
                               15420              BX4    -X0*X2      SUBSCRIPT NUMBER                            PRE      1863
          1116  5234000047 +                      SA3    DIT-1+X4    DIT(SUB)                                    PRE      1864
                          5254000052 +            SA5    CDC-1+X4    (X5) = CDC(SUB)                             PRE      1865
          1117  5223000055 +                      SA2    VDS-1+X3    (X2) = VDS(DIT(SUB))                        PRE      1866
                          42615                   IX6    X1*X5       (X6) = AC  * CDC(SUB)                       PRE      1867
          1120  0306001114 +                      ZR     X6,PCT      IF MULTIPLIER FOR CON CALCULATION .EQ. 0    PRE      1868
                          0302001113 +            ZR     X2,PCT0     IF NO VARIABLE DIMENSION PERTAIN            PRE      1869
          1121  5160000041 +                      SA6    TEMP        SAVE MULTIPLIER                             PRE      1870
                          0100001133 +            CALL   LVE         LOAD VARDIM EXPRESSION                      PRE      1871
          1122  5120000041 +                      SA2    TEMP                                                    PRE      1872
                          67671                   SB6    B7-B1                                                   PRE      1873
          1123  0100001231 +                      CALL   ICM         ISSUE LOGICAL MULTIPLY BY CONSTANT          PRE      1874
          1124  5130000040 +                      SA3    MRESULT                                                 PRE      1875
                          0100001213 +            CALL   ITA         ISSUE ADD OF GENERATED TERM                 PRE      1876
          1125  0400001114 +                      EQ     PCT                                                     PRE      1877
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    42
        SUBROUTINES                                                   PAR                 CODE
  
                                        **        LVE - LOAD VARDIM EXPRESSION.                                  PRE      1879
                                                                                                                 PRE      1880
          1126  5120000000 X             LVE0     SA2    =XVD.                                                   PRE      1881
                          76060                   SX0    B6                                                      PRE      1882
                               76670              ISSUE  OP=LD,IH=X2,CA=X0                                       PRE      1883
                                                                                                                 PRE      1884
          1133  0200401133 +             LVE      ROUTINE                                                        PRE      1885
          1134  66600                             SB6    B0                                                      PRE      1886
                     5140000000 X                 SA4    O.VDT                                                   PRE      1887
          1135  5130000047 +                      SA3    LVDT                                                    PRE      1888
                          0303001141 +            ZR     X3,LVE2     IF NO VARDIM TABLE                          PRE      1889
          1136  53540                             SA5    X4          FIRST ENTRY OF VDT                          PRE      1890
                     63530                        SB5    X3                                                      PRE      1891
                                                                                                                 PRE      1892
          1137  37652                    LVE1     IX6    X5-X2                                                   PRE      1893
                     0306001126 +                 ZR     X6,LVE0     IF EXPRESSION MATCHES THIS VDT ENTRY        PRE      1894
                               66661              SB6    B6+B1                                                   PRE      1895
          1140  54551                             SA5    A5+B1                                                   PRE      1896
                     0765001137 +                 LT     B6,B5,LVE1  IF MORE ENTRIES IN VDT                      PRE      1897
                                                                                                                 PRE      1898
          1141  10622                    LVE2     BX6    X2                                                      PRE      1899
                     53646                        SA6    X4+B6       VDT(N) = X2                                 PRE      1900
                          76761                   SX7    B6+B1                                                   PRE      1901
                               54730              SA7    A3          LVDT = LVDT + 1                             PRE      1902
          1142  0400001126 +                      EQ     LVE0                                                    PRE      1903
  
  
  
                                        **        IST - ISSUE SUBSCRIPT TERM.                                    PRE      1905
                                                                                                                 PRE      1906
          1143  5120000045 +             IST0     SA2    TEMP+4                                                  PRE      1907
                          53120                   SA1    X2          RESTORE A1                                  PRE      1908
                                                                                                                 PRE      1909
          1144  0200401144 +             IST      ROUTINE                                                        PRE      1910
          1145  74610                             SX6    A1                                                      PRE      1911
                     5160000045 +                 SA6    TEMP+4      SAVE A1                                     PRE      1912
                               53210              SA2    X1                                                      PRE      1913
          1146  20230                             LX2    -RN.RIP                                                 PRE      1914
                     73620                        SX6    X2                                                      PRE      1915
                          5160000041 +            SA6    TEMP        TEMP = R-NUMBER OF VARIABLE                 PRE      1916
          1147  5110000030 +                      SA1    SCC+3       I = 4                                       PRE      1917
                                                                                                                 PRE      1918
          1150  55111                    IST1     SA1    A1-B1       I = I - 1 ,  (I) = SCC(I)                   PRE      1919
                     6160000024 +                 SB6    SCC-1                                                   PRE      1920
                               75016              SX0    A1-B6                                                   PRE      1921
          1151  0300001201 +                      ZR     X0,IST5     IF END OF SCC TABLE                         PRE      1922
                          0301001150 +            ZR     X1,IST1     IF NO SUBTERM                               PRE      1923
          1152  5021000031                        SA2    A1+VDS-SCC  VDS(I)                                      PRE      1924
                          0302001170 +            ZR     X2,IST3     IF NO VARDIM IN SUBTERM                     PRE      1925
          1153  0100001133 +                      CALL   LVE         LOAD VARDIM EXPRESSION                      PRE      1926
          1154  54210                             SA2    A1          X2 = SCC(I)                                 PRE      1927
                     67671                        SB6    B7-B1       OPERAND OF MULTIPLY ( = VARDIM)             PRE      1928
                          0100001231 +            CALL   ICM         ISSUE LOGICAL MULTIPLY                      PRE      1929
          1155  5120000040 +                      SA2    MRESULT                                                 PRE      1930
                          5140000024 +            SA4    STF                                                     PRE      1931
          1156  73720                             SX7    X2                                                      PRE      1932
                     0304001164 +                 ZR     X4,IST2     IF FIRST SUBTERM                            PRE      1933
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    43
        SUBROUTINES                                                   IST                 CODE
  
                               43001              MX0    1                                                       PRE      1934
          1157  11502                             BX5    X0*X2                                                   PRE      1935
                     20501                        LX5    1                                                       PRE      1936
                          6235000036              SB3    OC.IA+X5    OC.IA/IS                                    PRE      1937
          1160  76670                             ISSUE  OP=B3,TY=I,RJ=X4,RK=X7                                  PRE      1938
                     77671                        SX6    B7-B1                                                   PRE      1939
                          54640                   SA6    A4                                                      PRE      1940
          1163  0400001150 +                      EQ     IST1                                                    PRE      1941
                                                                                                                 PRE      1942
          1164  54740                    IST2     SA7    A4          STF = R-NUMBER OF ACCUMULATION              PRE      1943
                     0322001150 +                 PL     X2,IST1     IF XMTC FLAG NOT SET BY ICM                 PRE      1944
                               76670              ISSUE  OP=XMTC,RJ=X7                                           PRE      1945
          1167  77671                             SX6    B7-B1                                                   PRE      1946
                     54640                        SA6    A4                                                      PRE      1947
                          0400001150 +            EQ     IST1                                                    PRE      1948
                                                                                                                 PRE      1949
          1170  5140000024 +             IST3     SA4    STF                                                     PRE      1950
                          43052                   MX0    -IH.CAL                                                 PRE      1951
                               15210              BX2    -X0*X1                                                  PRE      1952
          1171  0314001174 +                      NZ     X4,IST4     IF NOT FIRST SUBTERM                        PRE      1953
                          5130000041 +            SA3    TEMP                                                    PRE      1954
          1172  73220                             SX2    X2          EXTEND SIGN FOR ICM                         PRE      1955
                     63630                        SB6    X3          B6 = R-NUMBER OF VARIABLE                   PRE      1956
                          0100001231 +            CALL   ICM         ISSUE MULTIPLY BY CONSTANT                  PRE      1957
          1173  5130000040 +                      SA3    MRESULT                                                 PRE      1958
                          0400001206 +            EQ     IST6                                                    PRE      1959
                                                                                                                 PRE      1960
          1174  76670                    IST4     ISSUE  OP=STT,RF=X4,CA=X2                                      PRE      1961
                               77671              SX6    B7-B1                                                   PRE      1962
          1200  54640                             SA6    A4          STF = R-NUMBER OF ACCUMULATION              PRE      1963
                                                                                                                 PRE      1964
          1201  5120000024 +             IST5     SA2    STF                                                     PRE      1965
                          5130000041 +            SA3    TEMP        R-NUMBER OF VARIABLE                        PRE      1966
          1202  0302001143 +                      ZR     X2,IST0     IF NOTHING ISSUED                           PRE      1967
                          76670                   ISSUE  OP=IM,RJ=X2,RK=X3                                       PRE      1968
                          77371                   SX3    B7-B1       FOR ITA                                     PRE      1969
                                                                                                                 PRE      1970
          1206  0100001213 +             IST6     CALL   ITA         ADD TERM TO PREVIOUS TERM ACCUMULATION      PRE      1971
          1207  13666                             SETZERO  O.TTS,L.TTS                                           PRE      1972
          1211  0400001143 +                      EQ     IST0                                                    PRE      1973
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    44
        SUBROUTINES                                                   ITA                 CODE
  
                                        **        ITA - ISSUE TERM ADD.                                          PRE      1975
                                                                                                                 PRE      1976
          1212  7167777776               ITA0     SX6    B7-1                                                    PRE      1977
                          5160000022 +            SA6    TIF         TIF = R-NUMBER OF THIS ACCUMULATION         PRE      1978
                                                                                                                 PRE      1979
          1213  0200401213 +             ITA      ROUTINE                                                        PRE      1980
          1214  5120000022 +                      SA2    TIF                                                     PRE      1981
                          73730                   SX7    X3                                                      PRE      1982
                               43001              MX0    1                                                       PRE      1983
          1215  0312001222 +                      NZ     X2,ITA2     IF NOT FIRST TERM ISSUED                    PRE      1984
                          0333001217 +            MI     X3,ITA1     IF XMTC FLAG ON                             PRE      1985
          1216  5170000022 +                      SA7    TIF                                                     PRE      1986
                          0400001213 +            EQ     ITA                                                     PRE      1987
                                                                                                                 PRE      1988
          1217  76670                    ITA1     ISSUE  OP=XMTC,RJ=X7                                           PRE      1989
                     0400001212 +                 EQ     ITA0                                                    PRE      1990
                                                                                                                 PRE      1991
          1222  11503                    ITA2     BX5    X0*X3                                                   PRE      1992
                     20501                        LX5    1                                                       PRE      1993
                          6235000036              SB3    OC.IA+X5    OC.IA/IS                                    PRE      1994
          1223  76670                             ISSUE  OP=B3,TY=I,RJ=X2,RK=X7                                  PRE      1995
                     0400001212 +                 EQ     ITA0                                                    PRE      1996
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    45
        SUBROUTINES                                                   ICM                 CODE
  
                                        **        ICM - ISSUE CONSTANT MULTIPLY.                                 PRE      1998
                                        *         ISSUES RLIST TO IXFN CODE BUFFER FOR A LOGICAL INTEGER         PRE      1999
                                        *         MULTIPLY OF A CONSTANT TIMES SOME OPERAND.  MULTIPLIES ARE     PRE      2000
                                        *         REDUCED IN STRENGTH TO ADDS (IF CONSTANT = 2) OR TO SHIFT      PRE      2001
                                        *         AND ADD SEQUENCES (IF CONSTANT = 2**J, 2**J+2**K OR 2**K-2**J) PRE      2002
                                        *                                                                        PRE      2003
                                        *         ENTRY  X2 = CONSTANT MULTIPLIER                                PRE      2004
                                        *                B6 = R-NUMBER OF MULTIPLICAND                           PRE      2005
                                        *                B7 = NEXT AVAILABLE INTERMEDIATE R-NUMBER               PRE      2006
                                        *                B2 = NEXT AVAILABLE ADDRESS IN IXFN CODE BUFFER         PRE      2007
                                        *                B1 = 1                                                  PRE      2008
                                        *                                                                        PRE      2009
                                        *         EXIT   B7 - UPDATED                                            PRE      2010
                                        *                B2 - UPDATED                                            PRE      2011
                                        *                B1 - PRESERVED                                          PRE      2012
                                        *                A0 - PRESERVED                                          PRE      2013
                                        *                A1 - PRESERVED                                          PRE      2014
                                        *                (MRESULT) - 1/XMTC-NECESSARY FLAG,59/R-NUMBER OF RESULT PRE      2015
                                        *                                                                        PRE      2016
                                        *         USES   ALL OTHER REGISTERS                                     PRE      2017
                                                                                                                 PRE      2018
          1226  7167777776               ICM0     SX6    B7-1                                                    PRE      2019
                                                                                                                 PRE      2020
          1227  5120000042 +             ICM0A    SA2    TEMP+1                                                  PRE      2021
                          43001                   MX0    1                                                       PRE      2022
                               11102              BX1    X0*X2       SIGN BIT OF ORIGINAL CONSTANT               PRE      2023
          1230  12661                             BX6    X6+X1                                                   PRE      2024
                     5160000040 +                 SA6    MRESULT                                                 PRE      2025
                                                                                                                 PRE      2026
          1231  0200401231 +             ICM      ROUTINE                                                        PRE      2027
          1232  0302001336 +                      ZR     X2,ICM7     IF CONSTANT .EQ. 0                          PRE      2028
                          10622                   BX6    X2                                                      PRE      2029
          1233  5160000042 +                      SA6    TEMP+1      SAVE CON                                    PRE      2030
                          21673                   AX6    59                                                      PRE      2031
                               13226              BX2    X2-X6       (X2) = ABS(CON)                             PRE      2032
          1234  6150000057                        SB5    47                                                      PRE      2033
                          76110                   SX1    B1          X1 = 1                                      PRE      2034
                               37621              IX6    X2-X1                                                   PRE      2035
          1235  11026                             BX0    X2*X6                                                   PRE      2036
                     0310001253 +                 NZ     X0,ICM3     IF CON NOT 2**J                             PRE      2037
                               24642              NX6    B4,X2                                                   PRE      2038
          1236  67454                             SB4    B5-B4       B4 = J = LOG2(CON)                          PRE      2039
                     76260                        SX2    B6          X2 = OPERAND                                PRE      2040
                          0440001243 +            ZR     B4,ICM1     IF CONSTANT .EQ. 1                          PRE      2041
          1237  0541001244 +                      NE     B4,B1,ICM2  IF CONSTANT .NE. 2                          PRE      2042
                          10122                   BX1    X2          X1 = OPERAND                                PRE      2043
                               76670              ISSUE  OP=IA,RJ=X1,RK=X2  ISSUE OP + OP                        PRE      2044
                          0400001226 +            EQ     ICM0                                                    PRE      2045
                                                                                                                 PRE      2046
          1243  73620                    ICM1     SX6    X2                                                      PRE      2047
                     0400001227 +                 EQ     ICM0A                                                   PRE      2048
                                                                                                                 PRE      2049
          1244  76670                    ICM2     ISSUE  OP=SXT,RJ=X2                                            PRE      2050
                     76240                        SX2    B4          CA = SHIFT COUNT = J                        PRE      2051
                          77371                   SX3    B7-B1                                                   PRE      2052
                               76670              ISSUE  OP=KLS,RF=X3,CA=X2                                      PRE      2053
                          0400001226 +            EQ     ICM0                                                    PRE      2054
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    46
        SUBROUTINES                                                   ICM                 CODE
  
                                                                                                                 PRE      2055
          1253  37501                    ICM3     IX5    X0-X1                                                   PRE      2056
                     11305                        BX3    X0*X5                                                   PRE      2057
                          0313001300 +            NZ     X3,ICM4     IF CONSTANT NOT 2**J + 2**K                 PRE      2058
          1254  24640                             NX6    B4,X0                                                   PRE      2059
                     67454                        SB4    B5-B4       B4 = MAX(J,K)                               PRE      2060
                          37620                   IX6    X2-X0                                                   PRE      2061
                               76260              SX2    B6          X2 = R-NUMBER OF OPERAND                    PRE      2062
          1255  24036                             NX0    B3,X6                                                   PRE      2063
                     67553                        SB5    B5-B3       B5 = MIN(J,K)                               PRE      2064
                          77145                   SX1    B4-B5       X1 = MAX(J,K) - MIN(J,K)                    PRE      2065
                               10422              BX4    X2                                                      PRE      2066
          1256  76670                             ISSUE  OP=SXT,RJ=X4                                            PRE      2067
                     77371                        SX3    B7-B1                                                   PRE      2068
                          76670                   ISSUE  OP=KLS,RF=X3,CA=X1                                      PRE      2069
                          77371                   SX3    B7-B1                                                   PRE      2070
                               76670              ISSUE  OP=IA,RJ=X3,RK=X2                                       PRE      2071
                          0450001226 +            ZR     B5,ICM0     IF MIN(J,K) .EQ. 0                          PRE      2072
          1270  77371                             SX3    B7-B1                                                   PRE      2073
                     76670                        ISSUE  OP=SXT,RJ=X3                                            PRE      2074
                          77371                   SX3    B7-B1                                                   PRE      2075
                               76150              SX1    B5                                                      PRE      2076
          1273  76670                             ISSUE  OP=KLS,RF=X3,CA=X1                                      PRE      2077
          1277  0400001226 +                      EQ     ICM0                                                    PRE      2078
                                                                                                                 PRE      2079
          1300  12726                    ICM4     BX7    X2+X6                                                   PRE      2080
                     36071                        IX0    X7+X1                                                   PRE      2081
                          11107                   BX1    X0*X7                                                   PRE      2082
          1301  0311001326 +                      NZ     X1,ICM6     IF CONST NOT 2**K - 2**J                    PRE      2083
                          24640                   NX6    B4,X0                                                   PRE      2084
                               67454              SB4    B5-B4       B4 = K                                      PRE      2085
          1302  37202                             IX2    X0-X2                                                   PRE      2086
                     24332                        NX3    B3,X2                                                   PRE      2087
                          76260                   SX2    B6          X2 = OPERAND                                PRE      2088
                               67553              SB5    B5-B3       B5 = J                                      PRE      2089
          1303  10422                             BX4    X2                                                      PRE      2090
                     76670                        ISSUE  OP=SXT,RJ=X4                                            PRE      2091
                          77371                   SX3    B7-B1                                                   PRE      2092
                               76440              SX4    B4                                                      PRE      2093
          1306  76670                             ISSUE  OP=KLS,RF=X3,CA=X4                                      PRE      2094
                               77071              SX0    B7-B1                                                   PRE      2095
          1312  0450001322 +                      ZR     B5,ICM5     IF J .EQ. 0                                 PRE      2096
                          76670                   ISSUE  OP=SXT,RJ=X2                                            PRE      2097
          1315  76450                             SX4    B5          J                                           PRE      2098
                     77271                        SX2    B7-B1                                                   PRE      2099
                          76670                   ISSUE  OP=KLS,RF=X2,CA=X4                                      PRE      2100
                          77271                   SX2    B7-B1                                                   PRE      2101
                                                                                                                 PRE      2102
          1322  76670                    ICM5     ISSUE  OP=IS,RJ=X0,RK=X2                                       PRE      2103
          1325  0400001226 +                      EQ     ICM0                                                    PRE      2104
                                                                                                                 PRE      2105
          1326  5130000042 +             ICM6     SA3    TEMP+1      ORIGINAL CONSTANT                           PRE      2106
                          43052                   MX0    -18                                                     PRE      2107
                               15230              BX2    -X0*X3      IN                                          PRE      2108
          1327  76670                             ISSUE  OP=S,IN=X2                                              PRE      2109
                     76160                        SX1    B6          OPERAND                                     PRE      2110
                          77271                   SX2    B7-B1                                                   PRE      2111
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    47
        SUBROUTINES                                                   ICM                 CODE
  
                               76670              ISSUE  OP=IM,RJ=X1,RK=X2                                       PRE      2112
                          77671                   SX6    B7-B1                                                   PRE      2113
          1335  5160000040 +                      SA6    MRESULT                                                 PRE      2114
                          0400001231 +            EQ     ICM                                                     PRE      2115
                                                                                                                 PRE      2116
          1336  76670                    ICM7     ISSUE  OP=CLR                                                  PRE      2117
                               77671              SX6    B7-B1                                                   PRE      2118
          1340  5160000040 +                      SA6    MRESULT                                                 PRE      2119
                          0400001231 +            EQ     ICM                                                     PRE      2120
                                                                                                                 PRE      2121
          1341                                    END                                                            PRE      2122
  
                             66300B CM  STORAGE USED             3953 STATEMENTS      867 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            3.213 SECONDS        1069 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW=            0   EXTERNAL*       5/42      8/35     10/43     12/37     17/04     25/05
                                            5/52      9/55     11/39     12/45     17/26     26/36
                                            6/26     10/30     11/44     13/15     20/06     26/37
        AI.BASEP       72                   2/21 D   28/27
        AI.BIASL       22                   2/27 D
        AI.BIASP       22                   2/27 D   28/17
        AI.EQVP        73                   2/20 D
        AI.INDXL       22                   2/25 D    2/28
        AI.INDXP        0                   2/25 D    2/28     27/44
        AI.LENL        22                   2/24 D    2/27
        AI.LENP        22                   2/24 D    2/27     27/21     27/44
        AI.LINKL       22                   2/23 D
        AI.LINKP       44                   2/23 D
        AI.ORDL        22                   2/28 D
        AI.ORDP         0                   2/28 D
        AP.CAIHL       44   FTNTEXT        27/08
        AP.CAIHP        0   FTNTEXT        27/08
        AP.P1P         71   FTNTEXT         5/40
        AP.STL          1   FTNTEXT        27/08
        AP.STP         73   FTNTEXT        27/08
        ATS=            0   EXTERNAL*       5/07      5/31      6/08     21/35     29/30     38/09
                                            5/24      5/50     15/41     29/15     30/47     38/12
        BRN             0   PROGRAM*        2/03 E    2/04 L    7/12 S   19/19 S
        B1=1            0 
        CBN             0   EXTERNAL*       1/52 X    9/52     10/29     11/44     12/45     13/18     20/01
                                            8/32     10/04     10/43     12/37     13/15     17/26     26/35
        CBUF            0   EXTERNAL*      11/04     11/14
        CF.FROML       22                   3/27 D
        CF.FROMP       36                   3/27 D    8/35     10/30     11/44     12/45     17/26     26/36
                                            5/52      9/55     10/43     12/37     13/15     20/06     26/37
        CF.IHP         73                   3/25 D
        CF.TOL         22                   3/29 D
        CF.TOP          0                   3/29 D
        CODE.           0   EXTERNAL*       4/10
        CPL             0   EXTERNAL*       5/46     14/57     17/57     25/11
        CUB             0   EXTERNAL*       4/11
        CWS=            0   EXTERNAL*       4/56
        DOBGN           0   EXTERNAL*       7/26
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        DOEND           0   EXTERNAL*       7/28
        D.BMP          52   FTNTEXT         8/28
        D.JPP          41   FTNTEXT        12/21     12/25
        D.LDP          43   FTNTEXT        13/33
        D.RFP          23   FTNTEXT        26/22     26/29
        D.TYL           2   FTNTEXT        30/51
        D.TYP          72   FTNTEXT        12/25     30/29
        EMR             0   EXTERNAL*       8/03     24/54     26/19
        FI.FTP         66   FTNTEXT        13/54
        FI.LENP        22   FTNTEXT        14/20     15/03
        FI.REGPP       44   FTNTEXT        14/06
        FPL2            0   EXTERNAL*       4/08 S
        FSU             0   EXTERNAL*       9/40
        FUNTYPE         0   EXTERNAL*       5/37
        F.RDT           0   EXTERNAL*       1/50 X    6/09     26/20     26/26     29/47     30/48
        IH.CAIHL       44   FTNTEXT        16/37
        IH.CAL         22   FTNTEXT        36/39     43/18
        IH.CAP         22   FTNTEXT        23/31     36/41     42/05     45/56     46/23     46/46
                                           36/29     36/44     43/28     46/15     46/40
        IH.IHL         22   FTNTEXT        16/11
        IH.IL           3   FTNTEXT         9/04
        IH.IP          17   FTNTEXT         9/06
        IH.RFP         44   FTNTEXT        36/41     36/48     43/28     45/56     46/15     46/23     46/40     46/46
        IMPA            0   EXTERNAL*       5/17
        IX.CAIHL       44   FTNTEXT        40/04
        IX.CAIHP        0   FTNTEXT        40/30
        IX.MCL         22   FTNTEXT        40/43
        IX.MCP         44   FTNTEXT        40/30
        IX.SUBL         6   FTNTEXT        40/43     41/20
        IX.SUBP        66   FTNTEXT        41/21
        I.AP       200000   FTNTEXT        14/30     27/14
        I.GL       100000   FTNTEXT        10/05     17/13
        I.IO       300000   FTNTEXT        14/32
        LCM.OA          0   EXTERNAL*       5/53
        LEVEL2          0   EXTERNAL*       4/06
        LINENR          0   EXTERNAL*      19/17 S
        LM              0   EXTERNAL*       1/53 X    5/22
        LSN             2   PROGRAM*        2/06 E    2/06 L   19/14 S   19/39 S   24/17
        LWAWORK         0   EXTERNAL*       4/16
        L.ADF          33   FTNTEXT         9/09
        L.ALS           0   EXTERNAL*       8/48 S   26/03     40/33
        L.APL           0   EXTERNAL*      14/39     27/17     28/31 S   28/39
        L.CFT           0   EXTERNAL* 
        L.FTYP          2   FTNTEXT        13/50
        L.IOL           0   EXTERNAL*       5/48 S   14/17
        L.LOOP          0   EXTERNAL*       1/51 X    4/22
        L.MOD           0   EXTERNAL* 
        L.RND           0   EXTERNAL*       8/41 S   12/06 S   13/07 S   13/34 S   16/06     16/42 S   24/57 S   37/08 S
        L.TXT           0   EXTERNAL*       8/46      9/47     11/49     15/02     15/23     19/04     30/09 S
        L.TYP           4   FTNTEXT        17/19
        L.VDT           0   EXTERNAL*      37/09 S
        MACINS          0   EXTERNAL*       1/50 X   36/41     37/10     40/55     43/28     46/15     46/40
                                           30/44     36/51     38/22 S   42/05     45/56     46/23     46/46
        MACORG          0   EXTERNAL*       7/14
        MACTYP          0   EXTERNAL*       1/50 X    8/04
        MACWDS          0   EXTERNAL*       1/50 X   30/56 S
        MAX.RL          0   EXTERNAL*       5/21
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        MU              0   EXTERNAL*       1/53 X    5/09 S
        MVE=            0   EXTERNAL*      15/47     28/56
        M.BLK        2004                   1/48 D   19/30
        M.DOBGN         2                   1/44 D   24/16
        M.TXT           4   PROGRAM*        2/09 L    5/05 S   19/22
        NIRN            0   EXTERNAL*      21/26     29/31     30/07 S   36/19 S   38/03
        N.AP            0   EXTERNAL*       1/51 X    4/28
        N.FP            0   EXTERNAL*       4/05
        N.GL            0   EXTERNAL*       1/51 X    4/29
        N.GL0           0   EXTERNAL*       1/52 X    4/39 S
        OC.BOS          1   FTNTEXT         6/09
        OC.CLR        102   FTNTEXT        47/06
        OC.IA          36   FTNTEXT        43/04     44/20     45/47     46/17
        OC.IM         101   FTNTEXT        43/35     47/01
        OC.IS          37   FTNTEXT        46/49
        OC.KLS         20   FTNTEXT        45/56     46/15     46/23     46/40     46/46
        OC.LD          50   FTNTEXT         7/30     26/20     26/26     37/12     37/18     40/55     42/05
        OC.S           55   FTNTEXT        46/55
        OC.ST          51   FTNTEXT         7/32     16/10     23/16
        OC.STT         52   FTNTEXT         7/34     36/35     43/28
        OC.SXT        103   FTNTEXT        45/53     46/13     46/20     46/37     46/43
        OC.UJP         73   FTNTEXT        12/42
        OC.XMTC        14   FTNTEXT        43/12     44/15
        OPTLVL          0   EXTERNAL*       1/51 X    6/28     19/23     24/36
        OPT2            0   EXTERNAL*       1/52 X    9/30     10/39     12/04     13/44     25/06
                                            5/14     10/26     11/33     13/05     19/44     26/27
        O.ALS           0   EXTERNAL*      40/31
        O.API           0   EXTERNAL*       1/51 X    4/34 S   27/15
        O.APL           0   EXTERNAL*      14/44     14/56     27/30
        O.CFT           0   EXTERNAL* 
        O.EMRB          0   EXTERNAL*       1/50 X   30/45
        O.GLT           0   EXTERNAL*       1/51 X    4/40 S   10/07
        O.IOL           0   EXTERNAL* 
        O.LCM           0   EXTERNAL*       1/52 X    5/55 S
        O.LOOP          0   EXTERNAL*       1/51 X    4/25 S   24/15
        O.MAC           0   EXTERNAL*       1/50 X    7/15     17/47     17/54     29/32     36/16     38/19
        O.MOD           0   EXTERNAL*       6/12
        O.RND           0   EXTERNAL*      16/07     40/16
        O.SYM          12                   1/42 D    9/11     13/43     17/09     24/41
                                            6/11     10/12     16/09     17/38     40/09
        O.TEND          0   EXTERNAL*       1/53 X    4/49 S
        O.TXT           0   EXTERNAL*       6/10     11/19     15/01     15/22     19/03     30/04
        O.VDT           0   EXTERNAL*      42/09
        PAPL            7   PROGRAM*        2/12 L   14/38     27/11 S   27/16     28/52 S
        PIOL           10   PROGRAM*        2/13 E    2/13 L   14/16     15/04 S
        PRE            11   PROGRAM*        4/03 E    4/03 L    6/34      8/50      8/53
        PROSEQ          0   EXTERNAL*       8/31      8/52      9/51     13/11     13/17     19/51     19/57     25/23
        P.FLG          60   FTNTEXT        24/46
        P.FTYP         52   FTNTEXT        13/51     14/04
        P.GEN          67   FTNTEXT         9/23      9/25
        P.RA           23   FTNTEXT        14/04
        P.RB           14   FTNTEXT         9/09
        P.RSN          65   FTNTEXT         9/25
        P.SUB          12   FTNTEXT        16/27
        P.TYP          70   FTNTEXT        17/20
        RETURNS         0   EXTERNAL*       5/56     14/40
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        RLI             0   EXTERNAL*       1/50 X    9/05     15/48     19/52     29/16
                                            7/09     15/24     15/49     20/07
        RM.CAL         22   FTNTEXT        21/16
        RM.RIL         20   FTNTEXT        21/09     21/12     36/20     36/24
        RRL             0   EXTERNAL*       1/50 X    7/08      9/03     11/26     15/21
        RS              5   PROGRAM*        2/10 L   17/25 S   19/25     20/04 S
        RSELECT         0   EXTERNAL*       1/51 X
        R1.INP         36   FTNTEXT        17/36     19/12     19/37     24/08     24/10     38/21     46/55
        R1.RIL         20   FTNTEXT        15/26     23/13
        R1.RJP         40   FTNTEXT        21/52     43/12     44/15     45/47     46/13     46/20     46/43     47/01
                                           43/05     43/35     44/21     45/53     46/17     46/37     46/49
        R1.RKP         20   FTNTEXT        21/51     43/05     43/35     44/21     45/47     46/17     46/49     47/01
        R1.SOL         16   FTNTEXT        17/34
        R1.SOP         20   FTNTEXT        17/33     17/36
        R=FLAG          0   EXTERNAL*       4/17
        SETCORE         0   EXTERNAL*       4/44      5/30
        TOV             0   EXTERNAL*       1/53 X
        T.LAB           6   FTNTEXT        17/22
        VALUE.          0   EXTERNAL*       5/36
        VD.             0   EXTERNAL*      42/03
        V.SUB        2000   FTNTEXT        40/08
        WB              3   PROGRAM*        2/08 E    6/31 S   10/38     11/32     19/47     25/18
                                            2/08 L    9/28     11/08     13/04     24/52 S   25/25 S
        XR              6   PROGRAM*        2/11 E    2/11 L   13/29 S   19/27     19/41 S
        Z.ALS           0   EXTERNAL*       6/26     25/05
        Z.APL           0   EXTERNAL*      17/04
        Z.BST           0   EXTERNAL*       5/50
        Z.CFT           0   EXTERNAL*       5/52      9/55     10/43     12/37     13/15     20/06     26/37
                                            8/35     10/30     11/44     12/45     17/26     26/36
        Z.IOL           0   EXTERNAL*       5/42
        Z.MOD           0   EXTERNAL*       6/08
        Z.RND           0   EXTERNAL*      38/09
        Z.TXT           1                   1/42 D    5/24     11/39     15/41     21/35     29/15     29/30     30/47
        Z.UDI           0   EXTERNAL*       5/31
        Z.VDT           0   EXTERNAL*      38/12
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     CFT                                 2/55 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  CODE
  
  
        AGO           237   PROGRAM*        8/16     11/03 L
        ARI           713   PROGRAM*        8/27      8/38      9/33     10/03     11/27     15/37     19/36     29/14 L
        ARI0          711   PROGRAM*       29/07 L   29/21
        BOS           460   PROGRAM*        7/21     19/03 L   19/53     20/08
        BOS1          470   PROGRAM*       19/09     19/22 L
        BOS2          476   PROGRAM*       19/31     19/36 L
        BOS4          502   PROGRAM*       19/29     19/32     19/44 L
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    51
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        BOS5          504   PROGRAM*       19/24     19/51 L
        BOS6          506   PROGRAM*       19/26     19/45     19/57 L
        CA             23   PROGRAM*       33/27 L   36/31     41/14
        CDC            53   PROGRAM*       33/46 L   35/50     38/37     41/24
        CGO           243   PROGRAM*        8/17     11/13 L
        CGOA           12   PROGRAM*       11/23 S   11/25 S   11/28     11/40     11/48     11/57 D
        CGO1          246   PROGRAM*       11/07     11/19 L
        CGO2          250   PROGRAM*       11/25 L   11/30
        CGO3          260   PROGRAM*       11/44 L   11/46
        CGO4          267   PROGRAM*       11/52     11/54 L
        CVI           632   PROGRAM*        9/10     25/15 S   25/28 L
        DIT            50   PROGRAM*       33/45 L   35/49     38/36     41/23
        ENT           222   PROGRAM*        8/12     10/25 L
        ERM           744   PROGRAM*        7/03     10/37     11/13     13/03     16/04     26/25     30/43 L
                                           10/25     11/03     12/03     13/27     24/55     30/20     37/14 S
        ERM1          735   PROGRAM*       30/18 L   30/35
        ERM2          736   PROGRAM*       30/22 L   30/41     30/57
        ERM3          746   PROGRAM*       30/46 L   37/15
        EXIT          230   PROGRAM*        8/13     10/37 L
        EXM           514   PROGRAM*        7/37     21/08 L
        EXMA          535   PROGRAM*       21/46     22/09 L
        EXMB          544   PROGRAM*       21/15     22/37 L
        EXMC           12   PROGRAM*       21/14 S   21/18 S   21/37     22/56 D
        EXM1          522   PROGRAM*       21/29 L   21/32
        EXM2          524   PROGRAM*       21/25     21/35 L
        EXM3          527   PROGRAM*       21/43 L   22/01
        ICB             0   TABLES         33/52 L   36/52     38/16
        ICM          1231   PROGRAM*       41/33     42/53     43/24     45/30 L   47/04     47/09
        ICM0         1226   PROGRAM*       45/22 L   45/48     45/57     46/18     46/24     46/50
        ICM0A        1227   PROGRAM*       45/24 L   45/51
        ICM1         1243   PROGRAM*       45/44     45/50 L
        ICM2         1244   PROGRAM*       45/45     45/53 L
        ICM3         1253   PROGRAM*       45/40     46/02 L
        ICM4         1300   PROGRAM*       46/04     46/26 L
        ICM5         1322   PROGRAM*       46/42     46/49 L
        ICM6         1326   PROGRAM*       46/29     46/52 L
        ICM7         1336   PROGRAM*       45/31     47/06 L
        IFM           270   PROGRAM*        8/15     12/03 L
        IFMA           12   PROGRAM*       12/17 S   12/35     12/41     12/48 D
        IFM1          275   PROGRAM*       12/19 L   12/31
        IFM2          300   PROGRAM*       12/26     12/29 L
        IFM3          301   PROGRAM*       12/23     12/33 L
        IFM4          302   PROGRAM*       12/37 L   12/39
        ISE           720   PROGRAM*       23/10     29/29 L   29/36
        ISP          1033   PROGRAM*       34/10     38/07 L
        ISP0         1032   PROGRAM*       38/03 L   38/35     39/11
        ISP1         1057   PROGRAM*       38/49 L   39/10
        ISP2         1062   PROGRAM*       38/54     39/03 L
        IST          1144   PROGRAM*       36/08     42/34 L
        IST0         1143   PROGRAM*       42/31 L   43/34     43/40
        IST1         1150   PROGRAM*       42/43 L   42/47     43/08     43/11     43/15
        IST2         1164   PROGRAM*       42/57     43/10 L
        IST3         1170   PROGRAM*       42/49     43/17 L
        IST4         1174   PROGRAM*       43/20     43/28 L
        IST5         1201   PROGRAM*       42/46     43/32 L
        IST6         1206   PROGRAM*       43/26     43/38 L
        ITA          1213   PROGRAM*       41/35     43/38     44/06 L   44/13
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    52
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        ITA0         1212   PROGRAM*       44/03 L   44/16     44/22
        ITA1         1217   PROGRAM*       44/11     44/15 L
        ITA2         1222   PROGRAM*       44/10     44/18 L
        ITT            30   PROGRAM*       33/38 L   34/32     38/17
        IXFNO         754   PROGRAM*       33/23 L   33/49
        LAB           166   PROGRAM*        8/11      9/03 L
        LAB1          177   PROGRAM*        9/08      9/24      9/28 L
        LAB2          204   PROGRAM*        9/18      9/40 L
        LAB3          206   PROGRAM*        9/31      9/47 L
        LAB4          213   PROGRAM*        9/49     10/03 L
        LAB5          217   PROGRAM*       10/06     10/12 L
        LRND           46   PROGRAM*       33/42 L   37/04     38/11 S   40/17
        LVDT           47   PROGRAM*       33/43 L   37/05     38/14 S   42/10
        LVE          1133   PROGRAM*       41/30     42/07 L   42/50
        LVE0         1126   PROGRAM*       42/03 L   42/16     42/25
        LVE1         1137   PROGRAM*       42/15 L   42/19
        LVE2         1141   PROGRAM*       42/11     42/21 L
        L.INIT         76                   6/36 D   11/57     12/48     15/15     22/56     33/48
        L.ITS           6                  33/36 D   38/15
        L.TTS           4                  33/35 D   43/39
        MDIMS           3                  33/19 D   33/34     33/38     33/45     33/46     33/47
        MRESULT        40   PROGRAM*       33/40 L   41/34     42/54     43/25     45/28 S   47/03 S   47/08 S
        OP             37   PROGRAM*       33/39 L   36/34     37/11     38/08 S
        O.ITS          22   PROGRAM*       33/25 L   33/36     38/15 S
        O.TTS          24   PROGRAM*       33/32 L   33/35     43/39 S
        PAL           431   PROGRAM*        7/25     17/03 L
        PAL1          433   PROGRAM*        6/04 S   17/09 L
        PAL2          444   PROGRAM*        6/02     17/27 L
        PAR           755   PROGRAM*        7/31      7/33      7/35     34/10 L
        PAR1          756   PROGRAM*       34/12 L   34/18
        PAR3          763   PROGRAM*       34/35 L   34/40
        PAR4          764   PROGRAM*       34/39 L   34/42     34/51
        PAR6          770   PROGRAM*       34/36     35/44 L   36/07     36/09
        PAR7         1000   PROGRAM*       35/46     36/16 L
        PAR8         1007   PROGRAM*       36/39 L   36/49
        PAR9         1016   PROGRAM*       36/42     36/43     36/51 L
        PAR.JT       1027   PROGRAM*       37/12     37/17 L
        PCT          1114   PROGRAM*       34/16     41/18 L   41/27     41/36
        PCT0         1113   PROGRAM*       41/14 L   41/28
        PDB           575   PROGRAM*        7/27     24/03 L
        PDB1          577   PROGRAM*       24/05     24/12 L
        PDB2          605   PROGRAM*       24/26     24/36 L
        PDB4          613   PROGRAM*       24/39     24/49     24/54 L
        PDB5          625   PROGRAM*       25/07     25/18 L
        PDE           576   PROGRAM*        7/29     24/07 L
        PDE1          633   PROGRAM*       24/22     26/03 L
        PDE2          637   PROGRAM*       26/09     26/19 L
        PDIM          754   PROGRAM*       33/55 L   38/31
        PIO           445   PROGRAM*        7/39     17/33 L
        PIO1          453   PROGRAM*       17/49 L   17/53
        PIO2          455   PROGRAM*       17/37     17/45     17/54 L
        PPL           655   PROGRAM*       15/12     27/13 L   28/32     28/57
        PPLA          653   PROGRAM*       27/08 L   27/32
        PPL0          654   PROGRAM*       27/10 L   27/38
        PPL1          664   PROGRAM*       27/36 L   27/40     28/02
        PPL2          670   PROGRAM*       27/48     27/52 L
        PPL3          671   PROGRAM*       27/56 L   28/05
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    53
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        PPL4          702   PROGRAM*       28/30     28/36 L
        PPL5          703   PROGRAM*       28/41 L   28/47
        PPL6          705   PROGRAM*       28/44     28/47 L
        PPS0          110   PROGRAM*        7/03 L    8/10
        PPS1          111   PROGRAM*        6/29      9/26     10/31     14/09     15/38     17/12     19/20     25/26
                                            6/32      9/35     11/10     14/15     15/57     17/14     19/42     26/07
                                            7/08 L    9/41     12/07     14/19     16/08     17/23     21/45     37/19
                                            8/29     10/10     13/08     14/26     16/20     17/27     23/36     37/21
                                            8/36     10/19     13/12     14/31     16/21     18/01     25/16
                                            8/42     10/27     13/21     15/13     16/43     19/16     25/20
        PPS2          132   PROGRAM*        7/16      8/03 L
        PPS3          150   PROGRAM*        7/13      8/27 L
        PPS4          157   PROGRAM*        8/38 L    9/29
        PPS5          160   PROGRAM*        8/40 L   10/40     11/34
        PPS6          162   PROGRAM*        7/24      8/46 L
        PPS.M         117   PROGRAM*        7/17      7/22 L
        PPS.MT        135   PROGRAM*        8/06      8/08 L
        PREBUF         12   PROGRAM*        6/34 D    6/36     11/57     12/48     15/15     22/56     33/24     33/48
        PRE1           21   PROGRAM*        4/21      4/27 L
        PRE1A          37   PROGRAM*        5/03      5/05 L
        PRE1B          31   PROGRAM*        4/43      4/46 L
        PRE2           63   PROGRAM*        5/38      5/50 L
        PRE4           72   PROGRAM*        5/15      6/02 L
        PRE5           74   PROGRAM*        5/57      6/08 L
        PVT          1065   PROGRAM*       34/12     34/14     40/03 L   40/07     40/52
        PVT1         1074   PROGRAM*       40/22 L   40/28
        PVT2         1076   PROGRAM*       40/30 L   41/07
        PVT3         1100   PROGRAM*       40/36 L   40/39
        PVT4         1102   PROGRAM*       40/37     40/41 L
        PVT5         1105   PROGRAM*       40/23     40/54 L
        RJX           327   PROGRAM*        8/18     13/27 L
        RJXA           12   PROGRAM*       13/45 S   15/11     15/15 D
        RJX1          334   PROGRAM*       13/36     13/42 L
        RJX2          344   PROGRAM*       14/03     14/13 L
        RJX2A         345   PROGRAM*       14/15 L   14/33
        RJX3          352   PROGRAM*       14/13     14/30 L
        RJX4          361   PROGRAM*       14/49 L   14/53
        RJX5          363   PROGRAM*       14/43     14/52     14/55 L
        RJX6          371   PROGRAM*       14/34     14/55     15/11 L
        RN.CAIHL       44                  33/17 D
        RN.CAIHP        0                  33/17 D
        RN.CAL         22                  33/14 D
        RN.CAP         22                  33/14 D
        RN.IHL         22                  33/15 D
        RN.IHP          0                  33/15 D   33/17
        RN.RIL         22                  33/13 D
        RN.RIP         44                  33/13 D   40/57     42/38
        RSM           373   PROGRAM*        8/19     15/21 L
        RSM1          377   PROGRAM*       15/30 L   15/34
        RSM2          403   PROGRAM*       15/36     15/40 L
        SCC            25   PROGRAM*       33/34 L   35/53     42/41     42/44     42/48
        SFR           563   PROGRAM*        7/38     23/09 L
        SFR1          566   PROGRAM*       23/18 L   23/21
        SRI           725   PROGRAM*       21/56     23/33     29/46 L   29/56
        STF            24   PROGRAM*       33/33 L   42/55     43/17     43/32
        STM           413   PROGRAM*        8/20     16/04 L
        STM0          414   PROGRAM*       16/06 L   37/20
1       PRE / PAR - PROCESS ARRAY REFERENCE                           COMPASS 3.7-871.     24/05/02. 15.56.07.      PAGE    54
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        STM1          420   PROGRAM*       16/17 L   16/28     16/39
        STM2          425   PROGRAM*       16/32 L   16/35
        TEMP           41   PROGRAM*       33/41 L   38/27 S   41/29 S   42/31     42/40 S   43/33     45/33 S
                                           36/57     38/29 S   41/31     42/36 S   43/21     45/24     46/52
        TIF            22   PROGRAM*       33/26 L   36/33     44/04 S   44/07     44/12 S
        TSE           731   PROGRAM*       23/35     30/03 L   30/10
        TT.LDL         22                  33/04 D
        TT.LDP         52                  33/04 D   40/42
        TT.MCL         22                  33/07 D
        TT.MCP          0                  33/07 D   35/51     36/01
        TT.PL          22                  33/05 D   35/57
        TT.PP          30                  33/05 D   36/01     36/04     40/48
        TT.SUBL         6                  33/06 D   35/44
        TT.SUBP        22                  33/06 D   35/47     35/51
        UJP           313   PROGRAM*        8/14     13/03 L
        UJP1          317   PROGRAM*        9/36     10/41     11/09     11/35     13/11 L   26/32
        UJP2          321   PROGRAM*       13/09     13/14 L
        UJP3          324   PROGRAM*       10/44     11/55     12/43     12/46     13/17 L   26/38
        VDS            56   PROGRAM*       33/47 L   38/38     41/25     42/48
        .SCR            7                   6/42 D   11/57 D   12/48 D   15/15 D   22/56 D
                                           11/57     12/48     15/15     22/56     33/24
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      667              IDENT  CFA
                        667              F.CFA    END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       666 
                                        LITERALS* LOCAL         666         1 
                                        TABLES    COMMON          0        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=CFA            0+           DGS             23+           F.CFA          667+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.GST     L.BST     O.RND     NPB       SST       MSG=      L.LCT     GIC 
                                        L.GST     O.GLT     L.RND     Z.OTI     CDD       PROGNAM   ADW=
                                        O.CFT     L.GLT     CBN       Z.RND     FA=LOL    ATS=      Z.GST 
                                        L.CFT     O.OTI     M.GRL     M.LP      R=FLAG    Z.CFT     O.IST 
                                        O.BST     L.OTI     N.DG      SHL       SLIST     N.FTH     SBD 
  
  
  
  
                                                  IDENT  CFA                                                     CFA         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=CFA    RPVDEF                                                         CFA         5
                                                  PASS2TM                                                        CFA         6
                                                                                                                 CFA         7
  
  
                                        **        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
                                                  ENTRY  DGS,F.CFA                                               CFA        21
                                                                                                                 CFA        22
                                                  TABLES GST,CFT,BST,GLT,OTI,RND                                 CFA        23
                                   0 X   O.BIT    EQU    O.BST                                                   CFA        24
                                   0 X   L.BIT    EQU    L.BST                                                   CFA        25
                                                  EXT    CBN,M.GRL,N.DG,NPB                                      CFA        26
                                                                                                                 CFA        27
                                1400     MAX.GST  EQU    1400B       MAX GRAPH SPACE ( INCORE )                  CFA        28
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE     2
                                                                      CFA 
  
                                                                                                                 CFA        29
                                        **        DEBUG FACILITIES                                               CFA        30
                                        *                                                                        CFA        31
                                        *         TRACER (FGS,FGS.X,FIS1,FIS.X,CBD.X,FDG.X)                      CFA        32
  
  
  
                                        *         SCRATCH CELLS USED DURING GRAPH / INTERVAL FORMATION           CFA        34
                                                                                                                 CFA        35
                                                  USE    /TABLES/                                                CFA        36
             0                     1     PBN      BSS    1           PREVIOUS BLOCK NUMBER ( *CBN* ON ENTRY )    CFA        37
                                                                                                                 CFA        38
             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
                                                                                                                 CFA        41
             4                     1     LC       BSS    1           SAVED LENGTH OF *CFT*                       CFA        42
             5                     2     EIB      BSS    2           EDGE INDEX BASE                             CFA        43
                                   5 C   EII      EQU    EIB         EDGE INDEX INDEX  ( RELATIVE TO O.GST )     CFA        44
                                   6 C   ETB      EQU    EIB+1       EDGE TABLE BASE                             CFA        45
             7                     1     ILB      BSS    1           INTERVAL LIST BASE                          CFA        46
                                                                                                                 CFA        47
            10                     1     HTL      BSS    1           HEADER TABLE LIST                           CFA        48
            11                     1     NPH      BSS    1           N.PRED OF HEADER AT BEGIN OF INTERVAL       CFA        49
            12                     1     FTH      BSS    1           FALL THROUGH TO HEADER FROM A LATCHING NODE FCC0408    92
            13                     1     SCR      BSS    1           "0 IF GRAPH CONTAINS LOOPS                  CFA        50
            14                     1     IP       BSS    1           INTERVAL POINTER ( CBD )                    CFA        52
            15                     1     NN       BSS    1           N.NODES REMAINING ( CBD12 )                 CFA        53
                                  15 C   I        EQU    NN                                                      CFA        54
                                                  USE    0                                                       CFA        55
  
  
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE     3
        CFTBLD - CONTROL FLOW TABLE DEFINITIONS                       CFTBLD
  
             0                           CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                 CFTBLD      2
                                                                                                                 CFTBLD      3
                                        **        CF. - CONTROL FLOW TABLE FORMAT                                CFTBLD      4
                                                                                                                 CFTBLD      5
                                                  DESCRIBE CF.,60                                                CFTBLD      6
                                         JP       DEFINE 1                                                       CFTBLD      7
                                                  DEFINE 11                                                      CFTBLD      8
                                         FROM     DEFINE 18          BLOCK NUMBER OF PRED                        CFTBLD      9
                                                  DEFINE 12                                                      CFTBLD     10
                                         TO       DEFINE 18          BLOCK NUMBER OF SUCC                        CFTBLD     11
  
  
  
                                        **        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
                                         LB       DEFINE 18          LINK BACKWARDS ( LENGTH OF LAST GRAPH )     CFTBLD     21
                                         LF       DEFINE 18          LINK FOWARD ( LENGTH OF THIS GRAPH )        CFTBLD     22
                                                                                                                 CFTBLD     23
                                                  DESCRIBE GB.,60                                                CFTBLD     24
                                                  DEFINE 6                                                       CFTBLD     25
                                         NLP      DEFINE 18          N.LOOPS                                     CFTBLD     26
                                         NB       DEFINE 18          N.BLOCKS IN GRAPH                           CFTBLD     27
                                         ILI      DEFINE 18          INTERVAL LIST INDEX ( REL TO *EII* )        CFTBLD     28
  
  
                                        **        EI. - EDGE INDEX TABLE                                         CFTBLD     30
                                                                                                                 CFTBLD     31
                                                  DESCRIBE EI.,60                                                CFTBLD     32
                                         PRI      DEFINE 18          PREDECESSOR INDEX  ( REL TO EIB )           CFTBLD     33
                                         NP       DEFINE 12          N.PRED ( PACKED )                           CFTBLD     34
                                         SUI      DEFINE 18          SUCCESSOR INDEX                             CFTBLD     35
                                         NS       DEFINE 12          N.SUCC ( PACKED )                           CFTBLD     36
  
  
                                        **        ET. - EDGE TABLE FORMAT                                        CFTBLD     38
                                                                                                                 CFTBLD     39
                                                  DESCRIBE ET.,60                                                CFTBLD     40
                                         JP       DEFINE 1           JUMP EDGE ( SUCCESSOR EDGES )               CFTBLD     41
                                                  DEFINE 11                                                      CFTBLD     42
                                         PRED     DEFINE 18          BLOCK NUMBER OF PRED                        CFTBLD     43
                                                  DEFINE 12                                                      CFTBLD     44
                                         SUCC     DEFINE 18          BLOCK NUMBER OF SUCCESSOR                   CFTBLD     45
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE     4
        CFTBLD - CONTROL FLOW TABLE DEFINITIONS                       IP
  
                                        **        IP. - INTERVAL PROPERTIES                                      CFTBLD     47
                                                                                                                 CFTBLD     48
                                                  DESCRIBE IP.,60                                                CFTBLD     49
                                         GL       DEFINE 1           SET IF REGION NEEDS A *GL* WHEN OPTIMIZED   CFTBLD     50
                                         FT       DEFINE 1           FALL THROUGH TO HEADER NODE                 FCC0408     7
                                                  DEFINE 4                                                       FCC0408     8
                                         NIP      DEFINE 18          N. INTERNAL PRED OF HEADER NODE             FCC0392    11
                                         PB       DEFINE 18          BLOCK NUMBER OF PROLOGUE BLOCK ( *SCR* " 0  CFTBLD     53
                                         NODE     DEFINE 18          NUMBER OF NODES IN INTERVAL                 CFTBLD     54
  
  
                                        **        IM. - INTERVAL MEMBER PROPERTIES                               CFTBLD     56
                                                                                                                 CFTBLD     57
                                                  DESCRIBE IM.,60                                                CFTBLD     58
                                         SCR      DEFINE 1           IN STRONGLY CONNECTED REGION                CFTBLD     59
                                         AP       DEFINE 1           ARTICULATION POINT                          CFTBLD     60
                                         LN       DEFINE 1           LATCHING NODE ( JUMPS BACK TO LOOP HEADER ) CFTBLD     61
                                         DOM      DEFINE 1           NODE IS A DOMINATOR                         CFTBLD     62
                                         EN       DEFINE 1           INTERVAL EXIT NODE                          CFTBLD     63
                                         HN       DEFINE 1           HEADER NODE                                 CFTBLD     64
                                         BI       DEFINE 18          INDEX TO BLOCK INFO IN *BIT*                CFTBLD     65
                                         IBD      DEFINE 18          IMMEDIATE BACK DOMINATOR ( REL TO *HN* )    CFTBLD     66
                                         BN       DEFINE 18          NODE NUMBER OF BLOCK                        CFTBLD     67
                                                                                                                 CFTBLD     68
                                         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
                                         INI      DEFINE 1           IN AN INTERVAL                              CFA        62
                                         INH      DEFINE 1           IN HEADER LIST                              CFA        63
                                         1P       DEFINE 1           =1 IF ONLY 1 PREDECESSOR                    FCC1191     6
                                                  DEFINE 3                                                       FCC1191     7
                                         HN       DEFINE 18          HEADER NODE NUMBER                          CFA        65
                                         IA       DEFINE 18          ADDRESS OF NODE IN INTERVAL LIST            CFA        66
                                         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
                                         BITN     DEFINE 12          PACKED BIT NUMBER                           CFA        73
                                         WI       DEFINE 18          WORD INDEX                                  CFA        74
                                         BVI      DEFINE 18          BIT VECTOR INDEX                            CFA        75
                                         NI       DEFINE 12          NODE INDEX ( REL TO INTERVAL BASE )         CFA        76
  
  
                                                  LIST   R                                                       CFA        78
                                                  QUAL   CODE                                                    CFA        79
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      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                          CFA       104
            10  5150000000 X                      SA5    =XO.IST                                                 CFA       105
                          10711                   BX7    X1                                                      CFA       106
                               63250              SB2    X5                                                      CFA       107
            11  5110000015 C                      SA1    I                                                       CFA       108
                          53712                   SA7    B2+X1       IST(I) = RIW  */ SAVE MASS STORAGE ADDRESS  CFA       109
                               73611              SX6    X1+B1       I = I + 1                                   CFA       110
            12  5130000000 X                      SA3    O.GST                                                   CFA       111
                          5150000000 X            SA5    GIC                                                     CFA       112
            13  36435                             IX4    X3+X5       FWA = O.GST + GIC                           CFA       113
                     53240                        SA2    X4                                                      CFA       114
                                                  LX2    -GA.LFP                                                 CFA       115
                          73520                   SX5    X2          LEN = LF[FWA]                               CFA       116
                               54610              SA6    A1                                                      CFA       117
            14  0315000006 +                      NZ     X5,CGT1     IF LEN " 0                                  CFA       118
                                                                                                                 CFA       119
                          5140000000 X            SA4    =XM.GRL                                                 CFA       120
            15  76620                             SX6    B2                                                      CFA       121
                     74771                        SX7    A7+B1                                                   CFA       122
                          5160000000 X            SA6    GIC         GIC = O.IST   */ POINT TO FIRST GRAPH       CFA       123
            16  5170000000 X                      SA7    O.IST       O.IST = O.IST + I                           CFA       124
                          7264000001              SX6    X4+1                                                    CFA       125
            17  5160000000 X                      SA6    L.GST       L.GST = M.GRL + 1                           CFA       126
                          0400000000 +            EQ     CGT                                                     CFA       127
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      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  0100000044 +                      CALL   AFT         ADJUST FLOW TABLE                           CFA       137
            25  43600                             MX6    0                                                       CFA       138
                     5160000000 X                 SA6    L.GST       L.GST = 0                                   CFA       139
                               76100              ADDWRD GST,B0      ADDWRD( GST , 0 )                           CFA       140
            27  5150000000 X                      SA5    CBN                                                     CFA       141
                          43600                   MX6    0                                                       CFA       142
                               10755              BX7    X5                                                      CFA       143
            30  5160000001 C                      SA6    LB          LB = 0        */ LINK BACKWARDS             CFA       144
                          5170000000 C            SA7    PBN         PBN = CBN       */ CBN AT BEGIN OF GRAPH    CFA       145
            31  7277777776                        SX7    X7-1                                                    CFA       146
                          5170000003 C            SA7    N.BLK       N.BLK = CBN - 1 */ NUMBER OF BLOCKS         CFA       147
            32  5170000000 X                      SA7    NPB         NPB  = CBN - 1  */ N.PROGRAM BLOCKS         CFA       148
                                                                                                                 CFA       149
                          0100000170 +            RJ     FGS         FORM GRAPH STRUCTURE                        CFA       150
            33  0100000253 +                      RJ     FIS         FORM INTERVAL STRUCTURE                     CFA       151
            34  0100000060 +                      RJ     MRB         MARK REACHABLE BLOCKS                       CFA       152
                                                                                                                 CFA       153
                                        *         FORM DERVIED GRAPH OF CURRENT GRAPH IT IT HAS LOOPS            CFA       154
                                                                                                                 CFA       155
            35  5110000013 C             DGS1     SA1    SCR                                                     CFA       156
                          0301000020 +            ZR     X1,DGS0     IF SCR = 0    */ NO LOOPS                   CFA       157
                                                                                                                 CFA       158
            36  0100000604 +                      RJ     FDG         FORM DERIVED GRAPH                          CFA       159
            37  5110000000 X                      SA1    N.DG                                                    CFA       160
                          5120000000 X            SA2    CBN                                                     CFA       161
            40  73611                             SX6    X1+B1       N.DG = N.DG + 1                             CFA       162
                     22702                        LX7    X2                                                      CFA       163
                          5170000000 C            SA7    PBN         PBN = CBN                                   CFA       164
            41  54610                             SA6    A1                                                      CFA       165
                                                                                                                 CFA       166
                     0100000170 +                 RJ     FGS         FORM GRAPH STRUCTURE TABLES                 CFA       167
            42  0100000253 +                      RJ     FIS         FORM INTERVAL STRUCTURE                     CFA       168
            43  0400000035 +                      EQ     DGS1                                                    CFA       169
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      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
            44  0200400044 +             AFT      ROUTINE                                                        CFA       174
            45  5110000000 X                      SA1    L.CFT                                                   CFA       175
                          5120000000 X            SA2    O.CFT                                                   CFA       176
            46  5130000012                        SA3    O.SYM                                                   CFA       177
                          5140000000 X            SA4    O.GLT                                                   CFA       178
            47  5203777776                        SA0    X3-1                                                    CFA       179
                          6224677776              SB2    X4-I.GL-1                                               CFA       180
            50  63320                             SB3    X2          I = O.CFT                                   CFA       181
                     43036                        MX0    -CF.FROMP                                               CFA       182
                          63413                   SB4    B3+X1       L = I + L.CFT                               CFA       183
                               43760              MX7    -12                                                     CFA       184
            51  6160100000                        SB6    I.GL                                                    CFA       185
                          0400000053 +            EQ     AFT2                                                    CFA       186
                                                                                                                 CFA       187
            52  56425                    AFT1     SA4    B2+B5       BN = GLT(H-1)                               CFA       188
                     36664                        IX6    X6+X4                                                   CFA       189
                          5065000000              SA6    A5+         TO[CI] = BN                                 CFA       190
                                                                                                                 CFA       191
            53  56530                    AFT2     SA5    B3          CI = I                                      CFA       192
                     0634000044 +                 GE     B3,B4,AFT   IF I \ L      */ END OF TABLE               CFA       193
                                                  LX5    59-CF.JPP                                               CFA       194
                               66331              SB3    B3+B1       I = I + 1                                   CFA       195
            54  0325000053 +                      PL     X5,AFT2     IF ^JP[CI]    */ *TO* IS A BLOCK NUMBER     CFA       196
                                                  LX5    1+CF.JPP                                                CFA       197
                          63550                   SB5    X5          H = TO[CI]                                  CFA       198
                               11605              BX6    X0*X5                                                   CFA       199
            55  0656000052 +                      GE     B5,B6,AFT1  IF H \ I.GL                                 CFA       200
                                                                                                                 CFA       201
                          66555                   SB5    B5+B5                                                   CFA       202
                               55405              SA4    A0-B5       WORDB = [O.SYM-1-2*H]                       CFA       203
            56  15347                             BX3    -X7*X4                                                  CFA       204
                     36663                        IX6    X6+X3       TO[CI] = BN[WORDB]                          CFA       205
                          5065000000              SA6    A5+                                                     CFA       206
            57  0400000053 +                      EQ     AFT2                                                    CFA       207
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE     8
        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
            60  0200400060 +             MRB      ROUTINE                                                        CFA       212
            61  5110000000 X                      SA1    O.GST                                                   CFA       213
                          5120000007 C            SA2    ILB                                                     CFA       214
            62  43001                             MX0    1                                                       CFA       215
                                                  LX0    1+BI.RBP                                                CFA       216
                     36712                        IX7    X1+X2                                                   CFA       217
                          5130000003 C            SA3    N.BLK                                                   CFA       218
            63  5140000000 X                      SA4    O.BIT                                                   CFA       219
                          63230                   SB2    X3          NB = N.BLK                                  CFA       220
                               63340              SB3    X4                                                      CFA       221
            64  53570                             SA5    X7          IP = O.GST + ILB                            CFA       222
                                                                                                                 CFA       223
                                         MRB1     LX5    -IP.NODEP                                               CFA       224
            65  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
            66  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
            67  54551                             SA5    A5+B1       IP = IP + 1                                 CFA       234
                     6144777776                   SB4    B4-1        N = N - 1                                   CFA       235
                               54640              SA6    A4                                                      CFA       236
            70  0540000066 +                      NZ     B4,MRB2     IF N " 0                                    CFA       237
                          0315000065 +            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
            71  0420000060 +                      ZR     B2,MRB      IF NB = 0     */ ALL BLOCKS REACHABLE       CFA       244
                          5110000004 C            SA1    LC                                                      CFA       245
            72  43600                             MX6    0                                                       CFA       246
                     5160000000 X                 SA6    L.CFT       L.CFT = 0                                   CFA       247
            73  5160000000 X                      SA6    =XL.LCT     L.LCT = 0                                   FCC1319   136
                          5160000001 C            SA6    LB          LB = 0                                      CFA       248
            74  5160000000 X                      SA6    =XN.FTH     N.FTH = 0                                   FCC2113    71
                          5100000000 X            ALLOC  CFT,X1      ALLOC( CFT , LC )                           CFA       249
            76  5110000000 X                      SA1    O.BIT                                                   CFA       250
                          63220                   SB2    X2          C0 = O.CFT                                  CFA       251
                               57521              SA5    B2-B1                                                   CFA       252
            77  10755                             BX7    X5                                                      CFA       253
                     54750                        SA7    A5          CI = C0 - 1                                 CFA       254
                          66410                   SB4    B1          BN = 1                                      CFA       255
           100  5140000003 C                      SA4    N.BLK                                                   CFA       256
                          5130000000 X            SA3    O.GST                                                   CFA       257
           101  63540                             SB5    X4                                                      CFA       258
                     6273000003                   SB7    X3+3        EIB = O.GST + 3                             CFA       259
                               43023              MX0    1+ET.SUCCL                                              CFA       260
           102  20022                             LX0    ET.SUCCL                                                CFA       261
                     5221000002                   SA2    X1+2        BI = O.BIT + 2                              CFA       262
                               76110              SX1    B1                                                      CFA       263
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE     9
        MRB - MARK REACHABLE BLOCKS                                   MRB                 CODE
  
           103  20136                             LX1    CF.FROMP                                                CFA       264
                     76610                        SX6    B1                                                      CFA       265
                          5160000000 X            SA6    L.GST       L.GST = 1                                   CFA       266
           104  0400000106 +                      EQ     MRB4                                                    CFA       267
                                                                                                                 CFA       268
                                        *         UNREACHABLE BLOCK, SHOW FLOW TO EXIT NODE ( FOR *FGS* )        CFA       269
                                                                                                                 CFA       270
           105  10711                    MRB3     BX7    X1                                                      CFA       271
                     54771                        SA7    A7+B1       CI = CI + 1;  [CI] = CFTE( BN , 0 )         CFA       272
                          0400000112 +            EQ     MRB6                                                    CFA       273
                                                                                                                 CFA       274
                                         MRB4     LX2    59-BI.RBP                                               CFA       275
           106  0322000105 +                      PL     X2,MRB3     IF ^RB[BI]                                  CFA       276
                          56574                   SA5    B7+B4       EI = EIB + BN                               CFA       277
                               20560              LX5    -EI.SUIP                                                CFA       278
           107  26665                             UX6    B6,X5       NS = NS[EI]                                 CFA       279
                     53457                        SA4    B7+X5       SI = EIB + SUI[EI]                          CFA       280
                                                                                                                 CFA       281
           110  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
           111  54441                             SA4    A4+B1       SI = SI + 1                                 CFA       286
                     0560000110 +                 NZ     B6,MRB5     IF NS " 0                                   CFA       287
                                                                                                                 CFA       288
           112  66441                    MRB6     SB4    B4+B1       BN = BN + 1                                 CFA       289
                     5022000002                   SA2    A2+2        BI = BI + 2                                 CFA       290
                               76140              SX1    B4                                                      CFA       291
           113  20136                             LX1    CF.FROMP                                                CFA       292
                     0654000106 +                 LE     B4,B5,MRB4  IF BN @ N.BLK                               CFA       293
                                                                                                                 CFA       294
                               64671              SB6    A7+B1                                                   CFA       295
           114  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
           115  5170000000 X                      SA7    CBN                                                     CFA       299
                          0100000170 +            RJ     FGS         REFORM GRAPH STRUCTURE TABLES               CFA       300
           116  0100000253 +                      RJ     FIS         REFORM INTERVALS                            CFA       301
                                                                                                                 CFA       302
                                        *         SCAN *BIT* AND LIST LINE NUMBERS OF UNREACHABLE BLOCKS         CFA       303
                                                                                                                 CFA       304
           117  5110000000 X                      SA1    =XPROGNAM                                               CFA       305
                          10611                   BX6    X1                                                      CFA       306
           120  5160000161 +                      SA6    MRBD+2                                                  CFA       307
                          7110000157 +            MESSAGE MRBD,,R    *   DEAD CODE IN - PROGNAM *                CFA       308
                                                                                                                 CFA       309
           123  5110000000 X                      SA1    =XSLIST                                                 FCC1623X    5
                          0311000125 +            NZ     X1,MRB6A    IF SOURCE LIST ON                           FCC1623X    6
           124  5110000000 X                      SA1    =XR=FLAG                                                CFA       310
                          0301000060 +            ZR     X1,MRB      IF NO MAP                                   CFA       311
                                                                                                                 CFA       312
           125  6160000156 +             MRB6A    LISTL  MRBB,1                                                  FCC1623X    7
           126  6160000144 +                      LISTL  MRBA,MRBB+1-MRBA                                        CFA       314
           127  6160000004                        SB6    4           I = 4                                       CFA       315
                                                                                                                 CFA       316
           130  5110000666 +             MRB7     SA1    =1H                                                     CFA       317
                          5130000000 X            SA3    L.BIT                                                   CFA       318
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    10
        MRB - MARK REACHABLE BLOCKS                                   MRB                 CODE
  
           131  5150000000 X                      SA5    O.BIT                                                   CFA       319
                          10611                   BX6    X1                                                      CFA       320
                               63730              SB7    X3                                                      CFA       321
           132  5160000144 +                      SA6    MRBA                                                    CFA       322
                          7100777766              SX0    -MRBC                                                   CFA       323
           133  0467000060 +                      EQ     B6,B7,MRB   IF I = L.BIT                                CFA       324
                                                                                                                 CFA       325
           134  53156                    MRB8     SA1    X5+B6       BIW = BIT(I)                                CFA       326
                                                  LX1    59-BI.RBP                                               CFA       327
                     0321000140 +                 PL     X1,MRB11    IF ^RB[BIW]                                 CFA       328
           135  6166000002               MRB9     SB6    B6+2        I = I + 2                                   CFA       329
                          0767000134 +            LT     B6,B7,MRB8  IF I < L.BIT                                CFA       330
                                                                                                                 CFA       331
           136  0100000162 +             MRB10    RJ     LAL         LIST LAST LINE                              CFA       332
           137  0400000060 +                      EQ     MRB                                                     CFA       333
                                                                                                                 CFA       334
           140  20152                    MRB11    LX1    1+BI.RBP-BI.FLNP                                        CFA       335
                     73110                        SX1    X1                                                      CFA       336
                          0100000000 X            CALL   CDD         CONVERT LINE NUMBER                         CFA       337
           141  54661                             SA6    A6+B1       STORE IN LINE BUFFER                        CFA       338
                     73001                        SX0    X0+B1                                                   CFA       339
                          0330000135 +            MI     X0,MRB9     IF NOT A FULL LINE                          CFA       340
                                                                                                                 CFA       341
           142  0100000162 +                      RJ     LAL         LIST LINE                                   CFA       342
           143  0400000130 +                      EQ     MRB7                                                    CFA       343
                                                                                                                 CFA       344
           144  55232401240515051624     MRBA     DATA   H* STATEMENTS BEGINNING AT BELOW LINE NUMBERS ARE UNREA CFA       345
                                        ,CHABLE ( DEAD CODE ), AND WILL NOT BE PROCESSED*                        CFA       346
           156  55555555555555550000     MRBB     DATA   8L                                                      CFA       347
                                  11     MRBC     EQU    MRBB-MRBA-1                                             CFA       348
           157  55555555550405010455     MRBD     DATA   28L     DEAD CODE IN - NAMEXXX                          CFA       349
  
  
  
                                        **        LAL - LIST A LINE                                              CFA       351
                                                                                                                 CFA       352
           162  0200400162 +             LAL      ROUTINE                                                        CFA       353
           163  5140000156 +                      SA4    MRBB                                                    CFA       354
                          76760                   SX7    B6                                                      CFA       355
                               10644              BX6    X4                                                      CFA       356
           164  54661                             SA6    A6+B1                                                   CFA       357
                     64761                        SB7    A6+B1                                                   CFA       358
                          5170000015 C            SA7    I                                                       CFA       359
           165  6160000144 +                      LISTL  MRBA,B7-MRBA                                            CFA       360
           166  5130000015 C                      SA3    I                                                       CFA       361
                          6263000002              SB6    X3+2        I = I + 2                                   CFA       362
           167  0400000162 +                      EQ     LAL                                                     CFA       363
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    11
        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
           170  0200400170 +             FGS      ROUTINE                                                        CFA       368
           171  76110                             SX1    B1                                                      CFA       369
                     20136                        LX1    CF.FROMP                                                CFA       370
                          5100000000 X            ADDWRD CFT,X1      FLOW( 1 , 0 ) */ DUMMY EXIT EDGE            CFA       371
           173  76100                             ADDWRD CFT,B0      ADDWRD( CFT , 0 )                           CFA       372
           175  7213777776                        SX1    X3-1                                                    CFA       373
                          63720                   SB7    X2                                                      CFA       374
                               43001              MX0    60-CF.JPP                                               CFA       375
           176  10633                             BX6    X3                                                      CFA       376
                     66600                        SB6    B0                                                      CFA       377
                          14000                   BX0    -X0                                                     CFA       378
                               43500              MX5    0                                                       CFA       379
           177  5160000004 C                      SA6    LC          LC = L.CFT    */ SAVE IN CASE GRAPH REDONE  CFA       380
                          0100000000 X            CALL   SST         SORT( CFT , [FROM,TO] )                     CFA       381
                                                  TRACE  FGS,CFT                                                 CFA       382
                                                                                                                 CFA       383
                                        *         ALLOCATE SPACE FOR EDGE INDEX AND EDGE TABLES                  CFA       384
                                                                                                                 CFA       385
           200  5150000003 C                      SA5    N.BLK                                                   CFA       386
                          5130000000 X            SA3    L.CFT                                                   CFA       387
           201  36653                             IX6    X5+X3                                                   CFA       388
                     7216000003                   SX1    X6+3                                                    CFA       389
           202  5100000000 X                      ALLOC  GST,X1      ALLOC( GST , 3+N.BLK+L.CFT )                CFA       390
           203  6156000002                        SB5    B6+2                                                    CFA       391
                          73625                   SX6    B5+X2       EIB = O.GST + OLD(L.GST) + 2                CFA       392
                               76760              SX7    B6                                                      CFA       393
           204  5170000002 C                      SA7    LB+1        LB(2) = OLD(L.GST)  */ BASE OF THIS GRAPH   CFA       394
                          5160000005 C            SA6    EIB                                                     CFA       395
           205  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
           206  5110000000 X                      SA1    O.CFT                                                   CFA       404
                          63260                   SB2    X6          E0 = EIB                                    CFA       405
                               63470              SB4    X7          EF = ETB                                    CFA       406
           207  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
           210  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
           211  56630                    FGS0     SA6    B3          FOR I = ETB-1 TO EIB;  NS[I] = 0            CFA       416
                     67331                        SB3    B3-B1                                                   CFA       417
                          0632000211 +            GE     B3,B2,FGS0                                              CFA       418
           212  11745                             BX7    X4*X5                                                   CFA       419
                     20136                        LX1    CF.FROMP                                                CFA       420
                          43001                   MX0    -CF.JPP                                                 CFA       421
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    12
        FGS - FORM GRAPH STRUCTURE TABLES                             FGS                 CODE
  
                               56740              SA7    B4          ET = ETB;  [ET] = JPTO[CI]                  CFA       422
           213  7120002000                        SX2    2000B                                                   CFA       423
                          20236                   LX2    EI.NPP                                                  CFA       424
                                                                                                                 CFA       425
           214  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
           215  0316000217 +                      NZ     X6,FGS1A    IF FROMTO[CI] " FROMTO[CL]                  FCC0448   189
                                                                                                                 FCC0448   190
                          54370                   SA3    A7                                                      FCC0448   191
                               11605              BX6    X0*X5                                                   FCC0448   192
           216  12763                             BX7    X6+X3       [ET] = [ET] ! JP[CI]  */ OR *JP* BIT        FCC0448   193
                     54770                        SA7    A7                                                      FCC0448   194
                          0400000214 +            EQ     FGS1                                                    FCC0448   195
                                                                                                                 FCC0448   196
           217  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
           220  0306000214 +                      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
           221  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
           222  12627                             BX6    X2+X7                                                   CFA       443
                     53632                        SA6    B2+X3       (NS,SUI)[EI+J] = (NS,SUI)                   CFA       444
                          0315000214 +            NZ     X5,FGS1     IF [CI] " 0                                 CFA       445
                                                                                                                 CFA       446
                                        *         SET INTERVAL LIST POINTERS IN GRAPH HEADER WORD                CFA       447
                                                                                                                 CFA       448
           223  5140000000 X                      SA4    O.GST                                                   CFA       449
                          5130000003 C            SA3    N.BLK                                                   CFA       450
           224  6254777776                        SB5    X4-1                                                    CFA       451
                          20322                   LX3    GB.NBP      NB[GB] = N.BLK                              CFA       452
                               75675              SX6    A7-B5                                                   CFA       453
           225  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
           226  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
           227  43001                             MX0    60-CF.JPP                                               CFA       464
                     56570                        SA5    B7          CI = CF                                     CFA       465
                          6150000036              SB5    CF.FROMP                                                CFA       466
           230  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
           231  0315000230 +                      NZ     X5,FGS2     IF [CI] " 0                                 CFA       471
                                                                                                                 CFA       472
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    13
        FGS - FORM GRAPH STRUCTURE TABLES                             FGS                 CODE
  
                          75157                   SX1    A5-B7       L.CFT = CI - CF  */ FOR SORT                CFA       473
           232  0100000000 X                      CALL   SHL         SORT( CFT , [FROM,TO] )                     CFA       474
                                                                                                                 CFA       475
                                        *         ADD THE PREDECESSOR INFORMATION TO THE EDGE TABLES             CFA       476
                                                                                                                 CFA       477
           233  5110000000 X                      SA1    O.CFT                                                   CFA       478
                          5130000005 C            SA3    EIB                                                     CFA       479
           234  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
           235  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
           236  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
           237  10355                    FGS3     BX3    X5          CL = [CI]                                   CFA       493
                     54551                        SA5    A5+B1       CI = CI + 1                                 CFA       494
                          13735                   BX7    X3-X5                                                   CFA       495
           240  0307000237 +                      ZR     X7,FGS3     IF [CI] = CL                                CFA       496
                          54441                   SA4    A4+B1       ET = ET + 1                                 CFA       497
                               15250              BX2    -X0*X5                                                  CFA       498
           241  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
           242  0302000237 +                      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
           243  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
           244  64440                             SB4    A4          EF = ET                                     CFA       511
                     12726                        BX7    X2+X6                                                   CFA       512
                          54720                   SA7    A2          NP[EI] = NP;  PRI[EI] = PRI                 CFA       513
           245  0315000237 +                      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
           246  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
           247  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
           250  36617                             IX6    X1+X7       PRI[EI0] = PRI[EI0] + 1                     CFA       529
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    14
        FGS - FORM GRAPH STRUCTURE TABLES                             FGS                 CODE
  
                     54610                        SA6    A1                                                      CFA       530
                                                                                                                 CFA       531
                          5110000000 X            SA1    O.GST                                                   CFA       532
           251  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
           252  0400000170 +                      EQ     FGS                                                     CFA       538
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    15
        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
           253  0200400253 +             FIS      ROUTINE                                                        CFA       560
           254  5150000003 C                      SA5    N.BLK                                                   CFA       561
                          7205000002              SX0    X5+2                                                    CFA       562
           255  10100                             BX1    X0                                                      CFA       563
                     20102                        LX1    2                                                       CFA       564
                          5100000000 X            ALLOC  GST,X1      ALLOC( GST , 4*(N.BLK+2) )                  CFA       565
           257  5140000005 C                      SA4    EII                                                     CFA       566
                          63250                   SB2    X5          N = N.BLK                                   CFA       567
                               63520              S"GS"  X2                                                      CFA       568
           260  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
           261  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
           262  55071                             SA0    A7-B1       HI = HI - 1                                 CFA       579
                                                                                                                 CFA       582
                     56571                        SA5    "EI"+B1     EI = EIB + 1                                CFA       583
                          5140000577 +            SA4    FISB                                                    CFA       584
           263  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
           264  20522                    FIS1     LX5    -EI.PRIP                                                CFA       588
                     26435                        UX4    B3,X5                                                   CFA       589
                          76630                   SX6    B3                                                      CFA       590
                                                  LX6    I.PCP                                                   CFA       591
           265  0531000266 +                      NE     B3,B1,FIS1A IF NP[EI] " 1                               FCC1191    10
                          12606                   BX6    X0+X6       1P[P2+1] = 1                                FCC1191    11
           266  54661                    FIS1A    SA6    A6+B1       PI = PI + 1]  PC[PI] = NP[EI]               FCC1191    12
                     67221                        SB2    B2-B1       N = N - 1                                   CFA       593
                          54551                   SA5    A5+B1       EI = EI + 1                                 CFA       594
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    16
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
           267  0520000264 +                      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
           270  63415                             S"IB"  "GS"+X1     IBA = O.GST + ILB  */ INTERVAL BASE ADDRESS CFA       603
                                                  TRACE  FIS1,GST                                                CFA       604
                                                                                                                 CFA       605
           271  5130000010 C             FIS2     SA3    HTL                                                     CFA       606
                          43700                   MX7    0                                                       CFA       607
                               54700              SA7    A0          [HI] = 0      */ SEARCH TERMINATOR          CFA       608
           272  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
           273  55551                    FIS3     SA5    A5-B1       J = J - 1;  HN = [J]                        CFA       613
                     63250                        SB2    X5                                                      CFA       614
                          0305000277 +            ZR     X5,FIS4     IF HN = 0                                   CFA       615
           274  0623000273 +                      GE     B2,B3,FIS3  IF HN > MHN                                 CFA       616
                          53456                   SA4    "PC"+X5                                                 CFA       617
                                                  LX4    59-I.INIP                                               CFA       618
           275  0334000273 +                      MI     X4,FIS3     IF INI[PCT(HN)]                             CFA       619
                          74050                   SX0    A5          HNA = J                                     CFA       620
                               66320              SB3    B2          MHN = HN                                    CFA       621
           276  0400000273 +                      EQ     FIS3                                                    CFA       622
                                                                                                                 CFA       623
           277  0300000366 +             FIS4     ZR     X0,FIS15    IF HNA = 0    */ NOTHING FOUND              CFA       624
                          53500                   SA5    X0          HN = [HLA]                                  CFA       625
                               54101              SA1    A0+B1                                                   CFA       626
           300  10611                             BX6    X1                                                      CFA       627
                     54650                        SA6    A5          SWAP( [HI+1] , [HLA] )                      CFA       628
                          10755                   BX7    X5                                                      CFA       629
                               54710              SA7    A1                                                      CFA       630
           301  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
           302  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
           303  0331000302 +                      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
           304  43600                             MX6    0                                                       FCC0408    94
                     5160000012 C                 SA6    FTH         FTH = 0                                     FCC0408    95
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    17
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                                        *         PLACE HEADER NODE IN INTERVAL                                  CFA       644
                                                                                                                 CFA       645
                               43101              MX1    -ET.JPP                                                 CFA       646
           305  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
           306  5120000576 +                      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
           307  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
           310  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
           311  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
           312  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
           313  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
           314  0603000340 +                      LE     B3,FIS10A   IF N @ 0                                    CFA       688
                                                                                                                 CFA       689
                                         FIS6     LX4    -ET.SUCCP   I = SUCC[SI]                                CFA       690
           315  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
           316  0333000334 +                      MI     X3,FIS9     IF INI[PW]                                  CFA       696
                          0337000323 +            MI     X7,FIS7     IF INH[PW]                                  CFA       697
                                                                                                                 CFA       698
                                        *         CHECK ADD TO HEADER LIST                                       CFA       699
                                                                                                                 CFA       700
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    18
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
           317  73760                             SX7    X6                                                      CFA       701
                     0307000325 +                 ZR     X7,FIS8     IF PC[PW] = 0                               CFA       702
                               12626              BX6    X2+X6       INH[PW] = 1;  HN[PW] = HN                   CFA       703
           320  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
           321  12646                             BX6    X4+X6       [HI] = JP[SI] ! I                           CFA       709
                     54600                        SA6    A0                                                      CFA       710
                          55001                   SA0    A0-B1       HI = HI - 1                                 CFA       711
           322  0400000337 +                      EQ     FIS10                                                   CFA       712
                                                                                                                 CFA       713
                                        *         IN HEADER LIST, CHECK ADD TO INTERVAL                          CFA       714
                                                                                                                 CFA       715
           323  73760                    FIS7     SX7    X6                                                      CFA       716
                     13362                        BX3    X6-X2                                                   CFA       717
                          0317000337 +            NZ     X7,FIS10    IF PC[PW] " 0                               CFA       718
           324  20330                             LX3    -I.HNP                                                  CFA       719
                     73730                        SX7    X3                                                      CFA       720
                          0317000337 +            NZ     X7,FIS10    IF HN[PW] " HN */ FIRST REACHED BY ANOTHER  CFA       721
                                                                                                                 CFA       722
                                        *         ADD NODE TO THIS INTERVAL                                      CFA       723
                                                                                                                 CFA       724
           325  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
           326  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
           327  53347                             SA3    "EI"+X4     EI = EIB + I                                FCC1191    20
                     20360                        LX3    -EI.SUIP                                                FCC1191    21
                          26713                   UX7    B1,X3                                                   FCC1191    22
           330  7161777776                        SX6    B1-1                                                    FCC1191    23
                          6110000001              SB1    1                                                       FCC1191    24
           331  0316000337 +                      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
           332  53346                             SA3    "PC"+X4     PW = PCT(I)                                 FCC1191    29
                     20302                        LX3    59-I.1PP                                                FCC1191    30
                          76610                   SX6    B1          PC[PW] = 1                                  FCC1191    31
           333  0333000325 +                      MI     X3,FIS8     IF 1P[PW]     */ ONLY 1 PRED                FCC1191    32
                          0400000337 +            EQ     FIS10                                                   CFA       731
                                                                                                                 CFA       732
           334  73342                    FIS9     SX3    B2+X4                                                   CFA       733
                     0313000337 +                 NZ     X3,FIS10    IF SUCC[SI] " HN                            CFA       734
                                                                                                                 CFA       735
                               20071              LX0    IM.LNP                                                  CFA       736
           335  12605                             BX6    X0+X5       LN[ICN] = 1   */ INDICATE A LATCHING NODE   CFA       737
                     54650                        SA6    A5                                                      FCC0408    96
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    19
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                          76010                   SX0    B1                                                      FCC0408    97
                               76610              SX6    B1                                                      FCC0408    98
                                                  LX4    59-ET.JPP+ET.SUCCP                                      FCC0408    99
           336  0334000337 +                      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
           337  67331                    FIS10    SB3    B3-B1       N = N - 1                                   CFA       741
                     54441                        SA4    A4+B1       SI = SI + 1                                 CFA       742
                          0703000315 +            GT     B3,FIS6     IF N > 0                                    CFA       743
                                                                                                                 CFA       744
                                        *         CONTINUE THIS INTERVAL IF ELEMENTS WERE ADDED                  CFA       745
                                                                                                                 CFA       746
           340  64350                    FIS10A   SB3    A5                                                      CFA       747
                     75673                        SX6    A7-B3                                                   CFA       748
                          0306000342 +            ZR     X6,FIS11    IF II = ICN   */ END OF INTERVAL            CFA       749
                                                                                                                 CFA       750
           341  54551                             SA5    A5+B1       ICN = ICN + 1                               CFA       751
                     0400000313 +                 EQ     FIS5                                                    CFA       752
  
  
                                        *         TERMINATE THIS INTERVAL, SETUP HEADER WORD                     CFA       754
                                                                                                                 CFA       755
           342  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
           343  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
           344  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
           345  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
           346  0421000347 +                      EQ     B2,B1,FIS11A      IF N.XP = 1                           CFA       781
                          43201                   MX2    1           GLN = 1                                     CFA       782
                                         FIS11A   LX2    1+IP.GLP                                                CFA       783
           347  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
           350  0300000271 +                      ZR     X0,FIS2     IF N.LN = 0   */ NO LATCHING NODES          CFA       786
                                                                                                                 FCC0408   103
                          5130000000 X            SA3    L.LCT                                                   FCC1319   137
           351  20201                             LX2    -IP.GLP                                                 FCC1319   138
                     36623                        IX6    X2+X3       L.LCT = L.LCT + GLN                         FCC1319   139
                          54630                   SA6    A3                                                      FCC1319   140
           352  5130000012 C                      SA3    FTH                                                     FCC0408   104
                          5120000000 X            SA2    =XN.FTH                                                 FCC2113    72
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    20
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
           353  36623                             IX6    X2+X3       N.FTH = N.FTH + FTH                         FCC2113    73
                     54620                        SA6    A2                                                      FCC2113    74
                          20372                   LX3    IP.FTP                                                  FCC0408   105
                               12737              BX7    X3+X7       FT[IB0] = FTH                               FCC0408   106
           354  5120000000 X                      SA2    CBN         PB[IB0] = CBN */ SET PROLOGUE BLOCK NUMBER  CFA       787
                          73621                   SX6    X2+B1       CBN = CBN + 1                               CFA       788
                               20222              LX2    IP.PBP                                                  CFA       789
           355  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
           356  43001                             MX0    1                                                       CFA       798
                                                  LX0    1+IM.SCRP                                               CFA       799
                     6120000002                   SB2    59-IM.LNP                                               CFA       800
                                                                                                                 CFA       801
           357  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
           360  0323000357 +                      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
           361  54750                             SA7    A5                                                      CFA       810
                     0336000271 +                 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
           362  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
           363  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
           364  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
           365  0530000363 +                      NZ     B3,FIS13    IF N " 0                                    CFA       827
                                                                                                                 CFA       828
                          0400000357 +            EQ     FIS12                                                   CFA       829
  
  
  
                                        *         TERMINATE INTERVAL LIST                                        CFA       831
                                                                                                                 CFA       832
           366  43600                    FIS15    MX6    0                                                       CFA       833
                     56640                        SA6    "IB"        [IBA] = 0     */ LIST TERMINATOR            CFA       834
                          5120000000 C            SA2    PBN                                                     CFA       835
           367  5130000000 X                      SA3    CBN                                                     CFA       836
                          77145                   SX1    "IB"-"GS"                                               CFA       837
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    21
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                               57471              SA4    "EI"-B1     GB = EIB - 1                                CFA       838
           370  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
           371  5170000000 X                      SA7    L.GST                                                   CFA       841
                          5160000013 C            SA6    SCR                                                     CFA       842
           372  20644                             LX6    GB.NLPP                                                 CFA       843
                     12664                        BX6    X6+X4       NLP[GB] = SCR */ N. LOOPS                   CFA       844
                          54640                   SA6    A4                                                      CFA       845
           373  5110000000 X                      SA1    =XM.LP                                                  FCC0392   151
                          37312                   IX3    X1-X2                                                   FCC0392   152
           374  0323000375 +            +         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
           375  5120000001 C                      SA2    LB                                                      CFA       849
                          54321                   SA3    A2+B1                                                   CFA       850
                               37673              IX6    X7-X3       LF = L.GST - LB(2)                          CFA       851
           376  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
           377  5140000000 X                      SA4    M.GRL                                                   CFA       856
           400  37164                   +         IX1    X6-X4                                                   CFA       857
                     0331000401 +                 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
           401  5110000007 C                      SA1    ILB                                                     CFA       864
                          76010                   SX0    B1                                                      CFA       865
                               20067              LX0    IM.ENP                                                  CFA       866
           402  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
           403  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
           404  0603000411 +                      LE     B3,FIS19    IF N @ 0                                    CFA       874
                                                                                                                 CFA       875
           405  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
           406  20352                             LX3    I.IAP-I.HNP                                             CFA       880
                     73532                        SX5    X3+B2                                                   CFA       881
                          0305000410 +            ZR     X5,FIS18    IF HN[NA] = HN  */ PRED IN THIS INTERVAL    CFA       882
           407  12602                             BX6    X0+X2                                                   CFA       883
                     54620                        SA6    A2          EN[NA] = 1                                  CFA       884
                                                                                                                 CFA       885
           410  67331                    FIS18    SB3    B3-B1       N = N - 1                                   CFA       886
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    22
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                     54441                        SA4    A4+B1       PI = PI + 1                                 CFA       887
                          0530000405 +            NZ     B3,FIS17    IF N " 0                                    CFA       888
                                                                                                                 CFA       889
                                         FIS19    LX1    -IP.NODEP                                               CFA       890
           411  63310                             SB3    X1                                                      CFA       891
                     0430000414 +                 ZR     B3,FIS20    IF NODE[NIP] = 0  */ END OF INTERVAL LIST   CFA       892
                               54211              SA2    A1+B1                                                   CFA       893
                                                  LX2    -IM.BNP                                                 CFA       894
           412  14322                             BX3    -X2                                                     CFA       895
                     63230                        SB2    X3          HN = BN[NIP+1]                              CFA       896
                          54123                   SA1    A2+B3       NIP = NIP + NODE[NIP]                       CFA       897
           413  0400000403 +                      EQ     FIS16                                                   CFA       898
                                                                                                                 CFA       899
                                                                                                                 CFA       900
                                        *         SETUP THE *BI* FIELD IN THE INTERVAL MEMBERS                   CFA       901
                                                                                                                 CFA       902
           414  5110000000 X             FIS20    SA1    L.OTI                                                   CFA       903
                          5120000007 C            SA2    ILB                                                     CFA       904
           415  0301000423 +                      ZR     X1,FIS23    IF L.OTI = 0  */ FIRST GRAPH                CFA       905
                                                                                                                 CFA       906
                          5130000000 X            SA3    O.OTI                                                   CFA       907
           416  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
           417  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
           420  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
           421  67221                             SB2    B2-B1       N = N - 1                                   CFA       923
                     54551                        SA5    A5+B1       IP = IP + 1                                 CFA       924
                          0520000420 +            NZ     B2,FIS22    IF N " 0                                    CFA       925
           422  0315000417 +                      NZ     X5,FIS21    IF [IP] " 0                                 CFA       926
                                                                                                                 CFA       927
                          0400000430 +            EQ     FIS26                                                   CFA       928
                                                                                                                 CFA       929
                                        *         SET *BI* FIELD FOR *IM* IN FIRST GRAPH                         CFA       930
                                                                                                                 CFA       931
           423  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
           424  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
           425  73450                             SX4    X5                                                      CFA       940
                                                  LX5    IM.BNP                                                  CFA       941
                     22324                        LX3    B2,X4                                                   CFA       942
                          12635                   BX6    X3+X5       BI[IP] = 2*BN[IP]                           CFA       943
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    23
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                               54650              SA6    A5                                                      CFA       944
           426  67331                             SB3    B3-B1       N = N - 1                                   CFA       945
                     54551                        SA5    A5+B1       IP = IP + 1                                 CFA       946
                          0530000425 +            NZ     B3,FIS25    IF N " 0                                    CFA       947
           427  0315000424 +                      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
           430  53525                    FIS26    SA5    "GS"+X2     IP = O.GST + ILB                            CFA       953
                                                                                                                 CFA       954
                                         FIS27    LX5    -IP.NODEP                                               CFA       955
           431  6225777775                        SB2    X5-2        N = NODE[IP] - 2                            CFA       956
                          0702000434 +            GT     B2,FIS28    IF N > 2                                    CFA       957
           432  63251                             SB2    X5+B1                                                   CFA       958
                     54552                        SA5    A5+B2       IP = IP + N+1                               CFA       959
                          0315000431 +            NZ     X5,FIS27    IF [IP] " 0                                 CFA       960
           433  0400000450 +                      EQ     CBD                                                     CFA       961
                                                                                                                 CFA       962
                                        *         SCAN INTERVAL AND CHECK FOR REVERSALS                          CFA       963
                                                                                                                 CFA       964
           434  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
           435  10755                             BX7    X5          LIW = [IP]                                  CFA       968
                                                  LX5    -IM.BNP                                                 CFA       969
                     63550                        SB5    X5                                                      CFA       970
                                                                                                                 CFA       971
           436  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
           437  0754000444 +                      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
           440  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
           441  73634                             SX6    B4+X3                                                   CFA       988
                     0306000444 +                 ZR     X6,FIS31    IF SUCC[SI] = BN[IP]                        CFA       989
                               67331              SB3    B3-B1       NS = NS - 1                                 CFA       990
           442  54331                             SA3    A3+B1       SI = SI + 1                                 CFA       991
                     0530000441 +                 NZ     B3,FIS30    IF NS " 0                                   CFA       992
                                                                                                                 CFA       993
                               10655              BX6    X5                                                      CFA       994
           443  55651                             SA6    A5-B1       [IP-1] = [IP]                               CFA       995
                     54750                        SA7    A5          [IP] = LIW                                  CFA       996
                          10577                   BX5    X7                                                      CFA       997
                               66610              SB6    B1          SWAP = 1                                    CFA       998
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    24
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                                                                                                                 CFA       999
           444  10755                    FIS31    BX7    X5          LIW = [IP]                                  CFA      1000
                                                  LX5    -IM.BNP                                                 CFA      1001
                     63550                        SB5    X5                                                      CFA      1002
                          0520000436 +            NZ     B2,FIS29    IF N " 0                                    CFA      1003
           445  0460000447 +                      ZR     B6,FIS32    IF SWAP = 0   */ NO INTERCHANGES            CFA      1004
                          54500                   SA5    A0          IP = IPF                                    CFA      1005
                                                  LX5    -IP.NODEP                                               CFA      1006
           446  6225777775                        SB2    X5-2        N = NODE[IP] - 2                            CFA      1007
                          0400000434 +            EQ     FIS28                                                   CFA      1008
                                                                                                                 CFA      1009
           447  54551                    FIS32    SA5    A5+B1       IP = IP + 1                                 CFA      1010
                     0315000431 +                 NZ     X5,FIS27    IF [IP] " 0                                 CFA      1011
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    25
        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
           450  43600                    CBD      MX6    0                                                       CFA      1023
                                                  TRACE  FIS.X,GST                                               CFA      1024
                     5160000000 X                 SA6    L.CFT       L.CFT = 0                                   CFA      1025
           451  5120000003 C                      SA2    N.BLK                                                   CFA      1026
                          73121                   ALLOC  CFT,X2+B1   ALLOC( CFT , N.BLK + 1 )                    CFA      1027
           453  5140000000 X                      SA4    O.GST                                                   CFA      1028
                          5150000007 C            SA5    ILB                                                     CFA      1029
           454  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
           455  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
           456  6150000060                        SB5    48                                                      CFA      1038
                                                                                                                 CFA      1039
                                         CBD1     LX5    -IP.NODEP                                               CFA      1040
           457  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
           460  0623000461 +                      GE     B2,B3,CBD2  MB = MAX( MB , NN )                         CFA      1045
                          6123000000              SB2    B3+                                                     CFA      1046
                                                                                                                 CFA      1047
           461  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
           462  0745000463 +                      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
           463  67331                    CBD3     SB3    B3-B1       NN = NN - 1                                 CFA      1056
                     54551                        SA5    A5+B1       II = II + 1                                 CFA      1057
                          0530000461 +            NZ     B3,CBD2     IF NN " 0                                   CFA      1058
                                                                                                                 CFA      1059
           464  0315000457 +                      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
           465  76250                             SX2    B5                                                      CFA      1065
                     27101                        IX7    X1/X2,B6    VM = (MB+47) / 48                           CFA      1066
           467  76221                             SX2    B2+B1                                                   CFA      1067
                     42127                        IX1    X2*X7                                                   CFA      1068
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , (MB+1)*VM )                    CFA      1069
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    26
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
                                                                                                                 CFA      1070
           471  5110000000 X                      SA1    O.GST                                                   CFA      1071
                          5130000007 C            SA3    ILB                                                     CFA      1072
           472  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
           473  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
           474  63620                             S"T"   X2          T = O.CFT                                   CFA      1079
                                                                                                                 CFA      1080
                                        *         PROCESS NEXT INTERVAL                                          CFA      1081
                                                                                                                 CFA      1082
                                         CBD4     LX4    -IP.NODEP                                               CFA      1083
           475  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
           476  5160000014 C                      SA6    IP                                                      CFA      1087
                          0521000503 +            NE     B2,B1,CBD6  IF NN " 1                                   CFA      1088
                                                                                                                 CFA      1089
           477  5130000014 C             CBD5     SA3    IP                                                      CFA      1090
                          5243000000              SA4    X3+                                                     CFA      1091
           500  0314000475 +                      NZ     X4,CBD4     IF [IP] " 0   */ IF NOT END OF LIST         CFA      1092
                          43700                   MX7    0                                                       CFA      1093
           501  5170000000 X                      SA7    L.CFT       L.CFT = 0                                   CFA      1094
                          5170000000 X            SA7    L.RND                                                   CFA      1095
                                                  TRACE  CBD.X,GST                                               CFA      1096
           502  0400000253 +                      EQ     FIS                                                     CFA      1097
                                                                                                                 CFA      1098
                                        *         PROCESS INTERVAL WITH @ 48 NODES                               CFA      1099
                                                                                                                 CFA      1100
           503  6130000060               CBD6     SB3    48                                                      CFA      1101
                          0732000526 +            GT     B2,B3,CBD12 IF NN > 48                                  CFA      1102
                                                                                                                 CFA      1103
           504  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
           505  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
           506  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
           507  65254                             SB2    A5-"IB"     I = II - IBA                                CFA      1119
                     43174                        MX1    60          BD = -0                                     CFA      1120
                                                                                                                 CFA      1121
           510  20436                    CBD8     LX4    -ET.PREDP                                               CFA      1122
                     53346                        SA3    "T"+X4                                                  CFA      1123
                                                  LX3    -I.NIP      J = NI[T(PRED[PI])]                         CFA      1124
                          53235                   SA2    "BV"+X3                                                 CFA      1125
                               67331              SB3    B3-B1       N = N - 1                                   CFA      1126
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    27
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
           511  11112                             BX1    X1*X2       BD = BD & BVT(J)                            CFA      1127
                     54441                        SA4    A4+B1       PI = PI + 1                                 CFA      1128
                          0530000510 +            NZ     B3,CBD8     IF N " 0                                    CFA      1129
                                                                                                                 CFA      1130
           512  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
           513  0325000514 +                      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
           514  27101                    CBD9     PX1    X1                                                      CFA      1140
                     20570                        LX5    1+IM.ENP                                                CFA      1141
                          6130000057              SB3    47                                                      CFA      1142
           515  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
           516  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
           517  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
           520  54551                             SA5    A5+B1       II = II + 1                                 CFA      1156
                     0520000506 +                 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
           521  20404                             LX4    59-IM.ENP                                               CFA      1162
                     0334000477 +                 MI     X4,CBD5     IF EN[IBA]    */ HEADER IS AN EXIT NODE     CFA      1163
           522  0307000477 +                      ZR     X7,CBD5     IF AN = 0                                   CFA      1164
                                                                                                                 CFA      1165
                          76110                   SX1    B1                                                      CFA      1166
                               20172              LX1    IM.APP                                                  CFA      1167
                                                                                                                 CFA      1168
           523  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
           524  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
           525  0317000523 +                      NZ     X7,CBD11    IF AN " 0                                   CFA      1177
                                                                                                                 CFA      1178
                          0400000477 +            EQ     CBD5                                                    CFA      1179
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    28
        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
           526  77621                    CBD12    SX6    B2-B1       NN = NN - 1                                 CFA      1186
                     5160000015 C                 SA6    NN                                                      CFA      1187
                               76230              SX2    B3                                                      CFA      1188
           527  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
           531  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
           532  43700                             MX7    0                                                       CFA      1198
                     63210                        SB2    X1          FOR I = 1 TO VL - 1,                        CFA      1199
                                                                                                                 CFA      1200
           533  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
           534  0712000533 +                      GT     B2,B1,*-1   END                                         CFA      1204
                                                                                                                 CFA      1205
                          56540                   SA5    "IB"                                                    CFA      1206
                               56050              SA0    "BV"                                                    CFA      1207
           535  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
           536  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
           537  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
           540  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
           541  53230                             SA2    X3          BJ = BVT[TW]                                CFA      1229
                     10622                        BX6    X2                                                      CFA      1230
                          56650                   SA6    "BI"        BK = BI;  [BK] = [BJ]                       CFA      1231
           542  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
           543  0712000542 +                      GT     B2,B1,CBD15 IF I > 1                                    CFA      1236
                          0431000547 +            EQ     B3,B1,CBD17 IF N = 1                                    CFA      1237
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    29
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
                                                                                                                 CFA      1238
           544  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
           545  63210                             SB2    "VL"                                                    CFA      1243
                     56250                        SA2    "BI"                                                    CFA      1244
                          0100000602 +            RJ     ABV         BD(I) = BD(I) & BVT(PRED)                   CFA      1245
           546  67331                             SB3    B3-B1       N = N - 1                                   CFA      1246
                     0713000544 +                 GT     B3,B1,CBD16 IF N > 1                                    CFA      1247
                                                                                                                 CFA      1248
                                        *         CALCULATE IMMEDIATE BACK DOMINATOR                             CFA      1249
                                                                                                                 CFA      1250
           547  53415                    CBD17    SA4    "BI"+"VL"   BJ = BI + VL                                CFA      1251
                     6130000057                   SB3    47                                                      CFA      1252
                                                                                                                 CFA      1253
           550  55441                    CBD18    SA4    A4-B1       BJ = BJ - 1                                 CFA      1254
                     0304000550 +                 ZR     X4,CBD18    IF [BJ] = 0                                 CFA      1255
                               27604              PX6    X4                                                      CFA      1256
           551  24326                             NX3    B2,X6                                                   CFA      1257
                     75245                        SX2    A4-"BI"                                                 CFA      1258
                          67232                   SB2    B3-B2                                                   CFA      1259
                               20204              LX2    4                                                       CFA      1260
           552  76010                             SX0    B1                                                      CFA      1261
                     22312                        LX3    B1,X2                                                   CFA      1262
                          36623                   IX6    X2+X3                                                   CFA      1263
                               20070              LX0    IM.DOMP                                                 CFA      1264
           553  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
           554  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
           555  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
           556  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
           557  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
           560  0325000562 +                      PL     X5,CBD19    IF ^EN[II]    */ IF NOT AN EXIT NODE        CFA      1287
                          63210                   SB2    "VL"                                                    CFA      1288
                               54200              SA2    A0                                                      CFA      1289
           561  76350                             SX3    "BI"                                                    CFA      1290
                     0100000602 +                 RJ     ABV         AN = AN & BVT(BI)                           CFA      1291
                                                                                                                 CFA      1292
           562  5120000015 C             CBD19    SA2    NN                                                      CFA      1293
                          63515                   S"BI"  "BI"+"VL"   BI = BI + VL                                CFA      1294
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    30
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
                               54551              SA5    A5+B1       II = II + 1                                 CFA      1295
           563  7262777776                        SX6    X2-1        NN = NN - 1                                 CFA      1296
                          5062000000              SA6    A2+                                                     CFA      1297
           564  0316000537 +                      NZ     X6,CBD14    IF NN " 0                                   CFA      1298
                                                                                                                 CFA      1299
                          64500                   S"BV"  A0                                                      CFA      1300
                               56240              SA2    "IB"                                                    CFA      1301
           565  20204                             LX2    59-IM.ENP                                               CFA      1302
                     0332000477 +                 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
           566  6130000057                        SB3    47                                                      CFA      1307
                          53515                   SA5    "BV"+"VL"   BI = O.BVT + VL                             CFA      1308
                               76231              SX2    B3+B1                                                   CFA      1309
           567  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
           570  7222777717               CBD20    SX2    X2-48                                                   CFA      1315
                          0332000477 +            MI     X2,CBD5     IF WA < 0                                   CFA      1316
           571  55551                             SA5    A5-B1       BI = BI - 1;  AN = [BI]                     CFA      1317
                     0305000570 +                 ZR     X5,CBD20    IF AN = 0                                   CFA      1318
                                                                                                                 CFA      1319
           572  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
           573  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
           574  54630                             SA6    A3                                                      CFA      1328
                     0315000572 +                 NZ     X5,CBD21    IF AN " 0                                   CFA      1329
           575  0400000570 +                      EQ     CBD20                                                   CFA      1330
                                                                                                                 CFA      1331
           576                           FISA     BFMW   IM,(AP,HN)                                              CFA      1332
           577  60000000000577 +         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
           600  11623                    ABV1     BX6    X2*X3                                                   CFA      1341
                     54331                        SA3    A3+B1                                                   CFA      1342
                          67221                   SB2    B2-B1                                                   CFA      1343
                               54620              SA6    A2                                                      CFA      1344
           601  5022000001                        SA2    A2+1                                                    CFA      1345
                          0702000600 +            GT     B2,ABV1                                                 CFA      1346
           602  0200400602 +             ABV      ROUTINE                                                        CFA      1347
           603  53330                             SA3    X3                                                      CFA      1348
                     0400000600 +                 EQ     ABV1                                                    CFA      1349
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    31
        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
                                         NN       DEFINE 30          NEW NODE NUMBER                             CFA      1358
                                         NBN      DEFINE 30          NEW BLOCK NUMBER                            CFA      1359
                                                                                                                 CFA      1360
           604  0200400604 +             FDG      ROUTINE                                                        CFA      1361
           605  5150000003 C                      SA5    N.BLK                                                   CFA      1362
                          73151                   ALLOC  OTI,X5+B1   ALLOC( OTI , N.BLK+1 )  */ TRANSITION TBL   CFA      1363
           607  5140000004 C                      SA4    LC                                                      CFA      1364
                          7204000004              SX0    X4+4                                                    CFA      1365
           610  36101                             IX1    X0+X1                                                   FCC0408   107
                     5100000000 X                 ALLOC  CFT,X1      ALLOC( CFT , LC+5+N.BLK )                   CFA      1367
           612  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
           613  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
           614  54620                             SA6    A2                                                      CFA      1374
                     63440                        SB4    X4                                                      CFA      1375
                          5110000005 C            SA1    EII                                                     CFA      1376
           615  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
           616  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
           617  43602                             MX6    2                                                       CFA      1386
           620  7244777776               FDG0     SX4    X4-1        N = N - 1                                   CFA      1387
                          5066000001              SA6    A6+1        I = I + 1;  T(I) = 1S58                     CFA      1388
           621  0314000620 +                      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
           622  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
           623  0307000626 +                      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
           624  73450                             SX4    X5                                                      CFA      1405
                     12707                        BX7    X0+X7                                                   CFA      1406
                          20436                   LX4    T.NNP                                                   CFA      1407
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    32
        FDG - FORM DERIVED GRAPH                                      FDG                 CODE
  
                               12747              BX7    X4+X7       TSW = TTW(1S29+HN,HB)                       CFA      1408
           625  0400000631 +                      EQ     FTT4                                                    CFA      1409
                                                                                                                 CFA      1410
                                         FTT2     LX5    59-IM.SCRP                                              CFA      1411
           626  0325000630 +                      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
           627  0400000631 +                      EQ     FTT4                                                    CFA      1415
                                                                                                                 CFA      1416
           630  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
           631  67331                    FTT4     SB3    B3-B1       N = N - 1                                   CFA      1423
                     54551                        SA5    A5+B1       IP = IP + 1                                 CFA      1424
                          0530000626 +            NZ     B3,FTT2     IF N " 0                                    CFA      1425
           632  0315000622 +                      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
           633  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
           634  10100                             BX1    X0                                                      CFA      1436
                                                                                                                 CFA      1437
           635  56423                    FTT5     SA4    B2+B3                                                   CFA      1438
                     0334000637 +                 MI     X4,FTT6     IF T(I) < 0   */ SCR AND NOT HEADER         CFA      1439
                               12604              BX6    X0+X4                                                   CFA      1440
           636  5064000000                        SA6    A4+         NN[T(I)] = J                                CFA      1441
                          36001                   IX0    X0+X1       J = J + 1                                   CFA      1442
           637  66331                    FTT6     SB3    B3+B1       I = I + 1                                   CFA      1443
                     0653000635 +                 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
           640  66310                             SB3    B1          I = 1                                       CFA      1449
                     20673                        LX6    -1                                                      CFA      1450
                          56620                   SA6    B2          T(0) = 1S58                                 CFA      1451
                                                                                                                 CFA      1452
           641  56423                    FTT7     SA4    B2+B3                                                   CFA      1453
                     0324000643 +                 PL     X4,FTT8     IF T(I) > 0                                 CFA      1454
                               20436              LX4    -T.NNP      OBN = NN[T(I)]                              CFA      1455
           642  53342                             SA3    B2+X4                                                   CFA      1456
                     10633                        BX6    X3          T(I) = T(OBN)                               CFA      1457
                          54640                   SA6    A4                                                      CFA      1458
           643  66331                    FTT8     SB3    B3+B1       I = I + 1                                   CFA      1459
                     0653000641 +                 LE     B3,B5,FTT7  IF I @ N.BLK                                CFA      1460
                                                                                                                 CFA      1461
                               43600              MX6    0                                                       CFA      1462
           644  56620                             SA6    B2          T(0) = 0                                    CFA      1463
                                                                                                                 CFA      1464
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    33
        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
           645  10600                             BX6    X0                                                      CFA      1469
                     5160000000 X                 SA6    L.OTI       L.OTI = J                                   CFA      1470
           646  6160000036                        SB6    T.NNP                                                   CFA      1471
                          63310                   SB3    X1                                                      CFA      1472
                               53522              SA5    B2+X2       TI = O.T + NB                               CFA      1473
           647  7266777776                        SX6    X6-1                                                    CFA      1474
                          5160000003 C            SA6    N.BLK                                                   CFA      1475
           650  43700                             MX7    0                                                       CFA      1476
                     56730                        SA7    B3          OTI(0) = 0                                  CFA      1477
                                                                                                                 CFA      1478
           651  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
           652  0315000651 +                      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
           653  43601                             MX6    -ET.JPP                                                 CFA      1490
                     6160000036                   SB6    T.NNP                                                   CFA      1491
                               43022              MX0    CF.FROML                                                CFA      1492
           654  20060                             LX0    CF.FROML+CF.FROMP                                       CFA      1493
                                                                                                                 CFA      1494
           655  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
           656  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
           657  0603000664 +                      LE     B3,FDG9     IF N @ 0                                    CFA      1503
                                                                                                                 CFA      1504
                                         FDG7     LX5    -ET.SUCCP                                               CFA      1505
           660  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
           661  0307000663 +                      ZR     X7,FDG8     IF FE = TE                                  CFA      1511
                                                                                                                 CFA      1512
                          11565                   BX5    X6*X5                                                   CFA      1513
                               36412              IX4    X1+X2                                                   CFA      1514
           662  12754                             BX7    X5+X4                                                   CFA      1515
                     54771                        SA7    A7+B1       CI = CI + 1;  [CI] = CFTE(JP[SI], FE , TE ) CFA      1516
                                                                                                                 CFA      1517
           663  67331                    FDG8     SB3    B3-B1       N = N - 1                                   CFA      1518
                     54551                        SA5    A5+B1       SI = SI + 1                                 CFA      1519
                          0530000660 +            NZ     B3,FDG7     IF N " 0                                    CFA      1520
                                                                                                                 CFA      1521
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    34
        FDG - FORM DERIVED GRAPH                                      FDG                 CODE
  
           664  0657000655 +             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
           665  5160000000 X                      SA6    L.CFT                                                   CFA      1526
                                                                                                                 CFA      1527
                                                  TRACE  FDG.X,OTI                                               CFA      1528
                          0400000604 +            EQ     FDG                                                     CFA      1529
                                                                                                                 CFA      1530
                                                  QUAL                                                           CFA      1531
                                                                                                                 CFA      1532
                                  23 +   DGS      EQU    /CODE/DGS                                               CFA      1533
                                                                                                                 CFA      1534
           667                           F.CFA    END                                                            CFA      1535
  
                             65700B CM  STORAGE USED             2796 STATEMENTS      794 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.211 SECONDS         535 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW=            0   EXTERNAL*       6/03      6/12     11/07     11/08
        ATS=            0   EXTERNAL*       8/43     11/26     15/26     25/15     25/57     31/13     31/17
        BI.FLNP        22   FTNTEXT        10/17
        BI.RBP         73   FTNTEXT        10/17
        B1=1            0 
        CBN             0   EXTERNAL*       6/13      6/33      9/36 S   20/05     20/56
        CDD             0   EXTERNAL*      10/19
        CF.FROML       22                  11/49     13/16     33/28     33/29
        CF.FROMP       36                   7/12      9/29     11/56     12/51     13/33     33/46
                                            9/01     11/06     12/25     13/18     33/29
        CF.JPP         73                  11/11     11/57     12/49
        CF.TOL         22                  11/47     11/48     13/09
        CF.TOP          0                  33/46
        DGS            23   PROGRAM*       34/12 D
        EIB             5   TABLES         11/31 S   13/07
        EII             5   TABLES         14/06 S   15/27     26/04     31/26
        EI.NPP         36                  12/03     13/53     13/56
        EI.NSP          0                  13/51
        EI.PRIP        52                  13/38     13/56     15/49     19/33     20/33     21/42     26/47     28/42
        EI.SUIP        14                   9/15     12/27     13/51     13/53     17/42     18/38     23/42     33/35
        ETB             6   TABLES
        ET.JPP         73                  17/03     33/26
        ET.PREDP       36                  13/15     13/27     20/37     21/47     26/53     28/45     29/03
        ET.SUCCL       22                   8/54      8/55
        FA=LOL          0   EXTERNAL*       9/52      9/53     10/44
        FTH            12   TABLES         16/52 S   19/06 S   19/56
        F.CFA         667   PROGRAM*       34/14 L
        GA.LBP         22                  21/21
        GB.NBP         22                  12/37
        GB.NLPP        44                  21/07
        GIC             0   EXTERNAL*       5/19 S    5/21      5/32      5/43 S
        HTL            10   TABLES         15/34 S   16/13
        I              15   TABLES          5/18 S    5/28     10/43 S   10/45
        ILB             7   TABLES          8/06     12/40 S   16/09     21/35     22/18     25/17     26/03     31/20
        IM.APP         72                  27/41     30/19     30/38
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    35
        SYMBOLIC REFERENCE TABLE. 
  
        IM.BIP         44                  22/34     22/47     31/31
        IM.BNP          0                  27/07
        IM.DOMP        70                  27/23     27/25     29/27
        IM.ENP         67                  21/37     27/07     27/15     27/36     29/49     30/08
        IM.HNP         66                  20/27     30/38
        IM.IBDP        22                  27/20     29/35
        IM.LNP         71                  18/55     20/18     20/27
        IM.SCRP        73                  31/31
        IP             14   TABLES         26/18 S   26/21
        IP.FTP         72                  20/03
        IP.GLP         73                  19/53
        IP.NIPP        44                  19/47
        IP.NODEP        0                  31/47
        IP.PBP         22                  20/07     31/47
        I.BITNL        14 
        I.BITNP        60 
        I.BVIL         22 
        I.BVIP         14                  28/32     28/48     29/05     29/39
        I.GL       100000   FTNTEXT         7/10      7/15
        I.HNL          22 
        I.HNP          44                  17/17     18/19     21/51
        I.IAL          22 
        I.IAP          22                  17/24     18/28     20/39     21/49     21/51
        I.INHP         72                  17/21
        I.INIP         73                  17/21
        I.NIL          14 
        I.NIP           0 
        I.PCL          22 
        I.PCP           0 
        I.WIL          22 
        I.WIP          36                  25/23     29/44
        I.1PP          71                  15/47     18/47
        LB              1   TABLES          6/16 S    8/41 S   11/30 S   21/18
        LC              4   TABLES          8/37     11/16 S   31/14
        L.BIT           0   EXTERNAL*       9/57
        L.BST           0   EXTERNAL* 
        L.CFT           0   EXTERNAL*       6/04 S    7/05      8/39 S    9/34 S   11/23     25/13 S   26/25 S   34/05 S
        L.GLT           0   EXTERNAL* 
        L.GST           0   EXTERNAL*       5/04      5/46 S    6/11 S    9/03 S   12/39 S   21/05 S
        L.LCT           0   EXTERNAL*       8/40 S   19/52
        L.OTI           0   EXTERNAL*      22/17     33/06 S
        L.RND           0   EXTERNAL*      26/26 S
        MAX.GST      1400                   5/05
        MSG=            0   EXTERNAL*       9/45
        M.GRL           0   EXTERNAL*       5/40     21/25
        M.LP            0   EXTERNAL*      21/10
        NN             15   TABLES         28/07 S   29/56
        NPB             0   EXTERNAL*       6/20 S
        NPH            11   TABLES         17/12 S   19/25
        N.BLK           3   TABLES          6/19 S    8/50     12/35     25/14     31/35     33/11 S
                                            8/10     11/22     15/22     31/12     32/24
        N.DG            0   EXTERNAL*       5/07      6/32
        N.FTH           0   EXTERNAL*       8/42 S   19/57
        O.BIT           0   EXTERNAL*       8/11      8/44     10/01
        O.BST           0   EXTERNAL* 
        O.CFT           0   EXTERNAL*       7/06     11/40     13/06     26/08
        O.GLT           0   EXTERNAL*       7/08
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        O.GST           0   EXTERNAL*       5/12      8/05     12/34     25/16     31/21
                                            5/31      8/51     14/03     26/02
        O.IST           0   EXTERNAL*       5/25      5/44 S
        O.OTI           0   EXTERNAL*      22/21     33/03
        O.RND           0   EXTERNAL* 
        O.SYM          12                   1/36 D    7/07
        PBN             0   TABLES          6/17 S    6/36 S   20/55
        PROGNAM         0   EXTERNAL*       9/42
        R=FLAG          0   EXTERNAL*       9/49
        SBD             0   EXTERNAL*       5/24
        SCR            13   TABLES          6/28     21/06 S
        SHL             0   EXTERNAL*      13/02
        SLIST           0   EXTERNAL*       9/47
        SST             0   EXTERNAL*      11/17
        Z.CFT           0   EXTERNAL*       8/43     11/07     11/08     25/15     31/17
        Z.GST           0   EXTERNAL*       6/03      6/12     11/26     15/26
        Z.OTI           0   EXTERNAL*      31/13
        Z.RND           0   EXTERNAL*      25/57
        Z.TXT           1                   1/36 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  CODE
  
  
        ABV           602   PROGRAM*       29/08     29/54     30/55 L
        ABV1          600   PROGRAM*       30/49 L   30/54     30/57
        AFT            44   PROGRAM*        6/09      7/04 L    7/23
        AFT1           52   PROGRAM*        7/18 L    7/30
        AFT2           53   PROGRAM*        7/16      7/22 L    7/26      7/37
        CBD           450   PROGRAM*       23/20     25/11 L
        CBD1          457   PROGRAM*       25/28 L   25/48
        CBD11         523   PROGRAM*       27/43 L   27/51
        CBD12         526   PROGRAM*       26/33     28/06 L
        CBD14         537   PROGRAM*       28/40 L   30/04
        CBD15         542   PROGRAM*       28/52 L   28/56
        CBD16         544   PROGRAM*       29/02 L   29/10
        CBD17         547   PROGRAM*       28/57     29/14 L
        CBD18         550   PROGRAM*       29/17 L   29/18
        CBD19         562   PROGRAM*       29/50     29/56 L
        CBD2          461   PROGRAM*       25/33     25/36 L   25/46
        CBD20         570   PROGRAM*       30/21 L   30/24     30/36
        CBD21         572   PROGRAM*       30/26 L   30/35
        CBD3          463   PROGRAM*       25/41     25/44 L
        CBD4          475   PROGRAM*       26/14 L   26/23
        CBD5          477   PROGRAM*       26/21 L   27/37     27/38     27/53     30/09     30/22
        CBD6          503   PROGRAM*       26/19     26/32 L
        CBD7          506   PROGRAM*       26/45 L   27/31
        CBD8          510   PROGRAM*       26/53 L   27/03
        CBD9          514   PROGRAM*       27/09     27/14 L
        CGT             0   PROGRAM*        5/03 L    5/06      5/08      5/47      6/06
        CGT1            6   PROGRAM*        5/21 L    5/38
        DGS            23   PROGRAM*        6/08 L   34/12
        DGS0           20   PROGRAM*        6/03 L    6/29
        DGS1           35   PROGRAM*        6/28 L    6/41
        FDG           604   PROGRAM*        6/31     31/11 L   34/08
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    37
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        FDG0          620   PROGRAM*       31/37 L   31/39
        FDG5          651   PROGRAM*       33/15 L   33/19
        FDG6          655   PROGRAM*       33/31 L   34/01
        FDG7          660   PROGRAM*       33/41 L   33/56
        FDG8          663   PROGRAM*       33/47     33/54 L
        FDG9          664   PROGRAM*       33/39     34/01 L
        FGS           170   PROGRAM*        6/22      6/39      9/37     11/04 L   14/09
        FGS0          211   PROGRAM*       11/52 L   11/54
        FGS1          214   PROGRAM*       12/05 L   12/15     12/20     12/30
        FGS1A         217   PROGRAM*       12/09     12/17 L
        FGS2          230   PROGRAM*       12/52 L   12/56
        FGS3          237   PROGRAM*       13/21 L   13/24     13/31     13/42
        FIS           253   PROGRAM*        6/23      6/40      9/38     15/21 L   26/28
        FISA          576   PROGRAM*       17/09     30/38 L
        FISB          577   PROGRAM*       15/43     30/39 L   30/39
        FIS1          264   PROGRAM*       15/49 L   16/01
        FIS1A         266   PROGRAM*       15/53     15/55 L
        FIS10         337   PROGRAM*       18/12     18/18     18/21     18/42     18/50     18/53     19/04     19/08 L
        FIS10A        340   PROGRAM*       17/45     19/14 L
        FIS11         342   PROGRAM*       19/16     19/24 L
        FIS11A        347   PROGRAM*       19/43     19/45 L
        FIS12         357   PROGRAM*       20/20 L   20/24     20/47
        FIS13         363   PROGRAM*       20/37 L   20/45
        FIS15         366   PROGRAM*       16/31     20/53 L
        FIS16         403   PROGRAM*       21/41 L   22/12
        FIS17         405   PROGRAM*       21/47 L   22/02
        FIS18         410   PROGRAM*       21/53     21/57 L
        FIS19         411   PROGRAM*       21/45     22/04 L
        FIS2          271   PROGRAM*       16/13 L   19/50     20/29
        FIS20         414   PROGRAM*       22/06     22/17 L
        FIS21         417   PROGRAM*       22/27 L   22/40
        FIS22         420   PROGRAM*       22/31 L   22/39
        FIS23         423   PROGRAM*       22/19     22/46 L
        FIS24         424   PROGRAM*       22/49 L   23/05
        FIS25         425   PROGRAM*       22/53 L   23/04
        FIS26         430   PROGRAM*       22/42     23/12 L
        FIS27         431   PROGRAM*       23/14 L   23/19     24/13
        FIS28         434   PROGRAM*       23/16     23/24 L   24/10
        FIS29         436   PROGRAM*       23/31 L   24/05
        FIS3          273   PROGRAM*       16/20 L   16/23     16/26     16/29
        FIS30         441   PROGRAM*       23/46 L   23/51
        FIS31         444   PROGRAM*       23/36     23/48     24/02 L
        FIS32         447   PROGRAM*       24/06     24/12 L
        FIS4          277   PROGRAM*       16/22     16/31 L
        FIS4A         302   PROGRAM*       16/43 L   16/47
        FIS5          313   PROGRAM*       17/40 L   19/19
        FIS6          315   PROGRAM*       17/47 L   19/10
        FIS7          323   PROGRAM*       17/54     18/16 L
        FIS8          325   PROGRAM*       18/02     18/25 L   18/49
        FIS9          334   PROGRAM*       17/53     18/52 L
        FTT1          622   PROGRAM*       31/45 L   32/19
        FTT2          626   PROGRAM*       31/50     32/04 L   32/18
        FTT3          630   PROGRAM*       32/05     32/10 L
        FTT4          631   PROGRAM*       32/02     32/08     32/16 L
        FTT5          635   PROGRAM*       32/31 L   32/37
        FTT6          637   PROGRAM*       32/32     32/36 L
        FTT7          641   PROGRAM*       32/46 L   32/53
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 15.56.11.      PAGE    38
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        FTT8          643   PROGRAM*       32/47     32/52 L
        LAL           162   PROGRAM*       10/14     10/24     10/37 L   10/47
        MRB            60   PROGRAM*        6/24      8/04 L    8/36      9/50     10/06     10/15
        MRBA          144   PROGRAM*        9/53     10/04 S   10/27 L   10/30     10/44
        MRBB          156   PROGRAM*        9/52     10/29 L   10/30     10/38
        MRBC           11                  10/05     10/30 D
        MRBD          157   PROGRAM*        9/44 S    9/45     10/31 L
        MRB1           65   PROGRAM*        8/16 L    8/30
        MRB10         136   PROGRAM*       10/14 L
        MRB11         140   PROGRAM*       10/10     10/17 L
        MRB2           66   PROGRAM*        8/21 L    8/29
        MRB3          105   PROGRAM*        9/08 L    9/13
        MRB4          106   PROGRAM*        9/04      9/12 L    9/30
        MRB5          110   PROGRAM*        9/19 L    9/24
        MRB6          112   PROGRAM*        9/10      9/26 L
        MRB6A         125   PROGRAM*        9/48      9/52 L
        MRB7          130   PROGRAM*        9/56 L   10/25
        MRB8          134   PROGRAM*       10/08 L   10/12
        MRB9          135   PROGRAM*       10/11 L   10/22
        T.NBNL         36                  31/09 D
        T.NBNP          0                  31/09 D
        T.NNL          36                  31/08 D
        T.NNP          36                  31/08 D   31/57     32/28     32/48     33/04     33/07     33/27
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      264              IDENT  UDT
                        264              F.UDT    END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       264 
                                        //        COMMON          0       100 
                                        BVINFO    COMMON          0         4 
  
  
                                        ENTRY POINTS. 
  
                                        B=UDT            0+           CMR            120+           PBB            216+ 
                                        AUT              0+           CPL            152+           F.UDT          264+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.BST     O.RND     O.TXT     Z.BST     L.PTXT    Z.IOL     ATS=
                                        L.BST     L.RND     L.TXT     Z.RXI     PIOL      N.FP      ADW=
                                        O.IOL     O.RXI     O.UDI     SMB       MVE=      FUNTYPE   Z.UDI 
                                        L.IOL     L.RXI     L.UDI     XR        M.BBL     SHL 
  
  
  
  
                                                  IDENT  UDT                                                     UDT         2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=UDT    RPVDEF                                                         UDT         5
                                                  PASS2TM                                                        UDT         6
                                                                                                                 UDT         7
  
  
                                        **        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,RND,RXI,TXT,UDI                                 UDT        17
                                                                                                                 UDT        18
                                                  ECHO   4,A=(BIT,BVT),B=(BST,RXI)                               UDT        19
                                                  EXT    Z.B                                                     UDT        20
                                         Z.A      EQU    Z.B                                                     UDT        21
                                         O.A      EQU    O.B                                                     UDT        22
                                         L.A      EQU    L.B                                                     UDT        23
  
  
                                                  USE    //                                                      UDT        25
             0                   100     O.UDB    BSS    100B        FWA OF USE/DEF HASH TABLE                   UDT        26
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE     2
  
  
                                                  USE    0                                                       UDT        27
                                                                                                                 UDT        28
                                                  USE    /BVINFO/                                                UDT        29
             0                     1     VL       BSS    1           BIT VECTOR LENGTH                           UDT        30
             1                     1     N.VAR    BSS    1           N.VARIABLES IN *UDT*                        UDT        31
             2                     1     BVL      BSS    1           VL - 1                                      UDT        32
             3                     1     RCV      BSS    1           =1 IF REFERENCED COMMON VARIABLES           UDT        33
                                                  USE    0                                                       UDT        34
                                                                                                                 UDT        35
                                        *         BLOCK HEADER TRAILER WORD DEFINTIONS                           UDT        36
                                                                                                                 UDT        37
                                   0     BH.LENP  EQU    0                                                       UDT        38
                                  44     BH.BIP   EQU    36                                                      UDT        39
                                   0     BT.LENP  EQU    0                                                       UDT        40
                                                                                                                 UDT        41
             0                           CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                 CFTBLD      2
                                                                                                                 UDT        43
                                                  LIST   X                                                       UDT        44
                                                                                                                 UDT        45
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      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
                                         CR       DEFINE 1                                                       UDTBLD      8
                                         HL       DEFINE 18          HASH LINK                                   UDTBLD      9
                                         CA       DEFINE 18          BIAS ( IF CR " 0, THEN CA = -0 )            UDTBLD     10
                                         IH       DEFINE 18          BASE ( SYMBOL ORDINAL )                     UDTBLD     11
                                                                                                                 UDTBLD     12
                                         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
                                         DEFR     DEFINE 1           DEFINED IN REGION                           UDTBLD     23
                                         DEF      DEFINE 1           IH/CA DEFINED IN BLOCK                      UDTBLD     24
                                         DBU      DEFINE 1           DEFINITION BEFORE USE                       UDTBLD     25
                                         USE      DEFINE 1           USE                                         UDTBLD     26
                                         ^RD      DEFINE 1           NOT RECURSIVELY DEFINED                     UDTBLD     27
                                         IST      DEFINE 1           INTERFERING STORE ( RJX, ETC. )             UDTBLD     28
                                                                                                                 UDTBLD     29
                                         STC      DEFINE 9           STORE COUNT                                 UDTBLD     30
                                         RF       DEFINE 1           SHORT USAGE IN A LOOP                       FCC1504X    7
                                         FP       DEFINE 1           IH/CA IS A F.P.                             UDTBLD     31
                                                  DEFINE P.FP-P.COM-1                                            UDTBLD     32
                                         COM      DEFINE 1           IH/CA IS IN COMMON                          UDTBLD     33
                                                  DEFINE 5-P.FP+P.COM                                            FCC1504X    8
                                         BMI      DEFINE 18          INDEX TO BASE MEMBER ( CM " 0 )             UDTBLD     35
                                         CM       DEFINE 1           CLASS MEMBER ( NON BASE MEMBER OF EQV CLASS UDTBLD     36
                                         CR       DEFINE 1           CLASS REPRESENTATIVE                        UDTBLD     37
                                         ECL      DEFINE 18          EQUIV CHAIN LINK ( TO NEXT ON CHAIN )       UDTBLD     38
                                                                                                                 UDTBLD     39
                                         DEFB     DEQU   DEF,2       DEF BITS ( REGION AND BLOCK )               UDTBLD     40
                                         MV       DEQU   USE,3       MARKED VARIABLE ( USE, DBU, DEF )           UDTBLD     41
                                         CB       DEQU   CR,2        CLASS BITS                                  UDTBLD     42
                                         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
                                         UXR      DEFINE 1           =1 IF USER EXT REFS IN BLOCK                UDTBLD     49
                                                  DEFINE 17                                                      UDTBLD     50
                                         MRA      DEFINE 24          MACHINE REGISTERS AVAIL                     UDTBLD     51
                                         TXTL     DEFINE 18          *TXT* LENGTH OF BLOCK                       UDTBLD     52
                                                                                                                 UDTBLD     53
                                                  ENDX                                                           UDTBLD     54
                                                  LIST   R                                                       UDT        47
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE     4
        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
                                         IH       DEFINE 18                                                      UDT        56
                                                  DEFINE 11                                                      UDT        57
                                         CR       DEFINE 1                                                       UDT        58
                                         UI       DEFINE 18                                                      UDT        59
                                                                                                                 UDT        60
             0  00000000000000000000     AUT      ENTRY.                                                         UDT        61
             1  5150000000 X                      SA5    L.UDI                                                   UDT        62
                          7275777775              SX7    X5-2                                                    UDT        63
             2  0317000004 +                      NZ     X7,AUT0     IF L.UDI " 2  */ TABLE NON-EMPTY            UDT        64
                          76110                   ADDWRD UDI,1       ADDWRD( UDI , 1 )  */ DUMMY ENTRY           UDT        65
             4                           AUT0     BSS    0                                                       UDT        66
                                         .T       IFNE   TEST,0                                                  FCCT005     5
                                                  SA1    =XCO.SNAP                                               FCCT005     6
                                                  LX1    1R2                                                     FCCT005     7
                                                  PL     X1,AUTT     IF SNAP=2 NOT SELECTED                      FCCT005     8
                                                  DCALL  DMPUDI,([O.UDI],L.UDI)    PRINT SYMBOL DICTIONARY       UDT        68
                                         AUTT     BSS    0                                                       FCCT005     9
                                         .T       ENDIF                                                          FCCT005    10
             4  5150000000 X                      SA5    L.UDI                                                   UDT        70
                          10655                   BX6    X5                                                      UDT        71
                               20501              LX5    1                                                       UDT        72
             5  5160000001 C                      SA6    N.VAR       N.VAR = L.UDI                               UDT        73
                          7215000003              ALLOC  UDI,X5+3    ALLOC( UDI , 2*N.VAR + 3 )                  UDT        74
             7  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
            10  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
            11  5252000002                        SA5    X2+2        UI = O.UDI + 2                              UDT        82
                          20066                   LX0    UA.CRP                                                  UDT        83
                               66411              SB4    B1+B1                                                   UDT        84
            12  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
            13  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
            14  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
            15  73444                             SX4    X4+B4       I = I + 2                                   UDT       100
                     54771                        SA7    A7+B1       TI = TI + 1;  [TI] = SW                     UDT       101
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE     5
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                          0520000013 +            NZ     B2,AUT1     IF N " 0                                    UDT       102
                                                                                                                 UDT       103
            16  54070                             SA0    A7          TL = TI                                     UDT       104
                     0100000000 X                 CALL   SHL         SORT( UDI , [IH,CR,I] )                     UDT       105
  
  
  
                                        *         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
            17  5120000000 X                      SA2    O.UDI                                                   UDT       111
                          5130000012              SA3    O.SYM                                                   UDT       112
            20  76010                             SX0    B1                                                      UDT       113
                     5110000034 +                 SA1    AUTA                                                    UDT       114
                               20022              LX0    I.CRP                                                   UDT       115
            21  54500                             SA5    A0          TI = TL                                     UDT       116
                     63220                        SB2    X2                                                      UDT       117
                          53030                   SA0    X3                                                      UDT       118
            22  6160000035                        SB6    I.IHP-1                                                 UDT       119
                          76310                   SX3    B1                                                      FCC0807    17
                               20304              LX3    P.LOCF                                                  FCC0807    18
                                                                                                                 UDT       120
            23  0305000035 +             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
            24  23565                             AX5    B6,X5                                                   UDT       124
                     63350                        SB3    X5          IHB = IH[TI]                                UDT       125
                                                  LX7    UD.CRP-I.CRP                                            UDT       126
                          55203                   SA2    A0-B3       WORDA = [O.SYM-2*IHB]                       UDT       127
                               11412              BX4    X1*X2                                                   UDT       128
            25  55221                             SA2    A2-B1       WORDB = WORDA - 1                           FCC0807    19
                     11532                        BX5    X3*X2                                                   FCC0807    20
                          20512                   LX5    P.COM-P.LOCF                                            FCC0807    21
                               12445              BX4    X4+X5       COM = COM ! LOCF                            FCC0807    22
            26  20432                             LX4    UD.COMP-P.COM                                           UDT       129
                     55551                        SA5    A5-B1       TI = TI - 1                                 UDT       130
                          22207                   LX2    X7                                                      UDT       131
                               12747              BX7    X4+X7                                                   UDT       132
            27  53762                             SA7    B2+X6       UDI(I) = UDIT(COM,C,0,0,0);  UL = UDI(I)    UDT       133
                     0302000023 +                 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
            30  12424                             BX4    X2+X4                                                   UDT       139
                     20624                        LX6    UD.BMIP                                                 UDT       140
                          36646                   IX6    X4+X6                                                   UDT       141
                                                                                                                 UDT       142
            31  23465                    AUT3     AX4    B6,X5                                                   UDT       143
                     63740                        SB7    X4                                                      UDT       144
                          0573000023 +            NE     B7,B3,AUT2  IF IH[TI] " IHB                             UDT       145
            32  73250                             SX2    X5          J = UI[TI]                                  UDT       146
                     55551                        SA5    A5-B1       TI = TI - 1                                 UDT       147
                                                  LX2    UD.ECLP                                                 UDT       148
                          12727                   BX7    X2+X7       ECL[UL] = J   */ LINK LAST TO THIS          UDT       149
                               54770              SA7    A7                                                      UDT       150
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE     6
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                                                  LX2    -UD.ECLP                                                UDT       151
            33  10766                             BX7    X6                                                      UDT       152
                     53722                        SA7    B2+X2       UDI(J) = UDIT(COM,0,I,0);  UL = UDI(J)      UDT       153
                          0400000031 +            EQ     AUT3                                                    UDT       154
                                                                                                                 UDT       155
            34                           AUTA     BFMW   UD,(FP,COM),P.COM-UD.COMP                               UDT       156
  
  
  
                                        *         FORM "SPOIL" BIT VECTOR FOR COMMON VARIABLES                   UDT       158
                                                                                                                 UDT       159
            35  5150000001 C             AUT4     SA5    N.VAR                                                   UDT       160
                          7120000074              SX2    60                                                      UDT       161
            36  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
            41  7267777776                        SX6    X7-1                                                    UDT       166
                          5160000002 C            SA6    BVL         BVL = L - 1                                 UDT       167
            42  20702                             LX7    2                                                       UDT       168
                     36127                        IX1    X2+X7                                                   UDT       169
                          5100000000 X            ALLOC  BVT,X1      ALLOC( BVT , 6*L )                          UDT       170
                                                                                                                 UDT       171
            44  5140000000 X                      SA4    O.UDI                                                   UDT       172
                          6225777775              SB2    X5-2        N = N.VAR - 2                               UDT       173
            45  67401                             SB4    -B1                                                     UDT       174
                     66600                        SB6    B0          BITN = 0                                    UDT       175
                          6170000074              SB7    60                                                      UDT       176
            46  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
            47  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
            50  55671                             SA6    A7-B1       UDI(2) = 0                                  UDT       184
                     7100000001                   SX0    1                                                       UDT       185
                               54571              SA5    A7+B1       UI = UDI(4)                                 UDT       186
            51  43100                             MX1    0           SVS = 0       */ SPOIL VECTOR SUM           UDT       187
                     20050                        LX0    UD.COMP                                                 UDT       188
                          6130000050              SB3    UD.COMP     J = 0                                       UDT       189
                                                                                                                 UDT       190
            52  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
            53  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
            54  66661                             SB6    B6+B1       BITN = BITN + 1                             UDT       199
                     0420000056 +                 ZR     B2,AUT6     IF N = 0                                    UDT       200
            55  0767000052 +                      LT     B6,B7,AUT5  IF BITN < 60                                UDT       201
                          6130000050              SB3    UD.COMP                                                 UDT       202
                                                                                                                 UDT       203
            56  53620                    AUT6     SA6    X2          [BI] = SV                                   UDT       204
                     12116                        BX1    X1+X6       SVS = SVS ! SV                              UDT       205
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE     7
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                          73221                   SX2    X2+B1       BI = BI + 1                                 UDT       206
                               66600              SB6    B0          BITN = 0                                    UDT       207
            57  43600                             MX6    0           SV = 0                                      UDT       208
                     73771                        SX7    X7+B1       WI = WI + 1                                 UDT       209
                          0520000052 +            NZ     B2,AUT5     IF N " 0                                    UDT       210
                                                                                                                 UDT       211
            60  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
                               43600              MX6    0           VW = 0                                      UDT       218
            61  5150000002 C                      SA5    BVL                                                     UDT       219
                          5110000102 +            SA1    AUTB                                                    UDT       220
            62  63651                             SB6    X5+B1       INDX = BVL + 1                              UDT       221
                     53051                        SA0    X5+B1       L = BVL + 1                                 UDT       222
                          0100000104 +            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
                                        *         VARS, F.P.S AND THE FUNCTION VALUE ( VALUE. ). I.E. THE SET    UDT       227
                                        *         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
            63  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
            64  5262000002                        SA6    X2+2        BVI[BIT(2)] = 2*L                           UDT       235
                          43700                   MX7    0                                                       UDT       236
                               64707              SB7    B7+A0                                                   UDT       237
            65  56756                   +         SA7    B5+B6       FOR I = 0 TO BVL; DEF(0) = 0                UDT       238
                     66661                        SB6    B6+B1                                                   UDT       239
                          0767000065 +            LT     B6,B7,*                                                 UDT       240
            66  5120000000 X                      SA2    =XFUNTYPE                                               UDT       241
                          64606                   SB6    B6+A0       INDX = 4*L                                  UDT       242
                               43600              MX6    0           VW = 0                                      UDT       243
            67  0302000071 +                      ZR     X2,AUT9     IF FUNTYPE = 0                              UDT       244
                          7232777776              SX3    X2-1        F = FUNTYPE                                 UDT       245
            70  12623                             BX6    X2+X3       VW = F + (F-1)                              UDT       246
            71  5110000103 +             AUT9     SA1    AUTC                                                    UDT       247
                          0100000104 +            RJ     FSV         FORM EXIT BLOCK *USE* VECTOR                UDT       248
                                                                                                                 UDT       249
                                        *         SET LX = USE AND UBD = USE                                     UDT       250
                                                                                                                 UDT       251
            72  64200                             SB2    A0                                                      UDT       252
                     67662                        SB6    B6-B2       I = 4*L;  UL = 5*L                          UDT       253
            73  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
                               55752              SA7    A5-B2       UFA = UVA - L;  [UFA] = VW                  UDT       257
            74  54752                             SA7    A5+B2       LXA = UVA + L;  [LXA] = VW                  UDT       258
                     0767000073 +                 LT     B6,B7,AUT10 IF I < UL                                   UDT       259
                                                                                                                 UDT       260
            75  5120000000 X                      SA2    =XN.FP                                                  UDT       261
                          0302000000 +            ZR     X2,AUT      IF N.FP = 0   */ NO F.P. S                  UDT       262
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE     8
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
            76  5110000103 +                      SA1    AUTC                                                    UDT       263
                          43600                   MX6    0           VW = 0                                      UDT       264
                               76710              SX7    B1                                                      UDT       265
            77  66600                             SB6    B0          INDX = 0                                    UDT       266
                     5170000003 C                 SA7    RCV         RCV = 1                                     UDT       267
           100  0100000104 +                      RJ     FSV         INCLUDE F.P.S IN COMMON VAR SPOIL VECTOR    UDT       268
                                                                                                                 UDT       269
           101  0400000000 +                      EQ     AUT                                                     UDT       270
                                                                                                                 UDT       271
           102                           AUTB     BFMW   UD,(CR,CM)                                              UDT       272
           103                           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
                                        *                (X6) = VW , FIRST WORD OF VECTOR ( PARTIAL )            UDT       278
                                        *                (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
           104  0200400104 +             FSV      ROUTINE                                                        UDT       285
           105  5120000001 C                      SA2    N.VAR                                                   UDT       286
                          5130000000 X            SA3    O.BVT                                                   UDT       287
           106  5140000000 X                      SA4    O.UDI                                                   UDT       288
                          6242777775              SB4    X2-2        N = N.VAR - 2                               UDT       289
           107  63530                             SB5    X3                                                      UDT       290
                     64706                        SB7    B6+A0       UL = INDX + L                               UDT       291
                          5254000004              SA5    X4+4        UI = [O.UDI] + 4                            UDT       292
           110  66200                             SB2    B0          BITN = 0                                    UDT       293
                     6130000074                   SB3    60                                                      UDT       294
                               76010              SX0    B1                                                      UDT       295
                                                                                                                 UDT       296
           111  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
           112  0307000113 +                      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
           113  6122000001               FSV2     SB2    B2+1        BITN = BITN + 1                             UDT       303
                          0440000115 +            ZR     B4,FSV3     IF N = 0                                    UDT       304
           114  0723000111 +                      LT     B2,B3,FSV1  IF BITN < 60                                UDT       305
                          6120000000              SB2    0           BITN = 0                                    UDT       306
           115  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
           116  0767000111 +                      LT     B6,B7,FSV1  IF INDX < UL                                UDT       310
                                                                                                                 UDT       311
                          0400000104 +            EQ     FSV                                                     UDT       312
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE     9
        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
           117  7166000000               CMR0     SX6    B6+         L.UDI  = UI                                 UDT       320
                          5160000000 X            SA6    L.UDI                                                   UDT       321
                                                                                                                 UDT       322
           120  00000000000000000000     CMR      ENTRY.                                                         UDT       323
           121  5110000000 X                      SA1    L.TXT                                                   UDT       324
                          21102                   AX1    2                                                       UDT       325
           122  5100000000 X                      ALLOC  UDI,X1      ALLOC( UDI , L.TXT/4 );  UI = OLD( L.UDI )  UDT       326
           123  5150000000 X                      SA5    O.TXT                                                   UDT       327
                          63720                   SB7    X2          UDI = O.UDI                                 UDT       328
                               43072              MX0    -D.LDSTL                                                UDT       329
           124  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
           125  5120000012                        SA2    O.SYM                                                   FCC1088    27
                          5202777776              SA0    X2-1                      (A0) = SYM-1                  FCC1088    28
                                                                                                                 UDT       335
                                        *         SCAN *TXT* FOR MEMORY REFS AND CHAIN THEM TO *UDI*             UDT       336
                                                                                                                 UDT       337
           126  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
           127  0430000117 +                      ZR     B3,CMR0     IF OC[R1] = 0 */ END OF BLOCK               UDT       342
                          0306000126 +            ZR     X6,CMR1     IF LDST[DI] = 0  */ NOT A MEM REF           UDT       343
                                                                                                                 UDT       344
           130  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
           131  15472                             BX4    -X2*X7      HI = IHF & 77B  */ HASH INDEX               UDT       350
                     63330                        SB3    X3          C0 = RF[R2]                                 UDT       351
                          0530000146 +            NZ     B3,CMR6     IF RF[R2] " 0                               UDT       352
                                                                                                                 UDT       353
           132  7267677777                        SX6    X7-I.GL                                                 UDT       354
                          0326000126 +            PL     X6,CMR1     IF IH[R2] \ I.GL  */ REF TO AP/IO LIST      UDT       356
           133  22617                             LX6    B1,X7                                                   FCC1088    29
                     63560                        SB5    X6                                                      FCC1088    30
                          55205                   SA2    A0-B5       WORDB = SYM(IH[R2])                         FCC1088    31
                               66510              SB5    B1          CL = 1                                      FCC1088    32
           134  20262                             LX2    59-P.LDO                                                FCC1088    33
                     0332000144 +                 MI     X2,CMR5     IF LDO[WORDB] */ VAR IS LOAD ONLY           FCC1088    34
                                                                                                                 UDT       362
           135  5224000000 C             CMR2     SA2    O.UDB+X4    CI = UDB(HI)                                UDT       363
                          0302000142 +            ZR     X2,CMR4     IF CI = 0     */ BASE TABLE ENTRY IS EMPTY  UDT       364
                                                                                                                 UDT       365
                                        *         SEARCH HASH CHAIN                                              UDT       366
                                                                                                                 UDT       367
           136  56770                             SA7    B7          [UDI] = IHF   */ SEARCH TERMINATOR          UDT       368
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    10
        CMR - CHAIN MEMORY REFERENCES TO *UDI*                        CMR 
  
                     63320                        SB3    X2          C0 = CI       */ INDEX TO LAST ON CHAIN     UDT       369
                                                                                                                 UDT       370
           137  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
           140  73230                             SX2    X3          CI = HL[UDW]                                UDT       375
                     15461                        BX4    -X1*X6                                                  UDT       376
                          0314000137 +            NZ     X4,CMR3     IF CAIH[UDW] " IHF                          UDT       377
                                                                                                                 UDT       378
           141  0550000144 +                      NZ     B5,CMR5     IF CL " 0     */ ENTRY IN TABLE             UDT       379
                                                                                                                 UDT       380
                                        *         ADD  *CAIH* TO *UDI*                                           UDT       381
                                                                                                                 UDT       382
           142  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
           143  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
           144  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
           145  0400000126 +                      EQ     CMR1                                                    UDT       398
                                                                                                                 UDT       399
                                        *         INDEXED MEMORY REF                                             UDT       400
                                                                                                                 UDT       401
           146  66510                    CMR6     SB5    B1          CL = 1                                      UDT       402
                     0435000144 +                 EQ     B3,B5,CMR5  IF RF[R2] = 1                               UDT       403
           147  5130000151 +                      SA3    CMRA                                                    UDT       404
                          66300                   SB3    B0          C0 = 0                                      UDT       405
                               12737              BX7    X3+X7       CR[IHF] = 1;  CA[IHF] = -0                  UDT       406
           150  0400000135 +                      EQ     CMR2                                                    UDT       407
                                                                                                                 UDT       408
           151                           CMRA     BFMW   UA,(CR,CA)                                              UDT       409
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    11
        CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                   CPL 
  
                                        **        CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                    UDT       411
                                        *                                                                        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
           152  00000000000000000000     CPL      ENTRY.                                                         UDT       422
           153  20522                             LX5    18                                                      UDT       423
                     27425                        PX4    B2,X5                                                   UDT       424
                          76122                   SX1    B2+B2                                                   UDT       425
                               12546              BX5    X4+X6                                                   UDT       426
           154  5100000000 X                      ALLOC  IOL,X1      ALLOC( IOL , 2*LEN )                        UDT       427
           155  76060                             SX0    B6                                                      UDT       428
                     5100000000 X                 ALLOC  UDI,X1      ALLOC( UDI , 2*LEN );  UI = OLD(L.UDI)      UDT       429
           157  63420                             SB4    X2          UDI = O.UDI                                 UDT       430
                     26725                        UX7    B2,X5       N = LEN                                     UDT       431
                          5120000000 X            SA2    O.IOL                                                   UDT       432
           160  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
           161  36647                             IX6    X4+X7                                                   UDT       437
                     43030                        MX0    -IH.CAIHL                                               UDT       438
                          5130000012              SA3    O.SYM                                                   FCC1088    35
           162  5256000000                        SA5    X6+         TI = O.TBL + INDEX                          FCC1088    36
                          6273777776              SB7    X3-1                      (B7) = SYM-1                  FCC1088    37
                                                                                                                 UDT       440
           163  15750                    CPL1     BX7    -X0*X5      IHF = CAIH[TI]                              UDT       441
                     20505                        LX5    59-AP.CRP                                               UDT       442
                          0325000166 +            PL     X5,CPL2     IF ^CR[TI]                                  UDT       443
           164  5130000151 +                      SA3    CMRA                                                    UDT       444
                          20567                   LX5    1+AP.CRP                                                UDT       445
                               12737              BX7    X3+X7       CR[IHF] = 1;  CA[IHF] = -0                  UDT       446
           165  0400000167 +                      EQ     CPL3                                                    UDT       447
                                                                                                                 UDT       448
           166  20571                    CPL2     LX5    AP.CRP-AP.P1P                                           UDT       449
                     0335000176 +                 MI     X5,CPL4     IF P1[TI]     */ DOUBLE / COMPLEX           UDT       450
                               20572              LX5    1+AP.P1P                                                UDT       451
                                                                                                                 UDT       452
           167  0100000203 +             CPL3     RJ     SUI                                                     UDT       453
           170  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
           171  54600                             SA6    A0          [SI] = (IO,USE)[TI] ! SUI( IHF )            FCC0789    28
                     54001                        SA0    A0+B1       SI = SI + 1                                 UDT       459
                          0520000163 +            NZ     B2,CPL1     IF N " 0                                    UDT       460
                                                                                                                 UDT       461
                                        *         SET EXIT CONDITIONS                                            UDT       462
                                                                                                                 UDT       463
           172  5120000000 X                      SA2    O.IOL                                                   UDT       464
                          63560                   SB5    X6                                                      UDT       465
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    12
        CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                   CPL 
  
                               74300              SX3    A0                                                      UDT       466
           173  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
           174  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
           175  0400000152 +                      EQ     CPL                                                     UDT       473
                                                                                                                 UDT       474
                                        *         DOUBLE/COMPLEX ENTRY                                           UDT       475
                                                                                                                 UDT       476
           176  20572                    CPL4     LX5    1+AP.P1P                                                UDT       477
                     0100000203 +                 RJ     SUI                                                     UDT       478
           177  11225                             BX2    X2*X5                                                   UDT       479
                     76410                        SX4    B1                                                      UDT       480
                          12626                   BX6    X2+X6                                                   UDT       481
                               20422              LX4    IH.CAP                                                  UDT       482
           200  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
           201  0400000167 +                      EQ     CPL3                                                    UDT       486
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    13
        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
           202  76655                    SUI0     SX6    B5+B5       U0 = 2*CL                                   UDT       502
                     43202                        MX2    -AP.USEP                                                FCC0789    31
                                                                                                                 UDT       504
           203  0200400203 +             SUI      ROUTINE                                                        UDT       505
           204  22617                             LX6    B1,X7                                                   FCC1088    39
                     63360                        SB3    X6                                                      FCC1088    40
                          57273                   SA2    B7-B3       WORDB = SYM(IH)                             FCC1088    41
                               66510              SB5    B1          CL = 1        */ SET FOR LD ONLY CLASS      FCC1088    42
           205  20262                             LX2    59-P.LDO                                                FCC1088    43
                     0332000202 +                 MI     X2,SUI0     IF LDO[WORDB] */ VAR IS LD ONLY             FCC1088    44
                               43466              MX4    -6                                                      UDT       506
           206  15674                             BX6    -X4*X7      HI = IHF & 77B                              UDT       507
                     56740                        SA7    B4          [UDI] = IHF   */ SET SEARCH TERMINATOR      UDT       508
                          5226000000 C            SA2    O.UDB+X6    CI = UDB(HI)                                UDT       510
           207  76400                             SX4    B0          C0 = 0                                      FCC1088    45
                     0302000213 +                 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
           210  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
           211  73230                             SX2    X3          CI = HL[UDW]                                UDT       521
                     15460                        BX4    -X0*X6                                                  UDT       522
                          0314000210 +            NZ     X4,SUI1     IF CAIH[UDW] " IHF                          UDT       523
                                                                                                                 UDT       524
           212  0550000202 +                      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
           213  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
           214  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
           215  0400000203 +                      EQ     SUI                                                     UDT       538
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    14
        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
           216  00000000000000000000     PBB      ENTRY.                                                         UDT       552
           217  0100000120 +                      CALL   CMR         CHAIN MEMORY REFS TO *UDI*                  UDT       553
                                                                                                                 UDT       554
                                        *         SET INFO IN R1, R2 WORDS OF *BOS*                              UDT       555
                                                                                                                 UDT       556
           220  5130000000 X                      SA3    O.TXT                                                   UDT       557
                          5120000000 X            SA2    L.TXT                                                   UDT       558
           221  5110000000 X                      SA1    L.IOL                                                   UDT       559
                          53530                   SA5    X3          R1 = [O.TXT]                                UDT       560
                               43052              MX0    -IH.IHL                                                 UDT       561
           222  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
           223  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
           224  5130000000 X                      SA3    =XM.BBL                                                 UDT       571
                          37037                   IX0    X3-X7                                                   UDT       572
           225  0320000226 +                      PL     X0,PBB0     M.BBL = MAX( M.BBL , L.TXT + L.IOL )        UDT       573
                          5073000000              SA7    A3+                                                     UDT       574
                                                                                                                 UDT       575
           226  0301000234 +             PBB0     ZR     X1,PBB1     IF L.IOL = 0  */ NO PARAMETER LISTS         UDT       576
                          56010                   ALLOC  TXT,X1                                                  UDT       577
           230  73326                             SX3    X2+B6                                                   UDT       578
                     5120000000 X                 SA2    O.IOL                                                   UDT       579
           231  0100000000 X                      MOVE   X1,X2,X3    MOVE( L.IOL , O.IOL , O.TXT + OLD(L.TXT) )  UDT       580
           232  43600                             MX6    0                                                       UDT       581
                     5160000000 X                 SA6    L.IOL       L.IOL = 0                                   UDT       582
           233  5160000000 X                      SA6    =XPIOL      PIOL = 0                                    UDT       583
                                                                                                                 UDT       584
                                        *         SETUP *BIT* ENTRY, AND DUMP BLOCK TO MASS STORAGE              UDT       585
                                                                                                                 UDT       586
           234  76110                    PBB1     ALLOC  BIT,1       ALLOC( BIT , 1 )                            UDT       587
           236  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
           237  20336                             LX3    -R1.INP                                                 UDT       591
                     73630                        SX6    X3                                                      UDT       592
                          20622                   LX6    BI.FLNP     FLN[BI] = IN[R1]                            UDT       593
           240  5214000004                        SA1    X4+4        R1 = R1 + 4   */ LOOKAT FIRST INSTRUCTION   UDT       594
                          26721                   UX7    B2,X1                                                   UDT       595
           241  6132777771                        SB3    B2-OC.LAB                                               UDT       596
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    15
        PBB - PROCESS BASIC BLOCK FOR OPT = 2                         PBB 
  
                          0530000243 +            NZ     B3,PBB2     IF OC[R1] " OC.LAB                          UDT       597
           242  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
           243  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
           244  26725                             UX7    B2,X5                                                   UDT       606
                     7102777704                   SX0    B2-OC.UJP                                               UDT       607
           245  0300000247 +                      ZR     X0,PBB2A    IF OC[RI] = OC.UJP                          FCC1755X    5
                          7102777707              SX0    B2-OC.JIN                                               FCC1755X    6
           246  0310000252 +                      NZ     X0,PBB3      IF OC[R1L] " OC.JIN                        FCC1755X    7
           247  76010                    PBB2A    SX0    B1                                                      FCC1755X    8
                     20070                        LX0    BI.FJP                                                  UDT       610
                          12606                   BX6    X0+X6       FJ[BI] = 1    */ INDICATE FINAL *UJP*       UDT       611
           250  7272777763                        SX7    X2-12                                                   UDT       612
                          0317000252 +            NZ     X7,PBB3     IF LTXT " 12  */ NOT 2 INSTRUCTION BLOCK    UDT       613
           251  0530000252 +                      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
           252  5150000000 X             PBB3     SA5    L.TXT                                                   UDT       618
                          5130000000 X            SA3    =XL.PTXT                                                UDT       619
           253  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
           254  5130000000 X                      SA3    =XXR                                                    UDT       626
                          0337000256 +            MI     X7,PBB4     IF L.TXT < 2000B                            UDT       627
           255  20371                             LX3    1+BI.FJP                                                UDT       628
                     12636                        BX6    X3+X6       FJ[BI] = XR                                 UDT       629
                                                                                                                 UDT       630
           256  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
           257  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
           260  5274777776                        SA7    X4-1        [O.TXT-1] = BHW(0,OLD(L.BIT),0,L)           UDT       640
                          6120000000              SB2    0           FLCM = 0                                    UDT       641
           261  0100000000 X                      CALL   SMB         SMB( O.TXT , L.TXT )                        UDT       642
           262  5100000000 X                      ADDWRD BIT,X1      ADDWRD( BIT , RIW )                         UDT       643
           263  0400000216 +                      EQ     PBB                                                     UDT       644
                                                                                                                 UDT       645
                                                  ENTRY  F.UDT                                                   UDT       646
                                                                                                                 UDT       647
           264                           F.UDT    END                                                            UDT       648
  
                             65600B CM  STORAGE USED             1840 STATEMENTS      735 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.509 SECONDS         244 REFERENCES
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    16
        SYMBOLIC REFERENCE TABLE. 
  
        ADW=            0   EXTERNAL*       4/17     15/49
        AP.CRP         66   FTNTEXT        11/34     11/37     11/41
        AP.P1P         71   FTNTEXT        11/41     11/43     12/12
        AP.USEP        72   FTNTEXT        13/17     13/53
        ATS=            0   EXTERNAL*       4/30      6/22      9/13     11/17     11/19     14/38     14/48
        AUT             0   PROGRAM*        4/13 E    4/13 L    7/57      8/08
        AUTA           34   PROGRAM*        5/15      6/06 L
        AUTB          102   PROGRAM*        7/15      8/10 L
        AUTC          103   PROGRAM*        7/42      8/01      8/11 L
        AUT0            4   PROGRAM*        4/16      4/18 L
        AUT1           13   PROGRAM*        4/47 L    5/01
        AUT10          73   PROGRAM*        7/49 L    7/54
        AUT2           23   PROGRAM*        5/24 L    5/41      5/52
        AUT3           31   PROGRAM*        5/50 L    6/04
        AUT4           35   PROGRAM*        5/24      6/12 L
        AUT5           52   PROGRAM*        6/43 L    6/53      7/05
        AUT6           56   PROGRAM*        6/52      6/56 L
        AUT9           71   PROGRAM*        7/39      7/42 L
        BH.BIP         44                  15/43
        BH.LENP         0 
        BI.FJP         70   FTNTEXT        15/16     15/21     15/34
        BI.FLNP        22   FTNTEXT        14/54
        BI.ILP         71   FTNTEXT        15/04
        BI.LJPP        67   FTNTEXT        15/21
        BT.LENP         0 
        BVL             2   BVINFO          6/19 S    7/14
        B1=1            0 
        CMR           120   PROGRAM*        9/10 E    9/10 L   14/14
        CMRA          151   PROGRAM*       10/36     10/41 L   11/36
        CMR0          117   PROGRAM*        9/07 L    9/31
        CMR1          126   PROGRAM*        9/27 L    9/32      9/44     10/30
        CMR2          135   PROGRAM*        9/52 L   10/39
        CMR3          137   PROGRAM*       10/03 L   10/09
        CMR4          142   PROGRAM*        9/53     10/15 L
        CMR5          144   PROGRAM*        9/50     10/11     10/26 L   10/35
        CMR6          146   PROGRAM*        9/41     10/34 L
        CPL           152   PROGRAM*       11/12 E   11/12 L   12/08
        CPL1          163   PROGRAM*       11/33 L   11/52
        CPL2          166   PROGRAM*       11/35     11/41 L
        CPL3          167   PROGRAM*       11/39     11/45 L   12/21
        CPL4          176   PROGRAM*       11/42     12/12 L
        D.LDSTL         2   FTNTEXT         9/16
        D.LDSTP        42   FTNTEXT         9/18
        FSV           104   PROGRAM*        7/18      7/43      8/06      8/25 L    8/52
        FSV1          111   PROGRAM*        8/37 L    8/45      8/50
        FSV2          113   PROGRAM*        8/40      8/43 L
        FSV3          115   PROGRAM*        8/44      8/47 L
        FUNTYPE         0   EXTERNAL*       7/36
        F.UDT         264   PROGRAM*       15/52 E   15/54 L
        IH.CAIHL       44   FTNTEXT         9/20     11/28
        IH.CAP         22   FTNTEXT        12/17
        IH.IHL         22   FTNTEXT        14/22
        IH.RFP         44   FTNTEXT         9/37
        I.CRP          22                   4/10 D    4/49      5/16
        I.GL       100000   FTNTEXT         9/43
        I.IHL          22                   4/08 D
        I.IHP          36                   4/08 D    4/52      5/20
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    17
        SYMBOLIC REFERENCE TABLE. 
  
        I.UIL          22                   4/11 D
        I.UIP           0                   4/11 D
        L.BIT           0   EXTERNAL*      14/23
        L.BST           0   EXTERNAL* 
        L.BVT           0   EXTERNAL* 
        L.IOL           0   EXTERNAL*      12/06 S   14/20     14/43 S
        L.PTXT          0   EXTERNAL*      15/25
        L.RND           0   EXTERNAL* 
        L.RXI           0   EXTERNAL* 
        L.TXT           0   EXTERNAL*       9/11     14/19     15/24
        L.UDI           0   EXTERNAL*       4/14      4/26      9/08 S   12/03 S
        MVE=            0   EXTERNAL*      14/41
        M.BBL           0   EXTERNAL*      14/32
        N.FP            0   EXTERNAL*       7/56
        N.VAR           1   BVINFO          4/29 S    6/12      8/26
        OC.JIN         70   FTNTEXT        15/13
        OC.LAB          6   FTNTEXT        14/57
        OC.UJP         73   FTNTEXT        15/11
        O.BIT           0   EXTERNAL*       7/26
        O.BST           0   EXTERNAL* 
        O.BVT           0   EXTERNAL*       8/27
        O.IOL           0   EXTERNAL*      11/22     11/56     14/40
        O.RND           0   EXTERNAL* 
        O.RXI           0   EXTERNAL* 
        O.SYM          12                   1/36 D    5/13      9/22     11/29
        O.TXT           0   EXTERNAL*       9/14     14/18     14/49
        O.UDB           0   //              9/52     13/29
        O.UDI           0   EXTERNAL*       5/12      6/24      8/28
        PBB           216   PROGRAM*       14/13 E   14/13 L   15/50
        PBB0          226   PROGRAM*       14/34     14/37 L
        PBB1          234   PROGRAM*       14/37     14/48 L
        PBB2          243   PROGRAM*       15/01     15/07 L
        PBB2A         247   PROGRAM*       15/12     15/15 L
        PBB3          252   PROGRAM*       15/14     15/19     15/20     15/24 L
        PBB4          256   PROGRAM*       15/33     15/37 L
        PIOL            0   EXTERNAL*      14/44 S
        P.COM          16   FTNTEXT         5/34      5/36      6/06
        P.LDO          11   FTNTEXT         9/49     13/24
        P.LOCF          4   FTNTEXT         5/22      5/34
        RCV             3   BVINFO          7/08 S    8/05 S
        R1.INP         36   FTNTEXT        10/27     14/52
        SHL             0   EXTERNAL*       5/04
        SMB             0   EXTERNAL*      15/48
        SUI           203   PROGRAM*       11/45     12/13     13/19 L   13/57
        SUI0          202   PROGRAM*       13/16 L   13/25     13/44
        SUI1          210   PROGRAM*       13/36 L   13/42
        SUI2          213   PROGRAM*       13/31     13/50 L
        TEST            0   FTNTEXT         4/19 F
        UA.CAL         22                  10/41
        UA.CAP         22                  10/41
        UA.CRP         66                   4/39      4/49     10/41
        UA.HLP         44                  10/06     10/17     13/39     13/49
        UD.BMIP        24                   5/47
        UD.CMP         23                   5/45      8/10
        UD.COMP        50                   5/36      6/06      6/40      6/41      6/54      8/11
        UD.CRP         22                   5/45      8/10
        UD.FPP         53                   6/06      8/11
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 15.56.13.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        UD.ISTP        66                   6/31
        VL              0   BVINFO          6/17 S
        XR              0   EXTERNAL*      15/32
        Z.BIT           0   EXTERNAL*      14/48     15/49
        Z.BST           0   EXTERNAL* 
        Z.BVT           0   EXTERNAL*       6/22
        Z.IOL           0   EXTERNAL*      11/17
        Z.RXI           0   EXTERNAL* 
        Z.TXT           1                   1/36 D
        Z.UDI           0   EXTERNAL*       4/17      4/30      9/13     11/19
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      407              IDENT  READRL 
                        407                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RRL            0+           MACWDS           5+           O.EMRB          10+ 
                                        RLI              0+           MACTYP           6+           RRL            250+ 
                                        O.MAC            3+           MACINS           7+           EMR            313+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        SBUF      CBUF      NIRN      F.RLST    MVE=
                                        RBUF      F.MACD    RDW=      F.RDT 
  
  
  
  
                                                  IDENT  READRL                                                  READRL      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                                  PASS2TM                                                        READRL      5
             0                           B=RRL    RPVDEF                                                         READRL      6
  
  
  
                                        **        READRL - RLIST FILE READ ROUTINES                              READRL      8
                                                                                                                 READRL      9
                                 200     L.RLB    EQU    200B        LENGTH OF INTERMEDIATE RLIST BUFFER         READRL     10
                                                                                                                 READRL     11
             0  00000000000000000000     RLI      ENTRY.             DESCRIPTOR AND RLIST WORDS                  READRL     12
             1                     2              BSS    2                                                       READRL     13
                                                                                                                 READRL     14
             3  00000000000000000000     O.MAC    ENTRY. 0           ADDRESS OF MACRO REFERENCE                  READRL     15
  
  
  
                                        *         THE SIZE OF *EMRB* MUST BE SET LARGE ENOUGH AS TO ACCOMIDATE   READRL     17
                                        *                A) THE LARGEST MACRO IN *MACROX*                        READRL     18
                                        *                B) A *IXFN* MACRO WITH 7 DIMENSIONS ( 7*4+... )         READRL     19
                                        *                C) I/O LIST DEF MACROS OF UP TO 30D WORDS.              READRL     20
                                        *         DO NOT DISTURB THE CELLS BETWEEN F.MAC AND BP .                READRL     21
                                                                                                                 READRL     22
             4  00000000000000000000     F.MAC    CON    0           LWA+1 OF MACRO EXPANSION                    READRL     23
             5  00000000000000000000     MACWDS   ENTRY. 0           - ( NUMBER OF WORDS REMAINING )             READRL     24
             6  00000000000000000000     MACTYP   ENTRY.             MACRO TYPE                                  READRL     25
             7  00000000000000000000     MACINS   ENTRY.             NUMBER OF INSTRUCTIONS IN MACRO             READRL     26
                                                  ENTRY  O.EMRB                                                  READRL     27
            10                    36     O.EMRB   BSS    30D        *EMR* EXPANSION BUFFER ( MUST PRECEED *RLB*) READRL     28
            46                   200     RLB      BSS    L.RLB       RLIST BUFFER                                READRL     29
           246                           RLBL     BSS    0           LWA+1 OF THE BUFFER                         READRL     30
           246  00000000000000000000     BP       CON    0           RLB POINTER ( NEGATIVE INDEX )              READRL     31
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     2
  
  
           247  00000000000000000000     MB       CON    0           MACRO BIAS                                  READRL     32
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     3
        RRL - READ RLIST FILE                                         RRL 
  
                                        **        RRL - READ NEXT *IL* INSTRUCTION OR RMACRO FROM RLIST FILE     READRL     34
                                        *                                                                        READRL     35
                                        *         EXIT   (RLI - RLI+2) = DESCRIPTOR, R1 AND R2 WORDS OF NEXT     READRL     36
                                        *                *IL* INSTRUCTION, OR IN THE CASE OF A MACRO -           READRL     37
                                        *                (RLI+1) = MACRO HEADER WORD                             READRL     38
                                        *                (O.MAC) = FWA OF THE MACRO IN *EMRB*                    READRL     39
                                                                                                                 READRL     40
           250  00000000000000000000     RRL      ENTRY.                                                         READRL     41
                                                  QUAL   CODE                                                    READRL     42
           251  0100000275 +                      RJ     ROW         READ A WORD                                 READRL     43
           252  26527                             UX5    B2,X7                                                   READRL     44
                     5170000001 +                 SA7    RLI+1                                                   READRL     45
           253  0620000266 +                      PL     B2,RRL3     IF NOT A MACRO                              READRL     46
                                                                                                                 READRL     47
                                        *         MACRO - SEE IF IS CONTAINED IN THE BUFFER                      READRL     48
                                                                                                                 READRL     49
                          5110000246 +            SA1    BP                                                      READRL     50
           254  21536                             AX5    R1.INP      POSITION WORD COUNT                         READRL     51
                     7261000245 +                 SX6    RLBL-1+X1                                               READRL     52
           255  5160000003 +                      SA6    O.MAC       SET ADDRESS OF MACRO REFERENCE              READRL     53
                          36751                   IX7    X5+X1       WDS IN MACRO - WDS LEFT IN BUFFER           READRL     54
                               54710              SA7    A1                                                      READRL     55
           256  0337000250 +                      MI     X7,RRL      IF MACRO IS IN THE BUFFER                   READRL     56
                          0307000250 +            ZR     X7,RRL                                                  READRL     57
           257  5170000247 +                      SA7    MB          SAVE MACRO BIAS                             READRL     58
                          7241777776              SX4    X1-1                                                    READRL     59
           260  14144                             BX1    -X4         N.WDS OF MACRO IN BUFFER                    READRL     60
                     7264000046 +                 SX6    RLB+X4      MACRO START ADDRESS                         READRL     61
                               54660              SA6    A6          RESET O.MAC                                 READRL     62
           261  7224000246 +                      MOVE   X1,RLBL+X4,X6     MOVE MACRO DOWN                       READRL     63
           263  0100000305 +                      RJ     RFB         REFILL BUFFER                               READRL     64
           264  5110000246 +                      SA1    BP                                                      READRL     65
                          5120000247 +            SA2    MB          ADJUST BP TO ACCOUNT FOR PARTIAL MACRO      READRL     66
           265  36621                             IX6    X2+X1       AT THE BEGINNING OF THE BUFFER              READRL     67
                     54610                        SA6    A1                                                      READRL     68
                          0400000250 +            EQ     RRL                                                     READRL     69
                                                                                                                 READRL     70
                                        *         *IL* INSTRUCTION - SET DESCR IN OUTPUT BUFFER AND GET          READRL     71
                                        *         SECOND WORD FOR TYPE 3 ENTRIES.                                READRL     72
                                                                                                                 READRL     73
           266  5112000000 X             RRL3     SA1    =XF.RDT+B2                                              READRL     74
                          43072                   MX0    -D.TYL                                                  READRL     75
                               10611              BX6    X1                                                      READRL     76
           267  21172                             AX1    D.TYP                                                   READRL     77
                     55671                        SA6    A7-B1       RLI = DESCR(OC)                             READRL     78
                          12401                   BX4    X0+X1                                                   READRL     79
                               37777              IX7    X7-X7                                                   READRL     80
           270  73341                             SX3    X4+B1                                                   READRL     81
                     54771                        SA7    A7+B1       [RLI+2] = 0                                 READRL     82
                          0313000250 +            NZ     X3,RRL      IF NOT TYPE 3                               READRL     83
           271  0100000275 +                      RJ     ROW                                                     READRL     84
           272  5170000002 +                      SA7    RLI+2       STORE THE SECOND WORD                       READRL     85
                          0400000250 +            EQ     RRL                                                     READRL     86
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     4
        RRL - READ RLIST FILE                                         ROW                 CODE
  
                                        **        ROW - READ ONE WORD OF RLIST FROM MACRO BUFFER/*RLB*           READRL     88
                                        *         EXIT   (X3) = (X7) = WORD READ                                 READRL     89
                                                                                                                 READRL     90
           273  5120000004 +             ROW0     SA2    F.MAC                                                   READRL     91
                          73611                   SX6    X1+B1       ADVANCE BUFFER POINTER                      READRL     92
                               36421              IX4    X2+X1                                                   READRL     93
           274  53340                             SA3    X4          FETCH WORD                                  READRL     94
                     10733                        BX7    X3                                                      READRL     95
                          5061000000              SA6    A1+0                                                    READRL     96
           275  0200400275 +             ROW      ROUTINE                                                        READRL     97
           276  5110000005 +                      SA1    MACWDS                                                  READRL     98
                          5120000246 +            SA2    BP                                                      READRL     99
           277  0311000273 +                      NZ     X1,ROW0     IF READING FROM A MACRO EXPANSION           READRL    100
                          5232000246 +            SA3    RLBL+X2     FETCH WORD                                  READRL    101
           300  73621                             SX6    X2+B1       ADVANCE BUFFER POINTER                      READRL    102
                     10733                        BX7    X3                                                      READRL    103
                          5062000000              SA6    A2+0                                                    READRL    104
           301  0332000275 +                      MI     X2,ROW      IF WORD WAS FROM THE BUFFER                 READRL    105
                          0100000305 +            RJ     RFB         REFILL THE BUFFER                           READRL    106
           302  5120000246 +                      SA2    BP                                                      READRL    107
                          5232000246 +            SA3    RLBL+X2                                                 READRL    108
           303  73621                             SX6    X2+B1       ADVANCE BUFFER INDEX                        READRL    109
                     10733                        BX7    X3                                                      READRL    110
                          54620                   SA6    A2                                                      READRL    111
           304  0400000275 +                      EQ     ROW                                                     READRL    112
  
  
  
                                        **        RFB - REFILL BUFFER                                            READRL    114
                                                                                                                 READRL    115
           305  0200400305 +             RFB      ROUTINE                                                        READRL    116
           306  7160777577                        SX6    -L.RLB                                                  READRL    117
                          5160000246 +            SA6    BP                                                      READRL    118
           307  14466                             BX4    -X6                                                     READRL    119
                     6266000246 +                 READW  =XF.RLST,RLBL+X6,X4  REFILL BUFFER                      READRL    120
           311  0400000305 +                      EQ     RFB                                                     READRL    121
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     5
        EMR - EXPAND MACRO REFERENCE                                  EMR                 CODE
  
                                        **        EMR - EXPAND MACRO REFERENCE                                   READRL    123
                                        *                                                                        READRL    124
                                        *         ENTRY  (X1) = FWA OF MACRO  REFERENCE                          READRL    125
                                        *                                                                        READRL    126
                                        *         EXIT   (MACWDS) = N.WORDS IN MACRO                             READRL    127
                                        *                (MACTYP) = MACRO TYPE ( FROM *ENDR* CARD )              READRL    128
                                        *                (MACINS) = N.*IL* INSTRUCTION IN MACRO                  READRL    129
                                        *                (F.MAC) = LWA+1 OF MACRO EXPANSION                      READRL    130
                                        *                THE R1 AND R2 WORDS OF THE *IL* INSTRUCTIONS IN THE     READRL    131
                                        *                MACRO ARE STORED IN *EMRB*.                             READRL    132
                                                                                                                 READRL    133
                                         OC       MICRO  1,,/B2/     REGISTER USEAGE                             READRL    134
                                         SY       MICRO  1,,/B3/                                                 READRL    135
                                         RN       MICRO  1,,/B4/                                                 READRL    136
                                         CA       MICRO  1,,/B5/                                                 READRL    137
                                         IR       MICRO  1,,/B6/                                                 READRL    138
                                                                                                                 READRL    139
                                                  EXT    SBUF,RBUF,CBUF,F.MACD                                   READRL    140
  
  
           312  7077000001               EMR0     SX7    A7+1        (F.MAC) = LWA+1 OF MACRO EXPANSION          READRL    142
                          5170000004 +            SA7    F.MAC                                                   READRL    143
                                                                                                                 READRL    144
                                                  QUAL                                                           READRL    145
           313  00000000000000000000     EMR      ENTRY.                                                         READRL    146
                                                  QUAL   CODE                                                    READRL    147
           314  53110                             SA1    X1          FIRST WORD OF THE MACRO REF                 READRL    148
                     26221                        UX2    "OC",X1                                                 READRL    149
                          5140000000 X            SA4    =XNIRN      NEXT INTERMEDIATE R-NUMBER                  READRL    150
           315  43066                             MX0    -6                                                      READRL    151
                     67202                        S"OC"  -"OC"       MAKE OPCODE POSITIVE                        READRL    152
                          5132000000 X            SA3    F.MACD+"OC" (X3) = MACRO DESCRIPTOR WORD                READRL    153
           316  6264677776                        S"IR"  X4-100001B  (B6) = BASE OF INTERMEDIATE R NUMBERS       READRL    154
                          53530                   SA5    X3          (X5) = MACRO TEXT WORD                      READRL    155
                               21322              AX3    18                                                      READRL    156
           317  12703                             BX7    X0+X3       - WORD COUNT                                READRL    157
                     21306                        AX3    6                                                       READRL    158
                          5170000005 +            SA7    MACWDS                                                  READRL    159
           320  15730                             BX7    -X0*X3                                                  READRL    160
                     21306                        AX3    6                                                       READRL    161
                          54771                   SA7    A7+B1       MACRO TYPE                                  READRL    162
                               15730              BX7    -X0*X3                                                  READRL    163
           321  63770                             SB7    X7          (B7) = NUMBER OF WORDS LEFT IN MACRO SKELTO READRL    164
                     54771                        SA7    A7+B1       NUMBER OF INSTRUCTIONS                      READRL    165
                          21306                   AX3    6                                                       READRL    166
                               15230              BX2    -X0*X3      NUMBER OF GENERATED R NUMBERS               READRL    167
           322  21306                             AX3    6                                                       READRL    168
                     36624                        IX6    X2+X4       ADVANCE RNUMBER COUNTER                     READRL    169
                          54640                   SA6    A4                                                      READRL    170
                                                                                                                 READRL    171
                                        *         UNPACK MACRO PARAMS TO THEIR BUFFERS                           READRL    172
                                                                                                                 READRL    173
                               15430              BX4    -X0*X3                                                  READRL    174
           323  43600                             MX6    0                                                       READRL    175
                     54111                        SA1    A1+B1                                                   READRL    176
                          0304000331 +            ZR     X4,EMR2     IF NO SYM PARAMS                            READRL    177
           324  5160000000 X                      SA6    SBUF                                                    READRL    178
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     6
        EMR - EXPAND MACRO REFERENCE                                  EMR                 CODE
  
                          43736                   MX7    -RM.IHL                                                 READRL    179
                               63440              SB4    X4                                                      READRL    180
           325  6120000036                        SB2    RM.IHL                                                  READRL    181
           326  15617                    EMR1     BX6    -X7*X1                                                  READRL    182
                     54661                        SA6    A6+B1       STORE SYM PARAMS                            READRL    183
                          22221                   LX2    B2,X1                                                   READRL    184
                               54111              SA1    A1+B1       NEXT MACRO REF WORD                         READRL    185
           327  6144777775                        SB4    B4-2                                                    READRL    186
                          15627                   BX6    -X7*X2                                                  READRL    187
                               54661              SA6    A6+B1                                                   READRL    188
           330  0704000326 +                      GT     B4,EMR1                                                 READRL    189
                                                                                                                 READRL    190
           331  21306                    EMR2     AX3    6                                                       READRL    191
                     76610                        SX6    B1                                                      READRL    192
                          43754                   MX7    -RM.RIL                                                 READRL    193
                               16403              BX4    -X3+X0                                                  READRL    194
           332  5160000001 X                      SA6    RBUF+1                                                  READRL    195
                          6130777774              SB3    -3                                                      READRL    196
           333  63440                             SB4    X4                                                      READRL    197
                     6120000020                   SB2    RM.RIL                                                  READRL    198
           334  0643000340 +                      GE     B4,B3,EMR4  IF -N \ -3                                  READRL    199
           335  15617                    EMR3     BX6    -X7*X1                                                  READRL    200
                     23121                        AX1    B2,X1                                                   READRL    201
                          54661                   SA6    A6+B1                                                   READRL    202
                               15617              BX6    -X7*X1                                                  READRL    203
           336  54661                             SA6    A6+B1                                                   READRL    204
                     23221                        AX2    B2,X1                                                   READRL    205
                          54111                   SA1    A1+B1                                                   READRL    206
                               67443              SB4    B4-B3                                                   READRL    207
           337  15627                             BX6    -X7*X2                                                  READRL    208
                     54661                        SA6    A6+B1                                                   READRL    209
                          0743000335 +            LT     B4,B3,EMR3                                              READRL    210
                                                                                                                 READRL    211
           340  0244000344 +             EMR4     JP     EMR5+B4                                                 READRL    212
           341  15617                   +         BX6    -X7*X1                                                  READRL    213
                     54661                        SA6    A6+B1                                                   READRL    214
                          23121                   AX1    B2,X1                                                   READRL    215
           342  15617                   +         BX6    -X7*X1                                                  READRL    216
                     54661                        SA6    A6+B1                                                   READRL    217
                          23121                   AX1    B2,X1                                                   READRL    218
           343  15617                   +         BX6    -X7*X1                                                  READRL    219
                     54111                        SA1    A1+B1                                                   READRL    220
                          46000                   NO                                                             READRL    221
                               54661              SA6    A6+B1                                                   READRL    222
                                                                                                                 READRL    223
           344  21306                    EMR5     AX3    6                                                       READRL    224
                     16403                        BX4    -X3+X0                                                  READRL    225
                          0304000350 +            ZR     X4,EMR6     IF NO PARAMETRIC CONS / FINISHED            READRL    226
           345  43752                             MX7    -RM.CAL                                                 READRL    227
                     63440                        SB4    X4                                                      READRL    228
                          43600                   MX6    0                                                       READRL    229
           346  6120000022                        SB2    RM.CAL                                                  READRL    230
                          5160000000 X            SA6    CBUF                                                    READRL    231
           347  0643000340 +                      GE     B4,B3,EMR4  IF -N \ -3                                  READRL    232
                          0400000335 +            EQ     EMR3                                                    READRL    233
                                                                                                                 READRL    234
                                        **        EXPAND THE MACRO REFERENCE                                     READRL    235
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     7
        EMR - EXPAND MACRO REFERENCE                                  EMR                 CODE
  
                                        *         X5 = MACRO TEXT WORD , B7 = NUMBER OF WORDS LEFT , A7 = STORE  READRL    236
                                                                                                                 READRL    237
           350  6130000000 X             EMR6     S"SY"  SBUF        INITIALIZE REGISTERS FOR THE EXPANSION      READRL    238
                          6140000000 X            S"RN"  RBUF                                                    READRL    239
           351  43054                             MX0    -R1.RIL                                                 READRL    240
                     6150000000 X                 S"CA"  CBUF                                                    READRL    241
                               43652              MX6    -R1.CAL                                                 READRL    242
                                                                                                                 READRL    243
           352  26425                    EMR7     UX4    "OC",X5                                                 READRL    244
                     5112000000 X                 SA1    F.RDT+"OC"  FETCH DESCRIPTOR                            READRL    245
                                                  LX1    58-D.TYP                                                READRL    246
                               36211              IX2    X1+X1                                                   READRL    247
           353  0331000372 +                      MI     X1,EMR15    IF TYPES 3 OR 4                             READRL    248
                                                                                                                 READRL    249
                                        *         EXPAND A TYPE 1 RLIST INST                                     READRL    250
                                                                                                                 READRL    251
                          15350                   BX3    -X0*X5      RI                                          READRL    252
                               20554              LX5    -R1.RIL                                                 READRL    253
           354  73436                             SX4    X3+"IR"                                                 READRL    254
                     15150                        BX1    -X0*X5      RK                                          READRL    255
                          0335000356 +            MI     X5,EMR8     IF A GENERATED R                            READRL    256
           355  53434                             SA4    "RN"+X3                                                 READRL    257
           356  27724                    EMR8     PX7    "OC",X4                                                 READRL    258
                     0332000365 +                 MI     X2,EMR12    IF TYPE 2                                   READRL    259
                               20554              LX5    -R1.RIL                                                 READRL    260
           357  73216                             SX2    X1+"IR"                                                 READRL    261
                     0335000360 +                 MI     X5,EMR9     IF A GENERATED R                            READRL    262
                               53214              SA2    "RN"+X1                                                 READRL    263
           360  15350                    EMR9     BX3    -X0*X5      EXTRACT RJ                                  READRL    264
                     20554                        LX5    -R1.RIL                                                 READRL    265
                          73436                   SX4    "IR"+X3                                                 READRL    266
                               20220              LX2    R1.RKP                                                  READRL    267
           361  12727                             BX7    X2+X7                                                   READRL    268
                     0335000362 +                 MI     X5,EMR10    IF A GENERATED R                            READRL    269
                               53434              SA4    "RN"+X3                                                 READRL    270
           362  54551                    EMR10    SA5    A5+B1       NEXT TEXT WORD                              READRL    271
                     20440                        LX4    R1.RJP                                                  READRL    272
                          67771                   SB7    B7-B1       I = I - 1                                   READRL    273
                               12747              BX7    X4+X7                                                   READRL    274
           363  54771                             SA7    A7+B1                                                   READRL    275
                     0707000352 +                 GT     B7,EMR7     IF MORE TO PROCESS                          READRL    276
           364  0400000312 +                      EQ     EMR0                                                    READRL    277
                                                                                                                 READRL    278
                                        *         EXPAND A TYPE 2 REFERENCE                                      READRL    279
                                                                                                                 READRL    280
           365  43257                    EMR12    MX2    -R1.SOL+1                                               READRL    281
                     15452                        BX4    -X2*X5      EXTRACT *SO* FIELD                          READRL    282
                          20556                   LX5    -R1.SOL                                                 READRL    283
                               15356              BX3    -X6*X5      EXTRACT CA                                  READRL    284
           366  20420                             LX4    R1.SOP                                                  READRL    285
                     0325000367 +                 PL     X5,EMR13    IF A CON                                    READRL    286
                               53335              SA3    "CA"+X3     PARAMETRIC VALUE                            READRL    287
           367  20336                    EMR13    LX3    R1.CAP                                                  READRL    288
                     54551                        SA5    A5+B1       NEXT TEXT WORD                              READRL    289
                          12474                   BX4    X7+X4                                                   READRL    290
                               67771              SB7    B7-B1       I = I - 1                                   READRL    291
           370  36734                             IX7    X3+X4                                                   READRL    292
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     8
        EMR - EXPAND MACRO REFERENCE                                  EMR                 CODE
  
                     54771                        SA7    A7+B1                                                   READRL    293
                          0707000352 +            GT     B7,EMR7     IF MORE TO PROCESS                          READRL    294
           371  0400000312 +                      EQ     EMR0                                                    READRL    295
                                                                                                                 READRL    296
                                        *         EXPAND A TYPE 3 REFERENCE                                      READRL    297
                                        *         MACRO SKELTON WORD IS - 12/OC,3/SY,12/CA,1/CAF,16/RF,16/RI     READRL    298
                                                                                                                 READRL    299
           372  0332000403 +             EMR15    MI     X2,EMR19    IF TYPE 4                                   READRL    300
                          15350                   BX3    -X0*X5      RI                                          READRL    301
                               20554              LX5    -R1.RIL                                                 READRL    302
           373  73236                             SX2    "IR"+X3                                                 READRL    303
                     0335000374 +                 MI     X5,EMR16    IF A GENERATED R                            READRL    304
                               53234              SA2    "RN"+X3     GET PARAMETRIC RI                           READRL    305
           374  15350                    EMR16    BX3    -X0*X5      RF                                          READRL    306
                     21455                        AX4    45                                                      READRL    307
                          27722                   PX7    "OC",X2                                                 READRL    308
                               20554              LX5    -R1.RIL                                                 READRL    309
           375  73236                             SX2    "IR"+X3                                                 READRL    310
                     0335000376 +                 MI     X5,EMR17    IF A GENERATED R                            READRL    311
                               53234              SA2    "RN"+X3                                                 READRL    312
           376  20244                    EMR17    LX2    IH.RFP                                                  READRL    313
                     53443                        SA4    "SY"+X4     FETCH SY VALUE                              READRL    314
                          20557                   LX5    2*R1.RIL+15       CA TO TOP BIT                         READRL    315
                               67771              SB7    B7-B1       I = I - 1                                   READRL    316
           377  21557                             AX5    2*R1.RIL+15       SIGN EXTEND CA                        READRL    317
                     54771                        SA7    A7+B1       STORE FIRST WORD                            READRL    318
                          12324                   BX3    X2+X4                                                   READRL    319
                               20573              LX5    -1                                                      READRL    320
           400  15156                             BX1    -X6*X5                                                  READRL    321
                     0325000401 +                 PL     X5,EMR18    IF AN ACTUAL CA                             READRL    322
                               53115              SA1    "CA"+X1                                                 READRL    323
           401  54551                    EMR18    SA5    A5+B1       NEXT TEXT WORD                              READRL    324
                     20122                        LX1    IH.CAP                                                  READRL    325
                          12713                   BX7    X1+X3                                                   READRL    326
                               54771              SA7    A7+B1       STORE SECOND WORD                           READRL    327
           402  0707000352 +                      GT     B7,EMR7     IF MORE TO PROCESS                          READRL    328
                          0400000312 +            EQ     EMR0                                                    READRL    329
                                                                                                                 READRL    330
                                        *         EXPAND A TYPE 4 REFERENCE                                      READRL    331
                                                                                                                 READRL    332
           403  53153                    EMR19    SA1    "SY"+X5     IH VALUE                                    READRL    333
                     20536                        LX5    -R1.CAP                                                 READRL    334
                          53455                   SA4    "CA"+X5     GET FORMAL CA ( ALWAYS )                    READRL    335
                               27321              PX3    "OC",X1                                                 READRL    336
           404  67771                             SB7    B7-B1       I = I - 1                                   READRL    337
                     20436                        LX4    R1.CAP                                                  READRL    338
                          54551                   SA5    A5+B1       NEXT TEXT WORD                              READRL    339
                               12743              BX7    X4+X3       COMBINE FIELDS                              READRL    340
           405  5077000001                        SA7    A7+1                                                    READRL    341
                          0707000352 +            GT     B7,EMR7     IF MORE TO PROCESS                          READRL    342
           406  0400000312 +                      EQ     EMR0                                                    READRL    343
                                                                                                                 READRL    344
           407                                    END                                                            READRL    345
  
                             65100B CM  STORAGE USED              450 STATEMENTS      578 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.453 SECONDS         153 REFERENCES
  
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE     9
        SYMBOLIC REFERENCE TABLE. 
  
        BP            246   PROGRAM*        1/57 L    3/17      3/32      4/12      4/20      4/33 S
        B1=1            0 
        CBUF            0   EXTERNAL*       5/18 X    6/53 S    7/06
        D.TYL           2   FTNTEXT         3/42
        D.TYP          72   FTNTEXT         3/44
        EMR           313   PROGRAM*        5/25 E    5/25 L
        F.MAC           4   PROGRAM*        1/49 L    4/04      5/22 S
        F.MACD          0   EXTERNAL*       5/18 X    5/32
        F.RDT           0   EXTERNAL*       3/41      7/10
        F.RLST          0   EXTERNAL*       4/35
        IH.CAP         22   FTNTEXT         8/33
        IH.RFP         44   FTNTEXT         8/21
        L.RLB         200                   1/34 D    1/55      4/32
        MACINS          7   PROGRAM*        1/52 E    1/52 L
        MACTYP          6   PROGRAM*        1/51 E    1/51 L
        MACWDS          5   PROGRAM*        1/50 E    1/50 L    4/11      5/38 S
        MB            247   PROGRAM*        2/01 L    3/25 S    3/33
        MVE=            0   EXTERNAL*       3/30
        NIRN            0   EXTERNAL*       5/29
        O.EMRB         10   PROGRAM*        1/53 E    1/54 L
        O.MAC           3   PROGRAM*        1/39 E    1/39 L    3/20 S
        O.SYM          12                   1/27 D
        RBUF            0   EXTERNAL*       5/18 X    6/17 S    7/04
        RDW=            0   EXTERNAL*       4/35
        RLB            46   PROGRAM*        1/55 L    3/28
        RLBL          246   PROGRAM*        1/56 L    3/19      3/30      4/14      4/21      4/35
        RLI             0   PROGRAM*        1/36 E    1/36 L    3/12 S    3/52 S
        RM.CAL         22   FTNTEXT         6/49      6/52
        RM.IHL         36   FTNTEXT         6/01      6/03
        RM.RIL         20   FTNTEXT         6/15      6/20
        RRL           250   PROGRAM*        3/08 E    3/08 L    3/23      3/24      3/36      3/50      3/53
        R1.CAL         22   FTNTEXT         7/07
        R1.CAP         36   FTNTEXT         7/53      8/42      8/46
        R1.INP         36   FTNTEXT         3/18
        R1.RIL         20   FTNTEXT         7/05      7/18      7/25      7/30      8/10      8/17      8/23      8/25
        R1.RJP         40   FTNTEXT         7/37
        R1.RKP         20   FTNTEXT         7/32
        R1.SOL         16   FTNTEXT         7/46      7/48
        R1.SOP         20   FTNTEXT         7/50
        SBUF            0   EXTERNAL*       5/18 X    5/57 S    7/03
        Z.TXT           1                   1/27 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  CODE
  
  
        EMR0          312   PROGRAM*        5/21 L    7/42      8/03      8/37      8/51
        EMR1          326   PROGRAM*        6/04 L    6/11
        EMR10         362   PROGRAM*        7/34      7/36 L
        EMR12         365   PROGRAM*        7/24      7/46 L
        EMR13         367   PROGRAM*        7/51      7/53 L
        EMR15         372   PROGRAM*        7/13      8/08 L
        EMR16         374   PROGRAM*        8/12      8/14 L
        EMR17         376   PROGRAM*        8/19      8/21 L
        EMR18         401   PROGRAM*        8/30      8/32 L
1       READRL - RLIST FILE READ ROUTINES                             COMPASS 3.7-871.     24/05/02. 15.56.15.      PAGE    10
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        EMR19         403   PROGRAM*        8/08      8/41 L
        EMR2          331   PROGRAM*        5/56      6/13 L
        EMR3          335   PROGRAM*        6/22 L    6/32      6/55
        EMR4          340   PROGRAM*        6/21      6/34 L    6/54
        EMR5          344   PROGRAM*        6/34      6/46 L
        EMR6          350   PROGRAM*        6/48      7/03 L
        EMR7          352   PROGRAM*        7/09 L    7/41      8/02      8/36      8/50
        EMR8          356   PROGRAM*        7/21      7/23 L
        EMR9          360   PROGRAM*        7/27      7/29 L
        RFB           305   PROGRAM*        3/31      4/19      4/31 L    4/36
        ROW           275   PROGRAM*        3/10      3/51      4/10 L    4/18      4/25
        ROW0          273   PROGRAM*        4/04 L    4/13
        RRL3          266   PROGRAM*        3/13      3/41 L
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1765              IDENT  MACROX 
                       1765                       END    FTN22
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        MACTEXT   LOCAL           0      1437 
                                        MACDESC   LOCAL        1437       326 
  
  
                                        ENTRY POINTS. 
  
                                        B=MACRX          0+           DOBGN          417            RBUF          1416+ 
                                        MACORG         100            DOEND          422            CBUF          1430+ 
                                        F.MACD        1337+           SBUF          1407+ 
  
  
  
  
                                                  IDENT  MACROX                                                  MACROX      2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=MACRX  RPVDEF                                                         MACROX      5
                                                  LIST   -R          ** TURN OFF THE REF MAP **                  MACROX      6
  
  
  
                                        **        MACROX - OBJECT CODE PRODUCTION DATA BASE                      MACROX      8
                                        *                                                                        MACROX      9
                                        *         MACROX CONTAINS 2 TABLES WHICH DEFINE THE CODE PRODUCED        MACROX     10
                                        *         FOR A GIVEN "RLIST" MACRO CALL.                                MACROX     11
                                        *                                                                        MACROX     12
                                        *         THE MACRO DESCRIPTOR TABLE, STARTING AT "MACDESC" CONTAINS     MACROX     13
                                        *         ONE WORD FOR EACH RLIST MACRO DESCRIBING -                     MACROX     14
                                        *         THE NUMBER OF SYMBOLS, R NUMBERS, CONSTANTS, INTERMEDIATE      MACROX     15
                                        *         PARAMETERS, AND THE FWA AND LENGTH OF THE MACRO.               MACROX     16
                                        *                                                                        MACROX     17
                                        *         THE SECOND TABLE CONTAINS THE MACRO TEXT NECESSARY IN ORDER    MACROX     18
                                        *         FOR *EMR* TO EXPAND THE MACRO INTO *IL* BY SUBSTITUTING        MACROX     19
                                        *         THE ACTUAL PARAMETERS FROM THE MACRO CALL.                     MACROX     20
                                                                                                                 MACROX     21
                                                  USE    MACTEXT     MACRO TEXT BLOCK                            MACROX     22
                                                  USE    MACDESC     TABLE OF DESCRIPTORS                        MACROX     23
          1437                           MACDESC  BSS    0                                                       MACROX     24
                                                                                                                 MACROX     25
                                                  ENTRY  MACORG                                                  MACROX     26
                                 100     MACORG   EQU    100B        BASE NUMBER OF MACROX MACROS                MACROX     27
                                 100     MACNUM   SET    MACORG      INITIALIZE MACNUM                           MACROX     28
                                                  ENTRY  F.MACD                                                  MACROX     29
                                1337 +   F.MACD   EQU    MACDESC-MACORG    BASE OF MACRO DESCRIPTOR TABLE        MACROX     30
                                                                                                                 MACROX     31
                                                  ECHO   1,X=(SM,CM,RM,.UNUS)                                    MACROX     32
                                         X        SET    0                                                       MACROX     33
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     2
                                                                      MACROX    MACDESC 
  
                                                                                                                 MACROX     34
                                         AVAIL    MICRO  ,,          EMPTY                                       MACROX     35
                                                                                                                 MACROX     36
                                        *         PARAMETER EXPANSION BUFFERS FOR *EMR*                          MACROX     37
                                                                                                                 MACROX     38
                                                  RMT                                                            MACROX     39
                                                  USE    MACTEXT                                                 MACROX     40
                                                  ENTRY  SBUF,RBUF,CBUF                                          MACROX     41
                                                  LIST   D                                                       MACROX     42
                                         SBUF     BSSZ   SM+2        SYMBOL BUFFER                               MACROX     43
                                         RBUF     CON    0,1         R NUMBER BUFFER                             MACROX     44
                                                  BSSZ   RM+2                                                    MACROX     45
                                         CBUF     BSSZ   CM+3        CONSTANT PARAM BUFFER                       MACROX     46
                                                  RMT                                                            MACROX     47
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     3
        MACRO DEFINITIONS                                             MACROS    MACDESC 
  
                                        **        DEFINE SYMBOLS USED IN RMACROS                                 MACROX     49
                                        *                PJ - J"TH PARAMETRIC R-NUMBER                           MACROX     50
                                        *                IJ - J"TH INTERMEDIATE R-NUMBER                         MACROX     51
                                        *                KJ - J"TH PARAMETRIC CONSTANT                           MACROX     52
                                        *                THE J"TH PARAMETRIC SYMBOL IS REFERED TO BY ITS NUMBER. MACROX     53
                                                                                                                 MACROX     54
                                   1     X        SET    1                                                       MACROX     55
                                  30              DUP    24                                                      MACROX     56
                                         C        DECMIC X                                                       MACROX     57
                                         I"C"     EQU    1S15+X                                                  MACROX     58
                                                  NOREF  I"C"                                                    MACROX     59
                                                  IFLT   X,9,3                                                   MACROX     60
                                                  NOREF  P"C",K"C"                                               MACROX     61
                                         P"C"     EQU    X+1                                                     MACROX     62
                                         K"C"     EQU    X                                                       MACROX     63
                                         X        SET    X+1                                                     MACROX     64
                                                  ENDD                                                           MACROX     65
  
  
  
                                        **        TYPEI - GENERATE TYPE I *IL* INSTRUCTION MACRO DEFINITION      MACROX     67
                                        *                VFD  12/1S10+OC,16/RJ,16/RK,16/RI                       MACROX     68
                                                                                                                 MACROX     69
                                                  MACRO  TYPEI,NAM,OC,SS                                         MACROX     70
                                         C        GETARG 23,4,(SS)                                               MACROX     71
                                         Z        IFC    NE,/"C"/COMM/                                           MACROX     72
                                         NAM      MACRO  RI,RJ,RK                                                MACROX     73
                                          VFD 12/OC,16/RJ,16/RK,16/RI                                            MACROX     74
                                        IMAX MAX IMAX,RI-100000B                                                 MACROX     75
                                         NAM      ENDM                                                           MACROX     76
                                         Z        ELSE                                                           MACROX     77
                                         NAM      MACRO  RI,RJ,RK                                                MACROX     78
                                          IFGE RJ,RK,2                                                           MACROX     79
                                          VFD 12/OC,16/RJ,16/RK,16/RI                                            MACROX     80
                                                  SKIP   2                                                       MACROX     81
                                          VFD 12/OC                                                              MACROX     82
                                          VFD 16/RK,16/RJ,16/RI                                                  MACROX     83
                                        IMAX MAX IMAX,RI-100000B                                                 MACROX     84
                                         NAM      ENDM                                                           MACROX     85
                                         Z        ENDIF                                                          MACROX     86
                                         TYPEI    ENDM                                                           MACROX     87
  
  
  
                                        **        TYPEII - GENERATE TYPE II *IL* INSTRUCTION MACRO DEFINITION    MACROX     89
                                        *                VFD  12/1S10+OC,18/IN,1/INFLAG,13/SO,16/RI              MACROX     90
                                        *                INFLAG = 0 THEN *IN* IS CON, ELSE ORDINAL OF PARAMETER  MACROX     91
                                                                                                                 MACROX     92
                                                  MACRO  TYPEII,NAM,OC                                           MACROX     93
                                         NAM      MACRO  RI,IN,SO                                                MACROX     94
                                          IFC LT,/IN/0/,2                                                        MACROX     95
                                          VFD 12/OC,18/IN,14/1S13+SO,16/RI                                       MACROX     96
                                          ELSE 1                                                                 MACROX     97
                                          VFD 12/OC,18/IN,14/SO,16/RI                                            MACROX     98
                                        IMAX MAX IMAX,RI-100000B                                                 MACROX     99
                                                  ENDM                                                           MACROX    100
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     4
        MACRO DEFINITIONS                                             TYPEIII   MACDESC 
  
                                        **        TYPEIII - GENERATE TYPE III *IL* INSTRUCTION MACRO DEFINITION  MACROX    102
                                        *         NOTE - FOR ACTUAL CA"X ( NUMBERS ), ABS(CA) < 4000B            MACROX    103
                                                                                                                 MACROX    104
                                                  MACRO  TYPEIII,NAM,OC                                          MACROX    105
                                         NAM      MACRO  RI,RF,CA,SY                                             MACROX    106
                                          IFC LT,/CA/0/,2                                                        MACROX    107
                                          VFD 12/OC,3/SY,12/CA,1/1,16/RF,16/RI                                   MACROX    108
                                          ELSE 1                                                                 MACROX    109
                                          VFD 12/OC,3/SY,12/CA,1/0,16/RF,16/RI                                   MACROX    110
                                        IMAX MAX IMAX,RI-100000B                                                 MACROX    111
                                        TY3 SET TY3+1                                                            MACROX    112
                                                  ENDM                                                           MACROX    113
  
  
  
                                        **        TYPE III X-JUMPS                                               MACROX    115
                                                                                                                 MACROX    116
                                                  ECHO   ,JT=("XJUMPS")                                          MACROX    117
                                                                                                                 MACROX    118
                                         JT       MACRO  RI,IH                                                   MACROX    119
                                          VFD 12/2000B+OC.JPX,3/IH,12/JC.JT,33/RI                                MACROX    120
                                         TY3 SET TY3+1                                                           MACROX    121
                                         JT       ENDM                                                           MACROX    122
                                                                                                                 MACROX    123
                                         RJ_JT    MACRO  RI,RF,IH                                                MACROX    124
                                          VFD 12/2000B+OC.RJXJ,3/IH,12/JC.JT,17/RF,16/RI                         MACROX    125
                                         TY3 SET TY3+1                                                           MACROX    126
                                                  ENDM                                                           MACROX    127
                                                                                                                 MACROX    128
                                                  ENDD                                                           MACROX    129
                                                                                                                 MACROX    130
                                         ORX      OPSYN  OR          SAVE DEFINITION OF *OR* X-JUMP              MACROX    131
                                                  PURGMAC OR                                                     MACROX    132
  
  
  
                                        **        TYPEIV - GENERATE TYPE IV *IL* INSTRUCTION MACRO DEFINITIONS   MACROX    134
                                        *                VFD  12/1S10+OC,18/CA,30/SY  ( CA IS ALWAYS A FORMAL CA MACROX    135
                                                                                                                 MACROX    136
                                                  MACRO  TYPEIV,NAM,OC                                           MACROX    137
                                         NAM      MACRO  CA,SY                                                   MACROX    138
                                          VFD 12/OC,18/CA,30/SY                                                  MACROX    139
                                                  ENDM                                                           MACROX    140
  
  
  
                                        **        OPR - MACRO TO DEFINE THE *IL* INSTRUCTION MACRO DEFINITIONS.  MACROX    142
                                                                                                                 MACROX    143
                                                  MACRO  OPR,NAME,SS                                             MACROX    144
                                                  IF     -DEF,/NODEF/NAME,3                                      MACROX    145
                                         T        GETARG 18,3,(SS)                                               MACROX    146
                                         OC       OCTMIC OC.NAME+2000B                                           MACROX    147
                                         NAME     TYPE"T" "OC"B,(SS)                                             MACROX    148
                                                  ENDM                                                           MACROX    149
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     5
        MACRO DEFINITIONS                                             RMACRO    MACDESC 
  
                                        **        RMACRO - BEGIN *IL* MACRO DEFINITION                           MACROX    151
                                                                                                                 MACROX    152
                                                  MACRO  RMACRO,NAM,NSY,NR,NC                                    MACROX    153
                                                  LOC    MACNUM                                                  MACROX    154
                                         NAM      BSS    0                                                       MACROX    155
                                         TY3 SET 0                                                               MACROX    156
                                         IMAX SET 0                                                              MACROX    157
                                         SM MAX SM,NSY                                                           MACROX    158
                                         RM MAX RM,NR                                                            MACROX    159
                                         CM MAX CM,NC                                                            MACROX    160
                                         MACNUM   SET    MACNUM+1                                                MACROX    161
                                                  USE    MACTEXT                                                 MACROX    162
                                         FM       SET    *                                                       MACROX    163
                                         MP       SET    NC*10000B+NR*100B+NSY                                   MACROX    164
                                                  ENDM                                                           MACROX    165
  
  
                                        **        ENDR - TERMINATE A *RMACRO* DEFINITION.                        MACROX    167
                                                                                                                 MACROX    168
                                                  MACRO  ENDR,MT                                                 MACROX    169
                                         LM SET *-FM                                                             MACROX    170
                                                  USE    MACDESC                                                 MACROX    171
                                          ERRZR LM       MACRO TEXT MAY NOT BE EMPTY                             MACROX    172
                                          VFD 18/MP,6/IMAX,6/LM,6/.MT,6/-LM-TY3,18/FM                            MACROX    173
                                                  ENDM                                                           MACROX    174
  
  
                                        **        UNUSED - DEFINE AN UNUSED RMACRO NUMBER                        MACROX    176
                                                                                                                 MACROX    177
                                         UNUSED   MACRO                                                          MACROX    178
                                         MACNUM   OCTMIC MACNUM,3                                                MACROX    179
                                         AVAIL    MICRO  1,,/"AVAIL" "MACNUM"/                                   MACROX    180
                                                  USE    MACDESC                                                 MACROX    181
                                        *                FORCE A MODE ERROR IN *MACROE*                          MACROX    182
                                                  CON    1S17+MACNUM                                             MACROX    183
                                         MACNUM   SET    MACNUM+1                                                MACROX    184
                                         .UNUS    SET    .UNUS+1                                                 MACROX    185
                                                  ENDM                                                           MACROX    186
  
  
  
                                        **        IN RLIST MACROS ONE MAY SPECIFY A SPECIFIC DESTINATION REGISTE MACROX    188
                                        *         FOR THE *RI* OF AN INSTRUCTION BY IMMEDIATELY FOLLOWING IT     MACROX    189
                                        *         WITH A REGISTER STORE INSTRUCTION.                             MACROX    190
                                        *         THE NAMES OF THE REGISTER APPEARS IN THE *SO* FIELD FOLLOWED   MACROX    191
                                        *         BY A PERIOD, AND PRECEEDED BY A T ONLY IF IT IS A TEMPORARY    MACROX    192
                                        *         REGISTER STORE.                                                MACROX    193
                                                                                                                 MACROX    194
                                                  ECHO   3,R=(B,X),Z=(0,20B)                                     MACROX    195
                                                  ECHO   2,N=(0,1,2,3,4,5,6,7)                                   MACROX    196
                                         R_N.     EQU    Z+N                                                     MACROX    197
                                         T_R_N.   EQU    SO.TLOCK+Z+N                                            MACROX    198
                                                                                                                 MACROX    199
                                  10     A0.      EQU    10B         SO REG NUMBER FOR A0                        MACROX    200
                                   2     SBR      EQU    B2.         SCRATCH B-REGISTER USED FOR INDEXED SHIFTS  MACROX    201
                                        *                            JUMPS, UNPACKS, ETC                         MACROX    202
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     6
        MACRO DEFINITIONS                                             NODEF     MACDESC 
  
                                        **        THE BELOW OPCODES MAY NOT APPEAR IN MACROX                     MACROX    204
                                        *         I.E. - IT IS IMPOSSIBLE FOR *EMR* TO PROPERLY EXPAND THEM, ETC MACROX    205
                                                                                                                 MACROX    206
                                                  QUAL   NODEF                                                   MACROX    207
                                                  ECHO   1,N=(EOQ,BOS,DAR,PLD,PST,SLD,SST,SDL,SDS,DRL,DWL)       MACROX    208
                                         N        EQU    1                                                       MACROX    209
                                                                                                                 MACROX    210
                                                  QUAL                                                           MACROX    211
          1437                                    CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                  OPRDEFS     2
  
  
  
                                                  PURGMAC TYPEI,TYPEII,TYPEIII,TYPEIV                            MACROX    214
                                                                                                                 MACROX    215
                                        *         ADJUST DEFINITION OF *OR* SO IT CAN EXPAND TO AN INCLUSIVE OR  MACROX    216
                                        *         OR THE *OR* X-JUMP.                                            MACROX    217
                                                                                                                 MACROX    218
                                         IOR      OPSYN  OR                                                      MACROX    219
                                                  PURGMAC OR                                                     MACROX    220
                                                                                                                 MACROX    221
                                         OR       MACRO  RI,RJ,RK                                                MACROX    222
                                                  IFC    NE,/RK//,2                                              MACROX    223
                                                  IOR    RI,RJ,RK                                                MACROX    224
                                                  ELSE   1                                                       MACROX    225
                                                  ORX    RI,RJ                                                   MACROX    226
                                                  ENDM                                                           MACROX    227
  
  
  
                                        **        REDEFINE THE UP, NR MACROS SO THAT THEY AUTOMATICALLY GENERATE MACROX    229
                                        *         A REGISTER STORE ON THE *RJ* FIELD IF IT IS " 0 .              MACROX    230
                                                                                                                 MACROX    231
                                         UP.      OPSYN  UP                                                      MACROX    232
                                         NR.      OPSYN  NR                                                      MACROX    233
                                                  PURGMAC UP,NR                                                  MACROX    234
                                                                                                                 MACROX    235
                                         UP       MACRO  RI,RJ,RK                                                MACROX    236
                                                  UP.    RI,RJ,RK                                                MACROX    237
                                                  IFNE   RJ,0,1                                                  MACROX    238
                                                  RS     RJ,1,SO.RJLK+SBR                                        MACROX    239
                                                  ENDM                                                           MACROX    240
                                                                                                                 MACROX    241
                                         NR       MACRO  RI,RJ,RK                                                MACROX    242
                                                  NR.    RI,RJ,RK                                                MACROX    243
                                                  IFNE   RJ,0,1                                                  MACROX    244
                                                  RS     RJ,1,SO.RJLK+SBR                                        MACROX    245
                                                  ENDM                                                           MACROX    246
                                                                                                                 MACROX    247
                                        *         PNR - PROTECTED NORMALIZE, CANNOT BE ELEMINATED BY *SQZ* .     MACROX    248
                                                                                                                 MACROX    249
                                         PNR      MACRO  RI,RJ,RK                                                MACROX    250
                                                  NR.    RI,1,RK                                                 MACROX    251
                                                  ENDM                                                           MACROX    252
  
  
  
                                        **        LDAP - LOAD APLIST ADDRESS                                     MACROX    254
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     7
        MACRO DEFINITIONS                                             LDAP      MACDESC 
  
                                                                                                                 MACROX    255
                                         LDAP     MACRO  CA,IH,RI                                                MACROX    256
                                                  LD     RI,,CA,IH                                               MACROX    257
                                                  RS     RI,,X1.                                                 MACROX    258
                                                  ENDM                                                           MACROX    259
  
  
  
                                        **        DEFINE VALUES OF MACRO TYPE FOR *ENDR* MACRO                   MACROX    261
                                                                                                                 MACROX    262
                                   0     .        EQU    0                                                       MACROX    263
                                   1     .LABEL   EQU    1           LABEL DEFINITION                            MACROX    264
                                   2     .ENTRY   EQU    2           ENTRY. DEFINITION                           MACROX    265
                                   3     .EXIT    EQU    3           SUBROUTINE EXIT                             MACROX    266
                                   4     .UJP     EQU    4           UNCONDITIONAL JUMP MACRO                    MACROX    267
                                   5     .IF      EQU    5           IF MACRO                                    MACROX    268
                                   6     .AGOTO   EQU    6           ASSIGNED GOTO                               MACROX    269
                                   7     .CGOTO   EQU    7           COMPUTED GOTO                               MACROX    270
                                  10     .RJX     EQU    8           MACRO WITH AN *RJX* TO AN EXT ROUTINE       MACROX    271
                                  11     .REGST   EQU    9           MACRO WITH A *RS* THAT MIGHT BE SEPARATED   MACROX    272
                                        *                            FROM OPERATION DEFINING THE *RI*.           MACROX    273
                                  12     .STORE   EQU    10          STORE TO PROGRAMMER DEFINED VARIABLES       MACROX    274
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     8
        UNCONDITIONAL JUMPS / LABEL DEFINITION                        JUMPS     MACDESC 
  
      L    100                           RETURN   RMACRO 1,0,0                                                   MACROX    276
             0  20730000000000000001              UJP    0,1                                                     MACROX    277
          1437  00000100010376000000 +   EXIT     ENDR                                                           MACROX    278
                                                                                                                 MACROX    279
      L    101                           NSRETURN RMACRO 1,1,1                                                   MACROX    280
             1  20500000140000300001              LD     I1,1,K1     LOAD A0+ORDINAL                             MACROX    281
             2  20604000040000100002              SA     I2,I1                                                   MACROX    282
             3  20040000004020500002              RS     I2,,SO.TLOCK+SBR                                        MACROX    283
             4  20501000000000100003              LD     I3,0,0,1    LOAD TEMPA0.                                MACROX    284
             5  20020000000000000000              EOS                * TO PREVENT THE *SA* FROM FLOATING         MACROX    285
             6  20604000140000100004              SA     I4,I3       RESTORE A0                                  MACROX    286
             7  20040000004002100004              RS     I4,,A0.           *LOCK UNTIL NEXT UJP*                 MACROX    287
            10  20700000040000100002              JIN    I2                                                      MACROX    288
          1440  01010104100364000001 +   EXIT     ENDR                                                           MACROX    289
                                                                                                                 MACROX    290
      L    102                           PEND     RMACRO 2,0,2       EQ  END. / STOP. ( PROGRAM EXIT MACROS )    MACROX    291
            11  20502000240000100001              LDAP   K2,2,I1                                                 MACROX    292
            13  20730000000000000001              UJP    0,1                                                     MACROX    293
          1441  02000201030373000011 +   EXIT     ENDR                                                           MACROX    294
                                                                                                                 MACROX    295
      L    103                           ENTRY    RMACRO 1,0,0       ALTERNATE ENTRY POINT DEFINITION            MACROX    296
            14  20070000000000000001              ENT    0,1                                                     MACROX    297
          1442  00000100010276000014 +   ENTRY    ENDR                                                           MACROX    298
                                                                                                                 MACROX    299
      L    104                           LABEL    RMACRO 1,0,0       LABEL DEFINITION                            MACROX    300
            15  20060000000000000001              LAB    0,1                                                     MACROX    301
          1443  00000100010176000015 +   LABEL    ENDR                                                           MACROX    302
                                                                                                                 MACROX    303
      L    105                           UJUMP    RMACRO 1,0,0       UNCONDITIONAL JUMP                          MACROX    304
            16  20730000000000000001              UJP    0,1                                                     MACROX    305
          1444  00000100010476000016 +   UJP      ENDR                                                           MACROX    306
                                                                                                                 MACROX    307
      L    106                           ASSIGN   RMACRO 2,0,1       ASSIGN LABEL TO IVAR                        MACROX    308
            17  20521000040000100001              STT    I1,,,1      SXI   LABEL                                 MACROX    309
            20  20512000140000100001              ST     I1,,K1,2                                                MACROX    310
          1445  01000201021273000017 +   STORE    ENDR                                                           MACROX    311
                                                                                                                 MACROX    312
      L    107                           AGOTO    RMACRO 1,0,2       ASSIGNED GOTO , ( K2 = N.BRANCES IF OPT=2 ) MACROX    313
            21  20501000140000100001              LD     I1,,K1,1                                                MACROX    314
            22  20604000040000100002              SA     I2,I1                                                   MACROX    315
            23  20040000004020500002              RS     I2,,SO.TLOCK+SBR                                        MACROX    316
            24  20700000040000100002              JIN    I2                                                      MACROX    317
          1446  02000102040671000021 +   AGOTO    ENDR                                                           MACROX    318
                                                                                                                 MACROX    319
      L    110                           CGOTO    RMACRO 2,1,3       COMPUTED GOTO                               FCC1085    36
            25  20430000730000100001              FMA    I1,59                                                   FCC0422     3
            26  2036                              IA     I2,P1,I1    R1 = X1-1                                   FCC0422     4
            27  20550000014000100003              S      I3,K1                                                   FCC0422     5
            30  2036                              IA     I4,P1,I3    R2 = X1-N.BRANCH                            FCC0422     6
            31  20164000220000500005              IMP    I5,I4,I2    R3 = -R2+R1                                 FCC0422     7
            32  21034000240000100006              SXT    I6,I5                                                   FCC0422     8
            33  20210007320001500007              KRS    I7,I6,59                                                FCC0422     9
            34  20430000034000100010              FMA    I8,K3       I8 = -1 IF LINENUM > 4095 ELSE 0            FCC1085    37
            35  20370000120002100011              IS     I9,P1,I8                                                FCC1085    38
            36  20154000360002300012              STR    I10,I7,I9   R4 = 0 IF OUT OF RANGE                      FCC1085    39
            37  20604000500000100013              SA     I11,I10                                                 FCC1085    40
            40  20040000004020500013              RS     I11,,SO.TLOCK+SBR                                       FCC1085    41
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE     9
        UNCONDITIONAL JUMPS / LABEL DEFINITION                        JUMPS     MACTEXT 
  
            41  20701000040000100013              JIN    I11,,,1                                                 FCC1085    42
            42  20060000000000000001              LAB    0,1         #GLN  BSS  0                                MACROX    330
            43  20720000020000000002              RJ6    K2,2        RJ  ACGOER$,12/LINE NUM,18/TRACE.           MACROX    331
          1447  03010213170756000025 +   CGOTO    ENDR                                                           MACROX    332
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    10
        FUNCTION / SUBROUTINE CALL MACROS                             RJX       MACDESC 
  
                                        *     REGISTER STORE MACROS FOR BASIC EXT ARGS.  THE 1ST 4 ARE USED IF   MACROX    334
                                        *   THE ARG IS A FUNCTION RESULT, OTHERWISE, THE LAST 4 ARE USED.        MACROX    335
                                                                                                                 MACROX    336
      L    111                           RI=X1    RMACRO 0,1,0       RI=X1                                       MACROX    337
            44  20100000100000100001              XMT    I1,P1                                                   MACROX    338
            45  20040000000004300001              RS     I1,0,X1.                                                MACROX    339
          1450  00010001020075000044 +            ENDR                                                           MACROX    340
                                                                                                                 MACROX    341
      L    112                           RI=X3    RMACRO 0,1,0       RI=X3                                       MACROX    342
            46  20100000100000100001              XMT    I1,P1                                                   MACROX    343
            47  20040000000004700001              RS     I1,0,X3.                                                MACROX    344
          1451  00010001020075000046 +            ENDR                                                           MACROX    345
                                                                                                                 MACROX    346
      L    113                           RI=X2    RMACRO 0,1,0       RI=X2                                       MACROX    347
            50  20100000100000100001              XMT    I1,P1                                                   MACROX    348
            51  20040000000004500001              RS     I1,0,X2.                                                MACROX    349
          1452  00010001020075000050 +            ENDR                                                           MACROX    350
                                                                                                                 MACROX    351
      L    114                           RI=X4    RMACRO 0,1,0       RI=X4                                       MACROX    352
            52  20100000100000100001              XMT    I1,P1                                                   MACROX    353
            53  20040000000005100001              RS     I1,0,X4.                                                MACROX    354
          1453  00010001020075000052 +            ENDR                                                           MACROX    355
                                                                                                                 MACROX    356
      L    115                           RI=X1.   RMACRO 0,1,0       RI=X1                                       MACROX    357
            54  20040000000004200002              RS     P1,0,X1.                                                MACROX    358
          1454  00010000011176000054 +   REGST    ENDR                                                           MACROX    359
                                                                                                                 MACROX    360
      L    116                           RI=X3.   RMACRO 0,1,0       RI=X3                                       MACROX    361
            55  20040000000004600002              RS     P1,0,X3.                                                MACROX    362
          1455  00010000011176000055 +   REGST    ENDR                                                           MACROX    363
                                                                                                                 MACROX    364
      L    117                           RI=X2.   RMACRO 0,1,0       RI=X2                                       MACROX    365
            56  20040000000004400002              RS     P1,0,X2.                                                MACROX    366
          1456  00010000011176000056 +   REGST    ENDR                                                           MACROX    367
                                                                                                                 MACROX    368
      L    120                           RI=X4.   RMACRO 0,1,0       RI=X4                                       MACROX    369
            57  20040000000005000002              RS     P1,0,X4.                                                MACROX    370
          1457  00010000011176000057 +   REGST    ENDR                                                           MACROX    371
  
  
  
                                        *         RETURN JUMP MACROS                                             MACROX    373
                                                                                                                 MACROX    374
      L    121                           BEFCALL  RMACRO 1,0,0       BASIC EXT FUNCTION CALL                     MACROX    375
            60  20710000000000000001              RJ3    0,1                                                     MACROX    376
          1460  00000100011076000060 +   RJX      ENDR                                                           MACROX    377
                                                                                                                 MACROX    378
      L    122                           RJ60     RMACRO 1,0,1       RJ6 - NO APLIST                             MACROX    379
            61  20720000010000000001              RJ6    K1,1                                                    MACROX    380
          1461  01000100011076000061 +   RJX      ENDR                                                           MACROX    381
                                                                                                                 MACROX    382
      L    123                           GEFWOTR  RMACRO 2,0,2       GEN EXT CALL WITHOUT TRACEBACK              MACROX    383
            62  20502000240000100001              LDAP   K2,2,I1                                                 MACROX    384
            64  20710000000000000001              RJ3    0,1                                                     MACROX    385
          1462  02000201031073000062 +   RJX      ENDR                                                           MACROX    386
                                                                                                                 MACROX    387
      L    124                           GEFCALL  RMACRO 2,0,2       GENERAL EXTERNAL FUNCTION CALL              MACROX    388
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    11
        FUNCTION / SUBROUTINE CALL MACROS                             RJX       MACTEXT 
  
            65  20502000240000100001              LDAP   K2,2,I1                                                 MACROX    389
            67  20720000010000000001              RJ6    K1,1        AND CALL THE ROUTINE WITH TRACEBACK         MACROX    390
          1463  02000201031073000065 +   RJX      ENDR                                                           MACROX    391
  
  
  
      L    125                           DEFX6    RMACRO 0,1,0       DEFINE X6=RI                                MACROX    393
            70  20050000000005400002              DEF    P1,0,X6.                                                MACROX    394
          1464  00010000010076000070 +            ENDR                                                           MACROX    395
                                                                                                                 MACROX    396
      L    126                           DEFX7    RMACRO 0,1,0       DEFINE X7=RI                                MACROX    397
            71  20050000000005600002              DEF    P1,0,X7.                                                MACROX    398
          1465  00010000010076000071 +            ENDR                                                           MACROX    399
                                                                                                                 MACROX    400
      L    127                           STEMP    RMACRO 1,1,1       STORE TO COMPILER GENERATED TEMPORARY       MACROX    401
            72  20511000140000000002              ST     P1,,K1,1                                                MACROX    402
          1466  01010100010075000072 +            ENDR                                                           MACROX    403
                                                                                                                 MACROX    404
          1467  00000000000000400130              UNUSED                                                         MACROX    405
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    12
        ARITH MACROS                                                  BASIC     MACDESC 
  
      L    131                           DBLD     RMACRO 1,3,2       DBL LOAD                                    MACROX    407
            73  20501000140000600002              LD     P1,P2,K1,1                                              MACROX    408
            74  20501000240000600004              LD     P3,P2,K2,1                                              MACROX    409
          1470  02030100020073000073 +            ENDR                                                           MACROX    410
                                                                                                                 MACROX    411
      L    132                           DBLSTR   RMACRO 1,3,2       DOUBLE STORE (MUST FOLLOW DBLE LOAD)        MACROX    412
            75  20511000140000600002              ST     P1,P2,K1,1                                              MACROX    413
            76  20511000240000600004              ST     P3,P2,K2,1                                              MACROX    414
          1471  02030100021273000075 +   STORE    ENDR                                                           MACROX    415
                                                                                                                 MACROX    416
      L    133                           LOAD     RMACRO 1,2,1       SINGLE LOAD                                 MACROX    417
            77  20501000140000600002              LD     P1,P2,K1,1                                              MACROX    418
          1472  01020100010075000077 +            ENDR                                                           MACROX    419
                                                                                                                 MACROX    420
      L    134                           STORE    RMACRO 1,2,1       SINGLE STORE                                MACROX    421
           100  20511000140000600002              ST     P1,P2,K1,1                                              MACROX    422
          1473  01020100011275000100 +   STORE    ENDR                                                           MACROX    423
                                                                                                                 MACROX    424
      L    135                           XMIT     RMACRO 0,2,0       TRANSMIT                                    MACROX    425
           101  20100000140000000002              XMT    P1,P2                                                   MACROX    426
          1474  00020000010076000101 +            ENDR                                                           MACROX    427
                                                                                                                 MACROX    428
      L    136                           DBLXMT   RMACRO 0,4,0       DBLE TRANSMIT (MUST FOLLOW SNGLE XMT)       MACROX    429
           102  20100000140000000002              XMT    P1,P2                                                   MACROX    430
           103  20100000240000000004              XMT    P3,P4                                                   MACROX    431
          1475  00040000020075000102 +            ENDR                                                           MACROX    432
                                                                                                                 MACROX    433
          1476  00000000000000400137              UNUSED                                                         MACROX    434
                                                                                                                 MACROX    435
          1477  00000000000000400140              UNUSED                                                         MACROX    436
                                                                                                                 MACROX    437
          1500  00000000000000400141              UNUSED                                                         MACROX    438
                                                                                                                 MACROX    439
      L    142                           SET.CON  RMACRO 0,1,1       SET R TO A CON                              MACROX    440
           104  20550000014000000002              S      P1,K1                                                   MACROX    441
          1501  01010000010076000104 +            ENDR                                                           MACROX    442
                                                                                                                 MACROX    443
      L    143                           SETR     RMACRO 1,2,1       SET RI=IH+CA+RF (SXTAMC EQU SETMC+1)        MACROX    444
           105  20521000140000600002              STT    P1,P2,K1,1                                              MACROX    445
          1502  01020100010075000105 +            ENDR                                                           MACROX    446
                                                                                                                 MACROX    447
      L    144                           P2TON    RMACRO 0,2,1       (2**K)**N = SHIFT( MASK(1) , K+1 )          MACROX    448
           106  20430000010000100001              FMA    I1,1                                                    MACROX    449
           107  20520000140000500002              STT    I2,P1,K1    K1 = K + 1                                  MACROX    450
           110  20040000004020500002              RS     I2,,SO.TLOCK+SBR                                        MACROX    451
           111  20224000120000200003              ILS    P2,I2,I1                                                MACROX    452
          1503  01020002040072000106 +            ENDR                                                           MACROX    453
                                                                                                                 MACROX    454
      L    145                           MASKZR   RMACRO 0,1,0       MXI   0                                     MACROX    455
           112  21020000000000000002              CLR    P1,0                                                    MACROX    456
          1504  00010000010076000112 +            ENDR                                                           MACROX    457
                                                                                                                 MACROX    458
      L    146                           DBLZR    RMACRO 0,2,0       ZERO 2 REGISTERS                            MACROX    459
           113  21020000000000000002              CLR    P1,0                                                    MACROX    460
           114  21020000000000000003              CLR    P2,0                                                    MACROX    461
          1505  00020000020075000113 +            ENDR                                                           MACROX    462
                                                                                                                 MACROX    463
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    13
        ARITH MACROS                                                  BASIC     MACDESC 
  
      L    147                           SDL      RMACRO 1,2,1       SNGLE TO DBLE LD (SDLMC EQU MZZMC+1)        MACROX    464
           115  20501000140000100001              LD     I1,0,K1,1                                               MACROX    465
           116  20104000040000000002              XMT    P1,I1                                                   MACROX    466
           117  21020000000000000003              CLR    P2,0                                                    MACROX    467
          1506  01020101030073000115 +            ENDR                                                           MACROX    468
                                                                                                                 MACROX    469
      L    150                           MINUSZR  RMACRO 0,1,0       -0                                          MACROX    470
           120  20430000740000000002              FMA    P1,60                                                   MACROX    471
          1507  00010000010076000120 +            ENDR                                                           MACROX    472
                                                                                                                 MACROX    473
      L    151                           DLTS     RMACRO 1,3,2       DBLE LD TO SNGLE (DLTSMC EQU MIZMC+1)       MACROX    474
           121  20501000140000600002              LD     P1,P2,K1,1                                              MACROX    475
          1510  02030100010075000121 +            ENDR                                                           MACROX    476
  
  
  
  
                                        **        MODE CHANGE MACROS                                             MACROX    478
                                                                                                                 MACROX    479
      L    152                           ITOR     RMACRO 0,2,0,,10   INTEGER TO REAL                             MACROX    480
           122  20270000000000500001              PK     I1,0,P1                                                 MACROX    481
           123  20240000020000200003              NR     P2,0,I1                                                 MACROX    482
          1511  00020001020075000122 +            ENDR                                                           MACROX    483
                                                                                                                 MACROX    484
      L    153                           ITODC    RMACRO 0,3,0       INTEGER TO DOUBLE OR COMPLEX                MACROX    485
           124  20270000000000500001              PK     I1,0,P1                                                 MACROX    486
           125  21020000000000000004              CLR    P3,0                                                    MACROX    487
           126  20240000020000200003              NR     P2,0,I1                                                 MACROX    488
          1512  00030001030074000124 +            ENDR                                                           MACROX    489
                                                                                                                 MACROX    490
      L    154                           RTOI     RMACRO 0,2,0,,10   REAL TO INTEGER                             MACROX    491
           127  20264000100000500001              UP     I1,I2,P1                                                MACROX    492
           131  20224000120000200003              ILS    P2,I2,I1                                                MACROX    493
          1513  00020002030074000127 +            ENDR                                                           MACROX    494
                                                                                                                 MACROX    495
      L    155                           RDCOH.DC RMACRO 0,3,0       REAL,DBLE,CMPX,OCT,HOL TO DBL OR CMPX       MACROX    496
           132  20100000100000000003              XMT    P2,P1                                                   MACROX    497
           133  21020000000000000004              CLR    P3,0                                                    MACROX    498
          1514  00030000020075000132 +            ENDR                                                           MACROX    499
                                                                                                                 MACROX    500
      L    156                           DTOR     RMACRO 0,2,0,,10   DOUBLE TO REAL                              MACROX    501
           134  20100000100000000003              XMT    P2,P1                                                   MACROX    502
          1515  00020000010076000134 +            ENDR                                                           MACROX    503
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    14
        LOGICAL/RELATIONAL MACROS                                     REL-MAC   MACDESC 
  
      L    157                           .OR.     RMACRO 0,3,0       .OR.                                        MACROX    505
           135  20120000200000600002              OR     P1,P3,P2                                                MACROX    506
          1516  00030000010076000135 +            ENDR                                                           MACROX    507
                                                                                                                 MACROX    508
      L    160                           .AND.    RMACRO 0,3,0       .AND.                                       MACROX    509
           136  20110000200000600002              AND    P1,P3,P2                                                MACROX    510
          1517  00030000010076000136 +            ENDR                                                           MACROX    511
                                                                                                                 MACROX    512
      L    161                           .NOT.    RMACRO 0,2,0                                                   MACROX    513
           137  20140000140000000002              XMTC   P1,P2                                                   MACROX    514
          1520  00020000010076000137 +            ENDR                                                           MACROX    515
                                                                                                                 MACROX    516
                                        **        RELATIONAL MACROS                                              MACROX    517
                                                                                                                 MACROX    518
      L    162                           .LE.REAL RMACRO 0,3,0                                                   MACROX    519
           140  20310000200000700001              FS     I1,P3,P2                                                MACROX    520
           141  20240000060000300002              PNR    I2,,I1                                                  MACROX    521
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    522
           142  20144000100000000002              XMTC   P1,I2                                                   MACROX    523
                                         #MD      ELSE                                                           MACROX    524
                                                  CLR    I3                                                      MACROX    525
                                                  IAZ    I4,I3,I2                                                MACROX    526
                                                  XMTC   P1,I4                                                   MACROX    527
                                         #MD      ENDIF                                                          MACROX    528
          1521  00030002030074000140 +            ENDR                                                           MACROX    529
                                                                                                                 MACROX    530
      L    163                           .LE.INT  RMACRO 0,3,0                                                   MACROX    531
           143  20370000200000700001              IS     I1,P3,P2                                                MACROX    532
           144  21020000004000100002              CLR    I2                                                      MACROX    533
           145  20774000120000300003              IAZ    I3,I2,I1                                                MACROX    534
           146  20144000140000000002              XMTC   P1,I3                                                   MACROX    535
          1522  00030003040073000143 +            ENDR                                                           MACROX    536
                                                                                                                 MACROX    537
      L    164                           .LE.DBL  RMACRO 0,6,0                                                   MACROX    538
           147  20330000200000700001              DFS    I1,P3,P2                                                MACROX    539
           150  20310000340001500002              FS     I2,P6,P5                                                MACROX    540
           151  20310000200000700003              FS     I3,P3,P2                                                MACROX    541
           152  20240000060000700004              PNR    I4,,I3                                                  MACROX    542
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    543
           153  20304000120000300005              FA     I5,I2,I1                                                MACROX    544
           154  20304000260001100006              FA     I6,I5,I4                                                MACROX    545
           155  20144000300000000002              XMTC   P1,I6                                                   MACROX    546
                                         #MD      ELSE                                                           MACROX    547
                                                  CLR    I5                                                      MACROX    548
                                                  IAZ    I6,I5,I4                                                MACROX    549
                                                  FA     I7,I1,I2                                                MACROX    550
                                                  FA     I8,I6,I7                                                MACROX    551
                                                  XMTC   P1,I8                                                   MACROX    552
                                         #MD      ENDIF                                                          MACROX    553
          1523  00060006070070000147 +            ENDR                                                           MACROX    554
                                                                                                                 MACROX    555
      L    165                           .LE.CMPX RMACRO 0,6,0                                                   MACROX    556
           156  20310000200000700001              FS     I1,P3,P2                                                MACROX    557
           157  20240000060000300002              PNR    I2,,I1                                                  MACROX    558
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    559
           160  20144000100000000002              XMTC   P1,I2                                                   MACROX    560
                                         #MD      ELSE                                                           MACROX    561
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    15
        LOGICAL/RELATIONAL MACROS                                     REL-MAC   MACTEXT 
  
                                                  CLR    I3                                                      MACROX    562
                                                  IAZ    I4,I3,I2                                                MACROX    563
                                                  XMTC   P1,I4                                                   MACROX    564
                                         #MD      ENDIF                                                          MACROX    565
          1524  00060002030074000156 +            ENDR                                                           MACROX    566
                                                                                                                 MACROX    567
      L    166                           .LT.REAL RMACRO 0,3,0                                                   MACROX    568
           161  20310000140001100001              FS     I1,P2,P3                                                MACROX    569
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    570
           162  20240000060000200002              PNR    P1,,I1                                                  MACROX    571
                                         #MD      ELSE                                                           MACROX    572
                                                  NR     I2,0,I1                                                 MACROX    573
                                                  CLR    I3                                                      MACROX    574
                                                  IAZ    P1,I3,I2                                                MACROX    575
                                         #MD      ENDIF                                                          MACROX    576
          1525  00030001020075000161 +            ENDR                                                           MACROX    577
                                                                                                                 MACROX    578
      L    167                           .LT.INT  RMACRO 0,3,0                                                   MACROX    579
           163  20370000140001100001              IS     I1,P2,P3                                                MACROX    580
           164  21020000004000100002              CLR    I2                                                      MACROX    581
           165  20774000120000200002              IAZ    P1,I2,I1                                                MACROX    582
          1526  00030002030074000163 +            ENDR                                                           MACROX    583
                                                                                                                 MACROX    584
      L    170                           .LT.DBL  RMACRO 0,6,0                                                   MACROX    585
           166  20310000300001700001              FS     I1,P5,P6                                                MACROX    586
           167  20310000140001100002              FS     I2,P2,P3                                                MACROX    587
           170  20240000060000500003              PNR    I3,,I2                                                  MACROX    588
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    589
           171  20330000140001100004              DFS    I4,P2,P3                                                MACROX    590
           172  20304000220000300005              FA     I5,I4,I1                                                MACROX    591
           173  20304000260000600002              FA     P1,I5,I3                                                MACROX    592
                                         #MD      ELSE                                                           MACROX    593
                                                  CLR    I4                                                      MACROX    594
                                                  IAZ    I5,I4,I3                                                MACROX    595
                                                  DFS    I6,P2,P3                                                MACROX    596
                                                  FA     I7,I1,I6                                                MACROX    597
                                                  FA     P1,I5,I7                                                MACROX    598
                                         #MD      ENDIF                                                          MACROX    599
          1527  00060005060071000166 +            ENDR                                                           MACROX    600
                                                                                                                 MACROX    601
      L    171                           .LT.CMPX RMACRO 0,6,0                                                   MACROX    602
           174  20310000140001100001              FS     I1,P2,P3                                                MACROX    603
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    604
           175  20240000060000200002              PNR    P1,,I1                                                  MACROX    605
                                         #MD      ELSE                                                           MACROX    606
                                                  CLR    I2                                                      MACROX    607
                                                  IAZ    P1,I2,I1                                                MACROX    608
                                         #MD      ENDIF                                                          MACROX    609
          1530  00060001020075000174 +            ENDR                                                           MACROX    610
                                                                                                                 MACROX    611
      L    172                           .GE.REAL RMACRO 0,3,0                                                   MACROX    612
           176  20310000140001100001              FS     I1,P2,P3                                                MACROX    613
           177  20240000060000300002              PNR    I2,,I1                                                  MACROX    614
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    615
           200  20144000100000000002              XMTC   P1,I2                                                   MACROX    616
                                         #MD      ELSE                                                           MACROX    617
                                                  CLR    I3                                                      MACROX    618
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    16
        LOGICAL/RELATIONAL MACROS                                     REL-MAC   MACTEXT 
  
                                                  IAZ    I4,I3,I2                                                MACROX    619
                                                  XMTC   P1,I4                                                   MACROX    620
                                         #MD      ENDIF                                                          MACROX    621
          1531  00030002030074000176 +            ENDR                                                           MACROX    622
                                                                                                                 MACROX    623
      L    173                           .GE.INT  RMACRO 0,3,0                                                   MACROX    624
           201  20370000140001100001              IS     I1,P2,P3                                                MACROX    625
           202  21020000004000100002              CLR    I2                                                      MACROX    626
           203  20774000120000300003              IAZ    I3,I2,I1                                                MACROX    627
           204  20144000140000000002              XMTC   P1,I3                                                   MACROX    628
          1532  00030003040073000201 +            ENDR                                                           MACROX    629
                                                                                                                 MACROX    630
      L    174                           .GE.DBL  RMACRO 0,6,0                                                   MACROX    631
           205  20330000140001100001              DFS    I1,P2,P3                                                MACROX    632
           206  20310000140001100002              FS     I2,P2,P3                                                MACROX    633
           207  20240000060000500003              PNR    I3,,I2                                                  MACROX    634
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    635
           210  20310000300001700004              FS     I4,P5,P6                                                MACROX    636
           211  20304000220000300005              FA     I5,I4,I1                                                MACROX    637
           212  20304000260000700006              FA     I6,I5,I3                                                MACROX    638
           213  20144000300000000002              XMTC   P1,I6                                                   MACROX    639
                                         #MD      ELSE                                                           MACROX    640
                                                  CLR    I4                                                      MACROX    641
                                                  IAZ    I5,I4,I3                                                MACROX    642
                                                  FS     I6,P5,P6                                                MACROX    643
                                                  FA     I7,I1,I6                                                MACROX    644
                                                  FA     I8,I5,I7                                                MACROX    645
                                                  XMTC   P1,I8                                                   MACROX    646
                                         #MD      ENDIF                                                          MACROX    647
          1533  00060006070070000205 +            ENDR                                                           MACROX    648
                                                                                                                 MACROX    649
      L    175                           .GE.CMPX RMACRO 0,6,0                                                   MACROX    650
           214  20310000140001100001              FS     I1,P2,P3                                                MACROX    651
           215  20240000060000300002              PNR    I2,,I1                                                  MACROX    652
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    653
           216  20144000100000000002              XMTC   P1,I2                                                   MACROX    654
                                         #MD      ELSE                                                           MACROX    655
                                                  CLR    I3                                                      MACROX    656
                                                  IAZ    I4,I3,I2                                                MACROX    657
                                                  XMTC   P1,I4                                                   MACROX    658
                                         #MD      ENDIF                                                          MACROX    659
          1534  00060002030074000214 +            ENDR                                                           MACROX    660
                                                                                                                 MACROX    661
      L    176                           .GT.REAL RMACRO 0,3,0                                                   MACROX    662
           217  20310000200000700001              FS     I1,P3,P2                                                MACROX    663
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    664
           220  20240000060000200002              PNR    P1,,I1                                                  MACROX    665
                                         #MD      ELSE                                                           MACROX    666
                                                  NR     I2,0,I1                                                 MACROX    667
                                                  CLR    I3                                                      MACROX    668
                                                  IAZ    P1,I3,I2                                                MACROX    669
                                         #MD      ENDIF                                                          MACROX    670
          1535  00030001020075000217 +            ENDR                                                           MACROX    671
                                                                                                                 MACROX    672
      L    177                           .GT.INT  RMACRO 0,3,0                                                   MACROX    673
           221  20370000200000700001              IS     I1,P3,P2                                                MACROX    674
           222  21020000004000100002              CLR    I2                                                      MACROX    675
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    17
        LOGICAL/RELATIONAL MACROS                                     REL-MAC   MACTEXT 
  
           223  20774000120000200002              IAZ    P1,I2,I1                                                MACROX    676
          1536  00030002030074000221 +            ENDR                                                           MACROX    677
                                                                                                                 MACROX    678
      L    200                           .GT.DBL  RMACRO 0,6,0                                                   MACROX    679
           224  20310000200000700002              FS     I2,P3,P2                                                MACROX    680
           225  20310000340001500001              FS     I1,P6,P5                                                MACROX    681
           226  20240000060000500003              PNR    I3,,I2                                                  MACROX    682
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    683
           227  20330000200000700004              DFS    I4,P3,P2                                                MACROX    684
           230  20304000220000300005              FA     I5,I4,I1                                                MACROX    685
           231  20304000260000600002              FA     P1,I5,I3                                                MACROX    686
                                         #MD      ELSE                                                           MACROX    687
                                                  CLR    I4                                                      MACROX    688
                                                  IAZ    I5,I4,I3                                                MACROX    689
                                                  DFS    I6,P3,P2                                                MACROX    690
                                                  FA     I7,I1,I6                                                MACROX    691
                                                  FA     P1,I5,I7                                                MACROX    692
                                         #MD      ENDIF                                                          MACROX    693
          1537  00060005060071000224 +            ENDR                                                           MACROX    694
                                                                                                                 MACROX    695
      L    201                           .GT.CMPX RMACRO 0,6,0                                                   MACROX    696
           232  20310000200000700001              FS     I1,P3,P2                                                MACROX    697
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    698
           233  20240000060000200002              PNR    P1,,I1                                                  MACROX    699
                                         #MD      ELSE                                                           MACROX    700
                                                  NR     I2,0,I1                                                 MACROX    701
                                                  CLR    I3                                                      MACROX    702
                                                  IAZ    P1,I3,I2                                                MACROX    703
                                         #MD      ENDIF                                                          MACROX    704
          1540  00060001020075000232 +            ENDR                                                           MACROX    705
                                                                                                                 MACROX    706
      L    202                           .NE.REAL RMACRO 0,3,0                                                   MACROX    707
           234  20310000140001100001              FS     I1,P2,P3                                                MACROX    708
           235  20240000060000300002              PNR    I2,,I1                                                  MACROX    709
           236  21020000004000100003              CLR    I3                                                      MACROX    710
           237  21004000160000500004              ISZ    I4,I3,I2                                                MACROX    711
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    712
           240  20124000220000400002              OR     P1,I4,I2                                                MACROX    713
                                         #MD      ELSE                                                           MACROX    714
                                                  IAZ    I5,I3,I2                                                MACROX    715
                                                  OR     P1,I5,I4                                                MACROX    716
                                         #MD      ENDIF                                                          MACROX    717
          1541  00030004050072000234 +            ENDR                                                           MACROX    718
                                                                                                                 MACROX    719
      L    203                           .NE.INT  RMACRO 0,3,0                                                   MACROX    720
           241  21020000004000100001              CLR    I1                                                      MACROX    721
           242  20370000140001100002              IS     I2,P2,P3                                                MACROX    722
           243  20774000120000300003              IAZ    I3,I2,I1                                                MACROX    723
           244  21004000060000700004              ISZ    I4,I1,I3                                                MACROX    724
           245  20124000220000600002              OR     P1,I4,I3                                                MACROX    725
          1542  00030004050072000241 +            ENDR                                                           MACROX    726
                                                                                                                 MACROX    727
      L    204                           .NE.DBL  RMACRO 0,6,0                                                   MACROX    728
           246  20310000140001100001              FS     I1,P2,P3                                                MACROX    729
           247  20310000300001700002              FS     I2,P5,P6                                                MACROX    730
           250  20240000060000300003              PNR    I3,,I1                                                  MACROX    731
           251  21020000004000100004              CLR    I4                                                      MACROX    732
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    18
        LOGICAL/RELATIONAL MACROS                                     REL-MAC   MACTEXT 
  
           252  20240000060000500005              PNR    I5,,I2                                                  MACROX    733
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    734
           253  20124000260000700006              OR     I6,I5,I3                                                MACROX    735
           254  21004000220001500007              ISZ    I7,I4,I6                                                MACROX    736
           255  20124000360001400002              OR     P1,I7,I6                                                MACROX    737
                                         #MD      ELSE                                                           MACROX    738
                                                  IAZ    I6,I4,I3                                                MACROX    739
                                                  IAZ    I7,I5,I4                                                MACROX    740
                                                  OR     I8,I6,I7                                                MACROX    741
                                                  ISZ    I9,I4,I8                                                MACROX    742
                                                  OR     P1,I9,I8                                                MACROX    743
                                         #MD      ENDIF                                                          MACROX    744
          1543  00060007100067000246 +            ENDR                                                           MACROX    745
                                                                                                                 MACROX    746
      L    205                           .NE.CMPX RMACRO 0,6,0                                                   MACROX    747
           256  20310000140001100001              FS     I1,P2,P3                                                MACROX    748
           257  20310000300001700002              FS     I2,P5,P6                                                MACROX    749
           260  20240000060000300003              PNR    I3,,I1                                                  MACROX    750
           261  21020000004000100004              CLR    I4                                                      MACROX    751
           262  20240000060000500005              PNR    I5,,I2                                                  MACROX    752
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    753
           263  20124000260000700006              OR     I6,I5,I3                                                MACROX    754
           264  21004000220001500007              ISZ    I7,I4,I6                                                MACROX    755
           265  20124000360001400002              OR     P1,I7,I6                                                MACROX    756
                                         #MD      ELSE                                                           MACROX    757
                                                  IAZ    I6,I4,I3                                                MACROX    758
                                                  IAZ    I7,I5,I4                                                MACROX    759
                                                  OR     I8,I6,I7                                                MACROX    760
                                                  ISZ    I9,I4,I8                                                MACROX    761
                                                  OR     P1,I9,I8                                                MACROX    762
                                         #MD      ENDIF                                                          MACROX    763
          1544  00060007100067000256 +            ENDR                                                           MACROX    764
                                                                                                                 MACROX    765
      L    206                           .EQ.REAL RMACRO 0,3,0                                                   MACROX    766
           266  20310000140001100001              FS     I1,P2,P3                                                MACROX    767
           267  20240000060000300002              PNR    I2,,I1                                                  MACROX    768
           270  21020000004000100003              CLR    I3                                                      MACROX    769
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    770
           271  21004000160000500004              ISZ    I4,I3,I2                                                MACROX    771
           272  2017                              EQV    P1,I2,I4                                                MACROX    772
                                         #MD      ELSE                                                           MACROX    773
                                                  IAZ    I4,I3,I2                                                MACROX    774
                                                  ISZ    I5,I3,I4                                                MACROX    775
                                                  EQV    P1,I4,I5                                                MACROX    776
                                         #MD      ENDIF                                                          MACROX    777
          1545  00030004050072000266 +            ENDR                                                           MACROX    778
                                                                                                                 MACROX    779
      L    207                           .EQ.INT  RMACRO 0,3,0                                                   MACROX    780
           273  20370000140001100001              IS     I1,P2,P3                                                MACROX    781
           274  21020000004000100002              CLR    I2                                                      MACROX    782
           275  20774000120000300003              IAZ    I3,I2,I1                                                MACROX    783
           276  21004000120000700004              ISZ    I4,I2,I3                                                MACROX    784
           277  20174000220000600002              EQV    P1,I4,I3                                                MACROX    785
          1546  00030004050072000273 +            ENDR                                                           MACROX    786
                                                                                                                 MACROX    787
      L    210                           .EQ.DBL  RMACRO 0,6,0                                                   MACROX    788
           300  20310000140001100001              FS     I1,P2,P3                                                MACROX    789
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    19
        LOGICAL/RELATIONAL MACROS                                     REL-MAC   MACTEXT 
  
           301  20240000060000300002              PNR    I2,,I1                                                  MACROX    790
           302  20310000300001700003              FS     I3,P5,P6                                                MACROX    791
           303  21020000004000100004              CLR    I4                                                      MACROX    792
           304  20240000060000500005              PNR    I5,,I2                                                  MACROX    793
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    794
           305  20124000260000500006              OR     I6,I5,I2                                                MACROX    795
           306  21004000220001500007              ISZ    I7,I4,I6                                                MACROX    796
           307  20174000360001400002              EQV    P1,I7,I6                                                MACROX    797
                                         #MD      ELSE                                                           MACROX    798
                                                  IAZ    I6,I4,I2                                                MACROX    799
                                                  IAZ    I7,I4,I5                                                MACROX    800
                                                  OR     I8,I6,I7                                                MACROX    801
                                                  ISZ    I9,I4,I8                                                MACROX    802
                                                  EQV    P1,I9,I8                                                MACROX    803
                                         #MD      ENDIF                                                          MACROX    804
          1547  00060007100067000300 +            ENDR                                                           MACROX    805
                                                                                                                 MACROX    806
      L    211                           .EQ.CMPX RMACRO 0,6,0                                                   MACROX    807
           310  20310000140001100001              FS     I1,P2,P3                                                MACROX    808
           311  20240000060000300002              PNR    I2,,I1                                                  MACROX    809
           312  20310000300001700003              FS     I3,P5,P6                                                MACROX    810
           313  21020000004000100004              CLR    I4                                                      MACROX    811
           314  20240000060000700005              PNR    I5,,I3                                                  MACROX    812
                                         #MD      IFEQ   .NRFCO,1                                                MACROX    813
           315  20124000260000500006              OR     I6,I5,I2                                                MACROX    814
           316  21004000220001500007              ISZ    I7,I4,I6                                                MACROX    815
           317  20174000360001400002              EQV    P1,I7,I6                                                MACROX    816
                                         #MD      ELSE                                                           MACROX    817
                                                  IAZ    I6,I4,I2                                                MACROX    818
                                                  IAZ    I7,I4,I5                                                MACROX    819
                                                  OR     I8,I6,I7                                                MACROX    820
                                                  ISZ    I9,I4,I8                                                MACROX    821
                                                  EQV    P1,I9,I8                                                MACROX    822
                                         #MD      ENDIF                                                          MACROX    823
          1550  00060007100067000310 +            ENDR                                                           MACROX    824
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    20
        ARITHMETIC OPERATIONS                                                   MACDESC 
  
      L    212                           SUB.REAL RMACRO 0,3,0       REAL - REAL                                 MACROX    826
           320  20310000140001100001              FS     I1,P2,P3                                                MACROX    827
           321  20240000020000200002              NR     P1,0,I1                                                 MACROX    828
          1551  00030001020075000320 +            ENDR                                                           MACROX    829
                                                                                                                 MACROX    830
      L    213                           SUB.INT  RMACRO 0,3,0       INTEGER - INTEGER                           MACROX    831
           322  20370000140001000002              IS     P1,P2,P3                                                MACROX    832
          1552  00030000010076000322 +            ENDR                                                           MACROX    833
                                                                                                                 MACROX    834
      L    214                           SUBD     RMACRO 0,6,0       DOUBLE - DOUBLE                             MACROX    835
           323  20310000140001100001              FS     I1,P2,P3                                                MACROX    836
           324  20330000140001100002              DFS    I2,P2,P3                                                MACROX    837
           325  20310000300001700003              FS     I3,P5,P6                                                MACROX    838
           326  20304000160000500005              FA     I5,I3,I2                                                MACROX    840
           327  20304000260000300006              FA     I6,I5,I1                                                FCC0491     5
           330  20240000020001500007              NR     I7,0,I6                                                 MACROX    842
           331  20324000260000300010              DFA    I8,I5,I1                                                FCC0491     6
           332  20240000020002100011              NR     I9,0,I8     THIS IS IN CASE A-B=0                       MACROX    844
           333  20304000460001600002              FA     P1,I9,I7                                                MACROX    845
           334  20324000460001600005              DFA    P4,I9,I7                                                MACROX    846
          1553  00060011120065000323 +            ENDR                                                           MACROX    847
                                                                                                                 MACROX    848
      L    215                           SUBC     RMACRO 0,6,0       COMPLEX - COMPLEX                           MACROX    849
           335  20310000140001100001              FS     I1,P2,P3                                                MACROX    850
           336  20240000020000200002              NR     P1,0,I1                                                 MACROX    851
           337  20310000300001700002              FS     I2,P5,P6                                                MACROX    852
           340  20240000020000400005              NR     P4,0,I2                                                 MACROX    853
          1554  00060002040073000335 +            ENDR                                                           MACROX    854
                                                                                                                 MACROX    855
      L    216                           ADD.REAL RMACRO 0,3,0       REAL + REAL                                 MACROX    856
           341  20300000200000700001              FA     I1,P3,P2                                                MACROX    857
           342  20240000020000200002              NR     P1,0,I1                                                 MACROX    858
          1555  00030001020075000341 +            ENDR                                                           MACROX    859
                                                                                                                 MACROX    860
      L    217                           ADD.INT  RMACRO 0,3,0       INTEGER + INTEGER                           MACROX    861
           343  20360000200000600002              IA     P1,P3,P2                                                MACROX    862
          1556  00030000010076000343 +            ENDR                                                           MACROX    863
                                                                                                                 MACROX    864
      L    220                           ADDD     RMACRO 0,6,0       DOUBLE + DOUBLE                             MACROX    865
           344  20300000200000700001              FA     I1,P3,P2                                                MACROX    866
           345  20320000200000700002              DFA    I2,P3,P2                                                MACROX    867
           346  20300000340001500003              FA     I3,P6,P5                                                MACROX    868
           347  20304000160000500005              FA     I5,I3,I2                                                MACROX    870
           350  20304000260000300006              FA     I6,I5,I1                                                FCC0491     7
           351  20240000020001500007              NR     I7,0,I6     I4 AND I5 COULD HAVE OPPOSITE SIGNS         MACROX    872
           352  20324000260000300010              DFA    I8,I5,I1                                                FCC0491     8
           353  20240000020002100011              NR     I9,0,I8                                                 MACROX    874
           354  20304000460001600002              FA     P1,I9,I7                                                MACROX    875
           355  20324000460001600005              DFA    P4,I9,I7                                                MACROX    876
          1557  00060011120065000344 +            ENDR                                                           MACROX    877
                                                                                                                 MACROX    878
      L    221                           ADDC     RMACRO 0,6,0       COMPLEX + COMPLEX                           MACROX    879
           356  20300000200000700001              FA     I1,P3,P2                                                MACROX    880
           357  20240000020000200002              NR     P1,0,I1                                                 MACROX    881
           360  20300000340001500002              FA     I2,P6,P5                                                MACROX    882
           361  20240000020000400005              NR     P4,0,I2                                                 MACROX    883
          1560  00060002040073000356 +            ENDR                                                           MACROX    884
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    21
        ARITHMETIC OPERATIONS                                                   MACDESC 
  
                                                                                                                 MACROX    885
      L    222                           MPY.REAL RMACRO 0,3,0       REAL * REAL                                 MACROX    886
           362  20400000200000600002              FM     P1,P3,P2                                                MACROX    887
          1561  00030000010076000362 +            ENDR                                                           MACROX    888
                                                                                                                 MACROX    889
      L    223                           MPY.INT  RMACRO 0,3,0       INTEGER * INTEGER                           MACROX    890
           363  21010000200000600002              IM     P1,P3,P2                                                MACROX    891
          1562  00030000010076000363 +            ENDR                                                           MACROX    892
                                                                                                                 MACROX    893
      L    224                           MPYD     RMACRO 0,6,0       DOUBLE * DOUBLE                             MACROX    894
           364  20400000300001100001              FM     I1,P5,P3    I1=L(A)*H(B)                                MACROX    895
           365  2040                              FM     I2,P2,P6    I2=H(A)*L(B)                                MACROX    896
           366  2030                              FA     I3,I1,I2    I3=I1+I2                                    MACROX    897
           367  2040                              FM     I4,P2,P3    I4=H(A)*H(B)                                MACROX    898
           370  2042                              DFM    I5,P2,P3    I5=H(A)L*H(B)                               MACROX    899
           371  2030                              FA     I6,I3,I5                                                MACROX    900
           372  2030                              FA     P1,I4,I6                                                MACROX    901
           373  2032                              DFA    P4,I4,I6                                                MACROX    902
          1563  00060006100067000364 +            ENDR                                                           MACROX    903
                                                                                                                 MACROX    904
      L    225                           MPYC     RMACRO 0,6,0       COMPLEX * COMPLEX                           MACROX    905
           374  2040                              FM     I1,P2,P3    I1=R(A)*R(B)                                MACROX    906
           375  2040                              FM     I2,P5,P6    I2=I(A)*I(B)                                MACROX    907
           376  20314000060000500003              FS     I3,I1,I2    I3=I1-I2                                    MACROX    908
           377  20240000020000600002              NR     P1,0,I3     P1=N(I3)                                    MACROX    909
           400  2040                              FM     I4,P2,P6    I4=R(A)*I(B)                                MACROX    910
           401  20400000300001100005              FM     I5,P5,P3    I5=I(A)*R(B)                                MACROX    911
           402  2030                              FA     I6,I4,I5    I6=I4+I5                                    MACROX    912
           403  20240000020001400005              NR     P4,0,I6     P4=N(I6)                                    MACROX    913
          1564  00060006100067000374 +            ENDR                                                           MACROX    914
                                                                                                                 MACROX    915
      L    226                           DIV.REAL RMACRO 0,3,0       REAL / REAL                                 MACROX    916
           404  20440000140001000002              FD     P1,P2,P3                                                MACROX    917
          1565  00030000010076000404 +            ENDR                                                           MACROX    918
                                                                                                                 MACROX    919
      L    227                           DIV.INT  RMACRO 0,3,0       INTEGER / INTEGER                           MACROX    920
           405  20270000000001100001              PK     I1,0,P3     I1=P(J)                                     MACROX    921
           406  20240000020000300002              NR     I2,0,I1     I2=N(I1)                                    MACROX    922
           407  20270000000000700003              PK     I3,0,P2     I3=P(I)                                     MACROX    923
           410  20444000160000500004              FD     I4,I3,I2                                                MACROX    924
           411  20264000320001100005              UP     I5,I6,I4                                                MACROX    925
           413  20224000320001200002              ILS    P1,I6,I5                                                MACROX    926
          1566  00030006070070000405 +            ENDR                                                           MACROX    927
                                                                                                                 MACROX    928
      L    230                           DIVD     RMACRO 0,6,0       DOUBLE / DOUBLE                             MACROX    929
           414  20440000140001100001              FD     I1,P2,P3    I1=HA/HB                                    MACROX    930
           415  20404000040001100002              FM     I2,I1,P3    GET HIGH ORDER REMAINDER                    MACROX    931
           416  20310000160000500003              FS     I3,P2,I2                                                MACROX    932
           417  20330000160000500004              DFS    I4,P2,I2                                                MACROX    933
           420  20240000020000700005              NR     I5,0,I3                                                 MACROX    934
           421  2030                              FA     I6,I4,I5                                                MACROX    935
           422  20424000040001100007              DFM    I7,I1,P3                                                MACROX    936
           423  20404000040001700010              FM     I8,I1,P6                                                MACROX    937
           424  20310000320001700011              FS     I9,P5,I7                                                MACROX    938
           425  2030                              FA     I10,I6,I9                                               MACROX    939
           426  20314000520002100013              FS     I11,I10,I8                                              MACROX    940
           427  20444000540001100014              FD     I12,I11,P3                                              MACROX    941
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    22
        ARITHMETIC OPERATIONS                                                   MACTEXT 
  
           430  2032                              DFA    I13,I1,I12                                              MACROX    942
           431  2030                              FA     I14,I1,I12                                              MACROX    943
           432  20240000020003500017              NR     I15,0,I14                                               MACROX    944
           433  2030                              FA     P1,I13,I15                                              MACROX    945
           434  2032                              DFA    P4,I13,I15                                              MACROX    946
          1567  00060017210056000414 +            ENDR                                                           MACROX    947
                                                                                                                 MACROX    948
      L    231                           DIVC     RMACRO 0,6,0       COMPLEX / COMPLEX                           MACROX    949
           435  2040                              FM     I1,P2,P6    I1=A*D                                      MACROX    950
           436  20400000300001100002              FM     I2,P5,P3    I2=B*C                                      MACROX    951
           437  20314000120000300003              FS     I3,I2,I1    I3=I2-I1                                    MACROX    952
           440  20240000020000700004              NR     I4,0,I3     I4=NR(I3)                                   MACROX    953
           441  2040                              FM     I5,P2,P3                                                MACROX    954
           442  2040                              FM     I6,P5,P6                                                MACROX    955
           443  2030                              FA     I7,I5,I6                                                MACROX    956
           444  20240000020001700010              NR     I8,0,I7     I8=N(A*C+B*D)                               MACROX    957
           445  20400000200001100011              FM     I9,P3,P3                                                MACROX    958
           446  20400000340001700012              FM     I10,P6,P6                                               MACROX    959
           447  2030                              FA     I11,I9,I10                                              MACROX    960
           450  20240000020002700014              NR     I12,0,I11                                               MACROX    961
           451  20444000420003000002              FD     P1,I8,I12                                               MACROX    962
           452  20444000220003000005              FD     P4,I4,I12                                               MACROX    963
          1570  00060014160061000435 +            ENDR                                                           MACROX    964
                                                                                                                 MACROX    965
      L    232                           UMINUS   RMACRO 0,2,0       -REAL OR -INTEGER                           MACROX    966
           453  20140000140000000002              XMTC   P1,P2                                                   MACROX    967
          1571  00020000010076000453 +            ENDR                                                           MACROX    968
                                                                                                                 MACROX    969
      L    233                           UMINUS2  RMACRO 0,4,0       -DOUBLE, -COMPLEX                           MACROX    970
           454  20140000140000000002              XMTC   P1,P2                                                   MACROX    971
           455  20140000240000000004              XMTC   P3,P4                                                   MACROX    972
          1572  00040000020075000454 +            ENDR                                                           MACROX    973
                                                                                                                 MACROX    974
      L    234                           RMINR    RMACRO 0,3,0       -A + B                                      MACROX    975
           456  20310000200000700001              FS     I1,P3,P2                                                MACROX    976
           457  20240000020000200002              NR     P1,0,I1                                                 MACROX    977
          1573  00030001020075000456 +            ENDR                                                           MACROX    978
                                                                                                                 MACROX    979
      L    235                           RMINI    RMACRO 0,3,0       REVERSE MINUS, INTEGER                      MACROX    980
           460  20370000200000600002              IS     P1,P3,P2                                                MACROX    981
          1574  00030000010076000460 +            ENDR                                                           MACROX    982
                                                                                                                 MACROX    983
      L    236                           RMIND    RMACRO 0,6,0       REVERSE MINUS, DOUBLE                       MACROX    984
           461  20310000200000700001              FS     I1,P3,P2                                                MACROX    985
           462  20330000200000700002              DFS    I2,P3,P2                                                MACROX    986
           463  20310000340001500003              FS     I3,P6,P5                                                MACROX    987
           464  2030                              FA     I5,I2,I3                                                MACROX    989
           465  2030                              FA     I6,I1,I5                                                FCC0491     9
           466  20240000020001500007              NR     I7,0,I6                                                 MACROX    991
           467  2032                              DFA    I8,I1,I5                                                FCC0491    10
           470  20240000020002100011              NR     I9,0,I8                                                 MACROX    993
           471  2030                              FA     P1,I7,I9                                                MACROX    994
           472  2032                              DFA    P4,I7,I9                                                MACROX    995
          1575  00060011120065000461 +            ENDR                                                           MACROX    996
                                                                                                                 MACROX    997
      L    237                           RMINC    RMACRO 0,6,0       REVERSE MINUS, COMPLEX                      MACROX    998
           473  20310000200000700001              FS     I1,P3,P2                                                MACROX    999
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    23
        ARITHMETIC OPERATIONS                                                   MACTEXT 
  
           474  20240000020000200002              NR     P1,0,I1                                                 MACROX   1000
           475  20310000340001500002              FS     I2,P6,P5                                                MACROX   1001
           476  20240000020000400005              NR     P4,0,I2                                                 MACROX   1002
          1576  00060002040073000473 +            ENDR                                                           MACROX   1003
                                                                                                                 MACROX   1004
      L    240                           RDIVR    RMACRO 0,3,0       REVERSE DIVIDE, REAL                        MACROX   1005
           477  20440000200000600002              FD     P1,P3,P2                                                MACROX   1006
          1577  00030000010076000477 +            ENDR                                                           MACROX   1007
                                                                                                                 MACROX   1008
      L    241                           DIVCR    RMACRO 0,6,0       COMPLEX / REAL                              MACROX   1009
           500  20440000140001000002              FD     P1,P2,P3                                                MACROX   1010
           501  20440000300001000005              FD     P4,P5,P3                                                MACROX   1011
          1600  00060000020075000500 +            ENDR                                                           MACROX   1012
                                                                                                                 MACROX   1013
      L    242                           RDIVD    RMACRO 0,6,0       REVERSE DIVIDE, DOUBLE                      MACROX   1014
           502  20440000200000700001              FD     I1,P3,P2                                                MACROX   1015
           503  20404000040000700002              FM     I2,I1,P2                                                MACROX   1016
           504  20310000220000500003              FS     I3,P3,I2                                                MACROX   1017
           505  20330000220000500004              DFS    I4,P3,I2                                                MACROX   1018
           506  20240000020000700005              NR     I5,0,I3                                                 MACROX   1019
           507  2030                              FA     I6,I4,I5                                                MACROX   1020
           510  20424000040000700007              DFM    I7,I1,P2                                                MACROX   1021
           511  20404000040001500010              FM     I8,I1,P5                                                MACROX   1022
           512  20310000360001700011              FS     I9,P6,I7                                                MACROX   1023
           513  2030                              FA     I10,I6,I9                                               MACROX   1024
           514  20314000520002100013              FS     I11,I10,I8                                              MACROX   1025
           515  20444000540000700014              FD     I12,I11,P2                                              MACROX   1026
           516  2032                              DFA    P4,I1,I12                                               MACROX   1027
           517  2030                              FA     P1,I1,I12                                               MACROX   1028
          1601  00060014160061000502 +            ENDR                                                           MACROX   1029
                                                                                                                 MACROX   1030
      L    243                           RDIVC    RMACRO 0,6,0       REVERSE DIVIDE, COMPLEX                     MACROX   1031
           520  2040                              FM     I1,P3,P5                                                MACROX   1032
           521  20400000340000700002              FM     I2,P6,P2                                                MACROX   1033
           522  20314000120000300003              FS     I3,I2,I1                                                MACROX   1034
           523  20240000020000700004              NR     I4,0,I3                                                 MACROX   1035
           524  20400000200000700005              FM     I5,P3,P2                                                MACROX   1036
           525  20400000340001500006              FM     I6,P6,P5                                                MACROX   1037
           526  2030                              FA     I7,I5,I6                                                MACROX   1038
           527  20240000020001700010              NR     I8,0,I7                                                 MACROX   1039
           530  20400000140000700011              FM     I9,P2,P2                                                MACROX   1040
           531  20400000300001500012              FM     I10,P5,P5                                               MACROX   1041
           532  2030                              FA     I11,I9,I10                                              MACROX   1042
           533  20240000020002700014              NR     I12,0,I11                                               MACROX   1043
           534  20444000420003000002              FD     P1,I8,I12                                               MACROX   1044
           535  20444000220003000005              FD     P4,I4,I12                                               MACROX   1045
          1602  00060014160061000520 +            ENDR                                                           MACROX   1046
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    24
        ROUNDED OPERATION MACROS                                                MACDESC 
  
      L    244                           SUBRREAL RMACRO 0,3,0       ROUNDED REAL SUBTRACT                       MACROX   1048
           536  20350000140001100001              RFS    I1,P2,P3                                                MACROX   1049
           537  20240000020000200002              NR     P1,0,I1                                                 MACROX   1050
          1603  00030001020075000536 +            ENDR                                                           MACROX   1051
                                                                                                                 MACROX   1052
      L    245                           SUBRCMPX RMACRO 0,6,0       ROUNDED COMPLEX SUBTRACT                    MACROX   1053
           540  20350000140001100001              RFS    I1,P2,P3                                                MACROX   1054
           541  20240000020000200002              NR     P1,0,I1                                                 MACROX   1055
           542  20350000300001700002              RFS    I2,P5,P6                                                MACROX   1056
           543  20240000020000400005              NR     P4,0,I2                                                 MACROX   1057
          1604  00060002040073000540 +            ENDR                                                           MACROX   1058
                                                                                                                 MACROX   1059
      L    246                           ADDRREAL RMACRO 0,3,0       ROUNDED REAL ADD                            MACROX   1060
           544  2034                              RFA    I1,P2,P3                                                MACROX   1061
           545  20240000020000200002              NR     P1,0,I1                                                 MACROX   1062
          1605  00030001020075000544 +            ENDR                                                           MACROX   1063
                                                                                                                 MACROX   1064
      L    247                           ADDRCMPX RMACRO 0,6,0       ROUNDED COMPLEX ADD                         MACROX   1065
           546  2034                              RFA    I1,P2,P3                                                MACROX   1066
           547  20240000020000200002              NR     P1,0,I1                                                 MACROX   1067
           550  2034                              RFA    I2,P5,P6                                                MACROX   1068
           551  20240000020000400005              NR     P4,0,I2                                                 MACROX   1069
          1606  00060002040073000546 +            ENDR                                                           MACROX   1070
                                                                                                                 MACROX   1071
      L    250                           MPYRREAL RMACRO 0,3,0       ROUNDED REAL MULTIPLY                       MACROX   1072
           552  2041                              RFM    P1,P2,P3                                                MACROX   1073
          1607  00030000010076000552 +            ENDR                                                           MACROX   1074
                                                                                                                 MACROX   1075
      L    251                           MPYRCMPX RMACRO 0,6,0       ROUNDED COMPLEX MULTIPLY                    MACROX   1076
           553  2041                              RFM    I1,P2,P3                                                MACROX   1077
           554  2041                              RFM    I2,P5,P6                                                MACROX   1078
           555  20354000060000500003              RFS    I3,I1,I2                                                MACROX   1079
           556  20240000020000600002              NR     P1,0,I3                                                 MACROX   1080
           557  2041                              RFM    I4,P2,P6                                                MACROX   1081
           560  20410000300001100005              RFM    I5,P5,P3                                                MACROX   1082
           561  2034                              RFA    I6,I4,I5                                                MACROX   1083
           562  20240000020001400005              NR     P4,0,I6                                                 MACROX   1084
          1610  00060006100067000553 +            ENDR                                                           MACROX   1085
                                                                                                                 MACROX   1086
      L    252                           DIVRREAL RMACRO 0,3,0       ROUNDED REAL DIVIDE                         MACROX   1087
           563  20450000140001000002              RFD    P1,P2,P3                                                MACROX   1088
          1611  00030000010076000563 +            ENDR                                                           MACROX   1089
                                                                                                                 MACROX   1090
      L    253                           DIVRCMPX RMACRO 0,6,0       ROUNDED COMPLEX DIVIDE                      MACROX   1091
           564  2041                              RFM    I1,P2,P6    P2*P6                                       MACROX   1092
           565  20410000300001100002              RFM    I2,P5,P3    P5*P3                                       MACROX   1093
           566  20354000120000300003              RFS    I3,I2,I1                                                MACROX   1094
           567  20240000020000700004              NR     I4,0,I3     P5*P3 - P2*P6                               MACROX   1095
           570  2041                              RFM    I5,P2,P3    P2*P3                                       MACROX   1096
           571  2041                              RFM    I6,P5,P6    P5*P6                                       MACROX   1097
           572  2034                              RFA    I7,I5,I6                                                MACROX   1098
           573  20240000020001700010              NR     I8,0,I7     P2*P3 + P5*P6                               MACROX   1099
           574  20410000200001100011              RFM    I9,P3,P3    P3**2                                       MACROX   1100
           575  20410000340001700012              RFM    I10,P6,P6   P6**2                                       MACROX   1101
           576  2034                              RFA    I11,I9,I10                                              MACROX   1102
           577  20240000020002700014              NR     I12,0,I11   P3**2 + P6**2                               MACROX   1103
           600  20454000420003000002              RFD    P1,I8,I12   (P2*P3 + P5*P6)/(P3**2 + P6**2)             MACROX   1104
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    25
        ROUNDED OPERATION MACROS                                                MACTEXT 
  
           601  20454000220003000005              RFD    P4,I4,I12   (P2*P3 + P5*P6)/(P3**2 + P6**2)             MACROX   1105
          1612  00060014160061000564 +            ENDR                                                           MACROX   1106
                                                                                                                 MACROX   1107
      L    254                           RMINREAL RMACRO 0,3,0       ROUNDED REAL REVERSE SUBTRACT               MACROX   1108
           602  20350000200000700001              RFS    I1,P3,P2                                                MACROX   1109
           603  20240000020000200002              NR     P1,0,I1                                                 MACROX   1110
          1613  00030001020075000602 +            ENDR                                                           MACROX   1111
                                                                                                                 MACROX   1112
      L    255                           RMINRCMP RMACRO 0,6,0       ROUNDED COMPLEX REVERSE SUBTRACT            MACROX   1113
           604  20350000200000700001              RFS    I1,P3,P2                                                MACROX   1114
           605  20240000020000200002              NR     P1,0,I1                                                 MACROX   1115
           606  20350000340001500002              RFS    I2,P6,P5                                                MACROX   1116
           607  20240000020000400005              NR     P4,0,I2                                                 MACROX   1117
          1614  00060002040073000604 +            ENDR                                                           MACROX   1118
                                                                                                                 MACROX   1119
      L    256                           RDIVRREL RMACRO 0,3,0       ROUNDED REAL REVERSE DIVIDE                 MACROX   1120
           610  20450000200000600002              RFD    P1,P3,P2                                                MACROX   1121
          1615  00030000010076000610 +            ENDR                                                           MACROX   1122
                                                                                                                 MACROX   1123
      L    257                           RDIVRCMP RMACRO 0,6,0       ROUNDED COMPLEX REVERSE DIVIDE              MACROX   1124
           611  2041                              RFM    I1,P3,P5    P3*P5                                       MACROX   1125
           612  20410000340000700002              RFM    I2,P6,P2    P6*P2                                       MACROX   1126
           613  20354000120000300003              RFS    I3,I2,I1                                                MACROX   1127
           614  20240000020000700004              NR     I4,0,I3     P3*P5 - P6*P2                               MACROX   1128
           615  20410000200000700005              RFM    I5,P3,P2    P3*P2                                       MACROX   1129
           616  20410000340001500006              RFM    I6,P6,P5    P6*P5                                       MACROX   1130
           617  2034                              RFA    I7,I5,I6                                                MACROX   1131
           620  20240000020001700010              NR     I8,0,I7     P3*P2 + P6*P5                               MACROX   1132
           621  20410000140000700011              RFM    I9,P2,P2    P2**2                                       MACROX   1133
           622  20410000300001500012              RFM    I10,P5,P5   P5**2                                       MACROX   1134
           623  2034                              RFA    I11,I9,I10                                              MACROX   1135
           624  20240000020002700014              NR     I12,0,I11   P2**2 + P5**2                               MACROX   1136
           625  20454000420003000002              RFD    P1,I8,I12   (P3*P2 + P6*P5)/(P2**2 + P5**2)             MACROX   1137
           626  20454000220003000005              RFD    P4,I4,I12   (P3*P5 - P6*P3)/(P2**2 + P5**2)             MACROX   1138
          1616  00060014160061000611 +            ENDR                                                           MACROX   1139
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    26
        INTRINSIC FUNCTION MACROS                                               MACDESC 
  
                                        **        INTRINSIC FUNCTION MACRO SKELTONS                              MACROX   1141
                                                                                                                 MACROX   1142
                                                                                                                 MACROX   1143
      L    260                           ABS      RMACRO 0,2,0                                                   MACROX   1144
           627  21030000100000100001              SXT    I1,P1                                                   MACROX   1145
           630  20210007320000300002              KRS    I2,I1,59                                                MACROX   1146
           631  20134000100000400003              XOR    P2,I2,P1    B                                           MACROX   1147
          1617  00020002030073000627 +            ENDR                                                           MACROX   1148
                                                                                                                 MACROX   1149
          1620  00000000000000400261              UNUSED                                                         MACROX   1150
                                                                                                                 MACROX   1151
      L    262                           DABS     RMACRO 0,4,0                                                   MACROX   1152
           632  21030000100000100001              SXT    I1,P1                                                   MACROX   1153
           633  20210007320000300002              KRS    I2,I1,59                                                MACROX   1154
           634  20134000100000400004              XOR    P3,I2,P1    B                                           MACROX   1155
           635  20134000100000600005              XOR    P4,I2,P2    B                                           MACROX   1156
          1621  00040002040072000632 +            ENDR                                                           MACROX   1157
                                                                                                                 MACROX   1158
      L    263                           AINT     RMACRO 0,2,0                                                   MACROX   1159
           636  21020000004000100001              CLR    I1                                                      MACROX   1160
           637  20270000020000300002              PK     I2,0,I1                                                 MACROX   1161
           640  20304000100000500003              FA     I3,I2,P1                                                MACROX   1162
           641  20240000020000600003              NR     P2,0,I3                                                 MACROX   1163
          1622  00020003040073000636 +            ENDR                                                           MACROX   1164
                                                                                                                 MACROX   1165
      L    264                           INT      RMACRO 0,2,0                                                   MACROX   1166
           642  20264000100000500001              UP     I1,I2,P1                                                MACROX   1167
           644  20224000120000200003              ILS    P2,I2,I1                                                MACROX   1168
          1623  00020002030074000642 +            ENDR                                                           MACROX   1169
                                                                                                                 MACROX   1170
      L    265                           IDINT    RMACRO 0,3,0                                                   MACROX   1171
           645  20264000100000500001              UP     I1,I2,P1                                                MACROX   1172
           647  20224000120000200004              ILS    P3,I2,I1                                                MACROX   1173
          1624  00030002030074000645 +            ENDR                                                           MACROX   1174
                                                                                                                 MACROX   1175
      L    266                           AMOD     RMACRO 0,3,0                                                   MACROX   1176
           650  20440000100000700001              FD     I1,P1,P2    F                                           MACROX   1177
           651  21020000004000100002              CLR    I2                                                      MACROX   1178
           652  20270000020000500003              PK     I3,0,I2                                                 MACROX   1179
           653  2030                              FA     I4,I1,I3                                                FCC1583AX  20
           654  20240000020001100005              NR     I5,0,I4                                                 FCC1583AX  21
           655  20404000240000700006              FM     I6,I5,P2                                                FCC1583AX  22
           656  20424000240000700007              DFM    I7,I5,P2                                                FCC1583AX  23
           657  20330000120001500010              DFS    I8,P1,I6                                                FCC1583AX  24
           660  20310000120001500011              FS     I9,P1,I6                                                FCC1583AX  25
           661  20314000420001700012              FS     I10,I8,I7                                               FCC1583AX  26
           662  20240000020002300013              NR     I11,0,I9                                                FCC1583AX  27
           663  2030                              FA     I12,I10,I11                                             FCC1583AX  28
           664  20240000020003000004              NR     P3,0,I12                                                FCC1583AX  29
          1625  00030014150062000650 +            ENDR                                                           MACROX   1185
                                                                                                                 MACROX   1186
      L    267                           MOD      RMACRO 0,3,0                                                   MACROX   1187
           665  20270000000000500001              PK     I1,,P1                                                  MACROX   1188
           666  20270000000000700002              PK     I2,,P2                                                  MACROX   1189
           667  20240000020000500003              NR     I3,,I2                                                  MACROX   1190
           670  20444000060000700004              FD     I4,I1,I3                                                MACROX   1191
           671  20264000320001100005              UP     I5,I6,I4                                                MACROX   1192
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    27
        INTRINSIC FUNCTION MACROS                                               MACTEXT 
  
           673  20224000320001300007              ILS    I7,I6,I5                                                MACROX   1193
           674  21014000340000700010              IM     I8,I7,P2                                                MACROX   1194
           675  20370000120002000004              IS     P3,P1,I8                                                MACROX   1195
          1626  00030010110066000665 +            ENDR                                                           MACROX   1196
                                                                                                                 MACROX   1197
      L    270                           FLOAT    RMACRO 0,2,0                                                   MACROX   1198
           676  20270000000000500001              PK     I1,,P1                                                  MACROX   1199
           677  20240000020000200003              NR     P2,,I1                                                  MACROX   1200
          1627  00020001020075000676 +            ENDR                                                           MACROX   1201
                                                                                                                 MACROX   1202
      L    271                           IFIX     RMACRO 0,2,0                                                   MACROX   1203
           700  20264000100000500001              UP     I1,I2,P1                                                MACROX   1204
           702  20224000120000200003              ILS    P2,I2,I1                                                MACROX   1205
          1630  00020002030074000700 +            ENDR                                                           MACROX   1206
                                                                                                                 MACROX   1207
      L    272                           SIGN     RMACRO 0,3,0                                                   MACROX   1208
           703  2013                              XOR    I1,P1,P2                                                FCC0491    11
           704  21034000040000100002              SXT    I2,I1                                                   FCC0491    12
           705  20210007320000500003              KRS    I3,I2,59                                                FCC0491    13
           706  2013                              XOR    P3,P1,I3                                                FCC0491    14
          1631  00030003040072000703 +            ENDR                                                           MACROX   1215
                                                                                                                 MACROX   1216
      L    273                           MODP2    RMACRO 0,2,1       MOD( I , 2**K1 )                            MACROX   1217
           707  21030000100000100001              SXT    I1,P1                                                   MACROX   1218
           710  20210007320000300002              KRS    I2,I1,59                                                MACROX   1219
           711  2013                              XOR    I3,P1,I2          ABS(P1)                               MACROX   1220
           712  20430000014000100004              FMA    I4,K1                                                   MACROX   1221
           713  20154000220000700005              STR    I5,I4,I3                                                MACROX   1222
           714  20134000260000400003              XOR    P2,I5,I2                                                MACROX   1223
          1632  01020005060070000707 +            ENDR                                                           MACROX   1224
                                                                                                                 MACROX   1225
      L    274                           DSIGN    RMACRO 0,6,0                                                   MACROX   1226
           715  21030000100000100001              SXT    I1,P1                                                   MACROX   1227
           716  20210007320000300002              KRS    I2,I1,59                                                MACROX   1228
           717  20134000100000500003              XOR    I3,I2,P1                                                MACROX   1229
           720  20134000100000700004              XOR    I4,I2,P2                                                MACROX   1230
           721  21030000200000100005              SXT    I5,P3                                                   MACROX   1231
           722  20210007320001300006              KRS    I6,I5,59                                                MACROX   1232
           723  20134000320000600006              XOR    P5,I6,I3                                                MACROX   1233
           724  20134000320001000007              XOR    P6,I6,I4                                                MACROX   1234
          1633  00060006100065000715 +            ENDR                                                           MACROX   1235
                                                                                                                 MACROX   1236
      L    275                           DIM      RMACRO 0,3,0                                                   MACROX   1237
           725  20310000100000700001              FS     I1,P1,P2                                                MACROX   1238
           726  20240000020000300002              NR     I2,0,I1                                                 MACROX   1239
           727  21034000040000100003              SXT    I3,I1                                                   MACROX   1240
           730  20210007320000700004              KRS    I4,I3,59                                                MACROX   1241
           731  20154000220000400004              STR    P3,I4,I2                                                MACROX   1242
          1634  00030004050071000725 +            ENDR                                                           MACROX   1243
                                                                                                                 MACROX   1244
      L    276                           IDIM     RMACRO 0,3,0                                                   MACROX   1245
           732  20370000100000700001              IS     I1,P1,P2                                                MACROX   1246
           733  21034000040000100002              SXT    I2,I1                                                   MACROX   1247
           734  20210007320000500003              KRS    I3,I2,59                                                MACROX   1248
           735  20154000160000200004              STR    P3,I3,I1                                                MACROX   1249
          1635  00030003040072000732 +            ENDR                                                           MACROX   1250
                                                                                                                 MACROX   1251
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    28
        INTRINSIC FUNCTION MACROS                                               MACDESC 
  
      L    277                           SNGL     RMACRO 0,3,0                                                   MACROX   1252
           736  20100000100000000004              XMT    P3,P1                                                   MACROX   1253
          1636  00030000010076000736 +            ENDR                                                           MACROX   1254
                                                                                                                 MACROX   1255
      L    300                           REAL     RMACRO 0,3,0                                                   MACROX   1256
           737  20100000100000000004              XMT    P3,P1                                                   MACROX   1257
          1637  00030000010076000737 +            ENDR                                                           MACROX   1258
                                                                                                                 MACROX   1259
      L    301                           AIMAG    RMACRO 0,3,0                                                   MACROX   1260
           740  20100000140000000004              XMT    P3,P2                                                   MACROX   1261
          1640  00030000010076000740 +            ENDR                                                           MACROX   1262
                                                                                                                 MACROX   1263
      L    302                           DBLE     RMACRO 0,3,0                                                   MACROX   1264
           741  20100000100000000003              XMT    P2,P1                                                   MACROX   1265
           742  21020000000000000004              CLR    P3,0                                                    MACROX   1266
          1641  00030000020075000741 +            ENDR                                                           MACROX   1267
                                                                                                                 MACROX   1268
      L    303                           CMPLX    RMACRO 0,4,0                                                   MACROX   1269
           743  20100000100000000004              XMT    P3,P1                                                   MACROX   1270
           744  20100000140000000005              XMT    P4,P2                                                   MACROX   1271
          1642  00040000020075000743 +            ENDR                                                           MACROX   1272
                                                                                                                 MACROX   1273
      L    304                           CONJG    RMACRO 0,4,0                                                   MACROX   1274
           745  21020000000000100001              CLR    I1,0                                                    MACROX   1275
           746  20100000100000000004              XMT    P3,P1                                                   MACROX   1276
           747  21004000040000600005              ISZ    P4,I1,P2    NOT TO GENERATE -0.                         MACROX   1277
          1643  00040001030074000745 +            ENDR                                                           MACROX   1278
                                                                                                                 MACROX   1279
      L    305                           SHIFT    RMACRO 0,3,0                                                   MACROX   1280
           750  20600000140000100001              SA     I1,P2                                                   MACROX   1281
           751  20040000004020500001              RS     I1,,SO.TLOCK+SBR                                        MACROX   1282
           752  20224000040000400004              ILS    P3,I1,P1                                                MACROX   1283
          1644  00030001030074000750 +            ENDR                                                           MACROX   1284
                                                                                                                 MACROX   1285
      L    306                           AND      RMACRO 0,3,0                                                   MACROX   1286
           753  20110000140000400004              AND    P3,P2,P1                                                MACROX   1287
          1645  00030000010076000753 +            ENDR                                                           MACROX   1288
                                                                                                                 MACROX   1289
      L    307                           OR       RMACRO 0,3,0                                                   MACROX   1290
           754  20120000140000400004              OR     P3,P2,P1                                                MACROX   1291
          1646  00030000010076000754 +            ENDR                                                           MACROX   1292
                                                                                                                 MACROX   1293
      L    310                           COMPL    RMACRO 0,2,0                                                   MACROX   1294
           755  20140000100000000003              XMTC   P2,P1                                                   MACROX   1295
          1647  00020000010076000755 +            ENDR                                                           MACROX   1296
                                                                                                                 MACROX   1297
      L    311                           MASK     RMACRO 0,2,0       VARIABLE LENGTH MASK                        MACROX   1298
           756  20430000010000100002              FMA    I2,1        1S59                                        MACROX   1299
           757  20520777600000500001              STT    I1,P1,-1    SHIFT COUNT - 1                             MACROX   1300
           760  20040000004020500001              RS     I1,,SO.TLOCK+SBR                                        MACROX   1301
           761  20234000060000500003              IRS    I3,I1,I2    CORRECT MASK IF CONST .GT. 0                MACROX   1302
           762  21034000140000100004              SXT    I4,I3       MOVE RESULT                                 MACROX   1303
           763  20210007320001100005              KRS    I5,I4,59    EXTEND SIGN                                 MACROX   1304
           764  20114000260000600003              AND    P2,I5,I3                                                MACROX   1305
          1650  00020005070066000756 +            ENDR                                                           MACROX   1306
                                                                                                                 MACROX   1307
      L    312                           MASK(C)  RMACRO 0,1,1       MASK(CON)                                   MACROX   1308
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    29
        INTRINSIC FUNCTION MACROS                                               MACTEXT 
  
           765  20430000014000000002              FMA    P1,K1                                                   MACROX   1309
          1651  01010000010076000765 +            ENDR                                                           MACROX   1310
                                                                                                                 MACROX   1311
      L    313                           KLSHIFT  RMACRO 0,2,1                                                   MACROX   1312
           766  21030000100000100001              SXT    I1,P1                                                   MACROX   1313
           767  20200000160000200003              KLS    P2,I1,K1                                                MACROX   1314
          1652  01020001020074000766 +            ENDR                                                           MACROX   1315
                                                                                                                 MACROX   1316
      L    314                           KRSHIFT  RMACRO 0,2,1                                                   MACROX   1317
           770  21030000100000100001              SXT    I1,P1                                                   MACROX   1318
           771  20210000160000200003              KRS    P2,I1,K1                                                MACROX   1319
          1653  01020001020074000770 +            ENDR                                                           MACROX   1320
                                                                                                                 MACROX   1321
          1654  00000000000000400315              UNUSED                                                         MACROX   1322
                                                                                                                 MACROX   1323
      L    316                           XOR      RMACRO 0,3,0       Y = XOR(A,B)                                MACROX   1324
           772  20130000140000400004              XOR    P3,P2,P1                                                MACROX   1325
          1655  00030000010076000772 +            ENDR                                                           MACROX   1326
                                                                                                                 MACROX   1327
      L    317                           COUNT    RMACRO 0,2,0       Y = COUNT(A)                                MACROX   1328
           773  20470000100000000003              CX     P2,P1                                                   MACROX   1329
          1656  00020000010076000773 +            ENDR                                                           MACROX   1330
                                                                                                                 MACROX   1331
      L    320                           UNPEXP   RMACRO 0,2,0       EXP = UNPEXP(A)                             MACROX   1332
           774  20264000100000500001              UP     I1,I2,P1                                                MACROX   1333
           776  20604000100000000003              SA     P2,I2       MOVE TO AN X REGISTER                       MACROX   1334
          1657  00020002030074000774 +            ENDR                                                           MACROX   1335
                                                                                                                 MACROX   1336
      L    321                           UNPCOE   RMACRO 0,2,0       COE = UNPCOE(A)                             MACROX   1337
           777  20260000000000400003              UP     P2,0,P1     P2 = COEFFICIENT                            MACROX   1338
          1660  00020000010076000777 +            ENDR                                                           MACROX   1339
                                                                                                                 MACROX   1340
      L    322                           PKEXPCO  RMACRO 0,3,0                                                   MACROX   1341
          1000  20600000100000100001              SA     I1,P1       MOVE EXPONENT TO A B REGISTER               MACROX   1342
          1001  20040000004020500001              RS     I1,,SO.TLOCK+SBR                                        MACROX   1343
          1002  20274000040000600004              PK     P3,I1,P2                                                MACROX   1344
          1661  00030001030074001000 +            ENDR                                                           MACROX   1345
                                                                                                                 MACROX   1346
      L    323                           RANF(0)  RMACRO 1,1,0       Y = RANF(0)                                 MACROX   1347
          1003  20501000000000100001              LD     I1,0,0,1    I1 = RANDOM.  ( SEED )                      MACROX   1348
          1004  20501000100000100002              LD     I2,0,1,1    I2 = RANMLT. ( MULTIPLIER )                 MACROX   1349
                                        *                                  LOCF(RANMLT.) = LOCF(RANDOM.)+1       MACROX   1350
          1005  20424000120000300003              DFM    I3,I2,I1                                                MACROX   1351
          1006  20240000020000600002              NR     P1,0,I3     RESULT = NORM(I1*I2)                        MACROX   1352
          1007  20511000000000100003              ST     I3,0,0,1    UPDATE SEED                                 MACROX   1353
          1662  00010103050067001003 +            ENDR                                                           MACROX   1354
                                                                                                                 MACROX   1355
      L    324                           SETX     RMACRO 0,2,0       SHORT SET FUNCTION                          MACROX   1356
          1010  20600000100000000003              SA     P2,P1                                                   MACROX   1357
          1663  00020000010076001010 +            ENDR                                                           MACROX   1358
                                                                                                                 MACROX   1359
      L    325                           DMULTF   RMACRO 0,3,0       P3 = D(P1*P2)                               MACROX   1360
          1011  20420000140000400004              DFM    P3,P2,P1                                                MACROX   1361
          1664  00030000010076001011 +            ENDR                                                           MACROX   1362
                                                                                                                 MACROX   1363
      L    326                           NORM     RMACRO 0,2,0       NORMALIZE ARGUMENT                          MACROX   1364
          1012  20240000000000400003              NR     P2,0,P1                                                 MACROX   1365
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    30
        INTRINSIC FUNCTION MACROS                                               MACDESC 
  
          1665  00020000010076001012 +            ENDR                                                           MACROX   1366
                                                                                                                 MACROX   1367
      L    327                           NORMC    RMACRO 0,2,0       RETURN NORMALIZATION COUNT                  MACROX   1368
          1013  20244000040000500002              NR     I2,I1,P1                                                MACROX   1369
          1015  20604000040000000003              SA     P2,I1                                                   MACROX   1370
          1666  00020002030074001013 +            ENDR                                                           MACROX   1371
                                                                                                                 MACROX   1372
      L    330                           IFTHEN   RMACRO 0,4,0       Y = IFTHEN(LOGICAL,A,B)                     MACROX   1373
          1016  21030000100000100001              SXT    I1,P1                                                   MACROX   1374
          1017  20210007320000300002              KRS    I2,I1,59                                                MACROX   1375
          1020  20114000100000700003              AND    I3,I2,P2    L & A                                       MACROX   1376
          1021  20154000100001100004              STR    I4,I2,P3    ^L & B                                      MACROX   1377
          1022  20364000220000600005              IA     P4,I4,I3                                                MACROX   1378
          1667  00040004050071001016 +            ENDR                                                           MACROX   1379
                                                                                                                 MACROX   1380
      L    331                           FADD     RMACRO 0,3,0       Y = FADD(A,B)                               MACROX   1381
          1023  20300000140000400004              FA     P3,P2,P1                                                MACROX   1382
          1670  00030000010076001023 +            ENDR                                                           MACROX   1383
                                                                                                                 MACROX   1384
      L    332                           RADD     RMACRO 0,3,0       Y = RADD(A,B)                               MACROX   1385
          1024  20340000140000400004              RFA    P3,P2,P1                                                MACROX   1386
          1671  00030000010076001024 +            ENDR                                                           MACROX   1387
                                                                                                                 MACROX   1388
      L    333                           FSUB     RMACRO 0,3,0       Y = FSUB(A,B)                               MACROX   1389
          1025  20310000100000600004              FS     P3,P1,P2                                                FCC0408   108
          1672  00030000010076001025 +            ENDR                                                           MACROX   1391
                                                                                                                 MACROX   1392
      L    334                           RSUB     RMACRO 0,3,0       Y = RSUB(A,B)                               MACROX   1393
          1026  20350000100000600004              RFS    P3,P1,P2                                                FCC0408   109
          1673  00030000010076001026 +            ENDR                                                           MACROX   1395
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    31
        MAX/MIN MACROS                                                          MACDESC 
  
      L    335                           MAXI     RMACRO 0,3,0       MAX INTEGER                                 MACROX   1397
          1027  20370000100000700001              IS     I1,P1,P2    I                                           MACROX   1398
          1030  21034000040000100002              SXT    I2,I1       B                                           MACROX   1399
          1031  20210007320000500003              KRS    I3,I2,59    A                                           MACROX   1400
          1032  20130000140000500004              XOR    I4,P2,P1                                                FCC1108     5
          1033  20114000220000700005              AND    I5,I4,I3                                                FCC1108     6
          1034  20134000240000400004              XOR    P3,I5,P1                                                FCC1108     7
          1674  00030005060070001027 +            ENDR                                                           MACROX   1404
                                                                                                                 MACROX   1405
      L    336                           MAXR     RMACRO 0,3,0       MAX REAL                                    MACROX   1406
          1035  20310000100000700001              FS     I1,P1,P2                                                MACROX   1407
          1036  21034000040000100002              SXT    I2,I1                                                   MACROX   1408
          1037  20210007320000500003              KRS    I3,I2,59                                                MACROX   1409
          1040  20130000140000500004              XOR    I4,P2,P1                                                FCC1108     8
          1041  20114000220000700005              AND    I5,I4,I3                                                FCC1108     9
          1042  20134000240000400004              XOR    P3,I5,P1                                                FCC1108    10
          1675  00030005060070001035 +            ENDR                                                           MACROX   1413
                                                                                                                 MACROX   1414
      L    337                           MAXD     RMACRO 0,6,0       MAX DOUBLE                                  MACROX   1415
          1043  20310000100001100001              FS     I1,P1,P3    GET SIGN OF ARG1-ARG2                       MACROX   1416
          1044  20330000100001100002              DFS    I2,P1,P3                                                MACROX   1417
          1045  20310000140001300003              FS     I3,P2,P4                                                MACROX   1418
          1046  20240000020000300004              NR     I4,0,I1                                                 MACROX   1419
          1047  2030                              FA     I5,I2,I3                                                MACROX   1420
          1050  2030                              FA     I6,I4,I5                                                MACROX   1421
          1051  21034000300000100007              SXT    I7,I6       EXTEND SIGN                                 MACROX   1422
          1052  20210007320001700010              KRS    I8,I7,59                                                MACROX   1423
          1053  2013                              XOR    I9,P1,P3                                                FCC1108    11
          1054  2013                              XOR    I10,P2,P4                                               FCC1108    12
          1055  2011                              AND    I11,I8,I9                                               FCC1108    13
          1056  20134000540000400006              XOR    P5,I11,P1                                               FCC1108    14
          1057  2011                              AND    I12,I8,I10                                              FCC1108    15
          1060  20134000600000600007              XOR    P6,I12,P2                                               FCC1108    16
          1676  00060014160060001043 +            ENDR                                                           MACROX   1430
                                                                                                                 MACROX   1431
      L    340                           MINI     RMACRO 0,3,0       MIN INTEGER                                 MACROX   1432
          1061  20370000100000700001              IS     I1,P1,P2                                                FCC1108    17
          1062  21034000040000100002              SXT    I2,I1                                                   MACROX   1434
          1063  20210007320000500003              KRS    I3,I2,59                                                MACROX   1435
          1064  20130000140000500004              XOR    I4,P2,P1                                                FCC1108    18
          1065  20114000220000700005              AND    I5,I4,I3                                                FCC1108    19
          1066  20134000240000600004              XOR    P3,I5,P2                                                FCC1108    20
          1677  00030005060070001061 +            ENDR                                                           MACROX   1439
                                                                                                                 MACROX   1440
      L    341                           MINR     RMACRO 0,3,0       MIN REAL                                    MACROX   1441
          1067  20310000100000700001              FS     I1,P1,P2                                                FCC1108    21
          1070  21034000040000100002              SXT    I2,I1                                                   MACROX   1443
          1071  20210007320000500003              KRS    I3,I2,59                                                MACROX   1444
          1072  20130000140000500004              XOR    I4,P2,P1                                                FCC1108    22
          1073  20114000220000700005              AND    I5,I4,I3                                                FCC1108    23
          1074  20134000240000600004              XOR    P3,I5,P2                                                FCC1108    24
          1700  00030005060070001067 +            ENDR                                                           MACROX   1448
                                                                                                                 MACROX   1449
      L    342                           MIND     RMACRO 0,6,0       MIN DOUBLE                                  MACROX   1450
          1075  20310000100001100001              FS     I1,P1,P3                                                FCC1108    25
          1076  20330000100001100002              DFS    I2,P1,P3                                                FCC1108    26
          1077  20310000140001300003              FS     I3,P2,P4                                                FCC1108    27
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    32
        MAX/MIN MACROS                                                          MACTEXT 
  
          1100  20240000020000300004              NR     I4,0,I1                                                 MACROX   1454
          1101  2030                              FA     I5,I2,I3                                                MACROX   1455
          1102  2030                              FA     I6,I4,I5                                                MACROX   1456
          1103  21034000300000100007              SXT    I7,I6                                                   MACROX   1457
          1104  20210007320001700010              KRS    I8,I7,59                                                MACROX   1458
          1105  2013                              XOR    I9,P1,P3                                                FCC1108    28
          1106  2013                              XOR    I10,P2,P4                                               FCC1108    29
          1107  2011                              AND    I11,I8,I9                                               FCC1108    30
          1110  20134000540001000006              XOR    P5,I11,P3                                               FCC1108    31
          1111  2011                              AND    I12,I8,I10                                              FCC1108    32
          1112  20134000600001200007              XOR    P6,I12,P4                                               FCC1108    33
          1701  00060014160060001075 +            ENDR                                                           MACROX   1465
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    33
        I/O MACROS                                                    I/O-MAC   MACDESC 
  
                                        *         FORMAT I/O LIST ELEMENT AT EXECUTION TIME                      MACROX   1467
                                                                                                                 MACROX   1468
      L    343                           IOAPL    RMACRO 0,3,1       12/TYPE,24/ITEMCT,24/ADDR                   MACROX   1469
          1113  20550000014000100001              S      I1,K1          K1      P1        P2                     MACROX   1470
          1114  21034000040000100002              SXT    I2,I1                                                   MACROX   1471
          1115  20200006020000500003              KLS    I3,I2,48                                                MACROX   1472
          1116  20430000440000100004              FMA    I4,36                                                   MACROX   1473
          1117  20154000200000500005              STR    I5,I4,P1                                                MACROX   1474
          1120  21034000240000100006              SXT    I6,I5                                                   MACROX   1475
          1121  20200003020001500007              KLS    I7,I6,24                                                MACROX   1476
          1122  20124000360000700010              OR     I8,I7,I3                                                MACROX   1477
          1123  20364000400000600004              IA     P3,I8,P2                                                MACROX   1478
          1702  01030010110064001113 +            ENDR                                                           MACROX   1479
                                                                                                                 MACROX   1480
      L    344                           SSORI    RMACRO 0,2,2       SET, SHIFT, OR                              MACROX   1481
          1124  20550000014000100001              S      I1,K1                                                   MACROX   1482
          1125  21034000040000100002              SXT    I2,I1                                                   MACROX   1483
          1126  20200000260000500003              KLS    I3,I2,K2                                                MACROX   1484
          1127  20124000140000600002              OR     P1,I3,P2                                                MACROX   1485
          1703  02020003040072001124 +            ENDR                                                           MACROX   1486
                                                                                                                 MACROX   1487
      L    345                           MSORI    RMACRO 0,2,2             MASK, SHIFT, OR                       MACROX   1488
          1130  20430000014000100001              FMA    I1,K1                                                   MACROX   1489
          1131  21034000040000100002              SXT    I2,I1                                                   MACROX   1490
          1132  20200000260000500003              KLS    I3,I2,K2                                                MACROX   1491
          1133  20124000140000600002              OR     P1,I3,P2                                                MACROX   1492
          1704  02020003040072001130 +            ENDR                                                           MACROX   1493
                                                                                                                 MACROX   1494
                                        *         MACROS TO COMPUTE PRODUCT OF DIMENSIONS OF AN ARRAY            MACROX   1495
                                                                                                                 MACROX   1496
      L    346                           V1       RMACRO 3,1,1                                                   MACROX   1497
          1134  20501000000000100001              LD     I1,0,0,1                                                MACROX   1498
          1135  20104000040000000002              XMT    P1,I1                                                   MACROX   1499
          1705  01010301020074001134 +            ENDR                                                           MACROX   1500
                                                                                                                 MACROX   1501
      L    347                           V2       RMACRO 3,1,1                                                   MACROX   1502
          1136  20501000000000100001              LD     I1,0,0,1                                                MACROX   1503
          1137  20502000000000100002              LD     I2,0,0,2                                                MACROX   1504
          1140  21014000120000200002              IM     P1,I2,I1                                                MACROX   1505
          1706  01010302030072001136 +            ENDR                                                           MACROX   1506
                                                                                                                 MACROX   1507
      L    350                           V3       RMACRO 3,1,1                                                   MACROX   1508
          1141  20501000000000100001              LD     I1,0,0,1                                                MACROX   1509
          1142  20502000000000100002              LD     I2,0,0,2                                                MACROX   1510
          1143  20503000000000100003              LD     I3,0,0,3                                                MACROX   1511
          1144  21014000120000300004              IM     I4,I2,I1                                                MACROX   1512
          1145  21014000220000600002              IM     P1,I4,I3                                                MACROX   1513
          1707  01010304050067001141 +            ENDR                                                           MACROX   1514
                                                                                                                 MACROX   1515
      L    351                           V1C1     RMACRO 3,1,1                                                   MACROX   1516
          1146  20501000000000100001              LD     I1,0,0,1                                                MACROX   1517
          1147  20550000014000100002              S      I2,K1                                                   MACROX   1518
          1150  21014000120000200002              IM     P1,I2,I1                                                MACROX   1519
          1710  01010302030073001146 +            ENDR                                                           MACROX   1520
                                                                                                                 MACROX   1521
      L    352                           V2C1     RMACRO 3,1,1                                                   MACROX   1522
          1151  20501000000000100001              LD     I1,0,0,1                                                MACROX   1523
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    34
        I/O MACROS                                                    I/O-MAC   MACTEXT 
  
          1152  20502000000000100002              LD     I2,0,0,2                                                MACROX   1524
          1153  20550000014000100003              S      I3,K1                                                   MACROX   1525
          1154  21014000120000300004              IM     I4,I2,I1                                                MACROX   1526
          1155  21014000220000600002              IM     P1,I4,I3                                                MACROX   1527
          1711  01010304050070001151 +            ENDR                                                           MACROX   1528
                                                                                                                 MACROX   1529
      L    353                           BCM.V30  RMACRO 3,1,1                                                   MACROX   1530
          1156  20501000000000100001              LD     I1,0,0,1                                                MACROX   1531
          1157  20502000000000100002              LD     I2,0,0,2                                                MACROX   1532
          1160  20503000000000100003              LD     I3,0,0,3                                                MACROX   1533
          1161  21014000120000300004              IM     I4,I2,I1                                                MACROX   1534
          1162  20364000160000700005              IA     I5,I3,I3                                                MACROX   1535
          1163  21014000260001000002              IM     P1,I5,I4                                                MACROX   1536
          1712  01010305060066001156 +            ENDR                                                           MACROX   1537
                                                                                                                 MACROX   1538
                                        **        COLLAPSED I/O LIST MACROS                                      MACROX   1539
                                        *         PARAMETERS USED --                                             MACROX   1540
                                        *                   1        I/O ROUTINE NAME SYMBOL ORDINAL             MACROX   1541
                                        *                   2,K2     FIRST VARIABLE (BASE,BIAS)                  MACROX   1542
                                        *                   3,K3     SECOND VARIABLE (BASE,BIAS) IF PRESENT      MACROX   1543
                                        *                   K1       CONSTANT (OR CONSTANT MULTIPLIER)           MACROX   1544
                                        *                   K3       (SECOND CONSTANT IF PRESENT)                MACROX   1545
                                        *                   P1       FIRST WORD ADDRESS                          MACROX   1546
                                        *                   P2       LAST WORD ADDRESS + 1 OR                    MACROX   1547
                                        *                            R-NUMBER TO PLACE LENGTH INTO               MACROX   1548
                                                                                                                 MACROX   1549
      L    354                           IOLP1C   RMACRO 4,6,4       LENGTH = CON                                MACROX   1550
          1164  20550000014000100001              S      I1,K1                                                   MACROX   1551
          1165  21034000040000100002              SXT    I2,I1                                                   MACROX   1552
          1166  20200003020000500003              KLS    I3,I2,24                                                MACROX   1553
          1167  20550000044000100004              S      I4,K4                                                   MACROX   1554
          1170  21034000200000100005              SXT    I5,I4                                                   MACROX   1555
          1171  20200006020001300006              KLS    I6,I5,48                                                MACROX   1556
          1172  2012                              OR     I7,I3,I6                                                MACROX   1557
          1173  2036                              IA     P1,P2,I7                                                MACROX   1558
          1713  04060407100065001164 +            ENDR                                                           MACROX   1559
                                                                                                                 MACROX   1560
      L    355                           IOLCVMC  RMACRO 4,6,4       P2=FWA, LEN=CON*(VAR-CON)                   MACROX   1561
          1174  20502000240000100001              LD     I1,,K2,2                                                MACROX   1562
          1175  20550000034000100002              S      I2,K3                                                   MACROX   1563
          1176  20374000060000500003              IS     I3,I1,I2                                                FEAT123A    5
          1177  20550000014000100004              S      I4,K1                                                   FEAT123A    6
          1200  2101                              IM     P1,I3,I4                                                FEAT123A    7
          1714  04060404050071001174 +            ENDR                                                           MACROX   1573
                                                                                                                 MACROX   1574
      L    356                           IOLCCMV  RMACRO 4,6,4       LEN=CON*(CON-VAR)                           MACROX   1575
          1201  20502000240000100001              LD     I1,,K2,2                                                MACROX   1576
          1202  20550000034000100002              S      I2,K3                                                   MACROX   1577
          1203  20374000120000300003              IS     I3,I2,I1                                                FEAT123A    8
          1204  20550000014000100004              S      I4,K1                                                   FEAT123A    9
          1205  2101                              IM     P1,I3,I4                                                FEAT123A   10
          1715  04060404050071001201 +            ENDR                                                           MACROX   1587
                                                                                                                 MACROX   1588
      L    357                           IOLCVMV  RMACRO 4,6,4       LEN=CON*(VAR-VAR)                           MACROX   1589
          1206  20502000240000100001              LD     I1,,K2,2                                                MACROX   1590
          1207  20503000340000100002              LD     I2,,K3,3                                                MACROX   1591
          1210  20374000120000300003              IS     I3,I2,I1    L-1=VAR-VAR                                 MACROX   1592
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    35
        I/O MACROS                                                    I/O-MAC   MACTEXT 
  
          1211  20430000730000100004              FMA    I4,59                                                   FEAT123A   11
          1212  20374000160001100005              IS     I5,I3,I4                                                FEAT123A   12
          1213  20550000014000100006              S      I6,K1                                                   FEAT123A   13
          1214  2101                              IM     P1,I5,I6                                                FEAT123A   14
          1716  04060406070066001206 +            ENDR                                                           MACROX   1600
                                                                                                                 MACROX   1601
      L    360                           IOLCV    RMACRO 4,6,4       LEN=CON*VAR                                 MACROX   1602
          1215  20502000240000100001              LD     I1,,K2,2                                                MACROX   1603
          1216  20550000014000100002              S      I2,K1                                                   FEAT123A   15
          1217  2101                              IM     P1,I1,I2                                                FEAT123A   16
          1717  04060402030073001215 +            ENDR                                                           MACROX   1612
                                                                                                                 MACROX   1613
      L    361                           IOLP1P2  RMACRO 4,6,4       LENGTH = LWA+1 - FWA                        MACROX   1614
          1220  20370000200000700001              IS     I1,P3,P2                                                MACROX   1615
          1221  20550000044000100011              S      I9,K4                                                   MACROX   1623
          1222  21034000440000100012              SXT    I10,I9                                                  MACROX   1624
          1223  20200006020002500013              KLS    I11,I10,48                                              MACROX   1625
          1224  20430000440000100014              FMA    I12,36                                                  MACROX   1626
          1225  20154000620000300015              STR    I13,I12,I1                                              FEAT123A   17
          1226  21034000640000100016              SXT    I14,I13                                                 MACROX   1628
          1227  20200000160003500017              KLS    I15,I14,K1                                              MACROX   1629
          1230  2012                              OR     I16,I11,I15                                             MACROX   1630
          1231  2036                              IA     P1,P2,I16                                               MACROX   1631
          1720  04060420120063001220 +            ENDR                                                           MACROX   1632
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    36
        IF MACROS                                                     IF-MAC    MACDESC 
  
      L    362                           IF(R)123 RMACRO 3,2,0       IF (REAL   )  1, 2, 3                       MACROX   1634
          1232  20662000000000000002              ZR     P1,2                                                    MACROX   1635
          1233  20663000200000000002              PL     P1,3                                                    MACROX   1636
          1234  20730000000000000001              UJP    0,1                                                     MACROX   1637
          1721  00020300030572001232 +   IF       ENDR                                                           MACROX   1638
                                 362     IF(I)123 EQU    IF(R)123                                                MACROX   1639
                                 362     IF(D)123 EQU    IF(R)123                                                MACROX   1640
                                                                                                                 MACROX   1641
      L    363                           IF(R)122 RMACRO 3,2,0       IF (REAL   )  1, 2, 2                       MACROX   1642
                                         #MD      IFEQ   .NRFCO,1                                                MACROX   1643
          1235  20240000040000500001              PNR    I1,,P1                                                  MACROX   1644
          1236  20662000200000100001              PL     I1,2                                                    MACROX   1645
                                         #MD      ELSE                                                           MACROX   1646
                                                  CLR    I1                                                      MACROX   1647
                                                  IAZ    I2,I1,P1                                                MACROX   1648
                                                  PL     I2,2                                                    MACROX   1649
                                         #MD      ENDIF                                                          MACROX   1650
          1237  20730000000000000001              UJP    0,1                                                     MACROX   1651
          1722  00020301030573001235 +   IF       ENDR                                                           MACROX   1652
                                                                                                                 MACROX   1653
      L    364                           IF(I)122 RMACRO 3,2,0       IF (INTEGER)  1, 2, 2                       MACROX   1654
          1240  21020000004000100001              CLR    I1                                                      MACROX   1655
          1241  20774000040000500002              IAZ    I2,I1,P1                                                MACROX   1656
          1242  20662000200000100002              PL     I2,2                                                    MACROX   1657
          1243  20730000000000000001              UJP    0,1                                                     MACROX   1658
          1723  00020302040572001240 +   IF       ENDR                                                           MACROX   1659
                                 363     IF(D)122 EQU    IF(R)122                                                MACROX   1660
                                                                                                                 MACROX   1661
      L    365                           IF(R)113 RMACRO 3,2,0       IF (REAL   )  1, 1, 3                       MACROX   1662
                                         #MD      IFEQ   .NRFCO,1                                                MACROX   1663
          1244  20140000100000100001              XMTC   I1,P1                                                   MACROX   1664
          1245  20240000060000300002              PNR    I2,,I1                                                  MACROX   1665
                                         #MD      ELSE                                                           MACROX   1666
                                                  CLR    I1                                                      MACROX   1667
                                                  ISZ    I2,I1,P1                                                MACROX   1668
                                         #MD      ENDIF                                                          MACROX   1669
          1246  20661000200000100002              PL     I2,1                                                    MACROX   1670
          1247  20730000000000000003              UJP    0,3                                                     MACROX   1671
          1724  00020302040572001244 +   IF       ENDR                                                           MACROX   1672
                                                                                                                 MACROX   1673
      L    366                           IF(I)113 RMACRO 3,2,0       IF (INTEGER)  1, 1, 3                       MACROX   1674
          1250  21020000004000100001              CLR    I1                                                      MACROX   1675
          1251  21004000040000500002              ISZ    I2,I1,P1                                                MACROX   1676
          1252  20661000200000100002              PL     I2,1                                                    MACROX   1677
          1253  20730000000000000003              UJP    0,3                                                     MACROX   1678
          1725  00020302040572001250 +   IF       ENDR                                                           MACROX   1679
                                 365     IF(D)113 EQU    IF(R)113                                                MACROX   1680
                                                                                                                 MACROX   1681
      L    367                           IF(R)121 RMACRO 3,2,0       IF (REAL   )  1, 2, 1                       MACROX   1682
          1254  20662000000000000002              ZR     P1,2                                                    MACROX   1683
          1255  20730000000000000001              UJP    0,1                                                     MACROX   1684
          1726  00020300020574001254 +   IF       ENDR                                                           MACROX   1685
                                 367     IF(I)121 EQU    IF(R)121                                                MACROX   1686
                                 367     IF(D)121 EQU    IF(R)121                                                MACROX   1687
                                                                                                                 MACROX   1688
      L    370                           IF(R)N23 RMACRO 3,2,0       IF (REAL   )  N, 2, 3                       MACROX   1689
          1256  20662000000000000002              ZR     P1,2                                                    MACROX   1690
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    37
        IF MACROS                                                     IF-MAC    MACTEXT 
  
          1257  20663000200000000002              PL     P1,3                                                    MACROX   1691
          1727  00020300020573001256 +   IF       ENDR                                                           MACROX   1692
                                 370     IF(I)N23 EQU    IF(R)N23                                                MACROX   1693
                                 370     IF(D)N23 EQU    IF(R)N23                                                MACROX   1694
                                                                                                                 MACROX   1695
      L    371                           IF(R)1N3 RMACRO 3,2,0       IF (REAL   )  1, N, 3                       MACROX   1696
                                         #MD      IFEQ   .NRFCO,1                                                MACROX   1697
          1260  20240000040000500001              PNR    I1,,P1                                                  MACROX   1698
          1261  20661000300000100001              MI     I1,1                                                    MACROX   1699
          1262  20663000100000100001              NZ     I1,3                                                    MACROX   1700
                                         #MD      ELSE                                                           MACROX   1701
                                                  CLR    I1                                                      MACROX   1702
                                                  IAZ    I2,I1,P1                                                MACROX   1703
                                                  MI     I2,1                                                    MACROX   1704
                                                  NZ     I2,3                                                    MACROX   1705
                                         #MD      ENDIF                                                          MACROX   1706
          1730  00020301030572001260 +   IF       ENDR                                                           MACROX   1707
                                                                                                                 MACROX   1708
      L    372                           IF(I)1N3 RMACRO 3,2,0       IF (INTEGER)  1, N, 3                       MACROX   1709
          1263  21020000004000100001              CLR    I1                                                      MACROX   1710
          1264  20774000040000500002              IAZ    I2,I1,P1                                                MACROX   1711
          1265  20661000300000100002              MI     I2,1                                                    MACROX   1712
          1266  20663000100000100002              NZ     I2,3                                                    MACROX   1713
          1731  00020302040571001263 +   IF       ENDR                                                           MACROX   1714
                                 371     IF(D)1N3 EQU    IF(R)1N3                                                MACROX   1715
                                                                                                                 MACROX   1716
      L    373                           IF(R)12N RMACRO 3,2,0       IF (REAL   )  1, 2, N                       MACROX   1717
          1267  20662000000000000002              ZR     P1,2                                                    MACROX   1718
          1270  20661000300000000002              MI     P1,1                                                    MACROX   1719
          1732  00020300020573001267 +   IF       ENDR                                                           MACROX   1720
                                 373     IF(I)12N EQU    IF(R)12N                                                MACROX   1721
                                 373     IF(D)12N EQU    IF(R)12N                                                MACROX   1722
                                                                                                                 MACROX   1723
      L    374                           IF(R)N22 RMACRO 3,2,0       IF (REAL   )  N, 2, 2                       MACROX   1724
                                         #MD      IFEQ   .NRFCO,1                                                MACROX   1725
          1271  20240000040000500001              PNR    I1,,P1                                                  MACROX   1726
          1272  20662000200000100001              PL     I1,2                                                    MACROX   1727
                                         #MD      ELSE                                                           MACROX   1728
                                                  CLR    I1                                                      MACROX   1729
                                                  IAZ    I2,I1,P1                                                MACROX   1730
                                                  PL     I2,2                                                    MACROX   1731
                                         #MD      ENDIF                                                          MACROX   1732
          1733  00020301020574001271 +   IF       ENDR                                                           MACROX   1733
                                                                                                                 MACROX   1734
      L    375                           IF(I)N22 RMACRO 3,2,0       IF (INTEGER)  N, 2, 2                       MACROX   1735
          1273  21020000004000100001              CLR    I1                                                      MACROX   1736
          1274  20774000040000500002              IAZ    I2,I1,P1                                                MACROX   1737
          1275  20662000200000100002              PL     I2,2                                                    MACROX   1738
          1734  00020302030573001273 +   IF       ENDR                                                           MACROX   1739
                                 374     IF(D)N22 EQU    IF(R)N22                                                MACROX   1740
                                                                                                                 MACROX   1741
      L    376                           IF(R)1NN RMACRO 3,2,0       IF (REAL   )  1, N, N                       MACROX   1742
                                         #MD      IFEQ   .NRFCO,1                                                MACROX   1743
          1276  20240000040000500001              PNR    I1,,P1                                                  MACROX   1744
          1277  20661000300000100001              MI     I1,1                                                    MACROX   1745
                                         #MD      ELSE                                                           MACROX   1746
                                                  CLR    I1                                                      MACROX   1747
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    38
        IF MACROS                                                     IF-MAC    MACTEXT 
  
                                                  IAZ    I2,I1,P1                                                MACROX   1748
                                                  MI     I2,1                                                    MACROX   1749
                                         #MD      ENDIF                                                          MACROX   1750
          1735  00020301020574001276 +   IF       ENDR                                                           MACROX   1751
                                                                                                                 MACROX   1752
      L    377                           IF(I)1NN RMACRO 3,2,0       IF (INTEGER)  1, N, N                       MACROX   1753
          1300  21020000004000100001              CLR    I1                                                      MACROX   1754
          1301  20774000040000500002              IAZ    I2,I1,P1                                                MACROX   1755
          1302  20661000300000100002              MI     I2,1                                                    MACROX   1756
          1736  00020302030573001300 +   IF       ENDR                                                           MACROX   1757
                                 376     IF(D)1NN EQU    IF(R)1NN                                                MACROX   1758
                                                                                                                 MACROX   1759
      L    400                           IF(R)NN3 RMACRO 3,2,0       IF (REAL   )  N, N, 3                       MACROX   1760
                                         #MD      IFEQ   .NRFCO,1                                                MACROX   1761
          1303  20140000100000100001              XMTC   I1,P1                                                   MACROX   1762
          1304  20240000060000300002              PNR    I2,,I1                                                  MACROX   1763
          1305  20663000300000100002              MI     I2,3                                                    MACROX   1764
                                         #MD      ELSE                                                           MACROX   1765
                                                  CLR    I1                                                      MACROX   1766
                                                  ISZ    I2,I1,P1                                                MACROX   1767
                                                  MI     I2,3                                                    MACROX   1768
                                         #MD      ENDIF                                                          MACROX   1769
          1737  00020302030573001303 +   IF       ENDR                                                           MACROX   1770
                                                                                                                 MACROX   1771
      L    401                           IF(I)NN3 RMACRO 3,2,0       IF (INTEGER)  N, N, 3                       MACROX   1772
          1306  21020000004000100001              CLR    I1                                                      MACROX   1773
          1307  21004000040000500002              ISZ    I2,I1,P1                                                MACROX   1774
          1310  20663000300000100002              MI     I2,3                                                    MACROX   1775
          1740  00020302030573001306 +   IF       ENDR                                                           MACROX   1776
                                 400     IF(D)NN3 EQU    IF(R)NN3                                                MACROX   1777
                                                                                                                 MACROX   1778
      L    402                           IF(R)11N RMACRO 3,2,0       IF (REAL   )  1, 1, N                       MACROX   1779
                                         #MD      IFEQ   .NRFCO,1                                                MACROX   1780
          1311  20140000100000100001              XMTC   I1,P1                                                   MACROX   1781
          1312  20240000060000300002              PNR    I2,,I1                                                  MACROX   1782
          1313  20661000200000100002              PL     I2,1                                                    MACROX   1783
                                         #MD      ELSE                                                           MACROX   1784
                                                  CLR    I1                                                      MACROX   1785
                                                  ISZ    I2,I1,P1                                                MACROX   1786
                                                  PL     I2,1                                                    MACROX   1787
                                         #MD      ENDIF                                                          MACROX   1788
          1741  00020302030573001311 +   IF       ENDR                                                           MACROX   1789
                                                                                                                 MACROX   1790
      L    403                           IF(I)11N RMACRO 3,2,0       IF (INTEGER)  1, 1, N                       MACROX   1791
          1314  21020000004000100001              CLR    I1                                                      MACROX   1792
          1315  21004000040000500002              ISZ    I2,I1,P1                                                MACROX   1793
          1316  20661000200000100002              PL     I2,1                                                    MACROX   1794
          1742  00020302030573001314 +   IF       ENDR                                                           MACROX   1795
                                 402     IF(D)11N EQU    IF(R)11N                                                MACROX   1796
                                                                                                                 MACROX   1797
      L    404                           IF(R)N2N RMACRO 3,2,0       IF (REAL   )  N, 2, N                       MACROX   1798
          1317  20662000000000000002              ZR     P1,2                                                    MACROX   1799
          1743  00020300010575001317 +   IF       ENDR                                                           MACROX   1800
                                 404     IF(I)N2N EQU    IF(R)N2N                                                MACROX   1801
                                 404     IF(D)N2N EQU    IF(R)N2N                                                MACROX   1802
                                                                                                                 MACROX   1803
      L    405                           IF(R)1N1 RMACRO 3,2,0       IF (REAL   )  1, N, 1                       MACROX   1804
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    39
        IF MACROS                                                     IF-MAC    MACTEXT 
  
          1320  20661000100000000002              NZ     P1,1                                                    MACROX   1805
          1744  00020300010575001320 +   IF       ENDR                                                           MACROX   1806
                                 405     IF(I)1N1 EQU    IF(R)1N1                                                MACROX   1807
                                 405     IF(D)1N1 EQU    IF(R)1N1                                                MACROX   1808
  
  
  
                                        **        LOGICAL IF MACROS                                              MACROX   1810
                                                                                                                 MACROX   1811
      L    406                           IF(L)12  RMACRO 3,2,0       IF (LOGICAL)  1, 2                          MACROX   1812
          1321  20661000300000000002              MI     P1,1                                                    MACROX   1813
          1322  20730000000000000002              UJP    0,2                                                     MACROX   1814
          1745  00020300020574001321 +   IF       ENDR                                                           MACROX   1815
                                                                                                                 MACROX   1816
      L    407                           IF(L)N2  RMACRO 3,2,0       IF (LOGICAL)  N, 2                          MACROX   1817
          1323  20662000200000000002              PL     P1,2                                                    MACROX   1818
          1746  00020300010575001323 +   IF       ENDR                                                           MACROX   1819
                                                                                                                 MACROX   1820
      L    410                           IF(L)1N  RMACRO 3,2,0       IF (LOGICAL)  1, N                          MACROX   1821
          1324  20661000300000000002              MI     P1,1                                                    MACROX   1822
          1747  00020300010575001324 +   IF       ENDR                                                           MACROX   1823
                                                                                                                 MACROX   1824
      L    411                           IF(C)121 RMACRO 3,2,0                                                   MACROX   1825
          1325  20661000100000000002              NZ     P1,1                                                    MACROX   1826
          1326  20661000100000000003              NZ     P2,1                                                    MACROX   1827
          1327  20730000000000000002              UJP    0,2                                                     MACROX   1828
          1750  00020300030572001325 +   IF       ENDR                                                           MACROX   1829
                                                                                                                 MACROX   1830
      L    412                           IF(C)N2N RMACRO 3,2,0                                                   MACROX   1831
          1330  21020000004000100001              CLR    I1                                                      MACROX   1832
          1331  2077                              IAZ    I2,P1,I1                                                MACROX   1833
          1332  2077                              IAZ    I3,P2,I1                                                MACROX   1834
          1333  2012                              OR     I4,I2,I3                                                MACROX   1835
          1334  20430000730000100005              FMA    I5,59                                                   MACROX   1836
          1335  2036                              IA     I6,I4,I5                                                MACROX   1837
          1336  20174000320001100007              EQV    I7,I6,I4                                                MACROX   1838
          1337  20662000200000100007              PL     I7,2                                                    MACROX   1839
          1751  00020307100566001330 +   IF       ENDR                                                           MACROX   1840
                                                                                                                 MACROX   1841
      L    413                           IF(C)1N1 RMACRO 3,2,0                                                   MACROX   1842
          1340  20661000100000000002              NZ     P1,1                                                    MACROX   1843
          1341  20661000100000000003              NZ     P2,1                                                    MACROX   1844
          1752  00020300020573001340 +   IF       ENDR                                                           MACROX   1845
                                                                                                                 MACROX   1846
      L    414                           IF(R)111 RMACRO 3,2,0,A     IF (REAL   )  1, 1, 1                       MACROX   1847
          1342  20730000000000000001              UJP    0,1                                                     MACROX   1848
          1753  00020300010476001342 +   UJP      ENDR                                                           MACROX   1849
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    40
        LCM LOAD MACROS                                               LD-LD     MACDESC 
  
      L    415                           INDMDLD  RMACRO 4,6,4       INDIRECT MODE LCM LOAD                      MACROX   1851
          1343  20501000140000100001              LD     I1,0,K1,1                                               MACROX   1852
          1344  20104000040000000002              XMT    P1,I1                                                   MACROX   1853
          1345  20512000240000000002              ST     P1,0,K2,2                                               MACROX   1854
          1754  04060401030072001343 +            ENDR                                                           MACROX   1855
  
  
  
  
                                        *         MACROS FOR DEBUG MODE                                          MACROX   1857
                                                                                                                 MACROX   1858
      L    416                           JPB0     RMACRO 0,0,0                                                   MACROX   1859
          1346  21020000000000100001              CLR    I1,0        FUDGE A ZERO TO GET THORUGH *SQZ*           MACROX   1860
          1347  20700000040000100001              JIN    I1                                                      MACROX   1861
          1755  00000001020074001346 +            ENDR                                                           MACROX   1862
  
  
  
                                         #T       IFNE   TEST,0                                                  FCCT003    59
                                        *         DEFINITIONS OF SPECIAL INLINE FUNCTIONS FOR *FCL* PROJECT      FCCT003    60
                                                                                                                 FCCT003    61
                                         FMULT    RMACRO 0,3,0                                                   FCCT003    62
                                                  FM     P3,P2,P1                                                FCCT003    63
                                                  ENDR                                                           FCCT003    64
                                                                                                                 FCCT003    65
                                         RMULT    RMACRO 0,3,0                                                   FCCT003    66
                                                  RFM    P3,P2,P1                                                FCCT003    67
                                                  ENDR                                                           FCCT003    68
                                                                                                                 FCCT003    69
                                         FDIV     RMACRO 0,3,0                                                   FCCT003    70
                                                  FD     P3,P1,P2                                                FCCT003    71
                                                  ENDR                                                           FCCT003    72
                                                                                                                 FCCT003    73
                                         DADD     RMACRO 0,3,0                                                   FCCT003    74
                                                  DFA    P3,P1,P2                                                FCCT003    75
                                                  ENDR                                                           FCCT003    76
                                                                                                                 FCCT003    77
                                         DSUB     RMACRO 0,3,0                                                   FCCT003    78
                                                  DFS    P3,P1,P2                                                FCCT003    79
                                                  ENDR                                                           FCCT003    80
                                                                                                                 FCCT003    81
                                         RNORM    RMACRO 0,2,0                                                   FCCT003    82
                                                  RNZ    P2,0,P1                                                 FCCT003    83
                                                  ENDR                                                           FCCT003    84
                                                                                                                 FCCT003    85
                                         DSUMH    RMACRO 0,6,0                                                   FCCT003    86
                                                  FA     P5,P1,P3                                                FCCT003    87
                                                  DFA    I1,P1,P3                                                FCCT003    88
                                                  FA     I2,P2,P4                                                FCCT003    89
                                                  FA     P6,I1,I2                                                FCCT003    90
                                                  ENDR                                                           FCCT003    91
                                                                                                                 FCCT003    92
                                         DDIFH    RMACRO 0,6,0                                                   FCCT003    93
                                                  FS     P5,P1,P3                                                FCCT003    94
                                                  DFS    I1,P1,P3                                                FCCT003    95
                                                  FS     I2,P2,P4                                                FCCT003    96
                                                  FA     P6,I1,I2                                                FCCT003    97
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    41
        LCM LOAD MACROS                                               FCLSPP    MACDESC 
  
                                                  ENDR                                                           FCCT003    98
                                                                                                                 FCCT003    99
                                         DDIVH    RMACRO 0,6,0                                                   FCCT003   100
                                                  FD     P5,P1,P3                                                FCCT003   101
                                                  FM     I2,P5,P3                                                FCCT003   102
                                                  FS     I3,P1,I2                                                FCCT003   103
                                                  DFS    I4,P1,I2                                                FCCT003   104
                                                  NR     I5,0,I3                                                 FCCT003   105
                                                  FA     I6,I4,I5                                                FCCT003   106
                                                  DFM    I7,P5,P3                                                FCCT003   107
                                                  FM     I8,P5,P4                                                FCCT003   108
                                                  FS     I9,P2,I7                                                FCCT003   109
                                                  FA     I10,I6,I9                                               FCCT003   110
                                                  FS     I11,I10,I8                                              FCCT003   111
                                                  FD     P6,I11,P3                                               FCCT003   112
                                                  ENDR                                                           FCCT003   113
                                                                                                                 FCCT003   114
                                         DMULH    RMACRO 0,6,0                                                   FCCT003   115
                                                  FM     P5,P1,P3                                                FCCT003   116
                                                  FM     I1,P2,P3                                                FCCT003   117
                                                  FM     I2,P1,P4                                                FCCT003   118
                                                  FA     I3,I1,I2                                                FCCT003   119
                                                  DFM    I5,P1,P3                                                FCCT003   120
                                                  FA     P6,I3,I5                                                FCCT003   121
                                                  ENDR                                                           FCCT003   122
                                                                                                                 FCCT003   123
                                         BOOL     RMACRO 0,2,0                                                   FCCT003   124
                                                  XMT    P2,P1                                                   FCCT003   125
                                                  ENDR                                                           FCCT003   126
                                         #T       ENDIF                                                          FCCT003   127
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    42
        DO BEGIN/END MACROS                                           DO-MAC    MACDESC 
  
                                                  ENTRY  DOBGN,DOEND                                             MACROX   1897
                                 417     DOBGN    EQU    MACNUM      BASE OF DO BEGIN MACROS                     MACROX   1898
                                                                                                                 MACROX   1899
      L    417                           DOI=CON  RMACRO 5,1,4       DO N I = CON                                MACROX   1900
          1350  20550000014000000002              S      P1,K1                                                   MACROX   1901
          1351  20515000440000000002              ST     P1,,K4,5    I = CON                                     MACROX   1902
          1756  04010500020074001350 +            ENDR                                                           MACROX   1903
                                                                                                                 MACROX   1904
      L    420                           DOI=VAR  RMACRO 5,1,4       DO N I = VAR                                MACROX   1905
          1352  20502000140000100001              LD     I1,,K1,2                                                MACROX   1906
          1353  20104000040000000002              XMT    P1,I1                                                   MACROX   1907
          1354  20515000440000000002              ST     P1,,K4,5                                                MACROX   1908
          1757  04010501030072001352 +            ENDR                                                           MACROX   1909
                                                                                                                 MACROX   1910
      L    421                           DOI=EXP  RMACRO 5,1,4       DO N I = EXP                                MACROX   1911
          1355  20100000100000100001              XMT    I1,P1                                                   MACROX   1912
          1356  20515000440000100001              ST     I1,,K4,5                                                MACROX   1913
          1760  04010501020074001355 +            ENDR                                                           MACROX   1914
                                                                                                                 MACROX   1915
                                 422     DOEND    EQU    MACNUM      BASE OF DO END MACROS                       MACROX   1916
                                                                                                                 MACROX   1917
      L    422                           DOXCC    RMACRO 5,1,4       DO N I = B,CC,CD                            MACROX   1918
          1357  20505000440000100001              LD     I1,,K4,5                                                MACROX   1919
          1360  20520000360000300002              STT    I2,I1,K3    I = I + D                                   MACROX   1920
          1361  20515000440000100002              ST     I2,,K4,5                                                MACROX   1921
          1362  20520000260000500003              STT    I3,I2,K2                                                MACROX   1922
          1363  20661000300000100003              MI     I3,1                                                    MACROX   1923
          1761  04010503050065001357 +            ENDR                                                           MACROX   1924
                                                                                                                 MACROX   1925
      L    423                           DOXCV    RMACRO 5,1,4       DO N I = B,CC,SD                            MACROX   1926
          1364  20505000440000100001              LD     I1,,K4,5                                                MACROX   1927
          1365  20504000340000100002              LD     I2,,K3,4                                                MACROX   1928
          1366  20364000120000300003              IA     I3,I2,I1    I = I + D                                   MACROX   1929
          1367  20515000440000100003              ST     I3,,K4,5                                                MACROX   1930
          1370  20520000260000700004              STT    I4,I3,K2                                                MACROX   1931
          1371  20661000300000100004              MI     I4,1                                                    MACROX   1932
          1762  04010504060064001364 +            ENDR                                                           MACROX   1933
                                                                                                                 MACROX   1934
      L    424                           DOXVC    RMACRO 5,1,4       DO N I = B,SC,D                             MACROX   1935
          1372  20505000440000100001              LD     I1,,K4,5                                                MACROX   1936
          1373  20520000360000300002              STT    I2,I1,K3    I = I + D                                   MACROX   1937
          1374  20515000440000100002              ST     I2,,K4,5                                                MACROX   1938
          1375  20503000240000100003              LD     I3,,K2,3                                                MACROX   1939
          1376  20374000160000500004              IS     I4,I3,I2                                                MACROX   1940
          1377  20661000200000100004              PL     I4,1        IF( I @ D ) GO TO )XX                       MACROX   1941
          1763  04010504060064001372 +            ENDR                                                           MACROX   1942
                                                                                                                 MACROX   1943
      L    425                           DOXVV    RMACRO 5,1,4       DO N I = B,SC,SD                            MACROX   1944
          1400  20505000440000100001              LD     I1,,K4,5                                                MACROX   1945
          1401  20504000340000100002              LD     I2,,K3,4                                                MACROX   1946
          1402  20364000120000300003              IA     I3,I2,I1    I = I + D                                   MACROX   1947
          1403  20515000440000100003              ST     I3,,K4,5                                                MACROX   1948
          1404  20503000240000100004              LD     I4,,K2,3                                                MACROX   1949
          1405  20374000220000700005              IS     I5,I4,I3                                                MACROX   1950
          1406  20661000200000100005              PL     I5,1        IF( I @ D ) GO TO )XX                       MACROX   1951
          1764  04010505070063001400 +            ENDR                                                           MACROX   1952
1       MACROX - OBJECT CODE PRODUCTION DATA BASE                     COMPASS 3.7-871.     24/05/02. 15.56.16.      PAGE    43
        DO BEGIN/END MACROS                                                     MACDESC 
  
                                                  LIST   L,A                                                     MACROX   1954
                                   6     U        EQU    .UNUS       NUMBER OF UNUSED MACROS                     MACROX   1955
                                                                                                                 MACROX   1956
                                        *                            ** LIST OF UNUSED R-MACRO NUMBERS **        MACROX   1957
                                                                                                                 MACROX   1958
                                                  NIL    "AVAIL"                                                 MACROX   1959
                                                  NIL     130 137 140 141 261 315                                MACROX   1959
                                        ,                                                                        MACROX   1959
                                                                                                                 MACROX   1960
                                                  LIST   D                                                      *RMT*   .1
          1407                     7     SBUF     BSSZ   SM+2        SYMBOL BUFFER                              *RMT*   .1
          1416  00000000000000000000     RBUF     CON    0,1         R NUMBER BUFFER                            *RMT*   .1
          1417  00000000000000000001
          1420                    10              BSSZ   RM+2                                                   *RMT*   .1
          1430                     7     CBUF     BSSZ   CM+3        CONSTANT PARAM BUFFER                      *RMT*   .1
          1765                                    END    FTN22                                                   MACROX   1961
  
                             66200B CM  STORAGE USED             8546 STATEMENTS      880 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            6.598 SECONDS           0 REFERENCES
  
1       FTN                                                           COMPASS 3.7-871.     24/05/02. 15.56.23.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTN
                          0                       END 
  
  
  
  
                                                  IDENT  FTN                                                     FCCA589    33
                                                  LCC    OVERLAY(FTN,0,0)                                        FCCA589    34
                                                  COMMENT FTN4 MAIN OVERLAY                                      FCCA589    35
             0                                    END                                                            FCCA589    36
  
                             55100B CM  STORAGE USED                4 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       FTN10                                                         COMPASS 3.7-871.     24/05/02. 15.56.23.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTN10
                          0                       END 
  
  
  
  
                                                  IDENT  FTN10                                                   FCCA589    37
                                                  LCC    OVERLAY(FTN,1,0,O=LDPT)                                 FCCA589    38
                                                  COMMENT FTN4 TS COMPILER                                       FCCA589    39
                                                  SST    A                                                       FCCA589    40
                                                                                                                 FCCA589    41
                                         .T       IFNE   TEST,0                                                  FCCA589    42
                                         .T       ENDIF                                                          FCCA589    84
             0                                    END                                                            FCCA589    85
  
                             54200B CM  STORAGE USED               49 STATEMENTS      521 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.049 SECONDS           0 REFERENCES
  
1       TABLES                                                        COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TABLES 
                          0                       END 
  
  
  
  
                                                  IDENT  TABLES                                                  FCCA589    86
             0                                    END                                                            FCCA589    87
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       ERRORS                                                        COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ERRORS 
                          0                       END 
  
  
  
  
                                                  IDENT  ERRORS                                                  FCCA589    88
             0                                    END                                                            FCCA589    89
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       BATCH                                                         COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BATCH
                          0                       END 
  
  
  
  
                                                  IDENT  BATCH                                                   FCCA589    90
             0                                    END                                                            FCCA589    91
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       HEADER                                                        COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  HEADER 
                          0                       END 
  
  
  
  
                                                  IDENT  HEADER                                                  FCCA589    92
             0                                    END                                                            FCCA589    93
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       PIG                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PIG
                          0                       END 
  
  
  
  
                                                  IDENT  PIG                                                     FCCA589    94
             0                                    END                                                            FCCA589    95
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       END                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  END
                          0                       END 
  
  
  
  
                                                  IDENT  END                                                     FCCA589    96
             0                                    END                                                            FCCA589    97
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   FCCA589    98
             0                                    END                                                            FCCA589    99
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       MAIN                                                          COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MAIN 
                          0                       END 
  
  
  
  
                                                  IDENT  MAIN                                                    FCCA589   100
             0                                    END                                                            FCCA589   101
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       LEX                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LEX
                          0                       END 
  
  
  
  
                                                  IDENT  LEX                                                     FCCA589   102
             0                                    END                                                            FCCA589   103
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       KEY                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  KEY
                          0                       END 
  
  
  
  
                                                  IDENT  KEY                                                     FCCA589   104
             0                                    END                                                            FCCA589   105
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       IF                                                            COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IF 
                          0                       END 
  
  
  
  
                                                  IDENT  IF                                                      FCCA589   106
             0                                    END                                                            FCCA589   107
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       TSDATA                                                        COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TSDATA 
                          0                       END 
  
  
  
  
                                                  IDENT  TSDATA                                                  FCCA589   108
             0                                    END                                                            FCCA589   109
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       DECL                                                          COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECL 
                          0                       END 
  
  
  
  
                                                  IDENT  DECL                                                    FCCA589   110
             0                                    END                                                            FCCA589   111
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       TYPE                                                          COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TYPE 
                          0                       END 
  
  
  
  
                                                  IDENT  TYPE                                                    FCCA589   112
             0                                    END                                                            FCCA589   113
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       FMT                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FMT
                          0                       END 
  
  
  
  
                                                  IDENT  FMT                                                     FCCA589   114
             0                                    END                                                            FCCA589   115
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       IO                                                            COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IO 
                          0                       END 
  
  
  
  
                                                  IDENT  IO                                                      FCCA589   116
             0                                    END                                                            FCCA589   117
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       NUM                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  NUM
                          0                       END 
  
  
  
  
                                                  IDENT  NUM                                                     FCCA589   118
             0                                    END                                                            FCCA589   119
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       PAR                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PAR
                          0                       END 
  
  
  
  
                                                  IDENT  PAR                                                     FCCA589   120
             0                                    END                                                            FCCA589   121
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       CONRED                                                        COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONRED 
                          0                       END 
  
  
  
  
                                                  IDENT  CONRED                                                  FCCA589   122
             0                                    END                                                            FCCA589   123
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       ASF                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ASF
                          0                       END 
  
  
  
  
                                                  IDENT  ASF                                                     FCCA589   124
             0                                    END                                                            FCCA589   125
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       DO                                                            COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DO 
                          0                       END 
  
  
  
  
                                                  IDENT  DO                                                      FCCA589   126
             0                                    END                                                            FCCA589   127
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       FUN                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FUN
                          0                       END 
  
  
  
  
                                                  IDENT  FUN                                                     FCCA589   128
             0                                    END                                                            FCCA589   129
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       REG                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REG
                          0                       END 
  
  
  
  
                                                  IDENT  REG                                                     FCCA589   130
             0                                    END                                                            FCCA589   131
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       GEN                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GEN
                          0                       END 
  
  
  
  
                                                  IDENT  GEN                                                     FCCA589   132
             0                                    END                                                            FCCA589   133
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.011 SECONDS           0 REFERENCES
  
1       TSNAP                                                         COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TSNAP
                          0                       END 
  
  
  
  
                                                  IDENT  TSNAP                                                   FCCA589   134
             0                                    END                                                            FCCA589   135
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       INIT                                                          COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT                                                    FCCA589   136
             0                                    END                                                            FCCA589   137
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       MAP                                                           COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MAP
                          0                       END 
  
  
  
  
                                                  IDENT  MAP                                                     FCCA589   138
             0                                    END                                                            FCCA589   139
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       LIST                                                          COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LIST 
                          0                       END 
  
  
  
  
                                                  IDENT  LIST                                                    FCCA589   140
             0                                    END                                                            FCCA589   141
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FTN20                                                         COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        7              IDENT  FTN20
                          7                       END 
  
  
                                        ENTRY POINTS. 
  
                                        FWA2.0           0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=SNAP    B=OPK20   B=LSTPR 
  
  
  
  
                                                  IDENT  FTN20                                                   FCCA589   142
                                                  LCC    OVERLAY(FTN,2,0,O=LDPT)                                 FCCA589   143
                                                  COMMENT FTN4 OPT COMPILER - BATCH CONTROLLER                   FCCA589   144
                                                                                                                 FCCA589   145
                                                  SST                                                            FCCA589   146
                                                                                                                 FCCA589   147
                                                                                                                 FCCA589   148
                                        *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. FCCA589   149
                                                                                                                 FCCA589   150
                                                  ENTRY  FWA2.0                                                  FCCA589   151
             0                           FWA2.0   BSS    0           BEGIN DECK NAME/ADDRESS TABLE               FCCA589   152
             0  22013300000000000000              VFD    42/3LRA0,18/RA.SSW      BASE OF (0,0) OVERLAY           FCCA589   153
             1  06241600000000000111              VFD    42/3LFTN,18/RA.ORG+LDR.00                               FCCA589   154
             2  06241635330000000000 +            VFD    42/5LFTN20,18/FWA2.0    BASE OF (2,0) OVERLAY           FCCA589   155
             3  14232420221700000000 X            VFD    42/6LLSTPRO,18/=XB=LSTPR                                FCCA589   156
             4  17252420133533000000 X            VFD    42/7LOUTPK20,18/=XB=OPK20                               FCCA589   157
             5  23160120000000000000 X            VFD    42/4LSNAP,18/=XB=SNAP                                   FCCA589   158
             6  00000000000000000000              DATA   0                                                       FCCA589   159
                                                                                                                 FCCA589   160
             7                                    END                                                            FCCA589   161
  
                             54300B CM  STORAGE USED               20 STATEMENTS      525 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.051 SECONDS           9 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B=LSTPR         0   EXTERNAL*       1/33
        B=OPK20         0   EXTERNAL*       1/34
        B=SNAP          0   EXTERNAL*       1/35
        FWA2.0          0   PROGRAM*        1/28 E    1/29 L    1/32
        LDR.00         11   FTNTEXT         1/31
        RA.ORG        100   CPUTEXT         1/31
        RA.SSW          0   CPUTEXT         1/30
1       LSTPRO                                                        COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LSTPRO 
                          0                       END 
  
  
  
  
                                                  IDENT  LSTPRO                                                  FCCA589   162
             0                                    END                                                            FCCA589   163
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       OUTPK20                                                       COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  OUTPK20
                          0                       END 
  
  
  
  
                                                  IDENT  OUTPK20                                                 FCCA589   164
             0                                    END                                                            FCCA589   165
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.010 SECONDS           0 REFERENCES
  
1       SNAP                                                          COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  SNAP 
                          0                       END 
  
  
  
  
                                                  IDENT  SNAP                                                    FCCA589   166
             0                                    END                                                            FCCA589   167
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       FTN23                                                         COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        4              IDENT  FTN23
                          4                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0         4 
                                        //        COMMON          0         0 
  
  
                                        ENTRY POINTS. 
  
                                        B=FTN23          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=FTMSG 
  
  
  
  
                                                  IDENT  FTN23                                                   FCCA589   168
                                                  LCC    OVERLAY(FTN,2,3)                                        FCCA589   169
                                                  COMMENT FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)     FCCA589   170
                                                                                                                 FCCA589   171
                                        *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. FCCA589   172
                                                                                                                 FCCA589   173
                                                  ENTRY  B=FTN23                                                 FCCA589   174
             0  06241635360000000000 +   B=FTN23  VFD    42/5LFTN23,18/*                                         FCCA589   175
             1  06241615230700000000 X            VFD    42/6LFTNMSG,18/=XB=FTMSG                                FCCA589   176
                                                  USE    //                                                      FCCA589   177
             0                           BLNKCOM  BSS    0                                                       FCCA589   178
                                                  USE    *                                                       FCCA589   179
             2  02141613031715000000 C            VFD    42/7LBLNKCOM,18/BLNKCOM                                 FCCA589   180
             3  00000000000000000000              DATA   0           TABLE TERMINATOR                            FCCA589   181
                                                                                                                 FCCA589   182
             4                                    END                                                            FCCA589   183
  
                             55100B CM  STORAGE USED               16 STATEMENTS        3 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.033 SECONDS           5 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        BLNKCOM         0   //              1/35 L    1/37
        B=FTMSG         0   EXTERNAL*       1/33
        B=FTN23         0   PROGRAM*        1/31 E    1/32 L
1       FTNMSG                                                        COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTNMSG 
                          0                       END 
  
  
  
  
                                                  IDENT  FTNMSG                                                  FCCA589   184
             0                                    END                                                            FCCA589   185
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.015 SECONDS           0 REFERENCES
  
1       FTN21                                                         COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       25              IDENT  FTN21
                         25                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0        25 
                                        //        COMMON          0         0 
  
  
                                        ENTRY POINTS. 
  
                                        B=FTN21          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=PH1CT   B=DOPRC   B=ASFPR   B=FLY     B=CNVRT   B=ENDPR 
                                        B=DECPR   B=GOTO    B=ARITH   B=ERPRO   DMPELST   B=STMTP 
                                        B=DPCLS   B=CALL    B=LSTIO   B=DATA    B=SCANR   B=PS1CT 
  
  
  
  
                                                  IDENT  FTN21                                                   FCCA589   186
                                                  LCC    OVERLAY(FTN,2,1)                                        FCCA589   187
                                                  COMMENT FTN4 OPT COMPILER - PASS 1(NO DEBUG)                   FCCA589   188
                                                                                                                 FCCA589   189
                                        *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. FCCA589   190
                                                                                                                 FCCA589   191
                                                  ENTRY  B=FTN21                                                 FCCA589   192
             0  06241635340000000000 +   B=FTN21  VFD    42/5LFTN21,18/*                                         FCCA589   193
             1  20233403241400000000 X            VFD    42/6LPS1CTL,18/=XB=PS1CT                                FCCA589   194
             2  23241524200000000000 X            VFD    42/5LSTMTP,18/=XB=STMTP                                 FCCA589   195
             3  05160420221700000000 X            VFD    42/6LENDPRO,18/=XB=ENDPR                                FCCA589   196
             4  23030116160522000000 X            VFD    42/7LSCANNER,18/=XB=SCANR                               FCCA589   197
             5  04152005142324777774 X            VFD    42/7LDMPELST,18/=XDMPELST-3                             FCCA589   198
             6  03171626052224000000 X            VFD    42/7LCONVERT,18/=XB=CNVRT                               FCCA589   199
             7  04012401000000000000 X            VFD    42/4LDATA,18/=XB=DATA                                   FCCA589   200
            10  05222022170000000000 X            VFD    42/5LERPRO,18/=XB=ERPRO                                 FCCA589   201
            11  06143100000000000000 X            VFD    42/3LFLY,18/=XB=FLY                                     FCCA589   202
            12  14112324111700000000 X            VFD    42/6LLISTIO,18/=XB=LSTIO                                FCCA589   203
            13  01221124100000000000 X            VFD    42/5LARITH,18/=XB=ARITH                                 FCCA589   204
            14  01230620221700000000 X            VFD    42/6LASFPRO,18/=XB=ASFPR                                FCCA589   205
            15  03011414000000000000 X            VFD    42/4LCALL,18/=XB=CALL                                   FCCA589   206
            16  07172417000000000000 X            VFD    42/4LGOTO,18/=XB=GOTO                                   FCCA589   207
            17  04172022170300000000 X            VFD    42/6LDOPROC,18/=XB=DOPRC                                FCCA589   208
            20  04200314172305000000 X            VFD    42/7LDPCLOSE,18/=XB=DPCLS                               FCCA589   209
            21  04050320221700000000 X            VFD    42/6LDECPRO,18/=XB=DECPR                                FCCA589   210
            22  20103403241400000000 X            VFD    42/6LPH1CTL,18/=XB=PH1CT                                FCCA589   211
                                                  USE    //                                                      FCCA589   212
             0                           BLNKCOM  BSS    0                                                       FCCA589   213
                                                  USE    *                                                       FCCA589   214
            23  02141613031715000000 C            VFD    42/7LBLNKCOM,18/BLNKCOM                                 FCCA589   215
            24  00000000000000000000              DATA   0                                                       FCCA589   216
1       FTN21                                                         COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     2
  
  
                                                                                                                 FCCA589   217
            25                                    END                                                            FCCA589   218
  
                             55200B CM  STORAGE USED               33 STATEMENTS       20 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.069 SECONDS          22 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        BLNKCOM         0   //              1/54 L    1/56
        B=ARITH         0   EXTERNAL*       1/45
        B=ASFPR         0   EXTERNAL*       1/46
        B=CALL          0   EXTERNAL*       1/47
        B=CNVRT         0   EXTERNAL*       1/40
        B=DATA          0   EXTERNAL*       1/41
        B=DECPR         0   EXTERNAL*       1/51
        B=DOPRC         0   EXTERNAL*       1/49
        B=DPCLS         0   EXTERNAL*       1/50
        B=ENDPR         0   EXTERNAL*       1/37
        B=ERPRO         0   EXTERNAL*       1/42
        B=FLY           0   EXTERNAL*       1/43
        B=FTN21         0   PROGRAM*        1/33 E    1/34 L
        B=GOTO          0   EXTERNAL*       1/48
        B=LSTIO         0   EXTERNAL*       1/44
        B=PH1CT         0   EXTERNAL*       1/52
        B=PS1CT         0   EXTERNAL*       1/35
        B=SCANR         0   EXTERNAL*       1/38
        B=STMTP         0   EXTERNAL*       1/36
        DMPELST         0   EXTERNAL*       1/39
1       PS1CTL                                                        COMPASS 3.7-871.     24/05/02. 15.56.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PS1CTL 
                          0                       END 
  
  
  
  
                                                  IDENT  PS1CTL                                                  FCCA589   219
             0                                    END                                                            FCCA589   220
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       STMTP                                                         COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  STMTP
                          0                       END 
  
  
  
  
                                                  IDENT  STMTP                                                   FCCA589   221
             0                                    END                                                            FCCA589   222
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       ENDPRO                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ENDPRO 
                          0                       END 
  
  
  
  
                                                  IDENT  ENDPRO                                                  FCCA589   223
             0                                    END                                                            FCCA589   224
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  SCANNER
                          0                       END 
  
  
  
  
                                                  IDENT  SCANNER                                                 FCCA589   225
             0                                    END                                                            FCCA589   226
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       DMPELST                                                       COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DMPELST
                          0                       END 
  
  
  
  
                                                  IDENT  DMPELST                                                 FCCA589   227
             0                                    END                                                            FCCA589   228
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       CONVERT                                                       COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONVERT
                          0                       END 
  
  
  
  
                                                  IDENT  CONVERT                                                 FCCA589   229
             0                                    END                                                            FCCA589   230
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       DATA                                                          COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DATA 
                          0                       END 
  
  
  
  
                                                  IDENT  DATA                                                    FCCA589   231
             0                                    END                                                            FCCA589   232
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.010 SECONDS           0 REFERENCES
  
1       ERPRO                                                         COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ERPRO
                          0                       END 
  
  
  
  
                                                  IDENT  ERPRO                                                   FCCA589   233
             0                                    END                                                            FCCA589   234
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       FLY                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FLY
                          0                       END 
  
  
  
  
                                                  IDENT  FLY                                                     FCCA589   235
             0                                    END                                                            FCCA589   236
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       LISTIO                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LISTIO 
                          0                       END 
  
  
  
  
                                                  IDENT  LISTIO                                                  FCCA589   237
             0                                    END                                                            FCCA589   238
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       ARITH                                                         COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ARITH
                          0                       END 
  
  
  
  
                                                  IDENT  ARITH                                                   FCCA589   239
             0                                    END                                                            FCCA589   240
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       ASFPRO                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ASFPRO 
                          0                       END 
  
  
  
  
                                                  IDENT  ASFPRO                                                  FCCA589   241
             0                                    END                                                            FCCA589   242
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       CALL                                                          COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CALL 
                          0                       END 
  
  
  
  
                                                  IDENT  CALL                                                    FCCA589   243
             0                                    END                                                            FCCA589   244
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       GOTO                                                          COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GOTO 
                          0                       END 
  
  
  
  
                                                  IDENT  GOTO                                                    FCCA589   245
             0                                    END                                                            FCCA589   246
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       DBGLNK                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DBGLNK 
                          0                       END 
  
  
  
  
                                                  IDENT  DBGLNK                                                  FCCA589   247
             0                                    END                                                            FCCA589   248
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       DOPROC                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DOPROC 
                          0                       END 
  
  
  
  
                                                  IDENT  DOPROC                                                  FCCA589   249
             0                                    END                                                            FCCA589   250
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       DPCLOSE                                                       COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DPCLOSE
                          0                       END 
  
  
  
  
                                                  IDENT  DPCLOSE                                                 FCCA589   251
             0                                    END                                                            FCCA589   252
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       DECPRO                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECPRO 
                          0                       END 
  
  
  
  
                                                  IDENT  DECPRO                                                  FCCA589   253
             0                                    END                                                            FCCA589   254
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       PH1CTL                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PH1CTL 
                          0                       END 
  
  
  
  
                                                  IDENT  PH1CTL                                                  FCCA589   255
             0                                    END                                                            FCCA589   256
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       FTN25                                                         COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        6              IDENT  FTN25
                          6                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0         6 
                                        //        COMMON          0         0 
  
  
                                        ENTRY POINTS. 
  
                                        B=FTN25          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=REFMP   B=FAX     B=PS3CT 
  
  
  
  
                                                  IDENT  FTN25                                                   FCCA589   257
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                         #OVL     IFEQ   .OVL,0                                                  FCCA589   259
                                                  LCC    OVERLAY(FTN,2,2)                                        FCCA589   260
                                                  COMMENT FTN4 OPT COMPILER - PASS 2 AND 3                       FCCA589   261
                                                                                                                 FCCA589   262
                                                  ENTRY  B=FTN22                                                 FCCA589   263
                                         B=FTN22  VFD    42/5LFTN22,18/*                                         FCCA589   264
                                                  VFD    42/6LPS3CTL,18/=XB=PS3CT                                FCCA589   265
                                                  VFD    42/3LFAX,18/=XB=FAX                                     FCCA589   266
                                                  VFD    42/6LREFMAP,18/=XB=REFMP                                FCCA589   267
                                                  VFD    42/6LCLOSE2,18/=XB=CLOS2                                FWACOM      2
                                                  FWA    MIO,MIO                                                 FWACOM      3
                                                  FWA    FBV,FBV                                                 FWACOM      4
                                                  FWA    GPO,GPO                                                 FWACOM      5
                                                  FWA    GRA,GRA                                                 FWACOM      6
                                                  FWA    PROSEQ,PROSQ                                            FWACOM      7
                                                  FWA    POST,POST                                               FWACOM      8
                                                  FWA    SQZ,SQZ                                                 FWACOM      9
                                                  FWA    MCG,MCG                                                 FWACOM     10
                                                  FWA    BDT,BDT                                                 FWACOM     11
                                                  FWA    PRE,PRE                                                 FWACOM     19
                                                  FWA    CFA,CFA                                                 FWACOM     20
                                                  FWA    UDT,UDT                                                 FWACOM     21
                                                  FWA    READRL,RRL                                              FWACOM     22
                                                  FWA    MACROX,MACRX                                            FWACOM     23
                                                  USE    //                                                      CP139FC     7
                                         BLNKCOM  BSS    0                                                       CP139FC     8
                                                  USE    *                                                       CP139FC     9
                                                  VFD    42/7LBLNKCOM,18/BLNKCOM                                 CP139FC    10
1       FTN25                                                         COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     2
  
  
                                                  DATA   0           TABLE TERMINATOR                            FWACOM     24
                                         #OVL     ELSE                                                           FCCA589   269
                                                  LCC    OVERLAY(FTN,2,5)                                        FCCA589   270
                                                  COMMENT FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)           FCCA589   271
                                                                                                                 FCCA589   272
                                                  ENTRY  B=FTN25                                                 FCCA589   273
             0  06241635400000000000 +   B=FTN25  VFD    42/5LFTN25,18/*                                         FCCA589   274
             1  20233603241400000000 X            VFD    42/6LPS3CTL,18/=XB=PS3CT                                FCCA589   275
             2  06013000000000000000 X            VFD    42/3LFAX,18/=XB=FAX                                     FCCA589   276
             3  22050615012000000000 X            VFD    42/6LREFMAP,18/=XB=REFMP                                FCCA589   277
                                                  USE    //                                                      FCCA589   278
             0                           BLNKCOM  BSS    0                                                       FCCA589   279
                                                  USE    *                                                       FCCA589   280
             4  02141613031715000000 C            VFD    42/7LBLNKCOM,18/BLNKCOM                                 FCCA589   281
             5  00000000000000000000              DATA   0                                                       FCCA589   282
                                         #OVL     ENDIF                                                          FCCA589   283
                                                                                                                 FCCA589   284
                                                  LIST   -R                                                      FCCA589   285
                                                                                                                 FCCA589   286
             6                                    END                                                            FCCA589   287
  
                             54300B CM  STORAGE USED               53 STATEMENTS      526 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.069 SECONDS           0 REFERENCES
  
1       PS3CTL                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PS3CTL 
                          0                       END 
  
  
  
  
                                                  IDENT  PS3CTL                                                  FCCA589   288
             0                                    END                                                            FCCA589   289
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.011 SECONDS           0 REFERENCES
  
1       FAX                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FAX
                          0                       END 
  
  
  
  
                                                  IDENT  FAX                                                     FCCA589   290
             0                                    END                                                            FCCA589   291
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       REFMAP                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REFMAP 
                          0                       END 
  
  
  
  
                                                  IDENT  REFMAP                                                  FCCA589   292
             0                                    END                                                            FCCA589   293
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.015 SECONDS           0 REFERENCES
  
1       FTN22                                                         COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       22              IDENT  FTN22
                         22                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0        22 
                                        //        COMMON          0         0 
  
  
                                        ENTRY POINTS. 
  
                                        B=FTN22          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=MACRX   B=UDT     B=PRE     B=MCG     B=POST    B=GRA     B=FBV     B=CLOS2 
                                        B=RRL     B=CFA     B=BDT     B=SQZ     B=PROSQ   B=GPO     B=MIO 
  
  
  
  
                                                  IDENT  FTN22                                                   FCCA589   294
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                         #OVL     IFNE   .OVL,0                                                  FCCA589   296
                                                  LCC    OVERLAY(FTN,2,2)                                        FCCA589   297
                                                  COMMENT FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER           FCCA589   298
                                                                                                                 FCCA589   299
                                        *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. FCCA589   300
                                                                                                                 FCCA589   301
                                                  ENTRY  B=FTN22                                                 FCCA589   302
             0  06241635350000000000 +   B=FTN22  VFD    42/5LFTN22,18/*                                         FCCA589   303
             1  03141723053500000000 X            VFD    42/6LCLOSE2,18/=XB=CLOS2                                FWACOM      2
             2  15111700000000                    FWA    MIO,MIO                                                 FWACOM      3
             3  06022600000000                    FWA    FBV,FBV                                                 FWACOM      4
             4  07201700000000                    FWA    GPO,GPO                                                 FWACOM      5
             5  07220100000000                    FWA    GRA,GRA                                                 FWACOM      6
             6  20221723052100                    FWA    PROSEQ,PROSQ                                            FWACOM      7
             7  20172324000000                    FWA    POST,POST                                               FWACOM      8
            10  23213200000000                    FWA    SQZ,SQZ                                                 FWACOM      9
            11  15030700000000                    FWA    MCG,MCG                                                 FWACOM     10
            12  02042400000000                    FWA    BDT,BDT                                                 FWACOM     11
            13  20220500000000                    FWA    PRE,PRE                                                 FWACOM     19
            14  03060100000000                    FWA    CFA,CFA                                                 FWACOM     20
            15  25042400000000                    FWA    UDT,UDT                                                 FWACOM     21
            16  22050104221400                    FWA    READRL,RRL                                              FWACOM     22
            17  15010322173000                    FWA    MACROX,MACRX                                            FWACOM     23
                                                  USE    //                                                      CP139FC     7
             0                           BLNKCOM  BSS    0                                                       CP139FC     8
                                                  USE    *                                                       CP139FC     9
            20  02141613031715000000 C            VFD    42/7LBLNKCOM,18/BLNKCOM                                 CP139FC    10
1       FTN22                                                         COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     2
  
  
            21  00000000000000000000              DATA   0           TABLE TERMINATOR                            FWACOM     24
                                                                                                                 FCCA589   305
                                                  LIST   -R                                                      FCCA589   306
                                         #OVL     ENDIF                                                          FCCA589   307
                                                                                                                 FCCA589   308
            22                                    END                                                            FCCA589   309
  
                             54300B CM  STORAGE USED               66 STATEMENTS      538 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.076 SECONDS           0 REFERENCES
  
1       CLOSE2                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CLOSE2 
                          0                       END 
  
  
  
  
                                                  IDENT  CLOSE2                                                  FCCA589   310
             0                                    END                                                            FCCA589   311
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       MIO                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MIO
                          0                       END 
  
  
  
  
                                                  IDENT  MIO                                                     FCCA589   312
             0                                    END                                                            FCCA589   313
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       FBV                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FBV
                          0                       END 
  
  
  
  
                                                  IDENT  FBV                                                     FCCA589   314
             0                                    END                                                            FCCA589   315
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       GPO                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GPO
                          0                       END 
  
  
  
  
                                                  IDENT  GPO                                                     FCCA589   316
             0                                    END                                                            FCCA589   317
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       GRA                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GRA
                          0                       END 
  
  
  
  
                                                  IDENT  GRA                                                     FCCA589   318
             0                                    END                                                            FCCA589   319
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       PROSEQ                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PROSEQ 
                          0                       END 
  
  
  
  
                                                  IDENT  PROSEQ                                                  FCCA589   320
             0                                    END                                                            FCCA589   321
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       POST                                                          COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  POST 
                          0                       END 
  
  
  
  
                                                  IDENT  POST                                                    FCCA589   322
             0                                    END                                                            FCCA589   323
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       SQZ                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  SQZ
                          0                       END 
  
  
  
  
                                                  IDENT  SQZ                                                     FCCA589   324
             0                                    END                                                            FCCA589   325
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       MCG                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MCG
                          0                       END 
  
  
  
  
                                                  IDENT  MCG                                                     FCCA589   326
             0                                    END                                                            FCCA589   327
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       BDT                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BDT
                          0                       END 
  
  
  
  
                                                  IDENT  BDT                                                     FCCA589   328
             0                                    END                                                            FCCA589   329
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       PRE                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PRE
                          0                       END 
  
  
  
  
                                                  IDENT  PRE                                                     FCCA589   330
             0                                    END                                                            FCCA589   331
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       CFA                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CFA
                          0                       END 
  
  
  
  
                                                  IDENT  CFA                                                     FCCA589   332
             0                                    END                                                            FCCA589   333
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.008 SECONDS           0 REFERENCES
  
1       UDT                                                           COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  UDT
                          0                       END 
  
  
  
  
                                                  IDENT  UDT                                                     FCCA589   334
             0                                    END                                                            FCCA589   335
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       READRL                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  READRL 
                          0                       END 
  
  
  
  
                                                  IDENT  READRL                                                  FCCA589   336
             0                                    END                                                            FCCA589   337
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.007 SECONDS           0 REFERENCES
  
1       MACROX                                                        COMPASS 3.7-871.     24/05/02. 15.56.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MACROX 
                          0                       END 
  
  
  
  
                                                  IDENT  MACROX                                                  FCCA589   338
             0                                    END                                                            FCCA589   339
  
                             52600B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.001 SECONDS           0 REFERENCES
  
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     1  
          OVERLAY(FTN,0,0)  
  
  
  
 -------- OVERLAY(FTN,0,0)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD            112
          LWA+1 OF THE LOAD         2644
  
          TRANSFER ADDRESS -- FTN              640          
  
          PROGRAM ENTRY POINTS --       FTN              640
                                        FTN4             640
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          /COMPCOM/       112      137
          FTN             251     2373    LOAD1    24/05/02 COMPASS 3.7 871               
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          NOM.TFL         0   FTN       
          FV.IN           2             
          FV.OUT          3             
          FV.LGO          4             
          L.TTLA          5             
          L.TTLB          5             
          FV.ERRS         5             
          FV.CMPS         6             
          L.MSTR          6             
          FV.RLST         7             
          FV.RMAP        10             
          FVLEN          10             
          FV.OPT         11             
          L.MAXCD        12             
          L.TITL         15             
          CO.ABT        114             
          CP.ERCT       115             
          CP.LSTF       116             
          CP.PAGE       117             
          CP.BLF        121             
          CP.PD         122             
          CP.PS         123             
          CP.PW         124             
          CP.CPU        125             
          CP.MXFL       126             
          CP.IFMT       130             
          AMODE         130             
          COMRET        133             
          GT1           135             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     2  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          GT2           136             
          CP.FLIN       137             
          CP.BUF        141             
          CP.CARD       141             
          LB.RMAP       201             
          LB.LGO        201             
          CP.AFLS       201             
          LB.LF         201             
          FL            201             
          CP.NFLS       202             
          LCM.FL        203             
          CP.MODL       205             
          F.IN          211             
          OUTPUT#       221             
          F.OUT         221             
          F.ERRS        231             
          F.LGO         241             
          SYS=          253             
          RCL=          266             
          WNB=          272             
          MSG=          302             
          F.CMPS        310             
          F.RLST        320             
          F.LF          320             
          F.RMAP        330             
          F.OPT         340             
          F.DEBUG       340             
          MLOP=X        350             
          LSTMSTR       350             
          MLOP=O        353             
          MLOP=R        354             
          F.TABS        357             
          GL.DRL        360             
          GL.DVL        361             
          GL.IND        362             
          GL.SYM        363             
          INT.FL        364             
          JOT           365             
          LASTREC       366             
          LCP.PS        367             
          RS.PD         370             
          LGOIO         372             
          L.GCON        373             
          MACFLAG       374             
          MAX.FL        375             
          MAX.RL        376             
          O.GCON        377             
          PR.MXFL       400             
          W.TABS        401             
          CER.FL        402             
          PDFLAG        403             
          CAFLAG        404             
          CO.TBK        405             
          CBNFLG        405             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     3  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CCFLAG        406             
          CO.EDT        407             
          CO.ER         410             
          CO.ID         411             
          CO.MODE       412             
          CO.OLVL       413             
          CO.REW        414             
          ROPFLAG       415             
          CO.RND        415             
          CO.SNAP       416             
          CO.STA        417             
          DFLAG         421             
          DIRECT        422             
          F.LFN         423             
          LOP=F         425             
          LOP=N         426             
          LOP=1         427             
          PMDFLAG       430             
          OT.RM         431             
          PLIMIT        432             
          QFLAG         433             
          SLIST         434             
          SPPFLAG       435             
          UFLAG         436             
          UOFLAG        437             
          ZFLAG         440             
          LCM.OA        441             
          LCM.MM        442             
          LCM.MU        443             
          OVLA          444             
          OVLB          445             
          OVL10         446             
          OVL20         447             
          OVL21         450             
          OVL22         451             
          OVL23         452             
          OVL24         453             
          OVL25         454             
          O.TITL        457             
          TL.JECT       457             
          TL.PTYP       460             
          TL.PNAM       461             
          TL.CCOP       463             
          O.TTLA        466             
          TL.DATE       470             
          TL.TIME       471             
          TL.PAGE       473             
          LDCOM         474             
          LOVER         504             
          ENDFTN        537             
          SCRTBL        573             
          REALDEC       601             
          CPTIM         615             
          TIMER         622             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     4  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TIME0         632             
          TIME1         633             
          FTN4          640             
          FTN           640             
          O.XPINB       741             
          LDPT         2777             
          MIN.TFL     40000             
  
  
  
  
  
 -------- OVERLAY(FTN,1,0,O=LDPT) 
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD           3004
          LWA+1 OF THE LOAD        37414
  
          TRANSFER ADDRESS -- FTN10           7514          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN10          3004        0    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 TS COMPILER    
          TABLES         3004     1403    LOAD1    24/05/02 COMPASS 3.7 871               
          ERRORS         4407     3105    LOAD1    24/05/02 COMPASS 3.7 871               
          BATCH          7514      263    LOAD1    24/05/02 COMPASS 3.7 871               
          HEADER         7777      541    LOAD1    24/05/02 COMPASS 3.7 871               
          PIG           10540      316    LOAD1    24/05/02 COMPASS 3.7 871               
          END           11056     1620    LOAD1    24/05/02 COMPASS 3.7 871               
          ALLOC         12676      637    LOAD1    24/05/02 COMPASS 3.7 871               
          MAIN          13535     1216    LOAD1    24/05/02 COMPASS 3.7 871               
          LEX           14753     1055    LOAD1    24/05/02 COMPASS 3.7 871               
          KEY           16030     1117    LOAD1    24/05/02 COMPASS 3.7 871               
          IF            17147      214    LOAD1    24/05/02 COMPASS 3.7 871               
          TSDATA        17363     1176    LOAD1    24/05/02 COMPASS 3.7 871               
          DECL          20561     1240    LOAD1    24/05/02 COMPASS 3.7 871               
          TYPE          22021      220    LOAD1    24/05/02 COMPASS 3.7 871               
          FMT           22241      426    LOAD1    24/05/02 COMPASS 3.7 871               
          IO            22667     1377    LOAD1    24/05/02 COMPASS 3.7 871               
          NUM           24266      343    LOAD1    24/05/02 COMPASS 3.7 871               
          PAR           24631     2231    LOAD1    24/05/02 COMPASS 3.7 871               
          CONRED        27062      416    LOAD1    24/05/02 COMPASS 3.7 871               
          ASF           27500      253    LOAD1    24/05/02 COMPASS 3.7 871               
          DO            27753      304    LOAD1    24/05/02 COMPASS 3.7 871               
          FUN           30257      160    LOAD1    24/05/02 COMPASS 3.7 871               
          REG           30437     1124    LOAD1    24/05/02 COMPASS 3.7 871               
          GEN           31563     3446    LOAD1    24/05/02 COMPASS 3.7 871               
          TSNAP         35231        0    LOAD1    24/05/02 COMPASS 3.7 871               
          INIT          35231      551    LOAD1    24/05/02 COMPASS 3.7 871               
          MAP           36002      570    LOAD1    24/05/02 COMPASS 3.7 871               
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     5  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          LIST          36572      622    LOAD1    24/05/02 COMPASS 3.7 871               
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S=COD           0   LEX                 IO             23037     23135
          CPM=1ST         0   MAIN                BATCH           7731
                                                  IO             24175     24201     24202     24203     24207     24213
          S=INP           0   LEX                 IO             22777     23073
          DDS.S           0   END                 TSDATA         20175     20406     20411
          NOM.TFL         0   FTN                 ALLOC          12775
          CPM=IMP         1   MAIN                HEADER         10063
                                                  IO             24231
          S=CONT          1   LEX                 IO             23337
          TO              1   IO                  KEY            16047
          M.STCRM         1                       END            11775
          DDS.O           2   END                 TSDATA         20374
          M.STRP2         2   IO                  END            12002
          S=OUT           2   LEX                 IO             23007     23015     23103
          CPM=DEC         2   MAIN                IO             24215     24216     24217     24220     24221
          CPM=ASF         3                       KEY            16464
                                                  DECL           21770
                                                  IO             24245
          FV.LGO          4   FTN                 BATCH           7527      7626      7744
                                                  PIG            10542
                                                  END            11253
                                                  KEY            16330
                                                  INIT           35246     35270     35274     35306     35352
          S=FREE          4   LEX                 IO             23026     23140
          M.STICO         4   IO        
          CPM=EXU         4   MAIN                IO             24173     24176     24177     24206     24210     24211     24212
                                                                 24233     24234     24235     24236     24237     24240     24241
                                                                 24242     24243     24244     24246     24247     24250     24252
          CPM=END         5                       IO             24200     24251
          L.TTLB          5   FTN                 MAIN           14722
          CPM=BY          5   MAIN                ALLOC          13071
          CPM=DAT         6                       IO             24214
          FUNCTIO         6   IO                  TYPE           22157
          L.MSTR          6   FTN                 BATCH           7756
                                                  INIT           35256
          DO=CC           6   TABLES              DO             30025     30043
          L.STL           7   IO                  HEADER         10253
                                                  END            12155     12160     12165
          CPM=FMT         7   MAIN                IO             24232
          S=BIN          10   LEX                 IO             23114     23134
          N.BLK          10   TABLES              LIST           37325
          CPM=NTR        10   MAIN                IO             24205
          FVLEN          10   FTN                 BATCH           7646
          M.STOCO        10   IO        
          BT.IDN8        10   END                 HEADER         10026
          DDS.R          11                       TSDATA         20402
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     6  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BT.IDN9        11                       INIT           35344
          CPM=TYP        11   MAIN                IO             24222     24223     24224     24225     24227
          L.MAXCD        12   FTN                 MAIN           14543
          CPM=TPE        12   MAIN                IO             24230
          CPM=OK         13                       IO             24174     24204     24226
          PR.SLP         13   TABLES              PAR            25210     25606
          N.STL          14   IO                  END            12155     12167
          S=STR          14   LEX                 IO             23505
          L.CL           15   ERRORS              LEX            15662
                                                  DECL           20622
                                                  MAP            36324
          M.STIBI        20   IO        
          LG.LOG         21   TABLES              LEX            15451
          DDS.W          23   END                 TSDATA         20426     20446
          N.TABLE        33   TABLES              BATCH           7654      7656
                                                  ALLOC          12712     12715     12730     12741     12744     12744     13235
                                                                 13237     13301     13324     13405     13414     13422     13432
                                                                 13504     13520
                                                  GEN            34331
                                                  MAP            36554
          PRECISI        33   IO                  TYPE           22033
          FORMAT         37                       LEX            15435
          M.STOBI        40             
          SA=BKS9        51   GEN                 TABLES          3242      3256
          ASF.           52   IO                  MAIN           14271
          LG.LEN         52                       MAIN           14275
          DO.            53                       MAIN           14245
          IF.            54                       MAIN           14261
          REP.           55                       MAIN           14262     14273
          EOS            56                       MAIN           13736
          NULL           57                       MAIN           13652
          SB=BKS9        61   GEN                 TABLES          3226      3237
          SX=BKS9        71                       TABLES          3245      3253
          SX=XKS9        72                       TABLES          3231      3234      3250
          M.STIBU       100   IO        
          CP.ERCT       115   FTN                 END            11336
          CP.LSTF       116                       BATCH           7575      7611
                                                  END            11241     11317
                                                  MAIN           14657     14700
                                                  KEY            16363
                                                  INIT           35322
          CP.PAGE       117                       BATCH           7575      7576
                                                  MAIN           14664     14701     14703
                                                  INIT           35345     35351
          L.FIV         120   GEN                 LEX            16016
          CP.BLF        121   FTN                 BATCH           7601
                                                  MAP            36003
          CP.PD         122                       BATCH           7612
                                                  MAIN           14704     14706
                                                  INIT           35320
          CP.PW         124                       ERRORS          4770      5046
                                                  HEADER         10053
                                                  MAIN           14367     14402     14642     14660     14674
                                                  INIT           35314
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     7  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  MAP            36015     36046     36051     36072     36100     36137     36145
                                                                 36164     36172     36200     36206     36232     36237     36245
                                                                 36256     36426     36466
                                                  LIST           37056     37313
          CP.CPU        125                       INIT           35343
          CP.MXFL       126                       BATCH           7641
                                                  END            11313
                                                  INIT           35260
          AMODE         130                       MAIN           14123     14165     14412
          CP.IFMT       130                       MAIN           14526
          COMRET        133                       BATCH           7514
          GT1           135                       BATCH           7615      7615
                                                  END            12657     12661
                                                  ALLOC          13044     13046     13050
          CP.FLIN       137                       BATCH           7743
                                                  MAIN           13630     14507     14513     14522
          CP.CARD       141                       BATCH           7514      7545      7554      7610
                                                  MAIN           13663     14166     14167     14530     14532
                                                  INIT           35232     35245
          M.STOBU       200   IO        
          CP.AFLS       201   FTN                 END            11321     11327
                                                  ALLOC          12773     13051
          LB.LGO        201                       END            11251
          CP.NFLS       202                       END            11313     11331
                                                  ALLOC          13052
                                                  INIT           35337
          CP.MODL       205                       END            11764
          F.IN          211                       MAIN           14531
                                                  INIT           35304     35311
          F.OUT         221                       BATCH           7571      7606      7616      7617      7624
                                                  ALLOC          13103
                                                  MAIN           14557     14635     14651     14706     14711     14714     14721
                                                                 14723     14725
                                                  INIT           35301     35315
          F.LGO         241                       BATCH           7530      7627      7631
                                                  END            11254     11304     12660
                                                  ALLOC          13105
                                                  KEY            16345     16347     16351
                                                  INIT           35247     35252     35275     35307
          SYS=          253                       TABLES          4073
                                                  END            11325
                                                  ALLOC          13047
          RCL=          266                       TABLES          4156      4203      4303      4320
          WNB=          272                       TABLES          4066
                                                  BATCH           7530      7650
                                                  END            11254
                                                  KEY            16345
                                                  INIT           35252     35412
          MSG=          302                       BATCH           7525      7645
                                                  HEADER         10062
                                                  END            11347
                                                  ALLOC          13102
          F.LF          320                       BATCH           7533      7535      7634
                                                  HEADER         10344
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     8  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PIG            10551
                                                  END            11102     11104     11106     12474
                                                  ALLOC          13002     13005     13014     13016     13020
                                                  INIT           35272
          F.RMAP        330                       BATCH           7541      7637
                                                  ALLOC          13031     13035     13144
                                                  INIT           35266
                                                  MAP            36505     36507     36514     36520
          MLOP=X        350                       INIT           35362
          LSTMSTR       350                       BATCH           7757
                                                  INIT           35256
          MLOP=O        353                       MAIN           14442
                                                  INIT           35352
          MLOP=R        354                       INIT           35357
          F.TABS        357                       BATCH           7653
                                                  END            11332
                                                  ALLOC          12740     12755     13053     13236
                                                  INIT           35300     35337
          INT.FL        364                       END            11321     11324     11326
          JOT           365                       HEADER         10161
          LCP.PS        367                       BATCH           7574
                                                  MAIN           14624     14632     14655
                                                  MAP            36004     36423     36454     36467
                                                  LIST           37310
          RS.PD         370                       BATCH           7613
          LGOIO         372                       END            11303
          MAX.FL        375                       ALLOC          13041
          M.STBAK       400   IO        
          W.TABS        401   FTN                 BATCH           7653
                                                  END            11333
                                                  ALLOC          12730     12740     13054
                                                  INIT           35340
          CER.FL        402                       BATCH           7522
          PDFLAG        403                       MAIN           14710
          CO.TBK        405                       END            11165
                                                  PAR            25446     25721     25733     25747     26254     26267     26303
                                                  REG            30767
                                                  LIST           36645
          CO.EDT        407                       HEADER         10242
                                                  IO             23221
          CO.ER         410                       HEADER         10262     10276     10501
                                                  END            12001     12550
                                                  MAIN           14312
                                                  KEY            16643
                                                  DO             30016
                                                  LIST           37272
          CO.ID         411                       HEADER         10265
                                                  PIG            10560
                                                  END            11601
                                                  MAIN           14323
                                                  KEY            16653
                                                  GEN            35127     35157
          CO.MODE       412                       BATCH           7736
                                                  MAIN           13670     14117     14140     14177     14217     14470     14552
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE     9  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 14602
          CO.REW        414                       INIT           35303
          CO.RND        415                       CONRED         27340
                                                  INIT           35372
          CO.STA        417                       HEADER         10252
                                                  END            11774     12076     12102
          LOP=F         425                       ERRORS          4711      4712      4714
          LOP=N         426                       ERRORS          4713
          LOP=1         427                       ERRORS          4710      4767
          OT.RM         431                       HEADER         10173
                                                  END            11221     12150
          PLIMIT        432                       END            12102     12151
                                                  INIT           35365
          SLIST         434                       BATCH           7761
                                                  MAIN           14465
          L=TABLE       453   TABLES              BATCH           7654
          O.TITL        457   FTN                 MAIN           14711
          TL.JECT       457                       BATCH           7600
          TL.PTYP       460                       BATCH           7736
                                                  HEADER         10025     10054
                                                  MAIN           14723
          TL.PNAM       461                       HEADER         10060     10522
                                                  INIT           35323
          TL.CCOP       463                       INIT           35341
          O.TTLA        466                       MAIN           14720
                                                  INIT           35324
          TL.DATE       470                       END            11761
          TL.TIME       471                       END            11762
          TL.PAGE       473                       MAIN           14677     14717
                                                  INIT           35327
          LDCOM         474                       BATCH           7573
                                                  MAIN           14561
          SA=AKS6       500   GEN                 REG            30603
          ENDFTN        537   FTN                 BATCH           7651
                                                  ALLOC          13107
          SA=ABS6       540   GEN                 REG            30604
          CPTIM         615   FTN                 END            12442
          TIMER         622                       BATCH           7520
                                                  END            12443
                                                  INIT           35253
          TIME1         633                       BATCH           7521
                                                  END            12442     12444
                                                  INIT           35254
          XMITS3       1000   GEN                 FUN            30332
                                                  REG            30617     30653     31034     31202     31422     31475
          M.STENF      1000   IO        
          LCMR         1400   GEN                 REG            30643     30714
          LCMW         1500                       REG            30642     30713
          M.STREW      2000   IO        
          T.SB         3004   TABLES              BATCH           7544
                                                  HEADER         10006
                                                  MAIN           13562     14111     14114     14211     14214
                                                  DECL           22012
          ORIGINS      3004                       ALLOC          13237
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    10  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BASES        3004                       BATCH           7663
                                                  ALLOC          12704     12725     12743     12756     13124     13126
          T.LGOB       3004                       END            11251
          TT.REF       3005                       ALLOC          13033     13156
                                                  MAP            36404     36512     36516     36534
          TT.LF        3006                       HEADER         10343
                                                  PIG            10546     10575     11022     11045
                                                  END            12467
                                                  ALLOC          13004     13011     13133
          TL.DAT       3007                       TSDATA         17374     17430     17444
          TT.FILL      3007                       END            11264     12253     12256     12615     12641
          TT.USE       3007                       REG            31061
                                                  GEN            34250     34373
          TT.XFIL      3010                       END            11266     12214     12633
          TT.SCR       3010                       END            12005     12022     12047     12157
                                                  KEY            16200     16216
                                                  NUM            24607     24620
                                                  PAR            25414     25451     25455     25730     26656
                                                  ASF            27516     27522     27527     27551     27565     27600     27606
                                                                 27616     27702     27726
                                                  FUN            30346     30367
                                                  REG            31216
                                                  GEN            34400     34403     34404
                                                  LIST           37151     37165
          TI.DAT       3010                       TSDATA         17563     17567     17663     20263     20364     20463
          TN.BLK       3011                       MAP            36040     36044     36045
          TS.CON       3011                       END            12366
                                                  ALLOC          13173     13340
                                                  LEX            15413
                                                  TSDATA         20445
                                                  IO             24106
                                                  PAR            24710     26417
                                                  CONRED         27467
                                                  DO             30076
                                                  LIST           37054
          TS.SYM       3012                       ERRORS          5102
                                                  BATCH           7671
                                                  HEADER         10041     10236     10375     10410     10447     10454
                                                  PIG            10630
                                                  END            11134     11146     11162     11633     11706     12051     12230
                                                                 12335
                                                  MAIN           14270
                                                  LEX            15636     15640     15750     15762
                                                  KEY            16056     16127     16145     16232     16316     16402     16412
                                                                 16475     16604
                                                  TSDATA         20530
                                                  DECL           20615     20633     21032     21037     21060     21066     21206
                                                                 21262     21345     21435     21611     21630     21646     21720
                                                  TYPE           22123     22174
                                                  IO             23205     23231     23711     24036     24124
                                                  PAR            24753     25055     25077     25466     25554     25722     25724
                                                                 26043     26064     26541
                                                  ASF            27502     27602     27623
                                                  REG            31071     31217
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    11  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            31705     31724     32021     32127     34250     34363     35214
                                                  MAP            36126     36203     36522     36546
                                                  LIST           36642
          TA.NAM       3013                       BATCH           7676
                                                  END            11134     11144     11163     11535     11662     12063     12572
                                                                 12573
                                                  TSDATA         20515
                                                  DECL           20632     21205     21345     21777
                                                  IO             23716     23737
                                                  REG            30674     31130
                                                  GEN            32554
                                                  MAP            36100     36306
          TS.STN       3014                       BATCH           7674
                                                  PIG            10633
                                                  END            11123     11473     11512     12574
                                                  MAIN           14325
                                                  LEX            15776
                                                  KEY            16544
                                                  FMT            22274     22312
                                                  NUM            24320     24331     24337     24354     24404     24422     24427
                                                                 24436     24450     24464     24556     24567     24576
                                                  PAR            25167
                                                  DO             30000     30111     30253
                                                  GEN            35171
                                                  MAP            36205     36224     36523     36545
                                                  LIST           36612
          T.LNT        3015                       PIG            10567
                                                  END            11615
          TP.DIM       3016                       BATCH           7700
                                                  END            11146
                                                  KEY            16425     16436
                                                  TSDATA         20532
                                                  DECL           21056     21205     21723     21774
                                                  IO             24066
                                                  GEN            32012     32072     32130     32341     32355
                                                  MAP            36345
          TP.CIDM      3017                       END            11671
                                                  DECL           21772     21775
          TP.DO        3020                       END            11514
                                                  ALLOC          13132
                                                  IO             24055
                                                  NUM            24605     24616     24622     24624
                                                  PAR            25572     25627     26512
                                                  DO             30133     30147     30156     30215     30245
          TT.COMM      3020                       DECL           20574     20721     21721     21755
          TP.EQU       3021                       DECL           21416
          TT.LINK      3021                       END            11262     12223     12227     12245     12616
          TS.EQU       3021                       DECL           21140     21150     21160     21203
          TN.EXT       3021                       MAP            36124     36135     36143
          TP.FMT       3022                       END            12375
                                                  FMT            22606
                                                  LIST           37100
          TT.ASF       3023                       ALLOC          13127
                                                  ASF            27614     27650     27705     27710     27714     27717     27721
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    12  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 27751
          TT.PAR       3024                       ALLOC          13130
                                                  MAIN           14313     14345
                                                  KEY            16066     16137     16516     16521     16524     16562     16566
                                                                 16612     16623     16705     16725     16766     17063
                                                  IF             17177     17331
                                                  IO             23343     23424     23635     23661     23753
                                                  PAR            25312     25363     26101     26412     26613     26654     27021
                                                                 27041     27047
                                                  DO             30012     30030     30042     30154
                                                  REG            31051     31112     31215
                                                  GEN            31662     32367     32634     34275     34277     34301     34313
                                                                 35130     35143     35163
          T.VDIM       3025                       ALLOC          13131
                                                  KEY            16657
                                                  FUN            30426
                                                  GEN            32030     32043     32047     34316
          TP.NLST      3026                       END            12407     12415     12431
                                                  KEY            16407     16434     16453
          TP.APL       3027                       END            12307
                                                  ALLOC          13266
                                                  DECL           20604
                                                  IO             23251     23253     23256     23262     23267     23330     23417
                                                                 24021     24030     24111
                                                  DO             30101
                                                  FUN            30363     30415
                                                  LIST           37154
          TP.ILI       3030                       IO             24145     24161
                                                  PAR            25121
          TA.PRO       3031                       HEADER         10254     10512
                                                  PIG            10652
                                                  END            11215     11747     12070     12073     12130     12327     12575
                                                  LIST           37153     37246
          TS.DAT       3032                       END            11526
                                                  TSDATA         20176     20376     20403     20411     20422     20443
          T.FILE       3032                       HEADER         10110     10132     10177     10206     10230     10245
                                                  END            11214     12107     12115
                                                  LIST           36700     37246
          TS.BLK       3033                       BATCH           7703
                                                  END            11564     12026
                                                  DECL           20562     20572     20652     20737     20750     21355     21463
                                                                 21471     21510     21526     21723
                                                  REG            31132
                                                  MAP            36006     36010     36042     36344
          TS.ENT       3034                       HEADER         10046     10243
                                                  END            11203     12052
                                                  KEY            16501
                                                  MAP            36067     36076
          T.DLBUF      3035                       ERRORS          5041
                                                  MAIN           14357     14516
                                                  KEY            16361
          T.END        3036                       BATCH           7657
                                                  END            11331
                                                  ALLOC          13052
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    13  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=LGOB       3037             
          T=SB         3037                       END            11072
                                                  MAIN           13575     14111     14212
          SIZES        3037                       BATCH           7662
                                                  ALLOC          12732     12737     12756     13240
          TT=REF       3040                       ALLOC          13026     13033     13071     13140
                                                  MAP            36516     36533
          TT=LF        3041                       HEADER         10343     10346     10347     10511
                                                  PIG            10546     10553     10574
                                                  END            11111     11306     12466
                                                  ALLOC          13010     13062
          TT=USE       3042                       END            11072
                                                  ALLOC          13063
                                                  REG            31061
                                                  GEN            34246     34271
          TL=DAT       3042                       TSDATA         17401     17412     17416     17447
          TT=FILL      3042                       END            11257     12252     12256
                                                  ALLOC          12765
          TT=XFIL      3043                       END            11257     12214     12221
                                                  ALLOC          12767
          TT=SCR       3043                       END            11073     12004     12022     12045     12060     12154
                                                  ALLOC          13063
                                                  KEY            16133     16155
                                                  NUM            24605     24611     24615
                                                  PAR            25163     25727     25732     26652     26660
                                                  ASF            27500     27565     27622     27634     27644     27746
                                                  GEN            34246
                                                  LIST           37151     37163     37165
          TI=DAT       3043                       TSDATA         17367     17375     17567
          TS=CON       3044                       END            11113     11307     12366
                                                  ALLOC          13064
                                                  MAIN           13557     14620
                                                  LEX            15342
                                                  DECL           21007
                                                  LIST           37055
          TN=BLK       3044                       MAP            36066
          TS=SYM       3045                       END            11143     11632
                                                  DECL           20632     21647     21776
                                                  TYPE           22134
                                                  MAP            36176     36203     36524     36547
          TA=NAM       3046                       END            11133     11143     11162
                                                  ALLOC          13064
                                                  DECL           21777
                                                  MAP            36126
          TS=STN       3047                       END            11123     11474
                                                  MAP            36162     36205     36224     36253     36531     36547
          T=LNT        3050                       END            11602     11615     11630
          TP=DIM       3051                       ALLOC          13062
                                                  DECL           21772     21774
          TP=CIDM      3052                       END            11276
          TP=DO        3053                       END            11511
                                                  ALLOC          13065
                                                  MAIN           14350
                                                  KEY            16036     16465
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    14  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             23427     23431     23510     24056
                                                  NUM            24604     24613     24624     24627
                                                  PAR            25573     26512     26517
                                                  DO             30147     30157     30214     30242
          TT=COMM      3053                       DECL           20574     21720     22011
          TT=LINK      3054                       END            11256     12223     12227     12252
                                                  ALLOC          12764
          TP=EQU       3054                       DECL           21401     21415
          TS=EQU       3054                       END            11073
                                                  ALLOC          13065
                                                  DECL           21202     21260     21344     21445     21474
          TN=EXT       3054                       MAP            36123     36136     36143
          TP=FMT       3055                       END            11113     11307     12375
                                                  ALLOC          13066
                                                  FMT            22312
                                                  LIST           37100
          TT=ASF       3056                       END            11071
                                                  ALLOC          13061
                                                  MAIN           13614
                                                  PAR            25706
                                                  ASF            27613
          TT=PAR       3057                       ALLOC          13066
                                                  MAIN           14340
                                                  KEY            16567     16707
                                                  IF             17255     17335     17336
                                                  DECL           21540     21551     21554
                                                  PAR            24654     25336     25365     25751     26054     26077     26305
                                                                 26610     26640     27023
                                                  DO             30013     30043
                                                  GEN            31662     34245     34273
          T=VDIM       3060                       GEN            34310     34315     34317
          TP=NLST      3061                       END            11121     11310     12403     12407     12415     12431
                                                  ALLOC          13067
                                                  KEY            16403     16433
          TP=APL       3062                       END            11117     11272     11310     12307
                                                  ALLOC          13067     13266
                                                  LIST           37145     37162
          TP=ILI       3063                       IO             23352     24142     24152
          TA=PRO       3064                       PIG            10650
                                                  ALLOC          13070
          T=FILE       3065                       HEADER         10220
                                                  END            12107
          TS=DAT       3065                       END            11311     11524     11526
                                                  ALLOC          13070
                                                  TSDATA         20441
          TS=BLK       3066                       END            11563     12021
                                                  ALLOC          13072
                                                  DECL           20562     20652     20741
                                                  MAP            36011
          TS=ENT       3067                       END            11204     12046
                                                  ALLOC          13072
                                                  MAP            36070     36076     36122
          T=DLBUF      3070                       MAIN           13665     14357     14363     14366     14462     14505     14516
          RATES        3072                       BATCH           7660
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    15  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PTSN         3125             
          TG.BASE      3125                       BATCH           7666
          TG.PRO       3130                       HEADER         10170     10175     10204     10515
                                                  PIG            10650
                                                  KEY            16505     16517     16566     16702     17012
                                                  IF             17203
                                                  DECL           20570
                                                  IO             23150
                                                  PAR            25622
                                                  FUN            30334     30423
          TG.APL       3130                       ALLOC          13271
                                                  IO             22767     23066     23331     23351     23362     23422     23520
                                                  LIST           37150
          TG.VDIM      3131                       END            11116
                                                  GEN            32032
                                                  LIST           37135
          TG.TEM       3132                       IO             23626
                                                  FUN            30372
                                                  REG            31113
                                                  GEN            34257
          TG.END       3132                       BATCH           7665      7667
          CHARMAP      3133                       ERRORS          4751
                                                  HEADER         10424     10504
                                                  LEX            15630
                                                  KEY            16205     16237     16334     16745
                                                  DECL           20776     21100     21601     21635
                                                  TYPE           22220     22225
                                                  IO             23501     23564
                                                  PAR            24667     25300     25305     26031     26705
                                                  GEN            34337
          RG=BADR      3226                       REG            30440     31210     31257     31305
          RG=INTR      3231                       REG            30444
                                                  GEN            34431
          RG=TEMP      3234                       GEN            34432     34636     34741
          RG=LOAD      3242                       REG            30450     30574     30750     31103     31207     31224
                                                  GEN            32405     32421     32457     32461     34433     34701
          RG=LODX      3245                       REG            31201     31211     31473
                                                  GEN            34434     34712     34747
          RG=SET       3250                       REG            30622     30667     31244
                                                  GEN            32567
          RG=STOR      3253                       REG            30456     31410
                                                  GEN            34435     34752     35201
          REGFILE      3261                       DO             30201     30203     30210
                                                  FUN            30313     30326
                                                  REG            30453     30462     30472     30501     30522     30534     31026
                                                                 31105     31153     31172     31175     31227     31363     31371
                                                                 31414     31460     31463     31515     31523     31526     31530
                                                                 31535     31556     31557
                                                  GEN            32412     32413     32440     34643     34643     34654     34661
                                                                 34725     34740     34770     34770
          REGB         3261             
          REGA         3271                       REG            30546     31343     31353     31364
                                                  GEN            34263
          REGX         3301                       REG            31342     31350     31555
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    16  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            32424     34263     34613     34617     34633
          REG=T        3311                       GEN            34627     34654     34656     35204
          REG=B        3331                       GEN            34607     34662
          ARGCOMA      3351                       KEY            16135     16156     16201     16220     16221     16227     17005
                                                  IF             17152
                                                  DECL           21544
                                                  IO             22756     23517
                                                  PAR            24647     25173     25233     25247     25400     25443     25460
                                                                 25641     25652     25663
                                                  CONRED         27121
                                                  DO             30142
                                                  GEN            32067     32076     32241     32252     32265     32331
          ARGMODE      3352                       KEY            16135     17005
                                                  IF             17153
                                                  DECL           21545
                                                  IO             22743     22760     22764     23160     23366     23451     23470
                                                                 23543
                                                  PAR            24647     24654     24723     24732     24741     24771     25023
                                                                 25034     25126     25172     25205     25220     25233     25236
                                                                 25246     25272     25331     25350     25401     25651     25661
                                                                 26624
                                                  CONRED         27117     27164     27173
                                                  DO             30143
                                                  GEN            32167     32236
          ARGMIS       3353                       PAR            25175     25443     25461     25475     25653     25665
          ATTR         3354                       PAR            24747     24767     25115     25366     26610     27046
                                                  GEN            31770     32170     32174
          ASFLEN       3355                       MAIN           13615
                                                  PAR            25703
          BA.PRO       3356                       HEADER         10257     10521
                                                  END            11270
                                                  KEY            16101
                                                  LIST           37326
          BA.CON       3357                       END            11115     11260     12325     12600
                                                  LIST           37072
          BA.FMT       3360                       END            11125
                                                  LIST           37110
          BA.TEM       3361                       END            12326     12577     12602
                                                  LIST           37121     37133
          BA.APL       3362                       END            11271     12361     12607
                                                  LIST           37145
          BA.NLST      3363                       END            11165     11273
          BA.VAR       3364                       END            11135     11150
          BA.BUF       3365                       END            11212
          LOCAL        3366                       END            11233     11234     11237     12025
                                                  LIST           37266
          COMSIZ       3367                       END            11234     11237
                                                  LIST           37266
          BINIO        3370                       BATCH           7531      7633
                                                  HEADER         10342
                                                  PIG            10550
                                                  END            11101     12466
                                                  ALLOC          12775     13002
                                                  INIT           35354
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    17  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BINOUT       3371                       ERRORS          5063
                                                  BATCH           7750
                                                  PIG            10543
                                                  END            11762     11771
                                                  PAR            27021
                                                  GEN            34273
          CALL         3373                       LEX            15743     15752     15754
          CARDS        3375                       BATCH           7742
                                                  MAIN           14433     14471     14526
          CCNT         3376                       BATCH           7547
                                                  MAIN           13663     13716     13734     14211     14456     14467
                                                  KEY            16357
          COMMENT      3377                       MAIN           14466     14506     14605
          CONF         3400                       CONRED         27066
          CSLIST       3402                       MAIN           14154     14424     14445     14500
          CSNTAG       3403                       HEADER         10007
                                                  MAIN           14311     14327     14617
                                                  KEY            16717
                                                  IF             17250
                                                  NUM            24345
          CSSTMT       3404                       MAIN           14150     14157     14425     14577
          CSYMBOL      3405                       PAR            24750     25150     25160
          BLNKCOM      3406                       BATCH           7727
                                                  TSDATA         20517
                                                  DECL           20654     20677     20727     20747
                                                  MAP            36022     36035
          DOLMR        3407                       DO             30241
          DOIX         3411                       PAR            25630     26530
                                                  DO             27765     30007     30170     30177     30210
          DOSTNO       3413                       DO             27756     27767     30131
          CDORD        3414                       NUM            24465
                                                  DO             30114     30126
          DOORD        3415                       BATCH           7726
                                                  MAIN           14324
                                                  LEX            15774
                                                  KEY            16543
                                                  NUM            24330     24334     24355     24376     24425     24442     24447
                                                                 24464
                                                  PAR            25166
                                                  DO             30110     30237
          DRITE        3416                       BATCH           7712
                                                  REG            30505     30520     30544     31444     31461
                                                  GEN            34242     34557
          DTI          3421                       MAIN           13633     14615
                                                  KEY            16532     16711
                                                  IF             17172     17237     17242
                                                  NUM            24342     24457
          ENTRY.       3422                       HEADER         10045     10047     10272
                                                  END            12062
                                                  LEX            15650
                                                  KEY            16412     16513     16637     16645
                                                  TYPE           22127
                                                  PAR            25051
          ERRORS       3423                       ERRORS          5145
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    18  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  BATCH           7745
                                                  END            11076     11245     11335
          ETF          3424                       BATCH           7713
                                                  KEY            16304
                                                  TYPE           22122     22156
          FAILSFT      3425                       BATCH           7713
                                                  END            11063
                                                  ALLOC          13057
                                                  MAP            36002     36417
                                                  LIST           37307
          FLOW         3426                       BATCH           7714
                                                  MAIN           14330     14332
                                                  KEY            16272     16505     16703
                                                  IF             17176     17240     17252     17327     17334
                                                  PAR            25334
                                                  DO             27772
          HANGER       3430                       BATCH           7714
                                                  MAIN           14306
                                                  KEY            16555     16716
                                                  IF             17242     17247
          HDELAY       3431                       BATCH           7762
                                                  HEADER         10064
                                                  MAIN           13624     13661     14365     14461     14505
          NOLDS        3432                       GEN            32635     34440     34547
          ICONL        3433                       MAIN           13556
                                                  LEX            15343
                                                  IO             22743     23064     23335     23370     23436     23544     23546
          ICV          3434                       BATCH           7715
          IDENT1       3435                       HEADER         10060
          NAME         3437                       HEADER         10053
                                                  END            12061
          IGS          3441                       BATCH           7715
                                                  HEADER         10350
                                                  PIG            10545     10554     10574
                                                  END            11112
                                                  ALLOC          12777     13004     13007
          INAFR        3442                       PAR            24662     25704
                                                  ASF            27650     27704     27711     27722
          LASTCOL      3443                       BATCH           7550
                                                  MAIN           13573     13662     13717     13732     13740     14146     14151
                                                                 14155     14177
                                                  TSDATA         17417
                                                  FMT            22315
          LASTOP       3444                       PAR            25372     26355     26423     26456
          LASTAD       3445                       PAR            25370     26356     26423     26642
          LCNT         3446                       BATCH           7577
                                                  MAIN           14625     14631     14655
                                                  MAP            36005     36423     36455     36462
                                                  LIST           37310
          LDEAD        3447                       IF             17253
                                                  PAR            24662     25335
                                                  DO             27774
          LINEBUF      3450                       ERRORS          4773      4777      5045      5051
                                                  PIG            10620
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    19  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  END            11341     11345     11350
                                                  MAP            36050     36062     36063     36101     36115     36116     36146
                                                                 36155     36156     36222     36233     36234     36242     36243
                                                                 36246     36247     36250     36256     36417
                                                  LIST           36707     36712     36725     36746     37002     37036     37036
                                                                 37124     37126     37130     37141     37142     37174     37177
                                                                 37205     37206     37233     37240     37270     37301     37314
                                                                 37314     37317     37330     37332     37333     37334
          LDRFLG       3466                       BATCH           7740
                                                  KEY            16327
          LOSTREF      3467                       BATCH           7716
                                                  ALLOC          13152
                                                  MAP            36420     36511
          L.CARD       3470                       BATCH           7545
                                                  MAIN           13660     14166     14506     14550
                                                  INIT           35246
          MOD          3471                       BATCH           7716
                                                  HEADER         10024     10371     10402     10471
                                                  END            11056     11064     11076     11213     11245     11300     11746
                                                                 11772     11776     12044     12067     12460
                                                  MAIN           13601     13631
                                                  KEY            16272     16315     16461     16543     16627
                                                  TSDATA         20523
                                                  TYPE           22122
                                                  IO             23216
                                                  PAR            25053
                                                  GEN            34310
                                                  LIST           37242     37302
          MSF          3472                       BATCH           7717
                                                  END            11510
                                                  MAIN           13654
          MSN          3473                       END            11133     11472
          MULS         3474                       MAIN           13572     13656
                                                  LEX            15341     15371
                                                  KEY            16266     16365
          NARGS        3475                       BATCH           7720
                                                  HEADER         10227     10251     10370     10401     10422     10470
                                                  END            11215     12073
                                                  KEY            16522     16637
                                                  TYPE           22134
                                                  LIST           37242
          NOLIST       3476                       BATCH           7731
                                                  END            11317
                                                  MAIN           14424     14435     14440     14466
                                                  KEY            16256
          NOPATH       3477                       BATCH           7720
                                                  MAIN           14327
                                                  KEY            16274     16463     16547     16575     16620     16700     16702
                                                                 17041     17051
                                                  IF             17266
                                                  NUM            24455
                                                  DO             27773
          NREXT        3501                       END            11203     11262     12224     12230     12251
                                                  ALLOC          12766
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    20  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  MAP            36121
          NSK          3502                       BATCH           7721
                                                  END            11505
                                                  MAIN           13646
          NTRCNT       3503                       BATCH           7721
                                                  KEY            16515     16650     16655
          ORG          3504                       HEADER         10170     10247     10250     10341     10520
                                                  PIG            10566     10612     10622
                                                  END            11112     11541     12072     12270     12305     12367     12405
                                                                 12462     12536     12630     12636     12652
          O.STITL      3505                       BATCH           7735
                                                  MAIN           14713
                                                  MAP            36415     36466
          PARCEL       3506                       BATCH           7733
                                                  PIG            10600     10641     10643
                                                  END            11530     12463     12502     12515     12651
          PASS         3507                       BATCH           7722
                                                  END            11110
                                                  ALLOC          12764     13007     13075
                                                  MAIN           13552
                                                  MAP            36503     36523
          REFIO        3510                       BATCH           7540      7636
                                                  ALLOC          13023     13031     13154     13160
                                                  INIT           35361
                                                  MAP            36504
          REFLIN       3511                       HEADER         10044     10267
                                                  ALLOC          13151
                                                  MAIN           14315     14474     14477
                                                  GEN            31667
          REFNUM       3512                       MAIN           14616
                                                  KEY            16035     16213     16665
                                                  IO             23531
                                                  NUM            24365
                                                  DO             30106
          REFVAR       3513                       MAIN           14620
                                                  LEX            15670     15770
                                                  KEY            16034     16110     16666
                                                  IF             17214
                                                  TSDATA         17372
                                                  DECL           20676     20772     21125
                                                  TYPE           22166
                                                  IO             23223     23367
                                                  PAR            24664     24754     25106     25200     25327     25664
                                                  ASF            27601
          RJTDUM       3514                       BATCH           7724
                                                  FUN            30432
                                                  GEN            34322
          RGC          3515                       GEN            34431
          RGX          3516                       REG            30452     30464     31077     31512
                                                  GEN            34427     34637
          ROUTNAM      3517                       PAR            26265     26305
                                                  FUN            30263     30403     30406     30423
          RREG         3520                       FUN            30322     30400
                                                  REG            30513     30515     31164     31274     31511
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    21  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            32376     32453     34475     34536     35024     35027
          RTNCNT       3521                       BATCH           7724
                                                  KEY            16557     16572     16623
          SB.STNL      3522                       MAIN           13560     13737     14302     14315
                                                  KEY            16262     16353
          SB.STNR      3523                       MAIN           13570     13646     14301
                                                  LEX            15434
                                                  FMT            22261
          STAGE        3524                       BATCH           7732
                                                  HEADER         10063
                                                  ALLOC          13073
                                                  MAIN           13551     13605
                                                  KEY            16463
                                                  DECL           21771
                                                  TYPE           22152
          STATIC       3525                       BATCH           7727
                                                  END            12001
                                                  IO             22740     23020     23054     23120     23126     23443
          STN          3526                       HEADER         10007
                                                  MAIN           14304     14616
                                                  KEY            16246     16674     16754     17032
                                                  NUM            24325
          SYSERR       3527                       BATCH           7725
          TEM.MAX      3530                       BATCH           7671
                                                  END            11114     12363     12576
                                                  GEN            34256
                                                  LIST           37121     37133
          THRESH       3531                       END            11334
                                                  ALLOC          12734     13055
                                                  INIT           35341
          TRACE        3532                       FUN            30410
                                                  GEN            35125     35151
          TRLINE       3533                       KEY            16141     17023
                                                  IO             24136
                                                  PAR            25434
                                                  GEN            31670
          TS=CONB      3534                       MAIN           14622
                                                  DECL           21006
          UUC          3535                       DO             30211
                                                  FUN            30265
                                                  REG            31547
                                                  GEN            34441     34504     34664     34666     34730     35000     35020
                                                                 35035
          VALUE.       3536                       KEY            16317     16414     16630
                                                  TYPE           22130
                                                  PAR            25055
          VARDIM       3537                       DECL           21035     21646
          WNZ          3540                       BATCH           7725
          FIRSTV       3541                       MAIN           14235     14267     14274
                                                  LEX            15340     15430
                                                  IF             17160
          ZLEQUAL      3542                       MAIN           14237
                                                  LEX            15373
                                                  PAR            24642
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    22  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ZLCOMMA      3543                       MAIN           14243
                                                  LEX            15377
          ZLPAREN      3544                       MAIN           14253
                                                  LEX            15367
          ZLE          3545                       MAIN           14240
                                                  PAR            24643     25242     25317     25324
          ANSI         3546             
          LOP=X        3546                       ERRORS          4707
                                                  MAIN           13554
          LSTWRKG      3546                       BATCH           7757
                                                  INIT           35257
          IEFLG        3547             
          LOP=W        3547                       ERRORS          4715
          LOP=M        3550                       END            11242     11311
                                                  KEY            16256
                                                  INIT           35263
          OLIST        3551             
          LOP=O        3551                       BATCH           7746
                                                  HEADER         10067     10233     10257     10350     10517
                                                  PIG            10555     10644
                                                  END            11247
                                                  MAIN           14441     14443
                                                  INIT           35261     35270
                                                  LIST           37271
          LOP=R        3552                       BATCH           7537
                                                  LEX            15665     15765
                                                  KEY            16257
                                                  NUM            24364
                                                  PAR            25104
                                                  MAP            36216     36431     36435     36502
          RSELECT      3552                       INIT           35265
          R=FLAG       3553             
          CONONE       3554                       PAR            25612
                                                  DO             30041
          CONZER       3555                       CONRED         27253     27375
          VTRUE        3557                       PAR            25134
          MAPCHAR      3561                       LEX            15353
          LOGT         3574                       LEX            15453
          CONOTBL      3616                       PAR            24674     25203
          ACONS        3656                       PAR            24715
          FEXPR        3657                       PAR            24665
          POPTBL       3660                       PAR            25371
          PSTACK       3720                       PAR            24676
                                                  INIT           35374     35377     35402     35405
          PLUS         3720                       GEN            32001
          MULT         3722                       GEN            31774
          LPAR         3724                       PAR            25177
          EQUAL        3726                       PAR            25326
          COMMA        3727                       PAR            25215
          UMINUS       3743                       PAR            25257
                                                  GEN            32323
          ANDNOT       3747                       PAR            26447
          APLSTOR      3752                       IO             23655     24023     24034
          APLSTOD      3753                       IO             24024
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    23  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          APLUG        3754                       IO             23652     24031
                                                  DO             30055
          ASSN         3755                       KEY            16061
          PLUS(S       3756                       GEN            32103     32114
          MULT(S       3757                       GEN            32121
          SUBOP        3760                       GEN            32171
          PLUS.M       3761                       CONRED         27151
          MINUS.M      3762                       CONRED         27156
          DO.BEG       3764                       DO             30161
          CALLIO       3765                       IO             23345
                                                  DO             30057
          IN.EXP       3767                       PAR            26216
          ERROP        3770                       PAR            25313     25356     25406
          GOASS        3771                       KEY            16770
          OPBSS        3772                       MAIN           14347
          OPDUM        3773                       KEY            17071
          REVMIN       3774                       PAR            26360
          SDIV         3775                       PAR            26340     26346     26364
          XPOP         3776                       GEN            31671
          OTROP        3777                       MAIN           14316
                                                  KEY            16644
          M.STCMM      4000   IO        
          INTMAC       4000   TABLES              PAR            25430
                                                  GEN            32217
          CALLOP       4001                       KEY            16177     16215
                                                  PAR            25413     25446     25734     26025     26045     26273
          BIFFUN       4002                       PAR            25466     26012
                                                  GEN            31574
          RANF         4003                       GEN            31652
          BIFSHF       4004                       GEN            31630
          EXTCAL       4005                       KEY            16142
          EXTFUN       4006                       PAR            25747     26053     26303
          BEFFUN       4007                       PAR            25750     26304
          RJSUB        4010                       FUN            30424
          REGARG       4011                       PAR            25450     25737
          REGARG2      4012                       PAR            26301
          OPRETS       4013                       KEY            16634
          OPRETD       4014                       KEY            16631
          IMULT2       4015                       CONRED         27432
          NOOPP        4016                       DO             30020     30066
          XMITOP       4017                       GEN            32165
          DO.CSKL      4020                       DO             30026
          SHFC         4031                       CONRED         27427
                                                  GEN            32160
          SHFS         4032                       CONRED         27443
          SHFSA        4033                       CONRED         27445
          SHFD         4034                       CONRED         27452
          SHFDS        4035                       CONRED         27454
          DIVP2        4036                       CONRED         27224
          VD.EQ        4037                       GEN            32036
          VD.MULT      4040                       GEN            32045
          VD.INTR      4041                       GEN            32050
          ARRARM       4042                       PAR            25131
          ASFARM       4043                       PAR            25144
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    24  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BEFXARM      4044                       PAR            25161
          BIFARM       4045                       PAR            25151
          BUFMOD       4046                       IO             22737
          BUFFWA       4047                       IO             22756
          BUFLWA       4050                       IO             22762
          CALLARM      4051                       KEY            16133
          CNFARM       4052                       PAR            24646
          DECARM       4053                       DECL           21542
          DOARM        4054                       DO             30141
          EXTFARM      4055                       PAR            25157
          GOTARM       4056                       KEY            17004
          IFARM        4057                       IF             17151
          LPARM        4060                       PAR            25227
          IOARGM       4061                       IO             23510
          NDC=CNT      4063                       IO             23450
          NDC=STR      4064                       IO             23467
          PTN=FMT      4065                       IO             23542
          CIO=         4074                       BATCH           7534      7536      7542      7572      7625      7630      7632
                                                                  7635      7640
                                                  END            11103     11105     11107     11305
                                                  ALLOC          13003     13015     13017     13021     13032     13104     13106
                                                  MAIN           14560
                                                  KEY            16352
                                                  INIT           35302     35305     35310     35312
                                                  MAP            36506     36510     36515
          RDC=         4101                       MAIN           14531
          RDW=         4115                       END            12474
                                                  MAP            36520
          WTC=         4230                       BATCH           7607      7616
                                                  MAIN           14636     14652     14707     14712     14715     14721     14724
                                                                 14726
                                                  KEY            16350
          WTW=         4243                       HEADER         10345
                                                  PIG            10552
                                                  END            12660
                                                  ALLOC          13006     13035     13144
          CDD          4331                       END            11340     11506
                                                  MAIN           14504     14673
                                                  FMT            22525
                                                  INIT           35365
                                                  MAP            36353     36407     36421     36550
          COD          4335                       BATCH           7641
                                                  HEADER         10247     10351
                                                  PIG            10617
                                                  END            11243     12440
                                                  MAP            36056     36113     36272     36326     36340
                                                  LIST           36706     37074     37112     37130     37142     37176     37203
                                                                 37232     37254     37262     37267     37327     37331
          DXB          4344                       PIG            10565
                                                  MAIN           14473
          LJS          4352                       END            11501     11520
                                                  MAP            36262
          SFN          4357                       HEADER         10052
                                                  MAP            36111     36153     36301
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    25  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LIST           36711     36745     37066     37173     37252     37260
          WOD          4365                       LIST           37071     37107
          E.AC5        4407   ERRORS              HEADER         10507
                                                  KEY            16242
          E.AC6        4410                       HEADER         10404
          E.AP         4411                       HEADER         10075     10441
                                                  KEY            16176
          E.AP1        4412                       HEADER         10421     10466
                                                  KEY            16225
          E.RA         4413                       KEY            16603
          E.RA1        4414                       KEY            16606     16607
          E.AF3        4415                       ASF            27537
          E.AF4        4416                       ASF            27575
          E.AF5        4417                       ASF            27660
          E.AF6        4420                       ASF            27552
          E.AF11       4421                       ASF            27664     27700
          E.AF15       4422                       ASF            27521
          E.AF17       4423                       ASF            27507     27511
          E.ANS1       4424                       MAIN           13555
          E.ART        4425                       KEY            16553
          E.ART1       4426             
          E.AS4        4427                       KEY            16032
                                                  DO             27755
          E.CL         4430                       KEY            16107
          E.CL1        4431                       KEY            16155
          E.CM         4432                       DECL           20767
          E.CM1        4433                       DECL           20725
          E.CM2        4434                       DECL           20742
          E.CM3        4435                       DECL           20724
          E.CM4        4436                       DECL           20700
          E.CM5        4437                       DECL           20757
          E.CM6        4440                       DECL           20704
          E.CT         4441                       KEY            16254
          E.DACV       4442                       TSDATA         17411
          E.DAVC       4443                       TSDATA         17410
          E.DAUC       4444                       TSDATA         20510
          E.DCE        4445                       TSDATA         17636     17640
          E.DIL        4446                       TSDATA         17467     17514
          E.DIL1       4447                       TSDATA         17500
          E.DIL2       4450                       TSDATA         17507     17533
          E.DIL3       4451                       TSDATA         17553
          E.DMT        4452                       TSDATA         17450
          E.DNA2       4453                       TSDATA         17370
          E.DSE        4454                       TSDATA         17433     17440     17447     17461     17463     17464
          E.DVL1       4455                       TSDATA         17702     17726     20102
          E.DVL2       4456                       TSDATA         17741     17744     17747     17751
          E.DVL21      4457                       TSDATA         17760
          E.DVL22      4460                       TSDATA         17762
          E.DVL23      4461                       TSDATA         17764
          E.DVL24      4462                       TSDATA         17766
          E.DVL25      4463                       TSDATA         17773
          E.DVL26      4464                       TSDATA         17775
          E.DVL29      4465             
          E.DVL3       4466                       TSDATA         17733     17737
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    26  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DVL4       4467                       TSDATA         17755
          E.DVL5       4470                       TSDATA         17710
          E.DVL6       4471                       TSDATA         17722     17722     20002     20075     20075
          E.DVL7       4472                       TSDATA         20104
          E.DVL8       4473                       TSDATA         20120     20127     20135
          E.DVL9       4474                       TSDATA         17637
          E.DM         4475                       DECL           21025     21105
          E.DM1        4500                       DECL           21074     21120
          E.DM2A       4501                       DECL           21112
          E.DM2        4502                       DECL           21117
          E.DM3        4503                       DECL           21042
          E.DM5        4504                       DECL           21031
          E.DM5A       4505                       DECL           21023     21025
          E.DM7        4506                       DECL           21121
          E.DM8        4507                       DECL           21050
          E.DM10       4510                       DECL           21003
          E.EQ         4511                       DECL           21166
          E.EQ1        4512                       DECL           21131
          E.EQ2        4513                       DECL           21156
          E.EQ3        4514                       DECL           21164
          E.EQ4        4515                       DECL           21163
          E.EQ5        4516                       DECL           21153     21154     21155
          E.EX3        4517                       DECL           21011     21576
          E.FS1        4520                       FMT            22263
          E.FS2        4521                       FMT            22317
          E.GO         4522                       KEY            16671     16761     16777
          E.GO1        4523                       KEY            16664
          E.GO2        4524                       KEY            16721
          E.GO3        4525                       KEY            16750
          E.IF         4526                       IF             17156
          E.IF3        4527                       IF             17222     17225
          E.IF6        4530                       IF             17171
          E.IF9        4531                       IF             17162
          E.IF10       4532                       IF             17235
          E.IF11       4533                       IF             17163
          E.IF12       4534                       IF             17231
          E.IF13       4535                       IF             17223
          E.IO         4536                       IO             23565
          E.IO1        4537                       IO             23055     23561
          E.IO3        4540                       IO             23567
          E.IO7        4541                       IO             23532     23536
          E.IO11       4542                       IO             23610
          E.IO12       4543                       IO             23612
          E.IO13       4544                       IO             23133
          E.IO14       4545                       IO             23431
          E.IO20       4546                       IO             23145
          E.IO25       4547                       IO             23117
          E.IO27       4550                       IO             23030     23031     23356
          E.IO29       4551             
          E.IOB1       4552                       IO             22734
          E.IOB2       4553                       IO             23641     23642
          E.IOB3       4554                       IO             22736     22755
          E.IOB4       4555                       IO             22750     22762
          E.IOB5       4556                       IO             22754     22766
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    27  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IOB7       4557                       IO             23664     23665     23667     23756     23757     23761
          E.IOB8       4560                       IO             23645
          E.IOB9       4561                       IO             23713     23715     23723     23731     23733     23735     23736
          E.IOB10      4562                       IO             23704     23727     23746
          E.IOD1       4563                       IO             23271
          E.IOD2       4564                       IO             23304
          E.IOD3       4565                       IO             23307
          E.IOD4       4566                       IO             23320
          E.IOL5       4567                       IO             23415     23416
          E.ION        4570                       IO             23441
          E.IOS1       4571                       IO             23447
          E.IOS2       4572                       IO             23457
          E.IOS3       4573                       IO             23464
          E.IOS4       4574                       IO             23466
          E.IOS5       4575                       IO             23474
          E.IOS6       4576                       IO             23446     23457     23465
          E.IOS7       4577                       IO             23472     24121     24127
          E.IOS9       4600                       IO             23454     23454     23767     23770
          E.IOS10      4601                       IO             23461
          E.LN         4602                       KEY            16373
          E.LN1        4603                       KEY            16401
          E.LN2        4604                       KEY            16375
          E.LN3        4605                       KEY            16403
          E.LN4        4606                       KEY            16431
          E.LV1        4607                       DECL           21665     21665     21674
          E.LV2        4610                       DECL           21676     21677
          E.LV3        4611                       DECL           21701     21701
          E.LV4        4612                       DECL           21705
          E.LV5        4613                       DECL           21715
          E.FM         4614                       MAIN           13600     14010
                                                  KEY            16072
                                                  IF             17165
                                                  TYPE           22042
                                                  FMT            22262
          E.MA         4615                       MAIN           13620
          E.MB         4616                       MAIN           13603
          E.MCA        4617                       MAIN           13735
          E.MD         4620                       MAIN           13621
          E.ME         4623                       KEY            16265
          E.MH         4624                       MAIN           13622
          E.MI         4625                       MAIN           13623
          E.MIJ        4626                       TYPE           22054
          E.MN         4627                       END            11507
          E.M$         4630                       END            11510
          E.M$2        4631                       KEY            16267
          E.M$3        4632                       KEY            16366
          E.MK         4633                       MAIN           13643     14232
          E.MO1        4634                       END            11235
          E.MR1        4635                       HEADER         10077     10106     10115     10123     10212     10363     10416
                                                                 10460
                                                  KEY            16222
          E.MR2        4636                       KEY            16374
                                                  DECL           21076
          E.MR3        4637                       KEY            16410
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    28  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           21127
          E.MT         4640                       MAIN           13624     13626
          E.NP         4641                       MAIN           14337
          E.NP1        4642                       DO             27774
          E.OV         4643                       KEY            16332
          E.OV1        4644                       KEY            16333
          E.OV3        4645                       KEY            16360
          E.PT         4646                       KEY            16476
          E.PT3        4647                       KEY            16470
          E.PT1        4650                       KEY            16462
          E.PT4        4651                       KEY            16471
          E.SN18       4652                       NUM            24375
          STNTD        4655                       NUM            24407
          STNTND       4660                       NUM            24410
          E.SPR3       4661                       KEY            16532
          E.TC2        4662                       HEADER         10217
                                                  ASF            27535
          E.TC3        4663                       HEADER         10150     10152
          E.TC4        4664                       HEADER         10152
          E.TC6        4665                       HEADER         10133
          E.TC7        4666                       HEADER         10127
          E.TC9        4667                       HEADER         10137     10141     10143
          E.TC10       4670                       HEADER         10143
          E.TE5        4671                       LEX            15633
                                                  DECL           21604
                                                  TYPE           22225     22227
          E.TY         4672                       HEADER         10427
                                                  DECL           21001
                                                  TYPE           22223
                                                  PAR            26034
          E.TYH        4673                       MAIN           14224
                                                  TYPE           22047
          E.TYIK       4674                       TYPE           22056
          E.TYI1       4675                       TYPE           22061
          E.TYI2       4676                       TYPE           22064     22074
          E.TYI6       4677                       TYPE           22116
          E.TYI7       4700                       TYPE           22121
          E.UE         4701                       IO             23604
          E.UE1        4702                       IO             23605
          E.US1        4703                       LEX            15005     15360
          E.VA3        4704                       PAR            25053     25054
          E.XC1        4705                       DECL           21172
          E.ZA         4706                       HEADER         10240
                                                  END            12417     12433
                                                  DECL           20576
          ERR=F        4720                       BATCH           7745
                                                  END            11335
                                                  ASF            27575
                                                  DO             30145
                                                  GEN            34272
          ANSI=        4727                       HEADER         10437
                                                  ALLOC          13464
                                                  LEX            15021     15402     15461     15501     16007
                                                  KEY            16076     16116     16174     16276     16457     16537     16610
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    29  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 16741     17002     17117     17125
                                                  IF             17174     17233     17325
                                                  TSDATA         17435     17515     17705     20421     20436
                                                  DECL           20735     20764     21113     21146     21663
                                                  TYPE           22036     22046     22052
                                                  FMT            22245     22346     22364     22372     22403     22435     22446
                                                                 22450     22461
                                                  IO             22726     23012     23023     23046     23076     23106     23124
                                                                 23137     23432     23442     23775
                                                  PAR            24645     24743     24777     25140     25253     25421     25427
                                                                 25523     25562     26114     26547     26752     27014
                                                  CONRED         27125
                                                  DO             27762
          ANSI.SW      4730                       INIT           35362
          OSE          5073                       GEN            32140     32142     32177     32243     32254     32333
          SA=BKS3      5100   GEN                 KEY            17132
                                                  IO             24132
                                                  REG            30565     30724     31041
          PWE          5116   ERRORS              HEADER          7777     10035     10102     10104     10113     10131     10215
                                                                 10223     10366     10373     10377     10436     10445     10451
                                                                 10467     10473     10475
                                                  END            11062     11503     11522
                                                  ALLOC          13074
                                                  MAIN           13561     13636     13651     13700     13710     14460     14562
                                                  LEX            15047     15074     15077     15111     15120     15302     15304
                                                                 15335     15527     15532     15560     15563     15566     15621
                                                                 16012
                                                  KEY            16046     16053     16063     16065     16152     16173     16210
                                                                 16226     16235     16250     16252     16264     16271     16356
                                                                 16370     16423     16467     16474     16600     16616     16676
                                                                 16722     16736     16757     16763     17036     17107     17113
                                                                 17122     17131
                                                  IF             17244     17271     17275     17322
                                                  TSDATA         17365     20432     20440     20521     20525
                                                  DECL           20627     20650     20664     20672     21015     21073     21103
                                                                 21122     21170     21236     21247     21253     21420     21422
                                                                 21425     21427     21433     21440     21461     21506     21555
                                                                 21562     21614     21617     21640     21660
                                                  TYPE           22070     22076     22100     22102     22111     22176     22203
                                                  FMT            22305     22327     22333     22344     22351     22356     22410
                                                                 22413     22432     22444     22463     22474     22570     22576
                                                                 22600
                                                  IO             23033     23043     23057     23130     23132     23227     23357
                                                                 23503     24003     24014     24051     24063
                                                  NUM            24306     24311     24315     24323     24336     24352     24505
                                                                 24540     24565     24575
                                                  PAR            24671     24725     24762     25006     25031     25041     25044
                                                                 25046     25240     25310     25330     25405     25424     25526
                                                                 25531     25535     25541     25546     25552     25566     25603
                                                                 25635     25647     25677     25711     26075     26145     26147
                                                                 26154     26233     26247     26475     26525     26527     26537
                                                                 26551     26633     26714     26721     27010
                                                  CONRED         27255     27304     27325     27365     27376
                                                  ASF            27512     27525     27573     27670
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    30  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DO             27761     30022     30061     30221     30224
                                                  GEN            31634     31702     31721     31734
          UEC          5144                       MAIN           13637     14613
          FILL.        5151                       HEADER         10106     10365     10426     10443     10506
                                                  END            11502     11507     11521
                                                  ALLOC          13463
                                                  MAIN           14304
                                                  LEX            15005     15360     15401     15557     15626     15632     15746
                                                  KEY            16052     16203     16207     16241     16263     16355     16472
                                                                 16747
                                                  IF             17157
                                                  TSDATA         20504
                                                  DECL           20647     20663     20671     20707     20734     21000     21041
                                                                 21102     21133     21215     21264     21437     21457     21505
                                                                 21541     21546     21552     21600     21603     21637     21657
                                                                 21702
                                                  TYPE           22063     22066     22074     22171     22222     22226
                                                  FMT            22343     22473     22573
                                                  IO             23216     23502     23565     23571
                                                  NUM            24300
                                                  PAR            24670     24747     25251     25305     25510     25561     26033
                                                                 26113     26546     26751
                                                  CONRED         27122     27263     27375
                                                  ASF            27501     27517     27535
                                                  GEN            31701     31721
          FILL.2       5152                       HEADER         10100     10126
                                                  MAIN           14012
                                                  LEX            15620
                                                  DECL           20625     21107
                                                  NUM            24377
                                                  ASF            27522     27572
          FILL.3       5153                       KEY            16234
                                                  DECL           20626
                                                  TYPE           22067
                                                  GEN            31734
          CLASS        5154                       LEX            15657     15660     15661
                                                  DECL           20621     20623
                                                  MAP            36314     36323
          DO.DPC       5200                       PAR            25250     25506
                                                  CONRED         27122
          SA=XKS3      5200   GEN                 REG            30646     30647
          CON.DPC      5204   ERRORS              CONRED         27261     27373
          SA=ABS3      5400   GEN                 REG            30547
          E.AC         6007   ERRORS              HEADER         10475
          E.AC3        6011                       HEADER         10376     10450
          E.AC4        6013                       HEADER         10366     10444
          E.AC8        6020                       HEADER         10467
                                                  KEY            16226     16762
          E.AC9        6022                       HEADER         10436
                                                  KEY            16173
          E.FA         6030                       HEADER         10373
          E.FR         6032                       HEADER         10472
          E.AF7        6050                       ASF            27573
          E.AF9        6052                       ASF            27524
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    31  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.AF10       6054                       ASF            27667
          E.AF16       6062                       ASF            27511
          E.IN1        6066                       GEN            31634
          E.ADP        6070                       TYPE           22036
          E.AES        6072                       KEY            16275
          E.ANS        6074                       HEADER         10437
                                                  KEY            16174     16370     16457     16537     16607
                                                  DECL           21663
                                                  TYPE           22052
                                                  IO             22726     23012     23046     23075     23105     23442
          E.ANS2       6100                       ALLOC          13464
                                                  DECL           20735
          SB=BKS3      6100   GEN                 HEADER         10266
          E.ANS3       6104   ERRORS              PAR            26113     26752
          E.ANS4       6106                       KEY            16075
          E.AS2        6110                       KEY            16052
          E.AS3        6111                       KEY            16062
          E.AS5        6114                       KEY            16045
          E.AT1        6116                       PAR            26713     27010
          E.AT1A       6120                       PAR            26474     26721
          E.AT2        6122                       PAR            25307
          E.AT3        6124                       PAR            24725
          E.AT5        6126                       PAR            25405
          E.AT6        6130                       PAR            25240
          E.AT7        6132                       PAR            27014
          E.AT8        6133                       PAR            24742
          E.AT9        6135                       PAR            24644
          E.AT10       6137                       IO             23502
                                                  PAR            24670
          E.AT11       6141                       PAR            25711
          E.AT12       6143                       PAR            25677
          E.AT13       6145                       PAR            25562     26547
          E.CL2        6154                       KEY            16210
          E.CL3        6156                       KEY            16115
                                                  PAR            25140
          E.CMA        6162                       DECL           20763
          E.CR1        6200                       CONRED         27146     27154
          E.CR2        6202                       CONRED         27161
          E.CR3        6204                       CONRED         27207
          E.CR3A       6206                       CONRED         27204
          E.CR4        6210                       CONRED         27202
          E.CR5        6212                       CONRED         27164     27172
          E.CR6        6214                       CONRED         27212     27216
          E.CR7        6216                       CONRED         27301
          E.CR8        6220                       CONRED         27325
          E.CR9        6222                       CONRED         27304
          E.CR10       6224                       CONRED         27365
          E.DAA        6230                       TSDATA         17704
          E.DALV       6232                       TSDATA         20521     20524
          E.DAR        6240                       TSDATA         17515
          E.DHC        6245                       TSDATA         20435
          E.DNA        6261                       TSDATA         17435
          E.DTC        6267                       TSDATA         20432     20440
          E.DVL10      6327                       TSDATA         20421
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    32  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DC         6331                       LEX            15117
          E.DC1        6332                       LEX            15020
          E.DC2        6334                       LEX            15104
          E.DC3        6335                       LEX            15056     15060
          E.DC6        6337                       LEX            15073
          E.DC8        6341                       LEX            15047     15077     15110     15301
          E.DC9        6343                       LEX            15304
          E.DM4        6355                       DECL           21122
          E.DM6        6361                       DECL           21073
          E.DM9        6367                       DECL           21015
          E.DM11       6373                       DECL           21554
          E.DM12       6375                       DECL           21113
          E.DM13       6376                       DECL           21562
          E.DM14       6400                       DECL           21657
          E.DO         6402                       PAR            25603     26075
          E.DO1        6404                       PAR            25525
          E.DO2        6406                       PAR            25546
          E.DO3        6410                       PAR            25540
          E.DO4        6412                       PAR            25551     25566
          E.DO5        6414                       PAR            25535
          E.DO8        6416                       IO             24062
                                                  PAR            26525
          E.DO9        6420                       END            11521
          E.DO11       6422                       PAR            25634
          E.DO12       6424                       NUM            24432
                                                  DO             30220
          E.DO13       6426                       DO             30224
          E.DO16       6430                       PAR            25253     25522
                                                  CONRED         27124
          E.DO17       6432                       PAR            25531
          E.DO18       6434                       DO             30022
          E.DO23       6436                       PAR            26527
          E.DO24       6440                       NUM            24444     24537
          E.DO25       6442                       NUM            24505
          E.DO25A      6444                       NUM            24574
          E.DO27       6446                       DO             27757     27763
          E.DO28       6450                       DO             27762
          E.DO29       6452                       DO             27760
          E.EQ6        6465                       DECL           21170
          E.EQ11       6467                       DECL           21417     21425
          E.EQ12       6471                       DECL           21422     21427
          E.EQ13       6473                       DECL           21235
          E.EQ14       6475                       DECL           21247
          E.EQ15       6477                       DECL           21253
          E.EQ16       6501                       DECL           21433     21440
          E.EX1        6503                       DECL           21613
          E.EX2        6505                       DECL           21103     21640
          E.EX4        6510                       DECL           21617
          E.FS3        6515                       FMT            22333
          E.FS4        6517                       FMT            22473
          E.FS5        6521                       FMT            22431
          E.FS5A       6523                       FMT            22435
          E.FS6        6526                       FMT            22444
          E.FS6A       6530                       FMT            22446
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    33  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.FS7        6531                       FMT            22450
          E.FS7A       6533                       FMT            22463
          E.FS7B       6535                       FMT            22457
          E.FS7C       6537                       FMT            22454
          E.FS8        6541                       FMT            22346
          E.FS8A       6543                       FMT            22327     22351
          E.FS8B       6545                       FMT            22356
          E.FS8C       6550                       FMT            22364
          E.FS8D       6552                       FMT            22372
          E.FS8E       6554                       FMT            22403
          E.FS8F       6556                       FMT            22410
          E.FS9        6560                       FMT            22245
          E.FS10       6562                       FMT            22413
          E.FS11       6564                       FMT            22566
          E.FS11A      6566                       FMT            22565
          E.FS14       6570                       FMT            22576
          E.FS18       6572                       FMT            22344
          E.FS18A      6574                       FMT            22600
          E.FS23       6575                       FMT            22302
          E.FS24       6577                       FMT            22303
          E.FS26       6601                       FMT            22307
          E.GO1A       6607                       KEY            16736
          E.GO2A       6613                       KEY            16252     16722
          E.GO4        6617                       KEY            17001
          E.GO5        6621                       KEY            16741
          E.GO7        6623                       KEY            16675
          E.GO8        6624                       KEY            16757     17036
          E.GO9        6626                       PAR            25421
          E.GO10       6630                       PAR            25423
          E.GO11       6632                       PAR            25427
          E.HC1        6634                       LEX            15526
          E.HC2        6636                       LEX            15334     15532
          E.HC3        6640                       LEX            15566
          E.HC4        6641                       LEX            15562
          E.HC5        6643                       LEX            15402     15501
          E.IF1        6646                       IF             17232
          E.IF2        6650                       IF             17174
          E.IF4        6654                       IF             17274
          E.IF5        6656                       IF             17270
          E.IF7        6662                       IF             17322
          E.IF8        6664                       IF             17325
          E.IO2        6704                       IO             23357
          E.IO6        6707                       IO             23057
          E.IO62       6711             
          E.IO8        6714                       IO             23130
          E.IO9        6716                       IO             23033     23043     23131
          E.IO19       6727             
          E.IO21       6733             
          E.IO26       6737                       IO             23123
          E.IO28       6743                       IO             23023     23136
          E.IOL1       7003                       IO             24014
          E.IOL2       7005                       IO             24051
          E.IOL3       7007                       DO             30060
          E.IOL4       7010             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    34  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IOF        7014                       IO             23775
          E.IOF1       7016                       IO             24003
          E.ION1       7022                       IO             23432
          E.LP1        7055                       LEX            15422
          E.LP2        7056                       LEX            15423
          E.LP3        7057                       PAR            25342     25654     26505
          E.LP4        7062                       PAR            25646
          E.LV6        7077                       DECL           20650
          SX=BKS3      7100   GEN                 REG            30626     30673     30725
          E.LV7        7102   ERRORS              DECL           20663
          E.LV8        7104                       DECL           20671
          E.LV9        7107                       DECL           21506
          E.LV10       7112                       DECL           21460
          E.LV11       7114                       KEY            16423
                                                  PAR            26633
          E.MC1        7126                       MAIN           13677     13710
          E.MLNL       7130                       MAIN           14457
          E.MDO        7134                       MAIN           13635
                                                  IF             17244
          E.ML         7157                       MAIN           13650
          E.MO2        7162                       ALLOC          13073
          E.MRA        7171                       PAR            24761
          E.MS         7173                       END            11502
          E.NLN        7176                       MAIN           14562
          SX=XKS3      7200   GEN                 REG            30651
          E.PN1        7212   ERRORS              HEADER         10035
          E.PN3        7214                       HEADER          7777
          E.PT2        7220                       KEY            16466
          E.SB2        7230                       GEN            32142
          E.SB3        7232                       GEN            32242     32332
          E.SB4        7234                       GEN            32207     32214     32223
          E.SB6        7236                       GEN            32210
          E.SB7        7240                       GEN            32253
          E.SB8        7242                       GEN            32137
          E.SN         7244                       NUM            24322
          E.SN1        7246             
          E.SN2        7250             
          E.SN3        7252             
          E.SN4        7254             
          E.SN5        7256             
          E.SN6        7260             
          E.SN7        7262             
          E.SN8        7264             
          E.SN9        7266                       NUM            24440
          E.SN10       7270             
          E.SN12       7272                       NUM            24565
          E.SN13       7274                       NUM            24336
          E.SN14       7276                       NUM            24313
          E.SN15       7300                       NUM            24314
          E.SN16       7302                       MAIN           13561
                                                  KEY            16264     16355
          E.SN17       7303             
          E.SN19       7307                       NUM            24305
          E.SN20       7311                       NUM            24311
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    35  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.SU2        7312                       KEY            16151
                                                  GEN            31715
          E.SU3        7314                       GEN            31702
          E.SU4        7317                       LEX            16007
          E.SU4A       7321                       LEX            16012
          E.SU6        7323                       PAR            25044
          E.SU8        7325                       KEY            16234
                                                  GEN            31711     31717
          E.SU9        7327                       GEN            31731
          E.SU10       7331                       GEN            31727
          E.SU11       7333                       END            11062
          E.SU12       7335                       TYPE           22176
          E.SPR        7337                       KEY            17122
          E.SPR1       7341                       KEY            17130
          E.SPR2       7343                       KEY            17113
          E.SPR4       7347                       KEY            17125
          E.SPR5       7351                       KEY            17116
          E.TC1        7352                       HEADER         10112
          E.TC5        7362                       HEADER         10222
          E.TC11       7375                       HEADER         10102     10104     10130
          E.TE1        7377                       PAR            25005
          E.TE2        7401                       PAR            25027
          E.TE2B       7403                       PAR            25025
          E.TE2A       7405                       PAR            25024
          E.TE3        7407                       PAR            25040     25046
          E.TE4        7411                       DECL           21145
                                                  PAR            24772
          E.TE7        7415                       LEX            15557
          E.TE8        7417                       PAR            25330     26536     26551
          E.TT         7421                       TYPE           22203
          E.TY1        7424                       TYPE           22111
          E.TYA        7426                       TYPE           22046
          E.TYI3       7440                       TYPE           22067     22076
          E.TYI4       7442                       TYPE           22102
          E.TYI5       7444                       TYPE           22100
          E.UE2        7456                       IO             23227
          E.VA1        7463                       LEX            15663
          E.VA2        7465                       LEX            15461
          E.VD         7471                       DECL           20627
          E.XC         7473                       HEADER         10215
                                                  KEY            16064     16247     16271     16474     16577     16616     17107
          E.XP1        7477                       PAR            26145
          E.XP2        7501                       PAR            26147
          E.XP3        7503                       PAR            26233
          E.XP4        7505                       PAR            26154
          E.XP5        7507                       PAR            26247
          FTN10        7514   BATCH     
          RUN.X        7574                       END            11337     11352
                                                  INIT           35254
          RUN5         7610                       KEY            16330     16365
          PSF          7777   HEADER              MAIN           13611
                                                  TYPE           22163
          PSFA        10013                       DECL           21771     22012
                                                  TYPE           22163
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    36  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DCM         10023                       KEY            16102     16312     16536     17055
          PIDX        10070                       LIST           36730
          PPA         10072                       KEY            16540
          PPA355      10157                       ERRORS          7360
          PPA4        10160                       ERRORS          7356      7364      7371      7373
          PFDX        10236                       LIST           36714
          PPAD        10315                       INIT           35371
          PSA         10357                       KEY            16313     17056
          DCM3        10532             
          PIGLINE     10540   PIG                 BATCH           7723
                                                  GEN            35146
          PIGLAB      10541                       BATCH           7723
                                                  GEN            35147
          PIG         10557                       HEADER         10263     10302     10307     10500
                                                  END            11100
                                                  NUM            24461
                                                  GEN            35142
          PIKX        10600                       LIST           37040
          NADD        10646                       BATCH           7717
          DPT         10647                       ALLOC          13273
                                                  DECL           20607
          PIK=PS      10657                       END            12504
                                                  LIST           36754     36766     37003     37005
          PIK=XJP     10757                       LIST           37004     37010
          PIK=PI      10767                       LIST           36755
          PIK=TAG     10773                       LIST           36732     36751     36772     36777     37026
          PIK=BL      10776                       LIST           37011
          PIK=I       10777                       LIST           36756     36757     36763     37000     37013     37020     37023
          PIK=J       11000                       LIST           37006
          WININIT     11016                       BATCH           7750
                                                  INIT           35356
          WIN         11017                       ERRORS          5066
                                                  BATCH           7751
                                                  HEADER         10271     10273     10275     10336     10340     10477
                                                  END            11075
                                                  KEY            16512     17016     17020     17034     17047     17134
                                                  IO             24134
                                                  FUN            30333     30341     30376     30422     30431
                                                  REG            30551     30606     30630     30637     30701     30707     30730
                                                                 30754     31002     31005     31010     31035     31045     31237
                                                                 31266     31323     31326     31423     31477
                                                  GEN            32443     32531     32601     32605     32616     32626     34324
                                                                 34571     34723     34775     35034     35141     35153     35156
                                                                 35211     35221     35223
                                                  INIT           35353
          WINX        11053                       ERRORS          5065
                                                  INIT           35355
          END         11056   END                 KEY            16273     16274     16275     16300     16302
          WCLX        11251                       LIST           37336
          WVMX        11313                       MAP            36002     36200     36420     36431     36434     36443
          END93       11335                       ERRORS          7153      7175
          END96       11353                       ALLOC          13076
                                                  MAIN           13553
          BT.IDNT     11356                       HEADER         10026     10040
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    37  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT           35344
          BT.XFR1     11471                       HEADER         10041
          CKS         11472                       ERRORS          7161
          CKS65       11510                       ERRORS          7145
          CKS67       11511                       ERRORS          7147
          DFTA        12207                       BATCH           7730
          DLF         12222                       ALLOC          12771
          LFS.MAX     12450                       BATCH           7642      7643      7643
          OTRSAV      12561             
          ADW         12700   ALLOC               HEADER         10046     10230     10243
                                                  PIG            10570
                                                  END            12634     12641
                                                  KEY            16407     16453     16501
                                                  TSDATA         17430     17444     20176     20376     20403     20404     20407
                                                                 20413
                                                  DECL           20605     20721     21141     21150     21160     21204
                                                  IO             23251     23254     23257     23262     23267     23330     23417
                                                                 24021     24030     24112     24161
                                                  PAR            25122
                                                  ASF            27516     27527     27751
                                                  DO             30101
                                                  FUN            30363     30416
                                                  GEN            34300     34374     34405
          ALC         12714                       HEADER         10200     10207     10513
                                                  PIG            10653     11024     11047
                                                  END            11145     11252     11263     11265     11267     12005     12023
                                                                 12047     12157
                                                  MAIN           14115     14215     14314     14346     14520
                                                  KEY            16140     16435     16726     16767     17070
                                                  IF             17200     17333
                                                  TSDATA         17664     20425     20444
                                                  DECL           20743     21773     22000
                                                  FMT            22607
                                                  IO             23344
                                                  NUM            24606     24621
                                                  PAR            25452     26614     26655
                                                  ASF            27615     27703     27714     27721
                                                  DO             30031     30134     30155
                                                  GEN            31666     32031     32044     34314
                                                  MAP            36007     36041     36125     36513
                                                  LIST           37152
          ZERO        13000   GEN       
          XOR         13000                       REG            31314
          ALC.REG     13124   ALLOC               PIG            10544     10577
                                                  MAIN           14622
                                                  PAR            25705
                                                  ASF            27747
                                                  DO             30027
                                                  GEN            34303     34305     35133     35165
          ALC.00      13126                       PIG            10542
                                                  MAIN           14621
                                                  PAR            25703
                                                  GEN            34304     35131
          ALC.ASF     13127                       ASF            27744
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    38  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ALC.CAI     13130                       GEN            34302     35164
          ALC.DO      13132                       DO             30027
          ALC.PIG     13133                       PIG            10575
          IDENT       13136                       HEADER         10040
                                                  END            11342     12024
                                                  TYPE           22125
                                                  LIST           36726     37302
          ERT         13151                       HEADER         10051     10412     10457
                                                  LEX            15671     15771
                                                  KEY            16504
                                                  DECL           21632
                                                  TYPE           22214
                                                  FMT            22614
                                                  IO             23213     23237
                                                  NUM            24347     24370
                                                  PAR            25107
                                                  INIT           35361
          ESC         13163                       KEY            17123
                                                  IO             23622
                                                  PAR            25411     25445     25745     26023     26047     26272     26275
          ESN         13204                       FMT            22277
                                                  NUM            24327     24446
          ESY         13220                       HEADER         10043     10241     10410     10455
                                                  LEX            15641     15763
                                                  KEY            16405     16477
                                                  DECL           21630
                                                  TYPE           22206
                                                  IO             23233
                                                  PAR            25100
          MVE         13256                       BATCH           7760
                                                  END            12010
                                                  MAIN           14523
                                                  TSDATA         20451
                                                  DECL           21775
                                                  FMT            22611
                                                  NUM            24610     24623
                                                  PAR            26661
                                                  ASF            27563     27707     27716
                                                  GEN            34316
                                                  INIT           35257
                                                  MAP            36043
          NAP         13265                       IO             23334
                                                  FUN            30417
          NCM         13276                       LEX            15415
                                                  DECL           21057
                                                  IO             24107
                                                  PAR            24711     26417
                                                  DO             30076
          NCS         13347                       KEY            17120
                                                  IO             23242
                                                  PAR            24714     26170     26207     26245     26413
                                                  CONRED         27206     27271     27313     27371     27413
                                                  GEN            31603     31611     31620     31773     32024     32053     32213
          PRS         13374                       BATCH           7673      7675      7677
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    39  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          SCTR        13404                       HEADER         10110     10132
          SCD         13413                       DECL           20737
          SCS         13421                       ASF            27551
                                                  GEN            34401
          SCSA        13430                       ASF            27541
                                                  GEN            34332
          SCT         13431                       ASF            27523
          SSN         13441                       FMT            22275
                                                  NUM            24320     24405
          SSY         13457                       HEADER         10042     10237     10375     10447
                                                  MAIN           14270
                                                  LEX            15636     15750
                                                  KEY            16402     16475     16605
                                                  DECL           21611
                                                  TYPE           22174
                                                  IO             23205     23231
                                                  PAR            24753
                                                  ASF            27502     27602
          NEXT        13501                       LEX            15745
          SRT         13503                       END            12226     12255
                                                  MAP            36067     36135
                                                  LIST           37164
          DSRT        13517                       MAP            36044     36552
          PSP.Z       13551   MAIN                ERRORS          7512
          PSP.C       13556                       ERRORS          6263
                                                  TSDATA         17367
          PSP         13560                       ERRORS          4476      6015      6016      6040      6042      6060      6064
                                                                  6076      6160      6164      6166      6170      6172      6174
                                                                  6176      6257      6371      6454      6506      7024      7026
                                                                  7030      7032      7034      7036      7040      7042      7043
                                                                  7044      7045      7047      7051      7053      7065      7067
                                                                  7071      7075      7120      7133      7137      7141      7143
                                                                  7164      7166      7170      7204      7206      7224      7354
                                                                  7366      7423      7430      7467      7475
                                                  KEY            16103     16320     16454     16541     17057
                                                  DECL           20723     20775     21173     21174     21634     21644     21714
                                                  TYPE           22135     22144     22217     22232
                                                  ASF            27635
          PSP.F       13562                       ALLOC          13076
                                                  FMT            22613
          CPM         13562                       ERRORS          7001      7116
                                                  BATCH           7556      7561      7564
                                                  KEY            16673
                                                  NUM            24462
          TABX.F      13600                       LEX            15436
          CPM2        13604                       ERRORS          7122
          PSFX        13605                       HEADER         10012
          PCDX        13605                       DECL           22014
          CUSX        13633                       ERRORS          7200
          CPM5        13637             
          IFS.X       13637                       IF             17176     17211
          CPM6        13644                       ERRORS          7155
          AFSX        13655                       ERRORS          7124
          AFS.ME      13736                       BATCH           7552      7553
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    40  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ASK         14003                       KEY            16054
                                                  TYPE           22034     22160
          ASL         14037                       KEY            16032
                                                  DO             27755
          BLL         14064                       ERRORS          5060
          CSK         14223                       TYPE           22050     22057
          CST         14234                       IF             17164
          GSNX        14306                       NUM            24317     24346
          CUS.RET     14311                       ERRORS          6611
                                                  KEY            16564     16565     16723     16724     16733
                                                  IF             17272     17323     17330     17346     17350
          CSB         14343                       IF             17210     17346
                                                  NUM            24456
          LDB         14356                       ERRORS          5043
                                                  BATCH           7570
                                                  HEADER         10065
          LSL         14411             
          LSS         14415             
          PLO         14423                       BATCH           7552
          PLR         14464                       BATCH           7565
          RNC         14525                       BATCH           7521      7566
          RNS         14551                       BATCH           7551
          WBL         14630                       END            11351     12446
                                                  ALLOC          13100
                                                  MAP            36430     36442     36460     36475     36477
                                                  LIST           37064     37103     37132     37144     37147     37245     37324
          WOF         14654                       ERRORS          5061
                                                  HEADER         10261     10353     10355     10524
                                                  KEY            16364
                                                  MAP            36064     36117     36157     36244     36433     36456
                                                  LIST           37037     37052     37076     37114     37200     37210     37264
                                                                 37277     37335
          HDRBL       14752                       BATCH           7734
                                                  MAP            36414
          DEC         15012   LEX                 HEADER         10137     10146
                                                  TSDATA         17503     17610     17625     17635     17642
                                                  DECL           21153
                                                  PAR            24703
          OCT         15305                       KEY            17115
          STY         15321                       HEADER         10405
                                                  KEY            16310
                                                  DECL           21626
                                                  TYPE           22126     22141
                                                  PAR            25076
          NAT.TYP     15327                       BATCH           7754
                                                  TYPE           22113     22115
          TAB         15337                       MAIN           13571
          TAB.LP      15345                       TABLES          3565
          TAB.NX      15346                       TABLES          3561      3562      3564      3571
          TAB.STR     15363                       TABLES          3563
          TAB.RP      15366                       TABLES          3566
          TAB.DOL     15371                       TABLES          3567
          TAB.=       15373                       TABLES          3570
          TAB.CO      15376                       TABLES          3572
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    41  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TAB.PD      15442                       TABLES          3573
          BLANK       15525                       MAIN           13572
          THC         15534                       FMT            22417
          TLV         15553                       HEADER         10033     10414     10462
                                                  MAIN           14264
                                                  KEY            16124     16377
                                                  DECL           20705     20761     21607
                                                  TYPE           22210
                                                  PAR            24752
                                                  ASF            27531
          TSC         15570                       FMT            22520
          TRV         15624                       END            11060
                                                  KEY            16055     16314     16411     16734
                                                  TSDATA         20505
                                                  DECL           20713     21012     21064     21133     21703
                                                  IO             23537     23574
          S.IOCAL     15700                       IO             22741     23063     23340     23434
          S.NLST      15720                       IO             23435
          S.ERR       15722             
          S.Q2NTR     15723                       HEADER         10277
          S.ACGOR     15725                       KEY            17021
          S.BKSP      15726                       IO             22723
          S.ENDFI     15727                       IO             23002
          S.RANDM     15731                       GEN            31643
          S.REWIN     15732                       IO             23052
          S.BUFIO     15734                       IO             22737
          S.END       15735                       KEY            17061
          S.PAUSE     15736                       KEY            17075
          S.FTNRP     15740                       HEADER         10304
          S.FID       15741                       GEN            35160
          TSF         15742                       HEADER         10300     10305
                                                  KEY            16111     17022     17062     17076
                                                  IO             23224     23341
                                                  PAR            25102     26261
                                                  ASF            27607
                                                  GEN            31646     35161
          SLT         16015                       PAR            25065
          ASSIGN=     16031   KEY                 IO             24173
          TO=         16072                       IO             24174
          BLOCKD=     16074                       IO             24175
          CALL=       16106                       IO             24176
          CRL         16164                       PAR            26035
          CONTIN=     16245                       IO             24177
          END=        16256                       MAIN           14334
                                                  IO             24200     24251
          END1B       16266                       ERRORS          7136
          END1C       16270                       ERRORS          7151
          FUNCTI=     16304                       TYPE           22161
                                                  IO             24201
          SVALUE.     16321                       END            11057
          LDSET=      16323                       IO             24202
          OVERLA=     16326                       IO             24203
          LCC66       16361                       ERRORS          7210
          NAMELI=     16370                       IO             24204
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    42  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          NAM20       16412                       LEX            15653
          ENTRY=      16457                       MAIN           14320     14335
                                                  IO             24205
          PAUSE=      16530                       IO             24206
          PROGRA=     16535                       IO             24207
          RETURN=     16543                       IO             24210
          RTU         16622                       END            11066
          GOTO=       16663                       IO             24211
          GOTA        17043                       PAR            25435
          STOP=       17045                       IO             24212
          SUBROU=     17054                       IO             24213
          EMT         17067                       IO             23425
                                                  PAR            25314     25415     25456
                                                  FUN            30427
          IFS         17147   IF                  IO             24247
          IFS11       17164                       ERRORS          6666
          INIF        17351                       MAIN           14617
                                                  KEY            16251     16507     16523     16554     16617     16677     17050
                                                  NUM            24454
          IFMOD       17353                       PAR            26072
          IFRESLT     17354                       PAR            26071
          IFREL1      17355                       KEY            16570     16706
          IFSN        17356                       KEY            16714     16720
          DAT.Z       17366   TSDATA              ERRORS          6242      6244      6247      6251      6253      6255      6265
                                                                  6271      6272      6310      6312      6314      6316      6320
                                                                  6322      6324      6326
          DATA=       17372                       IO             24214
          DATA2       17412                       ERRORS          6234      6235
          CFC         17577                       IO             23406
                                                  PAR            25225
          LSHF        20000   GEN                 REG            31324
          CCT         20617   DECL                KEY            16113
          COMMON=     20676                       IO             24215
          DIMENS=     20772                       IO             24216
          DIR8        21003                       ERRORS          4477      6347      6351      6353      6363      6365
          DIRX        21006                       ERRORS          6357
          DIR         21010                       TYPE           22215
          EQUIVA=     21125                       IO             24217
          EQS8        21174                       ERRORS          6456      6460      6461      6462      6463
          EQU3        21262             
          EXTERN=     21575                       IO             24220
          LEVEL=      21663                       IO             24221
          LVL8        21713                       ERRORS          7073
          PCD         21770                       MAIN           13613
          LOGICA=     22022   TYPE                IO             24222
          INTEGE=     22024                       IO             24223
          REAL=       22026                       IO             24224
          DOUBLE=     22030                       IO             24225
          PRECIS=     22042                       IO             24226
          COMPLE=     22044                       IO             24227
          TYPE=       22046                       IO             24230
          IMPLIC=     22052                       IO             24231
          IMP.ER      22145                       ERRORS          7432      7434      7436      7446      7450
          TYP02       22164                       HEADER         10011
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    43  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TYPA        22234                       DECL           20711     20754     21575     21624     21627
          TYPC        22236                       MAIN           14615
          TYPD        22237                       BATCH           7711
          TYPF        22240                       BATCH           7726
          FORMAT=     22261   FMT                 MAIN           13617
                                                  IO             24232
          FMT6A       22315                       ERRORS          6512
          IODIR       22671   IO                  PAR            24657
          IOLEN       22674                       DO             30100
          R.W         22703                       PAR            24734     24737
          STLTAB      22705                       END            12013     12173
          BACKSP=     22723             
          BUFFER=     22726             
          BUFERR      22772                       ERRORS          6747      6751      6753      6755      6757      6761      6763
                                                                  6770
          DECODE=     22777             
          ENDFIL=     23002             
          ENCODE=     23007             
          PUNCH=      23012             
          PRINT=      23046             
          REWIND=     23052             
          READ=       23071             
          WRITE=      23101             
          FFN         23177                       HEADER         10235
                                                  LIST           36702     36710
          LST         23353                       ERRORS          6724      6731      6735
          LST5        23421                       ERRORS          7012      7020
          PTN3        23540                       LEX            15654
          A=BMOD      23640                       TABLES          4046
          A=BLWA      23660                       TABLES          4050
          BLWA        23747                       ERRORS          6765
          C=BFWA      23752                       TABLES          4047
          C=CNT       23766                       TABLES          4063
          A=FMT       23774                       TABLES          4065
                                                  PAR            24775     25350
          C=FMT       23774                       TABLES          4065
          C=IOL       24005                       TABLES          4061      4062
          A=STR       24115                       TABLES          4064
          O=IOJ       24131                       TABLES          3765
          CML         24141                       PAR            25124
          LGR         24173                       MAIN           13652     13736     14230     14233     14276
                                                  LEX            15436
                                                  KEY            16047
                                                  TYPE           22034     22157
          TYPES       24253                       TYPE           22047     22056
          CUAFLAG     24266   NUM                 MAIN           13566     13567
          CUA         24276                       MAIN           13566
          GSN         24317                       MAIN           14305
          ISASG       24350                       KEY            16037     16041
          ISN60       24354                       ERRORS          4654      4656      4657      4660
          ISN         24373                       KEY            16042     16214     16672     16753     17030
                                                  IF             17217
                                                  IO             23534
                                                  DO             30106
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    44  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LBDO        24420                       ERRORS          4660
          DODO        24424                       ERRORS          4656
          DLAB        24440                       ERRORS          4653
          LABL        24442                       ERRORS          4655
          STN0R       24453                       KEY            16673     16754     17031
                                                  DO             30127
          PSN         24454                       ERRORS          6024      6026      6034      6036      6056      6103      6112
                                                                  6150      6152      6226      6514      6603      6605      6615
                                                                  6644      6652      6660      6670      6672      6674      6676
                                                                  6700      6702      6705      6713      6720      6722      6726
                                                                  6741      6745      6773      6775      6777      7202      7216
                                                                  7222      7226      7305      7345      7413      7452      7454
                                                                  7460
                                                  LEX            15121
                                                  KEY            16056     16070     16114     16144     16253     16254     16522
                                                                 16526     16533     16556     16576     16621     16704     16712
                                                                 16716     16752     17042     17050     17052
                                                  IF             17243     17245
                                                  IO             22771     22773     23067     23430     24252
                                                  PAR            24652     25011     25361
                                                  DO             27772
          CLK         24463                       DO             30225     30231
          SMOD        24631   PAR                 CONRED         27064     27140     27262     27274     27320     27332     27335
                                                                 27374     27412
                                                  GEN            32204     32245     32304
          SOPR        24633                       IO             23653     23656     24032
                                                  CONRED         27062     27066     27113     27127     27137     27157     27226
                                                                 27232     27235     27246     27251     27261     27317     27414
                                                                 27422     27433
                                                  GEN            31653     31776     32003     32162     32166     32174     32220
                                                                 32227     32270     32272
          CURST       24634                       BATCH           7711
                                                  MAIN           14341     14351
                                                  KEY            16733
                                                  IO             23347
                                                  GEN            34247
          CNF         24642                       IO             24250
          PAR         24653                       KEY            16136     17010
                                                  IF             17154
                                                  DECL           21547
                                                  IO             22751     22760     22764     23411     23455     23472     23545
                                                  DO             30144
          PAR.NX      24673                       TABLES          4052      4056      4060
                                                  GEN            32106     32124
          PAR.TNK     24703                       TABLES          3620      3655      3656
          PAR.HOL     24721                       TABLES          3617
          PAR.VAR     24746                       TABLES          3621
          PAR.FAL     25134                       TABLES          3647
          PAR.TRU     25134                       TABLES          3646
          PAR.CM      25205                       TABLES          3631
          PAR.LP      25225                       TABLES          3626
          PAR.DLP     25233                       TABLES          3650
          PAR.EQL     25236                       TABLES          3630
          PAR.PL      25244                       TABLES          3622
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    45  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PAR.MIN     25255                       TABLES          3623
          PAR.STD     25261                       TABLES          3624      3625      3627      3632      3633      3634      3635
                                                                  3636      3637      3640      3641      3642      3643      3644
                                                                  3645      3651      3652      3653      3657
          PAR.EOS     25316                       TABLES          3616      3654
                                                  ERRORS          6044
          PAREXIT     25334                       IO             23651     23654     23657     24130
          POPX        25362                       IO             24113
                                                  GEN            32156
          POP.CM      25400                       TABLES          3673
          C=CERR      25405                       TABLES          4043      4046      4047      4050      4052      4057      4060
                                                                  4063      4064
          C=ERR       25406                       IO             24004     24015     24052
          C=FUN       25411                       TABLES          4055
          C=CALL      25411                       TABLES          4051
          C=GOT       25417                       TABLES          4056
          C=BEF       25443                       TABLES          4044
          C=BIF       25460                       TABLES          4045
          C=DEC       25504                       TABLES          4053
          C=DO        25505                       TABLES          4054
          DO.ERR      25605             
          IXLASTV     25643                       DO             27766     27767     30132
          POP.RP      25644                       TABLES          3671
          POP.PN      25651                       TABLES          3670      3712
          A=ASF       25670                       TABLES          4043
          A=BEF       25714                       TABLES          4044
          A=BIF       25756                       TABLES          4045
          A=DEC       26020                       TABLES          4053
          A=CALL      26021                       TABLES          4051
          A=FUN       26040                       TABLES          4055
          A=IF        26070                       TABLES          4057
          A=LIST      26073                       TABLES          4061      4062
          A=DO        26074                       TABLES          4054
                                                  CONRED         27117
          POP.EXP     26077                       TABLES          3706
          POP.DIV     26336                       TABLES          3667
          POP.PL      26355                       TABLES          3664
          POP.MUL     26363                       TABLES          3666
          POP.UM      26407                       TABLES          3707
          POP.LOG     26440                       TABLES          3703      3704      3705
          POP.NOT     26453                       TABLES          3702
          POP.REL     26464                       TABLES          3674      3675      3676      3677      3700      3701
          POP.REQ     26503                       TABLES          3672
          POP.STD     26553                       TABLES          3660      3661      3662      3663      3665      3710      3711
                                                                  3713      3714      3715      3716      3717
                                                  GEN            32175
          POP.ST1     26565                       IO             24023     24024     24035
          ADT         26573                       IO             23654     23656     24033
                                                  GEN            31653     32000     32005     32162     32166     32221
          CT2         26643                       GEN            31650     32026
          FAL         26651                       KEY            16162
          SDM         26664                       GEN            31777     32004
          CCR         27063   CONRED              PAR            26576
                                                  GEN            32271
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    46  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CMO         27264                       PAR            26444
          TER1        27400                       PAR            26117     26127
                                                  GEN            32300
          TER2        27401                       PAR            26121
                                                  GEN            32302
          CMC         27404                       PAR            26511
          LCT         27464                       DECL           21557
                                                  PAR            25511     26116     26120     26407     26442     26453     26506
                                                  GEN            31564     31605     31614     31631     31751     32205
          AFD         27500   ASF                 IO             24245
          AFDEX       27634                       ERRORS          6046
          AFR         27642                       PAR            25143
          SDO         27754   DO                  IO             24246
          CDI         30103                       IO             23154
          CDO         30170                       GEN            34071
          DIP         30172                       GEN            34050
          PDT         30213                       IO             23172
                                                  NUM            24460
          O=BEF       30257   FUN                 TABLES          4007
          O=FUN       30262                       TABLES          4006
          O=ARG       30274                       TABLES          4001
          O=RJT       30403                       TABLES          4005
          ARGNUM      30435                       GEN            34276
          ABR         30437   REG                 GEN            34606
          AIR         30443                       GEN            32435     35045
          ASR         30455                       FUN            30321     30330     30356     30365
                                                  GEN            32436     34647     35023     35043     35046
          CAR         30477                       BATCH           7752
          CDS         30504                       KEY            16460
                                                  FUN            30274
                                                  GEN            32403     34244     34321     34565     34615     34672     34676
                                                                 35120
          CIAA        30526                       GEN            35136     35137
          CIA         30527                       KEY            17040
                                                  IO             24131
                                                  FUN            30413
                                                  GEN            34567     35122     35136
          CLI         30561                       FUN            30360     30371
                                                  GEN            34763
          CLP         30745                       GEN            32546
          CLT         30756                       END            12424     12626
                                                  FUN            30351
                                                  GEN            32517     32540
          CRJ         30766                       HEADER         10301     10306
                                                  KEY            16531     17024
                                                  IO             24137
                                                  FUN            30260     30411
                                                  GEN            34326     35162
          CWI         31025                       FUN            30306     30314
          DIT         31047                       FUN            30266     30272
                                                  GEN            32632     35051
          GNR         31075                       GEN            32457     32570     34717     34747     35202
          GST         31137                       DO             30174     30177
                                                  FUN            30304     30312     30317
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    47  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            32406     32420     32462     34701     34753     35021
          GSTC        31212                       GEN            32421     32463     34702     34754
          LFP         31220                       GEN            32510
          LSC         31272                       GEN            34713
          LTG         31333                       GEN            32427     34710
          RLL         31341                       GEN            32402     32434     32451     32503     32506     32543     32545
                                                                 32566     35007     35073
          RUL         31346                       GEN            32456     32475     32513     32515     32572     32607     32611
                                                                 34574     35100
          REGLK       31355                       GEN            34430     34573     34575     35070     35074
          CLOADJ      31357                       GEN            35077
          STRGLK      31360                       GEN            34430     34724
          RUT         31367                       GEN            32414     32417     34621     34641     34651     35050
          SDS         31443                       DO             30211
                                                  GEN            35040
          SFR         31510                       GEN            34636     34742
          SST         31534                       GEN            32450     34734     35003
          ESF         31575   GEN                 PAR            25473     26015
          MXP         31661                       KEY            16107     16245     16724     16765     17007
                                                  IF             17147
                                                  IO             23147     23173     23342
                                                  PAR            24650
                                                  DO             30143
          VAM         31674                       PAR            25444     25462     25465     25717     26011
          VEL         31704                       KEY            16161
                                                  PAR            26021     26040
          VIL         31723                       PAR            25715     25757     26005
          DIMUL       31737                       IO             24074     24076
          DIMSYM      31741                       ERRORS          5100
          CVT         32011                       IO             24075
          C=ARRAY     32067                       TABLES          4042
          A=ARRAY     32125                       TABLES          4042
                                                  CONRED         27165     27174
          PSO         32235                       IO             23653
                                                  PAR            26556     26566
          SSO         32326                       PAR            25126
          O=SUBL      32365                       TABLES          3760
                                                  IO             23662     23754
          SLD         32366                       FUN            30324     30401
          DIMI        32647                       DECL           21026     21026     21030
          ALREG       32650                       REG            31221
          AFREG       32651                       REG            31247
          E.FIV       33003                       LEX            16017
          CRTTAB      33004                       REG            31020
          O=ADD       33007                       TABLES          3720      3756
          ADD.I       33010                       TABLES          3762      4015
          O=RADD      33032                       INIT           35374
          O=SUB       33043                       TABLES          3721      3774
          SUB.I       33044                       TABLES          3761
          O=RSUB      33057                       INIT           35377
          O=UMIN      33070                       TABLES          3743
          O=NOT       33071                       TABLES          3736
          O=MULT      33074                       TABLES          3722      3757      3775
          MULT.I      33075                       TABLES          4040
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    48  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          MULT.R      33076                       CONRED         27245
          O=RMULT     33117                       INIT           35402
          O=DIV       33133                       TABLES          3723
          O=RDIV      33202                       INIT           35405
          O=ANDO      33224                       TABLES          3737
          O=ORO       33225                       TABLES          3741
          O=XOR       33226                       TABLES          3740
          O=ORN       33227                       TABLES          3751
          O=ANDN      33230                       TABLES          3747
          O=XORN      33231                       TABLES          3750
          O=LT        33232                       TABLES          3730      3735
          O=GE        33246                       TABLES          3731      3734
          O=NE        33265                       TABLES          3733
          O=EQ        33310                       TABLES          3732
          O=SHFC      33333                       TABLES          4031
          O=SHFD      33336                       TABLES          4034
          O=SHFDS     33343                       TABLES          4035
          O=SHFS      33346                       TABLES          4032
          O=SHFSA     33353                       TABLES          4033
          O=DIVP2     33356                       TABLES          4036
          O=STR       33361                       TABLES          3726      3763
          STR.I       33362                       TABLES          3752      4037
          STR.D       33363                       TABLES          3753
          MODECON     33365                       PAR            26760
          MODTBL      33403                       PAR            25674     25776     26107     26165     26702     26746
          INLBASE     33411                       PAR            25471     26014
          O=INT       33531                       TABLES          4000
          O=RANF      33570                       TABLES          4003
          IFBASE      33600                       IF             17330
          IFI111      33735                       IF             17273
          IFL12       33736                       IF             17307
          IFLN2       33740                       IF             17167     17175     17310
          IFL1N       33741                       IF             17167     17175     17311
          IFEN2       33742             
          IFE1N       33743             
          STDIF       33744                       IF             17277     17312
          NSTDIF      33753                       IF             17313
          R..2        33761                       PAR            26221
          R..3        33762                       PAR            26222
          R..4        33764                       PAR            26223
          R..5        33766                       PAR            26224
          R..6        33771                       PAR            26225
          R..7        33774                       PAR            26226
          R..8        34000                       PAR            26227
          R..9        34003                       PAR            26230
          R..10       34007                       PAR            26231
          I..2        34013                       PAR            26221
          I..3        34014                       PAR            26222
          I..4        34016                       PAR            26223
          I..5        34020                       PAR            26224
          I..6        34023                       PAR            26225
          I..7        34026                       PAR            26226
          I..8        34032                       PAR            26227
          I..9        34035                       PAR            26230
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    49  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          I..10       34041                       PAR            26231
          O=DOB       34045                       TABLES          3764
          O=DOC1      34051                       TABLES          4020      4021
          O=DOC2      34055                       TABLES          4022      4023
          O=DOC3      34061                       TABLES          4026      4027
          O=DOC3A     34065                       TABLES          4030
          O=DOC4      34073                       TABLES          4024      4025
          O=GOTON     34077                       KEY            16727
          O=GOA       34100                       TABLES          3771
          O=GOC       34102                       PAR            25434
          O=GOCL      34112                       PAR            25436
          O=ASSGN     34123                       TABLES          3755
          O=BSS       34125                       TABLES          3772
                                                  KEY            16624
                                                  IO             23425
          O=QUITP     34126                       KEY            17064
          O=QUITS     34127                       KEY            16561
          O=RTNA      34132                       KEY            16613
          O=RETD      34142                       TABLES          4014
          O=RETS      34145                       TABLES          4013
          O=RETN      34147                       KEY            16641
          O=NTR       34152                       KEY            16640
          O=NTRM      34154                       KEY            16651
          O=NTRN      34156                       KEY            16650
          O=NTRN1     34161                       KEY            16654
          O=NTRX      34163                       KEY            16647     16655
          O=NTRY      34164                       KEY            16656
          O=NTR0      34165                       KEY            16514
          O=NTRP      34173                       KEY            16524
          O=VOID      34175                       KEY            16517
          O=STRC      34200             
          O=XMIT      34211                       TABLES          4017
          O=APLUG     34212                       TABLES          3754
          O=RAGS1     34216                       PAR            26333
          O=RAGD1     34217                       PAR            26333
          O=RAGSS     34221                       PAR            26334
          O=RAGSD     34223                       PAR            26334
          O=RAGDS     34226                       PAR            26335
          O=RAGDD     34231                       PAR            26335
          O=RJSUB     34235                       TABLES          4010
          CAI         34270                       END            11067
                                                  MAIN           14354
                                                  KEY            17011     17102
                                                  IO             22770     22772     23426
                                                  DO             27766
          FVD         34307                       END            11070
          DUC.        34335                       TABLES          3133      3134      3143      3144      3163      3164      3165
                                                                  3171      3172      3173      3175      3201      3203      3206
                                                                  3207      3210      3213      3214      3215      3222      3223
                                                                  3224
          DUC.1ST     34343                       TABLES          3174      3176      3200      3212      3216      3217      3225
          DUC.BTH     34344                       TABLES          3137      3140      3141      3142      3145      3147      3150
                                                                  3151      3152      3153      3154      3156      3157      3160
                                                                  3161      3166      3167      3170      3177      3205      3211
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    50  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                  3221
                                                  PAR            26706
          DUC.2ND     34350                       TABLES          3146      3155      3162      3202      3204      3220
          EIS.PNX     34437                       IO             24172
                                                  DO             30204     30212
                                                  FUN            30273     30364     30405
          NULLOP      34572                       DO             30171
          O=NOOP      34577                       TABLES          4016
          O=EPO       35124                       TABLES          3776
          O=OTR       35127                       TABLES          3777
          O=OTRA      35167                       BATCH           7722
          OSTACK      35231   INIT                BATCH           7705
                                                  PAR            24661     24664     25316
          REPFLAG     35231                       TSDATA         17507     17523     17562     20262     20466     20473
          DATEMP      35231                       TSDATA         17377     17377
          HOLLSKL     35231                       LEX            15403     15412     15510     15521
          FORSKEL     35231                       FMT            22317     22605     22610
          FCA         35231                       BATCH           7515
          CLOSREP     35232                       TSDATA         17516     17526     17547     17555
          N.ITEM      35233                       TSDATA         17410     17522     17537     17546     17564     20200     20255
                                                                 20337     20361
          PL          35234                       TSDATA         17526     17531     17534     17554     17737     17743     20027
          I.DIT       35235                       TSDATA         17406     20262     20266     20364     20463
          DATEMPL     35240                       TSDATA         17376
          TEMP        35240             
          NONANSI     35242                       TSDATA         17366     17417     17740
          DVT         35243                       TSDATA         17721     20051     20074     20203     20211     20347     20373
                                                                 20417     20527     20545
          LPINF       35245                       TSDATA         20021     20042     20047     20053     20056     20067     20220
                                                                 20225     20237     20244     20250
          BIAS        35250                       TSDATA         17676     17720     20023     20032     20066     20206     20214
                                                                 20222     20231     20234
          LL          35251                       TSDATA         17763     20000     20014
          UL          35252                       TSDATA         17767     20003
          INC         35253                       TSDATA         17770     17774     20005     20013
          SUBN        35254                       TSDATA         17757     17777
          FTO         35255                       BATCH           7517
          SST1        35255                       TSDATA         20107     20107
          CON1        35255                       TSDATA         20000     20013     20117     20141     20164     20165
          INDX        35260                       TSDATA         17753     20011     20034     20122     20161     20161
          CON2        35263                       TSDATA         17711     20001     20012     20014     20024     20035     20114
                                                                 20131     20145     20167     20167
          SIGN        35266                       TSDATA         20126     20147
          N.SUBS      35271                       TSDATA         17710     17751     20031     20113     20130     20132     20137
                                                                 20173
          N.VSUB      35272                       TSDATA         17676     17745     20003     20022     20040     20052     20062
                                                                 20064     20137     20155     20234     20247
          SSTL        35273                       TSDATA         20106
          ORGI        35273                       TSDATA         20204     20236     20342     20351     20360
          DA          35274                       TSDATA         20230     20244     20260     20303     20333     20340     20351
                                                                 20356
          MP          35275                       TSDATA         20305     20320     20331
          RL          35276                       TSDATA         20274     20312     20336
          LI          35277                       TSDATA         20232     20240     20250     20313     20316
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    51  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TMP         35302                       TSDATA         17403     17405     20324     20333     20350     20355
          DLEN        35303                       TSDATA         20310     20320
          ORD         35304                       TSDATA         20511
          SDPF        35305                       TSDATA         17717     20024     20031     20065     20203     20225     20235
                                                                 20300     20314     20327     20410     20414     20434     20513
          N.DIMS      35306                       TSDATA         17703     20104     20532     20536
          DIM         35307                       TSDATA         20017     20541
          DIM.MUL     35312                       TSDATA         17375     17713     20023     20035     20047     20060     20071
                                                                 20165     20222     20227     20241     20540     20543
          SELIST      35315                       TSDATA         17404     17405     17420     17504     17524     17540     17543
                                                                 17545     17632     17644     17651     17654     17724     17730
                                                                 17746     17776     20077     20136     20501     20503     20506
          ESTACK      35471                       BATCH           7705
                                                  PAR            24655
                                                  GEN            34563     34566     34570
          SAVE        35731                       ERRORS          5043      5044      5117      5133      5142
          DPTA        35743                       PIG            10651     10654
          ADWT        35744                       PIG            11023     11025     11046     11050
                                                  ALLOC          12676     12677     13143     13146     13153     13155     13161
                                                                 13177     13200     13277     13310     13315     13326     13330
                                                                 13333     13335     13336
                                                  TSDATA         17662     17665
          CST.BOS     35750                       MAIN           13640     13741     14241     14265
                                                  KEY            17025
                                                  PAR            25322
          DECA        35751                       LEX            15006     15023
          TRVA        35760                       LEX            15667     15672     15677     15767     15772
                                                  DECL           21144
                                                  FMT            22314     22612
                                                  NUM            24366     24371
                                                  PAR            25105     25110     26442     26446     26603     26604
          AGNK        35762                       KEY            16043     16066
          CALLTAG     35762                       KEY            16122     16141     16161     16231
                                                  PAR            26021
          EQUA        35763                       BATCH           7712
                                                  END            11150
                                                  DECL           21305     21307     21377
          SCR2        35764                       TSDATA         17607     17613     17624     17630
                                                  ASF            27646     27726     27744
                                                  GEN            32022     32055
          SCR         35770                       MAIN           14053     14055
                                                  KEY            16160     16332     16346     16347
                                                  IO             23406     23407     24105
                                                  PAR            24706     24707     24712     25655     25670     25700     25714
                                                                 25716     25720     25726     25751     25756     25762     26007
                                                                 26040     26042     26052     26115     26252     26266     26271
                                                                 26275     26415     26652     26656
                                                  CONRED         27230     27233     27235     27237     27244     27331     27366
                                                                 27410     27415
                                                  ASF            27540     27610     27612     27624
                                                  DO             30001     30024     30026     30075
                                                  REG            31031     31033     31036
                                                  GEN            31644     31647
                                                  MAP            36220     36222     36230
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    52  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ASFERR      35773                       ASF            27645
          FWAASF      35774                       ASF            27652     27710     27724
          FWAREF      35775                       ASF            27655     27704
          CDOTG       35776                       DO             30215     30245
          SVB6        35776                       ASF            27643     27743
          IADD        36000   GEN                 REG            30632     30703
          ASFARG      36000   INIT                ASF            27652     27724
          FWAARG      36001                       ASF            27653     27671     27701
          WVM         36002   MAP                 END            11312
          WVBD        36371                       LIST           37062     37075     37113
          LPS.PL      36444                       END            11244
                                                  LIST           37270     37300
          FIN.OL      36572                       INIT           35262
          PFD         36670   LIST                HEADER         10234
          PID         36724                       HEADER         10067
          PIK         36731                       PIG            10645
          WCL         37054                       END            11250
          FIN         37414                       INIT           35261
          MIN.TFL     40000   FTN                 INIT           35260
          FMASK       43000   GEN                 REG            31312
          SA=AK       50000                       REG            31234
          SA=BK       51000                       FUN            30337     30374     30420
                                                  REG            30751
          SA=AB       54000                       REG            31235
          SB=BK       61000                       REG            31307
          SB=XK       62000                       REG            31261
          SB=XB       63000                       REG            31263
          SB=BB       66000                       REG            31311
          SX=BK       71000                       REG            31255     31306
          SX=XK       72000                       REG            31252
          SX=XB       73000                       REG            31253
          SX=BB       76000                       REG            31256
  
  
  
  
  
 -------- OVERLAY(FTN,2,0,O=LDPT) 
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD           3004
          LWA+1 OF THE LOAD        10437
  
          TRANSFER ADDRESS -- FTN20           6427          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN20          3004        7    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - BATCH CONTROLLER    
          /TABLES/       3013      312
          LSTPRO         3325     5111    LOAD1    24/05/02 COMPASS 3.7 871               
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    53  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          OUTPK20       10436        0    LOAD1    24/05/02 COMPASS 3.7 871               
          SNAP          10436        1    LOAD1    24/05/02 COMPASS 3.7 871               
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.COM           0   LSTPRO    
          Z.EQV           1             
          Z.DIM           2             
          Z.DCON          3             
          FV.LGO          4   FTN                 LSTPRO          6522      6573      6664
          Z.LAT           4   LSTPRO    
          Z.ECT           5             
          Z.SCA           5             
          Z.EOT           6             
          Z.UDV           7             
          Z.FPBL          7             
          Z.ASF          10             
          FVLEN          10   FTN                 LSTPRO          6620
          Z.EXT          10   LSTPRO    
          Z.ARLST        11             
          Z.CON          12             
          Z.DATA         13             
          Z.DIL          14             
          Z.DIT          15             
          Z.ENTR         16             
          Z.NML          17             
          Z.DOLST        20             
          Z.IOLST        21             
          Z.LTAB         22             
          Z.SCR          23             
          CO.ABT        114   FTN                 LSTPRO          6553
          CP.ERCT       115                       LSTPRO          6551
          CP.LSTF       116                       LSTPRO          6556      7251      7304
          CP.PAGE       117                       LSTPRO          7245      7252      7255      7303      7303
          CP.BLF        121                       LSTPRO          7236      7304
          CP.PD         122                       LSTPRO          6514      6557      7255      7256
          COMRET        133                       LSTPRO          6434      6475
          GT1           135                       LSTPRO          6562      6562
          CP.CARD       141                       LSTPRO          6435      6552      6555      6625
          FL            201                       LSTPRO          6441
          CP.AFLS       201                       LSTPRO          6446
          CP.NFLS       202                       LSTPRO          6476
          F.IN          211                       LSTPRO          6510      6512      6627
          F.OUT         221                       LSTPRO          6505      6515      6517      6563      6564      6571      7223
                                                                  7242      7257      7262      7264      7313      7411
          F.LGO         241                       LSTPRO          6473      6524      6527      6576      6600      6667
          SYS=          253                       LSTPRO          6432      6764      7415
          RCL=          266                       LSTPRO          7052      7077      7201      7216
          WNB=          272                       LSTPRO          6516      6622      6666      6757      7271
          MSG=          302                       LSTPRO          6550      7363      7404      7406      7410
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    54  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          F.CMPS        310                       LSTPRO          6471      6533      6614      6616      6626      6647      6651
                                                                  7323
          F.RLST        320                       LSTPRO          6467      6535      6660      6662
          F.RMAP        330                       LSTPRO          6500      6540      6544      6654      6656
          F.OPT         340                       LSTPRO          6531      6602
          MLOP=R        354                       LSTPRO          6477      6537      6543      6653
          GL.SYM        363                       LSTPRO          6504      6643
          LCP.PS        367                       LSTPRO          6514      7260
          RS.PD         370                       LSTPRO          6560
          PR.MXFL       400                       LSTPRO          6447
          CAFLAG        404                       LSTPRO          6552      6574      6612      6623      6625      6645
          CO.OLVL       413                       LSTPRO          6444
          CO.REW        414                       LSTPRO          6507      6523
          DFLAG         421                       LSTPRO          6447      6502
          PMDFLAG       430                       LSTPRO          6436     10250
          UFLAG         436                       LSTPRO          6574      6612      6645
          OVLA          444                       LSTPRO          6455      6462
          OVLB          445                       LSTPRO          6457      6464
          OVL21         450                       LSTPRO          6462
          OVL24         453                       LSTPRO          6455
          O.TITL        457                       LSTPRO          7261
          TL.PAGE       473                       LSTPRO          7250
          LDCOM         474                       LSTPRO          6627
          LOVER         504                       LSTPRO          6460      6465
          ENDFTN        537                       LSTPRO          6624
          SCRTBL        573                       LSTPRO          6602
          FWA2.0       3004   FTN20               LSTPRO          7420
          B=LSTPR      3325   LSTPRO              FTN20           3007
          SYMBOL       6333             
          LABEL        6361             
          LFER         6371             
          NTYPE        6401             
          IMPTYP       6407             
          NRB          6412             
          RSSW         6413             
          KSSW         6420             
          FTN20        6427             
          FTNABT       6547             
          FTNEND       6554             
          CDD          6675             
          COD          6704             
          DXB          6723             
          MVE=         6742             
          SFN          6750             
          CIO=         6765             
          RDC=         6773             
          RDW=         7010             
          WTC=         7124             
          WTW=         7140             
          FA=LOL       7224             
          FA=NPG       7233             
          L.STITL      7266             
          FA=SET       7267             
          MPP          7302             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    55  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OUTUSE       7316             
          C.BLOCK      7326             
          USTART.      7331             
          UVARDIM      7332             
          UENTRY.      7333             
          UCODE.       7334             
          UDATA.       7335             
          UDATA..      7336             
          UHOL.        7337             
          FRA=         7417             
          SETCORE      7443             
          COMPMSG      7450             
          PROGNAM      7451             
          LSTWRKG      7452             
          ANSI         7452             
          LOP=X        7452             
          IEFLG        7453             
          LOP=W        7453             
          LOP=M        7454             
          OLIST        7455             
          LOP=O        7455             
          LOP=R        7456             
          RSELECT      7456             
          R=FLAG       7457             
          O.STITL      7460             
          N.AP         7467             
          N.GL         7470             
          SYMORD       7471             
          N.LINES      7732             
          N.COM        7733             
          ORGTAB       7734             
          START.      10134             
          O.LBLK      10134             
          VARDIM.     10135             
          EPOINT.     10136             
          CODE.       10137             
          DATA.       10140             
          DATA..      10141             
          HOL.        10142             
          SDATA.      10143             
          N.ST        10144             
          N.OT        10145             
          N.DO        10146             
          N.VD        10147             
          N.IT        10150             
          LINENR      10151             
          N.EXST      10152             
          N.FILES     10153             
          N.EQUF      10154             
          IOAPLN      10155             
          XFRNAME     10156             
          FUNTYPE     10157             
          N.FP        10160             
          RETURNS     10161             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    56  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FSTEX       10162             
          VARDIM      10163             
          LEVEL       10164             
          LEVEL2      10165             
          N.TLAB      10166             
          O.LOOP      10167             
          L.LOOP      10170             
          N.ERROR     10171             
          N.FERR      10172             
          E.UDEFL     10173             
          P2NOGO      10174             
          O.TSS       10175             
          TEMPA0.     10175             
          VALUE.      10176             
          TRACE.      10177             
          ENTRY.      10200             
          EXIT.       10201             
          CON.        10202             
          LABEL.      10203             
          FTNNOP.     10204             
          NOPS.       10205             
          FP.         10206             
          ST.         10207             
          OT.         10210             
          IT.         10211             
          VD.         10212             
          PHASE       10213             
          L.TSS       10213             
          NAF         10214             
          LTN         10215             
          LOWCORE     10216             
          FWAWORK     10217             
          LWAWORK     10220             
          O.GLT       10221             
          O.API       10222             
          O.IOT       10223             
          GOTOER.     10224             
          O.CEP       10226             
          OPTLVL      10227             
          OPT2        10230             
          STLTAB      10231             
          SAVTBL      10246             
          PUTTAB      10247             
          WB.LAB      10271             
          WB.ESS      10272             
          WB.LFN      10273             
          WB.FTN      10274             
          WB.NOP      10275             
          WB.CON      10276             
          WB.NML      10277             
          WB.FMT      10300             
          WB.HOL      10301             
          WB.ECGS     10302             
          WB.PROG     10303             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    57  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          WB.FP       10304             
          SYMDMP      10305             
          TABDMP      10307             
          ORIGINS     10313             
          O.COM       10313             
          O.EQV       10314             
          O.DIM       10315             
          O.DCON      10316             
          O.LAT       10317             
          O.SCA       10320             
          O.ECT       10320             
          O.EOT       10321             
          O.FPBL      10322             
          O.UDV       10322             
          O.EXT       10323             
          O.ASF       10323             
          O.ARLST     10324             
          O.CON       10325             
          O.DATA      10326             
          O.DIL       10327             
          O.DIT       10330             
          O.ENTR      10331             
          O.NML       10332             
          O.DOLST     10333             
          O.IOLST     10334             
          O.LTAB      10335             
          O.SCR       10336             
          L.COM       10337             
          SIZES       10337             
          L.EQV       10340             
          L.DIM       10341             
          L.DCON      10342             
          L.LAT       10343             
          L.SCA       10344             
          L.ECT       10344             
          L.EOT       10345             
          L.FPBL      10346             
          L.UDV       10346             
          L.EXT       10347             
          L.ASF       10347             
          L.ARLST     10350             
          L.CON       10351             
          L.DATA      10352             
          L.DIL       10353             
          L.DIT       10354             
          L.ENTR      10355             
          L.NML       10356             
          L.DOLST     10357             
          L.IOLST     10360             
          L.LTAB      10361             
          L.SCR       10362             
          ROOMS       10363             
          S.COM       10363             
          S.EQV       10364             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    58  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S.DIM       10365             
          S.DCON      10366             
          S.LAT       10367             
          S.ECT       10370             
          S.SCA       10370             
          S.EOT       10371             
          S.FPBL      10372             
          S.UDV       10372             
          S.ASF       10373             
          S.EXT       10373             
          S.ARLST     10374             
          S.CON       10375             
          S.DATA      10376             
          S.DIL       10377             
          S.DIT       10400             
          S.ENTR      10401             
          S.NML       10402             
          S.DOLST     10403             
          S.IOLST     10404             
          S.LTAB      10405             
          S.SCR       10406             
          TINFO       10407             
          T.FPBL      10416             
          NAFVEC      10433             
          LWA2.0      10436   SNAP                LSTPRO          6454      6461      7417
          B=SNAP      10436                       FTN20           3011
          B=OPK20     10436   OUTPK20             FTN20           3010
  
  
  
  
  
 -------- OVERLAY(FTN,2,3)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        15143
  
          TRANSFER ADDRESS -- FTN23          10450          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN23         10444        4    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 
          FTNMSG        10450     4473    LOAD1    24/05/02 COMPASS 3.7 871               
           //           15143        0
  
  
  
          ENTRY POINTS. 
  
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    59  
          OVERLAY(FTN,2,3)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CP.LSTF       116   FTN                 FTNMSG         10450
          DFLAG         421                       FTNMSG         10502
          QFLAG         433                       FTNMSG         10500
          OVLA          444                       FTNMSG         10510     10516
          OVLB          445                       FTNMSG         10512     10520
          OVL22         451                       FTNMSG         10510
          OVL25         454                       FTNMSG         10516
          TL.JECT       457                       FTNMSG         10452
          LOVER         504                       FTNMSG         10513     10521
          MVE=         6742   LSTPRO              FTNMSG         10455     10475
          FA=LOL       7224                       FTNMSG         10457     10476
          FA=NPG       7233                       FTNMSG         10456
          L.STITL      7266                       FTNMSG         10453     10504
          R=FLAG       7457                       FTNMSG         10500
          O.STITL      7460                       FTNMSG         10455     10504
          N.ERROR     10171                       FTNMSG         10460
          N.FERR      10172                       FTNMSG         10501
          P2NOGO      10174                       FTNMSG         10501
          LWAWORK     10220                       FTNMSG         10507     10515
          LWA2.0      10436   SNAP                FTNMSG         10507     10515
          B=FTN23     10444   FTN23     
          B=FTMSG     10450   FTNMSG              FTN23          10445
          FTN23       10450             
  
  
  
  
  
 -------- OVERLAY(FTN,2,1)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        44321
  
          TRANSFER ADDRESS -- FTN21          43163          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN21         10444       25    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - PASS 1(NO DEBUG)    
          /DBGBLK2/     10471      115
          /DBGBLK1/     10606       10
          /NONFTNX/     10616       11
          /DOLVL/       10627        1
          /STSORD/      10630        1
          /MACBUF/      10631       20
          PS1CTL        10651      653    LOAD1    24/05/02 COMPASS 3.7 871               
          STMTP         11524      575    LOAD1    24/05/02 COMPASS 3.7 871               
          ENDPRO        12321      750    LOAD1    24/05/02 COMPASS 3.7 871               
          SCANNER       13271     4016    LOAD1    24/05/02 COMPASS 3.7 871               
          CONVERT       17307      467    LOAD1    24/05/02 COMPASS 3.7 871               
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    60  
          OVERLAY(FTN,2,1)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          DMPELST       17307        0    LOAD1    24/05/02 COMPASS 3.7 871               
          /DAT.FMT/     17776       63
          DATA          20061     1432    LOAD1    24/05/02 COMPASS 3.7 871               
          ERPRO         21513     1127    LOAD1    24/05/02 COMPASS 3.7 871               
          FLY           22642      173    LOAD1    24/05/02 COMPASS 3.7 871               
          LISTIO        23035     3043    LOAD1    24/05/02 COMPASS 3.7 871               
          /CLNFO/       26100        6
          ARITH         26106    10061    LOAD1    24/05/02 COMPASS 3.7 871               
          ASFPRO        36167      226    LOAD1    24/05/02 COMPASS 3.7 871               
          CALL          36415      273    LOAD1    24/05/02 COMPASS 3.7 871               
          GOTO          36710      420    LOAD1    24/05/02 COMPASS 3.7 871               
          DBGLNK        37330        5    LOAD1    24/05/02 COMPASS 3.7 871               
          DOPROC        37335     1107    LOAD1    24/05/02 COMPASS 3.7 871               
          DPCLOSE       40444     1366    LOAD1    24/05/02 COMPASS 3.7 871               
          DECPRO        42032      714    LOAD1    24/05/02 COMPASS 3.7 871               
          PH1CTL        42746     1352    LOAD1    24/05/02 COMPASS 3.7 871               
           //           44320        1
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.EQV           1   LSTPRO              DPCLOSE        41206     41725
                                                  DECPRO         42256
          Z.DIM           2                       DPCLOSE        41757
                                                  DECPRO         42567
          Z.LAT           4                       DPCLOSE        40737     41302
          FV.LGO          4   FTN                 PH1CTL         44250
          Z.ECT           5   LSTPRO              DPCLOSE        41306
          Z.SCA           5                       DPCLOSE        40650
          Z.EOT           6                       DPCLOSE        41121
          L.MSTR          6   FTN                 PH1CTL         43163
          Z.ASF          10   LSTPRO              ASFPRO         36233     36261
          Z.ARLST        11                       PS1CTL         10670
          L.MAXCD        12   FTN                 SCANNER        16710
                                                  PH1CTL         44165
          Z.CON          12   LSTPRO              DMPELST        17454     17460
          Z.DATA         13                       DATA           21464
          Z.DIL          14                       DATA           20153     20172
          Z.DIT          15                       DATA           20443     20446     20452
          Z.ENTR         16                       STMTP          12043
                                                  DPCLOSE        40507
          Z.NML          17                       STMTP          11601     11744
          Z.DOLST        20                       DOPROC         40264
          Z.IOLST        21                       LISTIO         24606     25757     26014
          Z.LTAB         22                       GOTO           36727
          Z.SCR          23                       ENDPRO         12712
                                                  ASFPRO         36325
          CO.ABT        114   FTN                 PH1CTL         43230
          CP.IFMT       130                       SCANNER        16673
          GT1           135                       PH1CTL         43337     43337     43341
          CP.FLIN       137                       SCANNER        15063     16534     16563     16573     16600
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    61  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CP.CARD       141                       SCANNER        14632     14634     14636     15064     15422     16357     16675
                                                                 16677
                                                  PH1CTL         44125     44161     44165     44170     44203
          F.IN          211                       SCANNER        16676
                                                  PH1CTL         44166
          F.OUT         221                       PH1CTL         44143
          F.LGO         241                       PH1CTL         44252     44254
          MSG=          302                       PH1CTL         43227     43233     43736
          F.CMPS        310                       STMTP          11572     12025     12030     12144     12203
                                                  ENDPRO         12676     12746     12756     13020
                                                  DMPELST        17523     17536     17563     17571
                                                  DATA           21024     21323
                                                  ERPRO          22614
                                                  LISTIO         23253     24371     24611     25706
                                                  DPCLOSE        40565
                                                  PH1CTL         43562     43613     43627     43635     43640     43671     43677
                                                                 43703     43707     43733     43737     43741     43745     43751
                                                                 43762     44157     44161     44201     44306
          F.RLST        320                       PS1CTL         10742     11123     11125     11521
                                                  LISTIO         24363     26033
                                                  ARITH          31052     31065     34242     34256
                                                  GOTO           37135     37140     37203     37227     37247
                                                  DOPROC         37345
          F.RMAP        330                       PS1CTL         11132     11135     11136     11140     11211
          LSTMSTR       350                       PH1CTL         43163
          MACFLAG       374                       ENDPRO         12544     12600
                                                  DPCLOSE        40543     40732     42023
                                                  PH1CTL         44274
          O.GCON        377                       ARITH          33553
          CER.FL        402                       PH1CTL         43224
          CAFLAG        404                       PH1CTL         43743     43747     44142     44247
          CBNFLG        405                       ARITH          31544     31550     31561     31573     34357
          CO.ER         410                       ENDPRO         12405
                                                  DPCLOSE        42014
                                                  PH1CTL         43145     43174     43661     43673
          ROPFLAG       415                       ARITH          31457     32505     32521     32701
          CO.STA        417                       ENDPRO         13007
                                                  PH1CTL         43525     43571
          DFLAG         421                       PS1CTL         10700     10724     11115
                                                  ENDPRO         12364
                                                  SCANNER        14617     14703     15102     15124     15670     16322     16345
                                                                 16354     16512
                                                  ARITH          27634     30236     30457     32020     33416     34567     35064
                                                  GOTO           37003
                                                  DOPROC         40406
                                                  DPCLOSE        40525     40656
                                                  PH1CTL         43063     43215     43245     43311     43323
          DIRECT        422                       STMTP          11655     11676
                                                  DATA           21367
                                                  LISTIO         23426     25012
                                                  DPCLOSE        40577     40656
          F.LFN         423                       LISTIO         23655     23657
                                                  DPCLOSE        40512
                                                  PH1CTL         43530     43545
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    62  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PMDFLAG       430                       PH1CTL         43675     43702
          OT.RM         431                       PH1CTL         43401     43427     43476     43507     43534     43555     43625
                                                                 43667
          PLIMIT        432                       PH1CTL         43566     43632
          QFLAG         433                       PS1CTL         11143
          SLIST         434                       SCANNER        15411     16557
          SPPFLAG       435                       PS1CTL         10660
          UFLAG         436                       PH1CTL         43730     43747     44141     44250
          UOFLAG        437                       ENDPRO         12531
          ZFLAG         440                       CALL           36675
          OVLA          444                       PS1CTL         11146     11154     11167
          OVLB          445                       PS1CTL         11150     11156     11171
          OVL22         451                       PS1CTL         11154
          OVL23         452                       PS1CTL         11167
          OVL25         454                       PS1CTL         11146
          TL.PTYP       460                       PH1CTL         43170     43757     44133     44140
          TL.PNAM       461                       PH1CTL         43171     43730
          LDCOM         474                       PH1CTL         44145
          LOVER         504                       PS1CTL         11151     11157     11172
          SYMBOL       6333   LSTPRO              STMTP          11545     11626     11764     12012     12017     12127
                                                  ENDPRO         12374     12416     13237
                                                  DMPELST        17517
                                                  DATA           21360
                                                  LISTIO         23516     23742     23762     25164
                                                  ARITH          27435     27706     30710     30765     31273     31546     32121
                                                                 33514     35000     35102     35377     35604
                                                  CALL           36576     36647     36673
                                                  GOTO           36754     37164     37257
                                                  DOPROC         37650
                                                  DPCLOSE        40522
                                                  DECPRO         42044     42520
                                                  PH1CTL         43032     43153     43162     43300     43306     43373     43452
                                                                 43723     44050     44107
          LABEL        6361                       DOPROC         37604     40367
          LFER         6371                       PH1CTL         43201
          NTYPE        6401                       DECPRO         42345     42353     42702     42715
          IMPTYP       6407                       DECPRO         42602     42626     42643     42672
          NRB          6412                       DECPRO         42642     42671
          RSSW         6413                       LISTIO         25163
          KSSW         6420                       LISTIO         25166     25214
          FTNEND       6554                       PS1CTL         11144
                                                  PH1CTL         43234     44204
          CDD          6675                       SCANNER        15061     15440     15445
                                                  ERPRO          22335
                                                  LISTIO         23647
                                                  DOPROC         40423
          MVE=         6742                       PS1CTL         11404     11414     11500     11512
                                                  SCANNER        16602
                                                  ASFPRO         36242     36360     36413
                                                  DPCLOSE        41402
                                                  PH1CTL         43165
          SFN          6750                       SCANNER        14641
          CIO=         6765                       PS1CTL         11124     11126     11137     11141
                                                  PH1CTL         44144     44255
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    63  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RDC=         6773                       SCANNER        16676
                                                  PH1CTL         44166
          WTC=         7124                       STMTP          11573     12026     12031     12144     12203
                                                  ENDPRO         12677     12746     12757     13021
                                                  DMPELST        17523     17537     17564     17571
                                                  DATA           21024     21323
                                                  ERPRO          22614
                                                  LISTIO         23254     24371     24611     25706
                                                  DPCLOSE        40565
                                                  PH1CTL         43562     43614     43627     43636     43641     43672     43677
                                                                 43704     43710     43734     43740     43742     43746     43752
                                                                 43763     44160     44162     44201     44307
          WTW=         7140                       PS1CTL         10742     11132     11135     11211     11521
                                                  LISTIO         24364     26034
                                                  ARITH          31053     31065     34243     34256
                                                  GOTO           37136     37141     37203     37227     37250
                                                  DOPROC         37345
                                                  PH1CTL         44253
          FA=LOL       7224                       SCANNER        16254     16564
          MPP          7302                       PH1CTL         44136
          OUTUSE       7316                       STMTP          11540     12024     12027
                                                  ENDPRO         12357     12566     12744
                                                  DMPELST        17514
                                                  ERPRO          21632
                                                  LISTIO         23243     23307     23544     23577     23632     23726     24226
                                                                 24257     24303     24435     24451     24512     24550     24577
                                                                 24735     24771     25070
                                                  ARITH          34674
                                                  DPCLOSE        40531     40627     41771
                                                  PH1CTL         43273     43656     43764
          C.BLOCK      7326                       STMTP          12033
                                                  DATA           20775     21000
                                                  DPCLOSE        40546
          USTART.      7331                       DPCLOSE        41771
                                                  PH1CTL         43764
          UENTRY.      7333                       STMTP          12023
          UCODE.       7334                       ENDPRO         12357
                                                  PH1CTL         43656
          UDATA.       7335                       STMTP          11540     12027     12032
                                                  ENDPRO         12566     12744
                                                  DATA           20775     20777
                                                  ERPRO          21632
                                                  LISTIO         23243     23307     23544     23577     23632     23726     24226
                                                                 24257     24303     24435     24451     24512     24550     24577
                                                                 24735     24771     25070
                                                  ARITH          34674
                                                  DPCLOSE        40531
                                                  PH1CTL         43273
          UDATA..      7336                       DPCLOSE        40627
          UHOL.        7337                       DMPELST        17514
          SETCORE      7443                       PS1CTL         11213
                                                  DPCLOSE        41764
          COMPMSG      7450                       PH1CTL         43735
          PROGNAM      7451                       ERPRO          21560
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    64  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PH1CTL         43212     43360     43726
          LSTWRKG      7452                       PH1CTL         43164
          ANSI         7452                       SCANNER        16727
                                                  ERPRO          22465
                                                  PH1CTL         43203
          IEFLG        7453                       SCANNER        16727
                                                  PH1CTL         43207
          OLIST        7455                       PH1CTL         43744
          LOP=O        7455                       SCANNER        16730
          LOP=R        7456                       SCANNER        16730
          RSELECT      7456                       PS1CTL         10722     11127
                                                  STMTP          11556     11730     12040
                                                  ENDPRO         12360     13247     13265
                                                  DATA           21467
                                                  ERPRO          21654
                                                  LISTIO         23315     23504     23724     25275     25372
                                                  ARITH          34647     34771     35074
                                                  ASFPRO         36274
                                                  CALL           36530
                                                  GOTO           37053     37315
                                                  DOPROC         37403     37614     40223     40353
                                                  DECPRO         42064     42170     42262     42366     42423     42463     42531
                                                  PH1CTL         43041     43057     43765     44061     44115
          R=FLAG       7457                       PS1CTL         11144     11161
                                                  SCANNER        16731
                                                  DPCLOSE        40476     40644
          N.AP         7467                       ARITH          30704     30761     31016     32114     33510     35401
                                                  CALL           36542     36600     36643
                                                  GOTO           37022     37105     37123     37215
          N.GL         7470                       STMTP          11777
                                                  LISTIO         24541     24620
                                                  ARITH          35413     35513     35566
                                                  CALL           36505     36560     36614
                                                  GOTO           37101     37114     37206     37232
          SYMORD       7471                       ENDPRO         12467
                                                  DPCLOSE        40744
                                                  PH1CTL         44121
          N.LINES      7732                       PH1CTL         44140
          N.COM        7733                       DPCLOSE        40545     40636     40703     41575     41633     41742
                                                  DECPRO         42133     42234
          ORGTAB       7734                       DATA           21407
                                                  DPCLOSE        40637     40704     41146     41464     41523     41546     41576
                                                                 41634     41740     41742
                                                  DECPRO         42134     42234
          START.      10134                       DPCLOSE        42014
                                                  PH1CTL         43126     43132     43136     43142     43513     43557     43603
                                                                 43610     43630     43637     43642     43646
          EPOINT.     10136                       STMTP          12013
          CODE.       10137                       PH1CTL         43666     43674
          DATA.       10140                       STMTP          11551     11566     11574     11714     12020
                                                  ENDPRO         12571     12577     12702     12715
                                                  DATA           21462
                                                  ERPRO          21650     22577
                                                  LISTIO         23310     23545     23600     23633     23727     24227     24260
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    65  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 24304     24372     24436     24452     24513     24551     24600
                                                                 24612     24736     24772     25071     25707
          DATA..      10141                       DPCLOSE        40742     40766     41346
          HOL.        10142                       DMPELST        17533
          N.ST        10144                       PS1CTL         11005
          N.EXST      10152                       PS1CTL         10732
          N.FILES     10153                       DPCLOSE        40511     40514
                                                  PH1CTL         43366     43400     43423     43454     43466     43552     43563
                                                                 43575     43610     43615     43622
          N.EQUF      10154                       PH1CTL         43510     43511
          IOAPLN      10155                       LISTIO         23244     23765     24356
          XFRNAME     10156                       PH1CTL         43361
          FUNTYPE     10157                       DPCLOSE        42011
                                                  DECPRO         42365     42710
                                                  PH1CTL         43145     44033
          N.FP        10160                       PS1CTL         11456
                                                  DPCLOSE        40503     41776     42022     42027
                                                  DECPRO         42677
                                                  PH1CTL         43151     43312     44055
          RETURNS     10161                       CALL           36464
          FSTEX       10162                       PS1CTL         10663     11011
                                                  STMTP          11773
                                                  ARITH          35112     35136
          VARDIM      10163                       ARITH          34567
                                                  DPCLOSE        41706
                                                  DECPRO         42530
          LEVEL       10164                       DPCLOSE        40543     41404     41574
                                                  DECPRO         42414     42435
          LEVEL2      10165                       DOPROC         37716
                                                  DECPRO         42412     42450
          N.TLAB      10166                       ENDPRO         12711     12715
                                                  DOPROC         40244
          L.LOOP      10170                       DOPROC         37576
          N.ERROR     10171                       PS1CTL         11142
                                                  ERPRO          21517     21532
          N.FERR      10172                       PS1CTL         11164
                                                  ENDPRO         12363
                                                  ERPRO          21530
                                                  DPCLOSE        40527
                                                  PH1CTL         43234
          E.UDEFL     10173                       DOPROC         40405     40434
          P2NOGO      10174                       ENDPRO         12364
                                                  ERPRO          21560
                                                  DOPROC         40411     40430
                                                  DPCLOSE        40530
          TEMPA0.     10175                       STMTP          12004
                                                  ENDPRO         13244
                                                  DPCLOSE        41776
                                                  PH1CTL         43126     43131     43142     44066     44103
          VALUE.      10176                       STMTP          11630
                                                  ENDPRO         12431
                                                  ARITH          27447     27710     35104
                                                  DOPROC         37652
                                                  DECPRO         42354     42703
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    66  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PH1CTL         43301     44031
          TRACE.      10177                       ENDPRO         12421
                                                  PH1CTL         43125     43645
          ENTRY.      10200                       STMTP          12052
                                                  DPCLOSE        42006
                                                  PH1CTL         43141
          EXIT.       10201                       ENDPRO         13262
                                                  ARITH          35547
                                                  PH1CTL         43135
          CON.        10202                       ENDPRO         12702     12722
                                                  DMPELST        17445
                                                  ARITH          33562
                                                  DOPROC         40375
                                                  DPCLOSE        40524
          LABEL.      10203                       ENDPRO         12713
                                                  ARITH          35366
                                                  CALL           36566
                                                  GOTO           37017
          FTNNOP.     10204                       STMTP          12016
          NOPS.       10205                       STMTP          12023
          FP.         10206                       ARITH          32074     34572
                                                  PH1CTL         43314
          ST.         10207                       ENDPRO         12466
                                                  LISTIO         23376
                                                  ARITH          30715     31042     33267     33610     34145     34176     34226
                                                                 34531     34752
                                                  GOTO           37176     37204     37222
                                                  DPCLOSE        40743
                                                  PH1CTL         43275
          OT.         10210                       ENDPRO         12352
          IT.         10211                       ENDPRO         12354
          VD.         10212                       ENDPRO         12356
          PHASE       10213                       PS1CTL         11367     11451     11460
          NAF         10214                       PS1CTL         11342     11353     11434     11461     11504
          LTN         10215                       PS1CTL         11336     11463
          LOWCORE     10216                       PS1CTL         11342     11353     11433     11451     11455
                                                  DPCLOSE        40647
          FWAWORK     10217                       PS1CTL         10664     11332     11356     11433     11456     11462     11470
                                                                 11514
                                                  SCANNER        14764     15045     16461
                                                  ERPRO          21551     21706     22143     22174     22231     22246     22264
                                                                 22274
                                                  ASFPRO         36311     36357     36362     36412
                                                  PH1CTL         43176     44222     44246     44275
          LWAWORK     10220                       PS1CTL         10664     10710     11145     11153     11166     11333     11434
                                                                 11502
                                                  SCANNER        14610     14742     14762     15045     15557     16217     16461
                                                                 16614
                                                  DATA           20143
                                                  ERPRO          21664     22576
                                                  ASFPRO         36353     36405
          O.CEP       10226                       STMTP          11772
                                                  ENDPRO         13266
                                                  ARITH          35545
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    67  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OPTLVL      10227                       GOTO           37062     37142
                                                  DOPROC         40306
          OPT2        10230                       STMTP          11575     11733
                                                  LISTIO         24500     25723     25765     26006
                                                  ARITH          34104
          STLTAB      10231                       ENDPRO         13010
                                                  LISTIO         23761
                                                  PH1CTL         43171     43173
          SAVTBL      10246                       ENDPRO         12362
          PUTTAB      10247                       ENDPRO         12341
          WB.ESS      10272                       PH1CTL         43160
          WB.LFN      10273                       PH1CTL         43374
          WB.FTN      10274                       STMTP          12014
          WB.NOP      10275                       STMTP          12021
          WB.CON      10276                       DPCLOSE        40523
          WB.NML      10277                       STMTP          11551
          WB.FMT      10300                       ENDPRO         12572     12614
                                                  ERPRO          21650
          WB.HOL      10301                       DMPELST        17520
          WB.ECGS     10302                       ENDPRO         12372
          WB.PROG     10303                       ENDPRO         12405
          WB.FP       10304                       ENDPRO         12452
          O.COM       10313                       DPCLOSE        40551     40566     40640     40653     40705     40727     41147
                                                                 41202     41214     41463     41515     41572     41577     41640
                                                                 41727
                                                  DECPRO         42147     42200
          ORIGINS     10313                       PS1CTL         11362     11400     11410     11422     11426     11464     11475
                                                                 11506
          O.EQV       10314                       ENDPRO         12624
                                                  DPCLOSE        40775     41036     41124     41210     41310     41375     41404
                                                                 41420     41433     41460     41470     41477     41726
          O.DIM       10315                       PS1CTL         11133
                                                  STMTP          12234
                                                  ENDPRO         12337     12452     12467     12553
                                                  DPCLOSE        40501     40747     40777     41326     41432     41636     41673
                                                                 41761
          O.LAT       10317                       DPCLOSE        40630     40740     41345
          O.ECT       10320                       DPCLOSE        41307     41374     41470     41476     41515     41541     41563
                                                                 41570
          O.SCA       10320                       STMTP          12237
                                                  ENDPRO         12775
                                                  DPCLOSE        40651
          O.EOT       10321                       DPCLOSE        41125     41202     41214     41226     41336
          O.UDV       10322                       ENDPRO         12516
          O.FPBL      10322                       ENDPRO         12446
                                                  DPCLOSE        40502
          O.ASF       10323                       ASFPRO         36234     36243     36262     36361
          O.EXT       10323                       ENDPRO         12521
          O.ARLST     10324                       PS1CTL         10671
          O.CON       10325                       ENDPRO         12707
                                                  DMPELST        17435
                                                  ARITH          34330
          O.DATA      10326                       ENDPRO         12607
          O.DIL       10327                       DATA           20103
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    68  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O.DIT       10330                       DATA           20320     20324     21075     21176     21332
          O.ENTR      10331                       DPCLOSE        40514
          O.NML       10332                       LISTIO         26007     26021
          O.DOLST     10333                       DOPROC         40162
          O.IOLST     10334                       LISTIO         24501     25425     25761     25766     25774     26022
                                                  ARITH          30122
          O.LTAB      10335                       GOTO           36735     37026     37071     37137     37246
          O.SCR       10336                       ENDPRO         12720
                                                  ERPRO          21550
                                                  ASFPRO         36310     36326     36365
          L.COM       10337                       PS1CTL         11163     11372
                                                  DPCLOSE        40477     40653
                                                  DECPRO         42145     42230
          SIZES       10337                       PS1CTL         11325     11330     11344     11401     11411     11421     11427
                                                                 11437     11467     11475     11506
          L.EQV       10340                       PS1CTL         11163     11372
                                                  ENDPRO         12623
                                                  DPCLOSE        40775     41120     41123     41126     41166     41207     41260
                                                                 41303     41310     41405     41723
                                                  DECPRO         42330
          L.DIM       10341                       ENDPRO         12337     12470     12553
                                                  DPCLOSE        41674     41726     41755     41761
                                                  DECPRO         42550
          L.LAT       10343                       DPCLOSE        40500     40630     40740     40767     41305
          L.ECT       10344                       DPCLOSE        41325     41410
          L.SCA       10344                       ENDPRO         12775
                                                  DPCLOSE        40666     40701
          L.EOT       10345                       DPCLOSE        41124     41144     41226     41375
          L.FPBL      10346                       ENDPRO         12446
                                                  DPCLOSE        40504
          L.UDV       10346                       ENDPRO         12361     12516     12565     12567     12601     12612
                                                  ERPRO          21557
          L.ASF       10347                       ASFPRO         36234     36243     36262
          L.EXT       10347                       ENDPRO         12520
          L.ARLST     10350                       PS1CTL         10673
          L.CON       10351                       ENDPRO         12705
                                                  DMPELST        17436
          L.DATA      10352                       ENDPRO         12607
          L.DIL       10353                       DATA           20106     20125     20130     20143     20207
          L.DIT       10354                       DATA           20106     20142     20255     20324
          L.ENTR      10355                       DPCLOSE        40515
          L.NML       10356                       STMTP          11554     11576
          L.DOLST     10357                       DOPROC         37440     40155     40162     40177     40210
          L.IOLST     10360                       LISTIO         24501     24614     25414     25443     25763     25770     26002
                                                                 26020
                                                  ARITH          30117     30141     30210     30213
          L.LTAB      10361                       GOTO           36732     36744     37127     37137     37210     37240     37246
                                                                 37251
          ROOMS       10363                       PS1CTL         11326     11331     11344     11362     11400     11410     11421
                                                                 11436     11466     11510
          S.LAT       10367                       DPCLOSE        40741     40767
          S.SCA       10370                       DPCLOSE        40652
          S.ARLST     10374                       PS1CTL         10671
          S.SCR       10406                       ERPRO          21547
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    69  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ASFPRO         36311     36326     36410
          TINFO       10407                       PS1CTL         11365     11423     11464
          T.FPBL      10416                       PS1CTL         11457
          NAFVEC      10433                       PS1CTL         11460
          LWA2.0      10436   SNAP                PS1CTL         11145     11153     11166
          B=FTN21     10444   FTN21     
          FEFLAG      10530   SCANNER             ERPRO          21527
          DOFLAG      10627   PS1CTL              STMTP          12034
                                                  ARITH          35260
                                                  GOTO           37011     37065     37111     37166
                                                  DOPROC         37416     37460     37776     40061     40106     40116     40127
                                                                 40143     40154     40251     40312     40336
          B=PS1CT     10651                       FTN21          10445
          LSFLG       10651                       STMTP          11774
                                                  ENDPRO         12407     12432     12442
          PH2CTL      10655                       DPCLOSE        40533
          IPH2        10657                       ARITH          35137
          PH2RETN     10720                       LISTIO         23275     24313     25213
                                                  ARITH          32256     35116
                                                  ASFPRO         36274     36277     36312
                                                  CALL           36476     36625     36630
                                                  GOTO           36751
                                                  DOPROC         40116     40125     40373
          LDPS2       11115                       ERPRO          21561
                                                  PH1CTL         43321     43321
          ADDREF      11173                       STMTP          11557     11731     12042
                                                  ENDPRO         13251     13267
                                                  DATA           21470
                                                  ERPRO          21656
                                                  LISTIO         23317     23506     23725     25277     25301     25374
                                                  ARITH          27460     27464     27466     30072     35546
                                                  ASFPRO         36276
                                                  CALL           36532
                                                  GOTO           37055     37316     37320
                                                  DOPROC         37405     37616     37620     37622     37624     40224     40354
                                                  DECPRO         42066     42172     42264     42367     42425     42464     42532
                                                  PH1CTL         43043     43062     43766     44062
          ALLOC       11327                       ENDPRO         12712
                                                  LISTIO         26014
                                                  ASFPRO         36233     36261
                                                  GOTO           36730
                                                  DPCLOSE        40513     41122     41206     41302     41306     41760
          CTBLOVL     11367                       ENDPRO         12473
                                                  DPCLOSE        40676     40763
          ADDWD       11420                       STMTP          11601     11744     12044
                                                  DMPELST        17455     17461
                                                  DATA           20153     20172     20444     20447     20452     21465
                                                  LISTIO         24606     25757
                                                  DOPROC         40265
                                                  DPCLOSE        40510     41725
                                                  DECPRO         42155     42167     42257     42260     42567     42570
          ALLAE       11432                       ASFPRO         36325
                                                  DPCLOSE        40650     40737
          INITBL      11450                       DPCLOSE        40462     40500
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    70  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PH1CTL         43310
          PTU         11472                       ENDPRO         12362
          WRM         11515                       STMTP          11775     12001     12002     12124
                                                  ENDPRO         12346     12424     13252     13264
                                                  LISTIO         23772     25124     25133     26001     26045
                                                  ARITH          34612     35372     35407     35410
                                                  CALL           36562     36565     36571     36605     36606
                                                  GOTO           37031     37067     37132     37143     37245     37321
                                                  DOPROC         37753     40103     40215
          B=STMTP     11524   STMTP               FTN21          10446
          CONT        11524                       PS1CTL         11053
                                                  ARITH          35640
          IAF         11536                       DATA           21204
                                                  LISTIO         23470
          NAMELST     11537                       PS1CTL         11027
          ENTRY       11752                       PS1CTL         11111
          STOPP       12065                       PS1CTL         11055
                                                  ARITH          35642
          PAUSEP      12072                       PS1CTL         11057
                                                  ARITH          35644
          SVARG       12130                       DATA           21207     21211     21214     21222     21224     21226     21231
                                                                 21312
                                                  LISTIO         23305     23334     23341     23346     23354     23360     23365
                                                                 23401     23407     23413     23420     23432     23436     23444
                                                                 23451     23456     23464     23473     23500     23574     23672
                                                                 23676     23702     23707     23715     23722     24220     24224
                                                                 24427     24433     24546     24571     24575     24715     24721
                                                                 24727     24733     24753     24757     24763     24767     25007
                                                                 25020     25025     25033     25040     25045     25053     25057
                                                                 25066
                                                  DPCLOSE        41773     41775     42001     42005     42010     42013     42017
                                                  PH1CTL         43520     43522     43524     43527     43532     43542     43544
                                                                 43547     43565     43570     43574     43600     43651     43653
                                                                 43660     43663
          F1AMAC      12134                       ENDPRO         12547
                                                  ERPRO          21653
                                                  DPCLOSE        42026
                                                  PH1CTL         43621
          FMAC        12146                       DATA           20774     21216     21233     21314
                                                  LISTIO         23314     23551     23604     23637     23733     24233     24264
                                                                 24310     24442     24456     24517     24555     24604     24742
                                                                 24776     25075
                                                  DPCLOSE        42003     42021
                                                  PH1CTL         43535     43537     43551     43606     43655     43665
          B=ENDPR     12321   ENDPRO              FTN21          10447
          END         12336                       PS1CTL         11033     11113
          ECGS        12373                       PH1CTL         43274     43313
          ENTRY.D     12400                       STMTP          12047
                                                  PH1CTL         43151
          OSC         12640                       DPCLOSE        40615     40632
          WST         12662                       DPCLOSE        40610     40624
          BTOCT       12763                       DATA           21320
                                                  PH1CTL         43633
          BEFTB       13030                       ARITH          34356
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    71  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L.BEFTB     13223                       ARITH          34356
          RETURN      13230                       PS1CTL         11051
                                                  ARITH          35636
          B=SCANR     13271   SCANNER             FTN21          10450
          CD          13355                       ERPRO          22517
          COL         13356                       ERPRO          22474     22514
          DUKE1       13364             
          IDENTOK     13366                       PH1CTL         43760
          NOLIST      13406                       PS1CTL         11164
                                                  PH1CTL         43166
          CONSTOR     13420             
          SBUFF       14501                       PH1CTL         44146
          SCANNER     14604                       PS1CTL         10727     10761     10767
                                                  ERPRO          21555
                                                  PH1CTL         43066     43220
          DSL         15410                       PH1CTL         43223     43760     44135
          LSL         16244             
          PACK7       16465             
          PLO         16525             
          N.EQUAL     17267                       ARITH          35077
          B=CNVRT     17307   CONVERT             FTN21          10452
          DMPELST     17307   DMPELST             FTN21          10451
          CONVERT     17320   CONVERT             STMTP          12120
                                                  DATA           20356     20361     20370     20376
                                                  LISTIO         23643     23667     24215     24422     24424     25575
                                                  ARITH          27246     27302     27340     27375     27675     30676     30755
                                                                 32061     32070     32533     32652     33502     33545     33557
                                                                 34050     34545
                                                  CALL           36635     36677
                                                  GOTO           37211
                                                  DOPROC         37707
                                                  DECPRO         42274     42442     42514
                                                  PH1CTL         43422
          OHC         17544                       DATA           21276
          SAVECHR     20016   ERPRO               FLY            22671
          B=DATA      20061   DATA                FTN21          10453
          DATA        20101                       PS1CTL         11025
          CFCD        20333                       LISTIO         25653
                                                  ARITH          31660
          B=ERPRO     21513   ERPRO               FTN21          10454
          IMFLG       21513                       PS1CTL         11160
          ASAER       21515                       STMTP          11606     12046
                                                  ENDPRO         12413     12445     13254
                                                  SCANNER        14757     15041     15174     15436     15443     15450     16662
                                                  DATA           20132     21250
                                                  LISTIO         23554     23611     24031     24043     24063     24133     24202
                                                                 24414     24747
                                                  ARITH          33315     35704
                                                  CALL           36527
                                                  GOTO           37037
                                                  DOPROC         37450     37665     40161
                                                  DPCLOSE        41430
                                                  DECPRO         42113     42436
                                                  PH1CTL         43205     43355     44015
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    72  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ERPROI      21516                       PS1CTL         11003
                                                  STMTP          11530
                                                  ENDPRO         12367     13261
                                                  SCANNER        15430     17007
                                                  DMPELST        17347
                                                  DATA           20134     20136     20140     20702     21022     21310     21473
                                                  LISTIO         23740     24354     25344     25574
                                                  ARITH          35710
                                                  GOTO           37034     37254
                                                  DOPROC         37454     37502     37524     37546     37573     40011     40021
                                                                 40024     40031     40034     40041     40044     40274     40427
                                                  DPCLOSE        40724     41431     41456
                                                  DECPRO         42336     42417     42474     42544     42723     42726
                                                  PH1CTL         43242     43437
          INFORM      21517                       PH1CTL         43210
          FATALER     21524                       PS1CTL         11371     11373
                                                  SCANNER        15454
                                                  ASFPRO         36316
                                                  DOPROC         37606
                                                  PH1CTL         43177     44257
          ERPRO       21527                       PS1CTL         10757     10765     10773
                                                  STMTP          11620     11756     12036     12117
                                                  ENDPRO         12441     13227
                                                  SCANNER        14673     14724     14735     15527     16265     16373     16550
                                                  DMPELST        17341     17343
                                                  DATA           20062
                                                  LISTIO         23275     24314     24530     25213     25572     25573
                                                  ARITH          32260     32261     34717     35116
                                                  ASFPRO         36312
                                                  CALL           36477     36626     36630
                                                  GOTO           36747     36752     37040     37265
                                                  DOPROC         37374     37400     37411     37413     37714     40014     40141
                                                                 40155     40221     40331     40373     40432     40436
                                                  DPCLOSE        40725     40773     41426     41457     41475     41567     41665
                                                                 41721
                                                  DECPRO         42056     42072     42143     42215     42477     42574     42600
                                                                 42732
                                                  PH1CTL         43053     43056     43122     43343     43345     43371     43377
                                                                 43426     43443     43462     44007     44040     44054     44113
          CED         21570                       PH1CTL         44235
          FORMAT      21631                       PS1CTL         10774
                                                  PH1CTL         43114
          NUMBER      21676                       FLY            22722     23002     23014
          RANGE       21735                       FLY            22731     22733     23004     23023
          FLDCHEK     21761             
          WIDTH       22005                       FLY            22746     22755     22767
          DECIM       22030                       FLY            22752     22762
          SPESSET     22045                       FLY            22734     22735     22737     22740     23011     23012     23013
                                                                 23016     23017     23021
          ONECNT      22054                       FLY            22715
          XPROC       22060                       FLY            22720     22732     23000     23005
          NEGSET      22074                       FLY            22725
          TSASI       22076                       FLY            22713     22723
          TCODE       22104                       FLY            22774
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    73  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          SPES        22116                       FLY            22765     22771
          NULLP       22150                       FLY            22724     22777
          DELCOM      22160             
          HCOUNTR     22163                       FLY            22742
          HSTRNGR     22215                       FLY            22712     22727
          SLASH       22363                       FLY            22710     22717
          RECCHEK     22375             
          LEFTPAR     22421                       FLY            22743
          RITEPAR     22430                       FLY            22711     22721
          UERROR      22465                       FLY            22726     22741     23001     23006     23015     23022
          IERROR      22467                       FLY            22714     22753     22760     22763
          FERROR      22472                       FLY            22730     22744     22756     22770     22775     23003     23007
          FINISH      22562             
          B=FLY       22642   FLY                 FTN21          10455
          TRANSIT     22642                       ERPRO          21673
          NODE2       22715                       ERPRO          21666
          MASKS       23024                       ERPRO          21666     22551
          DIGMASK     23024                       ERPRO          21676     22125
          IXFNCL      23035   LISTIO              ARITH          32251     34654     34676
          B=LSTIO     23035                       FTN21          10456
          APLRST      23036                       ARITH          34724     34746
          BLEXP       23037             
          HOLCON      23040                       ARITH          27375     27376     34675
          INDFG       23041             
          IOEXP       23042                       ARITH          34722     34751
          IONAME      23043                       ARITH          30116     30207
          ITEMCT      23044             
          PARCNT      23045                       ARITH          30115     30206
          TYPEFG      23046                       ARITH          34704     34731
          LDFLAG      23047                       ARITH          27367
          BIO         23050                       ARITH          34656
          CPLXC       23051                       ARITH          34667
          CRFLAG      23136                       ARITH          30273
          CNVT        23260                       DPCLOSE        40603
          ENDFILE     23774                       PS1CTL         11103
                                                  ARITH          35670
          REW         24000                       PS1CTL         11077
                                                  ARITH          35664
          BKSP        24004                       PS1CTL         11101
                                                  ARITH          35666
          PUNCH       24033                       PS1CTL         11107
                                                  ARITH          35674
          PRINT       24046                       PS1CTL         11105
                                                  ARITH          35672
          READ        24111                       PS1CTL         11063
                                                  ARITH          35650
          WRITE       24122                       PS1CTL         11065
                                                  ARITH          35652
          BUFIN       24165                       PS1CTL         11067
                                                  ARITH          35654
          BUFOUT      24171                       PS1CTL         11071
                                                  ARITH          35656
          DEC         24375                       PS1CTL         11075
                                                  ARITH          35662
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    74  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ENC         24401                       PS1CTL         11073
                                                  ARITH          35660
          DOITX       24556                       DOPROC         40115
          WWC         25077                       ARITH          34607
          DONEX       25663                       DOPROC         40077     40107
          IARC        25714                       ARITH          30137     30212
          ARLPT       26105   ARITH               GOTO           37261
          B=ARITH     26106                       FTN21          10457
          SAVDAN      26106                       LISTIO         25477     25511
          CONST       26107                       LISTIO         25657
          IDORDL      26111                       ASFPRO         36174     36275     36307     36315
          NAMFWA      26112                       ASFPRO         36321
          EQCOUNT     26113                       GOTO           36775
          NCA         26114                       LISTIO         23362     23446     23475     25022     25062
          NCAD        26115                       DOPROC         37441     40002
          NRFD        26116                       DOPROC         37442     40010     40020     40030     40040
          OP          26117             
          STAPLC      26151                       CALL           36641     36652     36655
          DBGEXT      27171                       CALL           36577
          DBGAPL      27227                       CALL           36533     36557     36603     36605     36636     36643     36646
          RL2TS       27235                       LISTIO         25731
          APLRT       34103                       CALL           36457     36515     36666
          GEFCM       34210                       CALL           36656
          DARLIST     34245                       CALL           36554
                                                  GOTO           37262
          IFTLU       34344             
          BEFTLU      34347             
          IFTLU.P     34354                       PS1CTL         10661
          CVDB        34566                       PS1CTL         10716
                                                  STMTP          12037
          STRIP       34622                       CALL           36634
                                                  DOPROC         37352
          FSTRIP      34634             
          IXFN        34645                       LISTIO         23233
          ACALL       34770                       CALL           36450
          ARITH       35072                       PS1CTL         11031
                                                  GOTO           37162
          INITR       35142                       CALL           36432
                                                  GOTO           37013     37100     37113     37170
          APLST       35211                       CALL           36564     36565     36570     36571
          IFE         35300                       PS1CTL         11041
          IFL         35532                       PS1CTL         11043
          OPSTAK      35727                       PS1CTL         10672
          B=ASFPR     36167   ASFPRO              FTN21          10460
          ASFDEF      36174                       ARITH          35124
          ASFREF      36320                       ARITH          30373
          B=CALL      36415   CALL                FTN21          10461
          TYPECLL     36423                       ARITH          35053
          CALL        36431                       PS1CTL         11047
                                                  ARITH          35634
          FARGLST     36632                       ARITH          35055
          IGCALL      36660                       ARITH          30706     30763     32117     33512     35602
                                                  GOTO           37024     37107     37125     37216
          B=GOTO      36710   GOTO                FTN21          10462
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    75  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PLAB        36717             
          GOTO        36773                       PS1CTL         11037
                                                  ARITH          35624
          ASSIGN      37266                       PS1CTL         11035
                                                  ARITH          35622
          ALLFUNC     37330   DBGLNK              ARITH          30465
          ALLCALL     37330                       ARITH          35065
          TYPFLAG     37330                       PH1CTL         43072
          D.SAASI     37330                       ARITH          33471     33533
          GOTOSFL     37330                       GOTO           37062
          ALLARR      37330                       ARITH          27636     30237     32022
          NOGOFLG     37331                       ENDPRO         12370
          TRACEL      37332                       ARITH          35260
                                                  CALL           36501     36510
                                                  GOTO           37011     37064     37111     37166
                                                  DOPROC         40241
          D.IDSP      37333                       SCANNER        16346     16513
          BUGPRO      37333                       PS1CTL         10702
          RESREG      37333                       SCANNER        15116     15460     15514     16232     16327     16376
          BUGCON      37333             
          PUTUPDT     37333             
          TURNON      37333             
          CFO         37333                       STMTP          11622
                                                  DATA           21353
                                                  LISTIO         23556
                                                  ARITH          27444     34766     35131
                                                  GOTO           36771
                                                  DOPROC         37671
                                                  DECPRO         42035     42402
                                                  PH1CTL         43050
          D.IDSAV     37333             
          SAVREG      37333                       SCANNER        15114     15456     15512     16230     16325     16374
          POINTRS     37333                       PS1CTL         10701
          BUGACT      37333                       PS1CTL         10714
          TDI         37333                       SCANNER        14752
          DBGERR      37333                       SCANNER        15115     15457     15513     16231     16326     16375
          BUGSOUT     37333                       PS1CTL         11121
          DBGINTX     37333                       PS1CTL         10762     10770
                                                  PH1CTL         43075
          DBGIPKT     37333                       PH1CTL         43247     43324
          DINPH2      37333                       DPCLOSE        40526
          DOP         37333                       PS1CTL         10725
          DBGEPKT     37333                       PH1CTL         43216
          GETTYPE     37333             
          DBGINT      37333                       PH1CTL         43065
          ISITDBG     37333                       SCANNER        15677
          DBGCUN      37333                       STMTP          11550     11767
          B=DOPRC     37335   DOPROC              FTN21          10463
          WLABM       37340                       PS1CTL         11001
                                                  STMTP          12003
                                                  LISTIO         24622
                                                  ARITH          35375     35676
                                                  CALL           36574     36615
          PSYM        37347                       STMTP          11612     11617
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    76  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DATA           21020
                                                  LISTIO         23274
                                                  ASFPRO         36307     36315
                                                  GOTO           36750     37277
                                                  DPCLOSE        40771     41424     41454     41473     41565
                                                  DECPRO         42213
          DOPROC      37360                       PS1CTL         11061
          INTVAR      37646                       LISTIO         25245     25603
          DODEF       37775                       LISTIO         24633     25274
                                                  ARITH          32254     33320
          DOCALL      40060                       STMTP          12125
                                                  LISTIO         24013     24064     24137     24200     24412
                                                  ARITH          30430
                                                  CALL           36433     36657
          DONE        40076                       LISTIO         25700     25702
          DOIT        40110                       LISTIO         25670     25674     25677
          DOGOOF      40116                       LISTIO         24526
                                                  ARITH          32260     34716
          DOLAB       40126                       PS1CTL         10721
          DOLABR      40231                       ENDPRO         13231
                                                  ARITH          35471     35544
                                                  CALL           36503     36513
                                                  GOTO           36734     37004
          LORD        40316                       ARITH          35454
          DOLABCN     40317                       PS1CTL         11004
          LABCON      40361                       ERPRO          21634
                                                  LISTIO         23565
                                                  GOTO           37273
          DOEND=      40374                       ENDPRO         12345
          DOTAB       40441             
          B=DPCLS     40444   DPCLOSE             FTN21          10464
          DBLDECL     40454                       DECPRO         42341     42606
          DPCLOSE     40456                       PH1CTL         43101
          O.CBT       40704                       PS1CTL         11133
                                                  ENDPRO         12472     12517     12550
          B=DECPR     42032   DECPRO              FTN21          10465
          DPCOM       42074                       PH1CTL         43107
          SCF         42227                       DPCLOSE        40460
          DPEQU       42244                       PH1CTL         43112
          SEF         42327                       DPCLOSE        40461
          DPTYP       42333                       PH1CTL         43113
          DPDIM       42420                       PH1CTL         43110
          DPLEV       42434                       PH1CTL         43105
          DPIMP       42572                       PH1CTL         43106
          LASTTYP     42740                       PH1CTL         43060
          B=PH1CT     42746   PH1CTL              FTN21          10466
          PH1SCAN     43057                       DECPRO         42056     42142     42211     42220     42322     42407     42432
                                                                 42467     42476     42574     42600     42725     42726
          ESF         43123                       DPCLOSE        41770
          PH1CTL      43163             
          FTN21       43163             
          PROGC       43241                       ERPRO          21561
          CCS         44124                       SCANNER        14701
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    77  
          OVERLAY(FTN,2,5)  
  
  
  
  
  
  
  
 -------- OVERLAY(FTN,2,5)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        16502
  
          TRANSFER ADDRESS -- FTN25          10452          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN25         10444        6    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)   
          PS3CTL        10452       56    LOAD1    24/05/02 COMPASS 3.7 871               
          FAX           10530     3723    LOAD1    24/05/02 COMPASS 3.7 871               
          REFMAP        14453     2027    LOAD1    24/05/02 COMPASS 3.7 871               
           //           16502        0
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FV.LGO          4   FTN                 FAX            11607     11742     11753     11767     12044     12114     13104
                                                                 13443     13734     13760     14010     14240     14337     14404
          CP.ERCT       115                       PS3CTL         10453
                                                  FAX            14232
          CP.LSTF       116                       REFMAP         15203
          CP.NFLS       202                       FAX            14256
          F.LGO         241                       FAX            11771     12014     12050     12116     12254     13106     13445
                                                                 13735     13762     14012     14242     14245     14250     14341
                                                                 14407
          MSG=          302                       PS3CTL         10513
                                                  FAX            14227     14237
          F.CMPS        310                       PS3CTL         10461     10467     10476     10500     10502
                                                  FAX            12452     13710
          F.RMAP        330                       REFMAP         15605     15643     16043     16055     16125
          PR.MXFL       400                       REFMAP         15721
          CER.FL        402                       REFMAP         15213
          CAFLAG        404                       PS3CTL         10474
          CO.ER         410                       FAX            12355     12370
                                                  REFMAP         15231
          CO.OLVL       413                       REFMAP         15231
          CO.STA        417                       FAX            12003     12220     12223
          DFLAG         421                       PS3CTL         10455
          DIRECT        422                       FAX            11725
                                                  REFMAP         16464
          PMDFLAG       430                       FAX            11777
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    78  
          OVERLAY(FTN,2,5)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OT.RM         431                       FAX            12205     12300
                                                  REFMAP         16427
          PLIMIT        432                       FAX            12220     12300
          QFLAG         433                       PS3CTL         10475
                                                  REFMAP         15277     15321     15366     15500     15702
          UFLAG         436                       PS3CTL         10474
          O.TITL        457                       REFMAP         15206     15250
          TL.CCOP       463                       FAX            11706
          TL.DATE       470                       FAX            11705
          TL.TIME       471                       FAX            11705
          SYMBOL       6333   LSTPRO              FAX            11035     12211     12226     12265
          LABEL        6361                       FAX            11035
          RSSW         6413                       PS3CTL         10471
          FTNEND       6554                       PS3CTL         10505
          CDD          6675                       PS3CTL         10507
                                                  FAX            14233
                                                  REFMAP         15065     15541     15543     15750     15754     16064
          CIO=         6765                       PS3CTL         10477     10501     10503
                                                  FAX            13736     14243
                                                  REFMAP         16044
          RDC=         6773                       FAX            12453     13711
          RDW=         7010                       REFMAP         15606     15643     16055     16125
          WTC=         7124                       PS3CTL         10462     10470
          WTW=         7140                       FAX            11771     12015     12050     12116     12255     13107     13445
                                                                 13762     14012     14246     14250     14341     14407
          FA=LOL       7224                       FAX            11760     12141     12152     12177     12331     12377     12442
                                                                 13113     13730     13731     14077     14203     14212
                                                  REFMAP         14775     14777     15016     15053     15215     15252     15434
                                                                 15570     15724     15743     16003     16112     16135     16141
                                                                 16160     16230     16470
          FA=NPG       7233                       FAX            11757
                                                  REFMAP         15001     15251
          L.STITL      7266                       REFMAP         14771     15174
          SETCORE      7443                       FAX            11737     11741     12164     14102
                                                  REFMAP         16051     16411
          PROGNAM      7451                       PS3CTL         10510
                                                  FAX            10675     11677
          OLIST        7455                       FAX            11742     11756     12135     12175     12327     12375     12440
                                                                 13111     13726     14411
          RSELECT      7456                       REFMAP         15203     15246     16042
          R=FLAG       7457                       REFMAP         15236     15243     15244     15574     15637
          O.STITL      7460                       REFMAP         14762     14770     14776     15175
          SYMORD       7471                       FAX            12310
                                                  REFMAP         16237     16440
          N.LINES      7732                       REFMAP         14772
          N.COM        7733                       FAX            12017
                                                  REFMAP         15233     15573     15600     15631     16452
          ORGTAB       7734                       FAX            12031     12056
                                                  REFMAP         15233     15342     15612     16455
          START.      10134                       REFMAP         16433
          O.LBLK      10134                       REFMAP         16414
          SDATA.      10143                       FAX            12306     12313
          N.FILES     10153                       FAX            12166     12213     12224     12262     12371
                                                  REFMAP         15364     16427
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    79  
          OVERLAY(FTN,2,5)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          N.EQUF      10154                       REFMAP         16433
          IOAPLN      10155                       FAX            11730
          XFRNAME     10156                       PS3CTL         10463
                                                  FAX            14402
          FUNTYPE     10157                       FAX            12334
          N.FP        10160                       REFMAP         16421
          LEVEL2      10165                       FAX            11702     14350
          O.LOOP      10167                       REFMAP         15514     15527
          L.LOOP      10170                       REFMAP         15514
          N.FERR      10172                       PS3CTL         10452     10457
                                                  FAX            11753
                                                  REFMAP         15216     16413
          E.UDEFL     10173                       REFMAP         15236     15241
          P2NOGO      10174                       PS3CTL         10456
          O.TSS       10175                       FAX            12075
          TEMPA0.     10175                       FAX            10704     12350     12363     13622
          VALUE.      10176                       FAX            12337     12344
                                                  REFMAP         15261     16243
          TRACE.      10177                       FAX            12410     12526
          ENTRY.      10200                       FAX            12357     13630     13656
          LABEL.      10203                       FAX            12564
          FTNNOP.     10204                       FAX            13634
          NOPS.       10205                       FAX            13641
          ST.         10207                       FAX            12307
                                                  REFMAP         16437
          L.TSS       10213                       FAX            12075
          LWAWORK     10220                       FAX            11730
                                                  REFMAP         16237
          O.GLT       10221                       FAX            13702
          O.IOT       10223                       FAX            11365     11732
          STLTAB      10231                       FAX            12004
          PUTTAB      10247                       REFMAP         15232     15235
          WB.LAB      10271                       FAX            12160
          WB.FMT      10300                       FAX            11361
          SYMDMP      10305                       PS3CTL         10472
          O.COM       10313                       REFMAP         15604     15622
          O.UDV       10322                       REFMAP         15256
          O.EXT       10323                       FAX            11465     12120     12142
          O.ENTR      10331                       FAX            12102
          L.COM       10337                       REFMAP         15576     15602
          L.EQV       10340                       REFMAP         15636
          L.UDV       10346                       REFMAP         15255
          L.EXT       10347                       FAX            11466     12120     12142
          L.ENTR      10355                       FAX            12101
          B=FTN25     10444   FTN25     
          FTN25       10452   PS3CTL    
          B=PS3CT     10452                       FTN25          10445
          IEM         10506                       REFMAP         15220
          B=FAX       10530   FAX                 FTN25          10446
          SWC         10556                       REFMAP         16063     16066
          FTNXAS      11676                       PS3CTL         10504
          B=REFMP     14453   REFMAP              FTN25          10447
          REFMAP      15224                       PS3CTL         10473
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    80  
          OVERLAY(FTN,2,2)  
  
  
  
  
  
  
  
 -------- OVERLAY(FTN,2,2)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        41105
  
          TRANSFER ADDRESS -- FTN22          10467          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN22         10444       22    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER   
          CLOSE2        10466       53    LOAD1    24/05/02 COMPASS 3.7 871               
          MIO           10541     1136    LOAD1    24/05/02 COMPASS 3.7 871               
          FBV           11677      111    LOAD1    24/05/02 COMPASS 3.7 871               
          /GPOGRA/      12010       40
          /BVINFO/      12050        4
          GPO           12054     4322    LOAD1    24/05/02 COMPASS 3.7 871               
          GRA           16376     4043    LOAD1    24/05/02 COMPASS 3.7 871               
          PROSEQ        22441     1600    LOAD1    24/05/02 COMPASS 3.7 871               
          POST          24241     1366    LOAD1    24/05/02 COMPASS 3.7 871               
          SQZ           25627     1677    LOAD1    24/05/02 COMPASS 3.7 871               
          /MCG/         27526      217
          MCG           27745     2647    LOAD1    24/05/02 COMPASS 3.7 871               
          BDT           32614     1060    LOAD1    24/05/02 COMPASS 3.7 871               
          PRE           33674     1341    LOAD1    24/05/02 COMPASS 3.7 871               
          CFA           35235      667    LOAD1    24/05/02 COMPASS 3.7 871               
          UDT           36124      264    LOAD1    24/05/02 COMPASS 3.7 871               
          READRL        36410      407    LOAD1    24/05/02 COMPASS 3.7 871               
          MACROX        37017     1765    LOAD1    24/05/02 COMPASS 3.7 871               
           //           41004      101
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.BLK           0   PROSEQ              MIO            10607     10622     11243
                                                  GPO            12132     12233
          Z.GST           1                       CFA            35255     35263     35437     35512
          Z.TXT           1             
          Z.RND           2                       FBV            11756
                                                  GPO            14731     15433
                                                  GRA            17322     17474     17645     20056     22320
                                                  SQZ            25642     25730
                                                  PRE            34731
                                                  CFA            35724
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    81  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.TREE          2                       MCG            31436     32106     32142
                                                  BDT            32621     33261     33310
          Z.PIT           3                       GPO            12316     12325     12614
                                                  MCG            30075     32602
          Z.MLT           4                       GPO            13672     14052     16130
                                                  GRA            20715
          Z.OTI           4                       MCG            30074     32520
                                                  CFA            36043
          Z.MOD           5                       GPO            13655     14054     15760     16132
                                                  GRA            20610     20623
                                                  PRE            33770
          Z.CFT           6                       FBV            11730
                                                  GPO            12625
                                                  PRE            33762     34051     34106     34121     34130     34156     34200
                                                                 34205     34217     34337     34405     34543     34545
                                                  CFA            35331     35426     35430     35707     36045
          Z.BST           7                       GPO            12741     13160
                                                  PRE            33757
                                                  UDT            36360     36406
          Z.PSI          10                       GRA            21103
          Z.RXI          11                       GPO            12266     14211
                                                  UDT            36166
          Z.RCT          12                       GRA            16436     16561     20137     20346
          Z.TET          13                       GPO            15377     15765
          Z.IOL          14                       PRE            33752
                                                  UDT            36300
          Z.IIT          14                       GPO            14666     15435     15451     15600     15666     15674
          Z.VDT          15                       POST           25420
                                                  PRE            34733
          Z.APL          16                       PRE            34325
          Z.UDI          17                       GPO            12237
                                                  PRE            33746
                                                  UDT            36127     36132     36246     36301
          Z.ALS          20                       PRE            34000     34512
          Z.TEND         21                       GPO            12545
          MACORG        100   MACROX              PRE            34010
          GT1           135   FTN                 PROSEQ         24035     24040     24042
          CP.AFLS       201                       CLOSE2         10467
                                                  PROSEQ         24030     24042     24051     24055     24064
          CP.NFLS       202                       PROSEQ         24104
          LCM.FL        203                       MIO            10560     11375     11410
          SYS=          253                       MIO            11406
                                                  PROSEQ         24041     24063
          WNB=          272                       FBV            11722
          MSG=          302                       CLOSE2         10530     10532
                                                  PROSEQ         24075
                                                  CFA            35357
          F.CMPS        310                       POST           24311     25533
          F.RLST        320                       CLOSE2         10471
                                                  MIO            10570
                                                  READRL         36720
          F.OPT         340                       CLOSE2         10500     10502
                                                  MIO            10771     10773     10775     11000     11622     11625     11626
                                                                 11636     11640     11643
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    82  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FBV            11722
          MACFLAG       374                       POST           24332
          MAX.FL        375                       PROSEQ         24030     24051
          MAX.RL        376                       MIO            10570     10770     11033     11057
                                                  PRE            33740
          PR.MXFL       400                       PROSEQ         24057
          CO.ER         410                       PROSEQ         22462
                                                  MCG            30104
          DOBGN         417   MACROX              PRE            34015
          DIRECT        422   FTN                 PROSEQ         23325     23431
                                                  POST           25323     25477
          DOEND         422   MACROX              PRE            34016
          SLIST         434   FTN                 CFA            35360
          UOFLAG        437                       GPO            14341
                                                  GRA            17176     17776
          LCM.OA        441                       PRE            33763
          OVLA          444                       CLOSE2         10506
          OVLB          445                       CLOSE2         10510
          OVL25         454                       CLOSE2         10506
          LOVER         504                       CLOSE2         10511
          FTNABT       6547   LSTPRO              MIO            11660     11671
                                                  FBV            11677
          CDD          6675                       CLOSE2         10523
                                                  POST           24337
                                                  CFA            35375
          COD          6704                       PROSEQ         24067
          MVE=         6742                       MIO            10612     10674     11012     11055     11105     11356
                                                  GPO            12272     12321     12327     12351     12363     12376     12410
                                                                 13073     13660     14257     14262     15763
                                                  GRA            20631
                                                  PROSEQ         22544     24106     24144     24163     24232
                                                  MCG            32074
                                                  BDT            33530
                                                  PRE            34302     34603
                                                  UDT            36355
                                                  READRL         36672
          CIO=         6765                       CLOSE2         10472     10503
                                                  MIO            10776     11002     11627     11644
          RDW=         7010                       MIO            11000
                                                  READRL         36720
          WTC=         7124                       POST           24311     25534
          FA=LOL       7224                       CLOSE2         10526
                                                  BDT            33267
                                                  CFA            35362     35363     35422
          OUTUSE       7316                       POST           25404     25457     25503
          UVARDIM      7332                       POST           25404
          UCODE.       7334                       POST           25457
          UDATA.       7335                       POST           25503
          SETCORE      7443                       GPO            12236     12365     12762
                                                  GRA            16434
                                                  PRE            33724     33745
          COMPMSG      7450                       CLOSE2         10527
          PROGNAM      7451                       PROSEQ         24071
                                                  CFA            35354
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    83  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          R=FLAG       7457                       PRE            33711
                                                  CFA            35361
          N.AP         7467                       POST           25217
                                                  PRE            33715
          N.GL         7470                       GPO            12055     12543
                                                  PRE            33716
          SYMORD       7471                       POST           25507
          ORGTAB       7734                       GRA            20010     20436
          VARDIM.     10135                       POST           25405
          CODE.       10137                       POST           24241     25456
                                                  PRE            33710
          DATA.       10140                       POST           25473     25504     25515
          SDATA.      10143                       POST           25475     25500
          N.ST        10144                       POST           25357
          N.OT        10145                       POST           25360
                                                  MCG            31103
          N.VD        10147                       POST           25361     25447
          N.IT        10150                       GPO            12660
                                                  POST           24405     25362
          LINENR      10151                       CLOSE2         10523
                                                  GPO            13001
                                                  SQZ            27021
                                                  PRE            34361
          FUNTYPE     10157                       PRE            33750
                                                  UDT            36212
          N.FP        10160                       POST           25356     25365
                                                  PRE            33706
                                                  UDT            36221
          RETURNS     10161                       PRE            33764     34251
          FSTEX       10162                       POST           25502
          LEVEL2      10165                       PROSEQ         23216
                                                  POST           25212     25477
                                                  PRE            33706
          O.LOOP      10167                       PROSEQ         24107
                                                  POST           24631
                                                  PRE            33714     34474
          L.LOOP      10170                       CLOSE2         10522
                                                  PRE            33713
          N.FERR      10172                       CLOSE2         10533
          TEMPA0.     10175                       POST           24704
          VALUE.      10176                       PRE            33750
          FP.         10206                       POST           25356
          ST.         10207                       POST           25357     25505
          OT.         10210                       POST           25360
                                                  MCG            32532
          IT.         10211                       GPO            14326     15332     15740     15764     16135
                                                  GRA            20402
                                                  POST           24517     25362
                                                  MCG            32551
          VD.         10212                       POST           25361     25425
                                                  SQZ            27420
                                                  PRE            35022
          LWAWORK     10220                       CLOSE2         10505
                                                  GPO            12550
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    84  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PROSEQ         24117
                                                  PRE            33711
          O.GLT       10221                       GPO            12546
                                                  PROSEQ         24112
                                                  POST           24716
                                                  PRE            33721     34111
                                                  CFA            35303
          O.API       10222                       GPO            14531
                                                  PROSEQ         24113
                                                  POST           25217     25231     25267
                                                  PRE            33717     34552
          OPTLVL      10227                       PRE            34001     34364     34501
          OPT2        10230                       CLOSE2         10474     10477
                                                  MIO            10632     11233
                                                  GPO            12411     12420
                                                  GRA            17177     21134
                                                  PROSEQ         22460
                                                  PRE            33736     34074     34117     34125     34150     34165     34210
                                                                 34231     34376     34514     34536
          WB.LAB      10271                       POST           24700     24714
          O.UDV       10322                       PROSEQ         24114
          O.EXT       10323                       PROSEQ         24116
          O.ENTR      10331                       PROSEQ         24115
          LWA2.0      10436   SNAP                CLOSE2         10505
          B=FTN22     10444   FTN22     
          P2.FL       10466   CLOSE2              GPO            12140
          B=CLOS2     10466                       FTN22          10445
          FTN22       10467             
          PUNT        10520                       MIO            11267
                                                  GPO            12441
                                                  PROSEQ         24005
          PS2ABT      10533                       BDT            33270
          O.LCM       10541   MIO                 PRE            33764
          B=MIO       10541                       FTN22          10446
          MAX.BLK     10542             
          MX.AVS      10552                       PROSEQ         24017
          IMPA        10557                       PRE            33737
          IMPB        10564                       GPO            12342
          IMPC        10574                       GPO            12444
          IMPD        10602                       GPO            12252
          WFB         10631                       GRA            21406
          WMB         10646                       GPO            12150     13717     14276
          RTB         10703                       GPO            12171     12304     12312     12774     13055     13112     13244
                                                                 13263     13663     14077     14252
                                                  GRA            17742     20603     21244
          RBS         10733                       GPO            13133     13251     13661
          RNB         10764                       FBV            11710
          SMB         11015                       UDT            36405
          GMB         11051                       GPO            12666
          DMB         11116                       PROSEQ         24021
          CGB         11335                       PROSEQ         24025
          SBD         11615                       CFA            35244
          GBD         11635                       GPO            12735
          B=FBV       11677   FBV                 FTN22          10447
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    85  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  MIO            11603
          FBV         11700                       GPO            12412
          O.UDT       12010   GPO                 SQZ            27155
          N.VAR       12051             
          BVL         12052                       FBV            11772
                                                  GRA            16454     21131     21154     21446
          B=GPO       12054                       FTN22          10450
          DMASK       12054                       GRA            21613     21760
          N.GL0       12055                       PRE            33721
          CBN         12056                       PRE            34047     34104     34110     34120     34127     34154     34176
                                                                 34203     34215     34221     34335     34403     34541
                                                  CFA            35264     35274     35352     35611     35624
          NPB         12057                       FBV            11727
                                                  CFA            35267
          M.GRL       12060                       CFA            35251     35634
          N.DG        12061                       CFA            35237     35274
          GIC         12062                       CFA            35242     35243     35247     35252
          O.IST       12063                       FBV            11731     11755     11761
                                                  CFA            35245     35253
          M.LP        12064                       CFA            35630
          N.FTH       12065                       CFA            35331     35607
          M.BBL       12066                       FBV            11701
                                                  PROSEQ         24006
                                                  UDT            36350
          M.EBL       12067             
          N.GT        12070                       GRA            20736
                                                  POST           24403
                                                  SQZ            25652     25720
          O.BIT       12071                       MIO            10616     10624     10660     10706     10736     11127     11160
                                                                 11336     11541
                                                  FBV            11704     11762
                                                  GRA            21121     21364     21376
                                                  POST           25031
          L.BIT       12072             
          O.BVT       12073                       FBV            11760
          L.BVT       12074             
          L.PTXT      12076                       UDT            36376
          O.LCT       12077                       POST           25030
          L.LCT       12100                       CFA            35330     35605
          O.ELT       12101                       POST           24721
          L.ELT       12102                       POST           24716
          O.SEQ       12103                       MIO            10701     10724     11124     11161     11237     11336     11353
                                                  FBV            11703     11706     11711
                                                  GRA            16563     17647     17660     17744     20605     20714     21332
                                                                 21413
                                                  PROSEQ         22477     22531     22540     22575     22617     22646     22651
                                                                 22673     23227     23236     23270     23277     23425     23546
          L.SEQ       12104                       MIO            10702     10725     11240
                                                  GRA            17565     17655     17720     20710     21245     21332     21351
                                                                 21411
                                                  PROSEQ         22477     22502     22532     22540     22610
          BN          12105                       FBV            11707     11712     11715
                                                  POST           25032
          BSI         12106                       MIO            10633     10647     10655     10667     10704     10720     10735
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    86  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 11063     11111
                                                  GRA            17742     20602     21227     21251     21272     21300     21310
                                                                 21312     21355     21365
          BSW         12107                       GRA            17040
          L.HB        12110                       GRA            21661
                                                  SQZ            25632
          NBIP        12122                       BDT            32747
          HBI         12123                       GRA            20726
                                                  BDT            33301
          PCC         12155                       GRA            16405     16407     17523     17531     21322
          SRI         12203                       GRA            20566     20640     20662     20674     20705     20747     21043
                                                                 21046     21056     21061     21422     21440     21471     21474
                                                                 21477     21667     21672     21676     21724     21727     22043
                                                                 22054     22077     22155     22163     22171
          COL         12230                       PROSEQ         22465
          GPO         12341                       CLOSE2         10475
          EBV         13332                       GRA            16444
          FUD         13363                       FBV            11714
          MPB         16246                       GRA            20716
                                                  PROSEQ         22475     22572     23232
          MBT         16356             
          B=GRA       16376   GRA                 FTN22          10451
          GRASRF      16377                       BDT            32672
          GRA         16400                       GPO            12526
          CXB         21350                       GPO            13173
          CUC         22244                       GPO            14026
                                                  PROSEQ         22573
          BIR         22441   PROSEQ              SQZ            25724
          B=PROSQ     22441                       FTN22          10452
          NIRN        22442                       PRE            34415     34616     34627     34675     34726
                                                  READRL         36724
          FPL2        22443                       PRE            33707
          PROSEQ      22445                       PRE            34046     34060     34103     34213     34220     34400     34402
                                                                 34523
          SSP         22525                       POST           25450
          PSB         22546                       POST           25447
          AIS         22574                       GRA            21352
          ESRA        23215                       GPO            13260
          ESR         23233                       GPO            12310     13265
                                                  POST           25452
          F.RDT       23555                       GPO            12204     12211     12216     12451     13246     14014     15245
                                                                 15344     15607     16215
                                                  GRA            21007     21071     21423     21425     21506     21533     21654
                                                                 21740     22026     22125     22214     22222     22234
                                                  POST           25462
                                                  SQZ            25752     26474     26503     26757     27301     27373     27407
                                                  MCG            31444     31452     32077     32154     32212     32443     32537
                                                                 32554
                                                  PRE            33772     34534     34536     34622     34644
                                                  READRL         36676     36762
          SST         23672                       BDT            33137     33236
                                                  CFA            35434
          SHL         23716                       GPO            12637
                                                  GRA            17335     17511     20111     20135     20316
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    87  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  BDT            33134     33246     33360
                                                  CFA            35467
                                                  UDT            36142
          O.BLK       23721                       MIO            10576     11125     11173     11337     11361
                                                  GPO            12331
          O.GST       23722                       GPO            12347
                                                  CFA            35240     35247     35316     35335     35460     35505     35710
                                                                 35726     36050
          O.TXT       23722                       MIO            10577     10610     10656
                                                  GPO            12142     12146     12331     13031     13254     13710     14115
                                                                 14274     15401     15412     15415     15437     15445     15602
                                                                 15750     15762
                                                  GRA            20717     21261     22245     22321
                                                  POST           24344     24360     25230     25261
                                                  SQZ            25644     25732     27317     27332
                                                  MCG            30102     31111     32605
                                                  BDT            32622     33146     33172     33263     33312     33356     33361
                                                                 33531     33543
                                                  PRE            33772     34142     34261     34270     34354     34626
                                                  UDT            36247     36344     36362
          O.TREE      23723                       MCG            30042     30555     31455     31505     31571     31734     32032
                                                                 32112     32123     32222     32276     32322     32362     32405
                                                                 32465
                                                  BDT            32625     32724     32766     33005     33140     33166     33220
                                                                 33526     33532
          O.RND       23723                       GPO            14767     15514     15602
                                                  GRA            17655     20140     20317
                                                  PRE            34310     34766
          O.PIT       23724                       GPO            12662     12667
                                                  GRA            21400
                                                  POST           24331     24345     24356     24373
                                                  MCG            32607
          O.OTI       23725                       MCG            32524
                                                  CFA            35652     36101
          O.MLT       23725                       GPO            16134     16226     16256
          O.MOD       23726                       GPO            13710     14260     16253     16313
                                                  PRE            33773
          O.CFT       23727                       FBV            11760
                                                  CFA            35302     35443     35470     35730
          O.BST       23730                       MIO            10632     10647     10655     10704     10720     10735     11124
                                                                 11161     11337
                                                  GPO            12162     12177     12361     13122     13203     13241     13631
                                                  GRA            21251     21270     21306     21355     21364
                                                  CFA            35320     35333     35366
                                                  UDT            36207
          O.PSI       23731                       GPO            14036     14056
          O.RXI       23732                       GPO            12406
                                                  GRA            21105     21447
                                                  UDT            36231
          O.RCT       23733                       GRA            16453     17324     17476     17543     17567     17671     17743
                                                                 20057     20401     20612     20625     21104     21135     21212
                                                                 21232     21340     21413
          O.TET       23734                       GPO            12626     12641     13304     14436     15422     15454     15460
                                                                 15652     16154     16173
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    88  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GRA            17422     20033     20112     20160     20401     20720
                                                  POST           24377
                                                  SQZ            25665
                                                  BDT            32765
          O.IIT       23735                       GPO            15460     15637     15655     15655     15726     16140
                                                  GRA            20161     20402     20616     20627
                                                  BDT            32765
          O.IOL       23735                       UDT            36303     36316     36354
          O.VDT       23736                       POST           25423
                                                  PRE            35030
          O.APL       23737                       POST           25230
                                                  PRE            34253     34257     34556
          O.UDI       23740                       GPO            12374
                                                  UDT            36143     36170     36232
          O.ALS       23741                       PRE            34772
          O.TEND      23742                       GPO            12550
                                                  PRE            33726
          L.BLK       23743                       MIO            10576     11361
                                                  GPO            12244     12332
          L.GST       23744                       GPO            12347
                                                  CFA            35236     35254     35262     35340     35462     35626
          L.TXT       23744                       MIO            10603     10606     10614     10652     10657
                                                  FBV            11717
                                                  GPO            12143     12146     12151     12313     12333     12521     12673
                                                                 13232     13716     13720     14251     14273     15341     15415
                                                                 15510     15747     15770     16314
                                                  GRA            21243     21247     21261     21303     21325     21361     21500
                                                                 22245     22317
                                                  POST           25417     25446
                                                  SQZ            25637     27267
                                                  MCG            31111     31441     32070     32111     32123     32150     32276
                                                                 32345
                                                  BDT            32616     33141     33306     33363     33435     33526
                                                  PRE            34056     34102     34160     34261     34270     34354     34630
                                                  UDT            36245     36344     36376
          L.RND       23745                       FBV            11723
                                                  GPO            14733     15511     15514
                                                  GRA            17431     17507     17663     20134     20343     22323
                                                  SQZ            26012
                                                  PRE            34054     34166     34211     34226     34310     34324     34511
                                                                 34717
                                                  CFA            35736
          L.TREE      23745                       MCG            27772     27777
                                                  BDT            33167     33236     33246     33305     33541
          L.PIT       23746                       GPO            12665     12672
                                                  GRA            21230     21266     21277     21304     21314     21326     21356
                                                                 21362
                                                  POST           24331     24371     25142
                                                  MCG            27765     30003     30542
          L.MLT       23747                       GPO            13266     16230     16257     16351
          L.OTI       23747                       MCG            30214     30313     30662     31104     32516
                                                  CFA            35651     36102
          L.MOD       23750                       GPO            12516     13664     14253     14260     14263     16227     16247
                                                                 16352
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    89  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GRA            20712
                                                  SQZ            25631
          L.CFT       23751                       FBV            11724     11753
                                                  GPO            12661
                                                  CFA            35257     35302     35327     35351     35435     35705     35736
                                                                 36122
          L.BST       23752                       GPO            12333     12360     12366     12760     13051     13117
                                                  GRA            21300
                                                  CFA            35365
                                                  UDT            36346
          L.PSI       23753                       GRA            21133
          L.RXI       23754                       GPO            12405
                                                  GRA            16430
          L.RCT       23755                       GRA            16410     16427     16453     16557     17324     17360     17434
                                                                 17476     20053     20141     20203     20422     20522     20561
                                                                 21326
          L.TET       23756                       GPO            12340     12617     12767     13311     15241     15373     15737
                                                  GRA            20721     20737
          L.IOL       23757                       PRE            33756     34242
                                                  UDT            36320     36345     36356
          L.IIT       23757                       GPO            12334     12477     13053     14663     15637     15661
          L.VDT       23760                       POST           25402     25416
                                                  PRE            34717
          L.APL       23761                       PRE            34251     34553     34574     34576
          L.UDI       23762                       GPO            12373     12377
                                                  UDT            36125     36130     36243     36317
          L.ALS       23763                       GPO            12305
                                                  PRE            34057     34527     34773
          L.TEND      23764             
          MU          23765                       GPO            12143
                                                  PRE            33735
          LM          23766                       GPO            12133     12137     12330
                                                  PRE            33740
          TO          23775                       MIO            10600
          INT.P2M     23776                       CLOSE2         10470
          MX.BLN      23777                       GPO            12444
          TOBA        24000             
          TOV         24002             
          TOB         24006                       MIO            10600
          MOREFL      24027                       MIO            11167
                                                  GPO            12437
          CWS=        24047                       GPO            12426
                                                  PRE            33730
          AFL         24054                       CLOSE2         10504
          AST         24103             
          ATS=        24124                       MIO            10607     10623     11244
                                                  FBV            11702     11730     11757
                                                  GPO            12132     12234     12240     12267     12317     12325     12450
                                                                 12545     12614     12616     12625     12742     13034     13104
                                                                 13160     13656     14055     14211     14255     14265     14667
                                                                 14731     15237     15400     15433     15601     15675     15714
                                                                 15761     16131     16133     16252     16361
                                                  GRA            16436     16562     17323     17475     17646     20056     20137
                                                                 20346     20611     20624     21103     21412     22320
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    90  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  POST           25216     25422
                                                  SQZ            25643     25731     27347
                                                  MCG            30074     30076     31435     31437     32071     32107     32141
                                                                 32143     32521     32602
                                                  BDT            32621     33262     33310
                                                  PRE            33734     33742     33747     33760     33771     34300     34420
                                                                 34611     34615     34643     34731     34733
                                                  CFA            35332     35437     35513     35707     35725     36043     36046
                                                  UDT            36132     36167     36246     36300     36302     36353     36361
          AFT=        24200                       GPO            12232     12336     12353
          ADW=        24210                       GPO            13673     14053     15435     15452     15666     15765
                                                  GRA            20715
                                                  POST           25420
                                                  PRE            33753     33762     34000     34051     34106     34122     34131
                                                                 34152     34156     34200     34205     34217     34326     34337
                                                                 34406     34513     34543     34545
                                                  CFA            35256     35263     35427     35431
                                                  UDT            36127     36406
          AMU=        24223                       GPO            12137
          MTU=        24234             
          BLPTR       24241   POST      
          B=POST      24241                       FTN22          10453
          PARCEL      24243                       GPO            12231     12314     12612
                                                  GRA            21372
                                                  MCG            30077
          FSU         24315                       PROSEQ         22463
                                                  PRE            34100
          CUB         24322                       PRE            33710
          CII         24330                       GPO            12335     12670
                                                  PROSEQ         22505
          OTC         25176                       CLOSE2         10476
          B=SQZ       25627   SQZ                 FTN22          10454
          SIE         25630                       GPO            15746
          SQZB        25634                       GPO            13257     14272     16243
          STLDS       25650                       GPO            14112
          SUVA        25651                       GPO            14105     14111
          SBB         25723                       PROSEQ         22457
          CMO         27414                       GPO            14361     14363     14365     15042     15044     15046
          PC          27655   MCG                 GRA            21267     21356
          MX.TXT      27745             
          B=MCG       27745                       FTN22          10455
          TYIOM       27746                       GPO            15227
                                                  PROSEQ         22730
                                                  BDT            33605
          MCG         27764                       GPO            12323
                                                  GRA            21373
                                                  PROSEQ         22504
                                                  POST           25453
          B=BDT       32614   BDT                 FTN22          10456
          BDT         32615                       MCG            27767     31115
          RIO         33300                       GPO            13272
                                                  MCG            31114
          CRW         33571             
          RNI         33645                       GRA            22322
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.56.29.      PAGE    91  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  SQZ            26011
          B=PRE       33674   PRE                 FTN22          10457
          BRN         33674                       PROSEQ         22453     22517
                                                  SQZ            25724
          LSN         33676                       PROSEQ         22514
          WB          33677                       PROSEQ         22464     22520
          XR          33702                       PROSEQ         22511
                                                  UDT            36400
          PIOL        33704                       UDT            36357
          PRE         33705                       CLOSE2         10473
                                                  GPO            12063     12114
          B=CFA       35235   CFA                 FTN22          10460
          DGS         35260                       GPO            12346
          B=UDT       36124   UDT                 FTN22          10461
          AUT         36124                       GPO            12243     12344
          F.CFA       36124   CFA                 GPO            12345
          CMR         36244   UDT                 GPO            12242
          CPL         36276                       PRE            33755     34260     34352     34516
          PBB         36342                       PROSEQ         22507
          RLI         36410   READRL              PRE            34006     34063     34271     34303     34303     34401     34407
                                                                 34612
          B=RRL       36410                       FTN22          10462
          F.UDT       36410   UDT                 GPO            12343
          O.MAC       36413   READRL              PRE            34010     34346     34351     34616     34674     34740
          MACWDS      36415                       PRE            34646
          MACTYP      36416                       PRE            34027
          MACINS      36417                       PRE            34641     34705     34712     34720     34741     35003     35025
                                                                 35072     35145     35157     35171     35204     35214
          O.EMRB      36420                       PRE            34641
          RRL         36660                       PRE            34005     34062     34144     34267
          EMR         36723                       PRE            34026     34507     34533
          B=MACRX     37017   MACROX              FTN22          10463
          F.MACD      40356                       READRL         36725
          SBUF        40426                       READRL         36734     36760
          RBUF        40435                       READRL         36742     36760
          CBUF        40447                       PRE            34134     34140
                                                  READRL         36756     36761
  
  
  
               2.646 CP SECONDS             112200B CM STORAGE USED                    183 TABLE MOVES
  
  
  
  
1 
      LIBEDIT DIRECTIVES.                                   24/05/02. 15.56.39.           PAGE     1
  
  
  
          *BUILD,GLOBLIB
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 15.56.39.           PAGE     2
  
          RECORD    TYPE      FILE       DATE      COMMENT
  
          COMPASS   ABS       GLOBOLD   97/11/04. PSR=871,PRD=CPS1,MFT=B,VAR=A
          COMP3$    OVL       GLOBOLD   97/11/04. CYBER 70/ MODEL 835 COMPREHENSIVE ASSEMBLER PROGRAM VERSION 3.7-871.
          COMP3$A   OVL       GLOBOLD   97/11/04. CYBER 70/ MODEL 835 COMPREHENSIVE ASSEMBLER PROGRAM VERSION 3.7-871.
          AIDTEXT   OVL       GLOBOLD   97/11/04. 
          NADTEXT   OVL       GLOBOLD   97/11/04. 
          SYMPL     ABS       GLOBOLD   97/11/04. PSR=871,PRD=SYMP,MFT=B,VAR=A
          SYMP10    OVL       GLOBOLD   97/11/04. 
          SYMP15    OVL       GLOBOLD   97/11/04. 
          SYMP16    OVL       GLOBOLD   97/11/04. 
          SYMP14    OVL       GLOBOLD   97/11/04. 
          SYMP17    OVL       GLOBOLD   97/11/04. 
          SYMP13    OVL       GLOBOLD   97/11/04. 
          SYMP30    OVL       GLOBOLD   97/11/04. 
          SYMP31    OVL       GLOBOLD   97/11/04. 
          SYMP32    OVL       GLOBOLD   97/11/04. 
          SYMP40    OVL       GLOBOLD   97/11/04. 
          SYMP50    OVL       GLOBOLD   97/11/04. 
          SYMP51    OVL       GLOBOLD   97/11/04. 
          SYMP52    OVL       GLOBOLD   97/11/04. 
          CATALOG   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. CATALOG - CATALOG FILE. 
          MODIFY    ABS       GLOBOLD   23/09/20. 82/02/26. 92/10/15. MODIFY - SOURCE LIBRARY EDITING PROGRAM.
          KRONREF   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. KRONREF - SYSTEM CROSS REFERENCE PROGRAM. 
          OPLEDIT   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. OPLEDIT - OPL EDITING PROGRAM.
          COPYB     ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. COPYB - BINARY FILES COPIES.
          GTR       ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. GTR - GET SELECTED RECORDS. 
          LIBEDIT   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. LIBEDIT - LIBRARY EDITING PROGRAM.
          LIBGEN    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. LIBGEN - GENERATE USER LIBRARY. 
          VERIFY    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. VERIFY - VERIFY FILES.
          VFYLIB    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. VFYLIB - VERIFY LIBRARY FILES.
          UPDATE    ABS       GLOBOLD   97/11/04. PSR=871,PRD=UPD1,MFT=A,VAR=A
          COPYL     ABS       GLOBOLD   97/11/04.  MERGE RECORDS FROM MASTER AND CORR. FILES. 
          ITEMIZE   ABS       GLOBOLD   97/11/04.  LIST CONTENTS OF A BINARY FILE.
          LDRCNTL   ABS       GLOBOLD   97/11/04. 
          LOADU     ABS       GLOBOLD   97/11/04. USER-CALL LOADER    (L 871).
          LOADER    ABS       GLOBOLD   97/11/04. PSR=871,PRD=LDR1,MFT=B,VAR=B
          LOADC     OVL       GLOBOLD   97/11/04. LOADER - PROCESS CARD IMAGES. 
          LOADG     OVL       GLOBOLD   97/11/04. LOADER - GENERATE OVERLAYS. 
          LOADS     OVL       GLOBOLD   97/11/04. LOADER - GENERATE SEGMENT LOAD. 
          LOADZ     OVL       GLOBOLD   97/11/04. LOADER - RESUME OVERLAY GENERATION. 
          LOADM     OVL       GLOBOLD   97/11/04. LOADER - WRITE LOAD MAP.
          RECLAIM   ABS       GLOBOLD   23/09/20. 88/01/20. 96/06/05. RECLAIM - PERMANENT FILE DUMP/LOAD UTILITY
          TDUEX     ABS       GLOBOLD   97/11/04. PSR=871,PRD=TDU1,MFT=A,VAR=A
          LOADUC    OVL       GLOBOLD   97/11/04. LOADU - PROCESS CARD IMAGES.
          LOADUM    OVL       GLOBOLD   97/11/04. LOADU - WRITE LOAD MAP. 
          TRAP      OVL       GLOBOLD   97/11/04. 
          SEGRES    OVL       GLOBOLD   97/11/04. SEGMENT LOADER RESIDENT.
          LDRTEXT   OVL       GLOBOLD   97/11/04. LOADER REQUEST SYSTEM MACROS. 
          PSSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. PSSTEXT - PRODUCT SET SUPPORT MACROS. 
          NOSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. NOSTEXT - SYSTEM COMMUNICATION TEXT.
          SYSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. SYSTEXT - SYSTEM MACROS.
          SSYTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. SSYTEXT - SYSTEM CONTROL POINT TEXT.
          PPTEXT    OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. PPTEXT - SYSTEM PP TEXT.
          CETEXT    OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. CETEXT - ENGINEERING SUPPORT TEXT.
          CTITEXT   OVL       GLOBOLD   86/08/21. PSR=871,PRD=CTI0,MFT=C,VAR=A
          NETTEXT   OVL       GLOBOLD   23/09/20. 
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 15.56.39.           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.
          FTN5      ABS       GLOBOLD   24/05/02. FTN5 MAIN OVERLAY.
          FTN510    OVL       GLOBOLD   24/05/02. FTN5 PRIMARY OVERLAY FOR QCG. 
          FTN520    OVL       GLOBOLD   24/05/02. FTN5 PRIMARY OVERLAY FOR CCG. 
          FTN521    OVL       GLOBOLD   24/05/02. FTN5 FRONT END OVERLAY FOR CCG. 
          FTN522    OVL       GLOBOLD   24/05/02. COMMON CODE GENERATOR OVERLAY.
          FTN523    OVL       GLOBOLD   24/05/02. FTN5 REAR END OVERLAY FOR CCG.
          COBOL5    ABS       GLOBOLD   97/11/06. PSR=871,PRD=COB5,MFT=B,VAR=A
          COB5010   OVL       GLOBOLD   97/11/06. 
          COB5020   OVL       GLOBOLD   97/11/06. 
          COB5021   OVL       GLOBOLD   97/11/06. 
          COB5022   OVL       GLOBOLD   97/11/06. 
          COB5023   OVL       GLOBOLD   97/11/06. 
          COB5050   OVL       GLOBOLD   97/11/06. 
          COB5060   OVL       GLOBOLD   97/11/06. 
          COB5070   OVL       GLOBOLD   97/11/06. 
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 15.56.39.           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. 
 REPLACED FTN       ABS       GTLGO     24/05/02. 
 REPLACED FTN10     OVL       GTLGO     24/05/02. FTN4 TS COMPILER
 REPLACED FTN20     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - BATCH CONTROLLER
 REPLACED FTN23     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)
 REPLACED FTN21     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - PASS 1(NO DEBUG)
 REPLACED FTN25     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)
 REPLACED FTN22     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER
          FTN24     OVL       GLOBOLD   97/11/05. FTN4 OPT COMPILER - DEBUG PASS 1
          FILE      ABS       GLOBOLD   97/11/04. CRM FILE CONTROL CARD PROCESSOR 
 ADDED    GLOBLIB   OPLD      *****     24/05/02. 
          **EOF**             GLOBOLD 
  
1       FTN24                                                         COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       45              IDENT  FTN24
                         45                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0        45 
                                        //        COMMON          0         0 
  
  
                                        ENTRY POINTS. 
  
                                        B=FTN24          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=PH1CT   B=CALL    B=ERPRO   B=ENDPR   SETARR    BUGCON    PUTUPDT 
                                        B=DECPR   B=ASFPR   B=DATA    B=STMTP   PUTIN     BUGSOUT   PUT 
                                        B=DPCLS   B=ARITH   B=CNVRT   B=PS1CT   BUGPRO    TURNON    B=OPK24 
                                        B=DOPRC   B=LSTIO   DMPELST   B=SVREG   DEBUGER   GETOUT    B=DBGPH 
                                        B=GOTO    B=FLY     B=SCANR   BUGCLO    TURNOFF   BUGACT
  
  
  
  
                                                  IDENT  FTN24                                                   FCCA589   343
                                                  LCC    OVERLAY(FTN,2,4)                                        FCCA589   344
                                                  COMMENT FTN4 OPT COMPILER - DEBUG PASS 1                       FCCA589   345
                                                                                                                 FCCA589   346
                                        *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. FCCA589   347
                                                                                                                 FCCA589   348
                                                  ENTRY  B=FTN24                                                 FCCA589   349
             0  06241635370000000000 +   B=FTN24  VFD    42/5LFTN24,18/*                                         FCCA589   350
             1  04020720100324000000 X            VFD    42/7LDBGPHCT,18/=XB=DBGPH                               FCCA589   351
             2  17252420133537000000 X            VFD    42/7LOUTPK24,18/=XB=OPK24                               FCCA589   352
             3  20252400000000777776 X            VFD    42/3LPUT,18/=XPUT-1                                     FCCA589   353
             4  20252425200424777776 X            VFD    42/7LPUTUPDT,18/=XPUTUPDT-1                             FCCA589   354
             5  02250701032400777776 X            VFD    42/6LBUGACT,18/=XBUGACT-1                               FCCA589   355
             6  07052417252400777776 X            VFD    42/6LGETOUT,18/=XGETOUT-1                               FCCA589   356
             7  24252216171600777776 X            VFD    42/6LTURNON,18/=XTURNON-1                               FCCA589   357
            10  02250723172524777776 X            VFD    42/7LBUGSOUT,18/=XBUGSOUT-1                             FCCA589   358
            11  02250703171600777776 X            VFD    42/6LBUGCON,18/=XBUGCON-1                               FCCA589   359
            12  24252216170606777776 X            VFD    42/7LTURNOFF,18/=XTURNOFF-1                             FCCA589   360
            13  04050225070522777776 X            VFD    42/7LDEBUGER,18/=XDEBUGER-1                             FCCA589   361
            14  02250720221700777776 X            VFD    42/6LBUGPRO,18/=XBUGPRO-1                               FCCA589   362
            15  20252411160000777776 X            VFD    42/5LPUTIN,18/=XPUTIN-1                                 FCCA589   363
            16  23052401222200777775 X            VFD    42/6LSETARR,18/=XSETARR-2                               FCCA589   364
            17  02250703141700777775 X            VFD    42/6LBUGCLO,18/=XBUGCLO-2                               FCCA589   365
            20  23012622050723000000 X            VFD    42/7LSAVREGS,18/=XB=SVREG                               FCCA589   366
            21  20233403241400000000 X            VFD    42/6LPS1CTL,18/=XB=PS1CT                                FCCA589   367
            22  23241524200000000000 X            VFD    42/5LSTMTP,18/=XB=STMTP                                 FCCA589   368
            23  05160420221700000000 X            VFD    42/6LENDPRO,18/=XB=ENDPR                                FCCA589   369
            24  23030116160522000000 X            VFD    42/7LSCANNER,18/=XB=SCANR                               FCCA589   370
            25  04152005142324777774 X            VFD    42/7LDMPELST,18/=XDMPELST-3                             FCCA589   371
1       FTN24                                                         COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     2
  
  
            26  03171626052224000000 X            VFD    42/7LCONVERT,18/=XB=CNVRT                               FCCA589   372
            27  04012401000000000000 X            VFD    42/4LDATA,18/=XB=DATA                                   FCCA589   373
            30  05222022170000000000 X            VFD    42/5LERPRO,18/=XB=ERPRO                                 FCCA589   374
            31  06143100000000000000 X            VFD    42/3LFLY,18/=XB=FLY                                     FCCA589   375
            32  14112324111700000000 X            VFD    42/6LLISTIO,18/=XB=LSTIO                                FCCA589   376
            33  01221124100000000000 X            VFD    42/5LARITH,18/=XB=ARITH                                 FCCA589   377
            34  01230620221700000000 X            VFD    42/6LASFPRO,18/=XB=ASFPR                                FCCA589   378
            35  03011414000000000000 X            VFD    42/4LCALL,18/=XB=CALL                                   FCCA589   379
            36  07172417000000000000 X            VFD    42/4LGOTO,18/=XB=GOTO                                   FCCA589   380
            37  04172022170300000000 X            VFD    42/6LDOPROC,18/=XB=DOPRC                                FCCA589   381
            40  04200314172305000000 X            VFD    42/7LDPCLOSE,18/=XB=DPCLS                               FCCA589   382
            41  04050320221700000000 X            VFD    42/6LDECPRO,18/=XB=DECPR                                FCCA589   383
            42  20103403241400000000 X            VFD    42/6LPH1CTL,18/=XB=PH1CT                                FCCA589   384
                                                  USE    //                                                      FCCA589   385
             0                           BLNKCOM  BSS    0                                                       FCCA589   386
                                                  USE    *                                                       FCCA589   387
            43  02141613031715000000 C            VFD    42/7LBLNKCOM,18/BLNKCOM                                 FCCA589   388
            44  00000000000000000000              DATA   0                                                       FCCA589   389
                                                                                                                 FCCA589   390
            45                                    END                                                            FCCA589   391
  
                             55200B CM  STORAGE USED               49 STATEMENTS       36 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.082 SECONDS          38 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        BLNKCOM         0   //              2/15 L    2/17
        BUGACT          0   EXTERNAL*       1/41
        BUGCLO          0   EXTERNAL*       1/51
        BUGCON          0   EXTERNAL*       1/45
        BUGPRO          0   EXTERNAL*       1/48
        BUGSOUT         0   EXTERNAL*       1/44
        B=ARITH         0   EXTERNAL*       2/06
        B=ASFPR         0   EXTERNAL*       2/07
        B=CALL          0   EXTERNAL*       2/08
        B=CNVRT         0   EXTERNAL*       2/01
        B=DATA          0   EXTERNAL*       2/02
        B=DBGPH         0   EXTERNAL*       1/37
        B=DECPR         0   EXTERNAL*       2/12
        B=DOPRC         0   EXTERNAL*       2/10
        B=DPCLS         0   EXTERNAL*       2/11
        B=ENDPR         0   EXTERNAL*       1/55
        B=ERPRO         0   EXTERNAL*       2/03
        B=FLY           0   EXTERNAL*       2/04
        B=FTN24         0   PROGRAM*        1/35 E    1/36 L
        B=GOTO          0   EXTERNAL*       2/09
        B=LSTIO         0   EXTERNAL*       2/05
        B=OPK24         0   EXTERNAL*       1/38
        B=PH1CT         0   EXTERNAL*       2/13
        B=PS1CT         0   EXTERNAL*       1/53
        B=SCANR         0   EXTERNAL*       1/56
        B=STMTP         0   EXTERNAL*       1/54
        B=SVREG         0   EXTERNAL*       1/52
        DEBUGER         0   EXTERNAL*       1/47
        DMPELST         0   EXTERNAL*       1/57
1       FTN24                                                         COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     3
        SYMBOLIC REFERENCE TABLE. 
  
        GETOUT          0   EXTERNAL*       1/42
        PUT             0   EXTERNAL*       1/39
        PUTIN           0   EXTERNAL*       1/49
        PUTUPDT         0   EXTERNAL*       1/40
        SETARR          0   EXTERNAL*       1/50
        TURNOFF         0   EXTERNAL*       1/46
        TURNON          0   EXTERNAL*       1/43
1       DBGPHCT                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DBGPHCT
                          0                       END 
  
  
  
  
                                                  IDENT  DBGPHCT                                                 FCCA589   392
             0                                    END                                                            FCCA589   393
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       OUTPK24                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  OUTPK24
                          0                       END 
  
  
  
  
                                                  IDENT  OUTPK24                                                 FCCA589   394
             0                                    END                                                            FCCA589   395
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       PUT                                                           COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUT
                          0                       END 
  
  
  
  
                                                  IDENT  PUT                                                     FCCA589   396
             0                                    END                                                            FCCA589   397
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       PUTUPDT                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUTUPDT
                          0                       END 
  
  
  
  
                                                  IDENT  PUTUPDT                                                 FCCA589   398
             0                                    END                                                            FCCA589   399
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       BUGACT                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BUGACT 
                          0                       END 
  
  
  
  
                                                  IDENT  BUGACT                                                  FCCA589   400
             0                                    END                                                            FCCA589   401
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       GETOUT                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GETOUT 
                          0                       END 
  
  
  
  
                                                  IDENT  GETOUT                                                  FCCA589   402
             0                                    END                                                            FCCA589   403
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.015 SECONDS           0 REFERENCES
  
1       TURNON                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TURNON 
                          0                       END 
  
  
  
  
                                                  IDENT  TURNON                                                  FCCA589   404
             0                                    END                                                            FCCA589   405
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.015 SECONDS           0 REFERENCES
  
1       BUGSOUT                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BUGSOUT
                          0                       END 
  
  
  
  
                                                  IDENT  BUGSOUT                                                 FCCA589   406
             0                                    END                                                            FCCA589   407
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       BUGCON                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BUGCON 
                          0                       END 
  
  
  
  
                                                  IDENT  BUGCON                                                  FCCA589   408
             0                                    END                                                            FCCA589   409
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       TURNOFF                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TURNOFF
                          0                       END 
  
  
  
  
                                                  IDENT  TURNOFF                                                 FCCA589   410
             0                                    END                                                            FCCA589   411
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       DEBUGER                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DEBUGER
                          0                       END 
  
  
  
  
                                                  IDENT  DEBUGER                                                 FCCA589   412
             0                                    END                                                            FCCA589   413
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       BUGPRO                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BUGPRO 
                          0                       END 
  
  
  
  
                                                  IDENT  BUGPRO                                                  FCCA589   414
             0                                    END                                                            FCCA589   415
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       PUTIN                                                         COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUTIN
                          0                       END 
  
  
  
  
                                                  IDENT  PUTIN                                                   FCCA589   416
             0                                    END                                                            FCCA589   417
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       SETARR                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  SETARR 
                          0                       END 
  
  
  
  
                                                  IDENT  SETARR                                                  FCCA589   418
             0                                    END                                                            FCCA589   419
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       BUGCLO                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BUGCLO 
                          0                       END 
  
  
  
  
                                                  IDENT  BUGCLO                                                  FCCA589   420
             0                                    END                                                            FCCA589   421
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       SAVREGS                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  SAVREGS
                          0                       END 
  
  
  
  
                                                  IDENT  SAVREGS                                                 FCCA589   422
             0                                    END                                                            FCCA589   423
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       PS1CTL                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PS1CTL 
                          0                       END 
  
  
  
  
                                                  IDENT  PS1CTL                                                  FCCA589   424
             0                                    END                                                            FCCA589   425
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.015 SECONDS           0 REFERENCES
  
1       STMTP                                                         COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  STMTP
                          0                       END 
  
  
  
  
                                                  IDENT  STMTP                                                   FCCA589   426
             0                                    END                                                            FCCA589   427
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       ENDPRO                                                        COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ENDPRO 
                          0                       END 
  
  
  
  
                                                  IDENT  ENDPRO                                                  FCCA589   428
             0                                    END                                                            FCCA589   429
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       SCANNER                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  SCANNER
                          0                       END 
  
  
  
  
                                                  IDENT  SCANNER                                                 FCCA589   430
             0                                    END                                                            FCCA589   431
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       DMPELST                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DMPELST
                          0                       END 
  
  
  
  
                                                  IDENT  DMPELST                                                 FCCA589   432
             0                                    END                                                            FCCA589   433
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       CONVERT                                                       COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONVERT
                          0                       END 
  
  
  
  
                                                  IDENT  CONVERT                                                 FCCA589   434
             0                                    END                                                            FCCA589   435
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       DATA                                                          COMPASS 3.7-871.     24/05/02. 15.57.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DATA 
                          0                       END 
  
  
  
  
                                                  IDENT  DATA                                                    FCCA589   436
             0                                    END                                                            FCCA589   437
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       ERPRO                                                         COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ERPRO
                          0                       END 
  
  
  
  
                                                  IDENT  ERPRO                                                   FCCA589   438
             0                                    END                                                            FCCA589   439
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       FLY                                                           COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FLY
                          0                       END 
  
  
  
  
                                                  IDENT  FLY                                                     FCCA589   440
             0                                    END                                                            FCCA589   441
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       LISTIO                                                        COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LISTIO 
                          0                       END 
  
  
  
  
                                                  IDENT  LISTIO                                                  FCCA589   442
             0                                    END                                                            FCCA589   443
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       ARITH                                                         COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ARITH
                          0                       END 
  
  
  
  
                                                  IDENT  ARITH                                                   FCCA589   444
             0                                    END                                                            FCCA589   445
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       ASFPRO                                                        COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ASFPRO 
                          0                       END 
  
  
  
  
                                                  IDENT  ASFPRO                                                  FCCA589   446
             0                                    END                                                            FCCA589   447
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       CALL                                                          COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CALL 
                          0                       END 
  
  
  
  
                                                  IDENT  CALL                                                    FCCA589   448
             0                                    END                                                            FCCA589   449
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       GOTO                                                          COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GOTO 
                          0                       END 
  
  
  
  
                                                  IDENT  GOTO                                                    FCCA589   450
             0                                    END                                                            FCCA589   451
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       DOPROC                                                        COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DOPROC 
                          0                       END 
  
  
  
  
                                                  IDENT  DOPROC                                                  FCCA589   452
             0                                    END                                                            FCCA589   453
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       DPCLOSE                                                       COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DPCLOSE
                          0                       END 
  
  
  
  
                                                  IDENT  DPCLOSE                                                 FCCA589   454
             0                                    END                                                            FCCA589   455
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       DECPRO                                                        COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECPRO 
                          0                       END 
  
  
  
  
                                                  IDENT  DECPRO                                                  FCCA589   456
             0                                    END                                                            FCCA589   457
  
                             55100B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       PH1CTL                                                        COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PH1CTL 
                          0                       END 
  
  
  
  
                                                  IDENT  PH1CTL                                                  FCCA589   458
             0                                    END                                                            FCCA589   459
  
                             52600B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.003 SECONDS           0 REFERENCES
  
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1445              IDENT  DBGPHCT
                       1445                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1164 
                                        LITERALS* LOCAL        1164        60 
                                        //        COMMON          0         1 
                                        DBGBLK2   COMMON          0       115 
                                        DBGBLK1   COMMON          0        10 
                                        NONFTNX   COMMON          0        11 
                                        BUFF      LOCAL        1244       201 
  
  
                                        ENTRY POINTS. 
  
                                        B=DBGPH          0+           DBGINTX        300+           WRTMS3         712+ 
                                        ALLARR           0+/DBGBLK1/  DOP            307+           WRTMS4         717+ 
                                        ALLCALL          1+/DBGBLK1/  POINTRS        463+           RDMS1          724+ 
                                        ALLFUNC          2+/DBGBLK1/  DMVWDS         475+           CFO            740+ 
                                        GOTOSFL          3+/DBGBLK1/  TDI            527+           DBGCUN         745+ 
                                        NOGOFLG          4+/DBGBLK1/  DBGERR         542+           DSYMTAB        765+ 
                                        TRACEL           5+/DBGBLK1/  TYPFLAG        556+           FIXPNTR       1004+ 
                                        D.SAASI         11+/DBGBLK2/  D.IDSP         600+           DINPH2        1015+ 
                                        DBGEPKT          1+           ISITDBG        616+           DCONV         1046+ 
                                        DBGIPKT        156+           WRTMS1         653+ 
                                        DBGINT         260+           WRTMS2         701+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O.DCON    PHASE     ERPROI    FA=LOL    LASTREC   FSTEX     LWAWORK   PROGNAM 
                                        L.DCON    CONVERT   PSYM      LSL       GL.DRL    WRM       FA=SET
                                        O.CON     LABEL.    F.DEBUG   CP.CARD   MVE=      GL.IND    FV.IN 
                                        L.CON     WB.CON    WTW=      SCANNER   PLO       BUGCLO    F.IN
                                        L.GCON    ALLOC     CIO=      IDENTOK   TURNON    RESREG    N.FERR
                                        O.GCON    Z.CON     WNB=      CONSTOR   BUGCON    SAVREG    N.LINES 
                                        ADDWD     VALUE.    PACK7     TL.PTYP   DUKE1     FWAWORK   DSL 
                                        Z.DCON    SYMBOL    PUTUPDT   GL.DVL    BUGACT    BUGPRO    DFLAG 
  
  
  
  
                                                  IDENT  DBGPHCT                                                 DBGPHCT     2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                        ***                                                                      DBGPHCT     5
                                        *         DBGPHCT - DEBUG OPTION CONTROLLER AND COMPASS SUBROUTINES      DBGPHCT     6
                                        *                                                                        DBGPHCT     7
  
  
  
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     2
  
  
             0                           B=DBGPH  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     DBGPHCT     9
                                                  ENTRY  ALLARR                                                  FCCT006X    5
                                                  ENTRY  ALLCALL                                                 FCCT006X    6
                                                  ENTRY  ALLFUNC                                                 FCCT006X    7
                                                  ENTRY  GOTOSFL                                                 FCCT006X    8
                                                  ENTRY  NOGOFLG                                                 FCCT006X    9
                                                  ENTRY  TRACEL                                                  FCCT006X   10
                                                  ENTRY  D.SAASI                                                 DBGPHCT    12
                                                                                                                 DBGPHCT    13
                                                  TABLES DCON,CON                                                DBGPHCT    14
                                                                                                                 DBGPHCT    15
                                  12     SYM1     EQU    12B                                                     DBGPHCT    16
                                  13     SYMEND   EQU    13B                                                     DBGPHCT    17
                                  24     TYPE     EQU    24B                                                     DBGPHCT    18
                                  51     ATYPE    EQU    51B         AUXILIARY STMT TYPE CODE                    DBGPHCT    19
                                  32     SELIST   EQU    32B                                                     DBGPHCT    20
                                  34     LELIST   EQU    34B                                                     DBGPHCT    21
                                  37     DUKE     EQU    RA.SSW+37B  INITIAL LINE NR (BIN) OF LAST STATEMENT     DBGPHCT    22
                                  56     PROGRAM  EQU    56B               SUBPROGRAM TYPE FLAG                  DBGPHCT    23
                                  60     NLABEL   EQU    RA.SSW+60B  NEXT STMT LABEL                             DBGPHCT    24
                                        *                            0     EMPTY OR ILLEGAL LABEL                DBGPHCT    25
                                        *                            .NZ.  NEXT LABEL, DPC LEFT JUST, BLANK FILL DBGPHCT    26
                                                                                                                 DBGPHCT    27
                                  74     E.IMDS   EQU    60                CONFLICTING USE OF NAME,FORTRAN DEBUG DBGPHCT    28
                                  75     E.DCUN   EQU    61                CONFLICTING USE OF NAME, DEBUG-FORTRA DBGPHCT    29
                                                                                                                 DBGPHCT    30
             0                     1     FWASAVE  BSSZ   1                                                       DBGPHCT    31
  
  
  
  
                                        **        STATEMENT TYPE CODES.                                          DBGPHCT    33
                                                                                                                 DBGPHCT    34
                                  15     ST.END   =      13          END (NORMAL)                                DBGPHCT    35
                                  45     ST.INV   =      37          END (INVENTED)                              DBGPHCT    36
                                                                                                                 FCC1843X    5
                                        **        DEFINE SYSTEM AND TESTMODE DEBUG FILE NAME.                    FCC1843X    6
                                                                                                                 FCC1843X    7
                                        #T        IFEQ   TEST,0                                                  FCC1843X    8
                                         OPT      MICRO  1,, ZZZZZOP                                             FCC1843X    9
                                        #T        ELSE                                                           FCC1843X   10
                                         OPT      MICRO  1,, FTNOPT                                              FCC1843X   11
                                        #T        ENDIF                                                          FCC1843X   12
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     3
         MACROS TO SCAN THE E-LIST
  
             1                           PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                      PARSEM      3
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     4
         MACROS TO SCAN THE E-LIST
  
                                        *         LOCATIONS USED BY THE "DEBUG" PROCESSOR                        DBGCOM      3
                                                                                                                 DBGCOM      4
                                                  USE    //                                                      DBGCOM      5
             0                     1     DEBUG    BSS    1                                                       DBGCOM      6
                                                  USE    *                                                       DBGCOM      7
                                                  USE    /DBGBLK2/                                               DBGCOM      8
             0                     1     D.SDRL   BSS    1            BEGINNING ADDRESS OF DRL RELATIVE TO //    DBGCOM      9
             1                     1     D.EDRL   BSS    1            NEXT AVAILABLE ORDINAL OF DRL              DBGCOM     10
             2                     1     D.SDVL   BSS    1            BEGINNING ADDRESS OF DVL RELATIVE TO //    DBGCOM     11
             3                     1     D.EDVL   BSS    1            NEXT AVAILABLE ORDINAL OF DVL              DBGCOM     12
             4                     1     D.SAREA  BSS    1            BEGINNING ADDRESS OF AREA LIST // RELATIVE DBGCOM     13
             5                     1     D.EAREA  BSS    1            NEXT AVAILABLE ORDINAL OF AREA LIST        DBGCOM     14
             6                     1     D.OPL    BSS    1            BEG. ADDRESS OF OPTIONS LIST // RELATIVE   DBGCOM     15
             7                     1     D.SSMTB  BSS    1            BEG. ADDRESS OF SYMTAB RELATIVE TO //      DBGCOM     16
            10                     1     D.ESMTB  BSS    1            NEXT AVAILABLE ORDINAL OF SYMTAB           DBGCOM     17
            11                     1     D.SAASI  BSS    1            BEGINNING ADDRESS OF AASI RELATIVE TO //   DBGCOM     18
            12                     1     D.RFMAP  BSS    1            FWA REFMAP OR ITS EQU REL TO //            DBGCOM     19
            13                     1     D.ELIST  BSS    1            CURRENT ELIST POINTER RELATIVE TO //       DBGCOM     20
            14                     1     D.LELST  BSSZ   1                 LELIST FOR BUGPRO                     DBGCOM     21
            15                     1     D.ELAST  BSS    1            ENDING ADDRESS OF ELIST RELATIVE TO //     DBGCOM     22
            16                     1     D.NESTW  BSS    1            CURRENT ADDRESS OF OPRIONS LIST            DBGCOM     23
            17                     1     D.SFDIT  BSS    1            BEG. ADD. OF FIXED AREA LIST // RELATIVE   DBGCOM     24
            20                     1     D.EFDIT  BSS    1            LAST ORDINAL + 1 OF FIXED AREA LIST        DBGCOM     25
            21                     1     D.CON1   BSS    1            BEG. ADD. OF CONLIST RELATIVE TO //        DBGCOM     26
            22                     1     D.CONL   BSS    1            LAST USED WORD ORDINAL OF CONLIST          DBGCOM     27
            23                     1     D.NAASI  BSS    1            NEXT AVAILABLE ORDINAL OF AASI             DBGCOM     28
            24                     1     SDBGIND  BSS    1            BEG. ADD. OF RANDOM DEBUG INDEX REL. TO // DBGCOM     29
            25                     1     D.STOR   BSSZ   1            SCANNERS CONSTOR FOR BUGCON                DBGCOM     30
            26                     1     D.SCON1  BSSZ   1            SCANNERS CONSTOR RELATIVE TO //            DBGCOM     31
            27                     1     D.DOLAST BSS    1            DOLAST FOR FTN DEBUG ROUTINES              DBGCOM     32
            30                     1     D.NOGO   BSSZ   1            .NE. 0 IF DEBUG STMTS NOT TO BE EXECUTED   DBGCOM     33
            31                     1     D.PACK   BSSZ   1                                                       DBGCOM     34
            32                     1     D.POW    BSS    1            PREVIOUS OPTION WORD                       DBGCOM     35
            33                     1     D.OPFLG  BSSZ   1            .NE. 0 IF OPTIONS HAVE TO BE WRITTEN OUT   DBGCOM     36
            34                     1     D.ON     BSS    1            0 IF TURNING ON OPTIONS. .NE.0 IF OFF      DBGCOM     37
            35                     1     D.NOERR  BSS    1            NO. OF ERRORS IN AREA LIST                 DBGCOM     38
            36                     1     D.PADD   BSS    1           = 0 IF INTERSPERSED  (FOR TURNON)           DBGCOM     39
            37                     1     FEFLAG   BSSZ   1            IF .NE. 0 CAUSES LIST OF FE STMT IN NOLIST DBGCOM     40
            40                     1     D.OPEN   BSSZ   1            .EQ.1 IF DUNIT OPEN, 0 IF CLOSED           DBGCOM     41
            41                     1     DBGPROG  BSSZ   1            LOCATION 56 FOR FTN DEBUG ROUTINES         DBGCOM     42
            42                     1     LDEBUG   BSSZ   1                 LOCATION OF DEBUG FOR FTN DEBUG RTNS  DBGCOM     43
            43                     1     RECORD   BSSZ   1                 NEXT AVAILABLE RECORD NUMBER          DBGCOM     44
            44                     1     DISPOW   BSSZ   1                 DISPLAY FOR OPTIONS HEADER            DBGCOM     45
            45                     1     SUCCESS  BSSZ   1                 FLG FOR EXTERNAL PACKET ON DISK       DBGCOM     46
            46                     1     LTFLAG   BSS    1            .TRUE. IF PROCESSING AN OFF STMT           DBGCOM     47
            47                     1     LFLAG    BSS    1            .TRUE. IF PROCESSING AN INTERSPERSED OFF   DBGCOM     48
            50                     1     NOPROG   BSSZ   1            NON ZERO IF NO PROGRAM CARD AND            DBGCOM     49
                                                                      CALLING DBGIPKT ONLY TO SET UP             DBGCOM     50
                                                                      FOR FURTHER PROCESSING                     DBGCOM     51
            51                     2     D.CURUD  BSS    2            UPDATE ID OF CURRENT STATEMENT             DBGCOM     52
            53                     1     D.DUKE1  BSS    1            BIN. LINE NO. OF START OF CURRENT STMT.    DBGCOM     53
            54                     1     D.LABEL  BSS    1            LABEL OF CURRENT STATEMENT                 DBGCOM     54
            55                     1     D.TYPE   BSS    1            STATEMENT TYPE                             DBGCOM     55
            56                     1     D.NEST   BSS    1            CURRENT POSITION IN D.NESTW                DBGCOM     56
            57                     1     LNGIND   BSS    1            LENGTH OF THE INDEX OF DEBUG RANDOM FILE   DBGCOM     57
            60  00000000000000000000     NOACT    DATA   0           .ZR. IF PACKET INFO AVAILABLE, .MI. IF NOT  DBGCOM     58
            61                     1     AREAFLG  BSSZ   1                 AREA LIST FLAG                        DBGCOM     59
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     5
         MACROS TO SCAN THE E-LIST                                              DBGBLK2 
  
            62                     1     LNGDRL   BSSZ   1                 LENGTH ALLOTTED TO THE DRL            DBGCOM     60
            63                     1     LNGDVL   BSSZ   1                 LENGTH ALLOTTED TO THE DVL            DBGCOM     61
            64                     1     C.PACK   BSS    1                 E IF EXTERNAL PACKET, I IF INTERNAL   DBGCOM     62
            65                    24     UPDTTBL  BSS    20                TABLE FOR UPDATE IDS ON COMMENT CDS   DBGCOM     63
           111                     1     COUNTUP  BSSZ   1                 NUMBER OF ENTRIES IN UPDTTBL          DBGCOM     64
           112                     1     SCNUPDT  BSSZ   1                 .NE. 0 IF PUTUPDT ENTERED FM SCANNER  DBGCOM     65
           113                     1     INDEXNO  BSSZ   1                 1 IF NO INTERNAL PACKET INFO, 3 ELSE  DBGCOM     66
           114                     1     PHSFLAG  BSSZ   1            .LT. 0 IF BETWEEN PHASES                   DBGCOM     67
                                                  USE    *                                                       DBGCOM     68
                                                  USE    /DBGBLK1/                                               DBGCOM     69
             0                     1     ALLARR   BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL ARRAYS     DBGCOM     70
             1                     1     ALLCALL  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL CALLS      DBGCOM     71
             2                     1     ALLFUNC  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL FUNCTIONS  DBGCOM     72
             3                     1     GOTOSFL  BSSZ   1            .NE. 0 IF GO TOS OPTION IS ON              DBGCOM     73
             4                     1     NOGOFLG  BSSZ   1            .NE. 0 IF NO EXECUTION DESPITE FATAL ERROR DBGCOM     74
             5  77777777777777777776     TRACEL   DATA   -1           CURRENT TRACE LEVEL                        DBGCOM     75
             6                     1     ALLROU   BSS    1            .NE. 0 IF OPLIST APPLIES TO ALL ROUTINES   DBGCOM     76
             7  23201104052257000000     SPIDER   VFD    42/7LSPIDER.,18/0                                       DBGCOM     77
                                                  USE    *                                                       DBGCOM     78
                                                  USE    /NONFTNX/                                               DBGCOM     79
             0                     1     D.COL    BSSZ   1            .NE. 0 IF EXT DEBUG PACKET ALREADY DONE    DBGCOM     80
             1                     1     DTYPE    BSSZ   1            = 0 IF NEXT STMT NOT DEBUG STMT            DBGCOM     81
                                   1 C   C$STMT   =      DTYPE                                                   DBGCOM     82
                                        *C$STMT   BSSZ   1           .NZ. IF NEXT STMT IS C$-DEBUG, .ZR. IF NOT  DBGCOM     83
             2                     2     D.NCURU  BSSZ   2            UPDATE ID OF NEXT STATEMENT                DBGCOM     84
             4                     1     D.NDUKE  BSSZ   1            BIN. LINE NO. OF START OF NEXT STMT        DBGCOM     85
             5                     1     D.NLBEL  BSSZ   1            LABEL OF NEXT STATEMENT                    DBGCOM     86
             6                     1     DBGRFMP  BSSZ   1            LAST USED WD OF REFMAP OR EQUIVALENT       DBGCOM     87
             7                     1     DBGPHCT  BSSZ   1            " 0 WHILE DBGPHCT HAS CONTROL              FCC1852    10
            10                     1     D.CURT   BSSZ   1           .LT. 0 IF CURRENT STATEMENT IS C$ DEBUG     FCC2119     6
                                                  USE    *                                                       DBGCOM     88
                                                  PURGMAC CALLF                                                  DBGCOM     89
                                         CALLF    MACRO  NAME,RESET                                              DBGCOM     90
                                                  SA1    =0                                                      DBGCOM     91
                                                  RJ     =X_NAME                                                 DBGCOM     92
                                                  IFC    NE, RESET  ,4                                           DBGCOM     93
                                                  IFC    EQ, RESET B1 ,2                                         DBGCOM     94
                                                  SB1    1                                                       DBGCOM     95
                                                  SKIP   1                                                       DBGCOM     96
                                                  SB5    1                                                       DBGCOM     97
                                         CALLF    ENDM                                                           DBGCOM     98
  
  
  
                                        ***                                                                      DBGCOM    100
                                        *         DBGERR - CALL ROUTINE TO PRINT AN ERROR MESSAGE WHEN IN DEBUG  DBGCOM    101
                                        *                MODE                                                    DBGCOM    102
                                        *                ARGUMENT IS TEXT OF THE MESSAGE                         DBGCOM    103
                                        *                                                                        DBGCOM    104
                                                  PURGMAC DBGERR                                                 DBGCOM    105
                                         DBGERR   MACRO  TEXT                                                    DBGCOM    106
                                                  RJ     =XSAVREG                                                DBGCOM    107
                                                  SA5    =C/TEXT/                                                DBGCOM    108
                                                  RJ     =XDBGERR                                                DBGCOM    109
                                                  RJ     =XRESREG                                                DBGCOM    110
                                                  ENDM                                                           DBGCOM    111
                                  47     DBGFSTT  EQU    39                                                      DBGCOM    112
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     6
         MACROS TO SCAN THE E-LIST
  
                                  62     DBGEXTP  EQU    50                                                      DBGCOM    113
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     7
        DBGEPKT - DEBUG EXTERNAL PACKET PROCESSING CONTROLLER         DBGEPKT 
  
                                        ***       DBGEPKT - DEBUG EXTERNAL PACKET PROCESSING CONTROLLER.         DBGPHCT    41
                                        *                                                                        DBGPHCT    42
                                        *                                                                        DBGPHCT    43
                                                                                                                 DBGPHCT    44
                                                  QUAL   DBGEPKT                                                 DBGPHCT    45
                                                                                                                 DBGPHCT    46
                                                                                                                 DBGPHCT    47
             1  0400400001 +             DBGEPKT  SUBR               ** ENTRY/EXIT **                            DBGPHCT    48
             2  6110000001                        SB1    1                                                       DBGPHCT    49
                          7100777776 C            SX0    DEBUG-1     FWA //                                      FCCT006X   11
             3  7110000000 X                      SX1    =XPROGNAM                                               FCCT006X   12
                          10600                   BX6    X0                                                      FCCT006X   13
                               37710              IX7    X1-X0                                                   FCCT006X   14
             4  5160000042 C                      SA6    LDEBUG                                                  FCCT006X   15
                          5170000041 C            SA7    DBGPROG     ADDR PROG UNIT NAME REL TO //               FCCT006X   16
             5  5120000000 X                      SA2    =XFWAWORK                                               FCCT006X   17
                          5130000057 C            SA3    LNGIND                                                  FCCT006X   18
             6  37620                             IX6    X2-X0                                                   FCCT006X   19
                     36763                        IX7    X6+X3                                                   FCCT006X   20
                          5160000024 C            SA6    SDBGIND     FWA DEBUG INDEX = (FWAWORK) REL TO //       FCCT006X   21
             7  5170000004 C                      SA7    D.SAREA     FWA AREA LIST REL TO //                     FCCT006X   22
                          5170000005 C            SA7    D.EAREA                                                 FCCT006X   23
            10  5110000000 X                      SA1    =XDFLAG                                                 DBGPHCT    50
                          0331000126 +            MI     X1,EXP71    IF EXT PACKET PROCESSING ALREADY DONE       FCC0618     6
                                                                                                                 FCC0618     7
                                        **        NORMAL EXTERNAL PACKET PROCESSING.                             FCC0618     8
                                                                                                                 FCC0618     9
            11  7160000005                        SX6    1RE                                                     DBGPHCT    60
                          5160000064 C            SA6    C.PACK      SET *EXTERNAL PACKET* STATUS                DBGPHCT    61
            12  76710                             SX7    B1          SET *EXTERNAL PACKET* STATUS                DBGPHCT    62
                     66200                        SB2    B0          SET *EXTERNAL PACKET* STATUS                DBGPHCT    63
                          5160000007 C            SA6    DBGPHCT     SET *EXTERNAL PACKET* STATUS                FCC1852    14
            13  5170000031 C                      SA7    D.PACK                                                  DBGPHCT    64
                          0100000435 +            RJ     MIA         MISC INIT A                                 DBGPHCT    65
                                                                                                                 DBGPHCT    66
                                        *         MAIN PROCESSING LOOP.                                          DBGPHCT    67
                                                                                                                 DBGPHCT    68
            14  5110001164 +             EXP2     SA1    =20H     DEBUG PACKET                                   DBGPHCT    69
                          54211                   SA2    A1+B1                                                   DBGPHCT    70
                               10611              BX6    X1                                                      DBGPHCT    71
            15  22702                             LX7    X2                                                      DBGPHCT    72
                     5160000000 X                 SA6    =XTL.PTYP   *DEBUG PACKET* TO TITLE LINE                DBGPHCT    73
                               54761              SA7    A6+B1                                                   DBGPHCT    74
            16  5120000013                        SA2    SYMEND                                                  DBGPHCT    75
                          0100000412 +            RJ     DTABLE      SET UP DEBUG TABLES                         DBGPHCT    76
            17  0460000133 +                      ZR     B6,EXP81    IF NO ROOM FOR TABLES                       DBGPHCT    77
                          5110000045 C            SA1    SUCCESS                                                 DBGPHCT    78
            20  0301000022 +                      ZR     X1,EXP3     IF NO DEBUG INFO ON DISK                    DBGPHCT    79
                          5110001166 +            CALLF  BUGPRO      SET UP DRL AND DVL                          DBGPHCT    80
            22  0100000503 +             EXP3     RJ     SNS         SCAN NEXT (FIRST) STATEMENT                 DBGPHCT    81
            23  5120000000 X                      SA2    =XFWAWORK                                               DBGPHCT    82
                          5130000057 C            SA3    LNGIND                                                  DBGPHCT    83
            24  7140777776 C                      SX4    DEBUG-1                                                 DBGPHCT    84
                          37624                   IX6    X2-X4                                                   DBGPHCT    85
                               36763              IX7    X6+X3                                                   DBGPHCT    86
            25  5160000024 C                      SA6    SDBGIND     FWA DEBUG INDEX = (FWAWORK) REL TO //       DBGPHCT    87
                          5170000004 C            SA7    D.SAREA     AREA LIST STARTS AFTER INDEX                DBGPHCT    88
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     8
        DBGEPKT - DEBUG EXTERNAL PACKET PROCESSING CONTROLLER         DBGEPKT             DBGEPKT 
  
            26  5170000005 C                      SA7    D.EAREA                                                 DBGPHCT    89
                          0476000037 +            EQ     B7,B6,EXP4  IF KEYWORD *DEBUG*                          DBGPHCT    90
            27  0420000147 +                      ZR     B2,EXP91    IF NOT A DEBUG STATEMENT                    DBGPHCT    91
                          0100000000 X            DBGERR (C$ DEBUG STATEMENT MISSING OR BAD AT START OF PACKET.) DBGPHCT    92
            32  0720000022 +                      MI     B2,EXP3     IF BAD DEBUG STATEMENT, GET NEXT ONE        DBGPHCT    93
                          5110000007 C            SA1    SPIDER      (X1) = DUMMY ROUTINE NAME                   DBGPHCT    94
            33  5120000001 C                      SA2    D.EDRL                                                  DBGPHCT    95
                          76610                   SX6    B1                                                      DBGPHCT    96
                               43701              MX7    1                                                       DBGPHCT    97
            34  5160000006 C                      SA6    ALLROU      SET *APPLIES TO ALL ROUTINES*               DBGPHCT    98
                          5272000000 C            SA7    DEBUG+X2    2ND WD OF DRL ENTRY - SET BIT 59 *ACTIVE*   DBGPHCT    99
            35  10611                             BX6    X1                                                      DBGPHCT   100
                     55671                        SA6    A7-B1       1ST WD OF DRL ENTRY - ENTER DUMMY ROUTINE   DBGPHCT   101
                          7272000002              SX7    X2+2                                                    DBGPHCT   102
            36  54720                             SA7    A2          UPDATE POINTER TO NEXT AVAILABLE ENTRY      DBGPHCT   103
            37  5110000005 C             EXP4     SA1    D.EAREA                                                 DBGPHCT   104
                          5120000000 X            SA2    =XFWAWORK                                               DBGPHCT   105
            40  73610                             SX6    X1                                                      DBGPHCT   106
                     10722                        BX7    X2                                                      DBGPHCT   107
                          5160000016 C            SA6    D.NESTW     NEXT AVAILABLE OPTIONS LIST WORD            DBGPHCT   108
            41  5170000000 +                      SA7    FWASAVE     SAVE (FWAWORK)                              DBGPHCT   109
                          7160000004              SX6    4                                                       DBGPHCT   110
            42  5160000056 C                      SA6    D.NEST      SET TO 1ST POSITION IN OPTIONS LIST WORD    DBGPHCT   111
                          0100000000 X            CALL   DSL         DUMP SAVED LINES                            DBGPHCT   112
                                                                                                                 DBGPHCT   113
                                        *         PACKET PROCESSING LOOP.                                        DBGPHCT   114
                                                                                                                 DBGPHCT   115
            43  0100000463 +             EXP11    RJ     POINTRS     SET POINTERS FOR FORTRAN ROUTINES           DBGPHCT   116
            44  5110001166 +                      CALLF  BUGCON      CONVERT STATEMENT TO TABLE FORM             DBGPHCT   117
            45  0100000402 +             EXP12    RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION          FEAT121L  663
            46  5120000024                        SA2    TYPE                                                    DBGPHCT   119
                          0311000052 +            NZ     X1,EXP12A   IF NEXT STATEMENT IS C$                     FCC1469X   30
            47  5110000000 X                      SA1    =XDFLAG                                                 FCC1469X   31
                          21101                   AX1    1                                                       FCC1469X   32
            50  0301000065 +                      ZR     X1,EXP21    IF INPUT FILE NOT EXTERNAL DEBUG FILE       FCC1469X   33
                          5110000000 X            SA1    CP.CARD                                                 FCC1954     8
            51  0301000065 +                      ZR     X1,EXP21    IF EOS/EOP/EOI                              FCC1954     9
                                                                                                                 FCC1469X   34
            52  6232777726               EXP12A   SB3    X2-41                                                   FCC1469X   35
                          5110000016 C            SA1    D.NESTW     PRESET AREA OR OPTIONS LIST                 DBGPHCT   122
            53  0630000054 +                      PL     B3,EXP13    IF NOT *DEBUG* OR *AREA* STATEMENT          DBGPHCT   123
                          5110000005 C            SA1    D.EAREA                                                 DBGPHCT   124
            54  7261777776 C             EXP13    SX6    DEBUG-1+X1                                              DBGPHCT   125
                          5160000000 X            SA6    =XFWAWORK                                               DBGPHCT   126
            55  0100000503 +             EXP13A   RJ     SNS         SCAN NEXT STATEMENT                         FCC1954    10
            56  0702000043 +                      GT     B2,B0,EXP11 IF A GOOD DEBUG STATEMENT                   FCC1851     8
                          5130000000 X            SA3    =XDFLAG                                                 FCC1954    11
            57  5110000000 X                      SA1    CP.CARD                                                 FCC1954    12
                          21301                   AX3    1                                                       FCC1954    13
            60  0303000045 +                      ZR     X3,EXP12    IF INPUT FILE = MAIN                        FCC1954    14
                          0100000000 X            DBGERR (NON-DEBUG LINE FOUND ON EXTERNAL DEBUG FILE...IGNORED) FCC1954    15
            63  0311000055 +                      NZ     X1,EXP13A   IF NOT EOS/EOP/EOI ON DEBUG FILE            FCC1954    16
                          0321000065 +            PL     X1,EXP21    IF EOS/EOP/EOI                              FCC1954    17
            64  0400000055 +                      EQ     EXP13A      SCAN NEXT STATEMENT                         FCC1954    18
                                                                                                                 DBGPHCT   130
                                        *         NON-DEBUG STATEMENT PENDING.  WRAP UP EXT PACKET PROCESSING.   DBGPHCT   131
                                                                                                                 DBGPHCT   132
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE     9
        DBGEPKT - DEBUG EXTERNAL PACKET PROCESSING CONTROLLER         DBGEPKT             DBGEPKT 
  
            65  7160000000               EXP21    SX6    B0+                                                     DBGPHCT   133
                          5160000032 C            SA6    D.POW       SET *CLEAR PACKET AREA LIST* FLAG           DBGPHCT   134
            66  5110001166 +                      CALLF  BUGCLO      FLUSH PACKET AREA LIST TO DISK              DBGPHCT   135
            67  5110000000 +                      SA1    FWASAVE                                                 DBGPHCT   136
                          10611                   BX6    X1                                                      DBGPHCT   137
            70  5160000000 X                      SA6    =XFWAWORK   RESTORE (FWAWORK)                           DBGPHCT   138
            71  6110000001               EXP22    SB1    1                                                       DBGPHCT   139
                          0100000446 +            RJ     D.RESET     RESTORE TABLE POSITIONS AND TITLE LINE      DBGPHCT   140
            72  5110000000 X                      SA1    =XDFLAG                                                 DBGPHCT   141
                          43773                   MX7    -1                                                      DBGPHCT   142
                               21101              AX1    1                                                       DBGPHCT   143
            73  5170000000 C                      SA7    D.COL       SET *DEBUG PACKET FINISHED* STATUS          DBGPHCT   144
                          0301000112 +            ZR     X1,EXP31    IF INPUT FILE = MAIN                        DBGPHCT   145
                                                                                                                 DBGPHCT   146
                                        *         SWITCH TO MAIN INPUT FILE AND SCAN FOR MORE C$ DEBUG INFO.     DBGPHCT   147
                                                                                                                 DBGPHCT   148
            74  0100000000 X                      CALL   DSL         DUMP SAVED LINES                            DBGPHCT   149
            75  7160000000                        SX6    B0+                                                     DBGPHCT   150
                          5160000000 X            SA6    =XN.LINES   PRESET FOR PAGE EJECT ON NEXT *LISTL* CALL  DBGPHCT   151
            76  5160000000 X                      SA6    =XN.FERR    IGNORE FATAL-TO-EXEC ERRS IN EXTERNAL PKT   DBGPHCT   152
                          7120000000 X            CLOSE  =XF.IN,NR,RCL                                           DBGPHCT   153
           100  5110000000 X                      SA1    =XFV.IN                                                 DBGPHCT   154
                          43052                   MX0    7*6                                                     DBGPHCT   155
                               76710              SX7    B1                                                      DBGPHCT   156
           101  11601                             BX6    X0*X1       EXTRACT MAIN INPUT FILE NAME                DBGPHCT   157
                     73210                        SX2    X1          EXTRACT ADDRESS OF INPUT FET OR FIT         DBGPHCT   158
                          5170000000 X            SA7    =XDFLAG     SET *DEBUG = MAIN* STATUS                   DBGPHCT   159
                                                                                                                 DBGPHCT   160
                                         #RM      IFEQ   CP#RM,0                                                 DBGPHCT   161
           102  12667                             BX6    X6+X7       MERGE CIO COMPLETE BIT                      DBGPHCT   162
                     53620                        SA6    X2          UPDATE INPUT FET                            DBGPHCT   163
                          7120000000 X            SETFIL FILE=(=XF.IN),MODE=RESET      REINITIALIZE FET          DBGPHCT   164
           105  7120000000 X                      OPEN   =XF.IN,READNR                                           DBGPHCT   165
           107  7120000000 X                      READ   =XF.IN      FILL INPUT BUFFER                           DBGPHCT   166
                                         #RM      ELSE                                                           DBGPHCT   167
                                                  STORE  X2,LFN=X6                                               DBGPHCT   168
                                                  OPEN   =XF.IN                                                  DBGPHCT   169
                                         #RM      ENDIF                                                          DBGPHCT   170
                                                                                                                 DBGPHCT   171
           111  0400000014 +                      EQ     EXP2        REPEAT MAIN LOOP FOR MAIN INPUT FILE        DBGPHCT   172
                                                                                                                 DBGPHCT   173
                                        *         NON-DEBUG STATEMENT PENDING FROM MAIN INPUT FILE.              DBGPHCT   174
                                        *         CALL *SCANNER* TO TYPE IT FOR *PH1CTL*.                        DBGPHCT   175
                                                                                                                 DBGPHCT   176
           112  7160000000               EXP31    SX6    B0+                                                     DBGPHCT   177
                          5160000000 X            SA6    =XN.LINES   PRESET FOR PAGE EJECT ON NEXT *LISTL* CALL  DBGPHCT   178
           113  0100000503 +                      RJ     SNS         SCAN NEXT STATEMENT                         DBGPHCT   179
                                                                                                                 DBGPHCT   180
                                        *         TERMINATE EXTERNAL PACKET PROCESSING AND EXIT.                 DBGPHCT   181
                                                                                                                 DBGPHCT   182
           114  5110000062 C             EXP39    SA1    LNGDRL                                                  DBGPHCT   183
                          5120000063 C            SA2    LNGDVL                                                  DBGPHCT   184
           115  5130000057 C                      SA3    LNGIND                                                  DBGPHCT   185
                          5140000044 C            SA4    DISPOW                                                  DBGPHCT   186
           116  5150000043 C                      SA5    RECORD                                                  DBGPHCT   187
                          10611                   BX6    X1                                                      DBGPHCT   188
                               22702              LX7    X2                                                      DBGPHCT   189
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    10
        DBGEPKT - DEBUG EXTERNAL PACKET PROCESSING CONTROLLER         DBGEPKT             DBGEPKT 
  
           117  5160000000 X                      SA6    =XGL.DRL                                                DBGPHCT   190
                          5170000000 X            SA7    =XGL.DVL                                                DBGPHCT   191
           120  20422                             LX4    18                                                      DBGPHCT   192
                     66510                        SB5    B1                                                      DBGPHCT   193
                          10633                   BX6    X3                                                      DBGPHCT   194
                               36745              IX7    X4+X5                                                   DBGPHCT   195
           121  5160000000 X                      SA6    =XGL.IND                                                DBGPHCT   196
                          5170000000 X            SA7    =XLASTREC                                               DBGPHCT   197
           122  43673                             MX6    -1                                                      DBGPHCT   198
                     76710                        SX7    B1                                                      DBGPHCT   199
                          5160000000 X            SA6    =XDFLAG     SET *EXT PACKET ILLEGAL* STATUS             DBGPHCT   200
           123  5170000113 C                      SA7    INDEXNO                                                 DBGPHCT   201
                          5110000024              SA1    TYPE                                                    DBGPHCT   202
           124  43700                             MX7    0                                                       FCC1852    15
                     63710                        SB7    X1          (B7) = STATEMENT TYPE CODE                  DBGPHCT   203
                          5170000007 C            SA7    DBGPHCT     CLEAR *EXTERNAL PACKET* STATUS              FCC1852    16
           125  0400000001 +                      EQ     EXIT.                                                   DBGPHCT   204
                                                                                                                 DBGPHCT   205
                                                                                                                 DBGPHCT   206
                                        **        ABNORMAL EXTERNAL PACKET PROCESSING.                           DBGPHCT   207
                                                                                                                 DBGPHCT   208
                                        *         HERE WHEN *DBGPHCT* IS RE-ENTERED BETWEEN PROGRAM UNITS.       DBGPHCT   209
                                        *         CHECK FOR SPURIOUS EXTERNAL PACKET.                            DBGPHCT   210
                                                                                                                 DBGPHCT   211
           126  0100000503 +             EXP71    RJ     SNS         SCAN NEXT (FIRST) STATEMENT                 DBGPHCT   212
           127  0420000001 +                      ZR     B2,EXIT.    IF NOT DEBUG STATEMENT                      DBGPHCT   213
                          0100000000 X            DBGERR (AN EXTERNAL PACKET IS ILLEGAL BETWEEN PROGRAM UNITS.)  DBGPHCT   214
           132  0400000126 +                      EQ     EXP71       SCAN OFF C$ STATEMENTS                      DBGPHCT   215
                                                                                                                 DBGPHCT   216
                                        *         HERE IF NO ROOM FOR DEBUG TABLES.                              DBGPHCT   217
                                                                                                                 DBGPHCT   218
           133  5110000045 C             EXP81    SA1    SUCCESS                                                 DBGPHCT   219
                          0311000140 +            NZ     X1,EXP82    IF DEBUG INFO ON DISK                       DBGPHCT   220
           134  76610                             SX6    B1                                                      DBGPHCT   221
                     54610                        SA6    A1                                                      DBGPHCT   222
                          0100000653 +            RJ     WRTMS1                                                  DBGPHCT   223
           135  5110000024 C                      SA1    SDBGIND                                                 DBGPHCT   224
                          7160000000              SX6    B0+                                                     DBGPHCT   225
           136  5261000000 C                      SA6    DEBUG+X1    CLEAR DRL                                   DBGPHCT   226
                          46000                   NO                                                             DBGPHCT   227
                               54661              SA6    A6+B1       CLEAR DVL                                   DBGPHCT   228
           137  0100000717 +                      RJ     WRTMS4                                                  DBGPHCT   229
           140  0100000503 +             EXP82    RJ     SNS         SCAN NEXT (FIRST) STATEMENT                 DBGPHCT   230
           141  0420000147 +                      ZR     B2,EXP91    IF FIRST STATEMENT NOT C$                   DBGPHCT   231
           142  0720000144 +             EXP83    MI     B2,EXP84    IF BAD DEBUG STATEMENT                      DBGPHCT   232
                          0100000463 +            RJ     POINTRS     SET POINTERS FOR FORTRAN ROUTINES           DBGPHCT   233
           143  5110001166 +                      CALLF  BUGCON      CONVERT STATEMENT TO TABLE FORM             DBGPHCT   234
           144  0100000402 +             EXP84    RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION          FEAT121L  664
           145  0301000071 +                      ZR     X1,EXP22    IF NEXT STATEMENT NOT C$                    DBGPHCT   237
                          0100000503 +            RJ     SNS         SCAN NEXT STATEMENT                         DBGPHCT   238
           146  0400000142 +                      EQ     EXP83                                                   DBGPHCT   239
                                                                                                                 DBGPHCT   240
                                        *         HERE IF FIRST STATEMENT IS NON-DEBUG.                          DBGPHCT   241
                                                                                                                 DBGPHCT   242
           147  5110000000 X             EXP91    SA1    =XDFLAG                                                 DBGPHCT   243
                          23211                   AX2    X1,B1                                                   DBGPHCT   244
           150  0302000154 +                      ZR     X2,EXP92    IF INPUT FILE = MAIN                        DBGPHCT   245
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    11
        DBGEPKT - DEBUG EXTERNAL PACKET PROCESSING CONTROLLER         DBGEPKT             DBGEPKT 
  
                          0100000000 X            DBGERR (NO DEBUG INFORMATION FOUND ON EXTERNAL DEBUG FILE.)    DBGPHCT   246
           153  0400000071 +                      EQ     EXP22                                                   DBGPHCT   247
                                                                                                                 DBGPHCT   248
           154  0100000446 +             EXP92    RJ     D.RESET     RESTORE TABLE POSITIONS                     DBGPHCT   249
           155  0400000114 +                      EQ     EXP39       TERMINATE                                   DBGPHCT   250
  
  
  
  
                                                  QUAL   *                                                       DBGPHCT   252
                                                                                                                 DBGPHCT   253
                                   1 +   DBGEPKT  =      /DBGEPKT/DBGEPKT                                        DBGPHCT   254
                                                  ENTRY  DBGEPKT                                                 DBGPHCT   255
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    12
         DBGIPKT - INTERNAL PACKET PROCESSING 
  
                                        ***                                                                      DBGPHCT   257
                                        *         DBGIPKT - CONTROLLER FOR DEBUG OPTION INTERNAL PACKET          DBGPHCT   258
                                        *         PROCESSING                                                     DBGPHCT   259
                                        *                                                                        DBGPHCT   260
           156  00000000000000000000     DBGIPKT  ENTRY.                                                         DBGPHCT   261
           157  13666                             BX6    X6-X6                                                   DBGPHCT   265
                     22706                        LX7    X6                                                      DBGPHCT   266
                          5160000045 C            SA6    SUCCESS      SET TO 'NOTHING ON DISK'                   DBGPHCT   267
           160  5170000030 C                      SA7    D.NOGO      SET TO *PROCESS DEBUG STATEMENTS*           FCC0618    10
                          0100000402 +            RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION          FEAT121L  665
           161  5120000050 C                      SA2    NOPROG                                                  FEAT121L  666
                          0301000256 +            ZR     X1,D.PI22    FIRST STATEMENT NOT DEBUG                  DBGPHCT   271
           162  0312000256 +                      NZ     X2,D.PI22   IF NO PROGRAM LINE WAS FOUND AND CALLING    FEAT121L  667
                                        *                              *DBGIPKT* ONLY TO SET UP FOR FURTHER      FEAT121L  668
                                        *                              PROCESSING                                FEAT121L  669
                          66210                   SB2    B1          SET *INTERNAL PACKET* STATUS                DBGPHCT   273
           163  0100000435 +                      RJ     MIA         MISC INIT A                                 DBGPHCT   274
           164  5120000000 X                      SA2    =XLWAWORK                                               DBGPHCT   275
                          0100000412 +            RJ     DTABLE       SET UP DEBUG TABLES                        DBGPHCT   276
           165  0460000200 +                      ZR     B6,D.PI4    IF NO ROOM FOR TABLES                       DBGPHCT   277
                          0100000463 +            RJ     POINTRS      SET UP FORTRAN POINTERS                    DBGPHCT   278
           166  5130000032                        SA3    SELIST                                                  DBGPHCT   279
                          7160777776              SX6    -1                                                      DBGPHCT   280
           167  5160000045 C                      SA6    SUCCESS      SET TO 'INFORMATION ON DISK'               DBGPHCT   281
                          37714                   IX7    X1-X4                                                   DBGPHCT   282
                               54710              SA7    A1           LWAWORK=LWAWORK-LNGDRL-LNGDVL-2            DBGPHCT   283
           170  37634                             IX6    X3-X4                                                   DBGPHCT   284
                     54630                        SA6    A3           SELIST=SELIST+LNGDRL-LNGDVL-2              DBGPHCT   285
                          5110001166 +            CALLF  BUGPRO,B1   SET UP DRL AND DVL                          DBGPHCT   286
                          7170000004              SX7    4                                                       DBGPHCT   287
           173  5110000005 C                      SA1    D.EAREA                                                 DBGPHCT   288
                          5170000056 C            SA7    D.NEST                                                  DBGPHCT   289
           174  43673                             MX6    -1                                                      DBGPHCT   290
                     10711                        BX7    X1                                                      DBGPHCT   291
                          5160000031 C            SA6    D.PACK       SET TO 'INTERNAL PACKET'                   DBGPHCT   292
           175  5170000016 C                      SA7    D.NESTW      SET START OF OPTIONS LIST FOR BUGCON       DBGPHCT   293
                          7160000011              SX6    1RI                                                     DBGPHCT   294
           176  5110000000 X                      SA1    =XFWAWORK                                               DBGPHCT   295
                          5160000064 C            SA6    C.PACK       SET TO 'INTERNAL PACKET'                   DBGPHCT   296
           177  10711                             BX7    X1                                                      DBGPHCT   297
                     5170000000 +                 SA7    FWASAVE      SAVE FWAWORK                               DBGPHCT   298
                                                                                                                 DBGPHCT   299
                                        *         LOOK FOR C$  DEBUG AS FIRST CARD OF PACKET                     DBGPHCT   300
                                                                                                                 DBGPHCT   301
           200  0100000503 +             D.PI4    RJ     SNS         SCAN NEXT (FIRST) STATEMENT                 DBGPHCT   302
           201  0620000203 +                      PL     B2,D.PI2    IF NOT BAD DEBUG LINE                       DBGPHCT   303
                          0100000402 +            RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION          FEAT121L  670
           202  0311000200 +                      NZ     X1,D.PI4     TRY AGAIN FOR A C$  DEBUG CARD             DBGPHCT   305
                          0400000230 +            EQ     D.PI45       NO MORE DEBUG CARDS                        DBGPHCT   306
                                                                                                                 DBGPHCT   307
           203  6160000047               D.PI2    SB6    DBGFSTT                                                 DBGPHCT   308
                          0476000223 +            EQ     B7,B6,D.PI247  PROCESS THE C$ DEBUG CARD                DBGPHCT   309
                                                                                                                 DBGPHCT   310
           204  5110000030 C                      SA1    D.NOGO                                                  DBGPHCT   311
                          0100000000 X            DBGERR (C$ DEBUG STATEMENT MISSING OR BAD AT START OF PACKET.) DBGPHCT   312
           207  0311000223 +                      NZ     X1,D.PI247   DO NOT PROCESS DUMMY CARD, BUT             DBGPHCT   313
                                        *                             CHECK CURRENT CARD FOR SYNTAX              DBGPHCT   314
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    13
         DBGIPKT - INTERNAL PACKET PROCESSING 
  
                                                                                                                 DBGPHCT   315
                                        *         PROCESS DUMMY DEBUG CARD                                       DBGPHCT   316
                                                                                                                 DBGPHCT   317
                          5120000012              SA2    SYM1                                                    DBGPHCT   318
           210  43052                             MX0    42                                                      DBGPHCT   319
                     5212777775                   SA1    X2-2         GET ROUTINE NAME                           DBGPHCT   320
           211  5120000001 C                      SA2    D.EDRL                                                  DBGPHCT   321
                          11601                   BX6    X0*X1                                                   DBGPHCT   322
                               43701              MX7    1                                                       DBGPHCT   323
           212  5262777776 C                      SA6    X2+DEBUG-1   ENTER NAME IN DRL                          DBGPHCT   324
                          5076000001              SA7    A6+1         ACTIVATE ROUTINE NAME                      DBGPHCT   325
           213  7262000002                        SX6    X2+2                                                    DBGPHCT   326
                          43700                   MX7    0                                                       DBGPHCT   327
                               54620              SA6    A2           UPDATE END OF DRL                          DBGPHCT   328
           214  5170000061 C                      SA7    AREAFLG      SET TO 'DEBUG STATEMENT PROCESSED LAST'    DBGPHCT   329
                          0400000223 +            EQ     D.PI247      PROCESS THE CURRENT CARD                   DBGPHCT   330
                                                                                                                 DBGPHCT   331
                                        *         MAIN LOOP FOR PROCESSING DEBUG CARDS                           DBGPHCT   332
                                                                                                                 DBGPHCT   333
           215  5120000024               D.PI24   SA2    TYPE                                                    DBGPHCT   334
                          6130000050              SB3    40                                                      DBGPHCT   335
           216  63720                             SB7    X2                                                      DBGPHCT   336
                     5110000005 C                 SA1    D.EAREA      CONTINUE WITH AREA LIST OR OPTIONS LIST    DBGPHCT   337
           217  0637000220 +                      LE     B7,B3,D.PI245  LAST STMT DEBUG OR AREA                  DBGPHCT   338
                          5110000016 C            SA1    D.NESTW      LAST STMT OPTION                           DBGPHCT   339
           220  7261777776 C             D.PI245  SX6    X1+DEBUG-1                                              DBGPHCT   340
                          5160000000 X            SA6    =XFWAWORK                                               DBGPHCT   341
           221  0100000503 +                      RJ     SNS         SCAN NEXT STATEMENT                         DBGPHCT   342
           222  0720000226 +                      MI     B2,D.PI33   IF BAD DEBUG STATEMENT                      DBGPHCT   343
           223  0100000463 +             D.PI247  RJ     POINTRS      SET UP POINTERS FOR FORTRAN ROUTINES       DBGPHCT   344
           224  5110001166 +                      CALLF  BUGCON,B1   CONVERT STATEMENT TO TABLE FORM             DBGPHCT   345
           226  0100000402 +             D.PI33   RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION          FEAT121L  671
           227  0311000215 +                      NZ     X1,D.PI24    GET THE NEXT DEBUG STATEMENT               DBGPHCT   347
                                                                                                                 DBGPHCT   348
                                        *         END LOOP                                                       DBGPHCT   349
                                                                                                                 DBGPHCT   350
           230  5120000045 C             D.PI45   SA2    SUCCESS                                                 DBGPHCT   351
                          0322000256 +            PL     X2,D.PI22    NOTHING ON DISK                            DBGPHCT   352
           231  13666                             BX6    X6-X6                                                   DBGPHCT   353
                     5160000032 C                 SA6    D.POW                                                   DBGPHCT   354
           232  5110001166 +                      CALLF  BUGCLO,B1   FLUSH AREA LISTS TO DISK                    DBGPHCT   355
                          5110000000 +            SA1    FWASAVE                                                 DBGPHCT   356
           234  5120000000 X                      SA2    =XL.DCON                                                DBGPHCT   357
                          7160000003              SX6    3                                                       DBGPHCT   358
           235  36712                             IX7    X1+X2        ADJUST FWAWORK BY LENGTH OF DCON           DBGPHCT   359
                     5160000113 C                 SA6    INDEXNO      INTERNAL PACKET EXISTS                     DBGPHCT   360
           236  5170000000 X                      SA7    =XFWAWORK    RESTORE FWAWORK                            DBGPHCT   361
           237  5120000000 X             D.PI222  SA2    =XLWAWORK                                               DBGPHCT   362
                          7110000144 C            SX1    DEBUG+100                                               FCC0761    24
           240  37321                             IX3    X2-X1                                                   DBGPHCT   364
                     0333000251 +                 NG     X3,D.PI25    NOT ENOUGH ROOM FOR DEBUGGING              DBGPHCT   365
           241  6160777632 C                      SB6    DEBUG-1-100                                             FCC0761    25
                          43600                   MX6    0                                                       FCC0761    26
                               67606              SB6    -B6                                                     DBGPHCT   374
           242  5110000012                        SA1    SYM1                                                    DBGPHCT   375
                          5160000030 C            SA6    D.NOGO       RESET TO 'PROCESS DEBUG STATEMENTS'        DBGPHCT   376
           243  73716                             SX7    X1+B6                                                   DBGPHCT   377
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    14
         DBGIPKT - INTERNAL PACKET PROCESSING 
  
                     5170000017 C                 SA7    D.SFDIT     D.SFDIT = SYM1-DEBUG+1+100                  FCC0761    27
           244  7267777634                        SX6    X7-99                                                   FCC0761    28
                          5160000011 C            SA6    D.SAASI     D.SAASI = SYM1-DEBUG+1+1                    FCC0761    29
                                                                                                                 DBGPHCT   394
                                        *         RESET FLAGS, SET FLAGS TO INTERSPERSED, AND EXIT               DBGPHCT   395
                                                                                                                 DBGPHCT   396
           245  13666                    D.PI27   BX6    X6-X6                                                   DBGPHCT   397
                     5120000057 C                 SA2    LNGIND                                                  DBGPHCT   398
                               76700              SX7    B0                                                      DBGPHCT   399
           246  5160000033 C                      SA6    D.OPFLG      SET TO 'NO OPTIONS TO SEND TO DISK'        DBGPHCT   400
                          5170000031 C            SA7    D.PACK       SET PACKET FLAG TO 'INTERSPERSED'          DBGPHCT   401
           247  5160000036 C                      SA6    D.PADD       SET TO 'INTERSPERSED'                      DBGPHCT   402
                          66510                   SB5    B1                                                      DBGPHCT   403
                               10722              BX7    X2                                                      DBGPHCT   404
           250  5170000000 X                      SA7    =XGL.IND     UPDATE INDEX LENGTH                        DBGPHCT   405
                          0400000156 +            EQ     DBGIPKT      EXIT                                       DBGPHCT   406
                                                                                                                 DBGPHCT   407
                                        *         NOT ENOUGH ROOM TO PROCESS DEBUG INFORMATION                   DBGPHCT   408
                                                                                                                 DBGPHCT   409
           251  5110000030 C             D.PI25   SA1    D.NOGO                                                  DBGPHCT   410
                          0311000245 +            NZ     X1,D.PI27    MESSAGE ALREADY PRINTED                    DBGPHCT   411
           252  43673                             MX6    59                                                      DBGPHCT   412
                     54610                        SA6    A1                                                      DBGPHCT   413
                          0100000000 X            DBGERR (MORE CORE NEEDED FOR DEBUG PROCESSING)                 DBGPHCT   414
           255  0400000245 +                      EQ     D.PI27                                                  DBGPHCT   415
                                                                                                                 DBGPHCT   416
           256  7160000001               D.PI22   SX6    1                                                       DBGPHCT   417
                          5160000113 C            SA6    INDEXNO      NO INTERNAL PACKET INFORMATION             DBGPHCT   418
           257  0400000237 +                      EQ     D.PI222                                                 DBGPHCT   419
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    15
         DBGINT - INTERSPERSED STATEMENT PROCESSING 
  
                                        ***                                                                      DBGPHCT   421
                                        *         DBGINT - INTERSPERSED STATEMENT PROCESSOR                      DBGPHCT   422
                                        *                                                                        DBGPHCT   423
                                                                                                                 DBGPHCT   424
           260  00000000000000000000     DBGINT   ENTRY.                                                         DBGPHCT   425
           261  7170777776                        SX7    -1                                                      DBGPHCT   426
                          5170000114 C            SA7    PHSFLAG      SET PHSFLAG TO PHASE 1                     DBGPHCT   427
                                                                                                                 DBGPHCT   428
           262  0100000503 +             DBGINT8  RJ     SNS         SCAN NEXT STATEMENT                         DBGPHCT   429
           263  0720000275 +                      MI     B2,DBGINT3  IF BAD DEBUG STATEMENT                      DBGPHCT   430
                                                                                                                 DBGPHCT   431
           264  7170000004               DBGINT2  SX7    4                                                       DBGPHCT   432
                          5170000056 C            SA7    D.NEST       SET FIELD POSITION IN OPTIONS LIST         DBGPHCT   433
           265  6110000001                        SB1    1                                                       DBGPHCT   434
                          0100000463 +            RJ     POINTRS                                                 DBGPHCT   435
           266  7276000001                        SX7    X6+1                                                    DBGPHCT   436
                          5160000005 C            SA6    D.EAREA      D.EAREA = D.DOLAST                         DBGPHCT   437
           267  5170000006 C                      SA7    D.OPL       START OF OPTIONS FOR *TURNON*               DBGPHCT   438
                          5170000016 C            SA7    D.NESTW                       AND FOR BUGCON            DBGPHCT   439
           270  5110001166 +                      CALLF  BUGCON       CONVERT STATEMENT TO TABLE FORM            DBGPHCT   440
           271  5110000024                        SA1    TYPE                                                    DBGPHCT   441
                          7120001401              SX2    1401B        IF STMT TYPE .EQ. 39, 40, OR 48            DBGPHCT   442
           272  6221000013                        SB2    X1+11       (DEBUG, AREA OR OFF)                        DBGPHCT   443
                          22322                   LX3    X2,B2                                                   DBGPHCT   444
           273  0333000275 +                      NG     X3,DBGINT3   NO LIST PROCESSING                         DBGPHCT   445
                          5110001166 +            CALLF  TURNON                                                  DBGPHCT   446
           275  0100000402 +             DBGINT3  RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION          FEAT121L  672
           276  0311000262 +                      NZ     X1,DBGINT8   MORE DEBUG STATEMENTS TO PROCESS           DBGPHCT   449
                          43600                   MX6    0                                                       DBGPHCT   450
                               66510              SB5    B1                                                      DBGPHCT   451
           277  5160000114 C                      SA6    PHSFLAG     SET *NOT PHASE 1*                           DBGPHCT   452
                          0400000260 +            EQ     DBGINT      EXIT ...                                    DBGPHCT   453
  
  
  
  
                                        *         ENTRY WHEN A DEBUG CARD FOLLOWS AN UNRECOGNIZED FTN STMT       DBGPHCT   455
                                        *                                                                        DBGPHCT   456
           300  00000000000000000000     DBGINTX  ENTRY.                                                         DBGPHCT   457
           301  5110000300 +                      PLUG   AT=DBGINT,FROM=DBGINTX                                  F2950F4   171
           304  6160000062                        SB6    DBGEXTP                                                 DBGPHCT   459
                          0576000264 +            NE     B7,B6,DBGINT2     IF ALREADY TYPED                      DBGPHCT   460
           305  0100000623 +                      RJ     GETTYPE                                                 DBGPHCT   461
           306  0570000264 +                      NZ     B7,DBGINT2  IF TYPE OK                                  DBGPHCT   462
                          0400000275 +            EQ     DBGINT3     ERROR                                       DBGPHCT   463
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    16
        DEBUG OPTION PROCESSOR FOR PASS 1, PHASE 2                    DOP 
  
                                        **        DOP - DEBUG OPTION PROCESSOR FOR PASS 1, PHASE 2.              DBGPHCT   465
                                        *                                                                        DBGPHCT   466
                                        *                TASKS PERFORMED --                                      DBGPHCT   467
                                        *         1.  SETS (D.ON) .LT. 0 AND CALLS *BUGACT* TO TURN OFF ALL      DBGPHCT   468
                                        *         OPTIONS DESIGNATED TO END AT THE STATEMENT JUST PROCESSED.     DBGPHCT   469
                                        *                                                                        DBGPHCT   470
                                        *         2.  CALLS *SCANNER* TO TYPE AND TRANSFORM THE NEXT STATEMENT   DBGPHCT   471
                                        *         TO E-LIST.                                                     DBGPHCT   472
                                        *                                                                        DBGPHCT   473
                                        *         3.  SETS (D.ON) = 0 AND CALLS *BUGACT* TO TURN ON ALL OPTIONS  DBGPHCT   474
                                        *         DESIGNATED TO BEGIN AT THE NEW STATEMENT.                      DBGPHCT   475
                                        *                                                                        DBGPHCT   476
                                        *         4.  IF THE NEW STATEMENT IS A DEBUG OPTION (ACTION), CALLS     DBGPHCT   477
                                        *         *BUGCON* TO CONVERT IT TO OPTIONS LIST FORM.  THEN CALLS       DBGPHCT   478
                                        *         *TURNON* TO ACTIVATE THE NEW OPTION.                           DBGPHCT   479
                                        *                                                                        DBGPHCT   480
                                        *         ENTRY  NONE                                                    DBGPHCT   481
                                        *                                                                        DBGPHCT   482
                                        *         EXIT   (B1) = 1                                                DBGPHCT   483
                                        *                                                                        DBGPHCT   484
                                        *         USES   ALL                                                     DBGPHCT   485
                                        *                                                                        DBGPHCT   486
                                        *         CALLS  ADEXTS, BUGACT, BUGCON, CALLF, POINTRS, SNS, TURNON,    DBGPHCT   487
                                        *                WRM                                                     DBGPHCT   488
                                                                                                                 DBGPHCT   489
                                                                                                                 DBGPHCT   490
                                                  QUAL   DOP                                                     DBGPHCT   491
                                                                                                                 DBGPHCT   492
           307  0400400307 +             DOP      SUBR               ** ENTRY/EXIT **                            DBGPHCT   493
                                                                                                                 DBGPHCT   494
                                        *         ISSUE *RJ FTNERR.* TO R-LIST IF A FATAL-TO-EXECUTION ERROR     DBGPHCT   495
                                        *         WAS FOUND IN THE LAST STATEMENT.                               DBGPHCT   496
                                                                                                                 DBGPHCT   497
           310  5110000037 C                      SA1    FEFLAG                                                  DBGPHCT   498
                          5120000004 C            SA2    NOGOFLG                                                 DBGPHCT   499
           311  0301000320 +                      ZR     X1,DOP2     IF NO FATAL ERROR IN LAST STMT              DBGPHCT   500
                          0312000320 +            NZ     X2,DOP2     IF C$-NOGO ACTIVE                           DBGPHCT   501
           312  5110001223 +                      ADEXTS =8RFTNERR.                                              DBGPHCT   502
           315  5110000037                        SA1    DUKE        (X1) = LINE NR OF LAST INIT LINE            DBGPHCT   503
                          76610                   SX6    B1          (X6) = SYMTAB ORDINAL OF *FTNERR.*          DBGPHCT   504
                               10711              BX7    X1                                                      DBGPHCT   505
           316  5160000400 +                      SA6    DOPB                                                    DBGPHCT   506
                          5170000401 +            SA7    DOPB+1                                                  DBGPHCT   507
           317  6170000377 +                      WRM    DOPA        MACRO TO R-LIST                             DBGPHCT   508
                                                                                                                 DBGPHCT   509
                                        *         TURN OFF ALL OPTIONS.                                          DBGPHCT   510
                                                                                                                 DBGPHCT   511
           320  5110000000 X             DOP2     SA1    =XFSTEX                                                 DBGPHCT   512
                          5120000060 C            SA2    NOACT                                                   DBGPHCT   513
           321  6110000001                        SB1    1                                                       DBGPHCT   514
                          0301000347 +            ZR     X1,DOP11    IF FIRST EXECUTABLE STMT NOT FOUND YET      DBGPHCT   515
           322  0312000347 +                      NZ     X2,DOP11    IF NO DEBUG PACKET INFORMATION              DBGPHCT   516
                          7161000000              SX6    B1+                                                     DBGPHCT   517
           323  5160000034 C                      SA6    D.ON        SET *TURN OPTIONS OFF*                      DBGPHCT   518
                          0100000463 +            RJ     POINTRS                                                 DBGPHCT   519
           324  5110001166 +                      CALLF  BUGACT      DEACTIVATE ALL OPTIONS                      DBGPHCT   520
                                                                                                                 DBGPHCT   521
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    17
        DEBUG OPTION PROCESSOR FOR PASS 1, PHASE 2                    DOP                 DOP 
  
                                        *         TURN OPTIONS OFF/ON FOR COMMENT AND CONTINUATION LINES         DBGPHCT   522
                                        *         SCANNED SINCE INITIAL LINE OF LAST STATEMENT.                  DBGPHCT   523
                                                                                                                 DBGPHCT   524
           325  5110000037                        SA1    DUKE        (X1) = LINE NR OF LAST INITIAL LINE         DBGPHCT   525
                          5120000000 X            SA2    =XDUKE1     (X2) = LINE NR OF NEXT INITIAL LINE         DBGPHCT   526
           326  6110000001                        SB1    1                                                       DBGPHCT   527
                          63211                   SB2    X1+B1                                                   DBGPHCT   528
                               63320              SB3    X2                                                      DBGPHCT   529
           327  0623000347 +                      GE     B2,B3,DOP11 IF NO INTERVENING COMMENT OR CONTIN LINES   DBGPHCT   530
                          7160000000              SX6    B0+                                                     DBGPHCT   531
           330  5160000034 C                      SA6    D.ON        SET *TURN OPTIONS ON*                       DBGPHCT   532
                          5160000112 C            SA6    SCNUPDT                                                 DBGPHCT   533
           331  5160000054 C                      SA6    D.LABEL     NO LABEL POSSIBLE ON COMMENT OR CONTIN      DBGPHCT   534
           332  7160000000               DOP3     SX6    B0+                                                     DBGPHCT   535
                          5160000400 +            SA6    DOPB        INITIALIZE LOOP COUNTER                     DBGPHCT   536
           333  5110000400 +             DOP4     SA1    DOPB                                                    DBGPHCT   537
                          5120000037              SA2    DUKE        (X2) = LAST INITIAL LINE NR                 DBGPHCT   538
           334  5130000000 X                      SA3    =XDUKE1     (X3) = NEXT INITIAL LINE NR                 DBGPHCT   539
                          73611                   SX6    X1+B1       LOOP COUNT + 1                              DBGPHCT   540
                               36726              IX7    X2+X6                                                   DBGPHCT   541
           335  22116                             LX1    X6,B1       2 * LOOP COUNT                              DBGPHCT   542
                     37273                        IX2    X7-X3                                                   DBGPHCT   543
                          5130000111 C            SA3    COUNTUP     (X3) = NR OF SAVED UPDATE ID TABLE ENTRIES  DBGPHCT   544
           336  0322000345 +                      PL     X2,DOP6     IF ALL CONTIN AND COMMENTS PROCESSED        DBGPHCT   545
                          54610                   SA6    A1                                                      DBGPHCT   546
                               37331              IX3    X3-X1                                                   DBGPHCT   547
           337  5170000053 C                      SA7    D.DUKE1     LINE NR FOR OPTIONS PROCESSING              DBGPHCT   548
                          5211000063 C            SA1    UPDTTBL-2+X1                                            DBGPHCT   549
           340  5021000001                        SA2    A1+1                                                    DBGPHCT   550
                          10611                   BX6    X1                                                      DBGPHCT   551
                               22702              LX7    X2                                                      DBGPHCT   552
           341  0323000342 +                      PL     X3,DOP5     IF NOT PAST END OF SAVED UPDATE ID TABLE    DBGPHCT   553
                          43600                   MX6    0                                                       DBGPHCT   554
                               76700              SX7    B0                                                      DBGPHCT   555
           342  5160000051 C             DOP5     SA6    D.CURUD     CURRENT UPDATE ID FOR OPTIONS PROCESSING    DBGPHCT   556
                          5076000001              SA7    A6+1                                                    DBGPHCT   557
           343  5110001166 +                      CALLF  BUGACT      ACTIVATE OR DEACTIVATE OPTIONS              DBGPHCT   558
           344  6110000001                        SB1    1                                                       DBGPHCT   559
                          0400000333 +            EQ     DOP4        LOOP FOR NEXT COMMENT OR CONTIN LINE        DBGPHCT   560
                                                                                                                 DBGPHCT   561
           345  5110000034 C             DOP6     SA1    D.ON                                                    DBGPHCT   562
                          43601                   MX6    1                                                       DBGPHCT   563
                               54610              SA6    A1          SET *TURN OPTIONS OFF*                      DBGPHCT   564
           346  0301000332 +                      ZR     X1,DOP3     IF LAST CYCLE TURNED OPTIONS ON             DBGPHCT   565
                                                                                                                 DBGPHCT   566
                                        *         PROCESS NEXT STATEMENT.                                        DBGPHCT   567
                                                                                                                 DBGPHCT   568
           347  0100000402 +             DOP11    RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION          FEAT121L  673
           350  0301000370 +                      ZR     X1,DOP14    IF NEXT STATEMENT NOT C$                    DBGPHCT   570
                                                                                                                 DBGPHCT   571
                                        *         PROCESS NEW C$ STATEMENT.                                      DBGPHCT   572
                                                                                                                 DBGPHCT   573
                          0100000503 +            RJ     SNS         SCAN NEXT STATAMENT                         DBGPHCT   574
           351  5110000060 C             DOP12    SA1    NOACT                                                   DBGPHCT   575
                          7160000000              SX6    B0+                                                     DBGPHCT   576
           352  0311000355 +                      NZ     X1,DOP13    IF NO DEBUG PACKET INFORMATION              DBGPHCT   577
                          5160000034 C            SA6    D.ON        SET *TURN OPTIONS ON*                       DBGPHCT   578
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    18
        DEBUG OPTION PROCESSOR FOR PASS 1, PHASE 2                    DOP                 DOP 
  
           353  0100000463 +                      RJ     POINTRS                                                 DBGPHCT   579
           354  5110001166 +                      CALLF  BUGACT      ACTIVATE OPTIONS                            DBGPHCT   580
           355  5110000024               DOP13    SA1    TYPE                                                    DBGPHCT   581
                          6221777726              SB2    X1-41                                                   DBGPHCT   582
           356  0720000320 +                      MI     B2,DOP2     IF NOT AN ACTION DEBUG STATEMENT            DBGPHCT   583
                          7160000004              SX6    4                                                       DBGPHCT   584
           357  5160000056 C                      SA6    D.NEST                                                  DBGPHCT   585
                          0100000463 +            RJ     POINTRS                                                 DBGPHCT   586
           360  5110000027 C                      SA1    D.DOLAST                                                DBGPHCT   587
                          73611                   SX6    X1+B1                                                   DBGPHCT   588
                               10711              BX7    X1                                                      DBGPHCT   589
           361  5160000016 C                      SA6    D.NESTW                                                 DBGPHCT   590
                          5170000005 C            SA7    D.EAREA                                                 DBGPHCT   591
           362  5160000006 C                      SA6    D.OPL                                                   DBGPHCT   592
                          5110001166 +            CALLF  BUGCON      POST NEW STMT INFO TO DEBUG TABLES          DBGPHCT   593
           364  5110000024                        SA1    TYPE                                                    DBGPHCT   594
                          6221777717              SB2    X1-48                                                   DBGPHCT   595
           365  0420000320 +                      ZR     B2,DOP2     IF *OFF* STATEMENT                          DBGPHCT   596
                          5110001166 +            CALLF  TURNON      SET NEW OPTION STATUS *ON*                  DBGPHCT   597
           367  0400000320 +                      EQ     DOP2                                                    DBGPHCT   598
                                                                                                                 DBGPHCT   599
                                        *         PROCESS NEW NON-C$ STATEMENT.                                  DBGPHCT   600
                                                                                                                 DBGPHCT   601
           370  0100000503 +             DOP14    RJ     SNS         SCAN NEXT STATEMENT                         DBGPHCT   602
           371  0520000351 +                      NZ     B2,DOP12    IF IT WAS C$ STMT (PROBABLE FTN BUG)        DBGPHCT   603
                          5110000000 X            SA1    =XFSTEX                                                 DBGPHCT   604
           372  0301000307 +                      ZR     X1,EXIT.    IF FIRST EXECUTABLE STMT NOT FOUND YET      DBGPHCT   605
                          5120000060 C            SA2    NOACT                                                   DBGPHCT   606
           373  0312000307 +                      NZ     X2,EXIT.    IF NO DEBUG PACKET INFORMATION              DBGPHCT   607
                          7160000000              SX6    B0+                                                     DBGPHCT   608
           374  5160000034 C                      SA6    D.ON        SET *TURN OPTIONS ON*                       DBGPHCT   609
                          0100000463 +            RJ     POINTRS                                                 DBGPHCT   610
           375  5110001166 +                      CALLF  BUGACT                                                  DBGPHCT   611
           376  6110000001                        SB1    1                                                       DBGPHCT   612
                          0400000307 +            EQ     EXIT.                                                   DBGPHCT   613
                                                                                                                 DBGPHCT   614
                                                                                                                 DBGPHCT   615
                                                                                                                 DBGPHCT   616
                                 122     RJ60     =      122B        *RJ* R-LIST MACRO NUMBER                    DBGPHCT   617
           377  16550000020000000000     DOPA     RMHDR  RJ60,2      MACRO SKELETON WORD 1                       DBGPHCT   618
           400                     2     DOPB     BSSZ   2           MACRO WORDS 2 AND 3  .. ALSO SCRATCH        DBGPHCT   619
  
  
  
  
                                                  QUAL   *                                                       DBGPHCT   621
                                                                                                                 DBGPHCT   622
                                 307 +   DOP      =      /DOP/DOP                                                DBGPHCT   623
                                                  ENTRY  DOP                                                     DBGPHCT   624
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    19
         SUBROUTINES                                                  DLO 
  
                                        **        DLO - DEBUG LIST OPTION CHECK.                                 FEAT121L  675
                                        *                                                                        FEAT121L  676
                                        *                CALL *PLO* TO CHECK TO SEE IF NEXT STATEMENT IS A       FEAT121L  677
                                        *         C/-LIST DIRECTIVE AND IF IT IS, TO PROCESS IT. THIS SUBROUTINE FEAT121L  678
                                        *         IS NECESSARY SO THAT A C/-LIST DIRECTIVE DOES NOT BREAK A      FEAT121L  679
                                        *         DEBUG PACKET.                                                  FEAT121L  680
                                        *                                                                        FEAT121L  681
                                        *                                                                        FEAT121L  682
                                        *         ENTRY  NONE                                                    FEAT121L  683
                                        *                                                                        FEAT121L  684
                                        *         EXIT   (X1) = .ZR. IF NEXT STATEMENT IS NOT C$-DEBUG           FEAT121L  685
                                        *                     = .NZ. IF NEXT STATEMENT IS C$-DEBUG               FEAT121L  686
                                        *                (B1) = 1                                                FEAT121L  687
                                        *                                                                        FEAT121L  688
                                        *         USES   ALL                                                     FEAT121L  689
                                        *                                                                        FEAT121L  690
                                        *         CALLS  PLO (SCANNER)                                           FEAT121L  691
                                                                                                                 FEAT121L  692
                                                                                                                 FEAT121L  693
           402  0400400402 +             DLO      SUBR               ** ENTRY/EXIT **                            FEAT121L  694
           403  0100000000 X                      CALL   PLO         PROCESS C/-LIST OPTION                      FEAT121L  695
           404  5110000001 C                      SA1    C$STMT                                                  FEAT121L  696
                          6110000001              SB1    1                                                       FEAT121L  697
           405  0400000402 +                      EQ     EXIT.                                                   FEAT121L  698
  
  
  
  
                                        ***                                                                      DBGPHCT   626
                                        *         DTABLE - SET UP TABLES FOR DEBUG PACKET PROCESSING             DBGPHCT   627
                                        *                                                                        DBGPHCT   628
                                        *         CALLING SEQUENCE                                               DBGPHCT   629
                                        *         ENTRY     X2 = START OF TABLES TO BE MOVED SO THAT DEBUG       DBGPHCT   630
                                        *                        TABLES CAN BE BUILT                             DBGPHCT   631
                                        *                        FOR EXTERNAL PACKET - SYMEND                    DBGPHCT   632
                                        *                        FOR INTERNAL PACKET - LWAWORK                   DBGPHCT   633
                                        *         EXIT   B6 = 0, IF NO ROOM FOR DEBUG TABLES                     DBGPHCT   634
                                        *                   B6 = 1, ELSE                                         DBGPHCT   635
                                        *                   X4 = LNGDVL + LNGDRL + 2                             DBGPHCT   636
                                        *                                                                        DBGPHCT   637
                                                                                                                 DBGPHCT   638
           406  5110000030 C             DTABLEX  SA1    D.NOGO       SET D.NOGO TO 'DO NOT PROCESS STMTS'       DBGPHCT   639
                          66600                   SB6    B0           SET FLAG TO 'NO ROOM'                      DBGPHCT   640
                               54610              SA6    A1                SET NOT ENUF ROOM FLAG                DBGPHCT   641
           407  0311000412 +                      NZ     X1,DTABLE   IF ERROR MESSAGE ALREADY ISSUED             DBGPHCT   642
                          0100000000 X            DBGERR   (MORE CORE NEEDED FOR DEBUG MODE)                     DBGPHCT   643
                                                                                                                 DBGPHCT   644
           412  0400400412 +             DTABLE   EQ     *+4S15      ** ENTRY/EXIT **                            FCCT006X   24
           413  7110000765 C                      SX1    DEBUG+501                                               DBGPHCT   646
                          37621                   IX6    X2-X1                                                   DBGPHCT   647
           414  0336000406 +                      NG     X6,DTABLEX   IF .LT. 500 WORDS AVAILABLE                DBGPHCT   648
                                                                                                                 DBGPHCT   649
                                        *         MOVE SYMTAB AND ELIST FOR DEBUG TABLES                         DBGPHCT   650
                                                                                                                 DBGPHCT   651
                          5130000012              SA3    SYM1                                                    DBGPHCT   652
           415  5140000062 C                      SA4    LNGDRL                                                  DBGPHCT   653
                          37532                   IX5    X3-X2                                                   DBGPHCT   654
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    20
         SUBROUTINES                                                  DTABLE
  
           416  7215000001                        SX1    X5+1                                                    DBGPHCT   655
                          5150000063 C            SA5    LNGDVL                                                  DBGPHCT   656
           417  7234000002                        SX3    X4+2                                                    DBGPHCT   657
                          36435                   IX4    X3+X5        LENGTH DRL + LENGTH DVL +2                 DBGPHCT   658
                               37324              IX3    X2-X4                                                   DBGPHCT   659
           420  6110000001                        MOVE   X1,X2,X3                                                DBGPHCT   660
                                                                                                                 DBGPHCT   661
                                        *         RESET POINTERS AND SET DEBUG TABLE POINTERS                    DBGPHCT   662
                                                                                                                 DBGPHCT   663
           421  5110000057 C                      SA1    LNGIND       LENGTH OF INDEX                            DBGPHCT   664
                          5120000012              SA2    SYM1         ADDRESS OF START OF SYMTAB                 DBGPHCT   665
           422  76610                             SX6    B1                                                      DBGPHCT   666
                     36716                        IX7    X1+X6                                                   DBGPHCT   667
                          5160000024 C            SA6    SDBGIND      SDBGIND = 1                                DBGPHCT   668
           423  5170000004 C                      SA7    D.SAREA      AREA LIST                                  DBGPHCT   669
                          7110777776 C            SX1    DEBUG-1                                                 DBGPHCT   670
           424  36626                             IX6    X2+X6                                                   DBGPHCT   671
                     5170000005 C                 SA7    D.EAREA                                                 DBGPHCT   672
           425  5130000062 C                      SA3    LNGDRL       LENGTH DEBUG ROUTINE LIST                  DBGPHCT   673
                          5160000006 C            SA6    DBGRFMP      DBGRFMAP = SYM1+1                          DBGPHCT   674
           426  37761                             IX7    X6-X1                                                   DBGPHCT   675
                     7233000002                   SX3    X3+2                                                    DBGPHCT   676
                               37673              IX6    X7-X3                                                   DBGPHCT   677
           427  5170000012 C                      SA7    D.RFMAP      D.RFMAP = DBGRFMP-DEBUG+1                  DBGPHCT   678
                          5160000000 C            SA6    D.SDRL       DEBUG ROUTINE LIST                         DBGPHCT   679
           430  5160000001 C                      SA6    D.EDRL                                                  DBGPHCT   680
                          5110000063 C            SA1    LNGDVL                                                  DBGPHCT   681
           431  37761                             IX7    X6-X1                                                   DBGPHCT   682
                     5150000013                   SA5    SYMEND                                                  DBGPHCT   683
                               36431              IX4    X3+X1        LNGDRL+LNGDVL+2                            DBGPHCT   684
           432  5170000002 C                      SA7    D.SDVL                                                  DBGPHCT   685
                          66610                   SB6    B1          (B6) = RETURN *ENOUGH ROOM* STATUS          DBGPHCT   686
                               37624              IX6    X2-X4                                                   DBGPHCT   687
           433  5170000003 C                      SA7    D.EDVL                                                  DBGPHCT   688
                          54620                   SA6    A2           SYM1 = SYM1-LNGDVL-LNGDRL-2                DBGPHCT   689
                               37754              IX7    X5-X4                                                   DBGPHCT   690
           434  54750                             SA7    A5           SYMEND = SYMEND-LNGDVL-LNGDRL-2            DBGPHCT   691
                     0400000412 +                 EQ     DTABLE       RETURN                                     DBGPHCT   692
  
  
  
  
                                        **        MIA - MISCELLANEOUS INITIALIZATION, PART A.                    DBGPHCT   694
                                        *                                                                        DBGPHCT   695
                                        *                                                                        DBGPHCT   696
                                        *         ENTRY  (B2) = 0 IF EXTERNAL PACKET, = 1 IF INTERNAL PACKET     DBGPHCT   697
                                        *                                                                        DBGPHCT   698
                                        *         EXIT   (B1) = 1                                                DBGPHCT   699
                                        *                                                                        DBGPHCT   700
                                        *         USES   X - 1, 2, 3, 6, 7                                       DBGPHCT   701
                                        *                A - 1, 2, 3, 6, 7                                       DBGPHCT   702
                                        *                B - 1                                                   DBGPHCT   703
                                        *                                                                        DBGPHCT   704
                                        *         CALLS  NONE                                                    DBGPHCT   705
                                                                                                                 DBGPHCT   706
                                                                                                                 DBGPHCT   707
           435  0400400435 +             MIA      SUBR               ** ENTRY/EXIT **                            DBGPHCT   708
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    21
         SUBROUTINES                                                  MIA 
  
           436  5110000000 X                      SA1    =XGL.IND                                                DBGPHCT   709
                          5120000000 X            SA2    =XGL.DRL                                                DBGPHCT   710
           437  5130000000 X                      SA3    =XLASTREC                                               DBGPHCT   711
                          10611                   BX6    X1                                                      DBGPHCT   712
                               22702              LX7    X2                                                      DBGPHCT   713
           440  5160000057 C                      SA6    LNGIND                                                  DBGPHCT   714
                          5170000062 C            SA7    LNGDRL                                                  DBGPHCT   715
           441  43152                             MX1    42                                                      DBGPHCT   716
                     11713                        BX7    X1*X3                                                   DBGPHCT   717
                          73630                   SX6    X3                                                      DBGPHCT   718
                               20752              LX7    -18                                                     DBGPHCT   719
           442  5160000043 C                      SA6    RECORD                                                  DBGPHCT   720
                          5170000044 C            SA7    DISPOW                                                  DBGPHCT   721
           443  5110000000 X                      SA1    =XGL.DVL                                                DBGPHCT   722
                          73612                   SX6    X1+B2                                                   DBGPHCT   723
           444  5160000063 C                      SA6    LNGDVL                                                  DBGPHCT   724
                          6110000001              SB1    1                                                       DBGPHCT   725
           445  0400000435 +                      EQ     EXIT.                                                   DBGPHCT   726
  
  
  
  
                                        **        D.RESET - RESTORE TABLE POSITIONS AND TITLE LINE.              DBGPHCT   728
                                        *                                                                        DBGPHCT   729
                                        *                MOVES *SYMTAB* AND *E-LIST* TO ORIGINAL POSITIONS.      DBGPHCT   730
                                        *         CLEARS *DEBUG PACKET* FROM TITLE LINE.                         DBGPHCT   731
                                        *                                                                        DBGPHCT   732
                                        *                                                                        DBGPHCT   733
                                        *         ENTRY  (B1) = 1                                                DBGPHCT   734
                                        *                                                                        DBGPHCT   735
                                        *         EXIT   (B1) = 1                                                DBGPHCT   736
                                        *                                                                        DBGPHCT   737
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    DBGPHCT   738
                                        *                A - 1, 2, 3, 6, 7                                       DBGPHCT   739
                                        *                B - NONE                                                DBGPHCT   740
                                        *                                                                        DBGPHCT   741
                                        *         CALLS  MOVE                                                    DBGPHCT   742
                                                                                                                 DBGPHCT   743
                                                                                                                 DBGPHCT   744
           446  0400400446 +             D.RESET  SUBR               ** ENTRY/EXIT **                            DBGPHCT   745
           447  5130000030 C                      SA3    D.NOGO                                                  FCC1117X    9
                          5110000012              SA1    SYM1         ADDRESS OF START OF SYMTAB                 DBGPHCT   746
           450  0333000446 +                      MI     X3,EXIT.    IF *DTABLE* DIDN-T MOVE TABLES, EXIT        FCC1117X   10
                          5120000000 X            SA2    =XLWAWORK   LAST WORD ADDRESS OF WORKING STORAGE        DBGPHCT   747
           451  5130000006 C                      SA3    DBGRFMP     ADDRESS OF DEBUG"S REFMAP                   DBGPHCT   748
                          73411                   SX4    X1+B1                                                   DBGPHCT   749
                               37634              IX6    X3-X4                                                   DBGPHCT   750
           452  37142                             IX1    X4-X2       SYM1+1-LWAWORK                              DBGPHCT   751
                     5160000015 C                 SA6    D.ELAST     D.ELAST = DBGRFMP-SYM1-1                    DBGPHCT   752
                               37331              IX3    X3-X1                                                   DBGPHCT   753
           453  6110000001                        MOVE   X1,X2,X3                                                DBGPHCT   754
                                                                                                                 DBGPHCT   755
                                        *         RESET POINTERS                                                 DBGPHCT   756
                                                                                                                 DBGPHCT   757
           454  5110000015 C                      SA1    D.ELAST     ADDRESS OF END OF ELIST                     DBGPHCT   758
                          5120000012              SA2    SYM1        ADDRESS OF START OF SYMTAB                  DBGPHCT   759
           455  36621                             IX6    X2+X1                                                   DBGPHCT   760
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    22
         SUBROUTINES                                                  D.RESET 
  
                     5130000013                   SA3    SYMEND      ADDRESS OF END OF SYMTAB                    DBGPHCT   761
                               54620              SA6    A2          SYM1 = SYM1+D.ELAST                         DBGPHCT   762
           456  36731                             IX7    X3+X1                                                   DBGPHCT   763
                     5120000000 X                 SA2    =XLWAWORK   LAST WORD ADDRESS OF WORKING STORAGE        DBGPHCT   764
                               54730              SA7    A3          SYMEND = SYMEND+D.ELAST                     DBGPHCT   765
           457  36621                             IX6    X2+X1                                                   DBGPHCT   766
                     5130000032                   SA3    SELIST      ADDRESS OF START OF ELIST                   DBGPHCT   767
                               54620              SA6    A2          LWAWORK = LWAWORK+D.ELAST                   DBGPHCT   768
           460  36731                             IX7    X3+X1                                                   DBGPHCT   769
                     54730                        SA7    A3          SELIST = SELIST+D.ELAST                     DBGPHCT   770
                          5110001230 +            SA1    =1H         CLEAR *DEBUG PACKET* FROM TITLE LINE        DBGPHCT   771
           461  46000                             NO                                                             DBGPHCT   772
                     10611                        BX6    X1                                                      DBGPHCT   773
                          5160000000 X            SA6    =XTL.PTYP                                               DBGPHCT   774
           462  54661                             SA6    A6+B1                                                   DBGPHCT   775
                     0400000446 +                 EQ     EXIT.                                                   DBGPHCT   776
  
  
  
  
                                        **        POINTRS - SET UP ADDRESSES FOR FORTRAN SUBROUTINES.            DBGPHCT   778
                                        *                                                                        DBGPHCT   779
                                        *         CALLING SEQUENCE                                               DBGPHCT   780
                                        *         ENTRY     NONE                                                 DBGPHCT   781
                                        *         EXIT      A1,X1     LWAWORK, (LWAWORK)                         DBGPHCT   782
                                        *                   A6,X6     D.DOLAST, (D.DOLAST)                       DBGPHCT   783
                                        *                (B1) = 1                                                DBGPHCT   784
                                        *                                                                        DBGPHCT   785
           463  0400400463 +             POINTRS  SUBR   =           ** ENTRY/EXIT **                            DBGPHCT   786
           464  5120000032                        SA2    SELIST       ADDRESS OF START OF ELIST                  DBGPHCT   787
                          7100777776 C            SX0    DEBUG-1      LOCATION OF BLANK COMMON                   DBGPHCT   788
           465  6110000001                        SB1    1                                                       DBGPHCT   789
                          5130000034              SA3    LELIST       ADDRESS OF END OF ELIST                    DBGPHCT   790
           466  37720                             IX7    X2-X0                                                   DBGPHCT   791
                     5110000000 X                 SA1    =XLWAWORK    LAST WORD ADDRESS OF WORKING STORAGE       DBGPHCT   792
                               37630              IX6    X3-X0                                                   DBGPHCT   793
           467  5170000013 C                      SA7    D.ELIST      D.ELIST = SELIST-DEBUG+1                   DBGPHCT   794
                          5120000012              SA2    SYM1         ADDRESS OF START OF SYMTAB                 DBGPHCT   795
           470  5130000013                        SA3    SYMEND                                                  DBGPHCT   796
                          5160000014 C            SA6    D.LELST                                                 DBGPHCT   797
           471  37710                             IX7    X1-X0                                                   DBGPHCT   798
                     37620                        IX6    X2-X0                                                   DBGPHCT   799
                          5170000015 C            SA7    D.ELAST                                                 DBGPHCT   800
           472  5160000007 C                      SA6    D.SSMTB      D.SSMTB = SYM1-DEBUG+1                     DBGPHCT   801
                          5150000000 X            SA5    FWAWORK      FIRST WORD ADDRESS OF WORKING STORAGE      DBGPHCT   802
           473  37730                             IX7    X3-X0                                                   DBGPHCT   803
                     5170000010 C                 SA7    D.ESMTB                                                 DBGPHCT   804
                               37650              IX6    X5-X0                                                   DBGPHCT   805
           474  5160000027 C                      SA6    D.DOLAST     D.DOLAST = FWAWORK-DEBUG+1                 DBGPHCT   806
                          0400000463 +            EQ     EXIT.                                                   DBGPHCT   807
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    23
         SUBROUTINES                                                  DMVWDS
  
                                        **        DMVWDS - CALL *MOVE* FOR A FORTRAN SUBROUTINE.                 DBGPHCT   809
                                        *                                                                        DBGPHCT   810
                                        *         CALLING SEQUENCE:                                              DBGPHCT   811
                                        *                CALL DMVWDS( WORDCT, FWA, DESTADD )                     DBGPHCT   812
                                        *                WORDCT = NO OF WDS TO MOVE                              DBGPHCT   813
                                        *                FWA    = BEG ADDRESS OF WDS TO BE MOVED                 DBGPHCT   814
                                        *                DESTADD= NEW FWA                                        DBGPHCT   815
                                        *                                                                        DBGPHCT   816
                                        *         ON EXIT:                                                       DBGPHCT   817
                                        *                WORDCT NO OF WDS WILL BEGIN AT DESTADD INSTEAD OF FWA   DBGPHCT   818
                                        *                                                                        DBGPHCT   819
           475  0400400475 +             DMVWDS   SUBR   =           ** ENTRY/EXIT **                            DBGPHCT   820
           476  5021000001                        SA2    A1+1         X2 = FWA                                   DBGPHCT   821
                          5032000001              SA3    A2+1         X3 = DESTADD                               DBGPHCT   822
           477  53110                             SA1    X1           X1 = WORDCT                                DBGPHCT   823
                     6110000001                   MOVE   X1,X2,X3                                                DBGPHCT   824
           501  0400000475 +                      EQ     EXIT.                                                   DBGPHCT   825
                                                                                                                 DBGPHCT   826
                                                                                                                 DBGPHCT   827
                                                                                                                 DBGPHCT   828
           502                     1     D.TEMP   BSSZ   1                 .NE. 0 IF WAITING FOR EOR TO FLUSH BU DBGPHCT   829
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    24
         SUBROUTINES                                                  SNS 
  
                                        **        SNS - SCAN NEXT STATEMENT.                                     DBGPHCT   832
                                        *                                                                        DBGPHCT   833
                                        *                                                                        DBGPHCT   834
                                        *         ENTRY  NONE                                                    DBGPHCT   835
                                        *                                                                        DBGPHCT   836
                                        *         EXIT   (B1) = 1                                                DBGPHCT   837
                                        *                (B2) = .GT. 0 IF GOOD DEBUG STATEMENT                   DBGPHCT   838
                                        *                     = .LT. 0 IF BAD DEBUG STATEMENT                    DBGPHCT   839
                                        *                     =      0 IF NOT DEBUG STATEMENT                    DBGPHCT   840
                                        *                (B6) = DBGFSTT (LOWEST DEBUG STATEMENT TYPE CODE)       DBGPHCT   841
                                        *                (B7) = STATEMENT TYPE CODE AS RETURNED BY *SCANNER*     DBGPHCT   842
                                        *                                                                        DBGPHCT   843
                                        *         USES   ALL                                                     DBGPHCT   844
                                        *                                                                        DBGPHCT   845
                                        *         CALLS  PLUG, SCANNER                                           DBGPHCT   846
                                                                                                                 DBGPHCT   847
                                                                                                                 DBGPHCT   848
           503  0400400503 +             SNS      SUBR               ** ENTRY/EXIT **                            DBGPHCT   849
           504  5110000000 C             SNS1     SA1    D.COL                                                   DBGPHCT   850
                          43600                   MX6    0                                                       DBGPHCT   851
           505  5160000111 C                      SA6    COUNTUP                                                 DBGPHCT   852
                          5160000112 C            SA6    SCNUPDT                                                 DBGPHCT   853
           506  5160000556 +                      SA6    TYPFLAG     CLEAR *BAD TYPE* STATUS                     DBGPHCT   854
                          0311000513 +            NZ     X1,SNS3     IF EXTERNAL PACKET PROCESSED LAST           DBGPHCT   855
           507  7160000516 +             SNS2     PLUG   AT=SNS2,TO=SNS4                                         F2950F4   172
           513  7160000000 X             SNS3     SX6    =XCONSTOR                                               DBGPHCT   857
                          5160000025 C            SA6    D.STOR                                                  DBGPHCT   858
           514  7110777776 C                      SX1    DEBUG-1                                                 DBGPHCT   859
                          37761                   IX7    X6-X1                                                   DBGPHCT   860
                               43600              MX6    0                                                       DBGPHCT   861
           515  5170000026 C                      SA7    D.SCON1                                                 DBGPHCT   862
                          5160000000 X            SA6    =XIDENTOK                                               DBGPHCT   863
           516  0100000000 X             SNS4     CALL   SCANNER                                                 DBGPHCT   864
           517  5110000024                        SA1    TYPE                                                    DBGPHCT   865
                          7221777715              SX2    X1-DBGEXTP                                              DBGPHCT   866
           520  0312000521 +                      NZ     X2,SNS5     IF STATEMENT ALREADY TYPED                  DBGPHCT   867
                          0100000623 +            RJ     GETTYPE                                                 DBGPHCT   868
           521  5110000024               SNS5     SA1    TYPE                                                    DBGPHCT   869
                          5120000556 +            SA2    TYPFLAG                                                 DBGPHCT   870
           522  6110000001                        SB1    1                                                       DBGPHCT   871
                          6160000047              SB6    DBGFSTT                                                 DBGPHCT   873
           523  63210                             SB2    X1          SET TYPE = *GOOD DEBUG*                     DBGPHCT   874
                     63710                        SB7    X1                                                      DBGPHCT   875
                          0676000503 +            GE     B7,B6,EXIT. IF GOOD DEBUG STATEMENT                     DBGPHCT   876
           524  6120777776                        SB2    -1          SET TYPE = *BAD DEBUG*                      DBGPHCT   877
                          0312000503 +            NZ     X2,EXIT.    IF BAD DEBUG STATEMENT                      DBGPHCT   878
           525  5110000000 X                      SA1    =XCP.CARD                                               DBGPHCT   879
                          21301                   AX3    1                                                       DBGPHCT   880
                               66200              SB2    B0          SET TYPE = *NOT DEBUG*                      DBGPHCT   881
           526  0400000503 +                      EQ     EXIT.                                                   FCC1954    19
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    25
         SUBROUTINES                                                  TDI 
  
                                        **        TDI - TRANSFER DEBUG INFORMATION.                              DBGPHCT   889
                                        *                                                                        DBGPHCT   890
                                        *                TRANSFERS STATEMENT TYPE, LABEL, LINE NUMBER AND UPDATE DBGPHCT   891
                                        *         IDENTIFIER INFORMATION FROM NORMAL WORKING LOCATIONS TO DEBUG  DBGPHCT   892
                                        *         COMMON BLOCKS.                                                 DBGPHCT   893
                                        *                                                                        DBGPHCT   894
                                        *                                                                        DBGPHCT   895
                                        *         ENTRY  (B1) = 1.                                               FCC0937    11
                                        *                                                                        DBGPHCT   897
                                        *         EXIT   NONE                                                    DBGPHCT   898
                                        *                                                                        DBGPHCT   899
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    DBGPHCT   900
                                        *                A - 1, 2, 3, 4, 6, 7                                    DBGPHCT   901
                                        *                B - NONE                                                DBGPHCT   902
                                        *                                                                        DBGPHCT   903
                                        *         CALLS  D.IDSAV                                                 DBGPHCT   904
                                                                                                                 DBGPHCT   905
                                                                                                                 DBGPHCT   906
           527  0400400527 +             TDI      SUBR   =           ** ENTRY/EXIT **                            DBGPHCT   907
           530  5110000004 C                      SA1    D.NDUKE                                                 DBGPHCT   908
                          5120000005 C            SA2    D.NLBEL                                                 DBGPHCT   909
           531  5130000000 X                      SA3    DUKE1                                                   DBGPHCT   910
                          5140000060              SA4    NLABEL                                                  DBGPHCT   911
           532  10611                             BX6    X1                                                      DBGPHCT   912
                     22702                        LX7    X2                                                      DBGPHCT   913
                          5160000053 C            SA6    D.DUKE1     CURRENT STATEMENT LINE NUMBER (BINARY)      DBGPHCT   914
           533  5170000054 C                      SA7    D.LABEL     CURRENT STATEMENT LABEL (DPC)               DBGPHCT   915
                          43136                   MX1    30                                                      DBGPHCT   916
                               10633              BX6    X3                                                      DBGPHCT   917
           534  20436                             LX4    -30                                                     DBGPHCT   918
                     15741                        BX7    -X1*X4                                                  DBGPHCT   919
                          54610                   SA6    A1          NEXT STATEMENT LINE NUMBER (BINARY)         DBGPHCT   920
                               54720              SA7    A2          NEXT STATEMENT LABEL (DPC)                  DBGPHCT   921
           535  5110000002 C                      SA1    D.NCURU                                                 FCC0937    12
                          54211                   SA2    A1+B1                                                   FCC0937    13
                               10611              BX6    X1                                                      FCC0937    14
           536  22702                             LX7    X2                                                      FCC0937    15
                     5160000051 C                 SA6    D.CURUD     CURRENT STATEMENT UPDATE IDENTIFIER         FCC0937    16
                               54761              SA7    A6+B1                                                   FCC0937    17
           537  6120000002 C                      SB2    D.NCURU                                                 FCC0937    18
                          0100000571 +            RJ     D.IDSAV     SAVE NEXT STATEMENT UPDATE IDENTIFIER       FCC0937    19
           540  5110000024                        SA1    TYPE                                                    DBGPHCT   922
                          46000                   NO                                                             DBGPHCT   923
                               10611              BX6    X1                                                      DBGPHCT   924
           541  5160000055 C                      SA6    D.TYPE                                                  DBGPHCT   925
                          0400000527 +            EQ     EXIT.                                                   DBGPHCT   927
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    26
        SUBROUTINES CALLED BY *SCANNER*.                              DBGERR
  
                                        **        DBGERR - LIST DEBUG ERROR MESSAGE.                             DBGPHCT   930
                                        *                                                                        DBGPHCT   931
                                        *         ENTRY  (A5) = MESSAGE FWA                                      DBGPHCT   932
                                        *                                                                        DBGPHCT   933
                                                                                                                 DBGPHCT   934
                                                                                                                 DBGPHCT   935
           542  0400400542 +             DBGERR   SUBR   =           ** ENTRY/EXIT **                            DBGPHCT   936
           543  43673                             MX6    -1                                                      DBGPHCT   937
                     74750                        SX7    A5                                                      DBGPHCT   938
                          5160000556 +            SA6    TYPFLAG     SET *BAD DEBUG STATEMENT*                   DBGPHCT   939
           544  6110000001                        SB1    1                                                       DBGPHCT   940
                          5170000555 +            SA7    DERA        TEMP SAVE (A5)                              DBGPHCT   941
           545  0100000000 X                      CALL   LSL         LIST SAVED LINE(S)                          DBGPHCT   942
           546  5110000555 +                      SA1    DERA                                                    DBGPHCT   943
                          43060                   MX0    -12                                                     DBGPHCT   944
                               53510              SA5    X1                                                      DBGPHCT   945
           547  15650                    DER2     BX6    -X0*X5                                                  DBGPHCT   946
                     54551                        SA5    A5+B1                                                   DBGPHCT   947
                          0316000547 +            NZ     X6,DER2     IF NOT EOL TERMINATOR                       DBGPHCT   948
           550  63610                             SB6    X1                                                      DBGPHCT   949
                     65256                        SB2    A5-B6       (B2) = MESSAGE LENGTH                       DBGPHCT   950
                          75156                   SX1    A5-B6                                                   DBGPHCT   951
                               76260              SX2    B6                                                      DBGPHCT   952
           551  66221                             SB2    B2+B1       INCR LINE LENGTH FOR WORD *DEBUG*           DBGPHCT   953
                     6160000557 +                 SB6    DBGMSG      (B6) = MESSAGE BUFFER FWA                   DBGPHCT   954
                               76361              SX3    B6+B1                                                   DBGPHCT   955
           552  6110000001                        MOVE   X1,X2,X3    (DOES NOT USE B2 OR B6)                     DBGPHCT   956
           553  0100000000 X                      LISTL  B6,B2                                                   DBGPHCT   957
           554  0400000542 +                      EQ     EXIT.                                                   DBGPHCT   958
                                                                                                                 DBGPHCT   959
                                                                                                                 DBGPHCT   960
                                                                                                                 DBGPHCT   961
           555                     1     DERA     BSS    1           FOR TEMP SAVE OF (A5) = DEBUG ERR MSG FWA   DBGPHCT   962
           556  00000000000000000000     TYPFLAG  ENTRY. 0           .NZ. IF BAD DEBUG STATEMENT                 DBGPHCT   963
                                                                                                                 DBGPHCT   964
                                                                                                                 DBGPHCT   965
                                                                                                                 DBGPHCT   966
                                        *         DEBUG ERROR MESSAGE BUFFER.                                    DBGPHCT   967
                                        *                                                                        DBGPHCT   968
           557  55555504050225074655     DBGMSG   DATA   10H   DEBUG-                                            DBGPHCT   969
           560                    11              BSSZ   9           DEBUG ERROR MSG MAX LENGTH IS 88 CHARS      DBGPHCT   970
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    27
        SUBROUTINES CALLED BY *SCANNER*.                              D.IDSAV 
  
                                        **        D.IDSAV - SAVE UPDATE IDENT FROM NEW SOURCE LINE.              DBGPHCT   973
                                        *                                                                        DBGPHCT   974
                                        *                                                                        DBGPHCT   975
                                        *         ENTRY  (B2) = UPDATE IDENT DESTINATION ADDRESS.                FCC0937    20
                                        *                                                                        FCC0937    21
                                        *         EXIT   ((B2)) = IDENT NAME FROM COLUMNS 74-80, 8L FORMAT.      FCC0937    22
                                        *                ((B2)+1) = IDENT SEQUENCE NUMBER FROM COLUMNS 82-86,    FCC0937    23
                                        *                            PREFIXED WITH A PERIOD, 0L FORMAT.          FCC0937    24
                                        *                (B1) = 1                                                DBGPHCT   984
                                        *                                                                        DBGPHCT   985
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    DBGPHCT   986
                                        *                A - 3, 4, 6, 7.                                         FCC0937    25
                                        *                B - 1                                                   DBGPHCT   988
                                        *                                                                        DBGPHCT   989
                                        *         CALLS  NONE.                                                   DBGPHCT   990
                                                                                                                 DBGPHCT   991
                                                                                                                 DBGPHCT   992
           571  0400400571 +             D.IDSAV  SUBR               ** ENTRY/EXIT **                            DBGPHCT   993
           572  6110000001                        SB1    1                                                       DBGPHCT   994
                          5130000007 X            SA3    =XCP.CARD+7                                             DBGPHCT   997
           573  54431                             SA4    A3+B1                                                   DBGPHCT   998
                     43152                        MX1    7*6                                                     DBGPHCT  1003
                          7120000055              SX2    1R                                                      DBGPHCT  1004
           574  20322                             LX3    3*6         LEFT ADJUST COL 74                          DBGPHCT  1005
                     11613                        BX6    X1*X3       EXTRACT COLS 74-80                          DBGPHCT  1006
                          20214                   LX2    2*6                                                     DBGPHCT  1007
                               36662              IX6    X6+X2       SUFFIX BLANK                                DBGPHCT  1008
           575  56620                             SA6    B2                                                      FCC0937    26
                     43136                        MX1    5*6                                                     DBGPHCT  1010
                          7120000057              SX2    1R.                                                     DBGPHCT  1011
           576  20166                             LX1    -1*6                                                    DBGPHCT  1012
                     11714                        BX7    X1*X4       EXTRACT COLS 82-86                          DBGPHCT  1013
                          20266                   LX2    9*6                                                     DBGPHCT  1014
                               36727              IX7    X2+X7       PREFIX PERIOD                               DBGPHCT  1015
           577  54761                             SA7    A6+B1                                                   DBGPHCT  1016
                     0400000571 +                 EQ     EXIT.                                                   DBGPHCT  1017
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    28
        SUBROUTINES CALLED BY *SCANNER*.                              D.IDSP
  
                                        **        D.IDSPEC - SPECIAL EXTENSION OF 'D.IDSAVE' FOR COMMENT AND     DBGPHCT  1020
                                        *                    BLANK CARDS.  SINCE THESE CARDS ARE ESSENTIALLY     DBGPHCT  1021
                                        *                    TRANSPARENT TO FTN, THEIR UPDATE IDENTS MUST BE     DBGPHCT  1022
                                        *                    SAVED BY THIS SUBROUTINE.                           DBGPHCT  1023
                                        *                                                                        DBGPHCT  1024
                                        *  ON EXIT  - UPDATE IDENT IS SAVED IF TABLE SPACE WAS AVAILABLE (HOLDS  DBGPHCT  1025
                                        *             20 IDENTS MAX).  DEBUG DIAGNOSTIC IS SENT IF THE TABLE     DBGPHCT  1026
                                        *             OVERFLOWED.                                                DBGPHCT  1027
                                        *                                                                        DBGPHCT  1028
                                        *         USES   ALL.                                                    FCC0937    27
                                                                                                                 FCC0937    28
                                                                                                                 FCC0937    29
           600  0400400600 +             D.IDSP   SUBR   =           ** ENTRY/EXIT **                            DBGPHCT  1034
           601  5110000060 C                      SA1    NOACT                                                   DBGPHCT  1035
                          5120000112 C            SA2    SCNUPDT                                                 DBGPHCT  1036
           602  0311000600 +                      NZ     X1,EXIT.    IF NO DEBUG PACKET INFORMATION              DBGPHCT  1037
                          0332000600 +            MI     X2,EXIT.    IF SAVE TABLE FULL                          DBGPHCT  1038
           603  6120000051 C                      SB2    D.CURUD                                                 FCC0937    30
                          0100000571 +            RJ     D.IDSAV     SAVE UPDATE IDENT                           DBGPHCT  1039
           604  76610                             SX6    B1                                                      DBGPHCT  1042
                     5160000112 C                 SA6    SCNUPDT     SET *SPECIAL CALL* STATUS                   DBGPHCT  1043
           605  5110001166 +                      CALLF  PUTUPDT                                                 DBGPHCT  1044
           606  5110000112 C                      SA1    SCNUPDT                                                 DBGPHCT  1045
                          6110000001              SB1    1                                                       DBGPHCT  1046
           607  43600                             MX6    0                                                       DBGPHCT  1047
                     6151000000                   SB5    B1+                                                     DBGPHCT  1048
                               54610              SA6    A1          CLEAR SCNUPDT                               DBGPHCT  1049
           610  0321000600 +                      PL     X1,EXIT.    IF SAVE TABLE DID NOT OVERFLOW              DBGPHCT  1050
                          0100000000 X            DBGERR (OVERFLOW OF SAVED UPDATE ID TABLE)                     DBGPHCT  1051
           613  0400000600 +                      EQ     EXIT.                                                   DBGPHCT  1052
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    29
        SUBROUTINES CALLED BY *SCANNER*.                              ISITDBG 
  
                                        **        ISITDBG - DETERMINE DEBUG STATEMENT TYPE.                      DBGPHCT  1055
                                        *                                                                        DBGPHCT  1056
                                        *  THIS CLOSED SUBROUTINE SEARCHES A TABLE OF DEBUG KEYWORD PICTURES,    DBGPHCT  1057
                                        *  SEEKING A MATCH WITH THE CURRENT STATEMENT.  IF A MATCH IS FOUND,     DBGPHCT  1058
                                        *  THE DEBUG STATEMENT TYPE NUMBER IS STORED IN 'TYPE' AND'D.TYPE'.      DBGPHCT  1059
                                        *  IF NO MATCH IS FOUND, 'TYPE' AND 'D.TYPE' ARE SET TO ZERO, 'TYPFLAG'  DBGPHCT  1060
                                        *  IS SET TO <NOT FOUND> (-1), AND A DEBUG DIAGNOSTIC MESSAGE IS SENT TO DBGPHCT  1061
                                        *  THE SOURCE LISTING FILE.                                              DBGPHCT  1062
                                        *                                                                        DBGPHCT  1063
                                        *  ON ENTRY  -   NO REGISTER ASSUMPTIONS.                                DBGPHCT  1064
                                        *                                                                        DBGPHCT  1065
                                        *  ON EXIT   -   X6 = DEBUG STATEMENT TYPE ( =0 IF UNIDENTIFIED).        DBGPHCT  1066
                                        *                (B1) = 1                                                DBGPHCT  1067
                                        *                B2 = NEXT NON-BLANK CHARACTER.                          DBGPHCT  1068
                                        *                B7 = X6                                                 DBGPHCT  1069
                                        *                                                                        DBGPHCT  1070
                                        *         USES   ALL                                                     FCCT006X   25
                                        *                                                                        DBGPHCT  1072
                                        *         CALLS  DBGERR, PACK7, PLUG                                     FCCT006X   26
                                                                                                                 DBGPHCT  1073
           614  7164000060               ISIT2    SX6    B4+48       DEVELOP DEBUG STATEMENT TYPE                DBGPHCT  1074
                          5160000024              SA6    TYPE                                                    DBGPHCT  1075
           615  63760                    ISIT3    SB7    X6                                                      DBGPHCT  1076
                     46000                        NO                                                             DBGPHCT  1077
                          5160000055 C            SA6    D.TYPE      SAVE STMT TYPE FOR DEBUG PROCESSOR          DBGPHCT  1078
                                                                                                                 DBGPHCT  1079
           616  0400400616 +             ISITDBG  SUBR   =           ** SCANNER ENTRY/COMMON EXIT **             DBGPHCT  1080
           617  7160000062                        SX6    DBGEXTP                                                 DBGPHCT  1081
                          5160000024              SA6    TYPE                                                    DBGPHCT  1082
           620  6110000001                        SB1    1                                                       DBGPHCT  1083
                          0100000000 X            CALL   PACK7       PACK DEBUG STATEMENT KEYWORD                DBGPHCT  1084
           621  5110000024                        SA1    TYPE                                                    DBGPHCT  1085
                          7160000000              SX6    0                                                       DBGPHCT  1086
           622  0311000630 +                      NZ     X1,ISIT4    IF 'PACK7' DID NOT REPORT STRING > 7 CHARAC DBGPHCT  1087
                          0400000615 +            EQ     ISIT3                                                   DBGPHCT  1088
                                                                                                                 DBGPHCT  1089
           623  0400400623 +             GETTYPE  SUBR               ** DBGPHCT ENTRY **                         FCCT006X   27
                                                                                                                 DBGPHCT  1091
           624  6110000001                        SB1    1                                                       DBGPHCT  1092
                          5110000623 +            PLUG   AT=ISITDBG,FROM=GETTYPE                                 F2950F4   173
           630  5130000032               ISIT4    SA3    SELIST                                                  DBGPHCT  1094
                          5120000641 +            SA2    D.STTYP     FIRST DEBUG KEYWORD PICTURE                 DBGPHCT  1095
           631  53330                             SA3    X3          DEBUG STMT KEYWORD                          DBGPHCT  1096
                     6140777765                   SB4    -D.LSTTP    KEYWORD PICTURE TABLE LENGTH (COMPLEMENT)   DBGPHCT  1097
                                                                                                                 DBGPHCT  1098
                                        *  SEARCH DEBUG KEYWORD PICTURE TABLE FOR MATCH WITH STATEMENT KEYWORD.  DBGPHCT  1099
                                                                                                                 DBGPHCT  1100
           632  13032                    ISIT5    BX0    X3-X2       STATEMENT - PICTURE                         DBGPHCT  1101
                     66441                        SB4    B4+B1                                                   DBGPHCT  1102
                          5022000001              SA2    A2+1        NEXT PICTURE                                DBGPHCT  1103
           633  0300000614 +                      ZR     X0,ISIT2    IF STATEMENT MATCHES PICTURE                DBGPHCT  1104
                          0604000632 +            LE     B4,B0,ISIT5 IF PICTURE TABLE NOT EXHAUSTED              DBGPHCT  1105
           634  13666                             BX6    X6-X6                                                   DBGPHCT  1106
                     5160000024                   SA6    TYPE                                                    DBGPHCT  1107
           635  0100000000 X                      DBGERR (UNRECOGNIZED DEBUG STATEMENT)                          DBGPHCT  1108
           640  0400000615 +                      EQ     ISIT3                                                   DBGPHCT  1109
                                                                                                                 DBGPHCT  1110
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    30
        SUBROUTINES CALLED BY *SCANNER*.                              ISITDBG 
  
                                        *         DEBUG STATEMENT PICTURE TABLE.                                 DBGPHCT  1111
                                                                                                                 DBGPHCT  1112
           641  20010405022507555555     D.STTYP  VFD    12/2001B,48/8HDEBUG                                     DBGPHCT  1113
           642  20010122050155555555              VFD    12/2001B,48/8HAREA                                      DBGPHCT  1114
           643  20010122220131235555              VFD    12/2001B,48/8HARRAYS                                    DBGPHCT  1115
           644  20010301141423555555              VFD    12/2001B,48/8HCALLS                                     DBGPHCT  1116
           645  20010625160323555555              VFD    12/2001B,48/8HFUNCS                                     DBGPHCT  1117
           646  20010717241723555555              VFD    12/2001B,48/8HGOTOS                                     DBGPHCT  1118
           647  20011617071755555555              VFD    12/2001B,48/8HNOGO                                      DBGPHCT  1119
           650  20012324172205235555              VFD    12/2001B,48/8HSTORES                                    DBGPHCT  1120
           651  20012422010305555555              VFD    12/2001B,48/8HTRACE                                     DBGPHCT  1121
           652  20011706065555555555              VFD    12/2001B,48/8HOFF                                       DBGPHCT  1122
                                  12     D.LSTTP  EQU    *-D.STTYP   NR OF DEBUG STMT TYPES                      DBGPHCT  1123
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    31
         WRTMS , RDMS - RANDOM I/O SUBROUTINES
  
                                 201     DLEN     =      129D        LENGTH OF CIO BUFFER FOR DEBUG RANDOM FILE  DBGPHCT  1125
                                                                                                                 DBGPHCT  1126
                                        **        WRTMS1 - INITIALIZE RANDOM FILE FET/FIT AND OPEN FILE.         DBGPHCT  1127
                                        *                                                                        DBGPHCT  1128
                                        *         ENTRY  FROM FTN ROUTINE - CALL WRTMS1                          DBGPHCT  1129
                                        *                                                                        DBGPHCT  1130
                                        *         EXIT   DEBUG FILE IS OPEN.                                     DBGPHCT  1131
                                        *                (B1) = 1                                                DBGPHCT  1132
                                        *                                                                        DBGPHCT  1133
                                        *         USES   X - 0 THRU 7                                            DBGPHCT  1134
                                        *                A - 1 THRU 7                                            DBGPHCT  1135
                                        *                B - 1, 3, 4                                             DBGPHCT  1136
                                        *                                                                        DBGPHCT  1137
                                        *         CALLS  OPEN                                                    DBGPHCT  1138
                                                                                                                 DBGPHCT  1139
           653  0400400653 +             WRTMS1   ENTRY. **                                                      DBGPHCT  1140
           654  6110000001                        SB1    1                                                       DBGPHCT  1141
                                                                                                                 DBGPHCT  1142
                                         #RM      IFEQ   CP#RM,0                                                 DBGPHCT  1143
                                                                                                                 DBGPHCT  1144
                          7120000000 X            RECALL F.DEBUG     WAIT FOR I/O TO COMPLETE                    DBGPHCT  1145
                                                                                                                 DBGPHCT  1146
                                        *         SET UP FET FOR DEBUG FILE                                      DBGPHCT  1147
                                                                                                                 DBGPHCT  1148
           656  5110000677 +                      SA1    DFET        FIRST WORD OF FET                           DBGPHCT  1149
                          54211                   SA2    A1+B1       SECOND WORD                                 DBGPHCT  1150
                               10711              BX7    X1                                                      DBGPHCT  1151
           657  22602                             LX6    X2                                                      DBGPHCT  1152
                     5170000000 X                 SA7    F.DEBUG                                                 DBGPHCT  1153
                               54671              SA6    A7+B1       FIRST AND RANDOM BIT                        DBGPHCT  1154
           660  73660                             SX6    X6                                                      DBGPHCT  1155
                     54661                        SA6    A6+B1       IN                                          DBGPHCT  1156
                          54661                   SA6    A6+B1       OUT                                         DBGPHCT  1157
           661  7276000201                        SX7    X6+DLEN                                                 DBGPHCT  1158
                          54761                   SA7    A6+B1       LIMIT                                       DBGPHCT  1159
                                                                                                                 DBGPHCT  1160
                                         #RM      ENDIF                                                          DBGPHCT  1161
                                                                                                                 DBGPHCT  1162
           662  7120777776 C                      SX2    DEBUG-1                                                 DBGPHCT  1163
                          5110000000 X            SA1    =XL.DCON                                                DBGPHCT  1164
           663  5140000024 C                      SA4    SDBGIND     FWA OF DEBUG INDEX                          DBGPHCT  1165
                          5130000040 C            SA3    D.OPEN                                                  DBGPHCT  1166
           664  36441                             IX4    X4+X1                                                   DBGPHCT  1167
                     10644                        BX6    X4                                                      DBGPHCT  1168
                          54640                   SA6    A4           ALLOW FOR LENGTH OF DCON                   DBGPHCT  1169
           665  0323000667 +                      PL     X3,WRTMS1A  IF CALL NOT FROM BUGPRO                     DBGPHCT  1170
                          5150000000 X            SA5    FWAWORK                                                 DBGPHCT  1171
           666  37652                             IX6    X5-X2                                                   DBGPHCT  1172
                     54640                        SA6    A4          SET SDBGIND                                 DBGPHCT  1173
                          10466                   BX4    X6                                                      DBGPHCT  1174
                                                                                                                 DBGPHCT  1175
           667  36024                    WRTMS1A  IX0    X2+X4       FWA OF INDEX                                DBGPHCT  1176
                     43600                        MX6    0                                                       DBGPHCT  1177
                          5120000000 X            SA2    GL.IND      LENGTH                                      DBGPHCT  1178
           670  66400                             SB4    B0                                                      DBGPHCT  1179
                     63320                        SB3    X2                                                      DBGPHCT  1180
           671  53604                    D.PHCLR  SA6    X0+B4        CLEAR OUT INDEX                            DBGPHCT  1181
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    32
         WRTMS , RDMS - RANDOM I/O SUBROUTINES
  
                     66441                        SB4    B4+B1                                                   DBGPHCT  1182
                          0743000671 +            GT     B3,B4,D.PHCLR                                           DBGPHCT  1183
                                                                                                                 DBGPHCT  1184
                                         #RM      IFEQ   CP#RM,0                                                 DBGPHCT  1185
                                                                                                                 DBGPHCT  1186
           672  20222                             LX2    18                                                      DBGPHCT  1187
                     12602                        BX6    X0+X2                                                   DBGPHCT  1188
                          76710                   SX7    B1                                                      DBGPHCT  1189
           673  5160000007 X                      SA6    F.DEBUG+I.RAN2 SET UP RANDOM FILE WORD                  DBGPHCT  1190
                          5170000040 C            SA7    D.OPEN                                                  DBGPHCT  1191
                                                                                                                 DBGPHCT  1192
           674  7120000000 X                      OPEN   F.DEBUG,WRITENR,RECALL                                  DBGPHCT  1193
           676  0400000653 +                      EQ     WRTMS1                                                  DBGPHCT  1194
                                                                                                                 DBGPHCT  1195
           677  32323232321720000003     DFET     VFD    42/0L"OPT",18/3                                         FCC1843X   13
           700  00004000000003001244 +            VFD    12/0,1/1,23/0,6/3,18/BUFF                               DBGPHCT  1197
                                                                                                                 DBGPHCT  1198
                                                  USE    BUFF                                                    DBGPHCT  1199
          1244                   201     BUFF     BSS    DLEN        BUFFER OF THE DEBUG RANDOM FILE             DBGPHCT  1200
                                                  USE    *                                                       DBGPHCT  1201
                                                                                                                 DBGPHCT  1202
                                         #RM      ELSE                                                           DBGPHCT  1203
                                                                                                                 DBGPHCT  1204
                                                  SX7    B1                                                      DBGPHCT  1205
                                                  SA7    D.OPEN      SET OPEN FLAG                               DBGPHCT  1206
                                                  STORE  =XFI.DBG,MXL=X2  INDEX LENGTH                           DBGPHCT  1207
                                                  STORE  =XFI.DBG,MXA=X0  INDEX ADDRESS                          DBGPHCT  1208
                                                                                                                 DBGPHCT  1209
                                                  IFEQ   CP#RM,6,2                                               DBGPHCT  1210
                                                  STORE  =XFI.DBG,FWB=BUFF                                       DBGPHCT  1211
                                                  STORE  =XFI.DBG,BFS=DLEN                                       DBGPHCT  1212
                                                                                                                 DBGPHCT  1213
                                                  OPENM  =XFI.DBG,I-O,N,WA                                       DBGPHCT  1214
                                                  FETCH  =XFI.DBG,CXA,X1   LOCATION (WA) OF MASTER INDEX ON FILE DBGPHCT  1215
                                                  ZR     X1,WRTMS1B        IF A NEW FILE                         DBGPHCT  1216
                                                  GETW   =XFI.DBG,X0,X2,,X1  GET INDEX FROM FILE                 DBGPHCT  1217
                                                  EQ     WRTMS1                                                  DBGPHCT  1218
                                                                                                                 DBGPHCT  1219
                                         WRTMS1B  STORE  =XFI.DBG,NAA=1    PRESET NEXT AVAILABLE WRITE ADDR = 1  DBGPHCT  1220
                                                  EQ     WRTMS1      EXIT                                        DBGPHCT  1221
                                                                                                                 DBGPHCT  1222
                                         #RM      ENDIF                                                          DBGPHCT  1223
                                                                                                                 DBGPHCT  1224
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    33
         WRTMS , RDMS - RANDOM I/O SUBROUTINES
  
                                        ***                                                                      DBGPHCT  1226
                                        *         WRTMS2 - MOVE WORDS FROM AN AREA LIST TO DEBUG FILE BUFFER     DBGPHCT  1227
                                        *                FOR RECORD MANAGER I/O A RECORD IS WRITTEN TO           DBGPHCT  1228
                                        *                THE FILE.                                               DBGPHCT  1229
                                        *                                                                        DBGPHCT  1230
                                        *         ENTRY  FROM FTN ROUTINE -                                      DBGPHCT  1231
                                        *                CALL WRTMS2( FWA , LENGTH , RECORD NO )                 DBGPHCT  1232
                                        *                (A1) = FWA OF PARAMETER LIST                            DBGPHCT  1233
                                        *                                                                        DBGPHCT  1234
                                        *         EXIT   (B1) = 1                                                DBGPHCT  1235
                                        *                                                                        DBGPHCT  1236
                                        *         USES   X - 1 THRU 6                                            DBGPHCT  1237
                                        *                A - 1 THRU 6                                            DBGPHCT  1238
                                        *                B - 1, 4                                                DBGPHCT  1239
                                        *                                                                        DBGPHCT  1240
                                        *         CALLS  WRITEW                                                  DBGPHCT  1241
                                                                                                                 DBGPHCT  1242
           701  0400400701 +             WRTMS2   ENTRY. **                                                      DBGPHCT  1243
                                                                                                                 DBGPHCT  1244
                                         #RM      IFNE   CP#RM,0                                                 DBGPHCT  1245
                                                  FETCH  =XFI.DBG,NAA,X7   NEXT AVAILABLE WRITE ADDRESS          DBGPHCT  1246
                                         #RM      ENDIF                                                          DBGPHCT  1247
                                                                                                                 DBGPHCT  1248
           702  6110000001                        SB1    1                                                       DBGPHCT  1249
                          54211                   SA2    A1+B1                                                   DBGPHCT  1250
                               54321              SA3    A2+B1                                                   DBGPHCT  1251
           703  5140000502 +                      SA4    D.TEMP                                                  DBGPHCT  1252
                          53220                   SA2    X2                (X2) = TRANSFER LENGTH (WORDS)        DBGPHCT  1253
           704  0314000707 +                      NZ     X4,WRTMS21        IF NOT THE INITIAL WRITE              DBGPHCT  1254
                          5150000024 C            SA5    SDBGIND                                                 DBGPHCT  1255
           705  6245777776 C                      SB4    X5+DEBUG-1        ABSOLUTE ADDRE                        DBGPHCT  1256
                          53330                   SA3    X3                RECORD NUMBER                         DBGPHCT  1257
                               73634              SX6    X3+B4                                                   DBGPHCT  1258
           706  54640                             SA6    A4                SET FLAG FOR NEXT NOT INITIAL WRITE   DBGPHCT  1259
                                                                                                                 DBGPHCT  1260
                                         #RM      IFEQ   CP#RM,0                                                 DBGPHCT  1261
                                                                                                                 DBGPHCT  1262
                     5160000006 X                 SA6    F.DEBUG+I.RAN1    SET ADDRESS TO STORE DISK ADDR IN     DBGPHCT  1263
           707  63610                    WRTMS21  WRITEW F.DEBUG,X1,X2                                           DBGPHCT  1264
                                                                                                                 DBGPHCT  1265
                                         #RM      ELSE                                                           DBGPHCT  1266
                                                                                                                 DBGPHCT  1267
                                                  SA7    X6          UPDATE INDEX CONTROL WORD                   DBGPHCT  1268
                                         WRTMS21  PUTW   =XFI.DBG,X1,X2,,X7                                      DBGPHCT  1269
                                                  FETCH  =XFI.DBG,WA,X1                                          DBGPHCT  1270
                                                  STORE  =XFI.DBG,NAA=X1   UPDATE NEXT AVAILABLE WRITE ADDRESS   DBGPHCT  1271
                                                                                                                 DBGPHCT  1272
                                         #RM      ENDIF                                                          DBGPHCT  1273
                                                                                                                 DBGPHCT  1274
           711  0400000701 +                      EQ     WRTMS2      EXIT                                        DBGPHCT  1275
  
  
  
                                        ***                                                                      DBGPHCT  1277
                                        *         WRTMS3 - TERMINATE RANDOM RECORD ON DEBUG FILE                 DBGPHCT  1278
                                        *                    AND CLEAR FLAG TO INITIAL WRITE.                    DBGPHCT  1279
                                        *                    FOR RECORD MANAGER CLEAR THE FLAG ONLY.             DBGPHCT  1280
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    34
         WRTMS , RDMS - RANDOM I/O SUBROUTINES
  
                                        *                                                                        DBGPHCT  1281
                                        *         ENTRY  FROM FTN ROUTINE - CALL WRTMS3                          DBGPHCT  1282
                                        *                (A1) = FWA OF PARAMETER LIST                            DBGPHCT  1283
                                        *                                                                        DBGPHCT  1284
                                        *         EXIT   DEBUG FILE BUFFER FLUSHED AND EOR WRITTEN.              DBGPHCT  1285
                                        *                                                                        DBGPHCT  1286
                                        *         USES   X - 6                                                   DBGPHCT  1287
                                        *                A - 6                                                   DBGPHCT  1288
                                        *                B - NONE                                                DBGPHCT  1289
                                        *                                                                        DBGPHCT  1290
                                        *         CALLS  WRITER                                                  DBGPHCT  1291
                                                                                                                 DBGPHCT  1292
           712  0400400712 +             WRTMS3   ENTRY. **                                                      DBGPHCT  1293
           713  43600                             MX6    0                                                       DBGPHCT  1294
                     5160000502 +                 SA6    D.TEMP            CLEAR FLAG                            DBGPHCT  1295
                                                                                                                 DBGPHCT  1296
                                         #RM      IFEQ   CP#RM,0                                                 DBGPHCT  1297
           714  7120000000 X                      WRITER F.DEBUG,RECALL    WRITE RECORD, FLUSH BUFFER            DBGPHCT  1298
                                         #RM      ENDIF                                                          DBGPHCT  1299
                                                                                                                 DBGPHCT  1300
           716  0400000712 +                      EQ     WRTMS3                                                  DBGPHCT  1301
  
  
  
                                        ***                                                                      DBGPHCT  1303
                                        *         WRTMS4 - CLOSE DEBUG RANDOM FILE                               DBGPHCT  1304
                                        *                                                                        DBGPHCT  1305
                                        *         ENTRY  FROM FTN ROUTINE - CALL WRTMS4                          DBGPHCT  1306
                                        *                                                                        DBGPHCT  1307
                                        *         EXIT   DEBUG FILE CLOSED.                                      DBGPHCT  1308
                                        *                                                                        DBGPHCT  1309
                                        *         USES   X - 6                                                   DBGPHCT  1310
                                        *                A - 6                                                   DBGPHCT  1311
                                        *                B - NONE                                                DBGPHCT  1312
                                        *                                                                        DBGPHCT  1313
                                        *         CALLS  CLOSE                                                   DBGPHCT  1314
                                                                                                                 DBGPHCT  1315
           717  0400400717 +             WRTMS4   ENTRY. **                                                      DBGPHCT  1316
           720  43600                             MX6    0                                                       DBGPHCT  1317
                     5160000040 C                 SA6    D.OPEN            CLEAR FLAG                            DBGPHCT  1318
                                                                                                                 DBGPHCT  1319
                                         #RM      IFEQ   CP#RM,0                                                 DBGPHCT  1320
           721  7120000000 X                      CLOSE  F.DEBUG,NR,RECALL                                       DBGPHCT  1321
                                         #RM      ELSE                                                           DBGPHCT  1322
                                                  FETCH  =XFI.DBG,MXA,X0   INDEX ADDRESS                         DBGPHCT  1323
                                                  FETCH  =XFI.DBG,MXL,X1   INDEX LENGTH                          DBGPHCT  1324
                                                  FETCH  =XFI.DBG,NAA,X2   NEXT AVAILABLE WRITE ADDRESS          DBGPHCT  1325
                                                  STORE  =XFI.DBG,CXA=X2   SAVE FILE ADDRESS OF INDEX            DBGPHCT  1326
                                                  PUTW   =XFI.DBG,X0,X1,,X2  PUT INDEX ON FILE                   DBGPHCT  1327
                                                  CLOSEM =XFI.DBG,N,,WA                                          DBGPHCT  1328
                                         #RM      ENDIF                                                          DBGPHCT  1329
                                                                                                                 DBGPHCT  1330
           723  0400000717 +                      EQ     WRTMS4                                                  DBGPHCT  1331
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    35
         WRTMS , RDMS - RANDOM I/O SUBROUTINES
  
                                        ***                                                                      DBGPHCT  1333
                                        *         RDMS1 - READMS ROUTINE FOR FTN DEBUG ROUTINES                  DBGPHCT  1334
                                        *                                                                        DBGPHCT  1335
                                        *         THE CALLING SEQUENCE IS THE SAME AS FOR THE STANDARD FORTRAN   DBGPHCT  1336
                                        *         READMS ROUTINE.                                                DBGPHCT  1337
                                        *                                                                        DBGPHCT  1338
                                        *         CALL RDMS1 ( ARRAYS, NWDS, NUMBER )                            DBGPHCT  1339
                                        *                                                                        DBGPHCT  1340
                                        *         ENTRY  (A1) = FWA OF PARAMETER LIST                            DBGPHCT  1341
                                        *                                                                        DBGPHCT  1342
                                        *         EXIT   (B1) = 1                                                DBGPHCT  1343
                                        *                                                                        DBGPHCT  1344
                                        *         USES   X - 0 THRU 7                                            DBGPHCT  1345
                                        *                A - 1 THRU 7                                            DBGPHCT  1346
                                        *                B - 1, 5                                                DBGPHCT  1347
                                        *                                                                        DBGPHCT  1348
                                        *         CALLS  READSKP                                                 DBGPHCT  1349
                                                                                                                 DBGPHCT  1350
           724  0400400724 +             RDMS1    ENTRY. **                                                      DBGPHCT  1351
                                                                                                                 DBGPHCT  1352
                                         #RM      IFEQ   CP#RM,0                                                 DBGPHCT  1353
                                                                                                                 DBGPHCT  1354
           725  6110000001                        SB1    1                                                       DBGPHCT  1355
                          54210                   SA2    A1          FWA ARRAY                                   DBGPHCT  1356
                               54321              SA3    A2+B1       (X3) = ADDRESS OF NWDS                      DBGPHCT  1357
           726  43044                             MX0    -24                                                     DBGPHCT  1358
                     54431                        SA4    A3+B1       (X4) = ADDRESS OF RECORD NUMBER             DBGPHCT  1359
                          5150000007 X            SA5    =XF.DEBUG+I.RAN2  INDEX ADDRESS                         DBGPHCT  1360
           727  53440                             SA4    X4          (X4) = RECORD NUMBER                        DBGPHCT  1361
                     63540                        SB5    X4                                                      DBGPHCT  1362
                          53155                   SA1    X5+B5       EXTRACT APPROPRIATE INDEX WORD              DBGPHCT  1363
                               15610              BX6    -X0*X1       RETAIN PRU NUMBER                          DBGPHCT  1364
           730  7110000000 X                      SX1    =XF.DEBUG                                               DBGPHCT  1365
                          55651                   SA6    A5-B1       STORE INTO DISK ADDRESS IN FET              DBGPHCT  1366
                               73720              SX7    X2          FWA                                         DBGPHCT  1367
           731  43052                             MX0    -18                                                     DBGPHCT  1368
                     53330                        SA3    X3          (X3) = NWDS                                 DBGPHCT  1369
                          53211                   SA2    X1+B1       FIRST                                       DBGPHCT  1370
                               11602              BX6    X0*X2                                                   DBGPHCT  1371
           732  36767                             IX7    X6+X7        PRESERVE L FIELD AND RANDOM BIT            DBGPHCT  1372
                     54720                        SA7    A2                                                      DBGPHCT  1373
                          73670                   SX6    X7                                                      DBGPHCT  1374
                               54621              SA6    A2+B1       IN                                          DBGPHCT  1375
           733  36563                             IX5    X6+X3                                                   DBGPHCT  1376
                     54661                        SA6    A6+B1       OUT                                         DBGPHCT  1377
                          54361                   SA3    A6+B1       OLD LIMIT WORD                              DBGPHCT  1378
                               73551              SX5    X5+B1                                                   DBGPHCT  1379
           734  11203                             BX2    X0*X3                                                   DBGPHCT  1380
                     36725                        IX7    X2+X5        NEW LIMIT                                  DBGPHCT  1381
                          54730                   SA7    A3                                                      DBGPHCT  1382
           735  7120000000 X                      READSKP F.DEBUG,RECALL                                         DBGPHCT  1383
           737  0400000724 +                      EQ     RDMS1                                                   DBGPHCT  1384
                                                                                                                 DBGPHCT  1385
                                         #RM      ELSE                                                           DBGPHCT  1386
                                                                                                                 DBGPHCT  1387
                                                  SB1    1                                                       DBGPHCT  1388
                                                  FETCH  =XFI.DBG,MXA,X5  (X5)=FWA OF DEBUG INDEX                DBGPHCT  1389
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    36
         WRTMS , RDMS - RANDOM I/O SUBROUTINES
  
                                                  SA2    A1+B1       (X2)=ADDRESS OF NWDS                        DBGPHCT  1390
                                                  SA3    A2+B1       (X3) = ADDRESS OF RECORD NUMBER             DBGPHCT  1391
                                                  SA2    X2          (X2)=NWDS                                   DBGPHCT  1392
                                                  SA3    X3          (X3) = RECORD NUMBER                        DBGPHCT  1393
                                                  MX0    -24                                                     DBGPHCT  1394
                                                  SB4    X3          (B4)=RECORD NUMBER                          DBGPHCT  1395
                                                  SA4    X5+B4       GET INDEX WORD                              DBGPHCT  1396
                                                  BX6    -X0*X4      FILE WA OF RECORD                           DBGPHCT  1397
                                                  SB5    X2          (B5)=NWDS                                   DBGPHCT  1398
                                                  GETWP  =XFI.DBG,X1,X2,,X6,SKIP                                 DBGPHCT  1399
                                                  SB3    B0                                                      DBGPHCT  1400
                                         RDMS1A   SB4    B5-B3       (B4)=WORDS REMAINING TO GET                 DBGPHCT  1401
                                                  SB2    X2          (B2)=WORDS JUST GOTTEN                      DBGPHCT  1402
                                                  GE     B2,B4,RDMS1 IF READ TRANSFER COMPLETE, EXIT             DBGPHCT  1403
                                                  SB3    B2+B3       (B3)=WORDS READ SO FAR                      DBGPHCT  1404
                                                  SX2    B5-B3       (X2)=WORDS REMAINING TO GET                 DBGPHCT  1405
                                                  SX1    X1+B2       (X1)=NEW ADDRESS IN ARRAYS TO READ INTO     DBGPHCT  1406
                                                  GETWP  =XFI.DBG,X1,X2                                          DBGPHCT  1407
                                                  EQ     RDMS1A                                                  DBGPHCT  1408
                                                                                                                 DBGPHCT  1409
                                         #RM      ENDIF                                                          DBGPHCT  1410
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    37
        CFO - CHECK FIRST OCCURRENCE OF NAME                          CFO 
  
                                        **        CFO - CHECK FIRST OCCURRENCE OF A NAME IN A FORTRAN STATEMENT  DBGPHCT  1412
                                        *         WHEN THE NAME HAS BEEN PREVIOUSLY MENTIONED IN A DEBUG         DBGPHCT  1413
                                        *         STATEMENT.  CHECKS SETTING OF DEBUG BITS AGAINST USEAGE IN     DBGPHCT  1414
                                        *         CONTEXT.                                                       DBGPHCT  1415
                                        *                                                                        DBGPHCT  1416
                                        *         ON ENTRY:                                                      DBGPHCT  1417
                                        *                A0-A2, X1,X2,X6,X7 AS SET BY SYMBOL AT FIRST OCCURANCE  DBGPHCT  1418
                                        *                EXIT.                                                   DBGPHCT  1419
                                        *                X0 = CONTEXT FLAG, 0 IF A VAR OR ARRAY , 1 IF EXTERNAL  DBGPHCT  1420
                                        *                                                                        DBGPHCT  1421
                                        *         ON EXIT:                                                       DBGPHCT  1422
                                        *                IF SETTING OF DEBUG BITS MATCHS PRESENT CONTEXT         DBGPHCT  1423
                                        *                 THEN X2 = X2+X7                                        DBGPHCT  1424
                                        *                ELSE INFORMATIVE ERROR MESSAGE ISSUED, DEBUG BIT FIELD  DBGPHCT  1425
                                        *                CLEARED, SYMBOL TABLE ENTRY UPDATED AND X1,X2,X6        DBGPHCT  1426
                                        *                AS THEY WERE ON ENTRY ( ALONG WITH A0,B1,B2,A1,A2 )     DBGPHCT  1427
                                                                                                                 DBGPHCT  1428
                                                                                                                 DBGPHCT  1429
           740  0400400740 +             CFO      SUBR   =           ** ENTRY/EXIT **                            DBGPHCT  1430
           741  36227                             IX2    X2+X7             RESTORE DEBUG BITS                    DBGPHCT  1431
                     21740                        AX7    P.IF                                                    DBGPHCT  1432
                          7130000001              SX3    1                                                       DBGPHCT  1433
           742  11737                             BX7    X3*X7             IF BIT                                DBGPHCT  1434
                     37007                        IX0    X0-X7                                                   DBGPHCT  1435
                          0300000740 +            ZR     X0,EXIT.          IF NO CONFLICT                        DBGPHCT  1436
           743  0100000745 +                      RJ     DBGCUN            ISSUE ERROR MESSAGE                   DBGPHCT  1437
           744  0400000740 +                      EQ     EXIT.                                                   DBGPHCT  1438
  
  
  
  
                                        **        DBGCUN - ISSUE ERROR MESSAGE FOR ILLEGAL MENTION OF A NAME     DBGPHCT  1440
                                        *         IN A DEBUG STMT                                                DBGPHCT  1441
                                                                                                                 DBGPHCT  1442
                                                                                                                 DBGPHCT  1443
           745  0400400745 +             DBGCUN   SUBR   =           ** ENTRY/EXIT **                            DBGPHCT  1444
           746  43060                             MX0    60-12                                                   DBGPHCT  1445
                     15720                        BX7    -X0*X2            SAVE P- FIELD                         DBGPHCT  1446
                          5160001032 +            SA6    TEMP              SAVE X6 ( SAVED NATURAL TYPE )        DBGPHCT  1447
           747  54720                             SA7    A2                UPDATE WORD B OF SYMTAB               DBGPHCT  1448
                     76610                        SX6    B1                                                      FCC2053     7
                          10266                   BX2    X6                                                      FCC2053     8
           750  5160001041 +                      SA6    SAVORD      SAVE ORDINAL OF SYMBOL ENTRY                FCC2053     9
                          0100000000 X            CALL   PSYM              FORMAT NAME FOR ERPRO                 DBGPHCT  1450
           751  13444                             POSTER SEV=INF,NR=E.DCUN,FMT=DPC,TXT=X3                        DBGPHCT  1451
           753  5130000012                        SA3    SYM1              RESTORE REGISTERS                     DBGPHCT  1452
                          5140001032 +            SA4    TEMP                                                    DBGPHCT  1453
           754  5110001041 +                      SA1    SAVORD                                                  FCC2053    10
                          53030                   SA0    X3                                                      FCC2053    11
                               63110              SB1    X1                                                      FCC2053    12
           755  66211                             SB2    B1+B1             2*ORD                                 DBGPHCT  1455
                     55102                        SA1    A0-B2             WORD A OF SYMTAB ENTRY                DBGPHCT  1456
                          55215                   SA2    A1-B5             WORD B                                DBGPHCT  1457
                               10644              BX6    X4                RESTORE X6                            DBGPHCT  1458
           756  0400000745 +                      EQ     EXIT.                                                   DBGPHCT  1459
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    38
         DSYMTAB - FORTRAN LINKAGE TO SYMBOL TABLE
  
                                        ***                                                                      DBGPHCT  1461
                                        *         DSYMTAB - CALL SYMBOL FOR A FORTRAN DEBUG PROCESSOR ROUTINE    DBGPHCT  1462
                                        *                                                                        DBGPHCT  1463
                                        *         CALLING SEQUENCE:                                              DBGPHCT  1464
                                        *                CALL DSYMTAB( NAME , ORD*2 )                            DBGPHCT  1465
                                        *         OR     ORD*2 = DSYMTAB( NAME )                                 DBGPHCT  1466
                                        *                                                                        DBGPHCT  1467
                                                                                                                 DBGPHCT  1468
                                                                                                                 DBGPHCT  1469
                                        *         FIRST OCCURRENCE.                                              DBGPHCT  1470
                                                                                                                 DBGPHCT  1471
           757  7100000017               DSYM1    SX0    T.DBG                                                   DBGPHCT  1472
                          20070                   LX0    P.TYP                                                   DBGPHCT  1473
                               12202              BX2    X0+X2             SET TYPE T.UDV                        DBGPHCT  1474
           760  20647                             LX6    P.SNT-P.TYP                                             DBGPHCT  1475
                     12762                        BX7    X6+X2             SAVE NATURAL TYPE                     DBGPHCT  1476
                          54720                   SA7    A2                                                      DBGPHCT  1477
           761  5150001031 +             DSYMX    SA5    TEMPA0                                                  DBGPHCT  1478
                          5120000013              SA2    SYMEND                                                  DBGPHCT  1479
           762  7160777776 C                      SX6    DEBUG-1                                                 DBGPHCT  1480
                          37626                   IX6    X2-X6                                                   DBGPHCT  1481
           763  5160000010 C                      SA6    D.ESMTB           UPDATE SYMEND FOR FTN ROUTINES        DBGPHCT  1482
                          54255                   SA2    A5+B5             ADDR OF SECOND ARG OR 0               DBGPHCT  1483
                               76611              SX6    B1+B1             X6 = 2*ORD                            DBGPHCT  1484
           764  53050                             SA0    X5                RESTORE A0                            DBGPHCT  1485
                     0302000765 +                 ZR     X2,DSYMTAB        IF CALLED AS A FUNCTION               DBGPHCT  1486
                               53620              SA6    X2                                                      DBGPHCT  1487
                                                                                                                 DBGPHCT  1488
           765  00000000000000000000     DSYMTAB  ENTRY.                                                         DBGPHCT  1489
           766  5021000001                        SA2    A1+1                                                    DBGPHCT  1490
                          53110                   SA1    X1                SYMBOL                                DBGPHCT  1491
                               10722              BX7    X2                                                      DBGPHCT  1492
           767  74600                             SX6    A0                                                      DBGPHCT  1493
                     5160001031 +                 SA6    TEMPA0            SAVE A0                               DBGPHCT  1494
           770  5170001032 +                      SA7    TEMP                                                    DBGPHCT  1495
                          6170000772 +            SYMBOL                   ENTER IN SYMTAB                       DBGPHCT  1496
           772  0307000757 +                      ZR     X7,DSYM1          IF THE FIRST TIME                     DBGPHCT  1497
                          0400000761 +            EQ     DSYMX             REPEATED MENTION IN A DEBUG STMT      DBGPHCT  1498
                                                                                                                 DBGPHCT  1499
                                        *         NAME IN SYMBOL TABLE DUE TO FIRST OCCURRANCE IN A "FORTRAN"    DBGPHCT  1500
                                        *         STATEMENT                                                      DBGPHCT  1501
                                                                                                                 DBGPHCT  1502
           773  10322                             BX3    X2                                                      DBGPHCT  1503
                     43070                        MX0    60-L.TYP                                                DBGPHCT  1504
                          7151777776              SX5    B1-1                                                    DBGPHCT  1505
           774  0315000777 +                      NZ     X5,DSYM2          IF ORDINAL NOT PROGRAM UNIT NAME      DBGPHCT  1506
                          5140000000 X            SA4    =XVALUE.                                                DBGPHCT  1507
           775  0304000761 +                      ZR     X4,DSYMX          IF NOT A FUNCTION SUBPROGRAM          DBGPHCT  1508
                          63140                   SB1    X4                                                      DBGPHCT  1509
           776  0400000761 +                      EQ     DSYMX                                                   DBGPHCT  1510
           777  21370                    DSYM2    AX3    P.TYP                                                   DBGPHCT  1511
                     15430                        BX4    -X0*X3            TYPE                                  DBGPHCT  1512
                          7254777772              SX5    X4-T.ECS                                                DBGPHCT  1513
          1000  0335000761 +                      NG     X5,DSYMX          IF A LEGAL TYPE                       DBGPHCT  1514
                          76210                   SX2    B1                                                      DBGPHCT  1515
          1001  0100000000 X                      CALL   PSYM              FORMAT THE NAME FOR ERPRO             DBGPHCT  1516
          1002  13444                             POSTER SEV=INF,NR=E.IMDS,FMT=DPC,TXT=X3,RETURN=DSYMX           DBGPHCT  1517
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    39
         DSYMTAB - FORTRAN LINKAGE TO SYMBOL TABLE                    FIXPNTR 
  
                                        **        FIXPNTR - RESET ADDRESSES FROM FORTRAN SUBROUTINE VALUES.      DBGPHCT  1519
                                                                                                                 DBGPHCT  1520
                                                                                                                 DBGPHCT  1521
          1004  0400401004 +             FIXPNTR  SUBR   =           ** ENTRY/EXIT **                            DBGPHCT  1522
          1005  6150000001                        SB5    1                                                       DBGPHCT  1523
                          5120000007 C            SA2    D.SSMTB     ADDRESS OF START OF SYMBOL TABLE            DBGPHCT  1524
          1006  7110777776 C                      SX1    DEBUG-1     LOCATION OF BLANK COMMON                    DBGPHCT  1525
                          36621                   IX6    X2+X1                                                   DBGPHCT  1526
          1007  5130000010 C                      SA3    D.ESMTB                                                 DBGPHCT  1527
                          5140000015 C            SA4    D.ELAST     ADDRESS OF END OF ELIST                     DBGPHCT  1528
          1010  5160000012                        SA6    SYM1        SYM1 = D.SSMTB+DEBUG-1                      DBGPHCT  1529
                          36731                   IX7    X3+X1                                                   DBGPHCT  1530
                               36641              IX6    X4+X1                                                   DBGPHCT  1531
          1011  5170000013                        SA7    SYMEND                                                  DBGPHCT  1532
                          5120000014 C            SA2    D.LELST                                                 DBGPHCT  1533
          1012  5130000013 C                      SA3    D.ELIST                                                 DBGPHCT  1534
                          5160000000 X            SA6    =XLWAWORK    LWAWORK = D.ELAST+DEBUG-1                  DBGPHCT  1535
          1013  36721                             IX7    X2+X1                                                   DBGPHCT  1536
                     36631                        IX6    X3+X1                                                   DBGPHCT  1537
                          5170000034              SA7    LELIST      LELIST = D.LELST+DEBUG-1                    DBGPHCT  1538
          1014  5160000032                        SA6    SELIST      SELIST = D.ELIST+DEBUG-1                    DBGPHCT  1539
                          0400001004 +            EQ     EXIT.                                                   DBGPHCT  1540
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    40
        DINPH2 - INITIALIZE DEBUG PROCESSOR FOR PHASE 2               DINPH2
  
                                        **        DINPH2 - INITIALIZE DEBUG PROCESSOR FOR PHASE 2.               DBGPHCT  1542
                                                                                                                 DBGPHCT  1543
                                                                                                                 DBGPHCT  1544
          1015  0400401015 +             DINPH2   SUBR   =           ** ENTRY/EXIT **                            DBGPHCT  1545
          1016  5150000000 X                      SA5    L.DCON                                                  DBGPHCT  1546
                          0305001024 +            ZR     X5,DINPH2A        IF NO CONSTANTS                       DBGPHCT  1547
                                                                                                                 DBGPHCT  1548
                                        *         MOVE CONSTANTS ENCOUNTERED DURING PHASE 1 TO THE CON TABLE     DBGPHCT  1549
                                                                                                                 DBGPHCT  1550
          1017  5100000000 X                      ALLOC  CON,X5            GET SPACE                             DBGPHCT  1551
          1020  5110000000 X                      SA1    L.DCON                                                  DBGPHCT  1552
                          5120000000 X            SA2    O.DCON                                                  DBGPHCT  1553
          1021  5130000000 X                      SA3    O.CON                                                   DBGPHCT  1554
                          10611                   BX6    X1                                                      DBGPHCT  1555
          1022  5160000000 X                      SA6    L.CON             SET LENGTH OF CON TABLE               DBGPHCT  1556
                          6110000001              MOVE   X1,X2,X3                                                DBGPHCT  1557
                                                                                                                 DBGPHCT  1558
          1024  5110001240 +             DINPH2A  SYMBOL =8RLABEL.         LABEL. TO SYMTAB                      DBGPHCT  1559
          1026  5130000000 X                      SA3    =XWB.CON                                                DBGPHCT  1560
                          12732                   BX7    X3+X2             SET WORD B BITS                       DBGPHCT  1561
                               76610              SX6    B1                                                      DBGPHCT  1562
          1027  54720                             SA7    A2                                                      DBGPHCT  1563
                     5160000000 X                 SA6    =XLABEL.          SAVE ORDINAL                          DBGPHCT  1564
          1030  0400001015 +                      EQ     EXIT.                                                   DBGPHCT  1565
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    41
         DCONV - CONVERT CONSTANT FOR DEBUG PROCESSOR 
  
          1031                     1     TEMPA0   BSS    1                 SAVED VALUE OF A0                     DBGPHCT  1568
          1032                     4     TEMP     BSS    4                 MUST COME AFTER TEMPA0                DBGPHCT  1569
          1036                     1     SIGN     BSS    1                 0 OR -0                               DBGPHCT  1570
          1037                     1     WORDS    BSS    1                 WORD COUNT - 1                        DBGPHCT  1571
          1040                     1     CONTYPE  BSS    1                 CONSTANT TYPE CODE                    DBGPHCT  1572
          1041                     1     SAVORD   BSS    1           SAVED ORDINAL OF SYMBOL ENTRY (DBGCUN)      FCC2053    13
                                                                                                                 DBGPHCT  1573
                                        ***                                                                      DBGPHCT  1574
                                        *         DCONV - ENTER A CONSTANT IN THE CON TABLE FOR THE DEBUG        DBGPHCT  1575
                                        *         OPTION PROCESSOR                                               DBGPHCT  1576
                                        *                                                                        DBGPHCT  1577
                                        *         ON ENTRY:                                                      DBGPHCT  1578
                                        *                X1 = LOCF(ELIST)                                        DBGPHCT  1579
                                        *                 = POINTER TO START OF CONSTANT                         DBGPHCT  1580
                                        *                                                                        DBGPHCT  1581
                                        *         ON EXIT:                                                       DBGPHCT  1582
                                        *                X6 = 42/0,3/TYPE,1/FLAG,14/ORDINAL                      DBGPHCT  1583
                                        *                WHERE FLAG = 1 IF CONSTANT IS ENTERED IN GLOBAL TABLE   DBGPHCT  1584
                                        *         OR X6 .LT. 0 IF AN ERROR OCCURED                               DBGPHCT  1585
                                        *                ELIST IS ADVANCED TO POINT PAST THE CONSTANT            DBGPHCT  1586
                                        *                                                                        DBGPHCT  1587
                                                                                                                 DBGPHCT  1588
                                        *         ERROR EXIT                                                     DBGPHCT  1589
                                                                                                                 DBGPHCT  1590
          1042  43601                    DCONV.E  MX6    1                                                       DBGPHCT  1591
                     5110001031 +                 SA1    TEMPA0            RESTORE A0                            DBGPHCT  1592
                               53010              SA0    X1                                                      DBGPHCT  1593
          1043  0400001046 +                      EQ     DCONV                                                   DBGPHCT  1594
                                                                                                                 DBGPHCT  1595
                                        *         NORMAL EXIT                                                    DBGPHCT  1596
                                                                                                                 DBGPHCT  1597
          1044  5120001040 +             DCONVX   SA2    CONTYPE                                                 DBGPHCT  1598
                          20217                   LX2    15                POSITION TYPE                         DBGPHCT  1599
                               12612              BX6    X1+X2             42/0,3/TYPE,1/FLAG,14/ORDINAL         DBGPHCT  1600
          1045  5150001031 +                      SA5    TEMPA0                                                  DBGPHCT  1601
                          53050                   SA0    X5                RESTORE A0                            DBGPHCT  1602
                                                                                                                 DBGPHCT  1603
          1046  00000000000000000000     DCONV    ENTRY.                                                         DBGPHCT  1604
          1047  53210                             SA2    X1                RELATIVE ELIST POINTER                DBGPHCT  1605
                     6170777776 C                 SB7    DEBUG-1                                                 DBGPHCT  1606
                               53427              SA4    X2+B7             FIRST ELEMENT                         DBGPHCT  1607
          1050  26124                             UX1    B2,X4                                                   DBGPHCT  1608
                     6150000001                   SB5    1                                                       DBGPHCT  1609
                               74600              SX6    A0                                                      DBGPHCT  1610
          1051  5160001031 +                      SA6    TEMPA0            SAVE A0                               DBGPHCT  1611
                                                                                                                 DBGPHCT  1612
                          43700                   MX7    0                                                       DBGPHCT  1613
          1052  6130000006                        IF.EQ  EL.(,DCONV.C      IF A COMPLEX CONSTANT                 DBGPHCT  1614
          1053  0420001057 +                      IF.EQ  CON,DCONV2        IF A CONSTANT                         DBGPHCT  1615
                          6130000021              IF.EQ  EL.PLUS,DCONV1    IF A +                                DBGPHCT  1616
                          6130000020              IF.NE  EL.MINUS,DCONV.E  IF NOT -                              DBGPHCT  1617
                          43774                   MX7    60                                                      DBGPHCT  1618
          1056  55445                    DCONV1   NEXTE                                                          DBGPHCT  1619
                          0520001042 +            IF.NE  CON,DCONV.E       IF NOT A CONSTANT                     DBGPHCT  1620
                                                                                                                 DBGPHCT  1621
          1057  5170001036 +             DCONV2   SA7    SIGN              SAVE SIGN                             DBGPHCT  1622
                          66775                   SB7    B7+B5                                                   DBGPHCT  1623
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    42
         DCONV - CONVERT CONSTANT FOR DEBUG PROCESSOR 
  
                               75647              SX6    A4-B7             UPDATE ELIST POINTER                  DBGPHCT  1624
          1060  54620                             SA6    A2                                                      DBGPHCT  1625
                                                                                                                 DBGPHCT  1626
                     21155                        AX1    45                                                      DBGPHCT  1627
                          10611                   BX6    X1                                                      DBGPHCT  1628
          1061  7221777774                        SX2    X1-T.DBL                                                DBGPHCT  1629
                          5160001040 +            SA6    CONTYPE           SAVE CONSTANT TYPE                    DBGPHCT  1630
          1062  43700                             MX7    0                                                       DBGPHCT  1631
                     0312001063 +                 NZ     X2,DCONV3         IF NOT DOUBLE                         DBGPHCT  1632
                               76750              SX7    B5                                                      DBGPHCT  1633
          1063  5170001037 +             DCONV3   SA7    WORDS             SAVE WORD COUNT - 1                   DBGPHCT  1634
                          10144                   BX1    X4                                                      DBGPHCT  1635
                               67105              SB1    -B5                                                     DBGPHCT  1636
          1064  0100000000 X                      CALL   CONVERT           CONVERT THE CONSTANT                  DBGPHCT  1637
          1065  10611                             BX6    X1                                                      DBGPHCT  1638
                     22702                        LX7    X2                                                      DBGPHCT  1639
                          5160001032 +            SA6    TEMP                                                    DBGPHCT  1640
          1066  54765                             SA7    A6+B5             SAVE CONSTANT                         DBGPHCT  1641
                                                                                                                 DBGPHCT  1642
          1067  5130000031 C             DCONV4   SA3    D.PACK                                                  DBGPHCT  1643
                          7203777776              SX0    X3-1                                                    DBGPHCT  1644
          1070  0300001103 +                      ZR     X0,DCONV.G        IF PROCESSING A PACKET                DBGPHCT  1645
                                                                                                                 DBGPHCT  1646
                          5150000000 X            SA5    =XPHASE                                                 DBGPHCT  1647
          1071  0305001074 +                      ZR     X5,DCONV5         IF PHASE 1                            DBGPHCT  1648
                                                                                                                 DBGPHCT  1649
                                        *         PHASE 2 - ENTER THE CONSTANT IN CONTAB                         DBGPHCT  1650
                                                                                                                 DBGPHCT  1651
                          5140001037 +            SA4    WORDS                                                   DBGPHCT  1652
          1072  63145                             SB1    X4+B5             WORD COUNT                            DBGPHCT  1653
                     0100000000 X                 CALL   CONVERT           ENTER CONSTANT IN CONTAB              DBGPHCT  1654
          1073  21136                             AX1    30                POSITION CA                           DBGPHCT  1655
                     0400001044 +                 EQ     DCONVX                                                  DBGPHCT  1656
                                                                                                                 DBGPHCT  1657
                                        *         PHASE 1 - ENTER THE CONSTANT IN DCON                           DBGPHCT  1658
                                                                                                                 DBGPHCT  1659
          1074  5140000000 X             DCONV5   SA4    O.DCON                                                  DBGPHCT  1660
                          5150000000 X            SA5    L.DCON                                                  DBGPHCT  1661
          1075  43000                             MX0    0                                                       DBGPHCT  1662
                     0100001152 +                 RJ     SRCH              SEARCH FOR A MATCH IN DCON            DBGPHCT  1663
          1076  0720001044 +                      NG     B2,DCONVX         IF A MATCH                            DBGPHCT  1664
                                                                                                                 DBGPHCT  1665
                          5100000000 X            ADDWD  DCON,X1                                                 DBGPHCT  1666
          1100  5150001037 +                      SA5    WORDS                                                   DBGPHCT  1667
                          0305001102 +            ZR     X5,DCONV5A        IF NOT 2 WORDS                        DBGPHCT  1668
          1101  5110001033 +                      ADDWD  A0,TEMP+1         ADD SECOND WORD                       DBGPHCT  1669
                                                                                                                 DBGPHCT  1670
          1102  5110001034 +             DCONV5A  SA1    TEMP+2            ORDINAL                               DBGPHCT  1671
                          0400001044 +            EQ     DCONVX                                                  DBGPHCT  1672
                                                                                                                 DBGPHCT  1673
                                        *         GLOBAL PACKET - SAVE THE CONSTANT THE THE GLOBAL CON TABLE     DBGPHCT  1674
                                                                                                                 DBGPHCT  1675
          1103  5140000000 X             DCONV.G  SA4    =XO.GCON                                                DBGPHCT  1676
                          5150000000 X            SA5    =XL.GCON                                                DBGPHCT  1677
          1104  7100040000                        SX0    1S14              FLAG                                  DBGPHCT  1678
                          0100001152 +            RJ     SRCH              SEARCH FOR A MATCH                    DBGPHCT  1679
          1105  0720001044 +                      NG     B2,DCONVX         IF FOUND                              DBGPHCT  1680
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    43
         DCONV - CONVERT CONSTANT FOR DEBUG PROCESSOR 
  
                                                                                                                 DBGPHCT  1681
                          0100001141 +            RJ     ADDGCON           ADD FIRST WORD TO GCON                DBGPHCT  1682
          1106  5150001037 +                      SA5    WORDS                                                   DBGPHCT  1683
                          0305001102 +            ZR     X5,DCONV5A        IF ONLY 1 WORD                        DBGPHCT  1684
          1107  5110001033 +                      SA1    TEMP+1                                                  DBGPHCT  1685
                          0100001141 +            RJ     ADDGCON           ADD SECOND WORD                       DBGPHCT  1686
          1110  0400001102 +                      EQ     DCONV5A                                                 DBGPHCT  1687
  
  
  
                                        *         PROCESS COMPLEX CONSTANT                                       DBGPHCT  1689
                                                                                                                 DBGPHCT  1690
          1111  6160001032 +             DCONV.C  SB6    TEMP                                                    DBGPHCT  1691
                          0100001127 +            RJ     CHC               CHECK THE REAL PART                   DBGPHCT  1692
          1112  6130000003                        IF.NE  EL.COMMA,DCONV.E  IF NO COMMA                           DBGPHCT  1693
          1113  6160001034 +                      SB6    TEMP+2                                                  DBGPHCT  1694
                          0100001127 +            RJ     CHC               CHECK THE IMAGINARY PART              DBGPHCT  1695
          1114  6130000002                        IF.NE  EL.),DCONV.E      IF NOT A )                            DBGPHCT  1696
          1115  66775                             SB7    B7+B5                                                   DBGPHCT  1697
                     75747                        SX7    A4-B7                                                   DBGPHCT  1698
                          54720                   SA7    A2                UPDATE ELIST POINTER                  DBGPHCT  1699
                                                                                                                 DBGPHCT  1700
          1116  5110001032 +                      SA1    TEMP                                                    DBGPHCT  1701
                          67105                   SB1    -B5                                                     DBGPHCT  1702
          1117  0100000000 X                      CALL   CONVERT           CONVERT THE REAL PART                 DBGPHCT  1703
          1120  5120001033 +                      SA2    TEMP+1            SIGN                                  DBGPHCT  1704
                          13612                   BX6    X1-X2                                                   DBGPHCT  1705
                               55625              SA6    A2-B5             SAVE IN TEMP                          DBGPHCT  1706
                                                                                                                 DBGPHCT  1707
          1121  54125                             SA1    A2+B5             ELIST FOR IMAGINARY PART              DBGPHCT  1708
                     67105                        SB1    -B5                                                     DBGPHCT  1709
                          0100000000 X            CALL   CONVERT                                                 DBGPHCT  1710
          1122  5120001035 +                      SA2    TEMP+3            SIGN OF IMAGINARY PART                DBGPHCT  1711
                          13612                   BX6    X1-X2                                                   DBGPHCT  1712
          1123  5160001033 +                      SA6    TEMP+1                                                  DBGPHCT  1713
                          55165                   SA1    A6-B5             REAL PART                             DBGPHCT  1714
                               10266              BX2    X6                                                      DBGPHCT  1715
          1124  76750                             SX7    B5                                                      DBGPHCT  1716
                     5170001037 +                 SA7    WORDS                                                   DBGPHCT  1717
          1125  7160000004                        SX6    T.CPLX                                                  DBGPHCT  1718
                          5160001040 +            SA6    CONTYPE           SET TYPE                              DBGPHCT  1719
          1126  0400001067 +                      EQ     DCONV4                                                  DBGPHCT  1720
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    44
         DCONV - CONVERT CONSTANT FOR DEBUG PROCESSOR 
  
                                        ***                                                                      DBGPHCT  1722
                                        *         CHC - CHECK HALF OF COMPLEX CONSTANT                           DBGPHCT  1723
                                        *                                                                        DBGPHCT  1724
                                        *         ON ENTRY:                                                      DBGPHCT  1725
                                        *                B6 = TWO WORD AREA TO STORE CONSTANT AND SIGN IN        DBGPHCT  1726
                                        *                A4 = ITEM BEFORE CONSTANT                               DBGPHCT  1727
                                        *                                                                        DBGPHCT  1728
                                        *         ON EXIT:                                                       DBGPHCT  1729
                                        *                A4 POINTS PAST CONSTANT AND B2,X4 HOLD ELIST ITEM       DBGPHCT  1730
                                        *                                                                        DBGPHCT  1731
                                                                                                                 DBGPHCT  1732
          1127  0400401127 +             CHC      SUBR                     ** ENTRY/EXIT **                      DBGPHCT  1733
          1130  55445                             NEXTE                                                          DBGPHCT  1734
                          43700                   MX7    0                                                       DBGPHCT  1735
          1131  0420001135 +                      IF.EQ  CON,CHC2          IF A CONSTANT                         DBGPHCT  1736
                          6130000021              IF.EQ  EL.PLUS,CHC1      IF +                                  DBGPHCT  1737
                          43774                   MX7    60                                                      DBGPHCT  1738
          1133  6130000020                        IF.NE  EL.MINUS,DCONV.E  IF NOT -                              DBGPHCT  1739
          1134  55445                    CHC1     NEXTE                                                          DBGPHCT  1740
                          0520001042 +            IF.NE  CON,DCONV.E       IF NOT A CONSTANT                     DBGPHCT  1741
          1135  10644                    CHC2     BX6    X4                                                      DBGPHCT  1742
                     21155                        AX1    45                                                      DBGPHCT  1743
                          56660                   SA6    B6                SAVE ELIST FOR CONSTANT               DBGPHCT  1744
                               56765              SA7    B6+B5             AND SIGN                              DBGPHCT  1745
          1136  7221777775                        SX2    X1-T.REAL                                               DBGPHCT  1746
                          55445                   NEXTE                                                          DBGPHCT  1747
          1137  0302001127 +                      ZR     X2,EXIT.          IF TYPE REAL                          DBGPHCT  1748
                          0400001042 +            EQ     DCONV.E                                                 DBGPHCT  1749
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    45
         ADDGCON - ADD A WORD TO GLOBAL CON TABLE 
  
                                        ***                                                                      DBGPHCT  1751
                                        *         ADDGCON - ADD A WORD TO THE GLOBAL CON TABLE                   DBGPHCT  1752
                                        *                                                                        DBGPHCT  1753
                                        *         ON ENTRY:                                                      DBGPHCT  1754
                                        *                X1 = WORD TO BE ADDED                                   DBGPHCT  1755
                                        *                                                                        DBGPHCT  1756
                                                                                                                 DBGPHCT  1757
          1140  36023                    ADDGCON1 IX0    X2+X3                                                   DBGPHCT  1758
                     73735                        SX7    X3+B5             LEN = LEN+1                           DBGPHCT  1759
                          53600                   SA6    X0                STORE WORD                            DBGPHCT  1760
                               54730              SA7    A3                                                      DBGPHCT  1761
                                                                                                                 DBGPHCT  1762
          1141  0400401141 +             ADDGCON  SUBR                     ** ENTRY/EXIT **                      DBGPHCT  1763
          1142  5130000000 X                      SA3    =XL.GCON          TABLE LENGTH                          DBGPHCT  1764
                          5120000000 X            SA2    =XO.GCON          TABLE FWA                             DBGPHCT  1765
          1143  7273777467                        SX7    X3-S.GCON                                               DBGPHCT  1766
                          10611                   BX6    X1                                                      DBGPHCT  1767
          1144  0337001140 +                      MI     X7,ADDGCON1       IF TABLE NOT FULL                     DBGPHCT  1768
                          5150001150 +            SA5    GCONF             OVERFLOW-MSG-ISSUED FLAG              DBGPHCT  1769
          1145  0315001147 +                      NZ     X5,ADDGCON2       IF WE ISSUED IT ALREADY               DBGPHCT  1770
                          43601                   MX6    1                                                       DBGPHCT  1771
                               54650              SA6    A5                SET FLAG                              DBGPHCT  1772
          1146  5110001241 +                      SA1    =C/GLOBAL CON TABLE OVERFLOW/                           DBGPHCT  1773
                          0100000542 +            CALL   DBGERR                                                  DBGPHCT  1774
          1147  7110040000               ADDGCON2 SX1    1S14                                                    DBGPHCT  1775
                          0400001044 +            EQ     DCONVX                                                  DBGPHCT  1776
                                                                                                                 DBGPHCT  1777
                                                                                                                 DBGPHCT  1778
                                                                                                                 DBGPHCT  1779
          1150                     1     GCONF    BSSZ   1           .NZ. IF *GCON* OVERFLOW                     DBGPHCT  1780
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    46
         SRCH - SEARCH A CON TABLE
  
                                        ***                                                                      DBGPHCT  1782
                                        *         SRCH - SEARCH A CON TABLE FOR A MATCH                          DBGPHCT  1783
                                        *                                                                        DBGPHCT  1784
                                        *         ON ENTRY:                                                      DBGPHCT  1785
                                        *                X0 = FLAG ( 0 OR 1S14 )                                 DBGPHCT  1786
                                        *                X1,X2 = WORDS 1 AND 2 OF CONSTANT                       DBGPHCT  1787
                                        *                X4,X5 = FWA AND LENGTH OF CON TABLE                     DBGPHCT  1788
                                        *                                                                        DBGPHCT  1789
                                        *         ON EXIT:                                                       DBGPHCT  1790
                                        *                IF A MATCH IS FOUND, THEN                               DBGPHCT  1791
                                        *                 B2 .LT. 0 AND X1 = FLAG+ORDINAL                        DBGPHCT  1792
                                        *                ELSE                                                    DBGPHCT  1793
                                        *                 B2 .GE. 0 AND (TEMP+2) = FLAG+LENGTH OF TABLE          DBGPHCT  1794
                                        *                AND X1,X2 INTACT                                        DBGPHCT  1795
                                        *                                                                        DBGPHCT  1796
                                                                                                                 DBGPHCT  1797
          1151  73101                    SRCHX    SX1    X0+B1                                                   DBGPHCT  1798
                     67205                        SB2    -B5                                                     DBGPHCT  1799
          1152  00000000000000000000     SRCH                                                                    DBGPHCT  1800
          1153  5130001037 +                      SA3    WORDS                                                   DBGPHCT  1801
                          63630                   SB6    X3                WORD COUNT - 1                        DBGPHCT  1802
                               53340              SA3    X4                X3 = CURRENT WORD                     DBGPHCT  1803
          1154  63250                             SB2    X5                B2 = TABLE LENGTH                     DBGPHCT  1804
                     36605                        IX6    X0+X5                                                   DBGPHCT  1805
                          67105                   SB1    -B5               INITIALIZE INDEX                      DBGPHCT  1806
          1155  66115                    SRCH1    SB1    B1+B5                                                   DBGPHCT  1807
                     13713                        BX7    X1-X3             WORD 1 - TABLE ENTRY                  DBGPHCT  1808
                          0612001163 +            GE     B1,B2,SRCH2       IF END OF THE TABLE                   DBGPHCT  1809
          1156  54335                             SA3    A3+B5                                                   DBGPHCT  1810
                     0317001155 +                 NZ     X7,SRCH1          IF NO HIT                             DBGPHCT  1811
          1157  0337001155 +                      NG     X7,SRCH1          IF COMPLEMENTS                        DBGPHCT  1812
                          0460001151 +            ZR     B6,SRCHX          IF ONLY 1 WORD                        DBGPHCT  1813
          1160  66315                             SB3    B1+B5                                                   DBGPHCT  1814
                     13723                        BX7    X2-X3             WORD 2 - TABLE ENTRY                  DBGPHCT  1815
                          0632001163 +            GE     B3,B2,SRCH2       IF END OF THE TABLE                   DBGPHCT  1816
          1161  0317001155 +                      NZ     X7,SRCH1          IF NO HIT                             DBGPHCT  1817
                          0327001151 +            PL     X7,SRCHX          IF NOT COMPLEMENTS                    DBGPHCT  1818
          1162  0400001155 +                      EQ     SRCH1                                                   DBGPHCT  1819
                                                                                                                 DBGPHCT  1820
                                        *         NOT FOUND EXIT                                                 DBGPHCT  1821
                                                                                                                 DBGPHCT  1822
          1163  5160001034 +             SRCH2    SA6    TEMP+2            SAVE FLAG+ORDINAL                     DBGPHCT  1823
                          0400001152 +            EQ     SRCH                                                    DBGPHCT  1824
  
  
  
  
                                                  LIST   D                                                       DBGPHCT  1826
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        PROGNAM 
             0 X                        DFLAG 
             0 X                        DSL 
             0 X                        N.LINES 
             0 X                        N.FERR
             0 X                        F.IN
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    47
         SRCH - SEARCH A CON TABLE                                    LITERALS
  
             0 X                        FV.IN 
             0 X                        FA=SET
             0 X                        LWAWORK 
             0 X                        BUGPRO
             0 X                        FWAWORK 
             0 X                        SAVREG
             0 X                        RESREG
             0 X                        BUGCLO
             0 X                        GL.IND
             0 X                        WRM 
             0 X                        FSTEX 
             0 X                        BUGACT
             0 X                        DUKE1 
             0 X                        BUGCON
             0 X                        TURNON
             0 X                        PLO 
             0 X                        MVE=
             0 X                        GL.DRL
             0 X                        LASTREC 
             0 X                        GL.DVL
             0 X                        TL.PTYP 
             0 X                        CONSTOR 
             0 X                        IDENTOK 
             0 X                        SCANNER 
             0 X                        CP.CARD 
             0 X                        LSL 
             0 X                        FA=LOL
             0 X                        PUTUPDT 
             0 X                        PACK7 
             0 X                        WNB=
             0 X                        CIO=
             0 X                        WTW=
             0 X                        F.DEBUG 
             0 X                        PSYM
             0 X                        ERPROI
             0 X                        SYMBOL
             0 X                        VALUE.
             0 X                        Z.CON 
             0 X                        ALLOC 
             0 X                        WB.CON
             0 X                        LABEL.
             0 X                        CONVERT 
             0 X                        PHASE 
             0 X                        Z.DCON
             0 X                        ADDWD 
             0 X                        O.GCON
             0 X                        L.GCON
  
                                        CONTENT OF LITERALS BLOCK.
  
          1164  55555555550405022507         DEBUG
          1165  55200103130524555555     PACKET 
          1166  00000000000000000000
          1167  03535504050225075523    C$ DEBUG S
          1170  24012405150516245515    TATEMENT M
          1171  11232311160755172255    ISSING OR 
          1172  02010455012455232401    BAD AT STA
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    48
         SRCH - SEARCH A CON TABLE                                    LITERALS
  
          1173  22245517065520010313    RT OF PACK
          1174  05245700000000000000    ET. 
          1175  16171646040502250755    NON-DEBUG 
          1176  14111605550617251604    LINE FOUND
          1177  55171655053024052216     ON EXTERN
          1200  01145504050225075506    AL DEBUG F
          1201  11140557575711071617    ILE...IGNO
          1202  22050400000000000000    RED 
          1203  01165505302405221601    AN EXTERNA
          1204  14552001031305245511    L PACKET I
          1205  23551114140507011455    S ILLEGAL 
          1206  02052427050516552022    BETWEEN PR
          1207  17072201155525161124    OGRAM UNIT
          1210  23570000000000000000    S.
          1211  16175504050225075511    NO DEBUG I
          1212  16061722150124111716    NFORMATION
          1213  55061725160455171655     FOUND ON 
          1214  05302405221601145504    EXTERNAL D
          1215  05022507550611140557    EBUG FILE.
          1216  00000000000000000000
          1217  15172205550317220555    MORE CORE 
          1220  16050504050455061722    NEEDED FOR
          1221  55040502250755202217     DEBUG PRO
          1222  03052323111607000000    CESSING 
          1223  00000624160522225755      FTNERR. 
          1224  15172205550317220555    MORE CORE 
          1225  16050504050455061722    NEEDED FOR
          1226  55040502250755151704     DEBUG MOD
          1227  05000000000000000000    E 
          1230  55555555555555555555
          1231  17260522061417275517    OVERFLOW O
          1232  06552301260504552520    F SAVED UP
          1233  04012405551104552401    DATE ID TA
          1234  02140500000000000000    BLE 
          1235  25162205031707161132    UNRECOGNIZ
          1236  05045504050225075523    ED DEBUG S
          1237  24012405150516240000    TATEMENT
          1240  00001401020514575555      LABEL.
          1241  07141702011455031716    GLOBAL CON
          1242  55240102140555172605     TABLE OVE
          1243  22061417270000000000    RFLOW 
  
          1445                                    END                                                            DBGPHCT  1827
  
                             55600B CM  STORAGE USED             2864 STATEMENTS      834 SYMBOLS      000012 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.197 SECONDS         922 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDGCON      1141   PROGRAM*       43/02     43/06     45/13 L
        ADDGCON1     1140   PROGRAM*       45/08 L   45/18
        ADDGCON2     1147   PROGRAM*       45/20     45/25 L
        ADDWD           0   EXTERNAL*      42/43     42/46
        ALLARR          0   DBGBLK1         2/02 E    5/11 L
        ALLCALL         1   DBGBLK1         2/03 E    5/12 L
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        ALLFUNC         2   DBGBLK1         2/04 E    5/13 L
        ALLOC           0   EXTERNAL*      40/10
        ALLROU          6   DBGBLK1         5/17 L    8/10 S
        AREAFLG        61   DBGBLK2         4/57 L   13/15 S
        ATYPE          51                   2/15 D
        BUFF         1244   PROGRAM*       32/16     32/19 L
        BUGACT          0   EXTERNAL*      16/56     17/37     18/02     18/33
        BUGCLO          0   EXTERNAL*       9/03     13/41
        BUGCON          0   EXTERNAL*       8/29     10/47     13/31     15/20     18/15
        BUGPRO          0   EXTERNAL*       7/49     12/29
        CFO           740   PROGRAM*       37/19 L   37/19 E
        CHC          1127   PROGRAM*       43/14     43/17     44/12 L
        CHC1         1134   PROGRAM*       44/16     44/19 L
        CHC2         1135   PROGRAM*       44/15     44/21 L
        CIO=            0   EXTERNAL*       9/21      9/33      9/34     32/12     34/18     34/43     35/51
        CONSTOR         0   EXTERNAL*      24/26
        CONTYPE      1040   PROGRAM*       41/05 L   41/32     42/07 S   43/41 S
        CONVERT         0   EXTERNAL*      42/14     42/31     43/25     43/32
        COUNTUP       111   DBGBLK2         5/05 L   17/23     24/21 S
        CP.CARD         0   EXTERNAL*       8/36      8/48     24/47     27/20
        CP#RM           0   FTNTEXT         9/29 F   31/19 F   32/04 F   33/20 F   33/36 F   34/17 F   34/42 F   35/21 F
        C$STMT          1   NONFTNX         5/23 D   19/22
        C.PACK         64   DBGBLK2         5/03 L    7/29 S   12/39 S
        DBGCUN        745   PROGRAM*       37/26     37/36 L   37/36 E
        DBGEPKT         1   PROGRAM*       11/12 D   11/13 E
        DBGERR        542   PROGRAM*        8/04     10/27     12/55     19/46     26/07 E   29/55
                                            8/51     11/01     14/24     26/07 L   28/29     45/24
        DBGEXTP        62                   6/01 D   15/41     24/35     29/28
        DBGFSTT        47                   5/57 D   12/51     24/41
        DBGINT        260   PROGRAM*       15/05 E   15/05 L   15/32     15/40 S
        DBGINTX       300   PROGRAM*       15/39 E   15/39 L   15/40
        DBGINT2       264   PROGRAM*       15/12 L   15/42     15/44
        DBGINT3       275   PROGRAM*       15/10     15/25     15/27 L   15/45
        DBGINT8       262   PROGRAM*       15/09 L   15/28
        DBGIPKT       156   PROGRAM*       12/05 E   12/05 L   14/16
        DBGMSG        557   PROGRAM*       26/25     26/40 L
        DBGPHCT         7   NONFTNX         5/29 L    7/32 S   10/16 S
        DBGPROG        41   DBGBLK2         4/40 L    7/15 S
        DBGRFMP         6   NONFTNX         5/28 L   20/20 S   21/45
        DCONV        1046   PROGRAM*       41/28     41/38 E   41/38 L
        DCONVX       1044   PROGRAM*       41/32 L   42/33     42/41     42/49     42/57     45/26
        DCONV1       1056   PROGRAM*       41/50     41/53 L
        DCONV2       1057   PROGRAM*       41/49     41/56 L
        DCONV3       1063   PROGRAM*       42/09     42/11 L
        DCONV4       1067   PROGRAM*       42/20 L   43/42
        DCONV5       1074   PROGRAM*       42/25     42/37 L
        DCONV5A      1102   PROGRAM*       42/45     42/48 L   43/04     43/07
        DCONV.C      1111   PROGRAM*       41/48     43/13 L
        DCONV.E      1042   PROGRAM*       41/25 L   41/51     41/54     43/15     43/18     44/18     44/20     44/28
        DCONV.G      1103   PROGRAM*       42/22     42/53 L
        DEBUG           0   //              4/04 L    8/11 S   13/10 S   13/52     22/31     33/31     41/40
                                            7/10      8/43     13/26     19/49     24/28     38/20
                                            7/53     10/39 S   13/49     20/16     31/39     39/07
        DERA          555   PROGRAM*       26/12 S   26/14     26/33 L
        DER2          547   PROGRAM*       26/17 L   26/19
        DFET          677   PROGRAM*       31/25     32/15 L
        DFLAG           0   EXTERNAL*       7/23      8/33      8/47      9/09      9/27 S   10/11 S   10/55
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        DINPH2       1015   PROGRAM*       40/04 L   40/04 E
        DINPH2A      1024   PROGRAM*       40/06     40/18 L
        DISPOW         44   DBGBLK2         4/43 L    9/54     21/13 S
        DLEN          201                  31/01 D   31/34     32/19
        DLO           402   PROGRAM*        8/30     10/48     12/10     12/47     13/32     15/27     17/48     19/20 L
        DMVWDS        475   PROGRAM*       23/12 L   23/12 E
        DOP           307   PROGRAM*       18/48 D   18/49 E
        DSL             0   EXTERNAL*       8/24      9/17
        DSYMTAB       765   PROGRAM*       38/26     38/29 E   38/29 L
        DSYMX         761   PROGRAM*       38/18 L   38/38     38/48     38/50     38/54     38/57
        DSYM1         757   PROGRAM*       38/12 L   38/37
        DSYM2         777   PROGRAM*       38/46     38/51 L
        DTABLE        412   PROGRAM*        7/45     12/19     19/45     19/48 L   20/38
        DTABLEX       406   PROGRAM*       19/42 L   19/51
        DTYPE           1   NONFTNX         5/22 L    5/23
        DUKE           37                   2/18 D   16/39     17/04     17/17
        DUKE1           0   EXTERNAL*      17/05     17/18     25/22
        D.COL           0   NONFTNX         5/21 L    9/12 S   24/19
        D.CONL         22   DBGBLK2         4/25 L
        D.CON1         21   DBGBLK2         4/24 L
        D.CURT         10   NONFTNX         5/30 L
        D.CURUD        51   DBGBLK2         4/50 L   17/35 S   25/38 S   28/18
        D.DOLAST       27   DBGBLK2         4/30 L   18/09     22/49 S
        D.DUKE1        53   DBGBLK2         4/51 L   17/27 S   25/26 S
        D.EAREA         5   DBGBLK2         4/12 L    8/01 S    8/42     13/23     18/13 S
                                            7/22 S    8/16     12/31     15/17 S   20/18 S
        D.EDRL          1   DBGBLK2         4/08 L    8/07     13/07     20/26 S
        D.EDVL          3   DBGBLK2         4/10 L   20/34 S
        D.EFDIT        20   DBGBLK2         4/23 L
        D.ELAST        15   DBGBLK2         4/20 L   21/49 S   21/55     22/43 S   39/10
        D.ELIST        13   DBGBLK2         4/18 L   22/37 S   39/16
        D.ESMTB        10   DBGBLK2         4/15 L   22/47 S   38/22 S   39/09
        D.IDSAV       571   PROGRAM*       25/41     27/18 L   28/19
        D.IDSP        600   PROGRAM*       28/13 L   28/13 E
        D.LABEL        54   DBGBLK2         4/52 L   17/13 S   25/27 S
        D.LELST        14   DBGBLK2         4/19 L   22/40 S   39/15
        D.LSTTP        12                  29/44     30/13 D
        D.NAASI        23   DBGBLK2         4/26 L
        D.NCURU         2   NONFTNX         5/25 L   25/34     25/40
        D.NDUKE         4   NONFTNX         5/26 L   25/20
        D.NEST         56   DBGBLK2         4/54 L    8/23 S   12/32 S   15/13 S   18/07 S
        D.NESTW        16   DBGBLK2         4/21 L    8/20 S    8/40     12/36 S   13/25     15/19 S   18/12 S
        D.NLBEL         5   NONFTNX         5/27 L   25/21
        D.NOERR        35   DBGBLK2         4/36 L
        D.NOGO         30   DBGBLK2         4/31 L   12/09 S   12/54     13/56 S   14/20     19/42     21/41
        D.ON           34   DBGBLK2         4/35 L   16/54 S   17/11 S   17/41     17/57 S   18/31 S
        D.OPEN         40   DBGBLK2         4/39 L   31/42     32/10 S   34/40 S
        D.OPFLG        33   DBGBLK2         4/34 L   14/10 S
        D.OPL           6   DBGBLK2         4/13 L   15/18 S   18/14 S
        D.PACK         31   DBGBLK2         4/32 L    7/33 S   12/35 S   14/11 S   42/20
        D.PADD         36   DBGBLK2         4/37 L   14/12 S
        D.PHCLR       671   PROGRAM*       31/57 L   32/02
        D.PI2         203   PROGRAM*       12/46     12/51 L
        D.PI22        256   PROGRAM*       12/12     12/13     13/38     14/27 L
        D.PI222       237   PROGRAM*       13/48 L   14/29
        D.PI24        215   PROGRAM*       13/20 L   13/33
        D.PI245       220   PROGRAM*       13/24     13/26 L
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        D.PI247       223   PROGRAM*       12/52     12/56     13/16     13/30 L
        D.PI25        251   PROGRAM*       13/51     14/20 L
        D.PI27        245   PROGRAM*       14/07 L   14/21     14/25
        D.PI33        226   PROGRAM*       13/29     13/32 L
        D.PI4         200   PROGRAM*       12/20     12/45 L   12/48
        D.PI45        230   PROGRAM*       12/49     13/37 L
        D.POW          32   DBGBLK2         4/33 L    9/02 S   13/40 S
        D.RESET       446   PROGRAM*        9/08     11/04     21/40 L
        D.RFMAP        12   DBGBLK2         4/17 L   20/24 S
        D.SAASI        11   DBGBLK2         2/08 E    4/16 L   14/03 S
        D.SAREA         4   DBGBLK2         4/11 L    7/21 S    7/57 S   20/15 S
        D.SCON1        26   DBGBLK2         4/29 L   24/31 S
        D.SDRL          0   DBGBLK2         4/07 L   20/25 S
        D.SDVL          2   DBGBLK2         4/09 L   20/31 S
        D.SFDIT        17   DBGBLK2         4/22 L   14/01 S
        D.SSMTB         7   DBGBLK2         4/14 L   22/44 S   39/06
        D.STOR         25   DBGBLK2         4/28 L   24/27 S
        D.STTYP       641   PROGRAM*       29/42     30/03 L   30/13
        D.TEMP        502   PROGRAM*       23/21 L   33/27     34/15 S
        D.TYPE         55   DBGBLK2         4/53 L   25/45 S   29/25 S
        EL.COMMA        3   FTNTEXT        43/15
        EL.MINUS       20   FTNTEXT        41/51     44/18
        EL.PLUS        21   FTNTEXT        41/50     44/16
        EL.(            6   FTNTEXT        41/48
        EL.)            2   FTNTEXT        43/18
        ERPROI          0   EXTERNAL*      37/45     38/57
        E.DCUN         75                   2/25 D   37/45
        E.IMDS         74                   2/24 D   38/57
        FA=LOL          0   EXTERNAL*      26/28
        FA=SET          0   EXTERNAL*       9/32
        FEFLAG         37   DBGBLK2         4/38 L   16/34
        FIXPNTR      1004   PROGRAM*       39/04 L   39/04 E
        FSTEX           0   EXTERNAL*      16/48     18/26
        FV.IN           0   EXTERNAL*       9/22
        FWASAVE         0   PROGRAM*        2/27 L    8/21 S    9/04     12/41 S   13/42
        FWAWORK         0   EXTERNAL*       7/16      8/17      9/06 S   13/27 S   22/45
                                            7/51      8/44 S   12/38     13/47 S   31/47
        F.DEBUG         0   EXTERNAL*      31/21     32/09 S   33/38 S   34/18     35/28     35/51
                                           31/29 S   32/12     33/39     34/43     35/33
        F.IN            0   EXTERNAL*       9/21      9/32      9/33      9/34
        GCONF        1150   PROGRAM*       45/19     45/30 L
        GETTYPE       623   PROGRAM*       15/43     24/37     29/37 L   29/40
        GL.DRL          0   EXTERNAL*      10/01 S   21/02
        GL.DVL          0   EXTERNAL*      10/02 S   21/14
        GL.IND          0   EXTERNAL*      10/07 S   14/15 S   21/01     31/54
        GOTOSFL         3   DBGBLK1         2/05 E    5/14 L
        IDENTOK         0   EXTERNAL*      24/32 S
        INDEXNO       113   DBGBLK2         5/07 L   10/12 S   13/46 S   14/28 S
        ISITDBG       616   PROGRAM*       29/27 L   29/27 E   29/40 S
        ISIT2         614   PROGRAM*       29/21 L   29/51
        ISIT3         615   PROGRAM*       29/23 L   29/35     29/56
        ISIT4         630   PROGRAM*       29/34     29/41 L
        ISIT5         632   PROGRAM*       29/48 L   29/52
        I.CBSET         5   FTNTEXT         9/32
        I.RAN1          6   FTNTEXT        33/38 S
        I.RAN2          7   FTNTEXT        32/09 S   35/28
        LABEL.          0   EXTERNAL*      40/23 S
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        LASTREC         0   EXTERNAL*      10/08 S   21/03
        LDEBUG         42   DBGBLK2         4/41 L    7/14 S
        LELIST         34                   2/17 D   22/33     39/20 S
        LFLAG          47   DBGBLK2         4/46 L
        LNGDRL         62   DBGBLK2         5/01 L    9/51     19/56     20/19     21/07 S
        LNGDVL         63   DBGBLK2         5/02 L    9/52     20/02     20/27     21/16 S
        LNGIND         57   DBGBLK2         4/55 L    7/17      7/52      9/53     14/08     20/10     21/06 S
        LSL             0   EXTERNAL*      26/13
        LTFLAG         46   DBGBLK2         4/45 L
        LWAWORK         0   EXTERNAL*      12/18     13/48     21/44     22/04     22/35     39/17 S
        L.CON           0   EXTERNAL*      40/15 S
        L.DCON          0   EXTERNAL*      13/43     31/40     40/05     40/11     42/38
        L.GCON          0   EXTERNAL*      42/54     45/14
        L.TYP           4   FTNTEXT        38/44
        MIA           435   PROGRAM*        7/34     12/17     20/57 L
        MVE=            0   EXTERNAL*      20/06     21/51     23/16     26/27     40/16
        NLABEL         60                   2/20 D   25/23
        NOACT          60   DBGBLK2         4/56 L   16/49     17/54     18/28     28/14
        NOGOFLG         4   DBGBLK1         2/06 E    5/15 L   16/35
        NOPROG         50   DBGBLK2         4/47 L   12/11
        N.FERR          0   EXTERNAL*       9/20 S
        N.LINES         0   EXTERNAL*       9/19 S    9/46 S
        O.CON           0   EXTERNAL*      40/13
        O.DCON          0   EXTERNAL*      40/12     42/37
        O.GCON          0   EXTERNAL*      42/53     45/15
        PACK7           0   EXTERNAL*      29/31
        PHASE           0   EXTERNAL*      42/24
        PHSFLAG       114   DBGBLK2         5/08 L   15/07 S   15/31 S
        PLO             0   EXTERNAL*      19/21
        POINTRS       463   PROGRAM*        8/28     12/21     15/15     18/01     18/32     22/29 E
                                           10/46     13/30     16/55     18/08     22/29 L
        PROGNAM         0   EXTERNAL*       7/11
        PROGRAM        56                   2/19 D
        PSYM            0   EXTERNAL*      37/44     38/56
        PUTUPDT         0   EXTERNAL*      28/22
        P.EXT          66   FTNTEXT        16/38
        P.IF           40   FTNTEXT        37/21
        P.SNT          43   FTNTEXT        38/15
        P.TYP          70   FTNTEXT        38/13     38/15     38/51
        RA.SSW          0   CPUTEXT         2/18      2/20
        RDMS1         724   PROGRAM*       35/19 E   35/19 L   35/52
        RECORD         43   DBGBLK2         4/42 L    9/55     21/12 S
        RESREG          0   EXTERNAL*       8/04     10/27     12/55     19/46     29/55
                                            8/51     11/01     14/24     28/29
        SAVORD       1041   PROGRAM*       37/43 S   37/48     41/06 L
        SAVREG          0   EXTERNAL*       8/04     10/27     12/55     19/46     29/55
                                            8/51     11/01     14/24     28/29
        SCANNER         0   EXTERNAL*      24/33
        SCNUPDT       112   DBGBLK2         5/06 L   17/12 S   24/22 S   28/15     28/21 S   28/23
        SDBGIND        24   DBGBLK2         4/27 L    7/20 S    7/56 S   10/37     20/14 S   31/41     33/30
        SELIST         32                   2/16 D   12/22     22/07     22/30     29/41     39/21 S
        SIGN         1036   PROGRAM*       41/03 L   41/56 S
        SNS           503   PROGRAM*        7/50      9/47     10/43     12/45     15/09     18/24
                                            8/45     10/25     10/50     13/28     17/53     24/18 L
        SNS1          504   PROGRAM*       24/19 L
        SNS2          507   PROGRAM*       24/25 L   24/25 S
        SNS3          513   PROGRAM*       24/24     24/26 L
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        SNS4          516   PROGRAM*       24/25     24/33 L
        SNS5          521   PROGRAM*       24/36     24/38 L
        SPIDER          7   DBGBLK1         5/18 L    8/06
        SRCH         1152   PROGRAM*       42/40     42/56     46/19 L   46/43
        SRCHX        1151   PROGRAM*       46/17 L   46/32     46/37
        SRCH1        1155   PROGRAM*       46/26 L   46/30     46/31     46/36     46/38
        SRCH2        1163   PROGRAM*       46/28     46/35     46/42 L
        ST.END         15                   2/34 D
        ST.INV         45                   2/35 D
        SUCCESS        45   DBGBLK2         4/44 L    7/47     10/32     12/08 S   12/24 S   13/37
        SYMBOL          0   EXTERNAL*      16/38     38/36     40/18
        SYMEND         13                   2/13 D    7/44     20/29     22/01     22/39     38/19     39/14 S
        SYM1           12                   2/12 D   13/55     20/11     21/56     37/46
                                           13/04     19/55     21/42     22/38     39/11 S
        S.GCON        310   FTNTEXT        45/16
        TDI           527   PROGRAM*       25/19 L   25/19 E
        TEMP         1032   PROGRAM*       37/39 S   38/35 S   42/17 S   42/48     43/13     43/23     43/33     46/42 S
                                           37/47     41/02 L   42/46     43/05     43/16     43/26     43/35 S
        TEMPA0       1031   PROGRAM*       38/18     38/34 S   41/01 L   41/26     41/35     41/45 S
        TEST            0   FTNTEXT         2/39 F
        TL.PTYP         0   EXTERNAL*       7/42 S   22/14 S
        TRACEL          5   DBGBLK1         2/07 E    5/16 L
        TURNON          0   EXTERNAL*      15/26     18/19
        TYPE           24                   2/14 D   10/13     15/21     18/16     24/38     29/22 S   29/32
                                            8/31     13/20     18/03     24/34     25/42     29/29 S   29/54 S
        TYPFLAG       556   PROGRAM*       24/23 S   24/39     26/10 S   26/34 E   26/34 L
        T.CPLX          4   FTNTEXT        43/40
        T.DBG          17   FTNTEXT        38/12
        T.DBL           3   FTNTEXT        42/06
        T.ECS           5   FTNTEXT        38/53
        T.REAL          2   FTNTEXT        44/25
        UPDTTBL        65   DBGBLK2         5/04 L   17/28
        VALUE.          0   EXTERNAL*      38/47
        WB.CON          0   EXTERNAL*      40/19
        WNB=            0   EXTERNAL*      31/21
        WORDS        1037   PROGRAM*       41/04 L   42/11 S   42/29     42/44     43/03     43/39 S   46/20
        WRM             0   EXTERNAL*      16/44
        WRTMS1        653   PROGRAM*       10/36     31/16 E   31/16 L   32/13
        WRTMS1A       667   PROGRAM*       31/46     31/52 L
        WRTMS2        701   PROGRAM*       33/18 E   33/18 L   33/50
        WRTMS21       707   PROGRAM*       33/29     33/39 L
        WRTMS3        712   PROGRAM*       34/13 E   34/13 L   34/21
        WRTMS4        717   PROGRAM*       10/42     34/38 E   34/38 L   34/53
        WTW=            0   EXTERNAL*      33/39
        Z               4                  41/53 D   41/53     44/13 D   44/13     44/19 D   44/19     44/26 D   44/26
        Z.CON           0   EXTERNAL*      40/10
        Z.DCON          0   EXTERNAL*      42/43
  
  
  
  
                                                  SYMBOL QUALIFIER =  DBGEPKT 
  
  
        DBGEPKT         1   PROGRAM*        7/08 L   11/12
        EXP11          43   PROGRAM*        8/28 L    8/46
        EXP12          45   PROGRAM*        8/30 L    8/50
1        DBGPHCT - DEBUG OPTION CONTROLLER                            COMPASS 3.7-871.     24/05/02. 15.57.21.      PAGE    54
        SYMBOLIC REFERENCE TABLE.                                     DBGEPKT 
  
        EXP12A         52   PROGRAM*        8/32      8/39 L
        EXP13          54   PROGRAM*        8/41      8/43 L
        EXP13A         55   PROGRAM*        8/45 L    8/52      8/54
        EXP2           14   PROGRAM*        7/38 L    9/40
        EXP21          65   PROGRAM*        8/35      8/37      8/53      9/01 L
        EXP22          71   PROGRAM*        9/07 L   10/49     11/02
        EXP3           22   PROGRAM*        7/48      7/50 L    8/05
        EXP31         112   PROGRAM*        9/13      9/45 L
        EXP39         114   PROGRAM*        9/51 L   11/05
        EXP4           37   PROGRAM*        8/02      8/16 L
        EXP71         126   PROGRAM*        7/24     10/25 L   10/28
        EXP81         133   PROGRAM*        7/46     10/32 L
        EXP82         140   PROGRAM*       10/33     10/43 L
        EXP83         142   PROGRAM*       10/45 L   10/51
        EXP84         144   PROGRAM*       10/45     10/48 L
        EXP91         147   PROGRAM*        8/03     10/44     10/55 L
        EXP92         154   PROGRAM*       10/57     11/04 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  DOP 
  
  
        DOP           307   PROGRAM*       16/29 L   18/48
        DOPA          377   PROGRAM*       16/44     18/40 L
        DOPB          400   PROGRAM*       16/42 S   16/43 S   17/15 S   17/16     18/41 L
        DOP11         347   PROGRAM*       16/51     16/52     17/09     17/48 L
        DOP12         351   PROGRAM*       17/54 L   18/25
        DOP13         355   PROGRAM*       17/56     18/03 L
        DOP14         370   PROGRAM*       17/49     18/24 L
        DOP2          320   PROGRAM*       16/36     16/37     16/48 L   18/05     18/18     18/20
        DOP3          332   PROGRAM*       17/14 L   17/44
        DOP4          333   PROGRAM*       17/16 L   17/39
        DOP5          342   PROGRAM*       17/32     17/35 L
        DOP6          345   PROGRAM*       17/24     17/41 L
        RJ60          122                  18/39 D   18/40
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      536              IDENT  OUTPK24
                        536                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       527 
                                        LITERALS* LOCAL         527         7 
                                        LINE      COMMON          0        22 
  
  
                                        ENTRY POINTS. 
  
                                        B=OPK24          0+           OUTCR.         115+           REMARK         512+ 
                                        OUTCI.          63+           SETST          475+           SPA.           516+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        MSG=      FA=NPG    N.LINES   MVE=      O.STITL   L.STITL   FA=LOL
  
  
  
  
                                                  IDENT  OUTPK24                                                 OUTPK24     2
             0                           B=OPK24  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     OUTPK24     3
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
                                         .TEST    IFEQ   TEST,0                                                  OUTPK24     5
                                                                                                                 FCC1119     4
                                                  MACRO  FORM,NAME                                               OUTPTK      5
                                        NAME      BSS    0                                                       OUTPTK      6
                                        NAME()    SET    *                                                       OUTPTK      7
                                         FORM     ENDM                                                           OUTPTK      8
                                                                                                                 FCC1119     5
                                        INVOKE    MACRO  FORM                                                    OUTPTK     10
                                                  SB7    FORM                                                    OUTPTK     11
                                                  RJ     RETURN                                                  OUTPTK     12
                                                  RMT                                                            OUTPTK     13
                                                  IF     -DEF,FORM(),1                                           OUTPTK     14
                                                  ERR    FORM NOT INVOKABLE, CHECK CROSS REFERENCES AND CHANGE   OUTPTK     15
                                                  RMT                                                            OUTPTK     16
                                        INVOKE    ENDM                                                           OUTPTK     17
  
  
  
                                        LOCN      MACRO  CHAR,ADDRESS                                            OUTPTK     19
                                        CHARNOW   MICRO  1,0, CHAR                                               OUTPTK     20
                                        LASTCHAR  MICRO  2,1, CHAR                                               OUTPTK     21
                                                  IFC    EQ, "LASTCHAR"  ,1                                      OUTPTK     22
                                        CHARNOW   MICRO  1,0, 1R_CHAR                                            OUTPTK     23
                                        *                                                                        OUTPTK     24
                                         .A       IFLE   "CHARNOW",LASTCHAR                                      OUTPTK     25
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     2
                                                                      LOCN
  
                                                  ERR    (CHAR) - FORMAT CHARACTER OUT OF SEQUENCE "SEQUENCE".   OUTPTK     26
                                         .A       ELSE                                                           OUTPTK     27
                                         .B       DUP    "CHARNOW"-LASTCHAR-1                                    OUTPTK     28
                                                  IFEQ   $,59,2                                                  OUTPTK     29
                                                  JP     ILLEGAL                                                 OUTPTK     30
                                                  SKIP   1                                                       OUTPTK     31
                                        -         JP     ILLEGAL                                                 OUTPTK     32
                                         .B       ENDD                                                           OUTPTK     33
                                         .A       ENDIF                                                          OUTPTK     34
                                        *                                                                        OUTPTK     35
                                                  IFEQ   $,59,2                                                  OUTPTK     36
                                                  JP     ADDRESS                                                 OUTPTK     37
                                                  SKIP   1                                                       OUTPTK     38
                                        -         JP     ADDRESS                                                 OUTPTK     39
                                        *                                                                        OUTPTK     40
                                         LASTCHAR SET    "CHARNOW"                                               OUTPTK     41
                                         LOCN     ENDM                                                           OUTPTK     42
                                                                                                                 OUTPTK     43
                                                                                                                 OUTPTK     44
                                  -1    LASTCHAR  SET    -1                                                      OUTPTK     46
                                         BSS      OPSYN  BSSZ                                                    OUTPTK     47
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     3
             SYMBOL AND STORAGE DEFINITION
  
             0  00000000077740000000    DIGMASK   DATA   00000000077740000000B                                   OUTPTK     49
             1                           NEEDW    BSS    0                                                       OUTPTK     50
                                                  ECHO   2,L=(A,I,L,O,R,T,Z)                                     OUTPTK     51
                                                  POS    60-1R_L                                                 OUTPTK     52
                                                  VFD    1/1                                                     OUTPTK     53
                         00000000000              VFD    *P/0                                                    OUTPTK     54
             2                     1    TEMPA0.   BSS    1                                                       OUTPTK     55
             3                     1    APLIST    BSS    1                                                       OUTPTK     56
             4                     1    R         BSS    1               FIELD DESCRIPTOR REPEAT COUNT           OUTPTK     57
             5                     1    W         BSS    1               WIDTH                                   OUTPTK     58
             6                     1    GOCELL    BSS    1                                                       OUTPTK     59
             7                     1    GRC       BSS    1               GROUP REPEAT COUNT FOR CURRENT GROUP    OUTPTK     60
            10                     1    FORMAT    BSS    1                                                       OUTPTK     61
            11                     1    LEVEL     BSS    1                                                       OUTPTK     62
            12                     1    GROUPADR  BSS    1                                                       OUTPTK     63
            13                     1    HCOUNT    BSS    1                                                       OUTPTK     64
                                   2    MAXLEVEL  EQU    2               THE MAXIMUM NUMBER OF GROUP LEVELS      OUTPTK     65
            14                     3    LEVSTACK  BSS    MAXLEVEL+1      STORAGE FOR GROUP LEVEL STACK           OUTPTK     66
            17                     1    UNIT      BSS    1               HOLDS I/O UNIT DESIGNATION              OUTPTK     67
            20                     1    MAXCOUNT  BSS    1                                                       OUTPTK     68
            21                     1     RESCAN   BSS    1               HOLDS LEVEL STACK INFORMATION FOR       OUTPTK     69
                                                                           RESCANNING THE FORMAT WHEN THE        OUTPTK     70
                                                                           TERMINAL RIGHT PARENTHESIS IS REACHED OUTPTK     71
            22                     1    PARENFLG  BSS    1                                                       OUTPTK     72
            23                     1    RESETLIN  BSS    1                                                       OUTPTK     73
            24                     1    RESETFMT  BSS    1                                                       OUTPTK     74
            25                     1    RESETX3   BSS    1               TEMPORARY STORAGE USED BY 'SLASH'       OUTPTK     75
            26                     1    RESETITM  BSS    1               TEMPORARY STORAGE USED BY 'SLASH'       OUTPTK     76
                                                                                                                 OUTPTK     77
            27  00000000000000000002 C  OUTADDR   VFD    60/BUFFER       BEGINNING OF OTUPUT LINE                OUTPTK     78
                                                  USE    /LINE/                                                  OUTPTK     79
             0                     1     CONTINUE BSSZ   1           * EXPLICIT LINE TERMINATION MODE FLAG *     OUTPTK     80
             1  20000000000000000002 C            VFD    12/2000B,48/BUFFER        VALUE TO SET TO FOR CONT MODE OUTPTK     81
             2                    20    BUFFER    BSSZ   16                                                      OUTPTK     82
                                                  USE    *                                                       OUTPTK     83
                                                                                                                 OUTPTK     84
            30                          FORMS     BSS    0                                                       OUTPTK     85
            30  0200000443 +                      LOCN   A,AFORMP        ALPHANUMERIC (LEFT JUSTIFIED)           FCC1119     6
            31  0200000443 +                      LOCN   H,HFORM         HOLLERITH STRING PROCESSING (COUNT)     OUTPTK     87
                          0200000173 +            LOCN   I,IFORM         INTEGER CONVERSION                      OUTPTK     88
            35  0200000443 +                      LOCN   L,LFORM                                                 OUTPTK     89
                          0200000443 +            LOCN   O,OFORM         OCTAL CONVERSION                        OUTPTK     90
            40  0200000443 +                      LOCN   R,RFORM         ALPHANUMERIC (RIGHT JUSTIFIED)          OUTPTK     91
                          0200000443 +            LOCN   T,TFORM         TABULATE (TEXT EDITING)                 OUTPTK     92
                          0200000443 +            LOCN   X,XFORM         SPACING  (TEXT EDITING)                 OUTPTK     93
                          0200000443 +            LOCN   Z,ZFORM     OCTAL CONVERSION ( LEADING BLANK FILL )     OUTPTK     94
                          0200000443 +            LOCN   *,DELIM         HOLERITH STRING (DELIMITED)             OUTPTK     95
            54  0200000357 +                      LOCN   /,SLASH         TERMINATE CURRENT RECORD                OUTPTK     96
                          0200000306 +            LOCN   1R(,LPFORM      BEGIN FIELD DESCRIPTOR GROUPING         OUTPTK     97
            55  0200000317 +                      LOCN   1R),RPFORM      END FIELD DESCRIPTOR GROUPING           OUTPTK     98
                          0200000443 +            LOCN   55B,RETURNX                                             OUTPTK     99
            57  0200000412 +                      LOCN   (,),NEXTDESC    FIELD DESCRIPTOR SEPARATOR              OUTPTK    100
                          0200000443 +            LOCN   64B,DELIM       HOLLERITH STRING (DELIMITED)            OUTPTK    101
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     4
             INITIALIZATION INTERFACE 
  
                                        ************************************************************************ OUTPTK    103
                                        *                                                                      * OUTPTK    104
                                        *                                                                      * OUTPTK    105
                                        *                                                                      * OUTPTK    106
                                        *                O U T C I . -- INITIAL ENTRY POINT                    * OUTPTK    107
                                        *                                                                      * OUTPTK    108
                                        *                                                                      * OUTPTK    109
                                        *                SAVE THE FORMAT ADDRESS, THE UNIT NUMBER AND SETUP    * OUTPTK    110
                                        *             FOR PROCESSING THE BEGINNING OF AN I/O SEQUENCE.         * OUTPTK    111
                                        *                                                                      * OUTPTK    112
                                        *                                                                      * OUTPTK    113
                                        ************************************************************************ OUTPTK    114
  
            63  00000000000000000000    OUTCI.    ENTRY.                                                         OUTPTK    116
            64  6110000001                        SB1    1                                                       OUTPTK    117
                          74600                   SX6    A0                                                      OUTPTK    118
                               54211              SA2    A1+B1           GET APLIST FORMAT WORD.                 OUTPTK    119
            65  5160000002 +                      SA6    TEMPA0.         SAVE FOR LATER RESTORATION.             OUTPTK    120
                          76710                   SX7    B1                                                      OUTPTK    121
                               73620              SX6    X2                                                      OUTPTK    122
            66  10466                             BX4    X6                                                      OUTPTK    123
                     5170000007 +                 SA7    GRC             SET THE GROUP REPEAT COUNT 'GRC' TO ONE OUTPTK    124
                                                                           FOR THE OUTER PARENTHESIS LEVEL.      OUTPTK    125
  
            67  5160000010 +                      SA6    FORMAT          SAVE THE FORMAT PARAMETER ADDRESS IN    OUTPTK    127
                                                                           'FORMAT'.                             OUTPTK    128
  
                          20202                   LX2    2               DETERMINE THE ADDRESS OF THE FIRST WORD OUTPTK    130
            70  0332000071 +                      NG     X2,INIT.1         OF THE FORMAT FROM THE 'VAR' BIT IN   OUTPTK    131
                          36467                   IX4    X6+X7             THE APLIST ENTRY.  IF THE BIT IS NOT  OUTPTK    132
                                                                           SET, THE ADDRESS IS INCREMENTED BY 1  OUTPTK    133
                                                                           TO YIELD THE TRUE FORMAT POINTER.     OUTPTK    134
  
            71  73310                   INIT.1    SX3    X1              DETERMINE THE UNIT NUMBER OF THE FILE   OUTPTK    136
                     0321000072 +                 PL     X1,INIT.2         TO BE ACCESSED.  IF THE 'VAR' BIT IS  OUTPTK    137
                               53310              SA3    X1                SET, THE ADDRESS POINTS TO A WORD     OUTPTK    138
                                                                           CONTAINING THE UNIT NUMBER.           OUTPTK    139
                                                                           OTHERWISE THE UNIT NUMBER IS          OUTPTK    140
                                                                           CONTAINED IN THE APLIST WORD ENTRY.   OUTPTK    141
  
            72  7061000002              INIT.2    SX6    A1+2                                                    OUTPTK    143
                          5160000003 +            SA6    APLIST          SAVE THE APLIST POINTER FOR LATER       OUTPTK    144
                                                                           PROCESSING OF THE LIST ITEMS.         OUTPTK    145
  
            73  10633                             BX6    X3                                                      OUTPTK    147
                     7150000060                   SX5    60-2*6          SET THE INITIAL SHIFT COUNT FOR THE     OUTPTK    148
                               63250              SB2    X5                FORMAT TO POINT JUST BEYOND THE       OUTPTK    149
                                                                           INITIAL LEFT PARENTHESIS.             OUTPTK    150
            74  5160000017 +                      SA6    UNIT              (SAVE THE UNIT DESIGNATION.)          OUTPTK    151
                          20522                   LX5    18                                                      OUTPTK    152
                               36654              IX6    X5+X4                                                   OUTPTK    153
            75  53240                             SA2    X4              FETCH THE FIRST FORMAT WORD.            OUTPTK    154
                     6160000074                   SB6    60                                                      OUTPTK    155
            76  5160000012 +                      SA6    GROUPADR        SAVE THE POINTERS TO THE OUTER          OUTPTK    156
                                                                           PARENTHESIS GROUP IN 'GROUPADR'.      OUTPTK    157
                          5150000027 +            SA5    OUTADDR                                                 OUTPTK    158
            77  20622                             LX6    18                                                      OUTPTK    159
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     5
             INITIALIZATION INTERFACE 
  
                     36767                        IX7    X6+X7                                                   OUTPTK    160
                          5170000014 +            SA7    LEVSTACK        SETUP THE INITIAL LEVEL STACK ENTRY--   OUTPTK    161
           100  5170000021 +                      SA7    RESCAN            THE LEVEL STACK CONTAINS THE          OUTPTK    162
                                                                           NECESSARY INFORMATION FOR RESTARTING  OUTPTK    163
                                                                           THE FORMAT SCAN AT THE BEGINNING OF   OUTPTK    164
                                                                           A PARENTHESIS GROUP, THE ZERO LEVEL   OUTPTK    165
                                                                           ENTRY MUST THEREFORE CONTAIN THE      OUTPTK    166
                                                                           INFORMATION FOR RESTARTING THE FORM   OUTPTK    167
                                                                           SCAN WHEN THE FINAL RIGHT PARENTHESIS OUTPTK    168
                                                                           IN THE FORMAT IS ENCOUNTERED.  THE    OUTPTK    169
                                                                           INFORMATION FOR THE ZERO ENTRY IS     OUTPTK    170
                                                                                SHIFTCT = 48, POSITION AFTER '(' OUTPTK    171
                                                                                WORD    = ADDRESS OF FIRST       OUTPTK    172
                                                                                          FORMAT WORD            OUTPTK    173
                                                                                GRC    = 1, REMAINING REPEAT     OUTPTK    174
                                                                                          COUNT FOR GROUP        OUTPTK    175
                          5130000000 C            SA3    CONTINUE                                                OUTPTK    176
           101  27505                             PX5    X5                                                      OUTPTK    177
                     13666                        BX6    X6-X6                                                   OUTPTK    178
                          5160000011 +            SA6    LEVEL           INITIALIZE THE LEVEL NUMBER FOR THE     OUTPTK    179
                                                                           LEVEL STACK.                          OUTPTK    180
  
           102  66400                             SB4    B0              SET THE ITEM COUNT TO ZERO              OUTPTK    182
                     5160000022 +                 SA6    PARENFLG        TURN OF THE TERMINAL RIGHT PAREN FLAG   OUTPTK    183
  
           103  0303000105 +                      ZR     X3,INIT.3       IF THE PROCESSING MODE IS 'EXPLICIT     OUTPTK    185
                          5140000020 +            SA4    MAXCOUNT          LINE TERMINATION' THEN CONTINUE THE   OUTPTK    186
           104  22503                             LX5    X3                LAST LINE WHERE THE PRECEDING WRITE   OUTPTK    187
                     10644                        BX6    X4                STATEMENT FINISHED (I.E. IF           OUTPTK    188
                                                                           'CONTINUE' IS NON-ZERO THEN IT        OUTPTK    189
                                                                           CONTAINS THE LINE INITIALIZING        OUTPTK    190
                                                                           INFORMATION, 'MAXCOUNT' SHOULD REMAIN OUTPTK    191
                                                                           UNCHANGED IF 'CONTINUE' IS NON-ZERO). OUTPTK    192
  
           105  5160000020 +            INIT.3    SA6    MAXCOUNT        SET THE MAXIMUM LENGTH ATTAINED FOR THE OUTPTK    194
                                                                           LINE (IF A TAB BACKWARD HAS OCCURRED) OUTPTK    195
  
                          26035                   UX0    X5,B3           SET THE LINE POSITION POINTERS AND THEN OUTPTK    197
           106  0400000412 +                      ZR     NEXTDESC          GO TO 'NEXTDESC' TO BEGIN PORCESSING. OUTPTK    198
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     6
             INITIALIZATION INTERFACE 
  
                                        **        OUTCR. - ITEM CONVERSION                                       OUTPTK    200
                                        *                                                                      * OUTPTK    201
                                        *         REGISTER CONVENTIONS --                                      * OUTPTK    202
                                        *                                                                      * OUTPTK    203
                                        *         B0 -- 0             A0 -- UNUSED        X0 -- OUTPUT WORD    * OUTPTK    204
                                        *         B1 -- 1             A1 -- DATA ADDRESS  X1 -- DATA ITEM      * OUTPTK    205
                                        *         B2 -- FORMAT SHIFT  A2 -- FORMAT ADDR   X2 -- FORMAT WORD    * OUTPTK    206
                                        *         B3 -- BITS FILLED   A3 -- SCRATCH       X3 -- SPECIAL HOLD   * OUTPTK    207
                                        *         B4 -- ITEM COUNT    A4 -- SCRATCH       X4 -- SCRATCH        * OUTPTK    208
                                        *         B5 -- SCRATCH       A5 -- SCRATCH       X5 -- SCRATCH        * OUTPTK    209
                                        *         B6 -- 60            A6 -- SCRATCH       X6 -- SCRATCH        * OUTPTK    210
                                        *         B7 -- SCRATCH       A7 -- SCRATCH       X7 -- SCRATCH        * OUTPTK    211
  
           107  27630                   OUTPTCX   PX6    X0,B3           SAVE THE CURRENT POINTERS TO THE OUTPUT OUTPTK    213
                     74520                        SX5    A2                LINE AND THE FORMAT.                  OUTPTK    214
                          5160000023 +            SA6    RESETLIN                                                OUTPTK    215
           110  27725                             PX7    X5,B2                                                   OUTPTK    216
                     66510                        SB5    B1                                                      OUTPTK    217
                          5170000024 +            SA7    RESETFMT                                                OUTPTK    218
           111  5120000002 +                      SA2    TEMPA0.                                                 OUTPTK    219
                          66210                   SB2    B1                                                      OUTPTK    220
                               53020              SA0    X2                                                      OUTPTK    221
  
           112  5120000003 +                      SA2    APLIST                                                  OUTPTK    223
                          53320                   SA3    X2              OBTAIN APLIST ITEM WORD ENTRY.          OUTPTK    224
  
                               67101              SB1    -B1             PRESET IN CASE OF TERMINAL CALL.        OUTPTK    226
           113  0313000121 +                      NZ     X3,PRESET       IF NOT END OF I/O PARAMETER LIST.       OUTPTK    227
                          0323000130 +            PL     X3,PRESET.2       ELSE GO TO 'PRESET.2' TO HANDLE THE   OUTPTK    228
                                                                           END OF I/O LIST PROCESSING.           OUTPTK    229
           114  0400000063 +                      EQ     OUTCI.                                                  OUTPTK    230
                                                                                                                 OUTPTK    231
           115  00000000000000000000     OUTCR.   ENTRY.                   ENTRY POINT FOR INTERRUPTED I/O LIST  OUTPTK    232
           116  5120000003 +                      SA2    APLIST          MAKE THINGS LOOK AS IF THERE WAS NOT AN OUTPTK    233
                          5150000115 +            SA5    OUTCR.            INTERRUPTION.                         OUTPTK    234
           117  22705                             LX7    X5                                                      OUTPTK    235
                     74210                        SX2    A1                                                      OUTPTK    236
                          5170000063 +            SA7    OUTCI.                                                  OUTPTK    237
           120  10311                             BX3    X1                                                      OUTPTK    238
                     6110777776                   SB1    -1                                                      OUTPTK    239
                                                                                                                 OUTPTK    240
                                                                                                                 OUTPTK    241
           121  0303000125 +             PRESET   ZR     X3,PRESET.1       IF TERMINAL CALL                      OUTPTK    242
                          36433                   IX4    X3+X3                                                   OUTPTK    243
                               63130              SB1    X3                (B1) = DATA ITEM ADDRESS              OUTPTK    244
           122  0324000125 +                      PL     X4,PRESET.1       IF ITEM IS ^ F.P.                     OUTPTK    245
  
                          21401                   AX4    1                                                       OUTPTK    247
                               43066              MX0    60-6                                                    OUTPTK    248
           123  15640                             BX6    -X0*X4                                                  OUTPTK    249
                     20466                        LX4    60-6                                                    OUTPTK    250
                          63360                   SB3    X6                                                      OUTPTK    251
                               54503              SA5    A0+B3           COMPUTE THE DATA ITEM ADDRESS BY ADDING OUTPTK    252
           124  63640                             SB6    X4                THE FP OFFSET TO THE APPROPRIATE FP   OUTPTK    253
                     63156                        SB1    X5+B6             ADDRESS IN THE SUBROUTINE APLIST.     OUTPTK    254
  
           125  7272000001              PRESET.1  SX7    X2+1            INCREMENT THE APLIST POINTER, AND SET   OUTPTK    256
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     7
             INITIALIZATION INTERFACE 
  
                          21330                   AX3    24                THE ITEM COUNT INTO B2.  A ZERO ITEM  OUTPTK    257
                               54720              SA7    A2                COUNT WILL BE TREATED AS AN ITEM      OUTPTK    258
           126  63230                             SB2    X3                COUNT OF 1.                           OUTPTK    259
                     0520000130 +                 NZ     B2,PRESET.2                                             OUTPTK    260
           127  6120000001                        SB2    1                                                       OUTPTK    261
  
           130  5150000023 +            PRESET.2  SA5    RESETLIN                                                OUTPTK    263
                          5140000024 +            SA4    RESETFMT                                                OUTPTK    264
           131  0610000132 +                      PL     B1,SETUP.1      IF THIS IS NOT A FINAL ENTRY THEN GO    OUTPTK    265
                          66210                   SB2    B1                TO 'SETUP.1', OTHERWISE SWITCH THE    OUTPTK    266
                               67101              SB1    -B1               FINAL INDICATOR FOR A LATER CHECK.    OUTPTK    267
  
           132  5111777776              SETUP.1   SA1    B1-1            SET THE BASE DATA ITEM ADDRESS (I.E.    OUTPTK    269
                                                                           POINT TO THE WORD IMMEDIATELY PRIOR   OUTPTK    270
                                                                           TO THE SET OF DATA ITEMS).            OUTPTK    271
  
                          26035                   UX0    X5,B3           SETUP THE POINTERS TO THE LINE.         OUTPTK    273
                               53240              SA2    X4              PICK UP THE CURRENT FORMAT WORD.        OUTPTK    274
           133  66420                             SB4    B2              SETUP THE COUNT OF THE NUMBER OF ITEMS  OUTPTK    275
                                                                           TO CONVERT.                           OUTPTK    276
                     6110000001                   SB1    1                                                       OUTPTK    277
                               26424              UX4    X4,B2           SETUP THE FORMAT SHIFT COUNT POINTER9   OUTPTK    278
           134  6160000074                        SB6    60                                                      OUTPTK    279
                          5150000022 +            SA5    PARENFLG                                                OUTPTK    280
           135  0640000145 +                      PL     B4,INTER        IF THIS IS AN INTERMEDIATE ENTRY THEN   OUTPTK    281
                                                                           GO TO !INTER' TO ENTER THE            OUTPTK    282
                                                                           PROCESSING CYCLE.                     OUTPTK    283
                          5150000000 C            SA5    CONTINUE                                                OUTPTK    284
           136  5140000027 +                      SA4    OUTADDR                                                 OUTPTK    285
                          0315000143 +            NZ     X5,SETUP.2      IF THE PROCESSING MODE IS 'EXPLICIT     OUTPTK    286
                                                                           LINE TERMINATION' THEN GO TO          OUTPTK    287
                                                                           'SETUP.2'.                            OUTPTK    288
  
           137  5150000020 +                      SA5    MAXCOUNT        OTHERWISE INVOKE 'SLASH' TO DUMP THE    OUTPTK    290
                          37304                   IX3    X0-X4             CURRENT OUTPUT LINE IF IT IS NOT      OUTPTK    291
                               73633              SX6    X3+B3             EMPTY.                                OUTPTK    292
           140  12765                             BX7    X6+X5                                                   OUTPTK    293
                     0307000063 +                 ZR     X7,OUTCI.       WHEN (IF NECESSARY) THE OUTPUT LINE HAS OUTPTK    294
           141  6170000357 +                      INVOKE SLASH           BEEN DUMPED, RETURN TO THE CALLER.      OUTPTK    295
           142  0400000063 +                      EQ     OUTCI.                                                  OUTPTK    296
  
           143  27630                   SETUP.2   PX6    X0,B3           SINCE 'EXPLICIT LINE TERMINATION' IS IN OUTPTK    298
                     46000                        NO                       FORCE, SAVE THE CURRENT LINE POINTERS OUTPTK    299
                          5160000000 C            SA6    CONTINUE          AND  RETURN TO THE CALLER.            OUTPTK    300
           144  0400000063 +                      EQ     OUTCI.                                                  OUTPTK    301
  
           145  13777                   INTER     BX7    X7-X7                                                   OUTPTK    303
                     54750                        SA7    A5              CLEAR THE PAREN FLAG.                   OUTPTK    304
                          0305000432 +            ZR     X5,IFNOMORE     GO TO 'IFNOMORE' IF THE LAST ENTRY WAS  OUTPTK    305
                                                                           NOT STOPPED BY THE TERMINAL PAREN,    OUTPTK    306
           146  0400000412 +                      EQ     NEXTDESC                                                OUTPTK    307
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     8
             A -, R - FORMAT PROCESSING SECTIONS
  
                                        ************************************************************************ OUTPTK    309
                                        *                                                                      * OUTPTK    310
                                        *                       R - FORMAT PROCESSING                          * OUTPTK    311
                                        *                                                                      * OUTPTK    312
                                        *                CONVERT THE R-FORM DATA ITEM INTO A-FORM AND THEN USE * OUTPTK    313
                                        *             THE A-FORMAT PROCESSING SECTION TO PROCESS THE ITEM.     * OUTPTK    314
                                        *                                                                      * OUTPTK    315
                                        ************************************************************************ OUTPTK    316
  
           147                          RFORM     FORM                                                           OUTPTK    318
           147  63560                             SB5    X6                IF THE FIELD WIDTH IS LESS THE ELEVEN FCC1119     7
                     0665000152 +                 LE     B5,B6,RFORM.1       CHARACTERS, THEN GO TO RFORM.1,     FCC1119     8
                               77656              SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE         FCC1119     9
           150  0100000455 +                      CALL   SPACE               THE EXCESS NUMBER OF POSITIONS      FCC1119    10
           151  76660                             SX6    B6                                                      FCC1119    11
           152  63760                   RFORM.1   SB7    X6                CALCULATE THE SHIFT COUNT NECESSARY T FCC1119    12
                     67567                        SB5    B6-B7             TRANSFORM THE DATA ITEM INTO A-FORM   OUTPTK    320
                          22151                   LX1    X1,B5             AND THEN PERFORM THE TRANSFORMATION.  OUTPTK    321
           153  0400000157 +                      EQ     AFORM                                                   FCC1119    13
                                                                                                                 FCC1119    14
                                        ************************************************************************ FCC1119    15
                                        *                                                                      * FCC1119    16
                                        *                       A - FORMAT PROCESSING                          * FCC1119    17
                                        *                                                                      * FCC1119    18
                                        *                IF THE NUMBER OF CHARACTERS TO BE TRANSMITTED IS      * FCC1119    19
                                        *             GREATER THAN TEN, CALL SPACE TO INSERT THE CORRECT       * FCC1119    20
                                        *             NUMBER OF BLANKS THEN GO TO AFORM.                       * FCC1119    21
                                        *                THIS A FORMAT PROCESSOR IS CALLED ONLY WHEN THE       * FCC1119    22
                                        *             A-FORMAT ACTUALLY APPEARS IN THE USER FORMAT.  THE OTHER * FCC1119    23
                                        *             A-FORMAT PROCESSOR IS ONLY USED INTERNALLY.              * FCC1119    24
                                                                                                                 FCC1119    25
           154                           AFORMP   FORM                                                           FCC1119    26
           154  63560                             SB5    X6                IF THE FIELD WIDTH IS LESS THE ELEVEN FCC1119    27
                     0665000157 +                 LE     B5,B6,AFORM         CHARACTERS, THEN GO TO AFORM,       FCC1119    28
                               77656              SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE         FCC1119    29
           155  0100000455 +                      CALL   SPACE               THE EXCESS NUMBER OF POSITIONS      FCC1119    30
           156  76660                             SX6    B6                                                      FCC1119    31
                                                                                                                 FCC1119    32
                                        ************************************************************************ OUTPTK    323
                                        *                                                                      * OUTPTK    324
                                        *                       A - FORMAT PROCESSING                          * OUTPTK    325
                                        *                                                                      * OUTPTK    326
                                        *                IF THE NUMBER OF CHARACTERS TO BE TRANSMITTED FROM    * OUTPTK    327
                                        *             THE A-FORM DATA WILL FIT INTO THE SPACE REMAINING IN THE * OUTPTK    328
                                        *             CURRENT OUTPUT WORD, THEN THE SPACE IN THE OUTPUT WORD   * OUTPTK    329
                                        *             NECESSARY TO ACCOMODATE THE A-FORM DATA IS CLEARED AND   * OUTPTK    330
                                        *             THE A-FORM DATA INSERTED.  IF NOT ENOUGH SPACE IS        * OUTPTK    331
                                        *             AVAILABLE IN THE CURRENT OUTPUT WORD FOR THE A-FORM      * OUTPTK    332
                                        *             DATA, THEN THE DATA IS SPLIT TO OCCUPY THE END OF THE    * OUTPTK    333
                                        *             CURRENT OUTPUT WORD AND THE BEGINNING OF THE NEXT        * OUTPTK    334
                                        *             OUTPUT WORD.                                             * OUTPTK    335
                                        *                                                                      * OUTPTK    336
                                        ************************************************************************ OUTPTK    337
  
           157                          AFORM     FORM                                                           OUTPTK    339
           157  67563                             SB5    B6-B3           IF THE A-FORM DATA MUST BE SPLIT TO     OUTPTK    340
                     63760                        SB7    X6                OCCUPY TWO OUTPUT WORDS THEN GO       OUTPTK    341
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE     9
             A -, R - FORMAT PROCESSING SECTIONS
  
                          0757000164 +            LT     B5,B7,AFORM2WD    TO 'AFORM2WD'.                        OUTPTK    342
  
           160  43401                   AFORM.1   MX4    1               FORM THE MASK NECESSARY TO EXTRACT      OUTPTK    344
                     67771                        SB7    B7-B1             THE A-FORM DATA AND INSERT IT INTO    OUTPTK    345
                          53500                   SA5    X0                THE OUTPUT WORD.                      OUTPTK    346
                               23774              AX7    X4,B7                                                   OUTPTK    347
           161  11671                             BX6    X7*X1             (EXTRACT THE A-FORM DATA)             OUTPTK    348
                     22535                        LX5    X5,B3                                                   OUTPTK    349
                          66737                   SB7    B3+B7                                                   OUTPTK    350
                               15457              BX4    -X7*X5            (CLEAR SPACE IN THE OUTPUT WORD)      OUTPTK    351
           162  66371                             SB3    B7+B1             (INCREMENT THE COUNT OF BITS IN THE   OUTPTK    352
                                                                           CURRENT OUTPUT WORD)                  OUTPTK    353
  
                     12646                        BX6    X4+X6             (INSERT THE A-FORM DATA, THE BOOLEAN  OUTPTK    355
                                                                           UNIT MUST BE USED IN CASE AN ENTIRE   OUTPTK    356
                                                                           OUTPUT WORD CONSISTS OF SEMI-COLONS-- OUTPTK    357
                                                                           SINCE THE OUTPUT WORD WOULD BECOME    OUTPTK    358
                                                                           POSITIVE ZERO--NOT MINUS ZERO--IF     OUTPTK    359
                                                                           THE LONG ADD UNIT IS USED.)           OUTPTK    360
                          22756                   LX7    X6,B5                                                   OUTPTK    361
                               54750              SA7    A5                                                      OUTPTK    362
           163  0400000440 +                      ZR     RETURNX         GO TO 'RETURNX'.                        OUTPTK    363
  
  
           164  43401                   AFORM2WD  MX4    1               EXTRACT THE NUMBER OF CHARACTERS IN     OUTPTK    365
                     67331                        SB3    B3-B1             A-FORM NECESSARY TO FILL THIS OUTPUT  OUTPTK    366
                          22151                   LX1    X1,B5             WORD.                                 OUTPTK    367
                               67775              SB7    B7-B5                                                   OUTPTK    368
           165  66560                             SB5    B6                                                      OUTPTK    369
                     53500                        SA5    X0                                                      OUTPTK    370
                          23734                   AX7    X4,B3                                                   OUTPTK    371
                               15617              BX6    -X7*X1                                                  OUTPTK    372
           166  66300                             SB3    B0                                                      OUTPTK    373
                     73001                        SX0    X0+B1                                                   OUTPTK    374
                          11575                   BX5    X7*X5           CLEAR SPACE IN THE CURRENT OUTPUT WORD  OUTPTK    375
                                                                           TO ACCOMODATE THE AFORM DATA.         OUTPTK    376
  
                               12656              BX6    X5+X6                                                   OUTPTK    378
           167  54650                             SA6    A5              APPEND THE AFORM DATA TO THE CURRENT    OUTPTK    379
                     0400000160 +                 ZR     AFORM.1           OUTPUT WORD AND THEN GO TO 'AFORM.1'  OUTPTK    380
                                                                           TO PROCESS THE REMAINING CHARACTERS.  OUTPTK    381
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    10
             I - FORMAT PROCESSING SECTION
  
                                        ************************************************************************ OUTPTK    383
                                        *                                                                      * OUTPTK    384
                                        *                       I - FORMAT PROCESSING                          * OUTPTK    385
                                        *                                                                      * OUTPTK    386
                                        *                CONVERT THE BINARY INTEGER DATA ITEM TO DECIMAL       * OUTPTK    387
                                        *             REPRESENTATION, RIGHT-JUSTIFIED WITHIN THE SPECIFIED     * OUTPTK    388
                                        *             FIELD (WITH BLANK FILL IF NECESSARY).  AFTER THE DECIMAL * OUTPTK    389
                                        *             FORM HAS BEEN OBTAINED GO TO THE A-FORMAT PROCESSING     * OUTPTK    390
                                        *             SECTION TO INSERT THE CHARACTERS INTO THE OUTPUT LINE.   * OUTPTK    391
                                        *                                                                      * OUTPTK    392
                                        ************************************************************************ OUTPTK    393
  
           170  55555555555555555555    IFORMCON  DATA   10H          ,10.0P0,0.100000000001P48                  OUTPTK    395
  
           173                          IFORM     FORM                                                           OUTPTK    397
           173  63560                             SB5    X6              IF THE FIELD WIDTH IS LESS THAN ELEVEN  OUTPTK    398
                     0665000176 +                 LE     B5,B6,IFORM.1     CHARACTERS THEN GO TO 'IFORM.1',      OUTPTK    399
  
                               77656              SX6    B5-B6           OTHERWISE CALL 'SPACE' TO SPACE THE     OUTPTK    401
           174  0100000455 +                      CALL   SPACE             EXCESS NUMBER OF POSITIONS (I.E. IF   OUTPTK    402
           175  66560                             SB5    B6                THE FIELD WIDTH IS TWELVE CHARACTERS  OUTPTK    403
                                                                           THEN SPACE TWO CHARACTERS).           OUTPTK    404
  
           176                           IFORM.1  BSS    0                                                       OUTPTK    406
           176  0321000177 +                      PL     X1,IFORM.12     IF NEGATIVE NUMBER COMPLEMENT AND       OUTPTK    407
                          14111                   BX1    -X1               CHANGE TO POSITIVE NUMBER             OUTPTK    408
                               66600              SB6    B0                AND SET FLAG                          OUTPTK    409
           177                           IFORM.12 BSS    0                                                       OUTPTK    410
           177  27101                             PX1    X1              CONVERT THE INTEGER TO FLOATING         OUTPTK    411
                     66750                        SB7    B5                POINT FORM (UN-NORMALIZED) AND FETCH  OUTPTK    412
                          5150000170 +            SA5    IFORMCON          THE CONVERSION CONSTANTS.             OUTPTK    413
           200  10755                             BX7    X5                                                      OUTPTK    414
                     54451                        SA4    A5+B1                                                   OUTPTK    415
                          54541                   SA5    A4+B1                                                   OUTPTK    416
  
           201  42651                   IFORM.2   DX6    X5*X1           CONVERT THE BINARY VALUE, FORMING THE   OUTPTK    418
                     40151                        FX1    X5*X1             DECIMAL REPRESENTATION A DIGIT AT A   OUTPTK    419
                          6155777771              SB5    B5-6              TIME (FROM RIGHT TO LEFT).            OUTPTK    420
           202  40646                             FX6    X4*X6             METHOD: LET 'B' BE THE BINARY VALUE   OUTPTK    421
                     7266777755                   SX6    X6+1R0-1R           1)  XD = B*0.1   (FRACTIONAL PART)  OUTPTK    422
                               36767              IX7    X6+X7               2)  B  = B*0.1   (INTEGRAL PART)    OUTPTK    423
           203  24601                             NX6    X1                  3)  D  = XD*10.0 (DECIMAL DIGIT)    OUTPTK    424
                     20766                        LX7    -6                                                      OUTPTK    425
                          0316000201 +            NZ     X6,IFORM.2                                              OUTPTK    426
           204  0560000206 +                      NE     B6,B0,IFORM.3                                           OUTPTK    427
                          7150777770              SX5    1R--1R                                                  OUTPTK    428
           205  6160000074                        SB6    60                RESTORE B6                            OUTPTK    429
                          36775                   IX7    X7+X5                                                   OUTPTK    430
           206                           IFORM.3  BSS    0                                                       OUTPTK    431
  
           206  76670                             SX6    B7              CALL 'AFORM' TO APPEND THE PROPERLY     OUTPTK    433
                     67565                        SB5    B6-B5             POSITIONED AND JUSTIFIED DIGITS.      OUTPTK    434
                          22157                   LX1    X7,B5                                                   OUTPTK    435
           207  0400000157 +                      ZR     AFORM                                                   OUTPTK    436
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    11
        L - FORMAT PROCESSING SECTION 
  
                                        ************************************************************************ OUTPTK    438
                                        *        L - FORMAT PROCESSING                                         * OUTPTK    439
                                        *        PRINTS A T IF THE LOGICAL VARIABLE HAS A VALUE OF TRUE, ELSE  * OUTPTK    440
                                        *        PRINTS A F IF THE LOGICAL VARIABLE HAS A VALUE OF FALSE       * OUTPTK    441
                                        ************************************************************************ OUTPTK    442
           210                           LFORM    FORM                                                           OUTPTK    443
           210  63560                             SB5    X6              IF THE FIELD WIDTH IS LESS THAN         OUTPTK    444
                     0665000213 +                 LE     B5,B6,LFORM.1     ELEVEN CHARACTERS THEN GO TO LFORM.1  OUTPTK    445
                                                                                                                 OUTPTK    446
                               77656              SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE THE     OUTPTK    447
           211  0100000455 +                      CALL   SPACE             EXCESS NUMBER OF POSITIONS            OUTPTK    448
           212  66560                             SB5    B6                                                      OUTPTK    449
                                                                                                                 OUTPTK    450
           213                           LFORM.1  BSS    0                                                       OUTPTK    451
           213  5150000170 +                      SA5    IFORMCON          FILL WORD WITH BLANKS                 OUTPTK    452
                          7160777730              SX6    1RF-1R            F                                     OUTPTK    453
           214  0321000215 +                      PL     X1,LFORM.2                                              OUTPTK    454
                          7160777746              SX6    1RT-1R            T                                     OUTPTK    455
           215                           LFORM.2  BSS    0                                                       OUTPTK    456
           215  67765                             SB7    B6-B5                                                   OUTPTK    457
                     36165                        IX1    X6+X5                                                   OUTPTK    458
                          22171                   LX1    X1,B7             SHIFT LETTER TO BOTTOM OF FIELD       OUTPTK    459
                               76650              SX6    B5                                                      OUTPTK    460
           216  0400000157 +                      EQ     AFORM                                                   OUTPTK    461
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    12
             O - FORMAT PROCESSING SECTION
  
                                        ************************************************************************ OUTPTK    463
                                        *                                                                      * OUTPTK    464
                                        *                       O - FORMAT PROCESSING                          * OUTPTK    465
                                        *                                                                      * OUTPTK    466
                                        *                CONVERT THE BINARY DATA ITEM TO OCTAL FORM (ONLY THE  * OUTPTK    467
                                        *             NUMBER OF DIGITS SPECIFIED THOUGH), BLANK FILLING IF     * OUTPTK    468
                                        *             NECESSARY.                                               * OUTPTK    469
                                        *                                                                      * OUTPTK    470
                                        ************************************************************************ OUTPTK    471
  
           217  33333333333333333333    OFORMCON  DATA   10H0000000000,0                                         OUTPTK    473
  
           221  5140000527 +             ZFORM    SA4    =1H                                                     OUTPTK    475
                          7170777755              SX7    1R0-1R                                                  OUTPTK    476
           222  0400000224 +                      EQ     OFORM1                                                  OUTPTK    477
                                                                                                                 OUTPTK    478
           223  5140000530 +             OFORM    SA4    =10H0000000000                                          OUTPTK    479
                          43700                   MX7    0                                                       OUTPTK    480
                                                                                                                 OUTPTK    481
           224  5170000220 +             OFORM1   SA7    OFORMCON+1                                              OUTPTK    482
                          10744                   BX7    X4                                                      OUTPTK    483
                               55771              SA7    A7-B1                                                   OUTPTK    484
           225  63760                             SB7    X6                                                      OUTPTK    485
                     66566                        SB5    B6+B6                                                   OUTPTK    486
                          0667000244 +            LE     B7,B6,OFORM.3   IF THE WIDTH OF THE OCTAL FORMAT IS     OUTPTK    487
                                                                           LESS THAN ELEVEN CHARACTERS THEN      OUTPTK    488
                                                                           GO TO 'OFORM.4'.                      OUTPTK    489
  
           226  0657000231 +                      LE     B7,B5,OFORM.1   IF THE WIDTH IS BETWEEN ELEVEN AND      OUTPTK    491
                                                                           TWENTY CHARACTERS THEN GO TO          OUTPTK    492
                                                                           'OFORM.1',                            OUTPTK    493
                          77675                   SX6    B7-B5           OTHERWISE CALL 'SPACE' TO SKIP OVER     OUTPTK    494
           227  0100000455 +                      CALL   SPACE             THE EXCESS POSITIONS AND THEN         OUTPTK    495
           230  76666                             SX6    B6+B6             PROCESS AS A TWENTY DIGIT CONVERSION. OUTPTK    496
                     66766                        SB7    B6+B6                                                   OUTPTK    497
  
           231  67576                   OFORM.1   SB5    B7-B6           CONVERT THE BINARY VALUE TO TWENTY      OUTPTK    499
                     43771                        MX7    60-3              OCTAL DIGITS, EXTRACTING TWO DIGITS   OUTPTK    500
                          10477                   BX4    X7                AT A TIME.                            OUTPTK    501
                               20736              LX7    30                                                      OUTPTK    502
           232  11474                             BX4    X7*X4                                                   OUTPTK    503
                     37333                        IX3    X3-X3                                                   OUTPTK    504
                          43500                   MX5    0                                                       OUTPTK    505
                               66760              SB7    B6                                                      OUTPTK    506
  
           233  15714                   OFORM.2   BX7    -X4*X1          EXTRACT TWO OCTAL DIGITS (THIRTY BITS   OUTPTK    508
                     21103                        AX1    3                 APART),                               OUTPTK    509
                          7267000033              SX6    X7+1R0            CONVERT THE DIGITS TO DISPLAY CODE    OUTPTK    510
           234  36336                             IX3    X3+X6             AND APPEND THEM TO THE ACCUMULATED    OUTPTK    511
                     21736                        AX7    30                DIGITS.                               OUTPTK    512
                          7267000033              SX6    X7+1R0                                                  OUTPTK    513
           235  36556                             IX5    X5+X6                                                   OUTPTK    514
                     20366                        LX3    -6                                                      OUTPTK    515
                          6177777771              SB7    B7-6                                                    OUTPTK    516
           236  20566                             LX5    -6                                                      OUTPTK    517
                     0707000233 +                 GT     B7,B0,OFORM.2   CONTINUE UNTIL ALL DIGITS ARE PROCESSED OUTPTK    518
  
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    13
             O - FORMAT PROCESSING SECTION
  
                               10155              BX1    X5              CALL 'AFORM' TO PLACE THE APPROPRIATE   OUTPTK    520
           237  76650                             SX6    B5                DIGITS INTO THE OUTPUT LINE.          OUTPTK    521
                     6170000147 +                 INVOKE RFORM                                                   OUTPTK    522
           241  10133                             BX1    X3                                                      OUTPTK    523
                     76660                        SX6    B6                                                      OUTPTK    524
                          6170000157 +            INVOKE AFORM                                                   OUTPTK    525
           243  0400000410 +                      ZR     NEXTELEM        RETURN FOR THE NEXT ELEMENT.            OUTPTK    526
  
  
           244  21601                   OFORM.3   AX6    1               IF TEN OR FEWER DIGITS ARE TO BE        OUTPTK    528
                     63561                        SB5    X6+B1             CONVERTED THEN PERFORM THE CONVERSION OUTPTK    529
                          5150000217 +            SA5    OFORMCON          ONE DIGIT AT A TIME, FROM RIGHT TO    OUTPTK    530
           245  43701                             MX7    1                 LEFT.  LEADING ZERO DIGITS WILL BE    OUTPTK    531
                     67565                        SB5    B6-B5             REPLACED BY THE CHARACTER WHICH IS    OUTPTK    532
                          54451                   SA4    A5+B1             REPLICATED TEN TIMES IN 'OFORMCON'    OUTPTK    533
                               23757              AX7    X7,B5             (AND OF COURSE THIS MAY BE THE        OUTPTK    534
           246  15117                             BX1    -X7*X1            CHARACTER ZERO).  SEE THE DESCRIPTION OUTPTK    535
                     63540                        SB5    X4                ABOVE FOR FUTHER DETAILS.             OUTPTK    536
                          76370                   SX3    B7                                                      OUTPTK    537
                               43471              MX4    60-3                                                    OUTPTK    538
  
           247  15614                   OFORM.4   BX6    -X4*X1          EXTRACT ONE DIGIT.                      OUTPTK    540
                     21103                        AX1    3               SHIFT VALUE TO POSITION THE NEXT DIGIT. OUTPTK    541
                          73765                   SX7    X6+B5           CONVERT THE DIGIT TO THE VALUE WHICH,   OUTPTK    542
                               36557              IX5    X5+X7             WHEN ADDED TO 'OFORMCON', WILL BE THE OUTPTK    543
           250  6177777771                        SB7    B7-6              DISPLAY CODE FOR THE DIGIT.           OUTPTK    544
                          46000                   NO                       DECREMENT WIDTH.                      OUTPTK    545
                               20566              LX5    -6              POSITION THE OCNVERTED DIGITS.          OUTPTK    546
           251  0311000247 +                      NZ     X1,OFORM.4      CONTINUE IF ANY NON-ZERO DIGITS REMAIN. OUTPTK    547
  
                          67567                   SB5    B6-B7           POSITION THE CONVERTED DIGITS AND       OUTPTK    549
                               22155              LX1    X5,B5             INVOKE 'AFORM' TO APPEND THE DIGITS   OUTPTK    550
           252  73630                             SX6    X3                TO THE OUTPUT LINE.                   OUTPTK    551
                     6170000157 +                 INVOKE AFORM                                                   OUTPTK    552
           254  0400000410 +                      ZR     NEXTELEM        RETURN FOR THE NEXT ELEMENT.            OUTPTK    553
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    14
             H - FORMAT PROCESSING SECITON
  
                                        ************************************************************************ OUTPTK    555
                                        *                                                                      * OUTPTK    556
                                        *                                                                      * OUTPTK    557
                                        *                       H - FORMAT PROCESSING                          * OUTPTK    558
                                        *                                                                      * OUTPTK    559
                                        *                                                                      * OUTPTK    560
                                        ************************************************************************ OUTPTK    561
  
           255  63760                   HFORM     SB7    X6                                                      OUTPTK    563
                     6152000006                   SB5    B2+6                                                    OUTPTK    564
           256  0657000264 +                      LE     B7,B5,HFORM.2   IF THE CURRENT FORMAT WORD CONTAINS     OUTPTK    565
                                                                           ALL OF THE HOLLERITH TEXT THEN GO     OUTPTK    566
                                                                           TO 'HFORM.2'.                         OUTPTK    567
  
           257  77775                   HFORM.1   SX7    B7-B5           POSITION THE HOLLERITH TEXT IN A-FORM   OUTPTK    569
                     67765                        SB7    B6-B5             FOR PROCESSING BY THE 'AFORM' SECTION OUTPTK    570
                          22172                   LX1    X2,B7             (ALSO SET THE LENGTH OF THE TEXT      OUTPTK    571
                                                                           PORTION FOR 'HFORM').                 OUTPTK    572
  
                               76650              SX6    B5              SET THE LENGTH OF THE CHARACTERS TO BE  OUTPTK    574
                                                                           PROCESSED BY THE 'AFORM' SECTION.     OUTPTK    575
  
           260  5170000013 +                      SA7    HCOUNT          SAVE THE LENGTH OF THE HOLLERITH STRING OUTPTK    577
                                                                           WHICH REMAINS TO BE TRANSMITTED.      OUTPTK    578
  
                          6170000157 +            INVOKE AFORM           INVOKE THE 'AFORM' PROCESSING SECTION,  OUTPTK    580
                                                                           BUT RETURN HERE TO COMPLETE THE       OUTPTK    581
                                                                           H-FORMAT PROCESSING.                  OUTPTK    582
  
           262  54221                             SA2    A2+B1           FETCH THE NEXT FORMAT WORD AND SET THE  OUTPTK    584
                     66560                        SB5    B6                AVAILABLE STRING LENGTH TO SIXTY BITS OUTPTK    585
  
                          5150000013 +            SA5    HCOUNT          LOAD THE LENGTH OF THE REMAINING        OUTPTK    587
           263  63750                             SB7    X5                HOLLERITH TEXT TO BE TRANSMITTED AND  OUTPTK    588
                     0757000257 +                 GT     B7,B5,HFORM.1     IF THIS FORMAT WORD WILL NOT          OUTPTK    589
                                                                           COMPLETELY SATISFY THE TRANSFER TEHN  OUTPTK    590
                                                                           GO TO 'HFORM.1'.                      OUTPTK    591
  
           264  67257                   HFORM.2   SB2    B5-B7           RESET THE FORMAT SHIFT COUNT,           OUTPTK    593
                     67565                        SB5    B6-B5             POSITION THE LAST TEXT SECTION (AND   OUTPTK    594
                          22152                   LX1    X2,B5           THE LENGTH OF THIS SECTION) AND         OUTPTK    595
                               76670              SX6    B7              INVOKE THE 'AFORM' PROCESSING.          OUTPTK    596
           265  6122777771                        SB2    B2-6                                                    OUTPTK    597
                          6170000157 +            INVOKE AFORM                                                   OUTPTK    598
  
           267  0620000412 +                      PL     B2,NEXTDESC     IF THE CURRENT FORMAT WORD HAS BEEN     OUTPTK    600
                          54221                   SA2    A2+B1             EXHAUSTED THEN FETCH THE NEXT WORD    OUTPTK    601
                               66262              SB2    B6+B2             AND ADJUST THE FORMAT POINTERS BEFORE OUTPTK    602
           270  0400000412 +                      ZR     NEXTDESC          RETURNING TO 'NEXTDESC'.              OUTPTK    603
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    15
             DELIM -- HOLLERITH STRING PROCESSING (DELIMITER FORM)
  
                                        ************************************************************************ OUTPTK    606
                                        *                                                                      * OUTPTK    607
                                        *                                                                      * OUTPTK    608
                                        *                HOLLERITH STRING PROCESSING (DELIMITER FORM)          * OUTPTK    609
                                        *                                                                      * OUTPTK    610
                                        *                                                                      * OUTPTK    611
                                        ************************************************************************ OUTPTK    612
  
           271  76350                   DELIM     SX3    B5              PLACE THE STRING DELIMITER INTO         OUTPTK    614
                     6150000006                   SB5    6                 REGISTER X5 AND 6 INTO REGISTER       OUTPTK    615
                                                                           B5 FOR THE DURATION OF STRING         OUTPTK    616
                                                                           PROCESSING.                           OUTPTK    617
  
           272  66760                   DELIM.1   SB7    B6              INITIALIZE FOR ACCUMULATING UP TO TEN   OUTPTK    619
                     13111                        BX1    X1-X1             HOLLERITH CHARACTERS AT A TIME BEFORE OUTPTK    620
                          43766                   MX7    60-6              INVOKING THE 'AFORM' PROCESSING.      OUTPTK    621
  
           273  23422                   DELIM.2   AX4    X2,B2           EXTRACT THE NEXT CHARACTER FROM THE     OUTPTK    623
                     67225                        SB2    B2-B5             FORMAT, UPDATE THE FORMAT POINTERS,   OUTPTK    624
                          15547                   BX5    -X7*X4            AND IF THE END OF THE HOLLERITH       OUTPTK    625
                               37653              IX6    X5-X3             STRING HAS BEEN REACHED THEN GO TO    OUTPTK    626
           274  0620000275 +                      PL     B2,DELIM.3        'DELIM.4'.                            OUTPTK    627
                          66226                   SB2    B2+B6             (RESET FORMAT POINTERS WHEN STEPPING  OUTPTK    628
                               54221              SA2    A2+B1             OVER A WORD BOUNDARY.)                OUTPTK    629
           275  0306000302 +            DELIM.3   ZR     X6,DELIM.4                                              OUTPTK    630
  
                          12151                   BX1    X5+X1           OTHERWISE APPEND THE CHARACTER TO THE   OUTPTK    632
                               67775              SB7    B7-B5             ACCUMULATED STRING AND GO TO          OUTPTK    633
           276  20106                             LX1    6                 'DELIM.2' IF TEN CHARACTERS HAVE NOT  OUTPTK    634
                     0707000273 +                 GT     B7,B0,DELIM.2     YET BEEN ACCUMULATED.                 OUTPTK    635
                               76660              SX6    B6              SET THE 'AFORM' COUNT TO TEN CHARACTERS OUTPTK    636
           277  20166                             LX1    60-6              AND INVOKE THE 'AFORM' PROCESSING.    OUTPTK    637
                     6170000157 +                 INVOKE AFORM                                                   OUTPTK    638
  
           301  6150000006                        SB5    6                                                       OUTPTK    640
                          0400000272 +            ZR     DELIM.1         REENTER THE CYCLE AT 'DELIM.1' TO       OUTPTK    641
                                                                           INITIALIZE.                           OUTPTK    642
  
           302  77667                   DELIM.4  SX6     B6-B7           SET THE COUNT OF ACCUMULATED CHARACTERS OUTPTK    644
                     67775                       SB7     B7-B5                                                   OUTPTK    645
                          22171                  LX1     X1,B7             AND INVOKE THE 'AFORM' PROCESSING IF  OUTPTK    646
           303  0306000410 +                     ZR      X6,NEXTELEM       THERE WERE ANY ACCUMULATED CHARACTERS OUTPTK    647
                          6170000157 +            INVOKE AFORM                                                   OUTPTK    648
  
           305  0400000412 +                      ZR     NEXTDESC        AFTER PROCESSING THE CHARACTERS (IF     OUTPTK    650
                                                                           ANY) RETURN TO 'NEXTDESC' FOR THE     OUTPTK    651
                                                                           THE NEXT FORMAT FIELD DESCRIPTOR.     OUTPTK    652
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    16
             LEFT AND RIGHT PARENTHESIS PROCESSING SECTION
  
                                        ************************************************************************ OUTPTK    655
                                        *                                                                      * OUTPTK    656
                                        *                       LEFT PARENTHESIS PROCESSING                    * OUTPTK    657
                                        *                                                                      * OUTPTK    658
                                        *                SAVE THE PREVIOUS GROUP INFORMATION (BEGINNING GROUP  * OUTPTK    659
                                        *             ADDRESS AND GROUP REPEAT COUNT) IN THE LEVEL STACK AND   * OUTPTK    660
                                        *             SET THE CURRENT BEGINNING GROUP ADDRESS AND GROUP REPEAT * OUTPTK    661
                                        *             COUNT.  (IF THIS IS A LEVEL-1 GROUP, THEN ALSO SAVE THE  * OUTPTK    662
                                        *             CURRENT INFORMATION FOR RESTART PURPOSES WHEN THE END OF * OUTPTK    663
                                        *             THE FORMAT IS REACHED.)                                  * OUTPTK    664
                                        *                                                                      * OUTPTK    665
                                        ************************************************************************ OUTPTK    666
  
           306  5130000012 +            LPFORM    SA3    GROUPADR                                                OUTPTK    668
                          5150000007 +            SA5    GRC                                                     OUTPTK    669
           307  76420                             SX4    B2                                                      OUTPTK    670
                     20322                        LX3    18                                                      OUTPTK    671
                          74620                   SX6    A2                                                      OUTPTK    672
                               20422              LX4    18                                                      OUTPTK    673
           310  12746                             BX7    X4+X6                                                   OUTPTK    674
                     5140000011 +                 SA4    LEVEL           (THE LEVEL NUMBER STORED IN 'LEVEL' IS  OUTPTK    675
                                                                           ONE LESS THAN THE GROUP LEVEL.)       OUTPTK    676
  
                               54730              SA7    A3              SET THE BEGINNING ADDRESS OF THE        OUTPTK    678
                                                                           CURRENT FORMAT GROUP.                 OUTPTK    679
           311  12635                             BX6    X3+X5                                                   OUTPTK    680
                     22307                        LX3    X7                                                      OUTPTK    681
                          5150000004 +            SA5    R                                                       OUTPTK    682
           312  5264000015 +                      SA6    LEVSTACK+1+X4   SAVE THE PREVIOUS GROUP INFORMATION.    OUTPTK    683
                          10755                   BX7    X5                                                      OUTPTK    684
                               73641              SX6    X4+B1                                                   OUTPTK    685
           313  5170000007 +                      SA7    GRC             SET THE CURRENT GROUP REPEAT COUNT.     OUTPTK    686
                          63760                   SB7    X6                                                      OUTPTK    687
                               54640              SA6    A4              INCREMENT THE CURRENT LEVEL NUMBER.     OUTPTK    688
  
           314  0571000412 +                      NE     B7,B1,NEXTDESC  IF THE NEW GROUP LEVEL IS NOT LEVEL ONE OUTPTK    690
                                                                           THEN GO TO 'NEXTDESC',                OUTPTK    691
  
                          20322                   LX3    18              OTHERWISE SAVE THE NEW GROUP REPEAT     OUTPTK    693
                               12737              BX7    X3+X7             COUNT AND BEGINNING ADDRESS FOR       OUTPTK    694
           315  20666                             LX6    3*18              POSSIBLE USE AS A RESTART POSITION    OUTPTK    695
                     36767                        IX7    X6+X7             WHEN THE END OF THE FORMAT STRING IS  OUTPTK    696
                          5170000021 +            SA7    RESCAN            REACHED                               OUTPTK    697
           316  0400000412 +                      EQ     NEXTDESC                                                FCC1119    33
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    17
             LEFT AND RIGHT PARENTHESIS PROCESSING SECTION
  
                                        ************************************************************************ OUTPTK    701
                                        *                                                                      * OUTPTK    702
                                        *                   RIGHT PARENTHESIS PROCESSING                       * OUTPTK    703
                                        *                                                                      * OUTPTK    704
                                        *                                                                      * OUTPTK    705
                                        ************************************************************************ OUTPTK    706
  
           317  5150000007 +            RPFORM    SA5    GRC                                                     OUTPTK    708
                          43773                   MX7    59                                                      OUTPTK    709
                               36657              IX6    X5+X7                                                   OUTPTK    710
           320  0306000323 +                      ZR     X6,RPFORM.1     IF THE GROUP REPEAT COUNT IS EXHAUSTED  OUTPTK    711
                                                                           THEN GO TO 'RPFORM.1'.                OUTPTK    712
  
                          5140000012 +            SA4    GROUPADR        OTHERWISE RESET THE FORMAT POINTERS TO  OUTPTK    714
           321  53240                             SA2    X4                THE BEGINNING OF THE CURRENT GROUP    OUTPTK    715
                     21422                        AX4    18                                                      OUTPTK    716
                          54650                   SA6    A5                                                      OUTPTK    717
                               63240              SB2    X4                                                      OUTPTK    718
           322  0400000412 +                      ZR     NEXTDESC        GO TO 'NEXTDESC' FOR HTE NEXT FORMAT    OUTPTK    719
                                                                           DESCRIPTOR.                           OUTPTK    720
  
           323  5130000011 +            RPFORM.1  SA3    LEVEL                                                   OUTPTK    722
                          0303000327 +            ZR     X3,RPFORM.2     IF THIS IS THE END OF THE FORMAT THEN   OUTPTK    723
                                                                           GO TO 'RPFORM.2'.                     OUTPTK    724
  
  
           324  5243000014 +                      SA4    LEVSTACK+X3     OTHERWISE RESET THE PARENTHESIS GROUP   OUTPTK    726
                          36637                   IX6    X3+X7             INFORMATION AND DECREMENT THE LEVEL   OUTPTK    727
                               73740              SX7    X4                                                      OUTPTK    728
           325  54630                             SA6    A3                                                      OUTPTK    729
                     21422                        AX4    18                                                      OUTPTK    730
                          54750                   SA7    A5                                                      OUTPTK    731
                               10644              BX6    X4                                                      OUTPTK    732
           326  5160000012 +                      SA6    GROUPADR                                                OUTPTK    733
                          0400000412 +            ZR     NEXTDESC        GO TO 'NEXTDESC' FOR THE NEXT FORMAT    OUTPTK    734
                                                                           DESCRIPTOR.                           OUTPTK    735
  
           327  5130000000 C             RPFORM.2 SA3    CONTINUE                                                OUTPTK    737
                          0313000331 +            NZ     X3,RPFORM3  IF EXPLICIT CONTINUATION MODE               OUTPTK    738
           330  6170000357 +                      INVOKE SLASH       OUTPUT THE CURRENT LINE                     OUTPTK    739
                                                                                                                 OUTPTK    740
           331  5130000021 +             RPFORM3  SA3    RESCAN      RESET THE FORMAT POINTERS AND THE CURRENT   OUTPTK    741
                          73730                   SX7    X3                CURRENT GROUP INFORMATION TO RESTART  OUTPTK    742
                               21322              AX3    18                THE FORMAT SCAN.                      OUTPTK    743
           332  53230                             SA2    X3                                                      OUTPTK    744
                     10633                        BX6    X3                                                      OUTPTK    745
                          5170000007 +            SA7    GRC                                                     OUTPTK    746
           333  21322                             AX3    18                                                      OUTPTK    747
                     5160000012 +                 SA6    GROUPADR                                                OUTPTK    748
                               63230              SB2    X3                                                      OUTPTK    749
           334  21322                             AX3    18                                                      OUTPTK    750
                     10633                        BX6    X3                                                      OUTPTK    751
                          5160000011 +            SA6    LEVEL                                                   OUTPTK    752
           335  0704000412 +                      GT     B4,B0,NEXTDESC  IF ANY MORE ITEMS REMAIN TO BE          OUTPTK    753
                                                                           CONVERTED THEN GO TO 'NEXTDESC',      OUTPTK    754
                          5170000022 +            SA7    PARENFLG                                                OUTPTK    755
           336  0400000107 +                      ZR     OUTPTCX         OTHERWISE EXIT.                         OUTPTK    756
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    18
             T - FORMAT PROCESSING SECTION
  
                                        **        T - FORMAT PROCESSING                                          FCC1119    34
  
           337  5140000027 +            TFORM     SA4    OUTADDR         CALCULATE THE CURRENT DISTANCE FROM THE OUTPTK    766
                          37004                   IX0    X0-X4             BEGINNING OF THE LINE (IN BITS).      OUTPTK    767
                               22710              LX7    X0,B1                                                   OUTPTK    768
           340  5150000531 +                      SA5    =60.0                                                   OUTPTK    769
                          20005                   LX0    5                                                       OUTPTK    770
                               37707              IX7    X0-X7                                                   OUTPTK    771
           341  22017                             LX0    X7,B1                                                   OUTPTK    772
                     63303                        SB3    X0+B3             (CURRENT DISTANCE.)                   OUTPTK    773
                          5140000020 +            SA4    MAXCOUNT                                                OUTPTK    774
           342  63560                             SB5    X6                (POSITION TO TABULATE TO, IN BITS.)   OUTPTK    775
                     13333                        BX3    X3-X3                                                   OUTPTK    776
                          0735000352 +            GT     B5,B3,TFORM.2   IF A TAB FORWARD THEN GO TO 'TFORM.2'.  OUTPTK    777
  
           343  63740                             SB7    X4              SINCE THIS IS A TAB BACKWARD, SET       OUTPTK    779
                     0673000344 +                 LE     B3,B7,TFORM.1     'MAXCOUNT' TO THE MAXIMUM OF THE      FCC1119    35
                               54640              SA6    A4                PREVIOUS VALUE OF 'MAXCOUNT' AND THE  OUTPTK    781
                                                                           CURRENT DISTANCE TO THE BEGINNING OF  OUTPTK    782
                                                                           THE LINE.                             OUTPTK    783
  
           344  27406                   TFORM.1   PX4    X6              RESET THE LINE POINTERS TO REFLECT      OUTPTK    785
                     44745                        FX7    X4/X5             THE POSITION TABULATED TO.            OUTPTK    786
                          5140000027 +            SA4    OUTADDR                                                 OUTPTK    787
           345  26577                             UX5    X7,B7                                                   OUTPTK    788
                     22775                        LX7    X5,B7                                                   OUTPTK    789
                          36074                   IX0    X7+X4                                                   OUTPTK    790
                               22517              LX5    X7,B1                                                   OUTPTK    791
           346  36455                             IX4    X5+X5                                                   OUTPTK    792
                     20706                        LX7    6                                                       OUTPTK    793
                          37474                   IX4    X7-X4                                                   OUTPTK    794
                               63740              SB7    X4                                                      OUTPTK    795
           347  67357                             SB3    B5-B7                                                   OUTPTK    796
                     0303000412 +                 ZR     X3,NEXTDESC     IF NO SPACING TO BE DONE THEN RETURN    OUTPTK    797
                               10633              BX6    X3              OTHERWISE CALL 'SPACE' TO COMPLETE THE  OUTPTK    798
           350  0100000455 +                      CALL   SPACE             TABULATION.                           OUTPTK    799
           351  0400000412 +                      ZR     NEXTDESC        RETURN FOR THE NEXT FORMAT DESCRIPTOR.  OUTPTK    800
  
           352  63740                   TFORM.2   SB7    X4              IF THIS TAB FORWARD DOES NOT EXCEED THE OUTPTK    802
                     0673000353 +                 LE     B3,B7,TFORM.3     MAXIMUM PREVIOUS LINE LENGTH ATTAINED OUTPTK    803
                               66730              SB7    B3                THEN GO TO 'IFORM.1' TO RESET THE     OUTPTK    804
           353  0675000344 +             TFORM.3  LE     B5,B7,TFORM.1     LINE POINTERS.                        OUTPTK    805
  
                          77357                   SX3    B5-B7           OTHERWISE PERFORM THE TAB BY HAVING THE OUTPTK    807
                               10644              BX6    X4                LINE POINTERS RESET TO THE MAXIMUM    OUTPTK    808
           354  63540                             SB5    X4                LINE LENGTH AND THEN SPACING OUT TO   OUTPTK    809
                     0400000344 +                 EQ     TFORM.1           THE POSITION TO BE TABULATED TO       FCC1119    36
                                                                                                                 FCC1119    37
                                        **        X - FORMAT PROCESSING                                          FCC1119    38
  
           355                          XFORM     FORM                                                           OUTPTK    820
           355  0100000455 +                      CALL   SPACE           CALL 'SPACE' TO SPACE THE SPECIFIED     OUTPTK    821
           356  0400000412 +                      ZR     NEXTDESC          NUMBER OF POSITIONS AND THE RETURN.   OUTPTK    822
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    19
             SLASH -- LINE OUTPUT PROCESSING
  
                                        ************************************************************************ OUTPTK    824
                                        *                                                                      * OUTPTK    825
                                        *                                                                      * OUTPTK    826
                                        *                S L A S H -- LINE OUTPUT PROCESSING                   * OUTPTK    827
                                        *                                                                      * OUTPTK    828
                                        *                                                                      * OUTPTK    829
                                        ************************************************************************ OUTPTK    830
  
           357                          SLASH     FORM                                                           OUTPTK    832
           357  74520                             SX5    A2              SAVE THE CURRENT FORMAT POINTERS, THE   OUTPTK    833
                     27625                        PX6    X5,B2             THE HOLD REGISTER (REGISTER X3),      OUTPTK    834
                          10733                   BX7    X3              AND THE DATA ITEM POINTERS.             OUTPTK    835
                               74410              SX4    A1                                                      OUTPTK    836
           360  5160000024 +                      SA6    RESETFMT                                                OUTPTK    837
                          5170000025 +            SA7    RESETX3                                                 OUTPTK    838
           361  27644                             PX6    X4,B4                                                   OUTPTK    839
                     6140000060                   SB4    8*6                                                     OUTPTK    840
                               53500              SA5    X0                                                      OUTPTK    841
           362  5160000026 +                      SA6    RESETITM                                                OUTPTK    842
                          5140000027 +            SA4    OUTADDR                                                 OUTPTK    843
           363  37704                             IX7    X0-X4           IF THE CURRENT LINE POSITION IS NOT THE OUTPTK    844
                     66511                        SB5    B1+B1             MAXIMUM POSITION ATTAINED THEN RESET  OUTPTK    845
                          22657                   LX6    X7,B5             THE LINE POINTERS TO POINT TO THE END OUTPTK    846
                               20706              LX7    6                                                       OUTPTK    847
           364  5130000020 +                      SA3    MAXCOUNT          OF THE LINE.                          OUTPTK    848
                          37576                   IX5    X7-X6                                                   OUTPTK    849
                               73753              SX7    X5+B3                                                   OUTPTK    850
           365  37673                             IX6    X7-X3                                                   OUTPTK    851
                     27303                        PX3    X3                                                      OUTPTK    852
                          0326000371 +            PL     X6,SLASH.1      GO TO 'SLASH.1' IF THE CURRENT POSITION OUTPTK    853
                                                                           IS THE FARTHEST.                      OUTPTK    854
  
           366  5150000532 +                      SA5    =0.01666666667  (ONE SIXTIETH)                          OUTPTK    856
                          40753                   FX7    X5*X3             (INTEGRAL PORTION OF BITCOUNT/60)     OUTPTK    857
                               42653              DX6    X5*X3             (FRACTIONAL PART OF BITCOUNT/60)      OUTPTK    858
           367  5150000533 +                      SA5    =60.000000001   (SIXTY WITH A ROUND FACTOR.)            OUTPTK    859
                          36374                   IX3    X7+X4             (ADDRESS OF LAST WORD IN LINE)        OUTPTK    860
                               73030              SX0    X3                                                      OUTPTK    861
           370  40656                             FX6    X5*X6             (SET REMAINDER OF BITCOUNT/60)        OUTPTK    862
                     63360                        SB3    X6                                                      OUTPTK    863
           371  5130000534 +            SLASH.1   SA3    =8L                                                     OUTPTK    864
                          63640                   SB6    X4              (B6) = LINE FWA                         OUTPTK    865
                               53500              SA5    X0                                                      OUTPTK    866
           372  0643000375 +                      LE     B3,B4,SLASH.2   IF THE LAST WORD OF THE LINE CONTAINS   OUTPTK    867
                                                                           ENOUGH ROOM FOR THE LINE TERMINATOR   OUTPTK    868
                                                                           THEN GO TO 'SLASH.2'.                 OUTPTK    869
  
                          43766                   MX7    60-6            OTHERWISE FILL OUT THE WORD WITH A      OUTPTK    871
                               11575              BX5    X7*X5             BLANK AND MOVE THE POINTERS TO THE    OUTPTK    872
           373  7170000055                        SX7    1R                NEXT WORD (INDICATING THAT IT IS      OUTPTK    873
                          36657                   IX6    X5+X7             EMPTY OF COURSE).                     OUTPTK    874
                               53501              SA5    X0+B1                                                   OUTPTK    875
           374  66300                             SB3    B0                                                      OUTPTK    876
                     53600                        SA6    X0                                                      OUTPTK    877
  
           375  43001                   SLASH.2   MX0    1               TERMINATE THE LINE WITH A ZERO BYTE AND OUTPTK    879
                     67531                        SB5    B3-B1             BLANK FILL (IF NECESSARY).            OUTPTK    880
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    20
             SLASH -- LINE OUTPUT PROCESSING
  
                          23050                   AX0    X0,B5                                                   OUTPTK    881
                               10700              BX7    X0                                                      OUTPTK    882
           376  67761                             SB7    B6-B1                                                   OUTPTK    883
                     21773                        AX7    59                                                      OUTPTK    884
                          11070                   BX0    X7*X0                                                   OUTPTK    885
                               11505              BX5    X0*X5                                                   OUTPTK    886
           377  65757                             SB7    A5-B7           (B7) = LINE LENGTH (WORDS)              OUTPTK    887
                     15330                        BX3    -X0*X3                                                  OUTPTK    888
                          36653                   IX6    X5+X3                                                   OUTPTK    889
                               54650              SA6    A5              (LAST WORD WITH TERMINATOR.)            OUTPTK    890
                                                                                                                 OUTPTK    891
                                        *         WRITE LINE TO FILE.                                            OUTPTK    892
                                        *         AT PRESENT, FILE IS RESTRICTED TO -OUTPUT-.                    OUTPTK    893
                                                                                                                 OUTPTK    894
           400  0100000000 X                      LISTL  B6,B7           LINE TO SOURCE LISTING FILE             OUTPTK    895
                                                                                                                 OUTPTK    896
           401  5150000024 +            SLASH.4   SA5    RESETFMT        RESET THE FORMAT POINTERS, THE DATA     OUTPTK    897
                          26725                   UX7    X5,B2             POINTERS, THE SPECIAL REGISTER (X3),  OUTPTK    898
                               53250              SA2    X5                AND THE REGISTERS WITH CONSTANT VALUE OUTPTK    899
           402  5140000026 +                      SA4    RESETITM                                                OUTPTK    900
                          5150000002 +            SA5    TEMPA0.                                                 OUTPTK    901
           403  53050                             SA0    X5                                                      OUTPTK    902
                     26744                        UX7    X4,B4                                                   OUTPTK    903
                          53140                   SA1    X4                                                      OUTPTK    904
           404  5130000025 +                      SA3    RESETX3                                                 OUTPTK    905
                          6110000001              SB1    1                                                       OUTPTK    906
           405  5150000027 +                      SA5    OUTADDR                                                 OUTPTK    907
                          6160000074              SB6    60                                                      OUTPTK    908
           406  13666                             BX6    X6-X6                                                   OUTPTK    909
                     73050                        SX0    X5                                                      OUTPTK    910
                          5160000020 +            SA6    MAXCOUNT                                                OUTPTK    911
           407  66300                             SB3    B0                                                      OUTPTK    912
                     0400000440 +                 ZR     RETURNX         RETURN TO THE CALLER.                   OUTPTK    913
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    21
             FORMAT ITEM-DATA ITEM CONTROL
  
           410  5150000004 +            NEXTELEM  SA5    R               REDUCE THE FIELD DESCRIPTOR REPEAT      OUTPTK    915
                          43473                   MX4    59                COUNT AND ALSO DECREMENT THE COUNT    OUTPTK    916
                               36754              IX7    X5+X4             OF THE NUMBER OF DATA ITEMS TO BE     OUTPTK    917
           411  67441                             SB4    B4-B1             CONVERTED.                            OUTPTK    918
                     54750                        SA7    A5                                                      OUTPTK    919
                          0317000432 +            NZ     X7,IFNOMORE     IF THE REPEAT COUNT FOR THE CURRENT     OUTPTK    920
                                                                           FIELD DESCRIPTOR HAS NOT BEEN         OUTPTK    921
                                                                           EXHAUSTED THEN GO TO 'IFNOMORE'.      OUTPTK    922
  
           412                          NEXTDESC  BSS    0               (ENTER HERE FOR NEXT FIELD DESCRIPTOR.) OUTPTK    924
  
           412  23422                   NEXT.1    AX4    X2,B2           EXTRACT THE NEXT FORMAT CHARACTER (AND  OUTPTK    926
                     76610                        SX6    B1                UPDATE THE FORMAT POINTERS).          OUTPTK    927
                          5150000000 +            SA5    DIGMASK                                                 OUTPTK    928
           413  0702000414 +                      GT     B2,B0,NEXT.2                                            OUTPTK    929
                          66260                   SB2    B6                                                      OUTPTK    930
                               54221              SA2    A2+B1                                                   OUTPTK    931
           414  43766                   NEXT.2    MX7    60-6            USE THE FUNCTION 'DECIMAL' TO OBTAIN    OUTPTK    932
                     15447                        BX4    -X7*X4            THE BINARY VALUE OF THE REPEAT COUNT  OUTPTK    933
                          63540                   SB5    X4                (ASSUME A VALUE OF ONE IF NO REPEAT   OUTPTK    934
                               22355              LX3    X5,B5             COUNT IS PRESENT).                    OUTPTK    935
           415  6122777771                        SB2    B2-6                                                    OUTPTK    936
                          0323000421 +            PL     X3,NEXT.4                                               OUTPTK    937
           416  7264777744                        SX6    X4-1R0                                                  OUTPTK    938
                          0100000452 +            RJ     DECIMAL                                                 OUTPTK    939
           417  0702000420 +                      GT     B2,B0,NEXT.3    (ADVANCE BEYOND THE CHARACTER WHICH     OUTPTK    940
                          66260                   SB2    B6                TERMINATED THE DECIMAL CONVERSION.)   OUTPTK    941
                               54221              SA2    A2+B1                                                   OUTPTK    942
           420  6122777771              NEXT.3    SB2    B2-6                                                    OUTPTK    943
  
           421  5150000001 +            NEXT.4    SA5    NEEDW           IF THE FORMAT ELEMENT IS A FIELD        OUTPTK    945
                          5160000004 +            SA6    R                 DESCRIPTOR AND NEEDS A WIDTH VALUE    OUTPTK    946
           422  5160000005 +                      SA6    W                 (EG. A-FORMAT, I-FORMAT, ETC.) THEN   OUTPTK    947
                          22555                   LX5    X5,B5             USE THE FUNCTION 'DECIMAL' AGAIN TO   OUTPTK    948
                               20473              LX4    -1                CONVERT THE NEEDED VALUE.             OUTPTK    949
           423  5234000030 +                      SA3    FORMS+X4                                                OUTPTK    950
                          0334000425 +            MI     X4,NEXT.5         (ALSO STORE AWAY THE ADDRESS OF THE   OUTPTK    951
           424  20336                             LX3    30                PROPER PROCESSING SECTION FOR THE     OUTPTK    952
           425  10633                   NEXT.5    BX6    X3                FORMAT DESCRIPTOR.)                   OUTPTK    953
                     5160000006 +                 SA6    GOCELL                                                  OUTPTK    954
           426  0325000433 +                      PL     X5,NEXT.6         GO TO 'NEXT.6' IF NO DATA ITEM IS     OUTPTK    955
                                                                           REQUIRED (I.E. NO WIDTH VALUE NEEDED) OUTPTK    956
  
                          5150000000 +            SA5    DIGMASK         SETUP DIGIT MASK FOR 'DECIMAL'          OUTPTK    958
           427  66750                             SB7    B5                                                      OUTPTK    959
                     13666                        BX6    X6-X6                                                   OUTPTK    960
                          0100000452 +            RJ     DECIMAL                                                 OUTPTK    961
           430  5160000005 +                      SA6    W                                                       OUTPTK    962
                          5150000006 +    SA5 GOCELL                                                             OUTPTK    963
           431  7265777440 -              SX6 X5-TFORM                                                           OUTPTK    964
                          0306000433 +    ZR X6,NEXT.6                                                           OUTPTK    965
  
  
           432  0604000107 +            IFNOMORE  LE     B4,B0,OUTPTCX   IF NO MORE ITEMS ARE LEFT THEN RETURN.  OUTPTK    967
                          54111                   SA1    A1+B1             (ELSE FETCH THE NEXT ITEM.)           OUTPTK    968
  
           433  5150000005 +            NEXT.6    SA5    W               CALL THE PROPER PROCESSING SECTION      OUTPTK    970
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    22
             FORMAT ITEM-DATA ITEM CONTROL
  
                          36655                   IX6    X5+X5             WITH THE WIDTH VALUE (OR COUNT VALUE  OUTPTK    971
                               22416              LX4    X6,B1             IN THE CASE OF X-FORMAT, H-FORMAT,    OUTPTK    972
           434  5150000006 +                      SA5    GOCELL            ETC.) IN BITS IN REGISTER  X6  AND    OUTPTK    973
                          36646                   IX6    X4+X6             THE DATA ITEM, IF ANY, IN REGISTER    OUTPTK    974
                               63750              SB7    X5                X1.                                   OUTPTK    975
           435  0100000441 +                      RJ     RETURN                                                  OUTPTK    976
  
  
           436  0736000410 +                      LT     B3,B6,NEXTELEM  UPON RETURN FROM THE PROCESSOR UPDATE   OUTPTK    978
                          73001                   SX0    X0+B1             THE OUTPUT LINE POINTERS IF THE END   OUTPTK    979
                               66300              SB3    B0                OF A WORD BOUNDARY HAS BEEN REACHED,  OUTPTK    980
           437  0400000410 +                      ZR     NEXTELEM          THEN GO TO 'NEXTELEM'.                OUTPTK    981
  
  
  
           440  0736000441 +            RETURNX   LT     B3,B6,RETURN    IF THE CURRENT OUTPUT WORD IS NOT FULL  OUTPTK    983
                                                                           THEN GO TO 'RETURN'.                  OUTPTK    984
  
                          73001                   SX0    X0+B1             INCREMENT THE OUTPUT POINTERS.        OUTPTK    986
                               66300              SB3    B0                                                      OUTPTK    987
  
           441                     1    RETURN    BSS    1               ENTRY/EXIT INFORMATION FOR INVOKED      OUTPTK    989
                                                                           PROCESSORS.                           OUTPTK    990
  
           442  0277000000                        JP     B7              JUMP TO THE APPROPRIATE PROCESSOR.      OUTPTK    992
  
  
  
                                        **        ILLEGAL - PROCESS ILLEGAL FORMAT SPECIFICATION                 FCC1119    41
                                                                                                                 FCC1119    42
           443  6170000357 +             ILLEGAL  INVOKE SLASH                                                   FCC1119    43
           444  0400400444 +                      EQ     *+1S17      ABORT                                       FCC1119    44
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    23
             UTILITY: D E C I M A L 
  
                                        ************************************************************************ OUTPTK    994
                                        *                                                                      * OUTPTK    995
                                        *                       DECIMAL                                        * OUTPTK    996
                                        *                                                                      * OUTPTK    997
                                        *                THIS FUNCTION WILL CONVERT A STRING OF DECIMAL DIGITS * OUTPTK    998
                                        *             (FROM THE FORMAT) TO BINARY.  CALLING SEQUENCE --        * OUTPTK    999
                                        *                                                                      * OUTPTK   1000
                                        *                                RJ  DECIMAL                           * OUTPTK   1001
                                        *                                                                      * OUTPTK   1002
                                        *             WHERE THE FOLLOWING REGISTERS HAVE BEEN SET:             * OUTPTK   1003
                                        *                                X5 -- 'DIGMASK'                       * OUTPTK   1004
                                        *                                X6 -- INITIAL VALUE OF NUMBER         * OUTPTK   1005
                                        *                                X7 -- 7777 7777 7777 7777 7700B       * OUTPTK   1006
                                        *                                                                      * OUTPTK   1007
                                        *             UPON RETURN REGISTER  X6  WILL CONTAIN THE CONVERTED     * OUTPTK   1008
                                        *             NUMBER AND REGISTER  X4  WILL CONTAIN THE TERMINATING    * OUTPTK   1009
                                        *             (NON-DIGIT) CHARACTER, THE FORMAT POINTERS WILL NOT      * OUTPTK   1010
                                        *             HAVE BEEN UPDATED TO REFLECT THE EXTRACTION OF THE       * OUTPTK   1011
                                        *             TERMINATING CHARACTER.                                   * OUTPTK   1012
                                        *                                                                      * OUTPTK   1013
                                        ************************************************************************ OUTPTK   1014
  
           445  36366                   DEC.1     IX3    X6+X6           MULTIPLY THE ACCUMULATED NUMBER BY TEN  OUTPTK   1016
                     20603                        LX6    3                 AND ADD THE DIGIT JUST ENCOUNTERED.   OUTPTK   1017
                          7244777744              SX4    X4-1R0                                                  OUTPTK   1018
           446  36363                             IX3    X6+X3                                                   OUTPTK   1019
                     6122777771                   SB2    B2-6                                                    OUTPTK   1020
                               36634              IX6    X3+X4                                                   OUTPTK   1021
           447  0620000450 +                      PL     B2,DEC.2                                                OUTPTK   1022
                          66262                   SB2    B6+B2                                                   OUTPTK   1023
                               54221              SA2    A2+B1                                                   OUTPTK   1024
           450  23322                   DEC.2     AX3    X2,B2           EXTRACT THE NEXT FORMAT CHARACTER AND   OUTPTK   1025
                     15437                        BX4    -X7*X3          IF IT IS A DIGIT THE CYCLE.             OUTPTK   1026
                          63540                   SB5    X4                                                      OUTPTK   1027
                               22355              LX3    X5,B5                                                   OUTPTK   1028
           451  0333000445 +                      MI     X3,DEC.1                                                OUTPTK   1029
                                                                           OTHERWISE RETURN.                     OUTPTK   1030
  
           452                     1    DECIMAL   BSS    1                                                       OUTPTK   1032
           453  23322                             AX3    X2,B2                                                   OUTPTK   1033
                     15437                        BX4    -X7*X3                                                  OUTPTK   1034
                          63540                   SB5    X4                                                      OUTPTK   1035
                               22355              LX3    X5,B5                                                   OUTPTK   1036
           454  0333000445 +                      MI     X3,DEC.1                                                OUTPTK   1037
                          0400000452 +            ZR     DECIMAL                                                 OUTPTK   1038
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    24
             UTILITY:  S P A C E
  
                                        ************************************************************************ OUTPTK   1040
                                        *                                                                      * OUTPTK   1041
                                        *                       S P A C E                                      * OUTPTK   1042
                                        *                                                                      * OUTPTK   1043
                                        *                THIS ROUTINE WILL APPEND A DESIGNATED NUMBER OF       * OUTPTK   1044
                                        *             SPACES TO THE CURRENT OUTPUT LINE AND RETURN WITH THE    * OUTPTK   1045
                                        *             LINE POINTERS UPDATED.                                   * OUTPTK   1046
                                        *                                                                      * OUTPTK   1047
                                        *                CALLING SEQUENCE--                                    * OUTPTK   1048
                                        *                                                                      * OUTPTK   1049
                                        *                       CALL  SPACE                                    * OUTPTK   1050
                                        *                                                                      * OUTPTK   1051
                                        *             WHERE REGISTER X6 HAS BEEN SET TO THE NUMBER OF BITS TO  * OUTPTK   1052
                                        *             BE FILLED BY BLANK CHARACTERS (I.E. SIX TIMES THE NUMBER * OUTPTK   1053
                                        *             OF BLANK CHARACTERS TO BE APPENDED).                     * OUTPTK   1054
                                        *                                                                      * OUTPTK   1055
                                        *                REGISTERS USED--  X4, X5, X6, X7                      * OUTPTK   1056
                                        *                                  A4, A5, A6                          * OUTPTK   1057
                                        *                                      B5,     B7                      * OUTPTK   1058
                                        *                                                                      * OUTPTK   1059
                                        *             THE NORMAL 'OUTPTK' REGISTER USAGES ARE ASSUMED          * OUTPTK   1060
                                        *             (I.E. B1=1, B6=60, X0=CURRENT OUTPUT WORD ADDRESS, ETC.).* OUTPTK   1061
                                        *                                                                      * OUTPTK   1062
                                        ************************************************************************ OUTPTK   1063
  
           455  0200400455 +            SPACE     ROUTINE                                                        OUTPTK   1065
           456  63760                             SB7    X6              (SET REGISTER B7 TO THE SPACE COUNT AND OUTPTK   1066
                     67563                        SB5    B6-B3             REGISTER X5 TO AN ALL BLANK WORD.)    OUTPTK   1067
                          5150000527 +            SA5    =10H                                                    OUTPTK   1068
           457  0775000466 +                      LT     B7,B5,SPACE.3   IF THE NUMBER OF COLUMNS TO SPACE LIES  OUTPTK   1069
                                                                           WITHIN THE CURRENT OUTPUT WORD BUT    OUTPTK   1070
                                                                           DOES NOT FILL IT, GO TO 'SPACE.3',    OUTPTK   1071
                          43401                   MX4    1               OTHERWISE FILL OUT THE CURRENT OUTPUT   OUTPTK   1072
                               67775              SB7    B7-B5             WORD WITH BLANKS.                     OUTPTK   1073
           460  67531                             SB5    B3-B1                                                   OUTPTK   1074
                     23454                        AX4    X4,B5                                                   OUTPTK   1075
                          10744                   BX7    X4                                                      OUTPTK   1076
                               21473              AX4    59                                                      OUTPTK   1077
           461  11747                             BX7    X4*X7                                                   OUTPTK   1078
                     15657                        BX6    -X7*X5                                                  OUTPTK   1079
                          53400                   SA4    X0                                                      OUTPTK   1080
                               11774              BX7    X7*X4                                                   OUTPTK   1081
           462  36676                             IX6    X7+X6                                                   OUTPTK   1082
                     53600                        SA6    X0                                                      OUTPTK   1083
                          0776000465 +            LT     B7,B6,SPACE.2   IF THE NUMBER OF BLANKS LEFT TO BE      OUTPTK   1084
                                                                           APPENDED WILL NOT FILL A COMPLETE     OUTPTK   1085
                                                                           WORD THEN GO TO 'SPACE.2',            OUTPTK   1086
  
           463  10655                             BX6    X5              OTHERWISE FILL AS MANY COMPLETE WORDS   OUTPTK   1088
           464  67776                   SPACE.1   SB7    B7-B6             AS NECESSARY UNTIL ONLY A PARTIAL     OUTPTK   1089
                     54661                        SA6    A6+B1             (OR NO) WORD REMAINS.                 OUTPTK   1090
                          0676000464 +            GE     B7,B6,SPACE.1                                           OUTPTK   1091
  
           465  74061                   SPACE.2   SX0    A6+B1           UPDATE THE OUTPUT LINE POINTERS.        OUTPTK   1093
                     66300                        SB3    B0                                                      OUTPTK   1094
  
           466  0470000455 +            SPACE.3   ZR     B7,SPACE        RETURN IF THERE ARE NO MORE SPACES TO   OUTPTK   1096
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    25
             UTILITY:  S P A C E
  
                                                                           APPEND,                               OUTPTK   1097
                          67563                   SB5    B6-B3           OTHERWISE APPEND THE SPACES, UPDATE THE OUTPTK   1098
                               43401              MX4    1                 LINE POINTERS AND RETURN.             OUTPTK   1099
           467  66337                             SB3    B3+B7                                                   OUTPTK   1100
                     67771                        SB7    B7-B1                                                   OUTPTK   1101
                          23774                   AX7    X4,B7                                                   OUTPTK   1102
                               53400              SA4    X0                                                      OUTPTK   1103
           470  22757                             LX7    X7,B5                                                   OUTPTK   1104
                     11575                        BX5    X7*X5                                                   OUTPTK   1105
                          15447                   BX4    -X7*X4                                                  OUTPTK   1106
                               36645              IX6    X4+X5                                                   OUTPTK   1107
           471  53600                             SA6    X0                                                      OUTPTK   1108
                     0400000455 +                 ZR     SPACE                                                   OUTPTK   1109
  
  
  
                                        **        SETST - SET SUB TITLE LINE                                     OUTPTK   1115
                                        *                                                                        OUTPTK   1116
                                        *         CALL SETST( WDS , "SUBTITLE" )                                 OUTPTK   1117
                                                                                                                 OUTPTK   1118
           472  7160000001               SETST0   SX6    1                                                       OUTPTK   1119
                          5160000000 X            SA6    =XL.STITL                                               OUTPTK   1120
           473  7170003355                        SX7    2R0                                                     OUTPTK   1121
                          20760                   LX7    48                                                      OUTPTK   1122
           474  5170000000 X                      SA7    =XO.STITL                                               OUTPTK   1123
                                                                                                                 OUTPTK   1124
           475  0400400475 +             SETST    ENTRY. **                                                      OUTPTK   1125
           476  53410                             SA4    X1                                                      OUTPTK   1126
                     6110000001                   SB1    1                                                       OUTPTK   1127
           477  0304000472 +                      ZR     X4,SETST0   IF WDS = 0    */ NO SUBSTITLE               OUTPTK   1128
                          10644                   BX6    X4                                                      OUTPTK   1129
           500  5160000000 X                      SA6    L.STITL                                                 OUTPTK   1130
                          54211                   SA2    A1+B1                                                   OUTPTK   1131
                               73140              MOVE   X4,X2,O.STITL                                           OUTPTK   1132
           503  5110000000 X                      SA1    =XN.LINES                                               OUTPTK   1133
                          7221000004              SX2    X1+4                                                    OUTPTK   1134
           504  0332000506 +                      MI     X2,SETST1   IF MORE THAN 4 LINES LEFT                   OUTPTK   1135
                          0100000000 X            NUPAGE                                                         OUTPTK   1136
           505  0400000475 +                      EQ     SETST                                                   OUTPTK   1137
                                                                                                                 OUTPTK   1138
           506  6160000535 +             SETST1   LISTL  (=2C  ),1                                               OUTPTK   1139
           507  5110000000 X                      SA1    L.STITL                                                 OUTPTK   1140
                          6160000000 X            LISTL  O.STITL,X1                                              OUTPTK   1141
           511  0400000475 +                      EQ     SETST                                                   OUTPTK   1142
  
  
  
           512  00000000000000000000     REMARK   ENTRY.                                                         OUTPTK   1144
           513  73110                             MESSAGE  X1,,RCL                                               F7540FT    33
           515  0400000512 +                      EQ     REMARK                                                  OUTPTK   1146
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    26
        SPA=  -  SUBSTITUTE PARAMETER ADDRESSES.                      SPA=
  
                                        ***       SPA= - SUBSTITUTE PARAMETER ADDRESSES.                         FCCT010     7
                                        *                                                                        FCCT010     8
                                        *         L.D.HARE           CDC-SVLOPS     5/3/77.                      FCCT010     9
                                        *         M.A.HERBACH        CDC-SVLOPS     5/3/77.                      FCCT010    10
                                        *                                                                        FCCT010    11
                                        *            *SPA=* IS AN *FCL* RESIDENT RELOCATABLE ROUTINE WHOSE       FCCT010    12
                                        *         FUNCTION IS TO SUBSTITUTE ACTUAL PARAMETER ADDRESSES           FCCT010    13
                                        *         INTO THOSE EXECUTABLE INSTRUCTIONS THAT REFERENCE THE          FCCT010    14
                                        *         ASSOCIATED FORMAL PARAMETERS.  THIS PROCESS IS TERMED          FCCT010    15
                                        *         THE *ADDSUB* FUNCTION.                                         FCCT010    16
                                        *                                                                        FCCT010    17
                                        *            TO DETERMINE WHICH ADDRESSES GET ADDSUBBED, AND WITH        FCCT010    18
                                        *         WHICH ACTUAL PARAMETER ADDRESS, THE COMPILER GENERATES         FCCT010    19
                                        *         *SUB* MACROS WHICH BUILD A BLOCK FOR EACH *FP*.                FCCT010    20
                                        *         IN CORE THESE BLOCKS WOULD BE CONTIGUOUS FORMING THE *SUB*     FCCT010    21
                                        *         TABLE TERMINATED WITH A SINGLE WORD OF THE FORMAT *CON  1S58*. FCCT010    22
                                        *                                                                        FCCT010    23
                                        *            EACH ENTRY IN THE *SUB* TABLE HAS THE FOLLOWING FORMAT:-    FCCT010    24
                                        *                                                                        FCCT010    25
                                        **T       12/SPOS,6/FP.NO.,6/0,18/CA,18/ADDRESS                          FCCT010    26
                                        *                                                                        FCCT010    27
                                        *            WHERE:-                                                     FCCT010    28
                                        *                                                                        FCCT010    29
                                        *         SPOS     = INSTRUCTION PARCEL SHIFT COUNT + 2000B.             FCCT010    30
                                        *                  = $+2001B - $/59*61                                   FCCT010    31
                                        *         SPOS     = POSITIVE FOR THE FIRST ENTRY FOR A PARAMETER,       FCCT010    32
                                        *                    OR IF A *DELAY* PRECEEDED THIS *SUB*.               FCCT010    33
                                        *                    OTHERWISE  SPOS = SPOS * -1                         FCCT010    34
                                        *         FP.NO.   = FORMAL PARAMETER NUMBER.                            FCCT010    35
                                        *         CA       = CONSTANT ADDEND.                                    FCCT010    36
                                        *         ADDRESS  = ADDRESS OF INSTRUCTION TO *ADDSUB*.                 FCCT010    37
                                        *                                                                        FCCT010    38
                                        *            NOTE THAT A SHIFT OF -0 (1777B PACKED) IS GENERATED         FCCT010    39
                                        *         INSTEAD OF A +0 SHIFT.  THIS INCREASES THE PROBABILITY         FCCT010    40
                                        *         OF A USER ABORT IF HE WERE TO ACCIDENTALLY ACCESS THE          FCCT010    41
                                        *         *SUB* TABLE WITH A BAD SUBSCRIPT.                              FCCT010    42
                                        *                                                                        FCCT010    43
                                        *         ENTRY  A0 _ ACTUAL PARAMETER LIST.                             FCCT010    44
                                        *                A3 _ FIRST *SUB* TABLE ENTRY (NEVER A DELAY).           FCCT010    45
                                        *                X3 = FIRST *SUB* TABLE ENTRY.                           FCCT010    46
                                        *                                                                        FCCT010    47
                                        *         EXIT   A0 _ ACTUAL PARAMETER LIST.                             FCCT010    48
                                        *                                                                        FCCT010    49
                                        *         USES   B3,B5  A1,A2,A3,A6  X0,X1,X2,X3,X4,X5,X6                FCCT010    50
                                        *                                                                        FCCT010    51
                                        *         CALLS  NONE.                                                   FCCT010    52
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    27
        SPA=  -  SUBSTITUTE PARAMETER ADDRESSES.
  
           516  00000000000000000000     SPA.     ENTRY.             ENTRY/EXIT..                                FCCT010    54
                                                                                                                 FCCT010    55
           517  26433                             UX4    B3,X3                                                   FCCT010    56
                     64500                        SB5    A0                                                      FCCT010    57
                          21452                   AX4    42          POSITION *FP* NUMBER                        FCCT010    58
                               53145              SA1    X4+B5       FIRST ACTUAL PARAMETER TO ADDSUB            FCCT010    59
                                                                                                                 FCCT010    60
           520  53230                    SPA1     SA2    X3          NEXT INSTRUCTION TO ADDSUB                  FCCT010    61
                     26433                        UX4    B3,X3                                                   FCCT010    62
                          43052                   MX0    42                                                      FCCT010    63
                               63410              SB4    X1          ACTUAL PARAMETER ADDRESS                    FCCT010    64
                                                                                                                 FCCT010    65
           521  21422                    SPA2     AX4    18          SHIFT *CA* TO LOW ORDER POSITION            FCCT010    66
                     5033000001                   SA3    A3+1        PRELOAD NEXT *SUB* TABLE ENTRY              FCCT010    67
                               73544              SX5    X4+B4       ADD IN *CA*                                 FCCT010    68
           522  22130                             LX1    B3,X0       POSITION MASK                               FCCT010    69
                     15650                        BX6    -X0*X5      CLEAR SIGN EXTENSION ON *FP* ADDRESS        FCCT010    70
                          64220                   SB2    A2                                                      FCCT010    71
                               22536              LX5    B3,X6       POSITION *FP* ADDRESS                       FCCT010    72
           523  11412                             BX4    X1*X2       CLEAR ADDRESS FIELD IN INSTRUCTION          FCCT010    73
                     53230                        SA2    X3          PRELOAD NEXT INSTRUCTION TO *ADDSUB*        FCCT010    74
                          12645                   BX6    X4+X5       INSERT *FP* ADDRESS                         FCCT010    75
                               26433              UX4    B3,X3                                                   FCCT010    76
           524  5162000000                        SA6    B2+         RESTORE *SUBBED* INSTRUCTION                FCCT010    77
                          0333000521 +            MI     X3,SPA2     IF NOT DELAY OR MORE THIS *FP*              FCCT010    78
                                                                                                                 FCCT010    79
           525  21452                             AX4    42          POSITION *FP* NUMBER                        FCCT010    80
                     53145                        SA1    X4+B5       NEXT ACTUAL PARAMETER TO *ADDSUB*           FCCT010    81
                          0530000520 +            NZ     B3,SPA1     IF MORE TO *ADDSUB*                         FCCT010    82
           526  0400000516 +                      EQ     SPA.        EXIT..                                      FCCT010    83
  
  
  
  
                                         .TEST    ENDIF                                                          OUTPK24     7
           536                                    END                                                            OUTPK24     8
  
                             54700B CM  STORAGE USED             1618 STATEMENTS      649 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.366 SECONDS         414 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
        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
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    28
        SYMBOLIC REFERENCE TABLE. 
  
        DELIM         271   PROGRAM*        3/47      3/53     15/09 L
        DELIM.1       272   PROGRAM*       15/14 L   15/36
        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/41     25/43
        FA=NPG          0   EXTERNAL*      25/38
        FORMAT         10   PROGRAM*        3/13 L    4/25 S
        FORMS          30   PROGRAM*        3/37 L   21/36
        GOCELL          6   PROGRAM*        3/11 L   21/40 S   21/49     22/03
        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
        L.STITL         0   EXTERNAL*      25/22 S   25/32 S   25/42
        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/49
        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
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    29
        SYMBOLIC REFERENCE TABLE. 
  
        NEXT.6        433   PROGRAM*       21/41     21/51     21/57 L
        N.LINES         0   EXTERNAL*      25/35
        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
        O.STITL         0   EXTERNAL*      25/25 S   25/34     25/43
        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        512   PROGRAM*       25/48 E   25/48 L   25/50
        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/39     25/44
        SETST0        472   PROGRAM*       25/21 L   25/30
        SETST1        506   PROGRAM*       25/37     25/41 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          520   PROGRAM*       27/08 L   27/29
        SPA2          521   PROGRAM*       27/13 L   27/25
        SPA.          516   PROGRAM*       27/01 E   27/01 L   27/30
        TEMPA0.         2   PROGRAM*        3/07 L    4/18 S    6/20     20/21
        TEST            0   FTNTEXT         1/33 F
        TFORM         337   PROGRAM*        3/44     18/03 L   21/50
        TFORM.1       344   PROGRAM*       18/17     18/22 L   18/42     18/47
1       OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                COMPASS 3.7-871.     24/05/02. 15.57.24.      PAGE    30
        SYMBOLIC REFERENCE TABLE. 
  
        TFORM.2       352   PROGRAM*       18/14     18/39 L
        TFORM.3       353   PROGRAM*       18/40     18/42 L
        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 PUT        74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE PUT                                                     PUT         2    
                    C                                                                        PUT         3    
                    C  THIS SUBROUTINE SEARCHES A LIST FOR THE CURRENT LINE OR STATEMENT     PUT         4    
                    C  NUMBER.  THE NUMBER IS ENTERED IN THE LIST IF SO DESIGNATED.          PUT         5    
         5          C  ENTRY: NEXT = THE BEGINNING ADDRESS OF THE LIST TO BE SEARCHED        PUT         6    
                    C         ITEM = THE LINE OR STATEMENT NUMBER, RIGHT JUSTIFIED           PUT         7    
                    C         TO FM = 0 IF TO LIST                                           PUT         8    
                    C               = 1 IF FROM LIST                                         PUT         9    
                    C         BD ADD = THE ADDRESS OF THE BOUND TO BE ADDED                  PUT        10    
        10          C                = 0 IF NO ENTRY TO BE MADE                              PUT        11    
                    C         SAREA = THE BEGINNING ADDRESS OF THE AREA LIST                 PUT        12    
                    C  EXIT:  NEXT = THE ADDRESS OF THE LINE OR STATEMENT NUMBER, IF FOUND   PUT        13    
                    C              = 0 ELSE                                                  PUT        14    
                    C                                                                        PUT        15    
        15                                                                                   FDBGCOM     2    
                                                                                             FDBGCOM     3    
                                                                                             FDBGCOM     4    
                                                                                             FDBGCOM     5    
                    C         ***   FORTRAN DEBUG COMMON DECLARATIONS.                       FDBGCOM     6    
        20                                                                                   FDBGCOM     7    
                                                                                             FDBGCOM     8    
                          IMPLICIT INTEGER (A - Z)                                           FDBGCOM     9    
                                                                                             FDBGCOM    10    
                    C                                                                        FDBGCOM    11    
        25          C     THE FOLLOWING SYMBOLS ARE SET UP BY FTNX DEBUG ROUTINES TO BE USED FDBGCOM    12    
                    C     BY THE STATEMENT PROCESSORS DURING PHASE 2.                        FDBGCOM    13    
                    C                                                                        FDBGCOM    14    
                          COMMON /DBGBLK1/                                                   FDBGCOM    15    
                         ,ALLARR, ALLCALL, ALLFUNC, GO TOS FL, NOGOFLG, TRACEL,              FDBGCOM    16    
        30               ,ALLROU, SPIDER                                                     FDBGCOM    17    
                          COMMON /DBGBLK2/                                                   FDBGCOM    18    
                    C                                                                        FDBGCOM    19    
                    C     THE FOLLOWING SYMBOLS ARE USED AS LIST POINTERS IN BOTH FTNX AND   FDBGCOM    20    
                    C     COMPASS DEBUG MODIFICATIONS.                                       FDBGCOM    21    
        35          C                                                                        FDBGCOM    22    
                         ,SDRL, EDRL, SDVL, EDVL, SAREA, AREAEND, DFOPL, SSYMTAB, ESYMTAB,   FDBGCOM    23    
                         ,SAASI, REFMAP, ELIST, LELIST, ELAST, DFNESTW, FIDIT, EFIDIT,       FDBGCOM    24    
                         ,DFCON1, DFCONL, NAASI, SDBGIND, CONSTOR, DFSCON1, DOLAST,          FDBGCOM    25    
                    C                                                                        FDBGCOM    26    
        40          C     THE FOLLOWING SYMBOLS ARE USED AS FLAGS FOR BOTH FTNX AND COMPASS  FDBGCOM    27    
                    C     DEBUG MODIFICATIONS.                                               FDBGCOM    28    
                    C                                                                        FDBGCOM    29    
                         ,DFNOGO, DFPACK, POW, DFOPFLG, DFON, NUM ERR, P ADD,                FDBGCOM    30    
                         ,  FEFLAG, OPENFL, DBGPROG, LDEBUG, RECORD, DISPOW, SUCCESS,        FDBGCOM    31    
        45               ,  LTFLAG, LFLAG, NOPROG,                                           FDBGCOM    32    
                    C                                                                        FDBGCOM    33    
                    C     THE FOLLOWING SYMBOLS ARE USED TO PASS INFORMATION BETWEEN FTNX    FDBGCOM    34    
                    C     AND COMPASS DEBUG ROUTINES.                                        FDBGCOM    35    
                    C                                                                        FDBGCOM    36    
        50               ,CUR UP DT(2), DUKE1, CLABEL, DFTYPE, DFNEST, LNGIND, NO ACT,       FDBGCOM    37    
                         ,    AREA FLG, D LNG DRL, D LNG DVL, CFPACK,                        FDBGCOM    38    
                         ,    UP DT TBL(20), COUNTUP, SCNUPDT,                               FDBGCOM    39    
                         ,    INDEX NO, PHSFLAG                                              FDBGCOM    40    
                    C                                                                        FDBGCOM    41    
        55          C     *DEBUG* IS DEFINED AS AN ARRAY BASED AT THE BEGINNING OF BLANK     FDBGCOM    42    
                    C     COMMON.  IT ENABLES FTNX DEBUG ROUTINES TO REFERENCE ANY PROGRAM   FDBGCOM    43    
                    C     LOCATIONS WITHIN THE PROGRAM FIELD LENGTH.                         FDBGCOM    44    
1         SUBROUTINE PUT        74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                    C                                                                        FDBGCOM    45    
                          COMMON // DEBUG(1)                                                 FDBGCOM    46    
        60          C                                                                        FDBGCOM    47    
                    C     THE FOLLOWING SYMBOLS ARE USED BY FTNX DEBUG ROUTINES              FDBGCOM    48    
                    C                                                                        FDBGCOM    49    
                          COMMON /DBGBLK3/                                                   FDBGCOM    50    
                         ,NEXT, TO FM, ITEM, BD ADD, MINZERO, MULT, OH, AASI, SYMTAB,        FDBGCOM    51    
        65               ,FM LIST, N FIELD, ASHIFT, DFOPL1, DFOPL2, TEMP, SASI, NXT STR,     FDBGCOM    52    
                         ,    POINT, TEMP1, ELIST1, SAV UP DT (2),                           FDBGCOM    53    
                         ,TRCADD, ERR NUM, DLINE, DTYPE, ERR MSG(5,5), NDRL, DRL,            FDBGCOM    54    
                         ,OPREC, M, SPIDIS, DUNIT, OPDRL, STOSWAP, TRACEON, MISFLAG,         FDBGCOM    55    
                         ,CUR OP BD, CUR ROUT, COW, FM BOUND, TO BOUND, BLNG,                FDBGCOM    56    
        70               ,    DVL, REL OP, NOCONST, LEVEL, NO OF WDS, NXT ADD, ALNG,         FDBGCOM    57    
                         ,NXT ADD1, LSHIFT, NXT STR1, LEVSHFT, TAASI, TRACED, NO LIN,        FDBGCOM    58    
                         ,    AASIADD, RTAB(9), NXT ITEM, TO LIST, DBGPIC(9), PREDBG(2),     FDBGCOM    59    
                         ,STAR1, STAR2, SAMLINE, FSTLINE, LSTLINE, STAR, COMMA, RPAREN,      FDBGCOM    60    
                         ,    LPAREN, SLASH, BOUND WD, OP WORD, TLNG, BASE ADD,              FDBGCOM    61    
        75               ,    FT ADD, BDS ADD, TOT LNG, UP NO, UP DIS, SYMTAB B, SAVE OH,    FDBGCOM    62    
                         ,    OVRFLOW, DLFLG, DFSAVE, DFSAVE1,                               FDBGCOM    63    
                         ,     RELFLAG, ROU NAME, TO SHIFT, VALUE, INDEF, RANGE              FDBGCOM    64    
                          COMMON /OUTPUT/ DBGOUT                                             FDBGCOM    65    
                          LOGICAL LTFLAG, LFLAG                                              FDBGCOM    66    
        80                LOGICAL BITON,BITOFF                                               FDBGCOM    67    
                          ADDRESS(X) = X.AND.777777B                                         FDBGCOM    68    
                          EFORM(X) = SHIFT(X,12).AND.77B                                     FDBGCOM    69    
                          DRLELT(X) = X.AND..NOT.777777B                                     FDBGCOM    70    
                          LENGTH(X) = ADDRESS(SHIFT(X, -24))                                 FDBGCOM    71    
        85                TLENGTH(X) = ADDRESS(SHIFT(X, 18))                                 FDBGCOM    72    
                          PLUS(X)=21B                                                        FDBGCOM    73    
                          MINUS(X)=20B                                                       FDBGCOM    74    
                          INC FCNT(X) = SHIFT(MASK(1), 1 + DTOFLD(X))                        FDBGCOM    75    
                    C                                                                        FDBGCOM    76    
        90          C     THE FOLLOWIING ASF"S REFERENCE BITS IN THE SYMBOL TABLE,           FDBGCOM    77    
                          COMBIT(X)           =          14                                  FDBGCOM    78    
                          EQUBIT(X)           =          12                                  FDBGCOM    79    
                          DIMBIT(X)           =          13                                  FDBGCOM    80    
                          FUNCBIT(X)          =          15                                  FDBGCOM    81    
        95                DTO FLD(X)          =          19                                  FDBGCOM    82    
                          LASTBIT(X)          =          27                                  FDBGCOM    83    
                          NOTBIT(X)           =          31                                  FDBGCOM    84    
                          IFBIT(X)            =          32                                  FDBGCOM    85    
                          SFBIT(X)            =          33                                  FDBGCOM    86    
       100                ACBIT(X)            =          34                                  FDBGCOM    87    
                          VARBIT(X)           =          43                                  FDBGCOM    88    
                          EXTBIT(X)           =          54                                  FDBGCOM    89    
                          ASFBIT(X)           =          55                                  FDBGCOM    90    
                    C                                                                        FDBGCOM    91    
       105          C                                                                        FDBGCOM    92    
                    C                              AND  BITS IN THE OPTIONS LIST.            FDBGCOM    93    
                    C                                                                        FDBGCOM    94    
                          LST S BIT(X)        =          26                                  FDBGCOM    95    
                          DBGTYPE(X) = 17B                                                   FDBGCOM    96    
       110                CONTYPE(X) = 5                                                     FDBGCOM    97    
                          TYPE(X) = SHIFT(X,4) .AND. TYPE FLD(1)                             FDBGCOM    98    
                          TYPE FLD(X) = 17B                                                  FDBGCOM    99    
                          NOT DBG(X) = 77777777417777777777B                                 FDBGCOM   100    
                          FCNT FLD(X) = X .AND. FCNT BTS(1)                                  FDBGCOM   101    
1         SUBROUTINE PUT        74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
       115                FCNT BTS(X) = 1776000000B                                          FDBGCOM   102    
                          PLACE(X) = SHIFT(MASK(1),X+1)                                      FDBGCOM   103    
                          BITON(I,J) = SHIFT(I,59-J) .LT. 0                                  FDBGCOM   104    
                          BITOFF(I,J) = SHIFT(I,59-J) .GE. 0                                 FDBGCOM   105    
                                                                                             FDBGCOM   106    
       120                                                                                   FDBGCOM   107    
                    C         ***   END OF FDBGCOM.                                          FDBGCOM   108    
                                                                                             FDBGCOM   109    
                                                                                             FDBGCOM   110    
                                                                                             FDBGCOM   111    
       125                                                                                   FDBGCOM   112    
                       60 NEXT1 = NEXT                                                       PUT        17    
                          N FIELD = 2                                                        PUT        18    
                          IF (TO FM .EQ. 1) GO TO 10                                         PUT        19    
                          N FIELD = SHIFT(DEBUG(SAREA+NEXT-2),-23).AND.3                     PUT        20    
       130             10 IF ((SHIFT(DEBUG(SAREA+NEXT+N FIELD) , TOFM* 30) .AND.             PUT        21    
                         ,    SHIFT(MASK(30),30))                                            PUT        22    
                         ,    - ITEM) 20, 50, 40                                             PUT        23    
                       20 NEXT = ADDRESS(DEBUG(SAREA+NEXT))                                  PUT        24    
                          IF (NEXT.NE.0) GO TO 60                                            PUT        25    
       135                DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. BD ADD                PUT        26    
                          RETURN                                                             PUT        27    
                       40 NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT),20))                        PUT        28    
                          IF (NEXT.NE.0) GO TO 60                                            PUT        29    
                          DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. SHIFT(BD ADD, 40)     PUT        30    
       140                RETURN                                                             PUT        31    
                       50 IF (BDADD.EQ.0) RETURN                                             PUT        32    
                          IF (BDADD.EQ.NEXT1) RETURN                                         PUT        33    
                       80 NEXT1 = NEXT                                                       PUT        34    
                          NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT),-20))                       PUT        35    
       145                IF (NEXT.NE.0) GO TO 80                                            PUT        36    
                          DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1).OR.SHIFT(BD ADD, 20)       PUT        37    
                          RETURN                                                             PUT        38    
                          END                                                                PUT        39    
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  PUT     
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
1         SUBROUTINE PUT        74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0  VARIABLES     SN  TYPE           RELOCATION  
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     205  INDEF     INTEGER             DBGBLK3        113  INDEXNO   INTEGER             DBGBLK2 
       2  ITEM      INTEGER             DBGBLK3         42  LDEBUG    INTEGER             DBGBLK2 
      14  LELIST    INTEGER             DBGBLK2        106  LEVEL     INTEGER             DBGBLK3 
     115  LEVSHFT   INTEGER             DBGBLK3         47  LFLAG     LOGICAL             DBGBLK2 
      57  LNGIND    INTEGER             DBGBLK2        160  LPAREN    INTEGER             DBGBLK3 
     113  LSHIFT    INTEGER             DBGBLK3        154  LSTLINE   INTEGER             DBGBLK3 
      46  LTFLAG    LOGICAL             DBGBLK2         66  M         INTEGER             DBGBLK3 
       4  MINZERO   INTEGER             DBGBLK3         74  MISFLAG   INTEGER             DBGBLK3 
       5  MULT      INTEGER             DBGBLK3         23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
      50  NEXT1     INTEGER                             12  NFIELD    INTEGER             DBGBLK3 
      60  NOACT     INTEGER             DBGBLK2        105  NOCONST   INTEGER             DBGBLK3 
       4  NOGOFLG   INTEGER             DBGBLK1        120  NOLIN     INTEGER             DBGBLK3 
     107  NOOFWDS   INTEGER             DBGBLK3         50  NOPROG    INTEGER             DBGBLK2 
      35  NUMERR    INTEGER             DBGBLK2        110  NXTADD    INTEGER             DBGBLK3 
     112  NXTADD1   INTEGER             DBGBLK3        133  NXTITEM   INTEGER             DBGBLK3 
      20  NXTSTR    INTEGER             DBGBLK3        114  NXTSTR1   INTEGER             DBGBLK3 
       6  OH        INTEGER             DBGBLK3         71  OPDRL     INTEGER             DBGBLK3 
      40  OPENFL    INTEGER             DBGBLK2         65  OPREC     INTEGER             DBGBLK3 
     163  OPWORD    INTEGER             DBGBLK3        175  OVRFLOW   INTEGER             DBGBLK3 
      36  PADD      INTEGER             DBGBLK2        114  PHSFLAG   INTEGER             DBGBLK2 
      21  POINT     INTEGER             DBGBLK3         32  POW       INTEGER             DBGBLK2 
     146  PREDBG    INTEGER    ARRAY    DBGBLK3        206  RANGE     INTEGER             DBGBLK3 
      43  RECORD    INTEGER             DBGBLK2         12  REFMAP    INTEGER             DBGBLK2 
     201  RELFLAG   INTEGER             DBGBLK3        104  RELOP     INTEGER             DBGBLK3 
     202  ROUNAME   INTEGER             DBGBLK3        157  RPAREN    INTEGER             DBGBLK3 
     122  RTAB      INTEGER    ARRAY    DBGBLK3         11  SAASI     INTEGER             DBGBLK2 
     152  SAMLINE   INTEGER             DBGBLK3          4  SAREA     INTEGER             DBGBLK2 
      17  SASI      INTEGER             DBGBLK3        174  SAVEOH    INTEGER             DBGBLK3 
      24  SAVUPDT   INTEGER    ARRAY    DBGBLK3        112  SCNUPDT   INTEGER             DBGBLK2 
      24  SDBGIND   INTEGER             DBGBLK2          0  SDRL      INTEGER             DBGBLK2 
       2  SDVL      INTEGER             DBGBLK2        161  SLASH     INTEGER             DBGBLK3 
       7  SPIDER    INTEGER             DBGBLK1         67  SPIDIS    INTEGER             DBGBLK3 
       7  SSYMTAB   INTEGER             DBGBLK2        155  STAR      INTEGER             DBGBLK3 
1         SUBROUTINE PUT        74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0  VARIABLES     SN  TYPE           RELOCATION  
     150  STAR1     INTEGER             DBGBLK3        151  STAR2     INTEGER             DBGBLK3 
      72  STOSWAP   INTEGER             DBGBLK3         45  SUCCESS   INTEGER             DBGBLK2 
      10  SYMTAB    INTEGER             DBGBLK3        173  SYMTABB   INTEGER             DBGBLK3 
     116  TAASI     INTEGER             DBGBLK3         16  TEMP      INTEGER             DBGBLK3 
      22  TEMP1     INTEGER             DBGBLK3        164  TLNG      INTEGER             DBGBLK3 
     101  TOBOUND   INTEGER             DBGBLK3          1  TOFM      INTEGER             DBGBLK3 
     134  TOLIST    INTEGER             DBGBLK3        203  TOSHIFT   INTEGER             DBGBLK3 
     170  TOTLNG    INTEGER             DBGBLK3        117  TRACED    INTEGER             DBGBLK3 
       5  TRACEL    INTEGER             DBGBLK1         73  TRACEON   INTEGER             DBGBLK3 
      26  TRCADD    INTEGER             DBGBLK3        172  UPDIS     INTEGER             DBGBLK3 
      65  UPDTTBL   INTEGER    ARRAY    DBGBLK2        171  UPNO      INTEGER             DBGBLK3 
     204  VALUE     INTEGER             DBGBLK3 
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
      11  10                                   0  20          INACTIVE                26  40                          
      35  50                                   2  60                                  40  80                          
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                 51B      41 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE PUTUPDT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE PUT UPDT                                                PUTUPDT     2    
                    C                                                                        PUTUPDT     3    
                    C  THIS SUBROUTINE SEARCHES THE UPDATE -FROM- LIST FOR AN UPDATE         PUTUPDT     4    
                    C  IDENTIFIER. THE IDENTIFIER IS ENTERED IN THE LIST IF SO DESIGNATED.   PUTUPDT     5    
         5          C                                                                        PUTUPDT     6    
                    C  ENTRY: NEXT = THE BEGINNING ADDRESS OF THE UPDATE -FROM- LIST LEFT    PUTUPDT     7    
                    C  JUSTIFIED IN BITS 59-41                                               PUTUPDT     8    
                    C         CUR UP DT (1) = THE CURRENT UPDATE NAME, LEFT JUSTIFIED        PUTUPDT     9    
                    C         CUR UP DT (2) = THE CURRENT UPDATE NUMBER, LEFT JUSTIFIED      PUTUPDT    10    
        10          C         NXT ITEM = -1, IF  -TO-  BOUND TO BE ADDED                     PUTUPDT    11    
                    C                  =  0, IF   NO   BOUND TO BE ADDED                     PUTUPDT    12    
                    C                  =  1, IF -FROM- BOUND TO BE ADDED                     PUTUPDT    13    
                    C         BD ADD = THE ADDRESS OF THE BOUND TO BE ADDED                  PUTUPDT    14    
                    C  EXIT:  NEXT = THE ADDRESS OF THE UPDATE IDENTIFIER, IF FOUND          PUTUPDT    15    
        15          C              = 0 ELSE                                                  PUTUPDT    16    
                    C         N FIELD   =  0 IF FROM BOUND                                   PUTUPDT    17    
                    C                 .NE. 0 IF  TO  BOUND                                   PUTUPDT    18    
                                                                                             LDBGCOM     2    
        19          C/    LIST,NONE                                                          LDBGCOM     3    
       131          C/    LIST,ALL                                                           LDBGCOM     5    
                          IF (SCNUPDT .EQ. 0) GO TO 18                                       PUTUPDT    20    
                          NXT ITEM = 0                                                       PUTUPDT    21    
                          NEXT = SHIFT(ADDRESS(FM LIST), 42)                                 PUTUPDT    22    
       135             18 IF (DFPACK .EQ. 0) GO TO 16                                        PUTUPDT    23    
                          LINE DIS = SHIFT(CUR UP DT(2), 6)                                  PUTUPDT    24    
                          IJK = 0                                                            PUTUPDT    25    
                          IK = 0                                                             PUTUPDT    26    
                          DO 12 IJ = 1,5                                                     PUTUPDT    27    
       140                LINE DIS = SHIFT(LINE DIS, 6)                                      PUTUPDT    28    
                          IN LINE = LINEDIS .AND. 77B                                        PUTUPDT    29    
                          IF( IN LINE .EQ. 1R ) GO TO 14                                     PUTUPDT    30    
                          IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 13           PUTUPDT    31    
                          IJK = 1                                                            PUTUPDT    32    
       145                GO TO 12                                                           PUTUPDT    33    
                       14 IF (IJK .EQ. 1) GO TO 13                                           PUTUPDT    34    
                          LINE DIS = (LINE DIS .AND. MASK(54)) .OR. 1R0                      PUTUPDT    35    
                          IK = IK +1                                                         PUTUPDT    36    
                       12 CONTINUE                                                           PUTUPDT    37    
       150                IF (IK .EQ. 5) GO TO 13                                            PUTUPDT    38    
                          CUR UP DT(2) = SHIFT(LINE DIS, 24)                                 PUTUPDT    39    
                       16 IF (NEXT) 10, 20, 30                                               PUTUPDT    40    
                       10 NEXT = SHIFT(NEXT, 18)                                             PUTUPDT    41    
                          NEXT = SHIFT(MASK(18),18) - NEXT                                   PUTUPDT    42    
       155                NEXT1 = NEXT                                                       PUTUPDT    43    
                          N FIELD = SHIFT(DEBUG(SAREA+NEXT-2), -23).AND.3                    PUTUPDT    44    
                          IF ((SHIFT(CUR UP DT(1),30) .AND. (SHIFT(MASK(30), 30)) )          PUTUPDT    45    
                         ,   - (DEBUG(SAREA+NEXT+NFIELD-1) .AND. (SHIFT(MASK(30), 30)) ))    PUTUPDT    46    
                         ,                                                     40, 50, 60    PUTUPDT    47    
       160             40 NEXT = SHIFT(DEBUG(SAREA+NEXT),2).AND. MASK(18)                    PUTUPDT    48    
                          IF (NEXT) 10, 70, 30                                               PUTUPDT    49    
                       60 NEXT = SHIFT(ADDRESS(DEBUG(SAREA+NEXT)),42)                        PUTUPDT    50    
                          IF (NEXT) 10, 80, 30                                               PUTUPDT    51    
                       50 IF (((SHIFT(CUR UP DT(1), 30) .AND. MASK(18)) .OR.                 PUTUPDT    52    
       165               ,     (SHIFT(CUR UP DT(2),-18) .AND. SHIFT(MASK(42), 42))) -        PUTUPDT    53    
                         ,    DEBUG(SAREA + NEXT + NFIELD)) 40, 90, 60                       PUTUPDT    54    
                       70 IF (NXT ITEM) 100, 110, 120                                        PUTUPDT    55    
                      100 BD ADD = SHIFT(MASK(18),18) - BD ADD                               PUTUPDT    56    
1         SUBROUTINE PUTUPDT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                      120 DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. SHIFT(BD ADD, 40)     PUTUPDT    57    
       170            110 RETURN                                                             PUTUPDT    58    
                       80 IF (NXT ITEM) 130, 140, 150                                        PUTUPDT    59    
                      130 BD ADD = SHIFT(MASK(18),18) - BD ADD                               PUTUPDT    60    
                      150 DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. BD ADD                PUTUPDT    61    
                      140 RETURN                                                             PUTUPDT    62    
       175                                                                                   PUTUPDT    63    
                                                                                             PUTUPDT    64    
                                                                                             PUTUPDT    65    
                       90 IF (SCNUPDT .EQ. 0) GO TO 91                                       PUTUPDT    66    
                          IF (COUNTUP .EQ. 20) GO TO 94                                      PUTUPDT    67    
       180                COUNTUP = COUNTUP + 1                                              PUTUPDT    68    
                          UPDTTBL(COUNTUP) = CUR UP DT(1)                                    PUTUPDT    69    
                          COUNTUP = COUNTUP + 1                                              PUTUPDT    70    
                          UPDTTBL(COUNTUP) = CUR UP DT(2)                                    PUTUPDT    71    
                          RETURN                                                             PUTUPDT    72    
       185                                                                                   PUTUPDT    73    
                                                                                             PUTUPDT    74    
                                                                                             PUTUPDT    75    
                       94 SCNUPDT = -1                                                       PUTUPDT    76    
                          RETURN                                                             PUTUPDT    77    
       190                                                                                   PUTUPDT    78    
                                                                                             PUTUPDT    79    
                                                                                             PUTUPDT    80    
                       91 IF (NXT ITEM .EQ. 0) RETURN                                        PUTUPDT    81    
                                                                                             PUTUPDT    82    
       195                                                                                   PUTUPDT    83    
                                                                                             PUTUPDT    84    
                      160 NEXT = SHIFT(ADDRESS(DEBUG(SAREA+NEXT)), 22)                       PUTUPDT    85    
                          IF (NEXT) 170, 180, 190                                            PUTUPDT    86    
                      170 NEXT = SHIFT(NEXT, 18)                                             PUTUPDT    87    
       200                NEXT = SHIFT(MASK(18),18) - NEXT                                   PUTUPDT    88    
                          NEXT1 = NEXT                                                       PUTUPDT    89    
                          GO TO 160                                                          PUTUPDT    90    
                      190 NEXT = SHIFT(NEXT, 18)                                             PUTUPDT    91    
                          NEXT1 = NEXT                                                       PUTUPDT    92    
       205                GO TO 160                                                          PUTUPDT    93    
                      180 IF (NXT ITEM) 195, 210, 200                                        PUTUPDT    94    
                      195 BD ADD = SHIFT(MASK(18),18) - BD ADD                               PUTUPDT    95    
                      200 DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1).OR.SHIFT(BD ADD, 20)       PUTUPDT    96    
                      210 RETURN                                                             PUTUPDT    97    
       210             30 NEXT = SHIFT(NEXT, 18)                                             PUTUPDT    98    
                          NEXT1 = NEXT                                                       PUTUPDT    99    
                          N FIELD = 0                                                        PUTUPDT   100    
                          IF (((CUR UP DT(1) .AND..NOT. MINZERO) .OR.                        PUTUPDT   101    
                         ,    (SHIFT(CUR UP DT(2), 12) .AND. MINZERO))-                      PUTUPDT   102    
       215               ,    DEBUG(SAREA + NEXT + 2)) 40, 300, 60                           PUTUPDT   103    
                      300 IF ((SHIFT(CUR UP DT(2),12) .AND. MASK(30)) -                      PUTUPDT   104    
                         ,    (DEBUG(SAREA + NEXT + 3) .AND. MASK(30)) )                     PUTUPDT   105    
                         ,    40,  90, 60                                                    PUTUPDT   106    
                       20 IF (NXT ITEM) 310, 320, 330                                        PUTUPDT   107    
       220            310 BD ADD = SHIFT(MASK(18),18) - BD ADD                               PUTUPDT   108    
                      330 FM LIST = FM LIST .OR. BD ADD                                      PUTUPDT   109    
                      320 RETURN                                                             PUTUPDT   110    
                       13 IF (SCNUPDT .NE. 0) RETURN                                         PUTUPDT   111    
                          NEXT = 0                                                           PUTUPDT   112    
       225                RETURN                                                             PUTUPDT   113    
1         SUBROUTINE PUTUPDT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
                          END                                                                PUTUPDT   114    
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  PUTUPDT 
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     200  IJ        INTEGER                            176  IJK       INTEGER                     
     177  IK        INTEGER                            205  INDEF     INTEGER             DBGBLK3 
     113  INDEXNO   INTEGER             DBGBLK2        201  INLINE    INTEGER                     
       2  ITEM      INTEGER             DBGBLK3         42  LDEBUG    INTEGER             DBGBLK2 
      14  LELIST    INTEGER             DBGBLK2        106  LEVEL     INTEGER             DBGBLK3 
     115  LEVSHFT   INTEGER             DBGBLK3         47  LFLAG     LOGICAL             DBGBLK2 
     175  LINEDIS   INTEGER                             57  LNGIND    INTEGER             DBGBLK2 
     160  LPAREN    INTEGER             DBGBLK3        113  LSHIFT    INTEGER             DBGBLK3 
     154  LSTLINE   INTEGER             DBGBLK3         46  LTFLAG    LOGICAL             DBGBLK2 
      66  M         INTEGER             DBGBLK3          4  MINZERO   INTEGER             DBGBLK3 
1         SUBROUTINE PUTUPDT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0  VARIABLES     SN  TYPE           RELOCATION  
      74  MISFLAG   INTEGER             DBGBLK3          5  MULT      INTEGER             DBGBLK3 
      23  NAASI     INTEGER             DBGBLK2         63  NDRL      INTEGER             DBGBLK3 
       0  NEXT      INTEGER             DBGBLK3        202  NEXT1     INTEGER                     
      12  NFIELD    INTEGER             DBGBLK3         60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
     175  OVRFLOW   INTEGER             DBGBLK3         36  PADD      INTEGER             DBGBLK2 
     114  PHSFLAG   INTEGER             DBGBLK2         21  POINT     INTEGER             DBGBLK3 
      32  POW       INTEGER             DBGBLK2        146  PREDBG    INTEGER    ARRAY    DBGBLK3 
     206  RANGE     INTEGER             DBGBLK3         43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
     104  RELOP     INTEGER             DBGBLK3        202  ROUNAME   INTEGER             DBGBLK3 
     157  RPAREN    INTEGER             DBGBLK3        122  RTAB      INTEGER    ARRAY    DBGBLK3 
      11  SAASI     INTEGER             DBGBLK2        152  SAMLINE   INTEGER             DBGBLK3 
       4  SAREA     INTEGER             DBGBLK2         17  SASI      INTEGER             DBGBLK3 
     174  SAVEOH    INTEGER             DBGBLK3         24  SAVUPDT   INTEGER    ARRAY    DBGBLK3 
     112  SCNUPDT   INTEGER             DBGBLK2         24  SDBGIND   INTEGER             DBGBLK2 
       0  SDRL      INTEGER             DBGBLK2          2  SDVL      INTEGER             DBGBLK2 
     161  SLASH     INTEGER             DBGBLK3          7  SPIDER    INTEGER             DBGBLK1 
      67  SPIDIS    INTEGER             DBGBLK3          7  SSYMTAB   INTEGER             DBGBLK2 
     155  STAR      INTEGER             DBGBLK3        150  STAR1     INTEGER             DBGBLK3 
     151  STAR2     INTEGER             DBGBLK3         72  STOSWAP   INTEGER             DBGBLK3 
      45  SUCCESS   INTEGER             DBGBLK2         10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
1         SUBROUTINE PUTUPDT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0  STATEMENT LABELS         
      41  10                                  31  12                                 171  13                          
      24  14                                  37  16                                   6  18                          
     163  20                                 150  30                                  52  40                          
      65  50                                  57  60                                  75  70                          
     104  80                                 113  90                                 125  91                          
     123  94                                   0  100         INACTIVE               103  110                         
     100  120                                  0  130         INACTIVE               112  140                         
     107  150                                126  160                                  0  170         INACTIVE        
     141  180                                136  190                                  0  195         INACTIVE        
     144  200                                147  210                                  0  300         INACTIVE        
       0  310         INACTIVE               170  320                                166  330                         
  
   LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
      13  12       IJ         139 149      21B        OPT     EXITS           
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                203B     131 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1                               74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE BUGACT                                                  BUGACT      2    
                    C                                                                        BUGACT      3    
                    C  THIS SUBROUTINE IS CALLED BEFORE AND AFTER THE PROCESSING OF EACH     BUGACT      4    
                    C  EXECUTABLE STATEMENT BY PS1CTL$.  IT IN TURN CALLS -PUT- AND          BUGACT      5    
         5          C  -PUT UPDT- TO SEARCH FOR A LINE NUMBER, STATEMENT NUMBER, OR UPDATE   BUGACT      6    
                    C  IDENTIFIER MATCH.  IF FOUND, EITHER -TURN ON- OR -TURN OFF- IS CALLED BUGACT      7    
                    C  TO PROCESS THE OPTIONS LIST OR LISTS ASSOCIATED WITH THE STATEMENT.   BUGACT      8    
                    C                                                                        BUGACT      9    
                    C  ENTRY: DFON = 0 IF CALL IS BEFORE THE STATEMENT HAS BEEN PROCESSED    BUGACT     10    
        10          C              = 1 AFTERWARDS                                            BUGACT     11    
                    C         DUKE1 = THE LINE NUMBER OF THE STATEMENT IN BINARY             BUGACT     12    
                    C         CLABEL = THE STATEMENT NUMBER, IF ANY, OF THE STATEMENT,       BUGACT     13    
                    C                  RIGHT JUSTIFIED IN DISPLAY CODE                       BUGACT     14    
                    C         CUR UP DT (1) = THE UPDATE IDENTIFIER NAME, IF ANY, OF THE     BUGACT     15    
        15          C                         STATEMENT, LEFT JUSTIFIED IN DISPLAY CODE      BUGACT     16    
                    C         CUR UP DT (2) = THE UPDATE IDENTIFIER NUMBER, IF ANY, OF THE   BUGACT     17    
                    C                         STATEMENT, LEFT JUSTIFIED IN DISPLAY CODE      BUGACT     18    
                    C         TO LIST = THE WORD CONTAINING THE BEGINNING ADDRESSES OF THE   BUGACT     19    
                    C                   -T0- BOUND LISTS                                     BUGACT     20    
        20          C         FM LIST = THE WORD CONTAINING THE BEGINNING ADDRESSES OF THE   BUGACT     21    
                    C                     -FROM- BOUND LISTS                                 BUGACT     22    
                    C                                                                        BUGACT     23    
                                                                                             LDBGCOM     2    
        24          C/    LIST,NONE                                                          LDBGCOM     3    
       136          C/    LIST,ALL                                                           LDBGCOM     5    
                          P ADD = 1                                                          BUGACT     25    
                          IF (DFON.NE.0) GO TO 10                                            BUGACT     26    
                          IF (FM LIST.EQ.0) GO TO 100                                        BUGACT     27    
       140                IF (ADDRESS(SHIFT(FM LIST, 20)).EQ.0) GO TO 20                     BUGACT     28    
                          NEXT = ADDRESS(SHIFT(FM LIST, 20))                                 BUGACT     29    
                          TO FM = 1                                                          BUGACT     30    
                          ITEM = DUKE1                                                       BUGACT     31    
                          BD ADD = 0                                                         BUGACT     32    
       145                CALL PUT                                                           BUGACT     33    
                          IF (NEXT.EQ.0) GO TO 20                                            BUGACT     34    
                       40 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-1))                               BUGACT     35    
                          CALL TURNON                                                        BUGACT     36    
                          NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20))                      BUGACT     37    
       150                IF (NEXT.NE.0) GO TO 40                                            BUGACT     38    
                    C                                                                        BUGACT     39    
                    C  HERE IF STATEMENT NUMBER FROM LIST                                    BUGACT     40    
                    C                                                                        BUGACT     41    
                       20 IF (ADDRESS(SHIFT(FM LIST, -20)).EQ.0) GO TO 70                    BUGACT     42    
       155                NEXT = ADDRESS(SHIFT(FM LIST, -20))                                BUGACT     43    
                          ITEM = CLABEL                                                      BUGACT     44    
                          TO FM = 1                                                          BUGACT     45    
                          BD ADD = 0                                                         BUGACT     46    
                          CALL PUT                                                           BUGACT     47    
       160                IF (NEXT.EQ.0) GO TO 70                                            BUGACT     48    
                       80 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-1))                               BUGACT     49    
                          CALL TURNON                                                        BUGACT     50    
                          NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20))                      BUGACT     51    
                          IF (NEXT.NE.0) GO TO 80                                            BUGACT     52    
       165          C                                                                        BUGACT     53    
                    C  HERE IF UPDATE IDENTIFIER TO OR FROM LIST                             BUGACT     54    
                    C                                                                        BUGACT     55    
                       70 NEXT = SHIFT(ADDRESS(FM LIST), 42)                                 BUGACT     56    
1         SUBROUTINE BUGACT     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                          IF (NEXT.EQ.0) GO TO 100                                           BUGACT     57    
       170                NXT ITEM = 0                                                       BUGACT     58    
                          CALL PUT UPDT                                                      BUGACT     59    
                          IF (NEXT.EQ.0) GO TO 100                                           BUGACT     60    
                          IF (DFON.NE.0) GO TO 150                                           BUGACT     61    
                          IF ( N FIELD .NE. 0) GO TO 130                                     BUGACT     62    
       175            120 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-1))                               BUGACT     63    
                          CALL TURNON                                                        BUGACT     64    
                      130 NEXT = SHIFT((SHIFT(DEBUG(SAREA+NEXT),20) .AND.                    BUGACT     65    
                         ,       SHIFT(MASK(18), 60-2) ), 2)                                 BUGACT     66    
                          IF (NEXT) 90, 100, 110                                             BUGACT     67    
       180             90 NEXT = SHIFT(NEXT,18)                                              BUGACT     68    
                          NEXT = SHIFT(MASK(18),18) - NEXT                                   BUGACT     69    
                          IF (DFON.EQ.0) 130, 160                                            BUGACT     70    
                      110 NEXT = SHIFT(NEXT, 18)                                             BUGACT     71    
                          IF (DFON .EQ. 0) 120, 130                                          BUGACT     72    
       185            150 IF (N FIELD .EQ. 0) GO TO 130                                      BUGACT     73    
                      160 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-2))                               BUGACT     74    
                          CALL TURNOFF                                                       BUGACT     75    
                          GO TO 130                                                          BUGACT     76    
                      100 P ADD = 0                                                          BUGACT     77    
       190                RETURN                                                             BUGACT     78    
                    C  HERE IF WE MAY HAVE TO TURN OFF SOME OPTIONS                          BUGACT     79    
                    C                                                                        BUGACT     80    
                       10 IF (TO LIST .EQ. 0) GO TO 70                                       BUGACT     81    
                          IF (ADDRESS(SHIFT(TO LIST, 20)).EQ.0) GO TO 300                    BUGACT     82    
       195                NEXT = ADDRESS(SHIFT(TO LIST, 20))                                 BUGACT     83    
                          TO FM = 0                                                          BUGACT     84    
                          ITEM = DUKE1                                                       BUGACT     85    
                          BD ADD = 0                                                         BUGACT     86    
                          CALL PUT                                                           BUGACT     87    
       200                IF (NEXT.EQ.0) GO TO 300                                           BUGACT     88    
                      310 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-2))                               BUGACT     89    
                          CALL TURNOFF                                                       BUGACT     90    
                          NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20))                      BUGACT     91    
                          IF (NEXT.NE.0) GO TO 310                                           BUGACT     92    
       205            300 IF (ADDRESS(SHIFT(TO LIST, -20)).EQ.0) GO TO 70                    BUGACT     93    
                    C                                                                        BUGACT     94    
                    C  HERE IF WE MAY HAVE TO TURN OFF OPTIONS FOR STATEMENT NUMBERS         BUGACT     95    
                    C                                                                        BUGACT     96    
                          NEXT = ADDRESS(SHIFT(TO LIST, -20))                                BUGACT     97    
       210                ITEM = CLABEL                                                      BUGACT     98    
                          TO FM = 0                                                          BUGACT     99    
                          BD ADD = 0                                                         BUGACT    100    
                          CALL PUT                                                           BUGACT    101    
                          IF (NEXT.EQ.0) GO TO 70                                            BUGACT    102    
       215            320 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-2))                               BUGACT    103    
                          CALL TURNOFF                                                       BUGACT    104    
                          NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20))                      BUGACT    105    
                          IF (NEXT.NE.0) 320, 70                                             BUGACT    106    
                          END                                                                BUGACT    107    
1         SUBROUTINE BUGACT     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  BUGACT  
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     205  INDEF     INTEGER             DBGBLK3        113  INDEXNO   INTEGER             DBGBLK2 
       2  ITEM      INTEGER             DBGBLK3         42  LDEBUG    INTEGER             DBGBLK2 
      14  LELIST    INTEGER             DBGBLK2        106  LEVEL     INTEGER             DBGBLK3 
     115  LEVSHFT   INTEGER             DBGBLK3         47  LFLAG     LOGICAL             DBGBLK2 
      57  LNGIND    INTEGER             DBGBLK2        160  LPAREN    INTEGER             DBGBLK3 
     113  LSHIFT    INTEGER             DBGBLK3        154  LSTLINE   INTEGER             DBGBLK3 
      46  LTFLAG    LOGICAL             DBGBLK2         66  M         INTEGER             DBGBLK3 
       4  MINZERO   INTEGER             DBGBLK3         74  MISFLAG   INTEGER             DBGBLK3 
       5  MULT      INTEGER             DBGBLK3         23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
      12  NFIELD    INTEGER             DBGBLK3         60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
1         SUBROUTINE BUGACT     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0  VARIABLES     SN  TYPE           RELOCATION  
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
     175  OVRFLOW   INTEGER             DBGBLK3         36  PADD      INTEGER             DBGBLK2 
     114  PHSFLAG   INTEGER             DBGBLK2         21  POINT     INTEGER             DBGBLK3 
      32  POW       INTEGER             DBGBLK2        146  PREDBG    INTEGER    ARRAY    DBGBLK3 
     206  RANGE     INTEGER             DBGBLK3         43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
     104  RELOP     INTEGER             DBGBLK3        202  ROUNAME   INTEGER             DBGBLK3 
     157  RPAREN    INTEGER             DBGBLK3        122  RTAB      INTEGER    ARRAY    DBGBLK3 
      11  SAASI     INTEGER             DBGBLK2        152  SAMLINE   INTEGER             DBGBLK3 
       4  SAREA     INTEGER             DBGBLK2         17  SASI      INTEGER             DBGBLK3 
     174  SAVEOH    INTEGER             DBGBLK3         24  SAVUPDT   INTEGER    ARRAY    DBGBLK3 
     112  SCNUPDT   INTEGER             DBGBLK2         24  SDBGIND   INTEGER             DBGBLK2 
       0  SDRL      INTEGER             DBGBLK2          2  SDVL      INTEGER             DBGBLK2 
     161  SLASH     INTEGER             DBGBLK3          7  SPIDER    INTEGER             DBGBLK1 
      67  SPIDIS    INTEGER             DBGBLK3          7  SSYMTAB   INTEGER             DBGBLK2 
     155  STAR      INTEGER             DBGBLK3        150  STAR1     INTEGER             DBGBLK3 
     151  STAR2     INTEGER             DBGBLK3         72  STOSWAP   INTEGER             DBGBLK3 
      45  SUCCESS   INTEGER             DBGBLK2         10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
  
   EXTERNALS          TYPE   ARGS     
          PUT                  0                            PUTUPDT              0                
          TURNOFF              0                            TURNON               0                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
     107  10                                  25  20                                  14  40                          
      46  70                                  35  80                                   0  90          INACTIVE        
1         SUBROUTINE BUGACT     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0  STATEMENT LABELS         
     105  100                                 73  110                                 56  120                         
      63  130                                 76  150                                 77  160                         
     130  300                                117  310                                140  320                         
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                153B     107 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE GETOUT     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE GET OUT                                                 GETOUT      2    
                    C                                                                        GETOUT      3    
                    C  THIS SUBROUTINE OBTAINS THE NEXT 12-BIT FIELD FROM THE CURRENT        GETOUT      4    
                    C  OPTIONS LIST AND RETURNS IT IN  OH.                                   GETOUT      5    
         5          C  ENTRY: DFOPL = THE ADDRESS OF THE CURRENT OPTION WORD IN THE OPTIONS  GETOUT      6    
                    C                 LIST                                                   GETOUT      7    
                    C         MULT = THE POINTER TO THE CURRENT FIELD IN THE OPTIONS LIST    GETOUT      8    
                    C  EXIT:  OH = THE NEXT 12-BIT OPTION FIELD                              GETOUT      9    
                    C                                                                        GETOUT     10    
        10                                                                                   LDBGCOM     2    
        11          C/    LIST,NONE                                                          LDBGCOM     3    
       123          C/    LIST,ALL                                                           LDBGCOM     5    
                          MULT = MULT - 1                                                    GETOUT     12    
       125                IF (MULT.GE.0) GO TO 10                                            GETOUT     13    
                          MULT = 4                                                           GETOUT     14    
                          DFOPL = DFOPL + 1                                                  GETOUT     15    
                       10 OH = SHIFT(DEBUG(DFOPL) .AND. SHIFT(MINZERO, MULT*12),(5-MULT)*12) GETOUT     16    
                          RETURN                                                             GETOUT     17    
       130                END                                                                GETOUT     18    
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  GETOUT  
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
1         SUBROUTINE GETOUT     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0  VARIABLES     SN  TYPE           RELOCATION  
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     205  INDEF     INTEGER             DBGBLK3        113  INDEXNO   INTEGER             DBGBLK2 
       2  ITEM      INTEGER             DBGBLK3         42  LDEBUG    INTEGER             DBGBLK2 
      14  LELIST    INTEGER             DBGBLK2        106  LEVEL     INTEGER             DBGBLK3 
     115  LEVSHFT   INTEGER             DBGBLK3         47  LFLAG     LOGICAL             DBGBLK2 
      57  LNGIND    INTEGER             DBGBLK2        160  LPAREN    INTEGER             DBGBLK3 
     113  LSHIFT    INTEGER             DBGBLK3        154  LSTLINE   INTEGER             DBGBLK3 
      46  LTFLAG    LOGICAL             DBGBLK2         66  M         INTEGER             DBGBLK3 
       4  MINZERO   INTEGER             DBGBLK3         74  MISFLAG   INTEGER             DBGBLK3 
       5  MULT      INTEGER             DBGBLK3         23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
      12  NFIELD    INTEGER             DBGBLK3         60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
     175  OVRFLOW   INTEGER             DBGBLK3         36  PADD      INTEGER             DBGBLK2 
     114  PHSFLAG   INTEGER             DBGBLK2         21  POINT     INTEGER             DBGBLK3 
      32  POW       INTEGER             DBGBLK2        146  PREDBG    INTEGER    ARRAY    DBGBLK3 
     206  RANGE     INTEGER             DBGBLK3         43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
     104  RELOP     INTEGER             DBGBLK3        202  ROUNAME   INTEGER             DBGBLK3 
     157  RPAREN    INTEGER             DBGBLK3        122  RTAB      INTEGER    ARRAY    DBGBLK3 
      11  SAASI     INTEGER             DBGBLK2        152  SAMLINE   INTEGER             DBGBLK3 
       4  SAREA     INTEGER             DBGBLK2         17  SASI      INTEGER             DBGBLK3 
     174  SAVEOH    INTEGER             DBGBLK3         24  SAVUPDT   INTEGER    ARRAY    DBGBLK3 
     112  SCNUPDT   INTEGER             DBGBLK2         24  SDBGIND   INTEGER             DBGBLK2 
       0  SDRL      INTEGER             DBGBLK2          2  SDVL      INTEGER             DBGBLK2 
     161  SLASH     INTEGER             DBGBLK3          7  SPIDER    INTEGER             DBGBLK1 
      67  SPIDIS    INTEGER             DBGBLK3          7  SSYMTAB   INTEGER             DBGBLK2 
     155  STAR      INTEGER             DBGBLK3        150  STAR1     INTEGER             DBGBLK3 
     151  STAR2     INTEGER             DBGBLK3         72  STOSWAP   INTEGER             DBGBLK3 
      45  SUCCESS   INTEGER             DBGBLK2         10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
1         SUBROUTINE GETOUT     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0  INLINE FUNCTIONS   TYPE   ARGS     
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MINUS     INTEGER    1    SF                      NOTBIT    INTEGER    1    SF          
          NOTDBG    INTEGER    1    SF                      PLACE     INTEGER    1    SF          
          PLUS      INTEGER    1    SF                      SFBIT     INTEGER    1    SF          
          SHIFT     NO TYPE    2  INTRIN                    TLENGTH   INTEGER    1    SF          
          TYPE      INTEGER    1    SF                      TYPEFLD   INTEGER    1    SF          
          VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
       6  10                          
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                 14B      12 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE TURNON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE TURNON                                                  TURNON      2    
                    C                                                                        TURNON      3    
                    C  THIS SUBROUTINE TRAVERSES AN OPTIONS LIST AND TURNS ON ALL LEGAL      TURNON      4    
                    C  OPTIONS THAT IT FINDS.  IT ALSO SETS UP THE ERROR FIELD IN THE FIRST  TURNON      5    
         5          C  WORD OF THE ASSOCIATED B-CELL, IF NECESSARY.                          TURNON      6    
                    C  ENTRY: DFOPL = THE ADDRESS OF THE BEGINNING OF THE OPTIONS LIST TO BE TURNON      7    
                    C                 TRAVERSED                                              TURNON      8    
                    C         P ADD = 0 IF INTERSPERSED OR FROM BUGCON                       TURNON      9    
                    C         P ADD = 1 IF IN PACKET                                         TURNON     10    
        10          C         NEXT = THE ADDRESS OF THE -FROM- BOUND IN THE ASSOCIATED       TURNON     11    
                    C                B-CELL                                                  TURNON     12    
                    C                                                                        TURNON     13    
                                                                                             LDBGCOM     2    
        14          C/    LIST,NONE                                                          LDBGCOM     3    
       126          C/    LIST,ALL                                                           LDBGCOM     5    
                              IF(MISFLAG.LT.0 .OR. DFNOGO.LT.0) RETURN                       FCC0761    30    
                          IF ((P ADD .EQ. 0).OR.(DEBUG(SAREA+NEXT+1).GE.0)) GO TO 100        TURNON     15    
                    C                                                                        TURNON     16    
       130          C  HERE IF -T0- FIELD OCCURRED BEFORE -FROM- FIELD                       TURNON     17    
                    C                                                                        TURNON     18    
                          DEBUG(SAREA+NEXT-1) =(DEBUG(SAREA+NEXT-1).AND.SHIFT(MASK(57),20))  TURNON     19    
                         ,    .OR. SHIFT(3, 20)                                              TURNON     20    
                          DEBUG(SAREA+NEXT) = DEBUG(SAREA+NEXT) .OR. MASK(1)                 TURNON     21    
       135                RETURN                                                             TURNON     22    
                    C                                                                        TURNON     23    
                    C  HERE TO DETERMINE WHICH OPTION TO TURN ON                             TURNON     24    
                      100 MULT = 5                                                           TURNON     25    
                       10 CALL GET OUT                                                       TURNON     26    
       140                IF (OH .EQ. 0) RETURN                                              TURNON     27    
                          IF ( OH .EQ. MINZERO) GO TO 30                                     TURNON     28    
                          GO TO (1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000) OH          TURNON     29    
                    C                                                                        TURNON     30    
                    C  HERE IF THE ARRAYS OPTION IS TO BE TURNED ON                          TURNON     31    
       145          C                                                                        TURNON     32    
                     1000 CALL GET OUT                                                       TURNON     33    
                          IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 1020               TURNON     34    
                    C  HERE IF TURNING ON INDIVIDUAL ARRAYS                                  TURNON     35    
                     1080 SYMTABB = SSYMTAB - OH - 1                                         TURNON     36    
       150                IF ( (TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1)) .AND.                 TURNON     37    
                         ,    BITOFF(DEBUG(SYMTAB B),IFBIT(1)) ) GO TO 1030                  TURNON     38    
                          IF (BITON(DEBUG(SSYMTAB - OH),DIMBIT(1)) .AND.                     TURNON     39    
                         ,     (TYPE(DEBUG(SYMTAB B)) .LT. CONTYPE(1))    )     GO TO 1030   TURNON     40    
                          IF (PHSFLAG .NE. 0) GO TO 1030                                     TURNON     41    
       155                TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                 TURNON     42    
                          IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)        TURNON     43    
                          WRITE(DBGOUT, 1040) TEMP                                           TURNON     44    
                     1040 FORMAT( * AT THIS POINT THE ARRAYS OPTION IS ILLEGAL FOR *, A7)    TURNON     45    
                          GO TO 1050                                                         TURNON     46    
       160           1030 ASHIFT = 8                                                         TURNON     47    
                          CALL SETARR,RETURNS(1050)                                          TURNON     48    
                          DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.       TURNON     49    
                         ,   PLACE(ACBIT(1)) .OR. SHIFT(AASI,19)                             TURNON     50    
                          DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI) + 1                          TURNON     51    
       165           1050 CALL GET OUT                                                       TURNON     52    
                          IF ( (OH .NE. 0) .AND. (OH .NE. MINZERO) ) GO TO 1080              TURNON     53    
                          IF (OH.EQ.0) 10, 30                                                TURNON     54    
                    C                                                                        TURNON     55    
1         SUBROUTINE TURNON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                    C  HERE IF ALL ARRAYS ARE TO BE TURNED ON                                TURNON     56    
       170          C                                                                        TURNON     57    
                     1020 ALLARR = ALLARR + 1                                                TURNON     58    
                          IF (OH .EQ. 0) 10, 30                                              TURNON     59    
                    C  HERE IF THE CALLS OPTION IS TO BE TURNED ON                           TURNON     60    
                    C                                                                        TURNON     61    
       175           2000 CALL GET OUT                                                       TURNON     62    
                          IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 2010               TURNON     63    
                    C                                                                        TURNON     64    
                    C  HERE IF TURNING ON INDIVIDUAL CALLS                                   TURNON     65    
                    C                                                                        TURNON     66    
       180           2050 SYM TAB B = SSYMTAB-OH-1                                           TURNON     67    
                          IF ( TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1))           GO TO 2022   TURNON     68    
                          IF (BITON(DEBUG(SYMTAB B),EXTBIT(1)) .AND.                         TURNON     69    
                         ,    BITOFF(DEBUG(SSYMTAB - OH),FUNCBIT(1)) .AND.                   TURNON     70    
                         ,    BITOFF(DEBUG(SYMTAB B),LASTBIT(1)) ) GO TO 2020                TURNON     71    
       185           2024 TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                 TURNON     72    
                          IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)        TURNON     73    
                          WRITE(DBGOUT, 2030) TEMP                                           TURNON     74    
                     2030 FORMAT( * AT THIS POINT THE CALLS OPTION IS ILLEGAL FOR *, A7)     TURNON     75    
                          GO TO 2040                                                         TURNON     76    
       190           2022 IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1))  ) GO TO 2020                TURNON     77    
                          IF (BITOFF(DEBUG(SYMTAB B),IFBIT(1)) .OR.                          TURNON     78    
                         ,    BITON(DEBUG(SYMTAB B),SFBIT(1))  .OR.                          TURNON     79    
                         ,    BITON(DEBUG(SYMTAB B),LASTBIT(1)) ) GO TO 2024                 TURNON     80    
                     2020 DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.       TURNON     81    
       195               ,    PLACE(IFBIT(1)) .OR. PLACE(ACBIT(1)) + INC FCNT(1)             TURNON     82    
                     2040 CALL GET OUT                                                       TURNON     83    
                          IF ( (OH .NE. 0) .AND. (OH .NE. MINZERO) ) GO TO 2050              TURNON     84    
                          IF (OH.EQ.0) 10, 30                                                TURNON     85    
                    C                                                                        TURNON     86    
       200          C  HERE IF ALL CALLS ARE TO BE TURNED ON                                 TURNON     87    
                    C                                                                        TURNON     88    
                     2010 ALLCALL = ALLCALL + 1                                              TURNON     89    
                          IF (OH .EQ. 0) 10, 30                                              TURNON     90    
                    C  HERE IF THE FUNCS OPTION IS TO BE TURNED ON                           TURNON     91    
       205          C                                                                        TURNON     92    
                     3000 CALL GET OUT                                                       TURNON     93    
                          IF ( ( OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 3010              TURNON     94    
                    C                                                                        TURNON     95    
                    C  HERE IF TURNING ON INDIVIDUAL FUNCS                                   TURNON     96    
       210           3050 SYMTAB B = SSYMTAB-OH-1                                            TURNON     97    
                          IF ( TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1))      GO TO 3022        TURNON     98    
                          IF (BITON(DEBUG(SYMTAB B),EXTBIT(1)) .AND.                         TURNON     99    
                         ,    BITON(DEBUG(SSYMTAB - OH),FUNCBIT(1)) .AND.                    TURNON    100    
                         ,    BITOFF(DEBUG(SYMTAB B),LASTBIT(1)) ) GO TO 3020                TURNON    101    
       215                IF  (BITOFF(DEBUG(SSYMTAB-OH),DIMBIT(1)) .AND.                     TURNON    102    
                         ,    BITOFF(DEBUG(SSYMTAB-OH),COMBIT(1))  .AND.                     TURNON    103    
                         ,     BITOFF(DEBUG(SYMTAB B),ASFBIT(1))  .AND.                      TURNON    104    
                         ,     BITOFF(DEBUG(SSYMTAB-OH),EQUBIT(1)))  GO TO 3020              TURNON    105    
                     3024 TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                 TURNON    106    
       220                IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)        TURNON    107    
                          WRITE(DBGOUT, 3030) TEMP                                           TURNON    108    
                     3030 FORMAT( * AT THIS POINT THE FUNCS OPTION IS ILLEGAL FOR *, A7)     TURNON    109    
                          GO TO 3040                                                         TURNON    110    
                     3022 IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1)) ) GO TO 3020                 TURNON    111    
       225                IF (BITOFF(DEBUG(SYMTAB B),IFBIT(1)) .OR.                          TURNON    112    
1         SUBROUTINE TURNON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
                         ,        BITON(DEBUG(SYMTAB B),ACBIT(1)) .OR.                       TURNON    113    
                         ,        BITON(DEBUG(SYMTAB B),LASTBIT(1)) ) GO TO 3024             TURNON    114    
                     3020 DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.       TURNON    115    
                         ,    PLACE(IFBIT(1)) .OR. PLACE(SFBIT(1)) + INC FCNT(1)             TURNON    116    
       230           3040 CALL GET OUT                                                       TURNON    117    
                          IF ( (OH .NE. 0) .AND. (OH .NE. MINZERO) ) GO TO 3050              TURNON    118    
                          IF (OH.EQ.0) 10, 30                                                TURNON    119    
                    C                                                                        TURNON    120    
                    C  HERE IF ALL FUNCS ARE TO BE TURNED ON                                 TURNON    121    
       235          C                                                                        TURNON    122    
                     3010 ALLFUNC = ALLFUNC + 1                                              TURNON    123    
                          IF (OH .EQ. 0) 10, 30                                              TURNON    124    
                    C                                                                        TURNON    125    
                    C  HERE IF THE GOTOS OPTION IS TO BE TURNED ON                           TURNON    126    
       240          C                                                                        TURNON    127    
                     4000 CALL GET OUT                                                       TURNON    128    
                          GO TOS FL = GO TOS FL + 1                                          TURNON    129    
                          IF (OH.EQ.0) 10, 30                                                TURNON    130    
                    C                                                                        TURNON    131    
       245          C  HERE IF THE NO GO OPTION IS TO BE TURNED ON                           TURNON    132    
                    C                                                                        TURNON    133    
                     5000 NOGOFLG = -1                                                       TURNON    134    
                          CALL GET OUT                                                       TURNON    135    
                          IF (OH.EQ.0) 10, 30                                                TURNON    136    
       250          C                                                                        TURNON    137    
                    C  HERE IF THE STORES OPTION IS TO BE TURNED ON                          TURNON    138    
                    C                                                                        TURNON    139    
                     6000 CALL GET OUT                                                       TURNON    140    
                          IF (OH.EQ.0) GO TO 10                                              TURNON    141    
       255                IF (OH .EQ. MINZERO) GO TO 30                                      TURNON    142    
                          SYMTAB B = SSYMTAB-OH-1                                            TURNON    143    
                          IF ( (TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1)) . AND.                TURNON    144    
                         ,    BITOFF(DEBUG(SYMTAB B),IFBIT(1)) ) GO TO 6010                  TURNON    145    
                          IF ( ( TYPE(DEBUG(SYMTAB B)) .LT. CONTYPE(1)) .AND.                TURNON    146    
       260               ,    BITOFF(DEBUG(SYMTAB B),EXTBIT(1)) .AND.                        TURNON    147    
                         ,    BITOFF(DEBUG(SYMTAB B),ASFBIT(1)) ) GO TO 6010                 TURNON    148    
                          TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                 TURNON    149    
                          IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)        TURNON    150    
                          WRITE(DBGOUT, 6020) TEMP                                           TURNON    151    
       265           6020 FORMAT( * AT THIS POINT THE STORES OPTION IS ILLEGAL FOR *, A7)    TURNON    152    
                          GO TO 6000                                                         TURNON    153    
                     6010 ASHIFT = 38                                                        TURNON    154    
                          CALL SETARR, RETURNS(6000)                                         TURNON    155    
                          DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.       TURNON    156    
       270               ,   PLACE(SFBIT(1))                                                 TURNON    157    
                         ,    .OR. SHIFT(AASI, 19)                                           TURNON    158    
                          DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI)+SHIFT(1,30)                  TURNON    159    
                          GO TO 6000                                                         TURNON    160    
                    C                                                                        TURNON    161    
       275          C  HERE IF THE STORES OPTION WITH RELATIONAL OPERATORS IS TO BE TURNED   TURNON    162    
                    C                                 ON                                     TURNON    163    
                    C                                                                        TURNON    164    
                     7000 MULT = 0                                                           TURNON    165    
                          CALL GET OUT                                                       TURNON    166    
       280                IF (OH.EQ.0) GO TO 10                                              TURNON    167    
                          IF (OH .EQ. MINZERO) GO TO 30                                      TURNON    168    
                          SYMTAB B = SSYMTAB-OH-1                                            TURNON    169    
1         SUBROUTINE TURNON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0 
                          IF ( (TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1)) .AND.                 TURNON    170    
                         ,    BITOFF(DEBUG(SYMTAB B),IFBIT(1)) .AND.                         TURNON    171    
       285               ,    BITOFF(DEBUG(DFOPL),LST S BIT(1)) ) GO TO 7010                 TURNON    172    
                          IF ( (TYPE(DEBUG(SYMTAB B)) .LT. CONTYPE(1)) .AND.                 TURNON    173    
                         ,    BITOFF(DEBUG(SYMTAB B),ASFBIT(1)) .AND.                        TURNON    174    
                         ,    BITOFF(DEBUG(SYMTAB B),EXTBIT(1)) .AND.                        TURNON    175    
                         ,    BITOFF(DEBUG(DFOPL),LST S BIT(1)) ) GO TO 7010                 TURNON    176    
       290           7025 TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                 TURNON    177    
                          IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)        TURNON    178    
                          WRITE(DBGOUT, 7020) TEMP                                           TURNON    179    
                     7020 FORMAT( * AT THIS POINT THE STORES OPTION WITH RELATIONAL OPERATOR TURNON    180    
                         ,S IS ILLEGAL FOR *, A7)                                            TURNON    181    
       295                GO TO 7000                                                         TURNON    182    
                     7010 ASHIFT = 10                                                        TURNON    183    
                          CALL SETARR, RETURNS(7000)                                         TURNON    184    
                          IF (P ADD .EQ. 0) GO TO 7060                                       TURNON    185    
                          IF (SHIFT(DEBUG(DFOPL   ),59-26).LT.0) GO TO 7025                  TURNON    186    
       300                DEBUG(DFOPL   ) = DEBUG(DFOPL   ) + SHIFT(1,18)                    TURNON    187    
                          IF ((SHIFT(DEBUG(DFOPL),-18) .AND. 777B) .NE. 1) GO TO 7000        TURNON    188    
                          DFOPL2 = ADDRESS(SHIFT(DEBUG(SAASI+AASI),18))                      TURNON    189    
                          IF (DFOPL2.NE.0) GO TO 7040                                        TURNON    190    
                          DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI).OR.SHIFT(DFOPL,42)           TURNON    191    
       305                GO TO 7050                                                         TURNON    192    
                     7040 DFOPL1 = DFOPL2                                                    TURNON    193    
                          DFOPL2 = ADDRESS(DEBUG(DFOPL2))                                    TURNON    194    
                          IF (DFOPL2.NE.0) GO TO 7040                                        TURNON    195    
                          DEBUG(DFOPL1) = DEBUG(DFOPL1).OR.DFOPL                             TURNON    196    
       310           7050 DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.       TURNON    197    
                         ,    PLACE(SFBIT(1))                                                TURNON    198    
                         ,    .OR. SHIFT(AASI, 19)                                           TURNON    199    
                          DEBUG(DFOPL   ) = DEBUG(DFOPL   ) + SHIFT(1,18)                    TURNON    200    
                          GO TO 7000                                                         TURNON    201    
       315           7060 TEMP = DEBUG(DFOPL) .AND. MASK(33)                                 TURNON    202    
                          SASI = ADDRESS(SHIFT(DEBUG(SAASI+AASI),-12))                       TURNON    203    
                          IF ( SASI.EQ.0) 7100, 7110                                         TURNON    204    
                     7070 NXT STR = SASI                                                     TURNON    205    
                          SASI = ADDRESS(DEBUG(SAASI+SASI))                                  TURNON    206    
       320                IF(SASI.EQ.0) GO TO 7120                                           FCC0446     5    
                          SASI = SASI-SAASI                                                  FCC0446     6    
                          IF (SASI.EQ.0) GO TO 7120                                          TURNON    207    
                     7110 IF (TEMP .NE. (DEBUG(SAASI+SASI) .AND. MASK(33)) ) GO TO 7070      TURNON    208    
                          IF (SHIFT(DEBUG(SAASI+SASI),59-26).LT.0) GO TO 7025                TURNON    209    
       325                DEBUG(SAASI+SASI) = DEBUG(SAASI+SASI)+SHIFT(1,18)                  TURNON    210    
                          GO TO 7050                                                         TURNON    211    
                     7120 ASHIFT = 0                                                         TURNON    212    
                          SASI = AASI                                                        TURNON    213    
                          CALL SETARR, RETURNS(7025)                                         TURNON    214    
       330                DEBUG(SAASI + NXT STR) = DEBUG(SAASI + NXT STR).OR.AASI            TURNON    215    
                          DEBUG(SAASI + AASI) = DEBUG(DFOPL) + SHIFT(1,18)                   TURNON    216    
                          AASI = SASI                                                        TURNON    217    
                          GO TO 7050                                                         TURNON    218    
                     7100 ASHIFT = 0                                                         TURNON    219    
       335                SASI = AASI                                                        TURNON    220    
                          CALL SETARR, RETURNS(7025)                                         TURNON    221    
                          DEBUG(SAASI + SASI) = DEBUG(SAASI+SASI).OR.SHIFT(AASI,12)          TURNON    222    
                          DEBUG(SAASI+AASI) = DEBUG(DFOPL).OR.SHIFT(1,18)                    TURNON    223    
                          AASI = SASI                                                        TURNON    224    
1         SUBROUTINE TURNON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0 
       340                GO TO 7050                                                         TURNON    225    
                    C                                                                        TURNON    226    
                    C  HERE IF THE TRACE OPTION IS TO BE TURNED ON                           TURNON    227    
                    C                                                                        TURNON    228    
                     8020 WRITE (DBGOUT, 8021)                                               TURNON    229    
       345           8021 FORMAT (* AT THIS POINT THE TRACE OPTION IS ILLEGAL *)             TURNON    230    
                     8001 MULT = 0                                                           TURNON    231    
                          CALL GET OUT                                                       TURNON    232    
                          IF(OH .EQ. 0) 10, 30                                               TURNON    233    
                     8000 MULT = 0                                                           TURNON    234    
       350                CALL GET OUT                                                       TURNON    235    
                          IF ( (OH .EQ. 0) .AND. (SHIFT(DEBUG(DFOPL), 30) .GE. 0) ) GO TO 10 TURNON    236    
                          IF (OH .EQ. MINZERO) GO TO 30                                      TURNON    237    
                          IF (P ADD .NE. 0) GO TO 8010                                       TURNON    238    
                          ASHIFT = 0                                                         TURNON    239    
       355                CALL SETARR, RETURNS(8020)                                         TURNON    240    
                          TEMP = DEBUG(DFOPL) .AND. MASK(6)                                  TURNON    241    
                          SASI = ADDRESS(TRCADD)                                             TURNON    242    
                          IF (SASI.EQ.0) 8100, 8110                                          TURNON    243    
                     8070 NXT STR = SASI                                                     TURNON    244    
       360                SASI = ADDRESS(DEBUG(SAASI+SASI))                                  TURNON    245    
                          IF (SASI.EQ.0) GO TO 8120                                          TURNON    246    
                     8110 IF(TEMP.NE.(DEBUG(SAASI+SASI).AND.MASK(6))  )         GO TO 8070   TURNON    247    
                          IF (SHIFT(DEBUG(SAASI+SASI),59-26).LT.0) GO TO 8020                TURNON    248    
                          DEBUG(SAASI+SASI) = DEBUG(SAASI+SASI) + SHIFT(1,18)                TURNON    249    
       365                GO TO 8200                                                         TURNON    250    
                     8120 CALL SETARR, RETURNS(8020)                                         TURNON    251    
                          DEBUG(SAASI + NXT STR) = DEBUG(SAASI + NXT STR).OR.AASI            TURNON    252    
                          DEBUG(SAASI + AASI) = DEBUG(DFOPL) + SHIFT(1, 18)                  TURNON    253    
                          GO TO 8200                                                         TURNON    254    
       370           8100 CALL SETARR, RETURNS(8020)                                         TURNON    255    
                          TRCADD = TRCADD .OR. AASI                                          TURNON    256    
                          DEBUG(SAASI + AASI) = DEBUG(DFOPL) + SHIFT(1,18)                   TURNON    257    
                          GO TO 8200                                                         TURNON    258    
                     8010 IF (SHIFT(DEBUG(DFOPL),59-26).LT.0) GO TO 8020                     TURNON    259    
       375                DFOPL2= ADDRESS(SHIFT(TRCADD,30))                                  TURNON    260    
                          IF(DFOPL2.EQ.DFOPL) GO TO 8050                                     TURNON    261    
                          IF(DFOPL2.NE.0) GO TO 8040                                         TURNON    262    
                          TRCADD = TRCADD.OR.SHIFT(DFOPL, 30)                                TURNON    263    
                          GO TO 8050                                                         TURNON    264    
       380           8040 DFOPL1 = DFOPL2                                                    TURNON    265    
                          DFOPL2 = ADDRESS(DEBUG(DFOPL2))                                    TURNON    266    
                          IF(DFOPL2.EQ.DFOPL) GO TO 8050                                     TURNON    267    
                          IF(DFOPL2.NE.0) GO TO 8040                                         TURNON    268    
                          DEBUG(DFOPL1) = DEBUG(DFOPL1).OR.DFOPL                             TURNON    269    
       385           8050 DEBUG(DFOPL) = DEBUG(DFOPL) + SHIFT(1,18)                          TURNON    270    
                     8200 IF (SHIFT(OH,-6).GT.TRACEL) TRACEL = SHIFT(OH,-6)                  TURNON    271    
                          GO TO 8001                                                         TURNON    272    
                    C                                                                        TURNON    273    
                    C  HERE IF DONE TURNING ON OPTIONS.  SET ERROR TO NO -T0- AND PUT -TO-   TURNON    274    
       390          C  BOUND IN -TO- LIST IF LINE OR STATEMENT NUMBER.                       TURNON    275    
                    C                                                                        TURNON    276    
                       30 IF (P ADD .EQ. 0) RETURN                                           TURNON    277    
                          DEBUG(SAREA+NEXT-1) =(DEBUG(SAREA+NEXT-1) .AND.                    TURNON    278    
                         ,   SHIFT(MASK(57),20)) .OR. SHIFT(1,20)                            TURNON    279    
       395                TO FM = 0                                                          TURNON    280    
                          BD ADD = NEXT + 1                                                  TURNON    281    
1         SUBROUTINE TURNON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     6
0 
                          NEXT1 = NEXT                                                       TURNON    282    
                          IF ((SHIFT(DEBUG(SAREA+NEXT-1),4).AND.3) - 1) 40, 50, 20           TURNON    283    
                       40 NEXT = ADDRESS(SHIFT(TO LIST, 20))                                 TURNON    284    
       400                IF (NEXT.NE.0) GO TO 60                                            TURNON    285    
                          TO LIST = TO LIST .OR. SHIFT(BD ADD, 40)                           TURNON    286    
                          GO TO 20                                                           TURNON    287    
                       50 NEXT = ADDRESS(SHIFT(TO LIST, -20))                                TURNON    288    
                          IF (NEXT.NE.0) GO TO 60                                            TURNON    289    
       405                TO LIST = TO LIST .OR. SHIFT(BD ADD, 20)                           TURNON    290    
                          GO TO 20                                                           TURNON    291    
                       60 TEMP = 2                                                           TURNON    292    
                          IF ((SHIFT(DEBUG(SAREA+NEXT1-1),2).AND.3).EQ.2) TEMP = 3           TURNON    293    
                          ITEMSAV = ITEM                                                     TURNON    294    
       410                ITEM = DEBUG(SAREA+NEXT1+TEMP) .AND. SHIFT(MASK(30),30)            TURNON    295    
                          CALL PUT                                                           TURNON    296    
                          ITEM = ITEMSAV                                                     TURNON    297    
                       20 DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. MASK(1)               TURNON    298    
                          NEXT = NEXT1                                                       TURNON    299    
       415                RETURN                                                             TURNON    300    
                          END                                                                TURNON    301    
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  TURNON  
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
1         SUBROUTINE TURNON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     7
0  VARIABLES     SN  TYPE           RELOCATION  
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     205  INDEF     INTEGER             DBGBLK3        113  INDEXNO   INTEGER             DBGBLK2 
       2  ITEM      INTEGER             DBGBLK3        773  ITEMSAV   INTEGER                     
      42  LDEBUG    INTEGER             DBGBLK2         14  LELIST    INTEGER             DBGBLK2 
     106  LEVEL     INTEGER             DBGBLK3        115  LEVSHFT   INTEGER             DBGBLK3 
      47  LFLAG     LOGICAL             DBGBLK2         57  LNGIND    INTEGER             DBGBLK2 
     160  LPAREN    INTEGER             DBGBLK3        113  LSHIFT    INTEGER             DBGBLK3 
     154  LSTLINE   INTEGER             DBGBLK3         46  LTFLAG    LOGICAL             DBGBLK2 
      66  M         INTEGER             DBGBLK3          4  MINZERO   INTEGER             DBGBLK3 
      74  MISFLAG   INTEGER             DBGBLK3          5  MULT      INTEGER             DBGBLK3 
      23  NAASI     INTEGER             DBGBLK2         63  NDRL      INTEGER             DBGBLK3 
       0  NEXT      INTEGER             DBGBLK3        772  NEXT1     INTEGER                     
      12  NFIELD    INTEGER             DBGBLK3         60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
     175  OVRFLOW   INTEGER             DBGBLK3         36  PADD      INTEGER             DBGBLK2 
     114  PHSFLAG   INTEGER             DBGBLK2         21  POINT     INTEGER             DBGBLK3 
      32  POW       INTEGER             DBGBLK2        146  PREDBG    INTEGER    ARRAY    DBGBLK3 
     206  RANGE     INTEGER             DBGBLK3         43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
     104  RELOP     INTEGER             DBGBLK3        202  ROUNAME   INTEGER             DBGBLK3 
     157  RPAREN    INTEGER             DBGBLK3        122  RTAB      INTEGER    ARRAY    DBGBLK3 
      11  SAASI     INTEGER             DBGBLK2        152  SAMLINE   INTEGER             DBGBLK3 
       4  SAREA     INTEGER             DBGBLK2         17  SASI      INTEGER             DBGBLK3 
     174  SAVEOH    INTEGER             DBGBLK3         24  SAVUPDT   INTEGER    ARRAY    DBGBLK3 
     112  SCNUPDT   INTEGER             DBGBLK2         24  SDBGIND   INTEGER             DBGBLK2 
       0  SDRL      INTEGER             DBGBLK2          2  SDVL      INTEGER             DBGBLK2 
     161  SLASH     INTEGER             DBGBLK3          7  SPIDER    INTEGER             DBGBLK1 
      67  SPIDIS    INTEGER             DBGBLK3          7  SSYMTAB   INTEGER             DBGBLK2 
     155  STAR      INTEGER             DBGBLK3        150  STAR1     INTEGER             DBGBLK3 
     151  STAR2     INTEGER             DBGBLK3         72  STOSWAP   INTEGER             DBGBLK3 
      45  SUCCESS   INTEGER             DBGBLK2         10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
1         SUBROUTINE TURNON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     8
0  EXTERNALS          TYPE   ARGS     
          FSTRIP    INTEGER    1                            GETOUT               0                
          PUT                  0                            SETARR               0                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
      16  10                                 641  20                                 600  30                          
       0  40          INACTIVE               617  50                                 624  60                          
      15  100                                 36  1000                               110  1020                        
      70  1030                               672  1040    FMT                        102  1050                        
      43  1080                               113  2000                               166  2010                        
     153  2020                               145  2022                               131  2024                        
     705  2030    FMT                        160  2040                               120  2050                        
     171  3000                               250  3010                               235  3020                        
     227  3022                               213  3024                               720  3030    FMT                 
     242  3040                               176  3050                               253  4000                        
     257  5000                               263  6000                               312  6010                        
     733  6020    FMT                        325  7000                               362  7010                        
     746  7020    FMT                        346  7025                               402  7040                        
     407  7050                               416  7060                               425  7070                        
     456  7100                               433  7110                               442  7120                        
     477  8000                               473  8001                               554  8010                        
     471  8020                               763  8021    FMT                        564  8040                        
     571  8050                               517  8070                               544  8100                        
     524  8110                               533  8120                               574  8200                        
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                774B     508 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE BUGSOUT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE BUGSOUT                                                 BUGSOUT     2    
                    C  THIS SUBROUTINE LOOKS FOR ERRONEOUS B-CELLS IN FIDIT.  IT IS CALLED   BUGSOUT     3    
                    C  BY PS1CTL$ JUST BEFORE IT TERMINATES PHASE 2, AND PRINTS OUT THE BAD  BUGSOUT     4    
                    C  BOUNDS ALONG WITH A PERTINENT DIAGNOSTIC MESSAGE.                     BUGSOUT     5    
         5          C  ENTRY: FIDIT = THE BEGINNING ADDRESS OF THE AREA LIST                 BUGSOUT     6    
                    C         EFIDIT = THE ENDING ADDRESS OF THE AREA LIST                   BUGSOUT     7    
                                                                                             LDBGCOM     2    
         8          C/    LIST,NONE                                                          LDBGCOM     3    
       120          C/    LIST,ALL                                                           LDBGCOM     5    
                          DATA ((ERRMSG(I,J),I=1,5),J=1,5) /250H BOTH BOUNDS OUT OF RANGE OF BUGSOUT     9    
                         , ROUTINE               -TO- BOUND OUT OF RANGE OF ROUTINE          BUGSOUT    10    
                         ,      THIS IS AN IMPOSSIBLE SITUATION                    -TO- BOUN BUGSOUT    11    
                         ,D OCCURS IN ROUTINE BEFORE -FROM- BOUND  -FROM- BOUND OUT OF RANGE BUGSOUT    12    
       125               , OF ROUTINE             /                                          BUGSOUT    13    
                          DFPACK = -1                                                        BUGSOUT    14    
                          IF((DEBUG(FIDIT) .AND. MASK(6)) .EQ. SHIFT(POINT,54))              BUGSOUT    15    
                         ,    FIDIT = FIDIT + 1                                              BUGSOUT    16    
                          IF (FIDIT .GE. EFIDIT) RETURN                                      BUGSOUT    17    
       130            210 ERR NUM = (SHIFT(DEBUG(FIDIT), -20) .AND. 7B) + 1                  BUGSOUT    18    
                          IF (ERR NUM .EQ. 6) GO TO 200                                      BUGSOUT    19    
                          DTYPE = SHIFT(DEBUG(FIDIT),10) .AND. 77B                           BUGSOUT    20    
                          DLINE = SHIFT(DEBUG(FIDIT), -25) .AND. MINZERO                     BUGSOUT    21    
                          NUM ERR = NUM ERR + 1                                              BUGSOUT    22    
       135                GO TO (10,20,30,45,50,60,70,45,90,100,110,45),                     BUGSOUT    23    
                         ,    (SHIFT(DEBUG(FIDIT),4).AND.17B)+1                              BUGSOUT    24    
                    C  HERE FOR ( LINE NUMBER, LINE NUMBER)                                  BUGSOUT    25    
                       10 DEBUG(FIDIT+2) = SHIFT(DEBUG(FIDIT+3), 30) .AND.                   BUGSOUT    26    
                         ,    SHIFT(MASK(30),30)                                             BUGSOUT    27    
       140                DEBUG(FIDIT+3) = DEBUG(FIDIT+3) .AND. SHIFT(MASK(30),30)           BUGSOUT    28    
                          IF(DEBUG(FIDIT+3). NE. LSTLINE) GO TO 15                           BUGSOUT    29    
                          IF (ERR NUM .EQ.2) GO TO 204                                       BUGSOUT    30    
                          DEBUG(FIDIT+3) = 2H *                                              BUGSOUT    31    
                          ERR NUM = 5                                                        BUGSOUT    32    
       145             15 IF(NUMERR .EQ. 1) WRITE(DBGOUT,1)                                  BUGSOUT    33    
                          IF(DEBUG(FIDIT+3) .EQ. 2H *) GO TO 18                              BUGSOUT    34    
                          WRITE (DBGOUT, 11) DLINE, DTYPE, DEBUG(FIDIT + 2), DEBUG(FIDIT+3), BUGSOUT    35    
                         ,    (ERR MSG(I,ERR NUM),I=1,5)                                     BUGSOUT    36    
                       11 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,9X,1HL,I5,1H,,9X,1HL,I5,1H),  BUGSOUT    37    
       150               ,    5A10)                                                          BUGSOUT    38    
                          GO TO 200                                                          BUGSOUT    39    
                       18 WRITE(DBGOUT, 12) DLINE, DTYPE, DEBUG(FIDIT+2), DEBUG(FIDIT+3),    BUGSOUT    40    
                         ,   (ERR MSG(I,ERR NUM),I=1,5)                                      BUGSOUT    41    
                       12 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,9X,1HL,I5,1H,,9X,A6,1H),      BUGSOUT    42    
       155               ,    5A10)                                                          BUGSOUT    43    
                          GO TO 200                                                          BUGSOUT    44    
                    C  HERE FOR ( LINE NUMBER, STATEMENT NUMBER)                             BUGSOUT    45    
                       20 DEBUG(FIDIT+2) = SHIFT(DEBUG(FIDIT+3), 30) .AND.                   BUGSOUT    46    
                         ,    SHIFT(MASK(30),30)                                             BUGSOUT    47    
       160                IF (NUM ERR .EQ. 1) WRITE ( DBGOUT, 1)                             BUGSOUT    48    
                          WRITE (DBGOUT, 21) DLINE, DTYPE, DEBUG(FIDIT +2), DEBUG(FIDIT+3),  BUGSOUT    49    
                         ,    (ERR MSG(I,ERR NUM),I=1,5)                                     BUGSOUT    50    
                       21 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,9X,1HL,I5,1H,,10X,R5,1H),     BUGSOUT    51    
                         ,    5A10)                                                          BUGSOUT    52    
       165                GO TO 200                                                          BUGSOUT    53    
                    C  HERE FOR ( LINE NUMBER, UPDATE IDENTIFIER)                            BUGSOUT    54    
                       30 DEBUG(FIDIT+2) = SHIFT(DEBUG(FIDIT+3), 30) .AND.                   BUGSOUT    55    
                         ,    SHIFT(MASK(30),30)                                             BUGSOUT    56    
1         SUBROUTINE BUGSOUT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                          IF (NUM ERR .EQ. 1) WRITE ( DBGOUT, 1)                             BUGSOUT    57    
       170                WRITE (DBGOUT, 31) DLINE, DTYPE, DEBUG(FIDIT +2),                  BUGSOUT    58    
                         ,    DEBUG(FIDIT + 3), DEBUG(FIDIT + 4),                            BUGSOUT    59    
                         ,    (ERR MSG(I,ERR NUM),I=1,5)                                     BUGSOUT    60    
                       31 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,9X,1HL,I5,2H, ,R5, A9, 1H),   BUGSOUT    61    
                         ,    5A10)                                                          BUGSOUT    62    
       175                GO TO 200                                                          BUGSOUT    63    
                    C  HERE FOR ( STATEMENT NUMBER, LINE NUMBER)                             BUGSOUT    64    
                       50 DEBUG(FIDIT+2) = DEBUG(FIDIT+3) .AND. SHIFT(MASK(30),30)           BUGSOUT    65    
                          IF(DEBUG(FIDIT+2). NE. LSTLINE) GO TO 55                           BUGSOUT    66    
                          IF (ERR NUM .EQ.2) GO TO 204                                       BUGSOUT    67    
       180                DEBUG(FIDIT+2) = 2H *                                              BUGSOUT    68    
                          ERR NUM = 5                                                        BUGSOUT    69    
                       55 IF(NUMERR .EQ. 1) WRITE(DBGOUT,1)                                  BUGSOUT    70    
                          IF(DEBUG(FIDIT+2) .EQ. 2H *) GO TO 58                              BUGSOUT    71    
                          WRITE (DBGOUT, 51) DLINE, DTYPE, DEBUG(FIDIT + 3), DEBUG(FIDIT+2), BUGSOUT    72    
       185               ,    (ERR MSG(I,ERR NUM),I=1,5)                                     BUGSOUT    73    
                       51 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,10X,A5,1H,,9X,1HL,I5,1H),     BUGSOUT    74    
                         ,    5A10)                                                          BUGSOUT    75    
                          GO TO 200                                                          BUGSOUT    76    
                       58 WRITE(DBGOUT, 52) DLINE, DTYPE, DEBUG(FIDIT+3), DEBUG(FIDIT+2),    BUGSOUT    77    
       190               ,   (ERR MSG(I,ERR NUM),I=1,5)                                      BUGSOUT    78    
                       52 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,10X,A5,1H,,9X,A6,1H),         BUGSOUT    79    
                         ,    5A10)                                                          BUGSOUT    80    
                          GO TO 200                                                          BUGSOUT    81    
                    C  HERE FOR ( STATEMENT NUMBER, STATEMENT NUMBER)                        BUGSOUT    82    
       195             60 IF (NUM ERR .EQ. 1) WRITE( DBGOUT, 1)                              BUGSOUT    83    
                          WRITE (DBGOUT, 61) DLINE, DTYPE, DEBUG(FIDIT+3), DEBUG(FIDIT+3),   BUGSOUT    84    
                         ,    (ERR MSG(I,ERR NUM),I=1,5)                                     BUGSOUT    85    
                       61 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (, 10X, A5, 1H,, 10X, R5, 1H),  BUGSOUT    86    
                         ,    5A10)                                                          BUGSOUT    87    
       200                GO TO 200                                                          BUGSOUT    88    
                    C  HERE FOR ( STATEMENT NUMBER, UPDATE IDENTIFIER)                       BUGSOUT    89    
                       70 IF (NUM ERR .EQ. 1) WRITE ( DBGOUT, 1)                             BUGSOUT    90    
                          WRITE (DBGOUT, 71) DLINE, DTYPE, DEBUG(FIDIT+3),                   BUGSOUT    91    
                         ,    DEBUG(FIDIT + 3), DEBUG(FIDIT + 4),                            BUGSOUT    92    
       205               ,    (ERR MSG(I,ERR NUM),I=1,5)                                     BUGSOUT    93    
                       71 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (, 10X, A5, 2H, , R5, A9, 1H),  BUGSOUT    94    
                         ,    5A10)                                                          BUGSOUT    95    
                          GO TO 200                                                          BUGSOUT    96    
                    C  HERE FOR ( UPDATE IDENTIFIER, LINE NUMBER)                            BUGSOUT    97    
       210             90 DEBUG(FIDIT+2) = DEBUG(FIDIT+4) .AND. SHIFT(MASK(30),30)           BUGSOUT    98    
                          IF (DEBUG(FIDIT + 2) .NE. LSTLINE) GO TO 206                       BUGSOUT    99    
                          IF(NUMERR .EQ. 2) GO TO 204                                        BUGSOUT   100    
                          DEBUG(FIDIT+2) = 2H *                                              BUGSOUT   101    
                          ERR NUM = 5                                                        BUGSOUT   102    
       215                GO TO 206                                                          BUGSOUT   103    
                      204 NUM ERR = NUM ERR - 1                                              BUGSOUT   104    
                          GO TO 200                                                          BUGSOUT   105    
                      206 IF (NUM ERR .EQ. 1) WRITE ( DBGOUT, 1)                             BUGSOUT   106    
                          IF(DEBUG(FIDIT+2) .EQ. 2H *) GO TO 98                              BUGSOUT   107    
       220                WRITE (DBGOUT, 91) DLINE, DTYPE, DEBUG(FIDIT + 3),                 BUGSOUT   108    
                         ,    DEBUG(FIDIT + 4), DEBUG(FIDIT + 2),                            BUGSOUT   109    
                         ,    (ERR MSG(I,ERR NUM),I=1,5)                                     BUGSOUT   110    
                       91 FORMAT(14H AT DEBUG LINE,I5,R1,4H- ( ,A10,A4,1H,,9X, 1HL,I5, 1H),  BUGSOUT   111    
                         ,    5A10)                                                          BUGSOUT   112    
       225                GO TO 200                                                          BUGSOUT   113    
1         SUBROUTINE BUGSOUT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
                       98 WRITE(DBGOUT, 92) DLINE, DTYPE, DEBUG(FIDIT+3),                    BUGSOUT   114    
                         ,   DEBUG(FIDIT+4), DEBUG(FIDIT+2),                                 BUGSOUT   115    
                         ,   (ERR MSG(I,ERR NUM),I=1,5)                                      BUGSOUT   116    
                       92 FORMAT(14H AT DEBUG LINE,I5,R1,4H- ( ,A10, A4,1H,,9X,A6,1H),       BUGSOUT   117    
       230               ,    5A10)                                                          BUGSOUT   118    
                          GO TO 200                                                          BUGSOUT   119    
                    C  HERE FOR ( UPDATE IDENTIFIER, STATEMENT NUMBER)                       BUGSOUT   120    
                      100 IF (NUM ERR .EQ. 1) WRITE (DBGOUT, 1)                              BUGSOUT   121    
                          WRITE (DBGOUT, 101) DLINE, DTYPE, DEBUG(FIDIT+3), DEBUG(FIDIT+4),  BUGSOUT   122    
       235               ,    DEBUG(FIDIT+4), (ERR MSG(I,ERRNUM),I=1,5)                      BUGSOUT   123    
                      101 FORMAT(14H AT DEBUG LINE,I5,R1,4H- ( , A10, A4, 1H,, 10X, R5, 1H), BUGSOUT   124    
                         ,    5A10)                                                          BUGSOUT   125    
                          GO TO 200                                                          BUGSOUT   126    
                    C  HERE FOR ( UPDATE IDENTIFIER, UPDATE IDENTIFIER)                      BUGSOUT   127    
       240            110 IF (NUM ERR .EQ. 1) WRITE (DBGOUT, 1)                              BUGSOUT   128    
                        1 FORMAT (4X, 23HDEBUG- AREA LIST ERRORS)                            BUGSOUT   129    
                          WRITE(DBGOUT, 111) DLINE, DTYPE, DEBUG(FIDIT+3), DEBUG(FIDIT+4),   BUGSOUT   130    
                         ,    DEBUG(FIDIT+4), DEBUG(FIDIT+5), (ERR MSG(I,ERR NUM),I=1,5)     BUGSOUT   131    
                      111 FORMAT(14H AT DEBUG LINE,I5,R1,4H- ( , A10, A4, 2H, , R5, A9, 1H), BUGSOUT   132    
       245               ,    5A10)                                                          BUGSOUT   133    
                          GO TO 200                                                          BUGSOUT   134    
                       45 WRITE (DBGOUT, 46)                                                 BUGSOUT   135    
                    46    FORMAT(* DEBUG: WOULD YOU BELIEVE THAT SOMEBODY GOOFED  *)         BUGSOUT   136    
                      200 FIDIT = FIDIT + (SHIFT(DEBUG(FIDIT),-23).AND.3) +3                 BUGSOUT   137    
       250            220 IF (FIDIT .GE. EFIDIT) RETURN                                      BUGSOUT   138    
                          IF ((DEBUG(FIDIT) .AND. MASK(6)).NE.SHIFT(POINT,54))  GO TO 210    BUGSOUT   139    
                          FIDIT = FIDIT + 1                                                  BUGSOUT   140    
                          GO TO 220                                                          BUGSOUT   141    
                          END                                                                BUGSOUT   142    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
       121    I      BOTH BO  HOLLERITH CONSTANT .GT. 10 CHARACTERS, EXCESS CHARACTERS INITIALIZED INTO SUCCEEDING WORDS. 
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  BUGSOUT 
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
1         SUBROUTINE BUGSOUT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0  VARIABLES     SN  TYPE           RELOCATION  
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     743  I         INTEGER                            205  INDEF     INTEGER             DBGBLK3 
     113  INDEXNO   INTEGER             DBGBLK2          2  ITEM      INTEGER             DBGBLK3 
      42  LDEBUG    INTEGER             DBGBLK2         14  LELIST    INTEGER             DBGBLK2 
     106  LEVEL     INTEGER             DBGBLK3        115  LEVSHFT   INTEGER             DBGBLK3 
      47  LFLAG     LOGICAL             DBGBLK2         57  LNGIND    INTEGER             DBGBLK2 
     160  LPAREN    INTEGER             DBGBLK3        113  LSHIFT    INTEGER             DBGBLK3 
     154  LSTLINE   INTEGER             DBGBLK3         46  LTFLAG    LOGICAL             DBGBLK2 
      66  M         INTEGER             DBGBLK3          4  MINZERO   INTEGER             DBGBLK3 
      74  MISFLAG   INTEGER             DBGBLK3          5  MULT      INTEGER             DBGBLK3 
      23  NAASI     INTEGER             DBGBLK2         63  NDRL      INTEGER             DBGBLK3 
       0  NEXT      INTEGER             DBGBLK3         12  NFIELD    INTEGER             DBGBLK3 
      60  NOACT     INTEGER             DBGBLK2        105  NOCONST   INTEGER             DBGBLK3 
       4  NOGOFLG   INTEGER             DBGBLK1        120  NOLIN     INTEGER             DBGBLK3 
     107  NOOFWDS   INTEGER             DBGBLK3         50  NOPROG    INTEGER             DBGBLK2 
      35  NUMERR    INTEGER             DBGBLK2        110  NXTADD    INTEGER             DBGBLK3 
     112  NXTADD1   INTEGER             DBGBLK3        133  NXTITEM   INTEGER             DBGBLK3 
      20  NXTSTR    INTEGER             DBGBLK3        114  NXTSTR1   INTEGER             DBGBLK3 
       6  OH        INTEGER             DBGBLK3         71  OPDRL     INTEGER             DBGBLK3 
      40  OPENFL    INTEGER             DBGBLK2         65  OPREC     INTEGER             DBGBLK3 
     163  OPWORD    INTEGER             DBGBLK3        175  OVRFLOW   INTEGER             DBGBLK3 
      36  PADD      INTEGER             DBGBLK2        114  PHSFLAG   INTEGER             DBGBLK2 
      21  POINT     INTEGER             DBGBLK3         32  POW       INTEGER             DBGBLK2 
     146  PREDBG    INTEGER    ARRAY    DBGBLK3        206  RANGE     INTEGER             DBGBLK3 
      43  RECORD    INTEGER             DBGBLK2         12  REFMAP    INTEGER             DBGBLK2 
     201  RELFLAG   INTEGER             DBGBLK3        104  RELOP     INTEGER             DBGBLK3 
     202  ROUNAME   INTEGER             DBGBLK3        157  RPAREN    INTEGER             DBGBLK3 
     122  RTAB      INTEGER    ARRAY    DBGBLK3         11  SAASI     INTEGER             DBGBLK2 
     152  SAMLINE   INTEGER             DBGBLK3          4  SAREA     INTEGER             DBGBLK2 
      17  SASI      INTEGER             DBGBLK3        174  SAVEOH    INTEGER             DBGBLK3 
      24  SAVUPDT   INTEGER    ARRAY    DBGBLK3        112  SCNUPDT   INTEGER             DBGBLK2 
      24  SDBGIND   INTEGER             DBGBLK2          0  SDRL      INTEGER             DBGBLK2 
       2  SDVL      INTEGER             DBGBLK2        161  SLASH     INTEGER             DBGBLK3 
1         SUBROUTINE BUGSOUT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0  VARIABLES     SN  TYPE           RELOCATION  
       7  SPIDER    INTEGER             DBGBLK1         67  SPIDIS    INTEGER             DBGBLK3 
       7  SSYMTAB   INTEGER             DBGBLK2        155  STAR      INTEGER             DBGBLK3 
     150  STAR1     INTEGER             DBGBLK3        151  STAR2     INTEGER             DBGBLK3 
      72  STOSWAP   INTEGER             DBGBLK3         45  SUCCESS   INTEGER             DBGBLK2 
      10  SYMTAB    INTEGER             DBGBLK3        173  SYMTABB   INTEGER             DBGBLK3 
     116  TAASI     INTEGER             DBGBLK3         16  TEMP      INTEGER             DBGBLK3 
      22  TEMP1     INTEGER             DBGBLK3        164  TLNG      INTEGER             DBGBLK3 
     101  TOBOUND   INTEGER             DBGBLK3          1  TOFM      INTEGER             DBGBLK3 
     134  TOLIST    INTEGER             DBGBLK3        203  TOSHIFT   INTEGER             DBGBLK3 
     170  TOTLNG    INTEGER             DBGBLK3        117  TRACED    INTEGER             DBGBLK3 
       5  TRACEL    INTEGER             DBGBLK1         73  TRACEON   INTEGER             DBGBLK3 
      26  TRCADD    INTEGER             DBGBLK3        172  UPDIS     INTEGER             DBGBLK3 
      65  UPDTTBL   INTEGER    ARRAY    DBGBLK2        171  UPNO      INTEGER             DBGBLK3 
     204  VALUE     INTEGER             DBGBLK3 
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
     703  1       FMT                         45  10                                 411  11      FMT                 
     430  12      FMT                         57  15                                  77  18                          
     111  20                                 452  21      FMT                        131  30                          
     475  31      FMT                        362  45                                 733  46      FMT                 
     153  50                                 517  51      FMT                        536  52      FMT                 
     164  55                                 204  58                                 216  60                          
     560  61      FMT                        233  70                                 603  71      FMT                 
     252  90                                 626  91      FMT                        646  92      FMT                 
     307  98                                 323  100                                671  101     FMT                 
     342  110                                721  111     FMT                        364  200                         
     263  204                                265  206                                 12  210                         
     367  220                         
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
1         SUBROUTINE BUGSOUT    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     6
0  STATISTICS     
     PROGRAM LENGTH                744B     484 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE BUGCON                                                  BUGCON      2    
                    C  THIS ROUTINE TAKES DEBUG STATEMENT ELIST AND CONVERTS IT INTO A DEBUG BUGCON      3    
                    C  LIST REPRESENTATION.  AREA AND OPTIONS LISTS ARE SENT TO DISK VIA A   BUGCON      4    
                    C  RJ BUGPRO WHEN NECESSARY.                                             BUGCON      5    
         5          C              DFPACK =  1 IF STATEMENT IS IN EXTERNAL PACKET            BUGCON      6    
                    C                     = -1 IF INTERNAL PACKET                            BUGCON      7    
                    C                     =  0 IF INTERSPERSED                               BUGCON      8    
                    C              DFNOGO.LT.0 IF NOT ENUF ROOM FOR DEBUG TABLES             BUGCON      9    
                    C                     =  0 ELSE                                          BUGCON     10    
        10          C              DFTYPE =  TYPE OF DEBUG STATEMENT                         BUGCON     11    
                    C              DFNESTW=  CURRENT WORD FOR LIST                           BUGCON     12    
                    C              DFNEST =  CURRENT POSITION IN DFNESTW                     BUGCON     13    
                    C              REFMAP = THE BEGINNING ADDRESS OF REFMAP                  BUGCON     14    
                    C              ELAST  = THE LAST ADDRESS OF ELIST                        BUGCON     15    
        15          C              SDVL   = THE BEGINNING ADDRESS OF DVL                     BUGCON     16    
                                                                                             LDBGCOM     2    
        17          C/    LIST,NONE                                                          LDBGCOM     3    
       129          C/    LIST,ALL                                                           LDBGCOM     5    
       130                DATA MISFLAG  /0/                                                  BUGCON     18    
                          DATA MINZERO /7777B/                                               BUGCON     19    
                          DATA RECORD /4/                                                    BUGCON     20    
                          DATA OPENFL /0/                                                    BUGCON     21    
                          DATA POW /1/                                                       BUGCON     22    
       135                DATA COW /0/                                                       BUGCON     23    
                          DATA DBGOUT /2/                                                    BUGCON     24    
                          DATA RTAB    /2, 1, 5, 6, 3, 4, 7, 0, 8/                           BUGCON     25    
                          DATA RANGE   /20012201160705555555B/                               BUGCON     26    
                          DATA INDEF   /20011116040506555555B/                               BUGCON     27    
       140                DATA OUTDBG  /77777777400001777777B/                               BUGCON     28    
                          DATA DBGPIC  / 8HPAARRAYS, 7HPACALLS, 7HPAFUNCS, 7HPAGOTOS,        BUGCON     29    
                         ,              6HPANOGO, 8HPASTORES, 10H          , 7HPATRACE,      BUGCON     30    
                         ,              5HPAOFF/                                             BUGCON     31    
                          DATA LTFLAG  /.FALSE./                                             BUGCON     32    
       145                DATA LFLAG   /.FALSE./                                             BUGCON     33    
                          DATA TRACEL  /-1/                                                  BUGCON     34    
                          DATA DUNIT  /5LDEBUG/                                              BUGCON     35    
                          DATA NEXT /0/                                                      BUGCON     36    
                          DATA TO LIST /0/                                                   BUGCON     37    
       150                DATA FM LIST /0/                                                   BUGCON     38    
                          DATA FIDIT /0/                                                     BUGCON     39    
                          DATA EFIDIT /0/                                                    BUGCON     40    
                          DATA OH /-1/                                                       BUGCON     41    
                          DATA RBLANKS /00000000005555555555B/                               BUGCON     42    
       155                DATA CUR OP BD /0/                                                 BUGCON     43    
                          DATA NO LIN /0/                                                    BUGCON     44    
                          DATA AASIADD /0/                                                   BUGCON     45    
                          DATA NAASI /0/                                                     BUGCON     46    
                          DATA STAR1 /0/                                                     BUGCON     47    
       160                DATA STAR2 /0/                                                     BUGCON     48    
                          DATA SAMLINE /0/                                                   BUGCON     49    
                          DATA FSTLINE /00000000010000000000B/                               BUGCON     50    
                          DATA LSTLINE /00000000007777777777B/                               BUGCON     51    
                          DATA STAR /22B/                                                    BUGCON     52    
       165                DATA COMMA /03B/                                                   BUGCON     53    
                          DATA RPAREN  /02B/                                                 BUGCON     54    
                          DATA EOS/4B/                                                       BUGCON     55    
                          DATA LPAREN  /06B/                                                 BUGCON     56    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                          DATA SLASH  /23B/                                                  BUGCON     57    
       170                DATA POINT /57B/                                                   BUGCON     58    
                          DATA SYMBL/01B/                                                    BUGCON     59    
                          DATA CONST /0/                                                     BUGCON     60    
                          DATA TRCADD /0/                                                    BUGCON     61    
                          DATA BLNG /0/                                                      BUGCON     62    
       175                DATA OPREC  /5/                                                    BUGCON     63    
                          DATA LNG IND /100/                                                 BUGCON     64    
                          DATA OVRFLOW /0/                                                   BUGCON     65    
                          DATA CFPACK  /0/                                                   BUGCON     66    
                          DATA OPWORD /0/                                                    BUGCON     67    
       180                DATA TRACE ON /0/                                                  BUGCON     68    
                          DATA TOT LNG /0/                                                   BUGCON     69    
                          DATA REL FLG /0/                                                   BUGCON     70    
                          DATA STOSWAP /0/                                                   BUGCON     71    
                          DATA VALUE /10HVALUE.    /                                         BUGCON     72    
       185                DATA  OPDRL /0/                                                    BUGCON     73    
                          ELIST = ELIST - 1                                                  BUGCON     74    
                          IF (DFTYPE-40) 1010, 1010, 2010                                    BUGCON     75    
                    *                                                                        BUGCON     76    
                    *  HERE IF DEBUG CARD                                                    BUGCON     77    
       190          *  INITIALIZE ALLROU AND -A- FLAG OF DRL, BRANCH ON FIRST CHARACTER      BUGCON     78    
                       10 AREA FLG = 0                                                       BUGCON     79    
                          ALL ROU = 0                                                        BUGCON     80    
                          TRACE ON = 0                                                       BUGCON     81    
                          NDRL = 0                                                           BUGCON     82    
       195                MISFLAG = 0                                                        BUGCON     83    
                          IF ( (DFNOGO .LT. 0) .OR. (DFPACK .EQ. 0) ) GO TO 190              BUGCON     84    
                          DRL = SDRL                                                         BUGCON     85    
                      200 IF (DRL.EQ.EDRL) GO TO 190                                         BUGCON     86    
                          DEBUG(DRL+1) = DEBUG(DRL+1) .AND. .NOT. MASK(1)                    BUGCON     87    
       200                DRL = DRL + 2                                                      BUGCON     88    
                          GO TO 200                                                          BUGCON     89    
                      190 IF (EFORM(DEBUG(ELIST)).EQ.EOS) GO TO (90, 100, 80),(DFPACK+2)     BUGCON     90    
                          IF (EFORM(DEBUG(ELIST)).EQ.LPAREN) GO TO 30                        BUGCON     91    
                    *                                                                        BUGCON     92    
       205          *  HERE IF MISSING DELIMETER                                             BUGCON     93    
                    *                                                                        BUGCON     94    
                      110 M = 1                                                              BUGCON     95    
                          CALL DEBUG ER                                                      BUGCON     96    
                          RETURN                                                             BUGCON     97    
       210          *                                                                        BUGCON     98    
                    *  HERE IF TURNING ON ALLROU AND -A- FLAGS OF ALL ROUTINES (MAYBE)       BUGCON     99    
                    *                                                                        BUGCON    100    
                       80 IF (DFNOGO .LT. 0) RETURN                                          BUGCON    101    
                          ALLROU = 1                                                         BUGCON    102    
       215                DRL = SDRL-2                                                       BUGCON    103    
                          SPIDIS = 1                                                         BUGCON    104    
                       70 DRL = DRL+2                                                        BUGCON    105    
                          IF (DRL.EQ.EDRL) GO TO 50                                          BUGCON    106    
                          IF (SPIDIS.EQ.0) GO TO 60                                          BUGCON    107    
       220                IF ((DRLELT(DEBUG(DRL)) .EQ. SPIDER) .AND.                         BUGCON    108    
                         ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39), 60-1)) .EQ. 0))            BUGCON    109    
                         ,     SPIDIS = 0                                                    BUGCON    110    
                       60 DEBUG(DRL+1) = DEBUG(DRL+1) .OR. MASK(1)                           BUGCON    111    
                          GO TO 70                                                           BUGCON    112    
       225             50 IF (SPIDIS.EQ.0) RETURN                                            BUGCON    113    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
                          IF (DRL .NE. REFMAP) GO TO 10100                                   BUGCON    114    
                          DLFLG = 1                                                          BUGCON    115    
                          ENTRY DMVCON                                                       BUGCON    116    
                    10030 IF (ELAST - 10 .GE. AREAEND) GO TO 10010                           BUGCON    117    
       230                WRITE (DBGOUT, 10020)                                              BUGCON    118    
                    10020 FORMAT(14X, *DEBUG: MORE CORE IS NEEDED.  FURTHER PACKET DEBUG STA BUGCON    119    
                         ,TEMENTS WILL BE CHECKED FOR SYNTAX BUT NOT PROCESSED. *)           BUGCON    120    
                          DFNOGO = -1                                                        BUGCON    121    
                          IF (DLFLG.NE.5) GO TO 10011                                        BUGCON    122    
       235                DLFLG = 0                                                          BUGCON    123    
                          RETURN                                                             BUGCON    124    
                    10011 POW = 0                                                            BUGCON    125    
                          CALL BUGCLO                                                        BUGCON    126    
                          GO TO ( 100, 150, 1185, 2020, 100), DLFLG                          BUGCON    127    
       240          10010 CALL DMVWDS (DRL - ELAST, DEBUG(ELAST), DEBUG(ELAST - 10))         BUGCON    128    
                          ELAST = ELAST - 10                                                 BUGCON    129    
                          SSYMTAB = SSYMTAB - 10                                             BUGCON    130    
                          ESYMTAB = ESYMTAB - 10                                             BUGCON    131    
                          SDRL = SDRL - 10                                                   BUGCON    132    
       245                EDRL = EDRL - 10                                                   BUGCON    133    
                          SDVL = SDVL - 10                                                   BUGCON    134    
                          EDVL = EDVL - 10                                                   BUGCON    135    
                          ELIST = ELIST - 10                                                 BUGCON    136    
                          D LNG DRL = D LNG DRL + 10                                         BUGCON    137    
       250                CALL FIXPNTR                                                       BUGCON    138    
                          DRL = DRL - 10                                                     BUGCON    139    
                          GO TO ( 10100, 10200, 10300, 10400, 94), DLFLG                     BUGCON    140    
                    10100 DEBUG(DRL) = SPIDER                                                BUGCON    141    
                          DEBUG(DRL+1) = MASK(1)                                             BUGCON    142    
       255                EDRL = EDRL+2                                                      BUGCON    143    
                      100 RETURN                                                             BUGCON    144    
                    *                                                                        BUGCON    145    
                    *  HERE IF EOS AND DFPACK=-1                                             BUGCON    146    
                    *                                                                        BUGCON    147    
       260             90 IF (DFNOGO.LT.0) RETURN                                            BUGCON    148    
                          ALL ROU = 0                                                        BUGCON    149    
                          DRL = SDRL - 2                                                     BUGCON    150    
                          TEMP = DRLELT(DEBUG(DBGPROG))                                      BUGCON    151    
                       93 DRL = DRL + 2                                                      BUGCON    152    
       265                IF (DRL .EQ. EDRL) GO TO 91                                        BUGCON    153    
                          IF ( (DRLELT(DEBUG(DRL)) .EQ. TEMP) .AND.                          BUGCON    154    
                         ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0)) 92, 93      BUGCON    155    
                       91 IF (DRL .NE. REFMAP) GO TO 94                                      BUGCON    156    
                          DLFLG = 5                                                          BUGCON    157    
       270                GO TO 10030                                                        BUGCON    158    
                       94 DEBUG(DRL) = TEMP                                                  BUGCON    159    
                          EDRL = EDRL + 2                                                    BUGCON    160    
                          DEBUG(DRL+1) = 0                                                   BUGCON    161    
                       92 DEBUG(DRL+1) = DEBUG(DRL+1) .OR. MASK(1)                           BUGCON    162    
       275                RETURN                                                             BUGCON    163    
                    *                                                                        BUGCON    164    
                    C  HERE IF EXPECTING SYMBOL                                              BUGCON    165    
                       30 ELIST = ELIST - 1                                                  BUGCON    166    
                          IF (EFORM(DEBUG(ELIST)).NE.SYMBL) GO TO 115                        BUGCON    167    
       280                NDRL = NDRL + 1                                                    BUGCON    168    
                          TEMP = DRLELT(SHIFT(DEBUG(ELIST), 12) )                            BUGCON    169    
                          IF ((DFPACK .LT. 0) .AND. (TEMP .NE. DRLELT(DEBUG(DBGPROG))))      BUGCON    170    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0 
                         ,    GO TO 131                                                      BUGCON    171    
                          IF (DFNOGO .LT. 0) GO TO 150                                       BUGCON    172    
       285                DRL = SDRL                                                         BUGCON    173    
                      140 IF (DRL.EQ.EDRL) GO TO 120                                         BUGCON    174    
                          IF ( (DRLELT(DEBUG(DRL)) .EQ. TEMP)                                BUGCON    175    
                         ,    .AND. ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0))      BUGCON    176    
                         ,    GO TO 130                                                      BUGCON    177    
       290                DRL = DRL+2                                                        BUGCON    178    
                          GO TO 140                                                          BUGCON    179    
                      120 IF (DRL .NE. REFMAP) GO TO 10200                                   BUGCON    180    
                          DLFLG = 2                                                          BUGCON    181    
                          GO TO 10030                                                        BUGCON    182    
       295          10200 DEBUG(DRL) = DRLELT(SHIFT(DEBUG(ELIST), 12))                       BUGCON    183    
                          DEBUG(DRL+1) = MASK(1)                                             BUGCON    184    
                          EDRL = EDRL+2                                                      BUGCON    185    
                          GO TO 150                                                          BUGCON    186    
                      130 DEBUG(DRL+1) = DEBUG(DRL+1) .OR. MASK(1)                           BUGCON    187    
       300          *                                                                        BUGCON    188    
                    C  HERE IF EXPECTING DELIMETER                                           BUGCON    189    
                    *                                                                        BUGCON    190    
                      150 ELIST = ELIST-1                                                    BUGCON    191    
                          IF (EFORM(DEBUG(ELIST)).EQ.COMMA) GO TO 30                         BUGCON    192    
       305                IF (EFORM(DEBUG(ELIST)).NE.RPAREN) GO TO 110                       BUGCON    193    
                          IF (EFORM(DEBUG(ELIST-1)) .EQ. EOS) RETURN                         BUGCON    194    
                      152 M = 2                                                              BUGCON    195    
                          CALL DEBUG ER                                                      BUGCON    196    
                          RETURN                                                             BUGCON    197    
       310            131 M = 16                                                             BUGCON    198    
                          CALL DEBUG ER                                                      BUGCON    199    
                          GO TO 150                                                          BUGCON    200    
                    *                                                                        BUGCON    201    
                    *  HERE IF MISSING SYMBOL                                                BUGCON    202    
       315          *                                                                        BUGCON    203    
                      115 M = 3                                                              BUGCON    204    
                          CALL DEBUG ER                                                      BUGCON    205    
                          RETURN                                                             BUGCON    206    
                    *                                                                        BUGCON    207    
       320          *                                                                        BUGCON    208    
                    *  HERE IF A DEBUG OR AREA CARD                                          BUGCON    209    
                    *                                                                        BUGCON    210    
                     1010 IF(DFOPFLG.EQ.0) GO TO 1020                                        BUGCON    211    
                    *                                                                        BUGCON    212    
       325          *  HERE IF HAVE OPTIONS TO WRITE OUT                                     BUGCON    213    
                    *                                                                        BUGCON    214    
                          IF (DFNEST .NE.4) GO TO 1017                                       BUGCON    215    
                          IF ( ( DFNESTW - AREAEND - 1) .EQ. 0) GO TO 1018                   BUGCON    216    
                          DFNEST = -1                                                        BUGCON    217    
       330                DFNESTW = DFNESTW - 1                                              BUGCON    218    
                     1017 DFNEST = DFNEST + 1                                                BUGCON    219    
                     1018 OH = MINZERO                                                       BUGCON    220    
                          CALL PUT IN                                                        BUGCON    221    
                          IF (DFNEST .EQ. 4) DFNESTW = DFNESTW - 1                           BUGCON    222    
       335                DFOPFLG = 0                                                        BUGCON    223    
                          DEBUG(OPDRL+1)  =  (DEBUG(OPDRL+1) .AND. SHIFT(MASK(42), 24))      BUGCON    224    
                         ,     .OR. SHIFT(DFNESTW - AREAEND, 24)                             BUGCON    225    
                          IF (OPENFL .EQ. 0) CALL WRTMS1                                     BUGCON    226    
                    11111 CALL WRTMS2 (DEBUG(AREAEND + 1), DFNESTW - AREAEND, OPREC)         BUGCON    227    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0 
       340                CALL WRTMS3                                                        BUGCON    228    
                          DEBUG(SDBGIND+OPREC)  =  (DEBUG(SDBGIND+OPREC) .AND.               BUGCON    229    
                         ,     SHIFT(MASK(42), 24)) .OR. SHIFT(DFNESTW-AREAEND, 24)          BUGCON    230    
                          DFNESTW = AREAEND + 1                                              BUGCON    231    
                          DFNEST = 4                                                         BUGCON    232    
       345                STOSWAP = 0                                                        BUGCON    233    
                          TRACEON = 0                                                        BUGCON    234    
                          OPWORD = 0                                                         BUGCON    235    
                          MISFLAG = 0                                                        BUGCON    236    
                          DRL = SDRL - 2                                                     BUGCON    237    
       350          10201 DRL = DRL + 2                                                      BUGCON    238    
                          IF (DRL .EQ. EDRL) GO TO 1020                                      BUGCON    239    
                          TEMP = ADDRESS(DEBUG(DRL))                                         BUGCON    240    
                          IF (SHIFT(TEMP, 42) .GT. 0)                                        BUGCON    241    
                         ,   DEBUG(DRL) = DRLELT(DEBUG(DRL)) .OR.(SHIFT(MASK(18),18) - TEMP) BUGCON    242    
       355                GO TO 10201                                                        BUGCON    243    
                    *                                                                        BUGCON    244    
                    *  HERE IF NO OPTIONS TO WRITE OUT                                       BUGCON    245    
                    *                                                                        BUGCON    246    
                     1020 IF (DFTYPE.EQ.39) GO TO 10                                         BUGCON    247    
       360                IF (MISFLAG .EQ. -1) MISFLAG = 0                                   BUGCON    248    
                          IF (EFORM(DEBUG(ELIST)) .NE. SLASH) GO TO (1162,1415,1130),        BUGCON    249    
                         ,                                                DFPACK+ 2          BUGCON    250    
                          GO TO 1050                                                         BUGCON    251    
                    *                                                                        BUGCON    252    
       365          *  HERE IF EXPECTED /, (, ,, OR ), IS MISSING                            BUGCON    253    
                    *                                                                        BUGCON    254    
                     1130 M = 1                                                              BUGCON    255    
                     1135 CALL DEBUG ER                                                      BUGCON    256    
                    *                                                                        BUGCON    257    
       370          *  HERE TO SET UP RETURN CONDITIONS                                      BUGCON    258    
                    *                                                                        BUGCON    259    
                     1430 IF (MISFLAG.EQ.0) MISFLAG = -1                                     BUGCON    260    
                          CUR OP BD =0                                                       BUGCON    261    
                          CUR ROUT = 0                                                       BUGCON    262    
       375                IF (BLNG .EQ. 0) RETURN                                            BUGCON    263    
                          DEBUG(BOUND WD) = SHIFT(BLNG, 24)                                  BUGCON    264    
                          BLNG = 0                                                           BUGCON    265    
                          RETURN                                                             BUGCON    266    
                    *                                                                        BUGCON    267    
       380          *  HERE IF LOOKING FOR LEGAL ROUTINE NAME                                BUGCON    268    
                    *                                                                        BUGCON    269    
                     1050 ELIST = ELIST - 1                                                  BUGCON    270    
                          IF (EFORM(DEBUG(ELIST)).EQ.SYMBL) GO TO 1160                       BUGCON    271    
                     1245 M = 3                                                              BUGCON    272    
       385                GO TO 1135                                                         BUGCON    273    
                    *                                                                        BUGCON    274    
                    *  HERE IF LOOKING FOR LEGAL ROUTINE IN DRL                              BUGCON    275    
                     1160 IF (DFPACK.NE.0) GO TO 1165                                        BUGCON    276    
                          ELIST = ELIST - 1                                                  BUGCON    277    
       390                IF (EFORM(DEBUG(ELIST)).EQ.SLASH) 1410, 1130                       BUGCON    278    
                     1165 IF (DFNOGO .LT. 0) GO TO 1185                                      BUGCON    279    
                          DRL = SDRL                                                         BUGCON    280    
                          MATCH = DRLELT(SHIFT(DEBUG(ELIST),12))                             BUGCON    281    
                     1190 IF (DRL.EQ.EDRL) GO TO 1200                                        BUGCON    282    
       395                IF ((DRLELT(DEBUG(DRL)).EQ.MATCH).AND.                             BUGCON    283    
                         ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0) .AND.        BUGCON    284    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     6
0 
                         ,    (DEBUG(DRL+1).LT.0)) GO TO 1180                                BUGCON    285    
                          DRL = DRL + 2                                                      BUGCON    286    
                          GO TO 1190                                                         BUGCON    287    
       400           1200 IF (ALLROU.NE.0) GO TO 1220                                        BUGCON    288    
                          M = 4                                                              BUGCON    289    
                          GO TO 1135                                                         BUGCON    290    
                     1220 IF (DRL .NE. REFMAP) GO TO 10300                                   BUGCON    291    
                          DLFLG = 3                                                          BUGCON    292    
       405                GO TO 10030                                                        BUGCON    293    
                    10300 DEBUG(DRL) = DRLELT(SHIFT(DEBUG(ELIST), 12))                       BUGCON    294    
                          DEBUG(DRL + 1) = MASK(1)                                           BUGCON    295    
                          EDRL = EDRL + 2                                                    BUGCON    296    
                    *                                                                        BUGCON    297    
       410          *  HERE IF ROUTINE ACTIVE IN DEBUG ROUTINE LIST                          BUGCON    298    
                    *                                                                        BUGCON    299    
                     1180 CUR ROUT = DRLELT(DEBUG(DRL))                                      BUGCON    300    
                     1185 ELIST = ELIST - 1                                                  BUGCON    301    
                          IF (EFORM(DEBUG(ELIST)).EQ.SLASH) 1230, 1130                       BUGCON    302    
       415          C                                                                        BUGCON    303    
                    C  HERE IF INTERNAL PACKET AND NO ROUTINE LIST                           BUGCON    304    
                    C                                                                        BUGCON    305    
                     1162 ELIST = ELIST + 1                                                  BUGCON    306    
                          IF (DFNOGO .LT. 0) GO TO 1410                                      BUGCON    307    
       420                DRL = SDRL - 2                                                     BUGCON    308    
                          TEMP = DRLELT(DEBUG(DBGPROG))                                      BUGCON    309    
                    11622 DRL = DRL + 2                                                      BUGCON    310    
                          IF (DRLELT(DEBUG(DRL)) .NE. TEMP) GO TO 11622                      BUGCON    311    
                          CUR ROUT = TEMP                                                    BUGCON    312    
       425                GO TO 1230                                                         BUGCON    313    
                    *                                                                        BUGCON    314    
                    *  HERE TO SET UP COW, POW, AND DISPOW                                   BUGCON    315    
                    *                                                                        BUGCON    316    
                     1230 IF((COW.NE.0).OR.(DFNOGO.LT.0)) GO TO 1410                         BUGCON    317    
       430                COW = POW + 1                                                      BUGCON    318    
                          POW = COW                                                          BUGCON    319    
                          I = 0                                                              BUGCON    320    
                     1110 IF ((DISPOW.AND.77B) .NE. 1R9) GO TO 1100                          BUGCON    321    
                          DISPOW = SHIFT(DISPOW,-6)                                          BUGCON    322    
       435                I = I+1                                                            BUGCON    323    
                          GO TO 1110                                                         BUGCON    324    
                     1100 IF (I.NE.6) GO TO 1120                                             BUGCON    325    
                          WRITE (DBGOUT, 1101)                                               BUGCON    326    
                     1101 FORMAT(15X, *DEBUG: NO MORE OPTIONS LIST NUMBERS*)                 BUGCON    327    
       440                DFNOGO = -1                                                        BUGCON    328    
                          CUR ROUT = 0                                                       BUGCON    329    
                          GO TO 1410                                                         BUGCON    330    
                     1120 DISPOW = DISPOW + 1                                                BUGCON    331    
                     1150 IF (I.EQ.0) GO TO 1410                                             BUGCON    332    
       445                DISPOW = SHIFT(DISPOW,6) .OR. 1R0                                  BUGCON    333    
                          I = I - 1                                                          BUGCON    334    
                          GO TO 1150                                                         BUGCON    335    
                    *                                                                        BUGCON    336    
                    *  HERE IF LOOKING FOR LEGAL BOUNDS FORM ( F, T)                         BUGCON    337    
       450          *                                                                        BUGCON    338    
                    11410 ELIST = ELIST + 1                                                  BUGCON    339    
                     1410 IF (AREA FLG .LT. 0) GO TO 1321                                    BUGCON    340    
                          IF (DFTYPE .NE. 40) GO TO 10401                                    BUGCON    341    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     7
0 
                          AREA FLG = 1                                                       BUGCON    342    
       455                ELIST = ELIST - 1                                                  BUGCON    343    
                     1415 IF (EFORM(DEBUG(ELIST)).NE.LPAREN) GO TO 1130                      BUGCON    344    
                          ELIST = ELIST - 1                                                  BUGCON    345    
                          ELIST1 = ELIST                                                     BUGCON    346    
                          IF (EFORM(DEBUG(ELIST)) - 1) 1240, 1250, 1241                      BUGCON    347    
       460           1241 IF (EFORM(DEBUG(ELIST)).NE. STAR) GO TO 1245                       BUGCON    348    
                          STAR1 = -1                                                         BUGCON    349    
                          FM BOUND = 0                                                       BUGCON    350    
                          GO TO 1260                                                         BUGCON    351    
                     1240 FM BOUND = 1                                                       BUGCON    352    
       465                GO TO 1260                                                         BUGCON    353    
                     1250 FM BOUND = 0                                                       BUGCON    354    
                          ELIST = ELIST - 1                                                  BUGCON    355    
                          IF (EFORM(DEBUG(ELIST)).NE.CONST) GO TO 1270                       BUGCON    356    
                          FM BOUND = 2                                                       BUGCON    357    
       470           1260 ELIST = ELIST - 1                                                  BUGCON    358    
                     1270 IF((SHIFT(DEBUG(ELIST+1),18).AND.77B).EQ.1RL) GO TO 1272           BUGCON    359    
                          IF((FMBOUND.NE.0) .OR. (STAR1.NE.0)) GO TO 1272                    BUGCON    360    
                     1293 M = 5                                                              BUGCON    361    
                          GO TO 1135                                                         BUGCON    362    
       475           1272 IF(EFORM(DEBUG(ELIST)) .EQ. COMMA) GO TO 1271                      BUGCON    363    
                          IF (EFORM(DEBUG(ELIST)) .NE. RPAREN) GO TO 1130                    BUGCON    364    
                          IF (STAR1 .NE. 0) GO TO 1131                                       BUGCON    365    
                          SAMLINE = -1                                                       BUGCON    366    
                          TO BOUND = FM BOUND                                                BUGCON    367    
       480                GO TO 1291                                                         BUGCON    368    
                     1271 ELIST = ELIST - 1                                                  BUGCON    369    
                          IF (EFORM(DEBUG(ELIST)) - SYMBL) 1285, 1280, 1281                  BUGCON    370    
                     1281 IF (EFORM(DEBUG(ELIST)) .NE. STAR) GO TO 1245                      BUGCON    371    
                          STAR2 = -1                                                         BUGCON    372    
       485                TO BOUND = 0                                                       BUGCON    373    
                          GO TO 1295                                                         BUGCON    374    
                     1285 TO BOUND = 1                                                       BUGCON    375    
                          GO TO 1295                                                         BUGCON    376    
                     1280 TO BOUND = 0                                                       BUGCON    377    
       490                ELIST = ELIST - 1                                                  BUGCON    378    
                          IF (EFORM(DEBUG(ELIST)) .NE. CONST) GO TO 1290                     BUGCON    379    
                          TO BOUND = 2                                                       BUGCON    380    
                     1295 ELIST = ELIST - 1                                                  BUGCON    381    
                     1290 IF((SHIFT(DEBUG(ELIST+1),18).AND.77B).EQ.1RL) GO TO 1292           BUGCON    382    
       495                IF((TOBOUND.NE.0) .OR. (STAR2.NE.0)) GO TO 1292                    BUGCON    383    
                          GO TO 1293                                                         BUGCON    384    
                     1292 IF (EFORM(DEBUG(ELIST)) .NE. RPAREN) GO TO 1130                    BUGCON    385    
                     1291 IF ((CUR ROUT .EQ.0) .OR. (DFNOGO .LT. 0)) GO TO 1300              BUGCON    386    
                    *                                                                        BUGCON    387    
       500          *  HERE IF CORRECT FORM FOR BOUNDS - SET UP HEADER OR OPTIONS WORD OR    BUGCON    388    
                    *  BOTH IF NECESSARY                                                     BUGCON    389    
                          IF (DFPACK . EQ. 0) RETURN                                         BUGCON    390    
                    *                                                                        BUGCON    391    
                     1321 IF ( SHIFT(ADDRESS(DEBUG(DRL)), 42) .GT. 0) GO TO 1310             BUGCON    392    
       505                AREAEND = AREAEND + 1                                              BUGCON    393    
                          IF (AREAEND .GE. ELAST) CALL BUGCLO, RETURNS(1302)                 BUGCON    394    
                          BLNG = 1                                                           BUGCON    395    
                          DEBUG(AREAEND) = SHIFT(DISPOW, 18) .OR. OPWORD                     BUGCON    396    
                          OPWORD = AREAEND                                                   BUGCON    397    
       510                IF (ADDRESS(DEBUG(DRL)).EQ.0) GO TO 1320                           BUGCON    398    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     8
0 
                          DEBUG(SHIFT(MASK(18), 18) - ADDRESS(DEBUG(DRL))) =                 BUGCON    399    
                         ,    DEBUG(SHIFT(MASK(18),18) - ADDRESS (DEBUG(DRL))) .OR.          BUGCON    400    
                         ,         (SHIFT(MASK(18),18) - AREAEND)                            BUGCON    401    
                          GO TO 1315                                                         BUGCON    402    
       515           1320 DEBUG(DRL) = DEBUG(DRL) .OR. (SHIFT(MASK(18),18) - AREAEND)        BUGCON    403    
                          DEBUG(DRL+1) = DEBUG(DRL+1) .OR. AREAEND                           BUGCON    404    
                     1315 AREAEND = AREAEND + 1                                              BUGCON    405    
                          IF (AREAEND .GE. ELAST) CALL BUGCLO, RETURNS(1302)                 BUGCON    406    
                          GO TO 1325                                                         BUGCON    407    
       520           1310 IF (CUR OP BD .NE. 0) GO TO 1330                                   BUGCON    408    
                          AREAEND = AREAEND + 1                                              BUGCON    409    
                          IF (AREAEND .GE. ELAST) CALL BUGCLO, RETURNS(1302)                 BUGCON    410    
                          DEBUG(ADDRESS(DEBUG(DRL))) = DEBUG(ADDRESS(DEBUG(DRL))).OR.AREAEND BUGCON    411    
                          BLNG = 0                                                           BUGCON    412    
       525           1325 BLNG = BLNG + 1                                                    BUGCON    413    
                          CUR OP BD = -1                                                     BUGCON    414    
                          DEBUG(DRL) = DRLELT(DEBUG(DRL)).OR.AREAEND                         BUGCON    415    
                          DEBUG(DRL+1) =DEBUG(DRL+1) .OR. MASK(1)                            BUGCON    416    
                          BOUND WD = AREAEND                                                 BUGCON    417    
       530          *                                                                        BUGCON    418    
                    *  HERE TO CONVERT ELIST OF BOUNDS INTO B-CELL                           BUGCON    419    
                    *                                                                        BUGCON    420    
                     1330 NO = 0                                                             BUGCON    421    
                          IF (FM BOUND.EQ.2) NO = 1                                          BUGCON    422    
       535                NO = NO + 1                                                        BUGCON    423    
                          IF (TO BOUND .EQ. 2) NO = NO + 1                                   BUGCON    424    
                          AREAEND = AREAEND + 3 + NO                                         BUGCON    425    
                          IF (AREAEND .GE. ELAST) CALL BUGCLO, RETURNS (1302)                BUGCON    426    
                          BLNG = BLNG + 3 + NO                                               BUGCON    427    
       540                DEBUG(AREAEND-2-NO) = SHIFT(FM BOUND, 58) .OR. SHIFT(TO BOUND, 56) BUGCON    428    
                         ,    .OR. SHIFT(CFPACK, 50) .OR. SHIFT(DUKE1, 25) .OR. SHIFT(NO,23) BUGCON    429    
                          NO = NO - 1                                                        BUGCON    430    
                          DEBUG(AREAEND-2-NO) = 0                                            BUGCON    431    
                          DEBUG(AREAEND-1-NO) = 0                                            BUGCON    432    
       545                GO TO (1340, 1350, 1360) FM BOUND + 1                              BUGCON    433    
                     1340 IF (STAR1 .EQ. 0) GO TO 1341                                       BUGCON    434    
                          STAR1 = 0                                                          BUGCON    435    
                          DEBUG(AREAEND - NO) = FSTLINE                                      BUGCON    436    
                          GO TO 1370                                                         BUGCON    437    
       550           1341 LINE NO = 0                                                        BUGCON    438    
                          LINE DIS = SHIFT(DEBUG(ELIST1), 18) .AND. MASK(42)                 BUGCON    439    
                     1342 LINE DIS = SHIFT(LINE DIS, 6)                                      BUGCON    440    
                          IN LINE = LINE DIS .AND. 77B                                       BUGCON    441    
                          IF (IN LINE .EQ. 1R ) GO TO 1344                                   BUGCON    442    
       555                IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139         BUGCON    443    
                          LINE NO = LINE NO * 10 + (IN LINE - 1R0)                           BUGCON    444    
                          GO TO 1342                                                         BUGCON    445    
                     1344 IF ((LINE NO.AND.MASK(30)) .NE. 0)                    GO TO 1139   BUGCON    446    
                          DEBUG(AREAEND - NO) = SHIFT(LINE NO, 30)                           BUGCON    447    
       560                GO TO 1370                                                         BUGCON    448    
                     1350 LINE DIS = DEBUG(DFSCON1 + (ADDRESS(DEBUG(ELIST1)) - CONSTOR))     BUGCON    449    
                          DO 1352 IJ = 1,10                                                  BUGCON    450    
                          IN LINE = SHIFT(LINEDIS,6) .AND. 77B                               BUGCON    451    
                          IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139         BUGCON    452    
       565                IF (IN LINE .NE. 1R0) GO TO 1354                                   BUGCON    453    
                          LINE DIS = (SHIFT(LINE DIS,6) .AND. MASK(54)) .OR. 1R              BUGCON    454    
                     1352 CONTINUE                                                           BUGCON    455    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     9
0 
                          GO TO 1139                                                         BUGCON    456    
                     1354 IF ((LINE DIS .AND. SHIFT(MASK(30),30)) .NE. 5R     ) GO TO 1139   BUGCON    457    
       570                DO 1356 IJ = 1,5                                                   BUGCON    458    
                          LINE DIS = SHIFT(LINE DIS, 6)                                      BUGCON    459    
                          IN LINE = LINEDIS .AND. 77B                                        BUGCON    460    
                          IF (IN LINE .EQ. 1R ) GO TO 1356                                   BUGCON    461    
                          IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139         BUGCON    462    
       575           1356 CONTINUE                                                           BUGCON    463    
                          DEBUG(AREAEND - NO) = SHIFT(LINEDIS,30) .AND. MASK(30)             BUGCON    464    
                          GO TO 1370                                                         BUGCON    465    
                     1360 KJ = 0                                                             BUGCON    466    
                     1361 LINE DIS = DEBUG(DFSCON1 +(ADDRESS(DEBUG(ELIST1-1)) - CONSTOR))    BUGCON    467    
       580                IN LINE = SHIFT(LINEDIS,6) .AND. 77B                               BUGCON    468    
                          IF (IN LINE .NE. 1R.) GO TO 1139                                   BUGCON    469    
                          LINE DIS = (SHIFT(LINE DIS,6) .AND. MASK(54)) .OR. 1R              BUGCON    470    
                          UP DIS = IN LINE                                                   BUGCON    471    
                          DO 1362 IJ = 1,9                                                   BUGCON    472    
       585                IN LINE = SHIFT(LINEDIS,6) .AND. 77B                               BUGCON    473    
                          IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139         BUGCON    474    
                          IF (IN LINE .NE. 1R0) GO TO 1364                                   BUGCON    475    
                          LINE DIS = (SHIFT(LINE DIS,6) .AND. MASK(54)) .OR. 1R              BUGCON    476    
                     1362 CONTINUE                                                           BUGCON    477    
       590                GO TO 1139                                                         BUGCON    478    
                     1364 IF ((LINE DIS .AND. SHIFT(MASK(30),30)) .NE. 5R     ) GO TO 1139   BUGCON    479    
                          UP NO = 0                                                          BUGCON    480    
                          DO 1366 JK = 1,6                                                   BUGCON    481    
                          IN LINE = SHIFT(LINEDIS,6) .AND. 77B                               BUGCON    482    
       595                IF (IN LINE .EQ. 1R ) GO TO 1368                                   BUGCON    483    
                          IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139         BUGCON    484    
                          UP NO = SHIFT(UP NO, 6) .OR. IN LINE                               BUGCON    485    
                          LINE DIS = SHIFT(LINE DIS, 6)                                      BUGCON    486    
                     1366 CONTINUE                                                           BUGCON    487    
       600           1368 IF (JK .EQ. 6) GO TO 1369                                          BUGCON    488    
                          JKJ = 6-JK                                                         BUGCON    489    
                          DO 1367 IJ = 1,JKJ                                                 BUGCON    490    
                          UPDIS = SHIFT (UPDIS,6) .OR. 1R                                    BUGCON    491    
                     1367 CONTINUE                                                           BUGCON    492    
       605           1369 UP DIS = SHIFT(UP DIS, 6*(JK-1)) .OR. UP NO                        BUGCON    493    
                          IF (KJ .EQ.1) GO TO  1402                                          BUGCON    494    
                          UP DIS = SHIFT(UP DIS, 36)                                         BUGCON    495    
                          DEBUG(AREAEND-NO) = (SHIFT(DEBUG(ELIST1), 12) .AND..NOT. MINZERO)  BUGCON    496    
                         ,    .OR. (UP DIS .AND. MINZERO)                                    BUGCON    497    
       610                ELIST1 = ELIST1 - 1                                                BUGCON    498    
                          NO = NO - 1                                                        BUGCON    499    
                          DEBUG(AREAEND - NO) = UP DIS .AND. MASK(30)                        BUGCON    500    
                     1370 IF(SAMLINE.EQ.0) GO TO 1371                                        BUGCON    501    
                          SAMLINE = 0                                                        BUGCON    502    
       615                IF (FM BOUND .EQ. 2) ELIST1 = ELIST1 + 1                           BUGCON    503    
                          GO TO 1372                                                         BUGCON    504    
                     1371 ELIST1 = ELIST1 - 2                                                BUGCON    505    
                     1372 GO TO (1380, 1390, 1400) TO BOUND + 1                              BUGCON    506    
                     1380 IF (STAR2 .EQ. 0) GO TO 1381                                       BUGCON    507    
       620                STAR2 = 0                                                          BUGCON    508    
                          DEBUG(AREAEND) = DEBUG(AREAEND) .OR. LSTLINE                       BUGCON    509    
                          GO TO 1300                                                         BUGCON    510    
                     1381 LINE NO = 0                                                        BUGCON    511    
                          LINE DIS = SHIFT(DEBUG(ELIST1),18) .AND. MASK(42)                  BUGCON    512    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    10
0 
       625           1382 LINE DIS = SHIFT(LINE DIS, 6)                                      BUGCON    513    
                          IN LINE = LINE DIS .AND. 77B                                       BUGCON    514    
                          IF (IN LINE .EQ. 1R ) GO TO 1384                                   BUGCON    515    
                          IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139         BUGCON    516    
                          LINE NO = LINE NO * 10 + (IN LINE - 1R0)                           BUGCON    517    
       630                GO TO 1382                                                         BUGCON    518    
                     1384 IF ((LINE NO .AND. MASK(30)) .GT. 0)                  GO TO 1139   BUGCON    519    
                          DEBUG(AREAEND) = DEBUG(AREAEND) .OR. LINE NO                       BUGCON    520    
                          GO TO 1300                                                         BUGCON    521    
                     1390 LINE DIS = DEBUG(DFSCON1 + (ADDRESS(DEBUG(ELIST1)) - CONSTOR))     BUGCON    522    
       635                DO 1392 IJ = 1,10                                                  BUGCON    523    
                          IN LINE = SHIFT(LINEDIS,6) .AND. 77B                               BUGCON    524    
                          IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139         BUGCON    525    
                          IF (IN LINE .NE. 1R0) GO TO 1394                                   BUGCON    526    
                          LINE DIS = (SHIFT(LINE DIS,6) .AND. MASK(54)) .OR. 1R              BUGCON    527    
       640           1392 CONTINUE                                                           BUGCON    528    
                          GO TO 1139                                                         BUGCON    529    
                     1394 IF ((LINE DIS .AND. SHIFT(MASK(30),30))  .NE. 5R     )GO TO 1139   BUGCON    530    
                          DO 1396 IJ = 1,5                                                   BUGCON    531    
                          LINE DIS = SHIFT(LINE DIS, 6)                                      BUGCON    532    
       645                IN LINE = LINE DIS .AND. 77B                                       BUGCON    533    
                          IF (IN LINE .EQ. 1R ) GO TO 1396                                   BUGCON    534    
                          IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+))GO TO 1139          BUGCON    535    
                     1396 CONTINUE                                                           BUGCON    536    
                          DEBUG(AREAEND) = DEBUG(AREAEND) .OR.                               BUGCON    537    
       650               ,    (LINE DIS .AND. SHIFT(MASK(30),30))                            BUGCON    538    
                          GO TO 1300                                                         BUGCON    539    
                     1400 KJ = 1                                                             BUGCON    540    
                          GO TO 1361                                                         BUGCON    541    
                     1402 DEBUG(ELIST1) = SHIFT(DEBUG(ELIST1),42)                            BUGCON    542    
       655                DEBUG(AREAEND - 1) = DEBUG(AREAEND - 1) .OR.                       BUGCON    543    
                         ,    (DEBUG(ELIST1) .AND. SHIFT(MASK(30),30))                       BUGCON    544    
                          DEBUG(AREAEND) = DEBUG(ELIST1) .AND. MASK(18)  .OR.                BUGCON    545    
                         ,   (SHIFT(UP DIS,6) .AND. SHIFT(MASK(42),  42))                    BUGCON    546    
                          GO TO 1300                                                         BUGCON    547    
       660           1303 WRITE (DBGOUT, 71)                                                 BUGCON    548    
                          DFNOGO = -13                                                       BUGCON    549    
                          GO TO 1300                                                         BUGCON    550    
                     1302 POW = -1                                                           BUGCON    551    
                          CALL BUGCLO, RETURNS (1303)                                        BUGCON    552    
       665                DFNOGO = -13                                                       BUGCON    553    
                     1131 STAR1 = 0                                                          BUGCON    554    
                          M= 13                                                              BUGCON    555    
                          CALL DEBUG ER                                                      BUGCON    556    
                    *                                                                        BUGCON    557    
       670          *  HERE IF DONE PROCESSING A BOUNDS SPECIFICATION                        BUGCON    558    
                    *                                                                        BUGCON    559    
                     1300 IF (AREA FLG .LT. 0) GO TO (20123, 20111) - AREA FLG               BUGCON    560    
                          ELIST = ELIST - 1                                                  BUGCON    561    
                          MISFLAG = 1                                                        BUGCON    562    
       675                IF (EFORM(DEBUG(ELIST)).EQ. COMMA) GO TO 1410                      BUGCON    563    
                          IF (EFORM (DEBUG(ELIST)).EQ.LPAREN) GO TO 11410                    BUGCON    564    
                          CUR ROUT = 0                                                       BUGCON    565    
                          CUR OP BD = 0                                                      BUGCON    566    
                          IF (BLNG .EQ. 0) GO TO 11138                                       BUGCON    567    
       680                DEBUG(BOUND WD) = SHIFT(BLNG, 24)                                  BUGCON    568    
                          BLNG = 0                                                           BUGCON    569    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    11
0 
                    11138 IF (EFORM(DEBUG(ELIST)) .EQ. SLASH) GO TO 1050                     BUGCON    570    
                          IF(EFORM(DEBUG(ELIST)).NE. EOS) GO TO 1130                         BUGCON    571    
                          IF((CUR ROUT .EQ. 0).OR.(DFNOGO.LT.0)) GO TO 1430                  BUGCON    572    
       685                RETURN                                                             BUGCON    573    
                     1139 M = 5                                                              BUGCON    574    
                          CALL DEBUG ER                                                      BUGCON    575    
                          AREAEND = AREAEND -4-NO                                            BUGCON    576    
                          BLNG = BLNG - 4 - NO                                               BUGCON    577    
       690                IF (BLNG - 2) 1191, 1192, 1430                                     BUGCON    578    
                     1191 TEMP = ADDRESS(DEBUG(DRL+1)) + 1                                   BUGCON    579    
                     1196 IF (SHIFT(TEMP, 42)) 1193, 1193, 1194                              BUGCON    580    
                     1193 TEMP = (SHIFT(MASK(18),18) - TEMP) + 1                             BUGCON    581    
                     1194 ITEMP = ADDRESS(DEBUG(TEMP))                                       BUGCON    582    
       695                IF (ITEMP .EQ. AREAEND) GO TO 1195                                 BUGCON    583    
                          TEMP = ITEMP                                                       BUGCON    584    
                          GO TO 1196                                                         BUGCON    585    
                     1195 DEBUG(TEMP) = DRLELT(DEBUG(TEMP))                                  BUGCON    586    
                          DEBUG(DRL) = DRLELT(DEBUG(DRL)) .OR. TEMP                          BUGCON    587    
       700                AREAEND = AREAEND - 1                                              BUGCON    588    
                          BLNG = 0                                                           BUGCON    589    
                          GO TO 1430                                                         BUGCON    590    
                     1192 AREAEND = AREAEND - 1                                              BUGCON    591    
                          ITEMP = ADDRESS(DEBUG(DRL+1))                                      BUGCON    592    
       705                TEMP = 0                                                           BUGCON    593    
                     1197 IF (ITEMP .EQ. AREAEND) GO TO 1199                                 BUGCON    594    
                          TEMP = ITEMP + 1                                                   BUGCON    595    
                     1198 TEMP = ADDRESS(DEBUG(TEMP))                                        BUGCON    596    
                          IF (SHIFT(TEMP, 42) .GE. 0) GO TO 1198                             BUGCON    597    
       710                ITEMP = (SHIFT(MASK(18),18)) - TEMP                                BUGCON    598    
                          GO TO 1197                                                         BUGCON    599    
                     1199 DEBUG(DRL) = DRLELT(DEBUG(DRL)) .OR. TEMP                          BUGCON    600    
                          DEBUG(DRL+1) = DEBUG(DRL+1) .AND. SHIFT(MASK(59), 60-1)            BUGCON    601    
                          IF (TEMP .EQ. 0) DEBUG(DRL+1) = DRLELT(DEBUG(DRL+1))               BUGCON    602    
       715                AREAEND = AREAEND - 1                                              BUGCON    603    
                          DEBUG(SAREA+NEXT) = DEBUG(SAREA+NEXT) .OR. MASK(1)                 BUGCON    604    
                          GO TO 1430                                                         BUGCON    605    
                    *                                                                        BUGCON    606    
                    *  HERE IF OPTIONS STATEMENT                                             BUGCON    607    
       720          *                                                                        BUGCON    608    
                     2010 IF (DFPACK.EQ.0) GO TO 2020                                        BUGCON    609    
                          IF (DFNOGO .LT. 0) GO TO 2020                                      BUGCON    610    
                          IF (DFOPFLG .EQ. -1) GO TO 2020                                    BUGCON    611    
                          IF ( (MISFLAG .LT. 0) .AND. (OPWORD .EQ. 0) ) GO TO 2020           BUGCON    612    
       725                IF (AREA FLG .EQ. 1) GO TO 2011                                    BUGCON    613    
                          FM BOUND = 0                                                       BUGCON    614    
                          TO BOUND = 0                                                       BUGCON    615    
                          DRL = SDRL - 2                                                     BUGCON    616    
                          AREA FLG = -1                                                      BUGCON    617    
       730                IF (ALL ROU .NE. 0) 20122, 20131                                   BUGCON    618    
                    20123 DEBUG(BOUND WD) = SHIFT( BLNG, 24)                                 BUGCON    619    
                    20131 DRL = DRL + 2                                                      BUGCON    620    
                          IF (DRL .EQ. EDRL) GO TO 2011                                      BUGCON    621    
                          IF ((DEBUG(DRL) .LT. 0) .OR. (DEBUG(DRL+1) .GE. 0)) GO TO 20131    BUGCON    622    
       735                STAR1 = -1                                                         BUGCON    623    
                          STAR2 = -1                                                         BUGCON    624    
                          GO TO 1230                                                         BUGCON    625    
                    20122 STAR1 = -1                                                         BUGCON    626    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    12
0 
                          STAR2 = -1                                                         BUGCON    627    
       740                AREA FLG = -2                                                      BUGCON    628    
                          IF (DFPACK .EQ. 1) GO TO 2012                                      BUGCON    629    
                          TEMP = DRLELT(DEBUG(DBGPROG))                                      BUGCON    630    
                          DRL = SDRL - 2                                                     BUGCON    631    
                    20125 DRL = DRL + 2                                                      BUGCON    632    
       745                IF ((DRLELT(DEBUG(DRL)) .EQ. TEMP) .AND.                           BUGCON    633    
                         ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0))1230, 20125  BUGCON    634    
                     2012 DRL = DRL + 2                                                      BUGCON    635    
                          IF ((DRLELT(DEBUG(DRL)) .EQ. SPIDER) .AND.                         BUGCON    636    
                         ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0))1230, 2012   BUGCON    637    
       750          20111 DEBUG(BOUND WD) = SHIFT(BLNG, 24)                                  BUGCON    638    
                     2011 COW = 0                                                            BUGCON    639    
                          CUR OP BD = 0                                                      BUGCON    640    
                          CUR ROUT = DRLELT(DEBUG(DRL))                                      BUGCON    641    
                          RECORD = RECORD + 1                                                BUGCON    642    
       755                DRL = EDRL                                                         BUGCON    643    
                          IF (RECORD .LT. LNGIND) GO TO 2032                                 BUGCON    644    
                          IF (ELAST - AREAEND .GT. 50) GO TO 2034                            BUGCON    645    
                          POW = -1                                                           BUGCON    646    
                          CALL BUGCLO, RETURNS (2036)                                        BUGCON    647    
       760           2036 DFNOGO = -13                                                       BUGCON    648    
                     2034 CALL DMVWDS ((AREAEND - SAREA) + 1, DEBUG(SAREA), DEBUG(SAREA+50)) BUGCON    649    
                          SAREA = SAREA + 50                                                 BUGCON    650    
                          AREAEND = AREAEND + 50                                             BUGCON    651    
                          LNG IND = LNG IND + 50                                             BUGCON    652    
       765                OP WORD = OP WORD + 50                                             BUGCON    653    
                          TEMP = OPWORD                                                      BUGCON    654    
                    20321 TEMP1 = ADDRESS(DEBUG(TEMP))                                       BUGCON    655    
                          IF (TEMP1 .EQ. 0) GO TO 2032                                       BUGCON    656    
                          DEBUG(TEMP) = DEBUG(TEMP) + 50                                     BUGCON    657    
       770                TEMP = TEMP1                                                       BUGCON    658    
                          GO TO 20321                                                        BUGCON    659    
                     2032 IF (DRL .NE. REFMAP) GO TO 10400                                   BUGCON    660    
                          DLFLG = 4                                                          BUGCON    661    
                          GO TO 10030                                                        BUGCON    662    
       775          10400 DEBUG(DRL+1) = RECORD                                              BUGCON    663    
                    20323 TEMP = ADDRESS(DEBUG(OPWORD))                                      BUGCON    664    
                          DEBUG(OPWORD) = DRLELT(DEBUG(OPWORD)) .OR. RECORD                  BUGCON    665    
                          IF (TEMP .EQ. 0) GO TO 20322                                       BUGCON    666    
                          OPWORD = TEMP                                                      BUGCON    667    
       780                GO TO 20323                                                        BUGCON    668    
                    20322 OPWORD = 0                                                         BUGCON    669    
                    10401 DEBUG(DRL) = SHIFT(DISPOW,18)                                      BUGCON    670    
                          OPDRL = DRL                                                        BUGCON    671    
                          OPREC = RECORD                                                     BUGCON    672    
       785                DFNESTW = AREAEND +1                                               BUGCON    673    
                          IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (2222)                BUGCON    674    
                          DFNEST = 4                                                         BUGCON    675    
                          EDRL = EDRL + 2                                                    BUGCON    676    
                          DFOPFLG = -1                                                       BUGCON    677    
       790                AREA FLG = 0                                                       BUGCON    678    
                          GO TO 2020                                                         BUGCON    679    
                     2223 WRITE (DBGOUT, 71)                                                 BUGCON    680    
                       71 FORMAT( 14X, *DEBUG: MORE CORE IS NEEDED FOR DEBUG PROCESSING. *)  BUGCON    681    
                          DFNOGO = -13                                                       BUGCON    682    
       795                GO TO 2020                                                         BUGCON    683    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    13
0 
                     2222 POW = -1                                                           BUGCON    684    
                          CALL BUGCLO, RETURNS (2223)                                        BUGCON    685    
                          DFNOGO = -13                                                       BUGCON    686    
                     2020 LTFLAG = .FALSE.                                                   BUGCON    687    
       800                LFLAG = .FALSE.                                                    BUGCON    688    
                          GO TO (2100, 2100, 2100, 2400, 2500, 2600, 2800, 2900)             BUGCON    689    
                         ,    DFTYPE - 40                                                    BUGCON    690    
                    *                                                                        BUGCON    691    
                    *  HERE IF ARRAYS, CALLS, OR FUNCS                                       BUGCON    692    
       805          *                                                                        BUGCON    693    
                     2100 IF (EFORM(DEBUG(ELIST)) .EQ. LPAREN)  GO TO 2110                   BUGCON    694    
                          IF (EFORM(DEBUG(ELIST)) .NE. EOS) GO TO 2200                       BUGCON    695    
                          CUR OP BD = 0                                                      BUGCON    696    
                          IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) RETURN                 BUGCON    697    
       810                OH = DFTYPE - 40                                                   BUGCON    698    
                          CALL PUT IN                                                        BUGCON    699    
                          OH = 0                                                             BUGCON    700    
                          CALL PUT IN                                                        BUGCON    701    
                     2122 IF ((DFPACK .NE. 0) .OR. (DFNOGO .LT. 0) .OR. (OH .NE. 0)) RETURN  BUGCON    702    
       815                IF (MISFLAG .EQ. -1) RETURN                                        BUGCON    703    
                          IF (DFNEST .NE. 4) GO TO 2124                                      BUGCON    704    
                          IF ( (DFNESTW - AREAEND - 1) .EQ. 0) GO TO 2127                    BUGCON    705    
                          DFNEST = -1                                                        BUGCON    706    
                          DFNESTW = DFNESTW - 1                                              BUGCON    707    
       820           2124 DFNEST = DFNEST + 1                                                BUGCON    708    
                     2127 OH = MINZERO                                                       BUGCON    709    
                          CALL PUT IN                                                        BUGCON    710    
                          RETURN                                                             BUGCON    711    
                    *                                                                        BUGCON    712    
       825          *  HERE IF LOOKING FOR LEGAL SYMBOL                                      BUGCON    713    
                    *                                                                        BUGCON    714    
                     2110 ELIST = ELIST - 1                                                  BUGCON    715    
                          IF (EFORM(DEBUG(ELIST)) .EQ. SYMBL)  GO TO 2145                    BUGCON    716    
                     1247 IF (CUR OP BD .EQ. 0) GO TO 1246                                   BUGCON    717    
       830                CUR OP BD = 0                                                      BUGCON    718    
                          IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 1246             BUGCON    719    
                          OH= 0                                                              BUGCON    720    
                          CALL PUT IN                                                        BUGCON    721    
                     1246 M = 3                                                              BUGCON    722    
       835                CALL DEBUG ER                                                      BUGCON    723    
                          GO TO 2122                                                         BUGCON    724    
                    *                                                                        BUGCON    725    
                    *  HERE TO CHECK FOR SYMBOL IN DVL OR ELSE PUT IT IN                     BUGCON    726    
                    *                                                                        BUGCON    727    
       840           2145 IF (DFPACK .NE. 0) GO TO 2260                                      BUGCON    728    
                          CALL DSYMTAB(DEBUG(ELIST),NO)                                      BUGCON    729    
                          GO TO 2130                                                         BUGCON    730    
                     2260 IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 2250             BUGCON    731    
                          DVL = SDVL                                                         BUGCON    732    
       845                NO = 0                                                             BUGCON    733    
                     2155 IF (DVL.GE.EDVL) GO TO 2140                                        BUGCON    734    
                          IF (DEBUG(DVL).EQ.DEBUG(ELIST)) GO TO 2130                         BUGCON    735    
                          DVL = DVL + 1                                                      BUGCON    736    
                          NO = NO + 1                                                        BUGCON    737    
       850                GO TO 2155                                                         BUGCON    738    
                     2140 DVL = DVL + 1                                                      BUGCON    739    
                          IF (DVL .NE. SDRL) GO TO 2142                                      BUGCON    740    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    14
0 
                          DLFLG = 1                                                          BUGCON    741    
                    10500 IF (ELAST - 25 .GE. DFNESTW) GO TO 10510                           BUGCON    742    
       855                WRITE (DBGOUT, 10020)                                              BUGCON    743    
                          POW = 0                                                            BUGCON    744    
                          CALL BUGCLO                                                        BUGCON    745    
                          DFNOGO = -1                                                        BUGCON    746    
                          GO TO (2250, 2640), DLFLG                                          BUGCON    747    
       860          10510 CALL DMVWDS (DVL - ELAST, DEBUG(ELAST), DEBUG(ELAST - 25))         BUGCON    748    
                          ELAST = ELAST - 25                                                 BUGCON    749    
                          SSYMTAB = SSYMTAB - 25                                             BUGCON    750    
                          ESYMTAB = ESYMTAB - 25                                             BUGCON    751    
                          SDVL = SDVL - 25                                                   BUGCON    752    
       865                EDVL = EDVL - 25                                                   BUGCON    753    
                          ELIST = ELIST - 25                                                 BUGCON    754    
                          DVL = DVL - 25                                                     BUGCON    755    
                          CALL FIXPNTR                                                       BUGCON    756    
                          D LNG DVL = D LNG DVL + 25                                         BUGCON    757    
       870                GO TO (2142, 2662) DLFLG                                           BUGCON    758    
                     2142 EDVL = EDVL + 1                                                    BUGCON    759    
                          DEBUG(DVL) = DEBUG(ELIST)                                          BUGCON    760    
                          NO = NO +1                                                         BUGCON    761    
                    *                                                                        BUGCON    762    
       875          *  HERE PUT ORDINAL OF SYMBOL WITH OPTIONS SYMBOL IN OPTIONS LIST        BUGCON    763    
                    *                                                                        BUGCON    764    
                     2130 IF (CUR OP BD .NE. 0) GO TO 2150                                   BUGCON    765    
                          CUR OP BD = -1                                                     BUGCON    766    
                          OH = DFTYPE - 40                                                   BUGCON    767    
       880                CALL PUT IN                                                        BUGCON    768    
                     2150 OH = NO                                                            BUGCON    769    
                          OH = NO                                                            BUGCON    770    
                          CALL PUT IN                                                        BUGCON    771    
                    *                                                                        BUGCON    772    
       885          *  HERE WHEN EXPECTING DELIMETER                                         BUGCON    773    
                    *                                                                        BUGCON    774    
                     2250 ELIST = ELIST - 1                                                  BUGCON    775    
                          IF (EFORM(DEBUG(ELIST)) .EQ. COMMA)  GO TO 2110                    BUGCON    776    
                     2740 IF (EFORM(DEBUG(ELIST)) .EQ. RPAREN) GO TO 2165                    BUGCON    777    
       890                CUR OP BD = 0                                                      BUGCON    778    
                          IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 2200             BUGCON    779    
                          OH = 0                                                             BUGCON    780    
                          CALL PUT IN                                                        BUGCON    781    
                     2200 M = 1                                                              BUGCON    782    
       895                CALL DEBUG ER                                                      BUGCON    783    
                          GO TO 2122                                                         BUGCON    784    
                     2165 ELIST = ELIST - 1                                                  BUGCON    785    
                          IF (EFORM(DEBUG(ELIST)) .EQ. EOS) GO TO 2170                       BUGCON    786    
                          M = 2                                                              BUGCON    787    
       900                CALL DEBUG ER                                                      BUGCON    788    
                     2170 CUR OP BD = 0                                                      BUGCON    789    
                          IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) RETURN                 BUGCON    790    
                          OH= 0                                                              BUGCON    791    
                          CALL PUT IN                                                        BUGCON    792    
       905                GO TO 2122                                                         BUGCON    793    
                     2400 IF (EFORM(DEBUG(ELIST)) .NE. EOS) GO TO 2202                       BUGCON    794    
                    *                                                                        BUGCON    795    
                    *  HERE IF PLAIN OLE GOTOS                                               BUGCON    796    
                    *                                                                        BUGCON    797    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    15
0 
       910                IF (LFLAG) GO TO 2980                                              BUGCON    798    
                          IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) RETURN                 BUGCON    799    
                          OH = 4                                                             BUGCON    800    
                          CALL PUT IN                                                        BUGCON    801    
                          OH= 0                                                              BUGCON    802    
       915                CALL PUT IN                                                        BUGCON    803    
                          GO TO 2122                                                         BUGCON    804    
                     2202 M = 10                                                             BUGCON    805    
                          CALL DEBUG ER                                                      BUGCON    806    
                          GO TO 2122                                                         BUGCON    807    
       920          *                                                                        BUGCON    808    
                    *  HERE IF NOGO STATEMENT                                                BUGCON    809    
                    *                                                                        BUGCON    810    
                     2500 IF (EFORM(DEBUG(ELIST)) .NE. EOS)  GO TO 2510                      BUGCON    811    
                          IF ( (DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1) ) RETURN               BUGCON    812    
       925                OH= 5                                                              BUGCON    813    
                          CALL PUT IN                                                        BUGCON    814    
                          OH= 0                                                              BUGCON    815    
                          CALL PUT IN                                                        BUGCON    816    
                          IF (DFPACK .LT. 0) NOGOFLG = -1                                    BUGCON    817    
       930                GO TO 2122                                                         BUGCON    818    
                     2510 M = 7                                                              BUGCON    819    
                          CALL DEBUG ER                                                      BUGCON    820    
                          RETURN                                                             BUGCON    821    
                    *                                                                        BUGCON    822    
       935          *  HERE IF STORES STATEMENT                                              BUGCON    823    
                    *                                                                        BUGCON    824    
                     2600 IF (EFORM(DEBUG(ELIST)) .NE. LPAREN)  GO TO 2200                   BUGCON    825    
                    *                                                                        BUGCON    826    
                    *  HERE TO FIND OR PUT SYMBOL IN DVL                                     BUGCON    827    
       940          *                                                                        BUGCON    828    
                     2730 ELIST = ELIST - 1                                                  BUGCON    829    
                          IF (EFORM(DEBUG(ELIST)) .NE. SYMBL) GO TO 1247                     BUGCON    830    
                          DVL = SDVL                                                         BUGCON    831    
                          NO = 0                                                             BUGCON    832    
       945                IF (DFPACK .NE. 0) GO TO 2650                                      BUGCON    833    
                          IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 2640             BUGCON    834    
                          CALL DSYMTAB(DEBUG(ELIST),NO)                                      BUGCON    835    
                          GO TO 2640                                                         BUGCON    836    
                     2650 IF((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 2640              BUGCON    837    
       950                IF (DVL.GE.EDVL) GO TO 2660                                        BUGCON    838    
                          IF (DEBUG(DVL).EQ.DEBUG(ELIST)) GO TO 2640                         BUGCON    839    
                          DVL = DVL + 1                                                      BUGCON    840    
                          NO = NO + 1                                                        BUGCON    841    
                          GO TO 2650                                                         BUGCON    842    
       955           2660 DVL = DVL + 1                                                      BUGCON    843    
                          IF (DVL.NE.SDRL) GO TO 2662                                        BUGCON    844    
                          DLFLG = 2                                                          BUGCON    845    
                          GO TO 10500                                                        BUGCON    846    
                     2662 DEBUG(DVL) = DEBUG(ELIST)                                          BUGCON    847    
       960                EDVL = DVL                                                         BUGCON    848    
                          NO = NO + 1                                                        BUGCON    849    
                    *                                                                        BUGCON    850    
                    *  HERE TO LOOK FOR , OR .REL OP.                                        BUGCON    851    
                    *                                                                        BUGCON    852    
       965           2640 ELIST = ELIST - 1                                                  BUGCON    853    
                          IF((EFORM(DEBUG(ELIST)) .EQ. COMMA) .OR.                           BUGCON    854    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    16
0 
                         ,   (EFORM(DEBUG(ELIST)) .EQ. RPAREN) ) GO TO 2610                  BUGCON    855    
                          IF ((DEBUG(ELIST) .AND. 77B) .EQ. 5)  GO TO 2620                   BUGCON    856    
                          M = 12                                                             BUGCON    857    
       970           2672 CALL DEBUG ER                                                      BUGCON    858    
                     2673 IF (CUR OP BD .EQ. 0) RETURN                                       BUGCON    859    
                          IF((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) RETURN                  BUGCON    860    
                          OH = 0                                                             BUGCON    861    
                          IF (DFPACK .EQ. 0) OH = MINZERO                                    BUGCON    862    
       975                CALL PUT IN                                                        BUGCON    863    
                          CUR OP BD = 0                                                      FCC2053    14    
                          RETURN                                                             BUGCON    864    
                     2620 REL OP = RTAB(EFORM(DEBUG(ELIST)) - 9)                             BUGCON    865    
                          IF ((REL OP .NE. 0) .AND. (REL OP .LT. 7)) GO TO 2622              BUGCON    866    
       980                IF (REL OP .NE. 8) GO TO 2624                                      BUGCON    867    
                          REL OP = 0                                                         BUGCON    868    
                          REL FLG = -1                                                       BUGCON    869    
                     2624 NO CONST = 0                                                       BUGCON    870    
                          ELIST = ELIST - 1                                                  BUGCON    871    
       985                GO TO 2700                                                         BUGCON    872    
                     2622 ELIST = ELIST - 1                                                  BUGCON    873    
                          NO CONST = DCONV(ELIST)                                            BUGCON    874    
                          IF (NO CONST) 2694, 2695, 2700                                     BUGCON    875    
                     2694 IF (EFORM(DEBUG(ELIST)) .EQ. SYMBL)  GO TO 2641                    BUGCON    876    
       990                M = 14                                                             BUGCON    877    
                          GO TO 2672                                                         BUGCON    878    
                     2695 IF(OVRFLOW .LT. 0) GO TO 2673                                      BUGCON    879    
                          OVRFLOW = -1                                                       BUGCON    880    
                          M = 15                                                             BUGCON    881    
       995                GO TO 2672                                                         BUGCON    882    
                     2641 DVL = SDVL                                                         BUGCON    883    
                          NOCONST = 0                                                        BUGCON    884    
                          IF (DFPACK .NE. 0) GO TO 2642                                      BUGCON    885    
                          IF  ((DFNOGO.LT.0).OR.(MISFLAG.EQ.-1))GO TO 2725                   BUGCON    886    
      1000                CALL DSYMTAB(DEBUG(ELIST),NOCONST)                                 BUGCON    887    
                          NOCONST = SHIFT(NOCONST, -1)                                       BUGCON    888    
                     2645 ELIST = ELIST-1                                                    BUGCON    889    
                          NO CONST = NO CONST .OR. SHIFT(PLACE(VARBIT(1)), -30)              BUGCON    890    
                          GO TO 2700                                                         BUGCON    891    
      1005           2642 IF (( DFNOGO.LT.0).OR.(MISFLAG.EQ.-1))GO TO 2725                   BUGCON    892    
                          IF (DVL.GE.EDVL) GO TO 2643                                        BUGCON    893    
                          IF(DEBUG(DVL).EQ.DEBUG(ELIST))GO TO 2645                           BUGCON    894    
                          DVL = DVL+1                                                        BUGCON    895    
                          NOCONST = NOCONST + 1                                              BUGCON    896    
      1010                GO TO 2642                                                         BUGCON    897    
                     2643 DVL = DVL+1                                                        BUGCON    898    
                          IF(DVL.NE.SDRL)GO TO 2644                                          BUGCON    899    
                          DLFLG = 2                                                          BUGCON    900    
                          GO TO 10500                                                        BUGCON    901    
      1015           2644 DEBUG(DVL) = DEBUG(ELIST)                                          BUGCON    902    
                          EDVL = DVL                                                         BUGCON    903    
                          NOCONST = NOCONST + 1                                              BUGCON    904    
                          GO TO 2645                                                         BUGCON    905    
                    *                                                                        BUGCON    906    
      1020          *  HERE TO PUT STORES WITH .REL OP. IN OPTIONS LIST                      BUGCON    907    
                    *                                                                        BUGCON    908    
                     2702 REL OP = 7                                                         BUGCON    909    
                          REL FLG = 0                                                        BUGCON    910    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    17
0 
                     2700 IF ((CUR OP BD .NE. 0).AND.(STOSWAP.EQ.1)) GO TO 2710              BUGCON    911    
      1025                IF ( (CUR OP BD .NE. -1) .OR. (STOSWAP .NE. -1) ) GO TO 2701       BUGCON    912    
                          IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2701                  BUGCON    913    
                          OH = 0                                                             BUGCON    914    
                          CALL PUT IN                                                        BUGCON    915    
                     2701 STOSWAP = 1                                                        BUGCON    916    
      1030                CUR OP BD = -1                                                     BUGCON    917    
                          IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2725                  BUGCON    918    
                          OH= 7                                                              BUGCON    919    
                          CALL PUT IN                                                        BUGCON    920    
                     2710 IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2725                  BUGCON    921    
      1035                IF (DFNEST.EQ.4) GO TO 2720                                        BUGCON    922    
                          DFNEST = 4                                                         BUGCON    923    
                          DFNESTW = DFNESTW + 1                                              BUGCON    924    
                          IF (DFNESTW.EQ.ELAST) CALL BUGCLO, RETURNS (2841)                  BUGCON    925    
                     2720 DEBUG(DFNESTW) = SHIFT(NO, 48) .OR. SHIFT(NOCONST, 30) .OR.        BUGCON    926    
      1040               ,    SHIFT(REL OP, 27)                                              BUGCON    927    
                          DFNESTW = DFNESTW + 1                                              BUGCON    928    
                          IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (2849)                BUGCON    929    
                     2725 IF (REL FLG .NE. 0) GO TO 2702                                     BUGCON    930    
                          IF (EFORM(DEBUG(ELIST)) .EQ. COMMA) 2730, 2740                     BUGCON    931    
      1045          *                                                                        BUGCON    932    
                    *  HERE TO PUT SYMBOL ORDINAL FOR STORES WITHOUT IN OPTIONS LIST         BUGCON    933    
                    *  EXITS FOR NEW SYMBOL IF COMMA LAST IN ELIST                           BUGCON    934    
                    *                                                                        BUGCON    935    
                     2610 IF ((CUR OP BD .NE. 0).AND.(STOSWAP.EQ.-1)) GO TO 2750             BUGCON    936    
      1050                IF ( (CUR OP BD .NE. -1) .OR. (STOSWAP .NE. 1) ) GO TO 2611        BUGCON    937    
                          IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2611                  BUGCON    938    
                          OH = 0                                                             BUGCON    939    
                          CALL PUT IN                                                        BUGCON    940    
                     2611 STOSWAP = -1                                                       BUGCON    941    
      1055                CUR OP BD = -1                                                     BUGCON    942    
                          IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2755                  BUGCON    943    
                          OH= 6                                                              BUGCON    944    
                          CALL PUT IN                                                        BUGCON    945    
                     2750 IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2755                  BUGCON    946    
      1060                OH = NO                                                            BUGCON    947    
                          CALL PUT IN                                                        BUGCON    948    
                     2755 IF (EFORM(DEBUG(ELIST)) .EQ. COMMA) 2730, 2740                     BUGCON    949    
                    *                                                                        BUGCON    950    
                    *  HERE IF TRACE STATEMENT                                               BUGCON    951    
      1065          *                                                                        BUGCON    952    
                     2800 IF (EFORM(DEBUG(ELIST)) .EQ. LPAREN)  GO TO 2810                   BUGCON    953    
                          IF (EFORM(DEBUG(ELIST)) .NE. EOS) GO TO 2204                       BUGCON    954    
                          IF (TRACEL .GE. 0) RETURN                                          BUGCON    955    
                          LEVEL = 0                                                          BUGCON    956    
      1070                GO TO 2830                                                         BUGCON    957    
                     2810 ELIST = ELIST - 1                                                  BUGCON    958    
                          IF (EFORM(DEBUG(ELIST)) .EQ. CONST) GO TO 2820                     BUGCON    959    
                          IF (EFORM(DEBUG(ELIST)) .EQ. PLUS(X)) GO  TO 2819                  BUGCON    960    
                     2811 M = 6                                                              BUGCON    961    
      1075                CALL DEBUG ER                                                      BUGCON    962    
                          RETURN                                                             BUGCON    963    
                     2819 ELIST = ELIST - 1                                                  BUGCON    964    
                          IF (EFORM(DEBUG(ELIST)) .NE. CONST) GO TO 2811                     BUGCON    965    
                     2820 LEVEL = 0                                                          BUGCON    966    
      1080                LVL DIS = DEBUG(ADDRESS(DEBUG(ELIST)) - LDEBUG)                    BUGCON    967    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    18
0 
                     2824 LVL DIS = SHIFT(LVL DIS, 6)                                        BUGCON    968    
                          IN LVL = LVL DIS .AND. 77B                                         BUGCON    969    
                          IF(IN LVL .EQ.1R ) GO TO 2822                                      BUGCON    970    
                          IF ((IN LVL .LE. 1RZ) .OR. (IN LVL .GE. 1R+)) GO TO 2822           BUGCON    971    
      1085                LEVEL = LEVEL * 10 + (IN LVL -1R0)                                 BUGCON    972    
                          GO TO 2824                                                         BUGCON    973    
                     2822 IF (LEVEL .LE. 50) GO TO 2830                                      BUGCON    974    
                          M = 7                                                              BUGCON    975    
                          CALL DEBUG ER                                                      BUGCON    976    
      1090                RETURN                                                             BUGCON    977    
                     2830 IF ((MISFLAG.EQ.-1) .OR. (DFNOGO.LT.0)) GO TO 2850                 BUGCON    978    
                          OH= 8                                                              BUGCON    979    
                          CALL PUT IN                                                        BUGCON    980    
                          IF (DFNEST.EQ.4) GO TO 2840                                        BUGCON    981    
      1095                DFNEST = 4                                                         BUGCON    982    
                          DFNESTW = DFNESTW + 1                                              BUGCON    983    
                          IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (2841)                BUGCON    984    
                     2840 DEBUG(DFNESTW) = SHIFT(LEVEL, 54)                                  BUGCON    985    
                          IF (LEVEL .EQ. 0) DEBUG(DFNESTW) =                                 BUGCON    986    
      1100               ,          DEBUG(DFNESTW) .OR. SHIFT(MASK(1),30)                    BUGCON    987    
                          DFNESTW = DFNESTW + 1                                              BUGCON    988    
                          IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (2849)                BUGCON    989    
                     2850 IF (EFORM(DEBUG(ELIST)) .EQ. EOS) GO TO 2860                       BUGCON    990    
                          ELIST = ELIST - 1                                                  BUGCON    991    
      1105                GO TO 2740                                                         BUGCON    992    
                     2860 IF ((MISFLAG .EQ. -1) .OR. (DFNOGO .LT. 0)) RETURN                 BUGCON    993    
                          OH = 0                                                             BUGCON    994    
                          CALL PUT IN                                                        BUGCON    995    
                          GO TO 2122                                                         BUGCON    996    
      1110           2841 DFNESTW = DFNESTW - 1                                              BUGCON    997    
                     2847 DFNEST = DFNEST + 1                                                BUGCON    998    
                          OH = MINZERO                                                       BUGCON    999    
                          CALL PUT IN                                                        BUGCON   1000    
                          POW = 0                                                            BUGCON   1001    
      1115                CALL BUGCLO                                                        BUGCON   1002    
                          IF (DFTYPE .EQ. 48) 2850, 2725                                     BUGCON   1003    
                     2849 DFNESTW = DFNESTW - 2                                              BUGCON   1004    
                          GO TO 2847                                                         BUGCON   1005    
                     2204 M = 11                                                             BUGCON   1006    
      1120                CALL DEBUG ER                                                      BUGCON   1007    
                          RETURN                                                             BUGCON   1008    
                     2900 IF (EFORM(DEBUG(ELIST)) .EQ. EOS) GO TO 2910                       BUGCON   1009    
                          LTFLAG = .TRUE.                                                    BUGCON   1010    
                          IF (DFPACK .NE. 0) LFLAG = .TRUE.                                  BUGCON   1011    
      1125                IF (EFORM(DEBUG(ELIST)) .NE. LPAREN) GO TO 110                     BUGCON   1012    
                    C                                                                        BUGCON   1013    
                    C  HERE IF LOOKING FOR A DEBUG OPTION                                    BUGCON   1014    
                    C                                                                        BUGCON   1015    
                          ELIST = ELIST - 1                                                  BUGCON   1016    
      1130                DFNESTW = DOLAST + 1                                               BUGCON   1017    
                          DFOPL = DFNESTW                                                    BUGCON   1018    
                          DFNEST = 4                                                         BUGCON   1019    
                     2960 DO 2930 I = 1, 9                                                   BUGCON   1020    
                          IF (DEBUG(ELIST) .EQ. DBGPIC(I)) GO TO 2970                        BUGCON   1021    
      1135           2930 CONTINUE                                                           BUGCON   1022    
                          M = 8                                                              BUGCON   1023    
                          CALL DEBUG ER                                                      BUGCON   1024    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    19
0 
                          RETURN                                                             BUGCON   1025    
                     2970 ELIST = ELIST - 1                                                  BUGCON   1026    
      1140                IF (LFLAG .OR. (I.EQ.5)) GO TO 2980                                BUGCON   1027    
                          IF (I .EQ. 9) GO TO 3000                                           BUGCON   1028    
                          OH = I                                                             BUGCON   1029    
                          CALL PUTIN                                                         BUGCON   1030    
                          OH = 0                                                             BUGCON   1031    
      1145                CALL PUTIN                                                         BUGCON   1032    
                     2980 IF (EFORM(DEBUG(ELIST)) .NE. COMMA) GO TO 2990                     BUGCON   1033    
                          ELIST = ELIST - 1                                                  BUGCON   1034    
                          IF (EFORM(DEBUG(ELIST)) .EQ. SYMBL) GO TO 2960                     BUGCON   1035    
                          M = 3                                                              BUGCON   1036    
      1150                CALL DEBUG ER                                                      BUGCON   1037    
                          RETURN                                                             BUGCON   1038    
                     2990 IF (EFORM(DEBUG(ELIST)) .NE. RPAREN) GO TO 110                     BUGCON   1039    
                          IF (EFORM(DEBUG(ELIST-1)) .NE. EOS) GO TO 152                      BUGCON   1040    
                          IF (LFLAG) RETURN                                                  BUGCON   1041    
      1155                OH = MINZERO                                                       BUGCON   1042    
                          CALL PUTIN                                                         BUGCON   1043    
                          CALL TURN OFF                                                      BUGCON   1044    
                          GO TO 3010                                                         BUGCON   1045    
                     3000 M = 9                                                              BUGCON   1046    
      1160                CALL DEBUG ER                                                      BUGCON   1047    
                          RETURN                                                             BUGCON   1048    
                    C                                                                        BUGCON   1049    
                    C  IF JUST OFF AND IN INTERSPERSED MODE, TURN OFF ALL DEBUG BITS IN THE  BUGCON   1050    
                    C  SYMBOL TABLE                                                          BUGCON   1051    
      1165          C                                                                        BUGCON   1052    
                     2910 IF (DFPACK .NE. 0) RETURN                                          BUGCON   1053    
                          SYMTAB = SSYMTAB - 2                                               BUGCON   1054    
                     3030 IF (SYMTAB.EQ.ESYMTAB) GO TO 3020                                  BUGCON   1055    
                          IF (  (  (TYPE(DEBUG(SYMTAB - 1)) .LE. CONTYPE(1)) .OR.            BUGCON   1056    
      1170               ,         (TYPE(DEBUG(SYMTAB - 1)) .EQ. DBGTYPE(1))  ) .AND.        BUGCON   1057    
                         ,      (  (SHIFT(DEBUG(SYMTAB), 44) .GE. 0) .OR.                    BUGCON   1058    
                         ,         (SHIFT(DEBUG(SYMTAB - 1), 5 ) .LT. 0) .OR.                BUGCON   1059    
                         ,         (SHIFT(DEBUG(SYMTAB - 1), 15) .LT. 0)  )  )               BUGCON   1060    
                         ,    DEBUG(SYMTAB - 1) = DEBUG(SYMTAB - 1) .AND. OUTDBG             BUGCON   1061    
      1175                SYMTAB = SYMTAB - 2                                                BUGCON   1062    
                          GO TO 3030                                                         BUGCON   1063    
                     3020 NAASI = 0                                                          BUGCON   1064    
                          AASIADD = 0                                                        BUGCON   1065    
                          ALL CALL = 0                                                       BUGCON   1066    
      1180                ALL ARR  = 0                                                       BUGCON   1067    
                          ALL FUNC = 0                                                       BUGCON   1068    
                          GO TOS FL = 0                                                      BUGCON   1069    
                          TRCADD = 0                                                         BUGCON   1070    
                          TRACEL = -1                                                        BUGCON   1071    
      1185          C                                                                        BUGCON   1072    
                    C  TURN ON ANY OPTIONS THAT SHOULD NOT HAVE BEEN AFFECTED BY THE -OFF-   BUGCON   1073    
                    C                                                                        BUGCON   1074    
                     3010 IF (PHSFLAG .NE. 0) RETURN                                         BUGCON   1075    
                          P ADD = 0                                                          BUGCON   1076    
      1190                IF (TO LIST .EQ. 0) GO TO 3040                                     BUGCON   1077    
                          IF (ADDRESS(SHIFT(TO LIST, 20)).EQ.0) GO TO 3050                   BUGCON   1078    
                          TO SHIFT = 20                                                      BUGCON   1079    
                    C                                                                        BUGCON   1080    
                    C  TURN ON OPTIONS ASSOCIATED WITH EITHER LINE OR STATEMENT NUMBER -TO-  BUGCON   1081    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    20
0 
      1195          C  BOUNDS                                                                BUGCON   1082    
                    C                                                                        BUGCON   1083    
                    C                                                                        BUGCON   1084    
                    C  THE FOLLOWING VARIABLES ARE USED WHILE SEARCHING A TREE:              BUGCON   1085    
                    C                                                                        BUGCON   1086    
      1200          C         DFSAVE = THE CURRENT NODE (EXCLUDING EQUALS)                   BUGCON   1087    
                    C         NEXT1  = THE ADDRESS OF DFSAVE                                 BUGCON   1088    
                    C         DFSAVE1 = THE PREVIOUS NODE (EXCLUDING EQUALS)                 BUGCON   1089    
                    C         LASTADD = THE ADDRESS OF DFSAVE1                               BUGCON   1090    
                    C                                                                        BUGCON   1091    
      1205           4010 DFSAVE1 = 0                                                        BUGCON   1092    
                          LASTADD = 0                                                        BUGCON   1093    
                          NEXT = ADDRESS(SHIFT(TO LIST, TO SHIFT))                           BUGCON   1094    
                          FSTADD = NEXT                                                      BUGCON   1095    
                     3080 DFSAVE = DEBUG(NEXT + SAREA)                                       BUGCON   1096    
      1210                NEXT1 = NEXT                                                       BUGCON   1097    
                     3060 IF ( DEBUG(SAREA + NEXT) .LT. 0) GO TO 3061                        BUGCON   1098    
                          DFOPL = ADDRESS(DEBUG(SAREA+NEXT-2))                               BUGCON   1099    
                          CALL TURN ON                                                       BUGCON   1100    
                     3061 NEXT = ADDRESS(SHIFT(DEBUG(NEXT + SAREA), -20))                    BUGCON   1101    
      1215                IF (NEXT.NE.0) GO TO 3060                                          BUGCON   1102    
                          NEXT = ADDRESS(DFSAVE)                                             BUGCON   1103    
                          IF (NEXT.EQ.0) GO TO 3070                                          BUGCON   1104    
                          DFSAVE1 = (DFSAVE.AND.MASK(42)) .OR. LASTADD                       BUGCON   1105    
                          LASTADD = NEXT1                                                    BUGCON   1106    
      1220                GO TO 3080                                                         BUGCON   1107    
                     3070 NEXT = ADDRESS(SHIFT(DFSAVE, 20))                                  BUGCON   1108    
                          IF (NEXT.EQ.0) GO TO 3090                                          BUGCON   1109    
                          DFSAVE1 = (DFSAVE .AND. SHIFT(MASK(40), 40)) .OR.                  BUGCON   1110    
                         ,          SHIFT(LASTADD, 40) .OR. MASK(1)                          BUGCON   1111    
      1225                LASTADD = NEXT1                                                    BUGCON   1112    
                          GO TO 3080                                                         BUGCON   1113    
                     3090 IF (NEXT1 .EQ. FSTADD) GO TO (3050, 3040), (TO SHIFT / 20)         BUGCON   1114    
                          IF (DFSAVE1.LT.0) GO TO 4000                                       BUGCON   1115    
                          NEXT = ADDRESS(DFSAVE1)                                            BUGCON   1116    
      1230                DFSAVE = (DFSAVE1.AND.MASK(42)) .OR. NEXT1                         BUGCON   1117    
                          DFSAVE1 = DEBUG(NEXT + SAREA)                                      BUGCON   1118    
                          NEXT1 = LASTADD                                                    BUGCON   1119    
                          LASTADD = NEXT                                                     BUGCON   1120    
                          GO TO 3070                                                         BUGCON   1121    
      1235           4000 NEXT = ADDRESS(SHIFT(DFSAVE1, 20))                                 BUGCON   1122    
                          DFSAVE = (DFSAVE1 .AND. SHIFT(MASK(40), 40)) .OR. SHIFT(NEXT1,40)  BUGCON   1123    
                          DFSAVE1 = DEBUG(NEXT + SAREA)                                      BUGCON   1124    
                          NEXT1 = LASTADD                                                    BUGCON   1125    
                          LASTADD = NEXT                                                     BUGCON   1126    
      1240                GO TO 3090                                                         BUGCON   1127    
                    C                                                                        BUGCON   1128    
                    C  CHECK TO SEE IF THERE IS A STATEMENT NUMBER -TO- BOUNDS LIST          BUGCON   1129    
                    C                                                                        BUGCON   1130    
                     3050 IF (ADDRESS(SHIFT(TO LIST, -20)).EQ.0) GO TO 3040                  BUGCON   1131    
      1245                 TO SHIFT = 40                                                     BUGCON   1132    
                          GO TO 4010                                                         BUGCON   1133    
                    C                                                                        BUGCON   1134    
                    C  IF THERE IS AN UPDATE IDENTIFIER -FROM- BOUNDS LIST, FIND ALL OF THE  BUGCON   1135    
                    C  ACTIVE -TO- BOUNDS AND TURN ON THE ASSOCIATED OPTIONS                 BUGCON   1136    
      1250          C                                                                        BUGCON   1137    
                     3040 NEXT = SHIFT(ADDRESS(FM LIST),42)                                  BUGCON   1138    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    21
0 
                          FSTADD = SHIFT(NEXT, 18)                                           BUGCON   1139    
                          LASTADD = 0                                                        BUGCON   1140    
                          DFSAVE1 = 0                                                        BUGCON   1141    
      1255                IF (NEXT) 4020, 4030, 4040                                         BUGCON   1142    
                     4030 RETURN                                                             BUGCON   1143    
                     4020 NEXT1 = SHIFT(NEXT, 18)                                            BUGCON   1144    
                          NEXT = SHIFT(MASK(18),18) - NEXT1                                  BUGCON   1145    
                          DFSAVE = DEBUG(NEXT + SAREA)                                       BUGCON   1146    
      1260           4090 IF (DEBUG(SAREA+NEXT) .LT. 0) GO TO 4050                           BUGCON   1147    
                           DFOPL = ADDRESS(DEBUG(NEXT+SAREA-2) )                             BUGCON   1148    
                          CALL TURN ON                                                       BUGCON   1149    
                     4050 NEXT = SHIFT(ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20)), 42)           BUGCON   1150    
                          IF (NEXT) 4060, 4070, 4055                                         BUGCON   1151    
      1265           4060 NEXT = SHIFT(MASK(18),18) - SHIFT(NEXT,18)                         BUGCON   1152    
                          GO TO 4090                                                         BUGCON   1153    
                     4055 NEXT = SHIFT(NEXT, 18)                                             BUGCON   1154    
                          GO TO 4050                                                         BUGCON   1155    
                     4070 NEXT = SHIFT(ADDRESS(DFSAVE),42)                                   BUGCON   1156    
      1270                IF (NEXT) 5000, 5010, 5020                                         BUGCON   1157    
                     5000 DFSAVE1 = (DFSAVE.AND.MASK(42)) .OR. LASTADD                       BUGCON   1158    
                          LASTADD = NEXT1                                                    BUGCON   1159    
                          GO TO 4020                                                         BUGCON   1160    
                     5020 DFSAVE1 = (DFSAVE.AND.MASK(42)) .OR. LASTADD                       BUGCON   1161    
      1275                LASTADD = NEXT1                                                    BUGCON   1162    
                     4040 NEXT1 = SHIFT(NEXT, 18)                                            BUGCON   1163    
                          DFSAVE = DEBUG(NEXT1+ SAREA)                                       BUGCON   1164    
                          NEXT = SHIFT(ADDRESS(SHIFT(DFSAVE,20)),42)                         BUGCON   1165    
                          IF (NEXT) 4060, 4070, 4055                                         BUGCON   1166    
      1280           5010 NEXT = SHIFT((DFSAVE.AND.SHIFT(MASK(18), 60-2)), 2)                BUGCON   1167    
                          IF (NEXT) 5040, 5050, 5060                                         BUGCON   1168    
                     5040 DFSAVE1 = (DFSAVE .AND. SHIFT(MASK(40), 40)) .OR.                  BUGCON   1169    
                         ,          SHIFT(LASTADD, 40) .OR. MASK(1)                          BUGCON   1170    
                          LASTADD = NEXT1                                                    BUGCON   1171    
      1285                GO TO 4020                                                         BUGCON   1172    
                     5060 DFSAVE1 = (DFSAVE .AND. SHIFT(MASK(40), 40)) .OR.                  BUGCON   1173    
                         ,          SHIFT(LASTADD, 40) .OR. MASK(1)                          BUGCON   1174    
                          LASTADD = NEXT1                                                    BUGCON   1175    
                          GO TO 4040                                                         BUGCON   1176    
      1290           5050 IF (NEXT1.EQ.FSTADD) RETURN                                        BUGCON   1177    
                           IF (DFSAVE1.LT.0) GO TO 5070                                      BUGCON   1178    
                          NEXT = ADDRESS(DFSAVE1)                                            BUGCON   1179    
                          DFSAVE = (DFSAVE1 .AND. MASK(42)) .OR. NEXT1                       BUGCON   1180    
                          NEXT1 = LASTADD                                                    BUGCON   1181    
      1295                LASTADD = NEXT                                                     BUGCON   1182    
                          IF (SHIFT(NEXT,42).LT.0) NEXT = SHIFT(MASK(18),18) - NEXT          BUGCON   1183    
                          DFSAVE1 = DEBUG(NEXT + SAREA)                                      BUGCON   1184    
                          GO TO 5010                                                         BUGCON   1185    
                     5070 NEXT = ADDRESS(SHIFT(DFSAVE1,20))                                  BUGCON   1186    
      1300                DFSAVE = (DFSAVE1 .AND. SHIFT(MASK(40), 40)) .OR. SHIFT(NEXT1,40)  BUGCON   1187    
                          NEXT1 = LASTADD                                                    BUGCON   1188    
                          LASTADD = NEXT                                                     BUGCON   1189    
                          IF (SHIFT(NEXT,42).LT.0) NEXT = SHIFT(MASK(18),18) - NEXT          BUGCON   1190    
                          DFSAVE1 = DEBUG(NEXT + SAREA)                                      BUGCON   1191    
      1305                GO TO 5050                                                         BUGCON   1192    
                          END                                                                BUGCON   1193    
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    22
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
       202    I               AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT.
       361    I               AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT.
       545    I               AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT.
       556    I     0         A HOLLERITH CONSTANT IS AN OPERAND OF AN ARITHMETIC OPERATOR. 
       618    I               AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT.
       629    I     0         A HOLLERITH CONSTANT IS AN OPERAND OF AN ARITHMETIC OPERATOR. 
       672    I               AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT.
       859    I               AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT.
       870    I               AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT.
      1085    I     0         A HOLLERITH CONSTANT IS AN OPERAND OF AN ARITHMETIC OPERATOR. 
      1227    I               AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2 OR 3 BRANCH COMPUTED GO TO STATEMENT.
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  BUGCON          76  DMVCON  
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
    3235  CONST     INTEGER                             25  CONSTOR   INTEGER             DBGBLK2 
     111  COUNTUP   INTEGER             DBGBLK2         77  COW       INTEGER             DBGBLK3 
      75  CUROPBD   INTEGER             DBGBLK3         76  CURROUT   INTEGER             DBGBLK3 
      51  CURUPDT   INTEGER    ARRAY    DBGBLK2          0  DBGOUT    INTEGER             OUTPUT  
     135  DBGPIC    INTEGER    ARRAY    DBGBLK3         41  DBGPROG   INTEGER             DBGBLK2 
       0  DEBUG     INTEGER    ARRAY    / /             22  DFCONL    INTEGER             DBGBLK2 
      21  DFCON1    INTEGER             DBGBLK2         56  DFNEST    INTEGER             DBGBLK2 
      16  DFNESTW   INTEGER             DBGBLK2         30  DFNOGO    INTEGER             DBGBLK2 
      34  DFON      INTEGER             DBGBLK2         33  DFOPFLG   INTEGER             DBGBLK2 
       6  DFOPL     INTEGER             DBGBLK2         14  DFOPL1    INTEGER             DBGBLK3 
      15  DFOPL2    INTEGER             DBGBLK3         31  DFPACK    INTEGER             DBGBLK2 
     177  DFSAVE    INTEGER             DBGBLK3        200  DFSAVE1   INTEGER             DBGBLK3 
      26  DFSCON1   INTEGER             DBGBLK2         55  DFTYPE    INTEGER             DBGBLK2 
      44  DISPOW    INTEGER             DBGBLK2        176  DLFLG     INTEGER             DBGBLK3 
      30  DLINE     INTEGER             DBGBLK3         62  DLNGDRL   INTEGER             DBGBLK2 
      63  DLNGDVL   INTEGER             DBGBLK2         27  DOLAST    INTEGER             DBGBLK2 
      64  DRL       INTEGER             DBGBLK3         31  DTYPE     INTEGER             DBGBLK3 
      53  DUKE1     INTEGER             DBGBLK2         70  DUNIT     INTEGER             DBGBLK3 
     103  DVL       INTEGER             DBGBLK3          1  EDRL      INTEGER             DBGBLK2 
       3  EDVL      INTEGER             DBGBLK2         20  EFIDIT    INTEGER             DBGBLK2 
      15  ELAST     INTEGER             DBGBLK2         13  ELIST     INTEGER             DBGBLK2 
      23  ELIST1    INTEGER             DBGBLK3       3233  EOS       INTEGER                     
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    23
0  VARIABLES     SN  TYPE           RELOCATION  
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3       3330  FSTADD    INTEGER                     
     153  FSTLINE   INTEGER             DBGBLK3        166  FTADD     INTEGER             DBGBLK3 
       3  GOTOSFL   INTEGER             DBGBLK1       3313  I         INTEGER                     
    3320  IJ        INTEGER                            205  INDEF     INTEGER             DBGBLK3 
     113  INDEXNO   INTEGER             DBGBLK2       3317  INLINE    INTEGER                     
    3326  INLVL     INTEGER                              2  ITEM      INTEGER             DBGBLK3 
    3324  ITEMP     INTEGER                           3322  JK        INTEGER                     
    3323  JKJ       INTEGER                           3321  KJ        INTEGER                     
    3327  LASTADD   INTEGER                             42  LDEBUG    INTEGER             DBGBLK2 
      14  LELIST    INTEGER             DBGBLK2        106  LEVEL     INTEGER             DBGBLK3 
     115  LEVSHFT   INTEGER             DBGBLK3         47  LFLAG     LOGICAL             DBGBLK2 
    3316  LINEDIS   INTEGER                           3315  LINENO    INTEGER                     
      57  LNGIND    INTEGER             DBGBLK2        160  LPAREN    INTEGER             DBGBLK3 
     113  LSHIFT    INTEGER             DBGBLK3        154  LSTLINE   INTEGER             DBGBLK3 
      46  LTFLAG    LOGICAL             DBGBLK2       3325  LVLDIS    INTEGER                     
      66  M         INTEGER             DBGBLK3       3312  MATCH     INTEGER                     
       4  MINZERO   INTEGER             DBGBLK3         74  MISFLAG   INTEGER             DBGBLK3 
       5  MULT      INTEGER             DBGBLK3         23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
    3331  NEXT1     INTEGER                             12  NFIELD    INTEGER             DBGBLK3 
    3314  NO        INTEGER                             60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
    3231  OUTDBG    INTEGER                            175  OVRFLOW   INTEGER             DBGBLK3 
      36  PADD      INTEGER             DBGBLK2        114  PHSFLAG   INTEGER             DBGBLK2 
      21  POINT     INTEGER             DBGBLK3         32  POW       INTEGER             DBGBLK2 
     146  PREDBG    INTEGER    ARRAY    DBGBLK3        206  RANGE     INTEGER             DBGBLK3 
    3232  RBLANKS   INTEGER                             43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
    3236  RELFLG    INTEGER                            104  RELOP     INTEGER             DBGBLK3 
     202  ROUNAME   INTEGER             DBGBLK3        157  RPAREN    INTEGER             DBGBLK3 
     122  RTAB      INTEGER    ARRAY    DBGBLK3         11  SAASI     INTEGER             DBGBLK2 
     152  SAMLINE   INTEGER             DBGBLK3          4  SAREA     INTEGER             DBGBLK2 
      17  SASI      INTEGER             DBGBLK3        174  SAVEOH    INTEGER             DBGBLK3 
      24  SAVUPDT   INTEGER    ARRAY    DBGBLK3        112  SCNUPDT   INTEGER             DBGBLK2 
      24  SDBGIND   INTEGER             DBGBLK2          0  SDRL      INTEGER             DBGBLK2 
       2  SDVL      INTEGER             DBGBLK2        161  SLASH     INTEGER             DBGBLK3 
       7  SPIDER    INTEGER             DBGBLK1         67  SPIDIS    INTEGER             DBGBLK3 
       7  SSYMTAB   INTEGER             DBGBLK2        155  STAR      INTEGER             DBGBLK3 
     150  STAR1     INTEGER             DBGBLK3        151  STAR2     INTEGER             DBGBLK3 
      72  STOSWAP   INTEGER             DBGBLK3         45  SUCCESS   INTEGER             DBGBLK2 
    3234  SYMBL     INTEGER                             10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    24
0  VARIABLES     SN  TYPE           RELOCATION  
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
  
   EXTERNALS          TYPE   ARGS     
          BUGCLO               0                            DCONV     INTEGER    1                
          DEBUGER              0                            DMVWDS               3                
          DSYMTAB              2                            FIXPNTR              0                
          PUTIN                0                            TURNOFF              0                
          TURNON               0                            WRTMS1               0                
          WRTMS2               3                            WRTMS3               0                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
       7  10                                 224  30                                  71  50                          
      66  60                                  53  70                                3276  71      FMT                 
      46  80                                 171  90                                 211  91                          
     221  92                                 177  93                                 215  94                          
     170  100                                 43  110                                306  115                         
     253  120                                265  130                                303  131                         
     242  140                                267  150                                300  152                         
      23  190                                 16  200                                311  1010                        
     320  1017                               322  1018                               372  1020                        
     424  1050                               540  1100                              3262  1101    FMT                 
     532  1110                               546  1120                               413  1130                        
    1337  1131                               414  1135                              1376  1139                        
     550  1150                               433  1160                               506  1162                        
     441  1165                               476  1180                               501  1185                        
     447  1190                                 0  1191        INACTIVE              1431  1192                        
       0  1193        INACTIVE              1415  1194                              1422  1195                        
    1411  1196                              1436  1197                              1442  1198                        
    1450  1199                               461  1200                               464  1220                        
     524  1230                               600  1240                                 0  1241        INACTIVE        
     431  1245                              1741  1246                              1732  1247                        
     602  1250                               611  1260                               613  1270                        
     635  1271                               624  1272                               650  1280                        
       0  1281        INACTIVE               646  1285                               661  1290                        
     675  1291                               671  1292                               622  1293                        
     657  1295                              1342  1300                              1333  1302                        
    1327  1303                               734  1310                               726  1315                        
     722  1320                               701  1321                               746  1325                        
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    25
0  STATEMENT LABELS         
     755  1330                              1016  1340                              1023  1341                        
    1026  1342                              1040  1344                              1045  1350                        
       0  1352                              1066  1354                              1101  1356                        
    1107  1360                              1110  1361                                 0  1362                        
    1136  1364                                 0  1366                                 0  1367                        
    1156  1368                              1167  1369                              1204  1370                        
    1213  1371                              1215  1372                              1225  1380                        
    1232  1381                              1235  1382                              1247  1384                        
    1253  1390                                 0  1392                              1274  1394                        
    1307  1396                              1315  1400                              1317  1402                        
     557  1410                               565  1415                               415  1430                        
    1463  2010                              1546  2011                              1534  2012                        
    1646  2020                              1604  2032                              1564  2034                        
    1563  2036                              1665  2100                              1725  2110                        
    1703  2122                              1717  2124                              1721  2127                        
    2045  2130                              1767  2140                              2040  2142                        
    1744  2145                              2052  2150                              1757  2155                        
    2076  2165                              2105  2170                              2073  2200                        
    2131  2202                              2610  2204                              1642  2222                        
    1636  2223                              2055  2250                              1751  2260                        
    2114  2400                              2134  2500                              2153  2510                        
    2156  2600                              2425  2610                              2440  2611                        
    2254  2620                              2270  2622                              2265  2624                        
    2226  2640                              2306  2641                              2325  2642                        
    2340  2643                              2345  2644                              2321  2645                        
    2201  2650                              2214  2660                              2221  2662                        
    2241  2672                              2242  2673                                 0  2694        INACTIVE        
    2302  2695                              2354  2700                              2367  2701                        
    2352  2702                              2376  2710                              2410  2720                        
    2420  2725                              2162  2730                              2062  2740                        
    2446  2750                              2453  2755                              2457  2800                        
    2467  2810                              2475  2811                              2500  2819                        
    2505  2820                              2524  2822                              2512  2824                        
    2532  2830                              2547  2840                              2573  2841                        
    2575  2847                              2606  2849                              2560  2850                        
    2565  2860                              2613  2900                              2705  2910                        
       0  2930                              2631  2960                              2642  2970                        
    2654  2980                              2666  2990                              2702  3000                        
    2732  3010                              2725  3020                              2710  3030                        
    3036  3040                              3032  3050                              2751  3060                        
    2757  3061                              2770  3070                              2745  3080                        
    3000  3090                              3022  4000                              2740  4010                        
    3045  4020                                 0  4030        INACTIVE              3105  4040                        
    3060  4050                              3070  4055                              3065  4060                        
    3072  4070                              3052  4090                                 0  5000        INACTIVE        
    3115  5010                              3101  5020                                 0  5040        INACTIVE        
    3132  5050                              3125  5060                              3147  5070                        
     127  10010                              113  10011                             3242  10020   FMT                 
     102  10030                              164  10100                              257  10200                       
     361  10201                              470  10300                             1610  10400                       
    1620  10401                             1773  10500                             2011  10510                       
       0  11111       INACTIVE              1365  11138                              555  11410                       
     516  11622                             1544  20111                             1513  20122                       
    1501  20123                             1524  20125                             1503  20131                       
    1577  20321                             1617  20322                             1612  20323                       
1         SUBROUTINE BUGCON     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE    26
0  LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
    1053  1352     IJ         562 567      13B        OPT     EXITS           
    1072  1356     IJ         570 575      12B        OPT     EXITS           
    1123  1362     IJ         584 589      13B        OPT     EXITS           
    1143  1366     JK         593 599      13B        OPT     EXITS           
    1163  1367     IJ         602 604       3B        OPT           
    1261  1392     IJ         635 640      13B        OPT     EXITS           
    1300  1396     IJ         643 648      12B        OPT     EXITS           
    2632  2930     I         1133 1135      5B        OPT     EXITS           
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH               3332B    1754 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE TURNOFF    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE TURN OFF                                                TURNOFF     2    
                    C                                                                        TURNOFF     3    
                    C  THIS SUBROUTINE PASSES THROUGH AN OPTIONS LIST AND TURNS OFF ALL      TURNOFF     4    
                    C  LEGAL OPTIONS THAT IF FINDS.  IT ALSO SETS UP THE ERROR FIELD IN THE  TURNOFF     5    
         5          C  FIRST WORD OF THE ASSOCIATED B-CELL, IF NECESSARY.                    TURNOFF     6    
                    C  ENTRY: DFOPL = THE ADDRESS OF THE BEGINNING OF THE OPTIONS LIST TO BE TURNOFF     7    
                    C                 PASSED THROUGH.                                        TURNOFF     8    
                    C         NEXT = THE ADDRESS OF THE -TO- BOUND IN THE ASSOCIATED B-CELL  TURNOFF     9    
                    C         P ADD = 0 IF IN INTERSPERSED MODE                              TURNOFF    10    
        10          C               = 1 IF IN PACKET MODE                                    TURNOFF    11    
                    C         SSYMTAB = THE BEGINNING ADDRESS OF THE SYMBOL TABLE            TURNOFF    12    
                    C         SAASI   = THE BEGINNING ADDRESS OF THE AREA LIST               TURNOFF    13    
                    C         AASI    = THE CURRENT WORD IN AASI                             TURNOFF    14    
                    C         ESYMTAB  = THE ENDING ADDRESS OF THE SYMBOL TABLE              TURNOFF    15    
        15          C  INTERMEDIATE: OH = THE CURRENT OH FIELD IN THE OPTIONS LIST           TURNOFF    16    
                    C                                                                        TURNOFF    17    
                    C                                                                        TURNOFF    18    
                                                                                             LDBGCOM     2    
        19          C/    LIST,NONE                                                          LDBGCOM     3    
       131          C/    LIST,ALL                                                           LDBGCOM     5    
                    C                                                                        TURNOFF    20    
                    C  HERE TO CHECK IF THE -TO- BOUND OCCURS AFTER A -FROM- BOUND           TURNOFF    21    
                    C                                                                        TURNOFF    22    
       135                IF ((PADD .EQ. 0) .OR. (DEBUG(SAREA+NEXT-1) .LT. 0)) GO TO 100     TURNOFF    23    
                          DEBUG(SAREA+NEXT-2) = (DEBUG(SAREA+NEXT-2).AND.SHIFT(MASK(57),20)) TURNOFF    24    
                         ,    .OR. SHIFT(3, 20)                                              TURNOFF    25    
                          DEBUG(SAREA+NEXT) = DEBUG(SAREA+NEXT) .OR. MASK(1)                 TURNOFF    26    
                          RETURN                                                             TURNOFF    27    
       140          C                                                                        TURNOFF    28    
                    C  HERE TO DETERMINE WHICH OPTION TO TURN OFF                            TURNOFF    29    
                    C                                                                        TURNOFF    30    
                      100 MULT = 5                                                           TURNOFF    31    
                       10 CALL GET OUT                                                       TURNOFF    32    
       145                IF (OH .EQ. 0) RETURN                                              TURNOFF    33    
                          IF ( OH .EQ. MINZERO) GO TO 30                                     TURNOFF    34    
                          GO TO (1000,2000,3000,4000,5000,6000,7000,8001) OH                 TURNOFF    35    
                    C                                                                        TURNOFF    36    
                    C  HERE IF THE ARRAYS OPTION IS TO BE TURNED OFF FOR INDIVIDUALS         TURNOFF    37    
       150          C                                                                        TURNOFF    38    
                     1000 IF (LTFLAG) GO TO 1011                                             TURNOFF    39    
                          CALL GETOUT                                                        TURNOFF    40    
                          IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 1010               TURNOFF    41    
                          ASHIFT = -1                                                        TURNOFF    42    
       155           1040 SYMTAB B = SSYMTAB-OH-1                                            TURNOFF    43    
                          IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1)) .OR.                         TURNOFF    44    
                         ,        BITON(DEBUG(SYMTAB B),IFBIT(1)) .OR.                       TURNOFF    45    
                         ,        BITOFF(DEBUG(SYMTAB B),ACBIT(1)) ) GO TO 1020              TURNOFF    46    
                          CALL SETARR, RETURNS(1020)                                         TURNOFF    47    
       160                DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI) - 1                          TURNOFF    48    
                          IF ((DEBUG(SAASI+AASI).AND.777B).NE.0) GO TO 1020                  TURNOFF    49    
                          DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. SHIFT(MASK(59), 33+1)      TURNOFF    50    
                          IF (BITOFF(DEBUG(SYMTAB B),SFBIT(1)) .AND.                         TURNOFF    51    
                         ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),18)).EQ.0).AND.               TURNOFF    52    
       165               ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),-12)).EQ.0))                  TURNOFF    53    
                         ,DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)                  TURNOFF    54    
                     1020 CALL GET OUT                                                       TURNOFF    55    
                          IF (OH.EQ.0) GO TO 10                                              TURNOFF    56    
1         SUBROUTINE TURNOFF    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                          IF (OH .EQ. MINZERO) 30, 1040                                      TURNOFF    57    
       170          C  HERE IF ALL ARRAYS ARE TO BE TURNED OFF                               TURNOFF    58    
                     1010 ALLARR = ALLARR - 1                                                TURNOFF    59    
                          IF (OH .EQ. 0) 10, 30                                              TURNOFF    60    
                    C                                                                        TURNOFF    61    
                    C  HERE IF ARRAYS IS TO BE TURNED OFF DUE TO AN OFF STATEMENT            TURNOFF    62    
       175          C                                                                        TURNOFF    63    
                     1011 ALLARR = 0                                                         TURNOFF    64    
                          SYMTAB B = SSYMTAB - 1                                             TURNOFF    65    
                     1014 SYMTAB B = SYMTAB B - 2                                            TURNOFF    66    
                          IF (SYMTAB B .LE. ESYMTAB) GO TO 1020                              TURNOFF    67    
       180                IF ( SHIFT(DEBUG(SYMTAB B + 1),59-13) .GE. 0)  GO TO 1014          TURNOFF    68    
                          IF (BITOFF (DEBUG(SYMTAB B), NOTBIT(1))  .OR.                      TURNOFF    69    
                         ,    BITOFF (DEBUG(SYMTAB B),  ACBIT(1))  .OR.                      TURNOFF    70    
                         ,    BITON  (DEBUG(SYMTAB B),  IFBIT(1))) GO TO 1014                TURNOFF    71    
                          IF (BITOFF (DEBUG(SYMTAB B),  SFBIT(1)))                           TURNOFF    72    
       185               ,      DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)            TURNOFF    73    
                          DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. .NOT. PLACE(ACBIT(1))      TURNOFF    74    
                          GO TO 1014                                                         TURNOFF    75    
                    C  HERE IF THE CALLS OPTION IS TO BE TURNED OFF FOR INDIVIDUALS          TURNOFF    76    
                     2000 IF (LTFLAG) GO TO 2011                                             TURNOFF    77    
       190                CALL GETOUT                                                        TURNOFF    78    
                          IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 2010               TURNOFF    79    
                     2040 SYMTAB B = SSYMTAB-OH-1                                            TURNOFF    80    
                     2041 IF (BITOFF (DEBUG(SYMTAB B), NOTBIT(1) )  .OR.                     TURNOFF    81    
                         ,    BITOFF(DEBUG(SYMTAB B),ACBIT(1)) .OR.                          TURNOFF    82    
       195               ,    BITOFF (DEBUG(SYMTAB B),  IFBIT(1) )  )  GO TO 2021            TURNOFF    83    
                          DEBUG(SYMTAB B) = DEBUG(SYMTAB B) - INC FCNT (1)                   TURNOFF    84    
                          IF (FCNT FLD(DEBUG(SYMTAB B)) .EQ. 0)                              TURNOFF    85    
                         ,     DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOT DBG(1)            TURNOFF    86    
                     2021 IF (LTFLAG) GO TO 2012                                             TURNOFF    87    
       200           2020 CALL GET OUT                                                       TURNOFF    88    
                          IF (OH.EQ.0) GO TO 10                                              TURNOFF    89    
                          IF (OH .EQ. MINZERO) 30, 2040                                      TURNOFF    90    
                    C                                                                        TURNOFF    91    
                    C  HERE IF ALL CALLS ARE TO BE TURNED OFF                                TURNOFF    92    
       205          C                                                                        TURNOFF    93    
                     2010 ALLCALL = ALLCALL - 1                                              TURNOFF    94    
                          IF (OH .EQ. 0) 10, 30                                              TURNOFF    95    
                    C                                                                        TURNOFF    96    
                    C  HERE IF CALLS IS TO BE TURNED OFF DUE TO AN OFF STATEMENT             TURNOFF    97    
       210          C                                                                        TURNOFF    98    
                     2011 ALLCALL = 0                                                        TURNOFF    99    
                          SYMTAB B = SSYMTAB - 1                                             TURNOFF   100    
                     2012 SYMTAB B = SYMTAB B - 2                                            TURNOFF   101    
                          IF (SYMTAB B - ESYMTAB) 2020, 2020, 2041                           TURNOFF   102    
       215          C                                                                        TURNOFF   103    
                    C                                                                        TURNOFF   104    
                    C  HERE IF FUNCS OPTIONS ARE TO BE TURNED OFF INDIVIDUALLY               TURNOFF   105    
                     3000 IF (LTFLAG)  GO TO 3011                                            TURNOFF   106    
                          CALL GETOUT                                                        TURNOFF   107    
       220                IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 3010               TURNOFF   108    
                     3040 SYMTAB B = SSYMTAB-OH-1                                            TURNOFF   109    
                     3041 IF (BITOFF (DEBUG(SYMTAB B), NOTBIT(1) )  .OR.                     TURNOFF   110    
                         ,    BITOFF(DEBUG(SYMTAB B),SFBIT(1)) .OR.                          TURNOFF   111    
                         ,    BITOFF (DEBUG(SYMTAB B),  IFBIT(1) )  )  GO TO 3021            TURNOFF   112    
       225                DEBUG(SYMTAB B) = DEBUG(SYMTAB B) - INC FCNT(1)                    TURNOFF   113    
1         SUBROUTINE TURNOFF    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
                          IF (FCNT FLD(DEBUG(SYMTAB B)) .EQ. 0)                              TURNOFF   114    
                         ,     DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)             TURNOFF   115    
                     3021 IF (LTFLAG) GO TO 3012                                             TURNOFF   116    
                     3020 CALL GET OUT                                                       TURNOFF   117    
       230                IF (OH.EQ.0) GO TO 10                                              TURNOFF   118    
                          IF (OH .EQ. MINZERO) 30, 3040                                      TURNOFF   119    
                    C                                                                        TURNOFF   120    
                    C  HERE IF ALL FUNCS OPTIONS ARE TO BE TURNED OFF                        TURNOFF   121    
                    C                                                                        TURNOFF   122    
       235           3010 ALLFUNC = ALLFUNC - 1                                              TURNOFF   123    
                          IF (OH .EQ. 0) 10, 30                                              TURNOFF   124    
                    C                                                                        TURNOFF   125    
                    C  HERE IF FUNCS IS TO BE TURNED OFF DUE TO AN OFF STATEMENT             TURNOFF   126    
                    C                                                                        TURNOFF   127    
       240           3011 ALLFUNC = 0                                                        TURNOFF   128    
                          SYMTAB B = SSYMTAB - 1                                             TURNOFF   129    
                     3012 SYMTAB B = SYMTAB B - 2                                            TURNOFF   130    
                          IF (SYMTAB B - ESYMTAB) 3020, 3020, 3041                           TURNOFF   131    
                    C                                                                        TURNOFF   132    
       245          C  HERE IF THE GOTOS OPTION IS TO BE TURNED OFF                          TURNOFF   133    
                    C                                                                        TURNOFF   134    
                     4000 CALL GET OUT                                                       TURNOFF   135    
                          GO TOS FL = GO TOS FL - 1                                          TURNOFF   136    
                          IF (LTFLAG)  GO TOS FL = 0                                         TURNOFF   137    
       250                IF (OH .EQ. 0) 10, 30                                              TURNOFF   138    
                    C                                                                        TURNOFF   139    
                    C  HERE IF THE NOGO OPTION IS TO BE SKIPPED OVER                         TURNOFF   140    
                    C                                                                        TURNOFF   141    
                     5000 CALL GET OUT                                                       TURNOFF   142    
       255                IF (OH.EQ.0) 10, 30                                                TURNOFF   143    
                    C                                                                        TURNOFF   144    
                    C  HERE IF THE STORES OPTION IS TO BE TURNED OFF                         TURNOFF   145    
                     6000 IF (LTFLAG) GO TO 6070                                             TURNOFF   146    
                          ASHIFT = -1                                                        TURNOFF   147    
       260           6010 CALL GET OUT                                                       TURNOFF   148    
                          IF (OH.EQ.0) GO TO 10                                              TURNOFF   149    
                          IF (OH .EQ. MINZERO) GO TO 30                                      TURNOFF   150    
                          SYMTAB B = SSYMTAB-OH-1                                            TURNOFF   151    
                          IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1)) .OR.                         TURNOFF   152    
       265               ,    BITOFF(DEBUG(SYMTAB B),SFBIT(1))  .OR.                         TURNOFF   153    
                         ,    BITON(DEBUG(SYMTAB B),IFBIT(1)) ) GO TO 6010                   TURNOFF   154    
                          CALL SETARR, RETURNS(6010)                                         TURNOFF   155    
                          IF ((DEBUG(SAASI+AASI).AND.SHIFT(777B, 30)).EQ.0) GO TO 6010       TURNOFF   156    
                          DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI) - SHIFT(1,30)                TURNOFF   157    
       270                IF ((DEBUG(SAASI+AASI).AND.SHIFT(777B, 30)).NE.0) GO TO 6010       TURNOFF   158    
                          DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. SHIFT(MASK(59),30)         TURNOFF   159    
                          IF (BITOFF(DEBUG(SYMTAB B),ACBIT(1))   .AND.                       TURNOFF   160    
                         ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),18)).EQ.0).AND.               TURNOFF   161    
                         ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),-12)).EQ.0))                  TURNOFF   162    
       275               ,     DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)             TURNOFF   163    
                          GO TO 6010                                                         TURNOFF   164    
                    C  HERE IF THE STORES OPTION WITH RELATIONAL OPERATORS IS TO BE TURNED   TURNOFF   165    
                    C                                OFF                                     TURNOFF   166    
                     7000 LSHIFT = 18                                                        TURNOFF   167    
       280                IF (P ADD .EQ. 0) LSHIFT = -12                                     TURNOFF   168    
                          ASHIFT = -1                                                        TURNOFF   169    
                     7010 MULT = 0                                                           TURNOFF   170    
1         SUBROUTINE TURNOFF    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0 
                          CALL GET OUT                                                       TURNOFF   171    
                          IF (OH.EQ.0) GO TO 10                                              TURNOFF   172    
       285                IF (OH .EQ. MINZERO) GO TO 30                                      TURNOFF   173    
                          SYMTAB B = SSYMTAB-OH-1                                            TURNOFF   174    
                          IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1)) .OR.                         TURNOFF   175    
                         ,    BITON(DEBUG(SYMTAB B),IFBIT(1)) ) GO TO 7010                   TURNOFF   176    
                          IF (P ADD .EQ. 0) GO TO 7080                                       TURNOFF   177    
       290                IF ((SHIFT(DEBUG(DFOPL),-18).AND.777B).EQ.0) GO TO 7010            TURNOFF   178    
                          DEBUG(DFOPL) = DEBUG(DFOPL) - SHIFT(1,18)                          TURNOFF   179    
                          IF ((SHIFT(DEBUG(DFOPL),-18).AND.777B).NE.0) GO TO 7010            TURNOFF   180    
                          CALL SETARR, RETURNS(7010)                                         TURNOFF   181    
                          NXT STR = ADDRESS(SHIFT(DEBUG(SAASI+AASI),18))                     TURNOFF   182    
       295                IF (NXT STR .EQ. DFOPL) 7050, 7070                                 TURNOFF   183    
                     7060 NXT STR = NXT STR1                                                 TURNOFF   184    
                     7070 NXT STR1 = ADDRESS(DEBUG(NXT STR))                                 TURNOFF   185    
                          IF (NXT STR1 .NE. DFOPL) GO TO 7060                                TURNOFF   186    
                          DEBUG(NXTSTR) = (DEBUG(NXTSTR) .AND. SHIFT(MASK(42), -18)) .OR.    TURNOFF   187    
       300               ,    ADDRESS(DEBUG(NXT STR1))                                       TURNOFF   188    
                          GO TO 7010                                                         TURNOFF   189    
                     7050 TEMP = ADDRESS(DEBUG(NXT STR))                                     TURNOFF   190    
                          DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI)+SHIFT(TEMP,60-LSHIFT)        TURNOFF   191    
                          IF (TEMP.NE.0) GO TO 7010                                          TURNOFF   192    
       305           7130 IF(((SHIFT(DEBUG(SAASI+AASI),30).AND.777B).EQ.0).AND.              TURNOFF   193    
                         ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),LSHIFT)).EQ.0).AND.           TURNOFF   194    
                         ,    BITOFF(DEBUG(SYMTAB B),ACBIT(1)) )                             TURNOFF   195    
                         ,     DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOT DBG(1)            TURNOFF   196    
                          GO TO 7010                                                         TURNOFF   197    
       310           7080 CALL SETARR, RETURNS(7010)                                         TURNOFF   198    
                          TEMP = DEBUG(DFOPL) .AND. MASK(33)                                 TURNOFF   199    
                          SASI = ADDRESS(SHIFT(DEBUG(SAASI+AASI),-12))                       TURNOFF   200    
                          IF (SASI.EQ.0) GO TO 7130                                          TURNOFF   201    
                          IF (TEMP .EQ. (DEBUG(SAASI+SASI) .AND. MASK(33)) ) GO TO 7100      TURNOFF   202    
       315           7120 NXT STR = SASI                                                     TURNOFF   203    
                          SASI = ADDRESS(DEBUG(SAASI+SASI))                                  TURNOFF   204    
                          IF (SASI.EQ.0) GO TO 7010                                          TURNOFF   205    
                          IF (TEMP .NE. (DEBUG(SAASI+SASI) .AND. MASK(33)) ) GO TO 7120      TURNOFF   206    
                          IF ((SHIFT(DEBUG(SAASI+SASI), -18).AND.777B).EQ.0) GO TO 7010      TURNOFF   207    
       320                DEBUG(SAASI+SASI) = DEBUG(SAASI+SASI) - SHIFT(1,18)                TURNOFF   208    
                          IF ((SHIFT(DEBUG(SAASI+SASI), -18).AND.777B).EQ.0)                 TURNOFF   209    
                         ,DEBUG(SAASI+NXTSTR) = (DEBUG(SAASI+NXTSTR) .AND. MASK(42))         TURNOFF   210    
                         ,    .OR.ADDRESS(DEBUG(SAASI+SASI))                                 TURNOFF   211    
                              GO TO 7010                                                     TURNOFF   212    
       325           7100 DEBUG(SAASI+SASI) = DEBUG(SAASI+SASI) - SHIFT(1,18)                TURNOFF   213    
                          IF ((SHIFT(DEBUG(SAASI+AASI), -18).AND.777B).NE.0) GO TO 7010      TURNOFF   214    
                          DEBUG(SAASI+AASI) = (DEBUG(SAASI+AASI) .AND. SHIFT(MASK(42), 12))  TURNOFF   215    
                         ,   .OR. SHIFT(ADDRESS(DEBUG(SAASI+SASI)), 12)                      TURNOFF   216    
                          IF (ADDRESS(DEBUG(SAASI+SASI)).EQ.0) 7130, 7010                    TURNOFF   217    
       330          C                                                                        TURNOFF   218    
                    C  HERE IF STORES IS TO BE TURNED OFF DUE TO AN OFF STATEMENT            TURNOFF   219    
                    C          (WITH OR WITHOUT RELATIONALS CANNOT BE SPECIFIED)             TURNOFF   220    
                     6070 SYMTAB B = SSYMTAB - 1                                             TURNOFF   221    
                     6071 SYMTAB B = SYMTAB B - 2                                            TURNOFF   222    
       335                IF (SYMTAB B .LE. ESYMTAB) GO TO 6010                              TURNOFF   223    
                          IF ( (TYPE(DEBUG(SYMTAB B)) .GE. CONTYPE(1)) .AND.                 TURNOFF   224    
                         ,     (TYPE(DEBUG(SYMTAB B)) .NE. DBGTYPE(1)) ) GO TO 6071          TURNOFF   225    
                          IF (BITOFF (DEBUG(SYMTAB B), NOTBIT(1))  .OR.                      TURNOFF   226    
                         ,    BITOFF (DEBUG(SYMTAB B),  SFBIT(1))  .OR.                      TURNOFF   227    
1         SUBROUTINE TURNOFF    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0 
       340               ,    BITON  (DEBUG(SYMTAB B),  IFBIT(1))) GO TO 6071                TURNOFF   228    
                          IF (BITOFF (DEBUG(SYMTAB B),  ACBIT(1)))                           TURNOFF   229    
                         ,      DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)            TURNOFF   230    
                          DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. .NOT. PLACE(SFBIT(1))      TURNOFF   231    
                          GO TO 6071                                                         TURNOFF   232    
       345          C                                                                        TURNOFF   233    
                    C  HERE IF THE TRACE OPTION IS TO BE TURNED OFF                          TURNOFF   234    
                    C                                                                        TURNOFF   235    
                     8000 MULT = 0                                                           TURNOFF   236    
                          CALL GETOUT                                                        TURNOFF   237    
       350                IF (OH.EQ. 0) 10, 30                                               TURNOFF   238    
                     8001 IF (LTFLAG) GO TO 8011                                             TURNOFF   239    
                          MULT = 0                                                           TURNOFF   240    
                          CALL GET OUT                                                       TURNOFF   241    
                          IF ( (OH .EQ. 0) .AND. (SHIFT(DEBUG(DFOPL), 30) .GE. 0)) GO TO 10  TURNOFF   242    
       355                IF (OH .EQ. MINZERO) GO TO 30                                      TURNOFF   243    
                          LEVSHFT = 30                                                       TURNOFF   244    
                          TAASI = 0                                                          TURNOFF   245    
                          IF (P ADD .NE.0) GO TO 8300                                        TURNOFF   246    
                          LEVSHFT = 0                                                        TURNOFF   247    
       360                TAASI = SAASI                                                      TURNOFF   248    
                     8300 TEMP = SHIFT(OH,-6)                                                TURNOFF   249    
                          SASI = ADDRESS(SHIFT(TRCADD,LEVSHFT))                              TURNOFF   250    
                          IF (SASI.EQ.0) GO TO 8000                                          TURNOFF   251    
                          TRACED = TRACEL                                                    TURNOFF   252    
       365                IF (TEMP .GE. TRACED) TRACED = -1                                  TURNOFF   253    
                     8120 NXT STR = SASI                                                     TURNOFF   254    
                          IF (TEMP.EQ.(SHIFT(DEBUG(TAASI+SASI),6).AND.77B)) GO TO 8100       TURNOFF   255    
                          IF ((SHIFT(DEBUG(TAASI+SASI),6).AND.77B).GT.TRACED)                TURNOFF   256    
                         ,    TRACED = SHIFT(DEBUG(TAASI+SASI),6).AND.77B                    TURNOFF   257    
       370                SASI = ADDRESS(DEBUG(TAASI+SASI))                                  TURNOFF   258    
                          IF (SASI.EQ.0) GO TO 8000                                          TURNOFF   259    
                          IF (TEMP.NE.(SHIFT(DEBUG(TAASI+SASI),6).AND.77B)) GO TO 8120       TURNOFF   260    
                          IF ((DEBUG(TAASI+SASI).AND.SHIFT(777B,18)).EQ.0) GO TO 8000        TURNOFF   261    
                          DEBUG(TAASI+SASI) = DEBUG(TAASI+SASI) - SHIFT(1,18)                TURNOFF   262    
       375                IF ((DEBUG(TAASI+SASI).AND.SHIFT(777B,18)).NE.0) GO TO 8000        TURNOFF   263    
                          DEBUG(TAASI + NXT STR) = (DEBUG(TAASI + NXT STR).AND. MASK(42))    TURNOFF   264    
                         ,    .OR. ADDRESS(DEBUG(TAASI + SASI))                              TURNOFF   265    
                     8230 IF (TEMP.LT.TRACEL) GO TO 8000                                     TURNOFF   266    
                          TRACEL = TRACED                                                    TURNOFF   267    
       380           8210 SASI = ADDRESS(DEBUG(TAASI+SASI))                                  TURNOFF   268    
                          IF (SASI.EQ.0) GO TO 8200                                          TURNOFF   269    
                          IF ((SHIFT(DEBUG(TAASI+SASI),6).AND.77B).GT.TRACEL)                TURNOFF   270    
                         ,    TRACEL = SHIFT(DEBUG(TAASI+SASI),6).AND.77B                    TURNOFF   271    
                          GO TO 8210                                                         TURNOFF   272    
       385           8200 SASI = ADDRESS(SHIFT(TRCADD,LEVSHFT-30))                           TURNOFF   273    
                     8220 IF (SASI.EQ.0) GO TO 8000                                          TURNOFF   274    
                          IF ((SHIFT(DEBUG(TAASI+SASI),6).AND.77B).GT.TRACEL)                TURNOFF   275    
                         ,    TRACEL = SHIFT(DEBUG(TAASI+SASI),6).AND.77B                    TURNOFF   276    
                          SASI = ADDRESS(DEBUG(TAASI+SASI))                                  TURNOFF   277    
       390                GO TO 8220                                                         TURNOFF   278    
                     8100 IF ((DEBUG(TAASI+SASI).AND.SHIFT(777B,18)).EQ.0) GO TO 8000        TURNOFF   279    
                          DEBUG(TAASI+SASI) = DEBUG(TAASI+SASI) - SHIFT(1,18)                TURNOFF   280    
                          IF ((DEBUG(TAASI+SASI).AND.SHIFT(777B,18)).NE.0) GO TO 8000        TURNOFF   281    
                          TRCADD = SHIFT(ADDRESS(SHIFT(TRCADD,LEVSHFT-30)),LEVSHFT+30).OR.   TURNOFF   282    
       395               ,    SHIFT(ADDRESS(DEBUG(TAASI+SASI)),LEVSHFT)                      TURNOFF   283    
                          GO TO 8230                                                         TURNOFF   284    
1         SUBROUTINE TURNOFF    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     6
0 
                    C                                                                        TURNOFF   285    
                    C  HERE IF TRACE IS TO BE TURNED OFF DUE TO AN OFF STATEMENT             TURNOFF   286    
                    C                                                                        TURNOFF   287    
       400           8011 TRACEL = -1                                                        TURNOFF   288    
                          GO TO 6010                                                         TURNOFF   289    
                    C                                                                        TURNOFF   290    
                    C  HERE IF TURN OFF OPTION IS ENCOUNTERED                                TURNOFF   291    
                    C                                                                        TURNOFF   292    
       405           9000 CALL GET OUT                                                       TURNOFF   293    
                          IF (OH.EQ.0) GO TO 10                                              TURNOFF   294    
                          IF (OH .NE. MINZERO) GO TO 9000                                    TURNOFF   295    
                    C                                                                        TURNOFF   296    
                    C  HERE IF DONE TURNING OFF OPTIONS.  SET ERROR TO BOUND O.K.            TURNOFF   297    
       410          C                                                                        TURNOFF   298    
                       30 IF (P ADD .EQ. 0) RETURN                                           TURNOFF   299    
                          DEBUG(SAREA+NEXT-2) = DEBUG(SAREA+NEXT-2) .OR. SHIFT(1, 22)        TURNOFF   300    
                          DEBUG(SAREA+NEXT) = DEBUG(SAREA+NEXT).OR.MASK(1)                   TURNOFF   301    
                          RETURN                                                             TURNOFF   302    
       415                END                                                                TURNOFF   303    
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  TURNOFF 
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
1         SUBROUTINE TURNOFF    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     7
0  VARIABLES     SN  TYPE           RELOCATION  
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     205  INDEF     INTEGER             DBGBLK3        113  INDEXNO   INTEGER             DBGBLK2 
       2  ITEM      INTEGER             DBGBLK3         42  LDEBUG    INTEGER             DBGBLK2 
      14  LELIST    INTEGER             DBGBLK2        106  LEVEL     INTEGER             DBGBLK3 
     115  LEVSHFT   INTEGER             DBGBLK3         47  LFLAG     LOGICAL             DBGBLK2 
      57  LNGIND    INTEGER             DBGBLK2        160  LPAREN    INTEGER             DBGBLK3 
     113  LSHIFT    INTEGER             DBGBLK3        154  LSTLINE   INTEGER             DBGBLK3 
      46  LTFLAG    LOGICAL             DBGBLK2         66  M         INTEGER             DBGBLK3 
       4  MINZERO   INTEGER             DBGBLK3         74  MISFLAG   INTEGER             DBGBLK3 
       5  MULT      INTEGER             DBGBLK3         23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
      12  NFIELD    INTEGER             DBGBLK3         60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
     175  OVRFLOW   INTEGER             DBGBLK3         36  PADD      INTEGER             DBGBLK2 
     114  PHSFLAG   INTEGER             DBGBLK2         21  POINT     INTEGER             DBGBLK3 
      32  POW       INTEGER             DBGBLK2        146  PREDBG    INTEGER    ARRAY    DBGBLK3 
     206  RANGE     INTEGER             DBGBLK3         43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
     104  RELOP     INTEGER             DBGBLK3        202  ROUNAME   INTEGER             DBGBLK3 
     157  RPAREN    INTEGER             DBGBLK3        122  RTAB      INTEGER    ARRAY    DBGBLK3 
      11  SAASI     INTEGER             DBGBLK2        152  SAMLINE   INTEGER             DBGBLK3 
       4  SAREA     INTEGER             DBGBLK2         17  SASI      INTEGER             DBGBLK3 
     174  SAVEOH    INTEGER             DBGBLK3         24  SAVUPDT   INTEGER    ARRAY    DBGBLK3 
     112  SCNUPDT   INTEGER             DBGBLK2         24  SDBGIND   INTEGER             DBGBLK2 
       0  SDRL      INTEGER             DBGBLK2          2  SDVL      INTEGER             DBGBLK2 
     161  SLASH     INTEGER             DBGBLK3          7  SPIDER    INTEGER             DBGBLK1 
      67  SPIDIS    INTEGER             DBGBLK3          7  SSYMTAB   INTEGER             DBGBLK2 
     155  STAR      INTEGER             DBGBLK3        150  STAR1     INTEGER             DBGBLK3 
     151  STAR2     INTEGER             DBGBLK3         72  STOSWAP   INTEGER             DBGBLK3 
      45  SUCCESS   INTEGER             DBGBLK2         10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
  
   EXTERNALS          TYPE   ARGS     
          GETOUT               0                            SETARR               0                
1         SUBROUTINE TURNOFF    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     8
0  INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
      14  10                                 575  30                                  13  100                         
      34  1000                                74  1010                                77  1011                        
     102  1014                                70  1020                                43  1040                        
     121  2000                               150  2010                               153  2011                        
     156  2012                               144  2020                               143  2021                        
     127  2040                               132  2041                               162  3000                        
     211  3010                               214  3011                               217  3012                        
     205  3020                               204  3021                               170  3040                        
     173  3041                               223  4000                               231  5000                        
     234  6000                               236  6010                               422  6070                        
     424  6071                               271  7000                               275  7010                        
     334  7050                               324  7060                               326  7070                        
     357  7080                               407  7100                               371  7120                        
     343  7130                               444  8000                               450  8001                        
     567  8011                               554  8100                               475  8120                        
     537  8200                               526  8210                               542  8220                        
     522  8230                               465  8300                               571  9000                        
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                617B     399 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE DEBUGER    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE DEBUG ER                                                DEBUGER     2    
                    C                                                                        DEBUGER     3    
                    C  THIS ROUTINE PRINTS ERROR MESSAGES FOR FORTRAN DEBUG ROUTINES.  THE   DEBUGER     4    
                    C  INCORRECT STATEMENT LINE IS PRINTED IF THE NO LIST OPTION IS ON.      DEBUGER     5    
         5          C  UPON ENTRY:                                                           DEBUGER     6    
                    C         M       = THE DEBUG ERROR NUMBER.                              DEBUGER     7    
                                                                                             LDBGCOM     2    
         8          C/    LIST,NONE                                                          LDBGCOM     3    
       120          C/    LIST,ALL                                                           LDBGCOM     5    
                          DATA PREDBG  /10H DEBUG SYN, 10HTAX ERROR /                        DEBUGER     9    
                          FEFLAG = -1                                                        DEBUGER    10    
                        5 GO TO ( 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130,    DEBUGER    11    
                         ,    140, 150, 160) M                                               DEBUGER    12    
       125             10 WRITE (DBGOUT, 11) PREDBG, DUKE1                                   DEBUGER    13    
                       11 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED /, (, ,, OR ), MISSING*)    DEBUGER    14    
                          GO TO 1000                                                         DEBUGER    15    
                       20 WRITE (DBGOUT, 21) PREDBG, DUKE1                                   DEBUGER    16    
                       21 FORMAT(14X,2A10,*LINE *,I5,*- CHARACTERS PAST )*)                  DEBUGER    17    
       130                GO TO 1000                                                         DEBUGER    18    
                       30 WRITE (DBGOUT, 31) PREDBG, DUKE1                                   DEBUGER    19    
                       31 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED SYMBOL, MISSING*)           DEBUGER    20    
                          GO TO 1000                                                         DEBUGER    21    
                       40 WRITE (DBGOUT, 41) PREDBG, DUKE1                                   DEBUGER    22    
       135             41 FORMAT(14X,2A10,*LINE *,I5,*- ROUTINE DOES NOT APPEAR IN DEBUG ROU DEBUGER    23    
                         ,TINE LIST*)                                                        DEBUGER    24    
                          GO TO 1000                                                         DEBUGER    25    
                       50 WRITE (DBGOUT, 51) PREDBG,DUKE1                                    DEBUGER    26    
                       51 FORMAT(14X,2A10,*LINE *,I5,*- BAD BOUND*)                          DEBUGER    27    
       140                GO TO 1000                                                         DEBUGER    28    
                       60 WRITE (DBGOUT, 61) PREDBG, DUKE1                                   DEBUGER    29    
                       61 FORMAT(14X,2A10,*LINE *,I5,*- LEVEL INTEGER EXPECTED, MISSING*)    DEBUGER    30    
                          GO TO 1000                                                         DEBUGER    31    
                       70 WRITE (DBGOUT, 71) PREDBG, DUKE1                                   DEBUGER    32    
       145             71 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST NOGO*)       DEBUGER    33    
                          GO TO 1000                                                         DEBUGER    34    
                       80 WRITE (DBGOUT, 81) PREDBG, DUKE1                                   DEBUGER    35    
                       81 FORMAT(14X,2A10,*LINE *,I5,*- LEGAL OPTION EXPECTED, MISSING*)     DEBUGER    36    
                          GO TO 1000                                                         DEBUGER    37    
       150             90 WRITE (DBGOUT, 91)  PREDBG, DUKE1                                  DEBUGER    38    
                       91 FORMAT(14X,2A10,*LINE *,I5,*- AN OFF STATEMENT SHOULD NOT APPEAR I DEBUGER    39    
                         ,N AN OFF STATEMENT*)                                               DEBUGER    40    
                          GO TO 1000                                                         DEBUGER    41    
                      100 WRITE (DBGOUT, 101) PREDBG, DUKE1                                  DEBUGER    42    
       155            101 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST GO TOS*)     DEBUGER    43    
                          GO TO 1000                                                         DEBUGER    44    
                      110 WRITE (DBGOUT, 111) PREDBG, DUKE1                                  DEBUGER    45    
                      111 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST TRACE*)      DEBUGER    46    
                          GO TO 1000                                                         DEBUGER    47    
       160            120 WRITE (DBGOUT, 121) PREDBG, DUKE1                                  DEBUGER    48    
                      121 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED ,, ), OR .REL OP., MISSING* DEBUGER    49    
                         ,    )                                                              DEBUGER    50    
                          GO TO 1000                                                         DEBUGER    51    
                      130 WRITE (DBGOUT,131) PREDBG, DUKE1                                   DEBUGER    52    
       165            131 FORMAT ( 14X, 2A10, *LINE *, I5, 37H- BOUND FORM (*) MEANINGLESS,  DEBUGER    53    
                         ,IGNORED)                                                           DEBUGER    54    
                          GO TO 1000                                                         DEBUGER    55    
                      140 WRITE(DBGOUT,141) PREDBG,DUKE1                                     DEBUGER    56    
1         SUBROUTINE DEBUGER    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                      141 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CONSTANT*)                   DEBUGER    57    
       170                GO TO 1000                                                         DEBUGER    58    
                      150 WRITE(DBGOUT,151) DUKE1                                            DEBUGER    59    
                      151 FORMAT(14X,* DEBUG ERROR ON LINE *,I5,*- CONSTANT TABLE OVERFLOW*) DEBUGER    60    
                          GO TO 1000                                                         DEBUGER    61    
                      160 WRITE (DBGOUT, 161) PREDBG, DUKE1                                  DEBUGER    62    
       175            161 FORMAT (14X, 2A10, *LINE *,I5, *- ILLEGAL ROUTINE IN DEBUG LIST*)  DEBUGER    63    
                     1000 RETURN                                                             DEBUGER    64    
                          END                                                                DEBUGER    65    
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  DEBUGER 
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     205  INDEF     INTEGER             DBGBLK3        113  INDEXNO   INTEGER             DBGBLK2 
       2  ITEM      INTEGER             DBGBLK3         42  LDEBUG    INTEGER             DBGBLK2 
1         SUBROUTINE DEBUGER    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0  VARIABLES     SN  TYPE           RELOCATION  
      14  LELIST    INTEGER             DBGBLK2        106  LEVEL     INTEGER             DBGBLK3 
     115  LEVSHFT   INTEGER             DBGBLK3         47  LFLAG     LOGICAL             DBGBLK2 
      57  LNGIND    INTEGER             DBGBLK2        160  LPAREN    INTEGER             DBGBLK3 
     113  LSHIFT    INTEGER             DBGBLK3        154  LSTLINE   INTEGER             DBGBLK3 
      46  LTFLAG    LOGICAL             DBGBLK2         66  M         INTEGER             DBGBLK3 
       4  MINZERO   INTEGER             DBGBLK3         74  MISFLAG   INTEGER             DBGBLK3 
       5  MULT      INTEGER             DBGBLK3         23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
      12  NFIELD    INTEGER             DBGBLK3         60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
     175  OVRFLOW   INTEGER             DBGBLK3         36  PADD      INTEGER             DBGBLK2 
     114  PHSFLAG   INTEGER             DBGBLK2         21  POINT     INTEGER             DBGBLK3 
      32  POW       INTEGER             DBGBLK2        146  PREDBG    INTEGER    ARRAY    DBGBLK3 
     206  RANGE     INTEGER             DBGBLK3         43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
     104  RELOP     INTEGER             DBGBLK3        202  ROUNAME   INTEGER             DBGBLK3 
     157  RPAREN    INTEGER             DBGBLK3        122  RTAB      INTEGER    ARRAY    DBGBLK3 
      11  SAASI     INTEGER             DBGBLK2        152  SAMLINE   INTEGER             DBGBLK3 
       4  SAREA     INTEGER             DBGBLK2         17  SASI      INTEGER             DBGBLK3 
     174  SAVEOH    INTEGER             DBGBLK3         24  SAVUPDT   INTEGER    ARRAY    DBGBLK3 
     112  SCNUPDT   INTEGER             DBGBLK2         24  SDBGIND   INTEGER             DBGBLK2 
       0  SDRL      INTEGER             DBGBLK2          2  SDVL      INTEGER             DBGBLK2 
     161  SLASH     INTEGER             DBGBLK3          7  SPIDER    INTEGER             DBGBLK1 
      67  SPIDIS    INTEGER             DBGBLK3          7  SSYMTAB   INTEGER             DBGBLK2 
     155  STAR      INTEGER             DBGBLK3        150  STAR1     INTEGER             DBGBLK3 
     151  STAR2     INTEGER             DBGBLK3         72  STOSWAP   INTEGER             DBGBLK3 
      45  SUCCESS   INTEGER             DBGBLK2         10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MINUS     INTEGER    1    SF                      NOTBIT    INTEGER    1    SF          
1         SUBROUTINE DEBUGER    74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0  INLINE FUNCTIONS   TYPE   ARGS     
          NOTDBG    INTEGER    1    SF                      PLACE     INTEGER    1    SF          
          PLUS      INTEGER    1    SF                      SFBIT     INTEGER    1    SF          
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
       0  5           INACTIVE                27  10                                 114  11      FMT                 
      32  20                                 130  21      FMT                         35  30                          
     143  31      FMT                         40  40                                 157  41      FMT                 
      43  50                                 175  51      FMT                         46  60                          
     207  61      FMT                         51  70                                 223  71      FMT                 
      54  80                                 237  81      FMT                         57  90                          
     253  91      FMT                         62  100                                272  101     FMT                 
      65  110                                306  111     FMT                         70  120                         
     322  121     FMT                         73  130                                337  131     FMT                 
      76  140                                354  141     FMT                        101  150                         
     366  151     FMT                        104  160                                403  161     FMT                 
     106  1000                        
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                412B     266 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE BUGPRO                                                  BUGPRO      2    
                    C                                                                        BUGPRO      3    
                    C  IF IN DEBUG MODE, THIS ROUTINE BRINGS ALL DEBUG INFORMATION           BUGPRO      4    
                    C  PERTAINING TO THE ROUTINE BEING COMPILED FROM THE RANDOM ACCESS DEBUF BUGPRO      5    
         5          C  FILE INTO CENTRAL MEMORY.  THE B-CELL LINKS FOR THE -FROM- AND        BUGPRO      6    
                    C  OPTIONS LISTS ARE SET UP AND THE SYMBOL TABLE ORDINALS ARE            BUGPRO      7    
                    C  SUBSTITUTED FOR THE DVL ORDINALS.                                     BUGPRO      8    
                    C                                                                        BUGPRO      9    
                    C  UPON ENTRY:  SDBGIND = THE STARTING ADDRESS OF THE DEBUG RANDOM       BUGPRO     10    
        10          C                         ACCESS FILE INDEX                              BUGPRO     11    
                    C               DOLAST  = THE ENDING ADDRESS OF THE DO TABLES            BUGPRO     12    
                    C               ELAST   = THE ADDRESS OF THE LAST WORD OF E-LIST         BUGPRO     13    
                    C               SSYMTAB = THE BEGINNING ADDRESS OF THE SYMBOL TABLE      BUGPRO     14    
                    C                                                                        BUGPRO     15    
        15          C                                                                        BUGPRO     16    
                    C  OPEN THE DEBUG RANDOM ACCESS FILE TO SEE IF IT CONTAINS ANY INFO      BUGPRO     17    
                    C                                                                        BUGPRO     18    
                                                                                             LDBGCOM     2    
        19          C/    LIST,NONE                                                          LDBGCOM     3    
       131          C/    LIST,ALL                                                           LDBGCOM     5    
                          OPENFL = -1                                                        BUGPRO     20    
                          LNDRLSV = LNG DRL                                                  BUGPRO     21    
                          LNDVLSV = LNG DVL                                                  BUGPRO     22    
       135                CALL WRTMS1                                                        BUGPRO     23    
                          IF (DF PACK .NE. 0) INDEX NO = 1                                   BUGPRO     24    
                          LNG DRL = LENGTH(DEBUG(SDBGIND+INDEX NO))                          BUGPRO     25    
                          IF (LNG DRL .EQ. 0) 30, 10                                         BUGPRO     26    
                       60 WRITE (DBGOUT, 71)                                                 BUGPRO     27    
       140             71 FORMAT(14X, *DEBUG: MORE CORE IS NEEDED FOR DEBUG PROCESSING. *)   BUGPRO     28    
                          LNG DRL = LNDRLSV                                                  BUGPRO     29    
                          LNG DVL = LNDVLSV                                                  BUGPRO     30    
                       30 IF (INDEXNO .EQ. 3) NOACT = -1                                     BUGPRO     31    
                          CALL WRTMS4                                                        BUGPRO     32    
       145                RETURN                                                             BUGPRO     33    
                                                                                             BUGPRO     34    
                    C  BRING IN DEBUG ROUTINE LIST FROM DISK AND SEARCH IT FOR NAME OF       BUGPRO     35    
                    C  CURRENT ROUTINE                                                       BUGPRO     36    
                                                                                             BUGPRO     37    
       150             10 IF (DFPACK .EQ. 0) GO TO 11                                        BUGPRO     38    
                          CALL RDMS1 ( DEBUG(SDRL), LNG DRL, 1)                              BUGPRO     39    
                          EDRL = SDRL + LNG DRL                                              BUGPRO     40    
                          LNG DVL = LENGTH (DEBUG(SDBGIND+2))                                BUGPRO     41    
                          CALL RDMS1 ( DEBUG(SDVL), LNG DVL, 2)                              BUGPRO     42    
       155                EDVL = SDVL + LNGDVL - 1                                           BUGPRO     43    
                          CALL WRTMS4                                                        BUGPRO     44    
                          LNG DRL = LNDRLSV                                                  BUGPRO     45    
                          LNG DVL = LNDVLSV                                                  BUGPRO     46    
                          RETURN                                                             BUGPRO     47    
       160                                                                                   BUGPRO     48    
                                                                                             BUGPRO     49    
                                                                                             BUGPRO     50    
                       11 CALL RDMS1 (DEBUG(DOLAST + LNG IND + 1), LNG DRL, INDEXNO)         BUGPRO     51    
                          ROU NAME = DRLELT(DEBUG(SSYMTAB-2))                                BUGPRO     52    
       165                DRL = DOLAST + LNG IND - 1                                         BUGPRO     53    
                          SDRL = DRL + 2                                                     BUGPRO     54    
                          EDRL = DRL + LNG DRL + 2                                           BUGPRO     55    
                          NN = 0                                                             BUGPRO     56    
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                          N = 0                                                              BUGPRO     57    
       170                TOT LNG = 0                                                        BUGPRO     58    
                       20 DRL = DRL + 2                                                      BUGPRO     59    
                          IF (DRL .EQ. EDRL) GO TO 50                                        BUGPRO     60    
                          IF (ROU NAME .NE. DRLELT(DEBUG(DRL))) GO TO 20                     BUGPRO     61    
                    C                                                                        BUGPRO     62    
       175          C  IF NAME IS FOUND, DETERMINE AMOUNT OF SPACE NECESSARY FOR DEBUG       BUGPRO     63    
                    C  TABLES FOR THIS ROUTINE.                                              BUGPRO     64    
                    C                                                                        BUGPRO     65    
                          TEMP = ADDRESS(DEBUG(DRL+1))                                       BUGPRO     66    
                          IF (TEMP .NE. 0)                                                   BUGPRO     67    
       180               ,    TOT LNG = TLENGTH(DEBUG(SDBGIND + TEMP))                       BUGPRO     68    
                          N=2                                                                BUGPRO     69    
                       40 IF (ROU NAME .NE. DRLELT(DEBUG(DRL + N))) GO TO 50                 BUGPRO     70    
                          TEMP = ADDRESS(DEBUG(DRL+N+1))                                     BUGPRO     71    
                          IF (TEMP .NE. 0)                                                   BUGPRO     72    
       185               ,    TOT LNG = TLENGTH(DEBUG(SDBGIND+TEMP)) + TOT LNG               BUGPRO     73    
                          N= N + 2                                                           BUGPRO     74    
                          GO TO 40                                                           BUGPRO     75    
                       50 IDRL = SDRL - 2                                                    BUGPRO     76    
                       52 IDRL = IDRL + 2                                                    BUGPRO     77    
       190                IF (IDRL .EQ. EDRL) GO TO 51                                       BUGPRO     78    
                          IF (SPIDER .NE. DRLELT(DEBUG(IDRL))) GO TO 52                      BUGPRO     79    
                          TEMP = ADDRESS(DEBUG(IDRL + 1))                                    BUGPRO     80    
                          IF (TEMP .NE. 0)                                                   BUGPRO     81    
                         ,    TOT LNG = TLENGTH(DEBUG(SDBGIND + TEMP)) + TOT LNG             BUGPRO     82    
       195             53 NN = NN + 2                                                        BUGPRO     83    
                          IF (SPIDER .NE. DRLELT(DEBUG(IDRL + NN ))) GO TO 51                BUGPRO     84    
                          TEMP = ADDRESS(DEBUG(IDRL + NN + 1))                               BUGPRO     85    
                          IF (TEMP .NE. 0)                                                   BUGPRO     86    
                         ,    TOT LNG = TLENGTH(DEBUG(SDBGIND + TEMP)) + TOT LNG             BUGPRO     87    
       200                GO TO 53                                                           BUGPRO     88    
                       51 IF (TOT LNG .EQ. 0) GO TO 30                                       BUGPRO     89    
                          LNG DVL = LENGTH(DEBUG(SDBGIND + INDEX NO + 1))                    BUGPRO     90    
                          IF ((DOLAST + LNG IND + LNG DRL + LNG DVL) .GE.                    BUGPRO     91    
                         ,    (ELAST - TOT LNG - (2* LNG DVL))) GO TO 60                     BUGPRO     92    
       205          C  MOVE SYMTAB AND E-LIST DOWN IN CORE SO THAT THE AREA AND OPTIONS      BUGPRO     93    
                    C  LISTS CAN BE BROUGHT IN FROM DISK.  PROCESS AREA LISTS AS THEY ARE    BUGPRO     94    
                    C  BROUGHT IN. FIRST BRING IN AREA LISTS, OPTION LISTS AS THEY ARE MET.  BUGPRO     95    
                    C                                                                        BUGPRO     96    
                          BASE ADD = FIDIT                                                   BUGPRO     97    
       210                AREAEND = FIDIT - 1                                                BUGPRO     98    
                          IF ((ELAST - TOT LNG) .GT. DOLAST) GO TO 81                        BUGPRO     99    
                          WRITE (DBGOUT, 10020)                                              BUGPRO    100    
                    10020 FORMAT(14X,*DEBUG: MORE CORE IS NEEDED TO BRING PACKETS IN FROM DI BUGPRO    101    
                         ,SK.  ONLY INTERSPERSED STATEMENTS WILL BE PROCESSED. *)            BUGPRO    102    
       215                CALL WRTMS4                                                        BUGPRO    103    
                          LNG DRL = LNDRLSV                                                  BUGPRO    104    
                          LNG DVL = LNDVLSV                                                  BUGPRO    105    
                          RETURN                                                             BUGPRO    106    
                                                                                             BUGPRO    107    
       220                                                                                   BUGPRO    108    
                                                                                             BUGPRO    109    
                       81 TOT LNG = TOT LNG + 1                                              BUGPRO    110    
                          CALL DMVWDS (FIDIT-ELAST+1, DEBUG(ELAST), DEBUG(ELAST-TOTLNG) )    BUGPRO    111    
                          ELAST = ELAST - TOT LNG                                            BUGPRO    112    
       225                SSYMTAB = SSYMTAB - TOT LNG                                        BUGPRO    113    
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
                          ESYMTAB = ESYMTAB - TOT LNG                                        BUGPRO    114    
                          ELIST = ELIST - TOT LNG                                            BUGPRO    115    
                          LELIST = LELIST - TOT LNG                                          BUGPRO    116    
                          EFIDIT = FIDIT                                                     BUGPRO    117    
       230                FIDIT = FIDIT - TOT LNG                                            BUGPRO    118    
                          SAASI = SAASI - TOT LNG                                            BUGPRO    119    
                          CALL FIXPNTR                                                       BUGPRO    120    
                          SAV UP DT(1) = CUR UP DT (1)                                       BUGPRO    121    
                          SAV UP DT(2) = CUR UP DT (2)                                       BUGPRO    122    
       235                IF (N .EQ. 0) GO TO 70                                             BUGPRO    123    
                       80 N = N - 2                                                          BUGPRO    124    
                          IF (N .LT. 0) GO TO 70                                             BUGPRO    125    
                          TEMP = ADDRESS(DEBUG(DRL+N+1))                                     BUGPRO    126    
                          IF (TEMP .EQ. 0) GO TO 80                                          BUGPRO    127    
       240                LNG ROU = LENGTH(DEBUG(SDBGIND + TEMP))                            BUGPRO    128    
                          BASE ADD = BASE ADD - LNG ROU                                      BUGPRO    129    
                          IF (LNG ROU .EQ. 0) GO TO 80                                       BUGPRO    130    
                          CALL RDMS1 (DEBUG(BASE ADD), LNG ROU, ADDRESS(DEBUG(DRL+N+1)))     BUGPRO    131    
                          GO TO 80                                                           BUGPRO    132    
       245             70 IF (NN .EQ. 0) GO TO 73                                            BUGPRO    133    
                       72 NN = NN - 2                                                        BUGPRO    134    
                          IF (NN .LT. 0) GO TO 73                                            BUGPRO    135    
                          TEMP = ADDRESS(DEBUG(IDRL + NN + 1))                               BUGPRO    136    
                          IF (TEMP .EQ. 0) GO TO 72                                          BUGPRO    137    
       250                LNG ROU = LENGTH(DEBUG(SDBGIND + TEMP))                            BUGPRO    138    
                          BASE ADD = BASE ADD - LNG ROU                                      BUGPRO    139    
                          IF (LNG ROU .EQ. 0) GO TO 72                                       BUGPRO    140    
                          CALL RDMS1 ( DEBUG(BASE ADD), LNG ROU, ADDRESS(DEBUG(IDRL+NN+1)))  BUGPRO    141    
                          GO TO 72                                                           BUGPRO    142    
       255             73 SAREA = BASE ADD                                                   BUGPRO    143    
                          EFIDIT = AREAEND                                                   BUGPRO    144    
                          FIDIT = SAREA                                                      BUGPRO    145    
                          FT ADD = 0                                                         BUGPRO    146    
                          N = 0                                                              BUGPRO    147    
       260                AREAEND = AREAEND - SAREA                                          BUGPRO    148    
                      550 FT ADD = FT ADD + N                                                BUGPRO    149    
                          IF (AREAEND .LE. FT ADD) GO TO 90                                  BUGPRO    150    
                    C                                                                        BUGPRO    151    
                    C  GET NEXT WORD OF AREA LIST.  IF OPTIONS WORD, BRING CORRESPONDING     BUGPRO    152    
       265          C  OPTION IN FROM DISK.                                                  BUGPRO    153    
                          RECORD = ADDRESS(DEBUG(SAREA + FT ADD))                            BUGPRO    154    
                          IF (RECORD .EQ. 0) GO TO 600                                       BUGPRO    155    
                          LNG OPT = LENGTH(DEBUG(SDBGIND + RECORD))                          BUGPRO    156    
                          BASE ADD = BASE ADD - LNG OPT                                      BUGPRO    157    
       270                IF (LNG OPT .EQ. 0) GO TO 602                                      BUGPRO    158    
                          CALL RDMS1 ( DEBUG(BASE ADD), LNG OPT, RECORD)                     BUGPRO    159    
                      602 FT ADD = FT ADD +1                                                 BUGPRO    160    
                    C                                                                        BUGPRO    161    
                    C  IF B-CELL, .OR. IN FWA OPTIONS LIST.  SET UP -FROM- BOUND LIST LINKS. BUGPRO    162    
       275          C                                                                        BUGPRO    163    
                      600 DEBUG(SAREA + FT ADD) = DEBUG(SAREA + FT ADD) .OR. BASE ADD        BUGPRO    164    
                          TO FM = 1                                                          BUGPRO    165    
                          BD ADD = FT ADD + 1                                                BUGPRO    166    
                          BDS ADD = FT ADD + 3                                               BUGPRO    167    
       280                IF ((SHIFT(DEBUG(SAREA + FT ADD), 2).AND. 3) - 1) 100, 200, 300    BUGPRO    168    
                      100 IF (ADDRESS(SHIFT(FM LIST, 20)) .NE. 0) GO TO 110                  BUGPRO    169    
                          FM LIST = FM LIST .OR. SHIFT(BD ADD, 40)                           BUGPRO    170    
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0 
                          N = 3                                                              BUGPRO    171    
                          GO TO 400                                                          BUGPRO    172    
       285            110 ITEM = SHIFT(DEBUG(SAREA + BDSADD) .AND. MASK(30),30)              BUGPRO    173    
                          NEXT = ADDRESS(SHIFT(FM LIST, 20))                                 BUGPRO    174    
                          CALL PUT                                                           BUGPRO    175    
                          N = 3                                                              BUGPRO    176    
                          GO TO 400                                                          BUGPRO    177    
       290            200 IF (ADDRESS(SHIFT(FM LIST, -20)) .NE. 0) GO TO 210                 BUGPRO    178    
                          FM LIST = FM LIST .OR. SHIFT(BD ADD, 20)                           BUGPRO    179    
                          N = 3                                                              BUGPRO    180    
                          GO TO 400                                                          BUGPRO    181    
                      210 ITEM = SHIFT(DEBUG(SAREA + BDSADD) .AND. MASK(30),30)              BUGPRO    182    
       295                NEXT = ADDRESS(SHIFT(FM LIST, -20))                                BUGPRO    183    
                          CALL PUT                                                           BUGPRO    184    
                          N = 3                                                              BUGPRO    185    
                          GO TO 400                                                          BUGPRO    186    
                      300 NXT ITEM = 1                                                       BUGPRO    187    
       300                NEXT = SHIFT(ADDRESS(FM LIST), 42)                                 BUGPRO    188    
                          CUR UP DT(1) = DEBUG(SAREA + BDSADD) .AND..NOT. MINZERO            BUGPRO    189    
                          CUR UP DT(2) = SHIFT(DEBUG(SAREA + BDSADD) .AND. MINZERO, 48)      BUGPRO    190    
                         ,   .OR. SHIFT(DEBUG(SAREA + BDSADD + 1) .AND. MASK(30), -12)       BUGPRO    191    
                          CALL PUT UP DT                                                     BUGPRO    192    
       305                N = 4                                                              BUGPRO    193    
                    C                                                                        BUGPRO    194    
                    C  SET THE -TO- BOUND LIST LINKS                                         BUGPRO    195    
                    C                                                                        BUGPRO    196    
                      400 BD ADD = BD ADD + 1                                                BUGPRO    197    
       310                TO FM = 0                                                          BUGPRO    198    
                          BDS ADD = FT ADD + N                                               BUGPRO    199    
                          IF ((SHIFT(DEBUG(SAREA + FT ADD), 4) .AND. 3) - 1) 410, 410, 500   BUGPRO    200    
                      410 N = N + 1                                                          BUGPRO    201    
                          GO TO 550                                                          BUGPRO    202    
       315            500 NXT ITEM = -1                                                      BUGPRO    203    
                          NEXT = SHIFT(ADDRESS(FM LIST), 42)                                 BUGPRO    204    
                          CUR UP DT(1) = (SHIFT(DEBUG(SAREA + BDSADD), 30) .AND. MASK(30))   BUGPRO    205    
                         ,    .OR. (SHIFT(ADDRESS(SHIFT(DEBUG(SAREA+BDS ADD+1), 18)), 12))   BUGPRO    206    
                          CUR UP DT(2) = SHIFT(DEBUG(SAREA + BDS ADD + 1), 18).AND.MASK(42)  BUGPRO    207    
       320                CALL PUT UP DT                                                     BUGPRO    208    
                          N = N + 2                                                          BUGPRO    209    
                          GO TO 550                                                          BUGPRO    210    
                    C                                                                        BUGPRO    211    
                    C  BRING THE DVL FROM DISK AND ADD ITS ENTRIES TO THE SYMBOL TABLE       BUGPRO    212    
       325          C                                                                        BUGPRO    213    
                       90 IF (LNG DVL .EQ. 0) GO TO 900                                      BUGPRO    214    
                          TEMP = 2 * LNG DVL                                                 BUGPRO    215    
                          CALL DMVWDS ( ELIST-ELAST+1, DEBUG(ELAST), DEBUG(ELAST-TEMP) )     BUGPRO    216    
                          ELAST = ELAST - TEMP                                               BUGPRO    217    
       330                ELIST = ELIST - TEMP                                               BUGPRO    218    
                          LELIST = LELIST - TEMP                                             BUGPRO    219    
                          CALL FIXPNTR                                                       BUGPRO    220    
                          CALL RDMS1 ( DEBUG(DOLAST + LNG IND + 1), LNG DVL, INDEX NO + 1)   BUGPRO    221    
                          DVL = DOLAST + LNG IND + 1                                         BUGPRO    222    
       335                EDVL = DVL + LNG DVL                                               BUGPRO    223    
                      610 DVL = DVL + 1                                                      BUGPRO    224    
                          IF (DVL.EQ.EDVL) GO TO 620                                         BUGPRO    225    
                          CALL DSYMTAB(DEBUG(DVL),OH)                                        BUGPRO    226    
                          DEBUG(DVL) = DRLELT(SHIFT(DEBUG(DVL), 12) ) .OR. OH                BUGPRO    227    
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0 
       340                GO TO 610                                                          BUGPRO    228    
                    C                                                                        BUGPRO    229    
                    C  GO THROUGH THE OPTIONS LISTS AND REPLACE DVL ORDINALS WITH SYMBOL     BUGPRO    230    
                    C  TABLE ORDINALS                                                        BUGPRO    231    
                    C                                                                        BUGPRO    232    
       345            620 DFOPL = BASEADD - 1                                                BUGPRO    233    
                          DVL = DOLAST + LNG IND + 1                                         BUGPRO    234    
                          OPENFL = -1                                                        BUGPRO    235    
                      630 DFOPL = DFOPL + 1                                                  BUGPRO    236    
                          IF (DFOPL .EQ. SAREA) GO TO 900                                    BUGPRO    237    
       350                MULT = 5                                                           BUGPRO    238    
                      750 CALL GET OUT                                                       BUGPRO    239    
                          IF((OH.EQ.MINZERO) .OR. (OH.EQ.0)) GO TO 630                       BUGPRO    240    
                          GO TO (700, 700, 700, 710, 710, 700, 720, 730, 630) OH             BUGPRO    241    
                      700 CALL GET OUT                                                       BUGPRO    242    
       355                IF (OH.EQ.0) GO TO 750                                             BUGPRO    243    
                          IF (OH .EQ. MINZERO) GO TO 630                                     BUGPRO    244    
                          DFNESTW = DFOPL                                                    BUGPRO    245    
                          DFNEST = MULT                                                      BUGPRO    246    
                          OH = DEBUG(DVL + OH) .AND. MINZERO                                 BUGPRO    247    
       360                CALL PUT IN                                                        BUGPRO    248    
                          GO TO 700                                                          BUGPRO    249    
                      710 CALL GET OUT                                                       BUGPRO    250    
                          IF (OH.EQ.0) GO TO 750                                             BUGPRO    251    
                          IF (OH.EQ.MINZERO) 630, 710                                        BUGPRO    252    
       365            720 DFOPL = DFOPL + 1                                                  BUGPRO    253    
                      640 DEBUG(DFOPL) = (DEBUG(DFOPL).AND.SHIFT(MASK(42), 60-12)) .OR.      BUGPRO    254    
                         , SHIFT(DEBUG(DVL + (SHIFT(DEBUG(DFOPL),12).AND.MINZERO)) .AND.     BUGPRO    255    
                         , MINZERO, 48)                                                      BUGPRO    256    
                          IF (BITON(DEBUG(DFOPL),VARBIT(1)))                                 BUGPRO    257    
       370               ,    DEBUG(DFOPL)  =  (DEBUG(DFOPL) .AND. SHIFT(MASK(48), 30)) .OR. BUGPRO    258    
                         ,     SHIFT((DEBUG(DVL + (SHIFT(DEBUG(DFOPL),30) .AND. MINZERO))    BUGPRO    259    
                         ,     .AND. MINZERO), 29)                                           BUGPRO    260    
                          MULT = 5                                                           BUGPRO    261    
                          DFOPL = DFOPL + 1                                                  BUGPRO    262    
       375                CALL GET OUT                                                       BUGPRO    263    
                          IF (OH.EQ.0) GO TO 750                                             BUGPRO    264    
                          IF (OH.EQ.MINZERO) 630, 640                                        BUGPRO    265    
                      730 DFOPL = DFOPL + 1                                                  BUGPRO    266    
                          MULT = 0                                                           BUGPRO    267    
       380                CALL GET OUT                                                       BUGPRO    268    
                          IF (OH.EQ.0) 750, 630                                              BUGPRO    269    
                      900 IF ( ADDRESS(SHIFT(FM LIST, 20)).EQ. 0) GO TO 999                  BUGPRO    270    
                          IF (DUKE1 - 1 .EQ. 0) RETURN                                       BUGPRO    271    
                          DUKE1 = DUKE1 - 1                                                  BUGPRO    272    
       385                P ADD = 1                                                          BUGPRO    273    
                          TO FM = 1                                                          BUGPRO    274    
                          BD ADD = 0                                                         BUGPRO    275    
                          DO 910 ITEM = 1, DUKE1, 1                                          BUGPRO    276    
                          NEXT = ADDRESS(SHIFT(FM LIST, 20) )                                BUGPRO    277    
       390                CALL PUT                                                           BUGPRO    278    
                          IF (NEXT .EQ. 0) GO TO 910                                         BUGPRO    279    
                      905 DFOPL = ADDRESS(DEBUG(SAREA + NEXT - 1) )                          BUGPRO    280    
                          CALL TURN ON                                                       BUGPRO    281    
                          BD ADD = 0                                                         BUGPRO    282    
       395                NEXT = ADDRESS(SHIFT(DEBUG(SAREA + NEXT), -20) )                   BUGPRO    283    
                          IF (NEXT .NE. 0) GO TO 905                                         BUGPRO    284    
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     6
0 
                      910 CONTINUE                                                           BUGPRO    285    
                          IF (ADDRESS(SHIFT(TO LIST, 20)).EQ. 0) GO TO 930                   BUGPRO    286    
                          TO FM = 0                                                          BUGPRO    287    
       400                DO 920 ITEM = 1, DUKE1, 1                                          BUGPRO    288    
                          NEXT = ADDRESS(SHIFT(TO LIST,20) )                                 BUGPRO    289    
                          CALL PUT                                                           BUGPRO    290    
                          IF (NEXT .EQ. 0) GO TO 920                                         BUGPRO    291    
                      915 DFOPL = ADDRESS(DEBUG(SAREA + NEXT - 2) )                          BUGPRO    292    
       405                CALL TURN OFF                                                      BUGPRO    293    
                          NEXT = ADDRESS(SHIFT(DEBUG(SAREA + NEXT), -20) )                   BUGPRO    294    
                          IF (NEXT .NE. 0) GO TO 915                                         BUGPRO    295    
                      920 CONTINUE                                                           BUGPRO    296    
                      930 DUKE1 = DUKE1 + 1                                                  BUGPRO    297    
       410                P ADD = 0                                                          BUGPRO    298    
                      999 CALL WRTMS4                                                        BUGPRO    299    
                          CUR UP DT (1) = SAV UP DT (1)                                      BUGPRO    300    
                          CUR UP DT (2) = SAV UP DT (2)                                      BUGPRO    301    
                          LNG DRL = LNDRLSV                                                  BUGPRO    302    
       415                LNG DVL = LNDVLSV                                                  BUGPRO    303    
                          RETURN                                                             BUGPRO    304    
                          END                                                                BUGPRO    305    
- 
0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM
  
       388    I               CONTROL VARIABLE IN COMMON OR EQUIVALENCED, OPTIMIZATION MAY BE INHIBITED.
       400    I               CONTROL VARIABLE IN COMMON OR EQUIVALENCED, OPTIMIZATION MAY BE INHIBITED.
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  BUGPRO  
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     7
0  VARIABLES     SN  TYPE           RELOCATION  
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     742  IDRL      INTEGER                            205  INDEF     INTEGER             DBGBLK3 
     113  INDEXNO   INTEGER             DBGBLK2          2  ITEM      INTEGER             DBGBLK3 
      42  LDEBUG    INTEGER             DBGBLK2         14  LELIST    INTEGER             DBGBLK2 
     106  LEVEL     INTEGER             DBGBLK3        115  LEVSHFT   INTEGER             DBGBLK3 
      47  LFLAG     LOGICAL             DBGBLK2        734  LNDRLSV   INTEGER                     
     736  LNDVLSV   INTEGER                            735  LNGDRL    INTEGER                     
     737  LNGDVL    INTEGER                             57  LNGIND    INTEGER             DBGBLK2 
     744  LNGOPT    INTEGER                            743  LNGROU    INTEGER                     
     160  LPAREN    INTEGER             DBGBLK3        113  LSHIFT    INTEGER             DBGBLK3 
     154  LSTLINE   INTEGER             DBGBLK3         46  LTFLAG    LOGICAL             DBGBLK2 
      66  M         INTEGER             DBGBLK3          4  MINZERO   INTEGER             DBGBLK3 
      74  MISFLAG   INTEGER             DBGBLK3          5  MULT      INTEGER             DBGBLK3 
     741  N         INTEGER                             23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
      12  NFIELD    INTEGER             DBGBLK3        740  NN        INTEGER                     
      60  NOACT     INTEGER             DBGBLK2        105  NOCONST   INTEGER             DBGBLK3 
       4  NOGOFLG   INTEGER             DBGBLK1        120  NOLIN     INTEGER             DBGBLK3 
     107  NOOFWDS   INTEGER             DBGBLK3         50  NOPROG    INTEGER             DBGBLK2 
      35  NUMERR    INTEGER             DBGBLK2        110  NXTADD    INTEGER             DBGBLK3 
     112  NXTADD1   INTEGER             DBGBLK3        133  NXTITEM   INTEGER             DBGBLK3 
      20  NXTSTR    INTEGER             DBGBLK3        114  NXTSTR1   INTEGER             DBGBLK3 
       6  OH        INTEGER             DBGBLK3         71  OPDRL     INTEGER             DBGBLK3 
      40  OPENFL    INTEGER             DBGBLK2         65  OPREC     INTEGER             DBGBLK3 
     163  OPWORD    INTEGER             DBGBLK3        175  OVRFLOW   INTEGER             DBGBLK3 
      36  PADD      INTEGER             DBGBLK2        114  PHSFLAG   INTEGER             DBGBLK2 
      21  POINT     INTEGER             DBGBLK3         32  POW       INTEGER             DBGBLK2 
     146  PREDBG    INTEGER    ARRAY    DBGBLK3        206  RANGE     INTEGER             DBGBLK3 
      43  RECORD    INTEGER             DBGBLK2         12  REFMAP    INTEGER             DBGBLK2 
     201  RELFLAG   INTEGER             DBGBLK3        104  RELOP     INTEGER             DBGBLK3 
     202  ROUNAME   INTEGER             DBGBLK3        157  RPAREN    INTEGER             DBGBLK3 
     122  RTAB      INTEGER    ARRAY    DBGBLK3         11  SAASI     INTEGER             DBGBLK2 
     152  SAMLINE   INTEGER             DBGBLK3          4  SAREA     INTEGER             DBGBLK2 
      17  SASI      INTEGER             DBGBLK3        174  SAVEOH    INTEGER             DBGBLK3 
      24  SAVUPDT   INTEGER    ARRAY    DBGBLK3        112  SCNUPDT   INTEGER             DBGBLK2 
      24  SDBGIND   INTEGER             DBGBLK2          0  SDRL      INTEGER             DBGBLK2 
       2  SDVL      INTEGER             DBGBLK2        161  SLASH     INTEGER             DBGBLK3 
       7  SPIDER    INTEGER             DBGBLK1         67  SPIDIS    INTEGER             DBGBLK3 
       7  SSYMTAB   INTEGER             DBGBLK2        155  STAR      INTEGER             DBGBLK3 
     150  STAR1     INTEGER             DBGBLK3        151  STAR2     INTEGER             DBGBLK3 
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     8
0  VARIABLES     SN  TYPE           RELOCATION  
      72  STOSWAP   INTEGER             DBGBLK3         45  SUCCESS   INTEGER             DBGBLK2 
      10  SYMTAB    INTEGER             DBGBLK3        173  SYMTABB   INTEGER             DBGBLK3 
     116  TAASI     INTEGER             DBGBLK3         16  TEMP      INTEGER             DBGBLK3 
      22  TEMP1     INTEGER             DBGBLK3        164  TLNG      INTEGER             DBGBLK3 
     101  TOBOUND   INTEGER             DBGBLK3          1  TOFM      INTEGER             DBGBLK3 
     134  TOLIST    INTEGER             DBGBLK3        203  TOSHIFT   INTEGER             DBGBLK3 
     170  TOTLNG    INTEGER             DBGBLK3        117  TRACED    INTEGER             DBGBLK3 
       5  TRACEL    INTEGER             DBGBLK1         73  TRACEON   INTEGER             DBGBLK3 
      26  TRCADD    INTEGER             DBGBLK3        172  UPDIS     INTEGER             DBGBLK3 
      65  UPDTTBL   INTEGER    ARRAY    DBGBLK2        171  UPNO      INTEGER             DBGBLK3 
     204  VALUE     INTEGER             DBGBLK3 
  
   EXTERNALS          TYPE   ARGS     
          DMVWDS               3                            DSYMTAB              2                
          FIXPNTR              0                            GETOUT               0                
          PUT                  0                            PUTIN                0                
          PUTUPDT              0                            RDMS1                3                
          TURNOFF              0                            TURNON               0                
          WRTMS1               0                            WRTMS4               0                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
      30  10                                  53  11                                  71  20                          
      23  30                                 104  40                                 117  50                          
     147  51                                 121  52                                 134  53                          
      16  60                                 235  70                                 702  71      FMT                 
     236  72                                 254  73                                 217  80                          
     171  81                                 405  90                                   0  100         INACTIVE        
     316  110                                327  200                                335  210                         
     346  300                                361  400                                  0  410         INACTIVE        
     371  500                                261  550                                301  600                         
     277  602                                435  610                                447  620                         
     454  630                                522  640                                502  700                         
     514  710                                520  720                                543  730                         
     460  750                                551  900                                564  905                         
     576  910                                611  915                                622  920                         
     625  930                                630  999                                714  10020   FMT                 
1         SUBROUTINE BUGPRO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     9
0  LOOPS  LABEL    INDEX     FROM-TO    LENGTH    PROPERTIES
     560  910      ITEM       388 397      21B              EXT REFS          
     605  920      ITEM       400 408      20B              EXT REFS          
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                745B     485 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE PUTIN      74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE PUT IN                                                  PUTIN       2    
                    C                                                                        PUTIN       3    
                    C  THIS SUBROUTINE PUTS A 12-BIT -OH- FIELD INTO THE NEXT AVAILABLE      PUTIN       4    
                    C  12-BIT FIELD OF THE OPTIONS LIST.                                     PUTIN       5    
         5          C  ENTRY: DFNESTW = THE ADDRESS OF THE CURRENT OPTION WORD IN THE        PUTIN       6    
                    C                   OPTIONS LIST                                         PUTIN       7    
                    C         OH = THE 12-BIT FIELD TO BE ENTERED IN THE OPTIONS LIST        PUTIN       8    
                    C         DFNEST = A POINTER TO THE NEXT AVAILABLE 12-BIT FIELD IN THE   PUTIN       9    
                    C                  OPTIONS LIST                                          PUTIN      10    
        10          C         ELAST = THE ENDING ADDRESS OF ELIST                            PUTIN      11    
                    C  UPON EXIT, DFNEST AND DFNESTW ARE UPDATED.                            PUTIN      12    
                    C                                                                        PUTIN      13    
                                                                                             LDBGCOM     2    
        14          C/    LIST,NONE                                                          LDBGCOM     3    
       126          C/    LIST,ALL                                                           LDBGCOM     5    
                          DEBUG(DFNESTW) = (DEBUG(DFNESTW) .AND.                             PUTIN      15    
                         ,    ( .NOT.SHIFT(MINZERO, 12*DFNEST))) .OR.                        PUTIN      16    
                         ,    SHIFT( OH, 12 * DFNEST)                                        PUTIN      17    
       130                DFNEST = DFNEST - 1                                                PUTIN      18    
                          IF (DFNEST .GE. 0) RETURN                                          PUTIN      19    
                          DFNEST = 4                                                         PUTIN      20    
                          DFNESTW = DFNESTW + 1                                              PUTIN      21    
                          IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (10)                  PUTIN      22    
       135                IF (OPENFL .GE. 0) DEBUG(DFNESTW)= 0                               PUTIN      23    
                          RETURN                                                             PUTIN      24    
                       10 DEBUG(DFNESTW - 1) = DEBUG(DFNESTW - 1) .OR. MINZERO               PUTIN      25    
                          POW = 0                                                            PUTIN      26    
                          CALL BUGCLO                                                        PUTIN      27    
       140                RETURN                                                             PUTIN      28    
                          END                                                                PUTIN      29    
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       1  PUTIN   
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
1         SUBROUTINE PUTIN      74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0  VARIABLES     SN  TYPE           RELOCATION  
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
     205  INDEF     INTEGER             DBGBLK3        113  INDEXNO   INTEGER             DBGBLK2 
       2  ITEM      INTEGER             DBGBLK3         42  LDEBUG    INTEGER             DBGBLK2 
      14  LELIST    INTEGER             DBGBLK2        106  LEVEL     INTEGER             DBGBLK3 
     115  LEVSHFT   INTEGER             DBGBLK3         47  LFLAG     LOGICAL             DBGBLK2 
      57  LNGIND    INTEGER             DBGBLK2        160  LPAREN    INTEGER             DBGBLK3 
     113  LSHIFT    INTEGER             DBGBLK3        154  LSTLINE   INTEGER             DBGBLK3 
      46  LTFLAG    LOGICAL             DBGBLK2         66  M         INTEGER             DBGBLK3 
       4  MINZERO   INTEGER             DBGBLK3         74  MISFLAG   INTEGER             DBGBLK3 
       5  MULT      INTEGER             DBGBLK3         23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
      12  NFIELD    INTEGER             DBGBLK3         60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
     175  OVRFLOW   INTEGER             DBGBLK3         36  PADD      INTEGER             DBGBLK2 
     114  PHSFLAG   INTEGER             DBGBLK2         21  POINT     INTEGER             DBGBLK3 
      32  POW       INTEGER             DBGBLK2        146  PREDBG    INTEGER    ARRAY    DBGBLK3 
     206  RANGE     INTEGER             DBGBLK3         43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
     104  RELOP     INTEGER             DBGBLK3        202  ROUNAME   INTEGER             DBGBLK3 
     157  RPAREN    INTEGER             DBGBLK3        122  RTAB      INTEGER    ARRAY    DBGBLK3 
      11  SAASI     INTEGER             DBGBLK2        152  SAMLINE   INTEGER             DBGBLK3 
       4  SAREA     INTEGER             DBGBLK2         17  SASI      INTEGER             DBGBLK3 
     174  SAVEOH    INTEGER             DBGBLK3         24  SAVUPDT   INTEGER    ARRAY    DBGBLK3 
     112  SCNUPDT   INTEGER             DBGBLK2         24  SDBGIND   INTEGER             DBGBLK2 
       0  SDRL      INTEGER             DBGBLK2          2  SDVL      INTEGER             DBGBLK2 
     161  SLASH     INTEGER             DBGBLK3          7  SPIDER    INTEGER             DBGBLK1 
      67  SPIDIS    INTEGER             DBGBLK3          7  SSYMTAB   INTEGER             DBGBLK2 
     155  STAR      INTEGER             DBGBLK3        150  STAR1     INTEGER             DBGBLK3 
     151  STAR2     INTEGER             DBGBLK3         72  STOSWAP   INTEGER             DBGBLK3 
      45  SUCCESS   INTEGER             DBGBLK2         10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
1         SUBROUTINE PUTIN      74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0  VARIABLES     SN  TYPE           RELOCATION  
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
  
   EXTERNALS          TYPE   ARGS     
          BUGCLO               0                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MINUS     INTEGER    1    SF                      NOTBIT    INTEGER    1    SF          
          NOTDBG    INTEGER    1    SF                      PLACE     INTEGER    1    SF          
          PLUS      INTEGER    1    SF                      SFBIT     INTEGER    1    SF          
          SHIFT     NO TYPE    2  INTRIN                    TLENGTH   INTEGER    1    SF          
          TYPE      INTEGER    1    SF                      TYPEFLD   INTEGER    1    SF          
          VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
      21  10                          
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                 31B      25 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE SETARR     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE SETARR, RETURNS(I)                                      SETARR      2    
                    C                                                                        SETARR      3    
                    C  THIS ROUTINE IS USED TO OBTAIN ORDINALS OF ENTRIES IN DYDIT.          SETARR      4    
                    C  ENTRY: ASHIFT =  8 NEED AASI FOR ARRAYS OPTION, CHECK FOR REFS        SETARR      5    
         5          C                = 38 NEED AASI FOR STORES OPTION, CHECK FOR REFS        SETARR      6    
                    C                = 10 NEED AASI FOR STORES OPTION W/ RELATIONAL OPS      SETARR      7    
                    C                =  0 NEED FREE AASI WORD                                SETARR      8    
                    C                = -1 NEED AASI, NO CHECKS                               SETARR      9    
                    C         OH = THE SYMBOL TABLE ORDINAL OF THE CURRENT SYMBOL            SETARR     10    
        10          C         SSYMTAB = THE BEGINNING ADDRESS OF THE SYMBOL TABLE            SETARR     11    
                    C         SAASI   = THE BEGINNING ADDRESS OF AASI                        SETARR     12    
                    C         SFIDIT  = THE BEGINNING ADDRESS OF THE FIXED AREA LIST         SETARR     13    
                    C  EXIT:  NORMAL RETURN = AASI FOUND                                     SETARR     14    
                    C                  AASI = ORDINAL OF FOUND AASI IN DYDIT                 SETARR     15    
        15          C         RETURNS I = (1) AASI NOT FOUND                                 SETARR     16    
                    C                             OR                                         SETARR     17    
                    C                     (2) TOO MANY REFS FOR SPECIFIED OPTION             SETARR     18    
                                                                                             LDBGCOM     2    
        19          C/    LIST,NONE                                                          LDBGCOM     3    
       131          C/    LIST,ALL                                                           LDBGCOM     5    
                          IF (ASHIFT.EQ.0) GO TO 10                                          SETARR     20    
                          AASI = SHIFT(DEBUG(SSYMTAB-OH-1), -19) .AND. MINZERO               SETARR     21    
                          IF (AASI.EQ.0) GO TO 10                                            SETARR     22    
       135                IF (ASHIFT.LT.0) RETURN                                            SETARR     23    
                          IF (SHIFT(DEBUG(SAASI+AASI), 59-ASHIFT) .GE. 0) RETURN             SETARR     24    
                          TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                 SETARR     25    
                          IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)        SETARR     26    
                          WRITE(DBGOUT, 11) TEMP                                             SETARR     27    
       140             11 FORMAT( * TOO MANY STORES OR ARRAYS OPTION REFERENCES FOR *, A7)   SETARR     28    
                          RETURN I                                                           SETARR     29    
                    C                                                                        SETARR     30    
                    C  HERE IF ONLY WANT WORD                                                SETARR     31    
                    C                                                                        SETARR     32    
       145             10 IF (ASHIFT.LT.0) RETURN I                                          SETARR     33    
                          IF (NO LIN .LT. 0) GO TO 220                                       SETARR     34    
                          NAASI = NAASI + 1                                                  SETARR     35    
                          IF ( (SAASI+NAASI) .EQ. FIDIT) GO TO 200                           SETARR     36    
                          AASI = NAASI                                                       SETARR     37    
       150                DEBUG(SAASI + AASI) = 0                                            SETARR     38    
                          RETURN                                                             SETARR     39    
                      200 NO LIN = -1                                                        SETARR     40    
                          NAASI = NAASI - 1                                                  SETARR     41    
                      220 IF (AASIADD.EQ.0) GO TO 300                                        SETARR     42    
       155                AASI = ADDRESS(DEBUG(AASIADD+SAASI))                               SETARR     43    
                          AASIADD = ADDRESS(DEBUG(SAASI+AASI))                               SETARR     44    
                          RETURN                                                             SETARR     45    
                    C                                                                        SETARR     46    
                    C  HERE IF HAVE TO ASK FOR MORE ROOM                                     SETARR     47    
       160          C                                                                        SETARR     48    
                      300 IF ((ELAST - 25).LE.DOLAST) GO TO 400                              SETARR     49    
                          CALL DMVWDS (FIDIT - ELAST + 1, DEBUG(ELAST), DEBUG(ELAST - 25) )  SETARR     50    
                          ELAST = ELAST - 25                                                 SETARR     51    
                          SSYMTAB = SSYMTAB - 25                                             SETARR     52    
       165                ESYMTAB = ESYMTAB - 25                                             SETARR     53    
                          SYMTAB B = SYMTAB B - 25                                           FCC1109X    7    
                          SAASI = SAASI - 25                                                 SETARR     54    
                          NAASI = NAASI + 1                                                  SETARR     55    
1         SUBROUTINE SETARR     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                          AASI = NAASI                                                       SETARR     56    
       170                CALL FIXPNTR                                                       SETARR     57    
                          DEBUG(SAASI + AASI) = 0                                            SETARR     58    
                          RETURN                                                             SETARR     59    
                      400 WRITE(DBGOUT, 401)                                                 SETARR     60    
                      401 FORMAT( * REQUEST FOR AASI WORD DENIED.  ASK FOR MORE CORE. *)     SETARR     61    
       175                RETURN I                                                           SETARR     62    
                          END                                                                SETARR     63    
- 
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  SETARR  
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
       0  I         RETURNS                            205  INDEF     INTEGER             DBGBLK3 
     113  INDEXNO   INTEGER             DBGBLK2          2  ITEM      INTEGER             DBGBLK3 
      42  LDEBUG    INTEGER             DBGBLK2         14  LELIST    INTEGER             DBGBLK2 
1         SUBROUTINE SETARR     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0  VARIABLES     SN  TYPE           RELOCATION  
     106  LEVEL     INTEGER             DBGBLK3        115  LEVSHFT   INTEGER             DBGBLK3 
      47  LFLAG     LOGICAL             DBGBLK2         57  LNGIND    INTEGER             DBGBLK2 
     160  LPAREN    INTEGER             DBGBLK3        113  LSHIFT    INTEGER             DBGBLK3 
     154  LSTLINE   INTEGER             DBGBLK3         46  LTFLAG    LOGICAL             DBGBLK2 
      66  M         INTEGER             DBGBLK3          4  MINZERO   INTEGER             DBGBLK3 
      74  MISFLAG   INTEGER             DBGBLK3          5  MULT      INTEGER             DBGBLK3 
      23  NAASI     INTEGER             DBGBLK2         63  NDRL      INTEGER             DBGBLK3 
       0  NEXT      INTEGER             DBGBLK3         12  NFIELD    INTEGER             DBGBLK3 
      60  NOACT     INTEGER             DBGBLK2        105  NOCONST   INTEGER             DBGBLK3 
       4  NOGOFLG   INTEGER             DBGBLK1        120  NOLIN     INTEGER             DBGBLK3 
     107  NOOFWDS   INTEGER             DBGBLK3         50  NOPROG    INTEGER             DBGBLK2 
      35  NUMERR    INTEGER             DBGBLK2        110  NXTADD    INTEGER             DBGBLK3 
     112  NXTADD1   INTEGER             DBGBLK3        133  NXTITEM   INTEGER             DBGBLK3 
      20  NXTSTR    INTEGER             DBGBLK3        114  NXTSTR1   INTEGER             DBGBLK3 
       6  OH        INTEGER             DBGBLK3         71  OPDRL     INTEGER             DBGBLK3 
      40  OPENFL    INTEGER             DBGBLK2         65  OPREC     INTEGER             DBGBLK3 
     163  OPWORD    INTEGER             DBGBLK3        175  OVRFLOW   INTEGER             DBGBLK3 
      36  PADD      INTEGER             DBGBLK2        114  PHSFLAG   INTEGER             DBGBLK2 
      21  POINT     INTEGER             DBGBLK3         32  POW       INTEGER             DBGBLK2 
     146  PREDBG    INTEGER    ARRAY    DBGBLK3        206  RANGE     INTEGER             DBGBLK3 
      43  RECORD    INTEGER             DBGBLK2         12  REFMAP    INTEGER             DBGBLK2 
     201  RELFLAG   INTEGER             DBGBLK3        104  RELOP     INTEGER             DBGBLK3 
     202  ROUNAME   INTEGER             DBGBLK3        157  RPAREN    INTEGER             DBGBLK3 
     122  RTAB      INTEGER    ARRAY    DBGBLK3         11  SAASI     INTEGER             DBGBLK2 
     152  SAMLINE   INTEGER             DBGBLK3          4  SAREA     INTEGER             DBGBLK2 
      17  SASI      INTEGER             DBGBLK3        174  SAVEOH    INTEGER             DBGBLK3 
      24  SAVUPDT   INTEGER    ARRAY    DBGBLK3        112  SCNUPDT   INTEGER             DBGBLK2 
      24  SDBGIND   INTEGER             DBGBLK2          0  SDRL      INTEGER             DBGBLK2 
       2  SDVL      INTEGER             DBGBLK2        161  SLASH     INTEGER             DBGBLK3 
       7  SPIDER    INTEGER             DBGBLK1         67  SPIDIS    INTEGER             DBGBLK3 
       7  SSYMTAB   INTEGER             DBGBLK2        155  STAR      INTEGER             DBGBLK3 
     150  STAR1     INTEGER             DBGBLK3        151  STAR2     INTEGER             DBGBLK3 
      72  STOSWAP   INTEGER             DBGBLK3         45  SUCCESS   INTEGER             DBGBLK2 
      10  SYMTAB    INTEGER             DBGBLK3        173  SYMTABB   INTEGER             DBGBLK3 
     116  TAASI     INTEGER             DBGBLK3         16  TEMP      INTEGER             DBGBLK3 
      22  TEMP1     INTEGER             DBGBLK3        164  TLNG      INTEGER             DBGBLK3 
     101  TOBOUND   INTEGER             DBGBLK3          1  TOFM      INTEGER             DBGBLK3 
     134  TOLIST    INTEGER             DBGBLK3        203  TOSHIFT   INTEGER             DBGBLK3 
     170  TOTLNG    INTEGER             DBGBLK3        117  TRACED    INTEGER             DBGBLK3 
       5  TRACEL    INTEGER             DBGBLK1         73  TRACEON   INTEGER             DBGBLK3 
      26  TRCADD    INTEGER             DBGBLK3        172  UPDIS     INTEGER             DBGBLK3 
      65  UPDTTBL   INTEGER    ARRAY    DBGBLK2        171  UPNO      INTEGER             DBGBLK3 
     204  VALUE     INTEGER             DBGBLK3 
  
   EXTERNALS          TYPE   ARGS     
          DMVWDS               3                            FIXPNTR              0                
          FSTRIP    INTEGER    1                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
1         SUBROUTINE SETARR     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0  INLINE FUNCTIONS   TYPE   ARGS     
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MINUS     INTEGER    1    SF                      NOTBIT    INTEGER    1    SF          
          NOTDBG    INTEGER    1    SF                      PLACE     INTEGER    1    SF          
          PLUS      INTEGER    1    SF                      SFBIT     INTEGER    1    SF          
          SHIFT     NO TYPE    2  INTRIN                    TLENGTH   INTEGER    1    SF          
          TYPE      INTEGER    1    SF                      TYPEFLD   INTEGER    1    SF          
          VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
      32  10                                 120  11      FMT                         45  200                         
      50  220                                 56  300                                103  400                         
     132  401     FMT                 
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                142B      98 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1         SUBROUTINE BUGCLO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     1
0 
         1                SUBROUTINE BUGCLO, RETURNS(I)                                      BUGCLO      2    
                    C                                                                        BUGCLO      3    
                    C  THIS SUBROUTINE TAKES DEBUG INFORMATION FROM CENTRAL MEMORY AND       BUGCLO      4    
                    C  PLACES IT IN A RANDOM FILE                                            BUGCLO      5    
         5          C  ENTRY: POW  = 0 ALL DEBUG TABLES ARE DUMPED TO DISK                   BUGCLO      6    
                    C            .NE.0 DUMP AS MANY AREA LISTS AS IS POSSIBLE TO DISK.       BUGCLO      7    
                    C                  THIS CONDITION HOLDS WHEN MORE ROOM IS NEEDED FOR     BUGCLO      8    
                    C                  EITHER AN OPTIONS OR AN AREA LIST.                    BUGCLO      9    
                    C         DFOPFLG  = 0 IF OPTIONS NOT IN CORE                            BUGCLO     10    
        10          C                .NE.0 IF OPTIONS ARE IN CORE                            BUGCLO     11    
                    C         AREAEND = THE ENDING ADDRESS OF THE AREA LIST                  BUGCLO     12    
                    C         DFNESTW = THE LAST ADDRESS OF THE OPTIONS LIST                 BUGCLO     13    
                    C         OPREC = THE RECORD NUMBER OF THE CURRENT OPTIONS LIST          BUGCLO     14    
                    C         SDRL = THE STARTING ADDRESS OF THE DRL                         BUGCLO     15    
        15          C         EDRL = THE ENDING ADDRESS OF THE DRL - SDRL                    BUGCLO     16    
                    C         SDVL = THE STARTING ADDRESS OF THE DVL                         BUGCLO     17    
                    C         EDVL = THE ENDING ADDRESS OF THE DVL - SDVL                    BUGCLO     18    
                    C         OPDRL = THE ORDINAL OF THE CURRENT OPTIONS LIST IN THE DRL     BUGCLO     19    
                    C                                                                        BUGCLO     20    
        20                                                                                   LDBGCOM     2    
        21          C/    LIST,NONE                                                          LDBGCOM     3    
       133          C/    LIST,ALL                                                           LDBGCOM     5    
                          IF (DFPACK .EQ. 0) RETURN I                                        BUGCLO     22    
       135                IF (DFNOGO .LT. 0) RETURN                                          BUGCLO     23    
                          IF (SDRL .NE. EDRL) GO TO 26                                       BUGCLO     24    
                          INDEXNO = 1                                                        BUGCLO     25    
                          RETURN                                                             BUGCLO     26    
                       26 IF (OPENFL .EQ. 0) CALL WRTMS1                                     BUGCLO     27    
       140          C  SEND THE OPTIONS TO DISK IF THEY ARE COMPLETE BUT STILL IN CORE       BUGCLO     28    
                          IF ((DFOPFLG .EQ. 0) .OR. (POW .NE. 0)) GO TO 20                   BUGCLO     29    
                          IF ( (DFNESTW - AREAEND) .EQ. 0) GO TO 22                          BUGCLO     30    
                          IF (DFNEST .NE. 4) GO TO 24                                        BUGCLO     31    
                          IF ( (DFNESTW - AREAEND - 1) .EQ. 0) GO TO 25                      BUGCLO     32    
       145                DFNEST = -1                                                        BUGCLO     33    
                          DFNESTW = DFNESTW - 1                                              BUGCLO     34    
                       24 DFNEST = DFNEST + 1                                                BUGCLO     35    
                       25 OH = MINZERO                                                       BUGCLO     36    
                          CALL PUT IN                                                        BUGCLO     37    
       150                CALL WRTMS2 (DEBUG(AREAEND + 1), DFNESTW - AREAEND, OPREC)         BUGCLO     38    
                          CALL WRTMS3                                                        BUGCLO     39    
                          IF (DFNEST .EQ. 4) DFNESTW = DFNESTW - 1                           BUGCLO     40    
                       22 DFOPFLG = 0                                                        BUGCLO     41    
                          DEBUG(SDBGIND + OPREC) = (DEBUG(SDBGIND + OPREC) .AND.             BUGCLO     42    
       155               ,   SHIFT(MASK(42), 24)) .OR. (SHIFT((DFNESTW - AREAEND), 24))      BUGCLO     43    
                          DEBUG(OPDRL + 1) = (DEBUG(OPDRL + 1) .AND.SHIFT(MASK(42), 24))     BUGCLO     44    
                         ,   .OR. SHIFT(DFNESTW - AREAEND, 24)                               BUGCLO     45    
                    C                                                                        BUGCLO     46    
                    C  SEND AREA LISTS TO DISK BY NAME OF ROUTINE                            BUGCLO     47    
       160          C                                                                        BUGCLO     48    
                       20 DRL = SDRL - 2                                                     BUGCLO     49    
                      310 IF (POW .GE. 0) GO TO 300                                          BUGCLO     50    
                          DRL = DRL + 2                                                      BUGCLO     51    
                          IF (DRL .EQ. EDRL) GO TO 320                                       BUGCLO     52    
       165                IF (ADDRESS(DEBUG(DRL)) .EQ. 0) GO TO 310                          BUGCLO     53    
                          DEBUG(DRL) = 0                                                     BUGCLO     54    
                          DEBUG(DRL+1) = 0                                                   BUGCLO     55    
                          GO TO 310                                                          BUGCLO     56    
1         SUBROUTINE BUGCLO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     2
0 
                      300 NO OF WDS = 0                                                      BUGCLO     57    
       170                DLFLG = 5                                                          BUGCLO     58    
                       70 RECORD = RECORD + 1                                                BUGCLO     59    
                          IF (RECORD .LT. LNGIND) GO TO 400                                  BUGCLO     60    
                      380 IF (ELAST - DFNESTW .GT. 50) GO TO 390                             BUGCLO     61    
                          IF (NO OF WDS .NE. 0) GO TO 330                                    BUGCLO     62    
       175                POW = -1                                                           BUGCLO     63    
                          GO TO 310                                                          BUGCLO     64    
                      330 CALL DMVWDS ( ELAST - (SAREA + NO OF WDS), DEBUG(SAREA +NOOFWDS),  BUGCLO     65    
                         ,    DEBUG(SAREA))                                                  BUGCLO     66    
                          AREAEND = AREAEND - NO OF WDS                                      BUGCLO     67    
       180                DFNESTW = DFNESTW - NO OF WDS                                      BUGCLO     68    
                          BOUND WD = BOUND WD - NO OF WDS                                    BUGCLO     69    
                          OP WORD = OP WORD - NO OF WDS                                      BUGCLO     70    
                          TEMP = OPWORD                                                      BUGCLO     71    
                      331 TEMP1 = ADDRESS(DEBUG(TEMP))                                       BUGCLO     72    
       185                IF (TEMP1 .EQ. 0) GO TO 332                                        BUGCLO     73    
                          DEBUG(TEMP) = DEBUG(TEMP) - 50                                     BUGCLO     74    
                          TEMP = TEMP1                                                       BUGCLO     75    
                          GO TO 331                                                          BUGCLO     76    
                      332 NDRL = SDRL - 2                                                    BUGCLO     77    
       190            350 NDRL = NDRL + 2                                                    BUGCLO     78    
                          IF (NDRL .EQ. EDRL) GO TO 370                                      BUGCLO     79    
                          IF (ADDRESS(DEBUG(NDRL))) 340, 350, 360                            BUGCLO     80    
                      340 DEBUG(NDRL) = DRLELT(DEBUG(NDRL)) .OR. SHIFT(MASK(18),18) -        BUGCLO     81    
                         ,    ADDRESS(DEBUG(NDRL))                                           BUGCLO     82    
       195            360 DEBUG(NDRL+1) = DEBUG(NDRL+1) - NO OF WDS                          BUGCLO     83    
                          DEBUG(NDRL) = DEBUG(NDRL) - NO OF WDS                              BUGCLO     84    
                          GO TO 350                                                          BUGCLO     85    
                      370 NO OF WDS = 0                                                      BUGCLO     86    
                          GO TO 380                                                          BUGCLO     87    
       200            390 IF (AREAEND .GT. DFNESTW) DFNESTW = AREAEND                        BUGCLO     88    
                          CALL DMVWDS (DFNESTW -(SAREA - 1), DEBUG(SAREA), DEBUG(SAREA +50)) BUGCLO     89    
                          SAREA = SAREA + 50                                                 BUGCLO     90    
                          AREAEND = AREAEND + 50                                             BUGCLO     91    
                          DFNESTW = DFNESTW + 50                                             BUGCLO     92    
       205                LNG IND = LNG IND + 50                                             BUGCLO     93    
                          NDRL = SDRL - 2                                                    BUGCLO     94    
                      420 NDRL = NDRL + 2                                                    BUGCLO     95    
                          IF (NDRL .EQ. EDRL) GOTO 400                                       BUGCLO     96    
                          IF(ADDRESS(DEBUG(NDRL))) 410, 420, 440                             BUGCLO     97    
       210            410 DEBUG(NDRL) = DRLELT(DEBUG(NDRL)) .OR. SHIFT(MASK(18),18) -        BUGCLO     98    
                         ,    ADDRESS(DEBUG(NDRL))                                           BUGCLO     99    
                      440 DEBUG(NDRL+1) = DEBUG(NDRL+1) + 50                                 BUGCLO    100    
                          DEBUG(NDRL) = DEBUG(NDRL) + 50                                     BUGCLO    101    
                          GO TO 420                                                          BUGCLO    102    
       215            400 ALNG = 0                                                           BUGCLO    103    
                          TLNG = 0                                                           BUGCLO    104    
                       40 DRL = DRL + 2                                                      BUGCLO    105    
                          IF (DRL.EQ.EDRL) GO TO 30                                          BUGCLO    106    
                          IF (ADDRESS(DEBUG(DRL)).EQ.0) GO TO 40                             BUGCLO    107    
       220                NXT ADD = ADDRESS(DEBUG(DRL+1))                                    BUGCLO    108    
                          IF (DRLELT(DEBUG(NXT ADD)) .EQ. DRLELT(DEBUG(OPDRL)) .AND.         BUGCLO    109    
                         ,    POW .NE. 0) GO TO 40                                           BUGCLO    110    
                      100 TEMP = DEBUG(NXT ADD)                                              BUGCLO    111    
                          DEBUG(NXT ADD) = DEBUG(NXT ADD + 1)                                BUGCLO    112    
       225                DEBUG(NXT ADD + 1) = TEMP                                          BUGCLO    113    
1         SUBROUTINE BUGCLO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     3
0 
                          TEMP = SDRL - 2                                                    BUGCLO    114    
                       61 TEMP = TEMP + 2                                                    BUGCLO    115    
                          IF (TEMP .EQ. EDRL) GO TO 80                                       BUGCLO    116    
                          IF (DRLELT(DEBUG(NXT ADD + 1)) .NE. DRLELT(DEBUG(TEMP))) GO TO 61  BUGCLO    117    
       230                TLNG = TLNG + LENGTH(DEBUG(TEMP + 1))                              BUGCLO    118    
                       60 LNG = LENGTH(DEBUG(NXT ADD))                                       BUGCLO    119    
                          ALNG = ALNG + LNG - 1                                              BUGCLO    120    
                          NO OF WDS = NO  OF WDS + LNG                                       BUGCLO    121    
                          TLNG = TLNG + LNG - 1                                              BUGCLO    122    
       235                CALL WRTMS2 (DEBUG(NXT ADD + 1), LNG - 1, RECORD)                  BUGCLO    123    
                          NXT ADD = ADDRESS(DEBUG(NXT ADD))                                  BUGCLO    124    
                          IF (SHIFT(NXT ADD, 42)) 500, 80, 60                                BUGCLO    125    
                      500 NXT ADD = SHIFT(MASK(18), 18) - NXT ADD                            BUGCLO    126    
                          IF (DRLELT(DEBUG(NXT ADD)) .NE. DRLELT(DEBUG(OPDRL)) .OR.          BUGCLO    127    
       240               ,    POW .EQ. 0) GO TO 100                                          BUGCLO    128    
                       80 CALL WRTMS3                                                        BUGCLO    129    
                          DEBUG(DRL) = (DEBUG(DRL).AND.MASK(42)) .OR. NXT ADD                BUGCLO    130    
                          DEBUG(DRL+1) = MASK(1) .OR. SHIFT(ALNG, 24) .OR.RECORD             BUGCLO    131    
                          DEBUG(SDBGIND+RECORD)=SHIFT(MASK(18),18).AND.DEBUG(SDBGIND+RECORD) BUGCLO    132    
       245                DEBUG(SDBGIND + RECORD) = DEBUG(SDBGIND + RECORD) .OR.             BUGCLO    133    
                         ,    SHIFT(TLNG, 42) .OR. SHIFT(ALNG, 24)                           BUGCLO    134    
                          GO TO 70                                                           BUGCLO    135    
                       30 IF (POW .NE. 0) GO TO 120                                          BUGCLO    136    
                    C                                                                        BUGCLO    137    
       250          C  SORT THE ROUTINES IN THE DRL IN ASCENDING ORDER AND SEND THEM TO THE  BUGCLO    138    
                    C  RANDOM FILE                                                           BUGCLO    139    
                    C                                                                        BUGCLO    140    
                      320 IF (EDRL .EQ. SDRL) GO TO 32                                       BUGCLO    141    
                          IF ( SDRL .EQ. (EDRL - 2) ) GO TO 710                              BUGCLO    142    
       255                IJ = SDRL                                                          BUGCLO    143    
                      205 IK = IJ + 2                                                        BUGCLO    144    
                      210 IL = 1                                                             BUGCLO    145    
                      220 IF ((SHIFT(DEBUG(IJ), IL*6) .AND. 77B) -                           BUGCLO    146    
                         ,    (SHIFT(DEBUG(IK), IL*6) .AND. 77B)) 230,240,250                BUGCLO    147    
       260            240 IL = IL + 1                                                        BUGCLO    148    
                          IF (IL .EQ. 8) 230, 220                                            BUGCLO    149    
                      250 TEMP = DEBUG(IJ)                                                   BUGCLO    150    
                          DEBUG(IJ) = DEBUG(IK)                                              BUGCLO    151    
                          DEBUG(IK) = TEMP                                                   BUGCLO    152    
       265                TEMP = DEBUG(IJ + 1)                                               BUGCLO    153    
                          DEBUG(IJ + 1) = DEBUG(IK + 1)                                      BUGCLO    154    
                          DEBUG(IK + 1) = TEMP                                               BUGCLO    155    
                      230 IK = IK + 2                                                        BUGCLO    156    
                          IF (IK .LT. EDRL) GO TO 210                                        BUGCLO    157    
       270                IJ = IJ + 2                                                        BUGCLO    158    
                          IF (IJ .LT. (EDRL - 2) ) GO TO 205                                 BUGCLO    159    
                      700 IF (DEBUG(SDRL) .NE. 0) GO TO 710                                  BUGCLO    160    
                          SDRL = SDRL + 2                                                    BUGCLO    161    
                          GO TO 700                                                          BUGCLO    162    
       275            710 IX = 1                                                             BUGCLO    163    
                          IF (DFPACK .LT. 0) IX = 3                                          BUGCLO    164    
                          IF ( EDRL .EQ. SDRL) GO TO 32                                      BUGCLO    165    
                          CALL WRTMS2 (DEBUG(SDRL), EDRL - SDRL, IX)                         BUGCLO    166    
                          SUCCESS = 1                                                        BUGCLO    167    
       280                CALL WRTMS3                                                        BUGCLO    168    
                       32 DEBUG(SDBGIND+IX) = (DEBUG(SDBGIND+IX) .AND. SHIFT(MASK(42),24))   BUGCLO    169    
                         ,   .OR. SHIFT(EDRL-SDRL, 24)                                       BUGCLO    170    
1         SUBROUTINE BUGCLO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     4
0 
                          IF (EDVL .EQ. SDVL) GO TO 34                                       BUGCLO    171    
                          IX = 2                                                             BUGCLO    172    
       285                IF (DFPACK .LT. 0) IX = 4                                          BUGCLO    173    
                          CALL WRTMS2 (DEBUG(SDVL), 1+ EDVL - SDVL, IX)                      BUGCLO    174    
                          CALL WRTMS3                                                        BUGCLO    175    
                          DEBUG(SDBGIND+IX) = (DEBUG(SDBGIND+IX) .AND. SHIFT(MASK(42),24))   BUGCLO    176    
                         ,   .OR. SHIFT(EDVL-SDVL+1, 24)                                     BUGCLO    177    
       290             34 CALL WRTMS4                                                        BUGCLO    178    
                          IF (POW .LT. 0) RETURN I                                           BUGCLO    179    
                          RETURN                                                             BUGCLO    180    
                    C                                                                        BUGCLO    181    
                    C  HERE IF HAVE TO MOVE REMAINS OF AREA AND OPTIONS LISTS DOWN TO AUXTAB BUGCLO    182    
       295          C                                                                        BUGCLO    183    
                      120 CALL DMVWDS (ELAST - (SAREA + NO OF WDS), DEBUG(SAREA +NO OF WDS), BUGCLO    184    
                         ,    DEBUG(SAREA))                                                  BUGCLO    185    
                          AREAEND = AREAEND - NO OF WDS                                      BUGCLO    186    
                          NDRL = EDRL                                                        BUGCLO    187    
       300                DFNESTW = DFNESTW - NO OF WDS                                      BUGCLO    188    
                          BOUND WD = BOUND WD - NO OF WDS                                    BUGCLO    189    
                          OP WORD = OP WORD - NO OF WDS                                      BUGCLO    190    
                          TEMP = OPWORD                                                      BUGCLO    191    
                      121 TEMP1 = ADDRESS(DEBUG(TEMP))                                       BUGCLO    192    
       305                IF (TEMP1 .EQ. 0) GO TO 122                                        BUGCLO    193    
                          DEBUG(TEMP)= DEBUG(TEMP) - 50                                      BUGCLO    194    
                          TEMP = TEMP1                                                       BUGCLO    195    
                          GO TO 121                                                          BUGCLO    196    
                      122 DRL = SDRL - 2                                                     BUGCLO    197    
       310            130 DRL = SDRL + 2                                                     BUGCLO    198    
                          IF (DRL.NE.EDRL) GO TO 134                                         BUGCLO    199    
                          IF (DLFLG .NE. 0) RETURN                                           BUGCLO    200    
                          RETURN I                                                           BUGCLO    201    
                      134 IF (ADDRESS(DEBUG(DRL))) 129, 130, 131                             BUGCLO    202    
       315            129 DEBUG(DRL) = DRLELT(DEBUG(DRL)) .OR. SHIFT(MASK(18),18) -          BUGCLO    203    
                         ,    ADDRESS(DEBUG(DRL))                                            BUGCLO    204    
                      131 IF (NDRL .NE. REFMAP) GO TO 132                                    BUGCLO    205    
                          IF (DLFLG.EQ.0) GO TO 136                                          BUGCLO    206    
                          CALL DMVCON                                                        BUGCLO    207    
       320                IF (DLFLG.NE.0) GO TO 132                                          BUGCLO    208    
                      136 DEBUG(DRL) = DRLELT(DEBUG(DRL))                                    BUGCLO    209    
                          GO TO 130                                                          BUGCLO    210    
                      132 NXT ADD = ADDRESS(DEBUG(DRL))                                      BUGCLO    211    
                          DEBUG(DRL) = DRLELT(DEBUG(DRL))                                    BUGCLO    212    
       325                DEBUG(NDRL) = DEBUG(DRL).OR.(SHIFT(MASK(18),18) - NXT ADD +        BUGCLO    213    
                         ,    NO OF WDS)                                                     BUGCLO    214    
                          DEBUG(NDRL + 1) = MASK(1) .OR. (NXT ADD - NO OF WDS)               BUGCLO    215    
                          NDRL = NDRL + 2                                                    BUGCLO    216    
                          NXT ADD = NXT ADD + 1                                              BUGCLO    217    
       330            140 IF (ADDRESS(DEBUG(NXT ADD)).EQ.0) GO TO 130                        BUGCLO    218    
                          NXT ADD1= ADDRESS(DEBUG(NXT ADD))                                  BUGCLO    219    
                          DEBUG(NXT ADD) = DRLELT(DEBUG(NXT ADD)) .OR. (NXT ADD1 -NO OF WDS) BUGCLO    220    
                          NXT ADD = NXT ADD1                                                 BUGCLO    221    
                          GO TO 140                                                          BUGCLO    222    
       335                END                                                                BUGCLO    223    
1         SUBROUTINE BUGCLO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     5
0 
          SYMBOLIC REFERENCE MAP (R=1)
  
   ENTRY POINTS   
       3  BUGCLO  
  
   VARIABLES     SN  TYPE           RELOCATION  
       7  AASI      INTEGER             DBGBLK3        121  AASIADD   INTEGER             DBGBLK3 
       0  ALLARR    INTEGER             DBGBLK1          1  ALLCALL   INTEGER             DBGBLK1 
       2  ALLFUNC   INTEGER             DBGBLK1          6  ALLROU    INTEGER             DBGBLK1 
     111  ALNG      INTEGER             DBGBLK3          5  AREAEND   INTEGER             DBGBLK2 
      61  AREAFLG   INTEGER             DBGBLK2         13  ASHIFT    INTEGER             DBGBLK3 
     165  BASEADD   INTEGER             DBGBLK3          3  BDADD     INTEGER             DBGBLK3 
     167  BDSADD    INTEGER             DBGBLK3        102  BLNG      INTEGER             DBGBLK3 
     162  BOUNDWD   INTEGER             DBGBLK3         64  CFPACK    INTEGER             DBGBLK2 
      54  CLABEL    INTEGER             DBGBLK2        156  COMMA     INTEGER             DBGBLK3 
      25  CONSTOR   INTEGER             DBGBLK2        111  COUNTUP   INTEGER             DBGBLK2 
      77  COW       INTEGER             DBGBLK3         75  CUROPBD   INTEGER             DBGBLK3 
      76  CURROUT   INTEGER             DBGBLK3         51  CURUPDT   INTEGER    ARRAY    DBGBLK2 
       0  DBGOUT    INTEGER             OUTPUT         135  DBGPIC    INTEGER    ARRAY    DBGBLK3 
      41  DBGPROG   INTEGER             DBGBLK2          0  DEBUG     INTEGER    ARRAY    / /     
      22  DFCONL    INTEGER             DBGBLK2         21  DFCON1    INTEGER             DBGBLK2 
      56  DFNEST    INTEGER             DBGBLK2         16  DFNESTW   INTEGER             DBGBLK2 
      30  DFNOGO    INTEGER             DBGBLK2         34  DFON      INTEGER             DBGBLK2 
      33  DFOPFLG   INTEGER             DBGBLK2          6  DFOPL     INTEGER             DBGBLK2 
      14  DFOPL1    INTEGER             DBGBLK3         15  DFOPL2    INTEGER             DBGBLK3 
      31  DFPACK    INTEGER             DBGBLK2        177  DFSAVE    INTEGER             DBGBLK3 
     200  DFSAVE1   INTEGER             DBGBLK3         26  DFSCON1   INTEGER             DBGBLK2 
      55  DFTYPE    INTEGER             DBGBLK2         44  DISPOW    INTEGER             DBGBLK2 
     176  DLFLG     INTEGER             DBGBLK3         30  DLINE     INTEGER             DBGBLK3 
      62  DLNGDRL   INTEGER             DBGBLK2         63  DLNGDVL   INTEGER             DBGBLK2 
      27  DOLAST    INTEGER             DBGBLK2         64  DRL       INTEGER             DBGBLK3 
      31  DTYPE     INTEGER             DBGBLK3         53  DUKE1     INTEGER             DBGBLK2 
      70  DUNIT     INTEGER             DBGBLK3        103  DVL       INTEGER             DBGBLK3 
       1  EDRL      INTEGER             DBGBLK2          3  EDVL      INTEGER             DBGBLK2 
      20  EFIDIT    INTEGER             DBGBLK2         15  ELAST     INTEGER             DBGBLK2 
      13  ELIST     INTEGER             DBGBLK2         23  ELIST1    INTEGER             DBGBLK3 
      32  ERRMSG    INTEGER    ARRAY    DBGBLK3         27  ERRNUM    INTEGER             DBGBLK3 
      10  ESYMTAB   INTEGER             DBGBLK2         37  FEFLAG    INTEGER             DBGBLK2 
      17  FIDIT     INTEGER             DBGBLK2        100  FMBOUND   INTEGER             DBGBLK3 
      11  FMLIST    INTEGER             DBGBLK3        153  FSTLINE   INTEGER             DBGBLK3 
     166  FTADD     INTEGER             DBGBLK3          3  GOTOSFL   INTEGER             DBGBLK1 
       0  I         RETURNS                            513  IJ        INTEGER                     
     514  IK        INTEGER                            515  IL        INTEGER                     
     205  INDEF     INTEGER             DBGBLK3        113  INDEXNO   INTEGER             DBGBLK2 
       2  ITEM      INTEGER             DBGBLK3        516  IX        INTEGER                     
      42  LDEBUG    INTEGER             DBGBLK2         14  LELIST    INTEGER             DBGBLK2 
     106  LEVEL     INTEGER             DBGBLK3        115  LEVSHFT   INTEGER             DBGBLK3 
      47  LFLAG     LOGICAL             DBGBLK2        512  LNG       INTEGER                     
      57  LNGIND    INTEGER             DBGBLK2        160  LPAREN    INTEGER             DBGBLK3 
     113  LSHIFT    INTEGER             DBGBLK3        154  LSTLINE   INTEGER             DBGBLK3 
      46  LTFLAG    LOGICAL             DBGBLK2         66  M         INTEGER             DBGBLK3 
       4  MINZERO   INTEGER             DBGBLK3         74  MISFLAG   INTEGER             DBGBLK3 
       5  MULT      INTEGER             DBGBLK3         23  NAASI     INTEGER             DBGBLK2 
      63  NDRL      INTEGER             DBGBLK3          0  NEXT      INTEGER             DBGBLK3 
      12  NFIELD    INTEGER             DBGBLK3         60  NOACT     INTEGER             DBGBLK2 
     105  NOCONST   INTEGER             DBGBLK3          4  NOGOFLG   INTEGER             DBGBLK1 
1         SUBROUTINE BUGCLO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     6
0  VARIABLES     SN  TYPE           RELOCATION  
     120  NOLIN     INTEGER             DBGBLK3        107  NOOFWDS   INTEGER             DBGBLK3 
      50  NOPROG    INTEGER             DBGBLK2         35  NUMERR    INTEGER             DBGBLK2 
     110  NXTADD    INTEGER             DBGBLK3        112  NXTADD1   INTEGER             DBGBLK3 
     133  NXTITEM   INTEGER             DBGBLK3         20  NXTSTR    INTEGER             DBGBLK3 
     114  NXTSTR1   INTEGER             DBGBLK3          6  OH        INTEGER             DBGBLK3 
      71  OPDRL     INTEGER             DBGBLK3         40  OPENFL    INTEGER             DBGBLK2 
      65  OPREC     INTEGER             DBGBLK3        163  OPWORD    INTEGER             DBGBLK3 
     175  OVRFLOW   INTEGER             DBGBLK3         36  PADD      INTEGER             DBGBLK2 
     114  PHSFLAG   INTEGER             DBGBLK2         21  POINT     INTEGER             DBGBLK3 
      32  POW       INTEGER             DBGBLK2        146  PREDBG    INTEGER    ARRAY    DBGBLK3 
     206  RANGE     INTEGER             DBGBLK3         43  RECORD    INTEGER             DBGBLK2 
      12  REFMAP    INTEGER             DBGBLK2        201  RELFLAG   INTEGER             DBGBLK3 
     104  RELOP     INTEGER             DBGBLK3        202  ROUNAME   INTEGER             DBGBLK3 
     157  RPAREN    INTEGER             DBGBLK3        122  RTAB      INTEGER    ARRAY    DBGBLK3 
      11  SAASI     INTEGER             DBGBLK2        152  SAMLINE   INTEGER             DBGBLK3 
       4  SAREA     INTEGER             DBGBLK2         17  SASI      INTEGER             DBGBLK3 
     174  SAVEOH    INTEGER             DBGBLK3         24  SAVUPDT   INTEGER    ARRAY    DBGBLK3 
     112  SCNUPDT   INTEGER             DBGBLK2         24  SDBGIND   INTEGER             DBGBLK2 
       0  SDRL      INTEGER             DBGBLK2          2  SDVL      INTEGER             DBGBLK2 
     161  SLASH     INTEGER             DBGBLK3          7  SPIDER    INTEGER             DBGBLK1 
      67  SPIDIS    INTEGER             DBGBLK3          7  SSYMTAB   INTEGER             DBGBLK2 
     155  STAR      INTEGER             DBGBLK3        150  STAR1     INTEGER             DBGBLK3 
     151  STAR2     INTEGER             DBGBLK3         72  STOSWAP   INTEGER             DBGBLK3 
      45  SUCCESS   INTEGER             DBGBLK2         10  SYMTAB    INTEGER             DBGBLK3 
     173  SYMTABB   INTEGER             DBGBLK3        116  TAASI     INTEGER             DBGBLK3 
      16  TEMP      INTEGER             DBGBLK3         22  TEMP1     INTEGER             DBGBLK3 
     164  TLNG      INTEGER             DBGBLK3        101  TOBOUND   INTEGER             DBGBLK3 
       1  TOFM      INTEGER             DBGBLK3        134  TOLIST    INTEGER             DBGBLK3 
     203  TOSHIFT   INTEGER             DBGBLK3        170  TOTLNG    INTEGER             DBGBLK3 
     117  TRACED    INTEGER             DBGBLK3          5  TRACEL    INTEGER             DBGBLK1 
      73  TRACEON   INTEGER             DBGBLK3         26  TRCADD    INTEGER             DBGBLK3 
     172  UPDIS     INTEGER             DBGBLK3         65  UPDTTBL   INTEGER    ARRAY    DBGBLK2 
     171  UPNO      INTEGER             DBGBLK3        204  VALUE     INTEGER             DBGBLK3 
  
   EXTERNALS          TYPE   ARGS     
          DMVCON               0                            DMVWDS               3                
          PUTIN                0                            WRTMS1               0                
          WRTMS2               3                            WRTMS3               0                
          WRTMS4               0                
  
   INLINE FUNCTIONS   TYPE   ARGS     
          ACBIT     INTEGER    1    SF                      ADDRESS   INTEGER    1    SF          
          ASFBIT    INTEGER    1    SF                      BITOFF    LOGICAL    2    SF          
          BITON     LOGICAL    2    SF                      COMBIT    INTEGER    1    SF          
          CONTYPE   INTEGER    1    SF                      DBGTYPE   INTEGER    1    SF          
          DIMBIT    INTEGER    1    SF                      DRLELT    INTEGER    1    SF          
          DTOFLD    INTEGER    1    SF                      EFORM     INTEGER    1    SF          
          EQUBIT    INTEGER    1    SF                      EXTBIT    INTEGER    1    SF          
          FCNTBTS   INTEGER    1    SF                      FCNTFLD   INTEGER    1    SF          
          FUNCBIT   INTEGER    1    SF                      IFBIT     INTEGER    1    SF          
          INCFCNT   INTEGER    1    SF                      LASTBIT   INTEGER    1    SF          
          LENGTH    INTEGER    1    SF                      LSTSBIT   INTEGER    1    SF          
          MASK      NO TYPE    1  INTRIN                    MINUS     INTEGER    1    SF          
          NOTBIT    INTEGER    1    SF                      NOTDBG    INTEGER    1    SF          
          PLACE     INTEGER    1    SF                      PLUS      INTEGER    1    SF          
          SFBIT     INTEGER    1    SF                      SHIFT     NO TYPE    2  INTRIN        
          TLENGTH   INTEGER    1    SF                      TYPE      INTEGER    1    SF          
1         SUBROUTINE BUGCLO     74/835  OPT=1                           FTN 4.8+871        24/05/02. 15.57.21       PAGE     7
0  INLINE FUNCTIONS   TYPE   ARGS     
          TYPEFLD   INTEGER    1    SF                      VARBIT    INTEGER    1    SF          
  
   STATEMENT LABELS         
      57  20                                  50  22                                  31  24                          
      33  25                                  15  26                                 271  30                          
     345  32                                 374  34                                 200  40                          
     232  60                                 221  61                                  73  70                          
     256  80                                 214  100                                402  120                         
     417  121                                424  122                                  0  129         INACTIVE        
     426  130                                441  131                                451  132                         
     434  134                                446  136                                462  140                         
     277  205                                301  210                                302  220                         
     322  230                                  0  240         INACTIVE               314  250                         
      71  300                                 61  310                                272  320                         
     104  330                                117  331                                124  332                         
       0  340         INACTIVE               126  350                                135  360                         
     141  370                                 76  380                                143  390                         
     176  400                                  0  410         INACTIVE               163  420                         
     172  440                                  0  500         INACTIVE               327  700                         
     332  710                         
  
   COMMON BLOCKS   LENGTH   
          DBGBLK1       8             
          DBGBLK2      77             
          / /           1             
          DBGBLK3     135             
          OUTPUT        1             
  
   STATISTICS     
     PROGRAM LENGTH                517B     335 
     CM LABELED COMMON LENGTH      335B     221 
     CM BLANK COMMON LENGTH          1B       1 
             52000B CM USED 
1       REGISTER SAVE AND RESTORE ROUTINE                             COMPASS 3.7-871.     24/05/02. 15.57.35.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      204              IDENT  SAVREGS
                        204                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=SVREG          0+           SAVREG           0+           RESREG         110+ 
  
  
  
  
                                                  IDENT  SAVREGS                                                 SAVREGS     2
                                                                                                                 SSTCALL     2
                                                  SST                                                            SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
1       REGISTER SAVE AND RESTORE ROUTINE                             COMPASS 3.7-871.     24/05/02. 15.57.35.      PAGE     2
         SAVE REGISTERS 
  
             0                           B=SVREG  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY     SAVREGS     6
             0  00000000000000000000     SAVREG   ENTRY.                                                         SAVREGS     7
             1                           B1BITS   BSS    0                                                       SAVREGS     8
                                  22              DUP    18                                                      SAVREGS     9
                                        +         PL     B1,*+2                                                  SAVREGS    10
                                                  RJ     *+1                                                     SAVREGS    11
                                        +         DATA   0                                                       SAVREGS    12
                                        +         SB1    B1+B1                                                   SAVREGS    13
                                                  ENDD                                                           SAVREGS    14
  
                     65170                        SB1    A7-B0                                                   SAVREGS    16
                          5170000203 +            SA7    SVX+7             .X7                                   SAVREGS    17
            67  77710                             SX7    B1-B0                                                   SAVREGS    18
                     5170000173 +                 SA7    SVA+7             .A7                                   SAVREGS    19
                               75760              SX7    A6-B0                                                   SAVREGS    20
            70  6110000001                        SB1    1                                                       SAVREGS    21
                          5160000202 +            SA6    SVX+6             .X6                                   SAVREGS    22
            71  55771                             SA7    A7-B1             .A6                                   SAVREGS    23
                     10655                        BX6    X5                                                      SAVREGS    24
                          75750                   SX7    A5-B0                                                   SAVREGS    25
                               55661              SA6    A6-B1             .X5                                   SAVREGS    26
            72  55771                             SA7    A7-B1             .A5                                   SAVREGS    27
                     10644                        BX6    X4                                                      SAVREGS    28
                          75740                   SX7    A4-B0                                                   SAVREGS    29
                               55661              SA6    A6-B1             .X4                                   SAVREGS    30
            73  55771                             SA7    A7-B1             .A4                                   SAVREGS    31
                     10633                        BX6    X3                                                      SAVREGS    32
                          75730                   SX7    A3-B0                                                   SAVREGS    33
                               55661              SA6    A6-B1             .X3                                   SAVREGS    34
            74  55771                             SA7    A7-B1             .A3                                   SAVREGS    35
                     10622                        BX6    X2                                                      SAVREGS    36
                          75720                   SX7    A2-B0                                                   SAVREGS    37
                               55661              SA6    A6-B1             .X2                                   SAVREGS    38
            75  55771                             SA7    A7-B1             .A2                                   SAVREGS    39
                     10611                        BX6    X1                                                      SAVREGS    40
                          75710                   SX7    A1-B0                                                   SAVREGS    41
                               55661              SA6    A6-B1             .X1                                   SAVREGS    42
            76  55771                             SA7    A7-B1             .A1                                   SAVREGS    43
                     10600                        BX6    X0                                                      SAVREGS    44
                          75700                   SX7    A0-B0                                                   SAVREGS    45
                               55661              SA6    A6-B1             .X0                                   SAVREGS    46
            77  55771                             SA7    A7-B1             .A0                                   SAVREGS    47
                     77670                        SX6    B7-B0                                                   SAVREGS    48
                          77760                   SX7    B6-B0                                                   SAVREGS    49
                               55671              SA6    A7-B1             .B7                                   SAVREGS    50
           100  55761                             SA7    A6-B1             .B6                                   SAVREGS    51
                     77650                        SX6    B5-B0                                                   SAVREGS    52
                          77740                   SX7    B4-B0                                                   SAVREGS    53
                               55671              SA6    A7-B1             .B5                                   SAVREGS    54
           101  55761                             SA7    A6-B1             .B4                                   SAVREGS    55
                     77630                        SX6    B3-B0                                                   SAVREGS    56
                          77720                   SX7    B2-B0                                                   SAVREGS    57
                               55671              SA6    A7-B1             .B3                                   SAVREGS    58
           102  55761                             SA7    A6-B1             .B2                                   SAVREGS    59
                     6120000022                   SB2    18                                                      SAVREGS    60
                               43600              MX6    0                                                       SAVREGS    61
           103  13777                             BX7    X7-X7                                                   SAVREGS    62
1       REGISTER SAVE AND RESTORE ROUTINE                             COMPASS 3.7-871.     24/05/02. 15.57.35.      PAGE     3
         SAVE REGISTERS 
  
                     5110000002 +                 SA1    B1BITS+1                                                SAVREGS    63
           104  36077                    EXPANDB1 IX0    X7+X7                                                   SAVREGS    64
                     21170                        AX1    56                                                      SAVREGS    65
                          12701                   BX7    X0+X1                                                   SAVREGS    66
                               54610              SA6    A1                                                      SAVREGS    67
           105  67221                             SB2    B2-B1                                                   SAVREGS    68
                     46000                        NO                                                             SAVREGS    69
                          5011000003              SA1    A1+3                                                    SAVREGS    70
           106  0621000104 +                      GE     B2,B1,EXPANDB1                                          SAVREGS    71
                          20752                   LX7    60-18             (SIGN EXTEND VALUE FROM B1, PRESERVE  SAVREGS    72
                               21752              AX7    60-18              A POSSIBLE -0)                       SAVREGS    73
           107  55771                             SA7    A7-B1             .B1                                   SAVREGS    74
                     0400000000 +                 ZR     SAVREG                                                  SAVREGS    75
1       REGISTER SAVE AND RESTORE ROUTINE                             COMPASS 3.7-871.     24/05/02. 15.57.35.      PAGE     4
         RESTORE REGISTERS
  
           110  00000000000000000000     RESREG   ENTRY.                                                         SAVREGS    77
           111  5110000151 +                      SA1    INSTMASK                                                SAVREGS    78
                          5120000144 +            SA2    WICKED                                                  SAVREGS    79
           112  5130000154 +                      SA3    SVB+0                                                   SAVREGS    80
                          6120000004              SB2    4                                                       SAVREGS    81
           113  6170000001                        SB7    1                                                       SAVREGS    82
                          43752                   MX7    60-18                                                   SAVREGS    83
           114  11212                    NOREST   BX2    X1*X2             SETUP INSTRUCTIONS TO RESTORE THE     SAVREGS    84
                     54437                        SA4    A3+B7               B-REGISTERS.                        SAVREGS    85
                          15337                   BX3    -X7*X3                                                  SAVREGS    86
                               20336              LX3    30                                                      SAVREGS    87
           115  15447                             BX4    -X7*X4                                                  SAVREGS    88
                     36223                        IX2    X2+X3                                                   SAVREGS    89
                          12624                   BX6    X2+X4                                                   SAVREGS    90
                               67227              SB2    B2-B7                                                   SAVREGS    91
           116  54620                             SA6    A2                                                      SAVREGS    92
                     46000                        NO                                                             SAVREGS    93
                          54347                   SA3    A4+B7                                                   SAVREGS    94
                               54227              SA2    A2+B7                                                   SAVREGS    95
           117  0627000114 +                      GE     B2,B7,NOREST                                            SAVREGS    96
                          5120000174 +            SA2    SVX+0                                                   SAVREGS    97
           120  10022                             BX0    X2                .X0                                   SAVREGS    98
                     54227                        SA2    A2+B7                                                   SAVREGS    99
                          54117                   SA1    A1+B7             (FLIP1)                               SAVREGS   100
                               26312              UX3    X2,B1                                                   SAVREGS   101
           121  20312                             LX3    10                                                      SAVREGS   102
                     0332000122 +                 MI     X2,FOR                                                  SAVREGS   103
                               54117              SA1    A1+B7             (FLIP2)                               SAVREGS   104
           122  10611                    FOR      BX6    X1                                                      SAVREGS   105
                     26323                        UX3    X3,B2                                                   SAVREGS   106
                          5160000143 +            SA6    THE               (STORE 'BX1 -X1' OR 'NO' INSTRUCTION) SAVREGS   107
           123  20312                             LX3    10                                                      SAVREGS   108
                     5110000164 +                 SA1    SVA+0                                                   SAVREGS   109
                               26333              UX3    X3,B3                                                   SAVREGS   110
           124  5150000173 +                      SA5    SVA+7                                                   SAVREGS   111
                          5201777777              SA0    X1-0              .A0                                   SAVREGS   112
           125  5245777777                        SA4    X5-0                                                    SAVREGS   113
                          20312                   LX3    10                                                      SAVREGS   114
                               10744              BX7    X4                                                      SAVREGS   115
           126  26343                             UX3    X3,B4                                                   SAVREGS   116
                     55557                        SA5    A5-B7                                                   SAVREGS   117
                          5225777777              SA2    X5-0                                                    SAVREGS   118
           127  20312                             LX3    10                                                      SAVREGS   119
                     10622                        BX6    X2                                                      SAVREGS   120
                          55740                   SA7    A4-B0             .A7                                   SAVREGS   121
                               55620              SA6    A2-B0             .A6                                   SAVREGS   122
           130  26353                             UX3    X3,B5                                                   SAVREGS   123
                     55557                        SA5    A5-B7                                                   SAVREGS   124
                          55457                   SA4    A5-B7                                                   SAVREGS   125
                               20312              LX3    10                                                      SAVREGS   126
           131  26263                             UX2    X3,B6                                                   SAVREGS   127
                     55347                        SA3    A4-B7                                                   SAVREGS   128
                          5120000203 +            SA2    SVX+7                                                   SAVREGS   129
           132  55127                             SA1    A2-B7                                                   SAVREGS   130
                     5255777777                   SA5    X5-0              .A5                                   SAVREGS   131
                               10722              BX7    X2                .X7                                   SAVREGS   132
           133  22601                             LX6    X1                .X6                                   SAVREGS   133
1       REGISTER SAVE AND RESTORE ROUTINE                             COMPASS 3.7-871.     24/05/02. 15.57.35.      PAGE     5
         RESTORE REGISTERS
  
                     55217                        SA2    A1-B7                                                   SAVREGS   134
                          5244777777              SA4    X4-0              .A4                                   SAVREGS   135
           134  10522                             BX5    X2                .X5                                   SAVREGS   136
                     55127                        SA1    A2-B7                                                   SAVREGS   137
                          22401                   LX4    X1                .X4                                   SAVREGS   138
                               55117              SA1    A1-B7                                                   SAVREGS   139
           135  55237                             SA2    A3-B7                                                   SAVREGS   140
                     5233777777                   SA3    X3-0              .A3                                   SAVREGS   141
                               10311              BX3    X1                .X3                                   SAVREGS   142
           136  55117                             SA1    A1-B7                                                   SAVREGS   143
                     5222777777                   SA2    X2-0              .A2                                   SAVREGS   144
                               10211              BX2    X1                .X2                                   SAVREGS   145
           137  5110000165 +                      SA1    SVA+1                                                   SAVREGS   146
                          5211777777              SA1    X1-0              .A1                                   SAVREGS   147
           140  17111                             BX1    -X1-X1                                                  SAVREGS   148
                     6271777777                   SB7    X1-0                                                    SAVREGS   149
                               43100              MX1    0                                                       SAVREGS   150
           141  27161                             PX1    X1,B6                                                   SAVREGS   151
                     20162                        LX1    60-10                                                   SAVREGS   152
                          27151                   PX1    X1,B5                                                   SAVREGS   153
                               20162              LX1    60-10                                                   SAVREGS   154
           142  27141                             PX1    X1,B4                                                   SAVREGS   155
                     20162                        LX1    60-10                                                   SAVREGS   156
                          27131                   PX1    X1,B3                                                   SAVREGS   157
                               20162              LX1    60-10                                                   SAVREGS   158
           143  27121                    THE      PX1    X1,B2                                                   SAVREGS   159
                     20162                        LX1    60-10                                                   SAVREGS   160
                          27111                   PX1    X1,B1                                                   SAVREGS   161
                               46000              NO                       (OR A BX1 -X1, SEE ABOVE)             SAVREGS   162
           144  6107000000               WICKED   SB0    B7+0              (YES, B0 WILL NOT BE CHANGED.)        SAVREGS   163
                          6117000000              SB1    B7+0                                                    SAVREGS   164
           145  6127000000                        SB2    B7+0                                                    SAVREGS   165
                          6137000000              SB3    B7+0                                                    SAVREGS   166
           146  6147000000                        SB4    B7+0                                                    SAVREGS   167
                          6157000000              SB5    B7+0                                                    SAVREGS   168
           147  6167000000                        SB6    B7+0                                                    SAVREGS   169
                          6177000000              SB7    B7+0                                                    SAVREGS   170
           150  0400000110 +                      ZR     RESREG                                                  SAVREGS   171
  
  
           151  77770000007777000000     INSTMASK DATA   77770000007777000000B                                   SAVREGS   173
           152  27121                    FLIP1    PX1    X1,B2                                                   SAVREGS   174
                     20162                        LX1    60-10                                                   SAVREGS   175
                          27111                   PX1    X1,B1                                                   SAVREGS   176
                               14111              BX1    -X1                                                     SAVREGS   177
           153  27121                    FLIP2    PX1    X1,B2                                                   SAVREGS   178
                     20162                        LX1    60-10                                                   SAVREGS   179
                          27111                   PX1    X1,B1                                                   SAVREGS   180
                               46000              NO                                                             SAVREGS   181
           154                     1     SVB      BSSZ   1                                                       SAVREGS   182
           155                     7              BSS    7                                                       SAVREGS   183
           164                    10     SVA      BSS    8                                                       SAVREGS   184
           174                    10     SVX      BSS    8                                                       SAVREGS   185
           204                                    END                                                            SAVREGS   186
  
                             53700B CM  STORAGE USED              288 STATEMENTS      536 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.241 SECONDS          34 REFERENCES
1       REGISTER SAVE AND RESTORE ROUTINE                             COMPASS 3.7-871.     24/05/02. 15.57.35.      PAGE     6
        SYMBOLIC REFERENCE TABLE. 
  
        B1BITS          1   PROGRAM*        2/03 L    3/01
        EXPANDB1      104   PROGRAM*        3/02 L    3/09
        FLIP1         152   PROGRAM*        5/42 L
        FLIP2         153   PROGRAM*        5/46 L
        FOR           122   PROGRAM*        4/27      4/29 L
        INSTMASK      151   PROGRAM*        4/02      5/41 L
        NOREST        114   PROGRAM*        4/08 L    4/20
        RESREG        110   PROGRAM*        4/01 E    4/01 L    5/38
        SAVREG          0   PROGRAM*        2/02 E    2/02 L    3/13
        SVA           164   PROGRAM*        2/14 S    4/33      4/35      5/13      5/52 L
        SVB           154   PROGRAM*        4/04      5/50 L
        SVX           174   PROGRAM*        2/12 S    2/17 S    4/21      4/53      5/53 L
        THE           143   PROGRAM*        4/31 S    5/26 L
        WICKED        144   PROGRAM*        4/03      5/30 L
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     1  
          OVERLAY(FTN,0,0)  
  
  
  
 -------- OVERLAY(FTN,0,0)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD            112
          LWA+1 OF THE LOAD         2644
  
          TRANSFER ADDRESS -- FTN              640          
  
          PROGRAM ENTRY POINTS --       FTN              640
                                        FTN4             640
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          /COMPCOM/       112      137
          FTN             251     2373    LOAD1    24/05/02 COMPASS 3.7 871               
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          NOM.TFL         0   FTN       
          FV.IN           2             
          FV.OUT          3             
          FV.LGO          4             
          L.TTLA          5             
          L.TTLB          5             
          FV.ERRS         5             
          FV.CMPS         6             
          L.MSTR          6             
          FV.RLST         7             
          FV.RMAP        10             
          FVLEN          10             
          FV.OPT         11             
          L.MAXCD        12             
          L.TITL         15             
          CO.ABT        114             
          CP.ERCT       115             
          CP.LSTF       116             
          CP.PAGE       117             
          CP.BLF        121             
          CP.PD         122             
          CP.PS         123             
          CP.PW         124             
          CP.CPU        125             
          CP.MXFL       126             
          CP.IFMT       130             
          AMODE         130             
          COMRET        133             
          GT1           135             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     2  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          GT2           136             
          CP.FLIN       137             
          CP.BUF        141             
          CP.CARD       141             
          LB.RMAP       201             
          LB.LGO        201             
          CP.AFLS       201             
          LB.LF         201             
          FL            201             
          CP.NFLS       202             
          LCM.FL        203             
          CP.MODL       205             
          F.IN          211             
          OUTPUT#       221             
          F.OUT         221             
          F.ERRS        231             
          F.LGO         241             
          SYS=          253             
          RCL=          266             
          WNB=          272             
          MSG=          302             
          F.CMPS        310             
          F.RLST        320             
          F.LF          320             
          F.RMAP        330             
          F.OPT         340             
          F.DEBUG       340             
          MLOP=X        350             
          LSTMSTR       350             
          MLOP=O        353             
          MLOP=R        354             
          F.TABS        357             
          GL.DRL        360             
          GL.DVL        361             
          GL.IND        362             
          GL.SYM        363             
          INT.FL        364             
          JOT           365             
          LASTREC       366             
          LCP.PS        367             
          RS.PD         370             
          LGOIO         372             
          L.GCON        373             
          MACFLAG       374             
          MAX.FL        375             
          MAX.RL        376             
          O.GCON        377             
          PR.MXFL       400             
          W.TABS        401             
          CER.FL        402             
          PDFLAG        403             
          CAFLAG        404             
          CO.TBK        405             
          CBNFLG        405             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     3  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CCFLAG        406             
          CO.EDT        407             
          CO.ER         410             
          CO.ID         411             
          CO.MODE       412             
          CO.OLVL       413             
          CO.REW        414             
          ROPFLAG       415             
          CO.RND        415             
          CO.SNAP       416             
          CO.STA        417             
          DFLAG         421             
          DIRECT        422             
          F.LFN         423             
          LOP=F         425             
          LOP=N         426             
          LOP=1         427             
          PMDFLAG       430             
          OT.RM         431             
          PLIMIT        432             
          QFLAG         433             
          SLIST         434             
          SPPFLAG       435             
          UFLAG         436             
          UOFLAG        437             
          ZFLAG         440             
          LCM.OA        441             
          LCM.MM        442             
          LCM.MU        443             
          OVLA          444             
          OVLB          445             
          OVL10         446             
          OVL20         447             
          OVL21         450             
          OVL22         451             
          OVL23         452             
          OVL24         453             
          OVL25         454             
          O.TITL        457             
          TL.JECT       457             
          TL.PTYP       460             
          TL.PNAM       461             
          TL.CCOP       463             
          O.TTLA        466             
          TL.DATE       470             
          TL.TIME       471             
          TL.PAGE       473             
          LDCOM         474             
          LOVER         504             
          ENDFTN        537             
          SCRTBL        573             
          REALDEC       601             
          CPTIM         615             
          TIMER         622             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     4  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TIME0         632             
          TIME1         633             
          FTN4          640             
          FTN           640             
          O.XPINB       741             
          LDPT         2777             
          MIN.TFL     40000             
  
  
  
  
  
 -------- OVERLAY(FTN,1,0,O=LDPT) 
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD           3004
          LWA+1 OF THE LOAD        37414
  
          TRANSFER ADDRESS -- FTN10           7514          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN10          3004        0    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 TS COMPILER    
          TABLES         3004     1403    LOAD1    24/05/02 COMPASS 3.7 871               
          ERRORS         4407     3105    LOAD1    24/05/02 COMPASS 3.7 871               
          BATCH          7514      263    LOAD1    24/05/02 COMPASS 3.7 871               
          HEADER         7777      541    LOAD1    24/05/02 COMPASS 3.7 871               
          PIG           10540      316    LOAD1    24/05/02 COMPASS 3.7 871               
          END           11056     1620    LOAD1    24/05/02 COMPASS 3.7 871               
          ALLOC         12676      637    LOAD1    24/05/02 COMPASS 3.7 871               
          MAIN          13535     1216    LOAD1    24/05/02 COMPASS 3.7 871               
          LEX           14753     1055    LOAD1    24/05/02 COMPASS 3.7 871               
          KEY           16030     1117    LOAD1    24/05/02 COMPASS 3.7 871               
          IF            17147      214    LOAD1    24/05/02 COMPASS 3.7 871               
          TSDATA        17363     1176    LOAD1    24/05/02 COMPASS 3.7 871               
          DECL          20561     1240    LOAD1    24/05/02 COMPASS 3.7 871               
          TYPE          22021      220    LOAD1    24/05/02 COMPASS 3.7 871               
          FMT           22241      426    LOAD1    24/05/02 COMPASS 3.7 871               
          IO            22667     1377    LOAD1    24/05/02 COMPASS 3.7 871               
          NUM           24266      343    LOAD1    24/05/02 COMPASS 3.7 871               
          PAR           24631     2231    LOAD1    24/05/02 COMPASS 3.7 871               
          CONRED        27062      416    LOAD1    24/05/02 COMPASS 3.7 871               
          ASF           27500      253    LOAD1    24/05/02 COMPASS 3.7 871               
          DO            27753      304    LOAD1    24/05/02 COMPASS 3.7 871               
          FUN           30257      160    LOAD1    24/05/02 COMPASS 3.7 871               
          REG           30437     1124    LOAD1    24/05/02 COMPASS 3.7 871               
          GEN           31563     3446    LOAD1    24/05/02 COMPASS 3.7 871               
          TSNAP         35231        0    LOAD1    24/05/02 COMPASS 3.7 871               
          INIT          35231      551    LOAD1    24/05/02 COMPASS 3.7 871               
          MAP           36002      570    LOAD1    24/05/02 COMPASS 3.7 871               
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     5  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          LIST          36572      622    LOAD1    24/05/02 COMPASS 3.7 871               
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S=COD           0   LEX                 IO             23037     23135
          CPM=1ST         0   MAIN                BATCH           7731
                                                  IO             24175     24201     24202     24203     24207     24213
          S=INP           0   LEX                 IO             22777     23073
          DDS.S           0   END                 TSDATA         20175     20406     20411
          NOM.TFL         0   FTN                 ALLOC          12775
          CPM=IMP         1   MAIN                HEADER         10063
                                                  IO             24231
          S=CONT          1   LEX                 IO             23337
          TO              1   IO                  KEY            16047
          M.STCRM         1                       END            11775
          DDS.O           2   END                 TSDATA         20374
          M.STRP2         2   IO                  END            12002
          S=OUT           2   LEX                 IO             23007     23015     23103
          CPM=DEC         2   MAIN                IO             24215     24216     24217     24220     24221
          CPM=ASF         3                       KEY            16464
                                                  DECL           21770
                                                  IO             24245
          FV.LGO          4   FTN                 BATCH           7527      7626      7744
                                                  PIG            10542
                                                  END            11253
                                                  KEY            16330
                                                  INIT           35246     35270     35274     35306     35352
          S=FREE          4   LEX                 IO             23026     23140
          M.STICO         4   IO        
          CPM=EXU         4   MAIN                IO             24173     24176     24177     24206     24210     24211     24212
                                                                 24233     24234     24235     24236     24237     24240     24241
                                                                 24242     24243     24244     24246     24247     24250     24252
          CPM=END         5                       IO             24200     24251
          L.TTLB          5   FTN                 MAIN           14722
          CPM=BY          5   MAIN                ALLOC          13071
          CPM=DAT         6                       IO             24214
          FUNCTIO         6   IO                  TYPE           22157
          L.MSTR          6   FTN                 BATCH           7756
                                                  INIT           35256
          DO=CC           6   TABLES              DO             30025     30043
          L.STL           7   IO                  HEADER         10253
                                                  END            12155     12160     12165
          CPM=FMT         7   MAIN                IO             24232
          S=BIN          10   LEX                 IO             23114     23134
          N.BLK          10   TABLES              LIST           37325
          CPM=NTR        10   MAIN                IO             24205
          FVLEN          10   FTN                 BATCH           7646
          M.STOCO        10   IO        
          BT.IDN8        10   END                 HEADER         10026
          DDS.R          11                       TSDATA         20402
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     6  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BT.IDN9        11                       INIT           35344
          CPM=TYP        11   MAIN                IO             24222     24223     24224     24225     24227
          L.MAXCD        12   FTN                 MAIN           14543
          CPM=TPE        12   MAIN                IO             24230
          CPM=OK         13                       IO             24174     24204     24226
          PR.SLP         13   TABLES              PAR            25210     25606
          N.STL          14   IO                  END            12155     12167
          S=STR          14   LEX                 IO             23505
          L.CL           15   ERRORS              LEX            15662
                                                  DECL           20622
                                                  MAP            36324
          M.STIBI        20   IO        
          LG.LOG         21   TABLES              LEX            15451
          DDS.W          23   END                 TSDATA         20426     20446
          N.TABLE        33   TABLES              BATCH           7654      7656
                                                  ALLOC          12712     12715     12730     12741     12744     12744     13235
                                                                 13237     13301     13324     13405     13414     13422     13432
                                                                 13504     13520
                                                  GEN            34331
                                                  MAP            36554
          PRECISI        33   IO                  TYPE           22033
          FORMAT         37                       LEX            15435
          M.STOBI        40             
          SA=BKS9        51   GEN                 TABLES          3242      3256
          ASF.           52   IO                  MAIN           14271
          LG.LEN         52                       MAIN           14275
          DO.            53                       MAIN           14245
          IF.            54                       MAIN           14261
          REP.           55                       MAIN           14262     14273
          EOS            56                       MAIN           13736
          NULL           57                       MAIN           13652
          SB=BKS9        61   GEN                 TABLES          3226      3237
          SX=BKS9        71                       TABLES          3245      3253
          SX=XKS9        72                       TABLES          3231      3234      3250
          M.STIBU       100   IO        
          CP.ERCT       115   FTN                 END            11336
          CP.LSTF       116                       BATCH           7575      7611
                                                  END            11241     11317
                                                  MAIN           14657     14700
                                                  KEY            16363
                                                  INIT           35322
          CP.PAGE       117                       BATCH           7575      7576
                                                  MAIN           14664     14701     14703
                                                  INIT           35345     35351
          L.FIV         120   GEN                 LEX            16016
          CP.BLF        121   FTN                 BATCH           7601
                                                  MAP            36003
          CP.PD         122                       BATCH           7612
                                                  MAIN           14704     14706
                                                  INIT           35320
          CP.PW         124                       ERRORS          4770      5046
                                                  HEADER         10053
                                                  MAIN           14367     14402     14642     14660     14674
                                                  INIT           35314
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     7  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  MAP            36015     36046     36051     36072     36100     36137     36145
                                                                 36164     36172     36200     36206     36232     36237     36245
                                                                 36256     36426     36466
                                                  LIST           37056     37313
          CP.CPU        125                       INIT           35343
          CP.MXFL       126                       BATCH           7641
                                                  END            11313
                                                  INIT           35260
          AMODE         130                       MAIN           14123     14165     14412
          CP.IFMT       130                       MAIN           14526
          COMRET        133                       BATCH           7514
          GT1           135                       BATCH           7615      7615
                                                  END            12657     12661
                                                  ALLOC          13044     13046     13050
          CP.FLIN       137                       BATCH           7743
                                                  MAIN           13630     14507     14513     14522
          CP.CARD       141                       BATCH           7514      7545      7554      7610
                                                  MAIN           13663     14166     14167     14530     14532
                                                  INIT           35232     35245
          M.STOBU       200   IO        
          CP.AFLS       201   FTN                 END            11321     11327
                                                  ALLOC          12773     13051
          LB.LGO        201                       END            11251
          CP.NFLS       202                       END            11313     11331
                                                  ALLOC          13052
                                                  INIT           35337
          CP.MODL       205                       END            11764
          F.IN          211                       MAIN           14531
                                                  INIT           35304     35311
          F.OUT         221                       BATCH           7571      7606      7616      7617      7624
                                                  ALLOC          13103
                                                  MAIN           14557     14635     14651     14706     14711     14714     14721
                                                                 14723     14725
                                                  INIT           35301     35315
          F.LGO         241                       BATCH           7530      7627      7631
                                                  END            11254     11304     12660
                                                  ALLOC          13105
                                                  KEY            16345     16347     16351
                                                  INIT           35247     35252     35275     35307
          SYS=          253                       TABLES          4073
                                                  END            11325
                                                  ALLOC          13047
          RCL=          266                       TABLES          4156      4203      4303      4320
          WNB=          272                       TABLES          4066
                                                  BATCH           7530      7650
                                                  END            11254
                                                  KEY            16345
                                                  INIT           35252     35412
          MSG=          302                       BATCH           7525      7645
                                                  HEADER         10062
                                                  END            11347
                                                  ALLOC          13102
          F.LF          320                       BATCH           7533      7535      7634
                                                  HEADER         10344
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     8  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PIG            10551
                                                  END            11102     11104     11106     12474
                                                  ALLOC          13002     13005     13014     13016     13020
                                                  INIT           35272
          F.RMAP        330                       BATCH           7541      7637
                                                  ALLOC          13031     13035     13144
                                                  INIT           35266
                                                  MAP            36505     36507     36514     36520
          MLOP=X        350                       INIT           35362
          LSTMSTR       350                       BATCH           7757
                                                  INIT           35256
          MLOP=O        353                       MAIN           14442
                                                  INIT           35352
          MLOP=R        354                       INIT           35357
          F.TABS        357                       BATCH           7653
                                                  END            11332
                                                  ALLOC          12740     12755     13053     13236
                                                  INIT           35300     35337
          INT.FL        364                       END            11321     11324     11326
          JOT           365                       HEADER         10161
          LCP.PS        367                       BATCH           7574
                                                  MAIN           14624     14632     14655
                                                  MAP            36004     36423     36454     36467
                                                  LIST           37310
          RS.PD         370                       BATCH           7613
          LGOIO         372                       END            11303
          MAX.FL        375                       ALLOC          13041
          M.STBAK       400   IO        
          W.TABS        401   FTN                 BATCH           7653
                                                  END            11333
                                                  ALLOC          12730     12740     13054
                                                  INIT           35340
          CER.FL        402                       BATCH           7522
          PDFLAG        403                       MAIN           14710
          CO.TBK        405                       END            11165
                                                  PAR            25446     25721     25733     25747     26254     26267     26303
                                                  REG            30767
                                                  LIST           36645
          CO.EDT        407                       HEADER         10242
                                                  IO             23221
          CO.ER         410                       HEADER         10262     10276     10501
                                                  END            12001     12550
                                                  MAIN           14312
                                                  KEY            16643
                                                  DO             30016
                                                  LIST           37272
          CO.ID         411                       HEADER         10265
                                                  PIG            10560
                                                  END            11601
                                                  MAIN           14323
                                                  KEY            16653
                                                  GEN            35127     35157
          CO.MODE       412                       BATCH           7736
                                                  MAIN           13670     14117     14140     14177     14217     14470     14552
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE     9  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 14602
          CO.REW        414                       INIT           35303
          CO.RND        415                       CONRED         27340
                                                  INIT           35372
          CO.STA        417                       HEADER         10252
                                                  END            11774     12076     12102
          LOP=F         425                       ERRORS          4711      4712      4714
          LOP=N         426                       ERRORS          4713
          LOP=1         427                       ERRORS          4710      4767
          OT.RM         431                       HEADER         10173
                                                  END            11221     12150
          PLIMIT        432                       END            12102     12151
                                                  INIT           35365
          SLIST         434                       BATCH           7761
                                                  MAIN           14465
          L=TABLE       453   TABLES              BATCH           7654
          O.TITL        457   FTN                 MAIN           14711
          TL.JECT       457                       BATCH           7600
          TL.PTYP       460                       BATCH           7736
                                                  HEADER         10025     10054
                                                  MAIN           14723
          TL.PNAM       461                       HEADER         10060     10522
                                                  INIT           35323
          TL.CCOP       463                       INIT           35341
          O.TTLA        466                       MAIN           14720
                                                  INIT           35324
          TL.DATE       470                       END            11761
          TL.TIME       471                       END            11762
          TL.PAGE       473                       MAIN           14677     14717
                                                  INIT           35327
          LDCOM         474                       BATCH           7573
                                                  MAIN           14561
          SA=AKS6       500   GEN                 REG            30603
          ENDFTN        537   FTN                 BATCH           7651
                                                  ALLOC          13107
          SA=ABS6       540   GEN                 REG            30604
          CPTIM         615   FTN                 END            12442
          TIMER         622                       BATCH           7520
                                                  END            12443
                                                  INIT           35253
          TIME1         633                       BATCH           7521
                                                  END            12442     12444
                                                  INIT           35254
          XMITS3       1000   GEN                 FUN            30332
                                                  REG            30617     30653     31034     31202     31422     31475
          M.STENF      1000   IO        
          LCMR         1400   GEN                 REG            30643     30714
          LCMW         1500                       REG            30642     30713
          M.STREW      2000   IO        
          T.SB         3004   TABLES              BATCH           7544
                                                  HEADER         10006
                                                  MAIN           13562     14111     14114     14211     14214
                                                  DECL           22012
          ORIGINS      3004                       ALLOC          13237
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    10  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BASES        3004                       BATCH           7663
                                                  ALLOC          12704     12725     12743     12756     13124     13126
          T.LGOB       3004                       END            11251
          TT.REF       3005                       ALLOC          13033     13156
                                                  MAP            36404     36512     36516     36534
          TT.LF        3006                       HEADER         10343
                                                  PIG            10546     10575     11022     11045
                                                  END            12467
                                                  ALLOC          13004     13011     13133
          TL.DAT       3007                       TSDATA         17374     17430     17444
          TT.FILL      3007                       END            11264     12253     12256     12615     12641
          TT.USE       3007                       REG            31061
                                                  GEN            34250     34373
          TT.XFIL      3010                       END            11266     12214     12633
          TT.SCR       3010                       END            12005     12022     12047     12157
                                                  KEY            16200     16216
                                                  NUM            24607     24620
                                                  PAR            25414     25451     25455     25730     26656
                                                  ASF            27516     27522     27527     27551     27565     27600     27606
                                                                 27616     27702     27726
                                                  FUN            30346     30367
                                                  REG            31216
                                                  GEN            34400     34403     34404
                                                  LIST           37151     37165
          TI.DAT       3010                       TSDATA         17563     17567     17663     20263     20364     20463
          TN.BLK       3011                       MAP            36040     36044     36045
          TS.CON       3011                       END            12366
                                                  ALLOC          13173     13340
                                                  LEX            15413
                                                  TSDATA         20445
                                                  IO             24106
                                                  PAR            24710     26417
                                                  CONRED         27467
                                                  DO             30076
                                                  LIST           37054
          TS.SYM       3012                       ERRORS          5102
                                                  BATCH           7671
                                                  HEADER         10041     10236     10375     10410     10447     10454
                                                  PIG            10630
                                                  END            11134     11146     11162     11633     11706     12051     12230
                                                                 12335
                                                  MAIN           14270
                                                  LEX            15636     15640     15750     15762
                                                  KEY            16056     16127     16145     16232     16316     16402     16412
                                                                 16475     16604
                                                  TSDATA         20530
                                                  DECL           20615     20633     21032     21037     21060     21066     21206
                                                                 21262     21345     21435     21611     21630     21646     21720
                                                  TYPE           22123     22174
                                                  IO             23205     23231     23711     24036     24124
                                                  PAR            24753     25055     25077     25466     25554     25722     25724
                                                                 26043     26064     26541
                                                  ASF            27502     27602     27623
                                                  REG            31071     31217
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    11  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            31705     31724     32021     32127     34250     34363     35214
                                                  MAP            36126     36203     36522     36546
                                                  LIST           36642
          TA.NAM       3013                       BATCH           7676
                                                  END            11134     11144     11163     11535     11662     12063     12572
                                                                 12573
                                                  TSDATA         20515
                                                  DECL           20632     21205     21345     21777
                                                  IO             23716     23737
                                                  REG            30674     31130
                                                  GEN            32554
                                                  MAP            36100     36306
          TS.STN       3014                       BATCH           7674
                                                  PIG            10633
                                                  END            11123     11473     11512     12574
                                                  MAIN           14325
                                                  LEX            15776
                                                  KEY            16544
                                                  FMT            22274     22312
                                                  NUM            24320     24331     24337     24354     24404     24422     24427
                                                                 24436     24450     24464     24556     24567     24576
                                                  PAR            25167
                                                  DO             30000     30111     30253
                                                  GEN            35171
                                                  MAP            36205     36224     36523     36545
                                                  LIST           36612
          T.LNT        3015                       PIG            10567
                                                  END            11615
          TP.DIM       3016                       BATCH           7700
                                                  END            11146
                                                  KEY            16425     16436
                                                  TSDATA         20532
                                                  DECL           21056     21205     21723     21774
                                                  IO             24066
                                                  GEN            32012     32072     32130     32341     32355
                                                  MAP            36345
          TP.CIDM      3017                       END            11671
                                                  DECL           21772     21775
          TP.DO        3020                       END            11514
                                                  ALLOC          13132
                                                  IO             24055
                                                  NUM            24605     24616     24622     24624
                                                  PAR            25572     25627     26512
                                                  DO             30133     30147     30156     30215     30245
          TT.COMM      3020                       DECL           20574     20721     21721     21755
          TP.EQU       3021                       DECL           21416
          TT.LINK      3021                       END            11262     12223     12227     12245     12616
          TS.EQU       3021                       DECL           21140     21150     21160     21203
          TN.EXT       3021                       MAP            36124     36135     36143
          TP.FMT       3022                       END            12375
                                                  FMT            22606
                                                  LIST           37100
          TT.ASF       3023                       ALLOC          13127
                                                  ASF            27614     27650     27705     27710     27714     27717     27721
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    12  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 27751
          TT.PAR       3024                       ALLOC          13130
                                                  MAIN           14313     14345
                                                  KEY            16066     16137     16516     16521     16524     16562     16566
                                                                 16612     16623     16705     16725     16766     17063
                                                  IF             17177     17331
                                                  IO             23343     23424     23635     23661     23753
                                                  PAR            25312     25363     26101     26412     26613     26654     27021
                                                                 27041     27047
                                                  DO             30012     30030     30042     30154
                                                  REG            31051     31112     31215
                                                  GEN            31662     32367     32634     34275     34277     34301     34313
                                                                 35130     35143     35163
          T.VDIM       3025                       ALLOC          13131
                                                  KEY            16657
                                                  FUN            30426
                                                  GEN            32030     32043     32047     34316
          TP.NLST      3026                       END            12407     12415     12431
                                                  KEY            16407     16434     16453
          TP.APL       3027                       END            12307
                                                  ALLOC          13266
                                                  DECL           20604
                                                  IO             23251     23253     23256     23262     23267     23330     23417
                                                                 24021     24030     24111
                                                  DO             30101
                                                  FUN            30363     30415
                                                  LIST           37154
          TP.ILI       3030                       IO             24145     24161
                                                  PAR            25121
          TA.PRO       3031                       HEADER         10254     10512
                                                  PIG            10652
                                                  END            11215     11747     12070     12073     12130     12327     12575
                                                  LIST           37153     37246
          TS.DAT       3032                       END            11526
                                                  TSDATA         20176     20376     20403     20411     20422     20443
          T.FILE       3032                       HEADER         10110     10132     10177     10206     10230     10245
                                                  END            11214     12107     12115
                                                  LIST           36700     37246
          TS.BLK       3033                       BATCH           7703
                                                  END            11564     12026
                                                  DECL           20562     20572     20652     20737     20750     21355     21463
                                                                 21471     21510     21526     21723
                                                  REG            31132
                                                  MAP            36006     36010     36042     36344
          TS.ENT       3034                       HEADER         10046     10243
                                                  END            11203     12052
                                                  KEY            16501
                                                  MAP            36067     36076
          T.DLBUF      3035                       ERRORS          5041
                                                  MAIN           14357     14516
                                                  KEY            16361
          T.END        3036                       BATCH           7657
                                                  END            11331
                                                  ALLOC          13052
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    13  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=LGOB       3037             
          T=SB         3037                       END            11072
                                                  MAIN           13575     14111     14212
          SIZES        3037                       BATCH           7662
                                                  ALLOC          12732     12737     12756     13240
          TT=REF       3040                       ALLOC          13026     13033     13071     13140
                                                  MAP            36516     36533
          TT=LF        3041                       HEADER         10343     10346     10347     10511
                                                  PIG            10546     10553     10574
                                                  END            11111     11306     12466
                                                  ALLOC          13010     13062
          TT=USE       3042                       END            11072
                                                  ALLOC          13063
                                                  REG            31061
                                                  GEN            34246     34271
          TL=DAT       3042                       TSDATA         17401     17412     17416     17447
          TT=FILL      3042                       END            11257     12252     12256
                                                  ALLOC          12765
          TT=XFIL      3043                       END            11257     12214     12221
                                                  ALLOC          12767
          TT=SCR       3043                       END            11073     12004     12022     12045     12060     12154
                                                  ALLOC          13063
                                                  KEY            16133     16155
                                                  NUM            24605     24611     24615
                                                  PAR            25163     25727     25732     26652     26660
                                                  ASF            27500     27565     27622     27634     27644     27746
                                                  GEN            34246
                                                  LIST           37151     37163     37165
          TI=DAT       3043                       TSDATA         17367     17375     17567
          TS=CON       3044                       END            11113     11307     12366
                                                  ALLOC          13064
                                                  MAIN           13557     14620
                                                  LEX            15342
                                                  DECL           21007
                                                  LIST           37055
          TN=BLK       3044                       MAP            36066
          TS=SYM       3045                       END            11143     11632
                                                  DECL           20632     21647     21776
                                                  TYPE           22134
                                                  MAP            36176     36203     36524     36547
          TA=NAM       3046                       END            11133     11143     11162
                                                  ALLOC          13064
                                                  DECL           21777
                                                  MAP            36126
          TS=STN       3047                       END            11123     11474
                                                  MAP            36162     36205     36224     36253     36531     36547
          T=LNT        3050                       END            11602     11615     11630
          TP=DIM       3051                       ALLOC          13062
                                                  DECL           21772     21774
          TP=CIDM      3052                       END            11276
          TP=DO        3053                       END            11511
                                                  ALLOC          13065
                                                  MAIN           14350
                                                  KEY            16036     16465
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    14  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             23427     23431     23510     24056
                                                  NUM            24604     24613     24624     24627
                                                  PAR            25573     26512     26517
                                                  DO             30147     30157     30214     30242
          TT=COMM      3053                       DECL           20574     21720     22011
          TT=LINK      3054                       END            11256     12223     12227     12252
                                                  ALLOC          12764
          TP=EQU       3054                       DECL           21401     21415
          TS=EQU       3054                       END            11073
                                                  ALLOC          13065
                                                  DECL           21202     21260     21344     21445     21474
          TN=EXT       3054                       MAP            36123     36136     36143
          TP=FMT       3055                       END            11113     11307     12375
                                                  ALLOC          13066
                                                  FMT            22312
                                                  LIST           37100
          TT=ASF       3056                       END            11071
                                                  ALLOC          13061
                                                  MAIN           13614
                                                  PAR            25706
                                                  ASF            27613
          TT=PAR       3057                       ALLOC          13066
                                                  MAIN           14340
                                                  KEY            16567     16707
                                                  IF             17255     17335     17336
                                                  DECL           21540     21551     21554
                                                  PAR            24654     25336     25365     25751     26054     26077     26305
                                                                 26610     26640     27023
                                                  DO             30013     30043
                                                  GEN            31662     34245     34273
          T=VDIM       3060                       GEN            34310     34315     34317
          TP=NLST      3061                       END            11121     11310     12403     12407     12415     12431
                                                  ALLOC          13067
                                                  KEY            16403     16433
          TP=APL       3062                       END            11117     11272     11310     12307
                                                  ALLOC          13067     13266
                                                  LIST           37145     37162
          TP=ILI       3063                       IO             23352     24142     24152
          TA=PRO       3064                       PIG            10650
                                                  ALLOC          13070
          T=FILE       3065                       HEADER         10220
                                                  END            12107
          TS=DAT       3065                       END            11311     11524     11526
                                                  ALLOC          13070
                                                  TSDATA         20441
          TS=BLK       3066                       END            11563     12021
                                                  ALLOC          13072
                                                  DECL           20562     20652     20741
                                                  MAP            36011
          TS=ENT       3067                       END            11204     12046
                                                  ALLOC          13072
                                                  MAP            36070     36076     36122
          T=DLBUF      3070                       MAIN           13665     14357     14363     14366     14462     14505     14516
          RATES        3072                       BATCH           7660
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    15  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PTSN         3125             
          TG.BASE      3125                       BATCH           7666
          TG.PRO       3130                       HEADER         10170     10175     10204     10515
                                                  PIG            10650
                                                  KEY            16505     16517     16566     16702     17012
                                                  IF             17203
                                                  DECL           20570
                                                  IO             23150
                                                  PAR            25622
                                                  FUN            30334     30423
          TG.APL       3130                       ALLOC          13271
                                                  IO             22767     23066     23331     23351     23362     23422     23520
                                                  LIST           37150
          TG.VDIM      3131                       END            11116
                                                  GEN            32032
                                                  LIST           37135
          TG.TEM       3132                       IO             23626
                                                  FUN            30372
                                                  REG            31113
                                                  GEN            34257
          TG.END       3132                       BATCH           7665      7667
          CHARMAP      3133                       ERRORS          4751
                                                  HEADER         10424     10504
                                                  LEX            15630
                                                  KEY            16205     16237     16334     16745
                                                  DECL           20776     21100     21601     21635
                                                  TYPE           22220     22225
                                                  IO             23501     23564
                                                  PAR            24667     25300     25305     26031     26705
                                                  GEN            34337
          RG=BADR      3226                       REG            30440     31210     31257     31305
          RG=INTR      3231                       REG            30444
                                                  GEN            34431
          RG=TEMP      3234                       GEN            34432     34636     34741
          RG=LOAD      3242                       REG            30450     30574     30750     31103     31207     31224
                                                  GEN            32405     32421     32457     32461     34433     34701
          RG=LODX      3245                       REG            31201     31211     31473
                                                  GEN            34434     34712     34747
          RG=SET       3250                       REG            30622     30667     31244
                                                  GEN            32567
          RG=STOR      3253                       REG            30456     31410
                                                  GEN            34435     34752     35201
          REGFILE      3261                       DO             30201     30203     30210
                                                  FUN            30313     30326
                                                  REG            30453     30462     30472     30501     30522     30534     31026
                                                                 31105     31153     31172     31175     31227     31363     31371
                                                                 31414     31460     31463     31515     31523     31526     31530
                                                                 31535     31556     31557
                                                  GEN            32412     32413     32440     34643     34643     34654     34661
                                                                 34725     34740     34770     34770
          REGB         3261             
          REGA         3271                       REG            30546     31343     31353     31364
                                                  GEN            34263
          REGX         3301                       REG            31342     31350     31555
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    16  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            32424     34263     34613     34617     34633
          REG=T        3311                       GEN            34627     34654     34656     35204
          REG=B        3331                       GEN            34607     34662
          ARGCOMA      3351                       KEY            16135     16156     16201     16220     16221     16227     17005
                                                  IF             17152
                                                  DECL           21544
                                                  IO             22756     23517
                                                  PAR            24647     25173     25233     25247     25400     25443     25460
                                                                 25641     25652     25663
                                                  CONRED         27121
                                                  DO             30142
                                                  GEN            32067     32076     32241     32252     32265     32331
          ARGMODE      3352                       KEY            16135     17005
                                                  IF             17153
                                                  DECL           21545
                                                  IO             22743     22760     22764     23160     23366     23451     23470
                                                                 23543
                                                  PAR            24647     24654     24723     24732     24741     24771     25023
                                                                 25034     25126     25172     25205     25220     25233     25236
                                                                 25246     25272     25331     25350     25401     25651     25661
                                                                 26624
                                                  CONRED         27117     27164     27173
                                                  DO             30143
                                                  GEN            32167     32236
          ARGMIS       3353                       PAR            25175     25443     25461     25475     25653     25665
          ATTR         3354                       PAR            24747     24767     25115     25366     26610     27046
                                                  GEN            31770     32170     32174
          ASFLEN       3355                       MAIN           13615
                                                  PAR            25703
          BA.PRO       3356                       HEADER         10257     10521
                                                  END            11270
                                                  KEY            16101
                                                  LIST           37326
          BA.CON       3357                       END            11115     11260     12325     12600
                                                  LIST           37072
          BA.FMT       3360                       END            11125
                                                  LIST           37110
          BA.TEM       3361                       END            12326     12577     12602
                                                  LIST           37121     37133
          BA.APL       3362                       END            11271     12361     12607
                                                  LIST           37145
          BA.NLST      3363                       END            11165     11273
          BA.VAR       3364                       END            11135     11150
          BA.BUF       3365                       END            11212
          LOCAL        3366                       END            11233     11234     11237     12025
                                                  LIST           37266
          COMSIZ       3367                       END            11234     11237
                                                  LIST           37266
          BINIO        3370                       BATCH           7531      7633
                                                  HEADER         10342
                                                  PIG            10550
                                                  END            11101     12466
                                                  ALLOC          12775     13002
                                                  INIT           35354
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    17  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BINOUT       3371                       ERRORS          5063
                                                  BATCH           7750
                                                  PIG            10543
                                                  END            11762     11771
                                                  PAR            27021
                                                  GEN            34273
          CALL         3373                       LEX            15743     15752     15754
          CARDS        3375                       BATCH           7742
                                                  MAIN           14433     14471     14526
          CCNT         3376                       BATCH           7547
                                                  MAIN           13663     13716     13734     14211     14456     14467
                                                  KEY            16357
          COMMENT      3377                       MAIN           14466     14506     14605
          CONF         3400                       CONRED         27066
          CSLIST       3402                       MAIN           14154     14424     14445     14500
          CSNTAG       3403                       HEADER         10007
                                                  MAIN           14311     14327     14617
                                                  KEY            16717
                                                  IF             17250
                                                  NUM            24345
          CSSTMT       3404                       MAIN           14150     14157     14425     14577
          CSYMBOL      3405                       PAR            24750     25150     25160
          BLNKCOM      3406                       BATCH           7727
                                                  TSDATA         20517
                                                  DECL           20654     20677     20727     20747
                                                  MAP            36022     36035
          DOLMR        3407                       DO             30241
          DOIX         3411                       PAR            25630     26530
                                                  DO             27765     30007     30170     30177     30210
          DOSTNO       3413                       DO             27756     27767     30131
          CDORD        3414                       NUM            24465
                                                  DO             30114     30126
          DOORD        3415                       BATCH           7726
                                                  MAIN           14324
                                                  LEX            15774
                                                  KEY            16543
                                                  NUM            24330     24334     24355     24376     24425     24442     24447
                                                                 24464
                                                  PAR            25166
                                                  DO             30110     30237
          DRITE        3416                       BATCH           7712
                                                  REG            30505     30520     30544     31444     31461
                                                  GEN            34242     34557
          DTI          3421                       MAIN           13633     14615
                                                  KEY            16532     16711
                                                  IF             17172     17237     17242
                                                  NUM            24342     24457
          ENTRY.       3422                       HEADER         10045     10047     10272
                                                  END            12062
                                                  LEX            15650
                                                  KEY            16412     16513     16637     16645
                                                  TYPE           22127
                                                  PAR            25051
          ERRORS       3423                       ERRORS          5145
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    18  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  BATCH           7745
                                                  END            11076     11245     11335
          ETF          3424                       BATCH           7713
                                                  KEY            16304
                                                  TYPE           22122     22156
          FAILSFT      3425                       BATCH           7713
                                                  END            11063
                                                  ALLOC          13057
                                                  MAP            36002     36417
                                                  LIST           37307
          FLOW         3426                       BATCH           7714
                                                  MAIN           14330     14332
                                                  KEY            16272     16505     16703
                                                  IF             17176     17240     17252     17327     17334
                                                  PAR            25334
                                                  DO             27772
          HANGER       3430                       BATCH           7714
                                                  MAIN           14306
                                                  KEY            16555     16716
                                                  IF             17242     17247
          HDELAY       3431                       BATCH           7762
                                                  HEADER         10064
                                                  MAIN           13624     13661     14365     14461     14505
          NOLDS        3432                       GEN            32635     34440     34547
          ICONL        3433                       MAIN           13556
                                                  LEX            15343
                                                  IO             22743     23064     23335     23370     23436     23544     23546
          ICV          3434                       BATCH           7715
          IDENT1       3435                       HEADER         10060
          NAME         3437                       HEADER         10053
                                                  END            12061
          IGS          3441                       BATCH           7715
                                                  HEADER         10350
                                                  PIG            10545     10554     10574
                                                  END            11112
                                                  ALLOC          12777     13004     13007
          INAFR        3442                       PAR            24662     25704
                                                  ASF            27650     27704     27711     27722
          LASTCOL      3443                       BATCH           7550
                                                  MAIN           13573     13662     13717     13732     13740     14146     14151
                                                                 14155     14177
                                                  TSDATA         17417
                                                  FMT            22315
          LASTOP       3444                       PAR            25372     26355     26423     26456
          LASTAD       3445                       PAR            25370     26356     26423     26642
          LCNT         3446                       BATCH           7577
                                                  MAIN           14625     14631     14655
                                                  MAP            36005     36423     36455     36462
                                                  LIST           37310
          LDEAD        3447                       IF             17253
                                                  PAR            24662     25335
                                                  DO             27774
          LINEBUF      3450                       ERRORS          4773      4777      5045      5051
                                                  PIG            10620
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    19  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  END            11341     11345     11350
                                                  MAP            36050     36062     36063     36101     36115     36116     36146
                                                                 36155     36156     36222     36233     36234     36242     36243
                                                                 36246     36247     36250     36256     36417
                                                  LIST           36707     36712     36725     36746     37002     37036     37036
                                                                 37124     37126     37130     37141     37142     37174     37177
                                                                 37205     37206     37233     37240     37270     37301     37314
                                                                 37314     37317     37330     37332     37333     37334
          LDRFLG       3466                       BATCH           7740
                                                  KEY            16327
          LOSTREF      3467                       BATCH           7716
                                                  ALLOC          13152
                                                  MAP            36420     36511
          L.CARD       3470                       BATCH           7545
                                                  MAIN           13660     14166     14506     14550
                                                  INIT           35246
          MOD          3471                       BATCH           7716
                                                  HEADER         10024     10371     10402     10471
                                                  END            11056     11064     11076     11213     11245     11300     11746
                                                                 11772     11776     12044     12067     12460
                                                  MAIN           13601     13631
                                                  KEY            16272     16315     16461     16543     16627
                                                  TSDATA         20523
                                                  TYPE           22122
                                                  IO             23216
                                                  PAR            25053
                                                  GEN            34310
                                                  LIST           37242     37302
          MSF          3472                       BATCH           7717
                                                  END            11510
                                                  MAIN           13654
          MSN          3473                       END            11133     11472
          MULS         3474                       MAIN           13572     13656
                                                  LEX            15341     15371
                                                  KEY            16266     16365
          NARGS        3475                       BATCH           7720
                                                  HEADER         10227     10251     10370     10401     10422     10470
                                                  END            11215     12073
                                                  KEY            16522     16637
                                                  TYPE           22134
                                                  LIST           37242
          NOLIST       3476                       BATCH           7731
                                                  END            11317
                                                  MAIN           14424     14435     14440     14466
                                                  KEY            16256
          NOPATH       3477                       BATCH           7720
                                                  MAIN           14327
                                                  KEY            16274     16463     16547     16575     16620     16700     16702
                                                                 17041     17051
                                                  IF             17266
                                                  NUM            24455
                                                  DO             27773
          NREXT        3501                       END            11203     11262     12224     12230     12251
                                                  ALLOC          12766
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    20  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  MAP            36121
          NSK          3502                       BATCH           7721
                                                  END            11505
                                                  MAIN           13646
          NTRCNT       3503                       BATCH           7721
                                                  KEY            16515     16650     16655
          ORG          3504                       HEADER         10170     10247     10250     10341     10520
                                                  PIG            10566     10612     10622
                                                  END            11112     11541     12072     12270     12305     12367     12405
                                                                 12462     12536     12630     12636     12652
          O.STITL      3505                       BATCH           7735
                                                  MAIN           14713
                                                  MAP            36415     36466
          PARCEL       3506                       BATCH           7733
                                                  PIG            10600     10641     10643
                                                  END            11530     12463     12502     12515     12651
          PASS         3507                       BATCH           7722
                                                  END            11110
                                                  ALLOC          12764     13007     13075
                                                  MAIN           13552
                                                  MAP            36503     36523
          REFIO        3510                       BATCH           7540      7636
                                                  ALLOC          13023     13031     13154     13160
                                                  INIT           35361
                                                  MAP            36504
          REFLIN       3511                       HEADER         10044     10267
                                                  ALLOC          13151
                                                  MAIN           14315     14474     14477
                                                  GEN            31667
          REFNUM       3512                       MAIN           14616
                                                  KEY            16035     16213     16665
                                                  IO             23531
                                                  NUM            24365
                                                  DO             30106
          REFVAR       3513                       MAIN           14620
                                                  LEX            15670     15770
                                                  KEY            16034     16110     16666
                                                  IF             17214
                                                  TSDATA         17372
                                                  DECL           20676     20772     21125
                                                  TYPE           22166
                                                  IO             23223     23367
                                                  PAR            24664     24754     25106     25200     25327     25664
                                                  ASF            27601
          RJTDUM       3514                       BATCH           7724
                                                  FUN            30432
                                                  GEN            34322
          RGC          3515                       GEN            34431
          RGX          3516                       REG            30452     30464     31077     31512
                                                  GEN            34427     34637
          ROUTNAM      3517                       PAR            26265     26305
                                                  FUN            30263     30403     30406     30423
          RREG         3520                       FUN            30322     30400
                                                  REG            30513     30515     31164     31274     31511
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    21  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            32376     32453     34475     34536     35024     35027
          RTNCNT       3521                       BATCH           7724
                                                  KEY            16557     16572     16623
          SB.STNL      3522                       MAIN           13560     13737     14302     14315
                                                  KEY            16262     16353
          SB.STNR      3523                       MAIN           13570     13646     14301
                                                  LEX            15434
                                                  FMT            22261
          STAGE        3524                       BATCH           7732
                                                  HEADER         10063
                                                  ALLOC          13073
                                                  MAIN           13551     13605
                                                  KEY            16463
                                                  DECL           21771
                                                  TYPE           22152
          STATIC       3525                       BATCH           7727
                                                  END            12001
                                                  IO             22740     23020     23054     23120     23126     23443
          STN          3526                       HEADER         10007
                                                  MAIN           14304     14616
                                                  KEY            16246     16674     16754     17032
                                                  NUM            24325
          SYSERR       3527                       BATCH           7725
          TEM.MAX      3530                       BATCH           7671
                                                  END            11114     12363     12576
                                                  GEN            34256
                                                  LIST           37121     37133
          THRESH       3531                       END            11334
                                                  ALLOC          12734     13055
                                                  INIT           35341
          TRACE        3532                       FUN            30410
                                                  GEN            35125     35151
          TRLINE       3533                       KEY            16141     17023
                                                  IO             24136
                                                  PAR            25434
                                                  GEN            31670
          TS=CONB      3534                       MAIN           14622
                                                  DECL           21006
          UUC          3535                       DO             30211
                                                  FUN            30265
                                                  REG            31547
                                                  GEN            34441     34504     34664     34666     34730     35000     35020
                                                                 35035
          VALUE.       3536                       KEY            16317     16414     16630
                                                  TYPE           22130
                                                  PAR            25055
          VARDIM       3537                       DECL           21035     21646
          WNZ          3540                       BATCH           7725
          FIRSTV       3541                       MAIN           14235     14267     14274
                                                  LEX            15340     15430
                                                  IF             17160
          ZLEQUAL      3542                       MAIN           14237
                                                  LEX            15373
                                                  PAR            24642
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    22  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ZLCOMMA      3543                       MAIN           14243
                                                  LEX            15377
          ZLPAREN      3544                       MAIN           14253
                                                  LEX            15367
          ZLE          3545                       MAIN           14240
                                                  PAR            24643     25242     25317     25324
          ANSI         3546             
          LOP=X        3546                       ERRORS          4707
                                                  MAIN           13554
          LSTWRKG      3546                       BATCH           7757
                                                  INIT           35257
          IEFLG        3547             
          LOP=W        3547                       ERRORS          4715
          LOP=M        3550                       END            11242     11311
                                                  KEY            16256
                                                  INIT           35263
          OLIST        3551             
          LOP=O        3551                       BATCH           7746
                                                  HEADER         10067     10233     10257     10350     10517
                                                  PIG            10555     10644
                                                  END            11247
                                                  MAIN           14441     14443
                                                  INIT           35261     35270
                                                  LIST           37271
          LOP=R        3552                       BATCH           7537
                                                  LEX            15665     15765
                                                  KEY            16257
                                                  NUM            24364
                                                  PAR            25104
                                                  MAP            36216     36431     36435     36502
          RSELECT      3552                       INIT           35265
          R=FLAG       3553             
          CONONE       3554                       PAR            25612
                                                  DO             30041
          CONZER       3555                       CONRED         27253     27375
          VTRUE        3557                       PAR            25134
          MAPCHAR      3561                       LEX            15353
          LOGT         3574                       LEX            15453
          CONOTBL      3616                       PAR            24674     25203
          ACONS        3656                       PAR            24715
          FEXPR        3657                       PAR            24665
          POPTBL       3660                       PAR            25371
          PSTACK       3720                       PAR            24676
                                                  INIT           35374     35377     35402     35405
          PLUS         3720                       GEN            32001
          MULT         3722                       GEN            31774
          LPAR         3724                       PAR            25177
          EQUAL        3726                       PAR            25326
          COMMA        3727                       PAR            25215
          UMINUS       3743                       PAR            25257
                                                  GEN            32323
          ANDNOT       3747                       PAR            26447
          APLSTOR      3752                       IO             23655     24023     24034
          APLSTOD      3753                       IO             24024
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    23  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          APLUG        3754                       IO             23652     24031
                                                  DO             30055
          ASSN         3755                       KEY            16061
          PLUS(S       3756                       GEN            32103     32114
          MULT(S       3757                       GEN            32121
          SUBOP        3760                       GEN            32171
          PLUS.M       3761                       CONRED         27151
          MINUS.M      3762                       CONRED         27156
          DO.BEG       3764                       DO             30161
          CALLIO       3765                       IO             23345
                                                  DO             30057
          IN.EXP       3767                       PAR            26216
          ERROP        3770                       PAR            25313     25356     25406
          GOASS        3771                       KEY            16770
          OPBSS        3772                       MAIN           14347
          OPDUM        3773                       KEY            17071
          REVMIN       3774                       PAR            26360
          SDIV         3775                       PAR            26340     26346     26364
          XPOP         3776                       GEN            31671
          OTROP        3777                       MAIN           14316
                                                  KEY            16644
          M.STCMM      4000   IO        
          INTMAC       4000   TABLES              PAR            25430
                                                  GEN            32217
          CALLOP       4001                       KEY            16177     16215
                                                  PAR            25413     25446     25734     26025     26045     26273
          BIFFUN       4002                       PAR            25466     26012
                                                  GEN            31574
          RANF         4003                       GEN            31652
          BIFSHF       4004                       GEN            31630
          EXTCAL       4005                       KEY            16142
          EXTFUN       4006                       PAR            25747     26053     26303
          BEFFUN       4007                       PAR            25750     26304
          RJSUB        4010                       FUN            30424
          REGARG       4011                       PAR            25450     25737
          REGARG2      4012                       PAR            26301
          OPRETS       4013                       KEY            16634
          OPRETD       4014                       KEY            16631
          IMULT2       4015                       CONRED         27432
          NOOPP        4016                       DO             30020     30066
          XMITOP       4017                       GEN            32165
          DO.CSKL      4020                       DO             30026
          SHFC         4031                       CONRED         27427
                                                  GEN            32160
          SHFS         4032                       CONRED         27443
          SHFSA        4033                       CONRED         27445
          SHFD         4034                       CONRED         27452
          SHFDS        4035                       CONRED         27454
          DIVP2        4036                       CONRED         27224
          VD.EQ        4037                       GEN            32036
          VD.MULT      4040                       GEN            32045
          VD.INTR      4041                       GEN            32050
          ARRARM       4042                       PAR            25131
          ASFARM       4043                       PAR            25144
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    24  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BEFXARM      4044                       PAR            25161
          BIFARM       4045                       PAR            25151
          BUFMOD       4046                       IO             22737
          BUFFWA       4047                       IO             22756
          BUFLWA       4050                       IO             22762
          CALLARM      4051                       KEY            16133
          CNFARM       4052                       PAR            24646
          DECARM       4053                       DECL           21542
          DOARM        4054                       DO             30141
          EXTFARM      4055                       PAR            25157
          GOTARM       4056                       KEY            17004
          IFARM        4057                       IF             17151
          LPARM        4060                       PAR            25227
          IOARGM       4061                       IO             23510
          NDC=CNT      4063                       IO             23450
          NDC=STR      4064                       IO             23467
          PTN=FMT      4065                       IO             23542
          CIO=         4074                       BATCH           7534      7536      7542      7572      7625      7630      7632
                                                                  7635      7640
                                                  END            11103     11105     11107     11305
                                                  ALLOC          13003     13015     13017     13021     13032     13104     13106
                                                  MAIN           14560
                                                  KEY            16352
                                                  INIT           35302     35305     35310     35312
                                                  MAP            36506     36510     36515
          RDC=         4101                       MAIN           14531
          RDW=         4115                       END            12474
                                                  MAP            36520
          WTC=         4230                       BATCH           7607      7616
                                                  MAIN           14636     14652     14707     14712     14715     14721     14724
                                                                 14726
                                                  KEY            16350
          WTW=         4243                       HEADER         10345
                                                  PIG            10552
                                                  END            12660
                                                  ALLOC          13006     13035     13144
          CDD          4331                       END            11340     11506
                                                  MAIN           14504     14673
                                                  FMT            22525
                                                  INIT           35365
                                                  MAP            36353     36407     36421     36550
          COD          4335                       BATCH           7641
                                                  HEADER         10247     10351
                                                  PIG            10617
                                                  END            11243     12440
                                                  MAP            36056     36113     36272     36326     36340
                                                  LIST           36706     37074     37112     37130     37142     37176     37203
                                                                 37232     37254     37262     37267     37327     37331
          DXB          4344                       PIG            10565
                                                  MAIN           14473
          LJS          4352                       END            11501     11520
                                                  MAP            36262
          SFN          4357                       HEADER         10052
                                                  MAP            36111     36153     36301
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    25  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LIST           36711     36745     37066     37173     37252     37260
          WOD          4365                       LIST           37071     37107
          E.AC5        4407   ERRORS              HEADER         10507
                                                  KEY            16242
          E.AC6        4410                       HEADER         10404
          E.AP         4411                       HEADER         10075     10441
                                                  KEY            16176
          E.AP1        4412                       HEADER         10421     10466
                                                  KEY            16225
          E.RA         4413                       KEY            16603
          E.RA1        4414                       KEY            16606     16607
          E.AF3        4415                       ASF            27537
          E.AF4        4416                       ASF            27575
          E.AF5        4417                       ASF            27660
          E.AF6        4420                       ASF            27552
          E.AF11       4421                       ASF            27664     27700
          E.AF15       4422                       ASF            27521
          E.AF17       4423                       ASF            27507     27511
          E.ANS1       4424                       MAIN           13555
          E.ART        4425                       KEY            16553
          E.ART1       4426             
          E.AS4        4427                       KEY            16032
                                                  DO             27755
          E.CL         4430                       KEY            16107
          E.CL1        4431                       KEY            16155
          E.CM         4432                       DECL           20767
          E.CM1        4433                       DECL           20725
          E.CM2        4434                       DECL           20742
          E.CM3        4435                       DECL           20724
          E.CM4        4436                       DECL           20700
          E.CM5        4437                       DECL           20757
          E.CM6        4440                       DECL           20704
          E.CT         4441                       KEY            16254
          E.DACV       4442                       TSDATA         17411
          E.DAVC       4443                       TSDATA         17410
          E.DAUC       4444                       TSDATA         20510
          E.DCE        4445                       TSDATA         17636     17640
          E.DIL        4446                       TSDATA         17467     17514
          E.DIL1       4447                       TSDATA         17500
          E.DIL2       4450                       TSDATA         17507     17533
          E.DIL3       4451                       TSDATA         17553
          E.DMT        4452                       TSDATA         17450
          E.DNA2       4453                       TSDATA         17370
          E.DSE        4454                       TSDATA         17433     17440     17447     17461     17463     17464
          E.DVL1       4455                       TSDATA         17702     17726     20102
          E.DVL2       4456                       TSDATA         17741     17744     17747     17751
          E.DVL21      4457                       TSDATA         17760
          E.DVL22      4460                       TSDATA         17762
          E.DVL23      4461                       TSDATA         17764
          E.DVL24      4462                       TSDATA         17766
          E.DVL25      4463                       TSDATA         17773
          E.DVL26      4464                       TSDATA         17775
          E.DVL29      4465             
          E.DVL3       4466                       TSDATA         17733     17737
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    26  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DVL4       4467                       TSDATA         17755
          E.DVL5       4470                       TSDATA         17710
          E.DVL6       4471                       TSDATA         17722     17722     20002     20075     20075
          E.DVL7       4472                       TSDATA         20104
          E.DVL8       4473                       TSDATA         20120     20127     20135
          E.DVL9       4474                       TSDATA         17637
          E.DM         4475                       DECL           21025     21105
          E.DM1        4500                       DECL           21074     21120
          E.DM2A       4501                       DECL           21112
          E.DM2        4502                       DECL           21117
          E.DM3        4503                       DECL           21042
          E.DM5        4504                       DECL           21031
          E.DM5A       4505                       DECL           21023     21025
          E.DM7        4506                       DECL           21121
          E.DM8        4507                       DECL           21050
          E.DM10       4510                       DECL           21003
          E.EQ         4511                       DECL           21166
          E.EQ1        4512                       DECL           21131
          E.EQ2        4513                       DECL           21156
          E.EQ3        4514                       DECL           21164
          E.EQ4        4515                       DECL           21163
          E.EQ5        4516                       DECL           21153     21154     21155
          E.EX3        4517                       DECL           21011     21576
          E.FS1        4520                       FMT            22263
          E.FS2        4521                       FMT            22317
          E.GO         4522                       KEY            16671     16761     16777
          E.GO1        4523                       KEY            16664
          E.GO2        4524                       KEY            16721
          E.GO3        4525                       KEY            16750
          E.IF         4526                       IF             17156
          E.IF3        4527                       IF             17222     17225
          E.IF6        4530                       IF             17171
          E.IF9        4531                       IF             17162
          E.IF10       4532                       IF             17235
          E.IF11       4533                       IF             17163
          E.IF12       4534                       IF             17231
          E.IF13       4535                       IF             17223
          E.IO         4536                       IO             23565
          E.IO1        4537                       IO             23055     23561
          E.IO3        4540                       IO             23567
          E.IO7        4541                       IO             23532     23536
          E.IO11       4542                       IO             23610
          E.IO12       4543                       IO             23612
          E.IO13       4544                       IO             23133
          E.IO14       4545                       IO             23431
          E.IO20       4546                       IO             23145
          E.IO25       4547                       IO             23117
          E.IO27       4550                       IO             23030     23031     23356
          E.IO29       4551             
          E.IOB1       4552                       IO             22734
          E.IOB2       4553                       IO             23641     23642
          E.IOB3       4554                       IO             22736     22755
          E.IOB4       4555                       IO             22750     22762
          E.IOB5       4556                       IO             22754     22766
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    27  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IOB7       4557                       IO             23664     23665     23667     23756     23757     23761
          E.IOB8       4560                       IO             23645
          E.IOB9       4561                       IO             23713     23715     23723     23731     23733     23735     23736
          E.IOB10      4562                       IO             23704     23727     23746
          E.IOD1       4563                       IO             23271
          E.IOD2       4564                       IO             23304
          E.IOD3       4565                       IO             23307
          E.IOD4       4566                       IO             23320
          E.IOL5       4567                       IO             23415     23416
          E.ION        4570                       IO             23441
          E.IOS1       4571                       IO             23447
          E.IOS2       4572                       IO             23457
          E.IOS3       4573                       IO             23464
          E.IOS4       4574                       IO             23466
          E.IOS5       4575                       IO             23474
          E.IOS6       4576                       IO             23446     23457     23465
          E.IOS7       4577                       IO             23472     24121     24127
          E.IOS9       4600                       IO             23454     23454     23767     23770
          E.IOS10      4601                       IO             23461
          E.LN         4602                       KEY            16373
          E.LN1        4603                       KEY            16401
          E.LN2        4604                       KEY            16375
          E.LN3        4605                       KEY            16403
          E.LN4        4606                       KEY            16431
          E.LV1        4607                       DECL           21665     21665     21674
          E.LV2        4610                       DECL           21676     21677
          E.LV3        4611                       DECL           21701     21701
          E.LV4        4612                       DECL           21705
          E.LV5        4613                       DECL           21715
          E.FM         4614                       MAIN           13600     14010
                                                  KEY            16072
                                                  IF             17165
                                                  TYPE           22042
                                                  FMT            22262
          E.MA         4615                       MAIN           13620
          E.MB         4616                       MAIN           13603
          E.MCA        4617                       MAIN           13735
          E.MD         4620                       MAIN           13621
          E.ME         4623                       KEY            16265
          E.MH         4624                       MAIN           13622
          E.MI         4625                       MAIN           13623
          E.MIJ        4626                       TYPE           22054
          E.MN         4627                       END            11507
          E.M$         4630                       END            11510
          E.M$2        4631                       KEY            16267
          E.M$3        4632                       KEY            16366
          E.MK         4633                       MAIN           13643     14232
          E.MO1        4634                       END            11235
          E.MR1        4635                       HEADER         10077     10106     10115     10123     10212     10363     10416
                                                                 10460
                                                  KEY            16222
          E.MR2        4636                       KEY            16374
                                                  DECL           21076
          E.MR3        4637                       KEY            16410
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    28  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           21127
          E.MT         4640                       MAIN           13624     13626
          E.NP         4641                       MAIN           14337
          E.NP1        4642                       DO             27774
          E.OV         4643                       KEY            16332
          E.OV1        4644                       KEY            16333
          E.OV3        4645                       KEY            16360
          E.PT         4646                       KEY            16476
          E.PT3        4647                       KEY            16470
          E.PT1        4650                       KEY            16462
          E.PT4        4651                       KEY            16471
          E.SN18       4652                       NUM            24375
          STNTD        4655                       NUM            24407
          STNTND       4660                       NUM            24410
          E.SPR3       4661                       KEY            16532
          E.TC2        4662                       HEADER         10217
                                                  ASF            27535
          E.TC3        4663                       HEADER         10150     10152
          E.TC4        4664                       HEADER         10152
          E.TC6        4665                       HEADER         10133
          E.TC7        4666                       HEADER         10127
          E.TC9        4667                       HEADER         10137     10141     10143
          E.TC10       4670                       HEADER         10143
          E.TE5        4671                       LEX            15633
                                                  DECL           21604
                                                  TYPE           22225     22227
          E.TY         4672                       HEADER         10427
                                                  DECL           21001
                                                  TYPE           22223
                                                  PAR            26034
          E.TYH        4673                       MAIN           14224
                                                  TYPE           22047
          E.TYIK       4674                       TYPE           22056
          E.TYI1       4675                       TYPE           22061
          E.TYI2       4676                       TYPE           22064     22074
          E.TYI6       4677                       TYPE           22116
          E.TYI7       4700                       TYPE           22121
          E.UE         4701                       IO             23604
          E.UE1        4702                       IO             23605
          E.US1        4703                       LEX            15005     15360
          E.VA3        4704                       PAR            25053     25054
          E.XC1        4705                       DECL           21172
          E.ZA         4706                       HEADER         10240
                                                  END            12417     12433
                                                  DECL           20576
          ERR=F        4720                       BATCH           7745
                                                  END            11335
                                                  ASF            27575
                                                  DO             30145
                                                  GEN            34272
          ANSI=        4727                       HEADER         10437
                                                  ALLOC          13464
                                                  LEX            15021     15402     15461     15501     16007
                                                  KEY            16076     16116     16174     16276     16457     16537     16610
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    29  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 16741     17002     17117     17125
                                                  IF             17174     17233     17325
                                                  TSDATA         17435     17515     17705     20421     20436
                                                  DECL           20735     20764     21113     21146     21663
                                                  TYPE           22036     22046     22052
                                                  FMT            22245     22346     22364     22372     22403     22435     22446
                                                                 22450     22461
                                                  IO             22726     23012     23023     23046     23076     23106     23124
                                                                 23137     23432     23442     23775
                                                  PAR            24645     24743     24777     25140     25253     25421     25427
                                                                 25523     25562     26114     26547     26752     27014
                                                  CONRED         27125
                                                  DO             27762
          ANSI.SW      4730                       INIT           35362
          OSE          5073                       GEN            32140     32142     32177     32243     32254     32333
          SA=BKS3      5100   GEN                 KEY            17132
                                                  IO             24132
                                                  REG            30565     30724     31041
          PWE          5116   ERRORS              HEADER          7777     10035     10102     10104     10113     10131     10215
                                                                 10223     10366     10373     10377     10436     10445     10451
                                                                 10467     10473     10475
                                                  END            11062     11503     11522
                                                  ALLOC          13074
                                                  MAIN           13561     13636     13651     13700     13710     14460     14562
                                                  LEX            15047     15074     15077     15111     15120     15302     15304
                                                                 15335     15527     15532     15560     15563     15566     15621
                                                                 16012
                                                  KEY            16046     16053     16063     16065     16152     16173     16210
                                                                 16226     16235     16250     16252     16264     16271     16356
                                                                 16370     16423     16467     16474     16600     16616     16676
                                                                 16722     16736     16757     16763     17036     17107     17113
                                                                 17122     17131
                                                  IF             17244     17271     17275     17322
                                                  TSDATA         17365     20432     20440     20521     20525
                                                  DECL           20627     20650     20664     20672     21015     21073     21103
                                                                 21122     21170     21236     21247     21253     21420     21422
                                                                 21425     21427     21433     21440     21461     21506     21555
                                                                 21562     21614     21617     21640     21660
                                                  TYPE           22070     22076     22100     22102     22111     22176     22203
                                                  FMT            22305     22327     22333     22344     22351     22356     22410
                                                                 22413     22432     22444     22463     22474     22570     22576
                                                                 22600
                                                  IO             23033     23043     23057     23130     23132     23227     23357
                                                                 23503     24003     24014     24051     24063
                                                  NUM            24306     24311     24315     24323     24336     24352     24505
                                                                 24540     24565     24575
                                                  PAR            24671     24725     24762     25006     25031     25041     25044
                                                                 25046     25240     25310     25330     25405     25424     25526
                                                                 25531     25535     25541     25546     25552     25566     25603
                                                                 25635     25647     25677     25711     26075     26145     26147
                                                                 26154     26233     26247     26475     26525     26527     26537
                                                                 26551     26633     26714     26721     27010
                                                  CONRED         27255     27304     27325     27365     27376
                                                  ASF            27512     27525     27573     27670
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    30  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DO             27761     30022     30061     30221     30224
                                                  GEN            31634     31702     31721     31734
          UEC          5144                       MAIN           13637     14613
          FILL.        5151                       HEADER         10106     10365     10426     10443     10506
                                                  END            11502     11507     11521
                                                  ALLOC          13463
                                                  MAIN           14304
                                                  LEX            15005     15360     15401     15557     15626     15632     15746
                                                  KEY            16052     16203     16207     16241     16263     16355     16472
                                                                 16747
                                                  IF             17157
                                                  TSDATA         20504
                                                  DECL           20647     20663     20671     20707     20734     21000     21041
                                                                 21102     21133     21215     21264     21437     21457     21505
                                                                 21541     21546     21552     21600     21603     21637     21657
                                                                 21702
                                                  TYPE           22063     22066     22074     22171     22222     22226
                                                  FMT            22343     22473     22573
                                                  IO             23216     23502     23565     23571
                                                  NUM            24300
                                                  PAR            24670     24747     25251     25305     25510     25561     26033
                                                                 26113     26546     26751
                                                  CONRED         27122     27263     27375
                                                  ASF            27501     27517     27535
                                                  GEN            31701     31721
          FILL.2       5152                       HEADER         10100     10126
                                                  MAIN           14012
                                                  LEX            15620
                                                  DECL           20625     21107
                                                  NUM            24377
                                                  ASF            27522     27572
          FILL.3       5153                       KEY            16234
                                                  DECL           20626
                                                  TYPE           22067
                                                  GEN            31734
          CLASS        5154                       LEX            15657     15660     15661
                                                  DECL           20621     20623
                                                  MAP            36314     36323
          DO.DPC       5200                       PAR            25250     25506
                                                  CONRED         27122
          SA=XKS3      5200   GEN                 REG            30646     30647
          CON.DPC      5204   ERRORS              CONRED         27261     27373
          SA=ABS3      5400   GEN                 REG            30547
          E.AC         6007   ERRORS              HEADER         10475
          E.AC3        6011                       HEADER         10376     10450
          E.AC4        6013                       HEADER         10366     10444
          E.AC8        6020                       HEADER         10467
                                                  KEY            16226     16762
          E.AC9        6022                       HEADER         10436
                                                  KEY            16173
          E.FA         6030                       HEADER         10373
          E.FR         6032                       HEADER         10472
          E.AF7        6050                       ASF            27573
          E.AF9        6052                       ASF            27524
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    31  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.AF10       6054                       ASF            27667
          E.AF16       6062                       ASF            27511
          E.IN1        6066                       GEN            31634
          E.ADP        6070                       TYPE           22036
          E.AES        6072                       KEY            16275
          E.ANS        6074                       HEADER         10437
                                                  KEY            16174     16370     16457     16537     16607
                                                  DECL           21663
                                                  TYPE           22052
                                                  IO             22726     23012     23046     23075     23105     23442
          E.ANS2       6100                       ALLOC          13464
                                                  DECL           20735
          SB=BKS3      6100   GEN                 HEADER         10266
          E.ANS3       6104   ERRORS              PAR            26113     26752
          E.ANS4       6106                       KEY            16075
          E.AS2        6110                       KEY            16052
          E.AS3        6111                       KEY            16062
          E.AS5        6114                       KEY            16045
          E.AT1        6116                       PAR            26713     27010
          E.AT1A       6120                       PAR            26474     26721
          E.AT2        6122                       PAR            25307
          E.AT3        6124                       PAR            24725
          E.AT5        6126                       PAR            25405
          E.AT6        6130                       PAR            25240
          E.AT7        6132                       PAR            27014
          E.AT8        6133                       PAR            24742
          E.AT9        6135                       PAR            24644
          E.AT10       6137                       IO             23502
                                                  PAR            24670
          E.AT11       6141                       PAR            25711
          E.AT12       6143                       PAR            25677
          E.AT13       6145                       PAR            25562     26547
          E.CL2        6154                       KEY            16210
          E.CL3        6156                       KEY            16115
                                                  PAR            25140
          E.CMA        6162                       DECL           20763
          E.CR1        6200                       CONRED         27146     27154
          E.CR2        6202                       CONRED         27161
          E.CR3        6204                       CONRED         27207
          E.CR3A       6206                       CONRED         27204
          E.CR4        6210                       CONRED         27202
          E.CR5        6212                       CONRED         27164     27172
          E.CR6        6214                       CONRED         27212     27216
          E.CR7        6216                       CONRED         27301
          E.CR8        6220                       CONRED         27325
          E.CR9        6222                       CONRED         27304
          E.CR10       6224                       CONRED         27365
          E.DAA        6230                       TSDATA         17704
          E.DALV       6232                       TSDATA         20521     20524
          E.DAR        6240                       TSDATA         17515
          E.DHC        6245                       TSDATA         20435
          E.DNA        6261                       TSDATA         17435
          E.DTC        6267                       TSDATA         20432     20440
          E.DVL10      6327                       TSDATA         20421
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    32  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DC         6331                       LEX            15117
          E.DC1        6332                       LEX            15020
          E.DC2        6334                       LEX            15104
          E.DC3        6335                       LEX            15056     15060
          E.DC6        6337                       LEX            15073
          E.DC8        6341                       LEX            15047     15077     15110     15301
          E.DC9        6343                       LEX            15304
          E.DM4        6355                       DECL           21122
          E.DM6        6361                       DECL           21073
          E.DM9        6367                       DECL           21015
          E.DM11       6373                       DECL           21554
          E.DM12       6375                       DECL           21113
          E.DM13       6376                       DECL           21562
          E.DM14       6400                       DECL           21657
          E.DO         6402                       PAR            25603     26075
          E.DO1        6404                       PAR            25525
          E.DO2        6406                       PAR            25546
          E.DO3        6410                       PAR            25540
          E.DO4        6412                       PAR            25551     25566
          E.DO5        6414                       PAR            25535
          E.DO8        6416                       IO             24062
                                                  PAR            26525
          E.DO9        6420                       END            11521
          E.DO11       6422                       PAR            25634
          E.DO12       6424                       NUM            24432
                                                  DO             30220
          E.DO13       6426                       DO             30224
          E.DO16       6430                       PAR            25253     25522
                                                  CONRED         27124
          E.DO17       6432                       PAR            25531
          E.DO18       6434                       DO             30022
          E.DO23       6436                       PAR            26527
          E.DO24       6440                       NUM            24444     24537
          E.DO25       6442                       NUM            24505
          E.DO25A      6444                       NUM            24574
          E.DO27       6446                       DO             27757     27763
          E.DO28       6450                       DO             27762
          E.DO29       6452                       DO             27760
          E.EQ6        6465                       DECL           21170
          E.EQ11       6467                       DECL           21417     21425
          E.EQ12       6471                       DECL           21422     21427
          E.EQ13       6473                       DECL           21235
          E.EQ14       6475                       DECL           21247
          E.EQ15       6477                       DECL           21253
          E.EQ16       6501                       DECL           21433     21440
          E.EX1        6503                       DECL           21613
          E.EX2        6505                       DECL           21103     21640
          E.EX4        6510                       DECL           21617
          E.FS3        6515                       FMT            22333
          E.FS4        6517                       FMT            22473
          E.FS5        6521                       FMT            22431
          E.FS5A       6523                       FMT            22435
          E.FS6        6526                       FMT            22444
          E.FS6A       6530                       FMT            22446
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    33  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.FS7        6531                       FMT            22450
          E.FS7A       6533                       FMT            22463
          E.FS7B       6535                       FMT            22457
          E.FS7C       6537                       FMT            22454
          E.FS8        6541                       FMT            22346
          E.FS8A       6543                       FMT            22327     22351
          E.FS8B       6545                       FMT            22356
          E.FS8C       6550                       FMT            22364
          E.FS8D       6552                       FMT            22372
          E.FS8E       6554                       FMT            22403
          E.FS8F       6556                       FMT            22410
          E.FS9        6560                       FMT            22245
          E.FS10       6562                       FMT            22413
          E.FS11       6564                       FMT            22566
          E.FS11A      6566                       FMT            22565
          E.FS14       6570                       FMT            22576
          E.FS18       6572                       FMT            22344
          E.FS18A      6574                       FMT            22600
          E.FS23       6575                       FMT            22302
          E.FS24       6577                       FMT            22303
          E.FS26       6601                       FMT            22307
          E.GO1A       6607                       KEY            16736
          E.GO2A       6613                       KEY            16252     16722
          E.GO4        6617                       KEY            17001
          E.GO5        6621                       KEY            16741
          E.GO7        6623                       KEY            16675
          E.GO8        6624                       KEY            16757     17036
          E.GO9        6626                       PAR            25421
          E.GO10       6630                       PAR            25423
          E.GO11       6632                       PAR            25427
          E.HC1        6634                       LEX            15526
          E.HC2        6636                       LEX            15334     15532
          E.HC3        6640                       LEX            15566
          E.HC4        6641                       LEX            15562
          E.HC5        6643                       LEX            15402     15501
          E.IF1        6646                       IF             17232
          E.IF2        6650                       IF             17174
          E.IF4        6654                       IF             17274
          E.IF5        6656                       IF             17270
          E.IF7        6662                       IF             17322
          E.IF8        6664                       IF             17325
          E.IO2        6704                       IO             23357
          E.IO6        6707                       IO             23057
          E.IO62       6711             
          E.IO8        6714                       IO             23130
          E.IO9        6716                       IO             23033     23043     23131
          E.IO19       6727             
          E.IO21       6733             
          E.IO26       6737                       IO             23123
          E.IO28       6743                       IO             23023     23136
          E.IOL1       7003                       IO             24014
          E.IOL2       7005                       IO             24051
          E.IOL3       7007                       DO             30060
          E.IOL4       7010             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    34  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IOF        7014                       IO             23775
          E.IOF1       7016                       IO             24003
          E.ION1       7022                       IO             23432
          E.LP1        7055                       LEX            15422
          E.LP2        7056                       LEX            15423
          E.LP3        7057                       PAR            25342     25654     26505
          E.LP4        7062                       PAR            25646
          E.LV6        7077                       DECL           20650
          SX=BKS3      7100   GEN                 REG            30626     30673     30725
          E.LV7        7102   ERRORS              DECL           20663
          E.LV8        7104                       DECL           20671
          E.LV9        7107                       DECL           21506
          E.LV10       7112                       DECL           21460
          E.LV11       7114                       KEY            16423
                                                  PAR            26633
          E.MC1        7126                       MAIN           13677     13710
          E.MLNL       7130                       MAIN           14457
          E.MDO        7134                       MAIN           13635
                                                  IF             17244
          E.ML         7157                       MAIN           13650
          E.MO2        7162                       ALLOC          13073
          E.MRA        7171                       PAR            24761
          E.MS         7173                       END            11502
          E.NLN        7176                       MAIN           14562
          SX=XKS3      7200   GEN                 REG            30651
          E.PN1        7212   ERRORS              HEADER         10035
          E.PN3        7214                       HEADER          7777
          E.PT2        7220                       KEY            16466
          E.SB2        7230                       GEN            32142
          E.SB3        7232                       GEN            32242     32332
          E.SB4        7234                       GEN            32207     32214     32223
          E.SB6        7236                       GEN            32210
          E.SB7        7240                       GEN            32253
          E.SB8        7242                       GEN            32137
          E.SN         7244                       NUM            24322
          E.SN1        7246             
          E.SN2        7250             
          E.SN3        7252             
          E.SN4        7254             
          E.SN5        7256             
          E.SN6        7260             
          E.SN7        7262             
          E.SN8        7264             
          E.SN9        7266                       NUM            24440
          E.SN10       7270             
          E.SN12       7272                       NUM            24565
          E.SN13       7274                       NUM            24336
          E.SN14       7276                       NUM            24313
          E.SN15       7300                       NUM            24314
          E.SN16       7302                       MAIN           13561
                                                  KEY            16264     16355
          E.SN17       7303             
          E.SN19       7307                       NUM            24305
          E.SN20       7311                       NUM            24311
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    35  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.SU2        7312                       KEY            16151
                                                  GEN            31715
          E.SU3        7314                       GEN            31702
          E.SU4        7317                       LEX            16007
          E.SU4A       7321                       LEX            16012
          E.SU6        7323                       PAR            25044
          E.SU8        7325                       KEY            16234
                                                  GEN            31711     31717
          E.SU9        7327                       GEN            31731
          E.SU10       7331                       GEN            31727
          E.SU11       7333                       END            11062
          E.SU12       7335                       TYPE           22176
          E.SPR        7337                       KEY            17122
          E.SPR1       7341                       KEY            17130
          E.SPR2       7343                       KEY            17113
          E.SPR4       7347                       KEY            17125
          E.SPR5       7351                       KEY            17116
          E.TC1        7352                       HEADER         10112
          E.TC5        7362                       HEADER         10222
          E.TC11       7375                       HEADER         10102     10104     10130
          E.TE1        7377                       PAR            25005
          E.TE2        7401                       PAR            25027
          E.TE2B       7403                       PAR            25025
          E.TE2A       7405                       PAR            25024
          E.TE3        7407                       PAR            25040     25046
          E.TE4        7411                       DECL           21145
                                                  PAR            24772
          E.TE7        7415                       LEX            15557
          E.TE8        7417                       PAR            25330     26536     26551
          E.TT         7421                       TYPE           22203
          E.TY1        7424                       TYPE           22111
          E.TYA        7426                       TYPE           22046
          E.TYI3       7440                       TYPE           22067     22076
          E.TYI4       7442                       TYPE           22102
          E.TYI5       7444                       TYPE           22100
          E.UE2        7456                       IO             23227
          E.VA1        7463                       LEX            15663
          E.VA2        7465                       LEX            15461
          E.VD         7471                       DECL           20627
          E.XC         7473                       HEADER         10215
                                                  KEY            16064     16247     16271     16474     16577     16616     17107
          E.XP1        7477                       PAR            26145
          E.XP2        7501                       PAR            26147
          E.XP3        7503                       PAR            26233
          E.XP4        7505                       PAR            26154
          E.XP5        7507                       PAR            26247
          FTN10        7514   BATCH     
          RUN.X        7574                       END            11337     11352
                                                  INIT           35254
          RUN5         7610                       KEY            16330     16365
          PSF          7777   HEADER              MAIN           13611
                                                  TYPE           22163
          PSFA        10013                       DECL           21771     22012
                                                  TYPE           22163
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    36  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DCM         10023                       KEY            16102     16312     16536     17055
          PIDX        10070                       LIST           36730
          PPA         10072                       KEY            16540
          PPA355      10157                       ERRORS          7360
          PPA4        10160                       ERRORS          7356      7364      7371      7373
          PFDX        10236                       LIST           36714
          PPAD        10315                       INIT           35371
          PSA         10357                       KEY            16313     17056
          DCM3        10532             
          PIGLINE     10540   PIG                 BATCH           7723
                                                  GEN            35146
          PIGLAB      10541                       BATCH           7723
                                                  GEN            35147
          PIG         10557                       HEADER         10263     10302     10307     10500
                                                  END            11100
                                                  NUM            24461
                                                  GEN            35142
          PIKX        10600                       LIST           37040
          NADD        10646                       BATCH           7717
          DPT         10647                       ALLOC          13273
                                                  DECL           20607
          PIK=PS      10657                       END            12504
                                                  LIST           36754     36766     37003     37005
          PIK=XJP     10757                       LIST           37004     37010
          PIK=PI      10767                       LIST           36755
          PIK=TAG     10773                       LIST           36732     36751     36772     36777     37026
          PIK=BL      10776                       LIST           37011
          PIK=I       10777                       LIST           36756     36757     36763     37000     37013     37020     37023
          PIK=J       11000                       LIST           37006
          WININIT     11016                       BATCH           7750
                                                  INIT           35356
          WIN         11017                       ERRORS          5066
                                                  BATCH           7751
                                                  HEADER         10271     10273     10275     10336     10340     10477
                                                  END            11075
                                                  KEY            16512     17016     17020     17034     17047     17134
                                                  IO             24134
                                                  FUN            30333     30341     30376     30422     30431
                                                  REG            30551     30606     30630     30637     30701     30707     30730
                                                                 30754     31002     31005     31010     31035     31045     31237
                                                                 31266     31323     31326     31423     31477
                                                  GEN            32443     32531     32601     32605     32616     32626     34324
                                                                 34571     34723     34775     35034     35141     35153     35156
                                                                 35211     35221     35223
                                                  INIT           35353
          WINX        11053                       ERRORS          5065
                                                  INIT           35355
          END         11056   END                 KEY            16273     16274     16275     16300     16302
          WCLX        11251                       LIST           37336
          WVMX        11313                       MAP            36002     36200     36420     36431     36434     36443
          END93       11335                       ERRORS          7153      7175
          END96       11353                       ALLOC          13076
                                                  MAIN           13553
          BT.IDNT     11356                       HEADER         10026     10040
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    37  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT           35344
          BT.XFR1     11471                       HEADER         10041
          CKS         11472                       ERRORS          7161
          CKS65       11510                       ERRORS          7145
          CKS67       11511                       ERRORS          7147
          DFTA        12207                       BATCH           7730
          DLF         12222                       ALLOC          12771
          LFS.MAX     12450                       BATCH           7642      7643      7643
          OTRSAV      12561             
          ADW         12700   ALLOC               HEADER         10046     10230     10243
                                                  PIG            10570
                                                  END            12634     12641
                                                  KEY            16407     16453     16501
                                                  TSDATA         17430     17444     20176     20376     20403     20404     20407
                                                                 20413
                                                  DECL           20605     20721     21141     21150     21160     21204
                                                  IO             23251     23254     23257     23262     23267     23330     23417
                                                                 24021     24030     24112     24161
                                                  PAR            25122
                                                  ASF            27516     27527     27751
                                                  DO             30101
                                                  FUN            30363     30416
                                                  GEN            34300     34374     34405
          ALC         12714                       HEADER         10200     10207     10513
                                                  PIG            10653     11024     11047
                                                  END            11145     11252     11263     11265     11267     12005     12023
                                                                 12047     12157
                                                  MAIN           14115     14215     14314     14346     14520
                                                  KEY            16140     16435     16726     16767     17070
                                                  IF             17200     17333
                                                  TSDATA         17664     20425     20444
                                                  DECL           20743     21773     22000
                                                  FMT            22607
                                                  IO             23344
                                                  NUM            24606     24621
                                                  PAR            25452     26614     26655
                                                  ASF            27615     27703     27714     27721
                                                  DO             30031     30134     30155
                                                  GEN            31666     32031     32044     34314
                                                  MAP            36007     36041     36125     36513
                                                  LIST           37152
          ZERO        13000   GEN       
          XOR         13000                       REG            31314
          ALC.REG     13124   ALLOC               PIG            10544     10577
                                                  MAIN           14622
                                                  PAR            25705
                                                  ASF            27747
                                                  DO             30027
                                                  GEN            34303     34305     35133     35165
          ALC.00      13126                       PIG            10542
                                                  MAIN           14621
                                                  PAR            25703
                                                  GEN            34304     35131
          ALC.ASF     13127                       ASF            27744
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    38  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ALC.CAI     13130                       GEN            34302     35164
          ALC.DO      13132                       DO             30027
          ALC.PIG     13133                       PIG            10575
          IDENT       13136                       HEADER         10040
                                                  END            11342     12024
                                                  TYPE           22125
                                                  LIST           36726     37302
          ERT         13151                       HEADER         10051     10412     10457
                                                  LEX            15671     15771
                                                  KEY            16504
                                                  DECL           21632
                                                  TYPE           22214
                                                  FMT            22614
                                                  IO             23213     23237
                                                  NUM            24347     24370
                                                  PAR            25107
                                                  INIT           35361
          ESC         13163                       KEY            17123
                                                  IO             23622
                                                  PAR            25411     25445     25745     26023     26047     26272     26275
          ESN         13204                       FMT            22277
                                                  NUM            24327     24446
          ESY         13220                       HEADER         10043     10241     10410     10455
                                                  LEX            15641     15763
                                                  KEY            16405     16477
                                                  DECL           21630
                                                  TYPE           22206
                                                  IO             23233
                                                  PAR            25100
          MVE         13256                       BATCH           7760
                                                  END            12010
                                                  MAIN           14523
                                                  TSDATA         20451
                                                  DECL           21775
                                                  FMT            22611
                                                  NUM            24610     24623
                                                  PAR            26661
                                                  ASF            27563     27707     27716
                                                  GEN            34316
                                                  INIT           35257
                                                  MAP            36043
          NAP         13265                       IO             23334
                                                  FUN            30417
          NCM         13276                       LEX            15415
                                                  DECL           21057
                                                  IO             24107
                                                  PAR            24711     26417
                                                  DO             30076
          NCS         13347                       KEY            17120
                                                  IO             23242
                                                  PAR            24714     26170     26207     26245     26413
                                                  CONRED         27206     27271     27313     27371     27413
                                                  GEN            31603     31611     31620     31773     32024     32053     32213
          PRS         13374                       BATCH           7673      7675      7677
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    39  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          SCTR        13404                       HEADER         10110     10132
          SCD         13413                       DECL           20737
          SCS         13421                       ASF            27551
                                                  GEN            34401
          SCSA        13430                       ASF            27541
                                                  GEN            34332
          SCT         13431                       ASF            27523
          SSN         13441                       FMT            22275
                                                  NUM            24320     24405
          SSY         13457                       HEADER         10042     10237     10375     10447
                                                  MAIN           14270
                                                  LEX            15636     15750
                                                  KEY            16402     16475     16605
                                                  DECL           21611
                                                  TYPE           22174
                                                  IO             23205     23231
                                                  PAR            24753
                                                  ASF            27502     27602
          NEXT        13501                       LEX            15745
          SRT         13503                       END            12226     12255
                                                  MAP            36067     36135
                                                  LIST           37164
          DSRT        13517                       MAP            36044     36552
          PSP.Z       13551   MAIN                ERRORS          7512
          PSP.C       13556                       ERRORS          6263
                                                  TSDATA         17367
          PSP         13560                       ERRORS          4476      6015      6016      6040      6042      6060      6064
                                                                  6076      6160      6164      6166      6170      6172      6174
                                                                  6176      6257      6371      6454      6506      7024      7026
                                                                  7030      7032      7034      7036      7040      7042      7043
                                                                  7044      7045      7047      7051      7053      7065      7067
                                                                  7071      7075      7120      7133      7137      7141      7143
                                                                  7164      7166      7170      7204      7206      7224      7354
                                                                  7366      7423      7430      7467      7475
                                                  KEY            16103     16320     16454     16541     17057
                                                  DECL           20723     20775     21173     21174     21634     21644     21714
                                                  TYPE           22135     22144     22217     22232
                                                  ASF            27635
          PSP.F       13562                       ALLOC          13076
                                                  FMT            22613
          CPM         13562                       ERRORS          7001      7116
                                                  BATCH           7556      7561      7564
                                                  KEY            16673
                                                  NUM            24462
          TABX.F      13600                       LEX            15436
          CPM2        13604                       ERRORS          7122
          PSFX        13605                       HEADER         10012
          PCDX        13605                       DECL           22014
          CUSX        13633                       ERRORS          7200
          CPM5        13637             
          IFS.X       13637                       IF             17176     17211
          CPM6        13644                       ERRORS          7155
          AFSX        13655                       ERRORS          7124
          AFS.ME      13736                       BATCH           7552      7553
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    40  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ASK         14003                       KEY            16054
                                                  TYPE           22034     22160
          ASL         14037                       KEY            16032
                                                  DO             27755
          BLL         14064                       ERRORS          5060
          CSK         14223                       TYPE           22050     22057
          CST         14234                       IF             17164
          GSNX        14306                       NUM            24317     24346
          CUS.RET     14311                       ERRORS          6611
                                                  KEY            16564     16565     16723     16724     16733
                                                  IF             17272     17323     17330     17346     17350
          CSB         14343                       IF             17210     17346
                                                  NUM            24456
          LDB         14356                       ERRORS          5043
                                                  BATCH           7570
                                                  HEADER         10065
          LSL         14411             
          LSS         14415             
          PLO         14423                       BATCH           7552
          PLR         14464                       BATCH           7565
          RNC         14525                       BATCH           7521      7566
          RNS         14551                       BATCH           7551
          WBL         14630                       END            11351     12446
                                                  ALLOC          13100
                                                  MAP            36430     36442     36460     36475     36477
                                                  LIST           37064     37103     37132     37144     37147     37245     37324
          WOF         14654                       ERRORS          5061
                                                  HEADER         10261     10353     10355     10524
                                                  KEY            16364
                                                  MAP            36064     36117     36157     36244     36433     36456
                                                  LIST           37037     37052     37076     37114     37200     37210     37264
                                                                 37277     37335
          HDRBL       14752                       BATCH           7734
                                                  MAP            36414
          DEC         15012   LEX                 HEADER         10137     10146
                                                  TSDATA         17503     17610     17625     17635     17642
                                                  DECL           21153
                                                  PAR            24703
          OCT         15305                       KEY            17115
          STY         15321                       HEADER         10405
                                                  KEY            16310
                                                  DECL           21626
                                                  TYPE           22126     22141
                                                  PAR            25076
          NAT.TYP     15327                       BATCH           7754
                                                  TYPE           22113     22115
          TAB         15337                       MAIN           13571
          TAB.LP      15345                       TABLES          3565
          TAB.NX      15346                       TABLES          3561      3562      3564      3571
          TAB.STR     15363                       TABLES          3563
          TAB.RP      15366                       TABLES          3566
          TAB.DOL     15371                       TABLES          3567
          TAB.=       15373                       TABLES          3570
          TAB.CO      15376                       TABLES          3572
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    41  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TAB.PD      15442                       TABLES          3573
          BLANK       15525                       MAIN           13572
          THC         15534                       FMT            22417
          TLV         15553                       HEADER         10033     10414     10462
                                                  MAIN           14264
                                                  KEY            16124     16377
                                                  DECL           20705     20761     21607
                                                  TYPE           22210
                                                  PAR            24752
                                                  ASF            27531
          TSC         15570                       FMT            22520
          TRV         15624                       END            11060
                                                  KEY            16055     16314     16411     16734
                                                  TSDATA         20505
                                                  DECL           20713     21012     21064     21133     21703
                                                  IO             23537     23574
          S.IOCAL     15700                       IO             22741     23063     23340     23434
          S.NLST      15720                       IO             23435
          S.ERR       15722             
          S.Q2NTR     15723                       HEADER         10277
          S.ACGOR     15725                       KEY            17021
          S.BKSP      15726                       IO             22723
          S.ENDFI     15727                       IO             23002
          S.RANDM     15731                       GEN            31643
          S.REWIN     15732                       IO             23052
          S.BUFIO     15734                       IO             22737
          S.END       15735                       KEY            17061
          S.PAUSE     15736                       KEY            17075
          S.FTNRP     15740                       HEADER         10304
          S.FID       15741                       GEN            35160
          TSF         15742                       HEADER         10300     10305
                                                  KEY            16111     17022     17062     17076
                                                  IO             23224     23341
                                                  PAR            25102     26261
                                                  ASF            27607
                                                  GEN            31646     35161
          SLT         16015                       PAR            25065
          ASSIGN=     16031   KEY                 IO             24173
          TO=         16072                       IO             24174
          BLOCKD=     16074                       IO             24175
          CALL=       16106                       IO             24176
          CRL         16164                       PAR            26035
          CONTIN=     16245                       IO             24177
          END=        16256                       MAIN           14334
                                                  IO             24200     24251
          END1B       16266                       ERRORS          7136
          END1C       16270                       ERRORS          7151
          FUNCTI=     16304                       TYPE           22161
                                                  IO             24201
          SVALUE.     16321                       END            11057
          LDSET=      16323                       IO             24202
          OVERLA=     16326                       IO             24203
          LCC66       16361                       ERRORS          7210
          NAMELI=     16370                       IO             24204
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    42  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          NAM20       16412                       LEX            15653
          ENTRY=      16457                       MAIN           14320     14335
                                                  IO             24205
          PAUSE=      16530                       IO             24206
          PROGRA=     16535                       IO             24207
          RETURN=     16543                       IO             24210
          RTU         16622                       END            11066
          GOTO=       16663                       IO             24211
          GOTA        17043                       PAR            25435
          STOP=       17045                       IO             24212
          SUBROU=     17054                       IO             24213
          EMT         17067                       IO             23425
                                                  PAR            25314     25415     25456
                                                  FUN            30427
          IFS         17147   IF                  IO             24247
          IFS11       17164                       ERRORS          6666
          INIF        17351                       MAIN           14617
                                                  KEY            16251     16507     16523     16554     16617     16677     17050
                                                  NUM            24454
          IFMOD       17353                       PAR            26072
          IFRESLT     17354                       PAR            26071
          IFREL1      17355                       KEY            16570     16706
          IFSN        17356                       KEY            16714     16720
          DAT.Z       17366   TSDATA              ERRORS          6242      6244      6247      6251      6253      6255      6265
                                                                  6271      6272      6310      6312      6314      6316      6320
                                                                  6322      6324      6326
          DATA=       17372                       IO             24214
          DATA2       17412                       ERRORS          6234      6235
          CFC         17577                       IO             23406
                                                  PAR            25225
          LSHF        20000   GEN                 REG            31324
          CCT         20617   DECL                KEY            16113
          COMMON=     20676                       IO             24215
          DIMENS=     20772                       IO             24216
          DIR8        21003                       ERRORS          4477      6347      6351      6353      6363      6365
          DIRX        21006                       ERRORS          6357
          DIR         21010                       TYPE           22215
          EQUIVA=     21125                       IO             24217
          EQS8        21174                       ERRORS          6456      6460      6461      6462      6463
          EQU3        21262             
          EXTERN=     21575                       IO             24220
          LEVEL=      21663                       IO             24221
          LVL8        21713                       ERRORS          7073
          PCD         21770                       MAIN           13613
          LOGICA=     22022   TYPE                IO             24222
          INTEGE=     22024                       IO             24223
          REAL=       22026                       IO             24224
          DOUBLE=     22030                       IO             24225
          PRECIS=     22042                       IO             24226
          COMPLE=     22044                       IO             24227
          TYPE=       22046                       IO             24230
          IMPLIC=     22052                       IO             24231
          IMP.ER      22145                       ERRORS          7432      7434      7436      7446      7450
          TYP02       22164                       HEADER         10011
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    43  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TYPA        22234                       DECL           20711     20754     21575     21624     21627
          TYPC        22236                       MAIN           14615
          TYPD        22237                       BATCH           7711
          TYPF        22240                       BATCH           7726
          FORMAT=     22261   FMT                 MAIN           13617
                                                  IO             24232
          FMT6A       22315                       ERRORS          6512
          IODIR       22671   IO                  PAR            24657
          IOLEN       22674                       DO             30100
          R.W         22703                       PAR            24734     24737
          STLTAB      22705                       END            12013     12173
          BACKSP=     22723             
          BUFFER=     22726             
          BUFERR      22772                       ERRORS          6747      6751      6753      6755      6757      6761      6763
                                                                  6770
          DECODE=     22777             
          ENDFIL=     23002             
          ENCODE=     23007             
          PUNCH=      23012             
          PRINT=      23046             
          REWIND=     23052             
          READ=       23071             
          WRITE=      23101             
          FFN         23177                       HEADER         10235
                                                  LIST           36702     36710
          LST         23353                       ERRORS          6724      6731      6735
          LST5        23421                       ERRORS          7012      7020
          PTN3        23540                       LEX            15654
          A=BMOD      23640                       TABLES          4046
          A=BLWA      23660                       TABLES          4050
          BLWA        23747                       ERRORS          6765
          C=BFWA      23752                       TABLES          4047
          C=CNT       23766                       TABLES          4063
          A=FMT       23774                       TABLES          4065
                                                  PAR            24775     25350
          C=FMT       23774                       TABLES          4065
          C=IOL       24005                       TABLES          4061      4062
          A=STR       24115                       TABLES          4064
          O=IOJ       24131                       TABLES          3765
          CML         24141                       PAR            25124
          LGR         24173                       MAIN           13652     13736     14230     14233     14276
                                                  LEX            15436
                                                  KEY            16047
                                                  TYPE           22034     22157
          TYPES       24253                       TYPE           22047     22056
          CUAFLAG     24266   NUM                 MAIN           13566     13567
          CUA         24276                       MAIN           13566
          GSN         24317                       MAIN           14305
          ISASG       24350                       KEY            16037     16041
          ISN60       24354                       ERRORS          4654      4656      4657      4660
          ISN         24373                       KEY            16042     16214     16672     16753     17030
                                                  IF             17217
                                                  IO             23534
                                                  DO             30106
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    44  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LBDO        24420                       ERRORS          4660
          DODO        24424                       ERRORS          4656
          DLAB        24440                       ERRORS          4653
          LABL        24442                       ERRORS          4655
          STN0R       24453                       KEY            16673     16754     17031
                                                  DO             30127
          PSN         24454                       ERRORS          6024      6026      6034      6036      6056      6103      6112
                                                                  6150      6152      6226      6514      6603      6605      6615
                                                                  6644      6652      6660      6670      6672      6674      6676
                                                                  6700      6702      6705      6713      6720      6722      6726
                                                                  6741      6745      6773      6775      6777      7202      7216
                                                                  7222      7226      7305      7345      7413      7452      7454
                                                                  7460
                                                  LEX            15121
                                                  KEY            16056     16070     16114     16144     16253     16254     16522
                                                                 16526     16533     16556     16576     16621     16704     16712
                                                                 16716     16752     17042     17050     17052
                                                  IF             17243     17245
                                                  IO             22771     22773     23067     23430     24252
                                                  PAR            24652     25011     25361
                                                  DO             27772
          CLK         24463                       DO             30225     30231
          SMOD        24631   PAR                 CONRED         27064     27140     27262     27274     27320     27332     27335
                                                                 27374     27412
                                                  GEN            32204     32245     32304
          SOPR        24633                       IO             23653     23656     24032
                                                  CONRED         27062     27066     27113     27127     27137     27157     27226
                                                                 27232     27235     27246     27251     27261     27317     27414
                                                                 27422     27433
                                                  GEN            31653     31776     32003     32162     32166     32174     32220
                                                                 32227     32270     32272
          CURST       24634                       BATCH           7711
                                                  MAIN           14341     14351
                                                  KEY            16733
                                                  IO             23347
                                                  GEN            34247
          CNF         24642                       IO             24250
          PAR         24653                       KEY            16136     17010
                                                  IF             17154
                                                  DECL           21547
                                                  IO             22751     22760     22764     23411     23455     23472     23545
                                                  DO             30144
          PAR.NX      24673                       TABLES          4052      4056      4060
                                                  GEN            32106     32124
          PAR.TNK     24703                       TABLES          3620      3655      3656
          PAR.HOL     24721                       TABLES          3617
          PAR.VAR     24746                       TABLES          3621
          PAR.FAL     25134                       TABLES          3647
          PAR.TRU     25134                       TABLES          3646
          PAR.CM      25205                       TABLES          3631
          PAR.LP      25225                       TABLES          3626
          PAR.DLP     25233                       TABLES          3650
          PAR.EQL     25236                       TABLES          3630
          PAR.PL      25244                       TABLES          3622
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    45  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PAR.MIN     25255                       TABLES          3623
          PAR.STD     25261                       TABLES          3624      3625      3627      3632      3633      3634      3635
                                                                  3636      3637      3640      3641      3642      3643      3644
                                                                  3645      3651      3652      3653      3657
          PAR.EOS     25316                       TABLES          3616      3654
                                                  ERRORS          6044
          PAREXIT     25334                       IO             23651     23654     23657     24130
          POPX        25362                       IO             24113
                                                  GEN            32156
          POP.CM      25400                       TABLES          3673
          C=CERR      25405                       TABLES          4043      4046      4047      4050      4052      4057      4060
                                                                  4063      4064
          C=ERR       25406                       IO             24004     24015     24052
          C=FUN       25411                       TABLES          4055
          C=CALL      25411                       TABLES          4051
          C=GOT       25417                       TABLES          4056
          C=BEF       25443                       TABLES          4044
          C=BIF       25460                       TABLES          4045
          C=DEC       25504                       TABLES          4053
          C=DO        25505                       TABLES          4054
          DO.ERR      25605             
          IXLASTV     25643                       DO             27766     27767     30132
          POP.RP      25644                       TABLES          3671
          POP.PN      25651                       TABLES          3670      3712
          A=ASF       25670                       TABLES          4043
          A=BEF       25714                       TABLES          4044
          A=BIF       25756                       TABLES          4045
          A=DEC       26020                       TABLES          4053
          A=CALL      26021                       TABLES          4051
          A=FUN       26040                       TABLES          4055
          A=IF        26070                       TABLES          4057
          A=LIST      26073                       TABLES          4061      4062
          A=DO        26074                       TABLES          4054
                                                  CONRED         27117
          POP.EXP     26077                       TABLES          3706
          POP.DIV     26336                       TABLES          3667
          POP.PL      26355                       TABLES          3664
          POP.MUL     26363                       TABLES          3666
          POP.UM      26407                       TABLES          3707
          POP.LOG     26440                       TABLES          3703      3704      3705
          POP.NOT     26453                       TABLES          3702
          POP.REL     26464                       TABLES          3674      3675      3676      3677      3700      3701
          POP.REQ     26503                       TABLES          3672
          POP.STD     26553                       TABLES          3660      3661      3662      3663      3665      3710      3711
                                                                  3713      3714      3715      3716      3717
                                                  GEN            32175
          POP.ST1     26565                       IO             24023     24024     24035
          ADT         26573                       IO             23654     23656     24033
                                                  GEN            31653     32000     32005     32162     32166     32221
          CT2         26643                       GEN            31650     32026
          FAL         26651                       KEY            16162
          SDM         26664                       GEN            31777     32004
          CCR         27063   CONRED              PAR            26576
                                                  GEN            32271
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    46  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CMO         27264                       PAR            26444
          TER1        27400                       PAR            26117     26127
                                                  GEN            32300
          TER2        27401                       PAR            26121
                                                  GEN            32302
          CMC         27404                       PAR            26511
          LCT         27464                       DECL           21557
                                                  PAR            25511     26116     26120     26407     26442     26453     26506
                                                  GEN            31564     31605     31614     31631     31751     32205
          AFD         27500   ASF                 IO             24245
          AFDEX       27634                       ERRORS          6046
          AFR         27642                       PAR            25143
          SDO         27754   DO                  IO             24246
          CDI         30103                       IO             23154
          CDO         30170                       GEN            34071
          DIP         30172                       GEN            34050
          PDT         30213                       IO             23172
                                                  NUM            24460
          O=BEF       30257   FUN                 TABLES          4007
          O=FUN       30262                       TABLES          4006
          O=ARG       30274                       TABLES          4001
          O=RJT       30403                       TABLES          4005
          ARGNUM      30435                       GEN            34276
          ABR         30437   REG                 GEN            34606
          AIR         30443                       GEN            32435     35045
          ASR         30455                       FUN            30321     30330     30356     30365
                                                  GEN            32436     34647     35023     35043     35046
          CAR         30477                       BATCH           7752
          CDS         30504                       KEY            16460
                                                  FUN            30274
                                                  GEN            32403     34244     34321     34565     34615     34672     34676
                                                                 35120
          CIAA        30526                       GEN            35136     35137
          CIA         30527                       KEY            17040
                                                  IO             24131
                                                  FUN            30413
                                                  GEN            34567     35122     35136
          CLI         30561                       FUN            30360     30371
                                                  GEN            34763
          CLP         30745                       GEN            32546
          CLT         30756                       END            12424     12626
                                                  FUN            30351
                                                  GEN            32517     32540
          CRJ         30766                       HEADER         10301     10306
                                                  KEY            16531     17024
                                                  IO             24137
                                                  FUN            30260     30411
                                                  GEN            34326     35162
          CWI         31025                       FUN            30306     30314
          DIT         31047                       FUN            30266     30272
                                                  GEN            32632     35051
          GNR         31075                       GEN            32457     32570     34717     34747     35202
          GST         31137                       DO             30174     30177
                                                  FUN            30304     30312     30317
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    47  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            32406     32420     32462     34701     34753     35021
          GSTC        31212                       GEN            32421     32463     34702     34754
          LFP         31220                       GEN            32510
          LSC         31272                       GEN            34713
          LTG         31333                       GEN            32427     34710
          RLL         31341                       GEN            32402     32434     32451     32503     32506     32543     32545
                                                                 32566     35007     35073
          RUL         31346                       GEN            32456     32475     32513     32515     32572     32607     32611
                                                                 34574     35100
          REGLK       31355                       GEN            34430     34573     34575     35070     35074
          CLOADJ      31357                       GEN            35077
          STRGLK      31360                       GEN            34430     34724
          RUT         31367                       GEN            32414     32417     34621     34641     34651     35050
          SDS         31443                       DO             30211
                                                  GEN            35040
          SFR         31510                       GEN            34636     34742
          SST         31534                       GEN            32450     34734     35003
          ESF         31575   GEN                 PAR            25473     26015
          MXP         31661                       KEY            16107     16245     16724     16765     17007
                                                  IF             17147
                                                  IO             23147     23173     23342
                                                  PAR            24650
                                                  DO             30143
          VAM         31674                       PAR            25444     25462     25465     25717     26011
          VEL         31704                       KEY            16161
                                                  PAR            26021     26040
          VIL         31723                       PAR            25715     25757     26005
          DIMUL       31737                       IO             24074     24076
          DIMSYM      31741                       ERRORS          5100
          CVT         32011                       IO             24075
          C=ARRAY     32067                       TABLES          4042
          A=ARRAY     32125                       TABLES          4042
                                                  CONRED         27165     27174
          PSO         32235                       IO             23653
                                                  PAR            26556     26566
          SSO         32326                       PAR            25126
          O=SUBL      32365                       TABLES          3760
                                                  IO             23662     23754
          SLD         32366                       FUN            30324     30401
          DIMI        32647                       DECL           21026     21026     21030
          ALREG       32650                       REG            31221
          AFREG       32651                       REG            31247
          E.FIV       33003                       LEX            16017
          CRTTAB      33004                       REG            31020
          O=ADD       33007                       TABLES          3720      3756
          ADD.I       33010                       TABLES          3762      4015
          O=RADD      33032                       INIT           35374
          O=SUB       33043                       TABLES          3721      3774
          SUB.I       33044                       TABLES          3761
          O=RSUB      33057                       INIT           35377
          O=UMIN      33070                       TABLES          3743
          O=NOT       33071                       TABLES          3736
          O=MULT      33074                       TABLES          3722      3757      3775
          MULT.I      33075                       TABLES          4040
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    48  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          MULT.R      33076                       CONRED         27245
          O=RMULT     33117                       INIT           35402
          O=DIV       33133                       TABLES          3723
          O=RDIV      33202                       INIT           35405
          O=ANDO      33224                       TABLES          3737
          O=ORO       33225                       TABLES          3741
          O=XOR       33226                       TABLES          3740
          O=ORN       33227                       TABLES          3751
          O=ANDN      33230                       TABLES          3747
          O=XORN      33231                       TABLES          3750
          O=LT        33232                       TABLES          3730      3735
          O=GE        33246                       TABLES          3731      3734
          O=NE        33265                       TABLES          3733
          O=EQ        33310                       TABLES          3732
          O=SHFC      33333                       TABLES          4031
          O=SHFD      33336                       TABLES          4034
          O=SHFDS     33343                       TABLES          4035
          O=SHFS      33346                       TABLES          4032
          O=SHFSA     33353                       TABLES          4033
          O=DIVP2     33356                       TABLES          4036
          O=STR       33361                       TABLES          3726      3763
          STR.I       33362                       TABLES          3752      4037
          STR.D       33363                       TABLES          3753
          MODECON     33365                       PAR            26760
          MODTBL      33403                       PAR            25674     25776     26107     26165     26702     26746
          INLBASE     33411                       PAR            25471     26014
          O=INT       33531                       TABLES          4000
          O=RANF      33570                       TABLES          4003
          IFBASE      33600                       IF             17330
          IFI111      33735                       IF             17273
          IFL12       33736                       IF             17307
          IFLN2       33740                       IF             17167     17175     17310
          IFL1N       33741                       IF             17167     17175     17311
          IFEN2       33742             
          IFE1N       33743             
          STDIF       33744                       IF             17277     17312
          NSTDIF      33753                       IF             17313
          R..2        33761                       PAR            26221
          R..3        33762                       PAR            26222
          R..4        33764                       PAR            26223
          R..5        33766                       PAR            26224
          R..6        33771                       PAR            26225
          R..7        33774                       PAR            26226
          R..8        34000                       PAR            26227
          R..9        34003                       PAR            26230
          R..10       34007                       PAR            26231
          I..2        34013                       PAR            26221
          I..3        34014                       PAR            26222
          I..4        34016                       PAR            26223
          I..5        34020                       PAR            26224
          I..6        34023                       PAR            26225
          I..7        34026                       PAR            26226
          I..8        34032                       PAR            26227
          I..9        34035                       PAR            26230
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    49  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          I..10       34041                       PAR            26231
          O=DOB       34045                       TABLES          3764
          O=DOC1      34051                       TABLES          4020      4021
          O=DOC2      34055                       TABLES          4022      4023
          O=DOC3      34061                       TABLES          4026      4027
          O=DOC3A     34065                       TABLES          4030
          O=DOC4      34073                       TABLES          4024      4025
          O=GOTON     34077                       KEY            16727
          O=GOA       34100                       TABLES          3771
          O=GOC       34102                       PAR            25434
          O=GOCL      34112                       PAR            25436
          O=ASSGN     34123                       TABLES          3755
          O=BSS       34125                       TABLES          3772
                                                  KEY            16624
                                                  IO             23425
          O=QUITP     34126                       KEY            17064
          O=QUITS     34127                       KEY            16561
          O=RTNA      34132                       KEY            16613
          O=RETD      34142                       TABLES          4014
          O=RETS      34145                       TABLES          4013
          O=RETN      34147                       KEY            16641
          O=NTR       34152                       KEY            16640
          O=NTRM      34154                       KEY            16651
          O=NTRN      34156                       KEY            16650
          O=NTRN1     34161                       KEY            16654
          O=NTRX      34163                       KEY            16647     16655
          O=NTRY      34164                       KEY            16656
          O=NTR0      34165                       KEY            16514
          O=NTRP      34173                       KEY            16524
          O=VOID      34175                       KEY            16517
          O=STRC      34200             
          O=XMIT      34211                       TABLES          4017
          O=APLUG     34212                       TABLES          3754
          O=RAGS1     34216                       PAR            26333
          O=RAGD1     34217                       PAR            26333
          O=RAGSS     34221                       PAR            26334
          O=RAGSD     34223                       PAR            26334
          O=RAGDS     34226                       PAR            26335
          O=RAGDD     34231                       PAR            26335
          O=RJSUB     34235                       TABLES          4010
          CAI         34270                       END            11067
                                                  MAIN           14354
                                                  KEY            17011     17102
                                                  IO             22770     22772     23426
                                                  DO             27766
          FVD         34307                       END            11070
          DUC.        34335                       TABLES          3133      3134      3143      3144      3163      3164      3165
                                                                  3171      3172      3173      3175      3201      3203      3206
                                                                  3207      3210      3213      3214      3215      3222      3223
                                                                  3224
          DUC.1ST     34343                       TABLES          3174      3176      3200      3212      3216      3217      3225
          DUC.BTH     34344                       TABLES          3137      3140      3141      3142      3145      3147      3150
                                                                  3151      3152      3153      3154      3156      3157      3160
                                                                  3161      3166      3167      3170      3177      3205      3211
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    50  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                  3221
                                                  PAR            26706
          DUC.2ND     34350                       TABLES          3146      3155      3162      3202      3204      3220
          EIS.PNX     34437                       IO             24172
                                                  DO             30204     30212
                                                  FUN            30273     30364     30405
          NULLOP      34572                       DO             30171
          O=NOOP      34577                       TABLES          4016
          O=EPO       35124                       TABLES          3776
          O=OTR       35127                       TABLES          3777
          O=OTRA      35167                       BATCH           7722
          OSTACK      35231   INIT                BATCH           7705
                                                  PAR            24661     24664     25316
          REPFLAG     35231                       TSDATA         17507     17523     17562     20262     20466     20473
          DATEMP      35231                       TSDATA         17377     17377
          HOLLSKL     35231                       LEX            15403     15412     15510     15521
          FORSKEL     35231                       FMT            22317     22605     22610
          FCA         35231                       BATCH           7515
          CLOSREP     35232                       TSDATA         17516     17526     17547     17555
          N.ITEM      35233                       TSDATA         17410     17522     17537     17546     17564     20200     20255
                                                                 20337     20361
          PL          35234                       TSDATA         17526     17531     17534     17554     17737     17743     20027
          I.DIT       35235                       TSDATA         17406     20262     20266     20364     20463
          DATEMPL     35240                       TSDATA         17376
          TEMP        35240             
          NONANSI     35242                       TSDATA         17366     17417     17740
          DVT         35243                       TSDATA         17721     20051     20074     20203     20211     20347     20373
                                                                 20417     20527     20545
          LPINF       35245                       TSDATA         20021     20042     20047     20053     20056     20067     20220
                                                                 20225     20237     20244     20250
          BIAS        35250                       TSDATA         17676     17720     20023     20032     20066     20206     20214
                                                                 20222     20231     20234
          LL          35251                       TSDATA         17763     20000     20014
          UL          35252                       TSDATA         17767     20003
          INC         35253                       TSDATA         17770     17774     20005     20013
          SUBN        35254                       TSDATA         17757     17777
          FTO         35255                       BATCH           7517
          SST1        35255                       TSDATA         20107     20107
          CON1        35255                       TSDATA         20000     20013     20117     20141     20164     20165
          INDX        35260                       TSDATA         17753     20011     20034     20122     20161     20161
          CON2        35263                       TSDATA         17711     20001     20012     20014     20024     20035     20114
                                                                 20131     20145     20167     20167
          SIGN        35266                       TSDATA         20126     20147
          N.SUBS      35271                       TSDATA         17710     17751     20031     20113     20130     20132     20137
                                                                 20173
          N.VSUB      35272                       TSDATA         17676     17745     20003     20022     20040     20052     20062
                                                                 20064     20137     20155     20234     20247
          SSTL        35273                       TSDATA         20106
          ORGI        35273                       TSDATA         20204     20236     20342     20351     20360
          DA          35274                       TSDATA         20230     20244     20260     20303     20333     20340     20351
                                                                 20356
          MP          35275                       TSDATA         20305     20320     20331
          RL          35276                       TSDATA         20274     20312     20336
          LI          35277                       TSDATA         20232     20240     20250     20313     20316
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    51  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TMP         35302                       TSDATA         17403     17405     20324     20333     20350     20355
          DLEN        35303                       TSDATA         20310     20320
          ORD         35304                       TSDATA         20511
          SDPF        35305                       TSDATA         17717     20024     20031     20065     20203     20225     20235
                                                                 20300     20314     20327     20410     20414     20434     20513
          N.DIMS      35306                       TSDATA         17703     20104     20532     20536
          DIM         35307                       TSDATA         20017     20541
          DIM.MUL     35312                       TSDATA         17375     17713     20023     20035     20047     20060     20071
                                                                 20165     20222     20227     20241     20540     20543
          SELIST      35315                       TSDATA         17404     17405     17420     17504     17524     17540     17543
                                                                 17545     17632     17644     17651     17654     17724     17730
                                                                 17746     17776     20077     20136     20501     20503     20506
          ESTACK      35471                       BATCH           7705
                                                  PAR            24655
                                                  GEN            34563     34566     34570
          SAVE        35731                       ERRORS          5043      5044      5117      5133      5142
          DPTA        35743                       PIG            10651     10654
          ADWT        35744                       PIG            11023     11025     11046     11050
                                                  ALLOC          12676     12677     13143     13146     13153     13155     13161
                                                                 13177     13200     13277     13310     13315     13326     13330
                                                                 13333     13335     13336
                                                  TSDATA         17662     17665
          CST.BOS     35750                       MAIN           13640     13741     14241     14265
                                                  KEY            17025
                                                  PAR            25322
          DECA        35751                       LEX            15006     15023
          TRVA        35760                       LEX            15667     15672     15677     15767     15772
                                                  DECL           21144
                                                  FMT            22314     22612
                                                  NUM            24366     24371
                                                  PAR            25105     25110     26442     26446     26603     26604
          AGNK        35762                       KEY            16043     16066
          CALLTAG     35762                       KEY            16122     16141     16161     16231
                                                  PAR            26021
          EQUA        35763                       BATCH           7712
                                                  END            11150
                                                  DECL           21305     21307     21377
          SCR2        35764                       TSDATA         17607     17613     17624     17630
                                                  ASF            27646     27726     27744
                                                  GEN            32022     32055
          SCR         35770                       MAIN           14053     14055
                                                  KEY            16160     16332     16346     16347
                                                  IO             23406     23407     24105
                                                  PAR            24706     24707     24712     25655     25670     25700     25714
                                                                 25716     25720     25726     25751     25756     25762     26007
                                                                 26040     26042     26052     26115     26252     26266     26271
                                                                 26275     26415     26652     26656
                                                  CONRED         27230     27233     27235     27237     27244     27331     27366
                                                                 27410     27415
                                                  ASF            27540     27610     27612     27624
                                                  DO             30001     30024     30026     30075
                                                  REG            31031     31033     31036
                                                  GEN            31644     31647
                                                  MAP            36220     36222     36230
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    52  
          OVERLAY(FTN,1,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ASFERR      35773                       ASF            27645
          FWAASF      35774                       ASF            27652     27710     27724
          FWAREF      35775                       ASF            27655     27704
          CDOTG       35776                       DO             30215     30245
          SVB6        35776                       ASF            27643     27743
          IADD        36000   GEN                 REG            30632     30703
          ASFARG      36000   INIT                ASF            27652     27724
          FWAARG      36001                       ASF            27653     27671     27701
          WVM         36002   MAP                 END            11312
          WVBD        36371                       LIST           37062     37075     37113
          LPS.PL      36444                       END            11244
                                                  LIST           37270     37300
          FIN.OL      36572                       INIT           35262
          PFD         36670   LIST                HEADER         10234
          PID         36724                       HEADER         10067
          PIK         36731                       PIG            10645
          WCL         37054                       END            11250
          FIN         37414                       INIT           35261
          MIN.TFL     40000   FTN                 INIT           35260
          FMASK       43000   GEN                 REG            31312
          SA=AK       50000                       REG            31234
          SA=BK       51000                       FUN            30337     30374     30420
                                                  REG            30751
          SA=AB       54000                       REG            31235
          SB=BK       61000                       REG            31307
          SB=XK       62000                       REG            31261
          SB=XB       63000                       REG            31263
          SB=BB       66000                       REG            31311
          SX=BK       71000                       REG            31255     31306
          SX=XK       72000                       REG            31252
          SX=XB       73000                       REG            31253
          SX=BB       76000                       REG            31256
  
  
  
  
  
 -------- OVERLAY(FTN,2,0,O=LDPT) 
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD           3004
          LWA+1 OF THE LOAD        10437
  
          TRANSFER ADDRESS -- FTN20           6427          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN20          3004        7    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - BATCH CONTROLLER    
          /TABLES/       3013      312
          LSTPRO         3325     5111    LOAD1    24/05/02 COMPASS 3.7 871               
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    53  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          OUTPK20       10436        0    LOAD1    24/05/02 COMPASS 3.7 871               
          SNAP          10436        1    LOAD1    24/05/02 COMPASS 3.7 871               
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.COM           0   LSTPRO    
          Z.EQV           1             
          Z.DIM           2             
          Z.DCON          3             
          FV.LGO          4   FTN                 LSTPRO          6522      6573      6664
          Z.LAT           4   LSTPRO    
          Z.ECT           5             
          Z.SCA           5             
          Z.EOT           6             
          Z.UDV           7             
          Z.FPBL          7             
          Z.ASF          10             
          FVLEN          10   FTN                 LSTPRO          6620
          Z.EXT          10   LSTPRO    
          Z.ARLST        11             
          Z.CON          12             
          Z.DATA         13             
          Z.DIL          14             
          Z.DIT          15             
          Z.ENTR         16             
          Z.NML          17             
          Z.DOLST        20             
          Z.IOLST        21             
          Z.LTAB         22             
          Z.SCR          23             
          CO.ABT        114   FTN                 LSTPRO          6553
          CP.ERCT       115                       LSTPRO          6551
          CP.LSTF       116                       LSTPRO          6556      7251      7304
          CP.PAGE       117                       LSTPRO          7245      7252      7255      7303      7303
          CP.BLF        121                       LSTPRO          7236      7304
          CP.PD         122                       LSTPRO          6514      6557      7255      7256
          COMRET        133                       LSTPRO          6434      6475
          GT1           135                       LSTPRO          6562      6562
          CP.CARD       141                       LSTPRO          6435      6552      6555      6625
          FL            201                       LSTPRO          6441
          CP.AFLS       201                       LSTPRO          6446
          CP.NFLS       202                       LSTPRO          6476
          F.IN          211                       LSTPRO          6510      6512      6627
          F.OUT         221                       LSTPRO          6505      6515      6517      6563      6564      6571      7223
                                                                  7242      7257      7262      7264      7313      7411
          F.LGO         241                       LSTPRO          6473      6524      6527      6576      6600      6667
          SYS=          253                       LSTPRO          6432      6764      7415
          RCL=          266                       LSTPRO          7052      7077      7201      7216
          WNB=          272                       LSTPRO          6516      6622      6666      6757      7271
          MSG=          302                       LSTPRO          6550      7363      7404      7406      7410
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    54  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          F.CMPS        310                       LSTPRO          6471      6533      6614      6616      6626      6647      6651
                                                                  7323
          F.RLST        320                       LSTPRO          6467      6535      6660      6662
          F.RMAP        330                       LSTPRO          6500      6540      6544      6654      6656
          F.OPT         340                       LSTPRO          6531      6602
          MLOP=R        354                       LSTPRO          6477      6537      6543      6653
          GL.SYM        363                       LSTPRO          6504      6643
          LCP.PS        367                       LSTPRO          6514      7260
          RS.PD         370                       LSTPRO          6560
          PR.MXFL       400                       LSTPRO          6447
          CAFLAG        404                       LSTPRO          6552      6574      6612      6623      6625      6645
          CO.OLVL       413                       LSTPRO          6444
          CO.REW        414                       LSTPRO          6507      6523
          DFLAG         421                       LSTPRO          6447      6502
          PMDFLAG       430                       LSTPRO          6436     10250
          UFLAG         436                       LSTPRO          6574      6612      6645
          OVLA          444                       LSTPRO          6455      6462
          OVLB          445                       LSTPRO          6457      6464
          OVL21         450                       LSTPRO          6462
          OVL24         453                       LSTPRO          6455
          O.TITL        457                       LSTPRO          7261
          TL.PAGE       473                       LSTPRO          7250
          LDCOM         474                       LSTPRO          6627
          LOVER         504                       LSTPRO          6460      6465
          ENDFTN        537                       LSTPRO          6624
          SCRTBL        573                       LSTPRO          6602
          FWA2.0       3004   FTN20               LSTPRO          7420
          B=LSTPR      3325   LSTPRO              FTN20           3007
          SYMBOL       6333             
          LABEL        6361             
          LFER         6371             
          NTYPE        6401             
          IMPTYP       6407             
          NRB          6412             
          RSSW         6413             
          KSSW         6420             
          FTN20        6427             
          FTNABT       6547             
          FTNEND       6554             
          CDD          6675             
          COD          6704             
          DXB          6723             
          MVE=         6742             
          SFN          6750             
          CIO=         6765             
          RDC=         6773             
          RDW=         7010             
          WTC=         7124             
          WTW=         7140             
          FA=LOL       7224             
          FA=NPG       7233             
          L.STITL      7266             
          FA=SET       7267             
          MPP          7302             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    55  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OUTUSE       7316             
          C.BLOCK      7326             
          USTART.      7331             
          UVARDIM      7332             
          UENTRY.      7333             
          UCODE.       7334             
          UDATA.       7335             
          UDATA..      7336             
          UHOL.        7337             
          FRA=         7417             
          SETCORE      7443             
          COMPMSG      7450             
          PROGNAM      7451             
          LSTWRKG      7452             
          ANSI         7452             
          LOP=X        7452             
          IEFLG        7453             
          LOP=W        7453             
          LOP=M        7454             
          OLIST        7455             
          LOP=O        7455             
          LOP=R        7456             
          RSELECT      7456             
          R=FLAG       7457             
          O.STITL      7460             
          N.AP         7467             
          N.GL         7470             
          SYMORD       7471             
          N.LINES      7732             
          N.COM        7733             
          ORGTAB       7734             
          START.      10134             
          O.LBLK      10134             
          VARDIM.     10135             
          EPOINT.     10136             
          CODE.       10137             
          DATA.       10140             
          DATA..      10141             
          HOL.        10142             
          SDATA.      10143             
          N.ST        10144             
          N.OT        10145             
          N.DO        10146             
          N.VD        10147             
          N.IT        10150             
          LINENR      10151             
          N.EXST      10152             
          N.FILES     10153             
          N.EQUF      10154             
          IOAPLN      10155             
          XFRNAME     10156             
          FUNTYPE     10157             
          N.FP        10160             
          RETURNS     10161             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    56  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FSTEX       10162             
          VARDIM      10163             
          LEVEL       10164             
          LEVEL2      10165             
          N.TLAB      10166             
          O.LOOP      10167             
          L.LOOP      10170             
          N.ERROR     10171             
          N.FERR      10172             
          E.UDEFL     10173             
          P2NOGO      10174             
          O.TSS       10175             
          TEMPA0.     10175             
          VALUE.      10176             
          TRACE.      10177             
          ENTRY.      10200             
          EXIT.       10201             
          CON.        10202             
          LABEL.      10203             
          FTNNOP.     10204             
          NOPS.       10205             
          FP.         10206             
          ST.         10207             
          OT.         10210             
          IT.         10211             
          VD.         10212             
          PHASE       10213             
          L.TSS       10213             
          NAF         10214             
          LTN         10215             
          LOWCORE     10216             
          FWAWORK     10217             
          LWAWORK     10220             
          O.GLT       10221             
          O.API       10222             
          O.IOT       10223             
          GOTOER.     10224             
          O.CEP       10226             
          OPTLVL      10227             
          OPT2        10230             
          STLTAB      10231             
          SAVTBL      10246             
          PUTTAB      10247             
          WB.LAB      10271             
          WB.ESS      10272             
          WB.LFN      10273             
          WB.FTN      10274             
          WB.NOP      10275             
          WB.CON      10276             
          WB.NML      10277             
          WB.FMT      10300             
          WB.HOL      10301             
          WB.ECGS     10302             
          WB.PROG     10303             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    57  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          WB.FP       10304             
          SYMDMP      10305             
          TABDMP      10307             
          ORIGINS     10313             
          O.COM       10313             
          O.EQV       10314             
          O.DIM       10315             
          O.DCON      10316             
          O.LAT       10317             
          O.SCA       10320             
          O.ECT       10320             
          O.EOT       10321             
          O.FPBL      10322             
          O.UDV       10322             
          O.EXT       10323             
          O.ASF       10323             
          O.ARLST     10324             
          O.CON       10325             
          O.DATA      10326             
          O.DIL       10327             
          O.DIT       10330             
          O.ENTR      10331             
          O.NML       10332             
          O.DOLST     10333             
          O.IOLST     10334             
          O.LTAB      10335             
          O.SCR       10336             
          L.COM       10337             
          SIZES       10337             
          L.EQV       10340             
          L.DIM       10341             
          L.DCON      10342             
          L.LAT       10343             
          L.SCA       10344             
          L.ECT       10344             
          L.EOT       10345             
          L.FPBL      10346             
          L.UDV       10346             
          L.EXT       10347             
          L.ASF       10347             
          L.ARLST     10350             
          L.CON       10351             
          L.DATA      10352             
          L.DIL       10353             
          L.DIT       10354             
          L.ENTR      10355             
          L.NML       10356             
          L.DOLST     10357             
          L.IOLST     10360             
          L.LTAB      10361             
          L.SCR       10362             
          ROOMS       10363             
          S.COM       10363             
          S.EQV       10364             
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    58  
          OVERLAY(FTN,2,0,O=LDPT) 
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S.DIM       10365             
          S.DCON      10366             
          S.LAT       10367             
          S.ECT       10370             
          S.SCA       10370             
          S.EOT       10371             
          S.FPBL      10372             
          S.UDV       10372             
          S.ASF       10373             
          S.EXT       10373             
          S.ARLST     10374             
          S.CON       10375             
          S.DATA      10376             
          S.DIL       10377             
          S.DIT       10400             
          S.ENTR      10401             
          S.NML       10402             
          S.DOLST     10403             
          S.IOLST     10404             
          S.LTAB      10405             
          S.SCR       10406             
          TINFO       10407             
          T.FPBL      10416             
          NAFVEC      10433             
          LWA2.0      10436   SNAP                LSTPRO          6454      6461      7417
          B=SNAP      10436                       FTN20           3011
          B=OPK20     10436   OUTPK20             FTN20           3010
  
  
  
  
  
 -------- OVERLAY(FTN,2,3)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        15143
  
          TRANSFER ADDRESS -- FTN23          10450          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN23         10444        4    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 
          FTNMSG        10450     4473    LOAD1    24/05/02 COMPASS 3.7 871               
           //           15143        0
  
  
  
          ENTRY POINTS. 
  
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    59  
          OVERLAY(FTN,2,3)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CP.LSTF       116   FTN                 FTNMSG         10450
          DFLAG         421                       FTNMSG         10502
          QFLAG         433                       FTNMSG         10500
          OVLA          444                       FTNMSG         10510     10516
          OVLB          445                       FTNMSG         10512     10520
          OVL22         451                       FTNMSG         10510
          OVL25         454                       FTNMSG         10516
          TL.JECT       457                       FTNMSG         10452
          LOVER         504                       FTNMSG         10513     10521
          MVE=         6742   LSTPRO              FTNMSG         10455     10475
          FA=LOL       7224                       FTNMSG         10457     10476
          FA=NPG       7233                       FTNMSG         10456
          L.STITL      7266                       FTNMSG         10453     10504
          R=FLAG       7457                       FTNMSG         10500
          O.STITL      7460                       FTNMSG         10455     10504
          N.ERROR     10171                       FTNMSG         10460
          N.FERR      10172                       FTNMSG         10501
          P2NOGO      10174                       FTNMSG         10501
          LWAWORK     10220                       FTNMSG         10507     10515
          LWA2.0      10436   SNAP                FTNMSG         10507     10515
          B=FTN23     10444   FTN23     
          B=FTMSG     10450   FTNMSG              FTN23          10445
          FTN23       10450             
  
  
  
  
  
 -------- OVERLAY(FTN,2,1)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        44321
  
          TRANSFER ADDRESS -- FTN21          43163          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN21         10444       25    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - PASS 1(NO DEBUG)    
          /DBGBLK2/     10471      115
          /DBGBLK1/     10606       10
          /NONFTNX/     10616       11
          /DOLVL/       10627        1
          /STSORD/      10630        1
          /MACBUF/      10631       20
          PS1CTL        10651      653    LOAD1    24/05/02 COMPASS 3.7 871               
          STMTP         11524      575    LOAD1    24/05/02 COMPASS 3.7 871               
          ENDPRO        12321      750    LOAD1    24/05/02 COMPASS 3.7 871               
          SCANNER       13271     4016    LOAD1    24/05/02 COMPASS 3.7 871               
          CONVERT       17307      467    LOAD1    24/05/02 COMPASS 3.7 871               
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    60  
          OVERLAY(FTN,2,1)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          DMPELST       17307        0    LOAD1    24/05/02 COMPASS 3.7 871               
          /DAT.FMT/     17776       63
          DATA          20061     1432    LOAD1    24/05/02 COMPASS 3.7 871               
          ERPRO         21513     1127    LOAD1    24/05/02 COMPASS 3.7 871               
          FLY           22642      173    LOAD1    24/05/02 COMPASS 3.7 871               
          LISTIO        23035     3043    LOAD1    24/05/02 COMPASS 3.7 871               
          /CLNFO/       26100        6
          ARITH         26106    10061    LOAD1    24/05/02 COMPASS 3.7 871               
          ASFPRO        36167      226    LOAD1    24/05/02 COMPASS 3.7 871               
          CALL          36415      273    LOAD1    24/05/02 COMPASS 3.7 871               
          GOTO          36710      420    LOAD1    24/05/02 COMPASS 3.7 871               
          DBGLNK        37330        5    LOAD1    24/05/02 COMPASS 3.7 871               
          DOPROC        37335     1107    LOAD1    24/05/02 COMPASS 3.7 871               
          DPCLOSE       40444     1366    LOAD1    24/05/02 COMPASS 3.7 871               
          DECPRO        42032      714    LOAD1    24/05/02 COMPASS 3.7 871               
          PH1CTL        42746     1352    LOAD1    24/05/02 COMPASS 3.7 871               
           //           44320        1
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.EQV           1   LSTPRO              DPCLOSE        41206     41725
                                                  DECPRO         42256
          Z.DIM           2                       DPCLOSE        41757
                                                  DECPRO         42567
          Z.LAT           4                       DPCLOSE        40737     41302
          FV.LGO          4   FTN                 PH1CTL         44250
          Z.ECT           5   LSTPRO              DPCLOSE        41306
          Z.SCA           5                       DPCLOSE        40650
          Z.EOT           6                       DPCLOSE        41121
          L.MSTR          6   FTN                 PH1CTL         43163
          Z.ASF          10   LSTPRO              ASFPRO         36233     36261
          Z.ARLST        11                       PS1CTL         10670
          L.MAXCD        12   FTN                 SCANNER        16710
                                                  PH1CTL         44165
          Z.CON          12   LSTPRO              DMPELST        17454     17460
          Z.DATA         13                       DATA           21464
          Z.DIL          14                       DATA           20153     20172
          Z.DIT          15                       DATA           20443     20446     20452
          Z.ENTR         16                       STMTP          12043
                                                  DPCLOSE        40507
          Z.NML          17                       STMTP          11601     11744
          Z.DOLST        20                       DOPROC         40264
          Z.IOLST        21                       LISTIO         24606     25757     26014
          Z.LTAB         22                       GOTO           36727
          Z.SCR          23                       ENDPRO         12712
                                                  ASFPRO         36325
          CO.ABT        114   FTN                 PH1CTL         43230
          CP.IFMT       130                       SCANNER        16673
          GT1           135                       PH1CTL         43337     43337     43341
          CP.FLIN       137                       SCANNER        15063     16534     16563     16573     16600
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    61  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CP.CARD       141                       SCANNER        14632     14634     14636     15064     15422     16357     16675
                                                                 16677
                                                  PH1CTL         44125     44161     44165     44170     44203
          F.IN          211                       SCANNER        16676
                                                  PH1CTL         44166
          F.OUT         221                       PH1CTL         44143
          F.LGO         241                       PH1CTL         44252     44254
          MSG=          302                       PH1CTL         43227     43233     43736
          F.CMPS        310                       STMTP          11572     12025     12030     12144     12203
                                                  ENDPRO         12676     12746     12756     13020
                                                  DMPELST        17523     17536     17563     17571
                                                  DATA           21024     21323
                                                  ERPRO          22614
                                                  LISTIO         23253     24371     24611     25706
                                                  DPCLOSE        40565
                                                  PH1CTL         43562     43613     43627     43635     43640     43671     43677
                                                                 43703     43707     43733     43737     43741     43745     43751
                                                                 43762     44157     44161     44201     44306
          F.RLST        320                       PS1CTL         10742     11123     11125     11521
                                                  LISTIO         24363     26033
                                                  ARITH          31052     31065     34242     34256
                                                  GOTO           37135     37140     37203     37227     37247
                                                  DOPROC         37345
          F.RMAP        330                       PS1CTL         11132     11135     11136     11140     11211
          LSTMSTR       350                       PH1CTL         43163
          MACFLAG       374                       ENDPRO         12544     12600
                                                  DPCLOSE        40543     40732     42023
                                                  PH1CTL         44274
          O.GCON        377                       ARITH          33553
          CER.FL        402                       PH1CTL         43224
          CAFLAG        404                       PH1CTL         43743     43747     44142     44247
          CBNFLG        405                       ARITH          31544     31550     31561     31573     34357
          CO.ER         410                       ENDPRO         12405
                                                  DPCLOSE        42014
                                                  PH1CTL         43145     43174     43661     43673
          ROPFLAG       415                       ARITH          31457     32505     32521     32701
          CO.STA        417                       ENDPRO         13007
                                                  PH1CTL         43525     43571
          DFLAG         421                       PS1CTL         10700     10724     11115
                                                  ENDPRO         12364
                                                  SCANNER        14617     14703     15102     15124     15670     16322     16345
                                                                 16354     16512
                                                  ARITH          27634     30236     30457     32020     33416     34567     35064
                                                  GOTO           37003
                                                  DOPROC         40406
                                                  DPCLOSE        40525     40656
                                                  PH1CTL         43063     43215     43245     43311     43323
          DIRECT        422                       STMTP          11655     11676
                                                  DATA           21367
                                                  LISTIO         23426     25012
                                                  DPCLOSE        40577     40656
          F.LFN         423                       LISTIO         23655     23657
                                                  DPCLOSE        40512
                                                  PH1CTL         43530     43545
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    62  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PMDFLAG       430                       PH1CTL         43675     43702
          OT.RM         431                       PH1CTL         43401     43427     43476     43507     43534     43555     43625
                                                                 43667
          PLIMIT        432                       PH1CTL         43566     43632
          QFLAG         433                       PS1CTL         11143
          SLIST         434                       SCANNER        15411     16557
          SPPFLAG       435                       PS1CTL         10660
          UFLAG         436                       PH1CTL         43730     43747     44141     44250
          UOFLAG        437                       ENDPRO         12531
          ZFLAG         440                       CALL           36675
          OVLA          444                       PS1CTL         11146     11154     11167
          OVLB          445                       PS1CTL         11150     11156     11171
          OVL22         451                       PS1CTL         11154
          OVL23         452                       PS1CTL         11167
          OVL25         454                       PS1CTL         11146
          TL.PTYP       460                       PH1CTL         43170     43757     44133     44140
          TL.PNAM       461                       PH1CTL         43171     43730
          LDCOM         474                       PH1CTL         44145
          LOVER         504                       PS1CTL         11151     11157     11172
          SYMBOL       6333   LSTPRO              STMTP          11545     11626     11764     12012     12017     12127
                                                  ENDPRO         12374     12416     13237
                                                  DMPELST        17517
                                                  DATA           21360
                                                  LISTIO         23516     23742     23762     25164
                                                  ARITH          27435     27706     30710     30765     31273     31546     32121
                                                                 33514     35000     35102     35377     35604
                                                  CALL           36576     36647     36673
                                                  GOTO           36754     37164     37257
                                                  DOPROC         37650
                                                  DPCLOSE        40522
                                                  DECPRO         42044     42520
                                                  PH1CTL         43032     43153     43162     43300     43306     43373     43452
                                                                 43723     44050     44107
          LABEL        6361                       DOPROC         37604     40367
          LFER         6371                       PH1CTL         43201
          NTYPE        6401                       DECPRO         42345     42353     42702     42715
          IMPTYP       6407                       DECPRO         42602     42626     42643     42672
          NRB          6412                       DECPRO         42642     42671
          RSSW         6413                       LISTIO         25163
          KSSW         6420                       LISTIO         25166     25214
          FTNEND       6554                       PS1CTL         11144
                                                  PH1CTL         43234     44204
          CDD          6675                       SCANNER        15061     15440     15445
                                                  ERPRO          22335
                                                  LISTIO         23647
                                                  DOPROC         40423
          MVE=         6742                       PS1CTL         11404     11414     11500     11512
                                                  SCANNER        16602
                                                  ASFPRO         36242     36360     36413
                                                  DPCLOSE        41402
                                                  PH1CTL         43165
          SFN          6750                       SCANNER        14641
          CIO=         6765                       PS1CTL         11124     11126     11137     11141
                                                  PH1CTL         44144     44255
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    63  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RDC=         6773                       SCANNER        16676
                                                  PH1CTL         44166
          WTC=         7124                       STMTP          11573     12026     12031     12144     12203
                                                  ENDPRO         12677     12746     12757     13021
                                                  DMPELST        17523     17537     17564     17571
                                                  DATA           21024     21323
                                                  ERPRO          22614
                                                  LISTIO         23254     24371     24611     25706
                                                  DPCLOSE        40565
                                                  PH1CTL         43562     43614     43627     43636     43641     43672     43677
                                                                 43704     43710     43734     43740     43742     43746     43752
                                                                 43763     44160     44162     44201     44307
          WTW=         7140                       PS1CTL         10742     11132     11135     11211     11521
                                                  LISTIO         24364     26034
                                                  ARITH          31053     31065     34243     34256
                                                  GOTO           37136     37141     37203     37227     37250
                                                  DOPROC         37345
                                                  PH1CTL         44253
          FA=LOL       7224                       SCANNER        16254     16564
          MPP          7302                       PH1CTL         44136
          OUTUSE       7316                       STMTP          11540     12024     12027
                                                  ENDPRO         12357     12566     12744
                                                  DMPELST        17514
                                                  ERPRO          21632
                                                  LISTIO         23243     23307     23544     23577     23632     23726     24226
                                                                 24257     24303     24435     24451     24512     24550     24577
                                                                 24735     24771     25070
                                                  ARITH          34674
                                                  DPCLOSE        40531     40627     41771
                                                  PH1CTL         43273     43656     43764
          C.BLOCK      7326                       STMTP          12033
                                                  DATA           20775     21000
                                                  DPCLOSE        40546
          USTART.      7331                       DPCLOSE        41771
                                                  PH1CTL         43764
          UENTRY.      7333                       STMTP          12023
          UCODE.       7334                       ENDPRO         12357
                                                  PH1CTL         43656
          UDATA.       7335                       STMTP          11540     12027     12032
                                                  ENDPRO         12566     12744
                                                  DATA           20775     20777
                                                  ERPRO          21632
                                                  LISTIO         23243     23307     23544     23577     23632     23726     24226
                                                                 24257     24303     24435     24451     24512     24550     24577
                                                                 24735     24771     25070
                                                  ARITH          34674
                                                  DPCLOSE        40531
                                                  PH1CTL         43273
          UDATA..      7336                       DPCLOSE        40627
          UHOL.        7337                       DMPELST        17514
          SETCORE      7443                       PS1CTL         11213
                                                  DPCLOSE        41764
          COMPMSG      7450                       PH1CTL         43735
          PROGNAM      7451                       ERPRO          21560
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    64  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PH1CTL         43212     43360     43726
          LSTWRKG      7452                       PH1CTL         43164
          ANSI         7452                       SCANNER        16727
                                                  ERPRO          22465
                                                  PH1CTL         43203
          IEFLG        7453                       SCANNER        16727
                                                  PH1CTL         43207
          OLIST        7455                       PH1CTL         43744
          LOP=O        7455                       SCANNER        16730
          LOP=R        7456                       SCANNER        16730
          RSELECT      7456                       PS1CTL         10722     11127
                                                  STMTP          11556     11730     12040
                                                  ENDPRO         12360     13247     13265
                                                  DATA           21467
                                                  ERPRO          21654
                                                  LISTIO         23315     23504     23724     25275     25372
                                                  ARITH          34647     34771     35074
                                                  ASFPRO         36274
                                                  CALL           36530
                                                  GOTO           37053     37315
                                                  DOPROC         37403     37614     40223     40353
                                                  DECPRO         42064     42170     42262     42366     42423     42463     42531
                                                  PH1CTL         43041     43057     43765     44061     44115
          R=FLAG       7457                       PS1CTL         11144     11161
                                                  SCANNER        16731
                                                  DPCLOSE        40476     40644
          N.AP         7467                       ARITH          30704     30761     31016     32114     33510     35401
                                                  CALL           36542     36600     36643
                                                  GOTO           37022     37105     37123     37215
          N.GL         7470                       STMTP          11777
                                                  LISTIO         24541     24620
                                                  ARITH          35413     35513     35566
                                                  CALL           36505     36560     36614
                                                  GOTO           37101     37114     37206     37232
          SYMORD       7471                       ENDPRO         12467
                                                  DPCLOSE        40744
                                                  PH1CTL         44121
          N.LINES      7732                       PH1CTL         44140
          N.COM        7733                       DPCLOSE        40545     40636     40703     41575     41633     41742
                                                  DECPRO         42133     42234
          ORGTAB       7734                       DATA           21407
                                                  DPCLOSE        40637     40704     41146     41464     41523     41546     41576
                                                                 41634     41740     41742
                                                  DECPRO         42134     42234
          START.      10134                       DPCLOSE        42014
                                                  PH1CTL         43126     43132     43136     43142     43513     43557     43603
                                                                 43610     43630     43637     43642     43646
          EPOINT.     10136                       STMTP          12013
          CODE.       10137                       PH1CTL         43666     43674
          DATA.       10140                       STMTP          11551     11566     11574     11714     12020
                                                  ENDPRO         12571     12577     12702     12715
                                                  DATA           21462
                                                  ERPRO          21650     22577
                                                  LISTIO         23310     23545     23600     23633     23727     24227     24260
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    65  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 24304     24372     24436     24452     24513     24551     24600
                                                                 24612     24736     24772     25071     25707
          DATA..      10141                       DPCLOSE        40742     40766     41346
          HOL.        10142                       DMPELST        17533
          N.ST        10144                       PS1CTL         11005
          N.EXST      10152                       PS1CTL         10732
          N.FILES     10153                       DPCLOSE        40511     40514
                                                  PH1CTL         43366     43400     43423     43454     43466     43552     43563
                                                                 43575     43610     43615     43622
          N.EQUF      10154                       PH1CTL         43510     43511
          IOAPLN      10155                       LISTIO         23244     23765     24356
          XFRNAME     10156                       PH1CTL         43361
          FUNTYPE     10157                       DPCLOSE        42011
                                                  DECPRO         42365     42710
                                                  PH1CTL         43145     44033
          N.FP        10160                       PS1CTL         11456
                                                  DPCLOSE        40503     41776     42022     42027
                                                  DECPRO         42677
                                                  PH1CTL         43151     43312     44055
          RETURNS     10161                       CALL           36464
          FSTEX       10162                       PS1CTL         10663     11011
                                                  STMTP          11773
                                                  ARITH          35112     35136
          VARDIM      10163                       ARITH          34567
                                                  DPCLOSE        41706
                                                  DECPRO         42530
          LEVEL       10164                       DPCLOSE        40543     41404     41574
                                                  DECPRO         42414     42435
          LEVEL2      10165                       DOPROC         37716
                                                  DECPRO         42412     42450
          N.TLAB      10166                       ENDPRO         12711     12715
                                                  DOPROC         40244
          L.LOOP      10170                       DOPROC         37576
          N.ERROR     10171                       PS1CTL         11142
                                                  ERPRO          21517     21532
          N.FERR      10172                       PS1CTL         11164
                                                  ENDPRO         12363
                                                  ERPRO          21530
                                                  DPCLOSE        40527
                                                  PH1CTL         43234
          E.UDEFL     10173                       DOPROC         40405     40434
          P2NOGO      10174                       ENDPRO         12364
                                                  ERPRO          21560
                                                  DOPROC         40411     40430
                                                  DPCLOSE        40530
          TEMPA0.     10175                       STMTP          12004
                                                  ENDPRO         13244
                                                  DPCLOSE        41776
                                                  PH1CTL         43126     43131     43142     44066     44103
          VALUE.      10176                       STMTP          11630
                                                  ENDPRO         12431
                                                  ARITH          27447     27710     35104
                                                  DOPROC         37652
                                                  DECPRO         42354     42703
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    66  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PH1CTL         43301     44031
          TRACE.      10177                       ENDPRO         12421
                                                  PH1CTL         43125     43645
          ENTRY.      10200                       STMTP          12052
                                                  DPCLOSE        42006
                                                  PH1CTL         43141
          EXIT.       10201                       ENDPRO         13262
                                                  ARITH          35547
                                                  PH1CTL         43135
          CON.        10202                       ENDPRO         12702     12722
                                                  DMPELST        17445
                                                  ARITH          33562
                                                  DOPROC         40375
                                                  DPCLOSE        40524
          LABEL.      10203                       ENDPRO         12713
                                                  ARITH          35366
                                                  CALL           36566
                                                  GOTO           37017
          FTNNOP.     10204                       STMTP          12016
          NOPS.       10205                       STMTP          12023
          FP.         10206                       ARITH          32074     34572
                                                  PH1CTL         43314
          ST.         10207                       ENDPRO         12466
                                                  LISTIO         23376
                                                  ARITH          30715     31042     33267     33610     34145     34176     34226
                                                                 34531     34752
                                                  GOTO           37176     37204     37222
                                                  DPCLOSE        40743
                                                  PH1CTL         43275
          OT.         10210                       ENDPRO         12352
          IT.         10211                       ENDPRO         12354
          VD.         10212                       ENDPRO         12356
          PHASE       10213                       PS1CTL         11367     11451     11460
          NAF         10214                       PS1CTL         11342     11353     11434     11461     11504
          LTN         10215                       PS1CTL         11336     11463
          LOWCORE     10216                       PS1CTL         11342     11353     11433     11451     11455
                                                  DPCLOSE        40647
          FWAWORK     10217                       PS1CTL         10664     11332     11356     11433     11456     11462     11470
                                                                 11514
                                                  SCANNER        14764     15045     16461
                                                  ERPRO          21551     21706     22143     22174     22231     22246     22264
                                                                 22274
                                                  ASFPRO         36311     36357     36362     36412
                                                  PH1CTL         43176     44222     44246     44275
          LWAWORK     10220                       PS1CTL         10664     10710     11145     11153     11166     11333     11434
                                                                 11502
                                                  SCANNER        14610     14742     14762     15045     15557     16217     16461
                                                                 16614
                                                  DATA           20143
                                                  ERPRO          21664     22576
                                                  ASFPRO         36353     36405
          O.CEP       10226                       STMTP          11772
                                                  ENDPRO         13266
                                                  ARITH          35545
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    67  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OPTLVL      10227                       GOTO           37062     37142
                                                  DOPROC         40306
          OPT2        10230                       STMTP          11575     11733
                                                  LISTIO         24500     25723     25765     26006
                                                  ARITH          34104
          STLTAB      10231                       ENDPRO         13010
                                                  LISTIO         23761
                                                  PH1CTL         43171     43173
          SAVTBL      10246                       ENDPRO         12362
          PUTTAB      10247                       ENDPRO         12341
          WB.ESS      10272                       PH1CTL         43160
          WB.LFN      10273                       PH1CTL         43374
          WB.FTN      10274                       STMTP          12014
          WB.NOP      10275                       STMTP          12021
          WB.CON      10276                       DPCLOSE        40523
          WB.NML      10277                       STMTP          11551
          WB.FMT      10300                       ENDPRO         12572     12614
                                                  ERPRO          21650
          WB.HOL      10301                       DMPELST        17520
          WB.ECGS     10302                       ENDPRO         12372
          WB.PROG     10303                       ENDPRO         12405
          WB.FP       10304                       ENDPRO         12452
          O.COM       10313                       DPCLOSE        40551     40566     40640     40653     40705     40727     41147
                                                                 41202     41214     41463     41515     41572     41577     41640
                                                                 41727
                                                  DECPRO         42147     42200
          ORIGINS     10313                       PS1CTL         11362     11400     11410     11422     11426     11464     11475
                                                                 11506
          O.EQV       10314                       ENDPRO         12624
                                                  DPCLOSE        40775     41036     41124     41210     41310     41375     41404
                                                                 41420     41433     41460     41470     41477     41726
          O.DIM       10315                       PS1CTL         11133
                                                  STMTP          12234
                                                  ENDPRO         12337     12452     12467     12553
                                                  DPCLOSE        40501     40747     40777     41326     41432     41636     41673
                                                                 41761
          O.LAT       10317                       DPCLOSE        40630     40740     41345
          O.ECT       10320                       DPCLOSE        41307     41374     41470     41476     41515     41541     41563
                                                                 41570
          O.SCA       10320                       STMTP          12237
                                                  ENDPRO         12775
                                                  DPCLOSE        40651
          O.EOT       10321                       DPCLOSE        41125     41202     41214     41226     41336
          O.UDV       10322                       ENDPRO         12516
          O.FPBL      10322                       ENDPRO         12446
                                                  DPCLOSE        40502
          O.ASF       10323                       ASFPRO         36234     36243     36262     36361
          O.EXT       10323                       ENDPRO         12521
          O.ARLST     10324                       PS1CTL         10671
          O.CON       10325                       ENDPRO         12707
                                                  DMPELST        17435
                                                  ARITH          34330
          O.DATA      10326                       ENDPRO         12607
          O.DIL       10327                       DATA           20103
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    68  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O.DIT       10330                       DATA           20320     20324     21075     21176     21332
          O.ENTR      10331                       DPCLOSE        40514
          O.NML       10332                       LISTIO         26007     26021
          O.DOLST     10333                       DOPROC         40162
          O.IOLST     10334                       LISTIO         24501     25425     25761     25766     25774     26022
                                                  ARITH          30122
          O.LTAB      10335                       GOTO           36735     37026     37071     37137     37246
          O.SCR       10336                       ENDPRO         12720
                                                  ERPRO          21550
                                                  ASFPRO         36310     36326     36365
          L.COM       10337                       PS1CTL         11163     11372
                                                  DPCLOSE        40477     40653
                                                  DECPRO         42145     42230
          SIZES       10337                       PS1CTL         11325     11330     11344     11401     11411     11421     11427
                                                                 11437     11467     11475     11506
          L.EQV       10340                       PS1CTL         11163     11372
                                                  ENDPRO         12623
                                                  DPCLOSE        40775     41120     41123     41126     41166     41207     41260
                                                                 41303     41310     41405     41723
                                                  DECPRO         42330
          L.DIM       10341                       ENDPRO         12337     12470     12553
                                                  DPCLOSE        41674     41726     41755     41761
                                                  DECPRO         42550
          L.LAT       10343                       DPCLOSE        40500     40630     40740     40767     41305
          L.ECT       10344                       DPCLOSE        41325     41410
          L.SCA       10344                       ENDPRO         12775
                                                  DPCLOSE        40666     40701
          L.EOT       10345                       DPCLOSE        41124     41144     41226     41375
          L.FPBL      10346                       ENDPRO         12446
                                                  DPCLOSE        40504
          L.UDV       10346                       ENDPRO         12361     12516     12565     12567     12601     12612
                                                  ERPRO          21557
          L.ASF       10347                       ASFPRO         36234     36243     36262
          L.EXT       10347                       ENDPRO         12520
          L.ARLST     10350                       PS1CTL         10673
          L.CON       10351                       ENDPRO         12705
                                                  DMPELST        17436
          L.DATA      10352                       ENDPRO         12607
          L.DIL       10353                       DATA           20106     20125     20130     20143     20207
          L.DIT       10354                       DATA           20106     20142     20255     20324
          L.ENTR      10355                       DPCLOSE        40515
          L.NML       10356                       STMTP          11554     11576
          L.DOLST     10357                       DOPROC         37440     40155     40162     40177     40210
          L.IOLST     10360                       LISTIO         24501     24614     25414     25443     25763     25770     26002
                                                                 26020
                                                  ARITH          30117     30141     30210     30213
          L.LTAB      10361                       GOTO           36732     36744     37127     37137     37210     37240     37246
                                                                 37251
          ROOMS       10363                       PS1CTL         11326     11331     11344     11362     11400     11410     11421
                                                                 11436     11466     11510
          S.LAT       10367                       DPCLOSE        40741     40767
          S.SCA       10370                       DPCLOSE        40652
          S.ARLST     10374                       PS1CTL         10671
          S.SCR       10406                       ERPRO          21547
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    69  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ASFPRO         36311     36326     36410
          TINFO       10407                       PS1CTL         11365     11423     11464
          T.FPBL      10416                       PS1CTL         11457
          NAFVEC      10433                       PS1CTL         11460
          LWA2.0      10436   SNAP                PS1CTL         11145     11153     11166
          B=FTN21     10444   FTN21     
          FEFLAG      10530   SCANNER             ERPRO          21527
          DOFLAG      10627   PS1CTL              STMTP          12034
                                                  ARITH          35260
                                                  GOTO           37011     37065     37111     37166
                                                  DOPROC         37416     37460     37776     40061     40106     40116     40127
                                                                 40143     40154     40251     40312     40336
          B=PS1CT     10651                       FTN21          10445
          LSFLG       10651                       STMTP          11774
                                                  ENDPRO         12407     12432     12442
          PH2CTL      10655                       DPCLOSE        40533
          IPH2        10657                       ARITH          35137
          PH2RETN     10720                       LISTIO         23275     24313     25213
                                                  ARITH          32256     35116
                                                  ASFPRO         36274     36277     36312
                                                  CALL           36476     36625     36630
                                                  GOTO           36751
                                                  DOPROC         40116     40125     40373
          LDPS2       11115                       ERPRO          21561
                                                  PH1CTL         43321     43321
          ADDREF      11173                       STMTP          11557     11731     12042
                                                  ENDPRO         13251     13267
                                                  DATA           21470
                                                  ERPRO          21656
                                                  LISTIO         23317     23506     23725     25277     25301     25374
                                                  ARITH          27460     27464     27466     30072     35546
                                                  ASFPRO         36276
                                                  CALL           36532
                                                  GOTO           37055     37316     37320
                                                  DOPROC         37405     37616     37620     37622     37624     40224     40354
                                                  DECPRO         42066     42172     42264     42367     42425     42464     42532
                                                  PH1CTL         43043     43062     43766     44062
          ALLOC       11327                       ENDPRO         12712
                                                  LISTIO         26014
                                                  ASFPRO         36233     36261
                                                  GOTO           36730
                                                  DPCLOSE        40513     41122     41206     41302     41306     41760
          CTBLOVL     11367                       ENDPRO         12473
                                                  DPCLOSE        40676     40763
          ADDWD       11420                       STMTP          11601     11744     12044
                                                  DMPELST        17455     17461
                                                  DATA           20153     20172     20444     20447     20452     21465
                                                  LISTIO         24606     25757
                                                  DOPROC         40265
                                                  DPCLOSE        40510     41725
                                                  DECPRO         42155     42167     42257     42260     42567     42570
          ALLAE       11432                       ASFPRO         36325
                                                  DPCLOSE        40650     40737
          INITBL      11450                       DPCLOSE        40462     40500
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    70  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PH1CTL         43310
          PTU         11472                       ENDPRO         12362
          WRM         11515                       STMTP          11775     12001     12002     12124
                                                  ENDPRO         12346     12424     13252     13264
                                                  LISTIO         23772     25124     25133     26001     26045
                                                  ARITH          34612     35372     35407     35410
                                                  CALL           36562     36565     36571     36605     36606
                                                  GOTO           37031     37067     37132     37143     37245     37321
                                                  DOPROC         37753     40103     40215
          B=STMTP     11524   STMTP               FTN21          10446
          CONT        11524                       PS1CTL         11053
                                                  ARITH          35640
          IAF         11536                       DATA           21204
                                                  LISTIO         23470
          NAMELST     11537                       PS1CTL         11027
          ENTRY       11752                       PS1CTL         11111
          STOPP       12065                       PS1CTL         11055
                                                  ARITH          35642
          PAUSEP      12072                       PS1CTL         11057
                                                  ARITH          35644
          SVARG       12130                       DATA           21207     21211     21214     21222     21224     21226     21231
                                                                 21312
                                                  LISTIO         23305     23334     23341     23346     23354     23360     23365
                                                                 23401     23407     23413     23420     23432     23436     23444
                                                                 23451     23456     23464     23473     23500     23574     23672
                                                                 23676     23702     23707     23715     23722     24220     24224
                                                                 24427     24433     24546     24571     24575     24715     24721
                                                                 24727     24733     24753     24757     24763     24767     25007
                                                                 25020     25025     25033     25040     25045     25053     25057
                                                                 25066
                                                  DPCLOSE        41773     41775     42001     42005     42010     42013     42017
                                                  PH1CTL         43520     43522     43524     43527     43532     43542     43544
                                                                 43547     43565     43570     43574     43600     43651     43653
                                                                 43660     43663
          F1AMAC      12134                       ENDPRO         12547
                                                  ERPRO          21653
                                                  DPCLOSE        42026
                                                  PH1CTL         43621
          FMAC        12146                       DATA           20774     21216     21233     21314
                                                  LISTIO         23314     23551     23604     23637     23733     24233     24264
                                                                 24310     24442     24456     24517     24555     24604     24742
                                                                 24776     25075
                                                  DPCLOSE        42003     42021
                                                  PH1CTL         43535     43537     43551     43606     43655     43665
          B=ENDPR     12321   ENDPRO              FTN21          10447
          END         12336                       PS1CTL         11033     11113
          ECGS        12373                       PH1CTL         43274     43313
          ENTRY.D     12400                       STMTP          12047
                                                  PH1CTL         43151
          OSC         12640                       DPCLOSE        40615     40632
          WST         12662                       DPCLOSE        40610     40624
          BTOCT       12763                       DATA           21320
                                                  PH1CTL         43633
          BEFTB       13030                       ARITH          34356
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    71  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L.BEFTB     13223                       ARITH          34356
          RETURN      13230                       PS1CTL         11051
                                                  ARITH          35636
          B=SCANR     13271   SCANNER             FTN21          10450
          CD          13355                       ERPRO          22517
          COL         13356                       ERPRO          22474     22514
          DUKE1       13364             
          IDENTOK     13366                       PH1CTL         43760
          NOLIST      13406                       PS1CTL         11164
                                                  PH1CTL         43166
          CONSTOR     13420             
          SBUFF       14501                       PH1CTL         44146
          SCANNER     14604                       PS1CTL         10727     10761     10767
                                                  ERPRO          21555
                                                  PH1CTL         43066     43220
          DSL         15410                       PH1CTL         43223     43760     44135
          LSL         16244             
          PACK7       16465             
          PLO         16525             
          N.EQUAL     17267                       ARITH          35077
          B=CNVRT     17307   CONVERT             FTN21          10452
          DMPELST     17307   DMPELST             FTN21          10451
          CONVERT     17320   CONVERT             STMTP          12120
                                                  DATA           20356     20361     20370     20376
                                                  LISTIO         23643     23667     24215     24422     24424     25575
                                                  ARITH          27246     27302     27340     27375     27675     30676     30755
                                                                 32061     32070     32533     32652     33502     33545     33557
                                                                 34050     34545
                                                  CALL           36635     36677
                                                  GOTO           37211
                                                  DOPROC         37707
                                                  DECPRO         42274     42442     42514
                                                  PH1CTL         43422
          OHC         17544                       DATA           21276
          SAVECHR     20016   ERPRO               FLY            22671
          B=DATA      20061   DATA                FTN21          10453
          DATA        20101                       PS1CTL         11025
          CFCD        20333                       LISTIO         25653
                                                  ARITH          31660
          B=ERPRO     21513   ERPRO               FTN21          10454
          IMFLG       21513                       PS1CTL         11160
          ASAER       21515                       STMTP          11606     12046
                                                  ENDPRO         12413     12445     13254
                                                  SCANNER        14757     15041     15174     15436     15443     15450     16662
                                                  DATA           20132     21250
                                                  LISTIO         23554     23611     24031     24043     24063     24133     24202
                                                                 24414     24747
                                                  ARITH          33315     35704
                                                  CALL           36527
                                                  GOTO           37037
                                                  DOPROC         37450     37665     40161
                                                  DPCLOSE        41430
                                                  DECPRO         42113     42436
                                                  PH1CTL         43205     43355     44015
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    72  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ERPROI      21516                       PS1CTL         11003
                                                  STMTP          11530
                                                  ENDPRO         12367     13261
                                                  SCANNER        15430     17007
                                                  DMPELST        17347
                                                  DATA           20134     20136     20140     20702     21022     21310     21473
                                                  LISTIO         23740     24354     25344     25574
                                                  ARITH          35710
                                                  GOTO           37034     37254
                                                  DOPROC         37454     37502     37524     37546     37573     40011     40021
                                                                 40024     40031     40034     40041     40044     40274     40427
                                                  DPCLOSE        40724     41431     41456
                                                  DECPRO         42336     42417     42474     42544     42723     42726
                                                  PH1CTL         43242     43437
          INFORM      21517                       PH1CTL         43210
          FATALER     21524                       PS1CTL         11371     11373
                                                  SCANNER        15454
                                                  ASFPRO         36316
                                                  DOPROC         37606
                                                  PH1CTL         43177     44257
          ERPRO       21527                       PS1CTL         10757     10765     10773
                                                  STMTP          11620     11756     12036     12117
                                                  ENDPRO         12441     13227
                                                  SCANNER        14673     14724     14735     15527     16265     16373     16550
                                                  DMPELST        17341     17343
                                                  DATA           20062
                                                  LISTIO         23275     24314     24530     25213     25572     25573
                                                  ARITH          32260     32261     34717     35116
                                                  ASFPRO         36312
                                                  CALL           36477     36626     36630
                                                  GOTO           36747     36752     37040     37265
                                                  DOPROC         37374     37400     37411     37413     37714     40014     40141
                                                                 40155     40221     40331     40373     40432     40436
                                                  DPCLOSE        40725     40773     41426     41457     41475     41567     41665
                                                                 41721
                                                  DECPRO         42056     42072     42143     42215     42477     42574     42600
                                                                 42732
                                                  PH1CTL         43053     43056     43122     43343     43345     43371     43377
                                                                 43426     43443     43462     44007     44040     44054     44113
          CED         21570                       PH1CTL         44235
          FORMAT      21631                       PS1CTL         10774
                                                  PH1CTL         43114
          NUMBER      21676                       FLY            22722     23002     23014
          RANGE       21735                       FLY            22731     22733     23004     23023
          FLDCHEK     21761             
          WIDTH       22005                       FLY            22746     22755     22767
          DECIM       22030                       FLY            22752     22762
          SPESSET     22045                       FLY            22734     22735     22737     22740     23011     23012     23013
                                                                 23016     23017     23021
          ONECNT      22054                       FLY            22715
          XPROC       22060                       FLY            22720     22732     23000     23005
          NEGSET      22074                       FLY            22725
          TSASI       22076                       FLY            22713     22723
          TCODE       22104                       FLY            22774
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    73  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          SPES        22116                       FLY            22765     22771
          NULLP       22150                       FLY            22724     22777
          DELCOM      22160             
          HCOUNTR     22163                       FLY            22742
          HSTRNGR     22215                       FLY            22712     22727
          SLASH       22363                       FLY            22710     22717
          RECCHEK     22375             
          LEFTPAR     22421                       FLY            22743
          RITEPAR     22430                       FLY            22711     22721
          UERROR      22465                       FLY            22726     22741     23001     23006     23015     23022
          IERROR      22467                       FLY            22714     22753     22760     22763
          FERROR      22472                       FLY            22730     22744     22756     22770     22775     23003     23007
          FINISH      22562             
          B=FLY       22642   FLY                 FTN21          10455
          TRANSIT     22642                       ERPRO          21673
          NODE2       22715                       ERPRO          21666
          MASKS       23024                       ERPRO          21666     22551
          DIGMASK     23024                       ERPRO          21676     22125
          IXFNCL      23035   LISTIO              ARITH          32251     34654     34676
          B=LSTIO     23035                       FTN21          10456
          APLRST      23036                       ARITH          34724     34746
          BLEXP       23037             
          HOLCON      23040                       ARITH          27375     27376     34675
          INDFG       23041             
          IOEXP       23042                       ARITH          34722     34751
          IONAME      23043                       ARITH          30116     30207
          ITEMCT      23044             
          PARCNT      23045                       ARITH          30115     30206
          TYPEFG      23046                       ARITH          34704     34731
          LDFLAG      23047                       ARITH          27367
          BIO         23050                       ARITH          34656
          CPLXC       23051                       ARITH          34667
          CRFLAG      23136                       ARITH          30273
          CNVT        23260                       DPCLOSE        40603
          ENDFILE     23774                       PS1CTL         11103
                                                  ARITH          35670
          REW         24000                       PS1CTL         11077
                                                  ARITH          35664
          BKSP        24004                       PS1CTL         11101
                                                  ARITH          35666
          PUNCH       24033                       PS1CTL         11107
                                                  ARITH          35674
          PRINT       24046                       PS1CTL         11105
                                                  ARITH          35672
          READ        24111                       PS1CTL         11063
                                                  ARITH          35650
          WRITE       24122                       PS1CTL         11065
                                                  ARITH          35652
          BUFIN       24165                       PS1CTL         11067
                                                  ARITH          35654
          BUFOUT      24171                       PS1CTL         11071
                                                  ARITH          35656
          DEC         24375                       PS1CTL         11075
                                                  ARITH          35662
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    74  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ENC         24401                       PS1CTL         11073
                                                  ARITH          35660
          DOITX       24556                       DOPROC         40115
          WWC         25077                       ARITH          34607
          DONEX       25663                       DOPROC         40077     40107
          IARC        25714                       ARITH          30137     30212
          ARLPT       26105   ARITH               GOTO           37261
          B=ARITH     26106                       FTN21          10457
          SAVDAN      26106                       LISTIO         25477     25511
          CONST       26107                       LISTIO         25657
          IDORDL      26111                       ASFPRO         36174     36275     36307     36315
          NAMFWA      26112                       ASFPRO         36321
          EQCOUNT     26113                       GOTO           36775
          NCA         26114                       LISTIO         23362     23446     23475     25022     25062
          NCAD        26115                       DOPROC         37441     40002
          NRFD        26116                       DOPROC         37442     40010     40020     40030     40040
          OP          26117             
          STAPLC      26151                       CALL           36641     36652     36655
          DBGEXT      27171                       CALL           36577
          DBGAPL      27227                       CALL           36533     36557     36603     36605     36636     36643     36646
          RL2TS       27235                       LISTIO         25731
          APLRT       34103                       CALL           36457     36515     36666
          GEFCM       34210                       CALL           36656
          DARLIST     34245                       CALL           36554
                                                  GOTO           37262
          IFTLU       34344             
          BEFTLU      34347             
          IFTLU.P     34354                       PS1CTL         10661
          CVDB        34566                       PS1CTL         10716
                                                  STMTP          12037
          STRIP       34622                       CALL           36634
                                                  DOPROC         37352
          FSTRIP      34634             
          IXFN        34645                       LISTIO         23233
          ACALL       34770                       CALL           36450
          ARITH       35072                       PS1CTL         11031
                                                  GOTO           37162
          INITR       35142                       CALL           36432
                                                  GOTO           37013     37100     37113     37170
          APLST       35211                       CALL           36564     36565     36570     36571
          IFE         35300                       PS1CTL         11041
          IFL         35532                       PS1CTL         11043
          OPSTAK      35727                       PS1CTL         10672
          B=ASFPR     36167   ASFPRO              FTN21          10460
          ASFDEF      36174                       ARITH          35124
          ASFREF      36320                       ARITH          30373
          B=CALL      36415   CALL                FTN21          10461
          TYPECLL     36423                       ARITH          35053
          CALL        36431                       PS1CTL         11047
                                                  ARITH          35634
          FARGLST     36632                       ARITH          35055
          IGCALL      36660                       ARITH          30706     30763     32117     33512     35602
                                                  GOTO           37024     37107     37125     37216
          B=GOTO      36710   GOTO                FTN21          10462
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    75  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PLAB        36717             
          GOTO        36773                       PS1CTL         11037
                                                  ARITH          35624
          ASSIGN      37266                       PS1CTL         11035
                                                  ARITH          35622
          ALLFUNC     37330   DBGLNK              ARITH          30465
          ALLCALL     37330                       ARITH          35065
          TYPFLAG     37330                       PH1CTL         43072
          D.SAASI     37330                       ARITH          33471     33533
          GOTOSFL     37330                       GOTO           37062
          ALLARR      37330                       ARITH          27636     30237     32022
          NOGOFLG     37331                       ENDPRO         12370
          TRACEL      37332                       ARITH          35260
                                                  CALL           36501     36510
                                                  GOTO           37011     37064     37111     37166
                                                  DOPROC         40241
          D.IDSP      37333                       SCANNER        16346     16513
          BUGPRO      37333                       PS1CTL         10702
          RESREG      37333                       SCANNER        15116     15460     15514     16232     16327     16376
          BUGCON      37333             
          PUTUPDT     37333             
          TURNON      37333             
          CFO         37333                       STMTP          11622
                                                  DATA           21353
                                                  LISTIO         23556
                                                  ARITH          27444     34766     35131
                                                  GOTO           36771
                                                  DOPROC         37671
                                                  DECPRO         42035     42402
                                                  PH1CTL         43050
          D.IDSAV     37333             
          SAVREG      37333                       SCANNER        15114     15456     15512     16230     16325     16374
          POINTRS     37333                       PS1CTL         10701
          BUGACT      37333                       PS1CTL         10714
          TDI         37333                       SCANNER        14752
          DBGERR      37333                       SCANNER        15115     15457     15513     16231     16326     16375
          BUGSOUT     37333                       PS1CTL         11121
          DBGINTX     37333                       PS1CTL         10762     10770
                                                  PH1CTL         43075
          DBGIPKT     37333                       PH1CTL         43247     43324
          DINPH2      37333                       DPCLOSE        40526
          DOP         37333                       PS1CTL         10725
          DBGEPKT     37333                       PH1CTL         43216
          GETTYPE     37333             
          DBGINT      37333                       PH1CTL         43065
          ISITDBG     37333                       SCANNER        15677
          DBGCUN      37333                       STMTP          11550     11767
          B=DOPRC     37335   DOPROC              FTN21          10463
          WLABM       37340                       PS1CTL         11001
                                                  STMTP          12003
                                                  LISTIO         24622
                                                  ARITH          35375     35676
                                                  CALL           36574     36615
          PSYM        37347                       STMTP          11612     11617
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    76  
          OVERLAY(FTN,2,1)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DATA           21020
                                                  LISTIO         23274
                                                  ASFPRO         36307     36315
                                                  GOTO           36750     37277
                                                  DPCLOSE        40771     41424     41454     41473     41565
                                                  DECPRO         42213
          DOPROC      37360                       PS1CTL         11061
          INTVAR      37646                       LISTIO         25245     25603
          DODEF       37775                       LISTIO         24633     25274
                                                  ARITH          32254     33320
          DOCALL      40060                       STMTP          12125
                                                  LISTIO         24013     24064     24137     24200     24412
                                                  ARITH          30430
                                                  CALL           36433     36657
          DONE        40076                       LISTIO         25700     25702
          DOIT        40110                       LISTIO         25670     25674     25677
          DOGOOF      40116                       LISTIO         24526
                                                  ARITH          32260     34716
          DOLAB       40126                       PS1CTL         10721
          DOLABR      40231                       ENDPRO         13231
                                                  ARITH          35471     35544
                                                  CALL           36503     36513
                                                  GOTO           36734     37004
          LORD        40316                       ARITH          35454
          DOLABCN     40317                       PS1CTL         11004
          LABCON      40361                       ERPRO          21634
                                                  LISTIO         23565
                                                  GOTO           37273
          DOEND=      40374                       ENDPRO         12345
          DOTAB       40441             
          B=DPCLS     40444   DPCLOSE             FTN21          10464
          DBLDECL     40454                       DECPRO         42341     42606
          DPCLOSE     40456                       PH1CTL         43101
          O.CBT       40704                       PS1CTL         11133
                                                  ENDPRO         12472     12517     12550
          B=DECPR     42032   DECPRO              FTN21          10465
          DPCOM       42074                       PH1CTL         43107
          SCF         42227                       DPCLOSE        40460
          DPEQU       42244                       PH1CTL         43112
          SEF         42327                       DPCLOSE        40461
          DPTYP       42333                       PH1CTL         43113
          DPDIM       42420                       PH1CTL         43110
          DPLEV       42434                       PH1CTL         43105
          DPIMP       42572                       PH1CTL         43106
          LASTTYP     42740                       PH1CTL         43060
          B=PH1CT     42746   PH1CTL              FTN21          10466
          PH1SCAN     43057                       DECPRO         42056     42142     42211     42220     42322     42407     42432
                                                                 42467     42476     42574     42600     42725     42726
          ESF         43123                       DPCLOSE        41770
          PH1CTL      43163             
          FTN21       43163             
          PROGC       43241                       ERPRO          21561
          CCS         44124                       SCANNER        14701
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    77  
          OVERLAY(FTN,2,5)  
  
  
  
  
  
  
  
 -------- OVERLAY(FTN,2,5)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        16502
  
          TRANSFER ADDRESS -- FTN25          10452          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN25         10444        6    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)   
          PS3CTL        10452       56    LOAD1    24/05/02 COMPASS 3.7 871               
          FAX           10530     3723    LOAD1    24/05/02 COMPASS 3.7 871               
          REFMAP        14453     2027    LOAD1    24/05/02 COMPASS 3.7 871               
           //           16502        0
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FV.LGO          4   FTN                 FAX            11607     11742     11753     11767     12044     12114     13104
                                                                 13443     13734     13760     14010     14240     14337     14404
          CP.ERCT       115                       PS3CTL         10453
                                                  FAX            14232
          CP.LSTF       116                       REFMAP         15203
          CP.NFLS       202                       FAX            14256
          F.LGO         241                       FAX            11771     12014     12050     12116     12254     13106     13445
                                                                 13735     13762     14012     14242     14245     14250     14341
                                                                 14407
          MSG=          302                       PS3CTL         10513
                                                  FAX            14227     14237
          F.CMPS        310                       PS3CTL         10461     10467     10476     10500     10502
                                                  FAX            12452     13710
          F.RMAP        330                       REFMAP         15605     15643     16043     16055     16125
          PR.MXFL       400                       REFMAP         15721
          CER.FL        402                       REFMAP         15213
          CAFLAG        404                       PS3CTL         10474
          CO.ER         410                       FAX            12355     12370
                                                  REFMAP         15231
          CO.OLVL       413                       REFMAP         15231
          CO.STA        417                       FAX            12003     12220     12223
          DFLAG         421                       PS3CTL         10455
          DIRECT        422                       FAX            11725
                                                  REFMAP         16464
          PMDFLAG       430                       FAX            11777
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    78  
          OVERLAY(FTN,2,5)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OT.RM         431                       FAX            12205     12300
                                                  REFMAP         16427
          PLIMIT        432                       FAX            12220     12300
          QFLAG         433                       PS3CTL         10475
                                                  REFMAP         15277     15321     15366     15500     15702
          UFLAG         436                       PS3CTL         10474
          O.TITL        457                       REFMAP         15206     15250
          TL.CCOP       463                       FAX            11706
          TL.DATE       470                       FAX            11705
          TL.TIME       471                       FAX            11705
          SYMBOL       6333   LSTPRO              FAX            11035     12211     12226     12265
          LABEL        6361                       FAX            11035
          RSSW         6413                       PS3CTL         10471
          FTNEND       6554                       PS3CTL         10505
          CDD          6675                       PS3CTL         10507
                                                  FAX            14233
                                                  REFMAP         15065     15541     15543     15750     15754     16064
          CIO=         6765                       PS3CTL         10477     10501     10503
                                                  FAX            13736     14243
                                                  REFMAP         16044
          RDC=         6773                       FAX            12453     13711
          RDW=         7010                       REFMAP         15606     15643     16055     16125
          WTC=         7124                       PS3CTL         10462     10470
          WTW=         7140                       FAX            11771     12015     12050     12116     12255     13107     13445
                                                                 13762     14012     14246     14250     14341     14407
          FA=LOL       7224                       FAX            11760     12141     12152     12177     12331     12377     12442
                                                                 13113     13730     13731     14077     14203     14212
                                                  REFMAP         14775     14777     15016     15053     15215     15252     15434
                                                                 15570     15724     15743     16003     16112     16135     16141
                                                                 16160     16230     16470
          FA=NPG       7233                       FAX            11757
                                                  REFMAP         15001     15251
          L.STITL      7266                       REFMAP         14771     15174
          SETCORE      7443                       FAX            11737     11741     12164     14102
                                                  REFMAP         16051     16411
          PROGNAM      7451                       PS3CTL         10510
                                                  FAX            10675     11677
          OLIST        7455                       FAX            11742     11756     12135     12175     12327     12375     12440
                                                                 13111     13726     14411
          RSELECT      7456                       REFMAP         15203     15246     16042
          R=FLAG       7457                       REFMAP         15236     15243     15244     15574     15637
          O.STITL      7460                       REFMAP         14762     14770     14776     15175
          SYMORD       7471                       FAX            12310
                                                  REFMAP         16237     16440
          N.LINES      7732                       REFMAP         14772
          N.COM        7733                       FAX            12017
                                                  REFMAP         15233     15573     15600     15631     16452
          ORGTAB       7734                       FAX            12031     12056
                                                  REFMAP         15233     15342     15612     16455
          START.      10134                       REFMAP         16433
          O.LBLK      10134                       REFMAP         16414
          SDATA.      10143                       FAX            12306     12313
          N.FILES     10153                       FAX            12166     12213     12224     12262     12371
                                                  REFMAP         15364     16427
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    79  
          OVERLAY(FTN,2,5)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          N.EQUF      10154                       REFMAP         16433
          IOAPLN      10155                       FAX            11730
          XFRNAME     10156                       PS3CTL         10463
                                                  FAX            14402
          FUNTYPE     10157                       FAX            12334
          N.FP        10160                       REFMAP         16421
          LEVEL2      10165                       FAX            11702     14350
          O.LOOP      10167                       REFMAP         15514     15527
          L.LOOP      10170                       REFMAP         15514
          N.FERR      10172                       PS3CTL         10452     10457
                                                  FAX            11753
                                                  REFMAP         15216     16413
          E.UDEFL     10173                       REFMAP         15236     15241
          P2NOGO      10174                       PS3CTL         10456
          O.TSS       10175                       FAX            12075
          TEMPA0.     10175                       FAX            10704     12350     12363     13622
          VALUE.      10176                       FAX            12337     12344
                                                  REFMAP         15261     16243
          TRACE.      10177                       FAX            12410     12526
          ENTRY.      10200                       FAX            12357     13630     13656
          LABEL.      10203                       FAX            12564
          FTNNOP.     10204                       FAX            13634
          NOPS.       10205                       FAX            13641
          ST.         10207                       FAX            12307
                                                  REFMAP         16437
          L.TSS       10213                       FAX            12075
          LWAWORK     10220                       FAX            11730
                                                  REFMAP         16237
          O.GLT       10221                       FAX            13702
          O.IOT       10223                       FAX            11365     11732
          STLTAB      10231                       FAX            12004
          PUTTAB      10247                       REFMAP         15232     15235
          WB.LAB      10271                       FAX            12160
          WB.FMT      10300                       FAX            11361
          SYMDMP      10305                       PS3CTL         10472
          O.COM       10313                       REFMAP         15604     15622
          O.UDV       10322                       REFMAP         15256
          O.EXT       10323                       FAX            11465     12120     12142
          O.ENTR      10331                       FAX            12102
          L.COM       10337                       REFMAP         15576     15602
          L.EQV       10340                       REFMAP         15636
          L.UDV       10346                       REFMAP         15255
          L.EXT       10347                       FAX            11466     12120     12142
          L.ENTR      10355                       FAX            12101
          B=FTN25     10444   FTN25     
          FTN25       10452   PS3CTL    
          B=PS3CT     10452                       FTN25          10445
          IEM         10506                       REFMAP         15220
          B=FAX       10530   FAX                 FTN25          10446
          SWC         10556                       REFMAP         16063     16066
          FTNXAS      11676                       PS3CTL         10504
          B=REFMP     14453   REFMAP              FTN25          10447
          REFMAP      15224                       PS3CTL         10473
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    80  
          OVERLAY(FTN,2,2)  
  
  
  
  
  
  
  
 -------- OVERLAY(FTN,2,2)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        41105
  
          TRANSFER ADDRESS -- FTN22          10467          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN22         10444       22    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER   
          CLOSE2        10466       53    LOAD1    24/05/02 COMPASS 3.7 871               
          MIO           10541     1136    LOAD1    24/05/02 COMPASS 3.7 871               
          FBV           11677      111    LOAD1    24/05/02 COMPASS 3.7 871               
          /GPOGRA/      12010       40
          /BVINFO/      12050        4
          GPO           12054     4322    LOAD1    24/05/02 COMPASS 3.7 871               
          GRA           16376     4043    LOAD1    24/05/02 COMPASS 3.7 871               
          PROSEQ        22441     1600    LOAD1    24/05/02 COMPASS 3.7 871               
          POST          24241     1366    LOAD1    24/05/02 COMPASS 3.7 871               
          SQZ           25627     1677    LOAD1    24/05/02 COMPASS 3.7 871               
          /MCG/         27526      217
          MCG           27745     2647    LOAD1    24/05/02 COMPASS 3.7 871               
          BDT           32614     1060    LOAD1    24/05/02 COMPASS 3.7 871               
          PRE           33674     1341    LOAD1    24/05/02 COMPASS 3.7 871               
          CFA           35235      667    LOAD1    24/05/02 COMPASS 3.7 871               
          UDT           36124      264    LOAD1    24/05/02 COMPASS 3.7 871               
          READRL        36410      407    LOAD1    24/05/02 COMPASS 3.7 871               
          MACROX        37017     1765    LOAD1    24/05/02 COMPASS 3.7 871               
           //           41004      101
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.BLK           0   PROSEQ              MIO            10607     10622     11243
                                                  GPO            12132     12233
          Z.GST           1                       CFA            35255     35263     35437     35512
          Z.TXT           1             
          Z.RND           2                       FBV            11756
                                                  GPO            14731     15433
                                                  GRA            17322     17474     17645     20056     22320
                                                  SQZ            25642     25730
                                                  PRE            34731
                                                  CFA            35724
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    81  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.TREE          2                       MCG            31436     32106     32142
                                                  BDT            32621     33261     33310
          Z.PIT           3                       GPO            12316     12325     12614
                                                  MCG            30075     32602
          Z.MLT           4                       GPO            13672     14052     16130
                                                  GRA            20715
          Z.OTI           4                       MCG            30074     32520
                                                  CFA            36043
          Z.MOD           5                       GPO            13655     14054     15760     16132
                                                  GRA            20610     20623
                                                  PRE            33770
          Z.CFT           6                       FBV            11730
                                                  GPO            12625
                                                  PRE            33762     34051     34106     34121     34130     34156     34200
                                                                 34205     34217     34337     34405     34543     34545
                                                  CFA            35331     35426     35430     35707     36045
          Z.BST           7                       GPO            12741     13160
                                                  PRE            33757
                                                  UDT            36360     36406
          Z.PSI          10                       GRA            21103
          Z.RXI          11                       GPO            12266     14211
                                                  UDT            36166
          Z.RCT          12                       GRA            16436     16561     20137     20346
          Z.TET          13                       GPO            15377     15765
          Z.IOL          14                       PRE            33752
                                                  UDT            36300
          Z.IIT          14                       GPO            14666     15435     15451     15600     15666     15674
          Z.VDT          15                       POST           25420
                                                  PRE            34733
          Z.APL          16                       PRE            34325
          Z.UDI          17                       GPO            12237
                                                  PRE            33746
                                                  UDT            36127     36132     36246     36301
          Z.ALS          20                       PRE            34000     34512
          Z.TEND         21                       GPO            12545
          MACORG        100   MACROX              PRE            34010
          GT1           135   FTN                 PROSEQ         24035     24040     24042
          CP.AFLS       201                       CLOSE2         10467
                                                  PROSEQ         24030     24042     24051     24055     24064
          CP.NFLS       202                       PROSEQ         24104
          LCM.FL        203                       MIO            10560     11375     11410
          SYS=          253                       MIO            11406
                                                  PROSEQ         24041     24063
          WNB=          272                       FBV            11722
          MSG=          302                       CLOSE2         10530     10532
                                                  PROSEQ         24075
                                                  CFA            35357
          F.CMPS        310                       POST           24311     25533
          F.RLST        320                       CLOSE2         10471
                                                  MIO            10570
                                                  READRL         36720
          F.OPT         340                       CLOSE2         10500     10502
                                                  MIO            10771     10773     10775     11000     11622     11625     11626
                                                                 11636     11640     11643
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    82  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FBV            11722
          MACFLAG       374                       POST           24332
          MAX.FL        375                       PROSEQ         24030     24051
          MAX.RL        376                       MIO            10570     10770     11033     11057
                                                  PRE            33740
          PR.MXFL       400                       PROSEQ         24057
          CO.ER         410                       PROSEQ         22462
                                                  MCG            30104
          DOBGN         417   MACROX              PRE            34015
          DIRECT        422   FTN                 PROSEQ         23325     23431
                                                  POST           25323     25477
          DOEND         422   MACROX              PRE            34016
          SLIST         434   FTN                 CFA            35360
          UOFLAG        437                       GPO            14341
                                                  GRA            17176     17776
          LCM.OA        441                       PRE            33763
          OVLA          444                       CLOSE2         10506
          OVLB          445                       CLOSE2         10510
          OVL25         454                       CLOSE2         10506
          LOVER         504                       CLOSE2         10511
          FTNABT       6547   LSTPRO              MIO            11660     11671
                                                  FBV            11677
          CDD          6675                       CLOSE2         10523
                                                  POST           24337
                                                  CFA            35375
          COD          6704                       PROSEQ         24067
          MVE=         6742                       MIO            10612     10674     11012     11055     11105     11356
                                                  GPO            12272     12321     12327     12351     12363     12376     12410
                                                                 13073     13660     14257     14262     15763
                                                  GRA            20631
                                                  PROSEQ         22544     24106     24144     24163     24232
                                                  MCG            32074
                                                  BDT            33530
                                                  PRE            34302     34603
                                                  UDT            36355
                                                  READRL         36672
          CIO=         6765                       CLOSE2         10472     10503
                                                  MIO            10776     11002     11627     11644
          RDW=         7010                       MIO            11000
                                                  READRL         36720
          WTC=         7124                       POST           24311     25534
          FA=LOL       7224                       CLOSE2         10526
                                                  BDT            33267
                                                  CFA            35362     35363     35422
          OUTUSE       7316                       POST           25404     25457     25503
          UVARDIM      7332                       POST           25404
          UCODE.       7334                       POST           25457
          UDATA.       7335                       POST           25503
          SETCORE      7443                       GPO            12236     12365     12762
                                                  GRA            16434
                                                  PRE            33724     33745
          COMPMSG      7450                       CLOSE2         10527
          PROGNAM      7451                       PROSEQ         24071
                                                  CFA            35354
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    83  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          R=FLAG       7457                       PRE            33711
                                                  CFA            35361
          N.AP         7467                       POST           25217
                                                  PRE            33715
          N.GL         7470                       GPO            12055     12543
                                                  PRE            33716
          SYMORD       7471                       POST           25507
          ORGTAB       7734                       GRA            20010     20436
          VARDIM.     10135                       POST           25405
          CODE.       10137                       POST           24241     25456
                                                  PRE            33710
          DATA.       10140                       POST           25473     25504     25515
          SDATA.      10143                       POST           25475     25500
          N.ST        10144                       POST           25357
          N.OT        10145                       POST           25360
                                                  MCG            31103
          N.VD        10147                       POST           25361     25447
          N.IT        10150                       GPO            12660
                                                  POST           24405     25362
          LINENR      10151                       CLOSE2         10523
                                                  GPO            13001
                                                  SQZ            27021
                                                  PRE            34361
          FUNTYPE     10157                       PRE            33750
                                                  UDT            36212
          N.FP        10160                       POST           25356     25365
                                                  PRE            33706
                                                  UDT            36221
          RETURNS     10161                       PRE            33764     34251
          FSTEX       10162                       POST           25502
          LEVEL2      10165                       PROSEQ         23216
                                                  POST           25212     25477
                                                  PRE            33706
          O.LOOP      10167                       PROSEQ         24107
                                                  POST           24631
                                                  PRE            33714     34474
          L.LOOP      10170                       CLOSE2         10522
                                                  PRE            33713
          N.FERR      10172                       CLOSE2         10533
          TEMPA0.     10175                       POST           24704
          VALUE.      10176                       PRE            33750
          FP.         10206                       POST           25356
          ST.         10207                       POST           25357     25505
          OT.         10210                       POST           25360
                                                  MCG            32532
          IT.         10211                       GPO            14326     15332     15740     15764     16135
                                                  GRA            20402
                                                  POST           24517     25362
                                                  MCG            32551
          VD.         10212                       POST           25361     25425
                                                  SQZ            27420
                                                  PRE            35022
          LWAWORK     10220                       CLOSE2         10505
                                                  GPO            12550
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    84  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PROSEQ         24117
                                                  PRE            33711
          O.GLT       10221                       GPO            12546
                                                  PROSEQ         24112
                                                  POST           24716
                                                  PRE            33721     34111
                                                  CFA            35303
          O.API       10222                       GPO            14531
                                                  PROSEQ         24113
                                                  POST           25217     25231     25267
                                                  PRE            33717     34552
          OPTLVL      10227                       PRE            34001     34364     34501
          OPT2        10230                       CLOSE2         10474     10477
                                                  MIO            10632     11233
                                                  GPO            12411     12420
                                                  GRA            17177     21134
                                                  PROSEQ         22460
                                                  PRE            33736     34074     34117     34125     34150     34165     34210
                                                                 34231     34376     34514     34536
          WB.LAB      10271                       POST           24700     24714
          O.UDV       10322                       PROSEQ         24114
          O.EXT       10323                       PROSEQ         24116
          O.ENTR      10331                       PROSEQ         24115
          LWA2.0      10436   SNAP                CLOSE2         10505
          B=FTN22     10444   FTN22     
          P2.FL       10466   CLOSE2              GPO            12140
          B=CLOS2     10466                       FTN22          10445
          FTN22       10467             
          PUNT        10520                       MIO            11267
                                                  GPO            12441
                                                  PROSEQ         24005
          PS2ABT      10533                       BDT            33270
          O.LCM       10541   MIO                 PRE            33764
          B=MIO       10541                       FTN22          10446
          MAX.BLK     10542             
          MX.AVS      10552                       PROSEQ         24017
          IMPA        10557                       PRE            33737
          IMPB        10564                       GPO            12342
          IMPC        10574                       GPO            12444
          IMPD        10602                       GPO            12252
          WFB         10631                       GRA            21406
          WMB         10646                       GPO            12150     13717     14276
          RTB         10703                       GPO            12171     12304     12312     12774     13055     13112     13244
                                                                 13263     13663     14077     14252
                                                  GRA            17742     20603     21244
          RBS         10733                       GPO            13133     13251     13661
          RNB         10764                       FBV            11710
          SMB         11015                       UDT            36405
          GMB         11051                       GPO            12666
          DMB         11116                       PROSEQ         24021
          CGB         11335                       PROSEQ         24025
          SBD         11615                       CFA            35244
          GBD         11635                       GPO            12735
          B=FBV       11677   FBV                 FTN22          10447
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    85  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  MIO            11603
          FBV         11700                       GPO            12412
          O.UDT       12010   GPO                 SQZ            27155
          N.VAR       12051             
          BVL         12052                       FBV            11772
                                                  GRA            16454     21131     21154     21446
          B=GPO       12054                       FTN22          10450
          DMASK       12054                       GRA            21613     21760
          N.GL0       12055                       PRE            33721
          CBN         12056                       PRE            34047     34104     34110     34120     34127     34154     34176
                                                                 34203     34215     34221     34335     34403     34541
                                                  CFA            35264     35274     35352     35611     35624
          NPB         12057                       FBV            11727
                                                  CFA            35267
          M.GRL       12060                       CFA            35251     35634
          N.DG        12061                       CFA            35237     35274
          GIC         12062                       CFA            35242     35243     35247     35252
          O.IST       12063                       FBV            11731     11755     11761
                                                  CFA            35245     35253
          M.LP        12064                       CFA            35630
          N.FTH       12065                       CFA            35331     35607
          M.BBL       12066                       FBV            11701
                                                  PROSEQ         24006
                                                  UDT            36350
          M.EBL       12067             
          N.GT        12070                       GRA            20736
                                                  POST           24403
                                                  SQZ            25652     25720
          O.BIT       12071                       MIO            10616     10624     10660     10706     10736     11127     11160
                                                                 11336     11541
                                                  FBV            11704     11762
                                                  GRA            21121     21364     21376
                                                  POST           25031
          L.BIT       12072             
          O.BVT       12073                       FBV            11760
          L.BVT       12074             
          L.PTXT      12076                       UDT            36376
          O.LCT       12077                       POST           25030
          L.LCT       12100                       CFA            35330     35605
          O.ELT       12101                       POST           24721
          L.ELT       12102                       POST           24716
          O.SEQ       12103                       MIO            10701     10724     11124     11161     11237     11336     11353
                                                  FBV            11703     11706     11711
                                                  GRA            16563     17647     17660     17744     20605     20714     21332
                                                                 21413
                                                  PROSEQ         22477     22531     22540     22575     22617     22646     22651
                                                                 22673     23227     23236     23270     23277     23425     23546
          L.SEQ       12104                       MIO            10702     10725     11240
                                                  GRA            17565     17655     17720     20710     21245     21332     21351
                                                                 21411
                                                  PROSEQ         22477     22502     22532     22540     22610
          BN          12105                       FBV            11707     11712     11715
                                                  POST           25032
          BSI         12106                       MIO            10633     10647     10655     10667     10704     10720     10735
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    86  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 11063     11111
                                                  GRA            17742     20602     21227     21251     21272     21300     21310
                                                                 21312     21355     21365
          BSW         12107                       GRA            17040
          L.HB        12110                       GRA            21661
                                                  SQZ            25632
          NBIP        12122                       BDT            32747
          HBI         12123                       GRA            20726
                                                  BDT            33301
          PCC         12155                       GRA            16405     16407     17523     17531     21322
          SRI         12203                       GRA            20566     20640     20662     20674     20705     20747     21043
                                                                 21046     21056     21061     21422     21440     21471     21474
                                                                 21477     21667     21672     21676     21724     21727     22043
                                                                 22054     22077     22155     22163     22171
          COL         12230                       PROSEQ         22465
          GPO         12341                       CLOSE2         10475
          EBV         13332                       GRA            16444
          FUD         13363                       FBV            11714
          MPB         16246                       GRA            20716
                                                  PROSEQ         22475     22572     23232
          MBT         16356             
          B=GRA       16376   GRA                 FTN22          10451
          GRASRF      16377                       BDT            32672
          GRA         16400                       GPO            12526
          CXB         21350                       GPO            13173
          CUC         22244                       GPO            14026
                                                  PROSEQ         22573
          BIR         22441   PROSEQ              SQZ            25724
          B=PROSQ     22441                       FTN22          10452
          NIRN        22442                       PRE            34415     34616     34627     34675     34726
                                                  READRL         36724
          FPL2        22443                       PRE            33707
          PROSEQ      22445                       PRE            34046     34060     34103     34213     34220     34400     34402
                                                                 34523
          SSP         22525                       POST           25450
          PSB         22546                       POST           25447
          AIS         22574                       GRA            21352
          ESRA        23215                       GPO            13260
          ESR         23233                       GPO            12310     13265
                                                  POST           25452
          F.RDT       23555                       GPO            12204     12211     12216     12451     13246     14014     15245
                                                                 15344     15607     16215
                                                  GRA            21007     21071     21423     21425     21506     21533     21654
                                                                 21740     22026     22125     22214     22222     22234
                                                  POST           25462
                                                  SQZ            25752     26474     26503     26757     27301     27373     27407
                                                  MCG            31444     31452     32077     32154     32212     32443     32537
                                                                 32554
                                                  PRE            33772     34534     34536     34622     34644
                                                  READRL         36676     36762
          SST         23672                       BDT            33137     33236
                                                  CFA            35434
          SHL         23716                       GPO            12637
                                                  GRA            17335     17511     20111     20135     20316
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    87  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  BDT            33134     33246     33360
                                                  CFA            35467
                                                  UDT            36142
          O.BLK       23721                       MIO            10576     11125     11173     11337     11361
                                                  GPO            12331
          O.GST       23722                       GPO            12347
                                                  CFA            35240     35247     35316     35335     35460     35505     35710
                                                                 35726     36050
          O.TXT       23722                       MIO            10577     10610     10656
                                                  GPO            12142     12146     12331     13031     13254     13710     14115
                                                                 14274     15401     15412     15415     15437     15445     15602
                                                                 15750     15762
                                                  GRA            20717     21261     22245     22321
                                                  POST           24344     24360     25230     25261
                                                  SQZ            25644     25732     27317     27332
                                                  MCG            30102     31111     32605
                                                  BDT            32622     33146     33172     33263     33312     33356     33361
                                                                 33531     33543
                                                  PRE            33772     34142     34261     34270     34354     34626
                                                  UDT            36247     36344     36362
          O.TREE      23723                       MCG            30042     30555     31455     31505     31571     31734     32032
                                                                 32112     32123     32222     32276     32322     32362     32405
                                                                 32465
                                                  BDT            32625     32724     32766     33005     33140     33166     33220
                                                                 33526     33532
          O.RND       23723                       GPO            14767     15514     15602
                                                  GRA            17655     20140     20317
                                                  PRE            34310     34766
          O.PIT       23724                       GPO            12662     12667
                                                  GRA            21400
                                                  POST           24331     24345     24356     24373
                                                  MCG            32607
          O.OTI       23725                       MCG            32524
                                                  CFA            35652     36101
          O.MLT       23725                       GPO            16134     16226     16256
          O.MOD       23726                       GPO            13710     14260     16253     16313
                                                  PRE            33773
          O.CFT       23727                       FBV            11760
                                                  CFA            35302     35443     35470     35730
          O.BST       23730                       MIO            10632     10647     10655     10704     10720     10735     11124
                                                                 11161     11337
                                                  GPO            12162     12177     12361     13122     13203     13241     13631
                                                  GRA            21251     21270     21306     21355     21364
                                                  CFA            35320     35333     35366
                                                  UDT            36207
          O.PSI       23731                       GPO            14036     14056
          O.RXI       23732                       GPO            12406
                                                  GRA            21105     21447
                                                  UDT            36231
          O.RCT       23733                       GRA            16453     17324     17476     17543     17567     17671     17743
                                                                 20057     20401     20612     20625     21104     21135     21212
                                                                 21232     21340     21413
          O.TET       23734                       GPO            12626     12641     13304     14436     15422     15454     15460
                                                                 15652     16154     16173
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    88  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GRA            17422     20033     20112     20160     20401     20720
                                                  POST           24377
                                                  SQZ            25665
                                                  BDT            32765
          O.IIT       23735                       GPO            15460     15637     15655     15655     15726     16140
                                                  GRA            20161     20402     20616     20627
                                                  BDT            32765
          O.IOL       23735                       UDT            36303     36316     36354
          O.VDT       23736                       POST           25423
                                                  PRE            35030
          O.APL       23737                       POST           25230
                                                  PRE            34253     34257     34556
          O.UDI       23740                       GPO            12374
                                                  UDT            36143     36170     36232
          O.ALS       23741                       PRE            34772
          O.TEND      23742                       GPO            12550
                                                  PRE            33726
          L.BLK       23743                       MIO            10576     11361
                                                  GPO            12244     12332
          L.GST       23744                       GPO            12347
                                                  CFA            35236     35254     35262     35340     35462     35626
          L.TXT       23744                       MIO            10603     10606     10614     10652     10657
                                                  FBV            11717
                                                  GPO            12143     12146     12151     12313     12333     12521     12673
                                                                 13232     13716     13720     14251     14273     15341     15415
                                                                 15510     15747     15770     16314
                                                  GRA            21243     21247     21261     21303     21325     21361     21500
                                                                 22245     22317
                                                  POST           25417     25446
                                                  SQZ            25637     27267
                                                  MCG            31111     31441     32070     32111     32123     32150     32276
                                                                 32345
                                                  BDT            32616     33141     33306     33363     33435     33526
                                                  PRE            34056     34102     34160     34261     34270     34354     34630
                                                  UDT            36245     36344     36376
          L.RND       23745                       FBV            11723
                                                  GPO            14733     15511     15514
                                                  GRA            17431     17507     17663     20134     20343     22323
                                                  SQZ            26012
                                                  PRE            34054     34166     34211     34226     34310     34324     34511
                                                                 34717
                                                  CFA            35736
          L.TREE      23745                       MCG            27772     27777
                                                  BDT            33167     33236     33246     33305     33541
          L.PIT       23746                       GPO            12665     12672
                                                  GRA            21230     21266     21277     21304     21314     21326     21356
                                                                 21362
                                                  POST           24331     24371     25142
                                                  MCG            27765     30003     30542
          L.MLT       23747                       GPO            13266     16230     16257     16351
          L.OTI       23747                       MCG            30214     30313     30662     31104     32516
                                                  CFA            35651     36102
          L.MOD       23750                       GPO            12516     13664     14253     14260     14263     16227     16247
                                                                 16352
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    89  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GRA            20712
                                                  SQZ            25631
          L.CFT       23751                       FBV            11724     11753
                                                  GPO            12661
                                                  CFA            35257     35302     35327     35351     35435     35705     35736
                                                                 36122
          L.BST       23752                       GPO            12333     12360     12366     12760     13051     13117
                                                  GRA            21300
                                                  CFA            35365
                                                  UDT            36346
          L.PSI       23753                       GRA            21133
          L.RXI       23754                       GPO            12405
                                                  GRA            16430
          L.RCT       23755                       GRA            16410     16427     16453     16557     17324     17360     17434
                                                                 17476     20053     20141     20203     20422     20522     20561
                                                                 21326
          L.TET       23756                       GPO            12340     12617     12767     13311     15241     15373     15737
                                                  GRA            20721     20737
          L.IOL       23757                       PRE            33756     34242
                                                  UDT            36320     36345     36356
          L.IIT       23757                       GPO            12334     12477     13053     14663     15637     15661
          L.VDT       23760                       POST           25402     25416
                                                  PRE            34717
          L.APL       23761                       PRE            34251     34553     34574     34576
          L.UDI       23762                       GPO            12373     12377
                                                  UDT            36125     36130     36243     36317
          L.ALS       23763                       GPO            12305
                                                  PRE            34057     34527     34773
          L.TEND      23764             
          MU          23765                       GPO            12143
                                                  PRE            33735
          LM          23766                       GPO            12133     12137     12330
                                                  PRE            33740
          TO          23775                       MIO            10600
          INT.P2M     23776                       CLOSE2         10470
          MX.BLN      23777                       GPO            12444
          TOBA        24000             
          TOV         24002             
          TOB         24006                       MIO            10600
          MOREFL      24027                       MIO            11167
                                                  GPO            12437
          CWS=        24047                       GPO            12426
                                                  PRE            33730
          AFL         24054                       CLOSE2         10504
          AST         24103             
          ATS=        24124                       MIO            10607     10623     11244
                                                  FBV            11702     11730     11757
                                                  GPO            12132     12234     12240     12267     12317     12325     12450
                                                                 12545     12614     12616     12625     12742     13034     13104
                                                                 13160     13656     14055     14211     14255     14265     14667
                                                                 14731     15237     15400     15433     15601     15675     15714
                                                                 15761     16131     16133     16252     16361
                                                  GRA            16436     16562     17323     17475     17646     20056     20137
                                                                 20346     20611     20624     21103     21412     22320
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    90  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  POST           25216     25422
                                                  SQZ            25643     25731     27347
                                                  MCG            30074     30076     31435     31437     32071     32107     32141
                                                                 32143     32521     32602
                                                  BDT            32621     33262     33310
                                                  PRE            33734     33742     33747     33760     33771     34300     34420
                                                                 34611     34615     34643     34731     34733
                                                  CFA            35332     35437     35513     35707     35725     36043     36046
                                                  UDT            36132     36167     36246     36300     36302     36353     36361
          AFT=        24200                       GPO            12232     12336     12353
          ADW=        24210                       GPO            13673     14053     15435     15452     15666     15765
                                                  GRA            20715
                                                  POST           25420
                                                  PRE            33753     33762     34000     34051     34106     34122     34131
                                                                 34152     34156     34200     34205     34217     34326     34337
                                                                 34406     34513     34543     34545
                                                  CFA            35256     35263     35427     35431
                                                  UDT            36127     36406
          AMU=        24223                       GPO            12137
          MTU=        24234             
          BLPTR       24241   POST      
          B=POST      24241                       FTN22          10453
          PARCEL      24243                       GPO            12231     12314     12612
                                                  GRA            21372
                                                  MCG            30077
          FSU         24315                       PROSEQ         22463
                                                  PRE            34100
          CUB         24322                       PRE            33710
          CII         24330                       GPO            12335     12670
                                                  PROSEQ         22505
          OTC         25176                       CLOSE2         10476
          B=SQZ       25627   SQZ                 FTN22          10454
          SIE         25630                       GPO            15746
          SQZB        25634                       GPO            13257     14272     16243
          STLDS       25650                       GPO            14112
          SUVA        25651                       GPO            14105     14111
          SBB         25723                       PROSEQ         22457
          CMO         27414                       GPO            14361     14363     14365     15042     15044     15046
          PC          27655   MCG                 GRA            21267     21356
          MX.TXT      27745             
          B=MCG       27745                       FTN22          10455
          TYIOM       27746                       GPO            15227
                                                  PROSEQ         22730
                                                  BDT            33605
          MCG         27764                       GPO            12323
                                                  GRA            21373
                                                  PROSEQ         22504
                                                  POST           25453
          B=BDT       32614   BDT                 FTN22          10456
          BDT         32615                       MCG            27767     31115
          RIO         33300                       GPO            13272
                                                  MCG            31114
          CRW         33571             
          RNI         33645                       GRA            22322
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    91  
          OVERLAY(FTN,2,2)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  SQZ            26011
          B=PRE       33674   PRE                 FTN22          10457
          BRN         33674                       PROSEQ         22453     22517
                                                  SQZ            25724
          LSN         33676                       PROSEQ         22514
          WB          33677                       PROSEQ         22464     22520
          XR          33702                       PROSEQ         22511
                                                  UDT            36400
          PIOL        33704                       UDT            36357
          PRE         33705                       CLOSE2         10473
                                                  GPO            12063     12114
          B=CFA       35235   CFA                 FTN22          10460
          DGS         35260                       GPO            12346
          B=UDT       36124   UDT                 FTN22          10461
          AUT         36124                       GPO            12243     12344
          F.CFA       36124   CFA                 GPO            12345
          CMR         36244   UDT                 GPO            12242
          CPL         36276                       PRE            33755     34260     34352     34516
          PBB         36342                       PROSEQ         22507
          RLI         36410   READRL              PRE            34006     34063     34271     34303     34303     34401     34407
                                                                 34612
          B=RRL       36410                       FTN22          10462
          F.UDT       36410   UDT                 GPO            12343
          O.MAC       36413   READRL              PRE            34010     34346     34351     34616     34674     34740
          MACWDS      36415                       PRE            34646
          MACTYP      36416                       PRE            34027
          MACINS      36417                       PRE            34641     34705     34712     34720     34741     35003     35025
                                                                 35072     35145     35157     35171     35204     35214
          O.EMRB      36420                       PRE            34641
          RRL         36660                       PRE            34005     34062     34144     34267
          EMR         36723                       PRE            34026     34507     34533
          B=MACRX     37017   MACROX              FTN22          10463
          F.MACD      40356                       READRL         36725
          SBUF        40426                       READRL         36734     36760
          RBUF        40435                       READRL         36742     36760
          CBUF        40447                       PRE            34134     34140
                                                  READRL         36756     36761
  
  
  
  
  
 -------- OVERLAY(FTN,2,4)  
          WRITTEN TO FILE     FTN 
  
          FWA OF THE LOAD          10444
          LWA+1 OF THE LOAD        60242
  
          TRANSFER ADDRESS -- FTN21          57104          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    92  
          OVERLAY(FTN,2,4)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN24         10444       45    LOAD1    24/05/02 COMPASS 3.7 871               FTN4 OPT COMPILER - DEBUG PASS 1        
          /DBGBLK2/     10511      115
          /DBGBLK1/     10626       10
          /NONFTNX/     10636       11
          DBGPHCT       10647     1445    LOAD1    24/05/02 COMPASS 3.7 871               
          /LINE/        12314       22
          OUTPK24       12336      536    LOAD1    24/05/02 COMPASS 3.7 871               
          /DBGBLK3/     13074      207
          /OUTPUT/      13303        1
          PUT           13304       51    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PUTUPDT       13355      203    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          BUGACT        13560      153    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          GETOUT        13733       14    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          TURNON        13747      774    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          BUGSOUT       14743      744    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          BUGCON        15707     3332    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          TURNOFF       21241      617    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          DEBUGER       22060      412    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          BUGPRO        22472      745    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          PUTIN         23437       31    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          SETARR        23470      142    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          BUGCLO        23632      517    LOAD1    24/05/02 FTN     4.8 871    6464 I     SUBROUTINEOPT=1     
          SAVREGS       24351      204    LOAD1    24/05/02 COMPASS 3.7 871               
          /DOLVL/       24555        1
          /STSORD/      24556        1
          /MACBUF/      24557       20
          PS1CTL        24577      653    LOAD1    24/05/02 COMPASS 3.7 871               
          STMTP         25452      575    LOAD1    24/05/02 COMPASS 3.7 871               
          ENDPRO        26247      750    LOAD1    24/05/02 COMPASS 3.7 871               
          SCANNER       27217     4016    LOAD1    24/05/02 COMPASS 3.7 871               
          CONVERT       33235      467    LOAD1    24/05/02 COMPASS 3.7 871               
          DMPELST       33235        0    LOAD1    24/05/02 COMPASS 3.7 871               
          /DAT.FMT/     33724       63
          DATA          34007     1432    LOAD1    24/05/02 COMPASS 3.7 871               
          ERPRO         35441     1127    LOAD1    24/05/02 COMPASS 3.7 871               
          FLY           36570      173    LOAD1    24/05/02 COMPASS 3.7 871               
          LISTIO        36763     3043    LOAD1    24/05/02 COMPASS 3.7 871               
          /CLNFO/       42026        6
          ARITH         42034    10061    LOAD1    24/05/02 COMPASS 3.7 871               
          ASFPRO        52115      226    LOAD1    24/05/02 COMPASS 3.7 871               
          CALL          52343      273    LOAD1    24/05/02 COMPASS 3.7 871               
          GOTO          52636      420    LOAD1    24/05/02 COMPASS 3.7 871               
          DOPROC        53256     1107    LOAD1    24/05/02 COMPASS 3.7 871               
          DPCLOSE       54365     1366    LOAD1    24/05/02 COMPASS 3.7 871               
          DECPRO        55753      714    LOAD1    24/05/02 COMPASS 3.7 871               
          PH1CTL        56667     1352    LOAD1    24/05/02 COMPASS 3.7 871               
           //           60241        1
  
  
  
          ENTRY POINTS. 
  
  
  
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    93  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.EQV           1   LSTPRO              DPCLOSE        55127     55646
                                                  DECPRO         56177
          FV.IN           2   FTN                 DBGPHCT        10747
          Z.DIM           2   LSTPRO              DPCLOSE        55700
                                                  DECPRO         56510
          Z.DCON          3                       DBGPHCT        11745
          Z.LAT           4                       DPCLOSE        54660     55223
          FV.LGO          4   FTN                 PH1CTL         60171
          Z.ECT           5   LSTPRO              DPCLOSE        55227
          Z.SCA           5                       DPCLOSE        54571
          L.MSTR          6   FTN                 PH1CTL         57104
          Z.EOT           6   LSTPRO              DPCLOSE        55042
          Z.ASF          10                       ASFPRO         52161     52207
          Z.ARLST        11                       PS1CTL         24616
          Z.CON          12                       DBGPHCT        11666
                                                  DMPELST        33402     33406
          L.MAXCD        12   FTN                 SCANNER        32636
                                                  PH1CTL         60106
          Z.DATA         13   LSTPRO              DATA           35412
          Z.DIL          14                       DATA           34101     34120
          Z.DIT          15                       DATA           34371     34374     34400
          Z.ENTR         16                       STMTP          25771
                                                  DPCLOSE        54430
          Z.NML          17                       STMTP          25527     25672
          Z.DOLST        20                       DOPROC         54205
          Z.IOLST        21                       LISTIO         40534     41705     41742
          Z.LTAB         22                       GOTO           52655
          Z.SCR          23                       ENDPRO         26640
                                                  ASFPRO         52253
          CO.ABT        114   FTN                 PH1CTL         57151
          CP.IFMT       130                       SCANNER        32621
          GT1           135                       PH1CTL         57260     57260     57262
          CP.FLIN       137                       SCANNER        31011     32462     32511     32521     32526
          CP.CARD       141                       DBGPHCT        10717     10726     11374     11441
                                                  SCANNER        30560     30562     30564     31012     31350     32305     32623
                                                                 32625
                                                  PH1CTL         60046     60102     60106     60111     60124
          F.IN          211                       DBGPHCT        10745     10751     10754     10756
                                                  SCANNER        32624
                                                  PH1CTL         60107
          F.OUT         221                       PH1CTL         60064
          F.LGO         241                       PH1CTL         60173     60175
          WNB=          272                       DBGPHCT        11524
          MSG=          302                       OUTPK24        13052
                                                  PH1CTL         57150     57154     57657
          F.CMPS        310                       STMTP          25520     25753     25756     26072     26131
                                                  ENDPRO         26624     26674     26704     26746
                                                  DMPELST        33451     33464     33511     33517
                                                  DATA           34752     35251
                                                  ERPRO          36542
                                                  LISTIO         37201     40317     40537     41634
                                                  DPCLOSE        54506
                                                  PH1CTL         57503     57534     57550     57556     57561     57612     57620
                                                                 57624     57630     57654     57660     57662     57666     57672
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    94  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 57703     60100     60102     60122     60227
          F.RLST        320                       PS1CTL         24670     25051     25053     25447
                                                  LISTIO         40311     41761
                                                  ARITH          45000     45013     50170     50204
                                                  GOTO           53063     53066     53131     53155     53175
                                                  DOPROC         53266
          F.RMAP        330                       PS1CTL         25060     25063     25064     25066     25137
          F.DEBUG       340                       DBGPHCT        11523     11526     11542     11543     11555     11556     11563
                                                                 11570     11575     11577     11604
          LSTMSTR       350                       PH1CTL         57104
          GL.DRL        360                       DBGPHCT        10766     11305
          GL.DVL        361                       DBGPHCT        10766     11312
          GL.IND        362                       DBGPHCT        10770     11117     11305     11536
          LASTREC       366                       DBGPHCT        10770     11306
          L.GCON        373                       DBGPHCT        11752     12011
          MACFLAG       374                       ENDPRO         26472     26526
                                                  DPCLOSE        54464     54653     55744
                                                  PH1CTL         60215
          O.GCON        377                       DBGPHCT        11752     12011
                                                  ARITH          47501
          CER.FL        402                       PH1CTL         57145
          CAFLAG        404                       PH1CTL         57664     57670     60063     60170
          CBNFLG        405                       ARITH          45472     45476     45507     45521     50305
          CO.ER         410                       ENDPRO         26333
                                                  DPCLOSE        55735
                                                  PH1CTL         57066     57115     57602     57614
          ROPFLAG       415                       ARITH          45405     46433     46447     46627
          CO.STA        417                       ENDPRO         26735
                                                  PH1CTL         57446     57512
          DFLAG         421                       DBGPHCT        10657     10716     10725     10741     10750     10771     11016
                                                  PS1CTL         24626     24652     25043
                                                  ENDPRO         26312
                                                  SCANNER        30545     30631     31030     31052     31616     32250     32273
                                                                 32302     32440
                                                  ARITH          43562     44164     44405     45746     47344     50515     51012
                                                  GOTO           52731
                                                  DOPROC         54327
                                                  DPCLOSE        54446     54577
                                                  PH1CTL         57004     57136     57166     57232     57244
          DIRECT        422                       STMTP          25603     25624
                                                  DATA           35315
                                                  LISTIO         37354     40740
                                                  DPCLOSE        54520     54577
          F.LFN         423                       LISTIO         37603     37605
                                                  DPCLOSE        54433
                                                  PH1CTL         57451     57466
          PMDFLAG       430                       PH1CTL         57616     57623
          OT.RM         431                       PH1CTL         57322     57350     57417     57430     57455     57476     57546
                                                                 57610
          PLIMIT        432                       PH1CTL         57507     57553
          QFLAG         433                       PS1CTL         25071
          SLIST         434                       SCANNER        31337     32505
          SPPFLAG       435                       PS1CTL         24606
          UFLAG         436                       PH1CTL         57651     57670     60062     60171
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    95  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          UOFLAG        437                       ENDPRO         26457
          ZFLAG         440                       CALL           52623
          OVLA          444                       PS1CTL         25074     25102     25115
          OVLB          445                       PS1CTL         25076     25104     25117
          OVL22         451                       PS1CTL         25102
          OVL23         452                       PS1CTL         25115
          OVL25         454                       PS1CTL         25074
          TL.PTYP       460                       DBGPHCT        10664     11330
                                                  PH1CTL         57111     57700     60054     60061
          TL.PNAM       461                       PH1CTL         57112     57651
          LDCOM         474                       PH1CTL         60066
          LOVER         504                       PS1CTL         25077     25105     25120
          SYMBOL       6333   LSTPRO              DBGPHCT        11162     11640     11674
                                                  STMTP          25473     25554     25712     25740     25745     26055
                                                  ENDPRO         26322     26344     27165
                                                  DMPELST        33445
                                                  DATA           35306
                                                  LISTIO         37444     37670     37710     41112
                                                  ARITH          43363     43634     44636     44713     45221     45474     46047
                                                                 47442     50726     51030     51325     51532
                                                  CALL           52524     52575     52621
                                                  GOTO           52702     53112     53205
                                                  DOPROC         53571
                                                  DPCLOSE        54443
                                                  DECPRO         55765     56441
                                                  PH1CTL         56753     57074     57103     57221     57227     57314     57373
                                                                 57644     57771     60030
          LABEL        6361                       DOPROC         53525     54310
          LFER         6371                       PH1CTL         57122
          NTYPE        6401                       DECPRO         56266     56274     56623     56636
          IMPTYP       6407                       DECPRO         56523     56547     56564     56613
          NRB          6412                       DECPRO         56563     56612
          RSSW         6413                       LISTIO         41111
          KSSW         6420                       LISTIO         41114     41142
          FTNEND       6554                       PS1CTL         25072
                                                  PH1CTL         57155     60125
          CDD          6675                       SCANNER        31007     31366     31373
                                                  ERPRO          36263
                                                  LISTIO         37575
                                                  DOPROC         54344
          MVE=         6742                       DBGPHCT        11267     11322     11347     11421     11672
                                                  OUTPK24        13040
                                                  PS1CTL         25332     25342     25426     25440
                                                  SCANNER        32530
                                                  ASFPRO         52170     52306     52341
                                                  DPCLOSE        55323
                                                  PH1CTL         57106
          SFN          6750                       SCANNER        30567
          CIO=         6765                       DBGPHCT        10746     10755     10757     11544     11564     11571     11605
                                                  PS1CTL         25052     25054     25065     25067
                                                  PH1CTL         60065     60176
          RDC=         6773                       SCANNER        32624
                                                  PH1CTL         60107
          WTC=         7124                       STMTP          25521     25754     25757     26072     26131
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    96  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ENDPRO         26625     26674     26705     26747
                                                  DMPELST        33451     33465     33512     33517
                                                  DATA           34752     35251
                                                  ERPRO          36542
                                                  LISTIO         37202     40317     40537     41634
                                                  DPCLOSE        54506
                                                  PH1CTL         57503     57535     57550     57557     57562     57613     57620
                                                                 57625     57631     57655     57661     57663     57667     57673
                                                                 57704     60101     60103     60122     60230
          WTW=         7140                       DBGPHCT        11557
                                                  PS1CTL         24670     25060     25063     25137     25447
                                                  LISTIO         40312     41762
                                                  ARITH          45001     45013     50171     50204
                                                  GOTO           53064     53067     53131     53155     53176
                                                  DOPROC         53266
                                                  PH1CTL         60174
          FA=LOL       7224                       DBGPHCT        11422
                                                  OUTPK24        12736     13044     13046
                                                  SCANNER        32202     32512
          FA=NPG       7233                       OUTPK24        13042
          L.STITL      7266                       OUTPK24        13030     13036     13045
          FA=SET       7267                       DBGPHCT        10753
          MPP          7302                       PH1CTL         60057
          OUTUSE       7316                       STMTP          25466     25752     25755
                                                  ENDPRO         26305     26514     26672
                                                  DMPELST        33442
                                                  ERPRO          35560
                                                  LISTIO         37171     37235     37472     37525     37560     37654     40154
                                                                 40205     40231     40363     40377     40440     40476     40525
                                                                 40663     40717     41016
                                                  ARITH          50622
                                                  DPCLOSE        54452     54550     55712
                                                  PH1CTL         57214     57577     57705
          C.BLOCK      7326                       STMTP          25761
                                                  DATA           34723     34726
                                                  DPCLOSE        54467
          USTART.      7331                       DPCLOSE        55712
                                                  PH1CTL         57705
          UENTRY.      7333                       STMTP          25751
          UCODE.       7334                       ENDPRO         26305
                                                  PH1CTL         57577
          UDATA.       7335                       STMTP          25466     25755     25760
                                                  ENDPRO         26514     26672
                                                  DATA           34723     34725
                                                  ERPRO          35560
                                                  LISTIO         37171     37235     37472     37525     37560     37654     40154
                                                                 40205     40231     40363     40377     40440     40476     40525
                                                                 40663     40717     41016
                                                  ARITH          50622
                                                  DPCLOSE        54452
                                                  PH1CTL         57214
          UDATA..      7336                       DPCLOSE        54550
          UHOL.        7337                       DMPELST        33442
          SETCORE      7443                       PS1CTL         25141
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    97  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DPCLOSE        55705
          COMPMSG      7450                       PH1CTL         57656
          PROGNAM      7451                       DBGPHCT        10652
                                                  ERPRO          35506
                                                  PH1CTL         57133     57301     57647
          ANSI         7452                       SCANNER        32655
                                                  ERPRO          36413
                                                  PH1CTL         57124
          LSTWRKG      7452                       PH1CTL         57105
          IEFLG        7453                       SCANNER        32655
                                                  PH1CTL         57130
          OLIST        7455                       PH1CTL         57665
          LOP=O        7455                       SCANNER        32656
          RSELECT      7456                       PS1CTL         24650     25055
                                                  STMTP          25504     25656     25766
                                                  ENDPRO         26306     27175     27213
                                                  DATA           35415
                                                  ERPRO          35602
                                                  LISTIO         37243     37432     37652     41223     41320
                                                  ARITH          50575     50717     51022
                                                  ASFPRO         52222
                                                  CALL           52456
                                                  GOTO           53001     53243
                                                  DOPROC         53324     53535     54144     54274
                                                  DECPRO         56005     56111     56203     56307     56344     56404     56452
                                                  PH1CTL         56762     57000     57706     60002     60036
          LOP=R        7456                       SCANNER        32656
          R=FLAG       7457                       PS1CTL         25072     25107
                                                  SCANNER        32657
                                                  DPCLOSE        54417     54565
          O.STITL      7460                       OUTPK24        13032     13037     13045
          N.AP         7467                       ARITH          44632     44707     44744     46042     47436     51327
                                                  CALL           52470     52526     52571
                                                  GOTO           52750     53033     53051     53143
          N.GL         7470                       STMTP          25725
                                                  LISTIO         40467     40546
                                                  ARITH          51341     51441     51514
                                                  CALL           52433     52506     52542
                                                  GOTO           53027     53042     53134     53160
          SYMORD       7471                       ENDPRO         26415
                                                  DPCLOSE        54665
                                                  PH1CTL         60042
          N.LINES      7732                       DBGPHCT        10744     10761
                                                  OUTPK24        13041
                                                  PH1CTL         60061
          N.COM        7733                       DPCLOSE        54466     54557     54624     55516     55554     55663
                                                  DECPRO         56054     56155
          ORGTAB       7734                       DATA           35335
                                                  DPCLOSE        54560     54625     55067     55405     55444     55467     55517
                                                                 55555     55661     55663
                                                  DECPRO         56055     56155
          START.      10134                       DPCLOSE        55735
                                                  PH1CTL         57047     57053     57057     57063     57434     57500     57524
                                                                 57531     57551     57560     57563     57567
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    98  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          EPOINT.     10136                       STMTP          25741
          CODE.       10137                       PH1CTL         57607     57615
          DATA.       10140                       STMTP          25477     25514     25522     25642     25746
                                                  ENDPRO         26517     26525     26630     26643
                                                  DATA           35410
                                                  ERPRO          35576     36525
                                                  LISTIO         37236     37473     37526     37561     37655     40155     40206
                                                                 40232     40320     40364     40400     40441     40477     40526
                                                                 40540     40664     40720     41017     41635
          DATA..      10141                       DPCLOSE        54663     54707     55267
          HOL.        10142                       DMPELST        33461
          N.ST        10144                       PS1CTL         24733
          N.EXST      10152                       PS1CTL         24660
          N.FILES     10153                       DPCLOSE        54432     54435
                                                  PH1CTL         57307     57321     57344     57375     57407     57473     57504
                                                                 57516     57531     57536     57543
          N.EQUF      10154                       PH1CTL         57431     57432
          IOAPLN      10155                       LISTIO         37172     37713     40304
          XFRNAME     10156                       PH1CTL         57302
          FUNTYPE     10157                       DPCLOSE        55732
                                                  DECPRO         56306     56631
                                                  PH1CTL         57066     57754
          N.FP        10160                       PS1CTL         25404
                                                  DPCLOSE        54424     55717     55743     55750
                                                  DECPRO         56620
                                                  PH1CTL         57072     57233     57776
          RETURNS     10161                       CALL           52412
          FSTEX       10162                       DBGPHCT        11167     11240
                                                  PS1CTL         24611     24737
                                                  STMTP          25721
                                                  ARITH          51040     51064
          VARDIM      10163                       ARITH          50515
                                                  DPCLOSE        55627
                                                  DECPRO         56451
          LEVEL       10164                       DPCLOSE        54464     55325     55515
                                                  DECPRO         56335     56356
          LEVEL2      10165                       DOPROC         53637
                                                  DECPRO         56333     56371
          N.TLAB      10166                       ENDPRO         26637     26643
                                                  DOPROC         54165
          L.LOOP      10170                       DOPROC         53517
          N.ERROR     10171                       PS1CTL         25070
                                                  ERPRO          35445     35460
          N.FERR      10172                       DBGPHCT        10745
                                                  PS1CTL         25112
                                                  ENDPRO         26311
                                                  ERPRO          35456
                                                  DPCLOSE        54450
                                                  PH1CTL         57155
          E.UDEFL     10173                       DOPROC         54326     54355
          P2NOGO      10174                       ENDPRO         26312
                                                  ERPRO          35506
                                                  DOPROC         54332     54351
                                                  DPCLOSE        54451
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE    99  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TEMPA0.     10175                       STMTP          25732
                                                  ENDPRO         27172
                                                  DPCLOSE        55717
                                                  PH1CTL         57047     57052     57063     60007     60024
          VALUE.      10176                       DBGPHCT        11643
                                                  STMTP          25556
                                                  ENDPRO         26357
                                                  ARITH          43375     43636     51032
                                                  DOPROC         53573
                                                  DECPRO         56275     56624
                                                  PH1CTL         57222     57752
          TRACE.      10177                       ENDPRO         26347
                                                  PH1CTL         57046     57566
          ENTRY.      10200                       STMTP          26000
                                                  DPCLOSE        55727
                                                  PH1CTL         57062
          EXIT.       10201                       ENDPRO         27210
                                                  ARITH          51475
                                                  PH1CTL         57056
          CON.        10202                       ENDPRO         26630     26650
                                                  DMPELST        33373
                                                  ARITH          47510
                                                  DOPROC         54316
                                                  DPCLOSE        54445
          LABEL.      10203                       DBGPHCT        11676
                                                  ENDPRO         26641
                                                  ARITH          51314
                                                  CALL           52514
                                                  GOTO           52745
          FTNNOP.     10204                       STMTP          25744
          NOPS.       10205                       STMTP          25751
          FP.         10206                       ARITH          46022     50520
                                                  PH1CTL         57235
          ST.         10207                       ENDPRO         26414
                                                  LISTIO         37324
                                                  ARITH          44643     44770     47215     47536     50073     50124     50154
                                                                 50457     50700
                                                  GOTO           53124     53132     53150
                                                  DPCLOSE        54664
                                                  PH1CTL         57216
          OT.         10210                       ENDPRO         26300
          IT.         10211                       ENDPRO         26302
          VD.         10212                       ENDPRO         26304
          PHASE       10213                       DBGPHCT        11737
                                                  PS1CTL         25315     25377     25406
          NAF         10214                       PS1CTL         25270     25301     25362     25407     25432
          LTN         10215                       PS1CTL         25264     25411
          LOWCORE     10216                       PS1CTL         25270     25301     25361     25377     25403
                                                  DPCLOSE        54570
          FWAWORK     10217                       DBGPHCT        10654     10672     10706     10723     10737     11045     11067
                                                                 11105     11341     11534
                                                  PS1CTL         24612     25260     25304     25361     25404     25410     25416
                                                                 25442
                                                  SCANNER        30712     30773     32407
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   100  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ERPRO          35477     35634     36071     36122     36157     36174     36212
                                                                 36222
                                                  ASFPRO         52237     52305     52310     52340
                                                  PH1CTL         57117     60143     60167     60216
          LWAWORK     10220                       DBGPHCT        11033     11106     11317     11325     11335     11661
                                                  PS1CTL         24612     24636     25073     25101     25114     25261     25362
                                                                 25430
                                                  SCANNER        30536     30670     30710     30773     31505     32145     32407
                                                                 32542
                                                  DATA           34071
                                                  ERPRO          35612     36524
                                                  ASFPRO         52301     52333
          GOTOER.     10224                       TURNON         13774
                                                  BUGSOUT        14773
                                                  BUGCON         15742     16030     16065     16315     16721     17130     17256
                                                                 17563     17715     17744     20716
                                                  TURNOFF        21264
                                                  DEBUGER        22066
                                                  BUGPRO         23162
          O.CEP       10226                       STMTP          25720
                                                  ENDPRO         27214
                                                  ARITH          51473
          OPTLVL      10227                       GOTO           53010     53070
                                                  DOPROC         54227
          OPT2        10230                       STMTP          25523     25661
                                                  LISTIO         40426     41651     41713     41734
                                                  ARITH          50032
          STLTAB      10231                       ENDPRO         26736
                                                  LISTIO         37707
                                                  PH1CTL         57112     57114
          SAVTBL      10246                       ENDPRO         26310
          PUTTAB      10247                       ENDPRO         26267
          WB.ESS      10272                       PH1CTL         57101
          WB.LFN      10273                       PH1CTL         57315
          WB.FTN      10274                       STMTP          25742
          WB.NOP      10275                       STMTP          25747
          WB.CON      10276                       DBGPHCT        11675
                                                  DPCLOSE        54444
          WB.NML      10277                       STMTP          25477
          WB.FMT      10300                       ENDPRO         26520     26542
                                                  ERPRO          35576
          WB.HOL      10301                       DMPELST        33446
          WB.ECGS     10302                       ENDPRO         26320
          WB.PROG     10303                       ENDPRO         26333
          WB.FP       10304                       ENDPRO         26400
          O.COM       10313                       DPCLOSE        54472     54507     54561     54574     54626     54650     55070
                                                                 55123     55135     55404     55436     55513     55520     55561
                                                                 55650
                                                  DECPRO         56070     56121
          ORIGINS     10313                       PS1CTL         25310     25326     25336     25350     25354     25412     25423
                                                                 25434
          O.EQV       10314                       ENDPRO         26552
                                                  DPCLOSE        54716     54757     55045     55131     55231     55316     55325
                                                                 55341     55354     55401     55411     55420     55647
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   101  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O.DIM       10315                       PS1CTL         25061
                                                  STMTP          26162
                                                  ENDPRO         26265     26400     26415     26501
                                                  DPCLOSE        54422     54670     54720     55247     55353     55557     55614
                                                                 55702
          O.DCON      10316                       DBGPHCT        11667     11743
          O.LAT       10317                       DPCLOSE        54551     54661     55266
          O.ECT       10320                       DPCLOSE        55230     55315     55411     55417     55436     55462     55504
                                                                 55511
          O.SCA       10320                       STMTP          26165
                                                  ENDPRO         26723
                                                  DPCLOSE        54572
          O.EOT       10321                       DPCLOSE        55046     55123     55135     55147     55257
          O.FPBL      10322                       ENDPRO         26374
                                                  DPCLOSE        54423
          O.UDV       10322                       ENDPRO         26444
          O.ASF       10323                       ASFPRO         52162     52171     52210     52307
          O.EXT       10323                       ENDPRO         26447
          O.ARLST     10324                       PS1CTL         24617
          O.CON       10325                       DBGPHCT        11670
                                                  ENDPRO         26635
                                                  DMPELST        33363
                                                  ARITH          50256
          O.DATA      10326                       ENDPRO         26535
          O.DIL       10327                       DATA           34031
          O.DIT       10330                       DATA           34246     34252     35023     35124     35260
          O.ENTR      10331                       DPCLOSE        54435
          O.NML       10332                       LISTIO         41735     41747
          O.DOLST     10333                       DOPROC         54103
          O.IOLST     10334                       LISTIO         40427     41353     41707     41714     41722     41750
                                                  ARITH          44050
          O.LTAB      10335                       GOTO           52663     52754     53017     53065     53174
          O.SCR       10336                       ENDPRO         26646
                                                  ERPRO          35476
                                                  ASFPRO         52236     52254     52313
          L.COM       10337                       PS1CTL         25111     25320
                                                  DPCLOSE        54420     54574
                                                  DECPRO         56066     56151
          SIZES       10337                       PS1CTL         25253     25256     25272     25327     25337     25347     25355
                                                                 25365     25415     25423     25434
          L.EQV       10340                       PS1CTL         25111     25320
                                                  ENDPRO         26551
                                                  DPCLOSE        54716     55041     55044     55047     55107     55130     55201
                                                                 55224     55231     55326     55644
                                                  DECPRO         56251
          L.DIM       10341                       ENDPRO         26265     26416     26501
                                                  DPCLOSE        55615     55647     55676     55702
                                                  DECPRO         56471
          L.DCON      10342                       DBGPHCT        11103     11531     11665     11667     11743
          L.LAT       10343                       DPCLOSE        54421     54551     54661     54710     55226
          L.SCA       10344                       ENDPRO         26723
                                                  DPCLOSE        54607     54622
          L.ECT       10344                       DPCLOSE        55246     55331
          L.EOT       10345                       DPCLOSE        55045     55065     55147     55316
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   102  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L.FPBL      10346                       ENDPRO         26374
                                                  DPCLOSE        54425
          L.UDV       10346                       ENDPRO         26307     26444     26513     26515     26527     26540
                                                  ERPRO          35505
          L.ASF       10347                       ASFPRO         52162     52171     52210
          L.EXT       10347                       ENDPRO         26446
          L.ARLST     10350                       PS1CTL         24621
          L.CON       10351                       DBGPHCT        11671
                                                  ENDPRO         26633
                                                  DMPELST        33364
          L.DATA      10352                       ENDPRO         26535
          L.DIL       10353                       DATA           34034     34053     34056     34071     34135
          L.DIT       10354                       DATA           34034     34070     34203     34252
          L.ENTR      10355                       DPCLOSE        54436
          L.NML       10356                       STMTP          25502     25524
          L.DOLST     10357                       DOPROC         53361     54076     54103     54120     54131
          L.IOLST     10360                       LISTIO         40427     40542     41342     41371     41711     41716     41730
                                                                 41746
                                                  ARITH          44045     44067     44136     44141
          L.LTAB      10361                       GOTO           52660     52672     53055     53065     53136     53166     53174
                                                                 53177
          ROOMS       10363                       PS1CTL         25254     25257     25272     25310     25326     25336     25347
                                                                 25364     25414     25436
          S.LAT       10367                       DPCLOSE        54662     54710
          S.SCA       10370                       DPCLOSE        54573
          S.ARLST     10374                       PS1CTL         24617
          S.SCR       10406                       ERPRO          35475
                                                  ASFPRO         52237     52254     52336
          TINFO       10407                       PS1CTL         25313     25351     25412
          T.FPBL      10416                       PS1CTL         25405
          NAFVEC      10433                       PS1CTL         25406
          LWA2.0      10436   SNAP                PS1CTL         25073     25101     25114
          B=FTN24     10444   FTN24     
          D.SAASI     10522   DBGPHCT             ARITH          47417     47461
          FEFLAG      10550   SCANNER             ERPRO          35455
          ALLARR      10626   DBGPHCT             ARITH          43564     44165     45750
          ALLCALL     10627                       ARITH          51013
          ALLFUNC     10630                       ARITH          44413
          GOTOSFL     10631                       GOTO           53010
          NOGOFLG     10632                       ENDPRO         26316
          TRACEL      10633                       ARITH          51206
                                                  CALL           52427     52436
                                                  GOTO           52737     53012     53037     53114
                                                  DOPROC         54162
          B=DBGPH     10647                       FTN24          10445
          DBGEPKT     10650                       PH1CTL         57137
          DBGIPKT     11025                       PH1CTL         57170     57245
          DBGINT      11127                       PH1CTL         57006
          DBGINTX     11147                       PS1CTL         24710     24716
                                                  PH1CTL         57016
          DOP         11156                       PS1CTL         24653
          POINTRS     11332                       PS1CTL         24627
          DMVWDS      11344                       BUGCON         16043     17500     17725
                                                  BUGPRO         22672     23107
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   103  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  SETARR         23556
                                                  BUGCLO         23743     24005     24241
          TDI         11376                       SCANNER        30700
          DBGERR      11411                       SCANNER        31043     31405     31441     32157     32254     32323
          TYPFLAG     11425                       PH1CTL         57013
          D.IDSP      11447                       SCANNER        32274     32441
          ISITDBG     11465                       SCANNER        31625
          WRTMS1      11522                       BUGCON         16246
                                                  BUGPRO         22500
                                                  BUGCLO         23650
          WRTMS2      11550                       BUGCON         16253
                                                  BUGCLO         23674     24075     24174     24216
          WRTMS3      11561                       BUGCON         16254
                                                  BUGCLO         23675     24110     24176     24217
          WRTMS4      11566                       BUGPRO         22520     22541     22657     23322
                                                  BUGCLO         24226
          RDMS1       11573                       BUGPRO         22525     22535     22550     22725     22744     22770     23122
          CFO         11607                       STMTP          25550
                                                  DATA           35301
                                                  LISTIO         37504
                                                  ARITH          43372     50714     51057
                                                  GOTO           52717
                                                  DOPROC         53612
                                                  DECPRO         55756     56323
                                                  PH1CTL         56771
          DBGCUN      11614                       STMTP          25476     25715
          DSYMTAB     11634                       BUGCON         17656     20106     20225
                                                  BUGPRO         23134
          FIXPNTR     11653                       BUGCON         16057     17736
                                                  BUGPRO         22704     23114
                                                  SETARR         23567
          DINPH2      11664                       DPCLOSE        54447
          DCONV       11715                       BUGCON         20201
          B=OPK24     12336   OUTPK24             FTN24          10446
          OUTCI.      12421                       TURNON         14035     14112     14174     14257     14327     14441
                                                  BUGSOUT        15025     15040     15052     15061     15072     15101     15114
                                                                 15132     15145     15157     15164     15174     15201     15213
                                                                 15233     15250     15264     15271     15303     15310     15323
                                                                 15326
                                                  BUGCON         16015     16452     17237     17546     17706
                                                  DEBUGER        22110     22113     22116     22121     22124     22127     22132
                                                                 22135     22140     22143     22146     22151     22154     22157
                                                                 22162     22165
                                                  BUGPRO         22511     22656
                                                  SETARR         23517     23574
          OUTCR.      12453             
          SETST       13033             
          REMARK      13050             
          SPA.        13054             
          PUT         13305   PUT                 FTN24          10447
                                                  BUGACT         13572     13613     13675     13716
                                                  TURNON         14605
                                                  BUGPRO         23016     23035     23254     23301
          PUTUPDT     13356   PUTUPDT             FTN24          10450
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   104  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DBGPHCT        11454
                                                  BUGACT         13632
                                                  BUGPRO         23051     23074
          BUGACT      13561   BUGACT              FTN24          10451
                                                  DBGPHCT        11173     11212     11223     11244
                                                  PS1CTL         24642
          GETOUT      13734   GETOUT              FTN24          10452
                                                  TURNON         13765     14005     14051     14062     14127     14140     14211
                                                                 14222     14227     14232     14275     14443     14447
                                                  TURNOFF        21255     21276     21331     21363     21405     21424     21446
                                                                 21464     21472     21477     21537     21706     21713     22032
                                                  BUGPRO         23152     23174     23206     23231     23240
          TURNON      13750   TURNON              FTN24          10453
                                                  DBGPHCT        11143     11235
                                                  BUGACT         13600     13621     13642
                                                  BUGCON         20665     20766
                                                  BUGPRO         23262
          BUGSOUT     14744   BUGSOUT             FTN24          10454
                                                  PS1CTL         25047
          BUGCON      15710   BUGCON              FTN24          10455
                                                  DBGPHCT        10713     11012     11073     11137     11232
          DMVCON      16005                       BUGCLO         24276
          TURNOFF     21242   TURNOFF             FTN24          10456
                                                  BUGACT         13663     13703     13724
                                                  BUGCON         20607
                                                  BUGPRO         23307
          DEBUGER     22061   DEBUGER             FTN24          10457
                                                  BUGCON         15753     16210     16213     16216     16323     17250     17306
                                                                 17651     20003     20013     20041     20063     20150     20405
                                                                 20437     20520     20547     20573     20612
          BUGPRO      22473   BUGPRO              FTN24          10460
                                                  DBGPHCT        10670     11040
                                                  PS1CTL         24630
          PUTIN       23440   PUTIN               FTN24          10461
                                                  BUGCON         16233     17607     17611     17632     17647     17760     17763
                                                                 20001     20021     20034     20036     20053     20055     20160
                                                                 20275     20304     20346     20354     20361     20446     20500
                                                                 20507     20560     20562     20606
                                                  BUGPRO         23204
                                                  BUGCLO         23667
          SETARR      23473   SETARR              FTN24          10462
                                                  TURNON         14041     14263     14333     14414     14430     14460     14503
                                                                 14514
                                                  TURNOFF        21313     21511     21556     21621
          BUGCLO      23635   BUGCLO              FTN24          10463
                                                  DBGPHCT        10735     11101
                                                  BUGCON         16023     16617     16641     16650     16702     17244     17471
                                                                 17537     17553     17710     20316     20326     20455     20466
                                                                 20511
                                                  PUTIN          23453     23463
          SAVREG      24351   SAVREGS             DBGPHCT        10676     10727     10776     11017     11053     11121     11256
                                                                 11457     11504
                                                  SCANNER        31042     31404     31440     32156     32253     32322
          B=SVREG     24351                       FTN24          10464
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   105  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RESREG      24461                       DBGPHCT        10700     10731     11000     11021     11055     11123     11260
                                                                 11461     11506
                                                  SCANNER        31044     31406     31442     32160     32255     32324
          DOFLAG      24555   PS1CTL              STMTP          25762
                                                  ARITH          51206
                                                  GOTO           52737     53013     53037     53114
                                                  DOPROC         53337     53401     53717     54002     54027     54037     54050
                                                                 54064     54075     54172     54233     54257
          B=PS1CT     24577                       FTN24          10465
          LSFLG       24577                       STMTP          25722
                                                  ENDPRO         26335     26360     26370
          PH2CTL      24603                       DPCLOSE        54454
          IPH2        24605                       ARITH          51065
          PH2RETN     24646                       LISTIO         37223     40241     41141
                                                  ARITH          46204     51044
                                                  ASFPRO         52222     52225     52240
                                                  CALL           52424     52553     52556
                                                  GOTO           52677
                                                  DOPROC         54037     54046     54314
          LDPS2       25043                       ERPRO          35507
                                                  PH1CTL         57242     57242
          ADDREF      25121                       STMTP          25505     25657     25770
                                                  ENDPRO         27177     27215
                                                  DATA           35416
                                                  ERPRO          35604
                                                  LISTIO         37245     37434     37653     41225     41227     41322
                                                  ARITH          43406     43412     43414     44020     51474
                                                  ASFPRO         52224
                                                  CALL           52460
                                                  GOTO           53003     53244     53246
                                                  DOPROC         53326     53537     53541     53543     53545     54145     54275
                                                  DECPRO         56007     56113     56205     56310     56346     56405     56453
                                                  PH1CTL         56764     57003     57707     60003
          ALLOC       25255                       DBGPHCT        11666
                                                  ENDPRO         26640
                                                  LISTIO         41742
                                                  ASFPRO         52161     52207
                                                  GOTO           52656
                                                  DPCLOSE        54434     55043     55127     55223     55227     55701
          CTBLOVL     25315                       ENDPRO         26421
                                                  DPCLOSE        54617     54704
          ADDWD       25346                       DBGPHCT        11746     11750
                                                  STMTP          25527     25672     25772
                                                  DMPELST        33403     33407
                                                  DATA           34101     34120     34372     34375     34400     35413
                                                  LISTIO         40534     41705
                                                  DOPROC         54206
                                                  DPCLOSE        54431     55646
                                                  DECPRO         56076     56110     56200     56201     56510     56511
          ALLAE       25360                       ASFPRO         52253
                                                  DPCLOSE        54571     54660
          INITBL      25376                       DPCLOSE        54403     54421
                                                  PH1CTL         57231
          PTU         25420                       ENDPRO         26310
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   106  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          WRM         25443                       DBGPHCT        11166
                                                  STMTP          25723     25727     25730     26052
                                                  ENDPRO         26274     26352     27200     27212
                                                  LISTIO         37720     41052     41061     41727     41773
                                                  ARITH          50540     51320     51335     51336
                                                  CALL           52510     52513     52517     52533     52534
                                                  GOTO           52757     53015     53060     53071     53173     53247
                                                  DOPROC         53674     54024     54136
          B=STMTP     25452   STMTP               FTN24          10466
          CONT        25452                       PS1CTL         25001
                                                  ARITH          51566
          IAF         25464                       DATA           35132
                                                  LISTIO         37416
          NAMELST     25465                       PS1CTL         24755
          ENTRY       25700                       PS1CTL         25037
          STOPP       26013                       PS1CTL         25003
                                                  ARITH          51570
          PAUSEP      26020                       PS1CTL         25005
                                                  ARITH          51572
          SVARG       26056                       DATA           35135     35137     35142     35150     35152     35154     35157
                                                                 35240
                                                  LISTIO         37233     37262     37267     37274     37302     37306     37313
                                                                 37327     37335     37341     37346     37360     37364     37372
                                                                 37377     37404     37412     37421     37426     37522     37620
                                                                 37624     37630     37635     37643     37650     40146     40152
                                                                 40355     40361     40474     40517     40523     40643     40647
                                                                 40655     40661     40701     40705     40711     40715     40735
                                                                 40746     40753     40761     40766     40773     41001     41005
                                                                 41014
                                                  DPCLOSE        55714     55716     55722     55726     55731     55734     55740
                                                  PH1CTL         57441     57443     57445     57450     57453     57463     57465
                                                                 57470     57506     57511     57515     57521     57572     57574
                                                                 57601     57604
          F1AMAC      26062                       ENDPRO         26475
                                                  ERPRO          35601
                                                  DPCLOSE        55747
                                                  PH1CTL         57542
          FMAC        26074                       DATA           34722     35144     35161     35242
                                                  LISTIO         37242     37477     37532     37565     37661     40161     40212
                                                                 40236     40370     40404     40445     40503     40532     40670
                                                                 40724     41023
                                                  DPCLOSE        55724     55742
                                                  PH1CTL         57456     57460     57472     57527     57576     57606
          B=ENDPR     26247   ENDPRO              FTN24          10467
          END         26264                       PS1CTL         24761     25041
          ECGS        26321                       PH1CTL         57215     57234
          ENTRY.D     26326                       STMTP          25775
                                                  PH1CTL         57072
          OSC         26566                       DPCLOSE        54536     54553
          WST         26610                       DPCLOSE        54531     54545
          BTOCT       26711                       DATA           35246
                                                  PH1CTL         57554
          BEFTB       26756                       ARITH          50304
          L.BEFTB     27151                       ARITH          50304
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   107  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RETURN      27156                       PS1CTL         24777
                                                  ARITH          51564
          B=SCANR     27217   SCANNER             FTN24          10470
          CD          27303                       ERPRO          36445
          COL         27304                       ERPRO          36422     36442
          DUKE1       27312                       DBGPHCT        11174     11203     11400
          IDENTOK     27314                       DBGPHCT        11364
                                                  PH1CTL         57701
          NOLIST      27334                       PS1CTL         25112
                                                  PH1CTL         57107
          CONSTOR     27346                       DBGPHCT        11362
          SBUFF       30427                       PH1CTL         60067
          SCANNER     30532                       DBGPHCT        11365
                                                  PS1CTL         24655     24707     24715
                                                  ERPRO          35503
                                                  PH1CTL         57007     57141
          DSL         31336                       DBGPHCT        10711     10743
                                                  PH1CTL         57144     57701     60056
          LSL         32172                       DBGPHCT        11414
          PACK7       32413                       DBGPHCT        11467
          PLO         32453                       DBGPHCT        11252
          N.EQUAL     33215                       ARITH          51025
          DMPELST     33235   DMPELST             FTN24          10471
          B=CNVRT     33235   CONVERT             FTN24          10472
          CONVERT     33246                       DBGPHCT        11733     11741     11766     11770
                                                  STMTP          26046
                                                  DATA           34304     34307     34316     34324
                                                  LISTIO         37571     37615     40143     40350     40352     41523
                                                  ARITH          43174     43230     43266     43323     43623     44624     44703
                                                                 46007     46016     46461     46600     47430     47473     47505
                                                                 47776     50473
                                                  CALL           52563     52625
                                                  GOTO           53137
                                                  DOPROC         53630
                                                  DECPRO         56215     56363     56435
                                                  PH1CTL         57343
          OHC         33472                       DATA           35224
          SAVECHR     33744   ERPRO               FLY            36617
          B=DATA      34007   DATA                FTN24          10473
          DATA        34027                       PS1CTL         24753
          CFCD        34261                       LISTIO         41601
                                                  ARITH          45606
          B=ERPRO     35441   ERPRO               FTN24          10474
          IMFLG       35441                       PS1CTL         25106
          ASAER       35443                       STMTP          25534     25774
                                                  ENDPRO         26341     26373     27202
                                                  SCANNER        30705     30767     31122     31364     31371     31376     32610
                                                  DATA           34060     35176
                                                  LISTIO         37502     37537     37757     37771     40011     40061     40130
                                                                 40342     40675
                                                  ARITH          47243     51632
                                                  CALL           52455
                                                  GOTO           52765
                                                  DOPROC         53371     53606     54102
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   108  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DPCLOSE        55351
                                                  DECPRO         56034     56357
                                                  PH1CTL         57126     57276     57736
          ERPROI      35444                       DBGPHCT        11621     11652
                                                  PS1CTL         24731
                                                  STMTP          25456
                                                  ENDPRO         26315     27207
                                                  SCANNER        31356     32735
                                                  DMPELST        33275
                                                  DATA           34062     34064     34066     34630     34750     35236     35421
                                                  LISTIO         37666     40302     41272     41522
                                                  ARITH          51636
                                                  GOTO           52762     53202
                                                  DOPROC         53375     53423     53445     53467     53514     53732     53742
                                                                 53745     53752     53755     53762     53765     54215     54350
                                                  DPCLOSE        54645     55352     55377
                                                  DECPRO         56257     56340     56415     56465     56644     56647
                                                  PH1CTL         57163     57360
          INFORM      35445                       PH1CTL         57131
          FATALER     35452                       PS1CTL         25317     25321
                                                  SCANNER        31402
                                                  ASFPRO         52244
                                                  DOPROC         53527
                                                  PH1CTL         57120     60200
          ERPRO       35455                       PS1CTL         24705     24713     24721
                                                  STMTP          25546     25704     25764     26045
                                                  ENDPRO         26367     27155
                                                  SCANNER        30621     30652     30663     31455     32213     32321     32476
                                                  DMPELST        33267     33271
                                                  DATA           34010
                                                  LISTIO         37223     40242     40456     41141     41520     41521
                                                  ARITH          46206     46207     50645     51044
                                                  ASFPRO         52240
                                                  CALL           52425     52554     52556
                                                  GOTO           52675     52700     52766     53213
                                                  DOPROC         53315     53321     53332     53334     53635     53735     54062
                                                                 54076     54142     54252     54314     54353     54357
                                                  DPCLOSE        54646     54714     55347     55400     55416     55510     55606
                                                                 55642
                                                  DECPRO         55777     56013     56064     56136     56420     56515     56521
                                                                 56653
                                                  PH1CTL         56774     56777     57043     57264     57266     57312     57320
                                                                 57347     57364     57403     57730     57761     57775     60034
          CED         35516                       PH1CTL         60156
          FORMAT      35557                       PS1CTL         24722
                                                  PH1CTL         57035
          NUMBER      35624                       FLY            36650     36730     36742
          RANGE       35663                       FLY            36657     36661     36732     36751
          FLDCHEK     35707             
          WIDTH       35733                       FLY            36674     36703     36715
          DECIM       35756                       FLY            36700     36710
          SPESSET     35773                       FLY            36662     36663     36665     36666     36737     36740     36741
                                                                 36744     36745     36747
          ONECNT      36002                       FLY            36643
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   109  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          XPROC       36006                       FLY            36646     36660     36726     36733
          NEGSET      36022                       FLY            36653
          TSASI       36024                       FLY            36641     36651
          TCODE       36032                       FLY            36722
          SPES        36044                       FLY            36713     36717
          NULLP       36076                       FLY            36652     36725
          DELCOM      36106             
          HCOUNTR     36111                       FLY            36670
          HSTRNGR     36143                       FLY            36640     36655
          SLASH       36311                       FLY            36636     36645
          RECCHEK     36323             
          LEFTPAR     36347                       FLY            36671
          RITEPAR     36356                       FLY            36637     36647
          UERROR      36413                       FLY            36654     36667     36727     36734     36743     36750
          IERROR      36415                       FLY            36642     36701     36706     36711
          FERROR      36420                       FLY            36656     36672     36704     36716     36723     36731     36735
          FINISH      36510             
          B=FLY       36570   FLY                 FTN24          10475
          TRANSIT     36570                       ERPRO          35621
          NODE2       36643                       ERPRO          35614
          MASKS       36752                       ERPRO          35614     36477
          DIGMASK     36752                       ERPRO          35624     36053
          B=LSTIO     36763   LISTIO              FTN24          10476
          IXFNCL      36763                       ARITH          46177     50602     50624
          APLRST      36764                       ARITH          50652     50674
          BLEXP       36765             
          HOLCON      36766                       ARITH          43323     43324     50623
          INDFG       36767             
          IOEXP       36770                       ARITH          50650     50677
          IONAME      36771                       ARITH          44044     44135
          ITEMCT      36772             
          PARCNT      36773                       ARITH          44043     44134
          TYPEFG      36774                       ARITH          50632     50657
          LDFLAG      36775                       ARITH          43315
          BIO         36776                       ARITH          50604
          CPLXC       36777                       ARITH          50615
          CRFLAG      37064                       ARITH          44221
          CNVT        37206                       DPCLOSE        54524
          ENDFILE     37722                       PS1CTL         25031
                                                  ARITH          51616
          REW         37726                       PS1CTL         25025
                                                  ARITH          51612
          BKSP        37732                       PS1CTL         25027
                                                  ARITH          51614
          PUNCH       37761                       PS1CTL         25035
                                                  ARITH          51622
          PRINT       37774                       PS1CTL         25033
                                                  ARITH          51620
          READ        40037                       PS1CTL         25011
                                                  ARITH          51576
          WRITE       40050                       PS1CTL         25013
                                                  ARITH          51600
          BUFIN       40113                       PS1CTL         25015
                                                  ARITH          51602
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   110  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BUFOUT      40117                       PS1CTL         25017
                                                  ARITH          51604
          DEC         40323                       PS1CTL         25023
                                                  ARITH          51610
          ENC         40327                       PS1CTL         25021
                                                  ARITH          51606
          DOITX       40504                       DOPROC         54036
          WWC         41025                       ARITH          50535
          DONEX       41611                       DOPROC         54020     54030
          IARC        41642                       ARITH          44065     44140
          ARLPT       42033   ARITH               GOTO           53207
          B=ARITH     42034                       FTN24          10477
          SAVDAN      42034                       LISTIO         41425     41437
          CONST       42035                       LISTIO         41605
          IDORDL      42037                       ASFPRO         52122     52223     52235     52243
          NAMFWA      42040                       ASFPRO         52247
          EQCOUNT     42041                       GOTO           52723
          NCA         42042                       LISTIO         37310     37374     37423     40750     41010
          NCAD        42043                       DOPROC         53362     53723
          NRFD        42044                       DOPROC         53363     53731     53741     53751     53761
          OP          42045             
          STAPLC      42077                       CALL           52567     52600     52603
          DBGEXT      43117                       CALL           52525
          DBGAPL      43155                       CALL           52461     52505     52531     52533     52564     52571     52574
          RL2TS       43163                       LISTIO         41657
          APLRT       50031                       CALL           52405     52443     52614
          GEFCM       50136                       CALL           52604
          DARLIST     50173                       CALL           52502
                                                  GOTO           53210
          IFTLU       50272             
          BEFTLU      50275             
          IFTLU.P     50302                       PS1CTL         24607
          CVDB        50514                       PS1CTL         24644
                                                  STMTP          25765
          STRIP       50550                       CALL           52562
                                                  DOPROC         53273
          FSTRIP      50562                       TURNON         14026     14103     14165     14250     14320
                                                  SETARR         23510
          IXFN        50573                       LISTIO         37161
          ACALL       50716                       CALL           52376
          ARITH       51020                       PS1CTL         24757
                                                  GOTO           53110
          INITR       51070                       CALL           52360
                                                  GOTO           52741     53026     53041     53116
          APLST       51137                       CALL           52512     52513     52516     52517
          IFE         51226                       PS1CTL         24767
          IFL         51460                       PS1CTL         24771
          OPSTAK      51655                       PS1CTL         24620
          B=ASFPR     52115   ASFPRO              FTN24          10500
          ASFDEF      52122                       ARITH          51052
          ASFREF      52246                       ARITH          44321
          B=CALL      52343   CALL                FTN24          10501
          TYPECLL     52351                       ARITH          51001
          CALL        52357                       PS1CTL         24775
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   111  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ARITH          51562
          FARGLST     52560                       ARITH          51003
          IGCALL      52606                       ARITH          44634     44711     46045     47440     51530
                                                  GOTO           52752     53035     53053     53144
          B=GOTO      52636   GOTO                FTN24          10502
          PLAB        52645             
          GOTO        52721                       PS1CTL         24765
                                                  ARITH          51552
          ASSIGN      53214                       PS1CTL         24763
                                                  ARITH          51550
          B=DOPRC     53256   DOPROC              FTN24          10503
          WLABM       53261                       PS1CTL         24727
                                                  STMTP          25731
                                                  LISTIO         40550
                                                  ARITH          51323     51624
                                                  CALL           52522     52543
          PSYM        53270                       DBGPHCT        11617     11650
                                                  STMTP          25540     25545
                                                  DATA           34746
                                                  LISTIO         37222
                                                  ASFPRO         52235     52243
                                                  GOTO           52676     53225
                                                  DPCLOSE        54712     55345     55375     55414     55506
                                                  DECPRO         56134
          DOPROC      53301                       PS1CTL         25007
          INTVAR      53567                       LISTIO         41173     41531
          DODEF       53716                       LISTIO         40561     41222
                                                  ARITH          46202     47246
          DOCALL      54001                       STMTP          26053
                                                  LISTIO         37741     40012     40065     40126     40340
                                                  ARITH          44356
                                                  CALL           52361     52605
          DONE        54017                       LISTIO         41626     41630
          DOIT        54031                       LISTIO         41616     41622     41625
          DOGOOF      54037                       LISTIO         40454
                                                  ARITH          46206     50644
          DOLAB       54047                       PS1CTL         24647
          DOLABR      54152                       ENDPRO         27157
                                                  ARITH          51417     51472
                                                  CALL           52431     52441
                                                  GOTO           52662     52732
          LORD        54237                       ARITH          51402
          DOLABCN     54240                       PS1CTL         24732
          LABCON      54302                       ERPRO          35562
                                                  LISTIO         37513
                                                  GOTO           53221
          DOEND=      54315                       ENDPRO         26273
          DOTAB       54362             
          B=DPCLS     54365   DPCLOSE             FTN24          10504
          DBLDECL     54375                       DECPRO         56262     56527
          DPCLOSE     54377                       PH1CTL         57022
          O.CBT       54625                       PS1CTL         25061
                                                  ENDPRO         26420     26445     26476
          B=DECPR     55753   DECPRO              FTN24          10505
1         LOAD MAP - FTN                                        CYBER LOADER 1.5-871       24/05/02. 15.57.40.      PAGE   112  
          OVERLAY(FTN,2,4)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DPCOM       56015                       PH1CTL         57030
          SCF         56150                       DPCLOSE        54401
          DPEQU       56165                       PH1CTL         57033
          SEF         56250                       DPCLOSE        54402
          DPTYP       56254                       PH1CTL         57034
          DPDIM       56341                       PH1CTL         57031
          DPLEV       56355                       PH1CTL         57026
          DPIMP       56513                       PH1CTL         57027
          LASTTYP     56661                       PH1CTL         57001
          B=PH1CT     56667   PH1CTL              FTN24          10506
          PH1SCAN     57000                       DECPRO         55777     56063     56132     56141     56243     56330     56353
                                                                 56410     56417     56515     56521     56646     56647
          ESF         57044                       DPCLOSE        55711
          FTN21       57104             
          PH1CTL      57104             
          PROGC       57162                       ERPRO          35507
          CCS         60045                       SCANNER        30627
  
  
  
               2.850 CP SECONDS             112200B CM STORAGE USED                    214 TABLE MOVES
  
  
  
  
1 
      RECORDS WRITTEN ON FILE PRODTMP                       24/05/02. 15.58.07.           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. 
          FTN5      ABS       PRODOLD   24/05/02. FTN5 MAIN OVERLAY.
          FTN510    OVL       PRODOLD   24/05/02. FTN5 PRIMARY OVERLAY FOR QCG. 
          FTN520    OVL       PRODOLD   24/05/02. FTN5 PRIMARY OVERLAY FOR CCG. 
          FTN521    OVL       PRODOLD   24/05/02. FTN5 FRONT END OVERLAY FOR CCG. 
          FTN522    OVL       PRODOLD   24/05/02. COMMON CODE GENERATOR OVERLAY.
          FTN523    OVL       PRODOLD   24/05/02. FTN5 REAR END OVERLAY FOR CCG.
 ADDED    FTNMAC    OVL       TPROD     24/05/02. 
 ADDED    FTN       ABS       TPROD     24/05/02. 
 ADDED    FTN10     OVL       TPROD     24/05/02. FTN4 TS COMPILER
 ADDED    FTN20     OVL       TPROD     24/05/02. FTN4 OPT COMPILER - BATCH CONTROLLER
 ADDED    FTN23     OVL       TPROD     24/05/02. FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)
 ADDED    FTN21     OVL       TPROD     24/05/02. FTN4 OPT COMPILER - PASS 1(NO DEBUG)
 ADDED    FTN25     OVL       TPROD     24/05/02. FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)
 ADDED    FTN22     OVL       TPROD     24/05/02. FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER
 ADDED    FTN24     OVL       TPROD     24/05/02. FTN4 OPT COMPILER - DEBUG PASS 1
 ADDED    PRODUCT   OPLD      *****     24/05/02. 
          **EOF**             PRODOLD 
  
1 
      RECORDS WRITTEN ON FILE DIRFTMP                       24/05/02. 15.58.26.           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 
          FTN5      TEXT      DIRFOLD 
 ADDED    FTI4      TEXT      TDIR
          **EOF**             DIRFOLD 
  
1 
      LIBEDIT DIRECTIVES.                                   24/05/02. 15.58.34.           PAGE     1
  
  
  
          *BUILD,GLOBLIB
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 15.58.34.           PAGE     2
  
          RECORD    TYPE      FILE       DATE      COMMENT
  
          COMPASS   ABS       GLOBOLD   97/11/04. PSR=871,PRD=CPS1,MFT=B,VAR=A
          COMP3$    OVL       GLOBOLD   97/11/04. CYBER 70/ MODEL 835 COMPREHENSIVE ASSEMBLER PROGRAM VERSION 3.7-871.
          COMP3$A   OVL       GLOBOLD   97/11/04. CYBER 70/ MODEL 835 COMPREHENSIVE ASSEMBLER PROGRAM VERSION 3.7-871.
          AIDTEXT   OVL       GLOBOLD   97/11/04. 
          NADTEXT   OVL       GLOBOLD   97/11/04. 
          SYMPL     ABS       GLOBOLD   97/11/04. PSR=871,PRD=SYMP,MFT=B,VAR=A
          SYMP10    OVL       GLOBOLD   97/11/04. 
          SYMP15    OVL       GLOBOLD   97/11/04. 
          SYMP16    OVL       GLOBOLD   97/11/04. 
          SYMP14    OVL       GLOBOLD   97/11/04. 
          SYMP17    OVL       GLOBOLD   97/11/04. 
          SYMP13    OVL       GLOBOLD   97/11/04. 
          SYMP30    OVL       GLOBOLD   97/11/04. 
          SYMP31    OVL       GLOBOLD   97/11/04. 
          SYMP32    OVL       GLOBOLD   97/11/04. 
          SYMP40    OVL       GLOBOLD   97/11/04. 
          SYMP50    OVL       GLOBOLD   97/11/04. 
          SYMP51    OVL       GLOBOLD   97/11/04. 
          SYMP52    OVL       GLOBOLD   97/11/04. 
          CATALOG   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. CATALOG - CATALOG FILE. 
          MODIFY    ABS       GLOBOLD   23/09/20. 82/02/26. 92/10/15. MODIFY - SOURCE LIBRARY EDITING PROGRAM.
          KRONREF   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. KRONREF - SYSTEM CROSS REFERENCE PROGRAM. 
          OPLEDIT   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. OPLEDIT - OPL EDITING PROGRAM.
          COPYB     ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. COPYB - BINARY FILES COPIES.
          GTR       ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. GTR - GET SELECTED RECORDS. 
          LIBEDIT   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. LIBEDIT - LIBRARY EDITING PROGRAM.
          LIBGEN    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. LIBGEN - GENERATE USER LIBRARY. 
          VERIFY    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. VERIFY - VERIFY FILES.
          VFYLIB    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. VFYLIB - VERIFY LIBRARY FILES.
          UPDATE    ABS       GLOBOLD   97/11/04. PSR=871,PRD=UPD1,MFT=A,VAR=A
          COPYL     ABS       GLOBOLD   97/11/04.  MERGE RECORDS FROM MASTER AND CORR. FILES. 
          ITEMIZE   ABS       GLOBOLD   97/11/04.  LIST CONTENTS OF A BINARY FILE.
          LDRCNTL   ABS       GLOBOLD   97/11/04. 
          LOADU     ABS       GLOBOLD   97/11/04. USER-CALL LOADER    (L 871).
          LOADER    ABS       GLOBOLD   97/11/04. PSR=871,PRD=LDR1,MFT=B,VAR=B
          LOADC     OVL       GLOBOLD   97/11/04. LOADER - PROCESS CARD IMAGES. 
          LOADG     OVL       GLOBOLD   97/11/04. LOADER - GENERATE OVERLAYS. 
          LOADS     OVL       GLOBOLD   97/11/04. LOADER - GENERATE SEGMENT LOAD. 
          LOADZ     OVL       GLOBOLD   97/11/04. LOADER - RESUME OVERLAY GENERATION. 
          LOADM     OVL       GLOBOLD   97/11/04. LOADER - WRITE LOAD MAP.
          RECLAIM   ABS       GLOBOLD   23/09/20. 88/01/20. 96/06/05. RECLAIM - PERMANENT FILE DUMP/LOAD UTILITY
          TDUEX     ABS       GLOBOLD   97/11/04. PSR=871,PRD=TDU1,MFT=A,VAR=A
          LOADUC    OVL       GLOBOLD   97/11/04. LOADU - PROCESS CARD IMAGES.
          LOADUM    OVL       GLOBOLD   97/11/04. LOADU - WRITE LOAD MAP. 
          TRAP      OVL       GLOBOLD   97/11/04. 
          SEGRES    OVL       GLOBOLD   97/11/04. SEGMENT LOADER RESIDENT.
          LDRTEXT   OVL       GLOBOLD   97/11/04. LOADER REQUEST SYSTEM MACROS. 
          PSSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. PSSTEXT - PRODUCT SET SUPPORT MACROS. 
          NOSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. NOSTEXT - SYSTEM COMMUNICATION TEXT.
          SYSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. SYSTEXT - SYSTEM MACROS.
          SSYTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. SSYTEXT - SYSTEM CONTROL POINT TEXT.
          PPTEXT    OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. PPTEXT - SYSTEM PP TEXT.
          CETEXT    OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. CETEXT - ENGINEERING SUPPORT TEXT.
          CTITEXT   OVL       GLOBOLD   86/08/21. PSR=871,PRD=CTI0,MFT=C,VAR=A
          NETTEXT   OVL       GLOBOLD   23/09/20. 
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 15.58.34.           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.
          FTN5      ABS       GLOBOLD   24/05/02. FTN5 MAIN OVERLAY.
          FTN510    OVL       GLOBOLD   24/05/02. FTN5 PRIMARY OVERLAY FOR QCG. 
          FTN520    OVL       GLOBOLD   24/05/02. FTN5 PRIMARY OVERLAY FOR CCG. 
          FTN521    OVL       GLOBOLD   24/05/02. FTN5 FRONT END OVERLAY FOR CCG. 
          FTN522    OVL       GLOBOLD   24/05/02. COMMON CODE GENERATOR OVERLAY.
          FTN523    OVL       GLOBOLD   24/05/02. FTN5 REAR END OVERLAY FOR CCG.
          COBOL5    ABS       GLOBOLD   97/11/06. PSR=871,PRD=COB5,MFT=B,VAR=A
          COB5010   OVL       GLOBOLD   97/11/06. 
          COB5020   OVL       GLOBOLD   97/11/06. 
          COB5021   OVL       GLOBOLD   97/11/06. 
          COB5022   OVL       GLOBOLD   97/11/06. 
          COB5023   OVL       GLOBOLD   97/11/06. 
          COB5050   OVL       GLOBOLD   97/11/06. 
          COB5060   OVL       GLOBOLD   97/11/06. 
          COB5070   OVL       GLOBOLD   97/11/06. 
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 15.58.34.           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. 
 REPLACED FTN       ABS       GTLGO     24/05/02. 
 REPLACED FTN10     OVL       GTLGO     24/05/02. FTN4 TS COMPILER
 REPLACED FTN20     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - BATCH CONTROLLER
 REPLACED FTN23     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)
 REPLACED FTN21     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - PASS 1(NO DEBUG)
 REPLACED FTN25     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)
 REPLACED FTN22     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER
 REPLACED FTN24     OVL       GTLGO     24/05/02. FTN4 OPT COMPILER - DEBUG PASS 1
          FILE      ABS       GLOBOLD   97/11/04. CRM FILE CONTROL CARD PROCESSOR 
 ADDED    FTNMAC    OVL       GTLGO     24/05/02. 
 ADDED    GLOBLIB   OPLD      *****     24/05/02. 
          **EOF**             GLOBOLD 
  
1 AABF    M01 - CYBER 865.                        NOS 2.8.7 871/871.   24/05/02. 15.59.24.
  
  
 15.46.07.FTNTS.
 15.46.07.USER(INSTALL,,)       
 15.46.07.ABSC,  B. 
 15.46.07.CHARGE(*) 
 15.46.07. DEFAULT CHARGE NULL. 
 15.46.07.* 
 15.46.07.* 
 15.46.07.RENAME(ZZZPROC=INPUT) 
 15.46.08.BEGIN(SUBPROC,INSTALL,FTNTS,,OUTPUT,FULL,NO,PRINT,NONE,,
 15.46.08.JOBTYPE=NORM) 
 15.46.08.*   LEVEL 871 
 15.46.08.IFE( OT .EQ. TXO .AND. $NO$ .EQ. $YES$,RUNIA) 
 15.46.08.ENDIF(RUNIA)
 15.46.09.IFE( OT .NE. BCO .AND. $NO$ .NE. $YES$,SUBMIT)
 15.46.09.ENDIF(SUBMIT) 
 15.46.09.RETURN(USERCHG,USERCG,LGO,NEW,OLD,PFGFILE,IAESMD,GLOBLGO) 
 15.46.09.BEGIN(STARTUP,INSTALL,FTNTS,,OUTPUT,NO,PRINT,NONE,) NULL PROC.
 15.46.09.REVERT. 
 15.46.09.*START FTNTS
 15.46.09.*START UP TIME ***********************
 15.46.10.SET(EF=0) 
 15.46.10.SET(EFG=0)
 15.46.10.SETTL(*)
 15.46.10. TL = UNLIMITED.
 15.46.10.SETASL(*) 
 15.46.10. ASL = UNLIMITED, JSL = UNLIMITED.
 15.46.10.SETJSL(*) 
 15.46.10. ASL = UNLIMITED, JSL = UNLIMITED.
 15.46.10.RFL(55000)
 15.46.10.WRITER(OUTPUT)
 15.46.10.RETURN(ZZZJOB)
 15.46.10.BEGIN(ATTGLOB,INSTALL)
 15.46.11.*   LEVEL 871 
 15.46.11.* ATTGLOB - ATTACH GLOBLIB
 15.46.11.BEGIN(ACCESS,INSTALL,GLOBLIB) 
 15.46.11.REVERT(EX)CONVERT(MFT=R1G+) 
 15.46.12.CONVERT(MFT=R1G+) 
 15.46.12.    BEGIN(ACCGLOB,INSTALL,M=R)
 15.46.12.*************** A C C G L O B ********************
 15.46.12.  ATTACH(GLOBLIB=GLOBLIB) 
 15.46.13.RETURN(CONVERT) 
 15.46.13.REVERT. ACCGLOB **********************************
 15.46.13.LIBRARY,GLOBLIB.
 15.46.14.REVERT.          ATTGLOB
 15.46.14.MAP(FULL) 
 15.46.14.BEGIN(GETUSER,INSTALL,FTNTS,) 
 15.46.14.*************** G E T U S E R ********************
 15.46.14.REVERT. GETUSER **********************************
 15.46.14.RETURN(XMTPROC,XMTFILE) 
 15.46.15.NOTE(XMTPROC,NR)+.PROC,IAESMD.
 15.46.15.NOTE(XMTPROC,NR)+REWIND(IAESMD) 
 15.46.15.NOTE(XMTPROC,NR)+SKIPF(IAESMD)
 15.46.15.NOTE(XMTPROC,NR)+REVERT. IAESMD 
 15.46.15.NOTE(XMTPROC,NR)+EXIT. IAESMD 
 15.46.15.NOTE(XMTPROC,NR)+REVERT(ABORT) IAESMD 
 15.46.15.PACK(XMTPROC) 
 15.46.15. PACK COMPLETE. 
 15.46.15.BEGIN(FTNTS,ZZZPROC)
 15.46.15.*   LEVEL 871 
 15.46.16.BEGIN(PRDIN,INSTALL,PRDNAME=FTI4,PN=,PR=,DISK=0)
 15.46.16.*   LEVEL 871 
 15.46.16.* PRDIN - GET SOURCE PL FOR PRODUCT *FTI4*
 15.46.16.***************** P R D I N **********************
 15.46.16.RETURN(0,OLDPL) 
 15.46.16.SET(R1=0) 
 15.46.16.* 
 15.46.16.*  NOTE THAT IT FIRST TRIES TO FIND THE PL FROM 
 15.46.16.*  THIS USER NUMBER, THEN IF NOT FOUND, TRIES TO
 15.46.16.*  RECLAIM IT FROM TAPE BUILT BY THE CUSTOMER; IF 
 15.46.16.*  STILL NOT FOUND, WILL TRY TO RECLAIM IT FROM 
 15.46.16.*  CDC'S DUMP TAPES.
 15.46.16.* 
 15.46.16.  ATTACH(FTI4=FTI4871/UN=0,PN=,R=,NA) 
 15.46.16. FTI4871 NOT FOUND. 
 15.46.17.  IF, FILE(FTI4, .NOT. AS) ,PRDIN20.
 15.46.17.    * ATTEMPT TO GET PL WITH CUSTOMER UN
 15.46.17.    RECLAIM(Z,UN=INSTALL,L=RL)/COPY,PF=FTI4871,NN=FTI4,UN=INSTALL.
 15.46.17. RECLAIM: COPY,PF=FTI4871,NN=FTI4,UN=INSTALL. 
 15.46.17. NO DATA FOUND FOR USER NAME. 
 15.46.17.     NO FILES PROCESSED.
 15.46.17. RECLAIM COMPLETE.
 15.46.17.      IF, FILE(FTI4, .NOT. AS), PRDIN22.
 15.46.17.      * ATTEMPT TO GET PL WITH CDC UN 
 15.46.17.      RECLAIM(Z,UN=INSTALL,L=RL)/COPY,PF=FTI4871,NN=FTI4,UN=NS2871. 
 15.46.17. RECLAIM: COPY,PF=FTI4871,NN=FTI4,UN=NS2871.
 15.46.18. NT053 ASSIGNED TO TAPE, VSN=BC004R.
 15.47.16.      1 FILES PROCESSED.
 15.47.16. RECLAIM COMPLETE.
 15.47.17.        IF, FILE(FTI4, .NOT. AS) ,PRDIN25.
 15.47.17.        ENDIF(PRDIN25)
 15.47.17.      ENDIF(PRDIN22)
 15.47.17.      SET(R1=1) 
 15.47.17.  ENDIF(PRDIN20)
 15.47.17.REWIND(FTI4)
 15.47.17.IF, ( $NO$ .EQ. $YES$ ) .AND. 
 15.47.17.    ( R1        .EQ. 1     ) ,PRDIN30.
 15.47.17.ENDIF(PRDIN30)
 15.47.17.    COPY(FTI4,OLDPL)
 15.47.25. EOI ENCOUNTERED. 
 15.47.25. EOI. 0 FILES; 174 RECORDS; 723382 WORDS. 
 15.47.25.REWIND(FTI4)
 15.47.25.RETURN(RL)
 15.47.25.REVERT. PRDIN ************************************
 15.47.26.BEGIN(COMPCOM,INSTALL)
 15.47.26.* COMPCOM - GET COMPASS COMMON DECKS AS AUXPL 
 15.47.26.*   LEVEL 871 
 15.47.26.* 
 15.47.26.BEGIN(PRDAUX,INSTALL,PRDNAME=CPS1,PNO=,PRO=)
 15.47.26.*   LEVEL 871 
 15.47.26.* PRDAUX - GET AUXILIARY SOURCE PL
 15.47.26.*************** P R D A U X **********************
 15.47.26.RETURN(AUXPL) 
 15.47.27.* 
 15.47.27.*  NOTE THAT IT FIRST TRIES TO FIND THE PL FROM 
 15.47.27.*  THIS USER NUMBER, THEN IF NOT FOUND, TRIES TO
 15.47.27.*  RECLAIM IT FROM TAPE BUILT BY THE CUSTOMER; IF 
 15.47.27.*  STILL NOT FOUND, WILL TRY TO RECLAIM IT FROM 
 15.47.27.*  CDC'S DUMP TAPES.
 15.47.27.* 
 15.47.27.  ATTACH(CPS1=CPS1871/UN=0,PN=,R=,NA) 
 15.47.27. CPS1871 NOT FOUND. 
 15.47.27.  IF, FILE(CPS1, .NOT. AS) ,PRDAUX20. 
 15.47.27.    * ATTEMPT TO GET AUX PL BUILT BY CUSTOMER 
 15.47.27.    RECLAIM(Z,UN=INSTALL,L=R)/COPY,PF=CPS1871,NN=CPS1,UN=INSTALL. 
 15.47.27. RECLAIM: COPY,PF=CPS1871,NN=CPS1,UN=INSTALL. 
 15.47.27. NO DATA FOUND FOR USER NAME. 
 15.47.27.     NO FILES PROCESSED.
 15.47.27. RECLAIM COMPLETE.
 15.47.27.    IF, FILE(CPS1, .NOT. AS), PRDAUX22. 
 15.47.27.      * ATTEMPT TO GET CDC RELEASED PL
 15.47.27.      RECLAIM(Z,UN=INSTALL,L=RL)/COPY,PF=CPS1871,NN=CPS1,UN=NS2871. 
 15.47.27. RECLAIM: COPY,PF=CPS1871,NN=CPS1,UN=NS2871.
 15.47.28. NT052 ASSIGNED TO TAPE, VSN=BC004Q.
 15.49.13.      1 FILES PROCESSED.
 15.49.13. RECLAIM COMPLETE.
 15.49.13.      IF, FILE(CPS1, .NOT. AS), PRDAUX23. 
 15.49.13.      ENDIF(PRDAUX23) 
 15.49.13.    ENDIF(PRDAUX22) 
 15.49.13.  ENDIF(PRDAUX20) 
 15.49.13.REWIND(CPS1)
 15.49.14.RENAME(AUXPL=CPS1)
 15.49.14.RETURN(RL)
 15.49.14.REVERT. PRDAUX ***********************************
 15.49.14.RENAME(COMCPL=AUXPL)
 15.49.14.NOTE(COM)+*C COMCARG.COMPCOM
 15.49.14.UPDATE(P=COMCPL,Q,I=COM,C=0,N=AUXPL)
 15.49.17. UPDATE COMPLETE. 
 15.49.17.RETURN(COMCPL,COM)
 15.49.17.REVERT.  COMPCOM. 
 15.49.18.BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,PC=NO,CC=YES,PCDECK=FCC,NUMAUX=1) 
 15.49.18.*   LEVEL 871 
 15.49.18.* UP - UPDATE 'UPDATE' FORMATED PRODUCT PL'S. 
 15.49.18.***************** U P ****************************
 15.49.18.BEGIN(GETPC,INSTALL,PCDECK=FCC,PCPL=CPRD,PC=NO,CC=YES)
 15.49.18.*   LEVEL 871 
 15.49.18.* GETPC - GET PC AND CC TYPE CODE FROM CPRD.
 15.49.18.***************** G E T P C **********************
 15.49.19.RETURN(MODS,CMODS,CODEPL) 
 15.49.19.IFE($CPRD$.EQ.$CPRD$.OR.$CPRD$.EQ.$CNSP$,L00000)
 15.49.19.ATTACH(CODEPL/NA) 
 15.49.19.ELSE(L00000)
 15.49.19.ENDIF(L00000) 
 15.49.19.IF, FILE(CODEPL,AS) ,GETPC1.
 15.49.19.IFE($YES$.EQ.$YES$,L00001)
 15.49.19.  NOTE(IN);/C,CFCC
 15.49.19.  UPDATE(P=CODEPL,Q,D,8,*=/,K=CMODS,I=IN) 
 15.49.20. UPDATE COMPLETE. 
 15.49.20.  IFE(FILE(CMODS,AS),L00001)
 15.49.20.ENDIF(L00001) 
 15.49.20.IFE($NO$.EQ.$YES$,L00003) 
 15.49.20.ENDIF(L00003) 
 15.49.20.UNLOAD(CODEPL)
 15.49.20.ENDIF(GETPC1) 
 15.49.20.REVERT. GETPC ************************************
 15.49.21.IFE(FILE(MODS,AS),L00003) 
 15.49.21.ELSE(L00003)
 15.49.21.  PACK(USER)
 15.49.21. PACK COMPLETE. 
 15.49.21.IFE(FILE(MODS,AS),L00005) 
 15.49.21.  ELSE(L00005)
 15.49.21.    RENAME(NEWPL=OLDPL) 
 15.49.21.  ENDIF(L00005) 
 15.49.21.  IFE(1.EQ.0,L00006)
 15.49.21.  ELSE(L00006)
 15.49.21.  IFE(1.EQ.1,L00006)
 15.49.22.    UPDATE(P=NEWPL/AUXPL,F,I=USER,N=NEWER)
 15.50.20. UPDATE COMPLETE. 
 15.50.20.  ELSE(L00006)
 15.50.20.  ENDIF(L00006) 
 15.50.20.ENDIF(L00003) 
 15.50.20.* 
 15.50.20.RETURN(OLDPL,MODS)
 15.50.20.REVERT. UP ***************************************
 15.50.21.COMPASS(A,I,S=IPTEXT,S=CPUTEXT,B=TSTEXT,L=OUTPUT)     TSTEXT
 15.50.26. ASSEMBLY COMPLETE.   57600B  CM USED.
 15.50.26.    4.343  CPU SECONDS  ASSEMBLY TIME.
 15.50.26.COMPASS(A,I,S=IPTEXT,B=FTNMAC,L=OUTPUT)               FTNMAC
 15.50.28. ASSEMBLY COMPLETE.   46500B  CM USED.
 15.50.28.    1.232  CPU SECONDS  ASSEMBLY TIME.
 15.50.28.COMPASS(A,I,S=IPTEXT,B=FTNTEXT,L=OUTPUT)              FTNTEXT 
 15.50.33. ASSEMBLY COMPLETE.   53700B  CM USED.
 15.50.33.    3.967  CPU SECONDS  ASSEMBLY TIME.
 15.50.33.COMPASS(A,I,S=PSSTEXT,S=CPUTEXT,G=FTNTEXT,B=SYSFTN,L=OUTPUT)   FTN
 15.50.40. ASSEMBLY COMPLETE.   66100B  CM USED.
 15.50.40.    5.721  CPU SECONDS  ASSEMBLY TIME.
 15.50.40.COMPASS(A,I,S=CPUTEXT,G=TSTEXT,B=SYSFTN,L=OUTPUT)     *TSMODE*-OUTPUT 
 15.53.19. ASSEMBLY COMPLETE.   61300B  CM USED.
 15.53.19.  142.290  CPU SECONDS  ASSEMBLY TIME.
 15.53.19.COMPASS(A,I,S=PSSTEXT,S=CPUTEXT,G=FTNTEXT,B=SYSFTN,L=OUTPUT)   *BATCH*
 15.56.23. ASSEMBLY COMPLETE.   73100B  CM USED.
 15.56.23.  164.691  CPU SECONDS  ASSEMBLY TIME.
 15.56.23.COMPASS(A,I,S=CPUTEXT,G=FTNTEXT,B=FRAME,L=OUTPUT)     FRAME (NO DEBUG)
 15.56.25. ASSEMBLY COMPLETE.   55200B  CM USED.
 15.56.25.    1.849  CPU SECONDS  ASSEMBLY TIME.
 15.56.25.COPYLM(FRAME,SYSFTN,LOAD1,,R) 
 15.56.26. UPDATED -- REL   / FTN 
 15.56.26. UPDATED -- REL   / TABLES
 15.56.27. UPDATED -- REL   / ERRORS
 15.56.27. UPDATED -- REL   / BATCH 
 15.56.27. UPDATED -- REL   / HEADER
 15.56.27. UPDATED -- REL   / PIG 
 15.56.27. UPDATED -- REL   / END 
 15.56.27. UPDATED -- REL   / ALLOC 
 15.56.27. UPDATED -- REL   / MAIN
 15.56.27.UCMS,   1048.576KUNS. 
 15.56.27. UPDATED -- REL   / LEX 
 15.56.27. UPDATED -- REL   / KEY 
 15.56.27. UPDATED -- REL   / IF
 15.56.27. UPDATED -- REL   / TSDATA
 15.56.27. UPDATED -- REL   / DECL
 15.56.27. UPDATED -- REL   / TYPE
 15.56.27. UPDATED -- REL   / FMT 
 15.56.27. UPDATED -- REL   / IO
 15.56.27. UPDATED -- REL   / NUM 
 15.56.27. UPDATED -- REL   / PAR 
 15.56.27. UPDATED -- REL   / CONRED
 15.56.27. UPDATED -- REL   / ASF 
 15.56.27. UPDATED -- REL   / DO
 15.56.27. UPDATED -- REL   / FUN 
 15.56.27. UPDATED -- REL   / REG 
 15.56.27. UPDATED -- REL   / GEN 
 15.56.27. UPDATED -- REL   / TSNAP 
 15.56.27. UPDATED -- REL   / INIT
 15.56.27. UPDATED -- REL   / MAP 
 15.56.27. UPDATED -- REL   / LIST
 15.56.27. UPDATED -- REL   / LSTPRO
 15.56.27. UPDATED -- REL   / OUTPK20 
 15.56.27. UPDATED -- REL   / SNAP
 15.56.27. UPDATED -- REL   / FTNMSG
 15.56.27. UPDATED -- REL   / PS1CTL
 15.56.28. UPDATED -- REL   / STMTP 
 15.56.28. UPDATED -- REL   / ENDPRO
 15.56.28. UPDATED -- REL   / SCANNER 
 15.56.28. UPDATED -- REL   / DMPELST 
 15.56.28. UPDATED -- REL   / CONVERT 
 15.56.28. UPDATED -- REL   / DATA
 15.56.28. UPDATED -- REL   / ERPRO 
 15.56.28. UPDATED -- REL   / FLY 
 15.56.28. UPDATED -- REL   / LISTIO
 15.56.28. UPDATED -- REL   / ARITH 
 15.56.28. UPDATED -- REL   / ASFPRO
 15.56.28. UPDATED -- REL   / CALL
 15.56.28. UPDATED -- REL   / GOTO
 15.56.28. UPDATED -- REL   / DBGLNK
 15.56.28. UPDATED -- REL   / DOPROC
 15.56.28. UPDATED -- REL   / DPCLOSE 
 15.56.28. UPDATED -- REL   / DECPRO
 15.56.28. UPDATED -- REL   / PH1CTL
 15.56.28. UPDATED -- REL   / PS3CTL
 15.56.28. UPDATED -- REL   / FAX 
 15.56.28. UPDATED -- REL   / REFMAP
 15.56.28. UPDATED -- REL   / CLOSE2
 15.56.28. UPDATED -- REL   / MIO 
 15.56.28. UPDATED -- REL   / FBV 
 15.56.28. UPDATED -- REL   / GPO 
 15.56.28. UPDATED -- REL   / GRA 
 15.56.28. UPDATED -- REL   / PROSEQ
 15.56.28. UPDATED -- REL   / POST
 15.56.29. UPDATED -- REL   / SQZ 
 15.56.29. UPDATED -- REL   / MCG 
 15.56.29. UPDATED -- REL   / BDT 
 15.56.29. UPDATED -- REL   / PRE 
 15.56.29. UPDATED -- REL   / CFA 
 15.56.29. UPDATED -- REL   / UDT 
 15.56.29. UPDATED -- REL   / READRL
 15.56.29. UPDATED -- REL   / MACROX
 15.56.29. COPYL COMPLETE.
 15.56.29.LDSET(PRESET=ZERO,ERR=ALL)
 15.56.29.LOAD(LOAD1) 
 15.56.34.NOGO(FTN) 
 15.56.34.BEGIN(ADDGLOB,INSTALL,GLOBLGO=FTN)
 15.56.35.*   LEVEL 871 
 15.56.35.* ADDGLOB - ADD RECORDS TO GLOBAL LIBRARY.
 15.56.35.*************** A D D G L O B ********************
 15.56.35.UNLOAD(GLIBIN,GTLGO,TEMPLIB,GLOBTMP)
 15.56.35.IFE($FTN$.NE.$$,L00001) 
 15.56.35.  IFE(FILE(FTN,AS),L00001)
 15.56.35.    GTR(FTN,GTLGO)ABS/*,REL/*,OVL/*,PROC/*
 15.56.36. EDITING COMPLETE.
 15.56.36.    BEGIN(ACCESS,INSTALL,GLOBLIB,M=W) 
 15.56.37.REVERT(EX)CONVERT(MFT=R1G+) 
 15.56.37.CONVERT(MFT=R1G+) 
 15.56.38.    BEGIN(ACCGLOB,INSTALL,M=W)
 15.56.38.*************** A C C G L O B ********************
 15.56.38.  ATTACH(GLOBLOC=GLOBLOC/M=W,WB)
 15.56.38.  PURGE(GLOBTMP/NA) 
 15.56.38. GLOBTMP NOT FOUND. 
 15.56.38.  RETURN(GLOBTMP) 
 15.56.38.  DEFINE(GLOBTMP=GLOBTMP/M=R,CT=S)
 15.56.38.  ATTACH(GLOBOLD=GLOBLIB) 
 15.56.39.RETURN(CONVERT) 
 15.56.39.REVERT. ACCGLOB **********************************
 15.56.39.    LIBEDIT(P=GLOBOLD,B=GTLGO,U,N=GLOBTMP,Z)+*BUILD,GLOBLIB 
 15.56.49. EDITING COMPLETE.
 15.57.12. LIBRARY GENERATION COMPLETE. 
 15.57.12.    BEGIN(ACCESS,INSTALL,GLOBLIB,M=RETURN)
 15.57.12.REVERT(EX)CONVERT(MFT=R1G+) 
 15.57.13.CONVERT(MFT=R1G+) 
 15.57.13.    BEGIN(ACCGLOB,INSTALL,M=RETURN) 
 15.57.13.*************** A C C G L O B ********************
 15.57.13.  PURGE(GLOBOLD/NA) 
 15.57.13. GLOBOLD NOT FOUND. 
 15.57.13.  RETURN(GLOBTMP,GLOBOLD) 
 15.57.13.  CHANGE(GLOBOLD=GLOBLIB,GLOBLIB=GLOBTMP) 
 15.57.14.  BEGIN(PERMIT,INSTALL,REALFN=GLOBLIB,SYMFN=GLOBLIB)
 15.57.14.*   LEVEL 871 
 15.57.14.*************** P E R M I T **********************
 15.57.14.  PERMIT(GLOBLIB,NETADMN=R,SYSTEMX=R) 
 15.57.14.REVERT.  PERMIT **********************************
 15.57.14.  PURGE(GLOBOLD/NA) 
 15.57.14.  RETURN(GLOBLOC) 
 15.57.14.RETURN(CONVERT) 
 15.57.15.REVERT. ACCGLOB **********************************
 15.57.15.    RETURN(GTLGO,FTN) 
 15.57.15.ENDIF(L00001) 
 15.57.15.REVERT. ADDGLOB **********************************
 15.57.16.BEGIN(ATTGLOB,INSTALL)
 15.57.16.*   LEVEL 871 
 15.57.16.* ATTGLOB - ATTACH GLOBLIB
 15.57.16.BEGIN(ACCESS,INSTALL,GLOBLIB) 
 15.57.17.REVERT(EX)CONVERT(MFT=R1G+) 
 15.57.17.CONVERT(MFT=R1G+) 
 15.57.17.    BEGIN(ACCGLOB,INSTALL,M=R)
 15.57.18.*************** A C C G L O B ********************
 15.57.18.  ATTACH(GLOBLIB=GLOBLIB) 
 15.57.18.RETURN(CONVERT) 
 15.57.18.REVERT. ACCGLOB **********************************
 15.57.18.LIBRARY,GLOBLIB.
 15.57.19.REVERT.          ATTGLOB
 15.57.19.RETURN(FTN) 
 15.57.19.SKIPF(SYSFTN) 
 15.57.19.SKIPF(FRAME)
 15.57.19.COMPASS(A,I,S=CPUTEXT,G=FTNTEXT,B=FRAME,L=OUTPUT)     FRAMDBUG
 15.57.21. ASSEMBLY COMPLETE.   55200B  CM USED.
 15.57.21.    1.143  CPU SECONDS  ASSEMBLY TIME.
 15.57.21.FTN(A,I,OPT=1,S=CPUTEXT,G=FTNTEXT,B=SYSFTN,L=OUTPUT)  *DEBUG*-SAVREGS 
 15.57.36.     7.811 CP SECONDS COMPILATION TIME
 15.57.36.COPYLM(FRAME,SYSFTN,LOAD1,,R) 
 15.57.37. UPDATED -- REL   / FTN 
 15.57.37. UPDATED -- REL   / TABLES
 15.57.37. UPDATED -- REL   / ERRORS
 15.57.37. UPDATED -- REL   / BATCH 
 15.57.37. UPDATED -- REL   / HEADER
 15.57.37. UPDATED -- REL   / PIG 
 15.57.37. UPDATED -- REL   / END 
 15.57.37. UPDATED -- REL   / ALLOC 
 15.57.37. UPDATED -- REL   / MAIN
 15.57.37. UPDATED -- REL   / LEX 
 15.57.37. UPDATED -- REL   / KEY 
 15.57.37. UPDATED -- REL   / IF
 15.57.37. UPDATED -- REL   / TSDATA
 15.57.37. UPDATED -- REL   / DECL
 15.57.37. UPDATED -- REL   / TYPE
 15.57.37. UPDATED -- REL   / FMT 
 15.57.37. UPDATED -- REL   / IO
 15.57.37. UPDATED -- REL   / NUM 
 15.57.37. UPDATED -- REL   / PAR 
 15.57.37. UPDATED -- REL   / CONRED
 15.57.37. UPDATED -- REL   / ASF 
 15.57.37. UPDATED -- REL   / DO
 15.57.37. UPDATED -- REL   / FUN 
 15.57.38. UPDATED -- REL   / REG 
 15.57.38. UPDATED -- REL   / GEN 
 15.57.38. UPDATED -- REL   / TSNAP 
 15.57.38. UPDATED -- REL   / INIT
 15.57.38. UPDATED -- REL   / MAP 
 15.57.38. UPDATED -- REL   / LIST
 15.57.38. UPDATED -- REL   / LSTPRO
 15.57.38. UPDATED -- REL   / OUTPK20 
 15.57.38. UPDATED -- REL   / SNAP
 15.57.38. UPDATED -- REL   / FTNMSG
 15.57.38. UPDATED -- REL   / PS1CTL
 15.57.38. UPDATED -- REL   / STMTP 
 15.57.38. UPDATED -- REL   / ENDPRO
 15.57.38. UPDATED -- REL   / SCANNER 
 15.57.38. UPDATED -- REL   / DMPELST 
 15.57.38. UPDATED -- REL   / CONVERT 
 15.57.38. UPDATED -- REL   / DATA
 15.57.38. UPDATED -- REL   / ERPRO 
 15.57.38. UPDATED -- REL   / FLY 
 15.57.38. UPDATED -- REL   / LISTIO
 15.57.38. UPDATED -- REL   / ARITH 
 15.57.38. UPDATED -- REL   / ASFPRO
 15.57.38. UPDATED -- REL   / CALL
 15.57.38. UPDATED -- REL   / GOTO
 15.57.38. UPDATED -- REL   / DBGLNK
 15.57.38. UPDATED -- REL   / DOPROC
 15.57.38. UPDATED -- REL   / DPCLOSE 
 15.57.38. UPDATED -- REL   / DECPRO
 15.57.38. UPDATED -- REL   / PH1CTL
 15.57.38. UPDATED -- REL   / PS3CTL
 15.57.39. UPDATED -- REL   / FAX 
 15.57.39. UPDATED -- REL   / REFMAP
 15.57.39. UPDATED -- REL   / CLOSE2
 15.57.39. UPDATED -- REL   / MIO 
 15.57.39. UPDATED -- REL   / FBV 
 15.57.39. UPDATED -- REL   / GPO 
 15.57.39. UPDATED -- REL   / GRA 
 15.57.39. UPDATED -- REL   / PROSEQ
 15.57.39. UPDATED -- REL   / POST
 15.57.39. UPDATED -- REL   / SQZ 
 15.57.39. UPDATED -- REL   / MCG 
 15.57.39. UPDATED -- REL   / BDT 
 15.57.39. UPDATED -- REL   / PRE 
 15.57.39. UPDATED -- REL   / CFA 
 15.57.39. UPDATED -- REL   / UDT 
 15.57.39. UPDATED -- REL   / READRL
 15.57.39. UPDATED -- REL   / MACROX
 15.57.39. UPDATED -- REL   / DBGPHCT 
 15.57.39. UPDATED -- REL   / OUTPK24 
 15.57.39. UPDATED -- REL   / PUT 
 15.57.39. UPDATED -- REL   / PUTUPDT 
 15.57.39. UPDATED -- REL   / BUGACT
 15.57.39. UPDATED -- REL   / GETOUT
 15.57.39. UPDATED -- REL   / TURNON
 15.57.39. UPDATED -- REL   / BUGSOUT 
 15.57.39. UPDATED -- REL   / BUGCON
 15.57.39. UPDATED -- REL   / TURNOFF 
 15.57.39. UPDATED -- REL   / DEBUGER 
 15.57.39. UPDATED -- REL   / BUGPRO
 15.57.39. UPDATED -- REL   / PUTIN 
 15.57.39. UPDATED -- REL   / SETARR
 15.57.39. UPDATED -- REL   / BUGCLO
 15.57.39. UPDATED -- REL   / SAVREGS 
 15.57.39. UPDATED -- REL   / PS1CTL
 15.57.39. UPDATED -- REL   / STMTP 
 15.57.40. UPDATED -- REL   / ENDPRO
 15.57.40. UPDATED -- REL   / SCANNER 
 15.57.40. UPDATED -- REL   / DMPELST 
 15.57.40. UPDATED -- REL   / CONVERT 
 15.57.40. UPDATED -- REL   / DATA
 15.57.40. UPDATED -- REL   / ERPRO 
 15.57.40. UPDATED -- REL   / FLY 
 15.57.40. UPDATED -- REL   / LISTIO
 15.57.40. UPDATED -- REL   / ARITH 
 15.57.40. UPDATED -- REL   / ASFPRO
 15.57.40. UPDATED -- REL   / CALL
 15.57.40. UPDATED -- REL   / GOTO
 15.57.40. UPDATED -- REL   / DOPROC
 15.57.40. UPDATED -- REL   / DPCLOSE 
 15.57.40. UPDATED -- REL   / DECPRO
 15.57.40. UPDATED -- REL   / PH1CTL
 15.57.40. COPYL COMPLETE.
 15.57.40.LDSET(PRESET=ZERO,ERR=ALL)
 15.57.40.LOAD(LOAD1) 
 15.57.46.NOGO(FTN) 
 15.57.46.RENAME(LGO=FTN) 
 15.57.46.RENAME(TEXT=FTNMAC) 
 15.57.46.REWIND(ABS,TEXT,LGO)
 15.57.46.COPYBR(TEXT,ABS)
 15.57.46. COPY COMPLETE. 
 15.57.46. END. 0 FILES; 1 RECORD; 1382 WORDS.
 15.57.46.COPYBF(LGO,ABS) 
 15.57.47. EOI ENCOUNTERED. 
 15.57.47. EOI. 1 FILE; 8 RECORDS; 71560 WORDS. 
 15.57.47.RENAME(LGO=ABS) 
 15.57.47.BEGIN(PRDOUT,INSTALL,PRDNAME=FTI4,PNO=,PRO=)
 15.57.48.*   LEVEL 871 
 15.57.48.* PRDOUT - WRITE OUTPUT PL FOR PRODUCT *FTI4* 
 15.57.48.*************** P R D O U T **********************
 15.57.48.REVERT.*PRDOUT - NO OUTPUT SOURCE FILE WRITTEN. 
 15.57.48.RETURN(LIB) 
 15.57.48.REWIND(LGO) 
 15.57.48.COPYEI(LGO,GLOBLGO) 
 15.57.49. EOI ENCOUNTERED. 
 15.57.49. EOI. 1 FILE; 10 RECORDS; 72942 WORDS.
 15.57.49.BEGIN(GENDIR,INSTALL,LIB=27)
 15.57.50.BEGIN(GENDIR2,INSTALL,LGO=LGO,DIR=$*ADD LIB27,$)
 15.57.50.RETURN(ZZZZDIR) 
 15.57.50.REWIND(LGO) 
 15.57.50.GET(GDIR/NA)
 15.57.50.IF, FILE(GDIR, .NOT. AS) ,GENDIR1.
 15.57.50.ENDIF(GENDIR1)
 15.57.51.GDIR(LGO,OP=DIR,L=ZZZZDIR)
 15.57.51.OVL/FTNMAC-OVL/FTN24
 15.57.51. GDIR COMPLETE. 
 15.57.51.EDIT(ZZZZDIR,I=ZZZZZIN,L=0) 
 15.57.51.SKIPEI(DSTDIR)
 15.57.51.COPYEI(ZZZZDIR,DSTDIR)
 15.57.51. EOI ENCOUNTERED. 
 15.57.51. EOI. 0 FILES; 1 RECORD; 4 WORDS. 
 15.57.51.RETURN(EXCAT,ZZZZZIN,ZZZZDIR) 
 15.57.52.REVERT. GENDIR2(LGO,*ADD LIB27,)
 15.57.52.BEGIN(SAVELGO,INSTALL,PRDNAME=FTI4) 
 15.57.52.RETURN(IAESMD,ZZZZDIR,ZZZULIB)
 15.57.52.  GTR(LGO,ZZZULIB)ULIB/*
 15.57.53. EDITING COMPLETE.
 15.57.53.  IF, FILE(ZZZULIB, AS) ,SAVELGO1.
 15.57.53.  ENDIF(SAVELGO1) 
 15.57.53.  NOTE(ZZZZDIR,NR)+FTI4 
 15.57.53.  REWIND(DSTDIR)
 15.57.54.  COPYEI(DSTDIR,ZZZZDIR)
 15.57.54. EOI ENCOUNTERED. 
 15.57.54. EOI. 0 FILES; 1 RECORD; 4 WORDS. 
 15.57.54.  PACK(ZZZZDIR) 
 15.57.54. PACK COMPLETE. 
 15.57.54.  BEGIN(UPXMT,INSTALL,LFN=LGO,PROC=UPPROD,PARAM=) 
 15.57.54.REWIND(LGO) 
 15.57.54.COPYBF(LGO,XMTFILE) 
 15.57.55. COPY COMPLETE. 
 15.57.55. END. 1 FILE; 9 RECORDS; 72942 WORDS. 
 15.57.56.EDIT(XMTPROC,I=ZZZZZIN,L=L) 
 15.57.56.RETURN(ZZZZZIN) 
 15.57.56.REVERT. UPXMT 
 15.57.56.  BEGIN(UPXMT,INSTALL,LFN=ZZZZDIR,PROC=UPDIR,PARAM=$,PRDNAME=FTI4$) 
 15.57.56.REWIND(ZZZZDIR) 
 15.57.57.COPYBF(ZZZZDIR,XMTFILE) 
 15.57.57. EOI ENCOUNTERED. 
 15.57.57. EOI. 1 FILE; 1 RECORD; 5 WORDS.
 15.57.57.EDIT(XMTPROC,I=ZZZZZIN,L=L) 
 15.57.57.RETURN(ZZZZZIN) 
 15.57.57.REVERT. UPXMT 
 15.57.57.REWIND(XMTFILE,XMTPROC) 
 15.57.57.COPYBF(XMTPROC,IAESMD)
 15.57.57. EOI ENCOUNTERED. 
 15.57.57. EOI. 1 FILE; 1 RECORD; 20 WORDS. 
 15.57.57.COPYEI(XMTFILE,IAESMD)
 15.57.58. EOI ENCOUNTERED. 
 15.57.58. EOI. 2 FILES; 12 RECORDS; 72947 WORDS. 
 15.57.58.RETURN(ZZZULIB,XMTPROC,XMTFILE,DSTDIR,ZZZZDIR)
 15.57.58.REVERT.******* SAVELGO
 15.57.59.BEGIN(END,INSTALL,MFT=R1G+) 
 15.57.59.SET(R3=R1G) 
 15.57.59.SET(R1G=0)
 15.58.00.BEGIN(STARTIT,INSTALL)
 15.58.00.RETURN(BLDLIBS) 
 15.58.00.NOTE(BLDLIBS,NR)+START+.PROC,BLDLIB*I.
 15.58.00.NOTE(BLDLIBS,NR)+END+REVERT.BLDLIB+EXIT.BLDLIB+REVERT(ABORT)BLDLIB
 15.58.00.REWIND(BLDLIBS) 
 15.58.00.RETURN(DMPDIR,DSTDIR,OPLDIR,PFGDIR,BASEDST,DCNDIR)
 15.58.00.REVERT. STARTIT 
 15.58.00.BEGIN(ACCESS,INSTALL,PRODUCT,M=W) 
 15.58.01.REVERT(EX)CONVERT(MFT=R1G+) 
 15.58.01.CONVERT(MFT=R1G+) 
 15.58.02.    BEGIN(ACCPROD,INSTALL,M=W)
 15.58.02.*************** A C C P R O D ********************
 15.58.02.  ATTACH(PRODLOC=PRODLOC/M=W,WB)
 15.58.02.  PURGE(PRODTMP/NA) 
 15.58.02. PRODTMP NOT FOUND. 
 15.58.02.  RETURN(PRODTMP) 
 15.58.02.  DEFINE(PRODTMP=PRODTMP/M=R,CT=S)
 15.58.02.  ATTACH(PRODOLD=PRODUCT) 
 15.58.02.RETURN(CONVERT) 
 15.58.02.REVERT. ACCPROD **********************************
 15.58.03.BEGIN(,IAESMD)
 15.58.03.REWIND(IAESMD)
 15.58.03.SKIPF(IAESMD) 
 15.58.03.BEGIN(UPPROD,INSTALL) 
 15.58.04.  COPYBF(IAESMD,TPROD)
 15.58.04. COPY COMPLETE. 
 15.58.04. END. 1 FILE; 9 RECORDS; 72942 WORDS. 
 15.58.04.  BKSP(TPROD) 
 15.58.05.REVERT. UPPROD
 15.58.05.BEGIN(UPDIR,INSTALL,PRDNAME=FTI4) 
 15.58.05.RETURN(ZZZTEMP) 
 15.58.05.COPYBF(IAESMD,ZZDIR)
 15.58.05. COPY COMPLETE. 
 15.58.05. END. 1 FILE; 1 RECORD; 5 WORDS.
 15.58.05.LIBEDIT(P=TDIR,B=ZZDIR,LO=E,N=ZZZTEMP,I=0)
 15.58.05. EDITING COMPLETE.
 15.58.05.RENAME(TDIR=ZZZTEMP)
 15.58.05.RETURN(ZZDIR) 
 15.58.06.REVERT. UPDIR (FTI4)
 15.58.06.REVERT. IAESMD
 15.58.06.MODIFY(P=0,C=BLDLIB,Z,F,LO=E)/*CREATE,BLDLIBS/*NOSEQ
 15.58.06. MODIFICATION COMPLETE. 
 15.58.07.BLDLIB. 
 15.58.07.REVERT.BLDLIB 
 15.58.07.IF, FILE(TPROD, AS) ,END1.
 15.58.07.* UPDATE PRODUCT AND DIRFILE
 15.58.07.  LIBEDIT(P=PRODOLD,B=TPROD,I=0,N=PRODTMP)
 15.58.19. EDITING COMPLETE.
 15.58.20.  BEGIN(ACCESS,INSTALL,PRODUCT,M=RETURN)
 15.58.20.REVERT(EX)CONVERT(MFT=R1G+) 
 15.58.21.CONVERT(MFT=R1G+) 
 15.58.21.    BEGIN(ACCPROD,INSTALL,M=RETURN) 
 15.58.21.*************** A C C P R O D ********************
 15.58.21.  PURGE(PRODOLD/NA) 
 15.58.21. PRODOLD NOT FOUND. 
 15.58.22.  RETURN(PRODTMP,PRODOLD) 
 15.58.22.  CHANGE(PRODOLD=PRODUCT,PRODUCT=PRODTMP) 
 15.58.22.  BEGIN(PERMIT,INSTALL,REALFN=PRODUCT,SYMFN=PRODUCT)
 15.58.22.*   LEVEL 871 
 15.58.22.*************** P E R M I T **********************
 15.58.22.  PERMIT(PRODUCT,NETADMN=R) 
 15.58.22.REVERT.  PERMIT **********************************
 15.58.23.  PURGE(PRODOLD/NA) 
 15.58.23.  RETURN(PRODLOC) 
 15.58.23.RETURN(CONVERT) 
 15.58.23.REVERT. ACCPROD **********************************
 15.58.24.  BEGIN(ACCESS,INSTALL,DIRFILE,M=W) 
 15.58.24.REVERT(EX)CONVERT(MFT=R1G+) 
 15.58.24.CONVERT(MFT=R1G+) 
 15.58.25.    BEGIN(ACCDIRF,INSTALL,M=W)
 15.58.25.*************** A C C D I R F ********************
 15.58.25.  ATTACH(DIRFLOC=DIRFLOC/M=W,WB)
 15.58.25.  PURGE(DIRFTMP/NA) 
 15.58.25. DIRFTMP NOT FOUND. 
 15.58.25.  RETURN(DIRFTMP) 
 15.58.25.  DEFINE(DIRFTMP=DIRFTMP/M=R) 
 15.58.25.  ATTACH(DIRFOLD=DIRFILE) 
 15.58.25.RETURN(CONVERT) 
 15.58.26.REVERT. ACCDIRF **********************************
 15.58.26.  LIBEDIT(P=DIRFOLD,B=TDIR,I=0,N=DIRFTMP) 
 15.58.26. EDITING COMPLETE.
 15.58.27.  BEGIN(ACCESS,INSTALL,DIRFILE,M=RETURN)
 15.58.27.REVERT(EX)CONVERT(MFT=R1G+) 
 15.58.27.CONVERT(MFT=R1G+) 
 15.58.28.    BEGIN(ACCDIRF,INSTALL,M=RETURN) 
 15.58.28.*************** A C C D I R F ********************
 15.58.28.  PURGE(DIRFOLD/NA) 
 15.58.28. DIRFOLD NOT FOUND. 
 15.58.28.  RETURN(DIRFTMP,DIRFOLD) 
 15.58.28.  CHANGE(DIRFOLD=DIRFILE,DIRFILE=DIRFTMP) 
 15.58.28.  PURGE(DIRFOLD/NA) 
 15.58.28.  RETURN(DIRFLOC) 
 15.58.28.RETURN(CONVERT) 
 15.58.29.REVERT. ACCDIRF **********************************
 15.58.29.  RETURN(TPROD,TDIR)
 15.58.29.ELSE(END1)
 15.58.29.ENDIF(END1) 
 15.58.29.IF, FILE(GLOBLGO,AS) ,END2. 
 15.58.29.* UPDATE GLOBLIB
 15.58.29.  RETURN(GTLGO) 
 15.58.29.  GTR(GLOBLGO,GTLGO)ABS/*,REL/*,OVL/*,PROC/*
 15.58.31. EDITING COMPLETE.
 15.58.31.  BEGIN(ACCESS,INSTALL,GLOBLIB,M=W) 
 15.58.32.REVERT(EX)CONVERT(MFT=R1G+) 
 15.58.32.CONVERT(MFT=R1G+) 
 15.58.32.    BEGIN(ACCGLOB,INSTALL,M=W)
 15.58.33.*************** A C C G L O B ********************
 15.58.33.  ATTACH(GLOBLOC=GLOBLOC/M=W,WB)
 15.58.33.  PURGE(GLOBTMP/NA) 
 15.58.33. GLOBTMP NOT FOUND. 
 15.58.33.  RETURN(GLOBTMP) 
 15.58.33.  DEFINE(GLOBTMP=GLOBTMP/M=R,CT=S)
 15.58.33.  ATTACH(GLOBOLD=GLOBLIB) 
 15.58.33.RETURN(CONVERT) 
 15.58.33.REVERT. ACCGLOB **********************************
 15.58.34.  LIBEDIT(P=GLOBOLD,B=GTLGO,U,N=GLOBTMP,Z)+*BUILD,GLOBLIB 
 15.58.42. EDITING COMPLETE.
 15.59.06. LIBRARY GENERATION COMPLETE. 
 15.59.07.  BEGIN(ACCESS,INSTALL,GLOBLIB,M=RETURN)
 15.59.07.REVERT(EX)CONVERT(MFT=R1G+) 
 15.59.07.CONVERT(MFT=R1G+) 
 15.59.08.    BEGIN(ACCGLOB,INSTALL,M=RETURN) 
 15.59.08.*************** A C C G L O B ********************
 15.59.08.  PURGE(GLOBOLD/NA) 
 15.59.08. GLOBOLD NOT FOUND. 
 15.59.08.  RETURN(GLOBTMP,GLOBOLD) 
 15.59.08.  CHANGE(GLOBOLD=GLOBLIB,GLOBLIB=GLOBTMP) 
 15.59.09.  BEGIN(PERMIT,INSTALL,REALFN=GLOBLIB,SYMFN=GLOBLIB)
 15.59.09.*   LEVEL 871 
 15.59.09.*************** P E R M I T **********************
 15.59.09.  PERMIT(GLOBLIB,NETADMN=R,SYSTEMX=R) 
 15.59.09.REVERT.  PERMIT **********************************
 15.59.09.  PURGE(GLOBOLD/NA) 
 15.59.10.  RETURN(GLOBLOC) 
 15.59.10.RETURN(CONVERT) 
 15.59.10.REVERT. ACCGLOB **********************************
 15.59.10.  RETURN(NEW,GTLGO) 
 15.59.10.ELSE(END2)
 15.59.10.ENDIF(END2) 
 15.59.11.SET(R1G=R3) 
 15.59.11.REVERT. END 
 15.59.11.REVERT.  FTNTS. 
 15.59.11.RETURN(FTNTS,ZZZPROC,ZZZJOB,JSTATUS)
 15.59.11.BEGIN(JOBPASS,INSTALL,FTNTS,,OUTPUT,PRINT,NONE) 
 15.59.12.IFE,$FTNTS$.NE.$$.AND.$PRINT$.EQ.$WAIT$,L00001. 
 15.59.12.ENDIF,L00001. 
 15.59.12.IFE,$OUTPUT$.EQ.$0$.OR.$FTNTS$.EQ.$$.OR.$NONE$.EQ.$NONE$,L00002.
 15.59.12.  REVERT.        JOBPASS.  NO FTNTSL FILE ROUTED. 
 15.59.12.NOTE(JSTATUS,NR);FTNTS;      ;
 15.59.12.SKIP(EXIT)
 15.59.12.ENDIF(EXIT) 
 15.59.12.*END   UP TIME ***********************
 15.59.13.IF, ( R1G .EQ. 0 ) ,SUBPROC1. 
 15.59.13.BEGIN(JOBEND,INSTALL,FTNTS,)
 15.59.13.*   LEVEL 871 
 15.59.13.*************** J O B E N D **********************
 15.59.13.NOTE(JOBZZZZ,NR)+FTNTS
 15.59.13.DAYFILE(JOBZZZZ,FR=$*START FTNTS$)
 15.59.13. USER DAYFILE PROCESSED.
 15.59.13.PACK(JOBZZZZ) 
 15.59.13. PACK COMPLETE. 
 15.59.14.BEGIN(ACCESS,INSTALL,DAYFILS,M=W) 
 15.59.14.REVERT(EX)CONVERT(MFT=R1G+) 
 15.59.15.CONVERT(MFT=R1G+) 
 15.59.15.    BEGIN(ACCDAYF,INSTALL,M=W)
 15.59.15.*************** A C C D A Y F ********************
 15.59.15.  ATTACH(DAYFLOC=DAYFLOC/M=W,NA)
 15.59.15.  IF, FILE(DAYFLOC, .NOT. AS) ,ACCDAYF3.
 15.59.15.  ENDIF(ACCDAYF3) 
 15.59.15.  PURGE(DAYFTMP/NA) 
 15.59.15. DAYFTMP NOT FOUND. 
 15.59.16.  RETURN(DAYFTMP) 
 15.59.16.  DEFINE(DAYFTMP=DAYFTMP/M=R) 
 15.59.16.  ATTACH(DAYFOLD=DAYFILS/NA)
 15.59.16.  IF, FILE(DAYFOLD, .NOT. AS) ,ACCDAYF3.
 15.59.16.  ENDIF(ACCDAYF3) 
 15.59.16.RETURN(CONVERT) 
 15.59.16.REVERT. ACCDAYF **********************************
 15.59.17.NOTE(IN)+*B *,* 
 15.59.17.LIBEDIT(P=DAYFOLD,B=JOBZZZZ,L=0,I=IN,N=DAYFTMP) 
 15.59.17. EDITING COMPLETE.
 15.59.17.BEGIN(ACCESS,INSTALL,DAYFILS,M=RETURN)
 15.59.18.REVERT(EX)CONVERT(MFT=R1G+) 
 15.59.18.CONVERT(MFT=R1G+) 
 15.59.18.    BEGIN(ACCDAYF,INSTALL,M=RETURN) 
 15.59.19.*************** A C C D A Y F ********************
 15.59.19.  PURGE(DAYFOLD/NA) 
 15.59.19. DAYFOLD NOT FOUND. 
 15.59.19.  RETURN(DAYFTMP,DAYFOLD) 
 15.59.19.  CHANGE(DAYFOLD=DAYFILS,DAYFILS=DAYFTMP) 
 15.59.19.  PURGE(DAYFOLD/NA) 
 15.59.19.  RETURN(DAYFLOC) 
 15.59.19.RETURN(CONVERT) 
 15.59.19.REVERT. ACCDAYF **********************************
 15.59.20.ENQUIRE(OP=R,O=JSTATUS) 
 15.59.20. ENQUIRY COMPLETE.
 15.59.20.NOTE(IN)+L:/UP TIME/;*+END
 15.59.20.EDIT(JOBZZZZ,I=IN,L=JSTATUS)
 15.59.20.PACK(JSTATUS) 
 15.59.20. PACK COMPLETE. 
 15.59.20.BEGIN(ACCESS,INSTALL,JOBSTAT,M=W) 
 15.59.21.REVERT(EX)CONVERT(MFT=R1G+) 
 15.59.21.CONVERT(MFT=R1G+) 
 15.59.22.    BEGIN(ACCJOBS,INSTALL,M=W)
 15.59.22.*************** A C C J O B S ********************
 15.59.22.RETURN(JOBSTAT) 
 15.59.22.  ATTACH(JOBSTAT=JOBSTAT/M=W,NA)
 15.59.22.  IF, FILE(JOBSTAT, .NOT. AS) ,ACCJOBS2.
 15.59.22.  ENDIF(ACCJOBS2) 
 15.59.22.RETURN(CONVERT) 
 15.59.22.REVERT. ACCJOBS **********************************
 15.59.23.SKIPEI(JOBSTAT) 
 15.59.23.COPYBR(JSTATUS,JOBSTAT) 
 15.59.23. COPY COMPLETE. 
 15.59.23. END. 0 FILES; 1 RECORD; 54 WORDS.
 15.59.23.RETURN(JOBSTAT,JSTATUS,JOBZZZZ) 
 15.59.23.REVERT. JOBEND ***********************************
 15.59.23.ENDIF(SUBPROC1) 
 15.59.23.IF, (EF.NE.0) ,CHECKEF. 
 15.59.23.ENDIF(CHECKEF)
 15.59.24.REVERT.  SUBPROC.  FTNTS COMPLETE.
 15.59.24.EXIT. 
 15.59.24.UEAD,      0.004KUNS. 
 15.59.24.UEPF,      0.462KUNS. 
 15.59.24.UEMT,     39.184KUNS. 
 15.59.24.UEMS,    835.656KUNS. 
 15.59.24.UECP,    388.190SECS. 
 15.59.24.AESR,    996.697UNTS. 
 15.59.24.$OUT(*/OP=E)
 15.59.24. NO FILES PROCESSED.
 15.59.24.$UNLOAD(*/OP=O) 
 15.59.24. NO FILES PROCESSED.
 15.59.24.$DAYFILE(OUTPUT,JT=D) 
 16.11.22.UCLP, 01, 031,    289.472KLNS.
